From 376f7d9de00218dcd4172965c039005f5c01295c Mon Sep 17 00:00:00 2001 From: Chikyun Date: Thu, 24 Oct 2019 21:24:21 +0900 Subject: [PATCH] initial commit --- .gitignore | 6 + ArinLog.Net4.dll | Bin 0 -> 14848 bytes ArinLog/ArinLog.sln | 20 + ArinLog/ArinLog.vbproj | 113 + ArinLog/Class1.vb | 156 + ArinLog/My Project/Application.Designer.vb | 13 + ArinLog/My Project/Application.myapp | 10 + ArinLog/My Project/AssemblyInfo.vb | 35 + ArinLog/My Project/Resources.Designer.vb | 62 + ArinLog/My Project/Resources.resx | 117 + ArinLog/My Project/Settings.Designer.vb | 73 + ArinLog/My Project/Settings.settings | 7 + ArinLog/bin/Debug/ArinLog.Net4.dll | Bin 0 -> 20480 bytes ArinLog/bin/Debug/ArinLog.Net4.pdb | Bin 0 -> 40448 bytes ArinLog/bin/Debug/ArinLog.Net4.xml | 24 + ArinLog/desktop.ini | 6 + ArinLog/obj/Debug/ArinLog.Net4.dll | Bin 0 -> 20480 bytes ArinLog/obj/Debug/ArinLog.Net4.pdb | Bin 0 -> 40448 bytes ArinLog/obj/Debug/ArinLog.Net4.xml | 24 + ArinLog/obj/Debug/ArinLog.Resources.resources | Bin 0 -> 180 bytes ArinLog/obj/Debug/ArinLog.dll | Bin 0 -> 17920 bytes ArinLog/obj/Debug/ArinLog.pdb | Bin 0 -> 40448 bytes .../Debug/ArinLog.vbproj.FileListAbsolute.txt | 96 + .../ArinLog.vbproj.GenerateResource.Cache | Bin 0 -> 917 bytes ArinLog/obj/Debug/ArinLog.xml | 24 + ...gnTimeResolveAssemblyReferencesInput.cache | Bin 0 -> 5798 bytes .../My Project.Resources.Designer.vb.dll | Bin 0 -> 7680 bytes ArinLog/obj/Release/ArinLog.Net4.dll | Bin 0 -> 26112 bytes ArinLog/obj/Release/ArinLog.Net4.pdb | Bin 0 -> 28160 bytes ArinLog/obj/Release/ArinLog.Net4.xml | 24 + .../obj/Release/ArinLog.Resources.resources | Bin 0 -> 180 bytes ArinLog/obj/Release/ArinLog.dll | Bin 0 -> 24064 bytes ArinLog/obj/Release/ArinLog.pdb | Bin 0 -> 26112 bytes .../ArinLog.vbproj.FileListAbsolute.txt | 59 + .../ArinLog.vbproj.GenerateResource.Cache | Bin 0 -> 919 bytes ArinLog/obj/Release/ArinLog.xml | 24 + ...gnTimeResolveAssemblyReferencesInput.cache | Bin 0 -> 6429 bytes .../My Project.Resources.Designer.vb.dll | Bin 0 -> 7680 bytes ArinLogin.dll | Bin 0 -> 15360 bytes ArinLogin.pdb | Bin 0 -> 32256 bytes ArinLogin.xml | 59 + ArinLogin/ArinLogin.dll | Bin 0 -> 16384 bytes ArinLogin/ArinLogin.pdb | Bin 0 -> 34304 bytes ArinLogin/ArinLogin.sln | 20 + ArinLogin/ArinLogin.vbproj | 98 + ArinLogin/Class1.vb | 156 + ArinLogin/EnDec.vb | 122 + ArinLogin/My Project/Application.Designer.vb | 13 + ArinLogin/My Project/Application.myapp | 10 + ArinLogin/My Project/AssemblyInfo.vb | 35 + ArinLogin/My Project/Resources.Designer.vb | 63 + ArinLogin/My Project/Resources.resx | 117 + ArinLogin/My Project/Settings.Designer.vb | 73 + ArinLogin/My Project/Settings.settings | 7 + ArinLogin/Test/Form1.Designer.vb | 61 + ArinLogin/Test/Form1.resx | 120 + ArinLogin/Test/Form1.vb | 15 + .../Test/My Project/Application.Designer.vb | 38 + ArinLogin/Test/My Project/Application.myapp | 11 + ArinLogin/Test/My Project/AssemblyInfo.vb | 35 + .../Test/My Project/Resources.Designer.vb | 62 + ArinLogin/Test/My Project/Resources.resx | 117 + .../Test/My Project/Settings.Designer.vb | 73 + ArinLogin/Test/My Project/Settings.settings | 7 + ArinLogin/Test/Test.vbproj | 128 + ArinLogin/Test/bin/Debug/Test.vshost.exe | Bin 0 -> 14328 bytes .../Test/bin/Debug/Test.vshost.exe.manifest | 11 + ArinLogin/Test/bin/Debug/login.dat | 1 + ArinLogin/Test/bin/Release/ArinLogin.dll | Bin 0 -> 14336 bytes ArinLogin/Test/bin/Release/ArinLogin.pdb | Bin 0 -> 32256 bytes ArinLogin/Test/bin/Release/ArinLogin.xml | 59 + ArinLogin/Test/bin/Release/Test.exe | Bin 0 -> 16384 bytes ArinLogin/Test/bin/Release/Test.pdb | Bin 0 -> 36352 bytes ArinLogin/Test/bin/Release/Test.xml | 11 + ArinLogin/Test/bin/Release/login.dat | 1 + .../Release/ResolveAssemblyReference.cache | Bin 0 -> 4445 bytes .../My Project.Resources.Designer.vb.dll | Bin 0 -> 7680 bytes .../Test/obj/Release/Test.Form1.resources | Bin 0 -> 180 bytes .../Test/obj/Release/Test.Resources.resources | Bin 0 -> 180 bytes ArinLogin/Test/obj/Release/Test.exe | Bin 0 -> 16384 bytes ArinLogin/Test/obj/Release/Test.pdb | Bin 0 -> 36352 bytes .../Release/Test.vbproj.FileListAbsolute.txt | 13 + .../Test.vbproj.GenerateResource.Cache | Bin 0 -> 847 bytes ArinLogin/Test/obj/Release/Test.xml | 11 + ArinNet.dll | Bin 0 -> 12800 bytes ArinNet.pdb | Bin 0 -> 28160 bytes ArinNet/ArinNEt.vb | 106 + ArinNet/ArinNet.sln | 20 + ArinNet/ArinNet.vbproj | 96 + ArinNet/My Project/Application.Designer.vb | 13 + ArinNet/My Project/Application.myapp | 10 + ArinNet/My Project/AssemblyInfo.vb | 35 + ArinNet/My Project/Resources.Designer.vb | 63 + ArinNet/My Project/Resources.resx | 117 + ArinNet/My Project/Settings.Designer.vb | 73 + ArinNet/My Project/Settings.settings | 7 + ArinWareT4.sln | 200 + ArinWareT4.suo | Bin 0 -> 162304 bytes ArinWareT4.v11.suo | Bin 0 -> 132608 bytes ArinWareT4.v12.suo | Bin 0 -> 236032 bytes ArinWarev1/001_B.ico | Bin 0 -> 4286 bytes ArinWarev1/002.ico | Bin 0 -> 353118 bytes ArinWarev1/002_S.ico | Bin 0 -> 1150 bytes ArinWarev1/9-8.ico | Bin 0 -> 46702 bytes ArinWarev1/ApplicationEvents.vb | 43 + ArinWarev1/Calculator.zip | Bin 0 -> 76183 bytes .../Calculator/AirHandling/CAirHandling.vb | 830 + ArinWarev1/Calculator/CAirHandling.vb | 850 + ArinWarev1/Calculator/CCooling.vb | 1800 + ArinWarev1/Calculator/CD.cd | 18 + ArinWarev1/Calculator/CD_RESULT.cd | 54 + ArinWarev1/Calculator/CHeating.vb | 3945 ++ ArinWarev1/Calculator/CRenewable.vb | 736 + ArinWarev1/Calculator/CShared.vb | 169 + ArinWarev1/Calculator/CSummary.vb | 892 + ArinWarev1/Calculator/CZone.vb | 907 + ArinWarev1/Calculator/Calculator.vb | 719 + ArinWarev1/Calculator/Cooling/CCooling.vb | 813 + ArinWarev1/Calculator/Heating/CHeating.vb | 1821 + ArinWarev1/Calculator/Renewable/CRenewable.vb | 593 + ArinWarev1/Calculator/Result/C1차소요량.vb | 780 + ArinWarev1/Calculator/Result/CCo2발생량.vb | 452 + ArinWarev1/Calculator/Result/CResult.vb | 48 + ArinWarev1/Calculator/Result/CZones.vb | 71 + ArinWarev1/Calculator/Result/C범용.vb | 75 + ArinWarev1/Calculator/Result/C사용면적.vb | 412 + ArinWarev1/Calculator/Result/C생산에너지.vb | 272 + ArinWarev1/Calculator/Result/C에너지분석.vb | 355 + ArinWarev1/Calculator/Result/C에너지소요량.vb | 401 + ArinWarev1/Calculator/Result/C에너지요구량.vb | 224 + .../Calculator/Result/C최대냉난방부하.vb | 264 + ArinWarev1/Calculator/Summary/CSummary.vb | 899 + ArinWarev1/Calculator/Zone/CZone.vb | 822 + ArinWarev1/Control/YkCtl.Designer.vb | 29 + ArinWarev1/Control/YkCtl.vb | 160 + ArinWarev1/DataSet.zip | Bin 0 -> 144075 bytes .../DataSet/Calculator_ALT/CZone_ALT.vb | 820 + ArinWarev1/DataSet/DS.Designer.vb | 35429 ++++++++++++++++ ArinWarev1/DataSet/DS.vb | 14 + ArinWarev1/DataSet/DS.xsc | 9 + ArinWarev1/DataSet/DS.xsd | 3259 ++ ArinWarev1/DataSet/DS.xss | 33 + ArinWarev1/DataSet/DS2.Designer.vb | 841 + ArinWarev1/DataSet/DS2.xsc | 9 + ArinWarev1/DataSet/DS2.xsd | 31 + ArinWarev1/DataSet/DS2.xss | 12 + ArinWarev1/DataSet/DSR.Designer.vb | 14001 ++++++ ArinWarev1/DataSet/DSR.vb | 15 + ArinWarev1/DataSet/DSR.xsc | 9 + ArinWarev1/DataSet/DSR.xsd | 336 + ArinWarev1/DataSet/DSR.xss | 29 + ArinWarev1/ECO2.png | Bin 0 -> 65197 bytes ArinWarev1/ECO2_2016.vbproj | 814 + ArinWarev1/ECO2_2016.vbproj.user | 25 + ArinWarev1/Forms/Frm_About.Designer.vb | 133 + ArinWarev1/Forms/Frm_About.resx | 120 + ArinWarev1/Forms/Frm_About.vb | 21 + ArinWarev1/Forms/Frm_Calc.Designer.vb | 126 + ArinWarev1/Forms/Frm_Calc.resx | 123 + ArinWarev1/Forms/Frm_Calc.vb | 36 + ArinWarev1/Forms/Frm_Common.Designer.vb | 274 + ArinWarev1/Forms/Frm_Common.resx | 212 + ArinWarev1/Forms/Frm_Common.vb | 24 + ArinWarev1/Forms/Frm_DisplayGubun.Designer.vb | 37 + ArinWarev1/Forms/Frm_DisplayGubun.resx | 120 + ArinWarev1/Forms/Frm_DisplayGubun.vb | 60 + ArinWarev1/Forms/Frm_FileInfo.Designer.vb | 276 + ArinWarev1/Forms/Frm_FileInfo.resx | 120 + ArinWarev1/Forms/Frm_FileInfo.vb | 45 + ArinWarev1/Forms/Frm_Filter.Designer.vb | 386 + ArinWarev1/Forms/Frm_Filter.resx | 120 + ArinWarev1/Forms/Frm_Filter.vb | 253 + ArinWarev1/Forms/Frm_Intro.Designer.vb | 171 + ArinWarev1/Forms/Frm_Intro.resx | 611 + ArinWarev1/Forms/Frm_Intro.vb | 204 + .../Forms/Frm_RepResult_Admin.Designer.vb | 1604 + ArinWarev1/Forms/Frm_RepResult_Admin.resx | 256 + ArinWarev1/Forms/Frm_RepResult_Admin.vb | 59 + ArinWarev1/Forms/Frm_Warning.Designer.vb | 82 + ArinWarev1/Forms/Frm_Warning.resx | 182 + ArinWarev1/Forms/Frm_Warning.vb | 24 + ArinWarev1/Forms/Frm_Work.Designer.vb | 94 + ArinWarev1/Forms/Frm_Work.resx | 203 + ArinWarev1/Forms/Frm_Work.vb | 11 + ArinWarev1/Forms/Frm_import.Designer.vb | 177 + ArinWarev1/Forms/Frm_import.resx | 513 + ArinWarev1/Forms/Frm_import.sr-Cyrl-CS.resx | 209 + ArinWarev1/Forms/Frm_import.vb | 721 + .../Forms/v20091231/Frm_Bunbae.Designer.vb | 1009 + ArinWarev1/Forms/v20091231/Frm_Bunbae.resx | 378 + ArinWarev1/Forms/v20091231/Frm_Bunbae.vb | 426 + .../Forms/v20091231/Frm_NaengBang.Designer.vb | 970 + ArinWarev1/Forms/v20091231/Frm_NaengBang.resx | 278 + ArinWarev1/Forms/v20091231/Frm_NaengBang.vb | 748 + .../Forms/v20091231/Frm_Nanbang.Designer.vb | 1831 + ArinWarev1/Forms/v20091231/Frm_Nanbang.resx | 802 + ArinWarev1/Forms/v20091231/Frm_Nanbang.vb | 940 + .../Forms/v20091231/Frm_New.Designer.vb | 1380 + ArinWarev1/Forms/v20091231/Frm_New.resx | 243 + ArinWarev1/Forms/v20091231/Frm_New.vb | 836 + ArinWarev1/Forms/v20091231/Frm_YK.Designer.vb | 768 + ArinWarev1/Forms/v20091231/Frm_YK.resx | 269 + ArinWarev1/Forms/v20091231/Frm_YK.vb | 991 + .../Forms/v20091231/Frm_Zone.Designer.vb | 1842 + ArinWarev1/Forms/v20091231/Frm_Zone.resx | 444 + ArinWarev1/Forms/v20091231/Frm_Zone.vb | 1251 + .../Forms/v20091231/Frm_kongjo.Designer.vb | 920 + ArinWarev1/Forms/v20091231/Frm_kongjo.resx | 284 + ArinWarev1/Forms/v20091231/Frm_kongjo.vb | 493 + .../Forms/v20091231/Frm_kongkub.Designer.vb | 916 + ArinWarev1/Forms/v20091231/Frm_kongkub.resx | 360 + ArinWarev1/Forms/v20091231/Frm_kongkub.vb | 495 + .../Forms/v20091231/Frm_nBunbae.Designer.vb | 707 + ArinWarev1/Forms/v20091231/Frm_nBunbae.resx | 254 + ArinWarev1/Forms/v20091231/Frm_nBunbae.vb | 494 + .../Frm_v20091231_Bunbae.Designer.vb | 968 + .../Forms/v20091231/Frm_v20091231_Bunbae.resx | 593 + .../Forms/v20091231/Frm_v20091231_Bunbae.vb | 377 + .../v20091231/Frm_v20091231_Desc.Designer.vb | 1156 + .../Forms/v20091231/Frm_v20091231_Desc.resx | 415 + .../Forms/v20091231/Frm_v20091231_Desc.vb | 244 + .../v20091231/Frm_v20091231_Myoun.Designer.vb | 1281 + .../Forms/v20091231/Frm_v20091231_Myoun.resx | 357 + .../Forms/v20091231/Frm_v20091231_Myoun.vb | 974 + .../Frm_v20091231_NaengBang.Designer.vb | 957 + .../v20091231/Frm_v20091231_NaengBang.resx | 390 + .../v20091231/Frm_v20091231_NaengBang.vb | 709 + .../Frm_v20091231_Nanbang.Designer.vb | 1833 + .../v20091231/Frm_v20091231_Nanbang.resx | 1650 + .../Forms/v20091231/Frm_v20091231_Nanbang.vb | 883 + .../v20091231/Frm_v20091231_New.Designer.vb | 1340 + .../Forms/v20091231/Frm_v20091231_New.resx | 246 + .../Forms/v20091231/Frm_v20091231_New.vb | 778 + .../Frm_v20091231_Report.Designer.vb | 113 + .../Forms/v20091231/Frm_v20091231_Report.resx | 1577 + .../Forms/v20091231/Frm_v20091231_Report.vb | 284 + .../Frm_v20091231_Report_auth.Designer.vb | 139 + .../v20091231/Frm_v20091231_Report_auth.resx | 1586 + .../v20091231/Frm_v20091231_Report_auth.vb | 305 + .../Frm_v20091231_ResultMax.Designer.vb | 214 + .../v20091231/Frm_v20091231_ResultMax.resx | 129 + .../v20091231/Frm_v20091231_ResultMax.vb | 30 + .../Frm_v20091231_ResultMon.Designer.vb | 418 + .../v20091231/Frm_v20091231_ResultMon.resx | 141 + .../v20091231/Frm_v20091231_ResultMon.vb | 66 + .../Frm_v20091231_ResultTotal.Designer.vb | 102 + .../v20091231/Frm_v20091231_ResultTotal.resx | 1574 + .../v20091231/Frm_v20091231_ResultTotal.vb | 71 + .../Frm_v20091231_Weather.Designer.vb | 3736 ++ .../v20091231/Frm_v20091231_Weather.resx | 709 + .../Forms/v20091231/Frm_v20091231_Weather.vb | 677 + .../v20091231/Frm_v20091231_YK.Designer.vb | 747 + .../Forms/v20091231/Frm_v20091231_YK.resx | 390 + .../Forms/v20091231/Frm_v20091231_YK.vb | 730 + .../v20091231/Frm_v20091231_Zone.Designer.vb | 1744 + .../Forms/v20091231/Frm_v20091231_Zone.resx | 441 + .../Forms/v20091231/Frm_v20091231_Zone.vb | 1176 + .../v20091231/Frm_v20091231_buha.Designer.vb | 352 + .../Forms/v20091231/Frm_v20091231_buha.resx | 252 + .../Forms/v20091231/Frm_v20091231_buha.vb | 130 + .../Frm_v20091231_kongjo.Designer.vb | 906 + .../Forms/v20091231/Frm_v20091231_kongjo.resx | 396 + .../Forms/v20091231/Frm_v20091231_kongjo.vb | 458 + .../Frm_v20091231_kongkub.Designer.vb | 903 + .../v20091231/Frm_v20091231_kongkub.resx | 578 + .../Forms/v20091231/Frm_v20091231_kongkub.vb | 459 + .../Frm_v20091231_nBunbae.Designer.vb | 693 + .../v20091231/Frm_v20091231_nBunbae.resx | 366 + .../Forms/v20091231/Frm_v20091231_nBunbae.vb | 456 + .../Frm_v20091231_profile.Designer.vb | 1311 + .../v20091231/Frm_v20091231_profile.resx | 210 + .../Forms/v20091231/Frm_v20091231_profile.vb | 385 + ArinWarev1/Forms/v20091231/ReadMe.txt | 4 + ArinWarev1/Forms/v20091231/Report_result.rdlc | 573 + .../Forms/v20091231/Report_result_auth.rdlc | 2291 + ArinWarev1/Forms/v20091231/Report_total.rdlc | 5880 +++ ArinWarev1/Forms_Basic/Frm_About.Designer.vb | 120 + ArinWarev1/Forms_Basic/Frm_About.resx | 120 + ArinWarev1/Forms_Basic/Frm_About.vb | 27 + ArinWarev1/Forms_Basic/Frm_Calc.Designer.vb | 128 + ArinWarev1/Forms_Basic/Frm_Calc.resx | 120 + ArinWarev1/Forms_Basic/Frm_Calc.vb | 60 + ArinWarev1/Forms_Basic/Frm_Common.Designer.vb | 273 + ArinWarev1/Forms_Basic/Frm_Common.resx | 212 + ArinWarev1/Forms_Basic/Frm_Common.vb | 24 + .../Forms_Basic/Frm_DisplayGubun.Designer.vb | 38 + ArinWarev1/Forms_Basic/Frm_DisplayGubun.resx | 120 + ArinWarev1/Forms_Basic/Frm_DisplayGubun.vb | 60 + .../Forms_Basic/Frm_FileInfo.Designer.vb | 278 + ArinWarev1/Forms_Basic/Frm_FileInfo.resx | 120 + ArinWarev1/Forms_Basic/Frm_FileInfo.vb | 45 + ArinWarev1/Forms_Basic/Frm_Filter.Designer.vb | 386 + ArinWarev1/Forms_Basic/Frm_Filter.resx | 120 + ArinWarev1/Forms_Basic/Frm_Filter.vb | 253 + ArinWarev1/Forms_Basic/Frm_Intro.Designer.vb | 175 + ArinWarev1/Forms_Basic/Frm_Intro.resx | 126 + ArinWarev1/Forms_Basic/Frm_Intro.vb | 215 + ArinWarev1/Forms_Basic/Frm_Login.Designer.vb | 173 + ArinWarev1/Forms_Basic/Frm_Login.resx | 126 + ArinWarev1/Forms_Basic/Frm_Login.vb | 204 + .../Frm_RepResult_Admin.Designer.vb | 1607 + .../Forms_Basic/Frm_RepResult_Admin.resx | 256 + ArinWarev1/Forms_Basic/Frm_RepResult_Admin.vb | 58 + .../Forms_Basic/Frm_Warning.Designer.vb | 84 + ArinWarev1/Forms_Basic/Frm_Warning.resx | 176 + ArinWarev1/Forms_Basic/Frm_Warning.vb | 24 + ArinWarev1/Forms_Basic/Frm_Work.Designer.vb | 94 + ArinWarev1/Forms_Basic/Frm_Work.resx | 123 + ArinWarev1/Forms_Basic/Frm_Work.vb | 32 + ArinWarev1/Forms_Basic/Frm_import.Designer.vb | 173 + ArinWarev1/Forms_Basic/Frm_import.resx | 531 + .../Forms_Basic/Frm_import.sr-Cyrl-CS.resx | 209 + ArinWarev1/Forms_Basic/Frm_import.vb | 715 + ArinWarev1/Forms_Input/Frm_Bunbae.Designer.vb | 959 + ArinWarev1/Forms_Input/Frm_Bunbae.resx | 375 + ArinWarev1/Forms_Input/Frm_Bunbae.vb | 496 + ArinWarev1/Forms_Input/Frm_Desc.Designer.vb | 1575 + ArinWarev1/Forms_Input/Frm_Desc.resx | 791 + ArinWarev1/Forms_Input/Frm_Desc.vb | 322 + .../Forms_Input/Frm_NaengBang.Designer.vb | 1004 + ArinWarev1/Forms_Input/Frm_NaengBang.resx | 278 + ArinWarev1/Forms_Input/Frm_NaengBang.vb | 810 + .../Forms_Input/Frm_Nanbang.Designer.vb | 1896 + ArinWarev1/Forms_Input/Frm_Nanbang.resx | 896 + ArinWarev1/Forms_Input/Frm_Nanbang.vb | 1058 + ArinWarev1/Forms_Input/Frm_New.Designer.vb | 1456 + ArinWarev1/Forms_Input/Frm_New.resx | 252 + ArinWarev1/Forms_Input/Frm_New.vb | 890 + ArinWarev1/Forms_Input/Frm_YK.Designer.vb | 896 + ArinWarev1/Forms_Input/Frm_YK.resx | 272 + ArinWarev1/Forms_Input/Frm_YK.vb | 1172 + ArinWarev1/Forms_Input/Frm_Zone.Designer.vb | 1874 + ArinWarev1/Forms_Input/Frm_Zone.resx | 444 + ArinWarev1/Forms_Input/Frm_Zone.vb | 1646 + ArinWarev1/Forms_Input/Frm_kongjo.Designer.vb | 924 + ArinWarev1/Forms_Input/Frm_kongjo.resx | 284 + ArinWarev1/Forms_Input/Frm_kongjo.vb | 581 + .../Forms_Input/Frm_kongkub.Designer.vb | 921 + ArinWarev1/Forms_Input/Frm_kongkub.resx | 360 + ArinWarev1/Forms_Input/Frm_kongkub.vb | 560 + .../Forms_Input/Frm_nBunbae.Designer.vb | 712 + ArinWarev1/Forms_Input/Frm_nBunbae.resx | 254 + ArinWarev1/Forms_Input/Frm_nBunbae.vb | 553 + .../Frm_v20091231_Myoun.Designer.vb | 1662 + .../Forms_Input/Frm_v20091231_Myoun.resx | 372 + ArinWarev1/Forms_Input/Frm_v20091231_Myoun.vb | 1397 + .../Frm_v20091231_ResultMax.Designer.vb | 215 + .../Forms_Input/Frm_v20091231_ResultMax.resx | 129 + .../Forms_Input/Frm_v20091231_ResultMax.vb | 30 + .../Frm_v20091231_ResultMon.Designer.vb | 419 + .../Forms_Input/Frm_v20091231_ResultMon.resx | 141 + .../Forms_Input/Frm_v20091231_ResultMon.vb | 66 + .../Frm_v20091231_Weather.Designer.vb | 3738 ++ .../Forms_Input/Frm_v20091231_Weather.resx | 709 + .../Forms_Input/Frm_v20091231_Weather.vb | 691 + .../Frm_v20091231_buha.Designer.vb | 355 + .../Forms_Input/Frm_v20091231_buha.resx | 252 + ArinWarev1/Forms_Input/Frm_v20091231_buha.vb | 175 + .../Frm_v20091231_profile.Designer.vb | 1314 + .../Forms_Input/Frm_v20091231_profile.resx | 210 + .../Forms_Input/Frm_v20091231_profile.vb | 438 + ArinWarev1/Forms_Input/ReadMe.txt | 4 + ArinWarev1/Forms_Input/frm_monuse.Designer.vb | 657 + ArinWarev1/Forms_Input/frm_monuse.resx | 225 + ArinWarev1/Forms_Input/frm_monuse.vb | 173 + .../Forms_Report/Frm_Export.Designer.vb | 86 + ArinWarev1/Forms_Report/Frm_Export.resx | 120 + ArinWarev1/Forms_Report/Frm_Export.vb | 287 + .../Forms_Report/Frm_Upload.Designer.vb | 102 + ArinWarev1/Forms_Report/Frm_Upload.resx | 123 + ArinWarev1/Forms_Report/Frm_Upload.vb | 1800 + .../Forms_Report/Report_Graph - 백업.rdlc | 573 + .../Forms_Report/Report_Graph.Designer.vb | 112 + ArinWarev1/Forms_Report/Report_Graph.rdlc | 954 + ArinWarev1/Forms_Report/Report_Graph.resx | 1577 + ArinWarev1/Forms_Report/Report_Graph.vb | 333 + .../Report_Graph_auth - 백업.rdlc | 2291 + .../Report_Graph_auth.Designer.vb | 138 + .../Forms_Report/Report_Graph_auth.rdlc | 3403 ++ .../Forms_Report/Report_Graph_auth.resx | 1586 + ArinWarev1/Forms_Report/Report_Graph_auth.vb | 308 + .../Forms_Report/Report_Total.Designer.vb | 101 + ArinWarev1/Forms_Report/Report_Total.resx | 1574 + ArinWarev1/Forms_Report/Report_Total.vb | 74 + .../Forms_Report/Report_pyonga.Designer.vb | 173 + ArinWarev1/Forms_Report/Report_pyonga.rdlc | 8301 ++++ ArinWarev1/Forms_Report/Report_pyonga.resx | 1595 + ArinWarev1/Forms_Report/Report_pyonga.vb | 974 + .../Forms_Report/Report_total - 백업.rdlc | 5880 +++ ArinWarev1/Forms_Report/Report_total.rdlc | 8738 ++++ .../Forms_Report/Report_그래프.Designer.vb | 112 + ArinWarev1/Forms_Report/Report_그래프.resx | 1577 + ArinWarev1/Forms_Report/Report_그래프.vb | 504 + .../Forms_Report/Report_설계개선.Designer.vb | 99 + ArinWarev1/Forms_Report/Report_설계개선.rdlc | 644 + ArinWarev1/Forms_Report/Report_설계개선.resx | 1574 + ArinWarev1/Forms_Report/Report_설계개선.vb | 147 + ArinWarev1/Forms_Report/그래프.rdlc | 1476 + ArinWarev1/Forms_Report/평가서.rdlc | 9573 +++++ ArinWarev1/Frm_History.Designer.vb | 283 + ArinWarev1/Frm_History.resx | 194 + ArinWarev1/Frm_History.vb | 42 + ArinWarev1/MdiMain.Designer.vb | 737 + ArinWarev1/MdiMain.resx | 6640 +++ ArinWarev1/MdiMain.vb | 2481 ++ ArinWarev1/Module/CForm.Designer.vb | 37 + ArinWarev1/Module/CForm.resx | 120 + ArinWarev1/Module/CForm.vb | 21 + ArinWarev1/Module/CLang.vb | 7 + ArinWarev1/Module/CMenu.vb | 17 + ArinWarev1/Module/Enum.vb | 14 + ArinWarev1/Module/Pub.vb | 760 + ArinWarev1/My Project/Application.Designer.vb | 38 + ArinWarev1/My Project/Application.myapp | 10 + ArinWarev1/My Project/ApplicationEvents.vb | 0 ArinWarev1/My Project/AssemblyInfo.vb | 35 + ArinWarev1/My Project/Resources.Designer.vb | 313 + ArinWarev1/My Project/Resources.resx | 196 + ArinWarev1/My Project/Settings.Designer.vb | 84 + ArinWarev1/My Project/Settings.settings | 14 + ArinWarev1/My Project/app.manifest | 11 + ArinWarev1/My Project/licenses.licx | 1 + ArinWarev1/My Project/licenses.licx.bak | 1 + ArinWarev1/ReadMe.txt | 168 + ArinWarev1/Resources/addbk_16.png | Bin 0 -> 674 bytes ArinWarev1/Resources/addbk_24.png | Bin 0 -> 1086 bytes ArinWarev1/Resources/adfav_16.png | Bin 0 -> 784 bytes ArinWarev1/Resources/apps_32.png | Bin 0 -> 1763 bytes ArinWarev1/Resources/cancl_32.png | Bin 0 -> 2866 bytes ArinWarev1/Resources/default.png | Bin 0 -> 12249 bytes ArinWarev1/Resources/del_16.png | Bin 0 -> 708 bytes ArinWarev1/Resources/edit_16.png | Bin 0 -> 688 bytes ArinWarev1/Resources/group_24.png | Bin 0 -> 1310 bytes ArinWarev1/Resources/new_32.png | Bin 0 -> 2087 bytes ArinWarev1/Resources/page_copy.png | Bin 0 -> 958 bytes ArinWarev1/Resources/paste_16.png | Bin 0 -> 774 bytes ArinWarev1/Resources/ref_24.png | Bin 0 -> 1343 bytes ArinWarev1/Resources/remov_32.png | Bin 0 -> 2233 bytes ArinWarev1/Resources/save_16.png | Bin 0 -> 571 bytes ArinWarev1/Resources/select_by_difference.png | Bin 0 -> 918 bytes ArinWarev1/Resources/user_16.png | Bin 0 -> 766 bytes ArinWarev1/Resources/user_24.png | Bin 0 -> 1214 bytes ArinWarev1/Resources/wiz_16.png | Bin 0 -> 821 bytes ArinWarev1/Resources/건물개요.jpg | Bin 0 -> 92111 bytes ArinWarev1/Resources/폼배경.jpg | Bin 0 -> 113580 bytes ArinWarev1/SplashScreen1.Designer.vb | 115 + ArinWarev1/SplashScreen1.resx | 469 + ArinWarev1/SplashScreen1.vb | 55 + ArinWarev1/Template/ReadMe.txt | 4 + ArinWarev1/Template/Resources/addbk_16.png | Bin 0 -> 674 bytes ArinWarev1/Template/Resources/addbk_24.png | Bin 0 -> 1086 bytes ArinWarev1/Template/Resources/adfav_16.png | Bin 0 -> 784 bytes ArinWarev1/Template/Resources/apps_32.png | Bin 0 -> 1763 bytes ArinWarev1/Template/Resources/cancl_32.png | Bin 0 -> 2866 bytes ArinWarev1/Template/Resources/default.png | Bin 0 -> 12249 bytes ArinWarev1/Template/Resources/del_16.png | Bin 0 -> 708 bytes ArinWarev1/Template/Resources/edit_16.png | Bin 0 -> 688 bytes ArinWarev1/Template/Resources/group_24.png | Bin 0 -> 1310 bytes ArinWarev1/Template/Resources/new_32.png | Bin 0 -> 2087 bytes ArinWarev1/Template/Resources/paste_16.png | Bin 0 -> 774 bytes ArinWarev1/Template/Resources/ref_24.png | Bin 0 -> 1343 bytes ArinWarev1/Template/Resources/remov_32.png | Bin 0 -> 2233 bytes ArinWarev1/Template/Resources/save_16.png | Bin 0 -> 571 bytes ArinWarev1/Template/Resources/user_16.png | Bin 0 -> 766 bytes ArinWarev1/Template/Resources/user_24.png | Bin 0 -> 1214 bytes ArinWarev1/Template/Resources/wiz_16.png | Bin 0 -> 821 bytes ArinWarev1/Template/Resources/건물개요.jpg | Bin 0 -> 92111 bytes ArinWarev1/Template/Resources/폼배경.jpg | Bin 0 -> 113580 bytes ArinWarev1/Template/Sample | 3240 ++ ArinWarev1/Template/Sample.tpl | Bin 0 -> 132116 bytes ArinWarev1/UpdateList.txt | 1 + ArinWarev1/UserControls/ArinDv.Designer.vb | 29 + ArinWarev1/UserControls/ArinDv.vb | 55 + ArinWarev1/UserControls/MyCmb.Designer.vb | 28 + ArinWarev1/UserControls/MyCmb.vb | 22 + ArinWarev1/UserControls/MyTb.Designer.vb | 28 + ArinWarev1/UserControls/MyTb.vb | 61 + ArinWarev1/UserControls/YkCtl.Designer.vb | 29 + ArinWarev1/UserControls/YkCtl.vb | 160 + ArinWarev1/app.config | 28 + ArinWarev1/eco2DataSet.Designer.vb | 4836 +++ ArinWarev1/eco2DataSet.vb | 4 + ArinWarev1/eco2DataSet.xsc | 1 + ArinWarev1/eco2DataSet.xsd | 725 + ArinWarev1/eco2DataSet.xss | 1 + ArinWarev1/icon5.ico | Bin 0 -> 67646 bytes ArinWarev1/login.dat | 1 + ArinWarev1/new | Bin 0 -> 496621 bytes ArinWarev1/new1 | 623 + ArinWarev1/upload.xlsx | Bin 0 -> 23430 bytes ArinWarev1/개선그래프.png | Bin 0 -> 6845 bytes ArinWarev1/개요.png | Bin 0 -> 6704 bytes ArinWarev1/결과.png | Bin 0 -> 5122 bytes ArinWarev1/계산.png | Bin 0 -> 8235 bytes ArinWarev1/그래프.png | Bin 0 -> 5569 bytes ArinWarev1/내보내기.png | Bin 0 -> 7234 bytes ArinWarev1/다른이름저장.png | Bin 0 -> 1146 bytes ArinWarev1/다른이름저장2.png | Bin 0 -> 3787 bytes ArinWarev1/다른저장.png | Bin 0 -> 8209 bytes ArinWarev1/단축키.txt | 6 + ArinWarev1/돋보기.png | Bin 0 -> 7346 bytes ArinWarev1/방위.jpg | Bin 0 -> 79879 bytes ArinWarev1/방위.png | Bin 0 -> 7972 bytes ArinWarev1/방위2.png | Bin 0 -> 7278 bytes ArinWarev1/신규.png | Bin 0 -> 6563 bytes ArinWarev1/열기.png | Bin 0 -> 6185 bytes ArinWarev1/저장.png | Bin 0 -> 5966 bytes ArinWarev1/프린터.png | Bin 0 -> 5036 bytes ArinWarev1_Report.suo | Bin 0 -> 193024 bytes CEnergy.dll | Bin 0 -> 36864 bytes CEnergy/ArinClassV2/ArinDV.Designer.vb | 29 + CEnergy/ArinClassV2/ArinDV.vb | 87 + CEnergy/ArinClassV2/CEnergy.vbproj | 157 + CEnergy/ArinClassV2/Common.vb | 170 + CEnergy/ArinClassV2/Dbbase.vb | 72 + .../My Project/Application.Designer.vb | 13 + .../ArinClassV2/My Project/Application.myapp | 10 + .../ArinClassV2/My Project/AssemblyInfo.vb | 35 + .../My Project/Resources.Designer.vb | 63 + CEnergy/ArinClassV2/My Project/Resources.resx | 117 + .../My Project/Settings.Designer.vb | 84 + .../ArinClassV2/My Project/Settings.settings | 14 + CEnergy/ArinClassV2/MyINI.vb | 287 + CEnergy/ArinClassV2/T4key.pfx | Bin 0 -> 1764 bytes CEnergy/ArinClassV2/app.config | 28 + CEnergy/CEnergy.sln | 20 + Document.txt | 10 + Dotfuscator1_v2010.xml | 1303 + Interop.Excel.dll | Bin 0 -> 1093632 bytes Interop.VBIDE.dll | Bin 0 -> 57344 bytes Lov.dll | Bin 0 -> 94208 bytes Microsoft.ReportViewer.Common.dll | Bin 0 -> 3649536 bytes Microsoft.ReportViewer.WinForms.dll | Bin 0 -> 339968 bytes SetupIS/SetupIS.isl | 5826 +++ SetupIS/SetupIS.isl.774 | 5784 +++ SetupIS/SetupIS.isproj | 31 + login.dat | 1 + mainicon.gif | Bin 0 -> 14145 bytes new | Bin 0 -> 487557 bytes new1 | 621 + sample.tpl | Bin 0 -> 466063 bytes sample_0307.tpl | Bin 0 -> 303651 bytes sample_200.tpl | Bin 0 -> 3304871 bytes 설치과정.txt | 6 + 544 files changed, 295019 insertions(+) create mode 100644 .gitignore create mode 100644 ArinLog.Net4.dll create mode 100644 ArinLog/ArinLog.sln create mode 100644 ArinLog/ArinLog.vbproj create mode 100644 ArinLog/Class1.vb create mode 100644 ArinLog/My Project/Application.Designer.vb create mode 100644 ArinLog/My Project/Application.myapp create mode 100644 ArinLog/My Project/AssemblyInfo.vb create mode 100644 ArinLog/My Project/Resources.Designer.vb create mode 100644 ArinLog/My Project/Resources.resx create mode 100644 ArinLog/My Project/Settings.Designer.vb create mode 100644 ArinLog/My Project/Settings.settings create mode 100644 ArinLog/bin/Debug/ArinLog.Net4.dll create mode 100644 ArinLog/bin/Debug/ArinLog.Net4.pdb create mode 100644 ArinLog/bin/Debug/ArinLog.Net4.xml create mode 100644 ArinLog/desktop.ini create mode 100644 ArinLog/obj/Debug/ArinLog.Net4.dll create mode 100644 ArinLog/obj/Debug/ArinLog.Net4.pdb create mode 100644 ArinLog/obj/Debug/ArinLog.Net4.xml create mode 100644 ArinLog/obj/Debug/ArinLog.Resources.resources create mode 100644 ArinLog/obj/Debug/ArinLog.dll create mode 100644 ArinLog/obj/Debug/ArinLog.pdb create mode 100644 ArinLog/obj/Debug/ArinLog.vbproj.FileListAbsolute.txt create mode 100644 ArinLog/obj/Debug/ArinLog.vbproj.GenerateResource.Cache create mode 100644 ArinLog/obj/Debug/ArinLog.xml create mode 100644 ArinLog/obj/Debug/DesignTimeResolveAssemblyReferencesInput.cache create mode 100644 ArinLog/obj/Debug/TempPE/My Project.Resources.Designer.vb.dll create mode 100644 ArinLog/obj/Release/ArinLog.Net4.dll create mode 100644 ArinLog/obj/Release/ArinLog.Net4.pdb create mode 100644 ArinLog/obj/Release/ArinLog.Net4.xml create mode 100644 ArinLog/obj/Release/ArinLog.Resources.resources create mode 100644 ArinLog/obj/Release/ArinLog.dll create mode 100644 ArinLog/obj/Release/ArinLog.pdb create mode 100644 ArinLog/obj/Release/ArinLog.vbproj.FileListAbsolute.txt create mode 100644 ArinLog/obj/Release/ArinLog.vbproj.GenerateResource.Cache create mode 100644 ArinLog/obj/Release/ArinLog.xml create mode 100644 ArinLog/obj/Release/DesignTimeResolveAssemblyReferencesInput.cache create mode 100644 ArinLog/obj/Release/TempPE/My Project.Resources.Designer.vb.dll create mode 100644 ArinLogin.dll create mode 100644 ArinLogin.pdb create mode 100644 ArinLogin.xml create mode 100644 ArinLogin/ArinLogin.dll create mode 100644 ArinLogin/ArinLogin.pdb create mode 100644 ArinLogin/ArinLogin.sln create mode 100644 ArinLogin/ArinLogin.vbproj create mode 100644 ArinLogin/Class1.vb create mode 100644 ArinLogin/EnDec.vb create mode 100644 ArinLogin/My Project/Application.Designer.vb create mode 100644 ArinLogin/My Project/Application.myapp create mode 100644 ArinLogin/My Project/AssemblyInfo.vb create mode 100644 ArinLogin/My Project/Resources.Designer.vb create mode 100644 ArinLogin/My Project/Resources.resx create mode 100644 ArinLogin/My Project/Settings.Designer.vb create mode 100644 ArinLogin/My Project/Settings.settings create mode 100644 ArinLogin/Test/Form1.Designer.vb create mode 100644 ArinLogin/Test/Form1.resx create mode 100644 ArinLogin/Test/Form1.vb create mode 100644 ArinLogin/Test/My Project/Application.Designer.vb create mode 100644 ArinLogin/Test/My Project/Application.myapp create mode 100644 ArinLogin/Test/My Project/AssemblyInfo.vb create mode 100644 ArinLogin/Test/My Project/Resources.Designer.vb create mode 100644 ArinLogin/Test/My Project/Resources.resx create mode 100644 ArinLogin/Test/My Project/Settings.Designer.vb create mode 100644 ArinLogin/Test/My Project/Settings.settings create mode 100644 ArinLogin/Test/Test.vbproj create mode 100644 ArinLogin/Test/bin/Debug/Test.vshost.exe create mode 100644 ArinLogin/Test/bin/Debug/Test.vshost.exe.manifest create mode 100644 ArinLogin/Test/bin/Debug/login.dat create mode 100644 ArinLogin/Test/bin/Release/ArinLogin.dll create mode 100644 ArinLogin/Test/bin/Release/ArinLogin.pdb create mode 100644 ArinLogin/Test/bin/Release/ArinLogin.xml create mode 100644 ArinLogin/Test/bin/Release/Test.exe create mode 100644 ArinLogin/Test/bin/Release/Test.pdb create mode 100644 ArinLogin/Test/bin/Release/Test.xml create mode 100644 ArinLogin/Test/bin/Release/login.dat create mode 100644 ArinLogin/Test/obj/Release/ResolveAssemblyReference.cache create mode 100644 ArinLogin/Test/obj/Release/TempPE/My Project.Resources.Designer.vb.dll create mode 100644 ArinLogin/Test/obj/Release/Test.Form1.resources create mode 100644 ArinLogin/Test/obj/Release/Test.Resources.resources create mode 100644 ArinLogin/Test/obj/Release/Test.exe create mode 100644 ArinLogin/Test/obj/Release/Test.pdb create mode 100644 ArinLogin/Test/obj/Release/Test.vbproj.FileListAbsolute.txt create mode 100644 ArinLogin/Test/obj/Release/Test.vbproj.GenerateResource.Cache create mode 100644 ArinLogin/Test/obj/Release/Test.xml create mode 100644 ArinNet.dll create mode 100644 ArinNet.pdb create mode 100644 ArinNet/ArinNEt.vb create mode 100644 ArinNet/ArinNet.sln create mode 100644 ArinNet/ArinNet.vbproj create mode 100644 ArinNet/My Project/Application.Designer.vb create mode 100644 ArinNet/My Project/Application.myapp create mode 100644 ArinNet/My Project/AssemblyInfo.vb create mode 100644 ArinNet/My Project/Resources.Designer.vb create mode 100644 ArinNet/My Project/Resources.resx create mode 100644 ArinNet/My Project/Settings.Designer.vb create mode 100644 ArinNet/My Project/Settings.settings create mode 100644 ArinWareT4.sln create mode 100644 ArinWareT4.suo create mode 100644 ArinWareT4.v11.suo create mode 100644 ArinWareT4.v12.suo create mode 100644 ArinWarev1/001_B.ico create mode 100644 ArinWarev1/002.ico create mode 100644 ArinWarev1/002_S.ico create mode 100644 ArinWarev1/9-8.ico create mode 100644 ArinWarev1/ApplicationEvents.vb create mode 100644 ArinWarev1/Calculator.zip create mode 100644 ArinWarev1/Calculator/AirHandling/CAirHandling.vb create mode 100644 ArinWarev1/Calculator/CAirHandling.vb create mode 100644 ArinWarev1/Calculator/CCooling.vb create mode 100644 ArinWarev1/Calculator/CD.cd create mode 100644 ArinWarev1/Calculator/CD_RESULT.cd create mode 100644 ArinWarev1/Calculator/CHeating.vb create mode 100644 ArinWarev1/Calculator/CRenewable.vb create mode 100644 ArinWarev1/Calculator/CShared.vb create mode 100644 ArinWarev1/Calculator/CSummary.vb create mode 100644 ArinWarev1/Calculator/CZone.vb create mode 100644 ArinWarev1/Calculator/Calculator.vb create mode 100644 ArinWarev1/Calculator/Cooling/CCooling.vb create mode 100644 ArinWarev1/Calculator/Heating/CHeating.vb create mode 100644 ArinWarev1/Calculator/Renewable/CRenewable.vb create mode 100644 ArinWarev1/Calculator/Result/C1차소요량.vb create mode 100644 ArinWarev1/Calculator/Result/CCo2발생량.vb create mode 100644 ArinWarev1/Calculator/Result/CResult.vb create mode 100644 ArinWarev1/Calculator/Result/CZones.vb create mode 100644 ArinWarev1/Calculator/Result/C범용.vb create mode 100644 ArinWarev1/Calculator/Result/C사용면적.vb create mode 100644 ArinWarev1/Calculator/Result/C생산에너지.vb create mode 100644 ArinWarev1/Calculator/Result/C에너지분석.vb create mode 100644 ArinWarev1/Calculator/Result/C에너지소요량.vb create mode 100644 ArinWarev1/Calculator/Result/C에너지요구량.vb create mode 100644 ArinWarev1/Calculator/Result/C최대냉난방부하.vb create mode 100644 ArinWarev1/Calculator/Summary/CSummary.vb create mode 100644 ArinWarev1/Calculator/Zone/CZone.vb create mode 100644 ArinWarev1/Control/YkCtl.Designer.vb create mode 100644 ArinWarev1/Control/YkCtl.vb create mode 100644 ArinWarev1/DataSet.zip create mode 100644 ArinWarev1/DataSet/Calculator_ALT/CZone_ALT.vb create mode 100644 ArinWarev1/DataSet/DS.Designer.vb create mode 100644 ArinWarev1/DataSet/DS.vb create mode 100644 ArinWarev1/DataSet/DS.xsc create mode 100644 ArinWarev1/DataSet/DS.xsd create mode 100644 ArinWarev1/DataSet/DS.xss create mode 100644 ArinWarev1/DataSet/DS2.Designer.vb create mode 100644 ArinWarev1/DataSet/DS2.xsc create mode 100644 ArinWarev1/DataSet/DS2.xsd create mode 100644 ArinWarev1/DataSet/DS2.xss create mode 100644 ArinWarev1/DataSet/DSR.Designer.vb create mode 100644 ArinWarev1/DataSet/DSR.vb create mode 100644 ArinWarev1/DataSet/DSR.xsc create mode 100644 ArinWarev1/DataSet/DSR.xsd create mode 100644 ArinWarev1/DataSet/DSR.xss create mode 100644 ArinWarev1/ECO2.png create mode 100644 ArinWarev1/ECO2_2016.vbproj create mode 100644 ArinWarev1/ECO2_2016.vbproj.user create mode 100644 ArinWarev1/Forms/Frm_About.Designer.vb create mode 100644 ArinWarev1/Forms/Frm_About.resx create mode 100644 ArinWarev1/Forms/Frm_About.vb create mode 100644 ArinWarev1/Forms/Frm_Calc.Designer.vb create mode 100644 ArinWarev1/Forms/Frm_Calc.resx create mode 100644 ArinWarev1/Forms/Frm_Calc.vb create mode 100644 ArinWarev1/Forms/Frm_Common.Designer.vb create mode 100644 ArinWarev1/Forms/Frm_Common.resx create mode 100644 ArinWarev1/Forms/Frm_Common.vb create mode 100644 ArinWarev1/Forms/Frm_DisplayGubun.Designer.vb create mode 100644 ArinWarev1/Forms/Frm_DisplayGubun.resx create mode 100644 ArinWarev1/Forms/Frm_DisplayGubun.vb create mode 100644 ArinWarev1/Forms/Frm_FileInfo.Designer.vb create mode 100644 ArinWarev1/Forms/Frm_FileInfo.resx create mode 100644 ArinWarev1/Forms/Frm_FileInfo.vb create mode 100644 ArinWarev1/Forms/Frm_Filter.Designer.vb create mode 100644 ArinWarev1/Forms/Frm_Filter.resx create mode 100644 ArinWarev1/Forms/Frm_Filter.vb create mode 100644 ArinWarev1/Forms/Frm_Intro.Designer.vb create mode 100644 ArinWarev1/Forms/Frm_Intro.resx create mode 100644 ArinWarev1/Forms/Frm_Intro.vb create mode 100644 ArinWarev1/Forms/Frm_RepResult_Admin.Designer.vb create mode 100644 ArinWarev1/Forms/Frm_RepResult_Admin.resx create mode 100644 ArinWarev1/Forms/Frm_RepResult_Admin.vb create mode 100644 ArinWarev1/Forms/Frm_Warning.Designer.vb create mode 100644 ArinWarev1/Forms/Frm_Warning.resx create mode 100644 ArinWarev1/Forms/Frm_Warning.vb create mode 100644 ArinWarev1/Forms/Frm_Work.Designer.vb create mode 100644 ArinWarev1/Forms/Frm_Work.resx create mode 100644 ArinWarev1/Forms/Frm_Work.vb create mode 100644 ArinWarev1/Forms/Frm_import.Designer.vb create mode 100644 ArinWarev1/Forms/Frm_import.resx create mode 100644 ArinWarev1/Forms/Frm_import.sr-Cyrl-CS.resx create mode 100644 ArinWarev1/Forms/Frm_import.vb create mode 100644 ArinWarev1/Forms/v20091231/Frm_Bunbae.Designer.vb create mode 100644 ArinWarev1/Forms/v20091231/Frm_Bunbae.resx create mode 100644 ArinWarev1/Forms/v20091231/Frm_Bunbae.vb create mode 100644 ArinWarev1/Forms/v20091231/Frm_NaengBang.Designer.vb create mode 100644 ArinWarev1/Forms/v20091231/Frm_NaengBang.resx create mode 100644 ArinWarev1/Forms/v20091231/Frm_NaengBang.vb create mode 100644 ArinWarev1/Forms/v20091231/Frm_Nanbang.Designer.vb create mode 100644 ArinWarev1/Forms/v20091231/Frm_Nanbang.resx create mode 100644 ArinWarev1/Forms/v20091231/Frm_Nanbang.vb create mode 100644 ArinWarev1/Forms/v20091231/Frm_New.Designer.vb create mode 100644 ArinWarev1/Forms/v20091231/Frm_New.resx create mode 100644 ArinWarev1/Forms/v20091231/Frm_New.vb create mode 100644 ArinWarev1/Forms/v20091231/Frm_YK.Designer.vb create mode 100644 ArinWarev1/Forms/v20091231/Frm_YK.resx create mode 100644 ArinWarev1/Forms/v20091231/Frm_YK.vb create mode 100644 ArinWarev1/Forms/v20091231/Frm_Zone.Designer.vb create mode 100644 ArinWarev1/Forms/v20091231/Frm_Zone.resx create mode 100644 ArinWarev1/Forms/v20091231/Frm_Zone.vb create mode 100644 ArinWarev1/Forms/v20091231/Frm_kongjo.Designer.vb create mode 100644 ArinWarev1/Forms/v20091231/Frm_kongjo.resx create mode 100644 ArinWarev1/Forms/v20091231/Frm_kongjo.vb create mode 100644 ArinWarev1/Forms/v20091231/Frm_kongkub.Designer.vb create mode 100644 ArinWarev1/Forms/v20091231/Frm_kongkub.resx create mode 100644 ArinWarev1/Forms/v20091231/Frm_kongkub.vb create mode 100644 ArinWarev1/Forms/v20091231/Frm_nBunbae.Designer.vb create mode 100644 ArinWarev1/Forms/v20091231/Frm_nBunbae.resx create mode 100644 ArinWarev1/Forms/v20091231/Frm_nBunbae.vb create mode 100644 ArinWarev1/Forms/v20091231/Frm_v20091231_Bunbae.Designer.vb create mode 100644 ArinWarev1/Forms/v20091231/Frm_v20091231_Bunbae.resx create mode 100644 ArinWarev1/Forms/v20091231/Frm_v20091231_Bunbae.vb create mode 100644 ArinWarev1/Forms/v20091231/Frm_v20091231_Desc.Designer.vb create mode 100644 ArinWarev1/Forms/v20091231/Frm_v20091231_Desc.resx create mode 100644 ArinWarev1/Forms/v20091231/Frm_v20091231_Desc.vb create mode 100644 ArinWarev1/Forms/v20091231/Frm_v20091231_Myoun.Designer.vb create mode 100644 ArinWarev1/Forms/v20091231/Frm_v20091231_Myoun.resx create mode 100644 ArinWarev1/Forms/v20091231/Frm_v20091231_Myoun.vb create mode 100644 ArinWarev1/Forms/v20091231/Frm_v20091231_NaengBang.Designer.vb create mode 100644 ArinWarev1/Forms/v20091231/Frm_v20091231_NaengBang.resx create mode 100644 ArinWarev1/Forms/v20091231/Frm_v20091231_NaengBang.vb create mode 100644 ArinWarev1/Forms/v20091231/Frm_v20091231_Nanbang.Designer.vb create mode 100644 ArinWarev1/Forms/v20091231/Frm_v20091231_Nanbang.resx create mode 100644 ArinWarev1/Forms/v20091231/Frm_v20091231_Nanbang.vb create mode 100644 ArinWarev1/Forms/v20091231/Frm_v20091231_New.Designer.vb create mode 100644 ArinWarev1/Forms/v20091231/Frm_v20091231_New.resx create mode 100644 ArinWarev1/Forms/v20091231/Frm_v20091231_New.vb create mode 100644 ArinWarev1/Forms/v20091231/Frm_v20091231_Report.Designer.vb create mode 100644 ArinWarev1/Forms/v20091231/Frm_v20091231_Report.resx create mode 100644 ArinWarev1/Forms/v20091231/Frm_v20091231_Report.vb create mode 100644 ArinWarev1/Forms/v20091231/Frm_v20091231_Report_auth.Designer.vb create mode 100644 ArinWarev1/Forms/v20091231/Frm_v20091231_Report_auth.resx create mode 100644 ArinWarev1/Forms/v20091231/Frm_v20091231_Report_auth.vb create mode 100644 ArinWarev1/Forms/v20091231/Frm_v20091231_ResultMax.Designer.vb create mode 100644 ArinWarev1/Forms/v20091231/Frm_v20091231_ResultMax.resx create mode 100644 ArinWarev1/Forms/v20091231/Frm_v20091231_ResultMax.vb create mode 100644 ArinWarev1/Forms/v20091231/Frm_v20091231_ResultMon.Designer.vb create mode 100644 ArinWarev1/Forms/v20091231/Frm_v20091231_ResultMon.resx create mode 100644 ArinWarev1/Forms/v20091231/Frm_v20091231_ResultMon.vb create mode 100644 ArinWarev1/Forms/v20091231/Frm_v20091231_ResultTotal.Designer.vb create mode 100644 ArinWarev1/Forms/v20091231/Frm_v20091231_ResultTotal.resx create mode 100644 ArinWarev1/Forms/v20091231/Frm_v20091231_ResultTotal.vb create mode 100644 ArinWarev1/Forms/v20091231/Frm_v20091231_Weather.Designer.vb create mode 100644 ArinWarev1/Forms/v20091231/Frm_v20091231_Weather.resx create mode 100644 ArinWarev1/Forms/v20091231/Frm_v20091231_Weather.vb create mode 100644 ArinWarev1/Forms/v20091231/Frm_v20091231_YK.Designer.vb create mode 100644 ArinWarev1/Forms/v20091231/Frm_v20091231_YK.resx create mode 100644 ArinWarev1/Forms/v20091231/Frm_v20091231_YK.vb create mode 100644 ArinWarev1/Forms/v20091231/Frm_v20091231_Zone.Designer.vb create mode 100644 ArinWarev1/Forms/v20091231/Frm_v20091231_Zone.resx create mode 100644 ArinWarev1/Forms/v20091231/Frm_v20091231_Zone.vb create mode 100644 ArinWarev1/Forms/v20091231/Frm_v20091231_buha.Designer.vb create mode 100644 ArinWarev1/Forms/v20091231/Frm_v20091231_buha.resx create mode 100644 ArinWarev1/Forms/v20091231/Frm_v20091231_buha.vb create mode 100644 ArinWarev1/Forms/v20091231/Frm_v20091231_kongjo.Designer.vb create mode 100644 ArinWarev1/Forms/v20091231/Frm_v20091231_kongjo.resx create mode 100644 ArinWarev1/Forms/v20091231/Frm_v20091231_kongjo.vb create mode 100644 ArinWarev1/Forms/v20091231/Frm_v20091231_kongkub.Designer.vb create mode 100644 ArinWarev1/Forms/v20091231/Frm_v20091231_kongkub.resx create mode 100644 ArinWarev1/Forms/v20091231/Frm_v20091231_kongkub.vb create mode 100644 ArinWarev1/Forms/v20091231/Frm_v20091231_nBunbae.Designer.vb create mode 100644 ArinWarev1/Forms/v20091231/Frm_v20091231_nBunbae.resx create mode 100644 ArinWarev1/Forms/v20091231/Frm_v20091231_nBunbae.vb create mode 100644 ArinWarev1/Forms/v20091231/Frm_v20091231_profile.Designer.vb create mode 100644 ArinWarev1/Forms/v20091231/Frm_v20091231_profile.resx create mode 100644 ArinWarev1/Forms/v20091231/Frm_v20091231_profile.vb create mode 100644 ArinWarev1/Forms/v20091231/ReadMe.txt create mode 100644 ArinWarev1/Forms/v20091231/Report_result.rdlc create mode 100644 ArinWarev1/Forms/v20091231/Report_result_auth.rdlc create mode 100644 ArinWarev1/Forms/v20091231/Report_total.rdlc create mode 100644 ArinWarev1/Forms_Basic/Frm_About.Designer.vb create mode 100644 ArinWarev1/Forms_Basic/Frm_About.resx create mode 100644 ArinWarev1/Forms_Basic/Frm_About.vb create mode 100644 ArinWarev1/Forms_Basic/Frm_Calc.Designer.vb create mode 100644 ArinWarev1/Forms_Basic/Frm_Calc.resx create mode 100644 ArinWarev1/Forms_Basic/Frm_Calc.vb create mode 100644 ArinWarev1/Forms_Basic/Frm_Common.Designer.vb create mode 100644 ArinWarev1/Forms_Basic/Frm_Common.resx create mode 100644 ArinWarev1/Forms_Basic/Frm_Common.vb create mode 100644 ArinWarev1/Forms_Basic/Frm_DisplayGubun.Designer.vb create mode 100644 ArinWarev1/Forms_Basic/Frm_DisplayGubun.resx create mode 100644 ArinWarev1/Forms_Basic/Frm_DisplayGubun.vb create mode 100644 ArinWarev1/Forms_Basic/Frm_FileInfo.Designer.vb create mode 100644 ArinWarev1/Forms_Basic/Frm_FileInfo.resx create mode 100644 ArinWarev1/Forms_Basic/Frm_FileInfo.vb create mode 100644 ArinWarev1/Forms_Basic/Frm_Filter.Designer.vb create mode 100644 ArinWarev1/Forms_Basic/Frm_Filter.resx create mode 100644 ArinWarev1/Forms_Basic/Frm_Filter.vb create mode 100644 ArinWarev1/Forms_Basic/Frm_Intro.Designer.vb create mode 100644 ArinWarev1/Forms_Basic/Frm_Intro.resx create mode 100644 ArinWarev1/Forms_Basic/Frm_Intro.vb create mode 100644 ArinWarev1/Forms_Basic/Frm_Login.Designer.vb create mode 100644 ArinWarev1/Forms_Basic/Frm_Login.resx create mode 100644 ArinWarev1/Forms_Basic/Frm_Login.vb create mode 100644 ArinWarev1/Forms_Basic/Frm_RepResult_Admin.Designer.vb create mode 100644 ArinWarev1/Forms_Basic/Frm_RepResult_Admin.resx create mode 100644 ArinWarev1/Forms_Basic/Frm_RepResult_Admin.vb create mode 100644 ArinWarev1/Forms_Basic/Frm_Warning.Designer.vb create mode 100644 ArinWarev1/Forms_Basic/Frm_Warning.resx create mode 100644 ArinWarev1/Forms_Basic/Frm_Warning.vb create mode 100644 ArinWarev1/Forms_Basic/Frm_Work.Designer.vb create mode 100644 ArinWarev1/Forms_Basic/Frm_Work.resx create mode 100644 ArinWarev1/Forms_Basic/Frm_Work.vb create mode 100644 ArinWarev1/Forms_Basic/Frm_import.Designer.vb create mode 100644 ArinWarev1/Forms_Basic/Frm_import.resx create mode 100644 ArinWarev1/Forms_Basic/Frm_import.sr-Cyrl-CS.resx create mode 100644 ArinWarev1/Forms_Basic/Frm_import.vb create mode 100644 ArinWarev1/Forms_Input/Frm_Bunbae.Designer.vb create mode 100644 ArinWarev1/Forms_Input/Frm_Bunbae.resx create mode 100644 ArinWarev1/Forms_Input/Frm_Bunbae.vb create mode 100644 ArinWarev1/Forms_Input/Frm_Desc.Designer.vb create mode 100644 ArinWarev1/Forms_Input/Frm_Desc.resx create mode 100644 ArinWarev1/Forms_Input/Frm_Desc.vb create mode 100644 ArinWarev1/Forms_Input/Frm_NaengBang.Designer.vb create mode 100644 ArinWarev1/Forms_Input/Frm_NaengBang.resx create mode 100644 ArinWarev1/Forms_Input/Frm_NaengBang.vb create mode 100644 ArinWarev1/Forms_Input/Frm_Nanbang.Designer.vb create mode 100644 ArinWarev1/Forms_Input/Frm_Nanbang.resx create mode 100644 ArinWarev1/Forms_Input/Frm_Nanbang.vb create mode 100644 ArinWarev1/Forms_Input/Frm_New.Designer.vb create mode 100644 ArinWarev1/Forms_Input/Frm_New.resx create mode 100644 ArinWarev1/Forms_Input/Frm_New.vb create mode 100644 ArinWarev1/Forms_Input/Frm_YK.Designer.vb create mode 100644 ArinWarev1/Forms_Input/Frm_YK.resx create mode 100644 ArinWarev1/Forms_Input/Frm_YK.vb create mode 100644 ArinWarev1/Forms_Input/Frm_Zone.Designer.vb create mode 100644 ArinWarev1/Forms_Input/Frm_Zone.resx create mode 100644 ArinWarev1/Forms_Input/Frm_Zone.vb create mode 100644 ArinWarev1/Forms_Input/Frm_kongjo.Designer.vb create mode 100644 ArinWarev1/Forms_Input/Frm_kongjo.resx create mode 100644 ArinWarev1/Forms_Input/Frm_kongjo.vb create mode 100644 ArinWarev1/Forms_Input/Frm_kongkub.Designer.vb create mode 100644 ArinWarev1/Forms_Input/Frm_kongkub.resx create mode 100644 ArinWarev1/Forms_Input/Frm_kongkub.vb create mode 100644 ArinWarev1/Forms_Input/Frm_nBunbae.Designer.vb create mode 100644 ArinWarev1/Forms_Input/Frm_nBunbae.resx create mode 100644 ArinWarev1/Forms_Input/Frm_nBunbae.vb create mode 100644 ArinWarev1/Forms_Input/Frm_v20091231_Myoun.Designer.vb create mode 100644 ArinWarev1/Forms_Input/Frm_v20091231_Myoun.resx create mode 100644 ArinWarev1/Forms_Input/Frm_v20091231_Myoun.vb create mode 100644 ArinWarev1/Forms_Input/Frm_v20091231_ResultMax.Designer.vb create mode 100644 ArinWarev1/Forms_Input/Frm_v20091231_ResultMax.resx create mode 100644 ArinWarev1/Forms_Input/Frm_v20091231_ResultMax.vb create mode 100644 ArinWarev1/Forms_Input/Frm_v20091231_ResultMon.Designer.vb create mode 100644 ArinWarev1/Forms_Input/Frm_v20091231_ResultMon.resx create mode 100644 ArinWarev1/Forms_Input/Frm_v20091231_ResultMon.vb create mode 100644 ArinWarev1/Forms_Input/Frm_v20091231_Weather.Designer.vb create mode 100644 ArinWarev1/Forms_Input/Frm_v20091231_Weather.resx create mode 100644 ArinWarev1/Forms_Input/Frm_v20091231_Weather.vb create mode 100644 ArinWarev1/Forms_Input/Frm_v20091231_buha.Designer.vb create mode 100644 ArinWarev1/Forms_Input/Frm_v20091231_buha.resx create mode 100644 ArinWarev1/Forms_Input/Frm_v20091231_buha.vb create mode 100644 ArinWarev1/Forms_Input/Frm_v20091231_profile.Designer.vb create mode 100644 ArinWarev1/Forms_Input/Frm_v20091231_profile.resx create mode 100644 ArinWarev1/Forms_Input/Frm_v20091231_profile.vb create mode 100644 ArinWarev1/Forms_Input/ReadMe.txt create mode 100644 ArinWarev1/Forms_Input/frm_monuse.Designer.vb create mode 100644 ArinWarev1/Forms_Input/frm_monuse.resx create mode 100644 ArinWarev1/Forms_Input/frm_monuse.vb create mode 100644 ArinWarev1/Forms_Report/Frm_Export.Designer.vb create mode 100644 ArinWarev1/Forms_Report/Frm_Export.resx create mode 100644 ArinWarev1/Forms_Report/Frm_Export.vb create mode 100644 ArinWarev1/Forms_Report/Frm_Upload.Designer.vb create mode 100644 ArinWarev1/Forms_Report/Frm_Upload.resx create mode 100644 ArinWarev1/Forms_Report/Frm_Upload.vb create mode 100644 ArinWarev1/Forms_Report/Report_Graph - 백업.rdlc create mode 100644 ArinWarev1/Forms_Report/Report_Graph.Designer.vb create mode 100644 ArinWarev1/Forms_Report/Report_Graph.rdlc create mode 100644 ArinWarev1/Forms_Report/Report_Graph.resx create mode 100644 ArinWarev1/Forms_Report/Report_Graph.vb create mode 100644 ArinWarev1/Forms_Report/Report_Graph_auth - 백업.rdlc create mode 100644 ArinWarev1/Forms_Report/Report_Graph_auth.Designer.vb create mode 100644 ArinWarev1/Forms_Report/Report_Graph_auth.rdlc create mode 100644 ArinWarev1/Forms_Report/Report_Graph_auth.resx create mode 100644 ArinWarev1/Forms_Report/Report_Graph_auth.vb create mode 100644 ArinWarev1/Forms_Report/Report_Total.Designer.vb create mode 100644 ArinWarev1/Forms_Report/Report_Total.resx create mode 100644 ArinWarev1/Forms_Report/Report_Total.vb create mode 100644 ArinWarev1/Forms_Report/Report_pyonga.Designer.vb create mode 100644 ArinWarev1/Forms_Report/Report_pyonga.rdlc create mode 100644 ArinWarev1/Forms_Report/Report_pyonga.resx create mode 100644 ArinWarev1/Forms_Report/Report_pyonga.vb create mode 100644 ArinWarev1/Forms_Report/Report_total - 백업.rdlc create mode 100644 ArinWarev1/Forms_Report/Report_total.rdlc create mode 100644 ArinWarev1/Forms_Report/Report_그래프.Designer.vb create mode 100644 ArinWarev1/Forms_Report/Report_그래프.resx create mode 100644 ArinWarev1/Forms_Report/Report_그래프.vb create mode 100644 ArinWarev1/Forms_Report/Report_설계개선.Designer.vb create mode 100644 ArinWarev1/Forms_Report/Report_설계개선.rdlc create mode 100644 ArinWarev1/Forms_Report/Report_설계개선.resx create mode 100644 ArinWarev1/Forms_Report/Report_설계개선.vb create mode 100644 ArinWarev1/Forms_Report/그래프.rdlc create mode 100644 ArinWarev1/Forms_Report/평가서.rdlc create mode 100644 ArinWarev1/Frm_History.Designer.vb create mode 100644 ArinWarev1/Frm_History.resx create mode 100644 ArinWarev1/Frm_History.vb create mode 100644 ArinWarev1/MdiMain.Designer.vb create mode 100644 ArinWarev1/MdiMain.resx create mode 100644 ArinWarev1/MdiMain.vb create mode 100644 ArinWarev1/Module/CForm.Designer.vb create mode 100644 ArinWarev1/Module/CForm.resx create mode 100644 ArinWarev1/Module/CForm.vb create mode 100644 ArinWarev1/Module/CLang.vb create mode 100644 ArinWarev1/Module/CMenu.vb create mode 100644 ArinWarev1/Module/Enum.vb create mode 100644 ArinWarev1/Module/Pub.vb create mode 100644 ArinWarev1/My Project/Application.Designer.vb create mode 100644 ArinWarev1/My Project/Application.myapp create mode 100644 ArinWarev1/My Project/ApplicationEvents.vb create mode 100644 ArinWarev1/My Project/AssemblyInfo.vb create mode 100644 ArinWarev1/My Project/Resources.Designer.vb create mode 100644 ArinWarev1/My Project/Resources.resx create mode 100644 ArinWarev1/My Project/Settings.Designer.vb create mode 100644 ArinWarev1/My Project/Settings.settings create mode 100644 ArinWarev1/My Project/app.manifest create mode 100644 ArinWarev1/My Project/licenses.licx create mode 100644 ArinWarev1/My Project/licenses.licx.bak create mode 100644 ArinWarev1/ReadMe.txt create mode 100644 ArinWarev1/Resources/addbk_16.png create mode 100644 ArinWarev1/Resources/addbk_24.png create mode 100644 ArinWarev1/Resources/adfav_16.png create mode 100644 ArinWarev1/Resources/apps_32.png create mode 100644 ArinWarev1/Resources/cancl_32.png create mode 100644 ArinWarev1/Resources/default.png create mode 100644 ArinWarev1/Resources/del_16.png create mode 100644 ArinWarev1/Resources/edit_16.png create mode 100644 ArinWarev1/Resources/group_24.png create mode 100644 ArinWarev1/Resources/new_32.png create mode 100644 ArinWarev1/Resources/page_copy.png create mode 100644 ArinWarev1/Resources/paste_16.png create mode 100644 ArinWarev1/Resources/ref_24.png create mode 100644 ArinWarev1/Resources/remov_32.png create mode 100644 ArinWarev1/Resources/save_16.png create mode 100644 ArinWarev1/Resources/select_by_difference.png create mode 100644 ArinWarev1/Resources/user_16.png create mode 100644 ArinWarev1/Resources/user_24.png create mode 100644 ArinWarev1/Resources/wiz_16.png create mode 100644 ArinWarev1/Resources/건물개요.jpg create mode 100644 ArinWarev1/Resources/폼배경.jpg create mode 100644 ArinWarev1/SplashScreen1.Designer.vb create mode 100644 ArinWarev1/SplashScreen1.resx create mode 100644 ArinWarev1/SplashScreen1.vb create mode 100644 ArinWarev1/Template/ReadMe.txt create mode 100644 ArinWarev1/Template/Resources/addbk_16.png create mode 100644 ArinWarev1/Template/Resources/addbk_24.png create mode 100644 ArinWarev1/Template/Resources/adfav_16.png create mode 100644 ArinWarev1/Template/Resources/apps_32.png create mode 100644 ArinWarev1/Template/Resources/cancl_32.png create mode 100644 ArinWarev1/Template/Resources/default.png create mode 100644 ArinWarev1/Template/Resources/del_16.png create mode 100644 ArinWarev1/Template/Resources/edit_16.png create mode 100644 ArinWarev1/Template/Resources/group_24.png create mode 100644 ArinWarev1/Template/Resources/new_32.png create mode 100644 ArinWarev1/Template/Resources/paste_16.png create mode 100644 ArinWarev1/Template/Resources/ref_24.png create mode 100644 ArinWarev1/Template/Resources/remov_32.png create mode 100644 ArinWarev1/Template/Resources/save_16.png create mode 100644 ArinWarev1/Template/Resources/user_16.png create mode 100644 ArinWarev1/Template/Resources/user_24.png create mode 100644 ArinWarev1/Template/Resources/wiz_16.png create mode 100644 ArinWarev1/Template/Resources/건물개요.jpg create mode 100644 ArinWarev1/Template/Resources/폼배경.jpg create mode 100644 ArinWarev1/Template/Sample create mode 100644 ArinWarev1/Template/Sample.tpl create mode 100644 ArinWarev1/UpdateList.txt create mode 100644 ArinWarev1/UserControls/ArinDv.Designer.vb create mode 100644 ArinWarev1/UserControls/ArinDv.vb create mode 100644 ArinWarev1/UserControls/MyCmb.Designer.vb create mode 100644 ArinWarev1/UserControls/MyCmb.vb create mode 100644 ArinWarev1/UserControls/MyTb.Designer.vb create mode 100644 ArinWarev1/UserControls/MyTb.vb create mode 100644 ArinWarev1/UserControls/YkCtl.Designer.vb create mode 100644 ArinWarev1/UserControls/YkCtl.vb create mode 100644 ArinWarev1/app.config create mode 100644 ArinWarev1/eco2DataSet.Designer.vb create mode 100644 ArinWarev1/eco2DataSet.vb create mode 100644 ArinWarev1/eco2DataSet.xsc create mode 100644 ArinWarev1/eco2DataSet.xsd create mode 100644 ArinWarev1/eco2DataSet.xss create mode 100644 ArinWarev1/icon5.ico create mode 100644 ArinWarev1/login.dat create mode 100644 ArinWarev1/new create mode 100644 ArinWarev1/new1 create mode 100644 ArinWarev1/upload.xlsx create mode 100644 ArinWarev1/개선그래프.png create mode 100644 ArinWarev1/개요.png create mode 100644 ArinWarev1/결과.png create mode 100644 ArinWarev1/계산.png create mode 100644 ArinWarev1/그래프.png create mode 100644 ArinWarev1/내보내기.png create mode 100644 ArinWarev1/다른이름저장.png create mode 100644 ArinWarev1/다른이름저장2.png create mode 100644 ArinWarev1/다른저장.png create mode 100644 ArinWarev1/단축키.txt create mode 100644 ArinWarev1/돋보기.png create mode 100644 ArinWarev1/방위.jpg create mode 100644 ArinWarev1/방위.png create mode 100644 ArinWarev1/방위2.png create mode 100644 ArinWarev1/신규.png create mode 100644 ArinWarev1/열기.png create mode 100644 ArinWarev1/저장.png create mode 100644 ArinWarev1/프린터.png create mode 100644 ArinWarev1_Report.suo create mode 100644 CEnergy.dll create mode 100644 CEnergy/ArinClassV2/ArinDV.Designer.vb create mode 100644 CEnergy/ArinClassV2/ArinDV.vb create mode 100644 CEnergy/ArinClassV2/CEnergy.vbproj create mode 100644 CEnergy/ArinClassV2/Common.vb create mode 100644 CEnergy/ArinClassV2/Dbbase.vb create mode 100644 CEnergy/ArinClassV2/My Project/Application.Designer.vb create mode 100644 CEnergy/ArinClassV2/My Project/Application.myapp create mode 100644 CEnergy/ArinClassV2/My Project/AssemblyInfo.vb create mode 100644 CEnergy/ArinClassV2/My Project/Resources.Designer.vb create mode 100644 CEnergy/ArinClassV2/My Project/Resources.resx create mode 100644 CEnergy/ArinClassV2/My Project/Settings.Designer.vb create mode 100644 CEnergy/ArinClassV2/My Project/Settings.settings create mode 100644 CEnergy/ArinClassV2/MyINI.vb create mode 100644 CEnergy/ArinClassV2/T4key.pfx create mode 100644 CEnergy/ArinClassV2/app.config create mode 100644 CEnergy/CEnergy.sln create mode 100644 Document.txt create mode 100644 Dotfuscator1_v2010.xml create mode 100644 Interop.Excel.dll create mode 100644 Interop.VBIDE.dll create mode 100644 Lov.dll create mode 100644 Microsoft.ReportViewer.Common.dll create mode 100644 Microsoft.ReportViewer.WinForms.dll create mode 100644 SetupIS/SetupIS.isl create mode 100644 SetupIS/SetupIS.isl.774 create mode 100644 SetupIS/SetupIS.isproj create mode 100644 login.dat create mode 100644 mainicon.gif create mode 100644 new create mode 100644 new1 create mode 100644 sample.tpl create mode 100644 sample_0307.tpl create mode 100644 sample_200.tpl create mode 100644 설치과정.txt diff --git a/.gitignore b/.gitignore new file mode 100644 index 0000000..f99c7ae --- /dev/null +++ b/.gitignore @@ -0,0 +1,6 @@ +/obj +/ArinLog/*.suo +/ArinLogin/*.suo +/ArinNet/*.suo +/CEnergy/*.suo +/CEnergy/ArinClassV2/*.user diff --git a/ArinLog.Net4.dll b/ArinLog.Net4.dll new file mode 100644 index 0000000000000000000000000000000000000000..3568fb6969c6b1854061793107202c2e28589480 GIT binary patch literal 14848 zcmeHO4Rjn=b-r(A_E+{=E6M+VaurA4yj*h=g~vQ~dse@JUPAx`c68A(f4JDZtZ z+lq;;;Lye;96}q;0g5?Jpn<@l5RQQWfeHu8PkOxyOPjVyOVZM$-+eQ) zyRro*w5R8^B{P~k@7{OcefQmW-+gc1TMfPOK2nKD!}H23M33UlSEq!(8O$O(vi@@s zx)}P_hDXKVw>BiEvbJ8Z%tZa{hqcr3QXIXJlKS(T=J0T1a4FRJR-#(@ zS9!ar!$L3g5*_CBEYUv(U1Ig?0?{JIj}fim_p7~hqH1wL;Qdu)V@2a+5qM%N0PxooJB^uQ$F~KGM#@9vUe)}8G zeNo{3PCU8s8M|mq$HolXELmy8E~mzfWX7bHm?8_UaqLs`w>7%7oE}K4J%p}a)jQqaT?%l~<>0Q^hcC@t{EqgjPUR_x!U(8M$ zUhU&Xk^SAfM!Vwt$2zZ58liG{JKh+D;q4FEe!ONu)9e7JP)@TkqQkQ=jb?{91x{@{ zQGJUbL@NSw^fZ?+G5EsU%XActp62obg#vuty*OIHXf^bSQ8 zwJ{1}W1Y-#>V|#7*+5f&GvVE;rvvRq`>-ARklqN$R)tnnHUmbI;EM0fbjjX=yz02Yi?&>A-*St}IPT!vhyaJY^v z)K+NRf;>m4Vxr6ZvWRkutFeF=8n=SMMi+$dgb!%SDTd}Y;3jMrZmzAS>;Ofvo0yrK zqO1>@a1B2gw<{}E%|wR)8B^4IVL!!e2BYRP*E%flXCKX=k#IoRiZzh!TvVr2RCQY# zdy`_Kv;13}*34sZTC?Wuu#s3CTIMwC!O(KqvIj#e6cgt3KNwo+5>`2NJs4Uo8~k9X z5%XGAlcf?hYdv{&!a~iC;aF-n5J;^PjjuzodaX{g`Z&J@7%EXr3>tr9tHf5R=1wHm zH<)b_Up+5(jpo)JR!*_`{AN42w)mRYIk>rt%Vt`ZsMZK-@H#!WKQP z)s#9esGxKWweeaA*4SgXtI!V`eHm}W0Jk5Oh^u=b<5gRoS#A58fM@%FYx{s_`+#fv zfM@%FYx}?zwukJpv8!z5xb&4~S~AZ}t)5-BuSR>uxLs%uM_<3W8|`)d7Hbn%jvRQ) z%?>71`EX^dEe}6kySec?h z2tVE63X?;)N}wli?OJMJc^m^-9)@G|v<}B;XuJ^unsnT4ZcIP4s5GJ2^dGw6gh0n>ikX zu#0$aJUC7TglsnH#=e6CP=aQG-;2PuaevNC0q0ABT@J7PbSQ+tN&mLFjT^_cqjzNe zP?Zpk2#ussJkX!eNJ2G|k9oOWP=o!P=O;-=z?5&eiCm+g9$c|SPRqg+7MC$!-5_+~ zr(w}2!t@X*e%hqSwDM-fPv2FZ0DMmQTfn^92hP13!zl?%68=QOGrqjfPoMDpi7$eg z&+m`WS^qTP`y~9j{}I2Rp7&q&hiPY^CJ?6A2kI$8X9B5!pDqUO2mH$bOa52DFf9qz zLz7#BHw683dypyTKnc_NAea4AkoEi#=zjV|kTu*EVxHH9Y9J>g)A^7N%KJlihQjm> zNq;fKoO+n+x;1?b>X85-UfhPw0@NPnJw01x!j&m>Q%hB>=xw$}LRjWx`FqK5T( zt4v>z@beNrCE?#o7+!P$G91e@bgaFNcEfW#Y(KCNFz)$U8UnT$m`Xk{A4b{5;0;R5 zaIqy)&MeI$&yQI}0p~r)+XfqMkl1-(yMXa1Bl-Y+44k^eYBBrnrY^dMS0BjxmaK0h ze5#eQLI?aK(F}M|TnG4l(Fcj2Qtkum)5>|k|4<$PT&jK)uuc6q;Dq{lXmLXQBGPvu zE$AXs{LgCZ#i7|3v}*u=C85v9=^6>^BwQxpdI>j6*eqd(gk2K$OE@ZFLc&`m%t$x| z7^QdkP60mVI|JC}KQDqCU;y&3SS9MAPwhNxg~XyO4vOW-i%YCNctorQcErWrA{v1e zUF@S`7qEL>?CWAbun$VCS6QN@fz7$t3S|oY_>{!X(l#Xr>{&OjRk@w}m^kKn zur(4BbdxfR9^WG|M{A8bC8h>*%G*ez;=H_jfa&B9YU-aN?}IM35txtW9M0fg^^@qA zr(CRG{WP%4E_R=KJ63-$xY&d0C0+||lr{@~5qUvsaIq(l7bM-m=zGWu(H>y^(z;&- z7ThGu(evt4Sj{$+u^++UTMwp@E2LGA^K^(t&7ggjiT ztl^b1)~lY?e1hW~=k=UT_UPDly0M*U+5AmIb^04~T2%DYx8ViSeLWrZ60-f>D(z4ot|j2Wx8u{f$~% ztI*FS{g*QRicI@7j`vJa>DN)hlBZs)@C-}JEr5dFA=CE*s`Oq!jouIFqmKg$`lf_e z@(6m-7a|@R=Kwz{-UIkmcqCIEkZ_ZPO%k?CxYwn#FE$awb_w@N_^`}=(U(`-X>6E$Mm{TsQ-Gb}t7F=()LYOb*6 z&xserOX6iQtc)qQDkS{~^E(U=UG=cTVa671X8z`fw|#F8~-ooeFjoYM@60W)}rL#BeESh{_VKkTRA_ zxEc8hZ9%@Et$+$`$9h>oU#_GQ?tAF3#1F)e#ZSd$04;QGN?mlBl6zSVd^JP-9|M zO(`o`MMH}XilvJtnzUf~xZyOc+;V4glbq(Es4P2a6pxlUrpw9sHX!Dzs+*=6yMpJS z4Qnu?Oiaty6)c=vZS(1)^ZMWl?&=DwOZD824!6mqJ_EgAPj%x+h!Qgeg9-ATFr6PDXyjiW~g@^&$qPa}nJo^=t5XYGP%&(CHRA;v54Yi!G%==e=+AP=v~Cv((oB6YHO zD48o6a2mFyB(PRxaqb55zzFqbbH+e^!lVf#$fYOvP{+}Ie<_=T`%$ViF@aYylR4`7 zADO8)&38t!jA`?@QQkWgTIZIfGGA9FLn$*eGi^^& z5~@y+9A?lhDK)|7R%+NrW zJ(EvkD5DI?bayhBOC{5{(SBnxn;*y@$FTwNfdEaGQl&iN(Ik0-%e)>zN*FJ4ojv)C zTX3E`REOBs@#`_N@;vMK#)i5EDbYPj2YPPa zKhiZ8r=gL9<2^JwHqzZQK2AuFb&m`u#zqEde;1PR9y&BIJ}@#2mVx0!&lrt#%g2#8 zG?L)F@iz?8*!a%2ot`UJBAS;PO6HT3a7D{KiUIC1_hI8Enakec1YY;pMS8c#?9!w+ zTq%$}#LH&~@zT;3_F%{<~frXC|lJ((5r(N)CGRtodUl^ITVmsQOeadSGxvM|Uk zM1s5l#f=PytcnbmJ)TWY=1m*!YD33VX%fcn&t@`4zQVe2sP`)Hf)YXqW~Zc;apuiR zafmY<8V|qDs-E<90C$%`ifTE&E;t3rrfr9 zn#y=>7Rrjkc347W=XI(#ND7B!?42@m+jEq2B)v$SjM$kUi(q`sD(lXqs zr^~jD=~Qk;jsj*bC(40zG+CT-qdm_aShgUDxk2`7Zt1T*C$n}DRmpixQiig*9F`?% zGmik4FJb^g)N$t|)TYs7W-L27g>Y6V82QW~H-?oNH1dSAw8yfzmvcta znn$TfDO;nrl*`GvV+@NmPb%xmq3q)jt6CPGO~>s zx#UTiva4F-j5g_L#cV2@%NA!UxnA4cA?comL%2K3_2Nf021fC1l_Fky+0rh5C9|)T zts3wiYr;xqjOpY;Qo7B;jK$tok>Qm>zh+A51u|q?@>Q+yN+9^8t*ms(tHmX<#p)pJ zt@MYDVtcs{7>Q+aIebuH8~F$}kY@;MZQL2$6pG;+{UjdR$n<8J(=79J>;?4Wq+uHO zb!6ifDvk^TEyOq7h~+-+5j;AUlT&0+9x3PEO0UEHs*RB=CB+1bSMg@vYRKe*EXwRQ$1<{;>Bz z;v+w%;AieQa%g4y<#WML+<5d%^t<8fR2_Puaroq_TNLmwty>}L7BLcZksu>c7l|^` z;35rL5M>wy8AKU0Xu43=Kxh!3xOGdBh$!nQP%E&Xh-&ZMtp+ux2C2rfO$w`qQ;-H znx6rGbE3Tfd?uvvN34dEG1B;`NW-~3X%Pl|@TBoE724B*XCE7|gTX!=S_t4US_gxD z$Zg_`CdQgrv*kT!5p0#eO^Lye+#YjYLFW~9UJY7+`w}3? zAj+TtJE%4Isw_ul!l6|F1o^#1^@1Wmsy~`MTJ^^hKE1`7HEICci2;Fg8&S73YOwgF zz#~4?u?{vtmxG30*ERG=B$5==?uHi#i+Pi048yu;rp=rk8#j}M{$jDvoy%g;$29CE}uL{Gp*pBrS45;;RF?Ks46g~{%AD}38CBC7v3d2V?`$-MLb$syL z*}H(S(kKv#1kjs&$((a&RCF_XFS0fQJ4Dz&BSF+tw}J6s1j8s2-5lM#HWIAUeE|i0 zvfz0bO4QB1%O6k_=M}*VJ2J`|I3nu&Sb!ZHZ*bIgz%5|WeVsTO@`AEA4a5?rG*=N* z#$;}W*E|_-ws1fB0`BjZ&`x<8CL4^}KZQS*+jO&_16M8t$BU&*){HspRCI?sMLA12 z!zvTTF(2d%j`!|tXAIL#8r{OaJo^Q-I_`xAF`*=cGcGyZ5FjJP- z5ZFt>LRnzhLTzSe#CFr48xtK@C(|_q<79||383vzrE#C`LI1bk>UP5sY<3*MYRJH6-4T}-lXH6^lY+35&)foZkm-92=3UH9^wW7XMjZN!zlM%LM~~i( za;&6#UHAk1#M&t)DPOzCJ;HYLSKLMPJ|{d%%KKDA6FNlWbQF+RjN>?48lhp}1Ax6q z^YsPoxtCcVfj#%VzIEj{egGsd4X{cLNs9vtNKInB*o&294r|5%tS2Y1hU9A#aj67y zlc3tjPhy>$MQ&c^6MaJa6@&`tRCL#(*iO4j()T2fv+8BoPAOjh5}!B;{MyEpD`Z~% z7Eue~EYVrlZUv^ht6P3&QI2)7u+HYI9p@Kb`GVAO1{O&|8X`0k z9X8!5HD%A*D{WYj>-2U8^-N2v-6nfvVOtK$c8$0?@RtZ{=Jh{gPEWj=_O-}<8HFqp ztuCQYid7b>)bI62r|ggU{8#qMZ|)QRRZtgNXUn#xp!p0ev#^YXdX;;{`F9B&?@l~I zju!+K`1``wtP^o&X9+1hxS0enH#Y~$EAo&30R|~NxS7P@zk8jScNMhwysMz0lFIeM zYk0*NNWmWWR9|;rZNEY98vgdT2Z{ylo7LBs5d^BQ&fmH>=cxl^4(>MlKliARAE>Ug z5gPLxtmESj^H_H zIq%}3Ham~Sv=Yz!IDxNqFrN3TruJ7M_;-k<)A^0<= + + + Debug + AnyCPU + + + + + {E9E16A98-8F8D-4848-A27E-4571C184FB1A} + Library + ArinLog + ArinLog.Net4 + 512 + Windows + v4.0 + + + true + full + true + true + bin\Debug\ + ArinLog.Net4.xml + 42016,41999,42017,42018,42019,42032,42036,42020,42021,42022 + x86 + + + pdbonly + false + true + true + bin\Debug\ + ArinLog.Net4.xml + 42016,41999,42017,42018,42019,42032,42036,42020,42021,42022 + x86 + + + On + + + Binary + + + Off + + + On + + + + + + + + + + + + + + + + + + + + + + + + True + Application.myapp + + + True + True + Resources.resx + + + True + Settings.settings + True + + + + + VbMyResourcesResXFileCodeGenerator + Resources.Designer.vb + My.Resources + Designer + + + + + MyApplicationCodeGenerator + Application.Designer.vb + + + SettingsSingleFileGenerator + My + Settings.Designer.vb + + + + + \ No newline at end of file diff --git a/ArinLog/Class1.vb b/ArinLog/Class1.vb new file mode 100644 index 0000000..72a376c --- /dev/null +++ b/ArinLog/Class1.vb @@ -0,0 +1,156 @@ +Public Class ArinLog + + Dim file As System.IO.FileInfo + Dim buffer As System.Text.StringBuilder + 'Dim Datatable As DataTable + Public Event RaiseMsg(time As String, gubun As ETYPE, msg As String) + Public Property DivChar As Char + Public Property Header As String + Public Property FlushCount As Integer + Private CurCount As Integer = 0 + + Public Enum ETYPE + STARTUP + SHUTDOWN + [ERROR] + NORMAL + NETWORK + KEYBOARD + MOUSE + PROCESS + USERCONTROL + BARCODE + VISION + PRINTER + MOTION + SQL + RS232 + DATABASE + ETC + CALC + End Enum + + + Dim setdate As String = "" + Public FlushTime As Date = Now '//실기록완료한시간 + Public Property BaseDirectory As String + Public Property BaseExt As String + + Private LAstTime As Date = Now.AddSeconds(-100) + Private LAStData As String = "" + + Public Property LogEnable As Boolean + + Public Function GetBuffer() As String + Return buffer.ToString + End Function + + Public Sub New(Optional BaseDir As String = "", Optional _BaseExt As String = ".txt") + If BaseDir = "" Then BaseDir = My.Application.Info.DirectoryPath + "\Log" + BaseDirectory = BaseDir + BaseExt = _BaseExt + + setdate = Now.ToString("yyMMdd") + Me.file = New System.IO.FileInfo(BaseDirectory + "\" & setdate & _BaseExt) + If file.Directory.Exists = False Then file.Directory.Create() + buffer = New System.Text.StringBuilder + + DivChar = vbTab + Header = "" + FlushCount = 10 + LogEnable = True + 'Datatable = New DataTable + 'Datatable.Columns.Add("시간") + 'Datatable.Columns.Add("형태") + 'Datatable.Columns.Add("메세지") + End Sub + + Public Sub Add(bodymsg As String, Optional autof As Boolean = False) + If Not LogEnable Then Return + Add(ETYPE.NORMAL, bodymsg, autof) + End Sub + + Public Sub Add(TYPE As ETYPE, bodymsg As String, Optional autof As Boolean = False) + If Not LogEnable Then Return + Add(TYPE.ToString(), bodymsg, autof) + End Sub + + Public Sub Add(TYPE As String, bodymsg As String, Optional autof As Boolean = False) + If Not LogEnable Then Return + + If setdate <> Now.ToString("yyMMdd") Then '//날짜가 달라지면 파일을 변경한다. + Flush() + setdate = Now.ToString("yyMMdd") + Me.file = New System.IO.FileInfo(BaseDirectory & "\" + setdate & _BaseExt) + End If + + + Dim nowdate As Date = Now + Dim m As String = nowdate.ToString("yy-MM-dd HH:mm:ss") & "." & nowdate.Millisecond.ToString("000") & DivChar & TYPE.ToString.PadRight(20) & DivChar & bodymsg + + If m <> LAStData Then + CurCount += 1 + buffer.AppendLine(m) + LAStData = m + If autof OrElse buffer.Length > 100 OrElse TYPE = "ERROR" OrElse CurCount > FlushCount Then '//에러발생시에는 바로 플러싱" Then + Flush() + End If + '//메세지발생함 + RaiseEvent RaiseMsg(nowdate.ToString("yy-MM-dd HH:mm:ss") & "." & nowdate.Millisecond.ToString("000"), TYPE, bodymsg) + End If + End Sub + + Public Sub Add(DataTime As Date, Msg As String, Optional autof As Boolean = False) + If Not LogEnable Then Return + + If setdate <> DataTime.ToString("yyMMdd") Then '//날짜가 달라지면 파일을 변경한다. + Flush() + setdate = DataTime.ToString("yyMMdd") + Me.file = New System.IO.FileInfo(BaseDirectory & "\" + setdate & _BaseExt) + End If + + Dim m As String = DataTime.ToString("yy-MM-dd HH:mm:ss") & DivChar & Msg + If m <> LAStData Then + CurCount += 1 + buffer.AppendLine(m) + LAStData = m + If autof OrElse buffer.Length > 100 OrElse CurCount > FlushCount Then '//에러발생시에는 바로 플러싱" Then + Flush() + End If + '//메세지발생함 + RaiseEvent RaiseMsg(DataTime.ToString("yy-MM-dd HH:mm:ss") & "." & DataTime.Millisecond.ToString("000"), ETYPE.NORMAL, Msg) + Else + '//동일데이터는 처리하지 않는다. + End If + + + '//메세지발생함 + End Sub + + + Public Function Flush() As Boolean + Try + If Not (System.IO.File.Exists(file.FullName)) AndAlso Header <> "" Then + My.Computer.FileSystem.WriteAllText(file.ToString, Header + vbCrLf, True) + End If + + My.Computer.FileSystem.WriteAllText(file.ToString, buffer.ToString, True) + + buffer = New System.Text.StringBuilder + FlushTime = Now + CurCount = 0 + Return True + Catch ex As Exception + Return False + End Try + + End Function + + Public Overrides Function toString() As String + Try + Return My.Computer.FileSystem.ReadAllText(file.FullName) + Catch ex As Exception + Return "" + End Try + End Function +End Class \ No newline at end of file diff --git a/ArinLog/My Project/Application.Designer.vb b/ArinLog/My Project/Application.Designer.vb new file mode 100644 index 0000000..96b7331 --- /dev/null +++ b/ArinLog/My Project/Application.Designer.vb @@ -0,0 +1,13 @@ +'------------------------------------------------------------------------------ +' +' This code was generated by a tool. +' Runtime Version:4.0.30319.34011 +' +' Changes to this file may cause incorrect behavior and will be lost if +' the code is regenerated. +' +'------------------------------------------------------------------------------ + +Option Strict On +Option Explicit On + diff --git a/ArinLog/My Project/Application.myapp b/ArinLog/My Project/Application.myapp new file mode 100644 index 0000000..758895d --- /dev/null +++ b/ArinLog/My Project/Application.myapp @@ -0,0 +1,10 @@ + + + false + false + 0 + true + 0 + 1 + true + diff --git a/ArinLog/My Project/AssemblyInfo.vb b/ArinLog/My Project/AssemblyInfo.vb new file mode 100644 index 0000000..b0ff529 --- /dev/null +++ b/ArinLog/My Project/AssemblyInfo.vb @@ -0,0 +1,35 @@ +Imports System +Imports System.Reflection +Imports System.Runtime.InteropServices + +' 어셈블리의 일반 정보는 다음 특성 집합을 통해 제어됩니다. +' 어셈블리와 관련된 정보를 수정하려면 +' 이 특성 값을 변경하십시오. + +' 어셈블리 특성 값을 검토합니다. + + + + + + + + + + +'이 프로젝트가 COM에 노출되는 경우 다음 GUID는 typelib의 ID를 나타냅니다. + + +' 어셈블리의 버전 정보는 다음 네 가지 값으로 구성됩니다. +' +' 주 버전 +' 부 버전 +' 빌드 번호 +' 수정 버전 +' +' 모든 값을 지정하거나 아래와 같이 '*'를 사용하여 빌드 번호 및 수정 버전이 자동으로 +' 지정되도록 할 수 있습니다. +' + + + diff --git a/ArinLog/My Project/Resources.Designer.vb b/ArinLog/My Project/Resources.Designer.vb new file mode 100644 index 0000000..77181ed --- /dev/null +++ b/ArinLog/My Project/Resources.Designer.vb @@ -0,0 +1,62 @@ +'------------------------------------------------------------------------------ +' +' This code was generated by a tool. +' Runtime Version:4.0.30319.34011 +' +' Changes to this file may cause incorrect behavior and will be lost if +' the code is regenerated. +' +'------------------------------------------------------------------------------ + +Option Strict On +Option Explicit On + + +Namespace My.Resources + + 'This class was auto-generated by the StronglyTypedResourceBuilder + 'class via a tool like ResGen or Visual Studio. + 'To add or remove a member, edit your .ResX file then rerun ResGen + 'with the /str option, or rebuild your VS project. + ''' + ''' A strongly-typed resource class, for looking up localized strings, etc. + ''' + _ + Friend Module Resources + + Private resourceMan As Global.System.Resources.ResourceManager + + Private resourceCulture As Global.System.Globalization.CultureInfo + + ''' + ''' Returns the cached ResourceManager instance used by this class. + ''' + _ + Friend ReadOnly Property ResourceManager() As Global.System.Resources.ResourceManager + Get + If Object.ReferenceEquals(resourceMan, Nothing) Then + Dim temp As Global.System.Resources.ResourceManager = New Global.System.Resources.ResourceManager("ArinLog.Resources", GetType(Resources).Assembly) + resourceMan = temp + End If + Return resourceMan + End Get + End Property + + ''' + ''' Overrides the current thread's CurrentUICulture property for all + ''' resource lookups using this strongly typed resource class. + ''' + _ + Friend Property Culture() As Global.System.Globalization.CultureInfo + Get + Return resourceCulture + End Get + Set(ByVal value As Global.System.Globalization.CultureInfo) + resourceCulture = value + End Set + End Property + End Module +End Namespace diff --git a/ArinLog/My Project/Resources.resx b/ArinLog/My Project/Resources.resx new file mode 100644 index 0000000..af7dbeb --- /dev/null +++ b/ArinLog/My Project/Resources.resx @@ -0,0 +1,117 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + \ No newline at end of file diff --git a/ArinLog/My Project/Settings.Designer.vb b/ArinLog/My Project/Settings.Designer.vb new file mode 100644 index 0000000..116f939 --- /dev/null +++ b/ArinLog/My Project/Settings.Designer.vb @@ -0,0 +1,73 @@ +'------------------------------------------------------------------------------ +' +' This code was generated by a tool. +' Runtime Version:4.0.30319.34011 +' +' Changes to this file may cause incorrect behavior and will be lost if +' the code is regenerated. +' +'------------------------------------------------------------------------------ + +Option Strict On +Option Explicit On + + +Namespace My + + _ + Partial Friend NotInheritable Class MySettings + Inherits Global.System.Configuration.ApplicationSettingsBase + + Private Shared defaultInstance As MySettings = CType(Global.System.Configuration.ApplicationSettingsBase.Synchronized(New MySettings), MySettings) + +#Region "My.Settings Auto-Save Functionality" +#If _MyType = "WindowsForms" Then + Private Shared addedHandler As Boolean + + Private Shared addedHandlerLockObject As New Object + + _ + Private Shared Sub AutoSaveSettings(ByVal sender As Global.System.Object, ByVal e As Global.System.EventArgs) + If My.Application.SaveMySettingsOnExit Then + My.Settings.Save() + End If + End Sub +#End If +#End Region + + Public Shared ReadOnly Property [Default]() As MySettings + Get + +#If _MyType = "WindowsForms" Then + If Not addedHandler Then + SyncLock addedHandlerLockObject + If Not addedHandler Then + AddHandler My.Application.Shutdown, AddressOf AutoSaveSettings + addedHandler = True + End If + End SyncLock + End If +#End If + Return defaultInstance + End Get + End Property + End Class +End Namespace + +Namespace My + + _ + Friend Module MySettingsProperty + + _ + Friend ReadOnly Property Settings() As Global.ArinLog.My.MySettings + Get + Return Global.ArinLog.My.MySettings.Default + End Get + End Property + End Module +End Namespace diff --git a/ArinLog/My Project/Settings.settings b/ArinLog/My Project/Settings.settings new file mode 100644 index 0000000..85b890b --- /dev/null +++ b/ArinLog/My Project/Settings.settings @@ -0,0 +1,7 @@ + + + + + + + diff --git a/ArinLog/bin/Debug/ArinLog.Net4.dll b/ArinLog/bin/Debug/ArinLog.Net4.dll new file mode 100644 index 0000000000000000000000000000000000000000..a44354920a4ef326d9bdbd11f740d93e07f39c0a GIT binary patch literal 20480 zcmeHv3wT@AmG0W-939D$EL)QEDo&6gAu_gwoj8O50Y4MF*m1C(gwTK^+b6a_)^Q{` z#E>+mVeU|%L+R!ALJOTx+5)}hPMP*HOs9_keNIcKoj#c|DGYs1p+l$b^f4{Wzt%ZN zl9SMn&i(HFzM1K9w9Z~@uf6u#Yp=cbLt7cV@~xy3k%7-EuMjYe_cI3>D zMCij+Pc=NI2A*mdoz4^zvw3?epPorfq;omDm>9Pb`MF#olS}jrjU;C5Nh?)d9bD~- z-rh?zpbUCt`U6*awLME(Lr8^)F5wCs>Nd_z;IkJW)-HjU=ID)-=+AFDjt@5mk47DT zL{uyP%5N8SSmJ3bu1ZqtcCey_<(fv%>ix1jNUHDWy9cXnbU&v2@CT&Mrm7cWn&54=9gq_c3#+ws6t$ZP4=Qg*e zTKTUz(LI+f&gHGmIcu(%PiLDG+vmo!nTgA+`BD2?E4O)k{Bb7%M~*-mRI|TRb+qnp6#7I{Eu}$M@vFw44QNKpO*Bw$omU^q!y586fmBH3n*_C zsyGD`83mLGE@0dmC>3v29Bl~9QFgZuqi2)--!e|tt3Cx6!(k#psCxdrFc__{8B?W(DFQL@H;hx z1I>QFR|BhFlHb@=mfsILI=&=7+_cQoU$@sle)1fEMXmVu?`}o8o|f~xdUTmuYAWgp zHPw~cVc2U=X~;kPj)r)4I=9)8&wb7Q3iGkQR;bM*glHXzUL9-)=0{&~qv1!6yBX+% zTF==FNp75RpvTWw_mHN2THwTZ0KbI&G=;BX8 zq#0~VHYLb6hwfG3vRj0~5Jw1g6v`HOBZhqe3ZvqxrO~Q*O}x5k+=y1& zn^<}<8mwqQ7#O!I9*Txs39L*LbPGGW!9J{8$k8nxjW5;>{z1`dC|4b=j@F2Bcb1f6 z?i#lxhTpzWT7&`tjBvL$uw3|-m$9ODx`^Ibic|VwC}wEJVK|MU`3}SHFnO@wzzYZg zm*b$Y+#nn`FoW)TqKp&fg&}Ae^XlTbLDQ)hjb(AnmuJ5X$CaH&IQ4)%;t z(^et)?M_g_0lNz?W^Zovn-W>${;0osnJ}3ZtTrMw{KH)KbwK~JuZR5bF?dMZ2P;@b z5%cft9_AIg03qAGB0vb5%!!39px9f5d?H3sL#p;yCHsW*49`POtP0UrPDqGS`!wwa z%oi{`B5$w=U9`iDv$4u~uRkS^=T^*Rv;ub2Za~N|ocMH(rXOaE%X>VStH6V(Uctjy zB@f~Yco2~*co?hXL68CuJhp;|u}U5U8t@=0Rq!xY$pilb54@^^hcS-_ahT&V`zM-c z*q5R8PV2Z$J~{`1A|d(il$>lpN0PSmFe1L8<&iym7(xs!Ie?;vG5+0TFh-bS`PqFu zImmg4WnKvk2}75{OOxA>hglixjx#t4n)VO~_I7|gBIj)Ka-?b%<`x7~)NI%-@|OBg zNgiD=n;Zs{qld;*gPDhsXSEwxGb1^I%)%&h1X+a}7}`64+dBcAx?!aazDxTR;yXeewCemjHZA?i>EaP~L;f;!U9HU%w%MhrKxO6Hzh#QQ3ibe!!ZbCMJft$a%}=F+$kHI~Ly9xmnd$-6N$m*p}3XF0Vz zrjl2pvg(+g$Jm`sz5xhltk8HtWhVEy`0I50DkRUWv#)k3XPm@QZ*aNf7_x(=b^|-q z$t~RUD2$6S&z`#M>yE>Umz(xp6gx*V4|6eJOO5ONX|8gzO>3&r^KimhSKxZB3Em<8 zZYQB-t21eG;PbmSgw?|k757Em^@mt^Q`A>!3o*m#ERY;W#d>lA(6BF(o_2i6N88Y& zuuMf?W9^KdzM$08HR|+z489Jphbwu0uf9dWQdd@VfFT;6&hFJ!o8I~Fwfbp{j7FSf zVsE*Hob~=n^~Ab0j(@Q;m;6g~UEvxQ6Qzt(o*SP)5~CV1!X5jQ=zydJ&{C(_=b#@d zBh-57bxg+1yofXHec*G;O>xpG0Ec!W)-rnCU&O$;FfnHlc@aGIft^J_6G1rlUU<^6Tuvk9C zL@C(`IS##R*Ocl3CmDIMU$iS@1P+py@w;+nF60Ze3Pzmcej_p`9=*(1e#CO1`J zj!^{PoAEw-#|S-xG@JhHtvmXA@O}aK5B$KpvNlGwJQ{4aYvrR=RW(3=y=FZx2)Xt_ ze6ThkXe@g)cq|>p2kSLL<9d|+ zit#z5Uo@Tr{7WBGzG*Tv{0yT4j|yBJhzCsC5$J#^KN5H^;8|7Ssu*1)aJp)Hl}T@_ zIs*7-fI<3k)n@?BU>xndD7Y$U(rj=$;GYCp@}C0+>GQ}n$rt(_=qp03TW5%M+ZnoE zMd&>t*7+kyFQunLPlZex4s+Qf;qAet^bSCiJ|2EJY*M(IrLC-v!-Foa=6Xk~*)m6~ zxpj|A?q@(Z={HE5WJZ{N7GRK4kr9-=I0jmPWzE%s*+K7`2g%dv?3Sl(^%!l(I#t`2GgGgWt!ik&%_FbPrW{b zziLQLkcPa!LS8?7^8&%X1Z)Sei$%)U=~-|#306x#hs-p*`cg+_#k!>6;caw}N&tRJ zwE%u!T?iP~wqmXH1MRJVqsFDGf%X~QfO(@&Md=g9tWxxhaS-rdjYEJnzW)Z;;=2WK zukY=EZ}hzj@Iir(fMU`UzW0Ih1<8FyV8Ucdqsjd1%=atPyxIRQwR7RE{yJ^v!d(LI z6Zn9@|1I!Qfu9igDS=N3d|Kdh0)HUzC4s*X_^$$0fF%b7MgXJK9>@cx0|x;AHgKmF zXn+aHTt2Acuy)-dEFoBQ`ORt>@&*Kp2X0qq0GoEP|D%$?ZgQ~`Y6GxiF7_MM1?;1O zZPB{431H8-*k#%@yyRzs9i=^57Fg|BtjiW{QrizKDOi+dw1dD#1ygjZwg7)B3g&2S z(1Kuk;7_$%5tWZG%KN5MPTFVCcLZA+=+N&4XAhzzHkg6S^#|aW?{Tpy{m&8S!mFLU zBl^eTds!Eo(m#(_eOoE-D~O!;I2hflKLh{$tcyLSe+MT)FS*#a^cQi4vK`Yr@58^P z{}#KrPnNJ6wUVaSa-I%7x2p!a*}>?DF{W12hh6MWW1m_>zZA^r6`U+$+Tw}j-Nv=* z99oXaCqZUF^DU^g)b3&{fhB1>F!XfbeBWDCBTc(lm+uZ>MHid)?Wc3;HWw@S?pEj0 zT`qQuZyICkgD!Tr?>^N;A9b;BpO4Ax$s6V9TJuw?jUFsvPpS3vObPp%I-fqv z)0uESqc+j%^BnAU)ORr%t&BN-hRA_Oml}SCJO|sNpXvX#x}=0%?KidV5_ZTR)_Q2K zNQnpb2d+o-c+kcEC~ySWaTmKIa1*dE2k{vmLe)<=Oht|T7# z7r{7i^=k~@Q~_U)NmdaRlqbhYe_7=GT|NM z)AB32UFeQ9M}H^nz-?GgD0+2Ri*?0>SzD{oE5d0@`Z_E+6!GzwMoiJ^)hKTgo?9z; z{!u8u5D9$Ts!=PTPUiy}bRnRRE(1i&6L>O@f}N{~p3j_^5hLC{ckw6u4So zv%q$N7rS(hTg}9_K$q)3(FY{A5xI}3QCb^{7<*_#=vI8k(4p_AO=>XouvyY8x+ZjyaXA%3T}CG@g!+&kRDH&7dRu5e^{Wqrb{LbO{7mgu-w73s-Rei7 zJB_SRI_ag*$H1?L87>Jwtol`J_z9#h3O{A^Q%`t5rB#>qw~)3w{0-2paGZ*i4Nn6e z2!GEgVx0d(&p_Ka){hJiiT?BI)8UoAL&AB8z5xD1!oQ!MMlFZvyW!Qy{c*Sn@Ymt{ z)P9uOVH^@^^U7a+t-4VysqXgOsH`xcSntiMv3kV!W@@Xx0ugab_0_&AN>^KmWY<)) zo`x!QbOw5rku z)i=x)fcL2ez&JGm-mTgMZW7ojuwUTi0(T2c3(N=%&?GI_0{Av!C194$0-U9_fJJHs zJV2P>n|bqf9W-#d`RB~_*eQh{tj9X$sL%Boig zr0Djf&_74dtCiZbLVupVh4k}6e_m?*q2!X{8cDH+x}Afyw2@8@wDrJu<(N?jxM@7z2toG{6W5RQvn$Z6d-p=yx2R&=v@22Cl!#plL$EB9X zh4XRAeNrSpDUzRbDJ=h4;eSpzpA-5IQFaFoGNoM_x2p>29cDr({fLjBHq#o{p4M2C z8zp_Cq@Qyk=aSA65&}B}?iIKo@R-2k0-qH~2HPzmutVTpfeQkU2|OT0b#fHxHQ>^4_Q>!YV|?3K>N6JjtV7{Dv^V)+EIgm6<&{DCQG5b~$AJz#2#xt!%(oV+s*`Eg z!fUz*MST!Ej?ouX44Z^XAuWn;}Boy&e{ds z(DCY~;dG{84Hl+)4_LWkUphCLMd{wr-MHrG-N7k%%uuv+8K?m5a5<+a$7baultT4I zH0X5gPgS(O)UFB|jAT)2qG-bkr!C)OIkqSn%eg;9jzv&Z%1&9uu@c8jDY@8e#9S41 z(+p!L@$4wT8q6q(8F`(=!nu{*G&8oS+fL%Htgy0F?|%45fo$4pp%)6%-MDp0qw}*C z6XZQ=JBO6i4L2xSV`KffLNT42KnnLGGA=?rnZm4HSe(r&LX217RcybA34xFsCBklJeHtUUa^zc)8GW98H1SuXA}!b?*F zncRN5qBm>J!0p7sQU^JA&Zq#59l`;wnyz3^c6!Y7WG6evbmlI3xI@39guC`C<04B& zg`0KiD4|?|1~P>rbbi%=1e1?Uz}dIwt$mq;7@sb_tw3o{M|9};HD0qT>{DqM9N9T4 zmo#+HnX!{AC{a+w%vePw7<32_g_1cfn3Y_j<9{?Z*1N5{b8>Rj=62C8D}C*-wa?01 za3CjB=xz`757CxP*6PpgvuPg^UK2+73asOXU2~Z%f)9<)?SmLfPfm_`p=5DPp}d5m za_(49=0Nv!+8I|~n!C_Tcg_`UFOE3280(X(hvEQkk_))Wu`Ss-9x=E%C>#|ib5)?- zb9sjibllRls0Uya*9}RSBsIoCs3(($E8F>b5xAJbG8a<>?S*N0pm7$bJvL4cbQX#t ze4ulrh&t0WhPdCG<8dK{$`}_bV;E*#j)C1834KW8_T>CbVT#f))IO3}%|fLHgmR}b zrCvZtaO~}xtHK_Oo8f6*u6_{LIWbukial_tDK^+>I*&%WPURqjR&m;%r2fvrd~O1B z2Fj46yVKe1czWVm>awOXx&GV%TmhvbTYGA5d@hH%a*8~`C0>sp5=M$#XK!xOExahx zt;)^fKtl&OSRfvbjCKx>?$}NveLF^bhIVbE-r?b)VcIq{JlHuv+j>WL4GmvLm-X)M z8tNSGp~0aYBfYeJc&NK~WQ33&?jG7UIy^K$U7bkw^wQ4$k^Z4=VCmmB+B=K_ql}JR zK0w1G>(;NMp3c$Eu1*N)9qp#>&Vg=k#FXbyFEyCXrKd1r^6vdw;2!f38H66QOB0_tSs*)~m(O10rM-74Oy~AxrsneQ5~REw8F6QGb_1HU_NCF0r5Mk` zdmI}2O!7ntuMm|J&h=rQf9)KCJ61+kmU<^M7*1Vz`?>-C zEJUF^W*tl`aEVEt9?LRZ_MS|7DrXnqu?6TjJ~st3Z?khebuZ@kGW#-9v5Qfn$LlIpPvnW-G{dJWg3ue0-$r<53W?n0N^ zU(&$MaMpSSo{XIl=|oF6msbtWf{qy&+mg3uTuLV<>H}$BXgSM?Qb!NYZ_V3tv*pR^ zRke~uf<0SO3UVQifv#7G9dyIYC#rK??!2lYi#o`2Uu<+{E5>-T>^ju`+hM zOI9f5X5~=PzE#EEcQOE1#h4b#Ubi|^NWT8ZBI`QXQrkxmCeptxk-3~J5yV^ zDbzY@v-@)#?>#tS&B}I;mrRavOFC?s%R2qZd0-VCc*Jl>^7ebD-RYE9BoDO#P`tSrvJ!Fxkq4)CaO(cXNXM|##u=ND0iv8?h+dO`6tG5VA&CrXzV zknZNibu5tGeE^mLP9KWBONcjB$V4-OMZ;zsnvlZT@i ze3&O0$AL0g8Q8;CHhoZ1g|g?nfsrkbtnmyFt8%WVz8iGi-?s1oan?Co@(3e{)7O@Z zcunHoaQVxbTjw$rA>Csg&8H`=ne^$TblbD@dG@)o46hV=ZE|knG#S#CTtzFq5|~~l z@)>c=Q^k#Dij{M)cMh@5Dz=yUfRWT>maoh3aY@x4eAj{ThwBCNgzY{4ChqsF7u?6+b zfj%K=R^x?KU#j&RZ|Hlw_UQE=`pes&rodlZzh~!)_GjN5_~4~uN1|T~UZ^Kf7Zk>+ zOf2j-m&BHnx=56fIv1%k0w}{Ez#z(?&PXV&9zp{~f?`XMh-jZD2}6C8eP%;OP(w zlq>cl&2{MJ%7|e?BJ0gEBMDtqls6NsN&`$#Uyp-ORqyg`(#_ard^&vzrD92>lA5W* zHab|9u9*>jM>G>gQ!1dF(O%8ekgqYW`4XCnL;@*%t#J?^K{Z@)N9ECGl)^g_(FEPS5rgi?iL? z4AyuaJ$CB(Rs3{^R<2EOCCnXDK@2Q5Cq|avh+}}^?3%AU2_p})sst^GE!+(Tzr14& z)qVqx?jl;)ua^<_Z458;UL@9tuR;`t8d@1^6d$cOIT>pV_>FoDfel&}ggm72XjopW zX*_CI$=F@RRXzmctWsuB@dJtnq7%+f>T77*8Dr|7ZJnErXqp#Jqajb>$ zH5eco4}C4x5^F)rc~qj&aSE*T*P(jo6l;kD_!DrFfq?}2QXS};c@35I$ekBMtf0Xw71$MJ%EAegI)_y;j0F8 zI@F6mJ%b$}A{k$X(J;K>Nf93XkpNqCCGu3PGXe?Bh|EBw+V77*ZXzt_+M5xmh)D!TA1j3DQM9NNG#d#H zR0JnO92wP??#icUv9m2LJ+YR@##(Jv^tu#IH%cp&W_MAtnJ>YjWTdW?#X~Nep6AU* zEtg4@auV$^Mb&K^Qmt*cH=Al}Z$o@)RJ6Kv-^BV2ZRd}-OtfuEx3o{}+t{*cLwkG6 zh6^^P*QL+DpmkmQIxG*MEH5ao!%`l2jBU^y$gvKZ@cY zH^KM?0MP<3R{HSfrOIBs@v3xXPBf!yPH{otQE9pMR;Mhs0m{2}@GvPb%^0WL#qI!j{#VrhR}Kd6{M!I8`*+= zN)|hke(YBEVTZ!cYT{C($W4PEM|D6iMF{9%q-t zu${(vzeF8a>nQvp-j*Ge1*!Oc0d#NIv=&&x-8=C+gL14(9{VzW+IchLmY)?J=V6gF zq#;D(@#I`5WgOZCJpYw+>;Y#1J2Bp+%`R%2SJvGf;zmHEqTEiD%cEr37HzZvHwap( z4RAf)DWux*;db`O-2}F5QOf0@PqsqS#dW2SgD(_NI)z8dXI(5dEX#FzdlL1`h}Eu@9yz@&2c%s?t`5A< zWzD?)XUyq|*V4XL>6h)0Wuw(|=#yfFh067N{m~))v6%nlUisa9!oM}>MC%ID)^TV) z56hfh#_4*MdqrXtO0h5VIN7NC5Zgy!9aU0thf z9TH`J`R{)BIo-E)!0DE)pL7Hthn9;T9%>7VD6augJVu=lTSucrqE@WLGe7RP)jAl@ e`xR6BYY_Zjh-JI;yT)Ht_Mdal zJ-La@EAj@(hIQB7d#|9>_QUwGc+*zw)vuj?W(}2Q=-=0|WivmuD`F z@~2)HwWR%PFO(cw7CbWJy;EL#cKNjr{PX{Qsbt^P!Qs`P8}!+W9=_}SC0oB!^30qd zI5lkLGn>EAvGm(5cdq)%iDfU}(f!y1Zp#>qd9|?djph@tk9h6hUiihYpW1t2c<=nT z@@(~g*})@&W>x;+=1W!&o;W()KJ@(e%!OgW+3NqlxP8`NZy2$#Wy3#~9Qw?GBQIYV z-aG%TJX`%g{lwtYRbQ|9<}Y7(XvmLFyg1|h_soT1!P)Bnf4imSD{rQr{ma>V?hT$C zeAlNh4DX%)R-Uc?-*oup(XVa(cG>rTa??kC`MG~go&TP>Ff2G*{lD{`s=}ISk393g zUR(C~ukM=u?1kaI^WVy|)&CDZ{r>OI9k%AnH(dMq@BMOR&-C-(GZ&Tx`!BNgdVFD7 zf8kpD=Fi{!xeoHLFW{qMVM|5z)|%$|O;uG3=T|RYxM=>O%0(6PYpSXjQ?jVJqI_XR z>8)GNjIvUcbxSth(39%!*|=hL86dVI-8r?H?B`@@7h>;-SYJf-A&t5 zJ3G5?o_8apZJixg-dbH+URvAJliI$eeRpj--QBijM>^FbiOowk?l2NtJGZAcHg$Ei zNMgH@m^KnSQt7Rs#9N~ho1Da^9ErI))^|4V*q-W0_iX&vJqM0IeCVft_|)V|R;4MWAgW_U9e4V2# zxh$K-SIPeJkAK~pDD=R(i&JUdYwP;l)THz?I zJmqPheCD2nXyrlCsxC^aUh%Z=yL|r=(WCWz8Trjvqd>aAL`udB586`_A%F7olsH$ANNY9NH8d%`uzXq+6zh|WH$SJG_ z8~NK(=}mQ=+q+omyD3vUE#PB-csyOaovA_6=#LD8Aq^s8LOqr^J<_JJTs;cVqaMCc zkI2d=dD7)LxC;X5;%WQRMUz#0N>NeXCzVc@lX-M0L>KjasEc+`2Zq6+u#+Sr;Y33`(;Q( zkEkf`i`S8{0?o!cyc1hObRN4Nx^)e6j&HYp7^SP z1pmBk_#-F>ly<`}`+gs+`1N6MF_b02RY7quCX`W6U0*Uj=49OEWPCi7u{cMD?Wg>D z>~k{qI~ku0Wh}{&VSSum#!sD$pE(&nH@E~_>Wqw&*f7l4!3RlkMri^df2;x|e-H2w za0qxF(0Ct6?`#hY!8{-T51I+D`JGKy6AMxoxmXa3{|BHKt*_VopW`loB%xC4!I}+A zc5QFJvNfIVT2fZFbLY;|omHis-P_7GG_ESESiE>qSqB$?JzY)BW{I1V<>~0j!&S-E zRv7|2ddg^9@|UdJ-NSWX>4xp?rK{RHZqa@uQjQ*zqWRLg&h~aLZMdRQFuSy`y3%V> zT`W0vCsPI zO6sM*b7N^Efy&28zmCpxF`I4)Q!V}UVc$<$N9$8tn|8FPMWA^71bsCNKJj?ENW8A9 zSu8&#&3Z9A60f}&uY+Ri48ZnzA{;A-H}M1%j3@p~2p$Y$sBJG{+E#ru4%3#2!!_U{ z>K1@)9KJj!c4_~pq*y+L#)$htHLykv52XKR4@BqxZBELlh&0xXLJcD0=H<6A#Cyzm z65lRBw7xzvp3MHwk0_BE;Wil&~{y3Q68Cp4xr zqJmF6o-VF~--EEH3U!Ez^5fd?$M!fqG|qft-%-fA9O|)tcUP#xFz7RY=sitb2k!^= zRZ$&`n0Wic+}w`(fjL|FsBeFL=Q>WqI<}FQ5ALSzA@GRa)5P2NKA_H*clGIFbUI4L=u~Phsf-RA zpnVb$t*?*k;K$4B&}ffq=UyVTS$NC9i`Y6bjL&xNB*M8D zmGSRR#v5Si^;;w3YGlmGkzvPv{{1Nr4`+<6?A5V7;E;hBzXBPhIWitq9sm5;kLocP z9?2k17(EJ%jQ1cz>x8vM@#u?AMiQ)~eQ&$@#&;*92&{GRXFq?_=rf$W_QDr|CxSnhv$J~z#G6A z#=Z6vYk*c@FK_^O3K&T5d=Es||IN8~#8A=skB)y#tPE`Ggd9~|nE!X!1|*R^P! z)6+L&Xf*w@G<~mqS_d`*wht1fKge?OX3r1xeY179eySr zy+U6MLh))~7N9skHe4&L{}W*!Mq|@f_~laeCYj0LRwM6rWb8!7BqL)F<<@Tr<3qAq zucz0%7&s63-OmGbevv&7DD^#{qXZKxgfEZ88c*Q6 zNHIrUo2BU;PZVeCp}7LWB=|Dd=ZaV#(CLY(z-JDfi@#!jb*ywfOUfm|o41sKa zp7!U#Cmv51*TJ`=n7d1SMqVPEFD_nDWBg@eA^H-J>|S#ucsBVtV8Fz&xnRYyd0>uU zIK>vd&Y_o^*flXYNG!YD#I5)~(fTU?xe6{b?Joq&Ce|w_*Pg4$2JKg^tqEf{*_^W( z^f5A)fQM4Y+(w4>?Ye##6UNYt^S5GXE8q752Y|!CE5J!$ApPg`fa1TOyLUSkH4lAS z#=N=9&l|;me{UTE%^UIW0mS3!a^?+#$e%wj=EMC^L`)b*{Ftmpn1i!rJGO4ss_*;$ zS$Nc`o@QXpKRfpTbU(n~O7ZiDYm;#PM7koJKmN?Ai?vMYGS{E_&KgsAyYI)yb)3!u z+MyS%uaC~(>gwzsBN?{u&b@f@E~P^+lE1Er(d0d^^Ln0idg|K4r%LoZz{QJEy|$%A zfBZZdl)H4!cE=-jDZ46iw}b-nvoG1e^2l? zMUipzGz#v6UbMcxFaOPm`A@n_UbfuX?{rr^L!@_o#6R+1jK5#oTICGV*DNxh?ClE2 z40pCQwD0I?wR7Zt>}r8tw7x!Wo8L#zjM(NxgkvCEXY9+-Pjm4(+SyDyT7UnW(?erU zzRB`(kC08W-!lvQbtb9JBx$Mnv>)tK3;(;fDROf{?X}a^WOzjHY2tRt_mXs3#IAJq zR*8urk056Pah6}T`Rl^Hv4{b)4rdxYF#g6bl;Wh zxy%gkGH^lg{y^tN#f)m%Isz?=IXklXDW+~}a6NTN;N8G%U>#6u>dM%`6$NF$1YnHA z6Y<#yMG3FD$T814A)GsM{7x+)X zw}3T|eK+hfnV!4E_rl^>?7_e=a=yZGRQ{>%ilD7oVq%tk33I z5WhYXJ2jL{ii+~*jM4fVo7#7zpwymFzR%XVeOKhZyJ!aYrpej6_`Qg~{_xKZjWycX zkCE7`_-O2nTqmi2G#5qd>*F?h`C9Au0M-`?;}^0y8^ctr1MBC*TdtM}K1>^Z~u?BnlL7k{&Lk?Y=7_L^O>H&&k$ zd!@%w^mqt8w7wG8%$V|VKg$~gZQNjzQ9hnVuO0WOAyTbH=95@em~rv~-P?)SevtMu z@QB{i#BG;-uoK_B?Y-@j%VYJu?0Xd=ozJjN1)p^Kc)w2rro{piqF%=?bI46fft8%;urr*Sm!g}*IAn0zEBs$>U;U(S%~gN zANCKycOt%!pR>IE`$GE|rDYbGPuAbU;rLl{Okc+gkT33|-88)7^R#ha_&!HJH{N^O zNi)(vTHnjg7ig=Cwiv&`WT%(!^DJ-wb`C3qnZz6p(>Uy0|YHJtm%z#&Xo;Kc=w;jVn+vDOyqp_5wG2VI3uDd_OrEf#so1ias`bNvGO?jIO`_}6|S;3dI z-XinKezWlNUia%$+dFSf^%lm(t#p44y(b_;{GKPSyL6Ob;&P~aKVr@PUNI$0-@6Zt z-`Jdvq3v2|zvT4w>qnNCGYI#rm3R)qGZG$+lb0eqe2uhcc`z~bSG>CmG(K^z zRQQ`S^ji`gCLlxno~JLr5%15~Z?YpxpWkmSw5{v;8=x(~(HigGZ&}{_KJeq_Bnz0* zr^M_M)~{GO*T`-$;qWWQoKYl*ID9KDO-oVT+rG54Ld{^YH% zu-BEkeu>rR%zecN3GbVx!i-k&dE~0Xz7l&&kHL!H)zq(y5YM5o>Ra=@_I%DRk(V!_kN;$ z%{#igc@%VI$GYauuGDp!qMX_$OB90prd#7QR9ndsLO>2}8+kv!y$wg@bIPy6Sm`1g zm^L|laT~NDd==nKHCP+rqYHERoDFinu~GZOzID&qsCBe&x?CGkBZoF>qqjARUx!}T z|MuD~|Fh=!I3r)^OhP^cG6i^4XASE30rXgMDiC&*6*gKlM)yL~1 zAK5*5BHY(UeZ=~kqYHk>(S%iz`?g2oP$450z$NWCB`{P8o z$Bz0aiM*(fXgfzQbTEB39W39>0DC=`lAlSww~tEm`bcBZ?qT!)c49WNq{|$zV)k4k zdpN$X3Hw|!?7lPqZ%F1j8S}yNf2ol%4H>1OjCRWHelq(kwPMX?K#66;=urvQHd%cl zpH-399IOUwO{xLwoOl7afD`MX>_F^T(HJcTmNJLzeZlq6*?nNb>g_%)5$^f4p1lGnaYk)qGp3ClvPW@e zDS76A=8oxOm8*}Jk;jjk>*idt9*oWA{+s+SI%JvqZr6gZp?(#31-KEs5_}!_z2NJ? z(9rJKL@|+3{;|((``_6#W5rm`G(W;;xv8JX4oc^n_Brm+cyc`bH_puYL&&pxtAyES zk)@vVNqr&FzOj||b8KBrUbe0QD+YO6*OFHZLQiv+zYe^aJpGkv0^b1M0=^Nv75qLh z_ckN8yojFOmcKH#j19h@SNHXU{k|v>?y;65a|Pu}X=G~*>;P-*N=NnMt>h=TyvEyZ z^2|f?J_GfW=op*kUJ~O5Puf`V2Vm?q_2?aB_}}dE+rW2_?*M-kyc4_!46nJ@Lz%h9 zb1zu(KMDRg^$)rHBj9_;KL-9ou>AiC@P7frlle>VAA`RLCN^gN1}r&W1@9++82l&T zueQ+5`SqusVJh_#UwI+y{P&{C@D? zg8vl!ci^I6Ib&~znI~hpldSnPkx@F9U6#I2VN^_EW=|xF+58rRXEK7PF|%iLH+VL8 zJ!di#R6m~By`$-=`5REZ=%+8{oSMNCA()x7x|t zU~q-guO_$}i3@=%fW^>OnYL!~DOuCF?=X!BsP8k;VI~n(Wm9<0U?MTq-s_mkoSFpK z7^3^d`pt^s!b!%&Fo5;Kq|JQloFWM<0@eU}#zw*Xe&A`~W#AMrawzc}SOs(ecLN83 z!+@@XC3qIF6leu9fUY;sr!)j*`#b+1#5JDmVTeJP`};3{{_pE`JvVUv|Ms2#zmB7| z#wuxFt93w0OGLT(W}jhDU$xueXr5sxVy5U`xbA!V`C$4JIt|yue7t;~jaz5#0Qwz0 zpug!fsi^E1hneX5{mXY52O1k=$qP?oBP#qW0)_C`9e&v1wL}M%w>iEqx$@Z#Poz%u zYn{A19R1^t{s)fk6SOV5M%UhaM_=pef91;WaD256CmjAgM|Z^Ki(Nba)A8Nn>R)tn z{n=&8>9^a_{T3yp$B!MJ=H$$FazEzetabG|h!Fh)j;_(=zw7ea+o=BQPJWH6U+e6x zadMhm{S=pPb9(;N@!#V3_B%TEvPSMF9Njany&t=Lk)u1}+WDBH|65o88%ICI)wg+l z9G~8MC%qRtx;BRkoPMekJnrc4aOICXJ%8)kIpXrg&ToI?=>FN2*SL1>arp`-mwlU& z-{$B)@94hi%D?CG54ieoI-Hon*$#cBBs9`|%YG!#BdkZqSfY9eI}OWb#E@C4<07A; z{FHh5gMy@?h{zu@EXySsww_O4?9_BMu0AT?6GkZdk{=;Cv#&|ipe<5PE6OBXMG$0E zA595c9~M~&!P2mx*Oz3k64S4}OI0#5NM>@>QDHtesobQD!*Mi%0$mra0M-MW0oFuw z{<8L4ZAXa2R+Vcm+5HoB+l!rjkG_kOuYwdWVAcJx>Bp1J40Rfm6T`R38cG zKHw~%8dwVGTw?>!0_e9Hw*hwp_W_RpPXKz~!n42&fbJu|2AJPRFwRE+6Mz|je%q*P zLR~Lz2HFArhG7q|4|oVT2pj?q1J46GUp)q#0NwzG(Q9K|&y5Ra>N3*w_#pp+NAlx> z*^%<{1-y2vyqpWkNshh+nnC7)ug%vTYm>d7^Jb%(i9g9bb*gE#EGD zYumDKG4$=&a!0=)+m8Ce(nsGmm~F?_JHCb4cH|Pyf|~6vH%o8JEq&G2tPk{DMUnA= ze@j-D$JSY%YJ!@#MY0A5{w+vZdRy*vT9j=gW9WHOF7omtZ@;Z`Jd3k!==yhX0FQf7 zk*Bxij=ss#`}jpOE@l7Lqu(3&ngRUI^uXO_ykviL;m3>BJYLOrc5bF`@}t>#lt*X44>800PC5)TF(dvf{cL-d#`0F- zJKx?4d}n#HKVJ9k**eFA!k*`O!=nc_dh^&i#}lzj?GHCPW`CvY+p%?)r@GR{5XjB? zF;p?f{XjHIKQwS{lxO?rdB)t(SpV2EM@!7~{jT5s4Grv%xV&6j=4jEw)9N>RaavpE zXj#KNt)A72)7mme%i85>^}De+tu1r3tXG~^zrz|D*k4t7eQlYeWv%k-fqvUGH0V9| zY`LRnjq+nv{vTrc246=W#P;pjddpYNxbr$`JPwKZ+m>0{ib&r`MnR0$mO0wUdZu-* z!06+jMYH<`Tkhy1~6E@J^QB(m8(i44z--nFakk#NpewbdH}rgy&Bdof*HSbNpK({2XSTN&87d z=lF?@etc_uCi0Bggo{1pjKP7_+XLF;?JTNDFpasZ7Th~I_|nBw_&x)Nz6{Lc`w3OL zG!CpY9qvRNHi!?qV~qZNa9<-lDNrm>S`X-J@}&{Fm1t7-IcHvV8(vD()HEz!P+!|% zY5JF666_(SD0LxR@{hjUhkTZJ^CqwI<&{;7>KmN+x6prd@DwpfX%_7m{lC+{d@PAx zcvLhjsHv@}s53J9w`D@GUJa0REu^pe`tp^trF4BOFXL=k*R(ZdcOaDC+SZcl-dqt> zG*nbnELcQzv8n&ICkCgAE!`=uxYhQWZ|1dgWe2b4?`Uf0h07~a?OnVLqM>eC)uNh3 zgcFncZ)Z$!*x9%Otgk2j;mq3M%}0Gan^@Q0*`pT`e3+Z=N3&rJi?{ z9!Fp7t%rXHLv3|=T|-6H8TxXpd3Ts(PjEIqncqgg3G9iy)v2ywaYNnWO50Tbz8n>l zyRo04E#u2?^|qmLHzP9K%GFghEGn;DzFgY9)!ZGY-|Cs<=k6nYjeRel@yC!z?+%vL zRWDdnRm-|K|L;nFA>EYxJqxR?EmNJ!=h&>V!+ka1S<=IEHZMo@`d;5popkosw{gCf ze(KWHjRKUMd(C&rxC(!=8Kt;PJy+6dt9sSxc~<{iY@AQ;W%RnR zr3{mNrgtg&g)m;HcOHt?f$j zx+BzGZmW9L>G$eC>_eu0f6Z?dO^VCZGsj=+L#BRnyEJbdd)15VdjwU@wlqv?M(;f1 zze({ry~~VkXx=)#uU>l>B~%WRWa|C&US_;b@1pW`UbdJA@sIZdlM?J7Y?R&);V{OD zk}ne;Zf2C8U>MBUDZsx&(V+;=-v2Cj_EYyk1n;4(zX#8DaK?YC?`{60Vm|EW{7tbl zQ7+G42Ru7}c`x$U>$0nB^e>*h9UjU4xj*{H|4l_VJScHVgTbbeW`Nl5zV`nMzOS?* zak}-14@%d^mMr+{&jx?H@$t4hYmZcZ=HRu&wKD$P#m)MAc!B*p9YI-7cXL@QTh3JX z7XIks&9-1`TYIXf>`eOI{7pn75tzJ*4I z5V3*s{$LjMN%lE9x1Wr*x=-0k{y63OeZ+do*N;b0@EgdSNBMCUTFCSqu$}=nM%IIu z0}a46zzSd`AV&w`u1H^+&3 y{@eV + + + +ArinLog.Net4 + + + + + + Returns the cached ResourceManager instance used by this class. + + + + Overrides the current thread's CurrentUICulture property for all + resource lookups using this strongly typed resource class. + + + + A strongly-typed resource class, for looking up localized strings, etc. + + + + \ No newline at end of file diff --git a/ArinLog/desktop.ini b/ArinLog/desktop.ini new file mode 100644 index 0000000..af749cc --- /dev/null +++ b/ArinLog/desktop.ini @@ -0,0 +1,6 @@ +[.ShellClassInfo] +IconResource=C:\Windows\system32\SHELL32.dll,69 +[ViewState] +Mode= +Vid= +FolderType=Generic diff --git a/ArinLog/obj/Debug/ArinLog.Net4.dll b/ArinLog/obj/Debug/ArinLog.Net4.dll new file mode 100644 index 0000000000000000000000000000000000000000..a44354920a4ef326d9bdbd11f740d93e07f39c0a GIT binary patch literal 20480 zcmeHv3wT@AmG0W-939D$EL)QEDo&6gAu_gwoj8O50Y4MF*m1C(gwTK^+b6a_)^Q{` z#E>+mVeU|%L+R!ALJOTx+5)}hPMP*HOs9_keNIcKoj#c|DGYs1p+l$b^f4{Wzt%ZN zl9SMn&i(HFzM1K9w9Z~@uf6u#Yp=cbLt7cV@~xy3k%7-EuMjYe_cI3>D zMCij+Pc=NI2A*mdoz4^zvw3?epPorfq;omDm>9Pb`MF#olS}jrjU;C5Nh?)d9bD~- z-rh?zpbUCt`U6*awLME(Lr8^)F5wCs>Nd_z;IkJW)-HjU=ID)-=+AFDjt@5mk47DT zL{uyP%5N8SSmJ3bu1ZqtcCey_<(fv%>ix1jNUHDWy9cXnbU&v2@CT&Mrm7cWn&54=9gq_c3#+ws6t$ZP4=Qg*e zTKTUz(LI+f&gHGmIcu(%PiLDG+vmo!nTgA+`BD2?E4O)k{Bb7%M~*-mRI|TRb+qnp6#7I{Eu}$M@vFw44QNKpO*Bw$omU^q!y586fmBH3n*_C zsyGD`83mLGE@0dmC>3v29Bl~9QFgZuqi2)--!e|tt3Cx6!(k#psCxdrFc__{8B?W(DFQL@H;hx z1I>QFR|BhFlHb@=mfsILI=&=7+_cQoU$@sle)1fEMXmVu?`}o8o|f~xdUTmuYAWgp zHPw~cVc2U=X~;kPj)r)4I=9)8&wb7Q3iGkQR;bM*glHXzUL9-)=0{&~qv1!6yBX+% zTF==FNp75RpvTWw_mHN2THwTZ0KbI&G=;BX8 zq#0~VHYLb6hwfG3vRj0~5Jw1g6v`HOBZhqe3ZvqxrO~Q*O}x5k+=y1& zn^<}<8mwqQ7#O!I9*Txs39L*LbPGGW!9J{8$k8nxjW5;>{z1`dC|4b=j@F2Bcb1f6 z?i#lxhTpzWT7&`tjBvL$uw3|-m$9ODx`^Ibic|VwC}wEJVK|MU`3}SHFnO@wzzYZg zm*b$Y+#nn`FoW)TqKp&fg&}Ae^XlTbLDQ)hjb(AnmuJ5X$CaH&IQ4)%;t z(^et)?M_g_0lNz?W^Zovn-W>${;0osnJ}3ZtTrMw{KH)KbwK~JuZR5bF?dMZ2P;@b z5%cft9_AIg03qAGB0vb5%!!39px9f5d?H3sL#p;yCHsW*49`POtP0UrPDqGS`!wwa z%oi{`B5$w=U9`iDv$4u~uRkS^=T^*Rv;ub2Za~N|ocMH(rXOaE%X>VStH6V(Uctjy zB@f~Yco2~*co?hXL68CuJhp;|u}U5U8t@=0Rq!xY$pilb54@^^hcS-_ahT&V`zM-c z*q5R8PV2Z$J~{`1A|d(il$>lpN0PSmFe1L8<&iym7(xs!Ie?;vG5+0TFh-bS`PqFu zImmg4WnKvk2}75{OOxA>hglixjx#t4n)VO~_I7|gBIj)Ka-?b%<`x7~)NI%-@|OBg zNgiD=n;Zs{qld;*gPDhsXSEwxGb1^I%)%&h1X+a}7}`64+dBcAx?!aazDxTR;yXeewCemjHZA?i>EaP~L;f;!U9HU%w%MhrKxO6Hzh#QQ3ibe!!ZbCMJft$a%}=F+$kHI~Ly9xmnd$-6N$m*p}3XF0Vz zrjl2pvg(+g$Jm`sz5xhltk8HtWhVEy`0I50DkRUWv#)k3XPm@QZ*aNf7_x(=b^|-q z$t~RUD2$6S&z`#M>yE>Umz(xp6gx*V4|6eJOO5ONX|8gzO>3&r^KimhSKxZB3Em<8 zZYQB-t21eG;PbmSgw?|k757Em^@mt^Q`A>!3o*m#ERY;W#d>lA(6BF(o_2i6N88Y& zuuMf?W9^KdzM$08HR|+z489Jphbwu0uf9dWQdd@VfFT;6&hFJ!o8I~Fwfbp{j7FSf zVsE*Hob~=n^~Ab0j(@Q;m;6g~UEvxQ6Qzt(o*SP)5~CV1!X5jQ=zydJ&{C(_=b#@d zBh-57bxg+1yofXHec*G;O>xpG0Ec!W)-rnCU&O$;FfnHlc@aGIft^J_6G1rlUU<^6Tuvk9C zL@C(`IS##R*Ocl3CmDIMU$iS@1P+py@w;+nF60Ze3Pzmcej_p`9=*(1e#CO1`J zj!^{PoAEw-#|S-xG@JhHtvmXA@O}aK5B$KpvNlGwJQ{4aYvrR=RW(3=y=FZx2)Xt_ ze6ThkXe@g)cq|>p2kSLL<9d|+ zit#z5Uo@Tr{7WBGzG*Tv{0yT4j|yBJhzCsC5$J#^KN5H^;8|7Ssu*1)aJp)Hl}T@_ zIs*7-fI<3k)n@?BU>xndD7Y$U(rj=$;GYCp@}C0+>GQ}n$rt(_=qp03TW5%M+ZnoE zMd&>t*7+kyFQunLPlZex4s+Qf;qAet^bSCiJ|2EJY*M(IrLC-v!-Foa=6Xk~*)m6~ zxpj|A?q@(Z={HE5WJZ{N7GRK4kr9-=I0jmPWzE%s*+K7`2g%dv?3Sl(^%!l(I#t`2GgGgWt!ik&%_FbPrW{b zziLQLkcPa!LS8?7^8&%X1Z)Sei$%)U=~-|#306x#hs-p*`cg+_#k!>6;caw}N&tRJ zwE%u!T?iP~wqmXH1MRJVqsFDGf%X~QfO(@&Md=g9tWxxhaS-rdjYEJnzW)Z;;=2WK zukY=EZ}hzj@Iir(fMU`UzW0Ih1<8FyV8Ucdqsjd1%=atPyxIRQwR7RE{yJ^v!d(LI z6Zn9@|1I!Qfu9igDS=N3d|Kdh0)HUzC4s*X_^$$0fF%b7MgXJK9>@cx0|x;AHgKmF zXn+aHTt2Acuy)-dEFoBQ`ORt>@&*Kp2X0qq0GoEP|D%$?ZgQ~`Y6GxiF7_MM1?;1O zZPB{431H8-*k#%@yyRzs9i=^57Fg|BtjiW{QrizKDOi+dw1dD#1ygjZwg7)B3g&2S z(1Kuk;7_$%5tWZG%KN5MPTFVCcLZA+=+N&4XAhzzHkg6S^#|aW?{Tpy{m&8S!mFLU zBl^eTds!Eo(m#(_eOoE-D~O!;I2hflKLh{$tcyLSe+MT)FS*#a^cQi4vK`Yr@58^P z{}#KrPnNJ6wUVaSa-I%7x2p!a*}>?DF{W12hh6MWW1m_>zZA^r6`U+$+Tw}j-Nv=* z99oXaCqZUF^DU^g)b3&{fhB1>F!XfbeBWDCBTc(lm+uZ>MHid)?Wc3;HWw@S?pEj0 zT`qQuZyICkgD!Tr?>^N;A9b;BpO4Ax$s6V9TJuw?jUFsvPpS3vObPp%I-fqv z)0uESqc+j%^BnAU)ORr%t&BN-hRA_Oml}SCJO|sNpXvX#x}=0%?KidV5_ZTR)_Q2K zNQnpb2d+o-c+kcEC~ySWaTmKIa1*dE2k{vmLe)<=Oht|T7# z7r{7i^=k~@Q~_U)NmdaRlqbhYe_7=GT|NM z)AB32UFeQ9M}H^nz-?GgD0+2Ri*?0>SzD{oE5d0@`Z_E+6!GzwMoiJ^)hKTgo?9z; z{!u8u5D9$Ts!=PTPUiy}bRnRRE(1i&6L>O@f}N{~p3j_^5hLC{ckw6u4So zv%q$N7rS(hTg}9_K$q)3(FY{A5xI}3QCb^{7<*_#=vI8k(4p_AO=>XouvyY8x+ZjyaXA%3T}CG@g!+&kRDH&7dRu5e^{Wqrb{LbO{7mgu-w73s-Rei7 zJB_SRI_ag*$H1?L87>Jwtol`J_z9#h3O{A^Q%`t5rB#>qw~)3w{0-2paGZ*i4Nn6e z2!GEgVx0d(&p_Ka){hJiiT?BI)8UoAL&AB8z5xD1!oQ!MMlFZvyW!Qy{c*Sn@Ymt{ z)P9uOVH^@^^U7a+t-4VysqXgOsH`xcSntiMv3kV!W@@Xx0ugab_0_&AN>^KmWY<)) zo`x!QbOw5rku z)i=x)fcL2ez&JGm-mTgMZW7ojuwUTi0(T2c3(N=%&?GI_0{Av!C194$0-U9_fJJHs zJV2P>n|bqf9W-#d`RB~_*eQh{tj9X$sL%Boig zr0Djf&_74dtCiZbLVupVh4k}6e_m?*q2!X{8cDH+x}Afyw2@8@wDrJu<(N?jxM@7z2toG{6W5RQvn$Z6d-p=yx2R&=v@22Cl!#plL$EB9X zh4XRAeNrSpDUzRbDJ=h4;eSpzpA-5IQFaFoGNoM_x2p>29cDr({fLjBHq#o{p4M2C z8zp_Cq@Qyk=aSA65&}B}?iIKo@R-2k0-qH~2HPzmutVTpfeQkU2|OT0b#fHxHQ>^4_Q>!YV|?3K>N6JjtV7{Dv^V)+EIgm6<&{DCQG5b~$AJz#2#xt!%(oV+s*`Eg z!fUz*MST!Ej?ouX44Z^XAuWn;}Boy&e{ds z(DCY~;dG{84Hl+)4_LWkUphCLMd{wr-MHrG-N7k%%uuv+8K?m5a5<+a$7baultT4I zH0X5gPgS(O)UFB|jAT)2qG-bkr!C)OIkqSn%eg;9jzv&Z%1&9uu@c8jDY@8e#9S41 z(+p!L@$4wT8q6q(8F`(=!nu{*G&8oS+fL%Htgy0F?|%45fo$4pp%)6%-MDp0qw}*C z6XZQ=JBO6i4L2xSV`KffLNT42KnnLGGA=?rnZm4HSe(r&LX217RcybA34xFsCBklJeHtUUa^zc)8GW98H1SuXA}!b?*F zncRN5qBm>J!0p7sQU^JA&Zq#59l`;wnyz3^c6!Y7WG6evbmlI3xI@39guC`C<04B& zg`0KiD4|?|1~P>rbbi%=1e1?Uz}dIwt$mq;7@sb_tw3o{M|9};HD0qT>{DqM9N9T4 zmo#+HnX!{AC{a+w%vePw7<32_g_1cfn3Y_j<9{?Z*1N5{b8>Rj=62C8D}C*-wa?01 za3CjB=xz`757CxP*6PpgvuPg^UK2+73asOXU2~Z%f)9<)?SmLfPfm_`p=5DPp}d5m za_(49=0Nv!+8I|~n!C_Tcg_`UFOE3280(X(hvEQkk_))Wu`Ss-9x=E%C>#|ib5)?- zb9sjibllRls0Uya*9}RSBsIoCs3(($E8F>b5xAJbG8a<>?S*N0pm7$bJvL4cbQX#t ze4ulrh&t0WhPdCG<8dK{$`}_bV;E*#j)C1834KW8_T>CbVT#f))IO3}%|fLHgmR}b zrCvZtaO~}xtHK_Oo8f6*u6_{LIWbukial_tDK^+>I*&%WPURqjR&m;%r2fvrd~O1B z2Fj46yVKe1czWVm>awOXx&GV%TmhvbTYGA5d@hH%a*8~`C0>sp5=M$#XK!xOExahx zt;)^fKtl&OSRfvbjCKx>?$}NveLF^bhIVbE-r?b)VcIq{JlHuv+j>WL4GmvLm-X)M z8tNSGp~0aYBfYeJc&NK~WQ33&?jG7UIy^K$U7bkw^wQ4$k^Z4=VCmmB+B=K_ql}JR zK0w1G>(;NMp3c$Eu1*N)9qp#>&Vg=k#FXbyFEyCXrKd1r^6vdw;2!f38H66QOB0_tSs*)~m(O10rM-74Oy~AxrsneQ5~REw8F6QGb_1HU_NCF0r5Mk` zdmI}2O!7ntuMm|J&h=rQf9)KCJ61+kmU<^M7*1Vz`?>-C zEJUF^W*tl`aEVEt9?LRZ_MS|7DrXnqu?6TjJ~st3Z?khebuZ@kGW#-9v5Qfn$LlIpPvnW-G{dJWg3ue0-$r<53W?n0N^ zU(&$MaMpSSo{XIl=|oF6msbtWf{qy&+mg3uTuLV<>H}$BXgSM?Qb!NYZ_V3tv*pR^ zRke~uf<0SO3UVQifv#7G9dyIYC#rK??!2lYi#o`2Uu<+{E5>-T>^ju`+hM zOI9f5X5~=PzE#EEcQOE1#h4b#Ubi|^NWT8ZBI`QXQrkxmCeptxk-3~J5yV^ zDbzY@v-@)#?>#tS&B}I;mrRavOFC?s%R2qZd0-VCc*Jl>^7ebD-RYE9BoDO#P`tSrvJ!Fxkq4)CaO(cXNXM|##u=ND0iv8?h+dO`6tG5VA&CrXzV zknZNibu5tGeE^mLP9KWBONcjB$V4-OMZ;zsnvlZT@i ze3&O0$AL0g8Q8;CHhoZ1g|g?nfsrkbtnmyFt8%WVz8iGi-?s1oan?Co@(3e{)7O@Z zcunHoaQVxbTjw$rA>Csg&8H`=ne^$TblbD@dG@)o46hV=ZE|knG#S#CTtzFq5|~~l z@)>c=Q^k#Dij{M)cMh@5Dz=yUfRWT>maoh3aY@x4eAj{ThwBCNgzY{4ChqsF7u?6+b zfj%K=R^x?KU#j&RZ|Hlw_UQE=`pes&rodlZzh~!)_GjN5_~4~uN1|T~UZ^Kf7Zk>+ zOf2j-m&BHnx=56fIv1%k0w}{Ez#z(?&PXV&9zp{~f?`XMh-jZD2}6C8eP%;OP(w zlq>cl&2{MJ%7|e?BJ0gEBMDtqls6NsN&`$#Uyp-ORqyg`(#_ard^&vzrD92>lA5W* zHab|9u9*>jM>G>gQ!1dF(O%8ekgqYW`4XCnL;@*%t#J?^K{Z@)N9ECGl)^g_(FEPS5rgi?iL? z4AyuaJ$CB(Rs3{^R<2EOCCnXDK@2Q5Cq|avh+}}^?3%AU2_p})sst^GE!+(Tzr14& z)qVqx?jl;)ua^<_Z458;UL@9tuR;`t8d@1^6d$cOIT>pV_>FoDfel&}ggm72XjopW zX*_CI$=F@RRXzmctWsuB@dJtnq7%+f>T77*8Dr|7ZJnErXqp#Jqajb>$ zH5eco4}C4x5^F)rc~qj&aSE*T*P(jo6l;kD_!DrFfq?}2QXS};c@35I$ekBMtf0Xw71$MJ%EAegI)_y;j0F8 zI@F6mJ%b$}A{k$X(J;K>Nf93XkpNqCCGu3PGXe?Bh|EBw+V77*ZXzt_+M5xmh)D!TA1j3DQM9NNG#d#H zR0JnO92wP??#icUv9m2LJ+YR@##(Jv^tu#IH%cp&W_MAtnJ>YjWTdW?#X~Nep6AU* zEtg4@auV$^Mb&K^Qmt*cH=Al}Z$o@)RJ6Kv-^BV2ZRd}-OtfuEx3o{}+t{*cLwkG6 zh6^^P*QL+DpmkmQIxG*MEH5ao!%`l2jBU^y$gvKZ@cY zH^KM?0MP<3R{HSfrOIBs@v3xXPBf!yPH{otQE9pMR;Mhs0m{2}@GvPb%^0WL#qI!j{#VrhR}Kd6{M!I8`*+= zN)|hke(YBEVTZ!cYT{C($W4PEM|D6iMF{9%q-t zu${(vzeF8a>nQvp-j*Ge1*!Oc0d#NIv=&&x-8=C+gL14(9{VzW+IchLmY)?J=V6gF zq#;D(@#I`5WgOZCJpYw+>;Y#1J2Bp+%`R%2SJvGf;zmHEqTEiD%cEr37HzZvHwap( z4RAf)DWux*;db`O-2}F5QOf0@PqsqS#dW2SgD(_NI)z8dXI(5dEX#FzdlL1`h}Eu@9yz@&2c%s?t`5A< zWzD?)XUyq|*V4XL>6h)0Wuw(|=#yfFh067N{m~))v6%nlUisa9!oM}>MC%ID)^TV) z56hfh#_4*MdqrXtO0h5VIN7NC5Zgy!9aU0thf z9TH`J`R{)BIo-E)!0DE)pL7Hthn9;T9%>7VD6augJVu=lTSucrqE@WLGe7RP)jAl@ e`xR6BYY_Zjh-JI;yT)Ht_Mdal zJ-La@EAj@(hIQB7d#|9>_QUwGc+*zw)vuj?W(}2Q=-=0|WivmuD`F z@~2)HwWR%PFO(cw7CbWJy;EL#cKNjr{PX{Qsbt^P!Qs`P8}!+W9=_}SC0oB!^30qd zI5lkLGn>EAvGm(5cdq)%iDfU}(f!y1Zp#>qd9|?djph@tk9h6hUiihYpW1t2c<=nT z@@(~g*})@&W>x;+=1W!&o;W()KJ@(e%!OgW+3NqlxP8`NZy2$#Wy3#~9Qw?GBQIYV z-aG%TJX`%g{lwtYRbQ|9<}Y7(XvmLFyg1|h_soT1!P)Bnf4imSD{rQr{ma>V?hT$C zeAlNh4DX%)R-Uc?-*oup(XVa(cG>rTa??kC`MG~go&TP>Ff2G*{lD{`s=}ISk393g zUR(C~ukM=u?1kaI^WVy|)&CDZ{r>OI9k%AnH(dMq@BMOR&-C-(GZ&Tx`!BNgdVFD7 zf8kpD=Fi{!xeoHLFW{qMVM|5z)|%$|O;uG3=T|RYxM=>O%0(6PYpSXjQ?jVJqI_XR z>8)GNjIvUcbxSth(39%!*|=hL86dVI-8r?H?B`@@7h>;-SYJf-A&t5 zJ3G5?o_8apZJixg-dbH+URvAJliI$eeRpj--QBijM>^FbiOowk?l2NtJGZAcHg$Ei zNMgH@m^KnSQt7Rs#9N~ho1Da^9ErI))^|4V*q-W0_iX&vJqM0IeCVft_|)V|R;4MWAgW_U9e4V2# zxh$K-SIPeJkAK~pDD=R(i&JUdYwP;l)THz?I zJmqPheCD2nXyrlCsxC^aUh%Z=yL|r=(WCWz8Trjvqd>aAL`udB586`_A%F7olsH$ANNY9NH8d%`uzXq+6zh|WH$SJG_ z8~NK(=}mQ=+q+omyD3vUE#PB-csyOaovA_6=#LD8Aq^s8LOqr^J<_JJTs;cVqaMCc zkI2d=dD7)LxC;X5;%WQRMUz#0N>NeXCzVc@lX-M0L>KjasEc+`2Zq6+u#+Sr;Y33`(;Q( zkEkf`i`S8{0?o!cyc1hObRN4Nx^)e6j&HYp7^SP z1pmBk_#-F>ly<`}`+gs+`1N6MF_b02RY7quCX`W6U0*Uj=49OEWPCi7u{cMD?Wg>D z>~k{qI~ku0Wh}{&VSSum#!sD$pE(&nH@E~_>Wqw&*f7l4!3RlkMri^df2;x|e-H2w za0qxF(0Ct6?`#hY!8{-T51I+D`JGKy6AMxoxmXa3{|BHKt*_VopW`loB%xC4!I}+A zc5QFJvNfIVT2fZFbLY;|omHis-P_7GG_ESESiE>qSqB$?JzY)BW{I1V<>~0j!&S-E zRv7|2ddg^9@|UdJ-NSWX>4xp?rK{RHZqa@uQjQ*zqWRLg&h~aLZMdRQFuSy`y3%V> zT`W0vCsPI zO6sM*b7N^Efy&28zmCpxF`I4)Q!V}UVc$<$N9$8tn|8FPMWA^71bsCNKJj?ENW8A9 zSu8&#&3Z9A60f}&uY+Ri48ZnzA{;A-H}M1%j3@p~2p$Y$sBJG{+E#ru4%3#2!!_U{ z>K1@)9KJj!c4_~pq*y+L#)$htHLykv52XKR4@BqxZBELlh&0xXLJcD0=H<6A#Cyzm z65lRBw7xzvp3MHwk0_BE;Wil&~{y3Q68Cp4xr zqJmF6o-VF~--EEH3U!Ez^5fd?$M!fqG|qft-%-fA9O|)tcUP#xFz7RY=sitb2k!^= zRZ$&`n0Wic+}w`(fjL|FsBeFL=Q>WqI<}FQ5ALSzA@GRa)5P2NKA_H*clGIFbUI4L=u~Phsf-RA zpnVb$t*?*k;K$4B&}ffq=UyVTS$NC9i`Y6bjL&xNB*M8D zmGSRR#v5Si^;;w3YGlmGkzvPv{{1Nr4`+<6?A5V7;E;hBzXBPhIWitq9sm5;kLocP z9?2k17(EJ%jQ1cz>x8vM@#u?AMiQ)~eQ&$@#&;*92&{GRXFq?_=rf$W_QDr|CxSnhv$J~z#G6A z#=Z6vYk*c@FK_^O3K&T5d=Es||IN8~#8A=skB)y#tPE`Ggd9~|nE!X!1|*R^P! z)6+L&Xf*w@G<~mqS_d`*wht1fKge?OX3r1xeY179eySr zy+U6MLh))~7N9skHe4&L{}W*!Mq|@f_~laeCYj0LRwM6rWb8!7BqL)F<<@Tr<3qAq zucz0%7&s63-OmGbevv&7DD^#{qXZKxgfEZ88c*Q6 zNHIrUo2BU;PZVeCp}7LWB=|Dd=ZaV#(CLY(z-JDfi@#!jb*ywfOUfm|o41sKa zp7!U#Cmv51*TJ`=n7d1SMqVPEFD_nDWBg@eA^H-J>|S#ucsBVtV8Fz&xnRYyd0>uU zIK>vd&Y_o^*flXYNG!YD#I5)~(fTU?xe6{b?Joq&Ce|w_*Pg4$2JKg^tqEf{*_^W( z^f5A)fQM4Y+(w4>?Ye##6UNYt^S5GXE8q752Y|!CE5J!$ApPg`fa1TOyLUSkH4lAS z#=N=9&l|;me{UTE%^UIW0mS3!a^?+#$e%wj=EMC^L`)b*{Ftmpn1i!rJGO4ss_*;$ zS$Nc`o@QXpKRfpTbU(n~O7ZiDYm;#PM7koJKmN?Ai?vMYGS{E_&KgsAyYI)yb)3!u z+MyS%uaC~(>gwzsBN?{u&b@f@E~P^+lE1Er(d0d^^Ln0idg|K4r%LoZz{QJEy|$%A zfBZZdl)H4!cE=-jDZ46iw}b-nvoG1e^2l? zMUipzGz#v6UbMcxFaOPm`A@n_UbfuX?{rr^L!@_o#6R+1jK5#oTICGV*DNxh?ClE2 z40pCQwD0I?wR7Zt>}r8tw7x!Wo8L#zjM(NxgkvCEXY9+-Pjm4(+SyDyT7UnW(?erU zzRB`(kC08W-!lvQbtb9JBx$Mnv>)tK3;(;fDROf{?X}a^WOzjHY2tRt_mXs3#IAJq zR*8urk056Pah6}T`Rl^Hv4{b)4rdxYF#g6bl;Wh zxy%gkGH^lg{y^tN#f)m%Isz?=IXklXDW+~}a6NTN;N8G%U>#6u>dM%`6$NF$1YnHA z6Y<#yMG3FD$T814A)GsM{7x+)X zw}3T|eK+hfnV!4E_rl^>?7_e=a=yZGRQ{>%ilD7oVq%tk33I z5WhYXJ2jL{ii+~*jM4fVo7#7zpwymFzR%XVeOKhZyJ!aYrpej6_`Qg~{_xKZjWycX zkCE7`_-O2nTqmi2G#5qd>*F?h`C9Au0M-`?;}^0y8^ctr1MBC*TdtM}K1>^Z~u?BnlL7k{&Lk?Y=7_L^O>H&&k$ zd!@%w^mqt8w7wG8%$V|VKg$~gZQNjzQ9hnVuO0WOAyTbH=95@em~rv~-P?)SevtMu z@QB{i#BG;-uoK_B?Y-@j%VYJu?0Xd=ozJjN1)p^Kc)w2rro{piqF%=?bI46fft8%;urr*Sm!g}*IAn0zEBs$>U;U(S%~gN zANCKycOt%!pR>IE`$GE|rDYbGPuAbU;rLl{Okc+gkT33|-88)7^R#ha_&!HJH{N^O zNi)(vTHnjg7ig=Cwiv&`WT%(!^DJ-wb`C3qnZz6p(>Uy0|YHJtm%z#&Xo;Kc=w;jVn+vDOyqp_5wG2VI3uDd_OrEf#so1ias`bNvGO?jIO`_}6|S;3dI z-XinKezWlNUia%$+dFSf^%lm(t#p44y(b_;{GKPSyL6Ob;&P~aKVr@PUNI$0-@6Zt z-`Jdvq3v2|zvT4w>qnNCGYI#rm3R)qGZG$+lb0eqe2uhcc`z~bSG>CmG(K^z zRQQ`S^ji`gCLlxno~JLr5%15~Z?YpxpWkmSw5{v;8=x(~(HigGZ&}{_KJeq_Bnz0* zr^M_M)~{GO*T`-$;qWWQoKYl*ID9KDO-oVT+rG54Ld{^YH% zu-BEkeu>rR%zecN3GbVx!i-k&dE~0Xz7l&&kHL!H)zq(y5YM5o>Ra=@_I%DRk(V!_kN;$ z%{#igc@%VI$GYauuGDp!qMX_$OB90prd#7QR9ndsLO>2}8+kv!y$wg@bIPy6Sm`1g zm^L|laT~NDd==nKHCP+rqYHERoDFinu~GZOzID&qsCBe&x?CGkBZoF>qqjARUx!}T z|MuD~|Fh=!I3r)^OhP^cG6i^4XASE30rXgMDiC&*6*gKlM)yL~1 zAK5*5BHY(UeZ=~kqYHk>(S%iz`?g2oP$450z$NWCB`{P8o z$Bz0aiM*(fXgfzQbTEB39W39>0DC=`lAlSww~tEm`bcBZ?qT!)c49WNq{|$zV)k4k zdpN$X3Hw|!?7lPqZ%F1j8S}yNf2ol%4H>1OjCRWHelq(kwPMX?K#66;=urvQHd%cl zpH-399IOUwO{xLwoOl7afD`MX>_F^T(HJcTmNJLzeZlq6*?nNb>g_%)5$^f4p1lGnaYk)qGp3ClvPW@e zDS76A=8oxOm8*}Jk;jjk>*idt9*oWA{+s+SI%JvqZr6gZp?(#31-KEs5_}!_z2NJ? z(9rJKL@|+3{;|((``_6#W5rm`G(W;;xv8JX4oc^n_Brm+cyc`bH_puYL&&pxtAyES zk)@vVNqr&FzOj||b8KBrUbe0QD+YO6*OFHZLQiv+zYe^aJpGkv0^b1M0=^Nv75qLh z_ckN8yojFOmcKH#j19h@SNHXU{k|v>?y;65a|Pu}X=G~*>;P-*N=NnMt>h=TyvEyZ z^2|f?J_GfW=op*kUJ~O5Puf`V2Vm?q_2?aB_}}dE+rW2_?*M-kyc4_!46nJ@Lz%h9 zb1zu(KMDRg^$)rHBj9_;KL-9ou>AiC@P7frlle>VAA`RLCN^gN1}r&W1@9++82l&T zueQ+5`SqusVJh_#UwI+y{P&{C@D? zg8vl!ci^I6Ib&~znI~hpldSnPkx@F9U6#I2VN^_EW=|xF+58rRXEK7PF|%iLH+VL8 zJ!di#R6m~By`$-=`5REZ=%+8{oSMNCA()x7x|t zU~q-guO_$}i3@=%fW^>OnYL!~DOuCF?=X!BsP8k;VI~n(Wm9<0U?MTq-s_mkoSFpK z7^3^d`pt^s!b!%&Fo5;Kq|JQloFWM<0@eU}#zw*Xe&A`~W#AMrawzc}SOs(ecLN83 z!+@@XC3qIF6leu9fUY;sr!)j*`#b+1#5JDmVTeJP`};3{{_pE`JvVUv|Ms2#zmB7| z#wuxFt93w0OGLT(W}jhDU$xueXr5sxVy5U`xbA!V`C$4JIt|yue7t;~jaz5#0Qwz0 zpug!fsi^E1hneX5{mXY52O1k=$qP?oBP#qW0)_C`9e&v1wL}M%w>iEqx$@Z#Poz%u zYn{A19R1^t{s)fk6SOV5M%UhaM_=pef91;WaD256CmjAgM|Z^Ki(Nba)A8Nn>R)tn z{n=&8>9^a_{T3yp$B!MJ=H$$FazEzetabG|h!Fh)j;_(=zw7ea+o=BQPJWH6U+e6x zadMhm{S=pPb9(;N@!#V3_B%TEvPSMF9Njany&t=Lk)u1}+WDBH|65o88%ICI)wg+l z9G~8MC%qRtx;BRkoPMekJnrc4aOICXJ%8)kIpXrg&ToI?=>FN2*SL1>arp`-mwlU& z-{$B)@94hi%D?CG54ieoI-Hon*$#cBBs9`|%YG!#BdkZqSfY9eI}OWb#E@C4<07A; z{FHh5gMy@?h{zu@EXySsww_O4?9_BMu0AT?6GkZdk{=;Cv#&|ipe<5PE6OBXMG$0E zA595c9~M~&!P2mx*Oz3k64S4}OI0#5NM>@>QDHtesobQD!*Mi%0$mra0M-MW0oFuw z{<8L4ZAXa2R+Vcm+5HoB+l!rjkG_kOuYwdWVAcJx>Bp1J40Rfm6T`R38cG zKHw~%8dwVGTw?>!0_e9Hw*hwp_W_RpPXKz~!n42&fbJu|2AJPRFwRE+6Mz|je%q*P zLR~Lz2HFArhG7q|4|oVT2pj?q1J46GUp)q#0NwzG(Q9K|&y5Ra>N3*w_#pp+NAlx> z*^%<{1-y2vyqpWkNshh+nnC7)ug%vTYm>d7^Jb%(i9g9bb*gE#EGD zYumDKG4$=&a!0=)+m8Ce(nsGmm~F?_JHCb4cH|Pyf|~6vH%o8JEq&G2tPk{DMUnA= ze@j-D$JSY%YJ!@#MY0A5{w+vZdRy*vT9j=gW9WHOF7omtZ@;Z`Jd3k!==yhX0FQf7 zk*Bxij=ss#`}jpOE@l7Lqu(3&ngRUI^uXO_ykviL;m3>BJYLOrc5bF`@}t>#lt*X44>800PC5)TF(dvf{cL-d#`0F- zJKx?4d}n#HKVJ9k**eFA!k*`O!=nc_dh^&i#}lzj?GHCPW`CvY+p%?)r@GR{5XjB? zF;p?f{XjHIKQwS{lxO?rdB)t(SpV2EM@!7~{jT5s4Grv%xV&6j=4jEw)9N>RaavpE zXj#KNt)A72)7mme%i85>^}De+tu1r3tXG~^zrz|D*k4t7eQlYeWv%k-fqvUGH0V9| zY`LRnjq+nv{vTrc246=W#P;pjddpYNxbr$`JPwKZ+m>0{ib&r`MnR0$mO0wUdZu-* z!06+jMYH<`Tkhy1~6E@J^QB(m8(i44z--nFakk#NpewbdH}rgy&Bdof*HSbNpK({2XSTN&87d z=lF?@etc_uCi0Bggo{1pjKP7_+XLF;?JTNDFpasZ7Th~I_|nBw_&x)Nz6{Lc`w3OL zG!CpY9qvRNHi!?qV~qZNa9<-lDNrm>S`X-J@}&{Fm1t7-IcHvV8(vD()HEz!P+!|% zY5JF666_(SD0LxR@{hjUhkTZJ^CqwI<&{;7>KmN+x6prd@DwpfX%_7m{lC+{d@PAx zcvLhjsHv@}s53J9w`D@GUJa0REu^pe`tp^trF4BOFXL=k*R(ZdcOaDC+SZcl-dqt> zG*nbnELcQzv8n&ICkCgAE!`=uxYhQWZ|1dgWe2b4?`Uf0h07~a?OnVLqM>eC)uNh3 zgcFncZ)Z$!*x9%Otgk2j;mq3M%}0Gan^@Q0*`pT`e3+Z=N3&rJi?{ z9!Fp7t%rXHLv3|=T|-6H8TxXpd3Ts(PjEIqncqgg3G9iy)v2ywaYNnWO50Tbz8n>l zyRo04E#u2?^|qmLHzP9K%GFghEGn;DzFgY9)!ZGY-|Cs<=k6nYjeRel@yC!z?+%vL zRWDdnRm-|K|L;nFA>EYxJqxR?EmNJ!=h&>V!+ka1S<=IEHZMo@`d;5popkosw{gCf ze(KWHjRKUMd(C&rxC(!=8Kt;PJy+6dt9sSxc~<{iY@AQ;W%RnR zr3{mNrgtg&g)m;HcOHt?f$j zx+BzGZmW9L>G$eC>_eu0f6Z?dO^VCZGsj=+L#BRnyEJbdd)15VdjwU@wlqv?M(;f1 zze({ry~~VkXx=)#uU>l>B~%WRWa|C&US_;b@1pW`UbdJA@sIZdlM?J7Y?R&);V{OD zk}ne;Zf2C8U>MBUDZsx&(V+;=-v2Cj_EYyk1n;4(zX#8DaK?YC?`{60Vm|EW{7tbl zQ7+G42Ru7}c`x$U>$0nB^e>*h9UjU4xj*{H|4l_VJScHVgTbbeW`Nl5zV`nMzOS?* zak}-14@%d^mMr+{&jx?H@$t4hYmZcZ=HRu&wKD$P#m)MAc!B*p9YI-7cXL@QTh3JX z7XIks&9-1`TYIXf>`eOI{7pn75tzJ*4I z5V3*s{$LjMN%lE9x1Wr*x=-0k{y63OeZ+do*N;b0@EgdSNBMCUTFCSqu$}=nM%IIu z0}a46zzSd`AV&w`u1H^+&3 y{@eV + + + +ArinLog.Net4 + + + + + + Returns the cached ResourceManager instance used by this class. + + + + Overrides the current thread's CurrentUICulture property for all + resource lookups using this strongly typed resource class. + + + + A strongly-typed resource class, for looking up localized strings, etc. + + + + \ No newline at end of file diff --git a/ArinLog/obj/Debug/ArinLog.Resources.resources b/ArinLog/obj/Debug/ArinLog.Resources.resources new file mode 100644 index 0000000000000000000000000000000000000000..6c05a9776bd7cbae976fdcec7e3a254e93018279 GIT binary patch literal 180 zcmX?i>is@O1_p+SK%5g?SzMBus~417oL^d$oLUTL1*ImYq!#HYR*8GxXUf^%t3Noi54ZC+|=Nl{{sjzU0bQch;FcWPxwes*e}ZIZcpqG__J onW3ezNveT`r81^vrFkWpxv4PQgHubGfR2KJ07n-P+5+SQ04Y>DD*ylh literal 0 HcmV?d00001 diff --git a/ArinLog/obj/Debug/ArinLog.dll b/ArinLog/obj/Debug/ArinLog.dll new file mode 100644 index 0000000000000000000000000000000000000000..dd75fc58c9d26c19039882e4b78fa2a8c3823055 GIT binary patch literal 17920 zcmeHv4SZbHb?3S7bH1&ak!2gpW)$0agru=$%NPR&$&zdN9 zBNzTfgdXuf)9{$+eWqb}B3n#M73}dsdNMJV&gbn?V$@0$rt^txKGD@bl$f+LRw^70 zEO$i@bQARojYf8bhrHTeCZ!=Lf<%{q5^|`Y*nwvP_Xuv*E`f*Q=#7-rpPzIRH#Y{C zLhT!wSrew=Vs7$K^!rvJ~<2_jz=j}Q3PDm+!P4wr!6 zxefq%vaPP(z~q%cYg5Hcx|AmRG*d=!qs?>~?y9RDtxgq+g)z`%8)lK<%CEp(b+yBA zse+ZW!6?mo0+}qY3wPDkPPC~C{ay0^VGB(0xWdK0sgO<&v=H6Cl1NA@(LkaS6I{}J zJ|02tv)}#sUvl|7aOZ|*iY03@HE0#>>B5**ET;yobjB()Cnk$yb|IG?ZBFd83dO9Q z-`JK~&A;YE=X9<#U9dLht?5!Booh}EOpoTWV^>=>XDtQXUP#<)SlAY6kZpDJf^DLt#^{~-Xzya<7(>s# z3n7>-9bc_b8|1=JkbC3;knP0)LGv~kg6jzTo8w6oZ3;Tsrj0m^vZl1_PADm5Da9oq z-@pRSu46Ik=tLc8R}_u4F9c7hDeAM)AXH>G;1M`;5&7)*ArLc5q1wx3@unb|vWAea7C1iF|> zh%^FC$)*J9)979is<=f648A0M6$}_jq)SCu{sb^MMp-_3c!xe6fIEBgLAlUGdG=Xj z#XIIwJc>=wG6|>0U}|bwMtTyXy{U=`rZ9>rX2OsK6Na@{r$V2>D8wKx*BP&g)@-;5 zMBQG6BEd_?kT&hrNQX?j6%WbLBdL(o6gKU(pxPLWfw<;(>>zoTgGXsr)fTm`Ni2v* zqtWKw$|oLO@PoKs7uDmDxUcC-CF=WJ+*BDFQ7vlP>sSo4F7`)_Bo=bAKKAtWNW(rs zYT~}~EjShTMSamoJQj_$K1OZ_aM2C-!H!x*k>;B;`%)A}#s0deKRz!WZW`61VS58h z4@3i14G00_R>gzSpeuouX@YJcM>p7qbqhMW#iQ}Ly1_pv8isP=XgE4gDtBjDIp&_{ zwnQ^+EXU9yTt19&w>Gd`_VIVHqISB7ZY;+s^#&-WDcTKi8coq}fZt*AV84ME5CSg8 zLCJDNavWg>)%8RKtDV9y9PZIJ}i z?f_@VXK%uT*_#_pLq^uP88w?1NG79-)kdU-HH`(Q0L=xbf+lv6~FUsDRKgmF#1>!-6Pa*xP{H*uVq|sC7y?!dV4Gm8s+ah{f&9 z4&^oF2t#|2*@plywPEs(R+AAH1EdtOAPn5VdMm}9oW!h&(hTigzzZuO+}@4UMb*@n z^HLE}Twb=@wTRodL9$}+L2*sz=>(1r-`D9l+KyPtzRyjN?GMG2N~7zNA3!0fjepXQ zwkdWJ<*{&MTg~D9*BFSTnBbC+qa`A)MYXz^C|u5lWRrgpUbCRE4=AS=#zgXipoU{A zZ@Q+EdtH`Ag##|j1*&}wh!@t{*SdL&%X#%03rRv+AfOy!QycaOkc;$|c@A!;xooCY zX+jM)M7pg{IU$&bk?A%c1`9(%T#vf5nKaIZs9vqU)ckx(Cr43{nnWW4nvIrocgR=( zeRw{FQ}Hxp*couR&SJ?Vt1UfyfxRDuIgV5D-UWd(i_a`vksJq05K$sIfy5b~^MKro zdED`8s0D&_Xo~ifb%7OFlvM+3)dX~*=1oSA!S;RPu zIjuH{{z7zWP81%3m7jx`J8NM(2YPW5AZX4qr^D~9H3Y9$d2IqYSTkx4{UTCk8Dn4n zKyeM4m&`*#3H_tYE^{*AuINvUMeuN}U^xjXhZ*L|N4-%>Vhmx0!GV9%(EB$DcV`Ao z=@4&})~;ULiU|-CJwa!>Z649G8;Rb+bA;1Fr9w78USy8lQ21}~T()C~niI}B$g(Xv zdJskF3gE*g@;2pc_=LO^*lgF5Kll3~hu&VXmM15HWFKw}Qi8^E?GD@05!{&12_u`J zx8!49IFvkV;5-)N(fEk~Mk;RRAsU*;G`7t~5f=eED29YV$HetWzXXawyA+vL9#RZi zq`sp>XuY~pjZj*`KalW2K!g4UxdydrOErVOqFs-&FKACA{WI;yT8tvPq8qeBXZmL) zd`iOSCG0eq{-W`eVUS_IVbsw9bEjEHFPPs1d`-edKH)Q{)3+LM1Ta8%`wjy>>Wjlj zulfEO^aj818+4VQrHugw=%_!Aw*I;QGoXLh&l>)dpEWcC*NX`42(ab{kiLL!3EUVk zNDXq?)j{FEfUX8K$PQi`H0Yb42k6;g9Jcz~AX_FHdK&GzDx~N!8UYN@fzV;-@Tm}U zJ|@%8%Jla`L!kJ={}2jLTbOx9!)%!c!k-J*(G%gFra^CoSNlv6LKhpfIKuT_E@3gU zCt}cTkBp)rqhFO={KK<-heUp>!lr1j`|58DLH4~%`S2A;JZ zyC?y#&`}7}4KN*hQN|E`i59?r5SIallr1RtkILifCX)wL7{*rPyJF|; zfbk6AZVA&8j!T%Aupr?P36Dv5vxJ|P@Gc4eM8XFod|1NAB|HfjrJooLN|a*e3c%xL zr{ZgX8OT`JC*rVJ?Hnv2vFO5&i3P~(l~~;ONwFB%gp2)|NCNw?i=7ecfSqu$Ux`h? zz9F&A$|hwD*l8ELTA4sk|59SdX|Iw4R)dg9v{}h02Z1Fe7Ntq$FtA~X3A$C8g-?_u z=4h=Ehg!rB-`&cs2)QTch}=CZY$@#fav#m2cx^x)9}IXxY%Rr-(hF@x{Li#{TcRT11qFV z`l0%3tO}nhWAnrkn!pMOZGfHwqJciB$E>6YNV;wb%L@D=3V9sDWa{lV9@gD6#tG)p@s9t$22H;ZovP5ow3 z2Y5_c?+)>UU|hcg>4mzVejZ$+|B-kr$QlMh%k&vYcu1L{3qwu%7eq_wUhxHSX(&#| zq&_#ha5&Vee_0gt_4-$&%*Vxas0%WWhbHK+1WV2WvdljUU5#`gG=SQ_7}^Q=Ab6Ov zSASYO6&llD5(~qJP%rcUSgZ`+EnXGv;iLMiVj#SL-Vg`FOusR_P+vs1gzwNB>CeKS z(I1B+rAir=?bYrB6&7ivVBO8UW!NfDb9H5^j*NL&6>jw@bK3!nA~034M4G z_Pp>R3Z4S&r5^$g(93|s^b^3{^i#mS^mD)w`Xyk7{uywB-T};!s`zM%e1Ihi10JRr z;89utI7{`4LJ!hiLZQb26If@QLe#yLzN4h*d+JFwMNg_-W{N(ge!@u6*VSgEUy$@4 zO8Rm2DCoDU9|8Ph^+CXU)Hea|R~2ynf>^@Wz~4@5A-Ns%&@QFZg^O`!(Sy1kQAT9F zW7uo&#|UGdEa)#`e&tffv5seWTteo#8M%M2oRGQq(D&#P^&VO3q@+A4>wQvEo~BpC zDekp$PJ3Z|=)q6)T#U$BIP%uPsoBj7LecA0LMbc|e3 zMkHlKQf4JQ4y~cNlzCiAJB}60SM}q9TXeIyl`_T&$$5|Dxkt*m2Rs4eq?C42<~}LQ zJ}G&glro=`5?+?Mq_F0sa4QlLk}A^@wo5o7;jDxwBs?kM%My~tElo(+F5!riHkkg$ z$_eF5%6-aj6jhz4)~d_YM)fP|kJO*ZyH<^8i?oC`rQMI+%(L2?TCIAeKA|7iZ_&S` zKd9@5Ztz-~=#zR9aUJhs5Z6t>5LPo`>@_2DFLqG$gXdxe2R_(Y@s8~h1*a7BPs(Qj zuhJSIqFci;A>ewz7mW>=O}Cj>0^V)*0zLxhqxWInsX-s}yAX|3Kpj5?^_hSs>Qu1j z3j)SayP&v)^FdQ^K0XhW1z5u<*fB9oAzz_YSTPA&4XDssI_mz(; zcPgJ%?^eI9{ztV@8`J)c_M)cE^2}9zeGLdE&GIF9$BoN@4mp7O_?pYN60`W(GzIhH z*|h6rg>%am%HlcmbeLyV4c5@GgE3LJAGYu#rv|++3oF*3W&GrmuUTakEmc?1z3Lw7 z)jml3Fk>9hEcz%{aYdhl2t%*pkRN<8Y>~S%NiZB3Wu_IEla}_1-y_QO7FM& zM>!i@hq8Dp|vx|6R z>(xzz>1@&JD~@*`vht;^>3k-K(%r**@Y#p=PPXVVL(%ff;Ucud%i5AWx~L?f6sj+w zLFa3Ks;c$nc2&_}B#TmGB^y>aZ}~3Eu|?Tf&iiC?EP|r4?6_6hSLT>3C+C`tn5(L8 znq=%Oo*hM4gBfLFQa;XN;oRzOn%p<1+s@*yuCTgP_d)nbk!;#xp%;o1o%jlehG(WM zCdlWo?Hm+QC)}W9?c3LrFP75zF{Cj2WnF~2vc)O8I5(SBgcz^DyV#aH(Q&nu=TFpW z!?O;TcBXUF7W|BDDG97qS)BV$zthg;;FfUgVrq+(w+it0p6>kgq*X|d=D4`a2ro_b zX7dMWcX!U3gxg6A%R0#U27!vu*dZL^s%bZSveRRpCp+1BrZach!yWqWGVa=|f=gL) zRJd8^juOfjsW)3JLFacJNHF=(7@U2eVC~Ny#`tvcZAD6ZI-)~IKjbyL%0AV0!GVUO za#=$Mo!obJ1!W4VnA}%Y2?iYkM6qm63uYyk==dM)+t&{v^tA!%frK9D)yxPVa{pkD-e{g<>$wT`p54 znM!9e`@B#yH|9`5hN?;~dJ|t%$->q!J`JJGx#{ABOu_3mIrX6_B!kqbotc>|j#GNN zgkx^WT9!|J_&f!{wpi+dNyb^|aJqoe;2On2`mE9fPS1NfiZl5!#5|NCneI&Ia--?7 z1GLE+&*ppbhww=Y@y9AOK0P{}N30(wPjH#nBS;BDC9bnOpK%M%$#ko7vv{D;A$E3* z=b_<_!QmYPG_-Zca997XZPYzD*gr_y`Um?udTF?GfUfS|v#Gyhu#5WocMNsYz+iu8 z_s|d_J=od5ZFsQ1mo{}E+0{)udxm=Yw}GW++i>?F^>@nKk=WNi%y~oGd%Yg41br{n zm(Hih(ZvP#10moZ^A;RMr*qlso$1W|7)W}J$L!MN&^=oqI%1!f&qLTtd(U!Q$?wmO zPZ!)dvoe1UxzmrFH8R%zG^!0orgAGs-I*+= zp-lz*x*|Jpd2pVc;dF6X)r{3;Po`KFhD`xs5^)edkl}bRp;Wz*w%y9gI8LdVhR zahQ3Vo#(k`F29$#HJiy;`HGzLPm*5kUO2~y#k`&_WSm7xr8vY{4vj-#gyNkLgt(jgU-iX<@T2~a5J36Ns(s{X9zl>&dud%&RKyl17n*D_M}Vc zz|3+e%_{?E{wsHM-^`YRJv~*4uJ5XqoYm~9vQn@U)@Io`z3WX_s0hIyYPb^^SIjQe zIbA@^ER_Q|)BAX(#gVbcnS7nl=gh-Y(Z-(I*L|25e_6y(t5nW#Y{0_H6A>q9w;QDp z>N@y4UB~}7Pv^%*)_4Q3)5cQH?JhZ`R_0sO!P7ByBK%3!H)jjQO0AN_T9@^Zl%8T) zi7sm_m-a?oMFCGy$=+*^rE^kScX7gv6F|2G8^0L}2Chvh0>LR=Hd!BR$2AT=tN&Ea>6t97P7x`EiHX z>2Y@-MqhYAnY9|t=ADVBBcG8oj%=-c9VUdLH94A_k-<$?!gC`hy0QhB*)Gfsq)QXL zV8Y@at1y>X<}XuZAyix}6h~R)3)nTB1EU$SOpfHS>E?BPN zS(UzQE{E0pn4QOTmM^VcLj&o|V0L^06WY|2mCwLMoK;k>l^=JsJ>-1SiS32W1>{$mQfR0vx=H;imC$ zaMA8Ufrog`N*Cr(DpJZ8-8`LhTyGHDB2Q|0QR6PCUEcxOU7MDBQX1In*79s1=aL~T z1SSe_vg@r(dGF)RUPXMM?S3ii2JN}?gA=RaraX^0y_C(#u{&tx(uZZLSaEJQ_Q}pH zWk<6-aw@r=`fglxzrW=%;H+IX7Z52BiVswZcuiu9x%`#PEz{YmsO_;17t$GPGJQTN zo%YmBfjy`q!z+dU$xM%(CquR+U)2h)1ZI%2LRPxgx#EVirRr(c+Z$(c{L)-dc!sd4 z#4m#%1^43gub;NytdIODoaPZ#82Q{j?C3K)4<1fI7O$cu=mBUA9n(Ks|hU8^GG?rl{f)eMbCZfwMXl} z@t;nfe&V@r-TBo7)qZ2|V+jhq_}ZgyJRz2KP=T^2(~Aw=IL=K5A%Qn{)1Z&ZG~RQj zj=c2Wo~?QR=T80V%tt<2e1Lq9UcYzeqPCZB_C0*nzMG;i1};+*&<%~p2}3Mo8uMcd zMJ&XK&qaKUL|r7xNUe+1YCe=<;A0SFP^%?`QV*d%EkUvQNJNySWY!3=6klAJtA!9X zOZn&w*>Pe)i*W9yC4u13Dl$K|M8q2K9f@#K5u6*j#Mp`u-ts!+*op`amm;x-*a{zr z{A5C`F}9-K=R9LA^GK^-5?K;!nICHvvBvr+X|Z)xgxET!G*nX>{60^Ips!M~i8R-t z8cQOY0g0?P%ZwycQB~eZuqq8OL47?A-bB62w?Q>x8*z8w?$#4R#F9uQ6(gb=(H;{* zqRkP!mo|`!;FD9lvepxds9zXN=&|h)WX5*X%W~V9nF)&FL)m6@2hODUph;60@VS-7 zM2%0Y@J1iNWZ+}K$4(j_Pig$Yi56mj^C{B!I}Q!6)Cp=`gFDULd<}y%UeXKT=-O)- zq>X4smXLQJxJt@1nm6#U-xF6ZHM9#Q8}tC{R~ z06qp$2JA~B5*HM~nNani2G!t`8PLj;28Hl7BM9;Yh1?R=M;|zSL!YRoP;mQ960!Nw z*^hH2^FfH{5V#bkfs^Vc{8d2?yfvYrHIYbKP@5YhAv5Kz?NSI%C40=y6;nfYdTMK_ zG}W2QV&Ue|W9Oct#Lsth;u;2@g}9?3fFZ$_#h5U)IEDt!MA;S!e*q!6d6f7QG(R?b z7r0FMj5UN!4Swn(O2||z2)iam2YNFSYc$YJ7%6CKtWgTCH#iw<^qE>cJb0brhmZ#q zcIJgOio%0#sT_JsxylD&p{2qI$owFNw#=v4IyC^7mkjX#fKp!{gbM4NA&Yt_)~MrS zCu!(d3*#%$DuqX`5^IUIp!qzg(DFF>mYB7u9y-NZB0j!-PSWR76d(6btij+0)+p6Eji62ccX{V2Ra3g3XT3O>+PVzb|J{=t`{J>ZK(bSO0YjET{} zm&Bfz@I^M>>`M{YE82tabyOb)DHrkSFy|7midYA}iBY*69L*OAn`R{16YcRWiC~yZ zA#WIjfi(LnERD+f5y1loMr)UYj`u7u^o zcy5L_F&S^=;2xQn?qAQ~Yh?LV4ZOw&r$5I3*miAu1YLdh&TgnQoypoMXIBcRcDKIH zp3Ewg2}4*L-$BtNR5p+RnTla8z{n6|$H8%1mZzvh5Eobqt%B5#`mr%oH66Ksk8^?xL=Z}d9 z?~7^q>iuJD*R@_U+A`LGn8wts!ghIMUiE$c2_pI(!`@UXd0?{BOeDh@ddUAbIeI?HD~_}eGTN;%6A z`~~I;O0>@{{C@!R{`QjRkr~|eBe?NV-{4T!(A(YD>d#);(({qeY`owLx0Kd$KXzWW zm&0vw?`w~L_NR}Y*qgD(a15I-755&JFC!8~=}v65)qCA_c5$!g7QKD^{6 zqJMiHI{VMb^Uy)2?=zTlF*nga&Y>~l(BFC&I>HP+b{yqcN%uPO`)HR_Oj5q{QNsJn z%C+zq(TQq)1p}UT(h%(fyEOJj7W9}aKZX5M4nOw07|Qj62M6zerupZE8ZFtwafbZ-EzERVribm8GCO%oc0c&ybax^v9~H!X@9o<{4F%wXD?FTKI>{{a9}xbb5Wga6g*x;fXB)-~sv(ojj|`sMHNiZPIaJw8@_efV7a^?KK~ zXP@mUO=RN3}zf|U}fAw>#(|ucdoo?Cklq2{gw48JCP@A1Y`7IE^W7N6X oItnEcHPT8v^Woc^8VBQfkLT(0UIWhGXWWiI*!lh`F6O`VjaB+F?@m)EM(<)%*Rb~#81wnADMMHnz0UkJhZYW*O9%%4m`1IxMh0E9WEB?MFVaC8% z27-VzJveu61bBE(xuNt<_CT@zzhaU(&{?hyV{_Nv!%NUG*rF6|(?Wf-ubMoI`{OQk*J$`w3 z@6xyOLiK;uk#7#0Rr~$>uDN}9#nsuak(a(_E)NSXRR3?@KI~BAs?T2Y`TzM+ck0wr zpT9i3cj;Ssq56N)q1x6tFKqeeUp(@Iiklx>I`7i=%;jOhh3fx*zrW+Fzf3>(=d<^H zD0pW0BY%8(c<<7;@(RQ>`7;iG zN)GHb8L zmzVXIueHB?{gT4hS@n0R@)Y#kG+?H+Iw7RFgt!vYU^p4(5soPd; zXz6R)k>1tQci-H*AnxqxUh+VFsyfw}$)tB|>Dtqn&GvO}*_lmeB(r_-rkzolZN0r6 zlG$ZsW{u45barbf^MR<$HYc;KKxSOej-K|NJJQ|R%%%rAGdtV5l9}wzj?SKBZFNoc zrnP-N_omyaTc6HmJG-}KHl#DzO^tn>-K%@HZEEVG3FD@?qJs+U^+GdFDAr~-wIQ?% zq3xm23#jRuJxOPZ`lYM0y)BFDQ_bm2=eF*2Uol_*8Yb-6lXNz2qQ}D4IwGxIB->n% zuj<~~a}jNFt#rCpE{-jCq%%D```VcZ7r&SK!nQ7cANiT|8!*eyuT<2kDTKfAyz6!Y z_61bjNdJy2q+@#xv2f^0?rKh3$EqnRj;_tiutvYcOoyP9m zf90Rl{$t{NZTHHL;^Im`eC8n`Sbm%Zmh3N|yQ*d**RoswP+c1AllVOCtWSTwRJ1A+ zt#Fi9edB3&{qC8ciB@Hz6^_!XA3W{Je>u5GwCW$xsxC^azVWnozx&`~(W=ixtGXzy z`q|UgzI`AiT8#tIsxC@*4JMdRE}F#Q(e7aL0#>l z2E8|0YG8qre-c_H|IA3&$SJJ{8~NMP+09KoJ9=5@`zTX89pDpycsyOao#{c+=#LD8 zAq^s8LOm8cJ+h{;LOn{*qZz(XkH~^3dD7(+xEBKH;%Nucg&`K|5*6irQtNa%Q$&|i zbkR5ob9Cu^(@qCZ6W3vi^9Oww>fl85^FL1~OIxb{r+b@dsaUBcSwP5ad+h5O_Lx zY9h!@32K8W!8{-ZEDR)1eDy$rf8I9y5mW<8d*GLS?*%J<{XV!H%5lNcpgb5K%4nu; zAQ=xk8IL#_e;CSGR3O9lQ*k{GI2i|>jE{se78l5{J}xffH7DaIPR8p7kHeNGBjXG< zj52ochom^8G#QXTRs)j14|oDN3cLVlybq;!wg*OFo{#@W%!Jqc&Zin;!J7;oQx%K< zpP^8+zFzZxj=Kwzgj%f!Yd0?5y`yW%_H4FyaaGl>UAt1d>QX&@+p0FMSzT4LXi-B| zH@AM7-nMqL#Lda`bZ3fi)mB$mS0S)FQ$^d7zj*zg4EKDgjXSzht2?{z*M1~YjviB@ z`BYO+R~I*L+~_EnT{}=+>gF`JK%MQ-Tvb40+n8?4*7%Q4r0z1eiObtEh9%Z!b7$MO z?w(Axvt4Z#%G2$zVxRTZ66&SDb7N`^fy&28zmCpzG5ZQ=ed1-k(knQ_G5w@ATn-VaX%*^88e>5w;K?xuaAr;v;XtsiM^E>SC9ryM87euK2;iHk@?Gb zC}nN6ZQq>Eu58O}Z|dnVaYAD{Co1^F5p9%FXSlADFYHpYrW*=vmKMSob#a^1*)E z9s!T&Jx#oQ?*sZWY(F9<>8e~`9qPT*?WH#; zu#lqTw;a8{O_|ZVxiiz-lPOf3I{EQA^j-_Ucs+ewcj-j6_Nh*Hqf>VCHoH_rb@FTK zQKysku0CCfPOp+NI;G4lmC<1%w9f#d_4RQb{CIf-8trlI+)IQut2yoIlz!%7>sheI z=g&=Sy%ptW5nC(5_-yA+BAk0s8UNvAyakqCZyOmmA!AN~3_JFV?@u`w$QfJNt7Ch> zApdXyL$??Hyv32Teu(HEVJBv^?tA9R^3uAPiB zu-3t!y#7n0&uH>myRHCNfX9HRfy=?V$G8$aCfH0{bJ1>CFd?{(>k0g;1WyXvSAW>C zQ@lSI(8h+V!0L~y!R5it$hZy}`FoC6sgoc4n2Gvfl9MqREZZuKjA_K5sYb>b%2aOr z4Q>FolTpJT19aB&0&oI&3($Ft_7iJ??ZD%}XMkhCP{{xPvie47B#`ua$$s;gl`>SL8(S58B#q&eji*QJx#AQ<^PjNphNvvEaNTF+iY zquAU5J_U%+)5hEKv6=gka9xRu^ZNLG^s}Z>J4X<0684nNkLh#!7Cr5;x@dkKgHQ9y z)5Uf1>plD6P?t0&sR6&PMeCfNz8OQK>6fP&cdSDiyI6om=E3E$$VIM|g(^mN9QuZdfso?EK z-h;^4g^Vdi#y-le-x9`$WVObdy`--1bu#V)OIKpIiIvj*YVtTSr}eEHTm$X_bMFxJ zg1L7H?gy6#tI)WMc5g7YOyG3K#_Maqiq}&DA17~sM@jMjMVx*Dcng?{VfBFa1n=ae zdF=O3&DgCJeR(UzPe@U_|9GM}+YHT(5GKK2b$zZ_roPYfvghOpJ4Io9 zS6uZm^?5gjw7>GHiZS$q=oo6^U}9%qcn`G_9__!yealP8j zS;ZBfh#94)ybe48-0YblknJzf{#^LP;!x*Y(WlD;n+qr%m_zZ9y zco{eY45j~`9#H)Eb9cW}F*Hi&mKg_||@||0^YSs6B{~SCD$ew0s&F{J(&j9p1z&}dy^M|vEaP5n9ML2)_ znNzP@gMSj~?V0rBgT5al_i;K4=z?CfzCJpC>uU3R4BnA(?Yna?-nvWc(2L~nYhpA- z&+ELN+HWgypA)9*(X)%27c&$aJ33UMv6h8aYqV&6eOyn!K709N-JE~OjcdtbT`qm7 zi2Rq3tvDfCUmur0(VhRjEA)f8A2H8O)I_wryJwfY6W+_^>-zgn{i`LiA5CYy@veL; zQ~K4n_4T#wu^k{8bZ>u}zVud6NCsxd>j&+h79P=inz+t>?s0z{>YU9V!5h7G@7;?W&YFV{$MlZ!#r5{%O0H zlw+RCr@5Kn>%dFEm0<3-1Iltau;?Fh`9omlX6{eHv%sGNGy)QFV2A%gHMCs1AZIKemZwOgH?W;1IDMh8t_uEzAZ)Ni@}ZL-w$36E(v}cookIx zw5Kjd|8h<_%ILvzd{Z8Ln(JvmTS%ii>)QuITaVDbop*_#m20Ijz!T<*=Wet`lV-m( z416AN004J;or{`4N5(f>}c z^jA6lMuQ-Szk|EMCFo-HviDMD%%*Z?to5DM59OXVCjH6Le{+uCNe^*=A&NMQ$c4-Xc>)aX|dG00}#fKQppzE7|cR=yOr?J>O z9b=8Xk$sZJ$!ZEk>+9n-`ZY;0c^_bXkqG@69pAU|+(vC6GpBW94On{{jbp{;+sG%u zw}a<_(KScR(>tanHr)XpN4%&YN=+bUXiQfSp(}_b6NvB=f*Ck^vWcb4ai?>_=ub9K zzZ0)ax(8X(WiwcFp&hKV)>d#iv1c4GojD%8=NG*a{tDJI2ekg}2c7_i(xu}8jRU`5 zKH@rcbVPk7YiS+jrYbTY#P=BrMeFM|ABN6*fBo}b`7wXqo8RmDeXgF*Dm7VT{$52t zE%E)djdL0oJQbh6K>1;KMDJ-LvCBNG^Luml3}Jls@mH~1P3G%d{MEh1YI|>?*c+=a zh`rL|RrGiQL5hRKH8ZAs+|Tm{K_>^ykPy-A`{U6){ysHCYP87wC03Q@oV-A1yAj)u z&|VH6(R-S>?XnMc;+wa4+{aBdB zW8XKued^or<8anc`F20;J`S(=JZ;=gt&tLXWoRdU@t=ZoKJ$H@r|IttbwRAYpD&(+ zXg~Vse&e4azL1~uyo39~-_I?F$0yd`($V-?a!g;x43IAl(XQ_6#OG<_zVLmHer~+? zx07b1f3&`zoiEas);`8>FxBbh`#jG(xSgYPV@_fYhiM{quJ(2g(C2$;cLcoR^R#h0 zeV?;Vhx0n-vT&aHF_?Aw$R?lIo0Q(;_0b%Q36bB&z}E|i&(p^B@pIa@HA@c`NZj9s ziRTEV_xiT%%VA+_B2rtsX{Qoi@p;;KTi$jI4{eW&6OG1Fp2m!Wf`0ZoFL(Ro6He!; zQpP3D=1Lze)cH35UUO7=={^_!R{`;Rp1AJ*tcku2b#H?{<@Ak~TbqhD7xt~!eX4>l zX@f=PFZ<2Xr@ZcWq<8c@knS%mWBq;-y(c3>{GKPSyL6Ob;&Q0_AY#q_UNI$4-@gxx z-`Jdvr|m{)zvT4w>qnlK&q}#>EyQyKp0V&~oP0OJ!)2sB%Y%ubzv6v9)oqHlL*oq6 zN*@)oON`&rHYYC_q=VHDN!mY+4DoxOf$S&7pO^iL;jAUPr*ZTyhI4Mpw!}Pl()v@h zzQ*2H>i#8GUoiI-A0&KWni?~H6@!b>xFcLc!x$|}W8Y`3HF2#2Kb^u)e}JF*oNxUZ zXkNZ~hsV%A&Sv8z^jn~RFw(ag7g74|^zLjUW$KG(;W+`%DtHb>+TgN~hY6u^!V*_d z-pjtPlQUS!I*qKi2>2VJdEUuVzvwnF+CCp&=iHz}N1%r9MtIHwoT-^-#HhmEt39KR z^0n{m>*H0hRo&~`dwSEiX^L{*m>j1NJTTo_r=i+Pjw1vV&~}pd^V{3-s(eoQQjC=@ zvVmz+z!$ec8^TwB--T{ngpV#P;Bz*}{l-S^4+qvgZ==@Hf$0iuM2!O4sEyv%D1HNa z-T&Krx8m=b;$v-@&6$LJ2ymum&(Hih?E%W|Jw+nCACdk003~bqOcCQm%o-Y}k<cRCjLk=-9B z%w8E01wKk5FX|)OF3<}da_Y0|!17Hc*z38B{7mxweUvKdBaKD7hb{i@^lW5FmpNd? z>>G^i(daur>~qPm`_AI;kk558=7Ht^l#ww58L3c47v*+8nSYm3v8EMJV%acy)Pl85 zR-b5G)sfd6tOsjNnh(}_wVoZ61b>A5Yg|8QjFtn-0)H010Xn-6Oqe|(S?cU(Vs+hs z4B4*d4w9|s4vatZ+(BoB*i9Qp@#`AoP62)^lzoDFyH87mdp@maF9S-Pl^fZNX=8`% zQQTQZo;jeoWBOR->f`0)@uTLtIhSk(W3zd_ApeUFS>`#ztzgDwZZ&u%cnx?J_%`q@ z;5)$3(C&mpIgwFw$-cMg-?MLLo=)IQ^L_lSHuV+kpme@z-{ZU*Pfnu$CYm{a6nS=U zl`#7(veetp+UuJ3jjgm_VC(JVW$Rk7#^8Aaf<`F)V;{)U; zyS&ER9`ejX^Lb|Vljsk5CfIkTS92lP5pMyUP{vw#znEMJ?a{dN< zkoGNx{`=sMk^ev7kAqKx{}}uW@F&20&O^_=a=NkmB=}um$-f5t zC*<{PPWcr0Psum9{Egrz$v1&N1#SjE1#SU94c2}Mn{u~+u_?zHe(+f^XYoefCNMVU zeh>Tw@K#rTFBn^M_k*7S?*V@a{9f>v!M_jwOYmMWV>tId@K?dw1O63Q9lsm=C|G(Q z03RcN5d1ap{{Vj-To$Zg>{Xh1G9kFl;0i|R1a?`PThka7)0o*6L@}G+V(?5x@C;`5 zY~JXf&9ldu%mmfXW)=(2gMT*9YG)JOX2Uy^=sSbIR>pP6tT)#)h!&P_1GO#i-3z3F z!|>hiWNkFK#_2adxCx01fg6EE(AJr@X7X3EX7Jo$1`$x#Gtprt5mjZ=Sam9hsrFgN zbmr6)z{Zer)?mG}uDEc9F~Pn?>xD_J{5@L2UKMy1I17v|<(W3H4Cny%0*8TPz$?HR zVDdvcaj zbpC(w&i~)Q(OP4bw6E1Vprj?D+FS*}eZ&FvRTo%8afgWu70ibU=EK-!w<`0uWy3 z=w}lxOy1S6BcuGAj(?t`YxHuRyxETaN5oRmf7anQ(MkDESN|19|ERdoQpbI0PI9z5wWR)%vWH-hI~d;*)?D@G-z-KrvXKU%C;{ zy`Sz2TY)ZMH?R*l06YO40geL4ffoRM*5(B8Ur7^#nYxWMLuHu%f;aLLgV~Yt>IHo5 zPIWaml2aUg2Qa^ z9b4|`7v$SfA6fe7w~gi7vGtB`VZNOa=*L-5yWQpH>20~CuOonYALzY`GUEgPEjf7} zTjzN2o3}->hKJvRlBc)jPN#-^8#zPIn{tsaKk@e4I>)mp--hmghX?SuFDmi$w%pOT zS^BZaFP82p35NN-L9zOwvUiRL_M7pNe>vWd7hCSe%N9K^v-5EbF>82WpE?(O2@Edr zyq3oCw&!^j`-TU_zlg>2S{ldOp|g40?nYwUaCZ~xX>FOKP3LJfpGsr2w#?GjAlJtw zE}@NoTR`3xTkrU2!_R-6ErfjT)B9d8TjzMT=IxgbqfE?*e@Zvso~5z8wUPE#;ycTm z|M04B&(=8}+VeWTV0iSxMt>e#XL;&aNIj3*A8mBZe@f4{W9u9bu{|2sMk?mG4~RwS zM+QzW=zU+lz?d5u>mOU@Xo>%xR-gSD8Q2d4dAYXC(GvST?Mp>yZJDDb-g{boW@Thx zKY`-q+A>E=9QO7-XK4G+5nJx)iNStM$xkDU5AjLlg=yc8t+#yD^q1F3<7Pz6FSg9m z*3eI$Rx(Orw6@IAvQ~NhwH}oief&FPc73FalDKL&#U*fY+D2KS{ld8*zml12kKX~YiS%WW5x68eWhR3uBCCj zj2+*m48C=z15!^zM)6>;IBXp5M|re#VvO*I8r9ATL|^_AQ;` zXRY`A$+Gj~w{(twON5_8r}Jq)Y3Lk3@jp6d6Gg^s!o`Sc#^6x;&3Qn3yj^8A3Bm(U z)q=;T1}*ER1&2RS$(+>ZUglD+`yZbsa-lOHo}!Ol1d1_A8vtEy zzvVSOA~Y%go-0U^eFaHW# zQX97OWqcj$+qS0d4g?z?=gChmEltbo8s;|;rc4^Vo$FAw z$>%+HFf9d%L(SYgCu*hv+-7 zJZ{OtxqEV;@#y6<{umP3J;Cy(`UMSjjjXrxzMlH2bW`%rENssHO$4u1sCz{x&YNW01NmbyopO!$J>PT^^xqjHyvwK1u#Z z0N-A`?o-qi=XqAXEQadi~8l>;z|nZ zUaQdOsV5b!v!9cGNCHTOeB@aVT1}1W3Vo)}@GcAM+yzKu;%VyMl?xj&if~~F3!&h`KVp+vpeUb zQ_&yy8uZ7Z+~#Y5AI*yV6jgprjQ+&Y1++i^16@JjfB(!40eZzHb+}Dq%^9NNzwglJ zFOSmNM#=|+S=1-l=jhyiDu(G9=63R@C~wBF4U}(Sd^YmckFg7!R<0d0b(0D8w) zd%$Uc?AQJ*3CsYl1+D`sftkSdz`Ft2I2)J)+yKaic|Z!N0yviC{YCSgGI|%>?7car z)cfD&GcNL}?vED(+7m4S^xS$Wpu>=5KqK&*PPhD~8ysqH$OA(j81lf72ZlT_x&%uZ&%nQy<{aa_l7{*dv?)_q0p$3&&ppvj8(Q>nC!PXtae zKHrQ7{oW~9R3;zM4}bmMxYR{yVU$BzSfTs9!!pq-{Q}jAnL<8F1{>K{ww(=!a%&(q zgwI^>n<>5m?m@l-bI2v+sRCRea9{zy?J5npJU6xwiG~A}SYc^@B@sw}`4l80c9ey* zFt+kM_gyo`Qq=&(t29*<4t#5mStfghOl2l?2=7#IgDX9=#N{ zPK7Q3iE_d5{Z6}yYyZC2T7!c9XZ`PvK73^LVOY!H0|sq!E(>Bk44~y65KtI| + + + +ArinLog + + + + + + Returns the cached ResourceManager instance used by this class. + + + + Overrides the current thread's CurrentUICulture property for all + resource lookups using this strongly typed resource class. + + + + A strongly-typed resource class, for looking up localized strings, etc. + + + + \ No newline at end of file diff --git a/ArinLog/obj/Debug/DesignTimeResolveAssemblyReferencesInput.cache b/ArinLog/obj/Debug/DesignTimeResolveAssemblyReferencesInput.cache new file mode 100644 index 0000000000000000000000000000000000000000..5e22f457c8e43595fd1a725996f2d8c8c786d757 GIT binary patch literal 5798 zcmeHLPfr_16t}@_FoYJR0FgKl+cc<P^m(_^w3My9(w4Z-zelWwC}C$1H@cq26u&9mD)NJ9nx;Gn*T|vSsViX47B$nmwQgcxVYFDgAeos;dS0#p^ch+^PthU4~I%*KdWG0cc z-4k2Ic-6D4B~EO*>+UCmybd50nY%1tll$<%Wq-qPp z)4auvwK{X#3wJSYOn*d?6m z0TR%)$N5qaV3Rv=btc=t(^cs6lj%l>OgSP3}S52_&ccDyFkWHufC0wPzz-k z_`}Fo1NGEtB>}B5pFaY%-o3f|%6m{5z$Pt|%B1Jx*WiBwO^sjWeI(j0b8J&V92C<` z%TliUHM&O=xEpACs1TZ;L*UdG>vceR1S6 z@+-<1NUeabu&x?lI@O1G>I7JGQV(`ZZTS(vpcDQUY{qHN({Tgz00eOAn|U1M$nfOk zh$I>k(C`?~`jS5gS3_SiI?^qWQw~o<6mc6wknlu&Xr$pHgADi%yvPIvfVBgUG&7I~$9yq_pg1heZH&OS&gDH$RzRkk$`%8`{ zH_H9}aTRX8c1a-i!=#RK2S}mw_ih4lr7z$ksKk~a8xuvG;{#6>D(#X$%!wu8<4&k3 zcY)m4&z_qII#50a?#TWl=19zlEOE#?!5KMFK7sbJ{nGhqkH&%WDeyaiWhY>sq5T5c zMbv_6kppECn!W-Xb{ySSnA1YH2?VXaJ?}v!j15EFisg!m6h&d_{jGb`{8zHHd(#97 Hu=3!)SLK&l literal 0 HcmV?d00001 diff --git a/ArinLog/obj/Debug/TempPE/My Project.Resources.Designer.vb.dll b/ArinLog/obj/Debug/TempPE/My Project.Resources.Designer.vb.dll new file mode 100644 index 0000000000000000000000000000000000000000..e8c1be2127105c7814de9891e7dbacab6e2fef86 GIT binary patch literal 7680 zcmeHLYit}>6+ZXw)9Yl(dgDADcU(J_V<#)8aRjL7U5p5+TenjL4rLEux0wnt4J9lOu zb^-;7UzD-u-1EBUo^$TGkJ-sPAEp2i1@V6PA<^?_`AIAIufZb3@#|iQ)3Ys?x}Fyk zm%66r4M!{6R>95|wOqDTvRrLe*X&A3GfLXXzKmA1@_K6J%2ulCK_rYJ(Tl`hkcV2qI1_1txgaL#r@Agr|d=7 zSRYz=8tZ$?!34$@!3#PO#^6`bL1to$$ac_aVGNqVKBDA+pif{(C?^)UhZTb~)=%NS zx(wYD3v9zeeJqo~U}Ax-TFAmO8HPwK@Hp1WCYdCJil`|e1HC|Fy=`@==MP5V5=_Y6 zWL;A86Y(ToMQ7QINo*RA`yfK}XuiM%#z@Hf)`Mkj0BDVzLf{*>we>=~ztxjOtc?&wl0)Giv zO)Q{C&|_1lTx6>6kb@kAd%MxuMNZ@*0M9kz=>ZS%2#%NH+@EEB{~90lkm$ue5cc^) znOld1U!7d*#|BdasT~75w(kOgnKS|C;bZp#(Q9ab#(2iHjZ(p3jfdfAFWT;d8G0T# z=ev8)!SNBaFN2;y8oP%~YZf#=NT)d5{_U0)I7olryo1*%vO~x$&!t-9m>9JzZ$P^f zFV`^2LdiKc*5f`ft(Il2C3-Z>eB^qcTkA^R<@!EvTIkcpi5MR10v< z*D9I>wGvc-LJ;%*x)QokMd?0;EJ3zNUxqBq>k$3Eg?^i%hxG*6Gs;Q}t)=ZWCNw}x zYy*5m+ywZX*h5|PHTf|5z9PQ~_*eM^U@`D>+OJ^{3a|ScC1L2u5^6?KiFG%MwUC`s zR5H3tYy@@Ir=~?OsF!@|L9r9mWuJOV41s!2QDgEQkptDyMR>;KU&K5zFsP^#6qY8a z{k|+N?*=ums06K*$3dM^l%Sn*5xF|6D9`I4ol{gGIxZhVb-lSn_MW1W(Qx29kfpEZ z(UZ{)foDJ+@u?dEKLjwI+Ih;38({F~8p?)UBE%Pp1v2lMQ))t zLZfmQIJe64O8N^0U!mUc({fzlzXI$G{6^th=mhN)DXhcpK#F#Vt${T4)4P<$sK2IR zto`2sGCmH?F?h;&PVo(J?i7nk{{-EKUMI*=kb9j3RS=IW>63Jk&WR^g-xn3`4Idj0~Wne+0;ynv!Zt z+O0U|wWHJ6psFS{XT`Iy2K5l zUo46*im!@C#gq8!mv_h`@(1_}qN2j6wg_Mpe=TZv+$i>;f?pF;fG5OJz{}!ufT!hS zfam3p0Y4RZ0q|ttWxz9l64f054B=10S_CixYZCi!D_}zHKuJ)N+7w&^p2TjFqze8X zM7AO#F4{$#TrY!*FuUa8i;LR!e6Dv+@m}3{Vz9-}QoSCm8$JPo@QNj?aKiRs6|F)= zbIYekpWH@gu$yU2-#lsME2jQwDmppKHjP=DG;+4(SaWXbkl|Fa=1|r#ax_`pT`rqO zF6$ariFV^qo3IM0$tncHR45H76`PeBCQ}XOWHqC^t~x*)D7u$*+r`k=@-)@tXWfG)9>UQnm2)ll zd(HkMy61I0tW4E$^&)w`qpRv$(B0{}MzM}A4Ukx?X>2MowM^%rgVeF2LW-(croz(Z zgchflBzT#2^MK90M(@UKI%Lrv-QAmY=7;e;L{rtW&J5K~S>APphB0BTK0Q5Na@=ew z2aKl3@Ch0*oU-LC6|;*lQ|s_ga?6wG6-8>igpw&`O&Yd<9d{39&5DkS;9M#OdsR2* z%|TOT)M{ihTgn!YK-(`Q(Bv!c!Br}28uxl7J6ti{imi{A=B&E1&r{i7Zjb}2$(<(r z82d>zi9Zxvo-+y++g}}xl~OBTRdsoNE(L!im4V3YaZQbK!XH9*#i@WA5R^oC&#>HgTvcj`IVilDw!$jux=p`MF>v@(mZ1|Cl z7}-L}a$FuSo`C!6w!;PHEge;Rp(5~vP>&U~Fd8!tJRjxaV zn6dd9OD6SzKBwC{7Nft8YbNwLe?;2tIC^o`ta{r{ji}8-eV!Yh)h6_ItHhhnvI6jT zURAo8YAH8wTP5ROJ&zU3GplO-fNo}wE6iz_^%Kcz5X~B<;Z_^c$*Sfb6OHBU&#G>x zj^P0M2!&MM?Q_XkZLT@n9@R;5Q%Nk+P6?hlOi5phYQ1GbxJRmF-v-M z`v5*v@rTO-Ul087ye8^339nfljBwxpQ3eSH9E^ys64W|bRZB{p^|=309E|3}hE@oQ zfTs?!nnLplge!^Y=moQPJD$UN#G$*S`e|s<5@w2ezC(? zs__qW#MVLyym%%BdM{m>Fs&-V+ZOeDrj9bYYR?0gBkOP0Ydix_*QjL+p^~u!7 zuoe3|fMqvTgg>t}Wt0dajlv21AcCip3u{WQIc#Uk*d<1f=kzk~Zn)Cn)DiT~4yC3* zoPW>L8uSv3Wmi2o>g^HJoXi>}@BXRl^~L?+X42AE_4q&Ie>DR_{T_zjDHoSU=~IDzJH>hRNpEsk(kwxLnN`D3DWp=W{eo^!z!@KwMk z*FU`q*Rb>^+!8cU{~M%P;Dp~XB>1(FN7NaYQ+CQr#?hcVfHmCEJp^4F9yNR!z=_#- z3BGQIK1bs!-4c8^k*_QjK@)yit73WYhZT$N0w)K(Yn{0%^87MzCYO|@6di;ADaym1 zcXaovI3^%1s8NPtvkd!uo)>5ymPu_TuJUQ0&*!tAeX7OJ)PLW%L6tWz&OGiC9Ov@v uHS)$e#4iM@&u-+`K}50ol!xELrgWuey5< zS>kdae4rlnt9nOWuU@^n+HU*1t4Spy4e#;eME4`)r%uAx2N|$~bH5p+d;O2kyI*O2 zd|vnVSjreoTK&n$fYBF8B&@X2YZ}R+gb_;^O&wjvfE6{v6DI~1I9ac2CTdkQdh*73 zo7~clk(gJc6cJT|a)wR4>Kudy-mQ4Kb_N1r*Bdcee-7ywUTzE?L3JM|Dwcn_&_Qhx zT84bPIG!OoRP7M+gCj%}7~e`Xi^Dhj7(~82Ss(DVd3ZQ&?oI>$bOiu-vaL?Nfyu`} zso_*Kl8z89Q$X5^7j32y^{gX05>BR)ePGEpWDr^Gya?Q<4vGsW&A0_Y*`_1laDGv| zc~2ctLmoOFeIILJkjE7swoO4EN-rY%jzOd{5zjg!=MyC14ZywN|J%R5c$m%glX&A@ z!>P165biWn)=;v~Ol4!8W+ZARD~*9vpOuWqdMk~MW-=AC602&%)%>e88i(TPp`^Jg zVGgB}k$9!CZm2gN>pRyR?zS#46RUd9JTtPiZ|NB|%a_!e)ytO8Ke4c(L^?KLx}|rS zX|{LwSy$i0e_ZD|q8wEYR3OAC3{>2f(h+1p(^6iJA)S`Ohz?|+8ZG7L7$h}}-_mM@ z;H?P4p?#df3V>UYr6Xx*AE&nm4@qcGNL+!+&#cl}6Q@^*iqdMq z-jmRpkXk~oO-37L>X$HNJx%2dSf(5@Xjw??nGTXQ1E9!z1sXQ9s-zs!rx)2AuQd}a zZ^b!wT9JZ74eaGK71S%l9@I-y%jW=3BP#YX4)x~o=AOV~-E*6uL6nbHAjPRd-D}5k z`hotyM@t;O9n0~9l8;t6d^?uopCb8y4&RRD_|Oyb2Xy#$EXPNufsg)i_;$?ZvoA(} zf{&JHmca@st@h9a^aJG3SFCC=WiJFZkpy*cFWRGt@_C@|Mb({XpoHclFFc!%l%L8x z6ziry37RSsPbr5~V9Ju2BE70-63L{6&W1*QkN@iW& z0IebGP)<}B52y=;bvwIzzQEvj^r*vX4f)~)m9`19eL1*0vv%nx@8=895HYI6qy0sM2rwM&8OM9xqju~R%6_^{Xo~tH1 zP#xE1#OXmh4`IP5^%}3MCOLXbJt0r!vXCdgk+OlKHLm|5iql@OelP#4$aPvHo?WU#%o-Hmb|1dHuni42K8{xBZEGlq}{2V$&#TZ}8 zOw1p!WP&k;PAHaJWYqx#o}J`mCfk&kp_||A*))msnewa`AeGPrB34KgyeF@*uDm#;>mH0B49ftR!S z<>)2$*$U6Y1jiZL=kQz_JYO3;Go8PW zXg51mj(4S#u|$80B`!h%2N2HR&_x4pfxqMWW;9dw5f!qs0cZ5a~vXXKv%kARi%!7-SbW9gAgkj0`BFe$@ z5>H!r0u)e=0e)C96rI|YHA;YP14X9=LdL~KLZ_$2V}LJ;p94Omu7TvU8pD8x;Zz9^ zN?4&!*L6BiU#$n}yZSwVVed3=kk&|;_HOa&bffojZ-9R0y$|qzyrmSR3g1MZPCdS} z0r&bi&zk`Q^i5wWYU1<10QxLHQ)>OCsBM>@(_Y}`dVUIY$osj5&q+fB9?hf zLUqCmkeoGv<(E(3TCI`sUJ3U~_*n_>lJEzBtYur*t~D*9Ghsh2)&R^8jQhWs+JH?2 zrjiGVHX-dq$oeE^I@l>PzYJx-(fMm-YxVMNG_CEF+GeD z>LH8S7re)1c@?m%8j2|f;5AAW;JwNUz@I23d`WPrrNv=m@nbS0;d`QNZX+I=gzsmCnZOnYuvs~GjxlzI| zOZXKD@0IXd68?*Xk4g9=37?bjR}%hS!j~m{RYFDQJiQVYOE?KIL@V@b0sHmq0H4(# zP<->CD$=LTP)bp^;sR`%#6r_HC{w{}l31y4i!u|~76-djDF>EzusfBdz^-tx?<)gU!$m z1Ka9gjoMS#rKBBfy>=8>#>S`z=_b%2U~6TM{S?^U><&@i9om1wk9;SK{TKZ0FS6Jx zSfO8ink%U&Q|NxoCY57Z3R?9qd(epNMwHo!Dt{7SD zQcsOCkDidZl=^n*Ur-iMF*|H3^(Z zP${FWPCDUbjEC$L!LTC_hE%55uv^B*hQ-AS#kAsLoFZtPYDmWS%J_ajAt@@2ML8g4 zK8aMW%uAB;s?4DVbDE$t099HE2-^ho(0V|H5)zJ-QRo)kPdxq(0)9{V9NV{kh0*jq%O@FhXv9)FVV z^j(TLm-rLFYebXud9C!c?{aFT=X|HAt&;mZ;8A*k%KQt|7pMxbUgq!zs`J;VEwt8u zhWfwsQU6NSPrLn%s-j%t$2d?v?{5LOMs%ng?^c&1pTo4A?(%O@L&}5xrzoU6ikYom zmJ*YBw$Km#+iAMOspbLpBQ4j~ul&Ium-*~K>96>A0eS-4Whr|hSsb`btx=W)cF=OA zIdFqouUrxMB1+`6Ey{I)S7^O*Z{T)yz4D#FR8WovI@HYyw|zRj8hB7$MCC<~VD!#V zzOTk4eTULhv{1W5)@>M+o3w*~-=$AV?&kmx)6EjzA>lm|J|N+@CH%gGPfGX`34_FI znILAV=V39c=q11wKp%C}Dn-x+8UF}1C_dUkYXG<61X@r;(xYgDkG9iBz&M=;I7nLo z(_{kfrt<+WA`37>X~4^981Mk?1H6Lv171xB06$Gv0v^Jgw}|%BToI=I;&M-zu9I+& zxB&5U#obz%y2Jy3De+NIJ|zwTHi|EUa=E0OC!RsPPZ*$IAeI3BhUTbsm~k7FI{2Q) zl|~27q@zj;%31|WXp zMncwKaQzj*b&g0_B#OmkF+-d$5@J~F6IbFlS*=p{0pEw;`FMNPgX(A1yVU#CC)H=v zYOPxH!t)Sary1}@yz=*82E)n~b4L;EZ-QJee^|lpnf|171Ky@=22{nz03Q;E0B_a& z$l@QhiGcs4g#ZuB_zxufu{If$3jHp?JM?=2U(p{1JjMGkYzwP1%tR%C0_CfK9{dDq z;05$zRurf~5nw6SXbRSB6A_;b8azFqz@96F_%sP;KuTboGMou11-BiO5uXhyh2{VX zSip3^O7In`0u;E2mi(M^imEUaeMtxNR7W zMr&YjC~YPYU6-`ZH~Z3vZ8Cei%;e4(j<>0MdlCoRU6E~OM=!G>wKIl;?yWU$M${RJ zrOdWefAdZ=kzN}~MB~V>xqCD2!rX)Elq-x$6onJ)wA=^gq9|d|Or}x0(HaxZ zYf83~c{H@xq;Ox_LX$>K-(=bi%eLG;WGB0MNGj9zo9Ujc#6UJ$r~_iDys~M4u@N#G zQqTqq%E*8WMu;#sU*`io1${6=I={gDRLwik;VH6cjfq}JZEwWYBy|rDnoN*kw`K3T zsS$meHhX$n5~*|~(T5l&lbC~0Q!F)Tr3%?xMP%b97(=(*iMHK@TN1FUL?lj)7Gk^8 z8zb={6Gp?jlmxC-Haq8{qospZ$Kqy7Vw*+V5Fv-&&6kUI-5Z8tahMF0A-b_XRW;0kzMFSIe`=H zSsfo@RpVYpO5~v|m4`MCC2cX#aR+Kr6F@gEb4UuwSPxroQ!I&bW+jJZhJ_T)vydXu zW~hgIh*=zW#W>ztpGwQjTkE^hC^JGm82!zONH6ruiE(mjGO(euQlpsJ~$hsAsKIs#N)k@z6+?q?2jc{5<79hMrqb||4{Ex0v@xU z+>EobEgI(RnVN+q}7hJ$E<(Jsv7^1av!j(7>Je>f zrj0FKEgkI;X=(3n?nHuaM!VLxQfJrVC5x%4zPrAm9+@Ml&41wpjmA z(wUBOQ&X2S8L%->)Z7+9cV=A#7tv(X&~uU}tKuf2T*SVjW%q3*FePD@G~?79jbTtV zB&}U3HvRfE4j_9m^^IiM{hqCA)NHZ_!kicUQ4&roVWQ$@l)Y;%4@bNy7U@q|DcEfa zb?hDLhqBkkqER!E6CHh4atm<%C%hdd(nvCDPw~0r$j-EB?U8{KYf#weaFdye^(Sbp z86U(g^DZkH&E@3OxzoN<&NeYy1BbzBagojL+8%ngTXeWQuh>&Q3oy1iX$?4(`o45* zXN0F>d&0@~W!vzYq%}0yXvO1jby$?-YQ^1bm%w&p$41mtPA%48wxVb=Ry(nRPIX5s zrk{b{Si;0ggl7Wjbn6pQ>8`k_c54^AwJx*IN<>rCfu?eWQ=D!vk~EzOvp$tF2YTbf zazJppY$WTg*G1CXojHo&K=H0PW8b!(3SW?H52_PyxU^U@c3@t-DeKU#U4+mw)(PlSUnVv zv+c;K7NW8atV|OVl)D-nb?KCw-ep=lU(A-f?WrnP7Hvw#(q?@;E+=kC@XC>=2_B>l z+MGDEoj_2FTc9d$W7=`=C@n^?Oz%O2N8%x#WIVIHviOsXi0xWlsD zO7Mbg#4yfxKwX$pwkNGb>_Rh|UB0@GFNF_}oG(C}kzVLj>|(I8W#?mCQ!FkWUZ)w4 z?3S@qUTf?@D2*;1>y5=@>ERsLZJRSvo$pGJxibr{#^-4!2KNQIByM}TPaOFibInjJ z&kwkw-N{JQ9EgmTOQSV7oMg+(<>976-$jS|Mq$XdB=TC}rhrfCOU9&mo|s*CES>M0 z-Mvb?nXb+D0VCmPoUfJmu*|;&Cr=jj;{srquxr3C%AbI#TX6o$lqyN9l2ijHqHAdd z4dAzeQurw<&iB35*!$r+s|Z^b{5tTGXCm+9=GRk_Vw7;o2!mrHm4*FblKNy^RzrNQ z=c#|crv0mbKfLPbH|KnweBZcm%f{)o#}4}LKD+1Q(9?kxs)4dlVQd9UCV2J9CDW9W z35@t0#K%a;K|+j7a*#=y4`~?q7=##1(hNn+LZ&`!*h?lO5)^aDTdXK^ut)V)D~eJ) zhj26ib}4a2({Yxdl><@rlG%9Yc??A%%Kk&ze?bcuJ~*5HG2j zC2LW|@=QQ!3($1zta)p!2?o5|)tIR9&Rf$N@D>?r0Pr*5J-5a;NE+V&@(m+tK?Z!u zr}2%VhHpo><;(G|V&yJpu*yTw!75hhat5owtzavKftrRbe%o-jIWUN^ zZ2D^CcU@t=2DN+B4t#bHvV%#Qm-`vO#~{RD63&*3uoKSuTmCl23xeDuQmH~gAo&|T zmzKZb!*PK!YnJN8$1Pq3H*8AD#CKo(gwak-@d;^k8E=hSifxFFA43SUTEH(NPAjBOQwi!0cF$rR4Lfr7%CB z^8CX`qGX7FsICf~hsq!pDx0X2>VpM&VAh#Sa0G-(!|;MZFS?W;$vB8ch036TAX{zF zhkgvs21_ZK7eodu2c|EGkroV=uByY0p6ip{Ss>hPN!_I}WAw*|c_kEeCktoK>UBN@#20Jw z5)=05L#JgPz#r#ZxmlreM=lS$(nHah6}DHe=o@E-vKMw{GE3;fbPzY$-8++|mCUnG z$KKr3=p#1l%(qby`zQ$!9!&T+fNi~7Oxcu-3}TMVt|V{{gq5>`ldBnFY+|xgPNg%u ztm0dLqzq2Vve-J}kzrnI6muFQ%Q0$86q;DGG+bSS4+X+CwKW(+ixgT=y{&J_(wZ}R ztNLn|N2+T3ww+nEd}(cM)zW2WMixiTSXRBb7M}~@c+tl*!!9h)h~}b7*$K*c_zst2 z7>lcG@Z}H>EoUCVcNq$mFtRXZV5@1g#(I+x?6hg?IkNQ` zUQ%7X#j&U@ICI*9C7p>at4j;Z13_J;Q()DS*_kQW@kM#yUpIK~VwJFp7Ku(O1_%OJ>mU`-d}&V3X*+u7Dp=$v>r zGYcM@a9|Ajp)u&Uk3qkG4Em#E(4QHD{_8R5e+K>bk3&zaMCZ90N-ocnzyBa)SZU6) z^%|n>tX$`L^jdtYWlu$tVq6D#?kwkd^iIfgr#Mgb-N0Q0q3=?n>+{lIufp@wMtuL( z1IVlTF5H@SP&@Dzz}1NJ^Pu+PYuvF4?shKq%*lrM!cRV2WL~o*tqD*;t`Y12R%34v z$1b1+JA`f674WlwI8`^e5l~a$N3c$gft!$ge9@-;A2L-?r?j)Xz`^MWIXxp~?41e2 zTI%IJ3h_OuLXF6ecQGb%#fdNI?oMSPFvHoea2P{6u1gYoA%1Fcm*%D)lyw}2Mj|pV z=DYdql4(pP(K24DWb4?3Qd8Ld@XlzkplxniXGcaWadVhUw-M=*NSV_`4eqtWXjKj1 z5`yVd)Ru7?1(s>#hnFrer_eY`p$X?(MUA1^?60nbnVLBI)Lq+@zI|Qj2ax+wG03eeM@%kmis4L?HB*aCcOR7&1XdDmV?^L=WPr%H>n(}h5o>2 z^R%o8E6;urG&D5OA6|TkUVi!IJc04(xCX{G@P5_+e9k-GJoTg>oV$-hGclO4eBx`V@$&FihCcgrnY&pGQ9UYoej_&UYa#CSNa zfe)kxMsrOkc+5g4j%7jqq>qKbyN(xBXyh{GM0`YpMt1bccxO&~a9#VFiGdk>tv|74 zZ4*AnupKL|xrw$UZ{LQ%Ke%=?&OL*V@T+{!x;=^ueoqU&hunSr?~a~z)x&j@JnQQ| zc4O(*8eRahvhl}W8ZT#;Y z*1&x)DBt+Y(1jxU02!@s`tP^jI(lL2CurOKZ#qTm2m{Wc$BJ$=PAwkz-l@M_&%~DI z_NK2kY`s(p@cPBTTZdPXF`O^)0oC~Pp3(r$wvLa#FCWKQ-@E#b)cJd*e4KY4e{J)bn;M&>v_!}R8`8MF%#k&>em(B5at6aC7 z@$yHve^)>6bogG=|H%4$Q1JKEX7F!N8TY<}!*{cIx7@;e7DHB{F8_Owzfz_C8ut8l zeS%vyr+=$!8%{Hx-uBh+2mQSr8_Mthzh!#29&aZ+*ckee&yd4Llp;Z`bY5*ZCBczg*WHNke|O?sX&$`PI5}PkgeC9Z&zp U8mP1X57?{m9|w;=A3P2GKc@jwQUCw| literal 0 HcmV?d00001 diff --git a/ArinLog/obj/Release/ArinLog.Net4.pdb b/ArinLog/obj/Release/ArinLog.Net4.pdb new file mode 100644 index 0000000000000000000000000000000000000000..8cb3426556a93d9c3d77e7ff656be34d4ca0ae9e GIT binary patch literal 28160 zcmeHPeRN#Kb)U85wG1|qjBIRS%-WVeu&vduR<($CykR`FZ z@<*Ds8{<%O3LHor5{gNc!$%0vb6gIjq=nYa;T%ZoBqpUNkZ>q%O#`Pin6D&%P~6{d zX71bB=ao&5<nLBsx+{$#oeD(2d{l_+;`4@;Iq4b8d`awCq3kXvwkIkCy)UgTwnv|K;dQ)#rxx z&iql1mi@bW$L(ub^}S0UzxU<-@H-Dbe&%cD+!(=V+5i4$Z}`RHvb9fs{_2Nc{a{sQ z?zy48Gk=t$W&hvY(*6BUlF$FeWqa;Y2TE@Hvol{a=f(&|%l`9)9lM-&*m# zk8Yd${JEjMvuBi3f@Um&&z_NujpRfc_~hMB-sM4VD-Zml%e$lXJxdcc@mOqmO?~6? zhMI=DhG@;wSbZZ(8WPdS@@RPb7Nu4-b*@bh+>}gYGo2e#nW1=JXhl4eN`yKF(xLWi z+Sgt6h0gZYYwNnA%Odr4%e(4gkw|AtI@P~=U~A`^T_M}Jvn7*BZrjqgYgK>G02!y6 zItPXCcEfjz=Gz0l$^K+|>#ojZVxW+39DMu0ciXOzZQL2Rd{dV1DaqT~2X=bgrzBp& zW7FEy`T0yTo#`CHXJ^acU|T#J?_52Qi1&4FNNyYK3}4f}p(7pNmfSIrzIn+;kfsLu zuiRcAj)X;HE!k{3wPh%q%usKMCe6!oj1LZWlVhLenAIHnli41R<93&$=qg^o@su>? zSa^Lhn@#m^&4k;MnbcNTa5T-F5$4?v^U;zVcIitc;#sKvv0`_0!B)If~U=I+9%F0;I*R#_8KRTI{gx#bHMZ_ z)J+ClV9UqQDQMv0e~Se6LaDFM%Ox-P&PxHm(N4yC0tjdbwhLQ}@OmMDyca(BcyN=g zry*JA9uCr&Li^;KzwIY2jZ0eAxwLc+p}l^=Jx!#g(~y>RF72%-6WRmM-5ww<9gwuF zb7|?ULObpKcXOnr6O)#8E-f8UXm5OF!TqGAW0ID2E-f8cXrDYbB}!U4HfdSs(xT}9 zByriVQ;RCt`HPUB>3oCq=cP&oU&WQKx+ zo($@cZ(h5pY3H`SD|@rq!KT{U9Xob}cf`U2>8-V!)~v3LHa0fY_G7Kf48{{$C5!TH z`ZGmZ)kPwaS}^R-)ItvOZ(6@AgJmwfXFCcZw~Qt_?*1DR|p!9EN5as5~7Jk4)Y z)0L>_wWx8H3TgXHQA%U-c1(d+G=mz#){d*;V@#8*J$W619ghI(qHrQRU~PB^1uH>M zTB+B%i$)^Lmc?Rqc=2Q{*y3&m@Y9$f6f8_67cc!KY+3_(34i`PsV>Cog3)^&CFcS z1^-YH{^j6Z4SLc_y`TRytHVl9he~Y&+bWc^3%9&~UXu4#d_-JxOzKwzub3okVuaiq(A3D?pGk6mb;^GDAQ|v@(9ZA06l4? z-Y++8M<&x8xh)Ir*Oh3$7cdbtJAl~-{lMV-Tu$!H&mYPx@pz@ZCy%ico908_-IkZy zFt8ps0sUK1$9c35lOr4R{MUKqbJR8mDMeu0`pUI$m#3#4g&M)`-psxm) zwIJZFBOLE^08@=pxryphMcOh{903mCPhu7PRDBF!`t`e?$c@$0}1$iEHT1pFTG z<-nBX3gA-6inyFRA9w|D0JCB;M$55Gf<%*5z0F^uW~p^34*@O)Tn1PV2&-Dv0bC21 z4yd$vh8hnJ)W=GIiGKkd3z1cDL-wyzJNhld6)}CP19%GXRXRTllFS3oMFsp!ybE}7 z(&Y!8X@11ycQx=#;ME2EYCL|lm5FZwFD}xVUI8#&YxxnA-*v!?fY$-THqe5~tpeTv zJP5oAcsnp`mitfO8-YIo?gXYkd=YpC@b3eMfV+UN1Kte037Gz|890Ibe&8hVL}=gW zp$_(_1k?bo2h0I{7y6k6Tm_g7m;va;M4YaSJ$HL!<(N#o3h3B{tbRTA5HFArCbaH| zIo6witATF@UJTp^41Zya&vgT1yxIqE0saQ^Y2XKeGr$Lc;jg*B0v-bXIWY8+qfc^- zZvyW^z6xW^;Xgmd<&d9axztToio0@-uU)|r-^F;FCLzcvbzCHUqwIjfo}tb z9o6l?JAnTbm~#m)c;xN`2ITeu-vxXxFy;MoVDQO3V)Ksze;xVBuzZEO0dj5x!~in^ zw1Mbivw)JEw!p@WF_pD5j5+h8xLHZMWf*|6Ou}fPjGdPeb6bg0plVQlT1nt>Y z=>2lZJr3+><+6Ltt>zZ6*gp7fD--PMB^-eS5r>RS&V5!rXzu`!R_gsSh%YeqRRhet z!rlniOmxlZ`U>yj!R;!r^ATF({{e6QxU?T@+C?6%@za3zSwCNN0={97*7#I$zL>M1 zU7%^N03&1bfVMyRQay~POcOy1|5N7y^Oy+n6K$7Z?>-k$t$C2v*e4)gMS&j}T>z;m zXhYw+P`BlttI}&{bQ;k5C9T_TI_Nn+u$Rb{>ouoR$8gF+Jux9%sa|AqfNuew0vrMy z0elRoqz?gjui6W^1Mm>w8NivGN+G<=v5*~0oiiZpWr9y5fI|gJZB1soEokQIt$|2l|2gzuh|tA3t;P*Kbt{Z@ZzZuh=~{j+dw-V z_6Y(1(ArbZ9^AHkSOgNxAG1Ca%Nk98XF_u?ErEah%Jq-dp}y=;I!OZdTa7lu0Jaf2 zC+@{!jro1T3}+0&M&u9~TVC})3oysi$UIYvo5X~6V+Oea36ftc93^Lb?qh{;@Pj{S8(7R5{ zbvqMB83T=s#bX)oO&QBB*KHQ+7|8u7V;RrFnaKAr#{40G`dSER26WnbO=LefF4_M* zswcTVPw_~?(Cr7J+i*f39MZ0A_Yml(0!#haeD52TvtQ~lKi~6nQRV>GAtuf#N${Is z85~2Kka4;#*%QZ9WIgTm1S%Gy9oq<KvjDjV#l5VzPjOkv zUc{~681EZOf*1W;I$m;* zVPptsd5|r*kLp5OPRIl>6}eeso;fcl*bCU<>o{5pBlG#x6@axgxRaQbb!D$D=U5~~ zp|i>Ex+3rMfIw`&2iI&PbdK&~Tvx>QIIHt)@38Uqn)L5#k5BRSqFt{SS9m@x>jizf z7lYZu0ga_ktpTb__J5mgE9`5%gb)#&fSjE(1^d5Fl#^EK9lICI8S$^TELWVdcnSRn z8Pha>#+TNCZG(8LEsZkzS2yqx0NV(izaQ~0@bLW0VdMFi#JQ}U9IhPj-yrtZc{!Z7 zzfi1Yc?Wn9ZP`v}N0J5c%9F)qC2>T~8$T=}3#MDJ4Snb;>Vz)~S{Zhtkk5!HgV6Y8 zkbN9%=gDAM9H)yM11plN3)nMw4a&U!uTO4SpG@yI$+*%!`-bWGg`JPY}mh<{axpH+yZRq*60Jk^sp zV*I7}IoFraz5*v7LTl_ zo&p>Kyaix@4FMVeYXQ9gK3hK3#P9T1O{{(IFgia3d;S-khH^~BHSxa!h@Z9?`qz0p zo74CKi$AjTPeWGHUuW|_vh|l)zLQbO`Wjo$YfW$4wcGsPTly<)`Kvbnux%H$bOGpq z?f)Ae#ElleY4I(V?yDk~rJrZ>ICC)lTl$A>KPlVK?Uw#+OMj;=|H!ucqNSg0>3(4A zXIp-E+WMDl`2&{EkS!l?^Ix&_DVu-V=6`JSjg~*(OT)jKEOOfN7Ms6M+F2Z^1~C%O zYKx`-_%n@AkLpsy3^NzG#xm1vj#rs86&C4wU6}vS{852!Y)_`H*^-PPmdD^E@+qgj zfWOD!e{*3taJXJ7$atmRMc^d$9-(&;@~*s#k#$h6LK2`oYQ25W=X_T=UtY4@kMjO} zC4l?a&450@PQV_(-GKdoM*&X(4gwAVUICOrz)Ar3)D3_(z*;~jfM@1hPji4f06aVA zxzGW?vw#-?F9Y5HyaV96!RJ-w0G>zG1DXM=0h<8bfI$G)mc4*|fMLKBfUz|C8knZ$ z={*8nf4uWn;WTxbQyy7{S1u#b9^NAv`a`hecx7&)gw~W9+Bz)0Ld$0+76@;x*^ttqp#^?BMOn%2C@CGwgwON&D*(Hq~n z8t=S_CG@7;(&L3Ap{JfpyrA&*F@pbDAD^%Fe@YX=Cba8=Rv{ADpix zw55GeE%c_`(#H*bIrtZ*$Br@2eE}2q28H!wxwB0Jd$qsh-v|(YG3C}@w(uOr_~aza z(GpecseRs`4UKJ^$hT!IFHyxG)=R&J#0k~VzC6jX%|pQMecvu!XQnWyZ30>)$B#?I@`lv{d? zN&0vKcAB8aB&YKEHm1(Bi8-;CyaGO*nKDBgK|G!1tO2E(KVpY-$S31qyHbf!&RTF- zmlv)Drp)vag*-9_@+i}NOXxlT_(xn}Z%i3Bx49$u8U!?Y6?lF~vIr$&`#t8iFw@y{0 zy)M?!)?wM7ME(l34|-tYK9~GAf9=HlF%s9f(T-(HTcXic&Ev#lnW`e}0O{LMzt@r`~y;zmDfva+c?>Ydb+5Xgw+VHV08CcB z`kMS1Pp#V=S9cTYgr~n<_5|&4Hs`%V=5NRIr*Z(3zwSPii9QSKcCQ;o-2woUbwzz0 zP`lT?fU7Aw=dUy0Wx#VMoiHuD#IYX%OtMP$*BwRqg_hc1$9M8C8KEwOI{D6#za8I4 zm+##8>-aABVf~?7_gt_A&1fJ#_pb+P#dr zgDe9d-bW6D23ft|;C_Vq=6kbYKrMj#THN+)J8_Rkn{i*peH3jWcB0*ATiS)T%Pz{&|m=9P0;J6k6xCdVhp!{cJ Usy`bCH8!R(4UB2vQ)%FT0AQweVgLXD literal 0 HcmV?d00001 diff --git a/ArinLog/obj/Release/ArinLog.Net4.xml b/ArinLog/obj/Release/ArinLog.Net4.xml new file mode 100644 index 0000000..49b3013 --- /dev/null +++ b/ArinLog/obj/Release/ArinLog.Net4.xml @@ -0,0 +1,24 @@ + + + + +ArinLog.Net4 + + + + + + Returns the cached ResourceManager instance used by this class. + + + + Overrides the current thread's CurrentUICulture property for all + resource lookups using this strongly typed resource class. + + + + A strongly-typed resource class, for looking up localized strings, etc. + + + + \ No newline at end of file diff --git a/ArinLog/obj/Release/ArinLog.Resources.resources b/ArinLog/obj/Release/ArinLog.Resources.resources new file mode 100644 index 0000000000000000000000000000000000000000..6c05a9776bd7cbae976fdcec7e3a254e93018279 GIT binary patch literal 180 zcmX?i>is@O1_p+SK%5g?SzMBus~417oL^d$oLUTL1*ImYq!#HYR*8GxXUf^%t3Noi54ZC+|=Nl{{sjzU0bQch;FcWPxwes*e}ZIZcpqG__J onW3ezNveT`r81^vrFkWpxv4PQgHubGfR2KJ07n-P+5+SQ04Y>DD*ylh literal 0 HcmV?d00001 diff --git a/ArinLog/obj/Release/ArinLog.dll b/ArinLog/obj/Release/ArinLog.dll new file mode 100644 index 0000000000000000000000000000000000000000..bc4a2ea7ce55ab772f0c26b29e6629ec4973cec4 GIT binary patch literal 24064 zcmeHP3wT?_l|FOt)x&aPEICi|;D#jN1Y5NehdfHa&m?aAilqe7dP!vI+E$Ttg(L@? zlpsiVOBN`webL>e9~8<$+by(PUR??%P|9Nq=~tlTTVO+5TKGyomVWz%wzOpbGxuIu za-0@Op%gswJu~ObnVBYhP!*lpB(Vd7nG)nlVK_1x^Cw!-ZzFqc% zMR$shA1n$F#j|=kV-98_Nj(}#rOce(Z|Irflpas%t=%C#X~vA;^y$7OcGW#?L>)q- z2fuQ1$Z72$DT~TQInha=G+5NGR>V4*b3JAwFq6$hL6d#RBTdxT!c;~-^UuLgZ*=0+f>L!H(<{7Eg)iZvpFLf>@~9Ha3*SG3#ncs5;HP2dNLa|Gl_VAjlRvuWaDOPeM7L0e>Hl`a3VLH zG1jMy;anz?sL^|d`xEi#W@9vLo@1oe_pe?ZSruJ%YW>=k4MyFXwTq8zY&eyRCk?0d zkdb41cS287EB~>~3zce!>|2f)v(UHv#;hAr9yBfM;S|bgS_hE zg12Iw`S)-M(}&#U1v-lQ_i%X=Tt#$L_<6N%*2F2xmE~1+ z3VTmNZ~SV2-k6C#%yVDFko7d1D`1{#@StaYW%pc=%;N#dJ(rt^|5Yvb=mSEo@gbbTCj z%$~z-u0^Ij`0He{V3e~>sG!6U#_e#n@43pQ)u$o9e3q|zJ>uu&APSy<2#t+Y3BwZe zFyEjEo|i|qcRGrhX8`z~n_*WbjlQTtr@jRXXa?8E^Ox&`dHeTZ>S;5o8&N@xp1B1o zI{>4xyocEYYPK1m+>>WM$!z&Jm_ETD`S)OY@`PQe?%U4r;- zPKR=tcxo`q9IdeIClD{*8lpLKto`5Oja%DWL8}JdfT_N?IbrrQGlBxWoVnokvN8-R z{eJ06!h{k?VpOEB(GkNj5UQ195BaGP4`h~n%!?}7r%HZ~nFjMH#PBxU4#F+voCkf7 zPaFh1UFgD1U1Fo~(T$+EX^A4!$|n>zJ*hkj_=@r~rGhF|O?A`9)Q#Z(l7x>)_+ts% zHKsqW9njnqaQ#sW&;_m`SAbq{Jr4MWgr~Tx+-}fIiD} z2(ZD!^_&IhqjNn~kmp{{wH`P9NK$?UijNL^Sk9BZ%(=?@C}fLzHMN313FxCMyh+q^ z2XcM%j7F?7J zY|>5V`8f9r5|#IQowl$@@ioNb0u~Su(iOjejx99 z`gd?HlvpM0M+M7fJXj39pdwUnIO< z!mmpBEeUUz@LmZYl<*NiKfS7L7Jgdj>IVFrD=EB-&}nkdIbKvjs>%{P>zE9dgKp2(8>~z&6>MaMJ_qKtLT)zXSLTFysMy09Mzy)XKX;eH7MmtHd@a zEH!&Sf_yC5;{|Mk`hxl-uktc)gStd}o_(r~HEX|Q&vX*wRo!votY>J|VGL-mkdM6?5oHyWCw8W5b=LFzhaZ^>B28Ecgke6}m{R ztW;^Aq#sGSRq}jS=DsS^hX7Uj10eh-{#@h-6cm(jB9EYty2^;H?JB_C;yS>8ge@}V zW(k)_SR-MBgs0hb9^V>b*dXC)5`I(W-X-CEfKQ8uX{l$4GMCum<`P@lGTPv&2ZhJz zY3lbhAmx?SYTW>Z9bu8iqlE<1!?f1@m^E~BT*vg#-#8CA~}tcOtvFA}Ht zeyr}367B<~NBbh+nc8(S_h!JS#Wy9qOTzmkd|1LCO8B&d&rA4{gbF<2eppp4pcmtI z2yhL(4v4*!@KPguv=^5=KEO?M9AF2{0PLZ;fMHq)cor=N?4xSHom2}LqZNQdv>Gr$ zrvav^2{1<+#4_4TZY4;2m7fA`R#IA!LdxZUyOkxbAYCfyA6EK6X;BQo&q(^mlqZpn zDnAAM6>-^fBxhEc=4!-zy+}0DDUiHHrdwzpT`Ahp)^9{qrlXP`2W7UBmz;Yk3;w+_ zcQ5TmdLOXo#I-W_ddYu1-A~(~N`Vwq-nc1q5jk~1oK0OV<-4$3qsoF;`O{GND3JT9IP%amGWjj~?p!0!pf^VK$WhdQ8Mq+X&P#LojC zLG(FQhtuGFrVINNH7pC?uZb|=jbb~Xs+jj^Q1Aq$ZRRLZ2DX7^4=t0d2&I09t3$VH?Sl@YHZ~~x$1&2#7hPH?CyM%5Q zw~9N&J>ox={fd@npH>_|KnvqRKzgRh)O+gPZa6Khb33#Ht6yi#f$ zQqZqy)Cu2R39rU64)BO;X(OJ889%Mlj14D@)5*EBq0V?TV`j~PTyR@FI~++gN3!uK zb&fWr)3~UKRsBk`=!nH_A~Wu$VOBB@vc^|gh!<1X2`=*c?FXti+T zltojx0m{j9!FUoaq>W4t(oNQxU{O~JLKe}`V}pXxoQW#w^--N9VKHhfxEcD;!>pX0|k&MMO1D zfurb_2hp;dV0#Kym5L;&#YAc(w=I$wHefWYOG#j<3f0*ch3(z6A)YYWQv)UqAVD@g z%$M_)?9IdR1k8{6hX)1_*$l0GDbFAr=|?e6BlLMYtS8{XPOp-o%Et=(sK zQCn|scQ18y_jWdQP`IUsHn(kW?r!RBrOxiHp*HI2?QUrcg$U{1mhP@_Z+8bZHzC>D zM%&s$?cH5qY3~ZR^-_0>e5@KfyThCp+R{P2p%p7vIAb~PGn`asBo!INU}x-0Yv2y^ zMqCp_67lmb*JfW(OZ#z{ZJL~d6D!1U>~Qii^o6w41vxpkjlpgQ;)BB(+l!8SRL6%& z*Ap`aA{fPjWpfj)77YU?^Q0(FAsSCuH}mXu%oIE+oV$^rwpbj#tT|(zmt}))%HbZR zA0B&RhBe#;QDa7{nGAAWm_`}QwUhzDjTk$H@j9H@6ORn0%q+|`3mN-|2chgu@mS1A zjk8YfOq~XtX^%+?{~yW3td(iJII1%&T2~}_qy(j%4z?QE_+W}Q8HqGrE}Um(V&gU0 zGWS|<5(-@`NML7hS-ihsFJsL(>43=2Wp`+;RLsEGhK!lCDNWH_d{=~55X(;%#{y3F(7C$dJeKQSt;or#4+Ydiz_%*<#{BsXOHP4>gs0KmE1c}H?fyKEbY zXLDJ*=hBg)yTi%Uc&8Mma#^v)1KW#{QP~tPH5QG|%*3JKL_#h!_C|=i#d z%AR7<2y*fMcp{z~9nW>TZBJkO9V05YSHunYRKdWEKWDs%qYBov%|D*GaX4P&930kg zCK5A}k;!UlG1H?Nw!HB=oKhIq*l=``4B3}dQ7@bla8%JuT$<#O)rI4^Vu$VQyJHEy zAQv=!l(5IeFNPnL_u(YmO&j^;e_0SG+YvnEdS<`&b>W)%)H4T!C;Xi?_l-R)7IV2; zS+Z7^)p3&EMC&Mt-#VN@vm{i!dh*l}|47B<>KWLIST9zI?~4`^DlW%1|6-Iq970tz|SE~l1x&sUFEW)$Yr3(?zk49&wM1mI=hXTVw) z6;*;NaF{DTfsjorKA})0UdDs3;HqhwAP)%gIE3@Am_J|j2nCN9uNML{{c&z%Ch!Uu z$}WU@Fq)uYKy?k>sHlhtYOwtXnh!cFY7p}`XGYCLHW)G^=}oy@x+M|EPRgMNjy(5N zO?KF^HG+35w!!#dHLTJq@_N)NSPxs25DLG2;P>}RV3dE*zkeArDk@ws$NWVe3?m1L z?UV3ww=M$tt18eR|1vkJUKkgb@VZD;EC8nnEUEyVi$OQu3e1uU|1$qF?}CbeE~~g1 zYC;{?xjl+vMHPr}>7mSrMWWr?JUrZp!4X&w`+z>18U?L%e6Qo}gJDxDD~FX~Ffq#8 zpqR5L*yk*d{qYBSDPO+G?xOYk@W=JmY!|e7;@&Wn8;-@zptW_yVAv~>wW~8S1wsgJ zKVh(2w-+}vQ)HF4;W(u+C{VdS|1fLb3u)x73X8=P32!;s*u%=KGc%Di7R16<0T&q9 zJLB~o9Uts!3m4Xx8ha^O&#y00vSLOdi)|ti8RaFslFR6Y9KC_9x8C|7hH#5ZOX>!q zD_7N@+Fu*3UmK}yhz_i-UAwBGp?1}p)sYpEQ`gk3Xuu2e*@6Ovl}F!yv#zhGt8c*j zNK|Jp46+y1tum6}bWZEzcyY@4PKXHS=}c=P(HV*JsSw}p7)H=qV(XyX{bGXmRMjzINN{pKZG2sfRYY-nap?8t>EB^@Zc9>^Y-- zwk7r9qN5LcGXr;F4lS6D_5Tg@eM-b)4XDz|;k%GLZwJzdc{6~w*!f~EZ1r%DO>`~j z>=f@rtRX&tnD-nnBIa!e{9~SX9@q!u*=NG*0&?eNg&3GetF3~u|M!Ow$bhljojejXG%)ZufUAqPS1y%^(H)c&;!76;l!A=&}R zyY~>aWB=X-yd7`@(j304z48VRto1O(68a2IB5;#M)k<0`pg^q=?AB2dxoi@ej`!I*ek&kDz5GnRQMTW0 zm*dkD*XHz_u|F+`)!!bJHzC_F&RMx4=_kt1pXRfEO8F;h=|~-MnI`Bli~c4tLJ9O# zhjo-{cVf9}=s?HQh(}0!L1Lnzfn8EV`IoTEdTf)JRpS!KPEAF ziveZ+bU3dh96nrvo(H_R_y++mQNSenIL7>9bxxB0bHiI)v$YH z&m%o~$it|S1G|KX?I&o|ZiWhxs1m1PLM4*Y=lq2y89hx}M$Ksv2?7p6^jnjR{^PBDI?VDQh zPckjXig&#D2kn`g1`w5{H*L@2pTpkIkNCcMQw%Slio-`KZcto+kI8~N4l+4RY>_sn1NN9vvn-?;JQv8(_4kL!MaPdV+^rvBbx z4cz{cxa0NV^Oe|Lq<6gOznAZR>imu?XyDE_U7}-x0gs~x%fFo=NrUMv}S|Dxk*#3N)1_e(|Z89<&2?*R?qZtL*WbLcSc`rg%NqR!td?c=`l@H_c9 z{XAO#-^sSQ?y2@IJD<{jso!(#V#@xe=Knis1CE_d&A+MnS8M~0UA$Xyaoe1Jx7u~u znQDJ>`*-y7PRH*x{ZEwVgMz;Yj(~qv5uEoO9KV}_IPI3cXVIkyjm6)C{Dp-2OW5<< z^$AYfT>h=@ZMe)-dCOP7AN2QjY^Zqr|C;3;Io?iutkd{dypvTH|A2;cy%M*fn*4$r z{~t`Hh4J^>D)RWI)GNQ<){tjm{Oz{&`8MC8@|W9gn^TwHZF_7^U4FG~zb8J{&c2!Q Sjn@BB*u$THPlXSh2L2ywZ(daZ literal 0 HcmV?d00001 diff --git a/ArinLog/obj/Release/ArinLog.pdb b/ArinLog/obj/Release/ArinLog.pdb new file mode 100644 index 0000000000000000000000000000000000000000..ce68c8d0aeb04826d252300e60b552b0a0eba2d5 GIT binary patch literal 26112 zcmeHP3viUzb-uqIi!jKMco}4D%OIQgYF82?#-&xE7i-@iPsgG;-)9j6Yzw*057_P%@a-r~zI ztq?-y*`=Q(sip%pxk-NB_`~S2K)(LZ3DF(@8E1`h!_iaAaZN|EzG4VZG5` z%j?zt&%N>Jzb-0S`|88@zx>`WSEuHVe#?xF8eFgTpER{Kc}r^TTYuYFRe2!(@E?o~ z>)klDEaQO>KtdB6|Gm*IaQVZ_AMzmgAl~z<=Ely4Q;B4%^Mk*B_UGRl>TDVqXo;m` zooo8zvEI&giERU&;RjmRwIyTQ5|EE=mwJ46XH&AL zZ%zM}&i37vYm@z7O2pHh4<%ClgUL9GZ%L$jw)7>E)T67hGi_L6VCeXx907r0iEenG)TAXV>HjL#BV(L_#~`;}0{W zr7SiN^ITdsvCy7-_gn*M+4Q7ko=eN-6xt*2uiZ&n-OLD?=hD)(gm(UmheM=g8s#!{ zY3VLP`|8hr-A7uw6ls~~($ZCh_K|r98c9nRCN1+^T10;@z-hlmEi7l@Cs7Z=BopZ0 zsY-?3!;{XsH<4aB*xj8-Dm6nDmXr4cGDt5pH>;}hg?3P;fEvVCtliMKYg_L5YuiO5k!8zj zYokkPA5(s*Uw)BVzp^U55%YMWsw2Vza&I;imWX?_|xj zU0BT^Z@699c2sp3O;4S+9Bs>fG%P=sOvZK_<5EU(KAL2rn-saW*+qeXhfJVfB)!6ow0hBly(&p5WRB6Ry*f{X#kmXO@wvLwFa$IKsOT4%+am2_v> zgO^aB$!adb1;8F)SXHYwgw?<~z$%M(sbWx4cXn>mCq3Oi5rrgEe?B8WGZkSJ;Y5@q ze5{-4Yo6|Rq{aB9p63Gq^~&6d5W`D`bL29FD-bS6*pILgA?u2RgbZ!=S%m+M5MyIz zG7SAWgi{gHcDEv2iTEQ3n-NZgXO%+RQs`5vwgKk=Uqsz*1IF+?4J|=?Jn8ET*R=lc z`TeE@X}v(gD#(TX)oO&OtGW*%bW-;tgf3c-dl9xH{(z0IMF`B4VkJ`wZ!JX&m%>9> zcBz`B!(zB6?Ys_XeA)B+0bG;iYCwMGRy?u3^gXPNGSxOteKzQFTCMCEzU&LgV?DU` zA+S9O^iw{!06T#Lz`a1W&oSUh;E#b9f#Y!FTA&D3lXb%rwwmmx0`MKZ9@g&Dx*f}# zlpZ_D$38<^_#XU?a~RfKX5CQJP;cf=B%_Z7W3Uy09$?li%j}w^$oeP8K>^Gsp)N#p z78X3KVyUgo{ap#>a~{a>0h#0xx?CM(9so@_$qB9~(L?5A4kD&?a@N^(pxp-~t>owGAif~$3)8PW-N#q} zWzOUS;3C|v9J@=QHU97Ue&f z)8?LTf6AqKIL8nsf)@U#ZbAqfDa_&EU96^KJu+QYX&Iz7?c@3FOjoP|5~hHMzJ+-o zymK*!PV@PUO+9U2(z<*zLC^j%3t^d_gQuwrh*KZ#?+F;L^z(egR{%SKY2ZHKOTagP zXMh)hWe{EmCXaqc45x~!tJ}m(gHk2@b~5zwEXc@2&9QP2DX59CfcVG;c?rZ zvbS}4c^(fE^dB=nGn6^{CF>ttmkQht|M;2fAI*ck>A|EwKURTf2uL2GbH=^e8f*Y$ zew^aeLBxn2qQhhkDgbxPy#qS@Ty((E^hRL@9qZ1sg%aeGN9b~Oka9i-%_^YrVNd%r zqKf{_F^(`F<0KaQHZd)f{l)%{7va_)I# z9OW2jbj&}NabLu-jQb*v{~QBlEc+G(11NVF>dblk81OXk9I(jRP7~Q5)=SoZhjb@b z&^>@k*!Cl_Z8)wEj%ZWzaa<&=vQ%;I|ltd=!?<^7Nac*Zan+1 z_J7VzoF520OBCC4IAEV7;JixD58Dv(jAvG-8v!-W&Y)9GmouU8$=QIJV zw?jjS==SIO51VJ%_K`;Bf|GbA-w;rI!95F*Jt+3F{@CJ*lC_ANzdqJGn1DR)%~;1E z@9KNA#ady$X9)mfO6V;_b(Z7Hr;)~WKWQc385{LkhCBYP1KkjiZ6LPdxXN_{VGZ^f zJQrz4I1S+g2rCdii12QNUqCnuC!f=CJ~<1gy0fs#n6B>B<0aP^MhDN=okO3r`$q7x zL&g!(kehUPo4OsExN8AvYt&gCfq+xMv%rfK<^bDY=9RrRoplkI3!6;>k+vDzUoH!P zK-zu}p2;J0j_qn|Ft144!xnzqJ7WB`CjGn0my>_KXoc&RVhb}?0q~Mf zXh+foM;G+(Pz%b?S?qJXlx20;g~an#2cgN;LDq3-J6{JYVwf#5 z99RLaEzq7JzQgd#eURe$!hqvHGKp~#XsZk+jx`k+0d&(CIIYt!9xaEN6JTbQFcCvR~Qx}ZzRFC zG%cT#Z%z>_bdu4X<&Ojoe_j$N|0>+vz{_pu^__rCimYQ^EhU5JY5Ie1ndRw0`39s2R;ux1pFcJEbtPr1WHZ= zRsy+pt_QXN*8+JKz7@!MGXvZQd=|*_AC4P58$Ss=1N;EUxqB;3 zt*6kNbW4xDiqO*@g-YI5Gd-|Jp)&Ll&{tS{WHdc?w9ZRv;W2rZry(eVeXfu;w=a~1 z-lSXlSU|s5(+{tMNw@TyxnDMI#P_j7(BQ#z(C0!~@?M z(!P`brMmd3p|QMOLBHggZDG#XVA3pYA}ELbEHuK4MJdP77~Uw#kv_+FONKXi;UhdI z&+?!=;o-ZWkjj2ZBs?b1@^lCNj^$54eax-dpzoM;Ltlf5SIRhoemX(dNlwoL9+PKz zY66>4mX~8QlV)fmpuOE0tBbUJj2+HloYaGSMKVUA9x`5@*6G<}wn?*fcIrSGCAy5@ zq{fwBV&&IhPH@M}f)VUgAo_q_?9_!a3UnF4Ze7YSdA9DDOQi1HgBu=qR~^{b zE27&jw29#}J7Fouq+5E-Em98GFoxdUu?FRse9MPn4+#+hp8%JePOFDXXZ$45 zhT3Py^d5`#c>QYf(H;YdWO}z+*<81*zP1Tt%#yzef8_C|Fo0)X29ojs`z+PzJX)YJsnKF6CX1g{*<9E#UaBH4-O~hu!pcSB=e8)fCCWKI5 z0S~v{`A%PChETo$%j0_>$(sPZ1qu}Iz3X~==x3&<@tsYH?X!}`uteX^<4yTO*r*t5 zwh6Rr*1y>h>>|r)1@5vq{G-?4v)oVdZLjlz-b$F$}|M@nQsm7;nkMpBlWxml<)v08>dMl=!L~=7e;eOmCbocZo zQq{kUPrY?{Mts+A{|UFlea$WI@C+|8_;~w@WX`wcBYl#6t^C-ln6I_JDIrmFy z4#ymp=w_FLQC@e~Zy@nzr1RW|L&6+j36MM-s{hVDSAdSw!BfDAz+VD6L_Ui2QiO!@ zKM!l{@c;go-xO5>zlbrItA+2O|{9pgXGmN@^9g!7SC1utpAfPWtJM>v)PFM#h1 z9*-k!55{=zBUXV1QG9J?&Z+5Ci-62q0t^G`c%0wqgq)MNfj2rt NZ}bX|*YAoJ_+O9F9gP40 literal 0 HcmV?d00001 diff --git a/ArinLog/obj/Release/ArinLog.vbproj.FileListAbsolute.txt b/ArinLog/obj/Release/ArinLog.vbproj.FileListAbsolute.txt new file mode 100644 index 0000000..9a5cef1 --- /dev/null +++ b/ArinLog/obj/Release/ArinLog.vbproj.FileListAbsolute.txt @@ -0,0 +1,59 @@ +C:\Users\치균\documents\visual studio 2010\Projects\SettingsTest\ArinLog\bin\Release\ArinLog.dll +C:\Users\치균\documents\visual studio 2010\Projects\SettingsTest\ArinLog\bin\Release\ArinLog.pdb +C:\Users\치균\documents\visual studio 2010\Projects\SettingsTest\ArinLog\bin\Release\ArinLog.xml +C:\Users\치균\documents\visual studio 2010\Projects\SettingsTest\ArinLog\obj\Release\ArinLog.Resources.resources +C:\Users\치균\documents\visual studio 2010\Projects\SettingsTest\ArinLog\obj\Release\ArinLog.vbproj.GenerateResource.Cache +C:\Users\치균\documents\visual studio 2010\Projects\SettingsTest\ArinLog\obj\Release\ArinLog.dll +C:\Users\치균\documents\visual studio 2010\Projects\SettingsTest\ArinLog\obj\Release\ArinLog.xml +C:\Users\치균\documents\visual studio 2010\Projects\SettingsTest\ArinLog\obj\Release\ArinLog.pdb +D:\Tinsky\ArinLog\bin\Release\ArinLog.dll +D:\Tinsky\ArinLog\bin\Release\ArinLog.pdb +D:\Tinsky\ArinLog\bin\Release\ArinLog.xml +D:\Tinsky\ArinLog\obj\Release\ArinLog.Resources.resources +D:\Tinsky\ArinLog\obj\Release\ArinLog.vbproj.GenerateResource.Cache +D:\Tinsky\ArinLog\obj\Release\ArinLog.dll +D:\Tinsky\ArinLog\obj\Release\ArinLog.xml +D:\Tinsky\ArinLog\obj\Release\ArinLog.pdb +E:\Tinsky\[NET4]ArinLog\bin\Release\ArinLog.Net4.dll +E:\Tinsky\[NET4]ArinLog\bin\Release\ArinLog.Net4.pdb +E:\Tinsky\[NET4]ArinLog\bin\Release\ArinLog.Net4.xml +E:\Tinsky\[NET4]ArinLog\obj\Release\ArinLog.Resources.resources +E:\Tinsky\[NET4]ArinLog\obj\Release\ArinLog.vbproj.GenerateResource.Cache +E:\Tinsky\[NET4]ArinLog\obj\Release\ArinLog.Net4.dll +E:\Tinsky\[NET4]ArinLog\obj\Release\ArinLog.Net4.xml +E:\Tinsky\[NET4]ArinLog\obj\Release\ArinLog.Net4.pdb +H:\Tinsky\[NET4]ArinLog\bin\Release\ArinLog.Net4.dll +H:\Tinsky\[NET4]ArinLog\bin\Release\ArinLog.Net4.pdb +H:\Tinsky\[NET4]ArinLog\bin\Release\ArinLog.Net4.xml +H:\Tinsky\[NET4]ArinLog\obj\Release\ArinLog.Resources.resources +H:\Tinsky\[NET4]ArinLog\obj\Release\ArinLog.vbproj.GenerateResource.Cache +H:\Tinsky\[NET4]ArinLog\obj\Release\ArinLog.Net4.dll +H:\Tinsky\[NET4]ArinLog\obj\Release\ArinLog.Net4.xml +H:\Tinsky\[NET4]ArinLog\obj\Release\ArinLog.Net4.pdb +H:\Tinsky\[NET4]ArinLog\bin\Debug\ArinLog.Net4.dll +H:\Tinsky\[NET4]ArinLog\bin\Debug\ArinLog.Net4.pdb +H:\Tinsky\[NET4]ArinLog\bin\Debug\ArinLog.Net4.xml +F:\Tinsky\Visual Basic My Class\[NET4]ArinLog\bin\Debug\ArinLog.Net4.dll +F:\Tinsky\Visual Basic My Class\[NET4]ArinLog\bin\Debug\ArinLog.Net4.pdb +F:\Tinsky\Visual Basic My Class\[NET4]ArinLog\bin\Debug\ArinLog.Net4.xml +F:\Tinsky\Visual Basic My Class\[NET4]ArinLog\obj\Release\ArinLog.Resources.resources +F:\Tinsky\Visual Basic My Class\[NET4]ArinLog\obj\Release\ArinLog.vbproj.GenerateResource.Cache +F:\Tinsky\Visual Basic My Class\[NET4]ArinLog\obj\Release\ArinLog.Net4.dll +F:\Tinsky\Visual Basic My Class\[NET4]ArinLog\obj\Release\ArinLog.Net4.xml +F:\Tinsky\Visual Basic My Class\[NET4]ArinLog\obj\Release\ArinLog.Net4.pdb +E:\Tinsky\Visual Basic My Class\[NET4]ArinLog\bin\Debug\ArinLog.Net4.dll +E:\Tinsky\Visual Basic My Class\[NET4]ArinLog\bin\Debug\ArinLog.Net4.pdb +E:\Tinsky\Visual Basic My Class\[NET4]ArinLog\bin\Debug\ArinLog.Net4.xml +E:\Tinsky\Visual Basic My Class\[NET4]ArinLog\obj\Release\ArinLog.Resources.resources +E:\Tinsky\Visual Basic My Class\[NET4]ArinLog\obj\Release\ArinLog.vbproj.GenerateResource.Cache +E:\Tinsky\Visual Basic My Class\[NET4]ArinLog\obj\Release\ArinLog.Net4.dll +E:\Tinsky\Visual Basic My Class\[NET4]ArinLog\obj\Release\ArinLog.Net4.xml +E:\Tinsky\Visual Basic My Class\[NET4]ArinLog\obj\Release\ArinLog.Net4.pdb +I:\Projects\Visual Basic For ENERGY\ECO2_160427_2300\ArinLog\bin\Debug\ArinLog.Net4.dll +I:\Projects\Visual Basic For ENERGY\ECO2_160427_2300\ArinLog\bin\Debug\ArinLog.Net4.pdb +I:\Projects\Visual Basic For ENERGY\ECO2_160427_2300\ArinLog\bin\Debug\ArinLog.Net4.xml +I:\Projects\Visual Basic For ENERGY\ECO2_160427_2300\ArinLog\obj\Release\ArinLog.Resources.resources +I:\Projects\Visual Basic For ENERGY\ECO2_160427_2300\ArinLog\obj\Release\ArinLog.vbproj.GenerateResource.Cache +I:\Projects\Visual Basic For ENERGY\ECO2_160427_2300\ArinLog\obj\Release\ArinLog.Net4.dll +I:\Projects\Visual Basic For ENERGY\ECO2_160427_2300\ArinLog\obj\Release\ArinLog.Net4.xml +I:\Projects\Visual Basic For ENERGY\ECO2_160427_2300\ArinLog\obj\Release\ArinLog.Net4.pdb diff --git a/ArinLog/obj/Release/ArinLog.vbproj.GenerateResource.Cache b/ArinLog/obj/Release/ArinLog.vbproj.GenerateResource.Cache new file mode 100644 index 0000000000000000000000000000000000000000..94b63c8e4210642e577730bede998b22486f01a9 GIT binary patch literal 919 zcma)4QA^xF5Kd}xUUDbI2a(b~9MXq^N4Qj^z8r!PTd4=Oiu9pSHrWZ?-d^_DNyPLQ z_{)6n|L9*R?M$d58j2H`oy>kS-+sH}xQ^reA>);8_>A1wnaZs}Q&jOmt+b5K1(FO984rr|_oR#@8K%mmV3IS0vzLuDba zjBPy6-RkDJ-<|b75ysGtFr%PW{v@mcoLKm?AY2POZ6A5^SFnXX*!d^itTn z5V{5=$`!}=2mLOti_HG-ae}j!&U|#FzAzWSrF@C04=wGfWjao7crD8 zdjoRMXU&Mt{GG1q3yp`VZ4MaIL|jE}H-ZF1auL_FMcjkU=XBCN1dj)8n^NtN@x>4H z-9+K$-M} + + + +ArinLog + + + + + + Returns the cached ResourceManager instance used by this class. + + + + Overrides the current thread's CurrentUICulture property for all + resource lookups using this strongly typed resource class. + + + + A strongly-typed resource class, for looking up localized strings, etc. + + + + \ No newline at end of file diff --git a/ArinLog/obj/Release/DesignTimeResolveAssemblyReferencesInput.cache b/ArinLog/obj/Release/DesignTimeResolveAssemblyReferencesInput.cache new file mode 100644 index 0000000000000000000000000000000000000000..7985eee4eea697937258032ef9d609ab0d4ab2dc GIT binary patch literal 6429 zcmeHLds7=X5Vyf77($C_N)l+&OVdY^dTwmqWQIS$kAx`@#`e$$=OOal+9;gwTuBGG z44TV zD&THW2afQ~j9;(&-g-8dG%|+9Y|R5AkdP#Nn<;xxWfJknkD}L zyp>97wmM&3tfte>e2UNVAyT>Y5lw4>a2?XO?rD&I<7dem4UlGm%XP02X!Q^WKjyCM zAAz%~6x1tjGk2`PBdgRH_RjcTRn+prg-M%xj&Qh!v!29N)78Lr^OD!$$d?CaO(kBz zwg;Em^1kcfe4i4t#AOY1XIL?)D9~FdM13o2o-ZK_RgSJ$_moEa&aG<+esz1Nmbg~e zhvH@tPpjn}R)MjO(vqK9Z!6B24d zY1up<5XXsWAQw)dpo`A9pk?w()28o<1CY;dW@m+JxV%XUuMTVn+H`B+w)AaK%9pEX zz0f!(47v6Ya0-E^MIG8hu1acoNwEPo$XFyYh;$$tjWYZq{d1_;R2u3Sbhv7^rZ6(! zfCp08<_5apeR_BImM$3QJKPOmn+y4Vrqi{krSNJ=qpoaUx}tKvbLRf{##vnC^Y;8g zdU*Q!j+y@tErJ2I>cBFJh=4pxwGS z%LH!YgGff=F{%y`K`ao7-$Q~w!$jglMu?0e8DaO4M%WmVwUa^{4!tfSIzHkOtPX;; z%&lCh0}PXgc)=&nP-PoI=8jLV3k@uyM+sYN*{A%Sg z?`HPW3#rt6YH2UEm`Yizh$S}sn&nqMSOsu_E3mSl5K@*9_7p(*?qLVx7N80eJcLW8 z&Fy`Ne@?R)M>2KU&@(7c2D1dVk5jwRnTavSCXgEo+rPlt;PKJ|dw`V@Vwtn4+4OS! zOZ=Z8*V30w5;2d2S9cge^_c0nE_)Q#;209*eeyMXjO4dZ^TuY=X#3JyZ8Y%7!3n&X z^(H<7*i={L7eQ-;bIL@_A6D2j%CBU?)vV!D!U$g$#tZb&OI)J%3K;D$K=gefTsjWE z95@y^)#@Nk38Cx0LOr^7da_(|lL*f6{23K$e$v|+hMFljo}!*|?`B9UzD5;d8yNhW3>B1BUkwTlphw`8(D* z>#je%`>$%soP9I_(2Kb5_TqQ>jj>xE9*#f5Q}3)K2)|J-k$r=t(EW2aLD(=<@Ej|# zJSG97gk3`Lc+rw50mp0H1R+T(2||-(Ec*`0qm#^yS;N9%6_vri`X|kQ<>>n-O()A*9{m^X_eNd- literal 0 HcmV?d00001 diff --git a/ArinLog/obj/Release/TempPE/My Project.Resources.Designer.vb.dll b/ArinLog/obj/Release/TempPE/My Project.Resources.Designer.vb.dll new file mode 100644 index 0000000000000000000000000000000000000000..f88467ffa00e987c77111b7ec142e94934b2a684 GIT binary patch literal 7680 zcmeHLYit}>6+ZXw)9Yl(dgDA@cU(J_V<(H#ID%9a-Pn#}w|0|eomU0K>)r8ss@a|G z%xs!%)v#4SYG@?dsz8xSXsKvJK@f>oQ-~-^f3!b>ifD_F5Q>Ndg;wwb(Mt5ickawS z>;wuDzbIqRx#xAyJ?GqWAG6c9JwO2>3gUhLeWGX3@{?BZUxOON@vEPW)A!ph^gJV` zF7(VS7>-u9t%98`YPoEwWVza$uGy86W|XwC-5ITD<@MC^<*`2B^q!qWQzAfL+Pgec zAMGN^o_5hrv1IO8J%s z!V|RyZ_AU0_bFR9Ehs8qXCY);U3gobG|@;4>7krgJnWmK5S_V(Xk~&(DDHm_x@AAQ z#s<*B)7Ze14kj>G125=A7=vFy2bqc0knNz;#uzk%14PLoK_9`8P);1<9##y}*dT=m z8ZvZG9Ag_6>SKuv1{25Fs)Z~pkzt6$F&@WS-XfEPP!TmHWS}2ttiPin_58soT!IPN zpKM6#ej=X4OXw{7F^MhXaUVp8KAnsBJZ*?KAx|Q>^_ydyslnJ_crYkckjWv*)k=su z5$K@zIuYmk@VyK*NW3Yv6C5|D;;L84P2sUXp94o(s@Vv;ZtHE_Nfc8j@^^|gRUf?ew ztBGUi5%k#9Eo)2-?01lZaDOj4yU2;G0q|TSo<8spkKlMI&iz^D_pkF&4~c&417V*( zlDTO__|?g^eq=Z`l-fG9b<1`Tm`M|G0Y3H~BYGL_PZ-a*woxiLtnmOG?MK_YFGJ4& z=Y03>+BZ3d_65*WNMrAaY0ZJ=2k8_CI=|l51_$Zy8@BQ~MRo|8<+)UA9229K<+W(H z;pG}eStvQj#(LZbrq!~nw?q$znU6fsALtz5dhsr*ZBX=y7#$bqfD5T`c}RxotUL|) zC;5tu)4o7D5T|p2rvP77Fc5q_5T?z+b-@^!!JUAg4JMJ-v%yD$Vfu6M=YY#XeIiUl zfH9g3C1L-|p`)QNT?qXc@KT6%-V3b@#!+`^Slbq6&OSi)((|>R{f(%d5O^MU1XLSv z&esZ>2DKbifI<-S{<<8xQAO!Kg)BigEUqinQ(8GFy>}h4CjaJhZ8W$R% zB{l;-D6R+mq1Z(|^pJc2eP5Jc1$NL?`9_sIJ!*$=*>^G8zti1G4lr zJbE&^F7Py{gFba_;Jct^73D=6qN9rPMhH<&QLCc&1kPi29`XASqeF|<;a9F_`d_G69i5Lzmc!Pp>C}~x}djW^U33@kpw^&P@ z*R{m?+(_M_`@rG+eTA+MJp!CZd>rt!7*iE6MfuSEG)1M*205jq-vk_%Yw25|8|6lN zHMCQ12j?bvR!M)R;EU8Beo9U%{1<@TfnO_pBORx0B87F>8%WVsu_=(IL3*3g815OTZm1xfO_B-w{9(Ic)E zgQ6xrE50Be7Ej=BP~IvJ%J1MWh>8lM+9H5a{I#jwalP1$3VvD403H{I056J913oGr z0X!>z0Qm91vw$Z8F94nbl&J0iUq@anUI{i}m`jZukTU!Yh`nzzI8mRkQ*X z%`KlE19CH+!fvK9eZ#bsubBELsOaP@+cf5A+Q`|KW6is%{f1M?nj=}q$kB9lN4abo zxvXngCE9^QZOSU7rmGN)TE%k3)oq}AZ0mMC=K?#R&t-J`h>_DBnpv>*Y(A5n*LTmc z7+Ob+yl&5Kp}o3eRcuyjnoKpB)76aby6OOJqUc`MZ5Kmd$7Lh(urgK0)r;i$j;^Y2L3a-~G>Q#$ae%~HEn`!WsU&#H?jOATdXcQCX>W2?cmK--* z$^oMpGJJx@45w^4i^c3B%+x#lliczodPR|%ETLpdS(8RBU`O5kS+k;}A~=_d!Cp1Y zd2`TG8TA^O&X%$TB+&K?2{if2yKt4tn#NsT$&OY`w_@v)rFpBN?DJIimm1`N>T;(A zKf-=eUE&V~m*J&n8%}f%e;CgY9guxQ(SOXNiVrr zw7N+<^9IUz#J28qvU8@s!^K^54l8k~Amd^(>sjGhAG38$@1pmEs@4tPFHu?R;4^@nI?8P?2%2ccuKtyxQ;w*iKl8YSmlPJ zh#8x&v1n5F>hrp-V=?;cxNbt9_eZ21j-wan%&NET)QS2$H0HVKS$#rpu}Zx8EGYng z=T)Vfsg`mJwpB9j((_ocJhQ6S_v&W$sKT74SwE4i2GN{h8g8{Iovv#BG0|Mk{;cYD z>Ie>?4^T+uP5#uv$I=e6ar-Ob_GM9lQnZ(J+*B-_ur}^QjPvu*z^{J)=D~^4v%mf5 zTW00L7b*IqyFR&p?eN7D(K9z5{!HSP*!2O8@Iw#@9GM-XqZ3G6c2i`95Z#1!NC>f_n=dX9Cy5QM#l0rj z4 zJ-THGAFBAnWr42;et2FJ^_qm&tPDmtaDXU-1OpC6#8(JvpRTGUrOtZX|0oVd>tRF7 z1VzA82U%UA^#sC|M09lpB0}Pg;tR8*Gcn0ybb^kDFh)1N!jUBKkS8sOSmN=lpkcq* zVJuZ&Bq>ypYvnA{NoA~TdBSzeqo#q)vCi+f{1i)G>FDw^f=^O^9%7gb&TEpQkw6lY z!V@Kg0$vD%qnj%`TB7) zQZYsCEv^76w;%2=xkLxBf_jo{T;xvTPnhz*Sa!F1d&GJ1bz^~)6Io7BUc@;vt{fOJCEk{GVgA<(&5w*^u|`D zra+v3&(oUpB8+91Jvi#^G1HvR8YS=ksq2l!{r(2h(wFu4KjVKj148{ChTkb`izD=Q zHtb!O@mX&I@4+~b>nbQd!%JzY&z z4bDWtHkyqFli=ATYocbysEKAV$A8h)-7yKGF&d3O>(6R*&7LHRNlZ+RiMzVreO1*z zKuofG_MH8(hPw6c&%5uw`|i8--m9kPFZPj2L>lh*-Xl7ICtqz6zCS2}U3dJwb#zDM z(b)$?_oK7>hO)L^u*^X#HLRyo`Ml}q1BPym&L`p|(#EO_u-4 zPY-oP=$}^;t>bc$=pi(D)HP02%fxL&jr{ymFP*4TT^Klb!M~D@G3o$mO#tY)xv!qx zD9KAlt4TYPa#BR2OxcDTeWoPtimMI1PFl8=22J*%h(Z*1GwzD34US7%M$Uww?9(`y ztZzB)imQ!iMFsjn@&B*~CVN524}}7B!AS@+ok)0nUXQY$6Fk!UKJEbbvG4ujAGrP% zxO2T@wqpz@HyE}#Vx-vYg3Bob_kCmXqp}766$Gogi9)yFukHh%vTNbw!T?V z4Rk;_wuft&z@qa@bX1M);rb?KT?HMAVtZJdIjM>cwXr>{+eGq{@(Mu$qeC%8O~gS= z)Ju-rHY}we^Ac04^nf0F9F>&B)DoR#(I3b*lxWD1gr3Ee%VGS?g+cbj$@7)@_00-r zPfjHDwm8)-7>EF>lJR4I? z^fNdqVxIthtu+mzs`VIGm;*xCo(otLGUwr8O&3%+zQH^ZWz9SZ(4)^P(*u$o54<}S z4pZU*Z8w~!#RGxea2B2oyD=zQ*hKfE(~`lk*(B8r+EtKv;NXVdz{Dy5IFaK8a)i#s)Wm8KYo)45 z5l__`kbG6)hH#ZCX+T8kGrL@UGtozkHz7gA63Aac^DHn_^K8JV5;SLkR2!~&Y0A7r zH%OD*!AkU?{1S!clR%iWHMPgl6!=Q8eeee%*TodgM83fQKZ;=t$_&sj#U0Lyrh*OT zT4WoeVG!<0lXDmgG&DWVaVpFjxlSPRa_goupo@pwKBK@(%^F`Trb_pBAdd((2) zckzpFN%JX-I8c!7bAS&;iRSFVIuRCsA3}3_9V?q3v{{1SkucKioQ=H{M%G1K(45s9 zyD-u;9rzmL&N(Y`<^ap$QsC3gQ@<98APDLAVlf+td`f5GM$RCZN+;lEJ^i>jHefHm zcliAvmy|F^*1_;PLNJ|x2Rz9Z$X`#9W z+|Q~7HAu^~CM`%iv`tzaJ)=DU_|ZTjP)D03yd;nd1nFCWs{kJXj3Onx3V1@W9vNVB zaCtCDmj`oz-wd+O#{i@B6L5pHB-9X!Qdfvu-x=B>;&g3jZzxXtCA?R{ha~*Dgztnd z1UC}C5Vg(>zX}^Rg%fCN7s^4pG5pnVl&5 z%JL-`FUA>MV2Q=S$;#bphhVhU4&X+j*dp7^xY`e zeOz)+u9;C2r1qLzu#UFYJOJ-~q2{WOR92aMaeSxUyd@VuSwN4+@jzR=!NXm24R6)OUW{z$ey z6;azl=L;S1da)4jL9rb0b+MXe(;;OaL|;^{LEERO43|rIri7gmo-JXogj?0yATuD# z+a=rqC}_WWCu~1Udj#-2?FWEA*WRG;Y#2QDTD5Rf-s^WfF6()~HQlYIu*b7h6!Lig#%V8wc;o5>}5<|@{#l9Dhd-@7iHtQJYdE|q!dGd}0$bo=-_TwJ)+#Y~9N-U$xqXjO zpTru%?`m(tS3_RCcz`huF#ug%kpml6%t5&s?5QH?n2px3LTQ==Oz55gi$0+ zfwd;r(q;K}EkYbMDZqDVC*VOEla!c*7fCo*!UYnxN_e_Q=h0d~3|l2UUBb&G_X-KW z3^-2L(pAB0#0=v2nL!*kO>|%Io1k!<+)B>|??ss{xd-rjqEpV8ZY&V@Qa9CxRx90- z`v72{5}{3@e&u265ACEUXf%{jUIBevmd{n5LwP6Qk3yr$n-mD|R(=N!e+8Kt;k|%! zkSm{~MEDBjXS6i@B_$?0l&eraJ3J1!9^4sX8{jLl{2UF1Z&PNAV)!oT{9JgPn#9fF zN0b)vT=;RNU0T&8ejOg7kBLa+Uz9EpiwsehI3DFKLi$#0jQmtdiB#n0N>+?U-cl|S zUyQt?Tp_t#;(L(>^)i$j0e=-~0(?7CPgjU=v_-vDOph)FJSnvfPDMHj8bt#k8cSB|QuJ1)?ZxT}&6F?!|Pzgk1MBa4$n|Sm$;02>lR{ zHBU&&ccg9Kk(7r4Us7L|^qRsXr^-A@Z_|uRDg23y};s>A_|s|SSRsYbgJ@kz$cU|0hep90^Xzj6fhe2E#UEh3i7cE7{H$bZ6UxA zv?2i%t+4oDEa3`)RRqHrfqI_lAE&jNGi7?WoOgWGuB=x;IJs=;7Ezuv1sl# z2ebKP&lp%8=5S%eF)S3qP`&u$5Xwj?Z&zRW3m2n2n}!F6GEoeYuDh3x?&u z+GBMuS<$(Y(G@iKz@TK>G10|i*6%djj+Q*(9-WcfT~w8I2MwpcBr#knR{Mlls-kTg zX6y(V_K*~mh2egF93jGLD#u{BziLd5kgja7vewF-2mzZ+T5ULMQua^>J~&X{SixX| zeD;~{9*R0J#*WdCfwP@dK8+HN0J0uJomsnJ+SP0}5o-Jjf55jqh;AGuyYh&#d@4sB zCQ75urc`dkKoGGnC4sFfsq5%nmCYGc=-ywH<;Y>NM;$ zb!YQC$U9N(HPRzi))`B7SYri;zwZ==#;DKA7IH@C%3hc1_1d2+J{!|%hrz-ldCW$G z2ZeG*e$W}BmH9O5>*P-ygNJOwtP4K35OR3~h8r2?ly!JL z>&&JG^QP@&(>81z7#W1K*P3~r@YV7@b4@mrG4f?S$4*#&>t2vyfH7w?DJ$c?56ab{ z&TwfwU&{27<10OqM5Jd2^R&ju74TW%Jk!b?Rbzwu4WZQkk_8@v>*C7=&qOyzxdZNT zdHSt^rI^qVU~H9T4ttdLw3FSH;w0Q=I}6j>=yHRw*!oEHJ-wVAz(%@dqLr6eZPKh zI+aUV1eFMQ6NAi>Da-J@!Xx1IwvWH(dM@c&C$p2AP;HXKk&?qmJ@()Va}=oq)7nFN zoiPN5%YcSq_{7Sl+jD~^65G(Q^a*0KH~R^^$oz~;+%%|?i!;9T4#{U~*Cy&+)82CI zoa|XBtwr`VGn`7X(eMH`(gUbY=(Vaz3Z zjXIW*8m1m&7*PaQG1BF-`m9vm-fmhL3XmPcdjntwcyg5*IBAhg@3bm6Vh^p#;#Dd; zOMRx-pd3&KI48`dt=_=!9IGO@t$A-2w6@xCJW;nn`9{m8SB|EQf?P531R*;-w^B&Mdv&DpbCDddKqVAM|7zSO2AF z>=(_ZFcoo=CIZ%bA994pWZsB z%v?Q^t;pHFDB>(*45zFeWkH|C(Q0J}hn%BXaCc@TeGG;)EPo7>c%_6nS)HQ&min?z zX3=MT1g6n@zyTei`Ti8h*KUz$D7 zl&xf+n)tX;Esd?b+6>2k{{0#nfa*b1_8oqtD|6uIX-A2#(;sWL+F{iuodMH@ihK4- zT1%a@5??#lQ#L751sS$#KUJDyz|=+ z-S*?#CSlLM^}yRVj~;6N)(y9Hvc#dA9^Ce{PSd}w(}SLr2yA?2^pKe3Jbm!?`2My- zXYzn9>^r#ZnZ9SPf1LK~bitu>9&_~;_Fs96PR-w%cwDEs51w<+rw(yDBIZgr-chQ5 zQaeI{ebNoD`7yo$!^FF@5%AKoO!UC`R}R0tcj4N9Jnp`?7N1l6CWY_*#MVtST3@~_ ze9M{r7sj5BE>~fXO87L2uZy*z;MDkZ5wB$=>>*)BVjdD>WQvDO(ZZ<1Aj}}fV2Y*- zr4dTQnojYlDAXylC^T7!SvWBXH47mo&mtW1fL%|lXa-J#v;+_(Scl4@E~Kk5y{--j z#pWtOMGeMh2X*DRKpk|7y1Ia_0D?LXcM}^lk3kbYqzK?JVjhDgaPgUw0Dv_IpgOiB z?0;*Sh9j4ru|8uMn8XMJ+P;lehm55J`ZDjRRf!76~Zx(4$ zxDhmXQrF;wy1JC0R__G`Wl4Wwnnb>J%(R)alf7oDu*Pu;?kdu!$B*8k*B@(N?l}V= z;=GZHVz}6spoB1tJdi>t0d^aYY23h>8SDy@%I0C*L|uF*GseQY65m}HD_+Dk8Uq;J z;-{D~0=yAXCh9nDlu4mrOpg!8ch<#6Vmc^|&=sz$V}>Nh=Emlt5(%X)N@}clO=GNh zZDTN`#uFSILL3(eVAzYdqKu#kGCVGTgS&X~9`_$&sV1Z`HD0_K(lDacxl8axm$z8Hiu*bm1j zjoj~e@y(F*OYu$kFg_3QieYYQ6STOr*6@GR)o02vbg*6+%#HCHJ>xGFR*YnGSn!9u zA9dl2wfuC5aR?)Lioe4@*4uoJptFzM`Sm&@nXH*~cddvKZ++tK*$k^h=*2oCXYlI4 zTh*9W=v05Mcp>grMySB~v5N$cZy3fPt*|iy_V9%t014_-8aCsI1KZZp`V1$6*fk5D zA1%J>CP8x-XVRxE%NR=*E@@fPvar=y)Vgq4+Q=+4PHkP9S(IMdx~OF_K8iv;zy8m| z-T}wAf<9bYh3JWnCS70D+|sNs&{+mQY7rDEEf$ED2x>n3$^D1Fa?|0j?tA^(t6#hO zz~O5S9R8bq`fGO-Umw5mjW1rUzwyNz4_|ua>o?q|A0EH@wcGFHu4ro*y4Nf&>mG8% z!~YGSOU8!A>dfVOa2n&Du^L9wTd&Z2^GI(yqV@;q|8@`fzr9w_k*&BJx8cSQZ#MLH z_BwApb?W^u{J#6spUgFGFV6W8XVA{&Tl=zkd&k&T_rP7ph9R5Qd&cyRT*|h$mO^){ zIdJY)toIFU&C1kdAu|9iA6)9;_d+s}m zk0`m2=*DBvIesRNL1*R9GN`&(n&_uhG)7$d+kb$LTu%EgK|Ky=?;8CyQNpbzDdU%V zKalYF(=Q@&+*g65IBF}NI7z`~VH4Kb8&K-Px_d3~F2GeN^L4-Wi+5dneC6)*OvyzK z#?+0X5_;wz(HpEqfFYzx=o$-4OR*Zt>##+yODPRBk(lx*w- z)yDdt_XmZlzWH^_dj|e*3|K0Z>TW_^3$@GsXu;mOxpZ?|b&zL|I#QOm%DD;)k8Xqa z-n_l${Kvn}=|;UlS&O|?K>yg%L2PfaKbM}Xrs>##cF0Y*PK#hm3vS+!>m^^fK48C< zb-N>+L0i0uwXk<|f7a*QSLwe_*{5}$9lWdJKKWzr9|n|tU-n@3+)?lmGZXHlc(Ye@tTVU%k$&x(Zrn)m6~YNcno}1H9}E zl;Dp`E3ZqA_FuPut$pmVE~lVR(=Ev3nYw^n%L{r+FFoSVs~X* zK+}Z*#!%8RgXusZQ|B?nFeF1;H+37BIE_gtB`pc0A%zg9<7tu(;n9)~$x!I`-Fwf! zcjdJtY-c*Q_Tr=a|MxuZx#zylee6$LB9`h;_wUFATB=%>Eeo`DtPRu!L!q+s=0-Xc zLW%yTuEOI+9}|?i(nQ6-=YR!{d{hkM*#h;Z4HuiiIBf*yzYzB6Hc*a+KtQ-yee_W& z;t5&46~nn~feGhw;fiG&)dKs2Vc(bk=&7se+HH94u171Ly5j05Qcu?I?p^<=FcW88 zKS?Ua=ZFOgjsKhq-SMCAEbj3595KPTF2>=PrmpV&hnFf2HLC-apPK)pqpepz^6UTj zQN_Ni)R9eJDf!a*U%clt6+2$8cy_5$?@!+F?6${~jsMbp=f-co)BMUEsjod^T?X}G z`4c~Adi>C{^CrD^>lO2}gX7w$XHntLRQ-R;w=6j~a?#)ZYvXOdzW5iv`rcV&f^n_t znX3QmKKba-Blng6+dXSG{K+eS{7;`7*G4^y3V){Rf5D8;ekU;ho^2N{zVzsQWlP>Y zi%c-CRXtPn|Ins`fk(dfneYBQ@$Jw5>0Ng}G_H+$78U+X)&IIHmrj~A>F#%bv+dZm zAAI2}3(q1GjB8cTRQ;=`&wKoV(#bC$|HD)o*_=oZMtcLz(R3mfXd4Q&^hVR^ElsIJa%2C_L~@IM*G%!%TQY`cm*Ls2 zdHRL|G0hVNPp{_D@0w@q`Lre@@fdX*dp7Z8w_zE3E+}Aos{f{VEVHF)V4yb+ul30A-SXf)HSj~5?075X>wgW-9MO$ z#nY#6p_C`;wC&Ro&!8dhJOfIlMUt!2T=b;B#6()h2N|0}s)rJLJf_KUu zdTrKEy70_`vk=6^5lbMS(Ej(6kG(-!rjeGhOUptF?czNLuOcmtKw9ElS{hhr5AS>V zTcoAINlTnd%L)?Op7fM&la>`oTH;(<8eeFCc*&1vX&sP8TH;(2`hEv)4f+hQLF5p&3o5xz=8&drv1T@&sGG zR6rlJ2mdv$J~za-cf?b>5|{{(tZh{fz89@tLOYsXQjcgOo?fnKvDJSekM#i4E`7R< zGGFkiPx1i)8Fx(3M z3bn?gHT7SZ_8v{!;L)0TDNOr-rd{pP8e0{neM{4}sP~}HWPolDh&cu^P*;{=BcK~_ z7vM3#A;61(Hvz>kzAR9R;>!5nX)l9Z=$HT<&Hq!p>$Vis!@oEFw}YOvf-ls6mwGD! zr50g6Sm3<}+lKH@d@*>{1MyU5h*{4qKxe&f^i0et?Om()^z~lZlgSLMuBzI-dv|bm zO|U<;v#P6YV^z4Jp}r~^?Te=eqA@+iF3s^I(*?MyL!nR=1SZo}X3lC~-7%ET#QUr+ zjq)CB>F@1@?+=%s1KH(TuBCNx!F6#g1`;vQTw-Y2;PlrZdrG zMvs}=b|Hrm_sTyaT{4=CC8Bf#v@I4C)^A;J z|MqAvN-=^gE>%)}dNDN$9bAE^u7MHr+}zw2&Gd|{S4Rd5&YjSU?JZZwkwkQ7vOk?k z#Ax`b`M78%%DL3ELEeLAoA;VD-enGwK6TXgsYSp^n2J92OS}y4Q(d4v0wAs63-u}M zQ`LlPa`}mW@CrLL!UrbOf2Se8GGwOnYw3x{Zr(ab4}m_*^T_Wd@Q_|;M$1#?;R~F3 z*bxi4fePl8hwtmw>2w$J($Q#1Pc!AE!}v^RaoqGsl=T&;fIpU(eqB7Xi!D*?FFxjD zBt&R7k^YPM-aiG3XnR~2k9N11ra&ZZ@+vZY7<}Xry3uSxUCCeO*rZ9zGq!NkTTnLI zkhXBsT~(wU^gZaam@(F;$6LJ8FV}N9pWk}>!z_G2H3RcM~I>w_hxV8)*aD~Sx# zrhK}6k*|=9IpAFg++0savnL|}gPAts^V%2kQq#2|b-T^d=favG%Xwj`m4!7=mVIS8 z;_DFy5#NZo3UM4Ue3EP*;xJ-f96__r@&K9fU5IND-;bE({4>O>@cw1Qb%?)-7)y=p z3y2#KzkzrqVwUw2h~GjC`(^19L5J+`5wAg91})1lo0O@euu}_Q9iA%@UktbuFdq;G z#V3%y25qGTaR6{RU;%)%GXc}`V%mBez_c5m*X~$9odAY)$p3uA@KND2;@%x%`ktRc zO#kd^#3-Y>25}jzREE|v1*I;7d_NgWhUFou`88|7^WA9;jstYt2D%Iu1kGP`)3gm`6U*;r;551UZ6c(*N^ z_-rl>?J~T~x6>g&z+CPH_!#~hq|9`Bwsv&V6(<4fxeMjp13vNy-B`k z(N@wnrcc%?(>L-0d@%ogVy7E0cgDARjwznmz+L6y|hn$+Y{$R*}pUrfamA@M?Y^a8`+y>Z%b+AFN7v4iUX&(eI(5^?( z0eMF94&VX|FqMEtKo=kbxF2v3a0Ku=pcww}7GV8~|IalR1N(*q)Sn%9y zPwO$7e0u?;75oTek3J6){{#J;%~c00QjeqVcvz`3MCL+>7~_k-8?i>Mi)ZK#we)w# zNutMK!~r15BXpzbB>n+-Je^$8G9JqQ$|0*4#yBtF*^j>E>D4(j;OVpk^iKmwFEpd+ zBzD5s;p(Kt4%cVB?I*6CFz))%SB*ZM{dsf7VdxS859x(wG=0QIXbYY`j##hmpg_)pjc)Ar3@9DV4 zo}=xljI-2l~_bN&?4r_6~HsAN=GM`qA{HPsNPT4y>M~YIAdC zX6sI~Rb1H-@^qB`sMyI6IEP4pkL`a1FIq=uJ-#3Md;lP=;78L*+7ie9N`UFdKCk~X zkJ$i*_c6v-V0;%^)4zOP|8!}wmk8RW9<6Ejh0m-|5YPraTGJ*A%fIUhh+Qo8hN+zQZH{>@%%xKP2?5&;q%Xl5|5I<-8J=Y`b z|1K|XM+_jz8@D)q$zIm$b{xSv&kOS~j{K)Pj7;u!R42OoKaZZw@FU;4@G z0cI@p>2VRSil&kMlq>Z3ZO%y-BOQA}dOrnwD)3cXF|t1iUv;snfX^y^x3P^++llg6 zFXE%ar}X?|&LKwU!gC1EMmdK-7w{~}^HF(Mmw|HkLgA+XM*+tG?*pb=TWX@>pR?Km zs7}xSe++$r0cXBmz`3;lf25BLyZ`$z(n%}$;eF#w&Ev)OKyf`VUe^OMe{t>4;10b3 z^v&~;?)m1C_>L&1Rnl?(;vT|s;K?I&!~1C7oQgva*?UC4_V&|6tUI?=LZ<2WK5x8m z=OUih%vN9U<}H(d;dzVaE!@|UJre%*f}tF+9Lh%kJonwhf)v9UwE&xy?Aso;lIe>` z!2Xy20A9Q{hRt!=wj~YQ8D$&-knaG1v?H`LeHI{l%Gj&++LFY7z8@XAY ziL@b}j`$kHJh$A0coE`j5zoO1;|!cB&cRA|4m`sd>N0On)9B>$%7QNJ?P+cWFMYNc zVj69mj_2d<#^OBx&6-2^pM6m7X~6S<*Qw~Rz`Bz$=3$F-$u5H(%R!`Na{VtCwm~a( zzaP)!5xNoVSyPQMM(Td1Q}>QouYSenHF67&9j$uoSaZVI!Tpc-pj0^xRtzV#0Ke%r zcS_Z}Jd-_+arYKm*Iz=zW1Y9+596=f^f`Fu`_C+X$l`xt@t=ka;{VR#e}+2X`;d+Q z(Z)Ag`ml|kvvR^Vo@nE^&F@|-?-m^4)Fmtrq`Ni*L2~du{pyHvRKf?h1=Xvexqf`(9@C7_@W? zZTwq{Z?gC&YO@5qcXxXY>Do#sAK}FSK&rwR(NpzWabLVP`o>7zxj^fF1qS z#99Pi8cmXZB?0A^s;qe*_E*dID09e0`^Y>f|72k#{mA3ssp^;l)Xf$oG!pXE;R|&v z6lm&^@P&9(;KbB?`Sgk;l&e5CPaPr(*Jjr6*vPy%e>rDyy zS?vMb1=t686>uEz4&Va-f6K{x-~qsLKs_J=Xb12fat|N_$O7&MJPi0MfM?^+0GkHJ}?HE!Uy>Cb zgR?x*+_=L2GC?l2;aTWSx}gs_dU4*Hps-4HE}jXG!C4;YC1ckTj9r??UJ4U>lWyr9 zoepdI-0do%H|dssJMW*HI^ldcK^403lq-*+vAnSyFYhr;P=zl#Nxp{0@^(RyNhFtZi+5`8`R+|D=Hgc8;RHi{Yic5SxV9m|`c%B*nmk;>k(qAq0*-qU3?<6^29eJ` zbyK_>v25$wZch|&Z9}|kj62pklqho#pD)NS&2?#EzTPW&msswrmneMX$_AgRO7f0y zxqUCe9h)4^+yfSSV*R{1hwI54z{_HrFhT9C%Hg7!@8e~vhfDY8a8>%Z{=BoyP^!B6 z%oEE{S@BD}EV2oudAhXp^SAlji($ye4MzEU^k#zs&U~|juReSUi@)FQw77{Xm9US% zt?uA&w6FxwVPal>J2L!@Rg;Ia4~Tp!-Ot}e<#0h6_JA|L>BCZ22dtqTnRfH59SRp1{s4K}l3-+9iNBaLiEkc{E+L%b*%&+rc9OO5ZR8=|^tLlNH5l?OJ z?T_7T5_aI5LFuY7H$pAM@WfBytFWiU?tSg`l(@(6t=7|)JM4?ArzFj zR}TR=P8P!-!UFuAFxGwQ8|dp?Y+Y(i{awt9dr<@Q!%hZEfa5&)CaU!@RO=yB>v8ba zqq?6)`a9r14w~b5<~ni-(t+0B#>D+o?TcYcTKgAVg)x6R#%w?Ix9DiG#jsUSEw&uC z2(}uw5c){;p{4=Y`Z$lz1k3`=2FwBQ?gh&@4}kl=IEz3T0Rg~e0Jh2nfJ(qZ0DY^) t0G5sO>{7ro0QFx1pl?D)E)1YgOn-#FOfBGS3|v + + + +ArinLogin + + + + + + 문자열의 암호화 + + + + + + + 복호화' + + + + + + + 이 클래스에서 사용하는 캐시된 ResourceManager 인스턴스를 반환합니다. + + + + 이 강력한 형식의 리소스 클래스를 사용하여 모든 리소스 조회에 대한 현재 스레드의 CurrentUICulture + 속성을 재정의합니다. + + + + 지역화된 문자열 등을 찾기 위한 강력한 형식의 리소스 클래스입니다. + + + + 연결문자열이들어있는 파일명을 입력하세요 + + + + + + 검색테이블,id,암호를 입력한후 부울값을 반환받는다 True 라면 존재한다 + + + + + + + + + 폴더내의 연결문자열 정보를 가지고 연결한다 + + + + + + \ No newline at end of file diff --git a/ArinLogin/ArinLogin.dll b/ArinLogin/ArinLogin.dll new file mode 100644 index 0000000000000000000000000000000000000000..ad4c96d2ef6bee87ef6888dc5a204d3a7cf857b7 GIT binary patch literal 16384 zcmeHO3wRvWbv}1?c6W9qE!veW+xWp4Y*=AgNVaSqF(6rzZGrs2k_}Fr$gAD4ym+;< zo}D#TjLCwbfe%6qNeF2jDjrTDH3`8`49&ylWs(#=NPsU+0)d1!A(*5jw2+pX{^!oj zK5Ros^Yv@LmRZf2d(J)g+;h)8_uR*fmVR^x`G`ox{qDO&d-3F}L&En5MPx@#cql^m zg`S+gSM)tOePBa6ujedt*h-A($wW45+WL^8TZOEi&g$LE`}GksWwg}Qg=e^;SM(6| z36;Jx`>oYpZ7-2By++g!wQvOv^=o~2>bTe8X6w7SL0TS?Gl8;VGTakt~HxH@3C7R$((V3chd zLng~R2Y1EQLA0;}{V@4|*aAD?|9r7;D&(h$rxGnVkw{1?(F(mB6I{~!KJG*AQ{VgT zx4HZcxHJ8udD|FiS!v|Wf|WG#rPN9zkut1ieI%bWtxS5TSzm2f`LvlmyS=5Af6aPV zA!8RT0i}Mk9On(CMcq<|XINZ##2tyU}{anI|1xSs`nu zM+~p_e#2&e_pTM4-TcQopRB~8G6oIWe<~?)zl(e|A4IB%JT;H;94?}~nh$Zx$0?Ku z7cp*Clxk=d9BtTkQM!zamgAz0@>qz8Ay}OUfyiUAX5Eo_r~-Lhk%@@t zl~X8&`k-r+6ki9J&n>ze0*gdmqA-0Gu~LHE2M*t zmVRuT+Yz5??eb@OEeHNop(2(F_p)Z7q9(OET4cF;r|M%kdW>uM+|WhwcoAa7#0I99ZD{pTBgn7?^fD)azb=$N5iGS9kettY zip!h?f|j2FSQ9j7;$ck`lslo(JQ-=#JOz;4jA`WzzmpO3A07`oD>1*i4Sk`;{QhmQ zFP@Ft-~g&-#!-I4VbOS4Gz6l7=AdRaITF#DaDzJQf|x(5Hkz}5#hU@PK^%%l)d>|e z*hNt;wbLsM0Xs^)B#jp}CK2BZZDT5uXaG_#c-QNOf2dIx=XBYXn7M#+L7 zu1K>z}yg^IOfIhi=Jm-9P(gDcsx8v2_9wXpkwKn8ZhU=N{+X{5Nb@7J+}>& zl+v&p(px#(>O&QcajYc5@IrP(^u?Li!>)nJpTS_0j@f9f0M~644NP#0aeAWlvP+%h zWBhojE~n!2AkLf*fKljneN#;JI^R*wQ7G!KbY)ho$|=6*IRyks9}T)bs@Bb-5JdAh zUIA@U5Fwm8}x`oTqsf=+i!CPC{w(BS<6K$$Tl_JJQi!=+W5JEKC=U`Mhlvqc!mRZEBZs7@Z$;3f2Iwo_(D)^$e0`sNNcb^ z^+FEji6~V_sLOYOvsQDJ=ms(&-vd|^3^j(Xf52RXG=jilerVq4%`^Fi`NYK__vBBd%JDc9_)kUJTDw+`|#aY0|qeF1YRvVG<C89mZRifYakCMT}FOSkXY!+o=gXDA-mo zB4J`g{8vr5I-F(~$_A=xsZcA>XfB6hUY{w1UM9pb%-gWIIxY@Bgq53h>j8*)8X?%3 zcg+hx&#wfi2^N{t;dg>8&(+{0%sG$)3#$(OWKxQZv4eb+V?rQ400}mNxKf0{I0I{% zRiH_QJUMWF$YF+R`EX0v7}Ht6p)c$|Z=rBkfsjd?c~LgEb#5Ds!z+#qpbEuKx(w4G zo-;5BoYZey>FjWxIX;hyUh;vqs-J9(7>qwUY4NIFI2TX!_*oG1;Vr>&_Lh`tP2F_-oTB3PX}1$n}A`e3pSv} zj|CS5!(;}z_Adt4h!`CRej^y8A4vF;gujt+oW}I&+AhG;0K;Txp+JN#)s~^&>ot~n zGbmwt7BE18&^ua~Vxb1Kbee>-00VSRh+Fh=39pp!tD##$0eV8Fe;#5De+3w(*F!Al zKO{XIen$(?gfN#qL#EG_>1>$!??F0D2f}ku>aFne;Q(Dwb8bz5hHGwwhF8@564raD zX21VkdJ3Krpcg=gWC`chPOc5mvRdZfSi2w?pi!Cryo6tu@CgZDmhdnj_oCC6o`*Kk z>F@*(>joAA#y(X~%YoGa^N}Bg)}U-1cr}R)yV!A3-W7Bm@&fR&FgR~Q-c$DZ9@MaaV|^X>#(;R3FER?jngbXm_j6qMycGY`=OC*j^WVQhgEFqY`uaC`Lb(m}8e1 z{Yqku+6@2icvi<;fYpL_hJ&Fmc;6%_Q2}3(>3;=ONFX@+NCOnqDdA5`P@&glnuDpJ zMhP(`BF#{tMKXO*4H5fQ0`MK$1o$|ON=j71%O#v4VY7to5-xD*+@H4I_)=}Q6q+IHm)nx$Q>`~ebf z0MEJFO@O^x10AGg+D_$FTC3fvL`9eK6{I(5e+#%7xs$|S0KP2KP2vvi+e(wTPn&>J zk895>Cx&ho<{(5Wf$_eYeWoH6kAF@_h;EUceRM)qtzR4RotmAO3`I zzt|j30$vp^K=MuC+$6pd-s*cs1ZzIyJ181!_R~ReV$Dw9Bs#6;c3%^HwB{~fFSPo) z?^P-P4e{BUh`L7V`3F!wt%j6lalIM^MB4$!&`%7TBy5xLObI(B?3M5W3D-!d(@8W# zG|{zmxo9Duujp@~J<8|Q7W#Lk3+caCb|U?VvJ3F{$|g{1d zhlK6474RD5u0hLK=IxUIcKSa3SnQLOM`Z1fNcwjH{pw4S{;Euq;8G-56WxVOX%g4c zX0=07Iwa3J7cys3aJ@;v_DPDrQW#FAM}0|XG(!|6=XOco4hepBJ94L}W0HQmq~9*f z-Y)rXm(uphy7oz)mn0;G>mo(kO69tG#Cc-57!Y@eJH;NcR~!&eidD+jmB;Y=Cne}R z-Iw-V?)#i?uXw=s9p40Xf~q1m1Q2Cw0BaFL>kun(ekiaerjUZgDOOoL`;J#W0r-q^ zGvGS)6~LdVuL8FE-vaCbR1kE0fPVZGNDBf6Ax%Nt#0dlDS)R{zU<#ce;Yo;-3g*}b zD&TiDHHlVnx;RHHz)aKbQ;Qt8DzEE+s1*c(NY0l7os2M~@m0;YMhdE??Fu?2oLY8b zed0%{0B%j{&Dr&^$snR`J>nNX`6z5qIgK6`r_p(gFIZ}(3K`=Z^3FqPX*y|{d2_wp zvO1kFBr*#V`E-(&j&|m9I0Q}DI4Y%1EV%p3;dHiT=_s(njh+ zW2oP-Hm7m;N&_1#9J}@>)*H)*I2&A>(>R7**XD>?4pC*Hv?^~{gT2}HCgt73S&8&y zyNx7yhpPE<0ccS=-_4_HoVVI?M^H|p#++f<(Dqo(YpG~lN$Cn2Y+z7J(l*h=W0vnW zoQ9Sx;T#E*(_9plWrq!Wu*5M^N>N%OA`4FU3ig31EV>E3Gz8$I{Po`LLb}4AUZB@C$dSTXn@i# zLfz?n&dgV5vx*So6?hNZawj@|)Y6-Umt_+f>N1hqVy{kQ3I?2rZ7B(?RY_b||Dtrp zpxoekespaxk{bsLY`B5MP{tTsmKZUJ@pMW)a*2H2z6cK7%F7plZjN9YX+&4v<&2CxsDYqI8m@Sq;v8yl1R#@&1US`l15b!N8Ls~Nqy<; zMsnXL^c%^7m9|G)x~$Qh&2Kkz8%AlsO6M|0cTc}Vb#3E~C@&j>Zll4>g)GLb!Cglg zBRgzwpq^}!<#qE5zFa1eb_|E1RiYXWhmn$R3%PNF{irrOOl(lurVF8%G3fO?8$WC3 zJ;lpI)JrW*WD~<^qvgJj0q!v`#%?^3Nq^FbEbhA(Io>^HmnQxFNP+A^UVgqJEqj5y z9M_<5lJ)7~g5?IWazOI}h8*W9V|@Z|fJ$z}RdhQv^pVVys(6K{oN!(`@ent&FbHC+ zk)fVc8i8Y>WnPkJzw5MdTrq@jd1OYvjgIoH!sD#l9BE-$u(<`t%NkJJNO4YChTF34 zbYeJb=IwMc4;_aJ!!Y(TGs|J2n%~P@l1`tyI)jOFMDtEip1Vyi~iyv{FZvSn0e$E49C*ft$f)@!pQdqZ7%T4tH~T z_$`5^81`UbY>{P-xRlPMo!*?_SnfouQb#WxU2K_!T$h>2V2;8(SJsMsz^Q?q%t^Uz z^E8#Q$;_1$h3znbrmK3qGoLp`hBBkly;)`{(VezXr)iC@NMMMT#}x*z=Mr+jdi{;T z+tR-&)0IiX&xljz$Ou~OB(qtk0gQ1m9>VY;U@H>%M#4Z8Ew@rSbBT^VuHcdahGaDB zOr<#Nx{@7d4JR zlM4)Y8R0b9;PnD88+t5@dkvA;s-n2{_9qjWghfyV1I2`Ma19B|aIMKb=UQoizk+a0 z*}GguH75|~Np@pGc0Vo64=*&gAmkt%xJbV}3a4^1AYlZyw9?7W%&>`oxM4)v50@%E%x7xvYU*Fo*>>z$?rJEtMbtJ^9D>=btFmce(zzFo+KBZW z-^)sHyU`Ca=yzIHVw9MRR@rGxgq}RzBuoBt)decG| zf@~Y^%z-{|`6?xFup>Dw(4tHszhO}t6SZtC4VZ3)(h+Rn9BAjayB))0vx?x<=FUi{ zZLwjytWJe;CQK*G?!tqPUD{iQ9&?RWUPs6dcZ>@^+T!#JPi+oOI%#JnBke9*(Wa)R;s&eY-AI&B=SY{U9ld4$WdXrur zpV7GAGq_Q{dO~r6JDi03!g2p}MoxAsjZ9*TOy$c}yOE2PL)K6_gSAFE*K3;_h}{Jb zd*DFAf)g&{K!Vu4v0TJ!FPqZkFJ~?;q$|R_#|jrq86$~fNnuB|(!(313Gmvq0n}WH>%DkJAT9YvxojMU z<*Mpj4^2$yp_Ay<=@Qh&x*5PdJ=18`+0+3oQlKWFH$S~xtXt8ZyyWoG=5bin5k*<(I ze)c^~`9ajGR#_@G`IL$-FRLx{ruWb?>ZTsN`C37p)Q{hVc(<_#dyW_yQ&_~Q3cl#~{Gtc1I>7aasKY(wzEb&9I?<7At3FuM8@nsfy}X+(ATKG?M3?yg=C-%r z+_vnqdmmZabKKi6koLeQ*RGz_{?awtJ?9R7D*9abEFbjo;hY5rFtOTTV0>(%h}ANp zxroL{)J39H6++Zc4nzq=P*_BQx-Y6nA`!nXqB9~&K=B1)(*wFP)gOUS!5Io5s55alu|_i) zH2Fyg;Lu_wgC^wi(K-OIR)`bPd7Af13ttt5myQk?BiJX}hSnxOkZXYts{(P+wS)7} zoJZ7oj8lVbApng*l)<b^Y!Qhh1hu=<8kA`9mg+5-PHZ!2 zX7VllW+J!5wsX$9+M~ygKH6wF)_I0&61?zqdo0X{qcCX$g@S4Wx(^-5-KY53e%!q= z1BZ=JEkHij5Ira&u}z#Ys_9B>TO?Y%oJ&mc>l7_s#Tf42Gv-c*-`sczaK7Ad=P0kSb*VFKh8vB#r@77{H`XbGBsAbAKXy0_*|{-gDMA+ ziWXmh!=jYN9?#OC0+)!yiciLh&qxX+Lw=dgvYwHWUe~~h<`n-i04cHwiZX>w5-YwD zlqSP7=!?ya&Ey`BHFXG@>n&isB~#0QDZALl0&6%k%A1;$x3XGTNN2D^3cBBb;`1%} z9v6M2!NZDwz#q$P#X0QxM{bq-?LsPTwm92-xRAS`b2hn#RU-6b?UXTiZR9QkO{-!= zxlZquhAYAD(aQyQz6NcA(qoX&*mDS<^$8kK8ZX455H|Xyr7%ufan2wX3p&1KSqu9U@|oJoxG#=V})=%pOJokw1q^Ia_Ac$;R-O(jo1BW28+J+EzE z+w68@PW$XLl16H_ac2Ac)STq}_Bm~H@v0kY@+#^Q?7oOjfHI}UoF4CL()Bs5ZLNB< z&OG?mUQnpC<|3Mhmwkt>*nQ|P?>cnLj@NG8`RfPv9{Td$LtosX|N6e-Yh!o5{)L_T z>tDF@(A77;w(Fbvp|PF6-g7^jds`A;ylbb3pb1w zXZeT!P?$-2M>YG0*q?0y?|&~8NE*RCWgYH0L@WEd``>=(tjnG|SAu9UscfatfYHw`83+)6qA&( ztBFqZGVz>vIg!ncaWC7~jug&>u(?=`_4P`mda>SK2D}$=5z>5pOa1L(M;}kP^ThX= z@=^gS)R44pKmn-UaXJTV?E5*4B}D)$mQ){9{Ie_bv8nhf$mYCg-`*V zYTMx z9lJrzW8KgDf?QSGyt3uJ0^SVs++QlY8fD8HLzdl!vw+sp&2>e<&la^MFK_)b6&fC0 z2cISIaRJdHo`X*$MCmpoL^@y}VU(5RL8fI%pRMw)kV^*hX>OI_?hKLXHCj z3;6M|uc8x4ibX;SH-1b4*tc&VDDTQY{>Mh7aO1}$27m5#N!688yQ{98ib~4Yn;+t3 zV;}{4TwQrxd9?ldyldH0PxadPsIl^Tl&H$w9e;9fR;dGIAKb0@-*@{UKUi5O`#I08 zI&RO;_aS}ktH{pHj_o`Ek^GbVJm|WsYqrJ9r7~~-m!C_V?pxgFbj#vL9l`scW!1$) ztyo3*0Epl*>fCG{g>=1MT8U?Ld_`LCU_75!OxYhm@P{l%S)jxDU*LQAA51>H{@+>P FKLNG}l2`x$ literal 0 HcmV?d00001 diff --git a/ArinLogin/ArinLogin.pdb b/ArinLogin/ArinLogin.pdb new file mode 100644 index 0000000000000000000000000000000000000000..099cc085bfabcee843d89abdc65382a69e6221a3 GIT binary patch literal 34304 zcmeI53v`^tb;rN8C1HUDma&a7*sP5L#@N#8VfjHwY)kSZ*w|p%F^Pz@me!VPSrWVJ zhZ>SD!4OkO>QHFIsW~N&mb{vz38XZKG)_WVP7Vnqg%-}C35TQ!v?e?bNt{y}_xGR2 zx8JU{j#ES%V+~y0Z)WbjbLY;?oyRxddRlwcI*$ z_r|IpPrk>KD$gzbd{XfARgJ|-Vcyuo$zy?$#=oY+sQ*`7H7dp@Pc6qZEoFhR_Ah0b zQzQL>$0jfB|K?-W_pJ!-sd>lDA3W4{#a++;^as@k-X0uU|A}!QJLB$~-&MWspR2z% zkNIK3ny+>J^}w=6dp@xCD=)2h{D$Nt@eNQ>hJx-g`e-fId%BLIZv*B;V({p%bXfD7_IiN`pzv+|L})%_dGl2 zr`JAv%j%`4hV@SVT8>ux-?{!%@w@JQ*SCJu_w^6my6>htPkzgs8Z{WL_V0c0OE=fO z>!};tZoMuue(o&?P7Ujw{Iwjd_P^#kKR&wiM=#&;@K@qPpT2d=?I*uwPOTbroo4In z@u^k&Q@6IidGR+d>LCA79r)HS>Zxzqwy=9avaxZ|f~F;l7B5)bu(*D~!p5d0q%7{P zPb{jh-MuvkT9$Tf%B0enj%2!Tpkw*aP-`-q>{vV4o$T*uPwgD)sJ*hSePueiGqq~ca%iYW68nwBtdTg7 z%5DoK?v6@KI*G{wiET?e+WQ7FJBB+p_hoh^`{OH;nZEA$%E5HJ?aH>RS6$Q5*0R2# zv%Wde*wEbB(9oFZSWa!$4sNGPE&T{Jbxkep$XYSGt(dJw%r?ZN22$zm!yT#a!9p=I zO1}})9g2Bf+O!R{rn+UN*QHEqpvOviUAn9rj&Dd0{z0lct9I}2>rQ5A+S=Asrf)m; zc->m=9F7k;`SgNNeosXHsOj(e&6y4=_!)W^(qk6^*k7_;xj~0DL`Dw1Q#ZKTx!!^+S9WWJ_mT(ZmG zciDMcc$QIRJmsapK8VlL&i%w^D@3a_(F#XtWo%D7?UfgEqE%yvR(VlcHHxRbX4)ld zMC%(+c~M$5vZwvqYlrR?tr}l)l^3N|qkGza`T72*M61pqTIEG))p0!S`uCjGDOzw#jeg2t2P4%++M54L5v0=$#-5aei(Cp+t2dzSMuppijvlS>g?dEhHp!DNhrvS- zNPkaTN*9_g)Fmp)+oZwi^6Ch>RG>>cWrVtDspWLoOX5pT2TxP1!whE++Ah?=i8#g< zITTfhwh3E-3fVm@|DCC=8&m1seat+fl`W2tc|E-1^R&f!_;x9a=n)m=ZSe{+Rs*&l z#lrpvU+`8y;r&67Q~oXBDd0Q6v%u%ag4~RtA(#;?0BV6nf#iv=35fBZuN(FV5`e-m z{Hos{g5|&73$B8)I(S=96-)_bw31g!#!XJf%}&M#Lm5j7WY~5ZS&suw#z<+d~;k z3uIUuk1XQ_C*$W%#)}45Q45C97LfdXz(L?X;1NLmeJs4W zEl@`Fy#K%64EV@kB@YKup_^VNtJb*x(ErO9$-(%1jsJP!7Ajy=G9PT%vUKmx{>yu_ z*`cL%b$j;gsom39JDA>Hw`JYhy80zc7S|21OUw)E|9O?u>6^=|K;RM*NACCKkRM)v@viHT%v+pn5;R8bdwday&Tt* zfM|Vw#P>GVH|FPFKhFemegv&Md^j8VJBgd5mflqNj!tdCP5VAW;%oSK(R-TWGQ5AE z80j(*G02HmOLjs2&K{GlX{R84K=VqxT51-gV_c=HpGMPLlWLE6HS=~s`qioI?qt8( zJ6_E^8p$gQHm|5@Syhwm+&VbeU$Ze0wt-)tY*8Tud~g`1V51vRR`m#M<+kriWwMHz zbr1@-!zUh3SISOR$Joh=@^*^m5ALva(6L-T{n$E)SM|)(uvXk_b$ctiZ9uo{$iLOq zLG-eHl)lBaiELkx?%G6VDM)v1BHKsP)h2#U7k-;t;~WwpA!^sD*mWue7TdKmo$5~| zGsYLlz8w_)ApGL>^u_kQh&o9=^SHr!jx<#$(%U&o7qxRfy|kV4Gg4SlrH|UVAblX;#|zRUc8;bO+u5&c6YdPR*%(z;kldi+UT^1BtgqK5Gg)^WXY*Xnaon&NSt&ogb6 z?M$ZA$zhG^{J1HiDH!|eTXfN2F7^H}JWD80^-w)AM?u-e_V)f_q83$z4HlWd=V0%D zbFzY~Q^}r|jhu20Y*(hrY@)mg@QKIMm9q7uh^?0!e(O)8=`Gk)ept4SrbmnRHqYlD z+rRy|eFZtI0XwJ1!U3iB@N01nR&uh{&tLpaP9`{yIJOSX2bZ%WkKqL>SzVUneZ4$8 zPsPIdEh>+7e1W_Rh+mAnxRE#2$y*W1>!5HuC&j|~3>|_EQi{NtfRQ&JEd6T1(ytDD z5jX*UJGdUKeRd+`od~2L4YlW#$fpxg3%E1z7Ta4PHiE2QSOP6TmCLXMtP5Q^2j@a&{_JSg(pz zRaNj1_H6-H@mvEw54ZrB3Dg^VHK0uuC95r}f;cb-xDXKiWMG=J>)GbHGO)Ou7FU}s zrd&Ip#X`S5o%H#nE385%JV^jjs3d7vR@J$wV&d$-&Szcem%rxzZ6*Z z!)68c+eTdW+YXlf=mweuAGF4P{b1Q|C%BxEa;*Kfk~Vtw(-^mNQOwLs6fHj! zj`2bCko|_hvKw_VV;pyA#`tb9<3896mfuppTjt{GXY`pIeZlPiv6b2XUkARPboCq2 z-wu8s@h8FW2S4M|p9Sam|Cit!z^9|g2f$~5{|KxxEB@(V`eZH+-Upryz6m@Rj6ccM zfj33DZodtb$r2bmTY^L#EJjT_Yb`FY# zbC}Lp(A9)LK_^rTpvz4J~9kfd7=10Ps2BA>cWH;Tpt&#XvhS z7Jj=0${_K3(0gPI^E184dgb|b zXEd)!MTTtQJA&Tv;xy|C`@mn;n-$;mb!;2xR)4bAvvu5$0zL4t1_?Y}aUK0x1^x?l zY>0|dzUmpxPYralcuysn^RT6@XEc8&7Vve9rVsTe`v$V9y;*0a;ySL?;2}s~ADG)J z&ZuzXjFD<^J-5cqwq6I9}c{|{xPX-4ZueV8*S7$KZCc=IUA9i*z z0|XfgGqKBk-Y)ONXQn#CO{2=}h37dyJf5zUU8a_>i`V59WOM=6XU9TcPw`qyn{XN~ zLpId>uDO`J9PP~<9poCptPygotAjJZ<-u$>munthZou#RSTj1G6ASl_$PW7iXGb@> zF=y7m=zfFBIS08~>uH~Y{p`d&_ zK1VKpxhsDq@}w8zId>-b3esnTHxNfBv;RRCv%gXKn@ss0;2z?dOHyFzrF8kE zZN%U0;>b4p3-&TWAL-@nV5_K^-EZmr+DzAHE-|>0U8L55c7L_NrA-R!q<(4peawsj zqU70g3O!#(8LCqnTnWyC@ioCNFzp)b0hd#L6|Gol`pX*lCx&ZH-3w4)Dh&E@fH~l! zzUw%_22cbGU^vT&_^qFT86k9q_XiA1BR}-#%C{H|!^|3?9*Yn&R@k4QR`-{D_#aE&Mt1A*VwenLZ%D z;`2m|4lOK-n4~(_3}mv&fo`5mpO^^WgFqZQPg|^uKdYy0LtRD?XVz6JD^FMY%+kMS zXm{f=+JEu!72orExAtX*1~Y|PL*cFo`j zSpDbru-}j?>jE6_|!cQ1I%8iW6ka2M+L;lG2yI2tCSs^<2Gggg^N-$%} z%w4oa!1;|iYvcST$9^i92-X}}1)c>y6FiX@KTG^P7-ujeurUekf&1+}A}Kj+fe3R>s;fd8xbcY1)4yPfyP{to)O0AeXM`@v(aPE{&aUK+COT&ojF_a>yByRx`X#%?y|mb2GOYb@-)Y; zm$c4lg(ePR9Q+H{u3Dd}ee=AmEBNGwq_B^wullw6=UhM09O?sm#fmr!+_0at?CQ_% zN{8#@`S5%S5Ra#etZn!L$DSoh9{d0N+R%ydW5w$*Me`Uz`#m4x=y0jmflmTDi*)!R zanzmuDag5;4u$H*ktR;%q0@hYBV>d(;tnU^fNA_lp#~0W$3VVlDYoh#m!qznw z+DfLAUJ9J67#WP)9H!HnlDbGYtr7F<3EkgUm<}ZHDeXW%uphVw&>fwzaPnDTr1>8| z5Qf=|DcxBy0r2TwB?QLo8%M4 zt8-NOCfvL8E7mvp^@_f;QIOw!93P_d@iOM6xLI|Ytg%0Dpao=pf9~^=E2k+^9%siD z|3Tc0fAv2OuKcl&$kYcV<1ipTPaElj<}A>kLD9FvJ{T3{*C5gS&B^{ zg{YZ-_v(Rgh1R#lHin)a-oLXt$Bh242Wm5&A1S;CS*mX*SnHc^u-?OTfpu124a_p< zEcx|-u@5vFw~HC8TYw>8-`KdtA}3E!Kk)OhfUG>$A8BQg&+Is>*Dcr zk#WI?fcBlN1ah_(j{S(3aF3yJqdsZnj6AQjx_PC|%_}RzdBuLWRXne#KOdw|J}}lV zvBa@Kzv(-pvhHQ=3H80lxy-*B+iU0;!fpH!_V?OpLleKryN!{z^tlY5h^-`_j_kN9*)|AM2}x53h5lPj;@;U!Lf z%;AMj-nSk76OK;2f+en;`yJg4j_+(P5 z<1YU$Cnx6WBRo!nszmVlkR21Ghtd&gupuC_%qE$rG9$ zrGn=#D?#P+;V+P1N}kf^1|ujdZY!Zc9Yv($NP%>9hm!dt@dWW>Qw!y5hW24n5YH8; zql}STGiP}mvXRJNy`#~-paw_)^4qI{cAyL3oYI`1>;oSF4gx;`UIJbN^xjnWWaGem zU@_1NXicX3oxMO7$N{$j9|b-Md=YpMco=vbcm_BO909a{ngpB==q$4dSO%;GdVnF| zdSE|r2XGIdv#bYzhk(a`r-A2yR{W>84MZ_;jz6(oZvUS@D~=e0?m9<*lb2KW64rAIqD6LFMaV^Bm8%JdfU8ofZ_n)bczw z&+_O#zi%UzKY{w#Uu`JVYl0hV4a{j?uYI)X1XCw}I-KXRd9DoRDepH_Mw#KE??es; zy>2$&@+GK`Zx`*;%ZhAm(_G!Dhu2FoDoq*rQ-i4dN?#Y|!m;qXSwM6Ap2~WzWXaya zhtCTxC_A6$Pcd#D1m^R6NSQ9^y@1XDIH^2j5P$5y4ix?Ofqahe)Ifblp&iiU^gF*~ z)|N^uc;~%tI9yCNB@!#@o15@zHXOf<>R=z^Lt%&lRK}4zN|xb%y)am~ym4VuTMH8t z;rQ~W1P@>fg}Ia?`HxloEIcMFs)LiyC6DOxv$3@yv7~iLi;?o%%9|dvs}O?L#Cm-A z(45JNE0id&y_aj5JsXqTQtP+s=NZvscVAB`-BlkfY;0Y$BGH2XQaFBHCkK<}#GiYg9)UteqPWo&(zWlR;mzV<;be~#v>m51uoHqy)=LWYKP4Z)B^^p~NJzzpnKk#MH?n9|`b~tElU0L6@ywOx=!B=ZvmW~Ri zTU78@c}kz>Qa!DrdX{VTdxhe>*5l-9%$MTpDVew1+-vn6eq8YDO^})p3wE2k-V(8 zUc3421wY`*^aX_rF+6B1#^>Ft3B`Fk$(!aHr#MgF^2;^~#d-Qpy;PpQ!EP=gQ{N76 zup*0O9zCk>i>`5b<-w-UxJT-K^r*f=)OnFYah|^4TVu11$shbVg&gmHe422j(MoRv$I~X|>@`kfO{ZIhh5vck9;;6c0bc=h zE+;tQpM!o~zi*rWrRCQpCj5!y*Ci$Lw;hM#rFR9xLtFT;({92 zhDoLq*k_;nzsAS=_dkC@7pz;`H?Tv$j~v+FX$$Hy>F&B-78qXszX1hhM*8Jw zIpHaQ2H`*zp4J7eTQxB&We%WqvL=5`03Two=tIlRFlmwTWk7i~q@M}?2I*B`z0j2W z&48ak{vZD_U47>g2X0}W*JkVM=;SwDS5V*kP=Sud@L)iA*lD$+R+~ zOf9p@#4^9uep**){?&b&>45gDS~Q;rXm6`J>$@I(-x>#I19N~2fg0c~z(v5tfa-P$ zFb}vCkp2sRT0q~HCIGE18UT((%sROl%+WeuC|g^Gi+$q1Z(;fGn?hsy{GVFje*m*H BVSNAq literal 0 HcmV?d00001 diff --git a/ArinLogin/ArinLogin.sln b/ArinLogin/ArinLogin.sln new file mode 100644 index 0000000..17f2b06 --- /dev/null +++ b/ArinLogin/ArinLogin.sln @@ -0,0 +1,20 @@ + +Microsoft Visual Studio Solution File, Format Version 10.00 +# Visual Studio 2008 +Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "ArinLogin", "ArinLogin.vbproj", "{8B6E4D7F-B484-471A-A419-2FE3451D26A3}" +EndProject +Global + GlobalSection(SolutionConfigurationPlatforms) = preSolution + Debug|Any CPU = Debug|Any CPU + Release|Any CPU = Release|Any CPU + EndGlobalSection + GlobalSection(ProjectConfigurationPlatforms) = postSolution + {8B6E4D7F-B484-471A-A419-2FE3451D26A3}.Debug|Any CPU.ActiveCfg = Debug|Any CPU + {8B6E4D7F-B484-471A-A419-2FE3451D26A3}.Debug|Any CPU.Build.0 = Debug|Any CPU + {8B6E4D7F-B484-471A-A419-2FE3451D26A3}.Release|Any CPU.ActiveCfg = Release|Any CPU + {8B6E4D7F-B484-471A-A419-2FE3451D26A3}.Release|Any CPU.Build.0 = Release|Any CPU + EndGlobalSection + GlobalSection(SolutionProperties) = preSolution + HideSolutionNode = FALSE + EndGlobalSection +EndGlobal diff --git a/ArinLogin/ArinLogin.vbproj b/ArinLogin/ArinLogin.vbproj new file mode 100644 index 0000000..7bc58ee --- /dev/null +++ b/ArinLogin/ArinLogin.vbproj @@ -0,0 +1,98 @@ + + + + Debug + AnyCPU + 9.0.30729 + 2.0 + {8B6E4D7F-B484-471A-A419-2FE3451D26A3} + Library + ArinLogin + ArinLogin + Windows + + + + + 3.5 + v4.0 + + + + true + full + true + true + bin\Debug\ + ArinLogin.xml + 42016,41999,42017,42018,42019,42032,42036,42020,42021,42022,42353,42354,42355 + + + pdbonly + false + true + true + bin\Debug\ + ArinLogin.xml + 42016,41999,42017,42018,42019,42032,42036,42020,42021,42022,42353,42354,42355 + + + + + + + + + + + + + + + + + + + + True + Application.myapp + + + True + True + Resources.resx + + + True + Settings.settings + True + + + + + VbMyResourcesResXFileCodeGenerator + Resources.Designer.vb + My.Resources + Designer + + + + + MyApplicationCodeGenerator + Application.Designer.vb + + + SettingsSingleFileGenerator + My + Settings.Designer.vb + + + + + \ No newline at end of file diff --git a/ArinLogin/Class1.vb b/ArinLogin/Class1.vb new file mode 100644 index 0000000..5d941e3 --- /dev/null +++ b/ArinLogin/Class1.vb @@ -0,0 +1,156 @@ +Public Class ArinLOgin + + Public Structure User_Info + Dim id As String + Dim name As String + Dim Pass As String + Dim authip As String + Dim authmac As String + Dim authtype As String + Dim Exist As Boolean + End Structure + + Public Structure sVersionInfo + Dim Ver As String '//버젼 + Dim Desc As String '//버젼설명 + Dim Link As String '//링크주소 + End Structure + + Dim CSFile As String + + ''' + ''' 연결문자열이들어있는 파일명을 입력하세요 + ''' + ''' + ''' + Public Sub New(ByVal p_file As String) + CSFile = p_file + End Sub + + Public Sub New() + CSFile = My.Application.Info.DirectoryPath & "\login.dat" + End Sub + + + ''' + ''' 검색테이블,id,암호를 입력한후 부울값을 반환받는다 True 라면 존재한다 + ''' + ''' + ''' + ''' + ''' + ''' + Public Function Check_user(ByVal Table_Name As String, ByVal userid As String, ByVal userpass As String) As User_Info + Dim Cs As String = ReadCString() + + Dim Cn As New SqlClient.SqlConnection(Cs) + Dim Cmd As New SqlClient.SqlCommand("select isnull(username,'') ,isnull(authip,''),isnull(authmac,''),isnull(authtype,'') from " & Table_Name & " where userid=@id and userpass=@pass", Cn) + Cmd.Parameters.Add("id", SqlDbType.VarChar).Value = userid + Cmd.Parameters.Add("pass", SqlDbType.VarChar).Value = userpass + + Dim Retval As New User_Info + Retval.id = userid + Retval.Pass = userpass + Retval.Exist = False + + If Cn.State <> ConnectionState.Open Then Cn.Open() + Dim Da As SqlClient.SqlDataReader = Cmd.ExecuteReader + While Da.Read + Retval.name = Da(0) + Retval.authip = Da(1) + Retval.authmac = Da(2) + Retval.authtype = Da(3) + End While + Da.Close() + Cmd.Dispose() + Cn.Close() + Return Retval + End Function + + '//게스트체크 + Public Function Check_guest() As String + Dim ok As String = "" + Try + Dim Cs As String = ReadCString() + Dim Cn As New SqlClient.SqlConnection(Cs) + Dim Cmd As New SqlClient.SqlCommand("select isnull(ok,'') from tbl_guest", Cn) + If Cn.State <> ConnectionState.Open Then Cn.Open() + Dim Da As SqlClient.SqlDataReader = Cmd.ExecuteReader + While Da.Read + ok = Da(0).ToString + End While + Da.Close() + Cmd.Dispose() + Cn.Close() + Catch ex As Exception + + End Try + Return ok + End Function + + Public Function Check_guest_release() As String + Dim ok As String = "" + Try + Dim Cs As String = ReadCString() + Dim Cn As New SqlClient.SqlConnection(Cs) + Dim Cmd As New SqlClient.SqlCommand("select isnull(okrelease,'') from tbl_guest", Cn) + If Cn.State <> ConnectionState.Open Then Cn.Open() + Dim Da As SqlClient.SqlDataReader = Cmd.ExecuteReader + While Da.Read + ok = Da(0).ToString + End While + Da.Close() + Cmd.Dispose() + Cn.Close() + Catch ex As Exception + + End Try + Return ok + End Function + + Public Function Get_LastVersion(ByVal gubun As String) As sVersionInfo + Dim Cs As String = ReadCString() + + Dim Cn As New SqlClient.SqlConnection(Cs) + Dim Cmd As New SqlClient.SqlCommand("select isnull(max(version),'0') from eco_version where gubun ='" & gubun & "'", Cn) + + + Dim Retval As New sVersionInfo + + If Cn.State <> ConnectionState.Open Then Cn.Open() + Retval.Ver = Cmd.ExecuteScalar + Retval.Desc = "" + Retval.Link = "" + If Retval.Ver <> "0" Then + Cmd.CommandText = "select isnull(bigo,''),isnull(link,'') from eco_version where version='" & Retval.Ver & "' and gubun='" & gubun & "'" + Dim Da As SqlClient.SqlDataReader = Cmd.ExecuteReader + While Da.Read + Retval.Desc = Da(0) + Retval.Link = Da(1) + End While + Da.Close() + End If + Cmd.Dispose() + Cn.Close() + Return Retval + End Function + + ''' + ''' 폴더내의 연결문자열 정보를 가지고 연결한다 + ''' + ''' + ''' + Public Function ReadCString() As String + Dim A As New EnDec("ENDECPASSWORDKEY") + Dim Cs As String = "" + If System.IO.File.Exists(CSFile) = False Then + MsgBox("연결파일이 존재하지않습니다" & vbCrLf & "로그인기능을 이용할 수 없습니다", MsgBoxStyle.Critical, "확인") + Return "" + End If + ' Cs = A.Read_STring(CSFile) + Return A.Read_STring(CSFile) + End Function + + + +End Class diff --git a/ArinLogin/EnDec.vb b/ArinLogin/EnDec.vb new file mode 100644 index 0000000..d875d38 --- /dev/null +++ b/ArinLogin/EnDec.vb @@ -0,0 +1,122 @@ +Imports System.Security.Cryptography + +Public Class EnDec + + + Private TripleDes As New TripleDESCryptoServiceProvider + Sub New(ByVal key As String) + ' Initialize the crypto provider. + TripleDes.Key = TruncateHash(key, TripleDes.KeySize \ 8) + TripleDes.IV = TruncateHash("", TripleDes.BlockSize \ 8) + End Sub + + Private Function TruncateHash( _ + ByVal key As String, _ + ByVal length As Integer) _ + As Byte() + + Dim sha1 As New SHA1CryptoServiceProvider + + ' Hash the key. + Dim keyBytes() As Byte = _ + System.Text.Encoding.Unicode.GetBytes(key) + Dim hash() As Byte = sha1.ComputeHash(keyBytes) + + ' Truncate or pad the hash. + ReDim Preserve hash(length - 1) + Return hash + End Function + + ''' + ''' 문자열의 암호화 + ''' + ''' + ''' + ''' + Public Function EncryptData( _ + ByVal plaintext As String) _ + As String + + ' Convert the plaintext string to a byte array. + Dim plaintextBytes() As Byte = _ + System.Text.Encoding.Unicode.GetBytes(plaintext) + + ' Create the stream. + Dim ms As New System.IO.MemoryStream + ' Create the encoder to write to the stream. + Dim encStream As New CryptoStream(ms, _ + TripleDes.CreateEncryptor(), _ + System.Security.Cryptography.CryptoStreamMode.Write) + + ' Use the crypto stream to write the byte array to the stream. + encStream.Write(plaintextBytes, 0, plaintextBytes.Length) + encStream.FlushFinalBlock() + + ' Convert the encrypted stream to a printable string. + Return Convert.ToBase64String(ms.ToArray) + End Function + + ''' + ''' 복호화' + ''' + ''' + ''' + ''' + Public Function DecryptData( _ + ByVal encryptedtext As String) _ + As String + + ' Convert the encrypted text string to a byte array. + Dim encryptedBytes() As Byte = Convert.FromBase64String(encryptedtext) + + ' Create the stream. + Dim ms As New System.IO.MemoryStream + ' Create the decoder to write to the stream. + Dim decStream As New CryptoStream(ms, _ + TripleDes.CreateDecryptor(), _ + System.Security.Cryptography.CryptoStreamMode.Write) + + ' Use the crypto stream to write the byte array to the stream. + decStream.Write(encryptedBytes, 0, encryptedBytes.Length) + decStream.FlushFinalBlock() + + ' Convert the plaintext stream to a string. + Return System.Text.Encoding.Unicode.GetString(ms.ToArray) + End Function + + ''' + ''' 파일로부터 문자열을 읽어옵니다. + ''' + ''' + ''' + Public Function Read_STring(ByVal Filename As String) As String + Dim cipherText As String = My.Computer.FileSystem.ReadAllText(Filename) + + ' DecryptData throws if the wrong password is used. + Try + Dim plainText As String = DecryptData(cipherText) + Return plainText + MsgBox("해독값은? " & plainText) + Catch ex As System.Security.Cryptography.CryptographicException + Return "" + MsgBox("암호화키가 일치하지않거나 기타 오류입니다") + End Try + + End Function + + ''' + ''' 파일에 해당 문자열을 기록합니다. + ''' + ''' + ''' + ''' + Public Sub Write_String(ByVal Filename As String, ByVal Contents As String) + Dim cipherText As String = EncryptData(Contents) + + MsgBox("암호화된값은? " & cipherText) + My.Computer.FileSystem.WriteAllText(Filename, cipherText, False) + + End Sub + + +End Class diff --git a/ArinLogin/My Project/Application.Designer.vb b/ArinLogin/My Project/Application.Designer.vb new file mode 100644 index 0000000..501d5bf --- /dev/null +++ b/ArinLogin/My Project/Application.Designer.vb @@ -0,0 +1,13 @@ +'------------------------------------------------------------------------------ +' +' 이 코드는 도구를 사용하여 생성되었습니다. +' 런타임 버전:4.0.30319.18051 +' +' 파일 내용을 변경하면 잘못된 동작이 발생할 수 있으며, 코드를 다시 생성하면 +' 이러한 변경 내용이 손실됩니다. +' +'------------------------------------------------------------------------------ + +Option Strict On +Option Explicit On + diff --git a/ArinLogin/My Project/Application.myapp b/ArinLogin/My Project/Application.myapp new file mode 100644 index 0000000..758895d --- /dev/null +++ b/ArinLogin/My Project/Application.myapp @@ -0,0 +1,10 @@ + + + false + false + 0 + true + 0 + 1 + true + diff --git a/ArinLogin/My Project/AssemblyInfo.vb b/ArinLogin/My Project/AssemblyInfo.vb new file mode 100644 index 0000000..d6df4bd --- /dev/null +++ b/ArinLogin/My Project/AssemblyInfo.vb @@ -0,0 +1,35 @@ +Imports System +Imports System.Reflection +Imports System.Runtime.InteropServices + +' 어셈블리의 일반 정보는 다음 특성 집합을 통해 제어됩니다. +' 어셈블리와 관련된 정보를 수정하려면 +' 이 특성 값을 변경하십시오. + +' 어셈블리 특성 값을 검토합니다. + + + + + + + + + + +'이 프로젝트가 COM에 노출되는 경우 다음 GUID는 typelib의 ID를 나타냅니다. + + +' 어셈블리의 버전 정보는 다음 네 가지 값으로 구성됩니다. +' +' 주 버전 +' 부 버전 +' 빌드 번호 +' 수정 버전 +' +' 모든 값을 지정하거나 아래와 같이 '*'를 사용하여 빌드 번호 및 수정 버전이 자동으로 +' 지정되도록 할 수 있습니다. +' + + + diff --git a/ArinLogin/My Project/Resources.Designer.vb b/ArinLogin/My Project/Resources.Designer.vb new file mode 100644 index 0000000..99655a9 --- /dev/null +++ b/ArinLogin/My Project/Resources.Designer.vb @@ -0,0 +1,63 @@ +'------------------------------------------------------------------------------ +' +' 이 코드는 도구를 사용하여 생성되었습니다. +' 런타임 버전:4.0.30319.18051 +' +' 파일 내용을 변경하면 잘못된 동작이 발생할 수 있으며, 코드를 다시 생성하면 +' 이러한 변경 내용이 손실됩니다. +' +'------------------------------------------------------------------------------ + +Option Strict On +Option Explicit On + +Imports System + +Namespace My.Resources + + '이 클래스는 ResGen 또는 Visual Studio와 같은 도구를 통해 StronglyTypedResourceBuilder + '클래스에서 자동으로 생성되었습니다. + '멤버를 추가하거나 제거하려면 .ResX 파일을 편집한 다음 /str 옵션을 사용하여 ResGen을 + '다시 실행하거나 VS 프로젝트를 다시 빌드하십시오. + ''' + ''' 지역화된 문자열 등을 찾기 위한 강력한 형식의 리소스 클래스입니다. + ''' + _ + Friend Module Resources + + Private resourceMan As Global.System.Resources.ResourceManager + + Private resourceCulture As Global.System.Globalization.CultureInfo + + ''' + ''' 이 클래스에서 사용하는 캐시된 ResourceManager 인스턴스를 반환합니다. + ''' + _ + Friend ReadOnly Property ResourceManager() As Global.System.Resources.ResourceManager + Get + If Object.ReferenceEquals(resourceMan, Nothing) Then + Dim temp As Global.System.Resources.ResourceManager = New Global.System.Resources.ResourceManager("ArinLogin.Resources", GetType(Resources).Assembly) + resourceMan = temp + End If + Return resourceMan + End Get + End Property + + ''' + ''' 이 강력한 형식의 리소스 클래스를 사용하여 모든 리소스 조회에 대한 현재 스레드의 CurrentUICulture + ''' 속성을 재정의합니다. + ''' + _ + Friend Property Culture() As Global.System.Globalization.CultureInfo + Get + Return resourceCulture + End Get + Set + resourceCulture = value + End Set + End Property + End Module +End Namespace diff --git a/ArinLogin/My Project/Resources.resx b/ArinLogin/My Project/Resources.resx new file mode 100644 index 0000000..af7dbeb --- /dev/null +++ b/ArinLogin/My Project/Resources.resx @@ -0,0 +1,117 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + \ No newline at end of file diff --git a/ArinLogin/My Project/Settings.Designer.vb b/ArinLogin/My Project/Settings.Designer.vb new file mode 100644 index 0000000..a644643 --- /dev/null +++ b/ArinLogin/My Project/Settings.Designer.vb @@ -0,0 +1,73 @@ +'------------------------------------------------------------------------------ +' +' 이 코드는 도구를 사용하여 생성되었습니다. +' 런타임 버전:4.0.30319.18051 +' +' 파일 내용을 변경하면 잘못된 동작이 발생할 수 있으며, 코드를 다시 생성하면 +' 이러한 변경 내용이 손실됩니다. +' +'------------------------------------------------------------------------------ + +Option Strict On +Option Explicit On + + +Namespace My + + _ + Partial Friend NotInheritable Class MySettings + Inherits Global.System.Configuration.ApplicationSettingsBase + + Private Shared defaultInstance As MySettings = CType(Global.System.Configuration.ApplicationSettingsBase.Synchronized(New MySettings()),MySettings) + +#Region "My.Settings 자동 저장 기능" +#If _MyType = "WindowsForms" Then + Private Shared addedHandler As Boolean + + Private Shared addedHandlerLockObject As New Object + + _ + Private Shared Sub AutoSaveSettings(ByVal sender As Global.System.Object, ByVal e As Global.System.EventArgs) + If My.Application.SaveMySettingsOnExit Then + My.Settings.Save() + End If + End Sub +#End If +#End Region + + Public Shared ReadOnly Property [Default]() As MySettings + Get + +#If _MyType = "WindowsForms" Then + If Not addedHandler Then + SyncLock addedHandlerLockObject + If Not addedHandler Then + AddHandler My.Application.Shutdown, AddressOf AutoSaveSettings + addedHandler = True + End If + End SyncLock + End If +#End If + Return defaultInstance + End Get + End Property + End Class +End Namespace + +Namespace My + + _ + Friend Module MySettingsProperty + + _ + Friend ReadOnly Property Settings() As Global.ArinLogin.My.MySettings + Get + Return Global.ArinLogin.My.MySettings.Default + End Get + End Property + End Module +End Namespace diff --git a/ArinLogin/My Project/Settings.settings b/ArinLogin/My Project/Settings.settings new file mode 100644 index 0000000..85b890b --- /dev/null +++ b/ArinLogin/My Project/Settings.settings @@ -0,0 +1,7 @@ + + + + + + + diff --git a/ArinLogin/Test/Form1.Designer.vb b/ArinLogin/Test/Form1.Designer.vb new file mode 100644 index 0000000..fe11733 --- /dev/null +++ b/ArinLogin/Test/Form1.Designer.vb @@ -0,0 +1,61 @@ + _ +Partial Class Form1 + Inherits System.Windows.Forms.Form + + 'Form은 Dispose를 재정의하여 구성 요소 목록을 정리합니다. + _ + Protected Overrides Sub Dispose(ByVal disposing As Boolean) + Try + If disposing AndAlso components IsNot Nothing Then + components.Dispose() + End If + Finally + MyBase.Dispose(disposing) + End Try + End Sub + + 'Windows Form 디자이너에 필요합니다. + Private components As System.ComponentModel.IContainer + + '참고: 다음 프로시저는 Windows Form 디자이너에 필요합니다. + '수정하려면 Windows Form 디자이너를 사용하십시오. + '코드 편집기를 사용하여 수정하지 마십시오. + _ + Private Sub InitializeComponent() + Me.TextBox1 = New System.Windows.Forms.TextBox + Me.Button1 = New System.Windows.Forms.Button + Me.SuspendLayout() + ' + 'TextBox1 + ' + Me.TextBox1.Location = New System.Drawing.Point(226, 17) + Me.TextBox1.Name = "TextBox1" + Me.TextBox1.Size = New System.Drawing.Size(380, 21) + Me.TextBox1.TabIndex = 0 + ' + 'Button1 + ' + Me.Button1.Location = New System.Drawing.Point(309, 89) + Me.Button1.Name = "Button1" + Me.Button1.Size = New System.Drawing.Size(113, 50) + Me.Button1.TabIndex = 1 + Me.Button1.Text = "Button1" + Me.Button1.UseVisualStyleBackColor = True + ' + 'Form1 + ' + Me.AutoScaleDimensions = New System.Drawing.SizeF(7.0!, 12.0!) + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font + Me.ClientSize = New System.Drawing.Size(901, 246) + Me.Controls.Add(Me.Button1) + Me.Controls.Add(Me.TextBox1) + Me.Name = "Form1" + Me.Text = "Form1" + Me.ResumeLayout(False) + Me.PerformLayout() + + End Sub + Friend WithEvents TextBox1 As System.Windows.Forms.TextBox + Friend WithEvents Button1 As System.Windows.Forms.Button + +End Class diff --git a/ArinLogin/Test/Form1.resx b/ArinLogin/Test/Form1.resx new file mode 100644 index 0000000..19dc0dd --- /dev/null +++ b/ArinLogin/Test/Form1.resx @@ -0,0 +1,120 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + \ No newline at end of file diff --git a/ArinLogin/Test/Form1.vb b/ArinLogin/Test/Form1.vb new file mode 100644 index 0000000..dd8f840 --- /dev/null +++ b/ArinLogin/Test/Form1.vb @@ -0,0 +1,15 @@ +Public Class Form1 + + Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load + Dim L As New ArinLogin.ArinLOgin + Me.TextBox1.Text = L.ReadCString + + + + End Sub + + Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click + Dim C As New ArinLogin.EnDec("ENDECPASSWORDKEY") + C.Write_String("c:\login.dat", Me.TextBox1.Text) + End Sub +End Class diff --git a/ArinLogin/Test/My Project/Application.Designer.vb b/ArinLogin/Test/My Project/Application.Designer.vb new file mode 100644 index 0000000..4886c20 --- /dev/null +++ b/ArinLogin/Test/My Project/Application.Designer.vb @@ -0,0 +1,38 @@ +'------------------------------------------------------------------------------ +' +' This code was generated by a tool. +' Runtime Version:2.0.50727.4927 +' +' Changes to this file may cause incorrect behavior and will be lost if +' the code is regenerated. +' +'------------------------------------------------------------------------------ + +Option Strict On +Option Explicit On + + +Namespace My + + 'NOTE: This file is auto-generated; do not modify it directly. To make changes, + ' or if you encounter build errors in this file, go to the Project Designer + ' (go to Project Properties or double-click the My Project node in + ' Solution Explorer), and make changes on the Application tab. + ' + Partial Friend Class MyApplication + + _ + Public Sub New() + MyBase.New(Global.Microsoft.VisualBasic.ApplicationServices.AuthenticationMode.Windows) + Me.IsSingleInstance = false + Me.EnableVisualStyles = true + Me.SaveMySettingsOnExit = true + Me.ShutDownStyle = Global.Microsoft.VisualBasic.ApplicationServices.ShutdownMode.AfterMainFormCloses + End Sub + + _ + Protected Overrides Sub OnCreateMainForm() + Me.MainForm = Global.Test.Form1 + End Sub + End Class +End Namespace diff --git a/ArinLogin/Test/My Project/Application.myapp b/ArinLogin/Test/My Project/Application.myapp new file mode 100644 index 0000000..1243847 --- /dev/null +++ b/ArinLogin/Test/My Project/Application.myapp @@ -0,0 +1,11 @@ + + + true + Form1 + false + 0 + true + 0 + 0 + true + diff --git a/ArinLogin/Test/My Project/AssemblyInfo.vb b/ArinLogin/Test/My Project/AssemblyInfo.vb new file mode 100644 index 0000000..68e5de9 --- /dev/null +++ b/ArinLogin/Test/My Project/AssemblyInfo.vb @@ -0,0 +1,35 @@ +Imports System +Imports System.Reflection +Imports System.Runtime.InteropServices + +' 어셈블리의 일반 정보는 다음 특성 집합을 통해 제어됩니다. +' 어셈블리와 관련된 정보를 수정하려면 +' 이 특성 값을 변경하십시오. + +' 어셈블리 특성 값을 검토합니다. + + + + + + + + + + +'이 프로젝트가 COM에 노출되는 경우 다음 GUID는 typelib의 ID를 나타냅니다. + + +' 어셈블리의 버전 정보는 다음 네 가지 값으로 구성됩니다. +' +' 주 버전 +' 부 버전 +' 빌드 번호 +' 수정 버전 +' +' 모든 값을 지정하거나 아래와 같이 '*'를 사용하여 빌드 번호 및 수정 버전이 자동으로 +' 지정되도록 할 수 있습니다. +' + + + diff --git a/ArinLogin/Test/My Project/Resources.Designer.vb b/ArinLogin/Test/My Project/Resources.Designer.vb new file mode 100644 index 0000000..7c51c5c --- /dev/null +++ b/ArinLogin/Test/My Project/Resources.Designer.vb @@ -0,0 +1,62 @@ +'------------------------------------------------------------------------------ +' +' This code was generated by a tool. +' Runtime Version:2.0.50727.4927 +' +' Changes to this file may cause incorrect behavior and will be lost if +' the code is regenerated. +' +'------------------------------------------------------------------------------ + +Option Strict On +Option Explicit On + + +Namespace My.Resources + + 'This class was auto-generated by the StronglyTypedResourceBuilder + 'class via a tool like ResGen or Visual Studio. + 'To add or remove a member, edit your .ResX file then rerun ResGen + 'with the /str option, or rebuild your VS project. + ' + ' A strongly-typed resource class, for looking up localized strings, etc. + ' + _ + Friend Module Resources + + Private resourceMan As Global.System.Resources.ResourceManager + + Private resourceCulture As Global.System.Globalization.CultureInfo + + ' + ' Returns the cached ResourceManager instance used by this class. + ' + _ + Friend ReadOnly Property ResourceManager() As Global.System.Resources.ResourceManager + Get + If Object.ReferenceEquals(resourceMan, Nothing) Then + Dim temp As Global.System.Resources.ResourceManager = New Global.System.Resources.ResourceManager("Test.Resources", GetType(Resources).Assembly) + resourceMan = temp + End If + Return resourceMan + End Get + End Property + + ' + ' Overrides the current thread's CurrentUICulture property for all + ' resource lookups using this strongly typed resource class. + ' + _ + Friend Property Culture() As Global.System.Globalization.CultureInfo + Get + Return resourceCulture + End Get + Set(ByVal value As Global.System.Globalization.CultureInfo) + resourceCulture = value + End Set + End Property + End Module +End Namespace diff --git a/ArinLogin/Test/My Project/Resources.resx b/ArinLogin/Test/My Project/Resources.resx new file mode 100644 index 0000000..af7dbeb --- /dev/null +++ b/ArinLogin/Test/My Project/Resources.resx @@ -0,0 +1,117 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + \ No newline at end of file diff --git a/ArinLogin/Test/My Project/Settings.Designer.vb b/ArinLogin/Test/My Project/Settings.Designer.vb new file mode 100644 index 0000000..5355cae --- /dev/null +++ b/ArinLogin/Test/My Project/Settings.Designer.vb @@ -0,0 +1,73 @@ +'------------------------------------------------------------------------------ +' +' This code was generated by a tool. +' Runtime Version:2.0.50727.4927 +' +' Changes to this file may cause incorrect behavior and will be lost if +' the code is regenerated. +' +'------------------------------------------------------------------------------ + +Option Strict On +Option Explicit On + + +Namespace My + + _ + Partial Friend NotInheritable Class MySettings + Inherits Global.System.Configuration.ApplicationSettingsBase + + Private Shared defaultInstance As MySettings = CType(Global.System.Configuration.ApplicationSettingsBase.Synchronized(New MySettings), MySettings) + +#Region "My.Settings Auto-Save Functionality" +#If _MyType = "WindowsForms" Then + Private Shared addedHandler As Boolean + + Private Shared addedHandlerLockObject As New Object + + _ + Private Shared Sub AutoSaveSettings(ByVal sender As Global.System.Object, ByVal e As Global.System.EventArgs) + If My.Application.SaveMySettingsOnExit Then + My.Settings.Save() + End If + End Sub +#End If +#End Region + + Public Shared ReadOnly Property [Default]() As MySettings + Get + +#If _MyType = "WindowsForms" Then + If Not addedHandler Then + SyncLock addedHandlerLockObject + If Not addedHandler Then + AddHandler My.Application.Shutdown, AddressOf AutoSaveSettings + addedHandler = True + End If + End SyncLock + End If +#End If + Return defaultInstance + End Get + End Property + End Class +End Namespace + +Namespace My + + _ + Friend Module MySettingsProperty + + _ + Friend ReadOnly Property Settings() As Global.Test.My.MySettings + Get + Return Global.Test.My.MySettings.Default + End Get + End Property + End Module +End Namespace diff --git a/ArinLogin/Test/My Project/Settings.settings b/ArinLogin/Test/My Project/Settings.settings new file mode 100644 index 0000000..85b890b --- /dev/null +++ b/ArinLogin/Test/My Project/Settings.settings @@ -0,0 +1,7 @@ + + + + + + + diff --git a/ArinLogin/Test/Test.vbproj b/ArinLogin/Test/Test.vbproj new file mode 100644 index 0000000..5d524ff --- /dev/null +++ b/ArinLogin/Test/Test.vbproj @@ -0,0 +1,128 @@ + + + + Debug + AnyCPU + 9.0.30729 + 2.0 + {3796EE05-55C0-4AC3-9653-9970D5E07755} + WinExe + Test.My.MyApplication + Test + Test + 512 + WindowsForms + v3.5 + On + Binary + Off + On + + + true + full + true + true + bin\Debug\ + Test.xml + 42016,41999,42017,42018,42019,42032,42036,42020,42021,42022 + + + pdbonly + false + true + true + bin\Release\ + Test.xml + 42016,41999,42017,42018,42019,42032,42036,42020,42021,42022 + + + + + + + + + + 3.5 + + + 3.5 + + + 3.5 + + + + + + + + + + + + + + + + + Form + + + Form1.vb + Form + + + + True + Application.myapp + + + True + True + Resources.resx + + + True + Settings.settings + True + + + + + Form1.vb + + + VbMyResourcesResXFileCodeGenerator + Resources.Designer.vb + My.Resources + Designer + + + + + MyApplicationCodeGenerator + Application.Designer.vb + + + SettingsSingleFileGenerator + My + Settings.Designer.vb + + + + + {8B6E4D7F-B484-471A-A419-2FE3451D26A3} + ArinLogin + + + + + \ No newline at end of file diff --git a/ArinLogin/Test/bin/Debug/Test.vshost.exe b/ArinLogin/Test/bin/Debug/Test.vshost.exe new file mode 100644 index 0000000000000000000000000000000000000000..69ed6c0c8c1cf063b077b0f15cbc4b855c47d780 GIT binary patch literal 14328 zcmeG?2Ut_f(wjn;jsl7pnu20Dp%+DvA|OqI*icDAfIvtv2~AM}1-qyqDsq)#!-k3i z3Mh6^z={PMmTMO~cKPQVK;qT=-u?dny?4L&{cdt*cV~BJXJ=>U%2WkusI(t#cb`I0DTbrfS%cW$jr@(n41e>_I1@Blvg6CSz9Af!h8d*ZGvUKfHq&}HHY7kF?XbO$Yj-Wx$Ctdot^ zW(etZm;IHP2DGK>$wS^tDo>YilO&K2R|EiM#8`oE=|F?t=_0X+gClX?T)JWvh^2xH zl+Z<7z7Q(nBExxx!6T#rk5q6$Xrxq@NV?#1g@E%$Mj$Q&gjNIN3PiqJ`UnNmIzR~KeB zTzIis*Q8oIYuX`2vzr&o<=yD@hnA0YW}97-gbj9F_27Pr=G~~1rG?(%!+THU@r;YB z?|Lps85HDxuiGgq^wUi)kH{faIR@@h|K#Fk+2V> z2byZ*7$qVS>fjg{`$(qGND?9uW5Q*ZU`fa5Hkh5I9gdPge1N_nOQTt^HXyE}K$R&tPrq< z_paMnMob&`lTkbOMedAe(?Q z2)LSnXGjN0vgjoNHOWMM0!}24B9B4>=vEf}MxIHQMKuJx19(MbO`!pP48?^ai{=n; z4?vv5P6^_YB$3omZ$tyx;kmOkyfjT`GBJiLL@pO`kP4KkqscH%T>=^a)JA3mWDwAS zfUX4eCg2zXP9PwQfII?DBVaN>4U|Tt7XZ{lYXBOeLV$`OZyc5oa5rL6E~EWuHsw0V zD~HmG>QN1(>BtRvlITbY{SIkO^aNl(^b(*E0f!LK3PwmrPDl@63|bA4iKYXbL_iK& z1nC*57@(M-Fb6e3dJ(z|FdMa!Tu?FeM@{Y00n{nGLFgLDymPhzMPNONn9vj=g-{df z=&mx%PZ%E0=Q^VVagvbC$U`6zB?k(50txctaYRC~FhW8P;fdo}e5NEmoF}Av zK~+%QK#`Ec6^l`Y7dp3!U$G8U*Za#h<_}_yJrcKe=LA;hsSfIxay|o zCX7oK@gk#sQWU}!iGRw2Cy&ql(?V}SgisXA!ntShf2j3M7-C_(2$v(1CE@bcOENJ zfU5>ajNG~G_{d1scT?Jl1H}QQ!?`82<(pFA;s&ZBX{`VRG58>0CW%N%%~O{)5z{2$ zv3W3Xsmbb8=q^6EB7dP^te7iugPwc%{!8jjA1lF0^SELYHk@jF@d3{IHJ0xE*Jv2nu zx^)3m0RIS)s5BCZi~|)J0P5a&Qa-f+8G~<-ick&^k;RPzN* zy!xV;K6k6?&M(T39)5{_nlBanUZMOht!p` zkKImG%Q_*K7-06$Qf0+snWy(28q{ul{_tgZsBf?A!`s%FPG*~L<(l{Zcxkv~vT*3{ zFK10DRXvtFe4yS!4L7b1Ew(n>+Hd0dY%2a{kl!_8>TLC9MMq#tV=|10j3-z!#9IR( z#Hu8uC}qk}UlQv5ZI)?nLQ$MhMCcJhW+Y_XQ)C)sM(eb3v`!;O!!ec^W{;2+3DJ*~ z(0VFM(V^2^`Ft9&=*2V<%%UiP8%~EeI0-2^fD>TJz$`84K%^H45l6re-ozv%!xapL zw>=t6LM9Q8q2b}75}}YU4h`ofg!2+YJ$bO=1LN6z9tV~iT`Y)!@sqktJ0x�U>>S z(81(B<3y}D&~T3=4wo=>ppe2uF(H?4J~2M4LGbJ~gGULUUU%l`zD2IinA*cblQ(lAv;+%C3iTv?24Nv_T zy8XqTlBpn5k0dVfwjkaoTrNGFkNZuqqcA}<7b5iw{5ME|MEI}Zf2MxVEwMrosQ(Xm zydJ)H81I767Qz$6F?iY=y4 zE~-3kQh_H4)Zzg?@+Xw;!NMcKsJnmGh>gnt9worL0lirGaiO&YdV#$Iz$n0qAx{T< z5aOxryM?h)rU5LKBN9_(hh>5m5 zs4G3jKjXz7c8H{JV-11!BB0PC8wcPVgU1pvAhv`b9f1vm2Ol#oWeL$n0Q~c%M)7C; zr9yiWNB~}_L<@XeaVVLPdL&2--vgJxc>lT#=uq1g`sPE7&s`@KF_FWifsZHwU^w)Q zP^Y{Cx@zJxjq}|tKRk!e;GfSOADICEfzVzE6yrhG5~)%DeC|v^+s%NV5a3P>ZSWpx zgs#N{4P4eV)Lq9Cq>K>~Mrar@H{bX5#~J$b`H=@cU76Q6TnIuOpNH@9;s4HX=iJ^ok$jS^+ zp^*E^AS_B&afmF5N=mmQlc)s~vGJId6h;*@p^#7ktw=vr57Zg|1%N8zW(_yexan}l zf0%(3O{$iC(4;{=_sT}ZH2T{3zO;Q`lu>)UAYK19mQK~c(#anSC}a|utcnh!MZ<>8 zS3l?6&Ut#v1ylaUFo_DR#W99pX0nvAR3%NrZ~Hl#DaVY)aB#5ugA+(+=wo`Fm4EJL zG7PW*csWH=r^kH^62gI|YrG^%D1t2urmwB+V23dn7-ok-n5eC6i7_m#7+u-FfunSi zp|n^?GKi8+Qia(iDU#DkBveAKIUIN2>6L#!)Ag&8reKeYN|u;RegAc(Z*j%f-->9? zDPxM(7G;H5#+(}&p4_%Qp+30f)sy^8y{z?fBg&4)OlKQi>ObtJDrv>T++&A^M&#v1 z4P0~9(fm-aed7ln_I#k|Y@cghV(PHvsrQ_bcju~BheY9q8xKm!B z9z)((YkkRsXx_Wc&vVEp`dv6Q)}w4e>LJIc!8!grzigf! zEAcPYX~*ExJ5A}6mPl=BKe#h><=0(} zvoCG#D+(QUs``a|u_0C_n^9jzOVrG`MF#aG6{l^%(l%mgMKHhpNz}AFENxY)+N85_ z&v~MCMq_4a?eSaMak^0SpP#?h{JuOzC!4h^$hzfS42 zv&{1OS@n+h4PLz%mu3sd z{r>kzzVev%nwLQ*YaSfKKGPTq^ZTzf>+9FtpS$q&K^7)QxN7dY=pmF5gQr z)#zAu>4kjOtjbl#x7nHBn|^Og;@yM-bT)d#;q$f&TU|A_*hKe>zGid#q8|0$77uFO zL@RrNpPn+iLa}J^h34Q9o{f5AH^p7kaGaMNzkc)if?rladOQ4A?9?x-@XIRvKd=g6 zSUSbG(^pWWZ&SY>*b(~M>Dq2jqyOLKB7iqwZwUeX0!wfa7?zNQ8z#bIz>*2~3j7RN zP4ZYKLlaZSoep_T#c?cg6r3SSgaU>drh+5oH06T0;juzNc(?DOsQD+pixFnf>AUpp z@m=r(R2qIP3{+`>Zm!@H{9|9CB6;Se$z>i6TdcP;T0WTAcqi6=8nEu9$F%3?JRe?M zd^E;4i2Y^_`KaF&Z@z`GGxt!FQH7FM#q9VS9yMFDR05Bi40%=XK-p-(IalM4>@{a} zJvL_h3|P}xW?^{LXK0G>YHxj~#SUr?H)_n@L^us4S$2FK z*Z4OKnPnxIJ4*K4y0bo+WI-m{P&@Ayv&&cbh^4*5G;vqKgxU*Jl$8hnS4KvTLiz7- zAXIVAHA$onstiVf2VWv(w8mA{PV`R(~I3XFEAy%Sd~fzmpfBx z=@6dBjBPt-`3!v3RP8S*8b3%fIKC|N%QoMfB;@z#)DxZSyyGfGDX+++iQDwWpjD(75o(cfV<^ZBz);_X>C9hMGX9bIi7dwzbY(U)6~ zF7XtW&#(D<8&z4qewXq=O@l7;#4I;^WQ^&w3j3^9IpzAvQH?dJt}zi?sw%3MTAzAF zQA?Tr_I&HeTQk1izPkf>vbakt?go_G7o`lnIQ*Km65EcvJ}ug4L3=1CYuCgo zhs$A$$Ik6*_10;1L3*#Esf)_YD+)KB-qu1ZKZNOK(6p2XR|mauZJmPMU17?bcR23O z>&@GmQb&psRKW9y1{)L9Wn);XNq)qBks|GL%YdEv8&@^#NeF{ug<)WEtia%44sehS zSt~q?N&YPcr)x7s`4fZmPi;-nHN_=ojvV%0+ql)ydWX@3m}~rl28IXymopKL?)dk@)}rF=uHSYYZqyUz&M?MqyCd(KzBnwGO;mF(GZ?g^ofUw&4( zGh0$@bz1WK^Si9VS(FNoj%H_#=3S?zD4(72szOuwb6B)#M*QN69n~2Rwf8PN__j|u zd-5~&TaIl8lNObxijR8SUAZ7JZ0&;`iHGf$SZP^kUSrqq>{}ABI&#NFngceibxEY> zofCR*lmjKM77t~NqYYxbcdaWzB78apwt<-{jZQ!yr zWz75F(W`&gz8pQrT82LG;m=JIzIE+yMAgCir2c%FyWdImvKU7Xtk zds)$!$in=4re+_6vi+N$rN3USFP!l4?aSM}E-aFF?xRgRSG&(+l>ET3 zaSEezUdT5b@Dsea!dw%ln&VF1? z)Xn(qNqK!fM~hjyBk%d;LuU#Kx2-%ieaJlX+LKp5^C>Nd?03987pkkRTKn!)>LxY$ zzBiT`J=j&~>->0^`oJWW!{+-p#GK3;2G-^`ur?Xp)<(;GGhuCH{~)aYptT8xZvey+ z7F_ps`4FAf#+CsF#>U!)(dpjUGQiqkcos|B^lvdYgD?}&UpVN|7r61_qPQZOJJW;a z!Sr{uwDYtc>TYd~4YjfMv|@Bsq-g5*I6~hIqU+B3pBkv;r#H;d5?^?5F*CcCGV_Z2 zhTCQP-dBF99?T@4DqVh~PUOf^v9*2mg~VY-d*eRKSvIYE z?csJ`!u0jGm{iS_aZdYu`)J7Fdjqqtr5xb2F6W1cwmvCX)F+8Mf0h588HS4*w@z5s zm~_&fy~u4zz=;QL4Xz${K3!!zztVA#$2j#gVgDP0z00h%zt*dLsLVVwrSM$P9?$Ux zl@8<5gz^ig^5c8gF0)P8QGUgHgV)T2bqbnKkD!@%=T)y#RndE!=h?jBY0S~BVz2jY z*>gXbX!tCprnX7~@2K-y-+p4>j^HO-Q8x{mHrK|MqcLQHrfl-@cxeOG<3ZSsy_&1A zeBaJVEhE||6n^!2la^aR9Gi999^pg(5v%rFZyTMNRh|EMyOXQiiL==M#r8!`;34zR&(A+&e%5iSqkKwl)?2b^ z@AVF`C!#IhV@W$F+$)_hE;NlMPZ;3BS32^1*9e>GPc|k; zFFL1act7mDlA6YLgD|Zf)%7-)4}DpEc_PVLW_rY)rTH(bZWq=kym-4u&)3gIcS5D- zHs8AKzBwcB4%+#FIU@TMC&gsd=~c&U*L~QDAH@7JP(5}<>f3^DyYtIH{W4H8a{o)` z=$C=|*BU6bXr(m)wa8?f`ZbRMwvjsl}12N-JEC6R#&|lD@@Cmhqn$0oO|HN z=yS7W-an5&xaj1T=AFE_h@?Rg56df_XY6lm+xkUggVF>;GmA4WS3{`%686Q0$NB_c zyYceoq4jf4rrw(EOSa2-Tf0s^L_ca&Y%6Ce*zllcM!F9jPh9+M1~*eh!He zxyeUDuVmVp$JeVo)^|`yN%;C3UogG(sdLt>6P1 z)ga7wYmI(5d*ITTPKPL+WD2gM@y}g||B4GHHCctO3*Fu%{LlwU?Kgkwz3F~yphc$k z(pQ8J8{*-P*A2OTe|Gf4!P8GXs2o3a#*vi3D)ps>EIE?O;y8~b&&9ztBNSwYc2tgG zX6QY0SYA;aqI7d{xl_M$pSEwVuh>1tpr25lH!FrxWa#;fzc)6;u+sCw+}BG~56UgH zJ^WsOp_Xu7eq_V%H{jVVv-cUm^j+kcvK%=Vm)!J&kkPI+bh#On;^U)j4? zBY5$f{3BeSJkx>sVGC8APHJ+KysFOZnBy3*i#`4(_UMsA|GNubwK$}G&@@;ap30G> z=Dx}!yIIWeoPVH$e3kpb=Vl84}-~yQioYR z*Zl=)1sKeC*Jl9=6h<$p%YG_cp!a+Xpu|wYq)U5aMm-Iw3^;DgpE@XXZQbp+ZDuW% z``j%CFM4{#6LXOw(F=~ou>v@;_}Q0Kg@ErmQTXn7LfVMKbvHGgguE)YC7vp+)GDs2 zt10-9vFmBh?bdeLYrTaBA7`(DsKtc@-T`$ctXlszvaS3 z8^w-EP1nn8Gc3)$8?7!ZQ}>Uf-=6xJah<`6KqnmTCl^2a*v~JyyxF1j#cx-1qO6<7 zo4$x&taawIn?_t4Npwn8Enjx{D(#9ApFm}~q@>-)vwJ^!;xu<=iC+7O(<>5}9dC42 z@Y2*D{6LNClM!4!u3B%7sj$>{?2}%X1N9GC*^6Dzl^nPj6tTCzlEUZMGt_>wp7k3z z_jSTaTJwe}XKE0y?_Q2LgUBY~2A(?1!8Dt@{N zA6(coY#Fwe))RkFGUJ_hk7u;$oF4r}_AT2j%u0)tN|ja-*t_8>5^6bMUJS*$KC@_| z%=Y@v?_$Qc=Os;V4l8il(QGj0anQ_D`;@hHl7}2mb&nqYV)NoA<&NTD_4_nl?Mfc0^o)x;bPBZ7-l)e7ge67rAZ6nXdUjF{|1#6P$58oW`KPmL$&B@G9 zq zxaJY + + + + + + + + + + diff --git a/ArinLogin/Test/bin/Debug/login.dat b/ArinLogin/Test/bin/Debug/login.dat new file mode 100644 index 0000000..a9d3df7 --- /dev/null +++ b/ArinLogin/Test/bin/Debug/login.dat @@ -0,0 +1 @@ +p/nkC+coxiKUCrUQpvJf8nM6b8Cy4fBdMuhxzuwW4iNr+pmCqbJVIQheq4yVerAgmdWbTGH8FFJAvTxNfZl0VK4i1oEUZtyLrzhMRRu/HgxoaiQ3AI/xgkyGyzGL7ZPWIAUKUj/eZ2q4JmtDsdPNgisDpo2Bmm96PYioDRIO5cBRhwTR2fbFHwuzSM32+hJ9BhdvUPIQ7FsIAoMpMFPyQk1HZ0l6S2aWR//NgNZntnyLSMm4lJXhTL6gxK7SQG1w \ No newline at end of file diff --git a/ArinLogin/Test/bin/Release/ArinLogin.dll b/ArinLogin/Test/bin/Release/ArinLogin.dll new file mode 100644 index 0000000000000000000000000000000000000000..d03ffb27ed4ce9adfc575581d13990236cd2a5e2 GIT binary patch literal 14336 zcmeHO4RjpUb-r(A_E+-SyYg==n=!V7WaLFQvN05cWJ$J!CG1$jK;l+f?T)35S3B#O zS&#@e>zFifa1+xugak-U2niIE7=jNbB&i741`;?<2#}vseooSp5KI$VXlWCm-+eQ) zyRx0X_Vl!;<;ipB-TUsl@4ox)yYFY#y&v35DiLXT-hG$o5Z;_xCH&o>gyPs~UyIQL zk*5|M5t<`WFJb%MDaA?sYn?4_jc6=M@tBra}SQi#d1md?F#KL>u)=Oz=p*^Ys8qpMLU}-{kr? z;>q=m+m11s++^5h(MlV3Ik(A3WelrHAGOn_mCFt_>6;D9&YJnv%ahIg*QB=>b57AR zR_BePW2JIU`o`i=E}LF&jQ5+{jQr}MbIwVvNUvDA?A)_kjOJD6EuQWjA=n}jG{QjaH!m9+DW@8>lOQ@&W5zeWc!}N-lFkdyy#kyue zHIM=3_)e~20*fvw(@{0Plk1z9byai-itl7;=9Ecvh>h=L*(QRYXlehihAh8bl#^P)fComr+KLK1owSN1^pxl4m=i8GfdOX`{x zj-DJ!;%b84nSnmc4enydcACusn5O|e=y6>6$ooJt=K|D(_Ml^PmnIs(eP)eY5;74% zqoE}ixpftL9?%_JX9=C>(bOI235@z#59iScnx}!s)B!B0R%lqj^<2KXW|iJX`>p}!!i~z+v?$NPP6vn)vz3-_e-WFL6^&%gL>@00qTc5PX3Uc z4dxwiOHKKRgsS^CTR@-xArnp&G*=++6-%)m3s#vj%Q?uycT_@#ASiCH0;RU$TtL-4 z53nX2GXDhcXwX5og*NL)v!444^jkEX52^#p&5cSOHMv+#g^a4&Q|#5?sttQhUjSs5 zeIZ~?C^9qhi3iPA&+;yYn5 zZF)lwN}6=*rx0)qCUql)*$b+DF+feI#C($3jc0Ho!YqsLgn>Br%~wh?x7o%V4K{2< zB?lg?l+a_U09&;) zwHV!_-2_+{cpI=u!pj3~fgtS;6ae=DM(M@CA;5nP)L}+71*ZmslnS;1UK3=QcK}A| z>%ls-7!AD|jMDrNx4t&iBNB8)XfTwZT@rp$!rLT#RKjDSew4ld7^UgqLxC8b8Gc&} z(z@{KaFqJOb?DcCggHR87-s!HC*ffUUk$$)4pJn-^o0@Drx7qp$;ct-e}Sa0kE{mI zWimf5^Cg-8isXMC`6z{>i&1M;bXGJ<=_uDVqb%*o=%HwkUW&E_WAy9jP0;P^nnK{$ zv<}V~q|G&Khbtuf>l)^~ujW-y{!Zq9B;lJ9#%j6r3<)~`dF0&j^S!bWF)IL?OYHy_ zL7x3+8f^eJ1(-?!6km?IQ@|UR*szC9l{G&~dr%g{%#MQdCX~&i5M~EU-6zXpJXe5z zkq&@!Dq&eg3rEqyQq*#{Xy23VCE%gUC@*xtPm8614~g>tUl8k1@-<~I#2iy@Lu>C- z8P1dNbP3OpFe%|m2`^Od1^+Jf09rXsI|A6FJqh@z_Hzm^fO-_1eVV8P&$LO{Y>CBZ ze^AUqS%<{x!YMHq*cK1_xM%?8c-R540@xl8ds?gk_63QpRi-OxU=toTPZ@!Qzb~=f zlvHxSj(cS*mF;Z((^<1PU8sx!tCyIdKUGQ?i&YYHwbrOrVrqE1asv*E&ZM&I%Gf@X z-CV}%Fp3i{MlUFL0{hNFX$jKQ?HJ$sMG}Ku_5r(EVuC)YJ^p-D|GGu)hjEFY~VeD)a`RO23wr8xYb2F;wVQng5D} zhb4Tm3>A7)=C9Kt#D0o*0>1)%mxPNXY?81=!t*^kk53aZY?1JM39px> zH%j;!zqkDq~k>?g40z51_)~4f7b7;#5i0;+miYyuCw#BcD8|C~D{WGT zHu0C?5$YCqg&$Me!~x{n#5a-ufMESE7jJ~0R4x}3Ii{qh)QZ4=qZ zTgoov-vPWaQlst?pN`bg_2NsBI`wYxU}QGnk;oFYO*{|I%f-(k&FVvh(Ju7~aeZ_aJtA(2UZ&2WyP^YXBRvx})NW|FO?_Fm^@<4BJfU7Lb$%U`Hccp} zi7qVySci=XTWpSm3nXlmaG8YXO4uf0w}d(^q%0B_#qwECys&WJ1Kf{xg^e`l}(%F#NN_F%b?1^1C7jd{7 zt!x#8vcc8`S%RtzM;m4}TisK@hPp3Rr`Kw1be1ZfJ^y&Ax|h>ij) zC1&Egz!ma7 z0r~eI)SFFPrfqI@lAE)3F_l}Bva@OG9d9cXaOsh9a5X}0*y#3{!`XbYcN|6S=4hel z7#6Y{E%U=h+ClD8W2n!tuE^rDh5APxXcx`0ir5G=@Q$p z2DrFT%63xu zG;%npXFY^EvUb6=Cl|Ad5aU<)Ew<%BbX_Oeorh!PQ#ookksEV1r*cIDe#5qu1lFo7 zuDx$x?Jct?`1xA0G-Mk4B3lIp_nn?j~W{;@7TWLmFeZ@dQI*QLOH=5;uv^hA{4lu`f3BJf$b|`-NTEOvcDpUfvf-;OlI$?->~NmCj9dYC-dCDd=A;^%+zak<|H~S9 z1zZ=`>O5E7DC7>fSIQHv3z}lef`PHMmO1KC+R{$;iWJ9TH`{UM%fioybLQwMdhBNNdA9?MaW$U8@F8FuQ}~2wAOco; zDd$z0jxny{k^+Wg{A$Z&IAnT~U1#MkxVa4lBai5Xh~?m`gltXr58p_*))nq25H~hb zdk#??WX~!5xbAnfdxMNKZZNb-8a5>dgnI4aHRc$C04Au1^f}`gX14$mM$tPfn{LYu zn+Q=Oqq2AKvcBw9Sakf@Nj!|8%2HgLrMJm)rgm?pzOJ@qr;e_k`TO}JC*r7?;h@MJ zy(FInCf#k#xP$1+5x1fQ_Z60rVYtn*Qscy2bcvJ2!q{#W#$BSH zM!Maiek+x?x0)7=3bJE(u^hha@l{LU@Ix|C)7o6o9$A~kvL`!B{ifHT92y5WhrX39 zp5yUsnM80~^VSHow$5;TAFZrS*>vYv+9=2k9Zv&xGJhX;${kN-Rh9$p8W$_sm^&`K z*tj&gq_*X9((Yj3EuWkY)eZ6{kPA93i|2OENLiC8(h|OqO~zKk!a8Son-gzfLH6c8 z`EykcZyDhpaXc=E<4TP1mjStm^o{4!BbJ$m*JY|Unf~%+<9oID;n0iMla~fJOvAZ& z4B11tRk>_!GIFUgnX@ZRdohUFP&AayVb@S8^_6FPdfy@|h3kshs_5&p!p}0sXv*4F zVf2gGTdnNyh;wog%$+HwPf;Kh%b!9etORMy$;rXiZ>c})R4nBd-$t~{jEnY{^!1MjP~nv_0h|ocI6iK-+Vx)<}Xhi z(`nI>%O3jJQEo@XUGDk^%Jt7^gFSe7d#VO{6D-8%i6Y9;YRl$1EiYXkK5*f{HSuSo=c!PKZ}2pHWvUGYXC!8eL@gs>4+%38_mDUv z(>-Lm7DgQgVFqyq(=}Zv^$;4?bV|%XCZ^1%&@>_D;}$#AEQFXgpD!X%Tt_Tu4sJBG z1|Ui>hRPxq($%;gi^Y_nq6QNSg1Ry<5Q8`oiv@HA5Y)wZ8d;ac3>tAmFMy-{#S9uz z+QbD-j5P%yHNGP3U*gZgZ9wmMzcGq!zGH+|xxYWa2P}cf;~Btxh22-&eNERwY#M+t zgE)ifb%J6zBUc~n$fH#s{Ae0}Gyp!H^705z_)Zi8f%l?lnnZoQ8WIW~d=wFh8SzV4 z{0!i+0P4;sEeZ>Q1|#Ykj1Y^Z1hsep8qFvDEmjio#xc`o&QA83sX~|I6x{ugPfwhD zoUA+58PYQbzVLX16varfEkOxk1bGaFPy%c=9?pb;>m2A6B$d^}xQSR|I~RLmr*1PWHisQ*$oq*5?yuyh zCzv}7A1S?we=N7@GC}K4JgW3L#Z1;ry2mWIf_HJ_9x@E8Oz6XMnlpG2^cHW^3Z3gu z3D0Z&%J2vnKVEv9hcOIg5I9&F;a#lZ=M?;PVdkYcljEFK-iF{_3dcObF2Bqd-6&|$ z*_re?t1`xlr7M=LShlpqSl+U9RocibHO_5WnOUA**|K~YzNSxscwXhMOj!ou5}Mvu zUTpP-_C{S_-n^_?Z_=3uKQF+Ad3jAFS|O-9y6gCLH@|x4*Y)H3ZvDkq58`)Fow8#Rg(w1{_(Z9#P>I@ zzuWrTmMe2zxA4^NJa0>XHg9hm-{M|W>e$I;(|Yf?-kwX@_Lj1-x0pj8-hz#ofjx7D znk;07AmzREzs~}yoWBj&8^)jUGmxrXSjQ_$Ie zCQd|1y$=EBOy^F|k zgO{W@Y75>t;?e+MCpLk7_)W+LY!CZ5FW+(X@rAo@{MJY&4X{cLN$UU< zkeb4_Y%Mlzyan&Z)@>`cYMd4k*Xl735T)>xEv?2wz$wA8&Ysc(MW z$~KmuGZwdU-OZ?LLEnl!mf=j(TzdQfjz z)?zCa&_CW>598Q@bCa~(WSWixQ@cDI>9icWEW^VGCB1A5*9L62ifng;GiZyCMHX$7 zqi|~bb;v$#@but~KKIEVbN`T5savsMrEe{A3^qcBiT)PlvF}vlR;kNl&9 z(f+Gsoi_A_kC3DAx*RO1!{aB9+==zrMh$p$JgsnYaGa?=E-v*7dl niC1*|CViTV@p@jhWd8wz-(xw+0R(=Ev3nYw^n%L{r+FFoSVs~X* zK+}Z*#!%8RgXusZQ|B?nFeF1;H+37BIE_gtB`pc0A%zg9<7tu(;n9)~$x!I`-Fwf! zcjdJtY-c*Q_Tr=a|MxuZx#zylee6$LB9`h;_wUFATB=%>Eeo`DtPRu!L!q+s=0-Xc zLW%yTuEOI+9}|?i(nQ6-=YR!{d{hkM*#h;Z4HuiiIBf*yzYzB6Hc*a+KtQ-yee_W& z;t5&46~nn~feGhw;fiG&)dKs2Vc(bk=&7se+HH94u171Ly5j05Qcu?I?p^<=FcW88 zKS?Ua=ZFOgjsKhq-SMCAEbj3595KPTF2>=PrmpV&hnFf2HLC-apPK)pqpepz^6UTj zQN_Ni)R9eJDf!a*U%clt6+2$8cy_5$?@!+F?6${~jsMbp=f-co)BMUEsjod^T?X}G z`4c~Adi>C{^CrD^>lO2}gX7w$XHntLRQ-R;w=6j~a?#)ZYvXOdzW5iv`rcV&f^n_t znX3QmKKba-Blng6+dXSG{K+eS{7;`7*G4^y3V){Rf5D8;ekU;ho^2N{zVzsQWlP>Y zi%c-CRXtPn|Ins`fk(dfneYBQ@$Jw5>0Ng}G_H+$78U+X)&IIHmrj~A>F#%bv+dZm zAAI2}3(q1GjB8cTRQ;=`&wKoV(#bC$|HD)o*_=oZMtcLz(R3mfXd4Q&^hVR^ElsIJa%2C_L~@IM*G%!%TQY`cm*Ls2 zdHRL|G0hVNPp{_D@0w@q`Lre@@fdX*dp7Z8w_zE3E+}Aos{f{VEVHF)V4yb+ul30A-SXf)HSj~5?075X>wgW-9MO$ z#nY#6p_C`;wC&Ro&!8dhJOfIlMUt!2T=b;B#6()h2N|0}s)rJLJf_KUu zdTrKEy70_`vk=6^5lbMS(Ej(6kG(-!rjeGhOUptF?czNLuOcmtKw9ElS{hhr5AS>V zTcoAINlTnd%L)?Op7fM&la>`oTH;(<8eeFCc*&1vX&sP8TH;(2`hEv)4f+hQLF5p&3o5xz=8&drv1T@&sGG zR6rlJ2mdv$J~za-cf?b>5|{{(tZh{fz89@tLOYsXQjcgOo?fnKvDJSekM#i4E`7R< zGGFkiPx1i)8Fx(3M z3bn?gHT7SZ_8v{!;L)0TDNOr-rd{pP8e0{neM{4}sP~}HWPolDh&cu^P*;{=BcK~_ z7vM3#A;61(Hvz>kzAR9R;>!5nX)l9Z=$HT<&Hq!p>$Vis!@oEFw}YOvf-ls6mwGD! zr50g6Sm3<}+lKH@d@*>{1MyU5h*{4qKxe&f^i0et?Om()^z~lZlgSLMuBzI-dv|bm zO|U<;v#P6YV^z4Jp}r~^?Te=eqA@+iF3s^I(*?MyL!nR=1SZo}X3lC~-7%ET#QUr+ zjq)CB>F@1@?+=%s1KH(TuBCNx!F6#g1`;vQTw-Y2;PlrZdrG zMvs}=b|Hrm_sTyaT{4=CC8Bf#v@I4C)^A;J z|MqAvN-=^gE>%)}dNDN$9bAE^u7MHr+}zw2&Gd|{S4Rd5&YjSU?JZZwkwkQ7vOk?k z#Ax`b`M78%%DL3ELEeLAoA;VD-enGwK6TXgsYSp^n2J92OS}y4Q(d4v0wAs63-u}M zQ`LlPa`}mW@CrLL!UrbOf2Se8GGwOnYw3x{Zr(ab4}m_*^T_Wd@Q_|;M$1#?;R~F3 z*bxi4fePl8hwtmw>2w$J($Q#1Pc!AE!}v^RaoqGsl=T&;fIpU(eqB7Xi!D*?FFxjD zBt&R7k^YPM-aiG3XnR~2k9N11ra&ZZ@+vZY7<}Xry3uSxUCCeO*rZ9zGq!NkTTnLI zkhXBsT~(wU^gZaam@(F;$6LJ8FV}N9pWk}>!z_G2H3RcM~I>w_hxV8)*aD~Sx# zrhK}6k*|=9IpAFg++0savnL|}gPAts^V%2kQq#2|b-T^d=favG%Xwj`m4!7=mVIS8 z;_DFy5#NZo3UM4Ue3EP*;xJ-f96__r@&K9fU5IND-;bE({4>O>@cw1Qb%?)-7)y=p z3y2#KzkzrqVwUw2h~GjC`(^19L5J+`5wAg91})1lo0O@euu}_Q9iA%@UktbuFdq;G z#V3%y25qGTaR6{RU;%)%GXc}`V%mBez_c5m*X~$9odAY)$p3uA@KND2;@%x%`ktRc zO#kd^#3-Y>25}jzREE|v1*I;7d_NgWhUFou`88|7^WA9;jstYt2D%Iu1kGP`)3gm`6U*;r;551UZ6c(*N^ z_-rl>?J~T~x6>g&z+CPH_!#~hq|9`Bwsv&V6(<4fxeMjp13vNy-B`k z(N@wnrcc%?(>L-0d@%ogVy7E0cgDARjwznmz+L6y|hn$+Y{$R*}pUrfamA@M?Y^a8`+y>Z%b+AFN7v4iUX&(eI(5^?( z0eMF94&VX|FqMEtKo=kbxF2v3a0Ku=pcww}7GV8~|IalR1N(*q)Sn%9y zPwO$7e0u?;75oTek3J6){{#J;%~c00QjeqVcvz`3MCL+>7~_k-8?i>Mi)ZK#we)w# zNutMK!~r15BXpzbB>n+-Je^$8G9JqQ$|0*4#yBtF*^j>E>D4(j;OVpk^iKmwFEpd+ zBzD5s;p(Kt4%cVB?I*6CFz))%SB*ZM{dsf7VdxS859x(wG=0QIXbYY`j##hmpg_)pjc)Ar3@9DV4 zo}=xljI-2l~_bN&?4r_6~HsAN=GM`qA{HPsNPT4y>M~YIAdC zX6sI~Rb1H-@^qB`sMyI6IEP4pkL`a1FIq=uJ-#3Md;lP=;78L*+7ie9N`UFdKCk~X zkJ$i*_c6v-V0;%^)4zOP|8!}wmk8RW9<6Ejh0m-|5YPraTGJ*A%fIUhh+Qo8hN+zQZH{>@%%xKP2?5&;q%Xl5|5I<-8J=Y`b z|1K|XM+_jz8@D)q$zIm$b{xSv&kOS~j{K)Pj7;u!R42OoKaZZw@FU;4@G z0cI@p>2VRSil&kMlq>Z3ZO%y-BOQA}dOrnwD)3cXF|t1iUv;snfX^y^x3P^++llg6 zFXE%ar}X?|&LKwU!gC1EMmdK-7w{~}^HF(Mmw|HkLgA+XM*+tG?*pb=TWX@>pR?Km zs7}xSe++$r0cXBmz`3;lf25BLyZ`$z(n%}$;eF#w&Ev)OKyf`VUe^OMe{t>4;10b3 z^v&~;?)m1C_>L&1Rnl?(;vT|s;K?I&!~1C7oQgva*?UC4_V&|6tUI?=LZ<2WK5x8m z=OUih%vN9U<}H(d;dzVaE!@|UJre%*f}tF+9Lh%kJonwhf)v9UwE&xy?Aso;lIe>` z!2Xy20A9Q{hRt!=wj~YQ8D$&-knaG1v?H`LeHI{l%Gj&++LFY7z8@XAY ziL@b}j`$kHJh$A0coE`j5zoO1;|!cB&cRA|4m`sd>N0On)9B>$%7QNJ?P+cWFMYNc zVj69mj_2d<#^OBx&6-2^pM6m7X~6S<*Qw~Rz`Bz$=3$F-$u5H(%R!`Na{VtCwm~a( zzaP)!5xNoVSyPQMM(Td1Q}>QouYSenHF67&9j$uoSaZVI!Tpc-pj0^xRtzV#0Ke%r zcS_Z}Jd-_+arYKm*Iz=zW1Y9+596=f^f`Fu`_C+X$l`xt@t=ka;{VR#e}+2X`;d+Q z(Z)Ag`ml|kvvR^Vo@nE^&F@|-?-m^4)Fmtrq`Ni*L2~du{pyHvRKf?h1=Xvexqf`(9@C7_@W? zZTwq{Z?gC&YO@5qcXxXY>Do#sAK}FSK&rwR(NpzWabLVP`o>7zxj^fF1qS z#99Pi8cmXZB?0A^s;qe*_E*dID09e0`^Y>f|72k#{mA3ssp^;l)Xf$oG!pXE;R|&v z6lm&^@P&9(;KbB?`Sgk;l&e5CPaPr(*Jjr6*vPy%e>rDyy zS?vMb1=t686>uEz4&Va-f6K{x-~qsLKs_J=Xb12fat|N_$O7&MJPi0MfM?^+0GkHJ}?HE!Uy>Cb zgR?x*+_=L2GC?l2;aTWSx}gs_dU4*Hps-4HE}jXG!C4;YC1ckTj9r??UJ4U>lWyr9 zoepdI-0do%H|dssJMW*HI^ldcK^403lq-*+vAnSyFYhr;P=zl#Nxp{0@^(RyNhFtZi+5`8`R+|D=Hgc8;RHi{Yic5SxV9m|`c%B*nmk;>k(qAq0*-qU3?<6^29eJ` zbyK_>v25$wZch|&Z9}|kj62pklqho#pD)NS&2?#EzTPW&msswrmneMX$_AgRO7f0y zxqUCe9h)4^+yfSSV*R{1hwI54z{_HrFhT9C%Hg7!@8e~vhfDY8a8>%Z{=BoyP^!B6 z%oEE{S@BD}EV2oudAhXp^SAlji($ye4MzEU^k#zs&U~|juReSUi@)FQw77{Xm9US% zt?uA&w6FxwVPal>J2L!@Rg;Ia4~Tp!-Ot}e<#0h6_JA|L>BCZ22dtqTnRfH59SRp1{s4K}l3-+9iNBaLiEkc{E+L%b*%&+rc9OO5ZR8=|^tLlNH5l?OJ z?T_7T5_aI5LFuY7H$pAM@WfBytFWiU?tSg`l(@(6t=7|)JM4?ArzFj zR}TR=P8P!-!UFuAFxGwQ8|dp?Y+Y(i{awt9dr<@Q!%hZEfa5&)CaU!@RO=yB>v8ba zqq?6)`a9r14w~b5<~ni-(t+0B#>D+o?TcYcTKgAVg)x6R#%w?Ix9DiG#jsUSEw&uC z2(}uw5c){;p{4=Y`Z$lz1k3`=2FwBQ?gh&@4}kl=IEz3T0Rg~e0Jh2nfJ(qZ0DY^) t0G5sO>{7ro0QFx1pl?D)E)1YgOn-#FOfBGS3|v + + + +ArinLogin + + + + + + 문자열의 암호화 + + + + + + + 복호화' + + + + + + + 이 클래스에서 사용하는 캐시된 ResourceManager 인스턴스를 반환합니다. + + + + 이 강력한 형식의 리소스 클래스를 사용하여 모든 리소스 조회에 대한 현재 스레드의 CurrentUICulture + 속성을 재정의합니다. + + + + 지역화된 문자열 등을 찾기 위한 강력한 형식의 리소스 클래스입니다. + + + + 연결문자열이들어있는 파일명을 입력하세요 + + + + + + 검색테이블,id,암호를 입력한후 부울값을 반환받는다 True 라면 존재한다 + + + + + + + + + 폴더내의 연결문자열 정보를 가지고 연결한다 + + + + + + \ No newline at end of file diff --git a/ArinLogin/Test/bin/Release/Test.exe b/ArinLogin/Test/bin/Release/Test.exe new file mode 100644 index 0000000000000000000000000000000000000000..35b8dda9ec1073b210b9c507a281226f24600826 GIT binary patch literal 16384 zcmeHO3v?XSdH(OrXkU_rSMp1Kj%5rhA+0SxFeWxgmi!P{wz1>~;2^Jd$I{}}j=Zxg zER4-2gdPYXb!Z7Bq&*Ot9^h~SG--H+#1L8n0SZZRAy8s)a!S&2z&Ux)hC2QJe`a=9 zwrNRw+S8`YYW{ow$Nler@BQz8@7x*nTyl_fA~JCQ_P0b2A?2%G;J*)wVAsxhq?W!O zes1nVYW;I_`-akvIg+ynbBSRynaF1Cyg6W*xkA=VXU(pSz2>l;vf>jaL{9fqZ(2>X zUKuod$GsQ&wH+Z%RjUwD3n&v^>Svj2;@*jytuv8muHDFq{hZPv+}s#k8ns_53PcBh zr^`!3W(o9e<6MzwT0}_W!R%3l#-Weg>DH0D3dgY^^A{n;am4*kve`M`+ZFwctB(ps@u2MZ{4S zhkUFbc=KhkAmr_x$hSmdt(;FVea1qa*v$|>qX$kyq1N*baM|i$YykXV4Dl%9GG>a3 zNyh^SivcGEx@`eWEpoBfgTdG?V6PouLz+pU9U3*z{PPGElk(d#3-!cWpa90rK>sv= z$yW?c8HvFGBCo60q$17MfpHsLU5JY{uIt~VO^G2KN3_|^b#kiiHV5qQf`eF zLmvn1Y6i$L5&Z#kBhAk{Xl0~`S`8=4IaF;pb(}-BhEvZuRAM-jIEQ+SW^My?u@TV& zT+*Hlo;yxVhl=O{)?-f@M~A}b0oH0y9Y=@y=mD<7o;Hq-%AyCjMjO2&`ZaNu%!XZONuL|^CUl{zqS|L5HlwBP zG&(+obM_n*SpFoq2f#L3S|oXaS+1YX1s~qq4dqjAG|>^UMo^r2T#s`)V3Et6P->Dr zADkH4e^%u6OaTs{=C>MWOgU@H{F>OAV1?`$;H2Yf3jgWHqi5u;_-lm8M{uR6rpr8wVYwGyW8XmIDZ;#1n^1j! zfp0`#z<9c|-Sroitr1yl1iUe3-MBwcH)hsJy5Y>x7cjsl>V|hi*4M3Mdj&tom}4Mj zv<756nl)(?WC@-hm3G4)(Qbwn?N-uHm=na~67RHLQZP3@0C_Vp0@cm*=AvAiDxrcINr z8^+F{&G1aj&Zy?BgqRI=0nNdFDPqGT1Dbt4vYKroUq|MfP%c0ca%7}hv91W zsuEtO%&VYw&g57pXhFNH#F=8RmVBeDZz)S%JWd~Ta^EZK6G=5^&zwc$lrec~g)+Cu znv(LV_FB%@X%IZp4$$5a!xjMZ1QUr~X2w+v^2#C3a5*fxE#a z&t*c5xCNN)l}hx`7Fi4xWJMKCzc)TrtE-CUWENC!SV9DJT1yj?|+R1B3H1`i^ zl(Uru1GzAkS9joTJU>M2?JSLrbMFPK6i07dn0qwJo0+8xmn~Yxlqy69JceKb&O1PK z71CQd-pn8UC=_YNz7NGBI-v%`F?W&G)`VPI8zNGKhYUyP_ zULm%l)COav5umG$%Z)nvnemcQOU)=7p>I^N=GwqBu=U))4g`u`fyKa3AVBv7ZUKBE zz#3jcK0*z_p98i9>mk1@*c}Yez97ro8f2Mo2JZ>h(%~T2`?gSKh1lBDLqCVi3giQH ziBKG&T#bAky%^e|2k1AUS3}Sru1Ak73A1E6d_g!s`@^q>pkF9o1)M@phaU+~p}!IM zw}7=YDZ=gT5;zRFkG=$Vo=(4xyd9ZN6RO{iM5w8nZRo0IZH4N4f^~F5^-D&Cz9V$4 z=2&%vCe}QI+O3*f0>7a#I8uPFt6}-O1pal+J!tRI8n)_~|^Hx3j@P=tBG_0unEAbs0xKJ6MzNaBaH13EQE;2*ySEJL$qH@H(<#N zvv+}akiLj=HFSpPycar`!%Lck_n_1eg&>iYbdPW1MFpw7uD|r_D>b%0u;iq5UtU;T##l8 z=9UZ65|78_g0xOB*Rmj`1amD5QBg40vM^mIm>!z0KMF6ne;n_jaoB5ub!ivqPeXF% znQm*Z(;G1Vufjf!sI&U3`e9%PftkP_)n5hnC6D)({uB7){T}ZZ`p!P3v80>A)!Z&dSEjJbH_bOU4psoi_&_RM`u^H z!n;y}O$n{7S_0pCRAxoxOZO{_)CE^0==NO1};{ggG|4=12C)Z z25g`Q1U@V--}p&eS2`a&oPcyH)FV#ze< z4~1q?8$A=+qqV6E;6DvgcDag#uhkle=STywk2hfBc^`G4)NNWfU;`o<$CHbYf0`~9 zN|TgLAYag%=qurUdRlZg5&LPka4!;gjD8qypgoZMq<)Ov3SS5K%kW_}=24D^{}7a5 zOpxx&8*I$1dsTneUin0YgO!I4oL0JUKF;ISL zC~dm>ydDNbZvq}x4Fcy1Y!cWeaJj$^f!zX4>ZQ*p6T6R_0e1s7(NR1n$LSi~*5l;p zBUN#_P}cx=>)Qcu5X#5&ca1o8>i-P5Pb7Qwx!_)^#{s{lxNH*ic5gZ`>2O1>!eTqE3T=v8RAhJFBeJ!B?ox6?l&f2T;^Nw=vxwYx!o zUmcQC-x2zEK!0C5B9u3F0={r5h{qUH2LOrFPRWGU~+Nf64KCOLLyGgsH zlomm|Tz^!5N`F>=QU5#r@AW#P!N?mwFbu@gDy)b>{6hGJv9d(4W>oWYF?O~CfX&(< z;Dd^H>t|z*5UtQg0k5U60iLHn3D{!%8gQxcKHvtU0rCDhV>V!K)pEcgKn=C%h~Yuh zhxH$+hT6h_5!9whjS4kSKz;_D254eGqi8OmhGmNPEb{<0?4l+Eo{6U(MKM6^9}v?t z?4V}Qr@h}p^hI@tx=Y=szM(GDjUulbmDdeGu=tcNtd)`vl_+?EL2Z1Em)kGsc-nSR zUP+74BVjH(zSg(hN<8{9>|`JE^6QbW!u|%&3+NdvYIxSErCXqKB3i{MKdHEQn};t( zI-M41GjaFOHr$r3p>K3KY@roBcB+uE&LjU!nR?R6obA}V^6{-{r;y03N;v5x^^A3l zjNl+Sk;ic}^;u3n-ZKVjr#(DU$XhvNH|6Zhtz;g#HFj>;LAuQv=(TdAX`EqG-%t*x z*S(2d*2V!AgY;+`r`bE(h{fAPC;6w&kaw#noqe-DoJHs5sjr-cnh`6PhbgBrJ6>UQ z$&zj9Y|6gE5hE-3Xs1OziFB4aa(J+eC-ZiWHfB3vcHUw-7x;i`x-7SmrQUE))yZut zbcwP-E8ky|7%pYU_Xn|5g;_Mr*aB-jHzKEys2m}dtH4i? zt~ANjTOlj9FtrWlx~b#Uk6lS3Q?SVG$Nv8Atdmbi05jVp9p>4lW_v()pp)qo~AjEn8K{ z=P^(F-PA4V=eeMtmonn-GHU(n?L>+kD~pLq7I{+rotXH$eS6w`vfse+ob_`(iELsJ z8gkwnEa1NITAaghJKZ?qy{+ob?y^h59!(m1qQXI#?(?}Bety(-G56hHO!le^tHK^=v>-J2M-d_`hwm#c{U zlx-~ulrl`kq~%eDU2sz#!p+j*;xktM16aP=%>@LgLVgHi?L}kuD~wsbzuW1Bj*L}m z3lmpoc`~@6yf;6VK`3T2n_rHi8?&qTrt{Q0RLCPVW=k4nTt6c$ej*2eY)!%8cL*>=kw{Ro3KNxxvnI6d&IKn39EI4Dsr{Noz!w+|qm6 zU0$f8zC;e*)SVr*-Br0P%ONIbXT&YL9WOGa2(H6#b~(<2H933Oqj=HDfw|;G z!Y%nUV&+;4ZtA{}_UNb?GdZ;p>#t0)a{V2t6m=jTk0y8xb%SroDZOn%7k{HsE`kZ- zF;?etD8%!mI}7J1i!iCjavX#f>daV)+_(aptzml<41WN8m-8B3a=Fq7dkh{MyhP{r zxwG31pgm)2;W#7Zm8CpzmFqy6>W`1x$MNngHbwSGsW#Y!Imi>fT*P;}(j+LeBraD( zAvZ90yF)3fn?FTzi7Pm8Y_ii?OkgY^0@hG(!5KkVS)UlQ3wfEk2w-j~jnZY z!j!(mKsVz4UN5{$a1=U!b;B8WX+;=Wl}PSJ@9_Bg3!3kCEG!{1naEgO@VG30qu{t< zlWC>+Qj#iBu++fqr5&ES@(_qqcvOeCikKo^`!-p*UD!BySWbMwTec9xy<7)g8LYPl zWrv5{M$Yjk6`h_#ug-Q^NvVW`GHuJH^H#sdb7!)ZJH=RaB(cABtdtjO{2gg|FgIJf ztek~CkGK8kfb{S{W=yIoA-$EWQtwzciO7}3;G{(C)bScY+}mTW$=Fx;{ogrcC3j;z zXC<;~WyPmuf8)80>%;6gJ*b3d>1uY^(h6{r|M@EcrYsf;*__Lc0Ut+sU#Yl6KSnqe z3^&q^UnN``4B(M>WZI@P;+~tWOk%I(oQf`Vrxni_um;kZbbhSN_4{xQ))eoHm@;#1 zAzcx5ebK%gKBXB>tG{FEZ&JRWdK|g=QS22Ox!l$2EaTG zQ5sTsB455ua%(`%(J*BDX*1-LQ~>UPHww(>c7kT1mOLOWJ-H-KAn@yk<}6b94DE#` z3s&Z#iS43jAMm}vR{`IPlSVpi73#|4$9&+`er?FlT@8D?pr?~IQ3uX}dhuo9Mp)Q| zuU}Tv#dwLBq;qldm_g}5X-S+?Vj<1qnjGkjON)3{&uwCReHS;Hfk+*a@$_cJwo=ZUj3c5^ZmfY;@25^|HM zn@n<(X-1I81R%s9%3u-$bgfdgHTcS-XDlvH!&I-R7D&a0pL|;7BP-zrZ3uE4#^5j$ z@evU)p2%{ZK}G~4#Z{OX3A_?jb+e-Qv`4G0<<_HjW>%rhY?hmi6B%?t@#ZS@e(~lY zHytUPHZvSFW>allVOA}4L7Grd4`Td+N}4hYncARfptEXgaYWSMMd)!)#bRXL$&b+W z-rlbA>9`K9C>_T5txG6c;w!cW;{LWIj)0c8lXk|5_u7e(b@}{=y8!$24_T)_hVadZ z0tf=|>rNb3aZgPPu!j^MU?db`BwBpfO&;S;3NfRm#-%*&CeKMD_>#a^*bn?iTN&Td12Uf{Y8Wyepr3dH^pikPt80VnL&MT`MT@;2 zDz9OEwsZ|P(|E2L;{`P3GglST89XHiy)Q5M(`DH4Q~Y6w)l68c|B5+=Ns9{^ z_rwxst%~}zDcf?15j=L3w${9Jxx!K0du_hzCPk+&U)!s#vc&_-tkl`~Mgw!auC!*FPuy*qix##m#P?V@o8~2rP1u2tVEpR<=S?3Q zpZed{j;G?N49@{_23fj^(jcFFxu0{`244r2H;hGy=>jW%!Y?dtvF zn?E}GYV)2|-`;-COZ(os@lBowtIyrhm(Du7$9A||XcOD(bkgh@GdnX0$JxRCw8I{_ zdZN&~U2R&)*E8YFyK|TQHu!DW0WU1wTnB%d#JhCf$LEkH(2fm&!@#+9{=S)a>P+GPv#CRw z^}q&2x)c2|f@chF;UK)3gZRlblkO%HzeT9OP1?6Y>fY#;gKcP$zHy&> zQrOEUQES=ivfXU&66urivM2V;iT!eplg4`g?_V39f4)0EVmw=UJ&BJ{E3fw7c{InF1LP3gt@z(}>(C#ptdsqm z*De#c@8^e*KlN2)=Vr%t6F_8tCqEB*?&|g0+Kpn&d;jTlojZJM*So{A_DNUqAy_%? z;;B{~NBIzl;yLQx+&lR0z?>+(#4Ddh6DPV@407(Ko9LZKzrEu8y~7!E)cYr`Mr^Jd zO&kQ;DI9#QY~0efruCdgli!D?5*fTUSlKvcIgRI^HzBeDn?gAwG@&5ttZXdgvgbO< zAsksbt;7DS?$)F|d~U)Sj*qrAn!|}~dKb2l{=bAtZBS*JC1u@sbCSo&**J@M!{2CT zaUQ&~aok(}cw%Ivae=ELpDQ?c)v(L{koGKUlya!sv62NGq>gzwC^>6S0d`ucO}X?a zo@)jz=R;~;>}xe~mG$7!AX(s-BgZOutkFNiJJ@9X>ANGU* literal 0 HcmV?d00001 diff --git a/ArinLogin/Test/bin/Release/Test.pdb b/ArinLogin/Test/bin/Release/Test.pdb new file mode 100644 index 0000000000000000000000000000000000000000..9d50e34a51cca9f0e82ab82cb57a0abefdeadbb5 GIT binary patch literal 36352 zcmeHQ50I3_mG40u76h})9|Z(6zyb@x?9T22y9m1f1!Yf^RmdG?cXoFcChpEIGqb=N zlT56fr=_XGD$3J4y&@Hfn&YC$!JX#d4kO8-CKXIHho=%WoP}4$KX=xZx$^XWzwUnD z^bWKCB3=Zh;m!NL?)SQ1zwUnB{l5ObZH%_XyA$0V$v|y!?PZq*8rL-hmIX^nCXAb2 zw@x99(*M;}xa{;XLa91~a=&MR1`d9l3+J*1Dr_GTq?k`{e^>1EYxTWTwH&nd%<&)oh zU6`3>mwpnJ!)J*Gve|!5hpzqSJ*%6E&k_}!)75z5$i(HHKRQydw?^$Myn5y@4%J_C z|C?|8qF~3B>fp8C9`&sY9=!dJ3p##TaA2WQALOk*(DI#F)z8~+Tl4qt*1Yib_`~+I?(u)6SLu@x8X$UpuFjdInYgbhZDlFa7gpe)HegoJh_5!ZY9A^lH@^ zq=Iu=)YH}ek1qQ1l#6d)-*wZTikg4(t$FyIR_Ym4`P0?@ALT##v+D2cJuqX;%eO3; znd&`*RB%pIAWrAS+HV|5}C>1yrlTOI4@4sLB#DzbcI(qypJWYDTJ=;{l!=?s$00Czn$17xZ* zh}sNBD!}!TM0anzEs_Ydt9EWfNhfa+XaTwRPIrrHv z??N8yz*vpM3xSJq{}k{CfSYiAVK$~uEAEolOMG{r;C~>9amujwp-)H3cT$ zO21)cMT&6Ay!R|`IPG7d78bDZ$Imw+lp3Ue=P9LIm2#_1kz})&+{SP$ zyeSfA^hN5t0_L*^{K8B6*{ZN$4(E(uV_#7C66q`QUh2{`_K6Y24AT>dC;O1MlSgBp zoq3cRhxmoe`xE3*iae^;Zdks(t8?Y%WU^;@aq+fo+k)H5g5B{=#Ty#e6o)D+D~e;` zu1KOM+@_mrVVWnF$ih`xQc_Zk3}cC6Eqm44+v%59iiCPR&CRZ-;Ef+&TCC)~}?o2X9!5`UUH^CnGVoyzV1x1D9r9+vZ4DxIfV;Wn9-AiTCLu z6vveCvo^t|zMe>X6BE&2BmD|<%hI&`xxRawOT_l>mmg_#b}kidRR&$U-pDaM4qYye zE6H0%v|H2JDxhsC77Q9gy-G}bK$dl>+p0HD2`4qk)Pys#WSNWw8pzXwaL zy{@zKEwb^#eAsK+VCJLkb!~5FvNx`67t7rX;wtcwN9bseib5qNOP7|Fm6cojHfH}~=3^!UPtZSD|D=$gHzP;0;N*W5Bi%*Ee2i$T%hXJG__kzQS+hnIg0re0*r2aT2HvuvQOm& z0%Qc=d`(+o?seHxXDkDB9;96kTB_u7%~OQ7o~+)-eIDR800Z+40N5us0=5Ho0QLYr z?La+A+udgibNdtY@YhPXA%tYqd6pqnzud-CqDbX(c_g z-E(WZ%sD<-ZGqUytixTe3TD#`P;0(|bTqT1n51>)f7gfW2aF&-N+r*|Lr6<#xVa#6=E* zx6!~ghOhrI8Q0gwYU2^?zBzAmTZweN2f+9)0x$W5Hgk;gzRK(YN-HbU`wy=BLER4Tt-uUA<75(t~EedAG zA+B;^gc``!{$)-c*w_0{;@-BuUMR|#XZw>@(udpr;&0#>W#C*P0b{~{3F37U?M-cW zS5GgTuOMK#N#M~)B#+PyRj&9Oz~)VrPPX29S?u6Ly72yTp`ZKbB3>s^uIluYLds6r zXrp!kD4Wm@S2lEEPc}Deu}h`aMwi>Z?&=KVz+ddjc0hTssQ~#E053&S040LPad14Cy%sU3k@}bs~=qZYh8KP zM_SiK;#;FQI6zvq-C@YI5xnFR+M(onA(ZO1u<>lZUle0t2_w%?lRtFUt{ z`%d7=z&nAlmQg2wi-2cfo|q1=5@BfBOGO zE9sfzCFlRk`Tsig6KDAKa?f@@)n~hd`3agh$Pq3!NdI1jaovh5J+7;JlilmWTO-ax z7|x0G1+E1z`GhuejPu_532+oG?I-Zoc$gd+t~N;jE<)LTxYA{FEmark2;(s&6It#C zlsOuF_JrPCEZK6NW?AX9(dx#U!enzi(owjk#9Kpfe&ifu?3wXD;1=n| z&hZ+$(DO6>4O7)$VU7*zIgNWpqa&ZEXHGxNk6{+*#{=AIFD6Z@J92s_8~No+^F zsjtt|7uI%qp9Q3!S8~6FXL2b%cL@RqfQx~b0;8-H~@$L+MD)lE4O79of2XGDp8y zdy!LoII=%PeZ25F$asy&==g9BLmsZBNh|3?$&^{%K`IY{woO7l%DZ05tKWiy?yr|Vzcz>E_2NWYn$j-lK>|F7ey907*~Z8n`^t<+4Nc_?q8e0 zM;@UYN+#L&VZY|d7^$fq#Wfgg}W<2=3e&W);q-hs= zw5FeC-_O6Ak+11P+4DWFY18Ww+51;OK8~aD=!b=XRe%;i5^y)*A;5mXQNX)^yz`X` z04e~vFt7%oDy$dH^Ph*<5fM1XBwUJNe@yIxo!^*7yFlJu;32)xWZDJpOLFJ5bLX^k z=d?$DmWSg^=5ASo?%<$9xSqz?20ZKbe=K8kbu601+4$%!5kBJRjzwbLzWNc2RoY7O z3Vr5y<-P3ZOR=exHRxn-9=B`IL^9snmedPyS!WMO6EgWgM9f689>~b2G+kG*M{BtG zMUeT4*M+F-b*O``J|6;vn%8uP+qFH~iTG9EA-&LK)-Pv|a_^0>ALZ=P?`My=U#9*r z#x&;j8i3d-*^9km$L?$r*f1AkH!5SdrZ<`Fj)j_Q@!samW<9YMJVycK5xUIr>)NL> z*bI>e{xDCTTJVcJT=%vB%=*OVt!=nIZUQi1Z<)friTkb8MZnw#(1yVGk%Dd2_W@w+ zqf-;ql_<#g%_hK$!L|SSSWUB>MV?*tdG`5Y#0RXchK#x#o?&7+Sl_4U58zoPm|7J8 zZUCMI+yV?e=>5z*;M;LOANXG2BH+IT#ICAsVh2li81?`+RmpoPx{c~l~gN}UIF1fPX|M-@o>XNUuUwJ3Nq z3kN&|*bg`gco#69o#+e?&@X&uX8nJ+tqb>`5+-BJCP&%%*74<#?+yTIC4G>ws(pUq zqd+@&V|5^34*g{eu8MKa&z}-mT!#zjxF6X8%&|rup&Lpj@l&8rcrv+Jiye_Q$zCfL zeKQg;mi@Ooa=E^oBG5k$AidBGC6nk0_QsVdt1pMo!5LgVVVwAPh&+zdg*tiyveY4s z^g=U~Jfb6v5lc3ZH%HrsyY-^By5JRbr`E9pbYB<;qzs}NwuadzL(2N+U3b0V~6d}a6He5h&Dz9G}^v-^gW zkNKKsXq3V9$?W-#*0komJKB8HM|`@!;I`kqF&4C(2gU(oZ1Zd`%2@9ar{BHDV-v16j97cUKw(-Bk4ey__SkBRX#rF9pZGN+C z{u3 z1}Wd3;7=r1U{UH^1THXsV5PD!dhB}O9hRUp+*942_82$hRd z?u~QJbt3mvg#g-J+V53>CO`|I6R;hy1MmRg5x@z+y8xaOo(u>8xW}phaKFNLEH(l* z1CoFg;BEkIEZ1E70er^EbMwamZvj34j7F960W$za06sIV0&xAY0nh`u6>tY&Ctw#~ z58w&FA;1y9D*&!l-UrZbjt3M1N&qVWs{k#4&w992U8vVhPzy$G?X``UHP^?I@xJD@ z-BEfDXREn7o!!nizz1M1QVSfKlBM_rN(p_3(=9K*Ibe9xFa8UUNwYlIcnS}{3E)%x zKNcW7Ce89xqLik$bGQy0lQDOiI7{1+)*strj1tdaS}qfB=tEdUN}uDJY>aZf zc4;1yW_d7|OJCRsoogQJtP}Z7yrsu{F7!MDHAbbqUP5o;Ej{LOp{EYViLP)h^d{cY zLqF0kd^S5yWq)`pyoSc|LSIsUKKC4_oQI)Kc_z*9lww>951+M+Q~e*pNI53W@?dPc zb;`@qF050Y?Jpsx46fz#251+PX6xdVQG|Y?c{19?#9MmU4w2~zO@C^;n0QMMn<0AU z8b5D{{%>e3FYJf#zN>i$@BfCz@?wn3I+Omnyo~;D;w)_#%K8HY&hgvEhI~*XPN=Cn zrmOisxkOz#i8d!64Z8^O2bpLCeBGo&c>AD6_%VMS%KiILl0y7Bbr5TLhC={mmFNE( zFUM29N9TMVvZ1oNVQE=u4S5*`FK3Dxk9`IM=L;54k)@pUCnnX>n);=s)n(P1XYjo9 z^`4Z3+_y6Cz_EJX>L7JU=k0yIa!EsVsJ6D&RAKNk3RH<*ZE&xPuBJ+kXDh>a?V=U;|Z0M=n@R{eNy#x~T|FDqZNY&fz{*6#`EypgfiPgdFG^PQzj zLe&-J4H(A^gUfx9O3}a|6hSG>TMd>szBOuQ_od6~%a(>pFn$>ZFJr12ZOfn^fn}t! zwy%{RWwxsG{OUI1 zw?^9|@s^OPs41%`t*@;^9t?xm@nUt{_OBJtBm36}qcg^#o#rmjLQ{$cPv zpK8afX}*U?jJHp`divC|3QUpMOP(57FPL4-nWqM(@g18&n`G6Y?|9t`xOjlHKEz)= zK-$xY7g<<83C!~_z}PMGoWM9fN0+c9LO@occf z2__x++L0!5W~TA%ufz!!K0bev@GqogU?$i71s^CItW_&1{frcc${uY zo{l*WW73a$=fSTv4xIeQ@BYX?!`uLV!d-y97W3ML4{=|H@`v@|dFSKs^8MBRpXMKF zF5*+{_kH=(`)PhhW@nb~SKzRu)^_~&W!u^cH7ohM5VpA)Wda-5gbQ_pn`=qU;WJDF zgZ=&Ad<@NEd=UC(ekEI(@1U#VM7*tdGgc&#cxz`jj_&D*4!qx;D2{x>KmYLwvWjQ@ z8y=q^Lp*vgf6l}GGZ0RG!yfq#&#?5D{sCZ|4a;RNZW;mJOSK-2Ie!@!?-?rl>*e;uKW4^AlGHA?@R#RYvQ?E6#&cv%m&N>6awY~<^kpdSjPo`g@DTdivWuO zK|nE}1i%dv_d(nzlmoc$;no&zEv-{-&zA!}i=p BZ}0#B literal 0 HcmV?d00001 diff --git a/ArinLogin/Test/bin/Release/Test.xml b/ArinLogin/Test/bin/Release/Test.xml new file mode 100644 index 0000000..8490f8d --- /dev/null +++ b/ArinLogin/Test/bin/Release/Test.xml @@ -0,0 +1,11 @@ + + + + +Test + + + + + + \ No newline at end of file diff --git a/ArinLogin/Test/bin/Release/login.dat b/ArinLogin/Test/bin/Release/login.dat new file mode 100644 index 0000000..a9d3df7 --- /dev/null +++ b/ArinLogin/Test/bin/Release/login.dat @@ -0,0 +1 @@ +p/nkC+coxiKUCrUQpvJf8nM6b8Cy4fBdMuhxzuwW4iNr+pmCqbJVIQheq4yVerAgmdWbTGH8FFJAvTxNfZl0VK4i1oEUZtyLrzhMRRu/HgxoaiQ3AI/xgkyGyzGL7ZPWIAUKUj/eZ2q4JmtDsdPNgisDpo2Bmm96PYioDRIO5cBRhwTR2fbFHwuzSM32+hJ9BhdvUPIQ7FsIAoMpMFPyQk1HZ0l6S2aWR//NgNZntnyLSMm4lJXhTL6gxK7SQG1w \ No newline at end of file diff --git a/ArinLogin/Test/obj/Release/ResolveAssemblyReference.cache b/ArinLogin/Test/obj/Release/ResolveAssemblyReference.cache new file mode 100644 index 0000000000000000000000000000000000000000..fa33b526d86f7de0b399f620a6f40569a91f7f53 GIT binary patch literal 4445 zcmeHKTW=dh6yCMh_U^`wlhR5QN-?7F60=T7BTz)trY2D%8Wid%Jm6|I_Kuxt#=F(d zI>LP^k05>mkNg4N_zO^wxJcX{fWDR6e}MC?Z|lZtlkyg2q&+*wJ9FmDIp23?tm&Gj z{YwpRw0w%h%}vn=0~ItQ=W0ht&)H^bPdWRG&Qhtk!$Tzke}xoh-kC2ID;*hiLcZej zP82d(DsFY^QZ(M;-R)qH`z!VN#pY7;wdTTtw=~ZdSq5vpFnNh;S4F&CjabAn%4!P9 zV=aBY_sOXQQu0Pb9w_G;Q@atXOAe>4GzkOZkwbGdz`hv121JI$40?z{HcR5l+H!4M_-e0P+Yze6WbrCfqETE8h5s%&UL=2SQDACoJ`Y>n zZLXpkzFiMm!go9=XJ9i9DngKfn0ssz=GF%ZfHQf?RJ0j*qA9qSXG-yQU3TAQZJzh| zZSH&AZwRjPs==a&hnTB0!^oa0J-kqLmt6Lo)r5()_ap8DSxBaHlnL+M#1uRaKEC(q znNPm{&@xG}EC`!K2I`T0m}V;JpUG4;qJXy2`h|X8Z}4Uxi(@;9(TH4T^CYeevoPY$ z0+@3c?)V)kbJ$0mIpn}N@;m8~EY(Qf!}`#P$4nbqz1o|&44e*jm)VNGE*t+lleJHu-R6PAe5qRTNg+L zmu>5LlKTAwWAxt>imm@f8Yl$F=)Y12*rz@*3y3`dO?;O*o+rRXO7Pjyg{oKJluPfOKC~fi3&n~-nXMeDlb(A;^#jnX$0HnvQ S0@@R;Vi)5>v71Rlr~U(U-NX6- literal 0 HcmV?d00001 diff --git a/ArinLogin/Test/obj/Release/TempPE/My Project.Resources.Designer.vb.dll b/ArinLogin/Test/obj/Release/TempPE/My Project.Resources.Designer.vb.dll new file mode 100644 index 0000000000000000000000000000000000000000..b5600bd6379f00e54441183fd37c88e5cbdec2ec GIT binary patch literal 7680 zcmeHLYiu0V6+ZXw?8EECc>TzOB+eKo)Nzu<5K|zHnvLxwHi?ro>x4in;`Q#>9yGhN z%*=*tP>iWn0ZN3ZD$yWB#j~X?6_x;nB2}ddQlSzhRa>d8TFE7CMOC%5{X<20^gDNE zA9m7GRs9EJ&$;(J?z!i6AG0I3JU}5L((r!xA<>Iy`AI4GpTP{+O>19jqURf4?|f10 zeZ6yZ%5?RjV^2Dnyq?Vz3bv<@8@f{}=w?A5+@IF-cFssHT^e5(s6MchXs-y-XFmVT zp2}?VBs&{LjA$7s5uf_O7PLCv6kY~88tL1Op0b}?n!yV?Kax^kB5GFuwKhO~5t@Tu zHF1h4#(`M;j1etaO#5$e9s26zV!(&$@T6xP_ke3{0N^QK1G|B#M<*IfI8Oympz=NkU30}cKN_LrJ?JoAF_6*}r6(T#l|643k8 zH};F5I=R-5U6brhUfX-!HS7p7X#q~b#;$3ipP_x8`)SWH3zIHO+zUf>v|WeN^fdY$ z@2=g4h6mBU2z&@(?CQ7dap3$QoZ_bT#~T`8AiXQL@H$0w2$AJnsx^+psAYL2+H3K0 z4Wld+pM7IF9s|{CSyo!2`y)(89O$=n7O-8sgKAqZIz*gKinHkd)9=f)jL>uPalqfn zH)Ip-4{Z%K(b>>rfaeu_KlJ-hgg&LUX>pp+wgXOUt%&P$+Jjnz-qKzLjD$Nxgn9tu zG!Slu{x64}aD;vsegW_|VV3zvxJ_%K_Q+OfyDGwz{eWzxZ)+v`8&Er8(0uB4U=8SV zyqf7oU`v68C=B)}#x8|yOko^Z#t;;Sz9l+RW6#M)0RJi<1Dp(fpAP7lgd!{cMy*hEWC1p&u*8Z@VmWxH z71kQtB31!=I>2rg-N0T6urG>hfz1clqoNU_Jqv71VZOIvI<7E(hA_=2Y+3A%&^hGeOfc@0!Z-nc77VYHHMl9% zKpfN00lrQdz+WTcOfeN)r{E?9`xM+3(AkSk#IR4nZ3^D5xMc*QX={U+emawR<#-X=HD z`Eb9y0hHbHyNde*1z)2pB2UU;)&B|L<)L4y{sx+*K9Qs?qC1qNjbd#mMH}f|N@3QY z(m()L(VH|3$q87>^epy-HxY+f+9_s~{H&tPl8dpkbSL0_Xb*}<7551`N6(5U)Yz95 ziR%Xvk=pvGRHR`D)ffX-Xw1!`1%*8E2$NrEjT!Ip#oAC@6h^c)~d z>WZ!_nJ&S4x&+(PC0Ik3lGz|;sUeh7k|`xQ7C_cHqxz33_;LW5KCk*D)$EcftAsAr ziym>8m=*VnuZYL-*CY4IL-O1B(@;?nR9h4~LyCx{qD>^^3aQON?SdzdlLMt+ef)E3;jJzXUHmMR>%h9<6F`Giym2<;gk1-b zW>hq{e0r>to9PkkW@{PWHe%;WmhoB2yII?@%yAkqvyScB6JGML>6S89f5tVlG*aGC zELvtZv}kw=$o+HH748Fy*`UqUomE*eZw?WpZvRA>O%@{FTLhYPNk zDP+;Z8EOUy4VrGzb{DeQM5w6@_&2fTB>EMR94??<3K@$AZ1j$Mhci~mKsj(M6@jg) zs`GPDR~eNW8OanflL(*_R1t6rgm>c-m9fkdez6XeEU)Ak!-WaEDjd*M^cO2+hbnxx zu78Z}qzWgP3MNmOlO@NWsxASQ@>NxrGbS>yqUsb+G3e8%(lV_wh-w{Gf=MnoyI>SN zELX##ojDU_-0#?TxS4Uw*x})pIgVwxn3497%t}-^>w|V)=`t-uZnse|V7QTEPEAMP z*`S%3EZDARW?k4gUYbO(hs<2gDAYtRy^h#eo}iL(f*FNe#>x46O>H>T89r@aCV#O7 z3!P358m>86pdrI5?lH=D*iNpdsZu4Sf@kK9s*6<%4*CopYd9_!n7?#X?NPwxl`sTL zt?Ihi<=FXvvLox6$1=Qm_)Dak%aQVK$1W8IY|Fy-hTXAd6{pmnf$PZcEwWTC2D?}_ z6h33yH5VlHpfO=M1{Pzmjw>pRiC{+B;krhC+$#IqP6estp_=EKWtD{PvkScWEGmFt z=T)VfE*G*>j$JTM7&)w1&aA5SgNBtku6k}wZ4gKn18dy0Os`zyj+FJ_jHoT=AghLx zJcgs^BLtE;i$Ai~jFN$yjYmm3sCqWeR0p>prV_pJ%KK-&GxxPUckkQq_o3^5)J?Io zC%$laW#9aLvAOL>?@IhUzBQy1e)u7QBeG>lG}7L(LbNPlBo-hsMiK#%V5BWT+O!zP zFo-coFlf_sAy-3bOw*~Q9i1lGLD6O*ItXpA5Tdz*a76*Tl~~bA+;y~WAfZUh8oZr6 z#To{k_^=Vcp>_>}PH=T*=#1%MU5LcySmoO%tV_|X?Nk@BdKFCsTa^m=@k;tyYj zd>aV7^P8C8B>bjLi?ZJUF$M_+?2Bk>7SuRWR_jQe?zBWu6a;lr;WkK3KOnCEB*-W0|h9r)-*j6g$}bPcXFHDv_#1r?47l9iQ_MCo{T z*0$Va+RhY*Jg+!lnb;94^p=Z{uGUMPS3yMZ1sbFwj$Ck9L5U(qoFyS7e?9U|O3Kx% zIjc8EIMisOvSkfY12;NTg0@r_V{n&Aj@rsb4{K)9D)XL_tDG?XCDX#yC(1t@s01O8 zd*0fj3nRe3O_Yr|$h5B0}7Egtc#*N7`c47Ao7QO96Z>Y=` zB()-o{J_x|Y`~8ncyMwEK6 zIUMNDpk<9@%z}TvG>l*g;}_rcq^IhKebWC}M?k3G!|*%h%)&7EI~_K&i|8yjg!f2_ z=ox<*F$w)Xz{8ZLqkubcMx^nzyr1>~9|qioK0n{n-u?h*fa=$S?E!*Kcfr>clLzq% zXwBff*@Z7|3un$S6=(vNYkt;Y&*NX697q&!8d+#P$l1XBXHHuJTLoFTvLJkY{f^ zC0l^)7UGqmJaD2BDr3nXfEJr>10@T&OP#<;M2Syg6P^{6rX(GM{YlC}A0OaE-O7)> z;7+Pp2B5PD{Tz`=nu2Ch+l!}c+8@w4T5MCrf5!g*w)LsF`F`ebvtU0LN3Rw)jv>+Y kYRnFJ?ZT%#ytP!cK587t;$!>`4~pvUsS{Ma{vGU literal 0 HcmV?d00001 diff --git a/ArinLogin/Test/obj/Release/Test.Form1.resources b/ArinLogin/Test/obj/Release/Test.Form1.resources new file mode 100644 index 0000000000000000000000000000000000000000..06c24d06c1cab750788146ce052b37770f3fa530 GIT binary patch literal 180 zcmX?i>is@O1_p+SK%5g?SzMBus~417oL^d$oLUTL1*ImYq!#HYis@O1_p+SK%5g?SzMBus~417oL^d$oLUTL1*ImYq!#HY~;2^Jd$I{}}j=Zxg zER4-2gdPYXb!Z7Bq&*Ot9^h~SG--H+#1L8n0SZZRAy8s)a!S&2z&Ux)hC2QJe`a=9 zwrNRw+S8`YYW{ow$Nler@BQz8@7x*nTyl_fA~JCQ_P0b2A?2%G;J*)wVAsxhq?W!O zes1nVYW;I_`-akvIg+ynbBSRynaF1Cyg6W*xkA=VXU(pSz2>l;vf>jaL{9fqZ(2>X zUKuod$GsQ&wH+Z%RjUwD3n&v^>Svj2;@*jytuv8muHDFq{hZPv+}s#k8ns_53PcBh zr^`!3W(o9e<6MzwT0}_W!R%3l#-Weg>DH0D3dgY^^A{n;am4*kve`M`+ZFwctB(ps@u2MZ{4S zhkUFbc=KhkAmr_x$hSmdt(;FVea1qa*v$|>qX$kyq1N*baM|i$YykXV4Dl%9GG>a3 zNyh^SivcGEx@`eWEpoBfgTdG?V6PouLz+pU9U3*z{PPGElk(d#3-!cWpa90rK>sv= z$yW?c8HvFGBCo60q$17MfpHsLU5JY{uIt~VO^G2KN3_|^b#kiiHV5qQf`eF zLmvn1Y6i$L5&Z#kBhAk{Xl0~`S`8=4IaF;pb(}-BhEvZuRAM-jIEQ+SW^My?u@TV& zT+*Hlo;yxVhl=O{)?-f@M~A}b0oH0y9Y=@y=mD<7o;Hq-%AyCjMjO2&`ZaNu%!XZONuL|^CUl{zqS|L5HlwBP zG&(+obM_n*SpFoq2f#L3S|oXaS+1YX1s~qq4dqjAG|>^UMo^r2T#s`)V3Et6P->Dr zADkH4e^%u6OaTs{=C>MWOgU@H{F>OAV1?`$;H2Yf3jgWHqi5u;_-lm8M{uR6rpr8wVYwGyW8XmIDZ;#1n^1j! zfp0`#z<9c|-Sroitr1yl1iUe3-MBwcH)hsJy5Y>x7cjsl>V|hi*4M3Mdj&tom}4Mj zv<756nl)(?WC@-hm3G4)(Qbwn?N-uHm=na~67RHLQZP3@0C_Vp0@cm*=AvAiDxrcINr z8^+F{&G1aj&Zy?BgqRI=0nNdFDPqGT1Dbt4vYKroUq|MfP%c0ca%7}hv91W zsuEtO%&VYw&g57pXhFNH#F=8RmVBeDZz)S%JWd~Ta^EZK6G=5^&zwc$lrec~g)+Cu znv(LV_FB%@X%IZp4$$5a!xjMZ1QUr~X2w+v^2#C3a5*fxE#a z&t*c5xCNN)l}hx`7Fi4xWJMKCzc)TrtE-CUWENC!SV9DJT1yj?|+R1B3H1`i^ zl(Uru1GzAkS9joTJU>M2?JSLrbMFPK6i07dn0qwJo0+8xmn~Yxlqy69JceKb&O1PK z71CQd-pn8UC=_YNz7NGBI-v%`F?W&G)`VPI8zNGKhYUyP_ zULm%l)COav5umG$%Z)nvnemcQOU)=7p>I^N=GwqBu=U))4g`u`fyKa3AVBv7ZUKBE zz#3jcK0*z_p98i9>mk1@*c}Yez97ro8f2Mo2JZ>h(%~T2`?gSKh1lBDLqCVi3giQH ziBKG&T#bAky%^e|2k1AUS3}Sru1Ak73A1E6d_g!s`@^q>pkF9o1)M@phaU+~p}!IM zw}7=YDZ=gT5;zRFkG=$Vo=(4xyd9ZN6RO{iM5w8nZRo0IZH4N4f^~F5^-D&Cz9V$4 z=2&%vCe}QI+O3*f0>7a#I8uPFt6}-O1pal+J!tRI8n)_~|^Hx3j@P=tBG_0unEAbs0xKJ6MzNaBaH13EQE;2*ySEJL$qH@H(<#N zvv+}akiLj=HFSpPycar`!%Lck_n_1eg&>iYbdPW1MFpw7uD|r_D>b%0u;iq5UtU;T##l8 z=9UZ65|78_g0xOB*Rmj`1amD5QBg40vM^mIm>!z0KMF6ne;n_jaoB5ub!ivqPeXF% znQm*Z(;G1Vufjf!sI&U3`e9%PftkP_)n5hnC6D)({uB7){T}ZZ`p!P3v80>A)!Z&dSEjJbH_bOU4psoi_&_RM`u^H z!n;y}O$n{7S_0pCRAxoxOZO{_)CE^0==NO1};{ggG|4=12C)Z z25g`Q1U@V--}p&eS2`a&oPcyH)FV#ze< z4~1q?8$A=+qqV6E;6DvgcDag#uhkle=STywk2hfBc^`G4)NNWfU;`o<$CHbYf0`~9 zN|TgLAYag%=qurUdRlZg5&LPka4!;gjD8qypgoZMq<)Ov3SS5K%kW_}=24D^{}7a5 zOpxx&8*I$1dsTneUin0YgO!I4oL0JUKF;ISL zC~dm>ydDNbZvq}x4Fcy1Y!cWeaJj$^f!zX4>ZQ*p6T6R_0e1s7(NR1n$LSi~*5l;p zBUN#_P}cx=>)Qcu5X#5&ca1o8>i-P5Pb7Qwx!_)^#{s{lxNH*ic5gZ`>2O1>!eTqE3T=v8RAhJFBeJ!B?ox6?l&f2T;^Nw=vxwYx!o zUmcQC-x2zEK!0C5B9u3F0={r5h{qUH2LOrFPRWGU~+Nf64KCOLLyGgsH zlomm|Tz^!5N`F>=QU5#r@AW#P!N?mwFbu@gDy)b>{6hGJv9d(4W>oWYF?O~CfX&(< z;Dd^H>t|z*5UtQg0k5U60iLHn3D{!%8gQxcKHvtU0rCDhV>V!K)pEcgKn=C%h~Yuh zhxH$+hT6h_5!9whjS4kSKz;_D254eGqi8OmhGmNPEb{<0?4l+Eo{6U(MKM6^9}v?t z?4V}Qr@h}p^hI@tx=Y=szM(GDjUulbmDdeGu=tcNtd)`vl_+?EL2Z1Em)kGsc-nSR zUP+74BVjH(zSg(hN<8{9>|`JE^6QbW!u|%&3+NdvYIxSErCXqKB3i{MKdHEQn};t( zI-M41GjaFOHr$r3p>K3KY@roBcB+uE&LjU!nR?R6obA}V^6{-{r;y03N;v5x^^A3l zjNl+Sk;ic}^;u3n-ZKVjr#(DU$XhvNH|6Zhtz;g#HFj>;LAuQv=(TdAX`EqG-%t*x z*S(2d*2V!AgY;+`r`bE(h{fAPC;6w&kaw#noqe-DoJHs5sjr-cnh`6PhbgBrJ6>UQ z$&zj9Y|6gE5hE-3Xs1OziFB4aa(J+eC-ZiWHfB3vcHUw-7x;i`x-7SmrQUE))yZut zbcwP-E8ky|7%pYU_Xn|5g;_Mr*aB-jHzKEys2m}dtH4i? zt~ANjTOlj9FtrWlx~b#Uk6lS3Q?SVG$Nv8Atdmbi05jVp9p>4lW_v()pp)qo~AjEn8K{ z=P^(F-PA4V=eeMtmonn-GHU(n?L>+kD~pLq7I{+rotXH$eS6w`vfse+ob_`(iELsJ z8gkwnEa1NITAaghJKZ?qy{+ob?y^h59!(m1qQXI#?(?}Bety(-G56hHO!le^tHK^=v>-J2M-d_`hwm#c{U zlx-~ulrl`kq~%eDU2sz#!p+j*;xktM16aP=%>@LgLVgHi?L}kuD~wsbzuW1Bj*L}m z3lmpoc`~@6yf;6VK`3T2n_rHi8?&qTrt{Q0RLCPVW=k4nTt6c$ej*2eY)!%8cL*>=kw{Ro3KNxxvnI6d&IKn39EI4Dsr{Noz!w+|qm6 zU0$f8zC;e*)SVr*-Br0P%ONIbXT&YL9WOGa2(H6#b~(<2H933Oqj=HDfw|;G z!Y%nUV&+;4ZtA{}_UNb?GdZ;p>#t0)a{V2t6m=jTk0y8xb%SroDZOn%7k{HsE`kZ- zF;?etD8%!mI}7J1i!iCjavX#f>daV)+_(aptzml<41WN8m-8B3a=Fq7dkh{MyhP{r zxwG31pgm)2;W#7Zm8CpzmFqy6>W`1x$MNngHbwSGsW#Y!Imi>fT*P;}(j+LeBraD( zAvZ90yF)3fn?FTzi7Pm8Y_ii?OkgY^0@hG(!5KkVS)UlQ3wfEk2w-j~jnZY z!j!(mKsVz4UN5{$a1=U!b;B8WX+;=Wl}PSJ@9_Bg3!3kCEG!{1naEgO@VG30qu{t< zlWC>+Qj#iBu++fqr5&ES@(_qqcvOeCikKo^`!-p*UD!BySWbMwTec9xy<7)g8LYPl zWrv5{M$Yjk6`h_#ug-Q^NvVW`GHuJH^H#sdb7!)ZJH=RaB(cABtdtjO{2gg|FgIJf ztek~CkGK8kfb{S{W=yIoA-$EWQtwzciO7}3;G{(C)bScY+}mTW$=Fx;{ogrcC3j;z zXC<;~WyPmuf8)80>%;6gJ*b3d>1uY^(h6{r|M@EcrYsf;*__Lc0Ut+sU#Yl6KSnqe z3^&q^UnN``4B(M>WZI@P;+~tWOk%I(oQf`Vrxni_um;kZbbhSN_4{xQ))eoHm@;#1 zAzcx5ebK%gKBXB>tG{FEZ&JRWdK|g=QS22Ox!l$2EaTG zQ5sTsB455ua%(`%(J*BDX*1-LQ~>UPHww(>c7kT1mOLOWJ-H-KAn@yk<}6b94DE#` z3s&Z#iS43jAMm}vR{`IPlSVpi73#|4$9&+`er?FlT@8D?pr?~IQ3uX}dhuo9Mp)Q| zuU}Tv#dwLBq;qldm_g}5X-S+?Vj<1qnjGkjON)3{&uwCReHS;Hfk+*a@$_cJwo=ZUj3c5^ZmfY;@25^|HM zn@n<(X-1I81R%s9%3u-$bgfdgHTcS-XDlvH!&I-R7D&a0pL|;7BP-zrZ3uE4#^5j$ z@evU)p2%{ZK}G~4#Z{OX3A_?jb+e-Qv`4G0<<_HjW>%rhY?hmi6B%?t@#ZS@e(~lY zHytUPHZvSFW>allVOA}4L7Grd4`Td+N}4hYncARfptEXgaYWSMMd)!)#bRXL$&b+W z-rlbA>9`K9C>_T5txG6c;w!cW;{LWIj)0c8lXk|5_u7e(b@}{=y8!$24_T)_hVadZ z0tf=|>rNb3aZgPPu!j^MU?db`BwBpfO&;S;3NfRm#-%*&CeKMD_>#a^*bn?iTN&Td12Uf{Y8Wyepr3dH^pikPt80VnL&MT`MT@;2 zDz9OEwsZ|P(|E2L;{`P3GglST89XHiy)Q5M(`DH4Q~Y6w)l68c|B5+=Ns9{^ z_rwxst%~}zDcf?15j=L3w${9Jxx!K0du_hzCPk+&U)!s#vc&_-tkl`~Mgw!auC!*FPuy*qix##m#P?V@o8~2rP1u2tVEpR<=S?3Q zpZed{j;G?N49@{_23fj^(jcFFxu0{`244r2H;hGy=>jW%!Y?dtvF zn?E}GYV)2|-`;-COZ(os@lBowtIyrhm(Du7$9A||XcOD(bkgh@GdnX0$JxRCw8I{_ zdZN&~U2R&)*E8YFyK|TQHu!DW0WU1wTnB%d#JhCf$LEkH(2fm&!@#+9{=S)a>P+GPv#CRw z^}q&2x)c2|f@chF;UK)3gZRlblkO%HzeT9OP1?6Y>fY#;gKcP$zHy&> zQrOEUQES=ivfXU&66urivM2V;iT!eplg4`g?_V39f4)0EVmw=UJ&BJ{E3fw7c{InF1LP3gt@z(}>(C#ptdsqm z*De#c@8^e*KlN2)=Vr%t6F_8tCqEB*?&|g0+Kpn&d;jTlojZJM*So{A_DNUqAy_%? z;;B{~NBIzl;yLQx+&lR0z?>+(#4Ddh6DPV@407(Ko9LZKzrEu8y~7!E)cYr`Mr^Jd zO&kQ;DI9#QY~0efruCdgli!D?5*fTUSlKvcIgRI^HzBeDn?gAwG@&5ttZXdgvgbO< zAsksbt;7DS?$)F|d~U)Sj*qrAn!|}~dKb2l{=bAtZBS*JC1u@sbCSo&**J@M!{2CT zaUQ&~aok(}cw%Ivae=ELpDQ?c)v(L{koGKUlya!sv62NGq>gzwC^>6S0d`ucO}X?a zo@)jz=R;~;>}xe~mG$7!AX(s-BgZOutkFNiJJ@9X>ANGU* literal 0 HcmV?d00001 diff --git a/ArinLogin/Test/obj/Release/Test.pdb b/ArinLogin/Test/obj/Release/Test.pdb new file mode 100644 index 0000000000000000000000000000000000000000..9d50e34a51cca9f0e82ab82cb57a0abefdeadbb5 GIT binary patch literal 36352 zcmeHQ50I3_mG40u76h})9|Z(6zyb@x?9T22y9m1f1!Yf^RmdG?cXoFcChpEIGqb=N zlT56fr=_XGD$3J4y&@Hfn&YC$!JX#d4kO8-CKXIHho=%WoP}4$KX=xZx$^XWzwUnD z^bWKCB3=Zh;m!NL?)SQ1zwUnB{l5ObZH%_XyA$0V$v|y!?PZq*8rL-hmIX^nCXAb2 zw@x99(*M;}xa{;XLa91~a=&MR1`d9l3+J*1Dr_GTq?k`{e^>1EYxTWTwH&nd%<&)oh zU6`3>mwpnJ!)J*Gve|!5hpzqSJ*%6E&k_}!)75z5$i(HHKRQydw?^$Myn5y@4%J_C z|C?|8qF~3B>fp8C9`&sY9=!dJ3p##TaA2WQALOk*(DI#F)z8~+Tl4qt*1Yib_`~+I?(u)6SLu@x8X$UpuFjdInYgbhZDlFa7gpe)HegoJh_5!ZY9A^lH@^ zq=Iu=)YH}ek1qQ1l#6d)-*wZTikg4(t$FyIR_Ym4`P0?@ALT##v+D2cJuqX;%eO3; znd&`*RB%pIAWrAS+HV|5}C>1yrlTOI4@4sLB#DzbcI(qypJWYDTJ=;{l!=?s$00Czn$17xZ* zh}sNBD!}!TM0anzEs_Ydt9EWfNhfa+XaTwRPIrrHv z??N8yz*vpM3xSJq{}k{CfSYiAVK$~uEAEolOMG{r;C~>9amujwp-)H3cT$ zO21)cMT&6Ay!R|`IPG7d78bDZ$Imw+lp3Ue=P9LIm2#_1kz})&+{SP$ zyeSfA^hN5t0_L*^{K8B6*{ZN$4(E(uV_#7C66q`QUh2{`_K6Y24AT>dC;O1MlSgBp zoq3cRhxmoe`xE3*iae^;Zdks(t8?Y%WU^;@aq+fo+k)H5g5B{=#Ty#e6o)D+D~e;` zu1KOM+@_mrVVWnF$ih`xQc_Zk3}cC6Eqm44+v%59iiCPR&CRZ-;Ef+&TCC)~}?o2X9!5`UUH^CnGVoyzV1x1D9r9+vZ4DxIfV;Wn9-AiTCLu z6vveCvo^t|zMe>X6BE&2BmD|<%hI&`xxRawOT_l>mmg_#b}kidRR&$U-pDaM4qYye zE6H0%v|H2JDxhsC77Q9gy-G}bK$dl>+p0HD2`4qk)Pys#WSNWw8pzXwaL zy{@zKEwb^#eAsK+VCJLkb!~5FvNx`67t7rX;wtcwN9bseib5qNOP7|Fm6cojHfH}~=3^!UPtZSD|D=$gHzP;0;N*W5Bi%*Ee2i$T%hXJG__kzQS+hnIg0re0*r2aT2HvuvQOm& z0%Qc=d`(+o?seHxXDkDB9;96kTB_u7%~OQ7o~+)-eIDR800Z+40N5us0=5Ho0QLYr z?La+A+udgibNdtY@YhPXA%tYqd6pqnzud-CqDbX(c_g z-E(WZ%sD<-ZGqUytixTe3TD#`P;0(|bTqT1n51>)f7gfW2aF&-N+r*|Lr6<#xVa#6=E* zx6!~ghOhrI8Q0gwYU2^?zBzAmTZweN2f+9)0x$W5Hgk;gzRK(YN-HbU`wy=BLER4Tt-uUA<75(t~EedAG zA+B;^gc``!{$)-c*w_0{;@-BuUMR|#XZw>@(udpr;&0#>W#C*P0b{~{3F37U?M-cW zS5GgTuOMK#N#M~)B#+PyRj&9Oz~)VrPPX29S?u6Ly72yTp`ZKbB3>s^uIluYLds6r zXrp!kD4Wm@S2lEEPc}Deu}h`aMwi>Z?&=KVz+ddjc0hTssQ~#E053&S040LPad14Cy%sU3k@}bs~=qZYh8KP zM_SiK;#;FQI6zvq-C@YI5xnFR+M(onA(ZO1u<>lZUle0t2_w%?lRtFUt{ z`%d7=z&nAlmQg2wi-2cfo|q1=5@BfBOGO zE9sfzCFlRk`Tsig6KDAKa?f@@)n~hd`3agh$Pq3!NdI1jaovh5J+7;JlilmWTO-ax z7|x0G1+E1z`GhuejPu_532+oG?I-Zoc$gd+t~N;jE<)LTxYA{FEmark2;(s&6It#C zlsOuF_JrPCEZK6NW?AX9(dx#U!enzi(owjk#9Kpfe&ifu?3wXD;1=n| z&hZ+$(DO6>4O7)$VU7*zIgNWpqa&ZEXHGxNk6{+*#{=AIFD6Z@J92s_8~No+^F zsjtt|7uI%qp9Q3!S8~6FXL2b%cL@RqfQx~b0;8-H~@$L+MD)lE4O79of2XGDp8y zdy!LoII=%PeZ25F$asy&==g9BLmsZBNh|3?$&^{%K`IY{woO7l%DZ05tKWiy?yr|Vzcz>E_2NWYn$j-lK>|F7ey907*~Z8n`^t<+4Nc_?q8e0 zM;@UYN+#L&VZY|d7^$fq#Wfgg}W<2=3e&W);q-hs= zw5FeC-_O6Ak+11P+4DWFY18Ww+51;OK8~aD=!b=XRe%;i5^y)*A;5mXQNX)^yz`X` z04e~vFt7%oDy$dH^Ph*<5fM1XBwUJNe@yIxo!^*7yFlJu;32)xWZDJpOLFJ5bLX^k z=d?$DmWSg^=5ASo?%<$9xSqz?20ZKbe=K8kbu601+4$%!5kBJRjzwbLzWNc2RoY7O z3Vr5y<-P3ZOR=exHRxn-9=B`IL^9snmedPyS!WMO6EgWgM9f689>~b2G+kG*M{BtG zMUeT4*M+F-b*O``J|6;vn%8uP+qFH~iTG9EA-&LK)-Pv|a_^0>ALZ=P?`My=U#9*r z#x&;j8i3d-*^9km$L?$r*f1AkH!5SdrZ<`Fj)j_Q@!samW<9YMJVycK5xUIr>)NL> z*bI>e{xDCTTJVcJT=%vB%=*OVt!=nIZUQi1Z<)friTkb8MZnw#(1yVGk%Dd2_W@w+ zqf-;ql_<#g%_hK$!L|SSSWUB>MV?*tdG`5Y#0RXchK#x#o?&7+Sl_4U58zoPm|7J8 zZUCMI+yV?e=>5z*;M;LOANXG2BH+IT#ICAsVh2li81?`+RmpoPx{c~l~gN}UIF1fPX|M-@o>XNUuUwJ3Nq z3kN&|*bg`gco#69o#+e?&@X&uX8nJ+tqb>`5+-BJCP&%%*74<#?+yTIC4G>ws(pUq zqd+@&V|5^34*g{eu8MKa&z}-mT!#zjxF6X8%&|rup&Lpj@l&8rcrv+Jiye_Q$zCfL zeKQg;mi@Ooa=E^oBG5k$AidBGC6nk0_QsVdt1pMo!5LgVVVwAPh&+zdg*tiyveY4s z^g=U~Jfb6v5lc3ZH%HrsyY-^By5JRbr`E9pbYB<;qzs}NwuadzL(2N+U3b0V~6d}a6He5h&Dz9G}^v-^gW zkNKKsXq3V9$?W-#*0komJKB8HM|`@!;I`kqF&4C(2gU(oZ1Zd`%2@9ar{BHDV-v16j97cUKw(-Bk4ey__SkBRX#rF9pZGN+C z{u3 z1}Wd3;7=r1U{UH^1THXsV5PD!dhB}O9hRUp+*942_82$hRd z?u~QJbt3mvg#g-J+V53>CO`|I6R;hy1MmRg5x@z+y8xaOo(u>8xW}phaKFNLEH(l* z1CoFg;BEkIEZ1E70er^EbMwamZvj34j7F960W$za06sIV0&xAY0nh`u6>tY&Ctw#~ z58w&FA;1y9D*&!l-UrZbjt3M1N&qVWs{k#4&w992U8vVhPzy$G?X``UHP^?I@xJD@ z-BEfDXREn7o!!nizz1M1QVSfKlBM_rN(p_3(=9K*Ibe9xFa8UUNwYlIcnS}{3E)%x zKNcW7Ce89xqLik$bGQy0lQDOiI7{1+)*strj1tdaS}qfB=tEdUN}uDJY>aZf zc4;1yW_d7|OJCRsoogQJtP}Z7yrsu{F7!MDHAbbqUP5o;Ej{LOp{EYViLP)h^d{cY zLqF0kd^S5yWq)`pyoSc|LSIsUKKC4_oQI)Kc_z*9lww>951+M+Q~e*pNI53W@?dPc zb;`@qF050Y?Jpsx46fz#251+PX6xdVQG|Y?c{19?#9MmU4w2~zO@C^;n0QMMn<0AU z8b5D{{%>e3FYJf#zN>i$@BfCz@?wn3I+Omnyo~;D;w)_#%K8HY&hgvEhI~*XPN=Cn zrmOisxkOz#i8d!64Z8^O2bpLCeBGo&c>AD6_%VMS%KiILl0y7Bbr5TLhC={mmFNE( zFUM29N9TMVvZ1oNVQE=u4S5*`FK3Dxk9`IM=L;54k)@pUCnnX>n);=s)n(P1XYjo9 z^`4Z3+_y6Cz_EJX>L7JU=k0yIa!EsVsJ6D&RAKNk3RH<*ZE&xPuBJ+kXDh>a?V=U;|Z0M=n@R{eNy#x~T|FDqZNY&fz{*6#`EypgfiPgdFG^PQzj zLe&-J4H(A^gUfx9O3}a|6hSG>TMd>szBOuQ_od6~%a(>pFn$>ZFJr12ZOfn^fn}t! zwy%{RWwxsG{OUI1 zw?^9|@s^OPs41%`t*@;^9t?xm@nUt{_OBJtBm36}qcg^#o#rmjLQ{$cPv zpK8afX}*U?jJHp`divC|3QUpMOP(57FPL4-nWqM(@g18&n`G6Y?|9t`xOjlHKEz)= zK-$xY7g<<83C!~_z}PMGoWM9fN0+c9LO@occf z2__x++L0!5W~TA%ufz!!K0bev@GqogU?$i71s^CItW_&1{frcc${uY zo{l*WW73a$=fSTv4xIeQ@BYX?!`uLV!d-y97W3ML4{=|H@`v@|dFSKs^8MBRpXMKF zF5*+{_kH=(`)PhhW@nb~SKzRu)^_~&W!u^cH7ohM5VpA)Wda-5gbQ_pn`=qU;WJDF zgZ=&Ad<@NEd=UC(ekEI(@1U#VM7*tdGgc&#cxz`jj_&D*4!qx;D2{x>KmYLwvWjQ@ z8y=q^Lp*vgf6l}GGZ0RG!yfq#&#?5D{sCZ|4a;RNZW;mJOSK-2Ie!@!?-?rl>*e;uKW4^AlGHA?@R#RYvQ?E6#&cv%m&N>6awY~<^kpdSjPo`g@DTdivWuO zK|nE}1i%dv_d(nzlmoc$;no&zEv-{-&zA!}i=p BZ}0#B literal 0 HcmV?d00001 diff --git a/ArinLogin/Test/obj/Release/Test.vbproj.FileListAbsolute.txt b/ArinLogin/Test/obj/Release/Test.vbproj.FileListAbsolute.txt new file mode 100644 index 0000000..58d2226 --- /dev/null +++ b/ArinLogin/Test/obj/Release/Test.vbproj.FileListAbsolute.txt @@ -0,0 +1,13 @@ +E:\Tinsky\Visual Basic My Class\Test\bin\Release\Test.exe +E:\Tinsky\Visual Basic My Class\Test\bin\Release\Test.pdb +E:\Tinsky\Visual Basic My Class\Test\bin\Release\Test.xml +E:\Tinsky\Visual Basic My Class\Test\bin\Release\ArinLogin.dll +E:\Tinsky\Visual Basic My Class\Test\bin\Release\ArinLogin.pdb +E:\Tinsky\Visual Basic My Class\Test\bin\Release\ArinLogin.xml +E:\Tinsky\Visual Basic My Class\Test\obj\Release\ResolveAssemblyReference.cache +E:\Tinsky\Visual Basic My Class\Test\obj\Release\Test.Resources.resources +E:\Tinsky\Visual Basic My Class\Test\obj\Release\Test.vbproj.GenerateResource.Cache +E:\Tinsky\Visual Basic My Class\Test\obj\Release\Test.exe +E:\Tinsky\Visual Basic My Class\Test\obj\Release\Test.xml +E:\Tinsky\Visual Basic My Class\Test\obj\Release\Test.pdb +E:\Tinsky\Visual Basic My Class\Test\obj\Release\Test.Form1.resources diff --git a/ArinLogin/Test/obj/Release/Test.vbproj.GenerateResource.Cache b/ArinLogin/Test/obj/Release/Test.vbproj.GenerateResource.Cache new file mode 100644 index 0000000000000000000000000000000000000000..6c38b3431633e287cfda58b61d52be6284c29634 GIT binary patch literal 847 zcma)4&1w`u5T0>&Ci|1X29zLr7{r5+rP*a!^s)$UTn%O+CLwsxL+^AAX}5Pebj^f} zPmp);;KPU)@lo;)TGeQf%^=p{o9gQ7s;}ysAPj=wCmDa)Ht!I8nCsM8v{@lul-ek9 zB5{f0VkE}>=N?HVlc|a+0$$| zRO5jh$%uPBsc&%v_zLnpIEP$8o@zkm({_OGX4(MmEF{8#&X=J0yr&(cg>_Xkd{kd> zy_7H4pqibC@jqTM+fDTsqsGJI3JX|?sWpb$(=t%JmUvdkg#q87NpG4A|4iMWgwBDL zY9@Jzjo+JXP3`JjI&eKMI<*Q8oxRWsT#Ez8`V%y1xfq{HQvwD-qY*?=w^i3`|4*&Q zHJtZv)xUoG?0L+rI$gqc#K7ksdpud}InS(H4F!pE8Mi2Se_ka-@gwcxJqc(_mje3h z9zXUQX_M3L5Jc<^>&3dQ{w{^Q^1RHhxe*?BZiKD)N7&5>a=C&BYjGp7m|LYY4eH+7 z9b9TGFeZVwLQm2U%@clk`Stql=O0&L$do + + + +Test + + + + + + \ No newline at end of file diff --git a/ArinNet.dll b/ArinNet.dll new file mode 100644 index 0000000000000000000000000000000000000000..018c55fea8b109a06b5e606ec88e9330b03ddce5 GIT binary patch literal 12800 zcmeHN4R9Psm3}?5J3G6wHX5xg+emiSNQRXyFOn?Bc5u$Jek_aFmSV|vk`u_I-I2Ux zcV{!Z8(VOgr9!CW;^Y#ljsvFx2}yB*suZCT$REckBzJHZk|O*S+*Lt*6*wRP?vB85 zKqdFRo|)a1EJ8T$imD^Mn%DhazkdDt_3Jm?Jvw;hEu<1r0ME-W6Fr2S(}0Ap3@WIO zUie6q9tc0R@gZ^Gsf|-7GR1hovF9B#7f+e_yj_aVT5+eGk7x4n;ql3M&Q4p&#>Pme zCwgLp=zs{&57vDDsNdVOq-<;u4McJ7z@_H*AZL644}&-|#nl@nsXym*2Ob^_l0pO5 z5jDxbTJE7P3$;V;IG2wT{X+MM^;v~z72^X$?VP{b6ep?|rvu+#*EU(QPL+U{E(AcG zd_28@$rOiH$zs|pnM5CC$^agWnSA4+$Z3FRG3gYY6v}c8$5Dvjc>|uhGyvA5V`XhH z$}v??$?|&e)TIHU!8-J{;{Rg{Oz^rwV&7CKNNM=YLu-kIq!LZUYcatiy<+wNYM=hc zpL~wn--;(Yxlk-wx#VH1XqTOoRjif{TV~pFy5qTG%677u+3xsJ%PD5;{3ZR#9{zR5 zhsxPf*|9FkTji2tX1n7P<=Jc|b*Z&5WnX3GFPYu3!`zMU-@kKUQ>1b-4=JqzY>gW(;oMve@R%0CyH%{Rr9`N+PyI4(P_0(MU}Wxf%0uzHMYc- z&C2FjkHXQDLy4g_(@U!{hBoaz4B1X=SOD`Rz=M$)$~)JAWWNreA#?@wGwO<*%3M)+(*v*X~2>6*O}`57o6?AN1YcQEMWx{zjXVg&A8PYxI%2cs>tCfxB(AMj3HnV4wFT(fX2@=?)mdm}Z36d?OY%!barg2lt$K`Q?`l zt;G|G=7CyyrdxBiK*r`8LsB)g%|=lAkxKK>26Me^>=?L?flDIo0uA&Ti@;+V zFiD?(36q4y+Xnx=7|LUtVO-dB6C6fF5?i5PA_-u>383}tD&58_GSc|%)teH%D8vHJ z3@p-^=mYX?3d3lE7YbHZTL-O%>xo#8N`DH<1$AmHDo(PGMPiJ+$(cVbYXBs?n9|7~qZSHENW8uAT#YTVQ`6 zN+%_}J8&kT(bIuP0}*Nreh+X{Fb4m;GI&W)qrV8+fcFOb(AP775&9u&HQK4I)1q`h zdklTeNO(V>M&~r<{2pMGehEs1)`z|a`Nu-s_N^#K>3yMhhBUeb6phXTM(HDgH&lr-StbbTO`&>pHXfH=NZIKf<6CD zxswlIn_Mic-j4aW+{3o3p8&Qfv6%kX>Vv@O4a^zSA5}jKti{8=pgsnyU1F}yH0qa_ ztEWc0CDy8M2z(v$IN`PHlNe8qiswRKQhLRUp*6HuYO+f->CY;A>2>;dm36d1|CQ23W4chs zP#aRm1Z#Vlgja~$bW6QLwlYEawt6+-chv=1`yRkSaf5`nO86lO@09T45`Id;hb4SW zLIv}44{UfXjfx~~Q_cpG^egdeH3{3cp}a-;d%!nK_`LWb=sy)d1ssx;1|@~sm{I_I zo-S3A)Fvf#DE9;g5c9uF1GI%2#gHryQ5(HTW9ZAm>~T3I=^0Qi7Zu5QEfv9kExl7h z=D7j23*ru0dza+Diyo)Xi$zI!T=x68r2hlpwEC>1|3H>WaPQbLKoeDbRWu4!uw)gH zp-oi<_oa#_L61w$xa90WZBgxz^bSy_)h=lClsX`52PEf^tR0dPhNR>nDfzgpJuW#b zvV4bxiymZ6o|R=%q;3jRl46_KDJ~K37atIJijRp;<9CU2O1WG4s`5kS0<~4m;}^i1 z)39=Nz%XD$zD>IX-?99Qm;$_2TmkrF@ixFuD15JRrTPWHZ>e7b+#L8Pz&(HpqKFC@ z#7}{=5MT(>6zr)Q09z5i1+4|9&>9Kb;3tS}uxc5<>#13+gU#M3I+ZQTZAzfR@t{7v z4+tVvH3|9Fci;U!F#>6vmh$yg1##gXyt9Jf&?HwA&MrFuPqP@Hh=w_B+aO2@3(Nz1t=gJU*Lop5l#o;2sI@ma10*EJa&xR3XO5n_CC z}^D%sF}#rDINJBI2Y z-E%#;BSBNycHSz@R5^0h;?m&~bJg`tImVXp94W$(%qR;vnJr`C+IsWmW|o+H8Fzh$ z^{qy(#@rUkrctZ3-z=UO!fhx`Efg#!$b8CnH@-B4=_^??Gh_K;$;_uvqAALF2n}b7 z1-rPknpK1tzrk;?El;BBBFV8l94K#QX~;(DROzUhEnDypwxuMnR#kB*A2d^Y(`kpi zYZi7!JST1Es?c`iPt&$*p&P>U%aZATB7ic`6T^K2yK)-N7h&*7Y%b zPTCELwdN3KxwJ!O?tBfF4mvq(6*KdB+HYkGxE+K?rfZUXFLAE|t3#}6aM-Qjwzz;~ zr*v1dJEvYPFV6kYG+SM&`y4yxQTD=HuQ55ExvRE1mj@R{9lKnpd2~%Ho>I35_9M5n zOjEf&?Lt*ij2Ul-%#ukRn{XZ4i^v&7{;>(!ke6N^6~kJA7u3Dk?D7>WjW9M**LpdJ zj8!~@6)Q&a^aQN$|BZkChA!OW&CA}Zwyrek?> zCd;!$S0ZYGbLlo@AZ`xu0V1q^Kp(BpNj*+!Y zX9>l-?Y7c1RyXGgp$rF63n9Pn2ph{8pI9bUC#`g&a%1ZWMltI)6Q1+*GDi zAE$k@r?Y%9W{lvyzn@0vFdYKK4th-wKGJHUGx$j7n=kyz@!;L0KlqO6qwD&gy+OZk&&<1xuSYIc<0NoZhL5?_yeg!vZeA;z zS23b{h|Y-NAqFEY9?}xf(T0J}z+li4hzq41LiIqLnpdL`RW?wlNr(-EyhjMpw1IFm zL3NB+&^nxG0tq0{BC3&C-@G2@UG8V2sx@!I)5XXp23@#N62Q^XCI(%o?c|D1#yW#> zA&l+1f9Dj8Dlg9IH0T>xBl{HfJXjH)* zM0LF-)X==X*^GjX2hnWlvVqW}Iw{TX;-BhK^mUKFpXG%iZmek~&#Y&ylLpw}f2jZ9S|bhrOumoNU>KtDV#mpv z3;dpK;x_SWO}w9%La+NNm~gvJojdyGthv6q{;fSbdN11A-?O8Ct2vw6w)G-wwzof( znl)3ivj}j4bPk~>v3Gzw;fkOd$>WKku6Vq!r?)5095|T^YV~>J-c}|)lr^z6K^peH zjdS^JT#j?;{N#T_cWZEXa)z_ngC;tV=X=Xax}hBZVY7+i1Lq6)15^C}y-}dYpW$gA zz|%=|cyf61+%sL@dGCwo#vZxl>}}8e`ljn^#1XKBh$ln3cHtlsW|=o zd+&bX_6L6S=MTN`!F%G*-*?*!w^!mnI&PD9;9jSB{yx) zzI__I0}EFIJ}p^DV;Wyee*g=pa;YbXD)=7C-^MEZt?f8+WOYfwJsZ&}&^a{Ra$Y^W zNqmb)B z%bLx4v9s-|KKw0s75LfeCCQtI-q||s{r>%3aT>L}9lsp6x&pgti{@nu9({op5Si8??Q;ck`xyGMomP<@~5=lm{?cLh~)}p|K0=^=>H^}Zegy%xMNVDzVfa`e)A;9FXwU!5vq$N8`1CTX>0lPf`hPIX+#2OCAD>X&@#^uy zBdbMU(P!^?>$ST3p855!-YR_J_eB4O=W-5?J@EMF3tRuS@Rh|vTpYFbmF?f^TKPuH zqwBtZZuN<;#=iZG-ZF|wC-WOFh0c92?(~Pp&;RD-eYb}7hJP=I%KzKibDmta_Qkti zdg?@%Z{UTOhQDQQjUEh@|D$CG#@_SqfB82P9=&_*iXV>Mb8A>{`1f+C{9o{sy(fSE z^M$)k&H2?APVHS&J^U?mYxH2K{NKCf)c(?=|FQVLs}6NO_2!3f-5S;#{=FP3|6d%x zVdM*o{;~DsZ(r?bZ1^ZU{)b6u43+<GRxB&4s;FF6SyCBTw!E~g3MG}H zfWIQ(+u1BcO?A`f;^A1lY0ZX)x~5g#-L=6)uxVX16zpi)6z=S9@~yAiR38g=hId6{ zUtGEwq>*UX-8;*Ce&4EiJlxsb(X%R%h((%rB*Jlu3{^MnkP_RYo#CcncXtaVc1Vc{ zDX}Y@Xmup+v?T_$#9)fVR2^%hp&gy!u0*`)Oz-mp2acTm@ciQo5yIP~y zvsb#Ah;HUO_2z+aJh~$m!g%-;JQZ^q`xN}t7)~T2U2UIA$Ks|fyI(UfyQP0#HGqOI zTZM~qg?I{Jr(8^nQNWi`xI|aH0X!dkzmHd=UIpN0G$q}ZlDok(Gf(+Fd(fHv7moM5 z_LVn1mOZXX^O2xphsn2Lwql`i7UGezpTFzrlUwmjqtQ^T3j>=(K0~|kxtH=u%QDgu z+q86;q5bK5d)^@}9Y|W%*|c<;q5bZ>J%2`8I+L`lvuWu>LwhXtVmoQ+T+*`6re%N_ z+PQ!F@F~(Va7fEKo0dUiXs3Meev-5dBGR(XrbYJuCBYQJCl(j7@$LMBv`8WO7hTGy zkLe5H3xyKVn3y7R3(406Ag!stO%xTb4EX)!<)tN6m3(h7UqZQ-e;Tw*V-%8qAt&FD zCn>)zoY+JY*M0ixsXAZeCSe(HXL2J)zUibM&UWFgP}>+ zVTQH`eCOz(MOq@mf~ASHw8ceKJ_26y8QOF`j9>CB zJ#10N79T*y8i0x;j}w336Dt5rUlAh7w)O%~0)7(sPT*M{k(?n)#0;?v-~&_$$}0k> zc=0%WV}GUrn7#!5LUE5ntNfXn_HjvD<i$KN&OL4X;bd$cf&1t-lyEKCKF6ANZ32Zfmjs26z* zofQYAB>^E!989$0z!Kxcr16`Q9{i0!vJX|olM%{Zqs(SCU#^co||((IqBS%Bs< z^Zz57c$~!qyE<#KsC#%vup{pHeK+VxyA?pQTYi`GznO;+8_qnWML0e;u}9xAVeWI% zXk=TElU4VI6KjI;_L^u*m;{WyBp*;o9z&O|gNZ%RI6By(%p7Fq<6fG{~U!&tPRFzs)OHsaXa)rLH6z`a`@ zct~$((%UySfG?f)EisNS%=)-r>u@_{ngl=RW6o5*sELJxiSV{y;-quP#b#YYXGV90?UQ`W>CjczHtW#C6N0+o01k$jC7A$?cNV zp$xS90Hihb={lHLF!P`qR~|XWD4#O9CNN!;^WZ{fol)`camJ5Ldr8tRc4$?cW?qxf zNU{(!g3&?6RA#vtv!GodX;(le<#UhpKXs&exPCE>1}*34F~G2q7$~63_%l0QLZebIODACZ5@ECOe+dJvkN0Dl4AJ*MdSr z%X-H1Vtr#qIVC&~Y}{JCyR+l&_C%t)y101Pu3f%erM_sat$1t0y5c}pRb_D(ZVBVv z!H}F&7rQ)N@eEugxRoo0z^-_)T5mR1H}=GFL5TKdNM4=y)kHfwa07;mFK$}r3|8m6 zR}FB`+^J|9%vYj(nr?m38K z%8UmOBG1^4A!K5_17np2M}Lw9V!9ZOk&qs%j9boWM}{Ew=tnch@?61GqLBPM1^)jh z3}jiw^O?D%Y6x}(+vKrC&To{%GdOt-y`10bUH@d`V{0|zgK_G{htF74o~_I}gtf|9 z9}R&qIoGsW$T|8So{KiRyzI!BSSc5#g{doIpjOxT|}X)64E-u8FRj*i5R zn6uyEd9@pSdk2{*=GGGAKw>pf%Ls+90 zpfhuwby4*_^BDyu0H0bHIo_3ynaBHQK+EwCUBI(2Wo_cU5)-a9PjCHd{ne#a2AkmGu*#qbU90g?4jb{Ole{=3Trq$ydXcG3@ z`F+SZaf$PR#vv%3_n}Z!Y!jQ!^5mTRV z>#lw_TPhVs?1IlE#AN=Dkdal^UiLW37NU@}raoPNd;DwyT_1pZIAbf0ORh6a>u}EC zy+{M_B;fVHGk`Y$&j-FAcsjmCKN%~`bTJ=Lg6G+Cym3uZI(Qu2Idr&=Fl_@b*NYG^ z4Y^(7JFs_Mkg|5@?#px32?)3V7zamr=`1TTYwkX3*$~oMh2&q@B>x>eNqKNsLol?e zrN#XWU?q4+Z)m1)A6&o5Y{K!`xv!QR@CmZqDhAK|^fDjF`Mv-@&W&}-53Q*LeUUv^ zs56E+UYWTbapsJtU`w!@pPcZHh5oYZLi%GBycf_NjwK?z$>*5lxU%Ui7t8g8Az{~d zspF31W$f5>XTJTyz;j0j9^Z#@j#-WgyMEx=-hn^a?^3aS#&QbH_xGRadtu-kFKQVh z)9e5K$eBOifA)`(1J6E&Dyhfl6dFA@M9PZRVbD+y-p#pf==xwR7VMEEat_0uP420_ z3Y-Ju(SFpAXDyc(Yno+0Gba$6wS6Nyjnqm3I!(kF`WG#e_lF!qY@OAdKi9y>>%d1I zLubuDrGYYcZ7;ZjzwNp!`P-(m)nQE0-*&z6H|ywcyY7K-Vm-rwc4D{fI@im}2lTUD zpD7mT>lB)_SfDRb>NCUweeKd*9t&7QF0W6Eg(Qry1|3=ee|(_*#y&F6T-jHTg%)-i zsY)UF7wbVj?;;^q-X+UdrqB+@m>Te>L)qb;`BN z;a|H6=_`(TnCg{hmZPERpK8y{UC%oI;_i}ug zJBGt_GScT2l7DfA$PZ_>Ny<2BN2A{XKY0!PV79@&CB-)LwQcP3RNJVg*nir`rZfF# z46vVW-R1Gcad26ET6`TsKMtWEvqAec-EYdqqs5E&6fD2ka}D?9UN~BGxqwj-Q-;0_ul_FiSsb`4aop7Xp;@V zn8T7Sz-S|x&=@Y3XN7NR{8zx_KdkXT0OMSf{3-A(;FG|20G|fF3-}E19N+@c3_Ugh z76BG(yaab&voTI`;K+?As|VBo=3}Q*0{nnz6n`M=Ni!O|*aAo&Ezi)?@jO%Rr2ly@EmB1eYuLkD&Qv;j_Tn9V~xE^>e zF!q?qdx1X-+z3p2Kd3R!;~P*um^}-iU1pm;4ja$I9@K}uXes(!4!9rBwJ4hjD27!_ z01bFvY1w?Lv~dUYR&$ldnd=aDVmp9o6LjL-y#<*2;H|*3fvG#}%<-Ho*ZE4|Cgck+ z6DglBknI&9@|2&|oqsRr)EwY(<`T}&j7g>-WU$RSpn zo&Fi4i_brS*y+y^;(Gu*ivPkN;?F@};#YDNo{necXKT8>x_-8%KdAE`>HKV+FVOg) z=G&n$>@VfLuIayLurB`}-R^l!e^BSEbpEWSo2Sb;S3!jMg0BCeZuc==zE_ujq|0B| z`G++>c?tif^Ej)?{DV6Gj^-Po%OBHtudc7s^_)8?hhv|(O4E(jbg%33yLCRI>pM07 z0iE|CpTj^NB&FA{OrrxkW=AU_v(hdi!4;B}uj*4MS85*iEk(XAH^|~QMJd>-Pm!NO zbgdaBAw?Z#sAI;oQh2UdpZamL65+jE(xCFOih7eN>W~@U9NeMF%f-tQu1#EjiU3%9 z^t6ejCDH%JYGuZ;|wEDKBgq9#yA#upzor^9(pV_8XCITdH33VFP7!+l?5@ z5o}An#c0}5<(eKF2-6N@QqkLQ8@lbNdd*ki_K7waCEIb|PBU$(I>i$Rxw^4D*Sr{o zXPZ7(=r$_dHjwEhF+Cx`k+g{N7B1*_!xRsuIZb( z_nucc9{QvvugpfVLo$1V)cS1hX0rg_+sYN0-okR@S<&d&LHsjzXoo(@oB8D{6L*S6 z^I~$Cpn3UDR4(Qm^-j5(Z&aD4#pck^a-4b6XjPe}#R1Id#PWPOj?+Imcl)Dg6mI}? zhnd$dVC*Pf_d{pX4^^jmta*ce~9a*W?>ikHeGzJSRGn@I>y7CP@5Llf%59e0ma5l$SaVD)@Xjcm&s-{* zHWiKL#kzAVCC>4?Mh83yFYYh*O&9g|&k%i&@_oyG#Pw2?_pwr^DZo4f;w0TK5&o!O zhqHel&eRZ36pT+M?pOKPeW1|`B$N9&IbM}=zO+$aS{|sY=XXe$t}K7N=!Kq4;~|{# z{m%~~UwnCx|Cu3nuP~rTpivEFV3wHy*XC{Z+L!6};iNT3b_u zpA8@#2JkU?wYE03<7M2I#$aoBLo>hei9YU(w1i{Z17dmQ@`_S_2}YhuSGMC+afFvP zNc+)WsYXUS;xjr?Q|~XSt1H9!WV*84N#YmUKd*t7a{CWvw4a%*YC976n zi|r=M@5NA`cHPeSjQYbn&i1Z+dAYyRUyFH`>B{{m6#EpJJbOv|Je#o}u6+GrTaPF$ zg~dv%YH^SF1K)Yc3t8ISTB<@Gyzk6%-oY{%TKz1)D>X*eunw+pp4E4f+&Y)jBg#wB zwEaC8xptEkR5|NY>sTz4MS+o~;yi>P1q90i&->EkC)Zr$pJ($({ z@U%eYxZeo2=|{=;BV;Bxb*6^x6&1dNEbo_?@~lHUb>W?ID;t(|Zj0pOU8oKz@Tu=i zk&fiNv*hO&Opxg$4{jFuj+z;)SneJ$l^*EK_sviy6R=l5N|}7W%=F#Ru-=2)dA{ev z`)ej+b3RiSzSm>u)9d&h98+gxlP?GV3S_@M7%ytX@HZpO_ZCbU@hExE!CTv0^mPQ< zABlET|52u$c=!DmC}8{(uK6bkuG4q2%~X-{mF(-(mOBC3-~S%U#^h?Ne#QW{HNX9! z-H8&N=scBfmrhpCrZ$UjA`4vU_n-N`Y4N&9mwX>bsQ2_maXc0(ZpW4*9Bam}b9_-1 zv_?9@@#1S9tWt>L2@U!0eheyn$bPHiI<;^OzoYRfw4C-^7uUZmqvS~UU>p?4C$%PW^TaiAGhj4e4uF*8X!l5Ow|FJpo(``hL(e z-+?~!z9azyY{&k9=g3K@N0r>;@aRBWEdy}lSPa0mf(QU;Tki8{XYS1=0%%{_ns%j4 zX-E2mcIAGNKI1-z=hLZxX@Kbfe%{PJ&H~`w1KcObcMoKrXXBZ^n+qrc%md5^EC8@y diviq&ECEpen=zH$jGfB%DQkhO1+K{g{|oCRj_v>e literal 0 HcmV?d00001 diff --git a/ArinNet/ArinNEt.vb b/ArinNet/ArinNEt.vb new file mode 100644 index 0000000..6a6a8e7 --- /dev/null +++ b/ArinNet/ArinNEt.vb @@ -0,0 +1,106 @@ +Imports System.Net.NetworkInformation +Imports System.Net +Imports System.Net.Dns +Public Class MyNet + Public Shared Function GetMacAddr() As String '//MAC주소를 볼수있다. + Dim computerProperties As IPGlobalProperties = IPGlobalProperties.GetIPGlobalProperties() + Dim nics As NetworkInterface() = NetworkInterface.GetAllNetworkInterfaces() + Dim adapter As NetworkInterface + + Dim 출력용 As String = vbNullString + Dim 카드타입 As String = vbNullString + Dim 맥주소 As String = vbNullString + Dim 임시맥주소 As String = vbNullString + + For Each adapter In nics + Dim properties As IPInterfaceProperties = adapter.GetIPProperties() + + 카드타입 = adapter.NetworkInterfaceType.ToString.ToUpper.Trim + 맥주소 = adapter.GetPhysicalAddress.ToString.ToUpper.Trim + + '//VMWARE NIC 까지 감지를 한다. + If 카드타입 = "ETHERNET" Then 임시맥주소 = 맥주소 + If 카드타입 = "ETHERNET" And 임시맥주소.Substring(0, 11) <> "005056C0000" Then 출력용 = 임시맥주소 + + Next adapter + + If 출력용 = vbNullString And 맥주소 = vbNullString Then + Return "UNKNOWN" + ElseIf 출력용 <> vbNullString Then + ' MsgBox("맥주소출력") + Return (출력용) + Else + 'MsgBox("임시맥주소발견") + Return (임시맥주소) + End If + End Function 'DisplayTypeAndAddress + Public Shared Function GetMacArray(Optional ByVal OnlyEthernet As Boolean = True) As NetworkInterface() '//MAC주소를 볼수있다. + Dim computerProperties As IPGlobalProperties = IPGlobalProperties.GetIPGlobalProperties() + Dim nics As NetworkInterface() = NetworkInterface.GetAllNetworkInterfaces() + Dim adapter As NetworkInterface + + Dim 출력용 As String = vbNullString + Dim 카드타입 As String = vbNullString + Dim 맥주소 As String = vbNullString + Dim 임시맥주소 As String = vbNullString + + Dim RetNics() As NetworkInterface = Nothing + For Each adapter In nics + + Dim properties As IPInterfaceProperties = adapter.GetIPProperties() + + 카드타입 = adapter.NetworkInterfaceType.ToString.ToUpper.Trim + 맥주소 = adapter.GetPhysicalAddress.ToString.ToUpper.Trim + + + '//VMWARE NIC 까지 감지를 한다. + If adapter.Description.ToUpper.IndexOf("VIRTUALBOX") = -1 AndAlso adapter.Description.ToUpper.IndexOf("VMWARE") = -1 Then + + If OnlyEthernet Then '//이너넷만 할떄 + If 카드타입 = "ETHERNET" Then + If RetNics Is Nothing Then + ReDim Preserve RetNics(0) + Else + ReDim Preserve RetNics(RetNics.GetUpperBound(0) + 1) + End If + RetNics(RetNics.GetUpperBound(0)) = adapter + End If + Else '//전부다 + If RetNics Is Nothing Then + ReDim Preserve RetNics(0) + Else + ReDim Preserve RetNics(RetNics.GetUpperBound(0) + 1) + End If + RetNics(RetNics.GetUpperBound(0)) = adapter + End If + + End If + Next + Return RetNics + End Function 'DisplayTypeAndAddress + + Public Shared Function GetLocalHostIP() As String '//ip주소보기 + Dim objAddress As IPAddress + Dim B(15) As Byte + Dim sAns As String + Try + objAddress = Dns.GetHostEntry(GetHostName).AddressList(0) + sAns = objAddress.ToString + Catch ex As Exception + sAns = "" + End Try + Return sAns + End Function + + Public Shared Function GetLocalHostIPArray() As ArrayList '//ip주소보기 + + Dim B(15) As Byte + Dim sAns As New ArrayList + For Each objAddress As IPAddress In Dns.GetHostEntry(GetHostName).AddressList + If IsNumeric(objAddress.ToString.Substring(0, 3)) Then + sAns.Add(objAddress.ToString) + End If + Next + Return sAns + End Function +End Class \ No newline at end of file diff --git a/ArinNet/ArinNet.sln b/ArinNet/ArinNet.sln new file mode 100644 index 0000000..63b7602 --- /dev/null +++ b/ArinNet/ArinNet.sln @@ -0,0 +1,20 @@ + +Microsoft Visual Studio Solution File, Format Version 10.00 +# Visual Studio 2008 +Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "ArinNet", "ArinNet.vbproj", "{F0FB4304-F995-446A-99B7-0896A5E07A72}" +EndProject +Global + GlobalSection(SolutionConfigurationPlatforms) = preSolution + Debug|Any CPU = Debug|Any CPU + Release|Any CPU = Release|Any CPU + EndGlobalSection + GlobalSection(ProjectConfigurationPlatforms) = postSolution + {F0FB4304-F995-446A-99B7-0896A5E07A72}.Debug|Any CPU.ActiveCfg = Debug|Any CPU + {F0FB4304-F995-446A-99B7-0896A5E07A72}.Debug|Any CPU.Build.0 = Debug|Any CPU + {F0FB4304-F995-446A-99B7-0896A5E07A72}.Release|Any CPU.ActiveCfg = Release|Any CPU + {F0FB4304-F995-446A-99B7-0896A5E07A72}.Release|Any CPU.Build.0 = Release|Any CPU + EndGlobalSection + GlobalSection(SolutionProperties) = preSolution + HideSolutionNode = FALSE + EndGlobalSection +EndGlobal diff --git a/ArinNet/ArinNet.vbproj b/ArinNet/ArinNet.vbproj new file mode 100644 index 0000000..77f1337 --- /dev/null +++ b/ArinNet/ArinNet.vbproj @@ -0,0 +1,96 @@ + + + + Debug + AnyCPU + 9.0.30729 + 2.0 + {F0FB4304-F995-446A-99B7-0896A5E07A72} + Library + ArinNet + ArinNet + Windows + + + + + 3.5 + v4.0 + + + + true + full + true + true + bin\Debug\ + + + 42016,41999,42017,42018,42019,42032,42036,42020,42021,42022,42353,42354,42355 + + + pdbonly + false + true + true + bin\Debug\ + + + 42016,41999,42017,42018,42019,42032,42036,42020,42021,42022,42353,42354,42355 + + + + + + + + + + + + + + + + True + Application.myapp + + + True + True + Resources.resx + + + True + Settings.settings + True + + + + + VbMyResourcesResXFileCodeGenerator + Resources.Designer.vb + My.Resources + Designer + + + + + MyApplicationCodeGenerator + Application.Designer.vb + + + SettingsSingleFileGenerator + My + Settings.Designer.vb + + + + + \ No newline at end of file diff --git a/ArinNet/My Project/Application.Designer.vb b/ArinNet/My Project/Application.Designer.vb new file mode 100644 index 0000000..501d5bf --- /dev/null +++ b/ArinNet/My Project/Application.Designer.vb @@ -0,0 +1,13 @@ +'------------------------------------------------------------------------------ +' +' 이 코드는 도구를 사용하여 생성되었습니다. +' 런타임 버전:4.0.30319.18051 +' +' 파일 내용을 변경하면 잘못된 동작이 발생할 수 있으며, 코드를 다시 생성하면 +' 이러한 변경 내용이 손실됩니다. +' +'------------------------------------------------------------------------------ + +Option Strict On +Option Explicit On + diff --git a/ArinNet/My Project/Application.myapp b/ArinNet/My Project/Application.myapp new file mode 100644 index 0000000..758895d --- /dev/null +++ b/ArinNet/My Project/Application.myapp @@ -0,0 +1,10 @@ + + + false + false + 0 + true + 0 + 1 + true + diff --git a/ArinNet/My Project/AssemblyInfo.vb b/ArinNet/My Project/AssemblyInfo.vb new file mode 100644 index 0000000..ba2590f --- /dev/null +++ b/ArinNet/My Project/AssemblyInfo.vb @@ -0,0 +1,35 @@ +Imports System +Imports System.Reflection +Imports System.Runtime.InteropServices + +' 어셈블리의 일반 정보는 다음 특성 집합을 통해 제어됩니다. +' 어셈블리와 관련된 정보를 수정하려면 +' 이 특성 값을 변경하십시오. + +' 어셈블리 특성 값을 검토합니다. + + + + + + + + + + +'이 프로젝트가 COM에 노출되는 경우 다음 GUID는 typelib의 ID를 나타냅니다. + + +' 어셈블리의 버전 정보는 다음 네 가지 값으로 구성됩니다. +' +' 주 버전 +' 부 버전 +' 빌드 번호 +' 수정 버전 +' +' 모든 값을 지정하거나 아래와 같이 '*'를 사용하여 빌드 번호 및 수정 버전이 자동으로 +' 지정되도록 할 수 있습니다. +' + + + diff --git a/ArinNet/My Project/Resources.Designer.vb b/ArinNet/My Project/Resources.Designer.vb new file mode 100644 index 0000000..5dcf448 --- /dev/null +++ b/ArinNet/My Project/Resources.Designer.vb @@ -0,0 +1,63 @@ +'------------------------------------------------------------------------------ +' +' 이 코드는 도구를 사용하여 생성되었습니다. +' 런타임 버전:4.0.30319.18051 +' +' 파일 내용을 변경하면 잘못된 동작이 발생할 수 있으며, 코드를 다시 생성하면 +' 이러한 변경 내용이 손실됩니다. +' +'------------------------------------------------------------------------------ + +Option Strict On +Option Explicit On + +Imports System + +Namespace My.Resources + + '이 클래스는 ResGen 또는 Visual Studio와 같은 도구를 통해 StronglyTypedResourceBuilder + '클래스에서 자동으로 생성되었습니다. + '멤버를 추가하거나 제거하려면 .ResX 파일을 편집한 다음 /str 옵션을 사용하여 ResGen을 + '다시 실행하거나 VS 프로젝트를 다시 빌드하십시오. + ''' + ''' 지역화된 문자열 등을 찾기 위한 강력한 형식의 리소스 클래스입니다. + ''' + _ + Friend Module Resources + + Private resourceMan As Global.System.Resources.ResourceManager + + Private resourceCulture As Global.System.Globalization.CultureInfo + + ''' + ''' 이 클래스에서 사용하는 캐시된 ResourceManager 인스턴스를 반환합니다. + ''' + _ + Friend ReadOnly Property ResourceManager() As Global.System.Resources.ResourceManager + Get + If Object.ReferenceEquals(resourceMan, Nothing) Then + Dim temp As Global.System.Resources.ResourceManager = New Global.System.Resources.ResourceManager("ArinNet.Resources", GetType(Resources).Assembly) + resourceMan = temp + End If + Return resourceMan + End Get + End Property + + ''' + ''' 이 강력한 형식의 리소스 클래스를 사용하여 모든 리소스 조회에 대한 현재 스레드의 CurrentUICulture + ''' 속성을 재정의합니다. + ''' + _ + Friend Property Culture() As Global.System.Globalization.CultureInfo + Get + Return resourceCulture + End Get + Set + resourceCulture = value + End Set + End Property + End Module +End Namespace diff --git a/ArinNet/My Project/Resources.resx b/ArinNet/My Project/Resources.resx new file mode 100644 index 0000000..af7dbeb --- /dev/null +++ b/ArinNet/My Project/Resources.resx @@ -0,0 +1,117 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + \ No newline at end of file diff --git a/ArinNet/My Project/Settings.Designer.vb b/ArinNet/My Project/Settings.Designer.vb new file mode 100644 index 0000000..9117447 --- /dev/null +++ b/ArinNet/My Project/Settings.Designer.vb @@ -0,0 +1,73 @@ +'------------------------------------------------------------------------------ +' +' 이 코드는 도구를 사용하여 생성되었습니다. +' 런타임 버전:4.0.30319.18051 +' +' 파일 내용을 변경하면 잘못된 동작이 발생할 수 있으며, 코드를 다시 생성하면 +' 이러한 변경 내용이 손실됩니다. +' +'------------------------------------------------------------------------------ + +Option Strict On +Option Explicit On + + +Namespace My + + _ + Partial Friend NotInheritable Class MySettings + Inherits Global.System.Configuration.ApplicationSettingsBase + + Private Shared defaultInstance As MySettings = CType(Global.System.Configuration.ApplicationSettingsBase.Synchronized(New MySettings()),MySettings) + +#Region "My.Settings 자동 저장 기능" +#If _MyType = "WindowsForms" Then + Private Shared addedHandler As Boolean + + Private Shared addedHandlerLockObject As New Object + + _ + Private Shared Sub AutoSaveSettings(ByVal sender As Global.System.Object, ByVal e As Global.System.EventArgs) + If My.Application.SaveMySettingsOnExit Then + My.Settings.Save() + End If + End Sub +#End If +#End Region + + Public Shared ReadOnly Property [Default]() As MySettings + Get + +#If _MyType = "WindowsForms" Then + If Not addedHandler Then + SyncLock addedHandlerLockObject + If Not addedHandler Then + AddHandler My.Application.Shutdown, AddressOf AutoSaveSettings + addedHandler = True + End If + End SyncLock + End If +#End If + Return defaultInstance + End Get + End Property + End Class +End Namespace + +Namespace My + + _ + Friend Module MySettingsProperty + + _ + Friend ReadOnly Property Settings() As Global.ArinNet.My.MySettings + Get + Return Global.ArinNet.My.MySettings.Default + End Get + End Property + End Module +End Namespace diff --git a/ArinNet/My Project/Settings.settings b/ArinNet/My Project/Settings.settings new file mode 100644 index 0000000..85b890b --- /dev/null +++ b/ArinNet/My Project/Settings.settings @@ -0,0 +1,7 @@ + + + + + + + diff --git a/ArinWareT4.sln b/ArinWareT4.sln new file mode 100644 index 0000000..23f5eb3 --- /dev/null +++ b/ArinWareT4.sln @@ -0,0 +1,200 @@ + +Microsoft Visual Studio Solution File, Format Version 12.00 +# Visual Studio 2013 +VisualStudioVersion = 12.0.40629.0 +MinimumVisualStudioVersion = 10.0.40219.1 +Project("{2150E333-8FDC-42A3-9474-1A3956D46DE8}") = "SubProject", "SubProject", "{4D184935-DE50-4DBA-9EBF-8C66C579B7DC}" +EndProject +Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "ECO2_2016", "ArinWarev1\ECO2_2016.vbproj", "{D5C51BDE-68E5-42BC-B648-DB9CCF044703}" +EndProject +Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "ArinNet", "ArinNet\ArinNet.vbproj", "{F0FB4304-F995-446A-99B7-0896A5E07A72}" +EndProject +Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "CEnergy", "CEnergy\ArinClassV2\CEnergy.vbproj", "{2AF28E8C-84F1-4D56-9592-3B0EBDE8DF14}" +EndProject +Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "ArinLogin", "ArinLogin\ArinLogin.vbproj", "{8B6E4D7F-B484-471A-A419-2FE3451D26A3}" +EndProject +Project("{6141683F-8A12-4E36-9623-2EB02B2C2303}") = "SetupIS", "SetupIS\SetupIS.isproj", "{29519861-1577-4862-9732-B55894AE62E2}" +EndProject +Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "ArinLog", "ArinLog\ArinLog.vbproj", "{E9E16A98-8F8D-4848-A27E-4571C184FB1A}" +EndProject +Global + GlobalSection(SolutionConfigurationPlatforms) = preSolution + CD_ROM|Any CPU = CD_ROM|Any CPU + CD_ROM|Mixed Platforms = CD_ROM|Mixed Platforms + CD_ROM|x86 = CD_ROM|x86 + Debug|Any CPU = Debug|Any CPU + Debug|Mixed Platforms = Debug|Mixed Platforms + Debug|x86 = Debug|x86 + DVD-5|Any CPU = DVD-5|Any CPU + DVD-5|Mixed Platforms = DVD-5|Mixed Platforms + DVD-5|x86 = DVD-5|x86 + Release|Any CPU = Release|Any CPU + Release|Mixed Platforms = Release|Mixed Platforms + Release|x86 = Release|x86 + SingleImage|Any CPU = SingleImage|Any CPU + SingleImage|Mixed Platforms = SingleImage|Mixed Platforms + SingleImage|x86 = SingleImage|x86 + EndGlobalSection + GlobalSection(ProjectConfigurationPlatforms) = postSolution + {D5C51BDE-68E5-42BC-B648-DB9CCF044703}.CD_ROM|Any CPU.ActiveCfg = Release|Any CPU + {D5C51BDE-68E5-42BC-B648-DB9CCF044703}.CD_ROM|Any CPU.Build.0 = Release|Any CPU + {D5C51BDE-68E5-42BC-B648-DB9CCF044703}.CD_ROM|Mixed Platforms.ActiveCfg = Release|Any CPU + {D5C51BDE-68E5-42BC-B648-DB9CCF044703}.CD_ROM|Mixed Platforms.Build.0 = Release|Any CPU + {D5C51BDE-68E5-42BC-B648-DB9CCF044703}.CD_ROM|x86.ActiveCfg = Release|Any CPU + {D5C51BDE-68E5-42BC-B648-DB9CCF044703}.Debug|Any CPU.ActiveCfg = Debug|Any CPU + {D5C51BDE-68E5-42BC-B648-DB9CCF044703}.Debug|Any CPU.Build.0 = Debug|Any CPU + {D5C51BDE-68E5-42BC-B648-DB9CCF044703}.Debug|Mixed Platforms.ActiveCfg = Debug|Any CPU + {D5C51BDE-68E5-42BC-B648-DB9CCF044703}.Debug|Mixed Platforms.Build.0 = Debug|Any CPU + {D5C51BDE-68E5-42BC-B648-DB9CCF044703}.Debug|x86.ActiveCfg = Debug|Any CPU + {D5C51BDE-68E5-42BC-B648-DB9CCF044703}.DVD-5|Any CPU.ActiveCfg = Debug|Any CPU + {D5C51BDE-68E5-42BC-B648-DB9CCF044703}.DVD-5|Any CPU.Build.0 = Debug|Any CPU + {D5C51BDE-68E5-42BC-B648-DB9CCF044703}.DVD-5|Mixed Platforms.ActiveCfg = Debug|Any CPU + {D5C51BDE-68E5-42BC-B648-DB9CCF044703}.DVD-5|Mixed Platforms.Build.0 = Debug|Any CPU + {D5C51BDE-68E5-42BC-B648-DB9CCF044703}.DVD-5|x86.ActiveCfg = Debug|Any CPU + {D5C51BDE-68E5-42BC-B648-DB9CCF044703}.Release|Any CPU.ActiveCfg = Release|Any CPU + {D5C51BDE-68E5-42BC-B648-DB9CCF044703}.Release|Any CPU.Build.0 = Release|Any CPU + {D5C51BDE-68E5-42BC-B648-DB9CCF044703}.Release|Mixed Platforms.ActiveCfg = Release|Any CPU + {D5C51BDE-68E5-42BC-B648-DB9CCF044703}.Release|Mixed Platforms.Build.0 = Release|Any CPU + {D5C51BDE-68E5-42BC-B648-DB9CCF044703}.Release|x86.ActiveCfg = Release|Any CPU + {D5C51BDE-68E5-42BC-B648-DB9CCF044703}.SingleImage|Any CPU.ActiveCfg = Release|Any CPU + {D5C51BDE-68E5-42BC-B648-DB9CCF044703}.SingleImage|Any CPU.Build.0 = Release|Any CPU + {D5C51BDE-68E5-42BC-B648-DB9CCF044703}.SingleImage|Mixed Platforms.ActiveCfg = Release|Any CPU + {D5C51BDE-68E5-42BC-B648-DB9CCF044703}.SingleImage|Mixed Platforms.Build.0 = Release|Any CPU + {D5C51BDE-68E5-42BC-B648-DB9CCF044703}.SingleImage|x86.ActiveCfg = Release|Any CPU + {F0FB4304-F995-446A-99B7-0896A5E07A72}.CD_ROM|Any CPU.ActiveCfg = Release|Any CPU + {F0FB4304-F995-446A-99B7-0896A5E07A72}.CD_ROM|Any CPU.Build.0 = Release|Any CPU + {F0FB4304-F995-446A-99B7-0896A5E07A72}.CD_ROM|Mixed Platforms.ActiveCfg = Release|Any CPU + {F0FB4304-F995-446A-99B7-0896A5E07A72}.CD_ROM|Mixed Platforms.Build.0 = Release|Any CPU + {F0FB4304-F995-446A-99B7-0896A5E07A72}.CD_ROM|x86.ActiveCfg = Release|Any CPU + {F0FB4304-F995-446A-99B7-0896A5E07A72}.Debug|Any CPU.ActiveCfg = Debug|Any CPU + {F0FB4304-F995-446A-99B7-0896A5E07A72}.Debug|Any CPU.Build.0 = Debug|Any CPU + {F0FB4304-F995-446A-99B7-0896A5E07A72}.Debug|Mixed Platforms.ActiveCfg = Debug|Any CPU + {F0FB4304-F995-446A-99B7-0896A5E07A72}.Debug|Mixed Platforms.Build.0 = Debug|Any CPU + {F0FB4304-F995-446A-99B7-0896A5E07A72}.Debug|x86.ActiveCfg = Debug|Any CPU + {F0FB4304-F995-446A-99B7-0896A5E07A72}.DVD-5|Any CPU.ActiveCfg = Debug|Any CPU + {F0FB4304-F995-446A-99B7-0896A5E07A72}.DVD-5|Any CPU.Build.0 = Debug|Any CPU + {F0FB4304-F995-446A-99B7-0896A5E07A72}.DVD-5|Mixed Platforms.ActiveCfg = Debug|Any CPU + {F0FB4304-F995-446A-99B7-0896A5E07A72}.DVD-5|Mixed Platforms.Build.0 = Debug|Any CPU + {F0FB4304-F995-446A-99B7-0896A5E07A72}.DVD-5|x86.ActiveCfg = Debug|Any CPU + {F0FB4304-F995-446A-99B7-0896A5E07A72}.Release|Any CPU.ActiveCfg = Release|Any CPU + {F0FB4304-F995-446A-99B7-0896A5E07A72}.Release|Any CPU.Build.0 = Release|Any CPU + {F0FB4304-F995-446A-99B7-0896A5E07A72}.Release|Mixed Platforms.ActiveCfg = Release|Any CPU + {F0FB4304-F995-446A-99B7-0896A5E07A72}.Release|Mixed Platforms.Build.0 = Release|Any CPU + {F0FB4304-F995-446A-99B7-0896A5E07A72}.Release|x86.ActiveCfg = Release|Any CPU + {F0FB4304-F995-446A-99B7-0896A5E07A72}.SingleImage|Any CPU.ActiveCfg = Release|Any CPU + {F0FB4304-F995-446A-99B7-0896A5E07A72}.SingleImage|Any CPU.Build.0 = Release|Any CPU + {F0FB4304-F995-446A-99B7-0896A5E07A72}.SingleImage|Mixed Platforms.ActiveCfg = Release|Any CPU + {F0FB4304-F995-446A-99B7-0896A5E07A72}.SingleImage|Mixed Platforms.Build.0 = Release|Any CPU + {F0FB4304-F995-446A-99B7-0896A5E07A72}.SingleImage|x86.ActiveCfg = Release|Any CPU + {2AF28E8C-84F1-4D56-9592-3B0EBDE8DF14}.CD_ROM|Any CPU.ActiveCfg = Release|Any CPU + {2AF28E8C-84F1-4D56-9592-3B0EBDE8DF14}.CD_ROM|Any CPU.Build.0 = Release|Any CPU + {2AF28E8C-84F1-4D56-9592-3B0EBDE8DF14}.CD_ROM|Mixed Platforms.ActiveCfg = Release|Any CPU + {2AF28E8C-84F1-4D56-9592-3B0EBDE8DF14}.CD_ROM|Mixed Platforms.Build.0 = Release|Any CPU + {2AF28E8C-84F1-4D56-9592-3B0EBDE8DF14}.CD_ROM|x86.ActiveCfg = Release|Any CPU + {2AF28E8C-84F1-4D56-9592-3B0EBDE8DF14}.Debug|Any CPU.ActiveCfg = Debug|Any CPU + {2AF28E8C-84F1-4D56-9592-3B0EBDE8DF14}.Debug|Any CPU.Build.0 = Debug|Any CPU + {2AF28E8C-84F1-4D56-9592-3B0EBDE8DF14}.Debug|Mixed Platforms.ActiveCfg = Debug|Any CPU + {2AF28E8C-84F1-4D56-9592-3B0EBDE8DF14}.Debug|Mixed Platforms.Build.0 = Debug|Any CPU + {2AF28E8C-84F1-4D56-9592-3B0EBDE8DF14}.Debug|x86.ActiveCfg = Debug|Any CPU + {2AF28E8C-84F1-4D56-9592-3B0EBDE8DF14}.DVD-5|Any CPU.ActiveCfg = Debug|Any CPU + {2AF28E8C-84F1-4D56-9592-3B0EBDE8DF14}.DVD-5|Any CPU.Build.0 = Debug|Any CPU + {2AF28E8C-84F1-4D56-9592-3B0EBDE8DF14}.DVD-5|Mixed Platforms.ActiveCfg = Debug|Any CPU + {2AF28E8C-84F1-4D56-9592-3B0EBDE8DF14}.DVD-5|Mixed Platforms.Build.0 = Debug|Any CPU + {2AF28E8C-84F1-4D56-9592-3B0EBDE8DF14}.DVD-5|x86.ActiveCfg = Debug|Any CPU + {2AF28E8C-84F1-4D56-9592-3B0EBDE8DF14}.Release|Any CPU.ActiveCfg = Release|Any CPU + {2AF28E8C-84F1-4D56-9592-3B0EBDE8DF14}.Release|Any CPU.Build.0 = Release|Any CPU + {2AF28E8C-84F1-4D56-9592-3B0EBDE8DF14}.Release|Mixed Platforms.ActiveCfg = Release|Any CPU + {2AF28E8C-84F1-4D56-9592-3B0EBDE8DF14}.Release|Mixed Platforms.Build.0 = Release|Any CPU + {2AF28E8C-84F1-4D56-9592-3B0EBDE8DF14}.Release|x86.ActiveCfg = Release|Any CPU + {2AF28E8C-84F1-4D56-9592-3B0EBDE8DF14}.SingleImage|Any CPU.ActiveCfg = Release|Any CPU + {2AF28E8C-84F1-4D56-9592-3B0EBDE8DF14}.SingleImage|Any CPU.Build.0 = Release|Any CPU + {2AF28E8C-84F1-4D56-9592-3B0EBDE8DF14}.SingleImage|Mixed Platforms.ActiveCfg = Release|Any CPU + {2AF28E8C-84F1-4D56-9592-3B0EBDE8DF14}.SingleImage|Mixed Platforms.Build.0 = Release|Any CPU + {2AF28E8C-84F1-4D56-9592-3B0EBDE8DF14}.SingleImage|x86.ActiveCfg = Release|Any CPU + {8B6E4D7F-B484-471A-A419-2FE3451D26A3}.CD_ROM|Any CPU.ActiveCfg = Release|Any CPU + {8B6E4D7F-B484-471A-A419-2FE3451D26A3}.CD_ROM|Any CPU.Build.0 = Release|Any CPU + {8B6E4D7F-B484-471A-A419-2FE3451D26A3}.CD_ROM|Mixed Platforms.ActiveCfg = Release|Any CPU + {8B6E4D7F-B484-471A-A419-2FE3451D26A3}.CD_ROM|Mixed Platforms.Build.0 = Release|Any CPU + {8B6E4D7F-B484-471A-A419-2FE3451D26A3}.CD_ROM|x86.ActiveCfg = Release|Any CPU + {8B6E4D7F-B484-471A-A419-2FE3451D26A3}.Debug|Any CPU.ActiveCfg = Debug|Any CPU + {8B6E4D7F-B484-471A-A419-2FE3451D26A3}.Debug|Any CPU.Build.0 = Debug|Any CPU + {8B6E4D7F-B484-471A-A419-2FE3451D26A3}.Debug|Mixed Platforms.ActiveCfg = Debug|Any CPU + {8B6E4D7F-B484-471A-A419-2FE3451D26A3}.Debug|Mixed Platforms.Build.0 = Debug|Any CPU + {8B6E4D7F-B484-471A-A419-2FE3451D26A3}.Debug|x86.ActiveCfg = Debug|Any CPU + {8B6E4D7F-B484-471A-A419-2FE3451D26A3}.DVD-5|Any CPU.ActiveCfg = Debug|Any CPU + {8B6E4D7F-B484-471A-A419-2FE3451D26A3}.DVD-5|Any CPU.Build.0 = Debug|Any CPU + {8B6E4D7F-B484-471A-A419-2FE3451D26A3}.DVD-5|Mixed Platforms.ActiveCfg = Debug|Any CPU + {8B6E4D7F-B484-471A-A419-2FE3451D26A3}.DVD-5|Mixed Platforms.Build.0 = Debug|Any CPU + {8B6E4D7F-B484-471A-A419-2FE3451D26A3}.DVD-5|x86.ActiveCfg = Debug|Any CPU + {8B6E4D7F-B484-471A-A419-2FE3451D26A3}.Release|Any CPU.ActiveCfg = Release|Any CPU + {8B6E4D7F-B484-471A-A419-2FE3451D26A3}.Release|Any CPU.Build.0 = Release|Any CPU + {8B6E4D7F-B484-471A-A419-2FE3451D26A3}.Release|Mixed Platforms.ActiveCfg = Release|Any CPU + {8B6E4D7F-B484-471A-A419-2FE3451D26A3}.Release|Mixed Platforms.Build.0 = Release|Any CPU + {8B6E4D7F-B484-471A-A419-2FE3451D26A3}.Release|x86.ActiveCfg = Release|Any CPU + {8B6E4D7F-B484-471A-A419-2FE3451D26A3}.SingleImage|Any CPU.ActiveCfg = Release|Any CPU + {8B6E4D7F-B484-471A-A419-2FE3451D26A3}.SingleImage|Any CPU.Build.0 = Release|Any CPU + {8B6E4D7F-B484-471A-A419-2FE3451D26A3}.SingleImage|Mixed Platforms.ActiveCfg = Release|Any CPU + {8B6E4D7F-B484-471A-A419-2FE3451D26A3}.SingleImage|Mixed Platforms.Build.0 = Release|Any CPU + {8B6E4D7F-B484-471A-A419-2FE3451D26A3}.SingleImage|x86.ActiveCfg = Release|Any CPU + {29519861-1577-4862-9732-B55894AE62E2}.CD_ROM|Any CPU.ActiveCfg = CD_ROM + {29519861-1577-4862-9732-B55894AE62E2}.CD_ROM|Any CPU.Build.0 = CD_ROM + {29519861-1577-4862-9732-B55894AE62E2}.CD_ROM|Mixed Platforms.ActiveCfg = CD_ROM + {29519861-1577-4862-9732-B55894AE62E2}.CD_ROM|Mixed Platforms.Build.0 = CD_ROM + {29519861-1577-4862-9732-B55894AE62E2}.CD_ROM|x86.ActiveCfg = CD_ROM + {29519861-1577-4862-9732-B55894AE62E2}.CD_ROM|x86.Build.0 = CD_ROM + {29519861-1577-4862-9732-B55894AE62E2}.Debug|Any CPU.ActiveCfg = DVD-5 + {29519861-1577-4862-9732-B55894AE62E2}.Debug|Mixed Platforms.ActiveCfg = DVD-5 + {29519861-1577-4862-9732-B55894AE62E2}.Debug|x86.ActiveCfg = DVD-5 + {29519861-1577-4862-9732-B55894AE62E2}.Debug|x86.Build.0 = DVD-5 + {29519861-1577-4862-9732-B55894AE62E2}.DVD-5|Any CPU.ActiveCfg = DVD-5 + {29519861-1577-4862-9732-B55894AE62E2}.DVD-5|Any CPU.Build.0 = DVD-5 + {29519861-1577-4862-9732-B55894AE62E2}.DVD-5|Mixed Platforms.ActiveCfg = DVD-5 + {29519861-1577-4862-9732-B55894AE62E2}.DVD-5|Mixed Platforms.Build.0 = DVD-5 + {29519861-1577-4862-9732-B55894AE62E2}.DVD-5|x86.ActiveCfg = DVD-5 + {29519861-1577-4862-9732-B55894AE62E2}.DVD-5|x86.Build.0 = DVD-5 + {29519861-1577-4862-9732-B55894AE62E2}.Release|Any CPU.ActiveCfg = SingleImage + {29519861-1577-4862-9732-B55894AE62E2}.Release|Mixed Platforms.ActiveCfg = SingleImage + {29519861-1577-4862-9732-B55894AE62E2}.Release|x86.ActiveCfg = SingleImage + {29519861-1577-4862-9732-B55894AE62E2}.Release|x86.Build.0 = SingleImage + {29519861-1577-4862-9732-B55894AE62E2}.SingleImage|Any CPU.ActiveCfg = SingleImage + {29519861-1577-4862-9732-B55894AE62E2}.SingleImage|Any CPU.Build.0 = SingleImage + {29519861-1577-4862-9732-B55894AE62E2}.SingleImage|Mixed Platforms.ActiveCfg = SingleImage + {29519861-1577-4862-9732-B55894AE62E2}.SingleImage|Mixed Platforms.Build.0 = SingleImage + {29519861-1577-4862-9732-B55894AE62E2}.SingleImage|x86.ActiveCfg = SingleImage + {29519861-1577-4862-9732-B55894AE62E2}.SingleImage|x86.Build.0 = SingleImage + {E9E16A98-8F8D-4848-A27E-4571C184FB1A}.CD_ROM|Any CPU.ActiveCfg = Release|Any CPU + {E9E16A98-8F8D-4848-A27E-4571C184FB1A}.CD_ROM|Any CPU.Build.0 = Release|Any CPU + {E9E16A98-8F8D-4848-A27E-4571C184FB1A}.CD_ROM|Mixed Platforms.ActiveCfg = Release|Any CPU + {E9E16A98-8F8D-4848-A27E-4571C184FB1A}.CD_ROM|Mixed Platforms.Build.0 = Release|Any CPU + {E9E16A98-8F8D-4848-A27E-4571C184FB1A}.CD_ROM|x86.ActiveCfg = Release|Any CPU + {E9E16A98-8F8D-4848-A27E-4571C184FB1A}.Debug|Any CPU.ActiveCfg = Debug|Any CPU + {E9E16A98-8F8D-4848-A27E-4571C184FB1A}.Debug|Any CPU.Build.0 = Debug|Any CPU + {E9E16A98-8F8D-4848-A27E-4571C184FB1A}.Debug|Mixed Platforms.ActiveCfg = Debug|Any CPU + {E9E16A98-8F8D-4848-A27E-4571C184FB1A}.Debug|Mixed Platforms.Build.0 = Debug|Any CPU + {E9E16A98-8F8D-4848-A27E-4571C184FB1A}.Debug|x86.ActiveCfg = Debug|Any CPU + {E9E16A98-8F8D-4848-A27E-4571C184FB1A}.DVD-5|Any CPU.ActiveCfg = Debug|Any CPU + {E9E16A98-8F8D-4848-A27E-4571C184FB1A}.DVD-5|Any CPU.Build.0 = Debug|Any CPU + {E9E16A98-8F8D-4848-A27E-4571C184FB1A}.DVD-5|Mixed Platforms.ActiveCfg = Debug|Any CPU + {E9E16A98-8F8D-4848-A27E-4571C184FB1A}.DVD-5|Mixed Platforms.Build.0 = Debug|Any CPU + {E9E16A98-8F8D-4848-A27E-4571C184FB1A}.DVD-5|x86.ActiveCfg = Debug|Any CPU + {E9E16A98-8F8D-4848-A27E-4571C184FB1A}.Release|Any CPU.ActiveCfg = Release|Any CPU + {E9E16A98-8F8D-4848-A27E-4571C184FB1A}.Release|Any CPU.Build.0 = Release|Any CPU + {E9E16A98-8F8D-4848-A27E-4571C184FB1A}.Release|Mixed Platforms.ActiveCfg = Release|Any CPU + {E9E16A98-8F8D-4848-A27E-4571C184FB1A}.Release|Mixed Platforms.Build.0 = Release|Any CPU + {E9E16A98-8F8D-4848-A27E-4571C184FB1A}.Release|x86.ActiveCfg = Release|Any CPU + {E9E16A98-8F8D-4848-A27E-4571C184FB1A}.SingleImage|Any CPU.ActiveCfg = Release|Any CPU + {E9E16A98-8F8D-4848-A27E-4571C184FB1A}.SingleImage|Any CPU.Build.0 = Release|Any CPU + {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 + EndGlobalSection + GlobalSection(SolutionProperties) = preSolution + HideSolutionNode = FALSE + EndGlobalSection + GlobalSection(NestedProjects) = preSolution + {F0FB4304-F995-446A-99B7-0896A5E07A72} = {4D184935-DE50-4DBA-9EBF-8C66C579B7DC} + {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} + EndGlobalSection +EndGlobal diff --git a/ArinWareT4.suo b/ArinWareT4.suo new file mode 100644 index 0000000000000000000000000000000000000000..7e92ca89c16dfc16b8e743a067d822f532d216f5 GIT binary patch literal 162304 zcmeHQ349dQ{htUT;%(J>psWEAm4w~g;ZTxI0w_l$Txv9Il1&ICyJ2_3C3s@3mZC+h zcq1NFLBM6XzN+ede&O4qJQnB6s!O5cV=E@c6Y8#GGt>r`TX+c+IjEyj^F!T z@AqDO;h^_#*>L0sQo?bv)JyvA`@N+;y8FFwo*}Lel%zdyz8B!T@4x?E-0sa2yo6i- zJ9-d`vUd@><>5qfG!{%1UMM*BfuemLji{Y zehfGqa0K8;z)^tyfTID&00sbt0)_yx00RMo0LK9a1C9rr1ULau3K$Of2Ot}8E?^kI z3-AGQ0J(rXKt7-VPzWdjGy!G-MgT?vMgdL+oB|jPC;@l?en1(Z98dum0~iY!2RIdQ z8elwN0$?Iw5}*=rI$$!O3NQsQ6)+7j9WVoM2H;Gh=c`};sZ;`k?R zV4pe>Kw3b0L0XXw7zXeH?8bjF-XZM}3y^Z` z{{_I2#L-L|a4vu}fa9NZ;CukzpE`Z+uFQ*L<=1?9=XvWEU;7W-PU$F}P%-5w{307v zu^cr}f$*t=~)Q(Yt+4L8KHr!_^}0?k#iw)&=Uwp@h9V5I$IN;up+ zy(v^5o*&IF3&a9bnp!VJX)gj?47dca2fq3T7H}irdcYdM&48N#s{ywIZUNi@xD{|4U@hQIz^?#z0UiL{ z3%DDw4sajfA;5aTCcp;3{eX>tdjP)%Yymt7*bMjs;3dGrfL8#I0v-cw13UqE9Pk|A zH-IMrPXV?Ao(4Pvcoy(m!0!RS13V9S0q`Q=HNeM!F92@>mI7V{yaD(p;O~I9033sV z1iTG+2kO$$2jIBg3HTcD4dCB^Zvndi{{egt_zsYPcmEG*slTf7-J_m*RX+woXyh@aRsI=x z?g#a(23HeR$8a^M;v~#P<+xjh@mvRvgQK0iLlpN0ZHPU+`Q;(oJ~Hx~eSaDGa!whIG`*>bND_*D0hQtpAe+zX(u>%$YS zvoR(Xq6PTB1pToU+?lWwQVNm$ui_nigx8Qa-Tyn zpH9Zt{J1af)W|tZK`yOmX?|n6JWlG-3+AH-RUnOEL`LysD0<0w{GPM&Bz$Rt{JzqM zlpd6cGU;S`^&F(Z^q7Pv>D8|k3X(0?b{M4_E%OvI0&F-O`vDH%o2II%oAx$q_C=WHuGf=ZU&e-!wQ&{#kJRxR&>78xsx4rmO z-woTIRptufQr|;yQSex~z4@MJAJnipC+)B)liMQztw>OAg)*FF%hZliKqLAXB?1kD z^qa3WI$9&^CR)*>*qXs&M9$&d#FI!JbyOt0V=vcG_bu`p^ zQ1eJVICUEhX;)%rl*@d)H})Wmgx#VH?O`=a(ofPcZzXNsH*cfbv}+^515*=7$=O&t zxNh5B+hbcYp3%lnPt|iO^lRxOM?apt}krj7I%Lxu;Rv9&a~jOY0Ug!o-Po-JH+qsoa528uGhD*(SZ` zo_IN0NImoq7J6MP{<l9yYlL1O(SlgOxDrR7c2lB%^2{_^yCX!wn}=B zZau9^)NTsOCB{tpS(xwP*+WbqOre&(dtne;JQ?D{j8$={QQzI$_yw#tN^V((l;o^!~yt zx8Ai~>v!qrVPZCVs?Z`WvIlp(Juv-7j((Om;+mU)g%cUSCvnO`e=!x9HDmMyptaR{ zS$BFgXltrEw>HbJRmnpL%_yn5vL1E4i~gQmxy@B#^rbahQD!!p%;q9xGPV%Qr%T)Ufc&GG!E$YZ`u|_-2j6+M;o4uTmljY_cuqB$+& zD8KXsTz4v73G|s^LdKyxIUYv(fSAfw+?{%xu zXGb%f%mlM9Ij+yLS1YeQwfBmJ2Mo%4zBe!vy+NeP8Ucms?2YG7wvUVClC#I#m)wkQ zj0HELtohUIB&_O30eb@W0OZP}ih1Nnn=;(pxZcm&g<8ua#MA-_Yw>415=raS?y6w^mvo)*p;WuCV6lEU;K%ZKVJHdtGqHeP4g`*uHms_}Z*1fAUq8 z4rh6pBO6>S8s$QCsejeNXe`*0?GHCM2kRL9Aeuck5Su!|#OLhDhud^zAZ1g#S0%_MJcT8B`XY_9dvLd#*Sbit`&jj$I_3}6kf{yFy zF~_{%!mTvD*|+Xm^VWgiU03t&(w$SX>UZ|l^^T)(el0qLpa{zM^|ME3$Nvgf<}WYe zNO`e}m+jA(1m^9}S|Tq$0cke)+XaB%j=1~iK3|_X^qtUbavAAT?z!XjZ`V%Wwc?d8ANbRTEw}u>k3reu`+;8fC!`on%Ovm-sa^C3 z(jWc&*V*yAv6JKH{!aehD#As_=U=0lQsXBcyz9`irSq@9>zKU9`mJ%L|L3)HDAxR& zS?`Otqx@{<>hd2S{_q7~ExM?6&y811HtKUqY>@cgVV$=^xz?p6{>kgo6|O0^^UUcN zT=(j2(m8u>SaRv%6AqBpyHtK>{I_4~c>I=*&yJ)`dW~D6Z;BFK@BVfkz3XDnbW}Dm zqJi;Vkcw<^1gNRK%-yj%FT|M4?=VMVU*}x$^E=bDW4naP?juAN=yLjM-Am7LE!7o#NGTr5dPWRTSBa}luE=mHk;^O3SD zU(>;v_W~n&k!Y7!Ck}t3N zXvn)mfq~%uMCx3BVE&L*DzmkllpgoJ5zDr zDt!kJx2iALKN8-)J?{g)QX zk;58*pEh6oFxJZ`@m3q;K4~3&E0A_Ar$_I*r=GH2eeW~N=g(&J<_Q|i6W#ax+w-r44( zL)Z?K$Up)EyA`m?dIHgBs}YxzdoECGNqsRTjaHm>WcQV9#E^)WR!SgW(nGfi^9G}0 zDzsOWH2o-%nYE}&*3m^!e!Y)%de0PA8V&u*B=ZrSew5a3M2q&*W{dRWQS>+%&E}e? zgL%vJyfvgk2A-qxkmk6-4=>I56T22Ol2-I`u{o{{X@{%%Y(tC$FJ_L>9MDLv%5Z<@ z9x;PC*%3h5#pnqa`;`;lm3V1N->dYr+RFc{BYMSD>gngd3eEq&q7@59pZiALfT@e# zdGkQc4kK(5c6&8(Jg{bYh&xZbzL8aUgD0AmeKkx!S%=c ziU`gpetm?Z`7qzPM%mrfEx$OuSFV-Evz`(faYRObaeJW7SGqt=Qt{Ga?IwC^EBj}< zK{HY*nZ8E#bBngyO!BHxWoOW5T&YuKf4;7pBNJB-#7DtaX!m&6dWdrhXgm{AH|?gc zUe|F63&6)Q{>BA>tuFSAt}C%IXWEnazr?<+kAb9kWpp=naW>b)`}iq)h`UpA=i||w zF6ybI7BNquBxj=cU*|&akLO&StWDrd&Q(=u>|ScLLG6F>>)wjPbt71 zZrV8);*7#2?gJ@FT$twujf)HO#_XSFZJGY3~L zxJh}tQi2kEWds~P_q>%5f5V*-*%kGjtd|iwx)WTh^RCvuaOM`PU_|NZo2A7L;cOU@ zb?0Ld$7KR^VbzG*O#3WHb}E|n_!+~Rx72gRM*0^!`-U=u90p8QyU2AolM!jnZj`wR zMml1w5L%>t?Hb(+QA#)M0M2-$&PGU(5J^CiZc9sDsb;@a`o&{uKzV{VFTYTVS_IgzsBr9eGZ(aS7}`VAuqCJ)$j_dKdEzY$e5^14%c{215T z!ugD3S9&9wZnPt`Bw&fJv&kF%V>jca9r^m zZs&9&M$|BVWv(Rc13c1oe2OSaLbs!>G?FAnFI?*a{qD;8KSMgLokKrBuIKKHUqI@d z%o*CnFp#87l-n(i+?f{MxZH`c2PA1AO6ms1?g}~In7cg*C3c^?wWfX@<8HOJ!3iCtR!3 z8cx<4mZ0?R@Z8R&9b?Lu$eASb+_X2j!JEW$Rn~I8)0!tXBJxI}g*qR2xWyeh_4dotZqEJ7)NB5P{X@JPVAgT$H=4hP?XyZ9=j{$L?bypF>;8~Z}tN=Zj8`) zY&zEpiM0A)l-Z5BQ1o>te4trhPb{k+Wp!s>(R*)Lb56!(P2~ELy>xO>cK2x@O?(}P-4%ShBCV;?R1=?C-xluwXoNphSJ~Qf)pvnsFTtg>5j7z z8&UDqu0RQIbFqY)9p3pK5Uj~$x%XU@bfqgCiF5xRu9*& z*Q2|o)tyH))AM^qlp&Ery$CqCBgHzeb$yxHH-yBkNwM+!#Vd5U7A1eq#oBi=b9YRS z5QAJJ_9)dfl&84X68hQQTJkdM|JG~qMxo?x@KCAneP$(3oCyy?S>5u0bvk>Sl{MJ{ zB4)rDuJw(s7^V6#o2VsQfRek#d33J6S!&@KNc)qb3t9H~%I(iSDC+$zl>P}s2-JmO}tO+qLb+Ubr(Lvm);m)q0FyE0` z0$!doT zcSz(>5CA0Yq)Fpd)eBM5tuFH5n%wJL0y3l6#v|}NVBiMLi0559*FPqLQ<>lHtJ6>J z(cS5*qaS}pJPF5S{2tNAqReji0i;4TjC(L6Tf5<5mP*O&>eI+Z!#H@|Ew`JEG;3** zdlI;{Ho=)^i&?qN<*xxQ^^$lh;oP!eH0t8_7Ep8~hoIbUjJx=9TT?gVahHLTx#F{Gy!;Y=gv=xk7Tl**MoAoLm#@%N@2X0))^?dJCamqWmPLlsuiVngO5nX zDr832j5+!0H0U8_CAOYHrl90*P_?A5+!p>+r?E5W;*FdGrE%>>^vRSb3jHC zU9#`QRfo*Jum7ym-VEM0`K9v)?VL;hY7s5*I7}|<;DX;D3V{K8Nz!DPmJWtYtd%Z#Z|TJO7aNL__3=s_-1670{db-5WBS%N;%pM-iAxup zv%K!~_0PU^QU8pWPdn!%`f!L=5@~An_scXIKl(^MJ13sU^MYOf3~l2Y zS%INQxvTk=-CBO?a1%L@t0$j(&bk#JT=IJ8f{9ODch7nhJgMZ2Q67>QQ}OnL$q(X< z@A&^1zt8aLa`xQI0 zOvM|DKcOO-Hp@|+>XUx64}MdQckAVESIKfLv7@}jC`HEcL27&j-rStRnw(s(x4ISG_dTKNniB^xDG@-n@EL_*t5)8$n)t@cBZO4rpKfiqQ zj#YPhK3ji%t6WdimyeP_;84>e5EovO&IK;T0FJ{FoE1q~fC@kv&hn5Fvha+tI?LsI z`8e}|EcxW86^ISw!}BH3Kd_w{3yUoilosP|2yNiOyOq*ZJa53eY=JsNZZE}~L|7@0 zB#n@0-|X7*(AvQjV~r`7h4j4yP|1bre3ymC=D@+FN(#!4nhdKe#Nx7?$jRQ|iZ>qfpxe<&VZvnGWjA_z=;=%28O(eII3{{mG}G~=cP^tF z@iBVM^p8;9u8MGHxBn!0$3o<1b_~J(legj_HP4(^%-+-Ae{T;-dSAWaB!5QFFguWc z-0WcXp8ozP$p1z4hLijm`^xMf{&(V`m{ZN()8F5bBK};HYj!aI+wt%&fYbWF0r@|v zesFC@dhISGW@07w9OLO!VSZ4&<=#B$)?FWNdh^OPgD+e4#QO(5HAcsgi~9G=b1>ub zG|FtXh`+2wmzjnh&8X*`e=4OdX@$>+w|X4ZUXQNVU|*6QI?tO ze~jBH9ooZ4!cy8u&lA*uKdJ|ZL(W>mthUEtrbKKH$#^vCFrgKqXSGrCewpT@hMaeL zVP{Mc^*xT9DWW52Uh=myM=3^w7hB#=lPkd|WuWB%xa{piMZXD22wDg}TsncPpwfThWBYOg! zGUnVk5@x0y26nWGa;e@sgIJ_D$6_Q&$4A{UALZ#ybFDBFySCAi&o)Z$S-uhwU zEP7`{kHb*WkD9j`*RiHoo5kC{X*pulXpKT}1xb39*qGWSu4o`tn3;BEkFRZiyS2b- zoTs;>@07L~MO@Ihf(+<__W*ncU14vedjk5X*L{)h4d|y{?~8Ol!2as>fk+Pm9IRd+ zg7i?pVe0kaNRI#<2{;PSA8<6_7{CC42XHJP6EF}k2yh%=FyMH=5Woq5Y`{r?p@1yF zt$<+wFTe-L0kHgpe4G~m3IRocV!&{~2*3isD8R{pS%A@i5j2VPK%IIWMA`so zRIgdC**KpAXjboqkcI)R>U9KZR6TD)Iu9^kyd4Tf)7XXGs7cO>@ zggTxU{3-LZn5$@gO)omB=Rl0`D3dh}t+GXUp)>|`pSEbdwltE~ zI60*}#A=qTX)vFc8Plz2wVt9;(Q}OP8gFx4(_2Z$P~&KR?@^6}$1pVYRuWF<6c z+}DBrHZ8ES3H@^v=R;u2D}qnS37|Es!v;V^wu98+zX!Gh?f?b`JkT$b=8GECeG;T%i3E16KMrqk<^lRcm%eL@A(mYy}cl3Snc$EBHw6+&eiXKca zl00}@Rlp~!7(If%Sb4IKR+fCH6y6$Hc&7+g^xVqFc%a{X2_T35MmX57HR&SVdw?=p z^mU>ipBj(u6p!?vIto@C^YcNAveBMGgKviEM6_Jj_hIsv7okEg1}p{e`X@*)1^iUK z=DnZce3^Q^9O)H+hXB6-Tm^U^uoA#`e~I)Oz$*263)1TWHvn!_@7;=YHQ*M&8ui|7 zNN-oqe}(i;z+LL~-ALB~?oqGrL%Lo)zaQxXfQ{<)CZrDnHmld4sp*SI9|1fHcuc+b zIMOEozfrHBLb@IBw0iw4(&qrbRj+@K^m)Jw>h()VUk1Da_ygcoz-xfl0dD}_1iS_K zBj97eJAiiq?*Uj>A0Yjcdj4mm9|8WNUVno0uYgYh{|DFs_#E&B;NO5R0bc=r3_kvA zr2hc?6Ywtpzx@r;o$C3Cc;{Q3|A*J=Jqh=m@$2J2u{d9HUT1tw+V(hKo6nn?uC`~5 zOL9D%sm(@VI@m9jU9+rb66GE8L*ysO`DinvGN%MFLj+~-XmU!VKa@c@v(mSfGS)Oa z=l*8O6>CP=e@JzeV>tZJum~X~|F;kEK7HnRRG}Z$fsbL&nuna~f0Z7uvkwfBRs{d$2$6BpTCv&HFU+upD{GYr;z_q$p2-vF!uRddA}?93)<@x z|G~)LIsLct{_a@**~tHS760VO1!jv;9?7`%*1e{OF23ip*vhN^vrj)GZ)3%0(t15f zyuC>HVRQbUjXuYfHPn~H?=zkaE+qcW>M5f_1OKvW!tt|roqp)XTVLZ68GSqOJb7>H zI+Fx9N0FWnFf^zPSuzFMv5&nQhIm3!q0Tl*uV} z-OVBTWm``K^xF(4cQjan+FGwRNz`CW14SGs^XF!zJ-f%WfW0=REoEHNWvq}BrLVG} z1`20DjLD&f+O-qZp&HLonpEO+B&7%L$=C=>8#yl_$0+(8&SBh%G2XHjPigqhz6S3o zHLTRDvfgg8T;H_3asQkU>N$ctw70*$;;es+Ir1mZA8|+Di$5KB&0jy>E1By^Eq=m{ zTdT|clX7Z&h2FxP{2DI~<7M!Zjn~1u#lN{7A-MF@Ws@%Y$vams+&1Z-!Kd~-L9as- ze5^I+Ru0~6jI^SY{HqvO>>cb^@wyP+8M!OvA3YyjgFcrW2miSzN9=mzi!F1Wtlse3d!D@V0W@He zL{u)@UBhT&`dYHhJ3D?li@(v1WrYuZIihX9V}Ck*_0F=5hfkF#+zFZ>QX#?ZxbXtd z=gXGu(9uy}jyH*p23lLQ>%yUirbbqa2ql73JN*Z(%T@>UFL7nFdRIJ~0yf_1`g`is ztPbjbCgBCfxo6#2y(^y0K>ly27xwtu>z|nK)D-fsNB)0sn14RBiB<>kXa3@_dRIJ~ zi~RqgUI?#|HqcOV0_<1R02xJoTl8U{x&23;x_;9Y+wR-tn>m==gvj?oC}2)Slq_-0 z?=Z@VaV!qSlc)|{#r@q(f9`c5f5!cwzfKXbr|*ST)DpA$C%xm0G#{-(PbgX>$$@=* ziTBPuvQ~KyduU1N<0rhgp^vT&MBS$nO6(HYfG+}E3|I=FZR{sVF9j?ETn4xt@G}6P z{T%6Xz!mECFOaSPT%}%Ljr5m*Yt-v&kzNP5UcJ5%=}mxp0ILDF0M-Eb?R7|R2iyVp zm3r?kq-z0ptJi#wa38MM12(AlA3(Yh@ThwIAkxi%ht%tbk!}S%qF(bGU46WbZ`*zI z9lZ0dT858I-v0~kf2_XqSEQc;K2xthNBRZe|I}-{{Qmd+e>GrL12R7l=kch?%iZS} zu36`tcsWp$CZzv*1p2Y4wIgIkh|}h{(ySkU6K2VkRC5hC%XIFE?#ofd>RuY z?-*HS<9{pKGFcu?#J3hVdWM!%%=6{wtBKyZhX4y_{=A9!cV0(n&;NRvsp&!fb1a@R znl5IAt`=HBiR1H5oOFc$9)V%4>4RU|--v7G zI)gzQVo#^0zf4#8A=$34)WlcwpPsS@rXWY_hh`XBe{dAnyL+x^W|ZU{{QPqj0KDJXlg)bz?-o z+}D2&di=?C{nvRO&xV$TcA`3I_RNN_|DN%X|F^48yLtWhhyI;COW&qES0W}ypi5BV zz0wb)qpOWNwl3#blqz}5r}iykrXMo_T=xtfQ20_NTgqu;Nv@aV_Y-mNIW$q=qF6PJ zX`=E@B91+W#}_yn`N|se_(s1-#NS=72}wHJX{c~RQ-d$b)X>Suj@u1oHiu)NRc-wdRUGLgoo%D<-OHKTE7LPp;oWk~d`(cap< zeK|E;l0AToaM9jM#3g-wy7jhFJD*NB>@Quxza@L>YVrRbyz9`irSq@9>zKU9`t^HY z@VGq<#(}o2iP=sfigr-wW#a8$tU>zDHp3!DYnV?O@;m+h&PN^?XdXYNc)w8(ZhCL% zfV`26nkq)(2PeQ9as;A{_^~qYIGoRdw>7L|L2Lx^3{vr);=kbr{Yi!YY?k-TF!I@O z){8hQ#6ci8r6%@I}r2P`sGU zJ@67S*6c8D`Yk%6f9tm0wLP{a;~7PV^sjkMf2}|Hmg*x8DEacLkA}QE6pbXPnn;~) zXtm7+{b4Hf&*}OLJvFRpUyVVoEc@17Yu-BWyX$J+UAl8hR{c&|EkrHQ1MONgthkO} zA459P-SpqM{f(p68tpgGS^cp+|IU?d=DWUhto@SXAU9VnAK81y$P?CGcS7Tm?U#H< zJECYcQZjuj=E5hZ5WXEb_}l1u|Fy>7xcw6Omv^?U-}d5DeK%}-RvE#U_qotN?!_B6 zUvN^_$J0?H{6zoBMCztlD&3@RU5{P7PqmPOs6|bj>-4KU60vW_`>E-y*rMIPc17WD ztfH2r;?J8{E2(RG(xX=5BS>){xcI)HJlA7OZ(jt(TIH{5?<;QD^zH1gT+wWG(EbQP2R3bmURu2?p0%MW-cm2@^5=SMs{{GB z(`nLct9Qk-e#qac{gr-vR!2wjUxNId`=2^n|2qwZbc+9l$Y0oh@B7>Nq3RPw^b9fM zF-??ZjH8t4f5Gz~qa3TSvXpTpr^wnX>kUrbupg(w{~6Dp@oSW8C3E|+`}|u+=Ks$7 z?`Bf{wa%Qy?svn-EO|ZC+MQev-yL*$A zu<|C^9M;y_91hfHFKCV~U_0uT-asXsnyo7#uN<1*a)$Vdy@lS~6O30)8ZVmEZ654~ z{+|(Yys~u6^$*tV*V+6vU29^*46*Mktx+N#jw1bjc-fnGF5f!ulPi{95Pfp(Ay*jL z(d;8rMX-}+Zr zB|!gH56_S;#W1(FnF&v7#oJi(=~b?k+HA#$VC)vD-x0wlE`2EjA8$V(*Z65w(_)=2 z#u(D?{Y-smd@e$!=0_$06gk-q*(WvJ!>HNWm}fLxs?)xFy-Fea<_u$@-=<=Mr(NOp&&rd7td|V z`2lKrteR%3=|DC0s%f5@4pP(O)O4_#&b?jvUPMi!YRbEb^++pJ4eqDQs4|ZK6dwhA zq3mJMfL2r}j<7SPHx7ypHVi9r1igdyWUIYKx{K1;^S}1|KUX1$`GtMX?)VWpC3#RD z_W9ec|CMIqJG7Ru3`lH`bCADN{R?AWS{>AXaXh7he{D+n+pa%u&)X^fvys1$e?+;H zEmO|c@9xvLf7QZhEZCCm4>val>tapeP&9j-Kitw9hy){pj2?~+L}&TK^})(Wc%GZ~ zBPa4hciWFTYyWgB{)rEqp_BU4^WXFXYX!Zd&y3){Ct_aYO6ErJ68b$n@44*N%ys`b zs%-J1!B4K6G~kvYx-oPj`scddlC%q~v6GHn6{j**E1!zgDgY=hP(4q`h z?}}%Kq(FZQ5X;r-VE!U+r}&?Q{GIE6Z0Em>APPv^nbZ99boraN<%pjP<@ zAws{7YEeECJPS$zw{qk;G_blq0CSw!$e< zmZaAxWxZz9+Z2qE7R-27`wk6Fh@w9VYi}5hpV68VrJNGfHuqOlqSV_4F9 zo068vB@=OtVvskStY;K+MQXYbW2r4UYOislc~tXq22#h1kR-Be<__3ZYd_F7*f zY(H^mJ|^@xQT$AnE&tnzUoD+B;p!D5_J8CPd;ZJT{?*QVIpsfkp@`1;KYRTH^M#YW zWB%vh6!Is1v^vQDHQ|NU6!O0p`EOG{YFGcXrC1$;|HR?~$N1lj{QseTRA@={@jtU+ zF^R&i@a9Rk?)q@kn^&$GeA%ie-aqK6F*z5SnvT<0B*XtWLW5W2Vx>>=NfCT$rDoZ$<>VuKKJ5Db;g$3=`4-`h;a$4G( zXWU>~J`Us+k9`(K`%DWow*{k;)T@`Y=boo5XleG$3r3>QJC4fqWqUI{!BAbezA4l= zDzh!tkX4j<%E=?AG_^*xx9WrQeBP5XPaav>6mrx5%!&MEOurKS&vw>Ke8981_Rrtu z%w4YsJFTQ5moWZhXZ5eUOaCbJsZ%iz zHDewMV18EU-_gI$d}03Dt^0q`yXM!wJAd$9`jrcu#dw(S|KX|dnjc@N_;HBm zT4WDr_8U9?v%o(7Z_4`5BJiI(WO8nA|0{6d|3}<8>oZk9YnhBi{=)uckAIHkx5$4p znqVEkY5wDp|7P{8_W9e}9~hucCi%=Efj-cgy2nDT>}p1N>L3yL2dm6_>@&I->57XVA7daEJO z9K}0rp{BWQ!Eq{@qcYEJ$jdFL%L(RX75costh~Cs`mEZ5{KBkYZDB)UU4DIWu(o(f zrf1m6Bd3PKtwGdSRV)w-dcZy4Jg%e#g_)l5!BAst)~HMrdd8%NhG-C_%`fm~=VW>& z2b%-2rg_1Nrsm+pKub`@j=w3XjfR`sV!8*rvC@IqFa;O6C+JSoxlUw}lrwE~r zZ90Wp{EyT9BkVYp_&9dO2b}%$IV)RAO0NHS*ig^xnv>O0&yjy0&i@Hz(CG(Ck{3(> z@A1&~TkxoSk=}lq91*{3HOKK%iMd2%_@CDuq+0G762@9a zdI{)lggRD*%3F;bPrBnmyFd&6sIyZfCE5>qLdoM> zLD>J?DY+g0S?Iw30lweVRypQBuLJ)n^w0MB+w$M-GaY9;6vOto1Nn>fFZTI6^M9eY zuhab3BL7d-QrhQl>;I85{u_|L@INurUpVDo%=A~uo=&O7Z%W=(h%2G=kr$LzL7iPc z(pmiV{F~lhpn1S0Yiu4p=iDp&Pfgfk)*-*X;NOF)&Ihv=*M{sz+DF~3i=c~37t1TqFDbOTRZ#*7a zDDLGZECk{{^z4?$Am~5J@y0O#r}R(o$NX^odWuAU5x!x4c#wZ4UZD?x)BL&ji}>m^ zU_Avq0%I-K;{O8J(rJ5{hx(w`zTJ_D{P$GzcA7t2TO|Syu90s=Eig~+x5zf2=N?`7>YL4HZ@ZPR7txE zoV!DH!IQ?zC&7r^!DHb_khYn9Mq(;SI#T$(>^HLrU+6AwQnZ89`9?wZ03^g*!=APA zOF*3*`M{~)Px2aDPn=BTL2rz~9!MQ=Sn|kyL0OBW=WYujNhy2TGJ16#RxDIwRL9Vx zTOemq?zqylWb9+~HfzKm`yf3OWBAQ1T-l9%d=zC$-T#&Q*&V_k<4DZE6lDma40B}5 zJAEdpk1#)mApZe)%)ZaV{7vl%=i8sCmx=j{*rlz=S6R(vmAfSSKeG>UI62LqYaXc| z;E|Yr1#;!u;wrSaSUIG;Y5ZUKfAE`5^XD40Qnl+cKkhD;81KQoo>_+$j_Hs|wPz>( zUP1(zAiHCghrQuvl;;TczOR^Y4%^p&3Me!NqN`=$6_hN~qO{cjfu14`??C?X^{?LzH5OOr zmB^Dki4`UEqW(!wSob_cy;!9uV9@M3OnD!q)0!HWtX0i$nbcM^Zn*=CGCfumB- z4ZyllroWsGm3hD@cM0p8mHCh3*eU)*eWc2NO~M$P4GPeR9+23^(=cxB4)ULjxx{Ze z&3_c$ou+=6enRsT=*}e29#ZH;s#6B)K?>pn{UE)`0!1m3=?VzY0($?j%cZ%3M$#XStHgBL9<25rg1RloIyE3@l0KBCoD0+X&FkuKi**R-gyv zS(dU^P+E)}^f3^!!KKkkqwrm&c(XpP_D|{Z@@P~q)w1NtWnp_(pv>HziY=Rkt780d zCSp4msPm69(`4bDB0S~YeDoLYiCO~4aoiJ>7U{}dyP`$9vOJw_ksQ=$1!|Pzk+VJL z{5;(8$t}XsQGheHP%+-hLc5is9mpSWBp2a7-_1+0MY=NAu4s|2EKg@!qzH9efVw5G zR*2dqWh7nXXdxx^$z!Ah=RUMa7FwkOZ|CBg6t)c4952qPr7}jkGS{wXk*+LHXImsk z?*FXqBGfHMh7WaJh(ERn?{Q=lNV)RR66Nyqay)T5e{r5Y7w>b_bxp2S z;6wF0lo82$C1|NayvKX&6+Tc=MaJSx$I)uk?p4yDeg0E&($60syWy?1 zFZ}5C=?9FLBF~;$a>AI)}-w|On907sQn)NsfX-#u~6_}gx*zxSGB{;$~V zP3)we^!xGBi(9^$@zczQ%GV8lwQkkd3yxO4db&qK44Z z#|j?7c%0pYyvs65mtqN>XBe z;(lP&=_kxTw07(@IlrE<^4{7%iTjD=5%&{Q{(ca~Cbjo-WNH{eN=?=@@HX_prLL6g zr}|0dzw5hhPu^4lnC8?pNwfEJZ95(|7U z2$Nw*-5D=Xo5}c>9V`EySTd0)S7}znQhWTww9fsiXE8 zK(QRnHc1`!tZuMQPh_~=l9X`F<4@}CzvDn(662rDQ){vq{V)f71%2YVdYal@;g{mM zdeR;LE*W(Aj{a{9yX%Xet>m0ZS)Rv@=njm9GP=JceFdeFa`*f1X)R)#uj(ZJ`W05( z_j5j~*jUpf8Z17g{f}ijQY~}*Q{yYW{z+)Llqii{*$_b~BC6a^eV6rt{M+k<<*
zmF%_*K)>8yA1Bvn|8U}0KKYtJXOUn7{@gIv>sUCmS>s6s7A#f(tNbwHa z*zV|T{zm=}@s!NE|HsGAsYI{Fjwtf#$U~MMdH$fxE0({1%G$4I-qP@HCQxAu>5tgc zcXqP>cDDR>t`;Wv+X>z&JIY#g=n`5VsrVllaUfeSr)8vB6L^+?hH^sJkX zhlLe>xZ=4vHC>-Z_-mfRn)iyLk5)9)O1u6lyZolUAHBHo+rxfz(}q7>ejwv}3Oq$B zRx8<4zjVUih<=yKbh;K?Bjqgm;uYl;9nx~mhQ2d?agpb}Q(8YCsKfs_m0I^lrLZ4N z9sgkN>V16y@2*YNc4m*B@L0mS9D$*5{3Bpd0INQ|bR^ z{)_Q=O9Qed{rj`eKYwc1^E)2D^Zt<__3dL>jOqBecXKd?sHvHaRG}M+>~(*F7w zHeqv&z* zX-E41Bz!{HKdr_ec|swv#pkMBk^j6Dm!cK4C+26Zc=U|=SlOGWQl)~5K25QIIr09G zB<9b&56AbIn&+xLnTOK`I$_}u^&eF&ujIaIk8DBj;e6D9Ypa9)AM|B87T`30J^fqZ zI{#rj?u7=%ND_W??5!7kGUT_r-uq+Z*?n3LTYkEV8}Z9~Qj!iw*Zvei{20HS_wcXuK_P;rJAp~GGSiLKr-2|kauD>mWp4RGM{>+z>lGFVEj{Jp^%pQN+^|x}q^Ha$G zN#y?*6)F4tyFUKXuaW=1)%-6+`WoP3z*4~L0MZlE)Sm)KD=tU+3g9`w&jHH;R{;3z z7f4qCu2QeBM*2&@HR|=XNUsB254b_ScN5Z^0jmMG0Qj9-k=_QlUA_Jl(mMfnsn>TS zT?e>Fy}l3WdcX$t`T?XH0l!wSA4Iwt@Q`}_Fw(7nN7U=bkZuD!u3rBJDM*X-lzRO% zQqB?2s@K0&)88X~9`J&C{Swlb0j~o7pxz@sZ>Z<&=WhZ22w8K6dO0%TI^f1zY&?4e={f;y1iPQCiWsr|4E7QwGVMV#-ZZ2@^ zdM$0&mfSd^CEJjzRfQ+6bqxQ>Hh88_EK$zbJ+nm;W2OooS?g_Q^bp*}!EQTFH%g-2 zQtm|ggZuokzqiVE03nH>XeI~z?6!CSB84!Ek{}`{*S2G-Xu7Fq z=U!Bd#bUhjhCIja+v)q)dq7Qy{=oh1sk+z`a1dZGKwrS#0Mg6-k?srFPrW_>>4EAw zpI?siD!`$D!vNgFgL;}H07nA&PJg6F185}~0Pp~g1@PHGq=Nul8^G)1kq!Z5sn@(W z6z4hW^)RGffKR>7RnvT=1ptIalfP4r6kFX%BLK8H@H;0XJq0jYy)H%S2b8JT6-dXZ z=i`u`3OG%@o`7_sdR~e2biic5&jHndseoyK=>X<+2GTPDRP^xrY&ESxIuj63uj`P` z0t5k6-8KUFev_KcLD~#xQLn>DTLB9J5kM3W1MoNVkj@7zP_KFKT%0ckTn0D~a6aGy zfQUw4jk#|jW;|LRTELaW?`e(~B?1p}^js69jNkO^)n-`fSC^2N*W@)3FEtU8UKmxYpWyzfiDwK%*4|mo-G^r-cIfcYpNp}w4j2DXM@b*cn z0p+bqC( z4=j^&6SKEQ3%k3a<2#}Pn$%nn4JK?1LvQ|Cto2S<8sp8Ih z5XThUbF#|I4gd30#=oBa(HEQXR_dUU7asIY(8dWb0)=C_Lh5t%w68<2{r0@Gx8HQj z+<6BZV9z*mdM^Rxt48s^llcVh{?!7G;Bo z?p1;LZwz9tWI_rPG1)Q^Uxx7+O0iCf&$wcJD11gI<7>3ph&#%fvMJEuw&J(^M!fvO z?^MFCzXZP}&7X`lXndswBv*TZx6}0_#_1DTMaI$|}3r2x4SHT*NVw`15+1N5- z*tDi-TcEir)>hvX=6+Ur!?2|lHg1T)rBX2h51$o_wGJOPEGlnu70qsGs*8l9;f5IL zjbeS<*rCy~#s&Y|R3rqu`G@P}tq$5BFT)Fh?pnPoo?Qu{Qq2GM`CDI3C{_JM%5M;2J-9j3w*`7c|mVc@!3O#bFn|%+#HmhmZRBY1JPMA#tTi| z*Vrnrvq>iRQhk>DV$+sZgtd+IWo}hXi-L%M*LQ`LQ?=?`T|O5B8KFzX2WI-t5=eB^ zL)x;`bo)>?tm8>oQChwmarv^xpUyHpHsq*qAM>iS0ad`UTg$dYg34 zo*R~2diaC`q$|6%{6?!MKAhS2C$HXInUT5S>^uEgp81o}27)>-2if~EsNc0P?Q{1q zabKi^HpHIR)+QRs_VH`0awIqSXQe+nYr)R0UvWeKkyuBai60O@u9nZa_T4W&9C6o( zul`d~F`)MNlXY!Nk9ec~e?;5jvBAMObbj!LQ^5`L(Cd47uD_OF(EY2zxs`;F=G;4Hsc?TGd9AO|k$07Mmu4kP z552cBUQRu^=M$Ogp>3FgZ&A-sjqgpw^h_yH z@l#_&5PFi#fdn}XZ!so?vNCd1yYEmoEe8Zy~PfMazgwj4e)|B6{11l2+Q3 zba(fAEd~lB28mKOrdcVCd$A%Jhf&KBw5C$eige2ewjsI2G@JrG0;j~@6z}8TQ#>o3 z*EGbQ0dkgIz&pJE#v&g~v&v_{G5&$_3B(}#^AT8`q_W293!T7Ts@ju^&{9jf- zXP>{7^smJKC*E!No>TmvLHVK#qqK(8U z{%7J{VSlizf36<4I+#E6rH$5U{u@;9=kXR@Ogd{82wQ65ten>PtoY zPY2i4AoFtMtHg|*1s;r%XZ^4tm&hr8Vt8QxpOpI_Y1JI6s&FLpc~(3i_m{~7k3@U6 z-cK$YCH?R8H`aW7cF%m>RqbW&k!$YjN&e(V=ri#x&nQWZn-W3~;Q9f|^ikOt^f0`e zEaPX#t@+Yyp2lBS)&X*T9wYvXm@Isk7XSE?7{8kh%Ne8VQFdY3_}fH3Pr*~}ZtknA zT2pxA3ePk1HpJB5ey}F&=wFdc+1r1Tbi(=fT--em;FSJ-k3u-LzcBi?)xrE1)S<}tc zfL7iYA20mkTJP;;C-xcpr%S*1NaX8u*YHH$Xuk&rk2CV$IBM(Yr=94Z-LYTO=10!6 z2B7?D9;ES+aEH$|Dm^U^)^U%7-^ZO9?$|$^T666BA0y;j9qfOD@j{u}2d&-}&#uIY zQ~sZOQdk|#U-UtyR_}^uD{=CzdSQ=0xjXZN`47S4;{Z))yb{7t={-f-W5JAXg@;}xS&e$n!F@mCdGjs9=Xu+o`! zOcR+%<2qyiF^Zr%9lQ)}A1c=A&Z+;@Vmb_U^`F{BR! zTX5o!wOV6+^hEp>pMCDpMZQqcZVuad_}$~C4t?p|$bkD!J!f_9(K`II(btLp%>A(5 z7_8qVhakQc(kj%2J}N8gBh|zG_~V@$KSuqBn&dDv#vO@2o(n?vV3s8P24wjp)TbDM zsn(l#e_Ib6f3#`L!U$A)-jUP4KI3ukhr6mzojCrBK`-n_sYlcbH6!eK#aJkE6nsU* zeSy6st?g#~?dKnR{*zc8uVSrXW`4E?kA(iiK7V`tAG#yra4NNHo~!oc4xE0eUfShv zEq!S5KM%$CSPxn*=4Wg1=o|I1UH;b6hm!wLe5)V8Y5w;zZ*~3`e5l#{I}sFizS`5* z-n{I?%1QapE$@H8H=o_@-S0#-Pv$!V=j`bZVo@O@U%!Q6@Y(?A1;M^7?q$^TSqMpT z!~eW1=id-~Z%HW`)lAGak6ydxt&hIm^SbYMY?^vxV9Z`JlCW<{u6<>f;}T5DHLz$w-q;D+dOAv@v?_L_`deVw>d%;?7#n>aWjbj zA!Z;KbM`tb<+X1LQZ@2WB2CNyi@n@2iBd;FkXscQ8}@`KWzJA10ayl`*X75X@ZYKYX)XPB4F4_2-zojKmVV{@p`nm4 zGM(f9DBk@7z{8CGH$bvzf&PPgF^50_>D{4>{z1nsnY-n+N%Ic)*-!hdJ=}ArnE6=y z)XB!sVE`Mw7my$na{b2xWN~30oWII66 zKl}WxOF;b}Y4j-or}CZ;a_io#lQ2#)4yvIL3Dy05}-%BLG73%iiVvk#c_h0KoWf0|AWr)`)Ay ze>(=ixNjc75I`n?er!fzP=jWOXE|1A%o zkN;MTYkq_A-)=>HhN>hTFOe-gvm z)tGeXsZamyZ@GCl9Cpdb$4@);@ZU1ac&s@SK^-IAE8Uynj{U`1>Gid*S;DPW|6cQM z^M4Lo`{B-;US4q98SrKkMhaD#tL1%JDmc3XbF*9HAyD)^hluSm8lE7HSP z^Pirv{KQ3X{AAblqxv8B>3Luj+s9_VlQI7ssa-qi4{qpBy8{0z$O|p_V^ofXs^qlj z!#;ESk34n#rYpAHx63zkFugRyn7t4(!>JHr#kJG%yRnn)e-6r^SipLs{}M!uI3FMo zmiB|*E#z!^B6eL9n=5f2=rj47@1lmF~`t0zYdy(YA%H#yP}+$ol46EFB!Mw*U~ zf{=Kv&X zxbE~^RQ%p*(x?WE;#!!OUy02zDb35D?&X6bM&|$G>lruUcgwNSeepP~)?>1K`mw-k z{b4t*(|J86?N^@L6l@Mq(__^%Q%wh|saH+&)O3)V9;c>*)wDN0w*cPL1xdBWxgnis zfbrTc>vd4XVInZ>93>b0#**4Sq({Ef_>Tz~3DuyoTq8(MhBgo*A3t~aZ|Cu2^!ztv zK@lrSlcA>KUNi8Zl&H)vA8dIu^1%0-@};-`{_QXRb?i`KI~8@o)M@;r&7I`GjODMc zz+Yb*HK+sne9(R+{1%$4mXGYc!#Mwr%;d(aDC;}jL%Xho#-l8ib-FkZS|k+GLzH%4?zC^cAUSh z|4GXE{|NcN?>K*J3n=UV5`2qmnw;YQH!u+|tNELaE~ok*WBFfMm8`|@@<~H}x9sti z+n;?GvZ?6`=jJlFzD z8dBvg(bL?Sf1K;T%;%qY`uoj2s~+tAs)Bv?t-IE|b>Mf`)x5iO=aj7aozz4MtY|^K z7VRUh)n+nH5YZ>o(^MY}#Srxto-b%8!|nJgVuttL`P+2dZM$!^AY+CL6p>64T0upFw@f(YMR>? z9H-_sD)Zdp!rYwvqM|@nUaq$e|MDBMit`H!vvTVje7S*oUw&Od{gO=2u#-nl4TW2= z|80F$ED#HNDx0wHWWBz$#omHU&-h@dF*a*drZ>|wV^Tu{BCw6h%=Hy!qtugw&4F0c zykJFBb8upyB}feA-;~rw!_93m-2?yd>Zx*Yqp_1FlvkI9>)K>2sy|zL+m0JIet!Ap z9jos2e764j9XDR!`Fz>39XD>RF85E$sqqzh3v=>oyf~^$u$%65M4+1ItF8z~TB0?R zgRS96thyr7QZu!+IUJ~$D;|gqQ*fEm)Ozwr-RZdQ-dNMLV|a^mi*&ufosN;~&2I<> z3u?2xzMO)ryrM#1R#C91FsnFFUtAxk3m^?T>KNW)pGn8a%R$FrV~GP;8T1n61OMwK z7QNVze0Xy)3LTJ-8#jJ-$I=dxkD@^SuwnD(&(EHpn;nicGW4Qv*o+C|tK=w)5)?n@ zbn##=3&a9d!B}-!RZjMTD5o8%&&W_)bMwiPM-B04S)MtaD3344n?zhD)OvmO1zAN6 zL6FZ{kk6vJU{O|nePK~;u(+r=KPTVODDioHXe}f1nV09w&J!bqX>R-|F_-MjID^!6 ze8zmY!XtzsT}B{d+C?s*?bwR*7W{1Y;gi}fcw)tAcWbCep0Mt^6B?InzvMf;6nqS7 zThE2i_XYc#0oEq8!isK|f7y!??Z3Yrare=EzCLs4JH1=yo&L$1Q&H@8eoF9F!Z)(B z_7me#;#_`r#y`LKRNoETo?ZIL(T^(}WdALr?mNHcoDEqs$DDig&aXeB2a3QL2^o!? zb`y?!9(Sf$DI4TERJT=9ElhhHI=-Yq!Zo@y`R>W2E9LJ1%C!)p;{Ib{gxzFbR{_ii|(EGhFUmB#JQ3a-6 z*dw^AoRox7R95Zw^2e`VkKZYz5)?>yIX^hg^YKN)N4)gwf4l-!BCYQ?Z zT>sL!^4Cdj_#da@Kcd$kG0t7${x==>KTeDb%8`=~i0^+P>=eNHO3YG5{#+kC_Qtt; zpS6BX^Nee&#&6o5Lp!7B&%b~pE&aKcpAzrS<%PA~i4WXXSNgw`Sz3(ec>GgqkJ`hF zb}0D!;h@Th%K4+>>p{Q2xkp|@6u%e8qq_xv=wDS&4EBNoohOF9{yiV9ZGJ%i+};=1 zC(Pf}o{WS3`%(4MK7aDI<_GoP7vk|!fYbcPBY&s<=f(E%XQZF1c{|O&68XQYqBLFR zVdfwP7;TjElOlnsubC#9z`qZk9s+QhKmDM^2i=JO(9!*GjOd>h{~>Sq%_H7==kggF zN3DGRhV#ByY!&~3HNit*X`Z?f|DY@JH(I~nRq-Dvam)dj$NV*q_ZIJ=h6$kE$AW$d znzp8Ac@+w*#>?{C+;)GlMEvT2uflitEd2gkqx7})(Du^ex`{KzTY)=sGOBh+mU-#d z!T8$AG5t6e&#}baZvLet$hA3U2lt=30uOHjIHS0dRFC=ZHT8q``LhJ(2l7vu{}_q< zo%$d6z&BY%z##rttGGMGKb8Xj!Q8DpFqr=@k^hZq8O&=+dvYQ2|ATsIU;jC__!Dn& zXt|i5eTPTytB;-JZ-@VCeCsv<%boZ{WH|Czb`lZd~OJzj_eqkZ(-vv2Y^p(ge&CiElMoD==PI=Cf#jr#^va6=# zw6Yxo7Q8D}&$$;4`t4s%Tu>m7zyJSp8WLe|gr$p?H zT+Cgm@BM2PeN%}vxXG2eHq!d0(n}PJuIBai&bIa26w8&UbMj&LyHNH-t*}+C>nWU( z#F@O}6?>SW+)j3rweplU8kwm`ibj-4lIEgh9ouAiz01}+;wXa@bch_aU(rCEIrTw zx8jeMbnf~S!tdxm%;Rr1n7Xt6w6m1R58AB6{H6_-dlHH0HTT@{`nPMR?^^N7mk<1D z!d&hiYM)t~SCN}`=a*!X?2osKh!`3xR!eKM~HeXSU+#gMQMn_DxC za}LVL_9MYQgt#`HZYT44cD7zL-b!P{>v7-mD8_*j3x2D^5*yFTU1L9TB0s&k$Jb~5 z>d4_cPdnxpuasSX^jahNNxvU_qWrZbqjMvOlrf6gV2HX>j%#$;TN?nR9Lika!HQb_ z4sT8JuZ(wa?5aHtlC@dFXO8RU<9B`#{ek+f9~nIDx*aN#^A@^d{WkUW;$YqUH|c+m0piA^gR(F^&jNT(4wqVFd;OQsG6I#* zf8Bsw$w!G=w@T+ioZ76u;3R(={Z}0SW|gma_EY5VT>nWg2J-{>r=0(lDdt~jo;~RH z9?~j27d))RtL=|gB7b53PP8HK&D*xFu_?(^kdXl4EAPsFYk z&lQfLXIU=AT&8dZaI}fTGFwufCt~|UvqRg@@%kFze6K;3zuaF{*&GZ+gVDu{&n?f( z_Z1Zsb+`PkmzkXK%TDYK?S#(3NxeilSiiTJ@}uW%^d9LV_fs!LiJO`mO8$zL%_Cot zRw+K*T16zraOfxf^DsnplwMESa?#d0uBsXq45ryl(bhOtp_pVo>?w$~wbpZKY$zOSYG|s%V%Km;H%_gQe7nO)cK7%#Uco?oYyz~a^RN2|bp{#(6rl7CVAFOyH0 z|Mj?iGl1=%{6_Mfn~}eB{}0B`H$RyFHF%7G1&;H-4f(&Xe$om4HvTtp{a^j8WpXF- ze_MT{XY_yf;z!)nN&Q*p^@ofR(W>N=k$`Duh)2uv9WG@2}*jMD}Kp55#b~fX!bOP8W3(lX5lnR%bJ6mtvU{grTSSs zN%$w8Em=IWiZM^XA)dTg4qcMt^%Wo|Z(eCpNoi3|R!M$gPF7w;c?H6;_{+2Mb8>R> z^72XxN(=IqEPh#3XIZ{K-*}uk@4e3Ww{_d@+8*1I@r=U5^?mQ+)|2)fF!}DYpFQx$ zPyhbIp$Rn2={$~~Neexd5Ill)F^VEF1g(i?LvWB!_*evY7_J6)h{};AqS-A?b&+s1 z+z{(5{p@W0>E&N?y_)S*e^n#t;|I-qD0s<3k#DEZsoHnNqOYD0S;Y@BT63iLU-Fff zm1h+cmFH*W<&^rf&_Rl_%1Vp<{t9ni9^|kki*=!J+WQ)U%XGQC7eL6J`AW#0minfa zKvM|0pi}4gy}o>Zp*PE4nB&j#`O3UmMMeHxjExenzu1QmFnPsG+QnD)=^qGAiy3+7 zJ^f%!OT z)&`krD$jkTvL7sNYU}Bevi}MVuMT1LwCuk@ zEHXg5;5qL^oDY{WpctkiUpaLYYo+!A})m1sNwuNvq5TH$^Y0Dy|E-uTwt&AyS5heOKD;jAdZM0aqr&QAa{{O&g zpe#-`n3mdx)cbm38!1Emo?hZU$eem!_CuHU1j<@k_Fp2$YZ(9UEUpIZ?aw)g8fJdb q|5W&0IMv(Vo09#VYiP}nj^uwo^8eKQlPNz*75|hou=zn}^8bHcur^Ns literal 0 HcmV?d00001 diff --git a/ArinWareT4.v11.suo b/ArinWareT4.v11.suo new file mode 100644 index 0000000000000000000000000000000000000000..c9d3620a76f0bff7ef428e8336f8c80fa123cfe3 GIT binary patch literal 132608 zcmeHQ34B!5)qjJChzp9if-)c?DhWwQfUqdZBrHMzNd(kr$TA6mY)&RX1h0x-jm*HADNKrCy-yQJn?%lijDgfvWI2eFO zdt4VNfmuo;eo-Z;6e&vxbvNyP82tYOqyw@5BLLF@Ie?LX zQGn5aT)-H>Sim^Ic)-bkQveeHd4POC2v7hh1WW`>0!#)>0h|h$3YZ2c0cvjOJ-jsqMI=ntp>R04Vd&H^yMHSk%dwSWbH zg@8H$yG;Y25zquU7Z3rkRYUV|D-GH9}82%pk8v*wMHUaJf@VONp!t}S(z%6|?^fXAPufjB@?DAguhHtg0hDSQN~9cq0sfg5H%I)( zAOQ2jG`NM8@5mqKqMy>qku{7|L_t9#D34}bNq!)L_QzDzB2A=wR+o`L{*CR=t^5ms zm9*8(4c5m0c*;K;5ia1M1t;3yLN%8W)Pr98;=R{@f8b|P#)F^X|H*+C&Mp6Jf1}U> z-5l$mW77bD-}?VC67Ux-Qg8ejZs^tiFZ1pf|8>Cs8`oIldl@hO_+s}C-5&hj{it2oAJS<%puL=^+0p+n(S2cLV-A zy4mCBm{*AuG_~;@W_eqDrT@$JzaJj?#m@noaxa}V{}a_bSAh>`M6E>Bw1|-Q{}TWH zcq{(flhG!Rlv3wvMqVwa;+t#gEu2b+JMrif=nF2oBEhm0sTXOGAfJHFa8IB zo9U%1QDcmn(m~91z}Bkr#pDJhCps0O&H5?gCtm49tnU9CfWJk{zdin0DEnAxfOSJj z!I+A13Gkmc1NUoM`}3xM)L=L})<5}T>IGN^&LQG#Bh=Yq=qzh3rSDME+vRTgwdnMg$j{<8pOswR)xyi(wdsO^~)jx=Tw z-k0L5a-@tn*y5tV7g3*{i7U4JbcCx=c9uytwl#w9Vca)W@w}`Gcrn#3r~M~*~`~V+VRn)TYkLH>y>H}Yc#Y( z^EiM?ux`DS!e92>H0}**y683{&n&qT^%KhQt+<+-R6%j zd*PgydoQ{)=kVdP^Qn|X?R}T}|BTh^bp3ywsB|g+OL;#5{l7~8r4B~K>i$pu`yefd zKmEH*Wvq1G)%E|f-y41EN9f3-i7Wj-h-Y%Xfc{|ZUh4m;2N($OqyHz*cmlwv|34A; zWq_f8lK`xzK7cO){{kEcU}}cJCm)jzpelt_aXNt9a#z*=laHq?!}8yw|Bp}qFWW5J z#vbRt1TIE<`vKq*z;eK)fFA;`1yHZM25=?dD!>ZBHGs;_j{uA2ulkk5ANTj{|65q|%;_+X?&LM|;#5GrY z|8IwIhuS>95YGkyz5;v=_z!?7*aiO^?fP5zltKA?kN)3z{-ulP|J8bAUDBayJsqmP zP5;kt&cHqWJ??+61ax^-=>K&6Q!8Yj3dmt~uI&l>2UFW|4XnK+?UmuI_=_N^)vFR_ zt4Sx+EI+XL!!-R5c|_Kp<+bhYr+8YTy|LoA*FPGyWacQdf&XAUk}b#l*8c7jJf`$W zM|p?#L=i}sl-Z?@so63!%K30=K%^c-d`;Vy_LaY!f1jqx%+WSIjC}4??h-%eKMQda zPyT63BJ(dLD>47e+MvFoM%BGUBoY^&^Y0w*4%gD)6144=vHi^kz7muz+c{hN64eGE z0<90V1L3xBoGu0d{~>r8PyYKL|5WMFQG3&bx)!=GYA-|`6E{nPTB;0H5)$F9|0e>! z#7*D&-tOL*e{cO`wp|o$&!qlYrlIYH%f)EqpM8MN8~+Fq(BWU=uflu3`JW8@pK0-V zV}0hIE%X$CU;LD>$kWr!LGQ0t zd%BVCL9Y(HqoJM7g5H|GlVkr6;^kfdzxZ1ac40UC!FkpH2w-<}%>StfFcshz|KVtV z&ufu-;~(jUp7tMsi3l+*4*dOq|8?K^z1u(YEuCv(wU|Nk9%Pv-nT%RSNge<|ll`H%C4Vt$u%;_kLL ztU}0tahE^8lk%Te|97W8D*ixU#K$tAW87Y@2>~SkF&El~I>=wb3R>8{%m7a&EslN2 zzp#CX&;EH4!as^ONGHo*+TR=P-sPOA2x`@hJ&zx*5JKgKG*m3}Nt!u~TffgaM z&V}EMxmUKjCbjRELK`J4AkF}PZ=aWrwto;-Ewra`OF3+x8Tc98zQ*s-qe@1*u0u~to@_k6MVxw$J(JnyZ` zcHK0-|8XB(;6;B&c=LaOd_zg%($oC_A^gi<{`5bx9eW~2fZxT1Kl%LMAAq0pk#yeW z@2!8DfOtv(ECYC+?vDuZuolV-zaRd83gX(s|BDu=6|1ZFedPbCPV(FS_SpY+UjAR& z;p%*;Yf~owABcDUXER1y$^V;q!Nlf&*zOLGqx~8A-;S97xgYsY;`~n=7vs188T0Q& z|7oe~<|u!RM}U*#DF4q9_Agqb-uOpqA?>|HZ(_qGAfA=aL|5X5zXM_atwrjM-;@6e9D%q7 z$ASNDgk>9~^TO|5`a=J}a+kJPB3AeRjd=aF7Q_p``|OLrKMZk^p7^bQ+RsU&d+Oh~ zu7`3I*SrWDcwrGg8}GOxL)=LV1g;3EV+^XJ{WCdK&guEZ{{g~oP`~EB8I|~nQGj#q zRVq%d7pXC=v(bXbcpQID#MAx&zxd;!e2Yq{E*}KbkmZVkfBxff}qaUu)N5S7#3U zL-(ddr~T~?PLH>hfGi1pJ(lzOHKB*3{f{$#r}b-07uT;XM(Qfm+7-2R-`&6c@5VX1 zR{i?(hyJwXvD<%TU14XO51NVAKipA@S{|8KFE|34*Un;(Ln%~t@*9}oss@?oh^5{k$DuOTs3lCgQr~cD&N@01^Yu&-P(sTKP9g+ zZa?vC25M&kS`YVMkt3|M@tf_zdol*tpQ*CcVYv32|3L^ln;*l8Re;v^pAEYcu|jV| zLaooddh)7y>k1D);_-{VIPV8ddvCpF78I?fGGn^MYCrSpKzH1Na%~EvqW`xy|4!Q1 z=*~0eTy*0b>y>l%-g5rsM-=r|Hm4~4T-U}GmhNR3LYw2d*Jk|0dd|f$tx#l zJ*wC2pW6T0Wq&zY<#~yl>&@%%&oQ!2O$~W(FUS7R{v(}Nc)mB5KQ%60eE)~I^WO~| z$)5cmL`#wUznp*Wg8RP(D2?t5U>^{w=?1O(gJ$Pf2rR8 zEq0_5ygv63r~~iA9TGNezvtQLV}a)d2l?+swSTWV`S#Kyd*^+A?T16(rS?HmAL(-} z@wW@X9f8!0-+sqGyZnc+W2bTVhuvSC{o2BN7hd;&2jBMSHT%?88~K;myjP$+sEu9& z8(#1I8B#U=`{m!*7YKWy5qAgd4LBIE51=PtUjW}92!DUT0or|U_y=j%T+cw8u42HU zfWrVM0*(M22{;PCIQqjs8gLw703Zk$2;jS8;SUC!pxqx2e<&bLyJwhTxX#knZS01x(fMi{MY! zu4lqO4KPc)FNJ?PU^ZZm_UsJ!X9CXB?$6fzGWhcV<=TBE{P}<|pc+sEV4iC=epI=U>)Fg0H56ne?8zX?fxh5sUyBeyEm@? zW_aWJZ{9zIa9aUC)xtjle;eRY?f!B2w7GavyZ<@-?SQAW`(MC+8t{yE{~UbkNMF$I zU()5*YCsslXm@Q_#bN5 ze}z9IAoh>`2-hEL&l&e;+V#KSe*yRh;Gf#FFX;om0&tFDC-3piF8Kcie52i~4F&Og z_kVog;;4T|^li>1XxpnDxMG>mdEw6z!5sgI|7g6GYv~;W8eTk$YnCCMH-7gNaQ-VB z@r(hm5E!SID@Fj;4V^ds5h9?&znp)|#e2W_=OFCQwD{OIC<^Zd=nmK$K>lVQKu-Yq zYVxX7SM3j=uI)fTZvb^}{JszTLjZjNhicCbhkpd%NWf8megMwVu&#~)3;+ZH0|AWV zSj|5U{t&?NfT4gB04D-Y0+7>81Ed33-=xf(on#HMlvocrfRTVvfYAV!3+rYqU>smP z;AFrlfC+#+Kt3P@C;$`!CITh_CIhAbP6bQ_Oal}FrUPaGP6IIQga%xf08R(Y)}GIW ze};B_7W`7c+1h;>{CR+K?Y9`2~ zV!&SjO8~8a^8iZ$%K+yCE&yBzVEDPOuy#SOKi_b{re$mYrQXExHyEYI)wB8z#?7eL z*{aqs6E(%1*w})^-etU|TaEHg_O5Sc-Jv+c!D-jGB9wJ4>araF4M-*JL+L&R1PImy z-|vf=_u6bNR?XTzF(p=b(X&D(k{vrHE9+B~6~7WkY@#V+nk6ozTPfK~P^Gqw?<65k z&c=7KbsA_0i*jsujIa7`( zn)&WyMYsNZMfEeSkG#V!B;C9Ho_XWL`A_6OJo)!GztVluUVO*$xUi_E?&|w1{v_WaO2wK+ z`HuLk&YExQd+nZbD92WKJ(L6GT7&6mOr-98^j1oOMrzT`?&0b{rAkk^cfPRMC{@?- za3x16Xr1#enjGV{b}%(I&N|zzK5*NA(T|QLRb<(I6d{*$eQrY@$9kAHLr= zPq+K5rP*d>CQ@0^){-fAY)(P?lCh_7EaxNp-$bO^pT0PCw9IG+WG++6YnxJ7rtPtF zq0I#6OU+b)lHsQ+)w+LWZ*J8CHQ)k!N>0SeLzgNJ+<4lI+e!)}{WEGItHGo26qtHd;t?8FnQkh6J8S>6=dn16k_sNn zOi>cyzOB5h+3HZt`r6^M+1sMDCMgH}=!InrHFIHbZTHXKm{;A5ywsfHp7F z%}JY$DWEUOEPt_2k(kY;g+i({!|j>2^=jvXknU7*RP9N3>>TZ}NNFmlUovC}d+y{U zq&W55i97X6j5`_p)YF^#Zwfw@j?sv-AhZ{m0O(4y$h7I%o}#%Le=XZ@*-JWjy0#{X ztAivRqy^LJ6wyJy+CtJ0>#9>>Z`JWyZ{s|IalACklyU{J-kS4JuBjN`&74UpBnO!n zG49X;Efq3DGN_`}%7&J8sTk8`nfsA%jBUiocgsF#9Mfr)mx{h8)9XjZ5vNC{g938~ zM647RHierzl(remQ9t)n-@~yM5{%U8NLohA%+&Lu?bD~(>04=Knu>8enY^f-EYO6} zn`fztbA)9r9Dv-U-eRPEwP2+jeURoF!dVmY?fE9!nZK9E- zKU+&un10AdR~$>{s4`F#x;0w7%G?}?+;lWY>(qi`&*T>CO;SJhw~xMC$9}H+NtNEG zz1n&yHPC{3aa*h48kbbf{rS^8c=c6EK2eoBlr4E+ho{-89Xrog4nUealRRN32Z<9F zdCHznHTojmsgNtp|0|~l=^t; z+ei`Y^d4OGz+HiAU~xp-cirZFAEZ7NW1Knl?p%^r>Wx~PLy%rNp4`Fpk7Dhg*lCIT zo^k(C?uRF&Vy+(?inWWQvDoDVtX|=cG}O6-@g4V~YsIr-+(+<4=w-#8b$W`@VZE5H zu6l`LttMB}a2L%|tn%aY3;^#bHI$-kYf-k;lF$~7JKpg=iZI-fil=arx2DFuPF?fr z7LIvjf2Cty&w}6C^BPq8Ju%_Apdxl50gK|#Kl#C5%ilD^h|Mn z64zRDT@lw_(~f2-)>r4CKk!6}d|Vd-$w>6%!TWuachc2QP2TeM##auxYfkTJO5}x8 z^G;Z^VCsh7uDf{Fx7#+Vks##g>b^U^-Eqvc^|w^rf5S2Vm+KT#gdeN+SFw+rOqqFi zH>QwMToF>uy^dOQ+(~*m3A*3M#&v=$z z2GZ*nD`(KX%CD!oTHn5I6HD7zb!~n!V-zPB(GH^qYvA)hKw6a`N@XTi>!(8-%keb| z8a5wS+V_=%Q~jTRu-xTkF%Aj@}4phjt_+KQ5eRo{0ou^LHc2_&ONcuwy`lqlOgdprAlHlAeS ziWDISrB8~G1IWVF2-IGNN*_oGMBNkL2Mx6Lpe?TA7H@-0z(uQ~~bUU;I-`(MOVrwY@cx%(Nt8kK%e zfz%@Qi}xBsxUMC+=_tSsD+MSa$}{fc7x%zPF76O8mtjBn8Q`0|u#3^E5H(PU8eo57 z-IF#>1TY7pNAg)7YHAe1@fll1Ca9?3u{h?ixB98~-Mc0KkW8%Y?TN`uOZ$2vHKBRn zb;#{50{^jhW_m`tx-E~sMaO470;mhJ_TKyFgwX!DSJ8Ov7R6b4V@VYO#}eSE0=Fej z^o=64JYirgVlPtnf#>{pK>2l`U`z&nOAB&BIhpwdg=r&47v`j8XXS^|@<(QmPAkaI z4TUCVWM_}c7;*lxyhv@sobt$yfRM1|Uh&O{b+Xzv3vp%LU7l|TZ;3v)?e(G0nx#H{ zqYbuGa>@SIbm&?K`|~I5tN^TYqrvND-2I=t!AE@3|E=Noe0J4p_E~Jrq`F%msBMDj z?F4Kq@kLMlIroNUPS>;7|lpMCYh)%AIKH~n?^u;79+?xZDC`T(xKglg(E zOb=wBnOzFwl2w?#mhbIb)cSU&UurHAtv`DmV$5vcfV3I^`S{aMpV{^DCr@p7a2)Oa zWxk}(GX!*N8z&2Dt9CrRD6_OMG$X4lDhhA_}9TedVSl#!VeT9xwhx371pIkMAw|8DY~ z7yWJMOS|6tedLAx>JM9anxV9_pBDSde$+RhT#k(iWa&#ELF00xGSWh$vO;N@nFSeX zqeq8Eq-A8}WrT7wGcz)>b9quDP74pG-*;u&rsxD45~V6qh#VnR$4zvVF9OA_&Czgu zdZ@9kE?gO{ZER>xpA>EgM`|n63u@H|<&oBTS=<&@)sid>jVV1{t@Ft~Pkxw0`*S6eYGI2#QJc*kdhz~eV87;34DwnW0?8^SHoNO|3`;LMha zIv*r9rA;(d=QsG9m2>L-vD!>Aa}axe!;bw{r;?l<*aV3J+{~Q6>B|sZQlhC^q)WVcj5K3 zUb|rM&U3knL6#49rsindA7%tR2YMDvgZh9ynSg}@M?#q?!|B|^M>m~P{`0+dG`#rn zg0Ihcb2bOQwoo#3B{WY?XR7-k(XJ#a7F#^L4P+ybxB?rx=9eyXZ2vXZzTI3e=hcj} z>X$D$XJzGSn_qbC2mJ%DPd(=(S~1F6l74*UcYP=7KgL~qc1}O#FTcw?e@4}NJ1^Sx zWyAKtHaR7K-+`=$YrD=p9|<Nw_&W zr?#Q0adG;ThG;laU0xY()uKa3&RcLD>6n@=TwiX&djXJ z$tWLDzBfM^S5#XWX>4w+=C?X--U-*9XA3csPpl2sRSg<9tEGV%$*V>V@>^=_s!m>5 zR+e90*%riz?|R&b`6s_~t3}H84sE|){nu=>PT7*@k=1BZfMQHuaOrV9R=hED?Wx^Y zwe}vI{W8dROrPdVx}5vxULCqcZ7oWSHrdU9YS0SqU28nMg7Y6OkYITRW)NBk&K|4% z2KU^-g!5{n(2u4-)}+L_2=VcrGYWNhUyXZ3`H^GIJRC^A{3>T|{j6rN=YXhVFzzd3 zycgxTf5UIn9zXQHceehp$&Nb`#srb*ez*0*Nyq}iqO$E`DV$HgA77%<+Wd%lhp%tC#h+fj5Uf>8{EO% zw~KSN2kf<SMkWSW!yf^w=+gW}Ow)6Yc&>uTWsat?Oa?ha!%NO5t&oS9Q@73P( zlO(N{zOZ!Sj*qbvDBW}ltT-=Fez$vfBD&Qq^~?`rYmn`w47=@%Q~73K43%2QW>|)C zL>4wkHE1cMv0?{E&Zsx2PuMyuK|eV^Q>Q*TOVvy3&(3yudII9h0|m6kD)#P|?T+nn z+pB%X)a`in;0-BkKW54$?WX1+R}th;SYFBUvW~Q|w&vGu{^+t7&Uv}_qDylQA3i(( zOy)+MSE1LTxN?$JbvrR#+qyMhSvUC9qhDuiEEnnIxFGM{eB*b#HuKI_evg)QWe6qc zvhiDqBObkfjQ%dp@vC9Hlq4J!Y%Y?-{v2|fJcmkG`6Yg=X8FZ&fQIU_AsV6jGLjA{ zq&OUnLM&-6D36wtTNpfUO7q0py0G><4=T+?VXJWBLw*@BuB1Ft6OPV=e!99bQg4l7 zSW#nhbXK?$`tQ0{C`hY_R87T65bnZDW>ilrZ;lq$g{dJQ?;LnseWWGSSYKb>P*oCM z5}j7t9JQk2zVtl;fjsXDDO?f_H#FB))YjETThj}dgezO9;+1(|we}Q^c<=wBOSL~n zw(@-zmDja|%gU6Vj9)ZE^b3hL=m^vq3+lWSqvwk8Rpg1 zQATc-?~21zxrbv!nO05fFBiI0L zf^xplB+?R`bK2H#xUUn9ldIIY1((9y)iXj>XJ9vii#fXtF=waEX>-D*s5LkfQ-Ns6 zrIPffH)}MQ@%0$j&{9`-vNC3VG}<&~`0(b+`QiHV=Ja|^FBMI%Y^)z{6uyRMVMc3s zM&@v1G-rGsqCSL9SnJY$A`f>|lKfUbbYbNdZ=+Z4e z-skm7I~z=4S>-Q1{;WuhRtoXigR%!3?I+q}|9~mRQnis$HDbSEk)ovd{FwYu@l5M+ zC6STTRenMOW>RiKo zD|@0bW+D0T?5>W?b0d~QEWn7Mr{BIDmVmC*si%{5w$x7Pge54)-q?CaVnOLx=QFTY zXd+5<5-8yyL-`MatVrE%K1Kq*qt)Utj4HFxints_J`ub8mSAk*xWhQax+I>yvlt^1 zWIvQsi8m>Bca{mL)p^6Gzla6&p3?JX?+TjY#DLJs+BYN4u}! zdXbslnm?PJ1j`s0pe< z-2ru7PWfTajGcvGTpSxh=#}I@n$?oxj!=9v&=HH!taESZ2=Fpyv0A|%L(nmv*mEVE z(@Befc-jo9B z%Z40T1>$SPeN^SEYH?2;qbLDcZrq!|sdmiqP)k`2{9=S)nUk*}KgM#9Cmj_OPMgAa z6>TNpcczT>R1Js#$Pb3mV$6A|#WU)_?0Qse8M&1oXOTpCaiwD`Vr9A1BX4t6sxQ|g z!axCixDL6lP-{oFZ|1PFi{>z-wjs{eiShXRm`6#C{p9hSE?ST7wI}-_XYS1{T$T;n zFxL%R-`1j~bN-hzwzOfcgwL?tPd~QjrJKeweKyWMcD6ks-3j|>j$a~n(jjw7?8Bym zLm+)1onYFChb`FnE%RO!3Qfaf^?g_Esj{YID|W6+Ntc*oI+jY;Z`Z~;wael6V~n9z z!b zMsPO?ss=4jj7eQn4xR=syFod(ZH#rxYggs7_ejKbZ6g+GZc7(!v%0(_uf!O^eWs}2 zp{yzNWz+$>%g^5r3Cd1)C26m-G|9ZDRx=QbThbYO-1fQvhE1m4fbntXO*?5U9rFr; z60-ch584GQ)r+kY8N!Y)`(L6Fw0SVM2}xf#lOX1OoGFc6>2=kSQs!1t&)7C2L)hhd zk4B2~7v{YeJL9Z}UyT&$<@b%h^``&UmTlI_QAa2Aa@|9_KEH0~f`YY=^t}GAKb{v^ zhv~A8(#r`=nXZ=;_ZGceuOq|p+j@`!NWGklRd7~#0bRY6ev-L+h`SC_=G9Ik*V)oz z)o_Wlv*bFnhKoJG+6$Ow>AJFpt20gr2b|I@V}|udgIU4KeV|@1b;g4zpTX-yVIG|Vw5KX zciy?roQ6y8`#8G#+HdyjMcW5s&Ux)`ZL(a=%@M&bhfkVIOJTOt8c^VMCF2{8{mYu7 z;}`5Y?a-}vzR7udYij)LKhn|rulPOpPo6O>&r1#*`_6gC9sBCzmsFfGX54SyQ5SJp z^Kab8Mz?+BNh`F|4x)cgM@fpkO7__KTh}c(+s_L-e|`TSUH;`8DI0T-X8lcjEZG@r z0c^Z!<;{Me$J%wIQc4Zxl5sBIAj0~k3(m2yOE8uxXysE3Wj4?;cK_Bk_oYYfnRf@-(Hyyi&P;`#52Q}}=4by&zw!@xvnEw;iQ@DTyK~Q9e0uDzw?2Dp z;nSsCUb^q;A3ekhuu4R+XF{Z6|9d$D>?i*`*|G^dNhR{e6|CItYSbg2k8L?%;1zS$ z?JU@O#OVq-S!+(D1ef5p@on3Vc%3@^CKjzok9%#_z3vBHq*Ez+VOYzwwDb2by#@mx%u7T;Ttg7OC_8aon?< zJLp9qLkWrVybpSu+kf1tn;*Vr`vbc&=M5p9XWr>9h63i)lk|JGPjcJ#r=kd{jjOUd zdjG{#>_5x%V|W(iXyl$}?YW(#<5d2ncbq%nIjdYLFQxv!UYfC?TiTk8!yY|9|EUw+ z+tR~O2cjl+?>6sX?4d%xca=>86f9v0o)>)?w>Av+*1o?#?D? zVcQ-=jkD{z-~L*F^uKebG?AH0)@z~4oA7kU2=X3QPxQiLg|j{#n`66K%FdapZYV42 zn~Y_7gylY6)mDms`@LsG-cr4;RNs?7H9Hn{gq5SYPjfuZLR)sE1MSq=k^h{G*F^yGAI>55H~V2A+@{@nUD^EP{t;=@Z zG`|0FA6-BVvza>D&%8-J1tmgSif}J1?!Y4*x%|U%<0Q`%W1iV6Px6~%@r^#>n5D&P zRfa6XchrptyDPWd(FR%K(j_1LT*fJgNuCJhJa^a^Fc@hG(lAd| z<~ctjR4G0O5^}ye6T?~nJ-w;_rr=ZQNDbGsR4NPR zRe$x*z@wp;)=j-_^X^0ciE53hS8Gpan{n6Ec%5GB+?J11TbCZYU0;-E->|<_BPDKq z+qrLuS$m#;z+D?dihfoPTRBux=*jIlWzac~X>r7D)?b$(MYOW3bItSdmNK-XD|R(x zED`3NyKu@K6-lGzYA4!lOKMmLYOY(v79hO-4Q*HK>5>r>%YM`Ld!CIx7I$Vm<FfwCA)~K?q5oT1}!XI0kmlhPKFKMnK2DztsP}|dd@#4kli$|n4MrycsdFJrB zMbnDaZO(ZnFIp?dw)WEB&N_avZ*n(6jx#k{UmW%G3FnlLRCZl@chSlo6Mk_lH41Xf zmVSI^n`fb?u@(8@obnL15xs|_o^!wCd1(G<1#_6C^nc-Y7TO z{-s~0>S{AEd+Br%wAc;MUt7&ohW>KJQ>&kqE%m5_%Il_0$~|EGBM-kfY(Vxnk}rw* zeGGZmf?Zh>!dc58_t(ycwKbGH;d)rT!XG|&SOci8UQgS!S>8H#ZAc>GOVyVd)L6#Y*iyh^fWymun zZF||?Ufb-JR+gU~K5A8+#|DuCf4sOTN0v41J#=|Twoa?e?Oub z{&X9ZNk|*DBJ+{Ha&=ssZz*kKOm^w>bGj{S*RDOr(yL@L!TGdYDx)}E9wcu4{shDxIeRMSaw;%uPkE8i_zg@kyP0LvMe&)8Z z>mU8aGt6mw^~c`)yZia2iS^wk$eEOVYtV}XeXlECIj;LB<4)Lg;|VqAKYQu7y$o&o z7)vdV0N*+ay*>-S_MSi5-u&CwpK<&l&ubkiuk3MgXv(WMZ@UO$w2?~Laf=JJl3D;? z9}5SgO#FVi5Y!R<#ARei_Ys?&G(QKUAlE9+htJt*XF8v#+-=1m#~;eTqzlRqJk-dZC@;I#BnLW!)vC7dqD+$9j9tMYMBD zrG8FNvF6&YwcE8a;wBEG9*yS>ILm7MA_Sg~tzMQn=P?s2CworAxxD;vw~}t?>GRW~ zSz>bbMCOZ9vpHYJa|qdH{kM4|-O^LWvX<%fKIfJg{mT%dmo0ztXz0>qj!5tA@fp)c zx?1`x<)Ifg-@N&RCoXz&?i+dxb#VYK>NtWjG9u8c|(C;9S?FYv$57QYEHW za;#SVRg8fT{Nuug(i2%;l1Guguw&C>OIPPbc$!sI+uNS=BQmt~ne#QUa~T6&ONlD; zG(&IEiaUFk{5$0PsR*R!rA5_Rf4f1G;$&7J>oO26HFYdrS5)|~()4GN>x*P;cm zMvKw5I&1#zBpyHWf0XE~d5qu*Pbp2;PINQ&iO!mTzxrcu`kQ3MrRCcC0;cnXB}m3*p9uvvE#mtJXaC=*%DVd&&uQ5mA2rDjPaUvv@*r<*bay| zrM^{25%f^zRAH!5ar*>)|)tgG?g`s`9hYEO$jv;9cWwe8TN zxE6F=*pE2l=Pad}vKc9Zu`gMr7TL388Cz#f>~dl)WBD!RN+Vvo5swgdcrHXTBoYShoe2{e>z+@gExwKLnyVADK9~OAp|L6GF|Ltt#OUnPa^mK=S|0WMg=f(f#K*!+b$p6km0PcU` zm;XKo_}|hZ^~OI+3u*6>|1Z;U`^8@o7ygmdU&=q6QRkX-t~I5eSGLuG zh~KNvNSfwG14xaG@z}LWL1Ud;Hu+$Q%c}o#vU4ZrO+LqdZo3fqB>jvc_j;Z=9ys$w zM*ACCO6+rq^=P97sEjQ+9I_a%olBFp0_HRqq9kaYua|@$T4J@|aK<oSoqfD2PzQpC_j}Ttlg2ONq79?vyj4RSuSLD=>1>rXDmUrxH1OGN zIh1{v7R{3}!W2OtO-nvXC2Z%i=a(vjw|Lo0N?o%3T47;BR*RIDLgo@aTND#}VG5xk%f={~ ziEpy-bsp}|M{Ha{J#C7Y?3RjBq2y0ne76!2Vcbh&B6MF9)e;ziE0)1TbfrOJW)Hq)rTC18czD}IG8!#=G;&AklZ_{tDy1m^tr>|cj-|N>l?I+6A0uWV{z;`r z8M$wmexCuU1toLskT9>BT-ZMY%V*c2{W70+x;%T@Z}){=8FViFG*{7CXU*Jcd2-VKEsU1B0ry^j z?tr}kJpkm*$w%<)3G#rn@uy_Nmd3Pl^f?H?@B6@KuVZ~s*5ET*h|^kk*>)D0?sKp)%;QkCJ0%(g(`?)j#?c0X~XfMOvS+f8m0NH>X zz(@eCwzzU77cd4e7BCJl9&j??6u<;P9v~kO0u%rW0W8@`fXRRvYnD(8{P=W>T~`Ok_GQ+vNd283Og7y0ub` zs+*x5bOR_6F>*GYdLK8Ji2W()j*QcapL;dc11nFR5iNoCWQ$e$CciQI!xC8kHXRX= zR?}JW=L0iWdoEOG=U5iB5jCbnd?)|2m2Lr!gUFKV#L1^^A)UJ2=<6#tw-)*VaPXc-gl_XX+ z?MMqC(b7&l7tiuBrqlK-gpqtC{%K>Hi>IRyDgC|fS_@jO5c0n_0x?e3fme9Grw(kk7LaoKVhi1w0op?fZKXQ28YKnE1pOerNdrZp zeW_TFk%gzUGvx{vVcSkRl#6HFwSwz6xPm1^U7g|&YaY_D6qu5Sm0AE=F_fcShoKM4 zgG|+m(I*62dpdZkYNVJoUJ2b>K0;C>rzza;?4Q09jf=}B{T_koVC!ck;eB_XPuTJ z)?}q^tUAsnGsbj`)6_`TsAJd^NXE1fP@=*7qRIWy@#0%jYv1%qCS9!MW ztymen-#2+DUH#PLEpKmp<&eAP^q!_fUN|-Hgf$DMZusrGi)VeiZ6k^Ru2>me-FL^g zJC2#Q{+6oyZ#d@va-BkA#xdsmY09gQeKGfnL5~)08uLcwny;1|En+<_s9^P4G9^MW zQr#uas0{#IzS-}3YryI4%LE+Iu?p(9r{l8y*&E&~5}!4kd~U@jpO>#W?S#dLR!qJj>!)*9-(T@3`P`Zw z`P}OB`@t9;cv8|rl^Sx*CU-8K4LO7J*j#Hx3xQrr;V*k`8utdT=~jc|XFHSk00Mw`wuqOC^5GLC#b?3f9Z6<9C65Huu@67a!bhTLY z)7L-42AMqV+)w(A^=H@K)Wm6jvKLmOPx8z{YQ0chE$XfF5fS2`oHLL`qoD$e8`~i4 z2&B3ux%Yr`N$4})_WM)X?P$oIwW!^d`-umyn{oGl@&+IAN&mNo-}Bj3t2t&$eabCp z4x7+vC-hg8FQ7D%&jszAtgLBg{*CKS#VSOr7Q$GAvDbq&{SR$?{OTW!`WLC=q#jJ{ znH9lU5YaReoa=CRz~5FTe(_U|KZZ&ZxYJP!b*K&Q)D;HE^a#$7RyFPp`j@!z8}rYd zzN=K+4ajpHQo|NS%>zpz_4w`1pDc9H_f7xSh8~gSjuAIAd{OXr)zTmTE)S}6JY(y`u=>bkR zs3-$qI(I9~*WQClQoeVlrkgua{`FNu`gzG>en?m-i2b2{l3sXg&ktYS`rpG2xpm8L zt~`jAUoxN4m;2y(Q@_rX|0(Ew)^nT9yGU`TuF=_}`_|vErRUrq{~-9@DNUaqYsmj` z8ny0^LSZ|YHB?dhKs`O-Bv?XX3P+aDw%3O~8&vu|G2yvQ9bEsc^Ga|{)IW0y zmGsa}?~Y8XE)n~mN%(RY*&H}Cy)8j1C>umoTi9x(i02`=>EJQ{pl}XNwn8;hk3S>* zb=&`s=cv%O(#<6@{#=O&Hw+iCTDey-1L!^O$u#xH_{*Y{ElWOk^QYqFKgEQiI@+*| zt*2Sa9&Fy9G`IKJS1(*$pO<&jUxyD1E+{+MfcXJje~C7K8t7gIn9@tZ6091br_7!P zrsDjEc*ZZeQpmcmpgG^lfV3I^`S{aMpV{^DCr@p7a2!Z|TZzk(=NytwH|4&j`l(4m z_Il7Fc|a+_gQVOCS*JwmY&5$FJBuLENS#uRR>4W^7*S%qNt7r-@8Ss^)6mx0?}}A< zoHNkm&uRPS?h&3ZT0Hl0!!TY?df)Ab^}cvPc*vizluA-QkPN7iF3;&?eHgi~ctBrCsm+KJvnT^@puIP0Jhem;E%>6`<@s>KjllhiNRI z8J$~M*}Zc=ou*QuO(Z*35WR-GM9sp=0HY|Xit9`O(xkfXy!awe+}a!s*QbXX>*~Ul z(b~p_=JZM7hH#{|GQFTyeNY~0otJeMLz5IQOz?E=vou7-(MWAW&9Gp7b7fiXTEEsC3i?&3<;~T;)(MWmSu;9#=iaOc;WdD~M5&7Il{|^)*{jv^l z>FKUQre*&(kN=!mFz!d|8I=-5|EFZZ^(IV%_ZMQ_gA6wt__!A&FX z$Q`7-9OvH;L7;f@-v{}p9*(XAcxdS(q&-1{<-TSt4eBj3R0<=)TmMf4{gJp6$^XTO z@J+xafaQSS0xknw4!8n9T0ws0*MJuRR|8f8t^x4fkKwNZT&vw*2mgA&4ch%$_%{M> z0^F=UyA}RzfOUY|0gUHP`0D|8Y4<;YzX5QMc7HGYO@RBfdvY6_0b8{Dhv07o{8YPt z1pYR_quTxB@SgxYsonn^{&v7q+Wjx!gS05mX!p;-=NR#VcK?#*{|f%gfLFBp*WkYn zcmwbo?HTj)mUjIa{I>zW2T(D~ckjY~PrH5}J{6yQ{%80fYS({-KO>+he~14O;A6li zfKLGo`+xBN1^5E+55PYGeEy~8e+B<*z)tOc7ySPMzR~X0j)M5T$KOnR;q2u2b3B3o zy&A1^Xz}I_c>mS{dE?J;jgI&+45(|z{NleG;Xn6@Ki3tzI{vHnXNMx3U;G;pmUTnt zmH*KqnBzbBpJ9009pD%L{frHDPgepOL)(9ja@0sx;Z9mS&2FPgTzeq(f|L`Xx78fh z9|W>+y#U}B{|5-mzD-vQDqE>Zfuy-Y@5LGK8mzesLsRPRnEw+Iq(8tfe)ba?t5^AR zZ(TRX_LqkMlK_74AA_1f5j;E1IrGIm4&{x;lx%byCf762W`zgYaU z)UnXo8su6DV=BfafS)|wYu!}zN%@my?>GNOq)C|nQ}+vivd?$>H_{&||9zM9e}^Hh zo3;A?U!VVDU+4zd3qaMy-hhJv`v7_Z_64xM4uroy-~jEuH~fRNYs$0i)5U;80fzxj z1W-?NB;Y6j^ zq4_!RM*>D^_l5As0LB8wY0plEe+poNcApPF1Srt%C&HhkT~C33DqyO1Uj%=;c0CjR zX@FVUeJT9Y0kZ*fv}b3)KNCPj5A$%g=9j^r2PoI>E8))vgaK6D)&Lm3R`VCauLIO; z_l@wI0Ih%spcxPa@S8>O7Xy}P_k6Y#*UJDu1Y7{P5O5K|ZT*Gc^&frEpN@>9|4&0$ zenaPmU+SVH^%q~5|FQlfZu-yikg+6T{YT&cM0PL$(YD1a(g)fUkv=OYLQy`?*#b&z(B;cPaOD-{m+U&0scS0{;l^qd2=P z|4$vWIIT!<{j^gQ>z~LMdppQKans+wAzI4pbXNTK`)`P_cK?aUpKl_fMOtK5{NzKa z_fO^e?~8$3>OZXbDPvFz$9|Bi_1~ufKY1QHFZ#o^d~QzCAJQH=x3KcvXyE=tyYa?9 zLVjlJOZ-)M>lgoI;HO@m&Kp0qo6e5(|4h8D0rz6v({Tk%%Z8L^ zx>h#GGw#i70BCj`goMgnsxUi3u`E=T zc=^s6-uTXn+xX79C{?~gl!`Tt@*VLd=r|X+9{^GHQ2G|5L@P9F7`gLj!2a=p=2KY$ ziseBc^LuI)0!r+|0^nYiq7FsM;7t+iEP#bQ&sJCgbmS^sVfpL4HiBo?H=w@wuXlNB zc2bpcYNJQ1>)g4MlJlxmrv(Ff&@M%=QkW^`zM{2CZRON(Yf0n6aKreDQKQOpDsx6= z=8nh?XN=B0dzdsXHd--HE^nS6Ew88x$8T%whU;uldu1QZX1QmmvA(H15{~pFw&L3J z!myF%DMdRyy%R{M6#6qGBQV| zFREyYG%i?HIi|Fw8TR3&^E-O{-V|_H*xo4_tLV-%=UjB-8|#&G_TF;- z>9?buAI$4{*&Dab3=Go9r;}PgSSMV)7K_? zudU639YtzrG?w=J8a>*(ekJwmFWuL_c#Sb;zIf%rweNoR!PtAoe(_D-!~qq@pKPdG zTErXI-^n_aK3>~60F-NFC}P^ib`W_b<;r?tk%2vNPVh!@nrQfxl(wcD*MS+ zL0Nlq%F8{mcFffovEovh4zDSEG@7Ccp|IJ-G z-5l*NMk4^{$;oNDg_ZAUFYy=c#tT2WXE!J9KiIPT;y(vr-_#=Y#_w(aC^>Au_(>`M z?GrzDpmcMzKZzHAH6rAkGM!icc_N&fWBDJ801V|f{|gY-ul-4uxBXGv`M(PIw*lz9 z@}H%)Y!TM(pZTXo{}h1V{QnSPW&O{ArCGIV1!r9Mo(6u9JKlz{HAtT7+u`Ojtp8T+ zKdE{0i@yb77xDu*fBS73H{LUI!ikLz)N|M4$6Y#G+qeg|p;U~*?N2esU{3V$l#Wu= z%IYWXc~l1#`B|pemDjC=XiSlm~-t?&sk4@dfyF!)XabQ zZE;@w4|nEwbL4-9AOPo){qi3_LRi22f2KG8r}96t-MFPyzFUn8zxKzO7|q-q^FI^; zsL%DA|1}7^zh*n&UH;PS#Xc3lZ|Xbtq0CQj!7V0$RG0ewSN-(^r~L=@{a1h2|Bi=W zzICtXwmdLk!>{K2b=7#JU)K6Y6PRgqV_|7TM`Kg>K(`|@wc1I+&B1?su5w^VC0~MtoY(?aAnR`Xq*unYt9)CRbU+VaKyq0S{XU)a~j8%VgH!eTdZoTlkYd`h%KZhbdzxX#I?AJc=Qz~?G?cM*&D639^ z3}@Z{dOF6K#hO&N@wOEo%$$+);>!NLzyA2%i~~+Y!eon{i)*&@M|z8$uir*Dcyj>s zf?!{kVUk{kv*zW&4sQQm`M1-p|7`6YZ-4mJ-Z$?4B&+|S_wJj^UM}-js+Ge|^!Q^j z#vFrksOSUJwj=Dvn$DhoI~&Jg|DAZt+Pa0~a#uY1{_cub-(e4x`RBeFYzKX{c94Vo zj|Xv>1fOH=WDLv`pnH_zQz5@4lmBA=Ionx-IToXx=Y2nXW6-95^($C*-jJs^%@}Yy zWdNBc?tQ{C*o8JgeuHgb-ath;9@C76Tlzw(?5A`coIC&EMgORib#tUYGT-#w!pe6K z;=-@|HBx@$;LG)&v{Uel|6zpnD}TC6zdHSwW#EuZ)8o#x{?m#6RfET_hoy17s@db7 z{BmY-@WAuWeeBH{i+W#mMURa~1UJZ$k0sC#`HZ5)j|OLW9DMIm>Fo5+&N^e={NC#t zkNWz&O_Tc_qg>H_5W03-PC2)^5qj4Q@A~zQEylKw3RbDUb6#2BR@c$>??wOJwO@(Rza1z9u8F4e!tbvA68I_W z4+pU18K;+f76Crf0(s+iPXYCR5QVW$#XtUHg!Rk+^JoY+NBqn;T{!7jm3q9uz m@78^D*v1cb-un8I^>58Anr9q=WFC16jW{{UNvp1pYX1+{D!A7G literal 0 HcmV?d00001 diff --git a/ArinWareT4.v12.suo b/ArinWareT4.v12.suo new file mode 100644 index 0000000000000000000000000000000000000000..6cff1df176a504d472c06356708e2386267346f6 GIT binary patch literal 236032 zcmeEv34mKw)qhGWvZyG#fDncP1^TAR%ga{ULe_Sm)0R$YK~jfIl9{H>Btw$vA{|A) z;)Ry8XY;4VC}z_wKusm(0sHOPeY4W=`%~ z?|SaJ=bU@)xz9cOhM#}p{^NdOt2h?fX4?M!^1-$PP4{P+&TX%^+1`QcnSg)4{PN3u zGy`x9;84J80JuGUw0I4ywB_(uwApPDTNYv7wgoNM_;IxDRU_?uMxD?8c>3i>J$lc# zXS@sVJrWTwuRw}9+j?6EQt!oC#J0IkEai`nwjD5%KC8O?srA*-KvbZwemHF&n`R5z zoHhr3{Wb-^D$X4^bK)NrWfy8F4oHneJl}S}4EBM;0F9>qW4ycKDE1Z`QfMUo zRkoLzVz z^yPL?-~qi)12q~tjs^Ch$!*62Sjt8|B7VsCmfHrAUIwXWb?CE|Xe`G97pQTq0l@c33&{WR{EZ0t z{r-GRRsQb?w9PdCw?AWM{j$mNcPYla0!F?rNOfWaPUxIjy)kh182B%sojzVNtUvzo zt?CETpFtg!ENS&OOHT%H`lNAr5%`-7;H#%_hBQ}dg;5Mp{sR_rT>xt z`QL(0VzWcfM@d9bqI|8S^=ED9|F6Osbw7=k{}9j~$}2pq#{UEH{MCF1 za4>-H9}1w}koq6uFZDm{M`ryG^+DACP``Q%;8?&L0mlK32b=(S6W~O^NdP z6u@l2sesb}rvv5y&H$VVI14Zrpa9wd^8gNj6QBZI01e;L909XiE z1ULt9E+7C10z!Z=AOeU276X<5IsoSZ&Ic?7bOM$EmIGD*E&!|qbOBZYE(ELwtN~mE zxESzez$JhfU@hP+fNsF0fHh6Wd=KEgfcF9351`)Q1Awam9|U{|@L|9;0M^ZR zgx3PD16&Wd0q{}4jew5<9s=A9xCQWWz^#B!0B!@^4!8qwC*YHSy8w3s?g88j_!M9V z;M0Kn0G|Qu1l$jJ0PtDBgMiNgn3ty!{wIKCk;iW;uI2qkLylRWuMx*4JbNDSeZUU@ z9A{nt91CC?|Ap`;0P6mJ2KYJP7Xa#F$P@lI;Maiv0sI#5UBK@EF9LQ0h5>s3zX$vg zunq7hz@GvC5AeT${{#FT@K?a!0RI4xDSZj>FTh&?{{|EQHsEvsyzYRme@$S_kz6l1 z&jL8$K1c(_nmjP|f9D`7>IYaxMqBUTSR%(Cp><4x*WOey^0k92r&c(Nu`!AHuRQYC zk8?feBS~=nYZ0!PHjj}9HBLCLy~cPRMvOg>bozA8KW}J3DG5;uN*VRjsmlV?kn^tj zK>8zTH=6!=h=4f3<3f}#gIMDzBg-jg8dH!*So8JfL&w5@nfd?9@<;VLPeKmdg4*su z&N3pSRemQr{Z7kV)Gl%7;STZ%`kjK`Jb59+NRhb%aN zToC`*3T7-Vk5?N*`=5^}B>uB~IiH+IN^#UR>z~@_LIoyJE@WO(Mvi1IF#p^%{+Zjq z9{=mKxn)w8A^G3a@Z@YjqxjEpgEWpu{q!~QVwK;q@ZZ}J7w1WN)KA|fUaa!V^ylE& zseneye*@knFU_NV`l@)b%I{eEAID(QKpvI)hp9OK(}8kK&;JMls5fezpR4d(&i_=> zzco4+kifWKInr83iutdm>CZb5)saSYmFZj4U+c7a7yL)l>2Jh$bQ8ULsCe~sz?I0iM^|9*^jTSfmzTp;`md7?adCE#5E-g^(iZvx&2_%7fZ z0JHqhcclFP5j^AdwFssB&ug>%f0OafEeJmjxE1gT0N*pq|GYNK|GfSb-rE77{LgE% z{Lkyp;{Jnx&l%4tr|$xM!MLU_;9n9LC33$r5e%c7X zWrWWnd=Bt!HsMJ>w+@I0H-ac+m&W8(hNfK zpbmgCF7Jk650-#Tdg-c9?)dAE&N%5a|9b4>$(QXZd_F>NkS+aK4(UCDufq76F;P+% zvQx}9`~Kn+yS_8$>vr4m51;#l-S(RAZhaz#w?p85uba_fn~(1*<=&WWH6)<|Vxm-J zhgB}^l+uXX4jG9#q{Z?wikR~2=(iyL&^PaFdwoFTy;{(Asx1HO0Vxh)J41g?NNxE z{21dw!S#^+nf?F00QUd)1Fiym0B|+ng8<5Lvi}o5x8vH}|0(B~`~O3@rtDGK|EKkT z`%eG&8ng#cNk0}Xn71OG&8Cv8(gTYYm`*!zGmo40bTXAKri)wJJ9F9ehE#rG+aE&* z>)$4dh1lwJVKAPt2jhiw!XC}#?U7}Xm5VQqMMBHfZl}lLa65e64zI%z3*^(;HSv6E zBd2flqkUsfTPgY#xk9>_&Se+2Io%%3)n?xmFDBM?6jS}7++end+wzw2xh z{m5ToVOyKMur9YLo$U*a-0F>I3V3HQo4#x?)nSxlVOy{>y6SjD(hgb@0XJOIGj7tU z%m&+BP$KGQNPVb-S%_Y%;eCf*Z_IxLakM$TC}Ep@X)4=ST(__drxz{n?JcB`S)a?@ zW?z}g#Ea>Tsc1TrS{Cn5Eo{>(VdsqT(ZBK1pB?)+{aWJ>ZBYcBOd3@2+MO@H>#4Uq zbJ)f!-N(#Z9egueUs69A@?PTy(--4O^)ZApS^*=Epv?cb?d}Z&KU}}M* zc~kNmJSx-Q8~UGjBHecMQXZA*k468(-hL?JVyH)2=jR=Gevt7_W%_$V|FaTlOZ`th z{qwZ^@2uIHW6{4)wETYra(E!1QT(ILjl{o7{ojQc>B#NK`-PgNhs_T3pOhb%Hjg^5 z>yPcG^vmTw_69NU%vs;^nO5tVx&DIba^!6^ecB*}jp$Y*y;b1rIM2!1&dvH7kUV%i z%9^^UYn`xhm-bgj<6O#5HD5L!(hkZXKS(6S-Gm-!1wm-2QBv+&hs8pZpSzifZj`*C>CX#G=Gl<~;+C*7qTf|zyB zqZNwa{md(EfJ|6%)X}ma5_TM7)#?t>4(*8AQ01sLJ z(#Bv6_TM9AZ?ybo{Hr(qa}9j0L(V^)j+YuupZXr^D0$RR-yvSC^2_uUJev(@H2qKF zUFuGG)JxwlUaR^G`qOm%-;3BtgL%|T-zQ$H`b+vZ7f+7`G+O@q7@L8A#0A37aBCaj zO2E4Syhr`tHv!cDeHZWzfLZ^?cclLBBY4JZv;L3QX8qqy#ygezKfZT6p4|bs(|G4D zgm(k(F|I#_a0lSi#`U!RzqbCLbxNqG|K~dgpiZIO)_D^79oYl&h}7;K0^oh>3SSGL zj`%RZ>j7^791b`FKpu#^Ao(HkW5mff0>~Rs$Hq9`WP~Rnv;$5CP<}iGz&?B`;4}c~ z$sE8LfHMK)fQaYp>+OJf08$20CtAq302;sz@Bq93_8s=$`GB(l3jhlNivZ^U&IJSj zK|lx)21Ec+z+%7>KnLJF!1;is09ii_FECwaalQ(0Az-y}|00AJ8|RlGi~-gf*WCy& z1;mZ(1i~aBWnA|mTn9)S*BcOK0R6^w4q*{+8Gw9p0l++MM7RlX1z6Isg(W#ytO#2wdzgHn$(iR@|+n>F;`Z1RF{|`j> zJtN9`>2pr4*1_~iU+jQJ>;K(&_xk`I_0m^$3MSsQ`X&C6W-)CZR_|2adj>b2G;Ut> z>>>Ku{i*Liul(_2B-KqFvq3#6J#PSIqOP8vBtBOD7pqUw0=4%gN2EgbXyjADmn8+_)<`0k8 z@Y}bnE`(D(gMBOVsRCxCF!7Viu81c##QRcn?W>V166=l@H_#rS@D{NvC6dfmgphnD>Kre|j@p2=sk0B`TizJJ?;$1T3&jq`pL zdDCgP-?07{zx%)kmn^yMZIR0!-S*OPvqCTZ@!G$y4}bLY2VHmP&)=HA>gqqA`KN8G zJFmUw?ALwiw?8}bK*ke#sSUvc80E$@2S469sOINj1mE!BKE|SY^G3_iBZTci7OM-y z?2({+_qBM=g&t1McnR+Cffmp6XiE>#k8f=O><$AHsLvAqWoRYS1$@{HT1lSoB*2Z6 zUb|zl4xzn_;N@GruWi5>#9p=mybSGHM9#@+Ocvg17~eelSW~-Z>rn|SyrtCC>NTFV zu&omE;!bd{98aj*<~p(skU|=@=c+!IXd`2LMXov1B=b#npZM`(^axIk!Y3ykmulBO zJxyD!2&k-eY8_iadr&REVQ?EO!Hsr7)3g-)s94Vc4>UT4?|ZFBwS14Zd=(nTsYqki z=p$rNUs0ML8NWG)H2E}UeEqc&+d1F0W72!(`0~6AwY_PimZ{slqXoF6YIrVJ7{MKo}(j=sFb zJf1n#bC5byEt?~d^9~foE9VQ$&no90%+KOCTyVywqk5KHuYT^L?f3Qk()_G)j>7y* zuMLYItN9OBosowDOrTKaMpOsd4lk|2V~?SJZkE-}?K4ukf{K%#B?T2tK1&M@dr*Cx zl1UFZot73)l4 z%MwEODYYs@P@$t|uj$aW^h65TB*Hf!(U$Pe7HBZ$V`mHG!;IAC#*sQdTDX?hP|-?; zIbXs_TJxVWa#j1x{0-0b!vU%|1WO-5+ekA*0H;AC6;K0GSGP`4Roo5Xtjjk0(0>Ka z`oN=0?*Gxf&mM8-n!}db@=u)?IOB%(=imKzr-@EP=v3J>gy+=Ow@5fGDddJPl z`>sFn5B_Rzn(1r+A78H1Z|l5Jg6afjW`Mcr3aTw_qs{SYdVCxaocajiN10h7jsje7 zEJlkUMiY(}93P@Mqa}$4f6Rjy_k;Kiq{E5D$0Rsg72~1;G_Tee-x`C5i4<7)i4P%1n(G!{K zcw1y5^D+@Fvak5ZiQ`(w+aeQL0~66AKJ*U{u${Ept5ae27jpINvtH0|_K^V2o#-11 zdP5X%yKv1hD~xOQm&U23=pz%E>UdjZBJ(m4Ekav5)~z3{;6cb8{x}|b^%mhhN>+Yc zQ}X6cfNuPea%pIZi2gi+CykC@v^A!THF2qS>C9}OPQN>Ji#zUDP*1|7ZSKV8BMb|_ zFlxwMH*Md9r%k^!)aue&uwKap-x5I!M9|jkPi%YgLs0-rAbKS41<+DnyvKXQ3Mcp$ z!DDfxV{dJw-CurL@(&Z4>UewNMCN58dZGvQOS(wwZplB;qJh0mL%p+|*h*|MwhjBE z3*Q9rj$40&x(|0lEkfIW>Olj#IGu(tok9w|5DW$Xcoaf&{dS^{ZN@uEn;p`k@Q75B zZq7z5)T+pXQcR_ag3qY$$)Jb!;(g&MCt_Z&%W^C7`Aihtl**Qp;Wj+JeGRy^2 z%HauT=!$q=?h%QcF)g{RtyQ5G8Fg6QTLbZ^S3n5_Rd~7yyCUwO=8Oaak)f^KY{fz>>Tozz@!Os#=oBkCKh_t|Wn-6Q zQ$=lUf2z=3bas=Z!Dp2x)~#bttXKbzJ(`}Ta#?(gJ{|CcyqXs9DUOI1P_$^s1M=hv zC=QRN`dkjT=J9Gn!OzK@YMy{c4F{QB;?lIBqB-48B^V636^}RSjIxj+r*CL$I1d+B z9ogPoY~)N13aRmSMighr ziPt?&RKHV;D*iB<%N6kj-40Yg2e%N&T`|T%DZw*Y|Gm|Vu|8Q$Z73_9j!$bh4ipT; z!dW{otXpmOm0~WPHPbL(lqCxJqCqVRGzvz7Xc&*%tN0@UzY>W?JidU}fi?>bZS9N~ zimCkhPSw#BGo8y)RcW05Ep}rdk7fD>GKpfUP>l8KQEfm}z^>A{$b8(BKyQenH>9+< zqV*>9-Vm?o4c~7r^XLuuFLN)~xy2qLGRH1i#vW@bQgg-AdxY%vrNWFZSYzG%g|QTD zij+<1S|u37M6a4mCS0JdiFgtWSyEN}E{6(+%Jm@?N0IY?u|N2 z>2x`}ovP}H={IA;58br;);srn@L@2e>1>g-eE6;_hVS@r6Rb?|8?rQNz~@mN{)iF@ zsH8W3bUe4yr9}KrZvYIcGpf0VwsxgSeLLg%L?oFe_tcf%9E#_wcDKYScI3+*FAR`A z#0u%niFh6XW9dgMDG^H|mo4UVnG9Bt#WJ}*kfxCv&CrhT$ij@98djkjEK3z?sF55R zM9@z{uR0yws_J%>$YANLnL>R@7OH9aMT#=3vtmmCBx4-ED+ zgJIts$-mR(a{9w=B@m5-6istP6hFo_5cFWgsX4t`$cO&2Vri%|#-HxU@}&*ryJ~ZQ ztoL`Pav8P-Xu5FF$(w>(h$Z^^3#r6lo^C%I7h;0Hk;U;wy*|{EUvaq{UUYv4#K~|V zs6;|8r!yGwd4eHzXsa3y<&x|$8{oAwR(4gj)0AY&vce@!G3dFPOdw8lAI2#tgX%#k z9kH?}v1B@q&ZLWK8`G&x1yyDuq4a1yy-GakaQU@fPu!Jo4F$g|@o&P~uu)O2 z3N}`-)Txc>L@Jhm9MMcAd{vez+$u8A2>0AX|GGz(!s`h}eNYG};ZP(DooNKRg0QM7 zQAaQm^#&Yae`9qiqI+GT zuRjx~m-$BLnu6b!dEKWqu0jLg^u+YyQT)>BGmDmn=ldp#BWUvuStc#whKkAKS3IGB zN739`MDh8fs^apx9YJr{puy8$1D8=$byN>en^`F=^Imqj<9$h%@cKaf&nFpnO8*%cp^&B z5pXF1N6--sxg9QO0EV`%NoSL}O@+X~Kn99_dKPj){*8#l*0{Lx**|M8C9cil03%ayTwYM|SE1KSY{U;pX$d@_>&x*_in5(7@f z4Ut~a96pB<@cR7_5~HrLBLa22-!l|^uWXut8jX0h2qqD{noCUT1|m+#l=`HuBN~l{ zFv+~2GhIk<$Be?Ft)cm`3ky_y4dOQzP8Bv3a|5xCeoPpw$mbHNLSdxd8`IT3C-Z`- zBbUz?b|}$67*jGKs51R-mk0AQu81?FIih}NcxdY-5N_4A)D?B5ikQjh(|0j3&Ksz9 z>j5&E-_n!YoWo2pr=HZcoNvHHhaP|PBm1{xkkq3#!4bV|)S-sL zUQbvFg4Ks2Q}u&9he55;#W1OeX;2NEeqdGSYG4OQ)X3S`3#hH#{lSl7&zId-T`_#) zPEL;8@}XF~*iZaJ3S(hTN)x&b6~`z`IG$RQ%ZZB#E{;)_WTB}E-O}um8jY%M&ft16 zi>?Jg8GM1DreL2bie^riKZKe8RqUrEbsZfs)A`uxT_t_c$pV>xbQ+d2#Vwhplmb7J zoyg|`zZeOFumx1il{qn)>kB&FKu%0(MZ-~F$b(@~O)kZ3cpjrZHQSgM1ryM0QA}(+ z=2265Fa(TD$p0Hv$ZDf+$GD$W6U0HVV##-nOr;xD}e-N*1HR2J9)M;mDtz>76o_8Y)S)Y;l1tkoQV1~Sl6A|ovD=a!8pZ4%WF^|4USw6V za{mdr|A+L*EAP{B{|on%S!}7S#=#J9NY5 zdWba<5$iQ%`VoEhb0c?N|HxNyem)?)zu6ieW2#^KCA+t82j@S0^RBf?t4=%-b!|?> zl2S}WA|ov~auS}}HpqvRHugM!+$}RXag9{9aUwd=+0qK!cKRa=a89pd;r+nC{peC9 znlXCK1U8O2-id7V%7zk+GSW`^@<6u130jyWa37^g64J%j4 zJvL*qcaj*Nk0>jzo0UEv?bj~<ET~fZQ|VhH;iZ3M`{n<^r&@!{k&)`U)=hf#*ML?FTk&?+*k%_M3Tg?d!WKGRYi$ z2Iv0=w_O*&O`Zb_F0X`B?Q6hh%jeb@b;mgKZ@0bXyIY@#VKrz7D}qaXtmHebcKcQH zOjllR+eymuf9&3~=kb@G8GiKc2NuvlmMoVHxra{4%Xl>(%auOv8e8R=gp`m2?sG3t z?mQnuX>({b;Yr(z>kh18jUe2J9>nWL*PmW9>Gf~j?$Q~SmG8P2mfU{DZ|6My($9XJ zf9lZwqp!ZeRNLCuu&)^U#EVDHu)P~@JZ0_65U)0MRHrPBwTw=}m^kvJAG3J!rx{&a zu->M>Jw#*u1Se?=?TabzrxWerw0>=*pR(|Z9 zG1i*1gI+ANT{q6}tMAuPi_76I^LglcxVy37Zz_GLKYjM6-gMw!-#qsxvj#R^@Y~zY zW2t2ymtha?-O>X2ueH0&3uoQ_(ytzR;X}8b_TC#F`}rFlwjRX0Vu| zLEN%+!qV>`PPGzT&!tZH_kkMaz3>8nCd< z@A0?USEk@G1S|JT`821POm_;`E^YQe&*%b;bBeK~{?iLGPvm`7dSKCldH5|X!i)=L zTYBH2r*s}0(6?9PiZV6jtStOWZiJU1N?Psk8&tqw3h(zo!?Fd}Mf{N}aPOZ=-#;@e z{U*<>+=y{zrT65S)bG&C&mdw==;y*?qvXLEnXzR}o~vJDEMHaO|Q(n$yu3)=>Zy^62xoJ9**d!@IM zsf|v@S#66Jm@2pfXp+Zk_H+{CBG-#{=CbJxsXP&N0^4;YdNWEwGuUR|6fY*$bwKb6 zqc98GF88=Rj$SN!2UE_atZ=QM_?;=Y;*a}1J-G7pIung`Ah(9xT6G|wrnYPc zYLTY)IGy#IIy9Jv$yaezyeET}98+uedgCrl_4X>N+usX&KbKGG>2;@>&TGbq>OBrm%IQzQZ%a=K#-&*Hp!EDPbg*7o z^x016Gdyl{f6NGGmAE5CtwZu2QYTaEUHOcv!*9w9Bdnf2y_Z%$BAwAy0Xz-^n1||b zmY)0&rw<#K&po~V0d3&VcYpaW=bw3uW6!M0^3yA2tz#_v&;J+^e$9wf*gsM7q*qCD zb)C8nHjb9yy?RF*?4MX}IU`Z;eLjCJ8co_?1w&mcDjCuj!D22Bc7>>S-xr#n(!8ei zTqpPT9YEcXf3+=9E`IFY--bSE(sQ9nqMWu0!2Zpz*61`g3C!IDiH~2cz`k?=T_#qIk#Qs5I_no)Z_l?dG933m`WGpqHE>jO*I>9KwEs`dfLPE#JFY_?;E= zRxy-QHD)ANW8^5e<`gMq5OYFLO~}^m`gIPuJhzm8XnA;W=Slk=`l;KWn521PYzXOcCx-%Bq9o^^j3*@>0qLaJF+LoKy(ck-yv6{^!aCx(C-(hdE@~f4|4h6B^N5Di z=YCNcc6l5ZqLfUP^H22oEb}8bUlMOs|Hb%Q#(`FUv-HGV{w1jOq@H#bWzHZs)N6B( zFrkksePw+%-t@yrEdk9FwP9>;Glg1#XVgJ)XBy&!6)reX|A!-M+_ApV_P+`5J_E}T z9<|b!^J0=#i7(23+YS6X7q=Tt-(3G)dTrBoLzGcqKX=6K)AezrlHy5uy7Fo++MiVG z4Nas^4c-GpLLAF=8?R2JmLJvgR@dRZ`91l+V-T|JJb16(!M0j$yhM6ZX?0(sBjvhA zGaVU=u2Iq;vBMVYmGVaI98fyp23^c!!bIUt!F_8AS8dd>E@e2fw1ZT?2k{B2FDO9C zL%W;}s|Vhds= zW$Z_NT!h~YLcz6i*F^3PLC%pQk{sVy!o(CUA$ugpg#EdUlEO7o#SQYMAK4u_x^UKvPGKd+ooStn zs6LJjuPmKRZHZ`FCZp}Qu+W>9$@Y!ZIW3cw%hpq$ceTe?h~U^w&Y(|kwvUw{8W7k&7h_Me?Iu!ovBp?iG!Y^>7Bs_P z>*VthhG^uZ+WI~2itE7)8uxwV2Ja<4yL?>$wQ!YdM~*u0i9i3@rQLM&l?xs{|GZ7sNm%iV4uUdflr!w5C_MZ9v zy}07d8ZG~QOxqAwsQni+!IkpMv`%K~@R*09LC2z#2}im@ zv;ewc{V#s^fe$WOa@*S?mp!`erQ_D0CMJ1F0g29Nj<02GKo~5$7gVE_P-$RmVWWr;^3TwTuVKE3$W_eU;9?)SUq3V zInoxgoF1^EShtn>Msk~+4dSd(O1IzITN*~@hzCdM%8{D)r?Q5TyvsyeeL)B@c2lpc zt*NC?q;xeAb`C7H-6F1f{HF`w)H9c>w02 z%4=n}zmBWl8+YobUpohsKQzP@1T>mH`)Z^7Kjq(Ahm^l4r!<=W8oc{uBhm!89@>11{ zE&eZzQ7T`xb0fgf{{{2B6(P zzqtkB#{stjJ^|pp+Y#OYxYM}43*p^>dyMN(A>0A@v~f*s$4Oa z^9a9ZoPQtT4~%oxGi4oq`(Fru0{E$M{d0uB0Q?fL8}Q$NUjzOJ@EgEy0lx#h2;ld_ z2=@ReyZiybIgCF6{tWnkfd2*jAAoZ!e+5v+_&eYqfR_OO1pEu|Z-6c+0TCE4`_4?j zEIz|E;ng@l2tfOLa@)K|`ubYH>i~xVNY&l|I2>>U;7GtxfTID&0FDLlyW@=T1ca2; zP6V6;umes8v;j^5%m$naI1O+*U=H96z?p!v0CNEfpdBy|-~c!QD!>KM0B(Q>;05>q ze!zUd*?L9XVG@usuKN(K1Eh`X4G1%Ue&af4gqI=A0}949 z)7^ygD*&4TTL5nbTn^X@7y`Tv@OA*-wO;>1|2DLIrcW%n{)H)wKCu3#Y5M;vL_^%- zQH%bH_2+EO>c?2dpZ`E~-!r1Dmp*5oYaL9V_+k zbV&K1ILowojDBPEoo8_CN#k}7YgnY;+KE_?QYrP2W|VV2@{Ji486%%GhXjV`nRAI&0>8kl)9uTFjE1m z6821D2`_q<+#UGn)c2oP{`fJnYE2!pM@cZW$z846Y*8=k&^fe2Y>{ssv}3{Z zH(E@t@Ewci+uB~=YtOn?`u?O{8;?Bzwt&$&c&pAqT;&%d{=Z+tZ{M=I5Ki?B_F-4= z0=$svyELzeCpKWO;*w)-C;f8c?L%ztj$=Dl{Pc^Rw|wQQ-p99m-t0Mal!HMgHVaVc zw58I7qtfkQrC-7W8Bge?HUtms6C00`4H|9m>dk`-3Mp3r3%TLJeT+r*@?6XAZ*r_A zCd%rdvbJaHSkl^g9&M>A`thwTfZcNZ5}IS$#dLu-ZpN5TneQaPjgyYcwe4ujeJihk z7On?56m*fYe5?00x!=ZyvYb=WtlV*9qQ;s=EtKm~2`jvP;}odzEJprH+i;;T+6nHJ zbCav|S-t|anp<#1|1t%9L0fA(zLhJl8?`>tzzcgDun0HTcPW+9&Mac>5NB@kBN$G$ z=WF}82b%Lu?e_rcN=oMaD0d?}2?^cXWMTYxN0(mII7=dStq~rnB#j|E^4O%eKy9vY zEG^K3R$2#KmgP8f5-HAj>tF8aBx&V(==fy5$x`0i;`M(qw)&L$rT+Pb78u#B)}PpH z$0K)>CF3+Y?pWvS*cPcbYYB`q1d~s_YI8#MsDRa|cNFsdWQ+G6tMNnF($m`&ty*Q@ zdM!$G-=vpje63J!7cJ(XCVvE<`0<0*a5lJ)r2J*fZ7(J@xd$i|kF~c+!Y0Mf>7FuwuE91C1hdlW-W_(Pk=Ao17q|+i zgG8b6=FDm<&Z(U@)~ZyHy-u#(6Ki-O3&p!*((0&Q^s% zrO?q2BKi(pOHZw(Y!aL8E`e+MoZmZJpuyN3EYSW!Bb!U;JHz~^j9k?|Gk?Q#9t^p& zv>Bt6k1)TOWY z$jAQu*ojN;xH);>^(X$pU+qmjsRpx038WJ(o6+smg!L?U(qQ{Z+hSV%kz~*ckT!ys z<2MZI;6vz#<)9l@h4dZgM)?%|SrAqi3ZBuQToh-t#PHxRgm=8SAH;7MS3}@mlIY&$ z=?bg4(W!>o#{-Vg4hCeStSHr1NM^>IQ zStEk9Foy@})|Qtet%=Ip*}84zM8-&~s%kzX+hILJ-k}I$ybfpdoNli9fZpB{SGx9! zogXT96{(jWfq!hzC~~WzHQBNXuKf5TCbFG92L1_5V^{FuDet<0FAm^A0H8LE3Fqjw zFp;T_w?!s0FVu9FR%MT^MQCRgMUApQvbVF(Yq;aoTZH)I!5Le~kGB-GTM+F)`oNy- z!!O^}nrxAYOm)01GLd|>0_1Sp;vDa-eb@3FlV-&y=h#tv%0ko7C@9`e7!U-xWcr1=|?5&No z`^zs&{$V0h9dA#Z$h=HMPxPRENf&7yE%^uTRL5SYq2Ad}Y$diB+lKwog>M3Q$F0A? zvCG|1i;!!k9x(t8ivsgT^q3I1F0N1^|H!#7bN$li{${+BguuK4J&n9sN#x}^oXe3f znSaVJl_EZFHJpEb&x3neNxpwH|6M)*{FWA*mB)DQF)o%m0}9iNTC>?c1W4$@z2Lx0 zyNmE$9!&2#fc0C|{N0Y;-+;EaW;+}5|AS}??pvKnIN^x9;(T_jcj8leswQYTP zz5{=kJB&kNSn(sD4Q*Y}#jVKGx$L5?k#9L4PO|b!eK`;Tqa% z+C6+Et@e#Q1Nq$gt?BtOhN(oc5Zjn848}9|o_GN}p!Z@2bZlXs@7oefC30#vc4sZ^ zfF94Mvzy|1>|q`2Pp13De&oo$8ge+@A+JLTdDW2ObcP*@&lhr`76Oit-|2KXH2=_3 zEtGqdvcJ%s&JGL~W4-zQ?qsTvK-Dx_lqXuKD2aF`F^G-hbNN`JunvurY@#5~v`|6D z*(O_~Xwyeqs65U05WNULXrUsYKLk~;!{_jZl&~-4!EWA>pyG=JBlz)!-5!s}!uS zzBj6dl~B+LLhEw{lt56$*1lm^#2wU}kw73aw6&YKRER}Ew^i}mo+#*aGdVxj7tdv5 zmt<2#ZEb(5&|P%uL>xrY6YJJ-IM%CwN4mld)N@&UjG7F1LS9V^_!LJ(3xLL>I(m)<2jjrW5$A5bqzr<5+(o zQHXIvaNbO0;)Q~PJOzC_o9%E_x<5{c;$#Zmasah<_*wTzG885~QsbY+8 z8t3hs3rSSJ!y5>B-D*$?t3ijNg+pNlbr@1qmp2%7dz=B6BQO+vRu&_o`n^8Q8&RAg zCtmkBQTwtnrWCX$`XZq(V!Lu8U-UkG>pgXRs4~FUx`E`9$&!gK%0ezwsyt~ z#Z>-$r|Rg6na*XYsx(gj7Q4Yt#4>#YnM5&FD8~Brs5T%fU{~o}WIpampf|+P8&Vo5 zMsGsz4e^TJ@crg8kKTa))qikUS7JG=u9J^#0d#tHQ%@t4Y5whEt3NyN3jdk-E z#!|2;QZ}V)m0*bzy=pRF+wkoV?|$Gtdv4e@ymM!xwBxPaDSqC) zQDRUI+?W^DMOn|9xN=bjHf4AwZEEs~ZG-*v_C9UpFjp$dLOmPQTuJgUPV zQ6d4A^u~{l=XSc3h~McAfK7HrHTTfgt~9A{XFQ*XB-7;Ky3(6N@qE?pmN-S{(Bp*x z(uY_fy*UxjBVa83h$SUrN#wG{d@hqo}dwWzB!VAr_1H^huumb8VM8_0Ln z<^Wmm?@r}1YzxrzZig48;Z4CU#1eh|g;ZiNpDu1`rZ~Tm#qmbHKGc$5ak(5`bbkkg z+HfGKL_#j7GZ^uCf+2Nis~QgFlI$=W(%HUP*;Um}Q<7}U3YR#=pyz5bfjH597^k2N zs)vGatn5iFnU13~=>p@%bZQg%i)Ik-`4%f_Md`?|>LPvP+^R0H1b-;Y!(nA$T1Bc+j$fN;p+-%(xXB-gd|E zt=H=91^U;U?rQ=sMbSotu@)}cKpZ@N(Pwr4V(YNn7sX|Y09j25O& ziGq!xQ~q~rm#-fjL8hP+9sRWV5{ePz3$mEusOED+|D*V{05nfwKL$r%0L)uR)1qFN z>HzP9!7+GYF`bEtpxI&3nxTnp?7@sfM(T7L*K!9(R0k6_MnHYm01H-uY9NNO<_Thp zb6Y~6kbp7{inwOz!iaS3^SYp1OF9&Y*(s*-bENr%g?^?Ks2glj1HU5S4a z)`pFWa#gUgf~8JvOea#Y1muWjD&ecLRN+>UfkwFJCi>SsvJ_rVFzSOsKnaH;VdzXT z{TB?Yni6#cBT;X_5r*1bNOIk9jkAi%HC>`xu`(iQ#7NK5B{Ka-SHkhEdmx|EFW8eZ zxkUH6LSKI-o^66@41QbYb)VKaCQMbQM@XF%zjXS{qNR(e=6T>9vP@dU4Hc8euXsWM zOmet2%y0Oks^apx9YJpxlN=$aMwbRUSA>fBOiZ2tW96j4@Lk*XT=!n+iekHOxqHv{ zZNs!`cH!2@k&1dvS9kOAJV2k`o@%@BP^ar^F$q7?;gNR;i2R6|iBVVB5rI11?->fdS2j&RjYhm$1d|9}%_XLm0}&@=N_}eC5sgMe znCf28nJy%voaR`xH8ekVVS$RTLHx$TsltY0ZXnjtj|qbn`CKAZD2&v5W4hYsWL_|J z)|%N7U~O4{f~!!mYZNx}vUB5i=QmG1GYi)owjN zCi7c*a+`CQujbT~x|Z_|nCQ^sH)d;^pgiA_MN)&&u-_Me(kS5Od{_uYQlW#3WKD%P?*#PBAL3ECucpkG> z1M8X@4@Q~@nq>#DNmJB_8GwABs%X5AqxawMG}iq#~w4HE{ZYRh_GW9UxI7XJap*ws!XiKf3#&D|TOX#qffQq>?Cnj@!L8lwYi3zP}I0|D842x=VDQ3g-81<>y#=Iz)fM$zgV&gH7 zn#zMAU}Qr6->5=X8+|+0i=n9r;vhujk=dr!>p+IIW(>H^kns^+)!3P~U@o^Il* zbDOf6Ts#RYfdppOy9;DHdA2f@*w_RX1$WA9cs(As-xqZ&Zl?o%-Rsa`#9W`8{)F}CNK^(wPJE28t*to1 z`;FD*A)zj5sM$O2rU;enKTFZtFB!i1OE2!)X(uai<2`FvPfjuwErgvbXyNy!k=v&~ z!aXDC>mmGw@b_-&VUE4{H>{~j8}Oey3_S`1$_?utd1gDG-{Zi>7&A|7cR z<3zOC=SFV7{*kZZ{Cq%of3prg##F!dOLlMH4la54=3Q%(lhugkL?#VWMp|y)r#qt{Ge)J+&wlOlPyQn?``Fny#M@_ zaH@O_wnmZ9tugA3apvD{d(C%i?*vi1{i=E3D=)Y0BxU(OcJJBq_)E_WKYI5A3+Nz8 zmP>}^-kPiV*sb(&R()k&wVsvG*Eu2s#xcJBH+lu3@RU6fdqK%PF2znK^wMPB>7?Bz zo&&+l4(D?gvZHfmUU2$6lLsPjs2?Psm&i+z-?Y!BAI-J`>F=Z3Fmn3(6V7 zI@=5No%kfR7LJeFZNejxhBcp}4Y(WKzVOy5@)JXS_t@5>4N9emp_PO`q0xEXjF!tF zzpa<&R?HJU9C25@^7_OLjLYmz%YhA1)aGKW+HNzoKpXZ|^Ke=YZx zBvK+BN$9C@MRgWEi`U$Z@!V3m47QA`&h2-If*fXqCmUg#5uRd%4kOfzaJCViYJ{g5 z;VeYASzp;-S!<-5+=;T8+FEM6X2$6Em!S1Jb#5+1RLAKXqvT(N|x9Qpr(P`x^EY zMbTe8a)#~Q*g{Xu*4hdmGyd~GjZ7*vv~5S8C_ej{H(t{ z#I-94YE%pDi@A~_ooElI^&9d0mP^%3_%_|sjg=~2VkFd6#5{W6Tsu}j<}fGIQ`%-q z1A~vhx%LnYw6JJ$VKy~b%*Qix?JEX*GHhS&$idw@I8qMajN?W`@5On&FVUkc9UyK% z4_}S9$a@OxUkHAmqYJ$Xl#jMsa9zY7X*>5w;C>t2ADuhO5K~VFHOGg+BYM<;cuOY(ZOPb&nRM9GqPBTk<93GX_yg zawV*T>Uki=2%$A7s}(?vL<-~sSZ6)@Q|_!XHMt_egS;B0u-ZX>f8_gWm6d)$rXr6k z_ivRv<^EVk$xk#=#=$Atj-@inGeIr6>oTcz78FQOdD5)^>7sL5DmV===Oflg?#?P5qxrQHGO%aZe3^!V+A z1Alr{E}!obn$wbYQd|ppY`~CMZHK%u_1L?=J;RLK)YEcQtnKBIltAj~WXys_;DK(l zurJFjwY24Bh_!6KW}?o_nom)qtjR@yO3i0^si?KwTe?n(Ck*8|b19Fhtn1{SaTBfU zyzEXYtx;?_V$dMDI`Afar3TUWUad?w&E(_6N1|U(f!rw8x`1|Kn%>=qK;H z=)r~CpSkI6zu(H;Nn|-Nfd{nKJpq+MJXkpgyYoRbKKCq}?Tr|~ zW&M=wXLju4_Ma?E$Z45}JTfJX(Nf7o&JB)^eOl&W->tM?mUc?9in*!MymqbG3bVW; z&V|;xa+BQG&lXziy=`Y(zKLl`YhAJ>T8$MQ-1Q}5%<6KpQ)_KDrPsZweJ;<_*z(>E zzN4UzQMUZme_OionHi1i;mgyPIvP}hZB2{Tgp^pzHQBK#mtQH-mbU~&&F>- z8qux2o0%g=vc@rE)I6MgQahwpP#k~w&#x>vXLEnXz7d}8U?#t?4GU7+uyY$c*~6fH zVcTG_SMjx-vuMGp^gyBXRuX%+InHWZbl;4KzOUXY*s0NCaRd08M%TVpw+!HJ++N79 z+%>V>E}(oJtXX?7HtCtQAf-YX*4R1EsI^kCbH@01wd=eR$At#(%GHU@uDw~XBAv~qlIR?Z7Ife&k28BZnaaYG z=$7`*TsFNSm0#F4fh*kGO3|+{yal1tdfgs>n|)Kfm{`|=g)gDpV77?crdy7MZF{cW zw)-PD?Y{TQHaj;ILnaFg+uH1fbvbx)>Vs=2<5q7xQ%JSh2eawR22&kIVHUPs?s0h> zz1V{X+eva~4ea!!kdkl>&-fkpnElU$+Y?E))PW1KgP9DuQ54vbE?VA8S8og3e45&3Uzx%_l-P-lj#!t)`%??s zOwCsEA<GCN(z0Q>4)Ovc74xj3AczPOZZKuywt+hd+rdwP1sIeyOZjXk_ zt3%ki-QpNqIR($jPR*54+;se|IpYb%=T4-QxWgGwI^%w4kD6+%l^x8eWuJDrr(0Qi zBC>8}FE;M1+sg2N4cDwM?!0Do*tzql}tLkPLIc@ zxf*L~w~Bsi)zp4+AuZaW=TU-LR599c*dNbmQ>lTTS!qZ;^X;A4_iuafxW#w8ao(>Y zZ#wPvnPwiOleRfh8XL=K^T!Z%2H3Y8`)`lM1EWkEF6gW=vkv{y6UWb3=})jTx{8{H zv8;J!-U$)J0S*{GCasauSA+gM_w@P)w1Ge0{pG)$f95fcJ+t;UPeI%JN(^}s6++v4 zuDc(fbU8NZPsLAoq7LLNvI~2>-ncvA_Bj16E#>g}*UpvBWzAk}m&6O}ik#JN-q&ocwAOO) zfAwl%1b7fkfwzTd)1&C;|?&b}ZH zQtnr_OfJ2z-LU=_zx%)kmn^yMZIR0!-S*OP>#^h0zVyB(=HDu3f6HfnFP?Sv7d|rc zxiNTOdjp!kTxuV^Q^qBDXWwZXs?VZU&$pNX-nX)S^?bK#zQ}f%ea8vRBYkMCHE7Hc z59$>wb&I^;1sLr~L9U8qPnzB*gY`tZHkN%d_6HAdc9h}30Sv3ntzij$Y`9AZ&;Oj>eEv*7Fd;V|Bz=69fj{g z8n7zy{wCkl-zTZE7Mi!7YDBBKxBZfpYb#6I!Rq!?W=*WnXznXt%u)w!W%JdFd8)3- ztYtYh`Tkd{`#yDIeV5sTN(bc6O8=WB|En*YaN9%A+%oft`#*Ei-QQaCn`@f!ziJ3O z7Qxpi-T&tJ%5UXCbq!>5O6cnlO0TT`*S_ZNo`-rrb>d}zT(;=(&wl0%l$G)@4>%>% zy^_8j1M8W`ln)ml(Kh<&J+;3l=Kj|~)z2#Qdn@r_z2XUoW z)=ROx=wygyR~~7zy&GW{>cZ@mmG#l=@z@l^AL@W}(EG^!mhIOr|KvXcvyUA<;fM3? z`ThI1Q{x~o=jE4gHtO!&6R@i>CQ4kV+H9X!Y__jzHrrXKPx)T6^(NncWD3?F_cLCH z9w;#HxHW&h_)*8NUW%Q!Z0YZ3Kl@tl?CIi#&{rFYCTCv>yjjK;M>~Fh2<#_FxCQPSwJ~93ChY8Qu zKSDS7{z*2QSGC!;f;Ab9`JxXzu#fS-Uiq`O(H_9R{L$Nf^y|OA>c*Fc)f0~T)WLrC za#_BZQ4fDdk3R)t%!#Onp2K0&-uSQLb9YY-9dKwtua6<+BHH@=xQUUiu#SQI(MCbB5+D0P|4gwX)j};i}R3C(dit zI>u7|FCxOf8Ijg2KiI6A2h!JP$lCE%qviiH-u=B1Yc=}UYwY0Ak8v?;c-I!afA+~k zmwoa3%QqhO{`VYs@3Ho~k1|qb>a-0g0^@z)3{OSKdpwN9EP__2e;f4j_rb4dX=jsL z*By3i?zq3bb;pw9Pqe*fRvWtZNJ%-jc`wGnCyl!{X|JB-G z?tdZ6zaI4<+W+d4F754{`OsaD_#eOI=O>)~4YQ;vDc_qw{Ym-4pnU&?v?Z{>3J)fK z|BKr6uU`3upJVBH;QzMWysNO?^Y;hu{O)7-n{givtaCus%gXkyJoa__Pun#~ z-`CT2O_Q}3jI{cxzaFX&-DBFWskK+P$@$wxd{rc-XnV@}#zx9GIOWSIOIv-mxsiI9 z`tz{Ub}iI`(Tje&ZLu!(a(*FgOXxP!VCTy06=<(fe_oUGn4O`izmBSs>W#KhkZ(Zv zFFU5~S|oj$wreTxL8bbz!kMX0Pp9o#%!Gh+V1MIp>(l>A%&xR+kt+}@-4@>ho%z08 zfhczemliDIT4+GT{PTJ^t9fH;Y`$kXdQ`?Nq$6U?zFI3M%PcKkDm}QiYQCUWD_g@S z%E6jk1PIxdV~3+CR&y@4EyQeRd8yiLb8V||FM#(Vc&=c@!(8nA!#VO*fC2D9{A!K9 zIwA@FXcPD&ezn536kn}E%**k8r~Xy|+|w4sw8C~F-r-@!e|gSOp6f3eKT~-P9~8be z`yHYnhZ*6?M%ZSArx>Bb2sI;|ZG@*9;q+eUDeRuygH<`xd!bW1C)XBCRc(Tl45p>% z$zA_3I(F7PJ)F>Ya1j(-NVnv~sO>fLr|qEHR_`_<30KOv`#0xa$-&k4>sXuH*;lr- zmE4ZmCb<>!RGrJIW#7B6?YpY+ItI&wJ}5Q*=3VfnhTno|o+l348UqhZeq{h>W7$Qe z9bB||mD)7VGtKklVQbZIYjr=5wdXS>*E*Uj*<Dzp{89skN%yee3nJh1P0sud|}= zA`2>Md|`)p9lG<7=$; zc#`khKUU4t>cYw{g}9!XjbL%WEDtpabOHa%-njDQUB`@BBQle^vG|=2;%o^MIlz#%lX?3O=9K zp{$2CgO(ojQ=39ajS<)Eb45dSjm5MMWeX^E7CWcOHNKL!-#ZvNt zG-F9ORm&*lG098SYRCOcdZ|^?sV|96>rnQW9yzT;kzBjjO=th2Len~wew|+y8vJP; z3hl?oszZ@>LO(tJ@#lZN?&07=OMZOQv$Gb@{LaUOoe*cM_oj|S&f%`X3`QOj(nhRy zia~Ect$~VFPxO`Jw0Vq~U%Afh{?l&UFzXZFp0T&>OU9PlvDyN$jU$jAbEpNT+>ZL$ z4B)X0un9QUSBMp!VyS-8C!I~{rSTxM&@c2?4oMrzVX%-r6C3sO|^Dhja*mvy2!j&wx?BjrN2J2ze0XXiYqk> zLN^-2b(c;9s$&qpGS@JDpjO93i5GJl_= ztZM1aI{wrCuX;_@!d6L(B+iw5L=xlRFy4|1vYnTrmy!O-9LRem+5$uRx-}+7v=Z&A zUW!KWSW@g#9^kmrvIORwm)@>yW2+i3uc_+!h1<+JR4Rm?LOLbed+OM|R>O(UD$>!BCrszoIlZ_}SVvhxu^BTH>+MbSESDm-Xv z`LmGca=K@xsDgSD6UbSauexo2`}7T;pY?pL{I`ueZiz*ebju2hDt*dVZzrpoS*mlM z(hoVYjC`1+Ugi9z)!kCPb5t|ep;cb3uv3<`lHyrm5qYeVZF=>RlHytAmbA7@-)$og zj7XaBf!vVw7v>(x?{_?M&)17zobhC-?Hdsv=8EzN0$lcriRghk$#T zn*D^>F*Y1tg?i+^yo_JwsB&z!s{b@fGJtQ{FG^pM9$ImOD^2fI(g-W;u%d@nyYmoB z;Sk$0%~Gzaw`d4FLmFjRqT@a_lW9<;M*9Hqf$Kyz;cI$TF|T;w7~cuJO5-=K$6AX{ zG}5~(cTA{`^NsNHm9fdTuk3qPty8{pMfH4C;!*v$WG<>xp2|MB{o#AQUTW!Dxwn>q zs^`8L+AVp23(+Ss=oRrYic(n*R{cqgirgJr?z~0Zb^wd&QBteEVy-3P-{zXsqY-?m z99v{dRmuZaWs?-KRu8BqN0M?>Z=*(PwtS?J`5r43vf3k!Ek(*-or+6MP#83}gsqKp zH-fX-_N6yHTKd{vfg4se&lTYX9Vg@9WEW!u;vQ3GPO|YlIBj#jSt)-i$iw)@o$BqY zjye9t=ttD4tph(FN13^+T`f!^pHQ!-mG%r|i<3T>zp$!*QatK&Yje4rA*dWHB%Zcc zq+&%wttdbxp8o&#uJ1Rl<2tVs14RL&{R85(E8B@Jz$8eDlBfa(DlVzWsq7M=?MMg% zilix;ks>LQXjgCpg7 zDV2L^`M$Z{(d6Q<<{k^>`%u2etNmS!D9*|b(7)<_q0Rh4wOhLENBI!tO&gsH-zv0H0l!(5=sBw7_dXPI6#=dKF zERGgssrT%o-~2Sj;!eg^`+0u3#p&UcB*PViHaX2XdZmpa!Ae5gH1Smhj}o-FT%RUd zG;Xc(o%)bWQwvH@PRZNn9eW%`|%u_LeNy zJ#UNl_m)!Tez>Of(-~yBRL8Y|`Fyeb3qzT^NsFX&kg~j*=na3h>~BPWiJm~J z^0BkAGcjLH2&}-Q>6Wt`6jR*>GOn@$v%lb*!f2j6IQ7 zt9~6TZ|URQUFutpO|d+(UZD4u&riJnE_z10taItr`?&59J&pWIo3JkToYzD|((@UF zemdVfi=*U3htlZaLFHQj>8#u{*SdEd=q5Aa^*)&87PEog_|ha?v8Ti+C>ezK^^4_*BNXbfe8TpaYMFt?k>N z$mQFvZ)p8&bZ_`pXX@@pQK@e{#m2;g7U~vW+qEaH79({yW^W^oW*?RzouM4!n2!Kq zoDGqH`*_~K*!3|t80t*m=a*Qiol{ z`$g!kIcTd(IQtAfpT&_ie5RH=6X~$aW0nlP5sz};fvuYdf7B{khWW##n#UuwJ62Y- zPHNFd>(%z7@io}RRI~IURpP!!&eHdxEgs-K*P`w~KP|$R(OXF8ue^eKh`NmNYWY3q zleO>oY|n5W)?!E3u{*Y713mLnqn^3nT8ma?JnnX@`j?~I?)sSZMao7HJieTPRPzqg zYfJjYYgWeQUxI#IfhJmk7chta%Q&*=H0v7l=Q+Hiw|D_(%|VB*VhpY0KXuoN>nDr2 zB6x@GNAh%d6M`(1g&6nfaeZyf<635J z-t%eV9nmx9oR>bZULQY__c22EF>cSn`dz@t1b5!%#4o2~LoJYUutn-}q za1Fn`f!XCEz7He$+ns6qb*%Jr7Q$#AT}JWfowV=QuCzz3TVdMtsc2RoC(qi`6Xw3C zvV%;MR-5gNbuti%Zt&xs+Lv)<>6|xZOXNAvDCcnXamUT=tIS5c=E-slw#jkTOT#(t z`1cv=qAiH~jkhW24k7mp?`kW@`{@v|*`eE4&;dUi+mOFcC_Ti5;C6`Bk#pXxJc7;nQNHrP_^N8jnyz0^GVz16hFQY)`>0$y z>G*LRqEKS#@I58;dBSGczj7?X;|z?y^Y6+CkKk`2MM|&z$eT7~%Ui!P0;AQs`#4tI z3$z-}*6PS83{I24>_*hI!S*!CwDs5T8&jGwrKQXU^q-6=Eo4{f`7@jy<{Sq^rt&c+`Ig3%HcA_%k}6BR zKC?Q`e3D!#V@j*bKlH0)I=`Aoknvli+E2@E^)}1%VKT!o=C?4Wv{*XKDmA9GZS;_) z97e{JW=v`1INJuZs4=A(Q(DNvf4+gWYN}(GlPj7I^>6H8}IX`UZC zw`f5dilj~k`7x%n<9TYvlooR?=kq#^8_bx};yt5$tgL6bl@Z-9YTq_HsMF(${bX(J zLqmj(DeXSy6=Vk@Fa0<;h|;(qMw*l|>Dxy>O)8VVF5juHhTX};%WFY9Y)om!l*XLn zyl+TE71yM1p`RF2+5zwz^0)P2qYfc4M$7bjFCk8mJ5HV+GAvD=AI_N4j45q&U!9bd z)$+t76RS=Kwa=QU=Dm!YaZAfrs;gsn@*s^VjjXz{jl2#UInF5cljkqUd*+MIJ2a*= zvi6X7RkFRBXsg-E1lYzcow0Hq z-#q!O|0k2{zv;^UCs>P-9sal*&yial=S~+s7EEjvBbB&&_jj?L!$>@BCycFRca3;& zjVOLrX@fk8fBG0b?2)Vi53SA;pTl$w~1aMcW;XLOLR=k z>br)%60%D8%^G}tdi#vv2;cnvuuQKaqyE+CI6YZmDDn3y$3&hQ-lG~5*)H$@OU3)7 zyI(zYi~u*#zkNN#w{IT^3Dc80N!*sS<12)m@HqP zikb^@mDXbm^UP`JMWxaaB%x;)%eFnEA5SMxbZF~{ut@mERj&X}Pvh7fj zH_*;^(ekhKo*VAgF1s*?td(ZC*2}ox8piA^;2ODyp0+`-c4M+8=;TXxPqR0 zY;+5sHysXM#v${3YAwg|n<(qO-p%N@Ue3y?T}9n}*I8ulf6ei*4bA=b5Yey8@&4oN z?pm(lwcekhJmq@PtJQJ-_1?QE8TUTtI-=mfU&i^8WyaES_W;(~XG}{C$iU@C^k0AS z!%si^Nw}WqeB5%!k%*K*+2hhIFE{h}tNkO^OwR1?M{>2tn^ zR!fd0>7VgP^cqR$r!33USS?dl-<&H-(?^mk$9{YR+OAHYKHFG78mpzTS{`D(={Brv z%;rFir(4(oyp(rfaqr=Zw1{Xn-T!bEB+>Ucfz4o}k!bc%Mk;Vlh_BLrD8F zTIIIeG5rv)F#}VXUvc2PO!l|;a5ba7Wy4&fcuesPOwHvV;2#$ETH zB`o)bCjNYWH}L{RRNu7SLEN7B)F<6Zn`*3rECyx@+lI?RbP5h9!$xQ1RBHLc*2>&`3V zQQ}r1DpQLmX3nm$T3+m($GZ0Sp#%J`_srUA$AUO1rkf3*QpRd&td<&!#9r%OObpgo zEw^1n>jL!dSv*&O{w_d2@H4YY?>T*Y1$y^jsEK!nuS6ww-DuR#D{0~v(Ms>*S5^^4 zyWU#{`hOm}eGZ?Oada8)mT_bezdVQMGTvRlyCs~n4y&+?GA`npC0uX@ua=|Y+3i^(sSmA z_~-KDS!3L9{C!Y~$N6%6PYGYe>*Q)ithGt)c%FExF;h@L6Ih=(2at8^4n7;Vl^^3; zeXir+INK_nEu6$mqpEYXdUglXs9QN;ylb9pE=u-c5r_G>0S2V^H( zWeMkL_3bJGLPol3D|?hgtLLn*koYLHyzSeqwrFyjh1n*3t7>1V&Q7)ZcV~P^eY`Hv z$A>>ht7ms~ztnRRF+2C5|9phIueGlGwJS6kT*kq1+WA-EUHLfsJE+UNn}?+uo$-m~ zv!<~Q)m0R&4&f}V4(-+* z;%MicRDXZmlJTQ2V6<9yAIFM&fmXxWV$mFh!D$k>)lt3Rb)IlJ&BKpnoU-i! zFyBiVke}Qh0K9X|>@^Qt{TF!haRtwDdW?cSrtEgYOBToTOmE4)0Ga*nY-wM|U2?Xx zP=7L=F_LE$c^F@N%#`-zxzkXn1P!Go%C!;Ck%uv*8B>}urRjML^epeg+8x2(aaPPV zNuNilWnnVwIoL*>n}`Vid$^0_P|$xa=V`H2Zy=hd?pK?$X8GFq+`3SLJZqeD{ktx| zYzuL%K6BTY(#oxFOlh1$-vR#5p0$rPy}{#A5PI3E24h2*sOoxqU2l~<^OXNfMp}tI ziHvwxFv?;sEIAg+PfnS5Y=^b&kl*e-qT4RAxt^1x3FDuvFNHD?S(KwGKVD$*3TNjz zZt=L*B~|X@#*`NK4r59Sy{w;&3$2%l%`5k>oPR_cUB;B==iJ)~cI&w@1# z_9svODzs0ox3u=TjXBB@to|<6F_`^UZYPZu^9rtN&Jx84>OE&Egxxcgm7YwjW3{r9 zsfkfy2Pkv?ySc{GdQpsS*VWXR((3z}F{K$(TFeZWk3DVdHq|mse7y8t;^P@p+OAuH zGNv?RN~6c>d9wfN<1c>_tZeSFX;zYPzxROxFstYx&`YwM(?bY%Db1#;T-}Skm;N(n z>Yjt8Pv?xW-6u{V9!>7w#CE6brz{=&{*qhw4l-DGQ0E6=MIGfQ#AVm?p65vy9rax1 zUzJ!eRMQEoO&1K6_JD2-C{WBfo)^}*AyH}20X*w@pdD7xdW}<@J$-Wxp`ZUp^ z#*`MuFL@VZeX6yY#_&qJPhRl4{*bpt`+G|t$!8Io);FfK6hEnYTw6cy{rIzwKKSVL zqaS>HHNt|Zb0x+r-kqkdZJV@+F{K$(S~@$ZXYr>U8X$hCysr8A*%^HoW3pYWsLW9I zaor)jq=#6!O5@P;7}a^lh-OS_Ri+`IZzs{fd7kl$Xq)$8H5c$Cv(Op5Be&2cunAp& zOvy5|>^Owx+>upq4$a}56?`JI&{;(PkOj$@(jZ7Y7#rQyT$a3VNJJIuG`n$~b+z6@ zi?-8ToUu%vfq*MO_fV43sE=E=dl}Msi+LSpOlfWV>ZGi!x83uZMfVv6dE3T4wf$(U z=DmzND<@rx9bL!n*bZY#Gp00phimWw&%r08w|D`_-5h+#RrrLA3TJHi3jSXLnztNr zP_`e*(_vQyS!iNcXDb(|PA~7Y_L3%Td5kH|n9__XZSwP!pikx9=xp3NP1OAiQ;myX zkisg95@+V4vNUg2Y&}x&mM4c?jKC13+`FW z*~v+@RTHK(GW4w@$AozoI~Y040b}2|i88$l@1OgX5XFCp(p8yT}Y=5{)O`)@-aC z>uhO~EbtXV#%1rm7Gp0=X zEXI_{xM%K7=+^=@z1JPxU$>sA>wfJDO$Nr4*&bJ5WNys%88|Ry)y9}I_Z(_K)|VS@ z6moS8u1c=p{6PsB zQ#yCR3lRt96}}k#r6ei6S&0-ZM__2R?tUCgyw0oDaJHf&N5$Z165#Boi@7BpyE3Nq zYBa;iFr}}pZw}T6n;W?;nfA{<66IhR{ZU@6srnz|&dKmSI4}i>chrZ7tEID@Qkuu+ z(7%i|f3W)Do!NiJ6$W`|w!!Rwb(MEoGC;T*{hq@w$PMT-y3GFDPAMm~Q%YCu|NjFJ C6$PaL literal 0 HcmV?d00001 diff --git a/ArinWarev1/001_B.ico b/ArinWarev1/001_B.ico new file mode 100644 index 0000000000000000000000000000000000000000..24829c52350647ec26c992ae9e19a0abfe5ebdba GIT binary patch literal 4286 zcmb`L30RcX8pl7bq?Y?$QMuI3C9j!RTd%2==8{{Bwvbk8iY1~cprRsT2=42kC@w6D zAj&fAo9x3dGt3ObGBC^_3_F6LrGxmpAKq(EPmh`Pbmn>IoO#dr-v9r+@A=OAJ|hTL z;%CSZq2pUP-&+s{3W6{~6j3Ei7NtXfzxC@T2p#fwx7hFtPe_9#&rAJ07F<5zyd_w& z&M(M&qbx@9rT5>7b*KGqr)$kO2I$Kw#>tiWOB0gQJT8V_PPiBxR2dl-ayugYG9j13 z2?~{xctu9U>0Ly-kND4D;b5^?y0o{q+qAW{&G_l3pByXA=F_^Ol7jTi?54z|L{d`I zh=@u+ddZKts8Ce-C8%UqP)465DPSkLDmAeo{+wSwGVoFGtE;R3VK$rRnX9U{U9B)* zsHmzl=t@jC|QZwXSNs1-c|2-;0M{zCu1v31WQ0Q+*)=GiU zU0;%?Eg(Bl%JG#GZboc=X4oHbsH&fBF#~}^|qR{Sf@*M_}B(bB;sV{L`CX=0&MrqgzB7dAfL)eo9d(IR}wj_|8z|sj1yKgbdFQ$X8yW zNRv%n!XDI11=5nFlvmau*O*XbC(s($8R`B{Q5vq19pr^cT$2*C2W>_qN_jd(9e&J{ zhh`EI-KeaHZ<=ZkIH!%C4P%2a1qEz&!EiQf+@z9 z6z@4yd%ua%sRx?l%c)({gM{^CP^vYUu2x|*n$YWu(HH61_SwJL{^@9rEbBk#VfeLm z^&3h{i>TS~G-|KuXrsKzi$6nY&PAF-`e2HfK|}0piaZ2jPrIO&rBd#5HRLNqx!$tV=5NTreF>k4pNJdw52p2f>{;Ngei*EcloEh*Mg>(q+UR;4ZJBO^SEW)x<*ejQ^R2@YB40m4FAH>gjB)6|r@q6ftX-89TdbR;(x? zAt8eDs}<~VUCnEQ1ZIuu#;R%EHvb-eYinz=A|sn%y^J0?I}oxrBc!coV3sS}Dr6jP ztflm31DQ=_ls2{U?xEW_L|I75yvdAr3|Lv^^lj@KOD1>y_CXxP{VNQG#atH8?&C5ygp3W0Qysv!(ZGlbJ%dVe@TtGWn8Keq zVY1NA@n?kZEsWe}AyCyuwDdaX1L|1zt%>;fSQ3*{@p4_umU&&-^NE1#Y=HwSZ17xW zQ~1ev>(0OCaO<|Eb4%+@f;=`RzdIbe1uXtc6CNRF}5KnZ?U%K zHedK!5Z1IKth&qKZ5Gt^7Bt4YL`ieS{E*IJPbZwG|ARdr32dJu;NvhD*~#%--Z_c| zuXcI=KE7P3>15FB79~sl@1%c2-k_=+pW7xla6k%Ml_xRRcOUd)|)v?>Nw>Ugb6&l_ePp0(nB^V@i$ z82T4lh-qkJN6ak_q}^fB`8!CW^dyKm^3ac~ai1%2XraKt#r+A{{wf85V=;z|qcnH| zsQ7<+}e8MRYjynQ?B=0n9hm$<=`tE+VLI9X)^Rm6#=STo-b3gxv`q* zr545+?qF-a%gRa%A=fQjP`2@nUjt!@a^$jXeD*ox^|2MlY(;7&wJ{6mTIdxQD`DJSA{~Bfx%$HU*gJv&pUDYD}l52PZM|aBl1qaOwrlr zF^KrZfn!jd8p~GOr_@tkw0`P-{5yJJh*=k_DGK?L%8=>gO5Wh;PWyYYXm4wyzNQ9) zR*f!KtPd1&O4TZA%8fKM)N}3n&jdLA5!N=p#=bumIrObHDrKe8HB?=mi%c?+-P;_*Ix9<@dT_gb!@{{^uJ|so zBFtXklH&lBVXoAO_f>iFY7AjB(fN->eqtmZUk}tzAN64D`y9kr^eZcr=Ne+2sSf{; zEXfqS+E&CS&ckkZ4H*RjdO|Y*A0V}PET`v&rG7xp78!c4|nvAj3YK~z{UW+DV z4u|Xq*UTGhJ?1{n!+LXFOV2!cN{k_X3$>98$n>7dE_X-qozD4%LsQEwf_&TvUh@Q3 z#M&Um{b};THel8U(`bn0dPO=7hG@*{Qv`U-Y+X2^(`ygI{Oz1VTh`@DVzhrr{5EQ% zzd+_QlYKuriswN_Z9@wej%_4rV-IB8yO6zmDC#gLWaqv@8@8MZ`4MW1BWSoP<}9DJ zHH+S~9{*eWkNP`4B2c1_*+^ZqE!jS^*zdKKGl!f>^BjWi;FG8hzKAYrD^Yu=5WaaJ zSw0i*aWG^ZAwJOM_VOuRCqF9I@2!iwuwPOnb)+tCDT*^6qVkKC zGsXAqaV~G_M~wTkVr@2w(7hj69A8(@oSZIah z+n$_W-53A$gYaH80GIh)=l_wdzdE0E?4$JsnSpq_%))7wfXC^roqf5nb3da=W{4_;sQW9Jv$*FCC@zhhnaCY#6o9Qwb% z@0;F1USIZf{wp@&&Q=h%ViG3Z5`;<3f-v|u(#s?Wzm+bcuG9a;%2oV}p+i#sr|Tj< j-%GSL_>O4rt{~d(NH4BdkkSd7yTGkpBJ5!CE=%UW56r+2 literal 0 HcmV?d00001 diff --git a/ArinWarev1/002.ico b/ArinWarev1/002.ico new file mode 100644 index 0000000000000000000000000000000000000000..5762840eaa23067dd30f4ab648e3e3400baadb46 GIT binary patch literal 353118 zcmeEv2Y6Lg)^-Y^Hw6??u_3(#l2AoOMX-h{ssjf@VrH8XnoQy~VC;!jALN6_-k(S_DQ?CE#-dTNi^&P0b1Ao;W$ji&Fk(ZNFJL_Ipt>if0 zT6b@HJrvu-ZN+{-KS5W93%P}5dkV6%4rC_7p{hKcA#sS=P+l8p>s}X!*E&|TZg!fTvxa}JZ*FA&E{7#HV>W^XDV#(srPQ9r%b#6?_V0_@1T$NI)aGn>u~kJOq|;`7MFJpgVUbDxV~Ez$6Y_bapxd7 z?Pj}c5RNSWJGLwu0^1c+V7q*xB3qVEz{X{hv32=4oL~1jF0bxb=znGm5`2$T;6KKF zTQ&awh2OmTtxwh+C@#^N78DfJNl#0uedkVG?VC}NwFA99YI``It?hc{SOuo#u8>4E5i;v(PN^n0GUiN4GgxloOgXy=CJMCvRx}jm+hn+Tsv03nfP9|a0WK6o)4R4bFp&S zLTui+0ekoC!v1}GuzsBlP8>gmKtCT`IJz09R}3gUzxZXn|8Jx91=)Ap`MnrzXFNSK zwps_sji`QA-+}Twke8QdmYJDZ`_A1vwW6cLYXt;&*K&1suI+r)u?kj*A;piDw~<(n zF9U3Ky28cznTgBe65>{QxH-)Z_Hw*G43~Z1ZCG6X`A5Km;ke- zTud)rv^PC>_G}fOoj6x)JKJX{19fG({#m(M@7_&J8W`Z?+uPgO?!EhoH>2;}jlr$x zz~cB&Hw1V&!OPhmj;FVlp56It!TH^b3(xPGTWG&$exco-UklG{pHO&i>&Su&yQh_2 zIs7Xej?Tn|1Jkf`%>>L}I0uua{erPWM`P5unV2yB7fhNw0b|EnW8$PKm^Nb;rca+v z9WWh>7cIcjC5y3a*;3fr($1ecfr}UHl=g=6btEPwAu1{Yd*_eEp79+^UADgm_d}!d z?nHZ!cB^>8>m z4>t}^#F^c{z-IMIY*;!SOBc<>!lks|OI8x&b74JZA-)~52yMDegOSl#w6&Om5#wfK z>f|XHI&36H3?GJZQk z>L^6sjKZ$@*4Q_#E3U0?Uv|l+2a@9bK)y0r{;$-O+toDzawDo=|EKOiX=!22yu93+ zDJdy66K>tE85$8=)5kBUmZz6*1#j2>;i96V3JkFJ=2&iCUdg@WOR;q65)2-(AHzrNL)S0Xqlwi)y!w(S8Z^9ty7in|$wQ;eqtD^h399-#J8%e8kJsb)Vh&bNju$JW~SweBtHhTlVG+p zx&1ZFYL7$H7C+;~7l)#6|1lUk#+v;9XRKbm99uVU!0w&fv2Xu=96fpzznwY5*dOtK z^$PKS3%76G#_|P|G4<>2I5O)^T(+@-!y1dclxQcx{~7IfW!+&l{)yT@ssgazNQRD92yEP(i#?=T4i+M2at~|qhe{IUw`m&Ny`FUA`?j_&< zDJnMcCpV9P&*I|~?2;1iB0eUjEFwG%{sI2*@%Dtfn+vX7xq>ri&ljILalF9(#F0X~ z6GsbA?B7**?BI@qGe>uo*d5=23%~8e^-H^P=D00+w+-gax52DAt1)u=GJHFFEx!Ne z5I*|!EG&CpL}v>-bn5DWXPya#sj1*QfS4AH`%!!uSO}o_ai0fj)bLcq)YP5Za$MS( z+&37eHO6pz7-b}$dwD84Tm6iI14iSQUlw8Gy4A4Vv;jL9|2us6F!}!p96NeU!GFT7 zc*N2E+peCC8Q;By9h3Uw!YV7AnfF}rO&43}OY)9sKXhK|&1(E>H>0}!%kDrq#ua;P z*w^XGj0*~M6*l{id;z|{5%guPN{R|zNzcxGCGmcGn?vWF8^zpCw8+iNP0z^85+ArY zCN>tqp;7Sj55{#Tr&4?S3q=<%T`sX#k9jec1X^r1d2Jy@+Kmww|=@UWypAH8Q3cc^il)`=TRc{|w3?>VYvlf21Nc zYK-8%p=i{|8e_&R;Pkiog0^8`uA_aW@IlM zU(gqJOFI<>otuKYfrn3P_c_kPwi^H1&8TkwvO7S`O3kb3gF^f>zpneI&mg&gF-1AA zxVU6;VPPS%va<3LQ!?^m5|Z*mqGI#BgCYxVxQFPSTtngN?yuPP8`qt1-SIm8VnIetQmCF}#l{Wv#kz-gx9Bo{?0y{RX#-8n)nMdDFzj_;1tlo*?)(7y_;C=Xd@KN;X z>xHMD_El_l&6Y+hJ(j*qS+kg-Yyy z-MY2dt>OR35ycO|37mppp|IEQ}V)>B1u>H9|&Mxj&I?s$x&!6duESP%_=EC08_#oU$_-%qBIPQ@m*PMXC)KI6ROeJ&T;P!?Kl|F>c~k^!R!eI=piTR$X1u zs?{~LeAx-jo^?UvCO6RNX;;*&N&lQay2{~I9xry@Sa`g&wCBdg-c{t!>4L}OzeWvJ z4>WGfe87ltSiE>X*3%E!VY?B#cJ0QYLx*tu*l}FGXpfMPK*Ywy;mGbaSUkEv7JlCg z%cukFSN14#Sltd@$HtZ9r^lW|Sy3~&|Cx!w6>(76u6|YDfydneV$+OLiy~u7HIeNq z&k?sPYzzA%C@Uy4DZiA5|E8vb|54=s!!c~waOVGh#hTUh0oJco@_&N= zBZrUR{JFCT4D>^6Y&4D^*^MO=z99ZBvG~WH*f--XoSEOT=*IRB5q@c2a;(d`Ch|Ln z+Rv)>xZk__*pqh$h)?m=g|q)o9=scJuIyvmgwmJNo6@tq-*1DR!J<`IxM&yV%{z#hGxuW3)O{E^<~Tn2;uN~} zxP}%lgcHLm#*K~Xub10&B_?O=ON@KK%uMsy4S7CsO8frjZ2F%${}1B7A@M(S81X-k zd4P3T&;0+69Xpg5z<~n?SOahpzCPZFiHRh?If?}nzQdA1-LT}x-dH*GeVka>Uw38Y z>o_;B#l7T^BOmg&QFOFEJMwq@?7`o;db|1#$Q|G_^Pv52P`>{=9@Ac>T1VRa{Ngg& zbxLkodZsFAX<20{shMSoDVb%r5>s)Dc0NH`+WFhJZy`GN4#J}15PRzmg2E!`>+Xil z$|bCMUyH3a2bE$M=WO^9@(L@=6Hm*VlY>aRO{;M8e5=ChAt&))s4Y1xn8eq-Iu^^5THy+WII z8Fs93-Lc0Ga~2%HcRwD)yYIQd+}sl{z2t&s&0O$w6F1bW?@s&eLqA;e)rGrjQW>8! z^wt0Ou`fE}@%WcKfRWJ%)UG=U?|d=|bLTHo#`~;WuiAg%|005Umm4k!3k`++<*Qgb z*BT4H>5PRx_QD410oXsI7f#H3t@P@~cM;*R61TjMDENU*G$9)R!*|w+brR=6`q3j^WH`M;t*s){OnU3Jt1~^=I#kya| zW6^i!SU37ztQz(vY)16Op;X%ij>!Z&4NsuFIv=0OLFj#gqa{p(a!X1$p@e zCHGS^arbT#^G~tNLr2p$k3dk67d$+iaKrHmoUak{=l8>w^=s?bvwod9>~-r8V1vyC zEL-A&U*>vZ;uLRu^MePvzhQ?LTC!fQZWy0^!MBR*${4&S@vQplhCaKAi8piRYApUg zYug`=abwm5NNvxfM9mv|@c*lt|2NG4srG+3?f)3O_0e?vJaHP9FI|j{8#h<@|3@ST zNRb+V;NU=bc>7}a${AQT$O3Cey@M6Q-k`jXJyYMo`2{U;?w6-aVttRHP=^iLlbv=i zy2|sS?XPbC|GWdlXFW;_O7n7giP$zHo;z|ogCZ}%^Mfxj>WU3FZ28`jQk_m;TqNAS z5P5m|NJ(K_p0zfiAtA)M8^@xZV?Ejt?B27Le!A4D^SL~H68jI+S3hNs-%h$={t|ag zp79%oj^2y6`kzIs)&WY6O?YsnjTYW6I96+CYSi#%d`_@kUPtp^;kS!U(nO0h7`F0# z1NptfC{hpjdr|BD{u%yN`!D!^^P?GtrNvcZKZeg%b^ouw1Ne$G5RW!o10&nbT6eeIy$y2 zz?V38a$|k`bzHi5h3y6A)Gy-twF|_zJ>yKL$TbgO`|gw2v~4GA;t%5c@7(d@Po8-1 zJx_Eszm5(aoYA61Fq$-TL#+mvU}SooSW)e|+6u3iZL#SpZ`a!Yy%^o2c)UNqV~}Fc z#ilE~rB-1uYl4fi5`y_GDBM3g z(O1y}fBlpGWPSqgv&7^i{$?ha*6E7OIBwOfq@>V{oZ5_W@+$mG`(4;dE`2sdZ2APk zcq(NiLvhm?hf9}O97QLs!Amy8PcPDhpIOMUbH&N`lJ&PaP9!oi3c(@a2n!2`zn?e! zeO=-2;|%v37vbo@xg{z19wk7J9K3-4&mF?t{O7bp<{9 zT&1rb!WeuYbL{e5Yx#AtZ8Gj92xcb!jL&=XIJvw*Elnlo|4-QUhvQp~!Hd5kWAT13 zGB)pVJigM#KMMD<-%tmHD4+Ak{Qn2=Py4@e*{|5VVKugG*~A#YcIHj?GXH;qxe`z0 zuzo7Hs1#R@Y{u#zyJHivuZY3}*dO~YwoUAVvkTglI&JC&-?K9l8PlE2XGEDBh;2o_ z=gCCrzy4qI9tsaPE-TX+my{G36WhkQxp`Hvt$m7|XV7oMZA;qe&a~TIh-V98_F489 z8`$wO13NC$f@`1OTBW^Ii zW`F(!YsXkadU!9+*`3D)J11PRcZbt8AN+R89S070VbwZ!SWoc8KmHMg{vX<*bGIva z>M4oK30}Pv-(6~CRSc1u1wV|Dx2 z-vQottrlKp z;JFsQc$#Bhnl3WR<^~Kt8qF*oc%ZU#qLWCQSA8dZE;n+{!y$y zcwQ*6FT6+M0opOyC$W9;ZzM*b=@S_nEHMuGUVo1NPn^Pe0T=y>6)RR^-MV$;Wm}p1 zXU((YHAL}u&(F()Bx7%!-icL%Evw*P;sBe*zOU$jJ=5R7ktq#IT(`Z6j09KefIaWR#vUt%*-l26pvNpRoMTPl0@+$uKmkOi~Y&}1By!ueDVtl z{5cn80flw3xn*Lz1}5gz{$*}%9vt81giDvMk*{AR-Y+pm z=g8U_5BQPOd;7Q}DA*O=-VQi(-X5E_UdO@(L6|=0EQXCfgO5H8L607B=xiR2*IxHS z%a(qus|g^!{aJJ7hx+yW(5Rs=$DeuA?)y`?uf9LycOhufgt5HZ62A|ip70^Jm$9&7 z)8v`fxb|PA547t)*vew}TjxjtY^$L;) z^r0T`qX^&7?vWw>r*glH{~gEwK^^yFVp5g=YxrNbViohJ8?bZtE{)tCvm^cwAmVBcs2R=Vq!XkyqxuM`K5yIoZK8@ocg+? z7`oyTsh=w;E-5J@*XLV`i*Mb!T^tq?RumKvr1SOhXO7K_IQC<`j2GvrafXk_b@+Q< zhnJ@#e0;8P{Kqxo{Ti;j`r+8gFxJh6kQ;__-l!1#{BsP3j0nN!|8Rp<_gJ*=R_uQmd4La|eb%4HLQ$`t=m&qLroLv) z5Hx5Yaj`HyyAmgpc$sXAJrw*4M*plHco5fBw+%l-KBrRD&sMQ6xwjyGC)KA{vH3V` zYsWO~YTMGvKEbg++Yo-9TvsryUR(V>^4S4AF6XGC-UGw?pz0^d`PZ!J$2q?^7g)VO zJpY0ZYQDM#MhynjA^ZWxCf2-Xqj){h18V+X$^X&*FIl_*%a<+3rnNRWd-@FhIqG*0 zcLWB7i0$B`NBd9zZo$uADA*U?FLqzUzr+I9j{XD(r*$j4vh*2TSko7Y5lr52yoNmb z#kolpHtP>U;fXtq_e!}(Y^5f?A94GStjtWy{G6Pj%#m}-*%B0SfE(9*pia(X9c+QL zB{?}c1^kT)Me_6V3)AkW7T%7HElh}sE+ltnU2H7k3)THcZ0i^ALDdE9P1Xr`nd?!fQ2(AAB)ASqA=*ENDO#C76S)Hp-o#aVm1NK zx44hjUys0Z&F@mu@xt@>Imgr;+WT8dtp0@;<7oeR?73j#TqJ~;52Vcxro_?Shp>&{ zwPL6fBwb68dhG9cppzW*Ls&@O)wKJ+ce{^oWl7ojS zSXFtsW}6?xwS3pgeQK;<%js#lK&~UaUGfz&uaDFlYBs#;cdz6=5_2dYOGKMrx2_Mz z@p+>m`BbCEA;f$D>zsVh>a_s$=;@Ca-nxiJuWmtIvnjkbb%5~*ey`E&SH=Ir1?2zB zmt)V4EsWKW>v^-z%IyYYJAr)8^7uG%K(*&}Y@GX(ih1jI4Pt;||KDQ_-~$|-(F14a zJ*7W6_eFhz-*M;)GN%cU)8ajAP%7e5PaL@az&}hzuI1ofW>)Q90l9ikR#p-DzdrTe zJzeVk`?}QBR9$*nnvO9zT^d_%mr-#4{(aWYa2=S;OvG}|7Dvac>^Zowo->f+-9kgcIJd)1#_Qu)SC;^H&q$m)9|oIEF`OeZ5<`bX;FC`R@p|hJ zv~Qn|&Yi>2u3ZGj!ervL*HX~UA{d=INAo#LBmVEBb?X#GUU?-6&p&?~FT8MvlF0sD z%ANA|uCnjhXK#`F#}M}-vE`!mht?5}hETU0==1i~iAUzII&n!lQVMVa`%&l_WMI`)b$rrXE#e zC~e#Mp?eR1{vQ6YuvA;=ccqwjW!uFUy?Vy+ceLl{h}|E`_^I%JssC5&ec`+)GN*r>CUov)Iqf z$j}q>div>l+If9WPPX35!$oh;_}iJ&zj3~n6F7b594=qFNMGF*UaXA|4)RBAOc;VW zM_o{OFynXu@D1>V{naq6-4ux#GeS8BWH>(mJQ;o8Ovl^(QqZSQDy*#T!_x9Tx^+uI zr;hj0xl=m2bh%$HX>8M&i_akLQ}ODn$%;OB{q+=Xr*OWD6mHADWToG-WfE-_s$;RPzEH{=q*#BYcqTKqt*?cIp>4Y>{CvUwV2U;C|3~Akk7r=cyhT{Ib`{tD z*+=`}MBeWPKj!_oo&kaaeU5_w~* zy!D_4XmW|_T%dL{3|hwelo%iF{%7nXIVlOW`-QjT<8{{^9ZQ`#7yH$#4y=)JfSc%N zZ|2lkn<3lIPV~{;FL8~S%Lom2=G-+m;KlLmS8qfyj~k6G+rl{qRV?Rvy3aY_lkoNT zNqBES5_ z3f$${@^V*Vy`G*f2&BEpN=p|EBRVn&ht|#^{u%G5{g)ab&HtBHVgT#Me1I+E-^KAc zt#I^bqawePlX3r6*j4ROza8pa%>%TXVbErzr78BG+`d2i$RMAOj)*9|=HP&n9EW-4 z$ixzOuY1RCR(@3Ku2==E?qt<(XAdf@4&V-#9sg(hHbx`x1_8~fcLF7>5C1c-(nr$z$*Ax zbb&Qv0n`IKr}V<98O@3u*Y)69;y<3(9(9+U|ERYA+RZR%Jslhry_lJrIx0Om8QJ9g zT!W!>v#l-HVY|-yITyy{CI9Bd-^8D}_z=!H?T?7a031H(kAWYD2;@;Kdgu9w5FzrN}e!>}X)1Msp&ua}L*65?JK^h z36|Z0(V?5WV&B_axS>-wFa9Qi?@F7m^%XyWy1~4wAAhF+B@3=ly3pQ_-$1h?;{;564I*gUEWHja9O`2Udj zmpp))|5G>sw>MZ1RO$ha&v>=ie*QDKyrLs($%~)U9{0=`yXrV#`OTnWt+*HLFPE`! z66?z#{*Q3ZC0mYZm3WMsv?&5WAmB?w_TIY>Pf< z*DjlSpi(40pv3`HJy6L540V9?#V3$fv-^g6ph=Thh5rloWxwPIjEz;lzY?F1!uCJg zFE(6_!BzSWhVRj8a3mi8pr5X83+CmRaCw>6w<&9z#BXo$oG*U^;!?P|Ic+p?*p+R! zF23l{HxljNiNWjriN!CHDJiJ?brMWJc0pYWThz7OhB{W;QP*k*YFllkY+;?GH(s=~ z!&80=Det-yL1?J4tc8Nfz55lov`Bjdi zzK$S&Z`yr-V&6{@dB(iGy_x?FL~?S9)bb!XJqvaxb`$$uv0-GNhvHxKfz$(vF4#Y_ z2M$lHTYO`4KO}`5zn_~D@S;5ScLVlU&kyo&{M(e2LXe#}Lk!Ibas!Stszm=4K=(U13F@)6hXvb04_ z%T1`=eVc;)npU=`(_yem0G7eB@a1JJf@ z5TAztyz;6)nstbRWxp5<9^{R2lbtYgK?F9~hTy=_V4Sdvz*Q$d=6!vX+D>0Tf6jsE zr-+~6pZfy?h<~mDSXz<~u8)8Vrw?Np#{jJz@g{7?|K9$qTtLPD=CQr8Z)}qy2OCR{ z37DG|a(&AS^4R;FnOR*A^l<#IV3HsAlah3I?h0V)o`yP^ zzf%bFvY{bSNVpx2jho~7n-h!X>BPF`s|&x+rQ}g^%CW85aKU=_?xhOuD_g<3w(mjP zuWf7R$a!VFW&tIq{BzRi4`eF%*EoR01>3Yy;{qBF(Bc7FOwceMpz;7UH_)_cToqqH zbb#muvH$h!M=97Byh>m7!ym>6s`~6TY6#wix2v^1rlwL?!#>4Gnfpilcdgb?YHgcH}@ug_rt3#ICs!1-e^VMW!{}W`MVKl{r*k7{@zWz^g%S9`+Gc^ zev^WyzRE@>EkE;>7_{!-f}VXZqu)Eh_>|+P zei-762@^dq?^l1!To#7)wh=gW+y{1-T;X&hg!3PUbNx|&+=}r*M5rGz?uP*4K2XG8 z#2>){0rUlY$o~UyFENp|WCh46D1w9CDJ=Y4`q@YGhN z=jT3!GfTVY-3~l0b3e6~M?XE@wK@*S`@meEA^%tGzu^DYtpvTS!+MbOuzI?&E=TZB z`yUkGi!jc|5YBNKH*ek|{-dyVLp1R(u{^=N%Jo%#UrHM-@%ud5>oNnp3yw8R|0}Ir zN3UE<^#Pbap#9hIFFc@QM~Mk!F$R#TIR`D>l9l)?}Jxf3q+4zf#~*D2s*zRiq3t5(57D)Uj8f*FMWI)O+QOQ%|SV+Jt!L{ zBl3vr9O9Z-9}D(nyNGyae~cc+qeMzo8O?nZ(;*prUp8v|BUr(I9m_4K(|tSp^aFZs zL#_9BpjNN#Xx4o%TD-Xx&%bShcRsj)≺opuv|gZPp3aWCmi(4iB6@dzrC37u<{q zL_(Y&;%@pNGCY8}p+JNO`y(_ch;@Bo8WO z6qM-UeC0eA4zl7r0PV1abAN0c`;Zu5c|2gl*pIM(T6Y{CU$gYstmhHyxeNKJ5#I>@ z?*^Z$_5pYwI3A}0|C}|$rl_D$vHuAPF?u_WpF2ekAaNKU=45^7kA;SXa6aZJL`O$+ z9{anT!=CYen@Gm{GGNYFoW$(K-dFnYg3*5$-XEqbsnuY1Z@mqRli;EZY=(K zx!+!s_Fb(<_QUIKm{0E!0CP*m)T}7XrFVEE9IgAu)3(!B|NA{O_%aRkzPS&h;pFUs z=MlLurtLNwBUmo`lR_TA_m~XJhB5iS`2WKH75w+0-S14_|LyIlF@86U-r0)IZy&&r z;X5&9(tL0o5{|z*!94I4xN!~@4-Z#zc@N^&ozIGwQUfABy$|C={*++iIwUlN^Z7kQ z!a~U>gO#|F5?dk%5Whg||E*iMP{3BG`VxV8OrR<`1fjX_0+T;)`SMD)3*XFSaRS?S4vPlI~_yl>Xwy z3pmF$7(9u8U;Y-s!66Fn|#3=DW6Y=3$GibsZKV#03WyCQ9>R4F8zbDV}#?y_Md!v1CTu*Xt^wrza zS8wl+w!NuCdq<(=fCN1IIdc-9-$ngFNvJ(E54DHTuK$<{vth+B87X#K2jkH?;+_1R z_%|BORz&*Bw(QeH^nqdj5&B_d3E!(Tu>aHnV*e!$NZ-HCThsv-JJIUXH5fXFb9Jp< zi(^Oj;_SKOT!YMxF=8ipdAaggapSlh*6(I=l>G?Kid8)^+01j#P;z$aBNxw9GqCEG}?VP zT>vcBu%4G5_e75iC@QMNKS%1=$bC*pOw>h&h3YR|xB!tL`e)(cA&82Kr0tKT@0P%I znQ!CnoxAW2jKZwBu}ZGb+??@0`s0Gde-FQZn7x10J{^4wi7ym0&Rs}8P^82GB`%@q z0r3aa*kHC27ZBVFA86fLPvdxftIrmzw4hSLl50m_ok_Yrhe0)6eIj&4zkpb@5JmzgI z`+@TSkLm^6v2Q&_2fVBJ2e#wh!H%)7V%I36;^2$(k&_a!Tf=`+_=P7L{~V87VgHMY zi*01AwctNII9PxA(k0HnEFU$?(U50!6p>sF|6fsP$3;{k?xK>8Z~#V?RLVu=ALae(q%pm2Z}Id4H>2jjVherVb_5Y3v0atxwBo@*C?XF9~= zWvjbr^FbtD{_+-D{v#Ppzs*4HVT`*E&4nrBZbqXiV~BIbPiKD=`wGUHm=!-=vG--P z_vKg@yle7DaQz3*F&;_%GL$jGPuwf$Z z4gXw2xElZEH$(7Wkk2`AiT|LWK>gKg*U0DG5f^_``3>U8`4bZ25f>Lvoy<8IiGOF0 zD2$()fQ}sm|B}BK{Qs5y{^NB=&z?HP_6xqn9}qoY$N^-(Z~*ZI9>o9iN*qv)1uA+# zVuH^x7SJpjO`p0+iN!NdN1<6$^8e?E{pY>Vv_$}(eI*g?y4^&l{>HC~)c88GJpNbC z{{{b)x)jrHThR910~j-IH#V$YhV9!nbDa*Z(|7hP=TyAF`tYl8x_S*RPEOZO zO6`c){)h;U_cFlv!yV%-Sl0LFC1=FyxJ zNT~yoSb$+Y&^xsMQWN|xIfFU&PiS0xb<=zBI6AJv{=4k`;fcmS$MRIzfA(!Srx#L^ zlXU^U-g;-&{rUO((&nr2KGDM>H#rx6OiVQA$&P`eYZQK-8c+K#asFbC`TXC*z9HX` z9HVdnbMt%!>zeI<5dShhpp}dpqP$9fpv4OuFVsTD3`!o5HN(vl(W!kP>)@GNdpQwZ zJNcng?{KvE;0_vpb`OpJmISjwsW2T;fEu*Rru5B4jOmYSqGD0}bMkY=KmQka`oA6j z<==(hSvW|IFT);*{~BF(;?>Vr>pEf-`)_Gk0y{;$#(aB{eY0NVaAj{gj&hz`*7Kv>v6;RD2fFzvt80)&T0D06@c{_ot0 zgU!6rSnzEZEdQY^mT?`BWiluD=pLLGM9T+AOiyP=?Yx{a-aRujy~n~Do zhXqr2hY%sEj1SV`Q$ zl5MwqSP=J?tT*n?*rY}KOjxwZggM6)ckD{e-uX6OvSQr7`#rRLlX<|uWuoP0xAE*3 z_t5;iR6I905e-JC!DKA+=+>0+^v|czj!R5V;$@nQ5I>zwj|)*xu{zX$PewTt5emf@>!rgN^oFgGWslK*FC+vIVsCC;U-a~1r%ur8bR8X=s6 zP08J|jifG!jutK;`TtwE>KqE|iE+&R%eWnh!T$&GZ$++AEtE~9N3T0H9j4P*Gc$pB6I(c* zJbrRM%qHf+gt<0OTSI&kBO}CTH^8{$-Nu$ zLfikJY?)82@kP)>`M<;f%q)rjH~>JL217ZChQ9e{9vVCD@p{HNYe!pR*gu>7Z322AE2xexMC>R3mwC_0FQ4NT&Kux{U-?bIv;lL z&ds`l{{Y85PcHs5Gb`|)laXPQ$GO(;5&zenob)$tTqo{*)p#uZHL3ZFijr91P2xWW z@d@|vo4qG~9Ol8XT~dcD_Fwq_e^3Whe3nibdt}*_`N!TR==gC4I()*K#E&xZI@^X{ zroi;4RNA;=n2yz<_QY(|n#jERq-<^%!`ND?Jcs8g=Zh}TF#n&#_@h2cxXjQ@@_(uSXYHSeReAhhJ_|zi#as?A*0WS*Q2R>C>zgIS0G*=b1CQs?6IVJW=EO^6VJ;{Gt;crvrYEe>MM? zk#Qdvj_<+BVSTai@2`;ubjOmPdXfKIG7ey_;-BjQC_2HKe*f6MSUX%@Gkn8n<_m{4 zEIhlSFMQ4|jR|$yrPzOulXIR}{BwT43jA}99~)U~LGbV7)7YP)SN54qU_4AX{bX``9+&+}J5|NE@dR#9VxJgR_RnHpxC6O> zay`NKc=q`|xlV=cm;Kfh!J*(^j)_i??;v_Yt}E}+jv1c!DD3___KVNL&#$cits4KY zu>a-wU%7Gx=jvVq86UonYjqswTD|9qeS3R*=KkFItVpa#xT5F)mG4JHgex{g)dMOI zP`N;a;uom=z@R>ec0Y(QK;Zxx8R{G$IgC$Twm*YaBl}_D=dUQWfJ?X@;3neVmbrk9 zqsRrw|0UjMYuyWL=o>7ikFa=fPmUS1!nRS(3XjZggY#=Xjk&n_I|ct|R}Fk(@z1q$ zD)7%azic>{C-HwzNB>Rl#QA=LS-U0p7r#y7eq#G2{?G9N$jrQtv-a`$=KBQJ+~h0y zw#V{+4ci*tHGIpsAFERIAjW$U+aiMTH#)O5=a|1Ya?z?E$Mp}$M(fY>@%&eLc;Tyj zJoiH;o*ABnr|7quS?8kGq(ao3NsP~CE_(*+*=Dd$F{YSKXHCrvVx0IlA^wfoRtmRg z5OX}PwMK&XiNquK8_!gaD}C9XNTD83a4&t)CzFU{i2)Mx3hudI(FfECqC=FvhJ87Q zm^B{H_sTdN*)RK~6&@kNzVbftEkr-aH8h+X>IQA!zufZr%wd>*_89-4_P^yD%kYoy zreeW@`JA(h_}^@cUE~0=Ugzo4r{KhxQ7FfUs5Rm${%_ti)B&OkWPK(zCZNRye&+}9 zxabMNe-NKR+9?VDA-}MgF$M=L`l&B|`S?XFA8dssToZWZU~{Y=VZnTWIdy;~*9Pv# zoSy}3hFjv-LA}Wls3XV+c28(sx_y)xPA=?OP@J17F+gQZAQz^1BIgAm<_+<`R>MEn zUDjXceGX>+PsUZg$_FcKQU{-J}x*` zGWK~5;r|>1VEXZ6;{U||OMRE)@83+utXVU$X3c7@)v<+hvhP;b>XdoA{k*&pO*?V( zrf@|S|I$9F1H>N?%p2+fL;oOD@Xwf`f`96OoNN{UMa88YkLH4T%>U2$poO{~@Yfxc zSm3(htOc;P!m452v3!UX*04TkCFB1KY5Qf(V4G3zW7ouX*gV*%R#z?vx%96DSwS3tILnm)@+`XWybv2{F$4{LeXe*VmbN);b%_$7G}4c#cJzosYWn zb*MW}hx#IOb!hO5Dm4V3#JVZ*EMj7SYs3CyG5#=Y|4;YH_YslzYpv*pa=WeYd$I9? ze~s%4{>k?heZluAt?&ssu3=j^fni_thMc46139Lh^RMUu;s1}x|7-kT!T-0DF=x(f z;@?JDt7qq~ot&rrm@;>#)b~e5MkzMl5dT_Vs{t@83x4RsctC4x z9cH9EKF=J9!KYE0d#jJ&|6bVnCm#Qt&s&NA-%m-=*`K%5U%krtJemJD#D9ETJY;Tw z^z<|o6y;&>zBu%MKa#PxtaAL5%S#@Be!7U*`(Cv3QWx0q!z{EMoP`#gd*bzBX=ptm z4UMOjpguW!qnU+hFslgl=M*bak8RywD053tk0RJth5cW+k9wd&=5Qayg#NtQ%u>{4 zU-9vYMXmjh>469Jhr|v9=dxe=B3hsNL9ye)5#+myt*4FwEx2Y&oTce*q2%{i4#fA zUg3=7{u=hRwlW@|#RVeB1Abo*pl}1m0L1@K<9w9zlEtDT=|3zQ@)pLv`4oO-4shvr zU9j|9(E*)cGlX?P^z$VzxSoE14gG)70TKgPL>{ni6#amq&*+ZMZjF#jE07d=p`YMC z$Zp{iHy)U`vcl(Ke@S+Bb~**r1N!rfrjtnTJt-%bQB=@11h|7nS7W$bp;q zv|lv3cjma8HyMw6GZ*Hc=AiSiOmzN{b8n1D!>i*;@aoTncxhq^p8d5DO=;6xEGWeD z%L>tWMHw0|)8i@1(@XVevRIX-i}ZMg(qus?>dmGem{knX37UwWXh1#CfVx4Gy0fVh z=8zw7Umf;qQ|fZN)-2jK!N~)nV6J?hg2@N5`|sM;_<*zz_Qf|S*AI$MAn`x>PMXgz z*p|MWBR+&+UbZFPAo&UL1w?O*B7YYSujDMG&tswwlx?;KxsROAbzNiEBHDz~kgE3jcT9J^YEY z|HOPn-4pw=R-erCUwA(`nYmnh)^R#8_s@BLsDtIV)N=kwN%yED?sHCt46NCE3!OQ? zOuH}h@GA3bul~q7nxB)=a()V4SeS)o%NUc=uFfe9*df9A4g5|4IJ~g4)v_c=K(3t|7-Z4J$n|`+N>b|w}s3T z5ytv3!~C#XBO+Wtwef;=5zzyNIzYp|v}#NsOyvSH4w!zYaDN5=oR7XtSHj1XHGsDh zux0XRnA-nY%=)}7=6~59OKAU>e%lEPzwO4Hpe5D~GbaaNjlkeOtpB0?r~kj0`&SI< z#rXi*l$hkk6;~eERycrK^k>&2Kj$!emW-ZOJOekK3cBMzza*tWg+u$3$lq{;+yh3 zF|5ck_Lr66Sz^Aq>|_5K_6(G#~0TIK#rW3SQbc4nd z8qQPw2UFr+e26;a2of`pZ4m{Fg2zY5U#1@nxk0&3Q1}A(8;K7-Ap9Wt}lOXfZ1duPw_&v+?n0@XiU;HV5rM_3Hvui%KTB4yg=S-s0*ZKSmJ+zeFguV z1E{owRl9s8aXzpOGrq;-4_?IdPg-Hdr>#`{e@Dzy2P~x@u;^?01A}`I_mcZ#JGeXb zLq{z5PB?%$c8)U9Zy#B+EIGzYF1bLkURGLaLV03z0RL}8{QDOY|I7yz%6RL`moIV7 zZ)ev1G7f8i|HRvOkjizwva>RwFUrBMr#P;4-aT~L1aw-jr<6TXI`deU4P|(qcKzj* zdUWKr=z(VC`ar|@ztW0sXtuaajS(oEK#dnj%;1lR=m?1+2p{;%a8AAQhp#PqKsbQd zZ@#Z4YZ7ZsVC~W*<~t{_UY~OSnG7NJS-)r~#@sd@nnsavhkXAq&ha-qU8#3!{!1!- zt0KHW9@cF`Dc;$p!@HDzTXlGES1I~!Vg1yM`<#p5HjLiCih33s6@S3YlJosC|F6~m z+1hSWa{jU|yJjOKKU|4@b-bA90KvQ15W%@>Q$m%#>=Qnq@dQl=C^11kdm-iif1=C* zR;=QmYgAz6uj4T8qt=-D$*Y+0+3Sk$FL40j0ipw>m7M?LL6%rTeW3CK;{W^J#D5p; z8dFohV|2Z;81FM&oL<{-v(x+BHY!SzI|kqr_rW z`!8dE?~(hbrlu+QFDppHk}I6&e_0xOuTDgl^`+>v5emk;Y|x`KvHmb=x2_EBDRQjs z+A_3RQ-%)Qesy)3q6=DcyCwC5!~#S&G-WI2v?@O?Izy3iKS3~WD55_^2Waxlk}@=1 zr0Rq!{(=%uQ1ybw4Wt!LAaR2SMPduGPq=~+{qeulXHaSpNJyF2tTCksW|InF%si*r z)I4H83#Jq3uM^`&Unan8a4c#Jj$=O#HHXBZ)-bMLG@5ImO-)0`c^sQP{}#Hf$UzVO zKHb+BqR-|6^dZLkZY#yRJ9QYaONW8PegB=RyuVA2x3_R!#g)l;c61nw`dvfauA4a* z@D9B6)@pq7!xXGvyM#5rr#Qyfm1BIoS?3=}9EVdLhJVomq5~@PfSL|a=aiASfvN+9 zA80y2`~e03^Z{W@F{|=IA`!)QR=BHxWbsajc;e0~X{RQ#{(FLLtLI#6QUqi+h%AFl&s45`?A@fk!9golUH7ZBZ{?ytZ< zwxFyWn<@p5#;`_Vb0&%Vj9~iAHIwQU#YRc#R>-?{>AQ>+kQIuSsi2?p~iv8!j|ApeiIda|~ znZHHwFTR+>b%ld*4PdUvlCJXq!YnMgz_s_5=c5z(zu55h#BCRH%5ED=)ot$6a4*L- zouIYaK21M}K2Z9aUJ%_td5L^La4fvw#T9HR8s24FVg?FVDAxsYT+SC=py&hcH{=Lf zUt)~H4MYbt`c)Mzo*=CjKhRq7Aq;ha^d-(%i#kDK2Q_9^ir`yf2#O96te4w#C9a_5 z9j4HypTOMZMAjQmCidy)*P6gs#iTq%8u6M9L_f{XLS4pG%oee>d37e5Z%oJYYwn`$ zd>6Eyeh!^xUWVoDYiK>~EP79{!yA(>qRZ?Xuvi!l%SDlj^jwvQw>IZda>@0J@XmH} z|8gB5df+_+d6#-X{DDvQ>Cu0;4$bGJqS2QgX#LJAjQ)8QE?)6g*5;A%A)!Hx{c(N| z)&CcsFLk0C_kXZe>w?v>I$>3~Wi;|2k%p1I+uPEd=|Oet`G_Rb|7t;$Hm<<7YP2( z+YUFOJVE#`G{Ao$@t@DSo|MAK$WW!0!-sX;f`7^DNK7D^aTi$|FrEBM{C^Z>W5Ma$ zX!+|sbR+&d)BhJd_qJ7iO7ZtQaa(D{?#uQABDUUepQZ;4_eo#l3~~*Tu6&pD75yM|6vuE27BAbPF1g&s?z6?uD8 z4&K|Tr{7HWw)6V;Jm;J{xh<&%l-chEWSe9zm~RRhmOyR4sQvEGrrh#KG1$K@X`*R^IJ9=oFKkWF}8O;7d0+%ei6o1 zMC!6%%cT&ezB-sWGq!&t3npw$+`2&XMXf*+94Ujq} zAe_2Dwf|BVEc`P|Yz|*i2XN{19!&Yt5`muAo~7N z8z|UUYJ|8w=Wner`wPw;GPFB34sU{$Ul{3JPc4+o9uplPudM8hinSq47bU55VD z0V2X91=rGlpYf$Px0Wg*+iz@P%|AujUgQaun@SmrqJE(NFBnz&)C(GxHEchO7igS7 z-X}2xEsh}D5;Kr^p~Mm;t|)#(Ya3Muyg+>*`-K~{;yx|zXo!2QFaAOEa*=q#)2vx& zx|E#!SLO+37o)atgBh$%oJL<^I)!b6sX8>BQ-&st*S*O2Lc47RXtbvgb++Z8{%+#= zL;>ob%*V5*3-HvX9GDTyHGN7@`v&pt#c{_$%+vWXw=d$$wR-%hKYYm_Jejw1FM^2& zTR)C%xR!+)bI+spG<()cpJ#2r4#o#h(3jXt-f@(^$ayrKd;%6T$pfZ3qV*gvbX|ED zotDL+)AB@EtS>+h;+&;^=)4*DmfvsA_GC=onT%z}Zerb;5Ue^A2HVqtxcHkBj@@v? zS&tj=aOQe&E?leAoAx0>Y=6u{_`YCXFs^cXwJ+P6KOo12Bgk>p_ZNK;Nqr)9K&q%? zgevi`&H<*^>*00X9t(!Pr{I71o6Rxwjb=&=VAf}CFy-UdG3WC(itjJAK@t~Gwy6i^ zeD)fqf8JTazwO9|Sn+qGLgyp1=v$<@YAFAI~> ziYRu(4vHX1QJPXjMa8b5Gz-0#gceFjPe?)_JtU!oP9O=8%s=z)vy(#%2={uQ|6aa4 z&vNfmQY4wRX3Z+^;iT|l zeg^x3T=Rd!|Cgts(Uc5o$hrC4QP`I$_A92?enF2r%O}vf(l1DFYC+uVy=}f>pD_J_ z-Yd-C>C_OKGN#{4AED>O8T45Awqw7mU(o&SG`%i8QT*a=UYii>$_bkD`GzyC+M|3y z9jAY&Ih|OgFQ`bZz}5^a6YJ_#syK-{BE!Qiw5k(wQGI+Cs(#3PV*+^vdk=198k z7D`c9zv(mfFMmdye{~*Zf6T_s-{zpoyd2cul7*WYw~Oy!eBaGFoc}2}0;%l~`MnL7mYD%*2`e1N*34|fy2I|trxFNXJ+b>@r? z;otL(AILj=P;3&<7kX_r$_!nKd+8(kjPpU?X)$eZZ}FuV)p!`v`LZ_6B{-nEzq_+xfVz;Q?d&Hek=t?U?r5z4+|;8kqis zBYXWfPa!dM^=2F65u3jHKN0``f`8Wk($mwk)O)G9zu5iziGS_+XU$*ur}oGCAWob- zW##|pkK<#XY{p&b$pv|&jeq+p+{#@F`V!rZ&+v!i_7b+9`xAL)ilx}hM9qVd(mgpO*%wX^0C-e=| zvZ*l~Ma3C8s56`XguJCOb@Xx@Gf{F2XB3&Am)gR8LH_K$k?rEnfj#WSBWB(Gi2FV4 z!=rg@Bjy8`>kHd9rd{z(Y`a~_^tI?mJa#cB@a4YlQNQy{klAp5ll!^fS%Bgbck#Lq zULzKx`1q~x95#>o!1w4s_FH^CZ9dOx^Tpg>_hRYdomjhKIegbH#*R(PvCC&UclUCC z-{wv5-MkSSxxZ_(&sLtzyB%A6w{oxNW^7_jSUbMgtzBbm^Tv%l8zRi~g%yo|JJu`i z3+Fc0Z69D??dNUnz^W6v=KspgWKMU*E*EO z@NUJK2h_)iN9yB)$C}_n_6Vz1Fp+bD?~@mdX034Y0ObZPFl|8btYy>MW6!b)`SIUx z;XC9;+6Y8^Z!3N_sjm@bLy?iGCf!9yAZF_tlyRJpL_l&>;LD_oH4lzv1{Y~ z-@V%Y!1fpRRenHugK#XJ;ePT3<^5N}zpF23M*Pc~(wfr;sP8}=zX5%LxP^4erhHEQ z$mJE=dA*bM^1FXKk1EW`OVUcMJ_AqR(+)-~TJu0QMk+aQ4xMJImf6kZXp4r#EXyI>I^5eXy)cCF|D`sS8T;$ttA(?Mmk=DpVdE2eeH$N$nP?ecMPBjVove=3ZB<^McuF)NtoE=KN+@obTz?yx+9>p2NHT&M0Gbgz1r!3q#?>z3GmxbHspGRfp*+w9=t`9FdJ;A>1nx%z1;b9C(Eg+X2kk1DU5Qo{P(0X7UMo z&WU^1d;7WTyt;=K!vEX95dS~HgWTWatvT>~eKvcP{zS=-g3*5DG<-1m1N`*k512Fe zXZir`?B>qC6)UiE)oQF>v&LLktXRo@zLoR=Yq7=0_b<4YAMo2E+sZTlwvY>KfIrWL zjN#c(+V_#j8c`h2hx%&|u&WQSF>dDriv4;$p5~e_*c`y>6NruuC;pEJ{^ld?PzFAI z?>P*-!y_O6@AjyTQGJ@w57fZB-Amxr_7yO+OC5~v)4=oyj9?BRUoe928%g|68gxH* zh1ANOIlzIXGrC{m7hXrJDtzSTUA*CU0u_b-gT%kiYgA1~H5cjrcKlc0<%ts~P5;$d zYO&|fp2e8u8MuAw36uX{FV3&@{=dY3V!H#aJ*^|{VfL$aqAz%m@xR^Ix$IM+rbx`+ zPwclKuJ0noA7nhghjptvnTNOd{sQjewdulBXiUwm;bQXk6**|Ojb{UFXZ>Q!In*O> zFU7iAmA#Dj(ahcVGRD)&gyx`J=mk`eG0s;C;$!M@#TkD~g(&uOwuo2Z-a#(lU~G2; zy2SeH#C5)pxZ3CO>+=Y4m-zpUOZ=Z>@b5(}(DC*n&O5C@yHQgycFGidHER~n?EH$m zdKTf2KmNqhB}<$;yXXTr!=v4OtA&5^fbHb^!g=A?Z+w9K0BtjUMBr}5fAxnF|MBtm zei-4|&hK5ZZ{N!Y*g1hT0r>zu*7F5Ez@8!0oV#7UwdDCB+#%G*k+XPO zcVwMAl}-FN5dOK_;)b6GEE4|*4`%7SM)d%sQ2V1lu=;+O|8q77Cr_Qyj3CYv|2dgw z@&3|uG+|EMmHOY6@O)j*J25Vt>+?F1=XYcu%4PO7pPwz=fITWd<*;T&Ec1OGe#t?r zU${?%{-N!{3%GmLIW%2=7R^_m!yW6+qM`pG)ZTjvwW6|7i#V?t#+l^MEYu9oMzsiH zJM5ytcKIO2e_1e%m@m&bUoI%ySXn+-IxG*R!(prxuQx>i#X_z4?n(ad>5T6d@BcTs zeo=m)Nc=1Qlm9!-Yv|9M4JHp@9?)alN0>ZwI==e+bA0>d=VoX3{P_#$1O6~OJGHk{ z`};NXwQ&RIzI-kBF)N3%A0tFf5$gR~z$Jy6SV}1FXIB1wKIj zK+jt<0}&B>Rhu@kU;jCsnT@Z;4Z#yl-3-PDx2uAeT35!4wAYCFkv$uk-oUpy*C0Q* z1@AC75dPIGG*UAIy&7Nw=LSE2u{NeZ?zr&Bq&7GhwdGXKxzh&!Nnz`5_#s7Kj z^~wqi*hT!a=gMgR={gU<@c$FkUo8Be#5u+PGpzq@Actn2{7>fpfAJTtKEZkaF#A#- zSd@i3mS&>G@^fgjBNH8VXX36s=M1iE6W4VLTSzwQgz$M6s~dbCHNr2VN)$Ez$fB)c zDCd`jfBFI&_gA`>ary-h`T=o)Yl`PZVf<>(T?_u13pn1Q4#4YuZ%x3cNt5wCcXfRC z{SVyR|2=;BReQVtG<&;+f9>yItC>%p-L;c*A13w_-&e=~7VO@!o%^{%4DT=C|H8EF zN|-PFyx!}o3+VN~;-9@~`S?G7As63Hcnwe7?!YU~_%H0g(W$!W1+?OPJ%jgQ>qA8ok5YJWEVZT(;K7wW}O4lwG^6vqD}MaTalaI1L}nezFE$=hX}n9p~juGfit zzQb4K`Lr(V32MXo*T^*%=Odc6!&uHC z?4usApS=X}mry^3b^U$R`kmH**9Otl`=WR)WDTSBUTXhN{8ugH2deDlYqUx<;a)Mn zDE!}~*O-?}11wH{UQBtxf5Hb`FaF=0fRPg>;^!ZJF#6y8`SUT4rueVD{jz1WO`A4h z7vs6k?%c_<`*!LKzir!?3s^iroZmLvFYMU99edaZ5Wzk@<^G9@Nk#|Io;dM$D~1cp zg)#5?SX@D7W8U^3mQPTBAkU-Jxm5Z1&$9P@w9k`dF&%MHGH?aUbcFflD$+t%SrzW%v1JnsIRn}vI6t(Rt@ z?TRcsv?d$f{BqEp)@CbndcTWk$N1cGA9sPru)Y|54xJBh&+tL!_NlpOnM_N{Gj?A* zd;DU7yW@a+V~O)Moi`7Qd0yY2fBtD~ z>5`??0hVIj>b2O(dG9^`yUh9BJLLmp}W%2`Y0r7;_JKf6q;2oIt zVx3E~p7X-@LmT8CO^#T}Z*r$J0A4+Gy-`2To;;Z!|4*Md9+J)YpO&1QwVQrl{nx^O ze*CBJRo<_27*81dpF-A&WB738DK!5i8(oQY#qjpTdVA{d?U|oH_+t**Enr{iBJ27P zuMaO{FZojT2CwDJ;MQ|!N$u^S5OVj3Omrf?d!?O6Z(6%l;+@tfIScI=&sz}JZ4&5T z;&agQ0DFRH_r+dr_s8Ypfp}_weExRE|CW4w2k~E@alh$)_5~B?4QLHrOwZNf>x%ut zeGOrqR@euK6X?0J#P!vDfOvuQfHJh=h6}jp{#WDl*YnzS;{X0(6EW=lF_^(K`@a45 zdo1Ig-Zj+ww6kydvZYu-Q#=o5><{F5-McvVxkI?8Sw3JV&-C4fE!6&feR;O0(+Aib zV4Lq2_6cmpE^>vyJ-f|W-#RBIA;GE#D7IVsz=iE=(FLr0z}Ek)_#bf@{&REl@cV+F z@J!dH=-=E6y_>pQKA>%7*8k`O*bk^2Kso;~#(Uk5>D$oa0et=W2P@$P+NfSl@YRsU znD&?>ck1IMa6Fa2eBdQvKJU``8@2|(|3|m9xHvQK!28OK|B=FfYI1V6&TTgMXWx%@ zt(d+)#{Lu1|A>9{|D2%ydW`q){GN!0Q_|68F1b5(w}~Jaumw(+eOUFuX@ys3su&PkzAU|Gd7#TtNO| zFnz@vo$6rf(>3tvlaAa^pDl~Ti1qr~&kO&@(<1ZZqaNQ#AN+qb`X;Zp(K60)wkq?? z*-HmgQt|@$dyZqiChb3+=8AvK{$*UH`^0xIzVDF)`i_)5W8HX_>9MX|QaFb~>ySi#Pb}NGx38|) zcfD^(A8;4>fQ@#HVZ{HtBQg2Iarol%>G*;A-(uGO)~{P<@T^)-SZILB_l0}m-}nG054g+^@NYwB z`zhWl{%^}@ACoW4w?zpTwqvOn3+S# z&d%natM##dI8a5F#kVr9-WEzN0TzqFC`O?q-5dI^h7Fgeu zOOW-W^`Ui5V(%bL*RILJyM=S%-Nw9q?at?99hvjrLrk|z%tL$n1Mz)fUi{w``??no z(6u@91;zg6%mePyJuz?l1RMW$E>M^6t3^HFNH{(RROeHl zfH;6%`&aINrG5d+2ZV=*vL7XhJHQI?zh%R6414kc6aSyQyOiPoPZR&o++P+?++7mS zx2nL|fU3q`?^w-X{|)B+Z#`VY+zbDz52_CEe)p2OpFLX|8|IBhu;2366zkXhI`&46 z|2F=c5&v1j|Jl>0FQkz32XXdKy}t(!{x$w9_s_teGkzGv?cyK@G3uW zFMYt>w8DHqkHrCG(gN-v_N4`g1IQl~<^u8ox6$MSlmir%2Z#e0A3&|}TJ!+%0ObN+ z|5QCdbAaRkrvLxF-`M}_(*I-E{|n*&b>jcSapUpv$5Zh&Il#|9e$O3`8`--TZQ`na z@4{escsTs`_!}Rf{cpm*9slz+0r>;@0lnt8gBagR4zLLuSw9dL*h;)BH}KoM)tGt- zeK+}#6Kq8=drKlY-?yLs#@Yd5`+zIw1Uged{XZ$ff7W>``18L(yEkLp%U#izxqlzp z6D>+Qd3_b*3&ioCf3O0cZh13fe^oOdJVd;JKEbXDzQG+Lqx#%|aeZp#PJ6-|izfEK zs;`Hd`2Xj$0XJ;?=M1Hd|K_~UJ5T(dK5-%^IVl+-!K&v9|IGhWFX#Wt|FemI@&7gH zNAW`Z8MKePK>nV^yq(;hT)uD0MLc#$*w6c0dyMaq^{4ftb-RiW5cX|eAivQjArGyn z`*%(T9wfe{{mBY*0Q>O+^aZL1*cyOz0h{+1<^sZhRi_pxtlPZb^=dyaJ)ki6cYQ1l zpxS_^@GqTD{XvDTDE&|Gv7fi!ufBiI8F=pGu5UB{vyi*{XJ1qN|B(6r$J7A7`ur38 z@!LXdqox-c8p2+WeffRfiNu)Z?n4;^c5|oy4%Gmi@qZVuGTR@RtNZ|CyU7JM`*LTz z4`&0cI>9#a0dj#ITeca0U^D~zfL%Lx@_b;;mxu=_50EaP+(15{C_lg+VDg58$;nWS z+Wy!d?vJU%`V#+c=-bQ#&oSP=tUe&-^{Vv==TC7zfbADFBcPbC8lidxbg$1D&OL(D zo~oBSeSjxEdAd6OnEK*meh0LA?W z6Y{9}UmgFp9$?i7)f-U22W-siD%|U8>w#Cx1*(xBlr?$&<+VW*_rr2=Gkb>J8OKY8 za?fBu7Tl?odiXhQ`&oD}mTL~!!#4H~sejO0bG`xW_1C=LHtzd1#{D3iL3HqII5wVy zWBhjR_WuR$ocr;5$2kM|*3a-Ng8z?u|9woGKHZ$vw~cW)kTE`(yLFZKYlpY??kFaU z_bK-iHlxV9gP0HK%uOry7vuwl@vpj}-XkAi>42;iZd?zaO&eHakS@S^Vrhn)Ar}6n zIp}-D#cB3O`G8gLkE8DqFOWtc9x7j?{@~QqWN1ds{y26x3158hDq7#_KtI+19%Bt) zAbWvcWj~{LIp^=ShqFjK&!TE@78-_}#cg4n zxsJYo2O>H9u;nD0&)tghqkrU%fBFE<0eina=W_hNZPov$Oqz%b@Q*UEEh_`>+l&j*w< zY};<)zRr;M;jFN7g018NJE#?CZ-{gNVO#ju-3~*^uZqF{%ghA^wJeJP z)CI){R2xu^pgdq`7xoMGxsCO~`WV;Uk+bo;r;!x8BtQQ9|M~6>w-@l@#S0exb1xD9 z7xJ|GpSyo^^gEH(qTh*jerfNIc79zI|Ln<8jlO3Bb-#au|J(jR9H1BTd*R*I{_VWK zC?BBbi++VM$KB)SCVJ%SpKzV{pd_edY_QeHs&9?~d z72C_Rj5tS7f&02DaBr9VK-n;wW`wmbAdtJexwp@;iDzJfE`jDSX-`~UhUj07Od&L9f z12p>`#``E@Px0680Zn9X5V<$ZJ(@zF-S| zfIodtlwwRmqQQRxuc53B?A*cr!`=QocV;_vMb-~@ZinA?tLJDtpHmN@dQq*9JX~N8 z(7bPF;;wQI++Ep$&W*hBX!Bw;FY*B|?gXny4ZzwBpm;CLKYicL^Z}*F1InBFfHVR1 z0uCqk-|NX8;yoSNi>G$Oj-?;x$A6z+-njwef0h&f*~EVq@qbQx{V&HqW4~su$O{Va zPwmf+|I+_nR{n4Ef8ti!zK!F5=PDo2n|XkZcX552@7vGWSNpYA#DCiat5?9ryv_IR z$F5hsX6pgU18mOk$^&d4U}ImJpKa9`_itehpgj3~S>n5#<^-K4+*f4WFU$Qu9$UGu zlh`h^Ar0kM??>4+vACI5c5N)mtU7>->tb=c-$At9aT2{E&!Z1}qWUqP8j_xi*V*#^ z3jgF~FQ?~Wu#3IKf1?*!TOG`Q^Op~2qKjVucM;C#IRQVQ*f7rjyve+Pd4T$VM}9Z~ z3wciGR@LQ+(E!eP1u^&6j%U;J!^goqS38*6uki!)1>yqgy;0pwIY9z@`}eb65XSeJ z83AX`e?>pQ*Hs&k2B>;~<_lzj{<{&&o?d-j#ee1dyEsR@k^6*{H%KGcL_eYZ0&Cf) zsM(~I+*7i3%Vxem!3qCdb6x!FceuNP1Fe_?w65iWhZ`^tV6HDy{ZHKA&h>SbKM?li zA7s-1)CV-AeRblWJHq<8=Y0M4UHEnSi_7i&zenX8Z!a)0UkLx_HD8gVzD>o zL!A91_qXxS86liL&Awmm2|9h|Jl3-QC;WH(58z+ELq4DnO|icZeS!SJ)p7!9fbs>M zcooh&vNyoa3tVw;-wXfp8R7w&4Ny+dq)?Bbe1h={``H^vA5n+xUf5`wRXHd;woSOy7`pf&Ev9@#v!8(O}G% zJojt9!GGuXC*h0lzs4rk`&6?N-h)ldx8l8Geozp70r|ap0E2@3jSmQ-56~XSebfbP zJy_@Ps5fjc&-xAw+|4-ek`JgJSlB11mw?Y{PDpbD+c;woK^~Eqcz~vwf1LSRe(Wg{ z{#7H8ZDP$(d4qNgX+CkuV)iSoUvF{-1N^*8=Cb+-?NGMe@S$1;DL5^+ztNK z6DY1Po^SgA`2%SK@&S*sZ%8)i{+qcwuqJzi>SEf!vUy`WIWDc5{gS?Z0PQCEf!y3n zH&iW<`+g1n*-z1&_lExq|5p7)vp>n&1z05hbBO;_)c@ujIfSQ@PN7RI`M>l(VfG)2 z|2F<@9w2^yrTFj41Ed>vB>shM`3m(3i0j*!H&;D&KBrp1oiu3&cTfjtOkdEDX0G%F zwU}eq(w+cX^^o(Z#vbPCL7W*T)@yJlP#x~&zKuMfDd&ss{a`av{{ zK7ghXfv7$28`S$|CLUU`39_oYJiEG7r;eQwXOTHgaE?{a1R=)b9@MSGg+Tq%@Yq+auIaaM)MO}b|OCNbw{NKFlcRb$Q1CQV7VRHXI&Aid0 ziNyhg?f%sK2C*MVb3wKrcv<(x2XJmgV4Ydz|yFU&7d2LQJ_&;>$aE>%t>9E58VV?D;v%oW){9p0^6yyH|;{PP^ z|9M6_9!)-pZvP?t+dklN{(bkR9`JYg7v6>chk3mxj=Uj}vxW(r5iW%Pdl~cZOH^;* zB{TcifH-eTAE3Vf+7Xvfmw9|0&idA;p4W`~znXHt*Ikk9HQ>DQ{gKoQBG1t>(KPZj z8bxQ|zJ!ywBZ+72C8V*>C=vI?C-It$JL6+fCm|e_6Lz8Ufer9pIu7n%zJ^1bXpchreKo^^c?kqsP>pN7a4TZF z3;U7Uu{Ws&eSuXApx(#&pymhfH}ioU^dzrW?7oB7=8W5o!?VyR^gQZ?pQF}(nsZC1 zaNoXjxIdZaWyGJv!?c#f_kHp4XdWMfS_uKD6(4|72|M68un}%iYvG8tZ5{8|(>B4e ze>;12X2EODD{y@D1{_mgL&Z-<@_h7nc~-&u+-Eo&J!y~pu>_q~ZAa@>3)j;JE-#+K0w@SW?(n3+Uc9X_a;$Gkj5;ndE1svw2A+x&Yr>Sj5LG)|5W@J=G7A@tlM<}o9pY^J@Eo(1g*X!^&a(R z57I-#`vb(j9=GPq;N8T&IKS|(9^rcu8OOu9Ux2l?`?x1S9HDnS=MCd8(6Z4s{xI6a zr{i8?ykSBF8prQN`Gg>N#BPIUv=2P@`NCtLPrkYD+XR^#&0%aKueR~IX!?X0AGpPD zgWGR2;5KnE+&&ow$MiShHvKJl&~){jF%;EjjN%OSXXw3XG1{%$jxGTq7#tCc5fMpv zEg}(bg(qS~-~rC+?8mO?IQT~%KnVNj!ng}NoN;+?6wk|WS|qQLyIV!l4l$_2y$tbAa@hV@uO9Uv?p|5p4D_TP>d z`#gXLYr3O5IlzE>N*YdYYk-y?C{ABc+~oSU9-w-F(F5rV)FY_bL5mku$Ge@}vVR^{ z8ymjvpXR@KM0w$V^`~9`&*Pu_0@(j^8f+H8`EzG5A^AAE$DSqDh#%Je{>l8`o)gej z8eoqk?gb&Hd+_^ow~cu39-m1&XRs^$_GB%xGqK(_j{O7V`8^YI(I)}aCpasVaEiSF zr_hSAviZIPXvV+6+DXx<92bPjF?&#X{~nY-uoLAD?7+c!R;W@Gktj(=S|Ze9p#y0`Whe`2WDdzdJGSMjzndRldM6?R9ugdkdAOjYRiv zKgUPp?BA{5fCbEfmocWU+7pO%`L+9!v9&E%{+tA)TcY|&vef3XB+MBTJ=Bm37YpZw|}$AF$}iX!7X|Xu`F}NxD(&x@9vEKcHF-l;}+(H|02!C zzvBO*g7~kPFCQQi2k>D0cb`F@@X=88_;M;%{`ot$a3|N+H7l``cnI0H714n^*{c(T zJ;Y@IHTnShfMA}zElwW6+&qeXJCVelF=F1Foy)5@b|ksE_<(G$d;m?cUOIqyza9VW ztI7BIp0JQmeh={h`T+U??fVR5-+*{Q5OskNJ|E1VB{VdspjOD7AlcLl6A;6nN4-A5 z{JE9uOE1vhmj1@HV_Ij-3;UWG)XqVZ|8Lx2xPZXILS1ex&>4&cP-?uja z!=7%BwzaAI*JK}HbLRil0MrXCbM*nb@5_8ZeSq=-gE$wY*&vzvhSeYRddJ%M=<%B` zPU_>p*n=90K`0fw zm3*AIjv=mN$jgn1t1G4x(=nSb+J z_xTIVe*U!^*)LCAsQ<-ZaaS=}m?Upj3=Rz3MT`a_iujIZtzP+?Ofx(N_cs2`)jDf? zFYEd;JVFYs# z?Ep()oL5dDjZpcd=6>Vj)lZace1QJW)N`y^0?h@A^ZWT)en7p#zCIf`Gst{^{Q~AJ zlFdHU|CSmp!|4FbCGJ23M!)eC+ST>O-Idq}*g$ptV#K(W{};x;@_fq=c+wYm;<*RQ zn;rn^1ll9^X6KqbGmPhmc5qyr@=Q&n#BsQbt!Tpgk@Tb+h6C96=ea-4UGUHP|5fmR z=8UQPT{?FbC)och{C6e(dy$VT-@exQAH(T6BiO^_?#kZ_tOxHcJ7@BWuEcw*_*C}k zB%?L+@_XVFQ9mIJ4QS!~#K2YM55$HT)0=}8`1(tG0pAUQGHHRC-TD!@?*{>T+Oxis<>e-E8OgDYA#JIgL zN7u{G&~x$t+aI{-1ICvS8oDc8;i5(CQD+&H(uV;|o{|*sA*9#x-V+XbU-l`T#U*c3%=U=pTJ9E0}tOQ0ot09)7gH1&Vg^;G{ajQ_%qg?niN+8?6Vo@Zac+dZ0KWaknW zzk2x=gm0b4bFUM+2>(&Lm)^kmKhOAokoZ^cH_!ZJ>_197e)Om{_ru(uzQWA?jtv^r=B0%4+#6x4%7=IEARtWzp(Q6K>mDI-w^NBM?_wrpHa0w@eG|K>8cUx z?@Mt;{e^+_XNCi?K4AO+@vWU9c0RCmGkXH)12$3{T)})u_|M77A^xrW|Mc;6Ec|i| zIyNkUyEzB&P+c!-fo{eJs1Bf7pj{6rjD0;8A9#Xii1z2~fF8flsv>)V8)I0fvKPnq zFNf7XzK)R1-}My!m(70ehQL4n@k~E6uMg0d`Y`@;u1aTrrsQhQQoo;c_F3z^Z{gqU z{3rg;6931zBRGfpUnZ{~P*3Z|eZ0MiY31U5nTPkG=H8e3dr#)+9pjFpV{8WXxRcc5 zj<60NZ{qhou?eitC*huiMAp#up-xH^nk2>;+*eKsM)}kr)JY6Mtt8?-Ef6JA_Ml2i z2r8rmq2$2;R7eX)8Qxb&4MpYDaFpfel%o|VR!b!A#?5?9G2h^s*tTQ+)vm?K0}5=n z`5f^Aj{{ra9p^`#;9ukjSHeGQ0B$pe7Rmvv_}_6F@y|J3?d#T_uFb?iP!M-$F{VnJ z3n2#&P@SHc`QU&BDF<^Q5=wJ|FLP>@Rece^CCQGhc)GeN5jU3 zeLwjEyDkuz?+3^U_?q1}q@7W!7b-U}eZ}Gj^ z`F_$8chi^n^J}PoKs!XX`#NU^r3+I3Te4&^cNT0l=T6!EKj+S#!jfOVK&Qr~OdoJt z;{Sg30;?X_p`HghKJhI*z*!TteSp~)NW80GxLYF+V&9q_(0tGv57)-%o)s@nd7>14 z9@PQAO&MtT|J?Vx+$i`rItKASEH^h77XHuWrl+UUFIyT-Vf>q&-^71LW+qP25>KAS zn~BHKfjw$n=m***9HAXG_7HRO*3{TraF+DW6k?q?Zj6m(g2)-7MO2m4VvUz0D;WA_+e<_Fu1ANZFzfGhqNPG|k^WmErin=}M&(^vzP zADC`w0S-Pc{pow?GGiiUPMwPHIH#{&{i}E`mmlL}IQ2I5;e|793VXu1FmLVAv3!7i zezu+eE4Kd~{>|&g2T(H<4sn+NjyDc_e55C@PZDAQ~CT!61hA2gg~4>3p5_>H$l+r+5o} zA@|e}{<-|~1IR99ca&9;J$Zwvo}~Zz=C|h z+80_39qW4#|DLP^@O8dNdxVBOR2>r@tA1&6KMzdlUlo3fzx<5fs=7FUK6w8>y$^&x zzm5MlT=1W#+KqCyRQhPmS=szwGncCUDgK`%_D?eQ?>Tk?-4avKG&TkICd8t4LNMwk zgjmMdT`wUN^%KKUHzOAHxKp`)N+jwZi$}x6y{Lcq02&?U^L$O zT=8%8f8u}Y8*m@{EZip32N(`u^ME%|Y{qc3pE}mW{~y2m&bhDuPxisDGdp@C*l#Pm zN@Ek2gd_O?#eY|m)^7WNYr?ief0AP>(VDQZ(?eKtDC9)OB1x? zzkQWokeNPU`U%wsbY|fDeQM#&_Kv()TRSf93tX#jHPb@B!;zDH_C~>fLHs{`Iya4a z?E(IN^6}5vKb^U5V!w@l_Wk6tR*=k`;i2Sxs2CTD+u0{mKR(PdKCX8#%EJB81E?qb z>*{*1=bX>i%{YMi_Up&kFPpKS`F$8_9cFLc(HN9xu7B;(WxE9>IzQ_6;eXgJJ1M&se><3)&|NBh1jd=#{AG}~733D#J~FCb>5b0YQ{e^H`DJ*`nvqKwKu204_H3H+Mium z8~8h)U}^-!yEH-JP}-ijfbsxa8;}pk=K;Jo+JLw~z#assM##_6&t+zaoxETDKOxKs z#1VqolcYW2+UJiZAYQ8{y3nAndzT7FK+(7#%a;X94>=o$? z!~ZhERTO`3~hd zvCMJov&2+C5Wmq3;%WXJa&ILrUA$oMpGx1?wOK_pD?^OeE5=ywjz@_3u8jTC0=m-& z=-QIHpnO0-@&eZ$Az|O-0n`BWzAg{J}#a|}&gwMhc^5g&VuV4M2 z#y>G{=l_QPbNOBKfG12kV};osh;S-=Iv1MJ>_s7Uq=L=xL3_m@s+TcKV7 z`T*qv#s?7BW>*k<{#27Ny+g#l-7BR20QDnA(XS}4Po|&J-&1n3_6l=n0JQ<_5i>Oc z=>&}bI%`C_VE}CpZRbwf_O0gpfiQkQ>73FE_C@bQBKrxHk1GGS@qZ{S6+N3*z#YVY z2lD?`%=sUn{@=T)7qRS#PSp5>Z{4?a;Q_V=sH=Q{%?%#AlXFCO^Gwk;>;>rTacRaY z&G6@!Z~jJSQ^Do{%sl>QeE@fV8vL{NH;nhN@P9T}=Y3y||C{*F-Jj>rWMVh*|KNWR z|MCkBm)`HzW?!oR5%(g*x2I)K$Xu+#Ve@c_#o{2TZe z50J?R@ao0>f5*fZaQoO-@Y&Sq_~O&g$p7bb5D#Dbxh?`sMhy^+Dm^HuVe|{IdoZxtDc+G*HsU-4hDTllZee4sM1T$g&GYJ%753#0?;YY4C9iGB47NCVJwrI-(h z3tYzc=_mf~v1$S`eNDpy6z7Yo4O}h$+xT~0y~e))$GAagF#07-8aoc3fBHGT{`Na8 znExy5;hPXk%-i~yVyk?BOgiChlVYy;w$9Hg><6R^T0B5~!Z9Ycn%J*g zz~}-_PN04w?c;Ru1JVP8bJYp=QWFSatXD3eT|m+Wq!EU(CrP=8G)kF%mIDW3jeelL zW9D1|_VH+sps*jz&kf*JyT!F*-0TbD?C=iGJ#D8S(EP8@Ce8qhgE_u5LHU68b=^&kpj%^}A86(S zt@?oW2O9jhuR;x=IG!W^SAO>n;h&d}|IFhlHyHlUF#cO-!07jNl)JyI^S*iJFaM_O z`rj$W|1)RL!T;DPJeU}TN+}U&a@48k7s2DN#P6@=d1-^fx^S=eSED8%4X_3utHv)L zFKy6{^M7|$El~A<(n$fPE_hRNAaTyz{tEb4?XM^k_g6oV(E`{bR3z?gU*Lj&ck2J{ z%KusWGjYE#{zngjSjO~3=DN1oK0rLcaBb$= zN9Y6OvyUG?!Q9{o{e|{x>wGQgfEFK6zmQ!Uh$g4D^8wwPUP0pnh;w0`{rpA;DC`5s zMN}tLp0C_r^TpOqL4WQKjxqhC!oK!LDzDU;KlUyW_5J#D-=AW>&Kp$kkbFS!9&!OE z{*?o$A4s#qTYWVXxDM-AErIWbHKs;&!JGqX;s031QA~R8C3I|38V?ZHZ8!@g{C6j= z+fw%z?xpcd2aqoKM2lkF6=3NB_uRt00rUq0xi>(Xz+;>b)Lg)m+#{}Cfp2u;4#E2z z*}r`BETTd~13!88Ub6>m#V=D!|M1WQuix90^E_oWkx9|-5(mlJQfISJD8jy#SmI)a)R& zLihOXX8zwXhJ61D`1c<392}#cMAHx6z%17PW_>c1`rl8`{Eu*{IG&gomyiEM*2tuf zX&;~JYK9BYKd9EOTtGXU#Rc?OyR)z41MFPDz8ZayK0rIaHQ!sH5t0i?7o;z+a{wB>x?n1Mgp>mi>&hXd z37EQ|&HL#SJmVDCIseNzUf8U7FTP*E`7eJD=M3p1jB#$jyvDERPW|75@!xH%Gw+u# za53*O&zksu`}o)J*~il`i~0W&>VArwnw1rPRU=PKjHeaw0M-Ak+P~tw3l|^;Po6ws zY6Ri}(%|e~VOtBZd4P?5`fO2Tbc;2>-r@_B^fNXo9x|`wrj}YUk3+Q>(0M-8|AEDRvocx6RLvQv0XqNcJ zHryH9+L8Um(7Ukuhc_aA8a|-hYm*bbe*bP%l|N^{Q+~V8#_~Bi7b-CR|Ih3PEeiiU z-^av%`GCXxy-7zp&e(C9ao=!%;h&bnf9oTs&fuq%L%5r}ajK?8p%HOe7_a}y$HKm1 zd5y#SSR=f?9wGS-)dPihnRG!{{EH7LwhOb0;g{pudhEgHWqMsZ0j&K$_Rb&So|qTz zWs#gaj?(P$2Hdh{9&Y)3JRFl=Hh#d1Jix<+3t0Fch$iD+HT^%o{QNVvu-|-`& z$2xH@{L2qm=jKWSlojOzY%ZX)oAmoUoSMqdqkia;56BnTbpadyx|&=-yx-{q6zk0n z0VfBr`vc5A0r>&GPd|r^ec@kxWiNXGRVVl>{w+VC9>d*?`_lLn`^Ei*fBT$q;a~H> z>(;C?JA&08VDJws{%2>M!>_Z)qu1S)aW7|p+Y$f5^8L5|)zlZ%idffcwr|i?H3OOW zfN}=YH%J}fQR)J3bo9u3uU7?3c;c=LU%%P?(09|{OaJMUR}cR@d0^_=KYl!xot1T- z`0t^Z|G(e|E?&$w`aiG3E?vszzh#!V;@{%`6leY}WoL2*;2ge9If@nuk*Jm!hDPZz z)c^i78i1=GQLmslK%?UcCihp5K$GK%1$luq0nQ1y#(VqT)(NB^N;?qdr5{KGC_%no zg0WxNcQ8&@*t-T5!dDv{R|;Q)YP2d5Yf+VU3(ZrzfQV-|VLOt${`UKz%>EsyvX6a+ z2mCpw6oT4^_M-WbXxzttmzHOeanIRgbUm8LeZYPw_2&#Y#xU0(*`N4-2F1oak7DEn zCB*;7JcY*8|7Xwq3>$eqxAe4V*6H?}++BKqqQS4l0piL3bw-wAzI=eSOJ9CKoWM54 z;KSkqCr+50K=-Q03!4@Xu;vHF1vLL*YXX)J(EJcJ0AkyiGy(B_UN6f9h=095h3AGH zImDf@?9tQi_yY&H2Pnj<=?4d^cIY}wZ1Vut5vT#|=9xnB0Xjd->=Na5v+rj1J!%GU zJoHzLA<7>n}`z~_M z3(mwU*Ff4A6eC>6O0Rl+x*(!MPyPi?RM z-qqX#ybN_{b;FmUZp3ml2-}9*G5)B|o`Bj(oO@ue;=LL1c<68VX*)+V zsLgSH-tr-qKB)O``2d>-sP3N60}62g`2qO=oy`?Ve;^;EUc_UEE&iz5pU&`7olr4e z8m9c2tpnJ6z??Tg{7d^+?AQGNR^oi~Chh;>*S;UQX-n&3kW*<@00vc;mJ9n)&DM z&o;%(=e)%0;I`g8H@uYD5AvnpUuo^0{Q`BtH{0^Q zTcb0ZR{ciZ_0W$t{-dKp{%f^>BJnT&&$@AvV#QVX|D~)f9O2m?UmrY-7Ucic(jw82 z+MH{g{>Sf~+(H_lW&*_FRTr$D9)fQJK{1wW6IubR;zKE)02gC91N@ z$Dhg0{Y`G*{25b;ch!wmpVzsOn(49OLOLMPqWsK;qGX=frAH3NM#C^ieOK?XRYl5vx zV&HwH`5b-C{oWTodAlF}_;$iqHvWH}`quvz{*PtkrZD%v8vf6)_m9gLker!`_YbF{ z8TEhdNNt4>9us=}?rM{w(Ux{~GPq_@MJTKRmo@ z8#=8aCkS4RmZ96wH#`zuIPcK&cnW%D9!8(+W9Xm5xPRdU`VsSe=>z%_|9>_5hdlX* zGkEIQaeTNX2;Y7EHHJ_57&XTaNAI~`aG&R1#IRDZC+gpq zPN*3Ht8dWu0pbGm1L6YCT%a)i)$^l0fa`hQkNTdq_eV3(%a$!OXP1hPsQ2d#XVH?A zk`YQj`su`>81P^<47$gGQN4=c-EPGHzhNW0d(vlUCvX+K*|8M&0k~u6!`2Q_%@;ny zGlK@Vy_NYzMfw2u3lpE<*+I{=`p(AxM^D}PUyFb8ekcFW8ln8(@PAkQ^LMCTlH<%5 zUG;yR`NL*GBvAu=kN9uOxxX5zk(}H42XlY&d!r@rT9Ew z8t}35{F=PhG4~Oun-YTt$@@8bxE~GD;?W?LKU3^3p542VXZLPH!{{wMw{s3|+A#wq zHhlzd-;YqncPei3n~qWoCZN=}V^L<)hbZnl8pY-ehWGR*;5o4$O1$0^WyZgXI$wN@ z7C(N6dlvtJ4oiMP*JZ2FZCem}uuk?!cm&S|h(?d&N$7hj9eqxwqWAfuc$A!AfUy(2 zIxXh}9_Mr720fV*hzkt7cn*UO#$w3tKVsJM#n>87+;he+mN~y>dxfp5;of@9$_d2t zRqNB|SR6pUK%792ZEj%Y33{)3X{6JsPN;KU#QoB^qc0(W^+fRi<^y&vU|;j+h}at> z%};m~-p#%kXYAMaH#~v(xB7*wc_GaZhp2B*{r}8wv^PMH_c*z~(fyqG-@qJT?dla+ zzia^(|GofAmM!P}?-sKI;V5$q=^Fk);ifzsI

q*(SF9^k%#Ak;gs8x6U;yJp-@>T-XeYWPCj61)JFcg;oR-E&cK z+bmStG82`yeu45^XX56~W8k^!H8>UzVSIlTj-^B3SV5c1GdX_X;}x&NedRECE_fBi zzJCeclb(RvfEI8((-OsA?~2kRpEO+k!LL3+yI<$w!Bv~khi7c`^AEuzv3t?wPz<_q zuR%Bd+z+2jLFaRa&@DRy57RnP50EC%;nHz*xo{kVGLPZeGe_~#nG6igI*s?Tk79ZZ z`(U_#>Eywq)cf|chtAURENw608hn7w4U`WgnpkdW0@@ECQ%>Nb3(y}}x`DN;^YD?w zrsw1IiIc3`r?ZckeuO+CntWTDyR-l+C(ymMVCE_a<`k+Ko#5Y28vDp%m~R+u zK=>!-O%0Lv>J0-|JcKkn)k&&0m-n0bBOn9Zom+1r|t8&N%c9co1RpoZ@E z%ty7IKca^J0#w`eBfNY^z|EICwAXTmW(hI9l$c)rI*n)T@ao2^`wC)v)w}RoJp!II zUA7O1uk%~db((ugj!+7S*5ezw#j**#1@qT6ohMzlzvBdq4 z=?C#sS~7lP9d#G?l}D$09`FkAbro`^zs49 z3v547;0xpj^nIiShzBSiP;QV$ejq-Pz`Q^`M%v9`nd*ak=|5s|h@WHjM2ko8bCT$L zOy8h%0`db}E07N`@t?fk+9^ODK-{a&r}M#d)fu6_jQi`?@w_kc{^ivCmNM=y`t3KK z0s1HX!D^mqw1MY{?!>A^Kj8b(Phjek4Tx`d=In0N{E8X9Pk0xGh4+si_rmB$tou)% z^ui1moB5O%CJ^`12*nS^(JzQA*gW9fZr=Rb-gvKv2Xg=qjOcL_&k1gTPhV_-U*Bti zMPqKql5th3A5^^XR*y!QGqG2E*11!ih%dwc?dyL-?B~yt&qsK_CO7vI^Qf$B@qfj8 zdryPGzv4gt1~l_$uuuG-Ie+dt@_%W9h0Mf%)(XV|V>Z1Ih%~(K~qpM@M9EPKN4=s-XMO55uZb8x)zw{s^NU?@9Z7E=WlH7J8=8% zZFul}F5%ztTx&Q6J^;s4E#Wq}lbO|Vd#)YN)^3Y3U%i2*3w}c96~5@nv$vlMio}@6 zBuqY>hF{W-;J2g<{E?cDo#Za5%(pX=>09Yz57W}Am8J2y!_Gb#Gbbbe%jfO6nWC=3 z==J#k%O6>}LP-p+fbJvr0bto55tw1wl z+C`whAI1OlbnTFeF}q6bz9HiSoE)HFX9)EG_5>LGv&TWZe|1KU&~tm^5x61 zZ0S;Cixw>+&;K1umoCGC1@rOykJB-C{Ii%cu#t3mEADsk#s`e&!n}07Da5nzuDCy) zrfXrF%IEZ+Nsn5wU%o=zK)FDHe&Ee}4}PCgJR`Usv41xfjctZyQyO6DX!U<0SBaFrS;3YxeBl2>3s1@PC2%|2d31Lj5l(5;du-HKvZ%KpG(9 zdwu2M)Wz!`XKYW7K||_m4Vl|Eh>t+M$aU1(en$O$YfyXdN>mE{9Hn!a zOYNA1QoE+0#QL!)zTth8*glpq`E7Xnya%t1BjB-|XJr(Lf8u(j)BXE^#~1Afl%L7O z53a`#BqSu7oWSY>cAW{5Pq6)fc!7+00ZrfMh%=@O-#QCcJU@Z|KiV@O&R}A{v;)4b zo?q1?_wA!DNKMf2e(8fUrw$-J(D(pT6X1?P#s955`HX{1t;ITO{Mz-k!r*@i z=O2H=Pd|OnU1$riaNz=cJ98AiAK3#_22>{|m8W}}Sg)8Zo!^f2(+3pb-Sxh(576To zeD6oZ{wVSUafbrz7h`O9P+KU6Q9Wzno0lu%_i+uebV_3^nbZ_ZCO^pgW|%kPR=jYx zF4LKJtv=!#V1GoRz>F2UJ|DM+&BLt` z3s61mS5yu75;yN2k17G5qq6^}D7K9}eCr5!ZzHz1l5^9%x4#c>Kj!H^VPCJU;Mefs*Ivl8d4{ttZ}8vJ z!v53b0RvmY>)AGNP#38Cd=KvF`ve=8EI|POe#89y5Y3$!ahz9AWNb`i4xh-mw*>lt zc;Y{S{kMtyH%_1>5&!81`|0_8^5R`QgV{V*51ozmqIiIw)9csc1MGZ2wL)t?*sAqe z+JJn3@&PL+5Wdw5p2VM9d*Kf0Z-V$f&a2La5q}X^F@Gz>zxEJmM~BXjj$*H}=?zlP zkj?oS|LwDe)c+sMb9{BixWBGJ0;zRD`9MR3q#QqW8iTEDowa(dzU?=Wxs0dWIyh4GC0`ux#G zFDT~J036i)Z^GDq_3*>c+p%(TL#+6yKK`84h;|2kz+G58sR>q0YD}H5^uGUq>&MgD&- z2fil`iRJ z=R}kXm}0Etu1P4fo3Y;SL-V}3C(iB1C3a3gali2>v5U{`{1D!o-)F8qlDRs41+nV2 zjy{5>d+&{-;I;PMf8PhlhpZ?5e2I`az&;mB@m{!B?Lb%kEYb-t+aW|B z5Jn$h>i=e6h;6R1VT}Gf*Yu z6IABoQp9$-J{kp60Eu$Dit@`0=QfPak(s6L>X0XydF=Tu&x ztCa&>_H)w@sE0_Voj&6Gre>(T-)YKQloRCF2hBdAy@;X@h~O@9v+IL1enGT7)ckks zuzLM`P0qib{m!dRtzVkoT<$&m=Bruw^0S$kGI;{$dk166%bhX)v3drV%EuM=#rMV8 z6~h(tuNC*MK0%*5iMUt(FwE2di{o8>-I3J#J{ou@=Dy3>pQ(3Z!_0fJ{*!xX_haMK zMp!esI^)0a-vleC-p=zvYhy@jN8Te%9JziQR}gL(D-LilG0uaQuf6NJ{~sU!F8;G} z82@nzhgiFs7_%O=gJz<1&_}2oIE~n!j+#+l8cbIRm`Z$4zh)EeU!!(Mlu(?R^(wQ}{* z*?oBjmM1o$5H z^y%v>H`Ja1--SveVqCA=k8C<_3zxV)Aai4 zoIlg&$DCh!pE&i!(Eykq1m;?*BRSgip== zm3)G*FVpMg_IzaG{>}c(5%$m@6vYALBesmOcmi_*`2ukPuQjaSkpmRlsye^4K>C8B zFn+b?t`+|S@4^3L?keE3F2C;x30r^qvykrY5L-b&1xckeA*}On&1BPFK{6+k8@q8$y2Vn0n{deIp&LU*)zsmu@z44mvCpOdh6?|z{awV&UsL>lS>azK^~(2B=Q~e%_V8+XGusZD zzKgXoJ)Nt3o$WTEJE#FDTUmQO|!Y4tQkzx06>#bd~W7XCOb_AmP}v=uKxnn}sv6 zsev24_T&K61JEx(FU>jR^m?y+7ze1jz>hyE4tQ8yuq+2q8+?2YfIgu(fOw}Cpko(9 z8{l)yU04So_NfhX_6|LSU6& zz6<~Syb%A?bojZX{&x|)Kv?vbZ)H99u&a-{8GBH0KG17j-{yfiPdvrKrr!aVXA|)g!NNIh`mamjqqkGBxFPqA; zel=ChPpxkju+KQ1`TiR2``Ew90gt=)uZKoRt&sWt6!i4W>TUte|4EtO2X*|xZ6#n{ zC)w@zmh5$I2b{N%WZSy3&!)D-+cyFJkqbBh|BMBk+TwZS1Gb%H$Ey0W!|F{5S=d09 zeOXt&XlQYL<+K5k7#|s@F&-1_Qi?zQ*nji-*!bt(PYy8Q|B7k;*99m5}?4 zzGLnyinqX7j3Ic|Xf|pADVXoI1AV=r;7()TcSX#*G!34iMZL<2_2B2ld3;+5S^T!_ap)+iuI(h*rGp&AO5NC4 z_HC#y@pg@5r+p(yMlP^#1LA)N<^iPh96&r*PFe&GxJONZ&tnnqtOHg_TqqTh2b5|6tm&8C=kIs_ zaqvHa`#LTHo(Z6*|EaKWYHOI=BcY}G@s0R=~7chs5ed<@?p}L6QDg6~cGZxTz z*Bk(Rm2v~HPEC*+o30ZW`zbsF*ju?C1^$#%TJdN5P&Jxbemcz*TGcos%UZ6tgpyZ)bY6cm-#OyE3!`$F>i3pDn4>xC7 zy=pnIKR}ibd_|V_vcSG<()zGZGvA+wn4kFlJJ?q_0&q`{z-(~IY{U?=pd&8%!a~*$ z{s*w%2H1Z`_BwW!l#T6y@pf|1xxKMmaCK=aNlx{U^8^1b4P~EmONoaDuoKufIG{Z^ zpuHrlCkNo{pq_7(yoXtYOUHGWTX$}!0XDCb2QFW^_&@6jzuNKNon=!OsF0BVA$D^L$0 z{+~e%@Vx2vy-%Be{PD-Zzl#5Xe@9yh^7n^dbrbql zpaCQ%!rPL9I2Y$%yz(4d^j#o_hPO`R-=w2+_PX-lBKFsH z0nG(QozUjZ8WWASSKIQ@b+YXJ2ME`FWTg~40w z3nPEAKf%xljQBv|Kc8ob8=ilq_u+TI`JP;d;rU??5xJlcXZuhSNl7^mmt@Vr*Tr>0O9@)| zw(PcVihaMaWO%fdbkDaW-J=~=dr9-?D2F`TOS*eAa6o-De_81J=Q-hr)$iayBIbFZpD!UUUXqfMQ2*nsul=$M z+J7uGlaP>bv0pJmR(@Sy#r!j{FHb|<&pe-fIrQT(Usw4)u4QBT2i<3FpI=LVKl^)_ zKUgB)pZ_^#0QG4gcB4B<*b?mf8`=T)4JF03wxqf>kwZT1<*;8T$@J}j)m}1j`!F6$ zcW(mxH^J-bN!mtmfop5*|EvvS*|(8+oA$DOeJ6=pQeCEYDR*;F=jviLx%aQmOGeft z{#Q)s`Tqj{(EhiA4+K|*f9>sHOi6DF|Hj1r6=(p=SDDMjZr_S?&?05s)SVUiNW~ zfBJuB-NXN9hX2>F|BplbZ*60Znw5{jKQ(}z@UtXAU}qJ$vq^LFc2!&wcyv#QT~Ptnu~q_A!Q_SBT%AdcXDH=fq_~TM0(K zpXA&@a{W63-^lxc{e#Z6CEcwN?srg+8CTvm?x$|-1P*8cU7#-TUtjh(wnjaWdSE+T z4UbTqZ7W$i__Z57>RU*kX63K0n=z;z@sI!Rnj3CB^xyfv`Tno*4+6N(`MyV>$s9%g zM*OQeF8CaxGXQ?TAMm%^h2E<$34%_W6uw#3ZV52J-EQc4;7&Ua__H<*QxmbQFH*}AN7PMLMBP2rRe_~POmTe zf7ts|X8*qz{yC?H_}_ovfQqSzbN+sbZH*y))f~Xu3K!!r#S`G$QVpO?{BOO2q+;1@>+r2Xs(c;4W~$UZ=O<8Ln9}povAvS2#=Lz^)xqA~KLj z&&$gCpKt*1UkQ7;@*x5L+x7l`@wZ>40DBc@x-y@n_m^kO^8A%h=-R&UV)`S$4GayI zn4kz*fH~H$<=dmj$5CqKKc4=ld4RP5asaVUzYukS2k8N-ZUCR)a|c%_9(WNR!>17M zKaptofJ);5V4rwrPruRu=nr5W5UcVYJkH*M2k`*$kNn|@FyMdX0QCQ&*XI%N@2mEI zoYRTDEe^c^oZZD*ANO_QpI)lJZ~&iUjK%#Q+5qDL#scI3=GaOTpdR=D4$yG`>w^#C z0Aii1EH@Y&Z~}NX$3AbLfbZWp3qrqdzAy3;wM6X|I>tO6aX-)K%%t82??dL{R5jO! z*yr9)pHBjGku9wLWG*`LfGX7wm9i@`C=`&Sdku^r&y?<8qnZ%K9lV|-xW+t}ZEJJY+JWO_D}EYJFi z12VnaONLKp$-tEyzS4_CVJ#4G0Cm6@(0jnTU@7*Y5muom0G?ph0$3BMf||h-8vp1YWdG1Z@z4D~c!E@# z-`nW@W&bbd06bv-_x15rds|f0CfSGFpWc_N*!wR6$Ljoq`*6SoJWm~vJaCm9zwLlsMqTiIZ{~oWNc%o%3JB=j7*~ ze^Q!&Q6DUXhL1TQoCSpapYwcEP}@&Ai1WPR@!gMp2+s1^jlF-%=4c7P9^&TaE~{|1 zxh1eauixvkytjqYsxlIhhBc!tIY4&cfH2jm5IkUamElI>AXvb`GMc5CDaol0M$ zIKv0}pnFrq0LTFx>O%i(EIa87f)=oSU0X?j7T`F(R!PsMIDZ&@fzbhu;lQ2F11xa+ zKk5m-di7E{>Fx$yiArY zUoLibcIdlA?>vpE5+252+^W`ZMNd z505dgi~BX>{WVzh^{Bo4F=KyfeXQ+sab`cgJ+rz$BMbUA6W=-QWQ$#QIpF!RWcxG* zZW~CpYfZ@k2ORe81l(h9N1R^}*jA2*wvl7OZ6w>TwG{YPm*Rlhax}1=Wch(35Cc#j z%*5A_2h!Xc3-|wBb`4QOXaFs+jqI>SE`WGo?EOBXpnS+3!;b_g>VckfCNZ^UMc7A=x_^X8%NVx_EE zvqn~~S|zJjTZyy%dI|FL6<6c{gX1xG>j*smSheyE&#%Vwqh7iHYrONy{r^F}Ao_ux zIk+5s!b=oKJcStGo?ZZQ0QY@dRX?x^&yQ65+iZA+$rDdNH>iSqp|Z_TZ~*503^dIE zxTpSSBRc-yhdqxqRBESXv9IF*Ud=IOep~5-}%Y1E}|tBZzZ714937zQ*Vmq$kLj53G9qp!ads59fNYp2s~TAs*g7;GX@w z{`lOuxNa018yl7HFCF-r*nDXrEBhPX9@h5h!Kc3exbeRE>-qKc^HS%dhCuJoBEpkGSy~1#oPjkujsEa)walT(mDGY9V&s7xMObWc~NFMS5z9yR- zV9FP?CXnh5P0+rX99Ulqb%2KO2DMhYV%VZK@D|sU&+1v+u%10ccE|XY;y>JN)xQ=0 zXwJc2f4vIMc&G|(sVX@J5Pt$I5_$hoJ#KG5H2JQ03j1On2b`*8Jzkz>Z zpNo4xbAS2=%i^E;e%Zy|V#Wb{oH`(Le_abySLFS~KKK0!*u$y)Rl#l60{Pe@FTS2U zf*7Jo!d!VGYO0i*_nBCH-a=^s6~1{F@j!d{{|)~y{r{e*U(^480@xu&Rqqrz;66NX zPdxyj zl~_)~zCZXCu^DKA{GM8z(Z5T~GS>gQ@jf{~)%St_#l2ZO;Oy@5IJ@^1%;tPUg66f5 z$hCbW+2bQ%w}oW+v;_X&Ld=gn+^dD;dexMpe$}NYsJRq{v{U>3v7onb|6_H(Fa)tc zU~@U*Q&$SS>dUd9wvrpbd_il1&W<<(p^*%1 zTjj<#@4hZ``nB{YF8SZo&l>()@Q+xY`F)jh=gwBTcI~oh?%?e%moNWeiy0DY(c<^Z zdA-0vY85=X{#O%Pe=Xpiv3@n|_jQlCNF6NRCZih44B=x&f6#LE*t3WWxTpzG6XYy_XZ9HRKxOCw^aWEFc;uCA zswpt9K#x(C^kwn{jqV~TjG6G(<6y@dNzRA4* zGH|QB9%Ie;-g zv97fNasZd|1Rx$@t)ISq;$CT&`1!0`a{dp`2B6-5>?qCzLT^94P5S)r^mLrz2fZ(O z|2|2?{?9r{fWM!(qc?J;)mm9LZGhN)`>Lw(E$YcUzlzf5*n>m-a_?qOj`@E6D7VQO zjQJO^9|-Zp(mv(k6|8{T!9T_N+a}^O_dVHa(-r&vJ1UmX_C>7k-BRWIc>(PuKcKA~ z31}|I{OiauaKN#^W>OT|T26#@Ko0OOuns;5YAwZh>?k-O)4jeN@opfwer+WKnAddy z<^`$n2<>rfAxSpy39f!qwy&*^x`*(r~vOrg^L$|SKkBK{F9LLK01E z=1-@xFo!Zj4g^mT_i@jP*Z8WE=!lre{|oV0F+j$S87Y${&yd-3=E#Ei^JMnyIWlMN zTv@(ixvXEgNLINxNS|#U@*?~{uNNTy2cC7zuQfe=pV#UIj-~5O?Dy4K@5{t&ki*aq za%|;Q_69>s_y_j&m%ssBFCSi~>H*cL3!2uO;E0!@|5Nkhr=hR)%;}Tphc$X*RPN8cpV+?-{>caA0FC#uSL%Muzxf*W4d{4)=P*-?S9JnB zuj>S?(=i8N98ebj<{Y5+f6W7>`9ETRRqsQ6PjeM{fc`}CgO2^#2x7 zKM?=S^^N)d6=YfO@|eE^?2md!B367TaZaB~qU(o}T zA+3S;j)?1lZ@-#S7*GqiZz(4uJIJZXR_Zl{!JY7YCpn6JKgS>OgL_@9MygJ5*oVF# z)DD?q?8~XVotRhD9z9BL zO5nUE5)=KYPwxwVaksl6iJ( zqp?0 zgSRUoj;M5iXZZG%SBLeGvFoiRCN@@1qQ{T>B=>CMnDP4kVt<^{+i>g5&&Y%uRyimDVZ@+9@ zKn_^w@Sv~D^c1Duw2N>D2$s>6I0N-+0 zm9Ad8R0*G#%Fu~Rc?0pk13m{g;N3ZS3Aj( zD?r+P=Pz%c4VEsyM9RnKBXHfMR@YynZJtgM|`g?xHKKv_i3hXOf6aUokc;(WM zKjf5G|mSP@cS^YV4XmDhL{(C14{dfO}W5>Il!1XO5d=?Kl1{5zgTl5AMxi9 z|ExRkIpY5qdiV?QZ&f}Y_(fPJPDxFbq(q+Au^sdJfqnSI{QUf69e8o}#KGc%%SvHJ%3hPO6{Ps=RFy%eW z;O{HZHoYVnpXF@-&dB#0W3O&1c^-8nXJbvt_i2iFz617j1s8NeEwDNK0muW852zdf{$TbBsGcFj0PGP? zKpYT{*#X;EzJXZ+&BU_L8zr4zwkVm}x262XLkmqa!mr-CRf^?%?f-aPMJ)9i>?^8= z2j`zQ!|gEiU<9DItoYJJ#F4-KavSk&J@=0&t+7DO_0=7e>Gw{vz{!d}@!O!9H z5pe#=uTg4s1;%^)9wT2|+9tg&Zk3*YY`$xC|1DbH`!Njo4_4pnZSugGAZZH@XnDd* zTHGU+I_WCp`{($gtc{nNze&EDIB41I`BZ!+C+8r&1*NT$Y6W zk|+CqESB`50@;5wOMU|GFJ1UUE@plVU4E6%K zV$uazJ5>1q_G{I{gX-V;3segzwc!%z6bu?AJDhVS;1V& z<4dg{*yk+YjI>lqh0if@&u(Bp8h&0M@$qsK#{Baq4+17%7B66bWnawH!kkXd*5qET zJiTUkH$3{4luwT_f#&P!LxAV7c5;H4j{pa# zg}6Vwxtt6^91vJjX@VysT7d&P1N$GUJfH}10yV)S0rS zk8!{M{NtyWFI`+iem;kI?egV|D!;#Z{mS)IxjR*yzdvNQ_|2>>!E@_K)QTqPOTz3D zn-=I#Y$3a>+sN*9&1CnQhL~;ANcOC646UN61k7(J!HZDC@OV#h0zVg4@3Ct$z!X_kRbj&qYYrpEt=D7q?4Jwx?*W|OwSJAp8G6yu^TKBN@W*iJbUHxZ2JYYa9x=eV5NZCsuhcu?CJjz{ zNaOFk@ zFWvj`Z~5^@`h1V0w+EX4QOxm#=9df2FAH_Pj5Or@&^(fG9^ZE4`wfVik|7L3c zXN~U|WB9=O$o1cZ*4GHwZ;L&?y&3*n$%#$xA|7~4PKDHwBIp6d!A+qDc19lX0pkC+ zRNQbB*W5t-9G_OIUw|F}?*9jzJDTv1*&x7wygl^4Rp5ZdZ;IEXS~B6ir*02L9l*hA zfrJGIen9*?uU~dg`~&aw?r8jXM;-q*Isf7x7jIp;di~DT>o;%Qyd~FvJO9(23%~y= zKNP1)^x7^GFbgsM;&u|d=3V#@JE12DeaiM7@P0ZVEMd>ZJ*73y6zO=xOFA6!l=q7Kq}!P=>3c3l98T_& zu;Ns4D@u}p6R9{~>#XGbf;siSo)@`@S%!b$JOeCVZ(jg@E)bg+<=O?zI|BAE{cd>o zeh0RHMg8PATz|vw`FAW`r~AY78nwUUZ}S(tKj<;d7x&?UvK&A@;A6x*wFc^g+@pzk z>J41vfGfDq_gCs0G~r*z0Y9EYuORTR&l*tJ$M;j3C9dQo{+u(I;lq8O_|MHbq-OXk z>|=HZXPg{3uurz{*pB}FaA=?b=z~IifAU~)fYukF@_nP1hx+W?x0I8B|f> zpZlx;^HD;=G`x)!{#`a;sO1XJmArj^bgrSowiL0r#u{0RKuG zz;zsbJN(j_7?O;&L@QjX+38Xw3P#< z_p~3{M2c&B9cC9;HIQwqFv}DikmLO}es^EUnpp#6F!X@2 z<0s0@8PjCy)Tyd2xOUk}8IbHL?XO13XTNQ*D58fQ|)}KY)+p_oC{Rcr7`A zoWgn``~Era_ecT!{h5gOvEQem#;0a@Li3|XJOX`ueyH=UUvDjz69$V5Vt!x5{LA_p z-X7-tjOjJ@8P5~%&ciB*->7mb=cg9H%y6gJ9&HEOJcni$#&Nf$nQTAAIlaJvY@4GT?5~-eOuHWJIj98 zj}Z%fDB12EB;Osi3%7QX?S`7CXD9SEbd)TtY+f<%Bn8~C-@cV3k^_MMnC0~(7T3cb zoe|^o0tfV$Aw!19x1+|%oY^yF0cr!wX3mwV%NNMl0DBpGI9xuz94jARk5%zNSKRJ; zC00JV8Y>@~*8A6D78PECSEMRifNy)*=&ytiQIZ^~4%J)SlarX3g^2@0ou7M3qSrWe;}6S*|e%wj?X)D-CuqK7hwO^OX>H(0I$TIit9D@fr)=R2k?6n z`v$KYenI{m{A}}8Ru3qPf8tfw0H_lX_tXc;RlLpkfd3x8=I5W_6*z0E5dh=l0@Z(j z=gE2WEYeGG0@zn){+ed`5dVkZZ%76H_wC*-TeogeJ-q(FKJ)##(D_|Py(AuA1N(h= zE=Ogh`4Riv#~J4n``r6ou-7xkXKyZZ0G;oX7nldE8BjsR`^3ESD0ucKK8tx8b%6V3 znA6kT*z+gVmB6L&^f``}-5!I1{Q;8Z2^_lNGfPjuTYdEK)y8MNI&%F6z^j2>>V3uV z_)zO(-d}_`;5hR9Q(+BF96;>1kQ0dik4Jri+a0l>{e?D=`1;sKz1MXWEsU%nz|^5aSpy=RH<{BGhttEqTQt|nm%aX!J? zcd_1*Z8jfbCgHns5Ot3f_a1mph=;sU|MYoZ@_av#W4`Y~vqWzLdBDA+6nJ!krwKl0 z+)hQDun+mbZg9Xpn`W|UX??{3+1~7Z0tZ<3m!aT*(PJmT6EIt5FM=jGb*8MGK1XJ` z+DVVJFysVLGU7<23@M0^!FgdaArt)qhd0Tz%uO=qP^8RG50_b4o5VV8vjp$mE`j^w zBqTXr0uIJYbYi@uZROe}hvSnZch3RIOG=hw$!U_0*)h4uJC7X7l)~&BIi8Q+bIhK| z#|)`s=s!P(Syji7s}`L)At$~&EhkaSI)&?LT)#&gVC1{t1bnuYK86}8aZ?sc`abcZ zFo@SEA1|@0<8@;8@9y>HU#Gtxul%0+zW&*!>%H^<{XTi6F2Jk8H+YR4z{hkxz_^kA z0rfgOr#R3Q2mFrv)Gbu60lo+If1dHfxW82E&!*3Z{rqX_jNaIoSf%m%`FMyG>Ol)8 z4@AuWns^Sk5Sy_TgskWyTbzf;F28YdFyKqn zuA#rXHIPG?;gO9zKa0IP(EJO$-;_eXH{@7A6SZ&C&%?U^=}pZ0+o{@LQ6R7#L=He4 zptXR=PRIj30QM0Bur?6Z0(xLQ_=M_9K>%_J*899owSV>lc%$}@n0hZ}2ys^E9>=B< zXV0?&a83Zu4dFSVjH$P*tdBhA75TJL#oHr#U`D|Bo-2s;8H3+1$Hm+FKWO|4|F^DR zoqYY~Z8?AGa>=Qjm^)h?#v=adEWR^aO0?B`vT4-^61@`h2W{Vx?G8O<|HjWG)x8V$ z{w|W@(G_}rcgYIsA$eG=UmQVPpYPcjT4*PDn%gTr$Y&e?4oGpq+(U;}Dksk_=pk-C{^IQw zAikb{vdP0wqP+rTn?Gh{heS$DM5Jul6fHaOd5VwSB5~MLb|h?-xLt9Qfb*dCB<_{O z14*)Hf07))S@CHZI4}B82Kr17Np>z~%;Z3iLf>gVYEnF}j`6DYuWO&1_P8*f<>DEe zs)q(Rp?{WGF~^d=t@r;@4j?v(UCjgLIR3l0%kKO9KKwc492544u;?Y?bHqQf&z#`YDbD{yoge3WQ}4^6)}N7qnFjmStS+9z z%bu_`Rx4%kv@fwAS5sP_)qu*_&nshJuXvZ2pY=S(0d~mux!-#O{~N!?9*@_Bj)On{ z%ZlPS^a=4Dg|Acfyl2E?;tS$8^+oZXT3sAQw->)z&BbR%V`%&zNZ`7m60>oF?DQHb zDcF||<1?J>Tt^OhHHPL7>;v~)to!HrHN>9xnjH0c4f#Jj{;2yM57TkJ83zP4L@rQW zPO4l$$N#N>f7AxT=>_bJyq_K+vYzMSbXk^$|b31D^XrRwEY}Ja`B+LBs*z z0D6Sy!Xr3u?i?(5g)A*);erKXXKRbk$wth2a2Hox-Ea*E43t33dFC95=%^?)^F2By zM#Yot7vb6&hn0Y{A$ILno)Y>>*jJO9asZ#h6xC;%gZ)UIDT`VZXHK#<#TiCMUuqF_ z>yxT(t?S$R`UCLK7(nO258?n~tQ3F5BrtLp2N1u17yIU4M+}<(tOwkF5C@oZ0(niv zIm9{MJ7a;n-YfqtX8$I}0GvB?64>WF&pd^FoMmXjKD~YHZKSV{eY{S#Yf;}HgxLHQ zh2a(btEe2mv|fi;U&s8bulOZSn~&KJsvzrzJPDuBv(WY!@4qBo z6JHd+>2JcD)(UZd8}XUmMEn-LE52)nNv!J_&tPK!GAgY9hILS`0s_YdhT4gaur72>sQa8IxMLX3sCRu zE&lku#6b5a{!`t%;=Oc%7a7?1@22pd8Q2Xzhfm~$#(u~r_%{*%UBCtCaR~ev+=#wM z%st3;drN5pxo*g%pcN*gpE(ip3^#)Vs0|kQylrs6%zjD}9D}-m<*XSp4VvJ5c!cKD zFKjtm=0YD>gdQSW8-oMf-~)Ga=W<6MaezAKB?vsgbKN&ZMxuTkt32cMjgtcs;3=Y7&S@>4zZ`b%|ZwqVQ z^vH6l8W}$KJj==)Kl=7vaR6~i-0*6Kox5;lj_b#{tvP_-_W}6la}U!4^m{kw0BU@^ z&;6eHfYLSj{upoYd*a_kk3Z*nD7`N`3$r{p$0G&vj1MTSkDMLk?<02W*WpaA!Qwyp zCGi_+fxMo6oJyr}J~@Dk8b0+ux39~W=KIwA?2+R$&-Wft9{s+k`wf3e97a43tq=SD zgcp(PJ1>IVD+??E4% z#R1@f;BKgaAU;5CvoHucp%3B#=mXRQa-kEZyLOOd^fT|X0S7FrkG_V6=!XUe1oVX- zFhGVP4j2JVaOTWuGJVDj)hjT6!F*ijh$T2+;i83NYiA2DxT`oiZBX%mF;B!_VLuS@ zfaU<6_s*DrT(D#N7KsN3aF!0^0QQu!uY~ht*k{6Xwhp1^M9tYhgjfKd*L=hQ>`CKX zX`Z*i&oa-rWISum0V*dz9Kg>z;{a73H*tWDn>B`b{R;;WpX7nEd+Ouh{a&x-_v7OC zz7G!&`&>$!#8qpS=I_`1Hurwwp7`giapwL?8({2W(g<1SB>p-3i80hs^!Vi-W{n@- zKJ@Z!#Y{u``snLjha7LwlrP0|0(|4ZzBTZ>yk8ZyuPfYRPuF#QSH$>Uz&Q0jN9_L_ zkn5}K@QUIGo!@^9G{9j`i5;--GWr>OPwe?K>mk=~4Nqzt_|bs<*&W1p;rrshW{`^c z4+M^ttl)v@zj+t?6YA7hhrOC9Z(p8U4S4bzL6>U*>^DZd-a`3z3WE{%!|QW2u&MI* zpFpmEGOUS_>#JCR7&qd8Q=2*h6OB!pU}N}$z!NI}Zw1W{*!PF#2dyugF$TOp>Fy0N zH?)alxEW^x>_olII1}V8^Z+3K$N7L!i)sM-4P{QBdV-nYH$JZW;++^jJNe_+AKVe+ z*VCBC?Z4ok&!O&LdWQI&J0**6T)+Cu_3O9f+KrN%7rxIZITU3nvFp1?^!iUF*7ghN z{=mFf4@vXs1N`??F~E_)E(+(xp`YU4$9k+2k_jtP4JLJZ`vf}fh}7$<8!weF(>9}A{R(tEP$TU z#NFTk!~!YcfHY_V>1p5rXabB=$pN{!m_>nDfM?P0>>aHMkOxkmHs;`KZ9wY*?03^~ zfZiv~F?3H3;J$e;4F4;SX+9w~P5W}$Sb$t)j(^^MSWZB^t9fF;KlzTDpPoa^xL@mw z^!uDXeF_>1&Me2dB|N8xzyHwSAPMyI61RW@mp=g{3)U1B`@-8^z40rIvZwhZm5Y`e`6K%=U_&U^7o^kKhF<(e-QAGzP&>9 z>=hFC@cFaP=VVwjITie-oD9MWYYN;m7clq#Al^r>UorH6<3Tl$Gq4wcwF2-5Y6r%Q zAmqt@==TBdP&Wlcwk0|!LTei3I4Rg)fdtKR&iUIke& z=8M}`E??yQy#~a$&hvTue*dBVR~}2v4MXq#oSQdp(Eoi0WdXT-9$HPpD%ouNnZ#Q6 zkVKd6lH&F;Y5?6O-LJ1?1bi+>g5X;S`BVx*`+yg*=l=!&1{WMhUO=s&z^gOj8{`Dg z1ahGdq#zDB2o6ZHh90oIKF&RD04)TXAUI&P$saHd{(vdqfEkDbs0VP(hi}*tIl6vt0P}$}rhGtY0^BFDN75^B zFAlg1kKCvK6}*@IT41?UW8icA{(P*=BIdd8^ZoHT^ZRArv%ar#0aFfO{(b2a;yh0- z#y&rzf02H`_kQ9# zbX+;{fzC$_U?Y6GA!9An{gAOnecul8f56y^vH|(NJNA8lOPrlIx0M9UZVC=)E`f6p z^Ur@*VSn?+vFKNwDESe?Fo)}1 z2wlH0sD%;#qh@~su|50xPKLKYpAWRY;A*(t%!mU@YyT!a0JXtm0ft9NaR71%?*FX! zkpnpU=a5$$@DS$xu-D(VK6?GoN9RE7L-!~C*LDV%wUAWz^}N&_YEH-fa9{Ru%@rjj(id@oV0=G(#3eVb{E8XOJIMi`t2iLh^>gR| zA1OUB&94t|-(LzsK1VFjLym;?2FGE)XD$$A9s~S&y9kfd?{LJA`2f6*;DA(czyag} z)C0DzYJk25)L8wYHTZr7e?VWQ2~rQ3F?}jLLetd#&p3cQz+S?I$P35;j02pI3lRU* z2F*EuJP-sQKm&;z*QcTgAHuIB3|A}2VIgt`DYfZ7z#ls|MR9XTuF0Hq0H z9xdVkBOlP`SQ;E~651eFsV0E_7JlY+e;j+~RE+?5(D*UGa=*L_lVx%IuiWRp&)8pc zi@smxXYxJh_oViBQ;e@4yVtcek1=t}MR=d+k7BNL^5hA1mJsWtJWnJWwUxxZdyt34 ziMywd^7i;n{D%aNwlMa2`tyKo;(I0ZJ;nh3*wcC4fLPxTUOqm@I$s3h0BQhyJ@vkg zBjD>nea~mo3()$Y^UtaeoU{Z7VBepEy7RIQ;r;Ebk?S8uJbnZ*e{o=A;Ffw{HKqF%A_gcz?5}ftBj?BcaP;_+1A@Q- zj04CECJs1-c>j1fd_IgHu>TkORfF~oUje*DdfpE;|3hBLjh%TGaAVnznI8vmP9SUl z#D6@_1l+v5t}N;Qw7grZyuAHSi!1gEM#=u2TOu{4XN((j&v;)yf3K^VC#Vv*;7eG7 ze`U+ht=qRRUp$ZVn-kZ;5A``_8-F5+8=(gx4oGqDCh5L?Bqx|W&=dIYD@Q|nOHue| zay$YW0I+^MqC2!v+=dodj99_Y1fUJV=X?Y+(DK~dBNyl>>GTbnIA9ArLOk;<&ktV6 z0K@?^4Uf>sG2_G%dcd@4#v=CT&NXHUEMBxgtX8cQ8`K6iY%n;0dVnYL0nQnw7C=5A z{$qiE<^t3Nxwat><(aWN83*h_9DusOeiH{AgddeX_=nQd)LGNi1lgyOo0E-x)qM1> zkprL&qEDB(z)9f$FPZ>8_pE=F)djU5$UM%zivx&N9lQT4*wQYZq z>|d8un^z^p`W4A^!R$VtCdl`jBi~1TAAUZ@{k$FvsEha%-XGNK8PETz`7_ry#r!%B zU@j2aM7`$JCc_h;Jbuvni{TZ>hmM%#iJpH?a1HkTEI;4?u`%~Uo)5U&p*8yE;QL!w z9cKZ*DKV>?XNlI4FB)0g>ikNj8#eRD$-cO7mrK`;bHHxhzFPjw=@UxZzZcFQ z^cXlm=>d!duq^M~x$(ozTX*E&51m~bKw~a(08&O`6%On`1l>*0dN3j%kNLZtl7jQHG9V3 zfOMq?FdxXtLOcLXARivqV>qLR9KiE<=@XzfKn|cDpt*pW0P6!h^FnI^jGc)sE^>g5 zz5gQ|plgcU_kq#7;tc%kviBMLmudibz25h=?#K78Ya6BKIpg0!4S-xnja2pWAI^Zc zZ=dXmk5j+rD4b=s(JNHkR*jcUmaj21H9i;Mf5Whf;xgh%71Q&z z^zkz055#TvQB}libY%&}ec!QFpz}Q|-cw!{zZtbvz8|!(t%SnE7P1hU-_ouUwC-Dp z^PM4wV`c&S(E9>=0BiLS^Vh+dJD9s+|Egr#y&^fz)uB_>gXWJt8nJp2`u2(aLc{=t zK~13bqtB1IKp^XWjQxRoGrdoFecrDLt&mHK1Emlf?t-$|p4|-{{%&S+Six=+6Fx zn9yJUxY?Mv-W%)tVwP&BB2XLK^KfdZ6Fr40oI|ZOYPXP1GA;62kgRv zR{*iVLG+}sH-+a)W*o{;^}$@sr6&h)ZUxV);#pN%6VUn~>x9e)$OT*~9{?99O#r#E z)&%a_V}ZT@2nXmmKI4}k<^^Yj84{HG@5ChTUOZ;bK zq{^PS%@P$BsJwm74)(HU-e~ws>q-bPys{s>J@EIeLyoWK@&^Iq#JwH*_QHVeVC?n& zc#Mnq*SCZ4xYGN^!22^9`@X_HwZ2y3k9N=DRl$=@k61wI0nL=&f6O2L-oRE$FDS-L0BVLj7l1y$Z1{b$@blQ`lkCzG@1+CgdqV4T zjVhI_o`Si9d*YJM{`kwQ#P9B{5o+$2IhOyG z+rYlk1abY^&;ytYl-#*~>6{cDa95gO^!gs)fF7zQK>Vls_mjL3a6ot;!~uN_4nQ1m zBAOgv;Qx3uIDq*8asyo_AO{@veNWW~=@}visJZ|+VB5+DvK1bIqap93HrPki1$58Q zjOo)52i(m8YPJxx0V^vj=~f0O|oI4q$CSa{zgOXKlq%6M#0z zInz9MkM%)n0$k}PO@Lkj`q#BCn4h1A&;6g806Bp9fL^*jKtA}3CIAgh#{qh;y=zY< zPBni2omb`;_t^i?UDe%*>Z0d=h7MR#v$@V}8Z}x;KydUhtSd@lMSDbs^@5F5o++vUmaeK{K)DAm*Rb zQfYn6_am0I7k}*g{%gOMT>-NtJ!*>N#vtYo{8aVU@_ZeY^JC6_+D2%8?wG}km4ljp zo+oE_a*qezx$mp}pSKYQV7^CTa4S{wSG9i=2mF}}&U<;u;=KS|MkazHQHwEAPrLF*|Qs0*fp z1IPop&;ts|0f+~Vgnc0=H+>;zWBSOM=-!G4iZ&qzP?`X90q}tG4Ryuu8@&XG0df%w zq#+kL;E28I6!m2DsX_UwY4}o zIw*gT2lN2yfJdrcgG8ewWGb-^^{ z7h)X1v*&rv0aw1N6Bej^z?f}UtnvbL{8J0#Vm_dBLB!0ej}Y1*V{4UP16TjiI6(6V zIe?2CQ-%x5?*A(8$9p6PsM&$YC)nphji0`U!lFXczMp|v-Ep!R^%i>jY@FO>x#c+7 zjCnCC=Er`&8v8zV{uR*n9fnZbE3dpe)bfIW|3Iw2;+~I{7w-K&W2<7{e*v@RpdZd@ zp!9vtoC`$W9|^6`XVJ$>>r3!M%)e=-6ecW|>@dvlv9AR$ZB6X|^{@xC-rh*f@8O=G z4XkST|*PpdN*8RAjV+9}=p#Mk50VWTi+UHeIALe|51CIGu zmm^*{`wMe{^_idS?MX*(k*a~Yw837F{utXjvfs9e?Ap*#_G~~NytJCE8S)S5*S!3l z4_>#pX18Fx?2C`|K!@(L)h#T_ef+vbx#Zp3|5m>LFpdD$wH{Cvx5r`b-w%uh@ZXi2 zSALeGiOv$|I!M(9cRQgb==~}1k6Zx$NpgUS1CR?8hW7&p^pR6hJ>@jkci;lvR{8)n z0ptV6P4U1{XnxEE*js35f^8+yu8qX3!WpP`sFehNfS=JD9?_vPVBps>Vf8a-=W1vJ#igD>tqG_) z0XTrV06E|n#LkSVRbCA&sw=Rib8&@DVw70b*!_22%{jodx0}}h_1<4P&x2Y57P)}? zKF{vR&&x)9gmWK|KN0)k*!x{=?Zs)%Uitps-B@lBagXh#iyx&X$7qo>B9y$M_w&J^_i$pq%lHCE8 z$oCh@u^sc}Nc1qos_03#uZCF_Ja4-Ju-{Pfyn%mj^!LEyci0=6UqCbLOYrw|o)7%} zoZnjre3yFu0;vgt6NrDt0RiL+)CB_TDLtSVb$$AIIp3H2eKGp_^8HZLa)Yk0k+TA+ z_o3F0vq5+ zi1fmE7**fj85>f0&(?^4Dc^qt4ycS;fchE0{nC<>JHIOi5V?Kx@{c9QQ#@q1=P+mj zUqG+u3J&Vx0`)&*1?08PL=4qz_8`XIeRoKum8Tp%MI zb1O0qfeWAuW*WL6Ie@Xi5%dsI7bxo)DjN&1e}MBaRV={$6)`}mX9$>QJWv`75O;dd z{&(V^-%E1YRgk95S_*&Ayi-ZX0c zneg}J_%?;MZ>IPA)dB~+4t&GsuVR1f|Ih%b3l;{U2Y~SaVgb(iR<9-N`E+YvQB>sAuCrh!Dxds!CrZUAr3 zlQ(-cttzXh_Pdk3d&jQxzh16G%w?+fhrQ;XOyR=VJ)CS3qm@WAm%cn5;P z1Hs);7l0msIKc1+;7nAO?OO@K1k_6ZAb|{{AukJz{^A?^ja!e&9^x`-ms}k?->yj)>)N zp%1RJs_zG{|3*?H7fN>Q0^omv93l3-aHgg!W>mQ}g|8NSJ?i?o^xCVOzc%(7)Zx(E zcPs$4{!+c4nm_b@QylQ89zg8#Tp#TJDh@E?02K#-1IP=&{t=w{Wq5m__4~Glx1b4h zKIjhA`<$WoxpV~fIoE^rerWy<%=a6K74!X86{Tw}iyLca43vY3@u|>~Ro^c5{ZilV zzXRWo@;yu(png7Xe}M%KP`SfO8O! zg?uP`J-?KxW55BZ4UV5M9v(p>7a;z1E}-iI)CAc(Xb&E6aDXPDd_o?m6S@h{j@H_s zIR{V^V13Z=3b20wov^x=z3v0lfmMhX5SFIXld+wFam0r|?fK{wFv<@A3Hl6uQ$=7Rt+2ge-Hircj^5`-A~p0kP9#l zPMBg#8RPZs>fw z9ot~OMUUOASVd^0N}qkqAylI zIkl;ODF-kvI33kXilU$euvQR>Jb-mVXadv&=n>+4p>*)~0Vnhe*tWts%iv3UcqzdZ z`#p!qxZ%C!%dZB@xUpkpB6y%I{>cUO46cG6Kz{(wA9Zwe6jvvEmvvJ6 zKCvI+Fk1Ep&y?KF^W^AWdnwp5QRUbB9c$wX4Ek}k0Uj}92iT{-hkJejdijal0L5vAI&hvt&Khd@(ynQufuU#W}`&uHe<&3TN=u50G-*&28@>PeIF(-Gp?AjLYgvqcq ziOJYNmkLQcxBW-7zWZUm?Bl?_)&wiy_B`kT=a3EXziT(I{(SRn{+5!I@Hw)>u@CwM zdPuU*07>=#3LMZ!d4!IHegVHQ_WFq4ayItQoPe>wDdYuQC!#;Y^Ck{JK0tqfnlI$l z8D6cns13G~Bxr(BD_UbNN(VU+idk)TeP!~ueWg#ouVm!NQL1m48sI!rzmWC|Qxjwy zV2e0_%fZ%KTpjI{F2H!e+uKL^gmo;yTp$YjSq$?5^V-1nEvEV)`v?&Spgy=y=>kbg z7v#BBnZO0lvC=(6>O5Q42M`AwJ<5JU<^)DE; zTjd4B@}pp%uizUgXpKp@_^ol zGkOl2@Xt8lF!cXC^zs)eeAhs(|EkL6Rc^2Gt!jYO{NMrhrygLc3$PD>aRBoFB5DCx zdH&>=mf(^a(EDquSwR`-=gIJFjTp8CKEJIH|98T^508s&LrGd+4O(A4%+1H#&Z)I! zcApyZ-m4ZjdpCVajvvV;uKEuukYx#az%$L27_f!!}=K_nA9$-oaZeKZD@>}ul zlKh>vve$P6a`eG+z-JJ00q6nf89EZy4_aV9DMB1@CaOjBUN**{d||AEQ{IBS%%h7+;>N3X^#MC1eKVm?Ri(MQH34j43es7#zVS;hZa1K^d* zID^#i2QUV(vqvsqyI$#o+Aru0J%GIefzSnYeUQCFT+{C z0#aheM76E2dqad04@L@xMH3FJp$wc-9x1Ffe_>c$}b2_z~~_|W{N1E5PUA? zbA^mvV$2odY$5a!Dh@zCkVj1*)7&$p;{e72oHcer=>pUSRDBR$A#wn{0^|VY9VQoW z#sED-z@s@2l;W8C`J>=pzlQt1i9_`FqvpUx?DIKZIm_!uyccSlJ6Ye4*(9OR`jp3V z#W%8b{woqS4ZV28K0G~M-x{@i_T`)J^Qy)V>_<;QJb=0%wSV*H1K{TmoKQuAEnmVJ zGcTfVw?2HlO%UrhLB8J^v0rD@_dkN4pIYAn$%>jSNA}pu@uan=^L?YV=R^KI;Pqh+ z`Z4x=Xz<9xbK&vhx!l>v&5e1xoZ*4JoBKF?xrIT{0O{|?JT8L+H1^G}j00F3WL*H~ z`yvj=^W#|n@Di|pUug^2^Szo#ikcbxlB7A;mPF@P(D>->G4g%J{F|*hVBfEc^UEs9 z@XpUl`)4e!t)9}CSo#gC2JwC6(nW={|0UM%^|SH*^bC=I;&vzG0<94XB;z*!yLjXB z&r*EAMG{;wKg0z(K*U%{4;v@h5hEpk6L=tED14a1WK+O|CERdi$ zz|aNRLv&yte8UIPLr6^^Jw<5()X13^u$R!>GgP2zh2(%D=mO}sLS8@)(76D)fO{^_ z(q=D#suO|(G)B!mL&PcfX%*9Jd_U-Fj(zO+>U+|gOh1AN|NNf6{)X9K=YLYU3$?y& zTVlmOFj)QGJgvTw-OJvPs2Qm34XY|EzI;k-zkUXJenpdC-@rF<&mKNvK629C*Pt=w z@ff^4*!u$}J}JR7Uy#t*@Cq(r4{s9*n%`QYRw3VC`7X4+kCE?>l>H%=k`*&wP8@WX zV>_2iK0Z%J5o5CUoFDQ9Zuf>4rKcS7gO(KZ5&G?r`+Fib_pOE6dCTeg~dgerIv`_e$Ig9zNy9>u=GF8 z`Sts_*A?##xj>1k4f6RCx!vQ=?VHJBhyph*oiDoc^YML>vkP7!x8bM}jF!xZG2ntR z=)HswJ7$y|j~y;&V!x6fHlsesg*bqV`2gbq`UHxif&ERW4=N7$1bWQ}@Mv;|2+l=9 z?KBSFplGYsvLE_DQA8Kny>TdNg9ByYAj2OpapFYy1SXXFgmfG*A8`OVz-Ij#S+{PT z(gc()$ld|Q0pJ1F2Iv{2XDA3U05t(>gY*k97oc~T*KOc{_&9ons0;qtL&US|Q&Z79 zfVmeL>>mIJ&@+^aUc&sGtWwXA;TK>&z&fEZXNa@Ls10h*5a$YfXW{_eN2Fo_U{z}Z zDkcDqOEm$;0*v#^asVGQ<@@9d?e9^wK5~o6lgxNP&G|qNKefw!`*y(_6$_m|3L2`D zY+N=-;+EkIxLG_y3p(FdRaJkk*O;o9#l!i0(C&fx0AN3KJQh4anEs^uTrF?xM@b^U84U?ph1(Lsgl@ur0$+^QW zQWOVoe`rr=N1wub)(?7ff7G0qZ$fhlM?Q%h@>sx!=;uYYrFtK@;0Wga=Akz*&j&R`cnESZv+FQ?gom)m0f(UVrESC+KCbYt zz}LSYdf%=!)!^x^1D{M&%<*k2He>3`^ls0|SB)(0bbis|hV#-%a^`pz_fK_x*Kg;~ zmM6aMg}eVxkKsL13#3O-^&sHd6LG+)k~_EM&TVy;$ejznoRx#IcCtTUw4?-%khBQ+ zuwy65G4x^-ZXGYjw|*nvZ5<+~w+@x>V~KksH=t+uB>ITBs0*@QSPZ?d7=O#c0O|pV z1E2@&M?SC%T40n_8=RBW9&tnuiLw4dCVtaf`hPi4zWH{9j2JOW#=|qrJb-77C=Os8 zuy7%Kf~%A+Xl-q6=zmYOi)(AOU?9d@&wonfAGwm5-OifLIo+0)Vkpr|Yc&}JM#Q}%~ ze&*8o0P}TVnu~ijIiQpWH2#TuF7krudA?TR9JxL5&wZcw$qBqtb11?Lul-4T5bwlF zL}ZN0_r0vXmV~7>B*79ryr}D~`m!qeaV^xG4r+J)z&&gHto3t72jl%%bq!VzyoO#Q9;0s;_pxw$#ylu) z6P^O&e^Pv$Ul#YNZ;9KKHza5-b9)}6Brkjx`Q=Kf$=)P2JH|^{$UrFz=t8{s4Exvf zx#6H|4xn{p>2|m!^pz^$oT^^0V*NVDYw`J&v)9T8m|EcXg_zV4T3YGp8gwbiTxI>?P@*{o!Q}ksP1lQWP*iN`v~~3;Ih*U|;+|M|^-)3uye; zWA_Lx-jKx+D2F3ZfKu7kC^_Jef z**Vs)zp?+H;sI7)KzjqTXU_%~TtHqsPnIs2O>Y3cApJqD2ed9Q^+0ovP}Y`x(yasllP7_JcYfc6KB&M0$)iV3K$NJeJXPdP)>0m`FOU!Z!qiV2jJU7RCo zT@Tp!fYBbd@xfLxTkY09W*3Kz3Glv+6R2;nzej5bwR3|js2|~L+WXh{v?hs*jbc91 zPdvQ+sP~u3D(7wzitR^@c0hagN;AWw8ob-k<*;#my?PMa)!xN#;=8ASV`#M(+xJ|x&?i%^9 zjf4E~#qZCC`E8VQ=P$50PE5|vvfY15yXSvmum7)qmVblhET&%J`Ut0p`hd%YBm6%( zclNaGie4(w>-tE#FY_4Kf3EisW->=gN$4>CetkH-r82OS)CRSex}a~3{ab$E8^aY+ zA7GBo5P=7jfC=i{pw15IEJes%-BV`iC02T=ZrL}|zsu*+gZSSU+wa}Gm-Ox1uf+%G z{E&qSf(Oi)Av0&r6jxVQ3l9JjT(V$}tX#I3df=iDQ0}mqAHWZoIYKZ2dxpp#AE32> z`hl=e)fTfb0h>FV#QabaH9?xr6Q`z2TKZ1Q2Pju4o4UYohBO!0)yyAOZ2{#CS(t#$ z7qIPLYXX}uuut=L%>}Sodp_UTF}AER-nM%?-kU2iUiW_L&$PCGwSCp^QcPk8a}PoO zKJ@tD^D9P*?MFG@FTTUCl0|53E$(@v(cjm(e8u&Z*Q0UW&hvlC?tSqK{^b0gL$4F} zX506f+D5#be#2po2b|B#=}q#wKS{{4&JyoFUUGt*r7mloG!=MDT_*8=2euzJN{WI< zm}^Ps2q_KdNxrD~@w-yNyh%-92dVS3u;tR$J^&0rV|)=YzJz-V1JLm%RKAn#9J$Q)LB9+8*Aq_6k6ZertQz_-wtuyJ z@*4-~@j;s-QNi2f)Tz_hh&-aU7#|yU`T6tb|7Gj_f5cz#Z!x_={a)_hgEy252E2YoM;X$qy>w#VVE3MC z|9zx?|NbqtfaU^<32J|E>eQ*m{&n}9<^c=w0SoC9E?G*V{pcE%QSZl@x@OyUFIl>DnXGZ?CgIb_`A49?)%$vx(;dw%X7DwaH*ueQU$H%n z`M(_ZFNYJ%*NOWc*#7pB%m<9S$HaYaY~NFD-|-c&zgMXNo&`TflOH~BQS3sg%5am0 zd{1e}Tq@NGu2PvWN2+2bN_FfwDUTY@^D`P>FkFi90VO(T!p_a=0G^+~@1<6KfcBKs z2bg-2xLw+qjo5Z| z{`{F1+p*vKzj)=}q?mxs75b9`Kzq{F8ygH?W?ONsaU=%`ZHsfGZUV8Pl~4PQ|E ztr6e>zSF^5;Z&!>Jy_$|9z5VH>Db|WlM84qpqQXygPH@V4;VObpqU?Za&nSs(;P+d zfCcCZ&YL%vd_a2xmJiT6K=noRYHJI*H~Rqf16mW%rTsyUGN2Rl`~-F0jfP*QrxUNT4wDfQe42s1~nfrxd40tqcuhz zpz&N|yXx{7+gAJLn0ww=+`!-m#Ci1vb}gWBzk<3WH93hLDnZQg`Lxvgp;I1~Nb3Ey zz3A)ryaC(4+VFI=ho`l^+P*)w|BEqS>j3QDm;At!df$EIub6ka7u$cZIp=?pn2+r{ zzR7-D-97ac&k4^){9>ui@sfSzJEShhQ)=U+PQVB7I&z#;L~%j~ zOI2VOsl?7pz2227;{!V21HPd)zy~mgZsyOp*WG(1o2dn~##g&HxqxN=y4!CTm|-@v zfw^m_^;fbNVAXGoPOoYOs@)qc0c!vFrB5)!`<+X4N;yNi12cm@K?c1-#RnA^R1UH3%F4^L=825n zSaBgaxz+>LKB9^W-9=#O44ImsnKPu^{1%K5dp5Z}{=m-jO@GhE4fNXV1Jw4*_}$6O zHG~C+hzD4o*88i;`NO6@B+=CSYtiG=ynk&UYIbsdP`ciN)?zBPInw;NY{Z6k-;gNqxdZX^i|)c1I49`tUxc<}dSN_qIQ{GI@Zh1$;F(zz4uL zs~{h!^rC;Py?@geP&|O0ew?OsH4msjU$B_Dfvn9R;HzI_U+atXTEGS22qlvf#IETm%bj}4 zpl+X-Jwx3U6Hp%jHmJV9@&Q(FKzjsZ@d26(%$W^ONcC%|1(Y|e8l$%Ts}E3YP-_93 zH>~_Y)fqIHK(i0f*#X@@5E`P|Lh1*UH)!Ponh#h$z~&5D`^Xd@wD|(oJfY1SR3D(H z)Evd@73Blyzy7T4V50qP4rG<<-f4QT&>2Uz@o7s&I` zCi4=TFu-KI}h@+<(WSCoW=r%<`xYh?@P7EbsR#Y4_~42J0K%{>9_z zalz!k=hOxax98}QL;n`}{@?Oh{99Xkm|y_U@jB)FxpQ*%%-N&d%gJN=$mh0G-;I+L zpJ|d8>I{e5MG8VEVf!QT2V+cKP)i=r6xK`X`CHaD`)~^r_{P)*>c`8p#{(Wv$P95V z+OBDUOf+xfglB7t*EEx6-S(W&5@du=Ip1uAusWG3+39 zA`h4YM_?g(^{OYLwZM`kiV2bjfCcCb;a~Xx*GsJVC^7LAE5KZQHDF* zTo1q<*8KyjIjl$bk!c=~nU#$X025GLP<2Pq(9UCysGuOv%n(@oVG9?qutA+8y11K6 zae)@@5ci4^D33@vh5Ekwg8kG1YWrGWB*!OMw(sFBOWCQg2HTIG_G<|nj_nig7x%nL z)^XLozV6xd(Rkjf)>l99lhYjUHRgK_zDm4D+$8>Eef1SvcSU>G1p&^38KM%82jV z9?eP!m2>CLr<^@~>N(q9&YnKqVjK2*|BhGn0ebY`#`RN9>bbM*8ai?E41mD76G!(+ zMW&Zz_>PxU@5z!CGz&j4U5Y{{P!EhW^?>F9wd4W2Bl_dddm0~5i!ZnH0M!*L2NNuF z2lFKlDA@WD^Iq@3_j(;aO&vM6EqrTst1N$Ab}%=*&iPyE+OfTS*$yqSK0U2kfIL8Z z1AmzZj2S!5ixI z2f+r7#vndGcacSq2gFhj#6(gP-~+Tz7!Nj}nxko{>?Te}XAI7O(HWv1FginE14d)S z_yG7q^yY28fN};D7tmf|>wcl$S5;eFBAZiWFhlHKeS&Itr8Bb-1zxFff7#L{vSE5> z2_`r99dQl(T=2dg*Py!#KL^{_KA+mT*7`QiA29542^w*^1P-@O(1hrwiXq{#IjRhXk zn775m|2>87vO909)MjrX57-3%XSM83pG_WM*?&{&OsP+tfWYIy$tR>7@017F%XPc7z0={``ww1yCN9Wb;Krr$|4e`X z#EFAfg7y7J*uL%0uzA%HvGIV9E?kiM)2Gj|Kl(5`$K?Fc!-u3Q(+!=*36kkIiQI3t zIvZks;LQz@B>M!-UpkZ zFTjj-=&Wbx&%P*Wo4yy9vAyJ*_MPPW?>iVApl{#5Q426n=;Y*VctW#gxl#vMGXslN zQ)DUnV!DU4xfZZ7LA8Aw7f{}y;)1F>tUUt71XOR>>?OqqsMe^?5vk^|9<2uydsjbT zW(e>BI!BP5)vPP9i#&jnpQkef1%@x6xqzPXa%-+ou>rMvwR63yU(omTs1MNh^;(c$ z!0d9eM8`ylkFUR#^Sktvkg1PI_^8WF%wOH}YNN-iJRY6fQQKDxUvqx7aXq1C?U};d5RRf91kXdsPDGej>Rc z)1@qFh1BiB_M39B{}kC*>@9l=++=T&r-}c&3q55I_f7fufSvGv@B>Xd*UE0}z9DHU z`2g5}#(uDXhNNj=h2#VYlcgbcB+m}LC31hw7c2eXos$RDP*awAeJrX?S%Li*(^uZP zLHkMU|6*n!o7k_rIdli0?&MBc_B5O`&GY{tiF4XWEIq$4;(i46zdxVZ+)g)2m**VL zfA+g8Wm3;~q_MWNo@d|i`p%v`eIxb%|2b}tZO8x9E1!eS5o*Kz33Nu~#PMUNPXP<+ z{|csg4;VHE~)KjF!5vfhG^A59@8=0rUl1d;oZW@d3?vKoPZo z;sJSJg2~JbC_g}-xug~EFqhO_rjPF}Uo$t{364;&Ud@=`FW~|B0NpX5JR#)?m>EK9 z0pkOfSURKX18hIAX3ZMYAGC1++aK7ogo+L7UQ%l}aS-)Dm_)!Gj#U0Im_S?1iFtX1I@u~#Rb6!%`8zaJp%YbdaQlriVG-**un8TIUn6LI8Hu~ZTZ@%{%LOw9e zK|;n}N4|fzggD+SK8|g~&-n=nX|DH!U0;@@Jjp z)vF`4!K)zag&8|2m79ZpZ}^S&HDeDDO%c^kEx1N-;>pXK)a zPwn3Rc|MC4egpTv;pD=BV2AYaBgamhGQFwFEDy;GnS%Y#A_s6ac|cLvBq@)8Cqx~f zeV(S6A+j4^Zt#Gh?@Vvk;t4TZteBv3KB)ytws61%%h^euy_VU4#cxU|{J`)zx^JK@ zwLm+WIjO&V@pT9CfR56qS5LzewDADD7O-`ORaZbULFEeRQ6I1no`CiT7A>|g0kwba z3n(U_Tmj_>s1H!?p!xuPZFqy=0zTf&yg}*##RZfzr1r18A?+2$D`$W{f#D6|15!De z&wLno2y?`KmfE%~~J^^f?9v!Os%+Fcl1`CXkmdzoBP zZC~g3=2?rU;yBOA&&R~SB?w%4wJzJrixxwm&)4dU1f)B8;P1gZw@~G+U{0Q-vitC9CEezG2a(NZ67q;vUxk#|B20$ z^Xu#I(U(i`m>VTv;$5cR52AM%s`Wm(SIDfkiwFG^>Uyr)Y!g> z`!y+GesS1;5+{NCm}Wl^CHqVLWIy@;fntBzSL$!@z&(l!(i^DH*$N)8hS)z#no^vl zG1-OV%xm=tiV2LT9+)hZVZ*_Zzy*mNRn+}e{$F7G-xK(Q3 z!$CU(T^>fiEvyIA46?#0kSY+jsEXxxGzwV1nBuD`bIW2Tqq= z)B`(16cccj^5|)tN#Ft00@@d_@ql1>!`dS>n1H1zqP;@pfM{-){!X0Hs_odZvvlg(6WjkOCa6B(haU#v3#^?Z>I3XrV3wL@u}>LW)=w#(u2K-pK~iw__N03*=;U@f&kW7aC! zpS{%T4}t}%{qIhlB@Nuy&?hK`CsY+S6t3w&sS565dV$3rA4|SRJ7xyIm14B2vNnGr znOo4bUiSgIJufq3{y6sj6nH;AU`bnYNiYkSr)2qnyQRwu4(Hx^=qef8`3*^o@F+fU z>XhO3>~5;PuA#2-Qr!Oqhky^TF~OJV1stOYfOo#{{DA{UE;Q}lCus>$k{LX|IS)`w zV1{G|xk^Qhqw(d%p`+k}6C>J<|N+o=W9F&qIOog=h(!xi}W3be+Hwz9X3JV5uC zrmcJ(p5}ApqwF7D_O>Lh{8*-sY!4>b5gnmU%nVw1faU^vuQh?43s}9uG0i?;hPcjj zkp*+DdO-64)fHO4Xm0aP@{3#{tqs)nO+CtE}jEJ9+;VVD{wuV0u1^-3_~*JpXEA`=PDs{ML4V@t(Lpn*KiZ zey|g^@A3%yE3tk2taaF7J?jk#U*4H|-<5iQor(L$v3t$=4_57vgB9WUfE~@Yul9e@ z2WTx|pF?H-a=2)l9I6Py2l!A6Y%{fh)&q(M)Mu=aeOU`-Z{`A?l?kGKf!*{9>&O9= zBUBzW7JPY}l#vUVJ^;0UzSsAh?#vB+jfPM=bZb79%nct%;_`Q~{g;XRVEqgKKo0PV z1kZTJ^!R(cdew!uA8`kh+w%)1{ZGA({a<$W{CQhT zYKk6APoTFn z;0GEN7w}_th}}cB{VO)0d4TR6Dc1V-IS19&u7qV#`TP zOf`36qgSjm2}Y|E-Ja#kwchV8@#s*6PrXf654cs7!|%g9uFo*={$V$o zxF14JZ)18F?ffF%XTKLdirQfG_1M0J^M|@TDxn(p`E1SpYU=&~*Voa6>SpSFo#8uJ z9!Ab@+5W|PUvvFPPK=5D`?3E+wMlY>UVzpD`o84@qT~>mp!$Hrwow_)BqPbLKCGTTDj*Vr8KaYwX=rYztFQI`ZVZfKE>52*nx7~AcNy?Yz} zV{!g}#tC5arZ!Svz@$Eil9AJQjwd z`4T!+%E{$wV#i8j^iYEdHj)oCgo5!h_f;Fv&eQ~o38=o1YK)e9ya!M4ef;}JlCtIl z`U3cXg_aLUU;93q!r#b@QSImpw3jZ_0)x;LR@>L3^TT@jqa|Qtg9Z-(6PyknXypND z3hCScK478xfW`C31JDy-hEU`G&*1^a7k~-aJ4o#LfdKqKVDnsYXh;ayK#1uR=xni` z*eGg(7izD-efo5{Tfp+L{XKI16c z;s2$`vHDc5$_Ic8XncVB0rdgo0mUA2NO1vtz}|wb$qK2_*IG==vC-yKL@ z&`)YZI-@B-e;}ZJ^9qjknGUSfB|l1pIs9^1`6u666z$!z!wYn(eu^i1m6X}8L@AK~}(y<9wh zyh=QV-w5C5dTjbCi5yFBk6K>sK60$)|7!nNNYuEijZX;S{Rr$odK^Ar{0$Q2@@p`J zhuGW7tUFj=D0NlX9D1&<&#}AZbqQbk9lm?IH166e2P-4wIJSSNK9iXqFgadMH+Y8L#4jp0r&uX!M+kd(<9hZxQ(kj zn4lXxLB#}TGcTY#LFEd=6V`jUf)!EZk>O*_40@q|KgmHqENkPR(X8dVgj?lFN|uG*OzeaZI!3EOY| zt@r>N4|o?XggtxqAC~I6-BRDQ_k2Y~)rGY92+0UpWPHFbID%Ra;8qswDI3W^q1FT1 z7yOA202eU5f#zC3>jCuvhC8Ua05f@t4cPcVIP(PI*nEVZFx^iO0=ADopjJ?RfxEl4 z=WzY{4KjbWv#fILBGInDmmQ8b$;y7W$-3TGipOALKipiO;nx})SG!mHR@)CBbCtwR zzD}YifdAnK;-_54^(qthW5!=4vD0qG=I@s{W?vIr=^f5wmzCE0*nTKG+yjaGVaqy5 zP9QON=X%*+5h(|1cgms0UGR9k@CVfGrBPshTHAB|N$sD6U(h_jst1lx2OO)@JV5<} z_6F^~Ks1;ja{|TNs40TX?`<-@!R-bUsNK26@&WV)buPg0gOwu;C!i`;cLa`tXT~gQ z5W9jsdt&$OwcYfUWUzZaasBrazo9dl9`DMk!7oXt7jHTL@#B|?bFa50BQ9vqfg^|B z)n_;}G5k`!-`be}oA=;=_P())@dtuOrSRG2Wo-7U;+37@_;(S_0&87TmURUkNN<`14^g`wAY)w>ODyX7mQuZ zelg|-b62r5YC}hHnb7wi<_PKBptJe_YJr(ETIT`HwSZ!Rt$cuT1k@MUK0xEY-5+SF z1zP(7@&UyM|MJ*8B1?x5A3*;=u|)k{?%UkpC9CZ_q1V?@VrR2+f*gHS|67diuE$_> zw}|^{`>pHz*0!%UuRg%OhT#)p#;NV!0?v0ovu^j{1K`8Yeo_+Vv$MGw?+chk++WcJ zy)IYwL~X&w!(@N$F4P100}MyV{7&r&SjS+3^ad@C5Iz7-U_-(@@xZIOf4RDV9H<-Fg?1&JmeeqGq39Uc(`> zFhiX&3^e*9+uXJqoMHXiRkCE+N|`y`g}C1d`+QcSr`#?c!)}nRgKw1WgRceWyFq+M zUMC@NdcvsfV~F!RCS4~n6R(w6PCRz6wr}j;zD~SKqNd&g4t6iLe=l+W0f}&Z%4jb| zu(v*V{zvSFeorEneuZX_lQiZB5%;mrh634Jl}%0#K9{wgz8(CXBIbIy8Xr&+A^R(1 z4By9!?Zo#QFuxjj09qR~`+%c$>I2f6@qml`0FysZ0~`bc+=p*zf-7V=g5ZJmIa|;U z+K6t@I-?t)^8&>Y(@amfj#+_CzZ z;fU+tuh_%wk+pkw1G2r={}tqm2m~-~rSE1`lY33EEsi^#OK2Krunh z3)COz{D24ABI*n5*{lV9X&&cb+_~_Na>j@ikwZy{vi5h|gx~Ie_v5cW#!N%nfF4up)K6R3Xlh zZzRQYBzr~1N`_lk*)Zl=czrir=+yRCvSjRck{aQbaOn8S5A+Fl9{Azqx#>GD)%*W5 zbN|_&#^$vja1F8l7X1e9A7*YawywVELSa!UJ|OpOGPOWf=n~l#NIIaCUY9695xz=?gUD z0mcV_2N3^_wjO+8yB4r90lOZs{eix(_<(W-^lO?U=#Db=3;I24*juoS+1SHFhse?z?w*LIf=wSKA`qIY)?eqUwE3Mq`4 z$BfTP!}qPl9_w>98xEh^sMZ7fioM_fgf`o`_5kCte`cw90fNp(DVST`of)_1M@-}|IrVq!}pXXt(B_8Iq-odseNl*Jrs zn$KkHf1LQw`b;La`}Kv7A9IlQPdc1S4qjc(b7-)>?4*zzb|!~j;`aQk_5Qzo^VF$R zHYRZSxpQZe8=Lk>c3#=(^xPu$BS%P9*ivKv$`8`BlX{>e(vcpI&V+*R-~+131C%G! z048W=KbiZgRcuf-MZg1e7g2@R*VF>a{rnJ)5E=r8BlJ8z;AQY&dcd1|7)-GJcb$yg ztL^Kt=LKvmuyr0_c!JHn!JqO2T491<0Ez?HwSXP>)t=SHf9Y)I>uUFk71%$oJpNg; z=VANQ`{ex5*!~WuJ7wG8>y7oR5D?5uHX7S%@eHmuz&K0 zedW>8R2Xdi-U7`rwwvCA`T#xUNz0`;VTF{kL!dN#49|}vwSdl^!!h$2h4$EIGOfdt zGWhMA&kT9*D(U?CozlMTeP(`tRL57Z|9|_0U;1r->k~jH>9XA1eA8P!N3ZbQnKPRj z;RhyW^=b=e9YqKBnF+8z`5^8=#uXxCje|MKS1_X(z9#KlBSX< z$%~kcHs=U1wvkd0MxGruS4!fS;RBXQRqAT1E+;NGk*gb>5AXn;_f;QoSp5LFVGABW z+}E7I!v8Hy(98%JzHsxrklKG)6f;6-1{H_k1GEo-{pYzE+(GTXOzj_ip|Zr~_@f2< zcTWKSn`(IG!7Ka9^v-ul=NGR$``XP8N5*~o99oH0gnoHmpHuYu|Kn%*{+7M|Z+z{{ znbVh_IC;|M3O#cA^yw81fN@lC zfZp=m_noC%w_Y-^e?P+uP=8>}3|Vsmt$BiutvEueDY{_cLNhP0Pp6^U~?W| z>H++K&JO5N-jL=6YWMnj+ctOEykV^@UA(~juEmQM$Ta5}GKsxLYv}RC%tHT^d3(>1 zHxc`s2)#Rp+%RST$Xk&r5W{?iNc$ z>N-=KS7&av@&Mw$)&iOb7#{$?SLc5ZRl*C#_U*WTuu6S^#(dicSX^QK9uxn|BC!8R z(^oLRFPB_nr@K_`^fx(2ZN_S;NVa@XNy2h!07tmx&Jwn^w@mB!>kFT?aX8ui-QS#a zTka?Y83~Qd?{&rg%`RT9m-7Dq4I}>tekXpw<_J7-?(7-=s;ZiE>8WWFmz;YBKOpH5 zTTM?#X9pD%)I2~j!N$aiXhp;K;u)-uqAw8n!$mxx*$1c=gpCK3v8OnXS|9`bFLe#v zFED|K`ERnz?FBf*??~E~?lN^$5AeV)>=?K0=aUSK{mLl#F!eSm$mCeWk)K<$3rx^?FD+O_Ls*^))(XVsTXpE+B` z(|=q#^*eYBFGvhEy4&zuWy|0j#B=yfXmEhpjaA#%n18*o>lQn2w)@ukfZpp#a=cN} zvHjFJ4@vyoC&BsHUyc38E`sB;@C|bQ&n09r+@9d6vaiTjjy9xH^QV~^-Cd!MlD3t7 zZ+=6mt4Byd$QaXSD+?Qero(8dNknp*g-Y3CwhbIwO66i8;|1~W6Hd^3AysEnDRYB0ev`hrFa0v}*zK*PZU zm>H^7o?x)@gcJ{;7GQR;!i#xud_d+Va)4FuN!pqZ(RqDKqR9hv_ek2-9x`QQcj?@v zhx{;Tu!;Rz1K4z7_TT!den4OA)zTxiw8&<-&S4f| zlq{RlL1LG@EV1)`Et`jF-miSVYsF{O%@Q>6PT4W#28o+Qe^0S|@V*xNC(avuzx8|g zgao+3>2vOs6l_0f4)d=D=d=ai&-O98tm zDw0=730OqbmT@xv+b7SrfAWe8#eXm>cQ*Cw-2S{byXuv!?y%OL6~y)3E=E z-+ki5p_ade$c2FVx*FBaIFXpd>`O9pu~GPdAk`63Zomwa2NWwN2p*t)fwBmzH@G{Z z9~`0n-~oyQuxmhj1ICl7E!ORPP$fY~`b zY^a$L(7vEzgEkguU#*#;pW_HEwB`j`_yN|uKx_L~TtM>x-Bqj_WJ?y#hHvO%w2GHa z?!a6#yN_o7TDAL@1-m-V)61IN5rzBiz^FpM2XNXkg z1T^yi)<}7#m*gjVN%WSnGWwgRrNbW_PR#7}nE0>!VNbHZv(f3@G~@e!d!62Y!tDNK zzLlK`m$R?N_yGL!UGxQ(H#XKuOmxJln3%Y;N%73ZMr;HR(AmLeegJ-;B+3~dFp=kv zToislQykimss*9*gY*XKLwi_x06svq;_BEzROQ7^X~Pj>Zg|am%nQFy{`(d?9$%1L zw+}^igr<-9(&&c__+f~Q8Zi`3&=2PP_@ljZ^rEh??E?%Z_!FMseC7t`vRii%JR$0V zWoQb~6V(2oY6_=$D<-6 z&!&d2r8adkT)}McfSquJN}{L*V#d-FfcK?+ftca&gZgop9aN5h$pgNFE2KU^c|z?? z9-uxToq6!Ib?;01x(~^<-$W0ht?b(PN6A?GsZ1OCm2~aaU3&K&C_{%>v%*&XZ_Nqm zy`2Y)8>hO$%noDAv(OKiKWB!;6I4uq*shp>;`vKemkU3zc+o;QM04N~%*6hu%jBs} zGG^2mvx7SkO{4gE_p?jq4sj#)2adhj#Qo3-w@Aczi^r4Xe2b`^C%fE2tiQ=zGw0oH z>HzfxNlrIgai5%DvA&c!4;$N0!sb;wF>(1T60`Kr^!PuNu*F})>vNgmumfgEtCJ*|C;mX&)T@`ukqChck@?_+i`YFdgFIik1RDFNI%>{83aqb##4n~Vxd?5|v3H5j7_{~#-D`BWVyX3$ zrqQ>bdcCpx%(-`op2TT4TCeBbW#Yf){WjOn)ceH!RJDET{lrD=vB&n4&`L~S^+)ut z-jiT*{#=dw#i8`~a;U$P*w5oD@tgag zr&nL{fPqpN(3jnh?0h5#&^$nE0mTC<;-*XC4y!L$pS_-39gdLt0D5-zuae1JVKVB58ei;J;u-7};w8G>>{pDgr_TJUHg4jIw+)9%=jM}FGHbmK4%LSDCEKl&?DFmVQ2X|Z0~jv9;sb@$0^s|93H#--;U#B;Ul@rVGQ$MvE1ST*BPZ~tG;y8r%v z(E0P{Tl_WHz~lIUJ8P<|yB6f`yL!TzTr{WeML_8Df^*e*0@H4o64A=QM^zCa~< zFpaUw5$cQWqahN~)#?jqZvf3`D-Tdi5S@ta9DG2=+7Ho#e^=s{{gD|__Q%i{h+O<7 zKHyv919VPc$Y90)hyFw}K!Pq=i- z_mY7oMe^K7#CzI1aS&zP%z zfqcN&{*%}~aeq0vJ9eAAQs*MymK`fTmvq0W?BUZH-2^$gZ0BRQ^oH{=67VQV=vprx2OfkA-wxY0rU2{_q{ZDkgpzi-f??IVEFLiX5VOQA24m&G!y@4&7MsyFiTvV9c9v_i85{K zWEnMfl1v^qMBH4zMT_=Nk^mkT?D(Mgj<<9+V_hF)4)1PBnsu*a%=xus%^|Kg$85a0a)KudiwD0sr3&wKJ4@haC``@&nKGoKb}V;7v0QdZ;=Ol$Sf^fs+H(!tYxRx#y6-1zL6r|UXth6 zUvm8iNGW)L@^BRwEMXqMBy>2M@66@L&6CpPbyAVCn)v~^0^|X8a0HY$toQXf@Ojbr zsD#&}dA-JY+wQBHV}D_)uhi`Hk%aA&#HrikGUOeH3sbtjBwOc=h^fxp@V5O7hq=va z$sz6cE?xiceFDV(tMLIh>wo#7Bge0fzcBpAE@_hCuJUAN{RA>zy#9a38qpD zgfC#{*vhtWgcK|LTt<-xeBZIFbnD*B%na$yagF^WMvP#;;22RqVEceclO`GaSAFrR z(;Q{;x4L(As@@VZB_`}>LK_Yub* zlvJ*1vxw`&`JdW->so-Xktb-}Pck|GbHx2uOx)MHCTThP=qo>iS3ObogY})-N4;O0 zDb;!Ci)%M^$%zvAJt?c+!v}x~ zfDL4>Ys;+Vo6J;wEm>au=?e~&BEO#afWf8~(_PS3e-J+q4M!+`o|MPUWnV0O;WThT zv;%c^Ky!f_{6Ka3DuWeP=LVWMUz%mr`_;LYFDT9mlY+RlvT^c<()nqJ3q785I34G^ zT#g+*=&a9(-^O{@#rUtkG{dVO#=p`3m6exY$<9oZ&(+n}&(F=xWv_M6*-(Ek336X4 z@m{mwtfDW@%!g`=7vKXdEtru;S6F)j>IWKCONe953}`K&d?D}w@_=$r@&J5*)&e>+ zluE3NTJ#3>z{^HkBy1shzyS3DU8FbsV8sN~2dK>t9?YI$^a6$r8)p2#lqpjT#;3i3 z(W6Jf85}1gM&cue4uaeBJ#imgZOOCZKIL%z zC(nLZ(&yfTPxxE*uQ>mMrru8^pRjD-iu=im-K}Deg^%X^F>+#eCb}KzQd<}=ahv*x z`?&v-Z6j{Q_U~br@15d3?J;VAM~&`xu<8Q1JR%XyA7~w5Y5{Z=Qm6xxR*+Mmxo&oA zZhX_^0lU0<$S$v*QiKLyNyrd#0PPDla|A+0q2(|V-To<3may2&43sEuAO6190qO(F z5?9bWT+00x;y?YpG(Ra$_ce7uRc@FRr3XmBn&C33<5SY@F9YU}pV*ApjZfut)*f;eA zdOMG!-^p$ou=3H0x1GMvp^t`rMTdOZFmi0x-Ux<^bgUuEc$E{uJG1yX;AD zzSo-Tbj|sx`&WG|yZpzZ+p$BA!|6SYURM=yUv1xG!h^D9*v+zaW=1p-gl$_ zi4G99ulv1&!6Q@yIBeF_Ej}QDJV0v+%>{HXTlNO@6*jyf+0+7R|9T2d9zZRiSfJqv z(IccDD33(j4eicyxPm2SW~bQ)VEbJ?-7G~J*nXP7_^uct zGkgDDdOYKBddhc?N`2)nwf(QuII2rCF6I3H=3b(@y3+iO`I}$g*jU}KFn{N%s1P*u z+&3Q&_t_|Mo|*?x3m80rJOJLh#vkRW*M>1S3`baNfQGPM))jqW0YA_e(0PHL*nXehh9|7GfYtz34lu&_fJqa^$)F*M z4~&ql^ZT;18hZq8GZFzX3}0VXeDPvx>lWhWqPK%vf$NH|(bk=hej)>cwi{E`2?kI>Tni1{k|0h?YkctAFqySZrZ=S>{8PoC{0|({J;t`!&kygaS1!aixbyMQSw$P&k2*f zWb{*44#)O?C!K%iaBNEFmt{xjrv0Z+o%oh#p=GB0-~92v^v~lHsH(0qGXrPk!cDvP zG)~{OGyOnJc#!yS-+VGyYXR@sh9_vWgaVz+uCd~9`U1uW3^M$nM%55OTUdJoiU}HA z5IoSz1v*HXcRTO^YV@tl48RXk?99RgUXdbvKx;gpM=#|E{9w2NgPMB*!{H8(0^c7@ z+#jX3Kd+DEZu~^j7e7tBe~h^QTZx;E=Ej`gNb=$*C2e6F$yo9*JL(=|$LYh8zvdCn zqmsY24X+=QbnHK8#bc7QoO%73_e$1+`y_e6Lz2Gq3BKnU$y&uu%jIv7lfTPI0557}255Ha9N2}dq{~VvO zcbfZ97p+ZH7f}7ceOwy$g>*F+uPEcQ}Rk0Obm1 z`Sh1e@1e}(4x=s`Ed@biB|m@}qM!*<7&%9ZViut#!t6eFUxpvhqw|EC2b8C|Nq&;2 z1g;$|PF>qbw`UwqxpaF{qJ0-O)E<)2*uIGe`wySE_L6b@=X?UyH5Dy7jl1_YF3Zc! zl86A$^T8hLF9fBa~L)*T9C;tJs;D^{fHpX*bzU_T#f-hu5|90>Md(aE8xWQTj41o{y1M@=t z2Mm&7gZs8;9N@YX_+hxLvjq|Gnuy`i;Na^dZfjZ*qUt z1PxIiz#O9S15WJ81`mi?%>L!27N;-?j3IG_?qhlvfB6bN;4R5}A3 z4Ge@UFbvM%Sa3pSheL*g)lQHse6-Pg+(A8n-519#GCrV!dBU=UB@(=9fK2Vw=E4te zILMUm?m3?rxbW=JLk&~(X~+Jr+}luciQD&|WBM)s((>}+%PK2N4A$GUr)fO3fP{Fi zH$EU_`zrVW(}{m$@d0Dusg0NXK)Vj5{>0ubOpv|+^?*6LYryOtQ(O?fFj@lTKJCB* zzcTf}PI!W;Yu}>}_8xJLUBv7n4PEe=Oc+dGuy=nG|A!78A_E8XmoDA=%7A{o#oZO{ zdFtY%6)#ATtF=ETZr(GdHB^>{K|o#a)YkZ+G+pBDS|8VhA_O_9_UC(`qGlr3X_D{BW{FYaUR z7B^~sJ=>`JHx0A=fcgL*e1O`%auHhUe`EV<|II#tS|E&CAO_B&@`_TF!=QPGIqC!2 zQV+nT-t-x}x7w2nbT?c0$pieB z4;1Gfzm?KpFmAb#T66!e5;u69NR{U}p|jsg!D)Pe_CK0tc|%nwl$SapHw z41Xt;>>yK2uxR_2?34Y3T|@8F2SYmqUr_G$X9-!>MTQR>j-Fsw>D#-P@der+SUjPf z>|FJxq%T8L3mx*v1urpY#EwF^ei`ha&s(GR&q1F&cjc>6uPVV#xI{fV=eS2R? zaUUpY+xttF-%!b9t~ir^p`I-N5okTB{yUuE2v>B*=ZG)1@7niC>G}tU<5Rx-y`+V% zIC*qm(HG4R`ejw+d6)Wp|B+Vz(|>erU6tW^o z7QCXJoPsqkN#REOyeNemxL^Ma=TXknQncY|e8MAE9kBBE_=P`kp2iQn#yh0)vf@o_|0Djr?@%A$19WZ(ACSJOgQUClk~H^z%op{ObdUZD`}~1i#t!hxSzsz|Wh%byY$9rF#FTX7C^Vs-eEto*lg6 z=;5PFig#rnkM!Fj!CPjXjbkn}*>j?#d59$?o4>>f3o z;Z9tc8v+kdOt6?dAm9BP;@LOEwU3#jdrz|Q0cCK7!xnxa6Nhz`1rxrPthMYT+43g% z`>S9EuY#AqjNQL1h3j6IqV+FJ!P-}`_gAHK+jE>(q|E&#Dcba+`OnL;URTN5AIb55yp#A3-cQW`Yx}P;5h(H;0N$Qv_(9~58MWd&w|e4*zNZh`n}?CZd!+jCC+!wp<{;|r|JVf=+_RH z)fB|GU_bxS5B;To{7*iC`r7I%ic9lNPI&b2;aO#c`4Zx_;cU>>`4YE%Dn4MmqS@T-oD{;g2Tdprj z*|v8$9~#V|6znmZo_oe-=J7XvE$JKEOD;I)LHPV9_Z72$yA<2cmHf#0;xXwdS>F2^ zSwG|+gY&KVfxX~hey#0a{eb2GZukV9I|_gY1-bi$^OL9k(u>xgKxt{gWjQ(4 z&elUmj`gc3Es#*Rc@nr`#+i6;S4m|TM5@k+cn9T=c(l;0Kj5H<-6UxpBljp8JfAA7ZEQZ?M<$ zt?wH9S9{m_!ZNoHIB!dZ2lnm$46$BkkJT6GdHW~VV)xGs22ry83n@aoK>v3$*lVA* zfj%2p-$7>Pk5TU*B<}C8%>_SOBikoEDJ%M1YwUjQAPe8K?Ek0n-?o4C33mTadjLMz zz2yU_1xEkM@BuE`yp09g*L&ayJI}1JS4fX8^o^nLss;=vSL@vCEIWP zuwT0W*-v2Kp4|o)rdGV^@X>>Vs!DT@M|!Ok|20#O>%36R=8^b;aqwa$np{AAKrwkh zMfeCQ4;vNS^L>t9@fFSYwLb4NgY+lfdrxYaNv`qyqWOHu z>(9CWObR?ZN&a?tN%SLkd32G?E$z@V{+#|9TAfu%a(sWW9AcJdUt->0k_L9*}q*2s1Go;zG8nI#Q-cHzF;KuO{nDF1_X!->x6jrUz2Wq^^Rp`o(+|e@ zt`XlgPN%}ROqE!-apVE)h@&r{cz}fof(bCQrr2OjxTPto+Tyx$p0gljJdHzssYO6nb@{pUytJP2Zx2hE``qqMSU^zz*JG z+1F5x?R$&2>-(~>>*ca$;BB&D$lcidul`~CR~*pp`)LlKJpdodQCU+oB5`=cD(gMPvZW}-Y-ac*y5%Or}m83o{s))Ym4G8VSPXMkY9T5Z+-&% z_U*oU(#ZBEXFPrG!jj73Y-YxnoD1GE_d>|}@e;jtyrgb*H|X?A+_Ff+XSnBh5jq>i}HE>3#E;5n9_!3c1{;p`iu zF7QR8D1aG3ixXt!0%33kgV{&y3w{vn_^^by!gZYea?1|kpn300F#83UlJ0qRQ+etoZqMI*$}fHK?|lM$_SBhY z=*)!+BkHP)C3NfD3qc!aoDbW+M54COrWP2F53o2wd5Q-#`+%AqmcDSyj``+2^YyWo z&Zu$)e)gb2syd`U`?X*CnV)&TDT3Wb{GO7)zMOu{)%KFCZQYD+&w<)3IewtZvi;g3 zDb5TNPsg^hxZ7p2xYw<+r1vex*8fraxATAH0eEY#5B`sB|1DRo378Gg-k>)*R;zWxt=0!NMEFH0=iBg*|#q1fVZMJ{o4`N439U6BR&lv8l zQ@>-3=&`KLFbc7TJj+9Kdp3F5l%Kn-R zIkvw-j_fX!qx-9wlMNA1r&nZg_p4-4_v>VF@7wSJH=DfwFYRA*06iOr-rmyxvu$6m zTR6%C2>1*8_a`4Pd?57!=oER3x*d&Dw2CHK+#ux!_>=qlO}tlpC;i&^j_u47Y)4nX zZ^l#N2Kg8UXxi}?~tC)I~<$v^#kI+tlyCXjU`|4H!^>#1C7O( z;{HGMbYJ?Wf8-N5e(Z?N54eSAZ1UlK^#`<8j@UTzMCjU~62s1jR4?*?Ks3ffXB!QH z!U$)n-Z4=c;<4v=w1rcq;|C@&yNbSG+AL{Io%wf9Ly8OEGs7I~{^x$iRq7I_;cvz> z8$StugH~4TB>EC#&AeP$#8|X7hSSTRD|^cmeo4CTrF#D#d8jXa&p-7E96Nfn<+(a{R+b&!-*mbFeTk^eFP5g18SFBdj85KE%hx21N7HyBy1F_qH&P0t=F!uq z-dEdiDv)FQO3=SW18Lr;vY?}bEa`I_Hm`C2CRs%6*Z99`z-@nJ`|1M}1JHRNt@rh` zwtf5F3;p2$jro6J`?gQ;qDD~LR@}hi2w63Q)(x5`D2||5;@07}8IG|hdLrJAkBa-m z-^lE4_g@(Bro;IOUsG!==z2USa>X?LL*kb&FG}&el=uHrPxYm5{%1aclP8Z}e*D-$ zlVe^GaXE6RiP>`Rb5UC-NCVgGnATy*TN6ipi4Z`+iiw*FJwZEeRF z?-$CRjCscH4;Q&%_se8|&I&nPwAJ{8y?jl5!^Q7cUohW%zy6$RV>Bd8kg^zO$$}5N zD{MAeUDW#rtK`U@LOHUx1l_JEYUr?EkVojYT#l(EIq&ed+@wZ2ici!K;5f z8|y}2fIMJlptBUlEI^;ivVYxk-;_3A_GFd2q?uySE}@?^j@TQkluR<2?-&P-g_^khma7`PFw$a z=VZbGlIXo&<=+3xd7d|WX7)LgnZ4e=8-4vq_VEQEH!~K=Q9d{@e<0QktAUN*S7f~Z zugSj}2S^N{=KW1|fXoLHQm=_Ee$iiLx!DL((K-s~sbJj&pHaaAt?aCWa}ES*j)RQmeU z^VKzDBp)y_C;MI&$CbnB_%C_qwv5idvU|MZ2l!uEPB}ELO%ZZq6JlMrAklk|vQ}k+ z=XUNzOZnxVb`L_2AS?7J?uQ&E9V()%-~&89sF3kkt>gE?j`24~kmkQnSsOoz_e=2D zPMP0^K>Ia_cHgJ0(W%(|BtQE831EL1u52ETHN$FS&Cm+iJj$5sGqwBbaY^=HjRC|D zP}luZW!-42nFpL~lz;K_kI|2pe1P=rEB-z8!Exo9(dR!*8^4Eh3PhjmpQPp$SWc^t zgH!8a+vsXoIPe)veAn#3vTt6)@r@Ibye_Z*7I{8OPKIq>HlF`q0M6DDew zbjtiaMa~Z(i!z-Vc7k+Vp)8hi%}B;;O1-Il%Sq_A7hmMZ3|z zh;^mUAIo?@5SbZCxD)Pu(smlMJ@iGqJ$vmLw zf&H8dpp5+&AKirHn)m>+7Jyt=j;RZzZ%}*z$q~xjVbKp#FZ~IkPj>R2;^)ivWxT+i zpQ>W%zzT-Zoy;^VhBw5;9TQUBoUYAP(YtOH_z3r~Gwx@b z8FGYcZd^cSH21fU;y$`jmw9~UQIcy>ycThW`G7-=3l1swkbQ9CxerFXC)dK}aVGcU zdT=)e*(pKDPK!izR2VL79f@^AEU|1*dFJ@5V&zxmN#&UPV-Dc4*k8^?{v`(}cG+|c zpz8liDeHfU4k#%PXsR2eZ%|}i#s`W|aDX~O{0Bup(C-(y7agF+6BQtRXM!rYE2dsf8wo=0K;_p%H*sq9;o%KfYEMPA}wwj%pR zx))=|z3uG_iF<7+*Dvxrm$~olxx&4$k08nK5MtdJPjEksOs>(HogS&!{RiyhONsTx z`So97%cvTP&%f+TYs$N^k5Bsgij#d+{&$S6q38fP7uzhdX)6CBud?<}N%AkU{Wyu; zfBc$y{yXCax&PKt)v#bdRZRZCOtX3j=ML?fj~iD`^_TWPxoL{h&ZS{dR#(;n|6~i$ z|F=ww^;UcU>4!>>_v#Yubu#qUu^BkCy4!uneO#;J^gQ@E9piqpXPE!n&3$SvaDSQ$ zNDRDylrZjD&;2V!2V_KE#l2`-(lyHcbrbpLF|TDsT~xl48hR0_+yghAenYJHVZ`~- zcS!J}-H*imWPfDbO+idlFs|sOKv*f`=D zY-RjilKmH1-A&qG!gwH6u1!nT=Bw9?x&CVG@2jE25}PUeztKOL{(;$prNf$Xz5eML zZuX}Juw50ocRaVZO#c5#<}UkRf4T+Yg6wV1Eoh~Y&?{@@ug0A9jLLk@fh(bm}0LS)5BZ0ZTt9!;X$6p;wzp%if{?=GMMDqR5 zVA%jG>Vk^OSf4dRd94`#-{=Dv{RHs?O3DEk*8n!I|0}Yrk}BWDmGT|Q^&k4#7(X1C z`VxNs`9IEcwC;;`1*XV2xE@OYBei=ehU+Yp4U3eQBl0zxV>h=>auH*iIc_>iet55(CJ1 zAj$cwr1T4#`1#`Vo6X)tuz|NOUFfU>RFs^l2&PEkJRar4kmxU#9Y#&PcmxSswMfgCds z#l31J4v@WSl|Abz+oB87!s-80_A_FgkrCrS*>}XTjfvVdM8zv7m>Ue&tt{;ChU69lVczBMr~Bz01b* z{aYMZ_M@lS0tsQaipHcQM|-u8@;Y`q zRAu<_Qe7ud{Cvp|NSwXDMtCvY$G3vt z-K2+mH9So`%l>y+3;e4s5FhNI*e)$|f=SVS{o?)4`rke_1&8Oi%dy`!$l!Hh9wI!C zATH=SxE{T-Z@t*}6t2UW6y}6fuF01kY0q;z%0BHrbwC>RLqd=pk~ogLW?7_1|JC*{`+ivqJna@p46(Bc^Ej>O0nPpB@9+4Y zyd(Vq$CrGlx82-b?|W%3BHT}KO#U^cKOoNkf+FkE7myt0zD=U3-VzW)yiHN`YpQ9Y7^E^_UvZ*XGSCx$D(aUJec zlMv;72GN|C6Uq7biVmQkpBU*u9pK1*!ON6=<_efEOpfw3+WiDSB+>_njt<3{y^FEp z+eTPEz#J=R^Ot^E9!mz4E3*BP<1>=c7ZCYhS{M(AOfMg3gSEpeDe|bwdvT@c0Pz9T z^*|q&>py$GhjxD>@3pwU1$B=Fe(hzZaXLC5n*0Z6)yBS;7F#C!YGag@|MM-N$&4`f zxw1@Imm=?O(3?rY7qjekkHXnSZF9W#ai37`ap~^rh+sb##QK~n+Os~+{}THO&mo%m zfy8hZq{W9Kjr(#WGWL&%48_f}E3tf3XZ-wGO{^SbPBO#HUiC1C^JG>GG*@)Mih&l7 z!~&+ifQ$naSzj^8Mu`nJjV!(&K-CAL12&JWs`&JOHWy&37i7QC^}{Q2Y+pqz>SLy# z+tn=J{rr05WF@W^klin=Df9RL=efP?1&V8ddvUjwJ}mmTmIWE1A18)f4RSj^2`3k{ z%D%ekOXj^NaC`vA@cUiox;$s81J1+O-3|d>H@FX%$UgVui}FNbYzU$vg5Y#^9afEc z1#@~zzgZ>P{fd~|=S9rzTNjJIklem8{-4$R1uW=Sqevf^%D=<|k_(X7U-}1DQ6Frg zd`rx)%DibQ`9Pt~)Dvo)FY;Z|_yDQfSvY=RH{*u&^fM&hpY@Sh{*wN6;c|8r*XWN~ z$Tq1hZFVm?%KCm(}i6Ff|NZwrncfWL=5B7(edH`Wtrv3^S5eq@+8oX&5=x^b;A;o~Zp_L&Xs zw;6qYYfSv?1^n8NdA-4AMe;to_w)FrUp1avn8XCeSU~#!B=;wM0g?}tV`WSbWn9Jz znaaL;EIxpc^a<>pP>Z>}8cJS3{DI=z)#jRmO_1Dq<#Of6cIZa6C98Kkq@t z9?JfUg6X~F$V&gq*p@weSquD`7D$b}X--n|0eN}&n*Dt_F8h1o+^P?7cI8I~rvszm zfAbguJ#3lR_u%@x{zzb-SYo6nf`fx#cj`B6`0-VY|Ii#$yEh=!#_XO}SlGW3rhjfm z`DYGbApPqvWPA^E{nQOcU%=)O`Ij8P3fg{=Ybj+skeUw=`Q9XRgG3Lo-ju}t%lUS$ z5x$EuzmhnKdE~U>P z*F@f>A8$J-%j;#0lb4EMwo}5{^Tj!+4*4e8_unZYP7HXP3H zz`3LQ@aqqqFplfpPyVbjruS-yY27PgYBw{??_-5U18QJ)pN6#iRh03*O9oU>WP4_> z`k2?ZR-ymTT)~&BA7DIIasZ6`jbj9C6u)1_3P>FA_;?^y?xhqzVEwno@d1((lymU| zM1P1+ApLx6WNg8ZDwyBRO!G^R%38Pc8*o28>Q~x*@%7E4d@ftuPcMu2|IaXe*^55X z0{4rFBq5$+=BuN{o-<0;?$%_#E~ z@zX~&G4_26jPF_lvwGFQyxta=(yb=_fA;@`SwO^?M7FzN(jZa_I^-=gIDX1;Hhx9aQqxOsfO z=0Rriddhx1X@q;p5oJFABivAS@_(@f9wd2NX5Vp9<_mBSi|>;|E~mI19S4sS6X1Sy zl)-sVf7q?>go_Jb(qCWsivIZY=QvKjoPN=uN?1I&3TE_r0Ta8{!KAKMnD9vjWo*y9 zzBMtW`-_xqD zKvS77?pU$^{GH?zWzGTZzIN4+nliRWr^(MgL)ot`7<0Y;vRvQ)MP@I1=Mr0>An%@% z6Vw4+^%N9?UZ=}W4Y?odw)cVO;n8`v>$~7G_rA!SF#^)X0I0^{Q%xg^SEC+88) z!R=k$^p}=4)E%E*G569Oo4ms_U)1lK%sKUA>S5K;%9!1&I)3fT{9ykInA7J4_6J&W zJWwsn?^|2R2^ez#93wcWDwYkbUNl!w#uKa@Y)!dV=LgApAnJNS%<~nl9Vq>TlJk>3 z#0}g(aB*Mrye0iBu`46({FBr#<ZktZ3LavI3S4u7&A6I6tVLHFZL5`UKolgTDWQel_X$muEj>c_mM{ zcBnBQuzZj;)(o$Ol|vXeFqU68+=gQVjrsmfTtnEnhLCYAfcX4thSHZ9U{Jp8D`U~1 zR*V&%p$-&8U%-p{|fWhnPM*s)oC567Lu%lv({G0Mua7WfafKwfsT`Tdj- z%Q)|2mN$3zwDh|$&Db{J!k_z49w-EM%TwexE9eyvrEEd3~S5+9Bpx#q~s%ekp5-a-AUN z1lD~keF>a5M4w>U0E>d911jomw+u&^<3<_VQ%zp;*0EWZ{#RF*$^U-{^RnBNwLnQN zke3;0!F55)`<6nP}Tx}PYY1qZE~{GDg-)g zDeroCWO=8ZoFGuRem=|U23_8jq+r_!x05rkU)%n*|LG;~8jj6x%kjE(^xJ;0)H7eG zUpdG^&ozV$>xVHHIEZ77IhR1@6UjW{nY|h)Yl*ELW-a={aA`w-?mx2cTyB!PlH&`u zUspD^=kI~G?5<@k@GrMOZeEUgYK(`u&&hG-x3+w!_~WVJc1lhzJHg}C)Uay>0rs15 ze9^o4JH}Muew=kVk5|^`tEtTKTmP+$5ipJykTE^7UchhPSLXNti+nq-Wg2yR*Aexh z{4XynibK?EWo20ll(oRqYk}hAAIMkq0R4gTD7f3==8@^orp0(|PlX$yI%Ea84WSpZbdK)bdYp^T-T+xbv>ndGXFlydP}0zFeSfS+4I78^7!e zWi9Yu)B+EZz0H|7Ea!c3d3n3tV=SoyitIO!N9W~cUJUbf-0gH~<^FSPdhb8}OZ(j} zC+D2Fn-H*Dr_($uuM*{PtSsLDFT%9!QOa82-)RBpb(VSeQ*6RLPFmX^oMnA(%P7UC zFX>)>mzG+SO8rhrzb(7|^jd&={onW)%o>#XE1g-@((3a$Fr~Em`K8x8u(>3OUBV}m zKQFC5hSjCi^Wo%E!p)&GR-1J${tJe}>XPc!pO;jx{=9^Ghf?c{Zq9Etc=GuS$wj{| zw%+vT#r@vo*Ji~4Jiqk%m`AG3%02#k4v*G9&LEHd{BZ^cjg#!XWcauB(S8@8_UiGc6z1$CzF&I-Xbbg+Hh-?%{ZsqTfIH?#lmYpx*!QuFoub zrAH2mG{nDIU&KHq{Qj@j7coc)_kY^;MGRQN^F8%?l>tk7zW-Ex%p+{|@I<|TN%fs! z{FGGR;4jv9{)@l=tN&jWu#(>IY1gX)TGI19?RwP$mGpdnw%)<4_>cPgzpGwVP$k`8 zRS^HR_4AAZRO0jfx7T<6gXjMb)z3F8;Zu1366+fnpRdIFLIv?(TVJRkN_@VjU2kS= z;1Zv&(1$L$-uME4U%gQSm3)6=y;+GLrM?9BQ+}jqpue$R(O{+A|1Z~z1eJFGzq?)- zsI>q8ch`#sDDD6MQN1v5X}=c+dLnW&VK=FFFgbtxQ0gDQW_r&0(*C_LXlegm>K#n) z_r!7O|DIWdQvW^cOLC42{}W=K_?M4d==`+n|KRyMm)g7xQcDOv)tCH(_9H&(H;XNa z|NLSr3NMmB9ZIVwf0tU{0Hp)i`49MO9*Xiw#XbhvyR-&U^lPy{G+q?(D6Ih$`%=ma zDh@zQ$^W2%+`kkKQ0hzJfX?#!QY2)a)R%&=QeE;3D$P?0f=ctCWDzr(-;!TYX`WIL zZeV=A5)tfdtS_+v<{9ftY=FY*k{Y1!^-FAk!q+dc0SaHgM1%`pzr+S;pgvy-4bWMw zFQEbEsr4l^Kv8w^4N&y@B{V?M>zB{~MXz5%0~Eb}2{PK?;qw*yf}J1M7yE+qOzP(s zBZDT@#VRS&`eJ0*qM7eCtmQ8=HVS4e}M*aSCfx}*`uG%CUtW7c>TP`>SG@L`NQmQ z;rAXx@UiB3q5&Rjo+q^QW6kr&^^YOk;IYSl`~^EdQUB-*&ijMp%8_PrN?=pD6&3qc4y1NA>efzR+2I@YpBDq<-FGb#iKIhl{B;tuN;FA9=xIUY~b- z`2UN0eNz@M?)6O(ZcyCwnb_gt>mR=0ykdXYP@sF^$HKqE2Um|tdweKO6xh6AC}&8Ef|*a`uzPL^qjK^ z8pyvX`4iK*9_lgv2M%iQcGIpU{i*q8CN?C)Q00XDsPPR;}CyYYV35uRtQ zZ`q%DVs1=Yo^iaL&VZiTdAi}*iJo7j1|I!7;KIzo;r2_v%T5XDC=ZgA98@$;_b)$K z*$w`qEs&R&XP%mxXyNPSVd3jyYZ2n@VCms_+S1|t{zt|}84L!l>#DD4FrZgKe(sI5 zgpf0FK@JxpZ*MyjWWPGw`}{9(JwC;7ea}c--Tal|3ipKdJv}}-H!ESA@Y2_1Li!)Y z?XTP{D=W(?Ha5!I_4ZBc>$Y}};4E0ly;;`M==49{Pm3NM<9BtaznlH0aIXvSzi~+C zckMS^KQIOMyMMs>ZDVj`)mOSbD~4;=|2j&$Y1Mq~rq%Pchjwq!oL}D;-lu=e=e-m? zke8M4$p88)?@;#J(pw-uKgS{=fpYC1Vqt50&EoQ<^A;D*pS8Gn;evue5zYof9Rtub zFe0U9azfOIl!VBDARm|OuGi1_cwRpNx68W?&SzKS+JV`y<9<$Oc8)ZxUi71O;jFRR zMe~2sPMb1OJ7dNy!;Co#v1rK({C?mNPM$c0;P4n+JG!&r%&%<`e9lb;_XJoV?-CdEsJ{8L@ArTC zdz4j)Q54G0(^@WFe#(6Og3aa=CM_|aw)l7RttT&S}oHWk%S73YLB==?8Zm>PQ$#8hz8pG<JuExty@%45*B<48=JGy~hWY@+-h zz~MuO5EvMMi)W8x(YNjOc56Fw@AsP_g5iO0jdLykFXQ<~?=HHTWUW$Z-_Om>RrGm5 zK|zE2_wTQdicMM^5EipKJSs`!9}tGyw>)5f-40GSF2U~FX=1Yj2Y=tDJ$7)HX2CBT zH4`T9(0~2)1+?#Y2`@Lhg7UR56I)Lc^5C%todS1Qn7hHk;udlDg_-#-9uFanX8jN7 z)M*MfY*>xGd-vf0dBDrd2X>dwVD?v?^vCCSgwLrl0rDO$d%q~N0fm4T%Cr?rp%Q%~ z)^#AgN11+0r`3O2P@s(}&}d^HJjjhnNx2sj7nc$h8kLX~6d4b{fCxC>x{b?M&gyU9 zx~M;YZohuzs&)EBzaG?2n|4Isv+wWv7h4@g?b^9p-4(o!AW83O( zZ0m+7=Pf_Ut4BDlu_|nW|L+UpCbF!O=J3l}FMZI3XN2k+m zW!$xm>uKj|G&&S$49L8nkEpo2h>S@@WK;~|65`?Q>w>dqj~Gs#J)^mD#a6Rs?M}@% z-|xfcpI%cBhG?#ar7wu78Zj4NVIMD z4OXsNh|Qa~QU~mXgS|a&I5}a#51(M!H}C0BEqEQir^fp7ou3iVA0)aL*{lEGn1Ju7 z%CwYEyr)*HRj#poL!;63XZbF_w~VAACDR|j$2gnYCvZo#0xeQg(zFrb;aXoG53QT) zP3>*x3;OdHj_G&pJ*3~X*;YS)-gW&K1JCGNy>SJ#YPq01ZMB7k;48LT#odVSL)m^@ zu8YH3y(T=N(rq3;lz(#t{~yr!)gQ5N@gi)Y{O{ktA6G74!Yvn9EF0Gw%Z7Kto+)kg zxAycyN}SIC!8_o}!Xn=PU&WuYX-@piDW?{cS1TcdLH~$uqg}2*swVHq`mafsNr#E^ zeo_ocK6)rv>yUl_0r5^YL`3*%ygaXIu3x{bxp3(W4jn#?1;6aWPZRf{S5GI(wF??H zz5yE>kw>xDg0qxHnHJdONV#FZ{t4FpIy)d;m%t;q%E$kZudXs2M{A!i_luD)mUpZ zdDhIE75n_c3#2bd!}$H)BrlSDvPoLyh=20(^O2sGs=E^(tql(k(E57c);Zt2XgGHK zfMMIV1BPXbuVTW4Q|R&eRlM5a9Lm>pfQ^-pVwa72TyPdF+=#JYZ6eQqh_zs=;w+{7 zmbPCZ4+U#W%K+ZjzmOgtmxlk`d2_I3^KaO(a~IB^J%gl_G#pqw8f&@l^M-NVv1@z_ zjobb&px0|h3lHRG#+DkV%6Fc|hwzx^=HyspXJ%T`E?d&Cw#>@9|A@ZgcPf%zAkI}O z&mBlNs1Gjjnk`AeS~Nx@R{Tuek}K}9Lnbu`~L$({ssR{>sMpz)~&eVcpbU43#wvploaG$^@?BmnGT>YPXF7efhWSf{OxU+0Xnyk^}kJB48 z!}JEjF=7txccLpO&?t7Ac@-olB_JjyN)r(gqVe-{)A;zf(hs*cT(P}q*tg%FG15g$ zo_rHu4)(!EANit56K~Y4>5b~uJ?Ntu?X{()7mq~_MYaq5vSNKPRY#kargAMlyzq|j ziccYyrZTPKtzJ`0xh|Od!pbU8`K|Da(Vq}|<4@X28qB&eEWfAyACK8{=V0ZE6*%zw z@9_5YfR;Ax(3)vj{aq()`mrlEjQt!tery7tlOx!~ctP4c#CE}d4gP|?JQK@WS=rfj zH3bE8sPBVwb8{Ri$Dx9AUS7T-^KJ$b6B3b_n1qP%2>5!r8GL+hY5o0g&_8q3+S}d4 z`SVWL^ScMzBp4$`2H@kaA!ywu4E5@Vqgu6iRIVJ1s#OC}qlTw~f2~>pjL8Cc&5!<@ zuR_xPBBKvw-zfi&>TXr0jiphhjlYv)k!e-VpVa3@85g;>vhwHmL??*ek$Z`4QOOt+ z+LUwWb9>^sIzD*u)yuH1GKmfL4Zk;1!GGrL*;v1JH5}}&Dfr7ipeOgO#p>_hCH|ja z{g|%UHolYo((-1A54^fX+B(?rw<1}S^QZMO!M*}*v;F<7EZj>^*QKYYeh{={6{EMqedk8BN!Dc`V$ku$0&;; z$6}w2w%TYL((?TTH^-1@oBuJpy;vTk!O_4V~VAYbSPK z%@6NU_kV)l#(qpcu&e&ilo#P~bVMTCys6+#WBG_}eHuLQ;K2js849%8#+k%B*xz4& z3FwuD&BY_iMsqQnl;Tt%a(U} zo{rY7)6lM6I@+|!;CTj`HoZ%JNFhI@@VlvK&>#WNKOa}f12M#1bVE3GLKG@h3MGXo za%q%X!Ar0++Tw?{+7xs3JL)x&>q6phEr_={ZMvCa6PVMZFK^B`(Te_K<%+I&uBJPl zuj7iQE!@zer3YSb>xOn6Jkh?LFWR>8#ha}?Nk$%M-G)5S)`z^{OTUOnu{XLhak< z5qAx*7Zj3~rAl%wU*V57ZSIm^GD-KT2ht1mfbc+Kksc5}s8uUUu?0qb5WyHfkp7@i zj#V43%C&+s?Y22(+f32pg0;J1E36p*SE=BFnw359VqJGMea#2W+WVvNyFqC9c`O?A zjz{%@X(<0qHY~q;0J9$+z+zx1%C+5ya_u*xLhCIk-*yYCzi|qUn|b54Rxaq+$rGP< zcR}B;{PFV)Uu@dyhO-v~;p`Hi*nBT9FL-%+5`PcmJa_=|?5s>9{u<5AJMpnNb?TJP`Nj=+dwC#)eVOqI;TZny z9W-l}PCNzoe3D=*I1BcrQ-=;ZMJKdqaZk|!!UN5l-&1%%bV0+0Ns1kK;e~jG7phfL z{Q;Idu23O}GF|AW(Wf)&aAUsSoc_HfWxFC}yH<5K`WhZ+*vK0%zv+*rA4j16=h3MB zWeT1dk^!slIB08BKFr4GU^Yt2l4Afz8%T71M`~d8Whg4P-HeK@x52vWHdODj6Cd_p zk10Q&VeDdyW5;jdrn3|MAuogkdLT5&2VtT92oCf?fS)e{e7xc3E%>`5>wY%ELxQku z*qg-veagT103Rvk#xd_{4^OKH|4VaD3jVH#M?6&Gwx*}IX;H^|1E47{T^}eN}>-) z9@sFpJ2w4LU+1{J58XgRH{pT1u`W-I2Qo8^_~+;4xkQDBH9Lj$o56~vOEcm~iOxeFfpZgA8c#b?k zU$Ax+QjK8Ls^f>}8w8_Xs}MZjDFQXSCZX2gL{y>fwx-;gk0~I=#B(%pq%12$oK=j4 z56mCI+Z22CSO?3&QK%sD-=6rl-iq4qZo|~ME3s$SPWCaK$2Hq)xXFHe+i1=$?SP=Gi+c+G?#ISI zHT)UlDe}+$beFJ@5V+jBsf&yZM_5=Gc_3WDzgNE``g&U8U%IX@4tKfMPKbVjl%fY- zdyPI}^ZR(UX%?Eil!B&=4_|E@hsI4JP_IQSo_{w6^*@M3oqowEKlmQ3zR!gfF*X-j zRX?qkuI?pQIb71oVH#Yesg_?VnH` zPKPHh75sacJ-x9ZMfg+xg9C#U{DXr65EST-=%{db`-P)tpA^P%x<7}%_=ANcn741I zMF-MbtqahxEzjFzGL}w73&w`c-eG>=!+6x}k&YTeGV#nenW#MG9`!M0`bXO6ag=A( zPKykS?jAut;IX+P?ATf;u5IoPvjC&%@jQ2O=k?d+)Y z{S@3~oX-zk3C`wyy^eliHntPP3&7fiF@%i!RnD6 zv1xQ$g$Fi_ej7`^>16nA#49+v{QXpZ?WyU0;W_5{6#dUUkc;s4O^53`k^hj;FeD_z zz}+Jbo%xt;+v?c&N<0f?`>i%2(^_BM*{<(p(aO^D||lctcQPCb`vld10~5c7$JV4nthpz7ruRfI^!PTnaMe*FuMR1=W0-KUIA?8YGE}?51W|=SQ1aG zsl?`IVofp=T;=?665Q2ma%_4o*M&bO5#PzgTKHljar}wL!Uu9(q#t;$=n0mid3_{H z@e56Kf@(+1$Fk$=>jYF3`R}lec>vmf;y-fCRK|YmIIiy?{Cs^78X7`+$OEDyO>Kbi zfv>k0V(2%?=ji4|__^zISo&3KtQg)JtC$a3PW*ov+6haBy{y~N z$NPl&hzifKe{UfB^(A+qcVho#2=!ZdcqFp3(%|e$-|yoTH0#Oy-4E$_X<`kTO1eh2YihY_QvV*NVK0k~$1hzRkCjra@ZDj%pkpx6QG0+IhH@`-$| z9Nd73AJxX9!EY$E;@fsu`psLE|F^MtSV!%SA76sqwt;5_e}0s)a>m1d<}V*n;W?IL z>HjmXb=A1szD3y&Ml@}|COaMH+*9!EybQduCI>IC%t52I1~gh@K;u;gyvUJT^_Bv4 z7aCA^5lQeTN%<`KL8#_0I@DO8Q%d2B%Cj}(35`-#Vp(CP78Pb`QEsM=HiEdB;B3ZY zl}xWcajgE1cEn;j^^5SqBwdA3?mw7;xu`o2 zX!1)w-dLTBCX*sz^ZprFzquJTJFds*anrDG?+*A-_QM$yhciA74-YHS|KbOTEf8K% z`9S19g0?|Ewr3Aw+(*x2UjJ9Ic<}33IItBK4sDOcU%!ckL*BxwAr-YZe`nANbQZ*O zv(gk>{Li4z{wJ+Y!C$A-kD>jS9Ja>8)kS%q*!Vjr$i54^;4HLUk%c$c>(OdG@cKG^ z5w+y;Yor!y_2dl$nyk{}#ia(kw8DVrhL3*iSI%XuC0h)``()p=S)PgG-BWsdLz z?FMy&kfJNd8`jhHup)`B5dBc3BLwe4GGnRu5aLHnrjJ3gXQ zKl&m8s5>qME$76d-LfRSyQu*0Z`0z#9a?<0TZ>P3>hS4qpzZPuROoJximxri&(jve z*~x*r-%F8wBmTkzLLrJDC~_Yb7G&fB;x0av*iZS~xN;ohyVk>uUQHD2W&d@B2EK+x zU$>=QXrw#0`ZJ_P-F{Cn54^tlAI3jl!C$Y}jLpu@qJQf~{9TpzOG-+HHa8Qtes}Tm za^~*V8_@nYEm{fY#9PH(&V>(zi61{xx6GtGFVLX+rd*WUm5EA6 zGEsX&0P0OTj+dvNLx(ZP(Pq|7v|r$jcURrP2OG2S$qpSp+FF3lTeWy+iyobK0PTJ= z;EkW0v47tg`gulQU*udcf0PGA_N6{h`CbU~C*lXH_`~$)N@GtNGqxj2sKKZ{oUBTF_tW3^b@MIsqH}k%+9M6-Y z;D6PZ{khcrA8%(nQC>b^JH5S0hfbu{8<-O)EZsUq;_@=>t^R zP=LDo@=)PYHp*RQ-uFfx$~iGtDO;@W$tjdg1_~&(=a2wHf1lStZ=~W?S5E&=oWrE?Sa#0Z^8buJ={2V!};p_QLtBeKrMw2RDLMBM!x9G>z&9OZTQ=Eq*m(;Xi3~#t~Q_*>2*>I z`U}lAYVrD34eIaK;Mu)8ynMO)CIyH#=Jm4fDgw-=CdF00e=3X zJ-&IXDkgPnh>4%p#l+9*V_MH9vVJ*0c`{eO@8)2)*r0m&)9El zT3Q->eZ4iJ`;&-&dU^(QIhi=`P5ED&^N9SbIDbf-m18Lj>7%VWe7Kpmg7h)5?Yv2Y z_lR!?;RVv0hx5?#NG@KvoQ1{?1!(G$gNBsln%?=S8CZa-ej3#9F5o%!zOMn5eGDk) zWq<{7wJ5||j*DUwAm>+8FHw7o#2yGANS)XP(E$PA*hy%(K*-F& z?_hX`XE64|dYIhpMNIg#9wu~cfEhhsCLc7z!Y`lK{66b-+)IvFCHSYs`6)6f$A9ynBiE;5u{0uK8%|n~zrlG-zB%jfi!lAPpM%Q}%;s{{v_Ph}U!e zKpo0>RpMTm@@q=vyp4SDhu8~GJc0inSdHJ!oX~a*oVgHtcW%dS=Jie-KaSIB#L=@*uGN-)M*MT~m?1?qrC zwKNx#AIT=3m|L)wO z?&on@`d!+8%D+3u@~z6lC!6)?LjS+Z4h`O?uKsYZ1|J+Mz*}eY(Ah2*pSk7Y6CcJ@ z{&{#iya4Y-5cfDe+Q%|(h&G^YqycY+(FTMX&@6<+5Vwru8Dm(w_L;y5mxJ4ZY3tn}?V-@3^h zs3WdZ_8mx0g*@QJync9CIHIEH3n;Q)oGuVOV8s7E{b~6uo;(CSnwsI;cWPr~m*=Se z8&K|FR&>Dk@71AS*wnE6OB>kln{c0BZzMdxX%v6E4dDM$$9$V>^YbsJQs#YpymX1w z{b?yFNT)wokb587yi)P{-fVQgn1|1=<)I6Gu8;k4@M%acdc@?Rdo+pV=Wzw-7OzG3 zIQoS#dc4aNc>6HoA5MzUqXS9Gc06wx%2*)SP()35+<-bj@PF2Xsz1g9RfGq8_~52E zmvpS+zfINud#L|+F;Bb;Jtxk_swE3?^yo3zGq>mAb{nq5-Sw6;oY}vxlH>L33J*Av z4;-)ADSf{(&P#l}$jC?I096-Aj!<#{ckiYP{8; zCVbF_$FETjG^ZXA?3)(yLPOOK6!L)ZL$$|vKz!7VsCFn{%@P$FMM#*=>~bk4tDJOb)=0Dk~zLIMoO?2 zeQ(qUMq40$LSUdD(r8cRvuo{a^lEN~VQ<&OQ1ZZVmLoeqtLXo+AH9IlAJoJ2ZngBg zrgy}Rb9-MG{LgHj@VDd7_(YZeI-KvJOS*H1eg1(+U@7u{kND@`&&2BZd-ymqAHAXr z&^O+IehI}>?>hzsf8ha@y7Bmf7y~*N@o9U!_u^uVjc|5fS&QyvgKAUZ(t2UrRZ zRHt8HY72x1O!2oMFIafeHz3J%u@7c$j0asv8*elByOI9CDgJY?X#PC>zHcAgInGsb zJi-HE%-g%TIOFC`C&vDTx`2AYndc7F1$Ni2DRVr;Ka^vaTelSKrBB#M5iBE=oKRXy zvV#Bl{i_xIKeS_Y`T)-}A5rim-g}nkbuq0+1O19YmEe2h$ZElV?k9i$ zco20iHXpKXL4H0G`2Har*OEZ}f0wbqJ(5%GVK_W$`p9#DJ&o>%o{K8W!^ zRZ|97G9&+~Eo@IkH@!Z{9;PX zVN8MsqbPpg@tMEj^L)=yHsA8vhet1?{=`j~wQ(EVZaGPR2m8D{iM<>9K5vn3E4myoJVjPb3+eu6*efOGzKHl`(|;ScMuwl#!+E-KHMAi!#q(Z z+y#{*>|k+d25PRFiWch^;vMGlx*a->Pp;m=0KZ6l7kU>%V)DrcdW=obVRBR!HY8+W zXKXS~pF9Km>-68e+$q0aMq;0>m(1T0J>YtqV|d-*Lw_)gW8mZCbNknzB~QJgyza2Ibzq~P_4SiH*E zx?z|vo(p$H#qb-j3b7?!g=NSUm<4lfuAoas3S=2}9p>BS!fX-e;4k|TW}Iu^VAV_v zIC2bgoo-{Thd&N`2ExDVh zAagl69zvPh5yRY%*hiV?A@RY@n>Q5wE;_>B&rk6Q?XF#AoN!Hv6E0u6r1%QL07;4Q z=-shCdNemD{uR)l@-B8jj>Q)cKX3^1!^1k((JcSE4o)rpc$UcJk@+9|t@txPrN}>X zz|V30CGv6%by+kd51`6F>o6knK0YP>{UqKK8}K;M=j%s({{^W(<-Bi{4!xrC(IX-k z-T2#2Nbg0ap?zd5nn#7BNkkB8g}S18s52^sJHR^p8u7hIY=s18p{u-RtB^TM^WbZ+ zP$|e37UA|V-#i-@i^suY#dw&n_=!C5BW7*ih+E9%x?Hz|pSuerXXDAzk9Y@h%#QTS z`3wFe@%Q{WUY|KH&UNx6A9%x``1_DNdG0~%-IY0zvz(7B!&2DCBaU&I4%R#5!Fui7&n=v>z@ z>oYT)-aLUVi8{gq>8XhdMsob0{t#Q`-kF)1btP9R`d{8Jjrw2u0tNeQ`hTMYf9n6< zQ3dG3d|qFnSe>z?jDHsSfEZ^|ucx9@WFp!`-$8TcMw&$hy)a z<%)?Iy>clooIVQ|+HskOrOd}9ow@qmn;mT6DcP<9V?Me$)fP6XF+m z@|xHK@e$qKoM|K6I5sX=krVOzB@V}cxuz;o?%&6E#Q(#{Y+{^+kHRyEaRTGGc(jNNM$4#BG>rj+2k0Pz)^ zOTs^l^1pQs%omM@#q#kmBmPz^CSlaFg*do-4;&n?Bak{@=3=V3IvJxQ@~`4>Sx`q`)Ux4%J&B}P7 zozp-0+wkZ5Ju3cJWWH)_OpNx9*w?O``npa+DVu$NQsEatIox zkdlMZh-LkxKr~1S!V4^4yyK6$iTJ1SBq2oKmq-Bj>b`9LkL z!yTyu?26|BRsJ{6g2mi#jXbbo0`>nm3|~AK`*-ZZnX_jUJ1y~yyp#B7#yp)mX4^Pk z`%xa?HI97|Js`25wz ztH}TM* zCZzhQw&HB`|B&nE_;X8c3!i+F%~p=P|dVh<|Ey26G&z(d?0 z@`H5*eFXA=q6bXvKoR~kU@>(NEM^Vm9D`vnTlfP8E|`jaTejjj`}F*LeGw5E$@hv@ zbedo$dOIvEu#gX^3pjo^Fi>=X$_G5=yf>8xWGuIbhpRFdUhIL)0T3H0F`@8>^ci{3 zCP?3*5*IK&bYa{tYe59@zLGu}8;X2gHi*XTcIGPbT=kBjubLK? z(FMkNJRyqxmT`WHE};CYJRq^5*a1)Ghop~C#(<^JKa!lUJL5zdE6@3|MLZyRLh%Ld zu5!)kD;J9TfX*G=iMO6N!+Q-Z@NpAM#pd^EX@gIjS)o%sbM&G9AJAI-K*j+bEi~&U zbfON<8Y}q6hWc6GyO(AmBiSJ3G{}me$ zEb$;Ih`E3O#{bL>n63SpV}1w0a?WsAlLyRZent78hW*>N!GoAZF=s@b#?r_GlA{-2 zK1`yq-h@b@cR&!JE+NM68Sd_o^jMeY;%+d$6wm)Jt`1+wPPZLt9| zet`bLP38q|gYgU>y_Y{S0sMAD<(t(G)21uhVI-aIHtlcWPzaC)Wca{#np*{E}m8 zI{kb4d?{gn8he#5nxseK#pEE=r;jLnAaQ_E{=Hdx(>L@%RmKEWXag$H_m^0(LeMqX z5aUV#7f_Knn+Fr`z{{`-wnK$rM^uh4!7oAFkwarC&~b0MQ9Dw)HM`K^*fp;up#oZn5XV!Q=tjZHWmbXC!t& zu?56GjQk_AAICKjME9$Hq4)-F)D4momb{?jbq8Ey4*2q=i(Ds9mihu?2S;>nTpsT- z2hgjfC3?27P^foH3;F|===_o;{Q)5hbZc&jNnOih;oxTZE5~=fw{3nueN=eBP2Q%e z@B_>Lh%L}+^9ud{{Hr-RM*L;mS7wG0e?wj_9MU-Nhxj+9{HwVBamnwd(+@}s!wbob z31|nzAAB~J>va(K>IsznJDiWfSm7D^0#)fFRETp!HOBna1I{wu{T?>Hx5048oqjmE1@u`9!e?+&jdR zc3$E`PvY-F-S0rTx4n897uo-Fj$?|Fl8t?U{@yO=+M*hUb+Ev!UN)G~!y41OTVp26 zDW6$m+=n*!@gr-D`Je*xfzM!67b}eJVu9~FSzt(OGwr%*0}$r#@wwpdaBiQ1n;id@ z&qMqRuHlo@>-Hlo|*TCl3I6SlX2ejC| z9UV`d!Uy(O(9b^@eUhWmFDDs&^V88wpNSsi1EJpJfj;^IjHP`ZvUxR5u+KJ{eKHZm zTg6^2jXWS@G#>JSjO!MgCuMS7r183QR07|_l`qi>Rs&Lyo$Nr@|gO$6()UZgUO#7@t^pK zwQ~G(H){w@?Pi6EpH$-bpz`c5wl)mySlKYO`}5jS@0Q20byJn`fyDeT`vIau?%y}& z7WMjqn}UB_Y@AN?TM_;o6L6gPH;nSZ%hch5Z{tFomE*hYm$@5*CU;};N_rfc5bsy+ zgrEs!yK(q!Gz`7XaedcN-}fBqc<#e9H&>vF-BMJ(GM_XLHWwzq;^Y{ZpC%m|1B)|1 z!Fumlj?wxMW&_)y0%N;Z*8PGGXD^_Orw`u06NaAY@#ud)1;cYw@k3rZCS@jJNqQ=_ zWv1e0TsV?q;{^2aeuUoA;zK$WW1(v4o4XK9ppDkzbE-X=I)E1C-y+%If)Sx zDf@TD@1y>Z7(np}3S&ffSK58rf9Vgr#y;T-=g;Bz(L-DZ{4`u#J#p^fb}Sg&98*8D zpsd>{GC#MsH5PwijfMTKv4}K_dSF&hqb?9WnEa^~b$|`$2{gvxnJo;ndRN7!*fGX*Y0gVg@%ju{o|_2EGvi@JvON7G@hzmY z<6%LvIyVW{=cgFy0?Uh&VY!dL8UH!V2e#*!osT##wzCV-o@TKV8;d)5NT4S z2`Zw3p!D85C^qbgG7Rg#_8A7zXWmO*`M&r5U(E01&Yc-%?%cI@Is5FhH|6m{~%`}wF`Vn_A?a&U5i-LBQxIHEabe_=rRHo;2bzGJfE1)t1{*)4hRp_@a55+b#VeM8)tHJ<>VO2Uv1g|wBA0TTovB-U5sa_X#}e5Uzg+w+@$vN>kfU%w zzqa)>7jl(fSam;_a6tS-`P^&rxy*%<&%Qyukd>9Gixbf|j3M^X%>9sR$=pvh~Yo11FGOp`7f9C9^#*;^1dWyaqr;+ zrXZKYx;TRQHtX<8wI8Ig00zTX-}_gNV&|A#5G@-mO5*kX5L` zV~x;NFgddrCZ`v}_~b%V_Z94)!My6Z;P3hbf1}YK!(ez9d}1~YuC5-q$aR<`>SFQj z(kpbg;4SMFH;DbUtHg^#?6~BxRpo%52T$X#^A9C9AaP<{Y*6nTWT-WNnJ0>GaFcQ& zpDBC%B)3=M!ZPoZT)_+HsQ2mbi{5uQb`)E;T42rGvE1wT7h-S7Jzu6u$D9B71am$1 za+K#q_UCoT zAC3)H#h>dxBKM_ok5~&x#jF(m+HzQ2V-K|G&1jNrg~l9jChSC``0dmI7UaQZyc}uH zv4y%{IIxKvSc_W3UF2VJfIKigyOj7ZfC)KZ>`y&#V$SnQ3`|fjyo9HVwDmWl(*HU}wdHBok6S;mK2jn^3{x1DK4xJv5&%Vw1 zP$6xNe6E@+@V(+2Msa=k9M_poajjQ;K3CV{*s*&Lmd_lCWdmNtyswEp?Y-D{^9p@m z6?b_ovM+vs*aoxSHDUR4J9w^biL*Oe;LPr>I86?m+SUoa8=As#MQiQQjDmU?%|H;e=V@&dNB9iZNxh%dzhcUTaCsk!h;=nEyl8f1JnVc z2RIr=Zbt3U)u?lEwT=TJ#Q)rKm|=gXWyWIvO~ z0&+ng_E=--lmS@Qzn=2x=M&Svg}uU`dVk(GhO7}(gSDc&;?&mn z5xTcCF6?NI(>q!t*h)Ci4T0pq$xZKQ=Y3NbE2jUD`>(`b^gnH!PX39%to=RU++XmY zneB(V2^LS`FFX(qyp_1KiXM2v0pUR%azJ>X*8w#`=eNUUUzE*#M50-aAF_zM@R^5ALTFdL!+WQZORTQB+B z;tNY&L`H_J9Vc_`Pq(HV!`PqXgk_Nf5+87McEgGpgR#7y5%J{s8*(o)Z$X_e+?d08 z;NrfuSr@!Df_8L8q;*$Z+TR10t-Bz^ss%##yoX?=2f876R~PJ^_@ZW7zc!p#W-k{G zd5%F`ppeXrlTiNui07<6tQUP{@{oNTK~`Pb_K!T&Ew zyZ%ZKh%Km3->??_fSMOp(kIZ{0`UpyAJQi<7Ju+rJD|sZs?Ps268%4d`hWIMu-Utp zH5k2^Q*%bm$?kAnO4g_(ZYgV5cPXc`ZlQQkfqzvF$l8zWYp9C9Jl1g_o4Cu+;h&S8 zqkKMzfy#VXw?e4rI#YS?A3u&0_Rbh^em@$f z?m*L|zs6s5fZ#9w!1HWD-SBm&OMjpSZGh4P)B&bJODgSv@&&5;e?FWKdUF0Z`y1lk z15fZD$-R09;O6emwUrAfp`1%@Y6o31BSM`C4?Td{T?Da#h2gH}t&ke)| z$aum59rm*KUF5xleNN=Fg&(p$AZvtik~2tuKaA^plJDv6=7R0J_F~n{K{~nrx*F&9 zCd!`wmc17)tQ%~~*qxQT!?<2;hHR2Ao;^Q8OKGGdghu$at zt#E;Q;PlR}IKS^BtQc5RyJFHnFten!U>NA*{=4Eqj~_oYynFYy5pz1L5pv}_KKk_m zt80S3b1{4N#Iw$!6MK1ZZ}fqEa6RUXug>qq%c(oj*SZ^Ug=wm|O(C|`j7 zVZHG6m%G`@Z-o75Lw-uvwx9gaZ=45`Vp_KOl2@!M`d81lwmhAaeoP2Pd+BQX@S$*X(M)bhvU-L+8?^Uh|A|s z9uxe(ZuISg~pymMmU`)oa&ctNCWw z96E@em-plK)Lq11=lkg~S3W?6A0RqFIPi+z2aKQ}$noN(4NCq^&J%Oa2V`!j<^lm` zFbOn+alk@#l*ekwIrT#gAFk^y>I!!>98`g|DW zLgt0Shx(VO3qsZ?->@cafy@(YR}6WqhCCm(8Z~)d!|G=kjO>O_rVWRutDCAtF81j@ zG5#$M2yVAIhrKU4LUaM&f0O6J1L1(^0X+|%;(+jgxvyed9`N%e<|Fd}*~i72NNTNL z_IgP@nBDshWAlQ+*fhjQ*>J)2Z^^v)0b=i04KTpcfp5TW>1ViT{UPFyh^_B}6bE8{ ztS!=xzJqL+uE=uffpjOG9*94rvjyT4gzfK&z%5Pb2evA=7~5Do>Fd@gynbzja3CQu z{wY5|uivw?Qq>&s#-HbuZqCvczkQ7t~`6soJ@vFg&*e2Im(4^$6y3XE|4l+klsS znbW^z1rq6d3-$_s!M2JH5M3a8K;&QWmpQDg@eB6iABsMZxQ5aNRqz*Gpyr5_dC>#n zBkJ{u#DOLLFL|L7=Q+=O(vytu9XMoLfjYStpI)!ypE?e$PCu|Z zwvMC@82J_str&!hhkGOTP)o!fcn7KWlzAt?yc@Ee+at@d1+tHKA`d=9hVutVv}=br z8=X&h`9OD^-Q5KN7ER&4vPIe0PhN)O{!OQdwW)A`efcWm0esH*@xur2J-B!G3);e@ z$C|QVA9628UcxDDz@A}ct}C0tXI(S;lO1qsOB;BsZVs>YZ4tb$H>OV>&7Su2v2ghs zydQiJZEx7)!vY7cwYuQ*>#q3Xh8w=Q<%vEeUg&%K1p43eLBG2`>iFdicYILbi1)8J z;=R0sXr6Nb4LEgKz=sJo=%49~4QZ!fk#QEz z1@Q>w8bic&=FpW~K`!@Ch>e%Hq>^i5s&dnx!vnqU)^kAZW8nLQ2X`pfH$@K+=c@jI ziWzf0FMlJle}!=#@%aUN$pgO>b`gHW-fI6rY??o~0(*(s5_`(F#BRmzTmD!byGB;$ zd3ADuuMIcBu5op-ZOqH8_umG`)(^migWn>~t|RSz8zkDcq0BcU{vDCy))hIf9K=4$ zp&9Y-f-I+=v;{p7cceY%gRM9(?2dE0yW!N1E;zaQUCjQpx_15CF@zdT1phMu-j#kJ zP(JO^qsRE=*GF3EMVS!hT^hK5RN3+6t>C+oXJg*V)fjcr4qyH1gYWKpqxZcN_?E}7?w`Py_r28k>Mr-;-SxuP zcQ{Hs@zD(z^e#M(@tI!uDbo$}(@tVV))|;*oyG3LFa+f%AuOMDGH&SBnoIB8$K$&X z)F|Uod+#B%4}OLA{x2xKd!KudiML>_$NkwOF{`Q%^m;(qf(m^gkJV@JbA%HTBhdK- zj2BZ6$lUQE`6b6J`hXH=jHbPpULS!0{;)oLjCDMQVAlxBeLulir}G8#ZNsZ89_$-a z4V#4vBWhsB*jm^(2S{^#pFYBe3jeUZtttPE1#RyJKl6^*KjSs+;I0jDDI{o- z;BUEXa-|>eSflkWxlw=+m$jv?<^#2kOFO`QZAYBn+Y@02zC_HykCAxjLnPXCN4#|p z>Z0xl-PsZT>s#RLR&rohZ%mp%Jur*)%NLqqn%xe3m+!^BKb{zx=Z=v%9vGG5j;UE* z*cu;zElB~e3lD(L1?D|PaIbvSMddTeKAXI>OxCw7z`eYyxLd&3Oc8M}zK#<5W!G*n zUc>n6Ev_@lDB-v(ql9aa#8uXzWFNwBVlS@={?F(Fy&e$Ug%2Xz5-XI?6nk)&@0VDI znj`W$gg>JD3%K?x{+{%9xy*cjKW{JWKWK;b#D336L$!XVu&v{QK$#m{uxf)dj0pyA>kjWtf@ia`sh_=o)pN&(3jVWx z_@okl)}8XabGsP+d#69Pp4l3nn?J=FtKRe>zQ*N4-yq51Tl$(`BmL;7NVR(($p^b5 z=0FdGQx^noVt*>(!0tYnJYfuG(-tgUxCpb>Z@^N^P1s?507q<&!0DhZyc}HMbKD&P zUOqVE>xbZgKwM<~v~c=LQddFz=J+_Sm-C*cO8yP!*Lk$H`GvX|s;V=@TrB-uUhone zlz*?s_3z;?uZwMvq5oSRpQi_e10w&52mCwX$z9R=P5p146 z5c@_~t5~>kZ?%KU*T^>Ju+6Ijn|kAq7-E-ZG4H1IewMRvpgA8`=mD3Hh)-L@9eR&GVmHQyx+824 z?f=#m@Y~c9UK`uMc}1(TVV&z?)r7twg8$^+9V+qHKDzUAsir)E^Lt$M*r0J(@jmhY z4wnvogDCqxNIdp6zwb-xn6Ej$;&=5z%8{lcK%eIm{(KSAE5m29b=5`W9qQ4 z+p9P{w=Hbvx5we7pThgV6ht5U9ubV`Mel2Z1eB1OcHw0|!N*&#V>%pxs;iGz`!liPTIr*Qi1%No@!0$YLJxe42)q7>Kh~Rm2Z!TV$aEkNs0%Wk zK11pe+6CH#D8`@zH@Buupw8J%4p0wFB?lHSS%gK47ODB+uASRdziT@?I~@lYGn6`N zK0fS~#5EDAt0cLw(nnI($t7O}=;JMF1-n(B!{@*>BsdR81mk&82Z;L-%Dv4y)cehm;n0q{ zzcY1z7vwlKL5_3FCmf(HNas8-)2RdE?R0a0@%@5#woox((ft7yow4v6vVu{ zAj^R^!Qn$B9i+|?JwRI!vb`P7?CnQeFdEZl%*G<>fra!5Ra{49L*FW$K_O2R%{i6+(yqga*!B(;H zV@wq0)?=&T-~js5_iPj_sOq$AB}FS@GOPdIT1+TIGMIqy4Z z`99YSUMT(XqqpFG$iiB1KeEm2sky&AC;zl%8l?{y;Cr2GyeZ|{QpBCH(ws2=3}H5X z5bN+gQe6fk&2<1W-FtIVyo3PsxD~Dmf6kyAy);eMdbo8dIjt#Qgd5lpa{N zY&qjZ)C2qW!N%HJ=>g$@J7e|U${zTtS~*ffF^svHvR*24D!I=RTa$Iws`fzQZ{n9r z{8n!dl#B|lg75FK1L8O6c~fze&(P}?@d4zs)tr#W9M1J)W1_iV!-w@ionf-h zadFQ(h}-iQ#O-f_6ub9$Pl-R{dJ^YJKSn(-*vp(xj!sRfi`%JKK+>^p#J(eqCTdjqkA=h`;l!&1mih_-ZQ#Vm{&RPljo}bE7z9kI8b`$MaBnM zQKuZq=l1J3aPT|CkOL{sgA@mHJ^CTXvoAS7eLy{sLA#(huut>=ZGly1a-g5`2c}IY z2j=NGuzWc=U}=H<^a+kAJzx(fCntE21F~i(byZK%o=VL$$&tUrJRZdXt~bcOY{|Ws z^;Y45=mOz@)S%PXArY+pFb67ZdQ~2X4G=$5@K-rbd@OVS1ak2l*K-aXb-})+Lt#7K zK;>m_q1=mqca&UExKA{|QQ~hu!GPGC;OM;9VNad!u%xY$`@ka$kmNHRm-e>enoV=! z$9dktcag-{ZkpX+bn@@ehWfRmvi<3_1v>mi<~#Gbrbs>7hVcQ~-@`pP-|v9))ca?5 zcE(w*|E(BUVO_Z$G>L8jX`$f8})ao~OG0s0>1oe;LK2Yh!A!q~CnF@44i z#Q`%j#tN4$!>%2o2lnEijWun7jswy+O*kO-K=R^)xppFZB!mO9Z-VuvRh&iiujm4i zMZIrW$pPXe_F3>#JovqOKsX@prJk3+)7t>~9C=Rq8^m+(=h>h@*gAT`X88{|GD&ju zs&jqb1c$~M!ErM27R)QgF=B5!*;HYFY%%42MHd{S&Odu>5mNolsINc3#a&GheV_#r zB*u3{{5|^nN1Je-MGkPjpDrA5>`1JekrVU>oVsvyLlR?wan?-{eW*Pm5B1>Me|MbO z)&@c5Em$M=<+3ro8pHMQw!?yL2U7#1OXp7grrcM>Umlm2YjwWiqk9bre+tUA$cs9r z3E0&Kq1HNEkm52B`5uE62eLi-DqWD}#(Cl~y&mYo_;W{G+}i_QI|gIym~ogfb0+4@ zo<)CPAy#r;ux+a)_E_zvUw8nA4qWiK zIX*ELxlgcZ%yqn$6?(r42aXYc84mRI?3p4(X`pav4%<6hTew=4npw+dxSSsHziGAmk zE|C57x_TsH55zZ=d7|Jac3k{I(c#ba2P$M<$vz*8>?_@`?1(OooR^c$b==dicXY%4 zbz^aSsu9=kOkp*OHhz*$=j&x&jw1K=Q;cCZ_jNceYYo>mU2$yfw+ObMkMy7|h<50M z@I6g9ziZDqeh1p`Hb^0^skU#?=Wjv0Td9#|M?GLGwxAVx(GID!1qnx*BmQs;L?3R) zxgvAFi2Yg1CXDs4Z|u~jr9;})N07JUDZ#UMbCYTrDRIAB?thB|+Q$!HDF@O3=6)B% zl!hFehO_%QFXWsh#q~$zyAMR6=U_FmJ;(vqZyAsNM#YPw_H||au@fS=hUH<=4`arR zr9Zd;3l_}hy1`s>VX5*5cCl~PUgqr_I&=s}87FWNzmWFe1nq%vKz@ePFozhw{PwF>OT_gD6V&q*GbU~lK(3j58& z;WCT4cOy+Xr>h1Bk$Gb6G)3p~8e+Wv?7Hs3(KsaD+ZNoXDozeyRdh0&42Z4bBYOk#Ho0oX2 z)a;RZ3yJg%W&fSz+3M^8=ZVBku#?^dlG`DEoah2&&&B7jY7Z)OfV?L2e3?&3&Y0wf zhlT{>i2ZRK-83A>XV-wma8os(bDTsOr>wh7HN^30hH&E1WvXCr3de=7!+9m;epMGZ zt^1tVFGOzWE~NQQLyBWx`cK~@$@x2^*!M)TEp0mIaOsZX*Kt%}uHyjt!1H9=rnC{9 z;~ip5kn20)2Rb5bM`N6}Y=&U2$?TifR6DS_LAllH8D+$0px_&KDfpkpUe6PLrV(v` zvLjl}W8nZ@LuisO*p`PJ9fNr0O zfk>MVs0aGvrx7DCVd5mN8_iT4SW2I8%NBBA`*!Tvy-PPoJa~}36m@X|HAhrFfgg3j z8P?f9r)nsOJ&;-papD({0}?kBT_E#=Jnm7Ex;vr^lwUwx^&C*K0=@39;DvBRa=2wJ zSbDL9g`S7KlRJ)W8Hp2f8Mph1_MHB`$h|XV-hHMaPRurh+YCOQVW9Zoy7YC*d`q~l z?FPrSU*e+UEaXNULC%FOyhr1aNj;h2+861rw4Jn-nXX^ZroXG!c4Unw-LVTfKtIr~ zG3|YGa)k0O@t}h(5V5Zr{ruKk*K5Ufoi+&G))?EyH7M`jwvNVO?>gpU-v3@OV=wW4 zD9=-m_ir5uy82vgS?K`sfuSO3)509Imz-uI*=G^b{O2IcZxZr-N1%W{K_PjNB*vcF#Huq4Lmdaa9ZDD^wUFOW3^;X!50Nc;j~ zto#CEFTTFY`>5cD#P+0?tLXe=TYiG)T+Z#r)l%4tuJ<7BUc_C7=PVv)8Nh9hDcp#? z$GVm{zNQP@H*oFj_+sQm9z{{~0b~WOKqm89cJj;J>omDA)2!&U26!uoRhrX2=Vei6Z|ov`CyD7xSrbpiKON-x4#?z2*R?h>RYHRp*+7tk-rtyn`4T~HA-lK8OVg@qTK|6zpqMVE-OmR(FBNrY{ibZicJevwSt# z8~GR3qTs@66kb?{yx`?12%LeO69bXsMGo*DWpVzL>Gmc4<`&fV64&X*HQ$cJzBSia znsGh1rHT=pw|Wm}%$wrewx-xJrcrs{md0g)UPlB2CHMF4-u$=7y&il0k=kF?m!SCf zryk&c(B?)R*G73PM)Jv3NDo+q?7;abI{7mSeSbtDeS&=P31|ya87qoD^a;*x??4Xp z!rs-xF-kZvegdXUnL=B@IpUl-Shsc!b_fS{?o=^ji5trtQPz)Sjwtp(KR=MQ1HEr} z`I62rkXV75Cno9UiL#epw}!yH{)+WP(FbA|B(F#IYfDZ02(IBDa}=Hb6TIhE!+v6a zls>-bcfnm`Uxs=tT$ooA9?M?GiS;eH#@dZ?{~02AAFieOq9o@Ot|mC3FxnQym(5Xl zekqEW-(D255?9X5My}UDPj5y1X}3;T!s%WHn<@qXTsdjS;JL=Ti{%GkfYyevD~qddZ6 z84^!!q%I%_PA$Zhz$qy7`BC`<5-*aNak|4-%vJszfm=J$m-z&{89yH~Y&0fLAO|K- z!ORK{tR)95%+0Z52W`Qg-Q*+4;_&!toYz;QeK%0L-g~YQ z{1;S%ABWg|kA-z{VpSt}Z)^*{&0TPO?I(!#T2Aaw;%?qK6em03TCxkSCOV-o#vWHM zS>VdWH7E*QqquM-cprkU#ADk%lnl+*5KhUrDeIXp5?JVYsi81 z$UMCSxu+MP_>_(Vg%$ClEXIt}s0U&W^t@a@%^w-iUX6$0r3mxaDKRE z%^H{s2exlju_Dm}2M$=PIidqOAhBavNA#BY0prF}Q(OA*gwQ6)TB5{^WdEhi6(vVY z;st5xvW}3YxFB;z*~csO`yHJ<;9xllUJGl(cANoR=+}#l_o=`=(5yNF7a8Lu@%LU( z6W+w$Z*v>w!gaw3=ETPNtVT)p8Qd*SpzH_XPPRX8q&^U#OhFNSn?GXWmuNu8z#-eh(pokYAZUcI);p+UyulZH&(b#QSYT`suaEJF^f) z0pvi1UzjiR1NXj2V~im3U@x5B)&b!*U%_(OPZ&00EGACW*#hwg#1;q#EX=oH`&LWr z-fe{g`}g4h*N-GlU{773Uq29gAb!E=Qvqrn>HOKVs^`LG6)#}De$Ex+xhF@(j>JEZ zoK41%B=^AaxEGFDjDr7?+A4nIJdH9w-$coK;G*gXAoel>%_#qiYr%JQBj(k$gTHxK z$Xa=f_Zng!gnPy8<&ztNk~|sba63Byx6?gvE8V?<1IJJtu?^R_7rvOIko%tU0_V|Z z9!@`L08(7ON4x`bzigTJyQeMp^>)J9Jw0e&-qViiVxV0y@jESRJPi>XE}nA#hhlrr zV))OV6Z;B(00SR9_yxt+@0TSJm{hCHx-)M)E7G2#@nz~>$^10_VBXAMthFo7eJ`{0I!-;=C?&Imj9KN>j zUf-&G!utkg%O}u2B!#Q_eM(%||Ek@tas!E%1Il8l2gDyp z4xr5orcWF&4OdQ%Q#wz0kVoHFalqzFa-bW1-A`e@co>HLG#-bAHS_iC z>FWh9e*woBvvr+Q6aEWLA$W`2i@w*({izjo;lJ)JoZQl$c@6?iNL( zBsZu+?kW4k{a(REjxhCD#{qYgh#p9B!IijU${#3T9gHH{ft;Wvj1SF0GVzbH?~m{! zLzsKl7pE+`YsYpoC|@6i>IxqT1WdBx?? zq2z$?M#TATLfV;i)C2QzHIN(#82?us5E~G@<9$Ti^um^?)#u?fztsDa=WHF0`zb(~sR7l9l8g0mJ+{1 z&bXfLPk9ek9JrkyiaU9<2L++bV-44FfVQB7IzW5@%t?%Xah(z5>GFL#Pw;QosPnR&&C zxZqnF?>MsRtr#`@n*=8h`k4Bqmb_ zOk|u$VgyPLD1TrxW5$+@5o{v|XbZ@JgB2VQ9;iG+VyxoF4OUum1#dH3T6BgfGWOr&2piLt^bdSLTr@drc?Jf8!?0~r!Kbar-uGkpXb<{OxA<67g!pA`1a zjOm|PV2U$Kj1}gBd*vYZL96THoOv^Z@8BBi&iCQF^)q6>5_bwCXv;m29&Cw>&;uxl zwo`bDeJ{!K)9Ha+av(31kArYGU;IJcSUydveFGAG|Uo_%@3FJ35347A{H+)$wh zmZI>?Je@xvaU$;@s0W51oogcz;uG%thLQv;3#F@YWHre+h~cy8%H8=)oWbKGvz$42Ibup=T}wWULpIU`!BAm zgD}gcxVWP|v1cyJR>m)V*5clkNL)$uMuIo%$3}^X>1rK{we4+V6QuXih0^!{OT-^KYj6;&#qyCI8AE zkORVpTRDP%Ag(0&ATQblxlzZEb;%aVLA%OV{Mbsncxdy|(_S_+i1}Opt=Q{1SXx?Y z$o>aPciq2NVjUS1$9fokkK+B!wQ-COWY8bT4PJ`;(>i~kz;C23X3TZOWT$@Qz_*G6 zaYw(QPdF0eCQjoz!E`kzkhS9{@d5qZa69|7GDg5yp-9Fh}jm5pA?<#&jq@>#|D4bT4@AHp$CK{I8RHJ@)z|Ibg(E z7%C6t?wyju(NVDoI_0a0B?l7x87pRtDEBPqK|%9S94PCDv;}@6P)H6Wkpq!-y(xpA za6P0a%oh#CsIikVcg}3JZY=(Qo&%Pg8*XEKK=KH7@7hVy+GwSTG-Q zVFUOrdkN=OQnzoYhwx4H)d<_DB6Yk z__Uxv_FnQb*TnmCZb%N~RB+(x$??R06bgKYaeZtk(wS=-akww@T|Q>6)Mr>VXBb9~ znWQ)%>&8_%AnV6FXbU9Acrza_Bld?kjHD0O7@kXr{hHTte)Fq{uxN-#%a;+saoM~9 zIq)JPEqJsb_SE;XE)l}`OM>5OJiL*J%y3)A`B__Sa|hPh`jGn~ze2cmFGL^x60vUM zkmNlB83D}k5gwdjT<6jb=1d;tJl~#Nu;W^wD~ec?zL53F3plc4eUTgQkMzhBSU0wl zcI~K^x!`VDmUwa#QUX@1 zI7mU@OvVT%ppa|G!h!q~-|IMVsE^`6EIF`d?hhC-dIDxlpQh%7^O#?*)(zLMC+-`$ z=V%3H&tD3MEyEB>-~Gg@*Ku~!UvSBy5pjP_VJ;k~I>Id8rra~;Zv6#gZ=WN{Zw2mO zV~>_-t~IXV`re`!;k&L0h z$%b=0TeSw57ww3gI6q{?_#&IfeC~s_nAEv+73-H~B%J?Q?z5}Smj5b0{~zH7*W6VN zg4?&Qzr}v3d43+w!U0VJIgoU6HL?Td5&x+iTr=>eKR{ccIN&-25r=w{13j7Z-WzM? z{D9%3CSV%l0<&h#W={q{|)Ya zXZ-^!a)5heBMyCr7<;bU9UqNU@5x;MUdUmFoHO(bSf@NAWFKP$N05DS4>BX1sPEm8 zmvk0xR#P>zzkUJXCl9AkFREJ2q96Z}d-~t@H>|0x^nj-9{@Zae5m|ojPUL`v(gTV9 zt5p8L)xgP$1G+qd;VM>?;W}8wMbA?=i!E3^cbJ+R&YUq#$-m^4&Yr&n4qL|}Y7gVI z8{Wl*t*nQzlY1=oHAVb>?z7?k${6mqiQ4f7{k+!@&AnHbxpyXvaxXeR(Z>wGQs);W z`ZI^GEe=kt4JWf#;kEQ-oLK%U{MNk=|Fv8LuxNvjeIHNopN z@)g$3AAyNe=?^lWblilgus8pac)kz+O>MZpg0-@kE0tjL9`~xYvwqm4r2F_ z3*37V&%D$K!QSdqB>OMLefA~GPdp7b=5rjIQycd4UWMK425?(U{FlB;`6vGC-cTF} zwB+8cz2pw{#wD&@#E=8AT)&BSpNuHadCZNRhgfejBm`I>C1{(96?*I%qmg=_Cl4>o z&|`n+M!~-zu3=bTq*Vmuckk@bA^91tE{p-m_{ zIacLLWY88wvqpxdu_Q?%b>14atW&SVKuh zf(`Wm_t_>`cR=Fd51C6(d%utKd+){g0C{lUlKWow_Q1t`J!wCqBKJz?=cZl$|H{w*qrAIXRG{<#??>aLn9KPA&N~q5vZO59b19Ol za6svSfJuxOGT&V30j`rA9mKqH=F=bi8qQmWaBoB}oD=`R`eWvte#G2k)<$xApE*a| zBhP&^Y0R}xwQtYoKjrw0d+z(;^5H(z)AaRjvYvl-1UxrtjKxo z=al=J@Ufo9y%cy&?o)2^`TvMD{6C7>zxw^zSvr4!_vOu`*s!cXM+;nVUZRQiTvEY- zc_<8=uIzzYKja*-z~=|&MW;lwPmbGIPeL5!=5;6#r1oep$IuP1-45+)y!v~ zmOwi*k^6>n{}MwS|4+;Pvm7e9byKegnxw^t=lR=j!5RBSWiehW$bm)5r_N_?@m1!N zT|G5j`2^^70xH~d`2P3eH`ud zk4QPa2@lwt=0;H(_a*d!)z8M281!1JqD z^7I^dBP%&FE6CkSIG~B~T1tOlIWo^MXD(!!T0d0zw9KQGT-qyVX6Z)I9L5njDxaTI z@%n7_d_H3f*#WcZr~i!9Gv;_u!a9yu)8J*<2itx!!2YQXDEkd?Xol`6agJ(MrW zPfm~Y{y*vKJqPaRK6U@zZ9NB?+$ze*Iq$X+r)_6zxOQBg5U?3J!K-jJY(0uOu0>dK zSTMi($+#A=mHAa$E1#416kS}W@-B1PTOf%&1=7y#p}o)K$bjF@0o>bTfZY>b#J=b_?!)H#q7ncsO>7>O4b}RLJ#2qaeq)!0H2+sxre(t ztR~dQ?(uciu$lG}4paUQa@fw&VJ|wsnfSX>2Z$XIKR`cR7Q6_zMGZMWq@N&r{}wgE zfys3=i~1PDc6Gnxhu6cD+(!lO`xE=8Vg8$EtVgEq7dg=E?v1?23vTNl_}ffFVxYM; zgRzvnh=Yu++p64~dudL%n|@q3(p+#?2G8%MF&`tv5m#buxh}I8IgyUE_mumRLIfTd z&wbq0iFv(>p~L^+bmCuO14IW@wE@C|<7R@jjstQ$zUUS8ep|)}To%91ntt`mmV8%} zvFFi=5AWnFKR?WC^PkxNO|+l?;xE74GrE!;sbb=JNkOA8xUR%Wn~9nf#?*2mxwj_H znfol2!qnigmpqmT2TGGKI+y2i4gE^8Ke0Z=9E)IbfH}F$!@ZGlMm?XG$oxC@ zq`t@aPJr!lY#dTc)$I}Nw~eX=%b#lKbU+mj?44Lo%>e{^8KMIu2CT47VmVI#xc%n-O|h&Jt#qc)H6 z`m4#l%*Q>){HhDo1wpu$>d!TI=3HG#q2AAi&*4>AOWnNrhZ-Cv3U^D^UltBXE#93! zzd+fqtLkv?om8JSI$x^ffcOD2#4iwCAh97mHxA8s8Eg9*lpZ#FAEm$CS}(sSHNsb2 z=O6oZf4=+o+=0x?&g$Nl+OKlV&B7ay&w1lYaI`S3x{Sj#G#qQ zzMny<^_&i%p0Sea-}je>{|yb2AGlqb=XJGlrmp~T&ShwU-jP@W?ZQQc8sa5{J*Lku%WD5Pkpgc z|LZu=P~`rx^_-5#i4WK<*X^+C^J))n7yqAH!~Y|A{X5=!EyY{;gpY5a`%zb+5l-KX4XabvCdk0#os1M6$&efxrTK6~h`8uSA3ug$vrwUjR){=mkeHK`Ls z2bex3) z{skWEDO<2<*o*ALQ=`HUkeI-exS-4nthhd~uD`)!oB5rPmlC>NE-&1B+n;{^AHeC~ z`PT3=4wdWaJbV2TYtya>w??8`WUF@cdH^WqOy#0SZR%|i_}d#1dFi>@nn$nO}}!Jrx&5dA6l z|4vZ<;AfX|j#<|AIBKkyQ^j(V9op$@U9uQ%%*gg7qPC6^T8^QYYZL1_NR z-+sF|*(l0kxRLkD*NskX?WS}C*OK16el_DA=Jxtsw);Nf^zJXpTvxQf?y-jK+hAO_ zVTh@QwxN8}F!2-XVatdHv<-%(HpD){efc)|5o`M!t9>m0<3H%nFZ_q^K)I&GFem(w z@k#TZmHL`oFurp&ZA^rl*}@A)r)Zs*wPJsc*RXAbQQ4XS)irAd*3hi!Z}`Y=VGBfh zE?2P~w@qIe$M|ik{EUD2g8ux&|CKxN_}BYJ34!KD(H`@v1?}pk;&hMh7gr}2YL^rx z?uhi;8sNQS@EwO$AHaIX8)YtQ*w@5!m8D#)-JHhNOY$!LiT(cya{rz$y_$N)_`K}| zKN9qwoR`aKm2-7UXS(9wou|+FRqCH%#mm7@pI5w_PwHN; zcvXKM{N#Kk-=O|=l#)hxq(&x{+~UU8(#JE z{@%F&Q1$)KJ6A|o+;VySZ=DNZRbT&?pRau8^LhS+ExgEQ&wD=e`agTl8~W7uJ$ud@ z^wjImp7Vx0_4?mEU-``Y|K54eXWswpIg1`uV5vL2ji*ix-mXdqzEtn&%QdJM{Pg?l zt$O<0^x5;^XI{^J`uy3?fBPx=P(q)%o|RR_ogam#ub=mORn;#bKEYMbDPT|iAPVeL zU-cM;b<_;WVI1CLM^Z)$UOn3Nq{h$7o(J#L|uErXH z)sxe*s-FwFWZbgFN6+=GwB==W0na9y+upPDqxNnO^V%5Xb8ueL#p8>-QJ&F2uJJ}j zz;plhUvd4sSw>cqp*LJm9&5J;Ct2;M>e@ss}u_g4heSpU?+x(rI_CB07 zc^}3MpND0OX0T?hW7+BBTUjH1&U(4V}2)`6^$@O@^?ak(1Wiw}ZpTy-C-~?il?Gk zR@SENB(0l=yT<+KKDce_&0Hs44d_H)vpTXxTCdwQFDCwT4q4MetgqH5@!fY7Gq|%8iYq z`Py>4_4YU%wmk%QNBgn^b3Q<--|U|RgD|_Fo_h`Q+Hd{iHL2e$M-G`oHss$uh zb1yBunO<0!r-`_n$vSkgShV;ediOq$#!Z7@Vsc)~3ckF?OB@j#kvxwqH!_MWuWlTL z>LxL$Ry`JmMzOr^co-VS@o0uO-=2WItaliG?zDFI6xL4OH$0l(sjmIr_2l1$f!ufb zP3-yk7JJ@oDZX~~)UBJjIoUbczh1tS$=dqqtht?vpMOq9_Z~@T)F@GFViLz|OyG#; zb;j@>N0l2@lk1G;h($HyI2ct+;0=+%#|AN|ZWx1Frg3<&eiRzL8HYM`_v4k<#*qJZ z$V`pL&gp&1?HBh%PRN?i<$5BIPyJmO?`fMhy@MuAuH(%&3-Rh}IjH|)I*d&d)wLS&T8((E)p)JO22rS4 zJqj<>kH(8{#i3z`3^eE(f;T$3qeX`>bnO;{k9#Jt)_^m@FI_-ZMj8$*{JzX;%17+8 z{N)k3{@ufkf7kWLL`JIXFUZSxj=X%4z0b2Ab?kIk+pb+1zemG+u0f9vWIRU4P7lfL zJ80hYI^KFUA1~L-e53d{1=HaVU_9XwjHYX0IFn8atDPB4HobJIAc@|vgc zIGNW!Q65t$`(8$kb{3dzX3jn}XH{P!=}#orf3^4;?AA}hrV*_)TPJph_tpV6a&25& z{#_iB_vYl}C8npu;(XK%ZL>-D(R@iM-dv->%Nw+Kabp?ktS>{Y)nzbUUIvpTT2x=8 zg%N*);X+>Lf^rzn=e5q|aV7_Gs6Ode7*BkFnlm1wK7Z%yGxK54aX-wKZzbPTST{dS z^-+jtE&bwaH&{1$7M2fqN4sHUXE?3?O7^!Y?%d3e{Y^cj(LC1c%`C{H_f= z?sx>#BO27Q%EhbGPoUk37<{((7YsTI^xeXJojyVA|B|Whe?~?sd$`8p+RYL;>{yC9 zU%Xnrepm-s&FFgncCLr2w|Cjc{5NIb!NUhnu0Jm?`{tEAgr?uqer%<|SNk>ie6I$* zc9-GfU6h5LW$4J!hQIAy8x7vHEyF9Wyth83Fg;xg#j>q*|CGa}D4dZ&$f?2OajL+oL#zkXxNZ|?1Dg*caTNBe=*V|;P66rZ^~#+N>i@!8o@d=REVr)Uk{i_@T4 zvIcLYYVmSPIqD<>HMxt~D4JY~B&RNyp;{b+>2BGS-2>>odG>iKEg?q7vsW|JFVKshJhBfqY(C<>;QHMdvK?DYYC;lgsfsS=xYAHS5GO zs24-|jpVpYdEjFsr!*Lh+lvooZ$#h;5B3;MrOph&`Eyb?JV^Btps%8I=yhKIg+Mn9 zXiVE@IdNKTN+{f3v?x9!9F}SE4 zg9^*>Z9eb~N3R^9M<&pjl|ovQBhA>6_bp!kYrNktU%G==PvxS;<-6#dUXCx)OVMz9 z0D3Roj>yn+>{rVk2fW@$_BFY1;T+DKI;Hw0NT!;IOd-ys}i($OyLyLePI0p0D`|{p@ zol}bLnGew}y#!5DiqI%I1Fw+3^)q5n=h6u@*t!5;96JK@glrtnxenL#T$~LFK_dIP zN&oL?UVAcietcY<`W>P_16arV+`02eij6@3wk8yk z=gPpthY!{Br5er0g;$F3=+=#LhvNJABP?uMnyUKKoM%shEb5}Z?O#N{)da+S|7^me-2#N?|gZbAL(W=>b*`IjG_5aZP`F4zTfz|bMo-(0`J(tRF-_fkQ zo{xsCx$`dfX1&AFjHAi5G`w0AkA{Wx#dxff9|e=#OEAv82t)4mG2k!`ccUE}inkVw z!kLo+?DNJxzHq)1sShm)ydruiE3|Mh5u0g^Bjt zca5-oc$<%Va4_TI{qquKknYsEWKWcS8imY#jRX4yOoFLC3$%F zW**)yPQz>Yv3NNr4E55^p!VfsXms*0+9ZXec)PJS5P%nZP*3CGbO!Wu7} zwLs0lRWN1k1!M2IFmav^gP(h%{l-PunURU(H?H8^?Gj{Py#mhTRDZ3UoE-Mm$yC21 zFOPjVdEI&ZUHQ4Wh@~t3HJUPhb4WhG55xp`!G$gyuT3^^m&0k^;_66 z>*Mos{Zuwj>7fS??yKv6{P^+FE9}vTM;gt9JU_e;y&11ZZ9#+ZwRnO3bxeYJ&8HTi zy6+rRJ24y8eR%z>$7JyHM`$~#9}+@BQA8j9Ht+LI%8~Q{D^NY5@_FBLRR2h^x5D}B z>`UYlS8>syQ(*JwiU_&hJUtiS=3*OxxyJob(UW={W#Xw{}-*{osw&+_8sNewuJXibLYNhaEb%%>UP>EE4&`N6|Y8FqW+}~s2R$8AG8$4 zzVmh0?>+|xV?RdgX@lYK%i5vrV|M4>J=L@HI{TPOKQrNtT&wiB5}%=fkFQYAB_&a& zX@k#QxQI1VKF6YO44D6Fs`6gf4l=~b!7s6%8T)e{?8KUO9W~A?T4VKu&o{{R&mZt+ z^(zG#hLOR(df%Z&>Ep*i=R+>S@rZ3%&#*msHDwoz_w2@-2|Lg*Vlx_E+Jw67b5)DI zO-xw}&zO7et8*Ak?TO|i+3Vxf8QftY=)sKtUE%I>l#!aO+ zrI(lI2|r$YFD&oNYiIvu;mn!=23YldLj>*Uij-rWkYL-9wE;V8&+cf0&67H39}Yxq z`3>@qagVx>HQI%R>ETyH?8jlt!hYoo%~qmI)Ly)qy%)_h_M>^$0W{9si$-a?Q7_&c z#+TQ?kUcu8om+|qtT*t=nN{d(wG>x#3-Iv4ecY|+6)e9)^^ax$K=}=V!FBbxh_)aW zekV_3%gkO_{ha}?TlODS$ENQMv1N2)_IT-`dcbBnwnwH@XT;lfMubgA?SVP(VZ(xH zs_z49X-`g%3cMS3d=Y|ob}tXHY+inDTU%^jG!(-RSfc+G`Xa?%7<DJi73~8i?%&I zEd>FAL9m$B3+s8WxBq0y{D^AIk*Wjhx!n=6zbAWFvp+SjJ;${Z>+5tv;?XXwfz-Lo zoi#I8jP2p3yZ0Cxf7Z7A#JcvHWXEsHvYo#{BKy{d?P`l%W~i|Sb0ixP?DMops0O^imP(Il3{@|$Kfu_Ts6qb6!J#u61#P(+bll&&-Z z1uP&PMNo=>0)oK8BE7Th(yIt!!NTs@_y1-P|KRoB-26B9-t#=e?4ISE`DV_XIdi`E zoA*s7Zqz(9Rmjm^-$dFvw{ZVF4$K z>%XZ3s|&R`d!{n2_4JHv9M_)@w{;?}sl+sM{fJB9!ja{;5xfq0#KBkU`!4C6vc&oi zarBYSX}<3a#W~XnFy1gL(dDe1+itD5osT<;$4~39qD7Y0c_U~OX-X~^>Pb7TJm5=Y z9G?Yy!*$T!s}Bcz8`6$F#kC@tK42PYM(5K!fN6rV=PJ8L*_iWG51g(+C*1?2SAp!@ z0-Q2g1n-R^1n*QwuqNqz?9$fTB(2We)034K%*McG z$K2W^aU23??bZvebSnnM0{!QE5po3!%=r>!8K`Xaoxq+n}!l;JGVXPr0a8S@2vy*KKbwL zI&`!(Hqg>N)Wqv3nn;IDP8?y3$IU=zJ+^Gyg+rF+q&w%vwdtAmXiRi8X-y{5dwC|G zA6HO4#FAWu*eu3*O%drwk!F;^3y3m#6<0l$5!W~AK{jTP{#PVg3(u1FpFQdmw28-Z zCG!2|3bFQ+hy!{`gPVghx82Ej$3L{aw+;%W>gjc;ud9_8B%Gi+=qj3Gf8m7Mgo zxMw{!|H|rM2KQqwTqB2R<1lTcxXYJuEinNXqhb+cy@WJPMMy9r%@bn{#F~#llIM4{ zrZ$T7tx{<{bt-9?P)@oQEd{<{nzqtd9p!b;#jxK#qtVvHq^HkV@8>r4+W33$7h?`|TVM>+LVvG)QP>u#j$up5>ZW^g;^%6a_*0s^=m@X0d)@T0N( z@_rF%ISe8m|3SEBH4@iPuO_bkP}E4gI1fA1VPN&RU7Jk$TM@+3?4^XqUy2 zmH=r8$dUwUW*|Hbmo^;Qxs<_oB7-$k|EWIHYxA>tYg-2&r>G7ZS(3~XnU{}~cBj6g znd-ne)iUWin9z0Dp|uBx4_V@{wFCUEh?n2$6-bVZ}?3PHlYz+AW8~l{kS+?T#{YQOci`upD6TBa0 zT#GxJ5n+R>*gf4XS2b0P13UfXGMuwtMtbnGiNBI~Edytwv9+zSXboeY1b zXGJ_kZ2Y-mHB{Yb%!$DGlkRoGlbI?tGV{2oBonNwcVesOLJ3$+Ie>!-j~X=W9>7k4mILq z%C^GOs*d8bxLq26HsY0P$o522c{2Qsro-jueiT3a8gYibLL5QF0Y-e07Ys(KLiP_A zJhVm&E_>$mw7ceve@nYRTZfjWTD640p6ift$>ygUQC4UujuuFtOw}Qe2h%ERsgl6= z;7lB)dD`(Ew6>AfxiW5p9-fO4szANrf~VFS!by{Fx$VcaX8l{+{n&@7C z9XG%EAGQ6rb;$@bCffIV-}L+fbHh^IclNwo85o-@E0${Y}1>`q1|; zs2tV}RMMI`!EMW6#j!2J$o3Vs>>T!M`v2E$@2yMDMWcR|3EEHm7)3)%FY9f->^Ser z8QpRB95)V!?V3S?>lW(&W*=LzW8AilP?ubC=;MRxJ=cFL&yUdQAL_88Pn))t1iqbg zX0wft{)gqEmUDQ!A71;idS$BDpJF@B3t&qT2$Xg9=edePlGt|^nnZag3t1A0DByzU zJW7qeKQ}jjvj6YpbD#YFd-<3r|JR!j6^Y0U3M_smr%{~mr@V&!PPqlksbzZeWcI!H z_uk{_eB6FIKdYCB?BT&~=2Tzyo&Heud3{-k7jK6e7T4U<9z$79Cm6$WI>B6)(+SL3 zP6rb5L@8OVC$D*uQ}gouDvh2T&Maq>>$fS*qx3XRYZ!g`0~^I%k@k+VA7LQsa(TVF zq0xD&@$9~64y8u;9=<6Kw+diKY*?%LyZ!3kox5sHjScE~ zc_r$)x{-a}gL_LQpPYsuU;@zbX={7Yy2PYZXAh6qI0OBds`cw4yXVb`!PqhJc;k(| zaCGrf#Rb?P#p~P8+3}g7J9>LJmMG@|O7-5IL3S?#JfAM^b<3U#! zFIS~hzSP>%`fF=zt%p=vla!KD+v4wEtui*L#H!ULc<=ojibau787yXr#sB0{d`&(} zN_A1L@M6DQ3?4|>$6pHRe@tLv;i?kH1mN_(IS<>4940Uuvct6grd?~Rdvq0Qs_VCw z6y3mKE4gC+0>ZUEzJrPH-BXPk)u|lu%1y<~FV!iB45$z^L-x`A#tiX|W{eqRVSnH@n%wwRZHJvo{DMY%lof%%FK{5VUw z^^;+6+&)9X%BQW*^(SnVUys)2=9Culk8NvJC|BMjT$H5KNCKh*+}@sPqhz}3v0VDzqSLjYML;yT8`Ibg?LFSfksIp z22@duW%Myjvfqb9aVE;;Qo<`K&WY-rn{$IOSE@T*`?TvRC@v|5>5dindaOv;weWQW zTP>f@%J(r@$lF|@Q1Y_r-q7g0b*rw1e4Nvpq{8Uda*SyuJezRgp$$10M4Htv)KXk$ z)pe-Ju0cfcs3Z2RCvCyr`*xe9EOb>0}JE<%H9&Q6nC;0r1fy+$4A=!`zf9 zZd2j7YgRBT`(|UcWogrh&Wf1l$b3`b)))J?MC7RAO?$ZFtw%oJ8D)#0>O1jmh}#bGfMRs($woSOz+PF9K`~l>7&3s%F`lXQSGz;d2TCjKXKs0H8XC|efrl^!O z*;~-veh0Ys5cIqTX%urTpcjL=+u1=eN_P^GJC+#gW+ zA3_>3LwTJrEN88$Ri?W8-(YR<;QpPBr3nrw4p<=6p8rZnah(mrz1v`8??l*fFyaVP zxj{I7IgO_*28H20_j<7)hHX*VZ5>^>;A0E7_3H5dRYY1Oqj1&p2huy5g7UND2rrpT z=|iQ&a|%56Ol{b{Y6XwqY?fv5`|x2`=Ng&#DbL7ts&>ey6emhZi{#(L|CXvr+5@CLm z1c~QFoYJ51z(!B=6IO3~?d81eyX|%S9-w~sRYOVq16i~tnl3I@Cb`Xp_RcLZH9rKO zGp7&{9)au0*ZBCx`g&_i6WZFl5FhFY|Ly${MgHh8{g;t_$rLSl-l&b=PQJ)RC=Hk< zNXTz@+F<$vPe=Q&SlLJSF6;9QBED#DgOY5hDolDHi`7L-66R&2iG( zlWT*=$HhS+PNRNaj+me$IJf%+Tsa^@wCP9`##!TDa}L@oqtHTJ<8@be3x$DS!{^|X z2gX~M@v<#8f7+*PW)Iuw*~|A+m8KU2D3S$#I=i;P%-jOU+`VwzUI%fe!;x`V1L>rd zSr}uCT;kIzjn+nE?rGvujTLSYujW;M(=PK(vw7Kezs`Jay`Qy%@DcuON-a|kPmd4G zlG51Q7PnTB=&=|&yR~rCdw8d-4_Whb{*rTeEcq@}b z55dFWTR!LUGFkZ#>;0?^`MKHLhP0yY;TbU}vMMegz|AWg73rsz6Mi%w)uD4}Oqqwu z&x*7TtIiF>y(Y=y_PQ)(i1lJPtf6sE>s8KaOPtmU#)sg&|6~4q z^*J#054HKTW%qv1zT(}lq^MHu@Ry=~bZ>`Av(6FTx>PV;MC1FDR}Q3ru5bt z0e_Rvt=Mt4Km57=ue><>e(b!}DJBEcgLiH9)qg+wgw~jcjO&GX-~_j=!{BQ$(~|uU z#ccdbZO+c|ye&7zT1|3Zm)pU9uS>Uj=aR#G6EE$F^=I@xuxI=1ejKiz9c{(uRP6ij zZ4?k?PBUq9B#Y*f>tQbWJ;wB=8v0CW=yQ?=?d$&}saeo`nx*8PeHwK9Q0B&9E{y+k zUy!>ZnOqe$TeCzK+7%+({6;F*CpJ)e^U|cY=|Qp-#yKaH(A~@S4L;;s*vK__$*$foR_M?q*RJc zP8Fa*vDG4eKUe0e|y#(vGWkQ>DHj;PJGe)NHM3W6Ytct zV31Ub5f>w1ky3z^bTRU7P`p5Cx$3ODEq%L{Ri&rU^Rd1G-47qrJf;(m9(JR$qMSGzN5fZ}G(LSlRyBlAMuO9{M-Dsx zhhrIy($vk(N&67#@ReX!*2<}1y2;`CHip;Lq;mk)6K z;KB{8{`prt`B+#bE8WnLVycXAT%s~CG!}wGBgkJ6MYz>C(wv<@8t*Zxu7*TqcE}bS z)1I=K9UE%$9`8S;Ngh0xNHQ1KB^ut3bon0U#(KhK>xraEIt^)Oeo$4$>nSV5z6kd` zxSbt)?aa15cau!q!+n?@A2LsV)%cz)RtGI9dde7=WkQJVKxO2i2{>o>oh~~z>d5o4 z%951R{G6!~cGDY+BU>X}erC@BrSIO6@Yy%PkR5x`_KQB{vVFhZ(n3x7eR;)Kd(4TQ zZ<)And%fwzt}#d1{{$F+^f$-CnS8S3XH8~_j{I%1pu3YL8bJ8|8v373=8GLee%QIx H?f}ZBh$&79BqE=7n^j2`F6GU3XEtQ~FxXng0jdC| zNC94p7gM_cy61pM`VdCVBeXtz0E6)<#1{*2AmQWoK)=W7NZP8mgA7hgHreq}pB2O~ z$YHwCq0&P2_z{@)Hgu`fC>IH^F^2mxXMNB-e+{_Ysq3GpLAn-@wgFtF1TmUcw5ybO z*53!6t_NzB3TkZ+#Mdrj-RFeNmArj^zjqY76Cad;s`i2^cOdL?CQN2C9797G=`Az77=jL9%y8L@@^V#L-yf23z2zgUIylfG#_szSg z(j{{ zO^HhN=YJ?ls>-6eY7T1kbw^;nvmdvL5^&?tOjPGZdUMkjWPHdoQInSbys-EFC3WT5 zbQJKp5bd3XQ~aPk6Z8ISUtj!n=%4%NrWdCNw-uz#Jn?V25D+wQ>mTK*5Ek#j9X-gN?g|@aTT1!#%hqku1C@OX#i6x03B8wnm zUlN4Wz6Bw%gsdczyz~E_xo=+XdwEY@6z%8#>21Hx%-p#%_nz-PGiR3jq9``_Z^#e@ z|GuE~4po$LilWp8kfi(ta5^6iaIV1dy+SVI-AP%jko&|EWIxWCY{%M@f^^3p+{t-- zNpc+TMh-u?AolmjZQgg40S5 z#c`xtMIaR*E%+HYF61caOb_{N+Bm|gK*dr4HAFq`o*p!I&jgxu;1?mC{&W)M*n2t~ z-Mh=u(nfJvHcQuKWyCqH{&$LmB#T$IBzA`SJJj({Y_4 zkA<+?>T)E(d0khPC8zQ3sXs+beJ&>_#|s>-1(s7D*)=&bSb1SJo4I!0eM7$}o}89!8yp|3?7F_oY4-6sW4c5S`>S?H8(pb@ z7g3kqW>Kf5a&4D6h;w$!9o0NDm28{oc9}Nc+62M|7eQx=;;C}Qx^(p^qd2cB>Fu=2 zgUrFSo>J>;Sgc#-MY-P0RgVbppuZo%m6k8bg}F3&&I*ZkGj-bbnN`3~HbB`q*}0K- zV!G9edS`;6POifetf+&Z%VvoUIj<~1wzKWCy9IVHo0^+y8+3V-4Y>N~lOto#HHscU zB?4-y9O<8luaP=2k|xhAc@=Vs?E__j@(}m?gR)R@V5Xo;M~^j?#<}{GB}Xq;0JbEg z8b*6a4A`8g5Bbg4Yvx&z*Msk^-o~cJIx>^j=oyM|p6$s2_Vn|%X_diICgtiV>tPl@ zqfwngUs5+F=Zadl?JT?08p~>y$j;5S*`BbY#)MOU>}e7`Ft5h;H_2|9BY3hGoEBOx z?nCe*?@RyO!p=Nxbjl3no-#*qRR##2JWBdk&vNlDN%qT~h;5st3_E(M{gUJfc?C}_ zW!Ut7N(G2>sW|UpsxJ|jJeb^{X*t%!nJ4%Zsow>St_YrDuVf}(I-PbouVB4+uTA-} z6qomBLBbzNwViF}5uX#P5kjVb5i|)B$~( zeV#I0xrn^4fG3-h{?$B6_&uNMu)-M}nFp6EdE#&hzv=>o)hEtd(uL$mo@brNG&A~f z^DSrAjwMeeek@lEJeBEid`vZ~`H*#+O4IsrUg}u-1h6TOjh8pN`JD4PQp~$-uG7k5 zRBY{YWV@8@$u2*?NxLWP8s*FK3f19Y&}qvq9Z=IKu5A~e z3wh1FJ(=nS@j83-{sf;h)ssGMi7U1z`?0R>;7KWUbEm7d&tfqj*Y}9~;QMnJ9@E(Wf+-;{N*H06rziPIg&xqEPbTl4(+r4xYzn+(S?r&*@0uoT$9|zEu3)^O`ZXSqD&)Our33su$y3!+zZOY%T%UZ;jqBF< zAXPN>%ltZxIMUZ)^lbXNipX3$Xn;gg-asS%u^zXZtC+CZ6 ztF6L(SyVGY;*bgFnNBhz7cj>;*^2B%!}5hIGzrq z3Fz-%K7;o8q&-#N-o+~28S3#=_}SI+Rmt^f@4?XS3VVP(VGb$PVU(*!gF|0fRhQi| zC&82Iv$Nl451$S5P*(bYY`f5>2j*6+=1Cc3W5g5F#q$|}g9%h7O`q999PeqmvPj7T zNCS>@dK!?b@Z1l-mx8bSIXdP_&t|S| zD&T>+4y)>dpAA3Ip2}^k2W~K5g?O!~9zx3U)n`&Ul<%M2Vs)N^dBPZ$VLeaqJ@lqz z5PF^@Uj`{MSm4E=CwYE>l5I#c=8DIxd@hUI4dzLO9pN1l^G4w5f#j)4#HUv2&QRAv z<$+o@moH#y(?+%>{BpKIPsO9|{!gr`i@9OH-FX$}oP-V866O~4&ymlKcn`!ohVWuMAFRrRgh6`IQ$hhghXM15e|W zQ3wyyV>IMFfVnf`N0asdb2&EwkLuex7Ok#=Wg69?a;Wdin6HJlWIw`1_$)={=_}m*o#=Mx7 z&-Zuoal7ZdsyIWvmnT$blOta%Rl{0KT^hYJmhQLb@}A`{Ctr34iUDPT7lB$pmH6a% zXD$q3JHQPnu9tRdCHeopy6>YR>27`$##{1$?s0z!0Q(j4zO_Dv409fj((7L;QeB!d zW!Y9q_AT94muEatp6VU=tVNa3mP(T&gRJ)VYE7+G61uks8~|s4xiI1baXw${(w$4p zBlB5cU9eGf|03yb+OBE&{q3W9Vx1cCR4Slmk?ML}o*YKF@*FJViSmT`qQvLJU$0yg zo*YIv$oJX?`e)dJ54Im0`MO`cbI~4f14`;;0iIsn*Sko%t2m~jC7vWF=A^JE7w=M5 z)m6f;8uxkB@bFi)8yxEQ68hQ3z%8sL>Dc!xj6b_y96Z!elHZ7zp(P;`Qm=n zbnt~@z?1cJZNm%tk>Em7BqZWC7w%ke0GwHJ+$aMg4G({5mG0!dDqkvYhBA!p$s9j2 zP4EOC&Z@d@-=6!dip)GHk2`{;^rn(3M<2Irm!dU zBZC#JMNX-`>pfkyi1v>hKNMCbpLh1DNag%$rB?7S!aVE*r5CR4Y9+cOUk?r5L|FI~ z*0x2+uj<#BCl{nI2i6t>&f~&97-XS5!5elk@`1q?#~BVQFrFx+4CaXmM&HZV*nq2b zXgB^gPi59rqe}j-q*e~7Yu$73eX9O1_mkE@+g5N`v_t$XPAiLBx7HwaqveSUD8gYi zPXjbvRW9Y*28qO~ib3;5oWDR&u zN6s&C_&UJzqDuXPpO-Y0DYBVqV2x#~e;N*72$M z>K6!Ma$Hr09G1IcP5ybRwdIY}mqR*vxWcEfN^kl0A?-vXF$acyZz?dK!gHa}vjAVW z5N##qaln%;=91c3Ro^q@so_rz-7lskX;p0qTVqf5KRA0}PD0V5#GDrtMg`9XN_o%v zip$JWO4)gJ6qo6xm8OULE5BUyQeIqNS1I9N-4VWG3g%9zm@oScFOjo1_Dag$_s@CV$<=P!D*ro#~LuZ8*1k;K|u=PIE67)1HAn&Dt@y!-dpD$E5oy z27Y9~8lHGQ!hVR8127mEZVq-soQ5g=F>5zKacDJTiXu^UYb%GkgT5p!JbcO<@$}x= zc^+=OZf=FX+BHv&T3#3J9KF-S_b`9> ztnT$Kf*r~AcV3J4v`GboJ;CR*N_U3(HT@I&i$#I8>re0Pn?oP$ol93z?`4KvKmNwH z#JEb^uWWO~SfVDz=ieCa#X`FSp4`#4F;Z&;zeWRNCQ{eEqiJa1YU;CQ1-(9Fszsg( zEBl4;c1y5c=q&c9Tc}@K2JiDIvMmYw%O5|f_Vl-SvIS4|fQE&D^VnMB1Mo9;i<&__ zcFv$(H_m1qOTMyj@2#`##~z(g5`OI@_(s2J^$F4#=Y8fi{bgo6`YGVgR5rJjPos0 z;_zOIF+cS8ckIa>*Ppj|kDB)l`P|EHsAE-Kt+tG$mcifAr~BsX&fmLzcfr}MuXou! zsLXRAEfZMxh1JJAy&BQkqt4bh7IUhv~b7SekTUH}#5|Nuy70p&!nK8F-R> z6;`gRmq!_VQy{ua_tllG<7u=~54x@);jq-<#R}dPYS&&@`&E`4m*)<+-tOP%e9G+y-WQ|B_Bk-FVwKR=x3R9Nol`ce zE9R;0wzq5-p50h)>DiF<3Fmjvw+TmS)aelF5&1K9kNk;7o!m$fH;z;7h>q|FTL~1# zlgkQsn|z)sn60}&8N(HxM-Y80OYB{-p&W8gO;0V&lH=O*X2Zgd_*?d5mEKXe;K^E_ zrHX$Os<5su)eLA!XYSp|Z595`nVOqhhLqb_H>>iN=7p|LNc)g-%IU4Jr(-nquZ{Fg z+%z~d8rIUR-m%A`2gavecrPF9N!Swq!(&!{u0ruG_K@h0 zg9!(102iP#P)jd4ZZ!6g`L*&{*%SI+kA~6xi?)VhjULS8k$yEx=4$$xZ8YTURvHky zmiiy_rOw+X(%>^;v?K8>%{;xFrk!5;3vB8~b2clN)$aG0)ZwJh_1p_gNN|r&|jYdVnzj z;|_m!WhGB(_-^pV!7*0nx3*k!`GWT^qZ|+7K3431H&=Iov^mOtr0vmQFT(q`{TawnuH}+8xDw(NXZU2RylQQ(IJ?Q1)Z#I_>a0x|bOJSl1S{&g0vEqMX<@lndl7 zccYY56>0P6vJ^C`426%WNHG&?P|mtnD0khflChwm_-u{}lKI{VZ( zV%x&HG&S7)8C9QFk212-!P8Q-d;h#WiQj1Ax$nZD`Bw6uw5O!RSUQk$<*9My>{XmP zhYq4)kqasF;e8@qUg7+roDy%pMpSc>miu~x(RIPA3CgL;PjNI&e2 zpb1+7DEnb{;XHAFV+!cZz?11YP58V1yoG^(cYxP6xGY z97G!Pp}uFT%wMOned0XzJYk||3p&mKPgysP2o5UyG!xR*y8<=e)P@|F6&x?O2o$`gF%wns{Im%?u5syu93}%2UDL?l8|8^J%xt z9^V?51XpDR_*xa}cl|bq=f8Ir?TP1sB7s8Zq4^!@cf`wBZx(ow?~|12cQ4TcjGsP= z8BH(y_N0pb4MjP11DjG+?5~&kq#SzSJE|AfUZhVt@hiA=rt;nusRF*4;5_^;+5z_1 zmt&8)4oA$5yb;oo9^~Aod&zex$C`GJKb?I{Sj$sBCu~#3Jn?=odpuXUwbevB$ec>J z@V+q3@3DX%o|7mIT$DPJ@}2PU1@tG+naY+i_BDV5~k`$74=cYK1q_#XJJAZPSR zuH>>Dzs0)3onG>PnUWvehWn69iHV7nl$1oe7>sps4TIY%Ekycba>U#|37*{07M8}I z_1UL<$O(LDZOTsU3o{x&$vqCQupYE_HRr@yp_}#*KN@srj*Ca7y|U{ADm&AaGBA!H z_yb9ieW}g9FR9U?uSA*O#IH9hd%>xNB0eVe7eo5&xOpO6#-{?6@-8QS^Mid1XY}RF zQAzKz6qkI0bh=!@Q^K{Y#L&gSH-CyeX>FyjuoHeSQrZ)@fhDjfdc|2kdVkv|)M;xU zs_9pk9MJ!=e<6VV?e^HeC&y3vIX=M^>$_3(KpnU;=!nxgNBmF3`^9+Cr!mWo&Y5yl zCA^I|kG=LnHa+wuZTBuO_KnE>rX%Ac412QVT3&IV{B`X58=DyFcqj4`>b#@3TIQa< zRAYN*vg6-7#C)|Ap38YfF=1aHgmWOz+a>R1+ zg}6M)kCe?qKA~QbgXyzc5*Q_-ZP3??4Lj_ zz=;cZvWK0Pg1!C>%=T0$3%-U9G6(WV@CS5%Rb_hURi1M3?73(sB_6kLlI@kuMpX~9QKQ3a=a#&K~iNKdM}`E6<#)RoHlJSTV* ze5$`^d0%T!DpM*~@%K}FI_&@HVVm6(sn6C?LQi4W57R{KEf^5Hnm&(NA<}AXc$4~^ zQ2Up`r-DVAFs)W*U2GAN?6Ko4hawwKQfH4T7)OAN&jj^5Fjw#`QXY!wlUrH}Fz| za+VjT+@&s*i~L65w8sF}pJFk`7Ylnb0Q)Cmu{M9Yv`@urRsCu|tg^25!CSZ`B{yR-iC(oH%QL}TIt>5C&P=);45>gsKJ>tU5OFP$y!TR9dy#o~89 zVljT&E7vt7M=W(Zoz3jaG1PTm5Ovt;M-A3}g*J2pMPbfow}Vcy*fr1#uEmp(Y~C(Sw&LjEVb zX#AeZ^es60<=`xuarh4!duRfUJ~)A{Q)TdEz|g~!tBgMKYuou3HjkSZA9Z8SrO3q1iAOK3jSv06`{McqomrRRK?x!Bb`MR0%v4*gFB9 z9K3Iwrr`-OH0{D(8g*d@t-5-UmR{aR!{P$y%Ok6(&*8=N{{DH?DtI`(bZ^MJa7CyHB*~+W?WF#2mAh@?z?}de%K3}u(}%ESXG`9VEc(! zJG$vziEf~eyNc z#$URdOn+XBrSUh<(T$9B^1pd%t!(E_M2Z%~K8Grn4{2O<&(v^pK zxtdb*gO+&u;_@!hhJK8_AH5FD7aVoiKA9SC96*f%zoIuV#`@u)cLAQbeser=x|Smj z^Sjo@e=xOLKScB`R_VSdV;{7UPmCw8Qibv4{PC>m?S?G(JoEhgIn>Q}0s4v%`u?v_ zLdRlOPplK}?`NFc7U?6;mPYx`g z0qFC;2AXdgOuewi&1`Sn9eU639>Uk-^0Z(+WSql32ZM5U?ASpP%+=;|yY6J;eSP9Q zVXXDUc*6Tph&{RCIXg5PH8hr=x7E+%srR}CG%(7SK0m$9paZE3DH{cKr^cJQ-nfyG z{6$jc-3><*&wUtpEb7B96UH<}o_0Vzpp4AVQfmj=bjd?N_~xBgQ*P;&oD2~h$#kvM zUdQ3(D_0oxNn5vWC3B!6^gD#V2_e=mcn!lGxSirWz?0%hhrUwF6P```&hvX;`n{k2 z_j&c-rVCD99{nA)nKYW-T=fSzCtRcd<>b)%JLhRV-v73t@MVLCQJ2VR)ERr%S_i#P zO#{19vw%10=lv@wEbd@x>yg8LN0}kOWPmv{a9tQrN6wr&cPi~Bow#>hv{_nyIP4P= zl%Oq-!yC@;(rMc}Q@w?Th7yCkiZK4H-ip_=;*qOKty)9$OMXvc|T_hs3ZI5Br#`wTx{+zFpBl032hciidCOG}8&Jp1y$Rn8(`!FZH0aS>xt8kHKEu5DeWLGTKVvY)yMvCerZ0}J zqyd-%`5CbmKB8jJC(XnUsRk3Y3#bGa=hkGII9 zynnWr-!AQ?@n^$nPp10gGzKPBEraz{#C)dpJT^~jYe}BiUugHn_|b8!H?1CJ zSn@P}tylDs3uk8}q~A&T0ejrvjQoW!BCHQ>Wjj=CF<=H(IIJ-NhE)ee(^%Wp3V2`|i&(;aIC_OSRC>v<>Q!bvpURnuPR} z;H&9(FPuzHOw?avutjY=>U!*&xa6zoaOpYrv8No|#$)ONdD)KegftUEqJKhrqmE5TDkthF~<{{=Ph?@RU9enPLTeVtzO zZGT0pLmlQK8HMvyw0zn+o)Ax>-RtZ#Pv}X@k0CsHOis%YLw(zi8`;U{!0tNHHxokr zFGo|)9W$s~_#_Is5_|tfM%wq~K`ql|wWX-xLjk zJ%4dzrD{)yJOxkf5BxxF_m8E2fnN0OXlzfuRpEP8 zEu5z!<}=F^_eZAC_D`ngIG%4$M(?qK8~tyCy!34^>apl&>J=~`{m|9;OR+Z-ubjDi zC*k<*#IRY%Hy>Jie&^-ntju@sWTlnIt6rS>(Uzg*tLv^ARA+q$s=vNtcH{LOlG_J$ zPj2MjKDk*y$9r|xwas}0@szCe{uw#hQ;uicJ|pdED(vao8z+QK4ZL!YzJgCN7;{t1 zQ{R~7u&Jfg`_LkKxRD$nbQ6lf06YZC_EG%7)p&X=iMY=AU(IL5zRa5mwqJu*6MBdu8Oe|w{z3L)8vc04Ll7;yT@yb z{V`|3TyglLLksEMy_h%IJyY<+zC^1nqo_^PaB3ekf|_g_KowE`b1NHBt2LccrT%nl zYQU$ek?(^^UrQ_TUK{eUzm}Jy`fVJR;QX3=vV19x_*mbB^7OEju079XNIhzGI~l%@ zU(#9fxgJNg0^Xt*1K{sMzdTpna#Q!*zwTU`nVpwgLSAbswPn2-F@ZX69fx_jG4vk% zcphtUS#2=ZY7;gV^WY7mIlJVL8KWQC!eLegKdM)U??CXzSOMy=2f z>7_s(leDF(epnO4_i=}kPW>2n`+{BG!)!y}uf0~5CuNuI|HF5W;{{h`G17bhRWbUi@m>z%X_V=d_q=npy&z1KU zmX;*$QS!rb?WF_cc_ut(deoY`<99Dj^V}cs$C3Dx5BhBz{BU^Wti0C(-=g~K+8Oh- z_9fB*!YWulO z_86P?+}1B`dt%&YNe@yT_P`I(@+3LZoD+y^YWPtQu{txIM3Hh z{j$V*(JHKk&xT4Tr)6jQF<;A1`O>=c>l5&|(f4q=mM39U_$MhlQ#q5FtZcb+xgGQL z6Xtj#ljDJlf-mOi>l6NYlCM{=miY3bgC2BKB@T1atmhuwL!U%aXX(U+;iTw zLzH{>im)wVUx;&B9`>|KaJm5c2*DH1vlM#J=s@RRmnLB?-Bf>^&M@MMb*|-$^)K^j z`C&Vf;QX3=ruE48<#8mJC3P(&^T2$7uPNKEMt}c$P=`pzrH;Sc%}P`HZ2d`QGm^YU zfBWJ6l1I~T&0KmtE}iEN=3I%Pb%`g^FJ&a}Wxgk)Q09>5Wg#(FRX9o>6n+wm9!IF%hwBkgSlb87^&A(Y2ZoC_q2JE1f*tXIKig6VDI~s z`N!8Q7gMjxQw1dRbU!!eh3i@A5zGa{>&B_c5pwH{)0y;}p@ZWB!ucHA z)dzOJP;@eV^X_|ayd6MNx$@i?iN0~0A{=7MRk|d-* zyst>eG)t0sN`Cl2$;r(rzw_QTpQVW>&w1X6n{+BO`Hhnq$vsnZvW1N@N8?XzKF0fq zm@BrahTFfO=E3jj4&AxveK$M9z?1Gl3gzBY`{q3CM`AD!!ge;apgcW9`^L|Mb2%CJ z#5LSM89l#77pD3%jQiO(SU+q(5*mFO^2s#jM)D)ma33~^PI{~Y*oUuq)rW6$Tl`72Pt*jS0rOdhs6Atp!I6~?LcH}}9CTn}1s zF>-fU(g_=bJ>eOcE6I(pm4qXDo?Zh_DwwBStn)JR&#zrbziHqpZ(~b(TxfYQ4V&uE;Ezad%t_`+@4Fbk;>f^M-a>hPBTr)AUjY$$Qoh_Alt~Y4!TF!rTt>5uI}F zSex*Vsmj_q{P$-jbAM>yiT#KtIL?)Pn(9ybBSw0c9GuyNc?JObDv-~VOTI>v&$J#{ zzYe_Q_|~LspPE8)oX?r2bDp#nHR$@Uf}?6riwmpE1wYJ@04~zu-Ofx4n`AqAPTs*+Rjw^#(}YIg@s$_is#j;`pHf3PpS-bpIyQIRwC8Usc)x^?`ao7vM|aec(f2Brp~D9r))D zGdw+waV~RZsz2$gNZsqsg^IZ-_7QXs@eMn3z&z>w8jg!Gn?}lOwfRiz;W+m*n?4pi z4TI8G1FL|aff2wLz&Kz5Fi{`=1M(N(Ti{=HXxlwGURCFV)G@E{&mVJ~Yo4c8;GmVz zz0g0~1tWHqfe%&x`S}c7v7eWY?{ay(X5drJXO1Vfry!N5!BF}dAQV^&ECnV3Y&$&3 z&3`?R?P>tP?Os#hA3bt%a*XPiJUy*(u5ABgrOXjS*blE$upMFkLjZAIF6M}YJ!$fR z7hNjG;LH;^6=5rR+T2Ij(^sgU`Cyy!1bzefFNiZw__ay=ZEr=e_F;C|ECpmvq6lsnpT+j7bI`TH6e*#2%hjnAYRR-G$coID1 z>Fq?#C+v>fM)ome`-r^kAF6z+`ONXe{nLhz41W1i+|yiuIeHtY3jFKr2=^oo@Fau( zh?G2ueu&3J%+>iY61}7y-LNe(u*qyBBK6XO1Uf zPrU_CJQu;XG!&={@ZYfi*Z2&$mw(+M{Yf2uJ5<#EAH*8d4#*bCMVHS-Z7jyYIe z9{MQoCE7v0HWT>;pXz#yIi58A6Zb_tXT-7sz`pl?$0IZ#*BjY?P<=k|#P%d@gx7hQ zC%G=kZ65Xu>yG=VeH8ao>`MUJeCBxKwEbTRdn%7xdI2a0{A>Fp+}pqA&|wZrAUgy8 z8rm=R<(LQNifsz%tbdtL^&=w0T!gSG&d>e?U(fBKzC24jaXKEJ?Z;6s|7-88cpLK8 zV~-gi`Xio?V7-gESV-1A+Bab*GN0gci+YavWS@g2UkjdOd6szMxey5}ZtuS=dJW_S zG{oMMhCeLbg4=hQs>)NtS2Ilf0Avc#@hZn$+Pt zWd_@agz)!-{`1$LO!J96>=!aW@>=f4^yO)JD%u_Wm)o2Mh`;%K3XnXRtMk9KqHDm? zobBIDXP%0FH~(Gn|3Cx96~!(}u}M*PREP(%iBgn!lSgY;NZjPK_0bY0Sq<^Y>IoU= zo8rR|k8k(LxT3#6=2w&`&R;A)-j3rhq$vGZ%EKgHqMz~ks`18gzMp>Tq=LQ#5r0k$ zV?{~{Ws**5tF(|6V1>Q#`1AR>MShSZ4^f_J+)1A0`$74paUQJc4{=^bAjSP!6>leU z<>xnzN8x;h;we&}LjRh$xH_Ldebm6`|Ccz=FKG{6OVl1bm#aM<8P8P|{GWdyGBH0U zPEOX&W{J!^bD}?@WI!(`o5UX{YFdV-y2mL_vC$T2Scz7Pnrspmvkux?oU|7!N=k9# zc<%Ei@kz#Uq9{dsU;}=K0#i3`=MSM&8YMsbmj^8XKmE;t_m literal 0 HcmV?d00001 diff --git a/ArinWarev1/ApplicationEvents.vb b/ArinWarev1/ApplicationEvents.vb new file mode 100644 index 0000000..01d4105 --- /dev/null +++ b/ArinWarev1/ApplicationEvents.vb @@ -0,0 +1,43 @@ +Namespace My + + Class MyApplication + + 'Startup: Raised when the application starts, before the startup form is created. + 'Shutdown: Raised after all application forms are closed. This event is not raised if the application is terminating abnormally. + 'UnhandledException: Raised if the application encounters an unhandled exception. + 'StartupNextInstance: Raised when launching a single-instance application and the application is already active. + 'NetworkAvailabilityChanged: Raised when the network connection is connected or disconnected. + + '''

+ ''' Update the network connectivity status on the main form each time the connection status changes. + ''' + ''' + ''' + ''' + + + ''' + ''' Include logic here that should be performed before any forms are loaded + ''' + ''' + ''' + ''' + + + ''' + ''' Update the status strip to denote the current network connection status + ''' + ''' + ''' + + Private Sub MyApplication_UnhandledException(sender As Object, e As Microsoft.VisualBasic.ApplicationServices.UnhandledExceptionEventArgs) Handles Me.UnhandledException + Dim M As New System.Text.StringBuilder + M.AppendLine("처리되지 않은 오류가 발생했습니다") + M.AppendLine("에러메세지 : " + e.Exception.Message) + MsgBox(M.ToString, MsgBoxStyle.Critical, "확인") + e.ExitApplication = True + End Sub + + End Class +End Namespace + diff --git a/ArinWarev1/Calculator.zip b/ArinWarev1/Calculator.zip new file mode 100644 index 0000000000000000000000000000000000000000..65969ceed548766865e2b343d24d4bbeeee4c79a GIT binary patch literal 76183 zcmYhiQRj-k`GAgs8n?B1$mNCijW;35%?;|x5Y`7;}L25hwIC`01K4~!mPi<7EmOl;MdtpQUuyQoig_9 zMWL^82U%{aKj@#k)7Q7xbWIGGDs6(sZmzpoYs|yet)()D!gqoqmP+R7%?Y~ z%g!D#Thu?_i{ki*>?79nPL{8V+L8k`N%hcSpfN)`uEA^HBT$^XWZ2ebLRuSCim13u zTP&)3p@itOsdDB}8$YxSLJt!1zWCV`sW;23zj)`f)fg*7Mmz67X3`bqZOuv_vqff= z@XJTfOwE`|JVM2{!(>8`cyByQi;Xv^d0(_`Q?<$CQYA-_W!YiA6&S%7g?ZYAY?SC8lj^_Y)Aa-CMT|k*WYOw+#iY* zDNZB6ij1|X{zDQFTO=eVNR~=ty6j4$Dcy`Ufr*2Iz$s72bg!hYj5+^a_9yhyXxS(aCs277iEDc@j%KnvB*m!$NDQ` zV%BvGwb)jz+?8|~R9V9v@)u4Oh(viE zBrx%e$n51kWfyBmj9fO2( zq}J3%hc<6ja$+J0SMvH}AzaM-3g?ce`1p*3aCE3=B*D}yx1cYY`~`SKJ)0c8*r(lRAs!Y%VV| zhew5WEK$0f{bhAo{Nj*B!drY1GUR$hTR?y_ zx(|T9Ra%N&x7n;=k_;$a7EVZ-UcJ6_*(^u$vQ?`?PVS5Ys6g67hZgfH9qWA^tUgXO@TH9joBF#Jr~&0HplGJ@0enF zdhlt|gwWJB1etC{&gC6Sp?6Wqcg+gOvn{Z00qgt#v7rk(o+iWAy}|^-rICrHIO*u- z)K>Jr5mbol{Ni++3jsq#7dm=E^VtUHO?P`^AGsqG*6Xi_9*_6gx6=)TMFTaZ6Ua_Z z=4J}n0w46RJ(zd``3s^4r;YQTNWVcF6sB>0=_jm!m7)%{vy$JA5JP-RrB6=vARUF-AbF@zr zV7|V>(q04?4rO%0UQIczb3 z5!lG{VPW z#Hw|_o)x9w@2eXdDj!_&x5lzxQge%g)J;hKaMwB+N&Ut*@~!oCSs3atVW#IOL%h3< zCwSkt57_~qJVg50erRcFQpV-jvy{FlS>zQ8jAEE794dYcY5Z_M4&;QGn826!I`*FZ zkmgGJ!$aI*)Nz@WV`4ItHTeiJlVPp~?_qiyIzzTP)VpzEAXBPJ$hZbGj=qmLDBa$W zqAi4@O+klA6Bo}!DR=YC5y?{3Z7mGF&bD*+mS0r=T&1(ohQ z6C!F5^1!6AoHTsFGH9JJ8+p!kyIA^Ic^B!3(X|hU;`GcE#$=Y$fRR5vSrC!<+5vky z_$FJyI?$1?62eeXr~I9D=}zG2aAHl3HjWb{+g+ZM*-7GH*izMCN;N3u7nKR^4%_X@ z95Tyh6}~g><7YCqLpe?W6Q-zHqd==`bdvU1)3DsD9X{BA=DrkMD9JbIO_zZjKN|h& znIa!W19k|Eq_g%zROnlHxa69~K+a4{Ec!LRM;ug`AMy=38*%-{D)caaGCY|Z(kr!^ z_tgylOoi{t0~cJ-MPWPwZR<7CupuA@k(SOC!8_1z;q^!#K#>)tf&gv-lwXnucKnB* zM-{$@%AGYL2TLc74buWiEFI51;_4`pGlIfWu->mfM;KmQmje^NJV^0GnuV@h)vh{Kg0^zf7W0J+2Gvx#K6 z?_rj-451rFw~J1#ni;j#t;3u{McyW)OuH*} zR(cApl%cDMZViEiD%U!FOL!ezH9W+*Q?Y-F@s>Vu>Di{kpvxRvVv7TfXp~{uCCz2;BD{MQSy=|2}ZL7a3{W7Bm`?OKlif;KLInftr!hil7VPR<#uT_7CH{#$M0G9hf z510E;WiNkf;u26~Uf-87iLtpsk0lmAV6Fw01!Npibm&2T$mg4we!~)|!VQKOwl`ome6CNo? zsE;m`{v2dUSkwZaf(y8J-Qk_M@lPsFCo7(W-?cwR!e1VgGhYnkA+n8yX( zJ=%xkRGA?5hCzyiF00jylxj+NKV#DSVUY+ZoH*u}cTENTsvDn~HAAzfKR_{!+QpjrD&z5W0AnOJ7_rw)j+? zMC+^*fD=nGHR|gVB*O^!*6(}fYV-G zpZ@^dwQfP=%_|9tc7h>DU3)_#t7?T_QeEsK*+$gk^_lXTXRPp8+u62;Yb+7?5FZ9h zs{JA{4$5gD>~%5N>HVvRp9tPb<6?lmjj@E2pv-R>k3#x3#h%wpv%XH(3mCeN!9?(l zG02PfKyTAeYPcAbu(&%b>v!@)4sQyFn0F%ur}OnJwI^E||xH65}iL)7utn>yJx69AtOPJqpQeu8WBt0it8Ivr?&1HlPj zVLhSK;fBoYcSi)qtgmk&ClV6SON75ZQTG8lh`4fWvSilM$BNH~LIJ_n{s*z68TLJ( zU0rnJva!K8HEH1@g+Xz}6S%^Y6x&d39e*o_TjWvaRc{J%`%;V~-JhV=KaFQC@DNf@ zVo(?Vd`Y6~aK&szV7D!%K!;k}@P-%#0b1}-eW(zVpHI{QclB&tx1+8KZx?o$wixuF z&iE2isN3VAM3ECxNt7i{#^XUA8Gm57SDL4C4)a{`I6%~<)k&Q9;M(U1=H1rxSn16v zeuCtZUi-l_s7JAKLi9mK8<^sok_7 zkCk1ViIEeB{pN9Z|AoHY`D54hc4iHUFuRYy_>L6n;>G12d2Bo8@(fa!5Dm>y?g#;e z-xE}c@hydeM1CS-15OIemS{}1=2{PAmiHTmeIk3As7PyOirO`LbtHx#h->kN-He^) zeLOj*B|Aj^FKp=g%;o)FPyYXJs874)xhH2o1n7YPfIMIT0PKGnYGGOaK}%gnUrAHl&KgAviOkxN#2#F_v=}E@Lx%<_Q$tS$!`eVQ zLsee|4DF=EKs!^sNPv7;Ah2*;pq`;^Wlf@$V{d{{Lavj&sG))-v@npo1i!C?DU^JY zU~o-hKyF2%AaOGMoHWG*fCF-THLL=@f?E7VT4IK3LV8M?CNL6sgaxD@dihr ze+3D%-(6P!8kRVFfLaUNr=7K3z&3-Ug5YhFgY1+z?UXq67=464r&=x5xCkLFj8hyx zD$4qK;NK`NsKSRwg*r&T_#C7bWO@=FsJ&jfSPSsk=fai}z(DbeP+ve_an}Wu_qPN83`M#ou0E%PIYXW%aU#UC zKc>f7)iTblsH)++C_^mbe05%W**TxCr%=;ql?#x|V%2zrw|=2Yj3OxNz&G=*J{0Io z435rVVJV>y6Qy0@=J`hMAru{~y??eSyj=1z=SjsZ3^P@0?d|A^#(2L~EgfUR{6QyW zV2y^{)d(E`A6U*Sm3#Ds@BQVs&E%1s{X?PD{}?_DG)*+crbXwwI5 zCxMjA4IE93|C?~lsBg()i(&MN9pZ}CD%WWlcC)UFLRVl35z%5%N~cIor2}y>ux{$W z$g501$w~@V#-jx#ZH`;u3Q!huHbB)1uDosFR@Ke>z3Sf?tP-G#=n(3=^=ABj|1dq> zh52>s(sfeqrxe?(b(6Nqjz_H(dzN-r6FL53=qBexKDwh%%;ZVbfbxYeZ#q_qyt;`) z(U*W%q;;KCHtw`@T2eD{Kie1(W=RyNvr(Fda4%9D`B5dh+ItOyEFvB}_-U*O%|j4HmnS=H*h1*(la2vQg9&e&5=; zMW8`s`4}sjF*GQTn{wc%d%_Z+a9pUwn>Y`#U>6BE!Q=Iq;O_Vd0oAlVUcxS5aZyj!a8@*T*p>*x$F^{;63}n!mBLQ}+{`J2{6MtE z%WzBn{XLFTfztJ86M^R%)z+ab&K{-B&-rc@l9I7a%?D;_WzZJR%OD|$yYNWiEv-*~ z1n~&}r`{W%lwS>E&Ku+8!|cAzIZhn?H6CJvpk9+4Y z-cbfRYc>A45!s9cYSy0mi1wU&4%d%E_6SA9Q}JUIhKwiAxl?FRyMNphH7etVi2hme z*je7(7zq$E>O5ZE7{t+ES;bb&KT?tv%!8J2(sgC`mB|xl*_m(OHZA?*=|M*0?3XV0 z_a-}4kq&MR57Pz}1nbP%voxBxvV7Cj8A{V!B=I+#nnd@L$Cki?EUfYJ{CzzzAV?WQA*tPD}OzA%M!g(g&8aU zF(m5yoH!ONWWA%<8f(rcx2y`}Ekb|>6$|3NrrMof?Qk+)u!C!Q=K6(j7DQK=M3yG# zO`@!?DS=qeF}0ES&wk`5Z(XPr4` z5y^8J*E+s~CM^A}vG}4XY{m`VT{$(iTk4LRk(Cj8L_axoQlu)}(%ciss7@E=fx~I6 zLA&PrixBDD07!f!k31JtHu;>ePInQ&Q2BR_kp*MaQ!x#l35>UB%Q8-_x8F zS@Aa=!mGwT<<+p}&sI^st3}J1pi>bYUQN_`usyGm{Y7e7S?VuoYOj{g$e_#mBemtS zeF%R2jRSZ`864aJ0m)aE@Q<%wYWJ~mn(DFU3GdI?bI(OUlTVTiWdXoDYu@x7+ zK@hcdd<M%_=t%jxLqY>{Z(~XxW($K!bOZCSeK~2ML}8_D8nMFD z!H=I*;V9QlZ0r=cSoL}}X26VJS7@QPN=r5Lj?&o~}tBhEgJ=|a3ayRKj008_m0D%3UG74BYiW}G( zTU*$g(Fy%uhySGVhG)xBYb@ce_K{Eefe;`LJRAZ#Asio7in^7>?kYS{yEs%xfQW3K z1eyjg;zZC&2K8`}q8>98o+_3mk*2n(ur!EpJlFJkGkOellK+C?;&Gy7I-9-$gcT>d zQzk@oJUhQlKR-W9zkT%m{@Zg~qot-*Ubr?a*${4Gf~m4oO+7%W8?C0=QZ=i3GwEvU2Ld`*epquozEM0-wCL50g}A}_Fe^R zueSQEg89F3UTbB~uA(*UU6HoO_XNIm-Sg;Oq@r7?a&=N-@7tuJ0msyKxvZydI;EOv zg0lOY38)R@U;3^j?!z1wfpxBEqz#-fi8{5V5syxr0r9TmMyYL)uZ?14pokd}(dc73 zS=$gb9tc6ppxPt&h^h{LJPP#Q#HFPUg}I8)dwII}q%F`U&7vtB4*O+%Js^38>B}|* zKKZz2r|n~IRpy`YUj1y2aoh=t?dh=4>)Gz=%z^HA#x`XF+rItbZ2l5K#5ZHmPk!`W z=*-I*QI{zYzI%gkJyU3F3b^*lQ)jy)`Z{%r_V@X$BhnFW%h56o$eA|=&D6Q(@wDN)UYBXD>gDxs^Rc8^=%`cst*iGw3mi!w z{cW9?!>&4aF3}V#Q@siMlD1g~IOud|9Aqz<^>j~b+cc=!kc3snd~8M}MOYh}qbA@B zQJ~QiN5+;hA*LKOyxf47!xon@VHyxVYY8@)@#$8O6gWw+ApGgCO2!c6D^NBDV1FBt zGbBrzDiuw}DsoTS={W1Vvrw=x@CwDRcyI^rYN)IcY6zWM_q0xfgn=qn2G8~~y@@UY zJ-Xx1&7n%>zhSF4RIFLnm^zO8+RtqMz|i7Ln#?Mv(yiF9(&o;^S-jxP`koz*nAW6B z$399*VVx)**j~s#-?r9-ZS~BsGR?;xA|G>TjmB_Hnd9TxV;kTiBkks~N9Y^2ZzDYa ziYcn9^Yd7_C@E<9DS&2c#BGrbaukJCsvprNe_Z@na2IZgThTwzn zw5Jq$T#fXNaF_}`mCV3M7eOuevD)hGSnF!VJ+#&zArz2|j@ihvxf)1)*}(k@>smeA z5+>H|vEK1K{`PH;sW!vjDdQ6-7+)1Ya+I}x7j8A!+iKg|Q)l}nvJK7{ z&yKGzEZlEb+Ea$U?6|r=Iq=n`Sq~;sjr~j9d3~QyuK@$kcPjq&k+X}gmG5VB_u9(J zWTw`TFD;D8gcj~Oz3eVX^j}Tf{n>hbp}E?+a^DV>CrU1X0E^(s*9QY7Neq$ZWlG4! zkTc-1z*mSjPTl?*-tDLflSI0puCqHj4L2N{&m;#^_5hcje%<=X;?ifa?$IoD1?y z|7SQ!vVG|dy-6>RhmRn8^b<}?T^Uemvd*y*zE`?|=fEpd1`M{|D6f9+I|IB}Vy4oRR_M zANEQNYGEdv$Wr#`vj^>mIXQ${h&ee+YYb!4vs5~g6AT#(dPDilLwRWYi|RVNzhAy% zws)cMZiT~GOx+)3yh`jH&O(2&8E7D9$EnMVJ!Q;IYCLN(_n!;MI(MH+uW;>NC5lY0 zppQcwc|v3ldBkdj+asDX4m5IROdqcG!)#zlFrCKj@z2d)_m-k&G>wIuu+r6~dtDwx zaI9HmqbnMR6RLAaG~r;F*?sp=&BGfiv=4Wmho&=>rKtHr6WBm_CeH5q-{nlD3sas+Bba=}Wew)?eJ6=LX|{^I=k-#yn=6*i6!v_SRto%%ELnX}XN*QH|P2%}KC zenpxLNTnvZJn0&ANwElsjGy}F7P~OM>t>3F~#4@i! z=H%?8f;z%;&WyD5nd3Y!M-0^4&C4KRG z%WpY#<=1sZmFHC)R#|{igUG zOV7h$ty+6mZRL9{6(bQe>y;ZhJWt4goY}Qk19-9*933Aylhuw=T?)iWx8m9=Ez2Fw zDK2Z3Pj2!?2?jlKQ<9Y7ZY@X1t}@lo(OZ0s7Q^O`IOK^=cr237OL;dSJV=O0dL>g? zuq7V(v9+(VrtMujgMuK}D}RDEMy%-z))SruSqIPwGXuBnjr@Irb{u%mbyIgKa!EF6 zMVY2U*-*x6Q|Rx}p7cj-2ifvPd(;ga+@dtwF6&8gwd5WWJ(T#wEp7xe2%h5t6VmKg zZPu$@7ujZ%W_j%{#VE0fv|BI6CT zLAp+Q8E7Y~LvW`Z1@O)HBDwkglf;C9)9zBD*~uy^CW(oi-ordPqy1b=IkOqtKkTOFYnbUr-JlJW397ZLA9w(*K;I;RXBYx)ecf+c=m!Ju%ozK z-i-*vBLce#E@d9560;vp1=UK7$Rc>PjCMBD4UgHwSs0V0WW^y@@)*zM!uXm|(DSYHGWGHlj>q5+0$nkiF2>O?-*SzF! zlw}Hd`0!5`f((CbmEHiofZCz_7k)xoDi5uw>Sr_4y`GU$J6@?8^)PTM`tU- zH(mo4r%zNXARe^D@%-MEx{?GfQ*lXAstIgr< zTkg-f&N~q()yB8NYhANr>6_F6TY=mNW8Bkv;cT-DT3NZLe{{nTU&*seXdk?puRUC@ zUf3_JZZ%qa8g8xhQ#D~+?+9OUU-mbrBMJh|D~3gy7BtMM2|Y~#oqNvLIW)mQ>u(5& z8dn!CUUfN*Zm%_5Ti#NUsz*h;Wo(^(TPAv(+qu^4L_J-Y-_8doWItLb-z?5Mc(fBcMGkHw@NJ#2ioTDQ0+ zP{Djjjr=^;JXc4b)-3hf`gZe2fcJb9SnAxgB{v|Oy|zb)#c@8xQgq0IQtj^HVmIEF zp@0yXlxK@lO8C#rq!xgt@*4PR$Auvu&kuMZQRJLm@_gb#rr%!Ow0dS}))BuG%dlTp zun8PZcGW}`?fcz9kPcy*)k^}kyYdW&V7K?eut&7Ec4W1#{m3I|?N6Xc@osDIy+yT{ zLQf;?%>(FlZ#Q&&(&w#~ke51XuI$4YF_ebejHoZ+SWbvXHmE zk9uJ2EZy}+KZWn&0(7RY1j~9~5-?)oobhf`*gKm@ml7WrW0%ChUiCkGu+|*W@|4#f zWZ-Aicvr>U7FcqxYxm9FF>lj0+;BXYoQe4jUWNz15UJp$R?=u?b@WMfs-`X=7g`0CoZm7d%1Sq_HJvE-xak!(!HF_Ojmot^6Xc<@(pz5h9m z_A)wJU}PMf!Gl>`_B3@;KEIJ^Q8@A?V01Fe)i!X{_NSf^>x|!#mwObl5&sNNA$Sf$GUXy&~Pjx zoBxA-5@n~2&d+uufQ&>=4X(nT&R-n5Zerb{W2*i32y%4BI3Y`~HF=LFnggxy^SIet z3h@w#b`81@6xriev{t_~P5|N%szsF4(BFHlu5G3eHQ zBO0=ZlbqiBd+kWi567nKhE;oo6_VH2A@MV;LS+01CThw6as!1`1xNaE-gsIMCa9P6 zi?4zAJQ9yzGQd~K>`$!mMED0RZtbDw?MQ1=tT{5yYv5lyD&PQC9=#T}vgQ+8q50PU1WC%1;yWjQt*- z2W`>OMMWXbO9R8brPuwiZ~LClD~}t@IevPr-G-hYDR_T}Tn9ptdlM8x$dznxfLTMV z%8_(UN9(#{-uKemn_Y{gl*Df*JBf?be1mMPy}t{Q_e!N%c;>%vkx$1_6d9tA>5(J! z%xc z<4af8>bbXTFSculU!XyXv^&?<8@fBiDAl`D0miqx4)4icx3jx7Ua_7TpQ}~3omu>A z-0CTpe_`E@U2hpaHXyYPb~jw$c)`C>E8Jgl*x{cTM=8rBgs=*4b`Yy-a@DW9bH1-{ zR+;m`1i}(ws1$+l7#Z9^&^vjVTz|c%1N{c6FsK8)vhI_k_MfjYmw}7>x?$#6s^@M2 z#;_>2?|Hb-wbub4NlVsKp4$%Mx;|$R$C9R*FxtdQC)Y=rKE&+!-&#q64S1~S+hhoyS=F#2AZz$Yi+NK-`C<1p~V0TcV zqPXEsHF4-x85=7htAZ_!;VDvYR>odETXDu}gVvl%Ry8%2kn>}L{>k~g6eP@N)w+Zd z?isVIXy{oJIH?m!(Z0}*m_(M1t+NKNm;?04HtPAg!E9>=y5t!l6wVKBxA5I;dK=24 z8{!u4Cv~>+15WSjmS$uk8!a?msODMV#%l(O0b%KdENCrRV26*m*P~Dg7i0g#Ip{Vj zKxI4|m6<+3y1o+wLUNg5>SdYAn6+xN2HVY9b(d_^@JR`WAzq>g3jNtFT~n4z`Ig0C zQzSut$pMEH{hgy9msJPGh89u-P}v^Sd2?mz`vhT7&g+C-bG-vw5F1qdPY_(Iv=@ap!Oa*D)ot$Q2Z^`Y~JCZZhuXX%^93!CNk?mwE(wi{EZ!Y(qDx3V| zDbe2;YEQ03*hh6|cCo#wvbQOMJcnXuUnqM>8`{a%8!%gQ5k6qZ$~KD<6mb>jv^g88 zz^UXI>mWr7rcK$sOR7ZoX1T(`)mhB0;c3R}oqW~uHZj#BYX>8>Hul;>_TC>$p!u`< z;wyM4H5+ggxMpWf_DI9AnR;Hz0*W6Sm^5cqH(_-tG!MuoUi0Iu)^s?5l2%e2RS&@{ zR+U{&uO+-pYTg(XL-w-z&pM;275rN${*DXAYoC4wns4pYyr&Ck=LE)yp#1(pSTG-s_#D+qSY_Wv;Hv?9es(0P*OR_2FmYMjVPHo)Z5d6kv7)LR zn^x_HJDQzs;hnQTvBBb76r9nbFKJADPjl`_OFW2Bm&80fOa3zl8RMBWOs*yOn$RL* zBYoV3TcHpjzqLE^BD`q(g;ZDvtyDCfOx&_V?g4M#s4a%X<*-vKsc9aMpac^YZ)S0t z1m9hPZ|f9~|2fCQ=RihvJ3WH0U|~+r@ko11bQS3yi-TQBS6PFl`1@)pp6rv0Qitwa zCws$`t%$@fCKbCyard~4T{7(bp=MRHmzsXC&zAfPXOkA zf+L!23eS4+!p-(lX45DUUde@Lsz1FD;*9z<4vWq7g{7sWQX5Bp2_bh-=dI09oV*vy zcj(94$h#-{--O0r=oejo!|j?fvXpu(Cx`*AnLcs4WKD7CU9bD#=+_gOab{IfJS7+< zM#N%Dntef?xz$9~rtGV-&M)W=ea1-$QB19$MA2C=zb2w_TxGxphkPvDpepGDQfG-zv6@1@hK{L`c5S;(b z!N?LEh6RqomeYJ(#T0MB$=`1Q`E#Dmhh20WzVap1k~`}#oDS|{{{8Ub@B6@>xwpL1 z0JN_P&m3Q3V%4t1vR9(4?BWn44F@m>=B?~llb%Z&|<}@E+$C)h#P^UbO1DrT- zE@$Wrt>c6=%|l$2GQmc~r!fDx7^PBV1(H!oLmRq4;&6iD;G7Gw#I*CXIg55fXW>Zj zC5wjPYbtV^Rpq{^a#?OmL+1iOHfL^EUopbUOg3%j&jJZUAhJ{GJ7K)tEOYZrgdX2T z9w-?(@b;vGT$}{fFIVMEVlT!~bppdC^$wZDX*Y8-Bn$`n*wAt*Tf28;bp@>H;*srS zxlh2OiyJmDQbGfkN;}-KaF(JV-3F4!<{ z+&N7{L`1F%1JQN80|qy;p_CY(wC4^c`~d~?djfY%Bi0y2hP2GTWa-AwrgY-;Bg_vY zVZU|7|C*4IfOMAzN@aDAB?@JzHr$t+*$T*o>xEBfU@0Z(B-np}*wtzJgJ3g^(y3Y- zc}W%cW+zB9l0r9IR9W06N$DK345)5`Bh)u?OBvYbWGoK%$oe({ny zKxF=Dx6gG^e=kc1vX{F7ApuNJgq#%|FwyU26%tVcds5(l&o!q&=Y!QH#tyS+GUo#~j$UetW1_>vL*0h^N!C zzU$UQudfQ^0MQ<}^I%Y%+^2{(uK%>hh40=uCT6SH%f>dC_9x&It7&rMt$eniG{;spaJm&0oW2d9D7}% z&q8SXMvXrwJGNyrU_}BwGh?Sf7UQiRRuBi^|J5Rbe_YFyj_*{ z(|Uo(9XiGtu?1#KN(S&|OdtHFCOjbwGgN!<0+)Lnkx9(t0`@BrD+Z4`>-qLzN%rw0 zhpWO_g9PD)$<76!>p;d`t7?8e$BK|2ymrj{SLA^Riv4U1Z8_vr19je&;cvlFKo0~v z>W4lSW`f){xTLwKV-nrDj=J!Mn=--$Mqtw3@4mPUz*AxoF;o_jAVYpA5}1GCPqE{t z$ZkM6DpwRV@SP)tb@4Sf<18IuWxI0k&n*R`pBBXkBB7D~0%!V@ZK4a%eOH-O3(v<1 zFHI3(A>bZnYP2!9wVniYBMQfC?+jzXct2zHykZU4Cp;VADNC$xcg+XZ9nSZOBa(l# z`fAHr5%E+>%&X|p_4%E`QNHNx*mHx;l_G@%C=eEKyV+8GG1nJ?apGjt6{gcLOZtpo z!dj(1ELAXM(w7gewK0^8dkEYv)R;EzV!Z|;YfE<|Yv#xyxda+OWYLOij(mQy>IQYK z-sT1i=SW1u9G_M^0~zO}TjEt(4BNw7`*d(4HAvNPLT`s3;?9I%fnH7?$t%AQ@XOp+ z3Ip)GEi(qTcE4Z^LSJfc-S?W+?j?~ZvJ;rd{F0dn=}#R+`^PbNX6_tnS2FG9-0&`+ z>9SD+q~a0=`&&l%57jJoS<_~IQIm)(>3_#ExD_bWqD(<#vSJ7+x6Zy9KnL)ac+nkO z4TQAc8s=1tw$F(F&>BYW2_yPAg8pF&0nQe1((q1~E`@o1-Q$xv$Vh;YJz*NDu;|-u zZ^z?}Lrz~h@?9ycwj9V32fL7kD4#`EUNR?QVki-F0WHeRBF8Am94(iXmJ=QN^LzXA zum6_YvG5wjP3$p*#FLXTpExZeeSC`iL7g{cLN;?TVd}q6YXax)_B`TY*yS1~e+iXY z20U|>s-@qK&nyeKH+-ULkvYjgAUrx9=|?ZVldVJh2j74ps0QXJ`{kwvj-D$0>{VRn zttY(5jZet5?+&OY%5=m{CXr@w> zK$Gwl=u6Kl6ZLT%sQOTDIayRW^_OB&2g5f2aWEBN&BH zs&V%zgF~*7r|2oN+b{i~4tRR#?6}-`eImcFL`mJJJ}nihkFBCNtcv7Y^#^sr#9g&U znt?_}$zCwSjV=+|U$;BS#OwS=BFnkm&*{uMpoz(4S6tor(__h19aV4o7zdw)w2}{L zSDa&FQ}opIbmDf%7JSIw0SUpv{x*68>5Th5$iPPwaQ0sLaPQJvm=1^Q8n9Q50e%L2ZILJ(g&naF0a?46wSxw?TaRBjnGZ@M4@|ySw-M? zDWoR?(^=M2%_^9wH2)PS<$)@!%R!}9VOEA@EV#GS($z26-S zf9+=;!M~~82LX^_MQBD^y?GLuh%ri0F0!SE$I|W6gu00ilI%Hxz)x>~#+p0Z-A=zs z8gGrXJ#~q!=<_Dz*rntbzPP!fVAOQ&%CNp8G@Y-$tMx(**I_zJy67pebIhU z9fZwu%@RdB^o#nJv+KOGRo=5a?H|Ga2hjfqqj3At*!>yw{!9jdGV}j|*&<-J7$}

8oPhOe19nX*7RY=EeF;2=(| zB(@3k&BTu|fH}`c4i@Y1SaJ70a6d<&19~(+X<<%7cd|&;t(@jGvr%eUJ_L%XmXUH8x zu2Btk(l>_y$O(DE*o#R;R^CS_L>N6#CecudXj6=hk~kNSu-TA#8Z+~SPPYQ)u=Ipg z+U`&2Z-y>)3sya!lV70!HMG>{^l*34NcvU~0sy~b007GWSUv6R{$Df8|F`+i$a2kN z<%A-UxW{JrD-`nAmc&3ybqaiF)SQT)erTAH8x{oV%Ye(c!-guJB#!#&b69AaAzfpC z7Ry>R7pcvZ9=(?xZoHZ-HsXu#R&`sieX{cMw(_>pcbpXl`<5w z>v8=#B8ZvtZ0ORUxOP^V@=49v>EBzv9D`ZJ8hrlsS*<{K4&KcX_mmp5eCG%8O8`D5 zKQnMb94goN@v1ox+F)0%}JgWOU< zuN>X-6ICvD2p!I6pq!d~?^92ld?N7!GO94ANdvMPYBeey6-n(oor4aXY(a{5uwS;H zO85~mE6LEr)1|&paMq*6b+(8p1ZQRBGdleSeBi>Q!vEi~(h6tk$yk+xXOAXb@{e*d zxOh|{I$E6v$q2d6B-JIHnzD{X>yl#T(&xfNMq{|b<-KA3GMOyo%++;8l;=St<%5QH z^v0DE3t^bAtAnj>iVdfLm>wGmH|-UF*l{8KYNOGz4~u4LUgxp;<-ta z)Nxb$7t^MqamzMW-wXBx8HZM7TI}M}?Df%2ON|??o)r_TABIL-J54z~%^9zrQ*bea z;x>!za#h#>f1&JF1PiCurFFRBiRda|wiODYTPS3~(@X`1+C+NUnbTs0av|$7X+fF! zBN5ZHl3H7=zWYN{0tbJiA&cbY$R^3QK7L?@9$z0_-A-Xz)cnPz4QExM)t*09JI~mA z58aVJ$+|gfXTjxasrmLY8RFHIADS+m#pUFr67VM4+5EchO;v$nGufC@W{rw1IZJYv zFe{A8<+m62v=e&r%)<0elr}~|MLXsD{|^9NK%&1Y+%zInK^VC}G{-G9Naqr^`EAo2d8KZL70k zJ^993dk{>4a>k5bZ&}YeJKOND`K*P^JKtJQx>mbkE^S&*9$AeR>a8>!RPX7A)!KlB z*3*vFXcHn{M%>83qtzlsp+s^No6_OoY&PYUZ_1X;=0K?<>&n$j@_wd`^ zO4C|vAZx8_{%w;Pg!y7k)a0~ZxlAk<=>`cP?Wp^L#nV^}(PKczDNwMxPCxRj1WCG2 z9~O6@0*>oHawzNKdGAbKi0%2yDvc-VHQbbOf`Kmw&>zre)!JO4o)l&khR{GJGr*Y^ zPJ~VrinC~{h7H{8yaYnW&!_8?WxZ0U%uM3{E|)HsCaPDlC&h10T=2b1pT_}Nv7Q_# zR;P?lK22m21DFpy45WBb0TLr4xbhI?1&yn76aR~>XI<8&XarzBTCtwoGw&~3FK+f$ zah-4Xnk{o_JuOlr5nHW#6=zSTILRSK0Eu%be*x<(>4*(49C4xT-dVG5cc?V61?p6f`yD;h9XOL>a%Bwna>TZq&b;pEqj9aD_}IGbtc4 ztf33DMg_N)OV!%tg;~R>FC+(C{cLvzQt1h-X~V|ya%%YHnd#{Tqn^wT`NFJWq@}X_Ngj25eQyt=l$o7zpE3nEo>Qio31ToIu<#ljfMevxYq%OD zcEVfso|_2Q7LWvN8#doGtj3yc#uI7lhh_6M?q436jeEEi(AQq0RwQ%f|6!TR2`<8s z4l99Ti9TG>sWq!v`)u2W1duep>)@u{Yjn)#Z*iNp+S}I3rulsX^_pFC=~u+tw9wdb z(}JU}ep>aw}qNvn8~76pO_)D9?rU_jQitRL^1?dLeV+pZ`ouytjI!~qCtS}u=W ziJJ3R(f$gZ+pVL?C>#ydgIp8#v}O)X7z>N#din%2ccFJmr5R(}@@Vj8{sfU%(lyo; z)=vI>WhTkBn~am0%L56|vyy_ni!0p>;0*Vr-8#UD@`4d5e;$wTlU$W12c`rBl#$C!8F$IvdD& zlxYxItJ~O7BHI0$-!*&px5=RP$v4*bU5ImuMNA<)o<$ipnPE>2NoxewLN4kjnJ=IV zf}~T0HS<%+qCT&m!VNx2CzJpD)hYdI2?t^H@hEvr;b*!KF{@vi_&mjCmJSXdJS?{Y z6;I5Ea-DS<%`zrR9^*0|llsMzdI1w(D9y|jG+oOk35rHP&eWGWFZD63d5s`ZW;^>K zS@t?k1Or6!SJ%cc?^$fbN&1}4lILOJb;?!nMSadF!h3Bjh4~%^Uc<-IIOgTwTWdEF z#^*6!Apu=KwtFrr(*fiZZ3Hn5*+n_1Xs@$mE^wOuIDn4of6|ZQzZ{DyA!yUlGAWii zryaU9GN<-hWV$e^;i5vh2m}j6hmMr63_0jf z9JCvdGdn6%OqdUNci^4aelJDz2?qo8oz5+!@Q7&7U1Bl5OUwtkC-6xNRpOrhZ2y$H zr$bWv!HqBPcTah*d(uXgnH~RB6#P?O@K2hQc^#($2bCm01P_%LJybr5hk{qrxY&8- zs^S^0uqWyRItFxhhRciB&T3RYi}l%7^-@Bg9q7iFzDW(REZsiK8ld9aYiq zsHB{PQ7$DdLk>DL2W`W)MK~-SH@#P$Kq??aNB6hQHp6;cH@~GMrIO)L zN=z*ZA=|I+6*E9k&cyu_?2fTB#c>au*~^-bcQ12J2VXPeY>ZmZ|2%~rlY^9`}8TuSe8KmMTz1uJb&y4F(5y1(AL+mdM$)@1S%u>BKO zV@~5g^a(bD`cuPXy1k%lEw!y5H=$uX>Fm71QOPF6896lI@S`sV(9z1&(J~&hx>?B! z^HIx5N*0_m&Z@SLgnFu;E-E>~@SA*$tI{@MXwsCXz}STKSFOJAs!=HwIrNcMr=otE|eW8Mx1Kq3bnE&opUu`EAEhvoMe zA<0Z}>YM<)4!8vh znPy&}Z15fw#EV9Z+fwNK+yzNi^{`U}u(VElu+aYTN!NV+xYvB?=^|~k zJbw^<^=6OvGfWN3vi~5{6`V%R(Y-VXB zYDU53xBla<`FzDweso-sF4#jcMci9~DJ-f8=Xbb|43U$wfe6xaslzz~Fxgj|=Ibp? zV+8!>txfaUIwi%z{Giv-_yEYqVm2YGjfX+qV7rtijxGQIE%2GsBWFJQj8ee`tX4*< z)6?uR9z6iQEsw{~&Q9_Q$BCi1`ca!4cyz( z8g0k85|#F>$`D^30A}JgO|WO@cYhQCoJu2oP&S=8q>bTNEtAfSX2x+h!TemrAkYg` zW?K9Ka=>wKrPZ{<8kIIXc4Sx5MhVYkz-k3s>(3qYyJg%Op;%D#Q zc;oW|_-L5#uVI>>VjD&?d+eg2(f@48I2}@ zQ1%$|zpIwHw=HsiTH;={KvBBUw08I)Yk6ab5A`Koe^v&E0bh4{6Z2xCQ3DX{D;quE zNBeSNf9z{7JbN7b;?oAFX641>8+-KT{toBU=jbh*Fu(^eIE&5zV7~`n@2EQk*zdtt zOmP7EDN39+1@JB+gBXrGPLbof1Q?9m?y~c;+>EjuAI?9-RW#PkUmN0rbnsk{m?4}$ z04v#V>%9jrd-u2DsuaFtQhYSZ0DL8mM$ZhI6+Ra?$MN3IV8y688{*cW4J-nD`oL;8$ni^78ZRauRRF#~2jge&r$GI=QuF1_ z-crYJ!*YBy$^h{UI67T`{kFid_}TlZFo1VsfrsK}@25b~d${PSqgXY)u*rNwZh>hx zd#lafkN1#uyW9I~myF~ZR`YGI**5?EzZKiG0NCQ0eKUalkj`W@ICw^=)4K+&)&?BO z$yjS|(ax*itfw8}wfX!len%I~GHGpRYjda5u+NV*)|H360TS+2J1#-t-l)mN*#g}S z=j?+6R2t(Jl1`tK1doH@>^|8?jI+SLVGZ`ck(&qDT?;{#LRH1g>r=Xb z7<>jF;8b-ceH6F$%G9Y+#SrgxNs2r7a3}VkcR`R8Y}0i*H|jaWw4Rs5t z^Z7QSi)e~$+)5nD2DN8j=hcQo`Q$+0{Vj9p9uBWnHze6GVbm9E0eT3&GXj9!w93Y< zfpwfDH!vt_6AhwlDwXnH+9jH?c%2SaqnLubRL5aFgcLjjloNb!1%Pv_9n-)8=7ZEZ z=tdC3zFEt^bPg;32N>Z1+4#+{9&NfbLU%HZ%&UvhW`#QXkV0RlSz_p) zuo8A&-C;e_&g+JCyVFmhoHBVD-T^cguy5r(DgbVrtPIYM8K+FzKFNvEJFnZwe>)Bw zMu9xLDp7EA6&otQufdlh8an_M!9ILs{c8h{+aY#!en+PQAfKSX@!K=vG1ne|KWw$l z&8~9akSuXLApn?TYBq46Z>`XsqW16j)BwH~Zh%Z@M*A4#GO1SXfjs#C@hJd!C5buK zi4u-`fz5Dt;8rMVA@1+!Q~>(4ka$c0_TK`uK6bb4j|F67jPL;Bnn0ZNyIK6OjTU%~C}0^1KFsQsr4Xg}y+_Ma<|jT6L1Ymhd0 zW7TN60NzRD;f*@t9_(1D1ZnU_U^%y5Uj8le+4N|3^dMt; zWGo)j@HiSE@#VtIvFf$tfJ(O^3km2C=*ncic4`_{9sJ*0MPu0`=BsmOV4)C@ zr12U|&NsGkd^a$Js37O-*ULsaUn|v1ML1X*TK9n~Jkb{C5+ftpC`kEY8w;vVr(9Zl zhbwEL>nhr4#08bTT2IkN`&md)FO#UpY5;Cr%f4e0x?B=a?|($jV9#Bh^L`x%qDJUi z*WQ{xZIbJD$lW{EH;=5Pb@%Qw8YBi9k88{JCo0$#8f?k0>V8&;Uh2u;HWGF$mHXyb zY1-V}hMob(v%%T~z}8R2B4u0I0DaiqrN230|K|dOV zK!$7@K1axXYtVds6Ssn3DYy^EPzK`Hkpe!BB>grL)}iMX6FK7y-pR zu*-|Byuc440@(IBMrPA6eP3rKgMGVug8w8a3k{}w znhQX)P(EKR7ix6mpr1G`-bKUTxdrACa_Nlw`Bd-6%spRpg~yZpBllU?h<3(9K!8dR z!y@-?O%hu$ngjUeUC*2@1u?KZLy!L;k>}63zS#Ih2`fUHq*ZD-%)|O;RekY>{yGuVaI3iVR8LOm9C zSi&7y9{1#RLe8yN=bZ0|b6*ed!}Hh>#RC;%-GwCs_e;I@uR&M(D6yOjSPR(o?RYZy zSamk2@3Px{)$RIfIvISdIvdm%$@N)vQ6~9i5WW$bhd5lqc5LwQUJP452qB|rQyATP zrU0G2-p*8LoWZJ$SomPo!zxM<0O%6bX=jeyDN?(+^XjETwD)wwYHh@yc%o#iH!ZXM zJZ$1AOjH0W?v!4t_?^Z`l%+Br(q%Hjc&lIX7x%mJ-r;_T!n&maB`D--g)7?58=5Tb!mpXc(S=ex|Wpy?j4GNFZ zX#v1Gf-N~H6T!myg{ttCSC#VOaRMNtE2pA9$?-MCOOfhxssz9>i6qBr7`cp+LV0Ob zjUc%o@Nhcj`TBTD24KSD`0M9}AiM_?og%;cO<^UsW0a^iH#jXLIsuD5P?)A(x`>UlTAW`WKydkNcbrQ3jqzK5{VL2 z0zpDb9)ffbM|CAWk?;H+x-Y_{E z*r2Pf9U7|5e!vBQ)F6tQE6dp#J&Ks3=WDeoJO39bKY7=^B{o?ta602Ed4-o#{$ zD$zUGK=|hz7t$X=b1}Qlhd^GB5;Uny2okzJwBu&yw9JcEGG(nCnhmjLCY^~w|}@9qwFL(Ug90EJiQj130+-GO{I=k%G) zuuRTr_@U^HuF7=kghtmPPt2eUZ+G0Z56q9-l-6vU=D^FaH-b%DoE_zc=A9;rG19^W2|8A4_y>$W;XX!8*d@o(N61A+ z9Trex??{zz$!;0~)FzfjBliN{q}g*Y&#t&l3Oh4%d)>?9^+dcFYq^m*U#9kZ^oQ^^=m&~TWQ=M!$`*9@RK9sp8C(90G0kGq+#g& z(+yr96lQ0xRY%g|XKaS1bg^U-2SzyQIv=d(zfjfFr^a8I28#@uC{j6S(w_-cNn1ys zywJK-OVw&>W(FLkXZUbE6X~n;gm=@MUspX6T+R4F^@Fb@kKO1&<_w;7%Hp>9&-v&L z1pu3*#_5`8A4cl>DFB4mwgVqxGhxHJzXe8em=`I%F?_V4J?v7AEJPxaEVL{2+TvhP zA-yX?SA=RAIG7z{RPsa+vZz4>BXeXr7Y9h|+^g{4OcugDTo_y#+bE48|Y zdw31E)P4WRn_X4s6aDoC>ashEkX~r`VfYXzq-C{vs7}k=04Ipz3);3%VMsckk$! zfDb-yhOgSB_PuVGOqsIQUZFt=iYcrQAT<*aa(sI@w2vQ_dIU=~q=qnL_8Xt}C^(tNyc z`hKso4x--Lg4Af3g&?cU^*wY-*F(>g47rzD@h0lO3Xa<09vPnBgHA)|+Pq+ z7E~L|c{hHUjW+{j>^gzWOl0!(ZVC5#94@ZTz64zB9?#*k;jeHx?JxSY}FHDX9T&tHV6^KQa?~f_3k44_*FI0^{ z=ez}P`Thc=O@eWdK$OsnVgM{VIR1(8Y}!cAC9`S=GO8@pR+qg+Ugg5d8Vrq)q!2a= z;Z#D-8FLqsZZ(2lVBy;iTjLTH6YL!%a)FGFlR&*nz?CIMBsfX8qQ76LHDNnfN^&|2 zr#WwK?M^e+==y(dz>@piy!`wl#zuMz#0tXlFb zs(w#%><<5gQ^xkEE^8=g>RnE?1kFc>W=?iIO!ftiL6+khT{g(byqv!2H7gF}ahgtW znIjKX@u7<0p=48);F08(CwNSmcqH16T-^6w@L)nuFF_4J7ZuI{c!xYOBJ~SoI3-`6 zYa8*ICk=f7UEW)C`QLyAZ(14v1(oum2x@3KY93O~ooJ-H_!3y=*uS}J4UUjW2DC-S z?iSU7DEm<=-LinAFgus%B6EZF2_z{xNSUi_zNKH36-CuoUusC5Jw;|x`RfB>gV=sr zD+N!HRaNjgmtc5wB^hvVT)n+?r&fS_ElOHhGEF851PnHV2?!L3xtgx|-*m?(dY?Y+ zxK;HZ@Sx*Xr~ygdcFSd&nydHG?;U-D5TE|jF1keczdPaIn?z^!w>rTe|FT?Py`v*E zGd=Sm18f@;;DJfy?Jm=`D)srr)wRam(rox>1F{sqc_M-_F#dF;L=_s7)ve4g!oJ^I zUy54gZMLorJji&3yPrb;AeG~b4@6TtVlO8rnaGw*UK;AoN=_OPKbY-~!}n^H29jo( zJ$Xs6?dGWry_S`k`F~bsuMHWyW#i>d7H!pQ_0y-|Vy01BT|Is3KTt~p1QY-S00;oU zoxMCPw1`@TIsgEod;tIx0000;Wnpw_Zf7q;NM&JkX>MmOc4F;)YjYGwvgr4X*#FR> z4|itt7|laZ!tw?P))32rj4+P4A3PzUkx*C~>1alay`N+==3s*lux5;4B`l6%EpKS! zj6rbZI5_T)x!=@1asR@ttXEfc*Q-Y(kax+jQBQSsR#sJ3R#sM3=KuSj|1+^Vy)b{- z8()~JR=x4l<*C|yW$w4X@et5g=l@h*S(%@inqDY-ldIF-_|(GX(uY&E^2!yGd-Bt2 zt-P2%@#&?h1#iA|d1Ub|ARO_j>gt20+x)X_;Y z%u5Z8aIDt;T$+&*XGr3dkSJpUJRg_xxm>i-=2VGGtF<|~F`+t`8aeBU($yG3F=3{3 zrL=OwT)lE>alRrq=~>jrx{nA0m8ModiTA%EaW0xTQJPp?T$bs+Tw2aYeivj`nvhW- zoN~LxX{<&IrhOD0I5=;tDq_M}xhq%)=?b4MovxNnM~1@HXg5QL4#zrvHkzPp(Rp3b ztJQMp{QQFW1tgt4_g*Y%B9?S&p?o=-cJj2Us1%gNL==()<*Qh%9oO*w`-lmn939Q^ zVX3;b0J+4$2=zU!enIjB8>o|YB~`JME!93%r!&@Y~4jG3MoS(U%{ZUJ`LM=Jnb+j;+FCT-OBYdnhx>{{882w=1&^E2qUQmzP$n1k zV_soEZXF`Fr8ehtz?fGY8jNI@vxb5(mOP_QuEvwuV2>rjaE~WWC=&6IkENnPA1faV zyhth^)lzym1f^tg;GqUeIO0rWE+q)|F{&A*5L-5bCwKRoYrrHMul&awh;!?~=S?qo zd9U@?I%0~o*7dCeQz4JqKQ57(w6-#j*|h7AUEcrle!sM`I8{qaN?otlmCJQW>RGCF zZ6o;h?*8swFSxl8eD$RD#fFR?D~%)<6mzb8)f>OSn|MC2VrK?CN zp%8{I5Gv#;QP32NusK)RE>g)-iZg+im1Ly@`5{&X!XJ*5S{CTNT z<~0cJ?*`X45$8}zNT1=qu@rPKYoshx5B=^+c~g}c5C3}ST@UJ>$-Y;veXzV-UO9nU zekPsEz?;6jckxQO;-&igi_&pjZA1mez1O{i`37Hwlx4*cEmc5y{hV8&FEjL1d{k(`%=^=lo?WZ z0G?by%`FTDU=$byxFhcGpr(QMt;Uvr^Jo9%n*S2bKWoALyTKQ0t;YKP^DWOuv*yhW z&;Pl;|Kd)ou^TjALH2L{3w^bYUP3QImu{lIYt;Qm>%rfDLH+Bs?$r@TfLz$x^Zfey z{@$MdZJqXStFeJT&8nIi5!PC-2ak5dzV)BJ@;nX8QH1L-*JDDEsB9uO+zTG80hjqV z>cQ4$h>+IjyYb=#$)Rp3QC@U>m}x`|Z;L-x=T0nrk_IV_zV9bk5uF%iM%8=(q~n*a z?muhpKYx|ZkXl{H27kThqbcS79lw49ja2CD`XQSOd zr4UW5(u_R(vMbYTEIOUhRGrl!c(LK%S`+GkfBV@U?|6<4g?#m1sp_5dM0VT2p1rdWp)_8egp_2H2glensQw(_?9yEJIQpnEb9TOhs)K0_>QDT?e*uJIDYfqLGJ;?3 z`QL1$HPy;^cwR)`Jla8A2p!${D){P!fAa>Cp*qn4K&8iu&}}t1zLY0Miumd2;#^xR#!d5 zXlG`1;|y^S*b?9IE|jaQ3pFN9hzvRdMpHqEXMv*4S5#-gIq4$c<_4nL>keDX%ydxX zSci)=*IxAw)m>6{-*F{Bq9V6X!JCnC=gObdlwGbRT0gDaDD#wZHQU>5@q6%!q}FFVyHx zXwmugZwNYNx*A(WfemSd)Y!E50yV3MF!D-`^NI@R-V3CKBUJWf4^an5tBcJc2)m+k z@uO>gSbB_4R_4;_0+I>P9X(zyn=2Lu>CbN5s6F0L20bEvLXT;bA@aT(SF9U1S&s*( z(gYWJnIY-)`@uniAs_i(%z>K1zqt+K3)OOWjS4ZO;6MBk7^zb-0S^!_SIByKvuYDF zJ&+C%4G`0-mFcP2VuB`f-G5xq~>gNLk278cGRH#S-i z&>-FNcXok+(H}ln+u2i`R7|}Uv8C}s^g<|gjOYRW&vi;-+=d(lwrfx4rM%bg<#V|l zo-XELVo4W@bSnDDOZTC_8AKA@EXiQSmg`a7USR+h5O|kmv@eec*AaxVgHh`P^tW{z zt%J5H(yOJ#63_2}393-+M#X+a3O8u$d@Fy<8_22inHN#4{W{ioQro1{gE_hB_~sHQ z0Wibc+B#hrfCTzkM%mVh8d_-O!JL1)?$)}4y4E$W;h5c){O#e5$E%>~+z@5_9hv66 z@u_NA7@IE}Xc}!@`>FNW4jEn9i!1YsP9sxH74cZ74|RnxVO_yiofzW5x(Nz;Dw?8e zFaX4oTWesFdfWsf{&!!d{l9PfPhXM!Ov7kM&6dt#4WQpkb3W?^S;E>Ija9zCc@eV! z&xftRSOM(C$5tkn;dMSt*6pChs5lnf+zA@5#3~zdU&1#3e0Bg-T5R~kL_<}&y^*0D zR3^>2myeB)VQj!dHLP8+nDLHziAp~feE$lp8g97>t-0*buz}Y1DV^`DX&k^bCMcB@ z8d=X^P7Ss;f@cphZSr~W3?cZeO+E)8XRW9lM1pISENt?lsMbLAN9fmxQ1cwBd46o18B3Uql}(VK6r|rZb+C59t&Y?jzLZ#N_($u%L$`Ay0O}{U06$ zje79#-tW9%{RYZrE`}9C(1XcKDnTm1Wub?ccDaEp(wI%QCIIuI0D!kvaP2dYmFMZ)U*l)U;2&fX9jyD z6~D?0QjL1yU>Sex5wNQ#=oC`ywt`1HV1i+LwWpSmyT{&h}vCC9mIJN#^ zgjRv7q)snA@zLECUX*B&E?-q{x1;nddQna1!X0yxS2Oa}i`rQ8;6<%oHV`$2_he|) z!-s)bvRRbDzGGO|Y>4bXzwn=~yBTgpfYXRsepHbhPDEd>EKV& z4Pb>2`%yf**ee`H6)#Z0vv9CHa-3W`L~anp3{=vpPcFe72^XF8M`A?cG28IDN34?> ziD`xr#lP;mBP!F5BvGoVkK9J0>g1U-v!P1qKi`G@xbJq5;W)5=m-{T#Yh=S zwicywLJG(knfp!u`&(8D6eSZ$PA9dEEycn!#cmscFJ+On=nFLTT8(Y?`(ZPvZ&8aYK7rL6HMyz;N_Z(H&B*8r zM<+0NI8?jExu;)TATWJ>a74KQGAUf74ds>10H9RXI5B?G?FacoYt3!y9~q-U+oYl?X7zyHPh=*z5xhmk+KOyY z4KT^9Z6W|l4(igs)g^KwDX*2BU~4T{-;TGDIz16-1Dzo))?VuLgrpS?NZT*#{?}+h z@smVYJTVznMv`<$FhO?X4L!5lr5>Ijii5^2uo2zA9v;H&rJqgKK83Z)%6x79^3*~v z46473NymgD_%!sIttkNE_3km&Jl$S8+;)|0I_Y6B@)UA{l+v{nxgkC#;1Anco)5x( z!agP{GuVhqW)eOvjB440UK@w0uaD8rZ+fx{lyL=gFX8GZtJQE{LAT*gZ?&__ez3b< z9D+RpN&-qCzuA>c%ugsOLn?X&Xkgz8rxs9=dU2mRMvHw{oGwxCQ`@xqD|~)8{+W5v zES*jrpS-fPQcDvo1_m?ly|Yy-GqBCkZWoH`q1@69ZNpRhDE%R`4GwFWja{&6uY@>O z{rGmPQ+sqO=nxJf#NVcl(YsW1tI-3g@VF@(Cm-F_X>HV*0={(?&%xa#P;tpcPwPK! z!2$o<50LK2Y;`V*2FXjlhHZ;)cgX=s>p7%2ZAuMD#7xznju4eZ4Wc^!&lDG$q{3(Y zu)|&`#_+LNW2OSmG&*1^n-}a}s!O3mMMI(H*^teIe7=KqiP+*~3e!%0$_{RG^MGA) z51)HNM(4+ds zFSGrjr}b;u)&d2s^pf^97WAj*-_Po6EtGdCrl*eG>xa;f#7BFj)rL zTR7X7Xm#7;&(p zEid2DN=Z0YHLSMSFzEckx9#TBuOR?BzYI>?lq0WiF`S$>{Sw8#&OCq-Oofi<&*3aE z$LDfZscv4RG@qwfp2-tlc(R$VI?W3Z_2@I}=|~uB-LLIwm-ojx=n%9 zZNrv@2%!%n_9UMF;On}1htVi*aG-H$-tQ10beY7S+NMF=9YHjhH%mkaJv6bWWHcBz zY_-b*&2a+-D?3l|?F|HL!~THO!+($xp<%_J_J+m&tms3sW(5!xba^6@Q|xq5Z(IB^ zIV}J#=id?oIWSj5(>LriA(pkZN9)mz)>nIEDQKxWTX>3};3J*P-3IqLv&B5M?fI~sg__-Um)7aFEBp-iDJe6HUL9^S()d_;_)!rES4m{ZJ%otKy9DHT=f zO5_yJCi_ZZ9*rnvvxz?>)X>inm15c0J=t#X*E^!usF2=1hlXRGP&Qu$&21|!-~5D> zzfi4Hw1XQWNm8_nLmcXD;vgyq*CX1+vQ;NXx!8~*c<>lqoo0<>@)&-)4QJtWb1ig< zn~AW-JoN}pzw?5vjs2gRa9NbjS&bY1o$c@w?4MRDh|gf<+LZDIIN6e3D7`VuMZlrX zh(ly@$}^f4O8}`LB}H6+$IF?HqL?ntN0Xv%(;+3A3ktdd&SaulXQByJ9XYe5E1%A+ zh}maL^Oc&MaA9g@eo9U}h*R~5i|Y^MpK2fLGS$;$GkIBZK0O`oFpH#!KNOzRvFmv7 z$s_w%uZ7Oo*~bxI@Rcb4$t2cf&&0xqk^Sh{n|bK3rG_S z9Itfyu5ulIN##f$66FrTqowpGu@&QELFL{3ipsk?O_cit_xY7lHJY`m`d;B3UYW?u zNwGw^dfcX@solxaNhv14M0Gxrays&x^xiUB{gzG|UE)Us$kph8kB3L#hdUx&I~n~j z=AC{i79N1>M>-BeMV%EtfP@p#gz;!XROZpXor$OE3Z|pvY-zEi`j`$F^Xt=p(7aYk zm$)2?idQ+hK|DwTiGXlU9>tL7Z0TY=O-`Yklu}y6_kWysq7w^DB8Xcm@zfJyOS2&q zo2a7vq3RN`QKiXJ6}~_i1QK_iP>vQcO)i@3sEJ?LB0tQQCQ6Zxn9yUF7kcu>Mr~`;|n($lB&y1f!32bp3O*%;21~IOHTiAy2(~(v{ z8kw9J#SRMU_|npXRCn~rDzqtAK+Y;;;i-NP$D%NMwtM4wxW1MX2DyL7Zaj1=&^; zu1*|o#0t7fz!wetzwP+X>acVBx1Cmf7Y91Hu}&Sx@9*6JXX1I$t&7Hi3t4B-y9>>F z>;9c|E;~BhhyEGK^kQ%H*S|(@r3(r+l+i|rHaFL;$Gk$UFGxfVM2`P+omyB)8_|dk z%{7TjE4YXv`oQ0O<=?vpj`25lTlFSR?Zr0Zn@B5@K9|LU^AJ_mf|ZCKuYy4G?FPZ z*j{4pMm+}R>_aBp@MO?bqexaZ$mQ@St?Z8b{#w&6WylJX49fpka?VdCi&8F4h>V876A z+z|H>6%WsYx=8e(i>=kvgRWdExN|VN&5evka<>yzNjM^blZ*p07crdU;Rrr4u=k9^ zDnR81H<29CoO05iYf2GGc>xDh(Dx&vOzy;suD41%OsB1;Dy3!ejC?Rq?O9>OFU=NLZ2iV!|}a)0gP z7Jw;Rl<-3=FicLEZG>+~Zp%EQKA_9sF#5{9 zmGM}-5C-fye$cQ=7aYPWWkml_VL1kdMuJ=(8=z&H1tx$HCn%@SX}?shjyDuGn`5vc z0}00atN=VFkb;Y;Y>5TpAr8x(qUQjR1%((;DQO`NHPpRtJMIraqS!wGHfmnapmgZ( zclqMb-U^}cLr?a)+sY;j#DomzMkQT(CT2BpzI2ty1*JsRQDmN zrhdFsnfrKkS}9ZMJFQIR8cV=K0denvb}1W{Y?+S2<;k;+;L%fv;0eyFn2t;(pOgV< zvfhBBa?C%nt<4xp+v#xm*fMFDY`ls1eGx+*b3p*~-p3bv!OM--dV_YxUNepUWZ)Kv z=8YXQ06DXOT^NrRJ-C)RItZ7^3htkSkBGcmc4foy3JBNPvlo}JEe@hlsk6Bi2+-a= zbrq1~8)M)>*Zo6M{P}bJ=YRiuPQg;8e`$91phP65V&V*^fIqt900>JT9d`TD^#nHn z?J8jdiF0`@&5jL#@%MokR46+jZm45yYRT2FY>u_R5`6pyogXaeklCUd)3&-sL zv>Uu^AT1%-s2hAB$TNdrU&Gh}!O3iFBD1L&QJ}XvzIs9ZAdm<5?*W+XZ*%GZVB>uq zS_o4TKD%Q95Q!N)2r-E*~(qubMfHy2LF|9{IXpTBI0Kg%L zD~%7DC?w$+0DE^4mna>PSfnrC3N0P{s|qc8tC#LUq@kA0_gN=A0W9B%b-(|4qH3{qhpHC+o2MLf9j!P4^|-NG@sD7=YaaqE9np|CJg}x(uCoAXl2RY6D%6sFo__e zM@ijcz%96RIO4jg7nN@2p`|}88=vIv=C|i~&^cW|wXhU#j6L-5a`kIFd^A1f?c+;z zc=wdLp1$Mx_nQ9GJ&$Q-^g5ot_`|sQ(HU^LRn8!O@s+fV=W_8?$V&6sZ*?5%oz6cW z%AL-T>?42u4M4u$NMkr1mFtZr!rQ#N2jF&p55RtE06=|@Z>4kh_yBBIhyY&0Z9afQ zz0n8YSl9M%_5mcm-3Q=ES<*Xp0FL+U0NklKq}z4?NBhPdfL)yd0AVfOsVBY$ezk58 z03v<`;Hy}Tn$Z-It$xCqY9v~$shdD3BH8F^}nPZ;cu!Z@c8WwZ; zSjbU5$TJj%&&oZ!hQnT4Zo&g-PL?gxqh)Tx&4{GnI`shvZA!w;VNE_%=h3<~PtFKK z7w6H;6w$aHPWrh`oB+mp=_HnaLm1oo)N&S;9D(Me#JqK~2D4(VCV$f(f01SjR0aC4!cXh$0H zgwieTE}iAIsZezp5psbK_cVwnoDt;R5OD`&G z=^(5lfV;)Z6|!DlFTP`*y8V}Rzu6T1bx*HWrl(?#d}(rMZxS4}f`R8{-Pwh&;Mm(! zKuQb%j=vj=P@9bx&YU+q%0EJXs5VUMKMb z^cUgVBQ&odRIi88vkTWg3+j8s$rYSk5PzDr!?U6*QK_2f|NY%H)EoQF`u^Ttu(=DO zBvCa53}DlhqERQSCcp<;QsMaO?wbE}J=oY*&&uu5SV&Bxfo(`hU<^c@^XO@C{Z>1i zVKP@%=Fz#Ez!eF#)_U>XI-4L$C4KS)RXD+QM0!ok&*@`T1PVvflX#$$1+KnNj>32>ZhG2HM#t(Xh{wBULgGf(b!oMlZ($Q zCKB<@`A#=ua+xV=GejKwKWqjYTdj47AKeA9ho0OeFSwuf8vIGNR^+Iy3q^IQcJU!p zgf;RHYcNIO$q8enB1x!)m}D;k;H+T1EMUR&9=2HK@|7Ayw1=e7D_dx>!J+ zn&L2;0c8MGX@ZNgNxXUTme#qs9c;czRDDx$D8bflY}@9JZQHh!9ox2T+qP}nwryu8 zH|PAfE?%a3rutz`byat-^7Oq{~s7aVZ}ZVmH`vX z>M?~eC)7Iv0dd_FQfdBzwL9pLY8*^H0C0wt&ogcdK(f~-1i{OsSX~AMa&bz=_wOht zpWg^V+$Z7(13dU1lPybA7bUFO!k8goWLnM8!Qq@1_N=SG zjBl&a!3~D-lUQ$ROx>5N(a(A;j_Kt-D=U+}LN>$m+~qZ~2*8Hfy{ycdhg0G6vhHt@ z>=!A120Q~W+;==LgK?Fj|HHY+`!)Y_BgGa^n9w&f%l7Zqwmg+jHNO84WYon`_`{A4 z-ZiRE&;jU?103qHJtkgVn*TtfJvUhyX%mGB)g?sK*-Mxu+RiH(gT2f3dbF=7Z%*9t zPGSD|mFrj~Oo7+5ZqyiVpOPzX!1@m_g8gT-e;6 zZYhW_Hh0VCv+F~!VpH!=1f$_Qg0R$7koW#AsOa?BgAFL4;Mq_~Fq`j-L$+Toi4tqZ z6wtFTaSdE#Y7I>9*ST~0_`bpFNh+;Q9b06yJ4Ah+=^R$BMF_9vRb*NO8LY{$q*3AC zmcf$s6uMv#ZP=(H=O40-2J0r>#$w+@W=edib-P(xC%3BA>R8&FsnzO@0<5Igltx== zm+zce7&mbjo;!iN=-=$#2V`pX7viSLwQqTSOb8`Xx$#+53FXPuRD!{;2wS6i`vVJ< zG5jWxnXUvwLWju#0X=MRVo4OB8eRT8z3$k|gg@`ws)u5;2;+by{`b(wlJ9?}08Z!d zA1p0A@~aNOE9mb6f{+J~D<>#{i%sVvE7&39x}X3FX%Gcn%y0OFxZ47suo|*Vsl2`l zpao5E^vY<%E1})?ch|#)+WoerORv~XW9S5MlFVdjP@^%57qLiGal6edYoApTn|n@N zQt38!fc=ISre(rT4}R_-ssq1lzblv5)_h$egPr|_#8!EM!~GY&Y;!}=NDul zQrChl!xpEQf~0|O8>zEt?^A+<0l*3>Id1;W+?SDK&aB^;2TvCNhm!Viaqw_dx~%EW zpfl_%$udOWmv!gjWe%C!ym#~h<MKM7P^(BKL^V&p5(wH(ii>WDch* zUG0O^Z8c!U&cTcL5DrQPV_*mw+t9`mGEuXDj+6!?u_T^~F>leV%^92qlD{9z(-nP2 zY)QhF^kyWvQiYeU;cal8i_fZQC6b5p0W(>5f`#>`uk=8U3(l`~>rdbO;Y#D_PT>@k z9HD2sk^JLlZQwW{{~KQrfGNT`%(O7RcTxRAIKPgI7Igg zZA~nX_GSGg^;mgbKn3-YQ&RwQyzZnW$wb#z|FTl0!;I?zdUl!MpIe1h0 zN}y<6`>KVNKhYtFuBH5}A>4@LVvwbWE%V#PRZJ+nSW+3g#x<^~T^)(b4Rc@y2d6s# zp$#Q7zWAN)VmQdZyLcPJ30M9>8|a)ZSSpR`7kENAaAs4#jk--+vDS^nmhwe5jPTvh zd7sd`&{o!*D{bb%vF-_l;m4z2juk|lf()+edLd~M#-ha{o-BTiY#$FNHG&P<{=5(? zwsnhwOlzAXE}Q2Ok0Pjlx^&qWw@8(OJ31_`j9p?nM4&XNe+0CP5#<^udB>L#2kBx= zy|-Sz{E4jQGqdzAO+;@)toQIp-r*yTo~Sf2gi2f)=I^#f?Sz-)>01NuO3OIgC~e0b zx~5QP>c3ed+f9X1vbu)!WB0Ixb%MP^gmdj)_}*=er|tf^O5HP9G>9uUkviqZA`WRZ zXA7fUp%F)Mi$bMKkV>J(Z{aXx*oqA7k)|EI^h(2V7BMS6QMYp>H|s*m9N4FFFlEif z^$Q2fRUS^RQsIv7^sD~{x6#U z@=Ce=i{|6?F}Esw#CKUy3mzTV`@d~ZAB%P0UEGJwA&Kkorr_h^`dK>+xxE188Rx?; z1P10@ywnq{4tI{4sYe}%rjAyPiWOSlArbORlNBI@m8{(X6vc@2AdS~~dmU*IBv%QM z#!$*%H;=88=AsH~*$?G=(S*XBOyMZvfWa|1MPrBN5qhhgAaD%p0`I}UjaWtsD2{5b zvIf}R7SQqh@)o@aBD}M|_uR@kbt+Oy`h0{+@MgVl47`VRp!R|XNc&o$2&4CYX_Rq< zcwmf0$oKz+?O8*$C1Yp3(C<5p95gb%aOlm+_CaU_L=7|vf0!W2Y6E8O10ckF`U*+0 z=icBH>bF&80mS9=;Q3{lsi{oBqJHLZ1VKau(o{o2g{GZI4ow6_EIKdosx~7){Z^^k zUeY(w<24#7W>Q34QfaEPCr&L;wBeqC=*=;m?+NL`uNEzR#@u>znCC7W0T}|!zyCZ3 z+9$vFL#z_2=+>F{F?pe2`&=PP&d(cmHdDx#YnZR6@KFw*>o2yed__-Nc)r;MK`zFP zoDML@`|%9@Nvdag$3e^ED!6x9|4RI_S67q>P%V%H{wC<6ndNKOi;4$2@DnUyNup*N^=Cz4`iQ= zT}u3Cs9c&nTpm1L99)jtpr_60EXzAU+JYnhm!p={h9dL;BZm)U8p$UWZU5B#p4>gu zX>Osw$l7Uh8ffEhm~!TfH9@4DrMJU&BH_VfHNT4C-!5mwnqLs!%9)EObK{@^(JD;M zFjEu`KZf4GVj-+D*io7b_7!yfgzCNxrEBZ1HK(N>4Y8+1*1`hHGR(f;J7Q>HOJaya z!ge{2K*Ln>5!K!8fC84?4iIvazX0>8o+!8uR;UmYt7+qL_0~@#`Jcs3N$Od1#@?Wb z{O-fo&qkrBdU(dg*Ve%=FBre;jYpxTdMdS4%D1n`D@-DO*->=GE+&3is+<61A0cYI zCXrisa=7DfyxhhzPzY-$mS4`_uJ-HQ?*JUa^MTFieYwUo!WdC|zDJYa1aRgPdDHBi zmdwbxig_hh-MnyBh|)UeX*0gm%9*834rMDE$tK%%WatD@${Dr;x({2=>W!C9 zI4k7>*eU~2U5pmPjd9_s%|XBEeWia1Ufuu}oo4m=Q7Lz7H4po$-FlJM@4dpht<5)@ zDND8>#9Eep8M>^`kV}}YO#OtoG(RFF|R|v$L0gq#qZykHgB90+_ zqqa7z$9GGJAXZa|pb<&cP<>>{o;=!hoPg=_BVMck84Y$L%aW4(1dh^Iw^E^(bgJcv zWh@dV50Vfhb+J}Hq?lQCgT8H^9nbj%f_2r6yc`8OLS|(wdfKZ;L*c)|F~>>Hqe)c; z*JZ?{i1P?E6jtkXIQh-yat9}>DCKb6A<);C(7tn+q7!-2_8--Hy205Z&OIPD$%&SG z14|~$eG-IZ751-pP-Tt-?=L;tE`3hyZ13fUp&qVx>h%#e0LPq^OU8+`$w%#Sch!F>1A}y2YC+b}AP>wSK zw~)v&ntdNgfT&Ts%PYo5nt<5F(y$p19NMla@+U1lGV>dEa}vw3Sqdv{TWXfG5zIxU zA|OApYr>e>M%^}R2MOKKg^4qyU;3%?1Qv-kVh8IWT-g4RUDWFQbkZ5T!)ibOjkafe z`Onp*ad*fm1HLfyX`|2_*hzo9Sj<{Af%KStNnU2m$)m39r{Z~M)gmSw7?}y|Iu>ht z2epjNQm2k0o9Z9rtw!{~51Zh?DW2C?Yj;DJ zjm3kdX$>a~x;F+6&<#Dr=i;<$@mf#_7xYV`nqmH%Bf z|94`ixR{uCN{|a6@;f`^yMzCUy;Flz0#4nMnKDe6O-Iy9%Tb`$OoN+vedVzs?EN=Z z#(D2MWR2`j@1grq{hVHr-0(Nx#}Vukyy7YKkUQA|kQH9lGPF~^bPK0iFAFg^1bXA_ z>sYE2Db*JYi%$T{t{y^@TfrMbY(D#JBbeeUC2HQXe)NVcWFO=LI?T&V6s`0&(#FbXPfY1qi1r4?@F6^_wz%hQ^co1D6I3gh8 zV-1qz(hHmQ{d!vUn z7tkdc=8e%w#AH7a&+izCK0`%!PXb7@WJv(rB>$8~Fp0l;yx<0U+C(RBHxNRvaj3Xm zz_{Lab5ip-%MYUzh`Wh+LvT*%gndSvi6fR1$jk1ER$I%1kzCc_m!A)iENc$q8^J1G zv!pJ4G!kZ_ev3iUR>#}|8DR^utyGaEN=ynOKg|7cC)aqI*w5m9v-9JNI~bmIc?!gg zI#G3PCZ`Hg_-un*$ZnNbxy+pXXC_083S4F8p=#5}V=79Q{V#NB-n!S)8nKE{o` zSUc4!!i+MIuZc7)rVL?8fsX&OeISs&t4@<9i;uZ;nx(a%D3kzAu~z;Xdg4as&G%(u zzxC%U;|gY!>yt#UyuD*lCiAiGnU`^=P{L>MN>SKI;Gjg zVs?3X-2jJh)i}VHtMK{a;}K9)(3YK}7z{%26JZpcK5{D7Y+wTtg#bqb==WIW29FX9 z=YII)(#Rymcy4SHo3!*IYxfQ-Nby~lHB&kF0K$~=-0u?vZGjpnqQR2V^EFQ(d629G z0K~6r$KNTKA5(kCK#_{FS=k0Ub(xamGGGyWy52WX-p+TnRVYcfEK2=RtxhIG5RAd@ zx^#;lJIP{v<{*&r`>Zb#IC)=6M&=P-9|fWbo&i%wT(4+#UC^cDWw(!STd7xMvW;=8 z28)PoQ@DZ6^;9qJU|^Ehz&Ll3YURQ=u{R5Eu}+PleIUC-$maG3m8{8|bWw)yayqGl zHV4_KKy%~3#z2INe|7`r@W|_HqC_Cl(q*TpnZZd7SAn(Zg@;+!oW(hko0^J>Df&)TLEN?S~M7ZK`jBx0bX4C4M^02DD{|OaJ^|T_?_7^y!L@{ z{``BoA>V|{Wy7RJ1)oB4UtQ&hw+#$w(doM6PVZdMcj~D|mB3-$oY}74`QD|3PWYjV|hce!04}lue@uXID!V z%k22SNlXfs<_gWmFurm{C5dCG&{uI|#srKphb;-&Qde#$jH};>ej00J6dO7%jP#T0 zTJyA-Rsgk$#nTmyn($Gj2~xxRwm8_~!C7rSRBmpwzjeH!n0sNYw(i&twlGtOctIht zLn}Ky{W`)FqIy2n3CH|s@7s2+94tXI+4V_@db3R%X#x6VkU$LtydPF+NFg{$eKrQ zPbRNgid`P@O(65<&+})?7y8T_UI+Y-tdzig?KekI=kWRVe7e8lqb^R|W1fsEYc(Z& zDlN^yH~?J4ZN$1uq4}~`Wtcer*P&y97nmU}5>&7QCXFJv08w#^7{>)2vO7w}*}LIJ z2UI>SPOT4w+i=2p8F)A^x2~rh$@T|RAFsS98Iq3F;^BA6HYB>TD#E8bMiwahZy>!N zv;J6l1x9(G_i1V%w_C_fkh2n$7l0wYP$%yDULYPavQp@+7<6bYQ4YfwiZOz#wYd79N2`0ix@Ttr7@)YM^moGh!rA>R z{mp+KNZoK(@V>VjoF`bv^4^O6fgGu-EM2YyCLz( zA()p8vu13N(op75bL$0>qQg+gPa?zKny*#qVHsQL(DyCo^XLncLUTxkkZJo@)mT(u zI}XeDl&!zgFJZ`pgetS0u;p*8o_q#_sN)1sRB)=KPUeo8U*_@DCZytK@^U_hPeg1H z_ih|%HW_go`I#XQDy7Mx|0gOk#J|g6o}Lu!#95map+gzs>BaA5gRLdSs-S!kTknq> z!qC+*n1;+oYLwN0sFH)@re?RT4-{()w~d$$a`fK}GxSh1BQs=h1`dy@m^E57ZcK=O z6CGgKaH^%gpV)2~{}F-uerEo_|6f1y|EN~4d+XuLumJ$-lK}wGfBnc6jctrw4GgV} z>4g5z@V}nqw@TPzDZ8~7-=VbL>Js{qn1oU7%?Sf(T4kH;F@$9A4u3HJ3WqHN0(3YH? z+tU4g{99qhyF(mE>R>{x(33X%C1$|t+GF>OQOVBD6>PmOv=s7kzS?eRZvy3+9~av2 zK0fv4RO3dPiBEOZI9zWlb-a~4b+?Xj`Ik(|kmDH1g@sdVMrQ^!7O~T*fu2w6g^D_r zQ4Ol`*t~b3dvtnqwgb-W;&8E2G05?kL&A`?dnDMlR5WS%^H_K+)Qq$c3MEEVXJf4K+=Fg*Q*qWp5xf}1&b6hWHP&lU9zB2GrFhF7%d zo6bOeQ_+76?y#P3qf0A`?z;?kzGl7*;D2okaDM*XRy#Nv`KS4Ii(qf}E^6;GtLkF9 zT10QFICdLWQM2UOB6Ta&5+YPRo?*JQb(wtKFENOTz=!l6FO&JmnCut@BcfWHabOP2YScqQh-! z=3m~s>Rv!2fjoXt47Ger_&55wtyCk2upyR$As{$R3KTvn88gQd#p**|PJ?S+K!1Ts zn$^<Y0xvFlD}w1CW)cy&$lk#(9zyaBcYmQs z4L~6elN)aNAP_2iQKc9jsPI7SlJHT$4Ln;zLwwF7#hgHg0-8e_^q~WYLx2JMHUSl0 zTCl^2Q$Td{BBWGIZ?+)?HwC zMvlO1Q7kHX69`R}vK-dV%D=5A1Vf?p#HIBHP}llr@cT_W%OljPtG3pdV?l{o?bDQX zmpnY2dP5zJNIE`?KJNGm9;e;o+`TQkwJ(*?4Qb5_DIplK>rJ?CdMkE#b=<*@?h$lF zPas8ov`ua(<(_P0r{2Jwa0k1!3>8nGmYyguj$57`` zl`VHX19+-w0Vdld5&Z%s(VUSIYl17kFpTV_#vTgq#5H^75L+Enwz(;oKaP(c%J12Z*i9^z^VRe;ty(A;zaq1tZd{Q%r}Y*#T5a%@q!( z&@x9x9p=XT%jaPPa|R7TJ7hB9Mal`|_Vq_}UDU{gwD3@LcE3eCzV~Q;&$HMn2P)0H ztOY!htyGChxqa?vZ&=pejuAgN^Qz(2J0hE)a!V7K&n81-A>my;2&c-3A%>@rYoWNc zR>)D5XU+4_gSI2rOnPml;9JMz1n%E+suppFzPON(;4SnXlTh?A9qU3_$w9D2E=BuC zd|lR6zy;>u34oDcLmqXz;+O9aX+Im3Nf?(%M^$F~aw%g1E-ADGB%&YD$8C^Aahr9#UlcT;OH~CF5O^U z6(f)6(H_Aa1#M#Wyky_cDp(lekiVASV1JIA0w!l2*}_R#`f?^Cf#Jzjcm`20>Cm%m zf=5|DoGL4HXkRi4eQyQfj z)-(jA95`=?J^-46Tml9S5{^lgw0BUhB^RCWKvPnW?t6u)LtP+hO0=A`O`E4poVN{6 zSl!oGd8$GUP1SRM_uV>fUl<3J`V)Ef1Kyf zmqAK*7NUi;_^CZmMApjF6LcdF$bM)By?6fzJ*8G#Fz!jcb3>mZzK0Yxwyy3EF=k(; zGF|0y`L4VvYXUjf)v;?q@O>8H*cJL$j%Yo~{$FN~7s!VSWDyi0X>NS76k0W0FVRW$AB_M{ny*hdN^ud?+bmsmpBDQ&+*6 zaI=);X^)}{O%XTV3~%x#B%g>9q=B;UB^maiSM>u)bcp-rRsi8SDAt49mRu8s))~0; zky{{Fqq-UuoW@j@N7UCp(I*`q?fUB^cv~TTpjeA-Ke|0N?Ucucl_0FRd<>K%3>)gy z)Gr**^+p;jiC8D%At7^~709{^i`zv%oJ(~gD+lPL6d-tD75i!WsllQrx_#5j7;2b3 zlh!?oyuCudxhC*7c2Q=GJ~+zqQgt3B_50fY`al3-l#xmOdyo%KEit3UrLS8o^Qw4A zVu>{H^T6^YffI%dttISb7(sc4;y<9EN*;31P?tKRP+7|m`fgrx?Nd|c7(MILg~rpz zz)OuyFUEAyAt8GU#$F&RFf%ccGO@&ZZ9O&MbTqes8TY)r9-2Y??Qs5Ee3`4&<3 z!c0~o+e}6ldm`P8XSb$8m^)%475I>JiP!;GD_~6$@KjdE9q`G6(Act6>T;Z-iK>KP z>v(#zm~+#~!s~Fv*%vf#-@P6Nz)g< z;;;GW3|J&+#`-;=lrh*b>25i=5*PvV&<$@1dq>b&RwmDKbGIy<*>rw29hA-KE@VJ{ zJBH5y<6wsygg{4$--En6KQKx5v<#IyO(9us?g6q=J0E=w=j{fV!wede&Y-oT zm&4B2anDB{PW#^Dk?U+A84`$?Y8srFG}%K5QSVOIn*TDQQvy}N^PI^JzwU9oKxy||!H7xM`a4GcM& z^DYV$NkyCy6P;mS%@;poeoDJ^gN$_L`domu*&a-nwRSa{Z`Z*Hr_FixRPyoNAz&Hv zq$YHz{gsLpplgWwCa6P1XL8?f^>LPbWcKv?$(>RxkaRdC#Pqb5L_Idnz&T^zbBsNE z#7M~K*pT`G(v>Q=_Xx57^5DL0+Q+u6lb!q^8HHe;;gc4+yMAe{nk}anjFKT~@>Htc z|J$f2_ik0?pa?c2pb3l5F$YxCPLv8<1VRkV$au3#B`p?X(1AkSLHZ*2@bA4~g{NxR zcH{s8QQhZ0-F8A>XG_{zH0wmSG=jI)yMN~L>hyEAi8C(!=h~<~(iUSsni9aMXZbz? zu*U8oXq~{klvb6!VF3-*3IAABldy?!aMZw(!K)|cHM%X~b@z1)#&UieP_gbnfEOV? z4x{MxY|(*gQTCNoyia5Vh7{^pK(T%;nl?4F^6*E6Gq{7%v%bOKEcMze1`6r(_H)7Z zJ7++bKBmMS`r@gO^iNKL3ksA81u;?HUTR5r;< zv+rB24?~M%cG5Ykm+6xIn%8XlA{FnPalmOKVnVs5MF_s4;a;f!d?`YGg%N3Nf~Gxw zz;)7`eyg_j{iU(!@?XUVX?-V#nmn0CpT6yFwE2|a*#EfWfV0%20z$4@@RAS4uR`V^ zS0*R#ZvJY4br~?ualS_ExJiNuZSBXWNykP#F%@0J73$>fu-x+5gFP<0n1GTOx2>rJ zHg%rzZkxe7s6H1m0Il|$tmF_&YOS!B4;ID9ATP&7+o zlG|eB;6RS!ZNM-NQ(KBgpq#FUC;e5ATuAa$jrh0iBC7Ouj$a%&^Xlrt-RBthO7f7#Hl8w=yqEXwl3KOchx3uyx0XYpAdq-Yp<^k#!0 zzM~k~yu|B!lO3z;^Tp6gc__k8Llj7tVrf(q(*1G=929lBObT^Xo6g)dpeXO{3K^k! zUy`-;)8lvD=XeL4TQfX%O^Nl~)xrYLr5HI{OE_7yoJtwO54B9_`a~Po(yw?;DW&fg z`}h_@h`SB$@bxVwDR~v#Eae42>OGw3x$P#c|5H_1F{Opo%;3CB?xazR*hWW0@Nx!Z z+MjVIrkC?GFhGOs=$#HW;_ETJ)kWnaW`ZbLp87&yvmV8kQ?ycY{T7c++N(BPWUmeD1e*q>1OYL zD>4JQC}NxE>S5*-b<6Jt1E{kakS`Z~3UW8#2=TVTkMOm(xhz|z{)tN-y;FVQ4nsCs z@C+{OSM8fCn!exwNV(et5*gxX)#kLMLsDr*+ckNZ+d%`kHthHNH!#WvV)q9+GmU}y zog8m)gm>cMHN{s@u&PniOH4nIIorl}b;OOcCqm<^8iU;`l1C?r1mu!CgGzz$v}O6~baie8CAw8<%+ZbZV*^ zO~mNwVLZJIN}3D-y`(RjgIc(ZlUCx}jvI6TIYV=gG0~pT9z(62nUbBJg{q^wgZG`t znu&rWXDcyf1l(=Tnt`apz$3L?8RFo>IAs)}2Z5eY!d2)*wqJ_l^GH$0KL@@RwA_n~ zKiS5*>siXt`AD0b$`2kUG&xOmm=Eh zD+Nm563na_U~ma-h?6R?+GfM2VM%?x2Hu}RC5xU@%bC>j;z)?$dN`I2Dn*v`ey4}- zRs}E;@$~;m2;{fvy5=v?%brAvny|RxQ&krJI85D8?=I4btu#+ZX(>z3L5An{Ytp674?I#u+l&s$G1T|L4UFu8 zB*W~(K+<*{uv(Kxu3&BL5HYlN<*X2lU@F$tiEC#sq88I7*Xh>=$1}pJmU}z7r~+M7 zylybmLK}N=gkc~ic&vY|3d^7r{*Z<6ejETw>L{zF+t=Q`148VROze@A~H$B*2=^StCr$sNA33;FWs{9QE;7Hma18!7`JekjIn5 zc}dd5y9jrw12>vtMX34$IX`nG+JUwo=j88&zu{76MWI#qxDiYsm$h438+o9;D;aT? zrg*1jes!=dI>z&+U)}wejiYyIKP~_)Ny}Dcsv~tF*-4mEq<5UF|HZ=9TD6G@O~_#; ze=OWk+54epp)R4WBlSqg;m%ySbpbfYk}H+DZT^MRWoVvSMd1vr*!7C`e9E^|&)i|D zc(&vpa0xdD&!n0j*!$8Qq!~o2+AqM;! z7F}*3a^NsQqhl5AdHbsFoOs`5WY1(ocUj7vundkdZ~$awSjv6f{<+(Cy;Q^2Tvw zG!mvy3On6bN#%PilrKf2+%Wd0=M8Lq*{~pJVJi1Avtpp+$jMokE(rgiZSE5@oyFNb zdFZrhsBHhlgYUUhLy~X?D~<*?ub>tx3Y+V0kkUMwptc$mn~rb5Sn!z;tbuX#0_Uv+ zXz71hlrc;s$lM(;o`~jf)@wfrzJ!Ot4y>_zYUW2uh}~xRpnr2rjJcZzuB3fFAjb} znNSEQK1-(Ebnd}C;)%^($1A5Z`(K4@ z)&Q+o1T>NP8~JGg+ARct)qNs?G*v19+GTMYo`v_HLn!mQmzYxgrZ(F^o3H@S9#*AX z{f_(D_y%d0w;ntuLGpHWtu+BU6p+W`=lYfEw1gfA83GyD5Fjk5heP|2&|2!v<(Z(W z2zVLbIqd!AYA5>R_?NGslmZeM6)p%iqDzT9;l%W?6tRFh7fG@*fo_uuF#Wu#SuhJ> zLy+>`wm{phqcd(8NsefRgA6;tYzA@kLqk4l7za-N1a)%9myBHTH=`1%HWL^Vz09i| z3C^nmMzR)d07$)J>v)2F0MLl0A{OU0i!cFg5c-R8yB#At1P5g)St(2}2u5Pp={}Xv zwpE6kl@1Kz=0iD>;gqLC$CBYB?#Y)Du7_7ITf}f&N=p`|LR{ayTd1oeX4J9<&Z-T1 zSNcuM-F@H>+095$)1Djy0sLQZj}+9B8<0TTdbe>`cmb!?HvP`qQ4e&`vIsvy~09`EH@k|hsH#6hUJg2n!hu{IyA#TyAdq#(6I z1%(nACMasbS|Ao#khT_uRg{1DHdsE>IhmN6x|(!fW@k@5@SBnpKF`dI=6KFzXL7lH z|GUifdXz2pLZ4EVw6xS`HG0v_+~sA>y~X6?#=!-wTZ5-ws@Pj(k+)i!TsH13(d|*Q zI3rN2rK_UpY}N-Osfu}Vjb3Saw^%$!%<3^uhxZt{0qlaFdLeG~*5~~gTw7;#@sX_S zrq$Nb6!X@tW_>d5=H(2iq>GBBD_ZQk%E6e`G^hU@xw_4$hNH*-GUVlBbm6j7q-3mt6{>d!pGx`T zYKxvpMOFL}l0pKX=kP4WeI3gOXkPc0tm|AU?@ysqUTq1va)wL%L8Wi z5UV=?xgJNd{#*Gh)F|bgR!QAUdxANcpvuc?2bs`#OZUr_cuNn+HJ{|2<3!E&>B;h6 zkqnI02XU90rzDi-@UD3CsiSAd zu9xNv1_NQAfud@?yfB4(4odvSJJtH`t z(%~~qU@Ey?o-5ntVD<1!QPbjWT1F~+F2Y`8HdtaL*b##GtXEu;gh$Ch;Q~{hF?Pk&3tHzI+pf{47|6hPGOGUvgI+xS|%&yTINY) z&ix}>PUgQ`IN9Cjt;|$^QC+7>XrYFz5CFN74=vos^~A+P@-*`{B$hUDzi~`kRs~!7 zgiT)Y{m}&fe*)yDUG6|eoo4^s0UC*UKRO37pMnu+!hA<&EE^XYV`8QUYl#)<2`YvU z)zKaiVrM(tXq(K>xmrB)Z}bZnTQnnTD$TpLpR|{5c&*@xttSX z;QY z-V6e3L4;`xD_mU0#*A~aO{J32VTmj!hTn$!HUA=l0cRk93g;BBg)~P;!4pR$0*|0T z3MN2o7uFxZhDLgnjFd$r2I*c5qVSs_65=N!*@2V}@kgLA=*uVLfn4|Hg9q4AC)9nT zDI^ex#E?+SCzJesC5FT{piF?6s1uP1)L*<;731Mc&JhQ}o#K-Lew~T7W*C zQ_Bkfo0y<#LCH=zUNZcyfGjDwuo=p&L1HSTKoWUm#Svl>@8wD```bKgy9#Hg@HtJ6 zQ=XJ9`^W@D{meXAQfXe1ljc00*p0zy^e|I7A&CZP5+35qgYDy4_KgrfcLj}gX@P-=)JBZimE{h&B5Ue z5I~HU!9JkJE`U)YHOH$QATWcpvNtf43tf}ai^NbY=?-XI^%aJvy&~P|-6OpqnS>UN zgSMTJ9fa`!{k{z%hPS2qJ+}CJLgxI)%*JMn=>k1MBgGU|e`X^2|2``d>xyU|iIWH-HH|0TlG}OHs)vMabLRJ+b6u#qRv+%*!C!JUN^41XS{a^Ke5#(5MF#1)*a} zly7qWC_d#mydH?|Aqc^=dz$`JlKfo(B;_03H3)9WxZKXtLoQM<#iB64z=|gVGjKQ_ zgdn5%AW2Ea-*r+}e4uvOix=*akoeFBmbC^UA+?o|lk{lt1(X=q+7A!A53Qmn!4KjE?@1rB6CI3mQN@t0CirKC#r@me5c zQ?A*zMwQ|gdIFIGGip43^1KcS9v(x|dw|~se^`GO3G7jZ1s%f-3POr~2I1L?1k$e! z&mDT7E#}H&S{NIuy4sDAe^%jGLJg}|Q4OBzCf+!9i=n=MZdne5fq3drUx@3jz5w6$ zUoPO0Pa%UKUk5&R{7*E&ztJ@QH=3W;)nWmRtAlPg9d6L|-}!V%T{kl4x~qp{K)(Y6 zVQyYmClK$}8BILg_y335V-IG@%{1K`ECLDu0LcFTpZ-F&jP1Lf|NeXWZ) z!^gQ2Xy-MrF57$J!(^U110F1iM?P)nEG_vNfj2C$x|(01y?2VYxQ%nRJBGqphrrFv z6;adydgDim>KPQ3;U^#&4>yy>c8E{OAwAz`4aRcUeVymV7C(C~PrwuC(Xe3=3d_1O4rW@wgIubD1Q3^tVb1yrD6Q|)NbLo43B^;uaDu4dk? z^LqINc>s62(zF?;fs<1}>3gEL$nD*}ilO}3iz4Zq@ zR`^)SP%U5m?IJuqg7neZGO-hwFlIa!{Z=Y$M{xLQ6fA%Ox9e`?ev1^24Z9VzNZl*g1?XP)U71eYm5Pv0WRK82(by#1^C7N6cneuFf{OahB{AqH5O+XmwU3f+P(X| zNce4om5pz^9x9Uykro{Z26ivIy?NX#UkYOOl7~Q98?&L=zWMhhd$hymFp!yG32@m} zfV-D&-8;PFV8t9njPW%^`bg2l_E`5gs19dRcFG_rB!qR$fFLOY5Y*A3{ED5$dvP$N z_E^`;@?#_%ay7W{#VZF?;Kc#kYFkMO|5DNx7;IbzXo6#e^u3ib3HYn_@ zM7PL0PAtjZ+J%T6AlbsJ```k(x4;oB35X3*uF%BQo_baz+&*;|s2OBD$O^rE`zRmM zxljpG`pHZS{)O0S?=#t&xyQ+Zc*G6h%L_>~e9SKrnfUHa@lmEpui>{fQ_K49DNA!e zNUz|xRmx?36PQIO21wgTha*qk5+l{a32dUJueppcQ(ARu4GLIkp~r+;Q$`ioJ%-1& zwaW}qBcM$70~7Pyn577yhH4;7JI(#Je^LH(%Jz zm@AQ_?vr@(IhX>MFv=>^;TIsG^!NFDm+&NyL>&jSeeWTmrlv@rUX}WEViu*lPz~aM zkXDxZRACXNn^3c@XqWcpDl=ulJ|-A7NWTzSi<3lVO?bv^*n;qs`M=our(j#6tqB<1 zwr$%w+qP}nwr$(CZQHhSwr#7=?fZ9pwCm|)f$p@Gm%)GW>!b2gLLK07z{PyJprBkXXR-BFAEj?a+5v7JSe}V4M>W5~~}fHVYsM z_rWI?(*>5*A%<16Vp%|iTGZ2r;e$aQ{7!Ty^u~Rd54+dm+_rPv#+_kc77 z_*Du>8ZB=nN0?SCLIHoqnZpyiOF;Dra@-ot%!b3=c+HCqltNS1(+ZB49OrZLPRp=- z9&Gfm8(m^!uj6t-V{77uuENUneXTm(Y*{1UV3U{v>fP4=@!t{)RfD#Es@DpO3TRb# z1He8_WoCpV4n<J5>o(n8bc%{kFF^m- zlUsHvbGK@bHn{-<0GL1m03iI&_RzGmHF5g4J8Dwq?2rUd#%@Wz;OTLohC4y$3=IKc z!Lfl?g3yHwtR?gbuM%5x>ur%iWTFFWp@fsLiYgpzER>95e&Lyi{RY^Yy5_$Xq>=Y5 z+)Piu-?}~az8@dm7!csX4k{PRl^>q3txhi2-G_Oj*ZILeruBmsgqhFAl=Md-KlP>DT#(46`uIyx;KF4*{2Yvz{eNiET9o zsTqWJh!h()<5#Se-Er_S4u_OFiPa%rv82Dfa2(i5{-VvX5?2}LEF%h8xB3-nhB^1v z2Q<8~RcNa|m?YQO76Na})#W~hBomt`$`coat%p{v4K}E=qvU}8HC+ul7iNSEHU>I^ zj%p{r|LKsuTc#%^;MLM0)VjEW^^o=?-h4OM!F{Qc(tF`amN6}y1DC7e?Zav?h;oI6 zR@J0?*yZr_C?Z5(R#X8S*t_Zwxwo!b7TqBsuCO}(?DmFqpfp_*j_e!_{p{!TS>4UL zda0QO{A4t=yUvn@^?4A@BQ*lgOHz2*qtq$ZSd=N;tymHF!OTG?ZlKT(Y;SioWba0o z6C2)Bm&(iQEdsDoo*8I(Y$2DTOQhWkyc${|%9v>~+iFu}Ec=1^YSO>$yn1%3Y`MFc zH;SOJkXojOaN}m=T z$E1r4WM$we72%X8D^O$5`S14Amfdxx1FsUG3UQ3pK{+iZckj44&!Nrxku_Jh70 z{u~n`+`wS75;VfY=nHUs8jbTS6$#&MT>O(H$1nr&L zgz*su`p#|P!r!PbNtK$5-FwzccF9=jF$5p(tzG80aKx=+F?@nTemObXFnmP){ma7|hw;sFKbDO#Eeff)~LUqS#kZLjV6@z#-KT@ZjsiUt;MTads3 ziq@;KduRHwxhCVJYo{(zITLD1mb|sSEfG6|qS2jy{2W+PtZ89rYVj{wlmL(Y{n4?& z6l{nMTeUlb_rOI8eEzbIjjcO}!^poeqyW!Bcfgi-A|p`nQhWv}Swl=Bl%a@5M=_p| zCWevu^t8{}=j&i4b2#;cxWvHIU8xh!+)|Z^Y=m76rTEix^e) zz1z@*46Iern!7ihFy<>^V%IJO(7$E3R1ID92r<$&v~=9H$Hj(t5Q?pefPpL9e}Ve> z#DbUTtQFPhY2w4Noh};yTWci=;!+ebsaAO6jX4nN{FN1U6Z08Gec=sOyb1bNWa7nZ ztg9bY>EE9ho1o~EEgey5f=KHdU`;+*9+0K9yt}nS9R+A6<4vxbVau9(Zu0dm%YDK( zah=_3@Nv(?ZZYpb*JmIj+as`}OMiqdR4>c<1aqYP;qJ(~eM|;9UN0`|HI9HBYL0ob4XKpCvv{~vw${HX3j)!NN>FtplwHu zLW7PKS_>YS%0!($)@!4-Ha(zKtGoGR%9z5J!j}oCLzoR3vcrxa$NSC?pOn4JJ`ZT3 zpTI2g`Of>@EPWP}&BtAq-v{3LuC{3Ywif%RSo>mwMf{i`R*kV8oa5L*6F=I zRFV&Try|4NfngFmTtY_UQvI&B3|YF<0{|LUvg+ zdEIj+5)M*sZNVX{gh&Zr+B3$rw5N0zp<-pzWJ zm0{3bvjJqB$L+!Y0XHY{FF>%%Ei5NvbXnz6IC~PgZ7I+36VY4OWm#^yu4u{W=>nq( z_-Q~MdsXLjnzMSjxUwfV2^mNY#4ny-AdpYIm|y`vxgbB9k3vSk0$6zOk0l2ZoyFqR z&+q@BT=BoL3gP;B9^XHd10@6iK>eTU(DmJQ(O1wkIq>oyoXgy^+f+pv+ao^qV}B58 zXbHu55L!|uqYY5uo>xtOb}5WVBf^Z1wn$=IEu@kuPd1;BY^yi9Xslhrlb173XQc-=j`<#_!!j(N@VBRx44DBZ(@f!E9JwOuOnDqh0E z!vpkLA?5p)bcNG*UoY7~yLK@(Q)lp5C7a`Fehu|)1IHK8l$~&T7|i}UxSGD2t~tT2 zX#}g%>{#$u`KTAef7-~rw)rUh!}ZUwQe2>JfE-p{x=3-$o?G--cSE@#UT@F1*Ly~p zP1$HWgE?Bz$cP1%iNKv}UJUnR2JrodvEIvLp4>~P8|ukE?61t#m#Ayo#7!K~RB}y* zy`w^=n|@1mjZZC0)kpD;p?*$_PJ*WMqT|y3W_XP>512w8jlf_%w+{&th7rom{LX9$EUgI!7B@60E zyoVd-W)H%(ZnP`CNLQNBPTmEWvbTt+8iRy#%`J*&rXb;-WQ(Xl_CpM>l09hoQO9W_m!3n&-z-V^pk z={YvqvV2U#`unoGd3r7l3vP3z9w=IKe+^qLa+EqwT=;yj2)#^HtDAnolq>~TemK%= z@W;NRP!IiXbrx!m>Z-oUC9Cgh)nT&H>5zbb3+bcj6~&%PFxf*bK|iW%V5NzYae$gY zya_siE}AM_sID5U6ZD`Yp=1#;=jLgrWh~hAy2UKo^?tRYw4*Wo#Vcdo%A%?cYLjFw z3u3(TKWziENI~Tq6J#oHR|+)&3COwScw`|-40*uS3|dn9mYGX;1!|9m7P<)}Tdvf* z{8d|UkkMxWp$yo1yvxLqrmR(YQUl!wGu-wp*mz&J zw`wj?^4;`q_me>Li7as0<67HvZq}e^+An;B@vSrW$CL1IZ0V1nlBXG}9p&1nbnFdt>IQ*%^v+~^ zv_{+7y4%4%Qis<>{LJ^Hq=|o)osaz+*E08|2!G{r@A* zf6=CMzWcwE+*`XPQH-D1;a~en@QZL75?sDA7o_G8kwS()JMnK!8LPA@f{LV+^L8O% zU^DUa%hkBeL6ST9N~D3}8Vm6+V^><dvqNyL2kG*XHOZC!~B9B2Ab18fp z7q@p5@_3T151sJwr~~FWmh9;$Ob&rXa#TpMKAgZAhn*XVm?V+>bsW?m;X$U!mfZ2_*zY&qJ37Di4Y+2nc$e3vx2>*E!V_O8u5DdH{%E_WM zd+1N8b02WfQR219QZU0lN(^%MPX6LlYDUMy89Pg2U9q(z?SXok<0Q~r+l)&0lhfxQM#tL_!70qu15+2W0OI?$A+C@ zmz8^-C`&hxOgt5V_#~HucZIQbWJNCa)8(AndlwLe5Lq8X;9x9e(YrRg*v;)M$!1sM zLCZc7N&HL9yiv@0g7Fp5y^PTon75l49D_~=VEW3Za7>Ep0WS;@$8>>d=$B~-IKh7v z8#%2Boy4CQHSKAaCdb)HV34*dxh3UEhJ&pRBf6d=QXK&bdb{DJA02Gm{{qHI)f@7< zoB%B(@}JSTxN#_%x6DD0NTZ`X=0Z&GnffaYWB0U424y=JjJ$!gRWrbiJfR@@Ie)j5QAcf4^VT}@@oDEOT|t#{o?TsMGGG)vOP3w3rC=Wnd)@Dr!rr%z@1zTtmQE924TP)n3%FWj;3mw2x2Os?ZpT$6KD~jo1%Mg&l43nii;K1kYc@WhCMK5u=(qRU4Td+cTcb zkEJbc9f5AZI@Ov2)x829=N&w7s=W&za~NF+oz47|HGT0mv;qnXcH=7=pij>FCG&v0 z*U@=pDDl%Qerso;TpwLUTNk{x8)`_Sd6d~2q(RPLqt+FVCtp`f$#kwW=GbyVk=?6> z8mOIegb!EHeTx;{P8Ua4N5u?kc)heoX32?ZnVe(QyQ2Y+gudW!_A7FIKFCkXb-5v5 zuoq`2cnfZrP94u9fk1eWULg9935V~aU|&ZhIcXc&bJViuB<2qZ&J|v%wmGnx>pApD zW98g#IL2FH?!<}LQMP4%QH~cp|3e$$>HQfn_EB%=_as0;x3%*{+?J2TX3H(n%-{Q5 zmdiSeXO6kc;+acv#`C|>=Gx17%IUdA@kMmU-lRn;9J`Uuv}|k*JvIH%HgoOPMyZJO z>~}A*3tBapHv9Xm&KP+!7!{!4_uMuw;|m~gfRjT%HV2lE`R zH1PZVv@(1AThk0u`}#~xJ_E*0W)s0;YiQQBFK9T!%~sI8IIV5^;-!BmY|^xcUJ@O< ztUI0#qHt|d%!>8(nL#j_Xtoh1es8{)y?6BGM4;cd0|gl_pP+M7#YE9}<$l%GdZTCN z05B12YKH6Rn9)9%THPE57bV|-V2~CJDZNu8g_|`q)knuq6)&HLgof46=5lA!lIGQb zWf^A$q<|M>kje8R)X+*BN^pKCVRGyF);PS+{Qi&gsR6d)CjG);2m8nOytDrQoDlvi zmiljv{Xe~w){fkkDvDp-^6$YU{D_7*gkC@xqeXBtfk1{K8eSQSHrj-Q{NLuI7y-`v z1ql&iY7^n2#md+U_=SArMY8MP2)kxKgV&GESRbEn#&$~72a!tSJf|BTy}m;y!`HpO zpZCfab;@f0=EOQx0jyrnia)OVT{3Uq(C*&l-;G|ca6iE2GboYz1@)bPz14voiBxqH zsDccw>J(`V5{lFzij+Ax&=bmuiUAoy$XJNAvqu~U)>O#&BfdDrF;K!1T zb&;LJ1PF-|1G5z5&QfLLvBB|_HGiFC+}2qnPE%6siZvV3>y|~fSe@j;hj@R1NCp<$ z94o{YRTWaH}Sdhx44Dax@JOO4kKP}K+l@lT6)^f=g~ym!{ba;92$kU&u7?F%h2Xi^65!kMSy@9rSJ-Vs`{08A=g zh78&~0I|tEWrx(zA?^WeYI-bOvdGzEa{jUd9x73&Rs9i>F|KYTKr@8gwBY;|N9c3) z4d@nS!_|kG;k%uXdx$;JgJTFf zne%u^;!f5^i`yX4zqDKbi7{d0wlOcWJI@D+xS-RIECmvdU`sDV1}q$AlwOzsQ20x% z`IOLIu(=bOYdTB`(GFn@10+EwjaM+TCXHc+=;>HNqND`5WIEtO zkhyBtHqXpNOqQ^)MSfQnG&=&=kR@;bi2!bEs_feQ2>f*P&rebxBAh+#se1mfN(}0q z8;n=zg`s*SMRG4+@er;A2Eef7#7@2fg}ApcIar9YC|SS6@!uth!sM!0BDMxc zU#Gg_MY#@L-4tpIoF_rtGu}K;65eEGlYIOST>5$hFtfp7|8ycdLk|LYtzxuFBkKry zDVZ*mr5XC&QqiHJk|1Fzw~dxX;&sx zhUSi&0{vgftHi-!Lve~-)7!%lur#}eE`ej!UC<^7xY15B9QE2>R{lF&D7@lg5rPGD z^mv3gQTYSpR0R2ZS9bJ%hD>FxJWM2xaZ1y^zGpl!`wPd3IL6gs6qkN2*LpOET6bFRH{;J#f6|O zIetO^0=qbCC_IHYD=lq)q~~_-AtWFw{Jyc4Z+9#t4m=*)Ousm*FNm2NhoymBh^0fU zKD)3so(qSXk%}==!u_Sg%(}o9KJ5AhB!~Lyw5rsxSa>e{U8}b(lCfR|SmMjcKhrSA zd6p^PGqUd8jh18FubL*kWJYV1@A`7?%T$$`n0C8^TKFo|Rt}Y_Bp}|EDfbycqA z=)BX+>k|;<*K=-Vlcy-jv(rm?rj6whX*T7()appvAv~&a!WRAH8kbo(1ya`); z>QE6ladd7Oc4=0=nPavNX+b*(rZ{Z8Owe}j%ln#9NyiilJlFRjx;GXjG3vDy{{Spj`t+@(0x4za2Y0kNE#rI;dJKxeYDZNG1Nw z^bTTHc0&7M{+ z&@ER2n=Xa@ZWw+#NX(gNgA(X#$?Z8rGkICKz66Eyl-b--%c3cA1_~< zE~-s>{i9W?l?jAgSsT=d_jcoZYEC8)f0|RJNs#%k6FLAqoNOWSlnKnb%7bxu5A5RU zx2!EEU8K8?=GafF3Zn=v+2188vqKmeHUsiKt`br>cehK5_*>T|Ug$LV2C)Bh->-xl z$f%eZ0QKNyYdg<0>NM{kJUD%HwZ}(|h&e0@eF>S;2u5bJ?Za`?aY2i?)jyB$Ff3XS zcOsN%X2jm(z6-DB8nvH}De#YUNNj1AN~EGE9MTEJkMGO>)AN;w49esYusNq6pA3je z3_VF1FBNnV6Stov%-P+4a&nkwdpy69Ph-G`Ao%<2_J)^&n|_gq8g#-Gy>6{BQTN|r z$W$n{Y%8-$593IRT=0LH1JQO|7l9tB;$lPHXH=^QOt!e2;IF|C31WbCcalZN)4P0q z>o^yCbh@^7)`Z73q-4R5rQ`qeA9vbRw*ET=c4%;DX1BPRo9pV!Va#v4?`R5~wlujz z?UX4EgCZYc35+4=fGIh6c$?bqHV8U74$zpS`H|9k0Kr5Ao$TC_?8+CLEJTX1}F zjy{|4A;d+r7MAzMM{i-ObExWTrOlE|*RWIe9r!odu34|$Sz3oG;O82h==@S&Yk}VQ z=>>XlDZX28T%2`ni5>!8Y0_6feNE{*Fg`0*^Rk$RxBKXvv-NhQ{C^y@ZUQ1 z0K*z08Y2y^zX}jLtklT5Iu3913aozD$y4C%WtR6~Tc`I7uW|Pw`D=WL|Y21Xn zG4eaR?b29@6s@REpbff--11siQ*PA#g!=K*Sv4>17MeguO=NpYe2K3{6i5Yy6k{S) zUu;7n5sRs;El7BYKC4a*E#oTVKF zPM#>M-#wq^$^k8FI&)5~Kh*5LlCEaYQ7Ho+^Kf36z4EOv%tyUEZj?lYWno2a5#0H) zPIXCCiHsW$jm^Y<*XCr=c049GmI`{eCKM#jDWjsrD(t^`Y?_mhOjR0$F~|d5ODVGE zIn!EWi$K9suwhW1uUf9k1Nt0{1ARU~!469g>HE2oxfQ&veue2jIT@evzHlPESe>wX z%ttQG1Db1f6>s?@_}g$np5fl5<$F0-u{IL3ma$rROr; z%H(cR``U8b+6&3-!MeMBqf$l`+*-ZT)zv`1-i^Ya*2{%+xmolX!d)mRINo`XJwEXC z&_kJTj*9izI9tL^@_+wY_S|UjjTf4MJ^Uk zOfY|~^C&9wFML^-Nm4{4*X<{NKg*h0_ip)D?906Hp*DblTXa@!KV&v9fT8(UPg{M=*!z3+gXw z`$EhWwW8%6!kPSJ;FaZ{vzoKrMRz%R9#xphi}U)_56ggBA#YD=8*^UJCGe436n1_L zNZGJ}n^=XtrJ%arTMt+)lvj9fh^39ehP_!qXIWu z<0S((^soJg&yFfvh$fKI@5Zbou$+r>VXoog2b|wy^c?J2CUPjmt0=9HZ6Xk#h<`lU zvBkj%U)Vbq`A!C)!EyF?lq$D z#cVwPMd&jRZZGd&xRM+LC;tsdc2;`{PUIF>Fw8H;4o*mx7JqMm=tZaOX&;uJOt1rn z{NvGIC>@@uKtQsRD8c>a5P=yZIX&zwi_>jIZhRCF!9>UeR>xOBnB*RRxX1t#cS)ds z7xJfo5MDYtVvzwtP*9ZYexHpDb4b2}SCY&w-u6Hs5($`e%s1#Mjx_lR3cl~P@W}7( z#~tHmMoLf`ubu*#$P@(vk}+dA2tO@-p?p|c`qUO|&x-8-{nzq8(|{lWJs1k5ll^Zl zlr69 zNl=zU8=I6N%DO6UNWi(VV?++FTUv8aPo%y4sI$j-W({jt2X1aPr+Ced?2tv#RFc@v zjg+$M^Y!~8B#ioo_?U(gh1sD=NGV_0B1{QgWSHgdJ#sSRNcsIv{px9Vb!yWwZX6rd zj2fS=s;Wk=#L4Ax`a}l!jb=Gnsby$9qfNQo$f?y9WaUf=6Ag505$o(V*;@E{min{~ zo$c{j_Su^ES)Ffrfybo2%wU)9cvje5;aKymvEEo>cS%Ifv}etAsi59$m-oEhxR)Ix z-CjL3lH#4S^EGJ-yiRi+9v-rcq^w-TgrsZ|aTWXRE&skMDG3T0`n)PIW#AODXIItI zqqPxpLcnUX=5nwnlg<%Fg!^!rt?+Fs??Rr@_ZkG&;b zJBYHpx#`HmVY3Yg3SHQGFZg@k(EE)M?XBh4Smx6jMTc{u2hMxF#s$+3@DL;S@-+8b zZO4Z39VT-fM|*@6uI1a}em(f?r&Uu96J5)e3Bxo+PWv4d`tmQ0Np)!s?cZk#Oxh+7>cx&MAz25n=MyR@M!(Fs2xw%>hEX3 z&vEGs-z#^RpeP_!5(MVZeCG@a918BzOEO1E@q6IMrPLo6gHUu+5X5xC7`xjRy`2HL zrdb?r+cUjB{UTcj zraWEB)ijkYv45M_F0a-2Ea0<9WC}6f9ynqHa<&Uo#BG4!uV3Qe>p6Llm|K%!M->_ymnM@9C#k2WL!c&UoSrQ^8qMXn zO}<7KEm28n12Xhlj#X)ZE_fzjW?&fmgmqLSU0S&(VeYwe8W>5jtSSLK!E=?ILW&7h z44%;##%KM!l}sXXqS+FiE*do}n}me=>zX}faQ}+p;%dw$(BAWx4?2IJUKz1I&uLw& z22IpPMz30)^RW=-7sBpemGD_u_|RuKnnEZ!NvAnQ9Q6DxKkiPCBvWdXY?l!QNnRP1&ZNh z7(-cIg%!c5?$kRlDpS*|Y6}?EW$qqISa9o(dU4;E9|CerjOTwCzXZ1P6Ai<_1>KSW zvWbqeD8A%uZH_V*p*6Jcae|Ub?0 zH=Ef#<+x}yO5<5yTVV5PZlFvCz0kVm+1)lgfE+;af=;{oBRp`OrUuNI6ennlp5&K| z6L&O2@L9AE4aJSa_9gj3DdX?I#xBj(7$~ zn?UX(k4CSZ-kF?ZrZ8PH*KehXGa~>Un1~&ec931Yze{BIlG@{0Ms9!mWDci^Fk9}n zc|n`iqg2d>VD@GZ{@#G|u~Q(G;T$Ofu4pWrUsSBnKE#47PZ^8?3qdQu!ig$X5(4EY zx(v${rp89V`dL!p%eGqkS9doEuwp}s$y3Dv?4KqnUAq9zNOfsMv~k^-f;BQG#;`%5 zd&8Lhwz&0P+K#pP)QdqZ3`bTCrEJk@O(C)QB8|gLogl*@KzbjNKDph))K{X$Jy>Z# z0}NNO{jz}Bz076{i0p8fFDE|=`DqvnmsY5jT7Cr`eL?m>w57wp8MXwCd`$a>vvMV0 z%y>@WDX&FxAic)X%Rvy#o>7V`y?}(rl=?HbdJ(UhBvK_{8U^MU3GZatVA}O~LhoTe z&*4rj`wJD@@0j5SVOmzIP{ie?(`6~s2W)Gz`Q%Sd{iKpDI~TKTnIAuM7u zwE$URc1z9BVB#BFJ=w{;v!dU|d|#)H^&`Xe@79{Duha|m)AjSq6c3mTWgin+oco%2 z6X5q#OlfZuJT>a|E9~^iEbDHNyJ&>(Q3#jamY_(M{0q4~jFhtjqh`~93TWytFb=YZmD`sVzFr2mke6n$EZe1H z1<9!*>*O?hDN%Za1P=va`tlT{c`2wKie>Icm|gJ9%0NVI(*m)Ik4_+jRf4j=9>q(L z=1l?d>)P?nTrYz%3zntTC&4Sp)uq;dP^&UpGclViFyPo~7UItZ`xD=8>Pddy2B7q5 z&oMNm-~gm}ee06}>XVJYrBJ$tfHIB1sr_4q56xb|1 zDiK~On`ZKN^VuI!_tcXJ9H|V0i$kKJyo|ZK9B6{6a2z&iy^YY|mJbYHU#Rbe zIvDUn0VIq76ac=nHtxVczja=T%Sy?-ix{rB&sE|H)eG@Ml(gRWNfvlY*v zOK4Z|{f}q&RoIxFpSNtaG~eKs-u9?HvV+igc~S83=L-r69Y8}cnCQ#*DSf?z_P;O5 z-}_V`0~=M@ux!m{AqDIUNlR%31<)X!-&bUZMq7_XK~1%U2fB6f4dH3HyNme;EqZ=+ zd=}3zga&MqQ2xl5cliTY;0J<%E~Djk#zbZ!0Uo}}4iP_`+qA7Yd^3ff zBy(fTeD#&`#MSS;P<2e(mo^>_5JOkWMd-*CS)kiS<8 zL-S}#FOypA6_c=b*i^c8kM@aVvcZ|5KAh8gy#bw_KVpnw3*>>RpW zD+m;o(rZx%7yw88CAx7L7T-fn{OFy=<#13Et=@om?j2@(EHrJ0RhZkLBP;O`bluKK zR~AUocy@}ly(rhp=PSa_cBcV|Z#3!*`D?T0nU}NcQt7tP8mM^OaRWSZ1~wXh>1X`w z-2Gr76((Z-97G2pi%y`3bsGRSu;1(hb2s;H!jio?=KT1?pr5B2hMoLPAb*+HtAfpq zNFdm^dSPcQC8Sti&Mb&OJ9|o0G%=7eXfKvEm5I{ zP_`3fqUQ0s6vW1Igr=bVEd;4BCdj0_6a*mFYcK>bPe)2{e^gx}0k)*WoSV4#rj(F+ z|5$PTy!;TJPNUHE6CAJ$fxb~?VIn((Gp|ZBcCYT50wrpjL(FwgxJ&XAoSs-ogg`zH zKW>U)E;3R+d21}zondVequfVyJomsQ6R?3cDk(FBvz>%U!h1V)qE7l#?EWC5TqI1gLx=q|bAeD^lgrSW6Z*~V zPx}3cGQ@LE=}(y0b&uGv;8D&U9Zb*loD!F}x)VTbtA}f??jL+N%eu9Mhx;}`64=+q zE?}YL#W|0Z5~Or+i#mKRh|62#oPMkVy~S5R&!i?GA4HuNg>B%CiIIpK24SR~15TM6 z@Miu_NRs%cW^~g>8@lFMi(aZ=szIP3GymKwW~aUFLpH;k0t(swYQItBl}y#W*U*Uq zvVM#uclD?s7)IF++C|Y(`7V3Z?+4lKyYzRl-Vp`$vFqO*u)c7<;bMC!EG&70Rfo!7 z&c4;AxwUqyf##w++ANrS#OYk`G+*E5| z5NDNLj)nHZFcwj1AjWazfE2Z%ARD;;Y>*4WQOFCXwM&G9cCO$M=b|-JM)3tR*?I5I zY^cE|8x2Bx>9bA$H1O<1cUd48mtEY5_hCIDL3ODxo1NWniFd3&DN(Mw5L=Bic43lj z9j@LJy+jFErB)i}r+g7}d3xHhAX|weHundPMfgekP+n4gF2-RO^%!GP;%?g0am z<0zw~_ur=BS^n#7Y5`}FLltoaKt{iYm@?k$k3xLMctewkQB6$BGavToJ&E`%!1GRu z|LoVQtZ28|BsDTwsA(iK$HZrizj-t}V)@P&<$~(h+pF`V=i}YcKHaU?9^MS0m_i*@ z1k>RmQ+!1dymsSt*Hl`#g@O5D{G)I(IOFNj0%V7j=%h-|a5hgP z=Z8Z49_l3gFY^1I`Rt|m@N&#-MGFlQ*Fyx$DLjA=r|!uB;H~-{1(WYc6>6vmfDVdhfGyh-qc>$x}-#BWQ0}i7j<<~ zQUB+|OkMTV_xrw=w?;>cdNRJO*sDmWq?ZzTa_jf{xrZqJHC0hJW0>OY%cPgfSQU}9 zMt_tx?pPo$t32-9U`dyLj5z4@xE8!k5)l{k+sa0HuELqjm0Vc8+CEpBK4VA-?Yc*s}Xg25=ojt9;78Z#ScC zB-(lH*LEp)z1k`i;La@@t717d_5SdDsH4W6ay16*H^Z{xDp-TdR3<*c`M zjcrqKqh9~ekmAkJCms22!i=6ZNk4s{&J|Ldb!cS2-T{`WhM#Ta9G_15VzLAsx{pE*z9ID=h0Wyy&-p7HavO=YE-LCts3J*jV@ymsKZ*DIqF!Uu9Mu@$AA_i zbr*qzFy3Yyi;$>PYR#D>YofFP(_r_tWBX^M_8?z5<|=r3w%egazMIBGC1y_cjR`Gg zF_JLNk&{ISvGI76mocrI;2VT;?bjokLC7#JBX&Qb^Y9E#*=C=O8i8Xq^cRLyf#$%}Xnbc_pOF2NJ!WyaaOjO%}MObk8D6v6w*ZSFek z7lS`6Z0T&!%5YOPAt#{%puSLZutzf>53|^)N_0w;E0az?-2lbs{2ja`&;ch1v`r(!-Z*q> z>MTG?$4J$FNC-x*oqF_NO(OC@caJ98l0la})U4U`1u1eEd6DMX45deF%nz3$@6UpK z$$bpHFRu!8_4@vj>fJOFdhr_mbtIk!pigE#8+~LH2*-}%E_%EXc^}cnqhs(fae=B! znr-+!cZB4F+qY2(W>6Dmyc)-NJd1$~CO z#3OU)`eqiWg1hP%)2DA{1Eg2Y#SpdYg3IhxzbC43L%FbFxjMbnN8Vu5RlGFsvfb%f z^LcLiE{AP}Xt=3)Zp}jCN1TP}p8!b4-_@#H^MuD%N3;Z-ZAQaLcLVq-RX+x*8q^FE zy`VL`?iCAq*@do0_qQDOy@UN(^Kn_S?JWb-_lnUhg+p1UbuvzbX^`zdjL)d|-3G-D zDv+JV@kXS$RcZzdaefo)>^vO@i6Ga<(%4(2J$p)WeJzVMuVU9^jW!`mhs|vL8Yoj8 z7<0Zm%#LIB#zObzKKi97N56Zw2S6_MJRUbEOTvQxg!+()jW$zE+7**i5JSVv%SRm@ zUB@7d`Bg@iDFx*|&AEz}&%1zaJ{o4f8z16H*GsPQSI~M5 z;No;h5`w;R1V5Uw0g^Gp-7B?aA&9Tow$mM8jz?AlU z&039;wL68JO*o+g)b*!H#N`pbdcnI3UN`E@Z|J!D|Fm`1QEff@-VPev-QC^Y-QC^Y zrMSCGaVTD-P_$4e?i9D;?oyxy0>$2(d(L~?^SjMInXI)xPi7};&zkJaJm2>3zpU9x zo*_u34(rCKfti9Ey3SaL^*8Rs3hZM_J$ekL>{*P6aXDuSW-icJ3iR^e+U~4`dP28; zpIg+Tqx#p~ zRGgxx4)jUTr%PTBJ~e!4<2}8_hHEjA?CI7paB6Kp1~FH>$JfX^}>Y9s?!Be5^O@?3Bj0o#U$KZ026LY+R=to*SU3oD#z@1W7?& zbr$CQ{LeVRL8uWW)$lRK0Ifov9!Fe3es2fIaH?R|7>%X;57rMmZz~L_(~vBp&hAz) znkkK4SM;Ibtn{XIF)@tn_zRQGN5Vwct0l5E^tQVl4MaEl)%o&OFp1CvF6$_#u!it;(o`|J*bM>t=S?6Ud4r>>KtW9SyEInS196gI z50Zqw*dUIK8WRH!9YyJ%fhPk+BhY)$8*Tu!U`g_R3W3)_$ytcHg6(UrvHn z-U@FHWz!Y4SYh7dpcfKgFB+QL1$#cwn&2gX9Dj#WrI>`QBaEF4Y(S!xKsbUR_K(Kl z_aTDj=khqhrxU!J>cZpKrGYoqkM@>Z!DQn?kJ6W=lhdg(O>sjJ$940kAdLY*WZ1r_ z^=i67oQVj5~y$4mIy&f2|?hI4`EU?j3%b3oWqPxItiRkJVm z`BAiSeB&DZU7*lcykSGWTjXP=;?F4R4ygzi_JE)vrFKWwR~qKU&wQt*PRGWvRdYk~ zBsz3V;b-XeM`LMblyPiz1M*%6USX9lb~-(g*NpF=58Dgm%6@R>sWTbmOzGgLWYt5| z3ZLu?S<%~s(x#0Tp3M_d%;x&bn-!Dv3=Z8q zO3+7*pR}MS6{E_mJ#pN9?B*UC6}$=Q%{%+vRzBQ^8xMbJ!*{}xdckSOq;6DOg_cqv zY-|HjdX`N%AMG=9q0&mqOdxQeZLOYj5{5d8i2-j*^J4-TbIz1co4siFbPZy<ue7~i(0(wW7f+-Bd-hdEWQKWlWK2=^tnfXcVZTr_s+Gi3_hWU zbP3~i4Uiode=MMJDx@OqxJTk+zj`N53#^*2SrKP`%avzna7rLOz$-rIqnTa)HuJLzzdKB#MYAcaf$@U38DSxsNiKUm`C8F`m>;U~a>uBhLD zq9ZpKSdfZF+iq};bZ2;sxFy|dQlM9pS*jr5$NoJ9m&fK9)8&0b*9CI#*}H{UbIAR` znr-(ARS`KP@u2WuyEbC|8%SzO>g;hvdMvIna{Vz!RS2qBiS>m%ROb&UexE{3adv?r zzA$lZv#FnswdvX3nn7Z^v*_n5TWlF!Za9VSDCO)KlYU8FB5$kIq9`b*%<}qrl50EL z9C^`j;g~g3v&rO6J9bF6k5dWHE16uqtSY%0OJ8uL?VR{)=2uA3Ytq%1(!@3-S>_?3 zD=9CLp0%NRZr{Q(jztaYFb2t`PGo|D1886c*c9Wy3!bW|Bb&ARCUbM`LpKyt2>Efz zFXIqC?hP?Yr|1e1Q8jo(BW3svSYOoqqw55T3vB=|~D#WvEOvyvxPFc50a@j4>iq4k4r;>vI6nPoxwRSdT-iJ&4DPk9_EjnZ4sMiV~??qf{j;6~iV5Uix=$m9*_umnh?X|r9 z^d-U8dEsKoe_`%idO6b=2_{Wp_9t)^Dcn;nU552UAkqij+E9bfwbA?|REr<8DUY0A*W!opgU=YzHM^&f)oDIG9M$sAPz&Eh*+MqV{@z!?;$Cy zXba}Ox}OdRiR3LD_y?W+cNBapBc@oB|;Z`?|+5!pyGpWR3j(Xt6o_SG1ZAi?grW(5VTbrmz*NyQ&qza?B~BHKIo3WeUU&T< zOrcCvE^y4yU+tTyM~2q~h@TXfV!qEPl9W_>wki-h_dbrH+`Ho*#DqfR46#_B#v_R$ z3?U#wqXEs}nhtZAoy~@DwcF;H^&(sO0X9^ zKe@Zf<%oR2%y@d8=!FXZ#bz1u?0>3^z>dsAENxH~K&o4fFEJ^;#3CFBEQ?6Cc4s>= zTlx}=V4`9a3^bB>s!0)C%^M%@#wtiDi8dohY&15-3Bhas>91UUZpi*z$v1%LrWQMc zTm;-AYCrVd{IE1G?IG}SP{(%capH?k(j9F?ic_A9sx7=~LtI~GL$lwL`4sdYo!$SyXBn9>Z~!3(*bc?}dj0)VROB}${) z8_~!zO!Z(npLt{nz1xe1*$zBmEdKI(!WiP^=I=sKGQ-rWwiSEl)8-5Bz>`u5?g$N| zXgS(2N0guxRze`&NK%}s>CdpILkV;c{C@YFYfbvr1ceV(KeXw6&=yv8wOV5R^WfVs z)nk6X-#pY~TPk5Fh*Axw2#$@a4GWXHU-|z13}@4?@=CQ9XjD%X$r{Vxec!^>Q5oX4M75z9-@Sh{c$ z70h>*HMKakaY_pcd)4>Vp`I0|Im@eHa#e`U13Jp~ow_@61iYQ8*-zJLVD^UY0)}Z< zl1VP6deWH6p6{iswtzYWz%_eBWb7C1hO`0+rK`qK7yma>9)7;2JtsjwX);u7-r^|j7jH(_E?9mk!2Gqz~zpZc|Gian;AUEvAMiKpKf5OoAVc^U=I+oY`fdF_)ouaJeMpzkv&Pd_E zN8-Q2cGHC7k0gThBKwv`chXcl&q#>70XmE!Q?1I>GkC;((9Qb`%m;LAxzfDWmvYer zRH_asg^0+!^R4wAE$p#+O>^%V1a4bcXc=7A)HPH@nH4q#O@?J>7p|dZOm|<$6jxV& zPy*pZ+r(O`nR zTAfQBR0!x(S*5PtW3d$UT4iq9g$lw222QiwJ3a&jDkGrY8^(zZux8gVY2wBgn^H&OQZgPo%QF#CWJ6pmUHNr21 z4&UDPmtApuOA4@|xNvfuGPLi4DRPDXrJrSikd&A-EQCg8bZ1uH_M*b>N5CRSOrUu@ z(18LZzj<3Rg^KNY2dK_uzm%Y_s=5z-vsjbbZqsDX(U4C3BY1Z@U?bCaOLw<3Uf*Go3QSh3sx zPC@=|59#8y=^6#|5=59c>)w{Ld`mS~M}=f#7s&Uxz$;|L4jrGMu7N#7?mB6J>) zQ8)>&)C41;`c)u2jKtn9OhcL(jhjwM$#!^D2Z#{uP;&G&=zR|)1r{E9&uMEo{KsSO z=XoMmAGolhfz*qN8TBimdJ_xcC(YsJ!mB2;)|35m2+%ZJ<99kF8YKb$o(x#5$^k4y zdwF$woLRo(wBoH7__Y>0K`&d5_+FRt7<_+h@yf~_Zo(uMba6`MV)3|F*Quckt{EvON{vG>5gB;4I3*uSL9bY}@b|%S4ro;AU8{;`5l|_y+&WZlp3MWv| z*4c@a7G2KNl_GC>$7q#+-<1V_8`#~vi_8|d*5 zbZT~Nr5dG5GBVkA>b8rrg(*xLBK=PvVzp||LxNS31;f~Cw)KU_b*#p9?nL#0y-NIm z@2dU>Qae0MQ&Z+?_%YH1nkyvK!;z+)9y}`crSvFiP_&dIzu)Z-O z>aM)IgLD)^7}4I^|xnUH$d*q4{})K}hv1^;SM_|^DFzKP(M34SFi4MQRSOeAJ>pG~-%uW;qE zK&r6vFdL4J0QQ`l_q7?2-{Kq4X`=irc7y895ztlh2?6*@=>&9No=gK|zY$7%1pcd# z!Y+9y;?%06Wr5T(y6qGMJYVmA>W|dLeq=|+PLmeLcb=~IZ1DU<)KrIigZvWk@F1~4 z*tE!ubW=~)&D#(;-P;kb=^L+a6X)Tc9qGx2pc^e+@IxEqrJH04*W{jytoSPjUDudL zj?K%QoEP|q3jL=h?JsZUomI;4A`QoSSBO@E6sq-G48lmni3AF_r^L*s>FiBg+(USIz%z>D#+I#p zbfNE-0avz!oq?zJzp+ns=iY(DE|X$Vu@kU&O)kmpW7K>evcy*|8BWSTKr6Uan zC=2Sq3liI>8jF(f-0C4=hlAiRDdjFO8P-C_^G zy0tGB&cSZMc>_yIC^vkF3j5xui#!23IvClIyS05SXXy4cd?~NX!R^mxNT(|H5wDis zvRhuC!W=yiavo7F~oqfh3A`xufbf!j&8zBj^6B22!KH$Mp zTEa+RcqXU6S+kQLzncx^7T`@#o|IO8obr4xZl!zk{a^rFS+omk#oc<1YN3Swvvq7P zMy`U1-#Dm390=+*!m7e@xtFrnXIe`cHsN?~ibY;H2_g;=f=hQm*2>Hxb3#I3=;^5V z%=eu`?3?vE{0 zwPmrg575Hc}osS~;bDwHFemfh{i0EyFAOnNbmv%df$fQy&@bG)1b; zi$c&tZJNSiLRuE*>Ks2(nZ9IzEP)w2p}G<)1iohalkL55f23BTSgm{kkRbYstn znat)DQ5McOg!xcF^=#m9?LX|vwTtD$(hZ)1hoP=E4cAXCs7A!O=JZX=byggi`3Mc4654jn+?3H4+78*YmC6K;;{lLx`=LCH~$nU(6uH#8` zR_sJ|h>yS5i!1;;T%BLxA4ETpn^*CR<0Sz5^;s>WS!^)D@cd@H^%My@kfPv)k6=Q} zam2A%v;cPgHKID6>tV?^X1cA#w{LL>w+a||k6skdCv(t&hYe)dtNxU`$H-yHQQ(tV zQaE2E`%o6~&?~19#1wmwbqI6x1|axNU{7P5ob^HnvPY%zxumN1+I@qkX*J~Yu`2h0 zfO;ylmJR*O5pD!=+LNl(q}v^1M`OuGyQXM%>lwZhs^v#Lh;{O9{b>t#_rgN0I`uF4 zslXBCkNdiDlQNwfy;JZq$_f~6y+J@!{2`(N3ANfKwh4rnqS92<-cCR*+TdQU8wNV7aY;M%%rWG4QgP+pS0bvLBk{8SY!~%7G6^ZJyviz;`0>&U zEDjt>|*CGH-Yc#eF=>4YbgqDd`)@Lqfj2glq>T|k0>pbeq#x> zZ{*i+tcVZV-iJKF23TRJ_Dw!;%flrgZ7{i8^huUd-vWyq495H!suBj7S)Sp58k&_r@+9E4r8i1A%5tW-$3H- zrdNHX)FC-L?7TorDe-As`|Pea?*vs)VdayY?wF7=I=rYAsE$aM6+W7MMzMk-ZQ8n9 zUHFXOQ#Qnmq~d?*^5eseB8wQTfwbINsbh{PxFV|=D@a*5nJBIaZ)e`%?1xR+qDt{3>WPe*TT zxtAh85#`3IhZV(9MH6CRY-EhOc0iX1H*q@uHM@3c)m>k)x^fW3rj1)AF1_Il9Tz&VsN$l>ag1v4&UdJ{=x?SKk~JrDAwU@}Nz-P{t+iqwxy6UmiHZCse6)u+!A zvH@h;M1L=K!jfl_ZN|s>#Hr%6QgPyxq@z+XU7L%F_1vyLA)jen(s2RhC`G)x z{eJp*<|oHW{#9r1^^P<(SySLPR2Y^wl4InjRtPnXDof4yP~u&hWQXGS7we_ok)M)B z#|Q2E)1HLRBWf@A4)ard-aVcjRjECx`n(m_I;3j?q}8pHxLoGm*-FgMZcevRt9n)~ zzdJ|CndDh((L*zArCVRjFm@4}@?D}Zjha2-W~8rs#4)fh%tM9#OfxM0>RY4ow&Zfi zr^W4w{8vy2<2IE%=Z|9$giO5+jPLix@FplvH#b}0`4nL>6W-G`e#-FlIhwaFRUWEB zTTLltAJABqTU~Zpfzr7b`t@CiNu`^%%GW`t(anp7BucI%zpB0KQ9nCBd7Bm)bgf_c z%=%pz*Vy7k!?o%t^VE>;qeRFd+x#qt=Jm^CH)g=046IVR_mP_59kiD!v2f%VO%$J! zUf~88ROy)HNks{tZrMd`$FkUq5gf0=;<8iIEy!rNtEz-n(E1qeV#x!1-d=TW?>Q!H zc=Bf6C84(I^zA1O@qfsnm7lKPIQCjgx?P+ypz+-2O#xi#FVT;R(Br^sF&N~%-8pj2 zea%?rd?iH9rF%E`z$RJUv{4Oa&U)DMl&j|wD$$7>CE*jt+` z!P5S$=BDNo8)Ytxd^YuMXIl$zU+A)i`)yn59B3XS)Ad$bd9pu9exl%s)2MeR8JT4D z2bAdrCR^kHVvX>V@{e|J3{wHC$AI>1?a1p!rdp=fmPIT=QIR(m!b2ppaxi2ZLi1#h zXxBJ-92mzDP-5jy=fX6lcZ79slog0mUMtrfGJM_}I-ectt)DVYZ!gHHF-+@$lzOvR ziwrJmSRv0r_%=3%wT_ck7l}puWVQY5!@nMeS_^z`Kbe55U?cCkjpMsdT3*yN+hxli6k z!?%Esvvu0|K%F&0=Vim3>m_4jOz-!B+M-S^JpGyRx&pk@zW!(DCvU&Y*i|=tf&6S+ z25iW!65@C7fDA_t>K4BLiemK?0q|R5)MQ@ z@r&tMHGd;sBF65biy{)lzP>j5xe}wKm}$62N&F?_tGR1gt4WY)CYyufd_(|iw5f3P zJtcVJOv7?T4Luh(t{yJbm)g1iz$~W~comwP;+#rOqkL6(VA>hcbDQy4#`lZYkg&_c ziKXc9hf#8z>J2W)QPsGIWYfsh2tstT*PY*J>$u*24??4(rO}5NOTw$QSc?IMHlUyn zQChMsYLJ)I8$Z~Il@*uEldCpqJTwCm1(`O^@o$$I;eL07%O$j{;1cX$1;h5=^& z`=I3;B*NA8Vb{PX0OC}z&e8d*|1wf*udrH_DKC7P!B?gH7Kvu?eI!D{IvkRy*=xP` z#peyFW9OPKtA-$EResGYML22X(p~F)+TJ3lGYfF!TA~fNP z^oHL`oIJF1fOlm#V`4&XRlPxZ)#dP6w_@-0jWJ0N`Pr}O9ghxn(gb6!?d*ABHuJ;z zT{4%CRaQm($O+gooqo9q`nNWc_~^bF`#~$rSB3p(MS5-BPgUFB=6+vPHb+Kn08GP} zLV~4GD@sq_(W&&@#+%-(pbpV@Ntckh4YRsw%f-t&T zB7Dp3a6{DWNZ;B2`tDoo)VO$jyPfh1b^|~_Vu7pOK?C3b`w3r!ROZxPXuu9{58i*T z!~-wJ13&=C{`CZYfQ9;&-cIITt{&iZd4EO^zo-d~Pd$jUfi2+gAi=KJe;@y!s5%%Z zDaB%G^=E`VUSG&DCgKK~mX0IxKB3{<_yp#T6-ZU6wn|H{3BWeDQ-9&+X`R!;UV zwyctWy!Z#Gp|DG+lUX6S8f>(E9r^dB-+!_G{XxwLfji*p`ftd88vg+Ff&ok|u?A5B z06=LV#Q(^@e*;=q4Dj%H7dUWX1M@>hP8{euepU2 zcpc^cHva+nTg}7Y5aHH;LH=(A#6Q2oztv6pO%Uw*P585l(w~ICl>qroXzKq>_;+9a zaSDGc5%D`dJNP^P{|iR^`R0Ff*Z)rYjQ&pl$7KI!_-_LD-{JbP-{C)W?tcRQ=0^Sv z$ej8E@TV#HPsHD3r@s-f^S=@Qr9S-=@i&*-Z-m3@KN0_HcKZ|ZH>=NYNX7O)A^+?6 z`4jRtImvGb<^FHT|526viTT@({NEVw69C{Z`}6+<{B1$lg`aZi*AJO%>(AJOLmy8r+H literal 0 HcmV?d00001 diff --git a/ArinWarev1/Calculator/AirHandling/CAirHandling.vb b/ArinWarev1/Calculator/AirHandling/CAirHandling.vb new file mode 100644 index 0000000..3f6b1d7 --- /dev/null +++ b/ArinWarev1/Calculator/AirHandling/CAirHandling.vb @@ -0,0 +1,830 @@ +Public Class CAirHandling + + '''

+ ''' 최대냉/난반후하 계산식인거 같다. + ''' + ''' + ''' + Public Overridable Sub Calc_Max_Power(ByVal i_HeatCool As Integer) + 'Dim i_count_zone As Integer, i_count_AHU As Integer, i_count_profile As Integer + Dim c_p_L As Decimal, rho_L As Decimal + Dim theta_i_c As Decimal, theta_ABL_wi As Decimal, theta_ABL_so As Decimal, theta_AUL_wi As Decimal, theta_AUL_so As Decimal, theta_ZUL_wi As Decimal, theta_ZUL_so As Decimal + Dim x_ABL_wi As Decimal, x_ABL_so As Decimal, x_AUL_wi As Decimal, x_AUL_so As Decimal, x_ZUL_so As Decimal + Dim h_ABL_wi As Decimal, h_ABL_so As Decimal, h_AUL_wi As Decimal, h_AUL_so As Decimal, h_ZUL_wi As Decimal, h_ZUL_so As Decimal + Dim Delta_h_WRG As Decimal, V_dot_mech_m As Decimal, V_dot_star As Decimal, theta_c_mech_min As Decimal, ps_theta_ZUL_so As Decimal + Dim Q_dot_h_star As Decimal, Q_dot_c_star As Decimal, Q_dot_st_star As Decimal + Dim Q_dot_h_max As Decimal, Q_dot_c_max As Decimal + Dim theta_e_min As Decimal, theta_e_max As Decimal, V_A As Decimal, theta_i_h As Decimal, theta_i_c_soll As Decimal + Dim A_B As Decimal, c_p_Lrho_L As Decimal + + + theta_i_c = 24 + theta_i_c_soll = 26 + theta_i_h = 20 + c_p_L = 1.006 'kJ/kg K + rho_L = 1.204 'kg/m3 (20도 1기압상태) + c_p_Lrho_L = 0.34 'Wh/m3 K + theta_ABL_wi = 22 + x_ABL_wi = 0.008 '편차가 없는 습도요구 적용 + h_ABL_wi = 42.6 '편차가 없는 습도요구 적용 + theta_ABL_so = 26 + x_ABL_so = 0.008 '편차가 없는 습도요구 적용 + h_ABL_so = 46.7 '편차가 없는 습도요구 적용 + theta_AUL_wi = -12 + x_AUL_wi = 0.001 + h_AUL_wi = -9.6 + theta_AUL_so = 32 + x_AUL_so = 0.012 + h_AUL_so = 63 + theta_e_min = -11.3 + theta_e_max = 31.5 + + + 'Dim dr공조처리 As DS.tbl_kongjoRow + + For Each Dr존 As DS.tbl_zoneRow In DSET.tbl_zone.Select("code<>'0'", "code") + + Dim dr최대냉난방부하 As DSR.최대냉난방부하Row = CType(DSETR.최대냉난방부하.Select("zone='" & Dr존.code & "'")(0), DSR.최대냉난방부하Row) + If Dr존.냉난방공조 = "냉방" Or Dr존.냉난방공조 = "냉난방" Then + A_B = TOSG(Dr존.면적) * TOSG(Dr존.입력존의수) ' Worksheets("입력존").Range("전용면적1").Offset(0, i_count_zone - 1) + Dim dr프로필 As DS.tbl_profileRow = CType(DSET.tbl_profile.Select("code='" & Dr존.프로필 & "' and code <> '0'")(0), DS.tbl_profileRow) + V_A = TOSG(dr프로필.최소도입외기량) * A_B ' Worksheets("설정조건").Range("최소도입외기량1").Offset(0, i_count_profile) * A_B + + For Each dr공조처리 As DS.tbl_kongjoRow In DSET.tbl_kongjo.Select("code='" & Dr존.냉난방공조처리시스템 & "' and code <>'0'", "code") + '//아래두코드는 상단코드로 변경 + 'If Dr존.냉난방공조처리시스템 <> "" Then ' Worksheets("입력존").Range("입력난방공급기기1").Offset(2, i_count_zone - 1) <> "" Then + 'If Dr존.냉난방공조처리시스템 = dr공조처리.code Then ' Worksheets("입력존").Range("입력난방공급기기1").Offset(2, i_count_zone - 1) = Worksheets("공조처리시스템").Range("공조기기1").Offset(0, i_count_AHU - 1) Then + + ' 공조기 최대 가열성능 + If i_HeatCool = 1 Then + If Dr존.냉난방공조 = "냉난방" Then ' Worksheets("입력존").Range("공조존2").Offset(0, i_count_zone - 1) = "냉난방" Then + + Select Case dr공조처리.열교환기유형.Trim ' Worksheets("공조처리시스템").Range("열교환기1").Offset(0, i_count_AHU - 1) + Case "열회수불가" '"열회수불가" + Delta_h_WRG = 0 '(3.2.5-54) 열 회수기 없음 + Case "현열교환" '현열교환" + Delta_h_WRG = TOSG(dr공조처리.열회수율) * c_p_L * (theta_ABL_wi - theta_AUL_wi) '(3.2.5-55) 순수 현열 회수기 '================2010.03.22 수정 + Case "전열교환" '전열교환" + Delta_h_WRG = TOSG(dr공조처리.열회수율) * c_p_L * (h_ABL_wi - h_AUL_wi) '(3.2.5-56) 현열 및 습기 회수기 '================2010.03.22 수정 + End Select + + + + theta_ZUL_wi = TOSG(dr공조처리.설정치난방) ' Worksheets("공조처리시스템").Range("공조방식1").Offset(1, i_count_AHU - 1) 'theta_h_mech_min '(도표 3-3) + + 'h_ZUL_wi = 1.01 * theta_ZUL_wi + 0.001 * (2501 + 1.86 * theta_ZUL_wi) '(3.2.5-38) 습도요구 없음 + 'h_ZUL_wi = 1.01 * theta_ZUL_wi + 0.006 * (2501 + 1.86 * theta_ZUL_wi) '(3.2.5-42) 편차가 있는 습도요구 + h_ZUL_wi = TOSG(1.01 * theta_ZUL_wi + 0.008 * (2501 + 1.86 * theta_ZUL_wi)) '(3.2.5-48) 편차가 없는 습도요구만 우선 적용 + Q_dot_h_max = TOSG(dr최대냉난방부하.최대난방기기부하) ' Worksheets("0").Range("최대난방부하1").Offset(0, i_count_zone - 1) + + '--------------------------------------------------------------------------------------------------2010.02.22 수정 + If (TOSG(dr공조처리.설정치난방) - theta_i_h) > 0 Then + V_dot_mech_m = 1000 * Q_dot_h_max / (c_p_Lrho_L * (TOSG(dr공조처리.설정치난방) - theta_i_h)) + Else + V_dot_mech_m = 0 + End If + '--------------------------------------------------------------------------------------------------2010.02.22 수정 + + V_dot_star = V_dot_mech_m + If dr공조처리.열교환기유형 = "전열교환" Then ' Worksheets("공조처리시스템").Range("열교환기1").Offset(0, i_count_AHU - 1) = "전열교환" Then + Q_dot_h_star = V_dot_star * rho_L * (h_ZUL_wi - h_AUL_wi - Delta_h_WRG) / 3600 '(3.2.5-57) 증기가습 있음 - 열교환방식으로 수정 추후 검토 + Else + Q_dot_h_star = V_dot_star * rho_L * (c_p_L * (theta_ZUL_wi - theta_AUL_wi) - Delta_h_WRG) / 3600 '(3.2.5-58) 증기가습 없음 - 열교환방식으로 수정 추후 검토 + End If + + dr최대냉난방부하.최대가열성능 = Q_dot_h_star + 'Worksheets("0").Range("최대난방부하1").Offset(3, i_count_zone - 1) = Q_dot_h_star + If Q_dot_h_max > (c_p_Lrho_L * (theta_i_h - theta_e_min) * V_A) / 1000 Then + dr최대냉난방부하.최대난방실내부하 = (Q_dot_h_max - (c_p_Lrho_L * (theta_i_h - theta_e_min) * V_A) / 1000) + 'Worksheets("0").Range("최대난방부하1").Offset(1, i_count_zone - 1) = Q_dot_h_max - (c_p_Lrho_L * (theta_i_h - theta_e_min) * V_A) / 1000 + Else + dr최대냉난방부하.최대난방실내부하 = 0 + 'Worksheets("0").Range("최대난방부하1").Offset(1, i_count_zone - 1) = 0 + End If + End If + + '공조기 최대 가습성능 + + 'h_ZUL_wi = 1.01 * theta_ZUL_wi + 0.001 * (2501 + 1.86 * theta_ZUL_wi) '(3.2.5-38) 습도요구 없음 + 'h_ZUL_wi = 1.01 * theta_ZUL_wi + 0.006 * (2501 + 1.86 * theta_ZUL_wi) '(3.2.5-42) 편차가 있는 습도요구 + h_ZUL_wi = TOSG(1.01 * theta_ZUL_wi + 0.008 * (2501 + 1.86 * theta_ZUL_wi)) '(3.2.5-48) 편차가 없는 습도 요구 + + Select Case dr공조처리.열교환기유형.Trim ' Worksheets("공조처리시스템").Range("열교환기1").Offset(0, i_count_AHU - 1) + Case "열회수불가" '열회수불가" + Delta_h_WRG = 0 '(3.2.5-63) 열 회수기 없음 + Case "현열교환'" '현열교환" + Delta_h_WRG = 2501 * TOSG(dr공조처리.열회수율) * (x_ABL_wi - x_AUL_wi) '(3.2.5-64) 현열 및 습기 회수기 '================2010.03.22 수정 + Case "전열교환" '전열교환" + Delta_h_WRG = 2501 * TOSG(dr공조처리.열회수율) * (x_ABL_wi - x_AUL_wi) '(3.2.5-64) 현열 및 습기 회수기 '================2010.03.22 수정 + End Select + + Q_dot_st_star = V_dot_star * rho_L * (h_ZUL_wi - h_AUL_wi - Delta_h_WRG) / 3600 '(3.2.5-65) + dr최대냉난방부하.최대가습성능 = Q_dot_st_star + dr최대냉난방부하.공조풍량 = V_dot_star + 'Worksheets("0").Range("최대가습성능1").Offset(0, i_count_zone - 1) = Q_dot_st_star + 'Worksheets("0").Range("최대가습성능1").Offset(1, i_count_zone - 1) = V_dot_star '공조풍량 + + Else + + ' 공조기 최대 냉각성능 + + theta_c_mech_min = TOSG(dr공조처리.설정치냉방) ' Worksheets("공조처리시스템").Range("공조방식1").Offset(2, i_count_AHU - 1) + theta_ZUL_so = theta_c_mech_min '(도표 3.3) + ps_theta_ZUL_so = TOSG(Math.Exp(23.621 - 4065 / (theta_ZUL_so + 236.2506))) '(3.2.5-37) 0.01C<=theta<=80C + x_ZUL_so = TOSG(0.5911 / (100000 / ps_theta_ZUL_so - 0.95)) '(3.2.5-41) + + 'h_ZUL_so = 1.01 * theta_ZUL_so + 0.012 * (2501 + 1.86 * theta_ZUL_so) '(3.2.5-39) 습도요구 없음 ps_theta_ZUL_so>1892Pa + 'h_ZUL_so = 1.01 * theta_ZUL_so + x_ZUL_so * (2501 + 1.86 * theta_ZUL_so) '(3.2.5-40) 습도요구 없음 ps_theta_ZUL_so<=1892Pa + 'h_ZUL_so = 1.01 * theta_ZUL_so + 0.011 * (2501 + 1.86 * theta_ZUL_so) '(3.2.5-43) 편차가 있는 습도요구 ps_theta_ZUL_so>1737Pa + 'h_ZUL_so = 1.01 * theta_ZUL_so + x_ZUL_so * (2501 + 1.86 * theta_ZUL_so) '(3.2.5-44) 편차가 있는 습도요구 ps_theta_ZUL_so<=1737Pa + + If ps_theta_ZUL_so > 1269 Then + h_ZUL_so = TOSG(1.01 * theta_ZUL_so + 0.008 * (2501 + 1.86 * theta_ZUL_so)) '(3.2.5-43) 편차가 없는 습도요구 ps_theta_ZUL_so>1269Pa + Else + h_ZUL_so = TOSG(1.01 * theta_ZUL_so + x_ZUL_so * (2501 + 1.86 * theta_ZUL_so)) '(3.2.5-44) 편차가 없는 습도요구 ps_theta_ZUL_so<=1269Pa + End If + + Select Case dr공조처리.열교환기유형.Trim ' Worksheets("공조처리시스템").Range("열교환기1").Offset(0, i_count_AHU - 1) + Case "열회수불가" '열회수불가" + Delta_h_WRG = 0 '(3.2.5-59) 열 회수기 없음 + Case "현열교환" '현열교환" + Delta_h_WRG = TOSG(dr공조처리.열회수율냉) * c_p_L * (theta_AUL_so - theta_ABL_so) '(3.2.5-55) 순수 현열 회수기 '================2010.03.22 수정, =============2010.04.14 수정 + Case "전열교환" '전열교환" + Delta_h_WRG = TOSG(dr공조처리.열회수율냉) * c_p_L * (h_AUL_so - h_ABL_so) '(3.2.5-56) 현열 및 습기 회수기 '================2010.03.22 수정, =============2010.04.14 수정 + End Select + + Q_dot_c_max = TOSG(dr최대냉난방부하.최대냉방기기부하) ' Worksheets("0").Range("최대냉방부하1").Offset(0, i_count_zone - 1) + '--------------------------------------------------------------------------------------------------2010.02.22 수정 + If (theta_i_c - TOSG(dr공조처리.설정치냉방)) > 0 Then + V_dot_star = 1000 * Q_dot_c_max / (c_p_Lrho_L * (theta_i_c - TOSG(dr공조처리.설정치냉방))) + Else + V_dot_star = 0 + End If + '--------------------------------------------------------------------------------------------------2010.02.22 수정 + Q_dot_c_star = V_dot_star * rho_L * (h_AUL_so - h_ZUL_so - Delta_h_WRG) / 3600 '(3.2.5-62) + + dr최대냉난방부하.최대냉각성능 = Q_dot_c_star + dr최대냉난방부하.최대냉방실내부하 = Q_dot_c_max - (c_p_Lrho_L * (theta_e_max - theta_i_c_soll) * V_A) / 1000 + + 'Worksheets("0").Range("최대냉방부하1").Offset(3, i_count_zone - 1) = Q_dot_c_star + 'Worksheets("0").Range("최대냉방부하1").Offset(1, i_count_zone - 1) = Q_dot_c_max - (c_p_Lrho_L * (theta_e_max - theta_i_c_soll) * V_A) / 1000 + End If + + 'End If + 'End If + + Next + Else + + dr최대냉난방부하.최대난방실내부하 = 0 + dr최대냉난방부하.최대냉방실내부하 = 0 + dr최대냉난방부하.최대가열성능 = 0 + dr최대냉난방부하.최대냉각성능 = 0 + dr최대냉난방부하.최대가습성능 = 0 + dr최대냉난방부하.공조풍량 = 0 + End If + + Next + + End Sub + + Public Overridable Sub Calc_AirHandling(ByVal i_count_month As Integer, ByVal theta_e As Decimal) ' ByVal d_mth As Integer, + 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 + Dim c_p_L As Decimal, rho_L As Decimal, f_p As Decimal, rho_cl As Decimal + Dim q_st_18_12h_m As Decimal, q_st_12h_m As Decimal, q_h_12h_m As Decimal, q_c_12h_m As Decimal, q_h_m As Decimal, q_c_m As Decimal, q_st_m As Decimal + Dim eta_ZUL As Decimal, eta_ABL As Decimal, f_h_H As Decimal, f_h_C As Decimal, f_h_st As Decimal + Dim Delta_p_star_ZUL As Decimal, Delta_p_star_ABL As Decimal, Delta_h_WRG As Decimal + Dim Q_V_E_ZUL_m As Decimal, Q_V_E_ABL_m As Decimal, Q_c_b As Decimal, Q_h_b As Decimal, Q_vh_b As Decimal, Q_vc_b As Decimal, Q_vm_b As Decimal + Dim t_V_mech_m As Decimal, theta_V_mech_m As Decimal, theta_hc_m As Decimal + Dim V_dot_mech_m As Decimal, V_dot_mech_max As Decimal, V_dot_A As Decimal, V_dot_z As Decimal, P_V_ZUL_m As Decimal, P_V_ABL_m As Decimal + Dim Sigma_V_dot As Decimal, Sigma_V_dot_3 As Decimal + Dim theta_h_mech_m As Decimal, theta_c_mech_m As Decimal + + ' Dim i_count_zone As Integer, i_count_profile As Integer, i_count_AHU As Integer + Dim theta_i_c_soll As Integer, theta_i_c As Integer, theta_i_h_soll As Integer, d_V_mech_m As Integer, theta_ABL_wi As Integer, theta_ABL_so As Integer + Dim V_dot_mech_h_max As Decimal, V_dot_mech_c_max As Decimal, V_dot_mech_c_m As Decimal, V_dot_mech_h_m As Decimal + Dim theta_e_min As Decimal, theta_e_max As Decimal + Dim x_ZUL_wi As Decimal, theta_ZUL_wi As Decimal, theta_AUL As Decimal, h_AUL As Decimal, x_AUL As Decimal, theta_AUL_j As Decimal, x_AUL_j As Decimal, psi_AUL_j As Decimal + Dim h_B As Decimal, r_0 As Decimal, m_dot_1_L As Decimal, u As Decimal, Phi_h As Decimal, Phi_c As Decimal '===============================2010.04.14 수정 + Dim Q_VE_B As Decimal, Q_VE_ZU As Decimal, Q_VE_D As Decimal + 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 + + ' 공조처리 + + theta_i_c_soll = 26 + theta_i_c = 24 'theta_i_c_soll - 2 '(2-36) + theta_i_h_soll = 20 + c_p_L = 1.006 'kJ/kg K + rho_L = 1.204 'kg/m3 (20도 1기압상태) + c_p_Lrho_L = 0.34 'Wh/m3 K + f_p = 0.4 '= Delta_p_konst / Delta_p_star = 0.4 '(3.2.5-13, 7-1) + '================================================2010.2.21 수정 + 'd_V_mech_m = d_mth + '================================================2010.2.21 수정 + theta_ABL_wi = 20 + x_ABL_wi = 0.008 '편차가 없는 습도요구 적용 + h_ABL_wi = 42.6 '편차가 없는 습도요구 적용 + theta_ABL_so = 26 + x_ABL_so = 0.008 'kg/kg 편차가 없는 습도요구 적용 + h_ABL_so = 46.7 'kJ/kg 편차가 없는 습도요구 적용 + x_AUL_wi = 0.001 + h_AUL_wi = -9.6 + x_AUL_so = 0.012 + h_AUL_so = 63 + q_st_18_12h_m = 0 '우선 0으로 적용 추후 검토 + theta_e_min = -11.3 + theta_e_max = 31.5 + r_0 = 2500 'kJ/kg + x_ZUL_wi = 0.00699 + + + 'Dim Dr프로필 As DS.tbl_profileRow '//아래에서 할당되도록되어있다. + '//location 은 거의 서울(0번줄)이된다. + Dim Drow평균온도 As DS.weather_tempRow = CType(DSET.weather_temp.Select("pcode='" & Calc.Pub.기상데이터.code & "' and code='" & Format(i_count_month, "0000") & "'")(0), DS.weather_tempRow) + Dim Drow평균습도 As DS.weather_supdoRow = CType(DSET.weather_supdo.Select("pcode='" & Calc.Pub.기상데이터.code & "' and code='" & Format(i_count_month, "0000") & "'")(0), DS.weather_supdoRow) + Dim Mon As String = "M" & Format(i_count_month, "00") + For Each Dr존 As DS.tbl_zoneRow In DSET.tbl_zone.Select("code<>'0'", "code") + Dim Drow분석() As DSR.월별에너지분석Row = CType(DSETR.월별에너지분석.Select("월='" & Mon & "' and 존='" & Dr존.code & "'"), DSR.월별에너지분석Row()) + 'If Worksheets("입력존").Range("공조존2").Offset(0, i_count_zone - 1) = "냉방" Or Worksheets("입력존").Range("공조존2").Offset(0, i_count_zone - 1) = "냉난방" Then + If Dr존.냉난방공조 = "냉방" OrElse Dr존.냉난방공조 = "냉난방" Then + + '//존의 프로필과 일치하는 프로필검색후 적용 + Dim Dr프로필 As DS.tbl_profileRow = CType(DSET.tbl_profile.Select("code='" & Dr존.프로필 & "'")(0), DS.tbl_profileRow) + t_V_mech_m = TOSG(Dr프로필.운전시간난방) ' Worksheets("설정조건").Range("사용시작시간1").Offset(5, i_count_profile) + V_dot_A = TOSG(Dr프로필.최소도입외기량) ' Worksheets("설정조건").Range("최소도입외기량1").Offset(0, i_count_profile) + 'i_profile = i_count_profile '//아래 루프종료문은 없어서 추가했다. + '===================================================================================2010.2.21 추가 + If i_count_month = 0 Then + d_V_mech_m = 0 + Else + d_V_mech_m = CInt(Dr프로필("day" & Format(i_count_month, "00"))) + End If + '===================================================================================2010.2.21 추가 + + For Each Dr공조 As DS.tbl_kongjoRow In DSET.tbl_kongjo.Select("code='" & Dr존.냉난방공조처리시스템 & "' and code <> '0'", "code") + '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 + Q_vh_b = 0 + Q_vc_b = 0 + Q_vm_b = 0 + eta_ZUL = TOSG(Dr공조.총효율급기팬) ' Worksheets("공조처리시스템").Range("총압력상승1").Offset(2, i_count_AHU - 1) + eta_ABL = TOSG(Dr공조.총효율배기팬) ' Worksheets("공조처리시스템").Range("총압력상승1").Offset(3, i_count_AHU - 1) + Delta_p_star_ZUL = TOSG(Dr공조.총압력손실급기팬) ' Worksheets("공조처리시스템").Range("총압력상승1").Offset(0, i_count_AHU - 1) + Delta_p_star_ABL = TOSG(Dr공조.총압력손실배기팬) ' Worksheets("공조처리시스템").Range("총압력상승1").Offset(1, i_count_AHU - 1) + theta_V_mech_m = TOSG(Dr공조.설정치냉방) ' Worksheets("공조처리시스템").Range("공조방식1").Offset(2, i_count_AHU - 1) + theta_h_mech_m = TOSG(Dr공조.설정치난방) 'Worksheets("공조처리시스템").Range("공조방식1").Offset(1, i_count_AHU - 1) + theta_c_mech_m = TOSG(Dr공조.설정치냉방) ' Worksheets("공조처리시스템").Range("공조방식1").Offset(2, i_count_AHU - 1) + + A_B = TOSG(Dr존.면적) * TOSG(Dr존.입력존의수) ' Worksheets("입력존").Range("전용면적1").Offset(0, i_count_zone - 1) + + theta_AUL = 0 + x_AUL = 0 + i_count_start_time = CInt(Dr프로필.운전시작시간.Substring(0, Dr프로필.운전시작시간.IndexOf(":"))) ' Worksheets("설정조건").Range("사용시작시간1").Offset(3, i_profile) + i_count_end_time = CInt(Dr프로필.운전종료시간.Substring(0, Dr프로필.운전종료시간.IndexOf(":"))) ' Worksheets("설정조건").Range("사용시작시간1").Offset(4, i_profile) + If i_count_start_time - i_count_end_time < 0 Then + For i_count_air = 0 To CInt(t_V_mech_m - 1) '자정 전까지 운전 조건 + '//Dr기상데이터의 2번째 인덱스부터 시간이다. + theta_AUL_j = TOSG(Drow평균온도("t" & Format(i_count_start_time + i_count_air + 1, "00"))) ' Worksheets("기상데이타").Range("시간별평균온도1").Offset((i_count_month - 1) * 25 + i_count_start_time + i_count_air, location - 1) + psi_AUL_j = TOSG(Drow평균습도("t" & Format(i_count_start_time + i_count_air + 1, "00"))) / 100 ' Worksheets("기상데이타").Range("시간별평균습도1").Offset((i_count_month - 1) * 25 + i_count_start_time + i_count_air, location - 1) / 100 + P_D_j_theta_AUL_j = TOSG(psi_AUL_j * Math.Exp(23.621 - 4065 / (theta_AUL_j + 236.2506))) + x_AUL_j = TOSG(0.5911 / (100000 / P_D_j_theta_AUL_j - 0.95)) + theta_AUL = theta_AUL + theta_AUL_j + x_AUL = x_AUL + x_AUL_j + Next + Else + For i_count_air = 0 To 23 - i_count_start_time '자정 넘어까지 운전 조건 + theta_AUL_j = TOSG(Drow평균온도("t" & Format(i_count_start_time + i_count_air + 1, "00"))) 'Worksheets("기상데이타").Range("시간별평균온도1").Offset((i_count_month - 1) * 25 + i_count_start_time + i_count_air, location - 1) + psi_AUL_j = TOSG(Drow평균습도("t" & Format(i_count_start_time + i_count_air + 1, "00"))) / 100 'Worksheets("기상데이타").Range("시간별평균습도1").Offset((i_count_month - 1) * 25 + i_count_start_time + i_count_air, location - 1) / 100 + P_D_j_theta_AUL_j = TOSG(psi_AUL_j * Math.Exp(23.621 - 4065 / (theta_AUL_j + 236.2506))) + x_AUL_j = TOSG(0.5911 / (100000 / P_D_j_theta_AUL_j - 0.95)) + theta_AUL = theta_AUL + theta_AUL_j + x_AUL = x_AUL + x_AUL_j + Next + For i_count_air = 0 To i_count_end_time - 1 '자정 넘어까지 운전 조건 + theta_AUL_j = TOSG(Drow평균온도("t" & Format(i_count_air + 1, "00"))) 'Worksheets("기상데이타").Range("시간별평균온도1").Offset((i_count_month - 1) * 25 + i_count_air, location - 1) + psi_AUL_j = TOSG(Drow평균습도("t" & Format(i_count_air + 1, "00"))) / 100 'Worksheets("기상데이타").Range("시간별평균습도1").Offset((i_count_month - 1) * 25 + i_count_air, location - 1) / 100 + P_D_j_theta_AUL_j = TOSG(psi_AUL_j * Math.Exp(23.621 - 4065 / (theta_AUL_j + 236.2506))) + x_AUL_j = TOSG(0.5911 / (100000 / P_D_j_theta_AUL_j - 0.95)) + theta_AUL = theta_AUL + theta_AUL_j + x_AUL = x_AUL + x_AUL_j + Next + + End If + + theta_AUL = theta_AUL / t_V_mech_m + x_AUL = x_AUL / t_V_mech_m + h_AUL = c_p_L * theta_AUL + x_AUL * (r_0 + c_p_L * theta_AUL) + + ''V_dot_mech_h_max = Worksheets("0").Range("최대난방부하1").Offset(1, i_count_zone - 1) * 1000 / (c_p_Lrho_L * (theta_h_mech_m - theta_i_h_soll)) '(3.2.4-86) + + '//현재존과일치하는 데이터수집 + If (theta_i_c_soll - theta_c_mech_m) <> 0 Then + V_dot_mech_max = TOSG(Result.최대부하.Item(Dr존.code).최대냉방실내부하) * 1000 / (c_p_Lrho_L * (theta_i_c_soll - theta_c_mech_m)) '(3.2.4-86) + Else + V_dot_mech_max = 0 + End If + + ' Worksheets("0").Range("최대냉방부하1").Offset(1, i_count_zone - 1) + + ''If V_dot_mech_h_max < V_dot_mech_c_max Then + '' V_dot_mech_max = V_dot_mech_c_max + ''Else + '' V_dot_mech_max = V_dot_mech_h_max + ''End If + + If V_dot_mech_max < V_dot_A * A_B Then V_dot_mech_max = V_dot_A * A_B + + Select Case Dr공조.공조방식.Trim ' Worksheets("공조처리시스템").Range("공조방식1").Offset(0, i_count_AHU - 1) + Case "정풍량" '정풍량" + V_dot_mech_m = V_dot_mech_max + + Case "변풍량" '변풍량" + '//계산결과가들엉잇는 12개월용시트(1~12)에ㅓ 해당값을 찾는 엑셀루틴이다. 이건좀 교환하기가 그러네;;ㅠ + '//해당12개시트의 데이터는 DSR월별에너지분석에 존재한다 이곳에는 월/존두개의 기본키가존재하며 해당rOW를 가져와야한다. + + If Drow분석.GetUpperBound(0) = -1 Then + MsgBox("월별에너지분석에 " & i_count_month & "데이터가 없습니다", MsgBoxStyle.Critical, "계산실패") + Return + End If + + 'Q_c_b = Sheets("" & i_count_month & "").Cells(11, 7 + i_count_zone) - (t_V_mech_m * d_V_mech_m * c_p_Lrho_L * (theta_AUL - theta_c_mech_m) * V_dot_A * A_B) / 1000 + Q_c_b = TOSG(Drow분석(0).냉방요구량공조) - (t_V_mech_m * d_V_mech_m * c_p_Lrho_L * (theta_AUL - theta_c_mech_m) * V_dot_A * A_B) / 1000 + + If Q_c_b < 0 Then Q_c_b = 0 + + V_dot_mech_m = (t_V_mech_m * d_V_mech_m * c_p_Lrho_L * (theta_AUL - theta_c_mech_m) * V_dot_A * A_B) / 1000 + Q_c_b / (t_V_mech_m * d_V_mech_m * c_p_Lrho_L * (theta_i_c - theta_c_mech_m) / 1000) '(3.2.5-4) 공조풍량(변풍량) + 'If V_dot_mech_m < 0 Then + 'V_dot_mech_m = 0 + 'End If + + If V_dot_mech_m < V_dot_A * A_B Then V_dot_mech_m = V_dot_A * A_B + + End Select + + 'If V_dot_mech_m = 0 Then + ' theta_hc_m = theta_V_mech_m + 'Else + ' theta_hc_m = theta_V_mech_m - Q_V_E_ZUL_m * 1000 / (t_V_mech_m * d_V_mech_m * c_p_Lrho_L * V_dot_mech_m) + 1.4 '(3.2.5-22) Q_V_E_ZUL_m에 1000 을 곱해야하는지 확인요망 + 'End If + + + + + '========================================================================================================================================== + '월별 풍량당 공조에너지 요구량은 추후 적용 + + + 'If theta_hc_m <= 22 And theta_hc_m > 18 Then + 'q_h_12h_m = q_h_18_12h_m + g_h_o_m * (theta_hc_m - 18) '(3.2.5-23) 18C 14 Then + 'q_h_12h_m = q_h_18_12h_m + g_h_u_m * (theta_hc_m - 18) '(3.2.5-24) 14C 0 Then 'Sheets("" & i_count_month & "").Cells(8, 7 + i_count_zone) > 0 Then + + '난방공조처리(가열,가열+가습(분무 또는 증기),리턴공기혼합유무(리턴공기혼합율 입력),열회수유무(현열 또는 전열, 열회수율 입력) + + 'Q_h_b = Sheets("" & i_count_month & "").Cells(8, 7 + i_count_zone) - (theta_i_h_soll - theta_AUL) * c_p_L * rho_L * d_V_mech_m * t_V_mech_m * V_dot_A * A_B / 3600 + Q_h_b = TOSG(Drow분석(0).난방요구량공조) - (theta_i_h_soll - theta_AUL) * c_p_L * rho_L * d_V_mech_m * t_V_mech_m * V_dot_A * A_B / 3600 + Select Case Dr공조.공조방식.Trim ' Worksheets("공조처리시스템").Range("공조방식1").Offset(0, i_count_AHU - 1) + Case "정풍량" + theta_ZUL_wi = 1000 * Q_h_b / (V_dot_mech_m * c_p_Lrho_L * t_V_mech_m * d_V_mech_m) + theta_i_h_soll 'd_Nutz=d_V_mech_m 으로 적용 + + Case "변풍량" + If V_dot_mech_m > V_dot_A * A_B Then + theta_ZUL_wi = theta_h_mech_m + Else + If V_dot_mech_m = 0 Then + theta_ZUL_wi = theta_i_h_soll + Else + theta_ZUL_wi = 1000 * Q_h_b / (V_dot_mech_m * c_p_Lrho_L * t_V_mech_m * d_V_mech_m) + theta_i_h_soll + End If + + End If + End Select + + m_dot_1_L = V_dot_mech_m * rho_L + + '외기모드 경우와 에너지 + 'theta_ZUL_wi "가습불가" Then ' Worksheets("공조처리시스템").Range("공조방식1").Offset(5, i_count_AHU - 1) <> "가습불가" Then + + h_B = c_p_L * theta_ZUL_wi + x_ZUL_wi * (r_0 + c_p_L * theta_ZUL_wi) + Select Case Dr공조.열교환기유형.Trim ' Worksheets("공조처리시스템").Range("열교환기1").Offset(0, i_count_AHU - 1) + Case "열회수불가" '열회수불가" + Q_VE_B = d_V_mech_m * (m_dot_1_L * t_V_mech_m * (h_B - u * h_ABL_wi - (1 - u) * h_AUL) / 3600) + Case "현열교환" '현열교환" + Q_VE_B = d_V_mech_m * (m_dot_1_L * t_V_mech_m * (h_B - u * h_ABL_wi - (1 - u) * (h_AUL + c_p_L * Phi_h * (theta_ABL_wi - theta_AUL))) / 3600) '==============2010.04.14 수정 + Case "전열교환" '전열교환" + Q_VE_B = d_V_mech_m * (m_dot_1_L * t_V_mech_m * (h_B - u * h_ABL_wi - (1 - u) * (h_AUL + Phi_h * (h_ABL_wi - h_AUL))) / 3600) '==============2010.04.14 수정 + + End Select + Q_vh_b = Q_VE_B + End If + + If Dr공조.가습기유형 <> "분무가습" Then ' Worksheets("공조처리시스템").Range("공조방식1").Offset(5, i_count_AHU - 1) <> "분무가습" Then + + Select Case Dr공조.열교환기유형.Trim ' Worksheets("공조처리시스템").Range("열교환기1").Offset(0, i_count_AHU - 1) + Case "열회수불가" '열회수불가" + Q_VE_ZU = d_V_mech_m * (m_dot_1_L * t_V_mech_m * c_p_L * (theta_ZUL_wi - u * theta_ABL_wi - (1 - u) * theta_AUL) / 3600) + Case "현열교환" '현열교환" + Q_VE_ZU = d_V_mech_m * (m_dot_1_L * t_V_mech_m * c_p_L * (theta_ZUL_wi - u * theta_ABL_wi - (1 - u) * (theta_AUL + Phi_h * (theta_ABL_wi - theta_AUL))) / 3600) '==============2010.04.14 수정 + Case "전열교환" '전열교환" + Q_VE_ZU = d_V_mech_m * (m_dot_1_L * t_V_mech_m * c_p_L * (theta_ZUL_wi - u * theta_ABL_wi - (1 - u) * (theta_AUL + Phi_h * (h_ABL_wi - h_AUL) / c_p_L)) / 3600) '==============2010.04.14 수정 + End Select + If Dr공조.가습기유형 = "가습불가" Then 'Worksheets("공조처리시스템").Range("공조방식1").Offset(5, i_count_AHU - 1) = "가습불가" Then + Q_vh_b = Q_VE_ZU + Else + Q_vh_b = Q_VE_ZU + Q_vm_b = Q_VE_B - Q_VE_ZU + End If + + End If + Else + Q_vh_b = 0 + Q_vm_b = 0 + + End If + '------------------------------------------------------------------------------------------------------------------------------------------ + If TOSG(Drow분석(0).냉방요구량공조) > 0 Then ' Sheets("" & i_count_month & "").Cells(11, 7 + i_count_zone) > 0 Then + '냉방공조처리에너지(냉각,리턴공기혼합유무(리턴공기혼합율 계산, 열회수유무(현열 또는 전열, 열회수율 입력) + + Q_c_b = TOSG(Drow분석(0).냉방요구량공조) 'Sheets("" & i_count_month & "").Cells(11, 7 + i_count_zone) + 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 + If theta_AUL - theta_i_c_soll > 0 Then + Q_c_b = Q_c_b - (theta_AUL - theta_i_c_soll) * c_p_L * rho_L * d_V_mech_m * t_V_mech_m * V_dot_A * A_B / 3600 + Else + Q_c_b = Q_c_b - (theta_i_c_soll - theta_AUL) * c_p_L * rho_L * d_V_mech_m * t_V_mech_m * V_dot_A * A_B / 3600 + End If + End If + If Q_c_b < 0 Then Q_c_b = 0 + theta_ZUL_so = theta_i_c - 1000 * Q_c_b / (V_dot_mech_m * c_p_Lrho_L * t_V_mech_m * d_V_mech_m) 'd_Nutz=d_V_mech_m 으로 적용 + + Case "변풍량" '변풍량" + If V_dot_mech_m > V_dot_A * A_B OrElse V_dot_mech_m = 0 Then + theta_ZUL_so = theta_c_mech_m + Else + theta_ZUL_so = theta_i_c - 1000 * Q_c_b / (V_dot_mech_m * c_p_Lrho_L * t_V_mech_m * d_V_mech_m) + End If + + End Select + + p_S_theta_ZUL_so = TOSG(Math.Exp(23.621 - 4065 / (theta_ZUL_so + 236.2506))) + p_95_theta_ZUL_so = TOSG(0.95 * p_S_theta_ZUL_so) + x_95_ZUL_so = TOSG(0.5911 / (100000 / p_95_theta_ZUL_so - 0.95)) + m_dot_1_L = V_dot_mech_m * rho_L + h_95_ZUL_so = c_p_L * theta_ZUL_so + x_95_ZUL_so * (r_0 + c_p_L * theta_ZUL_so) + + + 'If theta_ZUL_so > theta_AUL Then + + '냉방의 경우 가열에너지 + 'Select Case Worksheets("공조처리시스템").Range("열교환기1").Offset(0, i_count_AHU - 1) + 'Case "열회수불가" + 'If theta_ZUL_so > theta_ABL_so + (1 - u) * (theta_AUL - theta_ABL_so) Then + 'Q_VE_ZU = d_V_mech_m * (m_dot_1_L * t_V_mech_m * c_p_L * (theta_ZUL_so - u * theta_ABL_so - (1 - u) * theta_AUL) / 3600) + 'Q_vh_b = Q_vh_b + Q_VE_ZU + 'Else + 'If Worksheets("공조처리시스템").Range("공조방식1").Offset(6, i_count_AHU - 1) = "무" Then + 'i_count_air = 1 + 'End If + 'End If + 'Case "현열교환" + 'If theta_ZUL_so > theta_ABL_so + (1 - u) * (1 - Phi) * (theta_AUL - theta_ABL_so) Then + 'Q_VE_ZU = d_V_mech_m * (m_dot_1_L * t_V_mech_m * c_p_L * (theta_ZUL_so - u * theta_ABL_so - (1 - u) * (theta_AUL + Phi * (theta_ABL_so - theta_AUL))) / 3600) + 'Q_vh_b = Q_vh_b + Q_VE_ZU + 'Else + 'If Worksheets("공조처리시스템").Range("공조방식1").Offset(6, i_count_AHU - 1) = "무" Then + 'i_count_air = 1 + 'End If + 'End If + 'Case "전열교환" + 'If theta_ZUL_so > theta_ABL_so + (1 - u) * (1 - Phi) * (h_AUL - h_ABL_so) / c_p_L Then + 'Q_VE_ZU = d_V_mech_m * (m_dot_1_L * t_V_mech_m * c_p_L * (theta_ZUL_so - u * theta_ABL_so - (1 - u) * (theta_AUL + Phi * (h_ABL_so - h_AUL) / c_p_L)) / 3600) + 'Q_vh_b = Q_vh_b + Q_VE_ZU + 'Else + 'If Worksheets("공조처리시스템").Range("공조방식1").Offset(6, i_count_AHU - 1) = "무" Then + 'i_count_air = 1 + 'End If + 'End If + 'End Select + 'End If + + If theta_ZUL_so > theta_AUL And Dr공조.외기냉방제어유무 = "유" Then ' Worksheets("공조처리시스템").Range("공조방식1").Offset(6, i_count_AHU - 1) = "유" Then + Q_vc_b = 0 + V_dot_mech_m = (t_V_mech_m * d_V_mech_m * c_p_Lrho_L * (theta_c_mech_m - theta_AUL) * V_dot_A * A_B) / 1000 + Q_c_b / (t_V_mech_m * d_V_mech_m * c_p_Lrho_L * (theta_i_c - theta_AUL) / 1000) + If V_dot_mech_m < V_dot_A * A_B Then V_dot_mech_m = V_dot_A * A_B + Else + If 0.5911 / (100000 / p_95_theta_ZUL_so - 0.95) > (1 - u) * x_AUL + u * x_ABL_so Then + Select Case Dr공조.열교환기유형.Trim ' Worksheets("공조처리시스템").Range("열교환기1").Offset(0, i_count_AHU - 1) + Case "열회수불가" '열회수불가" + Q_vc_b = -m_dot_1_L * d_V_mech_m * t_V_mech_m * c_p_L * (theta_ZUL_so - u * theta_ABL_so - (1 - u) * theta_AUL) / 3600 + Case "현열교환" '현열교환" + Q_vc_b = -m_dot_1_L * d_V_mech_m * t_V_mech_m * c_p_L * (theta_ZUL_so - u * theta_ABL_so - (1 - u) * (theta_AUL + Phi_c * (theta_ABL_so - theta_AUL))) / 3600 '==================2010.04.14 수정 + Case "전열교환" '전열교환" + Q_vc_b = -m_dot_1_L * d_V_mech_m * t_V_mech_m * c_p_L * (theta_ZUL_so - u * theta_ABL_so - (1 - u) * (theta_AUL + Phi_c * (h_ABL_so - h_AUL) / c_p_L)) / 3600 '==================2010.04.14 수정 + End Select + Else + Select Case Dr공조.열교환기유형.Trim ' Worksheets("공조처리시스템").Range("열교환기1").Offset(0, i_count_AHU - 1) + Case "열회수불가" '열회수불가" + Q_vc_b = -m_dot_1_L * d_V_mech_m * t_V_mech_m * (h_95_ZUL_so - u * h_ABL_so - (1 - u) * h_AUL) / 3600 + Case "현열교환" '현열교환" + Q_vc_b = -m_dot_1_L * d_V_mech_m * t_V_mech_m * (h_95_ZUL_so - u * h_ABL_so - (1 - u) * (h_AUL + c_p_L * Phi_c * (theta_ABL_so - theta_AUL))) / 3600 '==================2010.04.14 수정 + Case "전열교환" '전열교환" + Q_vc_b = -m_dot_1_L * d_V_mech_m * t_V_mech_m * (h_95_ZUL_so - u * h_ABL_so - (1 - u) * (h_AUL + Phi_c * (h_ABL_so - h_AUL))) / 3600 '==================2010.04.14 수정 + End Select + End If + + End If + Else + Q_vc_b = 0 + + End If + '========================================================================================================================================== + '========================================================================================================================================== + + Select Case Dr공조.공조방식.Trim ' Worksheets("공조처리시스템").Range("공조방식1").Offset(0, i_count_AHU - 1) + Case "정풍량" '정풍량" + If eta_ZUL <> 0 Then + P_V_ZUL_m = V_dot_mech_m * Delta_p_star_ZUL / eta_ZUL / 3600000 ' V_dot_ZUL = V_dot_mech_m (3.2.5-7) 정풍량 (3600은 Pa을 W환산하면서 h를 s로 환산) + Else + P_V_ZUL_m = 0 + End If + + If eta_ABL <> 0 Then + P_V_ABL_m = V_dot_mech_m * Delta_p_star_ABL / eta_ABL / 3600000 + Else + P_V_ABL_m = 0 + End If + Q_V_E_ZUL_m = P_V_ZUL_m * t_V_mech_m * d_V_mech_m '(3.2.5-10) 정풍량 + Q_V_E_ABL_m = P_V_ABL_m * t_V_mech_m * d_V_mech_m '(3.2.5-10) 정풍량 + + Case "변풍량" '변풍량" + + Sigma_V_dot = t_V_mech_m * d_V_mech_m * V_dot_mech_m + 1000 * Q_c_b / (c_p_Lrho_L * (theta_i_c - theta_V_mech_m)) '(3.2.5-5) 월간 공조풍량 합(변풍량) + ' 수식 변경 Sigma_V_dot_3 = t_V_mech_m * d_V_mech_m * (V_dot_mech_m ^ 3) + Q_c_b / (c_p_L * rho_L * (theta_i_c - theta_V_mech_m)) + Sigma_V_dot_3 = TOSG(Sigma_V_dot * (0.8 * V_dot_mech_m + 0.2 * V_dot_mech_max) ^ 2) + + If V_dot_mech_m = 0 Then + P_V_ZUL_m = 0 'CSng(V_dot_mech_m * Delta_p_star_ZUL * f_p / eta_ZUL / 3600 + (V_dot_mech_m ^ 3 * Delta_p_star_ZUL * (1 - f_p)) / (eta_ZUL * V_dot_mech_m ^ 2) / 3600) '(3.2.5-11) 변풍량 시간, 용도로 추후검토 + P_V_ABL_m = 0 'CSng(V_dot_mech_m * Delta_p_star_ABL * f_p / eta_ABL / 3600 + (V_dot_mech_m ^ 3 * Delta_p_star_ABL * (1 - f_p)) / (eta_ABL * V_dot_mech_m ^ 2) / 3600) '(3.2.5-11) 변풍량 시간, 용도로 추후검 + Q_V_E_ZUL_m = 0 'P_V_ZUL_m * t_V_mech_m * d_V_mech_m / 1000 'kWh (3.2.5-10) 변풍량 냉방부하 + Q_V_E_ABL_m = 0 'P_V_ABL_m * t_V_mech_m * d_V_mech_m / 1000 'kWh (3.2.5-10) 변풍량 냉방부하 + Else + + '==========================변풍량에서도 효율이 없을 경우 동력이 0인 것으로 평가 2010.10.10 + If eta_ZUL <> 0 Then + P_V_ZUL_m = TOSG(V_dot_mech_m * Delta_p_star_ZUL * f_p / eta_ZUL / 3600 + (V_dot_mech_m ^ 3 * Delta_p_star_ZUL * (1 - f_p)) / (eta_ZUL * V_dot_mech_max ^ 2) / 3600) '(3.2.5-11) 변풍량 시간, 용도로 추후검토 + '=============================================================================================== 최소외기도입량 동력보다 작으면 최소외기도입 동력으로 적용 2012.01.31 + If P_V_ZUL_m < V_dot_A * A_B * Delta_p_star_ZUL / eta_ZUL / 3600 Then + P_V_ZUL_m = V_dot_A * A_B * Delta_p_star_ZUL / eta_ZUL / 3600 + End If + '=============================================================================================== + Else + P_V_ZUL_m = 0 + End If + If eta_ABL <> 0 Then + P_V_ABL_m = TOSG(V_dot_mech_m * Delta_p_star_ABL * f_p / eta_ABL / 3600 + (V_dot_mech_m ^ 3 * Delta_p_star_ABL * (1 - f_p)) / (eta_ABL * V_dot_mech_max ^ 2) / 3600) '(3.2.5-11) 변풍량 시간, 용도로 추후검 + '=============================================================================================== 최소외기도입량 동력보다 작으면 최소외기도입 동력으로 적용 2012.01.31 + If P_V_ABL_m < V_dot_A * A_B * Delta_p_star_ABL / eta_ABL / 3600 Then + P_V_ABL_m = V_dot_A * A_B * Delta_p_star_ABL / eta_ABL / 3600 + End If + '=============================================================================================== + Else + P_V_ABL_m = 0 + End If + '============================================================2010.10.10 + Q_V_E_ZUL_m = P_V_ZUL_m * t_V_mech_m * d_V_mech_m / 1000 'kWh (3.2.5-10) 변풍량 냉방부하 + Q_V_E_ABL_m = P_V_ABL_m * t_V_mech_m * d_V_mech_m / 1000 'kWh (3.2.5-10) 변풍량 냉방부하 + End If + + End Select + + '------------------------------------------------------------------------------------------------------------------------------------------ + ' 우선 외기온도에 대한 공조에너지 요구량 산정 필요 ???? + + 'q_st_12h_m = q_st_18_12h_m '(3.2.5-27) + + 'If theta_e < theta_hc_m Then + 'Select Case Worksheets("공조처리시스템").Range("열교환기1").Offset(0, i_count_AHU - 1) + 'Case "열회수불가" + 'Delta_h_WRG = 0 '(3.2.5-54) 열 회수기 없음 + 'Case "현열교환" + 'Delta_h_WRG = Worksheets("공조처리시스템").Range("열교환기1").Offset(1, i_count_AHU - 1) / 100 * c_p_L * (theta_ABL_wi - theta_e) '(3.2.5-55) 순수 현열 회수기 + 'Case "전열교환" + 'Delta_h_WRG = Worksheets("공조처리시스템").Range("열교환기1").Offset(1, i_count_AHU - 1) / 100 * c_p_L * (theta_ABL_wi - theta_e) '(3.2.5-56) 현열 및 습기 회수기 우선 현열만 고려 + 'End Select + 'q_h_12h_m = rho_L * (c_p_L * (theta_hc_m - theta_e) - Delta_h_WRG) * 12 * d_mth * V_dot_A * A_B + rho_L * c_p_L * (theta_h_mech_m - theta_i_h_soll) * 12 * d_mth * (V_dot_mech_m - V_dot_A * A_B) 'theta_h_mech_m 과 theta_hc_m 중 선택 검토 + + 'End If + + 'If theta_e > theta_hc_m Then + 'Select Case Worksheets("공조처리시스템").Range("열교환기1").Offset(0, i_count_AHU - 1) + 'Case "열회수불가" + 'Delta_h_WRG = 0 '(3.2.5-54) 열 회수기 없음 + 'Case "현열교환" + 'If theta_e > theta_ABL_so Then + 'Delta_h_WRG = Worksheets("공조처리시스템").Range("열교환기1").Offset(1, i_count_AHU - 1) / 100 * c_p_L * (theta_e - theta_ABL_so) '(3.2.5-55) 순수 현열 회수기 + 'Else + 'Delta_h_WRG = Worksheets("공조처리시스템").Range("열교환기1").Offset(1, i_count_AHU - 1) / 100 * c_p_L * (theta_ABL_so - theta_e) '(3.2.5-55) 순수 현열 회수기 + 'End If + 'Case "전열교환" + 'If theta_e > theta_ABL_so Then + 'Delta_h_WRG = Worksheets("공조처리시스템").Range("열교환기1").Offset(1, i_count_AHU - 1) / 100 * c_p_L * (theta_e - theta_ABL_so) '(3.2.5-55) 순수 현열 회수기 우선 현열만 고려 + 'Else + 'Delta_h_WRG = Worksheets("공조처리시스템").Range("열교환기1").Offset(1, i_count_AHU - 1) / 100 * c_p_L * (theta_ABL_so - theta_e) '(3.2.5-55) 순수 현열 회수기 우선 현열만 고려 + 'End If + + 'End Select + + 'q_c_12h_m = rho_L * (c_p_L * (theta_e - theta_hc_m) - Delta_h_WRG) * 12 * d_mth * V_dot_A * A_B + rho_L * c_p_L * (theta_i_c_soll - theta_c_mech_m) * 12 * d_mth * (V_dot_mech_m - V_dot_A * A_B) 'theta_c_mech_m 과 theta_hc_m 중 선택 검토 + + 'End If + + + 'f_h_H = 1 + 6.333 * 10 ^ (-3) * (t_V_mech_m - 12) - 2.689 * 10 ^ (-4) * (t_V_mech_m - 12) ^ 2 + 6.94 * 10 ^ (-6) * (t_V_mech_m - 12) ^ 3 '(3.2.5-31) + 'f_h_C = 1 - 5.583 * 10 ^ (-3) * (t_V_mech_m - 12) + 2.153 * 10 ^ (-4) * (t_V_mech_m - 12) ^ 2 - 6.597 * 10 ^ (-6) * (t_V_mech_m - 12) ^ 3 '(3.2.5-32) 편차가 없는 습도요구 + 'f_h_C = 1 - 1.552 * 10 ^ (-3) * (t_V_mech - 12) - 8.073 * 10 ^ (-4) * (t_V_mech_m - 12) ^ 2 - 1.302 * 10 ^ (-6) * (t_V_mech_m - 12) ^ 3 '(3.2.5-32) 편차가 있는 습도요구 추후 검토 + 'f_h_st = 1 + + 'q_h_m = q_h_12h_m * t_V_mech_m / 12 * f_h_H * d_V_mech_m / d_mth '(3-28) + 'q_c_m = q_c_12h_m * t_V_mech_m / 12 * f_h_C * d_V_mech_m / d_mth '(3-29) + 'q_st_m = q_st_12h_m * t_V_mech_m / 12 * f_h_st * d_V_mech_m / d_mth '(3-30) + + 'Q_vh_b = q_h_m * V_dot_mech_m '(3-36) =Q_vi_b (7-2,7-8,7-14) + 'Q_vc_b = q_c_m * V_dot_mech_m '(3-36) =Q_vi_b (7-2,7-8,7-14) + 'Q_vm_b = q_st_m * V_dot_mech_m '(3-36) =Q_vi_b (7-2,7-8,7-14) + + 'Q_vh_b = q_h_m / 1000 ' 우선 공조풍량을 미리 포함시킴 추후 검토 + 'Q_vc_b = q_c_m / 1000 ' 우선 공조풍량을 미리 포함시킴 추후 검토 + 'Q_vm_b = q_st_m * V_dot_mech_m / 1000 '(3-36) =Q_vi_b (7-2,7-8,7-14) + + '========================================================================================================================================== + Drow분석(0).공조풍량 = V_dot_mech_m + 'Sheets("" & i_count_month & "").Cells(17, 7 + i_count_zone) = V_dot_mech_m + If Q_vh_b < 0 Then + Q_vh_b = 0 '음수 여부 추후 검토 + End If + Drow분석(0).공조요구량난방 = Q_vh_b + 'Sheets("" & i_count_month & "").Cells(19, 7 + i_count_zone) = Q_vh_b + + If Q_vc_b < 0 Then + Q_vc_b = 0 '냉방공조에너지요구량이 -인 것은 난방에서 처리되는 것으로 설정 + End If + Drow분석(0).공조요구량냉방 = Q_vc_b + 'Sheets("" & i_count_month & "").Cells(21, 7 + i_count_zone) = Q_vc_b + + If Q_vm_b < 0 Then + Q_vm_b = 0 '음수 여부 추후 검토 + End If + Drow분석(0).공조요구량가습 = Q_vm_b ' Sheets("" & i_count_month & "").Cells(23, 7 + i_count_zone) = Q_vm_b + Drow분석(0).환기요구량 = Q_V_E_ZUL_m + Q_V_E_ABL_m ' Sheets("" & i_count_month & "").Cells(25, 7 + i_count_zone) = Q_V_E_ZUL_m + Q_V_E_ABL_m + '========================================================================================================================================== + 'End If + 'End If + Next + + Else + Drow분석(0).공조풍량 = 0 ' Sheets("" & i_count_month & "").Cells(17, 7 + i_count_zone) = 0 + Drow분석(0).공조요구량난방 = 0 ' Sheets("" & i_count_month & "").Cells(19, 7 + i_count_zone) = 0 + Drow분석(0).공조요구량냉방 = 0 'Sheets("" & i_count_month & "").Cells(21, 7 + i_count_zone) = 0 + Drow분석(0).공조요구량가습 = 0 ' Sheets("" & i_count_month & "").Cells(23, 7 + i_count_zone) = 0 + Drow분석(0).환기요구량 = 0 'Sheets("" & i_count_month & "").Cells(25, 7 + i_count_zone) = 0 + + + '==========================================================================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) + V_dot_A = TOSG(DR프로필(0).최소도입외기량) 'Worksheets("설정조건").Range("최소도입외기량1").Offset(0, i_count_profile) + A_B = TOSG(Dr존.면적) * TOSG(Dr존.입력존의수) ' Worksheets("입력존").Range("전용면적1").Offset(0, i_count_zone - 1) + '===================================================================================2010.2.25 추가 + 'd_V_mech_m = Worksheets("설정조건").Range("월간사용일수1").Offset(i_count_month, i_count_profile) + Select Case i_count_month + Case 0 : d_V_mech_m = 0 + Case 1 : d_V_mech_m = DR프로필(0).day01 + Case 2 : d_V_mech_m = DR프로필(0).day02 + Case 3 : d_V_mech_m = DR프로필(0).day03 + Case 4 : d_V_mech_m = DR프로필(0).day04 + Case 5 : d_V_mech_m = DR프로필(0).day05 + Case 6 : d_V_mech_m = DR프로필(0).day06 + Case 7 : d_V_mech_m = DR프로필(0).day07 + Case 8 : d_V_mech_m = DR프로필(0).day08 + Case 9 : d_V_mech_m = DR프로필(0).day09 + Case 10 : d_V_mech_m = DR프로필(0).day10 + Case 11 : d_V_mech_m = DR프로필(0).day11 + Case 12 : d_V_mech_m = DR프로필(0).day12 + End Select + '===================================================================================2010.2.25 추가 + + 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 추가 + 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) + Else + Phi_h = 0 + Phi_c = 0 + End If + '// 여기 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).난방요구량공조) + End If + + If TOSG(Drow분석(0).냉방요구량공조) > 0 Then + Drow분석(0).냉방요구량공조 = (1 - Phi_c) * TOSG(Drow분석(0).냉방요구량공조) + End If + + 'If Sheets("" & i_count_month & "").Cells(8, 7 + i_count_zone) > 0 Then + ' Sheets("" & i_count_month & "").Cells(8, 7 + i_count_zone) = (1 - Phi_h) * Sheets("" & i_count_month & "").Cells(8, 7 + i_count_zone) + 'End If + + 'If Sheets("" & i_count_month & "").Cells(11, 7 + i_count_zone) > 0 Then + ' Sheets("" & i_count_month & "").Cells(11, 7 + i_count_zone) = (1 - Phi_c) * Sheets("" & i_count_month & "").Cells(11, 7 + i_count_zone) + 'End If + + '------------------------------------------------------------------------------------------------------------------------------------------------------------------------------2010.05.26 추가 + + eta_ZUL = TOSG(DR공조(0).총효율급기팬) ' Worksheets("공조처리시스템").Range("총압력상승1").Offset(2, i_count_AHU - 1) + eta_ABL = TOSG(DR공조(0).총효율배기팬) ' Worksheets("공조처리시스템").Range("총압력상승1").Offset(3, i_count_AHU - 1) + Delta_p_star_ZUL = TOSG(DR공조(0).총압력손실급기팬) ' Worksheets("공조처리시스템").Range("총압력상승1").Offset(0, i_count_AHU - 1) + Delta_p_star_ABL = TOSG(DR공조(0).총압력손실배기팬) ' Worksheets("공조처리시스템").Range("총압력상승1").Offset(1, i_count_AHU - 1) + + If eta_ZUL <> 0 Then + P_V_ZUL_m = V_dot_A * A_B * Delta_p_star_ZUL / eta_ZUL / 3600000 + Else + P_V_ZUL_m = 0 + End If + + If eta_ABL <> 0 Then + P_V_ABL_m = V_dot_A * A_B * Delta_p_star_ABL / eta_ABL / 3600000 + Else + P_V_ABL_m = 0 + End If + Q_V_E_ZUL_m = P_V_ZUL_m * t_V_mech_m * d_V_mech_m + Q_V_E_ABL_m = P_V_ABL_m * t_V_mech_m * d_V_mech_m + + + Result.E분석(i_count_month).환기에너지요구량(Dr존.code) = Q_V_E_ZUL_m + Q_V_E_ABL_m + 'Sheets("" & i_count_month & "").Cells(25, 7 + i_count_zone) = Q_V_E_ZUL_m + Q_V_E_ABL_m + End If + Else + Result.E분석(i_count_month).환기에너지요구량(Dr존.code) = 0 + End If + '==========================================================================2010.02.04 추가부분 끝 + + + + + End If + + Next + + + End Sub +End Class diff --git a/ArinWarev1/Calculator/CAirHandling.vb b/ArinWarev1/Calculator/CAirHandling.vb new file mode 100644 index 0000000..9fce4d2 --- /dev/null +++ b/ArinWarev1/Calculator/CAirHandling.vb @@ -0,0 +1,850 @@ +Public Class CAirHandling + + ''' + ''' 최대냉/난반후하 계산식인거 같다. + ''' + ''' + ''' + Public Overridable Sub Calc_Max_Power(ByVal i_HeatCool As Integer) + + pLog.Add(String.Format(">>Calc_Max_Power 진입")) + + 'Dim i_count_zone As Integer, i_count_AHU As Integer, i_count_profile As Integer + Dim c_p_L As Decimal, rho_L As Decimal + Dim theta_i_c As Decimal, theta_ABL_wi As Decimal, theta_ABL_so As Decimal, theta_AUL_wi As Decimal, theta_AUL_so As Decimal, theta_ZUL_wi As Decimal, theta_ZUL_so As Decimal + Dim x_ABL_wi As Decimal, x_ABL_so As Decimal, x_AUL_wi As Decimal, x_AUL_so As Decimal, x_ZUL_so As Decimal + Dim h_ABL_wi As Decimal, h_ABL_so As Decimal, h_AUL_wi As Decimal, h_AUL_so As Decimal, h_ZUL_wi As Decimal, h_ZUL_so As Decimal + Dim Delta_h_WRG As Decimal, V_dot_mech_m As Decimal, V_dot_star As Decimal, theta_c_mech_min As Decimal, ps_theta_ZUL_so As Decimal + Dim Q_dot_h_star As Decimal, Q_dot_c_star As Decimal, Q_dot_st_star As Decimal + Dim Q_dot_h_max As Decimal, Q_dot_c_max As Decimal + Dim theta_e_min As Decimal, theta_e_max As Decimal, V_A As Decimal, theta_i_h As Decimal, theta_i_c_soll As Decimal + Dim A_B As Decimal, c_p_Lrho_L As Decimal + + pLog.Add("Calc", String.Format("Calc_max_power i_HeatCool={0}", i_HeatCool)) + + theta_i_c = 24 + theta_i_c_soll = 26 + theta_i_h = 20 + c_p_L = 1.006 'kJ/kg K + rho_L = 1.204 'kg/m3 (20도 1기압상태) + c_p_Lrho_L = 0.34 'Wh/m3 K + theta_ABL_wi = 22 + x_ABL_wi = 0.008 '편차가 없는 습도요구 적용 + h_ABL_wi = 42.6 '편차가 없는 습도요구 적용 + theta_ABL_so = 26 + x_ABL_so = 0.008 '편차가 없는 습도요구 적용 + h_ABL_so = 46.7 '편차가 없는 습도요구 적용 + theta_AUL_wi = -12 + x_AUL_wi = 0.001 + h_AUL_wi = -9.6 + theta_AUL_so = 32 + x_AUL_so = 0.012 + h_AUL_so = 63 + theta_e_min = -11.3 + theta_e_max = 31.5 + + + 'Dim dr공조처리 As DS.tbl_kongjoRow + + For Each Dr존 As DS.tbl_zoneRow In DSET.tbl_zone.Select("code<>'0'", "code") + + Dim dr최대냉난방부하 As DSR.최대냉난방부하Row = CType(DSETR.최대냉난방부하.Select("zone='" & Dr존.code & "'")(0), DSR.최대냉난방부하Row) + If Dr존.냉난방공조 = "냉방" Or Dr존.냉난방공조 = "냉난방" Then + A_B = TOSG(Dr존.면적) * TOSG(Dr존.입력존의수) ' Worksheets("입력존").Range("전용면적1").Offset(0, i_count_zone - 1) + Dim dr프로필 As DS.tbl_profileRow = CType(DSET.tbl_profile.Select("code='" & Dr존.프로필 & "' and code <> '0'")(0), DS.tbl_profileRow) + V_A = TOSG(dr프로필.최소도입외기량) * A_B ' Worksheets("설정조건").Range("최소도입외기량1").Offset(0, i_count_profile) * A_B + + For Each dr공조처리 As DS.tbl_kongjoRow In DSET.tbl_kongjo.Select("code='" & Dr존.냉난방공조처리시스템 & "' and code <>'0'", "code") + '//아래두코드는 상단코드로 변경 + 'If Dr존.냉난방공조처리시스템 <> "" Then ' Worksheets("입력존").Range("입력난방공급기기1").Offset(2, i_count_zone - 1) <> "" Then + 'If Dr존.냉난방공조처리시스템 = dr공조처리.code Then ' Worksheets("입력존").Range("입력난방공급기기1").Offset(2, i_count_zone - 1) = Worksheets("공조처리시스템").Range("공조기기1").Offset(0, i_count_AHU - 1) Then + + ' 공조기 최대 가열성능 + If i_HeatCool = 1 Then + If Dr존.냉난방공조 = "냉난방" Then ' Worksheets("입력존").Range("공조존2").Offset(0, i_count_zone - 1) = "냉난방" Then + + Select Case dr공조처리.열교환기유형.Trim ' Worksheets("공조처리시스템").Range("열교환기1").Offset(0, i_count_AHU - 1) + Case "열회수불가" '"열회수불가" + Delta_h_WRG = 0 '(3.2.5-54) 열 회수기 없음 + Case "현열교환" '현열교환" + Delta_h_WRG = TOSG(dr공조처리.열회수율) * c_p_L * (theta_ABL_wi - theta_AUL_wi) '(3.2.5-55) 순수 현열 회수기 '================2010.03.22 수정 + Case "전열교환" '전열교환" + Delta_h_WRG = TOSG(dr공조처리.열회수율) * c_p_L * (h_ABL_wi - h_AUL_wi) '(3.2.5-56) 현열 및 습기 회수기 '================2010.03.22 수정 + End Select + + + + theta_ZUL_wi = TOSG(dr공조처리.설정치난방) ' Worksheets("공조처리시스템").Range("공조방식1").Offset(1, i_count_AHU - 1) 'theta_h_mech_min '(도표 3-3) + + 'h_ZUL_wi = 1.01 * theta_ZUL_wi + 0.001 * (2501 + 1.86 * theta_ZUL_wi) '(3.2.5-38) 습도요구 없음 + 'h_ZUL_wi = 1.01 * theta_ZUL_wi + 0.006 * (2501 + 1.86 * theta_ZUL_wi) '(3.2.5-42) 편차가 있는 습도요구 + h_ZUL_wi = TOSG(1.01 * theta_ZUL_wi + 0.008 * (2501 + 1.86 * theta_ZUL_wi)) '(3.2.5-48) 편차가 없는 습도요구만 우선 적용 + Q_dot_h_max = TOSG(dr최대냉난방부하.최대난방기기부하) ' Worksheets("0").Range("최대난방부하1").Offset(0, i_count_zone - 1) + + '--------------------------------------------------------------------------------------------------2010.02.22 수정 + If (TOSG(dr공조처리.설정치난방) - theta_i_h) > 0 Then + V_dot_mech_m = 1000 * Q_dot_h_max / (c_p_Lrho_L * (TOSG(dr공조처리.설정치난방) - theta_i_h)) + Else + V_dot_mech_m = 0 + End If + '--------------------------------------------------------------------------------------------------2010.02.22 수정 + + V_dot_star = V_dot_mech_m + If dr공조처리.열교환기유형 = "전열교환" Then ' Worksheets("공조처리시스템").Range("열교환기1").Offset(0, i_count_AHU - 1) = "전열교환" Then + Q_dot_h_star = V_dot_star * rho_L * (h_ZUL_wi - h_AUL_wi - Delta_h_WRG) / 3600 '(3.2.5-57) 증기가습 있음 - 열교환방식으로 수정 추후 검토 + Else + Q_dot_h_star = V_dot_star * rho_L * (c_p_L * (theta_ZUL_wi - theta_AUL_wi) - Delta_h_WRG) / 3600 '(3.2.5-58) 증기가습 없음 - 열교환방식으로 수정 추후 검토 + End If + + dr최대냉난방부하.최대가열성능 = Q_dot_h_star + 'Worksheets("0").Range("최대난방부하1").Offset(3, i_count_zone - 1) = Q_dot_h_star + If Q_dot_h_max > (c_p_Lrho_L * (theta_i_h - theta_e_min) * V_A) / 1000 Then + dr최대냉난방부하.최대난방실내부하 = (Q_dot_h_max - (c_p_Lrho_L * (theta_i_h - theta_e_min) * V_A) / 1000) + 'Worksheets("0").Range("최대난방부하1").Offset(1, i_count_zone - 1) = Q_dot_h_max - (c_p_Lrho_L * (theta_i_h - theta_e_min) * V_A) / 1000 + Else + dr최대냉난방부하.최대난방실내부하 = 0 + 'Worksheets("0").Range("최대난방부하1").Offset(1, i_count_zone - 1) = 0 + End If + End If + + '공조기 최대 가습성능 + + 'h_ZUL_wi = 1.01 * theta_ZUL_wi + 0.001 * (2501 + 1.86 * theta_ZUL_wi) '(3.2.5-38) 습도요구 없음 + 'h_ZUL_wi = 1.01 * theta_ZUL_wi + 0.006 * (2501 + 1.86 * theta_ZUL_wi) '(3.2.5-42) 편차가 있는 습도요구 + h_ZUL_wi = TOSG(1.01 * theta_ZUL_wi + 0.008 * (2501 + 1.86 * theta_ZUL_wi)) '(3.2.5-48) 편차가 없는 습도 요구 + + Select Case dr공조처리.열교환기유형.Trim ' Worksheets("공조처리시스템").Range("열교환기1").Offset(0, i_count_AHU - 1) + Case "열회수불가" '열회수불가" + Delta_h_WRG = 0 '(3.2.5-63) 열 회수기 없음 + Case "현열교환'" '현열교환" + Delta_h_WRG = 2501 * TOSG(dr공조처리.열회수율) * (x_ABL_wi - x_AUL_wi) '(3.2.5-64) 현열 및 습기 회수기 '================2010.03.22 수정 + Case "전열교환" '전열교환" + Delta_h_WRG = 2501 * TOSG(dr공조처리.열회수율) * (x_ABL_wi - x_AUL_wi) '(3.2.5-64) 현열 및 습기 회수기 '================2010.03.22 수정 + End Select + + Q_dot_st_star = V_dot_star * rho_L * (h_ZUL_wi - h_AUL_wi - Delta_h_WRG) / 3600 '(3.2.5-65) + dr최대냉난방부하.최대가습성능 = Q_dot_st_star + dr최대냉난방부하.공조풍량 = V_dot_star + 'Worksheets("0").Range("최대가습성능1").Offset(0, i_count_zone - 1) = Q_dot_st_star + 'Worksheets("0").Range("최대가습성능1").Offset(1, i_count_zone - 1) = V_dot_star '공조풍량 + + Else + + ' 공조기 최대 냉각성능 + + theta_c_mech_min = TOSG(dr공조처리.설정치냉방) ' Worksheets("공조처리시스템").Range("공조방식1").Offset(2, i_count_AHU - 1) + theta_ZUL_so = theta_c_mech_min '(도표 3.3) + ps_theta_ZUL_so = TOSG(Math.Exp(23.621 - 4065 / (theta_ZUL_so + 236.2506))) '(3.2.5-37) 0.01C<=theta<=80C + x_ZUL_so = TOSG(0.5911 / (100000 / ps_theta_ZUL_so - 0.95)) '(3.2.5-41) + + 'h_ZUL_so = 1.01 * theta_ZUL_so + 0.012 * (2501 + 1.86 * theta_ZUL_so) '(3.2.5-39) 습도요구 없음 ps_theta_ZUL_so>1892Pa + 'h_ZUL_so = 1.01 * theta_ZUL_so + x_ZUL_so * (2501 + 1.86 * theta_ZUL_so) '(3.2.5-40) 습도요구 없음 ps_theta_ZUL_so<=1892Pa + 'h_ZUL_so = 1.01 * theta_ZUL_so + 0.011 * (2501 + 1.86 * theta_ZUL_so) '(3.2.5-43) 편차가 있는 습도요구 ps_theta_ZUL_so>1737Pa + 'h_ZUL_so = 1.01 * theta_ZUL_so + x_ZUL_so * (2501 + 1.86 * theta_ZUL_so) '(3.2.5-44) 편차가 있는 습도요구 ps_theta_ZUL_so<=1737Pa + + If ps_theta_ZUL_so > 1269 Then + h_ZUL_so = TOSG(1.01 * theta_ZUL_so + 0.008 * (2501 + 1.86 * theta_ZUL_so)) '(3.2.5-43) 편차가 없는 습도요구 ps_theta_ZUL_so>1269Pa + Else + h_ZUL_so = TOSG(1.01 * theta_ZUL_so + x_ZUL_so * (2501 + 1.86 * theta_ZUL_so)) '(3.2.5-44) 편차가 없는 습도요구 ps_theta_ZUL_so<=1269Pa + End If + + Select Case dr공조처리.열교환기유형.Trim ' Worksheets("공조처리시스템").Range("열교환기1").Offset(0, i_count_AHU - 1) + Case "열회수불가" '열회수불가" + Delta_h_WRG = 0 '(3.2.5-59) 열 회수기 없음 + Case "현열교환" '현열교환" + Delta_h_WRG = TOSG(dr공조처리.열회수율냉) * c_p_L * (theta_AUL_so - theta_ABL_so) '(3.2.5-55) 순수 현열 회수기 '================2010.03.22 수정, =============2010.04.14 수정 + Case "전열교환" '전열교환" + Delta_h_WRG = TOSG(dr공조처리.열회수율냉) * c_p_L * (h_AUL_so - h_ABL_so) '(3.2.5-56) 현열 및 습기 회수기 '================2010.03.22 수정, =============2010.04.14 수정 + End Select + + Q_dot_c_max = TOSG(dr최대냉난방부하.최대냉방기기부하) ' Worksheets("0").Range("최대냉방부하1").Offset(0, i_count_zone - 1) + '--------------------------------------------------------------------------------------------------2010.02.22 수정 + If (theta_i_c - TOSG(dr공조처리.설정치냉방)) > 0 Then + V_dot_star = 1000 * Q_dot_c_max / (c_p_Lrho_L * (theta_i_c - TOSG(dr공조처리.설정치냉방))) + Else + V_dot_star = 0 + End If + '--------------------------------------------------------------------------------------------------2010.02.22 수정 + Q_dot_c_star = V_dot_star * rho_L * (h_AUL_so - h_ZUL_so - Delta_h_WRG) / 3600 '(3.2.5-62) + + dr최대냉난방부하.최대냉각성능 = Q_dot_c_star + dr최대냉난방부하.최대냉방실내부하 = Q_dot_c_max - (c_p_Lrho_L * (theta_e_max - theta_i_c_soll) * V_A) / 1000 + + 'Worksheets("0").Range("최대냉방부하1").Offset(3, i_count_zone - 1) = Q_dot_c_star + 'Worksheets("0").Range("최대냉방부하1").Offset(1, i_count_zone - 1) = Q_dot_c_max - (c_p_Lrho_L * (theta_e_max - theta_i_c_soll) * V_A) / 1000 + End If + + 'End If + 'End If + + Next + Else + + dr최대냉난방부하.최대난방실내부하 = 0 + dr최대냉난방부하.최대냉방실내부하 = 0 + dr최대냉난방부하.최대가열성능 = 0 + dr최대냉난방부하.최대냉각성능 = 0 + dr최대냉난방부하.최대가습성능 = 0 + dr최대냉난방부하.공조풍량 = 0 + End If + + Next + + pLog.Add(String.Format(">>Calc_Max_Power 완료")) + + 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, + + pLog.Add(String.Format(">>Calc_AirHandling 진입 : i_count_month={0},theta_e={1},p_난방온도={2},p_냉방온도={3}", i_count_month, theta_e, 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 + Dim c_p_L As Decimal, rho_L As Decimal, f_p As Decimal + Dim q_st_18_12h_m As Decimal + Dim eta_ZUL As Decimal, eta_ABL As Decimal + Dim Delta_p_star_ZUL As Decimal, Delta_p_star_ABL As Decimal + Dim Q_V_E_ZUL_m As Decimal, Q_V_E_ABL_m As Decimal, Q_c_b As Decimal, Q_h_b As Decimal, Q_vh_b As Decimal, Q_vc_b As Decimal, Q_vm_b As Decimal + Dim t_V_mech_m As Decimal, theta_V_mech_m As Decimal + Dim V_dot_mech_m As Decimal, V_dot_mech_max As Decimal, V_dot_A As Decimal, P_V_ZUL_m As Decimal, P_V_ABL_m As Decimal + Dim Sigma_V_dot As Decimal, Sigma_V_dot_3 As Decimal + Dim theta_h_mech_m As Decimal, theta_c_mech_m As Decimal + + ' Dim i_count_zone As Integer, i_count_profile As Integer, i_count_AHU As Integer + Dim theta_i_c_soll As Integer, theta_i_c As Integer, theta_i_h_soll As Integer, d_V_mech_m As Integer, theta_ABL_wi As Integer, theta_ABL_so As Integer + Dim theta_e_min As Decimal, theta_e_max As Decimal + Dim x_ZUL_wi As Decimal, theta_ZUL_wi As Decimal, theta_AUL As Decimal, h_AUL As Decimal, x_AUL As Decimal, theta_AUL_j As Decimal, x_AUL_j As Decimal, psi_AUL_j As Decimal + Dim h_B As Decimal, r_0 As Decimal, m_dot_1_L As Decimal, u As Decimal, Phi_h As Decimal, Phi_c As Decimal '===============================2010.04.14 수정 + Dim Q_VE_B As Decimal, Q_VE_ZU As Decimal + 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 + + ' 공조처리 + theta_i_h_soll = p_난방온도 + theta_i_c_soll = p_냉방온도 + + theta_i_c = 24 'theta_i_c_soll - 2 '(2-36) + + c_p_L = 1.006 'kJ/kg K + rho_L = 1.204 'kg/m3 (20도 1기압상태) + c_p_Lrho_L = 0.34 'Wh/m3 K + f_p = 0.4 '= Delta_p_konst / Delta_p_star = 0.4 '(3.2.5-13, 7-1) + '================================================2010.2.21 수정 + 'd_V_mech_m = d_mth + '================================================2010.2.21 수정 + theta_ABL_wi = 20 + x_ABL_wi = 0.008 '편차가 없는 습도요구 적용 + h_ABL_wi = 42.6 '편차가 없는 습도요구 적용 + theta_ABL_so = 26 + x_ABL_so = 0.008 'kg/kg 편차가 없는 습도요구 적용 + h_ABL_so = 46.7 'kJ/kg 편차가 없는 습도요구 적용 + x_AUL_wi = 0.001 + h_AUL_wi = -9.6 + x_AUL_so = 0.012 + h_AUL_so = 63 + q_st_18_12h_m = 0 '우선 0으로 적용 추후 검토 + theta_e_min = -11.3 + theta_e_max = 31.5 + r_0 = 2500 'kJ/kg + x_ZUL_wi = 0.00699 + + + 'Dim Dr프로필 As DS.tbl_profileRow '//아래에서 할당되도록되어있다. + '//location 은 거의 서울(0번줄)이된다. + Dim Drow평균온도 As DS.weather_tempRow = CType(DSET.weather_temp.Select("pcode='" & Calc.Pub.기상데이터.code & "' and code='" & Format(i_count_month, "0000") & "'")(0), DS.weather_tempRow) + Dim Drow평균습도 As DS.weather_supdoRow = CType(DSET.weather_supdo.Select("pcode='" & Calc.Pub.기상데이터.code & "' and code='" & Format(i_count_month, "0000") & "'")(0), DS.weather_supdoRow) + Dim Mon As String = "M" & Format(i_count_month, "00") + For Each Dr존 As DS.tbl_zoneRow In DSET.tbl_zone.Select("code<>'0'", "code") + Dim Drow분석() As DSR.월별에너지분석Row = CType(DSETR.월별에너지분석.Select("월='" & Mon & "' and 존='" & Dr존.code & "'"), DSR.월별에너지분석Row()) + 'If Worksheets("입력존").Range("공조존2").Offset(0, i_count_zone - 1) = "냉방" Or Worksheets("입력존").Range("공조존2").Offset(0, i_count_zone - 1) = "냉난방" Then + If Dr존.냉난방공조 = "냉방" OrElse Dr존.냉난방공조 = "냉난방" Then + + '//존의 프로필과 일치하는 프로필검색후 적용 + Dim Dr프로필 As DS.tbl_profileRow = CType(DSET.tbl_profile.Select("code='" & Dr존.프로필 & "'")(0), DS.tbl_profileRow) + t_V_mech_m = TOSG(Dr프로필.운전시간난방) ' Worksheets("설정조건").Range("사용시작시간1").Offset(5, i_count_profile) + V_dot_A = TOSG(Dr프로필.최소도입외기량) ' Worksheets("설정조건").Range("최소도입외기량1").Offset(0, i_count_profile) + 'i_profile = i_count_profile '//아래 루프종료문은 없어서 추가했다. + '===================================================================================2010.2.21 추가 + If i_count_month = 0 Then + d_V_mech_m = 0 + Else + d_V_mech_m = CInt(Dr프로필("day" & Format(i_count_month, "00"))) + End If + '===================================================================================2010.2.21 추가 + + For Each Dr공조 As DS.tbl_kongjoRow In DSET.tbl_kongjo.Select("code='" & Dr존.냉난방공조처리시스템 & "' and code <> '0'", "code") + '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 + Q_vh_b = 0 + Q_vc_b = 0 + Q_vm_b = 0 + eta_ZUL = TOSG(Dr공조.총효율급기팬) ' Worksheets("공조처리시스템").Range("총압력상승1").Offset(2, i_count_AHU - 1) + eta_ABL = TOSG(Dr공조.총효율배기팬) ' Worksheets("공조처리시스템").Range("총압력상승1").Offset(3, i_count_AHU - 1) + Delta_p_star_ZUL = TOSG(Dr공조.총압력손실급기팬) ' Worksheets("공조처리시스템").Range("총압력상승1").Offset(0, i_count_AHU - 1) + Delta_p_star_ABL = TOSG(Dr공조.총압력손실배기팬) ' Worksheets("공조처리시스템").Range("총압력상승1").Offset(1, i_count_AHU - 1) + theta_V_mech_m = TOSG(Dr공조.설정치냉방) ' Worksheets("공조처리시스템").Range("공조방식1").Offset(2, i_count_AHU - 1) + theta_h_mech_m = TOSG(Dr공조.설정치난방) 'Worksheets("공조처리시스템").Range("공조방식1").Offset(1, i_count_AHU - 1) + theta_c_mech_m = TOSG(Dr공조.설정치냉방) ' Worksheets("공조처리시스템").Range("공조방식1").Offset(2, i_count_AHU - 1) + + A_B = TOSG(Dr존.면적) * TOSG(Dr존.입력존의수) ' Worksheets("입력존").Range("전용면적1").Offset(0, i_count_zone - 1) + + theta_AUL = 0 + x_AUL = 0 + i_count_start_time = CInt(Dr프로필.운전시작시간.Substring(0, Dr프로필.운전시작시간.IndexOf(":"))) ' Worksheets("설정조건").Range("사용시작시간1").Offset(3, i_profile) + i_count_end_time = CInt(Dr프로필.운전종료시간.Substring(0, Dr프로필.운전종료시간.IndexOf(":"))) ' Worksheets("설정조건").Range("사용시작시간1").Offset(4, i_profile) + If i_count_start_time - i_count_end_time < 0 Then + For i_count_air = 0 To CInt(t_V_mech_m - 1) '자정 전까지 운전 조건 + '//Dr기상데이터의 2번째 인덱스부터 시간이다. + theta_AUL_j = TOSG(Drow평균온도("t" & Format(i_count_start_time + i_count_air + 1, "00"))) ' Worksheets("기상데이타").Range("시간별평균온도1").Offset((i_count_month - 1) * 25 + i_count_start_time + i_count_air, location - 1) + psi_AUL_j = TOSG(Drow평균습도("t" & Format(i_count_start_time + i_count_air + 1, "00"))) / 100 ' Worksheets("기상데이타").Range("시간별평균습도1").Offset((i_count_month - 1) * 25 + i_count_start_time + i_count_air, location - 1) / 100 + P_D_j_theta_AUL_j = TOSG(psi_AUL_j * Math.Exp(23.621 - 4065 / (theta_AUL_j + 236.2506))) + x_AUL_j = TOSG(0.5911 / (100000 / P_D_j_theta_AUL_j - 0.95)) + theta_AUL = theta_AUL + theta_AUL_j + x_AUL = x_AUL + x_AUL_j + Next + Else + For i_count_air = 0 To 23 - i_count_start_time '자정 넘어까지 운전 조건 + theta_AUL_j = TOSG(Drow평균온도("t" & Format(i_count_start_time + i_count_air + 1, "00"))) 'Worksheets("기상데이타").Range("시간별평균온도1").Offset((i_count_month - 1) * 25 + i_count_start_time + i_count_air, location - 1) + psi_AUL_j = TOSG(Drow평균습도("t" & Format(i_count_start_time + i_count_air + 1, "00"))) / 100 'Worksheets("기상데이타").Range("시간별평균습도1").Offset((i_count_month - 1) * 25 + i_count_start_time + i_count_air, location - 1) / 100 + P_D_j_theta_AUL_j = TOSG(psi_AUL_j * Math.Exp(23.621 - 4065 / (theta_AUL_j + 236.2506))) + x_AUL_j = TOSG(0.5911 / (100000 / P_D_j_theta_AUL_j - 0.95)) + theta_AUL = theta_AUL + theta_AUL_j + x_AUL = x_AUL + x_AUL_j + Next + For i_count_air = 0 To i_count_end_time - 1 '자정 넘어까지 운전 조건 + theta_AUL_j = TOSG(Drow평균온도("t" & Format(i_count_air + 1, "00"))) 'Worksheets("기상데이타").Range("시간별평균온도1").Offset((i_count_month - 1) * 25 + i_count_air, location - 1) + psi_AUL_j = TOSG(Drow평균습도("t" & Format(i_count_air + 1, "00"))) / 100 'Worksheets("기상데이타").Range("시간별평균습도1").Offset((i_count_month - 1) * 25 + i_count_air, location - 1) / 100 + P_D_j_theta_AUL_j = TOSG(psi_AUL_j * Math.Exp(23.621 - 4065 / (theta_AUL_j + 236.2506))) + x_AUL_j = TOSG(0.5911 / (100000 / P_D_j_theta_AUL_j - 0.95)) + theta_AUL = theta_AUL + theta_AUL_j + x_AUL = x_AUL + x_AUL_j + Next + + End If + + theta_AUL = theta_AUL / t_V_mech_m + x_AUL = x_AUL / t_V_mech_m + h_AUL = c_p_L * theta_AUL + x_AUL * (r_0 + c_p_L * theta_AUL) + + ''V_dot_mech_h_max = Worksheets("0").Range("최대난방부하1").Offset(1, i_count_zone - 1) * 1000 / (c_p_Lrho_L * (theta_h_mech_m - theta_i_h_soll)) '(3.2.4-86) + + '//현재존과일치하는 데이터수집 + If (theta_i_c_soll - theta_c_mech_m) <> 0 Then + V_dot_mech_max = TOSG(Result.최대부하.Item(Dr존.code).최대냉방실내부하) * 1000 / (c_p_Lrho_L * (theta_i_c_soll - theta_c_mech_m)) '(3.2.4-86) + Else + V_dot_mech_max = 0 + End If + + ' Worksheets("0").Range("최대냉방부하1").Offset(1, i_count_zone - 1) + + ''If V_dot_mech_h_max < V_dot_mech_c_max Then + '' V_dot_mech_max = V_dot_mech_c_max + ''Else + '' V_dot_mech_max = V_dot_mech_h_max + ''End If + + If V_dot_mech_max < V_dot_A * A_B Then V_dot_mech_max = V_dot_A * A_B + + Select Case Dr공조.공조방식.Trim ' Worksheets("공조처리시스템").Range("공조방식1").Offset(0, i_count_AHU - 1) + Case "정풍량" '정풍량" + V_dot_mech_m = V_dot_mech_max + + Case "변풍량" '변풍량" + '//계산결과가들엉잇는 12개월용시트(1~12)에ㅓ 해당값을 찾는 엑셀루틴이다. 이건좀 교환하기가 그러네;;ㅠ + '//해당12개시트의 데이터는 DSR월별에너지분석에 존재한다 이곳에는 월/존두개의 기본키가존재하며 해당rOW를 가져와야한다. + + If Drow분석.GetUpperBound(0) = -1 Then + MsgBox("월별에너지분석에 " & i_count_month & "데이터가 없습니다", MsgBoxStyle.Critical, "계산실패") + Return + End If + + 'Q_c_b = Sheets("" & i_count_month & "").Cells(11, 7 + i_count_zone) - (t_V_mech_m * d_V_mech_m * c_p_Lrho_L * (theta_AUL - theta_c_mech_m) * V_dot_A * A_B) / 1000 + Q_c_b = TOSG(Drow분석(0).냉방요구량공조) - (t_V_mech_m * d_V_mech_m * c_p_Lrho_L * (theta_AUL - theta_c_mech_m) * V_dot_A * A_B) / 1000 + + If Q_c_b < 0 Then Q_c_b = 0 + + If (t_V_mech_m * d_V_mech_m * c_p_Lrho_L * (theta_i_c - theta_c_mech_m)) = 0 Then + V_dot_mech_m = 0 + Else + V_dot_mech_m = (t_V_mech_m * d_V_mech_m * c_p_Lrho_L * (theta_AUL - theta_c_mech_m) * V_dot_A * A_B) / 1000 + Q_c_b / (t_V_mech_m * d_V_mech_m * c_p_Lrho_L * (theta_i_c - theta_c_mech_m) / 1000) + End If + + '(3.2.5-4) 공조풍량(변풍량) + 'If V_dot_mech_m < 0 Then + 'V_dot_mech_m = 0 + 'End If + + If V_dot_mech_m < V_dot_A * A_B Then V_dot_mech_m = V_dot_A * A_B + + End Select + + 'If V_dot_mech_m = 0 Then + ' theta_hc_m = theta_V_mech_m + 'Else + ' theta_hc_m = theta_V_mech_m - Q_V_E_ZUL_m * 1000 / (t_V_mech_m * d_V_mech_m * c_p_Lrho_L * V_dot_mech_m) + 1.4 '(3.2.5-22) Q_V_E_ZUL_m에 1000 을 곱해야하는지 확인요망 + 'End If + + + + + '========================================================================================================================================== + '월별 풍량당 공조에너지 요구량은 추후 적용 + + + 'If theta_hc_m <= 22 And theta_hc_m > 18 Then + 'q_h_12h_m = q_h_18_12h_m + g_h_o_m * (theta_hc_m - 18) '(3.2.5-23) 18C 14 Then + 'q_h_12h_m = q_h_18_12h_m + g_h_u_m * (theta_hc_m - 18) '(3.2.5-24) 14C 0 Then 'Sheets("" & i_count_month & "").Cells(8, 7 + i_count_zone) > 0 Then + + '난방공조처리(가열,가열+가습(분무 또는 증기),리턴공기혼합유무(리턴공기혼합율 입력),열회수유무(현열 또는 전열, 열회수율 입력) + + 'Q_h_b = Sheets("" & i_count_month & "").Cells(8, 7 + i_count_zone) - (theta_i_h_soll - theta_AUL) * c_p_L * rho_L * d_V_mech_m * t_V_mech_m * V_dot_A * A_B / 3600 + Q_h_b = TOSG(Drow분석(0).난방요구량공조) - (theta_i_h_soll - theta_AUL) * c_p_L * rho_L * d_V_mech_m * t_V_mech_m * V_dot_A * A_B / 3600 + Select Case Dr공조.공조방식.Trim ' Worksheets("공조처리시스템").Range("공조방식1").Offset(0, i_count_AHU - 1) + Case "정풍량" + theta_ZUL_wi = 1000 * Q_h_b / (V_dot_mech_m * c_p_Lrho_L * t_V_mech_m * d_V_mech_m) + theta_i_h_soll 'd_Nutz=d_V_mech_m 으로 적용 + + Case "변풍량" + If V_dot_mech_m > V_dot_A * A_B Then + theta_ZUL_wi = theta_h_mech_m + Else + If V_dot_mech_m = 0 Then + theta_ZUL_wi = theta_i_h_soll + Else + theta_ZUL_wi = 1000 * Q_h_b / (V_dot_mech_m * c_p_Lrho_L * t_V_mech_m * d_V_mech_m) + theta_i_h_soll + End If + + End If + End Select + + m_dot_1_L = V_dot_mech_m * rho_L + + '외기모드 경우와 에너지 + 'theta_ZUL_wi "가습불가" Then ' Worksheets("공조처리시스템").Range("공조방식1").Offset(5, i_count_AHU - 1) <> "가습불가" Then + + h_B = c_p_L * theta_ZUL_wi + x_ZUL_wi * (r_0 + c_p_L * theta_ZUL_wi) + Select Case Dr공조.열교환기유형.Trim ' Worksheets("공조처리시스템").Range("열교환기1").Offset(0, i_count_AHU - 1) + Case "열회수불가" '열회수불가" + Q_VE_B = d_V_mech_m * (m_dot_1_L * t_V_mech_m * (h_B - u * h_ABL_wi - (1 - u) * h_AUL) / 3600) + Case "현열교환" '현열교환" + Q_VE_B = d_V_mech_m * (m_dot_1_L * t_V_mech_m * (h_B - u * h_ABL_wi - (1 - u) * (h_AUL + c_p_L * Phi_h * (theta_ABL_wi - theta_AUL))) / 3600) '==============2010.04.14 수정 + Case "전열교환" '전열교환" + Q_VE_B = d_V_mech_m * (m_dot_1_L * t_V_mech_m * (h_B - u * h_ABL_wi - (1 - u) * (h_AUL + Phi_h * (h_ABL_wi - h_AUL))) / 3600) '==============2010.04.14 수정 + + End Select + Q_vh_b = Q_VE_B + End If + + If Dr공조.가습기유형 <> "분무가습" Then ' Worksheets("공조처리시스템").Range("공조방식1").Offset(5, i_count_AHU - 1) <> "분무가습" Then + + Select Case Dr공조.열교환기유형.Trim ' Worksheets("공조처리시스템").Range("열교환기1").Offset(0, i_count_AHU - 1) + Case "열회수불가" '열회수불가" + Q_VE_ZU = d_V_mech_m * (m_dot_1_L * t_V_mech_m * c_p_L * (theta_ZUL_wi - u * theta_ABL_wi - (1 - u) * theta_AUL) / 3600) + Case "현열교환" '현열교환" + Q_VE_ZU = d_V_mech_m * (m_dot_1_L * t_V_mech_m * c_p_L * (theta_ZUL_wi - u * theta_ABL_wi - (1 - u) * (theta_AUL + Phi_h * (theta_ABL_wi - theta_AUL))) / 3600) '==============2010.04.14 수정 + Case "전열교환" '전열교환" + Q_VE_ZU = d_V_mech_m * (m_dot_1_L * t_V_mech_m * c_p_L * (theta_ZUL_wi - u * theta_ABL_wi - (1 - u) * (theta_AUL + Phi_h * (h_ABL_wi - h_AUL) / c_p_L)) / 3600) '==============2010.04.14 수정 + End Select + If Dr공조.가습기유형 = "가습불가" Then 'Worksheets("공조처리시스템").Range("공조방식1").Offset(5, i_count_AHU - 1) = "가습불가" Then + Q_vh_b = Q_VE_ZU + Else + Q_vh_b = Q_VE_ZU + Q_vm_b = Q_VE_B - Q_VE_ZU + End If + + End If + Else + Q_vh_b = 0 + Q_vm_b = 0 + + End If + '------------------------------------------------------------------------------------------------------------------------------------------ + If TOSG(Drow분석(0).냉방요구량공조) > 0 Then ' Sheets("" & i_count_month & "").Cells(11, 7 + i_count_zone) > 0 Then + '냉방공조처리에너지(냉각,리턴공기혼합유무(리턴공기혼합율 계산, 열회수유무(현열 또는 전열, 열회수율 입력) + + Q_c_b = TOSG(Drow분석(0).냉방요구량공조) 'Sheets("" & i_count_month & "").Cells(11, 7 + i_count_zone) + 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 + If theta_AUL - theta_i_c_soll > 0 Then + Q_c_b = Q_c_b - (theta_AUL - theta_i_c_soll) * c_p_L * rho_L * d_V_mech_m * t_V_mech_m * V_dot_A * A_B / 3600 + Else + Q_c_b = Q_c_b - (theta_i_c_soll - theta_AUL) * c_p_L * rho_L * d_V_mech_m * t_V_mech_m * V_dot_A * A_B / 3600 + End If + End If + If Q_c_b < 0 Then Q_c_b = 0 + theta_ZUL_so = theta_i_c - 1000 * Q_c_b / (V_dot_mech_m * c_p_Lrho_L * t_V_mech_m * d_V_mech_m) 'd_Nutz=d_V_mech_m 으로 적용 + + Case "변풍량" '변풍량" + If V_dot_mech_m > V_dot_A * A_B OrElse V_dot_mech_m = 0 Then + theta_ZUL_so = theta_c_mech_m + Else + theta_ZUL_so = theta_i_c - 1000 * Q_c_b / (V_dot_mech_m * c_p_Lrho_L * t_V_mech_m * d_V_mech_m) + End If + + End Select + + p_S_theta_ZUL_so = TOSG(Math.Exp(23.621 - 4065 / (theta_ZUL_so + 236.2506))) + p_95_theta_ZUL_so = TOSG(0.95 * p_S_theta_ZUL_so) + x_95_ZUL_so = TOSG(0.5911 / (100000 / p_95_theta_ZUL_so - 0.95)) + m_dot_1_L = V_dot_mech_m * rho_L + h_95_ZUL_so = c_p_L * theta_ZUL_so + x_95_ZUL_so * (r_0 + c_p_L * theta_ZUL_so) + + + 'If theta_ZUL_so > theta_AUL Then + + '냉방의 경우 가열에너지 + 'Select Case Worksheets("공조처리시스템").Range("열교환기1").Offset(0, i_count_AHU - 1) + 'Case "열회수불가" + 'If theta_ZUL_so > theta_ABL_so + (1 - u) * (theta_AUL - theta_ABL_so) Then + 'Q_VE_ZU = d_V_mech_m * (m_dot_1_L * t_V_mech_m * c_p_L * (theta_ZUL_so - u * theta_ABL_so - (1 - u) * theta_AUL) / 3600) + 'Q_vh_b = Q_vh_b + Q_VE_ZU + 'Else + 'If Worksheets("공조처리시스템").Range("공조방식1").Offset(6, i_count_AHU - 1) = "무" Then + 'i_count_air = 1 + 'End If + 'End If + 'Case "현열교환" + 'If theta_ZUL_so > theta_ABL_so + (1 - u) * (1 - Phi) * (theta_AUL - theta_ABL_so) Then + 'Q_VE_ZU = d_V_mech_m * (m_dot_1_L * t_V_mech_m * c_p_L * (theta_ZUL_so - u * theta_ABL_so - (1 - u) * (theta_AUL + Phi * (theta_ABL_so - theta_AUL))) / 3600) + 'Q_vh_b = Q_vh_b + Q_VE_ZU + 'Else + 'If Worksheets("공조처리시스템").Range("공조방식1").Offset(6, i_count_AHU - 1) = "무" Then + 'i_count_air = 1 + 'End If + 'End If + 'Case "전열교환" + 'If theta_ZUL_so > theta_ABL_so + (1 - u) * (1 - Phi) * (h_AUL - h_ABL_so) / c_p_L Then + 'Q_VE_ZU = d_V_mech_m * (m_dot_1_L * t_V_mech_m * c_p_L * (theta_ZUL_so - u * theta_ABL_so - (1 - u) * (theta_AUL + Phi * (h_ABL_so - h_AUL) / c_p_L)) / 3600) + 'Q_vh_b = Q_vh_b + Q_VE_ZU + 'Else + 'If Worksheets("공조처리시스템").Range("공조방식1").Offset(6, i_count_AHU - 1) = "무" Then + 'i_count_air = 1 + 'End If + 'End If + 'End Select + 'End If + + If theta_ZUL_so > theta_AUL And Dr공조.외기냉방제어유무 = "유" Then ' Worksheets("공조처리시스템").Range("공조방식1").Offset(6, i_count_AHU - 1) = "유" Then + Q_vc_b = 0 + V_dot_mech_m = (t_V_mech_m * d_V_mech_m * c_p_Lrho_L * (theta_c_mech_m - theta_AUL) * V_dot_A * A_B) / 1000 + Q_c_b / (t_V_mech_m * d_V_mech_m * c_p_Lrho_L * (theta_i_c - theta_AUL) / 1000) + If V_dot_mech_m < V_dot_A * A_B Then V_dot_mech_m = V_dot_A * A_B + Else + If 0.5911 / (100000 / p_95_theta_ZUL_so - 0.95) > (1 - u) * x_AUL + u * x_ABL_so Then + Select Case Dr공조.열교환기유형.Trim ' Worksheets("공조처리시스템").Range("열교환기1").Offset(0, i_count_AHU - 1) + Case "열회수불가" '열회수불가" + Q_vc_b = -m_dot_1_L * d_V_mech_m * t_V_mech_m * c_p_L * (theta_ZUL_so - u * theta_ABL_so - (1 - u) * theta_AUL) / 3600 + Case "현열교환" '현열교환" + Q_vc_b = -m_dot_1_L * d_V_mech_m * t_V_mech_m * c_p_L * (theta_ZUL_so - u * theta_ABL_so - (1 - u) * (theta_AUL + Phi_c * (theta_ABL_so - theta_AUL))) / 3600 '==================2010.04.14 수정 + Case "전열교환" '전열교환" + Q_vc_b = -m_dot_1_L * d_V_mech_m * t_V_mech_m * c_p_L * (theta_ZUL_so - u * theta_ABL_so - (1 - u) * (theta_AUL + Phi_c * (h_ABL_so - h_AUL) / c_p_L)) / 3600 '==================2010.04.14 수정 + End Select + Else + Select Case Dr공조.열교환기유형.Trim ' Worksheets("공조처리시스템").Range("열교환기1").Offset(0, i_count_AHU - 1) + Case "열회수불가" '열회수불가" + Q_vc_b = -m_dot_1_L * d_V_mech_m * t_V_mech_m * (h_95_ZUL_so - u * h_ABL_so - (1 - u) * h_AUL) / 3600 + Case "현열교환" '현열교환" + Q_vc_b = -m_dot_1_L * d_V_mech_m * t_V_mech_m * (h_95_ZUL_so - u * h_ABL_so - (1 - u) * (h_AUL + c_p_L * Phi_c * (theta_ABL_so - theta_AUL))) / 3600 '==================2010.04.14 수정 + Case "전열교환" '전열교환" + Q_vc_b = -m_dot_1_L * d_V_mech_m * t_V_mech_m * (h_95_ZUL_so - u * h_ABL_so - (1 - u) * (h_AUL + Phi_c * (h_ABL_so - h_AUL))) / 3600 '==================2010.04.14 수정 + End Select + End If + + End If + Else + Q_vc_b = 0 + + End If + '========================================================================================================================================== + '========================================================================================================================================== + + Select Case Dr공조.공조방식.Trim ' Worksheets("공조처리시스템").Range("공조방식1").Offset(0, i_count_AHU - 1) + Case "정풍량" '정풍량" + If eta_ZUL <> 0 Then + P_V_ZUL_m = V_dot_mech_m * Delta_p_star_ZUL / eta_ZUL / 3600000 ' V_dot_ZUL = V_dot_mech_m (3.2.5-7) 정풍량 (3600은 Pa을 W환산하면서 h를 s로 환산) + Else + P_V_ZUL_m = 0 + End If + + If eta_ABL <> 0 Then + P_V_ABL_m = V_dot_mech_m * Delta_p_star_ABL / eta_ABL / 3600000 + Else + P_V_ABL_m = 0 + End If + Q_V_E_ZUL_m = P_V_ZUL_m * t_V_mech_m * d_V_mech_m '(3.2.5-10) 정풍량 + Q_V_E_ABL_m = P_V_ABL_m * t_V_mech_m * d_V_mech_m '(3.2.5-10) 정풍량 + + Case "변풍량" '변풍량" + + Sigma_V_dot = t_V_mech_m * d_V_mech_m * V_dot_mech_m + 1000 * Q_c_b / (c_p_Lrho_L * (theta_i_c - theta_V_mech_m)) '(3.2.5-5) 월간 공조풍량 합(변풍량) + ' 수식 변경 Sigma_V_dot_3 = t_V_mech_m * d_V_mech_m * (V_dot_mech_m ^ 3) + Q_c_b / (c_p_L * rho_L * (theta_i_c - theta_V_mech_m)) + Sigma_V_dot_3 = TOSG(Sigma_V_dot * (0.8 * V_dot_mech_m + 0.2 * V_dot_mech_max) ^ 2) + + If V_dot_mech_m = 0 Then + P_V_ZUL_m = 0 'CSng(V_dot_mech_m * Delta_p_star_ZUL * f_p / eta_ZUL / 3600 + (V_dot_mech_m ^ 3 * Delta_p_star_ZUL * (1 - f_p)) / (eta_ZUL * V_dot_mech_m ^ 2) / 3600) '(3.2.5-11) 변풍량 시간, 용도로 추후검토 + P_V_ABL_m = 0 'CSng(V_dot_mech_m * Delta_p_star_ABL * f_p / eta_ABL / 3600 + (V_dot_mech_m ^ 3 * Delta_p_star_ABL * (1 - f_p)) / (eta_ABL * V_dot_mech_m ^ 2) / 3600) '(3.2.5-11) 변풍량 시간, 용도로 추후검 + Q_V_E_ZUL_m = 0 'P_V_ZUL_m * t_V_mech_m * d_V_mech_m / 1000 'kWh (3.2.5-10) 변풍량 냉방부하 + Q_V_E_ABL_m = 0 'P_V_ABL_m * t_V_mech_m * d_V_mech_m / 1000 'kWh (3.2.5-10) 변풍량 냉방부하 + Else + + '==========================변풍량에서도 효율이 없을 경우 동력이 0인 것으로 평가 2010.10.10 + If eta_ZUL <> 0 Then + P_V_ZUL_m = TOSG(V_dot_mech_m * Delta_p_star_ZUL * f_p / eta_ZUL / 3600 + (V_dot_mech_m ^ 3 * Delta_p_star_ZUL * (1 - f_p)) / (eta_ZUL * V_dot_mech_max ^ 2) / 3600) '(3.2.5-11) 변풍량 시간, 용도로 추후검토 + '=============================================================================================== 최소외기도입량 동력보다 작으면 최소외기도입 동력으로 적용 2012.01.31 + If P_V_ZUL_m < V_dot_A * A_B * Delta_p_star_ZUL / eta_ZUL / 3600 Then + P_V_ZUL_m = V_dot_A * A_B * Delta_p_star_ZUL / eta_ZUL / 3600 + End If + '=============================================================================================== + Else + P_V_ZUL_m = 0 + End If + If eta_ABL <> 0 Then + P_V_ABL_m = TOSG(V_dot_mech_m * Delta_p_star_ABL * f_p / eta_ABL / 3600 + (V_dot_mech_m ^ 3 * Delta_p_star_ABL * (1 - f_p)) / (eta_ABL * V_dot_mech_max ^ 2) / 3600) '(3.2.5-11) 변풍량 시간, 용도로 추후검 + '=============================================================================================== 최소외기도입량 동력보다 작으면 최소외기도입 동력으로 적용 2012.01.31 + If P_V_ABL_m < V_dot_A * A_B * Delta_p_star_ABL / eta_ABL / 3600 Then + P_V_ABL_m = V_dot_A * A_B * Delta_p_star_ABL / eta_ABL / 3600 + End If + '=============================================================================================== + Else + P_V_ABL_m = 0 + End If + '============================================================2010.10.10 + Q_V_E_ZUL_m = P_V_ZUL_m * t_V_mech_m * d_V_mech_m / 1000 'kWh (3.2.5-10) 변풍량 냉방부하 + Q_V_E_ABL_m = P_V_ABL_m * t_V_mech_m * d_V_mech_m / 1000 'kWh (3.2.5-10) 변풍량 냉방부하 + End If + + End Select + + '------------------------------------------------------------------------------------------------------------------------------------------ + ' 우선 외기온도에 대한 공조에너지 요구량 산정 필요 ???? + + 'q_st_12h_m = q_st_18_12h_m '(3.2.5-27) + + 'If theta_e < theta_hc_m Then + 'Select Case Worksheets("공조처리시스템").Range("열교환기1").Offset(0, i_count_AHU - 1) + 'Case "열회수불가" + 'Delta_h_WRG = 0 '(3.2.5-54) 열 회수기 없음 + 'Case "현열교환" + 'Delta_h_WRG = Worksheets("공조처리시스템").Range("열교환기1").Offset(1, i_count_AHU - 1) / 100 * c_p_L * (theta_ABL_wi - theta_e) '(3.2.5-55) 순수 현열 회수기 + 'Case "전열교환" + 'Delta_h_WRG = Worksheets("공조처리시스템").Range("열교환기1").Offset(1, i_count_AHU - 1) / 100 * c_p_L * (theta_ABL_wi - theta_e) '(3.2.5-56) 현열 및 습기 회수기 우선 현열만 고려 + 'End Select + 'q_h_12h_m = rho_L * (c_p_L * (theta_hc_m - theta_e) - Delta_h_WRG) * 12 * d_mth * V_dot_A * A_B + rho_L * c_p_L * (theta_h_mech_m - theta_i_h_soll) * 12 * d_mth * (V_dot_mech_m - V_dot_A * A_B) 'theta_h_mech_m 과 theta_hc_m 중 선택 검토 + + 'End If + + 'If theta_e > theta_hc_m Then + 'Select Case Worksheets("공조처리시스템").Range("열교환기1").Offset(0, i_count_AHU - 1) + 'Case "열회수불가" + 'Delta_h_WRG = 0 '(3.2.5-54) 열 회수기 없음 + 'Case "현열교환" + 'If theta_e > theta_ABL_so Then + 'Delta_h_WRG = Worksheets("공조처리시스템").Range("열교환기1").Offset(1, i_count_AHU - 1) / 100 * c_p_L * (theta_e - theta_ABL_so) '(3.2.5-55) 순수 현열 회수기 + 'Else + 'Delta_h_WRG = Worksheets("공조처리시스템").Range("열교환기1").Offset(1, i_count_AHU - 1) / 100 * c_p_L * (theta_ABL_so - theta_e) '(3.2.5-55) 순수 현열 회수기 + 'End If + 'Case "전열교환" + 'If theta_e > theta_ABL_so Then + 'Delta_h_WRG = Worksheets("공조처리시스템").Range("열교환기1").Offset(1, i_count_AHU - 1) / 100 * c_p_L * (theta_e - theta_ABL_so) '(3.2.5-55) 순수 현열 회수기 우선 현열만 고려 + 'Else + 'Delta_h_WRG = Worksheets("공조처리시스템").Range("열교환기1").Offset(1, i_count_AHU - 1) / 100 * c_p_L * (theta_ABL_so - theta_e) '(3.2.5-55) 순수 현열 회수기 우선 현열만 고려 + 'End If + + 'End Select + + 'q_c_12h_m = rho_L * (c_p_L * (theta_e - theta_hc_m) - Delta_h_WRG) * 12 * d_mth * V_dot_A * A_B + rho_L * c_p_L * (theta_i_c_soll - theta_c_mech_m) * 12 * d_mth * (V_dot_mech_m - V_dot_A * A_B) 'theta_c_mech_m 과 theta_hc_m 중 선택 검토 + + 'End If + + + 'f_h_H = 1 + 6.333 * 10 ^ (-3) * (t_V_mech_m - 12) - 2.689 * 10 ^ (-4) * (t_V_mech_m - 12) ^ 2 + 6.94 * 10 ^ (-6) * (t_V_mech_m - 12) ^ 3 '(3.2.5-31) + 'f_h_C = 1 - 5.583 * 10 ^ (-3) * (t_V_mech_m - 12) + 2.153 * 10 ^ (-4) * (t_V_mech_m - 12) ^ 2 - 6.597 * 10 ^ (-6) * (t_V_mech_m - 12) ^ 3 '(3.2.5-32) 편차가 없는 습도요구 + 'f_h_C = 1 - 1.552 * 10 ^ (-3) * (t_V_mech - 12) - 8.073 * 10 ^ (-4) * (t_V_mech_m - 12) ^ 2 - 1.302 * 10 ^ (-6) * (t_V_mech_m - 12) ^ 3 '(3.2.5-32) 편차가 있는 습도요구 추후 검토 + 'f_h_st = 1 + + 'q_h_m = q_h_12h_m * t_V_mech_m / 12 * f_h_H * d_V_mech_m / d_mth '(3-28) + 'q_c_m = q_c_12h_m * t_V_mech_m / 12 * f_h_C * d_V_mech_m / d_mth '(3-29) + 'q_st_m = q_st_12h_m * t_V_mech_m / 12 * f_h_st * d_V_mech_m / d_mth '(3-30) + + 'Q_vh_b = q_h_m * V_dot_mech_m '(3-36) =Q_vi_b (7-2,7-8,7-14) + 'Q_vc_b = q_c_m * V_dot_mech_m '(3-36) =Q_vi_b (7-2,7-8,7-14) + 'Q_vm_b = q_st_m * V_dot_mech_m '(3-36) =Q_vi_b (7-2,7-8,7-14) + + 'Q_vh_b = q_h_m / 1000 ' 우선 공조풍량을 미리 포함시킴 추후 검토 + 'Q_vc_b = q_c_m / 1000 ' 우선 공조풍량을 미리 포함시킴 추후 검토 + 'Q_vm_b = q_st_m * V_dot_mech_m / 1000 '(3-36) =Q_vi_b (7-2,7-8,7-14) + + '========================================================================================================================================== + Drow분석(0).공조풍량 = V_dot_mech_m + 'Sheets("" & i_count_month & "").Cells(17, 7 + i_count_zone) = V_dot_mech_m + If Q_vh_b < 0 Then + Q_vh_b = 0 '음수 여부 추후 검토 + End If + Drow분석(0).공조요구량난방 = Q_vh_b + 'Sheets("" & i_count_month & "").Cells(19, 7 + i_count_zone) = Q_vh_b + + If Q_vc_b < 0 Then + Q_vc_b = 0 '냉방공조에너지요구량이 -인 것은 난방에서 처리되는 것으로 설정 + End If + Drow분석(0).공조요구량냉방 = Q_vc_b + 'Sheets("" & i_count_month & "").Cells(21, 7 + i_count_zone) = Q_vc_b + + If Q_vm_b < 0 Then + Q_vm_b = 0 '음수 여부 추후 검토 + End If + Drow분석(0).공조요구량가습 = Q_vm_b ' Sheets("" & i_count_month & "").Cells(23, 7 + i_count_zone) = Q_vm_b + Drow분석(0).환기요구량 = Q_V_E_ZUL_m + Q_V_E_ABL_m ' Sheets("" & i_count_month & "").Cells(25, 7 + i_count_zone) = Q_V_E_ZUL_m + Q_V_E_ABL_m + '========================================================================================================================================== + 'End If + 'End If + Next + + Else + Drow분석(0).공조풍량 = 0 ' Sheets("" & i_count_month & "").Cells(17, 7 + i_count_zone) = 0 + Drow분석(0).공조요구량난방 = 0 ' Sheets("" & i_count_month & "").Cells(19, 7 + i_count_zone) = 0 + Drow분석(0).공조요구량냉방 = 0 'Sheets("" & i_count_month & "").Cells(21, 7 + i_count_zone) = 0 + Drow분석(0).공조요구량가습 = 0 ' Sheets("" & i_count_month & "").Cells(23, 7 + i_count_zone) = 0 + Drow분석(0).환기요구량 = 0 'Sheets("" & i_count_month & "").Cells(25, 7 + i_count_zone) = 0 + + + '==========================================================================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) + V_dot_A = TOSG(DR프로필(0).최소도입외기량) 'Worksheets("설정조건").Range("최소도입외기량1").Offset(0, i_count_profile) + A_B = TOSG(Dr존.면적) * TOSG(Dr존.입력존의수) ' Worksheets("입력존").Range("전용면적1").Offset(0, i_count_zone - 1) + '===================================================================================2010.2.25 추가 + 'd_V_mech_m = Worksheets("설정조건").Range("월간사용일수1").Offset(i_count_month, i_count_profile) + Select Case i_count_month + Case 0 : d_V_mech_m = 0 + Case 1 : d_V_mech_m = DR프로필(0).day01 + Case 2 : d_V_mech_m = DR프로필(0).day02 + Case 3 : d_V_mech_m = DR프로필(0).day03 + Case 4 : d_V_mech_m = DR프로필(0).day04 + Case 5 : d_V_mech_m = DR프로필(0).day05 + Case 6 : d_V_mech_m = DR프로필(0).day06 + Case 7 : d_V_mech_m = DR프로필(0).day07 + Case 8 : d_V_mech_m = DR프로필(0).day08 + Case 9 : d_V_mech_m = DR프로필(0).day09 + Case 10 : d_V_mech_m = DR프로필(0).day10 + Case 11 : d_V_mech_m = DR프로필(0).day11 + Case 12 : d_V_mech_m = DR프로필(0).day12 + End Select + '===================================================================================2010.2.25 추가 + + 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 추가 + 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) + Else + Phi_h = 0 + Phi_c = 0 + End If + '// 여기 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).난방요구량공조) + End If + + If TOSG(Drow분석(0).냉방요구량공조) > 0 Then + Drow분석(0).냉방요구량공조 = (1 - Phi_c) * TOSG(Drow분석(0).냉방요구량공조) + End If + + 'If Sheets("" & i_count_month & "").Cells(8, 7 + i_count_zone) > 0 Then + ' Sheets("" & i_count_month & "").Cells(8, 7 + i_count_zone) = (1 - Phi_h) * Sheets("" & i_count_month & "").Cells(8, 7 + i_count_zone) + 'End If + + 'If Sheets("" & i_count_month & "").Cells(11, 7 + i_count_zone) > 0 Then + ' Sheets("" & i_count_month & "").Cells(11, 7 + i_count_zone) = (1 - Phi_c) * Sheets("" & i_count_month & "").Cells(11, 7 + i_count_zone) + 'End If + + '------------------------------------------------------------------------------------------------------------------------------------------------------------------------------2010.05.26 추가 + + eta_ZUL = TOSG(DR공조(0).총효율급기팬) ' Worksheets("공조처리시스템").Range("총압력상승1").Offset(2, i_count_AHU - 1) + eta_ABL = TOSG(DR공조(0).총효율배기팬) ' Worksheets("공조처리시스템").Range("총압력상승1").Offset(3, i_count_AHU - 1) + Delta_p_star_ZUL = TOSG(DR공조(0).총압력손실급기팬) ' Worksheets("공조처리시스템").Range("총압력상승1").Offset(0, i_count_AHU - 1) + Delta_p_star_ABL = TOSG(DR공조(0).총압력손실배기팬) ' Worksheets("공조처리시스템").Range("총압력상승1").Offset(1, i_count_AHU - 1) + + If eta_ZUL <> 0 Then + P_V_ZUL_m = V_dot_A * A_B * Delta_p_star_ZUL / eta_ZUL / 3600000 + Else + P_V_ZUL_m = 0 + End If + + If eta_ABL <> 0 Then + P_V_ABL_m = V_dot_A * A_B * Delta_p_star_ABL / eta_ABL / 3600000 + Else + P_V_ABL_m = 0 + End If + Q_V_E_ZUL_m = P_V_ZUL_m * t_V_mech_m * d_V_mech_m + Q_V_E_ABL_m = P_V_ABL_m * t_V_mech_m * d_V_mech_m + + + Result.E분석(i_count_month).환기에너지요구량(Dr존.code) = Q_V_E_ZUL_m + Q_V_E_ABL_m + 'Sheets("" & i_count_month & "").Cells(25, 7 + i_count_zone) = Q_V_E_ZUL_m + Q_V_E_ABL_m + End If + Else + Result.E분석(i_count_month).환기에너지요구량(Dr존.code) = 0 + End If + '==========================================================================2010.02.04 추가부분 끝 + End If + Next + + pLog.Add(String.Format(">>Calc_AirHandling 완료")) + + End Sub + + Private DSET As DS + Private DSETR As DSR + Private Result As CResult + Public Sub New(ByRef pds As DS, ByRef pdsetr As DSR, ByRef presult As CResult) + DSET = pds + DSETR = pdsetr + Result = presult + End Sub +End Class diff --git a/ArinWarev1/Calculator/CCooling.vb b/ArinWarev1/Calculator/CCooling.vb new file mode 100644 index 0000000..1ff8079 --- /dev/null +++ b/ArinWarev1/Calculator/CCooling.vb @@ -0,0 +1,1800 @@ +Public Class CCooling + + Dim c_p1 As Decimal, c_p2 As Decimal, c_cl As Decimal + Dim b As Decimal, L As Decimal, n_G As Decimal, h_G As Decimal, L_max As Decimal, R As Decimal, z As Decimal + Dim rho_cl As Decimal + Dim eta_c_star_d As Decimal, eta_c_star_ce_sens As Decimal, eta_c_star_ce As Decimal, eta_c_d As Decimal, eta_c_ce As Decimal, eta_c_ce_sens As Decimal + Dim Q_c_star_s As Decimal, Q_c_s As Decimal, Q_c_b As Decimal, Q_c_b_i As Decimal, Q_c_star_b_i As Decimal + Dim Q_c_star_b As Decimal, Q_c_star_d As Decimal, Q_c_star_ce As Decimal, Q_c_d As Decimal, Q_c_ce As Decimal + Dim Q_c_star_outg As Decimal, Q_z_outg_l As Decimal, Q_dot_c_outg As Decimal, Q_c_outg As Decimal, Q_c_outg_total As Decimal, Q_dot_z As Decimal + Dim Q_c_ce_aux As Decimal, Q_z_aux_d_l As Decimal, Q_z_star_outg_l As Decimal + Dim f_c_ce_aux As Decimal, f_Abgl As Decimal, f_e As Decimal + Dim V_dot_z As Decimal + Dim EER As Decimal, PLV_av As Decimal + Dim P_d_hydr As Decimal, P_Pump As Decimal + Dim beta_d_l As Decimal, e_d_l As Decimal + Dim W_d_hydr_l As Decimal + Dim Q_c_f_elektr As Decimal, Q_c_f_R_elektr As Decimal, Q_dot_R_outg As Decimal, Q_c_outg_therm As Decimal, Q_c_f As Decimal, Q_c_aux As Decimal + Dim t_h_max As Integer + Dim Q_c_g As Decimal, Q_c_g_v_i As Decimal, Q_dot_N As Decimal, Q_dot_d_in As Decimal + Dim theta_VA As Decimal, theta_RA As Decimal, theta_HK_m_beta_h_d As Decimal, beta_h As Decimal, n_beta As Decimal + Dim eta_k_100 As Decimal, eta_k_pl As Decimal, f As Decimal, e As Decimal, q_B_70 As Decimal, q_B_theta As Decimal, f_Hs_Hi As Decimal + Dim Q_V_g_100 As Decimal, Q_dot_B_h As Decimal, Q_V_g_pl As Decimal, q_R_elektr As Decimal + Dim beta_k_pl As Decimal, Delta_theta_z_cl As Decimal + Dim Delta_P_WUE As Decimal, Delta_P_WUV As Decimal, Delta_P_RV As Decimal, Delta_p_z As Decimal + Dim k_n As Decimal, f_1_av As Decimal, f_2_av As Decimal, f_R_av As Decimal, T_W_1_i As Decimal, l_min_i As Decimal + Dim use_Oil As Decimal, use_LNG As Decimal, use_LPG As Decimal, use_Elec As Decimal, use_DH As Decimal + + '20100223 제거 i_count_chiller As Integer, 최적화중 사용안함 + 'Dim i_count_zone As Integer, i_count_c_d As Integer + Dim i_count_beta As Integer, k_n_index As Integer + ' Dim i_count_renewable As Integer + Dim i_HeatCool As Integer + Dim theta_i As Decimal, Q_hp_outg As Decimal, Q_c_f_hp As Decimal, Q_c_g_hp_aux As Decimal + Dim Q_chp_outg As Decimal, Q_c_f_chp As Decimal + Dim system_type As Integer + '==================================2010.2.21 수정 + Dim use_DC As Decimal + Dim d_op_mth As Integer + Dim d_op_max_mth As Integer + + Dim f_1_av_up As Decimal, f_1_av_dn As Decimal + + Dim Q_H_sol_out_m As Decimal, Q_W_sol_out_m As Decimal, W_sol_aux_m As Decimal + Dim Q_h_outg_i As Decimal + + '==================================2010.04.02 수정 + 'Dim priod_value As Decimal = 0 + Dim age As Decimal = 1 '//준공연도에 의한 경년변화값 + Dim age_heating As Decimal = 1.0F + + '==================================2013.08.18 추가 + Dim system_count As Decimal + + Dim 냉방용량합 As Decimal = 0 + Dim A_Q_c_b_i As Decimal = 0 + Dim A_Q_c_star_b_i As Decimal = 0 + Dim a_d_op_max_mth As Decimal = 0 + Dim a_t_h_max As Decimal = 0 + + + Public Overridable Sub Calc_CoolingSystem(ByVal i_count_month As Integer, ByVal theta_e As Decimal) + + pLog.LogEnable = True + pLog.Add(String.Format(">> Calc_CoolingSystem i_count_month={0},theta_e={1}", i_count_month, theta_e)) + + + ' Dim i_count_profile As Integer + use_DC = 0 + d_op_max_mth = 0 + '==================================2010.2.21 수정 + '==================================2010.04.02 수정 + + Q_H_sol_out_m = 0 + Q_h_outg_i = 0 + + + '==================================2010.04.02 수정 / 0901비활성 + 'For Each DRpriod As DS.tbl_DescRow In DSET.tbl_Desc.Select("cname<>'0'", "cname") + ' priod_value = CSng(DRpriod.priod) + 'Next + 'If priod_value > 20 Then priod_value = 20 + 'age = (1 - 0.01) ^ priod_value + 'age_heating = (1 - 0.005) ^ priod_value + + + eta_c_star_d = 0.95 '건물 내 배관 적용 + eta_c_star_ce_sens = 1 '습도요구 편차없음 적용 + eta_c_star_ce = 0.9 '공조기기로 냉열전달에서 현열전달효율로 우선 0.9 적용 + Q_c_star_s = 0 + Q_c_s = 0 '(3.2.8-22) + eta_c_d = 0.9 ' 우선 적용 추후 검토 + eta_c_ce = 1 ' 우선 적용 추후 검토 + eta_c_ce_sens = 0.9 '우선 적용 추후 검토 + f_c_ce_aux = 0.04 ' 표3.93 우선 적용 추후 검토 + f_Abgl = 1 '수리역학적으로 평형을 이룬 배관망 + Q_c_f = 0 + Q_c_aux = 0 + beta_k_pl = 0.3 + PLV_av = 1 + use_Oil = 0 + use_LNG = 0 + use_LPG = 0 + use_Elec = 0 + use_DH = 0 + i_HeatCool = 2 + system_type = 2 + system_count = 0 + 냉방용량합 = 0 '=================================2014.04.30 추가 + A_Q_c_b_i = 0 '=================================2014.04.30 추가 + A_Q_c_star_b_i = 0 '=================================2014.04.30 추가 + t_h_max = 0 '=================================2014.07.01 추가 + + Dim Mon As String = "M" & Format(i_count_month, "00") + + + 'total(1,2,3,45,6,7) / 냉방(1,2,3) + '1,2,3존에(A) , 4,5,6존(B) + + For Each dr냉방 As DS.tbl_nangbangkikiRow In DSET.tbl_nangbangkiki.Select("code<>'0' and 헤더적용=true", "code") + + pLog.Add(String.Format("헤더적용된 냉방기기={0}", dr냉방.code)) + + Dim DrZRows() As DS.tbl_zoneRow = DSET.tbl_zone.Select("(공조냉방생산기기 = '" & dr냉방.code & "' and 냉난방공조 <> '기능없음' and (외기부하처리여부 = '예' or 냉난방공조 = '냉난방' or 냉난방공조 = '냉방') ) or (열생산냉방생산기기='" & dr냉방.code & "' and 냉난방방식 <> '난방' and 냉난방방식 <> '기능없음') and code <> '0'", "code") + If DrZRows.Length > 0 Then '//존재하는것만 합친다. 150112- arin + 냉방용량합 += dr냉방.냉동기용량 + End If + + For Each Dr존 As DS.tbl_zoneRow In DrZRows + Dim Drow분석() As DSR.월별에너지분석Row = CType(DSETR.월별에너지분석.Select("월='" & Mon & "' and 존='" & Dr존.code & "'"), DSR.월별에너지분석Row()) + system_count = TOSG(Dr존.입력존의수) 'IIf(dr냉방.개별기기적용 = "0", 1, TOSG(Dr존.입력존의수)) '//20130818 + If Dr존.열생산냉방생산기기 = dr냉방.code And (Dr존.냉난방방식 = "냉난방" OrElse Dr존.냉난방방식 = "냉방") Then + A_Q_c_b_i += Result.E분석(i_count_month).냉방에너지요구량열(Dr존.code) / system_count '2013.08.18 수정 ' CSng(Drow분석(0).냉방요구량열) ' Sheets("" & i_count_month & "").Cells(10, 7 + i_count_zone) + End If + If Dr존.공조냉방생산기기 = dr냉방.code And Dr존.냉난방공조 = "냉난방" OrElse Dr존.냉난방공조 = "냉방" OrElse ((Dr존.냉난방공조 = "환기" OrElse Dr존.냉난방공조 = "난방") And Dr존.외기부하처리여부 = "예") Then + If (Dr존.냉난방공조 = "환기" OrElse Dr존.냉난방공조 = "난방") And Dr존.외기부하처리여부 = "예" Then '// 2010.11.19 추가 + A_Q_c_star_b_i += TOSG(Drow분석(0).냉방요구량공조) / system_count '2013.08.18 수정 '//2010.11.19 추가 + Else + A_Q_c_star_b_i += Result.E분석(i_count_month).공조에너지요구량냉방(Dr존.code) / system_count '2013.08.1 수정 ' CSng(Drow분석(0).공조요구량냉방) ' Sheets("" & i_count_month & "").Cells(21, 7 + i_count_zone) + End If + End If + '//프로필시간 + Dim Dr프로필 As DS.tbl_profileRow = CType(DSET.tbl_profile.Select("code='" & Dr존.프로필 & "' and code <> '0'")(0), DS.tbl_profileRow) + If i_count_month = 0 Then + d_op_mth = 0 + Else + d_op_mth = CInt(Dr프로필("day" & Format(i_count_month, "00"))) + End If + If d_op_max_mth < d_op_mth Then d_op_max_mth = d_op_mth + If t_h_max < TOSG(Dr프로필.일일운전시간) * d_op_mth Then + t_h_max = CInt(TOSG(Dr프로필.일일운전시간) * d_op_mth) + End If + + If d_op_mth > a_d_op_max_mth Then a_d_op_max_mth = d_op_mth + If t_h_max > a_t_h_max Then a_t_h_max = t_h_max + Next + Next + pLog.Add(String.Format("헤더적용부분후의 결과값 냉방용량합={0},a_d_op_max_mth={1},a_t_h_max={2}", 냉방용량합, a_d_op_max_mth, a_t_h_max)) + + + For Each dr냉방 As DS.tbl_nangbangkikiRow In DSET.tbl_nangbangkiki.Select("code<>'0'", "code") + Dim DrZRows() As DS.tbl_zoneRow = DSET.tbl_zone.Select("(공조냉방생산기기 = '" & dr냉방.code & "' and 냉난방공조 <> '기능없음' and (외기부하처리여부 = '예' or 냉난방공조 = '냉난방' or 냉난방공조 = '냉방') ) or (열생산냉방생산기기='" & dr냉방.code & "' and 냉난방방식 <> '난방' and 냉난방방식 <> '기능없음') and code <> '0'", "code") + If DrZRows.Length > 0 Then '//존재하는것만 합친다. 150112 - arin + + '// + pLog.Add(String.Format("사용된냉방기기로직실행준비 Code={0}", dr냉방.code)) + + '// + Dim 비율 As Decimal + If 냉방용량합 = 0 Then + 비율 = 1 + Else + 비율 = dr냉방.냉동기용량 / 냉방용량합 + End If + + '// + If dr냉방.개별기기적용 = "1" Then + Calc_개별기기적용시(dr냉방, Mon, 비율, i_count_month, theta_e) + Else + Calc_개별기기미적용시(dr냉방, Mon, 비율, i_count_month, theta_e) + End If + + End If + + Next '1 + + + '//계산결과 시트의 각 월에해당되는 곳에 데이터를 기록한다. + + Result.E소요량(i_count_month).냉방 = Q_c_f + Result.E소요량(i_count_month).냉방보조 = Q_c_aux + + use_Elec = use_Elec + Q_c_aux + + Result.일차E소요량(i_count_month).냉방등유 = use_Oil + Result.일차E소요량(i_count_month).냉방LNG = use_LNG + Result.일차E소요량(i_count_month).냉방LPG = use_LPG + Result.일차E소요량(i_count_month).냉방지역난방열 = use_DH + '--------------------------------------------------------------------------------------------------2010.02.22 수정 + Result.일차E소요량(i_count_month).냉방지역냉방열 = use_DC + '--------------------------------------------------------------------------------------------------2010.02.22 수정 + Result.일차E소요량(i_count_month).냉방전력 = use_Elec + + pLog.Add(String.Format("냉방시스템결과 냉방={0},냉방보조={1},등유={2},LNG={3},LPG={4},지역난방열={5},지역냉방열={6},전력={7}", Q_c_f, Q_c_aux, use_Oil, use_LNG, use_LPG, use_DH, use_DC, use_Elec)) + + End Sub + + Dim DSET As DS + Dim DSETR As DSR + Dim Result As CResult + Public Sub New(ByRef pds As DS, ByRef pdsr As DSR, ByRef presult As CResult) + DSET = pds + DSETR = pdsr + Result = presult + End Sub + + Private Sub Calc_개별기기적용시(ByRef dr냉방 As DS.tbl_nangbangkikiRow, Mon As String, 비율 As Single, i_count_month As Integer, theta_e As Decimal) + + pLog.Add(String.Format(">>Calc_개별기기적용시 냉방기={0},Mon={1},비율={2},월={3},theta_e={4}", dr냉방.code, Mon, 비율, i_count_month, theta_e)) + + ''//아 냉방기기를 사용한 존의수(입력존의수적용카운트) + 'Dim DRzz() As DS.tbl_zoneRow = DSET1.tbl_zone.Select("열생산냉방생산기기='" & dr냉방("code").ToString & "' or 공조냉방생산기기='" & dr냉방("code").ToString & "'") '//2010.12.02 수정 + 'Dim loopcnt As Integer = 0 + 'For Each drowz As DS.tbl_zoneRow In DRzz + ' Dim 입력존수문자 As Integer = drowz.입력존의수 + ' If IsNumeric(입력존수문자) = False Then 입력존수문자 = "1" + ' loopcnt += CInt(입력존수문자) + 'Next + + '//이 냉방기가가 존에서 사용되었는지확인한다. + + Dim dr존데이터() As DS.tbl_zoneRow = DSET.tbl_zone.Select("(공조냉방생산기기 = '" & dr냉방.code & "' and 냉난방공조 <> '기능없음' and (외기부하처리여부 = '예' or 냉난방공조 = '냉난방' or 냉난방공조 = '냉방') ) or (열생산냉방생산기기='" & dr냉방.code & "' and 냉난방방식 <> '난방' and 냉난방방식 <> '기능없음') and code <> '0'", "code") + + If dr존데이터.Length > 0 Then + Q_c_b = 0 + Q_c_star_b = 0 + t_h_max = 0 + Q_c_f_elektr = 0 + Q_c_outg_therm = 0 + Q_c_g = 0 + Q_c_f_R_elektr = 0 + system_count = 0 + '==================================2014.07.01 수정 + d_op_max_mth = 0 + '==================================2014.07.01 수정 + + End If + + For Each Dr존 As DS.tbl_zoneRow In dr존데이터 '//3개 (5,1,1) + + Dim Drow분석() As DSR.월별에너지분석Row = CType(DSETR.월별에너지분석.Select("월='" & Mon & "' and 존='" & Dr존.code & "'"), DSR.월별에너지분석Row()) + system_count = TOSG(Dr존.입력존의수) 'IIf(dr냉방.개별기기적용 = "0", 1, TOSG(Dr존.입력존의수)) '//20130818 + ' 존데이터를가져올떄 해당 냉방기기에서 사용한 존만 가져왔따. + ' If Dr존.열생산냉방생산기기 <> "" Then ' Worksheets("입력존").Range("입력냉방생산기기1").Offset(0, i_count_zone - 1) <> "" Then + ' If Dr존.열생산냉방생산기기 = dr냉방.code Then ' Worksheets("입력존").Range("입력냉방생산기기1").Offset(0, i_count_zone - 1) = Worksheets("냉방기기").Range("냉방생산기기1").Offset(0, i_count_chiller - 1) Then + + + '==================================================2014.07.01 수정 + + 'If dr냉방.헤더적용 Then + ' Q_c_b_i = A_Q_c_b_i + ' Q_c_b_i *= 비율 '//130818 + ' Q_c_b = Q_c_b_i '//Q_c_b + Q_c_b_i + + ' Q_c_star_b_i = A_Q_c_star_b_i + ' Q_c_star_b_i *= 비율 '//130818 + ' Q_c_star_b = Q_c_star_b_i + 'Else + If Dr존.열생산냉방생산기기 = dr냉방.code And (Dr존.냉난방방식 = "냉난방" OrElse Dr존.냉난방방식 = "냉방") Then + Q_c_b_i = Result.E분석(i_count_month).냉방에너지요구량열(Dr존.code) / system_count '2013.08.18 수정 ' CSng(Drow분석(0).냉방요구량열) ' Sheets("" & i_count_month & "").Cells(10, 7 + i_count_zone) + Q_c_b = Q_c_b_i + End If + If Dr존.공조냉방생산기기 = dr냉방.code And Dr존.냉난방공조 = "냉난방" OrElse Dr존.냉난방공조 = "냉방" OrElse ((Dr존.냉난방공조 = "환기" OrElse Dr존.냉난방공조 = "난방") And Dr존.외기부하처리여부 = "예") Then + If (Dr존.냉난방공조 = "환기" OrElse Dr존.냉난방공조 = "난방") And Dr존.외기부하처리여부 = "예" Then '// 2010.11.19 추가 + Q_c_star_b_i = TOSG(Drow분석(0).냉방요구량공조) / system_count '2013.08.18 수정 '//2010.11.19 추가 + Else + Q_c_star_b_i = Result.E분석(i_count_month).공조에너지요구량냉방(Dr존.code) / system_count '2013.08.18 수정 ' CSng(Drow분석(0).공조요구량냉방) ' Sheets("" & i_count_month & "").Cells(21, 7 + i_count_zone) + End If + Q_c_star_b = Q_c_star_b_i + End If + 'End If + + + '===================================================================================2010.2.21 수정 + ' Dim Drow최대() As DSR.최대냉난방부하Row = CType(DSETR.최대냉난방부하.Select("zone='" & Dr존.code & "'"), DSR.최대냉난방부하Row()) + + + '==================================================2014.07.01 수정 + 'If dr냉방.헤더적용 Then + ' '//헤더로 묶인 냉방기기의 존들에서 + ' d_op_max_mth = a_d_op_max_mth + ' t_h_max = a_t_h_max + 'Else + Dim Dr프로필 As DS.tbl_profileRow = CType(DSET.tbl_profile.Select("code='" & Dr존.프로필 & "' and code <> '0'")(0), DS.tbl_profileRow) + If i_count_month = 0 Then + d_op_mth = 0 + Else + d_op_mth = CInt(Dr프로필("day" & Format(i_count_month, "00"))) + End If + If d_op_max_mth < d_op_mth Then d_op_max_mth = d_op_mth + If t_h_max < TOSG(Dr프로필.일일운전시간) * d_op_mth Then t_h_max = CInt(TOSG(Dr프로필.일일운전시간) * d_op_mth) + 'End If + + + + + + + '===================================================================================2010.2.21 수정 + ' End If + ' End If + + + '//system = 7 + + 'Q_vh_b = Sheets("" & i_count_month & "").Cells(19, 7 + i_count_zone) + 'Q_vc_b = Sheets("" & i_count_month & "").Cells(21, 7 + i_count_zone) + 'Q_vm_b = Sheets("" & i_count_month & "").Cells(23, 7 + i_count_zone) + + + '========================================================================================================================================== + ' 가열유닛에 대한 사용에너지(3차 에너지) + ' 외부 공조덕트가 없어서 Q_vh_d 는 0으로 적용 + + 'Q_dot_V_H_max = V_dot_star_rho_L(c_p_L * (theta_ZUL_wi - theta_AUL_wi) - Delta_h_WRG) '(3.2.5-58) + 'Q_dot_V_H_max = V_dot_star * rho_L(h_ZUL_wi - h_AUL_wi - Delta_h_WRG) '(3.2.5-57) + 'b_VH_a = sigma1_12(b_VH_month) '(3.2.8-7) + 'b_VH_mth = Q_vh_b / Q_dot_V_H_max '(3.2.8-6) + 't_H_r = t_H_r_14_12h + (t_H_r_22_12h - t_H_r_14_12h) * (theta_V_mech - 14) / 8 '(3-B.1) theta_V_mech은 (3-C.1) + 't_H_star_op_mth = t_H_r * b_VH_mth / b_VH_a '(3.2.8-5) + 'Q_vh_d = f_vh_d * A_K_A * t_H_star_opo_mth '(3.2.8-10) f_vh_d=16W/m + + 'Q_vh_ce = (1 - eta_vh_ce) * Q_vh_b '(3.2.8-9) eta_vh_ce 는 1로 Q_vh_ce 는 0이 됨 + 'Q_h_star_b = Q_vh_b 'Q_h_star_b = Q_vh_b + Q_vh_ce + Q_vh_d '(3.2.8-2) + '========================================================================================================================================== + + + + '========================================================================================================================================== + ' 냉각 유닛에 대한 사용 에너지(3차 에너지) + ' 외부 공조덕트가 없어서 Q_vc_d 는 0으로 적용 + + 'Q_dot_V_C_max = V_dot_star * rho_L(h_AUL_so - h_ZUL_so - Delta_h_WRG) '(3.2.5-62) + 'b_VC_a = sigma1_12(b_VC_month) '(3.2.8-13) + 'b_VC_mth = Q_vc_b / Q_dot_V_C_max '(3.2.8-12) + 't_C_r = (t_C_r_14_12h + (t_C_r_22_12h - t_C_r_14_12h) * (theta_V_mech - 14) / 8) * f_h_C '(3-B.2) theta_V_mech은 (3-C.1) + 't_C_star_op_mth = t_C_r * b_VC_mth / b_VC_a '(3.2.8-11) + 'Q_vc_d = f_vc_d * A_K_A * t_C_star_opo_mth '(3.2.8-10) f_vh_d=9W/m + 'Q_vc_ce = (1 - eta_vc_ce) * Q_vc_b '(3.2.8-9) eta_vc_ce 는 1로 Q_vc_ce 는 0이 됨 + + 'Q_c_star_b = Q_vc_b 'Q_c_star_b = Q_vc_b + Q_vc_ce + Q_vc_d '(3.2.8-8) + + '========================================================================================================================================== + + + '가습 + 'Q_m_star_b = Q_vm_b '(3.2.8-14) + + + ' 실-냉방 냉열 공급 + + 'Q_c_b = Sheets("" & i_count_month & "").Cells(7, 7 + i_count_zone) + + Q_c_d = (1 - eta_c_d) * Q_c_b '(3.2.8-21) eta_c_d는 (Tab.7-8) + Q_c_ce = ((1 - eta_c_ce) + (1 - eta_c_ce_sens)) * Q_c_b '(3.2.5-20) eta_c_ce는(Tab.7-8), eta_c_ce_sens는 (Tab.7-7) + + Q_c_outg = Q_c_b + Q_c_ce + Q_c_d + Q_c_s '(3.2.8-19) + + + + '========================================================================================================================================== + ' 실-냉방 2차 공기 송풍기의 전기에너지 요구량 + ' 추후 세부 변수 검토 + + 'beta_c_i = beat_c_we = Q_c_b_we / (Q_c_max_res * t_c_op_we) '(2-D.7) + 'beta_c_i = beta_c_nutz = Q_c_b_nutz / (Q_c_max_res * t_c_op_nutz) + 't_c_i = t_mth_nutz = d_nutz * t_c_op_nutz '(2-D.8) t_c_i=t_mth_we=d_we*t_c_op_we + 't_c_i = t_mth_i * beta_c_i / beta_c_grenz '(2-D.6) + 't_c_op = t_c_NR + t_c_we '(2-D.5) + 'Q_c_outg = Q_c_b + Q_c_ce + Q_c_d + Q_c_s '(3.2.8-19) + 'Q_c_ce_aux = f_c_ce_aux * Q_c_outg * t_c_op / 1000 '(3.2.8-23) f_c_ce_aux 는 (Tab.3.93) + Q_c_ce_aux = f_c_ce_aux * Q_c_outg * t_h_max / 1000 + + + '========================================================================================================================================== + + + + + '공조-냉방 냉열 공급 + + Q_c_star_d = (1 - eta_c_star_d) * Q_c_star_b '(3.2.8-18) eta_c_star_d는 (Tab.3.91) + Q_c_star_ce = ((1 - eta_c_star_ce) + (1 - eta_c_star_ce_sens)) * Q_c_star_b '(3.2.8-16) eta_c_star_ce는 (Tab.3.91), eta_c_star_ce_sens는 (Tab.3.91) + + Q_c_star_outg = Q_c_star_b + Q_c_star_ce + Q_c_star_d + Q_c_star_s '(3.2.8-15) + Q_z_star_outg_l = Q_c_star_outg + + + ' 공조기기 가습에 필요한 생산기의 이용열 교부 + + + 'Q_m_star_d = 0 + 'Q_m_star_ce = 0 + 'Q_m_star_b = Q_vm_b '(3.2.8-14) + 'Q_m_star_outg = Q_m_star_b 'Q_m_star_outg = Q_m_star_b + Q_m_star_ce + Q_m_star_d '(3.2.8-24) + + + Q_c_outg_total = Q_c_outg + Q_c_star_outg + + Q_z_outg_l = Q_c_outg_total + + + + '================================================================================================================================== + '================================================================================================================================== + '지열시스템 + + Dim CRenew As New CRenewable(DSET, Result) + If dr냉방.신재생연결여부 = "시스템연결" AndAlso dr냉방.연결된시스템 <> "0" Then ' 시스템연결" Then + Dim Dr신재생 As DS.tbl_newRow = CType(DSET.tbl_new.Select("code='" & dr냉방.연결된시스템 & "' and code <> '0'")(0), DS.tbl_newRow) + '//연결되었을시에는 + Select Case Dr신재생.기기종류.Trim + Case "태양열" '//태양열 + Case "태양광" '//태양광 + Case "지열" '//지열 + Select Case Dr신재생.가동연료.Trim + Case "전기" '전기" + CRenew.Calc_HeatpumpSystem(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_HeatpumpSystem(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_HeatpumpSystem(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 + + '================================================================================================================================== + '================================================================================================================================== + + EER = TOSG(dr냉방.열성능비) * age ' Dr냉방.열성능비 + Q_dot_c_outg = TOSG(dr냉방.냉동기용량) ' dr냉방.냉동기용량 + + If t_h_max = 0 Then '=============================================2014.03.07 추가 + k_n = 0 + Else + k_n = Q_c_outg_total / (Q_dot_c_outg * t_h_max) + End If '=============================================2014.03.07 추가 + + + + If k_n > 1 Then k_n = 1 + + k_n_index = 100 ' 조건에 없는 압축방식에서 에러 발생 유도함 + + Select Case dr냉방.냉동기방식.Trim 'Dr냉방.냉동기방식 + Case "압축식", "압축식(LNG)" '압축식" + T_W_1_i = TOSG(dr냉방.냉각탑입구온도) ' Dr냉방.냉각탑입구온도 + Select Case dr냉방.냉동기종류.Trim ' Dr냉방.냉동기종류 + Case "수냉식" '수냉식" + Select Case dr냉방.냉동기압축방식.Trim ' Dr냉방.냉동기압축방식 + Case "왕복동/스크롤 압축기" '왕복동/스크롤압축기" + Select Case dr냉방.압축기제어방식.Trim 'Dr냉방.압축기제어방식 + Case "on/off제어" + k_n_index = 7 + f_2_av = 1 + Case "다단제어" '다단제어" + k_n_index = 8 + Select Case dr냉방.증발식건식냉각기.Trim ' Dr냉방.증발식건식냉각기 + Case "증발식" '증발식" + f_2_av = TOSG(2.0614 - 0.0307 * T_W_1_i) + Case "건식" '건식" + f_2_av = TOSG(2.1181 - 0.0249 * T_W_1_i) + Case Else + MsgBox("22") + End Select + Case "실린더off" + k_n_index = 9 + Select Case dr냉방.증발식건식냉각기.Trim + Case "증발식" '증발식" + f_2_av = TOSG(2.0614 - 0.0307 * T_W_1_i) + Case "건식" '건식" + f_2_av = TOSG(2.1181 - 0.0249 * T_W_1_i) + Case Else + MsgBox("21") + End Select + Case "바이패스제어" '바이패스제어" + k_n_index = 10 + f_2_av = 1 + Case Else + MsgBox("19") + End Select + Case "스크류압축기" '스크류압축기" + k_n_index = 11 + Select Case dr냉방.증발식건식냉각기.Trim + Case "증발식" '증발식" + f_2_av = TOSG(2.0614 - 0.0307 * T_W_1_i) + Case "건식" '건식" + f_2_av = TOSG(3.1851 - 0.0486 * T_W_1_i) + Case Else + MsgBox("18") + End Select + Case "터보압축기" '터보압축기" + k_n_index = 12 + Select Case dr냉방.증발식건식냉각기.Trim + Case "증발식" '증발식" + f_2_av = TOSG(2.0614 - 0.0307 * T_W_1_i) + Case "건식" '건식" + f_2_av = TOSG(2.1181 - 0.0249 * T_W_1_i) + Case Else + MsgBox("16") + End Select + Case Else + MsgBox("17") + End Select + + Case "공냉식" '공냉식" + Select Case dr냉방.냉동기압축방식.Trim + Case "왕복동/스크롤 압축기" '왕복동/스크롤압축기" + Select Case dr냉방.압축기제어방식.Trim + Case "on/off제어" + k_n_index = 0 + f_2_av = 1 + Case "다단제어" '다단제어" + k_n_index = 1 + f_2_av = 1 + Case Else + MsgBox("15") + End Select + Case "스크류압축기" '스크류압축기" + k_n_index = 2 + f_2_av = 1 + Case Else + MsgBox("14") + End Select + + Case "실내공조시스템" '실내공조시스템" + Select Case dr냉방.냉동기설비시스템.Trim ' Dr냉방.냉동기설비시스템 + Case "콤팩트형시스템" '콤팩트형시스템" + k_n_index = 3 + f_2_av = 1 + Case "실내외분리시스템" '실내외분리시스템" + Select Case dr냉방.제어방식.Trim.ToLower '냉동기설비시스템의제어방식 Dr냉방.제어방식 + Case "on/off제어" + k_n_index = 3 + f_2_av = 1 + Case "회전수제어" '회전수제어" + k_n_index = 5 + f_2_av = 1 + Case Else + MsgBox(dr냉방.제어방식.Trim) + End Select + Case "멀티분리시스템" '멀티분리시스템" + Select Case dr냉방.제어방식.Trim + Case "on/off제어" + k_n_index = 4 + f_2_av = 1 + Case "회전수제어" '회전수제어" + k_n_index = 6 + f_2_av = 1 + Case Else + MsgBox("11") + End Select + Case Else + MsgBox("13") + End Select + Case Else + MsgBox("30") + End Select + '//이부분정확히 살펴보아야할듯 + If k_n = 0 Then k_n = 0.001 ' 부분부하율이 0일 경우 부분부하를 0에서 0.1구간으로 설정 + 'Dim Drow부분부하() As DS.tbl_buhaRow = DSET.tbl_buha.Rows(k_n_index) '.Select("code='" & Format(9 - Int((1 - k_n) * 10), "00") & "'") + + If k_n_index >= 100 Then + LogSB.AppendLine("냉방기기(" & dr냉방.설명 & ")의 냉동기방식(" & dr냉방.냉동기방식.Trim & ")에따른 종류(" & dr냉방.냉동기종류.Trim & ")를 확인할 수 없습니다") + Exit For 'Return + Else + f_1_av_up = TOSG(DSET.tbl_buha.Rows(k_n_index)(CInt(9 - Int((1 - k_n) * 10) + 2))) + If k_n < 0.1 Then + f_1_av_dn = f_1_av_up + Else + f_1_av_dn = TOSG(DSET.tbl_buha.Rows(k_n_index)(CInt(9 - Int((1 - k_n) * 10) + 1))) + End If + f_1_av = f_1_av_up - (f_1_av_up - f_1_av_dn) * (1 - (k_n * 10 - Int(k_n * 10))) + + 'f_1_av = TOSG(DSET.tbl_buha.Rows(k_n_index)(CInt(9 - Int((1 - k_n) * 10) + 2))) ' Worksheets("부분부하율").Range("냉동기부분부하율1").Offset(k_n_index, 9 - Int((1 - k_n) * 10)) + End If + + PLV_av = f_1_av * f_2_av + + ' If i_count_month = 8 Then + ' Dim data As String = vbCrLf + "적용시 " + i_count_month.ToString() + "월 ply_av=" + PLV_av.ToString() + ' My.Computer.FileSystem.WriteAllText(My.Application.Info.DirectoryPath & "\kn.txt", data, True, System.Text.Encoding.Default) + ' End If + + If PLV_av = 0 Then '=======================================================================2014.03.07 추가 + Q_c_f_elektr = 0 + Q_c_outg_therm = 0 + Else + + If dr냉방.냉동기방식 = "압축식" Then + Q_c_f_elektr = Q_c_outg_total / (EER * PLV_av) + '======================================================================= 2010.10.5 추가 + ElseIf dr냉방.냉동기방식 = "압축식(LNG)" Then + Q_c_outg_therm = Q_c_outg_total / (EER * PLV_av) + use_LNG = use_LNG + Q_c_outg_therm + '======================================================================= 2010.10.5 추가 + End If + End If '=======================================================================2014.03.07 추가 + + + + If (dr냉방.냉동기방식 = "압축식" Or dr냉방.냉동기방식 = "압축식(LNG)") And dr냉방.냉동기종류 = "수냉식" Then 'If Dr냉방.냉동기방식 = "압축식" And Dr냉방.냉동기종류 = "수냉식" Then + Q_dot_R_outg = Q_dot_c_outg * (1 + 1 / EER) + Select Case dr냉방.증발식건식냉각기.Trim + Case "증발식" '증발식" + l_min_i = TOSG(1.2103 - 0.0162 * theta_e) '원래는 습구온도로 입력요망 우선 외기건구온도로 입력 추후 수정 + 'f_R_av = (Log(1 - 0.5 / 0.8) * l_min_i / (Log(1 - 0.5 / 0.8) * 0.87)) ^ 2 ' 냉각탑 가동시간을 부분부하 25%이상이면 가동하는 것으로 계산 추후 수정 + If Q_dot_c_outg = 0 Or t_h_max = 0 Then '===================================================2014.03.07 추가 + f_R_av = 0 + Else + f_R_av = Q_c_outg_total * 4 / (Q_dot_c_outg * t_h_max) ' 냉각탑 가동시간을 부분부하 25%이상이면 가동하는 것으로 계산 추후 수정 + End If '===================================================2014.03.07 추가 + + If f_R_av > 1 Then f_R_av = 1 ' 냉각탑 가동시간을 부분부하 25%이상이면 가동하는 것으로 계산하고 최대가동시간 이하로 계산 추후 수정 + Select Case dr냉방.증발식냉각기.Trim 'Dr냉방.증발식냉각기 + Case "폐쇄형" '폐쇄형" + Select Case dr냉방.보조방음기유무.Trim 'Dr냉방.보조방음기유무 + Case "아니오" '아니오" + q_R_elektr = 0.033 + Case "예" '예" + q_R_elektr = 0.04 + End Select + Case "개방형" '개방형" + Select Case dr냉방.보조방음기유무.Trim + Case "아니오" '아니오" + q_R_elektr = 0.018 + Case "예" '예" + q_R_elektr = 0.021 + End Select + End Select + Case "건식" '건식" + f_R_av = 1 '우선 1로 적용 추후 검토 + q_R_elektr = 0.045 + End Select + Q_c_f_R_elektr = Q_dot_R_outg * q_R_elektr * f_R_av * t_h_max + Else + Q_c_f_R_elektr = 0 + End If + + + Case "흡수식" '흡수식" + Q_dot_R_outg = Q_dot_c_outg * (1 + 1 / EER) + T_W_1_i = TOSG(dr냉방.냉각탑입구온도) + Select Case dr냉방.증발식건식냉각기.Trim + Case "증발식" '증발식" + l_min_i = TOSG(1.2103 - 0.0162 * theta_e) '원래는 습구온도로 입력요망 우선 외기건구온도로 입력 추후 수정 + 'f_R_av = (Log(1 - 0.5 / 0.8) * l_min_i / (Log(1 - 0.5 / 0.8) * 0.87)) ^ 2 ' 냉각탑 가동시간을 부분부하 25%이상이면 가동하는 것으로 계산 추후 수정 + + + If Q_dot_c_outg = 0 Or t_h_max = 0 Then '===================================================2014.03.07 추가 + f_R_av = 0 + Else + f_R_av = Q_c_outg_total * 4 / (Q_dot_c_outg * t_h_max) ' 냉각탑 가동시간을 부분부하 25%이상이면 가동하는 것으로 계산 추후 수정 + End If '===================================================2014.03.07 추가 + + + If f_R_av > 1 Then f_R_av = 1 ' 냉각탑 가동시간을 부분부하 25%이상이면 가동하는 것으로 계산하고 최대가동시간 이하로 계산 추후 수정 + Select Case dr냉방.증발식냉각기.Trim + Case "폐쇄형" + Select Case dr냉방.보조방음기유무.Trim + Case "아니오" + q_R_elektr = 0.033 + Case "예" + q_R_elektr = 0.04 + End Select + Case "개방형" + Select Case dr냉방.보조방음기유무.Trim + Case "아니오" + q_R_elektr = 0.018 + Case "예" + q_R_elektr = 0.021 + End Select + End Select + Case "건식" '건식" + f_R_av = 1 '우선 1로 적용 추후 검토 + q_R_elektr = 0.045 + End Select + Q_c_f_R_elektr = Q_dot_R_outg * q_R_elektr * f_R_av * t_h_max + + Select Case dr냉방.증발식건식냉각기.Trim + Case "증발식" + f_2_av = TOSG(1.7174 - 0.0217 * T_W_1_i) + Case "건식" + f_2_av = TOSG(2.3235 - 0.0294 * T_W_1_i) + Case Else + 'MsgBox("증발식건식냉각기를 확인할 수 없습니다" & vbCrLf & "Calc_CoolingSystem 429번줄 Case else 를 입력하세요", MsgBoxStyle.Critical, dr냉방.증발식건식냉각기) + + End Select + + '//13번째줄 + If k_n = 0 Then k_n = 0.01 ' 부분부하율이 0일 경우 부분부하를 0에서 0.1구간으로 설정 + f_1_av_up = TOSG(DSET.tbl_buha.Rows(13)(CInt(9 - Int((1 - k_n) * 10) + 2))) + If k_n < 0.1 Then + f_1_av_dn = f_1_av_up + Else + f_1_av_dn = TOSG(DSET.tbl_buha.Rows(13)(CInt(9 - Int((1 - k_n) * 10) + 1))) + End If + f_1_av = f_1_av_up - (f_1_av_up - f_1_av_dn) * (1 - (k_n * 10 - Int(k_n * 10))) + 'f_1_av = TOSG(DSET.tbl_buha.Rows(13)(CInt(9 - Int((1 - k_n) * 10) + 2))) 'Worksheets("부분부하율").Range("냉동기부분부하율1").Offset(13, 9 - Int((1 - k_n) * 10)) + PLV_av = f_1_av * f_2_av + + If PLV_av = 0 Then '===========================================2014.03.07 추가 + Q_c_outg_therm = 0 + Else + Q_c_outg_therm = Q_c_outg_total / (EER * PLV_av) + End If '===========================================2014.03.07 추가 + + + + ': 흡수식 냉동기에서 사용되는 보일러의 생산손실에너지 계산 + If dr냉방.열생산연결방식.ToString = "외부연결" Then '==============================2010.04.02 if문 추가 + + + '//냉방의 온수열생산기기로 지정된 난방기기만을 취한다 10.02.23 최적화중변경 + For Each Dr난방 As DS.tbl_nanbangkikiRow In DSET.tbl_nanbangkiki.Select("code = '" & dr냉방.온수열생산기기 & "' and code <> '0'", "code") + 'If Dr난방.code = dr냉방.온수열생산기기 Then ' Dr냉방.온수열생산기기 Then + + theta_VA = TOSG(Dr난방.급수온도) ' Worksheets("난방기기").Range("난방기기급수온도1").Offset(0, i_count_c_d - 1) + theta_RA = TOSG(Dr난방.환수온도) ' Worksheets("난방기기").Range("난방기기환수온도1").Offset(0, i_count_c_d - 1) + + theta_HK_m_beta_h_d = TOSG(0.5 * (theta_VA + theta_RA)) + + '---------------------------------------------------------------------------------------------------------------------------------- + '---------------------------------------------------------------------------------------------------------------------------------- + + '신재생 및 열병합 시스템 + Dim CNew As New CRenewable(DSET, Result) + If Dr난방.신재생연결여부 = "시스템연결" AndAlso Dr난방.연결된시스템 <> "0" Then ' Worksheets("난방기기").Range("신재생난방연결1").Offset(0, i_count_c_d - 1) = "시스템연결" Then + Dim Dr신재생 As DS.tbl_newRow = CType(DSET.tbl_new.Select("code='" & Dr난방.연결된시스템 & "' and code <> '0'")(0), DS.tbl_newRow) + Select Case Dr신재생.기기종류.Trim + Case "태양열" '//태양열 + '========================================================================================2010.04.02 추가 + If Q_c_outg_therm > 0 Then + Calc.Renewable.Calc_ThermalSolarSystem_EN(system_type, Dr신재생.code, i_count_month, d_op_max_mth, Q_h_outg_i, Q_c_outg_therm, Q_W_sol_out_m, Q_H_sol_out_m, W_sol_aux_m) + Q_c_outg_therm = Q_c_outg_therm - Q_W_sol_out_m + Q_c_aux = Q_c_aux + W_sol_aux_m + End If + '========================================================================================2010.04.02 추가 + Case "태양광" '//태양광 + Case "지열" '//지열 + Case "열병합" '//열병합 + If Q_c_outg_therm > 0 Then '===========================2010.04.02 And Q_c_outg_therm > 0 추가 + Select Case Dr신재생.가동연료.Trim + Case "난방유" '난방유" + CNew.Calc_CogenerationSystemEN(Dr신재생, 2, i_count_month, Q_c_outg_therm, t_h_max, Q_chp_outg, Q_c_f_chp) + Q_c_outg_therm = Q_c_outg_therm - Q_chp_outg + use_Oil = use_Oil + Q_c_f_chp + + Case "천연가스" '천연가스" + CNew.Calc_CogenerationSystemEN(Dr신재생, 2, i_count_month, Q_c_outg_therm, t_h_max, Q_chp_outg, Q_c_f_chp) + Q_c_outg_therm = Q_c_outg_therm - Q_chp_outg + use_LNG = use_LNG + Q_c_f_chp + + Case "액화가스" '액화가스" + CNew.Calc_CogenerationSystemEN(Dr신재생, 2, i_count_month, Q_c_outg_therm, t_h_max, Q_chp_outg, Q_c_f_chp) + Q_c_outg_therm = Q_c_outg_therm - Q_chp_outg + use_LPG = use_LPG + Q_c_f_chp + + End Select + End If + + End Select + End If + + + '---------------------------------------------------------------------------------------------------------------------------------- + '---------------------------------------------------------------------------------------------------------------------------------- + + + If Dr난방.열생산기기방식 = "보일러" Then ' Worksheets("난방기기").Range("열생산기기방식1").Offset(0, i_count_c_d - 1) = "보일러" Then + + Q_dot_N = TOSG(Dr난방.정격보일러효율) * age_heating ' Worksheets("난방기기").Range("난방기기정격출력1").Offset(0, i_count_c_d - 1) + If t_h_max = 0 Then '====================================2014.03.07 추가 + Q_dot_d_in = 0 + Else + Q_dot_d_in = Q_c_outg_therm / t_h_max + End If '====================================2014.03.07 추가 + + + + Select Case Dr난방.운전방식.Trim ' Worksheets("난방기기").Range("난방기기운전방식1").Offset(0, i_count_c_d - 1) + Case "단독가동" '단독가동" + beta_h = Q_dot_d_in / Q_dot_N '(3.2.7-64) : 단일보일러 시설 + Case "동시가동" ' 동시가동" + beta_h = Q_dot_d_in / (Q_dot_N * TOSG(Dr난방.보일러대수)) ' Worksheets("난방기기").Range("난방기기운전방식1").Offset(1, i_count_c_d - 1)) '(3.2.7-64) : 다수보일러 동시가동 + Case "순차가동" '순차가동" + For i_count_beta = 1 To CInt(TOSG(Dr난방.보일러대수)) + If Q_dot_d_in <= (Q_dot_N * i_count_beta) Then + beta_h = (Q_dot_d_in - Q_dot_N * (i_count_beta - 1)) / Q_dot_N * i_count_beta '다수보일러 대수제어 + n_beta = i_count_beta - 1 + Exit For + End If + Next + End Select + + + eta_k_100 = TOSG(Dr난방.정격보일러효율) * age_heating / 100 'Worksheets("난방기기").Range("난방기기정격효율1").Offset(0, i_count_c_d - 1) / 100 + eta_k_pl = eta_k_100 + f = -0.4 + Select Case Dr난방.보일러방식.Trim 'Worksheets("난방기기").Range("보일러방식1").Offset(0, i_count_c_d - 1) + Case "가스보일러" '가스보일러" + e = 8.5 + f = -0.4 + Case "기름보일러" '기름보일러" + e = 8.5 + f = -0.4 + Case "저온가스보일러" '저온가스보일러" + e = 4.5 + f = -0.4 + Case "저온기름보일러" '저온기름보일러" + e = 4.25 + Case "콘덴싱보일러" '콘덴싱보일러" + e = 4 + End Select + + q_B_70 = TOSG((e * (Q_dot_N ^ f)) / 100) + q_B_theta = q_B_70 '원래는 =q_B_70 * (theta_HK_m_beta_h_g - theta_i) / (70 - 20) 이지만 q_B_theta 와 q_B_70 이 같은 것으로 적용 추후검토 + + 'Select Case Worksheets("난방기기").Range("난방기기사용연료1").Offset(0, i_count_c_d - 1) + 'Case "난방유" + 'f_Hs_Hi = 1.06 + 'Case "천연가스" + 'f_Hs_Hi = 1.11 + 'Case "액화가스" + 'f_Hs_Hi = 1.09 + 'Case "석탄" + 'f_Hs_Hi = 1.04 + 'Case "갈탄" + 'f_Hs_Hi = 1.07 + 'Case "나무" + 'f_Hs_Hi = 1.08 + 'End Select + + f_Hs_Hi = 1 ' 국내는 총발열량을 기준으로 입력함으로 우선 1로 설정, 추후 검토 + + Q_dot_B_h = q_B_theta * (Q_dot_N / eta_k_100) * f_Hs_Hi '(3.2.7-71) + + Q_V_g_100 = (f_Hs_Hi - eta_k_100) / eta_k_100 * Q_dot_N + Q_V_g_pl = (f_Hs_Hi - eta_k_pl) / eta_k_pl * beta_k_pl * Q_dot_N + + '------------------------------------------------------------------------------------------------------ + + If beta_h > beta_k_pl Then + Q_c_g_v_i = ((beta_h - beta_k_pl) / (1 - beta_k_pl) * (Q_V_g_100 - Q_V_g_pl) + Q_V_g_pl) + Q_c_g_v_i = Q_c_g_v_i + ((Q_V_g_100 - Q_V_g_pl) + Q_V_g_pl) * n_beta + Else + Q_c_g_v_i = ((beta_h / beta_k_pl) * (Q_V_g_pl - Q_dot_B_h) + Q_dot_B_h) + End If + + + Q_c_g = Q_c_g_v_i * t_h_max ' 추후 검토 + + Else + + ':지역난방의 경우 적용 추후 검토 + Q_c_g = 0 + + End If + + If Dr난방.열생산기기방식 = "보일러" Then 'Worksheets("난방기기").Range("열생산기기방식1").Offset(0, i_count_c_d - 1) = "보일러" Then + Select Case Dr난방.사용연료.Trim ' Worksheets("난방기기").Range("난방기기사용연료1").Offset(0, i_count_c_d - 1) + Case "난방유" '난방유" + use_Oil = use_Oil + (Q_c_g + Q_c_outg_therm) * system_count '========2013.0818 수정 + + Case "천연가스" '천연가스" + use_LNG = use_LNG + (Q_c_g + Q_c_outg_therm) * system_count '========2013.0818 수정 + + Case "액화가스" '액화가스" + use_LPG = use_LPG + (Q_c_g + Q_c_outg_therm) * system_count '========2013.0818 수정 + + End Select + Else + Select Case Dr난방.열생산기기방식.Trim 'Worksheets("난방기기").Range("열생산기기방식1").Offset(0, i_count_c_d - 1) + Case "지역난방" '지역난방" + use_DH = use_DH + Q_c_outg_therm * system_count '========2013.0818 수정 + + Case "전기보일러" '전기보일러" + use_Elec = use_Elec + Q_c_outg_therm * system_count '========2013.0818 수정 + + End Select + + End If + + + ' End If + + + Next + '=================================================================================================2010.04.02 if문 추가 + ElseIf dr냉방.열생산연결방식 = "직화식" Then + Select Case dr냉방.사용연료.ToString + Case "난방유" + use_Oil = use_Oil + Q_c_outg_therm * system_count '========2013.0818 수정 + Case "천연가스" + use_LNG = use_LNG + Q_c_outg_therm * system_count '========2013.0818 수정 + Case "액화가스" + use_LPG = use_LPG + Q_c_outg_therm * system_count '========2013.0818 수정 + Case Else + MsgBox("냉동기기(" & dr냉방.설명 & ")가 직화식이나 사용연료가 없습니다.확인바랍니다.", vbOKOnly, "건물 에너지 평가 프로그램(ECO2)") + End Select + Else + MsgBox("냉동기기(" & dr냉방.설명 & ")의 열생산연결방식을 확인바랍니다.", vbOKOnly, "건물 에너지 평가 프로그램(ECO2)") + End If + + '=================================================================================================2010.04.02 if문 추가 + Case "지역냉방" '지역냉방" + '--------------------------------------------------------------------------------------------------2010.02.22 수정 + use_DC = use_DC + Q_c_outg_total * system_count + '--------------------------------------------------------------------------------------------------2010.02.22 수정 + Q_c_outg_therm = Q_c_outg_total + + End Select + + Q_c_f = Q_c_f + (Q_c_f_elektr + Q_c_f_R_elektr + Q_c_outg_therm + Q_c_g) * system_count + use_Elec = use_Elec + (Q_c_f_elektr + Q_c_f_R_elektr) * system_count + + + 'If i_count_month = 6 Then + ' i_count_month = 6 + 'End If + ' 분배에 대한 전기 에너지 소비 + For Each Dr분배 As DS.tbl_bunbaeRow In DSET.tbl_bunbae.Select("냉동기='" & dr냉방.code & "' and code <> '0'", "code") + 'If Dr분배.냉동기 = dr냉방.code Then ' Worksheets("냉방분배시스템").Range("냉동기분배1").Offset(0, i_count_c_d - 1) = Worksheets("냉방기기").Range("냉방생산기기1").Offset(0, i_count_chiller - 1) Then + + Q_dot_z = Q_dot_c_outg * (1 + 1 / EER) '(3.2.8-30) + Delta_theta_z_cl = TOSG(Dr분배.설정점에서의온도차) ' Worksheets("냉방분배시스템").Range("급수온도1").Offset(3, i_count_c_d - 1) 6 + c_cl = TOSG(Dr분배.냉매의비열) ' Worksheets("냉방분배시스템").Range("급수온도1").Offset(4, i_count_c_d - 1) 4.18 + rho_cl = TOSG(Dr분배.냉매의밀도) ' Worksheets("냉방분배시스템").Range("급수온도1").Offset(5, i_count_c_d - 1) 1000 + V_dot_z = (3600 * Q_dot_z) / (Delta_theta_z_cl * c_cl * rho_cl) '(3.2.8-29) + L = TOSG(Dr분배.공급범위의길이) ' Worksheets("냉방분배시스템").Range("공급범위길이1").Offset(0, i_count_c_d - 1) + b = TOSG(Dr분배.공급범위의넓이) 'Worksheets("냉방분배시스템").Range("공급범위길이1").Offset(1, i_count_c_d - 1) + n_G = TOSG(Dr분배.열층의수) ' Worksheets("냉방분배시스템").Range("공급범위길이1").Offset(2, i_count_c_d - 1) + h_G = TOSG(Dr분배.층고) 'Worksheets("냉방분배시스템").Range("공급범위길이1").Offset(3, i_count_c_d - 1) + L_max = 2 * (L + b / 2 + h_G * n_G + 10) '(3.2.8-32) + R = TOSG(Dr분배.배관의압력손실) ' Worksheets("냉방분배시스템").Range("급수온도1").Offset(7, i_count_c_d - 1) 0.3 + z = TOSG(Dr분배.개별저항비율) '("냉방분배시스템").Range("급수온도1").Offset(8, i_count_c_d - 1) 0.4 + Delta_P_WUE = TOSG(Dr분배.생산기기압력손실) ' Worksheets("냉방분배시스템").Range("생산기기압력손실1").Offset(0, i_count_c_d - 1) + Delta_P_WUV = TOSG(Dr분배.사용기기압력손실) ' Worksheets("냉방분배시스템").Range("생산기기압력손실1").Offset(1, i_count_c_d - 1) + Delta_P_RV = TOSG(Dr분배.제어밸브압력손실) ' Worksheets("냉방분배시스템").Range("생산기기압력손실1").Offset(2, i_count_c_d - 1) + + Delta_p_z = R * L_max * (1 + z) + Delta_P_WUE + Delta_P_RV + Delta_P_WUV '(3.2.8-31) R(7-Tab.11), Delta_P_WUE, Delta_P_RV, Delta_P_WUV (7-Tab.12) + + P_d_hydr = 1000 * Delta_p_z * V_dot_z / 3600 '(3.2.8-28) + + 'f_e = f_dash_e * (1 + (nu_cl ^ 2 / (16 * P_d_hydr)) ^ 0.4) '기존건물 관련 + 'f_e = (1.25 + (200 / P_d_hydr) ^ 0.5) * f_Adap * b '(3.2.8-38) '기존건물 관련 + P_Pump = TOSG(Dr분배.펌프동력) 'Worksheets("냉방분배시스템").Range("급수온도1").Offset(9, i_count_c_d - 1) + 'P_Pump = Worksheets("냉방분배시스템").Range("급수온도1").Offset(9, i_count_c_d - 1) << 이거오류인듯 펌프는 8번인덱스여야한다.9번줄에는 아무것도 없다. + + If P_d_hydr = 0 Then '===================================================2014.03.07 추가 + f_e = 0 + Else + f_e = P_Pump / P_d_hydr '원래는 P_hydr '(3.2.8-37) + End If '===================================================2014.03.07 추가 + + + + If Dr분배.펌프운전제어유무 = "제어" Then ' Worksheets("냉방분배시스템").Range("급수온도1").Offset(-1, i_count_c_d - 1) = "제어" Then + c_p1 = 0.85 + c_p2 = 0.15 + ElseIf Dr분배.펌프운전제어유무 = "대수제어" Then + c_p1 = 0.75 + c_p2 = 0.25 + Else + c_p1 = 0.25 + c_p2 = 0.75 + End If + + 'beta_d_l = beta_dash_ + (1 - beta_dash_d_l) * V_dot_z_min / V_dot_z '(3.2.8-35) + If Q_z_outg_l <> 0 Then + + If Q_dot_z = 0 Or t_h_max = 0 Then '===========================================2014.03.07 추가 + beta_d_l = 0 + e_d_l = 0 + Else + beta_d_l = Q_z_outg_l / (Q_dot_z * t_h_max) '(3.2.8-34) t_d_l 을 t_h_max으로 사용 + + e_d_l = f_e * (c_p1 + c_p2 / beta_d_l) '(3.2.8-36) + + End If '===========================================2014.03.07 추가 + + + W_d_hydr_l = P_d_hydr / 1000 * t_h_max * beta_d_l * f_Abgl '(3.2.8-27) t_d_l 을 t_h_max으로 사용 + + Q_z_aux_d_l = W_d_hydr_l * e_d_l '(3.2.8-26) + 'Q_z_aux_d_a = sigma(Q_z_zux_d_l) '(3.2.8-25) + + Q_c_aux = Q_c_aux + Q_z_aux_d_l * system_count + End If + + 'End If + + Next + + Next '//for zonerow + End Sub + Private Sub Calc_개별기기미적용시(ByRef dr냉방 As DS.tbl_nangbangkikiRow, Mon As String, 비율 As Single, i_count_month As Integer, theta_e As Decimal) + + pLog.Add(String.Format(">>Calc_Calc_개별기기미적용시 냉방기={0},Mon={1},비율={2},월={3},theta_e={4}", dr냉방.code, Mon, 비율, i_count_month, theta_e)) + + Dim dr존데이터() As DS.tbl_zoneRow = DSET.tbl_zone.Select("(공조냉방생산기기 = '" & dr냉방.code & "' and 냉난방공조 <> '기능없음' and (외기부하처리여부 = '예' or 냉난방공조 = '냉난방' or 냉난방공조 = '냉방') ) or (열생산냉방생산기기='" & dr냉방.code & "' and 냉난방방식 <> '난방' and 냉난방방식 <> '기능없음') and code <> '0'", "code") + If dr존데이터.Length > 0 Then + Q_c_b = 0 + Q_c_star_b = 0 + t_h_max = 0 + Q_c_f_elektr = 0 + Q_c_outg_therm = 0 + Q_c_g = 0 + Q_c_f_R_elektr = 0 + system_count = 0 + '==================================2014.07.01 수정 + d_op_max_mth = 0 + '==================================2014.07.01 수정 + + End If + + For Each Dr존 As DS.tbl_zoneRow In dr존데이터 '//5,1,1 + Dim Drow분석() As DSR.월별에너지분석Row = CType(DSETR.월별에너지분석.Select("월='" & Mon & "' and 존='" & Dr존.code & "'"), DSR.월별에너지분석Row()) + ' 존데이터를가져올떄 해당 냉방기기에서 사용한 존만 가져왔따. + ' If Dr존.열생산냉방생산기기 <> "" Then ' Worksheets("입력존").Range("입력냉방생산기기1").Offset(0, i_count_zone - 1) <> "" Then + ' If Dr존.열생산냉방생산기기 = dr냉방.code Then ' Worksheets("입력존").Range("입력냉방생산기기1").Offset(0, i_count_zone - 1) = Worksheets("냉방기기").Range("냉방생산기기1").Offset(0, i_count_chiller - 1) Then + + system_count = 1 ''IIf(dr냉방.개별기기적용 = "0", 1, TOSG(Dr존.입력존의수)) '//20130818 + + '=========================================================2014.07.01 수정 + 'If dr냉방.헤더적용 Then + ' Q_c_b_i = A_Q_c_b_i + ' Q_c_b_i *= 비율 '//130818 + ' Q_c_b = Q_c_b_i '//Q_c_b + Q_c_b_i + + ' Q_c_star_b_i = A_Q_c_star_b_i + ' Q_c_star_b_i *= 비율 '//130818 + ' Q_c_star_b = Q_c_star_b_i '//Q_c_star_b + Q_c_star_b_i 2014.04.30 수정 + 'Else + If Dr존.열생산냉방생산기기 = dr냉방.code And (Dr존.냉난방방식 = "냉난방" OrElse Dr존.냉난방방식 = "냉방") Then + Q_c_b_i = Result.E분석(i_count_month).냉방에너지요구량열(Dr존.code) / system_count '2013.08.18 수정 ' CSng(Drow분석(0).냉방요구량열) ' Sheets("" & i_count_month & "").Cells(10, 7 + i_count_zone) + Q_c_b = Q_c_b + Q_c_b_i + End If + If Dr존.공조냉방생산기기 = dr냉방.code And Dr존.냉난방공조 = "냉난방" OrElse Dr존.냉난방공조 = "냉방" OrElse ((Dr존.냉난방공조 = "환기" OrElse Dr존.냉난방공조 = "난방") And Dr존.외기부하처리여부 = "예") Then + If (Dr존.냉난방공조 = "환기" OrElse Dr존.냉난방공조 = "난방") And Dr존.외기부하처리여부 = "예" Then '// 2010.11.19 추가 + Q_c_star_b_i = TOSG(Drow분석(0).냉방요구량공조) / system_count '2013.08.18 수정 '//2010.11.19 추가 + Else + Q_c_star_b_i = Result.E분석(i_count_month).공조에너지요구량냉방(Dr존.code) / system_count '2013.08.18 수정 ' CSng(Drow분석(0).공조요구량냉방) ' Sheets("" & i_count_month & "").Cells(21, 7 + i_count_zone) + End If + Q_c_star_b = Q_c_star_b + Q_c_star_b_i + End If + 'End If + + '===================================================================================2010.2.21 수정 + ' Dim Drow최대() As DSR.최대냉난방부하Row = CType(DSETR.최대냉난방부하.Select("zone='" & Dr존.code & "'"), DSR.최대냉난방부하Row()) + + '=========================================================2014.07.01 수정 + 'If dr냉방.헤더적용 Then + ' '//헤더로 묶인 냉방기기의 존들에서 + ' d_op_max_mth = a_d_op_max_mth + ' t_h_max = a_t_h_max + 'Else + Dim Dr프로필 As DS.tbl_profileRow = CType(DSET.tbl_profile.Select("code='" & Dr존.프로필 & "' and code <> '0'")(0), DS.tbl_profileRow) + If i_count_month = 0 Then + d_op_mth = 0 + Else + d_op_mth = CInt(Dr프로필("day" & Format(i_count_month, "00"))) + End If + If d_op_max_mth < d_op_mth Then d_op_max_mth = d_op_mth + If t_h_max < TOSG(Dr프로필.일일운전시간) * d_op_mth Then t_h_max = CInt(TOSG(Dr프로필.일일운전시간) * d_op_mth) + 'End If + + '===================================================================================2010.2.21 수정 + ' End If + ' End If + Next + '=========================================================2014.07.01 수정 + If dr냉방.헤더적용 Then + Q_c_b = A_Q_c_b_i * 비율 + Q_c_star_b = A_Q_c_star_b_i * 비율 + End If + + 'Q_vh_b = Sheets("" & i_count_month & "").Cells(19, 7 + i_count_zone) + 'Q_vc_b = Sheets("" & i_count_month & "").Cells(21, 7 + i_count_zone) + 'Q_vm_b = Sheets("" & i_count_month & "").Cells(23, 7 + i_count_zone) + + + '========================================================================================================================================== + ' 가열유닛에 대한 사용에너지(3차 에너지) + ' 외부 공조덕트가 없어서 Q_vh_d 는 0으로 적용 + + 'Q_dot_V_H_max = V_dot_star_rho_L(c_p_L * (theta_ZUL_wi - theta_AUL_wi) - Delta_h_WRG) '(3.2.5-58) + 'Q_dot_V_H_max = V_dot_star * rho_L(h_ZUL_wi - h_AUL_wi - Delta_h_WRG) '(3.2.5-57) + 'b_VH_a = sigma1_12(b_VH_month) '(3.2.8-7) + 'b_VH_mth = Q_vh_b / Q_dot_V_H_max '(3.2.8-6) + 't_H_r = t_H_r_14_12h + (t_H_r_22_12h - t_H_r_14_12h) * (theta_V_mech - 14) / 8 '(3-B.1) theta_V_mech은 (3-C.1) + 't_H_star_op_mth = t_H_r * b_VH_mth / b_VH_a '(3.2.8-5) + 'Q_vh_d = f_vh_d * A_K_A * t_H_star_opo_mth '(3.2.8-10) f_vh_d=16W/m + + 'Q_vh_ce = (1 - eta_vh_ce) * Q_vh_b '(3.2.8-9) eta_vh_ce 는 1로 Q_vh_ce 는 0이 됨 + 'Q_h_star_b = Q_vh_b 'Q_h_star_b = Q_vh_b + Q_vh_ce + Q_vh_d '(3.2.8-2) + '========================================================================================================================================== + + + + '========================================================================================================================================== + ' 냉각 유닛에 대한 사용 에너지(3차 에너지) + ' 외부 공조덕트가 없어서 Q_vc_d 는 0으로 적용 + + 'Q_dot_V_C_max = V_dot_star * rho_L(h_AUL_so - h_ZUL_so - Delta_h_WRG) '(3.2.5-62) + 'b_VC_a = sigma1_12(b_VC_month) '(3.2.8-13) + 'b_VC_mth = Q_vc_b / Q_dot_V_C_max '(3.2.8-12) + 't_C_r = (t_C_r_14_12h + (t_C_r_22_12h - t_C_r_14_12h) * (theta_V_mech - 14) / 8) * f_h_C '(3-B.2) theta_V_mech은 (3-C.1) + 't_C_star_op_mth = t_C_r * b_VC_mth / b_VC_a '(3.2.8-11) + 'Q_vc_d = f_vc_d * A_K_A * t_C_star_opo_mth '(3.2.8-10) f_vh_d=9W/m + 'Q_vc_ce = (1 - eta_vc_ce) * Q_vc_b '(3.2.8-9) eta_vc_ce 는 1로 Q_vc_ce 는 0이 됨 + + 'Q_c_star_b = Q_vc_b 'Q_c_star_b = Q_vc_b + Q_vc_ce + Q_vc_d '(3.2.8-8) + + '========================================================================================================================================== + + + '가습 + 'Q_m_star_b = Q_vm_b '(3.2.8-14) + + + ' 실-냉방 냉열 공급 + + 'Q_c_b = Sheets("" & i_count_month & "").Cells(7, 7 + i_count_zone) + + Q_c_d = (1 - eta_c_d) * Q_c_b '(3.2.8-21) eta_c_d는 (Tab.7-8) + Q_c_ce = ((1 - eta_c_ce) + (1 - eta_c_ce_sens)) * Q_c_b '(3.2.5-20) eta_c_ce는(Tab.7-8), eta_c_ce_sens는 (Tab.7-7) + + Q_c_outg = Q_c_b + Q_c_ce + Q_c_d + Q_c_s '(3.2.8-19) + + + + '========================================================================================================================================== + ' 실-냉방 2차 공기 송풍기의 전기에너지 요구량 + ' 추후 세부 변수 검토 + + 'beta_c_i = beat_c_we = Q_c_b_we / (Q_c_max_res * t_c_op_we) '(2-D.7) + 'beta_c_i = beta_c_nutz = Q_c_b_nutz / (Q_c_max_res * t_c_op_nutz) + 't_c_i = t_mth_nutz = d_nutz * t_c_op_nutz '(2-D.8) t_c_i=t_mth_we=d_we*t_c_op_we + 't_c_i = t_mth_i * beta_c_i / beta_c_grenz '(2-D.6) + 't_c_op = t_c_NR + t_c_we '(2-D.5) + 'Q_c_outg = Q_c_b + Q_c_ce + Q_c_d + Q_c_s '(3.2.8-19) + 'Q_c_ce_aux = f_c_ce_aux * Q_c_outg * t_c_op / 1000 '(3.2.8-23) f_c_ce_aux 는 (Tab.3.93) + Q_c_ce_aux = f_c_ce_aux * Q_c_outg * t_h_max / 1000 + + + '========================================================================================================================================== + + + + + '공조-냉방 냉열 공급 + + Q_c_star_d = (1 - eta_c_star_d) * Q_c_star_b '(3.2.8-18) eta_c_star_d는 (Tab.3.91) + Q_c_star_ce = ((1 - eta_c_star_ce) + (1 - eta_c_star_ce_sens)) * Q_c_star_b '(3.2.8-16) eta_c_star_ce는 (Tab.3.91), eta_c_star_ce_sens는 (Tab.3.91) + + Q_c_star_outg = Q_c_star_b + Q_c_star_ce + Q_c_star_d + Q_c_star_s '(3.2.8-15) + Q_z_star_outg_l = Q_c_star_outg + + + ' 공조기기 가습에 필요한 생산기의 이용열 교부 + + + 'Q_m_star_d = 0 + 'Q_m_star_ce = 0 + 'Q_m_star_b = Q_vm_b '(3.2.8-14) + 'Q_m_star_outg = Q_m_star_b 'Q_m_star_outg = Q_m_star_b + Q_m_star_ce + Q_m_star_d '(3.2.8-24) + + + Q_c_outg_total = Q_c_outg + Q_c_star_outg + + Q_z_outg_l = Q_c_outg_total + + + + '================================================================================================================================== + '================================================================================================================================== + '지열시스템 + + Dim CRenew As New CRenewable(DSET, Result) + If dr냉방.신재생연결여부 = "시스템연결" AndAlso dr냉방.연결된시스템 <> "0" Then ' 시스템연결" Then + Dim Dr신재생 As DS.tbl_newRow = CType(DSET.tbl_new.Select("code='" & dr냉방.연결된시스템 & "' and code <> '0'")(0), DS.tbl_newRow) + '//연결되었을시에는 + Select Case Dr신재생.기기종류.Trim + Case "태양열" '//태양열 + Case "태양광" '//태양광 + Case "지열" '//지열 + Select Case Dr신재생.가동연료.Trim + Case "전기" '전기" + CRenew.Calc_HeatpumpSystem(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_HeatpumpSystem(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_HeatpumpSystem(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 + + '================================================================================================================================== + '================================================================================================================================== + + EER = TOSG(dr냉방.열성능비) * age ' Dr냉방.열성능비 + Q_dot_c_outg = TOSG(dr냉방.냉동기용량) ' dr냉방.냉동기용량 + + If Q_dot_c_outg = 0 Or t_h_max = 0 Then '==================================================================================2014.03.07 추가 + k_n = 0 + Else + k_n = Q_c_outg_total / (Q_dot_c_outg * t_h_max) + End If '==================================================================================2014.03.07 추가 + + + If k_n > 1 Then k_n = 1 + + k_n_index = 100 ' 조건에 없는 압축방식에서 에러 발생 유도함 + + Select Case dr냉방.냉동기방식.Trim 'Dr냉방.냉동기방식 + Case "압축식", "압축식(LNG)" '압축식" + T_W_1_i = TOSG(dr냉방.냉각탑입구온도) ' Dr냉방.냉각탑입구온도 + Select Case dr냉방.냉동기종류.Trim ' Dr냉방.냉동기종류 + Case "수냉식" '수냉식" + Select Case dr냉방.냉동기압축방식.Trim ' Dr냉방.냉동기압축방식 + Case "왕복동/스크롤 압축기" '왕복동/스크롤압축기" + Select Case dr냉방.압축기제어방식.Trim 'Dr냉방.압축기제어방식 + Case "on/off제어" + k_n_index = 7 + f_2_av = 1 + Case "다단제어" '다단제어" + k_n_index = 8 + Select Case dr냉방.증발식건식냉각기.Trim ' Dr냉방.증발식건식냉각기 + Case "증발식" '증발식" + f_2_av = TOSG(2.0614 - 0.0307 * T_W_1_i) + Case "건식" '건식" + f_2_av = TOSG(2.1181 - 0.0249 * T_W_1_i) + Case Else + MsgBox("22") + End Select + Case "실린더off" + k_n_index = 9 + Select Case dr냉방.증발식건식냉각기.Trim + Case "증발식" '증발식" + f_2_av = TOSG(2.0614 - 0.0307 * T_W_1_i) + Case "건식" '건식" + f_2_av = TOSG(2.1181 - 0.0249 * T_W_1_i) + Case Else + MsgBox("21") + End Select + Case "바이패스제어" '바이패스제어" + k_n_index = 10 + f_2_av = 1 + Case Else + MsgBox("19") + End Select + Case "스크류압축기" '스크류압축기" + k_n_index = 11 + Select Case dr냉방.증발식건식냉각기.Trim + Case "증발식" '증발식" + f_2_av = TOSG(2.0614 - 0.0307 * T_W_1_i) + Case "건식" '건식" + f_2_av = TOSG(3.1851 - 0.0486 * T_W_1_i) + Case Else + MsgBox("18") + End Select + Case "터보압축기" '터보압축기" + k_n_index = 12 + Select Case dr냉방.증발식건식냉각기.Trim + Case "증발식" '증발식" + f_2_av = TOSG(2.0614 - 0.0307 * T_W_1_i) + Case "건식" '건식" + f_2_av = TOSG(2.1181 - 0.0249 * T_W_1_i) + Case Else + MsgBox("16") + End Select + Case Else + MsgBox("17") + End Select + + Case "공냉식" '공냉식" + Select Case dr냉방.냉동기압축방식.Trim + Case "왕복동/스크롤 압축기" '왕복동/스크롤압축기" + Select Case dr냉방.압축기제어방식.Trim + Case "on/off제어" + k_n_index = 0 + f_2_av = 1 + Case "다단제어" '다단제어" + k_n_index = 1 + f_2_av = 1 + Case Else + MsgBox("15") + End Select + Case "스크류압축기" '스크류압축기" + k_n_index = 2 + f_2_av = 1 + Case Else + MsgBox("14") + End Select + + Case "실내공조시스템" '실내공조시스템" + Select Case dr냉방.냉동기설비시스템.Trim ' Dr냉방.냉동기설비시스템 + Case "콤팩트형시스템" '콤팩트형시스템" + k_n_index = 3 + f_2_av = 1 + Case "실내외분리시스템" '실내외분리시스템" + Select Case dr냉방.제어방식.Trim.ToLower '냉동기설비시스템의제어방식 Dr냉방.제어방식 + Case "on/off제어" + k_n_index = 3 + f_2_av = 1 + Case "회전수제어" '회전수제어" + k_n_index = 5 + f_2_av = 1 + Case Else + MsgBox(dr냉방.제어방식.Trim) + End Select + Case "멀티분리시스템" '멀티분리시스템" + Select Case dr냉방.제어방식.Trim + Case "on/off제어" + k_n_index = 4 + f_2_av = 1 + Case "회전수제어" '회전수제어" + k_n_index = 6 + f_2_av = 1 + Case Else + MsgBox("11") + End Select + Case Else + MsgBox("13") + End Select + Case Else + MsgBox("30") + End Select + '//이부분정확히 살펴보아야할듯 + If k_n = 0 Then k_n = 0.001 ' 부분부하율이 0일 경우 부분부하를 0에서 0.1구간으로 설정 + 'Dim Drow부분부하() As DS.tbl_buhaRow = DSET.tbl_buha.Rows(k_n_index) '.Select("code='" & Format(9 - Int((1 - k_n) * 10), "00") & "'") + + If k_n_index >= 100 Then + LogSB.AppendLine("냉방기기(" & dr냉방.설명 & ")의 냉동기방식(" & dr냉방.냉동기방식.Trim & ")에따른 종류(" & dr냉방.냉동기종류.Trim & ")를 확인할 수 없습니다") + Return + Else + f_1_av_up = TOSG(DSET.tbl_buha.Rows(k_n_index)(CInt(9 - Int((1 - k_n) * 10) + 2))) + If k_n < 0.1 Then + f_1_av_dn = f_1_av_up + Else + f_1_av_dn = TOSG(DSET.tbl_buha.Rows(k_n_index)(CInt(9 - Int((1 - k_n) * 10) + 1))) + End If + f_1_av = f_1_av_up - (f_1_av_up - f_1_av_dn) * (1 - (k_n * 10 - Int(k_n * 10))) + + 'f_1_av = TOSG(DSET.tbl_buha.Rows(k_n_index)(CInt(9 - Int((1 - k_n) * 10) + 2))) ' Worksheets("부분부하율").Range("냉동기부분부하율1").Offset(k_n_index, 9 - Int((1 - k_n) * 10)) + End If + + PLV_av = f_1_av * f_2_av + + ' If i_count_month = 8 Then + ' Dim data As String = vbCrLf + "미적용시 " + i_count_month.ToString() + "월 ply_av=" + PLV_av.ToString() + ' My.Computer.FileSystem.WriteAllText(My.Application.Info.DirectoryPath & "\kn.txt", data, True, System.Text.Encoding.Default) + ' End If + + If PLV_av = 0 Then '===========================================================================2014.03.07 추가 + Q_c_f_elektr = 0 + Q_c_outg_therm = 0 + Else + If dr냉방.냉동기방식 = "압축식" Then + Q_c_f_elektr = Q_c_outg_total / (EER * PLV_av) + '======================================================================= 2010.10.5 추가 + ElseIf dr냉방.냉동기방식 = "압축식(LNG)" Then + Q_c_outg_therm = Q_c_outg_total / (EER * PLV_av) + use_LNG = use_LNG + Q_c_outg_therm + '======================================================================= 2010.10.5 추가 + End If + End If '===========================================================================2014.03.07 추가 + + + + If (dr냉방.냉동기방식 = "압축식" Or dr냉방.냉동기방식 = "압축식(LNG)") And dr냉방.냉동기종류 = "수냉식" Then 'If Dr냉방.냉동기방식 = "압축식" And Dr냉방.냉동기종류 = "수냉식" Then + Q_dot_R_outg = Q_dot_c_outg * (1 + 1 / EER) + Select Case dr냉방.증발식건식냉각기.Trim + Case "증발식" '증발식" + l_min_i = TOSG(1.2103 - 0.0162 * theta_e) '원래는 습구온도로 입력요망 우선 외기건구온도로 입력 추후 수정 + 'f_R_av = (Log(1 - 0.5 / 0.8) * l_min_i / (Log(1 - 0.5 / 0.8) * 0.87)) ^ 2 ' 냉각탑 가동시간을 부분부하 25%이상이면 가동하는 것으로 계산 추후 수정 + + If Q_dot_c_outg = 0 Or t_h_max = 0 Then '====================================================================2014.03.07 추가 + f_R_av = 0 + Else + f_R_av = Q_c_outg_total * 4 / (Q_dot_c_outg * t_h_max) ' 냉각탑 가동시간을 부분부하 25%이상이면 가동하는 것으로 계산 추후 수정 + End If '====================================================================2014.03.07 추가 + + + + + If f_R_av > 1 Then f_R_av = 1 ' 냉각탑 가동시간을 부분부하 25%이상이면 가동하는 것으로 계산하고 최대가동시간 이하로 계산 추후 수정 + Select Case dr냉방.증발식냉각기.Trim 'Dr냉방.증발식냉각기 + Case "폐쇄형" '폐쇄형" + Select Case dr냉방.보조방음기유무.Trim 'Dr냉방.보조방음기유무 + Case "아니오" '아니오" + q_R_elektr = 0.033 + Case "예" '예" + q_R_elektr = 0.04 + End Select + Case "개방형" '개방형" + Select Case dr냉방.보조방음기유무.Trim + Case "아니오" '아니오" + q_R_elektr = 0.018 + Case "예" '예" + q_R_elektr = 0.021 + End Select + End Select + Case "건식" '건식" + f_R_av = 1 '우선 1로 적용 추후 검토 + q_R_elektr = 0.045 + End Select + Q_c_f_R_elektr = Q_dot_R_outg * q_R_elektr * f_R_av * t_h_max + Else + Q_c_f_R_elektr = 0 + End If + + + Case "흡수식" '흡수식" + Q_dot_R_outg = Q_dot_c_outg * (1 + 1 / EER) + T_W_1_i = TOSG(dr냉방.냉각탑입구온도) + Select Case dr냉방.증발식건식냉각기.Trim + Case "증발식" '증발식" + l_min_i = TOSG(1.2103 - 0.0162 * theta_e) '원래는 습구온도로 입력요망 우선 외기건구온도로 입력 추후 수정 + 'f_R_av = (Log(1 - 0.5 / 0.8) * l_min_i / (Log(1 - 0.5 / 0.8) * 0.87)) ^ 2 ' 냉각탑 가동시간을 부분부하 25%이상이면 가동하는 것으로 계산 추후 수정 + If Q_dot_c_outg = 0 Or t_h_max = 0 Then '====================================================================2014.03.07 추가 + f_R_av = 0 + Else + f_R_av = Q_c_outg_total * 4 / (Q_dot_c_outg * t_h_max) ' 냉각탑 가동시간을 부분부하 25%이상이면 가동하는 것으로 계산 추후 수정 + End If '====================================================================2014.03.07 추가 + If f_R_av > 1 Then f_R_av = 1 ' 냉각탑 가동시간을 부분부하 25%이상이면 가동하는 것으로 계산하고 최대가동시간 이하로 계산 추후 수정 + Select Case dr냉방.증발식냉각기.Trim + Case "폐쇄형" + Select Case dr냉방.보조방음기유무.Trim + Case "아니오" + q_R_elektr = 0.033 + Case "예" + q_R_elektr = 0.04 + End Select + Case "개방형" + Select Case dr냉방.보조방음기유무.Trim + Case "아니오" + q_R_elektr = 0.018 + Case "예" + q_R_elektr = 0.021 + End Select + End Select + Case "건식" '건식" + f_R_av = 1 '우선 1로 적용 추후 검토 + q_R_elektr = 0.045 + End Select + Q_c_f_R_elektr = Q_dot_R_outg * q_R_elektr * f_R_av * t_h_max + + Select Case dr냉방.증발식건식냉각기.Trim + Case "증발식" + f_2_av = TOSG(1.7174 - 0.0217 * T_W_1_i) + Case "건식" + f_2_av = TOSG(2.3235 - 0.0294 * T_W_1_i) + Case Else + 'MsgBox("증발식건식냉각기를 확인할 수 없습니다" & vbCrLf & "Calc_CoolingSystem 429번줄 Case else 를 입력하세요", MsgBoxStyle.Critical, dr냉방.증발식건식냉각기) + + End Select + + '//13번째줄 + If k_n = 0 Then k_n = 0.01 ' 부분부하율이 0일 경우 부분부하를 0에서 0.1구간으로 설정 + f_1_av_up = TOSG(DSET.tbl_buha.Rows(13)(CInt(9 - Int((1 - k_n) * 10) + 2))) + If k_n < 0.1 Then + f_1_av_dn = f_1_av_up + Else + f_1_av_dn = TOSG(DSET.tbl_buha.Rows(13)(CInt(9 - Int((1 - k_n) * 10) + 1))) + End If + f_1_av = f_1_av_up - (f_1_av_up - f_1_av_dn) * (1 - (k_n * 10 - Int(k_n * 10))) + 'f_1_av = TOSG(DSET.tbl_buha.Rows(13)(CInt(9 - Int((1 - k_n) * 10) + 2))) 'Worksheets("부분부하율").Range("냉동기부분부하율1").Offset(13, 9 - Int((1 - k_n) * 10)) + PLV_av = f_1_av * f_2_av + + If PLV_av = 0 Then '==============================================2014.03.07 추가 + Q_c_outg_therm = 0 + Else + Q_c_outg_therm = Q_c_outg_total / (EER * PLV_av) + End If '==============================================2014.03.07 추가 + + + + ': 흡수식 냉동기에서 사용되는 보일러의 생산손실에너지 계산 + If dr냉방.열생산연결방식.ToString = "외부연결" Then '==============================2010.04.02 if문 추가 + + + '//냉방의 온수열생산기기로 지정된 난방기기만을 취한다 10.02.23 최적화중변경 + For Each Dr난방 As DS.tbl_nanbangkikiRow In DSET.tbl_nanbangkiki.Select("code = '" & dr냉방.온수열생산기기 & "' and code <> '0'", "code") + 'If Dr난방.code = dr냉방.온수열생산기기 Then ' Dr냉방.온수열생산기기 Then + + theta_VA = TOSG(Dr난방.급수온도) ' Worksheets("난방기기").Range("난방기기급수온도1").Offset(0, i_count_c_d - 1) + theta_RA = TOSG(Dr난방.환수온도) ' Worksheets("난방기기").Range("난방기기환수온도1").Offset(0, i_count_c_d - 1) + + theta_HK_m_beta_h_d = TOSG(0.5 * (theta_VA + theta_RA)) + + '---------------------------------------------------------------------------------------------------------------------------------- + '---------------------------------------------------------------------------------------------------------------------------------- + + '신재생 및 열병합 시스템 + Dim CNew As New CRenewable(DSET, Result) + If Dr난방.신재생연결여부 = "시스템연결" AndAlso Dr난방.연결된시스템 <> "0" Then ' Worksheets("난방기기").Range("신재생난방연결1").Offset(0, i_count_c_d - 1) = "시스템연결" Then + Dim Dr신재생 As DS.tbl_newRow = CType(DSET.tbl_new.Select("code='" & Dr난방.연결된시스템 & "' and code <> '0'")(0), DS.tbl_newRow) + Select Case Dr신재생.기기종류.Trim + Case "태양열" '//태양열 + '========================================================================================2010.04.02 추가 + If Q_c_outg_therm > 0 Then + Calc.Renewable.Calc_ThermalSolarSystem_EN(system_type, Dr신재생.code, i_count_month, d_op_max_mth, Q_h_outg_i, Q_c_outg_therm, Q_W_sol_out_m, Q_H_sol_out_m, W_sol_aux_m) + Q_c_outg_therm = Q_c_outg_therm - Q_W_sol_out_m + Q_c_aux = Q_c_aux + W_sol_aux_m + End If + '========================================================================================2010.04.02 추가 + Case "태양광" '//태양광 + Case "지열" '//지열 + Case "열병합" '//열병합 + If Q_c_outg_therm > 0 Then '===========================2010.04.02 And Q_c_outg_therm > 0 추가 + Select Case Dr신재생.가동연료.Trim + Case "난방유" '난방유" + CNew.Calc_CogenerationSystemEN(Dr신재생, 2, i_count_month, Q_c_outg_therm, t_h_max, Q_chp_outg, Q_c_f_chp) + Q_c_outg_therm = Q_c_outg_therm - Q_chp_outg + use_Oil = use_Oil + Q_c_f_chp + + Case "천연가스" '천연가스" + CNew.Calc_CogenerationSystemEN(Dr신재생, 2, i_count_month, Q_c_outg_therm, t_h_max, Q_chp_outg, Q_c_f_chp) + Q_c_outg_therm = Q_c_outg_therm - Q_chp_outg + use_LNG = use_LNG + Q_c_f_chp + + Case "액화가스" '액화가스" + CNew.Calc_CogenerationSystemEN(Dr신재생, 2, i_count_month, Q_c_outg_therm, t_h_max, Q_chp_outg, Q_c_f_chp) + Q_c_outg_therm = Q_c_outg_therm - Q_chp_outg + use_LPG = use_LPG + Q_c_f_chp + + End Select + End If + + End Select + End If + + + '---------------------------------------------------------------------------------------------------------------------------------- + '---------------------------------------------------------------------------------------------------------------------------------- + + + If Dr난방.열생산기기방식 = "보일러" Then ' Worksheets("난방기기").Range("열생산기기방식1").Offset(0, i_count_c_d - 1) = "보일러" Then + + Q_dot_N = TOSG(Dr난방.정격보일러효율) * age_heating ' Worksheets("난방기기").Range("난방기기정격출력1").Offset(0, i_count_c_d - 1) + + If t_h_max = 0 Then '===========================================================2014.03.07 추가 + beta_h = 0 + Else + Q_dot_d_in = Q_c_outg_therm / t_h_max + + Select Case Dr난방.운전방식.Trim ' Worksheets("난방기기").Range("난방기기운전방식1").Offset(0, i_count_c_d - 1) + Case "단독가동" '단독가동" + beta_h = Q_dot_d_in / Q_dot_N '(3.2.7-64) : 단일보일러 시설 + Case "동시가동" ' 동시가동" + beta_h = Q_dot_d_in / (Q_dot_N * TOSG(Dr난방.보일러대수)) ' Worksheets("난방기기").Range("난방기기운전방식1").Offset(1, i_count_c_d - 1)) '(3.2.7-64) : 다수보일러 동시가동 + Case "순차가동" '순차가동" + For i_count_beta = 1 To CInt(TOSG(Dr난방.보일러대수)) + If Q_dot_d_in <= (Q_dot_N * i_count_beta) Then + beta_h = (Q_dot_d_in - Q_dot_N * (i_count_beta - 1)) / Q_dot_N * i_count_beta '다수보일러 대수제어 + n_beta = i_count_beta - 1 + Exit For + End If + Next + End Select + End If '===========================================================2014.03.07 추가 + + + + + eta_k_100 = TOSG(Dr난방.정격보일러효율) * age_heating / 100 'Worksheets("난방기기").Range("난방기기정격효율1").Offset(0, i_count_c_d - 1) / 100 + eta_k_pl = eta_k_100 + f = -0.4 + Select Case Dr난방.보일러방식.Trim 'Worksheets("난방기기").Range("보일러방식1").Offset(0, i_count_c_d - 1) + Case "가스보일러" '가스보일러" + e = 8.5 + f = -0.4 + Case "기름보일러" '기름보일러" + e = 8.5 + f = -0.4 + Case "저온가스보일러" '저온가스보일러" + e = 4.5 + f = -0.4 + Case "저온기름보일러" '저온기름보일러" + e = 4.25 + Case "콘덴싱보일러" '콘덴싱보일러" + e = 4 + End Select + + q_B_70 = TOSG((e * (Q_dot_N ^ f)) / 100) + q_B_theta = q_B_70 '원래는 =q_B_70 * (theta_HK_m_beta_h_g - theta_i) / (70 - 20) 이지만 q_B_theta 와 q_B_70 이 같은 것으로 적용 추후검토 + + 'Select Case Worksheets("난방기기").Range("난방기기사용연료1").Offset(0, i_count_c_d - 1) + 'Case "난방유" + 'f_Hs_Hi = 1.06 + 'Case "천연가스" + 'f_Hs_Hi = 1.11 + 'Case "액화가스" + 'f_Hs_Hi = 1.09 + 'Case "석탄" + 'f_Hs_Hi = 1.04 + 'Case "갈탄" + 'f_Hs_Hi = 1.07 + 'Case "나무" + 'f_Hs_Hi = 1.08 + 'End Select + + f_Hs_Hi = 1 ' 국내는 총발열량을 기준으로 입력함으로 우선 1로 설정, 추후 검토 + + Q_dot_B_h = q_B_theta * (Q_dot_N / eta_k_100) * f_Hs_Hi '(3.2.7-71) + + Q_V_g_100 = (f_Hs_Hi - eta_k_100) / eta_k_100 * Q_dot_N + Q_V_g_pl = (f_Hs_Hi - eta_k_pl) / eta_k_pl * beta_k_pl * Q_dot_N + + '------------------------------------------------------------------------------------------------------ + + If beta_h > beta_k_pl Then + Q_c_g_v_i = ((beta_h - beta_k_pl) / (1 - beta_k_pl) * (Q_V_g_100 - Q_V_g_pl) + Q_V_g_pl) + Q_c_g_v_i = Q_c_g_v_i + ((Q_V_g_100 - Q_V_g_pl) + Q_V_g_pl) * n_beta + Else + Q_c_g_v_i = ((beta_h / beta_k_pl) * (Q_V_g_pl - Q_dot_B_h) + Q_dot_B_h) + End If + + + Q_c_g = Q_c_g_v_i * t_h_max ' 추후 검토 + + Else + + ':지역난방의 경우 적용 추후 검토 + Q_c_g = 0 + + End If + + If Dr난방.열생산기기방식 = "보일러" Then 'Worksheets("난방기기").Range("열생산기기방식1").Offset(0, i_count_c_d - 1) = "보일러" Then + Select Case Dr난방.사용연료.Trim ' Worksheets("난방기기").Range("난방기기사용연료1").Offset(0, i_count_c_d - 1) + Case "난방유" '난방유" + use_Oil = use_Oil + (Q_c_g + Q_c_outg_therm) * system_count '========2013.0818 수정 + + Case "천연가스" '천연가스" + use_LNG = use_LNG + (Q_c_g + Q_c_outg_therm) * system_count '========2013.0818 수정 + + Case "액화가스" '액화가스" + use_LPG = use_LPG + (Q_c_g + Q_c_outg_therm) * system_count '========2013.0818 수정 + + End Select + Else + Select Case Dr난방.열생산기기방식.Trim 'Worksheets("난방기기").Range("열생산기기방식1").Offset(0, i_count_c_d - 1) + Case "지역난방" '지역난방" + use_DH = use_DH + Q_c_outg_therm * system_count '========2013.0818 수정 + + Case "전기보일러" '전기보일러" + use_Elec = use_Elec + Q_c_outg_therm * system_count '========2013.0818 수정 + + End Select + + End If + + + ' End If + + + Next + '=================================================================================================2010.04.02 if문 추가 + ElseIf dr냉방.열생산연결방식 = "직화식" Then + Select Case dr냉방.사용연료.ToString + Case "난방유" + use_Oil = use_Oil + Q_c_outg_therm * system_count '========2013.0818 수정 + Case "천연가스" + use_LNG = use_LNG + Q_c_outg_therm * system_count '========2013.0818 수정 + Case "액화가스" + use_LPG = use_LPG + Q_c_outg_therm * system_count '========2013.0818 수정 + Case Else + MsgBox("냉동기기(" & dr냉방.설명 & ")가 직화식이나 사용연료가 없습니다.확인바랍니다.", vbOKOnly, "건물 에너지 평가 프로그램(ECO2)") + End Select + Else + MsgBox("냉동기기(" & dr냉방.설명 & ")의 열생산연결방식을 확인바랍니다.", vbOKOnly, "건물 에너지 평가 프로그램(ECO2)") + End If + + '=================================================================================================2010.04.02 if문 추가 + Case "지역냉방" '지역냉방" + '--------------------------------------------------------------------------------------------------2010.02.22 수정 + use_DC = use_DC + Q_c_outg_total * system_count + '--------------------------------------------------------------------------------------------------2010.02.22 수정 + Q_c_outg_therm = Q_c_outg_total + + End Select + + Q_c_f = Q_c_f + (Q_c_f_elektr + Q_c_f_R_elektr + Q_c_outg_therm + Q_c_g) * system_count + use_Elec = use_Elec + (Q_c_f_elektr + Q_c_f_R_elektr) * system_count + + + 'If i_count_month = 6 Then + ' i_count_month = 6 + 'End If + ' 분배에 대한 전기 에너지 소비 + For Each Dr분배 As DS.tbl_bunbaeRow In DSET.tbl_bunbae.Select("냉동기='" & dr냉방.code & "' and code <> '0'", "code") + 'If Dr분배.냉동기 = dr냉방.code Then ' Worksheets("냉방분배시스템").Range("냉동기분배1").Offset(0, i_count_c_d - 1) = Worksheets("냉방기기").Range("냉방생산기기1").Offset(0, i_count_chiller - 1) Then + + Q_dot_z = Q_dot_c_outg * (1 + 1 / EER) '(3.2.8-30) + Delta_theta_z_cl = TOSG(Dr분배.설정점에서의온도차) ' Worksheets("냉방분배시스템").Range("급수온도1").Offset(3, i_count_c_d - 1) 6 + c_cl = TOSG(Dr분배.냉매의비열) ' Worksheets("냉방분배시스템").Range("급수온도1").Offset(4, i_count_c_d - 1) 4.18 + rho_cl = TOSG(Dr분배.냉매의밀도) ' Worksheets("냉방분배시스템").Range("급수온도1").Offset(5, i_count_c_d - 1) 1000 + V_dot_z = (3600 * Q_dot_z) / (Delta_theta_z_cl * c_cl * rho_cl) '(3.2.8-29) + L = TOSG(Dr분배.공급범위의길이) ' Worksheets("냉방분배시스템").Range("공급범위길이1").Offset(0, i_count_c_d - 1) + b = TOSG(Dr분배.공급범위의넓이) 'Worksheets("냉방분배시스템").Range("공급범위길이1").Offset(1, i_count_c_d - 1) + n_G = TOSG(Dr분배.열층의수) ' Worksheets("냉방분배시스템").Range("공급범위길이1").Offset(2, i_count_c_d - 1) + h_G = TOSG(Dr분배.층고) 'Worksheets("냉방분배시스템").Range("공급범위길이1").Offset(3, i_count_c_d - 1) + L_max = 2 * (L + b / 2 + h_G * n_G + 10) '(3.2.8-32) + R = TOSG(Dr분배.배관의압력손실) ' Worksheets("냉방분배시스템").Range("급수온도1").Offset(7, i_count_c_d - 1) 0.3 + z = TOSG(Dr분배.개별저항비율) '("냉방분배시스템").Range("급수온도1").Offset(8, i_count_c_d - 1) 0.4 + Delta_P_WUE = TOSG(Dr분배.생산기기압력손실) ' Worksheets("냉방분배시스템").Range("생산기기압력손실1").Offset(0, i_count_c_d - 1) + Delta_P_WUV = TOSG(Dr분배.사용기기압력손실) ' Worksheets("냉방분배시스템").Range("생산기기압력손실1").Offset(1, i_count_c_d - 1) + Delta_P_RV = TOSG(Dr분배.제어밸브압력손실) ' Worksheets("냉방분배시스템").Range("생산기기압력손실1").Offset(2, i_count_c_d - 1) + + Delta_p_z = R * L_max * (1 + z) + Delta_P_WUE + Delta_P_RV + Delta_P_WUV '(3.2.8-31) R(7-Tab.11), Delta_P_WUE, Delta_P_RV, Delta_P_WUV (7-Tab.12) + + P_d_hydr = 1000 * Delta_p_z * V_dot_z / 3600 '(3.2.8-28) + + 'f_e = f_dash_e * (1 + (nu_cl ^ 2 / (16 * P_d_hydr)) ^ 0.4) '기존건물 관련 + 'f_e = (1.25 + (200 / P_d_hydr) ^ 0.5) * f_Adap * b '(3.2.8-38) '기존건물 관련 + P_Pump = TOSG(Dr분배.펌프동력) 'Worksheets("냉방분배시스템").Range("급수온도1").Offset(9, i_count_c_d - 1) + 'P_Pump = Worksheets("냉방분배시스템").Range("급수온도1").Offset(9, i_count_c_d - 1) << 이거오류인듯 펌프는 8번인덱스여야한다.9번줄에는 아무것도 없다. + + If P_d_hydr = 0 Then '========================================================2014.03.07 추가 + f_e = 0 + Else + f_e = P_Pump / P_d_hydr '원래는 P_hydr '(3.2.8-37) + End If '========================================================2014.03.07 추가 + + + + If Dr분배.펌프운전제어유무 = "제어" Then ' Worksheets("냉방분배시스템").Range("급수온도1").Offset(-1, i_count_c_d - 1) = "제어" Then + c_p1 = 0.85 + c_p2 = 0.15 + ElseIf Dr분배.펌프운전제어유무 = "대수제어" Then + c_p1 = 0.75 + c_p2 = 0.25 + Else + c_p1 = 0.25 + c_p2 = 0.75 + End If + + 'beta_d_l = beta_dash_ + (1 - beta_dash_d_l) * V_dot_z_min / V_dot_z '(3.2.8-35) + If Q_z_outg_l <> 0 Then + + If Q_dot_z = 0 Or t_h_max = 0 Then '======================================================2014.03.07 추가 + + Else + beta_d_l = Q_z_outg_l / (Q_dot_z * t_h_max) '(3.2.8-34) t_d_l 을 t_h_max으로 사용 + + e_d_l = f_e * (c_p1 + c_p2 / beta_d_l) '(3.2.8-36) + + W_d_hydr_l = P_d_hydr / 1000 * t_h_max * beta_d_l * f_Abgl '(3.2.8-27) t_d_l 을 t_h_max으로 사용 + + Q_z_aux_d_l = W_d_hydr_l * e_d_l '(3.2.8-26) + 'Q_z_aux_d_a = sigma(Q_z_zux_d_l) '(3.2.8-25) + + Q_c_aux = Q_c_aux + Q_z_aux_d_l * system_count + End If '======================================================2014.03.07 추가 + + + End If + + 'End If + + Next '//for Dr분배 + + + End Sub +End Class diff --git a/ArinWarev1/Calculator/CD.cd b/ArinWarev1/Calculator/CD.cd new file mode 100644 index 0000000..4304a0b --- /dev/null +++ b/ArinWarev1/Calculator/CD.cd @@ -0,0 +1,18 @@ + + + + + + AAAAAEAAAAAAAAAAAAAEAAAAAAABAAABACAABCAAABA= + Calculator\CShared.vb + + + + + + AAAAAAEAAAAAAAgAAAAAAAAhAAABAAgAAAAAIAACAAA= + Calculator\Zone\CZone.vb + + + + \ No newline at end of file diff --git a/ArinWarev1/Calculator/CD_RESULT.cd b/ArinWarev1/Calculator/CD_RESULT.cd new file mode 100644 index 0000000..8bb4e90 --- /dev/null +++ b/ArinWarev1/Calculator/CD_RESULT.cd @@ -0,0 +1,54 @@ + + + + + + + + + AAAACAAAAAAAAEAEAAAEEAAiIAAAAAAAAgAAABAAAAA= + Calculator\Result\CResult.vb + + + + + + AAAAAgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAgEQYAAA= + Calculator\Result\C사용면적.vb + + + + + + + + + + + + Calculator\Result\CZones.vb + + + + + AAAAAAAAAAAACAAAAAAAAAQAAAAAAAAAAAAAAAAAAIA= + Calculator\Result\CZones.vb + Calculator\Result\C최대냉난방부하.vb + + + + + + + + Calculator\Result\C최대냉난방부하.vb + + + + + AAAAACAAAAAAAAAAAAAAAAAEAAAAAAAAAAAAAAAAAAA= + Calculator\Result\C최대냉난방부하.vb + + + + \ No newline at end of file diff --git a/ArinWarev1/Calculator/CHeating.vb b/ArinWarev1/Calculator/CHeating.vb new file mode 100644 index 0000000..56bf72c --- /dev/null +++ b/ArinWarev1/Calculator/CHeating.vb @@ -0,0 +1,3945 @@ +Public Class CHeating + + Dim Q_w_ce As Decimal, Q_w_b As Decimal, theta_NA_Grenz As Decimal, theta_WA_Grenz As Decimal, Q_w_d_i As Decimal, t_h As Decimal + Dim L_G As Decimal, B_G As Decimal, n_G As Decimal, h_G As Decimal, V_s As Decimal, f_verbindung As Decimal, q_B_S As Decimal, Q_dot_N As Decimal, theta_g_m As Decimal + Dim theta_i As Integer, t_Nutz_d As Integer, d_Nutz_a As Integer + Dim eta_k_100 As Decimal, Q_w_g_100 As Decimal, Q_w_outg_i As Decimal, q_B_theta As Decimal, Q_B_w As Decimal, Q_w_g As Decimal, d_h_rB As Decimal + Dim theta_e_min As Decimal, f_L_WA As Decimal + Dim Q_w_ce_aux As Decimal, Q_w_d_aux As Decimal, Q_w_g_aux As Decimal, P_Pump_w As Decimal, c_p1 As Decimal, c_p2 As Decimal, t_P As Decimal, P_aux_100 As Decimal + Dim Q_w_s_aux As Decimal, d_Nutz_mth As Integer, Q_w_s As Decimal, Q_w_d As Decimal, L_i As Decimal, Q_w_outg As Decimal + Dim f_Hs_Hi As Decimal, t_w_100 As Decimal, q_B_70 As Decimal, Q_w_f As Decimal, Q_w_aux As Decimal, Q_w_g_i As Decimal + Dim use_Oil As Decimal, use_LNG As Decimal, use_LPG As Decimal, use_Elec As Decimal, use_DH As Decimal + 'Dim i_count_renewable As Integer + Dim Q_h_outg_i As Decimal + Dim Q_W_sol_out_m As Decimal, Q_H_sol_out_m As Decimal, W_sol_aux_m As Decimal, W_sol_aux As Decimal + Dim system_type As Integer + + Dim Q_dot_HP_waterheating As Decimal, COP_HP_7 As Decimal, COP_HP_10 As Decimal, L_HP_waterheating As Decimal + Dim COP_HP_total As Decimal + + Dim D_DS As Decimal, B_DS As Decimal, theta_prim_DS As Decimal, theta_DS As Decimal, Psi_DS As Decimal, H_DS As Decimal + + + '==================================2010.2.21 수정 + Dim d_op_mth As Integer + Dim d_op_max_mth As Integer + + '==================================2010.2.21 수정 + + Dim Q_w_CHP As Decimal, Q_w_f_CHP As Decimal '==============2011.07.19 추가 + Dim Q_wp_outg As Decimal, Q_w_f_hp As Decimal, Q_w_g_hp_aux As Decimal '==================================2013.01.13 추가 + + '==================================2013.08.18 추가 + Dim system_count As Decimal + + Dim a_Q_w_b As Decimal = 0 + Dim a_d_op_max_mth As Decimal = 0 + Dim a_t_h As Decimal = 0 + + Public Overridable Sub Calc_WaterheatingSystem(ByVal i_count_month As Integer, ByVal d_mth As Integer, ByVal theta_e As Decimal) + + pLog.Add("================================") + pLog.Add(String.Format(" Enter >> Calc_WaterheatingSystem Mon={0},d_mth={1},theta_e={2}", i_count_month, d_mth, theta_e)) + pLog.Add("================================") + d_op_max_mth = 0 + + Q_w_ce = 0 '급탕에서는 공급손실이 없음 + theta_NA_Grenz = 10 + theta_WA_Grenz = 10 + theta_e_min = -11.3 + f_verbindung = 1.2 '동일공간의 경우임, 타공간의 경우 (3.2.7-36) 참조 + theta_i = 22 '2011.04.01 수정 기존 13에서 주변온도를 22도로 수정(급탕에 대한 설정조건 완화) + t_Nutz_d = 11 '2011.04.01 수정 기존 24에서 운영시간를 11로 수정(급탕에 대한 설정조건 완화) + Q_w_g_100 = 0 + d_Nutz_a = 365 + Q_w_g = 0 + Q_w_g_aux = 0 + Q_w_d_aux = 0 + Q_w_s_aux = 0 + Q_w_ce_aux = 0 + use_Oil = 0 + use_LNG = 0 + use_LPG = 0 + use_Elec = 0 + use_DH = 0 + Q_w_outg = 0 + Q_h_outg_i = 0 + W_sol_aux = 0 + system_type = 3 + '====================================2011.07.21 추가 + Q_w_CHP = 0 + Q_w_f_CHP = 0 + '====================================2011.07.21 추가 + + '======================2013.01.13 추가 + system_count = 1 + '======================2013.01.13 추가 + + '======================2013.08.18 추가 + Q_w_f_hp = 0 + Q_wp_outg = 0 + Q_w_g_hp_aux = 0 + '======================2013.08.18 추가 + + '//각달별로데이터를 초기화해야함(131020-arin) + Q_w_f = 0 + Q_w_aux = 0 + use_Oil = 0 + use_LNG = 0 + use_LPG = 0 + use_DH = 0 + use_Elec = 0 + + a_Q_w_b = 0 + a_d_op_max_mth = 0 + a_t_h = 0 + + '====================================2010.2.21 수정 + 'd_Nutz_mth = d_mth ' 연중가동으로 계산 추후 검토 + '====================================2010.2.21 수정 + + Dim Mon As String = "M" & Format(i_count_month, "00") + + '태양광 시스템 + Dim Calc_태양 As New CRenewable(DSET, Result) : Calc_태양.Calc_PhotovoltaicSystem_EN(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") + + pLog.Add(String.Format("Loop 난방기기 code={0},급탕용량합={1}", Dr난방.code, 급탕용량합)) + + If DSET.tbl_zone.Select("열생산급탕생산기기='" & Dr난방.code & "' and code <> '0'").GetUpperBound(0) <> -1 Then '//급탕생산기기로 지정되어있는가 '//존에서 이 난방기기가 사용되었는가? ' Worksheets("난방기기").Range("난방생산기기1").Offset(5, i_count_boiler - 1) = "예" Then + pLog.Add(String.Format("급탕기기로 사용됨 기기방식={0}", Dr난방.열생산기기방식)) + Select Case Dr난방.열생산기기방식.Trim.ToUpper + Case "보일러" + 급탕용량합 += TOSG(Dr난방.보일러정격출력) + Case "지역난방" + 급탕용량합 += TOSG(Dr난방.열교환기정격출력) + Case "히트펌프" + 급탕용량합 += TOSG(Dr난방.히트난방용량) + Case "전기보일러" + 급탕용량합 += TOSG(Dr난방.보일러정격출력) + End Select + pLog.Add(String.Format("급탕용량합 값={0}", 급탕용량합)) + End If + + For Each Dr존 As DS.tbl_zoneRow In DSET.tbl_zone.Select("열생산급탕생산기기='" & Dr난방.code & "' and code <> '0'", "code") + + pLog.Add(String.Format("Process Zone = {0},난방기기={1}", Dr존.code, Dr난방.code)) + + Dim Drow결과() As DSR.월별에너지분석Row = CType(DSETR.월별에너지분석.Select("월='" & Mon & "' and 존='" & Dr존.code & "'"), DSR.월별에너지분석Row()) + Dim Drow최대() As DSR.최대냉난방부하Row = CType(DSETR.최대냉난방부하.Select("Zone='" & Dr존.code & "'"), DSR.최대냉난방부하Row()) + a_Q_w_b += (TOSG(Drow결과(0).급탕요구량) / system_count) ' Sheets("" & i_count_month & "").Cells(15, 7 + i_count_zone) '//급탕에너지요구량 + + '===================================================================================2010.2.21 수정 + Dim a_d_op_mth As Decimal = 0 + Dim Dr프로필() As DS.tbl_profileRow = CType(DSET.tbl_profile.Select("code='" & Dr존.프로필 & "' and code <> '0'", "code"), DS.tbl_profileRow()) + If Dr프로필.GetUpperBound(0) = -1 Then + LogSB.AppendLine(Dr존.설명 & "존의 프로필코드(" & Dr존.프로필 & ") 가 존재하지않습니다") + 'MsgBox(Dr존.설명 & "존의 프로필코드(" & Dr존.프로필 & ") 가 존재하지않습니다") + Else + a_d_op_mth = CInt(TOSG(Dr프로필(0)("day" & Format(i_count_month, "00")))) ' Worksheets("설정조건").Range("월간사용일수1").Offset(i_count_month, i_count_profile) + End If + + If a_t_h < Result.최대부하.Item(Dr존.code).일일난방최대가동시간 * d_op_mth Then + a_t_h = Result.최대부하.Item(Dr존.code).일일난방최대가동시간 * d_op_mth + End If + + If a_d_op_max_mth < a_d_op_mth Then a_d_op_max_mth = a_d_op_mth + + pLog.Add(String.Format("a_Q_w_b={0},a_d_op_mth={1},a_t_h={2},a_d_op_max_mth={3}", a_Q_w_b, a_d_op_mth, a_t_h, a_d_op_max_mth)) + Next + Next + + For Each Dr난방 As DS.tbl_nanbangkikiRow In DSET.tbl_nanbangkiki.Select("code<>'0'", "code") + + pLog.Add(String.Format("Process 난방기기 Code={0}", Dr난방.code)) + + '=====================2010.2.21 수정 + d_op_max_mth = 0 + '=====================2010.2.21 수정 + + Dim 비율 As Decimal + If 급탕용량합 = 0 Then + 비율 = 1 + Else + + '===================================================================================2014.02.24 추가 + Select Case Dr난방.열생산기기방식.Trim.ToUpper + Case "보일러" + 비율 = Dr난방.보일러정격출력 / 급탕용량합 + Case "지역난방" + 비율 = Dr난방.열교환기정격출력 / 급탕용량합 + Case "히트펌프" + 비율 = Dr난방.히트난방용량 / 급탕용량합 + Case "전기보일러" + 비율 = Dr난방.보일러정격출력 / 급탕용량합 + End Select + + '===================================================================================2014.02.24 추가 + + End If + + pLog.Add(String.Format("비율 = {0}", 비율)) + + If Dr난방.개별기기적용 = "1" Then + pLog.Add("개별기기적용로직 실행") + Calc_급탕_개별기기적용시(Dr난방, Mon, 비율, i_count_month, theta_e, d_mth) + Else + pLog.Add("개별기기(미)적용로직 실행") + Calc_급탕_개별기기미적용시(Dr난방, Mon, 비율, i_count_month, theta_e, d_mth) + End If + Next + + + Q_w_f = Q_w_f + Q_w_outg + Q_w_g ' - Q_w_reg '(3.2.9-5) 급탕에너지소요량 + 'Q_w_aux = Q_w_ce_aux + Q_w_d_aux + Q_w_s_aux + Q_w_g_aux + W_sol_aux '급탕보조에너지소요량 (3.2.9-7) + + Result.E소요량(i_count_month).급탕 = Q_w_f + Result.E소요량(i_count_month).급탕보조 = Q_w_aux + + '//열원별에너지소요량 - 급탕에너지소요량 + Result.일차E소요량(i_count_month).급탕등유 = use_Oil + + Result.일차E소요량(i_count_month).급탕LNG = use_LNG + Result.일차E소요량(i_count_month).급탕LPG = use_LPG + Result.일차E소요량(i_count_month).급탕지역 = use_DH + Result.일차E소요량(i_count_month).급탕전력 = use_Elec + + pLog.Add(String.Format("급탕={0},급탕보조={1},급탕등유={2},급탕LNG={3},급탕LPG={4},급탕지역={5},급탕전력={6}", Q_w_f, Q_w_aux, use_Oil, use_LNG, use_LPG, use_DH, use_Elec)) + End Sub + + Private Sub Calc_급탕_개별기기미적용시(dr난방 As DS.tbl_nanbangkikiRow, Mon As String, 비율 As Decimal, i_count_month As Integer, theta_e As Decimal, d_mth As Integer) + + pLog.Add(String.Format(">> Calc_급탕_개별기기미적용시(난방기기={0},Mon={1},비율={2},i_count_month={3},theta_e={4},d_mth={5}", _ + dr난방.code, Mon, 비율, i_count_month, theta_e, d_mth)) + + Dim 적용기기목록() As DS.tbl_zoneRow = DSET.tbl_zone.Select("열생산급탕생산기기='" & dr난방.code & "' and code <> '0'", "code") + pLog.Add(String.Format("급탕기기로적용된 갯수={0}", 적용기기목록.Length)) + + If 적용기기목록.Length > 0 Then '//급탕생산기기로 지정되어있는가 '//존에서 이 난방기기가 사용되었는가? ' Worksheets("난방기기").Range("난방생산기기1").Offset(5, i_count_boiler - 1) = "예" Then + + pLog.Add(">> ") + + Q_w_b = 0 + Q_w_s = 0 + Q_w_d = 0 + Q_w_outg_i = 0 + Q_w_g_i = 0 + W_sol_aux_m = 0 + t_h = 0 + d_op_max_mth = 0 + Q_w_ce_aux = 0 + Q_w_d_aux = 0 + Q_w_s_aux = 0 + Q_w_g_aux = 0 + 'W_sol_aux_m = 0 + system_count = 1 '//160315 + + If dr난방.열생산기기방식.Trim = "전기보일러" Then + pLog.Add("전기보일러는 q_w_b 값을 0으로 처리합니다") + Q_w_b = 0 + End If + + ' Dim Dr존 As DS.tbl_zoneRow '//여기존 할당부분은엑셀하고 다시 비교해야할듯 하다 이존은 아래쪽에 프로시져 넘길떄 사용한다. + + '//현재난방기기를 급탕생산기기로 사용하는 존을 가져와서 누적시킴 + For Each Dr존 As DS.tbl_zoneRow In 적용기기목록 + 'MsgBox(Mon & "/" & Dr존.code) + + system_count = 1 'IIf(dr난방.개별기기적용 = "0", 1, TOSG(Dr존.입력존의수)) '//20130818 + + pLog.Add(String.Format("Process Zone:{0}", Dr존.code)) + + 'If dr난방.헤더적용 Then + ' Q_w_b = a_Q_w_b + ' Q_w_b *= 비율 + + ' d_op_max_mth = a_d_op_max_mth + ' t_h = a_t_h + 'Else + Dim Drow결과() As DSR.월별에너지분석Row = CType(DSETR.월별에너지분석.Select("월='" & Mon & "' and 존='" & Dr존.code & "'"), DSR.월별에너지분석Row()) + Dim Drow최대() As DSR.최대냉난방부하Row = CType(DSETR.최대냉난방부하.Select("Zone='" & Dr존.code & "'"), DSR.최대냉난방부하Row()) + Q_w_b = Q_w_b + TOSG(Drow결과(0).급탕요구량) / system_count ' Sheets("" & i_count_month & "").Cells(15, 7 + i_count_zone) '//급탕에너지요구량 + + '===================================================================================2010.2.21 수정 + Dim Dr프로필() As DS.tbl_profileRow = CType(DSET.tbl_profile.Select("code='" & Dr존.프로필 & "' and code <> '0'", "code"), DS.tbl_profileRow()) + If Dr프로필.GetUpperBound(0) = -1 Then + LogSB.AppendLine(Dr존.설명 & "존의 프로필코드(" & Dr존.프로필 & ") 가 존재하지않습니다") + 'MsgBox(Dr존.설명 & "존의 프로필코드(" & Dr존.프로필 & ") 가 존재하지않습니다") + Else + d_op_mth = CInt(TOSG(Dr프로필(0)("day" & Format(i_count_month, "00")))) ' Worksheets("설정조건").Range("월간사용일수1").Offset(i_count_month, i_count_profile) + End If + + If t_h < Result.최대부하.Item(Dr존.code).일일난방최대가동시간 * d_op_mth Then + t_h = Result.최대부하.Item(Dr존.code).일일난방최대가동시간 * d_op_mth + End If + If d_op_max_mth < d_op_mth Then + d_op_max_mth = d_op_mth + End If + '===================================================================================2010.2.21 수정 + 'End If + + pLog.Add(String.Format("q_w_b={0},d_op_mth={1},t_h={2},d_op_max_mth={3}", Q_w_b, d_op_mth, t_h, d_op_max_mth)) + + Next + '===================================================================================2014.2.25 수정 + If dr난방.헤더적용 Then + Q_w_b = a_Q_w_b + Q_w_b *= 비율 + pLog.Add(String.Format("헤더적용으로인해 q_w_b 값이 수정됩니다 q_w_b=", Q_w_b)) + End If + + '===================================================================================2014.2.25 수정 + + '====================================2010.2.21 수정 + d_Nutz_mth = d_op_max_mth + '====================================2010.2.21 수정 + + If dr난방.분배시스템방식 = "중앙식" Then ' Dr난방.분배시스템방식 = "중앙식" Then + + If dr난방.배관길이 <> "" AndAlso dr난방.배관길이 <> "0" Then '//입력치 + L_i = TOSG(dr난방.배관길이) * 0.255 + Else + L_G = TOSG(dr난방.건물길이) ' Dr난방.건물길이 + B_G = TOSG(dr난방.건물넓이) 'Dr난방.건물넓이 + n_G = TOSG(dr난방.열공급층수) 'Dr난방.열공급층수 + h_G = TOSG(dr난방.층고) 'Worksheets("난방기기").Range("급탕분배건물길이1").Offset(3, i_count_boiler - 1) + L_i = TOSG((2 * L_G + 0.0325 * L_G * B_G + 6) * 0.2 + (0.025 * L_G * B_G * h_G * n_G + 2 * (L_G + B_G) * n_G) * 0.255 + (0.1 * L_G * B_G * n_G) * 0.255) '단일배관난방적용 + End If + + + '=================================================2010. 02. 11 수정 + For Each Dr난방분배 As DS.tbl_nbunbaeRow In DSET.tbl_nbunbae.Select("배관망유형='급탕' and 생산기기구분='" & dr난방.code & "'", "code") + L_i += TOSG(Dr난방분배.배관구간길이) * TOSG(Dr난방분배.열관류율) + Next + 'For i_count_pipe = 1 To Range("배관구간").Columns.Count + ' If Worksheets("난방분배시스템").Range("분배생산기기1").Offset(2, i_count_pipe - 1) = "급탕" Then + ' If Worksheets("난방기기").Range("난방생산기기1").Offset(0, i_count_boiler - 1) = Worksheets("난방분배시스템").Range("분배생산기기1").Offset(0, i_count_pipe - 1) Then + ' L_i = L_i + Worksheets("난방분배시스템").Range("배관구간방식1").Offset(1, i_count_pipe - 1) * Worksheets("난방분배시스템").Range("배관구간방식1").Offset(2, i_count_pipe - 1) + ' End If + ' End If + 'Next + '=================================================2010. 02. 11 수정 + + If dr난방.순환유무 = "무" Then ' Worksheets("난방기기").Range("급탕분배방식1").Offset(1, i_count_boiler - 1) = "무" Then + ':중앙비순환시스템 + Q_w_d_i = TOSG(1 / 1000 * L_i * ((23 * 0.2 ^ (-0.2) - theta_i) * d_Nutz_mth * 24)) '(3.2.9-11) 중앙비순환시스템 L_i 에 U_i 포함 theta_w_m_비순환 는 23*0.2^(-0.2) + theta_g_m = 40 + Else + ':중앙순환시스템 + Q_w_d_i = TOSG(1 / 1000 * L_i * d_Nutz_mth * ((50 - theta_i) * t_Nutz_d + 0.5 * (23 * 0.2 ^ (-0.2) - theta_i) * (24 - t_Nutz_d))) '(3.2.9-11) 중앙순환시스템 L_i 에 U_i 포함 theta_w_m_순환 는 50도 + theta_g_m = 50 + End If + + Q_w_d = Q_w_d + Q_w_d_i '(3.2.9-12) + + Else + + theta_g_m = 40 '2013.01.12 추가 개별식의 경우 비순환시스템으로 적용 + + End If + + + Select Case dr난방.축열탱크방식.Trim ' Worksheets("난방기기").Range("난방기기축열탱크1").Offset(0, i_count_boiler - 1) + Case "전기가열식" '전기가열식" + + ':저탕조용량(모를경우) + 'f_N = 1 / (t_Nutz_d * 1) '(3.2.9-24) t_Nutz_T 는 t_Nutz_d 로 적용, eta_Sp는 1로 적용 추후 검토 + ':심야전기가열 + 'V_s = 1.42 * Q_w_b_d * f_N * 860 / ((theta_w_m - theta_k) * eta_s) '(3.2.9-33) : 심야전기가열 + ':주간전기가열 + 'V_s = 0.67 * Q_w_b_d * f_N * 860 / ((Q_w_m - Q_k) * eta_s) '(3.2.9-34) : 주간전기가열 + V_s = TOSG(dr난방.축열제척) ' Worksheets("난방기기").Range("난방기기축열체적1").Offset(0, i_count_boiler - 1) + q_B_S = TOSG(0.29 + 0.019 * V_s ^ 0.8) '(3.2.9-30) :1994 이후 + Q_w_s = TOSG((55 - theta_i) / 45 * d_Nutz_mth * q_B_S) '(3.2.9-29) : 전기가열식 저탕조 + + + Case "가스가열식" '가스가열식" + + ':가스가열식 저탕조 + V_s = TOSG(dr난방.축열제척) 'Worksheets("난방기기").Range("난방기기축열체적1").Offset(0, i_count_boiler - 1) + ':1994 이후 + q_B_S = TOSG(2 + 0.033 * V_s ^ 1.1) '(3.2.9-38) + Q_w_s = TOSG((55 - theta_i) / 50 * d_Nutz_mth * q_B_S) '(3.2.9-37) : 가스가열식 저탕조 + + Case "간접가열식" '간접가열식" + ':간접 가열식 저탕조 + ':태양열 복합 저탕조(UA_sb_s_a를 모를 경우) + 'q_B_S = (0.4 + 0.2 * (V_s_aux + V_s_sol) ^ 0.4) * V_s_aux / (V_s_aux + V_s_sol) '(3.2.9-26) + 'f_N = 1 / (t_Nutz_T * n_Sp) '(3.2.9-24) + ':저탕조용량(모를 경우) + 'V_s = (Q_w_b_d * f_N * 860) / ((theta_w_m - theta_k) * eta_s) '(3.2.9-23) + V_s = TOSG(dr난방.축열제척) 'Worksheets("난방기기").Range("난방기기축열체적1").Offset(0, i_count_boiler - 1) + If V_s < 1000 Then + ':1000이하 + ' q_B_S = 'CSng(0.8 + 2 * V_s ^ 0.77) '(3.2.9-18) 여기맞아요? 예 0. + q_B_S = 0.8 + 0.02 * V_s ^ 0.77 '(3.2.9-18) '===================================2010.04.24 수정 + Else + ':1000이상 + q_B_S = TOSG(0.39 * V_s ^ 0.35 + 0.5) '(3.2.9-19) + End If + Q_w_s = f_verbindung * (50 - theta_i) / 45 * d_Nutz_mth * q_B_S '(3.2.9-16) + + End Select + + Q_w_outg_i = Q_w_b + Q_w_ce + Q_w_d + Q_w_s '(3.2.9-4) + + + Q_w_outg = Q_w_outg + Q_w_outg_i * system_count + + + pLog.Add(String.Format("Q_w_outg_i={0},Q_w_outg={1}", Q_w_outg_i, Q_w_outg)) + + + ' 신재생에너지 시스템 + '---------------------------------------------------------------------------------------------------------------------------------- + '---------------------------------------------------------------------------------------------------------------------------------- + + '태양열(급탕) 시스템 + Dim CRenew As New CRenewable(DSET, Result) + If dr난방.신재생연결여부 = "시스템연결" AndAlso dr난방.연결된시스템 <> "0" Then 'Worksheets("난방기기").Range("신재생난방연결1").Offset(0, i_count_boiler - 1) = "시스템연결" Then + Dim dr신재생 As DS.tbl_newRow = CType(DSET.tbl_new.Select("code <> '0' and code='" & dr난방.연결된시스템 & "'")(0), DS.tbl_newRow) + ' If dr신재생.기기종류.Trim.IndexOf("태") <> -1 Then + Select Case dr신재생.기기종류.Trim + Case "태양열" '//태양열 + If dr신재생.태양열종류 = "급탕" Then + Calc.Renewable.Calc_ThermalSolarSystem_EN(system_type, dr신재생.code, i_count_month, d_mth, Q_h_outg_i, Q_w_outg_i, Q_W_sol_out_m, Q_H_sol_out_m, W_sol_aux_m) + Q_w_outg = Q_w_outg - Q_W_sol_out_m + Q_w_outg_i = Q_w_outg_i - Q_W_sol_out_m + W_sol_aux = W_sol_aux + W_sol_aux_m + End If + '=======================================================================2011.007.19 추가 + Case "열병합" '//열병합 + Select Case dr신재생.가동연료.Trim + Case "난방유" '난방유" + CRenew.Calc_CogenerationSystemEN(dr신재생, 3, i_count_month, Q_w_outg_i, t_h, Q_w_CHP, Q_w_f_CHP) + Q_w_outg = Q_w_outg - Q_w_CHP + Q_w_outg_i = Q_w_outg_i - Q_w_CHP + use_Oil = use_Oil + Q_w_f_CHP * system_count '===========2013.08.18 수정 + Q_w_f = Q_w_f + Q_w_f_CHP * system_count '============================2013.01.13 수정, 2013.08.18 수정 + Case "천연가스" '천연가스" + CRenew.Calc_CogenerationSystemEN(dr신재생, 3, i_count_month, Q_w_outg_i, t_h, Q_w_CHP, Q_w_f_CHP) + Q_w_outg = Q_w_outg - Q_w_CHP + Q_w_outg_i = Q_w_outg_i - Q_w_CHP + use_LNG = use_LNG + Q_w_f_CHP * system_count '===========2013.08.18 수정 + Q_w_f = Q_w_f + Q_w_f_CHP * system_count '============================2013.01.13 수정, 2013.08.18 수정 + Case "액화가스" '액화가스" + CRenew.Calc_CogenerationSystemEN(dr신재생, 3, i_count_month, Q_w_outg_i, t_h, Q_w_CHP, Q_w_f_CHP) + Q_w_outg = Q_w_outg - Q_w_CHP + Q_w_outg_i = Q_w_outg_i - Q_w_CHP + use_LPG = use_LPG + Q_w_f_CHP * system_count '===========2013.08.18 수정 + Q_w_f = Q_w_f + Q_w_f_CHP * system_count '============================2013.01.13 수정, 2013.08.18 수정 + Case Else + MsgBox("신재생에너지의 가동연료를 확인할 수 없습니다", MsgBoxStyle.Critical, dr신재생.가동연료) + End Select + '=======================================================================2011.007.19 추가 + + Case "지열" '//지열 + Select Case dr신재생.가동연료.Trim + Case "전기" '전기" + CRenew.Calc_HeatpumpSystem(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_HeatpumpSystem(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_HeatpumpSystem(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 + _ + "계산을 중단하시겠습니까?", MsgBoxStyle.Question Or MsgBoxStyle.YesNo, "확인") = MsgBoxResult.Yes Then + Return + End If + End Select + 'End If + End If + + pLog.Add(String.Format("신재생 : 태양열급탕 결과 Q_w_outg={0},Q_w_outg_i={1},use_LPG={2},use_LNG={5},use_Elec={3},Q_w_f={4}", Q_w_outg, Q_w_outg_i, use_LPG, use_Elec, Q_w_f, use_LNG)) + + '---------------------------------------------------------------------------------------------------------------------------------- + '---------------------------------------------------------------------------------------------------------------------------------- + + '=========================================================================================================================2013.01.13 히트펌프 위치 수정 + + If dr난방.열생산기기방식 = "히트펌프" Then + + pLog.Add("히트펌프조건 진입") + + Q_dot_HP_waterheating = TOSG(dr난방.히트난방용량) ' Worksheets("난방기기").Range("히트펌프사용연료1").Offset(1, i_count_boiler - 1) + COP_HP_7 = TOSG(dr난방.히트난방정격7) ' Worksheets("난방기기").Range("히트펌프사용연료1").Offset(2, i_count_boiler - 1) + COP_HP_10 = TOSG(dr난방.히트난방정격10) ' Worksheets("난방기기").Range("히트펌프사용연료1").Offset(3, i_count_boiler - 1) ' 새로운 버전에서 15도로 입력값 수정 + L_HP_waterheating = TOSG(dr난방.히트배관길이) ' Worksheets("난방기기").Range("히트펌프사용연료1").Offset(4, i_count_boiler - 1) + If theta_e > 15 Then + COP_HP_total = (COP_HP_7 - COP_HP_10) / 22 * 15 + COP_HP_7 - 7 * (COP_HP_7 - COP_HP_10) / 22 + Else + COP_HP_total = (COP_HP_7 - COP_HP_10) / 22 * theta_e + COP_HP_7 - 7 * (COP_HP_7 - COP_HP_10) / 22 + End If + + If theta_e < 7 Then + + If theta_e >= 0 Then + COP_HP_total = TOSG(COP_HP_total * ((1 - 0.86) / 7 * theta_e + 0.86)) + Else + COP_HP_total = TOSG(COP_HP_total * ((0.98 - 0.86) / 7 * (-theta_e) + 0.86)) + End If + + End If + + If Q_dot_HP_waterheating <= 20 Then + COP_HP_total = TOSG(COP_HP_total * (1 - L_HP_waterheating * 0.002)) + Else + If Q_dot_HP_waterheating <= 100 Then + COP_HP_total = TOSG(COP_HP_total * (1 - L_HP_waterheating * 0.0009)) + Else + COP_HP_total = TOSG(COP_HP_total * (1 - L_HP_waterheating * 0.0014)) + End If + End If + + Q_w_outg = Q_w_outg - Q_w_outg_i '===================================================2013.01.16 추가 + + If Q_dot_HP_waterheating = 0 Or t_h = 0 Then '=============================================================2014.03.07 추가 + Q_w_outg_i = 0 + Else + If Q_w_outg_i / (Q_dot_HP_waterheating * t_h) > 1 Or dr난방.히트펌프시스템종류 = "실내외분리시스템" Then + Q_w_outg_i = Q_w_outg_i / COP_HP_total + Else + Q_w_outg_i = Q_w_outg_i / (COP_HP_total * (Q_w_outg_i / (Q_dot_HP_waterheating * t_h) * 0.5 + 0.5)) + End If + + End If '=============================================================2014.03.07 추가 + + Q_w_outg = Q_w_outg + Q_w_outg_i '===================================================2013.01.16 추가 + + pLog.Add(String.Format("히트펌프조건 완료 Q_w_outg={0}", Q_w_outg)) + End If + + '=========================================================================================================================2013.01.13 히트펌프 위치 수정 + + + Q_dot_N = TOSG(IIf(dr난방.보일러정격출력 = "", 0, dr난방.보일러정격출력)) 'Worksheets("난방기기").Range("난방기기정격출력1").Offset(0, i_count_boiler - 1) + eta_k_100 = TOSG(IIf(dr난방.정격보일러효율 = "", 0, TOSG(dr난방.정격보일러효율))) / 100 ' Worksheets("난방기기").Range("난방기기정격효율1").Offset(0, i_count_boiler - 1) / 100 + + 'Select Case Worksheets("난방기기").Range("난방기기사용연료1").Offset(0, i_count_boiler - 1) + 'Case "난방유" + 'f_Hs_Hi = 1.06 + 'Case "천연가스" + 'f_Hs_Hi = 1.11 + 'Case "액화가스" + 'f_Hs_Hi = 1.09 + 'Case "석탄" + 'f_Hs_Hi = 1.04 + 'Case "갈탄" + 'f_Hs_Hi = 1.07 + 'Case "나무" + 'f_Hs_Hi = 1.08 + 'End Select + f_Hs_Hi = 1 ' 국내는 총발열량을 기준으로 입력함으로 우선 1로 설정, 추후 검토 + + If dr난방.열생산기기방식 = "보일러" Then ' Worksheets("난방기기").Range("열생산기기방식1").Offset(0, i_count_boiler - 1) = "보일러" Then + + pLog.Add("열생산기기방식 - 보일러진입") + + If d_Nutz_mth = 0 Or eta_k_100 = 0 Then '//201.11.20 추가(학교프로파일 적용시 문제점 해결) '====2014.03.07 추가 + Q_w_g_100 = 0 + Else + Q_w_g_100 = (f_Hs_Hi - eta_k_100) / eta_k_100 * Q_w_outg_i / d_Nutz_mth '(3.2.9-58) + End If + + If d_Nutz_mth = 0 Or Q_dot_N = 0 Then '//201.11.20 추가(학교프로파일 적용시 문제점 해결)'====2014.03.07 추가 + t_w_100 = 0 + Else + t_w_100 = Q_w_outg_i / (Q_dot_N * d_Nutz_mth) '(3.2.9-61) + End If + + Select Case dr난방.보일러방식.Trim ' Worksheets("난방기기").Range("보일러방식1").Offset(0, i_count_boiler - 1) + Case "가스보일러" '가스보일러" + q_B_70 = TOSG((8.5 * Q_dot_N ^ (-0.4)) / 100) + + Case "기름보일러" '기름보일러" + q_B_70 = TOSG((8.5 * Q_dot_N ^ (-0.4)) / 100) + + Case "저온가스보일러" '저온가스보일러" + q_B_70 = TOSG((4.5 * Q_dot_N ^ (-0.4)) / 100) + + Case "저온기름보일러" '저온기름보일러" + q_B_70 = TOSG((4.25 * Q_dot_N ^ (-0.4)) / 100) + + Case "콘덴싱보일러" '콘덴싱보일러" + q_B_70 = TOSG((4 * Q_dot_N ^ (-0.4)) / 100) + Case Else + MsgBox("난방.보일러방식을 알수없습니다", MsgBoxStyle.Critical, "값=" & dr난방.보일러방식) + End Select + + q_B_theta = q_B_70 * (theta_g_m - theta_i) / (70 - 20) '(3.2.9-60) + If eta_k_100 = 0 Then '===========================================2014.03.07 추가 + Q_B_w = 0 + Else + Q_B_w = q_B_theta * Q_dot_N / eta_k_100 * (t_Nutz_d - t_w_100) * f_Hs_Hi '(3.2.9-59) + End If '===========================================2014.03.07 추가 + + + If theta_WA_Grenz - theta_e_min = 0 Then '====================================================2014.03.07 추가 + f_L_WA = 1 + Else + f_L_WA = 1 - (theta_WA_Grenz - theta_e) / (theta_WA_Grenz - theta_e_min) '(3.2.7-22) + End If '====================================================2014.03.07 추가 + + If d_mth = 0 Then + d_h_rB = 0 + Else + d_h_rB = d_mth * ((365 - f_L_WA * (365 - d_Nutz_a)) / 365) * (t_h / (d_mth * 24)) '(3.2.7-21) + End If + + + ':d_h_rB > d_Nutz_mth 일 경우 + If d_h_rB > d_Nutz_mth Then + d_Nutz_mth = CInt(d_h_rB) + End If + + Q_w_g = Q_w_g + (Q_w_g_100 * d_Nutz_mth + Q_B_w * (d_Nutz_mth - d_h_rB)) * system_count '=====2013.08.13 수정 '(3.2.9-57) + Q_w_g_i = Q_w_g_100 * d_Nutz_mth + Q_B_w * (d_Nutz_mth - d_h_rB) + + pLog.Add(String.Format("열생산기기방식 - 보일러완료 : Q_w_g={0},Q_w_g_i={1}", Q_w_g, Q_w_g_i)) + + Else + + If dr난방.열생산기기방식 = "지역난방" Then ' Worksheets("난방기기").Range("열생산기기방식1").Offset(0, i_count_boiler - 1) = "지역난방" Then + + pLog.Add("열생산기기방식 - 지역난방") + + If dr난방.지역난방방식 = "중온수" Then ' Worksheets("난방기기").Range("지역난방온수방식1").Offset(0, i_count_boiler - 1) = "중온수" Then + D_DS = 0.6 + theta_prim_DS = 105 + 'MsgBox("난방기기 단열등급에 등급2/3 등급3/4 등급 4/5 추가해야함") + Select Case dr난방.단열등급.Trim ' Dr난방.단열등급 + Case "기본단열" '기본단열" '원래는 등급1/2 이지만 국내에서는 법적단열로 사용 + B_DS = 4.9 + Case "등급2/3" '등급2/3" + B_DS = 4.4 + Case "등급3/4" '등급3/4" + B_DS = 4 + Case "등급4/5" '등급4/5" + B_DS = 3.5 + End Select + End If + 'MsgBox("난방기기 지역난방방식에 고온수 0002 추가해야함") --추가는 했으나 엑셀에서는 중온수고정이다 그래서 하위 루틴은 실행되면안된다 + If dr난방.지역난방방식 = "고온수" Then 'Worksheets("난방기기").Range("지역난방온수방식1").Offset(0, i_count_boiler - 1) = "고온수" Then + ' MsgBox("난방기기의 지역난방방식은 중온수 고정입니다.", MsgBoxStyle.Information, "확인") + D_DS = 0.4 + theta_prim_DS = 150 + Select Case dr난방.단열등급.Trim + Case "기본단열" '기본단열" '원래는 등급1/2 이지만 국내에서는 법적단열로 사용 + B_DS = 4.3 + Case "등급2/3" '등급2/3" + B_DS = 3.9 + Case "등급3/4" '등급3/4" + B_DS = 3.5 + Case "등급4/5" '등급4/5" + B_DS = 3.1 + End Select + End If + + + + theta_DS = D_DS * theta_prim_DS + (1 - D_DS) * 55 ' theta_sek_DS는 55도로 설정 (3.2.7-112) + Psi_DS = TOSG(dr난방.열교환기정격출력) ' .Worksheets("난방기기").Range("난방기기정격출력1").Offset(1, i_count_boiler - 1) + H_DS = TOSG(B_DS * Psi_DS ^ (1 / 3)) + Q_w_g = Q_w_g + (H_DS * (theta_DS - theta_i)) * system_count '=====2013.08.13 수정 + use_DH = use_DH + (H_DS * (theta_DS - theta_i)) * system_count '========2013.08.18 수정 + + pLog.Add(String.Format("열생산기기방식 - 지역난방완료 : Q_w_g={0},use_DH={1}", Q_w_g, use_DH)) + + End If + + End If + + ': 급탕 전기 보조에너지 시작 + + Q_w_ce_aux = 0 + Q_w_g_aux = 0 '// 2014.01.08 추가 + + P_Pump_w = TOSG(dr난방.펌프동력급탕) ' Worksheets("난방기기").Range("급탕펌프제어유형1").Offset(1, i_count_boiler - 1) + Select Case dr난방.펌프제어.Trim 'Worksheets("난방기기").Range("급탕펌프제어유형1").Offset(0, i_count_boiler - 1) + Case "비제어" '비제어" + c_p1 = 0.25 + c_p2 = 0.94 + Case "제어" '제어" + c_p1 = 0.5 + c_p2 = 0.63 + Case "(없음)" + c_p1 = 0 + c_p2 = 0 + Case Else + '//160428 중단기능추가 + Dim msg As String = String.Format("[난방기기:{0}] 알수없는 펌프제어 값={1}", dr난방.code, dr난방.펌프제어) + If MsgBox(msg + vbCrLf + "계산을 중단하시겠습니까?", MsgBoxStyle.Question Or MsgBoxStyle.YesNo, "확인") = MsgBoxResult.Yes Then + Return + End If + End Select + + Q_w_d_aux = Q_w_d_aux + P_Pump_w / 1000 * d_Nutz_mth * t_Nutz_d * (c_p1 + c_p2) '(3.2.9-15) + + Select Case dr난방.축열탱크방식.Trim ' Worksheets("난방기기").Range("난방기기축열탱크1").Offset(0, i_count_boiler - 1) + Case "전기가열식" '전기가열식" + 'Q_w_s_aux = Q_w_s_aux + 0 + + Case "가스가열식" '가스가열식" + 'Q_w_s_aux = Q_w_s_aux + 0 + + Case "간접가열식" '간접가열식" + + '=================================================================================2010.10.19 추가 + Select Case dr난방.열생산기기방식.Trim 'Worksheets("난방기기").Range("열생산기기방식1").Offset(0, i_count_boiler - 1) + Case "보일러" + t_P = TOSG(Q_w_outg_i * 1.1 / Q_dot_N) '(3.2.9-28) + Case "지역난방" + t_P = TOSG(Q_w_outg_i * 1.1 / TOSG(dr난방.열교환기정격출력)) + Case "전기보일러" + t_P = 1 + Case "히트펌프" + t_P = 1 + End Select + '=================================================================================2010.10.19 추가 + Q_w_s_aux = TOSG(Q_w_s_aux + 0.001 * P_Pump_w * t_P) '(3.2.9-27) + + End Select + If dr난방.열생산기기방식 = "보일러" Then 'Worksheets("난방기기").Range("열생산기기방식1").Offset(0, i_count_boiler - 1) = "보일러" Then + Select Case dr난방.보일러방식.Trim 'Worksheets("난방기기").Range("보일러방식1").Offset(0, i_count_boiler - 1) + Case "가스보일러" '가스보일러" + P_aux_100 = TOSG((0.148 * Q_dot_N + 40) / 1000) '(3.2.9-77) + + Case "기름보일러" '기름보일러" + P_aux_100 = TOSG(0.045 * Q_dot_N ^ 0.48) '(3.2.9-78) + + Case "저온가스보일러" '저온가스보일러" + P_aux_100 = TOSG((0.148 * Q_dot_N + 40) / 1000) '(3.2.9-79) + + Case "저온기름보일러" '저온기름보일러" + P_aux_100 = TOSG(0.045 * Q_dot_N ^ 0.48) '(3.2.9-80) + + Case "콘덴싱보일러" '콘덴싱보일러" + P_aux_100 = TOSG(0.045 * Q_dot_N ^ 0.48) '(3.2.9-81) + + End Select + + If d_Nutz_mth = 0 Or Q_dot_N = 0 Then '//201.11.20 추가(학교프로파일 적용시 문제점 해결) '===2014.03.07 추가 + t_w_100 = 0 + Else + t_w_100 = Q_w_outg_i / (Q_dot_N * d_Nutz_mth) '(3.2.9-61) + End If + + Q_w_g_aux = Q_w_g_aux + P_aux_100 * t_w_100 * d_Nutz_mth '+ P_aux_SB * (24 - t_w_100) * (d_Nutz_mth - d_h_rB) '(3.2.9-7) + + End If + + + + If dr난방.열생산기기방식 = "보일러" Then ' Then 'Worksheets("난방기기").Range("열생산기기방식1").Offset(0, i_count_boiler - 1) = "보일러" Then + Select Case dr난방.사용연료.Trim ' Worksheets("난방기기").Range("난방기기사용연료1").Offset(0, i_count_boiler - 1) + Case "난방유" '난방유" + use_Oil = use_Oil + (Q_w_outg_i + Q_w_g_i) * system_count '========2013.08.18 수정 + + Case "천연가스" '천연가스" + use_LNG = use_LNG + (Q_w_outg_i + Q_w_g_i) * system_count '========2013.08.18 수정 + + Case "액화가스" '액화가스" + use_LPG = use_LPG + (Q_w_outg_i + Q_w_g_i) * system_count '========2013.08.18 수정 + + End Select + Else + Select Case dr난방.열생산기기방식.Trim 'Worksheets("난방기기").Range("열생산기기방식1").Offset(0, i_count_boiler - 1) + Case "지역난방" '지역난방" + use_DH = use_DH + Q_w_outg_i * system_count '========2013.08.18 수정 + + Case "전기보일러" '전기보일러" + use_Elec = use_Elec + (Q_w_outg_i + (Q_w_outg_i * 0.09)) * system_count '========2013.08.18 수정 '2011.03.08 개별전기보일러 생산손실을 내부 생산식저장으로 설정 + Q_w_outg = Q_w_outg + (Q_w_outg_i * 0.09) * system_count '========2013.11.6 수정 + + '====================================================================================2010.03.14 추가 + Case "히트펌프" + + Select Case dr난방.히트연료 ' Worksheets("난방기기").Range("히트펌프사용연료1").Offset(0, i_count_boiler - 1) + Case "전기" + use_Elec = use_Elec + (Q_w_outg_i + Q_w_g_i) * system_count '========2013.08.18 수정 + Case "천연가스" + use_LNG = use_LNG + (Q_w_outg_i + Q_w_g_i) * system_count '========2013.08.18 수정 + Case "액화가스" + use_LPG = use_LPG + (Q_w_outg_i + Q_w_g_i) * system_count '========2013.08.18 수정 + End Select + '====================================================================================2010.03.14 추가 + + End Select + + End If + + use_Elec = use_Elec + (Q_w_ce_aux + Q_w_d_aux + Q_w_s_aux + Q_w_g_aux + W_sol_aux) * system_count '========2013.08.18 수정 + Q_w_aux = Q_w_aux + (Q_w_ce_aux + Q_w_d_aux + Q_w_s_aux + Q_w_g_aux + W_sol_aux) * system_count '========2013.08.18 수정 '급탕보조에너지소요량 (3.2.9-7) 2011.03.23 추가 + + pLog.Add(String.Format("급탕_개별기기미적용시 완료 use_Elec={0},Q_w_aux={1}", use_Elec, Q_w_aux)) + End If + End Sub + + Private Sub Calc_급탕_개별기기적용시(dr난방 As DS.tbl_nanbangkikiRow, Mon As String, 비율 As Decimal, i_count_month As Integer, theta_e As Decimal, d_mth As Integer) + + pLog.Add(String.Format(">> Enter Process : Calc_급탕_개별기기적용시 : mon={0},비율={1},i_count_month={2},theta_e={3},d_mth={4}", Mon, 비율, i_count_month, theta_e, d_mth)) + + Dim dr존데이터() As DS.tbl_zoneRow = DSET.tbl_zone.Select("열생산급탕생산기기='" & dr난방.code & "' and code <> '0'", "code") + If dr존데이터.Length > 0 Then '//급탕생산기기로 지정되어있는가 '//존에서 이 난방기기가 사용되었는가? ' Worksheets("난방기기").Range("난방생산기기1").Offset(5, i_count_boiler - 1) = "예" Then + + pLog.Add("급탕생산기기로 적용된 건수가 있으므로 값들을 초기화한다") + + Q_w_b = 0 + Q_w_s = 0 + Q_w_d = 0 + Q_w_outg_i = 0 + Q_w_g_i = 0 + W_sol_aux_m = 0 + t_h = 0 + d_op_max_mth = 0 + Q_w_ce_aux = 0 + Q_w_d_aux = 0 + Q_w_s_aux = 0 + Q_w_g_aux = 0 + 'W_sol_aux_m = 0 + system_count = 1 + End If + + pLog.Add(String.Format("system_count={0}", system_count)) + + If dr난방.열생산기기방식.Trim = "전기보일러" Then Q_w_b = 0 + + pLog.Add(String.Format("Q_w_b={0}", Q_w_b)) + + ' Dim Dr존 As DS.tbl_zoneRow '//여기존 할당부분은엑셀하고 다시 비교해야할듯 하다 이존은 아래쪽에 프로시져 넘길떄 사용한다. + + '//현재난방기기를 급탕생산기기로 사용하는 존을 가져와서 누적시킴 + For Each Dr존 As DS.tbl_zoneRow In dr존데이터 + system_count = TOSG(Dr존.입력존의수) '//20130818 + If system_count = 0 Then system_count = 1 + + pLog.Add(String.Format("ZoneCode={0},System_Count={1}", Dr존.code, system_count)) + + + 'If dr난방.헤더적용 Then + ' Q_w_b = a_Q_w_b + ' Q_w_b *= 비율 + + ' d_op_max_mth = a_d_op_max_mth + ' t_h = a_t_h + 'Else + Dim Drow결과() As DSR.월별에너지분석Row = CType(DSETR.월별에너지분석.Select("월='" & Mon & "' and 존='" & Dr존.code & "'"), DSR.월별에너지분석Row()) + Dim Drow최대() As DSR.최대냉난방부하Row = CType(DSETR.최대냉난방부하.Select("Zone='" & Dr존.code & "'"), DSR.최대냉난방부하Row()) + Q_w_b = TOSG(Drow결과(0).급탕요구량) / system_count ' Sheets("" & i_count_month & "").Cells(15, 7 + i_count_zone) '//급탕에너지요구량 + + '===================================================================================2010.2.21 수정 + Dim Dr프로필() As DS.tbl_profileRow = CType(DSET.tbl_profile.Select("code='" & Dr존.프로필 & "' and code <> '0'", "code"), DS.tbl_profileRow()) + If Dr프로필.GetUpperBound(0) = -1 Then + LogSB.AppendLine(Dr존.설명 & "존의 프로필코드(" & Dr존.프로필 & ") 가 존재하지않습니다") + 'MsgBox(Dr존.설명 & "존의 프로필코드(" & Dr존.프로필 & ") 가 존재하지않습니다") + Else + d_op_mth = CInt(TOSG(Dr프로필(0)("day" & Format(i_count_month, "00")))) ' Worksheets("설정조건").Range("월간사용일수1").Offset(i_count_month, i_count_profile) + End If + + If t_h < Result.최대부하.Item(Dr존.code).일일난방최대가동시간 * d_op_mth Then + t_h = Result.최대부하.Item(Dr존.code).일일난방최대가동시간 * d_op_mth + End If + If d_op_max_mth < d_op_mth Then + d_op_max_mth = d_op_mth + End If + '===================================================================================2010.2.21 수정 + 'End If + + + '====================================2010.2.21 수정 + d_Nutz_mth = d_op_max_mth + '====================================2010.2.21 수정 + + pLog.Add(String.Format("q_w_b={0},d_op_mth={1},t_h={2},d_op_max_mth={3},d_nutz_mth={4}", Q_w_b, d_op_mth, t_h, d_op_max_mth, d_Nutz_mth)) + + If dr난방.분배시스템방식 = "중앙식" Then ' Dr난방.분배시스템방식 = "중앙식" Then + + If dr난방.배관길이 <> "" AndAlso dr난방.배관길이 <> "0" Then '//입력치 + L_i = TOSG(dr난방.배관길이) * 0.255 + Else + L_G = TOSG(dr난방.건물길이) ' Dr난방.건물길이 + B_G = TOSG(dr난방.건물넓이) 'Dr난방.건물넓이 + n_G = TOSG(dr난방.열공급층수) 'Dr난방.열공급층수 + h_G = TOSG(dr난방.층고) 'Worksheets("난방기기").Range("급탕분배건물길이1").Offset(3, i_count_boiler - 1) + L_i = TOSG((2 * L_G + 0.0325 * L_G * B_G + 6) * 0.2 + (0.025 * L_G * B_G * h_G * n_G + 2 * (L_G + B_G) * n_G) * 0.255 + (0.1 * L_G * B_G * n_G) * 0.255) '단일배관난방적용 + End If + + + '=================================================2010. 02. 11 수정 + For Each Dr난방분배 As DS.tbl_nbunbaeRow In DSET.tbl_nbunbae.Select("배관망유형='급탕' and 생산기기구분='" & dr난방.code & "'", "code") + L_i += TOSG(Dr난방분배.배관구간길이) * TOSG(Dr난방분배.열관류율) + Next + 'For i_count_pipe = 1 To Range("배관구간").Columns.Count + ' If Worksheets("난방분배시스템").Range("분배생산기기1").Offset(2, i_count_pipe - 1) = "급탕" Then + ' If Worksheets("난방기기").Range("난방생산기기1").Offset(0, i_count_boiler - 1) = Worksheets("난방분배시스템").Range("분배생산기기1").Offset(0, i_count_pipe - 1) Then + ' L_i = L_i + Worksheets("난방분배시스템").Range("배관구간방식1").Offset(1, i_count_pipe - 1) * Worksheets("난방분배시스템").Range("배관구간방식1").Offset(2, i_count_pipe - 1) + ' End If + ' End If + 'Next + '=================================================2010. 02. 11 수정 + + If dr난방.순환유무 = "무" Then ' Worksheets("난방기기").Range("급탕분배방식1").Offset(1, i_count_boiler - 1) = "무" Then + ':중앙비순환시스템 + Q_w_d_i = TOSG(1 / 1000 * L_i * ((23 * 0.2 ^ (-0.2) - theta_i) * d_Nutz_mth * 24)) '(3.2.9-11) 중앙비순환시스템 L_i 에 U_i 포함 theta_w_m_비순환 는 23*0.2^(-0.2) + theta_g_m = 40 + Else + ':중앙순환시스템 + Q_w_d_i = TOSG(1 / 1000 * L_i * d_Nutz_mth * ((50 - theta_i) * t_Nutz_d + 0.5 * (23 * 0.2 ^ (-0.2) - theta_i) * (24 - t_Nutz_d))) '(3.2.9-11) 중앙순환시스템 L_i 에 U_i 포함 theta_w_m_순환 는 50도 + theta_g_m = 50 + End If + + Q_w_d = Q_w_d + Q_w_d_i '(3.2.9-12) + + Else + + theta_g_m = 40 '2013.01.12 추가 개별식의 경우 비순환시스템으로 적용 + + End If + + pLog.Add(String.Format("theta_g_m={0}", theta_g_m)) + + + Select Case dr난방.축열탱크방식.Trim ' Worksheets("난방기기").Range("난방기기축열탱크1").Offset(0, i_count_boiler - 1) + Case "전기가열식" '전기가열식" + + ':저탕조용량(모를경우) + 'f_N = 1 / (t_Nutz_d * 1) '(3.2.9-24) t_Nutz_T 는 t_Nutz_d 로 적용, eta_Sp는 1로 적용 추후 검토 + ':심야전기가열 + 'V_s = 1.42 * Q_w_b_d * f_N * 860 / ((theta_w_m - theta_k) * eta_s) '(3.2.9-33) : 심야전기가열 + ':주간전기가열 + 'V_s = 0.67 * Q_w_b_d * f_N * 860 / ((Q_w_m - Q_k) * eta_s) '(3.2.9-34) : 주간전기가열 + V_s = TOSG(dr난방.축열제척) ' Worksheets("난방기기").Range("난방기기축열체적1").Offset(0, i_count_boiler - 1) + q_B_S = TOSG(0.29 + 0.019 * V_s ^ 0.8) '(3.2.9-30) :1994 이후 + Q_w_s = TOSG((55 - theta_i) / 45 * d_Nutz_mth * q_B_S) '(3.2.9-29) : 전기가열식 저탕조 + + + Case "가스가열식" '가스가열식" + + ':가스가열식 저탕조 + V_s = TOSG(dr난방.축열제척) 'Worksheets("난방기기").Range("난방기기축열체적1").Offset(0, i_count_boiler - 1) + ':1994 이후 + q_B_S = TOSG(2 + 0.033 * V_s ^ 1.1) '(3.2.9-38) + Q_w_s = TOSG((55 - theta_i) / 50 * d_Nutz_mth * q_B_S) '(3.2.9-37) : 가스가열식 저탕조 + + Case "간접가열식" '간접가열식" + ':간접 가열식 저탕조 + ':태양열 복합 저탕조(UA_sb_s_a를 모를 경우) + 'q_B_S = (0.4 + 0.2 * (V_s_aux + V_s_sol) ^ 0.4) * V_s_aux / (V_s_aux + V_s_sol) '(3.2.9-26) + 'f_N = 1 / (t_Nutz_T * n_Sp) '(3.2.9-24) + ':저탕조용량(모를 경우) + 'V_s = (Q_w_b_d * f_N * 860) / ((theta_w_m - theta_k) * eta_s) '(3.2.9-23) + V_s = TOSG(dr난방.축열제척) 'Worksheets("난방기기").Range("난방기기축열체적1").Offset(0, i_count_boiler - 1) + If V_s < 1000 Then + ':1000이하 + ' q_B_S = 'CSng(0.8 + 2 * V_s ^ 0.77) '(3.2.9-18) 여기맞아요? 예 0. + q_B_S = 0.8 + 0.02 * V_s ^ 0.77 '(3.2.9-18) '===================================2010.04.24 수정 + Else + ':1000이상 + q_B_S = TOSG(0.39 * V_s ^ 0.35 + 0.5) '(3.2.9-19) + End If + Q_w_s = f_verbindung * (50 - theta_i) / 45 * d_Nutz_mth * q_B_S '(3.2.9-16) + + End Select + + Q_w_outg_i = Q_w_b + Q_w_ce + Q_w_d + Q_w_s '(3.2.9-4) + + + Q_w_outg = Q_w_outg + Q_w_outg_i * system_count + + pLog.Add(String.Format("q_w_outg_i={0},Q_w_outg={1}", Q_w_outg_i, Q_w_outg)) + + ' 신재생에너지 시스템 + '---------------------------------------------------------------------------------------------------------------------------------- + '---------------------------------------------------------------------------------------------------------------------------------- + + '태양열(급탕) 시스템 + 'If Dr난방.설명.ToUpper.IndexOf("B-1") <> -1 Then + ' MsgBox(Dr난방.code) + 'End If + Dim CRenew As New CRenewable(DSET, Result) + If dr난방.신재생연결여부 = "시스템연결" AndAlso dr난방.연결된시스템 <> "0" Then 'Worksheets("난방기기").Range("신재생난방연결1").Offset(0, i_count_boiler - 1) = "시스템연결" Then + Dim dr신재생 As DS.tbl_newRow = CType(DSET.tbl_new.Select("code <> '0' and code='" & dr난방.연결된시스템 & "'")(0), DS.tbl_newRow) + ' If dr신재생.기기종류.Trim.IndexOf("태") <> -1 Then + Select Case dr신재생.기기종류.Trim + Case "태양열" '//태양열 + If dr신재생.태양열종류 = "급탕" Then + Calc.Renewable.Calc_ThermalSolarSystem_EN(system_type, dr신재생.code, i_count_month, d_mth, Q_h_outg_i, Q_w_outg_i, Q_W_sol_out_m, Q_H_sol_out_m, W_sol_aux_m) + Q_w_outg = Q_w_outg - Q_W_sol_out_m + Q_w_outg_i = Q_w_outg_i - Q_W_sol_out_m + W_sol_aux = W_sol_aux + W_sol_aux_m + End If + '=======================================================================2011.007.19 추가 + Case "열병합" '//열병합 + Select Case dr신재생.가동연료.Trim + Case "난방유" '난방유" + CRenew.Calc_CogenerationSystemEN(dr신재생, 3, i_count_month, Q_w_outg_i, t_h, Q_w_CHP, Q_w_f_CHP) + Q_w_outg = Q_w_outg - Q_w_CHP + Q_w_outg_i = Q_w_outg_i - Q_w_CHP + use_Oil = use_Oil + Q_w_f_CHP * system_count '===========2013.08.18 수정 + Q_w_f = Q_w_f + Q_w_f_CHP * system_count '============================2013.01.13 수정, 2013.08.18 수정 + Case "천연가스" '천연가스" + CRenew.Calc_CogenerationSystemEN(dr신재생, 3, i_count_month, Q_w_outg_i, t_h, Q_w_CHP, Q_w_f_CHP) + Q_w_outg = Q_w_outg - Q_w_CHP + Q_w_outg_i = Q_w_outg_i - Q_w_CHP + use_LNG = use_LNG + Q_w_f_CHP * system_count '===========2013.08.18 수정 + Q_w_f = Q_w_f + Q_w_f_CHP * system_count '============================2013.01.13 수정, 2013.08.18 수정 + Case "액화가스" '액화가스" + CRenew.Calc_CogenerationSystemEN(dr신재생, 3, i_count_month, Q_w_outg_i, t_h, Q_w_CHP, Q_w_f_CHP) + Q_w_outg = Q_w_outg - Q_w_CHP + Q_w_outg_i = Q_w_outg_i - Q_w_CHP + use_LPG = use_LPG + Q_w_f_CHP * system_count '===========2013.08.18 수정 + Q_w_f = Q_w_f + Q_w_f_CHP * system_count '============================2013.01.13 수정, 2013.08.18 수정 + Case Else + MsgBox("신재생에너지의 가동연료를 확인할 수 없습니다", MsgBoxStyle.Critical, dr신재생.가동연료) + End Select + '=======================================================================2011.007.19 추가 + + Case "지열" '//지열 + Select Case dr신재생.가동연료.Trim + Case "전기" '전기" + CRenew.Calc_HeatpumpSystem(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_HeatpumpSystem(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_HeatpumpSystem(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 + + '---------------------------------------------------------------------------------------------------------------------------------- + '---------------------------------------------------------------------------------------------------------------------------------- + '=========================================================================================================================2013.01.13 히트펌프 위치 수정 + + If dr난방.열생산기기방식 = "히트펌프" Then + + pLog.Add("열생산기기방식-히트펌프진입") + Q_dot_HP_waterheating = TOSG(dr난방.히트난방용량) ' Worksheets("난방기기").Range("히트펌프사용연료1").Offset(1, i_count_boiler - 1) + COP_HP_7 = TOSG(dr난방.히트난방정격7) ' Worksheets("난방기기").Range("히트펌프사용연료1").Offset(2, i_count_boiler - 1) + COP_HP_10 = TOSG(dr난방.히트난방정격10) ' Worksheets("난방기기").Range("히트펌프사용연료1").Offset(3, i_count_boiler - 1) ' 새로운 버전에서 15도로 입력값 수정 + L_HP_waterheating = TOSG(dr난방.히트배관길이) ' Worksheets("난방기기").Range("히트펌프사용연료1").Offset(4, i_count_boiler - 1) + If theta_e > 15 Then + COP_HP_total = (COP_HP_7 - COP_HP_10) / 22 * 15 + COP_HP_7 - 7 * (COP_HP_7 - COP_HP_10) / 22 + Else + COP_HP_total = (COP_HP_7 - COP_HP_10) / 22 * theta_e + COP_HP_7 - 7 * (COP_HP_7 - COP_HP_10) / 22 + End If + + If theta_e < 7 Then + + If theta_e >= 0 Then + COP_HP_total = TOSG(COP_HP_total * ((1 - 0.86) / 7 * theta_e + 0.86)) + Else + COP_HP_total = TOSG(COP_HP_total * ((0.98 - 0.86) / 7 * (-theta_e) + 0.86)) + End If + + End If + + If Q_dot_HP_waterheating <= 20 Then + COP_HP_total = TOSG(COP_HP_total * (1 - L_HP_waterheating * 0.002)) + Else + If Q_dot_HP_waterheating <= 100 Then + COP_HP_total = TOSG(COP_HP_total * (1 - L_HP_waterheating * 0.0009)) + Else + COP_HP_total = TOSG(COP_HP_total * (1 - L_HP_waterheating * 0.0014)) + End If + End If + + Q_w_outg = Q_w_outg - Q_w_outg_i '===================================================2013.01.16 추가 + + + If Q_dot_HP_waterheating = 0 Or t_h = 0 Then '=============================================================2014.03.07 추가 + Q_w_outg_i = 0 + Else + If Q_w_outg_i / (Q_dot_HP_waterheating * t_h) > 1 Or dr난방.히트펌프시스템종류 = "실내외분리시스템" Then + Q_w_outg_i = Q_w_outg_i / COP_HP_total + Else + Q_w_outg_i = Q_w_outg_i / (COP_HP_total * (Q_w_outg_i / (Q_dot_HP_waterheating * t_h) * 0.5 + 0.5)) + End If + + End If '=============================================================2014.03.07 추가 + + Q_w_outg = Q_w_outg + Q_w_outg_i '===================================================2013.01.16 추가 + + pLog.Add(String.Format("열생산기기방식-히트펌프완료 Q_w_outg={0}", Q_w_outg)) + + End If + + '=========================================================================================================================2013.01.13 히트펌프 위치 수정 + + Q_dot_N = TOSG(IIf(dr난방.보일러정격출력 = "", 0, dr난방.보일러정격출력)) 'Worksheets("난방기기").Range("난방기기정격출력1").Offset(0, i_count_boiler - 1) + eta_k_100 = TOSG(IIf(dr난방.정격보일러효율 = "", 0, TOSG(dr난방.정격보일러효율))) / 100 ' Worksheets("난방기기").Range("난방기기정격효율1").Offset(0, i_count_boiler - 1) / 100 + + 'Select Case Worksheets("난방기기").Range("난방기기사용연료1").Offset(0, i_count_boiler - 1) + 'Case "난방유" + 'f_Hs_Hi = 1.06 + 'Case "천연가스" + 'f_Hs_Hi = 1.11 + 'Case "액화가스" + 'f_Hs_Hi = 1.09 + 'Case "석탄" + 'f_Hs_Hi = 1.04 + 'Case "갈탄" + 'f_Hs_Hi = 1.07 + 'Case "나무" + 'f_Hs_Hi = 1.08 + 'End Select + f_Hs_Hi = 1 ' 국내는 총발열량을 기준으로 입력함으로 우선 1로 설정, 추후 검토 + + If dr난방.열생산기기방식 = "보일러" Then ' Worksheets("난방기기").Range("열생산기기방식1").Offset(0, i_count_boiler - 1) = "보일러" Then + + pLog.Add("열생산기기방식-보일러진입") + + If d_Nutz_mth = 0 Or eta_k_100 = 0 Then '//201.11.20 추가(학교프로파일 적용시 문제점 해결) '==============2014.03.07 추가 + Q_w_g_100 = 0 + Else + Q_w_g_100 = (f_Hs_Hi - eta_k_100) / eta_k_100 * Q_w_outg_i / d_Nutz_mth '(3.2.9-58) + End If + + If d_Nutz_mth = 0 Or Q_dot_N = 0 Then '//201.11.20 추가(학교프로파일 적용시 문제점 해결) '=================2014.03.07 추가 + t_w_100 = 0 + Else + t_w_100 = Q_w_outg_i / (Q_dot_N * d_Nutz_mth) '(3.2.9-61) + End If + + Select Case dr난방.보일러방식.Trim ' Worksheets("난방기기").Range("보일러방식1").Offset(0, i_count_boiler - 1) + Case "가스보일러" '가스보일러" + q_B_70 = TOSG((8.5 * Q_dot_N ^ (-0.4)) / 100) + + Case "기름보일러" '기름보일러" + q_B_70 = TOSG((8.5 * Q_dot_N ^ (-0.4)) / 100) + + Case "저온가스보일러" '저온가스보일러" + q_B_70 = TOSG((4.5 * Q_dot_N ^ (-0.4)) / 100) + + Case "저온기름보일러" '저온기름보일러" + q_B_70 = TOSG((4.25 * Q_dot_N ^ (-0.4)) / 100) + + Case "콘덴싱보일러" '콘덴싱보일러" + q_B_70 = TOSG((4 * Q_dot_N ^ (-0.4)) / 100) + Case Else + MsgBox("난방.보일러방식을 알수없습니다", MsgBoxStyle.Critical, "값=" & dr난방.보일러방식) + End Select + + q_B_theta = q_B_70 * (theta_g_m - theta_i) / (70 - 20) '(3.2.9-60) + If eta_k_100 = 0 Then '===========================================2014.03.07 추가 + Q_B_w = 0 + Else + Q_B_w = q_B_theta * Q_dot_N / eta_k_100 * (t_Nutz_d - t_w_100) * f_Hs_Hi '(3.2.9-59) + End If '===========================================2014.03.07 추가 + + If theta_WA_Grenz - theta_e_min = 0 Then '====================================================2014.03.07 추가 + f_L_WA = 1 + Else + f_L_WA = 1 - (theta_WA_Grenz - theta_e) / (theta_WA_Grenz - theta_e_min) '(3.2.7-22) + End If '====================================================2014.03.07 추가 + + If d_mth = 0 Then + d_h_rB = 0 + Else + d_h_rB = d_mth * ((365 - f_L_WA * (365 - d_Nutz_a)) / 365) * (t_h / (d_mth * 24)) '(3.2.7-21) + End If + + + ':d_h_rB > d_Nutz_mth 일 경우 + If d_h_rB > d_Nutz_mth Then + d_Nutz_mth = CInt(d_h_rB) + End If + + Q_w_g = Q_w_g + (Q_w_g_100 * d_Nutz_mth + Q_B_w * (d_Nutz_mth - d_h_rB)) * system_count '=====2013.08.13 수정 '(3.2.9-57) + Q_w_g_i = Q_w_g_100 * d_Nutz_mth + Q_B_w * (d_Nutz_mth - d_h_rB) + + pLog.Add(String.Format("열생산기기방식-보일러완료 Q_w_g={0},Q_w_g_i={1}", Q_w_g, Q_w_g_i)) '===2017.02.26 당초 Q_w_g_i={1]" 을 Q_w_g_i={1}" 으로 오류 수정 + + Else + + If dr난방.열생산기기방식 = "지역난방" Then ' Worksheets("난방기기").Range("열생산기기방식1").Offset(0, i_count_boiler - 1) = "지역난방" Then + + pLog.Add("열생산기기방식-지역난방진입") + + If dr난방.지역난방방식 = "중온수" Then ' Worksheets("난방기기").Range("지역난방온수방식1").Offset(0, i_count_boiler - 1) = "중온수" Then + D_DS = 0.6 + theta_prim_DS = 105 + 'MsgBox("난방기기 단열등급에 등급2/3 등급3/4 등급 4/5 추가해야함") + Select Case dr난방.단열등급.Trim ' Dr난방.단열등급 + Case "기본단열" '기본단열" '원래는 등급1/2 이지만 국내에서는 법적단열로 사용 + B_DS = 4.9 + Case "등급2/3" '등급2/3" + B_DS = 4.4 + Case "등급3/4" '등급3/4" + B_DS = 4 + Case "등급4/5" '등급4/5" + B_DS = 3.5 + End Select + End If + 'MsgBox("난방기기 지역난방방식에 고온수 0002 추가해야함") --추가는 했으나 엑셀에서는 중온수고정이다 그래서 하위 루틴은 실행되면안된다 + If dr난방.지역난방방식 = "고온수" Then 'Worksheets("난방기기").Range("지역난방온수방식1").Offset(0, i_count_boiler - 1) = "고온수" Then + ' MsgBox("난방기기의 지역난방방식은 중온수 고정입니다.", MsgBoxStyle.Information, "확인") + D_DS = 0.4 + theta_prim_DS = 150 + Select Case dr난방.단열등급.Trim + Case "기본단열" '기본단열" '원래는 등급1/2 이지만 국내에서는 법적단열로 사용 + B_DS = 4.3 + Case "등급2/3" '등급2/3" + B_DS = 3.9 + Case "등급3/4" '등급3/4" + B_DS = 3.5 + Case "등급4/5" '등급4/5" + B_DS = 3.1 + End Select + End If + + + + theta_DS = D_DS * theta_prim_DS + (1 - D_DS) * 55 ' theta_sek_DS는 55도로 설정 (3.2.7-112) + Psi_DS = TOSG(dr난방.열교환기정격출력) ' .Worksheets("난방기기").Range("난방기기정격출력1").Offset(1, i_count_boiler - 1) + H_DS = TOSG(B_DS * Psi_DS ^ (1 / 3)) + Q_w_g = Q_w_g + (H_DS * (theta_DS - theta_i)) * system_count '=====2013.08.13 수정 + use_DH = use_DH + (H_DS * (theta_DS - theta_i)) * system_count '========2013.08.18 수정 + + + pLog.Add(String.Format("열생산기기방식-지역난방완료 {0},{1}", Q_w_g, use_DH)) + End If + + End If + + ': 급탕 전기 보조에너지 시작 + + Q_w_ce_aux = 0 + Q_w_g_aux = 0 '// 2014.01.08 추가 + + P_Pump_w = TOSG(dr난방.펌프동력급탕) ' Worksheets("난방기기").Range("급탕펌프제어유형1").Offset(1, i_count_boiler - 1) + Select Case dr난방.펌프제어.Trim 'Worksheets("난방기기").Range("급탕펌프제어유형1").Offset(0, i_count_boiler - 1) + Case "비제어" '비제어" + c_p1 = 0.25 + c_p2 = 0.94 + Case "제어" '제어" + c_p1 = 0.5 + c_p2 = 0.63 + Case "(없음)" + c_p1 = 0 + c_p2 = 0 + Case Else + MsgBox("[난방기가: " & dr난방.code & "] 알수없는 펌프제어방식(" & dr난방.펌프제어.Trim & ")", MsgBoxStyle.Critical, dr난방.펌프제어) + + + End Select + + Q_w_d_aux = Q_w_d_aux + P_Pump_w / 1000 * d_Nutz_mth * t_Nutz_d * (c_p1 + c_p2) '(3.2.9-15) + + Select Case dr난방.축열탱크방식.Trim ' Worksheets("난방기기").Range("난방기기축열탱크1").Offset(0, i_count_boiler - 1) + Case "전기가열식" '전기가열식" + 'Q_w_s_aux = Q_w_s_aux + 0 + + Case "가스가열식" '가스가열식" + 'Q_w_s_aux = Q_w_s_aux + 0 + + Case "간접가열식" '간접가열식" + + '=================================================================================2010.10.19 추가 + Select Case dr난방.열생산기기방식.Trim 'Worksheets("난방기기").Range("열생산기기방식1").Offset(0, i_count_boiler - 1) + Case "보일러" + t_P = TOSG(Q_w_outg_i * 1.1 / Q_dot_N) '(3.2.9-28) + Case "지역난방" + t_P = TOSG(Q_w_outg_i * 1.1 / TOSG(dr난방.열교환기정격출력)) + Case "전기보일러" + t_P = 1 + Case "히트펌프" + t_P = 1 + End Select + '=================================================================================2010.10.19 추가 + Q_w_s_aux = TOSG(Q_w_s_aux + 0.001 * P_Pump_w * t_P) '(3.2.9-27) + + End Select + If dr난방.열생산기기방식 = "보일러" Then 'Worksheets("난방기기").Range("열생산기기방식1").Offset(0, i_count_boiler - 1) = "보일러" Then + Select Case dr난방.보일러방식.Trim 'Worksheets("난방기기").Range("보일러방식1").Offset(0, i_count_boiler - 1) + Case "가스보일러" '가스보일러" + P_aux_100 = TOSG((0.148 * Q_dot_N + 40) / 1000) '(3.2.9-77) + + Case "기름보일러" '기름보일러" + P_aux_100 = TOSG(0.045 * Q_dot_N ^ 0.48) '(3.2.9-78) + + Case "저온가스보일러" '저온가스보일러" + P_aux_100 = TOSG((0.148 * Q_dot_N + 40) / 1000) '(3.2.9-79) + + Case "저온기름보일러" '저온기름보일러" + P_aux_100 = TOSG(0.045 * Q_dot_N ^ 0.48) '(3.2.9-80) + + Case "콘덴싱보일러" '콘덴싱보일러" + P_aux_100 = TOSG(0.045 * Q_dot_N ^ 0.48) '(3.2.9-81) + + End Select + + If d_Nutz_mth = 0 Or Q_dot_N = 0 Then '//201.11.20 추가(학교프로파일 적용시 문제점 해결) '================2014.03.07 추가 + t_w_100 = 0 + Else + t_w_100 = Q_w_outg_i / (Q_dot_N * d_Nutz_mth) '(3.2.9-61) + End If + + Q_w_g_aux = Q_w_g_aux + P_aux_100 * t_w_100 * d_Nutz_mth '+ P_aux_SB * (24 - t_w_100) * (d_Nutz_mth - d_h_rB) '(3.2.9-7) + + End If + + + + If dr난방.열생산기기방식 = "보일러" Then ' Then 'Worksheets("난방기기").Range("열생산기기방식1").Offset(0, i_count_boiler - 1) = "보일러" Then + Select Case dr난방.사용연료.Trim ' Worksheets("난방기기").Range("난방기기사용연료1").Offset(0, i_count_boiler - 1) + Case "난방유" '난방유" + use_Oil = use_Oil + (Q_w_outg_i + Q_w_g_i) * system_count '========2013.08.18 수정 + + Case "천연가스" '천연가스" + use_LNG = use_LNG + (Q_w_outg_i + Q_w_g_i) * system_count '========2013.08.18 수정 + + Case "액화가스" '액화가스" + use_LPG = use_LPG + (Q_w_outg_i + Q_w_g_i) * system_count '========2013.08.18 수정 + + End Select + Else + Select Case dr난방.열생산기기방식.Trim 'Worksheets("난방기기").Range("열생산기기방식1").Offset(0, i_count_boiler - 1) + Case "지역난방" '지역난방" + use_DH = use_DH + Q_w_outg_i * system_count '========2013.08.18 수정 + + Case "전기보일러" '전기보일러" + use_Elec = use_Elec + (Q_w_outg_i + (Q_w_outg_i * 0.09)) * system_count '========2013.08.18 수정 '2011.03.08 개별전기보일러 생산손실을 내부 생산식저장으로 설정 + Q_w_outg = Q_w_outg + (Q_w_outg_i * 0.09) * system_count '========2013.11.6 수정 + + '====================================================================================2010.03.14 추가 + Case "히트펌프" + + Select Case dr난방.히트연료 ' Worksheets("난방기기").Range("히트펌프사용연료1").Offset(0, i_count_boiler - 1) + Case "전기" + use_Elec = use_Elec + (Q_w_outg_i + Q_w_g_i) * system_count '========2013.08.18 수정 + Case "천연가스" + use_LNG = use_LNG + (Q_w_outg_i + Q_w_g_i) * system_count '========2013.08.18 수정 + Case "액화가스" + use_LPG = use_LPG + (Q_w_outg_i + Q_w_g_i) * system_count '========2013.08.18 수정 + End Select + '====================================================================================2010.03.14 추가 + + End Select + + End If + + use_Elec = use_Elec + (Q_w_ce_aux + Q_w_d_aux + Q_w_s_aux + Q_w_g_aux + W_sol_aux) * system_count '========2013.08.18 수정 + Q_w_aux = Q_w_aux + (Q_w_ce_aux + Q_w_d_aux + Q_w_s_aux + Q_w_g_aux + W_sol_aux) * system_count '========2013.08.18 수정 '급탕보조에너지소요량 (3.2.9-7) 2011.03.23 추가 + + pLog.Add(String.Format("급탕개별기기적용시 완료 : use_ele={0},q_w_aux={1}", use_Elec, Q_w_aux)) + Next '//for zonerow + + End Sub + + + '//i_ce As Integer 제거함 사용안됨 + Dim i_count_beta As Integer + Dim Q_h_f As Decimal, Q_h_outg As Decimal, Q_h_g As Decimal + Dim Q_h_b As Decimal, Q_h_b_i As Decimal, Q_h_ce As Decimal, Q_h_ce_i As Decimal, Q_dot_h_max As Decimal, Q_h_d As Decimal, Q_h_s As Decimal + Dim f_hydr As Decimal, f_int As Decimal, f_Radiant As Decimal + Dim beta_k_pl As Decimal, beta_k_100 As Decimal, n As Decimal, t_h_op_d As Integer, n_beta As Integer + Dim theta_i_h_soll As Decimal, theta_VA As Decimal, theta_RA As Decimal + Dim e As Decimal, f As Decimal, Q_V_g_100 As Decimal, Q_V_g_pl As Decimal, Q_h_g_v_i As Decimal + Dim Q_h_ce_aux As Decimal, Q_h_d_aux As Decimal, Q_h_d_aux_i As Decimal, beta_h_s As Decimal, Q_h_s_aux As Decimal, Q_h_g_aux As Decimal, P_h_g_aux As Decimal, P_aux_pl As Decimal, P_aux_SB As Decimal + Dim eta_L As Decimal, eta_B As Decimal, eta_C As Decimal, eta_h_ce As Decimal, beta_h_d As Decimal, beta_h As Decimal + Dim theta_VL_m_beta_h_d As Decimal, theta_RL_m_beta_h_d As Decimal, theta_HK_m_beta_h_d As Decimal, eta_k_pl As Decimal + Dim f_L_NA As Decimal, t_h_rL_T As Decimal, t_h_rL As Decimal + Dim Q_dot_d_in As Decimal, Q_dot_B_h As Decimal, Q_h_g_i As Decimal + Dim P_Pump As Decimal, f_P_A As Decimal + Dim P_C As Decimal, P_V As Decimal, P_P As Decimal, n_V As Decimal, n_P As Decimal, Q_V_P As Decimal, Q_c As Decimal, Q_h_aux As Decimal + Dim t_h_max As Integer + Dim Q_h_CHP As Decimal, Q_h_f_CHP As Decimal + Dim i_HeatCool As Integer, Q_hp_outg As Decimal, Q_h_f_hp As Decimal, Q_h_g_hp_aux As Decimal + Dim Q_dot_HP_heating As Decimal, L_HP_heating As Decimal '=======================2010.03.14 추가 + Dim U_i As Decimal + + Dim a_Q_h_b_i As Decimal = 0 + Dim a_Q_dot_h_max As Decimal = 0 + Dim a_t_h_max As Decimal = 0 + Dim a_t_h_op_d As Decimal = 0 + Dim a_d_op_mth As Decimal = 0 + Dim priod_value As Single = 0 + Dim age As Decimal = 1 '//준공연도에 의한 경년변화값 + Dim age_heating As Decimal = 1 + + Public Overridable Sub Calc_HeatingSystem(ByVal i_count_month As Integer, ByVal theta_e As Decimal) + + pLog.Add(String.Format("Enter >> Calc_HeatingSystem i_count_month={0},theta_e={1}", i_count_month, theta_e)) + + d_op_max_mth = 0 + '==================================2010.2.21 수정 + + + 'For Each DRpriod As DS.tbl_DescRow In DSET.tbl_Desc.Select("cname<>'0'", "cname") + ' priod_value = CSng(DRpriod.priod) + 'Next + 'If priod_value > 20 Then priod_value = 20 + 'age = (1 - 0.01) ^ priod_value + 'age_heating = (1 - 0.005) ^ priod_value + + '==================================2013.08.18 추가 + + 'Dim system_count_check As Integer '체크여부 리턴값 확인 필요 + 'Dim header_check As Integer '체크여부 리턴값 확인 필요 + + U_i = 0D + theta_NA_Grenz = 10 + theta_WA_Grenz = 10 + beta_k_pl = 0.3 + beta_k_100 = 1 + f_verbindung = 1.2 '동일공간의 경우임, 타공간의 경우 (3.2.7-36) 참조 + f_hydr = 1 '리버스리턴 계수로 지금은 1로 적용, 추후 검토 + f_int = 1 ' 간헐(0.97-0.98), 지속 1 우선 1로 적용, 추후 검토 + f_verbindung = 1.2 + theta_i_h_soll = 20 + theta_i = 13 ' 비난방공간으로 가정 + n = 1.33 '라디에이터 1.33, 바닥난방 1.1, 우선 라디에이터 적용 + theta_e_min = -11.3 + d_Nutz_a = 365 '연간이용일수 우선 연중가동으로 적용 + Q_h_outg = 0 + 'd_Nutz_mth = d_mth ' 연중가동으로 계산 추후 검토 '================2010.2.21 수정 + Q_h_g = 0 + Q_h_ce_aux = 0 + Q_h_d_aux = 0 + Q_h_s_aux = 0 + Q_h_g_aux = 0 + use_Oil = 0 + use_LNG = 0 + use_LPG = 0 + use_Elec = 0 + use_DH = 0 + Q_h_outg = 0 + Q_w_outg = 0 + Q_h_CHP = 0 + Q_h_f_CHP = 0 + i_HeatCool = 1 + Q_hp_outg = 0 + Q_h_f_hp = 0 + Q_h_g_hp_aux = 0 + W_sol_aux = 0 + system_type = 1 + Q_h_f = 0 '===============================2010.04.17 추가 + t_Nutz_d = 24 '==========================2010.04.24 추가 + + '======================2013.01.13 추가 + system_count = 1 + '======================2013.01.13 추가 + + '//각달별로데이터를 초기화(131020-arin) + Q_h_aux = 0 + use_Elec = 0 + use_Oil = 0 + use_LNG = 0 + use_LPG = 0 + use_DH = 0 + use_Elec = 0 + + a_Q_h_b_i = 0 + a_Q_dot_h_max = 0 + a_t_h_max = 0 + a_t_h_op_d = 0 + a_d_op_mth = 0 + priod_value = 0 + age = 1 '//준공연도에 의한 경년변화값 + age_heating = 1 + + + + Dim Mon As String = "M" & Format(i_count_month, "00") + + '//130822 + Dim 보일러정격출력합 As Decimal = 0 '//acc + + For Each Dr난방 As DS.tbl_nanbangkikiRow In DSET.tbl_nanbangkiki.Select("code<>'0' and 헤더적용=true", "code") + + '=======================================================================================================2014.02.24 수정 + Select Case Dr난방.열생산기기방식.Trim.ToUpper + Case "보일러" + 보일러정격출력합 += TOSG(Dr난방.보일러정격출력) + Case "지역난방" + 보일러정격출력합 += TOSG(Dr난방.열교환기정격출력) + Case "히트펌프" + 보일러정격출력합 += TOSG(Dr난방.히트난방용량) + Case "전기보일러" + 보일러정격출력합 += TOSG(Dr난방.보일러정격출력) + End Select + '=======================================================================================================2014.02.24 수정 + + + For Each DR존 As DS.tbl_zoneRow In DSET.tbl_zone.Select("(공조난방생산기기 = '" & Dr난방.code & "' and 냉난방공조 <> '기능없음' and (외기부하처리여부 = '예' or 냉난방공조 = '냉난방' or 냉난방공조 = '난방') ) or (열생산난방생산기기='" & Dr난방.code & "' and 냉난방방식 <> '냉방' and 냉난방방식 <> '기능없음') and code <> '0'") ' For i_count_zone = 1 To DSET.tbl_zone.Rows.Count + Dim 판단1 As Boolean = False + Dim 판단2 As Boolean = False + If DR존.열생산난방생산기기 = Dr난방.code Then 판단1 = True + If DR존.공조난방생산기기 = Dr난방.code Then 판단2 = True + + If 판단1 And (DR존.냉난방방식 = "냉난방" OrElse DR존.냉난방방식 = "난방") Then + Dim Dr월에너지 As DSR.월별에너지분석Row = CType(DSETR.월별에너지분석.Select("월='" & Mon & "' and 존='" & DR존.code & "'")(0), DSR.월별에너지분석Row) + Dim Drow최대() As DSR.최대냉난방부하Row = CType(DSETR.최대냉난방부하.Select("Zone='" & DR존.code & "'"), DSR.최대냉난방부하Row()) + + system_count = IIf(Dr난방.개별기기적용 = "0", 1, TOSG(DR존.입력존의수)) '===========2013.08.18 추가 + If system_count = 0 Then system_count = 1 + + + If (DR존.냉난방공조 = "환기" OrElse DR존.냉난방공조 = "냉방") And DR존.외기부하처리여부 = "예" Then + a_Q_h_b_i += TOSG(Dr월에너지.난방요구량열) / system_count '===========2012.08.18 수정 + Else + a_Q_h_b_i += TOSG(Dr월에너지.난방요구량열 + Dr월에너지.난방요구량공조) / system_count '===========2012.08.18 수정 ' Sheets("" & i_count_month & "").Cells(7, 7 + i_count_zone) + End If + '=========================================================================================================================================================2010.2.21 수정 + a_Q_dot_h_max += TOSG(Drow최대(0).최대난방기기부하) ' Worksheets("0").Range("최대난방부하1").Offset(0, i_count_zone - 1) + + '===================================================================================2010.2.21 수정 + Dim DR프로필 As DS.tbl_profileRow = CType(DSET.tbl_profile.Select("code='" & DR존.프로필 & "' and code <> '0'")(0), DS.tbl_profileRow) + If i_count_month = 0 Then + d_op_mth = 0 + Else + d_op_mth = CInt(TOSG(DR프로필("day" & Format(i_count_month, "00")))) + End If + If t_h < TOSG(Drow최대(0).난방최대가동시간) * d_op_mth Then + t_h = CInt(TOSG(Drow최대(0).난방최대가동시간) * d_op_mth) + End If + If d_op_max_mth < d_op_mth Then d_op_max_mth = d_op_mth + '===================================================================================2010.2.21 수정 + If t_h > t_h_max Then t_h_max = t_h + If t_h_op_d < TOSG(Drow최대(0).난방최대가동시간) Then t_h_op_d = CInt(TOSG(Drow최대(0).난방최대가동시간)) ' Sheets("0").Range("최대난방부하1").Offset(2, i_count_zone - 1) + + '//acc + If d_op_max_mth > a_d_op_max_mth Then a_d_op_max_mth = d_op_max_mth + If t_h > a_t_h Then a_t_h = t_h + If t_h_max > a_t_h_max Then a_t_h_max = t_h_max + If t_h_op_d > a_t_h_op_d Then a_t_h_op_d = t_h_op_d + End If '//판단1 + + If DR존.냉난방공조 = "냉난방" OrElse DR존.냉난방공조 = "난방" OrElse ((DR존.냉난방공조 = "환기" OrElse DR존.냉난방공조 = "냉방") And DR존.외기부하처리여부 = "예") Then ' 공조기 사용에 따른 난방에너지 + '=========================================================================================================================================================2010.2.21 수정 + system_count = IIf(Dr난방.개별기기적용 = "0", 1, TOSG(DR존.입력존의수)) '//20130818 + If system_count = 0 Then system_count = 1 + + If 판단2 Then + + Dim 월에너지분석 As DSR.월별에너지분석Row = CType(DSETR.월별에너지분석.Select("월='" & Mon & "' and 존='" & DR존.code & "'")(0), DSR.월별에너지분석Row) + If (DR존.냉난방공조 = "환기" OrElse DR존.냉난방공조 = "냉방") And DR존.외기부하처리여부 = "예" Then '// 2010.11.19 추가 + a_Q_h_b_i += TOSG(월에너지분석.난방요구량공조) / system_count '=========2013.08.18 수정 + Else + a_Q_h_b_i += TOSG(월에너지분석.공조요구량난방) / system_count '=========2013.08.18 수정 ' Sheets("" & i_count_month & "").Cells(19, 7 + i_count_zone) + End If + + '// + Dim Drow최대() As DSR.최대냉난방부하Row = CType(DSETR.최대냉난방부하.Select("zone='" & DR존.code & "'"), DSR.최대냉난방부하Row()) + Dim Dr프로필 As DS.tbl_profileRow = CType(DSET.tbl_profile.Select("code='" & DR존.프로필 & "' and code <> '0'")(0), DS.tbl_profileRow) + Q_dot_h_max = TOSG(Q_dot_h_max + TOSG(Drow최대(0).최대난방기기부하)) / system_count '=====2013.08.18 수정 ' Worksheets("0").Range("최대난방부하1").Offset(0, i_count_zone - 1) + + If i_count_month = 0 Then + d_op_mth = 0 + Else + d_op_mth = CInt(TOSG(Dr프로필("day" & Format(i_count_month, "00")))) + End If + If t_h < TOSG(Drow최대(0).난방최대가동시간) * d_op_mth Then + t_h = CInt(TOSG(Drow최대(0).난방최대가동시간) * d_op_mth) + End If + If d_op_max_mth < d_op_mth Then + d_op_max_mth = d_op_mth + End If + If t_h > t_h_max Then + t_h_max = t_h + End If + If t_h_op_d < TOSG(Drow최대(0).난방최대가동시간) Then + t_h_op_d = CInt(TOSG(Drow최대(0).난방최대가동시간)) ' Sheets("0").Range("최대난방부하1").Offset(2, i_count_zone - 1) + End If + + '//acc + If Q_dot_h_max > a_Q_dot_h_max Then a_Q_dot_h_max = Q_dot_h_max + If d_op_mth > a_d_op_mth Then a_d_op_mth = d_op_mth + If t_h > a_t_h Then a_t_h = t_h + If d_op_max_mth > a_d_op_max_mth Then a_d_op_max_mth = d_op_max_mth + If t_h_max > a_t_h_max Then a_t_h_max = t_h_max + If t_h_op_d > a_t_h_op_d Then a_t_h_op_d = t_h_op_d + End If + End If + Next + Next + + + For Each Dr난방 As DS.tbl_nanbangkikiRow In DSET.tbl_nanbangkiki.Select("code<>'0'", "code") + + Dim 비율 As Decimal + If 보일러정격출력합 = 0 Then + 비율 = 1 + Else + + '=======================================================================================================2014.02.24 수정 + Select Case Dr난방.열생산기기방식.Trim.ToUpper + Case "보일러" + 비율 = Dr난방.보일러정격출력 / 보일러정격출력합 + Case "지역난방" + 비율 = Dr난방.열교환기정격출력 / 보일러정격출력합 + Case "히트펌프" + 비율 = Dr난방.히트난방용량 / 보일러정격출력합 + Case "전기보일러" + 비율 = Dr난방.보일러정격출력 / 보일러정격출력합 + End Select + '=======================================================================================================2014.02.24 수정 + + End If + + If Dr난방.개별기기적용 = "1" Then + Calc_난방_개별기기적용시(Dr난방, Mon, 비율, i_count_month, theta_e) + Else + Calc_난방_개별기기미적용시(Dr난방, Mon, 비율, i_count_month, theta_e) + End If + + Next + + '//에너지소요량 - 에너지소요량분석 - 난방에너지소요량 + Q_h_f = Q_h_f + Q_h_outg + Q_h_g '- Q_h_reg '(3.2.7-4)신재생에너지는 추후 추가 '===================2010.04.17 수정 + + 'DSETR.TReqUse.Rows(CEnum.ResultRow.난방에너지소요량)(Mon) = Q_h_f 'Sheets("계산결과").Cells(39, 7 + i_count_month) = Q_h_f + Result.E소요량(i_count_month).난방 = Q_h_f + + ': 난방 전기 보조에너지 연결 + For Each dr존 As DS.tbl_zoneRow In DSET.tbl_zone.Select("냉난방열공급시스템<>'0' and code<>'0'", "code") + 'If dr존.열생산난방생산기기 <> "0" Or dr존.냉난방열공급시스템 <> "0" Then 'dr존.냉난방열공급시스템 <> "" Then + + system_count = TOSG(dr존.입력존의수) '===========2013.08.18 추가 + + Dim Dr프로필 As DS.tbl_profileRow = CType(DSET.tbl_profile.Select("code='" & dr존.프로필 & "' and code <> '0'")(0), DS.tbl_profileRow) + If i_count_month = 0 Then + d_op_mth = 0 + Else + d_op_mth = CInt(Dr프로필("day" & Format(i_count_month, "00"))) + End If + + For Each Dr공급 As DS.tbl_kongkubRow In DSET.tbl_kongkub.Select("code='" & dr존.냉난방열공급시스템 & "' and code <> '0'", "code") + '===================================================================================2010.2.21 수정 + t_h = CInt(TOSG(Result.최대부하.Item(dr존.code).일일난방최대가동시간) * d_op_mth) + If theta_WA_Grenz - theta_e_min = 0 Then '=============================================2014.03.07 추가 + f_L_WA = 1 + Else + f_L_WA = 1 - (theta_WA_Grenz - theta_e) / (theta_WA_Grenz - theta_e_min) '(3.2.7-22) + End If '=============================================2014.03.07 추가 + + + If d_op_mth = 0 Then '//201.11.20 추가(학교프로파일 적용시 문제점 해결) + d_h_rB = 0 + Else + d_h_rB = TOSG(d_op_mth * ((365 - f_L_WA * (365 - d_Nutz_a)) / 365) * (t_h / (d_op_mth * 24))) '(3.2.7-21) + End If + t_h_op_d = CInt(TOSG(Result.최대부하.Item(dr존.code).일일난방최대가동시간)) + + If theta_NA_Grenz - theta_e_min = 0 Then '=============================================2014.03.07 추가 + f_L_NA = 1 + Else + f_L_NA = 1 - (theta_NA_Grenz - theta_e) / (theta_NA_Grenz - theta_e_min) '(3.2.7-20) + End If '=============================================2014.03.07 추가 + + + + t_h_rL_T = 24 - f_L_NA * (24 - t_h_op_d) '(3.2.7-19) + t_h_rL = t_h_rL_T * d_h_rB '(3.2.7-23) + + P_C = TOSG(Dr공급.제어기의정격전력) ' Worksheets("난방공급시스템").Range("난방공급제어전력1").Offset(0, i_count_ce - 1) + P_V = TOSG(Dr공급.팬송풍기정격전력) 'Worksheets("난방공급시스템").Range("난방공급제어전력1").Offset(1, i_count_ce - 1) + P_P = TOSG(Dr공급.펌프정격전력) 'Worksheets("난방공급시스템").Range("난방공급제어전력1").Offset(2, i_count_ce - 1) + n_V = TOSG(Dr공급.팬송풍기수) ' Worksheets("난방공급시스템").Range("난방공급팬1").Offset(0, i_count_ce - 1) + n_P = TOSG(Dr공급.추가펌프수) 'Worksheets("난방공급시스템").Range("난방공급팬1").Offset(1, i_count_ce - 1) + Q_V_P = ((P_V * n_V + P_P * n_P) * t_h_rL) / 1000 '(3.2.7-34) + Q_c = P_C * d_op_mth * 24 / 1000 '(3.2.7-33) + Q_h_ce_aux = Q_h_ce_aux + (Q_c + Q_V_P) * TOSG(dr존.냉난방열공급시스템수) * system_count ' Worksheets("입력존").Range("입력난방공급기기1").Offset(1, i_count_zone - 1) '(3.2.7-32) '////2012.07.08 입력존의 수 추가 + Next + + 'End If + Next + + + Q_h_aux = Q_h_ce_aux + Q_h_d_aux + Q_h_s_aux + Q_h_g_aux + W_sol_aux '(3.2.7-5) 난방보조에너지소요량 + 'DSETR.TReqUse.Rows(CEnum.ResultRow.난방보조에너지소요량)(Mon) = Q_h_aux 'Sheets("계산결과").Cells(41, 7 + i_count_month) = Q_h_aux + Result.E소요량(i_count_month).난방보조 = Q_h_aux + use_Elec = use_Elec + Q_h_ce_aux + Q_h_d_aux + Q_h_s_aux + Q_h_g_aux + W_sol_aux + + '//연간 Co2 배출량 - 난방에너지소요량 + Result.일차E소요량(i_count_month).난방등유 = use_Oil + Result.일차E소요량(i_count_month).난방LNG = use_LNG + Result.일차E소요량(i_count_month).난방LPG = use_LPG + Result.일차E소요량(i_count_month).난방지역 = use_DH + Result.일차E소요량(i_count_month).난방전력 = use_Elec + + pLog.Add(String.Format("q_h_aux={0},난방등유={1},LNG={2},LPG={3},지역={4},전력={5}", Q_h_aux, use_Oil, use_LNG, use_LPG, use_DH, use_Elec)) + + End Sub + + Private Sub Calc_난방_개별기기미적용시(dr난방 As DS.tbl_nanbangkikiRow, mon As String, 비율 As Decimal, i_count_month As Integer, theta_e As Decimal) + + pLog.Add(" >> Enter : Calc_난방_개별기기미적용시") + + '//이 난방기기가 존전체내역에서 사용이되엇나? + If DSET.tbl_zone.Select("(공조난방생산기기 = '" & dr난방.code & "' and 냉난방공조 <> '기능없음' and (외기부하처리여부 = '예' or 냉난방공조 = '냉난방' or 냉난방공조 = '난방') ) or (열생산난방생산기기='" & dr난방.code & "' and 냉난방방식 <> '냉방' and 냉난방방식 <> '기능없음') ").GetUpperBound(0) <> -1 Then 'If Worksheets("난방기기").Range("난방생산기기1").Offset(4, i_count_boiler - 1) = "예" Then + '"(공조난방생산기기 = '" & Dr난방.code & "' and 냉난방공조 <> '기능없음' and (외기부하처리여부 = '예' or 냉난방공조 = '냉난방' or 냉난방공조 = '난방') ) or (열생산난방생산기기='" & Dr난방.code & "' and 냉난방방식 <> '냉방' and 냉난방방식 <> '기능없음') " + Q_h_b = 0 + Q_h_ce = 0 + Q_dot_h_max = 0 + t_h_max = 0 + t_h = 0 '원래 식은 t_h = t_h_op + t_h_we 월간 난방 시간 + t_h_op_d = 0 + Q_h_d = 0 + Q_h_s = 0 + n_beta = 0 ' 순차가동시 full 부하 대수 + Q_h_g_v_i = 0 + '==================================2010.2.21 수정 + d_op_max_mth = 0 + d_Nutz_mth = 0 + '==================================2010.2.21 수정 + + For Each DR존 As DS.tbl_zoneRow In DSET.tbl_zone.Select("(공조난방생산기기 = '" & dr난방.code & "' and 냉난방공조 <> '기능없음' and (외기부하처리여부 = '예' or 냉난방공조 = '냉난방' or 냉난방공조 = '난방') ) or (열생산난방생산기기='" & dr난방.code & "' and 냉난방방식 <> '냉방' and 냉난방방식 <> '기능없음') and code <> '0'") ' For i_count_zone = 1 To DSET.tbl_zone.Rows.Count + + '//지금 사용하는 존이 공조에의한것인지 아닌지를 판단 + Dim 판단1 As Boolean = False + Dim 판단2 As Boolean = False + If DR존.열생산난방생산기기 = dr난방.code Then 판단1 = True + If DR존.공조난방생산기기 = dr난방.code Then 판단2 = True + + '//다시 생각을... + + '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 + ' If DR존.열생산난방생산기기 = Dr난방.code Then ' Worksheets("난방기기").Range("난방생산기기1").Offset(0, i_count_boiler - 1) Then + '=========================================================================================================================================================2010.2.21 수정 + '1105 소스백업 If DR존.냉난방방식 = "냉난방" OrElse DR존.냉난방방식 = "난방" Then ' Worksheets("입력존").Range("공조존2").Offset(0, i_count_zone - 1) <> "냉난방" Then + If 판단1 And (DR존.냉난방방식 = "냉난방" OrElse DR존.냉난방방식 = "난방") Then + Dim Dr월에너지 As DSR.월별에너지분석Row = CType(DSETR.월별에너지분석.Select("월='" & mon & "' and 존='" & DR존.code & "'")(0), DSR.월별에너지분석Row) + Dim Drow최대() As DSR.최대냉난방부하Row = CType(DSETR.최대냉난방부하.Select("Zone='" & DR존.code & "'"), DSR.최대냉난방부하Row()) + + system_count = 1 'IIf(dr난방.개별기기적용 = "0", 1, TOSG(DR존.입력존의수)) '===========2013.08.18 추가 + + 'If dr난방.헤더적용 Then + ' 'Q_h_b_i = a_Q_h_b_i + ' 'Q_h_b_i *= 비율 '//130818 + ' 'Q_h_b = Q_h_b_i + ' 'Q_dot_h_max = a_Q_dot_h_max + 'Else + If (DR존.냉난방공조 = "환기" OrElse DR존.냉난방공조 = "냉방") And DR존.외기부하처리여부 = "예" Then + Q_h_b_i = TOSG(Dr월에너지.난방요구량열) / system_count '===========2012.08.18 수정 + Else + Q_h_b_i = TOSG(Dr월에너지.난방요구량열 + Dr월에너지.난방요구량공조) / system_count '===========2012.08.18 수정 ' Sheets("" & i_count_month & "").Cells(7, 7 + i_count_zone) + End If + Q_h_b = Q_h_b + Q_h_b_i + '=========================================================================================================================================================2010.2.21 수정 + Q_dot_h_max = TOSG(Q_dot_h_max + TOSG(Drow최대(0).최대난방기기부하)) ' Worksheets("0").Range("최대난방부하1").Offset(0, i_count_zone - 1) + 'End If + + + + '===================================================================================2010.2.21 수정 + 'If dr난방.헤더적용 Then + ' d_op_mth = a_d_op_mth + ' t_h = a_t_h + ' d_op_max_mth = a_d_op_max_mth + ' t_h_max = a_t_h_max + ' t_h_op_d = a_t_h_op_d + 'Else + Dim DR프로필 As DS.tbl_profileRow = CType(DSET.tbl_profile.Select("code='" & DR존.프로필 & "' and code <> '0'")(0), DS.tbl_profileRow) + If i_count_month = 0 Then + d_op_mth = 0 + Else + d_op_mth = CInt(TOSG(DR프로필("day" & Format(i_count_month, "00")))) + End If + + If t_h < TOSG(Drow최대(0).난방최대가동시간) * d_op_mth Then + t_h = CInt(TOSG(Drow최대(0).난방최대가동시간) * d_op_mth) + End If + If d_op_max_mth < d_op_mth Then + d_op_max_mth = d_op_mth + End If + '===================================================================================2010.2.21 수정 + If t_h > t_h_max Then t_h_max = t_h + If t_h_op_d < TOSG(Drow최대(0).난방최대가동시간) Then t_h_op_d = CInt(TOSG(Drow최대(0).난방최대가동시간)) ' Sheets("0").Range("최대난방부하1").Offset(2, i_count_zone - 1) + 'i_ce = 0 + 'End If + + '//아래 if 문이 모두 공급기기 데이터를 가지고 게산을 하고잇네요 이 부분을 전부 실행못하게 해야합니다. + If DR존.냉난방열공급시스템 = "0" Then + '//0일떄 특정 변수를 초기화(=0) 하려면 이곳에 입력하세요. + Else + + Dim Dr공급 As DS.tbl_kongkubRow = CType(DSET.tbl_kongkub.Select("code='" & DR존.냉난방열공급시스템 & "' and code <> '0'")(0), DS.tbl_kongkubRow) + + If (DR존.천장고 = "" OrElse TOSG(DR존.천장고) < 4) Then ' Worksheets("입력존").Range("천장고1").Offset(0, i_count_zone - 1) < 4 Then + + Select Case Dr공급.열공급시스템.Trim ' Dr공급.열공급시스템 + Case "노출형방열기(열)" '노출형방열기(열)" + eta_L = (0.93 + 0.95) / 2 + eta_B = 1 + Select Case Dr공급.노출형제어.Trim 'Dr공급.노출형제어 + Case "비제어" '비제어" + eta_C = 0.8 + Case "on/off제어" + eta_C = 0.88 + Case "PI제어" 'PI제어" + eta_C = 0.97 + End Select + Case "바닥난방(열)" '바닥난방(열)" + eta_L = 1 + Select Case Dr공급.바닥난방열제어.Trim ' Dr공급.바닥난방열제어 + Case "비제어" '비제어" + eta_C = 0.78 + Case "on/off제어" + eta_C = 0.88 + Case "PI제어" 'PI제어" + eta_C = 0.95 + End Select + Select Case Dr공급.바닥난방열건축부위.Trim ' Worksheets("난방공급시스템").Range("바닥열시스템1").Offset(0, i_ce - 1) + Case "습식" '습식" + eta_B = (0.93 + 0.95) / 2 + Case "반건식" '반건식" + eta_B = (0.95 + 0.95) / 2 + Case "건식" '건식" + eta_B = (0.98 + 0.95) / 2 + End Select + Case "바닥난방(전기)" '바닥난방(전기)" + eta_L = 1 + Select Case Dr공급.바닥난방전기제어.Trim ' Dr공급.바닥난방전기제어 + Case "비제어" '비제어" + eta_C = 0.91 + Case "on/off제어" + eta_C = 0.93 '2011.05.03 추가, 우선 on/off 제어와 PI제어를 같게 적용, 추후검토 + Case "PI제어" 'PI제어" + eta_C = 0.93 + End Select + Select Case Dr공급.바닥난방전기건축부위.Trim ' Worksheets("난방공급시스템").Range("바닥전기시스템1").Offset(0, i_ce - 1) + Case "습식" '습식" + eta_B = (0.93 + 0.95) / 2 + Case "반건식" '반건식" + eta_B = (0.95 + 0.95) / 2 + Case "건식" '건식" + eta_B = (0.98 + 0.95) / 2 + End Select + Case "전기난방" '전기난방" + eta_L = 2 ' eta_h_ce 값을 맞추기 위해서 임의로 설정한 값(전기난방은 eta_h_ce 값이 바로 정해지기때문) + eta_B = 2 ' eta_h_ce 값을 맞추기 위해서 임의로 설정한 값(전기난방은 eta_h_ce 값이 바로 정해지기때문) + Select Case Dr공급.전기난방제어.Trim ' Dr공급.바닥난방전기제어 + Case "비제어" + eta_C = -1.1235955 '2011.05.03 추가, 우선 on/off 제어와 비제어를 같게 적용, 추후검토 + Case "on/off제어" + eta_C = -1.1235955 ' eta_h_ce 0.89 값을 맞추기 위해서 임의로 설정한 값(전기난방은 eta_h_ce 값이 바로 정해지기때문) + Case "PI제어" 'PI제어" + eta_C = -1.07527 ' eta_h_ce 0.93 값을 맞추기 위해서 임의로 설정한 값(전기난방은 eta_h_ce 값이 바로 정해지기때문) + End Select + End Select + f_Radiant = 1 + Else + If TOSG(DR존.천장고) >= 4 And TOSG(DR존.천장고) < 10 Then + + Select Case Dr공급.열공급시스템.Trim ' Dr공급.열공급시스템 + Case "노출형방열기(열)" '노출형방열기(열)" + f_Radiant = 1 + eta_L = 0.9 + eta_B = 1 + Select Case Dr공급.노출형제어.Trim 'Dr공급.노출형제어 + Case "비제어" '비제어" + eta_C = 0.8 + Case "on/off제어" + eta_C = 0.93 + Case "PI제어" 'PI제어" + eta_C = 0.97 + End Select + Case "바닥난방(열)" '바닥난방(열)" + f_Radiant = 0.85 + eta_L = 0.98 + Select Case Dr공급.바닥난방열제어.Trim ' Dr공급.바닥난방열제어 + Case "비제어" '비제어" + eta_C = 0.8 + Case "on/off제어" + eta_C = 0.93 + Case "PI제어" 'PI제어" + eta_C = 0.97 + End Select + eta_B = 0.95 + Case "바닥난방(전기)" '바닥난방(전기)" + f_Radiant = 0.85 + eta_L = 0.98 + Select Case Dr공급.바닥난방전기제어.Trim ' Dr공급.바닥난방전기제어 + Case "비제어" '비제어" + eta_C = 0.8 + Case "on/off제어" + eta_C = 0.93 + Case "PI제어" 'PI제어" + eta_C = 0.97 + End Select + eta_B = 0.95 + Case "전기난방" '전기난방" + f_Radiant = 1 + eta_L = 0.935 + eta_B = 1 + Select Case Dr공급.바닥난방전기제어.Trim ' Dr공급.바닥난방전기제어 + Case "비제어" '비제어" + eta_C = 0.8 + Case "on/off제어" + eta_C = 0.93 + Case "PI제어" 'PI제어" + eta_C = 0.97 + End Select + End Select + Else + + + Select Case Dr공급.열공급시스템.Trim + Case "노출형방열기(열)" '노출형방열기(열)" + f_Radiant = 1 + eta_L = 0.72 ' 우선 15m 기준 설정 + eta_B = 1 + Select Case Dr공급.노출형제어.Trim + Case "비제어" + eta_C = 0.8 + Case "on/off제어" + eta_C = 0.93 + Case "PI제어" + eta_C = 0.97 + End Select + Case "바닥난방(열)" '바닥난방(열)" + f_Radiant = 0.85 + eta_L = 0.92 + Select Case Dr공급.바닥난방열제어.Trim + Case "비제어" + eta_C = 0.8 + Case "on/off제어" + eta_C = 0.93 + Case "PI제어" + eta_C = 0.97 + End Select + eta_B = 0.95 + Case "바닥난방(전기)" '바닥난방(전기)" + f_Radiant = 0.85 + eta_L = 0.92 + Select Case Dr공급.바닥난방전기제어.Trim + Case "비제어" + eta_C = 0.8 + Case "on/off제어" + eta_C = 0.93 + Case "PI제어" + eta_C = 0.97 + End Select + eta_B = 0.95 + Case "전기난방" '전기난방" + f_Radiant = 1 + eta_L = 0.78 + eta_B = 1 + Select Case Dr공급.바닥난방전기제어.Trim + Case "비제어" + eta_C = 0.8 + Case "on/off제어" + eta_C = 0.93 + Case "PI제어" + eta_C = 0.97 + End Select + End Select + + End If + + End If + + eta_h_ce = 1 / (4 - (eta_L + eta_C + eta_B)) '(3.27-28) + + Q_h_ce_i = (f_Radiant * f_int * f_hydr / eta_h_ce - 1) * Q_h_b_i '(3.2.7-27) + Q_h_ce = Q_h_ce + Q_h_ce_i + + End If + End If '//판단1 //난방생산기기 완료 + + If DR존.냉난방공조 = "냉난방" OrElse DR존.냉난방공조 = "난방" OrElse ((DR존.냉난방공조 = "환기" OrElse DR존.냉난방공조 = "냉방") And DR존.외기부하처리여부 = "예") Then ' 공조기 사용에 따른 난방에너지 + '=========================================================================================================================================================2010.2.21 수정 + system_count = 1 'IIf(dr난방.개별기기적용 = "0", 1, TOSG(DR존.입력존의수)) '//20130818 + If 판단2 Then + + 'If dr난방.헤더적용 Then + ' Q_h_b_i = a_Q_h_b_i + ' Q_h_b_i *= 비율 '//130818 + ' Q_h_b = Q_h_b_i '//Q_c_b + Q_c_b_i + + 'Else + Dim 월에너지분석 As DSR.월별에너지분석Row = CType(DSETR.월별에너지분석.Select("월='" & mon & "' and 존='" & DR존.code & "'")(0), DSR.월별에너지분석Row) + If (DR존.냉난방공조 = "환기" OrElse DR존.냉난방공조 = "냉방") And DR존.외기부하처리여부 = "예" Then '// 2010.11.19 추가 + Q_h_b_i = TOSG(월에너지분석.난방요구량공조) / system_count '=========2013.08.18 수정 + Else + Q_h_b_i = TOSG(월에너지분석.공조요구량난방) / system_count '=========2013.08.18 수정 ' Sheets("" & i_count_month & "").Cells(19, 7 + i_count_zone) + End If + Q_h_b = Q_h_b + Q_h_b_i + 'End If + 'Q_h_ce_i = 0 '공조기는 0으로 설정 '==============================================================2010.03.20 수정 공조기는 0으로 설정한 것을 수정 + If (DR존.냉난방공조 = "환기" OrElse DR존.냉난방공조 = "냉방") And DR존.외기부하처리여부 = "예" Then '// 2010.11.19 추가 + + Else + If TOSG(DR존.천장고p) >= 4 Then + If TOSG(DR존.천장고p) >= 20 Then + Q_h_ce_i = TOSG((1 / (1 / (4 - (0.71 + 0.97 + 1))) - 1) * Q_h_b_i) + Else + If TOSG(DR존.천장고p) >= 15 Then + Q_h_ce_i = TOSG((1 / (1 / (4 - (0.78 + 0.97 + 1))) - 1) * Q_h_b_i) + Else + If TOSG(DR존.천장고p) >= 12 Then + Q_h_ce_i = TOSG((1 / (1 / (4 - (0.84 + 0.97 + 1))) - 1) * Q_h_b_i) + Else + If TOSG(DR존.천장고p) >= 10 Then + Q_h_ce_i = TOSG((1 / (1 / (4 - (0.87 + 0.97 + 1))) - 1) * Q_h_b_i) + Else + If TOSG(DR존.천장고p) >= 8 Then + Q_h_ce_i = TOSG((1 / (1 / (4 - (0.91 + 0.97 + 1))) - 1) * Q_h_b_i) + Else + If TOSG(DR존.천장고p) >= 6 Then + Q_h_ce_i = TOSG((1 / (1 / (4 - (0.96 + 0.97 + 1))) - 1) * Q_h_b_i) + Else + Q_h_ce_i = TOSG((1 / (1 / (4 - (0.99 + 0.97 + 1))) - 1) * Q_h_b_i) + End If + End If + End If + End If + End If + End If + End If + + '===============================================================================================2010.03.20 수정 + + Q_h_ce = Q_h_ce + Q_h_ce_i + End If + + 'If dr난방.헤더적용 Then + ' Q_dot_h_max = a_Q_dot_h_max + ' d_op_mth = a_d_op_mth + ' t_h = a_t_h + ' d_op_max_mth = a_d_op_max_mth + ' t_h_max = a_t_h_max + ' t_h_op_d = a_t_h_op_d + 'Else + '//프로필 + Dim Drow최대() As DSR.최대냉난방부하Row = CType(DSETR.최대냉난방부하.Select("zone='" & DR존.code & "'"), DSR.최대냉난방부하Row()) + Dim Dr프로필 As DS.tbl_profileRow = CType(DSET.tbl_profile.Select("code='" & DR존.프로필 & "' and code <> '0'")(0), DS.tbl_profileRow) + Q_dot_h_max = TOSG(Q_dot_h_max + TOSG(Drow최대(0).최대난방기기부하)) / system_count '=====2013.08.18 수정 ' Worksheets("0").Range("최대난방부하1").Offset(0, i_count_zone - 1) + + If i_count_month = 0 Then + d_op_mth = 0 + Else + d_op_mth = CInt(TOSG(Dr프로필("day" & Format(i_count_month, "00")))) + End If + If t_h < TOSG(Drow최대(0).난방최대가동시간) * d_op_mth Then t_h = CInt(TOSG(Drow최대(0).난방최대가동시간) * d_op_mth) + If d_op_max_mth < d_op_mth Then d_op_max_mth = d_op_mth + If t_h > t_h_max Then t_h_max = t_h + If t_h_op_d < TOSG(Drow최대(0).난방최대가동시간) Then t_h_op_d = CInt(TOSG(Drow최대(0).난방최대가동시간)) ' Sheets("0").Range("최대난방부하1").Offset(2, i_count_zone - 1) + + 'End If + + + + + + End If + '=========================================================================================================================================================2010.2.21 수정 + + + End If + '//공조 난방기기 완료 ㅋㅋ 끝 + ' End If + + Next + + If dr난방.헤더적용 Then + Q_h_b = a_Q_h_b_i * 비율 + End If + + + + + + '==================================2010.2.21 수정 + d_Nutz_mth = d_op_max_mth + '==================================2010.2.21 수정 + 'beta_h_d = (Q_h_b + Q_h_ce) / (Q_dot_h_max * t_h_max) ' t_h 가 t_h_max 일 것으로 추정 추후 검토 + + 'theta_VA = TOSG(Dr난방.급수온도) ' Worksheets("난방기기").Range("난방기기급수온도1").Offset(0, i_count_boiler - 1) + 'theta_RA = TOSG(Dr난방.환수온도) ' Worksheets("난방기기").Range("난방기기환수온도1").Offset(0, i_count_boiler - 1) + + 'theta_VL_m_beta_h_d = TOSG((theta_VA - theta_i_h_soll) * beta_h_d ^ (1 / n) + theta_i_h_soll) '(3.2.7.13) + 'theta_RL_m_beta_h_d = TOSG((theta_RA - theta_i_h_soll) * beta_h_d ^ (1 / n) + theta_i_h_soll) '(3.2.7.14) + + + 'theta_HK_m_beta_h_d = TOSG(0.5 * (theta_VL_m_beta_h_d + theta_RL_m_beta_h_d)) + + + 'f_L_WA = 1 - (theta_WA_Grenz - theta_e) / (theta_WA_Grenz - theta_e_min) '(3.2.7-22) + 'd_h_rB = TOSG(d_op_max_mth * ((365 - f_L_WA * (365 - d_Nutz_a)) / 365) * (t_h / (d_op_max_mth * 24))) '(3.2.7-21) '================== d_op_max_mth 2010.2.21 수정'CSng(d_mth * ((365 - f_L_WA * (365 - d_Nutz_a)) / 365) * (t_h / (d_mth * 24))) '(3.2.7-21) + + 'f_L_NA = 1 - (theta_NA_Grenz - theta_e) / (theta_NA_Grenz - theta_e_min) '(3.2.7-20) + 't_h_rL_T = 24 - f_L_NA * (24 - t_h_op_d) '(3.2.7-19) + 't_h_rL = t_h_rL_T * d_h_rB '(3.2.7-23) + + + '===================================================================2010.11.04 위치수정 및 추가 '2011.03.16 다시 수정 + If dr난방.열생산기기방식 = "히트펌프" Then + If dr난방.운전방식.Trim = "동시가동" Then + Q_dot_h_max = TOSG(dr난방.히트난방용량) * TOSG(dr난방.보일러대수) + Else + Q_dot_h_max = TOSG(dr난방.히트난방용량) ' Worksheets("난방기기").Range("히트펌프사용연료1").Offset(1, i_count_boiler - 1) + End If + + End If + + If t_h_max = 0 Or Q_dot_h_max = 0 Then '======================================================================2014.043.07 추가 + beta_h_d = 0 + Else + beta_h_d = (Q_h_b + Q_h_ce) / (Q_dot_h_max * t_h_max) ' t_h 가 t_h_max 일 것으로 추정 추후 검토 + End If '======================================================================2014.043.07 추가 + + + If beta_h_d > 1 Then beta_h_d = 1 + + theta_VA = TOSG(dr난방.급수온도) ' Worksheets("난방기기").Range("난방기기급수온도1").Offset(0, i_count_boiler - 1) + theta_RA = TOSG(dr난방.환수온도) ' Worksheets("난방기기").Range("난방기기환수온도1").Offset(0, i_count_boiler - 1) + + theta_VL_m_beta_h_d = TOSG((theta_VA - theta_i_h_soll) * beta_h_d ^ (1 / n) + theta_i_h_soll) '(3.2.7.13) + theta_RL_m_beta_h_d = TOSG((theta_RA - theta_i_h_soll) * beta_h_d ^ (1 / n) + theta_i_h_soll) '(3.2.7.14) + + + theta_HK_m_beta_h_d = TOSG(0.5 * (theta_VL_m_beta_h_d + theta_RL_m_beta_h_d)) + + + If theta_WA_Grenz - theta_e_min = 0 Then '==================================================================2014.03.07 추가 + f_L_WA = 1 + Else + f_L_WA = 1 - (theta_WA_Grenz - theta_e) / (theta_WA_Grenz - theta_e_min) '(3.2.7-22) + End If '==================================================================2014.03.07 추가 + + If d_op_max_mth = 0 Then '==================================================================2014.03.07 추가 + d_h_rB = 0 + Else + d_h_rB = TOSG(d_op_max_mth * ((365 - f_L_WA * (365 - d_Nutz_a)) / 365) * (t_h / (d_op_max_mth * 24))) '(3.2.7-21) '================== d_op_max_mth 2010.2.21 수정'CSng(d_mth * ((365 - f_L_WA * (365 - d_Nutz_a)) / 365) * (t_h / (d_mth * 24))) '(3.2.7-21) + End If '==================================================================2014.03.07 추가 + + + If theta_NA_Grenz - theta_e_min = 0 Then + f_L_NA = 1 + Else + f_L_NA = 1 - (theta_NA_Grenz - theta_e) / (theta_NA_Grenz - theta_e_min) '(3.2.7-20) + End If + + + + t_h_rL_T = 24 - f_L_NA * (24 - t_h_op_d) '(3.2.7-19) + t_h_rL = t_h_rL_T * d_h_rB '(3.2.7-23) + '===================================================================2010.11.04 위치수정 및 추가 '2011.03.16 다시 수정 + + + + '=================================================2010. 02. 11 수정 + For Each Dr난방분배 As DS.tbl_nbunbaeRow In DSET.tbl_nbunbae.Select("생산기기구분='" & dr난방.code & "' and code <> '0'", "code") + 'If Dr난방.code = Dr난방분배.생산기기구분 Then ' Worksheets("난방분배시스템").Range("분배생산기기1").Offset(0, i_count_pipe - 1) Then + + Select Case Dr난방분배.표준치적용.Trim ' Worksheets("난방분배시스템").Range("분배생산기기1").Offset(1, i_count_pipe - 1) + Case "상세입력" '상세입력" + L_i = TOSG(Dr난방분배.배관구간길이) '= Worksheets("난방분배시스템").Range("배관구간방식1").Offset(1, i_count_pipe - 1) + U_i = TOSG(Dr난방분배.열관류율) ' Worksheets("난방분배시스템").Range("배관구간방식1").Offset(2, i_count_pipe - 1) + Select Case Dr난방분배.배관설치장소.Trim ' Worksheets("난방분배시스템").Range("배관구간방식1").Offset(3, i_count_pipe - 1) + Case "표준난방존" '표준난방존" + Q_h_d = (Q_h_d + U_i * (theta_HK_m_beta_h_d - theta_i_h_soll) * L_i * t_h_rL) / 1000 + Case "표준비난방존" '표준비난방존" + Q_h_d = (Q_h_d + U_i * (theta_HK_m_beta_h_d - 13) * L_i * t_h_rL) / 1000 + Case "외부" '외부" + Q_h_d = (Q_h_d + U_i * (theta_HK_m_beta_h_d - theta_e) * L_i * t_h_rL) / 1000 + End Select + Case "표준치조건" '표준치조건" + L_G = TOSG(Dr난방분배.건물길이x) ' Worksheets("난방분배시스템").Range("난방분배건물길이1").Offset(0, i_count_pipe - 1) + B_G = TOSG(Dr난방분배.건물길이y) ' Worksheets("난방분배시스템").Range("난방분배건물길이1").Offset(1, i_count_pipe - 1) + n_G = TOSG(Dr난방분배.층수) 'Worksheets("난방분배시스템").Range("난방분배건물길이1").Offset(2, i_count_pipe - 1) + h_G = TOSG(Dr난방분배.층고) ' Worksheets("난방분배시스템").Range("난방분배건물길이1").Offset(3, i_count_pipe - 1) + If dr난방.배관망유형 = "이중배관" Then ' then Worksheets("난방기기").Range("난방기기배관망1").Offset(0, i_count_boiler - 1) = "이중배관" Then + If Dr난방분배.지관장소 = "외부" Then ' then외부" Then + L_i = TOSG((2 * L_G + 0.01625 * L_G * B_G * B_G) * 0.2 + (0.025 * L_G * B_G * h_G * n_G) * 0.255 + (0.55 * L_G * B_G * n_G) * 0.255) '외부배관난방적용 + Else + L_i = TOSG((2 * L_G + 0.0325 * L_G * B_G + 6) * 0.2 + (0.025 * L_G * B_G * h_G * n_G) * 0.255 + (0.55 * L_G * B_G * n_G) * 0.255) '내부배관난방적용 + End If + Else + L_i = TOSG((2 * L_G + 0.0325 * L_G * B_G + 6) * 0.2 + (0.025 * L_G * B_G * h_G * n_G + 2 * (L_G + B_G) * n_G) * 0.255 + (0.1 * L_G * B_G * n_G) * 0.255) '단일배관난방적용 + End If + Q_h_d = (Q_h_d + (theta_HK_m_beta_h_d - theta_i_h_soll) * L_i * t_h_rL) / 1000 '(3.2.7-36) 'theta_i를 theta_i_h_soll 로 수정 추후 검토 ' U_i는 L_i에 포함 + Case Else + MsgBox("표준치적용을 알수없습니다", MsgBoxStyle.Critical, Dr난방분배.표준치적용) + End Select + 'End If + Next + + '=================================================2010. 02. 11 수정 + If dr난방.축열탱크방식 <> "축열탱크없음" Then ' Worksheets("난방기기").Range("난방기기축열탱크1").Offset(0, i_count_boiler - 1) <> "축열탱크없음" Then + V_s = TOSG(dr난방.축열제척) ' Worksheets("난방기기").Range("난방기기축열체적1").Offset(0, i_count_boiler - 1) + q_B_S = TOSG(0.4 + 0.14 * V_s ^ 0.45) '(3.2.7-43) + Q_h_s = f_verbindung * (theta_VA - theta_i) / 45 * d_op_max_mth * q_B_S '(3.2.7-41) theta_h_s 는 theta_VA 로 설정'================== d_op_max_mth 2010.2.21 수정 + End If + + '===================================================================================================================2010.2.21 수정 + Q_h_outg_i = Q_h_b + Q_h_ce + Q_h_d + Q_h_s '(3.2.7-1) + + If dr난방.열생산기기방식 = "전기보일러" Then + Q_h_outg_i = Q_h_outg_i / (TOSG(dr난방.정격보일러효율) * age_heating / 100) + End If + + + + + Q_h_outg = Q_h_outg + Q_h_outg_i * system_count '=====2013.08.13 수정 '(3.2.7-1) + '===================================================================================================================2010.2.21 수정 + + If dr난방.열생산기기방식 = "보일러" Then ' Worksheets("난방기기").Range("열생산기기방식1").Offset(0, i_count_boiler - 1) = "보일러" Then + '//아래는 급탕생산기기로 지정되어잇는가? + If DSET.tbl_zone.Select("열생산급탕생산기기='" & dr난방.code & "'").GetUpperBound(0) <> -1 Then 'If Worksheets("난방기기").Range("난방생산기기1").Offset(5, i_count_boiler - 1) = "예" Then + Q_w_b = 0 + For Each Dr입력존 As DS.tbl_zoneRow In DSET.tbl_zone.Select("code <> '0' and 열생산급탕생산기기='" & dr난방.code & "'", "code") + Dim Drow최대() As DSR.최대냉난방부하Row = CType(DSETR.최대냉난방부하.Select("zone='" & Dr입력존.code & "'"), DSR.최대냉난방부하Row()) + Dim Dr월에너지분석 As DSR.월별에너지분석Row = CType(DSETR.월별에너지분석.Select("월='" & mon & "' and 존='" & Dr입력존.code & "'")(0), DSR.월별에너지분석Row) + + system_count = IIf(dr난방.개별기기적용 = "0", 1, TOSG(Dr입력존.입력존의수)) '//20130818 + If system_count = 0 Then system_count = 1 + + Q_w_b = TOSG(Q_w_b + TOSG(Dr월에너지분석.급탕요구량)) / system_count 'Sheets("" & i_count_month & "").Cells(15, 7 + i_count_zone) + '===================================================================================2010.2.21 수정 + Dim Dr프로필 As DS.tbl_profileRow = CType(DSET.tbl_profile.Select("code='" & Dr입력존.프로필 & "'")(0), DS.tbl_profileRow) + + If i_count_month = 0 Then + d_op_mth = 0 + Else + d_op_mth = CInt(TOSG(Dr프로필("day" & Format(i_count_month, "00")))) + End If + + If t_h < TOSG(Drow최대(0).난방최대가동시간) * d_op_mth Then + t_h = CInt(TOSG(Drow최대(0).난방최대가동시간) * d_op_mth) + End If + If d_op_max_mth < d_op_mth Then + d_op_max_mth = d_op_mth + End If + '===================================================================================2010.2.21 수정 + Next + End If + End If + + + ' 여기에 신재생에너지를 산출하고 Q_h_outg 와 Q_h_outg_i 에서 신재생에너지를 차감해야 + '---------------------------------------------------------------------------------------------------------------------------------- + '---------------------------------------------------------------------------------------------------------------------------------- + + '신재생 및 열병합 시스템 + Dim CRenew As New CRenewable(DSET, Result) + ' Dim Dr신재생 As DS.tbl_newRow = CType(DSET.tbl_new.Rows(0), DS.tbl_newRow) + If dr난방.신재생연결여부 = "시스템연결" AndAlso dr난방.연결된시스템.Trim <> "" AndAlso dr난방.연결된시스템 <> "0" Then ' Worksheets("난방기기").Range("신재생난방연결1").Offset(0, i_count_boiler - 1) = "시스템연결" Then + Dim Dr신재생 As DS.tbl_newRow = CType(DSET.tbl_new.Select("code='" & dr난방.연결된시스템 & "' and code <> '0'")(0), DS.tbl_newRow) + '//식은 맞는듯한게 값이 이상하게 들었네요... 뭘해도 되도록 수정해버리죠 ㅋㅋ + + + Select Case Dr신재생.기기종류.Trim ' Dr난방.연결된시스템.Trim + Case "지열" '//지열 + Select Case Dr신재생.가동연료.Trim + Case "전기" '전기" + CRenew.Calc_HeatpumpSystem(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_HeatpumpSystem(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_HeatpumpSystem(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 "난방유" '난방유" + CRenew.Calc_CogenerationSystemEN(Dr신재생, 1, i_count_month, Q_h_outg_i, t_h, Q_h_CHP, Q_h_f_CHP) + Q_h_outg = Q_h_outg - Q_h_CHP + Q_h_outg_i = Q_h_outg_i - Q_h_CHP + use_Oil = use_Oil + Q_h_f_CHP * system_count '=============2013.08.18 수정 + Q_h_f = Q_h_f + Q_h_f_CHP * system_count '=============2013.08.18 수정 '============================2010.04.17 + Case "천연가스" '천연가스" + CRenew.Calc_CogenerationSystemEN(Dr신재생, 1, i_count_month, Q_h_outg_i, t_h, Q_h_CHP, Q_h_f_CHP) + Q_h_outg = Q_h_outg - Q_h_CHP + Q_h_outg_i = Q_h_outg_i - Q_h_CHP + use_LNG = use_LNG + Q_h_f_CHP * system_count '=============2013.08.18 수정 + Q_h_f = Q_h_f + Q_h_f_CHP * system_count '=============2013.08.18 수정 '============================2010.04.17 + Case "액화가스" '액화가스" + CRenew.Calc_CogenerationSystemEN(Dr신재생, 1, i_count_month, Q_h_outg_i, t_h, Q_h_CHP, Q_h_f_CHP) + Q_h_outg = Q_h_outg - Q_h_CHP + Q_h_outg_i = Q_h_outg_i - Q_h_CHP + use_LPG = use_LPG + Q_h_f_CHP * system_count '=============2013.08.18 수정 + Q_h_f = Q_h_f + Q_h_f_CHP * system_count '=============2013.08.18 수정 '============================2010.04.17 + Case Else + MsgBox("신재생에너지의 가동연료를 확인할 수 없습니다", MsgBoxStyle.Critical, Dr신재생.가동연료) + End Select + End Select + End If + + + '---------------------------------------------------------------------------------------------------------------------------------- + '---------------------------------------------------------------------------------------------------------------------------------- + + '===========================================================================================2013.01.13 이동 + If dr난방.열생산기기방식 = "히트펌프" Then + + Q_dot_HP_heating = TOSG(dr난방.히트난방용량) ' Worksheets("난방기기").Range("히트펌프사용연료1").Offset(1, i_count_boiler - 1) + COP_HP_7 = TOSG(dr난방.히트난방정격7) * age ' Worksheets("난방기기").Range("히트펌프사용연료1").Offset(2, i_count_boiler - 1) + COP_HP_10 = TOSG(dr난방.히트난방정격10) * age ' Worksheets("난방기기").Range("히트펌프사용연료1").Offset(3, i_count_boiler - 1) + L_HP_heating = TOSG(dr난방.히트배관길이) ' Worksheets("난방기기").Range("히트펌프사용연료1").Offset(4, i_count_boiler - 1) + If theta_e > 15 Then + COP_HP_total = (COP_HP_7 - COP_HP_10) / 22 * 15 + COP_HP_7 - 7 * (COP_HP_7 - COP_HP_10) / 22 + Else + COP_HP_total = (COP_HP_7 - COP_HP_10) / 22 * theta_e + COP_HP_7 - 7 * (COP_HP_7 - COP_HP_10) / 22 + End If + + If theta_e < 7 Then + + If theta_e >= 0 Then + COP_HP_total = TOSG(COP_HP_total * ((1 - 0.86) / 7 * theta_e + 0.86)) + Else + COP_HP_total = TOSG(COP_HP_total * ((0.98 - 0.86) / 7 * (-theta_e) + 0.86)) + End If + + End If + + If Q_dot_HP_heating <= 20 Then + COP_HP_total = TOSG(COP_HP_total * (1 - L_HP_heating * 0.002)) + Else + If Q_dot_HP_heating <= 100 Then + COP_HP_total = TOSG(COP_HP_total * (1 - L_HP_heating * 0.0009)) + Else + COP_HP_total = TOSG(COP_HP_total * (1 - L_HP_heating * 0.0014)) + End If + End If + + + + Q_h_outg = Q_h_outg - Q_h_outg_i '===================================================2013.01.16 추가 + '======================================================================================================================================================2010.04.23 추가 + + + '======================================================================================================================================================2012.07.08 추가 + + If dr난방.운전방식.Trim = "동시가동" Or dr난방.운전방식.Trim = "순차가동" Then + Q_dot_HP_heating = Q_dot_HP_heating * TOSG(dr난방.보일러대수) + End If + + + If t_h_max = 0 Or Q_dot_HP_heating = 0 Then '=================================================================================2014.03.07 추가 + Q_h_outg_i = 0 + Else + If Q_h_outg_i / (Q_dot_HP_heating * t_h_max) >= 1 Or dr난방.히트펌프시스템종류 = "실내외분리시스템" Then '====2010.04.26 수정 + Q_h_outg_i = Q_h_outg_i / COP_HP_total + Else + If dr난방.운전방식.Trim = "순차가동" Then + For i_count_beta = 1 To CInt(TOSG(dr난방.보일러대수)) + If Q_h_outg_i <= (Q_dot_HP_heating * t_h_max / TOSG(dr난방.보일러대수) * i_count_beta) Then + Q_h_outg_i = ((Q_h_outg_i / COP_HP_total) * (i_count_beta - 1) + (Q_h_outg_i / (COP_HP_total * (Q_h_outg_i / (Q_dot_HP_heating * t_h_max / TOSG(dr난방.보일러대수)) * 0.5 + 0.5)))) / i_count_beta + Exit For + End If + Next + + Else + Q_h_outg_i = Q_h_outg_i / (COP_HP_total * (Q_h_outg_i / (Q_dot_HP_heating * t_h_max) * 0.5 + 0.5)) '====2010.04.26 수정 + End If + + End If + + End If '=================================================================================2014.03.07 추가 + + '======================================================================================================================================================2010.04.23 추가 + Q_h_outg = Q_h_outg + Q_h_outg_i * system_count '=====2013.08.13 수정 '===================================================2013.01.16 추가 + + + End If + + '===========================================================================================2013.01.13 이동 + + + + If dr난방.열생산기기방식 = "보일러" Then 'Worksheets("난방기기").Range("열생산기기방식1").Offset(0, i_count_boiler - 1) = "보일러" Then + + If DSET.tbl_zone.Select("열생산급탕생산기기='" & dr난방.code & "' and code <> '0'").GetUpperBound(0) <> -1 Then ' If Worksheets("난방기기").Range("난방생산기기1").Offset(5, i_count_boiler - 1) = "예" Then + + If dr난방.분배시스템방식 = "중앙식" Then ' Dr난방.분배시스템방식 = "중앙식" Then + + L_G = TOSG(dr난방.건물길이) ' Dr난방.건물길이 + B_G = TOSG(dr난방.건물넓이) ' Dr난방.건물넓이 + n_G = TOSG(dr난방.열공급층수) 'Dr난방.열공급층수 + h_G = TOSG(dr난방.층고) ' Dr난방.층고 + L_i = TOSG((2 * L_G + 0.0325 * L_G * B_G + 6) * 0.2 + (0.025 * L_G * B_G * h_G * n_G + 2 * (L_G + B_G) * n_G) * 0.255 + (0.1 * L_G * B_G * n_G) * 0.255) '단일배관난방적용 + + If dr난방.순환유무 = "무" Then ' Worksheets("난방기기").Range("급탕분배방식1").Offset(1, i_count_boiler - 1) = "무" Then + ':중앙비순환시스템 + Q_w_d_i = TOSG(1 / 1000 * L_i * ((23 * 0.2 ^ (-0.2) - theta_i) * d_Nutz_mth * 24)) '(3.2.9-11) 중앙비순환시스템 L_i 에 U_i 포함 theta_w_m_비순환 는 23*0.2^(-0.2) + theta_g_m = 40 + Else + ':중앙순환시스템 + Q_w_d_i = TOSG(1 / 1000 * L_i * d_Nutz_mth * ((50 - theta_i) * t_Nutz_d + 0.5 * (23 * 0.2 ^ (-0.2) - theta_i) * (24 - t_Nutz_d))) '(3.2.9-11) 중앙순환시스템 L_i 에 U_i 포함 theta_w_m_순환 는 50도 + theta_g_m = 50 + End If + + Q_w_d = Q_w_d + Q_w_d_i '(3.2.9-12) + End If + + + Select Case dr난방.축열탱크방식.Trim 'Worksheets("난방기기").Range("난방기기축열탱크1").Offset(0, i_count_boiler - 1) + Case "전기가열식" '전기가열식" + + ':저탕조용량(모를경우) + 'f_N = 1 / (t_Nutz_d * 1) '(3.2.9-24) t_Nutz_T 는 t_Nutz_d 로 적용, eta_Sp는 1로 적용 추후 검토 + ':심야전기가열 + 'V_s = 1.42 * Q_w_b_d * f_N * 860 / ((theta_w_m - theta_k) * eta_s) '(3.2.9-33) : 심야전기가열 + ':주간전기가열 + 'V_s = 0.67 * Q_w_b_d * f_N * 860 / ((Q_w_m - Q_k) * eta_s) '(3.2.9-34) : 주간전기가열 + V_s = TOSG(dr난방.축열제척) ' Worksheets("난방기기").Range("난방기기축열체적1").Offset(0, i_count_boiler - 1) + q_B_S = TOSG(0.29 + 0.019 * V_s ^ 0.8) '(3.2.9-30) :1994 이후 + Q_w_s = (55 - theta_i) / 45 * d_Nutz_mth * q_B_S '(3.2.9-29) : 전기가열식 저탕조 + + Case "가스가열식" '가스가열식" + + ':가스가열식 저탕조 + V_s = TOSG(dr난방.축열제척) ' Worksheets("난방기기").Range("난방기기축열체적1").Offset(0, i_count_boiler - 1) + ':1994 이후 + q_B_S = TOSG(2 + 0.033 * V_s ^ 1.1) '(3.2.9-38) + Q_w_s = (55 - theta_i) / 50 * d_Nutz_mth * q_B_S '(3.2.9-37) : 가스가열식 저탕조 + + Case "간접가열식" '간접가열식" + ':간접 가열식 저탕조 + ':태양열 복합 저탕조(UA_sb_s_a를 모를 경우) + 'q_B_S = (0.4 + 0.2 * (V_s_aux + V_s_sol) ^ 0.4) * V_s_aux / (V_s_aux + V_s_sol) '(3.2.9-26) + 'f_N = 1 / (t_Nutz_T * n_Sp) '(3.2.9-24) + ':저탕조용량(모를 경우) + 'V_s = (Q_w_b_d * f_N * 860) / ((theta_w_m - theta_k) * eta_s) '(3.2.9-23) + V_s = TOSG(dr난방.축열제척) ' Worksheets("난방기기").Range("난방기기축열체적1").Offset(0, i_count_boiler - 1) + If V_s < 1000 Then + ':1000이하 + q_B_S = 0.8 + 0.02 * V_s ^ 0.77 '(3.2.9-18) '============================2010.04.24 수정 + Else + ':1000이상 + q_B_S = TOSG(0.39 * V_s ^ 0.35 + 0.5) '(3.2.9-19) + End If + Q_w_s = f_verbindung * (50 - theta_i) / 45 * d_Nutz_mth * q_B_S '(3.2.9-16) + + End Select + + Q_w_outg_i = Q_w_b + Q_w_ce + Q_w_d + Q_w_s '(3.2.9-4) + Q_w_outg = Q_w_outg + Q_w_outg_i * system_count '=====2013.08.13 수정 + + Else + Q_w_outg_i = 0 + End If + + + ' 신재생에너지 시스템 + '---------------------------------------------------------------------------------------------------------------------------------- + '---------------------------------------------------------------------------------------------------------------------------------- + + '태양열(난방+급탕) 시스템 + If dr난방.신재생연결여부 = "시스템연결" AndAlso dr난방.연결된시스템 <> "0" Then ' Worksheets("난방기기").Range("신재생난방연결1").Offset(0, i_count_boiler - 1) = "시스템연결" Then + Dim Dr신재생 As DS.tbl_newRow = CType(DSET.tbl_new.Select("code='" & dr난방.연결된시스템 & "' and code <> '0'")(0), DS.tbl_newRow) + + Select Case Dr신재생.기기종류.Trim + Case "태양열" '//태양열일때 + If Dr신재생.태양열종류 = "난방+급탕" Then '난방+급탕" Then + + 'Dim Dr존 As DS.tbl_zoneRow = CType(DSET.tbl_zone.Select("code<>'0'", "code")(i_count_zone - 1), DS.tbl_zoneRow) + Calc.Renewable.Calc_ThermalSolarSystem_EN(system_type, Dr신재생.code, i_count_month, d_op_max_mth, Q_h_outg_i, Q_w_outg_i, Q_W_sol_out_m, Q_H_sol_out_m, W_sol_aux_m) + Q_h_outg = Q_h_outg - Q_H_sol_out_m + Q_h_outg_i = Q_h_outg_i - Q_H_sol_out_m + Q_w_outg = Q_w_outg - Q_W_sol_out_m + Q_w_outg_i = Q_w_outg_i - Q_W_sol_out_m + W_sol_aux = W_sol_aux + W_sol_aux_m * system_count '=======2013.08.18 수정 + End If + End Select + End If + + '---------------------------------------------------------------------------------------------------------------------------------- + '---------------------------------------------------------------------------------------------------------------------------------- + + Q_dot_N = TOSG(dr난방.보일러정격출력) ' Worksheets("난방기기").Range("난방기기정격출력1").Offset(0, i_count_boiler - 1) + If d_Nutz_mth = 0 Or Q_dot_N = 0 Or d_h_rB = 0 Then '//201.11.20 추가(학교프로파일 적용시 문제점 해결) '=====================2014.03.07 추가 + t_w_100 = 0 + Q_dot_d_in = 0 + Else + t_w_100 = Q_w_outg_i / (Q_dot_N * d_Nutz_mth) '(3.2.9-61) + Q_dot_d_in = Q_h_outg_i / (d_h_rB * (t_h_rL_T - t_w_100)) '(3.2.7-69) 난방 또는 난방 및 급탕 + ' 우선 미적용 Q_dot_d_in = sigma_Q_h_outg / (t_Betrieb_K - t_W_100) * d_Nutz_mth '(3.2.7-70) 난방, 급탕 및 공조 + End If + + + Select Case dr난방.운전방식.Trim ' Worksheets("난방기기").Range("난방기기운전방식1").Offset(0, i_count_boiler - 1) + Case "단독가동" '단독가동" + beta_h = Q_dot_d_in / Q_dot_N '(3.2.7-64) : 단일보일러 시설 + Case "동시가동" ' 동시가동" + beta_h = TOSG(Q_dot_d_in / (Q_dot_N * TOSG(dr난방.보일러대수))) '(3.2.7-64) : 다수보일러 동시가동 + Case "순차가동" '순차가동" + For i_count_beta = 1 To CInt(TOSG(dr난방.보일러대수)) + If Q_dot_d_in <= (Q_dot_N * i_count_beta) Then + beta_h = (Q_dot_d_in - Q_dot_N * (i_count_beta - 1)) / Q_dot_N * i_count_beta '다수보일러 대수제어 + n_beta = i_count_beta - 1 + Exit For + End If + Next + End Select + + + '------------------------------------------------------------------------------------ + ' 보일러 가동 손실의 경우 국내 데이타 미비로 정격효율을 부분부하효율로 적용 추후 검토 필요 + + 'eta_k_100 = (a + b * Ln(Q_dot_N)) / 100 '(3.2.7-83) 일반보일러 + 'eta_k_pl = (c + d * Ln(Q_dot_N)) / 100 '(3.2.7-84) 일반보일러 + 'eta_k_100 = (a + b * Ln(Q_dot_N)) / 100 '(3.2.7-85) 콘덴싱보일러 + 'eta_k_pl = (c + d * Ln(Q_dot_N)) / 105 '(3.2.7-86) 콘덴싱보일러 + + + 'q_B_70 = (E * (Q_dot_N ^ F)) / 100 '(3.2.7-64) + 'q_B_theta = q_B_70 * (theta_HK_m_beta_h_g - theta_i) / (70 - 20) '(3.2.7-72) + 'Q_dot_B_h = q_B_theta * (Q_dot_N / eta_k_100) * f_Hs_Hi '(3.2.7-71) 정지 대기모드 + + + + 'beta_h_g = (Q_h_b + Q_h_ce + Q_h_d + Q_h_s) / (Q_dot_h_max * t_h) '(3.2.7-10) + 'theta_VL_m_beta_h_g = (theta_VA - theta_i_h_soll) * beta_h_g ^ (1 / n) + theta_i_h_soll '(3.2.7.13) + 'theta_RL_m_beta_h_g = (theta_RA - theta_i_h_soll) * beta_h_g ^ (1 / n) + theta_i_h_soll '(3.2.7.-14) + + 'eta_k_pl_Betrieb = eta_k_pl + H * (theta_g_test_pl - theta_HK_m_beta_h_g) '(3.2.7-76) + 'eta_k_100_Betrieb = eta_k_100 + G * (theta_g_test100 - theta_HK_m_beta_h_g) '(3.2.7-75) + 'Q_V_g_100 = (f_Hs_Hi - eta_k_100_Betrieb) / eta_k_100_Betrieb * Q_dot_N '(3.2.7-74) + 'Q_V_g_pl = (f_Hs_Hi - eta_k_pl_Betrieb) / eta_k_pl_Betrieb * beta_k_pl * Q_dot_N '(3.2.7-73) + + '-- ------- ----- --- --- --- -- + + eta_k_100 = TOSG(TOSG(dr난방.정격보일러효율) * age_heating / 100) ' Worksheets("난방기기").Range("난방기기정격효율1").Offset(0, i_count_boiler - 1) / 100 + eta_k_pl = eta_k_100 + f = -0.4 + + If dr난방.열생산기기방식 = "보일러" Then ' Worksheets("난방기기").Range("열생산기기방식1").Offset(0, i_count_boiler - 1) = "보일러" Then + Select Case dr난방.보일러방식.Trim ' Worksheets("난방기기").Range("보일러방식1").Offset(0, i_count_boiler - 1) + Case "가스보일러" '가스보일러" + e = 8.5 + f = -0.4 + Case "기름보일러" '기름보일러" + e = 8.5 + f = -0.4 + Case "저온가스보일러" '저온가스보일러" + e = 4.5 + f = -0.4 + Case "저온기름보일러" '저온기름보일러" + e = 4.25 + Case "콘덴싱보일러" '콘덴싱보일러" + e = 4 + End Select + + q_B_70 = TOSG((e * (Q_dot_N ^ f)) / 100) + + Else + q_B_70 = 1 + End If + + q_B_theta = q_B_70 '원래는 =q_B_70 * (theta_HK_m_beta_h_g - theta_i) / (70 - 20) 이지만 q_B_theta 와 q_B_70 이 같은 것으로 적용 추후검토 + + + + 'Select Case Worksheets("난방기기").Range("난방기기사용연료1").Offset(0, i_count_boiler - 1) + 'Case "난방유" + 'f_Hs_Hi = 1.06 + 'Case "천연가스" + 'f_Hs_Hi = 1.11 + 'Case "액화가스" + 'f_Hs_Hi = 1.09 + 'Case "석탄" + 'f_Hs_Hi = 1.04 + 'Case "갈탄" + 'f_Hs_Hi = 1.07 + 'Case "나무" + 'f_Hs_Hi = 1.08 + 'End Select + + f_Hs_Hi = 1 ' 국내는 총발열량을 기준으로 입력함으로 우선 1로 설정, 추후 검토 + + Q_dot_B_h = q_B_theta * (Q_dot_N / eta_k_100) * f_Hs_Hi '(3.2.7-71) + + Q_V_g_100 = (f_Hs_Hi - eta_k_100) / eta_k_100 * Q_dot_N + Q_V_g_pl = (f_Hs_Hi - eta_k_pl) / eta_k_pl * beta_k_pl * Q_dot_N + + '------------------------------------------------------------------------------------------------------ + + + + + + If beta_h > beta_k_pl Then + Q_h_g_v_i = ((beta_h - beta_k_pl) / (1 - beta_k_pl) * (Q_V_g_100 - Q_V_g_pl) + Q_V_g_pl) * (t_h_rL_T - t_w_100) + Q_h_g_v_i = Q_h_g_v_i + ((Q_V_g_100 - Q_V_g_pl) + Q_V_g_pl) * (t_h_rL_T - t_w_100) * n_beta + Else + '======================================================================================== 2010.2.21 수정 + If beta_h = 0 Then + Q_h_g_v_i = 0 + Else + Q_h_g_v_i = ((beta_h / beta_k_pl) * (Q_V_g_pl - Q_dot_B_h) + Q_dot_B_h) * (t_h_rL_T - t_w_100) + End If + '======================================================================================== 2010.2.21 수정 + End If + + Q_h_g = Q_h_g + (Q_h_g_v_i * d_h_rB) * system_count '=====2013.08.13 수정 '(3.2.7-66) + Q_h_g_i = Q_h_g_v_i * d_h_rB + + Else + + If dr난방.열생산기기방식 = "지역난방" Then ' Worksheets("난방기기").Range("열생산기기방식1").Offset(0, i_count_boiler - 1) = "지역난방" Then + If dr난방.지역난방방식 = "중온수" Then ' Worksheets("난방기기").Range("지역난방온수방식1").Offset(0, i_count_boiler - 1) = "중온수" Then + D_DS = 0.6 + theta_prim_DS = 105 + 'MsgBox("난방기기 단열등급에 등급2/3 등급3/4 등급 4/5 추가해야함") + Select Case dr난방.단열등급.Trim ' Dr난방.단열등급 + Case "기본단열" '기본단열" '원래는 등급1/2 이지만 국내에서는 법적단열로 사용 + B_DS = 4.9 + Case "등급2/3" '등급2/3" + B_DS = 4.4 + Case "등급3/4" '등급3/4" + B_DS = 4 + Case "등급4/5" '등급4/5" + B_DS = 3.5 + End Select + End If + 'MsgBox("난방기기 지역난방방식에 고온수 0002 추가해야함") --추가는 했으나 엑셀에서는 중온수고정이다 그래서 하위 루틴은 실행되면안된다 + If dr난방.지역난방방식 = "고온수" Then 'Worksheets("난방기기").Range("지역난방온수방식1").Offset(0, i_count_boiler - 1) = "고온수" Then + ' MsgBox("난방기기의 지역난방방식은 중온수 고정입니다.", MsgBoxStyle.Information, "확인") + D_DS = 0.4 + theta_prim_DS = 150 + Select Case dr난방.단열등급.Trim + Case "기본단열" '기본단열" '원래는 등급1/2 이지만 국내에서는 법적단열로 사용 + B_DS = 4.3 + Case "등급2/3" '등급2/3" + B_DS = 3.9 + Case "등급3/4" '등급3/4" + B_DS = 3.5 + Case "등급4/5" '등급4/5" + B_DS = 3.1 + End Select + End If + + theta_DS = D_DS * theta_prim_DS + (1 - D_DS) * 55 ' theta_sek_DS는 55도로 설정 (3.2.7-112) + Psi_DS = TOSG(dr난방.열교환기정격출력) ' .Worksheets("난방기기").Range("난방기기정격출력1").Offset(1, i_count_boiler - 1) + H_DS = TOSG(B_DS * Psi_DS ^ (1 / 3)) + Q_h_g = Q_h_g + (H_DS * (theta_DS - theta_i)) * system_count '=====2013.08.13 수정 + use_DH = use_DH + (H_DS * (theta_DS - theta_i)) * system_count '========2013.08.18 수정 + + End If + + + End If + + + ' 전기보조에너지 Q_h_d_aux 산출 관련 + + P_Pump = TOSG(dr난방.펌프동력) ' Worksheets("난방기기").Range("난방펌프제어유형1").Offset(1, i_count_boiler - 1) + Select Case dr난방.펌프제어유형.Trim ' Worksheets("난방기기").Range("난방펌프제어유형1").Offset(0, i_count_boiler - 1) + Case "비제어" '비제어" + c_p1 = 0.25 + c_p2 = 0.75 + Case "정압" '정압" + c_p1 = 0.75 + c_p2 = 0.25 + Case "변압" '변압" + c_p1 = 0.9 + c_p2 = 0.1 + End Select + + If beta_h_d = 0 Then + Q_h_d_aux_i = 0 + Else + Q_h_d_aux_i = P_Pump / 1000 * beta_h_d * t_h * (c_p1 + c_p2 / beta_h_d) '(3.2.7-39) + End If + Select Case dr난방.펌프교정계수.Trim ' Worksheets("난방기기").Range("난방펌프교정계수1").Offset(0, i_count_boiler - 1) + Case "정상가동" '정상가동" + f_P_A = 1 + Case "감소가동" '감소가동" + f_P_A = 0.6 + Case "가동정지" '" + f_P_A = 0 + End Select + + If t_h = 0 Or Q_h_d_aux_i = 0 Then '=========================================================================2014.03.07 추가 + + Else + Q_h_d_aux = TOSG(Q_h_d_aux + (Q_h_d_aux_i * (1.03 * t_h_rL + f_P_A * (t_h - t_h_rL)) / t_h) * system_count) '(3.2.7-40) + End If '=========================================================================2014.03.07 추가 + + + + + + If dr난방.축열탱크방식 = "축열탱크없음" Then + P_Pump = 0 ' Dr난방.Worksheets("난방기기").Range("축열펌프정격전력1").Offset(0, i_count_boiler - 1) + Else + P_Pump = TOSG(dr난방.펌프정격전력) ' Dr난방.Worksheets("난방기기").Range("축열펌프정격전력1").Offset(0, i_count_boiler - 1) + '=================================================================2010.11.04 위치 수정 + If dr난방.열생산기기방식 = "히트펌프" Then + If dr난방.운전방식.Trim = "동시가동" Then + Q_dot_h_max = TOSG(dr난방.히트난방용량) * TOSG(dr난방.보일러대수) + Else + Q_dot_h_max = TOSG(dr난방.히트난방용량) ' Worksheets("난방기기").Range("히트펌프사용연료1").Offset(1, i_count_boiler - 1) + End If + + End If + + If Q_dot_h_max = 0 Or t_h = 0 Then '============================================================2014.03.07 추가 + beta_h_s = 0 + Else + beta_h_s = (Q_h_b + Q_h_ce + Q_h_d) / (Q_dot_h_max * t_h) '(3.2.7-9) + End If '============================================================2014.03.07 추가 + + + If beta_h_s > 1 Then beta_h_s = 1 + t_P = beta_h_s * 24 * d_op_max_mth '(3.2.7-44) + Q_h_s_aux = Q_h_s_aux + (P_Pump * t_P / 1000) * system_count '===2013.08.18 수정 '(3.2.7-44) + '=================================================================2010.11.04 위치 수정 + + End If + If dr난방.열생산기기방식 = "보일러" Then 'Worksheets("난방기기").Range("열생산기기방식1").Offset(0, i_count_boiler - 1) = "보일러" Then + + P_aux_SB = 0.02 + + Select Case dr난방.보일러방식.Trim ' Worksheets("난방기기").Range("보일러방식1").Offset(0, i_count_boiler - 1) + Case "가스보일러" '가스보일러" + P_aux_100 = TOSG((0.148 * Q_dot_N + 40) / 1000) + P_aux_pl = TOSG((0.148 * Q_dot_N + 40) / 1000) + Case "기름보일러" '기름보일러" + P_aux_100 = TOSG(0.045 * Q_dot_N ^ 0.48) + P_aux_pl = TOSG(0.015 * Q_dot_N ^ 0.48) + Case "저온가스보일러" '저온가스보일러" + P_aux_100 = TOSG((0.148 * Q_dot_N + 40) / 1000) + P_aux_pl = TOSG((0.148 * Q_dot_N + 40) / 1000) + Case "저온기름보일러" '저온기름보일러" + P_aux_100 = TOSG(0.045 * Q_dot_N ^ 0.48) + P_aux_pl = TOSG(0.015 * Q_dot_N ^ 0.48) + Case "콘덴싱보일러" '콘덴싱보일러" + P_aux_100 = TOSG(0.045 * Q_dot_N ^ 0.48) + P_aux_pl = TOSG(0.015 * Q_dot_N ^ 0.48) + + End Select + + If beta_h > beta_k_pl Then + P_h_g_aux = (beta_h - beta_k_pl) / (1 - beta_k_pl) * (P_aux_100 - P_aux_pl) + P_aux_pl '(3.2.7-82) + Else + P_h_g_aux = (beta_h / beta_k_pl) * (P_aux_pl - P_aux_SB) + P_aux_SB '(3.2.7-81) + End If + + If d_Nutz_mth = 0 Then '//201.11.20 추가(학교프로파일 적용시 문제점 해결) + t_w_100 = 0 + Else + t_w_100 = Q_w_outg / (Q_dot_N * d_Nutz_mth) + End If + + Q_h_g_aux = Q_h_g_aux + (P_h_g_aux * (t_h_rL - t_w_100 * d_op_max_mth * d_Nutz_a / 365) + P_aux_SB * (24 * d_op_max_mth - t_h_rL)) * system_count '=====2013.08.18 수정 '(3.2.7-80) + + + End If + + + If dr난방.열생산기기방식 = "보일러" Then 'Worksheets("난방기기").Range("열생산기기방식1").Offset(0, i_count_boiler - 1) = "보일러" Then + Select Case dr난방.사용연료.Trim ' Worksheets("난방기기").Range("난방기기사용연료1").Offset(0, i_count_boiler - 1) + Case "난방유" '난방유" + use_Oil = use_Oil + (Q_h_outg_i + Q_h_g_i) * system_count '========2013.08.18 수정 + + Case "천연가스" '천연가스" + use_LNG = use_LNG + (Q_h_outg_i + Q_h_g_i) * system_count '========2013.08.18 수정 + + Case "액화가스" '액화가스" + use_LPG = use_LPG + (Q_h_outg_i + Q_h_g_i) * system_count '========2013.08.18 수정 + + End Select + Else + Select Case dr난방.열생산기기방식.Trim 'Worksheets("난방기기").Range("열생산기기방식1").Offset(0, i_count_boiler - 1) + '====================================================================2010.2.21 수정 + Case "지역난방" '지역난방" + use_DH = use_DH + Q_h_outg_i * system_count '========2013.08.18 수정 + + Case "전기보일러" '전기보일러" + use_Elec = use_Elec + (Q_h_outg_i + (Q_h_outg_i * 0.09)) * system_count '========2013.08.18 수정 '2011.03.08 전기보일러 생산손실을 내부 생산식 저장으로 설정 + '====================================================================2010.2.21 수정 + '====================================================================2010.03.14 추가 + Case "히트펌프" + Select Case dr난방.히트연료 ' Worksheets("난방기기").Range("히트펌프사용연료1").Offset(0, i_count_boiler - 1) + Case "전기" + use_Elec = use_Elec + Q_h_outg_i * system_count '========2013.08.18 수정 + + Case "천연가스" + use_LNG = use_LNG + Q_h_outg_i * system_count '========2013.08.18 수정 + + Case "액화가스" + use_LPG = use_LPG + Q_h_outg_i * system_count '========2013.08.18 수정 + + End Select + '====================================================================2010.03.14 추가 + End Select + + End If + + End If + End Sub + + Private Sub Calc_난방_개별기기적용시(dr난방 As DS.tbl_nanbangkikiRow, mon As String, 비율 As Decimal, i_count_month As Integer, theta_e As Decimal) + + pLog.Add(" >> Enter : Calc_난방_개별기기적용시") + '//이 난방기기가 존전체내역에서 사용이되엇나? + + Dim dr존데이터() As DS.tbl_zoneRow = DSET.tbl_zone.Select("(공조난방생산기기 = '" & dr난방.code & "' and 냉난방공조 <> '기능없음' and (외기부하처리여부 = '예' or 냉난방공조 = '냉난방' or 냉난방공조 = '난방') ) or (열생산난방생산기기='" & dr난방.code & "' and 냉난방방식 <> '냉방' and 냉난방방식 <> '기능없음') ") + If dr존데이터.Length > 0 Then + '"(공조난방생산기기 = '" & Dr난방.code & "' and 냉난방공조 <> '기능없음' and (외기부하처리여부 = '예' or 냉난방공조 = '냉난방' or 냉난방공조 = '난방') ) or (열생산난방생산기기='" & Dr난방.code & "' and 냉난방방식 <> '냉방' and 냉난방방식 <> '기능없음') " + Q_h_b = 0 + Q_h_ce = 0 + Q_dot_h_max = 0 + t_h_max = 0 + t_h = 0 '원래 식은 t_h = t_h_op + t_h_we 월간 난방 시간 + t_h_op_d = 0 + Q_h_d = 0 + Q_h_s = 0 + n_beta = 0 ' 순차가동시 full 부하 대수 + Q_h_g_v_i = 0 + '==================================2010.2.21 수정 + d_op_max_mth = 0 + d_Nutz_mth = 0 + '==================================2010.2.21 수정 + Q_w_outg = 0 '=================================2013.12.18 추가 + End If + + 'If DSET.tbl_zone.Select("(공조난방생산기기 = '" & dr난방.code & "' and 냉난방공조 <> '기능없음' and (외기부하처리여부 = '예' or 냉난방공조 = '냉난방' or 냉난방공조 = '난방') ) or (열생산난방생산기기='" & dr난방.code & "' and 냉난방방식 <> '냉방' and 냉난방방식 <> '기능없음') ").GetUpperBound(0) <> -1 Then 'If Worksheets("난방기기").Range("난방생산기기1").Offset(4, i_count_boiler - 1) = "예" Then + + + For Each DR존 As DS.tbl_zoneRow In dr존데이터 + + '//지금 사용하는 존이 공조에의한것인지 아닌지를 판단 + Dim 판단1 As Boolean = False + Dim 판단2 As Boolean = False + If DR존.열생산난방생산기기 = dr난방.code Then 판단1 = True + If DR존.공조난방생산기기 = dr난방.code Then 판단2 = True + + '//다시 생각을... + + '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 + ' If DR존.열생산난방생산기기 = Dr난방.code Then ' Worksheets("난방기기").Range("난방생산기기1").Offset(0, i_count_boiler - 1) Then + '=========================================================================================================================================================2010.2.21 수정 + '1105 소스백업 If DR존.냉난방방식 = "냉난방" OrElse DR존.냉난방방식 = "난방" Then ' Worksheets("입력존").Range("공조존2").Offset(0, i_count_zone - 1) <> "냉난방" Then + If 판단1 And (DR존.냉난방방식 = "냉난방" OrElse DR존.냉난방방식 = "난방") Then + Dim Dr월에너지 As DSR.월별에너지분석Row = CType(DSETR.월별에너지분석.Select("월='" & mon & "' and 존='" & DR존.code & "'")(0), DSR.월별에너지분석Row) + Dim Drow최대() As DSR.최대냉난방부하Row = CType(DSETR.최대냉난방부하.Select("Zone='" & DR존.code & "'"), DSR.최대냉난방부하Row()) + + system_count = IIf(dr난방.개별기기적용 = "0", 1, TOSG(DR존.입력존의수)) '===========2013.08.18 추가 + + 'If dr난방.헤더적용 Then + ' Q_h_b_i = a_Q_h_b_i + ' Q_h_b_i *= 비율 '//130818 + ' Q_h_b = Q_h_b_i + ' Q_dot_h_max = a_Q_dot_h_max + 'Else + If (DR존.냉난방공조 = "환기" OrElse DR존.냉난방공조 = "냉방") And DR존.외기부하처리여부 = "예" Then + Q_h_b_i = TOSG(Dr월에너지.난방요구량열) / system_count '===========2012.08.18 수정 + Else + Q_h_b_i = TOSG(Dr월에너지.난방요구량열 + Dr월에너지.난방요구량공조) / system_count '===========2012.08.18 수정 ' Sheets("" & i_count_month & "").Cells(7, 7 + i_count_zone) + End If + Q_h_b = Q_h_b_i + '=========================================================================================================================================================2010.2.21 수정 + Q_dot_h_max = TOSG(Q_dot_h_max + TOSG(Drow최대(0).최대난방기기부하)) ' Worksheets("0").Range("최대난방부하1").Offset(0, i_count_zone - 1) + 'End If + + '===================================================================================2010.2.21 수정 + 'If dr난방.헤더적용 Then + ' d_op_mth = a_d_op_mth + ' t_h = a_t_h + ' d_op_max_mth = a_d_op_max_mth + ' t_h_max = a_t_h_max + ' t_h_op_d = a_t_h_op_d + 'Else + Dim DR프로필 As DS.tbl_profileRow = CType(DSET.tbl_profile.Select("code='" & DR존.프로필 & "' and code <> '0'")(0), DS.tbl_profileRow) + If i_count_month = 0 Then + d_op_mth = 0 + Else + d_op_mth = CInt(TOSG(DR프로필("day" & Format(i_count_month, "00")))) + End If + + If t_h < TOSG(Drow최대(0).난방최대가동시간) * d_op_mth Then + t_h = CInt(TOSG(Drow최대(0).난방최대가동시간) * d_op_mth) + End If + If d_op_max_mth < d_op_mth Then + d_op_max_mth = d_op_mth + End If + '===================================================================================2010.2.21 수정 + If t_h > t_h_max Then t_h_max = t_h + If t_h_op_d < TOSG(Drow최대(0).난방최대가동시간) Then t_h_op_d = CInt(TOSG(Drow최대(0).난방최대가동시간)) ' Sheets("0").Range("최대난방부하1").Offset(2, i_count_zone - 1) + 'i_ce = 0 + 'End If + + '//아래 if 문이 모두 공급기기 데이터를 가지고 게산을 하고잇네요 이 부분을 전부 실행못하게 해야합니다. + If DR존.냉난방열공급시스템 = "0" Then + '//0일떄 특정 변수를 초기화(=0) 하려면 이곳에 입력하세요. + Else + + Dim Dr공급 As DS.tbl_kongkubRow = CType(DSET.tbl_kongkub.Select("code='" & DR존.냉난방열공급시스템 & "' and code <> '0'")(0), DS.tbl_kongkubRow) + + If (DR존.천장고 = "" OrElse TOSG(DR존.천장고) < 4) Then ' Worksheets("입력존").Range("천장고1").Offset(0, i_count_zone - 1) < 4 Then + + Select Case Dr공급.열공급시스템.Trim ' Dr공급.열공급시스템 + Case "노출형방열기(열)" '노출형방열기(열)" + eta_L = (0.93 + 0.95) / 2 + eta_B = 1 + Select Case Dr공급.노출형제어.Trim 'Dr공급.노출형제어 + Case "비제어" '비제어" + eta_C = 0.8 + Case "on/off제어" + eta_C = 0.88 + Case "PI제어" 'PI제어" + eta_C = 0.97 + End Select + Case "바닥난방(열)" '바닥난방(열)" + eta_L = 1 + Select Case Dr공급.바닥난방열제어.Trim ' Dr공급.바닥난방열제어 + Case "비제어" '비제어" + eta_C = 0.78 + Case "on/off제어" + eta_C = 0.88 + Case "PI제어" 'PI제어" + eta_C = 0.95 + End Select + Select Case Dr공급.바닥난방열건축부위.Trim ' Worksheets("난방공급시스템").Range("바닥열시스템1").Offset(0, i_ce - 1) + Case "습식" '습식" + eta_B = (0.93 + 0.95) / 2 + Case "반건식" '반건식" + eta_B = (0.95 + 0.95) / 2 + Case "건식" '건식" + eta_B = (0.98 + 0.95) / 2 + End Select + Case "바닥난방(전기)" '바닥난방(전기)" + eta_L = 1 + Select Case Dr공급.바닥난방전기제어.Trim ' Dr공급.바닥난방전기제어 + Case "비제어" '비제어" + eta_C = 0.91 + Case "on/off제어" + eta_C = 0.93 '2011.05.03 추가, 우선 on/off 제어와 PI제어를 같게 적용, 추후검토 + Case "PI제어" 'PI제어" + eta_C = 0.93 + End Select + Select Case Dr공급.바닥난방전기건축부위.Trim ' Worksheets("난방공급시스템").Range("바닥전기시스템1").Offset(0, i_ce - 1) + Case "습식" '습식" + eta_B = (0.93 + 0.95) / 2 + Case "반건식" '반건식" + eta_B = (0.95 + 0.95) / 2 + Case "건식" '건식" + eta_B = (0.98 + 0.95) / 2 + End Select + Case "전기난방" '전기난방" + eta_L = 2 ' eta_h_ce 값을 맞추기 위해서 임의로 설정한 값(전기난방은 eta_h_ce 값이 바로 정해지기때문) + eta_B = 2 ' eta_h_ce 값을 맞추기 위해서 임의로 설정한 값(전기난방은 eta_h_ce 값이 바로 정해지기때문) + Select Case Dr공급.전기난방제어.Trim ' Dr공급.바닥난방전기제어 + Case "비제어" + eta_C = -1.1235955 '2011.05.03 추가, 우선 on/off 제어와 비제어를 같게 적용, 추후검토 + Case "on/off제어" + eta_C = -1.1235955 ' eta_h_ce 0.89 값을 맞추기 위해서 임의로 설정한 값(전기난방은 eta_h_ce 값이 바로 정해지기때문) + Case "PI제어" 'PI제어" + eta_C = -1.07527 ' eta_h_ce 0.93 값을 맞추기 위해서 임의로 설정한 값(전기난방은 eta_h_ce 값이 바로 정해지기때문) + End Select + End Select + f_Radiant = 1 + Else + If TOSG(DR존.천장고) >= 4 And TOSG(DR존.천장고) < 10 Then + + Select Case Dr공급.열공급시스템.Trim ' Dr공급.열공급시스템 + Case "노출형방열기(열)" '노출형방열기(열)" + f_Radiant = 1 + eta_L = 0.9 + eta_B = 1 + Select Case Dr공급.노출형제어.Trim 'Dr공급.노출형제어 + Case "비제어" '비제어" + eta_C = 0.8 + Case "on/off제어" + eta_C = 0.93 + Case "PI제어" 'PI제어" + eta_C = 0.97 + End Select + Case "바닥난방(열)" '바닥난방(열)" + f_Radiant = 0.85 + eta_L = 0.98 + Select Case Dr공급.바닥난방열제어.Trim ' Dr공급.바닥난방열제어 + Case "비제어" '비제어" + eta_C = 0.8 + Case "on/off제어" + eta_C = 0.93 + Case "PI제어" 'PI제어" + eta_C = 0.97 + End Select + eta_B = 0.95 + Case "바닥난방(전기)" '바닥난방(전기)" + f_Radiant = 0.85 + eta_L = 0.98 + Select Case Dr공급.바닥난방전기제어.Trim ' Dr공급.바닥난방전기제어 + Case "비제어" '비제어" + eta_C = 0.8 + Case "on/off제어" + eta_C = 0.93 + Case "PI제어" 'PI제어" + eta_C = 0.97 + End Select + eta_B = 0.95 + Case "전기난방" '전기난방" + f_Radiant = 1 + eta_L = 0.935 + eta_B = 1 + Select Case Dr공급.바닥난방전기제어.Trim ' Dr공급.바닥난방전기제어 + Case "비제어" '비제어" + eta_C = 0.8 + Case "on/off제어" + eta_C = 0.93 + Case "PI제어" 'PI제어" + eta_C = 0.97 + End Select + End Select + Else + + + Select Case Dr공급.열공급시스템.Trim + Case "노출형방열기(열)" '노출형방열기(열)" + f_Radiant = 1 + eta_L = 0.72 ' 우선 15m 기준 설정 + eta_B = 1 + Select Case Dr공급.노출형제어.Trim + Case "비제어" + eta_C = 0.8 + Case "on/off제어" + eta_C = 0.93 + Case "PI제어" + eta_C = 0.97 + End Select + Case "바닥난방(열)" '바닥난방(열)" + f_Radiant = 0.85 + eta_L = 0.92 + Select Case Dr공급.바닥난방열제어.Trim + Case "비제어" + eta_C = 0.8 + Case "on/off제어" + eta_C = 0.93 + Case "PI제어" + eta_C = 0.97 + End Select + eta_B = 0.95 + Case "바닥난방(전기)" '바닥난방(전기)" + f_Radiant = 0.85 + eta_L = 0.92 + Select Case Dr공급.바닥난방전기제어.Trim + Case "비제어" + eta_C = 0.8 + Case "on/off제어" + eta_C = 0.93 + Case "PI제어" + eta_C = 0.97 + End Select + eta_B = 0.95 + Case "전기난방" '전기난방" + f_Radiant = 1 + eta_L = 0.78 + eta_B = 1 + Select Case Dr공급.바닥난방전기제어.Trim + Case "비제어" + eta_C = 0.8 + Case "on/off제어" + eta_C = 0.93 + Case "PI제어" + eta_C = 0.97 + End Select + End Select + + End If + + End If + + eta_h_ce = 1 / (4 - (eta_L + eta_C + eta_B)) '(3.27-28) + + Q_h_ce_i = (f_Radiant * f_int * f_hydr / eta_h_ce - 1) * Q_h_b_i '(3.2.7-27) + Q_h_ce = Q_h_ce_i + + End If + End If '//판단1 //난방생산기기 완료 + + If DR존.냉난방공조 = "냉난방" OrElse DR존.냉난방공조 = "난방" OrElse ((DR존.냉난방공조 = "환기" OrElse DR존.냉난방공조 = "냉방") And DR존.외기부하처리여부 = "예") Then ' 공조기 사용에 따른 난방에너지 + '=========================================================================================================================================================2010.2.21 수정 + system_count = IIf(dr난방.개별기기적용 = "0", 1, TOSG(DR존.입력존의수)) '//20130818 + If system_count = 0 Then system_count = 1 + + If 판단2 Then + + 'If dr난방.헤더적용 Then + ' Q_h_b_i = a_Q_h_b_i + ' Q_h_b_i *= 비율 '//130818 + ' Q_h_b = Q_h_b_i '//Q_c_b + Q_c_b_i + + 'Else + Dim 월에너지분석 As DSR.월별에너지분석Row = CType(DSETR.월별에너지분석.Select("월='" & mon & "' and 존='" & DR존.code & "'")(0), DSR.월별에너지분석Row) + If (DR존.냉난방공조 = "환기" OrElse DR존.냉난방공조 = "냉방") And DR존.외기부하처리여부 = "예" Then '// 2010.11.19 추가 + Q_h_b_i = TOSG(월에너지분석.난방요구량공조) / system_count '=========2013.08.18 수정 + Else + Q_h_b_i = TOSG(월에너지분석.공조요구량난방) / system_count '=========2013.08.18 수정 ' Sheets("" & i_count_month & "").Cells(19, 7 + i_count_zone) + End If + Q_h_b = Q_h_b_i + 'End If + 'Q_h_ce_i = 0 '공조기는 0으로 설정 '==============================================================2010.03.20 수정 공조기는 0으로 설정한 것을 수정 + If (DR존.냉난방공조 = "환기" OrElse DR존.냉난방공조 = "냉방") And DR존.외기부하처리여부 = "예" Then '// 2010.11.19 추가 + + Else + If TOSG(DR존.천장고p) >= 4 Then + If TOSG(DR존.천장고p) >= 20 Then + Q_h_ce_i = TOSG((1 / (1 / (4 - (0.71 + 0.97 + 1))) - 1) * Q_h_b_i) + Else + If TOSG(DR존.천장고p) >= 15 Then + Q_h_ce_i = TOSG((1 / (1 / (4 - (0.78 + 0.97 + 1))) - 1) * Q_h_b_i) + Else + If TOSG(DR존.천장고p) >= 12 Then + Q_h_ce_i = TOSG((1 / (1 / (4 - (0.84 + 0.97 + 1))) - 1) * Q_h_b_i) + Else + If TOSG(DR존.천장고p) >= 10 Then + Q_h_ce_i = TOSG((1 / (1 / (4 - (0.87 + 0.97 + 1))) - 1) * Q_h_b_i) + Else + If TOSG(DR존.천장고p) >= 8 Then + Q_h_ce_i = TOSG((1 / (1 / (4 - (0.91 + 0.97 + 1))) - 1) * Q_h_b_i) + Else + If TOSG(DR존.천장고p) >= 6 Then + Q_h_ce_i = TOSG((1 / (1 / (4 - (0.96 + 0.97 + 1))) - 1) * Q_h_b_i) + Else + Q_h_ce_i = TOSG((1 / (1 / (4 - (0.99 + 0.97 + 1))) - 1) * Q_h_b_i) + End If + End If + End If + End If + End If + End If + End If + + '===============================================================================================2010.03.20 수정 + + Q_h_ce = Q_h_ce_i + End If + + 'If dr난방.헤더적용 Then + ' Q_dot_h_max = a_Q_dot_h_max + ' d_op_mth = a_d_op_mth + ' t_h = a_t_h + ' d_op_max_mth = a_d_op_max_mth + ' t_h_max = a_t_h_max + ' t_h_op_d = a_t_h_op_d + 'Else + '//프로필 + Dim Drow최대() As DSR.최대냉난방부하Row = CType(DSETR.최대냉난방부하.Select("zone='" & DR존.code & "'"), DSR.최대냉난방부하Row()) + Dim Dr프로필 As DS.tbl_profileRow = CType(DSET.tbl_profile.Select("code='" & DR존.프로필 & "' and code <> '0'")(0), DS.tbl_profileRow) + Q_dot_h_max = TOSG(Q_dot_h_max + TOSG(Drow최대(0).최대난방기기부하)) / system_count '=====2013.08.18 수정 ' Worksheets("0").Range("최대난방부하1").Offset(0, i_count_zone - 1) + + If i_count_month = 0 Then + d_op_mth = 0 + Else + d_op_mth = CInt(TOSG(Dr프로필("day" & Format(i_count_month, "00")))) + End If + If t_h < TOSG(Drow최대(0).난방최대가동시간) * d_op_mth Then t_h = CInt(TOSG(Drow최대(0).난방최대가동시간) * d_op_mth) + If d_op_max_mth < d_op_mth Then d_op_max_mth = d_op_mth + If t_h > t_h_max Then t_h_max = t_h + If t_h_op_d < TOSG(Drow최대(0).난방최대가동시간) Then t_h_op_d = CInt(TOSG(Drow최대(0).난방최대가동시간)) ' Sheets("0").Range("최대난방부하1").Offset(2, i_count_zone - 1) + + 'End If + End If + '=========================================================================================================================================================2010.2.21 수정 + End If + '//공조 난방기기 완료 ㅋㅋ 끝 + ' End If + + '==================================2010.2.21 수정 + d_Nutz_mth = d_op_max_mth + '==================================2010.2.21 수정 + 'beta_h_d = (Q_h_b + Q_h_ce) / (Q_dot_h_max * t_h_max) ' t_h 가 t_h_max 일 것으로 추정 추후 검토 + + 'theta_VA = TOSG(Dr난방.급수온도) ' Worksheets("난방기기").Range("난방기기급수온도1").Offset(0, i_count_boiler - 1) + 'theta_RA = TOSG(Dr난방.환수온도) ' Worksheets("난방기기").Range("난방기기환수온도1").Offset(0, i_count_boiler - 1) + + 'theta_VL_m_beta_h_d = TOSG((theta_VA - theta_i_h_soll) * beta_h_d ^ (1 / n) + theta_i_h_soll) '(3.2.7.13) + 'theta_RL_m_beta_h_d = TOSG((theta_RA - theta_i_h_soll) * beta_h_d ^ (1 / n) + theta_i_h_soll) '(3.2.7.14) + + + 'theta_HK_m_beta_h_d = TOSG(0.5 * (theta_VL_m_beta_h_d + theta_RL_m_beta_h_d)) + + + 'f_L_WA = 1 - (theta_WA_Grenz - theta_e) / (theta_WA_Grenz - theta_e_min) '(3.2.7-22) + 'd_h_rB = TOSG(d_op_max_mth * ((365 - f_L_WA * (365 - d_Nutz_a)) / 365) * (t_h / (d_op_max_mth * 24))) '(3.2.7-21) '================== d_op_max_mth 2010.2.21 수정'CSng(d_mth * ((365 - f_L_WA * (365 - d_Nutz_a)) / 365) * (t_h / (d_mth * 24))) '(3.2.7-21) + + 'f_L_NA = 1 - (theta_NA_Grenz - theta_e) / (theta_NA_Grenz - theta_e_min) '(3.2.7-20) + 't_h_rL_T = 24 - f_L_NA * (24 - t_h_op_d) '(3.2.7-19) + 't_h_rL = t_h_rL_T * d_h_rB '(3.2.7-23) + + + '===================================================================2010.11.04 위치수정 및 추가 '2011.03.16 다시 수정 + If dr난방.열생산기기방식 = "히트펌프" Then + If dr난방.운전방식.Trim = "동시가동" Then + Q_dot_h_max = TOSG(dr난방.히트난방용량) * TOSG(dr난방.보일러대수) + Else + Q_dot_h_max = TOSG(dr난방.히트난방용량) ' Worksheets("난방기기").Range("히트펌프사용연료1").Offset(1, i_count_boiler - 1) + End If + + End If + + If Q_dot_h_max = 0 Or t_h_max = 0 Then '==========================================================2014.03.07 추가 + beta_h_d = 0 + Else + beta_h_d = (Q_h_b + Q_h_ce) / (Q_dot_h_max * t_h_max) + End If '==========================================================2014.03.07 추가 + + + ' t_h 가 t_h_max 일 것으로 추정 추후 검토 + + If beta_h_d > 1 Then beta_h_d = 1 + + theta_VA = TOSG(dr난방.급수온도) ' Worksheets("난방기기").Range("난방기기급수온도1").Offset(0, i_count_boiler - 1) + theta_RA = TOSG(dr난방.환수온도) ' Worksheets("난방기기").Range("난방기기환수온도1").Offset(0, i_count_boiler - 1) + + theta_VL_m_beta_h_d = TOSG((theta_VA - theta_i_h_soll) * beta_h_d ^ (1 / n) + theta_i_h_soll) '(3.2.7.13) + theta_RL_m_beta_h_d = TOSG((theta_RA - theta_i_h_soll) * beta_h_d ^ (1 / n) + theta_i_h_soll) '(3.2.7.14) + + + theta_HK_m_beta_h_d = TOSG(0.5 * (theta_VL_m_beta_h_d + theta_RL_m_beta_h_d)) + + If theta_WA_Grenz - theta_e_min = 0 Then '==================================================2014.03.07 추가 + f_L_WA = 1 + Else + f_L_WA = 1 - (theta_WA_Grenz - theta_e) / (theta_WA_Grenz - theta_e_min) '(3.2.7-22) + End If '==================================================2014.03.07 추가 + + If d_op_max_mth = 0 Then + d_h_rB = 0 + Else + d_h_rB = TOSG(d_op_max_mth * ((365 - f_L_WA * (365 - d_Nutz_a)) / 365) * (t_h / (d_op_max_mth * 24))) '(3.2.7-21) '================== d_op_max_mth 2010.2.21 수정'CSng(d_mth * ((365 - f_L_WA * (365 - d_Nutz_a)) / 365) * (t_h / (d_mth * 24))) '(3.2.7-21) + End If + + If theta_NA_Grenz - theta_e_min = 0 Then '==================================================2014.03.07 추가 + f_L_NA = 1 + Else + f_L_NA = 1 - (theta_NA_Grenz - theta_e) / (theta_NA_Grenz - theta_e_min) '(3.2.7-20) + End If '==================================================2014.03.07 추가 + + + t_h_rL_T = 24 - f_L_NA * (24 - t_h_op_d) '(3.2.7-19) + t_h_rL = t_h_rL_T * d_h_rB '(3.2.7-23) + '===================================================================2010.11.04 위치수정 및 추가 '2011.03.16 다시 수정 + + + + '=================================================2010. 02. 11 수정 + For Each Dr난방분배 As DS.tbl_nbunbaeRow In DSET.tbl_nbunbae.Select("생산기기구분='" & dr난방.code & "' and code <> '0'", "code") + 'If Dr난방.code = Dr난방분배.생산기기구분 Then ' Worksheets("난방분배시스템").Range("분배생산기기1").Offset(0, i_count_pipe - 1) Then + + Select Case Dr난방분배.표준치적용.Trim ' Worksheets("난방분배시스템").Range("분배생산기기1").Offset(1, i_count_pipe - 1) + Case "상세입력" '상세입력" + L_i = TOSG(Dr난방분배.배관구간길이) '= Worksheets("난방분배시스템").Range("배관구간방식1").Offset(1, i_count_pipe - 1) + U_i = TOSG(Dr난방분배.열관류율) ' Worksheets("난방분배시스템").Range("배관구간방식1").Offset(2, i_count_pipe - 1) + Select Case Dr난방분배.배관설치장소.Trim ' Worksheets("난방분배시스템").Range("배관구간방식1").Offset(3, i_count_pipe - 1) + Case "표준난방존" '표준난방존" + Q_h_d = (Q_h_d + U_i * (theta_HK_m_beta_h_d - theta_i_h_soll) * L_i * t_h_rL) / 1000 + Case "표준비난방존" '표준비난방존" + Q_h_d = (Q_h_d + U_i * (theta_HK_m_beta_h_d - 13) * L_i * t_h_rL) / 1000 + Case "외부" '외부" + Q_h_d = (Q_h_d + U_i * (theta_HK_m_beta_h_d - theta_e) * L_i * t_h_rL) / 1000 + End Select + Case "표준치조건" '표준치조건" + L_G = TOSG(Dr난방분배.건물길이x) ' Worksheets("난방분배시스템").Range("난방분배건물길이1").Offset(0, i_count_pipe - 1) + B_G = TOSG(Dr난방분배.건물길이y) ' Worksheets("난방분배시스템").Range("난방분배건물길이1").Offset(1, i_count_pipe - 1) + n_G = TOSG(Dr난방분배.층수) 'Worksheets("난방분배시스템").Range("난방분배건물길이1").Offset(2, i_count_pipe - 1) + h_G = TOSG(Dr난방분배.층고) ' Worksheets("난방분배시스템").Range("난방분배건물길이1").Offset(3, i_count_pipe - 1) + If dr난방.배관망유형 = "이중배관" Then ' then Worksheets("난방기기").Range("난방기기배관망1").Offset(0, i_count_boiler - 1) = "이중배관" Then + If Dr난방분배.지관장소 = "외부" Then ' then외부" Then + L_i = TOSG((2 * L_G + 0.01625 * L_G * B_G * B_G) * 0.2 + (0.025 * L_G * B_G * h_G * n_G) * 0.255 + (0.55 * L_G * B_G * n_G) * 0.255) '외부배관난방적용 + Else + L_i = TOSG((2 * L_G + 0.0325 * L_G * B_G + 6) * 0.2 + (0.025 * L_G * B_G * h_G * n_G) * 0.255 + (0.55 * L_G * B_G * n_G) * 0.255) '내부배관난방적용 + End If + Else + L_i = TOSG((2 * L_G + 0.0325 * L_G * B_G + 6) * 0.2 + (0.025 * L_G * B_G * h_G * n_G + 2 * (L_G + B_G) * n_G) * 0.255 + (0.1 * L_G * B_G * n_G) * 0.255) '단일배관난방적용 + End If + Q_h_d = (Q_h_d + (theta_HK_m_beta_h_d - theta_i_h_soll) * L_i * t_h_rL) / 1000 '(3.2.7-36) 'theta_i를 theta_i_h_soll 로 수정 추후 검토 ' U_i는 L_i에 포함 + Case Else + MsgBox("표준치적용을 알수없습니다", MsgBoxStyle.Critical, Dr난방분배.표준치적용) + End Select + 'End If + Next + + '=================================================2010. 02. 11 수정 + If dr난방.축열탱크방식 <> "축열탱크없음" Then ' Worksheets("난방기기").Range("난방기기축열탱크1").Offset(0, i_count_boiler - 1) <> "축열탱크없음" Then + V_s = TOSG(dr난방.축열제척) ' Worksheets("난방기기").Range("난방기기축열체적1").Offset(0, i_count_boiler - 1) + q_B_S = TOSG(0.4 + 0.14 * V_s ^ 0.45) '(3.2.7-43) + Q_h_s = f_verbindung * (theta_VA - theta_i) / 45 * d_op_max_mth * q_B_S '(3.2.7-41) theta_h_s 는 theta_VA 로 설정'================== d_op_max_mth 2010.2.21 수정 + End If + + '===================================================================================================================2010.2.21 수정 + Q_h_outg_i = Q_h_b + Q_h_ce + Q_h_d + Q_h_s '(3.2.7-1) + + If dr난방.열생산기기방식 = "전기보일러" Then + Q_h_outg_i = Q_h_outg_i / (TOSG(dr난방.정격보일러효율) * age_heating / 100) + End If + + + + + Q_h_outg = Q_h_outg + Q_h_outg_i * system_count '=====2013.08.13 수정 '(3.2.7-1) + '===================================================================================================================2010.2.21 수정 + + If dr난방.열생산기기방식 = "보일러" Then ' Worksheets("난방기기").Range("열생산기기방식1").Offset(0, i_count_boiler - 1) = "보일러" Then + '//아래는 급탕생산기기로 지정되어잇는가? + If DSET.tbl_zone.Select("열생산급탕생산기기='" & dr난방.code & "'").GetUpperBound(0) <> -1 Then 'If Worksheets("난방기기").Range("난방생산기기1").Offset(5, i_count_boiler - 1) = "예" Then + Q_w_b = 0 + For Each Dr입력존 As DS.tbl_zoneRow In DSET.tbl_zone.Select("code <> '0' and 열생산급탕생산기기='" & dr난방.code & "'", "code") + Dim Drow최대() As DSR.최대냉난방부하Row = CType(DSETR.최대냉난방부하.Select("zone='" & Dr입력존.code & "'"), DSR.최대냉난방부하Row()) + Dim Dr월에너지분석 As DSR.월별에너지분석Row = CType(DSETR.월별에너지분석.Select("월='" & mon & "' and 존='" & Dr입력존.code & "'")(0), DSR.월별에너지분석Row) + + Dim system_count_2 As Decimal = IIf(dr난방.개별기기적용 = "0", 1, TOSG(Dr입력존.입력존의수)) '//20130818 '=====2013.12.18 system_count_2 추가 + + 'Q_w_b = TOSG(Q_w_b + (TOSG(Dr월에너지분석.급탕요구량) / system_count_2)) 'Sheets("" & i_count_month & "").Cells(15, 7 + i_count_zone) '=====2013.12.18 system_count_2 추가 + Q_w_b = TOSG(Dr월에너지분석.급탕요구량) / system_count_2 'Sheets("" & i_count_month & "").Cells(15, 7 + i_count_zone) '=====2013.12.18 system_count_2 추가 '=============2014.05.29 누적오류 수정 + '===================================================================================2010.2.21 수정 + Dim Dr프로필 As DS.tbl_profileRow = CType(DSET.tbl_profile.Select("code='" & Dr입력존.프로필 & "'")(0), DS.tbl_profileRow) + + If i_count_month = 0 Then + d_op_mth = 0 + Else + d_op_mth = CInt(TOSG(Dr프로필("day" & Format(i_count_month, "00")))) + End If + + If t_h < TOSG(Drow최대(0).난방최대가동시간) * d_op_mth Then + t_h = CInt(TOSG(Drow최대(0).난방최대가동시간) * d_op_mth) + End If + If d_op_max_mth < d_op_mth Then + d_op_max_mth = d_op_mth + End If + '===================================================================================2010.2.21 수정 + Next + End If + End If + + + ' 여기에 신재생에너지를 산출하고 Q_h_outg 와 Q_h_outg_i 에서 신재생에너지를 차감해야 + '---------------------------------------------------------------------------------------------------------------------------------- + '---------------------------------------------------------------------------------------------------------------------------------- + + '신재생 및 열병합 시스템 + Dim CRenew As New CRenewable(DSET, Result) + ' Dim Dr신재생 As DS.tbl_newRow = CType(DSET.tbl_new.Rows(0), DS.tbl_newRow) + If dr난방.신재생연결여부 = "시스템연결" AndAlso dr난방.연결된시스템.Trim <> "" AndAlso dr난방.연결된시스템 <> "0" Then ' Worksheets("난방기기").Range("신재생난방연결1").Offset(0, i_count_boiler - 1) = "시스템연결" Then + Dim Dr신재생 As DS.tbl_newRow = CType(DSET.tbl_new.Select("code='" & dr난방.연결된시스템 & "' and code <> '0'")(0), DS.tbl_newRow) + '//식은 맞는듯한게 값이 이상하게 들었네요... 뭘해도 되도록 수정해버리죠 ㅋㅋ + + + Select Case Dr신재생.기기종류.Trim ' Dr난방.연결된시스템.Trim + Case "지열" '//지열 + Select Case Dr신재생.가동연료.Trim + Case "전기" '전기" + CRenew.Calc_HeatpumpSystem(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_HeatpumpSystem(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_HeatpumpSystem(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 "난방유" '난방유" + CRenew.Calc_CogenerationSystemEN(Dr신재생, 1, i_count_month, Q_h_outg_i, t_h, Q_h_CHP, Q_h_f_CHP) + Q_h_outg = Q_h_outg - Q_h_CHP + Q_h_outg_i = Q_h_outg_i - Q_h_CHP + use_Oil = use_Oil + Q_h_f_CHP * system_count '=============2013.08.18 수정 + Q_h_f = Q_h_f + Q_h_f_CHP * system_count '=============2013.08.18 수정 '============================2010.04.17 + Case "천연가스" '천연가스" + CRenew.Calc_CogenerationSystemEN(Dr신재생, 1, i_count_month, Q_h_outg_i, t_h, Q_h_CHP, Q_h_f_CHP) + Q_h_outg = Q_h_outg - Q_h_CHP + Q_h_outg_i = Q_h_outg_i - Q_h_CHP + use_LNG = use_LNG + Q_h_f_CHP * system_count '=============2013.08.18 수정 + Q_h_f = Q_h_f + Q_h_f_CHP * system_count '=============2013.08.18 수정 '============================2010.04.17 + Case "액화가스" '액화가스" + CRenew.Calc_CogenerationSystemEN(Dr신재생, 1, i_count_month, Q_h_outg_i, t_h, Q_h_CHP, Q_h_f_CHP) + Q_h_outg = Q_h_outg - Q_h_CHP + Q_h_outg_i = Q_h_outg_i - Q_h_CHP + use_LPG = use_LPG + Q_h_f_CHP * system_count '=============2013.08.18 수정 + Q_h_f = Q_h_f + Q_h_f_CHP * system_count '=============2013.08.18 수정 '============================2010.04.17 + Case Else + MsgBox("신재생에너지의 가동연료를 확인할 수 없습니다", MsgBoxStyle.Critical, Dr신재생.가동연료) + End Select + End Select + End If + + + '---------------------------------------------------------------------------------------------------------------------------------- + '---------------------------------------------------------------------------------------------------------------------------------- + + '===========================================================================================2013.01.13 이동 + If dr난방.열생산기기방식 = "히트펌프" Then + + Q_dot_HP_heating = TOSG(dr난방.히트난방용량) ' Worksheets("난방기기").Range("히트펌프사용연료1").Offset(1, i_count_boiler - 1) + COP_HP_7 = TOSG(dr난방.히트난방정격7) * age ' Worksheets("난방기기").Range("히트펌프사용연료1").Offset(2, i_count_boiler - 1) + COP_HP_10 = TOSG(dr난방.히트난방정격10) * age ' Worksheets("난방기기").Range("히트펌프사용연료1").Offset(3, i_count_boiler - 1) + L_HP_heating = TOSG(dr난방.히트배관길이) ' Worksheets("난방기기").Range("히트펌프사용연료1").Offset(4, i_count_boiler - 1) + If theta_e > 15 Then + COP_HP_total = (COP_HP_7 - COP_HP_10) / 22 * 15 + COP_HP_7 - 7 * (COP_HP_7 - COP_HP_10) / 22 + Else + COP_HP_total = (COP_HP_7 - COP_HP_10) / 22 * theta_e + COP_HP_7 - 7 * (COP_HP_7 - COP_HP_10) / 22 + End If + + If theta_e < 7 Then + + If theta_e >= 0 Then + COP_HP_total = TOSG(COP_HP_total * ((1 - 0.86) / 7 * theta_e + 0.86)) + Else + COP_HP_total = TOSG(COP_HP_total * ((0.98 - 0.86) / 7 * (-theta_e) + 0.86)) + End If + + End If + + If Q_dot_HP_heating <= 20 Then + COP_HP_total = TOSG(COP_HP_total * (1 - L_HP_heating * 0.002)) + Else + If Q_dot_HP_heating <= 100 Then + COP_HP_total = TOSG(COP_HP_total * (1 - L_HP_heating * 0.0009)) + Else + COP_HP_total = TOSG(COP_HP_total * (1 - L_HP_heating * 0.0014)) + End If + End If + + + + Q_h_outg = Q_h_outg - Q_h_outg_i '===================================================2013.01.16 추가 + '======================================================================================================================================================2010.04.23 추가 + + + '======================================================================================================================================================2012.07.08 추가 + + If dr난방.운전방식.Trim = "동시가동" Or dr난방.운전방식.Trim = "순차가동" Then + Q_dot_HP_heating = Q_dot_HP_heating * TOSG(dr난방.보일러대수) + End If + + + + If Q_dot_HP_heating = 0 Or t_h_max = 0 Then '===========================================================2014.03.07 추가 + Q_h_outg_i = 0 + Else + If Q_h_outg_i / (Q_dot_HP_heating * t_h_max) >= 1 Or dr난방.히트펌프시스템종류 = "실내외분리시스템" Then '====2010.04.26 수정 + Q_h_outg_i = Q_h_outg_i / COP_HP_total + Else + If dr난방.운전방식.Trim = "순차가동" Then + For i_count_beta = 1 To CInt(TOSG(dr난방.보일러대수)) + If Q_h_outg_i <= (Q_dot_HP_heating * t_h_max / TOSG(dr난방.보일러대수) * i_count_beta) Then + Q_h_outg_i = ((Q_h_outg_i / COP_HP_total) * (i_count_beta - 1) + (Q_h_outg_i / (COP_HP_total * (Q_h_outg_i / (Q_dot_HP_heating * t_h_max / TOSG(dr난방.보일러대수)) * 0.5 + 0.5)))) / i_count_beta + Exit For + End If + Next + + Else + Q_h_outg_i = Q_h_outg_i / (COP_HP_total * (Q_h_outg_i / (Q_dot_HP_heating * t_h_max) * 0.5 + 0.5)) '====2010.04.26 수정 + End If + + End If + End If '===========================================================2014.03.07 추가 + + + + '======================================================================================================================================================2010.04.23 추가 + Q_h_outg = Q_h_outg + Q_h_outg_i * system_count '=====2013.08.13 수정 '===================================================2013.01.16 추가 + + + End If + + '===========================================================================================2013.01.13 이동 + + + + If dr난방.열생산기기방식 = "보일러" Then 'Worksheets("난방기기").Range("열생산기기방식1").Offset(0, i_count_boiler - 1) = "보일러" Then + + If DSET.tbl_zone.Select("열생산급탕생산기기='" & dr난방.code & "' and code <> '0'").GetUpperBound(0) <> -1 Then ' If Worksheets("난방기기").Range("난방생산기기1").Offset(5, i_count_boiler - 1) = "예" Then + + If dr난방.분배시스템방식 = "중앙식" Then ' Dr난방.분배시스템방식 = "중앙식" Then + + L_G = TOSG(dr난방.건물길이) ' Dr난방.건물길이 + B_G = TOSG(dr난방.건물넓이) ' Dr난방.건물넓이 + n_G = TOSG(dr난방.열공급층수) 'Dr난방.열공급층수 + h_G = TOSG(dr난방.층고) ' Dr난방.층고 + L_i = TOSG((2 * L_G + 0.0325 * L_G * B_G + 6) * 0.2 + (0.025 * L_G * B_G * h_G * n_G + 2 * (L_G + B_G) * n_G) * 0.255 + (0.1 * L_G * B_G * n_G) * 0.255) '단일배관난방적용 + + If dr난방.순환유무 = "무" Then ' Worksheets("난방기기").Range("급탕분배방식1").Offset(1, i_count_boiler - 1) = "무" Then + ':중앙비순환시스템 + Q_w_d_i = TOSG(1 / 1000 * L_i * ((23 * 0.2 ^ (-0.2) - theta_i) * d_Nutz_mth * 24)) '(3.2.9-11) 중앙비순환시스템 L_i 에 U_i 포함 theta_w_m_비순환 는 23*0.2^(-0.2) + theta_g_m = 40 + Else + ':중앙순환시스템 + Q_w_d_i = TOSG(1 / 1000 * L_i * d_Nutz_mth * ((50 - theta_i) * t_Nutz_d + 0.5 * (23 * 0.2 ^ (-0.2) - theta_i) * (24 - t_Nutz_d))) '(3.2.9-11) 중앙순환시스템 L_i 에 U_i 포함 theta_w_m_순환 는 50도 + theta_g_m = 50 + End If + + Q_w_d = Q_w_d + Q_w_d_i '(3.2.9-12) + End If + + + Select Case dr난방.축열탱크방식.Trim 'Worksheets("난방기기").Range("난방기기축열탱크1").Offset(0, i_count_boiler - 1) + Case "전기가열식" '전기가열식" + + ':저탕조용량(모를경우) + 'f_N = 1 / (t_Nutz_d * 1) '(3.2.9-24) t_Nutz_T 는 t_Nutz_d 로 적용, eta_Sp는 1로 적용 추후 검토 + ':심야전기가열 + 'V_s = 1.42 * Q_w_b_d * f_N * 860 / ((theta_w_m - theta_k) * eta_s) '(3.2.9-33) : 심야전기가열 + ':주간전기가열 + 'V_s = 0.67 * Q_w_b_d * f_N * 860 / ((Q_w_m - Q_k) * eta_s) '(3.2.9-34) : 주간전기가열 + V_s = TOSG(dr난방.축열제척) ' Worksheets("난방기기").Range("난방기기축열체적1").Offset(0, i_count_boiler - 1) + q_B_S = TOSG(0.29 + 0.019 * V_s ^ 0.8) '(3.2.9-30) :1994 이후 + Q_w_s = (55 - theta_i) / 45 * d_Nutz_mth * q_B_S '(3.2.9-29) : 전기가열식 저탕조 + + Case "가스가열식" '가스가열식" + + ':가스가열식 저탕조 + V_s = TOSG(dr난방.축열제척) ' Worksheets("난방기기").Range("난방기기축열체적1").Offset(0, i_count_boiler - 1) + ':1994 이후 + q_B_S = TOSG(2 + 0.033 * V_s ^ 1.1) '(3.2.9-38) + Q_w_s = (55 - theta_i) / 50 * d_Nutz_mth * q_B_S '(3.2.9-37) : 가스가열식 저탕조 + + Case "간접가열식" '간접가열식" + ':간접 가열식 저탕조 + ':태양열 복합 저탕조(UA_sb_s_a를 모를 경우) + 'q_B_S = (0.4 + 0.2 * (V_s_aux + V_s_sol) ^ 0.4) * V_s_aux / (V_s_aux + V_s_sol) '(3.2.9-26) + 'f_N = 1 / (t_Nutz_T * n_Sp) '(3.2.9-24) + ':저탕조용량(모를 경우) + 'V_s = (Q_w_b_d * f_N * 860) / ((theta_w_m - theta_k) * eta_s) '(3.2.9-23) + V_s = TOSG(dr난방.축열제척) ' Worksheets("난방기기").Range("난방기기축열체적1").Offset(0, i_count_boiler - 1) + If V_s < 1000 Then + ':1000이하 + q_B_S = 0.8 + 0.02 * V_s ^ 0.77 '(3.2.9-18) '============================2010.04.24 수정 + Else + ':1000이상 + q_B_S = TOSG(0.39 * V_s ^ 0.35 + 0.5) '(3.2.9-19) + End If + Q_w_s = f_verbindung * (50 - theta_i) / 45 * d_Nutz_mth * q_B_S '(3.2.9-16) + + End Select + + Q_w_outg_i = Q_w_b + Q_w_ce + Q_w_d + Q_w_s '(3.2.9-4) + Q_w_outg = Q_w_outg + Q_w_outg_i * system_count '=====2013.08.13 수정 + + Else + Q_w_outg_i = 0 + End If + + + ' 신재생에너지 시스템 + '---------------------------------------------------------------------------------------------------------------------------------- + '---------------------------------------------------------------------------------------------------------------------------------- + + '태양열(난방+급탕) 시스템 + If dr난방.신재생연결여부 = "시스템연결" AndAlso dr난방.연결된시스템 <> "0" Then ' Worksheets("난방기기").Range("신재생난방연결1").Offset(0, i_count_boiler - 1) = "시스템연결" Then + Dim Dr신재생 As DS.tbl_newRow = CType(DSET.tbl_new.Select("code='" & dr난방.연결된시스템 & "' and code <> '0'")(0), DS.tbl_newRow) + + Select Case Dr신재생.기기종류.Trim + Case "태양열" '//태양열일때 + If Dr신재생.태양열종류 = "난방+급탕" Then '난방+급탕" Then + + 'Dim Dr존 As DS.tbl_zoneRow = CType(DSET.tbl_zone.Select("code<>'0'", "code")(i_count_zone - 1), DS.tbl_zoneRow) + Calc.Renewable.Calc_ThermalSolarSystem_EN(system_type, Dr신재생.code, i_count_month, d_op_max_mth, Q_h_outg_i, Q_w_outg_i, Q_W_sol_out_m, Q_H_sol_out_m, W_sol_aux_m) + Q_h_outg = Q_h_outg - Q_H_sol_out_m + Q_h_outg_i = Q_h_outg_i - Q_H_sol_out_m + Q_w_outg = Q_w_outg - Q_W_sol_out_m + Q_w_outg_i = Q_w_outg_i - Q_W_sol_out_m + W_sol_aux = W_sol_aux + W_sol_aux_m * system_count '=======2013.08.18 수정 + End If + End Select + End If + + '---------------------------------------------------------------------------------------------------------------------------------- + '---------------------------------------------------------------------------------------------------------------------------------- + + Q_dot_N = TOSG(dr난방.보일러정격출력) ' Worksheets("난방기기").Range("난방기기정격출력1").Offset(0, i_count_boiler - 1) + If d_Nutz_mth = 0 Then '//201.11.20 추가(학교프로파일 적용시 문제점 해결) + t_w_100 = 0 + Else + t_w_100 = Q_w_outg_i / (Q_dot_N * d_Nutz_mth) '(3.2.9-61) + Q_dot_d_in = Q_h_outg_i / (d_h_rB * (t_h_rL_T - t_w_100)) '(3.2.7-69) 난방 또는 난방 및 급탕 + ' 우선 미적용 Q_dot_d_in = sigma_Q_h_outg / (t_Betrieb_K - t_W_100) * d_Nutz_mth '(3.2.7-70) 난방, 급탕 및 공조 + End If + + + Select Case dr난방.운전방식.Trim ' Worksheets("난방기기").Range("난방기기운전방식1").Offset(0, i_count_boiler - 1) + Case "단독가동" '단독가동" + beta_h = Q_dot_d_in / Q_dot_N '(3.2.7-64) : 단일보일러 시설 + Case "동시가동" ' 동시가동" + beta_h = TOSG(Q_dot_d_in / (Q_dot_N * TOSG(dr난방.보일러대수))) '(3.2.7-64) : 다수보일러 동시가동 + Case "순차가동" '순차가동" + For i_count_beta = 1 To CInt(TOSG(dr난방.보일러대수)) + If Q_dot_d_in <= (Q_dot_N * i_count_beta) Then + beta_h = (Q_dot_d_in - Q_dot_N * (i_count_beta - 1)) / Q_dot_N * i_count_beta '다수보일러 대수제어 + n_beta = i_count_beta - 1 + Exit For + End If + Next + End Select + + + '------------------------------------------------------------------------------------ + ' 보일러 가동 손실의 경우 국내 데이타 미비로 정격효율을 부분부하효율로 적용 추후 검토 필요 + + 'eta_k_100 = (a + b * Ln(Q_dot_N)) / 100 '(3.2.7-83) 일반보일러 + 'eta_k_pl = (c + d * Ln(Q_dot_N)) / 100 '(3.2.7-84) 일반보일러 + 'eta_k_100 = (a + b * Ln(Q_dot_N)) / 100 '(3.2.7-85) 콘덴싱보일러 + 'eta_k_pl = (c + d * Ln(Q_dot_N)) / 105 '(3.2.7-86) 콘덴싱보일러 + + + 'q_B_70 = (E * (Q_dot_N ^ F)) / 100 '(3.2.7-64) + 'q_B_theta = q_B_70 * (theta_HK_m_beta_h_g - theta_i) / (70 - 20) '(3.2.7-72) + 'Q_dot_B_h = q_B_theta * (Q_dot_N / eta_k_100) * f_Hs_Hi '(3.2.7-71) 정지 대기모드 + + + + 'beta_h_g = (Q_h_b + Q_h_ce + Q_h_d + Q_h_s) / (Q_dot_h_max * t_h) '(3.2.7-10) + 'theta_VL_m_beta_h_g = (theta_VA - theta_i_h_soll) * beta_h_g ^ (1 / n) + theta_i_h_soll '(3.2.7.13) + 'theta_RL_m_beta_h_g = (theta_RA - theta_i_h_soll) * beta_h_g ^ (1 / n) + theta_i_h_soll '(3.2.7.-14) + + 'eta_k_pl_Betrieb = eta_k_pl + H * (theta_g_test_pl - theta_HK_m_beta_h_g) '(3.2.7-76) + 'eta_k_100_Betrieb = eta_k_100 + G * (theta_g_test100 - theta_HK_m_beta_h_g) '(3.2.7-75) + 'Q_V_g_100 = (f_Hs_Hi - eta_k_100_Betrieb) / eta_k_100_Betrieb * Q_dot_N '(3.2.7-74) + 'Q_V_g_pl = (f_Hs_Hi - eta_k_pl_Betrieb) / eta_k_pl_Betrieb * beta_k_pl * Q_dot_N '(3.2.7-73) + + '-- ------- ----- --- --- --- -- + + eta_k_100 = TOSG(TOSG(dr난방.정격보일러효율) * age_heating / 100) ' Worksheets("난방기기").Range("난방기기정격효율1").Offset(0, i_count_boiler - 1) / 100 + eta_k_pl = eta_k_100 + f = -0.4 + + If dr난방.열생산기기방식 = "보일러" Then ' Worksheets("난방기기").Range("열생산기기방식1").Offset(0, i_count_boiler - 1) = "보일러" Then + Select Case dr난방.보일러방식.Trim ' Worksheets("난방기기").Range("보일러방식1").Offset(0, i_count_boiler - 1) + Case "가스보일러" '가스보일러" + e = 8.5 + f = -0.4 + Case "기름보일러" '기름보일러" + e = 8.5 + f = -0.4 + Case "저온가스보일러" '저온가스보일러" + e = 4.5 + f = -0.4 + Case "저온기름보일러" '저온기름보일러" + e = 4.25 + Case "콘덴싱보일러" '콘덴싱보일러" + e = 4 + End Select + + q_B_70 = TOSG((e * (Q_dot_N ^ f)) / 100) + + Else + q_B_70 = 1 + End If + + q_B_theta = q_B_70 '원래는 =q_B_70 * (theta_HK_m_beta_h_g - theta_i) / (70 - 20) 이지만 q_B_theta 와 q_B_70 이 같은 것으로 적용 추후검토 + + + + 'Select Case Worksheets("난방기기").Range("난방기기사용연료1").Offset(0, i_count_boiler - 1) + 'Case "난방유" + 'f_Hs_Hi = 1.06 + 'Case "천연가스" + 'f_Hs_Hi = 1.11 + 'Case "액화가스" + 'f_Hs_Hi = 1.09 + 'Case "석탄" + 'f_Hs_Hi = 1.04 + 'Case "갈탄" + 'f_Hs_Hi = 1.07 + 'Case "나무" + 'f_Hs_Hi = 1.08 + 'End Select + + f_Hs_Hi = 1 ' 국내는 총발열량을 기준으로 입력함으로 우선 1로 설정, 추후 검토 + + Q_dot_B_h = q_B_theta * (Q_dot_N / eta_k_100) * f_Hs_Hi '(3.2.7-71) + + Q_V_g_100 = (f_Hs_Hi - eta_k_100) / eta_k_100 * Q_dot_N + Q_V_g_pl = (f_Hs_Hi - eta_k_pl) / eta_k_pl * beta_k_pl * Q_dot_N + + '------------------------------------------------------------------------------------------------------ + + + + + + If beta_h > beta_k_pl Then + Q_h_g_v_i = ((beta_h - beta_k_pl) / (1 - beta_k_pl) * (Q_V_g_100 - Q_V_g_pl) + Q_V_g_pl) * (t_h_rL_T - t_w_100) + Q_h_g_v_i = Q_h_g_v_i + ((Q_V_g_100 - Q_V_g_pl) + Q_V_g_pl) * (t_h_rL_T - t_w_100) * n_beta + Else + '======================================================================================== 2010.2.21 수정 + If beta_h = 0 Then + Q_h_g_v_i = 0 + Else + Q_h_g_v_i = ((beta_h / beta_k_pl) * (Q_V_g_pl - Q_dot_B_h) + Q_dot_B_h) * (t_h_rL_T - t_w_100) + End If + '======================================================================================== 2010.2.21 수정 + End If + + Q_h_g = Q_h_g + (Q_h_g_v_i * d_h_rB) * system_count '=====2013.08.13 수정 '(3.2.7-66) + Q_h_g_i = Q_h_g_v_i * d_h_rB + + Else + + If dr난방.열생산기기방식 = "지역난방" Then ' Worksheets("난방기기").Range("열생산기기방식1").Offset(0, i_count_boiler - 1) = "지역난방" Then + If dr난방.지역난방방식 = "중온수" Then ' Worksheets("난방기기").Range("지역난방온수방식1").Offset(0, i_count_boiler - 1) = "중온수" Then + D_DS = 0.6 + theta_prim_DS = 105 + 'MsgBox("난방기기 단열등급에 등급2/3 등급3/4 등급 4/5 추가해야함") + Select Case dr난방.단열등급.Trim ' Dr난방.단열등급 + Case "기본단열" '기본단열" '원래는 등급1/2 이지만 국내에서는 법적단열로 사용 + B_DS = 4.9 + Case "등급2/3" '등급2/3" + B_DS = 4.4 + Case "등급3/4" '등급3/4" + B_DS = 4 + Case "등급4/5" '등급4/5" + B_DS = 3.5 + End Select + End If + 'MsgBox("난방기기 지역난방방식에 고온수 0002 추가해야함") --추가는 했으나 엑셀에서는 중온수고정이다 그래서 하위 루틴은 실행되면안된다 + If dr난방.지역난방방식 = "고온수" Then 'Worksheets("난방기기").Range("지역난방온수방식1").Offset(0, i_count_boiler - 1) = "고온수" Then + ' MsgBox("난방기기의 지역난방방식은 중온수 고정입니다.", MsgBoxStyle.Information, "확인") + D_DS = 0.4 + theta_prim_DS = 150 + Select Case dr난방.단열등급.Trim + Case "기본단열" '기본단열" '원래는 등급1/2 이지만 국내에서는 법적단열로 사용 + B_DS = 4.3 + Case "등급2/3" '등급2/3" + B_DS = 3.9 + Case "등급3/4" '등급3/4" + B_DS = 3.5 + Case "등급4/5" '등급4/5" + B_DS = 3.1 + End Select + End If + + theta_DS = D_DS * theta_prim_DS + (1 - D_DS) * 55 ' theta_sek_DS는 55도로 설정 (3.2.7-112) + Psi_DS = TOSG(dr난방.열교환기정격출력) ' .Worksheets("난방기기").Range("난방기기정격출력1").Offset(1, i_count_boiler - 1) + H_DS = TOSG(B_DS * Psi_DS ^ (1 / 3)) + Q_h_g = Q_h_g + (H_DS * (theta_DS - theta_i)) * system_count '=====2013.08.13 수정 + use_DH = use_DH + (H_DS * (theta_DS - theta_i)) * system_count '========2013.08.18 수정 + + End If + + + End If + + + ' 전기보조에너지 Q_h_d_aux 산출 관련 + + P_Pump = TOSG(dr난방.펌프동력) ' Worksheets("난방기기").Range("난방펌프제어유형1").Offset(1, i_count_boiler - 1) + Select Case dr난방.펌프제어유형.Trim ' Worksheets("난방기기").Range("난방펌프제어유형1").Offset(0, i_count_boiler - 1) + Case "비제어" '비제어" + c_p1 = 0.25 + c_p2 = 0.75 + Case "정압" '정압" + c_p1 = 0.75 + c_p2 = 0.25 + Case "변압" '변압" + c_p1 = 0.9 + c_p2 = 0.1 + End Select + + If beta_h_d = 0 Then + Q_h_d_aux_i = 0 + Else + Q_h_d_aux_i = P_Pump / 1000 * beta_h_d * t_h * (c_p1 + c_p2 / beta_h_d) '(3.2.7-39) + End If + Select Case dr난방.펌프교정계수.Trim ' Worksheets("난방기기").Range("난방펌프교정계수1").Offset(0, i_count_boiler - 1) + Case "정상가동" '정상가동" + f_P_A = 1 + Case "감소가동" '감소가동" + f_P_A = 0.6 + Case "가동정지" '" + f_P_A = 0 + End Select + + If t_h = 0 Then '====================================================================2014.03.07 추가 + Q_h_d_aux = 0 + Else + Q_h_d_aux = TOSG(Q_h_d_aux + (Q_h_d_aux_i * (1.03 * t_h_rL + f_P_A * (t_h - t_h_rL)) / t_h) * system_count) '(3.2.7-40) + End If '====================================================================2014.03.07 추가 + + + + + + If dr난방.축열탱크방식 = "축열탱크없음" Then + P_Pump = 0 ' Dr난방.Worksheets("난방기기").Range("축열펌프정격전력1").Offset(0, i_count_boiler - 1) + Else + P_Pump = TOSG(dr난방.펌프정격전력) ' Dr난방.Worksheets("난방기기").Range("축열펌프정격전력1").Offset(0, i_count_boiler - 1) + '=================================================================2010.11.04 위치 수정 + If dr난방.열생산기기방식 = "히트펌프" Then + If dr난방.운전방식.Trim = "동시가동" Then + Q_dot_h_max = TOSG(dr난방.히트난방용량) * TOSG(dr난방.보일러대수) + Else + Q_dot_h_max = TOSG(dr난방.히트난방용량) ' Worksheets("난방기기").Range("히트펌프사용연료1").Offset(1, i_count_boiler - 1) + End If + + End If + + If Q_dot_h_max = 0 Or t_h = 0 Then '========================================================2014.03.07 추가 + beta_h_s = 0 + Else + beta_h_s = (Q_h_b + Q_h_ce + Q_h_d) / (Q_dot_h_max * t_h) '(3.2.7-9) + End If '========================================================2014.03.07 추가 + + + If beta_h_s > 1 Then beta_h_s = 1 + t_P = beta_h_s * 24 * d_op_max_mth '(3.2.7-44) + Q_h_s_aux = Q_h_s_aux + (P_Pump * t_P / 1000) * system_count '===2013.08.18 수정 '(3.2.7-44) + '=================================================================2010.11.04 위치 수정 + + End If + If dr난방.열생산기기방식 = "보일러" Then 'Worksheets("난방기기").Range("열생산기기방식1").Offset(0, i_count_boiler - 1) = "보일러" Then + + P_aux_SB = 0.02 + + Select Case dr난방.보일러방식.Trim ' Worksheets("난방기기").Range("보일러방식1").Offset(0, i_count_boiler - 1) + Case "가스보일러" '가스보일러" + P_aux_100 = TOSG((0.148 * Q_dot_N + 40) / 1000) + P_aux_pl = TOSG((0.148 * Q_dot_N + 40) / 1000) + Case "기름보일러" '기름보일러" + P_aux_100 = TOSG(0.045 * Q_dot_N ^ 0.48) + P_aux_pl = TOSG(0.015 * Q_dot_N ^ 0.48) + Case "저온가스보일러" '저온가스보일러" + P_aux_100 = TOSG((0.148 * Q_dot_N + 40) / 1000) + P_aux_pl = TOSG((0.148 * Q_dot_N + 40) / 1000) + Case "저온기름보일러" '저온기름보일러" + P_aux_100 = TOSG(0.045 * Q_dot_N ^ 0.48) + P_aux_pl = TOSG(0.015 * Q_dot_N ^ 0.48) + Case "콘덴싱보일러" '콘덴싱보일러" + P_aux_100 = TOSG(0.045 * Q_dot_N ^ 0.48) + P_aux_pl = TOSG(0.015 * Q_dot_N ^ 0.48) + + End Select + + If beta_h > beta_k_pl Then + P_h_g_aux = (beta_h - beta_k_pl) / (1 - beta_k_pl) * (P_aux_100 - P_aux_pl) + P_aux_pl '(3.2.7-82) + Else + P_h_g_aux = (beta_h / beta_k_pl) * (P_aux_pl - P_aux_SB) + P_aux_SB '(3.2.7-81) + End If + + If d_Nutz_mth = 0 Then '//201.11.20 추가(학교프로파일 적용시 문제점 해결) + t_w_100 = 0 + Else + If system_count = 0 Then + t_w_100 = Q_w_outg_i / (Q_dot_N * d_Nutz_mth) + Else + t_w_100 = (Q_w_outg_i) / (Q_dot_N * d_Nutz_mth) '//2011.12.04 수정 + End If + + End If + + Q_h_g_aux = Q_h_g_aux + (P_h_g_aux * (t_h_rL - t_w_100 * d_op_max_mth * d_Nutz_a / 365) + P_aux_SB * (24 * d_op_max_mth - t_h_rL)) * system_count '=====2013.08.18 수정 '(3.2.7-80) + + + End If + + + If dr난방.열생산기기방식 = "보일러" Then 'Worksheets("난방기기").Range("열생산기기방식1").Offset(0, i_count_boiler - 1) = "보일러" Then + Select Case dr난방.사용연료.Trim ' Worksheets("난방기기").Range("난방기기사용연료1").Offset(0, i_count_boiler - 1) + Case "난방유" '난방유" + use_Oil = use_Oil + (Q_h_outg_i + Q_h_g_i) * system_count '========2013.08.18 수정 + + Case "천연가스" '천연가스" + use_LNG = use_LNG + (Q_h_outg_i + Q_h_g_i) * system_count '========2013.08.18 수정 + + Case "액화가스" '액화가스" + use_LPG = use_LPG + (Q_h_outg_i + Q_h_g_i) * system_count '========2013.08.18 수정 + + End Select + Else + Select Case dr난방.열생산기기방식.Trim 'Worksheets("난방기기").Range("열생산기기방식1").Offset(0, i_count_boiler - 1) + '====================================================================2010.2.21 수정 + Case "지역난방" '지역난방" + use_DH = use_DH + Q_h_outg_i * system_count '========2013.08.18 수정 + + Case "전기보일러" '전기보일러" + use_Elec = use_Elec + (Q_h_outg_i + (Q_h_outg_i * 0.09)) * system_count '========2013.08.18 수정 '2011.03.08 전기보일러 생산손실을 내부 생산식 저장으로 설정 + '====================================================================2010.2.21 수정 + '====================================================================2010.03.14 추가 + Case "히트펌프" + Select Case dr난방.히트연료 ' Worksheets("난방기기").Range("히트펌프사용연료1").Offset(0, i_count_boiler - 1) + Case "전기" + use_Elec = use_Elec + Q_h_outg_i * system_count '========2013.08.18 수정 + + Case "천연가스" + use_LNG = use_LNG + Q_h_outg_i * system_count '========2013.08.18 수정 + + Case "액화가스" + use_LPG = use_LPG + Q_h_outg_i * system_count '========2013.08.18 수정 + + End Select + '====================================================================2010.03.14 추가 + End Select + + End If + + Next + + pLog.Add("Calc_난방_개별기기적용시 : 완료") + + End Sub + + Private DSET As DS + Private DSETR As DSR + Dim Result As CResult + Public Sub New(ByRef pds As DS, ByRef pdsetr As DSR, ByRef presult As CResult) + DSET = pds + DSETR = pdsetr + Result = presult + End Sub +End Class + + diff --git a/ArinWarev1/Calculator/CRenewable.vb b/ArinWarev1/Calculator/CRenewable.vb new file mode 100644 index 0000000..e5ca9da --- /dev/null +++ b/ArinWarev1/Calculator/CRenewable.vb @@ -0,0 +1,736 @@ +Public Class CRenewable + + Private Result As CResult + Private DSET As DS + Public Sub New(ByRef pds As DS, ByRef presult As CResult) + DSET = pds + Result = presult + 'ByVal dr존 As DS.tbl_zoneRow, + End Sub + ' Public Overridable Sub Calc_ThermalSolarSystem_EN(ByVal i_system_ts As Integer, ByVal i_count_ts As Integer, ByVal i_ts_month As Integer, ByVal i_ts_d_mth As Integer, ByVal Q_H_sol_us_m as decimal, ByVal Q_W_sol_us_m as decimal, ByRef Q_W_sol_out_m as decimal, ByRef Q_H_sol_out_m as decimal, ByRef W_sol_aux_m as decimal) + + Public Overridable Sub Calc_ThermalSolarSystem_EN(ByVal i_system_ts As Integer, ByVal DR_code As String, ByVal i_ts_month As Integer, ByVal i_ts_d_mth As Integer, ByVal Q_H_sol_us_m As Decimal, ByVal Q_W_sol_us_m As Decimal, _ + ByRef Q_W_sol_out_m As Decimal, ByRef Q_H_sol_out_m As Decimal, ByRef W_sol_aux_m As Decimal) + + pLog.Add(String.Format(">>Calc_ThermalSolarSystem_EN 진입 : i_system_ts={0}, DR_code={1}, i_ts_month={2}, i_ts_d_mth={3}, Q_H_sol_us_m={4}, Q_W_sol_us_m={5}, Q_W_sol_out_m={6}, Q_H_sol_out_m={7}, W_sol_aux_m={8}", _ + i_system_ts, DR_code, i_ts_month, i_ts_d_mth, Q_H_sol_us_m, Q_W_sol_us_m, Q_W_sol_out_m, Q_H_sol_out_m, W_sol_aux_m)) + + + Dim theta_ref As Decimal, theta_w As Decimal, theta_cw As Decimal, U_loop_p As Decimal, U_loop As Decimal, Delta_T As Decimal + Dim A_ As Decimal, a As Decimal, b As Decimal, c As Decimal, d As Decimal, e As Decimal, f As Decimal, eta_loop As Decimal, IAM As Decimal, eta_0 As Decimal + Dim a_1 As Decimal, a_2 As Decimal, P_H As Decimal, P_W As Decimal, V_ref As Decimal, V_sol As Decimal, t_m As Decimal, I_m As Decimal, P_aux_nom As Decimal + 'Dim i_ts_location As Integer, i_count_ts_location As Integer + ' Dim i_count_month As Integer + Dim i_direction As Integer + Dim t_aux_m As Decimal, l_tot As Decimal, f_st As Decimal, U_st As Decimal + Dim theta_setpoint As Decimal, theta_a_avg As Decimal, theta_e_avg As Decimal + Dim Q_sol_ls_rbl_m As Decimal, Q_sol_aux_rbl_m As Decimal, Q_sol_st_ls_rbl_m As Decimal, Q_bu_dis_ls_rbl_m As Decimal, Q_bu_dis_ls_m As Decimal, Q_sol_ls_m As Decimal + Dim Q_W_bu_dis_ls_m As Decimal, Q_H_bu_dis_ls_m As Decimal, Q_W_sol_st_ls_m As Decimal, Q_H_sol_st_ls_m As Decimal + Dim A_H As Decimal, A_W As Decimal, X As Decimal, Y As Decimal + Dim Q_W_sol_out_net As Decimal, Q_H_sol_out_net As Decimal, H_W_ratio As Decimal + + Q_W_sol_out_net = 0 + Q_H_sol_out_net = 0 + + + 'Dim Dr기상데이터 As DS.tbl_weatherRow + 'For i_count_ts_location = 1 To DSET.tbl_weather.Rows.Count ' Range("건물위치").Columns.Count + ' Dr기상데이터 = DSET.tbl_weather(i_count_ts_location - 1) + ' If dr존.지역 = Dr기상데이터.건물위치 Then '//이상하다 1버번쨰 존의 지역값만 계속쓴다 -_-;; 지역은 즉 존에할당된게아니고 1개만 존재하는듯하다 + ' i_ts_location = i_count_ts_location '//기상데이터에서 현재지정된 존.지역의 기상데이터의 지역의 열번호(엑셀에서만)를 기억한다 (나중에 이번호로 데이터 참조하려고) + ' Exit For + ' End If + ' '//지역찾을떄그냥 DR지역을 사용하도록한다. + ' 'If Worksheets("입력존").Range("지역1").Offset(0, 0) = Worksheets("기상데이타").Range("건물위치1").Offset(0, i_count_ts_location - 1) Then + ' ' i_ts_location = i_count_ts_location + ' ' Exit For + ' 'End If + 'Next + + l_tot = 0 + + Dim Dr신재생 As DS.tbl_newRow = CType(DSET.tbl_new.Select("code='" & DR_code & "' and code <> '0'", "code")(0), DS.tbl_newRow) '//신재생의 태양열시스템 + + Select Case Dr신재생.집열판방위.Trim ' Worksheets("신재생기기").Range("태양열시스템종류1").Offset(3, i_count_ts - 1) + Case "동" '동" + i_direction = 12 + + Case "남동" '남동" + i_direction = 10 + + Case "남" '남" + i_direction = 9 + + Case "남서" '남서" + i_direction = 11 + + Case "서" '서" + i_direction = 13 + + Case "수평" '수평" '//월별평균일사 수평면을 사용 나머지것들은 45도짜리를 사용한다. 45도짜리 코드값을 해당코드+1000이다. 해당코드+1000으로 미리 셋팅햇다(변경불가) + i_direction = 0 + Case Else + MsgBox("신재생에너지-태양열의 집열판 방위값이 올바르지않습니다", MsgBoxStyle.Critical, "확인") + End Select + + '//집열판방위에따른 월별평균일사의 총합을 가져온다 + '//weather_ilsa 의 p코드에는 지역코드값이 들어가고 코드값은 집열판방위+1000 의값이 해당 각도의 방향에대한 데이터가된다. + + + '///만약값이 서울 방향이 남 이엇을경우에는 해당 일사데이터를 찾는게 목적이에요. 여기서 서울의 코드값은 찾을수잇어요 + '//그담이 방향 남에 맞는 일사데이터를 찾아야하는데.. 일사데이터 코드로는 못찾으니깐. 이름으로 찾아요. + '// + Dim 일사이름 As String = Dr신재생.집열판방위 & "(45)" '//이렇게되면 남(45) 라는 최종이름이 되겟죠? + Dim Drow평균일사() As DS.weather_ilsaRow = CType(DSET.weather_ilsa.Select("pcode='" & Calc.Pub.기상데이터.code & _ + "' and 설명='" & 일사이름 & "'"), DS.weather_ilsaRow()) + '//그렇게해서 서울의 코드에 해당하는 pcode 와 이름이 남(45)로 되어잇는 일사데이터테이블에서 데이터를 검색하게되겟죠? + '//즉 데이터가 나오면 해당 데이터가 맞는거에요 ..이건 데이터베이스 이름을 남(45) 식으로 모두 고쳐주세요 + + If Drow평균일사.GetUpperBound(0) = -1 Then + MsgBox("지역코드=" + Calc.Pub.기상데이터.code + vbCrLf + "집열판방위코드=" + Dr신재생.집열판방위 + _ + vbCrLf + "예상일사코드=" + 일사이름 + _ + vbCrLf + "에 해당하는 평균일사데이터가 없습니다. 1개의 행이 반환되어야 합니다", MsgBoxStyle.Critical, "계산실패") + I_m = 0 + ' Return + Else + l_tot += TOSG(Drow평균일사(0).m01) + TOSG(Drow평균일사(0).m02) + TOSG(Drow평균일사(0).m03) + TOSG(Drow평균일사(0).m04) + _ + TOSG(Drow평균일사(0).m05) + TOSG(Drow평균일사(0).m06) + TOSG(Drow평균일사(0).m07) + TOSG(Drow평균일사(0).m08) + _ + TOSG(Drow평균일사(0).m09) + TOSG(Drow평균일사(0).m10) + TOSG(Drow평균일사(0).m11) + TOSG(Drow평균일사(0).m12) + I_m = TOSG(Drow평균일사(0)("m" & i_ts_month.ToString("00"))) '//이줄로 위의 케이스문을 대체햇다 오류나면 케이스문으로 일단 사용할예정 + + End If + t_aux_m = I_m / l_tot * 2000 + + '//월별외기평균온도(i_ts_month << 파라미터) + theta_e_avg = TOSG(Calc.Pub.기상데이터("m" & i_ts_month.ToString("00"))) + 'theta_e_avg = Worksheets("기상데이타").Range("최소외기온도1").Offset(2 + i_ts_month, i_ts_location - 1) '//월별외기평균온도 tbl_weather에 존재 + + Select Case Dr신재생.축열탱크설치장소.Trim ' Worksheets("신재생기기").Range("태양열축열탱크1").Offset(2, i_count_ts - 1) + Case "난방공간" '난방공간" + theta_a_avg = 20 + Case "비난방공간" '비난방공간" + theta_a_avg = theta_e_avg + (20 - theta_e_avg) / 2 + Case "외부공간" '외부공간" + theta_a_avg = theta_e_avg + End Select + + theta_w = 40 + theta_cw = 15 + a_2 = 0 + eta_loop = 0.8 + eta_0 = 0.6 + t_m = i_ts_d_mth * 24 + a = 1.029 + b = -0.065 + c = -0.245 + d = 0.0018 + e = 0.0215 + f = 0 + + + Select Case Dr신재생.집열기유형.Trim 'Worksheets("신재생기기").Range("태양열시스템종류1").Offset(1, i_count_ts - 1) + Case "평판형" '평판형" + a_1 = 6 + IAM = 0.94 + Case "진공관형" '진공관형" + a_1 = 3 + IAM = 1 + End Select + + If Dr신재생.태양열시스템의성능 = "성능치" Then ' Worksheets("신재생기기").Range("태양열시스템종류1").Offset(5, i_count_ts - 1) = "성능치" Then + eta_0 = TOSG(Dr신재생.무손실효율계수) 'Worksheets("신재생기기").Range("태양열시스템종류1").Offset(6, i_count_ts - 1) + a_1 = TOSG(Dr신재생.열손실계수1차) 'Worksheets("신재생기기").Range("태양열시스템종류1").Offset(7, i_count_ts - 1) + a_2 = TOSG(Dr신재생.열손실계수2차) 'Worksheets("신재생기기").Range("태양열시스템종류1").Offset(8, i_count_ts - 1) + End If + + Select Case Dr신재생.태양열종류.Trim ' Worksheets("신재생기기").Range("태양열시스템종류1").Offset(0, i_count_ts - 1) + Case "급탕" '급탕" + A_ = TOSG(Dr신재생.집열판면적) ' Worksheets("신재생기기").Range("태양열시스템종류1").Offset(2, i_count_ts - 1) + U_loop_p = TOSG(5 + 0.5 * A_) '(B.3) + U_loop = a_1 + a_2 * 40 + U_loop_p / A_ '(13) + theta_ref = TOSG(11.6 + 1.18 * theta_w + 3.86 * theta_cw - 1.32 * theta_e_avg) '(B.8) 급탕시스템인 경우 theta_w는 40도, theta_cw 시수온도는15도 가정 + Delta_T = theta_ref - theta_e_avg '(14) + V_ref = A_ * 75 + V_sol = TOSG(Dr신재생.축열탱크체적급탕) ' Worksheets("신재생기기").Range("태양열축열탱크1").Offset(0, i_count_ts - 1) + f_st = TOSG((V_ref / V_sol) ^ 0.25) '(B.5) + If Q_W_sol_us_m <> 0 Then + X = A_ * U_loop * eta_loop * Delta_T * f_st * t_m / (Q_W_sol_us_m * 1000) '(12) + Y = A_ * IAM * eta_0 * eta_loop * I_m * t_m / (Q_W_sol_us_m * 1000) '(15) + Q_W_sol_out_m = (a * Y + b * X + c * Y * Y + d * X * X + e * Y * Y * Y + f * X * X * X) * Q_W_sol_us_m '(11) + Else + Q_W_sol_out_m = 0 + End If + If Q_W_sol_out_m < 0 Then Q_W_sol_out_m = 0 + If Q_W_sol_out_m > Q_W_sol_us_m Then Q_W_sol_out_m = Q_W_sol_us_m + + '태양열시스템 열손실 + U_st = TOSG(0.16 * V_sol ^ 0.5) '(B.9) + theta_setpoint = 60 + If Q_W_sol_us_m <> 0 Then + Q_W_sol_st_ls_m = U_st * (theta_setpoint - theta_a_avg) * (Q_W_sol_out_m / Q_W_sol_us_m) * t_m / 1000 '(17) + Q_bu_dis_ls_m = TOSG(0.02 * Q_W_sol_us_m * (Q_W_sol_out_m / Q_W_sol_us_m)) + Else + Q_W_sol_st_ls_m = 0 + Q_bu_dis_ls_m = 0 + End If + + If i_system_ts = 1 Then '=====================================================2010.04.02 추가 + + '난방 부분 + theta_ref = TOSG(11.6 + 1.18 * theta_w + 3.86 * theta_cw - 1.32 * theta_e_avg) '(B.8) 급탕시스템인 경우 theta_w는 40도, theta_cw 시수온도는15도 가정 + Delta_T = theta_ref - theta_e_avg '(14) + V_ref = A_H * 75 + V_sol = TOSG(Dr신재생.축열탱크체적난방) ' Worksheets("신재생기기").Range("태양열축열탱크1").Offset(1, i_count_ts - 1) + f_st = TOSG((V_ref / V_sol) ^ 0.25) '(B.5) + If Q_H_sol_us_m <> 0 Then + X = A_H * U_loop * eta_loop * Delta_T * f_st * t_m / (Q_H_sol_us_m * 1000) '(12) + Y = A_H * IAM * eta_0 * eta_loop * I_m * t_m / (Q_H_sol_us_m * 1000) '(15) + Q_H_sol_out_m = (a * Y + b * X + c * Y * Y + d * X * X + e * Y * Y * Y + f * X * X * X) * Q_H_sol_us_m '(11) + Else + Q_H_sol_out_m = 0 + End If + If Q_H_sol_out_m < 0 Then Q_H_sol_out_m = 0 + If Q_H_sol_out_m > Q_H_sol_us_m Then Q_H_sol_out_m = Q_H_sol_us_m + + '태양열시스템 열손실 + U_st = TOSG(0.16 * V_sol ^ 0.5) '(B.9) + theta_setpoint = 40 + If Q_H_sol_us_m <> 0 Then + Q_H_sol_st_ls_m = U_st * (theta_setpoint - theta_a_avg) * (Q_H_sol_out_m / Q_H_sol_us_m) * t_m / 1000 '(17) + Q_H_bu_dis_ls_m = TOSG(0.02 * Q_H_sol_us_m * (Q_H_sol_out_m / Q_H_sol_us_m)) + Else + Q_H_sol_st_ls_m = 0 + Q_H_bu_dis_ls_m = 0 + End If + Q_sol_ls_m = Q_H_sol_st_ls_m + Q_H_bu_dis_ls_m + Q_W_sol_st_ls_m + Q_W_bu_dis_ls_m + + End If '=====================================================2010.04.02 추가 + + ' Q_sol_ls_m = Q_W_sol_st_ls_m + Q_bu_dis_ls_m + + ' 보조에너지 + P_aux_nom = TOSG(Dr신재생.솔라펌프의정격출력) ' Worksheets("신재생기기").Range("태양열시스템종류1").Offset(4, i_count_ts - 1) + W_sol_aux_m = P_aux_nom * t_aux_m / 1000 + + Q_sol_aux_rbl_m = TOSG(W_sol_aux_m * 0.5) + + Select Case Dr신재생.축열탱크설치장소.Trim 'Worksheets("신재생기기").Range("태양열축열탱크1").Offset(2, i_count_ts - 1) + Case "난방공간" '난방공간" + Q_sol_st_ls_rbl_m = Q_W_sol_st_ls_m + Q_bu_dis_ls_rbl_m = Q_bu_dis_ls_m + Case "비난방공간" '비난방공간" + Q_sol_st_ls_rbl_m = TOSG(Q_W_sol_st_ls_m * 0.5) + Q_bu_dis_ls_rbl_m = TOSG(Q_bu_dis_ls_m * 0.5) + Case "외부공간" '외부공간" + Q_sol_st_ls_rbl_m = 0 + Q_bu_dis_ls_rbl_m = 0 + End Select + + Q_sol_ls_rbl_m = Q_sol_aux_rbl_m + Q_sol_st_ls_rbl_m + Q_bu_dis_ls_rbl_m '(20) + + + + Case "난방+급탕" '난방+급탕" + P_H = Q_H_sol_us_m / (Q_H_sol_us_m + Q_W_sol_us_m) '(9) + P_W = Q_W_sol_us_m / (Q_H_sol_us_m + Q_W_sol_us_m) '(10) + A_ = TOSG(Dr신재생.집열판면적) ' Worksheets("신재생기기").Range("태양열시스템종류1").Offset(2, i_count_ts - 1) + A_H = P_H * A_ + A_W = P_W * A_ + + '급탕 부분 + U_loop_p = 5 + 0.5 * A_W '(B.3) '===========================2010.04.24 추가 + If A_W <> 0 Then + U_loop = a_1 + a_2 * 40 + U_loop_p / A_W '(13) '===============2010.04.24 추가 + theta_ref = TOSG(11.6 + 1.18 * theta_w + 3.86 * theta_cw - 1.32 * theta_e_avg) '(B.8) 급탕시스템인 경우 theta_w는 40도, theta_cw 시수온도는15도 가정 + Delta_T = theta_ref - theta_e_avg '(14) + V_ref = A_W * 75 + V_sol = TOSG(Dr신재생.축열탱크체적급탕) ' Worksheets("신재생기기").Range("태양열축열탱크1").Offset(0, i_count_ts - 1) + f_st = TOSG((V_ref / V_sol) ^ 0.25) '(B.5) + End If + If Q_W_sol_us_m <> 0 Then + X = A_W * U_loop * eta_loop * Delta_T * f_st * t_m / (Q_W_sol_us_m * 1000) '(12) + Y = A_W * IAM * eta_0 * eta_loop * I_m * t_m / (Q_W_sol_us_m * 1000) '(15) + Q_W_sol_out_m = (a * Y + b * X + c * Y * Y + d * X * X + e * Y * Y * Y + f * X * X * X) * Q_W_sol_us_m '(11) + Else + Q_W_sol_out_m = 0 + End If + If Q_W_sol_out_m < 0 Then Q_W_sol_out_m = 0 + If Q_W_sol_out_m > Q_W_sol_us_m Then Q_W_sol_out_m = Q_W_sol_us_m + + '태양열시스템 열손실 + U_st = TOSG(0.16 * V_sol ^ 0.5) '(B.9) + theta_setpoint = 60 + If Q_W_sol_us_m <> 0 Then + Q_W_sol_st_ls_m = U_st * (theta_setpoint - theta_a_avg) * (Q_W_sol_out_m / Q_W_sol_us_m) * t_m / 1000 '(17) + Q_W_bu_dis_ls_m = TOSG(0.02 * Q_W_sol_us_m * (Q_W_sol_out_m / Q_W_sol_us_m)) + Else + Q_W_sol_st_ls_m = 0 + Q_W_bu_dis_ls_m = 0 + End If + + + '난방 부분 + U_loop_p = 5 + 0.5 * A_H '(B.3) '===========================2010.04.24 추가 + U_loop = a_1 + a_2 * 40 + U_loop_p / A_H '(13) '===============2010.04.24 추가 + + theta_ref = TOSG(11.6 + 1.18 * theta_w + 3.86 * theta_cw - 1.32 * theta_e_avg) '(B.8) 급탕시스템인 경우 theta_w는 40도, theta_cw 시수온도는15도 가정 + Delta_T = theta_ref - theta_e_avg '(14) + V_ref = A_H * 75 + V_sol = TOSG(Dr신재생.축열탱크체적난방) ' Worksheets("신재생기기").Range("태양열축열탱크1").Offset(1, i_count_ts - 1) + f_st = TOSG((V_ref / V_sol) ^ 0.25) '(B.5) + If Q_H_sol_us_m <> 0 Then + X = A_H * U_loop * eta_loop * Delta_T * f_st * t_m / (Q_H_sol_us_m * 1000) '(12) + Y = A_H * IAM * eta_0 * eta_loop * I_m * t_m / (Q_H_sol_us_m * 1000) '(15) + Q_H_sol_out_m = (a * Y + b * X + c * Y * Y + d * X * X + e * Y * Y * Y + f * X * X * X) * Q_H_sol_us_m '(11) + Else + Q_H_sol_out_m = 0 + End If + If Q_H_sol_out_m < 0 Then Q_H_sol_out_m = 0 + If Q_H_sol_out_m > Q_H_sol_us_m Then Q_H_sol_out_m = Q_H_sol_us_m + + '태양열시스템 열손실 + U_st = TOSG(0.16 * V_sol ^ 0.5) '(B.9) + theta_setpoint = 40 + If Q_H_sol_us_m <> 0 Then + Q_H_sol_st_ls_m = U_st * (theta_setpoint - theta_a_avg) * (Q_H_sol_out_m / Q_H_sol_us_m) * t_m / 1000 '(17) + Q_H_bu_dis_ls_m = TOSG(0.02 * Q_H_sol_us_m * (Q_H_sol_out_m / Q_H_sol_us_m)) + Else + Q_H_sol_st_ls_m = 0 + Q_H_bu_dis_ls_m = 0 + End If + Q_sol_ls_m = Q_H_sol_st_ls_m + Q_H_bu_dis_ls_m + Q_W_sol_st_ls_m + Q_W_bu_dis_ls_m + + + + ' 보조에너지 + P_aux_nom = TOSG(Dr신재생.솔라펌프의정격출력) ' Worksheets("신재생기기").Range("태양열시스템종류1").Offset(4, i_count_ts - 1) + W_sol_aux_m = P_aux_nom * t_aux_m / 1000 + + Q_sol_aux_rbl_m = TOSG(W_sol_aux_m * 0.5) + + Select Case Dr신재생.축열탱크설치장소.Trim ' Worksheets("신재생기기").Range("태양열축열탱크1").Offset(2, i_count_ts - 1) + Case "난방공간" '난방공간" + Q_sol_ls_rbl_m = Q_sol_aux_rbl_m + Q_sol_ls_m + Case "비난방공간" '비난방공간" + Q_sol_ls_rbl_m = TOSG(Q_sol_aux_rbl_m + Q_sol_ls_m * 0.5) + Case "외부공간" '외부공간" + Q_sol_ls_rbl_m = Q_sol_aux_rbl_m + End Select + + End Select + + + ''보조에너지 + ''f_sol_m = Q_sol_out_m / Q_sol_us_m '(21) + ''W_bu_aux_m = W_bu_nom_m * (1 - f_sol_m) '(22) + + ''P_aux_nom = 50 + 5 * A_ '(B.4) + + + '// 신재생에너지 자립률 추가(2017.01.20) + + H_W_ratio = Q_H_sol_out_m / (Q_H_sol_out_m + Q_W_sol_out_m) + Q_H_sol_out_net = Q_H_sol_out_m + H_W_ratio * W_sol_aux_m * 2.75 + Q_W_sol_out_net = Q_W_sol_out_m + (1 - H_W_ratio) * W_sol_aux_m * 2.75 + + + + '// 신재생에너지 자립률 추가 + + + + + + + + '//열에너지생산량-태양열 + Result.생산E(i_ts_month).태양열생산량 += Q_W_sol_out_net + Q_H_sol_out_net '// 20170120 추가 + '//Result.생산E(i_ts_month).태양열생산량 += Q_W_sol_out_m + Q_H_sol_out_m '20170120 삭제 + 'DSETR.TReqUse.Rows(CEnum.ResultRow.생산_열생산량_태양열)(CStr("M" & Format(i_ts_month, "00"))) = CSng(DSETR.TReqUse.Rows(CEnum.ResultRow.생산_열생산량_태양열)(CStr("M" & Format(i_ts_month, "00")))) + Q_W_sol_out_m + Q_H_sol_out_m 'Sheets("계산결과").Cells(97, 7 + i_ts_month) = Q_W_sol_out_m + Q_H_sol_out_m + 'Dim TDR As DSR.TReqUseRow = CType(DSETR.TReqUse.Rows(CEnum.ResultRow.생산_단위면적당생산량_태양열), DSR.TReqUseRow) + Select Case i_system_ts '//이것도 프로시져 파라미터이다. + Case 1 '//난방?급탕 혼합형태? + If Q_W_sol_out_m <> 0 Then + Result.생산E(i_ts_month).면적당생산량태양열 += (Q_W_sol_out_net / Result.사용면적.W) '// 20170120 추가 + 'Result.생산E(i_ts_month).면적당생산량태양열 += (Q_W_sol_out_m / Result.사용면적.W) 삭제 + Else + Result.생산E(i_ts_month).면적당생산량태양열 += (Q_H_sol_out_net / Result.사용면적.H) '// 20170120 추가 + 'Result.생산E(i_ts_month).면적당생산량태양열 += (Q_H_sol_out_m / Result.사용면적.H) + End If + Case 2 '//냉방? + Result.생산E(i_ts_month).면적당생산량태양열 += (Q_H_sol_out_net / Result.사용면적.C) '// 20170120 추가 + 'Result.생산E(i_ts_month).면적당생산량태양열 += (Q_H_sol_out_m / Result.사용면적.C) + Case 3 '//급탕 + Result.생산E(i_ts_month).면적당생산량태양열 += (Q_W_sol_out_net / Result.사용면적.W) '// 20170120 추가 + 'Result.생산E(i_ts_month).면적당생산량태양열 += (Q_W_sol_out_m / Result.사용면적.W) + Case Else + MsgBox("단위면적당생산량 누적시 i_syste_ts 가 알수없음", MsgBoxStyle.Critical, "확인") + End Select + + pLog.Add(String.Format(">>Calc_ThermalSolarSystem_EN 진입 : 태양열생산량={0}, 면적당생산량태양열={1}, Q_W_sol_out_m={2}, Q_H_sol_out_m={3}", _ + Result.생산E(i_ts_month).태양열생산량, Result.생산E(i_ts_month).면적당생산량태양열, Q_W_sol_out_net, Q_H_sol_out_net)) '// 20170120 수정 + 'pLog.Add(String.Format(">>Calc_ThermalSolarSystem_EN 진입 : 태양열생산량={0}, 면적당생산량태양열={1}, Q_W_sol_out_m={2}, Q_H_sol_out_m={3}", _ + ' Result.생산E(i_ts_month).태양열생산량, Result.생산E(i_ts_month).면적당생산량태양열, Q_W_sol_out_m, Q_H_sol_out_m)) + + End Sub + + Public Overridable Sub Calc_PhotovoltaicSystem_EN(ByVal i_count_pv_month As Integer, ByVal i_pv_d_mth As Integer) + + pLog.Add(String.Format(">>Calc_PhotovoltaicSystem_EN 진입 : i_count_pv_month={0}, i_pv_d_mth={1}", _ + i_count_pv_month, i_pv_d_mth)) + + Dim E_el_pv_out As Decimal, P_pk As Decimal, f_perf As Decimal, E_sol As Decimal + Dim a As Decimal, K_pk As Decimal + 'Dim i_count_pv As Integer, i_count_pv_location As Integer, i_pv_location As Integer + + E_el_pv_out = 0 + + 'If DSET.tbl_new.Rows.Count > 0 Then ' Worksheets("신재생기기").Range("신재생생산기기1").Offset(0, 0) <> "" Then '//신재생기기 처음칸에 뭐가 잇다? 즉 데이터가잇느냐 + For Each Dr신재생 As DS.tbl_newRow In DSET.tbl_new.Select("code <> '0'", "code") + If Dr신재생.기기종류 = "태양광" Then + + a = TOSG(Dr신재생.태양광모듈면적) ' Worksheets("신재생기기").Range("태양광모듈1").Offset(0, i_count_pv - 1) + + Select Case Dr신재생.태양광모듈적용타입.Trim ' Worksheets("신재생기기").Range("태양광모듈1").Offset(4, i_count_pv - 1) + Case "밀착형" '밀착형" + f_perf = 0.7 + Case "후면통풍형" '후면통풍형" + f_perf = 0.75 + Case "기계환기형" '기계환기형" + f_perf = 0.8 + End Select + + + 'If a <> 0 Then '//태양광모듈면적이있을경우에만 작동하도록한다. + + + Dim Dr일사 As DS.weather_ilsaRow + Select Case Dr신재생.태양광모듈기울기.Trim ' Worksheets("신재생기기").Range("태양광모듈1").Offset(1, i_count_pv - 1) + Case "수평" '수평" + '//수평면에해당하는 월별평균일사 값을 가져온다.수평면 0001은 고정값이된다. + Dr일사 = CType(DSET.weather_ilsa.Select("pcode='" & Calc.Pub.기상데이터.code & "' and code='0001'")(0), DS.weather_ilsaRow) + E_sol = TOSG(Dr일사("M" & Format(i_count_pv_month, "00"))) * i_pv_d_mth * 24 / 1000 + + Case "45도" '45도" + Select Case Dr신재생.태양광모듈방위.Trim ' Worksheets("신재생기기").Range("태양광모듈1").Offset(2, i_count_pv - 1) + Case "남" '"남" + '//45도 남에대한건 기본 수평면하고 +9를 하면 나온다 나머지도 순서이므로 +1을 게속해주면된다. + Dr일사 = CType(DSET.weather_ilsa.Select("pcode='" & Calc.Pub.기상데이터.code & "' and code='" & Format(1 + 9, "0000") & "'")(0), DS.weather_ilsaRow) + E_sol = TOSG(Dr일사("M" & Format(i_count_pv_month, "00"))) * i_pv_d_mth * 24 / 1000 + Case "남동" '"남동" + Dr일사 = CType(DSET.weather_ilsa.Select("pcode='" & Calc.Pub.기상데이터.code & "' and code='" & Format(1 + 10, "0000") & "'")(0), DS.weather_ilsaRow) + E_sol = TOSG(Dr일사("M" & Format(i_count_pv_month, "00"))) * i_pv_d_mth * 24 / 1000 + Case "남서" '"남서" + Dr일사 = CType(DSET.weather_ilsa.Select("pcode='" & Calc.Pub.기상데이터.code & "' and code='" & Format(1 + 11, "0000") & "'")(0), DS.weather_ilsaRow) + E_sol = TOSG(Dr일사("M" & Format(i_count_pv_month, "00"))) * i_pv_d_mth * 24 / 1000 + Case "동" '"동" + Dr일사 = CType(DSET.weather_ilsa.Select("pcode='" & Calc.Pub.기상데이터.code & "' and code='" & Format(1 + 12, "0000") & "'")(0), DS.weather_ilsaRow) + E_sol = TOSG(Dr일사("M" & Format(i_count_pv_month, "00"))) * i_pv_d_mth * 24 / 1000 + Case "서" '"서" + Dr일사 = CType(DSET.weather_ilsa.Select("pcode='" & Calc.Pub.기상데이터.code & "' and code='" & Format(1 + 13, "0000") & "'")(0), DS.weather_ilsaRow) + E_sol = TOSG(Dr일사("M" & Format(i_count_pv_month, "00"))) * i_pv_d_mth * 24 / 1000 + End Select + + Case "수직" '수직" + Select Case Dr신재생.태양광모듈방위.Trim 'Worksheets("신재생기기").Range("태양광모듈1").Offset(2, i_count_pv - 1) + Case "남" '"남" + Dr일사 = CType(DSET.weather_ilsa.Select("pcode='" & Calc.Pub.기상데이터.code & "' and code='" & Format(1 + 1, "0000") & "'")(0), DS.weather_ilsaRow) + E_sol = TOSG(Dr일사("M" & Format(i_count_pv_month, "00"))) * i_pv_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) + E_sol = TOSG(Dr일사("M" & Format(i_count_pv_month, "00"))) * i_pv_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) + E_sol = TOSG(Dr일사("M" & Format(i_count_pv_month, "00"))) * i_pv_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) + E_sol = TOSG(Dr일사("M" & Format(i_count_pv_month, "00"))) * i_pv_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) + E_sol = TOSG(Dr일사("M" & Format(i_count_pv_month, "00"))) * i_pv_d_mth * 24 / 1000 + End Select + End Select + + 'E_sol = E_sol_hor * f_tlt 수평면일사에 계수를 곱하지 않고 직접 기상데이타 적용 + + Select Case Dr신재생.태양광모듈종류.Trim ' Worksheets("신재생기기").Range("태양광모듈1").Offset(3, i_count_pv - 1) + Case "단결정" '단결정" + K_pk = 0.12 + Case "다결정" '다결정" + K_pk = 0.1 + Case "비정질박막형" '비정질박막형" + K_pk = 0.04 + Case "기타박막형" '기타박막형" + K_pk = 0.035 + Case "CIS박막형" 'CIS박막형" + K_pk = 0.105 + Case "CdTe박막형" 'CdTe박막형" + K_pk = 0.095 + Case "성능치 입력" + Try + K_pk = TOSG(Dr신재생.태양광모듈효율) + Catch ex As Exception + MsgBox("태양광모듈효율을 알 수 없습니다.", MsgBoxStyle.Critical, "값=" & Dr신재생.태양광모듈효율) + K_pk = 0 + End Try + + Case Else + MsgBox("알수없는 태양광모듈종류입니다.", MsgBoxStyle.Critical, "값=" & Dr신재생.태양광모듈종류) + + End Select + + P_pk = K_pk * a + E_el_pv_out = E_el_pv_out + E_sol * P_pk * f_perf + 'End If + End If + Next + + + 'If Sheets("계산결과").Cells(104, 7 + i_count_pv_month) = "" Then + ' Sheets("계산결과").Cells(104, 7 + i_count_pv_month) = E_el_pv_out + 'Else + ' Sheets("계산결과").Cells(104, 7 + i_count_pv_month) = Sheets("계산결과").Cells(104, 7 + i_count_pv_month) + E_el_pv_out + 'End If + + Result.생산E(i_count_pv_month).태양광전력생산량 += E_el_pv_out + + pLog.Add(String.Format(">>Calc_PhotovoltaicSystem_EN 진입 : E_el_pv_out={0}, 태양광전력생산량={1}", _ + E_el_pv_out, Result.생산E(i_count_pv_month).태양광전력생산량)) + + + + 'DSETR.TReqUse.Rows(CEnum.ResultRow.생산_전기_태양광)("M" & Format(i_count_pv_month, "00")) = CSng(DSETR.TReqUse.Rows(CEnum.ResultRow.생산_전기_태양광)("M" & Format(i_count_pv_month, "00"))) + E_el_pv_out ' Sheets("계산결과").Cells(95, 7 + i_count_pv_month) + End Sub + + Public Overridable Sub Calc_HeatpumpSystem(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(">>Calc_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 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 + + + '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 = TOSG(Dr신재생.열성능비난방) ' Worksheets("신재생기기").Range("지열히트펌프용량1").Offset(1, i_count_hp - 1) + + Else + '냉방 + + COP = TOSG(Dr신재생.열성능비냉방) ' Worksheets("신재생기기").Range("지열히트펌프용량1").Offset(2, i_count_hp - 1) + + 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_HeatpumpSystem 결과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_HeatpumpSystem 결과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_HeatpumpSystem 결과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) + + pLog.Add(String.Format(">>Calc_CogenerationSystemEN 진입 : Dr신재생={0}, i_system_chp={1},i_chp_month={2},Q_h_outg={3},t_chp={4},Q_chp_gen_out={5},E_chp_gen_in={6}", _ + Dr신재생.code, i_system_chp, i_chp_month, Q_h_outg, t_chp, Q_chp_gen_out, E_chp_gen_in)) + + 'EN15316-4-4_2007 5.6.2에서 시작 + 'Dim Wmsg As New System.Text.StringBuilder + 'Wmsg.AppendLine("Calc_CogenerationSystemEN 이 함수의경우") + 'Wmsg.AppendLine("i_count_chp 에따라서 열을 할당해야한다.... 지만..아직 이 파라미터값을 모르게삳") + 'Wmsg.AppendLine("사용하는곳의 참조확인을해서 저곳이 신재생기기 코드값이 바로오는건지 다른값인지 확인해봐야겠다") + 'MsgBox(Wmsg.ToString) + + Dim Q_dot_T_chp As Decimal + Dim eta_T_chp_an As Decimal, eta_el_chp_an As Decimal + Dim E_el_chp_out As Decimal + Dim Q_chp_gen_out_net As Decimal, E_el_chp_out_net As Decimal, Q_E_ratio As Decimal, net_ratio As Decimal + + Q_chp_gen_out_net = 0 + E_el_chp_out_net = 0 + Q_E_ratio = 0 + net_ratio = 0 + + + + ' Dim Dr신재생 As DS.tbl_newRow = CType(DSET.tbl_new.Rows(0), DS.tbl_newRow) + + Q_dot_T_chp = TOSG(Dr신재생.열생산능력) ' Worksheets("신재생기기").Range("열병합열생산능력1").Offset(0, i_count_chp - 1) + eta_T_chp_an = TOSG(Dr신재생.열생산효율) ' Worksheets("신재생기기").Range("열병합열생산능력1").Offset(1, i_count_chp - 1) + eta_el_chp_an = TOSG(Dr신재생.발전효율) ' Worksheets("신재생기기").Range("열병합열생산능력1").Offset(2, i_count_chp - 1) + + If Q_h_outg > (Q_dot_T_chp * t_chp) Then + Q_chp_gen_out = Q_dot_T_chp * t_chp + Else + Q_chp_gen_out = Q_h_outg + End If + + E_chp_gen_in = Q_chp_gen_out / (eta_T_chp_an / 100) + E_el_chp_out = E_chp_gen_in * eta_el_chp_an / 100 + + Result.생산E(i_chp_month).열병합전력생산량 += E_el_chp_out + + pLog.Add(String.Format("Calc_CogenerationSystemEN 결과0 E_chp_gen_in={0},E_el_chp_out={1}", E_chp_gen_in, E_el_chp_out)) + pLog.Add(String.Format("Calc_CogenerationSystemEN 결과1 열병합전력생산량={0}", Result.생산E(i_chp_month).열병합전력생산량)) + + '//전기생산량 열병합 + If Dr신재생.열병합신재생여부 Then + + + '// 신재생에너지 자립률 추가(2017.01.20) + + net_ratio = (Q_chp_gen_out + E_el_chp_out * 2.75) / (E_chp_gen_in * 1.1) + Q_E_ratio = Q_chp_gen_out / (Q_chp_gen_out + E_el_chp_out * 2.75) + Q_chp_gen_out_net = Q_chp_gen_out * (net_ratio - 1) * Q_E_ratio + E_el_chp_out_net = (E_el_chp_out * 2.75 * (net_ratio - 1) * (1 - Q_E_ratio)) / 2.75 + If Q_chp_gen_out_net < 0 Then Q_chp_gen_out_net = 0 + If E_el_chp_out_net < 0 Then E_el_chp_out_net = 0 + + + + '// 신재생에너지 자립률 추가 + + + '//전력 + Result.생산E(i_chp_month).신재생열병합전력생산량 += (E_el_chp_out_net) '//20170120 추가 + 'Result.생산E(i_chp_month).신재생열병합전력생산량 += (E_el_chp_out) + + pLog.Add(String.Format("Calc_CogenerationSystemEN 결과2 신재생열병합전력생산량={0}", Result.생산E(i_chp_month).신재생열병합전력생산량)) + + '//면적당열병합 (신재생면적당열생산량) + Select Case i_system_chp + Case 1 + Result.생산E(i_chp_month).신재생면적당열생산량 += (Q_chp_gen_out_net / Result.사용면적.H) '// 20170120 추가 + 'Result.생산E(i_chp_month).신재생면적당열생산량 += (Q_chp_gen_out / Result.사용면적.H) + Case 2 + Result.생산E(i_chp_month).신재생면적당열생산량 += (Q_chp_gen_out_net / Result.사용면적.C) '// 20170120 추가 + 'Result.생산E(i_chp_month).신재생면적당열생산량 += (Q_chp_gen_out / Result.사용면적.C) + Case 3 + Result.생산E(i_chp_month).신재생면적당열생산량 += (Q_chp_gen_out_net / Result.사용면적.W) '// 20170120 추가 + 'Result.생산E(i_chp_month).신재생면적당열생산량 += (Q_chp_gen_out / Result.사용면적.W) + + End Select + + pLog.Add(String.Format("Calc_CogenerationSystemEN 결과3 신재생면적당열생산량={0}", Result.생산E(i_chp_month).신재생면적당열생산량)) + + 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 +End Class diff --git a/ArinWarev1/Calculator/CShared.vb b/ArinWarev1/Calculator/CShared.vb new file mode 100644 index 0000000..e25ceea --- /dev/null +++ b/ArinWarev1/Calculator/CShared.vb @@ -0,0 +1,169 @@ +''' 공용으로 사용되는 값을을 이곳에서 설정한다 +Public Class CShared + Public ReadOnly Property 기상데이터() As DS.tbl_weatherRow + Get + + If DSET1.tbl_Desc.Rows.Count = 0 Then + MsgBox("건물개요데이터가 없습니다.", MsgBoxStyle.Critical, "오류") + Return Nothing + Else + Try + Return CType(DSET1.tbl_weather.Select("code ='" & DSET1.tbl_Desc.Rows(0)("buildarea").ToString & "'")(0), DS.tbl_weatherRow) + Catch ex As Exception + MsgBox("건물개요의 지역정보를 찾을수없습니다.", MsgBoxStyle.Critical, "오류") + Return Nothing + End Try + End If + + End Get + + End Property + ''' + ''' 오류가있는가? + ''' + Public IsError As Boolean = False + ''' + ''' 주6일근무제로 변경 + ''' + ''' + Public d_full() As Decimal + ''' + ''' 외기온도값 + ''' + Public theta_e(12) As Decimal + ''' + ''' 평균일사값이 들어있다. + ''' + Public I_s(8, 12) As Decimal + ''' + ''' 외기온도 난방기(최대) + ''' + Public theta_e_min As Decimal + ''' + ''' 외기온도 냉방기(최대) + ''' + Public theta_e_max As Decimal + + Public F_sh_gl(7, 11) As Decimal '//2010.02.26 차양감소계수 + + + ''' + ''' 클래스 생성자 + ''' + Public Sub New() + '//지정된 존에 해당하는 지역정보를 가지고옴(현재기상정보가 존에 할당되어있어서 그렇다) + '//1번째 존에 지역이 설정된걸로 간주한다 + + 'Dr신재생 = CType(DSET.tbl_new.Rows(0), DS.tbl_newRow) + + d_full = New Decimal() {0, 31, 28, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31} '우선 휴일없는 것으로 설정 + 'd_op = new decimal() {0, 31, 28, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31} '우선 휴일없는 것으로 설정 각달의 일수 ##### 02/21 삭제됨 + 'd_we = new decimal() {0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0} ' 우선 휴일없는 것으로 설정 + + '//최소외기온도 설정 + theta_e_min = TOSG(기상데이터.난방기) + theta_e_max = TOSG(기상데이터.냉방기) + + '//지역의 외기온도값 + theta_e(0) = 0 + theta_e(1) = TOSG(기상데이터.m01) + theta_e(2) = TOSG(기상데이터.m02) + theta_e(3) = TOSG(기상데이터.m03) + theta_e(4) = TOSG(기상데이터.m04) + theta_e(5) = TOSG(기상데이터.m05) + theta_e(6) = TOSG(기상데이터.m06) + theta_e(7) = TOSG(기상데이터.m07) + theta_e(8) = TOSG(기상데이터.m08) + theta_e(9) = TOSG(기상데이터.m09) + theta_e(10) = TOSG(기상데이터.m10) + theta_e(11) = TOSG(기상데이터.m11) + theta_e(12) = TOSG(기상데이터.m12) + + '//월별평균일사(기상데이터) 9개를 가져온다. 그중 최대부하값만 취한다. + '//현재 기상ROW의 CODE 와같은 Weather ilsa 데이터를 가져온다. + '//엑셀의 0 to 8 은 9개의 평균일사 데이터를 의미한다 + Dim DRow일사() As DS.weather_ilsaRow = CType(DSET1.weather_ilsa.Select("pcode='" & 기상데이터.code & "'", "code"), DS.weather_ilsaRow()) + If DRow일사.GetUpperBound(0) = -1 Then + MsgBox("월별평균일사데이터중 " & 기상데이터.code & "에 해당되는 지역이 없습니다", MsgBoxStyle.Critical, "CShared") + Me.IsError = True + Else + + For i As Short = 0 To 8 'DRow일사.GetUpperBound(0) <- 이식을 사용하려했으나 45도용데이터떄문에 사용못함 + Dim DR일사 As DS.weather_ilsaRow = DRow일사(i) + I_s(i, 0) = TOSG(DR일사.최대부하) + I_s(i, 1) = TOSG(DR일사.m01) + I_s(i, 2) = TOSG(DR일사.m02) + I_s(i, 3) = TOSG(DR일사.m03) + I_s(i, 4) = TOSG(DR일사.m04) + I_s(i, 5) = TOSG(DR일사.m05) + I_s(i, 6) = TOSG(DR일사.m06) + I_s(i, 7) = TOSG(DR일사.m07) + I_s(i, 8) = TOSG(DR일사.m08) + I_s(i, 9) = TOSG(DR일사.m09) + I_s(i, 10) = TOSG(DR일사.m10) + I_s(i, 11) = TOSG(DR일사.m11) + I_s(i, 12) = TOSG(DR일사.m12) + + '#If DEBUG Then + ' Dim f As String = "c:\temp\1\일사.txt" + ' Dim b As New System.Text.StringBuilder + ' If System.IO.File.Exists(f) = False Then + ' b.AppendLine("기상코드 I M0 1 2 3 4 5 6 7 8 9 10 11 12") + ' End If + ' b.AppendLine(기상데이터.code + vbTab + i.ToString() + vbTab + DR일사.최대부하 + vbTab + _ + ' DR일사.m01 + vbTab + DR일사.m02 + vbTab + DR일사.m03 + vbTab + DR일사.m04 + vbTab + DR일사.m05 + vbTab + _ + ' DR일사.m06 + vbTab + DR일사.m07 + vbTab + DR일사.m08 + vbTab + DR일사.m09 + vbTab + DR일사.m10 + vbTab + DR일사.m11 + vbTab + DR일사.m12) + ' My.Computer.FileSystem.WriteAllText(f, b.ToString, True) + '#End If + + Next + End If + + '=============================================================================2010.02.26 추가 + Dim DRow차양() As DS.weather_chaRow = CType(DSET1.weather_cha.Select("pcode='" & 기상데이터.code & "'", "code"), DS.weather_chaRow()) + If DRow차양.GetUpperBound(0) = -1 Then + MsgBox("월별차양감소데이터중 " & 기상데이터.code & "에 해당되는 지역이 없습니다", MsgBoxStyle.Critical, "CShared") + Me.IsError = True + Else + '//차양감소계수 추가 + For i As Short = 0 To 7 '총 8개의 종류가있따. + Dim DR차양 As DS.weather_chaRow = DRow차양(i) + F_sh_gl(i, 0) = TOSG(DR차양.m01) + F_sh_gl(i, 1) = TOSG(DR차양.m02) + F_sh_gl(i, 2) = TOSG(DR차양.m03) + F_sh_gl(i, 3) = TOSG(DR차양.m04) + F_sh_gl(i, 4) = TOSG(DR차양.m05) + F_sh_gl(i, 5) = TOSG(DR차양.m06) + F_sh_gl(i, 6) = TOSG(DR차양.m07) + F_sh_gl(i, 7) = TOSG(DR차양.m08) + F_sh_gl(i, 8) = TOSG(DR차양.m09) + F_sh_gl(i, 9) = TOSG(DR차양.m10) + F_sh_gl(i, 10) = TOSG(DR차양.m11) + F_sh_gl(i, 11) = TOSG(DR차양.m12) + + '#If DEBUG Then + ' Dim f As String = "c:\temp\1\차양.txt" + ' Dim b As New System.Text.StringBuilder + ' If System.IO.File.Exists(f) = False Then + ' b.AppendLine("기상코드 I M0 1 2 3 4 5 6 7 8 9 10 11") + ' End If + ' b.AppendLine(기상데이터.code + vbTab + i.ToString() + vbTab + _ + ' DR차양.m01 + vbTab + DR차양.m02 + vbTab + DR차양.m03 + vbTab + DR차양.m04 + vbTab + DR차양.m05 + vbTab + _ + ' DR차양.m06 + vbTab + DR차양.m07 + vbTab + DR차양.m08 + vbTab + DR차양.m09 + vbTab + DR차양.m10 + vbTab + DR차양.m11 + vbTab + DR차양.m12) + ' My.Computer.FileSystem.WriteAllText(f, b.ToString, True) + '#End If + + Next + End If + + '=============================================================================2010.02.26 추가 + 'For i = 0 To 7 + ' For j = 0 To 11 + ' F_sh_gl(i, j) = Worksheets("기상데이타").Range("차양감소계수1").Offset(i * 13 + j, i_count_location - 1) + ' Next + 'Next + + End Sub + + +End Class diff --git a/ArinWarev1/Calculator/CSummary.vb b/ArinWarev1/Calculator/CSummary.vb new file mode 100644 index 0000000..7bcf5ca --- /dev/null +++ b/ArinWarev1/Calculator/CSummary.vb @@ -0,0 +1,892 @@ +Public Class CSummary + Public Event Message(ByVal Msg As String, pval As Integer, pmin As Integer, pmax As Integer) '//메세지표시 + Private DSETR As DSR + Private Result As CResult + Public Sub New(ByRef pdsetr As DSR, ByRef presult As CResult) + DSETR = pdsetr + Result = presult + End Sub + + ''' + ''' 모든 집계데이터를 갱신합니다. + ''' + ''' + Public Sub All() + + ''TMon() + RaiseEvent Message("최종데이터 집계중..." + vbCrLf + "잠시만기다려주세요", 1, 0, 1) + + For Each Dr As C에너지분석 In Result.E분석 '//12달치의 각존들의 데이터를 가지고 합계내역을 추린다. '//LoadOfZone 에서 계산완료한다. + Dr.Calc() + Next + Result.최대부하.Calc_Summary() '//최대냉난방부하(합계-zone='00') 계산 + 'Result.생산E(0).Calc_Summary() '//합계필드(M00)에데이터를 누적합니다. + Result.일차E소요량(0).Calc_Summary() '//1차소요량의 합계데이터를 계산 + Result.E소요량(0).Calc_Summary() '//1차소요량의 합계데이터를 계산 + + 'TReqUse_M01M12() '//이것들은 현재 사용하지 않고있다. + 'TReqUse_M00() '//현재 사용하지않고있따. + + Me.Make_ResultSheet() '//최종결과를 보여주는 시트를 작성한다. + DSETR.AcceptChanges() '//변경된모든내용을 적용함 + End Sub + +#Region "미사용개체" + + ''' + ''' 1월부터 10월까지 집계데이터를 계산한다. + ''' + ''' + Public Sub TReqUse_M01M12() + For i As Short = 1 To 12 + 'MOn = "M" & Format(i, "00") + 'Dim DR() As DSR.TReqUseRow = CType(DSETR.TReqUse.Select("", "code"), DSR.TReqUseRow()) + + + ''//////////////////////////////////// + '' 연간 Co2 배출량 + ''//////////////////////////////////// + + ''조명/환기에너지소요량 + 'DR(56 - 1)(MOn) = CType(DSETR.월별에너지분석.Select("월='" & MOn & "' and 존='00'")(0), DSR.월별에너지분석Row).조명요구량 + 'DR(57 - 1)(MOn) = CType(DSETR.월별에너지분석.Select("월='" & MOn & "' and 존='00'")(0), DSR.월별에너지분석Row).환기요구량 + + ''//SUMProduct 계산 + 'Dim Acc1 as decimal = 0 + 'Dim Acc2 as decimal = 0 + 'For j As Short = 41 To 57 + ' Acc1 += Ru(j, MOn) * Ru(j, "sign") + 'Next + 'For j As Short = 58 To 59 + ' Acc2 += Ru(j, MOn) * Ru(j, "sign") + 'Next + 'Ru(ResultRow.CO2_연간배출량, MOn) = Acc1 - Acc2 '//최상단 합계(연가Co2배출량 + + ''//Excel 67번줄데이터가 필요하므로 먼저계산한다..해당데이터는 마지막(64번줄에 할당함) + ''//(I95+I96)/(I76+I82+I88+I90+I92)*$C$76 + 'Ru(64, MOn) = (Ru(58, MOn) + Ru(59, MOn)) / (Ru(45, MOn) + Ru(50, MOn) + Ru(55, MOn) + Ru(56, MOn) + Ru(57, MOn)) * Ru(45, "sign") + + ''//난방에너지소요량(계수(sign)* Sumproduct) + 'Dim ACc_Nan as decimal = 0 + 'For j As Short = 41 To 45 + ' ACc_Nan += CSng(DR(j - 1)(MOn)) * CSng(DR(j - 1)("sign")) + 'Next + + 'Dim ACc_Naeng as decimal = 0 + 'For j As Short = 46 To 50 + ' ACc_Naeng += CSng(DR(j - 1)(MOn)) * CSng(DR(j - 1)("sign")) + 'Next + + 'Dim ACc_KUb as decimal = 0 + 'For j As Short = 51 To 55 + ' ACc_KUb += CSng(DR(j - 1)(MOn)) * CSng(DR(j - 1)("sign")) + 'Next + + + ''//67>64 + ''IF(csng(ru(7,"00"))=0,0,(ACc_Nan-ru(45,mon)*ru(64,mon))/$H$15)+IF($H$20=0,0,(SUMPRODUCT($C$78:$C$82,I78:I82)-I82*I67)/$H$20)+IF($H$26=0,0,(SUMPRODUCT($C$84:$C$88,I84:I88)-I88*I67)/$H$26)+IF($H$23=0,0,($C$90*I90-I90*I67)/$H$23)+IF($H$27=0,0,($C$92*I92-I92*I67)/$H$27) + ''IF(csng(ru(7))=0,0,(ACc_Nan-ru(45,mon)*ru(64,mon))/ru(7))+IF(ru(12)=0,0,(acc_naeng-ru(50,mon)*ru(64,mon))/ru(12))+IF(ru(18)=0,0,(acc_kub-ru(55,mon)*ru(64,mon))/ru(18))+IF(ru(15)=0,0,(ru(56,"sign")*ru(56,mon)-ru(56,mon)*ru(64,mon))/ru(15))+IF(ru(19)=0,0,(ru(57,"sign")*ru(57,mon)-ru(57,mon)*ru(64,mon))/ru(19)) + + ''//단위면적당Co2배출량) + 'If Ru(ResultRow.요구량_난방_사용면적) = 0 Then + ' Ru(ResultRow.CO2_단위면적당배출량, MOn) = 0 + 'Else + ' '(ACc_Nan-ru(45,mon)*ru(64,mon))/ru(7))+IF(ru(12)=0,0,(acc_naeng-ru(50,mon)*ru(64,mon))/ru(12))+IF(ru(18)=0,0,(acc_kub-ru(55,mon)*ru(64,mon))/ru(18))+IF(ru(15)=0,0,(ru(56,"sign")*ru(56,mon)-ru(56,mon)*ru(64,mon))/ru(15))+IF(ru(19)=0,0,(ru(57,"sign")*ru(57,mon)-ru(57,mon)*ru(64,mon))/ru(19) + ' Ru(ResultRow.CO2_단위면적당배출량, MOn) = (ACc_Nan - Ru(45, MOn) * Ru(64, MOn)) / Ru(7) + CSng(IIf(Ru(12) = 0, 0, (ACc_Naeng - Ru(50, MOn) * Ru(64, MOn)) / Ru(12))) + CSng(IIf(Ru(18) = 0, 0, (ACc_KUb - Ru(55, MOn) * Ru(64, MOn)) / Ru(18))) + CSng(IIf(Ru(15) = 0, 0, (Ru(56, "sign") * Ru(56, MOn) - Ru(56, MOn) * Ru(64, MOn)) / Ru(15))) + CSng(IIf(Ru(19) = 0, 0, (Ru(57, "sign") * Ru(57, MOn) - Ru(57, MOn) * Ru(64, MOn)) / Ru(19))) + 'End If + Next + End Sub + + ''' + ''' 에너지요구량및소요량 테이블의 M00(합계)를 누적(M01~M12)로 채웁니다. 그렇지않은건 이후에 합계프로시져별도로 생성함 + ''' + ''' + Public Sub TReqUse_M00() + ''//LT(LineType 이 SL Sum Line 인경우가져와서 m00 = m01~m12 한다 + 'Dim DR() As DSR.TReqUseRow = CType(DSETR.TReqUse.Select("", "code"), DSR.TReqUseRow()) + 'For Each Drs As DSR.TReqUseRow In DSETR.TReqUse.Select("lt='SL'") + ' Drs.M00 = Drs.M01 + Drs.M02 + Drs.M03 + Drs.M04 + Drs.M05 + Drs.M06 + Drs.M07 + Drs.M08 + Drs.M09 + Drs.M10 + Drs.M11 + Drs.M12 + 'Next + + ''//커스텀 합계필드 계산 + + ''자주사용되는 SUM(1~12)를 미리 계산해둔다 + 'Dim L45, L50, L55, L56, L57, L22, L27, L31, L33, L37 as decimal : Dim Drow As DSR.TReqUseRow + 'Drow = CType(DSETR.TReqUse.Rows(45 - 1), DSR.TReqUseRow) + 'L45 = Drow.M01 + Drow.M02 + Drow.M03 + Drow.M04 + Drow.M05 + Drow.M06 + Drow.M07 + Drow.M08 + Drow.M09 + Drow.M10 + Drow.M11 + Drow.M12 + + 'Drow = CType(DSETR.TReqUse.Rows(50 - 1), DSR.TReqUseRow) + 'L50 = Drow.M01 + Drow.M02 + Drow.M03 + Drow.M04 + Drow.M05 + Drow.M06 + Drow.M07 + Drow.M08 + Drow.M09 + Drow.M10 + Drow.M11 + Drow.M12 + + 'Drow = CType(DSETR.TReqUse.Rows(55 - 1), DSR.TReqUseRow) + 'L55 = Drow.M01 + Drow.M02 + Drow.M03 + Drow.M04 + Drow.M05 + Drow.M06 + Drow.M07 + Drow.M08 + Drow.M09 + Drow.M10 + Drow.M11 + Drow.M12 + + 'Drow = CType(DSETR.TReqUse.Rows(56 - 1), DSR.TReqUseRow) + 'L56 = Drow.M01 + Drow.M02 + Drow.M03 + Drow.M04 + Drow.M05 + Drow.M06 + Drow.M07 + Drow.M08 + Drow.M09 + Drow.M10 + Drow.M11 + Drow.M12 + + 'Drow = CType(DSETR.TReqUse.Rows(57 - 1), DSR.TReqUseRow) + 'L57 = Drow.M01 + Drow.M02 + Drow.M03 + Drow.M04 + Drow.M05 + Drow.M06 + Drow.M07 + Drow.M08 + Drow.M09 + Drow.M10 + Drow.M11 + Drow.M12 + + 'Drow = CType(DSETR.TReqUse.Rows(22 - 1), DSR.TReqUseRow) + 'L22 = Drow.M01 + Drow.M02 + Drow.M03 + Drow.M04 + Drow.M05 + Drow.M06 + Drow.M07 + Drow.M08 + Drow.M09 + Drow.M10 + Drow.M11 + Drow.M12 + + 'Drow = CType(DSETR.TReqUse.Rows(27 - 1), DSR.TReqUseRow) + 'L27 = Drow.M01 + Drow.M02 + Drow.M03 + Drow.M04 + Drow.M05 + Drow.M06 + Drow.M07 + Drow.M08 + Drow.M09 + Drow.M10 + Drow.M11 + Drow.M12 + + 'Drow = CType(DSETR.TReqUse.Rows(31 - 1), DSR.TReqUseRow) + 'L31 = Drow.M01 + Drow.M02 + Drow.M03 + Drow.M04 + Drow.M05 + Drow.M06 + Drow.M07 + Drow.M08 + Drow.M09 + Drow.M10 + Drow.M11 + Drow.M12 + + 'Drow = CType(DSETR.TReqUse.Rows(33 - 1), DSR.TReqUseRow) + 'L33 = Drow.M01 + Drow.M02 + Drow.M03 + Drow.M04 + Drow.M05 + Drow.M06 + Drow.M07 + Drow.M08 + Drow.M09 + Drow.M10 + Drow.M11 + Drow.M12 + + 'Drow = CType(DSETR.TReqUse.Rows(37 - 1), DSR.TReqUseRow) + 'L37 = Drow.M01 + Drow.M02 + Drow.M03 + Drow.M04 + Drow.M05 + Drow.M06 + Drow.M07 + Drow.M08 + Drow.M09 + Drow.M10 + Drow.M11 + Drow.M12 + + ''//실제 데이터 집계 + 'Drow = CType(DSETR.TReqUse.Rows(45 - 1), DSR.TReqUseRow) + 'Drow.M00 = L45 - (DR(58 - 1).M00 + DR(59 - 1).M00) / (L45 + L50 + L55 + L56 + L57) * L45 + ''If (L45 + L50 + L55 + L56 + L57) <> 0 Then Drow.M00 = L45 - (DR(58 - 1).M00 + DR(59 - 1).M00) / (L45 + L50 + L55 + L56 + L57) * L45 + + + 'Drow = CType(DSETR.TReqUse.Rows(50 - 1), DSR.TReqUseRow) + 'Drow.M00 = L50 - (DR(58 - 1).M00 + DR(59 - 1).M00) / (L45 + L50 + L55 + L56 + L57) * L50 ' + ''If (L45 + L50 + L55 + L56 + L57) <> 0 Then Drow.M00 = L50 - (DR(58 - 1).M00 + DR(59 - 1).M00) / (L45 + L50 + L55 + L56 + L57) * L50 + + 'Drow = CType(DSETR.TReqUse.Rows(55 - 1), DSR.TReqUseRow) + 'Drow.M00 = L55 - (DR(58 - 1).M00 + DR(59 - 1).M00) / (L45 + L50 + L55 + L56 + L57) * L55 + ''If (L45 + L50 + L55 + L56 + L57) <> 0 Then Drow.M00 = L55 - (DR(58 - 1).M00 + DR(59 - 1).M00) / (L45 + L50 + L55 + L56 + L57) * L55 + + 'Drow = CType(DSETR.TReqUse.Rows(56 - 1), DSR.TReqUseRow) + 'Drow.M00 = L56 - (DR(58 - 1).M00 + DR(59 - 1).M00) / (L45 + L50 + L55 + L56 + L57) * L56 + ''If (L45 + L50 + L55 + L56 + L57) <> 0 Then Drow.M00 = L56 - (DR(58 - 1).M00 + DR(59 - 1).M00) / (L45 + L50 + L55 + L56 + L57) * L56 + + 'Drow = CType(DSETR.TReqUse.Rows(57 - 1), DSR.TReqUseRow) + 'Drow.M00 = L57 - (DR(58 - 1).M00 + DR(59 - 1).M00) / (L45 + L50 + L55 + L56 + L57) * L57 + ''If (L45 + L50 + L55 + L56 + L57) <> 0 Then Drow.M00 = L57 - (DR(58 - 1).M00 + DR(59 - 1).M00) / (L45 + L50 + L55 + L56 + L57) * L57 + + ''// + 'Drow = CType(DSETR.TReqUse.Rows(22 - 1), DSR.TReqUseRow) + '' If (L45 + L50 + L55 + L56 + L57) <> 0 Then + 'Drow.M00 = L22 - (DR(58 - 1).M00 + DR(59 - 1).M00) / (L45 + L50 + L55 + L56 + L57) * L45 + 'Drow.COLG = L22 - (DR(58 - 1).M00) / (L45 + L50 + L55 + L56 + L57) * L45 + '' End If + + 'Drow = CType(DSETR.TReqUse.Rows(27 - 1), DSR.TReqUseRow) + '' If (L45 + L50 + L55 + L56 + L57) <> 0 Then + 'Drow.M00 = L27 - (DR(58 - 1).M00 + DR(59 - 1).M00) / (L45 + L50 + L55 + L56 + L57) * L50 + 'Drow.COLG = L27 - (DR(58 - 1).M00) / (L45 + L50 + L55 + L56 + L57) * L50 + '' End If + + 'Drow = CType(DSETR.TReqUse.Rows(31 - 1), DSR.TReqUseRow) + '' If (L45 + L50 + L55 + L56 + L57) <> 0 Then + 'Drow.M00 = L31 - (DR(58 - 1).M00 + DR(59 - 1).M00) / (L45 + L50 + L55 + L56 + L57) * L56 + 'Drow.COLG = L31 - (DR(58 - 1).M00) / (L45 + L50 + L55 + L56 + L57) * L56 + '' End If + + + 'Drow = CType(DSETR.TReqUse.Rows(33 - 1), DSR.TReqUseRow) + ''If (L45 + L50 + L55 + L56 + L57) <> 0 Then + 'Drow.M00 = L33 - (DR(58 - 1).M00 + DR(59 - 1).M00) / (L45 + L50 + L55 + L56 + L57) * L55 + 'Drow.COLG = L33 - (DR(58 - 1).M00) / (L45 + L50 + L55 + L56 + L57) * L55 + '' End If + + ''// + 'Drow = CType(DSETR.TReqUse.Rows(20 - 1), DSR.TReqUseRow) + 'Drow.M00 = DR(22 - 1).M00 + DR(27 - 1).M00 + DR(31 - 1).M00 + DR(33 - 1).M00 + DR(37 - 1).M00 + + ''// + 'Drow = CType(DSETR.TReqUse.Rows(26 - 1), DSR.TReqUseRow) + 'Drow.M00 = CSng(IIf(DR(7 - 1).M00 = 0, 0, DR(22 - 1).M00 / DR(7 - 1).M00)) + + 'Drow = CType(DSETR.TReqUse.Rows(30 - 1), DSR.TReqUseRow) + 'Drow.M00 = CSng(IIf(DR(12 - 1).M00 = 0, 0, DR(27 - 1).M00 / DR(12 - 1).M00)) + + 'Drow = CType(DSETR.TReqUse.Rows(32 - 1), DSR.TReqUseRow) + 'Drow.M00 = CSng(IIf(DR(15 - 1).M00 = 0, 0, DR(31 - 1).M00 / DR(15 - 1).M00)) + + 'Drow = CType(DSETR.TReqUse.Rows(36 - 1), DSR.TReqUseRow) + 'Drow.M00 = CSng(IIf(DR(18 - 1).M00 = 0, 0, DR(33 - 1).M00 / DR(18 - 1).M00)) + + + ''=SUM(I58:T58)-(H95+H96)/(SUM(I76:T76)+SUM(I82:T82)+SUM(I88:T88)+SUM(I90:T90)+SUM(I92:T92))*SUM(I92:T92) + ''=L37-(ru(58)+ru(59))/(L45+L50+L55+L56+L57)*L57 + 'Drow = CType(DSETR.TReqUse.Rows(37 - 1), DSR.TReqUseRow) '//환기에너지소요량(X) + '' If (L45 + L50 + L55 + L56 + L57) <> 0 Then + 'Drow.M00 = L37 - (Ru(58) + Ru(59)) / (L45 + L50 + L55 + L56 + L57) * L57 + 'Drow.COLG = L37 - (Ru(58)) / (L45 + L50 + L55 + L56 + L57) * L57 + '' End If + + + 'Drow = CType(DSETR.TReqUse.Rows(38 - 1), DSR.TReqUseRow) '//환기에너지 단위면적당 소요량 + 'Drow.M00 = CSng(IIf(Ru(19) = 0, 0, Ru(37) / Ru(19))) + + ''// + 'Drow = CType(DSETR.TReqUse.Rows(21 - 1), DSR.TReqUseRow) + 'Drow.M00 = DR(26 - 1).M00 + DR(30 - 1).M00 + DR(32 - 1).M00 + DR(36 - 1).M00 + DR(38 - 1).M00 + + End Sub + + +#End Region + + Public Sub Make_ResultSheet() + '//에너지요구량 + DSETR.TReqUse.Clear() + DSETR.TReqUse.AcceptChanges() + + Dim Array As New ArrayList + + Array.Clear() + For i As Integer = 0 To 12 + Array.Add(Result.E요구량(i).요구량) + Next + Set_ReqUseRow("100", "에너지요구량", "[kWh]", "Qb", "=", Array) + + Array.Clear() + For i As Integer = 0 To 12 + Array.Add(Result.E요구량(i).면적당요구량) + Next + Set_ReqUseRow("100", "단위면적당 에너지 요구량", "[kWh/m²]", "Σ(Qb / Ab)", "=", Array, "N1") + + Array.Clear() + For i As Integer = 0 To 12 + Array.Add(Result.E요구량(i).난방요구량) + Next + Set_ReqUseRow("110", "난방에너지 요구량", "[kWh]", "QH,b", "=", Array) + + Array.Clear() + For i As Integer = 0 To 12 + Array.Add(Result.E요구량(i).난방열) + Next + Set_ReqUseRow("110", "난방에너지 요구량(열)", "[kWh]", "Qh,b", "=", Array) + + Array.Clear() + For i As Integer = 0 To 12 + Array.Add(Result.E요구량(i).난방공조) + Next + Set_ReqUseRow("110", "난방에너지 요구량(공조,환기)", "[kWh]", "Qh*,b", "=", Array) + + Array.Clear() + For i As Integer = 0 To 12 + Array.Add(Result.E요구량(i).난방면적) + Next + Set_ReqUseRow("110", "단위면적당 요구량", "[kWh/m²]", "QH,b / AH", "=", Array, "N1") + Set_ReqUseRow("110", "사용면적(난방)", "[m²]", "AH", "=", Result.사용면적.H, "N1") + + Array.Clear() + For i As Integer = 0 To 12 + Array.Add(Result.E요구량(i).냉방요구량) + Next + Set_ReqUseRow("110", "냉방에너지 요구량", "[kWh]", "QC,b", "=", Array) + + Array.Clear() + For i As Integer = 0 To 12 + Array.Add(Result.E요구량(i).냉방열) + Next + Set_ReqUseRow("110", "냉방에너지 요구량(열)", "[kWh]", "Qc,b", "=", Array) + + Array.Clear() + For i As Integer = 0 To 12 + Array.Add(Result.E요구량(i).냉방공조) + Next + Set_ReqUseRow("110", "냉방에너지 요구량(공조,환기)", "[kWh]", "Qc*,b", "=", Array) + + Array.Clear() + For i As Integer = 0 To 12 + Array.Add(Result.E요구량(i).냉방면적) + Next + Set_ReqUseRow("110", "단위면적당 요구량", "[kWh/m²]", "QC,b / AC", "=", Array, "N1") + Set_ReqUseRow("110", "사용면적(냉방)", "[m²]", "AC", "=", Result.사용면적.C, "N1") + + Array.Clear() + For i As Integer = 0 To 12 + Array.Add(Result.E요구량(i).조명요구량) + Next + Set_ReqUseRow("110", "조명에너지 요구량", "[kWh]", "QL,b", "=", Array) + + Array.Clear() + For i As Integer = 0 To 12 + Array.Add(Result.E요구량(i).조명면적) + Next + Set_ReqUseRow("110", "단위면적당 요구량", "[kWh/m²]", "QL,b / AL", "=", Array, "N1") + Set_ReqUseRow("110", "사용면적(조명)", "[m²]", "AL", "=", Result.사용면적.L, "N1") + + Array.Clear() + For i As Integer = 0 To 12 + Array.Add(Result.E요구량(i).급탕요구량) + Next + Set_ReqUseRow("110", "급탕에너지 요구량", "[kWh]", "QW,b", "=", Array) + + Array.Clear() + For i As Integer = 0 To 12 + Array.Add(Result.E요구량(i).급탕면적) + Next + Set_ReqUseRow("110", "단위면적당 요구량", "[kWh/m²]", "QW,b / AW", "=", Array, "N1") + Set_ReqUseRow("110", "사용면적(급탕)", "[m²]", "AW", "=", Result.사용면적.W, "N1") + Set_ReqUseRow("110", "사용면적(환기)", "[m²]", "AV", "=", Result.사용면적.V, "N1") + + '//에너지소요량 + Array.Clear() + For i As Integer = 0 To 12 + Array.Add(Result.E소요량(i).소요량) + Next + Set_ReqUseRow("200", "에너지소요량", "[kWh]", "Qf", "", Array) + + Array.Clear() + For i As Integer = 0 To 12 + Array.Add(Result.E소요량(i).면적소요량) + Next + Set_ReqUseRow("200", "단위면적당 에너지 소요량", "[kWh/m²]", "Σ(Qf / Ab)", "", Array, "N1") + + Array.Clear() + For i As Integer = 0 To 12 + Array.Add(Result.E소요량(i).난방S) + Next + Set_ReqUseRow("210", "난방에너지 소요량", "[kWh]", "QH,f", "=", Array) + Array.Clear() + For i As Integer = 0 To 12 + Array.Add(Result.E소요량(i).난방) + Next + Set_ReqUseRow("210", "난방에너지 소요량", "[kWh]", "Qh,f", "=", Array) + + Array.Clear() + For i As Integer = 0 To 12 + Array.Add(Result.E소요량(i).난방보조) + Next + Set_ReqUseRow("210", "난방보조에너지 소요량", "[kWh]", "Qh,aux", "=", Array) + Array.Clear() + For i As Integer = 0 To 12 + Array.Add(Result.E소요량(i).난방면적) + Next + Set_ReqUseRow("210", "단위면적당 소요량", "[kWh/m²]", "QH,f / AH", "=", Array, "N1") + + Array.Clear() + For i As Integer = 0 To 12 + Array.Add(Result.E소요량(i).냉방S) + Next + Set_ReqUseRow("210", "냉방에너지 소요량", "[kWh]", "QC,f", "=", Array) + Array.Clear() + For i As Integer = 0 To 12 + Array.Add(Result.E소요량(i).냉방) + Next + Set_ReqUseRow("210", "냉방에너지 소요량", "[kWh]", "Qc,f", "=", Array) + Array.Clear() + For i As Integer = 0 To 12 + Array.Add(Result.E소요량(i).냉방보조) + Next + Set_ReqUseRow("210", "냉방보조에너지 소요량", "[kWh]", "Qc,aux", "=", Array) + Array.Clear() + For i As Integer = 0 To 12 + Array.Add(Result.E소요량(i).냉방면적) + Next + Set_ReqUseRow("210", "단위면적당 소요량", "[kWh/m²]", "QC,f / AC", "=", Array, "N1") + + + Array.Clear() + For i As Integer = 0 To 12 + Array.Add(Result.E소요량(i).조명S) + Next + Set_ReqUseRow("210", "조명에너지 소요량", "[kWh]", "QL,f", "=", Array) + Array.Clear() + For i As Integer = 0 To 12 + Array.Add(Result.E소요량(i).조명면적) + Next + Set_ReqUseRow("210", "단위면적당 소요량", "[kWh/m²]", "QL,f / AL", "=", Array, "N1") + + Array.Clear() + For i As Integer = 0 To 12 + Array.Add(Result.E소요량(i).급탕S) + Next + Set_ReqUseRow("210", "급탕에너지 소요량", "[kWh]", "QW,f", "=", Array) + Array.Clear() + For i As Integer = 0 To 12 + Array.Add(Result.E소요량(i).급탕) + Next + Set_ReqUseRow("210", "급탕에너지 소요량", "[kWh]", "Qw,f", "=", Array) + Array.Clear() + For i As Integer = 0 To 12 + Array.Add(Result.E소요량(i).급탕보조) + Next + Set_ReqUseRow("210", "급탕보조에너지 소요량", "[kWh]", "Qw,aux", "=", Array) + Array.Clear() + For i As Integer = 0 To 12 + Array.Add(Result.E소요량(i).급탕면적) + Next + Set_ReqUseRow("210", "단위면적당 소요량", "[kWh/m²]", "QW,f / AW", "=", Array, "N1") + + Array.Clear() + For i As Integer = 0 To 12 + Array.Add(Result.E소요량(i).환기S) + Next + Set_ReqUseRow("210", "환기에너지 소요량", "[kWh]", "QV,aux", "=", Array) '//36 + Array.Clear() + For i As Integer = 0 To 12 + Array.Add(Result.E소요량(i).환기면적) + Next + Set_ReqUseRow("210", "단위면적당 소요량", "[kWh/m²]", "QV.aux / AV", "=", Array, "N1") + + '//1차에너지 소요량(10-02 추가) + Array.Clear() + For i As Integer = 0 To 12 + Array.Add(Result.일차E소요량(i).소요량) + Next + Set_ReqUseRow("300", "1차에너지 소요량", "[kWh]", "", "", Array) '//38 + Array.Clear() + For i As Integer = 0 To 12 + Array.Add(Result.일차E소요량(i).단위면적) + Next + Set_ReqUseRow("300", "단위면적당 1차에너지 소요량", "[kWh/m²]", "", "", Array, "N1") '//39 + + Array.Clear() + For i As Integer = 0 To 12 + Array.Add(Result.일차E소요량(i).난방소요량) + Next + Set_ReqUseRow("310", "난방 1차에너지 소요량", "", "", "", Array) '//40 + Array.Clear() + For i As Integer = 0 To 12 + Array.Add(Result.일차E소요량(i).난방등유) + Next + Set_ReqUseRow("310", "난방유(등유) 소요량", "[kWh]", "1.1", "=", Array) + Array.Clear() + For i As Integer = 0 To 12 + Array.Add(Result.일차E소요량(i).난방LNG) + Next + Set_ReqUseRow("310", "천연가스(LNG) 소요량", "[kWh]", "1.1", "=", Array) + Array.Clear() + For i As Integer = 0 To 12 + Array.Add(Result.일차E소요량(i).난방LPG) + Next + Set_ReqUseRow("310", "액화가스(LPG) 소요량", "[kWh]", "1.1", "=", Array) + Array.Clear() + For i As Integer = 0 To 12 + Array.Add(Result.일차E소요량(i).난방지역) + Next + Set_ReqUseRow("310", "지역난방열료 소요량", "[kWh]", "0.728", "=", Array) + Array.Clear() + For i As Integer = 0 To 12 + Array.Add(Result.일차E소요량(i).난방전력) + Next + Set_ReqUseRow("310", "전력 소요량", "[kWh]", "2.75", "=", Array) '//45 + + 'Array.Clear() '//--펠렛 100727 + 'For i As Integer = 0 To 12 + ' Array.Add(Result.일차E소요량(i).난방펠렛) + 'Next + 'Set_ReqUseRow("310", "펠렛보일러 소요량", "[kWh]", "1.1", "=", Array) + + + Array.Clear() + For i As Integer = 0 To 12 + Array.Add(Result.일차E소요량(i).난방면적) + Next + Set_ReqUseRow("310", "단위면적당 1차에너지 소요량", "[kWh/m2]", "", "=", Array, "N1") '//46 + + Array.Clear() + For i As Integer = 0 To 12 + Array.Add(Result.일차E소요량(i).냉방소요량) + Next + Set_ReqUseRow("310", "냉방 1차에너지 소요량", "", "", "", Array) '//47 + Array.Clear() + For i As Integer = 0 To 12 + Array.Add(Result.일차E소요량(i).냉방등유) + Next + Set_ReqUseRow("310", "난방유(등유) 소요량", "[kWh]", "1.1", "=", Array) '//48 + Array.Clear() + For i As Integer = 0 To 12 + Array.Add(Result.일차E소요량(i).냉방LNG) + Next + Set_ReqUseRow("310", "천연가스(LNG) 소요량", "[kWh]", "1.1", "=", Array) + Array.Clear() + For i As Integer = 0 To 12 + Array.Add(Result.일차E소요량(i).냉방LPG) + Next + Set_ReqUseRow("310", "액화가스(LPG) 소요량", "[kWh]", "1.1", "=", Array) '//50 + Array.Clear() + For i As Integer = 0 To 12 + Array.Add(Result.일차E소요량(i).냉방지역난방열) + Next + Set_ReqUseRow("310", "지역난방열 소요량", "[kWh]", "0.728", "=", Array) + Array.Clear() + For i As Integer = 0 To 12 + Array.Add(Result.일차E소요량(i).냉방지역냉방열) + Next + Set_ReqUseRow("310", "지역냉방열 소요량", "[kWh]", Result.E변환계수.지역냉방.ToString("N3"), "=", Array) + + Array.Clear() + For i As Integer = 0 To 12 + Array.Add(Result.일차E소요량(i).냉방전력) + Next + Set_ReqUseRow("310", "전력 소요량", "[kWh]", "2.75", "=", Array) '//52 + + 'Array.Clear() '//--펠렛 100727 + 'For i As Integer = 0 To 12 + ' Array.Add(Result.일차E소요량(i).냉방펠렛) + 'Next + 'Set_ReqUseRow("310", "펠렛보일러 소요량", "[kWh]", "1.1", "=", Array) + + + Array.Clear() + For i As Integer = 0 To 12 + Array.Add(Result.일차E소요량(i).냉방면적) + Next + Set_ReqUseRow("310", "단위면적당 1차에너지 소요량", "[kWh/m2]", "", "=", Array, "N1") '//53 + + + Array.Clear() + For i As Integer = 0 To 12 + Array.Add(Result.일차E소요량(i).급탕소요량) + Next + Set_ReqUseRow("310", "급탕 1차에너지 소요량", "", "", "", Array) '//54 + Array.Clear() + For i As Integer = 0 To 12 + Array.Add(Result.일차E소요량(i).급탕등유) + Next + Set_ReqUseRow("310", "난방유(등유) 소요량", "[kWh]", "1.1", "=", Array) '//55 + Array.Clear() + For i As Integer = 0 To 12 + Array.Add(Result.일차E소요량(i).급탕LNG) + Next + Set_ReqUseRow("310", "천연가스(LNG) 소요량", "[kWh]", "1.1", "=", Array) + Array.Clear() + For i As Integer = 0 To 12 + Array.Add(Result.일차E소요량(i).급탕LPG) + Next + Set_ReqUseRow("310", "액화가스(LPG) 소요량", "[kWh]", "1.1", "=", Array) '//57 + Array.Clear() + For i As Integer = 0 To 12 + Array.Add(Result.일차E소요량(i).급탕지역) + Next + Set_ReqUseRow("310", "지역난방열 소요량", "[kWh]", "0.728", "=", Array) + Array.Clear() + For i As Integer = 0 To 12 + Array.Add(Result.일차E소요량(i).급탕전력) + Next + Set_ReqUseRow("310", "전력 소요량", "[kWh]", "2.75", "=", Array) '//59 + + 'Array.Clear() '//--펠렛 100727 + 'For i As Integer = 0 To 12 + ' Array.Add(Result.일차E소요량(i).급탕펠렛) + 'Next + 'Set_ReqUseRow("310", "펠렛보일러 소요량", "[kWh]", "1.1", "=", Array) + + Array.Clear() + For i As Integer = 0 To 12 + Array.Add(Result.일차E소요량(i).급탕면적) + Next + + Set_ReqUseRow("310", "단위면적당 1차에너지 소요량", "[kWh/m2]", "", "=", Array, "N1") '//60 + + Array.Clear() + For i As Integer = 0 To 12 + Array.Add(Result.일차E소요량(i).조명소요량) + Next + Set_ReqUseRow("310", "조명 1차에너지 소요량", "", "", "", Array) '//61 + Array.Clear() + For i As Integer = 0 To 12 + Array.Add(Result.일차E소요량(i).조명전력) + Next + Set_ReqUseRow("310", "전력 소요량", "[kWh]", "2.75", "=", Array) '//62 + Array.Clear() + For i As Integer = 0 To 12 + Array.Add(Result.일차E소요량(i).조명면적) + Next + + Set_ReqUseRow("310", "단위면적당 1차에너지 소요량", "[kWh/m2]", "", "=", Array, "N1") '//63 + + Array.Clear() + For i As Integer = 0 To 12 + Array.Add(Result.일차E소요량(i).환기소요량) + Next + Set_ReqUseRow("310", "환기 1차에너지 소요량", "", "", "", Array) '//64 + Array.Clear() + For i As Integer = 0 To 12 + Array.Add(Result.일차E소요량(i).환기전력) + Next + Set_ReqUseRow("310", "전력 소요량", "[kWh]", "2.75", "=", Array) '//65 + Array.Clear() + For i As Integer = 0 To 12 + Array.Add(Result.일차E소요량(i).환기면적) + Next + + Set_ReqUseRow("310", "단위면적당 1차에너지 소요량", "[kWh/m2]", "", "=", Array, "N1") '//66 + + 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 + Set_ReqUseRow("310", "전기에너지 생산량(열병합)", "[kWh]", CStr(Result.E변환계수.전력), "=", Array) + Array.Clear() + For i As Integer = 0 To 12 + Array.Add(Result.생산E(i).태양열생산량) + Next + Set_ReqUseRow("310", "열에너지 생산량(태양열)", "[kWh]", "", "=", Array) '//69 + Array.Clear() + For i As Integer = 0 To 12 + Array.Add(Result.생산E(i).지열생산량) + Next + Set_ReqUseRow("310", "열에너지 생산량(지열)", "[kWh]", "", "=", Array) + Array.Clear() + For i As Integer = 0 To 12 + Array.Add(Result.생산E(i).면적당생산량태양열) + Next + + Set_ReqUseRow("310", "단위면적당 생산량(태양열)", "[kWh]", "", "=", Array, "N1") '//71 + Array.Clear() + For i As Integer = 0 To 12 + Array.Add(Result.생산E(i).면적당생산량지열) + Next + + Set_ReqUseRow("310", "단위면적당 생산량(지열)", "[kWh]", "", "=", Array, "N1") '//72 + + + '//CO2배출량 + Array.Clear() + For i As Integer = 0 To 12 + Array.Add(Result.Co2발생량(i).발생량) + Next + Set_ReqUseRow("400", "연간 CO2 배출량", "[kg CO2]", "", "", Array) '//73 + Array.Clear() + For i As Integer = 0 To 12 + Array.Add(Result.Co2발생량(i).단위면적) + Next + + Set_ReqUseRow("400", "단위면적당 CO2 배출량", "[kg CO2/m²]", "", "", Array, "N1") '//74 + Array.Clear() + For i As Integer = 0 To 12 + Array.Add(Result.Co2발생량(i).난방발생량) + Next + Set_ReqUseRow("410", "난방 CO2 발생량", "", "", "", Array) '//75 + 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) + Array.Clear() + For i As Integer = 0 To 12 + Array.Add(Result.Co2발생량(i).난방LNG) + Next + Set_ReqUseRow("410", "천연가스(LNG) CO2 발생량", "[kg CO2]", CStr(Result.Co2배출계수.LNG), "=", Array) + Array.Clear() + For i As Integer = 0 To 12 + Array.Add(Result.Co2발생량(i).난방LPG) + Next + Set_ReqUseRow("410", "액화가스(LPG) CO2 발생량", "[kg CO2]", CStr(Result.Co2배출계수.LPG), "=", Array) + 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) + 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) + + '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) + + Array.Clear() + For i As Integer = 0 To 12 + Array.Add(Result.Co2발생량(i).난방면적) + Next + + Set_ReqUseRow("410", "단위면적당 CO2 발생량", "[kg CO2]", "", "=", Array, "N1") + + Array.Clear() + For i As Integer = 0 To 12 + Array.Add(Result.Co2발생량(i).냉방발생량) + Next + Set_ReqUseRow("410", "냉방 CO2 발생량", "", "", "", Array) '//82 + 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) + Array.Clear() + For i As Integer = 0 To 12 + Array.Add(Result.Co2발생량(i).냉방LNG) + Next + Set_ReqUseRow("410", "천연가스(LNG) CO2 발생량", "[kg CO2]", CStr(Result.Co2배출계수.LNG), "=", Array) + Array.Clear() + For i As Integer = 0 To 12 + Array.Add(Result.Co2발생량(i).냉방LPG) + Next + Set_ReqUseRow("410", "액화가스(LPG) CO2 발생량", "[kg CO2]", CStr(Result.Co2배출계수.LPG), "=", Array) + 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) + 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) + 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) + '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) + Array.Clear() + For i As Integer = 0 To 12 + Array.Add(Result.Co2발생량(i).냉방면적) + Next + + Set_ReqUseRow("410", "단위면적당 CO2 발생량", "[kg CO2]", "", "=", Array, "N1") + + Array.Clear() + For i As Integer = 0 To 12 + Array.Add(Result.Co2발생량(i).급탕발생량) + Next + Set_ReqUseRow("410", "급탕 CO2 발생량", "", "", "", Array) '//89 + 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) + Array.Clear() + For i As Integer = 0 To 12 + Array.Add(Result.Co2발생량(i).급탕LNG) + Next + Set_ReqUseRow("410", "천연가스(LNG) CO2 발생량", "[kg CO2]", CStr(Result.Co2배출계수.LNG), "=", Array) + Array.Clear() + For i As Integer = 0 To 12 + Array.Add(Result.Co2발생량(i).급탕LPG) + Next + Set_ReqUseRow("410", "액화가스(LPG) CO2 발생량", "[kg CO2]", CStr(Result.Co2배출계수.LPG), "=", Array) + 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) + 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) + '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) + Array.Clear() + For i As Integer = 0 To 12 + Array.Add(Result.Co2발생량(i).급탕면적) + Next + + Set_ReqUseRow("410", "단위면적당 CO2 발생량", "[kg CO2]", "", "=", Array, "N1") + + Array.Clear() + For i As Integer = 0 To 12 + Array.Add(Result.Co2발생량(i).조명발생량) + Next + Set_ReqUseRow("410", "조명 CO2 발생량", "", "", "", Array) '//96 + 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) + Array.Clear() + For i As Integer = 0 To 12 + Array.Add(Result.Co2발생량(i).조명면적) + Next + + Set_ReqUseRow("410", "단위면적당 CO2 발생량", "[kg CO2]", "", "=", Array, "N1") + + Array.Clear() + For i As Integer = 0 To 12 + Array.Add(Result.Co2발생량(i).환기발생량) + Next + Set_ReqUseRow("410", "환기 CO2 발생량", "", "", "", Array) '//99 + 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) + Array.Clear() + For i As Integer = 0 To 12 + Array.Add(Result.Co2발생량(i).환기면적) + Next + + Set_ReqUseRow("410", "단위면적당 CO2 발생량", "[kg CO2]", "", "=", Array, "N1") + + '//CO2저감량 + 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 + Set_ReqUseRow("410", "전력 CO2 저감량(열병합)", "[kg CO2]", CStr(Result.Co2배출계수.전력), "=", Array) '//103 + DSETR.AcceptChanges() + + End Sub + + Private Sub Set_ReqUseRow(ByVal GRP As String, ByVal desc As String, ByVal unit As String, ByVal sign As String, ByVal eq As String, ByVal Value As ArrayList, Optional ByVal F As String = "N0") + Dim DR As DSR.TReqUseRow : DR = DSETR.TReqUse.NewTReqUseRow + + DR.Code = Format(DSETR.TReqUse.Rows.Count + 1, "000") + DR.GRP = GRP '//그룹 출력할떄 그룹으로 뽑는다. + DR.Desc = desc '//설명 + DR.UNIT = unit '//단위 + DR.SIGN = sign '//기호 + DR.EQ = eq '//등호 = + DR.M00 = TOSG(Value.Item(0)) + DR.M01 = TOSG(Value.Item(1)) + DR.M02 = TOSG(Value.Item(2)) + DR.M03 = TOSG(Value.Item(3)) + DR.M04 = TOSG(Value.Item(4)) + DR.M05 = TOSG(Value.Item(5)) + DR.M06 = TOSG(Value.Item(6)) + DR.M07 = TOSG(Value.Item(7)) + DR.M08 = TOSG(Value.Item(8)) + DR.M09 = TOSG(Value.Item(9)) + DR.M10 = TOSG(Value.Item(10)) + DR.M11 = TOSG(Value.Item(11)) + DR.M12 = TOSG(Value.Item(12)) + DR.F = F + DSETR.TReqUse.AddTReqUseRow(DR) + End Sub + Private Sub Set_ReqUseRow(ByVal GRP As String, ByVal desc As String, ByVal unit As String, ByVal sign As String, ByVal eq As String, ByVal Value As Decimal, Optional ByVal F As String = "N0") + Dim DR As DSR.TReqUseRow : DR = DSETR.TReqUse.NewTReqUseRow + + DR.Code = Format(DSETR.TReqUse.Rows.Count + 1, "000") + DR.GRP = GRP '//그룹 출력할떄 그룹으로 뽑는다. + DR.Desc = desc '//설명 + DR.UNIT = unit '//단위 + DR.SIGN = sign '//기호 + DR.EQ = eq '//등호 = + DR.M00 = Value + DR.F = F + 'DR.M01 = CSng(Value.Item(1)) + 'DR.M02 = CSng(Value.Item(2)) + 'DR.M03 = CSng(Value.Item(3)) + 'DR.M04 = CSng(Value.Item(4)) + 'DR.M05 = CSng(Value.Item(5)) + 'DR.M06 = CSng(Value.Item(6)) + 'DR.M07 = CSng(Value.Item(7)) + 'DR.M08 = CSng(Value.Item(8)) + 'DR.M09 = CSng(Value.Item(9)) + 'DR.M10 = CSng(Value.Item(10)) + 'DR.M11 = CSng(Value.Item(11)) + 'DR.M12 = CSng(Value.Item(12)) + DSETR.TReqUse.AddTReqUseRow(DR) + End Sub + +End Class diff --git a/ArinWarev1/Calculator/CZone.vb b/ArinWarev1/Calculator/CZone.vb new file mode 100644 index 0000000..9a6696f --- /dev/null +++ b/ArinWarev1/Calculator/CZone.vb @@ -0,0 +1,907 @@ +Public Class CZone + + 'Public Event PBarSet(ByVal min As Integer, ByVal max As Integer) '//프로그레시브바 초기화 + Public Event Message(ByVal Msg As String, pval As Integer, pmin As Integer, pmax As Integer) '//메세지표시 + ' Public Event PBarVal(ByVal Value As Integer) '//프로그레시브 값설정 + + ''' + ''' (main)에너지요구량 계산 + ''' + ''' 에너지소요량을 추가로 계산하려면 True 를 입력 + ''' 로그가 입력될 스트링빌더 + ''' + Public Overridable Function Calc_LoadOfZones(showmsg As String, isSimul As Boolean, 기저비율 As Decimal, Optional ByVal p_난방설정온도 As Decimal = 20, Optional ByVal p_냉방설정온도 As Decimal = 26) As Boolean + + pLog.Add(">>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>") + pLog.Add("Calc_LoadOfZones") + pLog.Add(String.Format("기저비율:{0},난방설정온도:{1},냉방설정온도:{2}", 기저비율, p_난방설정온도, p_냉방설정온도)) + pLog.Add(">>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>") + + pLog.Add("요구량log는 임시 종료함", True) + pLog.LogEnable = False + + + Dim title As String = "" + + RaiseEvent Message(showmsg + "에너지요구량계산을 준비중입니다." + vbCrLf + "잠시만기다려주세요", 0, 0, 0) + 'i_count_OpWe As Integer, d_we_month As Integer, Q_h_b_we as decimal, ==================================2010.2.21 삭제 + + Dim t_24 As Integer, f_wind As Integer, t_NA As Integer, t_h_op_d As Integer, i_count_Is As Integer + Dim Delta_theta_er As Decimal, Delta_theta_i_NA As Decimal, Delta_theta_i_WE As Decimal, theta_i As Decimal, theta_i_h As Decimal, theta_i_c As Decimal, F_f As Decimal, F__F As Decimal, F_W As Decimal, F_S As Decimal, F_V As Decimal, h_r As Decimal, c_p_arhoa As Decimal, e_wind As Decimal, n_50 As Decimal, n_ue As Decimal, n_mech As Decimal, n_inf As Decimal, A_B As Decimal, A_u As Decimal, h_u As Decimal, V As Decimal, V_ue As Decimal + Dim H_V_inf As Decimal, H_V_mech As Decimal, H_V_ue As Decimal, H_V_z As Decimal, theta_z As Decimal, theta_u As Decimal, H_T_D As Decimal, H_T_iu As Decimal, H_T_iz As Decimal, H_T_s As Decimal, Delta_U_WB As Decimal, H_V_mech_theta As Decimal, theta_i_h_soll As Decimal, theta_i_c_soll As Decimal, theta_V_mech As Decimal ', theta_e_min as decimal, theta_e_max as decimal + Dim C_wirk As Decimal, tau As Decimal, a As Decimal, a_tb As Decimal, f_we As Decimal, f_NA As Decimal, f_tb As Decimal, Q_h_max As Decimal, theta_V_mech_RLT As Decimal + Dim Q_V_inf_sink As Decimal, Q_V_mech_sink As Decimal, Q_V_z_sink As Decimal, Q_V_sink As Decimal, Q_T_e_sink As Decimal, Q_T_u_sink As Decimal, Q_T_z_sink As Decimal, Q_T_s_sink As Decimal, Q_T_sink As Decimal, Q_S_sink As Decimal, R_se As Decimal, Q_source As Decimal, Q_sink As Decimal, Q_I_source As Decimal + Dim Q_V_inf_source As Decimal, Q_V_mech_source As Decimal, Q_V_z_source As Decimal, Q_V_source As Decimal, Q_T_e_source As Decimal, Q_T_u_source As Decimal, Q_T_z_source As Decimal, Q_T_s_source As Decimal, Q_T_source As Decimal, Q_S_source As Decimal + Dim Q_I_source_p As Decimal, Q_I_source_fac As Decimal, Q_I_L As Decimal, Q_l_b As Decimal, Q_w_b As Decimal, gamma As Decimal, eta As Decimal, Q_h_b As Decimal, Q_h_b_op As Decimal, g_TI As Decimal + Dim V_mech As Decimal + 'Dim d_op_month As Integer, theta_e_month as decimal + 'Dim A_H as decimal, A_C as decimal, A_L as decimal, A_W as decimal, A_V as decimal + Dim Q_vh_b_op As Decimal + Dim g_blinds As Decimal, tau_e_B As Decimal, rho_e_B As Decimal, U_blinds As Decimal, tau_e_B_corr As Decimal, rho_e_B_corr As Decimal 'EN 13363-1 적용 + Dim g As Decimal, alpa As Decimal + 'Dim i_sub_wall As Integer + Dim V_mech_outdoor As Decimal + + '//2010.02.04추가 + Dim Phi As Decimal + '//2010.02.21추가 + Dim d_op_mth As Integer + '//2011.04.04 추가 + 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 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") + ' priod_value = CSng(DRpriod.priod) + 'Next + 'If priod_value = 0 Then + ' age = 1 + 'Else + ' age = 1 / (1 - priod_value * 0.0012) + 'End If + + t_24 = 24 + F_f = 0.5 '구조체와 하늘과의 형태계수 + F__F = 0.7 '창 프레임 감소계수 __필요 + F_W = 0.9 '수직입사가 아닌경우에 대한 감소계수 + F_S = 1 '주변환경에 의한 그늘짐 + F_V = 1 '0.9 '우선 먼지팩터는 없는 것으로 가정 + h_r = 5 * 0.9 '= 5*e(모를경우 e=0.9) + Delta_theta_er = 10 + Delta_theta_i_NA = 4 '(용도별조건) + 'theta_i = 21 + 'theta_i_h = 21 + theta_i_h_soll = p_난방설정온도 ' 20 '//난방설정온도 + theta_i_c = 24 + theta_i_c_soll = p_냉방설정온도 ' 26 '//냉방설정온도 + theta_V_mech_RLT = 27 + 'theta_e_min = -11.3 + 'theta_e_max = 31.5 + c_p_arhoa = 0.34 '//먼지모름 + 'n_50 = 1.5 + n_ue = 0.6 + e_wind = 0.07 + f_wind = 15 + R_se = 0.043 '외기에 직접 열전달저항 확인요망 + g_TI = 0.35 '(2-113) + alpa = 0.4 '우선 0.4으로 설정 표면흡수율 도표 2-6 참조 + n_mech = 1 '임시 + A_u = 1 + h_u = 1 '임시 + + + + RaiseEvent Message("요구량계산준비완료", 0, 0, 0) + + + + '///////////////////////////////////////////////////// + For i_count_HeatCool As Integer = 1 To 2 '(1) 루프회전 난방/냉방 구분해서 회전한다. 둘의 산식이 거의 비슷하므로 루프를 이용해서 계산 + + For i_count_month As Short = 0 To 12 '(2) --월전체의 루프? + + If i_count_HeatCool = 1 AndAlso i_count_month = 1 Then + Console.WriteLine("col") + End If + + + title = showmsg + "요구량계산중..." & CStr(IIf(i_count_HeatCool = 1, "난방", "냉방")) & "(" & i_count_month & "/12)" + + pLog.Add(String.Format("요구량계산({0}),Month={1}", IIf(i_count_HeatCool = 1, "난방", "냉방"), i_count_month), True) + + RaiseEvent Message(title, i_count_month, 0, 12) + + Dim Mon As String = "M" & Format(i_count_month, "00") '//저장소의 필드명이 M00 식으로되어있다. + If i_count_month = 0 Then '//난방이라면? '//최소외기온도 난방기(theta_e_min) + Calc.Pub.theta_e(i_count_month) = TOSG(IIf(i_count_HeatCool = 1, Calc.Pub.theta_e_min, Calc.Pub.theta_e_max)) + pLog.Add(String.Format(" Calc.Pub.theta_e({0}) = {1}", i_count_month, Calc.Pub.theta_e(i_count_month))) + End If + + '//존 루프 + For Each DR존 As DS.tbl_zoneRow In DSET.tbl_zone.Select("code<>'0'", "code") ' DSET.tbl_zone.Rows.Count '(3) + + '//방식이나 공조는 ZZ는 사용안함이다 V=환기 외기부하처리여부의경우 0001 은 예이다. + zone_count = TOSG(DR존.입력존의수) + + pLog.Add(String.Format("Start Zone Code={0},Desc={1},입력존수={2}", DR존.code, DR존.설명, zone_count)) + + If DR존.냉난방방식 <> "기능없음" Or (DR존.냉난방공조 <> "기능없음" And (DR존.냉난방공조 <> "환기" Or DR존.외기부하처리여부 = "예")) Then + Q_vh_b_op = 0 + + '//i_count_OpWe 1은 평일 2는 주말이다ㅡㅡ/ + '======================================2010.2.21 삭제 + 'For i_count_OpWe = 1 To 2 + '======================================2010.2.21 삭제 + Q_V_inf_sink = 0 + Q_V_inf_source = 0 + Q_V_mech_sink = 0 + Q_V_mech_source = 0 + Q_V_z_sink = 0 + Q_V_z_source = 0 + Q_V_win_sink = 0 '//2011.04.04 추가 + Q_V_win_source = 0 '//2011.04.04 추가 + + Q_T_e_sink = 0 + Q_T_e_source = 0 + Q_T_u_sink = 0 + Q_T_u_source = 0 + Q_T_z_sink = 0 + Q_T_z_source = 0 + Q_T_s_sink = 0 + Q_T_s_source = 0 + + A_B = TOSG(DR존.면적) ' Worksheets("입력존").Range("전용면적1").Offset(0, i_count_zone - 1) + V = TOSG(DR존.순실체적) ' Worksheets("입력존").Range("체적1").Offset(0, i_count_zone - 1) + V_ue = A_u * h_u + 'Log.AppendLine(" >> V_ue = A_u * h_u = // au와 hu 는 선언부에서 1값으로 고정되어있음 v_ue는 항상 1") + + '//존의 프로필설정에대한 실제 프로필의 데이터를 가져옴 + Dim DR프로필() As DS.tbl_profileRow = CType(DSET.tbl_profile.Select("code='" & DR존.프로필 & "' and code <> '0'"), DS.tbl_profileRow()) + If DR프로필.GetUpperBound(0) = -1 Then + MsgBox("존=" & DR존.code & " 의 프로필=" & DR존.프로필 & " 의 데이터가 존재하지않습니다", MsgBoxStyle.Critical, "확인") + Return False + Else + 'Log.AppendLine(" >> 존의 프로필코드(" & DR존.프로필 & ") 에 해당하는 프로필정보를 가져옵니다") + t_h_op_d = TOIT(DR프로필(0).운전시간난방) ' Worksheets("설정조건").Range("사용시작시간1").Offset(5, i_count_profile) + '===================================================================================2010.2.21 추가 + If i_count_month = 0 Then + d_op_mth = 0 + Else + d_op_mth = CInt(TOSG(DR프로필(0)("day" & Format(i_count_month, "00")))) + End If + '===================================================================================2010.2.21 추가 + If Not isSimul Then '//개선계산중이아닌경우에만 사용한다. + theta_i_h_soll = TOSG(DR프로필(0).난방설정온도) ' Worksheets("설정조건").Range("난방설정온도1").Offset(0, i_count_profile) + theta_i_c_soll = TOSG(DR프로필(0).냉방설정온도) ' Worksheets("설정조건").Range("냉방설정온도1").Offset(0, i_count_profile) + End If + Delta_theta_i_NA = TOSG(DR프로필(0).야간최저허용온도) ' Worksheets("설정조건").Range("야간최저허용온도1").Offset(0, i_count_profile) + Delta_theta_i_WE = TOSG(DR프로필(0).주말최저허용온도) ' Worksheets("설정조건").Range("주말최저허용온도1").Offset(0, i_count_profile) + ' If i_count_OpWe = 1 Then=============================================================2010.2.21 삭제 + 'Log.AppendLine(" >> i_count_OpWe = 1 >> Q_I_source_p/Q_I_source_fac/V_mech 계산됨") + Q_I_source_p = TOSG(DR프로필(0).사람) * A_B ' Worksheets("설정조건").Range("사람1").Offset(0, i_count_profile) * A_B '(2-118) + Q_I_source_fac = (TOSG(DR프로필(0).작업보조기기) * A_B) + 기저비율 ' Worksheets("설정조건").Range("작업보조기기1").Offset(0, i_count_profile) * A_B '(2-119) + V_mech = TOSG(DR프로필(0).최소도입외기량) * A_B ' Worksheets("설정조건").Range("최소도입외기량1").Offset(0, i_count_profile) * A_B + ' Else '=============================================================2010.2.21 삭제 + ' Log.AppendLine(" >> i_count_OpWe <> 1 >> Q_I_source_p/Q_I_source_fac 는 0입니다") + ' Q_I_source_p = 0 '주말 사람없음 + ' Q_I_source_fac = 0 '주말 기기발열 없음 + 'End If + 'Q_I_L = 0 'mu_L*Q_I_L_elektr (2-123)추후 추가 + 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 + End If + Else + If DR존.냉난방공조 <> "냉방" AndAlso DR존.냉난방공조 <> "냉난방" Then '냉방/냉난방이 아닐경우 + If theta_i_c_soll < Calc.Pub.theta_e(i_count_month) Then + Q_vh_b_op = V_mech * (Calc.Pub.theta_e(i_count_month) - theta_i_c_soll) * 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 + End If + End If + End If + + pLog.Add(String.Format("Q_vh_b_op:{0},V_mech_outdoor:{1}", Q_vh_b_op, V_mech_outdoor)) + + + + n_50 = TOSG(DR존.침기율) '//tosg 는 빈값일경우 0을 반환 + n_inf = n_50 * e_wind '(2-59) 환기기기 없는 경우 + 'n_inf = n_50 * e_wind * (1 + f_V_mech * t_V_mech / 24) '(2-60) 급기 및 배기에 대한 환기회수 필요 + '///////////////////////////////////////////////////////////////////////////////////////////////////////2011.04.04 추가 + 'If n_nutz < 1.2 Then + ' Delta_n_win = n_nutz - (n_nutz - 0.2) * n_inf - 0.1 + 'Else + ' Delta_n_win = n_nutz - n_inf - 0.1 + 'End If + 'If Delta_n_win < 0 Then + ' Delta_n_win = 0 + 'End If + 'n_win = 0.1 + Delta_n_win * t_h_op_d / 24 + n_win = 0.1 ' 최소외기 도입량은 환기기기 유무와 상관없이 적용되는 것으로 평가하기 때문에 자연환기 기본값만 적용 + '///////////////////////////////////////////////////////////////////////////////////////////////////////2011.04.04 추가 + + + H_T_D = 0 + H_T_iu = 0 + H_T_iz = 0 + + + Dim Drow프로필 As DS.tbl_profileRow = CType(DSET.tbl_profile.Select("code='" & DR존.프로필 & "' and code <> '0'")(0), DS.tbl_profileRow) + If DR존.조명부하산출방법 = "계산치" Then + Q_I_L = TOSG(DR존.조명에너지부하율계산치) * TOSG(Drow프로필.일일사용시간) * A_B + Else + Q_I_L = TOSG(DR존.조명에너지부하율입력치) * TOSG(Drow프로필.일일사용시간) * A_B + End If + 'Q_I_L = TOSG(IIf(DR존.조명부하산출방법 = "계산치", TOSG(DR존.조명에너지부하율계산치), TOSG(DR존.조명에너지부하율입력치))) * TOSG(Drow프로필.일일사용시간) * A_B + Q_w_b = TOSG(Drow프로필.일일급탕요구량) * A_B * d_op_mth + '===================================2010.2.21 삭제 + 'If DR존.조명부하산출방법 = "CALC" Then '//OpWe의 2번은 주말인거 같다. + ' '//부하율계산치?입력치구분 + ' Q_w_b = TOSG(DR존.급탕요구량) * A_B * Calc.Pub.d_op_mth(i_count_month) + 'Else + ' Q_I_L = 0 '주말 소등으로 설정 + ' Q_w_b = 0 '주말은 급탕사용안함 + 'End If + '===================================2010.2.21 삭제 + + 'Log.AppendLine(" >> 현재존을 사용하는 각 입력면(" & DSET.tbl_myoun.Select("존분류='" & DR존.code & "'").GetUpperBound(0) & ")으로부터 데이터를 누적") + For Each Dr입력면 As DS.tbl_myounRow In DSET.tbl_myoun.Select("존분류='" & DR존.code & "'") + If Dr입력면.code <> "0" Then + If DR존.열교가산치 = "내단열" Then + Delta_U_WB = 0.15 '내단열(=0001) Worksheets("입력존").Range("열교1").Offset(0, i_count_zone - 1) = "내단열" Then + Else + Delta_U_WB = 0.1 '내단열(=0001) Worksheets("입력존").Range("열교1").Offset(0, i_count_zone - 1) = "내단열" Then + End If + Select Case Dr입력면.건축부위방식.Trim ' Case Worksheets("입력면").Range("입력부위" & i_sub_wall & "").Offset(0, i_count_wall) + Case "외벽" '"외벽" + 'Dr입력면.열관류율 >> Calc.Get_열관류율(Dr입력면) + H_T_D = H_T_D + Calc.Get_열관류율(Dr입력면) * age * TOSG(Dr입력면.건축부위면적) + Delta_U_WB * TOSG(Dr입력면.건축부위면적) ' Worksheets("입력면").Range("부위면적" & i_sub_wall & "").Offset(0, i_count_wall) '(2-44) Delta_U_WB는 외단열 0.1, 내단열 0.15 + Case "외부창", "내부창" '=================2010.03.20 수정 + If Dr입력면.블라인드유무 = "유" Then ' '0001(=유) Range("에너지투과율" & i_sub_wall & "").Offset(3, i_count_wall) = "유" Then + If Calc.Get_열관류율(Dr입력면) = 0 Then + MsgBox("블라인드 사용이지만 열관류율 수치가 입력되지 않았습니다", MsgBoxStyle.Critical, "확인") + Else + Select Case Dr입력면.블라인드위치.Trim ' Range("에너지투과율" & i_sub_wall & "").Offset(4, i_count_wall) + Case "내부" '"내부" + U_blinds = TOSG(1 / (1 / (Calc.Get_열관류율(Dr입력면) * age) + 1 / 30)) + Case "중간" '중간" + U_blinds = TOSG(1 / (1 / (Calc.Get_열관류율(Dr입력면) * age) + 1 / 3)) + Case "외부" ' '외부" + U_blinds = TOSG(1 / (1 / (Calc.Get_열관류율(Dr입력면) * age) + 1 / 5 + 1 / 10)) + End Select + End If + + Else + U_blinds = Calc.Get_열관류율(Dr입력면) * age 'Worksheets("입력면").Range("열관류율" & i_sub_wall & "").Offset(0, i_count_wall) + End If + + '=========================================================================================================2010.03.20 수정 + If Dr입력면.건축부위방식.Trim = "외부창" Then + H_T_D = H_T_D + U_blinds * TOSG(Dr입력면.건축부위면적) + Delta_U_WB * TOSG(Dr입력면.건축부위면적) '(2-44) Delta_U_WB는 외단열 0.1, 내단열 0.15 + Else + H_T_iu = H_T_iu + U_blinds * TOSG(Dr입력면.건축부위면적) + End If + '=========================================================================================================2010.03.20 수정 + Case "내벽" ' "내벽" + H_T_iu = H_T_iu + Calc.Get_열관류율(Dr입력면) * age * TOSG(Dr입력면.건축부위면적) '(2-48) + Case "간벽" '"간벽" + H_T_iz = H_T_iz + Calc.Get_열관류율(Dr입력면) * age * TOSG(Dr입력면.건축부위면적) '(2-52) + Case Else + MsgBox("입력면 건축부위방식이 없습니다", MsgBoxStyle.Critical, "확인") + Return False + End Select + End If + Next + + + If H_T_D = 0 Then + H_V_inf = 0 + Else + H_V_inf = n_inf * V * c_p_arhoa '(2-58) c_p_arhoa는 0.34 V는 존의 체적 + End If + H_V_win = n_win * V * c_p_arhoa '//2011.04.04 추가 + H_V_mech = V_mech * c_p_arhoa 'n_mech * V * c_p_arhoa '(2-83) + H_V_ue = n_ue * V_ue * c_p_arhoa '(2-94) + 'H_V_z = n_z_d * c_p_arhoa '(2-99) + + pLog.Add(String.Format("H_V_inf:{0},H_V_win:{1},H_V_mech:{2},H_V_ue:{3}", H_V_inf, H_V_win, H_V_mech, H_V_ue)) + + + If DR존.열저장능력 = "" Then + MsgBox(DR존.설명 & "의 열저장능력이 입력되어 있지않습니다", MsgBoxStyle.Critical, "확인") + C_wirk = 0 + Else + C_wirk = TOSG(DR존.열저장능력) * A_B ' .Worksheets("입력존").Range("열저장능력1").Offset(0, i_count_zone - 1) * A_B + End If + + If i_count_HeatCool = 1 Then + H_V_mech_theta = 0 'H_V_mech * (theta_i_h_soll - theta_V_mech) / 6 '(2-130) 우선 고려안함 + Else + H_V_mech_theta = 0 'H_V_mech * (theta_i_c_soll - theta_V_mech) / 6 '(2-130) + End If + tau = C_wirk / ((H_T_D + H_T_iu + H_T_iz) + (H_V_inf + H_V_mech + H_V_ue + H_V_win) + H_V_mech_theta) '(2-22, 129) 추후 H_V_z 추가 '//2011.04.04 H_V_win 추가 + If tau < 48 Then tau = 48 + + a = 1 + tau / 16 '(2-25) + + a_tb = 1 ' =A_beheizt / A_B 'A_beheizt는 난방면적, A_B는 전용면적 + + t_NA = 24 - t_h_op_d + f_tb = TOSG(0.8 * (1 - Math.Exp(-Q_h_max / (A_B * 35))) * a_tb ^ 2) '(2-34) + + pLog.Add(String.Format("t_NA:{0},f_tb:{1}", t_NA, f_tb)) + + '================================================2010.2.21 삭제 + 'If i_count_OpWe = 1 Then + '================================================2010.2.21 삭제 + Select Case DR존.야간운전방식.Trim '공통1002 Worksheets("입력존").Range("야간가동1").Offset(0, i_count_zone - 1) + Case "정상가동" '정상가동" + f_NA = 0 + Case "감소가동" '감소가동" + f_NA = TOSG(0.13 * t_NA * Math.Exp(-tau / 250) / 24) '(2-28) 감소가동 + Case "가동정지" '가동정지" + f_NA = TOSG(0.26 * t_NA * Math.Exp(-tau / 250) / 24) '(2-29) 가동정지 + End Select + theta_i_h = theta_i_h_soll - f_NA * (theta_i_h_soll - Calc.Pub.theta_e(i_count_month)) + If theta_i_h < theta_i_h_soll - Delta_theta_i_NA * t_NA / 24 Then theta_i_h = theta_i_h_soll - Delta_theta_i_NA * t_NA / 24 '(2-27) 야간감소 + '================================================2010.2.21 삭제 + 'Else + '================================================2010.2.21 삭제 + Select Case DR존.주말운전방식.Trim ' Worksheets("입력존").Range("주말가동1").Offset(0, i_count_zone - 1) + Case "정상가동" '정상가동" + f_we = 0 + Case "감소가동" '감소가동" + f_we = TOSG(0.2 * (1 - 0.4 * tau / 250)) '(2-31) 난방감소 + Case "가동정지" '가동정지" + f_we = TOSG(0.3 * (1 - 0.2 * tau / 250)) '(2-32) 난방정지식 + End Select + theta_i_h = theta_i_h_soll - f_we * (theta_i_h_soll - Calc.Pub.theta_e(i_count_month)) + If theta_i_h < theta_i_h_soll - Delta_theta_i_WE Then theta_i_h = theta_i_h_soll - Delta_theta_i_WE '(2-30) 주말감소식 변형 + '================================================2010.2.21 삭제 + 'End If + '================================================2010.2.21 삭제 + + pLog.Add(String.Format("theta_i_h:{0}", theta_i_h)) + + If i_count_HeatCool = 1 Then + theta_i = theta_i_h + theta_z = theta_i_h + theta_u = TOSG(theta_i_h_soll - 0.7 * (theta_i_h_soll - Calc.Pub.theta_e(i_count_month))) + Else + theta_i = theta_i_c_soll '24'에너지 사용량 계산할때 24 사용 + theta_z = theta_i_c_soll + theta_u = TOSG(theta_i_c_soll - 0.7 * (theta_i_c_soll - Calc.Pub.theta_e(i_count_month))) + End If + + 'theta_i_h = theta_i_h_soll - f_tb * (theta_i_h_soll - theta_e(i_count_month)) '(2-33) 공간적제한 + 'theta_i_h = theta_i_NA - f_tb * (theta_i_NA - theta_e(i_count_month)) '(2-35) 공간적 시간적 제한 + + 'theta_V_mech = theta_e(i_count_month) '(2-90) 공조처리 없는 경우 + '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()) + 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) + Case Else + Phi = 0 + 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 + End If + '=======================================================================2010.02.04 추가부분 끝 + + If theta_i > Calc.Pub.theta_e(i_count_month) Then + Q_V_inf_sink = H_V_inf * (theta_i - Calc.Pub.theta_e(i_count_month)) * t_24 '(2-56) + Q_V_win_sink = H_V_win * (theta_i - Calc.Pub.theta_e(i_count_month)) * t_24 '//2011.04.04 추가 + Else + Q_V_inf_source = H_V_inf * (Calc.Pub.theta_e(i_count_month) - theta_i) * t_24 '(2- + Q_V_win_source = H_V_win * (Calc.Pub.theta_e(i_count_month) - theta_i) * t_24 '//2011.04.04 추가 + End If + '================================================2010.2.21 삭제 + 'If i_count_OpWe = 1 Then + '================================================2010.2.21 삭제 + If theta_i > theta_V_mech Then + Q_V_mech_sink = H_V_mech * V_mech_outdoor * (theta_i - theta_V_mech) * t_h_op_d '(2-81) + Else + Q_V_mech_source = H_V_mech * V_mech_outdoor * (theta_V_mech - theta_i) * t_h_op_d '(2- + End If + '================================================2010.2.21 삭제 + 'Else + 'If theta_i > theta_V_mech Then + ' Q_V_mech_sink = 0 + 'Else + ' Q_V_mech_source = 0 + 'End If + 'End If + '================================================2010.2.21 삭제 + + pLog.Add(String.Format("Q_V_inf_sink:{0},Q_V_win_sink:{1},Q_V_mech_sink:{2},Q_V_mech_source:{3}", _ + Q_V_inf_sink, Q_V_win_sink, Q_V_mech_sink, Q_V_mech_source)) + + + If theta_i > theta_z Then + Q_V_z_sink = H_V_z * (theta_i - theta_z) * t_24 '(2-97) + Else + Q_V_z_source = H_V_z * (theta_z - theta_i) * t_24 '(2- + End If + + + Q_V_sink = Q_V_inf_sink + Q_V_mech_sink + Q_V_z_sink + Q_V_win_sink '(2-13) '//2011.04.04 추가 + + '//Console.WriteLine(String.Format("mon={0},QV_sink={1},{2},{3},{4},{5}", i_count_month, Q_V_sink, Q_V_inf_sink, Q_V_mech_sink, Q_V_z_sink, Q_V_win_sink)) + + Q_V_source = Q_V_inf_source + Q_V_mech_source + Q_V_z_source + Q_V_win_source '(2- '//2011.04.04 추가 + + If theta_i > Calc.Pub.theta_e(i_count_month) Then + Q_T_e_sink = H_T_D * (theta_i - Calc.Pub.theta_e(i_count_month)) * t_24 '(2-42) + Else + Q_T_e_source = H_T_D * (Calc.Pub.theta_e(i_count_month) - theta_i) * t_24 '(2- + End If + + If theta_i > theta_u Then + Q_T_u_sink = H_T_iu * (theta_i - theta_u) * t_24 '(2-46) + Else + Q_T_u_source = H_T_iu * (theta_u - theta_i) * t_24 '(2- + End If + + If theta_i > theta_z Then + Q_T_z_sink = H_T_iz * (theta_i - theta_z) * t_24 '(2-50) + Else + Q_T_z_source = H_T_iz * (theta_z - theta_i) * t_24 '(2- + End If + + If theta_i > Calc.Pub.theta_e(i_count_month) Then + Q_T_s_sink = H_T_s * (theta_i - Calc.Pub.theta_e(i_count_month)) * t_24 '(2-53) 추후수정 + Else + Q_T_s_source = H_T_s * (Calc.Pub.theta_e(i_count_month) - theta_i) * t_24 '(2-53) 추후수정 + End If + + Q_T_sink = Q_T_e_sink + Q_T_u_sink + Q_T_z_sink + Q_T_s_sink '(2-12) + Q_T_source = Q_T_e_source + Q_T_u_source + Q_T_z_source + Q_T_s_source '(2-12) + + Q_S_sink = 0 + Q_S_source = 0 + + pLog.Add(String.Format("Q_T_sink:{0},Q_T_source:{1}", Q_T_sink, Q_T_source)) + + For Each DRF입력면 As DS.tbl_myounRow In DSET.tbl_myoun.Select("존분류='" & DR존.code & "' and code <> '0'") '//해당존을 사용하는 모든 입력면을 가져옴 + Select Case DRF입력면.방위.Trim ' Worksheets("입력면").Range("방위" & i_sub_wall & "").Offset(0, i_count_wall) + Case "수평" '"수평" + i_count_Is = 0 + Case "남" '"남" + i_count_Is = 1 + Case "남동" '"남동" + i_count_Is = 2 + Case "남서" '"남서" + i_count_Is = 3 + Case "동" '"동" + i_count_Is = 4 + Case "서" '"서" + i_count_Is = 5 + Case "북동" '"북동" + i_count_Is = 6 + Case "북서" '"북서" + i_count_Is = 7 + Case "북" '"북" + i_count_Is = 8 + '==========================================================2010.03.20 추가 + Case Else + i_count_Is = -1 + '==========================================================2010.03.20 추가 + End Select + + If i_count_Is <> -1 Then '=====================================2010.03.20 추가 + + + Select Case DRF입력면.건축부위방식.Trim ' Range("입력부위" & i_sub_wall & "").Offset(0, i_count_wall) + Case "외벽" '외벽 + If alpa * Calc.Pub.I_s(i_count_Is, i_count_month) < F_f * h_r * Delta_theta_er Then + Q_S_sink = Q_S_sink + R_se * Calc.Get_열관류율(DRF입력면) * age * TOSG(DRF입력면.건축부위면적) * (F_f * h_r * Delta_theta_er - alpa * Calc.Pub.I_s(i_count_Is, i_count_month)) * t_24 '(2-111) + Else + 'Log.AppendLine("외벽 if else = " & Q_S_source) + Q_S_source = Q_S_source + R_se * Calc.Get_열관류율(DRF입력면) * age * TOSG(DRF입력면.건축부위면적) * (alpa * Calc.Pub.I_s(i_count_Is, i_count_month) - F_f * h_r * Delta_theta_er) * t_24 '(2- + 'Log.AppendLine(">>" & Q_S_source) + End If + + Case "외부창", "내부창" '=====================================2010.03.20 수정 + If TOSG(DRF입력면.수평차양각) < 67.5 Then 'Range("에너지투과율" & i_sub_wall & "").Offset(1, i_count_wall) < 67.5 Then + + If DRF입력면.블라인드유무 = "유" Then ' Range("에너지투과율" & i_sub_wall & "").Offset(3, i_count_wall) = "유" Then + Select Case DRF입력면.블라인드빛종류.Trim ' Range("에너지투과율" & i_sub_wall & "").Offset(6, i_count_wall) + Case "불투과(t=0.0)" '불투과(t=0.0)" + tau_e_B = 0 + Select Case DRF입력면.블라인드색상.Trim ' Range("에너지투과율" & i_sub_wall & "").Offset(7, i_count_wall) + Case "흰색" '흰색" + rho_e_B = 0.7 + Case "밝은색" '밝은색" + rho_e_B = 0.5 + Case "어두운색" '어두운색" + rho_e_B = 0.3 + Case "검은색" '검은색" + rho_e_B = 0.1 + Case Else + MsgBox("불투과 블라인드색상이 없습니다", MsgBoxStyle.Critical, "확인") + End Select + Case "약투과(t=0.2)" '약투과(t=0.2)" + tau_e_B = 0.2 + Select Case DRF입력면.블라인드색상.Trim 'Range("에너지투과율" & i_sub_wall & "").Offset(7, i_count_wall) + Case "흰색" + rho_e_B = 0.6 + Case "밝은색" + rho_e_B = 0.4 + Case "어두운색" + rho_e_B = 0.2 + Case "검은색" + rho_e_B = 0.1 + Case Else + MsgBox("약투과 블라인드색상이 없습니다", MsgBoxStyle.Critical, "확인") + End Select + Case "반투과(t=0.4)" '반투과(t=0.4)" + tau_e_B = 0.4 + Select Case DRF입력면.블라인드색상.Trim 'Range("에너지투과율" & i_sub_wall & "").Offset(7, i_count_wall) + Case "흰색" + rho_e_B = 0.4 + Case "밝은색" + rho_e_B = 0.3 + Case "어두운색" + rho_e_B = 0.2 + Case "검은색" + rho_e_B = 0.1 + Case Else + MsgBox("반투과 블라인드색상이 없습니다", MsgBoxStyle.Critical, "확인") + End Select + End Select + + If DRF입력면.블라인드각도 = "45도" Then ' Range("에너지투과율" & i_sub_wall & "").Offset(5, i_count_wall) = "45도" Then + tau_e_B_corr = TOSG(0.65 * tau_e_B + 0.15 * rho_e_B) + rho_e_B_corr = TOSG(rho_e_B * (0.75 + 0.7 * tau_e_B)) + tau_e_B = tau_e_B_corr + rho_e_B = rho_e_B_corr + End If + + g = TOSG(DRF입력면.투과율) ' Range("에너지투과율" & i_sub_wall & "").Offset(0, i_count_wall) + If DRF입력면.블라인드위치.Trim <> "" AndAlso Calc.Get_열관류율(DRF입력면) = 0 Then + MsgBox(DRF입력면.설명 & "의 열관류율이 0입니다", MsgBoxStyle.Critical, "확인") + Else + Select Case DRF입력면.블라인드위치.Trim 'Range("에너지투과율" & i_sub_wall & "").Offset(4, i_count_wall) + Case "내부" '내부" + U_blinds = TOSG(1 / (1 / (Calc.Get_열관류율(DRF입력면) * age) + 1 / 30)) + g_blinds = g * (1 - g * rho_e_B - (1 - tau_e_B - rho_e_B) * U_blinds / 30) + Case "중간" '중간" + U_blinds = TOSG(1 / (1 / (Calc.Get_열관류율(DRF입력면) * age) + 1 / 3)) + g_blinds = g * tau_e_B + g * ((1 - tau_e_B - rho_e_B) + (1 - g) * rho_e_B) * U_blinds / 3 + Case "외부" '외부" + U_blinds = TOSG(1 / (1 / (Calc.Get_열관류율(DRF입력면) * age) + 1 / 5 + 1 / 10)) + g_blinds = tau_e_B * g + (1 - tau_e_B - rho_e_B) * U_blinds / 10 + tau_e_B * (1 - g) * g / 5 + Case Else + MsgBox("블라인드위치가 없습니다", MsgBoxStyle.Critical, "확인") + End Select + End If + '===========================================================================2010.02.27 추가 + If i_count_month = 0 Then + If i_count_HeatCool = 1 Then + g_blinds = (1 - Calc.Pub.F_sh_gl(i_count_Is - 1, 1 - 1)) * g + Calc.Pub.F_sh_gl(i_count_Is - 1, 1 - 1) * g_blinds + Else + g_blinds = (1 - Calc.Pub.F_sh_gl(i_count_Is - 1, 7 - 1)) * g + Calc.Pub.F_sh_gl(i_count_Is - 1, 7 - 1) * g_blinds + End If + Else + g_blinds = (1 - Calc.Pub.F_sh_gl(i_count_Is - 1, i_count_month - 1)) * g + Calc.Pub.F_sh_gl(i_count_Is - 1, i_count_month - 1) * g_blinds + End If + '===========================================================================2010.02.27 추가 + + Else + g_blinds = TOSG(DRF입력면.투과율) ' Range("에너지투과율" & i_sub_wall & "").Offset(0, i_count_wall) + + End If + If TOSG(DRF입력면.수평차양각) < 67.5 Then '===================================================================2014.04.03 if문 추가 + Q_S_source = TOSG(Q_S_source + F__F * TOSG(DRF입력면.건축부위면적) * F_S * F_W * F_V * g_blinds * Math.Cos(1.33 * TOSG(DRF입력면.수평차양각) * 3.141592 / 180) * (1 - TOSG(DRF입력면.수직차양각) / 300) * Calc.Pub.I_s(i_count_Is, i_count_month) * t_24) '(2-113) + End If + + End If + End Select + End If '==========================================================2010.03.20 추가 + Next + + Q_I_source = Q_I_source_p + Q_I_source_fac + Q_I_L '(2-20) + Q_source = Q_S_source + Q_T_source + Q_V_source + Q_I_source '(2-16) + If i_count_month = 0 AndAlso i_count_HeatCool = 1 Then Q_source = 0 ' 난방 최대부하 계산 + Q_sink = Q_T_sink + Q_V_sink + Q_S_sink '(2-11) Q_I_sink는 현재 고려안함 + + If Q_sink = 0 Then + eta = 0 + Else + gamma = Q_source / Q_sink '(2-21) + 'If gamma > 1.1 And a > 100 Then + If gamma ^ a > 1000000 Then + eta = 1 / gamma + Else + If gamma = 1 Then + eta = a / (a + 1) '(2-24) + Else + eta = TOSG((1 - gamma ^ a) / (1 - gamma ^ (a + 1))) '(2-23) + End If + End If + + If 1 - (eta * gamma) < 0.01 Then eta = 1 / gamma '(2-137) + If (1 - eta) * gamma < 0.01 Then eta = 1 '(2-138) + 'If V_mech >= Q_C_max / (c_p_arhoa * (theta_i - theta_mech)) Then eta = 1 '(2-139) 추후 고민 + End If + + If i_count_HeatCool = 1 Then + Q_h_b = Q_sink - eta * Q_source '(2-1) + Else + Q_h_b = (1 - eta) * Q_source '(2-7) + End If + + If Q_h_b < 0.001 Then Q_h_b = 0 '1W 미만 제거 + + pLog.Add(String.Format("Q_h_b:{0}", Q_h_b)) + + '========================================================2010.2.21 수정 And i_count_OpWe = 1 삭제 + If i_count_month = 0 Then + If t_h_op_d <> 0 Then + Q_h_b_op = Q_h_b / t_h_op_d * zone_count + Else + Q_h_b_op = Q_h_b * zone_count + End If + Else + '=================================================2010.2.21 삭제 + 'If i_count_OpWe = 1 Then + '=================================================2010.2.21 삭제 + Q_h_b_op = Q_h_b * d_op_mth * zone_count + ' MsgBox(i_count_month & " " & Q_h_b & " " & d_op(i_count_month) & " " & Q_h_b_op) + '=================================================2010.2.21 삭제 + 'Else + 'Q_h_b_we = Q_h_b * Calc.Pub.d_we(i_count_month) + '=================================================2010.2.21 삭제 + Dim DRProf As DS.tbl_profileRow = CType(DSET.tbl_profile.Select("code='" & DR존.프로필 & "' and code <> '0'")(0), DS.tbl_profileRow) + If DR존.조명부하산출방법 = "계산치" Then 'Worksheets("조명").Range("조명부하산출방법1").Offset(0, i_count_zone - 1) = "계산치" Then + Q_l_b = TOSG(DR존.조명에너지부하율계산치) * TOSG(DRProf.일일사용시간) * A_B * d_op_mth * zone_count + Else + Q_l_b = TOSG(DR존.조명에너지부하율입력치) * TOSG(DRProf.일일사용시간) * A_B * d_op_mth * zone_count + End If + Q_w_b = TOSG(DRProf.일일급탕요구량) * A_B * d_op_mth * zone_count 'Worksheets("입력존").Range("일일급탕요구량1").Offset(0, i_count_zone - 1) * A_B * d_op(i_count_month) + '=================================================2010.2.21 삭제 + 'End If + '=================================================2010.2.21 삭제 + End If + 'Q_h_b_mth = d_op(i_count_month) * (Q_sink_op - eta_op * Q_source_op) + d_we(i_count_month) * (Q_sink_we - eta_we * Q_source_we) '(2-6) + '======================================2010.2.21 삭제 + 'Next + '======================================2010.2.21 삭제 + Else + A_B = TOSG(DR존.면적) ' Worksheets("입력존").Range("전용면적1").Offset(0, i_count_zone - 1) + + Q_vh_b_op = 0 + Q_h_b_op = 0 + 'Q_h_b_we = 0 + + '//조명부하산출방법이 계산치(0001)일경우 계산치로 그렇지않을경우 입력치로 계산함 + Dim DRProf As DS.tbl_profileRow = CType(DSET.tbl_profile.Select("code='" & DR존.프로필 & "' and code <> '0'")(0), DS.tbl_profileRow) + + If DR존.조명부하산출방법 = "계산치" Then + Q_l_b = TOSG(DR존.조명에너지부하율계산치) * TOSG(DRProf.일일사용시간) * A_B * d_op_mth * zone_count + Else + Q_l_b = TOSG(DR존.조명에너지부하율입력치) * TOSG(DRProf.일일사용시간) * A_B * d_op_mth * zone_count + End If + + Q_w_b = TOSG(DRProf.일일급탕요구량) * A_B * d_op_mth * zone_count '===============d_op(i_count_month) 2010.2.21 수정 + End If + + pLog.Add(String.Format("Q_w_b:{0}", Q_w_b)) + + Dim Dr최대부하 As New C최대냉난방부하.Citem(DSETR, DR존.code) ' DSR.최대냉난방부하Row = CType(DSETR.최대냉난방부하.Select("zone='" & DR존.code & "'")(0), DSR.최대냉난방부하Row) + + If i_count_HeatCool = 1 Then + If i_count_month = 0 Then '//0번시트는최대 냉난방부하 시트이다. + Dr최대부하.최대난방기기부하 = TOSG((Q_h_b_op) / 1000) ''=================== Q_h_b_we 2010.2.21 삭제 + 'Worksheets("" & i_count_month & "").Range("최대난방부하1").Offset(0, i_count_zone - 1) = (Q_h_b_op + Q_h_b_we) / 1000 + If DR존.야간운전방식 = "가동정지" Then ' Worksheets("입력존").Range("야간가동1").Offset(0, i_count_zone - 1) = "가동정지" Then + Dr최대부하.일일난방최대가동시간 = t_h_op_d + 'Dr최대냉난방부하.난방최대가동시간 = t_h_op_d ' Worksheets("" & i_count_month & "").Range("최대난방부하1").Offset(2, i_count_zone - 1) = t_h_op_d + Else + Dr최대부하.일일난방최대가동시간 = 24 + 'Dr최대냉난방부하.난방최대가동시간 = 24 ' Worksheets("" & i_count_month & "").Range("최대난방부하1").Offset(2, i_count_zone - 1) = 24 + End If + Else + Dim Dr월에너지요구량 As New C에너지분석(DSETR, Result, i_count_month, DR존.code) + + 'Dim Dr월에너지요구량 As DSR.월별에너지분석Row = CType(DSETR.월별에너지분석.Select("월='" & Mon & "' and 존='" & DR존.code & "'")(0), DSR.월별에너지분석Row) + 'Dr월에너지요구량 = DSETR.에너지분석및요구량.Rows(i_count_month - 1) '//각 월별 시트에 값을 셋트(에너지분석및요구량 테이블에 들어있다) + If DR존.냉난방방식 = "냉난방" Or DR존.냉난방방식 = "난방" Then '//냉난방,난방 + Dr월에너지요구량.난방에너지요구량열 = TOSG((Q_h_b_op) / 1000) '=================== Q_h_b_we 2010.2.21 삭제 + Dr월에너지요구량.난방에너지요구량공조환기 = TOSG(Q_vh_b_op / 1000) + ' If i_count_month = 1 Then MsgBox("1") + 'Log.AppendLine("공조값설정=" & CSng(Q_vh_b_op / 1000)) + ElseIf DR존.냉난방공조 = "냉난방" Or DR존.냉난방공조 = "난방" Then '//냉난방,난방 + Dr월에너지요구량.난방에너지요구량열 = 0 + Dr월에너지요구량.난방에너지요구량공조환기 = TOSG((Q_h_b_op) / 1000) '=================== Q_h_b_we 2010.2.21 삭제 + + '//오류확인용 존1만 확인한다. + 'If DR존.code = "0001" Then MsgBox(DR존.냉난방방식 & vbCrLf & DR존.냉난방공조 & vbCrLf & CSng((Q_h_b_op + Q_h_b_we) / 1000), MsgBoxStyle.Information, DR존.code) + + Else + If (DR존.냉난방공조 = "냉방" Or DR존.냉난방공조 = "환기") And DR존.외기부하처리여부 = "예" Then '냉방/환기/"예" Then + Dr월에너지요구량.난방에너지요구량열 = 0 + ' If i_count_month = 1 Then MsgBox("3") + Dr월에너지요구량.난방에너지요구량공조환기 = TOSG(Q_vh_b_op / 1000) + Else + ' If i_count_month = 1 Then MsgBox("4") + Dr월에너지요구량.난방에너지요구량열 = 0 + Dr월에너지요구량.난방에너지요구량공조환기 = 0 + End If + End If + + Dr월에너지요구량.조명에너지요구량 = Q_l_b / 1000 + + ' Log.AppendLine("i_count_HeatCool=" & i_count_HeatCool & "i_count_month=" & i_count_month & ",급탕에너지요구량=" & CSng(Q_w_b / 1000)) + Dr월에너지요구량.급탕에너지요구량 = Q_w_b / 1000 + ' MsgBox("난방요구량" & Dr월에너지요구량.난방요구량공조, MsgBoxStyle.Information, i_count_month & "CZONE") + + pLog.Add(String.Format("난방에너지요구량열:{0},공조환기:{1},조명에너지요구량:{2},급탕에너지요구량:{3}", _ + Dr월에너지요구량.난방에너지요구량열, _ + Dr월에너지요구량.난방에너지요구량공조환기, _ + Dr월에너지요구량.조명에너지요구량, _ + Dr월에너지요구량.급탕에너지요구량)) + + End If + + Else + If i_count_month = 0 Then + Dr최대부하.최대냉방기기부하 = TOSG((Q_h_b_op) / 1000) '=================== Q_h_b_we 2010.2.21 삭제 + 'Worksheets("" & i_count_month & "").Range("최대냉방부하1").Offset(0, i_count_zone - 1) = (Q_h_b_op + Q_h_b_we) / 1000 + If DR존.야간운전방식 = "가동정지" Then '//가동정지 + Dr최대부하.일일냉방최대가동시간 = t_h_op_d ' Worksheets("" & i_count_month & "").Range("최대냉방부하1").Offset(2, i_count_zone - 1) = t_h_op_d + Else + Dr최대부하.일일냉방최대가동시간 = 24 'Worksheets("" & i_count_month & "").Range("최대냉방부하1").Offset(2, i_count_zone - 1) = 24 + End If + + pLog.Add(String.Format("Dr최대부하.일일냉방최대가동시간:{0}", Dr최대부하.일일냉방최대가동시간)) + + Else + Dim Dr월에너지요구량 As DSR.월별에너지분석Row = CType(DSETR.월별에너지분석.Select("월='" & Mon & "' and 존='" & DR존.code & "'")(0), DSR.월별에너지분석Row) + If DR존.냉난방방식 = "냉난방" Or DR존.냉난방방식 = "냉방" Then '//냉난방/냉방 + Dr월에너지요구량.냉방요구량열 = TOSG((Q_h_b_op) / 1000) '=================== Q_h_b_we 2010.2.21 삭제 + Dr월에너지요구량.냉방요구량공조 = TOSG(Q_vh_b_op / 1000) + Else + If DR존.냉난방공조 = "냉난방" Or DR존.냉난방공조 = "냉방" Then '//냉난방/냉방 + Dr월에너지요구량.냉방요구량열 = 0 + Dr월에너지요구량.냉방요구량공조 = TOSG((Q_h_b_op) / 1000) '=================== Q_h_b_we 2010.2.21 삭제 + Else + If (DR존.냉난방공조 = "난방" Or DR존.냉난방공조 = "환기") And DR존.냉난방공조 = "예" Then '//난방/환기/예 + Dr월에너지요구량.냉방요구량열 = 0 + Dr월에너지요구량.냉방요구량공조 = TOSG(Q_vh_b_op / 1000) + Else + Dr월에너지요구량.냉방요구량열 = 0 + Dr월에너지요구량.냉방요구량공조 = 0 + End If + + End If + End If + + pLog.Add(String.Format("냉방요구량열:{0},냉방요구량공조{1}", Dr월에너지요구량.냉방요구량열, Dr월에너지요구량.냉방요구량공조)) + End If + + + + End If + Next '(3) + + Dim CAir As New CAirHandling(DSET, DSETR, Result) + If i_count_month = 0 Then + CAir.Calc_Max_Power(i_count_HeatCool) '//AIR HANDLING 모듈 에 존재함..역시 내용이 크다 ㅠ_ㅠ + End If + + Next '(2) + Next '(1) + + title = showmsg + "분석데이터 집계중..." + RaiseEvent Message(title, 12, 0, 12) + + '//요구량 계산이 완료되었으므로 Summary 계산한다. (이것이 없어서 소요량이 오류났음) + For Each Dr As C에너지분석 In Result.E분석 '//12달치의 각존들의 데이터를 가지고 합계내역을 추린다. + Dr.Calc() + Next + DSETR.AcceptChanges() + Return True + End Function + + + ''' + ''' (main2)소요량 계산 + ''' + ''' + Public Function Calc_Useage(isSimul As String) As Boolean + + pLog.Add(">>>>>>>>>>>>>>>>>>>>>>>>>>") + pLog.Add("Calc_Useage") + pLog.Add(">>>>>>>>>>>>>>>>>>>>>>>>>>") + + 'Dim d_op_month As Integer + Dim theta_e_month As Decimal + Dim d_full_mth As Integer + + Dim title = isSimul + "소요량계산준비중..." + RaiseEvent Message(title, 12, 0, 12) + + '//160428 + + + For i_count_month As Short = 1 To 12 '//월별로 난/냉방 소요량을 계산 + + pLog.LogEnable = False + + + title = isSimul + "소요량계산중..." & "(" & i_count_month & "/12)" + RaiseEvent Message(title, i_count_month, 0, 12) + + '===============================================2010.2.21 수정 + 'd_op_month = d_op(i_count_month) + d_full_mth = CInt(Calc.Pub.d_full(i_count_month)) + '===============================================2010.2.21 수정 + theta_e_month = Calc.Pub.theta_e(i_count_month) + + pLog.Add(String.Format("소요량계산 Mon={0},d_full_mth={1},theta_e_month={2}", i_count_month, d_full_mth, theta_e_month)) + + '///난방 + + pLog.Add("급탕소요량 시작") + Calc.Heating.Calc_WaterheatingSystem(i_count_month, d_full_mth, theta_e_month) '//급탕소요량 '========2010.2.21 수정 + + + pLog.Add("환기소요량 시작") + Calc.AirHandling.Calc_AirHandling(i_count_month, d_full_mth) '//환기? '========2010.2.21 수정 + + '// + If Result.E분석(i_count_month).난방에너지요구량 <> 0 Then + pLog.Add(String.Format("난방에너지요구량({0})이 0보다 큽니다 추가 계산을 실행 : Calc.Heating.Calc_HeatingSystem", Result.E분석(i_count_month).난방에너지요구량)) + Calc.Heating.Calc_HeatingSystem(i_count_month, theta_e_month) '//난방소요량 + End If + + '///냉방 + pLog.LogEnable = True + If Result.E분석(i_count_month).냉방에너지요구량 <> 0 Then + pLog.Add(String.Format("냉방에너지요구량({0})이 0보다 큽니다 추가 계산을 실행 : Calc.Cooling.Calc_CoolingSystem", Result.E분석(i_count_month).냉방에너지요구량)) + Calc.Cooling.Calc_CoolingSystem(i_count_month, theta_e_month) + End If + + pLog.Add(String.Format("==== 소요량 Mon={0} 완료==========", i_count_month)) + Next + DSETR.AcceptChanges() + Return True + End Function + + Private DSET As DS + Private DSETR As DSR + Private Result As CResult + Public Sub New(ByRef pds As DS, ByRef pdsetr As DSR, ByRef presult As CResult) + DSET = pds + DSETR = pdsetr + Result = presult + End Sub +End Class + diff --git a/ArinWarev1/Calculator/Calculator.vb b/ArinWarev1/Calculator/Calculator.vb new file mode 100644 index 0000000..0e70b55 --- /dev/null +++ b/ArinWarev1/Calculator/Calculator.vb @@ -0,0 +1,719 @@ +Public Class Calculator + + Public WithEvents Zone As CZone '//존에클래스할당 + Public WithEvents AirHandling As CAirHandling '//존에클래스할당 + Public WithEvents Cooling As CCooling '//존에클래스할당 + Public WithEvents Heating As CHeating '//존에클래스할당 + Public WithEvents Renewable As CRenewable '//존에클래스할당 + Public WithEvents Summary As CSummary + Public WithEvents Pub As CShared + + Public IsError As Boolean = False + Public IsSimulation As Boolean = False + + Enum ECalc + All = 0 + REq = 1 + Use = 2 + 설계개선안 = 3 + End Enum + + Private DSET As DS + Private DSETR As DSR + Private Result As CResult + Public Sub New(ByVal Version As String, ByRef pds As DS, ByRef pdsetr As DSR, ByRef prresult As CResult, p_simul As Boolean) + Me.IsError = False + DSET = pds + DSETR = pdsetr + Result = prresult + IsSimulation = p_simul '//평가계산에의해서는 시뮬레이션모드로 작동 + Select Case Version + Case "2009123100", StartVersion + Me.Zone = New CZone(DSET, DSETR, Result) '//존 + Me.AirHandling = New CAirHandling(DSET, DSETR, Result) '//공기 + Me.Cooling = New CCooling(DSET, DSETR, Result) + Me.Heating = New CHeating(DSET, DSETR, Result) + Me.Renewable = New CRenewable(DSET, Result) '//신재상 + Me.Summary = New CSummary(DSETR, Result) '//계산결과 집계 + Me.Pub = New CShared '//공용변수(여기추가됬을거에요)- 기상오류처리 + Me.IsError = Me.Pub.IsError '//공용변수값에 오류확인 + Case Else + MsgBox("LG계산식에 지원되지않는 버젼(" & StartVersion & "/" & Version & ")입니다", MsgBoxStyle.Critical, "확인") + Me.IsError = True + End Select + End Sub + + Private Function 설계개선안사용여부(findcode As String) As Boolean + Dim retval As Boolean = False + For Each dr As DS.tbl_monuseRow In DSET1.tbl_monuse.Select("code='" + findcode + "'", "월") + If dr.도시가스 <> "0" Then + retval = True + Exit For + End If + If dr.전력 <> "0" Then + retval = True + Exit For + End If + If dr.지역난방 <> "0" Then + retval = True + Exit For + End If + Next + Return retval + End Function + + Private Sub 입력값계수변환(code As String) + If 설계개선안사용여부(code) Then + For Each dr As DS.tbl_monuseRow In DSET1.tbl_monuse.Select("code='" + code + "'", "월") + Dim newdr As DSR.월별1차에너지사용량Row = DSETR1.월별1차에너지사용량.NewRow + newdr.도시가스 = dr.도시가스 * Result2.E변환계수.LNG + newdr.전력 = dr.전력 * Result2.E변환계수.전력 + newdr.지역난방 = dr.지역난방 * Result2.E변환계수.지역난방 + newdr.code = dr.code + newdr.년 = dr.년 + newdr.월 = dr.월 + DSETR1.월별1차에너지사용량.Rows.Add(newdr) + Next + End If + End Sub + + + '''130824 + Public Function 설계개선안계산() As Boolean + Dim dr_desc As DS.tbl_DescRow = DSET.tbl_Desc.Rows(0) + + '//년면적값확인 + Dim 년면적 As Decimal = 0 + If IsNumeric(dr_desc.buildm23) = False Then dr_desc.buildm23 = "0" + 년면적 = CDec(dr_desc.buildm23) + If 년면적 = 0 Then + MsgBox("년면적값이 없습니다.", MsgBoxStyle.Critical, "확인") + Return False + End If + + '//월별에너지사용량에서 입력한 값 + Dim 사용자입력값에너지사용량(12) As Decimal + + '//현재계산되어있는 1차에너지사용량 + Dim 년면적당(12) As Decimal + Dim 년면적당원본(12) As Decimal + + Dim ok As Boolean = True + Dim 오차계산횟수 As Decimal = 0 + Dim 난방설정온도 As Decimal = 20 + Dim 냉방설정온도 As Decimal = 26 + Dim 실내발열 As Decimal = 0 + + Dim 전반기최저입력 As Decimal = 999999 + Dim 하반기최저입력 As Decimal = 999999 + Dim 전반기최저 As Decimal = 999999 + Dim 하반기최저 As Decimal = 999999 + + For i As Integer = 1 To 12 + 사용자입력값에너지사용량(i) = 0 + 년면적당(i) = 0 + Zone_Message("계산데이터와 입력데이터 집계중(" + i.ToString() + "/3)...", i, 0, 12) + + '//사용자에의해서 입력된 값을 누적한다. + For Each dr1 As DSR.월별1차에너지사용량Row In DSETR.월별1차에너지사용량.Select("월='" + i.ToString("00") + "'") + 사용자입력값에너지사용량(i) += TOSG(dr1.도시가스) + TOSG(dr1.전력) + TOSG(dr1.지역난방) + Next + + '//임시계산저장소의 값을 이용한다. + 년면적당원본(i) = (Result1.일차E소요량(i).난방소요량 / 년면적) + (Result1.일차E소요량(i).냉방소요량 / 년면적) _ + + (Result1.일차E소요량(i).급탕소요량 / 년면적) + (Result1.일차E소요량(i).조명소요량 / 년면적) _ + + (Result1.일차E소요량(i).환기소요량 / 년면적) + + If i <= 6 Then + If 사용자입력값에너지사용량(i) < 전반기최저입력 Then 전반기최저입력 = 사용자입력값에너지사용량(i) + If 년면적당원본(i) < 전반기최저 Then 전반기최저 = 년면적당원본(i) + Else + If 사용자입력값에너지사용량(i) < 하반기최저입력 Then 하반기최저입력 = 사용자입력값에너지사용량(i) + If 년면적당원본(i) < 하반기최저 Then 하반기최저 = 년면적당원본(i) + End If + Next + + Dim 입력값평균 As Decimal = (하반기최저입력 + 전반기최저입력) / 2 + Dim 계산값평균 As Decimal = (하반기최저 + 전반기최저) / 2 + Dim 오차 As Decimal = 계산값평균 - 입력값평균 + Dim 오차재계산횟수 As Integer = 5 + + + While (True) + + For i As Integer = 1 To 12 + 사용자입력값에너지사용량(i) = 0 + 년면적당(i) = 0 + Zone_Message("계산데이터와 입력데이터 집계중(" + i.ToString() + "/3)...", i, 0, 12) + + '//사용자에의해서 입력된 값을 누적한다. + For Each dr1 As DSR.월별1차에너지사용량Row In DSETR.월별1차에너지사용량.Select("월='" + i.ToString("00") + "'") + 사용자입력값에너지사용량(i) += TOSG(dr1.도시가스) + TOSG(dr1.전력) + TOSG(dr1.지역난방) + Next + + '//임시계산저장소의 값을 이용한다. + 년면적당(i) = (Result2.일차E소요량(i).난방소요량 / 년면적) + (Result2.일차E소요량(i).냉방소요량 / 년면적) _ + + (Result2.일차E소요량(i).급탕소요량 / 년면적) + (Result2.일차E소요량(i).조명소요량 / 년면적) _ + + (Result2.일차E소요량(i).환기소요량 / 년면적) + + 년면적당(i) += (-1 * 오차) + + Next + + '//여름피크확인(8월) + '//겨울피크확인(1월) + Dim 오차겨울 As Decimal = Math.Abs(년면적당(1) - 사용자입력값에너지사용량(1)) + Dim 오차여름 As Decimal = Math.Abs(년면적당(8) - 사용자입력값에너지사용량(8)) + + Dim 원본겨울 As Decimal = 년면적당원본(1) + Dim 원본여름 As Decimal = 년면적당원본(8) + + Dim 오차발생여름 As Boolean = False + Dim 오차발생겨울 As Boolean = False + + Dim 오차겨울퍼센트 As Decimal = (오차겨울 / 년면적당(1)) * 100 + Dim 오차여름퍼센트 As Decimal = (오차여름 / 년면적당(8)) * 100 + + '//오차계산에따른 반복제어 + If 오차계산횟수 > 오차재계산횟수 Then + ' MsgBox("오차계산횟수를 초과하였습니다" + vbCrLf + "개선작업이 종료됩니다.", MsgBoxStyle.Information, "확인") + ok = False + Exit While + End If + + If 오차겨울퍼센트 > 0.1 Then + 오차발생겨울 = True + If 년면적당(1) < 사용자입력값에너지사용량(1) Then + 난방설정온도 += 0.5 + Else + 난방설정온도 -= 0.5 + End If + End If + + If 오차여름퍼센트 > 0.1 Then + 오차발생여름 = True + If 년면적당(8) < 사용자입력값에너지사용량(8) Then + 냉방설정온도 -= 0.5 + Else + 냉방설정온도 += 0.5 + End If + End If + + '//오차가발생하지않았다면 더이상 진행하지 않는다. + If Not 오차발생여름 AndAlso Not 오차발생겨울 Then + ok = True + Exit While + End If + + + + '//변경될 온도정보를 가지고 다시 계산합니다. + If Me.Start("설계개선작업(" + (오차계산횟수 + 1).ToString() + "/" + 오차재계산횟수.ToString + ")" + vbCrLf + vbCrLf + _ + "(겨울/여름)오차발생율:" + 오차겨울퍼센트.ToString("#0.00") + "%/" + 오차여름퍼센트.ToString("#0.00") + "%" + vbCrLf, ECalc.All, LogSB, (-1 * 오차), 난방설정온도, 냉방설정온도) Then '//파라미터 True 라면 소요량이 추가로 게산된다. + 오차계산횟수 += 1 + Me.Summary.All() + '오차 = 0 + 'Continue While + Else + MsgBox("설계개선작업중 오류가 발생하였습니다." + vbCrLf + LogSB.ToString, MsgBoxStyle.Critical, "확인") + ok = False + Exit While + End If + + End While + + + '//가상결과데이터(DSR2)를 집계해서 실제결과DSR1에 넣는다. + DSETR1.설계계산결과.Clear() + DSETR1.설계계산결과.AcceptChanges() + + For i As Integer = 1 To 12 + Dim ndr As DSR.설계계산결과Row = DSETR1.설계계산결과.New설계계산결과Row + ndr.월 = i.ToString("00") + ndr.난방전 = (Result2.일차E소요량(i).난방소요량 / 년면적) + ndr.냉방전 = (Result2.일차E소요량(i).냉방소요량 / 년면적) + ndr.조명전 = (Result2.일차E소요량(i).조명소요량 / 년면적) + ndr.급탕전 = +(Result2.일차E소요량(i).급탕소요량 / 년면적) + ndr.환기전 = (Result2.일차E소요량(i).환기소요량 / 년면적) + DSETR1.설계계산결과.Rows.Add(ndr) + Next + + + '//벽체 열관류율, 창호 열관류율, 일사투과율, 장비 효율, 조명밀도 등 적용 + '//면형태 : 벽체 - 외,내벽 :: tbl_yk 모든 열관류율을 = 0.1 *get열관류율을 마지막에 한번만 작동하도록 상수지정 + '//면형태 : 창호 - 외부창,내부창 = 1.0 + '//면형태 : 창호 - 외부창,내부창 일사투과율 = 0.3 + For Each drmn As DS.tbl_ykRow In DSET.tbl_yk.Select("code <> '0'") + Dim 면형태코드 As String = drmn.면형태 + If 면형태코드.Trim = "" Then Continue For + Dim 면형태 As String = Get_CName("1088", 면형태코드) + Select Case 면형태 + Case "외벽(벽체)", "내벽(벽체)", "지중벽" + drmn.열관류율 = "0.1" + Case "외부창", "내부창" + drmn.열관류율 = "1" + drmn.일사에너지투과율 = "0.3" + End Select + Next : DSET.tbl_yk.AcceptChanges() + + '//난방기기 , 정격보일러효율=0.9 , 히트난방정격7=4.5 + For Each drmn As DS.tbl_nanbangkikiRow In DSET.tbl_nanbangkiki.Select("code <> '0'") + If CDec(drmn.정격보일러효율) < 90 Then + drmn.정격보일러효율 = "90" + End If + If CDec(drmn.히트난방정격7) < 4.5 Then + drmn.히트난방정격7 = "4.5" + End If + Next : DSET.tbl_nanbangkiki.AcceptChanges() + + '//냉방기기 , 열성능비 = 5.0 + For Each drmn As DS.tbl_nangbangkikiRow In DSET.tbl_nangbangkiki.Select("code <> '0'") + If CDec(drmn.열성능비) < 5 Then + drmn.열성능비 = "5.0" + End If + Next : DSET.tbl_nangbangkiki.AcceptChanges() + + '//조명밀도 : 조명에너지부하율입력치 : 6 + For Each drmn As DS.tbl_zoneRow In DSET.tbl_zone.Select("code <> '0'") + If drmn.조명부하산출방법 = "입력치" Then + drmn.조명에너지부하율입력치 = 6 + End If + Next : DSET.tbl_zone.AcceptChanges() + + '//보정데이터유지하고 계산실행 + '//그래프출력시 발생한 오차를 데이터테이블에 표시 + '//변경될 온도정보를 가지고 다시 계산합니다. + If Me.Start("설계개선작업II" + vbCrLf, ECalc.All, LogSB, (-1 * 오차), 난방설정온도, 냉방설정온도) Then '//파라미터 True 라면 소요량이 추가로 게산된다. + Me.Summary.All() + ok = False + End If + + For i As Integer = 1 To 12 + Dim ndr As DSR.설계계산결과Row = DSETR1.설계계산결과.Rows(i - 1) + ndr.난방 = (Result2.일차E소요량(i).난방소요량 / 년면적) + ndr.냉방 = (Result2.일차E소요량(i).냉방소요량 / 년면적) + ndr.조명 = (Result2.일차E소요량(i).조명소요량 / 년면적) + ndr.급탕 = +(Result2.일차E소요량(i).급탕소요량 / 년면적) + ndr.환기 = (Result2.일차E소요량(i).환기소요량 / 년면적) + ndr.AcceptChanges() + Next + + DSETR1.설계계산결과.AcceptChanges() + + '//파라미터저장 + DSETR1.설계계산파라미터.Clear() + Dim ndr3 As DSR.설계계산파라미터Row = DSETR1.설계계산파라미터.New설계계산파라미터Row + ndr3.난방 = 난방설정온도.ToString + ndr3.냉방 = 냉방설정온도.ToString + ndr3.기저비율 = CDec(-1 * 오차).ToString() + DSETR1.설계계산파라미터.Rows.Add(ndr3) + DSETR1.설계계산파라미터.AcceptChanges() + + If ok Then + Return True + Else + Return False + End If + Return True + End Function + + Public Function Start(showmsg As String, ByVal CalcType As ECalc, ByRef logBuffer As System.Text.StringBuilder, 기저비율 As Decimal, Optional ByVal 난방설정온도 As Decimal = 20, Optional ByVal 냉방설정온도 As Decimal = 26) As Boolean + + pLog.Add("=====================================") + pLog.Add("Calc Start") + pLog.Add("=====================================", True) + + Me.Pub = New CShared '//공용변수 + + '//계산을 시작 p_CalcUse : 는 소요량 계산도 할건지으 ㅣ플래그 나중에 분리해야겠따. + 'Dim ST As Date = Now + + If Me.IsError Then + MsgBox("계산준비중 오류발생", MsgBoxStyle.Critical, "확인") + Return False + End If + logBuffer = New System.Text.StringBuilder("") + Dim Cnt As Integer = FixData() + 'log.AppendLine(">>데이터보정(" & Cnt.ToString & ")개의 데이터가 보정되었습니다") + 'log.AppendLine(">>유효성검사시작") + If validation() = False Then Return False '//유효성 체크를 수행한다. + + If CalcType <> ECalc.Use AndAlso CalcType <> ECalc.설계개선안 Then + 'log.AppendLine(">>계산영역초기화") + Clear_ResultArea() '//과거의 계산영역을 클리어시킨다. + 'log.AppendLine(">>각존의 사용면적 계산") + Result.사용면적.Calc() '//A_H,C,W,L,V 의 누적값을 계산(사용면적) : 개별프로시져로 할당 + 'log.AppendLine(">>주계산시작") + End If + + '//사용자가입력한 1차에너지사용량(=월별에너지사용량)을 변환계수를 이용해 값을 생성한다. + DSETR1.월별1차에너지사용량.Rows.Clear() : DSETR2.월별1차에너지사용량.Rows.Clear() + DSETR1.월별1차에너지사용량.AcceptChanges() : DSETR2.월별1차에너지사용량.AcceptChanges() + Zone_Message("설계개선안 입력데이터 변환중(1/3)...", 1, 0, 3) : 입력값계수변환("0001") + Zone_Message("설계개선안 입력데이터 변환중(2/3)...", 2, 0, 3) : 입력값계수변환("0002") + Zone_Message("설계개선안 입력데이터 변환중(3/3)...", 1, 0, 3) : 입력값계수변환("0003") + DSETR1.월별1차에너지사용량.AcceptChanges() + DSETR2.월별1차에너지사용량.Merge(DSETR1.월별1차에너지사용량) + DSETR2.월별1차에너지사용량.AcceptChanges() + + Dim Retval As Boolean + Select Case CalcType + Case ECalc.All + pLog.LogEnable = False + Retval = Zone.Calc_LoadOfZones(showmsg, IsSimulation, 기저비율, 난방설정온도, 냉방설정온도) + pLog.LogEnable = True + If Retval Then Retval = Zone.Calc_Useage(showmsg) + Return Retval + Case ECalc.REq + pLog.LogEnable = True + Return Zone.Calc_LoadOfZones(showmsg, IsSimulation, 기저비율, 난방설정온도, 냉방설정온도) + Case ECalc.Use + pLog.LogEnable = True + Return Zone.Calc_Useage(showmsg) + Case ECalc.설계개선안 + pLog.LogEnable = True + Return 설계개선안계산() + End Select + + pLog.LogEnable = True + + End Function + + Private Function FixData() As Integer + Dim RetCnt As Integer = 0 + Dim Null As String = "(없음)" + '//보정할수있는데이터를 보정합니다. + ';//입력면 - 건축부위방식이 .내벽 or 간벽일경우 방위는 (없음)이다 + For Each DR면 As DS.tbl_myounRow In DSET.tbl_myoun.Select("code <> '0'") + If DR면.건축부위방식 = "내벽" Or DR면.건축부위방식 = "간벽" Then + If DR면.방위 <> Null Then + RetCnt += 1 + DR면.방위 = Null + End If + End If + Next + For Each DR존 As DS.tbl_zoneRow In DSET.tbl_zone.Select("code <> '0'") + If DR존.조명방식.ToString = "0" OrElse DR존.조명방식.ToString = "" Then + RetCnt += 1 + LogSB.AppendLine("Zone " & DR존.설명.ToString & "] 의 조명방식이 없음으로 설정됩니다.") + DR존.조명방식 = "(없음)" + End If + If DR존.인공광원.ToString = "0" OrElse DR존.인공광원.ToString = "" Then + RetCnt += 1 + LogSB.AppendLine("Zone " & DR존.설명.ToString & "] 의 인공광원이 없음으로 설정됩니다.") + DR존.인공광원 = "(없음)" + End If + If DR존.외기부하처리여부.ToString = "0" OrElse DR존.외기부하처리여부.ToString = "" Then + RetCnt += 1 + LogSB.AppendLine("Zone " & DR존.설명.ToString & "] 의 외기부하처리여부가 아니오로 설정됩니다.") + DR존.외기부하처리여부 = "아니오" + End If + + 'If DR존.조명방식.ToString.Trim = "" Then DR존.조명방식 = "(없음)" + 'If DR존.인공광원.ToString.Trim = "" Then DR존.인공광원 = "(없음)" + Next + + DSET.AcceptChanges() '//변경내용 적용 + Return RetCnt + End Function + Public Function validation() As Boolean + pLog.Add("Calc Validation") + '//존이 2개이상있어야한다 (없음데이터로인해서 반드시 1개는 있기때문이다.) + '//여기보정데이터가잇네요.; + Dim NoErr As Boolean = True + + '//콤보박스들의 값이 지정되어잇는지 확인한다. 무조건 있어야한다 + Dim Title As String + Dim Columns() As String '//(없음)이 들어가는 콤보필드 + Dim ColumnC() As String '//공용코드전용 필드들 + Dim CGubun() As String '//공용코드필드의 구분값이 저장됨 + Dim Columnst() As String '//0이 들어가는 콤보필드 + + '//ZONE + Title = "Zone" + Columns = New String() {"냉난방열공급시스템", "열저장능력", "열교가산치", _ + "주말운전방식", "야간운전방식", "외기부하처리여부", _ + "냉난방공조", "냉난방방식", _ + "조명부하산출방법", "조명방식", "인공광원"} + ColumnC = New String() {"열저장능력", "열교가산치", _ + "주말운전방식", "야간운전방식", "외기부하처리여부"} ' + '//다를지도 모르니 나중에 함 확인하시구요 + CGubun = New String() {"1023", "1022", _ + "1002", "1002", "1054"} '//공용코드있는데는 모조리 설정하시구요 물론 길이는 바로위하고 같아야합닌다. + '//여기에 각 공용코드의 구분값 1009 뭐 이런것들을 같게 넣어주세요 column 가 8개가있었따면 cgubun 도 8개가 잇으면됩니다. + + Columnst = New String() {"프로필", "냉난방공조처리시스템", "열생산난방생산기기", _ + "열생산급탕생산기기", "열생산냉방생산기기", _ + "열생산가습생산기기", "냉난방공조분배시스템", _ + "냉난방분배시스템", "공조냉방생산기기", "공조난방생산기기"} + + Set_Null(Columns, DSET.tbl_zone, "(없음)") '//데이터를 기본값 셋팅해주는구문이구요 없는데이터는 넓값처리 + Set_Null(ColumnC, DSET.tbl_zone, "(없음)") '//공용코드값이 아에없는 데이터를 기본값 셋팅해주는구문이구요 없는데이터는 넓값처리 + 'Set_CheckCommon(ColumnC, DSET.tbl_zone, CGubun) '//이거는 // 공용코드오류난 데이터 검색하는부분이에요 + Set_Null(Columnst, DSET.tbl_zone, "0") + + Title = "신재생에너지" + Columns = New String() {"기기종류", "가동연료", "태양열종류", "집열기유형", _ + "집열판방위", "태양열시스템의성능", "축열탱크설치장소", _ + "태양광모듈기울기", "태양광모듈방위", _ + "태양광모듈종류", "태양광모듈적용타입", _ + "열교환기설치여부", "팽창탱크설치여부"} + Set_Null(Columns, DSET.tbl_new, "(없음)") + 'Set_Null(Columnst, DSET.tbl_bunbae, "0") + + Title = "난방분배시스템" + Columns = New String() {"생산기기구분", "표준치적용", "배관망유형", _ + "배관구간방식", "배관설치장소", _ + "배관설치장소", "지관장소"} + Set_Null(Columns, DSET.tbl_nbunbae, "(없음)") + 'Set_Null(Columnst, DSET.tbl_bunbae, "0") + + Title = "난방기기" + Columns = New String() {"열생산기기방식", "사용연료", "운전방식", "보일러방식", _ + "지역난방방식", "단열등급", "축열탱크방식", _ + "배관망유형", "펌프교정계수", "펌프제어유형", _ + "분배시스템방식", "순환유무", "펌프제어", _ + "히트펌프시스템종류", "신재생연결여부"} + Columnst = New String() {"연결된시스템"} + Set_Null(Columns, DSET.tbl_nanbangkiki, "(없음)") + Set_Null(Columnst, DSET.tbl_nanbangkiki, "0") + + Title = "냉방기기" + Columns = New String() {"냉동기방식", "냉동기종류", "냉동기압축방식", _ + "압축기제어방식", "냉동기설비시스템", _ + "냉동기설비시스템", "제어방식", _ + "열생산연결방식", "사용연료", "증발식건식냉각기", _ + "증발식냉각기", "보조방음기유무", "신재생연결여부"} + Columnst = New String() {"온수열생산기기", "연결된시스템"} + Set_Null(Columns, DSET.tbl_nangbangkiki, "(없음)") + Set_Null(Columnst, DSET.tbl_nangbangkiki, "0") + + + Title = "입력면" + Columns = New String() {"건축부위방식", "블라인드유무", _ + "블라인드위치", "방위", "블라인드빛종류", _ + "블라인드색상", "블라인드각도"} + Columnst = New String() {"존분류", "대차대조존"} + Set_Null(Columns, DSET.tbl_myoun, "(없음)") + Set_Null(Columnst, DSET.tbl_myoun, "0") + + + Title = "난방공급시스템" + Columns = New String() {"열공급시스템", "노출형제어", "바닥난방열제어", _ + "바닥난방열건축부위", "바닥난방전기제어", "바닥난방전기건축부위", "전기난방제어"} + Columnst = New String() {"열공급생산기기"} + Set_Null(Columns, DSET.tbl_kongkub, "(없음)") + Set_Null(Columnst, DSET.tbl_kongkub, "0") + + + Title = "공조처리" + Columns = New String() {"공조방식", "리턴공기혼합여부", "가습기유형", "외기냉방제어유무", "열교환기유형"} + Set_Null(Columns, DSET.tbl_kongjo, "(없음)") + 'Set_Null(Columnst, DSET.tbl_bunbae, "0") + + Title = "냉방분배시스템" + Columns = New String() {"냉매방식", "펌프운전제어유무"} + Columnst = New String() {"냉동기"} + Set_Null(Columns, DSET.tbl_bunbae, "(없음)") + Set_Null(Columnst, DSET.tbl_bunbae, "0") + + + '//모든공조데이터 순환 + For Each DR As DS.tbl_kongjoRow In DSET.tbl_kongjo.Select("code<>'0'") + DR.팬효율산출방식 = DR.팬효율산출방식.Trim + 'MsgBox(DR.설명 & "==현재저장된값 : " & DR.팬효율산출방식 & " 길이 = " & DR.팬효율산출방식.Length) + If DR.팬효율산출방식.Trim = "" Then DR.팬효율산출방식 = "입력치" + Next + 'DSET.tbl_kongjo.AcceptChanges() + DSET.AcceptChanges() + + + '//그값이 존에잇어요?cnrkehlsrp?추가된게?공조기기요 + For Each Dr As DS.tbl_zoneRow In DSET.tbl_zone.Select("code <> '0'") '//모든존을 검사 없음(0)은 빼고 + 'If Dr.공조난방생산기기 = "0" And Dr.공조냉방생산기기 = "0" Then '//둘다 0일경우 + '//오류를 내고싶으면 여기서 return false 해버리면됩니다.'다른족건이 잇다면.. 아까처럼.. + 'Return False 냉난방공조 라는 공조에 냉난방이 있으면 : : + 'End If + If Dr.냉난방공조 = "냉난방" Then '// + If Dr.공조난방생산기기 = "0" OrElse Dr.공조냉방생산기기 = "0" Then + MsgBox("입력존에서 공조방식에 대응하는 공조냉난방생산기기가 지정되지 않은 것이 있습니다.") + Return False + End If + End If + If Dr.냉난방공조 = "난방" OrElse (Dr.냉난방공조 = "냉방" And Dr.외기부하처리여부 = "예") Then '// + If Dr.공조난방생산기기 = "0" Then + MsgBox("입력존에서 공조방식에 대응하는 공조난방생산기기가 지정되지 않은 것이 있습니다.") + Return False + End If + End If + If Dr.냉난방공조 = "냉방" OrElse (Dr.냉난방공조 = "난방" And Dr.외기부하처리여부 = "예") Then '// + If Dr.공조냉방생산기기 = "0" Then + MsgBox("입력존에서 공조방식에 대응하는 공조냉방생산기기가 지정되지 않은 것이 있습니다.") + Return False + End If + End If + If Dr.냉난방공조 = "환기" And Dr.외기부하처리여부 = "예" Then '// + If Dr.공조난방생산기기 = "0" OrElse Dr.공조냉방생산기기 = "0" Then + MsgBox("입력존에서 외기부하처리에 따른 공조냉난방생산기기가 지정되지 않은 것이 있습니다.") + Return False + End If + End If + + + + Next + + '//여기에서 FAlse 를 반환해버리면.. 게산은 돌지않아요 게산전에 수행되는곳이구요 + '//아까 파일오픈시에도 여기를 호출합니다. 바로 윗부분이 nul l값에대한 기본값 처리구요. + Return NoErr + End Function + + Private Sub Set_Null(ByVal Columns() As String, ByRef dt As DataTable, ByVal val As String) + For Each Dr As DataRow In dt.Select("code<>'0'", "code") + For Each Col As String In Columns + If Dr(Col).ToString.Trim = "" Then '//값이없으면 기본값(val)으로 설정 + Dr(Col) = val + End If + Next + Next + End Sub + + '''공용코드에값이있는지확인 + Private Sub Set_CheckCommon(ByVal Columns() As String, ByRef dt As DataTable, ByVal gubunval() As String) + Dim index As Short = -1 + For Each Dr As DataRow In dt.Select("code<>'0'", "code") + index = 0 + For Each Col As String In Columns + If Dr(Col).ToString.Trim = "" Then '//값이없으면 기본값(val)으로 설정 + 'Dr(Col) = val + Else '//값이있을때 + Dim V As String = Dr(Col).ToString.Trim + '//v의값이 공용ㅇ코드에 있는지 확인 공용코드는 name 을 저장하므로 name 으로검사를 수행 + Dim Cdr() As DS.tbl_commonRow = DSET.tbl_common.Select("gubun='" & gubunval(index) & "' and name='" & V & "'") + If Cdr.GetUpperBound(0) = -1 Then + MsgBox("값이있으나 공용코드에없음(여기에 경고문구좀 날려주시면되구요") + End If + End If + index += 1 + Next + Next + End Sub + + + ''' + ''' 계산결과 영역을 초기화시킵니다. + ''' + ''' + Private Sub Clear_ResultArea() + pLog.Add("Clear_ResultArea") + + DSETR.Clear() : DSETR.AcceptChanges() '//기존데이터 클리어 + + '//0번시트의 결과값을 저장할 장소를 생성한다. Zone=00 은 합계필드이다(이것이 일률적이지않아서 00으로 할당을 따로 해서 나중에 합산작업을 할 예정) + '//00번 존을포함하여 현재 존의 갯수+1개를 생성한다. + + '//최대냉난방/E분석 + Dim ZoneCode As String + For Each Dr존 As DS.tbl_zoneRow In DSET.tbl_zone.Select("", "code") + If Dr존.code = "0" Then + ZoneCode = "00" + Else + ZoneCode = Dr존.code + End If + + Dim Res1 As DSR.최대냉난방부하Row = DSETR.최대냉난방부하.New최대냉난방부하Row + Res1.Zone = ZoneCode : DSETR.최대냉난방부하.Add최대냉난방부하Row(Res1) + For ii As Integer = 1 To 12 + Dim DrE분석 As DSR.월별에너지분석Row = DSETR.월별에너지분석.New월별에너지분석Row + DrE분석.월 = "M" & Format(ii, "00") '//정렬을위해서 00숫자형태로 기록한다. 앞으로 모든 월데이터는 그렇게 기록함 + DrE분석.존 = ZoneCode + DSETR.월별에너지분석.Add월별에너지분석Row(DrE분석) + 'MsgBox("M" & Format(ii, "00"), MsgBoxStyle.Information, ZoneCo'de) + Next + Next + + '//월별로 움직이는데이터 + Dim Mon As String + Dim Dr As DataRow + For ii As Integer = 0 To 12 + Mon = "M" & Format(ii, "00") + + Dr = DSETR.생산에너지.NewRow + Dr("mon") = Mon '//정렬을위해서 00숫자형태로 기록한다. 앞으로 모든 월데이터는 그렇게 기록함 + DSETR.생산에너지.Rows.Add(Dr) + + Dr = DSETR.에너지소요량.NewRow + Dr("mon") = Mon '//정렬을위해서 00숫자형태로 기록한다. 앞으로 모든 월데이터는 그렇게 기록함 + DSETR.에너지소요량.Rows.Add(Dr) + + Dr = DSETR.에너지소요량1.NewRow + Dr("mon") = Mon '//정렬을위해서 00숫자형태로 기록한다. 앞으로 모든 월데이터는 그렇게 기록함 + DSETR.에너지소요량1.Rows.Add(Dr) + + Next + '//전부다시 구성해야함 + DSETR.AcceptChanges() + End Sub + + + '''열관류율값ㅇㄹ 반환 + Public Function Get_열관류율(ByVal Dr As DS.tbl_myounRow) As Decimal + Dim 열관류율2 As String = Dr.열관류율2 '//저장된 코드값 cmb_열관류율 + + If IsNumeric(열관류율2) Then + If CInt(열관류율2) > 0 Then + Try + Dim Drow As DS.tbl_ykRow = DSET.tbl_yk.Select("code='" & 열관류율2 & "'")(0) + Return TOSG(Drow.열관류율) '//코드내에 저장된 값을 보낸다 + Catch ex As Exception + MsgBox("열관류율코드값(" & 열관류율2 & ") 값오류" & vbCrLf & ex.Message.ToString, MsgBoxStyle.Critical, "확인") + Return 0 + End Try + End If + End If + + Dim 열관 As Single = 0 + Try + 열관 = Single.Parse(Dr.열관류율) + Catch ex As Exception + 열관 = 0 + End Try + + Return TOSG(Dr.열관류율) + 'If 열관 = 0 Then '//0이므로 코드값을 찾는다. + + ' Try + ' Dim Drow As DS.tbl_ykRow = DSET.tbl_yk.Select("code='" & 열관류율2 & "'")(0) + ' Return TOSG(Drow.열관류율) '//코드내에 저장된 값을 보낸다 + ' Catch ex As Exception + ' MsgBox("열관류율코드값(" & 열관류율2 & ") 값오류" & vbCrLf & ex.Message.ToString, MsgBoxStyle.Critical, "확인") + ' Return 0 + ' End Try + 'Else '//입력값이 잇으므로 입력값을 바로사용한다. + + 'End If + End Function + + + Private Sub Zone_Message(Msg As String, pval As Integer, pmin As Integer, pmax As Integer) Handles Zone.Message + If Not msgf Is Nothing Then + msgf.Label1.Text = Msg + msgf.ProgressBar1.Minimum = pmin + msgf.ProgressBar1.Maximum = pmax + msgf.ProgressBar1.Value = pval + msgf.Label1.Refresh() + Else + msgf = New Frm_Work("계산중...") + msgf.Label1.Text = Msg + msgf.ProgressBar1.Minimum = pmin + msgf.ProgressBar1.Maximum = pmax + msgf.ProgressBar1.Value = pval + msgf.TopMost = True + msgf.Show() + End If + + msgf.Refresh() + End Sub + +End Class + diff --git a/ArinWarev1/Calculator/Cooling/CCooling.vb b/ArinWarev1/Calculator/Cooling/CCooling.vb new file mode 100644 index 0000000..8c2ddeb --- /dev/null +++ b/ArinWarev1/Calculator/Cooling/CCooling.vb @@ -0,0 +1,813 @@ +Public Class CCooling + Public Overridable Sub Calc_CoolingSystem(ByVal i_count_month As Integer, ByVal theta_e As Decimal) + + + Dim c_p1 As Decimal, c_p2 As Decimal, c_cl As Decimal + Dim b As Decimal, L As Decimal, n_G As Decimal, h_G As Decimal, L_max As Decimal, R As Decimal, z As Decimal + Dim rho_cl As Decimal + Dim eta_c_star_d As Decimal, eta_c_star_ce_sens As Decimal, eta_c_star_ce As Decimal, eta_c_d As Decimal, eta_c_ce As Decimal, eta_c_ce_sens As Decimal + Dim Q_c_star_s As Decimal, Q_c_s As Decimal, Q_c_b As Decimal, Q_vc_b As Decimal, Q_vm_b As Decimal, Q_c_b_i As Decimal, Q_c_star_b_i As Decimal + Dim Q_c_star_b As Decimal, Q_m_star_b As Decimal, Q_c_star_d As Decimal, Q_c_star_ce As Decimal, Q_c_d As Decimal, Q_c_ce As Decimal + Dim Q_c_star_outg As Decimal, Q_z_outg_l As Decimal, Q_m_star_outg As Decimal, Q_dot_c_outg As Decimal, Q_c_outg As Decimal, Q_c_outg_total As Decimal, Q_dot_z As Decimal + Dim Q_c_ce_aux As Decimal, Q_z_aux_d_l As Decimal, Q_z_star_outg_l As Decimal + Dim f_c_ce_aux As Decimal, f_Abgl As Decimal, f_e As Decimal + Dim V_dot_z As Decimal + Dim EER As Decimal, PLV_av As Decimal + Dim P_d_hydr As Decimal, P_Pump As Decimal + Dim beta_d_l As Decimal, e_d_l As Decimal + Dim W_d_hydr_l As Decimal + Dim Q_c_f_elektr As Decimal, Q_c_f_R_elektr As Decimal, Q_dot_R_outg As Decimal, Q_c_outg_therm As Decimal, Q_c_f As Decimal, Q_c_aux As Decimal + Dim t_h_max As Integer + Dim Q_c_g As Decimal, Q_c_g_v_i As Decimal, Q_dot_N As Decimal, Q_dot_d_in As Decimal + Dim theta_VA As Decimal, theta_RA As Decimal, theta_HK_m_beta_h_d As Decimal, beta_h As Decimal, n_beta As Decimal + Dim eta_k_100 As Decimal, eta_k_pl As Decimal, f As Decimal, e As Decimal, q_B_70 As Decimal, q_B_theta As Decimal, f_Hs_Hi As Decimal + Dim Q_V_g_100 As Decimal, Q_dot_B_h As Decimal, Q_V_g_pl As Decimal, q_R_elektr As Decimal + Dim beta_k_pl As Decimal, Delta_theta_z_cl As Decimal + Dim Delta_P_WUE As Decimal, Delta_P_WUV As Decimal, Delta_P_RV As Decimal, Delta_p_z As Decimal + Dim k_n As Decimal, f_1_av As Decimal, f_2_av As Decimal, f_R_av As Decimal, T_W_1_i As Decimal, l_min_i As Decimal + Dim use_Oil As Decimal, use_LNG As Decimal, use_LPG As Decimal, use_Elec As Decimal, use_DH As Decimal + + '20100223 제거 i_count_chiller As Integer, 최적화중 사용안함 + 'Dim i_count_zone As Integer, i_count_c_d As Integer + Dim i_count_beta As Integer, k_n_index As Integer + ' Dim i_count_renewable As Integer + Dim i_HeatCool As Integer + Dim theta_i As Decimal, Q_hp_outg As Decimal, Q_c_f_hp As Decimal, Q_c_g_hp_aux As Decimal + Dim Q_chp_outg As Decimal, Q_c_f_chp As Decimal + Dim system_type As Integer + '==================================2010.2.21 수정 + Dim use_DC As Decimal + Dim d_op_mth As Integer + Dim d_op_max_mth As Integer + + Dim f_1_av_up As Decimal, f_1_av_dn As Decimal + ' Dim i_count_profile As Integer + use_DC = 0 + d_op_max_mth = 0 + '==================================2010.2.21 수정 + '==================================2010.04.02 수정 + Dim Q_H_sol_out_m As Decimal, Q_W_sol_out_m As Decimal, W_sol_aux_m As Decimal + Dim Q_h_outg_i As Decimal + + Q_H_sol_out_m = 0 + Q_h_outg_i = 0 + '==================================2010.04.02 수정 + Dim priod_value As Single = 0 + Dim age As Single '//준공연도에 의한 경년변화값 + Dim age_heating As Single + For Each DRpriod As DS.tbl_DescRow In DSET.tbl_Desc.Select("cname<>'0'", "cname") + priod_value = CSng(DRpriod.priod) + Next + If priod_value > 20 Then priod_value = 20 + age = (1 - 0.01) ^ priod_value + age_heating = (1 - 0.005) ^ priod_value + + + eta_c_star_d = 0.95 '건물 내 배관 적용 + eta_c_star_ce_sens = 1 '습도요구 편차없음 적용 + eta_c_star_ce = 0.9 '공조기기로 냉열전달에서 현열전달효율로 우선 0.9 적용 + Q_c_star_s = 0 + Q_c_s = 0 '(3.2.8-22) + eta_c_d = 0.9 ' 우선 적용 추후 검토 + eta_c_ce = 1 ' 우선 적용 추후 검토 + eta_c_ce_sens = 0.9 '우선 적용 추후 검토 + f_c_ce_aux = 0.04 ' 표3.93 우선 적용 추후 검토 + f_Abgl = 1 '수리역학적으로 평형을 이룬 배관망 + Q_c_f = 0 + Q_c_aux = 0 + beta_k_pl = 0.3 + PLV_av = 1 + use_Oil = 0 + use_LNG = 0 + use_LPG = 0 + use_Elec = 0 + use_DH = 0 + i_HeatCool = 2 + system_type = 2 + + Dim Mon As String = "M" & Format(i_count_month, "00") + For Each dr냉방 As DS.tbl_nangbangkikiRow In DSET.tbl_nangbangkiki.Select("code<>'0'", "code") + + '//이 냉방기가가 존에서 사용되었는지확인한다. + Dim Drow존() As DS.tbl_zoneRow = CType(DSET.tbl_zone.Select("(공조냉방생산기기 = '" & dr냉방.code & "' and 냉난방공조 <> '기능없음' and (외기부하처리여부 = '예' or 냉난방공조 = '냉난방' or 냉난방공조 = '냉방') ) or (열생산냉방생산기기='" & dr냉방.code & "' and 냉난방방식 <> '난방' and 냉난방방식 <> '기능없음') and code <> '0'"), DS.tbl_zoneRow()) + If Drow존.GetUpperBound(0) <> -1 Then ' Worksheets("냉방기기").Range("냉방생산기기1").Offset(2, i_count_chiller - 1) = "0001" Then '2 + Q_c_b = 0 + Q_c_star_b = 0 + t_h_max = 0 + Q_c_f_elektr = 0 + Q_c_outg_therm = 0 + Q_c_g = 0 + Q_c_f_R_elektr = 0 + + + For Each Dr존 As DS.tbl_zoneRow In DSET.tbl_zone.Select("(공조냉방생산기기 = '" & dr냉방.code & "' and 냉난방공조 <> '기능없음' and (외기부하처리여부 = '예' or 냉난방공조 = '냉난방' or 냉난방공조 = '냉방') ) or (열생산냉방생산기기='" & dr냉방.code & "' and 냉난방방식 <> '난방' and 냉난방방식 <> '기능없음') and code <> '0'", "code") + Dim Drow분석() As DSR.월별에너지분석Row = CType(DSETR.월별에너지분석.Select("월='" & Mon & "' and 존='" & Dr존.code & "'"), DSR.월별에너지분석Row()) + ' 존데이터를가져올떄 해당 냉방기기에서 사용한 존만 가져왔따. + ' If Dr존.열생산냉방생산기기 <> "" Then ' Worksheets("입력존").Range("입력냉방생산기기1").Offset(0, i_count_zone - 1) <> "" Then + ' If Dr존.열생산냉방생산기기 = dr냉방.code Then ' Worksheets("입력존").Range("입력냉방생산기기1").Offset(0, i_count_zone - 1) = Worksheets("냉방기기").Range("냉방생산기기1").Offset(0, i_count_chiller - 1) Then + + If Dr존.열생산냉방생산기기 = dr냉방.code And (Dr존.냉난방방식 = "냉난방" OrElse Dr존.냉난방방식 = "냉방") Then + Q_c_b_i = Result.E분석(i_count_month).냉방에너지요구량열(Dr존.code) ' CSng(Drow분석(0).냉방요구량열) ' Sheets("" & i_count_month & "").Cells(10, 7 + i_count_zone) + Q_c_b = Q_c_b + Q_c_b_i + End If + If Dr존.공조냉방생산기기 = dr냉방.code And Dr존.냉난방공조 = "냉난방" OrElse Dr존.냉난방공조 = "냉방" OrElse ((Dr존.냉난방공조 = "환기" OrElse Dr존.냉난방공조 = "난방") And Dr존.외기부하처리여부 = "예") Then + If (Dr존.냉난방공조 = "환기" OrElse Dr존.냉난방공조 = "난방") And Dr존.외기부하처리여부 = "예" Then '// 2010.11.19 추가 + Q_c_star_b_i = TOSG(Drow분석(0).냉방요구량공조) '//2010.11.19 추가 + Else + Q_c_star_b_i = Result.E분석(i_count_month).공조에너지요구량냉방(Dr존.code) ' CSng(Drow분석(0).공조요구량냉방) ' Sheets("" & i_count_month & "").Cells(21, 7 + i_count_zone) + End If + + Q_c_star_b = Q_c_star_b + Q_c_star_b_i + End If + + '===================================================================================2010.2.21 수정 + Dim Dr프로필 As DS.tbl_profileRow = CType(DSET.tbl_profile.Select("code='" & Dr존.프로필 & "' and code <> '0'")(0), DS.tbl_profileRow) + Dim Drow최대() As DSR.최대냉난방부하Row = CType(DSETR.최대냉난방부하.Select("zone='" & Dr존.code & "'"), DSR.최대냉난방부하Row()) + + If i_count_month = 0 Then + d_op_mth = 0 + Else + d_op_mth = CInt(Dr프로필("day" & Format(i_count_month, "00"))) + End If + + 'If t_h_max < TOSG(Drow최대(0).난방최대가동시간) * d_op_mth Then + ' t_h_max = CInt(TOSG(Drow최대(0).난방최대가동시간) * d_op_mth) + 'End If + + If t_h_max < TOSG(Dr프로필.일일운전시간) * d_op_mth Then + t_h_max = CInt(TOSG(Dr프로필.일일운전시간) * d_op_mth) + End If + + If d_op_max_mth < d_op_mth Then + d_op_max_mth = d_op_mth + End If + '===================================================================================2010.2.21 수정 + ' End If + ' End If + Next + + 'Q_vh_b = Sheets("" & i_count_month & "").Cells(19, 7 + i_count_zone) + 'Q_vc_b = Sheets("" & i_count_month & "").Cells(21, 7 + i_count_zone) + 'Q_vm_b = Sheets("" & i_count_month & "").Cells(23, 7 + i_count_zone) + + + '========================================================================================================================================== + ' 가열유닛에 대한 사용에너지(3차 에너지) + ' 외부 공조덕트가 없어서 Q_vh_d 는 0으로 적용 + + 'Q_dot_V_H_max = V_dot_star_rho_L(c_p_L * (theta_ZUL_wi - theta_AUL_wi) - Delta_h_WRG) '(3.2.5-58) + 'Q_dot_V_H_max = V_dot_star * rho_L(h_ZUL_wi - h_AUL_wi - Delta_h_WRG) '(3.2.5-57) + 'b_VH_a = sigma1_12(b_VH_month) '(3.2.8-7) + 'b_VH_mth = Q_vh_b / Q_dot_V_H_max '(3.2.8-6) + 't_H_r = t_H_r_14_12h + (t_H_r_22_12h - t_H_r_14_12h) * (theta_V_mech - 14) / 8 '(3-B.1) theta_V_mech은 (3-C.1) + 't_H_star_op_mth = t_H_r * b_VH_mth / b_VH_a '(3.2.8-5) + 'Q_vh_d = f_vh_d * A_K_A * t_H_star_opo_mth '(3.2.8-10) f_vh_d=16W/m + + 'Q_vh_ce = (1 - eta_vh_ce) * Q_vh_b '(3.2.8-9) eta_vh_ce 는 1로 Q_vh_ce 는 0이 됨 + 'Q_h_star_b = Q_vh_b 'Q_h_star_b = Q_vh_b + Q_vh_ce + Q_vh_d '(3.2.8-2) + '========================================================================================================================================== + + + + '========================================================================================================================================== + ' 냉각 유닛에 대한 사용 에너지(3차 에너지) + ' 외부 공조덕트가 없어서 Q_vc_d 는 0으로 적용 + + 'Q_dot_V_C_max = V_dot_star * rho_L(h_AUL_so - h_ZUL_so - Delta_h_WRG) '(3.2.5-62) + 'b_VC_a = sigma1_12(b_VC_month) '(3.2.8-13) + 'b_VC_mth = Q_vc_b / Q_dot_V_C_max '(3.2.8-12) + 't_C_r = (t_C_r_14_12h + (t_C_r_22_12h - t_C_r_14_12h) * (theta_V_mech - 14) / 8) * f_h_C '(3-B.2) theta_V_mech은 (3-C.1) + 't_C_star_op_mth = t_C_r * b_VC_mth / b_VC_a '(3.2.8-11) + 'Q_vc_d = f_vc_d * A_K_A * t_C_star_opo_mth '(3.2.8-10) f_vh_d=9W/m + 'Q_vc_ce = (1 - eta_vc_ce) * Q_vc_b '(3.2.8-9) eta_vc_ce 는 1로 Q_vc_ce 는 0이 됨 + + 'Q_c_star_b = Q_vc_b 'Q_c_star_b = Q_vc_b + Q_vc_ce + Q_vc_d '(3.2.8-8) + + '========================================================================================================================================== + + + '가습 + 'Q_m_star_b = Q_vm_b '(3.2.8-14) + + + ' 실-냉방 냉열 공급 + + 'Q_c_b = Sheets("" & i_count_month & "").Cells(7, 7 + i_count_zone) + + Q_c_d = (1 - eta_c_d) * Q_c_b '(3.2.8-21) eta_c_d는 (Tab.7-8) + Q_c_ce = ((1 - eta_c_ce) + (1 - eta_c_ce_sens)) * Q_c_b '(3.2.5-20) eta_c_ce는(Tab.7-8), eta_c_ce_sens는 (Tab.7-7) + + Q_c_outg = Q_c_b + Q_c_ce + Q_c_d + Q_c_s '(3.2.8-19) + + + + '========================================================================================================================================== + ' 실-냉방 2차 공기 송풍기의 전기에너지 요구량 + ' 추후 세부 변수 검토 + + 'beta_c_i = beat_c_we = Q_c_b_we / (Q_c_max_res * t_c_op_we) '(2-D.7) + 'beta_c_i = beta_c_nutz = Q_c_b_nutz / (Q_c_max_res * t_c_op_nutz) + 't_c_i = t_mth_nutz = d_nutz * t_c_op_nutz '(2-D.8) t_c_i=t_mth_we=d_we*t_c_op_we + 't_c_i = t_mth_i * beta_c_i / beta_c_grenz '(2-D.6) + 't_c_op = t_c_NR + t_c_we '(2-D.5) + 'Q_c_outg = Q_c_b + Q_c_ce + Q_c_d + Q_c_s '(3.2.8-19) + 'Q_c_ce_aux = f_c_ce_aux * Q_c_outg * t_c_op / 1000 '(3.2.8-23) f_c_ce_aux 는 (Tab.3.93) + Q_c_ce_aux = f_c_ce_aux * Q_c_outg * t_h_max / 1000 + + + '========================================================================================================================================== + + + + + '공조-냉방 냉열 공급 + + Q_c_star_d = (1 - eta_c_star_d) * Q_c_star_b '(3.2.8-18) eta_c_star_d는 (Tab.3.91) + Q_c_star_ce = ((1 - eta_c_star_ce) + (1 - eta_c_star_ce_sens)) * Q_c_star_b '(3.2.8-16) eta_c_star_ce는 (Tab.3.91), eta_c_star_ce_sens는 (Tab.3.91) + + Q_c_star_outg = Q_c_star_b + Q_c_star_ce + Q_c_star_d + Q_c_star_s '(3.2.8-15) + Q_z_star_outg_l = Q_c_star_outg + + + ' 공조기기 가습에 필요한 생산기의 이용열 교부 + + + 'Q_m_star_d = 0 + 'Q_m_star_ce = 0 + 'Q_m_star_b = Q_vm_b '(3.2.8-14) + 'Q_m_star_outg = Q_m_star_b 'Q_m_star_outg = Q_m_star_b + Q_m_star_ce + Q_m_star_d '(3.2.8-24) + + + Q_c_outg_total = Q_c_outg + Q_c_star_outg + + Q_z_outg_l = Q_c_outg_total + + + + '================================================================================================================================== + '================================================================================================================================== + '지열시스템 + + Dim CRenew As New CRenewable + If dr냉방.신재생연결여부 = "시스템연결" AndAlso dr냉방.연결된시스템 <> "0" Then ' 시스템연결" Then + Dim Dr신재생 As DS.tbl_newRow = CType(DSET.tbl_new.Select("code='" & dr냉방.연결된시스템 & "' and code <> '0'")(0), DS.tbl_newRow) + '//연결되었을시에는 + Select Case Dr신재생.기기종류.Trim + Case "태양열" '//태양열 + Case "태양광" '//태양광 + Case "지열" '//지열 + Select Case Dr신재생.가동연료.Trim + Case "전기" '전기" + CRenew.Calc_HeatpumpSystem(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_HeatpumpSystem(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_HeatpumpSystem(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 + + '================================================================================================================================== + '================================================================================================================================== + + EER = TOSG(dr냉방.열성능비) * age ' Dr냉방.열성능비 + Q_dot_c_outg = TOSG(dr냉방.냉동기용량) ' dr냉방.냉동기용량 + + k_n = Q_c_outg_total / (Q_dot_c_outg * t_h_max) + + If k_n > 1 Then k_n = 1 + + k_n_index = 100 ' 조건에 없는 압축방식에서 에러 발생 유도함 + + Select Case dr냉방.냉동기방식.Trim 'Dr냉방.냉동기방식 + Case "압축식", "압축식(LNG)" '압축식" + T_W_1_i = TOSG(dr냉방.냉각탑입구온도) ' Dr냉방.냉각탑입구온도 + Select Case dr냉방.냉동기종류.Trim ' Dr냉방.냉동기종류 + Case "수냉식" '수냉식" + Select Case dr냉방.냉동기압축방식.Trim ' Dr냉방.냉동기압축방식 + Case "왕복동/스크롤 압축기" '왕복동/스크롤압축기" + Select Case dr냉방.압축기제어방식.Trim 'Dr냉방.압축기제어방식 + Case "on/off제어" + k_n_index = 7 + f_2_av = 1 + Case "다단제어" '다단제어" + k_n_index = 8 + Select Case dr냉방.증발식건식냉각기.Trim ' Dr냉방.증발식건식냉각기 + Case "증발식" '증발식" + f_2_av = TOSG(2.0614 - 0.0307 * T_W_1_i) + Case "건식" '건식" + f_2_av = TOSG(2.1181 - 0.0249 * T_W_1_i) + Case Else + MsgBox("22") + End Select + Case "실린더off" + k_n_index = 9 + Select Case dr냉방.증발식건식냉각기.Trim + Case "증발식" '증발식" + f_2_av = TOSG(2.0614 - 0.0307 * T_W_1_i) + Case "건식" '건식" + f_2_av = TOSG(2.1181 - 0.0249 * T_W_1_i) + Case Else + MsgBox("21") + End Select + Case "바이패스제어" '바이패스제어" + k_n_index = 10 + f_2_av = 1 + Case Else + MsgBox("19") + End Select + Case "스크류압축기" '스크류압축기" + k_n_index = 11 + Select Case dr냉방.증발식건식냉각기.Trim + Case "증발식" '증발식" + f_2_av = TOSG(2.0614 - 0.0307 * T_W_1_i) + Case "건식" '건식" + f_2_av = TOSG(3.1851 - 0.0486 * T_W_1_i) + Case Else + MsgBox("18") + End Select + Case "터보압축기" '터보압축기" + k_n_index = 12 + Select Case dr냉방.증발식건식냉각기.Trim + Case "증발식" '증발식" + f_2_av = TOSG(2.0614 - 0.0307 * T_W_1_i) + Case "건식" '건식" + f_2_av = TOSG(2.1181 - 0.0249 * T_W_1_i) + Case Else + MsgBox("16") + End Select + Case Else + MsgBox("17") + End Select + + Case "공냉식" '공냉식" + Select Case dr냉방.냉동기압축방식.Trim + Case "왕복동/스크롤 압축기" '왕복동/스크롤압축기" + Select Case dr냉방.압축기제어방식.Trim + Case "on/off제어" + k_n_index = 0 + f_2_av = 1 + Case "다단제어" '다단제어" + k_n_index = 1 + f_2_av = 1 + Case Else + MsgBox("15") + End Select + Case "스크류압축기" '스크류압축기" + k_n_index = 2 + f_2_av = 1 + Case Else + MsgBox("14") + End Select + + Case "실내공조시스템" '실내공조시스템" + Select Case dr냉방.냉동기설비시스템.Trim ' Dr냉방.냉동기설비시스템 + Case "콤팩트형시스템" '콤팩트형시스템" + k_n_index = 3 + f_2_av = 1 + Case "실내외분리시스템" '실내외분리시스템" + Select Case dr냉방.제어방식.Trim.ToLower '냉동기설비시스템의제어방식 Dr냉방.제어방식 + Case "on/off제어" + k_n_index = 3 + f_2_av = 1 + Case "회전수제어" '회전수제어" + k_n_index = 5 + f_2_av = 1 + Case Else + MsgBox(dr냉방.제어방식.Trim) + End Select + Case "멀티분리시스템" '멀티분리시스템" + Select Case dr냉방.제어방식.Trim + Case "on/off제어" + k_n_index = 4 + f_2_av = 1 + Case "회전수제어" '회전수제어" + k_n_index = 6 + f_2_av = 1 + Case Else + MsgBox("11") + End Select + Case Else + MsgBox("13") + End Select + Case Else + MsgBox("30") + End Select + '//이부분정확히 살펴보아야할듯 + If k_n = 0 Then k_n = 0.001 ' 부분부하율이 0일 경우 부분부하를 0에서 0.1구간으로 설정 + 'Dim Drow부분부하() As DS.tbl_buhaRow = DSET.tbl_buha.Rows(k_n_index) '.Select("code='" & Format(9 - Int((1 - k_n) * 10), "00") & "'") + + If k_n_index >= 100 Then + Log.AppendLine("냉방기기(" & dr냉방.설명 & ")의 냉동기방식(" & dr냉방.냉동기방식.Trim & ")에따른 종류(" & dr냉방.냉동기종류.Trim & ")를 확인할 수 없습니다") + Exit For 'Return + Else + f_1_av_up = TOSG(DSET.tbl_buha.Rows(k_n_index)(CInt(9 - Int((1 - k_n) * 10) + 2))) + If k_n < 0.1 Then + f_1_av_dn = f_1_av_up + Else + f_1_av_dn = TOSG(DSET.tbl_buha.Rows(k_n_index)(CInt(9 - Int((1 - k_n) * 10) + 1))) + End If + f_1_av = f_1_av_up - (f_1_av_up - f_1_av_dn) * (1 - (k_n * 10 - Int(k_n * 10))) + + 'f_1_av = TOSG(DSET.tbl_buha.Rows(k_n_index)(CInt(9 - Int((1 - k_n) * 10) + 2))) ' Worksheets("부분부하율").Range("냉동기부분부하율1").Offset(k_n_index, 9 - Int((1 - k_n) * 10)) + End If + + PLV_av = f_1_av * f_2_av + If dr냉방.냉동기방식 = "압축식" Then + Q_c_f_elektr = Q_c_outg_total / (EER * PLV_av) + '======================================================================= 2010.10.5 추가 + ElseIf dr냉방.냉동기방식 = "압축식(LNG)" Then + Q_c_outg_therm = Q_c_outg_total / (EER * PLV_av) + use_LNG = use_LNG + Q_c_outg_therm + '======================================================================= 2010.10.5 추가 + End If + If (dr냉방.냉동기방식 = "압축식" Or dr냉방.냉동기방식 = "압축식(LNG)") And dr냉방.냉동기종류 = "수냉식" Then 'If Dr냉방.냉동기방식 = "압축식" And Dr냉방.냉동기종류 = "수냉식" Then + Q_dot_R_outg = Q_dot_c_outg * (1 + 1 / EER) + Select Case dr냉방.증발식건식냉각기.Trim + Case "증발식" '증발식" + l_min_i = TOSG(1.2103 - 0.0162 * theta_e) '원래는 습구온도로 입력요망 우선 외기건구온도로 입력 추후 수정 + 'f_R_av = (Log(1 - 0.5 / 0.8) * l_min_i / (Log(1 - 0.5 / 0.8) * 0.87)) ^ 2 ' 냉각탑 가동시간을 부분부하 25%이상이면 가동하는 것으로 계산 추후 수정 + f_R_av = Q_c_outg_total * 4 / (Q_dot_c_outg * t_h_max) ' 냉각탑 가동시간을 부분부하 25%이상이면 가동하는 것으로 계산 추후 수정 + If f_R_av > 1 Then f_R_av = 1 ' 냉각탑 가동시간을 부분부하 25%이상이면 가동하는 것으로 계산하고 최대가동시간 이하로 계산 추후 수정 + Select Case dr냉방.증발식냉각기.Trim 'Dr냉방.증발식냉각기 + Case "폐쇄형" '폐쇄형" + Select Case dr냉방.보조방음기유무.Trim 'Dr냉방.보조방음기유무 + Case "아니오" '아니오" + q_R_elektr = 0.033 + Case "예" '예" + q_R_elektr = 0.04 + End Select + Case "개방형" '개방형" + Select Case dr냉방.보조방음기유무.Trim + Case "아니오" '아니오" + q_R_elektr = 0.018 + Case "예" '예" + q_R_elektr = 0.021 + End Select + End Select + Case "건식" '건식" + f_R_av = 1 '우선 1로 적용 추후 검토 + q_R_elektr = 0.045 + End Select + Q_c_f_R_elektr = Q_dot_R_outg * q_R_elektr * f_R_av * t_h_max + Else + Q_c_f_R_elektr = 0 + End If + + + Case "흡수식" '흡수식" + Q_dot_R_outg = Q_dot_c_outg * (1 + 1 / EER) + T_W_1_i = TOSG(dr냉방.냉각탑입구온도) + Select Case dr냉방.증발식건식냉각기.Trim + Case "증발식" '증발식" + l_min_i = TOSG(1.2103 - 0.0162 * theta_e) '원래는 습구온도로 입력요망 우선 외기건구온도로 입력 추후 수정 + 'f_R_av = (Log(1 - 0.5 / 0.8) * l_min_i / (Log(1 - 0.5 / 0.8) * 0.87)) ^ 2 ' 냉각탑 가동시간을 부분부하 25%이상이면 가동하는 것으로 계산 추후 수정 + f_R_av = Q_c_outg_total * 4 / (Q_dot_c_outg * t_h_max) ' 냉각탑 가동시간을 부분부하 25%이상이면 가동하는 것으로 계산 추후 수정 + If f_R_av > 1 Then f_R_av = 1 ' 냉각탑 가동시간을 부분부하 25%이상이면 가동하는 것으로 계산하고 최대가동시간 이하로 계산 추후 수정 + Select Case dr냉방.증발식냉각기.Trim + Case "폐쇄형" + Select Case dr냉방.보조방음기유무.Trim + Case "아니오" + q_R_elektr = 0.033 + Case "예" + q_R_elektr = 0.04 + End Select + Case "개방형" + Select Case dr냉방.보조방음기유무.Trim + Case "아니오" + q_R_elektr = 0.018 + Case "예" + q_R_elektr = 0.021 + End Select + End Select + Case "건식" '건식" + f_R_av = 1 '우선 1로 적용 추후 검토 + q_R_elektr = 0.045 + End Select + Q_c_f_R_elektr = Q_dot_R_outg * q_R_elektr * f_R_av * t_h_max + + Select Case dr냉방.증발식건식냉각기.Trim + Case "증발식" + f_2_av = TOSG(1.7174 - 0.0217 * T_W_1_i) + Case "건식" + f_2_av = TOSG(2.3235 - 0.0294 * T_W_1_i) + Case Else + 'MsgBox("증발식건식냉각기를 확인할 수 없습니다" & vbCrLf & "Calc_CoolingSystem 429번줄 Case else 를 입력하세요", MsgBoxStyle.Critical, dr냉방.증발식건식냉각기) + + End Select + + '//13번째줄 + If k_n = 0 Then k_n = 0.01 ' 부분부하율이 0일 경우 부분부하를 0에서 0.1구간으로 설정 + f_1_av_up = TOSG(DSET.tbl_buha.Rows(13)(CInt(9 - Int((1 - k_n) * 10) + 2))) + If k_n < 0.1 Then + f_1_av_dn = f_1_av_up + Else + f_1_av_dn = TOSG(DSET.tbl_buha.Rows(13)(CInt(9 - Int((1 - k_n) * 10) + 1))) + End If + f_1_av = f_1_av_up - (f_1_av_up - f_1_av_dn) * (1 - (k_n * 10 - Int(k_n * 10))) + 'f_1_av = TOSG(DSET.tbl_buha.Rows(13)(CInt(9 - Int((1 - k_n) * 10) + 2))) 'Worksheets("부분부하율").Range("냉동기부분부하율1").Offset(13, 9 - Int((1 - k_n) * 10)) + PLV_av = f_1_av * f_2_av + + + + Q_c_outg_therm = Q_c_outg_total / (EER * PLV_av) + + ': 흡수식 냉동기에서 사용되는 보일러의 생산손실에너지 계산 + If dr냉방.열생산연결방식.ToString = "외부연결" Then '==============================2010.04.02 if문 추가 + + + '//냉방의 온수열생산기기로 지정된 난방기기만을 취한다 10.02.23 최적화중변경 + For Each Dr난방 As DS.tbl_nanbangkikiRow In DSET.tbl_nanbangkiki.Select("code = '" & dr냉방.온수열생산기기 & "' and code <> '0'", "code") + 'If Dr난방.code = dr냉방.온수열생산기기 Then ' Dr냉방.온수열생산기기 Then + + theta_VA = TOSG(Dr난방.급수온도) ' Worksheets("난방기기").Range("난방기기급수온도1").Offset(0, i_count_c_d - 1) + theta_RA = TOSG(Dr난방.환수온도) ' Worksheets("난방기기").Range("난방기기환수온도1").Offset(0, i_count_c_d - 1) + + theta_HK_m_beta_h_d = TOSG(0.5 * (theta_VA + theta_RA)) + + '---------------------------------------------------------------------------------------------------------------------------------- + '---------------------------------------------------------------------------------------------------------------------------------- + + '신재생 및 열병합 시스템 + Dim CNew As New CRenewable + If Dr난방.신재생연결여부 = "시스템연결" AndAlso Dr난방.연결된시스템 <> "0" Then ' Worksheets("난방기기").Range("신재생난방연결1").Offset(0, i_count_c_d - 1) = "시스템연결" Then + Dim Dr신재생 As DS.tbl_newRow = CType(DSET.tbl_new.Select("code='" & Dr난방.연결된시스템 & "' and code <> '0'")(0), DS.tbl_newRow) + Select Case Dr신재생.기기종류.Trim + Case "태양열" '//태양열 + '========================================================================================2010.04.02 추가 + If Q_c_outg_therm > 0 Then + Calc.Renewable.Calc_ThermalSolarSystem_EN(system_type, Dr신재생.code, i_count_month, d_op_max_mth, Q_h_outg_i, Q_c_outg_therm, Q_W_sol_out_m, Q_H_sol_out_m, W_sol_aux_m) + Q_c_outg_therm = Q_c_outg_therm - Q_W_sol_out_m + Q_c_aux = Q_c_aux + W_sol_aux_m + End If + '========================================================================================2010.04.02 추가 + Case "태양광" '//태양광 + Case "지열" '//지열 + Case "열병합" '//열병합 + If Q_c_outg_therm > 0 Then '===========================2010.04.02 And Q_c_outg_therm > 0 추가 + Select Case Dr신재생.가동연료.Trim + Case "난방유" '난방유" + CNew.Calc_CogenerationSystemEN(Dr신재생, i_count_month, Q_c_outg_therm, t_h_max, Q_chp_outg, Q_c_f_chp) + Q_c_outg_therm = Q_c_outg_therm - Q_chp_outg + use_Oil = use_Oil + Q_c_f_chp + + Case "천연가스" '천연가스" + CNew.Calc_CogenerationSystemEN(Dr신재생, i_count_month, Q_c_outg_therm, t_h_max, Q_chp_outg, Q_c_f_chp) + Q_c_outg_therm = Q_c_outg_therm - Q_chp_outg + use_LNG = use_LNG + Q_c_f_chp + + Case "액화가스" '액화가스" + CNew.Calc_CogenerationSystemEN(Dr신재생, i_count_month, Q_c_outg_therm, t_h_max, Q_chp_outg, Q_c_f_chp) + Q_c_outg_therm = Q_c_outg_therm - Q_chp_outg + use_LPG = use_LPG + Q_c_f_chp + + End Select + End If + + End Select + End If + + + '---------------------------------------------------------------------------------------------------------------------------------- + '---------------------------------------------------------------------------------------------------------------------------------- + + + If Dr난방.열생산기기방식 = "보일러" Then ' Worksheets("난방기기").Range("열생산기기방식1").Offset(0, i_count_c_d - 1) = "보일러" Then + + Q_dot_N = TOSG(Dr난방.정격보일러효율) * age_heating ' Worksheets("난방기기").Range("난방기기정격출력1").Offset(0, i_count_c_d - 1) + Q_dot_d_in = Q_c_outg_therm / t_h_max + + Select Case Dr난방.운전방식.Trim ' Worksheets("난방기기").Range("난방기기운전방식1").Offset(0, i_count_c_d - 1) + Case "단독가동" '단독가동" + beta_h = Q_dot_d_in / Q_dot_N '(3.2.7-64) : 단일보일러 시설 + Case "동시가동" ' 동시가동" + beta_h = Q_dot_d_in / (Q_dot_N * TOSG(Dr난방.보일러대수)) ' Worksheets("난방기기").Range("난방기기운전방식1").Offset(1, i_count_c_d - 1)) '(3.2.7-64) : 다수보일러 동시가동 + Case "순차가동" '순차가동" + For i_count_beta = 1 To CInt(TOSG(Dr난방.보일러대수)) + If Q_dot_d_in <= (Q_dot_N * i_count_beta) Then + beta_h = (Q_dot_d_in - Q_dot_N * (i_count_beta - 1)) / Q_dot_N * i_count_beta '다수보일러 대수제어 + n_beta = i_count_beta - 1 + Exit For + End If + Next + End Select + + + eta_k_100 = TOSG(Dr난방.정격보일러효율) * age_heating / 100 'Worksheets("난방기기").Range("난방기기정격효율1").Offset(0, i_count_c_d - 1) / 100 + eta_k_pl = eta_k_100 + f = -0.4 + Select Case Dr난방.보일러방식.Trim 'Worksheets("난방기기").Range("보일러방식1").Offset(0, i_count_c_d - 1) + Case "가스보일러" '가스보일러" + e = 8.5 + f = -0.4 + Case "기름보일러" '기름보일러" + e = 8.5 + f = -0.4 + Case "저온가스보일러" '저온가스보일러" + e = 4.5 + f = -0.4 + Case "저온기름보일러" '저온기름보일러" + e = 4.25 + Case "콘덴싱보일러" '콘덴싱보일러" + e = 4 + End Select + + q_B_70 = TOSG((e * (Q_dot_N ^ f)) / 100) + q_B_theta = q_B_70 '원래는 =q_B_70 * (theta_HK_m_beta_h_g - theta_i) / (70 - 20) 이지만 q_B_theta 와 q_B_70 이 같은 것으로 적용 추후검토 + + 'Select Case Worksheets("난방기기").Range("난방기기사용연료1").Offset(0, i_count_c_d - 1) + 'Case "난방유" + 'f_Hs_Hi = 1.06 + 'Case "천연가스" + 'f_Hs_Hi = 1.11 + 'Case "액화가스" + 'f_Hs_Hi = 1.09 + 'Case "석탄" + 'f_Hs_Hi = 1.04 + 'Case "갈탄" + 'f_Hs_Hi = 1.07 + 'Case "나무" + 'f_Hs_Hi = 1.08 + 'End Select + + f_Hs_Hi = 1 ' 국내는 총발열량을 기준으로 입력함으로 우선 1로 설정, 추후 검토 + + Q_dot_B_h = q_B_theta * (Q_dot_N / eta_k_100) * f_Hs_Hi '(3.2.7-71) + + Q_V_g_100 = (f_Hs_Hi - eta_k_100) / eta_k_100 * Q_dot_N + Q_V_g_pl = (f_Hs_Hi - eta_k_pl) / eta_k_pl * beta_k_pl * Q_dot_N + + '------------------------------------------------------------------------------------------------------ + + If beta_h > beta_k_pl Then + Q_c_g_v_i = ((beta_h - beta_k_pl) / (1 - beta_k_pl) * (Q_V_g_100 - Q_V_g_pl) + Q_V_g_pl) + Q_c_g_v_i = Q_c_g_v_i + ((Q_V_g_100 - Q_V_g_pl) + Q_V_g_pl) * n_beta + Else + Q_c_g_v_i = ((beta_h / beta_k_pl) * (Q_V_g_pl - Q_dot_B_h) + Q_dot_B_h) + End If + + + Q_c_g = Q_c_g_v_i * t_h_max ' 추후 검토 + + Else + + ':지역난방의 경우 적용 추후 검토 + Q_c_g = 0 + + End If + + If Dr난방.열생산기기방식 = "보일러" Then 'Worksheets("난방기기").Range("열생산기기방식1").Offset(0, i_count_c_d - 1) = "보일러" Then + Select Case Dr난방.사용연료.Trim ' Worksheets("난방기기").Range("난방기기사용연료1").Offset(0, i_count_c_d - 1) + Case "난방유" '난방유" + use_Oil = use_Oil + Q_c_g + Q_c_outg_therm + + Case "천연가스" '천연가스" + use_LNG = use_LNG + Q_c_g + Q_c_outg_therm + + Case "액화가스" '액화가스" + use_LPG = use_LPG + Q_c_g + Q_c_outg_therm + + End Select + Else + Select Case Dr난방.열생산기기방식.Trim 'Worksheets("난방기기").Range("열생산기기방식1").Offset(0, i_count_c_d - 1) + Case "지역난방" '지역난방" + use_DH = use_DH + Q_c_outg_therm + + Case "전기보일러" '전기보일러" + use_Elec = use_Elec + Q_c_outg_therm + + End Select + + End If + + + ' End If + + + Next + '=================================================================================================2010.04.02 if문 추가 + ElseIf dr냉방.열생산연결방식 = "직화식" Then + Select Case dr냉방.사용연료.ToString + Case "난방유" + use_Oil = use_Oil + Q_c_outg_therm + Case "천연가스" + use_LNG = use_LNG + Q_c_outg_therm + Case "액화가스" + use_LPG = use_LPG + Q_c_outg_therm + Case Else + MsgBox("냉동기기(" & dr냉방.설명 & ")가 직화식이나 사용연료가 없습니다.확인바랍니다.", vbOKOnly, "건물 에너지 평가 프로그램(ECO2)") + End Select + Else + MsgBox("냉동기기(" & dr냉방.설명 & ")의 열생산연결방식을 확인바랍니다.", vbOKOnly, "건물 에너지 평가 프로그램(ECO2)") + End If + + '=================================================================================================2010.04.02 if문 추가 + Case "지역냉방" '지역냉방" + '--------------------------------------------------------------------------------------------------2010.02.22 수정 + use_DC = use_DC + Q_c_outg_total + '--------------------------------------------------------------------------------------------------2010.02.22 수정 + Q_c_outg_therm = Q_c_outg_total + + End Select + + Q_c_f = Q_c_f + Q_c_f_elektr + Q_c_f_R_elektr + Q_c_outg_therm + Q_c_g + use_Elec = use_Elec + Q_c_f_elektr + Q_c_f_R_elektr + + If i_count_month = 6 Then + i_count_month = 6 + End If + ' 분배에 대한 전기 에너지 소비 + For Each Dr분배 As DS.tbl_bunbaeRow In DSET.tbl_bunbae.Select("냉동기='" & dr냉방.code & "' and code <> '0'", "code") + 'If Dr분배.냉동기 = dr냉방.code Then ' Worksheets("냉방분배시스템").Range("냉동기분배1").Offset(0, i_count_c_d - 1) = Worksheets("냉방기기").Range("냉방생산기기1").Offset(0, i_count_chiller - 1) Then + + Q_dot_z = Q_dot_c_outg * (1 + 1 / EER) '(3.2.8-30) + Delta_theta_z_cl = TOSG(Dr분배.설정점에서의온도차) ' Worksheets("냉방분배시스템").Range("급수온도1").Offset(3, i_count_c_d - 1) 6 + c_cl = TOSG(Dr분배.냉매의비열) ' Worksheets("냉방분배시스템").Range("급수온도1").Offset(4, i_count_c_d - 1) 4.18 + rho_cl = TOSG(Dr분배.냉매의밀도) ' Worksheets("냉방분배시스템").Range("급수온도1").Offset(5, i_count_c_d - 1) 1000 + V_dot_z = (3600 * Q_dot_z) / (Delta_theta_z_cl * c_cl * rho_cl) '(3.2.8-29) + L = TOSG(Dr분배.공급범위의길이) ' Worksheets("냉방분배시스템").Range("공급범위길이1").Offset(0, i_count_c_d - 1) + b = TOSG(Dr분배.공급범위의넓이) 'Worksheets("냉방분배시스템").Range("공급범위길이1").Offset(1, i_count_c_d - 1) + n_G = TOSG(Dr분배.열층의수) ' Worksheets("냉방분배시스템").Range("공급범위길이1").Offset(2, i_count_c_d - 1) + h_G = TOSG(Dr분배.층고) 'Worksheets("냉방분배시스템").Range("공급범위길이1").Offset(3, i_count_c_d - 1) + L_max = 2 * (L + b / 2 + h_G * n_G + 10) '(3.2.8-32) + R = TOSG(Dr분배.배관의압력손실) ' Worksheets("냉방분배시스템").Range("급수온도1").Offset(7, i_count_c_d - 1) 0.3 + z = TOSG(Dr분배.개별저항비율) '("냉방분배시스템").Range("급수온도1").Offset(8, i_count_c_d - 1) 0.4 + Delta_P_WUE = TOSG(Dr분배.생산기기압력손실) ' Worksheets("냉방분배시스템").Range("생산기기압력손실1").Offset(0, i_count_c_d - 1) + Delta_P_WUV = TOSG(Dr분배.사용기기압력손실) ' Worksheets("냉방분배시스템").Range("생산기기압력손실1").Offset(1, i_count_c_d - 1) + Delta_P_RV = TOSG(Dr분배.제어밸브압력손실) ' Worksheets("냉방분배시스템").Range("생산기기압력손실1").Offset(2, i_count_c_d - 1) + + Delta_p_z = R * L_max * (1 + z) + Delta_P_WUE + Delta_P_RV + Delta_P_WUV '(3.2.8-31) R(7-Tab.11), Delta_P_WUE, Delta_P_RV, Delta_P_WUV (7-Tab.12) + + P_d_hydr = 1000 * Delta_p_z * V_dot_z / 3600 '(3.2.8-28) + + 'f_e = f_dash_e * (1 + (nu_cl ^ 2 / (16 * P_d_hydr)) ^ 0.4) '기존건물 관련 + 'f_e = (1.25 + (200 / P_d_hydr) ^ 0.5) * f_Adap * b '(3.2.8-38) '기존건물 관련 + P_Pump = TOSG(Dr분배.펌프동력) 'Worksheets("냉방분배시스템").Range("급수온도1").Offset(9, i_count_c_d - 1) + 'P_Pump = Worksheets("냉방분배시스템").Range("급수온도1").Offset(9, i_count_c_d - 1) << 이거오류인듯 펌프는 8번인덱스여야한다.9번줄에는 아무것도 없다. + f_e = P_Pump / P_d_hydr '원래는 P_hydr '(3.2.8-37) + + If Dr분배.펌프운전제어유무 = "제어" Then ' Worksheets("냉방분배시스템").Range("급수온도1").Offset(-1, i_count_c_d - 1) = "제어" Then + c_p1 = 0.85 + c_p2 = 0.15 + ElseIf Dr분배.펌프운전제어유무 = "대수제어" Then + c_p1 = 0.75 + c_p2 = 0.25 + Else + c_p1 = 0.25 + c_p2 = 0.75 + End If + + 'beta_d_l = beta_dash_ + (1 - beta_dash_d_l) * V_dot_z_min / V_dot_z '(3.2.8-35) + If Q_z_outg_l <> 0 Then + beta_d_l = Q_z_outg_l / (Q_dot_z * t_h_max) '(3.2.8-34) t_d_l 을 t_h_max으로 사용 + + e_d_l = f_e * (c_p1 + c_p2 / beta_d_l) '(3.2.8-36) + + W_d_hydr_l = P_d_hydr / 1000 * t_h_max * beta_d_l * f_Abgl '(3.2.8-27) t_d_l 을 t_h_max으로 사용 + + Q_z_aux_d_l = W_d_hydr_l * e_d_l '(3.2.8-26) + 'Q_z_aux_d_a = sigma(Q_z_zux_d_l) '(3.2.8-25) + + Q_c_aux = Q_c_aux + Q_z_aux_d_l + End If + + 'End If + + Next + + End If '2 + + Next '1 + + + + '//계산결과 시트의 각 월에해당되는 곳에 데이터를 기록한다. + + Result.E소요량(i_count_month).냉방 = Q_c_f + Result.E소요량(i_count_month).냉방보조 = Q_c_aux + + use_Elec = use_Elec + Q_c_aux + + Result.일차E소요량(i_count_month).냉방등유 = use_Oil + Result.일차E소요량(i_count_month).냉방LNG = use_LNG + Result.일차E소요량(i_count_month).냉방LPG = use_LPG + Result.일차E소요량(i_count_month).냉방지역난방열 = use_DH + '--------------------------------------------------------------------------------------------------2010.02.22 수정 + Result.일차E소요량(i_count_month).냉방지역냉방열 = use_DC + '--------------------------------------------------------------------------------------------------2010.02.22 수정 + Result.일차E소요량(i_count_month).냉방전력 = use_Elec + + End Sub +End Class diff --git a/ArinWarev1/Calculator/Heating/CHeating.vb b/ArinWarev1/Calculator/Heating/CHeating.vb new file mode 100644 index 0000000..21f78f1 --- /dev/null +++ b/ArinWarev1/Calculator/Heating/CHeating.vb @@ -0,0 +1,1821 @@ +Public Class CHeating + Public Overridable Sub Calc_WaterheatingSystem(ByVal i_count_month As Integer, ByVal d_mth As Integer, ByVal theta_e As Decimal) + + Dim Q_w_ce As Decimal, Q_w_b As Decimal, theta_NA_Grenz As Decimal, theta_WA_Grenz As Decimal, Q_w_d_i As Decimal, t_h As Decimal + Dim L_G As Decimal, B_G As Decimal, n_G As Decimal, h_G As Decimal, V_s As Decimal, f_verbindung As Decimal, q_B_S As Decimal, Q_dot_N As Decimal, theta_g_m As Decimal + Dim theta_i As Integer, t_Nutz_d As Integer, d_Nutz_a As Integer + Dim eta_k_100 As Decimal, Q_w_g_100 As Decimal, Q_w_outg_i As Decimal, q_B_theta As Decimal, Q_B_w As Decimal, Q_w_g As Decimal, d_h_rB As Decimal + Dim theta_e_min As Decimal, f_L_WA As Decimal + Dim Q_w_ce_aux As Decimal, Q_w_d_aux As Decimal, Q_w_g_aux As Decimal, P_Pump_w As Decimal, c_p1 As Decimal, c_p2 As Decimal, t_P As Decimal, P_aux_100 As Decimal + Dim Q_w_s_aux As Decimal, d_Nutz_mth As Integer, Q_w_s As Decimal, Q_w_d As Decimal, L_i As Decimal, Q_w_outg As Decimal + Dim f_Hs_Hi As Decimal, t_w_100 As Decimal, q_B_70 As Decimal, Q_w_f As Decimal, Q_w_aux As Decimal, Q_w_g_i As Decimal + Dim use_Oil As Decimal, use_LNG As Decimal, use_LPG As Decimal, use_Elec As Decimal, use_DH As Decimal + 'Dim i_count_renewable As Integer + Dim Q_h_outg_i As Decimal + Dim Q_W_sol_out_m As Decimal, Q_H_sol_out_m As Decimal, W_sol_aux_m As Decimal, W_sol_aux As Decimal + Dim system_type As Integer + + Dim Q_dot_HP_waterheating As Decimal, COP_HP_7 As Decimal, COP_HP_10 As Decimal, L_HP_waterheating As Decimal + Dim COP_HP_total As Decimal + + Dim D_DS As Decimal, B_DS As Decimal, theta_prim_DS As Decimal, theta_DS As Decimal, Psi_DS As Decimal, H_DS As Decimal + + + '==================================2010.2.21 수정 + Dim d_op_mth As Integer + Dim d_op_max_mth As Integer + Dim i_count_profile As Integer + d_op_max_mth = 0 + '==================================2010.2.21 수정 + + Dim Q_w_CHP As Decimal, Q_w_f_CHP As Decimal '==============2011.07.19 추가 + Dim Q_wp_outg As Decimal, Q_w_f_hp As Decimal, Q_w_g_hp_aux As Decimal '==================================2013.01.13 추가 + + + + + + Q_w_ce = 0 '급탕에서는 공급손실이 없음 + theta_NA_Grenz = 10 + theta_WA_Grenz = 10 + theta_e_min = -11.3 + f_verbindung = 1.2 '동일공간의 경우임, 타공간의 경우 (3.2.7-36) 참조 + theta_i = 22 '2011.04.01 수정 기존 13에서 주변온도를 22도로 수정(급탕에 대한 설정조건 완화) + t_Nutz_d = 11 '2011.04.01 수정 기존 24에서 운영시간를 11로 수정(급탕에 대한 설정조건 완화) + Q_w_g_100 = 0 + d_Nutz_a = 365 + Q_w_g = 0 + Q_w_g_aux = 0 + Q_w_d_aux = 0 + Q_w_s_aux = 0 + Q_w_ce_aux = 0 + use_Oil = 0 + use_LNG = 0 + use_LPG = 0 + use_Elec = 0 + use_DH = 0 + Q_w_outg = 0 + Q_h_outg_i = 0 + W_sol_aux = 0 + system_type = 3 + '====================================2011.07.21 추가 + Q_w_CHP = 0 + Q_w_f_CHP = 0 + '====================================2011.07.21 추가 + + '======================2013.01.13 추가 + Q_w_f_hp = 0 + Q_wp_outg = 0 + Q_w_g_hp_aux = 0 + '======================2013.01.13 추가 + + '====================================2010.2.21 수정 + 'd_Nutz_mth = d_mth ' 연중가동으로 계산 추후 검토 + '====================================2010.2.21 수정 + + Dim Mon As String = "M" & Format(i_count_month, "00") + + '태양광 시스템 + Dim Calc_태양 As New CRenewable : Calc_태양.Calc_PhotovoltaicSystem_EN(i_count_month, d_mth) + + For Each Dr난방 As DS.tbl_nanbangkikiRow In DSET.tbl_nanbangkiki.Select("code<>'0'", "code") + '=====================2010.2.21 수정 + d_op_max_mth = 0 + '=====================2010.2.21 수정 + + If DSET.tbl_zone.Select("열생산급탕생산기기='" & Dr난방.code & "' and code <> '0'").GetUpperBound(0) <> -1 Then '//급탕생산기기로 지정되어있는가 '//존에서 이 난방기기가 사용되었는가? ' Worksheets("난방기기").Range("난방생산기기1").Offset(5, i_count_boiler - 1) = "예" Then + + Q_w_b = 0 + Q_w_s = 0 + Q_w_d = 0 + Q_w_outg_i = 0 + Q_w_g_i = 0 + W_sol_aux_m = 0 + t_h = 0 + d_op_max_mth = 0 + Q_w_ce_aux = 0 + Q_w_d_aux = 0 + Q_w_s_aux = 0 + Q_w_g_aux = 0 + 'W_sol_aux_m = 0 + + If Dr난방.열생산기기방식.Trim = "전기보일러" Then + Q_w_b = 0 + End If + ' Dim Dr존 As DS.tbl_zoneRow '//여기존 할당부분은엑셀하고 다시 비교해야할듯 하다 이존은 아래쪽에 프로시져 넘길떄 사용한다. + + '//현재난방기기를 급탕생산기기로 사용하는 존을 가져와서 누적시킴 + For Each Dr존 As DS.tbl_zoneRow In DSET.tbl_zone.Select("열생산급탕생산기기='" & Dr난방.code & "' and code <> '0'", "code") + 'MsgBox(Mon & "/" & Dr존.code) + + Dim Drow결과() As DSR.월별에너지분석Row = CType(DSETR.월별에너지분석.Select("월='" & Mon & "' and 존='" & Dr존.code & "'"), DSR.월별에너지분석Row()) + Dim Drow최대() As DSR.최대냉난방부하Row = CType(DSETR.최대냉난방부하.Select("Zone='" & Dr존.code & "'"), DSR.최대냉난방부하Row()) + Q_w_b = Q_w_b + TOSG(Drow결과(0).급탕요구량) ' Sheets("" & i_count_month & "").Cells(15, 7 + i_count_zone) '//급탕에너지요구량 + + '===================================================================================2010.2.21 수정 + Dim Dr프로필() As DS.tbl_profileRow = CType(DSET.tbl_profile.Select("code='" & Dr존.프로필 & "' and code <> '0'", "code"), DS.tbl_profileRow()) + If Dr프로필.GetUpperBound(0) = -1 Then + Log.AppendLine(Dr존.설명 & "존의 프로필코드(" & Dr존.프로필 & ") 가 존재하지않습니다") + 'MsgBox(Dr존.설명 & "존의 프로필코드(" & Dr존.프로필 & ") 가 존재하지않습니다") + Else + d_op_mth = CInt(TOSG(Dr프로필(0)("day" & Format(i_count_month, "00")))) ' Worksheets("설정조건").Range("월간사용일수1").Offset(i_count_month, i_count_profile) + End If + + If t_h < Result.최대부하.Item(Dr존.code).일일난방최대가동시간 * d_op_mth Then + t_h = Result.최대부하.Item(Dr존.code).일일난방최대가동시간 * d_op_mth + End If + If d_op_max_mth < d_op_mth Then + d_op_max_mth = d_op_mth + End If + '===================================================================================2010.2.21 수정 + Next + + '====================================2010.2.21 수정 + d_Nutz_mth = d_op_max_mth + '====================================2010.2.21 수정 + + If Dr난방.분배시스템방식 = "중앙식" Then ' Dr난방.분배시스템방식 = "중앙식" Then + + If Dr난방.배관길이 <> "" AndAlso Dr난방.배관길이 <> "0" Then '//입력치 + L_i = TOSG(Dr난방.배관길이) * 0.255 + Else + L_G = TOSG(Dr난방.건물길이) ' Dr난방.건물길이 + B_G = TOSG(Dr난방.건물넓이) 'Dr난방.건물넓이 + n_G = TOSG(Dr난방.열공급층수) 'Dr난방.열공급층수 + h_G = TOSG(Dr난방.층고) 'Worksheets("난방기기").Range("급탕분배건물길이1").Offset(3, i_count_boiler - 1) + L_i = TOSG((2 * L_G + 0.0325 * L_G * B_G + 6) * 0.2 + (0.025 * L_G * B_G * h_G * n_G + 2 * (L_G + B_G) * n_G) * 0.255 + (0.1 * L_G * B_G * n_G) * 0.255) '단일배관난방적용 + End If + + + '=================================================2010. 02. 11 수정 + For Each Dr난방분배 As DS.tbl_nbunbaeRow In DSET.tbl_nbunbae.Select("배관망유형='급탕' and 생산기기구분='" & Dr난방.code & "'", "code") + L_i += TOSG(Dr난방분배.배관구간길이) * TOSG(Dr난방분배.열관류율) + Next + 'For i_count_pipe = 1 To Range("배관구간").Columns.Count + ' If Worksheets("난방분배시스템").Range("분배생산기기1").Offset(2, i_count_pipe - 1) = "급탕" Then + ' If Worksheets("난방기기").Range("난방생산기기1").Offset(0, i_count_boiler - 1) = Worksheets("난방분배시스템").Range("분배생산기기1").Offset(0, i_count_pipe - 1) Then + ' L_i = L_i + Worksheets("난방분배시스템").Range("배관구간방식1").Offset(1, i_count_pipe - 1) * Worksheets("난방분배시스템").Range("배관구간방식1").Offset(2, i_count_pipe - 1) + ' End If + ' End If + 'Next + '=================================================2010. 02. 11 수정 + + If Dr난방.순환유무 = "무" Then ' Worksheets("난방기기").Range("급탕분배방식1").Offset(1, i_count_boiler - 1) = "무" Then + ':중앙비순환시스템 + Q_w_d_i = TOSG(1 / 1000 * L_i * ((23 * 0.2 ^ (-0.2) - theta_i) * d_Nutz_mth * 24)) '(3.2.9-11) 중앙비순환시스템 L_i 에 U_i 포함 theta_w_m_비순환 는 23*0.2^(-0.2) + theta_g_m = 40 + Else + ':중앙순환시스템 + Q_w_d_i = TOSG(1 / 1000 * L_i * d_Nutz_mth * ((50 - theta_i) * t_Nutz_d + 0.5 * (23 * 0.2 ^ (-0.2) - theta_i) * (24 - t_Nutz_d))) '(3.2.9-11) 중앙순환시스템 L_i 에 U_i 포함 theta_w_m_순환 는 50도 + theta_g_m = 50 + End If + + Q_w_d = Q_w_d + Q_w_d_i '(3.2.9-12) + + Else + + theta_g_m = 40 '2013.01.12 추가 개별식의 경우 비순환시스템으로 적용 + + End If + + + Select Case Dr난방.축열탱크방식.Trim ' Worksheets("난방기기").Range("난방기기축열탱크1").Offset(0, i_count_boiler - 1) + Case "전기가열식" '전기가열식" + + ':저탕조용량(모를경우) + 'f_N = 1 / (t_Nutz_d * 1) '(3.2.9-24) t_Nutz_T 는 t_Nutz_d 로 적용, eta_Sp는 1로 적용 추후 검토 + ':심야전기가열 + 'V_s = 1.42 * Q_w_b_d * f_N * 860 / ((theta_w_m - theta_k) * eta_s) '(3.2.9-33) : 심야전기가열 + ':주간전기가열 + 'V_s = 0.67 * Q_w_b_d * f_N * 860 / ((Q_w_m - Q_k) * eta_s) '(3.2.9-34) : 주간전기가열 + V_s = TOSG(Dr난방.축열제척) ' Worksheets("난방기기").Range("난방기기축열체적1").Offset(0, i_count_boiler - 1) + q_B_S = TOSG(0.29 + 0.019 * V_s ^ 0.8) '(3.2.9-30) :1994 이후 + Q_w_s = TOSG((55 - theta_i) / 45 * d_Nutz_mth * q_B_S) '(3.2.9-29) : 전기가열식 저탕조 + + + Case "가스가열식" '가스가열식" + + ':가스가열식 저탕조 + V_s = TOSG(Dr난방.축열제척) 'Worksheets("난방기기").Range("난방기기축열체적1").Offset(0, i_count_boiler - 1) + ':1994 이후 + q_B_S = TOSG(2 + 0.033 * V_s ^ 1.1) '(3.2.9-38) + Q_w_s = TOSG((55 - theta_i) / 50 * d_Nutz_mth * q_B_S) '(3.2.9-37) : 가스가열식 저탕조 + + Case "간접가열식" '간접가열식" + ':간접 가열식 저탕조 + ':태양열 복합 저탕조(UA_sb_s_a를 모를 경우) + 'q_B_S = (0.4 + 0.2 * (V_s_aux + V_s_sol) ^ 0.4) * V_s_aux / (V_s_aux + V_s_sol) '(3.2.9-26) + 'f_N = 1 / (t_Nutz_T * n_Sp) '(3.2.9-24) + ':저탕조용량(모를 경우) + 'V_s = (Q_w_b_d * f_N * 860) / ((theta_w_m - theta_k) * eta_s) '(3.2.9-23) + V_s = TOSG(Dr난방.축열제척) 'Worksheets("난방기기").Range("난방기기축열체적1").Offset(0, i_count_boiler - 1) + If V_s < 1000 Then + ':1000이하 + ' q_B_S = 'CSng(0.8 + 2 * V_s ^ 0.77) '(3.2.9-18) 여기맞아요? 예 0. + q_B_S = 0.8 + 0.02 * V_s ^ 0.77 '(3.2.9-18) '===================================2010.04.24 수정 + Else + ':1000이상 + q_B_S = TOSG(0.39 * V_s ^ 0.35 + 0.5) '(3.2.9-19) + End If + Q_w_s = f_verbindung * (50 - theta_i) / 45 * d_Nutz_mth * q_B_S '(3.2.9-16) + + End Select + + Q_w_outg_i = Q_w_b + Q_w_ce + Q_w_d + Q_w_s '(3.2.9-4) + + + Q_w_outg = Q_w_outg + Q_w_outg_i + + + ' 신재생에너지 시스템 + '---------------------------------------------------------------------------------------------------------------------------------- + '---------------------------------------------------------------------------------------------------------------------------------- + + '태양열(급탕) 시스템 + 'If Dr난방.설명.ToUpper.IndexOf("B-1") <> -1 Then + ' MsgBox(Dr난방.code) + 'End If + Dim CRenew As New CRenewable + If Dr난방.신재생연결여부 = "시스템연결" AndAlso Dr난방.연결된시스템 <> "0" Then 'Worksheets("난방기기").Range("신재생난방연결1").Offset(0, i_count_boiler - 1) = "시스템연결" Then + Dim dr신재생 As DS.tbl_newRow = CType(DSET.tbl_new.Select("code <> '0' and code='" & Dr난방.연결된시스템 & "'")(0), DS.tbl_newRow) + ' If dr신재생.기기종류.Trim.IndexOf("태") <> -1 Then + Select Case dr신재생.기기종류.Trim + Case "태양열" '//태양열 + If dr신재생.태양열종류 = "급탕" Then + Calc.Renewable.Calc_ThermalSolarSystem_EN(system_type, dr신재생.code, i_count_month, d_mth, Q_h_outg_i, Q_w_outg_i, Q_W_sol_out_m, Q_H_sol_out_m, W_sol_aux_m) + Q_w_outg = Q_w_outg - Q_W_sol_out_m + Q_w_outg_i = Q_w_outg_i - Q_W_sol_out_m + W_sol_aux = W_sol_aux + W_sol_aux_m + End If + '=======================================================================2011.007.19 추가 + Case "열병합" '//열병합 + Select Case dr신재생.가동연료.Trim + Case "난방유" '난방유" + CRenew.Calc_CogenerationSystemEN(dr신재생, i_count_month, Q_w_outg_i, t_h, Q_w_CHP, Q_w_f_CHP) + Q_w_outg = Q_w_outg - Q_w_CHP + Q_w_outg_i = Q_w_outg_i - Q_w_CHP + use_Oil = use_Oil + Q_w_f_CHP + Q_w_f = Q_w_f + Q_w_f_CHP '============================2013.01.13 수정 + Case "천연가스" '천연가스" + CRenew.Calc_CogenerationSystemEN(dr신재생, i_count_month, Q_w_outg_i, t_h, Q_w_CHP, Q_w_f_CHP) + Q_w_outg = Q_w_outg - Q_w_CHP + Q_w_outg_i = Q_w_outg_i - Q_w_CHP + use_LNG = use_LNG + Q_w_f_CHP + Q_w_f = Q_w_f + Q_w_f_CHP '============================2013.01.13 수정 + Case "액화가스" '액화가스" + CRenew.Calc_CogenerationSystemEN(dr신재생, i_count_month, Q_w_outg_i, t_h, Q_w_CHP, Q_w_f_CHP) + Q_w_outg = Q_w_outg - Q_w_CHP + Q_w_outg_i = Q_w_outg_i - Q_w_CHP + use_LPG = use_LPG + Q_w_f_CHP + Q_w_f = Q_w_f + Q_w_f_CHP '============================2013.01.13 수정 + Case Else + MsgBox("신재생에너지의 가동연료를 확인할 수 없습니다", MsgBoxStyle.Critical, dr신재생.가동연료) + End Select + '=======================================================================2011.007.19 추가 + + Case "지열" '//지열 + Select Case dr신재생.가동연료.Trim + Case "전기" '전기" + CRenew.Calc_HeatpumpSystem(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 + Q_w_f = Q_w_f + Q_w_f_hp + Q_w_g_hp_aux '============================2010.04.17 추가 + Case "천연가스" '천연가스" + CRenew.Calc_HeatpumpSystem(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 + use_Elec = use_Elec + Q_w_g_hp_aux + Q_w_f = Q_w_f + Q_w_f_hp + Q_w_g_hp_aux '============================2010.04.17 추가 + '//요기맞죠 ^^? + Case "액화가스" '액화가스" + CRenew.Calc_HeatpumpSystem(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 + use_Elec = use_Elec + Q_w_g_hp_aux + Q_w_f = Q_w_f + Q_w_f_hp + Q_w_g_hp_aux '============================2010.04.17 추가 + End Select + + + + End Select + 'End If + End If + + '---------------------------------------------------------------------------------------------------------------------------------- + '---------------------------------------------------------------------------------------------------------------------------------- + + '=========================================================================================================================2013.01.13 히트펌프 위치 수정 + + If Dr난방.열생산기기방식 = "히트펌프" Then + + Q_dot_HP_waterheating = TOSG(Dr난방.히트난방용량) ' Worksheets("난방기기").Range("히트펌프사용연료1").Offset(1, i_count_boiler - 1) + COP_HP_7 = TOSG(Dr난방.히트난방정격7) ' Worksheets("난방기기").Range("히트펌프사용연료1").Offset(2, i_count_boiler - 1) + COP_HP_10 = TOSG(Dr난방.히트난방정격10) ' Worksheets("난방기기").Range("히트펌프사용연료1").Offset(3, i_count_boiler - 1) + L_HP_waterheating = TOSG(Dr난방.히트배관길이) ' Worksheets("난방기기").Range("히트펌프사용연료1").Offset(4, i_count_boiler - 1) + If theta_e > 15 Then + COP_HP_total = (COP_HP_7 - COP_HP_10) / 17 * 15 + COP_HP_7 - 7 * (COP_HP_7 - COP_HP_10) / 17 + Else + COP_HP_total = (COP_HP_7 - COP_HP_10) / 17 * theta_e + COP_HP_7 - 7 * (COP_HP_7 - COP_HP_10) / 17 + End If + + If theta_e < 7 Then + + If theta_e >= 0 Then + COP_HP_total = TOSG(COP_HP_total * ((1 - 0.86) / 7 * theta_e + 0.86)) + Else + COP_HP_total = TOSG(COP_HP_total * ((0.98 - 0.86) / 7 * (-theta_e) + 0.86)) + End If + + End If + + If Q_dot_HP_waterheating <= 20 Then + COP_HP_total = TOSG(COP_HP_total * (1 - L_HP_waterheating * 0.002)) + Else + If Q_dot_HP_waterheating <= 100 Then + COP_HP_total = TOSG(COP_HP_total * (1 - L_HP_waterheating * 0.0009)) + Else + COP_HP_total = TOSG(COP_HP_total * (1 - L_HP_waterheating * 0.0014)) + End If + End If + + Q_w_outg = Q_w_outg - Q_w_outg_i '===================================================2013.01.16 추가 + + + If Q_w_outg_i / (Q_dot_HP_waterheating * t_h) > 1 Or Dr난방.히트펌프시스템종류 = "실내외분리시스템" Then + Q_w_outg_i = Q_w_outg_i / COP_HP_total + Else + Q_w_outg_i = Q_w_outg_i / (COP_HP_total * (Q_w_outg_i / (Q_dot_HP_waterheating * t_h) * 0.5 + 0.5)) + End If + + Q_w_outg = Q_w_outg + Q_w_outg_i '===================================================2013.01.16 추가 + + End If + + '=========================================================================================================================2013.01.13 히트펌프 위치 수정 + + + + + + + + + + + + + Q_dot_N = TOSG(IIf(Dr난방.보일러정격출력 = "", 0, Dr난방.보일러정격출력)) 'Worksheets("난방기기").Range("난방기기정격출력1").Offset(0, i_count_boiler - 1) + eta_k_100 = TOSG(IIf(Dr난방.정격보일러효율 = "", 0, TOSG(Dr난방.정격보일러효율))) / 100 ' Worksheets("난방기기").Range("난방기기정격효율1").Offset(0, i_count_boiler - 1) / 100 + + 'Select Case Worksheets("난방기기").Range("난방기기사용연료1").Offset(0, i_count_boiler - 1) + 'Case "난방유" + 'f_Hs_Hi = 1.06 + 'Case "천연가스" + 'f_Hs_Hi = 1.11 + 'Case "액화가스" + 'f_Hs_Hi = 1.09 + 'Case "석탄" + 'f_Hs_Hi = 1.04 + 'Case "갈탄" + 'f_Hs_Hi = 1.07 + 'Case "나무" + 'f_Hs_Hi = 1.08 + 'End Select + f_Hs_Hi = 1 ' 국내는 총발열량을 기준으로 입력함으로 우선 1로 설정, 추후 검토 + + If Dr난방.열생산기기방식 = "보일러" Then ' Worksheets("난방기기").Range("열생산기기방식1").Offset(0, i_count_boiler - 1) = "보일러" Then + + If d_Nutz_mth = 0 Then '//201.11.20 추가(학교프로파일 적용시 문제점 해결) + Q_w_g_100 = 0 + Else + Q_w_g_100 = (f_Hs_Hi - eta_k_100) / eta_k_100 * Q_w_outg_i / d_Nutz_mth '(3.2.9-58) + End If + + If d_Nutz_mth = 0 Then '//201.11.20 추가(학교프로파일 적용시 문제점 해결) + t_w_100 = 0 + Else + t_w_100 = Q_w_outg_i / (Q_dot_N * d_Nutz_mth) '(3.2.9-61) + End If + + Select Case Dr난방.보일러방식.Trim ' Worksheets("난방기기").Range("보일러방식1").Offset(0, i_count_boiler - 1) + Case "가스보일러" '가스보일러" + q_B_70 = TOSG((8.5 * Q_dot_N ^ (-0.4)) / 100) + + Case "기름보일러" '기름보일러" + q_B_70 = TOSG((8.5 * Q_dot_N ^ (-0.4)) / 100) + + Case "저온가스보일러" '저온가스보일러" + q_B_70 = TOSG((4.5 * Q_dot_N ^ (-0.4)) / 100) + + Case "저온기름보일러" '저온기름보일러" + q_B_70 = TOSG((4.25 * Q_dot_N ^ (-0.4)) / 100) + + Case "콘덴싱보일러" '콘덴싱보일러" + q_B_70 = TOSG((4 * Q_dot_N ^ (-0.4)) / 100) + Case Else + MsgBox("난방.보일러방식을 알수없습니다", MsgBoxStyle.Critical, "값=" & Dr난방.보일러방식) + End Select + + q_B_theta = q_B_70 * (theta_g_m - theta_i) / (70 - 20) '(3.2.9-60) + Q_B_w = q_B_theta * Q_dot_N / eta_k_100 * (t_Nutz_d - t_w_100) * f_Hs_Hi '(3.2.9-59) + + f_L_WA = 1 - (theta_WA_Grenz - theta_e) / (theta_WA_Grenz - theta_e_min) '(3.2.7-22) + If d_mth = 0 Then + d_h_rB = 0 + Else + d_h_rB = d_mth * ((365 - f_L_WA * (365 - d_Nutz_a)) / 365) * (t_h / (d_mth * 24)) '(3.2.7-21) + End If + + + ':d_h_rB > d_Nutz_mth 일 경우 + If d_h_rB > d_Nutz_mth Then + d_Nutz_mth = CInt(d_h_rB) + End If + + Q_w_g = Q_w_g + Q_w_g_100 * d_Nutz_mth + Q_B_w * (d_Nutz_mth - d_h_rB) '(3.2.9-57) + Q_w_g_i = Q_w_g_100 * d_Nutz_mth + Q_B_w * (d_Nutz_mth - d_h_rB) + Else + + If Dr난방.열생산기기방식 = "지역난방" Then ' Worksheets("난방기기").Range("열생산기기방식1").Offset(0, i_count_boiler - 1) = "지역난방" Then + If Dr난방.지역난방방식 = "중온수" Then ' Worksheets("난방기기").Range("지역난방온수방식1").Offset(0, i_count_boiler - 1) = "중온수" Then + D_DS = 0.6 + theta_prim_DS = 105 + 'MsgBox("난방기기 단열등급에 등급2/3 등급3/4 등급 4/5 추가해야함") + Select Case Dr난방.단열등급.Trim ' Dr난방.단열등급 + Case "기본단열" '기본단열" '원래는 등급1/2 이지만 국내에서는 법적단열로 사용 + B_DS = 4.9 + Case "등급2/3" '등급2/3" + B_DS = 4.4 + Case "등급3/4" '등급3/4" + B_DS = 4 + Case "등급4/5" '등급4/5" + B_DS = 3.5 + End Select + End If + 'MsgBox("난방기기 지역난방방식에 고온수 0002 추가해야함") --추가는 했으나 엑셀에서는 중온수고정이다 그래서 하위 루틴은 실행되면안된다 + If Dr난방.지역난방방식 = "고온수" Then 'Worksheets("난방기기").Range("지역난방온수방식1").Offset(0, i_count_boiler - 1) = "고온수" Then + ' MsgBox("난방기기의 지역난방방식은 중온수 고정입니다.", MsgBoxStyle.Information, "확인") + D_DS = 0.4 + theta_prim_DS = 150 + Select Case Dr난방.단열등급.Trim + Case "기본단열" '기본단열" '원래는 등급1/2 이지만 국내에서는 법적단열로 사용 + B_DS = 4.3 + Case "등급2/3" '등급2/3" + B_DS = 3.9 + Case "등급3/4" '등급3/4" + B_DS = 3.5 + Case "등급4/5" '등급4/5" + B_DS = 3.1 + End Select + End If + + + + theta_DS = D_DS * theta_prim_DS + (1 - D_DS) * 55 ' theta_sek_DS는 55도로 설정 (3.2.7-112) + Psi_DS = TOSG(Dr난방.열교환기정격출력) ' .Worksheets("난방기기").Range("난방기기정격출력1").Offset(1, i_count_boiler - 1) + H_DS = TOSG(B_DS * Psi_DS ^ (1 / 3)) + Q_w_g = Q_w_g + H_DS * (theta_DS - theta_i) + use_DH = use_DH + H_DS * (theta_DS - theta_i) + + End If + + End If + + ': 급탕 전기 보조에너지 시작 + + Q_w_ce_aux = 0 + + P_Pump_w = TOSG(Dr난방.펌프동력급탕) ' Worksheets("난방기기").Range("급탕펌프제어유형1").Offset(1, i_count_boiler - 1) + Select Case Dr난방.펌프제어.Trim 'Worksheets("난방기기").Range("급탕펌프제어유형1").Offset(0, i_count_boiler - 1) + Case "비제어" '비제어" + c_p1 = 0.25 + c_p2 = 0.94 + Case "제어" '제어" + c_p1 = 0.5 + c_p2 = 0.63 + Case "(없음)" + c_p1 = 0 + c_p2 = 0 + Case Else + MsgBox("[난방기가: " & Dr난방.code & "] 알수없는 펌프제어방식(" & Dr난방.펌프제어.Trim & ")", MsgBoxStyle.Critical, Dr난방.펌프제어) + + + End Select + + Q_w_d_aux = Q_w_d_aux + P_Pump_w / 1000 * d_Nutz_mth * t_Nutz_d * (c_p1 + c_p2) '(3.2.9-15) + + Select Case Dr난방.축열탱크방식.Trim ' Worksheets("난방기기").Range("난방기기축열탱크1").Offset(0, i_count_boiler - 1) + Case "전기가열식" '전기가열식" + 'Q_w_s_aux = Q_w_s_aux + 0 + + Case "가스가열식" '가스가열식" + 'Q_w_s_aux = Q_w_s_aux + 0 + + Case "간접가열식" '간접가열식" + + '=================================================================================2010.10.19 추가 + Select Case Dr난방.열생산기기방식.Trim 'Worksheets("난방기기").Range("열생산기기방식1").Offset(0, i_count_boiler - 1) + Case "보일러" + t_P = TOSG(Q_w_outg_i * 1.1 / Q_dot_N) '(3.2.9-28) + Case "지역난방" + t_P = TOSG(Q_w_outg_i * 1.1 / TOSG(Dr난방.열교환기정격출력)) + Case "전기보일러" + t_P = 1 + Case "히트펌프" + t_P = 1 + End Select + '=================================================================================2010.10.19 추가 + Q_w_s_aux = TOSG(Q_w_s_aux + 0.001 * P_Pump_w * t_P) '(3.2.9-27) + + End Select + If Dr난방.열생산기기방식 = "보일러" Then 'Worksheets("난방기기").Range("열생산기기방식1").Offset(0, i_count_boiler - 1) = "보일러" Then + Select Case Dr난방.보일러방식.Trim 'Worksheets("난방기기").Range("보일러방식1").Offset(0, i_count_boiler - 1) + Case "가스보일러" '가스보일러" + P_aux_100 = TOSG((0.148 * Q_dot_N + 40) / 1000) '(3.2.9-77) + + Case "기름보일러" '기름보일러" + P_aux_100 = TOSG(0.045 * Q_dot_N ^ 0.48) '(3.2.9-78) + + Case "저온가스보일러" '저온가스보일러" + P_aux_100 = TOSG((0.148 * Q_dot_N + 40) / 1000) '(3.2.9-79) + + Case "저온기름보일러" '저온기름보일러" + P_aux_100 = TOSG(0.045 * Q_dot_N ^ 0.48) '(3.2.9-80) + + Case "콘덴싱보일러" '콘덴싱보일러" + P_aux_100 = TOSG(0.045 * Q_dot_N ^ 0.48) '(3.2.9-81) + + End Select + + If d_Nutz_mth = 0 Then '//201.11.20 추가(학교프로파일 적용시 문제점 해결) + t_w_100 = 0 + Else + t_w_100 = Q_w_outg_i / (Q_dot_N * d_Nutz_mth) '(3.2.9-61) + End If + + Q_w_g_aux = Q_w_g_aux + P_aux_100 * t_w_100 * d_Nutz_mth '+ P_aux_SB * (24 - t_w_100) * (d_Nutz_mth - d_h_rB) '(3.2.9-7) + + End If + + + + If Dr난방.열생산기기방식 = "보일러" Then ' Then 'Worksheets("난방기기").Range("열생산기기방식1").Offset(0, i_count_boiler - 1) = "보일러" Then + Select Case Dr난방.사용연료.Trim ' Worksheets("난방기기").Range("난방기기사용연료1").Offset(0, i_count_boiler - 1) + Case "난방유" '난방유" + use_Oil = use_Oil + Q_w_outg_i + Q_w_g_i + + Case "천연가스" '천연가스" + use_LNG = use_LNG + Q_w_outg_i + Q_w_g_i + + Case "액화가스" '액화가스" + use_LPG = use_LPG + Q_w_outg_i + Q_w_g_i + + End Select + Else + Select Case Dr난방.열생산기기방식.Trim 'Worksheets("난방기기").Range("열생산기기방식1").Offset(0, i_count_boiler - 1) + Case "지역난방" '지역난방" + use_DH = use_DH + Q_w_outg_i + + Case "전기보일러" '전기보일러" + use_Elec = use_Elec + Q_w_outg_i + (Q_w_outg_i * 0.09) '2011.03.08 개별전기보일러 생산손실을 내부 생산식저장으로 설정 + + '====================================================================================2010.03.14 추가 + Case "히트펌프" + + Select Case Dr난방.히트연료 ' Worksheets("난방기기").Range("히트펌프사용연료1").Offset(0, i_count_boiler - 1) + Case "전기" + use_Elec = use_Elec + Q_w_outg_i + Q_w_g_i + Case "천연가스" + use_LNG = use_LNG + Q_w_outg_i + Q_w_g_i + Case "액화가스" + use_LPG = use_LPG + Q_w_outg_i + Q_w_g_i + End Select + '====================================================================================2010.03.14 추가 + + End Select + + End If + + use_Elec = use_Elec + Q_w_ce_aux + Q_w_d_aux + Q_w_s_aux + Q_w_g_aux + W_sol_aux_m + Q_w_aux = Q_w_aux + Q_w_ce_aux + Q_w_d_aux + Q_w_s_aux + Q_w_g_aux + W_sol_aux '급탕보조에너지소요량 (3.2.9-7) 2011.03.23 추가 + End If + + Next + + + Q_w_f = Q_w_f + Q_w_outg + Q_w_g ' - Q_w_reg '(3.2.9-5) 급탕에너지소요량 + 'Q_w_aux = Q_w_ce_aux + Q_w_d_aux + Q_w_s_aux + Q_w_g_aux + W_sol_aux '급탕보조에너지소요량 (3.2.9-7) + + Result.E소요량(i_count_month).급탕 = Q_w_f + Result.E소요량(i_count_month).급탕보조 = Q_w_aux + + '//열원별에너지소요량 - 급탕에너지소요량 + Result.일차E소요량(i_count_month).급탕등유 = use_Oil + + Result.일차E소요량(i_count_month).급탕LNG = use_LNG + Result.일차E소요량(i_count_month).급탕LPG = use_LPG + Result.일차E소요량(i_count_month).급탕지역 = use_DH + Result.일차E소요량(i_count_month).급탕전력 = use_Elec + End Sub + + Public Overridable Sub Calc_HeatingSystem(ByVal i_count_month As Integer, ByVal theta_e As Decimal) + + '//i_ce As Integer 제거함 사용안됨 + Dim i As Integer, i_count_beta As Integer, i_count_zone As Integer, d_Nutz_mth As Integer + Dim Q_h_f As Decimal, Q_h_outg As Decimal, Q_h_g As Decimal, Q_h_reg As Decimal, Q_dot_N As Decimal + Dim Q_h_b As Decimal, Q_h_b_i As Decimal, Q_h_ce As Decimal, Q_h_ce_i As Decimal, Q_dot_h_max As Decimal, Q_h_d As Decimal, Q_h_s As Decimal + Dim f_hydr As Decimal, f_int As Decimal, f_Radiant As Decimal, L_G As Decimal, B_G As Decimal, n_G As Decimal, h_G As Decimal, L_i As Decimal, U_i As Decimal, f_verbindung As Decimal + Dim beta_k_pl As Decimal, beta_k_100 As Decimal, n As Decimal, d_Nutz_a As Integer, t_h_op_d As Integer, theta_i As Decimal, V_s As Decimal, n_beta As Integer + Dim theta_NA_Grenz As Decimal, theta_WA_Grenz As Decimal, theta_i_h_soll As Decimal, theta_VA As Decimal, theta_RA As Decimal, theta_e_min As Decimal + Dim e As Decimal, f As Decimal, q_B_theta As Decimal, q_B_70 As Decimal, Q_V_g_100 As Decimal, Q_V_g_pl As Decimal, Q_h_g_v_i As Decimal + Dim Q_h_ce_aux As Decimal, Q_h_d_aux As Decimal, Q_h_d_aux_i As Decimal, beta_h_s As Decimal, Q_h_s_aux As Decimal, Q_h_g_aux As Decimal, P_h_g_aux As Decimal, P_aux_100 As Decimal, P_aux_pl As Decimal, P_aux_SB As Decimal + Dim D_DS As Decimal, Psi_DS As Decimal, H_DS As Decimal, theta_prim_DA As Decimal + Dim Q_w_b As Decimal, Q_w_d As Decimal, Q_w_d_i As Decimal, theta_g_m As Decimal, q_B_S As Decimal, Q_w_s As Decimal, Q_w_outg_i As Decimal, Q_w_outg As Decimal + Dim eta_L As Decimal, eta_B As Decimal, eta_C As Decimal, eta_h_ce As Decimal, beta_h_d As Decimal, beta_h As Decimal + Dim theta_VL_m_beta_h_d As Decimal, theta_RL_m_beta_h_d As Decimal, theta_HK_m_beta_h_d As Decimal, eta_k_100 As Decimal, eta_k_pl As Decimal + Dim f_L_WA As Decimal, d_h_rB As Decimal, f_L_NA As Decimal, t_h_rL_T As Decimal, t_h_rL As Decimal, t_Nutz_d As Decimal, t_w_100 As Decimal + Dim Q_w_ce As Decimal, Q_dot_d_in As Decimal, Q_dot_B_h As Decimal, Q_h_g_i As Decimal, Q_h_outg_i As Decimal + Dim theta_HK_m_beta_h_g As Decimal, f_Hs_Hi As Decimal, theta_prim_DS As Decimal, B_DS As Decimal, theta_DS As Decimal + Dim P_Pump As Decimal, c_p1 As Decimal, c_p2 As Decimal, f_P_A As Decimal, t_P As Decimal + Dim P_C As Decimal, P_V As Decimal, P_P As Decimal, n_V As Decimal, n_P As Decimal, Q_V_P As Decimal, Q_c As Decimal, Q_h_aux As Decimal + Dim t_h_max As Integer, t_h As Integer + Dim use_Oil As Decimal, use_LNG As Decimal, use_LPG As Decimal, use_Elec As Decimal, use_DH As Decimal + Dim i_count_renewable As Integer + Dim Q_h_CHP As Decimal, Q_h_f_CHP As Decimal + Dim i_HeatCool As Integer, Q_hp_outg As Decimal, Q_h_f_hp As Decimal, Q_h_g_hp_aux As Decimal + Dim Q_W_sol_out_m As Decimal, Q_H_sol_out_m As Decimal, W_sol_aux_m As Decimal, W_sol_aux As Decimal + Dim system_type As Integer + Dim COP_HP_7 As Decimal, COP_HP_10 As Decimal, COP_HP_total As Decimal, Q_dot_HP_heating As Decimal, L_HP_heating As Decimal '=======================2010.03.14 추가 + + '==================================2010.2.21 수정 + Dim d_op_mth As Integer + Dim d_op_max_mth As Integer + 'Dim i_count_profile As Integer + d_op_max_mth = 0 + '==================================2010.2.21 수정 + + + Dim priod_value As Single = 0 + Dim age As Single '//준공연도에 의한 경년변화값 + Dim age_heating As Single + For Each DRpriod As DS.tbl_DescRow In DSET.tbl_Desc.Select("cname<>'0'", "cname") + priod_value = CSng(DRpriod.priod) + Next + If priod_value > 20 Then priod_value = 20 + age = (1 - 0.01) ^ priod_value + age_heating = (1 - 0.005) ^ priod_value + + + + + theta_NA_Grenz = 10 + theta_WA_Grenz = 10 + beta_k_pl = 0.3 + beta_k_100 = 1 + f_verbindung = 1.2 '동일공간의 경우임, 타공간의 경우 (3.2.7-36) 참조 + f_hydr = 1 '리버스리턴 계수로 지금은 1로 적용, 추후 검토 + f_int = 1 ' 간헐(0.97-0.98), 지속 1 우선 1로 적용, 추후 검토 + f_verbindung = 1.2 + theta_i_h_soll = 20 + theta_i = 13 ' 비난방공간으로 가정 + n = 1.33 '라디에이터 1.33, 바닥난방 1.1, 우선 라디에이터 적용 + theta_e_min = -11.3 + d_Nutz_a = 365 '연간이용일수 우선 연중가동으로 적용 + Q_h_outg = 0 + 'd_Nutz_mth = d_mth ' 연중가동으로 계산 추후 검토 '================2010.2.21 수정 + Q_h_g = 0 + Q_h_ce_aux = 0 + Q_h_d_aux = 0 + Q_h_s_aux = 0 + Q_h_g_aux = 0 + use_Oil = 0 + use_LNG = 0 + use_LPG = 0 + use_Elec = 0 + use_DH = 0 + Q_h_outg = 0 + Q_w_outg = 0 + Q_h_CHP = 0 + Q_h_f_CHP = 0 + i_HeatCool = 1 + Q_hp_outg = 0 + Q_h_f_hp = 0 + Q_h_g_hp_aux = 0 + W_sol_aux = 0 + system_type = 1 + Q_h_f = 0 '===============================2010.04.17 추가 + t_Nutz_d = 24 '==========================2010.04.24 추가 + + Dim Mon As String = "M" & Format(i_count_month, "00") + For Each Dr난방 As DS.tbl_nanbangkikiRow In DSET.tbl_nanbangkiki.Select("code<>'0'", "code") + + '//이 난방기기가 존전체내역에서 사용이되엇나? + If DSET.tbl_zone.Select("(공조난방생산기기 = '" & Dr난방.code & "' and 냉난방공조 <> '기능없음' and (외기부하처리여부 = '예' or 냉난방공조 = '냉난방' or 냉난방공조 = '난방') ) or (열생산난방생산기기='" & Dr난방.code & "' and 냉난방방식 <> '냉방' and 냉난방방식 <> '기능없음') ").GetUpperBound(0) <> -1 Then 'If Worksheets("난방기기").Range("난방생산기기1").Offset(4, i_count_boiler - 1) = "예" Then + '"(공조난방생산기기 = '" & Dr난방.code & "' and 냉난방공조 <> '기능없음' and (외기부하처리여부 = '예' or 냉난방공조 = '냉난방' or 냉난방공조 = '난방') ) or (열생산난방생산기기='" & Dr난방.code & "' and 냉난방방식 <> '냉방' and 냉난방방식 <> '기능없음') " + Q_h_b = 0 + Q_h_ce = 0 + Q_dot_h_max = 0 + t_h_max = 0 + t_h = 0 '원래 식은 t_h = t_h_op + t_h_we 월간 난방 시간 + t_h_op_d = 0 + Q_h_d = 0 + Q_h_s = 0 + n_beta = 0 ' 순차가동시 full 부하 대수 + Q_h_g_v_i = 0 + '==================================2010.2.21 수정 + d_op_max_mth = 0 + d_Nutz_mth = 0 + '==================================2010.2.21 수정 + + For Each DR존 As DS.tbl_zoneRow In DSET.tbl_zone.Select("(공조난방생산기기 = '" & Dr난방.code & "' and 냉난방공조 <> '기능없음' and (외기부하처리여부 = '예' or 냉난방공조 = '냉난방' or 냉난방공조 = '난방') ) or (열생산난방생산기기='" & Dr난방.code & "' and 냉난방방식 <> '냉방' and 냉난방방식 <> '기능없음') and code <> '0'") ' For i_count_zone = 1 To DSET.tbl_zone.Rows.Count + + '//지금 사용하는 존이 공조에의한것인지 아닌지를 판단 + Dim 판단1 As Boolean = False + Dim 판단2 As Boolean = False + If DR존.열생산난방생산기기 = Dr난방.code Then 판단1 = True + If DR존.공조난방생산기기 = Dr난방.code Then 판단2 = True + + '//다시 생각을... + + '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 + ' If DR존.열생산난방생산기기 = Dr난방.code Then ' Worksheets("난방기기").Range("난방생산기기1").Offset(0, i_count_boiler - 1) Then + '=========================================================================================================================================================2010.2.21 수정 + '1105 소스백업 If DR존.냉난방방식 = "냉난방" OrElse DR존.냉난방방식 = "난방" Then ' Worksheets("입력존").Range("공조존2").Offset(0, i_count_zone - 1) <> "냉난방" Then + If 판단1 And (DR존.냉난방방식 = "냉난방" OrElse DR존.냉난방방식 = "난방") Then + Dim Dr월에너지 As DSR.월별에너지분석Row = CType(DSETR.월별에너지분석.Select("월='" & Mon & "' and 존='" & DR존.code & "'")(0), DSR.월별에너지분석Row) + Dim Drow최대() As DSR.최대냉난방부하Row = CType(DSETR.최대냉난방부하.Select("Zone='" & DR존.code & "'"), DSR.최대냉난방부하Row()) + + If (DR존.냉난방공조 = "환기" OrElse DR존.냉난방공조 = "냉방") And DR존.외기부하처리여부 = "예" Then + Q_h_b_i = TOSG(Dr월에너지.난방요구량열) + Else + Q_h_b_i = TOSG(Dr월에너지.난방요구량열 + Dr월에너지.난방요구량공조) ' Sheets("" & i_count_month & "").Cells(7, 7 + i_count_zone) + End If + '=========================================================================================================================================================2010.2.21 수정 + Q_h_b = Q_h_b + Q_h_b_i + Q_dot_h_max = TOSG(Q_dot_h_max + TOSG(Drow최대(0).최대난방기기부하)) ' Worksheets("0").Range("최대난방부하1").Offset(0, i_count_zone - 1) + + + '===================================================================================2010.2.21 수정 + Dim DR프로필 As DS.tbl_profileRow = CType(DSET.tbl_profile.Select("code='" & DR존.프로필 & "' and code <> '0'")(0), DS.tbl_profileRow) + If i_count_month = 0 Then + d_op_mth = 0 + Else + d_op_mth = CInt(TOSG(DR프로필("day" & Format(i_count_month, "00")))) + End If + + If t_h < TOSG(Drow최대(0).난방최대가동시간) * d_op_mth Then + t_h = CInt(TOSG(Drow최대(0).난방최대가동시간) * d_op_mth) + End If + If d_op_max_mth < d_op_mth Then + d_op_max_mth = d_op_mth + End If + '===================================================================================2010.2.21 수정 + + + If t_h > t_h_max Then + t_h_max = t_h + End If + + If t_h_op_d < TOSG(Drow최대(0).난방최대가동시간) Then + t_h_op_d = CInt(TOSG(Drow최대(0).난방최대가동시간)) ' Sheets("0").Range("최대난방부하1").Offset(2, i_count_zone - 1) + End If + 'i_ce = 0 + + + + '//아래 if 문이 모두 공급기기 데이터를 가지고 게산을 하고잇네요 이 부분을 전부 실행못하게 해야합니다. + If DR존.냉난방열공급시스템 = "0" Then + '//0일떄 특정 변수를 초기화(=0) 하려면 이곳에 입력하세요. + Else + + Dim Dr공급 As DS.tbl_kongkubRow = CType(DSET.tbl_kongkub.Select("code='" & DR존.냉난방열공급시스템 & "' and code <> '0'")(0), DS.tbl_kongkubRow) + + If (DR존.천장고 = "" OrElse TOSG(DR존.천장고) < 4) Then ' Worksheets("입력존").Range("천장고1").Offset(0, i_count_zone - 1) < 4 Then + + Select Case Dr공급.열공급시스템.Trim ' Dr공급.열공급시스템 + Case "노출형방열기(열)" '노출형방열기(열)" + eta_L = (0.93 + 0.95) / 2 + eta_B = 1 + Select Case Dr공급.노출형제어.Trim 'Dr공급.노출형제어 + Case "비제어" '비제어" + eta_C = 0.8 + Case "on/off제어" + eta_C = 0.88 + Case "PI제어" 'PI제어" + eta_C = 0.97 + End Select + Case "바닥난방(열)" '바닥난방(열)" + eta_L = 1 + Select Case Dr공급.바닥난방열제어.Trim ' Dr공급.바닥난방열제어 + Case "비제어" '비제어" + eta_C = 0.78 + Case "on/off제어" + eta_C = 0.88 + Case "PI제어" 'PI제어" + eta_C = 0.95 + End Select + Select Case Dr공급.바닥난방열건축부위.Trim ' Worksheets("난방공급시스템").Range("바닥열시스템1").Offset(0, i_ce - 1) + Case "습식" '습식" + eta_B = (0.93 + 0.95) / 2 + Case "반건식" '반건식" + eta_B = (0.95 + 0.95) / 2 + Case "건식" '건식" + eta_B = (0.98 + 0.95) / 2 + End Select + Case "바닥난방(전기)" '바닥난방(전기)" + eta_L = 1 + Select Case Dr공급.바닥난방전기제어.Trim ' Dr공급.바닥난방전기제어 + Case "비제어" '비제어" + eta_C = 0.91 + Case "on/off제어" + eta_C = 0.93 '2011.05.03 추가, 우선 on/off 제어와 PI제어를 같게 적용, 추후검토 + Case "PI제어" 'PI제어" + eta_C = 0.93 + End Select + Select Case Dr공급.바닥난방전기건축부위.Trim ' Worksheets("난방공급시스템").Range("바닥전기시스템1").Offset(0, i_ce - 1) + Case "습식" '습식" + eta_B = (0.93 + 0.95) / 2 + Case "반건식" '반건식" + eta_B = (0.95 + 0.95) / 2 + Case "건식" '건식" + eta_B = (0.98 + 0.95) / 2 + End Select + Case "전기난방" '전기난방" + eta_L = 2 ' eta_h_ce 값을 맞추기 위해서 임의로 설정한 값(전기난방은 eta_h_ce 값이 바로 정해지기때문) + eta_B = 2 ' eta_h_ce 값을 맞추기 위해서 임의로 설정한 값(전기난방은 eta_h_ce 값이 바로 정해지기때문) + Select Case Dr공급.전기난방제어.Trim ' Dr공급.바닥난방전기제어 + Case "비제어" + eta_C = -1.1235955 '2011.05.03 추가, 우선 on/off 제어와 비제어를 같게 적용, 추후검토 + Case "on/off제어" + eta_C = -1.1235955 ' eta_h_ce 0.89 값을 맞추기 위해서 임의로 설정한 값(전기난방은 eta_h_ce 값이 바로 정해지기때문) + Case "PI제어" 'PI제어" + eta_C = -1.07527 ' eta_h_ce 0.93 값을 맞추기 위해서 임의로 설정한 값(전기난방은 eta_h_ce 값이 바로 정해지기때문) + End Select + End Select + f_Radiant = 1 + Else + If TOSG(DR존.천장고) >= 4 And TOSG(DR존.천장고) < 10 Then + + Select Case Dr공급.열공급시스템.Trim ' Dr공급.열공급시스템 + Case "노출형방열기(열)" '노출형방열기(열)" + f_Radiant = 1 + eta_L = 0.9 + eta_B = 1 + Select Case Dr공급.노출형제어.Trim 'Dr공급.노출형제어 + Case "비제어" '비제어" + eta_C = 0.8 + Case "on/off제어" + eta_C = 0.93 + Case "PI제어" 'PI제어" + eta_C = 0.97 + End Select + Case "바닥난방(열)" '바닥난방(열)" + f_Radiant = 0.85 + eta_L = 0.98 + Select Case Dr공급.바닥난방열제어.Trim ' Dr공급.바닥난방열제어 + Case "비제어" '비제어" + eta_C = 0.8 + Case "on/off제어" + eta_C = 0.93 + Case "PI제어" 'PI제어" + eta_C = 0.97 + End Select + eta_B = 0.95 + Case "바닥난방(전기)" '바닥난방(전기)" + f_Radiant = 0.85 + eta_L = 0.98 + Select Case Dr공급.바닥난방전기제어.Trim ' Dr공급.바닥난방전기제어 + Case "비제어" '비제어" + eta_C = 0.8 + Case "on/off제어" + eta_C = 0.93 + Case "PI제어" 'PI제어" + eta_C = 0.97 + End Select + eta_B = 0.95 + Case "전기난방" '전기난방" + f_Radiant = 1 + eta_L = 0.935 + eta_B = 1 + Select Case Dr공급.바닥난방전기제어.Trim ' Dr공급.바닥난방전기제어 + Case "비제어" '비제어" + eta_C = 0.8 + Case "on/off제어" + eta_C = 0.93 + Case "PI제어" 'PI제어" + eta_C = 0.97 + End Select + End Select + Else + + + Select Case Dr공급.열공급시스템.Trim + Case "노출형방열기(열)" '노출형방열기(열)" + f_Radiant = 1 + eta_L = 0.72 ' 우선 15m 기준 설정 + eta_B = 1 + Select Case Dr공급.노출형제어.Trim + Case "비제어" + eta_C = 0.8 + Case "on/off제어" + eta_C = 0.93 + Case "PI제어" + eta_C = 0.97 + End Select + Case "바닥난방(열)" '바닥난방(열)" + f_Radiant = 0.85 + eta_L = 0.92 + Select Case Dr공급.바닥난방열제어.Trim + Case "비제어" + eta_C = 0.8 + Case "on/off제어" + eta_C = 0.93 + Case "PI제어" + eta_C = 0.97 + End Select + eta_B = 0.95 + Case "바닥난방(전기)" '바닥난방(전기)" + f_Radiant = 0.85 + eta_L = 0.92 + Select Case Dr공급.바닥난방전기제어.Trim + Case "비제어" + eta_C = 0.8 + Case "on/off제어" + eta_C = 0.93 + Case "PI제어" + eta_C = 0.97 + End Select + eta_B = 0.95 + Case "전기난방" '전기난방" + f_Radiant = 1 + eta_L = 0.78 + eta_B = 1 + Select Case Dr공급.바닥난방전기제어.Trim + Case "비제어" + eta_C = 0.8 + Case "on/off제어" + eta_C = 0.93 + Case "PI제어" + eta_C = 0.97 + End Select + End Select + + End If + + End If + + eta_h_ce = 1 / (4 - (eta_L + eta_C + eta_B)) '(3.27-28) + + Q_h_ce_i = (f_Radiant * f_int * f_hydr / eta_h_ce - 1) * Q_h_b_i '(3.2.7-27) + Q_h_ce = Q_h_ce + Q_h_ce_i + + End If + End If '//판단1 //난방생산기기 완료 + + If DR존.냉난방공조 = "냉난방" OrElse DR존.냉난방공조 = "난방" OrElse ((DR존.냉난방공조 = "환기" OrElse DR존.냉난방공조 = "냉방") And DR존.외기부하처리여부 = "예") Then ' 공조기 사용에 따른 난방에너지 + '=========================================================================================================================================================2010.2.21 수정 + + If 판단2 Then + 'MsgBox("열생산기기는 있고 공조생산기기는 공백상태의 검토 필요") + Dim Drow최대() As DSR.최대냉난방부하Row = CType(DSETR.최대냉난방부하.Select("zone='" & DR존.code & "'"), DSR.최대냉난방부하Row()) + Dim Dr프로필 As DS.tbl_profileRow = CType(DSET.tbl_profile.Select("code='" & DR존.프로필 & "' and code <> '0'")(0), DS.tbl_profileRow) + Q_dot_h_max = TOSG(Q_dot_h_max + TOSG(Drow최대(0).최대난방기기부하)) ' Worksheets("0").Range("최대난방부하1").Offset(0, i_count_zone - 1) + + If i_count_month = 0 Then + d_op_mth = 0 + Else + d_op_mth = CInt(TOSG(Dr프로필("day" & Format(i_count_month, "00")))) + End If + If t_h < TOSG(Drow최대(0).난방최대가동시간) * d_op_mth Then + t_h = CInt(TOSG(Drow최대(0).난방최대가동시간) * d_op_mth) + End If + If d_op_max_mth < d_op_mth Then + d_op_max_mth = d_op_mth + End If + If t_h > t_h_max Then + t_h_max = t_h + End If + If t_h_op_d < TOSG(Drow최대(0).난방최대가동시간) Then + t_h_op_d = CInt(TOSG(Drow최대(0).난방최대가동시간)) ' Sheets("0").Range("최대난방부하1").Offset(2, i_count_zone - 1) + End If + + Dim 월에너지분석 As DSR.월별에너지분석Row = CType(DSETR.월별에너지분석.Select("월='" & Mon & "' and 존='" & DR존.code & "'")(0), DSR.월별에너지분석Row) + If (DR존.냉난방공조 = "환기" OrElse DR존.냉난방공조 = "냉방") And DR존.외기부하처리여부 = "예" Then '// 2010.11.19 추가 + Q_h_b_i = TOSG(월에너지분석.난방요구량공조) + Else + Q_h_b_i = TOSG(월에너지분석.공조요구량난방) ' Sheets("" & i_count_month & "").Cells(19, 7 + i_count_zone) + End If + + Q_h_b = Q_h_b + Q_h_b_i + 'Q_h_ce_i = 0 '공조기는 0으로 설정 '==============================================================2010.03.20 수정 공조기는 0으로 설정한 것을 수정 + If (DR존.냉난방공조 = "환기" OrElse DR존.냉난방공조 = "냉방") And DR존.외기부하처리여부 = "예" Then '// 2010.11.19 추가 + + Else + If TOSG(DR존.천장고p) >= 4 Then + If TOSG(DR존.천장고p) >= 20 Then + Q_h_ce_i = TOSG((1 / (1 / (4 - (0.71 + 0.97 + 1))) - 1) * Q_h_b_i) + Else + If TOSG(DR존.천장고p) >= 15 Then + Q_h_ce_i = TOSG((1 / (1 / (4 - (0.78 + 0.97 + 1))) - 1) * Q_h_b_i) + Else + If TOSG(DR존.천장고p) >= 12 Then + Q_h_ce_i = TOSG((1 / (1 / (4 - (0.84 + 0.97 + 1))) - 1) * Q_h_b_i) + Else + If TOSG(DR존.천장고p) >= 10 Then + Q_h_ce_i = TOSG((1 / (1 / (4 - (0.87 + 0.97 + 1))) - 1) * Q_h_b_i) + Else + If TOSG(DR존.천장고p) >= 8 Then + Q_h_ce_i = TOSG((1 / (1 / (4 - (0.91 + 0.97 + 1))) - 1) * Q_h_b_i) + Else + If TOSG(DR존.천장고p) >= 6 Then + Q_h_ce_i = TOSG((1 / (1 / (4 - (0.96 + 0.97 + 1))) - 1) * Q_h_b_i) + Else + Q_h_ce_i = TOSG((1 / (1 / (4 - (0.99 + 0.97 + 1))) - 1) * Q_h_b_i) + End If + End If + End If + End If + End If + End If + End If + + '===============================================================================================2010.03.20 수정 + + Q_h_ce = Q_h_ce + Q_h_ce_i + End If + + + + + End If + '=========================================================================================================================================================2010.2.21 수정 + + + End If + '//공조 난방기기 완료 ㅋㅋ 끝 + ' End If + + Next + + '==================================2010.2.21 수정 + d_Nutz_mth = d_op_max_mth + '==================================2010.2.21 수정 + 'beta_h_d = (Q_h_b + Q_h_ce) / (Q_dot_h_max * t_h_max) ' t_h 가 t_h_max 일 것으로 추정 추후 검토 + + 'theta_VA = TOSG(Dr난방.급수온도) ' Worksheets("난방기기").Range("난방기기급수온도1").Offset(0, i_count_boiler - 1) + 'theta_RA = TOSG(Dr난방.환수온도) ' Worksheets("난방기기").Range("난방기기환수온도1").Offset(0, i_count_boiler - 1) + + 'theta_VL_m_beta_h_d = TOSG((theta_VA - theta_i_h_soll) * beta_h_d ^ (1 / n) + theta_i_h_soll) '(3.2.7.13) + 'theta_RL_m_beta_h_d = TOSG((theta_RA - theta_i_h_soll) * beta_h_d ^ (1 / n) + theta_i_h_soll) '(3.2.7.14) + + + 'theta_HK_m_beta_h_d = TOSG(0.5 * (theta_VL_m_beta_h_d + theta_RL_m_beta_h_d)) + + + 'f_L_WA = 1 - (theta_WA_Grenz - theta_e) / (theta_WA_Grenz - theta_e_min) '(3.2.7-22) + 'd_h_rB = TOSG(d_op_max_mth * ((365 - f_L_WA * (365 - d_Nutz_a)) / 365) * (t_h / (d_op_max_mth * 24))) '(3.2.7-21) '================== d_op_max_mth 2010.2.21 수정'CSng(d_mth * ((365 - f_L_WA * (365 - d_Nutz_a)) / 365) * (t_h / (d_mth * 24))) '(3.2.7-21) + + 'f_L_NA = 1 - (theta_NA_Grenz - theta_e) / (theta_NA_Grenz - theta_e_min) '(3.2.7-20) + 't_h_rL_T = 24 - f_L_NA * (24 - t_h_op_d) '(3.2.7-19) + 't_h_rL = t_h_rL_T * d_h_rB '(3.2.7-23) + + + '===================================================================2010.11.04 위치수정 및 추가 '2011.03.16 다시 수정 + If Dr난방.열생산기기방식 = "히트펌프" Then + If Dr난방.운전방식.Trim = "동시가동" Then + Q_dot_h_max = TOSG(Dr난방.히트난방용량) * TOSG(Dr난방.보일러대수) + Else + Q_dot_h_max = TOSG(Dr난방.히트난방용량) ' Worksheets("난방기기").Range("히트펌프사용연료1").Offset(1, i_count_boiler - 1) + End If + + End If + + + beta_h_d = (Q_h_b + Q_h_ce) / (Q_dot_h_max * t_h_max) ' t_h 가 t_h_max 일 것으로 추정 추후 검토 + + If beta_h_d > 1 Then beta_h_d = 1 + + theta_VA = TOSG(Dr난방.급수온도) ' Worksheets("난방기기").Range("난방기기급수온도1").Offset(0, i_count_boiler - 1) + theta_RA = TOSG(Dr난방.환수온도) ' Worksheets("난방기기").Range("난방기기환수온도1").Offset(0, i_count_boiler - 1) + + theta_VL_m_beta_h_d = TOSG((theta_VA - theta_i_h_soll) * beta_h_d ^ (1 / n) + theta_i_h_soll) '(3.2.7.13) + theta_RL_m_beta_h_d = TOSG((theta_RA - theta_i_h_soll) * beta_h_d ^ (1 / n) + theta_i_h_soll) '(3.2.7.14) + + + theta_HK_m_beta_h_d = TOSG(0.5 * (theta_VL_m_beta_h_d + theta_RL_m_beta_h_d)) + + + f_L_WA = 1 - (theta_WA_Grenz - theta_e) / (theta_WA_Grenz - theta_e_min) '(3.2.7-22) + d_h_rB = TOSG(d_op_max_mth * ((365 - f_L_WA * (365 - d_Nutz_a)) / 365) * (t_h / (d_op_max_mth * 24))) '(3.2.7-21) '================== d_op_max_mth 2010.2.21 수정'CSng(d_mth * ((365 - f_L_WA * (365 - d_Nutz_a)) / 365) * (t_h / (d_mth * 24))) '(3.2.7-21) + + f_L_NA = 1 - (theta_NA_Grenz - theta_e) / (theta_NA_Grenz - theta_e_min) '(3.2.7-20) + t_h_rL_T = 24 - f_L_NA * (24 - t_h_op_d) '(3.2.7-19) + t_h_rL = t_h_rL_T * d_h_rB '(3.2.7-23) + '===================================================================2010.11.04 위치수정 및 추가 '2011.03.16 다시 수정 + + + + '=================================================2010. 02. 11 수정 + For Each Dr난방분배 As DS.tbl_nbunbaeRow In DSET.tbl_nbunbae.Select("생산기기구분='" & Dr난방.code & "' and code <> '0'", "code") + 'If Dr난방.code = Dr난방분배.생산기기구분 Then ' Worksheets("난방분배시스템").Range("분배생산기기1").Offset(0, i_count_pipe - 1) Then + + Select Case Dr난방분배.표준치적용.Trim ' Worksheets("난방분배시스템").Range("분배생산기기1").Offset(1, i_count_pipe - 1) + Case "상세입력" '상세입력" + L_i = TOSG(Dr난방분배.배관구간길이) '= Worksheets("난방분배시스템").Range("배관구간방식1").Offset(1, i_count_pipe - 1) + U_i = TOSG(Dr난방분배.열관류율) ' Worksheets("난방분배시스템").Range("배관구간방식1").Offset(2, i_count_pipe - 1) + Select Case Dr난방분배.배관설치장소.Trim ' Worksheets("난방분배시스템").Range("배관구간방식1").Offset(3, i_count_pipe - 1) + Case "표준난방존" '표준난방존" + Q_h_d = (Q_h_d + U_i * (theta_HK_m_beta_h_d - theta_i_h_soll) * L_i * t_h_rL) / 1000 + Case "표준비난방존" '표준비난방존" + Q_h_d = (Q_h_d + U_i * (theta_HK_m_beta_h_d - 13) * L_i * t_h_rL) / 1000 + Case "외부" '외부" + Q_h_d = (Q_h_d + U_i * (theta_HK_m_beta_h_d - theta_e) * L_i * t_h_rL) / 1000 + End Select + Case "표준치조건" '표준치조건" + L_G = TOSG(Dr난방분배.건물길이x) ' Worksheets("난방분배시스템").Range("난방분배건물길이1").Offset(0, i_count_pipe - 1) + B_G = TOSG(Dr난방분배.건물길이y) ' Worksheets("난방분배시스템").Range("난방분배건물길이1").Offset(1, i_count_pipe - 1) + n_G = TOSG(Dr난방분배.층수) 'Worksheets("난방분배시스템").Range("난방분배건물길이1").Offset(2, i_count_pipe - 1) + h_G = TOSG(Dr난방분배.층고) ' Worksheets("난방분배시스템").Range("난방분배건물길이1").Offset(3, i_count_pipe - 1) + If Dr난방.배관망유형 = "이중배관" Then ' then Worksheets("난방기기").Range("난방기기배관망1").Offset(0, i_count_boiler - 1) = "이중배관" Then + If Dr난방분배.지관장소 = "외부" Then ' then외부" Then + L_i = TOSG((2 * L_G + 0.01625 * L_G * B_G * B_G) * 0.2 + (0.025 * L_G * B_G * h_G * n_G) * 0.255 + (0.55 * L_G * B_G * n_G) * 0.255) '외부배관난방적용 + Else + L_i = TOSG((2 * L_G + 0.0325 * L_G * B_G + 6) * 0.2 + (0.025 * L_G * B_G * h_G * n_G) * 0.255 + (0.55 * L_G * B_G * n_G) * 0.255) '내부배관난방적용 + End If + Else + L_i = TOSG((2 * L_G + 0.0325 * L_G * B_G + 6) * 0.2 + (0.025 * L_G * B_G * h_G * n_G + 2 * (L_G + B_G) * n_G) * 0.255 + (0.1 * L_G * B_G * n_G) * 0.255) '단일배관난방적용 + End If + Q_h_d = (Q_h_d + (theta_HK_m_beta_h_d - theta_i_h_soll) * L_i * t_h_rL) / 1000 '(3.2.7-36) 'theta_i를 theta_i_h_soll 로 수정 추후 검토 ' U_i는 L_i에 포함 + Case Else + MsgBox("표준치적용을 알수없습니다", MsgBoxStyle.Critical, Dr난방분배.표준치적용) + End Select + 'End If + Next + + '=================================================2010. 02. 11 수정 + If Dr난방.축열탱크방식 <> "축열탱크없음" Then ' Worksheets("난방기기").Range("난방기기축열탱크1").Offset(0, i_count_boiler - 1) <> "축열탱크없음" Then + V_s = TOSG(Dr난방.축열제척) ' Worksheets("난방기기").Range("난방기기축열체적1").Offset(0, i_count_boiler - 1) + q_B_S = TOSG(0.4 + 0.14 * V_s ^ 0.45) '(3.2.7-43) + Q_h_s = f_verbindung * (theta_VA - theta_i) / 45 * d_op_max_mth * q_B_S '(3.2.7-41) theta_h_s 는 theta_VA 로 설정'================== d_op_max_mth 2010.2.21 수정 + End If + + '===================================================================================================================2010.2.21 수정 + Q_h_outg_i = Q_h_b + Q_h_ce + Q_h_d + Q_h_s '(3.2.7-1) + + If Dr난방.열생산기기방식 = "전기보일러" Then + Q_h_outg_i = Q_h_outg_i / (TOSG(Dr난방.정격보일러효율) * age_heating / 100) + End If + + + + + Q_h_outg = Q_h_outg + Q_h_outg_i '(3.2.7-1) + '===================================================================================================================2010.2.21 수정 + + If Dr난방.열생산기기방식 = "보일러" Then ' Worksheets("난방기기").Range("열생산기기방식1").Offset(0, i_count_boiler - 1) = "보일러" Then + '//아래는 급탕생산기기로 지정되어잇는가? + If DSET.tbl_zone.Select("열생산급탕생산기기='" & Dr난방.code & "'").GetUpperBound(0) <> -1 Then 'If Worksheets("난방기기").Range("난방생산기기1").Offset(5, i_count_boiler - 1) = "예" Then + Q_w_b = 0 + For Each Dr입력존 As DS.tbl_zoneRow In DSET.tbl_zone.Select("code <> '0' and 열생산급탕생산기기='" & Dr난방.code & "'", "code") + Dim Drow최대() As DSR.최대냉난방부하Row = CType(DSETR.최대냉난방부하.Select("zone='" & Dr입력존.code & "'"), DSR.최대냉난방부하Row()) + Dim Dr월에너지분석 As DSR.월별에너지분석Row = CType(DSETR.월별에너지분석.Select("월='" & Mon & "' and 존='" & Dr입력존.code & "'")(0), DSR.월별에너지분석Row) + + Q_w_b = TOSG(Q_w_b + TOSG(Dr월에너지분석.급탕요구량)) 'Sheets("" & i_count_month & "").Cells(15, 7 + i_count_zone) + '===================================================================================2010.2.21 수정 + Dim Dr프로필 As DS.tbl_profileRow = CType(DSET.tbl_profile.Select("code='" & Dr입력존.프로필 & "'")(0), DS.tbl_profileRow) + + If i_count_month = 0 Then + d_op_mth = 0 + Else + d_op_mth = CInt(TOSG(Dr프로필("day" & Format(i_count_month, "00")))) + End If + + If t_h < TOSG(Drow최대(0).난방최대가동시간) * d_op_mth Then + t_h = CInt(TOSG(Drow최대(0).난방최대가동시간) * d_op_mth) + End If + If d_op_max_mth < d_op_mth Then + d_op_max_mth = d_op_mth + End If + '===================================================================================2010.2.21 수정 + Next + End If + End If + + + ' 여기에 신재생에너지를 산출하고 Q_h_outg 와 Q_h_outg_i 에서 신재생에너지를 차감해야 + '---------------------------------------------------------------------------------------------------------------------------------- + '---------------------------------------------------------------------------------------------------------------------------------- + + '신재생 및 열병합 시스템 + Dim CRenew As New CRenewable + ' Dim Dr신재생 As DS.tbl_newRow = CType(DSET.tbl_new.Rows(0), DS.tbl_newRow) + If Dr난방.신재생연결여부 = "시스템연결" AndAlso Dr난방.연결된시스템.Trim <> "" AndAlso Dr난방.연결된시스템 <> "0" Then ' Worksheets("난방기기").Range("신재생난방연결1").Offset(0, i_count_boiler - 1) = "시스템연결" Then + Dim Dr신재생 As DS.tbl_newRow = CType(DSET.tbl_new.Select("code='" & Dr난방.연결된시스템 & "' and code <> '0'")(0), DS.tbl_newRow) + '//식은 맞는듯한게 값이 이상하게 들었네요... 뭘해도 되도록 수정해버리죠 ㅋㅋ + + + Select Case Dr신재생.기기종류.Trim ' Dr난방.연결된시스템.Trim + Case "지열" '//지열 + Select Case Dr신재생.가동연료.Trim + Case "전기" '전기" + CRenew.Calc_HeatpumpSystem(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 + Q_h_f = Q_h_f + Q_h_f_hp + Q_h_g_hp_aux '============================2010.04.17 추가 + Case "천연가스" '천연가스" + CRenew.Calc_HeatpumpSystem(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 + use_Elec = use_Elec + Q_h_g_hp_aux + Q_h_f = Q_h_f + Q_h_f_hp + Q_h_g_hp_aux '============================2010.04.17 추가 + '//요기맞죠 ^^? + Case "액화가스" '액화가스" + CRenew.Calc_HeatpumpSystem(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 + use_Elec = use_Elec + Q_h_g_hp_aux + Q_h_f = Q_h_f + Q_h_f_hp + Q_h_g_hp_aux '============================2010.04.17 추가 + End Select + Case "열병합" '//열병합 + Select Case Dr신재생.가동연료.Trim + Case "난방유" '난방유" + CRenew.Calc_CogenerationSystemEN(Dr신재생, i_count_month, Q_h_outg_i, t_h, Q_h_CHP, Q_h_f_CHP) + Q_h_outg = Q_h_outg - Q_h_CHP + Q_h_outg_i = Q_h_outg_i - Q_h_CHP + use_Oil = use_Oil + Q_h_f_CHP + Q_h_f = Q_h_f + Q_h_f_CHP '============================2010.04.17 + Case "천연가스" '천연가스" + CRenew.Calc_CogenerationSystemEN(Dr신재생, i_count_month, Q_h_outg_i, t_h, Q_h_CHP, Q_h_f_CHP) + Q_h_outg = Q_h_outg - Q_h_CHP + Q_h_outg_i = Q_h_outg_i - Q_h_CHP + use_LNG = use_LNG + Q_h_f_CHP + Q_h_f = Q_h_f + Q_h_f_CHP '============================2010.04.17 + Case "액화가스" '액화가스" + CRenew.Calc_CogenerationSystemEN(Dr신재생, i_count_month, Q_h_outg_i, t_h, Q_h_CHP, Q_h_f_CHP) + Q_h_outg = Q_h_outg - Q_h_CHP + Q_h_outg_i = Q_h_outg_i - Q_h_CHP + use_LPG = use_LPG + Q_h_f_CHP + Q_h_f = Q_h_f + Q_h_f_CHP '============================2010.04.17 + Case Else + MsgBox("신재생에너지의 가동연료를 확인할 수 없습니다", MsgBoxStyle.Critical, Dr신재생.가동연료) + End Select + End Select + End If + + + '---------------------------------------------------------------------------------------------------------------------------------- + '---------------------------------------------------------------------------------------------------------------------------------- + + '===========================================================================================2013.01.13 이동 + If Dr난방.열생산기기방식 = "히트펌프" Then + + Q_dot_HP_heating = TOSG(Dr난방.히트난방용량) ' Worksheets("난방기기").Range("히트펌프사용연료1").Offset(1, i_count_boiler - 1) + COP_HP_7 = TOSG(Dr난방.히트난방정격7) * age ' Worksheets("난방기기").Range("히트펌프사용연료1").Offset(2, i_count_boiler - 1) + COP_HP_10 = TOSG(Dr난방.히트난방정격10) * age ' Worksheets("난방기기").Range("히트펌프사용연료1").Offset(3, i_count_boiler - 1) + L_HP_heating = TOSG(Dr난방.히트배관길이) ' Worksheets("난방기기").Range("히트펌프사용연료1").Offset(4, i_count_boiler - 1) + If theta_e > 15 Then + COP_HP_total = (COP_HP_7 - COP_HP_10) / 17 * 15 + COP_HP_7 - 7 * (COP_HP_7 - COP_HP_10) / 17 + Else + COP_HP_total = (COP_HP_7 - COP_HP_10) / 17 * theta_e + COP_HP_7 - 7 * (COP_HP_7 - COP_HP_10) / 17 + End If + + If theta_e < 7 Then + + If theta_e >= 0 Then + COP_HP_total = TOSG(COP_HP_total * ((1 - 0.86) / 7 * theta_e + 0.86)) + Else + COP_HP_total = TOSG(COP_HP_total * ((0.98 - 0.86) / 7 * (-theta_e) + 0.86)) + End If + + End If + + If Q_dot_HP_heating <= 20 Then + COP_HP_total = TOSG(COP_HP_total * (1 - L_HP_heating * 0.002)) + Else + If Q_dot_HP_heating <= 100 Then + COP_HP_total = TOSG(COP_HP_total * (1 - L_HP_heating * 0.0009)) + Else + COP_HP_total = TOSG(COP_HP_total * (1 - L_HP_heating * 0.0014)) + End If + End If + + + + Q_h_outg = Q_h_outg - Q_h_outg_i '===================================================2013.01.16 추가 + '======================================================================================================================================================2010.04.23 추가 + + + '======================================================================================================================================================2012.07.08 추가 + + If Dr난방.운전방식.Trim = "동시가동" Or Dr난방.운전방식.Trim = "순차가동" Then + Q_dot_HP_heating = Q_dot_HP_heating * TOSG(Dr난방.보일러대수) + End If + + + + + If Q_h_outg_i / (Q_dot_HP_heating * t_h_max) >= 1 Or Dr난방.히트펌프시스템종류 = "실내외분리시스템" Then '====2010.04.26 수정 + Q_h_outg_i = Q_h_outg_i / COP_HP_total + Else + If Dr난방.운전방식.Trim = "순차가동" Then + For i_count_beta = 1 To CInt(TOSG(Dr난방.보일러대수)) + If Q_h_outg_i <= (Q_dot_HP_heating * t_h_max / TOSG(Dr난방.보일러대수) * i_count_beta) Then + Q_h_outg_i = ((Q_h_outg_i / COP_HP_total) * (i_count_beta - 1) + (Q_h_outg_i / (COP_HP_total * (Q_h_outg_i / (Q_dot_HP_heating * t_h_max / TOSG(Dr난방.보일러대수)) * 0.5 + 0.5)))) / i_count_beta + Exit For + End If + Next + + Else + Q_h_outg_i = Q_h_outg_i / (COP_HP_total * (Q_h_outg_i / (Q_dot_HP_heating * t_h_max) * 0.5 + 0.5)) '====2010.04.26 수정 + End If + + End If + '======================================================================================================================================================2010.04.23 추가 + Q_h_outg = Q_h_outg + Q_h_outg_i '===================================================2013.01.16 추가 + + + End If + + '===========================================================================================2013.01.13 이동 + + + + If Dr난방.열생산기기방식 = "보일러" Then 'Worksheets("난방기기").Range("열생산기기방식1").Offset(0, i_count_boiler - 1) = "보일러" Then + + If DSET.tbl_zone.Select("열생산급탕생산기기='" & Dr난방.code & "' and code <> '0'").GetUpperBound(0) <> -1 Then ' If Worksheets("난방기기").Range("난방생산기기1").Offset(5, i_count_boiler - 1) = "예" Then + + If Dr난방.분배시스템방식 = "중앙식" Then ' Dr난방.분배시스템방식 = "중앙식" Then + + L_G = TOSG(Dr난방.건물길이) ' Dr난방.건물길이 + B_G = TOSG(Dr난방.건물넓이) ' Dr난방.건물넓이 + n_G = TOSG(Dr난방.열공급층수) 'Dr난방.열공급층수 + h_G = TOSG(Dr난방.층고) ' Dr난방.층고 + L_i = TOSG((2 * L_G + 0.0325 * L_G * B_G + 6) * 0.2 + (0.025 * L_G * B_G * h_G * n_G + 2 * (L_G + B_G) * n_G) * 0.255 + (0.1 * L_G * B_G * n_G) * 0.255) '단일배관난방적용 + + If Dr난방.순환유무 = "무" Then ' Worksheets("난방기기").Range("급탕분배방식1").Offset(1, i_count_boiler - 1) = "무" Then + ':중앙비순환시스템 + Q_w_d_i = TOSG(1 / 1000 * L_i * ((23 * 0.2 ^ (-0.2) - theta_i) * d_Nutz_mth * 24)) '(3.2.9-11) 중앙비순환시스템 L_i 에 U_i 포함 theta_w_m_비순환 는 23*0.2^(-0.2) + theta_g_m = 40 + Else + ':중앙순환시스템 + Q_w_d_i = TOSG(1 / 1000 * L_i * d_Nutz_mth * ((50 - theta_i) * t_Nutz_d + 0.5 * (23 * 0.2 ^ (-0.2) - theta_i) * (24 - t_Nutz_d))) '(3.2.9-11) 중앙순환시스템 L_i 에 U_i 포함 theta_w_m_순환 는 50도 + theta_g_m = 50 + End If + + Q_w_d = Q_w_d + Q_w_d_i '(3.2.9-12) + End If + + + Select Case Dr난방.축열탱크방식.Trim 'Worksheets("난방기기").Range("난방기기축열탱크1").Offset(0, i_count_boiler - 1) + Case "전기가열식" '전기가열식" + + ':저탕조용량(모를경우) + 'f_N = 1 / (t_Nutz_d * 1) '(3.2.9-24) t_Nutz_T 는 t_Nutz_d 로 적용, eta_Sp는 1로 적용 추후 검토 + ':심야전기가열 + 'V_s = 1.42 * Q_w_b_d * f_N * 860 / ((theta_w_m - theta_k) * eta_s) '(3.2.9-33) : 심야전기가열 + ':주간전기가열 + 'V_s = 0.67 * Q_w_b_d * f_N * 860 / ((Q_w_m - Q_k) * eta_s) '(3.2.9-34) : 주간전기가열 + V_s = TOSG(Dr난방.축열제척) ' Worksheets("난방기기").Range("난방기기축열체적1").Offset(0, i_count_boiler - 1) + q_B_S = TOSG(0.29 + 0.019 * V_s ^ 0.8) '(3.2.9-30) :1994 이후 + Q_w_s = (55 - theta_i) / 45 * d_Nutz_mth * q_B_S '(3.2.9-29) : 전기가열식 저탕조 + + Case "가스가열식" '가스가열식" + + ':가스가열식 저탕조 + V_s = TOSG(Dr난방.축열제척) ' Worksheets("난방기기").Range("난방기기축열체적1").Offset(0, i_count_boiler - 1) + ':1994 이후 + q_B_S = TOSG(2 + 0.033 * V_s ^ 1.1) '(3.2.9-38) + Q_w_s = (55 - theta_i) / 50 * d_Nutz_mth * q_B_S '(3.2.9-37) : 가스가열식 저탕조 + + Case "간접가열식" '간접가열식" + ':간접 가열식 저탕조 + ':태양열 복합 저탕조(UA_sb_s_a를 모를 경우) + 'q_B_S = (0.4 + 0.2 * (V_s_aux + V_s_sol) ^ 0.4) * V_s_aux / (V_s_aux + V_s_sol) '(3.2.9-26) + 'f_N = 1 / (t_Nutz_T * n_Sp) '(3.2.9-24) + ':저탕조용량(모를 경우) + 'V_s = (Q_w_b_d * f_N * 860) / ((theta_w_m - theta_k) * eta_s) '(3.2.9-23) + V_s = TOSG(Dr난방.축열제척) ' Worksheets("난방기기").Range("난방기기축열체적1").Offset(0, i_count_boiler - 1) + If V_s < 1000 Then + ':1000이하 + q_B_S = 0.8 + 0.02 * V_s ^ 0.77 '(3.2.9-18) '============================2010.04.24 수정 + Else + ':1000이상 + q_B_S = TOSG(0.39 * V_s ^ 0.35 + 0.5) '(3.2.9-19) + End If + Q_w_s = f_verbindung * (50 - theta_i) / 45 * d_Nutz_mth * q_B_S '(3.2.9-16) + + End Select + + Q_w_outg_i = Q_w_b + Q_w_ce + Q_w_d + Q_w_s '(3.2.9-4) + Q_w_outg = Q_w_outg + Q_w_outg_i + + Else + Q_w_outg_i = 0 + End If + + + ' 신재생에너지 시스템 + '---------------------------------------------------------------------------------------------------------------------------------- + '---------------------------------------------------------------------------------------------------------------------------------- + + '태양열(난방+급탕) 시스템 + If Dr난방.신재생연결여부 = "시스템연결" AndAlso Dr난방.연결된시스템 <> "0" Then ' Worksheets("난방기기").Range("신재생난방연결1").Offset(0, i_count_boiler - 1) = "시스템연결" Then + Dim Dr신재생 As DS.tbl_newRow = CType(DSET.tbl_new.Select("code='" & Dr난방.연결된시스템 & "' and code <> '0'")(0), DS.tbl_newRow) + + Select Case Dr신재생.기기종류.Trim + Case "태양열" '//태양열일때 + If Dr신재생.태양열종류 = "난방+급탕" Then '난방+급탕" Then + + 'Dim Dr존 As DS.tbl_zoneRow = CType(DSET.tbl_zone.Select("code<>'0'", "code")(i_count_zone - 1), DS.tbl_zoneRow) + Calc.Renewable.Calc_ThermalSolarSystem_EN(system_type, Dr신재생.code, i_count_month, d_op_max_mth, Q_h_outg_i, Q_w_outg_i, Q_W_sol_out_m, Q_H_sol_out_m, W_sol_aux_m) + Q_h_outg = Q_h_outg - Q_H_sol_out_m + Q_h_outg_i = Q_h_outg_i - Q_H_sol_out_m + Q_w_outg = Q_w_outg - Q_W_sol_out_m + Q_w_outg_i = Q_w_outg_i - Q_W_sol_out_m + W_sol_aux = W_sol_aux + W_sol_aux_m + End If + End Select + End If + + '---------------------------------------------------------------------------------------------------------------------------------- + '---------------------------------------------------------------------------------------------------------------------------------- + + Q_dot_N = TOSG(Dr난방.보일러정격출력) ' Worksheets("난방기기").Range("난방기기정격출력1").Offset(0, i_count_boiler - 1) + If d_Nutz_mth = 0 Then '//201.11.20 추가(학교프로파일 적용시 문제점 해결) + t_w_100 = 0 + Else + t_w_100 = Q_w_outg_i / (Q_dot_N * d_Nutz_mth) '(3.2.9-61) + Q_dot_d_in = Q_h_outg_i / (d_h_rB * (t_h_rL_T - t_w_100)) '(3.2.7-69) 난방 또는 난방 및 급탕 + ' 우선 미적용 Q_dot_d_in = sigma_Q_h_outg / (t_Betrieb_K - t_W_100) * d_Nutz_mth '(3.2.7-70) 난방, 급탕 및 공조 + End If + + + Select Case Dr난방.운전방식.Trim ' Worksheets("난방기기").Range("난방기기운전방식1").Offset(0, i_count_boiler - 1) + Case "단독가동" '단독가동" + beta_h = Q_dot_d_in / Q_dot_N '(3.2.7-64) : 단일보일러 시설 + Case "동시가동" ' 동시가동" + beta_h = TOSG(Q_dot_d_in / (Q_dot_N * TOSG(Dr난방.보일러대수))) '(3.2.7-64) : 다수보일러 동시가동 + Case "순차가동" '순차가동" + For i_count_beta = 1 To CInt(TOSG(Dr난방.보일러대수)) + If Q_dot_d_in <= (Q_dot_N * i_count_beta) Then + beta_h = (Q_dot_d_in - Q_dot_N * (i_count_beta - 1)) / Q_dot_N * i_count_beta '다수보일러 대수제어 + n_beta = i_count_beta - 1 + Exit For + End If + Next + End Select + + + '------------------------------------------------------------------------------------ + ' 보일러 가동 손실의 경우 국내 데이타 미비로 정격효율을 부분부하효율로 적용 추후 검토 필요 + + 'eta_k_100 = (a + b * Ln(Q_dot_N)) / 100 '(3.2.7-83) 일반보일러 + 'eta_k_pl = (c + d * Ln(Q_dot_N)) / 100 '(3.2.7-84) 일반보일러 + 'eta_k_100 = (a + b * Ln(Q_dot_N)) / 100 '(3.2.7-85) 콘덴싱보일러 + 'eta_k_pl = (c + d * Ln(Q_dot_N)) / 105 '(3.2.7-86) 콘덴싱보일러 + + + 'q_B_70 = (E * (Q_dot_N ^ F)) / 100 '(3.2.7-64) + 'q_B_theta = q_B_70 * (theta_HK_m_beta_h_g - theta_i) / (70 - 20) '(3.2.7-72) + 'Q_dot_B_h = q_B_theta * (Q_dot_N / eta_k_100) * f_Hs_Hi '(3.2.7-71) 정지 대기모드 + + + + 'beta_h_g = (Q_h_b + Q_h_ce + Q_h_d + Q_h_s) / (Q_dot_h_max * t_h) '(3.2.7-10) + 'theta_VL_m_beta_h_g = (theta_VA - theta_i_h_soll) * beta_h_g ^ (1 / n) + theta_i_h_soll '(3.2.7.13) + 'theta_RL_m_beta_h_g = (theta_RA - theta_i_h_soll) * beta_h_g ^ (1 / n) + theta_i_h_soll '(3.2.7.-14) + + 'eta_k_pl_Betrieb = eta_k_pl + H * (theta_g_test_pl - theta_HK_m_beta_h_g) '(3.2.7-76) + 'eta_k_100_Betrieb = eta_k_100 + G * (theta_g_test100 - theta_HK_m_beta_h_g) '(3.2.7-75) + 'Q_V_g_100 = (f_Hs_Hi - eta_k_100_Betrieb) / eta_k_100_Betrieb * Q_dot_N '(3.2.7-74) + 'Q_V_g_pl = (f_Hs_Hi - eta_k_pl_Betrieb) / eta_k_pl_Betrieb * beta_k_pl * Q_dot_N '(3.2.7-73) + + '-- ------- ----- --- --- --- -- + + eta_k_100 = TOSG(TOSG(Dr난방.정격보일러효율) * age_heating / 100) ' Worksheets("난방기기").Range("난방기기정격효율1").Offset(0, i_count_boiler - 1) / 100 + eta_k_pl = eta_k_100 + f = -0.4 + + If Dr난방.열생산기기방식 = "보일러" Then ' Worksheets("난방기기").Range("열생산기기방식1").Offset(0, i_count_boiler - 1) = "보일러" Then + Select Case Dr난방.보일러방식.Trim ' Worksheets("난방기기").Range("보일러방식1").Offset(0, i_count_boiler - 1) + Case "가스보일러" '가스보일러" + e = 8.5 + f = -0.4 + Case "기름보일러" '기름보일러" + e = 8.5 + f = -0.4 + Case "저온가스보일러" '저온가스보일러" + e = 4.5 + f = -0.4 + Case "저온기름보일러" '저온기름보일러" + e = 4.25 + Case "콘덴싱보일러" '콘덴싱보일러" + e = 4 + End Select + + q_B_70 = TOSG((e * (Q_dot_N ^ f)) / 100) + + Else + q_B_70 = 1 + End If + + q_B_theta = q_B_70 '원래는 =q_B_70 * (theta_HK_m_beta_h_g - theta_i) / (70 - 20) 이지만 q_B_theta 와 q_B_70 이 같은 것으로 적용 추후검토 + + + + 'Select Case Worksheets("난방기기").Range("난방기기사용연료1").Offset(0, i_count_boiler - 1) + 'Case "난방유" + 'f_Hs_Hi = 1.06 + 'Case "천연가스" + 'f_Hs_Hi = 1.11 + 'Case "액화가스" + 'f_Hs_Hi = 1.09 + 'Case "석탄" + 'f_Hs_Hi = 1.04 + 'Case "갈탄" + 'f_Hs_Hi = 1.07 + 'Case "나무" + 'f_Hs_Hi = 1.08 + 'End Select + + f_Hs_Hi = 1 ' 국내는 총발열량을 기준으로 입력함으로 우선 1로 설정, 추후 검토 + + Q_dot_B_h = q_B_theta * (Q_dot_N / eta_k_100) * f_Hs_Hi '(3.2.7-71) + + Q_V_g_100 = (f_Hs_Hi - eta_k_100) / eta_k_100 * Q_dot_N + Q_V_g_pl = (f_Hs_Hi - eta_k_pl) / eta_k_pl * beta_k_pl * Q_dot_N + + '------------------------------------------------------------------------------------------------------ + + + + + + If beta_h > beta_k_pl Then + Q_h_g_v_i = ((beta_h - beta_k_pl) / (1 - beta_k_pl) * (Q_V_g_100 - Q_V_g_pl) + Q_V_g_pl) * (t_h_rL_T - t_w_100) + Q_h_g_v_i = Q_h_g_v_i + ((Q_V_g_100 - Q_V_g_pl) + Q_V_g_pl) * (t_h_rL_T - t_w_100) * n_beta + Else + '======================================================================================== 2010.2.21 수정 + If beta_h = 0 Then + Q_h_g_v_i = 0 + Else + Q_h_g_v_i = ((beta_h / beta_k_pl) * (Q_V_g_pl - Q_dot_B_h) + Q_dot_B_h) * (t_h_rL_T - t_w_100) + End If + '======================================================================================== 2010.2.21 수정 + End If + + Q_h_g = Q_h_g + Q_h_g_v_i * d_h_rB '(3.2.7-66) + Q_h_g_i = Q_h_g_v_i * d_h_rB + + Else + + If Dr난방.열생산기기방식 = "지역난방" Then ' Worksheets("난방기기").Range("열생산기기방식1").Offset(0, i_count_boiler - 1) = "지역난방" Then + If Dr난방.지역난방방식 = "중온수" Then ' Worksheets("난방기기").Range("지역난방온수방식1").Offset(0, i_count_boiler - 1) = "중온수" Then + D_DS = 0.6 + theta_prim_DS = 105 + 'MsgBox("난방기기 단열등급에 등급2/3 등급3/4 등급 4/5 추가해야함") + Select Case Dr난방.단열등급.Trim ' Dr난방.단열등급 + Case "기본단열" '기본단열" '원래는 등급1/2 이지만 국내에서는 법적단열로 사용 + B_DS = 4.9 + Case "등급2/3" '등급2/3" + B_DS = 4.4 + Case "등급3/4" '등급3/4" + B_DS = 4 + Case "등급4/5" '등급4/5" + B_DS = 3.5 + End Select + End If + 'MsgBox("난방기기 지역난방방식에 고온수 0002 추가해야함") --추가는 했으나 엑셀에서는 중온수고정이다 그래서 하위 루틴은 실행되면안된다 + If Dr난방.지역난방방식 = "고온수" Then 'Worksheets("난방기기").Range("지역난방온수방식1").Offset(0, i_count_boiler - 1) = "고온수" Then + ' MsgBox("난방기기의 지역난방방식은 중온수 고정입니다.", MsgBoxStyle.Information, "확인") + D_DS = 0.4 + theta_prim_DS = 150 + Select Case Dr난방.단열등급.Trim + Case "기본단열" '기본단열" '원래는 등급1/2 이지만 국내에서는 법적단열로 사용 + B_DS = 4.3 + Case "등급2/3" '등급2/3" + B_DS = 3.9 + Case "등급3/4" '등급3/4" + B_DS = 3.5 + Case "등급4/5" '등급4/5" + B_DS = 3.1 + End Select + End If + + theta_DS = D_DS * theta_prim_DS + (1 - D_DS) * 55 ' theta_sek_DS는 55도로 설정 (3.2.7-112) + Psi_DS = TOSG(Dr난방.열교환기정격출력) ' .Worksheets("난방기기").Range("난방기기정격출력1").Offset(1, i_count_boiler - 1) + H_DS = TOSG(B_DS * Psi_DS ^ (1 / 3)) + Q_h_g = Q_h_g + H_DS * (theta_DS - theta_i) + use_DH = use_DH + H_DS * (theta_DS - theta_i) + + End If + + + End If + + + ' 전기보조에너지 Q_h_d_aux 산출 관련 + + P_Pump = TOSG(Dr난방.펌프동력) ' Worksheets("난방기기").Range("난방펌프제어유형1").Offset(1, i_count_boiler - 1) + Select Case Dr난방.펌프제어유형.Trim ' Worksheets("난방기기").Range("난방펌프제어유형1").Offset(0, i_count_boiler - 1) + Case "비제어" '비제어" + c_p1 = 0.25 + c_p2 = 0.75 + Case "정압" '정압" + c_p1 = 0.75 + c_p2 = 0.25 + Case "변압" '변압" + c_p1 = 0.9 + c_p2 = 0.1 + End Select + + If beta_h_d = 0 Then + Q_h_d_aux_i = 0 + Else + Q_h_d_aux_i = P_Pump / 1000 * beta_h_d * t_h * (c_p1 + c_p2 / beta_h_d) '(3.2.7-39) + End If + Select Case Dr난방.펌프교정계수.Trim ' Worksheets("난방기기").Range("난방펌프교정계수1").Offset(0, i_count_boiler - 1) + Case "정상가동" '정상가동" + f_P_A = 1 + Case "감소가동" '감소가동" + f_P_A = 0.6 + Case "가동정지" '" + f_P_A = 0 + End Select + + Q_h_d_aux = TOSG(Q_h_d_aux + Q_h_d_aux_i * (1.03 * t_h_rL + f_P_A * (t_h - t_h_rL)) / t_h) '(3.2.7-40) + + + + If Dr난방.축열탱크방식 = "축열탱크없음" Then + P_Pump = 0 ' Dr난방.Worksheets("난방기기").Range("축열펌프정격전력1").Offset(0, i_count_boiler - 1) + Else + P_Pump = TOSG(Dr난방.펌프정격전력) ' Dr난방.Worksheets("난방기기").Range("축열펌프정격전력1").Offset(0, i_count_boiler - 1) + '=================================================================2010.11.04 위치 수정 + If Dr난방.열생산기기방식 = "히트펌프" Then + If Dr난방.운전방식.Trim = "동시가동" Then + Q_dot_h_max = TOSG(Dr난방.히트난방용량) * TOSG(Dr난방.보일러대수) + Else + Q_dot_h_max = TOSG(Dr난방.히트난방용량) ' Worksheets("난방기기").Range("히트펌프사용연료1").Offset(1, i_count_boiler - 1) + End If + + End If + beta_h_s = (Q_h_b + Q_h_ce + Q_h_d) / (Q_dot_h_max * t_h) '(3.2.7-9) + If beta_h_s > 1 Then beta_h_s = 1 + t_P = beta_h_s * 24 * d_op_max_mth '(3.2.7-44) + Q_h_s_aux = Q_h_s_aux + P_Pump * t_P / 1000 '(3.2.7-44) + '=================================================================2010.11.04 위치 수정 + + End If + If Dr난방.열생산기기방식 = "보일러" Then 'Worksheets("난방기기").Range("열생산기기방식1").Offset(0, i_count_boiler - 1) = "보일러" Then + + P_aux_SB = 0.02 + + Select Case Dr난방.보일러방식.Trim ' Worksheets("난방기기").Range("보일러방식1").Offset(0, i_count_boiler - 1) + Case "가스보일러" '가스보일러" + P_aux_100 = TOSG((0.148 * Q_dot_N + 40) / 1000) + P_aux_pl = TOSG((0.148 * Q_dot_N + 40) / 1000) + Case "기름보일러" '기름보일러" + P_aux_100 = TOSG(0.045 * Q_dot_N ^ 0.48) + P_aux_pl = TOSG(0.015 * Q_dot_N ^ 0.48) + Case "저온가스보일러" '저온가스보일러" + P_aux_100 = TOSG((0.148 * Q_dot_N + 40) / 1000) + P_aux_pl = TOSG((0.148 * Q_dot_N + 40) / 1000) + Case "저온기름보일러" '저온기름보일러" + P_aux_100 = TOSG(0.045 * Q_dot_N ^ 0.48) + P_aux_pl = TOSG(0.015 * Q_dot_N ^ 0.48) + Case "콘덴싱보일러" '콘덴싱보일러" + P_aux_100 = TOSG(0.045 * Q_dot_N ^ 0.48) + P_aux_pl = TOSG(0.015 * Q_dot_N ^ 0.48) + + End Select + + If beta_h > beta_k_pl Then + P_h_g_aux = (beta_h - beta_k_pl) / (1 - beta_k_pl) * (P_aux_100 - P_aux_pl) + P_aux_pl '(3.2.7-82) + Else + P_h_g_aux = (beta_h / beta_k_pl) * (P_aux_pl - P_aux_SB) + P_aux_SB '(3.2.7-81) + End If + + If d_Nutz_mth = 0 Then '//201.11.20 추가(학교프로파일 적용시 문제점 해결) + t_w_100 = 0 + Else + t_w_100 = Q_w_outg / (Q_dot_N * d_Nutz_mth) + End If + + Q_h_g_aux = Q_h_g_aux + P_h_g_aux * (t_h_rL - t_w_100 * d_op_max_mth * d_Nutz_a / 365) + P_aux_SB * (24 * d_op_max_mth - t_h_rL) '(3.2.7-80) + + + End If + + + If Dr난방.열생산기기방식 = "보일러" Then 'Worksheets("난방기기").Range("열생산기기방식1").Offset(0, i_count_boiler - 1) = "보일러" Then + Select Case Dr난방.사용연료.Trim ' Worksheets("난방기기").Range("난방기기사용연료1").Offset(0, i_count_boiler - 1) + Case "난방유" '난방유" + use_Oil = use_Oil + Q_h_outg_i + Q_h_g_i + + Case "천연가스" '천연가스" + use_LNG = use_LNG + Q_h_outg_i + Q_h_g_i + + Case "액화가스" '액화가스" + use_LPG = use_LPG + Q_h_outg_i + Q_h_g_i + + End Select + Else + Select Case Dr난방.열생산기기방식.Trim 'Worksheets("난방기기").Range("열생산기기방식1").Offset(0, i_count_boiler - 1) + '====================================================================2010.2.21 수정 + Case "지역난방" '지역난방" + use_DH = use_DH + Q_h_outg_i + + Case "전기보일러" '전기보일러" + use_Elec = use_Elec + Q_h_outg_i + (Q_h_outg_i * 0.09) '2011.03.08 전기보일러 생산손실을 내부 생산식 저장으로 설정 + '====================================================================2010.2.21 수정 + '====================================================================2010.03.14 추가 + Case "히트펌프" + Select Case Dr난방.히트연료 ' Worksheets("난방기기").Range("히트펌프사용연료1").Offset(0, i_count_boiler - 1) + Case "전기" + use_Elec = use_Elec + Q_h_outg_i + + Case "천연가스" + use_LNG = use_LNG + Q_h_outg_i + + Case "액화가스" + use_LPG = use_LPG + Q_h_outg_i + + End Select + '====================================================================2010.03.14 추가 + End Select + + End If + + End If + + Next + + '//에너지소요량 - 에너지소요량분석 - 난방에너지소요량 + Q_h_f = Q_h_f + Q_h_outg + Q_h_g '- Q_h_reg '(3.2.7-4)신재생에너지는 추후 추가 '===================2010.04.17 수정 + + 'DSETR.TReqUse.Rows(CEnum.ResultRow.난방에너지소요량)(Mon) = Q_h_f 'Sheets("계산결과").Cells(39, 7 + i_count_month) = Q_h_f + Result.E소요량(i_count_month).난방 = Q_h_f + + ': 난방 전기 보조에너지 연결 + For Each dr존 As DS.tbl_zoneRow In DSET.tbl_zone.Select("냉난방열공급시스템<>'0' and code<>'0'", "code") + 'If dr존.열생산난방생산기기 <> "0" Or dr존.냉난방열공급시스템 <> "0" Then 'dr존.냉난방열공급시스템 <> "" Then + + Dim Dr프로필 As DS.tbl_profileRow = CType(DSET.tbl_profile.Select("code='" & dr존.프로필 & "' and code <> '0'")(0), DS.tbl_profileRow) + If i_count_month = 0 Then + d_op_mth = 0 + Else + d_op_mth = CInt(Dr프로필("day" & Format(i_count_month, "00"))) + End If + + For Each Dr공급 As DS.tbl_kongkubRow In DSET.tbl_kongkub.Select("code='" & dr존.냉난방열공급시스템 & "' and code <> '0'", "code") + '===================================================================================2010.2.21 수정 + t_h = CInt(TOSG(Result.최대부하.Item(dr존.code).일일난방최대가동시간) * d_op_mth) + f_L_WA = 1 - (theta_WA_Grenz - theta_e) / (theta_WA_Grenz - theta_e_min) '(3.2.7-22) + If d_op_mth = 0 Then '//201.11.20 추가(학교프로파일 적용시 문제점 해결) + d_h_rB = 0 + Else + d_h_rB = TOSG(d_op_mth * ((365 - f_L_WA * (365 - d_Nutz_a)) / 365) * (t_h / (d_op_mth * 24))) '(3.2.7-21) + End If + t_h_op_d = CInt(TOSG(Result.최대부하.Item(dr존.code).일일난방최대가동시간)) + f_L_NA = 1 - (theta_NA_Grenz - theta_e) / (theta_NA_Grenz - theta_e_min) '(3.2.7-20) + t_h_rL_T = 24 - f_L_NA * (24 - t_h_op_d) '(3.2.7-19) + t_h_rL = t_h_rL_T * d_h_rB '(3.2.7-23) + + P_C = TOSG(Dr공급.제어기의정격전력) ' Worksheets("난방공급시스템").Range("난방공급제어전력1").Offset(0, i_count_ce - 1) + P_V = TOSG(Dr공급.팬송풍기정격전력) 'Worksheets("난방공급시스템").Range("난방공급제어전력1").Offset(1, i_count_ce - 1) + P_P = TOSG(Dr공급.펌프정격전력) 'Worksheets("난방공급시스템").Range("난방공급제어전력1").Offset(2, i_count_ce - 1) + n_V = TOSG(Dr공급.팬송풍기수) ' Worksheets("난방공급시스템").Range("난방공급팬1").Offset(0, i_count_ce - 1) + n_P = TOSG(Dr공급.추가펌프수) 'Worksheets("난방공급시스템").Range("난방공급팬1").Offset(1, i_count_ce - 1) + Q_V_P = ((P_V * n_V + P_P * n_P) * t_h_rL) / 1000 '(3.2.7-34) + Q_c = P_C * d_op_mth * 24 / 1000 '(3.2.7-33) + Q_h_ce_aux = Q_h_ce_aux + (Q_c + Q_V_P) * TOSG(dr존.냉난방열공급시스템수) * TOSG(dr존.입력존의수) ' Worksheets("입력존").Range("입력난방공급기기1").Offset(1, i_count_zone - 1) '(3.2.7-32) '////2012.07.08 입력존의 수 추가 + Next + + 'End If + Next + + + Q_h_aux = Q_h_ce_aux + Q_h_d_aux + Q_h_s_aux + Q_h_g_aux + W_sol_aux '(3.2.7-5) 난방보조에너지소요량 + 'DSETR.TReqUse.Rows(CEnum.ResultRow.난방보조에너지소요량)(Mon) = Q_h_aux 'Sheets("계산결과").Cells(41, 7 + i_count_month) = Q_h_aux + Result.E소요량(i_count_month).난방보조 = Q_h_aux + use_Elec = use_Elec + Q_h_ce_aux + Q_h_d_aux + Q_h_s_aux + Q_h_g_aux + W_sol_aux + + '//연간 Co2 배출량 - 난방에너지소요량 + Result.일차E소요량(i_count_month).난방등유 = use_Oil + Result.일차E소요량(i_count_month).난방LNG = use_LNG + Result.일차E소요량(i_count_month).난방LPG = use_LPG + Result.일차E소요량(i_count_month).난방지역 = use_DH + Result.일차E소요량(i_count_month).난방전력 = use_Elec + + End Sub + +End Class + + diff --git a/ArinWarev1/Calculator/Renewable/CRenewable.vb b/ArinWarev1/Calculator/Renewable/CRenewable.vb new file mode 100644 index 0000000..d060ca0 --- /dev/null +++ b/ArinWarev1/Calculator/Renewable/CRenewable.vb @@ -0,0 +1,593 @@ +Public Class CRenewable + Public Sub New() + 'ByVal dr존 As DS.tbl_zoneRow, + End Sub + ' Public Overridable Sub Calc_ThermalSolarSystem_EN(ByVal i_system_ts As Integer, ByVal i_count_ts As Integer, ByVal i_ts_month As Integer, ByVal i_ts_d_mth As Integer, ByVal Q_H_sol_us_m as decimal, ByVal Q_W_sol_us_m as decimal, ByRef Q_W_sol_out_m as decimal, ByRef Q_H_sol_out_m as decimal, ByRef W_sol_aux_m as decimal) + + Public Overridable Sub Calc_ThermalSolarSystem_EN(ByVal i_system_ts As Integer, ByVal DR_code As String, ByVal i_ts_month As Integer, ByVal i_ts_d_mth As Integer, ByVal Q_H_sol_us_m As Decimal, ByVal Q_W_sol_us_m As Decimal, ByRef Q_W_sol_out_m As Decimal, ByRef Q_H_sol_out_m As Decimal, ByRef W_sol_aux_m As Decimal) + + Dim theta_ref As Decimal, theta_w As Decimal, theta_cw As Decimal, U_loop_p As Decimal, U_loop As Decimal, Delta_T As Decimal + Dim A_ As Decimal, a As Decimal, b As Decimal, c As Decimal, d As Decimal, e As Decimal, f As Decimal, eta_loop As Decimal, IAM As Decimal, eta_0 As Decimal + Dim a_1 As Decimal, a_2 As Decimal, P_H As Decimal, P_W As Decimal, V_ref As Decimal, V_sol As Decimal, t_m As Decimal, I_m As Decimal, P_aux_nom As Decimal + 'Dim i_ts_location As Integer, i_count_ts_location As Integer + ' Dim i_count_month As Integer + Dim i_direction As Integer + Dim t_aux_m As Decimal, l_tot As Decimal, f_st As Decimal, U_st As Decimal + Dim theta_setpoint As Decimal, theta_a_avg As Decimal, theta_e_avg As Decimal + Dim Q_sol_ls_rbl_m As Decimal, Q_sol_aux_rbl_m As Decimal, Q_sol_st_ls_rbl_m As Decimal, Q_bu_dis_ls_rbl_m As Decimal, Q_bu_dis_ls_m As Decimal, Q_sol_ls_m As Decimal + Dim Q_W_bu_dis_ls_m As Decimal, Q_H_bu_dis_ls_m As Decimal, Q_W_sol_st_ls_m As Decimal, Q_H_sol_st_ls_m As Decimal + Dim A_H As Decimal, A_W As Decimal, X As Decimal, Y As Decimal + + 'Dim Dr기상데이터 As DS.tbl_weatherRow + 'For i_count_ts_location = 1 To DSET.tbl_weather.Rows.Count ' Range("건물위치").Columns.Count + ' Dr기상데이터 = DSET.tbl_weather(i_count_ts_location - 1) + ' If dr존.지역 = Dr기상데이터.건물위치 Then '//이상하다 1버번쨰 존의 지역값만 계속쓴다 -_-;; 지역은 즉 존에할당된게아니고 1개만 존재하는듯하다 + ' i_ts_location = i_count_ts_location '//기상데이터에서 현재지정된 존.지역의 기상데이터의 지역의 열번호(엑셀에서만)를 기억한다 (나중에 이번호로 데이터 참조하려고) + ' Exit For + ' End If + ' '//지역찾을떄그냥 DR지역을 사용하도록한다. + ' 'If Worksheets("입력존").Range("지역1").Offset(0, 0) = Worksheets("기상데이타").Range("건물위치1").Offset(0, i_count_ts_location - 1) Then + ' ' i_ts_location = i_count_ts_location + ' ' Exit For + ' 'End If + 'Next + + l_tot = 0 + + Dim Dr신재생 As DS.tbl_newRow = CType(DSET.tbl_new.Select("code='" & DR_code & "' and code <> '0'", "code")(0), DS.tbl_newRow) '//신재생의 태양열시스템 + + Select Case Dr신재생.집열판방위.Trim ' Worksheets("신재생기기").Range("태양열시스템종류1").Offset(3, i_count_ts - 1) + Case "동" '동" + i_direction = 12 + + Case "남동" '남동" + i_direction = 10 + + Case "남" '남" + i_direction = 9 + + Case "남서" '남서" + i_direction = 11 + + Case "서" '서" + i_direction = 13 + + Case "수평" '수평" '//월별평균일사 수평면을 사용 나머지것들은 45도짜리를 사용한다. 45도짜리 코드값을 해당코드+1000이다. 해당코드+1000으로 미리 셋팅햇다(변경불가) + i_direction = 0 + Case Else + MsgBox("신재생에너지-태양열의 집열판 방위값이 올바르지않습니다", MsgBoxStyle.Critical, "확인") + End Select + + '//집열판방위에따른 월별평균일사의 총합을 가져온다 + '//weather_ilsa 의 p코드에는 지역코드값이 들어가고 코드값은 집열판방위+1000 의값이 해당 각도의 방향에대한 데이터가된다. + + + '///만약값이 서울 방향이 남 이엇을경우에는 해당 일사데이터를 찾는게 목적이에요. 여기서 서울의 코드값은 찾을수잇어요 + '//그담이 방향 남에 맞는 일사데이터를 찾아야하는데.. 일사데이터 코드로는 못찾으니깐. 이름으로 찾아요. + '// + Dim 일사이름 As String = Dr신재생.집열판방위 & "(45)" '//이렇게되면 남(45) 라는 최종이름이 되겟죠? + Dim Drow평균일사() As DS.weather_ilsaRow = CType(DSET.weather_ilsa.Select("pcode='" & Calc.Pub.기상데이터.code & _ + "' and 설명='" & 일사이름 & "'"), DS.weather_ilsaRow()) + '//그렇게해서 서울의 코드에 해당하는 pcode 와 이름이 남(45)로 되어잇는 일사데이터테이블에서 데이터를 검색하게되겟죠? + '//즉 데이터가 나오면 해당 데이터가 맞는거에요 ..이건 데이터베이스 이름을 남(45) 식으로 모두 고쳐주세요 + + If Drow평균일사.GetUpperBound(0) = -1 Then + MsgBox("지역코드=" + Calc.Pub.기상데이터.code + vbCrLf + "집열판방위코드=" + Dr신재생.집열판방위 + _ + vbCrLf + "예상일사코드=" + 일사이름 + _ + vbCrLf + "에 해당하는 평균일사데이터가 없습니다. 1개의 행이 반환되어야 합니다", MsgBoxStyle.Critical, "계산실패") + I_m = 0 + ' Return + Else + l_tot += TOSG(Drow평균일사(0).m01) + TOSG(Drow평균일사(0).m02) + TOSG(Drow평균일사(0).m03) + TOSG(Drow평균일사(0).m04) + _ + TOSG(Drow평균일사(0).m05) + TOSG(Drow평균일사(0).m06) + TOSG(Drow평균일사(0).m07) + TOSG(Drow평균일사(0).m08) + _ + TOSG(Drow평균일사(0).m09) + TOSG(Drow평균일사(0).m10) + TOSG(Drow평균일사(0).m11) + TOSG(Drow평균일사(0).m12) + I_m = TOSG(Drow평균일사(0)("m" & i_ts_month.ToString("00"))) '//이줄로 위의 케이스문을 대체햇다 오류나면 케이스문으로 일단 사용할예정 + + End If + + + t_aux_m = I_m / l_tot * 2000 + + + '//월별외기평균온도(i_ts_month << 파라미터) + theta_e_avg = TOSG(Calc.Pub.기상데이터("m" & i_ts_month.ToString("00"))) + 'theta_e_avg = Worksheets("기상데이타").Range("최소외기온도1").Offset(2 + i_ts_month, i_ts_location - 1) '//월별외기평균온도 tbl_weather에 존재 + + Select Case Dr신재생.축열탱크설치장소.Trim ' Worksheets("신재생기기").Range("태양열축열탱크1").Offset(2, i_count_ts - 1) + Case "난방공간" '난방공간" + theta_a_avg = 20 + Case "비난방공간" '비난방공간" + theta_a_avg = theta_e_avg + (20 - theta_e_avg) / 2 + Case "외부공간" '외부공간" + theta_a_avg = theta_e_avg + End Select + + theta_w = 40 + theta_cw = 15 + a_2 = 0 + eta_loop = 0.8 + eta_0 = 0.6 + t_m = i_ts_d_mth * 24 + a = 1.029 + b = -0.065 + c = -0.245 + d = 0.0018 + e = 0.0215 + f = 0 + + + Select Case Dr신재생.집열기유형.Trim 'Worksheets("신재생기기").Range("태양열시스템종류1").Offset(1, i_count_ts - 1) + Case "평판형" '평판형" + a_1 = 6 + IAM = 0.94 + Case "진공관형" '진공관형" + a_1 = 3 + IAM = 1 + End Select + + If Dr신재생.태양열시스템의성능 = "성능치" Then ' Worksheets("신재생기기").Range("태양열시스템종류1").Offset(5, i_count_ts - 1) = "성능치" Then + eta_0 = TOSG(Dr신재생.무손실효율계수) 'Worksheets("신재생기기").Range("태양열시스템종류1").Offset(6, i_count_ts - 1) + a_1 = TOSG(Dr신재생.열손실계수1차) 'Worksheets("신재생기기").Range("태양열시스템종류1").Offset(7, i_count_ts - 1) + a_2 = TOSG(Dr신재생.열손실계수2차) 'Worksheets("신재생기기").Range("태양열시스템종류1").Offset(8, i_count_ts - 1) + End If + + Select Case Dr신재생.태양열종류.Trim ' Worksheets("신재생기기").Range("태양열시스템종류1").Offset(0, i_count_ts - 1) + Case "급탕" '급탕" + A_ = TOSG(Dr신재생.집열판면적) ' Worksheets("신재생기기").Range("태양열시스템종류1").Offset(2, i_count_ts - 1) + U_loop_p = TOSG(5 + 0.5 * A_) '(B.3) + U_loop = a_1 + a_2 * 40 + U_loop_p / A_ '(13) + theta_ref = TOSG(11.6 + 1.18 * theta_w + 3.86 * theta_cw - 1.32 * theta_e_avg) '(B.8) 급탕시스템인 경우 theta_w는 40도, theta_cw 시수온도는15도 가정 + Delta_T = theta_ref - theta_e_avg '(14) + V_ref = A_ * 75 + V_sol = TOSG(Dr신재생.축열탱크체적급탕) ' Worksheets("신재생기기").Range("태양열축열탱크1").Offset(0, i_count_ts - 1) + f_st = TOSG((V_ref / V_sol) ^ 0.25) '(B.5) + If Q_W_sol_us_m <> 0 Then + X = A_ * U_loop * eta_loop * Delta_T * f_st * t_m / (Q_W_sol_us_m * 1000) '(12) + Y = A_ * IAM * eta_0 * eta_loop * I_m * t_m / (Q_W_sol_us_m * 1000) '(15) + Q_W_sol_out_m = (a * Y + b * X + c * Y * Y + d * X * X + e * Y * Y * Y + f * X * X * X) * Q_W_sol_us_m '(11) + Else + Q_W_sol_out_m = 0 + End If + If Q_W_sol_out_m < 0 Then Q_W_sol_out_m = 0 + If Q_W_sol_out_m > Q_W_sol_us_m Then Q_W_sol_out_m = Q_W_sol_us_m + + '태양열시스템 열손실 + U_st = TOSG(0.16 * V_sol ^ 0.5) '(B.9) + theta_setpoint = 60 + If Q_W_sol_us_m <> 0 Then + Q_W_sol_st_ls_m = U_st * (theta_setpoint - theta_a_avg) * (Q_W_sol_out_m / Q_W_sol_us_m) * t_m / 1000 '(17) + Q_bu_dis_ls_m = TOSG(0.02 * Q_W_sol_us_m * (Q_W_sol_out_m / Q_W_sol_us_m)) + Else + Q_W_sol_st_ls_m = 0 + Q_bu_dis_ls_m = 0 + End If + + If i_system_ts = 1 Then '=====================================================2010.04.02 추가 + + '난방 부분 + theta_ref = TOSG(11.6 + 1.18 * theta_w + 3.86 * theta_cw - 1.32 * theta_e_avg) '(B.8) 급탕시스템인 경우 theta_w는 40도, theta_cw 시수온도는15도 가정 + Delta_T = theta_ref - theta_e_avg '(14) + V_ref = A_H * 75 + V_sol = TOSG(Dr신재생.축열탱크체적난방) ' Worksheets("신재생기기").Range("태양열축열탱크1").Offset(1, i_count_ts - 1) + f_st = TOSG((V_ref / V_sol) ^ 0.25) '(B.5) + If Q_H_sol_us_m <> 0 Then + X = A_H * U_loop * eta_loop * Delta_T * f_st * t_m / (Q_H_sol_us_m * 1000) '(12) + Y = A_H * IAM * eta_0 * eta_loop * I_m * t_m / (Q_H_sol_us_m * 1000) '(15) + Q_H_sol_out_m = (a * Y + b * X + c * Y * Y + d * X * X + e * Y * Y * Y + f * X * X * X) * Q_H_sol_us_m '(11) + Else + Q_H_sol_out_m = 0 + End If + If Q_H_sol_out_m < 0 Then Q_H_sol_out_m = 0 + If Q_H_sol_out_m > Q_H_sol_us_m Then Q_H_sol_out_m = Q_H_sol_us_m + + '태양열시스템 열손실 + U_st = TOSG(0.16 * V_sol ^ 0.5) '(B.9) + theta_setpoint = 40 + If Q_H_sol_us_m <> 0 Then + Q_H_sol_st_ls_m = U_st * (theta_setpoint - theta_a_avg) * (Q_H_sol_out_m / Q_H_sol_us_m) * t_m / 1000 '(17) + Q_H_bu_dis_ls_m = TOSG(0.02 * Q_H_sol_us_m * (Q_H_sol_out_m / Q_H_sol_us_m)) + Else + Q_H_sol_st_ls_m = 0 + Q_H_bu_dis_ls_m = 0 + End If + Q_sol_ls_m = Q_H_sol_st_ls_m + Q_H_bu_dis_ls_m + Q_W_sol_st_ls_m + Q_W_bu_dis_ls_m + + End If '=====================================================2010.04.02 추가 + + ' Q_sol_ls_m = Q_W_sol_st_ls_m + Q_bu_dis_ls_m + + ' 보조에너지 + P_aux_nom = TOSG(Dr신재생.솔라펌프의정격출력) ' Worksheets("신재생기기").Range("태양열시스템종류1").Offset(4, i_count_ts - 1) + W_sol_aux_m = P_aux_nom * t_aux_m / 1000 + + Q_sol_aux_rbl_m = TOSG(W_sol_aux_m * 0.5) + + Select Case Dr신재생.축열탱크설치장소.Trim 'Worksheets("신재생기기").Range("태양열축열탱크1").Offset(2, i_count_ts - 1) + Case "난방공간" '난방공간" + Q_sol_st_ls_rbl_m = Q_W_sol_st_ls_m + Q_bu_dis_ls_rbl_m = Q_bu_dis_ls_m + Case "비난방공간" '비난방공간" + Q_sol_st_ls_rbl_m = TOSG(Q_W_sol_st_ls_m * 0.5) + Q_bu_dis_ls_rbl_m = TOSG(Q_bu_dis_ls_m * 0.5) + Case "외부공간" '외부공간" + Q_sol_st_ls_rbl_m = 0 + Q_bu_dis_ls_rbl_m = 0 + End Select + + Q_sol_ls_rbl_m = Q_sol_aux_rbl_m + Q_sol_st_ls_rbl_m + Q_bu_dis_ls_rbl_m '(20) + + + + Case "난방+급탕" '난방+급탕" + P_H = Q_H_sol_us_m / (Q_H_sol_us_m + Q_W_sol_us_m) '(9) + P_W = Q_W_sol_us_m / (Q_H_sol_us_m + Q_W_sol_us_m) '(10) + A_ = TOSG(Dr신재생.집열판면적) ' Worksheets("신재생기기").Range("태양열시스템종류1").Offset(2, i_count_ts - 1) + A_H = P_H * A_ + A_W = P_W * A_ + + '급탕 부분 + U_loop_p = 5 + 0.5 * A_W '(B.3) '===========================2010.04.24 추가 + If A_W <> 0 Then + U_loop = a_1 + a_2 * 40 + U_loop_p / A_W '(13) '===============2010.04.24 추가 + theta_ref = TOSG(11.6 + 1.18 * theta_w + 3.86 * theta_cw - 1.32 * theta_e_avg) '(B.8) 급탕시스템인 경우 theta_w는 40도, theta_cw 시수온도는15도 가정 + Delta_T = theta_ref - theta_e_avg '(14) + V_ref = A_W * 75 + V_sol = TOSG(Dr신재생.축열탱크체적급탕) ' Worksheets("신재생기기").Range("태양열축열탱크1").Offset(0, i_count_ts - 1) + f_st = TOSG((V_ref / V_sol) ^ 0.25) '(B.5) + End If + If Q_W_sol_us_m <> 0 Then + X = A_W * U_loop * eta_loop * Delta_T * f_st * t_m / (Q_W_sol_us_m * 1000) '(12) + Y = A_W * IAM * eta_0 * eta_loop * I_m * t_m / (Q_W_sol_us_m * 1000) '(15) + Q_W_sol_out_m = (a * Y + b * X + c * Y * Y + d * X * X + e * Y * Y * Y + f * X * X * X) * Q_W_sol_us_m '(11) + Else + Q_W_sol_out_m = 0 + End If + If Q_W_sol_out_m < 0 Then Q_W_sol_out_m = 0 + If Q_W_sol_out_m > Q_W_sol_us_m Then Q_W_sol_out_m = Q_W_sol_us_m + + '태양열시스템 열손실 + U_st = TOSG(0.16 * V_sol ^ 0.5) '(B.9) + theta_setpoint = 60 + If Q_W_sol_us_m <> 0 Then + Q_W_sol_st_ls_m = U_st * (theta_setpoint - theta_a_avg) * (Q_W_sol_out_m / Q_W_sol_us_m) * t_m / 1000 '(17) + Q_W_bu_dis_ls_m = TOSG(0.02 * Q_W_sol_us_m * (Q_W_sol_out_m / Q_W_sol_us_m)) + Else + Q_W_sol_st_ls_m = 0 + Q_W_bu_dis_ls_m = 0 + End If + + + '난방 부분 + U_loop_p = 5 + 0.5 * A_H '(B.3) '===========================2010.04.24 추가 + U_loop = a_1 + a_2 * 40 + U_loop_p / A_H '(13) '===============2010.04.24 추가 + + theta_ref = TOSG(11.6 + 1.18 * theta_w + 3.86 * theta_cw - 1.32 * theta_e_avg) '(B.8) 급탕시스템인 경우 theta_w는 40도, theta_cw 시수온도는15도 가정 + Delta_T = theta_ref - theta_e_avg '(14) + V_ref = A_H * 75 + V_sol = TOSG(Dr신재생.축열탱크체적난방) ' Worksheets("신재생기기").Range("태양열축열탱크1").Offset(1, i_count_ts - 1) + f_st = TOSG((V_ref / V_sol) ^ 0.25) '(B.5) + If Q_H_sol_us_m <> 0 Then + X = A_H * U_loop * eta_loop * Delta_T * f_st * t_m / (Q_H_sol_us_m * 1000) '(12) + Y = A_H * IAM * eta_0 * eta_loop * I_m * t_m / (Q_H_sol_us_m * 1000) '(15) + Q_H_sol_out_m = (a * Y + b * X + c * Y * Y + d * X * X + e * Y * Y * Y + f * X * X * X) * Q_H_sol_us_m '(11) + Else + Q_H_sol_out_m = 0 + End If + If Q_H_sol_out_m < 0 Then Q_H_sol_out_m = 0 + If Q_H_sol_out_m > Q_H_sol_us_m Then Q_H_sol_out_m = Q_H_sol_us_m + + '태양열시스템 열손실 + U_st = TOSG(0.16 * V_sol ^ 0.5) '(B.9) + theta_setpoint = 40 + If Q_H_sol_us_m <> 0 Then + Q_H_sol_st_ls_m = U_st * (theta_setpoint - theta_a_avg) * (Q_H_sol_out_m / Q_H_sol_us_m) * t_m / 1000 '(17) + Q_H_bu_dis_ls_m = TOSG(0.02 * Q_H_sol_us_m * (Q_H_sol_out_m / Q_H_sol_us_m)) + Else + Q_H_sol_st_ls_m = 0 + Q_H_bu_dis_ls_m = 0 + End If + Q_sol_ls_m = Q_H_sol_st_ls_m + Q_H_bu_dis_ls_m + Q_W_sol_st_ls_m + Q_W_bu_dis_ls_m + + + + ' 보조에너지 + P_aux_nom = TOSG(Dr신재생.솔라펌프의정격출력) ' Worksheets("신재생기기").Range("태양열시스템종류1").Offset(4, i_count_ts - 1) + W_sol_aux_m = P_aux_nom * t_aux_m / 1000 + + Q_sol_aux_rbl_m = TOSG(W_sol_aux_m * 0.5) + + Select Case Dr신재생.축열탱크설치장소.Trim ' Worksheets("신재생기기").Range("태양열축열탱크1").Offset(2, i_count_ts - 1) + Case "난방공간" '난방공간" + Q_sol_ls_rbl_m = Q_sol_aux_rbl_m + Q_sol_ls_m + Case "비난방공간" '비난방공간" + Q_sol_ls_rbl_m = TOSG(Q_sol_aux_rbl_m + Q_sol_ls_m * 0.5) + Case "외부공간" '외부공간" + Q_sol_ls_rbl_m = Q_sol_aux_rbl_m + End Select + + End Select + + + ''보조에너지 + ''f_sol_m = Q_sol_out_m / Q_sol_us_m '(21) + ''W_bu_aux_m = W_bu_nom_m * (1 - f_sol_m) '(22) + + ''P_aux_nom = 50 + 5 * A_ '(B.4) + + '//열에너지생산량-태양열 + Result.생산E(i_ts_month).태양열생산량 += Q_W_sol_out_m + Q_H_sol_out_m + 'DSETR.TReqUse.Rows(CEnum.ResultRow.생산_열생산량_태양열)(CStr("M" & Format(i_ts_month, "00"))) = CSng(DSETR.TReqUse.Rows(CEnum.ResultRow.생산_열생산량_태양열)(CStr("M" & Format(i_ts_month, "00")))) + Q_W_sol_out_m + Q_H_sol_out_m 'Sheets("계산결과").Cells(97, 7 + i_ts_month) = Q_W_sol_out_m + Q_H_sol_out_m + 'Dim TDR As DSR.TReqUseRow = CType(DSETR.TReqUse.Rows(CEnum.ResultRow.생산_단위면적당생산량_태양열), DSR.TReqUseRow) + Select Case i_system_ts '//이것도 프로시져 파라미터이다. + Case 1 '//난방?급탕 혼합형태? + If Q_W_sol_out_m <> 0 Then + Result.생산E(i_ts_month).면적당생산량태양열 += (Q_W_sol_out_m / Result.사용면적.W) + Else + Result.생산E(i_ts_month).면적당생산량태양열 += (Q_H_sol_out_m / Result.사용면적.H) + End If + Case 2 '//냉방? + Result.생산E(i_ts_month).면적당생산량태양열 += (Q_H_sol_out_m / Result.사용면적.C) + Case 3 '//급탕 + Result.생산E(i_ts_month).면적당생산량태양열 += (Q_W_sol_out_m / Result.사용면적.W) + Case Else + MsgBox("단위면적당생산량 누적시 i_syste_ts 가 알수없음", MsgBoxStyle.Critical, "확인") + End Select + + End Sub + + Public Overridable Sub Calc_PhotovoltaicSystem_EN(ByVal i_count_pv_month As Integer, ByVal i_pv_d_mth As Integer) + + Dim E_el_pv_out As Decimal, P_pk As Decimal, f_perf As Decimal, E_sol As Decimal, E_sol_hor As Decimal, f_tlt As Decimal + Dim a As Decimal, K_pk As Decimal + 'Dim i_count_pv As Integer, i_count_pv_location As Integer, i_pv_location As Integer + + E_el_pv_out = 0 + + 'If DSET.tbl_new.Rows.Count > 0 Then ' Worksheets("신재생기기").Range("신재생생산기기1").Offset(0, 0) <> "" Then '//신재생기기 처음칸에 뭐가 잇다? 즉 데이터가잇느냐 + For Each Dr신재생 As DS.tbl_newRow In DSET.tbl_new.Select("code <> '0'", "code") + If Dr신재생.기기종류 = "태양광" Then + + a = TOSG(Dr신재생.태양광모듈면적) ' Worksheets("신재생기기").Range("태양광모듈1").Offset(0, i_count_pv - 1) + + Select Case Dr신재생.태양광모듈적용타입.Trim ' Worksheets("신재생기기").Range("태양광모듈1").Offset(4, i_count_pv - 1) + Case "밀착형" '밀착형" + f_perf = 0.7 + Case "후면통풍형" '후면통풍형" + f_perf = 0.75 + Case "기계환기형" '기계환기형" + f_perf = 0.8 + End Select + + + 'If a <> 0 Then '//태양광모듈면적이있을경우에만 작동하도록한다. + + + Dim Dr일사 As DS.weather_ilsaRow + Select Case Dr신재생.태양광모듈기울기.Trim ' Worksheets("신재생기기").Range("태양광모듈1").Offset(1, i_count_pv - 1) + Case "수평" '수평" + '//수평면에해당하는 월별평균일사 값을 가져온다.수평면 0001은 고정값이된다. + Dr일사 = CType(DSET.weather_ilsa.Select("pcode='" & Calc.Pub.기상데이터.code & "' and code='0001'")(0), DS.weather_ilsaRow) + E_sol = TOSG(Dr일사("M" & Format(i_count_pv_month, "00"))) * i_pv_d_mth * 24 / 1000 + + Case "45도" '45도" + Select Case Dr신재생.태양광모듈방위.Trim ' Worksheets("신재생기기").Range("태양광모듈1").Offset(2, i_count_pv - 1) + Case "남" '"남" + '//45도 남에대한건 기본 수평면하고 +9를 하면 나온다 나머지도 순서이므로 +1을 게속해주면된다. + Dr일사 = CType(DSET.weather_ilsa.Select("pcode='" & Calc.Pub.기상데이터.code & "' and code='" & Format(1 + 9, "0000") & "'")(0), DS.weather_ilsaRow) + E_sol = TOSG(Dr일사("M" & Format(i_count_pv_month, "00"))) * i_pv_d_mth * 24 / 1000 + Case "남동" '"남동" + Dr일사 = CType(DSET.weather_ilsa.Select("pcode='" & Calc.Pub.기상데이터.code & "' and code='" & Format(1 + 10, "0000") & "'")(0), DS.weather_ilsaRow) + E_sol = TOSG(Dr일사("M" & Format(i_count_pv_month, "00"))) * i_pv_d_mth * 24 / 1000 + Case "남서" '"남서" + Dr일사 = CType(DSET.weather_ilsa.Select("pcode='" & Calc.Pub.기상데이터.code & "' and code='" & Format(1 + 11, "0000") & "'")(0), DS.weather_ilsaRow) + E_sol = TOSG(Dr일사("M" & Format(i_count_pv_month, "00"))) * i_pv_d_mth * 24 / 1000 + Case "동" '"동" + Dr일사 = CType(DSET.weather_ilsa.Select("pcode='" & Calc.Pub.기상데이터.code & "' and code='" & Format(1 + 12, "0000") & "'")(0), DS.weather_ilsaRow) + E_sol = TOSG(Dr일사("M" & Format(i_count_pv_month, "00"))) * i_pv_d_mth * 24 / 1000 + Case "서" '"서" + Dr일사 = CType(DSET.weather_ilsa.Select("pcode='" & Calc.Pub.기상데이터.code & "' and code='" & Format(1 + 13, "0000") & "'")(0), DS.weather_ilsaRow) + E_sol = TOSG(Dr일사("M" & Format(i_count_pv_month, "00"))) * i_pv_d_mth * 24 / 1000 + End Select + + Case "수직" '수직" + Select Case Dr신재생.태양광모듈방위.Trim 'Worksheets("신재생기기").Range("태양광모듈1").Offset(2, i_count_pv - 1) + Case "남" '"남" + Dr일사 = CType(DSET.weather_ilsa.Select("pcode='" & Calc.Pub.기상데이터.code & "' and code='" & Format(1 + 1, "0000") & "'")(0), DS.weather_ilsaRow) + E_sol = TOSG(Dr일사("M" & Format(i_count_pv_month, "00"))) * i_pv_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) + E_sol = TOSG(Dr일사("M" & Format(i_count_pv_month, "00"))) * i_pv_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) + E_sol = TOSG(Dr일사("M" & Format(i_count_pv_month, "00"))) * i_pv_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) + E_sol = TOSG(Dr일사("M" & Format(i_count_pv_month, "00"))) * i_pv_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) + E_sol = TOSG(Dr일사("M" & Format(i_count_pv_month, "00"))) * i_pv_d_mth * 24 / 1000 + End Select + End Select + + 'E_sol = E_sol_hor * f_tlt 수평면일사에 계수를 곱하지 않고 직접 기상데이타 적용 + + Select Case Dr신재생.태양광모듈종류.Trim ' Worksheets("신재생기기").Range("태양광모듈1").Offset(3, i_count_pv - 1) + Case "단결정" '단결정" + K_pk = 0.12 + Case "다결정" '다결정" + K_pk = 0.1 + Case "비정질박막형" '비정질박막형" + K_pk = 0.04 + Case "기타박막형" '기타박막형" + K_pk = 0.035 + Case "CIS박막형" 'CIS박막형" + K_pk = 0.105 + Case "CdTe박막형" 'CdTe박막형" + K_pk = 0.095 + Case "성능치 입력" + Try + K_pk = TOSG(Dr신재생.태양광모듈효율) + Catch ex As Exception + MsgBox("태양광모듈효율을 알 수 없습니다.", MsgBoxStyle.Critical, "값=" & Dr신재생.태양광모듈효율) + K_pk = 0 + End Try + + Case Else + MsgBox("알수없는 태양광모듈종류입니다.", MsgBoxStyle.Critical, "값=" & Dr신재생.태양광모듈종류) + + End Select + + P_pk = K_pk * a + E_el_pv_out = E_el_pv_out + E_sol * P_pk * f_perf + 'End If + End If + Next + + + 'If Sheets("계산결과").Cells(104, 7 + i_count_pv_month) = "" Then + ' Sheets("계산결과").Cells(104, 7 + i_count_pv_month) = E_el_pv_out + 'Else + ' Sheets("계산결과").Cells(104, 7 + i_count_pv_month) = Sheets("계산결과").Cells(104, 7 + i_count_pv_month) + E_el_pv_out + 'End If + + Result.생산E(i_count_pv_month).태양광전력생산량 += E_el_pv_out + + 'DSETR.TReqUse.Rows(CEnum.ResultRow.생산_전기_태양광)("M" & Format(i_count_pv_month, "00")) = CSng(DSETR.TReqUse.Rows(CEnum.ResultRow.생산_전기_태양광)("M" & Format(i_count_pv_month, "00"))) + E_el_pv_out ' Sheets("계산결과").Cells(95, 7 + i_count_pv_month) + End Sub + + Public Overridable Sub Calc_HeatpumpSystem(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) + + 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 As Decimal + + Q_h_g_s = 0 + Q_h_g_WP = 0 '전기히트펌프인 경우 0 가스히트펌프는 ? + P_rd_mot = 0 + Q_h_f_hp = 0 + + '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 = TOSG(Dr신재생.열성능비난방) ' Worksheets("신재생기기").Range("지열히트펌프용량1").Offset(1, i_count_hp - 1) + + Else + '냉방 + + COP = TOSG(Dr신재생.열성능비냉방) ' Worksheets("신재생기기").Range("지열히트펌프용량1").Offset(2, i_count_hp - 1) + + 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) + + '//열에너지생산량 (지열) + Result.생산E(i_hp_month).지열생산량 += Q_h_f_hp + '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 + + '100 : Total >> DrT생산.단위면적당생산량지열 + Select Case i_system_hp + Case 1 + Result.생산E(i_hp_month).면적당생산량지열 += (Q_h_f_hp / Result.사용면적.H) + '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_f_hp / Result.사용면적.C) + '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_f_hp / Result.사용면적.W) + End Select + + End Sub + + Public Overridable Sub Calc_CogenerationSystemEN(ByVal Dr신재생 As DS.tbl_newRow, 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) + 'EN15316-4-4_2007 5.6.2에서 시작 + 'Dim Wmsg As New System.Text.StringBuilder + 'Wmsg.AppendLine("Calc_CogenerationSystemEN 이 함수의경우") + 'Wmsg.AppendLine("i_count_chp 에따라서 열을 할당해야한다.... 지만..아직 이 파라미터값을 모르게삳") + 'Wmsg.AppendLine("사용하는곳의 참조확인을해서 저곳이 신재생기기 코드값이 바로오는건지 다른값인지 확인해봐야겠다") + 'MsgBox(Wmsg.ToString) + + Dim Q_dot_T_chp As Decimal + Dim eta_T_chp_an As Decimal, eta_el_chp_an As Decimal + Dim E_el_chp_out As Decimal + + ' Dim Dr신재생 As DS.tbl_newRow = CType(DSET.tbl_new.Rows(0), DS.tbl_newRow) + + Q_dot_T_chp = TOSG(Dr신재생.열생산능력) ' Worksheets("신재생기기").Range("열병합열생산능력1").Offset(0, i_count_chp - 1) + eta_T_chp_an = TOSG(Dr신재생.열생산효율) ' Worksheets("신재생기기").Range("열병합열생산능력1").Offset(1, i_count_chp - 1) + eta_el_chp_an = TOSG(Dr신재생.발전효율) ' Worksheets("신재생기기").Range("열병합열생산능력1").Offset(2, i_count_chp - 1) + + If Q_h_outg > (Q_dot_T_chp * t_chp) Then + Q_chp_gen_out = Q_dot_T_chp * t_chp + Else + Q_chp_gen_out = Q_h_outg + End If + + E_chp_gen_in = Q_chp_gen_out / (eta_T_chp_an / 100) + E_el_chp_out = E_chp_gen_in * eta_el_chp_an / 100 + + '//전기생산량 열병합 + Result.생산E(i_chp_month).열병합전력생산량 += E_el_chp_out + '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 +End Class diff --git a/ArinWarev1/Calculator/Result/C1차소요량.vb b/ArinWarev1/Calculator/Result/C1차소요량.vb new file mode 100644 index 0000000..f297147 --- /dev/null +++ b/ArinWarev1/Calculator/Result/C1차소요량.vb @@ -0,0 +1,780 @@ +Public Class C1차소요량 + Public Mon As String + Private ErrMsg As String = "1차에너지소요량 계산되지 않았습니다" + Private MIdx As Integer + + '//M00 일떄의 합계식이 추가되지않았따 + '//해당부분은 주로 합계식에서 사용된다. + + Public Sub Calc_Summary() + + If MIdx <> 0 Then + MsgBox("Calc 계산식은 0번만 가능합니다") + Return + End If + + Dim i1, i2, i3, i4, i5, i6 As Decimal + + i1 = 0 : i2 = 0 : i3 = 0 : i4 = 0 : i5 = 0 + For i As Integer = 1 To 12 + i1 += Result.일차E소요량(i).난방등유 + i2 += Result.일차E소요량(i).난방LNG + i3 += Result.일차E소요량(i).난방LPG + i4 += Result.일차E소요량(i).난방지역 + i5 += Result.일차E소요량(i).난방전력 + Next + Me.난방등유 = i1 + Me.난방LNG = i2 + Me.난방LPG = i3 + Me.난방지역 = i4 + Me.난방전력 = i5 + + i1 = 0 : i2 = 0 : i3 = 0 : i4 = 0 : i5 = 0 : i6 = 0 + For i As Integer = 1 To 12 + i1 += Result.일차E소요량(i).냉방등유 + i2 += Result.일차E소요량(i).냉방LNG + i3 += Result.일차E소요량(i).냉방LPG + i4 += Result.일차E소요량(i).냉방지역난방열 + i5 += Result.일차E소요량(i).냉방지역냉방열 + i6 += Result.일차E소요량(i).냉방전력 + Next + Me.냉방등유 = i1 + Me.냉방LNG = i2 + Me.냉방LPG = i3 + Me.냉방지역난방열 = i4 + Me.냉방지역냉방열 = i5 + Me.냉방전력 = i6 + + i1 = 0 : i2 = 0 : i3 = 0 : i4 = 0 : i5 = 0 + For i As Integer = 1 To 12 + i1 += Result.일차E소요량(i).급탕등유 + i2 += Result.일차E소요량(i).급탕LNG + i3 += Result.일차E소요량(i).급탕LPG + i4 += Result.일차E소요량(i).급탕지역 + i5 += Result.일차E소요량(i).급탕전력 + Next + Me.급탕등유 = i1 + Me.급탕LNG = i2 + Me.급탕LPG = i3 + Me.급탕지역 = i4 + Me.급탕전력 = i5 + + End Sub + + Private DSETR As DSR + Private Result As CResult + Public Sub New(ByRef pdsetr As DSR, ByRef presult As CResult, Optional ByVal pmIdx As Integer = 0) + DSETR = pdsetr + Result = presult + MIdx = pmIdx + Mon = "M" & Format(pmIdx, "00") + End Sub + + ReadOnly Property 소요량() As Decimal + Get + If MIdx = 0 Then + Dim R As Decimal = 0 + For i As Integer = 1 To 12 + R += Result.일차E소요량(i).소요량 + Next + Return R + Else + Return Me.난방소요량 + Me.냉방소요량 + Me.급탕소요량 + Me.조명소요량 + Me.환기소요량 - (Result.생산E(MIdx).태양광전력생산량 * Result.E변환계수.전력) - (Result.생산E(MIdx).열병합전력생산량 * Result.E변환계수.전력) + End If + End Get + End Property + + ReadOnly Property 단위면적() As Decimal + Get + If MIdx <> 0 Then + Return 0 + Else + Return Me.난방면적 + Me.냉방면적 + Me.급탕면적 + Me.조명면적 + Me.환기면적 + End If + + End Get + End Property + +#Region "난방" + ReadOnly Property 난방소요량() As Decimal + Get + If MIdx = 0 Then + Dim R As Decimal = Me.난방등유 * Result.E변환계수.등유 + Me.난방LNG * Result.E변환계수.LNG + _ + Me.난방LPG * Result.E변환계수.LPG + Me.난방지역 * Result.E변환계수.지역난방 + _ + Me.난방전력 * Result.E변환계수.전력 + Try + Return R - (Result.생산E(0).태양광전력생산량 + Result.생산E(0).열병합전력생산량) / _ + (Me.난방전력 + Me.냉방전력 + Me.급탕전력 + Me.조명전력 + Me.환기전력) * Me.난방전력 * Result.E변환계수.전력 + Catch ex As Exception + + End Try + Else + Return Me.난방등유 * Result.E변환계수.등유 + Me.난방LNG * Result.E변환계수.LNG + _ + Me.난방LPG * Result.E변환계수.LPG + Me.난방지역 * Result.E변환계수.지역난방 + _ + Me.난방전력 * Result.E변환계수.전력 + End If + End Get + End Property + + ReadOnly Property 난방소요량2() As Decimal '//140112(?) + Get + + Dim 건물용도 As Integer = CInt(DSET1.tbl_Desc.Rows(0)("isjugo")) + + If MIdx = 0 Then + + If 건물용도 < 10 Then + + Dim R As Decimal = Me.난방등유 * Result.E변환계수.지역난방 + Me.난방LNG * Result.E변환계수.지역난방 + _ + Me.난방LPG * Result.E변환계수.지역난방 + Me.난방지역 * Result.E변환계수.지역난방 + _ + Me.난방전력 * Result.E변환계수.전력 + Try + Return R - (Result.생산E(0).태양광전력생산량 + Result.생산E(0).열병합전력생산량) / _ + (Me.난방전력 + Me.냉방전력 + Me.급탕전력 + Me.조명전력 + Me.환기전력) * Me.난방전력 * Result.E변환계수.전력 + Catch ex As Exception + + End Try + + Else + Dim R As Decimal = Me.난방등유 * Result.E변환계수.등유 + Me.난방LNG * Result.E변환계수.LNG + _ + Me.난방LPG * Result.E변환계수.LPG + Me.난방지역 * Result.E변환계수.지역난방 + _ + Me.난방전력 * Result.E변환계수.전력 + Try + Return R - (Result.생산E(0).태양광전력생산량 + Result.생산E(0).열병합전력생산량) / _ + (Me.난방전력 + Me.냉방전력 + Me.급탕전력 + Me.조명전력 + Me.환기전력) * Me.난방전력 * Result.E변환계수.전력 + Catch ex As Exception + + End Try + End If + + + Else + + + If 건물용도 < 10 Then + Return Me.난방등유 * Result.E변환계수.지역난방 + Me.난방LNG * Result.E변환계수.지역난방 + _ + Me.난방LPG * Result.E변환계수.지역난방 + Me.난방지역 * Result.E변환계수.지역난방 + _ + Me.난방전력 * Result.E변환계수.전력 + Else + Return Me.난방등유 * Result.E변환계수.등유 + Me.난방LNG * Result.E변환계수.LNG + _ + Me.난방LPG * Result.E변환계수.LPG + Me.난방지역 * Result.E변환계수.지역난방 + _ + Me.난방전력 * Result.E변환계수.전력 + End If + + + + End If + End Get + End Property + + Property 난방등유() As Decimal + Get + Dim DR() As DSR.에너지소요량1Row = CType(DSETR.에너지소요량1.Select("mon='" & Mon & "'"), DSR.에너지소요량1Row()) + If DR.GetUpperBound(0) = -1 Then + MsgBox(ErrMsg, MsgBoxStyle.Information, "C1차소요량") + Return 0 + Else + Return TOSG(DR(0)("난방등유")) + End If + End Get + Set(ByVal value As Decimal) + Dim DR() As DSR.에너지소요량1Row = CType(DSETR.에너지소요량1.Select("mon='" & Mon & "'"), DSR.에너지소요량1Row()) + If DR.GetUpperBound(0) = -1 Then + MsgBox(ErrMsg, MsgBoxStyle.Information, "C1차소요량") + Else + DR(0)("난방등유") = value + End If + End Set + End Property + Property 난방LNG() As Decimal + Get + Dim DR() As DSR.에너지소요량1Row = CType(DSETR.에너지소요량1.Select("mon='" & Mon & "'"), DSR.에너지소요량1Row()) + If DR.GetUpperBound(0) = -1 Then + MsgBox(ErrMsg, MsgBoxStyle.Information, "C1차소요량") + Return 0 + Else + Return TOSG(DR(0)("난방LNG")) + End If + End Get + Set(ByVal value As Decimal) + Dim DR() As DSR.에너지소요량1Row = CType(DSETR.에너지소요량1.Select("mon='" & Mon & "'"), DSR.에너지소요량1Row()) + If DR.GetUpperBound(0) = -1 Then + MsgBox(ErrMsg, MsgBoxStyle.Information, "C1차소요량") + Else + DR(0)("난방LNG") = value + End If + End Set + End Property + Property 난방LPG() As Decimal + Get + Dim DR() As DSR.에너지소요량1Row = CType(DSETR.에너지소요량1.Select("mon='" & Mon & "'"), DSR.에너지소요량1Row()) + If DR.GetUpperBound(0) = -1 Then + MsgBox(ErrMsg, MsgBoxStyle.Information, "C1차소요량") + Return 0 + Else + Return TOSG(DR(0)("난방LPG")) + End If + End Get + Set(ByVal value As Decimal) + Dim DR() As DSR.에너지소요량1Row = CType(DSETR.에너지소요량1.Select("mon='" & Mon & "'"), DSR.에너지소요량1Row()) + If DR.GetUpperBound(0) = -1 Then + MsgBox(ErrMsg, MsgBoxStyle.Information, "C1차소요량") + Else + DR(0)("난방LPG") = value + End If + End Set + End Property + 'Property 난방펠렛() As Decimal + ' Get + ' Dim DR() As DSR.에너지소요량1Row = CType(DSETR.에너지소요량1.Select("mon='" & Mon & "'"), DSR.에너지소요량1Row()) + ' If DR.GetUpperBound(0) = -1 Then + ' MsgBox(ErrMsg,MsgBoxStyle.Information,"C1차소요량") + ' Return 0 + ' Else + ' Return TOSG(DR(0)("난방펠렛")) + ' End If + ' End Get + ' Set(ByVal value As Decimal) + ' Dim DR() As DSR.에너지소요량1Row = CType(DSETR.에너지소요량1.Select("mon='" & Mon & "'"), DSR.에너지소요량1Row()) + ' If DR.GetUpperBound(0) = -1 Then + ' MsgBox(ErrMsg,MsgBoxStyle.Information,"C1차소요량") + ' Else + ' DR(0)("난방펠렛") = value + ' End If + ' End Set + 'End Property + Property 난방지역() As Decimal + Get + Dim DR() As DSR.에너지소요량1Row = CType(DSETR.에너지소요량1.Select("mon='" & Mon & "'"), DSR.에너지소요량1Row()) + If DR.GetUpperBound(0) = -1 Then + MsgBox(ErrMsg, MsgBoxStyle.Information, "C1차소요량") + Return 0 + Else + Return TOSG(DR(0)("난방지역")) + End If + End Get + Set(ByVal value As Decimal) + Dim DR() As DSR.에너지소요량1Row = CType(DSETR.에너지소요량1.Select("mon='" & Mon & "'"), DSR.에너지소요량1Row()) + If DR.GetUpperBound(0) = -1 Then + MsgBox(ErrMsg, MsgBoxStyle.Information, "C1차소요량") + Else + DR(0)("난방지역") = value + End If + End Set + End Property + Property 난방전력() As Decimal + Get + Dim DR() As DSR.에너지소요량1Row = CType(DSETR.에너지소요량1.Select("mon='" & Mon & "'"), DSR.에너지소요량1Row()) + If DR.GetUpperBound(0) = -1 Then + MsgBox(ErrMsg, MsgBoxStyle.Information, "C1차소요량") + Return 0 + Else + Return TOSG(DR(0)("난방전력")) + End If + End Get + Set(ByVal value As Decimal) + Dim DR() As DSR.에너지소요량1Row = CType(DSETR.에너지소요량1.Select("mon='" & Mon & "'"), DSR.에너지소요량1Row()) + If DR.GetUpperBound(0) = -1 Then + MsgBox(ErrMsg, MsgBoxStyle.Information, "C1차소요량") + Else + DR(0)("난방전력") = value + End If + End Set + End Property + + ReadOnly Property 난방면적() As Decimal + Get + If Result.사용면적.H = 0 Then + Return 0 + Else + Return Me.난방소요량 / Result.사용면적.H + End If + End Get + End Property + + ReadOnly Property 난방면적2() As Decimal + Get + If Result.사용면적.H = 0 Then + Return 0 + Else + Return Me.난방소요량2 / Result.사용면적.H + End If + End Get + End Property + +#End Region + +#Region "냉방" + ReadOnly Property 냉방소요량() As Decimal + Get + If MIdx = 0 Then + Dim R As Decimal = Me.냉방등유 * Result.E변환계수.등유 + Me.냉방LNG * Result.E변환계수.LNG + _ + Me.냉방LPG * Result.E변환계수.LPG + Me.냉방지역난방열 * Result.E변환계수.지역난방 + _ + Me.냉방지역냉방열 * Result.E변환계수.지역냉방 + Me.냉방전력 * Result.E변환계수.전력 + Try + Return R - (Result.생산E(0).태양광전력생산량 + Result.생산E(0).열병합전력생산량) / _ + (Me.난방전력 + Me.냉방전력 + Me.급탕전력 + Me.조명전력 + Me.환기전력) * Me.냉방전력 * Result.E변환계수.전력 + Catch ex As Exception + + End Try + Else + Return Me.냉방등유 * Result.E변환계수.등유 + Me.냉방LNG * Result.E변환계수.LNG + _ + Me.냉방LPG * Result.E변환계수.LPG + Me.냉방지역난방열 * Result.E변환계수.지역난방 + _ + Me.냉방지역냉방열 * Result.E변환계수.지역냉방 + Me.냉방전력 * Result.E변환계수.전력 + End If + End Get + End Property + Property 냉방등유() As Decimal + Get + Dim DR() As DSR.에너지소요량1Row = CType(DSETR.에너지소요량1.Select("mon='" & Mon & "'"), DSR.에너지소요량1Row()) + If DR.GetUpperBound(0) = -1 Then + MsgBox(ErrMsg, MsgBoxStyle.Information, "C1차소요량") + Return 0 + Else + Return TOSG(DR(0)("냉방등유")) + End If + End Get + Set(ByVal value As Decimal) + Dim DR() As DSR.에너지소요량1Row = CType(DSETR.에너지소요량1.Select("mon='" & Mon & "'"), DSR.에너지소요량1Row()) + If DR.GetUpperBound(0) = -1 Then + MsgBox(ErrMsg, MsgBoxStyle.Information, "C1차소요량") + Else + DR(0)("냉방등유") = value + End If + End Set + End Property + Property 냉방LNG() As Decimal + Get + Dim DR() As DSR.에너지소요량1Row = CType(DSETR.에너지소요량1.Select("mon='" & Mon & "'"), DSR.에너지소요량1Row()) + If DR.GetUpperBound(0) = -1 Then + MsgBox(ErrMsg, MsgBoxStyle.Information, "C1차소요량") + Return 0 + Else + Return TOSG(DR(0)("냉방LNG")) + End If + End Get + Set(ByVal value As Decimal) + Dim DR() As DSR.에너지소요량1Row = CType(DSETR.에너지소요량1.Select("mon='" & Mon & "'"), DSR.에너지소요량1Row()) + If DR.GetUpperBound(0) = -1 Then + MsgBox(ErrMsg, MsgBoxStyle.Information, "C1차소요량") + Else + DR(0)("냉방LNG") = value + End If + End Set + End Property + Property 냉방펠렛() As Decimal + Get + Dim DR() As DSR.에너지소요량1Row = CType(DSETR.에너지소요량1.Select("mon='" & Mon & "'"), DSR.에너지소요량1Row()) + If DR.GetUpperBound(0) = -1 Then + MsgBox(ErrMsg, MsgBoxStyle.Information, "C1차소요량") + Return 0 + Else + Return TOSG(DR(0)("냉방펠렛")) + End If + End Get + Set(ByVal value As Decimal) + Dim DR() As DSR.에너지소요량1Row = CType(DSETR.에너지소요량1.Select("mon='" & Mon & "'"), DSR.에너지소요량1Row()) + If DR.GetUpperBound(0) = -1 Then + MsgBox(ErrMsg, MsgBoxStyle.Information, "C1차소요량") + Else + DR(0)("냉방펠렛") = value + End If + End Set + End Property + Property 냉방LPG() As Decimal + Get + Dim DR() As DSR.에너지소요량1Row = CType(DSETR.에너지소요량1.Select("mon='" & Mon & "'"), DSR.에너지소요량1Row()) + If DR.GetUpperBound(0) = -1 Then + MsgBox(ErrMsg, MsgBoxStyle.Information, "C1차소요량") + Return 0 + Else + Return TOSG(DR(0)("냉방LPG")) + End If + End Get + Set(ByVal value As Decimal) + Dim DR() As DSR.에너지소요량1Row = CType(DSETR.에너지소요량1.Select("mon='" & Mon & "'"), DSR.에너지소요량1Row()) + If DR.GetUpperBound(0) = -1 Then + MsgBox(ErrMsg, MsgBoxStyle.Information, "C1차소요량") + Else + DR(0)("냉방LPG") = value + End If + End Set + End Property + Property 냉방지역난방열() As Decimal + Get + Dim DR() As DSR.에너지소요량1Row = CType(DSETR.에너지소요량1.Select("mon='" & Mon & "'"), DSR.에너지소요량1Row()) + If DR.GetUpperBound(0) = -1 Then + MsgBox(ErrMsg, MsgBoxStyle.Information, "C1차소요량") + Return 0 + Else + Return TOSG(DR(0)("냉방지역")) + End If + End Get + Set(ByVal value As Decimal) + Dim DR() As DSR.에너지소요량1Row = CType(DSETR.에너지소요량1.Select("mon='" & Mon & "'"), DSR.에너지소요량1Row()) + If DR.GetUpperBound(0) = -1 Then + MsgBox(ErrMsg, MsgBoxStyle.Information, "C1차소요량") + Else + DR(0)("냉방지역") = value + End If + End Set + End Property + Property 냉방지역냉방열() As Decimal + Get + Dim DR() As DSR.에너지소요량1Row = CType(DSETR.에너지소요량1.Select("mon='" & Mon & "'"), DSR.에너지소요량1Row()) + If DR.GetUpperBound(0) = -1 Then + MsgBox(ErrMsg, MsgBoxStyle.Information, "C1차소요량") + Return 0 + Else + Return TOSG(DR(0)("냉방지역2")) + End If + End Get + Set(ByVal value As Decimal) + Dim DR() As DSR.에너지소요량1Row = CType(DSETR.에너지소요량1.Select("mon='" & Mon & "'"), DSR.에너지소요량1Row()) + If DR.GetUpperBound(0) = -1 Then + MsgBox(ErrMsg, MsgBoxStyle.Information, "C1차소요량") + Else + DR(0)("냉방지역2") = value + End If + End Set + End Property + Property 냉방전력() As Decimal + Get + Dim DR() As DSR.에너지소요량1Row = CType(DSETR.에너지소요량1.Select("mon='" & Mon & "'"), DSR.에너지소요량1Row()) + If DR.GetUpperBound(0) = -1 Then + MsgBox(ErrMsg, MsgBoxStyle.Information, "C1차소요량") + Return 0 + Else + Return TOSG(DR(0)("냉방전력")) + End If + End Get + Set(ByVal value As Decimal) + Dim DR() As DSR.에너지소요량1Row = CType(DSETR.에너지소요량1.Select("mon='" & Mon & "'"), DSR.에너지소요량1Row()) + If DR.GetUpperBound(0) = -1 Then + MsgBox(ErrMsg, MsgBoxStyle.Information, "C1차소요량") + Else + DR(0)("냉방전력") = value + End If + End Set + End Property + ReadOnly Property 냉방면적() As Decimal + Get + If Result.사용면적.C = 0 Then + Return 0 + Else + Return Me.냉방소요량 / Result.사용면적.C + End If + End Get + End Property +#End Region + +#Region "급탕" + ReadOnly Property 급탕소요량() As Decimal + Get + If MIdx = 0 Then + Dim R As Decimal = Me.급탕등유 * Result.E변환계수.등유 + Me.급탕LNG * Result.E변환계수.LNG + _ + Me.급탕LPG * Result.E변환계수.LPG + Me.급탕지역 * Result.E변환계수.지역난방 + _ + Me.급탕전력 * Result.E변환계수.전력 + + '#If DEBUG Then + ' Dim f As String = "c:\temp\1\급탕소요량1.txt" + ' Dim b As New System.Text.StringBuilder + ' If System.IO.File.Exists(f) = False Then + ' b.AppendLine("태양광전력생산량 열병합전력생산량 난방전력 냉방전력 급탕전력 조명전력 환기전력 전력변환계수") + ' End If + ' b.AppendLine(Result.생산E(0).태양광전력생산량.ToString() + vbTab + Result.생산E(0).열병합전력생산량.ToString() + vbTab + _ + ' 난방전력.ToString() + vbTab + 냉방전력.ToString() + vbTab + 급탕전력.ToString() + vbTab + 조명전력.ToString() + vbTab + _ + ' 환기전력.ToString() + vbTab + Result.E변환계수.전력.ToString()) + ' My.Computer.FileSystem.WriteAllText(f, b.ToString, True) + '#End If + Try + Return R - (Result.생산E(0).태양광전력생산량 + Result.생산E(0).열병합전력생산량) / _ + (Me.난방전력 + Me.냉방전력 + Me.급탕전력 + Me.조명전력 + Me.환기전력) * Me.급탕전력 * Result.E변환계수.전력 + Catch ex As Exception + + End Try + Else + + '#If DEBUG Then + ' Dim f As String = "c:\temp\1\급탕소요량2.txt" + ' Dim b As New System.Text.StringBuilder + ' If System.IO.File.Exists(f) = False Then + ' b.AppendLine("MIDX 급탕등유 급탕LNG 급탕LPG 급탕지역 급탕전력") + ' End If + ' b.AppendLine(MIdx.ToString() + vbTab + 급탕등유.ToString() + vbTab + 급탕LNG.ToString() + vbTab + 급탕LPG.ToString() + vbTab + 급탕지역.ToString() + vbTab + 급탕전력.ToString()) + ' My.Computer.FileSystem.WriteAllText(f, b.ToString, True) + '#End If + + Return Me.급탕등유 * Result.E변환계수.등유 + Me.급탕LNG * Result.E변환계수.LNG + _ + Me.급탕LPG * Result.E변환계수.LPG + Me.급탕지역 * Result.E변환계수.지역난방 + _ + Me.급탕전력 * Result.E변환계수.전력 + End If + End Get + End Property + + ReadOnly Property 급탕소요량2() As Decimal + Get + Dim 건물용도 As Integer = CInt(DSET1.tbl_Desc.Rows(0)("isjugo")) + + If MIdx = 0 Then + If 건물용도 < 10 Then + Dim R As Decimal = Me.급탕등유 * Result.E변환계수.지역난방 + Me.급탕LNG * Result.E변환계수.지역난방 + _ + Me.급탕LPG * Result.E변환계수.지역난방 + Me.급탕지역 * Result.E변환계수.지역난방 + _ + Me.급탕전력 * Result.E변환계수.전력 + Try + Return R - (Result.생산E(0).태양광전력생산량 + Result.생산E(0).열병합전력생산량) / _ + (Me.난방전력 + Me.냉방전력 + Me.급탕전력 + Me.조명전력 + Me.환기전력) * Me.급탕전력 * Result.E변환계수.전력 + Catch ex As Exception + + End Try + Else + Dim R As Decimal = Me.급탕등유 * Result.E변환계수.등유 + Me.급탕LNG * Result.E변환계수.LNG + _ + Me.급탕LPG * Result.E변환계수.LPG + Me.급탕지역 * Result.E변환계수.지역난방 + _ + Me.급탕전력 * Result.E변환계수.전력 + Try + Return R - (Result.생산E(0).태양광전력생산량 + Result.생산E(0).열병합전력생산량) / _ + (Me.난방전력 + Me.냉방전력 + Me.급탕전력 + Me.조명전력 + Me.환기전력) * Me.급탕전력 * Result.E변환계수.전력 + Catch ex As Exception + + End Try + End If + + Else + + If 건물용도 < 10 Then + Return Me.급탕등유 * Result.E변환계수.지역난방 + Me.급탕LNG * Result.E변환계수.지역난방 + _ + Me.급탕LPG * Result.E변환계수.지역난방 + Me.급탕지역 * Result.E변환계수.지역난방 + _ + Me.급탕전력 * Result.E변환계수.전력 + Else + Return Me.급탕등유 * Result.E변환계수.등유 + Me.급탕LNG * Result.E변환계수.LNG + _ + Me.급탕LPG * Result.E변환계수.LPG + Me.급탕지역 * Result.E변환계수.지역난방 + _ + Me.급탕전력 * Result.E변환계수.전력 + End If + + End If + End Get + End Property + + + + + + Property 급탕등유() As Decimal + Get + Dim DR() As DSR.에너지소요량1Row = CType(DSETR.에너지소요량1.Select("mon='" & Mon & "'"), DSR.에너지소요량1Row()) + If DR.GetUpperBound(0) = -1 Then + MsgBox(ErrMsg, MsgBoxStyle.Information, "C1차소요량") + Return 0 + Else + Return TOSG(DR(0)("급탕등유")) + End If + End Get + Set(ByVal value As Decimal) + Dim DR() As DSR.에너지소요량1Row = CType(DSETR.에너지소요량1.Select("mon='" & Mon & "'"), DSR.에너지소요량1Row()) + If DR.GetUpperBound(0) = -1 Then + MsgBox(ErrMsg, MsgBoxStyle.Information, "C1차소요량") + Else + DR(0)("급탕등유") = value + End If + End Set + End Property + Property 급탕LNG() As Decimal + Get + Dim DR() As DSR.에너지소요량1Row = CType(DSETR.에너지소요량1.Select("mon='" & Mon & "'"), DSR.에너지소요량1Row()) + If DR.GetUpperBound(0) = -1 Then + MsgBox(ErrMsg, MsgBoxStyle.Information, "C1차소요량") + Return 0 + Else + Return TOSG(DR(0)("급탕LNG")) + End If + End Get + Set(ByVal value As Decimal) + Dim DR() As DSR.에너지소요량1Row = CType(DSETR.에너지소요량1.Select("mon='" & Mon & "'"), DSR.에너지소요량1Row()) + If DR.GetUpperBound(0) = -1 Then + MsgBox(ErrMsg, MsgBoxStyle.Information, "C1차소요량") + Else + DR(0)("급탕LNG") = value + End If + End Set + End Property + Property 급탕펠렛() As Decimal + Get + Dim DR() As DSR.에너지소요량1Row = CType(DSETR.에너지소요량1.Select("mon='" & Mon & "'"), DSR.에너지소요량1Row()) + If DR.GetUpperBound(0) = -1 Then + MsgBox(ErrMsg, MsgBoxStyle.Information, "C1차소요량") + Return 0 + Else + Return TOSG(DR(0)("급탕펠렛")) + End If + End Get + Set(ByVal value As Decimal) + Dim DR() As DSR.에너지소요량1Row = CType(DSETR.에너지소요량1.Select("mon='" & Mon & "'"), DSR.에너지소요량1Row()) + If DR.GetUpperBound(0) = -1 Then + MsgBox(ErrMsg, MsgBoxStyle.Information, "C1차소요량") + Else + DR(0)("급탕펠렛") = value + End If + End Set + End Property + Property 급탕LPG() As Decimal + Get + Dim DR() As DSR.에너지소요량1Row = CType(DSETR.에너지소요량1.Select("mon='" & Mon & "'"), DSR.에너지소요량1Row()) + If DR.GetUpperBound(0) = -1 Then + MsgBox(ErrMsg, MsgBoxStyle.Information, "C1차소요량") + Return 0 + Else + Return TOSG(DR(0)("급탕LPG")) + End If + End Get + Set(ByVal value As Decimal) + Dim DR() As DSR.에너지소요량1Row = CType(DSETR.에너지소요량1.Select("mon='" & Mon & "'"), DSR.에너지소요량1Row()) + If DR.GetUpperBound(0) = -1 Then + MsgBox(ErrMsg, MsgBoxStyle.Information, "C1차소요량") + Else + DR(0)("급탕LPG") = value + End If + End Set + End Property + Property 급탕지역() As Decimal + Get + Dim DR() As DSR.에너지소요량1Row = CType(DSETR.에너지소요량1.Select("mon='" & Mon & "'"), DSR.에너지소요량1Row()) + If DR.GetUpperBound(0) = -1 Then + MsgBox(ErrMsg, MsgBoxStyle.Information, "C1차소요량") + Return 0 + Else + Return TOSG(DR(0)("급탕지역")) + End If + End Get + Set(ByVal value As Decimal) + Dim DR() As DSR.에너지소요량1Row = CType(DSETR.에너지소요량1.Select("mon='" & Mon & "'"), DSR.에너지소요량1Row()) + If DR.GetUpperBound(0) = -1 Then + MsgBox(ErrMsg, MsgBoxStyle.Information, "C1차소요량") + Else + DR(0)("급탕지역") = value + End If + End Set + End Property + Property 급탕전력() As Decimal + Get + Dim DR() As DSR.에너지소요량1Row = CType(DSETR.에너지소요량1.Select("mon='" & Mon & "'"), DSR.에너지소요량1Row()) + If DR.GetUpperBound(0) = -1 Then + MsgBox(ErrMsg, MsgBoxStyle.Information, "C1차소요량") + Return 0 + Else + Return TOSG(DR(0)("급탕전력")) + End If + End Get + Set(ByVal value As Decimal) + Dim DR() As DSR.에너지소요량1Row = CType(DSETR.에너지소요량1.Select("mon='" & Mon & "'"), DSR.에너지소요량1Row()) + If DR.GetUpperBound(0) = -1 Then + MsgBox(ErrMsg, MsgBoxStyle.Information, "C1차소요량") + Else + DR(0)("급탕전력") = value + End If + End Set + End Property + ReadOnly Property 급탕면적() As Decimal + Get + If Result.사용면적.W = 0 Then + Return 0 + Else + Return Me.급탕소요량 / Result.사용면적.W + End If + End Get + End Property + ReadOnly Property 급탕면적2() As Decimal + Get + If Result.사용면적.W = 0 Then + Return 0 + Else + Return Me.급탕소요량2 / Result.사용면적.W + End If + End Get + End Property +#End Region + +#Region "조명부분(읽기전용)" + ReadOnly Property 조명소요량() As Decimal + Get + If MIdx = 0 Then + Dim R As Decimal = 조명전력 * Result.E변환계수.전력 + + Try + Return R - (Result.생산E(0).태양광전력생산량 + Result.생산E(0).열병합전력생산량) / _ + (Me.난방전력 + Me.냉방전력 + Me.급탕전력 + Me.조명전력 + Me.환기전력) * Me.조명전력 * Result.E변환계수.전력 + Catch ex As Exception + + End Try + + Else + Return 조명전력 * Result.E변환계수.전력 + End If + End Get + End Property + ReadOnly Property 조명전력() As Decimal + Get + If MIdx = 0 Then '//합계필드라면 12월의 합계를 반환한다. + Dim i1 As Decimal = 0 + For i As Integer = 1 To 12 + i1 += Result.일차E소요량(i).조명전력 + Next + Return i1 + Else + Return Result.E소요량(Me.MIdx).조명S + End If + End Get + End Property + ReadOnly Property 조명면적() As Decimal + Get + If Result.사용면적.L = 0 Then + Return 0 + Else + Return Me.조명소요량 / Result.사용면적.L + End If + End Get + End Property + +#End Region + +#Region "환기부분(읽기전용)" + ReadOnly Property 환기소요량() As Decimal + Get + If MIdx = 0 Then + Dim R As Decimal = 환기전력 * Result.E변환계수.전력 + Try + Return R - (Result.생산E(0).태양광전력생산량 + Result.생산E(0).열병합전력생산량) / _ + (Me.난방전력 + Me.냉방전력 + Me.급탕전력 + Me.조명전력 + Me.환기전력) * Me.환기전력 * Result.E변환계수.전력 + Catch ex As Exception + + End Try + Else + Return 환기전력 * Result.E변환계수.전력 + End If + End Get + End Property + ReadOnly Property 환기전력() As Decimal + Get + If MIdx = 0 Then '//합계필드라면 12월의 합계를 반환한다. + Dim i1 As Decimal = 0 + For i As Integer = 1 To 12 + i1 += Result.일차E소요량(i).환기전력 + Next + Return i1 + Else + Return Result.E소요량(Me.MIdx).환기S + End If + End Get + End Property + ReadOnly Property 환기면적() As Decimal + Get + If Result.사용면적.V = 0 Then + Return 0 + Else + Return Me.환기소요량 / Result.사용면적.V + End If + End Get + End Property +#End Region + + +End Class diff --git a/ArinWarev1/Calculator/Result/CCo2발생량.vb b/ArinWarev1/Calculator/Result/CCo2발생량.vb new file mode 100644 index 0000000..b5f10d8 --- /dev/null +++ b/ArinWarev1/Calculator/Result/CCo2발생량.vb @@ -0,0 +1,452 @@ +Public Class CCo2발생량 + Public Mon As String + Private ErrMsg As String = "에너지소요량 계산되지 않았습니다" + Private MIdx As Integer + Private Result As CResult + Public Sub New(ByRef presult As CResult, Optional ByVal pmIdx As Integer = 0) + Result = presult + MIdx = pmIdx + Mon = "M" & Format(MIdx, "00") + End Sub + ReadOnly Property 발생량() As Decimal + Get + If MIdx = 0 Then '//최종합계는 저람량을 제하지않는다? + Return Me.난방발생량 + Me.냉방발생량 + Me.급탕발생량 + Me.조명발생량 + Me.환기발생량 + Else + Return Me.난방발생량 + Me.냉방발생량 + Me.급탕발생량 + Me.조명발생량 + Me.환기발생량 - Me.저감량태양광 - Me.저감량열병합 + End If + End Get + End Property + ReadOnly Property 단위면적() As Decimal + Get '//월구분없음 실제로는 최종합 M00 에만 값이 있다. + Return Me.난방면적 + Me.냉방면적 + Me.급탕면적 + Me.조명면적 + Me.환기면적 + End Get + End Property + +#Region "난방" + ReadOnly Property 난방발생량() As Decimal + Get + 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.난방전력 + Catch ex As Exception + + End Try + + Else + Return Me.난방등유 + Me.난방LNG + Me.난방LPG + Me.난방지역 + Me.난방전력 + 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 난방LNG() As Decimal + Get + If Me.MIdx = 0 Then + Dim Res As Decimal = 0 + For i As Short = 1 To 12 + Res += Result.Co2발생량(i).난방LNG + Next + Return Res + Else + Return Result.일차E소요량(MIdx).난방LNG * Result.Co2배출계수.LNG + End If + End Get + End Property + ReadOnly Property 난방LPG() As Decimal + Get + If Me.MIdx = 0 Then + Dim Res As Decimal = 0 + For i As Short = 1 To 12 + Res += Result.Co2발생량(i).난방LPG + Next + Return Res + Else + Return Result.일차E소요량(MIdx).난방LPG * Result.Co2배출계수.LPG + 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 + 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 + ' 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 Result.사용면적.H = 0 Then + Return 0 + Else + Return Me.난방발생량 / Result.사용면적.H + End If + End Get + End Property +#End Region + + ReadOnly Property 냉방발생량() As Decimal + Get + 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.냉방전력 + Catch ex As Exception + + End Try + + Else + Return R + 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 냉방LNG() As Decimal + Get + If Me.MIdx = 0 Then + Dim Res As Decimal = 0 + For i As Short = 1 To 12 + Res += Result.Co2발생량(i).냉방LNG + Next + Return Res + Else + Return Result.일차E소요량(MIdx).냉방LNG * Result.Co2배출계수.LNG + 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 냉방LPG() As Decimal + Get + If Me.MIdx = 0 Then + Dim Res As Decimal = 0 + For i As Short = 1 To 12 + Res += Result.Co2발생량(i).냉방LPG + Next + Return Res + Else + Return Result.일차E소요량(MIdx).냉방LPG * Result.Co2배출계수.LPG + 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 + 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 + 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 Result.사용면적.C = 0 Then + Return 0 + Else + Return Me.냉방발생량 / Result.사용면적.C + End If + End Get + End Property + + ReadOnly Property 급탕발생량() As Decimal + Get + 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.급탕전력 + Catch ex As Exception + + End Try + + Else + Return Me.급탕등유 + Me.급탕LNG + Me.급탕LPG + Me.급탕지역 + Me.급탕전력 + 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 + ' 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 급탕LNG() As Decimal + Get + If Me.MIdx = 0 Then + Dim Res As Decimal = 0 + For i As Short = 1 To 12 + Res += Result.Co2발생량(i).급탕LNG + Next + Return Res + Else + Return Result.일차E소요량(MIdx).급탕LNG * Result.Co2배출계수.LNG + End If + End Get + End Property + ReadOnly Property 급탕LPG() As Decimal + Get + If Me.MIdx = 0 Then + Dim Res As Decimal = 0 + For i As Short = 1 To 12 + Res += Result.Co2발생량(i).급탕LPG + Next + Return Res + Else + Return Result.일차E소요량(MIdx).급탕LPG * Result.Co2배출계수.LPG + 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 + 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 Result.사용면적.W = 0 Then + Return 0 + Else + Return Me.급탕발생량 / Result.사용면적.W + End If + End Get + End Property + + ReadOnly Property 조명발생량() As Decimal + Get + If MIdx = 0 Then + Dim R As Decimal = Me.조명전력 + Try + Return R - (Me.저감량열병합 + Me.저감량태양광) / (Me.난방전력 + Me.냉방전력 + Me.조명전력 + Me.환기전력 + Me.급탕전력) * Me.조명전력 + Catch ex As Exception + + End Try + + Else + Return Me.조명전력 + 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 Result.사용면적.L = 0 Then + Return 0 + Else + Return Me.조명발생량 / Result.사용면적.L + End If + End Get + End Property + + ReadOnly Property 환기발생량() As Decimal + Get + If MIdx = 0 Then + Dim R As Decimal = Me.환기전력 + Try + Return R - (Me.저감량열병합 + Me.저감량태양광) / (Me.난방전력 + Me.냉방전력 + Me.조명전력 + Me.환기전력 + Me.급탕전력) * Me.환기전력 + Catch ex As Exception + + End Try + + Else + Return Me.환기전력 + 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 Result.사용면적.V = 0 Then + Return 0 + Else + Return Me.환기발생량 / Result.사용면적.V + 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 + 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 +End Class diff --git a/ArinWarev1/Calculator/Result/CResult.vb b/ArinWarev1/Calculator/Result/CResult.vb new file mode 100644 index 0000000..3ee2a5a --- /dev/null +++ b/ArinWarev1/Calculator/Result/CResult.vb @@ -0,0 +1,48 @@ +Public Class CResult + + + Public Zones As CZones + + Public E요구량(12) As C에너지요구량 + Public E소요량(12) As C에너지소요량 + Public 일차E소요량(12) As C1차소요량 + Public 생산E(12) As C생산에너지 + Public Co2발생량(12) As CCo2발생량 + Public E분석(12) As C에너지분석 '//여기는 유일하게 0번 인덱스를 쓸수없다 + + Public Co2배출계수 As CCo2배출계수 + Public E변환계수 As C1차에너지변환계수 + + Public 사용면적 As C사용면적 + Public 최대부하 As C최대냉난방부하 + + Private DSETR As DSR + Private DSET As DS + Public Sub New(ByRef pds As DS, ByRef pdsetr As DSR) + DSET = pds + DSETR = pdsetr + + '//공용 + Co2배출계수 = New CCo2배출계수 + E변환계수 = New C1차에너지변환계수 + + '//단일 + 사용면적 = New C사용면적(DSET, DSETR, Me) + 최대부하 = New C최대냉난방부하(DSETR) + + '//서브추가항목 + Zones = New CZones(DSET, DSETR, Me) + + '//월별로 들어가는 배열항목 + For i As Integer = 0 To 12 + Me.E요구량(i) = New C에너지요구량(Me, i) + Me.E소요량(i) = New C에너지소요량(DSETR, Me, i) + Me.일차E소요량(i) = New C1차소요량(DSETR, Me, i) + Me.생산E(i) = New C생산에너지(DSETR, Me, i) + Me.Co2발생량(i) = New CCo2발생량(Me, i) + Me.E분석(i) = New C에너지분석(DSETR, Me, i) + Next + + End Sub + +End Class diff --git a/ArinWarev1/Calculator/Result/CZones.vb b/ArinWarev1/Calculator/Result/CZones.vb new file mode 100644 index 0000000..cf0b91b --- /dev/null +++ b/ArinWarev1/Calculator/Result/CZones.vb @@ -0,0 +1,71 @@ + +''' +''' 각존의 데이터를 참조한다 +''' +Public Class CZones + Dim ErrMsg As String = "최대냉난방부하가 계산되지 않았습니다" + Public Items() As Citem + + Private DSET As DS + Private DSETR As DSR + Private Result As CResult + Public Sub New(ByRef pds As DS, ByRef pdsetr As DSR, ByRef presult As CResult) '//존은초기화값을 가지고 생성한다. + DSET = pds + DSETR = pdsetr + Result = presult + ReDim Items(Me.CountR) '//결과내의 존을 초기화한다. + Dim idx As Integer = 0 + For Each It As DSR.최대냉난방부하Row In DSETR.최대냉난방부하.Select("zone<>'00'") + Items(idx) = New Citem(DSET, DSETR, Result, idx, It.Zone) + idx += 1 + Next + '//해당존의 코드값을 가지고 결과가 게산되어있따. + End Sub + Public Function Count() As Integer + Return DSET.tbl_zone.Rows.Count '//현재 시스템의 존 카운터를 반환 + End Function + Public Function CountR() As Integer + Return DSETR.최대냉난방부하.Select("zone<>'00'").GetUpperBound(0) + 1 '//계산결과내의 존의 갯수를 반환 + End Function + + Public Class Citem + Public Index As Integer + Public Code As String + Public 최대냉난방부하 As C최대냉난방부하.Citem + Public 월에너지분석(11) As C에너지분석 '//이존의 12달의 내역을 참조한다. + Private DSETR As DSR + Private DSET As DS + Private Result As CResult + Public Sub New(ByRef pds As DS, ByRef pdsetr As DSR, ByRef presult As CResult, ByVal pidx As Integer, ByVal pcode As String) + DSET = pds + DSETR = pdsetr + Result = presult + Me.Index = pidx + Me.Code = pcode + 최대냉난방부하 = New C최대냉난방부하.Citem(DSETR, pcode) + + Dim Idx As Integer = 0 + For Each DR As C에너지분석 In Me.월에너지분석 + DR = New C에너지분석(DSETR, Result, Idx, pcode) + Idx += 1 + Next + End Sub + Public Function Name() As String + Dim dR() As DataRow = DSET.tbl_zone.Select("code='" & Me.Code & "'") + If dR.GetUpperBound(0) = -1 Then + Return "존재하지않는 Zone 입니다" + Else + Return dR(0)("설명").ToString + End If + End Function + Public Function Row() As DS.tbl_zoneRow + Dim dR() As DS.tbl_zoneRow = CType(DSET.tbl_zone.Select("code='" & Me.Code & "'"), DS.tbl_zoneRow()) + If dR.GetUpperBound(0) = -1 Then + Return Nothing + Else + Return dR(0) + End If + End Function + End Class +End Class + diff --git a/ArinWarev1/Calculator/Result/C범용.vb b/ArinWarev1/Calculator/Result/C범용.vb new file mode 100644 index 0000000..4cca80e --- /dev/null +++ b/ArinWarev1/Calculator/Result/C범용.vb @@ -0,0 +1,75 @@ +Public Class CCo2배출계수 + Public Sub New() + + End Sub + ReadOnly Property 등유() As Decimal + Get + Return 0.259 + End Get + End Property + ReadOnly Property LNG() As Decimal + Get + Return 0.202 + End Get + End Property + ReadOnly Property LPG() As Decimal + Get + Return 0.227 + End Get + End Property + 'ReadOnly Property 펠렛() As Decimal + ' Get + ' Return 0.0 '//나중에 지정하세요. + ' End Get + 'End Property + ReadOnly Property 지역난방() As Decimal + Get + Return 0.164 + End Get + End Property + ReadOnly Property 지역냉방() As Decimal + Get + Return 0.14 + End Get + End Property + ReadOnly Property 전력() As Decimal + Get + Return 0.4691 + End Get + End Property +End Class +Public Class C1차에너지변환계수 + Public Sub New() + + End Sub + ReadOnly Property 등유() As Decimal + Get + Return 1.1 + End Get + End Property + ReadOnly Property LNG() As Decimal + Get + Return 1.1 + End Get + End Property + ReadOnly Property LPG() As Decimal + Get + Return 1.1 + End Get + End Property + ReadOnly Property 지역난방() As Decimal + Get + Return 0.728 + End Get + End Property + ReadOnly Property 지역냉방() As Decimal + Get + Return 0.937 + End Get + End Property + ReadOnly Property 전력() As Decimal + Get + Return 2.75 + End Get + End Property +End Class diff --git a/ArinWarev1/Calculator/Result/C사용면적.vb b/ArinWarev1/Calculator/Result/C사용면적.vb new file mode 100644 index 0000000..dd4e249 --- /dev/null +++ b/ArinWarev1/Calculator/Result/C사용면적.vb @@ -0,0 +1,412 @@ +''' +''' 전체존의 사용면적을 계산및 확인(냉,난,조,급,환) +''' +''' 전체존의 사용면적을 계산및 확인(냉,난,조,급,환) +Public Class C사용면적 + + ''' + ''' 난방 + ''' + ''' 난방 + Property H() As Decimal + Get + If DSETR.사용면적.Rows.Count = 0 Then + LogSB.AppendLine("사용면적이 계산되지않았습니다" & vbCrLf & "값을 가져올 수 없습니다") + Return 0 + Else + Return TOSG(DSETR.사용면적(0)("H")) + End If + End Get + Set(ByVal value As Decimal) + If DSETR.사용면적.Rows.Count = 0 Then + LogSB.AppendLine("사용면적이 계산되지않았습니다" & vbCrLf & "값을 가져올 수 없습니다") + Else + DSETR.사용면적(0)("H") = value + End If + End Set + End Property + ''' + ''' 냉방 + ''' + ''' 냉방 + Property C() As Decimal + Get + If DSETR.사용면적.Rows.Count = 0 Then + LogSB.AppendLine("사용면적이 계산되지않았습니다" & vbCrLf & "값을 가져올 수 없습니다") + Return 0 + Else + Return TOSG(DSETR.사용면적(0)("C")) + End If + End Get + Set(ByVal value As Decimal) + If DSETR.사용면적.Rows.Count = 0 Then + LogSB.AppendLine("사용면적이 계산되지않았습니다" & vbCrLf & "값을 가져올 수 없습니다") + Else + DSETR.사용면적(0)("C") = value + End If + End Set + End Property + ''' + ''' 조명 + ''' + ''' 조명 + Property L() As Decimal + Get + If DSETR.사용면적.Rows.Count = 0 Then + LogSB.AppendLine("사용면적이 계산되지않았습니다" & vbCrLf & "값을 가져올 수 없습니다") + Return 0 + Else + Return TOSG(DSETR.사용면적(0)("L")) + End If + End Get + Set(ByVal value As Decimal) + If DSETR.사용면적.Rows.Count = 0 Then + LogSB.AppendLine("사용면적이 계산되지않았습니다" & vbCrLf & "값을 가져올 수 없습니다") + Else + DSETR.사용면적(0)("L") = value + End If + End Set + End Property + ''' + ''' 급탕 + ''' + ''' 급탕 + Property W() As Decimal + Get + If DSETR.사용면적.Rows.Count = 0 Then + LogSB.AppendLine("사용면적이 계산되지않았습니다" & vbCrLf & "값을 가져올 수 없습니다") + Return 0 + Else + Return TOSG(DSETR.사용면적(0)("W")) + End If + End Get + Set(ByVal value As Decimal) + If DSETR.사용면적.Rows.Count = 0 Then + LogSB.AppendLine("사용면적이 계산되지않았습니다" & vbCrLf & "값을 가져올 수 없습니다") + Else + DSETR.사용면적(0)("W") = value + End If + End Set + End Property + ''' + ''' 환기 + ''' + ''' 환기 + Property V() As Decimal + Get + If DSETR.사용면적.Rows.Count = 0 Then + LogSB.AppendLine("사용면적이 계산되지않았습니다" & vbCrLf & "값을 가져올 수 없습니다") + Return 0 + Else + Return TOSG(DSETR.사용면적(0)("V")) + End If + End Get + Set(ByVal value As Decimal) + If DSETR.사용면적.Rows.Count = 0 Then + LogSB.AppendLine("사용면적이 계산되지않았습니다" & vbCrLf & "값을 가져올 수 없습니다") + Else + DSETR.사용면적(0)("V") = value + End If + End Set + End Property + + + ''' + ''' 난방_WF + ''' + ''' 난방 + Property H_WF() As Decimal + Get + If DSETR.사용면적.Rows.Count = 0 Then + LogSB.AppendLine("사용면적이 계산되지않았습니다" & vbCrLf & "값을 가져올 수 없습니다") + Return 0 + Else + Return TOSG(DSETR.사용면적(0)("H_WF")) + End If + End Get + Set(ByVal value As Decimal) + If DSETR.사용면적.Rows.Count = 0 Then + LogSB.AppendLine("사용면적이 계산되지않았습니다" & vbCrLf & "값을 가져올 수 없습니다") + Else + DSETR.사용면적(0)("H_WF") = value + End If + End Set + End Property + ''' + ''' 냉방_WF + ''' + ''' 냉방 + Property C_WF() As Decimal + Get + If DSETR.사용면적.Rows.Count = 0 Then + LogSB.AppendLine("사용면적이 계산되지않았습니다" & vbCrLf & "값을 가져올 수 없습니다") + Return 0 + Else + Return TOSG(DSETR.사용면적(0)("C_WF")) + End If + End Get + Set(ByVal value As Decimal) + If DSETR.사용면적.Rows.Count = 0 Then + LogSB.AppendLine("사용면적이 계산되지않았습니다" & vbCrLf & "값을 가져올 수 없습니다") + Else + DSETR.사용면적(0)("C_WF") = value + End If + End Set + End Property + ''' + ''' 조명_WF + ''' + ''' 조명 + Property L_WF() As Decimal + Get + If DSETR.사용면적.Rows.Count = 0 Then + LogSB.AppendLine("사용면적이 계산되지않았습니다" & vbCrLf & "값을 가져올 수 없습니다") + Return 0 + Else + Return TOSG(DSETR.사용면적(0)("L_WF")) + End If + End Get + Set(ByVal value As Decimal) + If DSETR.사용면적.Rows.Count = 0 Then + LogSB.AppendLine("사용면적이 계산되지않았습니다" & vbCrLf & "값을 가져올 수 없습니다") + Else + DSETR.사용면적(0)("L_WF") = value + End If + End Set + End Property + ''' + ''' 급탕_WF + ''' + ''' 급탕 + Property W_WF() As Decimal + Get + If DSETR.사용면적.Rows.Count = 0 Then + LogSB.AppendLine("사용면적이 계산되지않았습니다" & vbCrLf & "값을 가져올 수 없습니다") + Return 0 + Else + Return TOSG(DSETR.사용면적(0)("W_WF")) + End If + End Get + Set(ByVal value As Decimal) + If DSETR.사용면적.Rows.Count = 0 Then + LogSB.AppendLine("사용면적이 계산되지않았습니다" & vbCrLf & "값을 가져올 수 없습니다") + Else + DSETR.사용면적(0)("W_WF") = value + End If + End Set + End Property + ''' + ''' 환기_WF + ''' + ''' 환기 + Property V_WF() As Decimal + Get + If DSETR.사용면적.Rows.Count = 0 Then + LogSB.AppendLine("사용면적이 계산되지않았습니다" & vbCrLf & "값을 가져올 수 없습니다") + Return 0 + Else + Return TOSG(DSETR.사용면적(0)("V_WF")) + End If + End Get + Set(ByVal value As Decimal) + If DSETR.사용면적.Rows.Count = 0 Then + LogSB.AppendLine("사용면적이 계산되지않았습니다" & vbCrLf & "값을 가져올 수 없습니다") + Else + DSETR.사용면적(0)("V_WF") = value + End If + End Set + End Property + + Public Overridable Sub Calc() + + pLog.Add(">>>>>>>>>>>>>>>>>>>>>>>>>>>>>") + pLog.Add(">> C사용면적.Calc") + pLog.Add(">>>>>>>>>>>>>>>>>>>>>>>>>>>>>") + + Dim A_H As Decimal = 0 + Dim A_C As Decimal = 0 + Dim A_L As Decimal = 0 + Dim A_W As Decimal = 0 + Dim A_V As Decimal = 0 + '//용도별 면적가중치(wf) 추가 '2012.07.01 + Dim A_H_wf As Decimal = 0 + Dim A_C_wf As Decimal = 0 + Dim A_L_wf As Decimal = 0 + Dim A_W_wf As Decimal = 0 + Dim A_V_wf As Decimal = 0 + Dim day_year As Decimal + '//'2012.07.01 + + If DSETR.사용면적.Rows.Count = 0 Then '//데결과가 없으면 신규줄을 기록한다. + Dim Dr As DSR.사용면적Row = DSETR.사용면적.New사용면적Row + Dr.H = 0 : Dr.C = 0 : Dr.L = 0 : Dr.W = 0 : Dr.V = 0 + DSETR.사용면적.Add사용면적Row(Dr) + DSETR.AcceptChanges() + End If + + '//건물용도 + Dim 건물용도 As Integer = CInt(DSET.tbl_Desc.Rows(0)("isjugo")) + + '//A_H,C,W,L,V 의 누적값을 계산(사용면적) '//모든존을 대상으로 + + For Each Dr존 As DS.tbl_zoneRow In DSET.tbl_zone.Select("code<>'0'", "code") + + Dim Dr프로필 As DS.tbl_profileRow = CType(DSET.tbl_profile.Select("code='" & Dr존.프로필 & "'")(0), DS.tbl_profileRow) + + Dim offset As Integer = 1 + If Dr프로필.code = "0016" Then + If Dr존.조명부하산출방법 = "입력치" Then + If Dr존.조명에너지부하율입력치 > 10 Then + offset = ((Dr존.조명에너지부하율입력치 - 10) * 0.4 + 10) / Dr존.조명에너지부하율입력치 + End If + ElseIf Dr존.조명부하산출방법 = "계산치" Then + If Dr존.조명에너지부하율계산치 > 10 Then + offset = ((Dr존.조명에너지부하율계산치 - 10) * 0.4 + 10) / Dr존.조명에너지부하율계산치 + End If + End If + End If + + pLog.Add(String.Format(">> Zone({0})Row Offset={1}", Dr존.code, offset)) + + '//냉난방(HC) 이거나 난방(H)일경우 난방면적 누적 + If Dr존.냉난방방식.IndexOf("난") <> -1 OrElse Dr존.냉난방공조.IndexOf("난") <> -1 Then + A_H += TOSG(Dr존.면적) * TOSG(Dr존.입력존의수) + If 건물용도 < 10 Then '//주거일경우에 + + '//연 + + A_H_wf = A_H + + Else + day_year = TOSG(Dr프로필.day01) + TOSG(Dr프로필.day02) + TOSG(Dr프로필.day03) + TOSG(Dr프로필.day04) + TOSG(Dr프로필.day05) + TOSG(Dr프로필.day06) + TOSG(Dr프로필.day07) + TOSG(Dr프로필.day08) + TOSG(Dr프로필.day09) + TOSG(Dr프로필.day10) + TOSG(Dr프로필.day11) + TOSG(Dr프로필.day12) + 'A_H_wf += TOSG(Dr존.면적) * TOSG(Dr존.입력존의수) * (TOSG(Dr프로필.일일운전시간) * Math.Round(day_year / (11 * 250), 3)) + + A_H_wf += TOSG(Dr존.면적) * TOSG(Dr존.입력존의수) * Math.Round(TOSG(Dr프로필.일일운전시간) * (day_year / (11 * 250)), 3) + + 'If Dr프로필.code <> "0010" Then + ' A_H_wf += TOSG(Dr존.면적) * TOSG(Dr존.입력존의수) * Math.Round(TOSG(Dr프로필.일일운전시간) * (day_year / (11 * 250)), 3) + 'Else + ' A_H_wf += TOSG(Dr존.면적) * TOSG(Dr존.입력존의수) * Math.Round(TOSG(Dr프로필.일일운전시간) * (day_year / (11 * 250)) / (0.583 / 0.314), 3) '//전산실 용도에 따른 난방 가중치 적용 + 'End If + + End If + + pLog.Add(String.Format(">> Zone({0})Row A_H_wf={1}", Dr존.code, A_H_wf)) + End If + + + + '//냉난방(hC) 이거나 냉방(C)일경우 냉방면적 누적 + If Dr존.냉난방방식.IndexOf("냉") <> -1 OrElse Dr존.냉난방공조.IndexOf("냉") <> -1 Then + A_C += TOSG(Dr존.면적) * TOSG(Dr존.입력존의수) + + If 건물용도 < 10 Then + A_C_wf = A_C + Else + day_year = TOSG(Dr프로필.day01) + TOSG(Dr프로필.day02) + TOSG(Dr프로필.day03) + TOSG(Dr프로필.day04) + TOSG(Dr프로필.day05) + TOSG(Dr프로필.day06) + TOSG(Dr프로필.day07) + TOSG(Dr프로필.day08) + TOSG(Dr프로필.day09) + TOSG(Dr프로필.day10) + TOSG(Dr프로필.day11) + TOSG(Dr프로필.day12) + 'A_C_wf += TOSG(Dr존.면적) * TOSG(Dr존.입력존의수) * (TOSG(Dr프로필.일일운전시간) * Math.Round(day_year / (11 * 250), 3)) + + A_C_wf += TOSG(Dr존.면적) * TOSG(Dr존.입력존의수) * Math.Round(TOSG(Dr프로필.일일운전시간) * (day_year / (11 * 250)), 3) + + 'If Dr프로필.code <> "0010" Then + ' A_C_wf += TOSG(Dr존.면적) * TOSG(Dr존.입력존의수) * Math.Round(TOSG(Dr프로필.일일운전시간) * (day_year / (11 * 250)), 3) + 'Else + ' A_C_wf += TOSG(Dr존.면적) * TOSG(Dr존.입력존의수) * Math.Round(TOSG(Dr프로필.일일운전시간) * (day_year / (11 * 250)) / (0.045 / 0.314), 3) '//전산실 용도에 따른 냉방 가중치 적용 + 'End If + + End If + + pLog.Add(String.Format(">> Zone({0})Row A_C={1},A_C_wf={2}", Dr존.code, A_C, A_C_wf)) + End If + + + + '//급탕요구량이 있다면 급탕면적 누적 + If TOSG(Dr프로필.일일급탕요구량) > 0 Then + + A_W += TOSG(Dr존.면적) * TOSG(Dr존.입력존의수) + + + If 건물용도 < 10 Then + A_W_wf = A_W + Else + day_year = TOSG(Dr프로필.day01) + TOSG(Dr프로필.day02) + TOSG(Dr프로필.day03) + TOSG(Dr프로필.day04) + TOSG(Dr프로필.day05) + TOSG(Dr프로필.day06) + TOSG(Dr프로필.day07) + TOSG(Dr프로필.day08) + TOSG(Dr프로필.day09) + TOSG(Dr프로필.day10) + TOSG(Dr프로필.day11) + TOSG(Dr프로필.day12) + 'A_W_wf += TOSG(Dr존.면적) * TOSG(Dr존.입력존의수) * (TOSG(Dr프로필.일일급탕요구량) * Math.Round(day_year / (30 * 250), 3)) 160211 소수점오류인한 수정 + A_W_wf += TOSG(Dr존.면적) * TOSG(Dr존.입력존의수) * Math.Round(TOSG(Dr프로필.일일급탕요구량) * (day_year / (30 * 250)), 3) + End If + + pLog.Add(String.Format(">> Zone({0})Row A_W={1},A_W_wf={2}", Dr존.code, A_W, A_W_wf)) + + End If + + '//조명의 에너지부하율값이 있으면 조명면적 누적 + If Dr존.조명에너지부하율계산치 <> "0" OrElse Dr존.조명에너지부하율입력치 <> "0" Then + A_L += TOSG(Dr존.면적) * TOSG(Dr존.입력존의수) + + If 건물용도 < 10 Then + '//가스를쓰는 난방 급탕은 계가 발생 + A_L_wf = A_L + Else + day_year = TOSG(Dr프로필.day01) + TOSG(Dr프로필.day02) + TOSG(Dr프로필.day03) + TOSG(Dr프로필.day04) + TOSG(Dr프로필.day05) + TOSG(Dr프로필.day06) + TOSG(Dr프로필.day07) + TOSG(Dr프로필.day08) + TOSG(Dr프로필.day09) + TOSG(Dr프로필.day10) + TOSG(Dr프로필.day11) + TOSG(Dr프로필.day12) + 'A_L_wf += TOSG(Dr존.면적) * TOSG(Dr존.입력존의수) * (TOSG(Dr프로필.일일사용시간) * Math.Round(day_year / (9 * 250), 3) * offset) + A_L_wf += TOSG(Dr존.면적) * TOSG(Dr존.입력존의수) * Math.Round(TOSG(Dr프로필.일일사용시간) * (day_year / (9 * 250)), 3) * offset + End If + + pLog.Add(String.Format(">> Zone({0})Row A_L={1},A_L_wf={2}", Dr존.code, A_L, A_L_wf)) + End If + + '//냉난방공조를 사용하고있다면 환기면적 누적(ZZ:기능없음) + If (Dr존.냉난방공조 <> "기능없음") Then + A_V += TOSG(Dr존.면적) * TOSG(Dr존.입력존의수) + + If 건물용도 < 10 Then + A_V_wf = A_V + Else + day_year = TOSG(Dr프로필.day01) + TOSG(Dr프로필.day02) + TOSG(Dr프로필.day03) + TOSG(Dr프로필.day04) + TOSG(Dr프로필.day05) + TOSG(Dr프로필.day06) + TOSG(Dr프로필.day07) + TOSG(Dr프로필.day08) + TOSG(Dr프로필.day09) + TOSG(Dr프로필.day10) + TOSG(Dr프로필.day11) + TOSG(Dr프로필.day12) + 'A_V_wf += TOSG(Dr존.면적) * TOSG(Dr존.입력존의수) * (TOSG(Dr프로필.일일운전시간) * Math.Round(day_year / (11 * 250), 3)) + A_V_wf += TOSG(Dr존.면적) * TOSG(Dr존.입력존의수) * Math.Round(TOSG(Dr프로필.일일운전시간) * (day_year / (11 * 250)), 3) + End If + + pLog.Add(String.Format(">> Zone({0})Row A_V={1},A_V_wf={2}", Dr존.code, A_V, A_V_wf)) + + End If + + Next + + '//저장소에 보관한다. + '//가중치 없는 사용면적 + Result.사용면적.H = A_H + Result.사용면적.C = A_C + Result.사용면적.L = A_L + Result.사용면적.W = A_W + Result.사용면적.V = A_V + + pLog.Add("C사용면적.CALC 결과 : 가중치없음") + pLog.Add(String.Format("H={0},C={1},L={2},W={3},V={4}", A_H, A_C, A_L, A_W, A_V)) + + + '// 가중치 있는 사용면적 '2013.07.01 + Result.사용면적.H_WF = A_H_wf + Result.사용면적.C_WF = A_C_wf + Result.사용면적.L_WF = A_L_wf + Result.사용면적.W_WF = A_W_wf + Result.사용면적.V_WF = A_V_wf + + pLog.Add("C사용면적.CALC 결과 : 가중치적용") + pLog.Add(String.Format("H_wf={0},C_wf={1},L_wf={2},W_wf={3},V_wf={4}", A_H_wf, A_C_wf, A_L_wf, A_W_wf, A_V_wf)) + End Sub + + Private DSETR As DSR + Private Result As CResult + Private DSET As DS + Public Sub New(ByRef pds As DS, ByRef pdsetr As DSR, ByRef presult As CResult) + + If Not pLog Is Nothing Then + pLog.Add("New C사용면적", True) + End If + + DSET = pds + DSETR = pdsetr + Result = presult + End Sub +End Class \ No newline at end of file diff --git a/ArinWarev1/Calculator/Result/C생산에너지.vb b/ArinWarev1/Calculator/Result/C생산에너지.vb new file mode 100644 index 0000000..6ff7190 --- /dev/null +++ b/ArinWarev1/Calculator/Result/C생산에너지.vb @@ -0,0 +1,272 @@ +'// 0월합계에대한 처리는 하였음 +'// 완료일자 : 2010-03-08 + +Public Class C생산에너지 + Public Mon As String + Private MIdx As Integer + Private ErrMsg As String = "에너지소요량 계산되지 않았습니다" + + 'Public Sub Calc_Summary() + ' '// + ' If MIdx <> 0 Then + ' MsgBox("계산식은 0번 합계배열만 가능합니다") + ' Return + ' End If + + ' Dim I1 as decimal = 0 + ' Dim I2 as decimal = 0 + ' Dim I3 as decimal = 0 + ' Dim I4 as decimal = 0 + ' Dim I5 as decimal = 0 + ' Dim I6 as decimal = 0 + ' For i As Integer = 1 To 12 + ' '//12월을 다더해서 0번열에 기록한다. + ' I1 += Result.생산E(i).태양광전력생산량 + ' I2 += Result.생산E(i).열병합전력생산량 + ' I3 += Result.생산E(i).태양열생산량 + ' I4 += Result.생산E(i).지열생산량 + ' I5 += Result.생산E(i).면적당생산량태양열 + ' I6 += Result.생산E(i).면적당생산량지열 + ' Next + ' Me.태양광전력생산량 = I1 + ' Me.열병합전력생산량 = I2 + ' Me.태양열생산량 = I3 + ' Me.지열생산량 = I4 + ' Me.면적당생산량태양열 = I5 + ' Me.면적당생산량지열 = I6 + 'End Sub + + Private DSETR As DSR + Private Result As CResult + Public Sub New(ByRef pdsetr As DSR, ByRef presult As CResult, Optional ByVal pmIdx As Integer = 0) + DSETR = pdsetr + Result = presult + MIdx = pmIdx + Mon = "M" & Format(MIdx, "00") + End Sub + 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 열병합전력생산량() As Decimal + Get + Dim DR() As DSR.생산에너지Row = CType(DSETR.생산에너지.Select("mon='" & Mon & "'"), DSR.생산에너지Row()) + If DR.GetUpperBound(0) = -1 Then + 'MsgBox(ErrMsg) + Return 0 + Else + If MIdx = 0 Then '//0월이면 모든월의 합계를 반환한다. + Dim Res As Decimal = 0 + For i As Short = 1 To 12 + Res += Result.생산E(i).열병합전력생산량 + Next + Return Res + Else + Return TOSG(DR(0)("전력열병합")) + End If + End If + End Get + Set(ByVal value As Decimal) + Dim DR() As DSR.생산에너지Row = CType(DSETR.생산에너지.Select("mon='" & Mon & "'"), DSR.생산에너지Row()) + If DR.GetUpperBound(0) = -1 Then + MsgBox(ErrMsg) + Else + DR(0)("전력열병합") = value + End If + End Set + End Property + Property 신재생열병합전력생산량() As Decimal + Get + Dim DR() As DSR.생산에너지Row = CType(DSETR.생산에너지.Select("mon='" & Mon & "'"), DSR.생산에너지Row()) + If DR.GetUpperBound(0) = -1 Then + 'MsgBox(ErrMsg) + Return 0 + Else + If MIdx = 0 Then '//0월이면 모든월의 합계를 반환한다. + Dim Res As Decimal = 0 + For i As Short = 1 To 12 + Res += Result.생산E(i).신재생열병합전력생산량 + Next + Return Res + Else + Return TOSG(DR(0)("신재생열병합전력생산량")) + End If + End If + End Get + Set(ByVal value As Decimal) + Dim DR() As DSR.생산에너지Row = CType(DSETR.생산에너지.Select("mon='" & Mon & "'"), DSR.생산에너지Row()) + If DR.GetUpperBound(0) = -1 Then + MsgBox(ErrMsg) + Else + DR(0)("신재생열병합전력생산량") = value + End If + End Set + End Property + + Property 신재생면적당열생산량() As Decimal + Get + Dim DR() As DSR.생산에너지Row = CType(DSETR.생산에너지.Select("mon='" & Mon & "'"), DSR.생산에너지Row()) + If DR.GetUpperBound(0) = -1 Then + 'MsgBox(ErrMsg) + Return 0 + Else + If MIdx = 0 Then '//0월이면 모든월의 합계를 반환한다. + Dim Res As Decimal = 0 + For i As Short = 1 To 12 + Res += Result.생산E(i).신재생면적당열생산량 + Next + Return Res + Else + Return TOSG(DR(0)("신재생면적당열생산량")) + End If + End If + End Get + Set(ByVal value As Decimal) + Dim DR() As DSR.생산에너지Row = CType(DSETR.생산에너지.Select("mon='" & Mon & "'"), DSR.생산에너지Row()) + If DR.GetUpperBound(0) = -1 Then + MsgBox(ErrMsg) + Else + DR(0)("신재생면적당열생산량") = value + End If + End Set + End Property + + + Property 태양열생산량() As Decimal + Get + Dim DR() As DSR.생산에너지Row = CType(DSETR.생산에너지.Select("mon='" & Mon & "'"), DSR.생산에너지Row()) + If DR.GetUpperBound(0) = -1 Then + 'MsgBox(ErrMsg) + Return 0 + Else + If MIdx = 0 Then '//0월이면 모든월의 합계를 반환한다. + Dim Res As Decimal = 0 + For i As Short = 1 To 12 + Res += Result.생산E(i).태양열생산량 + Next + Return Res + Else + Return TOSG(DR(0)("생산량태양열")) + End If + + End If + End Get + Set(ByVal value As Decimal) + Dim DR() As DSR.생산에너지Row = CType(DSETR.생산에너지.Select("mon='" & Mon & "'"), DSR.생산에너지Row()) + If DR.GetUpperBound(0) = -1 Then + MsgBox(ErrMsg) + Else + DR(0)("생산량태양열") = value + End If + End Set + End Property + Property 지열생산량() As Decimal + Get + Dim DR() As DSR.생산에너지Row = CType(DSETR.생산에너지.Select("mon='" & Mon & "'"), DSR.생산에너지Row()) + If DR.GetUpperBound(0) = -1 Then + 'MsgBox(ErrMsg) + Return 0 + Else + If MIdx = 0 Then '//0월이면 모든월의 합계를 반환한다. + Dim Res As Decimal = 0 + For i As Short = 1 To 12 + Res += Result.생산E(i).지열생산량 + Next + Return Res + Else + Return TOSG(DR(0)("생산량지열")) + + End If + + End If + End Get + Set(ByVal value As Decimal) + Dim DR() As DSR.생산에너지Row = CType(DSETR.생산에너지.Select("mon='" & Mon & "'"), DSR.생산에너지Row()) + If DR.GetUpperBound(0) = -1 Then + MsgBox(ErrMsg) + Else + DR(0)("생산량지열") = value + End If + End Set + End Property + Property 면적당생산량태양열() As Decimal + Get + Dim DR() As DSR.생산에너지Row = CType(DSETR.생산에너지.Select("mon='" & Mon & "'"), DSR.생산에너지Row()) + If DR.GetUpperBound(0) = -1 Then + 'MsgBox(ErrMsg) + Return 0 + Else + If MIdx = 0 Then '//0월이면 모든월의 합계를 반환한다. + Dim Res As Decimal = 0 + For i As Short = 1 To 12 + Res += Result.생산E(i).면적당생산량태양열 + Next + Return Res + Else + Return TOSG(DR(0)("면적당생산량태양열")) + + End If + End If + End Get + Set(ByVal value As Decimal) + Dim DR() As DSR.생산에너지Row = CType(DSETR.생산에너지.Select("mon='" & Mon & "'"), DSR.생산에너지Row()) + If DR.GetUpperBound(0) = -1 Then + MsgBox(ErrMsg) + Else + DR(0)("면적당생산량태양열") = value + End If + End Set + End Property + Property 면적당생산량지열() As Decimal + Get + Dim DR() As DSR.생산에너지Row = CType(DSETR.생산에너지.Select("mon='" & Mon & "'"), DSR.생산에너지Row()) + If DR.GetUpperBound(0) = -1 Then + 'MsgBox(ErrMsg) + Return 0 + Else + If MIdx = 0 Then '//0월이면 모든월의 합계를 반환한다. + Dim Res As Decimal = 0 + For i As Short = 1 To 12 + Res += Result.생산E(i).면적당생산량지열 + Next + Return Res + Else + Return TOSG(DR(0)("면적당생산량지열")) + End If + End If + End Get + Set(ByVal value As Decimal) + Dim DR() As DSR.생산에너지Row = CType(DSETR.생산에너지.Select("mon='" & Mon & "'"), DSR.생산에너지Row()) + If DR.GetUpperBound(0) = -1 Then + MsgBox(ErrMsg) + Else + DR(0)("면적당생산량지열") = value + End If + End Set + End Property +End Class + diff --git a/ArinWarev1/Calculator/Result/C에너지분석.vb b/ArinWarev1/Calculator/Result/C에너지분석.vb new file mode 100644 index 0000000..c185283 --- /dev/null +++ b/ArinWarev1/Calculator/Result/C에너지분석.vb @@ -0,0 +1,355 @@ +Public Class C에너지분석 + Public ZZone As String + Public Mon As String + Private ErrMsg As String = "월에너지분석이 계산되지 않았습니다" + Private DSETR As DSR + Private Result As CResult + Public Sub New(ByRef pdsetr As DSR, ByRef presult As CResult, ByVal mIdx As Integer, Optional ByVal pZone As String = "00") + DSETR = pdsetr + Result = presult + Me.ZZone = pZone + Mon = "M" & Format(mIdx, "00") + End Sub + ReadOnly Property 에너지요구량(Optional ByVal Zone As String = "00") As Decimal + Get + Dim DR() As DSR.월별에너지분석Row = CType(DSETR.월별에너지분석.Select("월='" & Mon & "' and 존='" & IIf(Zone <> "00", Zone, ZZone).ToString & "'"), DSR.월별에너지분석Row()) + If DR.GetUpperBound(0) = -1 Then + MsgBox(ErrMsg, MsgBoxStyle.Information, "에너지요구량") + Return 0 + Else + Return 난방에너지요구량열(CStr(IIf(Zone <> "00", Zone, ZZone))) + _ + 난방에너지요구량공조환기(CStr(IIf(Zone <> "00", Zone, ZZone))) + _ + 냉방에너지요구량열(CStr(IIf(Zone <> "00", Zone, ZZone))) + _ + 냉방에너지요구량공조환기(CStr(IIf(Zone <> "00", Zone, ZZone))) + _ + 조명에너지요구량(CStr(IIf(Zone <> "00", Zone, ZZone))) + _ + 급탕에너지요구량(CStr(IIf(Zone <> "00", Zone, ZZone))) + End If + End Get + End Property + ReadOnly Property 면적당에너지요구량(Optional ByVal Zone As String = "00") As Decimal + Get + Return Me.난방단위면적당요구량 + Me.냉방단위면적당요구량 + Me.조명단위면적당요구량 + Me.급탕단위면적당요구량 + End Get + End Property + ReadOnly Property 난방에너지요구량(Optional ByVal Zone As String = "00") As Decimal + Get + Return Me.난방에너지요구량열(IIf(Zone <> "00", Zone, ZZone).ToString) + Me.난방에너지요구량공조환기(IIf(Zone <> "00", Zone, ZZone).ToString) + End Get + End Property + + ReadOnly Property 난방단위면적당요구량(Optional ByVal Zone As String = "00") As Decimal + Get + If Result.사용면적.H = 0 Then + Return 0 + Else + Return Me.난방에너지요구량 / Result.사용면적.H + End If + ' Return Me.난방에너지요구량열(Zone) + Me.난방에너지요구량공조환기(Zone) + End Get + End Property + + + Property 난방에너지요구량열(Optional ByVal Zone As String = "00") As Decimal + Get + Dim DR() As DSR.월별에너지분석Row = CType(DSETR.월별에너지분석.Select("월='" & Mon & "' and 존='" & IIf(Zone <> "00", Zone, ZZone).ToString & "'"), DSR.월별에너지분석Row()) + If DR.GetUpperBound(0) = -1 Then + MsgBox(ErrMsg, MsgBoxStyle.Information, "난방에너지요구량열") + Return 0 + Else + Return TOSG(DR(0)("난방요구량열")) + End If + End Get + Set(ByVal value As Decimal) + Dim DR() As DSR.월별에너지분석Row = CType(DSETR.월별에너지분석.Select("월='" & Mon & "' and 존='" & IIf(Zone <> "00", Zone, ZZone).ToString & "'"), DSR.월별에너지분석Row()) + If DR.GetUpperBound(0) = -1 Then + MsgBox(ErrMsg, MsgBoxStyle.Information, "난방에너지요구량열") + Else + DR(0)("난방요구량열") = value + End If + End Set + End Property + Property 난방에너지요구량공조환기(Optional ByVal Zone As String = "00") As Decimal + Get + Dim DR() As DSR.월별에너지분석Row = CType(DSETR.월별에너지분석.Select("월='" & Mon & "' and 존='" & IIf(Zone <> "00", Zone, ZZone).ToString & "'"), DSR.월별에너지분석Row()) + If DR.GetUpperBound(0) = -1 Then + MsgBox(ErrMsg, MsgBoxStyle.Information, "난방에너지요구량공조환기") + Return 0 + Else + Return TOSG(DR(0)("난방요구량공조")) + End If + End Get + Set(ByVal value As Decimal) + Dim DR() As DSR.월별에너지분석Row = CType(DSETR.월별에너지분석.Select("월='" & Mon & "' and 존='" & IIf(Zone <> "00", Zone, ZZone).ToString & "'"), DSR.월별에너지분석Row()) + If DR.GetUpperBound(0) = -1 Then + MsgBox(ErrMsg, MsgBoxStyle.Information, "난방에너지요구량공조환기") + Else + DR(0)("난방요구량공조") = value + End If + End Set + End Property + + ReadOnly Property 냉방에너지요구량(Optional ByVal Zone As String = "00") As Decimal + Get + Return Me.냉방에너지요구량열(CStr(IIf(Zone <> "00", Zone, ZZone))) + Me.냉방에너지요구량공조환기(CStr(IIf(Zone <> "00", Zone, ZZone))) + End Get + End Property + + ReadOnly Property 냉방단위면적당요구량(Optional ByVal Zone As String = "00") As Decimal + Get + If Result.사용면적.H = 0 Then + Return 0 + Else + Return Me.냉방에너지요구량 / Result.사용면적.C + End If + ' Return Me.난방에너지요구량열(Zone) + Me.난방에너지요구량공조환기(Zone) + End Get + End Property + + + Property 냉방에너지요구량열(Optional ByVal Zone As String = "00") As Decimal + Get + + + + Dim DR() As DSR.월별에너지분석Row = CType(DSETR.월별에너지분석.Select("월='" & Mon & "' and 존='" & IIf(Zone <> "00", Zone, ZZone).ToString & "'"), DSR.월별에너지분석Row()) + If DR.GetUpperBound(0) = -1 Then + MsgBox(ErrMsg, MsgBoxStyle.Information, "냉방에너지요구량열") + Return 0 + Else + Return TOSG(DR(0)("냉방요구량열")) + End If + End Get + Set(ByVal value As Decimal) + Dim DR() As DSR.월별에너지분석Row = CType(DSETR.월별에너지분석.Select("월='" & Mon & "' and 존='" & IIf(Zone <> "00", Zone, ZZone).ToString & "'"), DSR.월별에너지분석Row()) + If DR.GetUpperBound(0) = -1 Then + MsgBox(ErrMsg, MsgBoxStyle.Information, "냉방에너지요구량열") + Else + DR(0)("냉방요구량열") = value + End If + End Set + End Property + Property 냉방에너지요구량공조환기(Optional ByVal Zone As String = "00") As Decimal + Get + Dim DR() As DSR.월별에너지분석Row = CType(DSETR.월별에너지분석.Select("월='" & Mon & "' and 존='" & IIf(Zone <> "00", Zone, ZZone).ToString & "'"), DSR.월별에너지분석Row()) + If DR.GetUpperBound(0) = -1 Then + MsgBox(ErrMsg, MsgBoxStyle.Information, "냉방에너지요구량공조환기") + Return 0 + Else + Return TOSG(DR(0)("냉방요구량공조")) + End If + End Get + Set(ByVal value As Decimal) + Dim DR() As DSR.월별에너지분석Row = CType(DSETR.월별에너지분석.Select("월='" & Mon & "' and 존='" & IIf(Zone <> "00", Zone, ZZone).ToString & "'"), DSR.월별에너지분석Row()) + If DR.GetUpperBound(0) = -1 Then + MsgBox(ErrMsg, MsgBoxStyle.Information, "냉방에너지요구량공조환기") + Else + DR(0)("냉방요구량공조") = value + End If + End Set + End Property + + Property 조명에너지요구량(Optional ByVal Zone As String = "00") As Decimal + Get + Dim DR() As DSR.월별에너지분석Row = CType(DSETR.월별에너지분석.Select("월='" & Mon & "' and 존='" & IIf(Zone <> "00", Zone, ZZone).ToString & "'"), DSR.월별에너지분석Row()) + If DR.GetUpperBound(0) = -1 Then + MsgBox(ErrMsg, MsgBoxStyle.Information, "조명에너지요구량") + Return 0 + Else + Return TOSG(DR(0)("조명요구량")) + End If + End Get + Set(ByVal value As Decimal) + Dim DR() As DSR.월별에너지분석Row = CType(DSETR.월별에너지분석.Select("월='" & Mon & "' and 존='" & IIf(Zone <> "00", Zone, ZZone).ToString & "'"), DSR.월별에너지분석Row()) + If DR.GetUpperBound(0) = -1 Then + MsgBox(ErrMsg, MsgBoxStyle.Information, "조명에너지요구량") + Else + DR(0)("조명요구량") = value + End If + End Set + End Property + ReadOnly Property 조명단위면적당요구량(Optional ByVal Zone As String = "00") As Decimal + Get + If Result.사용면적.L = 0 Then + Return 0 + Else + Return Me.조명에너지요구량 / Result.사용면적.L + End If + ' Return Me.난방에너지요구량열(Zone) + Me.난방에너지요구량공조환기(Zone) + End Get + End Property + + Property 급탕에너지요구량(Optional ByVal Zone As String = "00") As Decimal + Get + Dim DR() As DSR.월별에너지분석Row = CType(DSETR.월별에너지분석.Select("월='" & Mon & "' and 존='" & IIf(Zone <> "00", Zone, ZZone).ToString & "'"), DSR.월별에너지분석Row()) + If DR.GetUpperBound(0) = -1 Then + MsgBox(ErrMsg, MsgBoxStyle.Information, "급탕요구량") + Return 0 + Else + Return TOSG(DR(0)("급탕요구량")) + End If + End Get + Set(ByVal value As Decimal) + Dim DR() As DSR.월별에너지분석Row = CType(DSETR.월별에너지분석.Select("월='" & Mon & "' and 존='" & IIf(Zone <> "00", Zone, ZZone).ToString & "'"), DSR.월별에너지분석Row()) + If DR.GetUpperBound(0) = -1 Then + MsgBox(ErrMsg, MsgBoxStyle.Information, "급탕요구량") + Else + DR(0)("급탕요구량") = value + End If + End Set + End Property + ReadOnly Property 급탕단위면적당요구량(Optional ByVal Zone As String = "00") As Decimal + Get + If Result.사용면적.W = 0 Then + Return 0 + Else + Return Me.급탕에너지요구량 / Result.사용면적.W + End If + ' Return Me.난방에너지요구량열(Zone) + Me.난방에너지요구량공조환기(Zone) + End Get + End Property + Property 공조풍량(Optional ByVal Zone As String = "00") As Decimal + Get + Dim DR() As DSR.월별에너지분석Row = CType(DSETR.월별에너지분석.Select("월='" & Mon & "' and 존='" & IIf(Zone <> "00", Zone, ZZone).ToString & "'"), DSR.월별에너지분석Row()) + If DR.GetUpperBound(0) = -1 Then + MsgBox(ErrMsg, MsgBoxStyle.Information, "공조풍량") + Return 0 + Else + Return TOSG(DR(0)("공조풍량")) + End If + End Get + Set(ByVal value As Decimal) + Dim DR() As DSR.월별에너지분석Row = CType(DSETR.월별에너지분석.Select("월='" & Mon & "' and 존='" & IIf(Zone <> "00", Zone, ZZone).ToString & "'"), DSR.월별에너지분석Row()) + If DR.GetUpperBound(0) = -1 Then + MsgBox(ErrMsg, MsgBoxStyle.Information, "공조풍량") + Else + DR(0)("공조풍량") = value + End If + End Set + End Property + Property 공조에너지요구량난방(Optional ByVal Zone As String = "00") As Decimal + Get + Dim DR() As DSR.월별에너지분석Row = CType(DSETR.월별에너지분석.Select("월='" & Mon & "' and 존='" & IIf(Zone <> "00", Zone, ZZone).ToString & "'"), DSR.월별에너지분석Row()) + If DR.GetUpperBound(0) = -1 Then + MsgBox(ErrMsg, MsgBoxStyle.Information, "공조에너지요구량난방") + Return 0 + Else + Return TOSG(DR(0)("공조요구량난방")) + End If + End Get + Set(ByVal value As Decimal) + Dim DR() As DSR.월별에너지분석Row = CType(DSETR.월별에너지분석.Select("월='" & Mon & "' and 존='" & IIf(Zone <> "00", Zone, ZZone).ToString & "'"), DSR.월별에너지분석Row()) + If DR.GetUpperBound(0) = -1 Then + MsgBox(ErrMsg, MsgBoxStyle.Information, "공조에너지요구량난방") + Else + DR(0)("공조요구량난방") = value + End If + End Set + End Property + Property 공조에너지요구량냉방(Optional ByVal Zone As String = "00") As Decimal + Get + Dim DR() As DSR.월별에너지분석Row = CType(DSETR.월별에너지분석.Select("월='" & Mon & "' and 존='" & IIf(Zone <> "00", Zone, ZZone).ToString & "'"), DSR.월별에너지분석Row()) + If DR.GetUpperBound(0) = -1 Then + MsgBox(ErrMsg) + Return 0 + Else + Return TOSG(DR(0)("공조요구량냉방")) + End If + End Get + Set(ByVal value As Decimal) + Dim DR() As DSR.월별에너지분석Row = CType(DSETR.월별에너지분석.Select("월='" & Mon & "' and 존='" & IIf(Zone <> "00", Zone, ZZone).ToString & "'"), DSR.월별에너지분석Row()) + If DR.GetUpperBound(0) = -1 Then + MsgBox(ErrMsg) + Else + DR(0)("공조요구량냉방") = value + End If + End Set + End Property + Property 공조에너지요구량가습(Optional ByVal Zone As String = "00") As Decimal + Get + Dim DR() As DSR.월별에너지분석Row = CType(DSETR.월별에너지분석.Select("월='" & Mon & "' and 존='" & IIf(Zone <> "00", Zone, ZZone).ToString & "'"), DSR.월별에너지분석Row()) + If DR.GetUpperBound(0) = -1 Then + MsgBox(ErrMsg) + Return 0 + Else + Return TOSG(DR(0)("공조요구량가습")) + End If + End Get + Set(ByVal value As Decimal) + Dim DR() As DSR.월별에너지분석Row = CType(DSETR.월별에너지분석.Select("월='" & Mon & "' and 존='" & IIf(Zone <> "00", Zone, ZZone).ToString & "'"), DSR.월별에너지분석Row()) + If DR.GetUpperBound(0) = -1 Then + MsgBox(ErrMsg) + Else + DR(0)("공조요구량가습") = value + End If + End Set + End Property + Property 환기에너지요구량(Optional ByVal Zone As String = "00") As Decimal + Get + Dim DR() As DSR.월별에너지분석Row = CType(DSETR.월별에너지분석.Select("월='" & Mon & "' and 존='" & IIf(Zone = "00", ZZone, Zone).ToString & "'"), DSR.월별에너지분석Row()) + If DR.GetUpperBound(0) = -1 Then + MsgBox(ErrMsg) + Return 0 + Else + Return TOSG(DR(0)("환기요구량")) + End If + End Get + Set(ByVal value As Decimal) + Dim DR() As DSR.월별에너지분석Row = CType(DSETR.월별에너지분석.Select("월='" & Mon & "' and 존='" & IIf(Zone <> "00", Zone, ZZone).ToString & "'"), DSR.월별에너지분석Row()) + If DR.GetUpperBound(0) = -1 Then + MsgBox(ErrMsg) + Else + DR(0)("환기요구량") = value + End If + End Set + End Property + Public Sub Calc() + '//Zone 이 00일떄만 계산된다 + + '//여기데이터는 12개가 미리존재한다 그러므로 현재 속한 월말 계산하면된다 + '//현재 월 존에해당하는 데이터가없다면 생성해준다. + Dim Drow As DSR.월별에너지분석Row + If DSETR.월별에너지분석.Select("월='" & Mon & "' and 존='00'").GetUpperBound(0) = -1 Then + Drow = DSETR.월별에너지분석.New월별에너지분석Row + Drow.존 = "00" + Drow.월 = Mon + DSETR.월별에너지분석.Add월별에너지분석Row(Drow) '//기본줄을 추가함 + DSETR.AcceptChanges() + End If + + Dim a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12 As Decimal + a2 = 0 : a3 = 0 : a4 = 0 : a5 = 0 : a6 = 0 + a7 = 0 : a8 = 0 : a9 = 0 : a10 = 0 : a11 = 0 : a12 = 0 + For Each Dr As DSR.월별에너지분석Row In DSETR.월별에너지분석.Select("월='" & Mon & "' and 존 <> '00'", "존") + '//존별로 에너지요구량 최상단 합데이터를 갱신한다. + 'Dr.에너지요구량 = Dr.난방요구량열 + Dr.난방요구량공조 + Dr.냉방요구량열 + Dr.냉방요구량공조 + Dr.조명요구량 + Dr.급탕요구량 + 'a1 = a1 + Dr.에너지요구량 + a2 = a2 + Dr.난방요구량열 + a3 = a3 + Dr.난방요구량공조 + a4 = a4 + Dr.냉방요구량열 + a5 = a5 + Dr.냉방요구량공조 + a6 = a6 + Dr.조명요구량 + a7 = a7 + Dr.급탕요구량 + a8 = a8 + Dr.공조풍량 + a9 = a9 + Dr.공조요구량난방 + a10 = a10 + Dr.공조요구량냉방 + a11 = a11 + Dr.공조요구량가습 + a12 = a12 + Dr.환기요구량 + Next + + 'Me.에너지요구량 = a2 + a3 + a4 + a5 + a6 + a7 ㅇ건 Readonlye 로 계산한다. + + Me.난방에너지요구량열 = a2 + Me.난방에너지요구량공조환기 = a3 + Me.냉방에너지요구량열 = a4 + Me.냉방에너지요구량공조환기 = a5 + Me.조명에너지요구량 = a6 + Me.급탕에너지요구량 = a7 + Me.공조풍량 = a8 + Me.공조에너지요구량난방 = a9 + Me.공조에너지요구량냉방 = a10 + Me.공조에너지요구량가습 = a11 + Me.환기에너지요구량 = a12 + ' Next + + End Sub +End Class diff --git a/ArinWarev1/Calculator/Result/C에너지소요량.vb b/ArinWarev1/Calculator/Result/C에너지소요량.vb new file mode 100644 index 0000000..5aaaa11 --- /dev/null +++ b/ArinWarev1/Calculator/Result/C에너지소요량.vb @@ -0,0 +1,401 @@ +Public Class C에너지소요량 + + + Dim Midx As Integer + Public Mon As String + Private ErrMsg As String = "에너지소요량 계산되지 않았습니다" + Private DSETR As DSR + Private Result As CResult + Public Sub New(ByRef pdsetr As DSR, ByRef presult As CResult, Optional ByVal pmIdx As Integer = 0) + DSETR = pdsetr + Result = presult + Mon = "M" & Format(pmIdx, "00") + Me.Midx = pmIdx + End Sub + + Public Sub Calc_Summary() + If Midx <> 0 Then + MsgBox("계산식은 0번 합계필드만 가능합니다.", MsgBoxStyle.Critical, "확인") + Return + End If + Dim I10 As Decimal = 0 + Dim I20 As Decimal = 0 + Dim I30 As Decimal = 0 + Dim I40 As Decimal = 0 + Dim I50 As Decimal = 0 + Dim I60 As Decimal = 0 + + Dim IH As Decimal = 0 + Dim IC As Decimal = 0 + Dim IL As Decimal = 0 + Dim IW As Decimal = 0 + Dim IV As Decimal = 0 + + Dim I4 As Decimal = 0 '//난방 + Dim I5 As Decimal = 0 '//냉방 + Dim I6 As Decimal = 0 '//조명 + Dim I7 As Decimal = 0 '//급탕 + Dim I8 As Decimal = 0 '//환기 + + For i As Integer = 1 To 12 + '//12월을 다더해서 0번열에 기록한다. + I10 += Result.E소요량(i).난방 + I20 += Result.E소요량(i).난방보조 + I30 += Result.E소요량(i).냉방 + I40 += Result.E소요량(i).냉방보조 + I50 += Result.E소요량(i).급탕 + I60 += Result.E소요량(i).급탕보조 + + IH += Result.E소요량(i).난방S + IC += Result.E소요량(i).냉방S + IL += Result.E소요량(i).조명S + IW += Result.E소요량(i).급탕S + IV += Result.E소요량(i).환기S + + I4 += Result.일차E소요량(i).난방전력 + I5 += Result.일차E소요량(i).냉방전력 + I6 += Result.일차E소요량(i).조명전력 + I7 += Result.일차E소요량(i).급탕전력 + I8 += Result.일차E소요량(i).환기전력 + Next + + Me.난방 = I10 + Me.난방보조 = I20 + Me.냉방 = I30 + Me.냉방보조 = I40 + Me.급탕 = I50 + 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 + End If + + End Sub + + + ReadOnly Property 소요량() As Decimal + Get + Return 난방S + 냉방S + 조명S + 환기S + 급탕S + End Get + End Property + + ReadOnly Property 면적소요량() As Decimal + Get + Return 난방면적 + 냉방면적 + 조명면적 + 급탕면적 + 환기면적 + End Get + + End Property + Property 난방S() As Decimal + Get + If Midx = 0 Then + Dim DR() As DSR.에너지소요량Row = CType(DSETR.에너지소요량.Select("mon='" & Mon & "'"), DSR.에너지소요량Row()) + If DR.GetUpperBound(0) = -1 Then + MsgBox(ErrMsg) + Return 0 + Else + Return TOSG(DR(0)("난방")) + End If + Else + Return 난방 + 난방보조 + End If + End Get + Set(ByVal value As Decimal) + Dim DR() As DSR.에너지소요량Row = CType(DSETR.에너지소요량.Select("mon='" & Mon & "'"), DSR.에너지소요량Row()) + If DR.GetUpperBound(0) = -1 Then + MsgBox(ErrMsg) + Else + DR(0)("난방") = value + End If + End Set + End Property + + Property 난방() As Decimal + Get + Dim DR() As DSR.에너지소요량Row = CType(DSETR.에너지소요량.Select("mon='" & Mon & "'"), DSR.에너지소요량Row()) + If DR.GetUpperBound(0) = -1 Then + MsgBox(ErrMsg) + Return 0 + Else + Return TOSG(DR(0)("난방에너지소요량")) + End If + End Get + Set(ByVal value As Decimal) + Dim DR() As DSR.에너지소요량Row = CType(DSETR.에너지소요량.Select("mon='" & Mon & "'"), DSR.에너지소요량Row()) + If DR.GetUpperBound(0) = -1 Then + MsgBox(ErrMsg) + Else + DR(0)("난방에너지소요량") = value + End If + End Set + End Property + Property 난방보조() As Decimal + Get + Dim DR() As DSR.에너지소요량Row = CType(DSETR.에너지소요량.Select("mon='" & Mon & "'"), DSR.에너지소요량Row()) + If DR.GetUpperBound(0) = -1 Then + MsgBox(ErrMsg) + Return 0 + Else + Return TOSG(DR(0)("난방보조에너지소요량")) + 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 + ReadOnly Property 난방면적() As Decimal + Get + If Result.사용면적.H = 0 Then + Return 0 + Else + Return Me.난방S / Result.사용면적.H + End If + End Get + End Property + Property 냉방S() As Decimal + Get + If Midx = 0 Then + Dim DR() As DSR.에너지소요량Row = CType(DSETR.에너지소요량.Select("mon='" & Mon & "'"), DSR.에너지소요량Row()) + If DR.GetUpperBound(0) = -1 Then + MsgBox(ErrMsg) + Return 0 + Else + Return TOSG(DR(0)("냉방")) + End If + Else + Return 냉방 + 냉방보조 + End If + End Get + Set(ByVal value As Decimal) + Dim DR() As DSR.에너지소요량Row = CType(DSETR.에너지소요량.Select("mon='" & Mon & "'"), DSR.에너지소요량Row()) + If DR.GetUpperBound(0) = -1 Then + MsgBox(ErrMsg) + Else + DR(0)("냉방") = value + End If + End Set + End Property + Property 냉방() As Decimal + Get + Dim DR() As DSR.에너지소요량Row = CType(DSETR.에너지소요량.Select("mon='" & Mon & "'"), DSR.에너지소요량Row()) + If DR.GetUpperBound(0) = -1 Then + MsgBox(ErrMsg) + Return 0 + Else + Return TOSG(DR(0)("냉방에너지소요량")) + End If + End Get + Set(ByVal value As Decimal) + Dim DR() As DSR.에너지소요량Row = CType(DSETR.에너지소요량.Select("mon='" & Mon & "'"), DSR.에너지소요량Row()) + If DR.GetUpperBound(0) = -1 Then + MsgBox(ErrMsg) + Else + DR(0)("냉방에너지소요량") = value + End If + End Set + End Property + Property 냉방보조() As Decimal + Get + Dim DR() As DSR.에너지소요량Row = CType(DSETR.에너지소요량.Select("mon='" & Mon & "'"), DSR.에너지소요량Row()) + If DR.GetUpperBound(0) = -1 Then + MsgBox(ErrMsg) + Return 0 + Else + Return TOSG(DR(0)("냉방보조에너지소요량")) + 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 + ReadOnly Property 냉방면적() As Decimal + Get + If Result.사용면적.C = 0 Then + Return 0 + Else + Return Me.냉방S / Result.사용면적.C + End If + End Get + End Property + Property 조명S() As Decimal + Get + If Midx = 0 Then + Dim DR() As DSR.에너지소요량Row = CType(DSETR.에너지소요량.Select("mon='" & Mon & "'"), DSR.에너지소요량Row()) + If DR.GetUpperBound(0) = -1 Then + MsgBox(ErrMsg) + Return 0 + Else + Return TOSG(DR(0)("조명")) + End If + Else + Return Result.E분석(Midx).조명에너지요구량 + 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 + ReadOnly Property 조명면적() As Decimal + Get + If Result.사용면적.L = 0 Then + Return 0 + Else + Return Me.조명S / Result.사용면적.L + End If + End Get + End Property + + Property 급탕S() As Decimal + Get + If Midx = 0 Then + Dim DR() As DSR.에너지소요량Row = CType(DSETR.에너지소요량.Select("mon='" & Mon & "'"), DSR.에너지소요량Row()) + If DR.GetUpperBound(0) = -1 Then + MsgBox(ErrMsg) + Return 0 + Else + Return TOSG(DR(0)("급탕")) + End If + Else + Return 급탕 + 급탕보조 + End If + End Get + Set(ByVal value As Decimal) + Dim DR() As DSR.에너지소요량Row = CType(DSETR.에너지소요량.Select("mon='" & Mon & "'"), DSR.에너지소요량Row()) + If DR.GetUpperBound(0) = -1 Then + MsgBox(ErrMsg) + Else + DR(0)("급탕") = value + End If + End Set + End Property + Property 급탕() As Decimal + Get + Dim DR() As DSR.에너지소요량Row = CType(DSETR.에너지소요량.Select("mon='" & Mon & "'"), DSR.에너지소요량Row()) + If DR.GetUpperBound(0) = -1 Then + MsgBox(ErrMsg) + Return 0 + Else + + '#If DEBUG Then + ' Dim f As String = "c:\temp\1\급탕에너지소요량.txt" + ' Dim b As New System.Text.StringBuilder + ' If System.IO.File.Exists(f) = False Then + ' b.AppendLine("Mon 급탕에너지소요량") + ' End If + ' b.AppendLine(Mon + vbTab + DR(0)("급탕에너지소요량").ToString) + ' My.Computer.FileSystem.WriteAllText(f, b.ToString, True) + '#End If + + Return TOSG(DR(0)("급탕에너지소요량")) + End If + End Get + Set(ByVal value As Decimal) + Dim DR() As DSR.에너지소요량Row = CType(DSETR.에너지소요량.Select("mon='" & Mon & "'"), DSR.에너지소요량Row()) + If DR.GetUpperBound(0) = -1 Then + MsgBox(ErrMsg) + Else + DR(0)("급탕에너지소요량") = value + End If + End Set + End Property + Property 급탕보조() As Decimal + Get + Dim DR() As DSR.에너지소요량Row = CType(DSETR.에너지소요량.Select("mon='" & Mon & "'"), DSR.에너지소요량Row()) + If DR.GetUpperBound(0) = -1 Then + MsgBox(ErrMsg) + Return 0 + Else + +#If DEBUG Then + 'Dim f As String = "c:\temp\1\급탕보조에너지소요량.txt" + 'Dim b As New System.Text.StringBuilder + 'If System.IO.File.Exists(f) = False Then + ' b.AppendLine("Mon 급탕보조에너지소요량") + 'End If + 'b.AppendLine(Mon + vbTab + DR(0)("급탕보조에너지소요량").ToString) + 'My.Computer.FileSystem.WriteAllText(f, b.ToString, True) +#End If + + Return TOSG(DR(0)("급탕보조에너지소요량")) + 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 + ReadOnly Property 급탕면적() As Decimal + Get + If Result.사용면적.W = 0 Then + Return 0 + Else + + '#If DEBUG Then + ' Dim f As String = "c:\temp\1\급탕면적.txt" + ' Dim b As New System.Text.StringBuilder + ' If System.IO.File.Exists(f) = False Then + ' b.AppendLine("급탕S 사용면적") + ' End If + ' b.AppendLine(급탕S.ToString() + vbTab + Result.사용면적.W.ToString) + ' My.Computer.FileSystem.WriteAllText(f, b.ToString, True) + '#End If + + Return 급탕S / Result.사용면적.W + End If + End Get + End Property + Property 환기S() As Decimal + Get + If Midx = 0 Then + Dim DR() As DSR.에너지소요량Row = CType(DSETR.에너지소요량.Select("mon='" & Mon & "'"), DSR.에너지소요량Row()) + If DR.GetUpperBound(0) = -1 Then + MsgBox(ErrMsg) + Return 0 + Else + Return TOSG(DR(0)("환기")) + End If + Else + Return Result.E분석(Midx).환기에너지요구량 + 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 + ReadOnly Property 환기면적() As Decimal + Get + If Result.사용면적.V = 0 Then + Return 0 + Else + Return 환기S / Result.사용면적.V + End If + End Get + End Property +End Class diff --git a/ArinWarev1/Calculator/Result/C에너지요구량.vb b/ArinWarev1/Calculator/Result/C에너지요구량.vb new file mode 100644 index 0000000..c0b3d03 --- /dev/null +++ b/ArinWarev1/Calculator/Result/C에너지요구량.vb @@ -0,0 +1,224 @@ +Public Class C에너지요구량 + + Dim Midx As Integer + Public Mon As String + Private ErrMsg As String = "에너지요구량 계산되지 않았습니다" + Private Result As CResult + Public Sub New(ByRef presult As CResult, Optional ByVal pmIdx As Integer = 0) + Result = presult + Mon = "M" & Format(pmIdx, "00") + Me.Midx = pmIdx + End Sub + + ReadOnly Property 요구량() As Decimal + Get + If Midx = 0 Then '//누적데이터 + Dim R As Decimal = 0 + For i As Integer = 1 To 12 + R += Result.E요구량(i).요구량 + Next + Return R + Else + Return 난방요구량 + 냉방요구량 + 조명요구량 + 급탕요구량 + End If + End Get + End Property + ReadOnly Property 면적당요구량() As Decimal + Get + If Midx = 0 Then '//누적데이터 + Dim R As Decimal = 0 + For i As Integer = 1 To 12 + R += Result.E요구량(i).면적당요구량 + Next + Return R + Else + Return 난방면적 + 냉방면적 + 조명면적 + 급탕면적 + End If + End Get + End Property + +#Region "난방요구량" + ReadOnly Property 난방요구량() As Decimal + Get + If Midx = 0 Then '//누적데이터 + Dim R As Decimal = 0 + For i As Integer = 1 To 12 + R += Result.E요구량(i).난방요구량 + Next + Return R + Else + Return Me.난방열 + Me.난방공조 + End If + End Get + End Property + ReadOnly Property 난방열() As Decimal + Get '//월별 에너지분석에서 난방요구량 + If Midx = 0 Then + Dim R As Decimal = 0 + For i As Integer = 1 To 12 + R += Result.E분석(i).난방에너지요구량열 + Next + Return R + Else + Return Result.E분석(Midx).난방에너지요구량열 + End If + End Get + End Property + ReadOnly Property 난방공조() As Decimal + Get '//월별 에너지분석에서 난방요구량 + If Midx = 0 Then + Dim R As Decimal = 0 + For i As Integer = 1 To 12 + R += Result.E분석(i).난방에너지요구량공조환기 + Next + Return R + Else + Return Result.E분석(Midx).난방에너지요구량공조환기 + End If + End Get + End Property + ReadOnly Property 난방면적() As Decimal + Get '//월별 에너지분석에서 난방요구량 + If Midx = 0 Then + Dim R As Decimal = 0 + For i As Integer = 1 To 12 + R += Result.E요구량(i).난방면적 + Next + Return R + Else + If Result.사용면적.H = 0 Then + Return 0 + Else + Return Me.난방요구량 / Result.사용면적.H + End If + End If + End Get + End Property +#End Region + +#Region "냉방요구량" + ReadOnly Property 냉방요구량() As Decimal + Get + If Midx = 0 Then '//누적데이터 + Dim R As Decimal = 0 + For i As Integer = 1 To 12 + R += Result.E요구량(i).냉방요구량 + Next + Return R + Else + Return Me.냉방열 + Me.냉방공조 + End If + End Get + End Property + ReadOnly Property 냉방열() As Decimal + Get '//월별 에너지분석에서 난방요구량 + If Midx = 0 Then + Dim R As Decimal = 0 + For i As Integer = 1 To 12 + R += Result.E분석(i).냉방에너지요구량열 + Next + Return R + Else + Return Result.E분석(Midx).냉방에너지요구량열 + End If + End Get + End Property + ReadOnly Property 냉방공조() As Decimal + Get '//월별 에너지분석에서 난방요구량 + If Midx = 0 Then + Dim R As Decimal = 0 + For i As Integer = 1 To 12 + R += Result.E분석(i).냉방에너지요구량공조환기 + Next + Return R + Else + Return Result.E분석(Midx).냉방에너지요구량공조환기 + End If + End Get + End Property + ReadOnly Property 냉방면적() As Decimal + Get '//월별 에너지분석에서 난방요구량 + If Midx = 0 Then + Dim R As Decimal = 0 + For i As Integer = 1 To 12 + R += Result.E요구량(i).냉방면적 + Next + Return R + Else + If Result.사용면적.C = 0 Then + Return 0 + Else + Return Me.냉방요구량 / Result.사용면적.C + End If + End If + End Get + End Property +#End Region + +#Region "조명요구량" + ReadOnly Property 조명요구량() As Decimal + Get + If Midx = 0 Then '//누적데이터 + Dim R As Decimal = 0 + For i As Integer = 1 To 12 + R += Result.E요구량(i).조명요구량 + Next + Return R + Else + Return Result.E분석(Midx).조명에너지요구량 + End If + End Get + End Property + ReadOnly Property 조명면적() As Decimal + Get '//월별 에너지분석에서 난방요구량 + If Midx = 0 Then + Dim R As Decimal = 0 + For i As Integer = 1 To 12 + R += Result.E요구량(i).조명면적 + Next + Return R + Else + If Result.사용면적.L = 0 Then + Return 0 + Else + Return Me.조명요구량 / Result.사용면적.L + End If + End If + End Get + End Property +#End Region + +#Region "급탕요구량" + ReadOnly Property 급탕요구량() As Decimal + Get + If Midx = 0 Then '//누적데이터 + Dim R As Decimal = 0 + For i As Integer = 1 To 12 + R += Result.E요구량(i).급탕요구량 + Next + Return R + Else + Return Result.E분석(Midx).급탕에너지요구량 + End If + End Get + End Property + ReadOnly Property 급탕면적() As Decimal + Get '//월별 에너지분석에서 난방요구량 + If Midx = 0 Then + Dim R As Decimal = 0 + For i As Integer = 1 To 12 + R += Result.E요구량(i).급탕면적 + Next + Return R + Else + If Result.사용면적.W = 0 Then + Return 0 + Else + Return Me.급탕요구량 / Result.사용면적.W + End If + End If + End Get + End Property +#End Region + +End Class diff --git a/ArinWarev1/Calculator/Result/C최대냉난방부하.vb b/ArinWarev1/Calculator/Result/C최대냉난방부하.vb new file mode 100644 index 0000000..8a39f91 --- /dev/null +++ b/ArinWarev1/Calculator/Result/C최대냉난방부하.vb @@ -0,0 +1,264 @@ + +Public Class C최대냉난방부하 + Private DSETR As DSR + Public Sub New(ByRef pdsetr As DSR) '//존은초기화값을 가지고 생성한다. + DSETR = pdsetr + End Sub + Public Function Item(Optional ByVal ZoneCode As String = "00") As Citem + Return New Citem(DSETR, ZoneCode) + End Function + + Public Sub Calc_Summary() + '//Zone 이 00일떄만 계산된다 + + Dim a1, a2, a3, a4, a5, a6, a7, a8, a9, a10 As Decimal + a1 = 0 : a2 = 0 : a3 = 0 : a4 = 0 : a5 = 0 : a6 = 0 + a7 = 0 : a8 = 0 : a9 = 0 : a10 = 0 + Dim Exist As Boolean = False + + For Each Dr As DSR.최대냉난방부하Row In DSETR.최대냉난방부하.Select("Zone <> '00'", "Zone") + If Exist = False Then Exist = True + ' Dr.최대냉난방부하 = Dr.최대난방기기부하 + Dr.최대냉방기기부하 + a1 += Dr.최대난방기기부하 + a2 += Dr.최대난방실내부하 + 'a3 += Dr.난방최대가동시간 + a4 += Dr.최대가열성능 + a5 += Dr.최대냉방기기부하 + a6 += Dr.최대냉방실내부하 + 'a7 += Dr.냉방최대가동시간 + a8 += Dr.최대냉각성능 + a9 += Dr.최대가습성능 + a10 += Dr.공조풍량 + Next + + If Exist = False Then + MsgBox("각존별 계산이 되어있지않아서 값을 계산할 수 없습니다", MsgBoxStyle.Critical, "확인") + Return + End If + + Me.Item("00").최대난방기기부하 = a1 + Me.Item("00").최대난방실내부하 = a2 + Me.Item("00").일일난방최대가동시간 = a3 + Me.Item("00").최대가열성능 = a4 + Me.Item("00").최대냉방기기부하 = a5 + Me.Item("00").최대냉방실내부하 = a6 + Me.Item("00").일일냉방최대가동시간 = a7 + Me.Item("00").최대냉각성능 = a8 + Me.Item("00").최대가습성능 = a9 + Me.Item("00").공조풍량 = a10 + + End Sub + + Public Class Citem + Private Zone As String + Dim ErrMsg As String = "최대냉난방부하가 계산되지 않았습니다" + Private DSETR As DSR + Public Sub New(ByRef pdsetr As DSR, Optional ByVal pZone As String = "00") '//존은초기화값을 가지고 생성한다. + DSETR = pdsetr + Zone = pZone + End Sub + ReadOnly Property 최대냉난방부하() As Decimal + Get + Dim DR() As DSR.최대냉난방부하Row = CType(DSETR.최대냉난방부하.Select("zone='" & Zone & "'"), DSR.최대냉난방부하Row()) + If DR.GetUpperBound(0) = -1 Then + MsgBox(ErrMsg) + Return 0 + Else + Return TOSG(Me.최대난방기기부하 + Me.최대냉방기기부하) + End If + End Get + End Property + Property 최대난방기기부하() As Decimal + Get + Dim DR() As DSR.최대냉난방부하Row = CType(DSETR.최대냉난방부하.Select("zone='" & Zone & "'"), DSR.최대냉난방부하Row()) + If DR.GetUpperBound(0) = -1 Then + MsgBox(ErrMsg) + Return 0 + Else + Return TOSG(DR(0)("최대난방기기부하")) + End If + End Get + Set(ByVal value As Decimal) + Dim DR() As DSR.최대냉난방부하Row = CType(DSETR.최대냉난방부하.Select("zone='" & Zone & "'"), 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("zone='" & Zone & "'"), DSR.최대냉난방부하Row()) + If DR.GetUpperBound(0) = -1 Then + MsgBox(ErrMsg) + Return 0 + Else + Return TOSG(DR(0)("최대난방실내부하")) + End If + + End Get + Set(ByVal value As Decimal) + Dim DR() As DSR.최대냉난방부하Row = CType(DSETR.최대냉난방부하.Select("zone='" & Zone & "'"), 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("zone='" & Zone & "'"), DSR.최대냉난방부하Row()) + If DR.GetUpperBound(0) = -1 Then + MsgBox(ErrMsg) + Return 0 + Else + Return TOSG(DR(0)("난방최대가동시간")) + End If + End Get + Set(ByVal value As Decimal) + Dim DR() As DSR.최대냉난방부하Row = CType(DSETR.최대냉난방부하.Select("zone='" & Zone & "'"), 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("zone='" & Zone & "'"), DSR.최대냉난방부하Row()) + If DR.GetUpperBound(0) = -1 Then + MsgBox(ErrMsg) + Return 0 + Else + Return TOSG(DR(0)("최대가열성능")) + End If + End Get + Set(ByVal value As Decimal) + Dim DR() As DSR.최대냉난방부하Row = CType(DSETR.최대냉난방부하.Select("zone='" & Zone & "'"), 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("zone='" & Zone & "'"), DSR.최대냉난방부하Row()) + If DR.GetUpperBound(0) = -1 Then + MsgBox(ErrMsg) + Return 0 + Else + Return TOSG(DR(0)("최대냉방기기부하")) + End If + End Get + Set(ByVal value As Decimal) + Dim DR() As DSR.최대냉난방부하Row = CType(DSETR.최대냉난방부하.Select("zone='" & Zone & "'"), 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("zone='" & Zone & "'"), DSR.최대냉난방부하Row()) + If DR.GetUpperBound(0) = -1 Then + MsgBox(ErrMsg) + Return 0 + Else + Return TOSG(DR(0)("최대냉방실내부하")) + End If + End Get + Set(ByVal value As Decimal) + Dim DR() As DSR.최대냉난방부하Row = CType(DSETR.최대냉난방부하.Select("zone='" & Zone & "'"), 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("zone='" & Zone & "'"), DSR.최대냉난방부하Row()) + If DR.GetUpperBound(0) = -1 Then + MsgBox(ErrMsg) + Return 0 + Else + Return TOSG(DR(0)("냉방최대가동시간")) + End If + End Get + Set(ByVal value As Decimal) + Dim DR() As DSR.최대냉난방부하Row = CType(DSETR.최대냉난방부하.Select("zone='" & Zone & "'"), 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("zone='" & Zone & "'"), DSR.최대냉난방부하Row()) + If DR.GetUpperBound(0) = -1 Then + MsgBox(ErrMsg) + Return 0 + Else + Return TOSG(DR(0)("최대냉각성능")) + End If + End Get + Set(ByVal value As Decimal) + Dim DR() As DSR.최대냉난방부하Row = CType(DSETR.최대냉난방부하.Select("zone='" & Zone & "'"), 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("zone='" & Zone & "'"), DSR.최대냉난방부하Row()) + If DR.GetUpperBound(0) = -1 Then + MsgBox(ErrMsg) + Return 0 + Else + Return TOSG(DR(0)("최대가습성능")) + End If + End Get + Set(ByVal value As Decimal) + Dim DR() As DSR.최대냉난방부하Row = CType(DSETR.최대냉난방부하.Select("zone='" & Zone & "'"), 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("zone='" & Zone & "'"), DSR.최대냉난방부하Row()) + If DR.GetUpperBound(0) = -1 Then + MsgBox(ErrMsg) + Return 0 + Else + Return TOSG(DR(0)("공조풍량")) + End If + End Get + Set(ByVal value As Decimal) + Dim DR() As DSR.최대냉난방부하Row = CType(DSETR.최대냉난방부하.Select("zone='" & Zone & "'"), DSR.최대냉난방부하Row()) + If DR.GetUpperBound(0) = -1 Then + MsgBox(ErrMsg) + Else + DR(0)("공조풍량") = value + End If + End Set + End Property + End Class + +End Class diff --git a/ArinWarev1/Calculator/Summary/CSummary.vb b/ArinWarev1/Calculator/Summary/CSummary.vb new file mode 100644 index 0000000..945d517 --- /dev/null +++ b/ArinWarev1/Calculator/Summary/CSummary.vb @@ -0,0 +1,899 @@ +Public Class CSummary + + Public Sub New() + + End Sub + + ''' + ''' 모든 집계데이터를 갱신합니다. + ''' + ''' + Public Sub All() + + ''TMon() + '/// + + Work_msg("최종데이터 집계중...") + Frm_Work.ProgressBar1.Maximum = 12 + Frm_Work.ProgressBar1.Minimum = 0 + Frm_Work.ProgressBar1.Value = 0 + Frm_Work.ProgressBar1.Visible = False + Frm_Work.TopMost = True + Frm_Work.Show() + + + For Each Dr As C에너지분석 In Result.E분석 '//12달치의 각존들의 데이터를 가지고 합계내역을 추린다. '//LoadOfZone 에서 계산완료한다. + Dr.Calc() + Next + Result.최대부하.Calc_Summary() '//최대냉난방부하(합계-zone='00') 계산 + 'Result.생산E(0).Calc_Summary() '//합계필드(M00)에데이터를 누적합니다. + Result.일차E소요량(0).Calc_Summary() '//1차소요량의 합계데이터를 계산 + Result.E소요량(0).Calc_Summary() '//1차소요량의 합계데이터를 계산 + + 'TReqUse_M01M12() '//이것들은 현재 사용하지 않고있다. + 'TReqUse_M00() '//현재 사용하지않고있따. + + Me.Make_ResultSheet() '//최종결과를 보여주는 시트를 작성한다. + DSETR.AcceptChanges() '//변경된모든내용을 적용함 + End Sub + +#Region "미사용개체" + + ''' + ''' 1월부터 10월까지 집계데이터를 계산한다. + ''' + ''' + Public Sub TReqUse_M01M12() + Dim MOn As String + For i As Short = 1 To 12 + 'MOn = "M" & Format(i, "00") + 'Dim DR() As DSR.TReqUseRow = CType(DSETR.TReqUse.Select("", "code"), DSR.TReqUseRow()) + + + ''//////////////////////////////////// + '' 연간 Co2 배출량 + ''//////////////////////////////////// + + ''조명/환기에너지소요량 + 'DR(56 - 1)(MOn) = CType(DSETR.월별에너지분석.Select("월='" & MOn & "' and 존='00'")(0), DSR.월별에너지분석Row).조명요구량 + 'DR(57 - 1)(MOn) = CType(DSETR.월별에너지분석.Select("월='" & MOn & "' and 존='00'")(0), DSR.월별에너지분석Row).환기요구량 + + ''//SUMProduct 계산 + 'Dim Acc1 as decimal = 0 + 'Dim Acc2 as decimal = 0 + 'For j As Short = 41 To 57 + ' Acc1 += Ru(j, MOn) * Ru(j, "sign") + 'Next + 'For j As Short = 58 To 59 + ' Acc2 += Ru(j, MOn) * Ru(j, "sign") + 'Next + 'Ru(ResultRow.CO2_연간배출량, MOn) = Acc1 - Acc2 '//최상단 합계(연가Co2배출량 + + ''//Excel 67번줄데이터가 필요하므로 먼저계산한다..해당데이터는 마지막(64번줄에 할당함) + ''//(I95+I96)/(I76+I82+I88+I90+I92)*$C$76 + 'Ru(64, MOn) = (Ru(58, MOn) + Ru(59, MOn)) / (Ru(45, MOn) + Ru(50, MOn) + Ru(55, MOn) + Ru(56, MOn) + Ru(57, MOn)) * Ru(45, "sign") + + ''//난방에너지소요량(계수(sign)* Sumproduct) + 'Dim ACc_Nan as decimal = 0 + 'For j As Short = 41 To 45 + ' ACc_Nan += CSng(DR(j - 1)(MOn)) * CSng(DR(j - 1)("sign")) + 'Next + + 'Dim ACc_Naeng as decimal = 0 + 'For j As Short = 46 To 50 + ' ACc_Naeng += CSng(DR(j - 1)(MOn)) * CSng(DR(j - 1)("sign")) + 'Next + + 'Dim ACc_KUb as decimal = 0 + 'For j As Short = 51 To 55 + ' ACc_KUb += CSng(DR(j - 1)(MOn)) * CSng(DR(j - 1)("sign")) + 'Next + + + ''//67>64 + ''IF(csng(ru(7,"00"))=0,0,(ACc_Nan-ru(45,mon)*ru(64,mon))/$H$15)+IF($H$20=0,0,(SUMPRODUCT($C$78:$C$82,I78:I82)-I82*I67)/$H$20)+IF($H$26=0,0,(SUMPRODUCT($C$84:$C$88,I84:I88)-I88*I67)/$H$26)+IF($H$23=0,0,($C$90*I90-I90*I67)/$H$23)+IF($H$27=0,0,($C$92*I92-I92*I67)/$H$27) + ''IF(csng(ru(7))=0,0,(ACc_Nan-ru(45,mon)*ru(64,mon))/ru(7))+IF(ru(12)=0,0,(acc_naeng-ru(50,mon)*ru(64,mon))/ru(12))+IF(ru(18)=0,0,(acc_kub-ru(55,mon)*ru(64,mon))/ru(18))+IF(ru(15)=0,0,(ru(56,"sign")*ru(56,mon)-ru(56,mon)*ru(64,mon))/ru(15))+IF(ru(19)=0,0,(ru(57,"sign")*ru(57,mon)-ru(57,mon)*ru(64,mon))/ru(19)) + + ''//단위면적당Co2배출량) + 'If Ru(ResultRow.요구량_난방_사용면적) = 0 Then + ' Ru(ResultRow.CO2_단위면적당배출량, MOn) = 0 + 'Else + ' '(ACc_Nan-ru(45,mon)*ru(64,mon))/ru(7))+IF(ru(12)=0,0,(acc_naeng-ru(50,mon)*ru(64,mon))/ru(12))+IF(ru(18)=0,0,(acc_kub-ru(55,mon)*ru(64,mon))/ru(18))+IF(ru(15)=0,0,(ru(56,"sign")*ru(56,mon)-ru(56,mon)*ru(64,mon))/ru(15))+IF(ru(19)=0,0,(ru(57,"sign")*ru(57,mon)-ru(57,mon)*ru(64,mon))/ru(19) + ' Ru(ResultRow.CO2_단위면적당배출량, MOn) = (ACc_Nan - Ru(45, MOn) * Ru(64, MOn)) / Ru(7) + CSng(IIf(Ru(12) = 0, 0, (ACc_Naeng - Ru(50, MOn) * Ru(64, MOn)) / Ru(12))) + CSng(IIf(Ru(18) = 0, 0, (ACc_KUb - Ru(55, MOn) * Ru(64, MOn)) / Ru(18))) + CSng(IIf(Ru(15) = 0, 0, (Ru(56, "sign") * Ru(56, MOn) - Ru(56, MOn) * Ru(64, MOn)) / Ru(15))) + CSng(IIf(Ru(19) = 0, 0, (Ru(57, "sign") * Ru(57, MOn) - Ru(57, MOn) * Ru(64, MOn)) / Ru(19))) + 'End If + Next + End Sub + + ''' + ''' 에너지요구량및소요량 테이블의 M00(합계)를 누적(M01~M12)로 채웁니다. 그렇지않은건 이후에 합계프로시져별도로 생성함 + ''' + ''' + Public Sub TReqUse_M00() + ''//LT(LineType 이 SL Sum Line 인경우가져와서 m00 = m01~m12 한다 + 'Dim DR() As DSR.TReqUseRow = CType(DSETR.TReqUse.Select("", "code"), DSR.TReqUseRow()) + 'For Each Drs As DSR.TReqUseRow In DSETR.TReqUse.Select("lt='SL'") + ' Drs.M00 = Drs.M01 + Drs.M02 + Drs.M03 + Drs.M04 + Drs.M05 + Drs.M06 + Drs.M07 + Drs.M08 + Drs.M09 + Drs.M10 + Drs.M11 + Drs.M12 + 'Next + + ''//커스텀 합계필드 계산 + + ''자주사용되는 SUM(1~12)를 미리 계산해둔다 + 'Dim L45, L50, L55, L56, L57, L22, L27, L31, L33, L37 as decimal : Dim Drow As DSR.TReqUseRow + 'Drow = CType(DSETR.TReqUse.Rows(45 - 1), DSR.TReqUseRow) + 'L45 = Drow.M01 + Drow.M02 + Drow.M03 + Drow.M04 + Drow.M05 + Drow.M06 + Drow.M07 + Drow.M08 + Drow.M09 + Drow.M10 + Drow.M11 + Drow.M12 + + 'Drow = CType(DSETR.TReqUse.Rows(50 - 1), DSR.TReqUseRow) + 'L50 = Drow.M01 + Drow.M02 + Drow.M03 + Drow.M04 + Drow.M05 + Drow.M06 + Drow.M07 + Drow.M08 + Drow.M09 + Drow.M10 + Drow.M11 + Drow.M12 + + 'Drow = CType(DSETR.TReqUse.Rows(55 - 1), DSR.TReqUseRow) + 'L55 = Drow.M01 + Drow.M02 + Drow.M03 + Drow.M04 + Drow.M05 + Drow.M06 + Drow.M07 + Drow.M08 + Drow.M09 + Drow.M10 + Drow.M11 + Drow.M12 + + 'Drow = CType(DSETR.TReqUse.Rows(56 - 1), DSR.TReqUseRow) + 'L56 = Drow.M01 + Drow.M02 + Drow.M03 + Drow.M04 + Drow.M05 + Drow.M06 + Drow.M07 + Drow.M08 + Drow.M09 + Drow.M10 + Drow.M11 + Drow.M12 + + 'Drow = CType(DSETR.TReqUse.Rows(57 - 1), DSR.TReqUseRow) + 'L57 = Drow.M01 + Drow.M02 + Drow.M03 + Drow.M04 + Drow.M05 + Drow.M06 + Drow.M07 + Drow.M08 + Drow.M09 + Drow.M10 + Drow.M11 + Drow.M12 + + 'Drow = CType(DSETR.TReqUse.Rows(22 - 1), DSR.TReqUseRow) + 'L22 = Drow.M01 + Drow.M02 + Drow.M03 + Drow.M04 + Drow.M05 + Drow.M06 + Drow.M07 + Drow.M08 + Drow.M09 + Drow.M10 + Drow.M11 + Drow.M12 + + 'Drow = CType(DSETR.TReqUse.Rows(27 - 1), DSR.TReqUseRow) + 'L27 = Drow.M01 + Drow.M02 + Drow.M03 + Drow.M04 + Drow.M05 + Drow.M06 + Drow.M07 + Drow.M08 + Drow.M09 + Drow.M10 + Drow.M11 + Drow.M12 + + 'Drow = CType(DSETR.TReqUse.Rows(31 - 1), DSR.TReqUseRow) + 'L31 = Drow.M01 + Drow.M02 + Drow.M03 + Drow.M04 + Drow.M05 + Drow.M06 + Drow.M07 + Drow.M08 + Drow.M09 + Drow.M10 + Drow.M11 + Drow.M12 + + 'Drow = CType(DSETR.TReqUse.Rows(33 - 1), DSR.TReqUseRow) + 'L33 = Drow.M01 + Drow.M02 + Drow.M03 + Drow.M04 + Drow.M05 + Drow.M06 + Drow.M07 + Drow.M08 + Drow.M09 + Drow.M10 + Drow.M11 + Drow.M12 + + 'Drow = CType(DSETR.TReqUse.Rows(37 - 1), DSR.TReqUseRow) + 'L37 = Drow.M01 + Drow.M02 + Drow.M03 + Drow.M04 + Drow.M05 + Drow.M06 + Drow.M07 + Drow.M08 + Drow.M09 + Drow.M10 + Drow.M11 + Drow.M12 + + ''//실제 데이터 집계 + 'Drow = CType(DSETR.TReqUse.Rows(45 - 1), DSR.TReqUseRow) + 'Drow.M00 = L45 - (DR(58 - 1).M00 + DR(59 - 1).M00) / (L45 + L50 + L55 + L56 + L57) * L45 + ''If (L45 + L50 + L55 + L56 + L57) <> 0 Then Drow.M00 = L45 - (DR(58 - 1).M00 + DR(59 - 1).M00) / (L45 + L50 + L55 + L56 + L57) * L45 + + + 'Drow = CType(DSETR.TReqUse.Rows(50 - 1), DSR.TReqUseRow) + 'Drow.M00 = L50 - (DR(58 - 1).M00 + DR(59 - 1).M00) / (L45 + L50 + L55 + L56 + L57) * L50 ' + ''If (L45 + L50 + L55 + L56 + L57) <> 0 Then Drow.M00 = L50 - (DR(58 - 1).M00 + DR(59 - 1).M00) / (L45 + L50 + L55 + L56 + L57) * L50 + + 'Drow = CType(DSETR.TReqUse.Rows(55 - 1), DSR.TReqUseRow) + 'Drow.M00 = L55 - (DR(58 - 1).M00 + DR(59 - 1).M00) / (L45 + L50 + L55 + L56 + L57) * L55 + ''If (L45 + L50 + L55 + L56 + L57) <> 0 Then Drow.M00 = L55 - (DR(58 - 1).M00 + DR(59 - 1).M00) / (L45 + L50 + L55 + L56 + L57) * L55 + + 'Drow = CType(DSETR.TReqUse.Rows(56 - 1), DSR.TReqUseRow) + 'Drow.M00 = L56 - (DR(58 - 1).M00 + DR(59 - 1).M00) / (L45 + L50 + L55 + L56 + L57) * L56 + ''If (L45 + L50 + L55 + L56 + L57) <> 0 Then Drow.M00 = L56 - (DR(58 - 1).M00 + DR(59 - 1).M00) / (L45 + L50 + L55 + L56 + L57) * L56 + + 'Drow = CType(DSETR.TReqUse.Rows(57 - 1), DSR.TReqUseRow) + 'Drow.M00 = L57 - (DR(58 - 1).M00 + DR(59 - 1).M00) / (L45 + L50 + L55 + L56 + L57) * L57 + ''If (L45 + L50 + L55 + L56 + L57) <> 0 Then Drow.M00 = L57 - (DR(58 - 1).M00 + DR(59 - 1).M00) / (L45 + L50 + L55 + L56 + L57) * L57 + + ''// + 'Drow = CType(DSETR.TReqUse.Rows(22 - 1), DSR.TReqUseRow) + '' If (L45 + L50 + L55 + L56 + L57) <> 0 Then + 'Drow.M00 = L22 - (DR(58 - 1).M00 + DR(59 - 1).M00) / (L45 + L50 + L55 + L56 + L57) * L45 + 'Drow.COLG = L22 - (DR(58 - 1).M00) / (L45 + L50 + L55 + L56 + L57) * L45 + '' End If + + 'Drow = CType(DSETR.TReqUse.Rows(27 - 1), DSR.TReqUseRow) + '' If (L45 + L50 + L55 + L56 + L57) <> 0 Then + 'Drow.M00 = L27 - (DR(58 - 1).M00 + DR(59 - 1).M00) / (L45 + L50 + L55 + L56 + L57) * L50 + 'Drow.COLG = L27 - (DR(58 - 1).M00) / (L45 + L50 + L55 + L56 + L57) * L50 + '' End If + + 'Drow = CType(DSETR.TReqUse.Rows(31 - 1), DSR.TReqUseRow) + '' If (L45 + L50 + L55 + L56 + L57) <> 0 Then + 'Drow.M00 = L31 - (DR(58 - 1).M00 + DR(59 - 1).M00) / (L45 + L50 + L55 + L56 + L57) * L56 + 'Drow.COLG = L31 - (DR(58 - 1).M00) / (L45 + L50 + L55 + L56 + L57) * L56 + '' End If + + + 'Drow = CType(DSETR.TReqUse.Rows(33 - 1), DSR.TReqUseRow) + ''If (L45 + L50 + L55 + L56 + L57) <> 0 Then + 'Drow.M00 = L33 - (DR(58 - 1).M00 + DR(59 - 1).M00) / (L45 + L50 + L55 + L56 + L57) * L55 + 'Drow.COLG = L33 - (DR(58 - 1).M00) / (L45 + L50 + L55 + L56 + L57) * L55 + '' End If + + ''// + 'Drow = CType(DSETR.TReqUse.Rows(20 - 1), DSR.TReqUseRow) + 'Drow.M00 = DR(22 - 1).M00 + DR(27 - 1).M00 + DR(31 - 1).M00 + DR(33 - 1).M00 + DR(37 - 1).M00 + + ''// + 'Drow = CType(DSETR.TReqUse.Rows(26 - 1), DSR.TReqUseRow) + 'Drow.M00 = CSng(IIf(DR(7 - 1).M00 = 0, 0, DR(22 - 1).M00 / DR(7 - 1).M00)) + + 'Drow = CType(DSETR.TReqUse.Rows(30 - 1), DSR.TReqUseRow) + 'Drow.M00 = CSng(IIf(DR(12 - 1).M00 = 0, 0, DR(27 - 1).M00 / DR(12 - 1).M00)) + + 'Drow = CType(DSETR.TReqUse.Rows(32 - 1), DSR.TReqUseRow) + 'Drow.M00 = CSng(IIf(DR(15 - 1).M00 = 0, 0, DR(31 - 1).M00 / DR(15 - 1).M00)) + + 'Drow = CType(DSETR.TReqUse.Rows(36 - 1), DSR.TReqUseRow) + 'Drow.M00 = CSng(IIf(DR(18 - 1).M00 = 0, 0, DR(33 - 1).M00 / DR(18 - 1).M00)) + + + ''=SUM(I58:T58)-(H95+H96)/(SUM(I76:T76)+SUM(I82:T82)+SUM(I88:T88)+SUM(I90:T90)+SUM(I92:T92))*SUM(I92:T92) + ''=L37-(ru(58)+ru(59))/(L45+L50+L55+L56+L57)*L57 + 'Drow = CType(DSETR.TReqUse.Rows(37 - 1), DSR.TReqUseRow) '//환기에너지소요량(X) + '' If (L45 + L50 + L55 + L56 + L57) <> 0 Then + 'Drow.M00 = L37 - (Ru(58) + Ru(59)) / (L45 + L50 + L55 + L56 + L57) * L57 + 'Drow.COLG = L37 - (Ru(58)) / (L45 + L50 + L55 + L56 + L57) * L57 + '' End If + + + 'Drow = CType(DSETR.TReqUse.Rows(38 - 1), DSR.TReqUseRow) '//환기에너지 단위면적당 소요량 + 'Drow.M00 = CSng(IIf(Ru(19) = 0, 0, Ru(37) / Ru(19))) + + ''// + 'Drow = CType(DSETR.TReqUse.Rows(21 - 1), DSR.TReqUseRow) + 'Drow.M00 = DR(26 - 1).M00 + DR(30 - 1).M00 + DR(32 - 1).M00 + DR(36 - 1).M00 + DR(38 - 1).M00 + + End Sub + + +#End Region + + Public Sub Make_ResultSheet() + '//에너지요구량 + DSETR.TReqUse.Clear() + DSETR.TReqUse.AcceptChanges() + + Dim Array As New ArrayList + + Array.Clear() + For i As Integer = 0 To 12 + Array.Add(Result.E요구량(i).요구량) + Next + Set_ReqUseRow("100", "에너지요구량", "[kWh]", "Qb", "=", Array) + + Array.Clear() + For i As Integer = 0 To 12 + Array.Add(Result.E요구량(i).면적당요구량) + Next + Set_ReqUseRow("100", "단위면적당 에너지 요구량", "[kWh/m²]", "Σ(Qb / Ab)", "=", Array, "N1") + + Array.Clear() + For i As Integer = 0 To 12 + Array.Add(Result.E요구량(i).난방요구량) + Next + Set_ReqUseRow("110", "난방에너지 요구량", "[kWh]", "QH,b", "=", Array) + + Array.Clear() + For i As Integer = 0 To 12 + Array.Add(Result.E요구량(i).난방열) + Next + Set_ReqUseRow("110", "난방에너지 요구량(열)", "[kWh]", "Qh,b", "=", Array) + + Array.Clear() + For i As Integer = 0 To 12 + Array.Add(Result.E요구량(i).난방공조) + Next + Set_ReqUseRow("110", "난방에너지 요구량(공조,환기)", "[kWh]", "Qh*,b", "=", Array) + + Array.Clear() + For i As Integer = 0 To 12 + Array.Add(Result.E요구량(i).난방면적) + Next + Set_ReqUseRow("110", "단위면적당 요구량", "[kWh/m²]", "QH,b / AH", "=", Array, "N1") + Set_ReqUseRow("110", "사용면적(난방)", "[m²]", "AH", "=", Result.사용면적.H, "N1") + + Array.Clear() + For i As Integer = 0 To 12 + Array.Add(Result.E요구량(i).냉방요구량) + Next + Set_ReqUseRow("110", "냉방에너지 요구량", "[kWh]", "QC,b", "=", Array) + + Array.Clear() + For i As Integer = 0 To 12 + Array.Add(Result.E요구량(i).냉방열) + Next + Set_ReqUseRow("110", "냉방에너지 요구량(열)", "[kWh]", "Qc,b", "=", Array) + + Array.Clear() + For i As Integer = 0 To 12 + Array.Add(Result.E요구량(i).냉방공조) + Next + Set_ReqUseRow("110", "냉방에너지 요구량(공조,환기)", "[kWh]", "Qc*,b", "=", Array) + + Array.Clear() + For i As Integer = 0 To 12 + Array.Add(Result.E요구량(i).냉방면적) + Next + Set_ReqUseRow("110", "단위면적당 요구량", "[kWh/m²]", "QC,b / AC", "=", Array, "N1") + Set_ReqUseRow("110", "사용면적(냉방)", "[m²]", "AC", "=", Result.사용면적.C, "N1") + + Array.Clear() + For i As Integer = 0 To 12 + Array.Add(Result.E요구량(i).조명요구량) + Next + Set_ReqUseRow("110", "조명에너지 요구량", "[kWh]", "QL,b", "=", Array) + + Array.Clear() + For i As Integer = 0 To 12 + Array.Add(Result.E요구량(i).조명면적) + Next + Set_ReqUseRow("110", "단위면적당 요구량", "[kWh/m²]", "QL,b / AL", "=", Array, "N1") + Set_ReqUseRow("110", "사용면적(조명)", "[m²]", "AL", "=", Result.사용면적.L, "N1") + + Array.Clear() + For i As Integer = 0 To 12 + Array.Add(Result.E요구량(i).급탕요구량) + Next + Set_ReqUseRow("110", "급탕에너지 요구량", "[kWh]", "QW,b", "=", Array) + + Array.Clear() + For i As Integer = 0 To 12 + Array.Add(Result.E요구량(i).급탕면적) + Next + Set_ReqUseRow("110", "단위면적당 요구량", "[kWh/m²]", "QW,b / AW", "=", Array, "N1") + Set_ReqUseRow("110", "사용면적(급탕)", "[m²]", "AW", "=", Result.사용면적.W, "N1") + Set_ReqUseRow("110", "사용면적(환기)", "[m²]", "AV", "=", Result.사용면적.V, "N1") + + '//에너지소요량 + Array.Clear() + For i As Integer = 0 To 12 + Array.Add(Result.E소요량(i).소요량) + Next + Set_ReqUseRow("200", "에너지소요량", "[kWh]", "Qf", "", Array) + + Array.Clear() + For i As Integer = 0 To 12 + Array.Add(Result.E소요량(i).면적소요량) + Next + Set_ReqUseRow("200", "단위면적당 에너지 소요량", "[kWh/m²]", "Σ(Qf / Ab)", "", Array, "N1") + + Array.Clear() + For i As Integer = 0 To 12 + Array.Add(Result.E소요량(i).난방S) + Next + Set_ReqUseRow("210", "난방에너지 소요량", "[kWh]", "QH,f", "=", Array) + Array.Clear() + For i As Integer = 0 To 12 + Array.Add(Result.E소요량(i).난방) + Next + Set_ReqUseRow("210", "난방에너지 소요량", "[kWh]", "Qh,f", "=", Array) + + Array.Clear() + For i As Integer = 0 To 12 + Array.Add(Result.E소요량(i).난방보조) + Next + Set_ReqUseRow("210", "난방보조에너지 소요량", "[kWh]", "Qh,aux", "=", Array) + Array.Clear() + For i As Integer = 0 To 12 + Array.Add(Result.E소요량(i).난방면적) + Next + Set_ReqUseRow("210", "단위면적당 소요량", "[kWh/m²]", "QH,f / AH", "=", Array, "N1") + + Array.Clear() + For i As Integer = 0 To 12 + Array.Add(Result.E소요량(i).냉방S) + Next + Set_ReqUseRow("210", "냉방에너지 소요량", "[kWh]", "QC,f", "=", Array) + Array.Clear() + For i As Integer = 0 To 12 + Array.Add(Result.E소요량(i).냉방) + Next + Set_ReqUseRow("210", "냉방에너지 소요량", "[kWh]", "Qc,f", "=", Array) + Array.Clear() + For i As Integer = 0 To 12 + Array.Add(Result.E소요량(i).냉방보조) + Next + Set_ReqUseRow("210", "냉방보조에너지 소요량", "[kWh]", "Qc,aux", "=", Array) + Array.Clear() + For i As Integer = 0 To 12 + Array.Add(Result.E소요량(i).냉방면적) + Next + Set_ReqUseRow("210", "단위면적당 소요량", "[kWh/m²]", "QC,f / AC", "=", Array, "N1") + + + Array.Clear() + For i As Integer = 0 To 12 + Array.Add(Result.E소요량(i).조명S) + Next + Set_ReqUseRow("210", "조명에너지 소요량", "[kWh]", "QL,f", "=", Array) + Array.Clear() + For i As Integer = 0 To 12 + Array.Add(Result.E소요량(i).조명면적) + Next + Set_ReqUseRow("210", "단위면적당 소요량", "[kWh/m²]", "QL,f / AL", "=", Array, "N1") + + Array.Clear() + For i As Integer = 0 To 12 + Array.Add(Result.E소요량(i).급탕S) + Next + Set_ReqUseRow("210", "급탕에너지 소요량", "[kWh]", "QW,f", "=", Array) + Array.Clear() + For i As Integer = 0 To 12 + Array.Add(Result.E소요량(i).급탕) + Next + Set_ReqUseRow("210", "급탕에너지 소요량", "[kWh]", "Qw,f", "=", Array) + Array.Clear() + For i As Integer = 0 To 12 + Array.Add(Result.E소요량(i).급탕보조) + Next + Set_ReqUseRow("210", "급탕보조에너지 소요량", "[kWh]", "Qw,aux", "=", Array) + Array.Clear() + For i As Integer = 0 To 12 + Array.Add(Result.E소요량(i).급탕면적) + Next + Set_ReqUseRow("210", "단위면적당 소요량", "[kWh/m²]", "QW,f / AW", "=", Array, "N1") + + Array.Clear() + For i As Integer = 0 To 12 + Array.Add(Result.E소요량(i).환기S) + Next + Set_ReqUseRow("210", "환기에너지 소요량", "[kWh]", "QV,aux", "=", Array) '//36 + Array.Clear() + For i As Integer = 0 To 12 + Array.Add(Result.E소요량(i).환기면적) + Next + Set_ReqUseRow("210", "단위면적당 소요량", "[kWh/m²]", "QV.aux / AV", "=", Array, "N1") + + '//1차에너지 소요량(10-02 추가) + Array.Clear() + For i As Integer = 0 To 12 + Array.Add(Result.일차E소요량(i).소요량) + Next + Set_ReqUseRow("300", "1차에너지 소요량", "[kWh]", "", "", Array) '//38 + Array.Clear() + For i As Integer = 0 To 12 + Array.Add(Result.일차E소요량(i).단위면적) + Next + Set_ReqUseRow("300", "단위면적당 1차에너지 소요량", "[kWh/m²]", "", "", Array, "N1") '//39 + + Array.Clear() + For i As Integer = 0 To 12 + Array.Add(Result.일차E소요량(i).난방소요량) + Next + Set_ReqUseRow("310", "난방 1차에너지 소요량", "", "", "", Array) '//40 + Array.Clear() + For i As Integer = 0 To 12 + Array.Add(Result.일차E소요량(i).난방등유) + Next + Set_ReqUseRow("310", "난방유(등유) 소요량", "[kWh]", "1.1", "=", Array) + Array.Clear() + For i As Integer = 0 To 12 + Array.Add(Result.일차E소요량(i).난방LNG) + Next + Set_ReqUseRow("310", "천연가스(LNG) 소요량", "[kWh]", "1.1", "=", Array) + Array.Clear() + For i As Integer = 0 To 12 + Array.Add(Result.일차E소요량(i).난방LPG) + Next + Set_ReqUseRow("310", "액화가스(LPG) 소요량", "[kWh]", "1.1", "=", Array) + Array.Clear() + For i As Integer = 0 To 12 + Array.Add(Result.일차E소요량(i).난방지역) + Next + Set_ReqUseRow("310", "지역난방열 소요량", "[kWh]", "0.614", "=", Array) + Array.Clear() + For i As Integer = 0 To 12 + Array.Add(Result.일차E소요량(i).난방전력) + Next + Set_ReqUseRow("310", "전력 소요량", "[kWh]", "2.75", "=", Array) '//45 + + 'Array.Clear() '//--펠렛 100727 + 'For i As Integer = 0 To 12 + ' Array.Add(Result.일차E소요량(i).난방펠렛) + 'Next + 'Set_ReqUseRow("310", "펠렛보일러 소요량", "[kWh]", "1.1", "=", Array) + + + Array.Clear() + For i As Integer = 0 To 12 + Array.Add(Result.일차E소요량(i).난방면적) + Next + Set_ReqUseRow("310", "단위면적당 1차에너지 소요량", "[kWh/m2]", "", "=", Array, "N1") '//46 + + Array.Clear() + For i As Integer = 0 To 12 + Array.Add(Result.일차E소요량(i).냉방소요량) + Next + Set_ReqUseRow("310", "냉방 1차에너지 소요량", "", "", "", Array) '//47 + Array.Clear() + For i As Integer = 0 To 12 + Array.Add(Result.일차E소요량(i).냉방등유) + Next + Set_ReqUseRow("310", "난방유(등유) 소요량", "[kWh]", "1.1", "=", Array) '//48 + Array.Clear() + For i As Integer = 0 To 12 + Array.Add(Result.일차E소요량(i).냉방LNG) + Next + Set_ReqUseRow("310", "천연가스(LNG) 소요량", "[kWh]", "1.1", "=", Array) + Array.Clear() + For i As Integer = 0 To 12 + Array.Add(Result.일차E소요량(i).냉방LPG) + Next + Set_ReqUseRow("310", "액화가스(LPG) 소요량", "[kWh]", "1.1", "=", Array) '//50 + Array.Clear() + For i As Integer = 0 To 12 + Array.Add(Result.일차E소요량(i).냉방지역난방열) + Next + Set_ReqUseRow("310", "지역난방열 소요량", "[kWh]", "0.614", "=", Array) + Array.Clear() + For i As Integer = 0 To 12 + Array.Add(Result.일차E소요량(i).냉방지역냉방열) + Next + Set_ReqUseRow("310", "지역냉방열 소요량", "[kWh]", Pub.Result.E변환계수.지역냉방.ToString("N3"), "=", Array) + + Array.Clear() + For i As Integer = 0 To 12 + Array.Add(Result.일차E소요량(i).냉방전력) + Next + Set_ReqUseRow("310", "전력 소요량", "[kWh]", "2.75", "=", Array) '//52 + + 'Array.Clear() '//--펠렛 100727 + 'For i As Integer = 0 To 12 + ' Array.Add(Result.일차E소요량(i).냉방펠렛) + 'Next + 'Set_ReqUseRow("310", "펠렛보일러 소요량", "[kWh]", "1.1", "=", Array) + + + Array.Clear() + For i As Integer = 0 To 12 + Array.Add(Result.일차E소요량(i).냉방면적) + Next + Set_ReqUseRow("310", "단위면적당 1차에너지 소요량", "[kWh/m2]", "", "=", Array, "N1") '//53 + + + Array.Clear() + For i As Integer = 0 To 12 + Array.Add(Result.일차E소요량(i).급탕소요량) + Next + Set_ReqUseRow("310", "급탕 1차에너지 소요량", "", "", "", Array) '//54 + Array.Clear() + For i As Integer = 0 To 12 + Array.Add(Result.일차E소요량(i).급탕등유) + Next + Set_ReqUseRow("310", "난방유(등유) 소요량", "[kWh]", "1.1", "=", Array) '//55 + Array.Clear() + For i As Integer = 0 To 12 + Array.Add(Result.일차E소요량(i).급탕LNG) + Next + Set_ReqUseRow("310", "천연가스(LNG) 소요량", "[kWh]", "1.1", "=", Array) + Array.Clear() + For i As Integer = 0 To 12 + Array.Add(Result.일차E소요량(i).급탕LPG) + Next + Set_ReqUseRow("310", "액화가스(LPG) 소요량", "[kWh]", "1.1", "=", Array) '//57 + Array.Clear() + For i As Integer = 0 To 12 + Array.Add(Result.일차E소요량(i).급탕지역) + Next + Set_ReqUseRow("310", "지역난방열 소요량", "[kWh]", "0.614", "=", Array) + Array.Clear() + For i As Integer = 0 To 12 + Array.Add(Result.일차E소요량(i).급탕전력) + Next + Set_ReqUseRow("310", "전력 소요량", "[kWh]", "2.75", "=", Array) '//59 + + 'Array.Clear() '//--펠렛 100727 + 'For i As Integer = 0 To 12 + ' Array.Add(Result.일차E소요량(i).급탕펠렛) + 'Next + 'Set_ReqUseRow("310", "펠렛보일러 소요량", "[kWh]", "1.1", "=", Array) + + Array.Clear() + For i As Integer = 0 To 12 + Array.Add(Result.일차E소요량(i).급탕면적) + Next + + Set_ReqUseRow("310", "단위면적당 1차에너지 소요량", "[kWh/m2]", "", "=", Array, "N1") '//60 + + Array.Clear() + For i As Integer = 0 To 12 + Array.Add(Result.일차E소요량(i).조명소요량) + Next + Set_ReqUseRow("310", "조명 1차에너지 소요량", "", "", "", Array) '//61 + Array.Clear() + For i As Integer = 0 To 12 + Array.Add(Result.일차E소요량(i).조명전력) + Next + Set_ReqUseRow("310", "전력 소요량", "[kWh]", "2.75", "=", Array) '//62 + Array.Clear() + For i As Integer = 0 To 12 + Array.Add(Result.일차E소요량(i).조명면적) + Next + + Set_ReqUseRow("310", "단위면적당 1차에너지 소요량", "[kWh/m2]", "", "=", Array, "N1") '//63 + + Array.Clear() + For i As Integer = 0 To 12 + Array.Add(Result.일차E소요량(i).환기소요량) + Next + Set_ReqUseRow("310", "환기 1차에너지 소요량", "", "", "", Array) '//64 + Array.Clear() + For i As Integer = 0 To 12 + Array.Add(Result.일차E소요량(i).환기전력) + Next + Set_ReqUseRow("310", "전력 소요량", "[kWh]", "2.75", "=", Array) '//65 + Array.Clear() + For i As Integer = 0 To 12 + Array.Add(Result.일차E소요량(i).환기면적) + Next + + Set_ReqUseRow("310", "단위면적당 1차에너지 소요량", "[kWh/m2]", "", "=", Array, "N1") '//66 + + 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 + Set_ReqUseRow("310", "전기에너지 생산량(열병합)", "[kWh]", CStr(Result.E변환계수.전력), "=", Array) + Array.Clear() + For i As Integer = 0 To 12 + Array.Add(Result.생산E(i).태양열생산량) + Next + Set_ReqUseRow("310", "열에너지 생산량(태양열)", "[kWh]", "", "=", Array) '//69 + Array.Clear() + For i As Integer = 0 To 12 + Array.Add(Result.생산E(i).지열생산량) + Next + Set_ReqUseRow("310", "열에너지 생산량(지열)", "[kWh]", "", "=", Array) + Array.Clear() + For i As Integer = 0 To 12 + Array.Add(Result.생산E(i).면적당생산량태양열) + Next + + Set_ReqUseRow("310", "단위면적당 생산량(태양열)", "[kWh]", "", "=", Array, "N1") '//71 + Array.Clear() + For i As Integer = 0 To 12 + Array.Add(Result.생산E(i).면적당생산량지열) + Next + + Set_ReqUseRow("310", "단위면적당 생산량(지열)", "[kWh]", "", "=", Array, "N1") '//72 + + + '//CO2배출량 + Array.Clear() + For i As Integer = 0 To 12 + Array.Add(Result.Co2발생량(i).발생량) + Next + Set_ReqUseRow("400", "연간 CO2 배출량", "[kg CO2]", "", "", Array) '//73 + Array.Clear() + For i As Integer = 0 To 12 + Array.Add(Result.Co2발생량(i).단위면적) + Next + + Set_ReqUseRow("400", "단위면적당 CO2 배출량", "[kg CO2/m²]", "", "", Array, "N1") '//74 + Array.Clear() + For i As Integer = 0 To 12 + Array.Add(Result.Co2발생량(i).난방발생량) + Next + Set_ReqUseRow("410", "난방 CO2 발생량", "", "", "", Array) '//75 + 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) + Array.Clear() + For i As Integer = 0 To 12 + Array.Add(Result.Co2발생량(i).난방LNG) + Next + Set_ReqUseRow("410", "천연가스(LNG) CO2 발생량", "[kg CO2]", CStr(Result.Co2배출계수.LNG), "=", Array) + Array.Clear() + For i As Integer = 0 To 12 + Array.Add(Result.Co2발생량(i).난방LPG) + Next + Set_ReqUseRow("410", "액화가스(LPG) CO2 발생량", "[kg CO2]", CStr(Result.Co2배출계수.LPG), "=", Array) + 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) + 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) + + '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) + + Array.Clear() + For i As Integer = 0 To 12 + Array.Add(Result.Co2발생량(i).난방면적) + Next + + Set_ReqUseRow("410", "단위면적당 CO2 발생량", "[kg CO2]", "", "=", Array, "N1") + + Array.Clear() + For i As Integer = 0 To 12 + Array.Add(Result.Co2발생량(i).냉방발생량) + Next + Set_ReqUseRow("410", "냉방 CO2 발생량", "", "", "", Array) '//82 + 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) + Array.Clear() + For i As Integer = 0 To 12 + Array.Add(Result.Co2발생량(i).냉방LNG) + Next + Set_ReqUseRow("410", "천연가스(LNG) CO2 발생량", "[kg CO2]", CStr(Result.Co2배출계수.LNG), "=", Array) + Array.Clear() + For i As Integer = 0 To 12 + Array.Add(Result.Co2발생량(i).냉방LPG) + Next + Set_ReqUseRow("410", "액화가스(LPG) CO2 발생량", "[kg CO2]", CStr(Result.Co2배출계수.LPG), "=", Array) + 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) + 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) + 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) + '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) + Array.Clear() + For i As Integer = 0 To 12 + Array.Add(Result.Co2발생량(i).냉방면적) + Next + + Set_ReqUseRow("410", "단위면적당 CO2 발생량", "[kg CO2]", "", "=", Array, "N1") + + Array.Clear() + For i As Integer = 0 To 12 + Array.Add(Result.Co2발생량(i).급탕발생량) + Next + Set_ReqUseRow("410", "급탕 CO2 발생량", "", "", "", Array) '//89 + 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) + Array.Clear() + For i As Integer = 0 To 12 + Array.Add(Result.Co2발생량(i).급탕LNG) + Next + Set_ReqUseRow("410", "천연가스(LNG) CO2 발생량", "[kg CO2]", CStr(Result.Co2배출계수.LNG), "=", Array) + Array.Clear() + For i As Integer = 0 To 12 + Array.Add(Result.Co2발생량(i).급탕LPG) + Next + Set_ReqUseRow("410", "액화가스(LPG) CO2 발생량", "[kg CO2]", CStr(Result.Co2배출계수.LPG), "=", Array) + 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) + 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) + '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) + Array.Clear() + For i As Integer = 0 To 12 + Array.Add(Result.Co2발생량(i).급탕면적) + Next + + Set_ReqUseRow("410", "단위면적당 CO2 발생량", "[kg CO2]", "", "=", Array, "N1") + + Array.Clear() + For i As Integer = 0 To 12 + Array.Add(Result.Co2발생량(i).조명발생량) + Next + Set_ReqUseRow("410", "조명 CO2 발생량", "", "", "", Array) '//96 + 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) + Array.Clear() + For i As Integer = 0 To 12 + Array.Add(Result.Co2발생량(i).조명면적) + Next + + Set_ReqUseRow("410", "단위면적당 CO2 발생량", "[kg CO2]", "", "=", Array, "N1") + + Array.Clear() + For i As Integer = 0 To 12 + Array.Add(Result.Co2발생량(i).환기발생량) + Next + Set_ReqUseRow("410", "환기 CO2 발생량", "", "", "", Array) '//99 + 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) + Array.Clear() + For i As Integer = 0 To 12 + Array.Add(Result.Co2발생량(i).환기면적) + Next + + Set_ReqUseRow("410", "단위면적당 CO2 발생량", "[kg CO2]", "", "=", Array, "N1") + + '//CO2저감량 + 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 + Set_ReqUseRow("410", "전력 CO2 저감량(열병합)", "[kg CO2]", CStr(Result.Co2배출계수.전력), "=", Array) '//103 + DSETR.AcceptChanges() + + End Sub + + Private Sub Set_ReqUseRow(ByVal GRP As String, ByVal desc As String, ByVal unit As String, ByVal sign As String, ByVal eq As String, ByVal Value As ArrayList, Optional ByVal F As String = "N0") + Dim DR As DSR.TReqUseRow : DR = DSETR.TReqUse.NewTReqUseRow + + DR.Code = Format(DSETR.TReqUse.Rows.Count + 1, "000") + DR.GRP = GRP '//그룹 출력할떄 그룹으로 뽑는다. + DR.Desc = desc '//설명 + DR.UNIT = unit '//단위 + DR.SIGN = sign '//기호 + DR.EQ = eq '//등호 = + DR.M00 = TOSG(Value.Item(0)) + DR.M01 = TOSG(Value.Item(1)) + DR.M02 = TOSG(Value.Item(2)) + DR.M03 = TOSG(Value.Item(3)) + DR.M04 = TOSG(Value.Item(4)) + DR.M05 = TOSG(Value.Item(5)) + DR.M06 = TOSG(Value.Item(6)) + DR.M07 = TOSG(Value.Item(7)) + DR.M08 = TOSG(Value.Item(8)) + DR.M09 = TOSG(Value.Item(9)) + DR.M10 = TOSG(Value.Item(10)) + DR.M11 = TOSG(Value.Item(11)) + DR.M12 = TOSG(Value.Item(12)) + DR.F = F + DSETR.TReqUse.AddTReqUseRow(DR) + End Sub + Private Sub Set_ReqUseRow(ByVal GRP As String, ByVal desc As String, ByVal unit As String, ByVal sign As String, ByVal eq As String, ByVal Value As Decimal, Optional ByVal F As String = "N0") + Dim DR As DSR.TReqUseRow : DR = DSETR.TReqUse.NewTReqUseRow + + DR.Code = Format(DSETR.TReqUse.Rows.Count + 1, "000") + DR.GRP = GRP '//그룹 출력할떄 그룹으로 뽑는다. + DR.Desc = desc '//설명 + DR.UNIT = unit '//단위 + DR.SIGN = sign '//기호 + DR.EQ = eq '//등호 = + DR.M00 = Value + DR.F = F + 'DR.M01 = CSng(Value.Item(1)) + 'DR.M02 = CSng(Value.Item(2)) + 'DR.M03 = CSng(Value.Item(3)) + 'DR.M04 = CSng(Value.Item(4)) + 'DR.M05 = CSng(Value.Item(5)) + 'DR.M06 = CSng(Value.Item(6)) + 'DR.M07 = CSng(Value.Item(7)) + 'DR.M08 = CSng(Value.Item(8)) + 'DR.M09 = CSng(Value.Item(9)) + 'DR.M10 = CSng(Value.Item(10)) + 'DR.M11 = CSng(Value.Item(11)) + 'DR.M12 = CSng(Value.Item(12)) + DSETR.TReqUse.AddTReqUseRow(DR) + End Sub + +End Class diff --git a/ArinWarev1/Calculator/Zone/CZone.vb b/ArinWarev1/Calculator/Zone/CZone.vb new file mode 100644 index 0000000..01f2886 --- /dev/null +++ b/ArinWarev1/Calculator/Zone/CZone.vb @@ -0,0 +1,822 @@ +Public Class CZone + + Public Event PBarSet(ByVal min As Integer, ByVal max As Integer) '//프로그레시브바 초기화 + Public Event Message(ByVal Msg As String) '//메세지표시 + Public Event PBarVal(ByVal Value As Integer) '//프로그레시브 값설정 + + ''' + ''' (main)에너지요구량 계산 + ''' + ''' 에너지소요량을 추가로 계산하려면 True 를 입력 + ''' 로그가 입력될 스트링빌더 + ''' + Public Overridable Function Calc_LoadOfZones() As Boolean + Dim Title As String = "에너지요구량을 계산합니다" + RaiseEvent Message(Title & vbCrLf & "잠시만 기다려주세요") + RaiseEvent PBarSet(0, 100) + + RaiseEvent Message(Title & vbCrLf & "데이터저장소를 확보하는중.") + 'i_count_OpWe As Integer, d_we_month As Integer, Q_h_b_we as decimal, ==================================2010.2.21 삭제 + + Dim t_24 As Integer, f_wind As Integer, t_NA As Integer, t_h_op_d As Integer, i_count_Is As Integer + Dim Delta_theta_er As Decimal, Delta_theta_i_NA As Decimal, Delta_theta_i_WE As Decimal, theta_i As Decimal, theta_i_h As Decimal, theta_i_c As Decimal, F_f As Decimal, F__F As Decimal, F_W As Decimal, F_S As Decimal, F_V As Decimal, h_r As Decimal, c_p_arhoa As Decimal, e_wind As Decimal, n_50 As Decimal, n_ue As Decimal, n_mech As Decimal, n_inf As Decimal, A_B As Decimal, A_u As Decimal, h_u As Decimal, V As Decimal, V_ue As Decimal + Dim H_V_inf As Decimal, H_V_mech As Decimal, H_V_ue As Decimal, H_V_z As Decimal, theta_z As Decimal, theta_u As Decimal, H_T_D As Decimal, H_T_iu As Decimal, H_T_iz As Decimal, H_T_s As Decimal, Delta_U_WB As Decimal, H_V_mech_theta As Decimal, theta_i_h_soll As Decimal, theta_i_c_soll As Decimal, theta_V_mech As Decimal ', theta_e_min as decimal, theta_e_max as decimal + Dim C_wirk As Decimal, tau As Decimal, a As Decimal, a_tb As Decimal, A_beheizt As Decimal, f_we As Decimal, f_NA As Decimal, f_tb As Decimal, Q_h_max As Decimal, theta_i_NA As Decimal, eta_V_mech As Decimal, theta_V_mech_RLT As Decimal + Dim Q_V_inf_sink As Decimal, Q_V_mech_sink As Decimal, Q_V_z_sink As Decimal, Q_V_sink As Decimal, Q_T_e_sink As Decimal, Q_T_u_sink As Decimal, Q_T_z_sink As Decimal, Q_T_s_sink As Decimal, Q_T_sink As Decimal, Q_S_sink As Decimal, R_se As Decimal, Q_source As Decimal, Q_sink As Decimal, Q_I_source As Decimal + Dim Q_V_inf_source As Decimal, Q_V_mech_source As Decimal, Q_V_z_source As Decimal, Q_V_source As Decimal, Q_T_e_source As Decimal, Q_T_u_source As Decimal, Q_T_z_source As Decimal, Q_T_s_source As Decimal, Q_T_source As Decimal, Q_S_source As Decimal + Dim Q_I_source_p As Decimal, Q_I_source_fac As Decimal, Q_I_L As Decimal, Q_l_b As Decimal, Q_w_b As Decimal, gamma As Decimal, eta As Decimal, Q_h_b As Decimal, Q_h_b_op As Decimal, g_TI As Decimal + Dim V_mech As Decimal + 'Dim d_op_month As Integer, theta_e_month as decimal + 'Dim A_H as decimal, A_C as decimal, A_L as decimal, A_W as decimal, A_V as decimal + Dim Q_vh_b_op As Decimal + Dim g_blinds As Decimal, tau_e_B As Decimal, rho_e_B As Decimal, U_blinds As Decimal, tau_e_B_corr As Decimal, rho_e_B_corr As Decimal 'EN 13363-1 적용 + Dim g As Decimal, alpa As Decimal + 'Dim i_sub_wall As Integer + Dim V_mech_outdoor As Decimal + + '//2010.02.04추가 + Dim i_count_AHU As Integer + Dim Phi As Decimal + '//2010.02.21추가 + Dim d_op_mth As Integer + Dim d_full_mth As Integer + '//2011.04.04 추가 + 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 priod_value As Single = 0 + Dim age As Single '//준공연도에 의한 경년변화값 + For Each DRpriod As DS.tbl_DescRow In DSET.tbl_Desc.Select("cname<>'0'", "cname") + priod_value = CSng(DRpriod.priod) + Next + If priod_value = 0 Then + age = 1 + Else + age = 1 / (1 - priod_value * 0.0012) + End If + + + + RaiseEvent Message(Title & vbCrLf & "저장소 기본값을 설정하는중.") + t_24 = 24 + F_f = 0.5 '구조체와 하늘과의 형태계수 + F__F = 0.7 '창 프레임 감소계수 __필요 + F_W = 0.9 '수직입사가 아닌경우에 대한 감소계수 + F_S = 1 '주변환경에 의한 그늘짐 + F_V = 1 '0.9 '우선 먼지팩터는 없는 것으로 가정 + h_r = 5 * 0.9 '= 5*e(모를경우 e=0.9) + Delta_theta_er = 10 + Delta_theta_i_NA = 4 '(용도별조건) + 'theta_i = 21 + 'theta_i_h = 21 + theta_i_h_soll = 20 + theta_i_c = 24 + theta_i_c_soll = 26 + theta_V_mech_RLT = 27 + 'theta_e_min = -11.3 + 'theta_e_max = 31.5 + c_p_arhoa = 0.34 '//먼지모름 + 'n_50 = 1.5 + n_ue = 0.6 + e_wind = 0.07 + f_wind = 15 + R_se = 0.043 '외기에 직접 열전달저항 확인요망 + g_TI = 0.35 '(2-113) + alpa = 0.4 '우선 0.4으로 설정 표면흡수율 도표 2-6 참조 + n_mech = 1 '임시 + A_u = 1 + h_u = 1 '임시 + + RaiseEvent Message(Title & vbCrLf & "결과저장소 초기화") + + Work_msg("요구량계산중...") + Frm_Work.ProgressBar1.Maximum = 26 + Frm_Work.ProgressBar1.Minimum = 0 + Frm_Work.ProgressBar1.Value = 0 + Frm_Work.TopMost = True + Frm_Work.Show() + + '///////////////////////////////////////////////////// + For i_count_HeatCool As Integer = 1 To 2 '(1) 루프회전 난방/냉방 구분해서 회전한다. 둘의 산식이 거의 비슷하므로 루프를 이용해서 계산 + + For i_count_month As Short = 0 To 12 '(2) --월전체의 루프? + + Work_msg("요구량계산중..." & CStr(IIf(i_count_HeatCool = 1, "난방", "냉방")) & "(" & i_count_month & "/12)") : Work_plus() + Dim Mon As String = "M" & Format(i_count_month, "00") '//저장소의 필드명이 M00 식으로되어있다. + + If i_count_month = 0 Then '//난방이라면? '//최소외기온도 난방기(theta_e_min) + Calc.Pub.theta_e(i_count_month) = TOSG(IIf(i_count_HeatCool = 1, Calc.Pub.theta_e_min, Calc.Pub.theta_e_max)) + End If + + '//존 루프 + For Each DR존 As DS.tbl_zoneRow In DSET.tbl_zone.Select("code<>'0'", "code") ' DSET.tbl_zone.Rows.Count '(3) + '//방식이나 공조는 ZZ는 사용안함이다 V=환기 외기부하처리여부의경우 0001 은 예이다. + zone_count = TOSG(DR존.입력존의수) + If DR존.냉난방방식 <> "기능없음" Or (DR존.냉난방공조 <> "기능없음" And (DR존.냉난방공조 <> "환기" Or DR존.외기부하처리여부 = "예")) Then + Q_vh_b_op = 0 + + '//i_count_OpWe 1은 평일 2는 주말이다ㅡㅡ/ + '======================================2010.2.21 삭제 + 'For i_count_OpWe = 1 To 2 + '======================================2010.2.21 삭제 + Q_V_inf_sink = 0 + Q_V_inf_source = 0 + Q_V_mech_sink = 0 + Q_V_mech_source = 0 + Q_V_z_sink = 0 + Q_V_z_source = 0 + Q_V_win_sink = 0 '//2011.04.04 추가 + Q_V_win_source = 0 '//2011.04.04 추가 + + Q_T_e_sink = 0 + Q_T_e_source = 0 + Q_T_u_sink = 0 + Q_T_u_source = 0 + Q_T_z_sink = 0 + Q_T_z_source = 0 + Q_T_s_sink = 0 + Q_T_s_source = 0 + + A_B = TOSG(DR존.면적) * zone_count ' Worksheets("입력존").Range("전용면적1").Offset(0, i_count_zone - 1) + V = TOSG(DR존.순실체적) * zone_count ' Worksheets("입력존").Range("체적1").Offset(0, i_count_zone - 1) + V_ue = A_u * h_u + 'Log.AppendLine(" >> V_ue = A_u * h_u = // au와 hu 는 선언부에서 1값으로 고정되어있음 v_ue는 항상 1") + + '//존의 프로필설정에대한 실제 프로필의 데이터를 가져옴 + Dim DR프로필() As DS.tbl_profileRow = CType(DSET.tbl_profile.Select("code='" & DR존.프로필 & "' and code <> '0'"), DS.tbl_profileRow()) + If DR프로필.GetUpperBound(0) = -1 Then + MsgBox("존=" & DR존.code & " 의 프로필=" & DR존.프로필 & " 의 데이터가 존재하지않습니다", MsgBoxStyle.Critical, "확인") + Else + 'Log.AppendLine(" >> 존의 프로필코드(" & DR존.프로필 & ") 에 해당하는 프로필정보를 가져옵니다") + t_h_op_d = TOIT(DR프로필(0).운전시간난방) ' Worksheets("설정조건").Range("사용시작시간1").Offset(5, i_count_profile) + '===================================================================================2010.2.21 추가 + If i_count_month = 0 Then + d_op_mth = 0 + Else + d_op_mth = CInt(TOSG(DR프로필(0)("day" & Format(i_count_month, "00")))) + End If + '===================================================================================2010.2.21 추가 + theta_i_h_soll = TOSG(DR프로필(0).난방설정온도) ' Worksheets("설정조건").Range("난방설정온도1").Offset(0, i_count_profile) + theta_i_c_soll = TOSG(DR프로필(0).냉방설정온도) ' Worksheets("설정조건").Range("냉방설정온도1").Offset(0, i_count_profile) + Delta_theta_i_NA = TOSG(DR프로필(0).야간최저허용온도) ' Worksheets("설정조건").Range("야간최저허용온도1").Offset(0, i_count_profile) + Delta_theta_i_WE = TOSG(DR프로필(0).주말최저허용온도) ' Worksheets("설정조건").Range("주말최저허용온도1").Offset(0, i_count_profile) + ' If i_count_OpWe = 1 Then=============================================================2010.2.21 삭제 + 'Log.AppendLine(" >> i_count_OpWe = 1 >> Q_I_source_p/Q_I_source_fac/V_mech 계산됨") + Q_I_source_p = TOSG(DR프로필(0).사람) * A_B ' Worksheets("설정조건").Range("사람1").Offset(0, i_count_profile) * A_B '(2-118) + Q_I_source_fac = TOSG(DR프로필(0).작업보조기기) * A_B ' Worksheets("설정조건").Range("작업보조기기1").Offset(0, i_count_profile) * A_B '(2-119) + V_mech = TOSG(DR프로필(0).최소도입외기량) * A_B ' Worksheets("설정조건").Range("최소도입외기량1").Offset(0, i_count_profile) * A_B + ' Else '=============================================================2010.2.21 삭제 + ' Log.AppendLine(" >> i_count_OpWe <> 1 >> Q_I_source_p/Q_I_source_fac 는 0입니다") + ' Q_I_source_p = 0 '주말 사람없음 + ' Q_I_source_fac = 0 '주말 기기발열 없음 + 'End If + 'Q_I_L = 0 'mu_L*Q_I_L_elektr (2-123)추후 추가 + 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 '===============d_op(i_count_month) 2010.2.21 수정 + V_mech_outdoor = 0 ' 외기처리된 상태인 경우 + 'Log.AppendLine(" >> 외기처리됨") + End If + End If + Else + If DR존.냉난방공조 <> "냉방" AndAlso DR존.냉난방공조 <> "냉난방" Then '냉방/냉난방이 아닐경우 + If theta_i_c_soll < Calc.Pub.theta_e(i_count_month) Then + Q_vh_b_op = V_mech * (Calc.Pub.theta_e(i_count_month) - theta_i_c_soll) * t_h_op_d * c_p_arhoa * d_op_mth '===============d_op(i_count_month) 2010.2.21 수정 + V_mech_outdoor = 0 ' 외기처리된 상태인 경우 + 'Log.AppendLine(" >> 외기처리됨") + End If + End If + End If + End If + + + + n_50 = TOSG(DR존.침기율) '//tosg 는 빈값일경우 0을 반환 + n_inf = n_50 * e_wind '(2-59) 환기기기 없는 경우 + 'n_inf = n_50 * e_wind * (1 + f_V_mech * t_V_mech / 24) '(2-60) 급기 및 배기에 대한 환기회수 필요 + '///////////////////////////////////////////////////////////////////////////////////////////////////////2011.04.04 추가 + 'If n_nutz < 1.2 Then + ' Delta_n_win = n_nutz - (n_nutz - 0.2) * n_inf - 0.1 + 'Else + ' Delta_n_win = n_nutz - n_inf - 0.1 + 'End If + 'If Delta_n_win < 0 Then + ' Delta_n_win = 0 + 'End If + 'n_win = 0.1 + Delta_n_win * t_h_op_d / 24 + n_win = 0.1 ' 최소외기 도입량은 환기기기 유무와 상관없이 적용되는 것으로 평가하기 때문에 자연환기 기본값만 적용 + '///////////////////////////////////////////////////////////////////////////////////////////////////////2011.04.04 추가 + + + H_T_D = 0 + H_T_iu = 0 + H_T_iz = 0 + + + Dim Drow프로필 As DS.tbl_profileRow = CType(DSET.tbl_profile.Select("code='" & DR존.프로필 & "' and code <> '0'")(0), DS.tbl_profileRow) + If DR존.조명부하산출방법 = "계산치" Then + Q_I_L = TOSG(DR존.조명에너지부하율계산치) * TOSG(Drow프로필.일일사용시간) * A_B + Else + Q_I_L = TOSG(DR존.조명에너지부하율입력치) * TOSG(Drow프로필.일일사용시간) * A_B + End If + 'Q_I_L = TOSG(IIf(DR존.조명부하산출방법 = "계산치", TOSG(DR존.조명에너지부하율계산치), TOSG(DR존.조명에너지부하율입력치))) * TOSG(Drow프로필.일일사용시간) * A_B + Q_w_b = TOSG(Drow프로필.일일급탕요구량) * A_B * d_op_mth + '===================================2010.2.21 삭제 + 'If DR존.조명부하산출방법 = "CALC" Then '//OpWe의 2번은 주말인거 같다. + ' '//부하율계산치?입력치구분 + ' Q_w_b = TOSG(DR존.급탕요구량) * A_B * Calc.Pub.d_op_mth(i_count_month) + 'Else + ' Q_I_L = 0 '주말 소등으로 설정 + ' Q_w_b = 0 '주말은 급탕사용안함 + 'End If + '===================================2010.2.21 삭제 + + 'Log.AppendLine(" >> 현재존을 사용하는 각 입력면(" & DSET.tbl_myoun.Select("존분류='" & DR존.code & "'").GetUpperBound(0) & ")으로부터 데이터를 누적") + For Each Dr입력면 As DS.tbl_myounRow In DSET.tbl_myoun.Select("존분류='" & DR존.code & "'") + If Dr입력면.code <> "0" Then + If DR존.열교가산치 = "내단열" Then + Delta_U_WB = 0.15 '내단열(=0001) Worksheets("입력존").Range("열교1").Offset(0, i_count_zone - 1) = "내단열" Then + Else + Delta_U_WB = 0.1 '내단열(=0001) Worksheets("입력존").Range("열교1").Offset(0, i_count_zone - 1) = "내단열" Then + End If + Select Case Dr입력면.건축부위방식.Trim ' Case Worksheets("입력면").Range("입력부위" & i_sub_wall & "").Offset(0, i_count_wall) + Case "외벽" '"외벽" + 'Dr입력면.열관류율 >> Calc.Get_열관류율(Dr입력면) + H_T_D = H_T_D + Calc.Get_열관류율(Dr입력면) * age * TOSG(Dr입력면.건축부위면적) * zone_count + Delta_U_WB * TOSG(Dr입력면.건축부위면적) * zone_count ' Worksheets("입력면").Range("부위면적" & i_sub_wall & "").Offset(0, i_count_wall) '(2-44) Delta_U_WB는 외단열 0.1, 내단열 0.15 + Case "외부창", "내부창" '=================2010.03.20 수정 + If Dr입력면.블라인드유무 = "유" Then ' '0001(=유) Range("에너지투과율" & i_sub_wall & "").Offset(3, i_count_wall) = "유" Then + If Calc.Get_열관류율(Dr입력면) = 0 Then + MsgBox("블라인드 사용이지만 열관류율 수치가 입력되지 않았습니다", MsgBoxStyle.Critical, "확인") + Else + Select Case Dr입력면.블라인드위치.Trim ' Range("에너지투과율" & i_sub_wall & "").Offset(4, i_count_wall) + Case "내부" '"내부" + U_blinds = TOSG(1 / (1 / (Calc.Get_열관류율(Dr입력면) * age) + 1 / 30)) + Case "중간" '중간" + U_blinds = TOSG(1 / (1 / (Calc.Get_열관류율(Dr입력면) * age) + 1 / 3)) + Case "외부" ' '외부" + U_blinds = TOSG(1 / (1 / (Calc.Get_열관류율(Dr입력면) * age) + 1 / 5 + 1 / 10)) + End Select + End If + + Else + U_blinds = Calc.Get_열관류율(Dr입력면) * age 'Worksheets("입력면").Range("열관류율" & i_sub_wall & "").Offset(0, i_count_wall) + End If + + '=========================================================================================================2010.03.20 수정 + If Dr입력면.건축부위방식.Trim = "외부창" Then + H_T_D = H_T_D + U_blinds * TOSG(Dr입력면.건축부위면적) * zone_count + Delta_U_WB * TOSG(Dr입력면.건축부위면적) * zone_count '(2-44) Delta_U_WB는 외단열 0.1, 내단열 0.15 + Else + H_T_iu = H_T_iu + U_blinds * TOSG(Dr입력면.건축부위면적) * zone_count + End If + '=========================================================================================================2010.03.20 수정 + Case "내벽" ' "내벽" + H_T_iu = H_T_iu + Calc.Get_열관류율(Dr입력면) * age * TOSG(Dr입력면.건축부위면적) * zone_count '(2-48) + Case "간벽" '"간벽" + H_T_iz = H_T_iz + Calc.Get_열관류율(Dr입력면) * age * TOSG(Dr입력면.건축부위면적) * zone_count '(2-52) + Case Else + MsgBox("입력면 건축부위방식이 없습니다", MsgBoxStyle.Critical, "확인") + Return False + End Select + End If + Next + + + If H_T_D = 0 Then + H_V_inf = 0 + Else + H_V_inf = n_inf * V * c_p_arhoa '(2-58) c_p_arhoa는 0.34 V는 존의 체적 + End If + H_V_win = n_win * V * c_p_arhoa '//2011.04.04 추가 + H_V_mech = V_mech * c_p_arhoa 'n_mech * V * c_p_arhoa '(2-83) + H_V_ue = n_ue * V_ue * c_p_arhoa '(2-94) + 'H_V_z = n_z_d * c_p_arhoa '(2-99) + + If DR존.열저장능력 = "" Then + MsgBox(DR존.설명 & "의 열저장능력이 입력되어 있지않습니다", MsgBoxStyle.Critical, "확인") + C_wirk = 0 + Else + C_wirk = TOSG(DR존.열저장능력) * A_B ' .Worksheets("입력존").Range("열저장능력1").Offset(0, i_count_zone - 1) * A_B + End If + + If i_count_HeatCool = 1 Then + H_V_mech_theta = 0 'H_V_mech * (theta_i_h_soll - theta_V_mech) / 6 '(2-130) 우선 고려안함 + Else + H_V_mech_theta = 0 'H_V_mech * (theta_i_c_soll - theta_V_mech) / 6 '(2-130) + End If + tau = C_wirk / ((H_T_D + H_T_iu + H_T_iz) + (H_V_inf + H_V_mech + H_V_ue + H_V_win) + H_V_mech_theta) '(2-22, 129) 추후 H_V_z 추가 '//2011.04.04 H_V_win 추가 + If tau < 48 Then tau = 48 + + a = 1 + tau / 16 '(2-25) + + a_tb = 1 ' =A_beheizt / A_B 'A_beheizt는 난방면적, A_B는 전용면적 + + t_NA = 24 - t_h_op_d + f_tb = TOSG(0.8 * (1 - Math.Exp(-Q_h_max / (A_B * 35))) * a_tb ^ 2) '(2-34) + + '================================================2010.2.21 삭제 + 'If i_count_OpWe = 1 Then + '================================================2010.2.21 삭제 + Select Case DR존.야간운전방식.Trim '공통1002 Worksheets("입력존").Range("야간가동1").Offset(0, i_count_zone - 1) + Case "정상가동" '정상가동" + f_NA = 0 + Case "감소가동" '감소가동" + f_NA = TOSG(0.13 * t_NA * Math.Exp(-tau / 250) / 24) '(2-28) 감소가동 + Case "가동정지" '가동정지" + f_NA = TOSG(0.26 * t_NA * Math.Exp(-tau / 250) / 24) '(2-29) 가동정지 + End Select + theta_i_h = theta_i_h_soll - f_NA * (theta_i_h_soll - Calc.Pub.theta_e(i_count_month)) + If theta_i_h < theta_i_h_soll - Delta_theta_i_NA * t_NA / 24 Then theta_i_h = theta_i_h_soll - Delta_theta_i_NA * t_NA / 24 '(2-27) 야간감소 + '================================================2010.2.21 삭제 + 'Else + '================================================2010.2.21 삭제 + Select Case DR존.주말운전방식.Trim ' Worksheets("입력존").Range("주말가동1").Offset(0, i_count_zone - 1) + Case "정상가동" '정상가동" + f_we = 0 + Case "감소가동" '감소가동" + f_we = TOSG(0.2 * (1 - 0.4 * tau / 250)) '(2-31) 난방감소 + Case "가동정지" '가동정지" + f_we = TOSG(0.3 * (1 - 0.2 * tau / 250)) '(2-32) 난방정지식 + End Select + theta_i_h = theta_i_h_soll - f_we * (theta_i_h_soll - Calc.Pub.theta_e(i_count_month)) + If theta_i_h < theta_i_h_soll - Delta_theta_i_WE Then theta_i_h = theta_i_h_soll - Delta_theta_i_WE '(2-30) 주말감소식 변형 + '================================================2010.2.21 삭제 + 'End If + '================================================2010.2.21 삭제 + + If i_count_HeatCool = 1 Then + theta_i = theta_i_h + theta_z = theta_i_h + theta_u = TOSG(theta_i_h_soll - 0.7 * (theta_i_h_soll - Calc.Pub.theta_e(i_count_month))) + Else + theta_i = theta_i_c_soll '24'에너지 사용량 계산할때 24 사용 + theta_z = theta_i_c_soll + theta_u = TOSG(theta_i_c_soll - 0.7 * (theta_i_c_soll - Calc.Pub.theta_e(i_count_month))) + End If + + 'theta_i_h = theta_i_h_soll - f_tb * (theta_i_h_soll - theta_e(i_count_month)) '(2-33) 공간적제한 + 'theta_i_h = theta_i_NA - f_tb * (theta_i_NA - theta_e(i_count_month)) '(2-35) 공간적 시간적 제한 + + 'theta_V_mech = theta_e(i_count_month) '(2-90) 공조처리 없는 경우 + '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으로 설정 + + + '=======================================================================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()) + 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) + Case Else + Phi = 0 + 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 + End If + '=======================================================================2010.02.04 추가부분 끝 + + If theta_i > Calc.Pub.theta_e(i_count_month) Then + Q_V_inf_sink = H_V_inf * (theta_i - Calc.Pub.theta_e(i_count_month)) * t_24 '(2-56) + Q_V_win_sink = H_V_win * (theta_i - Calc.Pub.theta_e(i_count_month)) * t_24 '//2011.04.04 추가 + Else + Q_V_inf_source = H_V_inf * (Calc.Pub.theta_e(i_count_month) - theta_i) * t_24 '(2- + Q_V_win_source = H_V_win * (Calc.Pub.theta_e(i_count_month) - theta_i) * t_24 '//2011.04.04 추가 + End If + '================================================2010.2.21 삭제 + 'If i_count_OpWe = 1 Then + '================================================2010.2.21 삭제 + If theta_i > theta_V_mech Then + Q_V_mech_sink = H_V_mech * V_mech_outdoor * (theta_i - theta_V_mech) * t_h_op_d '(2-81) + Else + Q_V_mech_source = H_V_mech * V_mech_outdoor * (theta_V_mech - theta_i) * t_h_op_d '(2- + End If + '================================================2010.2.21 삭제 + 'Else + 'If theta_i > theta_V_mech Then + ' Q_V_mech_sink = 0 + 'Else + ' Q_V_mech_source = 0 + 'End If + 'End If + '================================================2010.2.21 삭제 + + If theta_i > theta_z Then + Q_V_z_sink = H_V_z * (theta_i - theta_z) * t_24 '(2-97) + Else + Q_V_z_source = H_V_z * (theta_z - theta_i) * t_24 '(2- + End If + + Q_V_sink = Q_V_inf_sink + Q_V_mech_sink + Q_V_z_sink + Q_V_win_sink '(2-13) '//2011.04.04 추가 + Q_V_source = Q_V_inf_source + Q_V_mech_source + Q_V_z_source + Q_V_win_source '(2- '//2011.04.04 추가 + + If theta_i > Calc.Pub.theta_e(i_count_month) Then + Q_T_e_sink = H_T_D * (theta_i - Calc.Pub.theta_e(i_count_month)) * t_24 '(2-42) + Else + Q_T_e_source = H_T_D * (Calc.Pub.theta_e(i_count_month) - theta_i) * t_24 '(2- + End If + + If theta_i > theta_u Then + Q_T_u_sink = H_T_iu * (theta_i - theta_u) * t_24 '(2-46) + Else + Q_T_u_source = H_T_iu * (theta_u - theta_i) * t_24 '(2- + End If + + If theta_i > theta_z Then + Q_T_z_sink = H_T_iz * (theta_i - theta_z) * t_24 '(2-50) + Else + Q_T_z_source = H_T_iz * (theta_z - theta_i) * t_24 '(2- + End If + + If theta_i > Calc.Pub.theta_e(i_count_month) Then + Q_T_s_sink = H_T_s * (theta_i - Calc.Pub.theta_e(i_count_month)) * t_24 '(2-53) 추후수정 + Else + Q_T_s_source = H_T_s * (Calc.Pub.theta_e(i_count_month) - theta_i) * t_24 '(2-53) 추후수정 + End If + + Q_T_sink = Q_T_e_sink + Q_T_u_sink + Q_T_z_sink + Q_T_s_sink '(2-12) + Q_T_source = Q_T_e_source + Q_T_u_source + Q_T_z_source + Q_T_s_source '(2-12) + + Q_S_sink = 0 + Q_S_source = 0 + + For Each DRF입력면 As DS.tbl_myounRow In DSET.tbl_myoun.Select("존분류='" & DR존.code & "' and code <> '0'") '//해당존을 사용하는 모든 입력면을 가져옴 + Select Case DRF입력면.방위.Trim ' Worksheets("입력면").Range("방위" & i_sub_wall & "").Offset(0, i_count_wall) + Case "수평" '"수평" + i_count_Is = 0 + Case "남" '"남" + i_count_Is = 1 + Case "남동" '"남동" + i_count_Is = 2 + Case "남서" '"남서" + i_count_Is = 3 + Case "동" '"동" + i_count_Is = 4 + Case "서" '"서" + i_count_Is = 5 + Case "북동" '"북동" + i_count_Is = 6 + Case "북서" '"북서" + i_count_Is = 7 + Case "북" '"북" + i_count_Is = 8 + '==========================================================2010.03.20 추가 + Case Else + i_count_Is = -1 + '==========================================================2010.03.20 추가 + End Select + + If i_count_Is <> -1 Then '=====================================2010.03.20 추가 + + + Select Case DRF입력면.건축부위방식.Trim ' Range("입력부위" & i_sub_wall & "").Offset(0, i_count_wall) + Case "외벽" '외벽 + If alpa * Calc.Pub.I_s(i_count_Is, i_count_month) < F_f * h_r * Delta_theta_er Then + Q_S_sink = Q_S_sink + R_se * Calc.Get_열관류율(DRF입력면) * age * TOSG(DRF입력면.건축부위면적) * zone_count * (F_f * h_r * Delta_theta_er - alpa * Calc.Pub.I_s(i_count_Is, i_count_month)) * t_24 '(2-111) + Else + 'Log.AppendLine("외벽 if else = " & Q_S_source) + Q_S_source = Q_S_source + R_se * Calc.Get_열관류율(DRF입력면) * age * TOSG(DRF입력면.건축부위면적) * zone_count * (alpa * Calc.Pub.I_s(i_count_Is, i_count_month) - F_f * h_r * Delta_theta_er) * t_24 '(2- + 'Log.AppendLine(">>" & Q_S_source) + End If + + Case "외부창", "내부창" '=====================================2010.03.20 수정 + If TOSG(DRF입력면.수평차양각) < 67.5 Then 'Range("에너지투과율" & i_sub_wall & "").Offset(1, i_count_wall) < 67.5 Then + + If DRF입력면.블라인드유무 = "유" Then ' Range("에너지투과율" & i_sub_wall & "").Offset(3, i_count_wall) = "유" Then + Select Case DRF입력면.블라인드빛종류.Trim ' Range("에너지투과율" & i_sub_wall & "").Offset(6, i_count_wall) + Case "불투과(t=0.0)" '불투과(t=0.0)" + tau_e_B = 0 + Select Case DRF입력면.블라인드색상.Trim ' Range("에너지투과율" & i_sub_wall & "").Offset(7, i_count_wall) + Case "흰색" '흰색" + rho_e_B = 0.7 + Case "밝은색" '밝은색" + rho_e_B = 0.5 + Case "어두운색" '어두운색" + rho_e_B = 0.3 + Case "검은색" '검은색" + rho_e_B = 0.1 + Case Else + MsgBox("불투과 블라인드색상이 없습니다", MsgBoxStyle.Critical, "확인") + End Select + Case "약투과(t=0.2)" '약투과(t=0.2)" + tau_e_B = 0.2 + Select Case DRF입력면.블라인드색상.Trim 'Range("에너지투과율" & i_sub_wall & "").Offset(7, i_count_wall) + Case "흰색" + rho_e_B = 0.6 + Case "밝은색" + rho_e_B = 0.4 + Case "어두운색" + rho_e_B = 0.2 + Case "검은색" + rho_e_B = 0.1 + Case Else + MsgBox("약투과 블라인드색상이 없습니다", MsgBoxStyle.Critical, "확인") + End Select + Case "반투과(t=0.4)" '반투과(t=0.4)" + tau_e_B = 0.4 + Select Case DRF입력면.블라인드색상.Trim 'Range("에너지투과율" & i_sub_wall & "").Offset(7, i_count_wall) + Case "흰색" + rho_e_B = 0.4 + Case "밝은색" + rho_e_B = 0.3 + Case "어두운색" + rho_e_B = 0.2 + Case "검은색" + rho_e_B = 0.1 + Case Else + MsgBox("반투과 블라인드색상이 없습니다", MsgBoxStyle.Critical, "확인") + End Select + End Select + + If DRF입력면.블라인드각도 = "45도" Then ' Range("에너지투과율" & i_sub_wall & "").Offset(5, i_count_wall) = "45도" Then + tau_e_B_corr = TOSG(0.65 * tau_e_B + 0.15 * rho_e_B) + rho_e_B_corr = TOSG(rho_e_B * (0.75 + 0.7 * tau_e_B)) + tau_e_B = tau_e_B_corr + rho_e_B = rho_e_B_corr + End If + + g = TOSG(DRF입력면.투과율) ' Range("에너지투과율" & i_sub_wall & "").Offset(0, i_count_wall) + If DRF입력면.블라인드위치.Trim <> "" AndAlso Calc.Get_열관류율(DRF입력면) = 0 Then + MsgBox(DRF입력면.설명 & "의 열관류율이 0입니다", MsgBoxStyle.Critical, "확인") + Else + Select Case DRF입력면.블라인드위치.Trim 'Range("에너지투과율" & i_sub_wall & "").Offset(4, i_count_wall) + Case "내부" '내부" + U_blinds = TOSG(1 / (1 / (Calc.Get_열관류율(DRF입력면) * age) + 1 / 30)) + g_blinds = g * (1 - g * rho_e_B - (1 - tau_e_B - rho_e_B) * U_blinds / 30) + Case "중간" '중간" + U_blinds = TOSG(1 / (1 / (Calc.Get_열관류율(DRF입력면) * age) + 1 / 3)) + g_blinds = g * tau_e_B + g * ((1 - tau_e_B - rho_e_B) + (1 - g) * rho_e_B) * U_blinds / 3 + Case "외부" '외부" + U_blinds = TOSG(1 / (1 / (Calc.Get_열관류율(DRF입력면) * age) + 1 / 5 + 1 / 10)) + g_blinds = tau_e_B * g + (1 - tau_e_B - rho_e_B) * U_blinds / 10 + tau_e_B * (1 - g) * g / 5 + Case Else + MsgBox("블라인드위치가 없습니다", MsgBoxStyle.Critical, "확인") + End Select + End If + '===========================================================================2010.02.27 추가 + If i_count_month = 0 Then + If i_count_HeatCool = 1 Then + g_blinds = (1 - Calc.Pub.F_sh_gl(i_count_Is - 1, 1 - 1)) * g + Calc.Pub.F_sh_gl(i_count_Is - 1, 1 - 1) * g_blinds + Else + g_blinds = (1 - Calc.Pub.F_sh_gl(i_count_Is - 1, 7 - 1)) * g + Calc.Pub.F_sh_gl(i_count_Is - 1, 7 - 1) * g_blinds + End If + Else + g_blinds = (1 - Calc.Pub.F_sh_gl(i_count_Is - 1, i_count_month - 1)) * g + Calc.Pub.F_sh_gl(i_count_Is - 1, i_count_month - 1) * g_blinds + End If + '===========================================================================2010.02.27 추가 + + Else + g_blinds = TOSG(DRF입력면.투과율) ' Range("에너지투과율" & i_sub_wall & "").Offset(0, i_count_wall) + + End If + Q_S_source = TOSG(Q_S_source + F__F * TOSG(DRF입력면.건축부위면적) * zone_count * F_S * F_W * F_V * g_blinds * Math.Cos(1.33 * TOSG(DRF입력면.수평차양각) * 3.141592 / 180) * (1 - TOSG(DRF입력면.수직차양각) / 300) * Calc.Pub.I_s(i_count_Is, i_count_month) * t_24) '(2-113) + End If + End Select + End If '==========================================================2010.03.20 추가 + Next + + Q_I_source = Q_I_source_p + Q_I_source_fac + Q_I_L '(2-20) + Q_source = Q_S_source + Q_T_source + Q_V_source + Q_I_source '(2-16) + If i_count_month = 0 AndAlso i_count_HeatCool = 1 Then Q_source = 0 ' 난방 최대부하 계산 + Q_sink = Q_T_sink + Q_V_sink + Q_S_sink '(2-11) Q_I_sink는 현재 고려안함 + + If Q_sink = 0 Then + eta = 0 + Else + gamma = Q_source / Q_sink '(2-21) + 'If gamma > 1.1 And a > 100 Then + If gamma ^ a > 1000000 Then + eta = 1 / gamma + Else + If gamma = 1 Then + eta = a / (a + 1) '(2-24) + Else + eta = TOSG((1 - gamma ^ a) / (1 - gamma ^ (a + 1))) '(2-23) + End If + End If + + If 1 - (eta * gamma) < 0.01 Then eta = 1 / gamma '(2-137) + If (1 - eta) * gamma < 0.01 Then eta = 1 '(2-138) + 'If V_mech >= Q_C_max / (c_p_arhoa * (theta_i - theta_mech)) Then eta = 1 '(2-139) 추후 고민 + End If + + If i_count_HeatCool = 1 Then + Q_h_b = Q_sink - eta * Q_source '(2-1) + Else + Q_h_b = (1 - eta) * Q_source '(2-7) + End If + + + If Q_h_b < 0.001 Then Q_h_b = 0 '1W 미만 제거 + + '========================================================2010.2.21 수정 And i_count_OpWe = 1 삭제 + If i_count_month = 0 Then + If t_h_op_d <> 0 Then + Q_h_b_op = Q_h_b / t_h_op_d + Else + Q_h_b_op = Q_h_b + End If + Else + '=================================================2010.2.21 삭제 + 'If i_count_OpWe = 1 Then + '=================================================2010.2.21 삭제 + Q_h_b_op = Q_h_b * d_op_mth + ' MsgBox(i_count_month & " " & Q_h_b & " " & d_op(i_count_month) & " " & Q_h_b_op) + '=================================================2010.2.21 삭제 + 'Else + 'Q_h_b_we = Q_h_b * Calc.Pub.d_we(i_count_month) + '=================================================2010.2.21 삭제 + Dim DRProf As DS.tbl_profileRow = CType(DSET.tbl_profile.Select("code='" & DR존.프로필 & "' and code <> '0'")(0), DS.tbl_profileRow) + If DR존.조명부하산출방법 = "계산치" Then 'Worksheets("조명").Range("조명부하산출방법1").Offset(0, i_count_zone - 1) = "계산치" Then + Q_l_b = TOSG(DR존.조명에너지부하율계산치) * TOSG(DRProf.일일사용시간) * A_B * d_op_mth + Else + Q_l_b = TOSG(DR존.조명에너지부하율입력치) * TOSG(DRProf.일일사용시간) * A_B * d_op_mth + End If + Q_w_b = TOSG(DRProf.일일급탕요구량) * A_B * d_op_mth 'Worksheets("입력존").Range("일일급탕요구량1").Offset(0, i_count_zone - 1) * A_B * d_op(i_count_month) + '=================================================2010.2.21 삭제 + 'End If + '=================================================2010.2.21 삭제 + End If + 'Q_h_b_mth = d_op(i_count_month) * (Q_sink_op - eta_op * Q_source_op) + d_we(i_count_month) * (Q_sink_we - eta_we * Q_source_we) '(2-6) + '======================================2010.2.21 삭제 + 'Next + '======================================2010.2.21 삭제 + Else + A_B = TOSG(DR존.면적) * zone_count ' Worksheets("입력존").Range("전용면적1").Offset(0, i_count_zone - 1) + + Q_vh_b_op = 0 + Q_h_b_op = 0 + 'Q_h_b_we = 0 + + '//조명부하산출방법이 계산치(0001)일경우 계산치로 그렇지않을경우 입력치로 계산함 + Dim DRProf As DS.tbl_profileRow = CType(DSET.tbl_profile.Select("code='" & DR존.프로필 & "' and code <> '0'")(0), DS.tbl_profileRow) + + If DR존.조명부하산출방법 = "계산치" Then + Q_l_b = TOSG(DR존.조명에너지부하율계산치) * TOSG(DRProf.일일사용시간) * A_B * d_op_mth + Else + Q_l_b = TOSG(DR존.조명에너지부하율입력치) * TOSG(DRProf.일일사용시간) * A_B * d_op_mth + End If + + Q_w_b = TOSG(DRProf.일일급탕요구량) * A_B * d_op_mth '===============d_op(i_count_month) 2010.2.21 수정 + End If + + Dim Dr최대부하 As New C최대냉난방부하.Citem(DR존.code) ' DSR.최대냉난방부하Row = CType(DSETR.최대냉난방부하.Select("zone='" & DR존.code & "'")(0), DSR.최대냉난방부하Row) + + If i_count_HeatCool = 1 Then + If i_count_month = 0 Then '//0번시트는최대 냉난방부하 시트이다. + Dr최대부하.최대난방기기부하 = TOSG((Q_h_b_op) / 1000) ''=================== Q_h_b_we 2010.2.21 삭제 + 'Worksheets("" & i_count_month & "").Range("최대난방부하1").Offset(0, i_count_zone - 1) = (Q_h_b_op + Q_h_b_we) / 1000 + If DR존.야간운전방식 = "가동정지" Then ' Worksheets("입력존").Range("야간가동1").Offset(0, i_count_zone - 1) = "가동정지" Then + Dr최대부하.일일난방최대가동시간 = t_h_op_d + 'Dr최대냉난방부하.난방최대가동시간 = t_h_op_d ' Worksheets("" & i_count_month & "").Range("최대난방부하1").Offset(2, i_count_zone - 1) = t_h_op_d + Else + Dr최대부하.일일난방최대가동시간 = 24 + 'Dr최대냉난방부하.난방최대가동시간 = 24 ' Worksheets("" & i_count_month & "").Range("최대난방부하1").Offset(2, i_count_zone - 1) = 24 + End If + Else + Dim Dr월에너지요구량 As New C에너지분석(i_count_month, DR존.code) + + 'Dim Dr월에너지요구량 As DSR.월별에너지분석Row = CType(DSETR.월별에너지분석.Select("월='" & Mon & "' and 존='" & DR존.code & "'")(0), DSR.월별에너지분석Row) + 'Dr월에너지요구량 = DSETR.에너지분석및요구량.Rows(i_count_month - 1) '//각 월별 시트에 값을 셋트(에너지분석및요구량 테이블에 들어있다) + If DR존.냉난방방식 = "냉난방" Or DR존.냉난방방식 = "난방" Then '//냉난방,난방 + Dr월에너지요구량.난방에너지요구량열 = TOSG((Q_h_b_op) / 1000) '=================== Q_h_b_we 2010.2.21 삭제 + Dr월에너지요구량.난방에너지요구량공조환기 = TOSG(Q_vh_b_op / 1000) + ' If i_count_month = 1 Then MsgBox("1") + 'Log.AppendLine("공조값설정=" & CSng(Q_vh_b_op / 1000)) + ElseIf DR존.냉난방공조 = "냉난방" Or DR존.냉난방공조 = "난방" Then '//냉난방,난방 + Dr월에너지요구량.난방에너지요구량열 = 0 + Dr월에너지요구량.난방에너지요구량공조환기 = TOSG((Q_h_b_op) / 1000) '=================== Q_h_b_we 2010.2.21 삭제 + + '//오류확인용 존1만 확인한다. + 'If DR존.code = "0001" Then MsgBox(DR존.냉난방방식 & vbCrLf & DR존.냉난방공조 & vbCrLf & CSng((Q_h_b_op + Q_h_b_we) / 1000), MsgBoxStyle.Information, DR존.code) + + Else + If (DR존.냉난방공조 = "냉방" Or DR존.냉난방공조 = "환기") And DR존.외기부하처리여부 = "예" Then '냉방/환기/"예" Then + Dr월에너지요구량.난방에너지요구량열 = 0 + ' If i_count_month = 1 Then MsgBox("3") + Dr월에너지요구량.난방에너지요구량공조환기 = TOSG(Q_vh_b_op / 1000) + Else + ' If i_count_month = 1 Then MsgBox("4") + Dr월에너지요구량.난방에너지요구량열 = 0 + Dr월에너지요구량.난방에너지요구량공조환기 = 0 + End If + End If + + Dr월에너지요구량.조명에너지요구량 = Q_l_b / 1000 + + ' Log.AppendLine("i_count_HeatCool=" & i_count_HeatCool & "i_count_month=" & i_count_month & ",급탕에너지요구량=" & CSng(Q_w_b / 1000)) + Dr월에너지요구량.급탕에너지요구량 = Q_w_b / 1000 + ' MsgBox("난방요구량" & Dr월에너지요구량.난방요구량공조, MsgBoxStyle.Information, i_count_month & "CZONE") + End If + + Else + If i_count_month = 0 Then + Dr최대부하.최대냉방기기부하 = TOSG((Q_h_b_op) / 1000) '=================== Q_h_b_we 2010.2.21 삭제 + 'Worksheets("" & i_count_month & "").Range("최대냉방부하1").Offset(0, i_count_zone - 1) = (Q_h_b_op + Q_h_b_we) / 1000 + If DR존.야간운전방식 = "가동정지" Then '//가동정지 + Dr최대부하.일일냉방최대가동시간 = t_h_op_d ' Worksheets("" & i_count_month & "").Range("최대냉방부하1").Offset(2, i_count_zone - 1) = t_h_op_d + Else + Dr최대부하.일일냉방최대가동시간 = 24 'Worksheets("" & i_count_month & "").Range("최대냉방부하1").Offset(2, i_count_zone - 1) = 24 + End If + + Else + Dim Dr월에너지요구량 As DSR.월별에너지분석Row = CType(DSETR.월별에너지분석.Select("월='" & Mon & "' and 존='" & DR존.code & "'")(0), DSR.월별에너지분석Row) + If DR존.냉난방방식 = "냉난방" Or DR존.냉난방방식 = "냉방" Then '//냉난방/냉방 + Dr월에너지요구량.냉방요구량열 = TOSG((Q_h_b_op) / 1000) '=================== Q_h_b_we 2010.2.21 삭제 + Dr월에너지요구량.냉방요구량공조 = TOSG(Q_vh_b_op / 1000) + Else + If DR존.냉난방공조 = "냉난방" Or DR존.냉난방공조 = "냉방" Then '//냉난방/냉방 + Dr월에너지요구량.냉방요구량열 = 0 + Dr월에너지요구량.냉방요구량공조 = TOSG((Q_h_b_op) / 1000) '=================== Q_h_b_we 2010.2.21 삭제 + Else + If (DR존.냉난방공조 = "난방" Or DR존.냉난방공조 = "환기") And DR존.냉난방공조 = "예" Then '//난방/환기/예 + Dr월에너지요구량.냉방요구량열 = 0 + Dr월에너지요구량.냉방요구량공조 = TOSG(Q_vh_b_op / 1000) + Else + Dr월에너지요구량.냉방요구량열 = 0 + Dr월에너지요구량.냉방요구량공조 = 0 + End If + + End If + End If + + 'MsgBox("냉방요구량" & Dr월에너지요구량.냉방요구량공조, MsgBoxStyle.Information, i_count_month & "CZONE") + End If + End If + Next '(3) + + Dim CAir As New CAirHandling + If i_count_month = 0 Then + CAir.Calc_Max_Power(i_count_HeatCool) '//AIR HANDLING 모듈 에 존재함..역시 내용이 크다 ㅠ_ㅠ + End If + + Next '(2) + Next '(1) + + Work_msg("에너지분석데이터 집계중...") + Frm_Work.ProgressBar1.Maximum = 13 + Frm_Work.ProgressBar1.Minimum = 0 + Frm_Work.ProgressBar1.Value = 0 + Frm_Work.TopMost = True + Frm_Work.Show() + '//요구량 계산이 완료되었으므로 Summary 계산한다. (이것이 없어서 소요량이 오류났음) + For Each Dr As C에너지분석 In Result.E분석 '//12달치의 각존들의 데이터를 가지고 합계내역을 추린다. + Work_plus() + Dr.Calc() + Next + DSETR.AcceptChanges() + Return True + End Function + + + ''' + ''' (main2)소요량 계산 + ''' + ''' + Public Function Calc_Useage() As Boolean + 'Dim d_op_month As Integer + Dim theta_e_month As Decimal + Dim d_full_mth As Integer + + Work_msg("소요량계산중...") + Frm_Work.ProgressBar1.Maximum = 12 + Frm_Work.ProgressBar1.Minimum = 0 + Frm_Work.ProgressBar1.Value = 0 + Frm_Work.TopMost = True + Frm_Work.Show() + + For i_count_month As Short = 1 To 12 '//월별로 난/냉방 소요량을 계산 + Work_msg("소요량계산중..." & "(" & i_count_month & "/12)") : Work_plus() + '===============================================2010.2.21 수정 + 'd_op_month = d_op(i_count_month) + d_full_mth = CInt(Calc.Pub.d_full(i_count_month)) + '===============================================2010.2.21 수정 + theta_e_month = Calc.Pub.theta_e(i_count_month) + + '///난방 + Calc.Heating.Calc_WaterheatingSystem(i_count_month, d_full_mth, theta_e_month) '//급탕소요량 '========2010.2.21 수정 + Calc.AirHandling.Calc_AirHandling(i_count_month, d_full_mth) '//환기? '========2010.2.21 수정 + If Result.E분석(i_count_month).난방에너지요구량 <> 0 Then Calc.Heating.Calc_HeatingSystem(i_count_month, theta_e_month) '//난방소요량 + + '///냉방 + If Result.E분석(i_count_month).냉방에너지요구량 <> 0 Then Calc.Cooling.Calc_CoolingSystem(i_count_month, theta_e_month) + Next + DSETR.AcceptChanges() + Return True + End Function + + + +End Class + diff --git a/ArinWarev1/Control/YkCtl.Designer.vb b/ArinWarev1/Control/YkCtl.Designer.vb new file mode 100644 index 0000000..65bd640 --- /dev/null +++ b/ArinWarev1/Control/YkCtl.Designer.vb @@ -0,0 +1,29 @@ + _ +Partial Class YkCtl + Inherits System.Windows.Forms.UserControl + + 'UserControl은 Dispose를 재정의하여 구성 요소 목록을 정리합니다. + _ + Protected Overrides Sub Dispose(ByVal disposing As Boolean) + Try + If disposing AndAlso components IsNot Nothing Then + components.Dispose() + End If + Finally + MyBase.Dispose(disposing) + End Try + End Sub + + 'Windows Form 디자이너에 필요합니다. + Private components As System.ComponentModel.IContainer + + '참고: 다음 프로시저는 Windows Form 디자이너에 필요합니다. + '수정하려면 Windows Form 디자이너를 사용하십시오. + '코드 편집기를 사용하여 수정하지 마십시오. + _ + Private Sub InitializeComponent() + components = New System.ComponentModel.Container() + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font + End Sub + +End Class diff --git a/ArinWarev1/Control/YkCtl.vb b/ArinWarev1/Control/YkCtl.vb new file mode 100644 index 0000000..ce64c47 --- /dev/null +++ b/ArinWarev1/Control/YkCtl.vb @@ -0,0 +1,160 @@ +Public Class YkCtl + Structure SM + Private vStyle As Drawing2D.HatchStyle + Private vwidth As Single, vHeight As Single + Private vFColor As Color + Private vBColor As Color + + Property Style() As Drawing2D.HatchStyle + Get + Return Me.vStyle + End Get + Set(ByVal value As Drawing2D.HatchStyle) + Me.vStyle = value + End Set + End Property + Property Width() As Single + Get + Return Me.vwidth + End Get + Set(ByVal value As Single) + Me.vwidth = value + End Set + End Property + Property Height() As Single + Get + Return Me.vHeight + End Get + Set(ByVal value As Single) + Me.vHeight = value + End Set + End Property + Property FColor() As Color + Get + Return Me.vFColor + End Get + Set(ByVal value As Color) + Me.vFColor = value + End Set + End Property + Property BColor() As Color + Get + Return Me.vBColor + End Get + Set(ByVal value As Color) + Me.vBColor = value + End Set + End Property + End Structure + + Dim vMFilltype(0) As SM + Dim vVertical As Boolean = True + Dim vMaxWidth As Single = Me.Width '//총너비 + + Property MaxSize() As Single + Get + Return (vMaxWidth) + End Get + Set(ByVal value As Single) + Me.vMaxWidth = value + Me.Refresh() + End Set + End Property + + Property Vertical() As Boolean '//그림이 세로형태? + Get + Return (vVertical) + End Get + Set(ByVal value As Boolean) + Me.vVertical = value + Me.Refresh() + ' MsgBox(value) + + End Set + End Property + + Property M1FillType() As SM() + Get + Return (Me.vMFilltype) + End Get + Set(ByVal value As SM()) + Me.vMFilltype = value + Me.Refresh() + ' MsgBox("sdf") + End Set + End Property + + Private Sub UserControl1_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles Me.Paint + If Me.vMFilltype Is Nothing OrElse Me.MaxSize <= 0 Then Return + Dim G As Graphics = e.Graphics + + Dim Rect As Rectangle + Dim W As Single + ' If Me.MaxWidth <> 0 Then + For i As Integer = 0 To Me.M1FillType.GetUpperBound(0) '//갯수만큼 돈다 + '//해당 사각형의 Rectangle 을 생성 + If i = 0 Then + If Me.Vertical Then + W = Me.Width / Me.MaxSize * Me.M1FillType(i).Width + Rect = New Rectangle(0, 5, W, Me.Height - 10) + Else + W = Me.Height / Me.MaxSize * Me.M1FillType(i).Width + Rect = New Rectangle(5, 0, Me.Width - 10, W) + End If + Else + If Me.Vertical Then + W = Me.Width / Me.MaxSize * Me.M1FillType(i).Width + Rect = New Rectangle(GetWidth(i), 5, W, Me.Height - 10) + Else + W = Me.Height / Me.MaxSize * Me.M1FillType(i).Width + Rect = New Rectangle(5, GetWidth(i), Me.Width - 10, W) + End If + + End If + + Try + Dim B As New System.Drawing.Drawing2D.HatchBrush(Me.M1FillType(i).Style, Me.M1FillType(i).FColor, Me.M1FillType(i).BColor) + G.FillRectangle(B, Rect) + Catch ex As Exception + + End Try + Next + + For i As Integer = 0 To Me.M1FillType.GetUpperBound(0) '//갯수만큼 돈다 + If Vertical Then + If i = 0 Then + W = Me.Width / Me.MaxSize * Me.M1FillType(i).Width + Rect = New Rectangle(0, 5, W, Me.Height - 10) + Else + W = Me.Width / Me.MaxSize * Me.M1FillType(i).Width + Rect = New Rectangle(GetWidth(i), 5, W, Me.Height - 10) + End If + If i <> 0 Then ' AndAlso i <> Me.M1FillType.GetUpperBound(0) Then + G.DrawLine(New Pen(Color.Black), Rect.X, 5, Rect.X, Me.Height - 5) + End If + Else + If i = 0 Then + W = Me.Height / Me.MaxSize * Me.M1FillType(i).Width + Rect = New Rectangle(5, 0, Me.Width - 10, W) + Else + W = Me.Height / Me.MaxSize * Me.M1FillType(i).Width + Rect = New Rectangle(5, GetWidth(i), Me.Width - 10, W) + End If + If i <> 0 Then 'AndAlso i <> Me.M1FillType.GetUpperBound(0) Then + G.DrawLine(New Pen(Color.Black), 5, Rect.Y, Me.Width - 5, Rect.Y) + End If + End If + Next + G.DrawRectangle(New Pen(Color.Black), New Rectangle(0, 0, Me.Width - 2, Me.Height - 2)) + G.Dispose() + End Sub + + Private Function GetWidth(ByVal idx As Integer) As Single + Dim Retval As Single = 0 + For i As Integer = 0 To idx - 1 + + Retval += IIf(Me.Vertical = True, Me.Width, Me.Height) / Me.MaxSize * Me.M1FillType(i).Width + Next + Return Retval + End Function +End Class diff --git a/ArinWarev1/DataSet.zip b/ArinWarev1/DataSet.zip new file mode 100644 index 0000000000000000000000000000000000000000..4a7f3cb3042eb3d535168b154d663320cb52ccd6 GIT binary patch literal 144075 zcmcF~W0Yo36W>@nwmr{i$M){n#*S@k$F^#Y#UL)vc130*62cfdGL4iO%ifz44c7WHto_(Fnx^K?DH-5murXHg+^OwJ~;} z|7mdX?iGVSl0+H#(bMZ4(*8bD|7ugdpyK&Rh9ksIk>M&VnNs*06zWUCN|IHwiuPjl zFU(aIX(+1` z>Dp=981`G7YjBoq2 zJneK1LFc%Tp+@+u3V0q*-8OV&4RN@n#9V%qZfjp++BVd~%isA(Y=rJ8I^q2|dmAu~MdUR^bvGAL zA6IXcadnsTIq&l!S91kXa9ZfdmKwz#Fm=vhGpO6;;9<(UhM&hk*-G-!V>lAs#k#$@ zML6-`E&b8HcQx_WCIEYs_1%kyDD6&KC@yM@db2An3{fp9D&pJ;*oxu4Ac|FL-p_VUsS2x~M1+D(; zm(&wTAO5v;ryBjKr-%w~Z|_X;#H;BF$;g%f7P&iQ$ZhOd(KT|my21igPz~Bdm-j8}`@-KM z;XjUO>Q5eaqE_##W@mDkHhlJ=D^bjNf;fo}Y3I#*XFBXu6C zNNp!OAYSB4lbVRo!foMAKn=Fs3?I2~8>fa{8FO6dwL~gsj`t1#s0dt`(+^-mA?$^p zUWV-MU-V~T8H4-&+%RyItgnwoOi%KR>9%gOZG2n3OBR4Z-qy9*!r!T$$XWGb%Bd9^ zWPfAnupKmG&325u*?#Fd?%)}qUeEH(+a|(s4f!4YIdvI@@$PW|7dQ8`?cVj%WFGGX zC5AiL=j@LcS`=GPx~TT4?hD`cM%UC&5#V4JJYX5R^!;Q~VIk*PGGiF?n-MKh(s@Uy zwH5bEiq3SH53R}h_S|_x7sqB45#TmNr{}!m{(JaG)v{$jEyq{^0d6RJLG<5uJ#0n3 zTy&MK8=gQ1%yOQJeJ-7Mv4jT+e@g$p8|T6qX!FC3X=@c=WYJMiFlHw$w!e_F zJnY2#z)|57(TR9(7qP~ z%L*Av;-{Mi|9wC2nP3TSzNjZJ7#m~WZn_v0b(Ls1G-vyj%l$M4z){T1sP>bx&uks5 zm|{a0OF^tgD9lQh($9xyrWkGFt?$9CzUlj`Uv~>PDZJpE&hfAw?_*jrmaUU&9qjS3 z7#gcz6z7vr_dc!zK6BZ*R>!Ga{3Se?0MW!z1*zMc0+&M#qTDdi67-$B14ERujT&ZY z&~VQV^aniXDJ>KuPB?zRHf>8!p;wvZ7W!KPw4C&y2L8ilRX$IU5OM zOQVdwvb@%XvMYg>=t5}loTU&Hg)qF@hH()()};kIg;9~zTYWy99~ebKynlC_$7W!m zm6qUSabTtNb$(^1JU)4rHdk8f_^tT|&r<&2=X@K|ABF50K6I`!%ks&sdt zCpo-|svv)Ik%5AsB>o>7T5>EdB}OWey}?K+S!PcMgMMmz@tVq9tsnAzxq+b`w#gW= zVc-1+rC`Md5)Vbt`?IJcB||${XrkEhbc4n$M?=)6oc_4E)kX!Bg(BYtEj&e~`4~E7 zG#7j(r|)>*W%Zee(|sseJgqr7G9qfu`bf#J$6l(vk9nd;Zoz3f=t>aie6M(0E$(5; z$_={I3*@kqV0iW@JE!nz4nn{Y9p*JF@-}D9A*(%sd%+L8)stQ#H&DR-`n-!FtYo2j z1t&n)OvVju@rov}BS^9WCWuX8?sIRj0O{|Z7(3?LfHjgaU*+n}-o-{q1{&3I_7L&# z%9ZQGpB_^kGhCo&+a!HVA0{dX<`x6tadw_?Lx`Av_0*sj1B+5sU36)U7B%<-2jQE+ zDA)$`>BOtc2GS==osIr4P&Bm9e9kf?ROBpXUjz3RabuUM0CaCC!8?E)x~EmZN#Tun zP?u(5Jq)Bn&(8V6&oU<=soVAFEjrz9RYEyc#oUtA7(T}-*f<$LhM%I~Nv=Ep(FHadP$0_tS!YV*h%k>GEYa+-rUo1}X26`)frjy3rC zjM}&`QW$1~8_I;Pu~5&0_09TApo}wPmRU*2y6Trq@8iziS?eYU=Ich@S#j{MYi&W) z9gaGwfT!Aymp#Z?5%64C5AJS}5p-^&5`jMG_C3M-*>9ou)=a-HGqK1#=llqc;D+W3 zs_DM1X5E3YqUefTPtyI}ZNh_b;W`(CV(5km*gWKOHvX(AIN3%MBo$D-@57e#PFyuP zstjxIsz*Z*pu^GI>|_jpNql`tIV<@Eu+{}h3zVz;w(Y2JhiYMNZ;J$Q6I`kW(+w>TcWp>g{_&J> zk%e*)e5QbQWWVZs$^fM9#AqZB)VpV_Sc2{Fgk!rlSce0WR&uR&%9!rFfN1LdlZp;B zFcDKj-mFrwN%=NmEl+Z1N9lSGtyWxJcEnxM#?CKlI7+$Ay=|K(n%4_oKNOfW$bxUe z787SVok)eL>dXsk%?H42P}d*MCQmP2v0={|_LrVdoi307@e@Y32Z;;)LYLV)Pi2u) zo?`rd$9b&h1CjVU$(ua9kh0S*SgkLzr|I2yvWVi-L*MJ>GOptQZ&$yE{ygltd)Rk% zwG#TQMV#~e9&+{*^{^*MZ0l;>($P8|ONp)NYMo-HA~Eo=*EW$C9DLYo?=1~%{b%J1 zg@D(0#033sl~i`AnA9&4i7c5B9hH53m}|^qV%cUW#mx86>kiWqHDpwF2CnJRXps&u z)~NlXCOxT9V7e@LAm&n+FJv@2Z(o_e&E&M(O4kjLfOl@F%X!0t>#wGx_%jhA@t zDIUAaBxHgL?2y7|aG(PDtMpU3W9u+@&)1-(T82Mh!(eYH(9Snkp~z@$it2t}Y~19j zCISht+uh*%oM_Eqt>$7i(ggXODTZEU;i0qKT1ACXQe-`143CSDb5(S74P7Q z@8je~D`fDmZX4T4KLX|H4N&K1V`c0X7{|$3>rd)@R1J`&TSNKmdg70IrwPl9{;aN z-KxHM;4p(#C&ueTqE7rt?V+gy&(|D8F3kXys&&>?tn3R4s#qhV|QrCj0Q=^{9W`WK%v(xnd)_+m5QtNBr&5lNy95)u98XS)*{+()8AG&44m`4;d7jgGgNV3WZmGeq%o&Jv!a=Qv{ zu(E-W)0BKUY)lnG-G$x3AhyNI{Mdq*6MaGxR)f+bOsKoW5vaRs(mqb?3PyP-!smH? z6lcX)Ie&%nefM_hd^6MuO2j`@(QBs;umNlq0M^8OZa_*1LUd5C=hHWlH53kQZ>z-b zV~$@;(v!KV63$hj)?IC?I5mpLX)Ef-uY)k&hjygA&C7e$p&V9pd( z)(9iuFtiETbC%067GLC{>?ci0dt#vRijm^_dUsMHJsnGexqs_QYu=~~a!Qs8n}iNv z)0qVVanEzwW<27ZL&EK%yOPK1LHBXUSZRk{XpIxC@^w%0R34AyR(0OU#4)Cg;Wzm& zsMGFJX$#@UAQ=aUc82ppb@~W3d6_si$($t!iB&6u%W*u)1qUJJPNv?ZjxRCM)9(_g zWP5+kdu}u@6voa z`f?u}&G^}5AH-W+e!4H`SXtC}<2EfF;yLf6Ap$(y-=^|{+biYQ1HbI$+Kl9fIfsY_~Wgu_145_?)VFYoq*tsXX5wu*e65C1J@qf|BJVQK#6%S3_$cDxx; zBmJ}GeU&(MPlg`?ttiVMRg~uxqBi@dw>_FIdeB=(%1p2OY7fDv%#A7Gsg%n>fh=A} z0}gIOmz7c#^~pnrS*FKijuj+_+OkR%r_cjN)%CgY*14j_Q{QRGr>ga~7|{Z3_b7nv z!jfJ26E(xjIm!5SE{3P>#PVjG;@r`OnU^D5E^O^7f8)8Uw zDNq?@MS%3nn)HiX>dw{7Q;H`wd%MiG)a*+CQ!IpxOo9q;lcB=_tf_juOzb5fpZ$9P zF)pu53*}}Zl0$!zVZ{jdXH!5%?k87s@JFwV8mdg-vp#2A$4<<9m3VyMa?&YXTWRBz zu!e{MT?9vimttyLyePoMgrktrg(6D&^5RHT|G|QE?QP6N#2gfaW(_s>*u10>ggH+7 zW7bAce~S^6u6uXt8}$+~0^KF+jBYrWuwcexM#r)gONyD9y=ne+5xM-_Y?8rvA~u|$ zhQrLLAvG*9szxW}N0nk^(T9eX1bPR$uCG6)DSkZt&<{ZFkc$C`QEV`#3qBqFkj7vB zYEn^a=rWzx9KMCzG&B_RGfRO>N$Q=edL){_!@Rqri!b%}JLktycuYwFKR;;HRzGJ1 z9B$f(2LUev!Oy(`u`C%+y^aiI_qdY#cx)={7p!8|z;GQqmd5*>9pfH>gX1OIStI*bor)czF5%S)>$MC{`8B;{EV z_({?3G$2{p?LIIAcDKEcgx=Fit_&Btrt(EB)jcdEAQN2XM%&=bU=(?7jH5o!9Go9( zLrMVgHAsm2(-98FK$6SXm7Ot6nbltVaqXU_{>VrwS;{PyR6P?ZrYKV^*+@<_p43?h z+=u>#BOAhhRZ+{pMsap3{N6WZ#;~EQql@XAlUSe5hSpQJY=|85R+!LCRN2Mte|3m; z{`_@_N6avr!oDbOA~v4J(%~Oa;Wg&m#%U0s05a@Y776W#f|ZljNR_}}+@IWLjErXVV7AoDI85E8xZxMu=bc zHW1!-`M5m7yjE%b`_d$I^@>u|7U}ke;aemN?pU*yAYt+2vStb~G2e-Co2?+u-1>T$ zRtTVdyPwD<-fRe8T5yJz^YuhJw+n5E&gO;L~MsdlZ=yMr$*Sc{dF=DI^TA<)B6e7bq z$yg{!Mz1HU3C`JH%eZrFSk;S(&St&FA*{~#$tC*m`!Pti=OJtuV{tNs+cnvMECMjy zh9MHx+{-$nHBS%RPhJUsr2nV|`@k2$vTP>{GS$%#5cEd(n65Y>@br$sM#%UYb7%An ze*f#rz`H_na7$GV>a0mFH6}-RZv}j1>{QGQP{pmC<^oRqJF|$fM7goipvp5zE=UIT zP5&$h?3ICl#2Jk)6pj_0kgrve<|D8nvSfR`$T*(9J}j;o2fDc((T8? z`=?c3jv20^?fD6hlJoPuu!~6NuU%1V>-U1#<$imZ+wpXF&T7hi7YI=1O`EUy1=&_U5R7uU8ApNmg#my zvUFvkHB-gw$1Y;~`ku_cx!-Axi^JN3wC9crXz*?t6s$I43k)B=?{lF>gTR%JZSxG} z$akHv=@GbBozp!DWl!WkYFw8DAESZ5Sw6UNC5n;6Oq4lJow7{j7FsCY1cyFTU@bpK-1Jhf2E_akUinnsL+f zB#+Q!XP`0%`mO(+Z2nrrsA={KPa+h9!P|zOT3-X!{A5UWm??vam-4j~;_2K5`P(4% zV=@(mfu)*q(r_SG6j8ad5-QqTU1Axzfwo6;e5k$TZF1?DUj6cXLWP|w+FPGh@5E<| z&F0w_w=C-C_$ z3b|akq8ziHshNmHe<14@;qgMWXHyrvtcmd_f)biSyohW)Nvr9^?E{Z(8OZSy)n^)sLTIXa}-W`dLTn>58Fd^@7)2K@U9{6Q=?AqT_V z7uh^6Q@EpFV?kymmJ}f}!pp=_N@##xIT4A3>k{F;Lh*XZc*>!{3h~@P0Xx*9RBL`s zS~Tk27+GeDx4KmMu-fSqWmuo1xQ}2oT9h^Ju_SS!sn&7`sV61QG1Lz;N)6H|=LEW4 zxtAKz1o~aM=Rx31vxqw?;Eg&h6xOFPo@qCx_2Jhm&)b*E0_N{%AL!z9fdXg3GEWHr zFTX&UrvllvKmnTICl7kJgz`G>FtiWf+Fxm5)q)-@Te>)l;j9D;|fC^VFj@?7SDzo^NSW%2SHhGCK# z0Hya!QSwZC9bE?9mYjrT;$yik0p3A4d-dkWB=#+CUaK%K~I0fvjc~=v2Fn@0NQJ6!O(H zrKk7~N!A{1)X6&71kVtfCapOs{U)kBim@;nm+_(| zwP1R&1G9A6B)7HPQvnVwv1_P?k2KSER`cM92&`u%z-Qc7lvZF$KiC4 zFmbd4i2@8CJkEz4(dRMe$29C)PQsHw$+eH{{%2<2C)c??+V1BLVOMu1S6E7m@L8eq zP{M`;O~w9kMf7=6e~^AUZ`co<&re)taESdkM%&V`eW@r{NOt zBRPK!xan=j%x~21mC7>ZM`O9d&_rB|$j@75P(^l<#En34EBnHdF$sDx3DkVDetfb;_nZh1oLO`G@GJY$k}<%jVZ#}r*%rk8Nma=` z2-8)O-WE91m3`_mW7Sj=Ev@@gJ=$sDv|-hA0L*wK$~U3g7f87T9>O42awO_7lN)Ck?Jd=q z8jn#c6|Ye%Nd0&Ry?w#H68K(AI>0{7_+%jhl?dv&X654rX zF^=seQ$|krcxBITIh8U;aI^_cBknjW#tK?=QlZbv#|oYtx8}X3Jce@avR}ArNWPMr zMq@nuaJ;%Q`VF##ZYhgUq1&9wt6F;%H$iw#`b1Bz1sT(cE`bMw8a@w2Go5ee1`ZjU zDT$vNwms^(Hd zgdc*a>^~s;jO%5GJlDzaZ<6U-E7nsXoh{b0R;ryNaweE+#gQ!53!3`X#P!2CEwWI; z+OZZ8$+3oCSst8ezm8w2p2H4Z@rIJ3>*f>UWA0cBw%x+@BPRvFl2hA@Q#V{Db;p36`;hZ^+sgUpQkv6o@v+C()CjkSqd zs$|A$k~e$^*SPUdm+3!-2{u*m&TLJW)52qD#Rw_V+c z1Z)6~s-eubf>>M2tYM0(sQXZ4Z@R6dUHZP4E9FIXM%)=2X38sLOJiem>3qoA!1Aa5 zWBH$U7&o^D+{Zgs{_K*QFy1J+BXdt0x&3)J+?=ubC#&dT&+gsIVK?N&TeOlcy8gF8 zPqa2A&!0Dno;+O6@S{07*aEhMkN9q5ce@ncw(RCiHNs(qLuE_i@t764y<~<2DeirR zLo4?czXk`*w+b>+u@k&_jEfa&UaUp;z?PWP;;^}Ik|P=Q;mG3Suq~*0wWjSw_wEw{ z*vir=$(V3-9F8!Lid7wSA51BtjPfbaLVc7TqmQ+|U7fVBk1)*?06nBfP6Mv!fe|jA z=M2Lz{~!_(A#a<+G8LrchN^p1eAp`G(i>s*J|-3t3&C$Ox~v6s6AVC~vqlDw&wO6=cz3oqYU%i&X7|UM z*{-MHhwi=!@^%?nh-8_f&W8)xsuv_n{Ig5%8#^1!34*UZ!bWNBHz zaoGJRcI(D+64MQKYp10W89X|l!9%sJ?Oolq#@XIS>$Q_(3Tr1$xtBvTUO5XZa$ogn zJehE_65$ed@d_*M;L(}(B>;@qqu$MK*3djp$fGoQy$zaZMQI~!fj*6Ozu5~D{?6AF z#&m+H^~l+DRZA98mrx_?;S+X4r^mCn32Ye?KPUJazzv2zv4?qericn&o&_FjFND*J zb`c5{^zvlyS3(*#sDTmtghsCXb^KZD=o1SByM8xtAX~xqErV?B-@3{?XjYEGni;Uo zT=@;w5NGPVVyt*^-HO~2jo+-R3gcQUN5QPwWmxZ(ObiaB_gIhX?boczPb@-HkT)td zC0Fwy)1K~rpH89ic}^WhU^*)jfakXlzizT_nXZOrlS6cwaJ$ zlytN7E6)nz88KomNBU=-G;6h4>Lxi($OMmBqJ{UBGVGa*=e9`_gnKhb z@jJfgABd+Xpi{EESp4%%#cO0=Swv9~#?G;LWiDOG=VN*CH!PB}ZWr+7oSpPSR@~Y2 zIZI-G<61PH=Kl$_nHTwM9`x<>dFxKI&aj)s5!DhW?AlJ&f*tYn+>zV%2@93?v%t&h zZMM;?PIa|M2uf873QIFs2m zc#C6wdgvSznu~jV&Hy9E5orY?XhdTRv$FkHf|q7bFzRuYC5%O!=VdQ?SSb(65WmVg zOVY5TCyuKZe-Tx28k@llqa<`al70D&D!+-;=x%ih$Ds z--1*rjm&6tPOEj3ge}VkiI&yE4r_LE3{-3OQ}ztjcZKEM$c#KAcJpgi!wgxCBk=+ba_n{dSMvTB;x^j?;<(d78q*foCYMYU zuaL*qq|dAYe=Zl<6WVvOaN4F%&I=|Bw@ef%wQ=Jl_)6KWU3Wa!u5;HKcm3|n2LdeS zgQ2HN5Rl4c@CZ3`*m?i&1XiT*s;&PG-TpU}`ybGEAR6`p%KdLC5G^+c%Kt^n<0;6b zrcBk?6(s0!K(JgaFYrNVCyZZCI{2Qf&P18Ps~bH+>|7cjYkq4S$Z?+g%Rn$r{u@psMvI@|p989Mz~2&VT%z9Dc7&f$q~Ggz#`fzW6uh_)v>N08L{6CcKKuCGTg8wbPj(6UHVQ&K z?(JguFK0*iURuS79#3-Qm(#)<+2qY6^;_+-p;)EYb{~xi%zI9x=3UFER|xW8%e||p zd(;1Dl+m%P^lGS}XY5^#QIM&nhNe}p54B)q4>oTk-cISu{35J!R|5S(OCw%}f#KVf z@1F?V;r}C62kwXu`R+e#y^!y`;g0^7Eq{m`f?sMgR2r4ryMM{p<^`^ipUq@-?q#~R zU%QD~u4V&mX$O#2uVS1mUBI0IX{qH;$ac04|8^if1B(6s6PKT?KB3&?FsQlYFpzr} zy*TYg@o)wr`ZFN=KLh;im#CF_FS3U-Z?cC4+rjKhygIc$Dx()xI6d_Xn@8 z=2i4!8K|pbJJbuPx(BFQ7s#G>qr3uDzXDb30#(-leFrrl3-lelfxZL(wW!s35Y4N_ z;?V@P3T)oJ@h_!Y7AhT2mKnNk9CU_moD z2!Ug-KaM&B^sRRFxAhEJ4_b6~Mz;<}vm5D%HbvQr9T(rac2<6gwd>VtBJL;->FqZE zNP9^JD^scKrm*w-^3@I};7~beTpC~Oh&Jh{9QUgZEi2R^OsR^yQ=L<;L#-X`97JsS zTAvvH2we7<)?xtH9iBTN=}$mL6h#)yFO0x_ShykkI z6w2;#RVd?LGuk>MXyrdzmx>iDlZ`cne#C^waaUR+=tE)vkN72I)xRN(ziiUK&iLYB z#_Zrmia@rirDWtw;2DqFZwuLKc=3QRo&U+YpH6LVp5QbC@j;Oi+)%T;moXEF!W?bq4O3Y$~dAawfud zFT(T4-Cyqtog~|^mZTs=JM9HC9u-g}q;B!*o;O?6E^x|Ct~OgRE^{LJTQBN0-^7*U z!cV~m=J)CU#a3v*vor;s@Hob7Xh&Wh95O(^A*g}5O?wW$hw^;%SwuH^cpNgo8%9R- zPX*+7apkh8b=?lwQhELlyWXu3so+XRSROUnR7)D(K^BmL&gYLhB;E zQZY^H)T>!lxM26jB!3F9Lz)&KU6<@za{!8*qqSF||MeM)c7Q$uEhG>WX;QZWL6Kx1 z5EQAxRZE>TE81xb{uM?2cTwOF*{q|uiXfF&+L~k^m)nUdrqw_1y}O>NB3@I41L`~8 z&3nxRN&@w{xt{PJ12<$!3kkj374Q~9!C;y-QgynZdIsAxj+h7=E$vxY0l@>=BPHSw zekuDSjWn6JNTn{2;<2IK-xwlM3Gyoo6Mh9?C=+YjBX#9uNE_y8rzuJ-$mn7+^nUg1^#*H+ovvnbJ5AKq^<)TD zlG$Vk8!52)e>vswNf3xD6=v2VdO!;h@mLS<{c8cF|FQs5paoRH04)IHUltJF3$y@{ zo#P@>J3Ftp@tz#nw-s;LA4?UW`*(8GH)RNOR2h+VG~FRY+uCo>eY;&9P-b-9?)9Gc zc;JD_+q^%#ABOr`Vtz^^dtCJabBj~9Q{#W537;UM+TOe}V8(Pa3f=5<#2`Lgef8<+ zdHd*w4d3>0ySDOq-jM=t#JuY4`Inb}@<}J)Y8JoO*RoCb*=g&$cPlp?+Z|Ejf_Sy5 z>+R@sQxgNst`_x4Cw^b%8JGLmgvj#{z`xkm_73knu4YoA|GXX8t0BSx;O++y+^t_B zW_R_x?eyI~<`8wi=4zacKT31YsgRTrI9o)VG{A7Z;_Y3PfKOby31@rVjsP*qA`Opdl-k)|lMpFBT zq&o-qU20%8a^CHq$2!b3YM(X*=!y85zTX5)BXxgvF=<3}T+wxN7_hMpe6xik1OIVC zTO53MIAH3U>2*7DDBxq{yRo-UDK5j}_@$hhfEZEWeU5x~2ul<{bwyTU#MMyWg)_#(XX?dRi*K^apZ>Dz#dTx~w-CWjE z{w)-JbvS#-T1m;FX`D9jxI&e4sEGmlCgP;ID(R%Vd+l7Q*fvE_`cJJksQif9Wh$B9iML1OD?6${j`jPs*7b_QCun88W=yF#l(Rr3<`=1I1d+b+ptzthYN19rQf zPRs_sOaczgU(~)d*2(?N)KCdX>)3#IV=l+!AJ5b|~Y$cBWLrqNKHe-Tiin)PlOC^uXP};i3I5 zl{GSxy;i1!yD=3Fk)tJ;yRY4)Kix5z%mbMeqr=r~3(=1d*mOLhwt{aAj+!Hn?T69s zhf_LA(0ov}1ha-W?;1|4xZ2!g;5bfjy$#!WU`y2*WWk7lKP7$1KXLQ)$3=6q^|_6{ z>1Hxg^Z(+#w`B=OBNOJps1C((nukZBBpN>YLE*H_8$72Wu^*^0OYR51Nu^#w%$b1o zPnz?DLAk^N5pEHVF*B=NV{Wd=CPGOez8thrdi?E%-RS55C95)z$UWok1zIvQ4!~k? z3?5RubvN``c;v<00^Geq2)nazNdgMI>p?3YtczZPAFS)aa}9KoU+^dBq>ckB=L4v&#&3WD8?A?>3(}3#r3(tJzX7q$nWb|u-NC7Oj!xUG5~<;)Gl#;~_4!2Q7YHKC z@4{#dM=p78nby~eTE@bBSpy3vXSc_kLC0?!R_rSU=atJfpTD-@`#0k5k?scsc2*Ox zrouaon)ibmuw&A)TsJBQ&`i;?Ii;@STY4zF7y0Z1Zxe0x89Y1Odo}05w}N%nzR>&; zJLuLK)*O@aSa&tIMPc~;d#5PsMQ7OTl3L7Mj_bvJqx4tqMOZ;@N~DbrvxVE3*@1mQ zCD8K?qd zpkIcr+0nU7?uxgi#@T5hs?h1GenilDHZqCA6c2L+p$9z)ZL#meo=e-0A2eZLE)K!- zmZe>@l34UQyS>5w4#i!tZE6fxz+>@2e!`->(_>tnu)V81ub@VtWYyS3}dk6`4Eyp`u zl?!$ixX1i+CfIZu1FI$ zZ|P@I-xT5tg3C#_pxSXhaVC?*L2!Z$ta9Vm*;rn!vIQER!?O5nZG3a8*vb@(MG}(= zeA9fD^kBr@{wh^Ss_BWx&FE~XiQ76=I@E4SnI{$CKi~_&W*uwnDf2rCZ^){G_}bEH zHQH>qaD#q-9XTeODBTu=uZ~3q(w^VNiZ~DCYnV|q4}AfU+^mTxhD1%}`~)rekVWsvM(#hoh1Mhd#U?0fkbN_B9%7^rr#K7=g2s zUy8=~raos;OlxAnwnzXBBg@csh#`^ocb+~0@> z3F_^R3h4rLML`Es*zq921&;N8dL_Gb5#qGoNFy)v!^W(-%<&gubnw(KnJf)wRf)WX zv~Bgd*@R82ay5?N21O#16e+PZ*Zm3|8PaA+w!+`+1jc~`t?nv&X|x!IKR=z6!#N<% zRR9JV`J$Z&WhJ7mEb1+|iPqt`H{PY$xVxC{g)|L=Trjl{N>;`ff*c&-oNdt|Q9a{!WQY!C$8c?8n^&+vq zm~^nsS7_8+wZ#32Jl+;&Yvh`x*L+@6hTL!c-=#2&z#zxBlT~pgp*9UB&g1IfZg~Hb zAg8dNa85%+0*%|Q-wf{nS%S8S`9u9ikawQPk||t{fXcPXlt~K4?4}?DBAf>EY7&d0 z*D3^yqVI|ii!DQ3blkQ7!47r{ABS&i*2d<02drj^h%wff*%se_y03O?Av_ojZ-(Zoh_@zpbG8cE!-dgi>L}x~>uB5MMo{L8yxu9S<}2shncaM_BC2-^Ab?>0o*vwQ3m6-0 z3!e)mlP*C+UwK0HsCZK<{Y7blVe8#6QF^(%ct#&)h za;Mp;XgGa%-kfzkneHdYTt3yMR=ZGWsg+t2@k|P`s|{ka9Gzx5e;Y)KwS$oUCh^8s zs)bJPi1^d9GYNE`+Oh<4|!dKWJO_fuRfS{&*x z%dChys>;@-wx9D@w{LsX|0He9rID^>pQuJ2RNSYLw|#Fto;`osbcBFsiVpE>cP&_| zqeNpd%98vx;B=Q8yq4jM(7<=r8l-L|Gk_VlC`@OigW4E+>gcBqIjtehfn;%*)0FyK zp*L!3no(Kp?f0oBKTlMy-K3KelM+~SJ(F%1SL(BnO|#!`0dnfFYMZV57U(>|mg9Qx zkKgPsl;(k-5}(eCNK5w`Hq!QcRqMCtP?YI#Gc9dnPPv=I8q8Udi?@>@EZfcY z#V+Sgo-FIG6={gk=s67t=d&5+BD#KJ1$6n(tB2E&IdzLT?1> z(V&yFGi|5S$9VG+JNpyX43?!h?1&xtb)~OsJM3~i{n_M5g_>=to4BFEJ%r>hyr^bB zKMT0bd42Rf8o4s2N;v$n*h|*`?@~m(88azsZ}_ffmZES%phC+E)4u-`$0o`k>1BZ8 zwb^4(Elo>tadIv7B9*sRTYew{Yr!LBk zWkXl=oAm^HPSt<}ximxbDT4_at4mshoXEYz6Ieq6f=Kst3X^A|H=MhSOy2BDBHx&#GIShXC$wrmUFJ!P~CC$v z_gow}*?7|>gXpbm)6aa&&7^S!JxhvK*j~SyU9Gt{C2UdhhgRYgIPn@HdZU8;3r= zxZA}wlV-eVZzzE((O~Te;FOp*Utiu>V!w z3N4oqob@EKy*jwi4x5MNCdm*c^f1%ISY$jh1I{ZHa1DXf`w^=X*S=TvEyCkTlgCRJKZQa%xhs7}HeZmoa|+A~EamNGaOdRC37!?T0vM0Q?f+c!=BwxLN|*-D74U@QbcTol3=2a< zhfYZdImzPWJFX#Tu>_xFvI&*6*n~!t_*`P#nGSTEcP!gyYX8cUku%KI4ZM1%SMMM3 zpp#(L6R~jH+QyZ!OSd^q;dE)aAE!+q*)Di-gpy7ov4V9^_O&7{+5uk-pJT-($?_a% z8H(ds(*vJvKa;b|yr&})3qD;=eO3|J@ll0*pbs-5z1(Q=6rgfQ5&r|M1N1G*nPVBL z*AfgsA2S>OLH=S&s2BJbi5^PN-(ZH1l5v0E{iP8o(ns_1OBO26=J`QEwGyL z{v~GNESzf9Kk1n(u89y_Xh^lC@8-q4H4wacV+wO1vk(!zQ}$!=mi2%;zv?-1o5=hgO2IaFXBaZk@ z#e%%Q&zVJhq=kkp>~G*=6neItHD==P+r-ZPZWlOKiU_T0PL3hBEK|gJ@uRE^9TDptI<$}StlR%|GP0nSnoR97vCqqYFjDER?e8DR#|Q7rSTYm-jRpe6>EfD5p*nN;F3=3}rcc ze;5?@uF;|>=PC$UX89US39eq?yb9i~6L_Ruu?1PCxi89;s&!z)C0<^OP92K-IRc~L zBFnH2xJhJJxoIRYr%g15#XlEss+l$GDPafojP)`*N5*zif`(j?T5;JIZ+=tan~aM+ z>XUe)mMH01EG&X1JJ=ui3V)E7y^Ero&FVa#424W=zqT$nk;-pzCK0W6(9NSXBwa^0 zgG-X>R10)tvstmxihJX@j1uiW+^O&*U%Oul-}NCA3pVyt;^^rc)lCQ0_eSRXVokyX zIPh;t$I3>M=+XG>IE^!l7WTuK?H}yb$!r!3_-CEP(_ zxLuh3giZ)GuZMCBGJk+n@&`67K8I(T(k6^CDJHs%+G>8?f~wX1=$D6uAV({67hj6! z<}PTBCgv_ED2M0Hsg8Q)&WDQH=Fa<#8|E(Ze*ubCwf9%l5H0NCXeJ-@imAK0?F6YO zyY;rHy1LCz^H`}1jr`^cW8*K%7=t)V5&)2l&PsmWTEWHn@6$);3%?W>E*?|snrGjtKz<0i0tbhbI+=5?rsuBG zNVfKaZIH0z`M4M6K2PUAxnw_&A>MNm?tNruKe=Q+kKx~Q8VCu%PCn&nx<1z5?#TG! z3xna^!eEpl|hO%bi+ zW6L7Ks(H8Oy-tt3nS&?){sZPS+fMG3?5H zqqM&!cN7yP4 z=5~#-67GEH2Qk#!;3zMSEXUV1mU&uQcWTYzZ@|l^jPjM=fH-s9UU*YEw`|HGBc) zu9Q#jj{77X2?{pWc40nli(9%ozM$k#vCrlY4?(e&u*zLecNNP&>+;xeN0r==6)7fF zSX(R7P|Q(7yHIYxkz~D86p@G$gR^>mprBwRpour|QJt0ai)ZzH;A~`c$UvVaeUkf$ zkH`vdc9?X7vWodU~LC zr^>HG8qfUUM{y)Gx<1~AnboLW-zm-Y(L(*eIomDwseTgdx@{DHIbD_KY5ylZynhD( z0Gp%;eYg=&`&=st{n8CR^B{%f>*BjYlAv4rV?hx{`;oOR@?tc>(%D~Bp$wt2)A=SL zdFK{_`f_SIMvw5sYJ@Sx#(d;L-bIasKQ}*@psqwsB(z&egxW9Fy=&@4; z`DA%oVOS=&B(5vSI%hN}2=QIq$dCbv8#h3ZxZ%Tq^f;oW%eSJR!DoX@<9O&i| zgd8dzbj_?vNfyq@%6xFJ%L*8}S1}um)MiB;Kd@!BKyF%o!%6v6ohx2PqEL>ZV(#}q*Hrb2i^}=BUJQ5x)gHA*2i}7p3Z>BazsalRa- zUxS<2?~AOtIW$3D36L|jTe|-cF*r!+MqQ%P9W}`!@BUWoe2K|jK<;MeDUY~X?`Fp$ zFMAsMRrED4TN2~7pzDz81pC!E4MZr52>`nfi)TUQFHBEIPhtX@lux)`GgI?SPpN>J zspD|(ChwW4qL44h8AqWTTGcu?8}4a`Pj+*9LGdY{`X@EePMdC~s*Kt-TJTIW&8c__MMFK7?Zu9=+gOWk>$cMO)`=Sqb(VT(d zcfsGV!)IrgTj-_JPVqnfrni~GA}2rh!=fO!;lLst+_+` z@DR6m5>Mw~dX4HRKqyY>@bDg*^{lht3MHe1p<&!OtkBJZA$+m^PO}Jq**H1qhPkHs zUd8f3?8C*um_FcM*|CufnP}560-^kdhT^DtfNK7)xPrs79U#;W5?2gpFa(T?q`?N9 zzLJKt;rOAl`S3F%V%(+&F_V@@>o4c?en&ewfa^xc>V2oKBYFK&QoD-63JQ3@j%p z{h+o-=|8F~FJJXFp3f#$K`RT(bgq+k`R?E|WZvr7#HZ!QnQ*3!Hs^AW6IU0WHTT-? zt__b%JEl%?sR}SC#z@L)JKM9#{aE3*eRB_HT`U(vi=E!zEe^}5J`x|D1-}APY@eV{gkGnWpCg!4Qs6w5O?#NA>VMu4HVMF<&p)^0fn18{W(px67 znJl_KirfsGIJ%3rwTsrniLzZ^PD5(ab1iR%P*4(@)q=!ZvfSY}-Z8(Ky?rd{?CQ)X z@_S-2GW4*%lM3h!t2-*sUwdN?6Gl9MxAsKgZE!Xk$^|#1wJ@D_=Grkm95#i!2nUZ& zfB29{^VC73n$u8C#~nfX1Y_|sq#v~5PL6WUYa&^QaEu$(7qsC!Bgu!4G?d?+th|~x zI%lI@WrL3RH@sZ<9$vok$8lK*2<0eY-h?c=K-IJ^fM)o2@`0g)a3E zkDspT#I-qpRNXkAg$RG8OiCErK02E5)Wuzlc zMII;{B4{ICz7XN+#*WPBS!S^hzT_mgA$pB}yI-y~Vw!MiZicPzBp&{yed%KQmhl78KiwP*(R6Nf(Y4y& zOuGNeOWwJ)q22Th{Ao9=g{vp11Bq_96x3sU)wZ>az6MEiTKj$fSrd^Reee^TR0|G~b0AgnDEu zHk^hAfisQ{1IIda1+BweyS8g4gOKVqSnCBk$40>uUjCDodDyO+y`Kw@1yx#pIU2+kH)i zu9RcAkC&(GJ$&6xZ~bfkvjD-yv*qLH4hX`Akt9C-rSV2Ir^D~+}rlymgkzVPE?Q8^FEkp+a0@TGps9GOZ5?6)xz3O#C_1fcuY# zan1iP5#xgXnSr>P?rWakm@5=! z++aeF{>m0jFEyH0M`bjz#*dkRII_~ z#O|t|+lsdl-Z+qm$5&q2t3LhWH`BxMVrh4|FY)GL5L0`991XuOha6{ zfM!q!&w1_ZuEvfNhn(x`_4Wi+DHCJh@`4M2D{puNmZdo+O|WwbJ8@`YCl{78vjkVf z^h~{k<%2eA)DPtZq5F=s4^Q+k5|;sB#z9CsoJ5VLh-nkR=X^&3dLFjL;k9C zQ8cOYd0vF9305G1UHOa(i~PMDg(wdlM_f-O&3@^4FqCaodT=zqnk9Z#B16Axh5;1A zCCr7>w!EKA$y|%a-GefH(a4^2F+-9 zzHd!;Pf!!-@fLiBP#d6gwkQf=A~W=_09gq{5>}N3zQPl6R!}T^hm_Ie{9k=G-@DU( z7?#T|6XO-*>v)s|*&Fyyw0-L8XU#$mxrb2K;eO3o(&gRFS^B^=9@A{(X)IKqZ_g@Jt+omd#fQ+t4cQrG zF$@o&`Cbgu@az~23GgV)0H+r9T@zd?0y{lCIMoWM?hqjUZB*2~dO>0UXt8G~V7v@n zms!vBSm+6~m|el-KHwMNOh>vql->DTkKun2!2SwJmEWHqfX)9(bg$yEJ$D=`pF7N_ zlXX>kIZ)iI?A{9NT0Ok7tn8j%d_#(Ifs7*f6Jy3RowFJayOlxMI^vXeh3_^qF36Cp z8%^udE|-UK`GXsouGrU#Yma3k)m$~%q<)dPCdQ&x+VdA)#zL%75t9t6F)S8;LAJdHujUqnEmePrDeW!klaj@pyBBZrVM+`H_lmF2N ziH9(Sl?P}2v?FgWGoRxpyC0ONa0%nLy=gHJiZAj+Gk&gvp%R z#arZ6yVVe<7#Y;Pfi)4ZrKP(!1;zg+SN^tDmVTNq+!)}?+VmZUdX_m)|^q1)5?;AR4Ej)i8!p_Cca3?Ni1mA z+Z#ot_O}G>ZjI=cpC%OVkBf@Hp1mrSQ_>%tE-7ZEsrR*4sa8VmuY~Q<*id%3GteaI zjzswUJ~1DhggOR>ZfWZy`9q)x=X(}@5`;WQOvEkHHL9pP5Q2^lttN=(YSQF(-ut6r)DZ1EODn=uFZ2N zk$!!RAvSObRcg+H_#=ySy+gy8c50pyncHAGrzo#Jv`~&erL9`QAg-dwLb|FEj@Hhh zR5ShqYI0_Jo3=uy4c|YL*+{xYwg82<@j_;Q8LaF`?Qt~p67`=~K-IFH8p@SDF+ zr7&7DH>FgJRdyild?09{mv@dr}!sa_MdIla$Y=t9{s+_5+GlO1;m zq?KuNjvQNSPP&KW@eLiuk&?Jm`m=?yl$vg%ACr_)L=diK^w@t>#nIBlkD1oW@+_iD zVI_oSR~{*s8VG<@ox~EL{_r3r+X+yVdmbqLyq(N|eJdH^VQl5j1=C4K!8bs*DyBRW z?$jcBGks}6gW?4dqik`=R*Rp?M3JL2DZs%M_&%ySoBza|PjDk-W{lnwGULP-r|9q~k)0q9U)88L`o<=z~_PpT*iJ2@f zz`xv$fuI$Wx0O?#T1Ie)HIuYA4bap|$`>KG8h30k;cin~t0U;3#nm8)FReb!Z;iuL zwed62N+KIOm|#M9m!B(H_6?FaZ`DH#4qIXa8Z{I5(bQXQam+_GO5HvMO|YW3!&J_w z(63SAM!>_*n=%BM?Z}!8c9Ks&=MEuJdr8cgrQTXB^E2U|qC2ajPsf~26Pq9mFx~FS^YIamEnekE) zVs^`CUyUBau?c)aXb4@W;b(J`YWsu8FJdA?KjMAd>wOgJec0=LQ23Zyd_#AL-BoHU~qY5cMg}YMtoV-M}4p&Tl+Atu2>kpZ)wTmaTdjl zfuDXL_#(i0eqg7te}bF#Up-RV+Yd->SXp!@Sf;UraVxSwUUkEa;VJPF$wGvTB4L-# zEl%MQQQ0bzUL7lKlGR#xf9=h9f9-Xz%X4!N3OWC&rlpc{2^qAj)gXp*hpt`DqB!3hxii{;jm;&N&+#%FL(DbDLeV>TX5=uc;PZova>6_C%jb&)PQ73Q!6 zb`tRzh>k9#4BT4C(la;%+9}(pqB86~S}5yItfVIJHR96TI5UQ}^7hwPbR%DF8Y_!@ z)qm3{Z({ueF{j7ChsCy?))-hgop!vxsKKpV4Kz!{Y)$&WvpPl>;(nX(V3jMKM96at zZ?pTACYZkVJ-H zv&^o{=m_nMzKEWoLhRY~@Eb$ZYAet_Ek~-bgn2rnyF~I61Djv%SGFodsLww1f@Kg# z4FoFe&m0EsNg433>h92qY%tlfl{rCI0WCR4;KKW&v#iaQP2)5J4M+Cz{28!+=Asu? zY0R-b2umqTD@sZx!X5H?>u5u<6M$*vj!JQQUqh+p=%{f7WMpf9dW`WfkVYED!OihZ zZjH!ij>uX{iQ=us&DXHxR1KjLS&e&1lAZ7>$vqF1YV9TyQjegn-b<<(+rxV%OS9S+ zM~styJb;r59W31G);GOGB`;PAH{0f9&Bo(b(|~z{Ya@Y^5OjRV56y)v#BC9|-UC;` zGUMud0A3*O(@yogCqqlC_MffRTf#^>}u9M}8I!vUv_VtA{hNH(!B6zDdwK~0j7 z|AgLp6=GrT);+Weg+QSGhC4>`MINA3PMY-Fa&FX8c{70{6EA z@R8~)%3o@A-;Gv{xS`SpoQQKS`J%N<189 z*1qVSGj>tmiQ;Y;)9WRKXrMI)h60e5K2jco(jk4KHU@d1bOQIXdg@T=+4rh1-_s zTbyp8fja01pm_Nd3T*^~s_;X(5fn>pa6n%R;G0w|lzRVe0AHNaKc7MIsw%(VE(%}D zS-eF0^Iu4O|A%tnzQF^RE&A5FYN9HdI=3y(#e+uTJ~%FqE%_F`&ife$`r4zU{`+$T z{oXr!qklc*Q}Bsnq<%-MIJZN^xz$sV74}KN&Rchec`du3&=iawcASu{{T8?7`X4~N zzt3A~(n!rB7qh7eao+(312E*``QO;=?=rJ{CwLxz*=!*Yo9#26y~j#8+9zhdTnEa~ zq|AMs#x9-+m7hg^U5nTrfa`O6q%%C82YA>g`l`XZX~LvXwW!Xjh(Ee!j=_UF zBy{ssGAL0NBk+$>P*lpaaIgy(NB3MO?luV@c)jAw&)hpV@qfE}`G%jk6K*{pxjls~ zO<&*0*`}Y|D(TWLoiJ_?E}cN@p)H-zZ9q-U(Y0PwE`4ZOs$5~|>Z)APb(Ybp|LlsZ zRbB0Rpjn-KW!Y%zvIWzq%XFF70J`7@UFEO0jtmx?9&$Uh4JtQDi$JU z?#mXbU|3m7UWd3%a3&uV*HVvl{Aqu^KB9Za+waLm!<~qHXA}paOiWCkG;SB;Ly)?p z9fw4`haT(tXAb@i!$@63yd~~qy|X(oLh=Obyspz%1HB`VFu2k9yuA7f7dgR%Pj$^_ z;3&nzd``Nn{Wl!vqnrN1=ricq;@8dTWxsOX$=EbsXS$_)6jAq5pGxv z7gOh3X6)LDmsXgSTd)WOPApqMH&NHmWJwCuxPA05yAb^8V0==K@M1?Cm^5P7MH(_P zjI>b2e_8BGi+YxJ|peMyx`h&XE7aleOEat(Z!Ywy!Ig+_7eC$!sYKa zC37WU`oGweZ1c2bRWVsSHI&Y&ve;;t<&N6HQ4Pi;ZW<*}?QMSDx{9~({$!3!PyTJ$ z1mxi6l98;3fxZ}66i@YWFsS0OG^3FTHv`jQva;r}B)HgCic&)yWAh22-6iaDcqY>y zj96)F z;0%a+c;Dau;K4$`#egF1J+7#NFqX-A$(WRWDj4_{dO{n-D5cHr=yx)2yF)v<3ek*wqAS!^cXLjJ6sfZdF-~NGhWxt?m zSXV=!CLVJgbO?0gT#P(7(KW;T)hHUXAXjPZ>cMge&gR!2Q@DT@oYXM%HOXjQ9M17i zl3IH?%UVmMD_T=|qe06Fn5p8H#0LGg-~E{d%toMKw^aIkD>abWPi2By|KvTgkJ=}* z_a=pV!5zr;aW@Ai_ZZ(|!GL#Aw|Bzcb_14Igu1tof2tiqsAC4Ok-=x!*U=FFG>@w$ zapO9#27Vh;rr~RtpPmub^_nkF91zgycfHK7)M_EB%fZ^qVBgyQXo#l?ZdI@89RElc zENfv=lAG0{Spnqqb>ngBlLm@#>R)P>yR-hGKiFNIT*Y%7xA=fp_cF&Gp?1C67Wl#Q zgQnu-Sg;(L#s6 z8n{O`&4X7bbmWd@#6_p4=LygjA!ZcRE$62<+shx6*k`}l^1E$3?srt3+{0>z!VBxg zhi$Zk3ya~nR`4VI~#GCwOMs^=I6$>>?oJ3LVTrA z2>VHibi0XEqL~OKHZsHYk~nrf9#n z7Lf?*zWUi?=Vf&`^gC#&3~QX5kY$0RBgoz2^L3+TI%!D7%a9W*imCq$d5#KZ*xP%1 zTvaweS4ZmYr^vC%npx#FN^L;;15VcxylMMe8Uo6Ck%ujB)<&EC+trzCgy1K5+}Si` z8bujd?#ivg-rq|vqpJ28jeMd{F;33^9f5_Q+qqUKcOT2 z^B!_D?k{*M!lwZJqb0V%WSTvNz%z$&>FIMdjqUN^`~D@vHYJi#L;aEVIkDfQr_lAZ zLjs+GK3Zb_2UphuK}JW-(WoAUQKTz=v!hzA72mh2pNScK?zh5Apwnc(EjN{q|Bcn% zCiy%XTrNc?)IrEfhmN0(;}sO_Rh^n9TGKwg9&h_kT|#h#>hpRoazE?~BxRqun1}a! z=$WX~?J7vO#{?zmZcfr1R1|=}zKJ=+b7If<@ziSNtP2Wto#zni4y@JjbjnHQm;l|Z zlS zyxr#`W0RU~O z1(%9V0SQyc{R!tfm!+5t04#%>WuPuV)nt?wN8T#qje2VfTSPs~9b}u15Q7qI&55uU zY}!nhjq*tQB1p$8gRn;jXsyiET=Yy?$t;d#EF#32u@j3Ug0^T@apa30x>8X`WNsCx3tJF2cp3znE`&xKm!JhI3__WBo9*A!F(q3TAMGtLX}7lRc`RBGGw z`6M^qJQ=cmlV9sATe+a7YuF@IJ3c#KiksbD0S-40L{qO4nAK0TGb9`?8YdgmyJBo{ ze5w$|zY37~&~ES2Xh$iUCGvNYXTsm?x)XMLM1fHZ6|jV0+s*ShnQVv3s>0`_*n*2H za{9*@l4LQ-_LH|2kwlK{ivUhdV5TJl4p65MvS!|I63Lfeiznh z9z@DBp30LJ*T1rA{lm9u;fwrQfZmWj^hZZ&G+$KC?bL zxBl#%N%+bc38ziG(S1@a5H~iqtc2zQ{G2DPe@=9K>Pko7Eax?oUFL;MdC4ie?Aghk zx60OynO9DZMxAZziW$%?$Lss7+md0|-aO3&RkT`hp*{<^Uk++D+dA73o_{gZV!Hcx zks);`*7u&mncdroiJvRHN+Z7rY*2>Ex3_RsUF|>H5^xOsioGSBCP1o7fAa+K(op=9 zmiKi*X$Ctrba=&W)kwD24P>WMvtsTS;PqONv4>0kqS+D<3@qLNs>lN->u3(MxyKvv zi@trQXNl(KVJ1WgPFw2qf@efnZ6Hw!a1J~+@^LDx_mU9d!}Z7e&}U@VCMwnLr_2eum{HmHZe@56F0fn%6n z8<=!u^FDOkh-6Q&|2V3i5feXXGEmcvFrTRb)^zs}uew ztv;3Xf2P&3mj9DhpR2Mb!T3w7*S!3nX!T3T|3Rxa{F_#%JH|3)c&F9f2&;xe7xFiI zRi&$T!{gH>p=dH)2zb%c4}Sc~ypeswqWG5Y;q}nsBzQr%kU3)+~wv8)nWI@C)nq17THyDMNjqpsa;&J2a+KM zMqNXgC_}AeB{4l?E9dsixx+Tm zF>LlX>P`4X=PwGoey#wL4xK#=miGljPzQ{O-k}(2(%m`S7$E8!hhKRFEZu+TND361 zBQK#1EZT!R+Qsi;$U>fj!4Fvk`uJfJ+daCriggeDn8}FvqrtA#MIIO0^7Yr%YtE59 z>4MeV1bC9SGz!6}BRrB4c|L|wT>F{r364l~suUxptW`6HaEjPFx7%e7sE?QrH% zwo*B$64l(p#lz_PVU%BIOY4PKCUW*^#TCCm+Iq?uqmPLTdPI|#LDl4|Gn(@akD_y~ z)aI}EO6Efx#{{HR`A5mhD7bjJmQ<7k|I*%=GRp;5Rr%mcOUv&@Pj%66h2scaq#M?16dgzj~!qVv={@-M72vHm&Q%a_MB@HqYH)Q;C(x0Tj`fx z@y|v#CD=c4uwbN0ogMRJs`>2g>CA?AJ(F}LE^(4{nKm1M8&Q3^w4G;T^~&x)=b|K! z6sd>Q+%~1^J;qv#GB6QtfLThjr&T-=1xq?^`;wsHzCp6NdK)ShG}q@SI3)-lh($9w zJS?oZ4-uN%XDsRfB@)&& z*pA$h(2A5k1+Oiy9gqH`H`i#(ZFx?-=ki=-U^Z|lGPfAiv}VnZWYO#>V*D9M2l*f( zK7I-1Sk)rIiWppaz(OX!qV0N&>bwbs`4;d^4C%PpP*b%eGF1TXB|P4ZImLRvsU!oI z?st-e+!HIT6dAqh-X0>M{baN%rfw7=gzuj9*UTewU^D2)B`RFW78Rnh7#TToRHi;c3}N=I6)@;+J`z`-1z zyC#$}q{za$t^|vHn_hKL3|wkBgj;WJex)UnQgt5!4XZO_S)~mh8@md_1Rxo~c(^`r$exUDsi%;R26Mxl z$D%AMEVnc%7gSUaIH1r}5y0RWv%#}p8EFN#xFB<|Ne|anw85m~{nAk)XXfySOuG!I z9lu|wqq^usv!mzZ^bj1K^ygQ5@csFq-}%m}TA~^OeG;GOksFkEA|RV}mxt#kSzC^__S17m41 z=3*adjofI#g|T;K`*`9`A_(2If2%=4F<#+902NU#9(x-6%-H3{1mR)7PL-8WZpQYo zk4pRiLhlx_L!U=BIfLJ?wtctJ>1krjK@V+W)Yrm}c`G@wADYlFV$AV`EMq{V9yc!d zrl*C&Y|t_D5k`f5H)8E0%#WvrK=8fj7QAs#9kq-W4(dY}1L6ZO7EDLi=T`m;qYsq! zjTGRYmE>wJmV0U?0GYD6(61CLQGE_RFM3vhnMq3QCRdcH&b3#oh`S;XE*}dFl+=ai2CfD zn77rRW~05?^=1&1Tw@S;SO?SbwA|C$%>p&fyng05gv3BqoRXNLh?@s%^|$L5LGFIo z-vN2VBM`7tSq#K!JvuqEkga0gA*Tid}l~v=>$RIyb9+xD+!(S8fx2;yq zX@Syw9OKF)yR1Rdz$kP+<1ZgmWpB1%X!n(^+(tch zmg~LUJ7=SAjucVl&yH@g?JM zX0-m{o7{?~rc;PX$y2BE=r}AtXZQSOVwgFCe zMh9F!70C8l)>4m=C zJr~oR@cB)G?g35bsIoh}b`z_3qj9fvqD#QFbS>7OyK1s()J%w7Mx|2Mn4BX=aX0A^ z;al2YAB*Vq8Ri0M0zb2i>f`SRM#(54AO#*Ab2EvTc4(-?7fmMTLbVNb7v4pwVKDn1 zno%I_tqKNQQ0Vvk1__fV7;!9~iK}A^j*=VGs|Eu`3jkuk59DSesmZ3Q zShUYW#9Rs^R6XOoRul;(0|o7_KoYa18?=HFV1inxR6=V8P@huXKn`h6m)2y$bdP{F z-b28qmyH+qS^G{&-gmcCw;Y*8Yhop!i1HFD|CmGIN`5Dg}GFm z@Z~_xr273+c@bh;VRevbcwoq;h;%zkS^TcFN$v*#vdFEd=_k{zfJ*vVmFfVqsY0C0 zAuXkd_f863VNfT9Ht=sJ1#OY~49Eaybo^_8KT3a3(!g_vpsUtQOn5BrKHLe+4zgX> ztWm90pOhZJ3|9b2n9dgO5~g_>UUkHEIUZw@O_{WqLf6ydURzMmIzpG~An2xEdDFg8 zlz=paYUF@oC3j~q5eZ_TY`!iM7AWGN3ajemq&ld1yr4k>N=G>NNJy9g5leJ4v6M!5 znkgg*X}J-S;I+lh5w$l?k8}W`T5m_l+&wjafDiZm&zb&qZ$^(tU3HqK!kzkPRRQ0d zI23aN%jLwg`UfRY;xKUVoK=jZp##+dMbt-II3#IT8S@V_;_QWlR+hzuvW@!Tp`{8c zX1M7KO*6?$6uvvL7z8#pJ=_E^iu;45k&ht=FAgCH9p>r8gM{Bh&5s|+wT-RfsHx!^ zHg*R>@tj(kjTs#WMdQ^%E3{9mGwspJRcCnapOgLh_xrYOu-hz0A~?u%?wWK{}n+p6JW%^&)V{*KdYSP`}Btd1XC zx!QAXHS_Uy$qZ^tav&(_B#8$EC1J@7(%FlB*b8-PL2#SC1(b5=f}kYeB`XL@s{U4@ zld95&Yw->xZC$)WNf4#3>GdEeX<_DHP*S1dKTuMedHiKQ8+TWpIqSlR7fVYeY1@)2 znoW5~6Hqi!vH>W%Mw|DqB0)%?XkfV&9k=!DA_}lc5!LP_7<~xe=2Za*TEJlQI$a^J zC7|*aVpZMI-QV4CE8=^;_LMuN{5lO|E!%|9{ zG5XwJZf~J%^|E?`9c=V+>M>;VtK-moNzJ+G_1`-e5b#VU=xqaSoxZ0m0rA7RS~J1f z-mRV&d%evr$)=Xl-srQ1m>#Cm^$04@K_&d1!F=19)hIsKu8&CH*gPS23CYgrVs&5c zz#Vz#3eLT|Uf$lW>Y0+d**KXAcprDRe|2fU%y|qE@%b_mQSp0y(=TYKqpmA8)5@{3 zF2FqEf10?Ot499STL1E6z{3pWr7v^xdz@d~Pvt>Y>oL3s(FMLxrg(_7q>qugYmcsARHlIh z^VL}d&1`czcv$!=?6`!BOblBGw`!LlbK2PW@Z#!m&(^(-v%X|q6OX+XVT(s&CGwB* zD~wD8)ReB%e1XyUl5R_kh6P`X8A?i5&oJwgTCNI7jZQGhcbt&}}Wop<8e8q$cB4{RtKC@P} zpo%f5kHEB>TQo0DF{_sazV<;IFVmAPU{RytaQu+`;rpFOZm`CAUB8SC8K@~U2s(A8 z%s6O4QRqskeUf5%OE#2u`+MLk0Ej2CyYOjFrE?X_joTJ)p|yxs4#Xpa2(W{OGC*RO zS-kA6++H|mDCo>b`!Wr*!1o0zBZ~A-G~xu+y(g#LhTfCYwI=AfVVv?XzxLCQ-7!MjoA!=X~tog7+ksX4Hyxq6-LO!1r|z(m(+Ba_|m#fLndX zkH18q5;1p@?)S>nL#nm8CB_swr_tm##udRkOJ9L0)+s_T>RM7hPRYZ@Z>0<>M;8bH zBw5B(jMI!+NG5o2C)wFS@G)R%zIBTkP2!6NRGaV(SZ4mwV~nHHxKkO!_+vV_(moKj5YqRebJ{4g71I(*~d<1Wftb$^7W zxUoHVf_w_VK3kt!;@&&fQA8N6EP%ia2zPSFOt{}ea6YIS#LA0VicL&j4|B#ot2;uI zYOgDj0`Evw&9Ur!@=?&Tim(tU$%H1NK1XU#Z`Jf=v@-s zAK$g8)lqd>@?BybhgOTrd+xbeRI@Vu#@g$xCPHy9be%5mQ|^Mu(K|HyO%rU5LKMcg zhkDX0QVfd{s=KOiKoiW2f|JIpKXO@+I}jfPC;xcpF($DJNd%PlgyOrLxoVNvx7o;U z9riOGB_oRLP``5Q%4e2P<7eK|jIoMq=(&F6K@XXe^5RYO!D0{x8R1l4vC^uGktwIQ zo5JC%#-?7^!ftIlErUmWMs1`yo-O0-5fQL#sL|8*E3N{`pUze|6+qP%^y3a47ov2 z(w0fd?Ylcdfm+GxbI2%hrFB1+L00{%l??3r-&V3=Xo%en&>JH>Yjv>qimn0@7=9Iikr%773Cc*b5T`Aq9ayH6h`-5n_YF<~2vbkrhW8 zdcRqYgT;R6A$6qF3G-qIdsPW5!+{l4odLl9w%;okN#|I|pBNHjHD{A!dy$JsDdCkf zFP344FEB=rNU?#5+$8vzu!o81$L_w>jRPzh40WL;uMkV@=v&>h}G9io; zU(2u86eL(6^o!FZn18rki;m<6XX4v8OA<$VRyFvRZyqJB^lU7r#AK!#S#-UqX=P>< zCH*Nsv<^gQueYkM(8wp=^f~E>z}mv-ff()gvZ`4j3F2?;iq-sx2dAT7kwXR&<=&0r z1v@tfU}0`b%XAr##n-LP@RU?utJe6ZnNV$tTa)3;3n1Chsm@Z0rBAz5{TN+cVl)Bh z(1}nEJxZjXv(OrJW%1!oGf^H*l-pSe3K=jTWCY(xiwH7+eJb1N~0bR&C3uV7s{)I5xg>Y7CcBY`%OAcGD|Tvd9GRNI(X_0*gSaHlnS~d zcb7AR`s}%?Rc(aO06-JSu*XI@!w3$nsKV)a?kQ39D6iFd4lkwBu&#Zzg$>d#s6uK$ zesXO=0}g3xpp7`{ZJ8u)<>It9Zci1^CK1zOj-Dp0D!-CIy;@B^6yz8yY70~c0p{)G zMf&s}r^h}c;XO&EqcmDlIWEn}`5=9=2~wY9aK5YF2%VW$Txi$T0V+{ns+^-*99FCY z%HHuwO&*_kBRqOL)0MgF^m*63hUB8$tm#tSpYMvzpogOy<_DMKQ)=ZZ5pyrj*G6bN^{Fx5R)#riu4)uYIztCD(iB;WnL=rpt zX&wQxuc~xRDYyE~Pi2|ipFb22SqZ@fdZx}_>N)nra&s?Xe1QF@wsdEX*q(ev@inC}c&|9cAG_TH!V&XzL!$;Kyu8n`ohe&mpT2C} zeD_3+#YyHZZrQ8tAN?mMn)bKrWknzeG%gPr8L`~l@SHBLKbfeI1}yPlA1GQ218J|` zv!z%Tsi-FM_B7(Bz$ZW)e$i?Cq4V@?HW*0|EVHC_=_p=MhHOWS1uZz@+=MTVr7ali zj~jENkNexKNE)K5D77`t+&!d8Q{cK-yhbcP2|^ORhYX7*h9kZVGRyu`+{I>*BRK(J z8=X08iW}AWr?|_~H&TE+d8PWF;x2wrao5S~|19q63R=7Jgg&5x`=_{TBIN&Lan}~D ze)YdL4R2R!HMccKxfIt|Vn3gpbYlOxo3%<9KoH!VHNSe=-#@b^qS>{JYJ%NaxMeT- z-^<)i7(vV20GzLn8S{Zd@B+Gv3T)N{-^6wl?i+m-;y{I6yXmnJjKTAZo3PC&whXmY44%+@;o_8ZJLO5j@3hi5pF$M$s6)O`M?POi8H zD);Ak-YE7@`{a#UZO|C=nvmqm!hG($Bj-8b_olV?^Ay(E(};&SFn8}ZV(671a?U5x zKtsnw%=KtEQ$3O0gi_-0-#c+>?7gq9J&eu8NI^?+3zwOn5^OF(OL5~jNJYbI$@1+v zbRRH+5FjlK>AeRi{_d>NC)6X9gW0(xTBp#h&QlaN(!ukJG2s}RYZV>`9AN~#Y9l_2 z;cTDJw2c1&WABpFOP_J2d?14>C%78?6?2MsBmeZvXgI19@ayLW(T_WC0-vvgzfvE+ zveF^i=7BS($WdwSbRuU_Abq|J@2U?ib;b~8x=PSR4?fNHF_8X1kpt@*1hWNC^!=5j zJ4t6tnE1`Jft|$Qoa7B6($}E*$a?Uk;->xN;g9NK%1tG&)}2mwnXP!xP6-W%CM#|J z(V13$u7Hs!l5l+q;z8422vK`2vR58Lg=C zS)<)~1B6a$h{S|4q5L*6;wzvCh4^D!0CJaiou|9q<;~<(ua2kfmOrQ%j&ZwTkpkXf zc5t*!27R!7QT~j+tA&^nhf(V6qH`Gb*PDLO;#KE!u#c-x>mLgKhFUw(mHRWMKTr7a znAlSnM~$FX>2M$S8qW*!%ZE^hJeTBOzc^(vkGdZG;ggL+8N2=*kVCf%wT-)M=ye%E zl<#F{(`Rk4lWzvQ#NcoJd2=J4VHb?`LVXTA#6{jY(;cScp(#a2ddUCVedVSz5dL)7 zNk)9lb#50)$z>IP^S>y2tAIRqXblv1cbDQ$aV_rdPJ!a?R$Ply+$rwvR@~j4;_gtK za)<7H&OZ0yKHP`W%$KZ{{FBUNO|r5+nT!#sCrCN62cr4Vx>UB}B_uXuIU`J(L%|kn zb~$lLs$Z8jR|wxZmIUi7pV0Y;eMblBP@dRLqYG(XCQD&=DZb10Wj-feK#!xKm*}V4 zB30k2c!r4mWu(Qm!Hp1o8zYlJTS>?tLMYI^ZW$^TWY&S3dy7i-{o>4fF8h|Ct%oNk zzS_2m4=(D4aoRr~d~xFZU_2Xp|2Vxnpz8Wa*A{P3e+ECRab6WsoQJ&#lLqnUOfVe@ z7Kc<~`NwNQ%-r!e=H;ODM?thBJcN?cx{!l5=a(9B$bPgmdM;2SZ7! z*h<;L#(*$TQ|u~%Y@Y{AkXp%1LlO^B`K?$myAqN9=^!Cq`vB3`xB`F2rRPlRdiB#D+TEC}w zL;xRR7?CP$w*}!Uc>8?ewmf%7;VLpO!Cc8-hXkU3ehxc?zIeB&AU?KHg<{`6IhtYI zwt`5Y-ttIOA>~#q&tVg&=<`{UxPF`b@Oiryj5?%dMr@!UbPb+ZAK9InU*3kv;~U@A z)}?6CJ&4&I2-RRzBu640mA{#ze~K-JAtU086#56+BtG@wpR8ZAnyB zg58!SO41)C#LgDQJZm%zjM7OZ#QiN?YvHjUBYo7de?=Dk6dWHv{=~QuQ2|T z%EXCSfrSP4La$8sD2O#DCz!YK_EDx+ax@!W4Orf5+U5;63KyJ#~ zZl;3MfwN(^k<+Ot6Ov?U?((y2sKYE-(LvN>f~~-TN|OVBY=S|a^4@KWKz}&Um+6^C zaX0^2=*<6YWBfowiEig(?pl5IYnj|*9M zLXk0f#_Xa4g^L9{q)xT_so5sN95pbzy<);GVIs=zy?VuAtE-P?p4P2hIf_k1L z;{9l{9R;z;-LM80i;`sKBEHCLMD89T(g24HqZ4vD^65;EOgbmV6w{^Iq`q1O6{h4Y z5=;jKq`7c1^V?C!c+H`?h94R_vT!q1!AGMSn3xkV!c7jfxE|eaL4A8LA%42%y4{04 z9F3n!F8aZwAo4lO|0f^3m(kz%9Z zt&McdjzP>0K#}UlFQ0$Q1$)PpIv|r=Z3#ejn)v5w7VXJ-T{v6b7u*WgyU;dgGG74<5Y=g# zGMhah2j-&He1j`mWlkN9nu)`C{pKRtVI|keo#3xo)N41!TUkYL_k4QI z2dO>$lUQfVI*S)tz2T4(T9}ZvH~m-2c@6CSILcpWk{PJV!^b?0Z`8OU+vtu;9}s(U zfuN+cy4RQh zDQcJH7DdHIXL^6Mz|mFNF*&LE)!3qjJdAVY}Bt_4TTLd6~F=ejb(R)be>sd|#9H)+IQo zLQX~|BHZXSi~OMcXdpoAV4ZZ>U1v5Ls(^s9C%u(KC1E0p6m<1?8nJiriB0epa9fKQ z6i`gG!!K+y^V_&yb{oAvPbYQ$yO;dO6S`NC0HjxG?7F12N2zIip}?Y^Lq{W2a>4Y( zvd+b&s&Tp1U9H{`-2iag+Hcj-Z-8B~)|*3^;cHWlms}&@jHxyPc5mP91~PiDQntvh zQq&N`MZ5Xcki7+xn<*1jz5N`Z7;;--kAQ&UJ=A;jHm7ZPYktY!_>2L#MycK9hB)qPoG636jb?=J(~UKu=il}2QKxy(1< z!Tz4m#6ZeGS&8m5Ec+`-jAt0mEVeeKZ-VU~x@6{by$^9-JUT}#)8Gfj^1M=H1hT!f z(|#`M+Pv;N33lM8f!BzBHgd)O%`zpn@zy+WGjLzOp+Gvw#M+UaU6%N6fIkdA+s)i> zxu#uqRP$old@zo5mqq%S|9)_o*EOtdwd8iEcKE^g^OfkYOVQ7lAgBBwRx!N`;MKS8 zrw;=6?I`$6eLXwY$VHH{2x=^>KW4VQ90g%)`2yw~-f9he1QSECBvE1TO7wxHNq>MU znMdY_dnpZWf1jwok<8YX=Y$hvsY2*{ereeem_H4oponFDK9#($v5_zk#?K*(Tm?Fp|k zKC5D?=%j4IR$3h{MB$HX-Y4nL!@wl{Yvz5DW~YM1 zYjwB@(QYu}K1izuBCd@YTF%SuSFt{}R1^^il$EM6MK?rCU!J|FCf=Qv)F*Sd%uP{b z*e#So?4@$|&&Lx@dY&W^UCm{fpB#2gbezlwZPB01QWBq;n?=zldZ}g=(!x}jDWOpY ziw(o5R0miNvt~M8SF?r(e5hf%3LxKgGf}E&Zc-7lXkHW&!gFS0+`vT)5#wduQ9zTQice;Pd(NX<~M8g9l2ctrQ0Eo~fbS7F6umyzZ zGH6{e{Q^T_V?s&%r~uViqI178S7CF!z~NGc7RKRXmEM~8ubT^rOPTwA`S=Fys4;oB zWqJoY;O1g#r}pmVVrn=3RKKhPxVgN%v#!gecVIsJ9N&22GqDppwjQ{X>8j0c#S}?L zOU-S&UUr7+HC#!GWlT+dJ0bm3#z#?WW-Q4qY~@#|FkqfqgO$^;evwKx&na=-Ortzi z-%3J(evIfwr4wHQD$E3g}H=_+O2nLdBou=UkyeDtsReC7`b#!Tah&Oij&%_H+fj;>om zPNC+@;u$zn_(4R}s`OGev9WyEfiC#YktqLEwjLZzWXzB8lsMoF9du2Q+tUatw^qzz zow$Wu`hhgjoZT2V$JsF+WJEC@zZC}8euoA^O_bJy?`<~Yx|U|?p0ODisWl+t8GsSk zRm?!7{M?}=soAEr5yauL4eBD+umBU?Z~$M!QBCvwGtl)r=*IYKjx;(7RAc1S{^VbR zvzC`-_q>Df@4L&S1r2cn-&w>$o%`#TPZv|Aa#g}8TZ*ElFjP#^$+Q&}>&~G}hmiKZ zGj(^#qw>oh=#E7Z9_8|o;hcwyt{ypS$l`S5?@vo1bu5fsVRay_(IgS*L2Vf(^65ER z^bqk6&*x>g4PIsN?|THN9mLXbzve9ZP!YR7YD-9P+-eU}vEHVILNnjug&xq~;tdYc zn*2yk8?f&a^^_>_+J7?jX5_^mo*sI2S)IvmDZmxxQS35|uwQ-laJz@5=^j)?W+TKh z)->Gaq&@0Aj0_4==_D^i8k{i?ww5WCS9x+FyLi#qp%lwy*+Z7w;i(mb}EnBuPyEJq$ zJwGK1>av^SJn`IC98OJ6ZMicNM(a#(x!*;~Xau()Dx?+h&hW($kJ~g)>mG?+y{L%% zv6t2^dq^-_pw|?6$b9;2&1=EL?)?wju08h;Qcf+>Ia<#B;y7OIICB_z4VngNdCgMM zqLUAZ-B-#b>NTh$iNIm{LQ*#Uig{W#qhd53Z9>a$a@dg#aPI}F=&EgNWar&mHL9(e z!DyCvv!0TVVh+{{p0F1`rI{t2Y%ndpx~HDsDA!I#gv))TpMywYYs=K%vW9{bV%qbO<5(6m2D4>*?{Ox-c_*jxcpJiFIDW6!DSU zG&4IvLFEGDv~sujKp_otynIY$tCn`utUEtp1eIBSPi3Od+V~SyqpQB>LUGF69SVfZ7+3Drdf8hwo;$6$q&5VO{;~*agNSK({#JK z@uuZ{z(rztf7SZte@v_8{g%8qn^F(Jv|8R=RlRvPt>)YRnpX2(0ADpb)Bl=QsyBdX zRr+{9Gyk%YUh^BR_>?Lw8&3*e&Z;b(q)+vYL(ukWJ|1v^K>FpO_$_HGMfQw%u`0+lW zFC*+xc~dVmN<#~fXcw{$3;3n^gEV^-(p_5i-#{pwHU*_GaqS_jhP#}>+EO-3Bl}h_xwNZhY-X|n2KLO`P*^6)NndwFD*4A=Hngmq1HLU} zoQw*oQQae-LIZKMmj)Is$p_)Me>kPFu>iY3ONz{+Vi;okSBAVM%Y28O6m#)!O2YjV z*w&C;znNOg);#dxA6bLX!6)fEZhi7@AWB&17L}kdsMw!OeX$CfN*^EV}4d0gOF0ITxw= zFr6I`O^f;gR!rRu$(z8pLh|N{jQ#%%=;Y0mv%ovJ4B#tV$MOub8TbnS3Mv2o75){H z@nlxtKVD$l^Y2&q879}}^BvsUjSHmhVP0xKSEC_V%I^q!UgM(Agr2$2@ypH#-#>cf z*ghVfZzH=Q>J>llNI<_G`~($-{>87)*I^Yf_2$#~ut|31GjY*?V&rGJIa$_Z?{;&5+9IAhn5Y^vYai zyFv>{caiCbywIdPj7%Bv$PJyG9^J^5cSuO->_GHQcSO&CABN-X-hrWe^G0LF{7Gf! z&2zW)+L{87Ke5|pKP`16Tx&G9S(!0t<7Z1a|Jx}MdABo2-r$nwwsTDHcBx$7T%3t5 z9XoAUW^9|nR8dbO29nX+La(6J-G#9Fl`h`1lGYD<*jv-(BF z4i3wUHtg!8$LI4NeIu&9g|;bGcbM$wwu=$HyB%p)?5|KY_$9R z_(fiKyH9_#yzR2&!Te-ycA-r=?c+%9^MC;0({idmh#!S2toVjOFrs`^?&SAL9WNd@ zlk31mCsMqtxNj%5FPzYma20|=c7MZXQM&D*<5zzPj7B=OR{|clgE0qbk$C&VQZ?ui zR;T*8*iQt4R*6~HV+3_B`9;0%ANciYDl66K__s=K_NNp{JW}Vv1;^A6Fbi|Uuhq-c zqJW1qByo&rt2G+`vW~?&_7k_V_tf3We765j>!+A3+E)qr5^0zMCKXHRxG_-@L%WV$ zsxjVNY5^YcGEcX!TCYdcC5OHr%G_Rp=wNh-kvV>ieLxfV4ELeQHX7_##S4v;F{^Jg zC2Oh1Z0kptD6eHt@x;D939hQ}FPClcdSYuXv{{;h`Q*mfes=+W1mLiW@+NpgefGwm zSVg1D>1GDcTzlfLCew{~)J*Q<{n}L0q>e{RkNV|l>prS(`XAazaJyO~b z5#qf%HxjXxKEgC8D|9z!V8v@Yn!{lbRc_7yGxAj``70>!G@Y*+{r!X{)oOs9!q1V0 zC%JA!nA%{UXjFo9i$dMjh}2~*3<8$L#am@$hQpI1Qteo)rV78y+V121pw=hn5UWjz zHO)k5=a%jN&PgGp@r{Ut>H^*=O|%Tf4P4 ze_?32RaTQAGptkdqxdCQbDGf+2gJ7&qP627bymCZ!lU+MNZ&y}U6wUncV5=bYNmZ; zAtn2b?kV|>$pl>*mngU{B%w{Kmj$yb+w(xs7tV{~8uq?{yQ<%Xs79Jh8<#mxm%p>0 z)D^g;nL3cIJS8(fi4m{d4iWuugLT%Jm~f&i%QfTU2ACJ+Egs1TPZ5M1j%Cd#^)WNX z=RZ+RrquV<=w^+e4vt-?J`i#+DyD4-Pec)`%)dbjy zJlnb}SNPhj_eb#H*Yyk1+YFH{^iQ`JdtUo$LI&$ho`p(>LW1$^rXnupxFxC+LGDGa zM~!+q2~%mW!5iY!YTmSr`ZKW^9Oi19ii$$c}9-5W<#p za3vu2<+lkg_Q^%O-5=a|2%o`0D|ZzS`nfIAK6zeC&pQ~CFI$Rm$YE?ZOyU0Srx@I2 z2$D!f!fn@X7!$`$8JaQ#p>l<(MZn05LsIV9JYrNm-PAy1Fr=?Rz^O_>GQHN+1Zg~A z+qWMjhTwc%X5zF%ii9S_Sy>WD6#yb*`>Uyk^9q*gAo88!=wh*sxTKa|QeqF#V#&*Y zErsE)hAQ6Zi>hHBpU<8hn7;ORt#rETT1j!NvOD{+d&beTdeRYanVXfiREZCbebpFf z-LvGP`5bI`rW4d)2fyGWV!*GDv#^6@$Zre3u!HFTThvffK{M!g5QC-y8^l6Oy>@0sk_JrUGWj?*uVTh2?@YEA-zkqnxXfM6XUXob2^ z2MDerXns8rGd!zU4Qyz#g?Sce66(j8h zi=;Oz$!|T-l5F^VA67vgTd4e2`(l1zKZeDoGUo@s{$o-;VfA}4?6R$P+IkKi-78iG9W@cFFcAV=l6 zu@kLeGt0UpnKlrTYzaDe`CMF<`1z8={IN?Zm7^r7VO+Pmz&}SZ0?+YpT(@JQ1lwH& zF0sJ%lDidX>?QH!RwAa?4HaA76&)Rd&1u|NHg@zzBBr_)vsy@T>!tfVi?*smdcbr= z?kWZxlKgpDAJ(Ubr{V1@e{erPIn3o zZ*Zt^D>fLY?A3m7mKk>|c0akZ>0YseDVJ*z0Z!%*@TxL@Sv0g6A*9`CW#7mNz->da zQaM+=TBx`}!W;vJQ@Uelc$00^KT1{-cvah7tlC8&SzQSi3fFP~$Ce#J+V@W9*h9j! zTgSUl?2aT1ZTRR`%yqKh5ejE|%2N*XKl?ABs1@DF+(u3*hPsYY;lNrBTGMejLC?_A z?RG=?D_cl8X_b2AdK=gQ>tzuwCN4?KcvCHPIKEaADTecG5Asrk6Aqs%T?LzaPh*13 zrThAASG?Q88e~;pg}8g~FpI%*6JFx8F=L?WLnLXtw=rRUIcvy>9#gUqtydZ920|^8 z@1JH_u&R&7qF&UfD@DOuX}EARhK0s|&8kT)t93*a zw~dU#*Zv-Xv#c(~nA);~<9ly#wUr5k)(*W7-#|B>*k@kA<;w5{J{N9{tda=;OqQ z?&w`l#g+KqOpZP29D@zK3k+JWHY6Ym z^F2%b-z@FFS(yK3VZCRW{+ng_Hw)|EEbR9zS0HPri(}uD)NX_40{d^)){x3LHUi|0 zb_8F820|I+g7$97$7FNz z;=n7<*M8+Ea`~dU#~DpajHqqxw&+LcOWb6!>t`*A+Y^=%mANkNb98{hdR`Rq_UvK{u?T26foDz z3SmZdLTOHF(>!^*O;X@~sjEONSM(;h=*e|(Z?eb+UzE`Z?=KjRv{n}){pLkbxx%*! z2WhrRVW}!F0l#PLHKvA}&XBP>W^Ny4#tj!{J6K8MDb@#}d>M4|va|Ww#+sq->JX)P zk%7LX$JMH_SllzxX4U@G6R$oxq;#~$o~u9Kv}jBze_p8O;T@Is1BsP$U?iBaS}*;~ zW!LUX0vU8X-3&j_;KpM&1O#je0HhnL9nRL@i5|2kc)FOsX&(KB6~HE*susn1rr7;COtWzSY> z#*Q~%haGjyPL4NEM-X+a6(#=rR4mUEF--h7-2XpuCO}*V5C@v`^ezt6{sh$S4b<)f z)cy+8{u8MEmp&V<=^0ObFpyOSKpp0)ouojKEg;L1t<;VQZ{Cdu&xB74d%m@1xfSFp zVja3SyAMjD>l7YHz9PXb5@b$X9+ZZ z$d#}x(Z4|9JD>~zCI14I??4;?4F3x>z5_D=aP%+m^RJFi{dgAO^WP#BgdQUmzWh1|_(a1&aVE$QtdLEfu) z>gFB6)NtA6xF?z^`B!qdb1ucg59s_FAJD&xuL!b}u}rgKrXIGSr5^4@%HF1-rXB*N zfk|2R)=``in3QF2WyL5xD@7?ixyjHwOo9LZ74OLS9;VLdEbqYJHzWH zPOWD)l2pw+3bGdRlkOS=scX~7POz|crfVdVZ6Vyx6&h$ zYFk718|)pFHcxq~gX_$-MvjQm7KPCm{NG>y6FDX{d0)--;c4n2CMv;oxB`<3yxtX% zPoe!)@S>Ge+X5(v{Uq~`0yC|Vy>|uI^#1Q}bjEmI_Npk+b1<_-e+B}N+Jr%VwyFjo zvT=Whwn2qh)(XM-JeU>3^_;1F6_%#e_aYA8uMJ)Aul(iJe_r|H>-r4U3m+70_U|nH z8?ZbqZyGh=%imQrbSN9xklSGYZOBl3LB?5*$GghNvwu|XTm7q2=O2~)W-TjWGf{H$ zj5423#j)S#jIX~dy$W5A^T%c87>CZdWD70`LXYqC{H5+kYDk)Pm=l4I&(f2T;4f$7 zX8~)`y{bfs%EkyMWO%yU{R^Mz*Rr~Xk;_apeYH4Z|Km%r_=f(d`D z(i3SowzJ*SzY2K3wE+dNQ}rr!|0sAddsiSZD?bJ(;E>(Bsa0`FPfpT{U3Ex75F<@X zPWUew_g^yhzhv}($;khb;r}JS{g({+FBt?RZBj-K42q69m>~bQ_I=`E0{t)f+WP(* z{-TfnC4aY)xP43kMy}!h@6D%&WM6^Ihk?3EiJ%%@@wcD$x3v|6meQ#U6a~T1rAeS4 zK2>yZvnT!GRW8q+`-S2`g)BSR$dGWy%Y%?jAbqYo%7<*X%jIQlFg~}nR4Ojt+Z(w) za0eV=j}Q>xYIkcQX?O6I3mRW@|HeRA*W_0_v}*GM`!m1Rrzbg~1Pe2{Z{r_iwRHTF zznpS3j@l8?3p{Ucu1fGiUdh2|c5@lpftrQ2>}Yo08$5O&jM_=_jnl*Oy0d~U3F?|& zaP4Q4C|!^+>An1k=+9#c@0m~m*uE~|bx?Yso_;_~@OE_rr|sSuNL+m%UthP8x|D17 zLCR5F2|!}I9H1Zmj0T!Lk3xUO3jTC#2YdUi1F;!$!xp^5{ou9Vj+p+gQ~1s9vAZ|G z9$xj-j}gWY)KfDcgsZE&=@-LW`{xBvYRpk2!Qkp6kPHZ0-mYtf$tm{+ch7^%jn_TS zd+fI-_s8Kcw`M{Lir?#Y&}c2_AH+kbqj`rvU(gFY-sdt3@mTTr8NR?;;hWb*5)R&N zAVWX9C1>ZFjI1lyfuzP#?iUh!N+IDR{Xpw+Fnbt9j_C9;?!hG&PRbC9>kVNo4zgdx z-9AFl@9}wF@2 z!2qd-MQ*&ouRl$0y$r>_&Y7~&#D2DDOi8Kko^pjr z`P6HCm@+?ZgqQq?65hwe=1t&*?`N>5;!cVwvOA7VEO%by+wJqO5f|{Cy?K8Y{0dLc zK*q0JiOjv0iZAah*M8wmC3Fz};0Bb-X5YEh1nxGr0k-hLuF1c!7j-?4>*aQI``c*H zsUXv+VK;PwFk3e+)@KZ)9?@4D;g}^I5x%W;h#$$>UP0=(=6`Sp!ic>*F3;9YN}e0F zoNai-!!;KOD0K==d1kKb+};EEUr2t`Ya*b*8YPuLGjW{xp5h$3Cyhb1Z?5fOqX$stZ@HY#xSNKo3qyofL%|i#n>e6qli1z`Qdfss$CPMuX4ru{*I%@#?5V zx|_n}Yb`=*u{MXb;!oPp9CSyyL~sT9HDmlwQv8S@-M1=8BGd;_w4onT{DwJVW8?5N zOXH-t5sOkFOX)KNc_^OkN2D#gVT(c>apXDbRJcikMWq@^cQI!{6y$Gr8Lb6F3Y9mz zOQPvTU}#ej^I2?Ez&B;D8B+b@WpsDpGRot)H!(8Z`-wn9m$V;(TbGnfDYmUL_WOKM004!Y*9ald%F?d(6EOoL5Q3@iV6}R^K7^c3@HV>pQ=fe1JEl+GC;2o z(Ei&i6QDb6)>3fEwbc%|N~gU8w1trADbxKHOL0N;CWbrL=}VzeYO?Sg9|aq;*NikRo5&{(`c#QCcfyTgeuhEQD>SJ*aFj^i0 zO;ubAwt?Me0zlarL=v@9Q?k;zV$i7&3n>JWG~-8mup!NldN0lN6qUV6fKNS0#xgfo zh9CDVO6#TB$*N@2rgESv5Q|nEQDR+~S=6BkgykECJ^ahyfID;ctiX|P3?c8`jF;Qj zugt5@4lm=FzGnNAuTsnxzyUPpTK0_-S*X=N)lP;e2$iySE*u{-ZH2eRvIb;w-9_Gd zFy1ciCd^MKTLrGD{#c_th-{3|q0)bY@A(4IpgTLjr2xk(aCuHSGArCO6MftW-+sY? zkK+ewG2=y&xqquAv|i6#zJ)T1Bv-I@a&Vl@j*1NrkU`l{l^Y7&NQv4Ij&n2G6<%2y zPZjtWY}G6ktp9Lqy{qEKoBXO%c5v?#?VPPQ7+37V^Y;u_>S5H^18Aqth~cqHnXHw> z1aIz%@mUIO&)DN0C#}&33@XtT(Ws-%yv!SFg4nKdksMn+Sq?9_tu3&=fwm6B3Apz`BLd@lq(MuJTXzJLe9T^4$K8`gKR#-UPgt89m2^jt%VuP1(!=_oXYaS%=0>mTmeVhuCU=E`H3IS}C#>DQ~uaONMVzoKJ#>B#C-M~np$q?nl z^*Y3mBx}mGvy%%i@CnED#Yq&u%j39PNdl5VuT3G+(ctPI!T1hgpPaP1m#KZPuM4RXWP5JHnVZ{U|H1K z6b`I4`rd;eN|{I7R{L^>&X{|P(W6ksC_5}A z0-A?{VU1_Jgr#=15_dnY})U z@gxPg5`7Es>znjG&@%_@YsQ=t_*@fhY|`!E&^j)xiBQB6QVqurIA}b=(`XuvsbTD% zwuB3l$W+ELM(tDzFIb-%Xr2#c2W0STD8U#HtIZTxWR%5nmT+s3?&>;Xeu!nQ?2+DS zE{i>k3A+*nD&z+$>)I^Q0zostpO?LqX*&{`BF5W{M+QjWP((UxB56eZePf@GSeLK=#oUZ}(@4%`=_gCOhN} zpD&yI`d}M7>RbG_$QwIR{`aD=?h2a0_d)#b3T#jt@f4f<7ML6HcbojnIPMCGe)kD# z?h4C+_o{%P9@xe#AZUZUF$)OF!n#iaf|300lYn3yAZUfTQ3nXFVz_@j>E8m@{ezmC zY!Nq78lHjmQ0?F4;uW5Ex#}GQq7|MLx$697N@ZCc#cE?KQtr#g#13F?;f{aMh`%rB z3Ono9J;``5YhRTXbHoN&pSLS&yKngHvk4$|RH2cTHWV|ZYi^0UWKU2%;bAW%+|JP6DwX6Bnm3FK~-0WX(!vcWe9ZuA5x+C8_0>0*vVLyV1V!=q7Bdg+Da8 zuPY9p+Q|BhU?F)y17ay~OZ{eV&Ug?S#WxJdmaHxv`Y_qZ$9Hh?cJa2T9W3`|D!WW+ z8xcA35{WW|(@a7^<5@28Kot@f7dc{qyC*0orGCoTWgos(3qn_Ss|}@DP=VEDQ4&fB zg(Hiji)WxVp|=V`S3eKVMe)754Wx+T4+FfD_=4`JL6KD@q=&1vL8!li)Q%3`!!1E` zqrbwuF7m?|c_$Khc3eUe+vO3ijSYBqX$#S1D$Q4XNUsc|Ca}%rm-=(iNppP+cT&)* z-mX9kCmE5-5k4z?YoJ${i}Gh}V7hd{bn{3e9>3^;X;1M8ED1WUQG)t3vUCB1;$gYg zFWUxgQ#fs9hI#Z+-zJdGq8OScrFp@SBsjmWz(1j`X$49dxc`#Oh!t&uJ;Pr{drHPS zEpb&78?~njDH2_<4KgST&A?QIhY)daGwWl&h`AA!|D>sYI`^BOgjMgPF(BlGTySvf z;>kiU-;o1738JZ%Zw6lo%P`0^hts5z^LLpctd`%0I5Ae~;xU0MS2_1{p{3F+N&{Q4 zP%+4Kg)X1v?&ev?sGdjxJBj2q$Q*`UNGVS!KYV2jm+Xjjntoj5wD^F(j_qB8A7w5)sEuKOS{>ST|K_mkQ3S~UB%QsN2Bk$hQ$&6XufowXEA6;rNG_* z%p1v^OdT!){;si3)dt2wyidON8=uR~b6$S31V%?Jdw+SJ$#3LlAkavPR5`TFx6}Xb z%b3)`&Gs=lx~cGV9L1{XivQt`H-pmPt!xh(89sL`ZmMrZxAc5!yBtBC1RBB~|KSqm z*ZuvdTJAx~Qov`F-f-wH7PfxaA(|gE@+jGq4JQz%VX8XvBpKl@%dkKHml?Icv;FfN zI1bvvrkQbdUu3x_|#bTgIMyK9W2_98E)Tt6$EsDy7@kC zj&4_?#8)3e)F3o&Vnf;!JWwGg-=8xOdDpzGON=6a5&(h^X1#blG#8^&4_WX8Iru7m z`!dKm6Ks)?O@DVU_ar4dfhZ8x@6fFvYM5~!->c9mnwRbWU6jOlk`qG6+5?haT;!#@ z>l-Ob?HTfd1gs{);H!TsNlw3tlG$d7xug=p#X@9{S53FLX5K5|*bg&dWMrS!v;sUfK19Y0sdr}(bwb5oGqohYK z3+XDsUGBuo+p58Niz%i<+&(Y_B9xW{Rycm1*OQ#R6Ou7XuZb|n-F5DFnVQ(3aKUl4 zx2vPyEPWMPRisOp2je!GoV9Roc^$d#3g`8`BgMp+gFs*EcE%YHOD;BXH5k!v@$v@Y zBB2G$uEtEW<@tcQ{kl<4%es4=X|+q((lV!XWt0wt=FblIPrX0;=f6iPlgU<=EK&uS z2-e~EHMRB-ozz{nO3F;EORmGYXDYUN_raj4?oZQwh6z@e78snu0K48-SmgX-r!~Fv z?d5VET5LKA#^QtBogdQ2PQZHQ1guw#WcP!u>n6jR!5RJTDaWplI2P8=A@t#^=QZy4 z%hyMNfDfy=dFPKWFskJ(K_sDsW`4o;YlwFO`d*h}nryf6RC^hqxh9hoBo_4C;^EX$ zjxm8%+4R{PI(!{hm0FKY#i0hyKDA1;v~@RVo8M- zl}4Vi-@ozfazrDt)26PulG3{73x_#~QyPz}87rMOhbkj2>VZXsOZ0@^C&!!FaahqvX3;vg8D%k0g@?0=LzOPoM4MRqac4yVYY$qFA#J6+qy+27=Wi z#mVf$t-a#C%U<@TDx0-BJ+)xrFTxBgt!VeifqL`;QQAuRMOFoAfti!tgsdJG1paIC zK6BFjpA3Jk8E&eX&Bnqu1MuhXCWawyzv;mdj!Pgb9OGvU71f@@3v%R^lj{(xfyq5( zwut~Ayb-5~6M-A$#1-CM>+Qp3FX?Ltmw)w^*&O)pI!p3qGTUSfe>33{`6eA9i0ZT6 z1h;>fA&H68q+Y0B)9wh5zoW(|%O$N%Lznz&sS~cj?*(m-6qWme^1#f(7Rp^Me7ke7 z>_#PZtcOTF%F(X(iQVgtBMq3D(?1uGYMc=-L+RvH5RK8K8zF(yUzjF}W3QptA~FEh zOl2tpqni-qUExRo+{L9P6y}@?yy{+v8mQtG@#GQW=CFaIw;w%^r<3Y1gF%STK}O$o z&vZND7%k!kOo%KAUwA_#m)bg<>22AiX>|Y)W_>~KC*j!2@&KYCh40{ZA5Xi-;rL#+ zpPydFzYvg9>&9tQ<{yFXPn6oDNN#I7LnqS9*&`AtJnSnJWCX-bIfue^_>UN_B6HEK z-TCD?Hzz{&+<|H^Xsx*-W)vR}XZC+4PAcW3QLH(}2%x{?1Hq*q?nnOVZ_K4~PtCgTbGZ2fKFIx&GW>^V9g}kbVh^k1d zK3!5wr#`L9nhh^tqN9%7`I4CL25+? zkTnPJei*iGAiVX2d|%%#GaYAPl41dk+laMncV5CY5vy4am%rotcZiX)_;o(f^Key@ zvvuU8b^BxXWs!j>vvosaxxJN?!z-d8HG^RGHNx8~H=ltGzvi3$!bBDTo>86vk_i6K zevl4pgjwEhmuGpo`hq-G0iO}?M8P6r>s|;Yo&qI+ufrXku?ZP<>ON#GR@(J7+SOLLAF2hBAz0JSfdY3RMR?zp$W z^7$(hwl8&BcoK!-Jfx=3X$uHR@G7Gp_yL8U-~S7$ez+UH-a?M>^&lWx^L+a8fW;v> zTB_oQwtN%K=CJ09PQV=@W08E1fyrGqk&8Bx)oCob+dS&^1VIeW&;Vj6x#WT*chg_ZL8r+ixso-YP<| z(KTW?i3~!Mwh3yeU#-xo4J@n_y!cTV|H9V<-mwrQGJ$-7W5M$2_K4EMxW9gEb8Qo3 zFw5OUZ?t~AKdflmBkpiXCLm8LL?sfgtWM&IV?cN8;>EEj2VT#>IH`Hq9NnW*z@A@=qzge*a__YE3plw3M!H6l5fRxe`~3i zlJ^_6Ohs4!2%XU8*OQtq+f^#-WsIwvIIx0JWa8|IZBBw251X)MES^LP2rxn;+1C3%IPJIsd$BLrmM%2+0rLUeL!J}uCcIIlr!%LaY{Ga^ZjG_f~f zXfO;$-)V*~W=W2MHJ-ih(hT7ev$H8@omt~TXpPMsfLUtG9Nl%*rB|5+@8)`8E zQ{l1-Gtm^%Yxu54Y2<*dYjTc(j#9KoScBjkzOiC&mapc3?My-(4%@sH`60<4=++R; zRPuhHTjwZ&ZZ(Cf`L|n@vzp=SQ!4u)`UGc?M>j{bEqme2m>mceKVE#}*7R>Dl=q{v z%0M^bB9#*Hldt`TBatT4vxWBm(DjaimHyoNaBWR(O*?fvwcTl_wr$(CZQGdI#EusrT@ zY3U&}8$M9a&e)@}A^g}04VB@BMF({d?**&m$+yK-)X?|OdpQ5KX<#qW4U|qeil7z> z`t1yGYp9_T;Tmgr=)XbkU@L84j|a@?;gbj_od+GPN1R3emPK&-*N$)wa7P%ltU3<5 zixICY`1fV)(;z}^L*%Bu#-iOW-23&y@^Gn}EB$MW%GBjMe!77RL1f{di?<6io;%Y5 z*NbeT@pt-f%pLUZHdrdJ`y3cDsbwcr(ZoEJO$e&?8~M`nX)!-nU_<)lC6bRRRB9v5 zL#HUS=AbJzSzM8aOLh%Xa>y>fi%TTVt=Ly@b0Er0q-UZEJBmA>jLjCI^jcS8U3T_7 z4djmg8AB^GE3jp$(=_lF#E$dql-LA-vYn;^i?lzUN=O zAL00&lyjT3p2vn84kHc!Yyitdf)noNSaqQvsk&1Vi~E{O((l2Uo#R)sAeCuV;Nf6< zqy%*&VIoPws*It5oV_Wny%CK0%5YuhCwVtzzwQFf2_g#Jmi6hPJTctxiEyQ5u`uCov>hQ?tAGeGKdO*5M~DZu;_wrzC`eq5 z9O-<)I`B@Q0cvx0?ez?k@&#d=St_LuB6&ef*`2-;^a{6)8rJ%g!$}@hsTrhmqU|dc zVLVd+o!$5_Q*C|5OId$t$yzWv$GH)N@>6S^v7VsueVsC)zXe!le>wR8@ffsEmcNEV zC(PEC|2J2C)f_=4Fwd21g0b3C%4%fKp=&Z%eOYc9BZ%iHLynX_Syf%4&$9v1i*^B4 zq{ca9Fir%|(LMs^;Zh>EIz*p}7tX6GotF@IFQ=pzNpt!F3 zH3b|v%wU8gCq^DGZHOJmH%3-#&t?l0bJOGYWf+I@2>HMGhV%*Sig(<<%kq}&d_Oy& z)?oa@0Y?5yp@|CW?-FZ*)5Y7>!Fx+J!8$5oNGJ2ndE3kc8(taGF%mWc9$AZSK*H*a?H$R~)%izIU5xvspQ_yb;G`))HxhjU29bkYf`YhmzzJ(z8SD(f- z=Wn=LHheHja?KjF-X<#osGMI58Ypgc3RQ?({s|5DV91M|&e(1&s{b=iKtID{5A6{& z6*}vBf1_&APoqKc`hELV)1x=&@Mu{-Zv`hz61kZ>#9iSK;t-5bKV!29w6jgBk6Dzm zC08)g5Mv4;3P~7RUf;MMnjH0?Y`+NoMOY3Td{;09XxK5Y%Z;5Gtg%h+#<#88f@+YN zStpp?50DW90F45f{VF@s0}*ZakJBxn=jsPR&l(|mw(@8YOIQEXcM?g1L5d`U)^ijV zo_gTa5=VsP1PQcQ(9#}2RUl}Nz`vt?WZU>=t>Qf=UFN-%yT z%ONG4!yo(~B(Vfy;#foWVz4y~{F*$k(?Nxl!|IOcKw5lqZEOmHVBTmQE_t2$^u%olY z)4Jk6nPbM)L)f+L3CbE`A==?P+_GxO=6m}%#;!);P6XhHt{kyMukCcivHcBgQuLEB z=Ka6$RUgtv;h3IE6l8eQPcRLqpPT}b_L>fF70rgU=eQM<}n#LrS|!XL8k7A_S)i zH(lYR9_uYBs|vImf~^}8$i_cmf@gK59;GW&Plgwu%XxIbvbe5N5fAcLluhwZ#+dIz zE-IcI*Enfmj-|%{qv?qZ3|oh=pp_Ayy*e2RMpEcEXV&=3nK0Jc{LD= z`7b{yswYEg%(zuRFp>&pu;NaUT;ndLg*$EQ&yw#p9g<8v;T1gkbQeBdPu}vb;`wHS+6sH+o7(lk z_N&^MvANT6ciW}9^#5`v*$Gz^(8!=Sm=_ihJb8>}VO)EFJDU=5pmwYg@i9$LC=p8| zU;*JgafN9@iFOF>W^_H`-a+!lTFc+Wc6IYWo+{XUez{_gP2Jpbo(H-oA#YOQr^?06 zIUzLosz--vd9o`;yQ8}dU|@^{^G_&*qD_K zn|p+9r$!24kI|D#0s)z)ix>J5`RPB-#|HVkRH>g}XJ?&|3cEq!6nYGc!e=OJdgI?@ za|zJt#s7|DJQHZ7J38MnE_Yx_bpv|t|*B$JU!{bUc)9&HK;ov{=67mIet|nhYc>Gc7FJMLB z#&UW`x0)$x1J%OMS>mG*8BmPNHlfi`SpeV?XL;d9R-S&@znFs|Y&=15+mX6okFI1N z?Ky%)4f)+W-8@S3DE{_J&~|yDP}+<3S7Fo^?Y*mkPqm9rXslX>T~cZX6)h2RsdxGW z67fK-y-X%gQdAP@ma<8j?z%?2f`mS6**zP8ZB8*$;PB1#(}AWaopxt=d=$t7(&~}*{AM#_V#OF7W+UAd zOJJ+s69-}2ayLaE!g*Xo!5w@<`@4VTsc~-*gTE#e+B_qg)V{aNV&5KpK`OLj=j=H| zT0l&O9$3p$nD|DJUMrAEkX$ ztq0mrZ)cLTDScD(yl8J$7}-#|?#>+uXXcN&bl^D!w%_J)7Teb$-C;Ke>A@KVW)c08 z+fDi_Rm#P;9wq`;T`|^t^zB}yLD}~soT!547;siYIF(PWs+eu%*kP~s-fGl)+vXZ4 zK_@M=LF}%}?1VwE=)dEEYjuO3p>8Goc?N;5Vef!%y%BZ5X`HLR*9hVIu_=|sY(v8i zWpv?ECzv&O+GZn2XO@j+y>(%42*QqrF5Tg9iaFl~R)oVIjt5>pf++d~_Dho(YspG! z1KtK{xSw1nQEp6Cj{sb2mY4l(i%!?IPqrgj6Y4q2@>hz!>>?N1?HP9m5;)REBOPSZ z$xwxL97cx8K&As^3rX(~mT5HTn2vxmteWVYS1%m9#X2NrJFF&@%3!v_SYAIcR7XWO z@hXCV^qCH2br=_fS&TRQy|=0>sCLPkEFE}NL^U2rsbw~-Q;35Mc#g|zBf=KWA}g>n ztDV1XExXF&fjzN{f-O~KrqTPqN#{&Ek1i;<`fHE63XSDa$2o#4$N{8y^p!I}O&sQ? zVA9qmI8}R%oacexF~kvl+D`Ta(@!ugV!8oJ%hYfZugC@vKj2lG#;TXU0Hg}y`p!Z) zo@Q@=;6in+Y-+d^)x!l$!a9wi*r(a2gLyN5=K}R$@;~G+1X!1*6gW5;sz%uwOQPw{ zehsTfgkJAP&v%3x>2ySEgPsdSJhWkrQa{n09Y?Uru8jq)TKyE@TGsXDzg2oU$n=Aq ztqDeIZ;V97QQBuw9d%pvp9 z1R!34e%K87JZ`zOJufFSr`@A09u9{sd?c($;g(NYf{<&ztRrL4IB}KDS1Dv6WEUigr^kWI2twAKf5`&wNDkag$zsZ0 zViFPTe5CZoKCkv_8C|f=Mws;*t>W!^1g{>@OY^}Sv_60l+|0Od2Pa?Ldbx75CGmkRxw0tC6 zakjqUwH@^Cy9g72r7o~iwC+IJGWYI37)@-`Tv%{H)aBXBB>A7On1Ezk)n^E&ua-N( z7^o~}Jw;^JTm+1rXQvD(t%Wxt6z8Qw1@x*^bo7FH=Iw6Jbp!%eY%IV!*G;H{`~+So%IN(E3z7U8{=5EJ$qeu^*~A&7i1c@N(9*`MparI& z-_SH{rJ{~ldV|zb+QbR2H+w=3X2tI5@L~SeWb|=39nt4TU8*Q*^NMK7j-jz(&R-1S z)4pkGLpL6^G0o3m=6Tcj0q^!4UHAJDwm=@))A$kE!sJoFfqV30=229EcodNM<>Guw64ye?-vzagz`i20*;a!#(HO6AY$sEd2@@71b$cu>Ie zzi@wQgvsQ7s&F@TC@Ph2cqH@^hfF-hY@ESQ$>yM2s#~1Z$WzxQ zy^j4LJQP~~he3Qi6d9mX;^0?VPLMf?FIQPsP&}mwy^f<8ZZgLMjukjpS!^Iv=0L_@ z$WzBa#vu?MQy^m$ACD=JQ60$W44KmaWVD9hVQExE%Hhy4z{~lGgXp$|Eeq-fbf!Pv zo*21bAG!C}9eJLJb2-EZob=D|4B}A16YilaW99tP7z(eLbO>ozcFRKB+A^YT8KL0% zinq!!4-0gW(pPA^*}{4D{fm}Cml3P>tth;+Z6bZ?ErBv+O@KUfmEQgd06jK!xrI9W zF9Rju z<62@+t&syBmcSo`La3u>et-0+JzVZjTK3ylP^lBuY`Rg+s$GuUA5Xg z`VA^8^gqB_@=FOLF?rk^ZkPYA@zkb4flgX$0+@p_%#{0ftK@$%p55NS3A$~t?x12q zSjD!AYInioU?%*1r$F93WqNx|i9WhSdwaYd)^ED{e@Of^1p;V3xWpX*{j0D0T4E!F zqqr=Ev>^M#I#`3yHe$ZM0Wm5LV1x4% zeMqNyA*DL&X@u{OQh{xUglV3TeQTCrY2w&Dv=LfLYfN5MDjKcfB;KW<@PRi_Ad&%V z51^4vvyf4d)7%JYDB28&nfN8mKquOK!XUlQE|56jKfya{jDjZh5ngJkR!4e$hi$Ws zJW`8*#Zr#qV2Y{~60$b#VBW^9KZM7TLFH+VD|2Fc0^w~zco`a5(3_T>ES#6y}Qu? z%7JY1k%utZ+QXa0=&H%V+?na;c#UPhwn;kaqBBBz3ANR^&Y*!!abkmP{Cf>^81__D zPpeTyW`6zKkhdrHV`h;3%nhf!YbN%hmKe0bI!M%EamY#AV7!NobzTm;SyoOeZpk60 z*l}BvpvOiOqem;Zpc7obB)6tuYJD>ZJz&Y&%2nbwpG(ysuM6!Uj|(o^B_(JjFes=0 z3bs_}hm0JGBCuU0z;;RfZC5)h-kwYmw!g%ShG4Q?GYHMtqO}&duNI2({2W|KSPi5I zTD8rtyP+IQHq?nZr0nlSupC&`mg~C~=)wY7%417N#r|cm3R+zXd*hhHK?`T>Pec-mBc`%CP^rq zAK3thQl{Lhs;GhXqJNO!2Nh(RTjKze5zy^94^&JMKhzo}hn5O?m6)@98_X))Afpzs zHSt^ZfXNQ|H^NRkux9)k=B=%;-P&Mi{?WpetRg$mMm0L=@m5FTNnw==T$)O!O{!t1 zlX{_9cF=kS3=Q>S0;;*u%3?(IuW-#w0NT;7Y_8^NS%-KShZ8vHhap41+a!f|cs9d0 zY=8TuWd%?MW4hM%GO1NbEUSf!k*)<>0ESUL0NMMuGC9S!GKwh^qH@41%{dE?*>r&T0x5#Ntgtjy2 zV5_xaWvYpeSRmB|*ju}03tCxQl0)eq*noEfZ+>jQdxl=}P=>jzZ9>g6-mchVa&p5m zF>})E+Kb`?fM0Abz9m*B=+Guuq9Jf%`HJ~XxO`?iewfYZxxRo#Owo0F7is`?DZDV! zcnhMbUJiU{2rQ0wacm}^C~x2EN2G!Tk9x*zPwW{OtCDJ+6h=}@yV^Qqw?^@bvulM` zBN$Is7NRm18VsFWU_74T?#mANH!Sr0O_!~Xh>e z-nE~xM*t-4F<{7X*XusdNMydt0@mCbJ2oS(-HoA)Icr;CTVQNaU=YB`S4gqs)}Di2 z2XCGwuerA^)JT1EuP@IXh%Z1mC~)438rYX#nT5UV$R4yI^tDoJz7h_J7iihV}8rqkSggV#J$ z6Ss5CR$e|C^6)3vG`N;7vVUOv{;`B$MM^T5_AO;OJgh`dfC3zU#65b(gihYk3jOXg zJ0=BO=0~@~?^4uT&SQn~Gbm5r^zi5_h-=&hzHITvZRKIFGx%{`py#YJwqIP8@wIs8 z3=>Zsefp6dvK*+LgB1M?$X-wIx76%DD@#|rPebP8qiG|BED;--mX=a9vX7yOKBF;T z$kRAAVa8&zUw>n_pd8G2C8U9`?q~HII_OrGgCm$Uvu5H_&3jwQdJ&J zuP=o#82-7M%5Ty^f~@^MsdWuKut;IXi6P4rH|$g<4-(67ZigIHj9_Af3<1!1e3N_tloQJb6hNKi8BEw@Z^D zmOjlyo6uB+$Jvg$@q>fU+0MN=pgPJN3xfCKh^OOxX(2{Ch>qhDH~O$ix>HCeeLah) z3nF-BThj1^-2bl_TW+7GT`Yb07~R|T?Cr*CP+EhODXYDMzgLFNehOm9zxw+JnU zYTO}Tnzyh+U@qoagMvGmI#^90;4v(qzej^gff4ySb8y>Djo94udC+;HpEtkih=qnzH7$X#!%nz{hCX zUg*?VZWUB9d9s@96}&VGrw&b%3;la9MQbPa?Q!8YY~XisRv5nREE_*q{l*?TosTiZ z*-aaTyb?Q9w*l0<(0;Ybud}K==(9Sdj4{zXw+rE48NfM%0CoaT%dR?i&X?v{Hy3ZL zE-FjdeLxlyH>&|co?`q_1HtY+HQVBsVlWLGPQn*Ve6PJ$k3A~YXj2fBcY)HKmG(C*R+l;%*YF#Bk z2aKlqnGg%xDR!$6U%ECfqebv&qp-?Q9J&8r*_PZoO}iNSG|{S_wtpBkzR;%=;4-QJ z576SN4U14gfOR}v2x!g`K@As$ZM0T0Yqx%qw zMQ8x@O9^7}dpZAx;Jl5rsj%om%YpWeOBKCF^1Im}LbGN;?v6C&FvcfrwD^qW1yNW3(S@BQL27gz{5pyqmsXz4uo=| zcmvgy!?JayK7;Clxiu0oj(DvWWN6H{v_A5#me)bG|T2`RSXwHJfn)&vXkyDg=XIbtD4gvD22s^nT%@K zD~f6<_%Ap0xwaOLbcNfoqjpcsLfY{^J}gV2kKTc?g}(Bqs#GXUmVhc?(1Gk>C0L0} z=qEVMRU~9YC4kXLPw)0A993WLt)-<)4F0jC$vPvey>i5cgHy|9GOVMXTxXgeB)ZQO z%24atmpfjtn+!gT9FG#M4o)AB(@{|wTF40A&QC;N=ww;yV|Buqnt)QTkMq?v)TC*n z;kp`EAJT3YAdCL8jByj2ob<3w%5xD{RW<7|6Og~H>v%_xTU~8+uCtlF#me&z(3re1 zYKrlgQ}&#kY!%_XkosV^HQj4VB)pLR%zsFrj|4p*N0mJumL_4zmezB!9rQhY+bONlaxZRZe{qF4`V3k5m^f{i z`D4a}{h8nuELt{(#Z~DWns4NTX@D|gYV0SD{9e0wvN=85-t$|nV3POdesjC$L-TNF zVRApW>tRLX@SY}&?>)viwnts@`U?(9D;mREU7`=n6B z_NABhpiS)YxNZ)XpI-8S@*Vn08ZfgXP(Nga4S8QrrS97~3aY-__w#@Y23ioHS?t+IER)#JVj*ereijc2zfZd_%HLWB5W z@K0$O$i*V@EQi9RkT!fy*Eb8Q)mo=oonGh8K78oXL7hn1*KXTZgOLa5mf5+vp68}D zTIW?Ch~~%6A0bh95$vx4#dZ-te(s8+Wh0f0C+S7v zrBPi6N%957NXN0cm@*T^20;;a*O%B^XzV5EXL)RQ7-5&{7?C3mKyFHR0f6i1j7!FN zut&nzWjw6Od}rQAxQ>_6CZvWeWL?A&u$*qP1W0yo?VuX=eVXn4D?}9zgI+NxC9hF2 zgr{M@2-)K>!DI%9dn3|A`0lMpd>2k|28SHGk-9^(uHop614>|y`ycsm_wX3*K^c@v zC1Zjjc&y?#E(3q%!e-74VE&EE0hs^c#PwfzL8=uErCL%E>4Z57sv$ctR787`JuvT3jR$32TK};Sjx)SpBU1f2R z>+`A^N`37+mN9Qe+YTBWn3fx<);#sVT*%_I5nUAjXdpv+0G8UG%625-VPpUgUa_sw z9w~oV^>3}4z)Zyuw`v=wJ%Z?gM@TQ3i~E*09Ner>$D5jEv!60dUG3cYeBv?VGm*Y( zR34MZYn_hU7VLs=LU&`hj&I600n_N~m3%G%C~L#V#-CfSp%g^h@URtMW9xo55^aKT zZHGM!T4k->nM1wC|xgyVv_7}uBi-hk#70n{j1k<`OY~&$F}+V$SvH(( zB&2nI)zws?Z?mWNRS-^(YV$WU#@A$W^nhugc-Aj4LTH3h`FyD4?23a2(S7(D=J9{n&b zgm|5=j$5co`nwYSHF#(`Adx|;5&l1*{4ZpoZ^N8cJXFL+(L$Q|%I7m8WPI-W{YTNA zC=g!PN5FhaVUW+p-&#cH);aOy2L&Y;qFK8a#w_d;OSETITyXb`t;%f=@w=nbsAL}R z34H5^dK!YKB>Df8CeE4TA5O{sOsC z9;}>t;P70k^}|#{BE9HY?-@28iNV@XmET`}9eXytx9HK?39JykJq8wG>a9#lFX@{# z#rJz@Ju|ZU-w+{@$$z-~wArG~|yYc$=LjPgsE>Zoglnt+n{r4wikgO!%JTUT6T z%+&+l3aAPOXe@p-DoLFp7dYDi;R+iz8-ZJ;ji1i?dmTzJ=;3Wpvv!DOXoHp{Rr{Z=g3< z|3E!1`Gf~pBO1pX=eQSH6bq?>nYzjE*9Urk}Qhz8l7Q=~16dE^n{ z!mFHjYQA#s%Sw#W>8QLH_6aJiyMp*{1tcPY_TuG*XFF`wy?z|Oe4;HV`Xf|Hl# zz+^PM&0LyLv$a=S5mYMQsZ#YI1W1y}>P-HiGqH{CHV)3){2^|@+%R3RO|c#DfubH) zqxNzX$tu5c?u?PkC)vq>b{YBm736vs_6r8l{LgPbT4X->#6AJZS0W-JgA^n_LS#N* z#6Ah+J_;#UMG>(--^c{s&?VoJq~4NrSijDr5c_11`)GXg(MY;tAt~4yK;s`k<^PJt z{}q@^lYTpMIBQ zj-LcYos>IU<{fk_mJ&S5B~L=rwkzs%teTEYHNxKK&tj$c$Ma?tK)!fvnqHc9N;%9v z;0(m3*l@mC0Ty!R80R=t7ZPtGERHlvyDyGd5~XS#iln%Yw#5W^F>6uGvF&S9)Oc$- zWGAX0P#to?-AveJORXlkW_Lc=k2uR1|6fA0|1Y6Z|Ci8)|1EUbdH9d7b9EuAylGzUbrk?3*$-WkaZR0%Ee^x)&pn724<-0Qk%|6^9dDmAp zQplU0nJ-n5sWsgW`x=Kk`<6BEVzmVgs`4YY419$9Ghd|$d96e~4msX)(e8Ye07Npg zxw12#oYJ3%2=BQKd%hm0cfOSOI-fnioPB&QnsU1wni^i%MerFaxIfsHuw~WF-fZKd z2tRCd-yS)hFJW&s6Zd*bhka!eKXXVvc_TkpH7P#Hy*=M8P8=(Py8pl?7kwfspP@*H zk%}M}K+ObD3OW%}qacQXiTHR)>@Uzz>(uBP)M%E>zixzg7eZeuAXWC}m~7QXPzM|3 z=L71PsmUYJ@mQq^Qp}6=v$$=y6YTN1B)3x3D{`03E)qM8F-;%*)|n!iUo&me2h+Q_ zTgG?ByOT6c>`kTy=^8j1a)Gp2;mO>_n65j$HtEGL>eVJub94<#{9_AIo5?KjsdhjZ zLVEJZP?IN_qTb+3pNFAf$3>klq^_#EZGZIXWkN`b_bQB@*d2c{!m$iKqO>T>f5i`v zU_eiZQ}P0j`(3g_<4N}ON6l^*{?OXam;;&B58IaVr%wE#gB?o?vR;f$ny>NIPo&te z?t|@KB5$i{1yBu1?kjm8;`XqK3_h%56%t}#h>NLO?o<8ng^^X#UW zuUIQ!X>&_Dxx| z2L4|{HbnIv0r&r6*hHA{9RmWO&cDS3-()<{;0?LbCJDsRf|j__ZlzZG6TmCiUkN!@ z6*d{_&$BqImBfc|T5w~EMmsvW&?00Ozcgv_a$|-}I4J#n+%G#*!)6*c8!yy|JSUX(>R6Zj>SZV1Yc#P#*|+w4B&&x7K@-{=WzN$QEldKK)Y9B zF64jMy?roPIi3G*_~zCJSCahy7`_)l)G%=jg*5qOeM?P9p2{V!pKM;_VQYhZM9#|F zQudEGy7lG#;JlOIknVAm+@GHh8#e3?WSUqV>|3tHPBV1p*~8g_Ouj+d7G)9&_b`h5 zyyVXJKl0^%idR)+WoMUX^DodLKyh&Jb${Q|1V1#;eHjX2hyh)#1?8VfKXKr?0Nd>qg6-Bkvn7KEgfAlKj&~`4D=6U>v}hId0h3fZ*XjU zv|jGg-#(PJ^PZe)@%;Wc|8~BROQlrPu&~&+g>RGs4j|l^sQGd)OXB-Vrzv%~n`!(} zGr0H7SLSZ)K8l&qm-sod<8jygw@U>7kC$gAuC60EZJ+jMDqkngt~X=dQRL|o7RuTq z9iu47AD1?*I^RIlf5fI@|sQu_+ASJ+D1@^4*1CXflJNE1C3BWz*EQc(`jp^#N0J0MJ}% zP*jae?7A>*s)`ubVX-u=T<5Gx{!^P(=%PY6_n(h}kZOsl4(cB#)U(1DG(ui3Dy&|B z4N{BXJ{9_g^J+d7SN$>g9c5hQy4lk}-$;S!eA(p|{Ew?1V!M_{H)waUNUUb&*8Db#O`H>jO2bfmQhz zcJXN8)eBNyptuy=I@R(ohLX{(f);T(&aV2#On)gnlW`fF=fm)dpz0<~P^zp%qv%)- zY81W>rQq5J&J+7ZLD6)!Y8!2SyS-PSbuwxSx*u@a{}nTTeZh8qu&RS!ruZwYN{39zyZwXhU30|jrO ziw3M94pb0ED-nb=VS8JfirGIlICz3>N@vC^8}r!1g8_;dyKmXRQ?~3Sj5(~=xYAjM z9tn8fpb764hZ0`at{dBTL5@dU@i{_DqKczC7!rrrxRLNPz+!(=8R9&xT?;w``~!Km z>IjT!t=D?fS(=yax9niul0o$LmhTw$-T>h?x?(v7`%rmPB@B?Bh&dRz~$pr ztTynQomml=JH4rR%U3xI;dqZ>KPgb!iH@qh}T48_+2UZ7e-@jp~Q`LSyh2R2P?f97#a^oLvvN-Ydjp+ zAzD&C-sXg`CS5n$D_YH_0rV07_9;dt%YmhuFpebN!2O@3^Rorf`iO;pybvwR0?iH82Fh4<2XIgHI;mSc z`>b~zP#eO9U4uGluNHXjL1kJf2I`jj?NzK(R}t$*b1i=qr|dyMU`Q|TcP}W|{OZz) zmS6)cqD83Ay&|g@@GsHr)b{a%9L-T9()%S6huA@%{VCvwGR0GPo~A3-AIMTJ?dhhD z&XW|2r|NYKcBjuDWa!#oKyqo zSW$rkvM&W!JaHbx1h3fNzUc384p%LY*OQDc61Midbrr@eC8U4F*{%38m=qwql zpSpHAIs{NrvFMJn1sQNoFptBXmTFWA44l^nKHXEZq5}1?{X{f-(4zL~KdwgCv?$Uk z7LA}|orNj~9eMgHYZSK|ENx`gjOauf$Ye%@hO;+BG$sN?UL=c#!*W5iCIV%a%~r;P zr<9CHJp{F&7bsC9h_RR_WGUy(T2_UtB#lU2;FDn~XZo*S&&t{moPZluxS1g&2Sia) z1n@_c7iaU`x~i&GpKVd^(W`uijE;zl;5qIH-SilV`?bC$t&9AO&e+!bflbd=_<_y9 zHk80cMbCCT;AH0KoXD}+Nmv=$u_CRvM3HRyT{(j{?$6wi+0yvCW4X8A4?<@cz;`fb z6}@_!SyF(p9rxk4_t(oF-)1dE^M=+}{nv?(sESJRE@Fnlg+x5fRmkFQur9Z(>BF zu&*28GJh03cud6_thzL60cno@q8JDJZ@Tr%Gs+ClYo9!CQp3_c>@q_K(;7z$*-Az1 zm6fo(+!zjw{HO&B3wMgwOQJJ2ErEy3FLOpsR!CN__NJ|`iwE&rJyI&VQ{DSw3kUiS z5t5pqw%g)E{!}I6x9!ExoYp?k$o{$et z5A4gf$)Zy!tHd>A0N<*?IKVhtJ}t0;mgpn;u~|`0@L<3#;Yy=G zPw1f6z1#F4R4qyn442S;RD@wqSD^T-ED|j{skA;!CiyTx3~&>SCU~KU+?Da`V1_}r zd@J&SVy58@U$cA3N!Pf6p|S@0K0gv$N$QaTx&);bOIDo*-}w%}4p@U>c~Afa=%86h ze0c_h&7VD1KEE}4Xz8pCaK^LM6?8~kf>dA?QHO<;j;vLADgVhLmz2hFd3i8WXJV&l zbDFfebI?uwC3JSy{^QU0PDSdB$Sw;KELXLMqGjy|1zjrY{)&UvHvR<1iNU*qJTvNc zdAXlrtcmm>)KS@7s%J8L_fHQg4r=ym-#2D&zrH>ew>H%~2m7zJF4?7Sk{sYEws=1C zKj1bqT=cg<_5V^%#Njpj(=!<%E9t@5PG!@2EbX;!g#PQ=_kHs-w&&gU^Rnl2)%WG` z^N^pJV%D^*q30do`?~7;tow2L`L3H*x(;2N`FY`svS!6Eu>Q94bsY2+oISeD+)6*g zZtizK%YI3Duz7Cg1DzD~nv; zGVbo2vd>@u@i9{Qm&bJez66c8CbFN-j<%8I+APZrN|6U$AO#k~pUJNFl>xsZMY&cgq z5+VBu z*|`_UN?<)SAI&vwWiIz$TE#LMoePmzG;z_L8<$!Yp(A1moQv8tz9=M{4nWi{nkeTO zBR_9SCm%j%MmD&n&OB$1wG>lN6?8TzQjeU82+UbwZx(CQ9G(5{iN^Kr z+6~ul-~G~O-+cm1E5I}gOzpr_0ZbXd6ah>gpx&j;6>PEU=L`Io-l`~qX#srd)qpvy z-Tl3G&l~4!c+ZN65tXjM%Ln>No$PEaQLn{8-b;~wB)C^-HFY7xoW>mp1_Vs(1}bAm6hXpl8_(ex2*AnDM9id%lBMCoz+m`%(-r3koVGawb z%zXhYk%TFWMO!R}+#`ojI&Wp5yAsq8%5%SlP5q~695bs{T|+=eC{Mo+7ElanGK&fZ z1uvsUPe&|P#^aNfikT(>lz^4>T}OjB3Y2~!CJoUm9oepYg%R(m0t*iYT(`m$N8Nl9 zz;YD~7v=LE4w=|n6BPWO1G?Le#3Kn@w+w|h$DhGSZABLL3Fk>DWWNr2qey94c`2vbc35zMcL^iM}9+a&bB48H{)wvODEt<<@hgt1{Amrz4mJ&NaZxoO%B?cDc{?MF|>6Y6Qv)2Zyq`gTdv~L&d_H z>4PbgK{fHz_>rYU!}mFXZe!e(pP^xJvn)Tn4yDq>eFS&2yq6~yxjJ$HQ&{VZu6LhU%NDHqQ=$A5 ze6fpj%8wrIJ#zazyy>!~(qYMLOi=VKtCs{KzR#8Zn$0A`4e7GeS-!!6Z(|clp9U}a z9IrL6$p0UEZvhoYx323#2oMq=hI=3cmjrir3+@oy-JL*if(EzX?he6&H5Qx(8VK$L z4}Pm5zhteo_uc#4ea1a!j5S6Inptzs?k>8k=;wLAnI3t(!wtV}QpO5IA+VYtc$5qMh2@W?AQdT$dkSk{G*=@WX4|PW?m7j4-g(fG-X;!E2 zcJt3>3VG!7w2TT%?b_ISs1bKp^wl&-K;2X4rtI}$bDn(|qh~)26K>32*XziN&`mN7 z3K}-wEbd-8PAOcQL#62&_~X(nJ=x#24EJdZ>y&)^+?wGQ`5FVQsqwpO3{l0^ z*_v^h1?xap2qt*#j94#ScFTP-qpuWDkUFInJ+snt-jVBU-I5=T}e#dEVHuEN~Ai%gjGcrY6KEztpSIEjfLR;~dhb*hL(jnOzsk ztM}%`ywrG~Kz6EBnw?9C?II-%`VYF~$>Y{}rY;3W+YdBtStklHA>xZjs$tYkr8*G> zd#=<^lpjpBzu;28&Nes{_Oa*>zKqFdznC%^hd5MtMUEaciO>P&Nis# zqj-~y&nAX0Q5&j8O&Ltm>FUlb6KEgJ?3k)stJfIEepEC!h*43^R#NhyDtsR^{taZR zZ{T38C*-Q6q%=!(k7dkA(y@<>&~B|y3P;AF+v&`KuQX=dZ04{t?zr^mWxHJ69gDM` zkDlF&$vT3vIQ1ve3k3m4<=Y4?UYxwjRp`PMYD>rNsoMA zn}Fl++8@;3czEmsJ5K{au8iaAiCJ(nZi{1=QfurhIdmkmN=}uCaHBm2+acKwWrI>@ ziYpDl7BgF~q-&2O8!Z+pXU=;d%x|4$9HlrLE%l<{b36Qd@R<+5Is(h6xD*_r#Tv#l zim&CA@rj+#H_o;T1(utMO;OsFqN;X^?&nuNs5v6?tVXQ)No0E5HgQ?CQ-W65SayuC zPs#eAW|7FWw@t~Y`VQG`AulQ#KQYhd8rzwvL_Eh($3r=bxQiuO#u0-wDB__p{e-^O@GGb>;m`YHVnjwgyT zQn^c8QMy0?58k7S>N zJ`M$!ldjrIMmAsNt~H&R_n{hoZGpf zE8o__2$cW?7==KiP%!ReTRidV)y1nY z0g6mh5_z4GDXxzK6u_ah0B(AO3Q#PWlDr3C+`J9BfuP09*OEAgOsLra_C$lix~_C6 ztV1;bU>&fZ+9FgS0f2RQ;=s{ddJBbh0dfG>WBqj7bu1(EqYXI#>plwP`|cO+?&{!) z10a*niE!yHa3nwgvI_tXonkwroAncb?1%?#@Pc<5lF3GWVZOM;%`QPYStQ>C%nwbj zT^_x~f;VMDl-&7NXkU?HX^G~UzqDQXgh^F7Ypyc+S&sb_XxonWXIRrD{l)AXC%NdO zt_}8?gmr-HWryxa+Gqag(=>|PkL<#WU>~sMZkSG2Ce`I2gpgm#<-R{u760WqG3D@qlU6OOQ{!KE6 zu_Sa<6RBoF^vlDr`|8#&P1|4xTg2hcMInB_BfO8<;t&4`;X&k(9{nT21H0rq0w)Xr z;cea_Jc}rt)~E3K#*cCv?oDg7~+_WnoJBJFNIuqka{V z%S1FDo%w`3fQ>6tKk;3}AHQU|Rx#wFc;S(FoMm&fV8{g?SSyR~(s}I$$7lk_s0_y_ z1jon#$M^z{@i83Z)jh_odyL?FjNSJbs~1fOqUSK|MMVYFnU%bK1;vkMfEODs#f}N^ z5{$@t839nfZ&8*(ca$&O*o4mFO6nWp$1siV#@Q7HWOqc*4gz&&0`>A zt2j9%uOXArE~YkgLV-}YknMSHh}a2DpO@zSNwLsD zJK8d=lvXhMa;kYG7O{Y~d3rPvE4O6)_354<*%k%YL1m_DjTTMUsPqf&eAnjW8wqBP zhE3A6i?o0=r2381uHGp;wMR6~(QQY8@V{shUdu& z4ea!1!Z|u1EuLzU&E+#C+OG;rjph$JHb>)YI|fskPIWPF*trs<*JHP}??7PMhmNt< ztz81CB}SepnblE>d9^d@{U|67JZ8kD)6!2{3)x=LXE(6a{-#HUyEL~wKKDSgs8nTR z$CF~_;C#2!Il*CrE_)BWQ--%A>zPEFW|cq5EI{Y&_Mg+iSmDoZEh~lG3_V(<;Eb_o zMGJ;)MW>4)EslXQlecsJU@@HvI%fK+2UilV9?#W+9TCH^R~-;>-I(}k@rH=T6hD^7 z!Ty+hc=+&S+d;M#E_)$7!)p8sx?4GZb|X4PoGd&2{Jxsoi>KLP{P1F$_9M2Z7{mFo zeceIQ;_a$}x#Ej$nR>n7f~<{rxsFV05=C0vvxDiT(*%bO?99(}M?GQ&nv0qV#sX+{ z-@b;V;l=Z}YH<>lT8|AA&g0pUe4CPh$8(d)qYzpqB$2C}FI_#H*|c%7dAue#{WW-( zvI#y(@WKxnCeWg<#;?Ag=N84iASy9_||U!RZ0XS zCt&vIiKVz}J;fCq%ZfQMhB$M6?V`78c3Ya_DqbLy_CRan~KRY z!_M_3!Kb6_Yh>xY6A~fpF-Kooj-e#>x$(0VWv=MH$q9Y0QhS@vnA5IHqlKJhr%Ro^ zllvLZk4;%-*|}4wg9Sln+m213+C2+JhhiExHanaxHtYF!`@p z(GJdO3IpHfW6h9RI{i}CJ65e^Hzp}!RvnysH3Bee9h_Zot}+XNzn1mzwH{7<7gER9 z(i;En_ZDBPVyrhL?4LN`+INSHB{M~iOCtiti-0E#SMf5{JcGGYglqC!;fEB*-De8t zOYRS^Y`7h+S<~KlCCkJByL(2R6qD*@o)KOi&N&IqKRQe%>pONn*Zq>L;Uv>c>!~9H z_Xb?x^aC>23A_=b`|_rYuA9LOF5Sq=Om8uG6qPv^Nb`s}nBnuNQI$eFuQ8ZZYLoVy z@l6Fb6u4eL70=c04l^ofrOc6@2odU{#dxqru59d1bV&3bspOoD+`6ioH1LVZ%tNd^ zZ&Sv0pKOm#V->F_7}RZ{#Q@NwU+U6nd)6OstWtKLVGa}8Y~TlNW`s6l3BE1+5Uu_A z5rCXZbaq*(Ri>5e{as{5RI(hr%0@C!LXfa?g!%}ws@8{iQn*_xgQ;-vtT!X>xd9L?+LK9C6zQe(dPTJd29JK?C5y--E6zCSuMc69PEEks*!r|Pvw z6Q`8sxZ}*|WT(j{%Ee8a!+8U%lqNXs0nh>%19LH2)&Oa3%-npcINm8%r}$>tu_OZW z+;|d6ZA=n{0~np#{%o`F={+=)b4r$R+m9Sx^DA;--OdO){KD#J$>yOM`WDP%e(w51 zPd4)W-iirzfffp|vSvQPq#o%*!buf0N=EJomxxx*nsRat>#8MzU&p+g0mBbj;=*ae zvnvA%`SfI=kguE^3i(vfppcLHAr$ffz54X9L!eABROoyAfibkZiT27lv<(1%Zjbe3 zOUil#Ff2&)Q)6vXy1$`{a?`uUKjCT@LYLjA_z2qg^K_78$WI(ylY+=cv7<%wOkxH~ z0{Mu)`6=dzwG#E}dw-+~Sb!4t;!yj{u!IlDpZ;R_#?L{PW3MG%{RP?p5GdvZz&Fy_ z-+9&;V~Z^ZCk13(O6=zk-IP2PKBgdYi)d#x;!Of1{EE@eQ(wi8Ls|zn({TD7#T* z(z>ok^@Z+fsZsXCt0lV1Gh3#5Ek~Kk!s9qP@FEbVIeep@+;3H}RyeL}Tdieqfyg5` zoSTxAh7oOrW;Y>j&z)4{80~jz#=fbRtY$v)Ldq`OY48ID2$OLT90%ddtlV7XVTey zsaMLZJuS2Sq;!UTVs;Y^H{P72bZO|_TDnwjt=@YJqmb!^cOr}LC;(={8<(r(+V{9&!KSI*m}K_%@qAG-)u z)Y-n?sygvc;T6Z@_O|#ZYFhYJ2JwwN{o_2`rU6jAs73Mx*Rck@<;C2 zDO&cO+&qv=$5ziQ<<`(ejqiN0!l%S~jN}bY0;iM$`WJ^o!`w60i61fPDuxb)x^y!q z&YFedv@1s<+qGum>r=kK>J6V6oi&d3mJSoE7h^Is^leH03fO5t19r`Q_<^4Ko0i`^ z7E4oG2w7FR*{y$en|EsL5i&l-j4KKi7Veg?p@9`KXm3d>hzkI5Ct0o$W3DYL5>eXo zes3yybX~%iGaV^lj`XTJcTr>Hxy(0PJ=l8w9t_kCibFb~J}-|=KMOkQ zv+VoTB+Mm*u>C}*fpYJ8DBJnStr0Kej@m=)-X-lW^tpcvTdf_*Zc>_2O+@b#SH*e= z--@wnzE6f*I0d3CuMjUTI#*JHqbf{~8SepYe(MT8Dgx3MeD^K$WMa1cOYO^2=vaa{ z$5G~2CgGdJl}b&AFtsOIMn(}O7E`Z0Qy{Aq9x^8_$|J)@qXtSA{H#ue1kxQNxR=-a z%62@I@4vl4sC)8+^gikXG%`LegjY|yRvw52Xv?E+Uy^coWm6qK zLU5`5g!GQi&6%q0^qUWzgK~LStU*8!CSkIrL}X*}UgeD3vgKA`qm;(8fs(_iY{J|j zgdPv(Bd`(NGB+;eMJSDi(JjvV7}2;1B=Df$%F+vUw@Sn#8iJ1^E`pz=r6{7zm)8cW z*_HVbSu|300w0mv_`Xo0`p~dJ8%a4V8Vkb#)W+}YtcY`8-SkQI#JiBfX~#(zfc!B5 z?vH4lm}zKHkXf_b< zF@+L2%P5?H8i+c)+! zORa8YtElvwI&B4X_o?IOFF`D(2WpGo7|c&GyGmzH28?>RB@Li{%2e6@rwE>iay$k- z=wsSds%EJ&IO%L#X3N}0*KLd-V~WNF}_)7jZm>FPr;m-t3}pcR`!L7)WJW)G{8L zv1{deHgB`wUHT^W{SZE(0yLlZkbqsWYed-dYgYL{7@P=6n{Nb2MVQ;kT>)aVP)Fd* zDg%%z3XD7M_X6&5Xnv>g&|0dp8GUP})B@it2YQQ8By4C1Z=napxm6gzRZ_|{D=^_c z-iSP7ZO)3e;~CF?1m1Hd;sbUeDHlJ0HCk&Ea{(fGLK@YME8GkaAd)BP1hAC^OCXZ> z1_F)bjTQruywM%H(SbEfcKwEs-ZYs6OP8fw$=bSoxFP#3=GfdW)hX3Pz65QaTqH|W zc8n|}0syCE3Q)S#mfypplY=b-ILd=4&rQ5S!Yr{zZ2N6r|d&qVKC?`>Dp^5L%5C|R>+gxImRs@G-uV~M5jNr5NK1o1$o z2Ebmy@~+-HG3eoNB7~Cwz+NzG_j}Tst?bJ<0{8`*!fnF+)#{8TV9^a(W9<9-$YTs? zctpHSxwR?A#g6NWd|>G+=7%j~2Fyr-=SB3=lVIrvC61#4Uvn}|TtDqy_N}U*PjMof zEPdcffab-7?rfW7{*bsrkUkNGBNl}iuwAGDRPcUziigE5wd+LDDgim3R8OZ*zKpo- zOa+0LECLpe2T)uwk6MBU%7gjp#zYKP*c`a*a^>V*@iHcnMMb-pQ;8(9W~kQBHkRaYjJt{Y!w}14+H8SNX7#HWJ57 z{|NnZRyWe1nB5jOn5PiHrWWjvEZqjC1a?d#Up0VLQ zWBz-_1ow>3VT~tXjVoY{!(fd~VU2}hjfvYv?Nbo!zLgVwlm@H7hM`g@LvgWIR)6;G zYwUm(c;)GdHxyQvS1kI2?NcC`{2^4n?#m9#Bn9#sIP4=7EgjM;+d$D5lA8orJ*^34 zY9^xTz zWjiFqTrqwC(=ElAZueyB<|T!}=aIZ`nJ8Wfbh{rMUFu` zQix}&QS9Ds`#d?{>OIzNPWIArnAbM<9K>yiFU6b$V+iwkSTb)3I&`_s3#HwMl}h)N zv67@<3KPcLm$t7+9r5MnNHo|Q*X7(n8;LZX?>lSJugomeI;g*K`I!)r0I*?xd zc7)@pgjJ^UbJvGdAIv>p3MLuZ(@oa0*bUp(hO99(v_X@47I#TKnUG!<$H}8U{o~_p zbx#csoI}T{gvwQ=%|-28vQZ>R)K!RwJW}E2RkU?7jxz+JYm&Swa?$I~zM@W*hO2py zn#9zYYPi%HvVG_t*_14q+YiL}egH8(x9aJO_>g0CsxPy2q!Lc8lVUQtKzmWk z&uNdR4cFnV_bT=WX23^bp08U5FbW&<-UX;mj*SF0dG;$EU~YF-z}WBAx{s5cOl>i# z^SM+MSok+>?#_YDaxs}vKr{3l6p|;M2>ux9USf3C{1U^v3$HuA?7q`074Gp{!v4@u z@cQHp%(a@1R$FQl?WW^rv`g8e;zUPXx|&S;TH=*yUc^-nEi=01$T8VGqWlnPwIm2J zP(QiLIxNP<7_zRw#_DWO9mn=`_hDXu)_~ICdR(c(fzURT!`Q<@D%W#=Gsc(_$iCnQB{up2SE)|d7vy>N7d5SwAmQJ@cW zYE?&sa8SFAY}2~sm!hHTDB8`=686@w>blClWkiRNlV@cnVspWucS)yEIg%Z?y1PlR z6|q`kS#6v}UR}t|s(~BYc`Y@}>-zSd9)8T9X}TnILz%%m{jLtTv0Bg@LBPDFZPb}d z+Jpx&SJF#&I;du7zD0FSlvcX`%y#^LA#U~9ZR;?LQb;OS0AYlzjAs{A2B~2e5Kp=svRsy zJtfGR6bPU6!037TyXW73Av>V+Ya@B{ww(A%ikf%w{a`fpGKy96V45j3JLXPwW+Y|J z)RSmrp>7oa5t@YWosCftQ+vvJwB=f?W2Y%8f`gVg@E(<;0T-8>gQE*Zll$q3!x3LY zzh|iDSqHeW(%9=p!1Md1C<{+)H*em$n;p)M*Ap+=YzLOoCdgYcooX-lW_>@or1bvG zz-1oyg|y$|ewh~L&FH=h^Z3iRG;cU$y#)O{eOB-~WbGG2J>R4Tp?b@~P0;mH3AO$Elo(L(h+g@7LYm zLay2-f(laF&pvmZy|w2qVke9x!IL8^a0CsCWE{$lpXF`4zZA(cC3Es5XXhzm=b`4{ zDca@USdmUVS%ZV*Ehc-AvXM36tSvqjnR=QFMEbtCzkDXQq`|o;x)CT}T{*-OlQM}H z^zvznayY9To=t(H)%r0008yFDT3PWz@k_k*_4u05+_5ei^kH zDT-jQ#w3E5E|Pq3S>pf=2A+w&1VVp}FD`F64+ptc<67dUNn;3A08zF^t(BS6nxHr}^}872(LChq zA2CF+7P&j-PT9j{49DcDZPE7TwJ^iVSV@=nK z?27;D`@6!;fW#H@e52fTkuF$S``l&iaq$<}*485`DHlEkM6QjGtUCxqsi3?(6Xa09Uj zLVrY!0J4EC&$7u|nawBrS4`=@5>Nb}o{o1cs2W?IY%_0`=fUQBxlIl#77*FY{73%r zUkyV23!Fm8u_;=pAS@aZ#z^gPHf=r}SrKr#XE+>r$bxCKN1J)b5@$sf5@xQ1yCF!( z>=lyD!|pyDhN`WV*@4-<{v(@uo$$CF&!c(V`v&`fhva&V{zky{^6{y3ol|>L^rxHe zT0OjM>0dg?ir2iLP2IC@{lC6!bo;Jf9V+vrX$oF+cY+SOx5EqY&kqg#&X&;C`BR&_ z&)lL~a?jj&ya<=~IxamvwGdV~)f{nn3|W9dC*9)PqPx+{++u(G!Z7I3RX@ZUPBv(< zbhMCm+DwH-Q3UsU0<(`>3{|pb6W_ho$>wBpds&WcsTn4+#p*LC67(Kq1JVJ>g7`qM zK`%g0L9n3x-tRhk!JxsOw%+pI^xnwc_q{f~I=!;Je7&#JBYqq^zFa*VcN{C6Dud`S z41?!&9WQoPIhwI#I)Q=btB8EUbY8;(QycSI7Q$2Bq`%R zV}%{SMg?f=9vjM9hd+?FJeBviBOr^boGl6=S?kuBazJt6>X?L;DA|vEG`dh38uweNBjJt6-g}=r<252#m3N2#> z5~EN!>_8Y+Ci-~lE9Hf;vuUmlSOg45C_)S3_PpLWI$KfAUR+w-e)EjrwLJ3t9s#Ai zI|czvCHB}nXSooQ>EISgO}JKXz)kItc<&ZW&106{NB4gEN`wWU2kqzy9Xx|oV$1N1 zZIzWZD);y-q9s}8aZf}`vCKnXSWBzSqf1E3sLX?0NXz=OsnNw)&=*?0i}=7V_jN8b z0={7AToCzxA=kNB{_ure=OPbog+a9^FHh?`bAZrOiED~o^lIwM=M>^)Swe3$nLLwTSFe_k`V>-pblYA3)OKfe!8esf6H%gd6b;q zu!cn8vhX80eP`LOE$A5w@L-^QJ-Exf2H!#sKj2tL8@lnQGANvKzEI?-C+WM}ubE;m$I+n4?$ZEpVnjR0V>qLj~vg5kmgiS49PBzc)<7@}O7rlvQbSEadWI02x*@ z#7l)9;*Jr|9q+rYrT9POUxWZz*V`F@tm|Dr#ge<-%JrU<`jNLx{J+xyGgbtc6+rNm zlQMqPZ=f&wy9ZKgdv$yN&7h`$hpNgd%dTH*p1vV`@1V(5f*;}j?uh;cJEnxJ!;^aI zp$Ayu5Lo?ceiBOV>?n17{*sp!{1kXN*r8gD);;#i?4tLu-z|X%SfSUH!iSJNy_^Ss zr{!uZ+rsz^<9L6E;B%TlY<7F__t>nFH2}e}1pb8Jz;qlKOF(SaCjPhB>=zIao7GeN zEjAmU3dCl+4)6UvHftjTQ2LK92!B#~AU2C00mNpDJdyvqvDtrdwfG;t`23fr3uHe} z5C)z_vH{vFhodQ0dBo8F;Y)2ew!@$y%W&tp>1pS#_KY{6Xx}YlnXnTO`AX`k39o3WH?xOXkN{euNK9uyECiqq()b0kIGIi$}38; zXKj>IaTv9as?r)KSJE{)gbbCe?H>vO%MxAP2-TFtMdJY@S8M-SaB21u74HfQ_knE-xlSIrvOFy``%aLbUxVd z4g4SOecTo5a(;WX=fAHQ+;g&)mg!OR{g2>FD7;AVVM+*Xi($5}UsDaA9fu2?aOUCA zfm3d@b|!FW=nU=CCKJk7I0px4ms`!7;`lw{IG$Yf%tBf(1mAJJzpc_I+W%FhuTM*> zjvd|~7Qg6oFTC%A&ux{yH#65zHth&fk+;J7`*sga!b{CeNz#|yQ_mz#WtbX@C{xQ; zrbaIC5DLy|d+yo!eWt-1Ib78aj=eb_do-h^aikx{#XCt@*N4h9$D#VM5z=CHkkl*+Q(Fso3>a+qj;LO^*Y_e9jvxZ{{0f$e zE5mmgV)n1X@PnQ$gO-PGtz6(6t&P}i^M?KcsRzW~+Aak_F0nLyl@E@T_CIJYi~p+W zmvR)imu`S;{enpR0p1hxlAJ$l`Z3869j~KOTB5$XwGplH=(edNH3wk0=Qjo$iA_6T z$-n-`dVaUXTnpt+pmv{kw;+A!wygh8n_&83RxyCP@%9^vW{irHV(^$^R=}+Cho9R; zraTAQkAJcojQxE^0Ij z1gry&uQNLKeRYF~R|&7Hc1xZDYXSTjEKa=321ovbV8EMp#N5z&3Y@mp1ZBIkQl z)cA-h8d}{yRX7HX1J4pM1v)VMzB6F>TiW=x$lv%0;H7>q@}E!zQpDrXy5YYng}<^F z@|9KKK;h?~xU=K`dmA*a2s~_Psj-wCFyB)>1E$}SjKbzA+Y6eZe zs;J%$`?Es%sk#x9Zc!1mURe&PkM4}cG4UM>EUpCBcvZ>_r(rq=dJ?Le9^qyQBlnn= zi6#CKi4GwtJ4W2hJ^572F4x^SQU}`E`6MPal)L0PyQ$uyaj%|>goLf z-N*36^(P&slk9lQ2C{kme&u}S)-k0UL)w)|3e9eTWzwpC<)nmgn#so(TNLPGXj>RP z|B*vU6fiXJ8hiyg#DLx8#xj0}WxR`N48k4G}gj2X2&$fz%)L77gz3E zI62-{6-mWpYEik>+9q#JS_dS6AC|C-AZuu$loUXhKWJ4ns(ddI(}oVZ%}sAAFj#}> z>ZX+e)$mj~1r3ol9bS2`07y|U6);S+uH-FHDgau-Ps70yzpm=J#&AB6z5Y}v?G6_w z=2J*A-sX&MH%{TY5G7!po&F|%sxYx|Fbytl?|tD3)a=-eCwMN%v0B3?0}sTsgdOFv zh7v-_D|z673@DNz`$$x^#;5`hq@aG&oZGtoc^wGqJeZVIoF35P-&010nvm6k=zDvW z$ReoEmHbD|agDLVfVz1DR=@#eBa0wy$YY0fap_{CYNO4hBj>6pUgRUM3(iXaGu<*F<8LP#B`af~(mb~sZajcc3nya>klkrK=lJQeOGADKYg zLu*MSAag5Gb`Q_M2Ytc%`KxQ#Fpf4L`tYkY6EABfRXDo zt-?3hJAy2L3!Johr6)(K(u&97DAN?UFiy&2WGDfT1R{$8JW>ghNx$A%)|+JJgK9t? z0X+bDR5Jk>p_OPr9`%eTGOiZ7%KF-k}+oUm-_f4f3N7IcM(+4Q{N%Qx!YZ#U@o zsnRLGC(-a41L5;N^R9uc0<2_$Lhhe!)!kn}X~1d_To_bt$ehz;D!RR)o4$k^jeUid z`Tl#;nkE8Hu;`KRf=E9WJodESp)K{v#A!BjLcwWxl(%?af|^a)K0jAA!ape*Gnu^#J(0X)t#syB92vv!KWnV$2N5HjYzHn?ExUzWqj(ID!K8OX* z!`wAv>%hV>9_IPOR)EDSz=sN};qF)*k5akYQ!k1foSMl?6S)8M^w{!TvawV%AV(-1XBf1 z1+(oFgL3^jI{h6yYtDVD);3bW<-GyU33W(fe62QQx9@mbbRgaV%hvc1DBwt|Pg z=?7bNHz&Iu+DgY(gfri^mt=oxoe*zAHMJ={aLp8Ss;zaum*;M}izZ&tfkx~W0#
  • ?d0OgaU)OlRrx(5baTGbA)rQ!bj4dJp1=VKckhIvZQVML96ap@~%r4ddz(opSD;IXjW65 zjWlQZE8MDZPdbHaDEn7Knxv~Ro!qv)Mm}b?aZxlCXa6#VXYPjbB5{XjN2b>oY*!{c zEoO{Nvk966xpzdjb`v!aR^r;bcD?r9h~M(O$>t4nzyz^XS);*? z$rlx=b?mx2i=prj>$T>R*v&r$aU0Q5oZOtbGh1Yo`c`{t2%Y>Jy{@X_-SsFkeoyyb zFu7!gc%`IDlG#g~(49z;78RVzwCk8IIK;_}uns&v0g_*!+BqKj!+&WDw*g!DRl#Cp zRo9~vgL#V1z+d|>TPOkP9VS?zcyZ<~(Nu%&3On0q?tbXV+?1)^Z&e9|a44sACYY-2 zbxR2=V=m#{%0H1oE@-rmGqJXXXare-7> zp+?_sCXTLM#S@ge zvNmu22t9yWSE@1~zq>Fu&2Uha1NA9?lY(5<(b(sR%vy+TC? zJX;cntO~nVI=Pacn>?p#C_KXW?8;Z*W9*#RKLAoT7*MSk`=pa=B@;_(XBQ>0)-OzV z>HwzvI#{BvkJ7=Bol!qkh+%6JU?7tSF`zq+$sjH=4NJNpVVl&DqD6@ z3ke<2pb7umoWE1rQC+nE)fq2K0d(n)L9tRm?|qHD1neLQ2OVKh)~e`B!03TQlFxs> zSRsiV`@FtY#76N9_{cC3=und1BmU8&lI`^FrvoO|zp9-8$l5c;0 z*>yDS^cKXs-Z=p&uE_Ih$IxB%7!n?eU%}X;$<ExU+==f47Bw zW?|+SzieR)U<(HTTc}BL6a9n7T|IX~Mbp5~#At>+oM zAzz~+w2E!y8H@vdimL@Sph6?A64=UttrXabfvphO@_{WE*s_5wlSfHc#5V2aso3AY z*zEoih_xR_eZA%`N{F(`5Ps^{6UbQYg>wHo5XqAjP0sDn|zeNkgy*qBvBtA;Zi+ZkJMl24WBQ+T=Daf-zi~5bD zhaf9WBmWXy0wR*6b!CCTJ+jZ(9e{|t#?Sq3J_RVZ8%vONju9a9ymH^MhP(!xTWLOh zayn4Bu`~GyYmoa9AnUr@QH+$JT5jo!f2BWA@^STAvIF}yU)!@m^YA-uH>m&M&g#W@ z-ibk~Z@c}0C4f-WLBAWf znf_~B*PVJS+w6FXvGF}oMTihZW}A`voZM|;sYhtI`&Yrpq?<;vrf~bALGZ&s$a90> zq4rU2W`XmW?&`d*{=?TdJ9f$kZ8tlUwDa1aZOZs zQQVM@!k@hqalgONK zGeVizJgq$x)@*xuj~yg5o=)#2Y<>b-s; z;PCjlTy>?5la1i=dx&ELIOE-v9J606Po}fEYp!eH z)47!#x1CSV>o)ad)A!%^``%wIAMeiaIdtCC17saf?q)7G)b`mGc>dl%g?KsE4b^`u z-f8D5fI2M2`yo#V6?HLicU@a-TV*_`X{p0=Zf5{I;B7y^1K!RA)W+n81F8`!3jZ4& zG*k$rJbrn=<8nYq0v_=8fi#1T@9v-Slwea&Qzx?T>5OoX`~3-rl{!b>gZIN7AM)~^ zy~d4pP)&SFPtXY0W9lHR;4Y3{%l<(_3+P@+2TI;O`39{$2pn)ChHdDMG)wzrh8-{k``8&HYh#0b`fwe{+A%F;Mqc z@SFR4%>{LTYw&-%Kj40sQlS+(hksT45N)ng5vAnmsa#?GZ!&5B!(#4VP6t>`hL6d4 zdaQlqlK-1>F$|l@1C|*f$K$&pke1XKwWQFN{?)$mWmhoQK*@x5vwjH6A$X|I+~!S7 zZ)&MhNbk67%nsq@6QMLmOK6R_Y`-cMkfy4b<{~w?T{Ot3Al_bdR6yBr@PkpM#y8;4 zQO7NeG|i!Eg5CV*2)!s%;AwfcM9_hrRg55x>?H>rzck{ zr3jW_f1)8nZa$e|S!hWSr(mv1hq@YEBd}=DBfqsm^UAm>5CQ!H$Ik<>g>@N;O&Qu_ zlodzrO#F*P9I5==mF2#oivV-ii|*~++OtK&HRHXR3b&5-7CddK%C*bTMnpTAfqAW~ z1pZ@ob&r%sgM5Z;)^uc}iZkE1F?T}uS5O&x4R2$kihgX@M0IvyZ|3azEB>`9Zg2m^;ktACxgltIVJIXOwQ z#|G?5=XXx)M06gR-^h0w)Z%*WxuAcx-uj)e65X!J>zkm4M#UQ(Y<#-T>ic*xNH>-R zS_G6A<_#$!8p+Yh@AJOF`kgk={%k}@Fcm>9CygIV4Ym`L;pFQ}&pu^AmOqAs!!JL4 zq0X9>+uwplb90=JS<_Uu9QSN2Y^u)lKE3ZOiMXG=n^*+xHA zGC-wmq0O5u0A;R)&~0gNI0Sw~NWLvQI`wj^xM>mG|p zjXg1rS@PR%`Spok{r|qkw}#X)R=glq9LY<3TIsvWBhsK#AHG4auRgWU+#l2YlygE4 zkEq(B&(XDZr4rgLZXTKwk8~?6-KIJDEHhIQ9NA#%J*x;^%Nx*wIs(d_6PhtZ4&x8% z3sF5BZ@=L-P?ql&pyd~eKCUl)un$%p|AFrol827q_NCmy=@`1WkJgjYbDwvQkTaC9 z(CoMVtplOz52_dc|I>j;f9XKtGKc>~9k^`vFLYpz-fudP>fbsLT6*}C(+lymgK8+E>ckB8sfEJ_1G`McEipG|o;ll^oQ$`{8yrh4x|F*zP)l@4;Pu8_O z$45k0OI+Ht+{dbbpg{2fi;uTaq7Q;3{HFtneksK=coS;TK^d{mh*5#UJ-sZRgCGlp%|FxkA3dT7}7 zj7xz*<513fkPlTb;sHI34nGks>k;2QQ9PKx4pumDu#`T-nZAXCfytzYfkC)CSk88O zJJa(LXnc4uKTbd2=rkBvO;!?YPRSoJM##OS^9Th)*sSawa|{i~cX~lY>lEZsZ|UiK zetaiJ$^3k?W|{4k4!&4{6bPAo_{kN1xXV#FpRm^-0MV-_)NbJr=z|pq5u~Jaei2=H z&JbuV^YhaX`kQoGqf#S(1UhZo68%b4)arPWWYMA^D<5)~Pm~HT>|ppLRMMpxY)L*u zV)&>Qhjl(&wG&Lh8tHv)0DADy`U58(rB5EVqWGf8a@0euEPmpCk19cIhNoXYj0DE2 z*W3Fsb~C!X+(0(2i1JBn9*}-6s%VZ z+{P~8?~gFaNmV5T8I`{@77upu{YJpxy_)e%cAEKlxgUqs{EN_djb5WZ8R2qycn-(C zg2y>VVXLL)t-xVTMNM2)iL<@0(0|}MQEI z3nRNnve{Nyz&@(SL?PYa(C3h5sy?`2fN8-95=HNn~#%`p7pn=#t(+1kWGR;`0&< z-7CSv4F4J#t34+ygBU#+mU5kPy&&_~dk%VnDpFO?d#wfogUpBU*LzNX$HT&IR@ia( zw0Qc)dofP5R|U;~Pm8jg+6I3d6cv|sI!8GfYbMG+QWU^|j94|`KB87p+N87#3UVRk zh{_z8E>DpwFjkja4wgT?vG#YkX@_rsm4sW58%5-zgK>+-N#ISh!x?gcVU$iAy}AMZ zKL^^IfyNn{H4CfSneD0}sd}S9X*Mml%F1zbZ622DHElN?n@y|h^EDoI&)N%Jr$hf* zh;^d+S`KZA6q~2sX~UYfiMbmjr7OqDa?^ir?+Yu}j@t}}TjKyj3S?^(b8_&@3?$L^ z9?8yb$c$zSM6p)B)_EVom+3U;vewVRkR^4st?G2{)$Ho>(cb=@L*aK8pAfKxNZdCM zoyPk5nGMI1Gdgp}8g1n1CSG+EeMd(Q4%39P@lT^at{|&jse4xym5m<5jT2L5XKOjv zmZig{T4t_%xlOUPJJlX-8!%ekNU)YwGx#mv5mSi*GJH8W22QHOMt8P%{K*R&(6kUN zIM7Xyjx>-_OCo)x$KF3mah#b!w$L=Sa@k8wdWd(^*Tl>=()0~Hw^8Lw5HQEZa=gW5 zRlDIZiHl3Kcd4Y;ed?H-tPB@+A2QFy;@~;7r(wD6baI(!*9@`HGG=OkBtE}7oSqXd ztY=$!n_C2*=(Bb0W*hT9nD-+4#L&#DPl64_DWS~|mA0@CPddeVaBsWFrJ0cai<`re zQyZUaOzCd7Nbc0DQh3@E$19I%V+K~Xx78Rwn>x-vtF|o zZ(W+8qzAN-##KIStijq7383Fx?8Nz-I(QsQT5@@`+P>vl+>jZ5ggDgV&!5G4@J!@) zONP31`ufvH1zKXU2YODhV{~?$&tL+XSSVK0^jfqSa~bMsDOOWdEJ|i<;l$p}O>ZnV z>mqyKPFu*C^Pw}~b$3VIr^DPg-ri64#hA&*TB}c9d#^tF+MAjbvV7vzRlT&lgm~J%t%HIlIdglaj}%J4CTb7y5pylNV3(cbGE$Lmsx$Gl z!~JnPumSi1h1HMcnMTRV!*d2yjoKjL%a2Ue`i442j(#m(R~mbZoWI8!hisH8g-aFHml?Lsbkxn;bSxl& zz~HrPpW$y9b-FTs;L$Sd^to+tcIB89i?8+SAup?s0t^4N5=iyKQd7evVO9buSJ0Q& z=LoUd5JdUM5itnf zoJ^OA-3YEMTx7b#V2<37`kZ)YEAW2jDIkCEq*5PZJD$_ zwu3H8Wc_LEA@eawW#npmc>ngMKP&1!$*)D8M3aNn;aYFq3FF=*V*o7;)GAeGrrS85vx{3%Ws z;K>Ji;7jMm^tL#0x*4DtDyT%orqy%^MpVW#PJsxUzN2cdF<@eSt5iXVXVlb@^J+Uo zq=3gqQ?mVZk4DSt`G_@}ZR+{TeABTK;vFG9>hW^K!w^yl`l^%BHD<)vbs0G2w;Gu3PtOX=&Ymb*4dQ&)IgvQ@M zC0Rm_KzfmwD|owbPIJvo>tU+;pSbCQFusR!wEDPS-h=*zyfTX5^%Vp(x9s<-Brii5fy$C`71mz5 z%pv;BA-c>BnoRT5(cRQhi_}r4l+jw*-5;{Mb+WtMvb#Ez7oLn{1kA*5O*FUsLmqMUEmYE*Uk_Hb0ikr7)oK+Xc(-zd1X7e2A*oPZ z7wT1p$)u<&Zi%pTxCm>C>_~wG8-i{XV=xBH0kd?Nsx@wdSs3tqdh-M@QbMR9Wjgxc z<$6h+?YvZDHG8OXlxgDx44~RUdHKZ;_VT)+z;x2muLW$SmCf7^zh_X zP?XA)e^N4M`Enp9-|d@Xs$Q%k#*uZcR-DPlk>#ycyuikh^{iTq%fOKptXix?!I1^6 zTAWG1krmyoetIfyem^BNV|7LxsPIFNx|40&J?&vUan18bo3J1D(5dRpVIF0t_}mA! z9nVCs-uSheE5kivcKIh)xC_q<=Mh!ujrOA7o zC&~m!#!kSjLZc^Auq>d&dOrD2ce8NC2+P|k@p7ByHs-oGSd0a->G3%9^UiY~tjD|ZO#~_~ z*E}KMrH6nq*Sssx)DriI0UU{dZ^YOV*I_*apL9tF3YVLlkTibtf}ij!2P6h#QsKBy z9?G99`BRR4Dkw!2C_TG!7`v>&8<1|;aY{-}O7mn^Fo@zLgGhK$GWi(WZRP_uX%?6O zR%uQU8lK=$#AKAfzQo>=36eIn^e7S2*rqrFDqpCvER#v#KeGRQS^ibJ6#r7XklL({ zfOojvKWH*-nP3np_obkA93=K1MeGazETRPJw1X;thaQMfNAHL!34Bvn(UY70$0qDZ zK@VmSdQF=RyOvT8*SC0fUS7o69*v@M^1RQZR*}fTR|&XPF=$TmVq&?)h1I1dVZ|nr za=i>vy;W&pJaJ(>uMjT?5HED`u(9WjjO*}vO!4rzb6gs^ z51d|JI^6=nkFj&vDzTZndEKHz%hnrt-DH@z(5GiV5fra3idNWeM0-zgk1(0+l#X#n z9by*Pa5PtaFISRRxAO0h?XUgYh2ATf$6LT_eBIN2Jj&F6d~@0X-O>9tK93lwiXyy@ zDg(XhY1_f@_CvhW@Rk_QPB1#{&bf(RjXnIFUAGs!UX5Ys=GhGT*O_ozj*HL*%g>Po z(z^L5A5^8J)-$>nAp1U)FvzVwP|@_$R8n;YSalCUid0pNMuq!IW^gELs#tVSP8(x^ z)F!dYWiB9ZrF`%WI2)W39IPon;ZKGGBm>bjZ-`m`4xz3QnGR}U5nAtFIp$w_^>5au zpWSnU7^Vpyd}|t!zu=g?A+|jhWBGGXga};-`-_d@n>rWO2T?$-G-6~bS?>!GD*gyh z7-}-3{(XV0cTS4Ipqgi5S<={m8f**)Ct_{?J47T;XQ$Tq0XbXCAfe>XAGI!>7QhkDl_GZ9`Z=k#pD#oMTr! zS_XPx*#j|AjQK?fynLp+GdZBgZFjnG4@-7ml;E~i2HLVpO(hv=T-#EIiZG{Ekwl)G zdn+~;P?Hx;s5$*35>|BGv;>ptU+4!qSNPB+;^rE#jbwVU4s7=75q6CWBU(mSSQZ>1 zr0_H!Az)z8@PR{u504AWbhBIo&%`Y-TmObj1It~X3O+Cn-1J35!0iSF6mN9ZvMIYk z!9mBhpw{IECIzxhqyC@?5-LaeOq-*uLgIQJXo7c;_OT0Gq=pyE7$w4RskvLU4lWKi z$3S>lc9_-p0YQ>Q`lxE=0jvm;8XKavjujru0fH4C#g>7q-q^~T89qQ;CbKkVvWMF| zy)xts2ECVv2e>>`5vB_fk`O25#z~y>St5j=e}8?eRbRf@VKM(*67)*}!N}FZf2p8u zM56+SeQs#rx0d`aDkS_zk@e9(iw=o-1O2lr+3Ar8$fhS}gU*&OVG7pAJ3 zx^ZhbS*6mZ#Nw>2-aE6;G_sF6u#Z|(c&IkN;}42EW}p z2>a_!zn|sAN1hG6aH~q5DWQ+Yb`4qC);f37kx>q7woR>wO>%1E^p_m-3y7g;_u_@J z?EZekuv&4_)~Yl^LaUI-e$@KyLBPEeE{k?|Nd{NdkV+TT&fjMryDI(m>%VSz-+u2u z4T73!`m|7<{}Rc`T(jGY8#R`wsf{ybcfa}iD~`(;cn`#J9Y7rC2gGq6KmUs3sC8CL z@R6C&MvcyWG)>PeBM83+5WemE9l`l^>>Zzc9nn8-|9VwqqQ%^7)u3CM_v}`jijwqN z)w!uHJ9kCXxp=p4EA%e2e&ZR^Z0XIdciU=9)2F>tPF*`9|xAyCg*JK6M^F-rom*_rG&@0}Z&Lsf;BW`9L}8e^=nXXK}hP zwgqmHiu%(^(eu0hFobh|^{mPK_nJ4Z4Zxqei9yVz^Y~2o$@pM2xnxwT%zMc=3_7|Ud~!8T1$IQs=br5nj=sPNz1e&bsbRr(RVqRJC&xe#AOf z(v)L8u*uy1WaVCKrB`buRBJ_EYXx0vby#CHQDaqKW0hWGu_F@DNa?9hIgnG1QH z1E!V*c)=jUV{Gg@JFJ!4aLAmtD`bU~#mM+$bqk>aSZVjHGYMyfUu<-Cmk}|V3ma}V zt*T6gU(I5vB@d`JlyyX3;ESv~ZvwJj#p7T>4-Ke0EA@-IPb<7oqJNePfQOB&FQdYo zaZfkyTVY^qVBr##?DL`~1fB|ECXS;9tGGe)j!wFzeYX)TW>kVD@+*nRD2;JCTv_hz zNd9w7-?yIUT59%UOE7*7KC=u~u!AFDjL}Wr5A6a_yt=%ff(27Pe7ckRz**iDZQRK-Jhp(VvAe zmSp@!^-;E{S_YRMwv+1WJq1!WMp_uCj$Vj;^dvcD6U+)$p;+|fvCovWh1ii#A{=Ql zNGx7HD#FCEPa+-}pHT^TdM;B^km<>rZ{yfQU9}eyXfN+aTrN}Hg#@<)a7ZpwPoOFA zY!Dw*q?eBK8Bu^+mXL3&h_g)>x~mCqfC+tv3xw?+rcfuBf^!`?(A*L(60Qj%Fo$?Q z!@+}+v#ziDT0@gF5Zppou{+3o#{vt74biXLfu43G#ZeNc<)}3Rh0cVmmONZ0UnHuK zDn+Eu#9|27%$_+8M(Z~sx}s_z;JuOee*sRbIfP(~e?~nEze*2}CVvkz*ebvEXke145_b~4)4v)fAWuPM@OBu>QS8@bPY* z*V#5Ke&4q7a;10fdUZ$+_`DaXwm7uREh?%I1UDORBF&_MfRfbY%4Jmg8a1*v$4HcTSJJ z_7+$3I+v`zEZ?Vo>Rk04d6U1St!*`GH$K)T$5y|(@P$$|x{}Y&xozPpJ3H{2Q%3Up zu3wClG``ASuQLyZhbhAB^vL*R+Cp=)lc%|F=$u_=;_HRC)P5ge^9{gyCYV4sEYkyE zkQ`EGbSSUdle{!#a*NHvG+2|hSd%qadsSFR=rYIXGsoyMcW5$AQ%84FM}c&OW6Ef~ z?Cyo^F0ka0#nPsP_oRf^p@b)(jIK)h(w_9CDoG+PiBfY&)o@5vQ^pS#<{xJ})aUI+!*WJ4)dHj z?%^)(p#|=t6V72>jO#^=YkiC>PmHThf2(JIE3hQ!Z~bq15619X*RoTY-~$8MWCN5I*9Tlbu!SNfd|!K?G(M*_j5<4`rw^&41)kSXCv~|2m3J zTVlP^X&V^ZY%v4TfRIL`CaOzoXHX1ReSr>)5=f*}7-I&098L^peP5>mAq(VU)Vt}x zj8e&w&6UkxnsUJWK1c)NGo2LCV8M4yR2tN2V`a=rn3vY3h|I>yR07! z;0pX?P12Iy0=oVZ13*+WuKu1rl3TlI&byCD^@dm-m1eRR?}zRYRoNG(_r3e#U)l#F#jLP+riSA zob)39{ZNQ!RDI~%56Nq|KltSQ_6AS+Zw*K~qqp5@A6zGrjK~hrbkYY~#pfvN7!zG1 ztK`fK$n>b|T>mWc1s5A4ZUx4Io#C!8h2Zw&WcPv0%_@v}? zC@+oxpEy1K4onB}^MNX26HsZVUMfdrC0la;jWQHlNoFpg=$cWwIR$NB!aD2oxHe(bD=2mdwIP&pKK}g8+ z5xPhhddAI6LVix?E#_HZ6jp~!hl@48wRb9s#L_==Nt-un^YHVfOdqOisykukYZq_9 z3>Gjb>df@j*^G%c3&u?HN<2ytbz)9>r6kQNS?3NrG%U?YN_v1hWKTw+M81F(LSajB z@0~CjYgUYu)RTDBEaJqI^np!URjLjeYUo6ov!2A7Xs8;4VvT&kFo?pB;$A!fA;GK{ zItec6Xj#}vH0c$Nw3BpQI@l1J45tLi0ol+A6vbPLg?9lI2^9B;A(<3zZG>$riY{E= zj@^#j_-s5Sa^N+JBT5RpR(|(Kw*WQe1DGH{i$y3QeD)HO`vo=BYJv4UI~{w z_0M{Dx7O}m8A8tRnCa4s{Xh042RXm0K`HM1UcZFxW0xs`YJb*1CeoHoz*iCY1$n&3n9klXfImZy5ph+6C#h>iv_E$i2d~tmrM8` zDe96OgK!lY!Fod*B3jg-WSC@sW~Yox+!7o?QCtdq-n1N%U8rvn6tTYoZ?;M*IcIiR zAiy^wjgU|KW&08i1BgX@LK55Hav2`kiscKf4UQ`MP21+b*kX{$sBQkXrM!Q!HQ@-e$IDlTNLGHA`SusQ;sM z;;e_icn^?I_VmVW1Xk>1NwbGv)CVZ69J=32VuHn5T=(*CH~QA!ZrgFcfRmQ2S{Z7n z=mVwYU#ap}!J~a8rMFjrr6q&C2+rhJW8~#^bwiY$pfaOn$YnVsk&*>}xuxR$amzFR z+ihI+w_B9o-)!3JC zRi9^GKF?p7QpUrP-i^G7sl`t-j*tO%b_ebQ8^`G#hw0hPl97#)$}ckMy)s(S z$&7#JLw?h(ZjKAjUrALP$GY(iGlS@4S0w5~-JB|CZk_o}v)taHRxIj60>wF=90a4R zWvwk%jf@r5H=bS{wNpRF-*UJGU3=eQc=vm@OkFWH;H{jrls7(BpW5Za8t(JuHqHMu zLR<~_(4F5D^am=l&9Q2t@xSP=Ii%Z_i0 zkfItMy(X4c%FC9bwe6s#9M4@F!$c<)qaT z3|1McMua9!G{9F3Q*d=AQhx!kC?4dB)QJKhSv(&68;?s=JZvv@uIf8P8LO8OH+a_avbPX1qQ4iA&e4qFOC{oT$;nWev){9iZ! z>-T%np(2$jjj6HCunrD(tuG<1zxf~Y;BMA29tts87m^Qe8yqBJ86{MTqh)6HolrPh z3&dg>hm?z>>1OupU^rT9L}D2gfL-{R{U0D4y6Z;8ly@AuW=6&4KR9&v4U0>^bLiR{ z7Vm6w=$;uAQ!a7nx)>Cjf924<@mahbyB+!Xv5Ke6kStx**)Zy<5F715%7JkElcJyH z;3>mxE_vt0wtL_MW71mb*}Q<9-)|uMcSf_#9h{5&z3}~c$>jG`-w0e~*mJq>J1@CT zUL7zT&>zqp&>qknP#;hoP##bmkROm8kRFg65FZd75FQX5;2+=};2z){U>|5|%PY<) zn6#jN%tHIgSVdu}DY_6DKlMeeLRno9v~e4I(2HMiS4I%-&#cHf|0=rHto=f^^AcQC?C(nFtZzfk}daWeR~J2iq62dX9M?3FMDP6+Vy+ z`@VoueOQES8Z5MBy9C~E1S@(n{*7QIbAP50s?Pr)7>dAe#B%celV`$vIV~^?IXIc~ zo8yMU|8U$#`k>sCvkC-%&c$6iA#+!7^ByAy87Y`|OF3nj&(n2&ejs|>=3uHlN z{uJH<3G4}GU!jtala4+MqlqQiVMvEb*AausV9IcElJJlZAwg1jQY_ezjFQ#z9e>Mp zD{AXLX)twP{Jp2RugJ$aqIN-ViNO;CY=kEKo*V`qSD99ZMwY!p3pt=4GH&5H+*ST( z&B7IKSI_@KSx8GS_W#@$ZPLkOb)e(=y$0TJpe_LFey?B18>kk%%<0z}bl`U#|8Y!s z;ttPh`GiYR7Hxq;ec$)1VJZmvWaU@_+L>2nZJZ=#!#GX+1x~FQh7--8qO7n%=s9w- zRkFiWJ4d`RvOhAfR4=3>QF6pH9)f?f*BRlZ* zI1#hDUp87n@dAV--;fjl=LBa_4g`N?-7J2dC0pFT*erZdcvSwjy%SFbZ129HM4J9> z+l_s(?INKrxc+UUnt!oTX`|9c{B5%!c|k^tLR8Nzz?Lmip{_s@TwuT zq$BkgFSS(t1|hO7_rG{4>rC%AFHINy?WQyJ$Iad6#Z4O3F_cvr%kCA=ziw~sIp%L%@toMbuL;p-If(a4_{LYCW}y2m{5*iJd93RzsIUZQy_HIF_M(? z!Kn&YcQa2(0A{7X6Ck?2LS!RAWYfj7;K8#1CaN6SN3E?h_N+4Ir)#>VY6?nC5{pe# zY^!8`G^zxpgFx`=_hq19~ z?tYcE=$LNfFaz(C*L*bAdh>FjSmDj(xV`1x7p;Be5B2vJ&6M+B z8tG$J<%6aDr^!ydCM(Cre=3f6a}jtURTUE21cQI(ljPx8=V^mP2UUiVN~1oaWJTbjnK~X9A;BIzWbfcl*EnSteUcd) zmo^^M$iM&}A9ypfQFJ}e`-f`bem&1@hUOmZ`z2%Hg{bfupQ-n-QsCWL&aR|9gFK1y z%p~y?J)Izao1|#@D7dhnLETuzrPrFls*%RsIy#pw7F%lB;!|A^M$9RE7xfc4iWN4I zjBKE_%B=87J<1grIcy1tAS;y2nu-R<-!2J&3A2TS2agvFRnH@S{x+DNRX?>4Wh2IO zhdO{+^t#*Ef8mYM^;_<@T)N(YGX&SE;#o>%V`q1~uTB|whX4^IGxDEmqJf<&jJaK%e#=w zDSFt2gVNTU8FiL8L*9XN*@4+!{x=oZ`}8mwV3A<)uCCPL8SfxDOvZE@k-a8^1-p*- z4_1nMvmdXK?uAyvRl?|1VpyXTBWQc!Y}BaiW>ujiGl@HSy!^iTpCN`Yv@}Urk+Cq4 zNi!750MApaSK43w5bt#=uutfR|KR_;6%GO+fd=WI?k*Z&A*qb~HAlm{EztfG#HV87 zyr0i5@5M4>LSTns_zH^2$z z$xeY$sD9V1lPM92*WC2e_Upd6x*B`xcn+wcU8(8P${H++pegB~dPRoMX$!O2)vY8I z{^>p+I^W<^cQ9_Ga^fCb2|ZcSwi$;^Z>?QE88g)5ZQ1I)yDKgQ7F`dCw3ax+@Q@8_ zgy|A1OkaVS502mP^V#M8t<+;Y@#XW`&iOquh1ZsByYL9uTT_N7Sdt~!w4m8ak%^KYW+*MKH zQ#%^PibqGS%hzJPnNVc z5O7M)E1~Dh{e!K^Wn$7$h~?dz=CYnvnAeiB=yNFo^|Y^LiZ~$p^_R$UQgN_IaiXny zxN6LB+L#0n*1S8fkCRuSpTGIvKm-*C7s130D@IJp!`r;hYP7*wi0|aTJ4Y6lceaZz zpk-m`VZoXbcQ78}cI#Lo{^3o`BDvFIAJ z682j81-2OT({O6gB@;-9+a^fm6kIIfjEMb>0d2f~0R=JRfqZ{(a1}Cj5Cvte5_cZ@ z%5bKMpUeR#zL0ofdy80Msc*HPMjvF|aRh7F5svPzPoPYL)@QMN{RD4z_rsTb9WrsX zrA(?wB?AN#-uK){F4j-oR6T#W?~pRWywEWmK=GkEeE)6&O~b;c{}SPp4UcQ0u}a(M*U(j9fJ9TL-5T!Id9?A18KEXisKJu zEHbqAS~9hpaG~eu%d++7;s#>0_>;#GDU|&HC!d*y5Q()qUfv&Z>yZO~G9;hpzOz3R z5m!836I}~EbLOPnZziu_@1tOJqr;n6!5sv_l;<$Sea>P0R$@1~6+?FY@$~x1M=D*2 zpOoK!+aTd0Jn>aezB)F8zwiTTeCzfT_zx+DkPYM#_-Sem`sgj>GWal~(vlm+YaS-7 zo^=GE!o3^@Buho?BVV{yC0eJf3C~)TJfY@2AH^mZ|08Fj5#k_R1?b?5aO#k~_;&b; zJtZ=|5TSBL9KZ23K7{D2gKP?q(k_eCFQNrB7Fbr&#NxtxW{$$nt<2&Dkz)7$Pp~)I z>XEMpKTMa0^A{I#Kb4;#tiVHiFqKG*d5FvqHe(~ndu=jlESB1|~a?eA_+x)>eI5al6>9Fh4%{*?Q=G(aUT#<5EDUaEBTfuD> zk97J|s2P1cEtm-WMZh&OutA1p4+=AzEU|`H>$4x3hB7jpNACw)>eZxE6+h{qE8xYb6d~qrX;pCrL%95N2!4gtrLj17(9%rmR z5h%}O>q*n+c;X^NS2?yvp!FG&(QC`Vc(Y&N|BU}FJxKgL2#bgTYFBFdEIGqOlS#n= zFF}@YbZ8U^;z1P5eohtDB*BtJU>uegV%}=JJ<-}dGXkE-hGrBNh(Wm?Y=?Ak9(dm) z^HG>k@~kT9e71A2Y(oUTdh4t`iq)h`a1C+Tim)Wh(IZs;C)G$S$6(n{i-=%|S@tMD zP513dkVSLwr;99BNWNn&BZ`ZeaESv|L9xcocOdtPN)&{CaKZ>__^5u4f7&;6G3@+{lT68%7}I;4q(HPPy(pTDyluqWtKIO0%;oq0Fk9rTp$FGqmpd$l_FoeE|ka9Z&^L zWi5#HUGpoF-33ngOHI?~D)=tW6(k7DU0v}sh{?oVxP}{~XoN^d-e|}QB!~(_9GW~z zSY=ms<*Pyv4sZyYcg)KCa%cq>lfq*NkneR!l<9(=tBpBIBc=j4doBBwIYhs_L8HTe>`p}H87C@Y>V zi#I3h5|30_h}9N+FC>V;nN@SS~{jX!3c2`ztM;5An|^J9QV2j{7yoPjEs0 zl1xNCd1M?vVla??rs&jXTt6M3pWC&Xo^PB#=Eos_K3?+%Mp?Fap{3~|P7M!X3&>-{ zQq@vRaXe*1H1~ne6e3JAt@j2u4ZdglH%}sYfg5v+N~d9C1tav%>J|r3#_)vpu@r&leP3AFppZfh<_4dsL zpYJ{r;qtEZ+~85vZIZM}W={qOU)Yh5=Qkm47;OLNb^GQHj9W9_&lefaYwz@UnYhdQ z>4>F|jExRub8Y5f*w>dSj>eS@=J@zS+8AcFC(J#kHW`y$p?B-VgJIKIR#;A0TcKkf zo{H=)PZ{D)z>v_agPWCf6&uv^ChSLje?Z=Y$ct&m9-xI)Isg? z^c*Te9%{sGGev}Ypn69}9`QqTyxIBzS?JjJL8BpHrh_`HgG4p%I#j)Qk(}Q#$LNL- zx7t1Kv-h;W8%j0V-MZVV)Iz=2_=YULLt>E@vsA6Dd^7zD?L8x8hnyOYU@KueV%SZ? z;67KcWS*)39V=ec1@kPSoG1ls__gwO1=pZBczk~jkyw?y``DRYY*xfrrccNjN3j8w zN|}qAA=VC_A@)%**yZ~IhtT+M;n(-^NO7N$TUNX;F~eRawMz9anUsR&5gM`x; zA+1FSo^-Y>x=)4fFZa(Zw#|rc8UoSRFiFmMWT)1nU1+-}V2ZjXa0h~g9x^Z7iaVyP zjQlHaHPzP1o$Ry%z}j(LBt^Zk1YT9LCFiB3WXLICIUk8w&UhNkW@}*EOlIp?&X8El zn>?ikyyF@f&yqveA3Oyv5o@8sd||hDzP~P!`e0^}<2m<%PXA@TnCRL1-~3Q5ZgP&%GNo4QK>?A={vhGdEN-#nmB=< zPa&~%O-menFV+@VDIFy@a@SWF>*Wrh=~+2?6C!$| zv2(X4ycKeU3vF%!s`xFbVQ+Wh{aI7JYfc;Ru8bvu;Od@g5G|kwR*O|8488M2YML}T>GE9gYf z$hYxQi8i8&^~v`mtcg3WxtG5^u9}=qxRZEXWEC5yEnyapNCS8AXL7`tb64G-3BIxf zF&?su>sB?<3ZSG9?P0Z>V@@-P5CfO9cScBqYb)AgCjVm%Ugyqb_5B%uucegL(bW`9 zcGM1Xe@-mKdp9A4w1kId1E}>edy8c0b@L_-7aZ^FZ~4A%0;=V5_eN^~93ks!Z`Ztz z1EXDqem_XDXeV1LI}yoVkVAbEXZ@TwmK*vNu>m2*^NLRgG_~GiOa&=v36m!@v4@Au ze2)2M=+$DIGdh+Js*Ev;hMtx{@p}@u`5edI$?0sWTG4s3ZT^%DZ~B`AXKpaMplF1` zN3!|%mq=O!JLDo#2;Meb5c_Nr6oH_6b_Sm4>%@#aTVaLfMlC%|tNPh$k4!?alKv)i z;QXF3Z{d!yB6&+Kf7H?JowXW&6B;n`@puT|TSqpucb0C}W*$%1!!8(+rF9s)VYi#G z1UQQHo{WCB2K1XfVdLt5%Rrc1JwkD<)LBn5K4Wrz%_>jA_~>3&#`R2ZgiHrTene zxV(#>zVM&f{hJBx1spCf9iM-?1EPEE?=WBzsyKTez9!$+J#jGO$ZHJB{c0(=s*Pmk z9k_HJS!uL3ZKyMZ*g(ocVT@eSZH9+e0?9?gX8{;AV5AsQ)iR=M;4h}9B zp5Vl|a4xjCDX8Kqw3f?MdxwcOC~c^Ta0Hf{`+b5j;uY&TU|&)(a_|&wY2{g49}P~C zjjsH*t19snB$w}Ktg)c1gxa6s!&CWOH@?3qaB%I%x}(~oQ}qf?6>TB2o2w#*vR4$W zX07JthS9>hxhd>jMwt947U#x(LuMfRz!pS+{k;wq0{p`1o|EUrCdgRlxuhQvCyY$6*7K!vPBwDSju~|I zx1$GSh@}m5bw^PdpStDpw-?3kWvW#U=&HGg^@8Fu+;ALw&p#;L8MPBz&`?0~wwzl{ zGRPP6Kdq}gFMvbqi%_r!Tqgj`A_g!^_zfWoes|r@c2kZ%yb};sd!)b1;m2i>Z0cIG zRONv>dcxpiWwtwh$enGp*$@gzRUSTT`bqvW`L#>d9FHEa76o;1vPzi)Eq_ zc9~Fu*oj4gcj$Ov^*r+6R*E#xNf|y7b;i6~GgHV)y&rX3yACY5hN|v2K25D51Fu^4 z3hGu%p{5KaR{m5R{8Zfb=mSb`flr*%|sL z5YzlLny`++Ry1!iZIt`Ln}izV6IRHd!C1;iY-pi1*t%LKN|4be#Q0n>0<_CWv%~}; zBY3_JpPtXt36T57a%}lhiN)_~nP6K)8|8qDa^Q^b^_+l-?ib{4ho3;2);|PUaJ5d| z_634Aa6VgH3XrLkUCICuiDHO7>IGicfo_iprdT(En zZEf2{Ivu~)sa`ydukVdMl`p9ny-UCAcNMnav@(S!p;=cXf^m03PAVRP23UqUeWP+u6p}PZLl{{ z_E@8dd6bo>ROC`k1~_Nc@OhLW3OSY^pV#?v>&QKXRkl-Rx4Ub)UZlQ{QLIBtO#pt7 zxW#-|Xf11-e(99rl;i~~8^}$@Cv!rKgyZEYQ+US?8u}1Du~<@)oXKsRoP_goJr>o% zyGS70J3|m-SU^@8mnttyXODH9TtQn%ZNv;)uIs-A0^I~z6Ri+p^3Yx;^Erpt{pTNy z^?%CTI5KHRQ(1S-oe5`-OvOnWmB<|g#E=X_0|VX4rr>4$vZ*#`!3GN!LN967(agK`rcU+UgcHdxkidGF*BSw8GHf4hp!fl@x^FdQ|Zw zwoBj93JPyJPT_Y0W1`)c4oM@_S9ifZiJz3E6j^QhFz1@_@Zrs2o3p! zA*a`RYlP2Fj?ecFXBdk2t7KxP8`r4hTgruM>Ts$&6!j6lM6|9I2EfO6kzK>r>qfLP zBRTJ>4!74HDB(OlvM+8?6s@PB@HtwbCol(*v)aSyVH3VNsSh;a#sW2t|?G!EA7!!4>+ELSN_ z*pqB&E0Q#O#u@0>T+*+^cpC{LxMuhR_yzlypzgh=}K+hfqq>PYU4F z+X(goebSS-g=?pqG2ByV(z`6j)v3`G?DBgh@U($Hs88V1@ z2tAyt`-n9(Gx%P}Emoc&rPB1j1=`#RAm9Vl$vE@lPhWx}6|W<2D|H!$5YIG`RuIRD z>lB>>HA1_meBT? ziM*UUoL$KY1KW@NEFQB$qC&7^R?fDr9)P(el^W%T^WHcDK!C~EpD=oMP zT0Lt*gix9wC{Yy5!WAE)zhz>H2WGL^>QElT$S&n}+$s}?N{K$LCiN25dDN(87(;y|LX zyv8FOgip5%6_eW9!DE*!BKJ+)oXi9*WK%;S%)=z*Ws`QX7%gUl7qx66;pL|nb+Jg? zAI*}oL<$+#7jf~>4A~zgoyug3ALob3y$#wwtAd%zlqzC-OOy+V!V3>MwV{JrR39L2 z+0D-zP2z$DU({PqCT@uuIbP)Hk|w;*fGHksDG@P_hL%gYwcp$>H(J=+AX?blNG3WU z5G_W{9wcRX;~4z2-_X05^iFvs1gS69b1L|KqZ^0`Ng28rjnVFfHaSUT-zTW#gC+qg zdHkAY1mdwS=vgr2?6>blM-Bs8q|sA?!2dS?>uBn?RvaxIaDXOhV4sGqE|7y5VyNA8 ztD(gydU01RL6G`7x+Eb!u+;&G$@gg7#Cdp%53l@nH;jWT#N0|cgkci=K@ggeMjPnJ z1tUzz&0{3LE_j4x zjRvWi&#(*_toPZ2-Us5nmyZucI&iGDUv2_p!JP>Porfr=&q5m z{7mi(SGG_+{;?>k(t0v1HUK=tm=Kr3f`ng#0@U*(S^>j?%3bp?LC2yG#Q6n0#P1c? zCqEt(;z=^%lKt;b< zp^2@AX@xqrcWhaGAXDn;kT@b@pzt>-~$Ma!CuV)p52Lj+9SteRUh07jvq(z_w*h46A6+3mqO;V0C zjRFs{lJ?Lgb`436!-B9$H&|9s<1)q8Eol|OSP!7e6Z9m|t!k+7Sz}xlH3}iEhEbFw zwtqhVxIpjWZyPp=cZJ!^+1lI8*1hgpqw}+Nijf4SaWHm^*-6v(zBs>t2db432GbEz z25GeLM%AdJYS6d{`2xz9Y7r(RVaKrekQs9{lSCwpNLi)hn?Z6o|8ZAbhEP5Q*I%Mpa0$v1&bFYpZWmf9$Gubg*-D z-d@V>R{mVOJfWBS2)$F6qr`f@!zc^p4|qbghV|Aza-rOdB2#!;>D?@buim-A{)DrC znvxwole-;W>tkKevUbTy4Ti5>P(o%N!%Q@WVCp?~Md0g4ml_CPjfS3LWSjH{3D_;N zS)RNOTjTCERBy-I&mdwV^)UFGFRsV!b~2QG*lh#!`SZ+<*S;vn)^{p<@}+(KVZ^N$ zZm*ZkVygKf$h!Ha8q%jHMyDYL6A8YldSk&ZyqM4iLnk`cUi8FGXB(K&Xbawjo3zKW zW0%_7heoL7fGP7A(z#py2GInB9fl5H{6E0W+rYtJuH3U1@vcZMFf~!5EyOO|cDf=) zgY9@HZlghQ8{il|huTQ(crCjm|0&XhY~mt_M)S5Baw}GQED^KL4x$~eUgVEk9~sw+ zT8P~U-JE2!MhoZ`yr#EH$L@O3zm+fJlZjPr7}`P50orvP6ji&?5;hW|0LUcE7XmH8 zg)Vk|lz1zVvlpY3Io3rk4*$1^r$u?rkPJVhB7IJzEXQXMEpol~<*(YkstxDl7- zhLDboF-b~qYBi7)|GFJQo(EBC00jXPEi(dw;R^~Vhywrje>v+b6Fdz56y$7v$?#o~ zTjFQdy!_bS`d&5M^A6PnhR~ow#h5p{pk)mq>UzSzhwtI_@`KD5@1`?TAZ?&D5F-vM z1UH_APckTOeL%`aZEL1flAw*0K#JOxU}Uh61SSrhGUqI?gYc!=@JR)r$`O+>hKd?OR=T3%==<}TRsj!fF|P)izKXjPrLDW%NsG{?`~ zsJW_qQa$FrUq`O2OAO0@02olk{BBc|k`_bETu4Mp!n88Oh%%rPtk-Jg4Jm8-HMHkR zR|P*ch@MX%O4+BZtrRwYh~~u3SDCP3gt3I#2kMZBtP}7*yVm+oK%W4!5PYg7i@}0r0rYefNYt6ZY-N(iIp9M=&4Pil;@V5 zXn0Qf{MN=AvaO!%rVIF@PBK7fy~s(`NOH?0MMKVrIxRe*z9gw8@v_*j8(LhC-!PO? z(5$Nbohn3%-#j!^3Pp4D;JHdxt1bd|ZY+Bs@PBHDoz+-)U0vA3vm|0koH%aMv^pp2 z!t}?4AlY#jW0GT68|isk+zj`b?Lc7QBHkXW$6y$E=er}e+GFjQ;aarfCH^6$M!-4k9@GP6~V;t8oX1Le?FlB<{ z+IBcFY=a03!mlqHv>UBp!x0Ojdx~S$ft&Q8mp?=&-3bo4g#Q3JMgI># zWZRb7XU@N*_>c6P6i50?o8Q{~C;PWONb&!VJ@`*C$=Tu+**f(x(`b+l`?dQ?lx>aUa@vl3mmQB+m1*$!hfgm4A zE@^3T7X#=Q2t0TR4BHQLd|MR1%oZVd6= zfX)T|_rZg1ZuX|7Rfwr>^QL_L7adWn04%CSLPA@$=od}c!SB@<+#P<7?gt6lUktQjOkQ#EkH?|CC4RDmy-Q{Ueqb2leU}?E1D2s* z!2&$)vPH9RqO0gJq~3K)-r)A{r-9Ox( zhOY5n-sCon=~+-)m+!T-9j(`s=WQ}CXf9I9vkpHuE_AG$JJ~&T@o_ttq9-C{5YET9 z&l+pLYM5hTic-Tpb?q-~qtE+676#huza8L6og3R$-AlM5ON__i9-%8EJ`pS7zA-r7 zz|qE@`3e&Q?KRC$(;Ppk8Mv!x*0-b-fU_9ck+!XGu z4qjAoF|8pXK?hoM{vCkTVHLZ!rJK{MpQ#jBy*a6y#Thch?^g$t5g6veKx_RoAhY^% zH5+IBht9@qC(ct*M@s|iZJ@_E$L?8JtWaxZf2%;gwm4<2tp#QX`^KksQMZ?stH+9P zlKQZ-s$*E}?fT?13kqR@VCodkw%bAN7ythZD&3sx5Viar$h{lo{|Mynyp+BZTf~Ms zd`0tsr(@?e1U9)NVyM0(SE;scrJkwEeK9p2fU+47W79zD+oX4&@Cx0;h{c0q8SEw4 z?97P#gW&znefp2^=gaxk#ksL^uzWg9zs2#hdoCygordHIpEFmRv+|#Z%G#cFzk_z| zMakw7RA*AhiXVZWZwg4ji(s%`q`eEa@p(WXiFH~Zph8TsfmIBY2_hiU3PysDXKVK0 z<#Q3P$cXL6oq|eqhj!5)r9v)op|OMy)^5ea`GOP*`EmxVMF!aiLP5CdCn$!vgjzwl zi%r|ZF_>Tmc=W%m*|vwo zBP=5(7{~n~_h83<`<5$24W(lqL%+M^aXtkv6Da5%#7v&YQ7a9UgZlZ8NKZ0TxC9&r z!7Ff76uuxO`I0e1cv(ZdOG#-~EJiQJTuCiTP4@6NOVn~WlU^-eZdQWB?dflOsHYty zJ4@JO`eYiw@i($2oQ*xnAX);5R0b+%?(Q)wCie-Vpk)PafKVyIC^f=Sly*f?lpxc@ zf)qW_B&Au5WF^jlsi2XAQ8h#i9i$TskafwpqC~6=E0VEOmg@wA(3M~*NYj7DHg^A< z$C7lh9V0It9Yw7fnQVxplJJG0*1@K}4qj70X1^FrhLy2IjFC~h49#U{JcU3vo0nuR z%KS7zmFHQnB^c4d3LwuVtz(f2F7Zs{$QW91DvdLOfr6J1G_V>QZ|8`lC^T{Gi7N7h z#>3qDGW-sprk3NF9gX4j30&PT}T78?U%_fNfq9!lw zRJzc__Qj*I^Qz>AmN?QIW+YpB_KseLzUggwRUez;p{7LyyG*gGV=3&d)HYNqKPp;! zU)yVYR&oYtoVx?&NtPKb_@p0em)Tq+8)CYO&`VM1SQ$#}x*s*D$zQsdFlU9U{Jejk z(LB)_*3jbU%N#ie9zEuUoi60_XNy7Z+Q$A43iH;53uT>1ar5-@jdlNGoHeT;;&w9R z>s`E-5m}byX<~0{R`V6TZ0^PQE0pP5m|`T%SSzNTz50w_qSpic|7QN*>J*;Lv5w{% z1t1`=EpQ-&f46W@`YB@SY-w(1>h!(y#f9&A9PWtgl{@Gs0r`8Ot^teL%&n!wkMbjw zwBqs-i61Y-(Qe^~U>(f&le9x!fxw!DaAQh{R0+hIrL<7L_oRh^Pku3>4)%Tca|mzx z?=2T~v~R0!>FVn8YUfz%UAQcHe#qtVJ#c-;lz;o`zAjuiAK~{ZxSKcd=kvUocHqf| zKOV@*>)Y9FdcUvzNRO!!1C!Dr(R_d2)Vy~&r! z)#~Y|k1^RE~FfQfxZ#Dk|i`p@^Bs5pFJM!$~t zj}e8&p(OEumpl2MOWK_`+(r-kmlOM_5&8CvNdYCo@!MeWis*FIlFj`}`#k?wN>dRI zP_v#-ipcsRu0dxAZ-1L6&d@FQ0^Lnav`9cL2%L zmubz{`F0n%wTUh765%N4)6bqA1CbcizYU(YoxPPUXOrLpwhZ+NW`NTcY*UUXHu-kh zgsJQ#r>onvOeV5-Xz#M?i@v%ZheAz#YQV&PwPk{HI_0O!{C9bTF z;I%4H4iLTFc9w3K5YU>TTV83Tez=>SmC~X&pqOdg!q)fCx&46_jH~V*k3Vz!V+TX} zJ3nTO{!CVpbOBd%!FN=geq1IExg(_I`8IkyZ{Nz>(|^7?yj)9*$h!^5Ts>6p&Dc+d z#S6XW9rIz7279~j096~(---wNQ3=1=Z)~Rxw@`TMKc}@(z^@Ym{p|T9V?ujq5xtr$ zp3wJiecw+SQoka>?yohaBy&=V0H;G-+3^%=C+7MqZ-(6lw-bN>Zmo8olsb&Vd@sX{ z@Y4qj3GYU-t;XWRDR8(;`ru;gBZsJ47G`MZvZ1Ii=f;GMz;;GJz{B}#I%n_x%mfzK zcKpW`3lL$~^?<+c*VOdVp0@S*v$}^ar-vy6&SP)wqW!=&%>Z}NP05YL^gFb_05Iv- z!(WTq;Fu;)cZP1}%{C6qs{r;$3#y-~wsLOn;TsCxn>U-j4m9WQPJbq+;XTf$^t#|) z^vbXfI|Z|}9N_PXuR8tQIi@?xQp3%9IMb(>J#Md+ zIIZ^wwD&~cG!^Y-U5cSQXvA%;Id<}tmP7cwPuZT*XUa5KE$GrGW3Pag*bS*e2tg!C z89pxgMnxqa!EXCmw6z9!msdJY{UJy5@TS9+cSVIoLr_2RZCp}b;1?atOChfTVdUPF)j~IGw_0adE-%nWx*Y*xTL&<^ z)ijaJoBSPp_4+ek1-iZ+svt25OwU#h5-!|-+Q5yooW0mt+b0c(poOa{j$o^8G}Ki} zV!^8>=FXcNA4^M)GpSW2MQt!givlRAv6Qf=uP^{efBHooGtS=DqJHXASV!2D}zu5&nCiFCO(kv%RgZOiyZcnRcWDpG1hU@G;mac6- zq+XiTVs;WSVl2Pmx5mQ`dOtO1bAN2%&cd%zIo}p8c6iXnfdR&QvvhL_oGsDHo;{6l z81b>*ei8k1K8XNi&yftw30_<3^fv+!5%AZjNfZZqpCX%vq+?^cq_|h6L-Je%M&p;t^qVqX%m5Xl zDlQBNnAjMLa?*)>2@;xogFlc--`UbnB(qp56lyt1s%6^1mUx3qFLfYk4Pz-nCmRRj zSXh855F@TLxYdK{75CCOfaA5$q9M5i<8#Vo<`yo^1lu#>jj2QyCv&3mhh-OTUw+wq zA6Q3;|3iPBw3U!}7=vIE5{R|}Pde>%HU_CKF}?748QV@*5Zs^UN`M_nA$3u!c& z$^b57e0mZ*29!J7}#PLb)7fAY0zvA2*Dn zQ!b!v6!3NxfC!RbH))tuOZ5t3J`0I7L(n7eIk4mFXbK(Ud`TeqXu5A*h5s5*(49-qz9I%{t#PM9|Wlg6U zH6OCMs0>uF>5!pTQ%!LLZq$43PVv^kosloh#nHu-@fRM#SkNq)6P%3oi8P#o!{@$! zX?>Ey06FrhQEqO&@?_xjl};~%u8sz2!LHxBq`13T@>Ic@C3N2nT8`T+6egw#MT*n<1aOda}i6AB&ee)6E-;4D{u$-pyA6 zL3^a)<&h_q*6CzrGyGnwKDFR$+$@h+FSJb$kV@mpLPdO5yIKe1!e!{4$SHc6aw#@m z#s#)*GDp4Bo-rLOsIdfd_2a^hWnAq@>XYMh4vd|tV@5kPXCcxl!#FD$kL8FxrhHW# zP*B_E?4;q(o1PMjKcOd3cX=Q|v1?6-Ddj7Y*v8aitk%Qg0!c&!q5stF{gSnin%S?k zp&%G@c`zoTXijpZG~vbyjBK7bgQu(#6;smn>pbcwrkWyVlju-c%!IX2@lq~osNslp zF5oWE67ilNOZmh;SrgPx`)t4$M!g4X&qHy}Pej);-ZeB;X99CIhm>e;#WJXk6f*!g zmj_WW8(c_1wEmP4MEPk1+pe$b3|S;xqDU&dS7U~GF(?4?B4mc_#m%l}WM3^}Ra0!{ zO|}G^s?vn1&Msz3=a;>sIt9;Bhb-L@AG%tDRy`n#l3wJ*l{I_h=V*l&>xOjhpewCW zmJ2MSCPazTl3$`@$1x<=mH(C3d?6!MXiYsBf~&e!v_koOKY>S^!KbtYTt?gs+- zfIsQBDmPz&^b2u8s%u)yO;!3ffcl5YF&bfHDuaA!$xj?~>M*wBB^(;6ViIJf~34i?G*yQTTAivbgm07or0f>0x z8t-l-lq-iYDl#fS4r>7GI?UbZ?EGcYdgW4g)slfjUCc5`s-qBDr#X+h!1hDD7PxvIH&7}@UyC~1-{l0Ke%1hW&= zbpw{%YE#@^AY(6x8E_(1lQ;q)Ri)zQ`BW&OR(;UDl`;stM~wcOblrtDfduqAg7t|y zwxaMXVtz@L(cs-G_tQ-ee+2(ApldJ&!*%Rr!gWsysB_6b%Uej-zmxs1pdqW(!x4^+ zls%@Hd~b?vmMxwAxxf`Wtl5^@gY0@Bh_{aRo~Pe0*A-PshU0xjX`X{J$arO7_&7f9 zdsLa5*1);OTIL|(-csR~+<&dDd@niCe^d#J=+7XiVAU`mE+5?R$P@zC^Q!)FBk*YvQT9*)5Cx6Q%u`lMf60rXA{IgbaX%%DcAEc zG-yc$Va)nCyE7$O6ecp6&$pP()AxgY{@B<5B-uFu_MSiW-i4=llIBJiH>*O;jOEszw(~ zs#SaMk{*Sfr_3F^WBq6BU>)Z&VRUk?4F{sOG?Z5;=~FVkj)&_|dXGArwTr!RGk^Uv zZ|za|)+HpbRDs7(nvDmO1&H6z#}1QS;k`_8#8%bLqT{rwP!+;s+K7Tev z66OpQ{o=n31i1lUY5s8&M3&FsUGBMDBss{Uu(`aRIDX*Q!QwNyJT3y6h`N4{sD9(u z?EWrds9vhNYGTE@+E^&nGvfh$4HP{tHl~nU_TBDc_iOGu^gW)p@A_Y!fjv%Y>Dj?A zGNdWD$~xCl7&*1`c?Uv0WiWGVsYEZ1;01BT{UToBHnPZ<*+n$6y-^t(p=r)p#o>Ib z2$}^YZg5JY_(zlB5`TJr+wMIhvKz=3blo>J>c5(q*jqPO-h{7_4zBst3!45!<6~O! z_D%E)l8leC&QFNW9xS55NFd9LLo1$@v*AV%UvSms2cL!osu0~w4kx+$VPgmR1sHxT-2>14YdI;N1 z!FU~CV4D-qsJVt{zDDeP&k#sKUbaL>n?cWrltx%!z&M8&8f!$QuM=X{j ziP+RK#CK#+?MV>HrDIC@^GtgEeG1TL_uru1uKxmgVHf({&2ECQBk&d|l^I&_$z~K! zq>H4#E}{1{v-~**i=O@sP9F%ooU_*$U)>C}fL}P598>I-i?@yc_iCE#wf{rYWU+(U zM}R6eI$z7bxkbvW8)?G~j!|*(4hU|UCX;Rnqx$7!WqL0=MvUJP4uIXU7fWI1U~79R z&p9|9>STwPOQ+*(W-d;qqn6@wn<@wHmh46&`yR!p2b#Q0V0Q*zFGmihyVwUQA!b8z^!ksBXiA&e@DO)qO2U1MCP%5|~Me?$QBT z>*C^(LpNfwS2o#!0f#;n2nanN2}F4;$2)P$KWDCIWr_V_=9h{;%bD+7*h`t|L?amN3L2Q| zy_Yn}LOE3wYcXJK$?S1!y&~UZ`ntv!Xu3ghX4R7W#s198*FM|X$(UD`spk-CoK#I> zb$)Nl)c=b)r&Ys(X3VtnjOvzsgn~MyemQ=u275OC*gj)Z^JMtYTd%2*bHfDQrRuC? zLd3!>QU(V1qr;B61)P%$Hkq`{i$9f=qC1Ql37Mo5)ahqc=`U%rv4}W-GNF5AwM4{= z)kjhu*x%QUco~`?b41~(IRUyf3@bDAx$E-l-kFy3a+(&`C*>ChS z*Vtz1E()`flry9`Ng%58m=GpacDH~+gc+n+!g{1xr}U@{xxunsJzQm$0~(NJ+V4pJ z1~IDZLg}4u#1T!1!?pLVy64p+?? z_{6VDs zPTm9yXNZBrSovjXF1uRU*K_5}k~Z!zS}45veSf#S?N6UPUT`n;ZAU#NkswP^OC-8V z8rQO2PS|7*(QD_;tZ!^^pZ8VBV?Nbm|2TjRCK)gNBaRTpy=D^iT2#-_`T%*b2ow@I z4ciR=XA{=f=!Xj?o|xQo@HndPGV1Ls0t1o|eI^O` zZ(2q3eh}&?{;$YcSAm-~ge!jkC*?BK%G9Z(1QHM<_VU1=LX*6@ojJY0TYq{!-q#T1 z0l-Hd$Mr^nLYfva;81i^7%<3g@g{YIhO`o^+EYOxgaZ2tdh#i#0($qeLTI#B?7i&r z)~w%OpzHzZ5-XMn3ECZ#!OZk==>4$5?1>EB6-z=OEp8bj!3blRKkP{DRyE5!In)Ai z!f<$3EHPtMPr^7wO17ahLb687ci3+>B+?Cc#rBUU&R7se z08|5miAiQSk`Gl1PD(d{g5H&*(sI!l+T@B)j)RI?DRb|@qUV5UEhX;URz@-k z-a6-kZ0&H2Z(PX1qv}SR>0^Glx|33^X?w`HYW5&a;orDha5+m&Nk=FJtqnzasiw?P zG&fWXh&Dj%zE+;>n)qXl37OnZG;Nh-*3r3%4f9yNx|h>3->2CSC0dMY$Y}R(nwK`U zjwg4=uE&895n4lClc}#wMib-lP1?!br}QQK>w4$S_hjWslTnu{%&Fi)=706iTGF9(v}f z1cu{8vQeF4>OuzWAJ!_WCP1bF67L&Y0hVIx#Q+Vkx9n9RNj}*}0RD)Mij6Z!&f}MzF>t z8+t>`kc}~;c1BFYv+4Prrnk4ZIWNZp)Pcq%I%AE-q*@2vPxJ;fQzs?+Z|oG7{jgCp zAS~MPJIexE)LJA4KM#$Uz8?j8L&`gT)Ea)OQFE<5oIkwS?Vt~*T1;APD3HZ*%k?lQ zGZxTtGbj^Aa}8&{)4^HE3SNAh-)X-pgvoT*almLwk$8@RWVXU7cR~GL$T%Z~N-TGQ zQ$JKnl3aPVlh9Ek40Qy`j%@a`-G0COOj_Zd$8d`l((Zi<>cpoOHf`$11>u;{+K$F! zOG~Dyzac$t*Lj5+_-PcMR(Y(#7I}cBPY!v&Jt#XcX3(M~umGO}Xz!eI4*I_$+?ORw z5D9(TKc8;IgNIrg0dd?%r|fy%yVlnFmRBWf&m)kf;BXEHDrH zbFT8`qdYzWxcJ9>(dswx>bk50bjo-s8ujK_D&(HCW#m$8hNeHPXt8QYBBT?!3nf-m z+$HO?X>pZZ2{Cvc+?kxW$O<9I9Qfv+{Z1T>&MNq4)!$$y z?mC2b%{7QaccVDxTB?l!T=~C1eoOZf#k|O}aovsL`U}Rw>&C(h2kDI?jIwbD^Y|mI zymAuW*|YZ?R2Pm)3kS)KBUG|+3-kD8OT5Tb#}Pm7L?S&4`*;$Ja?2U{=`H>F4xukB ze>1Km4Bm`bw>gi_AzsrSiZRYsZpIh!ooM}nJNT_$0W2)M*%FW41>G45$BDhoi|$mk zlAzv3B!2NWBV=_gbx(cQwsLQ80F$sMy=G0O*Q<~RrU8}njLxM9v(M0*CSDLriATesJ(HCjHrugnXQR-;+CG z=1ul`I%=Qowg80Vmf1H8sF~_|4rmcq8cIuOJTlDTewpUU6PO`{dJQGkNXjh~G$K)V zrc14!L;`Tc8zXuqXr|q6-s3V8GtV2Ba_QOWGJ{g$olCoQr*fKGHt{GU^`@Y-9-dgw z=d%4NdBZR?QY{v=D`ksF)%aYl9rW19R;UZozP>AtOqo@4XpSTV${T_}1nGS>zBrBk zE8b{r9?nU|(*`;@AKD1#2D^>k&+b7G)Dg54bW}_w@NQ|ast*ALQd_(dc-Y^^AoK>X zht=@f3uOLxd?x)GDe%!KOu6n|7+7Uq!Dhzs9kW;P9aG@HKLL}&n(y@wFI8P#T@Coz zuOZ(6AS0a%W1x4rNsUkaXZuS#sD;h3W@S#{bkdcF7j$`jw0oNvsn zH|>|d#`u?hI{f99FDR+>U;w99j6cwB|7X^l@e~-U-W>Zv8jh0x7b%^J+JoIxRr6L!70dEhYY0`KK;E*_6o4~}5T zN?6Z?{eUpy@N3lB#)OVB66|PG_1kzckKS+x8DXYWx&{(Wp)easHCWaR*)doSL0f6I zeYF8Kr^*BD`Y||)*}07|b&QT5akdhrCIFBTf-MclO)HP%s#tqSa`)>=C~=PU7(D-I zVI~x|rreb%an60kSUH|?q&TO+B3vdM^P7p~KMjwMkJDZbXDGurln~$Dg)*FD4jaMw z7ZWF^JraWRVYKRm>+D&jm# z33``uuAA}6opk=c55lVSv<*qdW>_~3B4wqLe{*jekWS}hIf!a|Ee=rKKnHcWNHzaiwt&V$^{+7+0Fq+ zoTBSQ7{Z>*(F0n`wMCW-MP*T~H660a;0L6!p6vYFgGq!H?vLckD?<3>O*2+E$~z}M z!j1d1kT;J>&H6g2M6AIbHOFE36ADaS3kVlc&?CAH{AEd{`N?RER*#-Ed{S{nCg%bZ z9u*QYl6-;!&Ot9cL zx9JcjyCvHz+6v)dV@Pv3yIB-rcmb7M9!*nNYY+6O9R32Et7A=-JRwWQ*zpERcBvWm zVH7He8xbj<1Z4T*K@_V0`(}zj8~r^I8IO4mMIzSZNk&E}$)99D$3!R@6s9Ugzfp*6 zl;%kes_~#aGEjvt>HQcR4C2&@A&?AQwK^_;_AQ`hf*1(2s~An4Lx z23DD8pmE$h-M}gF(iw1cJ+AQ!M`2AU9R7?ASf=WX1-O`?70N(KqYR4hqgOTnd7aBP z029m(EIDSy5^Rvrfh3?nB!?X65R|=_vO@Vw5xM>KLu=_OyyjD^`ph1zh7X&0#S-{m zAh7>Gz$_*Ko;jQ51eF;8Mdse9^~9X#aq_a4D5&K0MQQR-!{j~OL4hu);VZ{)lJV4J_&XdfoNM(XHalhCHi;H!LeuW`sKSjGtPH%MDp)YVplzB z73!nrZ|IJW5&eCKRvBJ~$F905!u2u=cQmr=TX&VO{+6HcvY+r8evjnP&lC5i7z(Dk z-dZApaQU3&eFwH%<684^BJqJ>V)ZS8o0)`5dw%;_z8fHY!4L&rt&PYk%^R*GfJdO|Y|4n5t|tQGfnHwT2dY zo#?9wOSgsrR-ec#F1Z%_QIE$izubgm z?#=_p+yr`78Kd4b7TwX$Y8w>9mmSIW*GlSTABGmM<~FExo~WWD9vD?+37o`@U*lH{@W1a2Td?VtzJX_>eBUJv~nF`?X97PvU05jz4t>j>s8jZ ziVtk(Dm7=s%B4Xo);cZODm9V@NAw;WUp{Ml`>QI5GCo7x$|b_#pMWI>>-{>l7|Nt1 zC#E_z*=Y~vWq{)M0t}AzQhJR>rC8_loci3`E%!I(@JXZc`1c|}v-|GiHfrSiiLEsK zuf$abh^iYaRt(l8C6A^R8RG@umS1t5>OIzP5C`c)(Hgx#%1>44zz-_RADk$_}i~%Y-YnKc~Zy{Zhqyb#F?KX4x%! zmJ(mC75m2MO@$j*#WujFCa0)bZ%$&;(=L|Hw^`S1!lQgc0+#^8T`r67Ko8+RCV8)z zn*yZ+LGX%aZ2)7_(!EX2;uF|Emq}WUeJJl|6#o{oe|yH4iJ#em@Uae#Bs)_>-qpeq ziNbsN%aEOU!$#ZY#paotU1azOryE*q+&TCRLOcx}g&aeFrJQ)A_$Z9l#1WFy>0i@N zf!XlU5?M|N?!l2!xVzq57dof-cO!8gF&{^yws5lbKo`v z3Ie}8f0_f65x0%M$jFsXhEeqhdKk%7&UDGq<~lpw$7%}r*Slt&aG)XFOyQCzW5&f6 zPgH+Kooa6aKRbEeRyKM@U5xoiF+}Sw{7An^@jzmK)xlbw91l18OzcpDak?W9cNnHR zH#d0>WL(*ZNJcj9b!6Fy(=fob&%?`R7?V90pIP_jKHcNS_;=yck^BBB5ZX*nC~GW&n6}Ud(Fw7SbT6vR<#x9StI+Nm!K+4j$*|I5a7N} zuCm;txnBj)SmhU7!4Yo9CYq>U*@w!bZ3qzKk(uChXs8G?a>bSzYCtQs>L0kz24%;A z?{&?DaE9E1rIcE<`Y}l4z`Q#a$u$+g31;`>U1Y`b$K*evh{AtFET&-^tbH~l6}e~t za>%QZ>a!*k6P6Vk?C5GV!h_yLMFlnnbok#U$*JV!NeIgN1#V&~Xin$zMnm8kCYwL? zU`8hJ_pbr;7WdLCSJ(HJY?YVHMG6l+K;ePwJ{QC|E^Z*G&Pv?UnzMSH$OH6rAz|fG z!F^Zfl0p4i0cWgZSoF-}Z$XT|k0|VQWqnZC?Gk;WA}i~xTDONPt_t3wkBVeiNN{0A zpc@iiBVMvk@@e#_;L@T%M*#dQ{EyC*R&1N9#*%vdOpl04>NN(9d!8BK0X%rDQ*TZEO4=w_cjjYr&z-mO^_?v#7_GlZH0MBbG7x zr%3X~jPk~6mfvCvuWvDJX3+y1#M8X9g%J7U5XDUQ z7kZirXNjyaO($S8>*Glaggh%d{6NrK%Iro{uTRe_luT*chGzlgWx@Fu3Kt6h19j0|54rZs>pvu zb|4ZxF)_!Hl70;fr^v({cl0l}H|BseKoT0!J|Q!)Uc0IWFrHYSn_Y@;#?<88qMlVn zPsRFbrIrD^f)-THO2sUn5}AbUBi;zitg9h2(y6N{xfToIl&`YGs?;7nORZ}!ndMMxVQKueL|39~iedBMv!oVCXsGRY0IX!{A)a30!t@hkURJV4qMu97LQ zOddfNJH?iGc3MB^Sg$G^b0D&*ufJ*%rql)HDkoW;q1&XVtp=#?mE%06!Rs(r)un2g zwpIMgQOB`IP8H8!6I-%8Jj=Sg`rh>ZL|Stuah? zNn{lNfF=_fA`w!pqMS9XI*Wg4>)rB#N!~Ecv%P&%d0{Fq%Dq8KRt2oae716};mirb}r5I#Z6Z%*pVrr9Ujy?N5z9e_gwotjJRot%!I|qL$g}$;&S`ms1 zTog@qG!44ZSsW0v zH>Zq=9{;{DCMS8=)+pIJ;B8!!Uj|4BciFr1YV;ry|DJ)hOr@5@DThs4?93R!SAKcF zqT)iPYN#}zC6}vIJ0ab?P(IfnS|YP(sqQG4fTK>Sf^7KvUNayx?1Nfn4RKzTz!D)` zWsgU1m8g%-(OmVpKJsZW?8wisgGkt2K8dtk!8~`{cKS+1^aZS?qhODG5GPC}LSVC|PN7>LkD){#uc$3&Faqm$qX{BH{w;+&ORp_u36_@Tg)H!Hho z%<4B^aBx-;;V+M~H`^khrr*>8D>YY0-}mwQR++RTFT5AbixCGi&RrIZd9OV$t)_69 zyhf%gXeWlYo*^Z|BDYD4Vr$N^PSO`v7Ds+y7~{I@tWHv}Fd}~sSC(87m07*3+#b^L zL^gY9N2{ryjcUAnn=J%1(TAQ;qhm+uXcOt>`0!(pCk?O@I%{_6Mj#7pc7v(dE>aiF zTST)C=&E=e1I#qaUD+lg)OMR-NriZ>!_@MlxZ^|r3h+{Q4?#;(`C}3lzstDhr z#F%o9HL%A+nXbp^BMM|(ESrmB9FF*sq(Cu7z~&O92YHf|UZ5y^J;=kR&})uO35cez zFD(MJjxtapOde#9dQ-Z=^dC@BSCBjBxq6|sV-$LLQF^#ZCvOgHQVk+PGgn}-aHU5v z=#=&;>$wMNW~1sbX=%;qC?Vq1SBvr=Oq+RY;Nvo?Hy#OIu;DVOYmIcY-{a697}}dS zRDTUrd&5yzrC?r28o-gt{|(qQ`XjZh_ujaT^kZr`df^H<()fbx#RLR?4~#c5Gs0sbbN z%QKi3nuPwsz3#Leb9mQ{)DEBjpwIfz=o zQ_Y+j!*{q?X+}*ySX#Wc+!D`_uprDn7`HI5!n;zA(}W39&{mS@0-)keU(?2Q{asJirYPT zFh}vLdZfsZ&QS{GOCAuv?e979toXuw8KRlOI!Ccs7$CF|0W$8LC7<35(9>4=H;Sb( z)5c6cUu*tXc1H=s^&TeXVa|d@>omtefhD#&F1L3~ny&6k~;`UUToa&(BRvV^Eb07pRT15n;K6I55&SH||S)({MmnxIHa_4MQ zJuFu%gQeW$FDb|7M!cTlNo#-fKB$3<7n(at!)-0%h4 zD=lixFjAEIG32!5WO+Z5iKV@hyI?c2=N^$vXqfYZ)#{znQlE&ApdS|FUQZu zmO03?uc&C9Z43S$Lg=O|8$8M;3F>K^SQJPKc&$y$0r=QQ-O2hz^)ruEOpJy78!h!! zQ3x*EM*3-6rA&xF@hcfF6+va$PWC3Jmg-jK2B(%Xs6=e5C&jh49RtkH4m(6Jd~2A5 zv@Su#gzq|)aA}6ecK^+$x>_O3Ws#X@UV?fXdR2}(xk}@^b^`3I>ih$VfQ`r&KhK=6 zkVdk}j58|3cqVu(#{jO;Fldzz9AOy%OtjXaVC0impoS~tK#&y>B-73d5MgYWc&uHT zSmJL0Ah)%{P(tLsAzG*)2&qy$vdNduLGl3v*EY%aF)xfXIM-OCf%BP6f|TlS0+^osQay?Sq&s!GwG(74lJ)W&+G@2EAVw~{U!R1@lTtx+D0 z`sid^bDpWa)T(KVi;Iiw`<(^aC{t?PfmR)A-NmD3tx*looKM{<2n(9?VO%Z$Gv||R ztEgFN#%SEH zZ-`7CdKBa6X!wveIW4q8vSqrQ`{V4s!;wM0PUwK&dm*sb@h4khgZlw=*$As^&ig6w zFjW~>#JB$C=5`8EB^Z}~d^)GUCr9W>)3L(kA-UqYqhoyg-TJ!ECld8-22%M#r6839 z0fDB61(+A^6ezNVTS5|7f&F1vKM}Hck8(Bl^$O}mq*ClO$x?N*@KgB!c?`okHCRm^ zF`x*LH)R8sFND(dvV$7wkpr_o)5uo=Dm0iKE#cve1zZ_;)OJ@BTX5fR)(>H0LD9l1 zaS{~+RxJ`0jR*_*$YdcGGm^HJYhhosUyfpt+v@3LIE4#p6i)-Glksvz7fAwg!jR8LkD4PoLK z=Yty8Bc%Kw+zg9$*LPak2Hz(i!TDI2M;Q26s+4D97}pJ!z20ixJ3$ZP zgzBZ>4^F7MPyOuZguaH-am<)F`qQyjEOR-glS@LeDwR?D)t88Q zB32UY_NcuM0pH0?Q%`%Ahj#xNtcb+@gN6j_*(;W3*`185cYiN)9s`SUKxK=V*bZ`e z^AP@zK6k$WC&N) zOSQali$WlDc21TnVvE^YgK?geKB72N?kF=j%ga6+iO%yTZR8~hi^#L(^;Oql?v}yJ z{qD_f>QB_F(N@u#lr6rFps=OyFleY%R+D`~l?Hoi-ObM($_P2ypQ^u%CY=Wwj@B>h zIkQ!5oW=$M;v$9HMti(;YCy&53msli1sn9%SZs#?VX zdzH{d%D3{sL8NVl;Xx}^yzWSIZTiPSh9+Pz{w?g!0Z)IL0ML4GbIy<0ckqiIfKZ3z zeI7zT^ZLr9=TKrl?jzLoi1}#)vjpCQ?kubecRi(aQGE^jo7!ydR}BT=)R^q7y~SY? z{DSr&4eEw=mpyB0W)=4Oc-011>BV95kbQ7)LKs3U8R5OUQVPIPTd63|Pt*R*{R6w) z0Hl)%)wuNscC|8UC56l$fKt>WOUUkkR!Xw7Nu`=VRvP=46{Rfym-^j4d|Igv;?z$x zDyhktf-)A^(>p4OQ$;QMt4t#YiEEWVw|EW9?mj1T2UY8`n-4axg+tf0V`&D*1lv`$ za(?PF7E`t{ME3LV7BGTEOUWQAtkD^>Ch-2cCFQhSxzGf2r<3D738A7jqv>^eU!k|l z57x4@i{t$yE(gq$=VpOxasEoDm)GV7(IPsIOHKfzQ|=^|mt4UJ4ymZvEFi6&HRM2G zBDP%cOHPwU95(eAr4rAXXu2sn#)jI3{4R@TJpd)(CdQjMAcqNM0-WxGkspkga*F`A zw;`{IAB=OBAO&(}P16O;pXY-f?9LI^rZ{VEtu3Bw*%0)u#?(Lx7{QwpT=H}}g2 z(Wxinkt7z^-8+%#>aD|ch>=yMZ`8HZR?Bf37Bs0<7g)^sZXB zDyqCZ3rtUl=C|F6^w8*|=!#SWR(RU;HK?4pnlGaC)y9~s66nr7gi}cCy+Z#}l_P!E{mfbV@ z4A(!@WS{jI;75uQQd-rw3+3$FjH;__4TAkfrj^Vx;n)%oZs%PZue{9H`Oi z?x~dswl9=Dv@Mhc=$)#|>zy`!Oy%DcPUR<#lh3vflcy%Jm`;3{%%KGbZOrLH%7Rll zv=^B|$`Bbs$~qiAIi6WU%4@tnIZ#|aN)x!v^4Y9yZ(p{YpWaVZO9;WHo(edOhjVpO_ffX!nbOCch-vC#mEpOaNsI!CN zC=I&odXDwPVSt(Zhih&mBhb z_cd-LrQ!&50&g3m)?U32-i-_#PccoQ`Q+_*b;dlaUy+p5h_k4$95HMh6WjylYfzL# zupECc?cA+{Pf5Eu@`!_5012|9-2+@I`T2&$!H?6p`G(iPr>;+Th)|)k_Lp{u9ANoq z%Y$7gupE`Nf?W!Tcd{x`rbbnIKUg78je>~f{Cp)KViGrB35a-dx|4+hoi)F-lVuOh zCwq?{M3saeG~gXdW;Ki?rsfw)25%lpR+mFAv&JqFr=Ckr#yA)qY$_xn%4#2mIQ3LM zlZ6VIcAHY0RRe|avX7Rs)6Pb`(eVsZn|Dj07sBBxdNaJb$T*P9$dI&$v3Nv6!^$3b z?%r1We)QJ56O+29TN*wmG{EY|u&Aq%u_i5baKNiZUPrhsN6l**x9)gD?2VcG6S}o& zx-DP^yiLQtzZP^V={zq@Z!qk98K@Iqe<^ciy8FZylbp#WGh6`5^{PK!Ja$7iX?-YU zT+C&%SnJi1B$K@hNR_)Ya@hkb7Tn=R!k8U`prDZpLqtPs;urPWvBV=Qh=vwbXk-MR zF(&ohD$R%EQp~~++R_?zo{4Hd4g3+Uf*|2T64?)5kb?BlA^f8c1Y!Km5E92AWe!i6 z@b2O)*|5fMd@MmG-a-ZZ=2S1@eDU!{lQ@R!y1b#XO7h@4wqpr^uy?~ZujvNFXbozI z9E=m5&eOSXL5M>vw3e!3wZ^s1$>+5uK#x|HHoW%wy6?t$2vG)K@w6a{C4>UHxVnYP ztbQTL9tUgwS{_5uk1ziQ3UK!<1Zw;!hla(}o&;OL78b`bhs?r49#LElu8fAnuvDNe zf;@-{R;Y%nh6VODQdQU5NVJMCMeoS5qYy5C*~nFt+e7H!31KwbgsaBduXWn&?hxtz zgrT+2LT-kBDVYO*&qKDYiK55XUkY12CqpyK@+oFw=80)Rn z8HOIDvK*wc_m4_Qw%oWI%{nUvrFztU%t zRKj6$?=P__w2AYu)p35^?U$r^X4sQd&gDkJDoQ|B+ZZrxRf%uw_@*-3V2mswRb~c> z%^Qo$qJCngCzW>tUma>pak>&PpfLUwakkWT6KORH00fIx_{xdZU<(fX)b1Q=3sG+6 zsZhj;mH7FOpuN~uxC|sXU}+U=Jpu4AB(R7L`wd?0&D8%Y|iDt5|xlI^}JMaF62 z{5)jrE)vvaL0^da?UKhmy7m39J+FVA+?*NmZ)?e7hOx-L`?=rqXmXq)tTPskxx}WW z28hx0vM%|53tejSh@bcp<{lb~lb8$9v+@h7bs=0#DFAbN?e0uFv+AyLvR2Th0XxTS zwZ=lAq4Iv|HEMYpF`Zb4jr$$E_hb$BmO|x*fmXLRI1|(j4|> zt}+2I@*MD9VBA_W79x-I2)dYfumm%ec2_?Il6WM$HkbQ_Mza@Am~OV6e?(xrNsT^VRmoVXI!MK>*YRdoK;xc_rCiX z-Xah>!yU(8e{j@7)y)Y($1Yr&w%}24p&rNW@*-X*cQ+XYbMO#W!3SKuWr=`$Bp>s- zZBQTgV=l zH>pyV#>m{~T#Zt!@4RP|+b|+13`#cCAXE#3(z+;m^B0ll-Phwwe}Yhp3Nx!ZdvxV$%F`0_rP)=bQ(w{O^Rv#j{@Fh9T0Em{q{ zqaE`+ld6%)yca4GHopgsbp5)m$+!}kXd8SB10mn>=0h*O@O`!He`h$=?5kP)u-~DSTdB-|-o-#E42hl+>j<-U8_74t!^tCXhwlRa#ux0B z&+N*3g+^VuWExKCr2HTsBapf6&U*A8M-f~VgK#bO5_8n@}|NWh<|O@C;#9xbEd8ot-bE=xjG z2G~#tiMuPV%>;JP7_>Mzwo1UySTBFSgPZ4;l4$AUCM5i6wy}Ph)Q951_s2jc0qC=4 zFR=viPe&U2U;&;F8~IR{J)c4aH_(wcNtVxf9Sb74wR8E7>3${Z>l~lMUS_}Yv{?if zI>`lKhi8Gu4oOLbU1XfRtsF`3|EZB8s7Csq{?zF6r$VQGP<8N6Ewgx?7&q$jXZd!! zA%5ch`16@?qpok3k6H9Nn`39Tbzr8-aq=ispb?C5Cu0}IgDMndj{B^RCn>Zz3}X46QKa}F*jpW9BLhUl2^;L* z&Ls*qr==4TWtvQ62sNE~jMAGEudCjItST6z6FoL0BYMSguyN`Za7cN(7H5RY*60c= zBWT4)aK_D49RAwsL@Ikmb+ot?g@gfp{l4H6KG{7UjIZFI+o)tWFtPd5xT$3KV6w=_ zm~*LQJ+PV}SN!!y9)Q8khUn}5k-cuY;E|ak{Q=FcFie}17%a7SIIyX`a?MIyNR_2l zz#m`7u^*@NAz87&C zJu&!S_3|qxP{|J&gX!|fCe#F`g5kV5;YHSWJs;j=ckIpUCU7Qyt+7X2t4X5ODR@^$9J% z35CHDBPX^zY7>K33U~qIhjr`F6>P%Yf3Gw&Vcc=FcRhc&+@t4vWjLn7UtVJmZXpuQ zG+_QQAHX)#Q7K)tv$1UZ*4)N{X`gv#%JQ>$D*_U^7X}D>(!GG?kz6R6MZM;VBt!4r zW@Q8FO0l4EcoRIJvwVZ{jM0kPbs)>LZsCaaIB?t%SwsdyVp%`g2 znNRIJ#PcFC1-S&PiS-J4Gwgz0#Y(hB9Q3<7Uj8KfleNg<{OVa;&z55MMUqS#8dyP<(gg#dLN)M*8D7t5OD*$oPD(bbQmL(4+EDMnt0c6wL~ zLBs$l69Xw@0V$Kg{oc}~Hh*p2Qh!?f3v#ua!E&_xv%=3OY%UF%3cK>Fa(TtN@a#{b z)VlrzFzO3)1S(H&MULP_B|-Y&469u8YG>tZSORMG+dnt5Z* zC|pS8lFBwJ*aGDJ(8=1g9?<2s*ImXc)ZRM5Vww4 zt$7?aP1T~w%wW8Klh0OngXA=X^})wji+GS|N^-g560mn2#i(q;szncQDG6cX=cfrI zM>DKj$r2WMHOX$qy^w=PPArfM%m5sEXrsTA8PT4g>q5m2?iyfJ>#K2D!p)#Zu)|*x z)PQ8pzqNzuwDB3iDPDl}E5ip>Q&(?}f|p3e9uJQ@Uu=(wAsK!KR%QC*A3cAJMBNS* zLo`Q=?CE}enV$}%$@GBT7XZ4bWN)y2V<0VE1ZB!dpP;VCARXbDk+fJ)h<=?m%EiSA ztD}c0#Tmwr-I4{s&Dtzo?0kl_f%X)kZIbkSzeFGJMkc?hflI+d^}|&fEa84pZ)t-{$6^YJ~)~w0;0Fc%ORTz}8nj+`8>o|LZ3? zJwns3GvFbR)h5;np?K(RcbM<%XZE2JldM_d9rN3$VLV(@B9rlf*5#H^5!moW;zehk zA(Fn~I=xi9Hm-Pim=B${Ig5A|CY9p0=~`c5PkXCQV>GxZO>=klv8xoLv@*h}!-x%d zrfs9N**}vv-=rOqkM4QmcQnyD54w&Edk$tX4zVs@BeKN&iZGz3H7!XQs8-L$Ym17P z2O|OT?4oqp?a7BChg$+YH~NHI8)IZmO6P$xUU&y7|u-C zQ;$vBIqD7yc5C{`j{nj0_{ub0p$c!-6?wmN-27S!`{!|Z@=VTl1{!cOYy13_kxY$U_l(ii*8p=1A=jBF#MNy}OTDiIBb1PFO7<;UVbU{!`9J0O{knynMa@kz&xBsz_@$ z7Cy-){^ME|T@Zi_u}mm38;zyGFYG@ginY#l zvpd1OR&^8VHwrk0RpW9Pehk;G!mHo+^8XPsYfD9HP8uWa=P>RN{VIzVyri!t7`4!x z?G^Eo6(ii4}X@QP6D&HcvF~Ubp*eTB!ImYLn$V8i9|CUYA z>b7bJ^aPJJ398a86qhyz9&9IVUu7$JCM@$JjiYtt_i#rCQ-$Rt!bx-VbmB6m`{qnA z=F)W%N*HoVZ4-12`kC6~=f?F62x$#AEth~sdq=qrF`J9BXp#lD{>%8Skv02nO}25+{4CmL;5an>2;cIeVSY{>ZpL@uS-w0qZ^z;c)Ly<;u4hB-n;|1* zXFv5QcG|pA=@4~67+ZaBz>O^?-OkzS;_bS%{C$3M*Rjqj@*0IN$$@w#U61^}bV6tJ z;{mJvEBb}8+xm6&nV^|;RG24s#r?M#RcUCGj~b1!oV?1=;gF9Lla>a2q?h~#4m&Wl zxf3~#sS1TLGM!YI5>tKHv>hpIZ@lyOc~bl>d;Nw{!k?I>jAw5jXZP0Yd`vL_(>Iz6 z#J7=jEgZZf2E{B2Sw##*0q!idE6<<4+Uk?T41^{Hy68}3W0U) z0~U|({9O%(5v|hY)F>zS1LVANdj+7V?FK&CiC~MClAd>8_xIVp2BCn~Ky|5!6-BE( z>mLngJAy0ZIm78f8@U&L09p^?+iRk z_JZ^P9wLth`|T}qa8oQ|gxz`X#Sv0pON=a75m8OcrW2&j(J!fk!dpJ^Iv0Qbqka0a zuK^YGY=HE4gJtic&r)Z^S2iD(*UShsLt+i^I2OaX7L_X&03ub8QumoQ7i>bFZzc~1 ztK%YX_P(AfP;p*C;#=ak66mikL3X-WtXl$9WweBI&%noaA?$T{QtI6tskErMkz1{Q)uHqfG zQiU%#joo6V3|S~Ypwk5b+~~~cP{tBptyT8O-15zQZdpl)I)BkHK+g(e7(qqIu))Zg z^Flh21*SCJGm`dlF*hA)X%mZUP=@aGfRlacs-xjfudRwO&c zrjk@2Iv*Epf~uoxgt{IUvNN}STKEo)I#jYu&sSiAt+D_s(M%;mG$89-9gsFJ7QSeL z#O@7_v?u9L7d{V@@xeqRjBF{KeBcUtCj3(y@c^sH`}xkZ6dhQ#ftZPuIhTq$b3PON znMC8dSZC+%R(JsCJlP$R7tlGCt%2(lk%h~W)-hkDb(#=B{Vvl|<16d=C02cpxJ$u) z1vo#A3J!TWKe@SnHc|Ck=)l4-3O^kpsrk+iwSAhauE{kF^f;*ukKjd2M{geDXYotq z);TCB%usxQtq^H4dM8&@`SoW5)+swZD6j|(>|Zltc!Kdx)cmq>pLcDmYxH4$U`;UW z827XJnw-f6%&|>kv^Toj6O*a4RfvYe1JS-!F`~->x#WLLJcE(;l|m46Kmm^?o|8ug z$TJR|cURcKknE(?RMO{y`?D+(Mm&|Oe*ymAS{4Zpy5qgjL9}s4FGX9xFYO5lse3c|I(P9@g zVqN7F;vb_4jcUQ7B)FV^Z1pcCn!|e6Q&laH#SIT4L78L(*WQ_V;q;2G#!2YlA^0r0 z&37Qcr@~LksYH1cxOcoBLs&HWxdFTSjFg7zs<}7m++JMPkrQ)zO2s?g3Z&5~9NgsD zP6NnK?U3FYPw%+6~Z`~Vc+{a`;%r{btKL`9{)pAQSs zd(b4Mmn-v~zuIV_;$nf!yn<)L9xcVQ)!;`wI>eUiFTO5gOd zSceBsx7~7J2wP5?hLaI59gY>(1gldEt9r6geZ*v59Nni>orddHx`CY;T^7v;n&OQ% z4jkb#wo+p{+k`%e?zDqTVPj%w*_L7++(kP|Q_5HfXfGVQF`jsx8@0Gq+GqGzXO1K1 zY?)FcjX*TaP;x9?O^T#Ys}vOvAMvegb4jTVgs4_gr0)Zr7)4Af4QZhr!gq~2jTHeA zhyzA)6O6`V5ZsYgEnyq>1psJCS2Pyl`|?ejKj;2kJS7I`bSB_{k|^FTgQ7v1Wy3uf zkYp?GAKa1r{-u*3bwAog%s+z?53p-;HJ|wwVXddcHF@a0Bih5tx(3JtLYsh5A0^|N z2WAW|+{ZtEYgW^*lv9NWPe0l^OdPpxCVdIunQ0K%p6K@E_iGpNc_9aCtccrGj%QlV zZdelPV-ygcBq*TMZL_Gw$4zp1ef{O0k-AT4JsY;0LXh<_2BW)*1**QK&L39>F$vi# z@;21B$Vg`v_WIx_P6AOndO zwoLob_?^F3scVZD(NU94aNP>q-gz*r`gDzGvye=tFdtvSf^AP1g`0vct|&&hBKx@$ zXTiEFT`3ZYh|C{9U#~M;Phh+avD%65pK!QKE9oG!el6R7S;^?VLpB>(NM=GdU@Jf{ z;m|L(AHxLbi{w%a1uu@Ww|1n__g}L7gC%g#!RV7qz~)wVc=xt#5&JNw0la(bQTWLY zpbM7ebpMo5P4N4ipAS`|WW>mCb_bd0$2Fk$?eConW|2 zD)G8VZN20O5yL2{cdt$$N!&p}T`@?+0kAgA9XIB^YR%Q66Yxxu+3r7EINx=%=Dy}n z?(ocx*0JjxG+#d1Pwrf>I&ic0xKY2Y0oN``U49bdy_M4**4Uml;dJ<2;$RU=GQ4b5 z!kyId@s}8Z`7Io>rtJ+C0}gY}h}XpN^0ZTw%{d2Rw^J`e;5QbW(g2=>l|%3NJ)J^c z8gFj0ax}UK@xX7AtZUQ+kUqbZiON+!iabUaE?OpKf8o*tcPy_T|8>1}cfHJK3jE&T z=n$Y?rD`G##Ac^u&`q0vp!l>t=Vy@Jsq2htEX_5x#7t0KJKmzZo`7a%$M}dGePS{w zEvlPeZsmrg9tmK+R|Yh#37rHvKvo|$DOT*au2tAseKxnwbP7xPpeAt^?fC{M>m*kT zt=qhz2@&j9;)7@I+VfIQmP3`Lwk;TA;AvN%o2ad40OPFL_9hMKrXCE5nG72YOei3n561BH z$DTn#k&)Z=7bHrT&k!P#ou3`=i2eNK?ZD_g@fU}j(07JxLR}p4r(`6k{q;gsLV?gh| zT&U1b(IHkVQ0nrVQp*5RVHh$ByxrvyuJheI^Q*EMjC&~vv8C_@VRp4d*NRr73`T50 z*#&H+@A#I*ebmrqxZiSwJBRS@k~LcE2*LOpj-n&hHy@a`%ssf3024{@>m*%yofq`< zQO!d2IGYb6a#F1?@Hr7-wmz-$gDpaGsK1&^4u%}pgQsgC2)Zxm!x~yHMy(y@v_Enr zuIZ&KqFH^2Pq#YK{;0Az&GoGtOHR?Wx&TI2egTPluscc0desT`k4VoZys>i$)Oa+} zl%A`|f9V4MG@n*cDmI6~Eiw6muBEb?pYodRo|G}9Cxx7lQi^X~?^!U0!p-hN!Ai5R zT6hoUC6TX=hK8<+&h#2h%kD?i6hUZMQFQu;M179Qbbi=dc``Y#w(Y_yKdWm;a`S``RJ z`WNgN1XGWJN3iNdSD3t)`}AzrllyEeIB?5x{aba!R!76nfe1!v8!=HWg$PU^>9+*! zir@66zExPC7~q2N3XY!J&lk$_dYBl1#?^_@}xMhpHlDUYJ<+{SX>qE*w`lM~s;`Dq_+HDc#$hxxFWsD#VN>aX&EuzCI*)qA{ts z_a%z{K=odu0KT;Fz9Sq_Q5Ax5kzQzXyl}W+H28r!F!H1Cl#d1nWYW5gtYEThNpA6R zflN`hhA}F0eS$4y&b)RQrZZByWTJjCMbe`9z(BA}KJi$1b1-Uhyg0rTMzUf(9lKcD z!zn=8911Xzuc$)9jzD4FdB;46AIZ%Dr*D*ry7R-qKv+Cl*XJr8JR}^LB?$BEjIuLn zyVs@3MY4YV@9`msNlE*dGDAT8CuPnS2ks04x`)6Oz7Q?6HA%R6_Ts zr{1uP{8-}Md?tMP3_a}wom8kO=QSK1(GJD7k7v%wU)C(Zm%eq{c+xpy>^Yhpk}8NU zB33QJ-LsM2OI<_TGd(+MCwn8?4Yj8GeNaGcp5J_RJ!TX7prqW=)8mWW2V7?wmj!8Ea5CyP!!Mbn2J-T4^dP_nepm>&nK3E$Ph@O$n#hokbx&Xro zlEkhTvc#-*sP5c{YVCZNW5r{>Ers?bfnT$mo%pnZ2qpIX2*XYC1nYMUT)#W5Z0B=i zU83_18p-1s1b>&lo<ps#yyIU?klFs#C#hI zshw&(Q?PMgHWwgm;2l1>K0bd<#28~f65nJ>J55eBJE-z?R|qYe{!B34aegB9a3uBH zzK5#eo3j^aaV+(3=Eo&=NGapTh@a1XiUiMIx4G;SxR(7JcWy25gOeNO}sRagFwp0A$nxDg<+N zQmqn3JebY(B6OR|mVfLitH^^xV1Z$QL4m=6#pHDfUI)oHa#(4f8ep@6)je}2Hh z$o_i$l2eLy5Hfivse@{x9dxSFF_5EoIjM149yn`O7Q(U(UPD-yE}lbN;`|8o5Q=KSku{P~vu_TT=O t6ixIWL!K`GI2?aS|87M8OA=!Kza-G{fd1oj2SWh;g6xB3uz?D&{{!T(@M8b~ literal 0 HcmV?d00001 diff --git a/ArinWarev1/DataSet/Calculator_ALT/CZone_ALT.vb b/ArinWarev1/DataSet/Calculator_ALT/CZone_ALT.vb new file mode 100644 index 0000000..978ba86 --- /dev/null +++ b/ArinWarev1/DataSet/Calculator_ALT/CZone_ALT.vb @@ -0,0 +1,820 @@ +'Public Class CZone_ALT + +' Public Event PBarSet(ByVal min As Integer, ByVal max As Integer) '//프로그레시브바 초기화 +' Public Event Message(ByVal Msg As String) '//메세지표시 +' Public Event PBarVal(ByVal Value As Integer) '//프로그레시브 값설정 + +' ''' +' ''' (main)에너지요구량 계산 +' ''' +' ''' 에너지소요량을 추가로 계산하려면 True 를 입력 +' ''' 로그가 입력될 스트링빌더 +' ''' +' Public Overridable Function Calc_LoadOfZones_ALT() As Boolean +' Dim Title As String = "에너지요구량을 계산합니다" +' RaiseEvent Message(Title & vbCrLf & "잠시만 기다려주세요") +' RaiseEvent PBarSet(0, 100) + +' RaiseEvent Message(Title & vbCrLf & "데이터저장소를 확보하는중.") +' 'i_count_OpWe As Integer, d_we_month As Integer, Q_h_b_we as decimal, ==================================2010.2.21 삭제 + +' Dim t_24 As Integer, f_wind As Integer, t_NA As Integer, t_h_op_d As Integer, i_count_Is As Integer +' Dim Delta_theta_er As Decimal, Delta_theta_i_NA As Decimal, Delta_theta_i_WE As Decimal, theta_i As Decimal, theta_i_h As Decimal, theta_i_c As Decimal, F_f As Decimal, F__F As Decimal, F_W As Decimal, F_S As Decimal, F_V As Decimal, h_r As Decimal, c_p_arhoa As Decimal, e_wind As Decimal, n_50 As Decimal, n_ue As Decimal, n_mech As Decimal, n_inf As Decimal, A_B As Decimal, A_u As Decimal, h_u As Decimal, V As Decimal, V_ue As Decimal +' Dim H_V_inf As Decimal, H_V_mech As Decimal, H_V_ue As Decimal, H_V_z As Decimal, theta_z As Decimal, theta_u As Decimal, H_T_D As Decimal, H_T_iu As Decimal, H_T_iz As Decimal, H_T_s As Decimal, Delta_U_WB As Decimal, H_V_mech_theta As Decimal, theta_i_h_soll As Decimal, theta_i_c_soll As Decimal, theta_V_mech As Decimal ', theta_e_min as decimal, theta_e_max as decimal +' Dim C_wirk As Decimal, tau As Decimal, a As Decimal, a_tb As Decimal, f_we As Decimal, f_NA As Decimal, f_tb As Decimal, Q_h_max As Decimal, theta_V_mech_RLT As Decimal +' Dim Q_V_inf_sink As Decimal, Q_V_mech_sink As Decimal, Q_V_z_sink As Decimal, Q_V_sink As Decimal, Q_T_e_sink As Decimal, Q_T_u_sink As Decimal, Q_T_z_sink As Decimal, Q_T_s_sink As Decimal, Q_T_sink As Decimal, Q_S_sink As Decimal, R_se As Decimal, Q_source As Decimal, Q_sink As Decimal, Q_I_source As Decimal +' Dim Q_V_inf_source As Decimal, Q_V_mech_source As Decimal, Q_V_z_source As Decimal, Q_V_source As Decimal, Q_T_e_source As Decimal, Q_T_u_source As Decimal, Q_T_z_source As Decimal, Q_T_s_source As Decimal, Q_T_source As Decimal, Q_S_source As Decimal +' Dim Q_I_source_p As Decimal, Q_I_source_fac As Decimal, Q_I_L As Decimal, Q_l_b As Decimal, Q_w_b As Decimal, gamma As Decimal, eta As Decimal, Q_h_b As Decimal, Q_h_b_op As Decimal, g_TI As Decimal +' Dim V_mech As Decimal +' 'Dim d_op_month As Integer, theta_e_month as decimal +' 'Dim A_H as decimal, A_C as decimal, A_L as decimal, A_W as decimal, A_V as decimal +' Dim Q_vh_b_op As Decimal +' Dim g_blinds As Decimal, tau_e_B As Decimal, rho_e_B As Decimal, U_blinds As Decimal, tau_e_B_corr As Decimal, rho_e_B_corr As Decimal 'EN 13363-1 적용 +' Dim g As Decimal, alpa As Decimal +' 'Dim i_sub_wall As Integer +' Dim V_mech_outdoor As Decimal + +' '//2010.02.04추가 +' Dim Phi As Decimal +' '//2010.02.21추가 +' Dim d_op_mth As Integer +' '//2011.04.04 추가 +' 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 priod_value As Single = 0 +' Dim age As Single '//준공연도에 의한 경년변화값 +' For Each DRpriod As DS.tbl_DescRow In DSET.tbl_Desc.Select("cname<>'0'", "cname") +' priod_value = CSng(DRpriod.priod) +' Next +' If priod_value = 0 Then +' age = 1 +' Else +' age = 1 / (1 - priod_value * 0.0012) +' End If + + + +' RaiseEvent Message(Title & vbCrLf & "저장소 기본값을 설정하는중.") +' t_24 = 24 +' F_f = 0.5 '구조체와 하늘과의 형태계수 +' F__F = 0.7 '창 프레임 감소계수 __필요 +' F_W = 0.9 '수직입사가 아닌경우에 대한 감소계수 +' F_S = 1 '주변환경에 의한 그늘짐 +' F_V = 1 '0.9 '우선 먼지팩터는 없는 것으로 가정 +' h_r = 5 * 0.9 '= 5*e(모를경우 e=0.9) +' Delta_theta_er = 10 +' Delta_theta_i_NA = 4 '(용도별조건) +' 'theta_i = 21 +' 'theta_i_h = 21 +' theta_i_h_soll = 20 +' theta_i_c = 24 +' theta_i_c_soll = 26 +' theta_V_mech_RLT = 27 +' 'theta_e_min = -11.3 +' 'theta_e_max = 31.5 +' c_p_arhoa = 0.34 '//먼지모름 +' 'n_50 = 1.5 +' n_ue = 0.6 +' e_wind = 0.07 +' f_wind = 15 +' R_se = 0.043 '외기에 직접 열전달저항 확인요망 +' g_TI = 0.35 '(2-113) +' alpa = 0.4 '우선 0.4으로 설정 표면흡수율 도표 2-6 참조 +' n_mech = 1 '임시 +' A_u = 1 +' h_u = 1 '임시 + +' RaiseEvent Message(Title & vbCrLf & "결과저장소 초기화") + +' Work_msg("요구량계산중...") +' Frm_Work.ProgressBar1.Maximum = 26 +' Frm_Work.ProgressBar1.Minimum = 0 +' Frm_Work.ProgressBar1.Value = 0 +' Frm_Work.TopMost = True +' Frm_Work.Show() + +' '///////////////////////////////////////////////////// +' For i_count_HeatCool As Integer = 1 To 2 '(1) 루프회전 난방/냉방 구분해서 회전한다. 둘의 산식이 거의 비슷하므로 루프를 이용해서 계산 + +' For i_count_month As Short = 0 To 12 '(2) --월전체의 루프? + +' Work_msg("요구량계산중..." & CStr(IIf(i_count_HeatCool = 1, "난방", "냉방")) & "(" & i_count_month & "/12)") : Work_plus() +' Dim Mon As String = "M" & Format(i_count_month, "00") '//저장소의 필드명이 M00 식으로되어있다. + +' If i_count_month = 0 Then '//난방이라면? '//최소외기온도 난방기(theta_e_min) +' Calc.Pub.theta_e(i_count_month) = TOSG(IIf(i_count_HeatCool = 1, Calc.Pub.theta_e_min, Calc.Pub.theta_e_max)) +' End If + +' '//존 루프 +' For Each DR존 As DS.tbl_zoneRow In DSET.tbl_zone.Select("code<>'0'", "code") ' DSET.tbl_zone.Rows.Count '(3) +' '//방식이나 공조는 ZZ는 사용안함이다 V=환기 외기부하처리여부의경우 0001 은 예이다. +' zone_count = TOSG(DR존.입력존의수) +' If DR존.냉난방방식 <> "기능없음" Or (DR존.냉난방공조 <> "기능없음" And (DR존.냉난방공조 <> "환기" Or DR존.외기부하처리여부 = "예")) Then +' Q_vh_b_op = 0 + +' '//i_count_OpWe 1은 평일 2는 주말이다ㅡㅡ/ +' '======================================2010.2.21 삭제 +' 'For i_count_OpWe = 1 To 2 +' '======================================2010.2.21 삭제 +' Q_V_inf_sink = 0 +' Q_V_inf_source = 0 +' Q_V_mech_sink = 0 +' Q_V_mech_source = 0 +' Q_V_z_sink = 0 +' Q_V_z_source = 0 +' Q_V_win_sink = 0 '//2011.04.04 추가 +' Q_V_win_source = 0 '//2011.04.04 추가 + +' Q_T_e_sink = 0 +' Q_T_e_source = 0 +' Q_T_u_sink = 0 +' Q_T_u_source = 0 +' Q_T_z_sink = 0 +' Q_T_z_source = 0 +' Q_T_s_sink = 0 +' Q_T_s_source = 0 + +' A_B = TOSG(DR존.면적) ' Worksheets("입력존").Range("전용면적1").Offset(0, i_count_zone - 1) +' V = TOSG(DR존.순실체적) ' Worksheets("입력존").Range("체적1").Offset(0, i_count_zone - 1) +' V_ue = A_u * h_u +' 'Log.AppendLine(" >> V_ue = A_u * h_u = // au와 hu 는 선언부에서 1값으로 고정되어있음 v_ue는 항상 1") + +' '//존의 프로필설정에대한 실제 프로필의 데이터를 가져옴 +' Dim DR프로필() As DS.tbl_profileRow = CType(DSET.tbl_profile.Select("code='" & DR존.프로필 & "' and code <> '0'"), DS.tbl_profileRow()) +' If DR프로필.GetUpperBound(0) = -1 Then +' MsgBox("존=" & DR존.code & " 의 프로필=" & DR존.프로필 & " 의 데이터가 존재하지않습니다", MsgBoxStyle.Critical, "확인") +' Else +' 'Log.AppendLine(" >> 존의 프로필코드(" & DR존.프로필 & ") 에 해당하는 프로필정보를 가져옵니다") +' t_h_op_d = TOIT(DR프로필(0).운전시간난방) ' Worksheets("설정조건").Range("사용시작시간1").Offset(5, i_count_profile) +' '===================================================================================2010.2.21 추가 +' If i_count_month = 0 Then +' d_op_mth = 0 +' Else +' d_op_mth = CInt(TOSG(DR프로필(0)("day" & Format(i_count_month, "00")))) +' End If +' '===================================================================================2010.2.21 추가 +' theta_i_h_soll = TOSG(DR프로필(0).난방설정온도) ' Worksheets("설정조건").Range("난방설정온도1").Offset(0, i_count_profile) +' theta_i_c_soll = TOSG(DR프로필(0).냉방설정온도) ' Worksheets("설정조건").Range("냉방설정온도1").Offset(0, i_count_profile) +' Delta_theta_i_NA = TOSG(DR프로필(0).야간최저허용온도) ' Worksheets("설정조건").Range("야간최저허용온도1").Offset(0, i_count_profile) +' Delta_theta_i_WE = TOSG(DR프로필(0).주말최저허용온도) ' Worksheets("설정조건").Range("주말최저허용온도1").Offset(0, i_count_profile) +' ' If i_count_OpWe = 1 Then=============================================================2010.2.21 삭제 +' 'Log.AppendLine(" >> i_count_OpWe = 1 >> Q_I_source_p/Q_I_source_fac/V_mech 계산됨") +' Q_I_source_p = TOSG(DR프로필(0).사람) * A_B ' Worksheets("설정조건").Range("사람1").Offset(0, i_count_profile) * A_B '(2-118) +' Q_I_source_fac = TOSG(DR프로필(0).작업보조기기) * A_B ' Worksheets("설정조건").Range("작업보조기기1").Offset(0, i_count_profile) * A_B '(2-119) +' V_mech = TOSG(DR프로필(0).최소도입외기량) * A_B ' Worksheets("설정조건").Range("최소도입외기량1").Offset(0, i_count_profile) * A_B +' ' Else '=============================================================2010.2.21 삭제 +' ' Log.AppendLine(" >> i_count_OpWe <> 1 >> Q_I_source_p/Q_I_source_fac 는 0입니다") +' ' Q_I_source_p = 0 '주말 사람없음 +' ' Q_I_source_fac = 0 '주말 기기발열 없음 +' 'End If +' 'Q_I_L = 0 'mu_L*Q_I_L_elektr (2-123)추후 추가 +' 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 +' End If +' Else +' If DR존.냉난방공조 <> "냉방" AndAlso DR존.냉난방공조 <> "냉난방" Then '냉방/냉난방이 아닐경우 +' If theta_i_c_soll < Calc.Pub.theta_e(i_count_month) Then +' Q_vh_b_op = V_mech * (Calc.Pub.theta_e(i_count_month) - theta_i_c_soll) * 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 +' End If +' End If +' End If + + + +' n_50 = TOSG(DR존.침기율) '//tosg 는 빈값일경우 0을 반환 +' n_inf = n_50 * e_wind '(2-59) 환기기기 없는 경우 +' 'n_inf = n_50 * e_wind * (1 + f_V_mech * t_V_mech / 24) '(2-60) 급기 및 배기에 대한 환기회수 필요 +' '///////////////////////////////////////////////////////////////////////////////////////////////////////2011.04.04 추가 +' 'If n_nutz < 1.2 Then +' ' Delta_n_win = n_nutz - (n_nutz - 0.2) * n_inf - 0.1 +' 'Else +' ' Delta_n_win = n_nutz - n_inf - 0.1 +' 'End If +' 'If Delta_n_win < 0 Then +' ' Delta_n_win = 0 +' 'End If +' 'n_win = 0.1 + Delta_n_win * t_h_op_d / 24 +' n_win = 0.1 ' 최소외기 도입량은 환기기기 유무와 상관없이 적용되는 것으로 평가하기 때문에 자연환기 기본값만 적용 +' '///////////////////////////////////////////////////////////////////////////////////////////////////////2011.04.04 추가 + + +' H_T_D = 0 +' H_T_iu = 0 +' H_T_iz = 0 + + +' Dim Drow프로필 As DS.tbl_profileRow = CType(DSET.tbl_profile.Select("code='" & DR존.프로필 & "' and code <> '0'")(0), DS.tbl_profileRow) +' If DR존.조명부하산출방법 = "계산치" Then +' Q_I_L = TOSG(DR존.조명에너지부하율계산치) * TOSG(Drow프로필.일일사용시간) * A_B +' Else +' Q_I_L = TOSG(DR존.조명에너지부하율입력치) * TOSG(Drow프로필.일일사용시간) * A_B +' End If +' 'Q_I_L = TOSG(IIf(DR존.조명부하산출방법 = "계산치", TOSG(DR존.조명에너지부하율계산치), TOSG(DR존.조명에너지부하율입력치))) * TOSG(Drow프로필.일일사용시간) * A_B +' Q_w_b = TOSG(Drow프로필.일일급탕요구량) * A_B * d_op_mth +' '===================================2010.2.21 삭제 +' 'If DR존.조명부하산출방법 = "CALC" Then '//OpWe의 2번은 주말인거 같다. +' ' '//부하율계산치?입력치구분 +' ' Q_w_b = TOSG(DR존.급탕요구량) * A_B * Calc.Pub.d_op_mth(i_count_month) +' 'Else +' ' Q_I_L = 0 '주말 소등으로 설정 +' ' Q_w_b = 0 '주말은 급탕사용안함 +' 'End If +' '===================================2010.2.21 삭제 + +' 'Log.AppendLine(" >> 현재존을 사용하는 각 입력면(" & DSET.tbl_myoun.Select("존분류='" & DR존.code & "'").GetUpperBound(0) & ")으로부터 데이터를 누적") +' For Each Dr입력면 As DS.tbl_myounRow In DSET.tbl_myoun.Select("존분류='" & DR존.code & "'") +' If Dr입력면.code <> "0" Then +' If DR존.열교가산치 = "내단열" Then +' Delta_U_WB = 0.15 '내단열(=0001) Worksheets("입력존").Range("열교1").Offset(0, i_count_zone - 1) = "내단열" Then +' Else +' Delta_U_WB = 0.1 '내단열(=0001) Worksheets("입력존").Range("열교1").Offset(0, i_count_zone - 1) = "내단열" Then +' End If +' Select Case Dr입력면.건축부위방식.Trim ' Case Worksheets("입력면").Range("입력부위" & i_sub_wall & "").Offset(0, i_count_wall) +' Case "외벽" '"외벽" +' 'Dr입력면.열관류율 >> Calc.Get_열관류율(Dr입력면) +' H_T_D = H_T_D + Calc.Get_열관류율(Dr입력면) * age * TOSG(Dr입력면.건축부위면적) + Delta_U_WB * TOSG(Dr입력면.건축부위면적) ' Worksheets("입력면").Range("부위면적" & i_sub_wall & "").Offset(0, i_count_wall) '(2-44) Delta_U_WB는 외단열 0.1, 내단열 0.15 +' Case "외부창", "내부창" '=================2010.03.20 수정 +' If Dr입력면.블라인드유무 = "유" Then ' '0001(=유) Range("에너지투과율" & i_sub_wall & "").Offset(3, i_count_wall) = "유" Then +' If Calc.Get_열관류율(Dr입력면) = 0 Then +' MsgBox("블라인드 사용이지만 열관류율 수치가 입력되지 않았습니다", MsgBoxStyle.Critical, "확인") +' Else +' Select Case Dr입력면.블라인드위치.Trim ' Range("에너지투과율" & i_sub_wall & "").Offset(4, i_count_wall) +' Case "내부" '"내부" +' U_blinds = TOSG(1 / (1 / (Calc.Get_열관류율(Dr입력면) * age) + 1 / 30)) +' Case "중간" '중간" +' U_blinds = TOSG(1 / (1 / (Calc.Get_열관류율(Dr입력면) * age) + 1 / 3)) +' Case "외부" ' '외부" +' U_blinds = TOSG(1 / (1 / (Calc.Get_열관류율(Dr입력면) * age) + 1 / 5 + 1 / 10)) +' End Select +' End If + +' Else +' U_blinds = Calc.Get_열관류율(Dr입력면) * age 'Worksheets("입력면").Range("열관류율" & i_sub_wall & "").Offset(0, i_count_wall) +' End If + +' '=========================================================================================================2010.03.20 수정 +' If Dr입력면.건축부위방식.Trim = "외부창" Then +' H_T_D = H_T_D + U_blinds * TOSG(Dr입력면.건축부위면적) + Delta_U_WB * TOSG(Dr입력면.건축부위면적) '(2-44) Delta_U_WB는 외단열 0.1, 내단열 0.15 +' Else +' H_T_iu = H_T_iu + U_blinds * TOSG(Dr입력면.건축부위면적) +' End If +' '=========================================================================================================2010.03.20 수정 +' Case "내벽" ' "내벽" +' H_T_iu = H_T_iu + Calc.Get_열관류율(Dr입력면) * age * TOSG(Dr입력면.건축부위면적) '(2-48) +' Case "간벽" '"간벽" +' H_T_iz = H_T_iz + Calc.Get_열관류율(Dr입력면) * age * TOSG(Dr입력면.건축부위면적) '(2-52) +' Case Else +' MsgBox("입력면 건축부위방식이 없습니다", MsgBoxStyle.Critical, "확인") +' Return False +' End Select +' End If +' Next + + +' If H_T_D = 0 Then +' H_V_inf = 0 +' Else +' H_V_inf = n_inf * V * c_p_arhoa '(2-58) c_p_arhoa는 0.34 V는 존의 체적 +' End If +' H_V_win = n_win * V * c_p_arhoa '//2011.04.04 추가 +' H_V_mech = V_mech * c_p_arhoa 'n_mech * V * c_p_arhoa '(2-83) +' H_V_ue = n_ue * V_ue * c_p_arhoa '(2-94) +' 'H_V_z = n_z_d * c_p_arhoa '(2-99) + +' If DR존.열저장능력 = "" Then +' MsgBox(DR존.설명 & "의 열저장능력이 입력되어 있지않습니다", MsgBoxStyle.Critical, "확인") +' C_wirk = 0 +' Else +' C_wirk = TOSG(DR존.열저장능력) * A_B ' .Worksheets("입력존").Range("열저장능력1").Offset(0, i_count_zone - 1) * A_B +' End If + +' If i_count_HeatCool = 1 Then +' H_V_mech_theta = 0 'H_V_mech * (theta_i_h_soll - theta_V_mech) / 6 '(2-130) 우선 고려안함 +' Else +' H_V_mech_theta = 0 'H_V_mech * (theta_i_c_soll - theta_V_mech) / 6 '(2-130) +' End If +' tau = C_wirk / ((H_T_D + H_T_iu + H_T_iz) + (H_V_inf + H_V_mech + H_V_ue + H_V_win) + H_V_mech_theta) '(2-22, 129) 추후 H_V_z 추가 '//2011.04.04 H_V_win 추가 +' If tau < 48 Then tau = 48 + +' a = 1 + tau / 16 '(2-25) + +' a_tb = 1 ' =A_beheizt / A_B 'A_beheizt는 난방면적, A_B는 전용면적 + +' t_NA = 24 - t_h_op_d +' f_tb = TOSG(0.8 * (1 - Math.Exp(-Q_h_max / (A_B * 35))) * a_tb ^ 2) '(2-34) + +' '================================================2010.2.21 삭제 +' 'If i_count_OpWe = 1 Then +' '================================================2010.2.21 삭제 +' Select Case DR존.야간운전방식.Trim '공통1002 Worksheets("입력존").Range("야간가동1").Offset(0, i_count_zone - 1) +' Case "정상가동" '정상가동" +' f_NA = 0 +' Case "감소가동" '감소가동" +' f_NA = TOSG(0.13 * t_NA * Math.Exp(-tau / 250) / 24) '(2-28) 감소가동 +' Case "가동정지" '가동정지" +' f_NA = TOSG(0.26 * t_NA * Math.Exp(-tau / 250) / 24) '(2-29) 가동정지 +' End Select +' theta_i_h = theta_i_h_soll - f_NA * (theta_i_h_soll - Calc.Pub.theta_e(i_count_month)) +' If theta_i_h < theta_i_h_soll - Delta_theta_i_NA * t_NA / 24 Then theta_i_h = theta_i_h_soll - Delta_theta_i_NA * t_NA / 24 '(2-27) 야간감소 +' '================================================2010.2.21 삭제 +' 'Else +' '================================================2010.2.21 삭제 +' Select Case DR존.주말운전방식.Trim ' Worksheets("입력존").Range("주말가동1").Offset(0, i_count_zone - 1) +' Case "정상가동" '정상가동" +' f_we = 0 +' Case "감소가동" '감소가동" +' f_we = TOSG(0.2 * (1 - 0.4 * tau / 250)) '(2-31) 난방감소 +' Case "가동정지" '가동정지" +' f_we = TOSG(0.3 * (1 - 0.2 * tau / 250)) '(2-32) 난방정지식 +' End Select +' theta_i_h = theta_i_h_soll - f_we * (theta_i_h_soll - Calc.Pub.theta_e(i_count_month)) +' If theta_i_h < theta_i_h_soll - Delta_theta_i_WE Then theta_i_h = theta_i_h_soll - Delta_theta_i_WE '(2-30) 주말감소식 변형 +' '================================================2010.2.21 삭제 +' 'End If +' '================================================2010.2.21 삭제 + +' If i_count_HeatCool = 1 Then +' theta_i = theta_i_h +' theta_z = theta_i_h +' theta_u = TOSG(theta_i_h_soll - 0.7 * (theta_i_h_soll - Calc.Pub.theta_e(i_count_month))) +' Else +' theta_i = theta_i_c_soll '24'에너지 사용량 계산할때 24 사용 +' theta_z = theta_i_c_soll +' theta_u = TOSG(theta_i_c_soll - 0.7 * (theta_i_c_soll - Calc.Pub.theta_e(i_count_month))) +' End If + +' 'theta_i_h = theta_i_h_soll - f_tb * (theta_i_h_soll - theta_e(i_count_month)) '(2-33) 공간적제한 +' 'theta_i_h = theta_i_NA - f_tb * (theta_i_NA - theta_e(i_count_month)) '(2-35) 공간적 시간적 제한 + +' 'theta_V_mech = theta_e(i_count_month) '(2-90) 공조처리 없는 경우 +' '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으로 설정 + + +' '=======================================================================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()) +' 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) +' Case Else +' Phi = 0 +' 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 +' End If +' '=======================================================================2010.02.04 추가부분 끝 + +' If theta_i > Calc.Pub.theta_e(i_count_month) Then +' Q_V_inf_sink = H_V_inf * (theta_i - Calc.Pub.theta_e(i_count_month)) * t_24 '(2-56) +' Q_V_win_sink = H_V_win * (theta_i - Calc.Pub.theta_e(i_count_month)) * t_24 '//2011.04.04 추가 +' Else +' Q_V_inf_source = H_V_inf * (Calc.Pub.theta_e(i_count_month) - theta_i) * t_24 '(2- +' Q_V_win_source = H_V_win * (Calc.Pub.theta_e(i_count_month) - theta_i) * t_24 '//2011.04.04 추가 +' End If +' '================================================2010.2.21 삭제 +' 'If i_count_OpWe = 1 Then +' '================================================2010.2.21 삭제 +' If theta_i > theta_V_mech Then +' Q_V_mech_sink = H_V_mech * V_mech_outdoor * (theta_i - theta_V_mech) * t_h_op_d '(2-81) +' Else +' Q_V_mech_source = H_V_mech * V_mech_outdoor * (theta_V_mech - theta_i) * t_h_op_d '(2- +' End If +' '================================================2010.2.21 삭제 +' 'Else +' 'If theta_i > theta_V_mech Then +' ' Q_V_mech_sink = 0 +' 'Else +' ' Q_V_mech_source = 0 +' 'End If +' 'End If +' '================================================2010.2.21 삭제 + +' If theta_i > theta_z Then +' Q_V_z_sink = H_V_z * (theta_i - theta_z) * t_24 '(2-97) +' Else +' Q_V_z_source = H_V_z * (theta_z - theta_i) * t_24 '(2- +' End If + +' Q_V_sink = Q_V_inf_sink + Q_V_mech_sink + Q_V_z_sink + Q_V_win_sink '(2-13) '//2011.04.04 추가 +' Q_V_source = Q_V_inf_source + Q_V_mech_source + Q_V_z_source + Q_V_win_source '(2- '//2011.04.04 추가 + +' If theta_i > Calc.Pub.theta_e(i_count_month) Then +' Q_T_e_sink = H_T_D * (theta_i - Calc.Pub.theta_e(i_count_month)) * t_24 '(2-42) +' Else +' Q_T_e_source = H_T_D * (Calc.Pub.theta_e(i_count_month) - theta_i) * t_24 '(2- +' End If + +' If theta_i > theta_u Then +' Q_T_u_sink = H_T_iu * (theta_i - theta_u) * t_24 '(2-46) +' Else +' Q_T_u_source = H_T_iu * (theta_u - theta_i) * t_24 '(2- +' End If + +' If theta_i > theta_z Then +' Q_T_z_sink = H_T_iz * (theta_i - theta_z) * t_24 '(2-50) +' Else +' Q_T_z_source = H_T_iz * (theta_z - theta_i) * t_24 '(2- +' End If + +' If theta_i > Calc.Pub.theta_e(i_count_month) Then +' Q_T_s_sink = H_T_s * (theta_i - Calc.Pub.theta_e(i_count_month)) * t_24 '(2-53) 추후수정 +' Else +' Q_T_s_source = H_T_s * (Calc.Pub.theta_e(i_count_month) - theta_i) * t_24 '(2-53) 추후수정 +' End If + +' Q_T_sink = Q_T_e_sink + Q_T_u_sink + Q_T_z_sink + Q_T_s_sink '(2-12) +' Q_T_source = Q_T_e_source + Q_T_u_source + Q_T_z_source + Q_T_s_source '(2-12) + +' Q_S_sink = 0 +' Q_S_source = 0 + +' For Each DRF입력면 As DS.tbl_myounRow In DSET.tbl_myoun.Select("존분류='" & DR존.code & "' and code <> '0'") '//해당존을 사용하는 모든 입력면을 가져옴 +' Select Case DRF입력면.방위.Trim ' Worksheets("입력면").Range("방위" & i_sub_wall & "").Offset(0, i_count_wall) +' Case "수평" '"수평" +' i_count_Is = 0 +' Case "남" '"남" +' i_count_Is = 1 +' Case "남동" '"남동" +' i_count_Is = 2 +' Case "남서" '"남서" +' i_count_Is = 3 +' Case "동" '"동" +' i_count_Is = 4 +' Case "서" '"서" +' i_count_Is = 5 +' Case "북동" '"북동" +' i_count_Is = 6 +' Case "북서" '"북서" +' i_count_Is = 7 +' Case "북" '"북" +' i_count_Is = 8 +' '==========================================================2010.03.20 추가 +' Case Else +' i_count_Is = -1 +' '==========================================================2010.03.20 추가 +' End Select + +' If i_count_Is <> -1 Then '=====================================2010.03.20 추가 + + +' Select Case DRF입력면.건축부위방식.Trim ' Range("입력부위" & i_sub_wall & "").Offset(0, i_count_wall) +' Case "외벽" '외벽 +' If alpa * Calc.Pub.I_s(i_count_Is, i_count_month) < F_f * h_r * Delta_theta_er Then +' Q_S_sink = Q_S_sink + R_se * Calc.Get_열관류율(DRF입력면) * age * TOSG(DRF입력면.건축부위면적) * (F_f * h_r * Delta_theta_er - alpa * Calc.Pub.I_s(i_count_Is, i_count_month)) * t_24 '(2-111) +' Else +' 'Log.AppendLine("외벽 if else = " & Q_S_source) +' Q_S_source = Q_S_source + R_se * Calc.Get_열관류율(DRF입력면) * age * TOSG(DRF입력면.건축부위면적) * (alpa * Calc.Pub.I_s(i_count_Is, i_count_month) - F_f * h_r * Delta_theta_er) * t_24 '(2- +' 'Log.AppendLine(">>" & Q_S_source) +' End If + +' Case "외부창", "내부창" '=====================================2010.03.20 수정 +' If TOSG(DRF입력면.수평차양각) < 67.5 Then 'Range("에너지투과율" & i_sub_wall & "").Offset(1, i_count_wall) < 67.5 Then + +' If DRF입력면.블라인드유무 = "유" Then ' Range("에너지투과율" & i_sub_wall & "").Offset(3, i_count_wall) = "유" Then +' Select Case DRF입력면.블라인드빛종류.Trim ' Range("에너지투과율" & i_sub_wall & "").Offset(6, i_count_wall) +' Case "불투과(t=0.0)" '불투과(t=0.0)" +' tau_e_B = 0 +' Select Case DRF입력면.블라인드색상.Trim ' Range("에너지투과율" & i_sub_wall & "").Offset(7, i_count_wall) +' Case "흰색" '흰색" +' rho_e_B = 0.7 +' Case "밝은색" '밝은색" +' rho_e_B = 0.5 +' Case "어두운색" '어두운색" +' rho_e_B = 0.3 +' Case "검은색" '검은색" +' rho_e_B = 0.1 +' Case Else +' MsgBox("불투과 블라인드색상이 없습니다", MsgBoxStyle.Critical, "확인") +' End Select +' Case "약투과(t=0.2)" '약투과(t=0.2)" +' tau_e_B = 0.2 +' Select Case DRF입력면.블라인드색상.Trim 'Range("에너지투과율" & i_sub_wall & "").Offset(7, i_count_wall) +' Case "흰색" +' rho_e_B = 0.6 +' Case "밝은색" +' rho_e_B = 0.4 +' Case "어두운색" +' rho_e_B = 0.2 +' Case "검은색" +' rho_e_B = 0.1 +' Case Else +' MsgBox("약투과 블라인드색상이 없습니다", MsgBoxStyle.Critical, "확인") +' End Select +' Case "반투과(t=0.4)" '반투과(t=0.4)" +' tau_e_B = 0.4 +' Select Case DRF입력면.블라인드색상.Trim 'Range("에너지투과율" & i_sub_wall & "").Offset(7, i_count_wall) +' Case "흰색" +' rho_e_B = 0.4 +' Case "밝은색" +' rho_e_B = 0.3 +' Case "어두운색" +' rho_e_B = 0.2 +' Case "검은색" +' rho_e_B = 0.1 +' Case Else +' MsgBox("반투과 블라인드색상이 없습니다", MsgBoxStyle.Critical, "확인") +' End Select +' End Select + +' If DRF입력면.블라인드각도 = "45도" Then ' Range("에너지투과율" & i_sub_wall & "").Offset(5, i_count_wall) = "45도" Then +' tau_e_B_corr = TOSG(0.65 * tau_e_B + 0.15 * rho_e_B) +' rho_e_B_corr = TOSG(rho_e_B * (0.75 + 0.7 * tau_e_B)) +' tau_e_B = tau_e_B_corr +' rho_e_B = rho_e_B_corr +' End If + +' g = TOSG(DRF입력면.투과율) ' Range("에너지투과율" & i_sub_wall & "").Offset(0, i_count_wall) +' If DRF입력면.블라인드위치.Trim <> "" AndAlso Calc.Get_열관류율(DRF입력면) = 0 Then +' MsgBox(DRF입력면.설명 & "의 열관류율이 0입니다", MsgBoxStyle.Critical, "확인") +' Else +' Select Case DRF입력면.블라인드위치.Trim 'Range("에너지투과율" & i_sub_wall & "").Offset(4, i_count_wall) +' Case "내부" '내부" +' U_blinds = TOSG(1 / (1 / (Calc.Get_열관류율(DRF입력면) * age) + 1 / 30)) +' g_blinds = g * (1 - g * rho_e_B - (1 - tau_e_B - rho_e_B) * U_blinds / 30) +' Case "중간" '중간" +' U_blinds = TOSG(1 / (1 / (Calc.Get_열관류율(DRF입력면) * age) + 1 / 3)) +' g_blinds = g * tau_e_B + g * ((1 - tau_e_B - rho_e_B) + (1 - g) * rho_e_B) * U_blinds / 3 +' Case "외부" '외부" +' U_blinds = TOSG(1 / (1 / (Calc.Get_열관류율(DRF입력면) * age) + 1 / 5 + 1 / 10)) +' g_blinds = tau_e_B * g + (1 - tau_e_B - rho_e_B) * U_blinds / 10 + tau_e_B * (1 - g) * g / 5 +' Case Else +' MsgBox("블라인드위치가 없습니다", MsgBoxStyle.Critical, "확인") +' End Select +' End If +' '===========================================================================2010.02.27 추가 +' If i_count_month = 0 Then +' If i_count_HeatCool = 1 Then +' g_blinds = (1 - Calc.Pub.F_sh_gl(i_count_Is - 1, 1 - 1)) * g + Calc.Pub.F_sh_gl(i_count_Is - 1, 1 - 1) * g_blinds +' Else +' g_blinds = (1 - Calc.Pub.F_sh_gl(i_count_Is - 1, 7 - 1)) * g + Calc.Pub.F_sh_gl(i_count_Is - 1, 7 - 1) * g_blinds +' End If +' Else +' g_blinds = (1 - Calc.Pub.F_sh_gl(i_count_Is - 1, i_count_month - 1)) * g + Calc.Pub.F_sh_gl(i_count_Is - 1, i_count_month - 1) * g_blinds +' End If +' '===========================================================================2010.02.27 추가 + +' Else +' g_blinds = TOSG(DRF입력면.투과율) ' Range("에너지투과율" & i_sub_wall & "").Offset(0, i_count_wall) + +' End If +' Q_S_source = TOSG(Q_S_source + F__F * TOSG(DRF입력면.건축부위면적) * F_S * F_W * F_V * g_blinds * Math.Cos(1.33 * TOSG(DRF입력면.수평차양각) * 3.141592 / 180) * (1 - TOSG(DRF입력면.수직차양각) / 300) * Calc.Pub.I_s(i_count_Is, i_count_month) * t_24) '(2-113) +' End If +' End Select +' End If '==========================================================2010.03.20 추가 +' Next + +' Q_I_source = Q_I_source_p + Q_I_source_fac + Q_I_L '(2-20) +' Q_source = Q_S_source + Q_T_source + Q_V_source + Q_I_source '(2-16) +' If i_count_month = 0 AndAlso i_count_HeatCool = 1 Then Q_source = 0 ' 난방 최대부하 계산 +' Q_sink = Q_T_sink + Q_V_sink + Q_S_sink '(2-11) Q_I_sink는 현재 고려안함 + +' If Q_sink = 0 Then +' eta = 0 +' Else +' gamma = Q_source / Q_sink '(2-21) +' 'If gamma > 1.1 And a > 100 Then +' If gamma ^ a > 1000000 Then +' eta = 1 / gamma +' Else +' If gamma = 1 Then +' eta = a / (a + 1) '(2-24) +' Else +' eta = TOSG((1 - gamma ^ a) / (1 - gamma ^ (a + 1))) '(2-23) +' End If +' End If + +' If 1 - (eta * gamma) < 0.01 Then eta = 1 / gamma '(2-137) +' If (1 - eta) * gamma < 0.01 Then eta = 1 '(2-138) +' 'If V_mech >= Q_C_max / (c_p_arhoa * (theta_i - theta_mech)) Then eta = 1 '(2-139) 추후 고민 +' End If + +' If i_count_HeatCool = 1 Then +' Q_h_b = Q_sink - eta * Q_source '(2-1) +' Else +' Q_h_b = (1 - eta) * Q_source '(2-7) +' End If + + +' If Q_h_b < 0.001 Then Q_h_b = 0 '1W 미만 제거 + +' '========================================================2010.2.21 수정 And i_count_OpWe = 1 삭제 +' If i_count_month = 0 Then +' If t_h_op_d <> 0 Then +' Q_h_b_op = Q_h_b / t_h_op_d * zone_count +' Else +' Q_h_b_op = Q_h_b * zone_count +' End If +' Else +' '=================================================2010.2.21 삭제 +' 'If i_count_OpWe = 1 Then +' '=================================================2010.2.21 삭제 +' Q_h_b_op = Q_h_b * d_op_mth * zone_count +' ' MsgBox(i_count_month & " " & Q_h_b & " " & d_op(i_count_month) & " " & Q_h_b_op) +' '=================================================2010.2.21 삭제 +' 'Else +' 'Q_h_b_we = Q_h_b * Calc.Pub.d_we(i_count_month) +' '=================================================2010.2.21 삭제 +' Dim DRProf As DS.tbl_profileRow = CType(DSET.tbl_profile.Select("code='" & DR존.프로필 & "' and code <> '0'")(0), DS.tbl_profileRow) +' If DR존.조명부하산출방법 = "계산치" Then 'Worksheets("조명").Range("조명부하산출방법1").Offset(0, i_count_zone - 1) = "계산치" Then +' Q_l_b = TOSG(DR존.조명에너지부하율계산치) * TOSG(DRProf.일일사용시간) * A_B * d_op_mth * zone_count +' Else +' Q_l_b = TOSG(DR존.조명에너지부하율입력치) * TOSG(DRProf.일일사용시간) * A_B * d_op_mth * zone_count +' End If +' Q_w_b = TOSG(DRProf.일일급탕요구량) * A_B * d_op_mth * zone_count 'Worksheets("입력존").Range("일일급탕요구량1").Offset(0, i_count_zone - 1) * A_B * d_op(i_count_month) +' '=================================================2010.2.21 삭제 +' 'End If +' '=================================================2010.2.21 삭제 +' End If +' 'Q_h_b_mth = d_op(i_count_month) * (Q_sink_op - eta_op * Q_source_op) + d_we(i_count_month) * (Q_sink_we - eta_we * Q_source_we) '(2-6) +' '======================================2010.2.21 삭제 +' 'Next +' '======================================2010.2.21 삭제 +' Else +' A_B = TOSG(DR존.면적) ' Worksheets("입력존").Range("전용면적1").Offset(0, i_count_zone - 1) + +' Q_vh_b_op = 0 +' Q_h_b_op = 0 +' 'Q_h_b_we = 0 + +' '//조명부하산출방법이 계산치(0001)일경우 계산치로 그렇지않을경우 입력치로 계산함 +' Dim DRProf As DS.tbl_profileRow = CType(DSET.tbl_profile.Select("code='" & DR존.프로필 & "' and code <> '0'")(0), DS.tbl_profileRow) + +' If DR존.조명부하산출방법 = "계산치" Then +' Q_l_b = TOSG(DR존.조명에너지부하율계산치) * TOSG(DRProf.일일사용시간) * A_B * d_op_mth * zone_count +' Else +' Q_l_b = TOSG(DR존.조명에너지부하율입력치) * TOSG(DRProf.일일사용시간) * A_B * d_op_mth * zone_count +' End If + +' Q_w_b = TOSG(DRProf.일일급탕요구량) * A_B * d_op_mth * zone_count '===============d_op(i_count_month) 2010.2.21 수정 +' End If + +' Dim Dr최대부하 As New C최대냉난방부하.Citem(DSETR1, DR존.code) ' DSR.최대냉난방부하Row = CType(DSETR.최대냉난방부하.Select("zone='" & DR존.code & "'")(0), DSR.최대냉난방부하Row) + +' If i_count_HeatCool = 1 Then +' If i_count_month = 0 Then '//0번시트는최대 냉난방부하 시트이다. +' Dr최대부하.최대난방기기부하 = TOSG((Q_h_b_op) / 1000) ''=================== Q_h_b_we 2010.2.21 삭제 +' 'Worksheets("" & i_count_month & "").Range("최대난방부하1").Offset(0, i_count_zone - 1) = (Q_h_b_op + Q_h_b_we) / 1000 +' If DR존.야간운전방식 = "가동정지" Then ' Worksheets("입력존").Range("야간가동1").Offset(0, i_count_zone - 1) = "가동정지" Then +' Dr최대부하.일일난방최대가동시간 = t_h_op_d +' 'Dr최대냉난방부하.난방최대가동시간 = t_h_op_d ' Worksheets("" & i_count_month & "").Range("최대난방부하1").Offset(2, i_count_zone - 1) = t_h_op_d +' Else +' Dr최대부하.일일난방최대가동시간 = 24 +' 'Dr최대냉난방부하.난방최대가동시간 = 24 ' Worksheets("" & i_count_month & "").Range("최대난방부하1").Offset(2, i_count_zone - 1) = 24 +' End If +' Else +' Dim Dr월에너지요구량 As New C에너지분석(i_count_month, DR존.code) + +' 'Dim Dr월에너지요구량 As DSR.월별에너지분석Row = CType(DSETR.월별에너지분석.Select("월='" & Mon & "' and 존='" & DR존.code & "'")(0), DSR.월별에너지분석Row) +' 'Dr월에너지요구량 = DSETR.에너지분석및요구량.Rows(i_count_month - 1) '//각 월별 시트에 값을 셋트(에너지분석및요구량 테이블에 들어있다) +' If DR존.냉난방방식 = "냉난방" Or DR존.냉난방방식 = "난방" Then '//냉난방,난방 +' Dr월에너지요구량.난방에너지요구량열 = TOSG((Q_h_b_op) / 1000) '=================== Q_h_b_we 2010.2.21 삭제 +' Dr월에너지요구량.난방에너지요구량공조환기 = TOSG(Q_vh_b_op / 1000) +' ' If i_count_month = 1 Then MsgBox("1") +' 'Log.AppendLine("공조값설정=" & CSng(Q_vh_b_op / 1000)) +' ElseIf DR존.냉난방공조 = "냉난방" Or DR존.냉난방공조 = "난방" Then '//냉난방,난방 +' Dr월에너지요구량.난방에너지요구량열 = 0 +' Dr월에너지요구량.난방에너지요구량공조환기 = TOSG((Q_h_b_op) / 1000) '=================== Q_h_b_we 2010.2.21 삭제 + +' '//오류확인용 존1만 확인한다. +' 'If DR존.code = "0001" Then MsgBox(DR존.냉난방방식 & vbCrLf & DR존.냉난방공조 & vbCrLf & CSng((Q_h_b_op + Q_h_b_we) / 1000), MsgBoxStyle.Information, DR존.code) + +' Else +' If (DR존.냉난방공조 = "냉방" Or DR존.냉난방공조 = "환기") And DR존.외기부하처리여부 = "예" Then '냉방/환기/"예" Then +' Dr월에너지요구량.난방에너지요구량열 = 0 +' ' If i_count_month = 1 Then MsgBox("3") +' Dr월에너지요구량.난방에너지요구량공조환기 = TOSG(Q_vh_b_op / 1000) +' Else +' ' If i_count_month = 1 Then MsgBox("4") +' Dr월에너지요구량.난방에너지요구량열 = 0 +' Dr월에너지요구량.난방에너지요구량공조환기 = 0 +' End If +' End If + +' Dr월에너지요구량.조명에너지요구량 = Q_l_b / 1000 + +' ' Log.AppendLine("i_count_HeatCool=" & i_count_HeatCool & "i_count_month=" & i_count_month & ",급탕에너지요구량=" & CSng(Q_w_b / 1000)) +' Dr월에너지요구량.급탕에너지요구량 = Q_w_b / 1000 +' ' MsgBox("난방요구량" & Dr월에너지요구량.난방요구량공조, MsgBoxStyle.Information, i_count_month & "CZONE") +' End If + +' Else +' If i_count_month = 0 Then +' Dr최대부하.최대냉방기기부하 = TOSG((Q_h_b_op) / 1000) '=================== Q_h_b_we 2010.2.21 삭제 +' 'Worksheets("" & i_count_month & "").Range("최대냉방부하1").Offset(0, i_count_zone - 1) = (Q_h_b_op + Q_h_b_we) / 1000 +' If DR존.야간운전방식 = "가동정지" Then '//가동정지 +' Dr최대부하.일일냉방최대가동시간 = t_h_op_d ' Worksheets("" & i_count_month & "").Range("최대냉방부하1").Offset(2, i_count_zone - 1) = t_h_op_d +' Else +' Dr최대부하.일일냉방최대가동시간 = 24 'Worksheets("" & i_count_month & "").Range("최대냉방부하1").Offset(2, i_count_zone - 1) = 24 +' End If + +' Else +' Dim Dr월에너지요구량 As DSR.월별에너지분석Row = CType(DSETR.월별에너지분석.Select("월='" & Mon & "' and 존='" & DR존.code & "'")(0), DSR.월별에너지분석Row) +' If DR존.냉난방방식 = "냉난방" Or DR존.냉난방방식 = "냉방" Then '//냉난방/냉방 +' Dr월에너지요구량.냉방요구량열 = TOSG((Q_h_b_op) / 1000) '=================== Q_h_b_we 2010.2.21 삭제 +' Dr월에너지요구량.냉방요구량공조 = TOSG(Q_vh_b_op / 1000) +' Else +' If DR존.냉난방공조 = "냉난방" Or DR존.냉난방공조 = "냉방" Then '//냉난방/냉방 +' Dr월에너지요구량.냉방요구량열 = 0 +' Dr월에너지요구량.냉방요구량공조 = TOSG((Q_h_b_op) / 1000) '=================== Q_h_b_we 2010.2.21 삭제 +' Else +' If (DR존.냉난방공조 = "난방" Or DR존.냉난방공조 = "환기") And DR존.냉난방공조 = "예" Then '//난방/환기/예 +' Dr월에너지요구량.냉방요구량열 = 0 +' Dr월에너지요구량.냉방요구량공조 = TOSG(Q_vh_b_op / 1000) +' Else +' Dr월에너지요구량.냉방요구량열 = 0 +' Dr월에너지요구량.냉방요구량공조 = 0 +' End If + +' End If +' End If + +' 'MsgBox("냉방요구량" & Dr월에너지요구량.냉방요구량공조, MsgBoxStyle.Information, i_count_month & "CZONE") +' End If +' End If +' Next '(3) + +' Dim CAir As New CAirHandling +' If i_count_month = 0 Then +' CAir.Calc_Max_Power(i_count_HeatCool) '//AIR HANDLING 모듈 에 존재함..역시 내용이 크다 ㅠ_ㅠ +' End If + +' Next '(2) +' Next '(1) + +' Work_msg("에너지분석데이터 집계중...") +' Frm_Work.ProgressBar1.Maximum = 13 +' Frm_Work.ProgressBar1.Minimum = 0 +' Frm_Work.ProgressBar1.Value = 0 +' Frm_Work.TopMost = True +' Frm_Work.Show() +' '//요구량 계산이 완료되었으므로 Summary 계산한다. (이것이 없어서 소요량이 오류났음) +' For Each Dr As C에너지분석 In Result.E분석 '//12달치의 각존들의 데이터를 가지고 합계내역을 추린다. +' Work_plus() +' Dr.Calc() +' Next +' DSETR.AcceptChanges() +' Return True +' End Function + + +' ''' +' ''' (main2)소요량 계산 +' ''' +' ''' +' Public Function Calc_Useage_ALT() As Boolean +' 'Dim d_op_month As Integer +' Dim theta_e_month As Decimal +' Dim d_full_mth As Integer + +' Work_msg("소요량계산중...") +' Frm_Work.ProgressBar1.Maximum = 12 +' Frm_Work.ProgressBar1.Minimum = 0 +' Frm_Work.ProgressBar1.Value = 0 +' Frm_Work.TopMost = True +' Frm_Work.Show() + +' For i_count_month As Short = 1 To 12 '//월별로 난/냉방 소요량을 계산 +' Work_msg("소요량계산중..." & "(" & i_count_month & "/12)") : Work_plus() +' '===============================================2010.2.21 수정 +' 'd_op_month = d_op(i_count_month) +' d_full_mth = CInt(Calc.Pub.d_full(i_count_month)) +' '===============================================2010.2.21 수정 +' theta_e_month = Calc.Pub.theta_e(i_count_month) + +' '///난방 +' Calc.Heating.Calc_WaterheatingSystem(i_count_month, d_full_mth, theta_e_month) '//급탕소요량 '========2010.2.21 수정 +' Calc.AirHandling.Calc_AirHandling(i_count_month, d_full_mth) '//환기? '========2010.2.21 수정 +' If Result.E분석(i_count_month).난방에너지요구량 <> 0 Then Calc.Heating.Calc_HeatingSystem(i_count_month, theta_e_month) '//난방소요량 + +' '///냉방 +' If Result.E분석(i_count_month).냉방에너지요구량 <> 0 Then Calc.Cooling.Calc_CoolingSystem(i_count_month, theta_e_month) +' Next +' DSETR.AcceptChanges() +' Return True +' End Function + + + +'End Class + diff --git a/ArinWarev1/DataSet/DS.Designer.vb b/ArinWarev1/DataSet/DS.Designer.vb new file mode 100644 index 0000000..dbf370d --- /dev/null +++ b/ArinWarev1/DataSet/DS.Designer.vb @@ -0,0 +1,35429 @@ +'------------------------------------------------------------------------------ +' +' 이 코드는 도구를 사용하여 생성되었습니다. +' 런타임 버전:4.0.30319.42000 +' +' 파일 내용을 변경하면 잘못된 동작이 발생할 수 있으며, 코드를 다시 생성하면 +' 이러한 변경 내용이 손실됩니다. +' +'------------------------------------------------------------------------------ + +Option Strict Off +Option Explicit On + + + +''' +'''Represents a strongly typed in-memory cache of data. +''' + _ +Partial Public Class DS + Inherits Global.System.Data.DataSet + + Private tableweather_cha As weather_chaDataTable + + Private tableweather_temp As weather_tempDataTable + + Private tabletbl_weather As tbl_weatherDataTable + + Private tableweather_ilsa As weather_ilsaDataTable + + Private tableweather_supdo As weather_supdoDataTable + + Private tabletbl_profile As tbl_profileDataTable + + Private tabletbl_common As tbl_commonDataTable + + Private tabletbl_pic As tbl_picDataTable + + Private tabletbl_nanbangkiki As tbl_nanbangkikiDataTable + + Private tabletbl_nangbangkiki As tbl_nangbangkikiDataTable + + Private tabletbl_bunbae As tbl_bunbaeDataTable + + Private tabletbl_new As tbl_newDataTable + + Private tabletbl_myoun As tbl_myounDataTable + + Private tabletbl_buha As tbl_buhaDataTable + + Private tabletbl_nbunbae As tbl_nbunbaeDataTable + + Private tabletbl_kongjo As tbl_kongjoDataTable + + Private tabletbl_kongkub As tbl_kongkubDataTable + + Private tabletbl_yk As tbl_ykDataTable + + Private tabletbl_ykdetail As tbl_ykdetailDataTable + + Private tabletbl_zone As tbl_zoneDataTable + + Private tabletbl_monuse As tbl_monuseDataTable + + Private tabletbl_Desc As tbl_DescDataTable + + Private _schemaSerializationMode As Global.System.Data.SchemaSerializationMode = Global.System.Data.SchemaSerializationMode.IncludeSchema + + _ + Public Sub New() + MyBase.New + Me.BeginInit + Me.InitClass + Dim schemaChangedHandler As Global.System.ComponentModel.CollectionChangeEventHandler = AddressOf Me.SchemaChanged + AddHandler MyBase.Tables.CollectionChanged, schemaChangedHandler + AddHandler MyBase.Relations.CollectionChanged, schemaChangedHandler + Me.EndInit + Me.InitExpressions + 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, false) + If (Me.IsBinarySerialized(info, context) = true) Then + Me.InitVars(false) + Dim schemaChangedHandler1 As Global.System.ComponentModel.CollectionChangeEventHandler = AddressOf Me.SchemaChanged + AddHandler Me.Tables.CollectionChanged, schemaChangedHandler1 + AddHandler Me.Relations.CollectionChanged, schemaChangedHandler1 + If (Me.DetermineSchemaSerializationMode(info, context) = Global.System.Data.SchemaSerializationMode.ExcludeSchema) Then + Me.InitExpressions + End If + Return + End If + Dim strSchema As String = CType(info.GetValue("XmlSchema", GetType(String)),String) + If (Me.DetermineSchemaSerializationMode(info, context) = Global.System.Data.SchemaSerializationMode.IncludeSchema) Then + Dim ds As Global.System.Data.DataSet = New Global.System.Data.DataSet() + ds.ReadXmlSchema(New Global.System.Xml.XmlTextReader(New Global.System.IO.StringReader(strSchema))) + If (Not (ds.Tables("weather_cha")) Is Nothing) Then + MyBase.Tables.Add(New weather_chaDataTable(ds.Tables("weather_cha"))) + End If + If (Not (ds.Tables("weather_temp")) Is Nothing) Then + MyBase.Tables.Add(New weather_tempDataTable(ds.Tables("weather_temp"))) + End If + If (Not (ds.Tables("tbl_weather")) Is Nothing) Then + MyBase.Tables.Add(New tbl_weatherDataTable(ds.Tables("tbl_weather"))) + End If + If (Not (ds.Tables("weather_ilsa")) Is Nothing) Then + MyBase.Tables.Add(New weather_ilsaDataTable(ds.Tables("weather_ilsa"))) + End If + If (Not (ds.Tables("weather_supdo")) Is Nothing) Then + MyBase.Tables.Add(New weather_supdoDataTable(ds.Tables("weather_supdo"))) + End If + If (Not (ds.Tables("tbl_profile")) Is Nothing) Then + MyBase.Tables.Add(New tbl_profileDataTable(ds.Tables("tbl_profile"))) + End If + If (Not (ds.Tables("tbl_common")) Is Nothing) Then + MyBase.Tables.Add(New tbl_commonDataTable(ds.Tables("tbl_common"))) + End If + If (Not (ds.Tables("tbl_pic")) Is Nothing) Then + MyBase.Tables.Add(New tbl_picDataTable(ds.Tables("tbl_pic"))) + End If + If (Not (ds.Tables("tbl_nanbangkiki")) Is Nothing) Then + MyBase.Tables.Add(New tbl_nanbangkikiDataTable(ds.Tables("tbl_nanbangkiki"))) + End If + If (Not (ds.Tables("tbl_nangbangkiki")) Is Nothing) Then + MyBase.Tables.Add(New tbl_nangbangkikiDataTable(ds.Tables("tbl_nangbangkiki"))) + End If + If (Not (ds.Tables("tbl_bunbae")) Is Nothing) Then + MyBase.Tables.Add(New tbl_bunbaeDataTable(ds.Tables("tbl_bunbae"))) + End If + If (Not (ds.Tables("tbl_new")) Is Nothing) Then + MyBase.Tables.Add(New tbl_newDataTable(ds.Tables("tbl_new"))) + End If + If (Not (ds.Tables("tbl_myoun")) Is Nothing) Then + MyBase.Tables.Add(New tbl_myounDataTable(ds.Tables("tbl_myoun"))) + End If + If (Not (ds.Tables("tbl_buha")) Is Nothing) Then + MyBase.Tables.Add(New tbl_buhaDataTable(ds.Tables("tbl_buha"))) + End If + If (Not (ds.Tables("tbl_nbunbae")) Is Nothing) Then + MyBase.Tables.Add(New tbl_nbunbaeDataTable(ds.Tables("tbl_nbunbae"))) + End If + If (Not (ds.Tables("tbl_kongjo")) Is Nothing) Then + MyBase.Tables.Add(New tbl_kongjoDataTable(ds.Tables("tbl_kongjo"))) + End If + If (Not (ds.Tables("tbl_kongkub")) Is Nothing) Then + MyBase.Tables.Add(New tbl_kongkubDataTable(ds.Tables("tbl_kongkub"))) + End If + If (Not (ds.Tables("tbl_yk")) Is Nothing) Then + MyBase.Tables.Add(New tbl_ykDataTable(ds.Tables("tbl_yk"))) + End If + If (Not (ds.Tables("tbl_ykdetail")) Is Nothing) Then + MyBase.Tables.Add(New tbl_ykdetailDataTable(ds.Tables("tbl_ykdetail"))) + End If + If (Not (ds.Tables("tbl_zone")) Is Nothing) Then + MyBase.Tables.Add(New tbl_zoneDataTable(ds.Tables("tbl_zone"))) + End If + If (Not (ds.Tables("tbl_monuse")) Is Nothing) Then + MyBase.Tables.Add(New tbl_monuseDataTable(ds.Tables("tbl_monuse"))) + End If + If (Not (ds.Tables("tbl_Desc")) Is Nothing) Then + MyBase.Tables.Add(New tbl_DescDataTable(ds.Tables("tbl_Desc"))) + End If + Me.DataSetName = ds.DataSetName + Me.Prefix = ds.Prefix + Me.Namespace = ds.Namespace + Me.Locale = ds.Locale + Me.CaseSensitive = ds.CaseSensitive + Me.EnforceConstraints = ds.EnforceConstraints + Me.Merge(ds, false, Global.System.Data.MissingSchemaAction.Add) + Me.InitVars + Else + Me.ReadXmlSchema(New Global.System.Xml.XmlTextReader(New Global.System.IO.StringReader(strSchema))) + Me.InitExpressions + End If + Me.GetSerializationData(info, context) + Dim schemaChangedHandler As Global.System.ComponentModel.CollectionChangeEventHandler = AddressOf Me.SchemaChanged + AddHandler MyBase.Tables.CollectionChanged, schemaChangedHandler + AddHandler Me.Relations.CollectionChanged, schemaChangedHandler + End Sub + + _ + Public ReadOnly Property weather_cha() As weather_chaDataTable + Get + Return Me.tableweather_cha + End Get + End Property + + _ + Public ReadOnly Property weather_temp() As weather_tempDataTable + Get + Return Me.tableweather_temp + End Get + End Property + + _ + Public ReadOnly Property tbl_weather() As tbl_weatherDataTable + Get + Return Me.tabletbl_weather + End Get + End Property + + _ + Public ReadOnly Property weather_ilsa() As weather_ilsaDataTable + Get + Return Me.tableweather_ilsa + End Get + End Property + + _ + Public ReadOnly Property weather_supdo() As weather_supdoDataTable + Get + Return Me.tableweather_supdo + End Get + End Property + + _ + Public ReadOnly Property tbl_profile() As tbl_profileDataTable + Get + Return Me.tabletbl_profile + End Get + End Property + + _ + Public ReadOnly Property tbl_common() As tbl_commonDataTable + Get + Return Me.tabletbl_common + End Get + End Property + + _ + Public ReadOnly Property tbl_pic() As tbl_picDataTable + Get + Return Me.tabletbl_pic + End Get + End Property + + _ + Public ReadOnly Property tbl_nanbangkiki() As tbl_nanbangkikiDataTable + Get + Return Me.tabletbl_nanbangkiki + End Get + End Property + + _ + Public ReadOnly Property tbl_nangbangkiki() As tbl_nangbangkikiDataTable + Get + Return Me.tabletbl_nangbangkiki + End Get + End Property + + _ + Public ReadOnly Property tbl_bunbae() As tbl_bunbaeDataTable + Get + Return Me.tabletbl_bunbae + End Get + End Property + + _ + Public ReadOnly Property tbl_new() As tbl_newDataTable + Get + Return Me.tabletbl_new + End Get + End Property + + _ + Public ReadOnly Property tbl_myoun() As tbl_myounDataTable + Get + Return Me.tabletbl_myoun + End Get + End Property + + _ + Public ReadOnly Property tbl_buha() As tbl_buhaDataTable + Get + Return Me.tabletbl_buha + End Get + End Property + + _ + Public ReadOnly Property tbl_nbunbae() As tbl_nbunbaeDataTable + Get + Return Me.tabletbl_nbunbae + End Get + End Property + + _ + Public ReadOnly Property tbl_kongjo() As tbl_kongjoDataTable + Get + Return Me.tabletbl_kongjo + End Get + End Property + + _ + Public ReadOnly Property tbl_kongkub() As tbl_kongkubDataTable + Get + Return Me.tabletbl_kongkub + End Get + End Property + + _ + Public ReadOnly Property tbl_yk() As tbl_ykDataTable + Get + Return Me.tabletbl_yk + End Get + End Property + + _ + Public ReadOnly Property tbl_ykdetail() As tbl_ykdetailDataTable + Get + Return Me.tabletbl_ykdetail + End Get + End Property + + _ + Public ReadOnly Property tbl_zone() As tbl_zoneDataTable + Get + Return Me.tabletbl_zone + End Get + End Property + + _ + Public ReadOnly Property tbl_monuse() As tbl_monuseDataTable + Get + Return Me.tabletbl_monuse + End Get + End Property + + _ + Public ReadOnly Property tbl_Desc() As tbl_DescDataTable + Get + Return Me.tabletbl_Desc + End Get + End Property + + _ + Public Overrides Property SchemaSerializationMode() As Global.System.Data.SchemaSerializationMode + Get + Return Me._schemaSerializationMode + End Get + Set + Me._schemaSerializationMode = value + End Set + End Property + + _ + Public Shadows ReadOnly Property Tables() As Global.System.Data.DataTableCollection + Get + Return MyBase.Tables + End Get + End Property + + _ + Public Shadows ReadOnly Property Relations() As Global.System.Data.DataRelationCollection + Get + Return MyBase.Relations + End Get + End Property + + _ + Protected Overrides Sub InitializeDerivedDataSet() + Me.BeginInit + Me.InitClass + Me.EndInit + End Sub + + _ + Public Overrides Function Clone() As Global.System.Data.DataSet + Dim cln As DS = CType(MyBase.Clone,DS) + cln.InitVars + cln.InitExpressions + cln.SchemaSerializationMode = Me.SchemaSerializationMode + Return cln + End Function + + _ + Protected Overrides Function ShouldSerializeTables() As Boolean + Return false + End Function + + _ + Protected Overrides Function ShouldSerializeRelations() As Boolean + Return false + End Function + + _ + Protected Overrides Sub ReadXmlSerializable(ByVal reader As Global.System.Xml.XmlReader) + If (Me.DetermineSchemaSerializationMode(reader) = Global.System.Data.SchemaSerializationMode.IncludeSchema) Then + Me.Reset + Dim ds As Global.System.Data.DataSet = New Global.System.Data.DataSet() + ds.ReadXml(reader) + If (Not (ds.Tables("weather_cha")) Is Nothing) Then + MyBase.Tables.Add(New weather_chaDataTable(ds.Tables("weather_cha"))) + End If + If (Not (ds.Tables("weather_temp")) Is Nothing) Then + MyBase.Tables.Add(New weather_tempDataTable(ds.Tables("weather_temp"))) + End If + If (Not (ds.Tables("tbl_weather")) Is Nothing) Then + MyBase.Tables.Add(New tbl_weatherDataTable(ds.Tables("tbl_weather"))) + End If + If (Not (ds.Tables("weather_ilsa")) Is Nothing) Then + MyBase.Tables.Add(New weather_ilsaDataTable(ds.Tables("weather_ilsa"))) + End If + If (Not (ds.Tables("weather_supdo")) Is Nothing) Then + MyBase.Tables.Add(New weather_supdoDataTable(ds.Tables("weather_supdo"))) + End If + If (Not (ds.Tables("tbl_profile")) Is Nothing) Then + MyBase.Tables.Add(New tbl_profileDataTable(ds.Tables("tbl_profile"))) + End If + If (Not (ds.Tables("tbl_common")) Is Nothing) Then + MyBase.Tables.Add(New tbl_commonDataTable(ds.Tables("tbl_common"))) + End If + If (Not (ds.Tables("tbl_pic")) Is Nothing) Then + MyBase.Tables.Add(New tbl_picDataTable(ds.Tables("tbl_pic"))) + End If + If (Not (ds.Tables("tbl_nanbangkiki")) Is Nothing) Then + MyBase.Tables.Add(New tbl_nanbangkikiDataTable(ds.Tables("tbl_nanbangkiki"))) + End If + If (Not (ds.Tables("tbl_nangbangkiki")) Is Nothing) Then + MyBase.Tables.Add(New tbl_nangbangkikiDataTable(ds.Tables("tbl_nangbangkiki"))) + End If + If (Not (ds.Tables("tbl_bunbae")) Is Nothing) Then + MyBase.Tables.Add(New tbl_bunbaeDataTable(ds.Tables("tbl_bunbae"))) + End If + If (Not (ds.Tables("tbl_new")) Is Nothing) Then + MyBase.Tables.Add(New tbl_newDataTable(ds.Tables("tbl_new"))) + End If + If (Not (ds.Tables("tbl_myoun")) Is Nothing) Then + MyBase.Tables.Add(New tbl_myounDataTable(ds.Tables("tbl_myoun"))) + End If + If (Not (ds.Tables("tbl_buha")) Is Nothing) Then + MyBase.Tables.Add(New tbl_buhaDataTable(ds.Tables("tbl_buha"))) + End If + If (Not (ds.Tables("tbl_nbunbae")) Is Nothing) Then + MyBase.Tables.Add(New tbl_nbunbaeDataTable(ds.Tables("tbl_nbunbae"))) + End If + If (Not (ds.Tables("tbl_kongjo")) Is Nothing) Then + MyBase.Tables.Add(New tbl_kongjoDataTable(ds.Tables("tbl_kongjo"))) + End If + If (Not (ds.Tables("tbl_kongkub")) Is Nothing) Then + MyBase.Tables.Add(New tbl_kongkubDataTable(ds.Tables("tbl_kongkub"))) + End If + If (Not (ds.Tables("tbl_yk")) Is Nothing) Then + MyBase.Tables.Add(New tbl_ykDataTable(ds.Tables("tbl_yk"))) + End If + If (Not (ds.Tables("tbl_ykdetail")) Is Nothing) Then + MyBase.Tables.Add(New tbl_ykdetailDataTable(ds.Tables("tbl_ykdetail"))) + End If + If (Not (ds.Tables("tbl_zone")) Is Nothing) Then + MyBase.Tables.Add(New tbl_zoneDataTable(ds.Tables("tbl_zone"))) + End If + If (Not (ds.Tables("tbl_monuse")) Is Nothing) Then + MyBase.Tables.Add(New tbl_monuseDataTable(ds.Tables("tbl_monuse"))) + End If + If (Not (ds.Tables("tbl_Desc")) Is Nothing) Then + MyBase.Tables.Add(New tbl_DescDataTable(ds.Tables("tbl_Desc"))) + End If + Me.DataSetName = ds.DataSetName + Me.Prefix = ds.Prefix + Me.Namespace = ds.Namespace + Me.Locale = ds.Locale + Me.CaseSensitive = ds.CaseSensitive + Me.EnforceConstraints = ds.EnforceConstraints + Me.Merge(ds, false, Global.System.Data.MissingSchemaAction.Add) + Me.InitVars + Else + Me.ReadXml(reader) + Me.InitVars + End If + End Sub + + _ + Protected Overrides Function GetSchemaSerializable() As Global.System.Xml.Schema.XmlSchema + Dim stream As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() + Me.WriteXmlSchema(New Global.System.Xml.XmlTextWriter(stream, Nothing)) + stream.Position = 0 + Return Global.System.Xml.Schema.XmlSchema.Read(New Global.System.Xml.XmlTextReader(stream), Nothing) + End Function + + _ + Friend Overloads Sub InitVars() + Me.InitVars(true) + End Sub + + _ + Friend Overloads Sub InitVars(ByVal initTable As Boolean) + Me.tableweather_cha = CType(MyBase.Tables("weather_cha"),weather_chaDataTable) + If (initTable = true) Then + If (Not (Me.tableweather_cha) Is Nothing) Then + Me.tableweather_cha.InitVars + End If + End If + Me.tableweather_temp = CType(MyBase.Tables("weather_temp"),weather_tempDataTable) + If (initTable = true) Then + If (Not (Me.tableweather_temp) Is Nothing) Then + Me.tableweather_temp.InitVars + End If + End If + Me.tabletbl_weather = CType(MyBase.Tables("tbl_weather"),tbl_weatherDataTable) + If (initTable = true) Then + If (Not (Me.tabletbl_weather) Is Nothing) Then + Me.tabletbl_weather.InitVars + End If + End If + Me.tableweather_ilsa = CType(MyBase.Tables("weather_ilsa"),weather_ilsaDataTable) + If (initTable = true) Then + If (Not (Me.tableweather_ilsa) Is Nothing) Then + Me.tableweather_ilsa.InitVars + End If + End If + Me.tableweather_supdo = CType(MyBase.Tables("weather_supdo"),weather_supdoDataTable) + If (initTable = true) Then + If (Not (Me.tableweather_supdo) Is Nothing) Then + Me.tableweather_supdo.InitVars + End If + End If + Me.tabletbl_profile = CType(MyBase.Tables("tbl_profile"),tbl_profileDataTable) + If (initTable = true) Then + If (Not (Me.tabletbl_profile) Is Nothing) Then + Me.tabletbl_profile.InitVars + End If + End If + Me.tabletbl_common = CType(MyBase.Tables("tbl_common"),tbl_commonDataTable) + If (initTable = true) Then + If (Not (Me.tabletbl_common) Is Nothing) Then + Me.tabletbl_common.InitVars + End If + End If + Me.tabletbl_pic = CType(MyBase.Tables("tbl_pic"),tbl_picDataTable) + If (initTable = true) Then + If (Not (Me.tabletbl_pic) Is Nothing) Then + Me.tabletbl_pic.InitVars + End If + End If + Me.tabletbl_nanbangkiki = CType(MyBase.Tables("tbl_nanbangkiki"),tbl_nanbangkikiDataTable) + If (initTable = true) Then + If (Not (Me.tabletbl_nanbangkiki) Is Nothing) Then + Me.tabletbl_nanbangkiki.InitVars + End If + End If + Me.tabletbl_nangbangkiki = CType(MyBase.Tables("tbl_nangbangkiki"),tbl_nangbangkikiDataTable) + If (initTable = true) Then + If (Not (Me.tabletbl_nangbangkiki) Is Nothing) Then + Me.tabletbl_nangbangkiki.InitVars + End If + End If + Me.tabletbl_bunbae = CType(MyBase.Tables("tbl_bunbae"),tbl_bunbaeDataTable) + If (initTable = true) Then + If (Not (Me.tabletbl_bunbae) Is Nothing) Then + Me.tabletbl_bunbae.InitVars + End If + End If + Me.tabletbl_new = CType(MyBase.Tables("tbl_new"),tbl_newDataTable) + If (initTable = true) Then + If (Not (Me.tabletbl_new) Is Nothing) Then + Me.tabletbl_new.InitVars + End If + End If + Me.tabletbl_myoun = CType(MyBase.Tables("tbl_myoun"),tbl_myounDataTable) + If (initTable = true) Then + If (Not (Me.tabletbl_myoun) Is Nothing) Then + Me.tabletbl_myoun.InitVars + End If + End If + Me.tabletbl_buha = CType(MyBase.Tables("tbl_buha"),tbl_buhaDataTable) + If (initTable = true) Then + If (Not (Me.tabletbl_buha) Is Nothing) Then + Me.tabletbl_buha.InitVars + End If + End If + Me.tabletbl_nbunbae = CType(MyBase.Tables("tbl_nbunbae"),tbl_nbunbaeDataTable) + If (initTable = true) Then + If (Not (Me.tabletbl_nbunbae) Is Nothing) Then + Me.tabletbl_nbunbae.InitVars + End If + End If + Me.tabletbl_kongjo = CType(MyBase.Tables("tbl_kongjo"),tbl_kongjoDataTable) + If (initTable = true) Then + If (Not (Me.tabletbl_kongjo) Is Nothing) Then + Me.tabletbl_kongjo.InitVars + End If + End If + Me.tabletbl_kongkub = CType(MyBase.Tables("tbl_kongkub"),tbl_kongkubDataTable) + If (initTable = true) Then + If (Not (Me.tabletbl_kongkub) Is Nothing) Then + Me.tabletbl_kongkub.InitVars + End If + End If + Me.tabletbl_yk = CType(MyBase.Tables("tbl_yk"),tbl_ykDataTable) + If (initTable = true) Then + If (Not (Me.tabletbl_yk) Is Nothing) Then + Me.tabletbl_yk.InitVars + End If + End If + Me.tabletbl_ykdetail = CType(MyBase.Tables("tbl_ykdetail"),tbl_ykdetailDataTable) + If (initTable = true) Then + If (Not (Me.tabletbl_ykdetail) Is Nothing) Then + Me.tabletbl_ykdetail.InitVars + End If + End If + Me.tabletbl_zone = CType(MyBase.Tables("tbl_zone"),tbl_zoneDataTable) + If (initTable = true) Then + If (Not (Me.tabletbl_zone) Is Nothing) Then + Me.tabletbl_zone.InitVars + End If + End If + Me.tabletbl_monuse = CType(MyBase.Tables("tbl_monuse"),tbl_monuseDataTable) + If (initTable = true) Then + If (Not (Me.tabletbl_monuse) Is Nothing) Then + Me.tabletbl_monuse.InitVars + End If + End If + Me.tabletbl_Desc = CType(MyBase.Tables("tbl_Desc"),tbl_DescDataTable) + If (initTable = true) Then + If (Not (Me.tabletbl_Desc) Is Nothing) Then + Me.tabletbl_Desc.InitVars + End If + End If + End Sub + + _ + Private Sub InitClass() + Me.DataSetName = "DS" + Me.Prefix = "" + Me.Namespace = "http://tempuri.org/DS.xsd" + Me.EnforceConstraints = true + Me.SchemaSerializationMode = Global.System.Data.SchemaSerializationMode.IncludeSchema + Me.tableweather_cha = New weather_chaDataTable() + MyBase.Tables.Add(Me.tableweather_cha) + Me.tableweather_temp = New weather_tempDataTable() + MyBase.Tables.Add(Me.tableweather_temp) + Me.tabletbl_weather = New tbl_weatherDataTable() + MyBase.Tables.Add(Me.tabletbl_weather) + Me.tableweather_ilsa = New weather_ilsaDataTable() + MyBase.Tables.Add(Me.tableweather_ilsa) + Me.tableweather_supdo = New weather_supdoDataTable() + MyBase.Tables.Add(Me.tableweather_supdo) + Me.tabletbl_profile = New tbl_profileDataTable() + MyBase.Tables.Add(Me.tabletbl_profile) + Me.tabletbl_common = New tbl_commonDataTable(false) + MyBase.Tables.Add(Me.tabletbl_common) + Me.tabletbl_pic = New tbl_picDataTable() + MyBase.Tables.Add(Me.tabletbl_pic) + Me.tabletbl_nanbangkiki = New tbl_nanbangkikiDataTable() + MyBase.Tables.Add(Me.tabletbl_nanbangkiki) + Me.tabletbl_nangbangkiki = New tbl_nangbangkikiDataTable() + MyBase.Tables.Add(Me.tabletbl_nangbangkiki) + Me.tabletbl_bunbae = New tbl_bunbaeDataTable() + MyBase.Tables.Add(Me.tabletbl_bunbae) + Me.tabletbl_new = New tbl_newDataTable() + MyBase.Tables.Add(Me.tabletbl_new) + Me.tabletbl_myoun = New tbl_myounDataTable() + MyBase.Tables.Add(Me.tabletbl_myoun) + Me.tabletbl_buha = New tbl_buhaDataTable() + MyBase.Tables.Add(Me.tabletbl_buha) + Me.tabletbl_nbunbae = New tbl_nbunbaeDataTable() + MyBase.Tables.Add(Me.tabletbl_nbunbae) + Me.tabletbl_kongjo = New tbl_kongjoDataTable() + MyBase.Tables.Add(Me.tabletbl_kongjo) + Me.tabletbl_kongkub = New tbl_kongkubDataTable() + MyBase.Tables.Add(Me.tabletbl_kongkub) + Me.tabletbl_yk = New tbl_ykDataTable() + MyBase.Tables.Add(Me.tabletbl_yk) + Me.tabletbl_ykdetail = New tbl_ykdetailDataTable() + MyBase.Tables.Add(Me.tabletbl_ykdetail) + Me.tabletbl_zone = New tbl_zoneDataTable(false) + MyBase.Tables.Add(Me.tabletbl_zone) + Me.tabletbl_monuse = New tbl_monuseDataTable() + MyBase.Tables.Add(Me.tabletbl_monuse) + Me.tabletbl_Desc = New tbl_DescDataTable() + MyBase.Tables.Add(Me.tabletbl_Desc) + End Sub + + _ + Private Function ShouldSerializeweather_cha() As Boolean + Return false + End Function + + _ + Private Function ShouldSerializeweather_temp() As Boolean + Return false + End Function + + _ + Private Function ShouldSerializetbl_weather() As Boolean + Return false + End Function + + _ + Private Function ShouldSerializeweather_ilsa() As Boolean + Return false + End Function + + _ + Private Function ShouldSerializeweather_supdo() As Boolean + Return false + End Function + + _ + Private Function ShouldSerializetbl_profile() As Boolean + Return false + End Function + + _ + Private Function ShouldSerializetbl_common() As Boolean + Return false + End Function + + _ + Private Function ShouldSerializetbl_pic() As Boolean + Return false + End Function + + _ + Private Function ShouldSerializetbl_nanbangkiki() As Boolean + Return false + End Function + + _ + Private Function ShouldSerializetbl_nangbangkiki() As Boolean + Return false + End Function + + _ + Private Function ShouldSerializetbl_bunbae() As Boolean + Return false + End Function + + _ + Private Function ShouldSerializetbl_new() As Boolean + Return false + End Function + + _ + Private Function ShouldSerializetbl_myoun() As Boolean + Return false + End Function + + _ + Private Function ShouldSerializetbl_buha() As Boolean + Return false + End Function + + _ + Private Function ShouldSerializetbl_nbunbae() As Boolean + Return false + End Function + + _ + Private Function ShouldSerializetbl_kongjo() As Boolean + Return false + End Function + + _ + Private Function ShouldSerializetbl_kongkub() As Boolean + Return false + End Function + + _ + Private Function ShouldSerializetbl_yk() As Boolean + Return false + End Function + + _ + Private Function ShouldSerializetbl_ykdetail() As Boolean + Return false + End Function + + _ + Private Function ShouldSerializetbl_zone() As Boolean + Return false + End Function + + _ + Private Function ShouldSerializetbl_monuse() As Boolean + Return false + End Function + + _ + Private Function ShouldSerializetbl_Desc() As Boolean + Return false + End Function + + _ + Private Sub SchemaChanged(ByVal sender As Object, ByVal e As Global.System.ComponentModel.CollectionChangeEventArgs) + If (e.Action = Global.System.ComponentModel.CollectionChangeAction.Remove) Then + Me.InitVars + End If + End Sub + + _ + Public Shared Function GetTypedDataSetSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType + Dim ds As DS = New DS() + 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 any As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() + any.Namespace = ds.Namespace + sequence.Items.Add(any) + 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 + + _ + Private Sub InitExpressions() + Me.tbl_common.codenameColumn.Expression = "'(' + code + ')' +name" + Me.tbl_zone.그룹설명Column.Expression = "'[' + 그룹+'] '+설명" + End Sub + + _ + Public Delegate Sub weather_chaRowChangeEventHandler(ByVal sender As Object, ByVal e As weather_chaRowChangeEvent) + + _ + Public Delegate Sub weather_tempRowChangeEventHandler(ByVal sender As Object, ByVal e As weather_tempRowChangeEvent) + + _ + Public Delegate Sub tbl_weatherRowChangeEventHandler(ByVal sender As Object, ByVal e As tbl_weatherRowChangeEvent) + + _ + Public Delegate Sub weather_ilsaRowChangeEventHandler(ByVal sender As Object, ByVal e As weather_ilsaRowChangeEvent) + + _ + Public Delegate Sub weather_supdoRowChangeEventHandler(ByVal sender As Object, ByVal e As weather_supdoRowChangeEvent) + + _ + Public Delegate Sub tbl_profileRowChangeEventHandler(ByVal sender As Object, ByVal e As tbl_profileRowChangeEvent) + + _ + Public Delegate Sub tbl_commonRowChangeEventHandler(ByVal sender As Object, ByVal e As tbl_commonRowChangeEvent) + + _ + Public Delegate Sub tbl_picRowChangeEventHandler(ByVal sender As Object, ByVal e As tbl_picRowChangeEvent) + + _ + Public Delegate Sub tbl_nanbangkikiRowChangeEventHandler(ByVal sender As Object, ByVal e As tbl_nanbangkikiRowChangeEvent) + + _ + Public Delegate Sub tbl_nangbangkikiRowChangeEventHandler(ByVal sender As Object, ByVal e As tbl_nangbangkikiRowChangeEvent) + + _ + Public Delegate Sub tbl_bunbaeRowChangeEventHandler(ByVal sender As Object, ByVal e As tbl_bunbaeRowChangeEvent) + + _ + Public Delegate Sub tbl_newRowChangeEventHandler(ByVal sender As Object, ByVal e As tbl_newRowChangeEvent) + + _ + Public Delegate Sub tbl_myounRowChangeEventHandler(ByVal sender As Object, ByVal e As tbl_myounRowChangeEvent) + + _ + Public Delegate Sub tbl_buhaRowChangeEventHandler(ByVal sender As Object, ByVal e As tbl_buhaRowChangeEvent) + + _ + Public Delegate Sub tbl_nbunbaeRowChangeEventHandler(ByVal sender As Object, ByVal e As tbl_nbunbaeRowChangeEvent) + + _ + Public Delegate Sub tbl_kongjoRowChangeEventHandler(ByVal sender As Object, ByVal e As tbl_kongjoRowChangeEvent) + + _ + Public Delegate Sub tbl_kongkubRowChangeEventHandler(ByVal sender As Object, ByVal e As tbl_kongkubRowChangeEvent) + + _ + Public Delegate Sub tbl_ykRowChangeEventHandler(ByVal sender As Object, ByVal e As tbl_ykRowChangeEvent) + + _ + Public Delegate Sub tbl_ykdetailRowChangeEventHandler(ByVal sender As Object, ByVal e As tbl_ykdetailRowChangeEvent) + + _ + Public Delegate Sub tbl_zoneRowChangeEventHandler(ByVal sender As Object, ByVal e As tbl_zoneRowChangeEvent) + + _ + Public Delegate Sub tbl_monuseRowChangeEventHandler(ByVal sender As Object, ByVal e As tbl_monuseRowChangeEvent) + + _ + Public Delegate Sub tbl_DescRowChangeEventHandler(ByVal sender As Object, ByVal e As tbl_DescRowChangeEvent) + + ''' + '''Represents the strongly named DataTable class. + ''' + _ + Partial Public Class weather_chaDataTable + Inherits Global.System.Data.TypedTableBase(Of weather_chaRow) + + 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_cha" + 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_chaRow + Get + Return CType(Me.Rows(index),weather_chaRow) + End Get + End Property + + _ + Public Event weather_chaRowChanging As weather_chaRowChangeEventHandler + + _ + Public Event weather_chaRowChanged As weather_chaRowChangeEventHandler + + _ + Public Event weather_chaRowDeleting As weather_chaRowChangeEventHandler + + _ + Public Event weather_chaRowDeleted As weather_chaRowChangeEventHandler + + _ + Public Overloads Sub Addweather_chaRow(ByVal row As weather_chaRow) + Me.Rows.Add(row) + End Sub + + _ + Public Overloads Function Addweather_chaRow(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_chaRow + Dim rowweather_chaRow As weather_chaRow = CType(Me.NewRow,weather_chaRow) + Dim columnValuesArray() As Object = New Object() {pcode, code, 설명, m01, m02, m03, m04, m05, m06, m07, m08, m09, m10, m11, m12} + rowweather_chaRow.ItemArray = columnValuesArray + Me.Rows.Add(rowweather_chaRow) + Return rowweather_chaRow + End Function + + _ + Public Function FindBypcodecode(ByVal pcode As String, ByVal code As String) As weather_chaRow + Return CType(Me.Rows.Find(New Object() {pcode, code}),weather_chaRow) + End Function + + _ + Public Overrides Function Clone() As Global.System.Data.DataTable + Dim cln As weather_chaDataTable = CType(MyBase.Clone,weather_chaDataTable) + cln.InitVars + Return cln + End Function + + _ + Protected Overrides Function CreateInstance() As Global.System.Data.DataTable + Return New weather_chaDataTable() + 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_chaRow() As weather_chaRow + Return CType(Me.NewRow,weather_chaRow) + End Function + + _ + Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow + Return New weather_chaRow(builder) + End Function + + _ + Protected Overrides Function GetRowType() As Global.System.Type + Return GetType(weather_chaRow) + End Function + + _ + Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanged(e) + If (Not (Me.weather_chaRowChangedEvent) Is Nothing) Then + RaiseEvent weather_chaRowChanged(Me, New weather_chaRowChangeEvent(CType(e.Row,weather_chaRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanging(e) + If (Not (Me.weather_chaRowChangingEvent) Is Nothing) Then + RaiseEvent weather_chaRowChanging(Me, New weather_chaRowChangeEvent(CType(e.Row,weather_chaRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleted(e) + If (Not (Me.weather_chaRowDeletedEvent) Is Nothing) Then + RaiseEvent weather_chaRowDeleted(Me, New weather_chaRowChangeEvent(CType(e.Row,weather_chaRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleting(e) + If (Not (Me.weather_chaRowDeletingEvent) Is Nothing) Then + RaiseEvent weather_chaRowDeleting(Me, New weather_chaRowChangeEvent(CType(e.Row,weather_chaRow), e.Action)) + End If + End Sub + + _ + Public Sub Removeweather_chaRow(ByVal row As weather_chaRow) + 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_chaDataTable" + 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_tempDataTable + Inherits Global.System.Data.TypedTableBase(Of weather_tempRow) + + Private columnpcode As Global.System.Data.DataColumn + + Private columncode As Global.System.Data.DataColumn + + Private column설명 As Global.System.Data.DataColumn + + Private columnt01 As Global.System.Data.DataColumn + + Private columnt02 As Global.System.Data.DataColumn + + Private columnt03 As Global.System.Data.DataColumn + + Private columnt04 As Global.System.Data.DataColumn + + Private columnt05 As Global.System.Data.DataColumn + + Private columnt06 As Global.System.Data.DataColumn + + Private columnt07 As Global.System.Data.DataColumn + + Private columnt08 As Global.System.Data.DataColumn + + Private columnt09 As Global.System.Data.DataColumn + + Private columnt10 As Global.System.Data.DataColumn + + Private columnt11 As Global.System.Data.DataColumn + + Private columnt12 As Global.System.Data.DataColumn + + Private columnt13 As Global.System.Data.DataColumn + + Private columnt14 As Global.System.Data.DataColumn + + Private columnt15 As Global.System.Data.DataColumn + + Private columnt16 As Global.System.Data.DataColumn + + Private columnt17 As Global.System.Data.DataColumn + + Private columnt18 As Global.System.Data.DataColumn + + Private columnt19 As Global.System.Data.DataColumn + + Private columnt20 As Global.System.Data.DataColumn + + Private columnt21 As Global.System.Data.DataColumn + + Private columnt22 As Global.System.Data.DataColumn + + Private columnt23 As Global.System.Data.DataColumn + + Private columnt24 As Global.System.Data.DataColumn + + _ + Public Sub New() + MyBase.New + Me.TableName = "weather_temp" + 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 t01Column() As Global.System.Data.DataColumn + Get + Return Me.columnt01 + End Get + End Property + + _ + Public ReadOnly Property t02Column() As Global.System.Data.DataColumn + Get + Return Me.columnt02 + End Get + End Property + + _ + Public ReadOnly Property t03Column() As Global.System.Data.DataColumn + Get + Return Me.columnt03 + End Get + End Property + + _ + Public ReadOnly Property t04Column() As Global.System.Data.DataColumn + Get + Return Me.columnt04 + End Get + End Property + + _ + Public ReadOnly Property t05Column() As Global.System.Data.DataColumn + Get + Return Me.columnt05 + End Get + End Property + + _ + Public ReadOnly Property t06Column() As Global.System.Data.DataColumn + Get + Return Me.columnt06 + End Get + End Property + + _ + Public ReadOnly Property t07Column() As Global.System.Data.DataColumn + Get + Return Me.columnt07 + End Get + End Property + + _ + Public ReadOnly Property t08Column() As Global.System.Data.DataColumn + Get + Return Me.columnt08 + End Get + End Property + + _ + Public ReadOnly Property t09Column() As Global.System.Data.DataColumn + Get + Return Me.columnt09 + End Get + End Property + + _ + Public ReadOnly Property t10Column() As Global.System.Data.DataColumn + Get + Return Me.columnt10 + End Get + End Property + + _ + Public ReadOnly Property t11Column() As Global.System.Data.DataColumn + Get + Return Me.columnt11 + End Get + End Property + + _ + Public ReadOnly Property t12Column() As Global.System.Data.DataColumn + Get + Return Me.columnt12 + End Get + End Property + + _ + Public ReadOnly Property t13Column() As Global.System.Data.DataColumn + Get + Return Me.columnt13 + End Get + End Property + + _ + Public ReadOnly Property t14Column() As Global.System.Data.DataColumn + Get + Return Me.columnt14 + End Get + End Property + + _ + Public ReadOnly Property t15Column() As Global.System.Data.DataColumn + Get + Return Me.columnt15 + End Get + End Property + + _ + Public ReadOnly Property t16Column() As Global.System.Data.DataColumn + Get + Return Me.columnt16 + End Get + End Property + + _ + Public ReadOnly Property t17Column() As Global.System.Data.DataColumn + Get + Return Me.columnt17 + End Get + End Property + + _ + Public ReadOnly Property t18Column() As Global.System.Data.DataColumn + Get + Return Me.columnt18 + End Get + End Property + + _ + Public ReadOnly Property t19Column() As Global.System.Data.DataColumn + Get + Return Me.columnt19 + End Get + End Property + + _ + Public ReadOnly Property t20Column() As Global.System.Data.DataColumn + Get + Return Me.columnt20 + End Get + End Property + + _ + Public ReadOnly Property t21Column() As Global.System.Data.DataColumn + Get + Return Me.columnt21 + End Get + End Property + + _ + Public ReadOnly Property t22Column() As Global.System.Data.DataColumn + Get + Return Me.columnt22 + End Get + End Property + + _ + Public ReadOnly Property t23Column() As Global.System.Data.DataColumn + Get + Return Me.columnt23 + End Get + End Property + + _ + Public ReadOnly Property t24Column() As Global.System.Data.DataColumn + Get + Return Me.columnt24 + 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_tempRow + Get + Return CType(Me.Rows(index),weather_tempRow) + End Get + End Property + + _ + Public Event weather_tempRowChanging As weather_tempRowChangeEventHandler + + _ + Public Event weather_tempRowChanged As weather_tempRowChangeEventHandler + + _ + Public Event weather_tempRowDeleting As weather_tempRowChangeEventHandler + + _ + Public Event weather_tempRowDeleted As weather_tempRowChangeEventHandler + + _ + Public Overloads Sub Addweather_tempRow(ByVal row As weather_tempRow) + Me.Rows.Add(row) + End Sub + + _ + Public Overloads Function Addweather_tempRow( _ + ByVal pcode As String, _ + ByVal code As String, _ + ByVal 설명 As String, _ + ByVal t01 As String, _ + ByVal t02 As String, _ + ByVal t03 As String, _ + ByVal t04 As String, _ + ByVal t05 As String, _ + ByVal t06 As String, _ + ByVal t07 As String, _ + ByVal t08 As String, _ + ByVal t09 As String, _ + ByVal t10 As String, _ + ByVal t11 As String, _ + ByVal t12 As String, _ + ByVal t13 As String, _ + ByVal t14 As String, _ + ByVal t15 As String, _ + ByVal t16 As String, _ + ByVal t17 As String, _ + ByVal t18 As String, _ + ByVal t19 As String, _ + ByVal t20 As String, _ + ByVal t21 As String, _ + ByVal t22 As String, _ + ByVal t23 As String, _ + ByVal t24 As String) As weather_tempRow + Dim rowweather_tempRow As weather_tempRow = CType(Me.NewRow,weather_tempRow) + Dim columnValuesArray() As Object = New Object() {pcode, code, 설명, t01, t02, t03, t04, t05, t06, t07, t08, t09, t10, t11, t12, t13, t14, t15, t16, t17, t18, t19, t20, t21, t22, t23, t24} + rowweather_tempRow.ItemArray = columnValuesArray + Me.Rows.Add(rowweather_tempRow) + Return rowweather_tempRow + End Function + + _ + Public Function FindBypcodecode(ByVal pcode As String, ByVal code As String) As weather_tempRow + Return CType(Me.Rows.Find(New Object() {pcode, code}),weather_tempRow) + End Function + + _ + Public Overrides Function Clone() As Global.System.Data.DataTable + Dim cln As weather_tempDataTable = CType(MyBase.Clone,weather_tempDataTable) + cln.InitVars + Return cln + End Function + + _ + Protected Overrides Function CreateInstance() As Global.System.Data.DataTable + Return New weather_tempDataTable() + End Function + + _ + Friend Sub InitVars() + Me.columnpcode = MyBase.Columns("pcode") + Me.columncode = MyBase.Columns("code") + Me.column설명 = MyBase.Columns("설명") + Me.columnt01 = MyBase.Columns("t01") + Me.columnt02 = MyBase.Columns("t02") + Me.columnt03 = MyBase.Columns("t03") + Me.columnt04 = MyBase.Columns("t04") + Me.columnt05 = MyBase.Columns("t05") + Me.columnt06 = MyBase.Columns("t06") + Me.columnt07 = MyBase.Columns("t07") + Me.columnt08 = MyBase.Columns("t08") + Me.columnt09 = MyBase.Columns("t09") + Me.columnt10 = MyBase.Columns("t10") + Me.columnt11 = MyBase.Columns("t11") + Me.columnt12 = MyBase.Columns("t12") + Me.columnt13 = MyBase.Columns("t13") + Me.columnt14 = MyBase.Columns("t14") + Me.columnt15 = MyBase.Columns("t15") + Me.columnt16 = MyBase.Columns("t16") + Me.columnt17 = MyBase.Columns("t17") + Me.columnt18 = MyBase.Columns("t18") + Me.columnt19 = MyBase.Columns("t19") + Me.columnt20 = MyBase.Columns("t20") + Me.columnt21 = MyBase.Columns("t21") + Me.columnt22 = MyBase.Columns("t22") + Me.columnt23 = MyBase.Columns("t23") + Me.columnt24 = MyBase.Columns("t24") + 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.columnt01 = New Global.System.Data.DataColumn("t01", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnt01) + Me.columnt02 = New Global.System.Data.DataColumn("t02", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnt02) + Me.columnt03 = New Global.System.Data.DataColumn("t03", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnt03) + Me.columnt04 = New Global.System.Data.DataColumn("t04", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnt04) + Me.columnt05 = New Global.System.Data.DataColumn("t05", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnt05) + Me.columnt06 = New Global.System.Data.DataColumn("t06", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnt06) + Me.columnt07 = New Global.System.Data.DataColumn("t07", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnt07) + Me.columnt08 = New Global.System.Data.DataColumn("t08", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnt08) + Me.columnt09 = New Global.System.Data.DataColumn("t09", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnt09) + Me.columnt10 = New Global.System.Data.DataColumn("t10", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnt10) + Me.columnt11 = New Global.System.Data.DataColumn("t11", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnt11) + Me.columnt12 = New Global.System.Data.DataColumn("t12", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnt12) + Me.columnt13 = New Global.System.Data.DataColumn("t13", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnt13) + Me.columnt14 = New Global.System.Data.DataColumn("t14", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnt14) + Me.columnt15 = New Global.System.Data.DataColumn("t15", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnt15) + Me.columnt16 = New Global.System.Data.DataColumn("t16", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnt16) + Me.columnt17 = New Global.System.Data.DataColumn("t17", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnt17) + Me.columnt18 = New Global.System.Data.DataColumn("t18", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnt18) + Me.columnt19 = New Global.System.Data.DataColumn("t19", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnt19) + Me.columnt20 = New Global.System.Data.DataColumn("t20", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnt20) + Me.columnt21 = New Global.System.Data.DataColumn("t21", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnt21) + Me.columnt22 = New Global.System.Data.DataColumn("t22", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnt22) + Me.columnt23 = New Global.System.Data.DataColumn("t23", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnt23) + Me.columnt24 = New Global.System.Data.DataColumn("t24", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnt24) + 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설명.MaxLength = 255 + Me.columnt01.DefaultValue = CType("0",String) + Me.columnt01.MaxLength = 50 + Me.columnt02.DefaultValue = CType("0",String) + Me.columnt02.MaxLength = 50 + Me.columnt03.DefaultValue = CType("0",String) + Me.columnt03.MaxLength = 50 + Me.columnt04.DefaultValue = CType("0",String) + Me.columnt04.MaxLength = 50 + Me.columnt05.DefaultValue = CType("0",String) + Me.columnt05.MaxLength = 50 + Me.columnt06.DefaultValue = CType("0",String) + Me.columnt06.MaxLength = 50 + Me.columnt07.DefaultValue = CType("0",String) + Me.columnt07.MaxLength = 50 + Me.columnt08.DefaultValue = CType("0",String) + Me.columnt08.MaxLength = 50 + Me.columnt09.DefaultValue = CType("0",String) + Me.columnt09.MaxLength = 50 + Me.columnt10.DefaultValue = CType("0",String) + Me.columnt10.MaxLength = 50 + Me.columnt11.DefaultValue = CType("0",String) + Me.columnt11.MaxLength = 50 + Me.columnt12.DefaultValue = CType("0",String) + Me.columnt12.MaxLength = 50 + Me.columnt13.DefaultValue = CType("0",String) + Me.columnt13.MaxLength = 50 + Me.columnt14.DefaultValue = CType("0",String) + Me.columnt14.MaxLength = 50 + Me.columnt15.DefaultValue = CType("0",String) + Me.columnt15.MaxLength = 50 + Me.columnt16.DefaultValue = CType("0",String) + Me.columnt16.MaxLength = 50 + Me.columnt17.DefaultValue = CType("0",String) + Me.columnt17.MaxLength = 50 + Me.columnt18.DefaultValue = CType("0",String) + Me.columnt18.MaxLength = 50 + Me.columnt19.DefaultValue = CType("0",String) + Me.columnt19.MaxLength = 50 + Me.columnt20.DefaultValue = CType("0",String) + Me.columnt20.MaxLength = 50 + Me.columnt21.DefaultValue = CType("0",String) + Me.columnt21.MaxLength = 50 + Me.columnt22.DefaultValue = CType("0",String) + Me.columnt22.MaxLength = 50 + Me.columnt23.DefaultValue = CType("0",String) + Me.columnt23.MaxLength = 50 + Me.columnt24.DefaultValue = CType("0",String) + Me.columnt24.MaxLength = 50 + End Sub + + _ + Public Function Newweather_tempRow() As weather_tempRow + Return CType(Me.NewRow,weather_tempRow) + End Function + + _ + Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow + Return New weather_tempRow(builder) + End Function + + _ + Protected Overrides Function GetRowType() As Global.System.Type + Return GetType(weather_tempRow) + End Function + + _ + Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanged(e) + If (Not (Me.weather_tempRowChangedEvent) Is Nothing) Then + RaiseEvent weather_tempRowChanged(Me, New weather_tempRowChangeEvent(CType(e.Row,weather_tempRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanging(e) + If (Not (Me.weather_tempRowChangingEvent) Is Nothing) Then + RaiseEvent weather_tempRowChanging(Me, New weather_tempRowChangeEvent(CType(e.Row,weather_tempRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleted(e) + If (Not (Me.weather_tempRowDeletedEvent) Is Nothing) Then + RaiseEvent weather_tempRowDeleted(Me, New weather_tempRowChangeEvent(CType(e.Row,weather_tempRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleting(e) + If (Not (Me.weather_tempRowDeletingEvent) Is Nothing) Then + RaiseEvent weather_tempRowDeleting(Me, New weather_tempRowChangeEvent(CType(e.Row,weather_tempRow), e.Action)) + End If + End Sub + + _ + Public Sub Removeweather_tempRow(ByVal row As weather_tempRow) + 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_tempDataTable" + 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 tbl_weatherDataTable + Inherits Global.System.Data.TypedTableBase(Of tbl_weatherRow) + + Private columncode 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 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 = "tbl_weather" + 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 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 난방기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 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 tbl_weatherRow + Get + Return CType(Me.Rows(index),tbl_weatherRow) + End Get + End Property + + _ + Public Event tbl_weatherRowChanging As tbl_weatherRowChangeEventHandler + + _ + Public Event tbl_weatherRowChanged As tbl_weatherRowChangeEventHandler + + _ + Public Event tbl_weatherRowDeleting As tbl_weatherRowChangeEventHandler + + _ + Public Event tbl_weatherRowDeleted As tbl_weatherRowChangeEventHandler + + _ + Public Overloads Sub Addtbl_weatherRow(ByVal row As tbl_weatherRow) + Me.Rows.Add(row) + End Sub + + _ + Public Overloads Function Addtbl_weatherRow( _ + ByVal code As String, _ + ByVal 건물위치 As String, _ + ByVal 난방기 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 tbl_weatherRow + Dim rowtbl_weatherRow As tbl_weatherRow = CType(Me.NewRow,tbl_weatherRow) + Dim columnValuesArray() As Object = New Object() {code, 건물위치, 난방기, 냉방기, m01, m02, m03, m04, m05, m06, m07, m08, m09, m10, m11, m12} + rowtbl_weatherRow.ItemArray = columnValuesArray + Me.Rows.Add(rowtbl_weatherRow) + Return rowtbl_weatherRow + End Function + + _ + Public Function FindBycode(ByVal code As String) As tbl_weatherRow + Return CType(Me.Rows.Find(New Object() {code}),tbl_weatherRow) + End Function + + _ + Public Overrides Function Clone() As Global.System.Data.DataTable + Dim cln As tbl_weatherDataTable = CType(MyBase.Clone,tbl_weatherDataTable) + cln.InitVars + Return cln + End Function + + _ + Protected Overrides Function CreateInstance() As Global.System.Data.DataTable + Return New tbl_weatherDataTable() + End Function + + _ + Friend Sub InitVars() + Me.columncode = MyBase.Columns("code") + Me.column건물위치 = MyBase.Columns("건물위치") + Me.column난방기 = MyBase.Columns("난방기") + 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.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.column난방기 = New Global.System.Data.DataColumn("난방기", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column난방기) + Me.column냉방기 = New Global.System.Data.DataColumn("냉방기", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column냉방기) + Me.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.columncode}, true)) + Me.columncode.AllowDBNull = false + Me.columncode.Unique = true + Me.columncode.DefaultValue = CType("",String) + Me.columncode.MaxLength = 10 + Me.column건물위치.DefaultValue = CType("",String) + Me.column건물위치.MaxLength = 50 + Me.column난방기.DefaultValue = CType("0",String) + Me.column난방기.MaxLength = 50 + Me.column냉방기.DefaultValue = CType("0",String) + Me.column냉방기.MaxLength = 50 + 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 Newtbl_weatherRow() As tbl_weatherRow + Return CType(Me.NewRow,tbl_weatherRow) + End Function + + _ + Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow + Return New tbl_weatherRow(builder) + End Function + + _ + Protected Overrides Function GetRowType() As Global.System.Type + Return GetType(tbl_weatherRow) + End Function + + _ + Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanged(e) + If (Not (Me.tbl_weatherRowChangedEvent) Is Nothing) Then + RaiseEvent tbl_weatherRowChanged(Me, New tbl_weatherRowChangeEvent(CType(e.Row,tbl_weatherRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanging(e) + If (Not (Me.tbl_weatherRowChangingEvent) Is Nothing) Then + RaiseEvent tbl_weatherRowChanging(Me, New tbl_weatherRowChangeEvent(CType(e.Row,tbl_weatherRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleted(e) + If (Not (Me.tbl_weatherRowDeletedEvent) Is Nothing) Then + RaiseEvent tbl_weatherRowDeleted(Me, New tbl_weatherRowChangeEvent(CType(e.Row,tbl_weatherRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleting(e) + If (Not (Me.tbl_weatherRowDeletingEvent) Is Nothing) Then + RaiseEvent tbl_weatherRowDeleting(Me, New tbl_weatherRowChangeEvent(CType(e.Row,tbl_weatherRow), e.Action)) + End If + End Sub + + _ + Public Sub Removetbl_weatherRow(ByVal row As tbl_weatherRow) + 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 = "tbl_weatherDataTable" + 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_ilsaDataTable + Inherits Global.System.Data.TypedTableBase(Of weather_ilsaRow) + + Private columnpcode As Global.System.Data.DataColumn + + Private columncode As Global.System.Data.DataColumn + + Private column설명 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_ilsa" + 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 최대부하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_ilsaRow + Get + Return CType(Me.Rows(index),weather_ilsaRow) + End Get + End Property + + _ + Public Event weather_ilsaRowChanging As weather_ilsaRowChangeEventHandler + + _ + Public Event weather_ilsaRowChanged As weather_ilsaRowChangeEventHandler + + _ + Public Event weather_ilsaRowDeleting As weather_ilsaRowChangeEventHandler + + _ + Public Event weather_ilsaRowDeleted As weather_ilsaRowChangeEventHandler + + _ + Public Overloads Sub Addweather_ilsaRow(ByVal row As weather_ilsaRow) + Me.Rows.Add(row) + End Sub + + _ + Public Overloads Function Addweather_ilsaRow( _ + ByVal pcode As String, _ + ByVal code As String, _ + ByVal 설명 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_ilsaRow + Dim rowweather_ilsaRow As weather_ilsaRow = CType(Me.NewRow,weather_ilsaRow) + Dim columnValuesArray() As Object = New Object() {pcode, code, 설명, 최대부하, m01, m02, m03, m04, m05, m06, m07, m08, m09, m10, m11, m12} + rowweather_ilsaRow.ItemArray = columnValuesArray + Me.Rows.Add(rowweather_ilsaRow) + Return rowweather_ilsaRow + End Function + + _ + Public Function FindBypcodecode(ByVal pcode As String, ByVal code As String) As weather_ilsaRow + Return CType(Me.Rows.Find(New Object() {pcode, code}),weather_ilsaRow) + End Function + + _ + Public Overrides Function Clone() As Global.System.Data.DataTable + Dim cln As weather_ilsaDataTable = CType(MyBase.Clone,weather_ilsaDataTable) + cln.InitVars + Return cln + End Function + + _ + Protected Overrides Function CreateInstance() As Global.System.Data.DataTable + Return New weather_ilsaDataTable() + End Function + + _ + Friend Sub InitVars() + Me.columnpcode = MyBase.Columns("pcode") + Me.columncode = MyBase.Columns("code") + Me.column설명 = MyBase.Columns("설명") + 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.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 = 50 + Me.column최대부하.DefaultValue = CType("0",String) + Me.column최대부하.MaxLength = 50 + 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_ilsaRow() As weather_ilsaRow + Return CType(Me.NewRow,weather_ilsaRow) + End Function + + _ + Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow + Return New weather_ilsaRow(builder) + End Function + + _ + Protected Overrides Function GetRowType() As Global.System.Type + Return GetType(weather_ilsaRow) + End Function + + _ + Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanged(e) + If (Not (Me.weather_ilsaRowChangedEvent) Is Nothing) Then + RaiseEvent weather_ilsaRowChanged(Me, New weather_ilsaRowChangeEvent(CType(e.Row,weather_ilsaRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanging(e) + If (Not (Me.weather_ilsaRowChangingEvent) Is Nothing) Then + RaiseEvent weather_ilsaRowChanging(Me, New weather_ilsaRowChangeEvent(CType(e.Row,weather_ilsaRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleted(e) + If (Not (Me.weather_ilsaRowDeletedEvent) Is Nothing) Then + RaiseEvent weather_ilsaRowDeleted(Me, New weather_ilsaRowChangeEvent(CType(e.Row,weather_ilsaRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleting(e) + If (Not (Me.weather_ilsaRowDeletingEvent) Is Nothing) Then + RaiseEvent weather_ilsaRowDeleting(Me, New weather_ilsaRowChangeEvent(CType(e.Row,weather_ilsaRow), e.Action)) + End If + End Sub + + _ + Public Sub Removeweather_ilsaRow(ByVal row As weather_ilsaRow) + 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_ilsaDataTable" + 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_supdoDataTable + Inherits Global.System.Data.TypedTableBase(Of weather_supdoRow) + + Private columnpcode As Global.System.Data.DataColumn + + Private columncode As Global.System.Data.DataColumn + + Private column설명 As Global.System.Data.DataColumn + + Private columnt01 As Global.System.Data.DataColumn + + Private columnt02 As Global.System.Data.DataColumn + + Private columnt03 As Global.System.Data.DataColumn + + Private columnt04 As Global.System.Data.DataColumn + + Private columnt05 As Global.System.Data.DataColumn + + Private columnt06 As Global.System.Data.DataColumn + + Private columnt07 As Global.System.Data.DataColumn + + Private columnt08 As Global.System.Data.DataColumn + + Private columnt09 As Global.System.Data.DataColumn + + Private columnt10 As Global.System.Data.DataColumn + + Private columnt11 As Global.System.Data.DataColumn + + Private columnt12 As Global.System.Data.DataColumn + + Private columnt13 As Global.System.Data.DataColumn + + Private columnt14 As Global.System.Data.DataColumn + + Private columnt15 As Global.System.Data.DataColumn + + Private columnt16 As Global.System.Data.DataColumn + + Private columnt17 As Global.System.Data.DataColumn + + Private columnt18 As Global.System.Data.DataColumn + + Private columnt19 As Global.System.Data.DataColumn + + Private columnt20 As Global.System.Data.DataColumn + + Private columnt21 As Global.System.Data.DataColumn + + Private columnt22 As Global.System.Data.DataColumn + + Private columnt23 As Global.System.Data.DataColumn + + Private columnt24 As Global.System.Data.DataColumn + + _ + Public Sub New() + MyBase.New + Me.TableName = "weather_supdo" + 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 t01Column() As Global.System.Data.DataColumn + Get + Return Me.columnt01 + End Get + End Property + + _ + Public ReadOnly Property t02Column() As Global.System.Data.DataColumn + Get + Return Me.columnt02 + End Get + End Property + + _ + Public ReadOnly Property t03Column() As Global.System.Data.DataColumn + Get + Return Me.columnt03 + End Get + End Property + + _ + Public ReadOnly Property t04Column() As Global.System.Data.DataColumn + Get + Return Me.columnt04 + End Get + End Property + + _ + Public ReadOnly Property t05Column() As Global.System.Data.DataColumn + Get + Return Me.columnt05 + End Get + End Property + + _ + Public ReadOnly Property t06Column() As Global.System.Data.DataColumn + Get + Return Me.columnt06 + End Get + End Property + + _ + Public ReadOnly Property t07Column() As Global.System.Data.DataColumn + Get + Return Me.columnt07 + End Get + End Property + + _ + Public ReadOnly Property t08Column() As Global.System.Data.DataColumn + Get + Return Me.columnt08 + End Get + End Property + + _ + Public ReadOnly Property t09Column() As Global.System.Data.DataColumn + Get + Return Me.columnt09 + End Get + End Property + + _ + Public ReadOnly Property t10Column() As Global.System.Data.DataColumn + Get + Return Me.columnt10 + End Get + End Property + + _ + Public ReadOnly Property t11Column() As Global.System.Data.DataColumn + Get + Return Me.columnt11 + End Get + End Property + + _ + Public ReadOnly Property t12Column() As Global.System.Data.DataColumn + Get + Return Me.columnt12 + End Get + End Property + + _ + Public ReadOnly Property t13Column() As Global.System.Data.DataColumn + Get + Return Me.columnt13 + End Get + End Property + + _ + Public ReadOnly Property t14Column() As Global.System.Data.DataColumn + Get + Return Me.columnt14 + End Get + End Property + + _ + Public ReadOnly Property t15Column() As Global.System.Data.DataColumn + Get + Return Me.columnt15 + End Get + End Property + + _ + Public ReadOnly Property t16Column() As Global.System.Data.DataColumn + Get + Return Me.columnt16 + End Get + End Property + + _ + Public ReadOnly Property t17Column() As Global.System.Data.DataColumn + Get + Return Me.columnt17 + End Get + End Property + + _ + Public ReadOnly Property t18Column() As Global.System.Data.DataColumn + Get + Return Me.columnt18 + End Get + End Property + + _ + Public ReadOnly Property t19Column() As Global.System.Data.DataColumn + Get + Return Me.columnt19 + End Get + End Property + + _ + Public ReadOnly Property t20Column() As Global.System.Data.DataColumn + Get + Return Me.columnt20 + End Get + End Property + + _ + Public ReadOnly Property t21Column() As Global.System.Data.DataColumn + Get + Return Me.columnt21 + End Get + End Property + + _ + Public ReadOnly Property t22Column() As Global.System.Data.DataColumn + Get + Return Me.columnt22 + End Get + End Property + + _ + Public ReadOnly Property t23Column() As Global.System.Data.DataColumn + Get + Return Me.columnt23 + End Get + End Property + + _ + Public ReadOnly Property t24Column() As Global.System.Data.DataColumn + Get + Return Me.columnt24 + 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_supdoRow + Get + Return CType(Me.Rows(index),weather_supdoRow) + End Get + End Property + + _ + Public Event weather_supdoRowChanging As weather_supdoRowChangeEventHandler + + _ + Public Event weather_supdoRowChanged As weather_supdoRowChangeEventHandler + + _ + Public Event weather_supdoRowDeleting As weather_supdoRowChangeEventHandler + + _ + Public Event weather_supdoRowDeleted As weather_supdoRowChangeEventHandler + + _ + Public Overloads Sub Addweather_supdoRow(ByVal row As weather_supdoRow) + Me.Rows.Add(row) + End Sub + + _ + Public Overloads Function Addweather_supdoRow( _ + ByVal pcode As String, _ + ByVal code As String, _ + ByVal 설명 As String, _ + ByVal t01 As String, _ + ByVal t02 As String, _ + ByVal t03 As String, _ + ByVal t04 As String, _ + ByVal t05 As String, _ + ByVal t06 As String, _ + ByVal t07 As String, _ + ByVal t08 As String, _ + ByVal t09 As String, _ + ByVal t10 As String, _ + ByVal t11 As String, _ + ByVal t12 As String, _ + ByVal t13 As String, _ + ByVal t14 As String, _ + ByVal t15 As String, _ + ByVal t16 As String, _ + ByVal t17 As String, _ + ByVal t18 As String, _ + ByVal t19 As String, _ + ByVal t20 As String, _ + ByVal t21 As String, _ + ByVal t22 As String, _ + ByVal t23 As String, _ + ByVal t24 As String) As weather_supdoRow + Dim rowweather_supdoRow As weather_supdoRow = CType(Me.NewRow,weather_supdoRow) + Dim columnValuesArray() As Object = New Object() {pcode, code, 설명, t01, t02, t03, t04, t05, t06, t07, t08, t09, t10, t11, t12, t13, t14, t15, t16, t17, t18, t19, t20, t21, t22, t23, t24} + rowweather_supdoRow.ItemArray = columnValuesArray + Me.Rows.Add(rowweather_supdoRow) + Return rowweather_supdoRow + End Function + + _ + Public Function FindBypcodecode(ByVal pcode As String, ByVal code As String) As weather_supdoRow + Return CType(Me.Rows.Find(New Object() {pcode, code}),weather_supdoRow) + End Function + + _ + Public Overrides Function Clone() As Global.System.Data.DataTable + Dim cln As weather_supdoDataTable = CType(MyBase.Clone,weather_supdoDataTable) + cln.InitVars + Return cln + End Function + + _ + Protected Overrides Function CreateInstance() As Global.System.Data.DataTable + Return New weather_supdoDataTable() + End Function + + _ + Friend Sub InitVars() + Me.columnpcode = MyBase.Columns("pcode") + Me.columncode = MyBase.Columns("code") + Me.column설명 = MyBase.Columns("설명") + Me.columnt01 = MyBase.Columns("t01") + Me.columnt02 = MyBase.Columns("t02") + Me.columnt03 = MyBase.Columns("t03") + Me.columnt04 = MyBase.Columns("t04") + Me.columnt05 = MyBase.Columns("t05") + Me.columnt06 = MyBase.Columns("t06") + Me.columnt07 = MyBase.Columns("t07") + Me.columnt08 = MyBase.Columns("t08") + Me.columnt09 = MyBase.Columns("t09") + Me.columnt10 = MyBase.Columns("t10") + Me.columnt11 = MyBase.Columns("t11") + Me.columnt12 = MyBase.Columns("t12") + Me.columnt13 = MyBase.Columns("t13") + Me.columnt14 = MyBase.Columns("t14") + Me.columnt15 = MyBase.Columns("t15") + Me.columnt16 = MyBase.Columns("t16") + Me.columnt17 = MyBase.Columns("t17") + Me.columnt18 = MyBase.Columns("t18") + Me.columnt19 = MyBase.Columns("t19") + Me.columnt20 = MyBase.Columns("t20") + Me.columnt21 = MyBase.Columns("t21") + Me.columnt22 = MyBase.Columns("t22") + Me.columnt23 = MyBase.Columns("t23") + Me.columnt24 = MyBase.Columns("t24") + 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.columnt01 = New Global.System.Data.DataColumn("t01", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnt01) + Me.columnt02 = New Global.System.Data.DataColumn("t02", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnt02) + Me.columnt03 = New Global.System.Data.DataColumn("t03", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnt03) + Me.columnt04 = New Global.System.Data.DataColumn("t04", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnt04) + Me.columnt05 = New Global.System.Data.DataColumn("t05", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnt05) + Me.columnt06 = New Global.System.Data.DataColumn("t06", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnt06) + Me.columnt07 = New Global.System.Data.DataColumn("t07", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnt07) + Me.columnt08 = New Global.System.Data.DataColumn("t08", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnt08) + Me.columnt09 = New Global.System.Data.DataColumn("t09", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnt09) + Me.columnt10 = New Global.System.Data.DataColumn("t10", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnt10) + Me.columnt11 = New Global.System.Data.DataColumn("t11", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnt11) + Me.columnt12 = New Global.System.Data.DataColumn("t12", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnt12) + Me.columnt13 = New Global.System.Data.DataColumn("t13", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnt13) + Me.columnt14 = New Global.System.Data.DataColumn("t14", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnt14) + Me.columnt15 = New Global.System.Data.DataColumn("t15", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnt15) + Me.columnt16 = New Global.System.Data.DataColumn("t16", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnt16) + Me.columnt17 = New Global.System.Data.DataColumn("t17", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnt17) + Me.columnt18 = New Global.System.Data.DataColumn("t18", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnt18) + Me.columnt19 = New Global.System.Data.DataColumn("t19", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnt19) + Me.columnt20 = New Global.System.Data.DataColumn("t20", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnt20) + Me.columnt21 = New Global.System.Data.DataColumn("t21", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnt21) + Me.columnt22 = New Global.System.Data.DataColumn("t22", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnt22) + Me.columnt23 = New Global.System.Data.DataColumn("t23", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnt23) + Me.columnt24 = New Global.System.Data.DataColumn("t24", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnt24) + 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설명.MaxLength = 50 + Me.columnt01.DefaultValue = CType("0",String) + Me.columnt01.MaxLength = 50 + Me.columnt02.DefaultValue = CType("0",String) + Me.columnt02.MaxLength = 50 + Me.columnt03.DefaultValue = CType("0",String) + Me.columnt03.MaxLength = 50 + Me.columnt04.DefaultValue = CType("0",String) + Me.columnt04.MaxLength = 50 + Me.columnt05.DefaultValue = CType("0",String) + Me.columnt05.MaxLength = 50 + Me.columnt06.DefaultValue = CType("0",String) + Me.columnt06.MaxLength = 50 + Me.columnt07.DefaultValue = CType("0",String) + Me.columnt07.MaxLength = 50 + Me.columnt08.DefaultValue = CType("0",String) + Me.columnt08.MaxLength = 50 + Me.columnt09.DefaultValue = CType("0",String) + Me.columnt09.MaxLength = 50 + Me.columnt10.DefaultValue = CType("0",String) + Me.columnt10.MaxLength = 50 + Me.columnt11.DefaultValue = CType("0",String) + Me.columnt11.MaxLength = 50 + Me.columnt12.DefaultValue = CType("0",String) + Me.columnt12.MaxLength = 50 + Me.columnt13.DefaultValue = CType("0",String) + Me.columnt13.MaxLength = 50 + Me.columnt14.DefaultValue = CType("0",String) + Me.columnt14.MaxLength = 50 + Me.columnt15.DefaultValue = CType("0",String) + Me.columnt15.MaxLength = 50 + Me.columnt16.DefaultValue = CType("0",String) + Me.columnt16.MaxLength = 50 + Me.columnt17.DefaultValue = CType("0",String) + Me.columnt17.MaxLength = 50 + Me.columnt18.DefaultValue = CType("0",String) + Me.columnt18.MaxLength = 50 + Me.columnt19.DefaultValue = CType("0",String) + Me.columnt19.MaxLength = 50 + Me.columnt20.DefaultValue = CType("0",String) + Me.columnt20.MaxLength = 50 + Me.columnt21.DefaultValue = CType("0",String) + Me.columnt21.MaxLength = 50 + Me.columnt22.DefaultValue = CType("0",String) + Me.columnt22.MaxLength = 50 + Me.columnt23.DefaultValue = CType("0",String) + Me.columnt23.MaxLength = 50 + Me.columnt24.DefaultValue = CType("0",String) + Me.columnt24.MaxLength = 50 + End Sub + + _ + Public Function Newweather_supdoRow() As weather_supdoRow + Return CType(Me.NewRow,weather_supdoRow) + End Function + + _ + Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow + Return New weather_supdoRow(builder) + End Function + + _ + Protected Overrides Function GetRowType() As Global.System.Type + Return GetType(weather_supdoRow) + End Function + + _ + Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanged(e) + If (Not (Me.weather_supdoRowChangedEvent) Is Nothing) Then + RaiseEvent weather_supdoRowChanged(Me, New weather_supdoRowChangeEvent(CType(e.Row,weather_supdoRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanging(e) + If (Not (Me.weather_supdoRowChangingEvent) Is Nothing) Then + RaiseEvent weather_supdoRowChanging(Me, New weather_supdoRowChangeEvent(CType(e.Row,weather_supdoRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleted(e) + If (Not (Me.weather_supdoRowDeletedEvent) Is Nothing) Then + RaiseEvent weather_supdoRowDeleted(Me, New weather_supdoRowChangeEvent(CType(e.Row,weather_supdoRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleting(e) + If (Not (Me.weather_supdoRowDeletingEvent) Is Nothing) Then + RaiseEvent weather_supdoRowDeleting(Me, New weather_supdoRowChangeEvent(CType(e.Row,weather_supdoRow), e.Action)) + End If + End Sub + + _ + Public Sub Removeweather_supdoRow(ByVal row As weather_supdoRow) + 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_supdoDataTable" + 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 tbl_profileDataTable + Inherits Global.System.Data.TypedTableBase(Of tbl_profileRow) + + Private columncode As Global.System.Data.DataColumn + + Private column설명 As Global.System.Data.DataColumn + + Private column일일급탕요구량 As Global.System.Data.DataColumn + + Private column사용시작시간 As Global.System.Data.DataColumn + + Private column사용종료시간 As Global.System.Data.DataColumn + + Private column일일사용시간 As Global.System.Data.DataColumn + + Private column운전시작시간 As Global.System.Data.DataColumn + + Private column운전종료시간 As Global.System.Data.DataColumn + + Private column운전시간난방 As Global.System.Data.DataColumn + + Private column연간사용일수 As Global.System.Data.DataColumn + + Private column연간사용시간주간 As Global.System.Data.DataColumn + + Private column연간사용시간야간 As Global.System.Data.DataColumn + + Private column일일운전시간 As Global.System.Data.DataColumn + + Private column연간운전일수 As Global.System.Data.DataColumn + + Private column요구조도 As Global.System.Data.DataColumn + + Private column작업면높이 As Global.System.Data.DataColumn + + Private column감소계수 As Global.System.Data.DataColumn + + Private column부재율 As Global.System.Data.DataColumn + + Private column실지수 As Global.System.Data.DataColumn + + Private column최소도입외기량 As Global.System.Data.DataColumn + + Private column축소운전시최소도입외기량 As Global.System.Data.DataColumn + + Private column사람 As Global.System.Data.DataColumn + + Private column작업보조기기 As Global.System.Data.DataColumn + + Private column난방설정온도 As Global.System.Data.DataColumn + + Private column냉방설정온도 As Global.System.Data.DataColumn + + Private column야간최저허용온도 As Global.System.Data.DataColumn + + Private column주말최저허용온도 As Global.System.Data.DataColumn + + Private column최소설정온도난방 As Global.System.Data.DataColumn + + Private column최소설정온도냉방 As Global.System.Data.DataColumn + + Private column외기온도난방 As Global.System.Data.DataColumn + + Private column외기온도냉방7월 As Global.System.Data.DataColumn + + Private column외기온도냉방9월 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 columnday01 As Global.System.Data.DataColumn + + Private columnday02 As Global.System.Data.DataColumn + + Private columnday03 As Global.System.Data.DataColumn + + Private columnday04 As Global.System.Data.DataColumn + + Private columnday05 As Global.System.Data.DataColumn + + Private columnday06 As Global.System.Data.DataColumn + + Private columnday07 As Global.System.Data.DataColumn + + Private columnday08 As Global.System.Data.DataColumn + + Private columnday09 As Global.System.Data.DataColumn + + Private columnday10 As Global.System.Data.DataColumn + + Private columnday11 As Global.System.Data.DataColumn + + Private columnday12 As Global.System.Data.DataColumn + + _ + Public Sub New() + MyBase.New + Me.TableName = "tbl_profile" + 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 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 일일급탕요구량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 운전시작시간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 연간사용시간주간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 요구조도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 실지수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 작업보조기기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 주말최저허용온도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 외기온도냉방7월Column() As Global.System.Data.DataColumn + Get + Return Me.column외기온도냉방7월 + End Get + End Property + + _ + Public ReadOnly Property 외기온도냉방9월Column() As Global.System.Data.DataColumn + Get + Return Me.column외기온도냉방9월 + 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 day01Column() As Global.System.Data.DataColumn + Get + Return Me.columnday01 + End Get + End Property + + _ + Public ReadOnly Property day02Column() As Global.System.Data.DataColumn + Get + Return Me.columnday02 + End Get + End Property + + _ + Public ReadOnly Property day03Column() As Global.System.Data.DataColumn + Get + Return Me.columnday03 + End Get + End Property + + _ + Public ReadOnly Property day04Column() As Global.System.Data.DataColumn + Get + Return Me.columnday04 + End Get + End Property + + _ + Public ReadOnly Property day05Column() As Global.System.Data.DataColumn + Get + Return Me.columnday05 + End Get + End Property + + _ + Public ReadOnly Property day06Column() As Global.System.Data.DataColumn + Get + Return Me.columnday06 + End Get + End Property + + _ + Public ReadOnly Property day07Column() As Global.System.Data.DataColumn + Get + Return Me.columnday07 + End Get + End Property + + _ + Public ReadOnly Property day08Column() As Global.System.Data.DataColumn + Get + Return Me.columnday08 + End Get + End Property + + _ + Public ReadOnly Property day09Column() As Global.System.Data.DataColumn + Get + Return Me.columnday09 + End Get + End Property + + _ + Public ReadOnly Property day10Column() As Global.System.Data.DataColumn + Get + Return Me.columnday10 + End Get + End Property + + _ + Public ReadOnly Property day11Column() As Global.System.Data.DataColumn + Get + Return Me.columnday11 + End Get + End Property + + _ + Public ReadOnly Property day12Column() As Global.System.Data.DataColumn + Get + Return Me.columnday12 + 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 tbl_profileRow + Get + Return CType(Me.Rows(index),tbl_profileRow) + End Get + End Property + + _ + Public Event tbl_profileRowChanging As tbl_profileRowChangeEventHandler + + _ + Public Event tbl_profileRowChanged As tbl_profileRowChangeEventHandler + + _ + Public Event tbl_profileRowDeleting As tbl_profileRowChangeEventHandler + + _ + Public Event tbl_profileRowDeleted As tbl_profileRowChangeEventHandler + + _ + Public Overloads Sub Addtbl_profileRow(ByVal row As tbl_profileRow) + Me.Rows.Add(row) + End Sub + + _ + Public Overloads Function Addtbl_profileRow( _ + ByVal code As String, _ + ByVal 설명 As String, _ + ByVal 일일급탕요구량 As String, _ + ByVal 사용시작시간 As String, _ + ByVal 사용종료시간 As String, _ + ByVal 일일사용시간 As String, _ + ByVal 운전시작시간 As String, _ + ByVal 운전종료시간 As String, _ + ByVal 운전시간난방 As String, _ + ByVal 연간사용일수 As String, _ + ByVal 연간사용시간주간 As String, _ + ByVal 연간사용시간야간 As String, _ + ByVal 일일운전시간 As String, _ + ByVal 연간운전일수 As String, _ + ByVal 요구조도 As String, _ + ByVal 작업면높이 As String, _ + ByVal 감소계수 As String, _ + ByVal 부재율 As String, _ + ByVal 실지수 As String, _ + ByVal 최소도입외기량 As String, _ + ByVal 축소운전시최소도입외기량 As String, _ + ByVal 사람 As String, _ + ByVal 작업보조기기 As String, _ + ByVal 난방설정온도 As String, _ + ByVal 냉방설정온도 As String, _ + ByVal 야간최저허용온도 As String, _ + ByVal 주말최저허용온도 As String, _ + ByVal 최소설정온도난방 As String, _ + ByVal 최소설정온도냉방 As String, _ + ByVal 외기온도난방 As String, _ + ByVal 외기온도냉방7월 As String, _ + ByVal 외기온도냉방9월 As String, _ + ByVal 차감계수 As String, _ + ByVal 오염계수 As String, _ + ByVal 부분운전계수 As String, _ + ByVal day01 As String, _ + ByVal day02 As String, _ + ByVal day03 As String, _ + ByVal day04 As String, _ + ByVal day05 As String, _ + ByVal day06 As String, _ + ByVal day07 As String, _ + ByVal day08 As String, _ + ByVal day09 As String, _ + ByVal day10 As String, _ + ByVal day11 As String, _ + ByVal day12 As String) As tbl_profileRow + Dim rowtbl_profileRow As tbl_profileRow = CType(Me.NewRow,tbl_profileRow) + Dim columnValuesArray() As Object = New Object() {code, 설명, 일일급탕요구량, 사용시작시간, 사용종료시간, 일일사용시간, 운전시작시간, 운전종료시간, 운전시간난방, 연간사용일수, 연간사용시간주간, 연간사용시간야간, 일일운전시간, 연간운전일수, 요구조도, 작업면높이, 감소계수, 부재율, 실지수, 최소도입외기량, 축소운전시최소도입외기량, 사람, 작업보조기기, 난방설정온도, 냉방설정온도, 야간최저허용온도, 주말최저허용온도, 최소설정온도난방, 최소설정온도냉방, 외기온도난방, 외기온도냉방7월, 외기온도냉방9월, 차감계수, 오염계수, 부분운전계수, day01, day02, day03, day04, day05, day06, day07, day08, day09, day10, day11, day12} + rowtbl_profileRow.ItemArray = columnValuesArray + Me.Rows.Add(rowtbl_profileRow) + Return rowtbl_profileRow + End Function + + _ + Public Function FindBycode(ByVal code As String) As tbl_profileRow + Return CType(Me.Rows.Find(New Object() {code}),tbl_profileRow) + End Function + + _ + Public Overrides Function Clone() As Global.System.Data.DataTable + Dim cln As tbl_profileDataTable = CType(MyBase.Clone,tbl_profileDataTable) + cln.InitVars + Return cln + End Function + + _ + Protected Overrides Function CreateInstance() As Global.System.Data.DataTable + Return New tbl_profileDataTable() + End Function + + _ + Friend Sub InitVars() + Me.columncode = MyBase.Columns("code") + Me.column설명 = MyBase.Columns("설명") + Me.column일일급탕요구량 = MyBase.Columns("일일급탕요구량") + Me.column사용시작시간 = MyBase.Columns("사용시작시간") + Me.column사용종료시간 = MyBase.Columns("사용종료시간") + Me.column일일사용시간 = MyBase.Columns("일일사용시간") + Me.column운전시작시간 = MyBase.Columns("운전시작시간") + Me.column운전종료시간 = MyBase.Columns("운전종료시간") + Me.column운전시간난방 = MyBase.Columns("운전시간난방") + Me.column연간사용일수 = MyBase.Columns("연간사용일수") + Me.column연간사용시간주간 = MyBase.Columns("연간사용시간주간") + Me.column연간사용시간야간 = MyBase.Columns("연간사용시간야간") + Me.column일일운전시간 = MyBase.Columns("일일운전시간") + Me.column연간운전일수 = MyBase.Columns("연간운전일수") + Me.column요구조도 = MyBase.Columns("요구조도") + Me.column작업면높이 = MyBase.Columns("작업면높이") + Me.column감소계수 = MyBase.Columns("감소계수") + Me.column부재율 = MyBase.Columns("부재율") + Me.column실지수 = MyBase.Columns("실지수") + Me.column최소도입외기량 = MyBase.Columns("최소도입외기량") + Me.column축소운전시최소도입외기량 = MyBase.Columns("축소운전시최소도입외기량") + Me.column사람 = MyBase.Columns("사람") + Me.column작업보조기기 = MyBase.Columns("작업보조기기") + Me.column난방설정온도 = MyBase.Columns("난방설정온도") + Me.column냉방설정온도 = MyBase.Columns("냉방설정온도") + Me.column야간최저허용온도 = MyBase.Columns("야간최저허용온도") + Me.column주말최저허용온도 = MyBase.Columns("주말최저허용온도") + Me.column최소설정온도난방 = MyBase.Columns("최소설정온도난방") + Me.column최소설정온도냉방 = MyBase.Columns("최소설정온도냉방") + Me.column외기온도난방 = MyBase.Columns("외기온도난방") + Me.column외기온도냉방7월 = MyBase.Columns("외기온도냉방7월") + Me.column외기온도냉방9월 = MyBase.Columns("외기온도냉방9월") + Me.column차감계수 = MyBase.Columns("차감계수") + Me.column오염계수 = MyBase.Columns("오염계수") + Me.column부분운전계수 = MyBase.Columns("부분운전계수") + Me.columnday01 = MyBase.Columns("day01") + Me.columnday02 = MyBase.Columns("day02") + Me.columnday03 = MyBase.Columns("day03") + Me.columnday04 = MyBase.Columns("day04") + Me.columnday05 = MyBase.Columns("day05") + Me.columnday06 = MyBase.Columns("day06") + Me.columnday07 = MyBase.Columns("day07") + Me.columnday08 = MyBase.Columns("day08") + Me.columnday09 = MyBase.Columns("day09") + Me.columnday10 = MyBase.Columns("day10") + Me.columnday11 = MyBase.Columns("day11") + Me.columnday12 = MyBase.Columns("day12") + End Sub + + _ + Private Sub InitClass() + 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.column일일급탕요구량 = New Global.System.Data.DataColumn("일일급탕요구량", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column일일급탕요구량) + Me.column사용시작시간 = New Global.System.Data.DataColumn("사용시작시간", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column사용시작시간) + Me.column사용종료시간 = New Global.System.Data.DataColumn("사용종료시간", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column사용종료시간) + Me.column일일사용시간 = New Global.System.Data.DataColumn("일일사용시간", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column일일사용시간) + Me.column운전시작시간 = New Global.System.Data.DataColumn("운전시작시간", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column운전시작시간) + Me.column운전종료시간 = New Global.System.Data.DataColumn("운전종료시간", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column운전종료시간) + Me.column운전시간난방 = New Global.System.Data.DataColumn("운전시간난방", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column운전시간난방) + Me.column연간사용일수 = New Global.System.Data.DataColumn("연간사용일수", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column연간사용일수) + Me.column연간사용시간주간 = New Global.System.Data.DataColumn("연간사용시간주간", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column연간사용시간주간) + Me.column연간사용시간야간 = New Global.System.Data.DataColumn("연간사용시간야간", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column연간사용시간야간) + Me.column일일운전시간 = New Global.System.Data.DataColumn("일일운전시간", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column일일운전시간) + Me.column연간운전일수 = New Global.System.Data.DataColumn("연간운전일수", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column연간운전일수) + Me.column요구조도 = New Global.System.Data.DataColumn("요구조도", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column요구조도) + Me.column작업면높이 = New Global.System.Data.DataColumn("작업면높이", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column작업면높이) + Me.column감소계수 = New Global.System.Data.DataColumn("감소계수", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column감소계수) + Me.column부재율 = New Global.System.Data.DataColumn("부재율", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column부재율) + Me.column실지수 = New Global.System.Data.DataColumn("실지수", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column실지수) + Me.column최소도입외기량 = New Global.System.Data.DataColumn("최소도입외기량", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column최소도입외기량) + Me.column축소운전시최소도입외기량 = New Global.System.Data.DataColumn("축소운전시최소도입외기량", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column축소운전시최소도입외기량) + Me.column사람 = New Global.System.Data.DataColumn("사람", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column사람) + Me.column작업보조기기 = New Global.System.Data.DataColumn("작업보조기기", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column작업보조기기) + Me.column난방설정온도 = New Global.System.Data.DataColumn("난방설정온도", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column난방설정온도) + Me.column냉방설정온도 = New Global.System.Data.DataColumn("냉방설정온도", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column냉방설정온도) + Me.column야간최저허용온도 = New Global.System.Data.DataColumn("야간최저허용온도", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column야간최저허용온도) + Me.column주말최저허용온도 = New Global.System.Data.DataColumn("주말최저허용온도", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column주말최저허용온도) + Me.column최소설정온도난방 = New Global.System.Data.DataColumn("최소설정온도난방", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column최소설정온도난방) + Me.column최소설정온도냉방 = New Global.System.Data.DataColumn("최소설정온도냉방", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column최소설정온도냉방) + Me.column외기온도난방 = New Global.System.Data.DataColumn("외기온도난방", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column외기온도난방) + Me.column외기온도냉방7월 = New Global.System.Data.DataColumn("외기온도냉방7월", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column외기온도냉방7월) + Me.column외기온도냉방9월 = New Global.System.Data.DataColumn("외기온도냉방9월", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column외기온도냉방9월) + Me.column차감계수 = New Global.System.Data.DataColumn("차감계수", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column차감계수) + Me.column오염계수 = New Global.System.Data.DataColumn("오염계수", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column오염계수) + Me.column부분운전계수 = New Global.System.Data.DataColumn("부분운전계수", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column부분운전계수) + Me.columnday01 = New Global.System.Data.DataColumn("day01", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnday01) + Me.columnday02 = New Global.System.Data.DataColumn("day02", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnday02) + Me.columnday03 = New Global.System.Data.DataColumn("day03", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnday03) + Me.columnday04 = New Global.System.Data.DataColumn("day04", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnday04) + Me.columnday05 = New Global.System.Data.DataColumn("day05", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnday05) + Me.columnday06 = New Global.System.Data.DataColumn("day06", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnday06) + Me.columnday07 = New Global.System.Data.DataColumn("day07", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnday07) + Me.columnday08 = New Global.System.Data.DataColumn("day08", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnday08) + Me.columnday09 = New Global.System.Data.DataColumn("day09", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnday09) + Me.columnday10 = New Global.System.Data.DataColumn("day10", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnday10) + Me.columnday11 = New Global.System.Data.DataColumn("day11", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnday11) + Me.columnday12 = New Global.System.Data.DataColumn("day12", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnday12) + Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columncode}, true)) + Me.columncode.AllowDBNull = false + Me.columncode.Unique = true + Me.columncode.MaxLength = 10 + Me.column설명.MaxLength = 255 + Me.column일일급탕요구량.MaxLength = 20 + Me.column사용시작시간.MaxLength = 20 + Me.column사용종료시간.MaxLength = 20 + Me.column일일사용시간.MaxLength = 20 + Me.column운전시작시간.MaxLength = 20 + Me.column운전종료시간.MaxLength = 20 + Me.column운전시간난방.MaxLength = 20 + Me.column연간사용일수.MaxLength = 20 + Me.column연간사용시간주간.MaxLength = 20 + Me.column연간사용시간야간.MaxLength = 20 + Me.column일일운전시간.MaxLength = 20 + Me.column연간운전일수.MaxLength = 20 + Me.column요구조도.MaxLength = 20 + Me.column작업면높이.MaxLength = 20 + Me.column감소계수.MaxLength = 20 + Me.column부재율.MaxLength = 20 + Me.column실지수.MaxLength = 20 + Me.column최소도입외기량.MaxLength = 20 + Me.column축소운전시최소도입외기량.MaxLength = 20 + Me.column사람.MaxLength = 20 + Me.column작업보조기기.MaxLength = 20 + Me.column난방설정온도.MaxLength = 20 + Me.column냉방설정온도.MaxLength = 20 + Me.column야간최저허용온도.MaxLength = 20 + Me.column주말최저허용온도.MaxLength = 20 + Me.column최소설정온도난방.MaxLength = 20 + Me.column최소설정온도냉방.MaxLength = 20 + Me.column외기온도난방.MaxLength = 20 + Me.column외기온도냉방7월.MaxLength = 20 + Me.column외기온도냉방9월.MaxLength = 20 + Me.column차감계수.MaxLength = 20 + Me.column오염계수.MaxLength = 20 + Me.column부분운전계수.MaxLength = 20 + Me.columnday01.MaxLength = 20 + Me.columnday02.MaxLength = 20 + Me.columnday03.MaxLength = 20 + Me.columnday04.MaxLength = 20 + Me.columnday05.MaxLength = 20 + Me.columnday06.MaxLength = 20 + Me.columnday07.MaxLength = 20 + Me.columnday08.MaxLength = 20 + Me.columnday09.MaxLength = 20 + Me.columnday10.MaxLength = 20 + Me.columnday11.MaxLength = 20 + Me.columnday12.MaxLength = 20 + End Sub + + _ + Public Function Newtbl_profileRow() As tbl_profileRow + Return CType(Me.NewRow,tbl_profileRow) + End Function + + _ + Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow + Return New tbl_profileRow(builder) + End Function + + _ + Protected Overrides Function GetRowType() As Global.System.Type + Return GetType(tbl_profileRow) + End Function + + _ + Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanged(e) + If (Not (Me.tbl_profileRowChangedEvent) Is Nothing) Then + RaiseEvent tbl_profileRowChanged(Me, New tbl_profileRowChangeEvent(CType(e.Row,tbl_profileRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanging(e) + If (Not (Me.tbl_profileRowChangingEvent) Is Nothing) Then + RaiseEvent tbl_profileRowChanging(Me, New tbl_profileRowChangeEvent(CType(e.Row,tbl_profileRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleted(e) + If (Not (Me.tbl_profileRowDeletedEvent) Is Nothing) Then + RaiseEvent tbl_profileRowDeleted(Me, New tbl_profileRowChangeEvent(CType(e.Row,tbl_profileRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleting(e) + If (Not (Me.tbl_profileRowDeletingEvent) Is Nothing) Then + RaiseEvent tbl_profileRowDeleting(Me, New tbl_profileRowChangeEvent(CType(e.Row,tbl_profileRow), e.Action)) + End If + End Sub + + _ + Public Sub Removetbl_profileRow(ByVal row As tbl_profileRow) + 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 = "tbl_profileDataTable" + 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 tbl_commonDataTable + Inherits Global.System.Data.TypedTableBase(Of tbl_commonRow) + + Private columngubun As Global.System.Data.DataColumn + + Private columncode As Global.System.Data.DataColumn + + Private columnname As Global.System.Data.DataColumn + + Private columnvaln1 As Global.System.Data.DataColumn + + Private columncodename As Global.System.Data.DataColumn + + _ + Public Sub New() + Me.New(false) + End Sub + + _ + Public Sub New(ByVal initExpressions As Boolean) + MyBase.New + Me.TableName = "tbl_common" + Me.BeginInit + Me.InitClass + If (initExpressions = true) Then + Me.InitExpressions + End If + 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 gubunColumn() As Global.System.Data.DataColumn + Get + Return Me.columngubun + End Get + End Property + + _ + Public ReadOnly Property codeColumn() As Global.System.Data.DataColumn + Get + Return Me.columncode + End Get + End Property + + _ + Public ReadOnly Property nameColumn() As Global.System.Data.DataColumn + Get + Return Me.columnname + End Get + End Property + + _ + Public ReadOnly Property valn1Column() As Global.System.Data.DataColumn + Get + Return Me.columnvaln1 + End Get + End Property + + _ + Public ReadOnly Property codenameColumn() As Global.System.Data.DataColumn + Get + Return Me.columncodename + 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 tbl_commonRow + Get + Return CType(Me.Rows(index),tbl_commonRow) + End Get + End Property + + _ + Public Event tbl_commonRowChanging As tbl_commonRowChangeEventHandler + + _ + Public Event tbl_commonRowChanged As tbl_commonRowChangeEventHandler + + _ + Public Event tbl_commonRowDeleting As tbl_commonRowChangeEventHandler + + _ + Public Event tbl_commonRowDeleted As tbl_commonRowChangeEventHandler + + _ + Public Overloads Sub Addtbl_commonRow(ByVal row As tbl_commonRow) + Me.Rows.Add(row) + End Sub + + _ + Public Overloads Function Addtbl_commonRow(ByVal gubun As String, ByVal code As String, ByVal name As String, ByVal valn1 As Double, ByVal codename As String) As tbl_commonRow + Dim rowtbl_commonRow As tbl_commonRow = CType(Me.NewRow,tbl_commonRow) + Dim columnValuesArray() As Object = New Object() {gubun, code, name, valn1, codename} + rowtbl_commonRow.ItemArray = columnValuesArray + Me.Rows.Add(rowtbl_commonRow) + Return rowtbl_commonRow + End Function + + _ + Public Overloads Function Addtbl_commonRow(ByVal gubun As String, ByVal code As String, ByVal name As String, ByVal valn1 As Double) As tbl_commonRow + Dim rowtbl_commonRow As tbl_commonRow = CType(Me.NewRow,tbl_commonRow) + Dim columnValuesArray() As Object = New Object() {gubun, code, name, valn1, Nothing} + rowtbl_commonRow.ItemArray = columnValuesArray + Me.Rows.Add(rowtbl_commonRow) + Return rowtbl_commonRow + End Function + + _ + Public Function FindBygubuncode(ByVal gubun As String, ByVal code As String) As tbl_commonRow + Return CType(Me.Rows.Find(New Object() {gubun, code}),tbl_commonRow) + End Function + + _ + Public Overrides Function Clone() As Global.System.Data.DataTable + Dim cln As tbl_commonDataTable = CType(MyBase.Clone,tbl_commonDataTable) + cln.InitVars + Return cln + End Function + + _ + Protected Overrides Function CreateInstance() As Global.System.Data.DataTable + Return New tbl_commonDataTable() + End Function + + _ + Friend Sub InitVars() + Me.columngubun = MyBase.Columns("gubun") + Me.columncode = MyBase.Columns("code") + Me.columnname = MyBase.Columns("name") + Me.columnvaln1 = MyBase.Columns("valn1") + Me.columncodename = MyBase.Columns("codename") + End Sub + + _ + Private Sub InitClass() + Me.columngubun = New Global.System.Data.DataColumn("gubun", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columngubun) + Me.columncode = New Global.System.Data.DataColumn("code", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columncode) + Me.columnname = New Global.System.Data.DataColumn("name", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnname) + Me.columnvaln1 = New Global.System.Data.DataColumn("valn1", GetType(Double), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnvaln1) + Me.columncodename = New Global.System.Data.DataColumn("codename", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columncodename) + Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columngubun, Me.columncode}, true)) + Me.columngubun.AllowDBNull = false + Me.columngubun.DefaultValue = CType("",String) + Me.columngubun.MaxLength = 10 + Me.columncode.AllowDBNull = false + Me.columncode.DefaultValue = CType("",String) + Me.columncode.MaxLength = 10 + Me.columnname.DefaultValue = CType("",String) + Me.columnname.MaxLength = 50 + Me.columnvaln1.DefaultValue = CType(0R,Double) + Me.columncodename.ReadOnly = true + Me.columncodename.DefaultValue = CType("",String) + End Sub + + _ + Public Function Newtbl_commonRow() As tbl_commonRow + Return CType(Me.NewRow,tbl_commonRow) + End Function + + _ + Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow + Return New tbl_commonRow(builder) + End Function + + _ + Protected Overrides Function GetRowType() As Global.System.Type + Return GetType(tbl_commonRow) + End Function + + _ + Private Sub InitExpressions() + Me.codenameColumn.Expression = "'(' + code + ')' +name" + End Sub + + _ + Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanged(e) + If (Not (Me.tbl_commonRowChangedEvent) Is Nothing) Then + RaiseEvent tbl_commonRowChanged(Me, New tbl_commonRowChangeEvent(CType(e.Row,tbl_commonRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanging(e) + If (Not (Me.tbl_commonRowChangingEvent) Is Nothing) Then + RaiseEvent tbl_commonRowChanging(Me, New tbl_commonRowChangeEvent(CType(e.Row,tbl_commonRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleted(e) + If (Not (Me.tbl_commonRowDeletedEvent) Is Nothing) Then + RaiseEvent tbl_commonRowDeleted(Me, New tbl_commonRowChangeEvent(CType(e.Row,tbl_commonRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleting(e) + If (Not (Me.tbl_commonRowDeletingEvent) Is Nothing) Then + RaiseEvent tbl_commonRowDeleting(Me, New tbl_commonRowChangeEvent(CType(e.Row,tbl_commonRow), e.Action)) + End If + End Sub + + _ + Public Sub Removetbl_commonRow(ByVal row As tbl_commonRow) + 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 = "tbl_commonDataTable" + 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 tbl_picDataTable + Inherits Global.System.Data.TypedTableBase(Of tbl_picRow) + + Private columncode As Global.System.Data.DataColumn + + Private columnpic As Global.System.Data.DataColumn + + _ + Public Sub New() + MyBase.New + Me.TableName = "tbl_pic" + 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 codeColumn() As Global.System.Data.DataColumn + Get + Return Me.columncode + End Get + End Property + + _ + Public ReadOnly Property picColumn() As Global.System.Data.DataColumn + Get + Return Me.columnpic + 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 tbl_picRow + Get + Return CType(Me.Rows(index),tbl_picRow) + End Get + End Property + + _ + Public Event tbl_picRowChanging As tbl_picRowChangeEventHandler + + _ + Public Event tbl_picRowChanged As tbl_picRowChangeEventHandler + + _ + Public Event tbl_picRowDeleting As tbl_picRowChangeEventHandler + + _ + Public Event tbl_picRowDeleted As tbl_picRowChangeEventHandler + + _ + Public Overloads Sub Addtbl_picRow(ByVal row As tbl_picRow) + Me.Rows.Add(row) + End Sub + + _ + Public Overloads Function Addtbl_picRow(ByVal code As String, ByVal pic() As Byte) As tbl_picRow + Dim rowtbl_picRow As tbl_picRow = CType(Me.NewRow,tbl_picRow) + Dim columnValuesArray() As Object = New Object() {code, pic} + rowtbl_picRow.ItemArray = columnValuesArray + Me.Rows.Add(rowtbl_picRow) + Return rowtbl_picRow + End Function + + _ + Public Overrides Function Clone() As Global.System.Data.DataTable + Dim cln As tbl_picDataTable = CType(MyBase.Clone,tbl_picDataTable) + cln.InitVars + Return cln + End Function + + _ + Protected Overrides Function CreateInstance() As Global.System.Data.DataTable + Return New tbl_picDataTable() + End Function + + _ + Friend Sub InitVars() + Me.columncode = MyBase.Columns("code") + Me.columnpic = MyBase.Columns("pic") + End Sub + + _ + Private Sub InitClass() + Me.columncode = New Global.System.Data.DataColumn("code", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columncode) + Me.columnpic = New Global.System.Data.DataColumn("pic", GetType(Byte()), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnpic) + End Sub + + _ + Public Function Newtbl_picRow() As tbl_picRow + Return CType(Me.NewRow,tbl_picRow) + End Function + + _ + Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow + Return New tbl_picRow(builder) + End Function + + _ + Protected Overrides Function GetRowType() As Global.System.Type + Return GetType(tbl_picRow) + End Function + + _ + Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanged(e) + If (Not (Me.tbl_picRowChangedEvent) Is Nothing) Then + RaiseEvent tbl_picRowChanged(Me, New tbl_picRowChangeEvent(CType(e.Row,tbl_picRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanging(e) + If (Not (Me.tbl_picRowChangingEvent) Is Nothing) Then + RaiseEvent tbl_picRowChanging(Me, New tbl_picRowChangeEvent(CType(e.Row,tbl_picRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleted(e) + If (Not (Me.tbl_picRowDeletedEvent) Is Nothing) Then + RaiseEvent tbl_picRowDeleted(Me, New tbl_picRowChangeEvent(CType(e.Row,tbl_picRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleting(e) + If (Not (Me.tbl_picRowDeletingEvent) Is Nothing) Then + RaiseEvent tbl_picRowDeleting(Me, New tbl_picRowChangeEvent(CType(e.Row,tbl_picRow), e.Action)) + End If + End Sub + + _ + Public Sub Removetbl_picRow(ByVal row As tbl_picRow) + 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 = "tbl_picDataTable" + 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 tbl_nanbangkikiDataTable + Inherits Global.System.Data.TypedTableBase(Of tbl_nanbangkikiRow) + + Private columncode As Global.System.Data.DataColumn + + Private column설명 As Global.System.Data.DataColumn + + Private column축열탱크방식 As Global.System.Data.DataColumn + + Private column축열제척 As Global.System.Data.DataColumn + + Private column펌프정격전력 As Global.System.Data.DataColumn + + Private column배관망유형 As Global.System.Data.DataColumn + + Private column펌프교정계수 As Global.System.Data.DataColumn + + Private column펌프제어유형 As Global.System.Data.DataColumn + + Private column펌프동력 As Global.System.Data.DataColumn + + Private column분배시스템방식 As Global.System.Data.DataColumn + + Private column순환유무 As Global.System.Data.DataColumn + + Private column펌프동력급탕 As Global.System.Data.DataColumn + + Private column건물길이 As Global.System.Data.DataColumn + + Private column건물넓이 As Global.System.Data.DataColumn + + Private column열공급층수 As Global.System.Data.DataColumn + + Private column층고 As Global.System.Data.DataColumn + + Private column배관길이 As Global.System.Data.DataColumn + + Private column신재생연결여부 As Global.System.Data.DataColumn + + Private column연결된시스템 As Global.System.Data.DataColumn + + Private column펌프제어 As Global.System.Data.DataColumn + + Private column열생산기기방식 As Global.System.Data.DataColumn + + Private column사용연료 As Global.System.Data.DataColumn + + Private column급수온도 As Global.System.Data.DataColumn + + Private column환수온도 As Global.System.Data.DataColumn + + Private column보일러정격출력 As Global.System.Data.DataColumn + + Private column열교환기정격출력 As Global.System.Data.DataColumn + + Private column운전방식 As Global.System.Data.DataColumn + + Private column보일러대수 As Global.System.Data.DataColumn + + Private column정격보일러효율 As Global.System.Data.DataColumn + + Private column보일러방식 As Global.System.Data.DataColumn + + Private column지역난방방식 As Global.System.Data.DataColumn + + Private column히트연료 As Global.System.Data.DataColumn + + Private column히트난방용량 As Global.System.Data.DataColumn + + Private column히트난방정격7 As Global.System.Data.DataColumn + + Private column히트난방정격10 As Global.System.Data.DataColumn + + Private column히트배관길이 As Global.System.Data.DataColumn + + Private column단열등급 As Global.System.Data.DataColumn + + Private column히트펌프시스템종류 As Global.System.Data.DataColumn + + Private column개별기기적용 As Global.System.Data.DataColumn + + Private column헤더적용 As Global.System.Data.DataColumn + + _ + Public Sub New() + MyBase.New + Me.TableName = "tbl_nanbangkiki" + 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 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 축열탱크방식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 펌프교정계수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 순환유무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 열공급층수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 연결된시스템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 급수온도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 운전방식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 지역난방방식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 히트난방정격7Column() As Global.System.Data.DataColumn + Get + Return Me.column히트난방정격7 + End Get + End Property + + _ + Public ReadOnly Property 히트난방정격10Column() As Global.System.Data.DataColumn + Get + Return Me.column히트난방정격10 + 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 헤더적용Column() As Global.System.Data.DataColumn + Get + Return Me.column헤더적용 + 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 tbl_nanbangkikiRow + Get + Return CType(Me.Rows(index),tbl_nanbangkikiRow) + End Get + End Property + + _ + Public Event tbl_nanbangkikiRowChanging As tbl_nanbangkikiRowChangeEventHandler + + _ + Public Event tbl_nanbangkikiRowChanged As tbl_nanbangkikiRowChangeEventHandler + + _ + Public Event tbl_nanbangkikiRowDeleting As tbl_nanbangkikiRowChangeEventHandler + + _ + Public Event tbl_nanbangkikiRowDeleted As tbl_nanbangkikiRowChangeEventHandler + + _ + Public Overloads Sub Addtbl_nanbangkikiRow(ByVal row As tbl_nanbangkikiRow) + Me.Rows.Add(row) + End Sub + + _ + Public Overloads Function Addtbl_nanbangkikiRow( _ + ByVal code As String, _ + ByVal 설명 As String, _ + ByVal 축열탱크방식 As String, _ + ByVal 축열제척 As String, _ + ByVal 펌프정격전력 As String, _ + ByVal 배관망유형 As String, _ + ByVal 펌프교정계수 As String, _ + ByVal 펌프제어유형 As String, _ + ByVal 펌프동력 As String, _ + ByVal 분배시스템방식 As String, _ + ByVal 순환유무 As String, _ + ByVal 펌프동력급탕 As String, _ + ByVal 건물길이 As String, _ + ByVal 건물넓이 As String, _ + ByVal 열공급층수 As String, _ + ByVal 층고 As String, _ + ByVal 배관길이 As String, _ + ByVal 신재생연결여부 As String, _ + ByVal 연결된시스템 As String, _ + ByVal 펌프제어 As String, _ + ByVal 열생산기기방식 As String, _ + ByVal 사용연료 As String, _ + ByVal 급수온도 As String, _ + ByVal 환수온도 As String, _ + ByVal 보일러정격출력 As String, _ + ByVal 열교환기정격출력 As String, _ + ByVal 운전방식 As String, _ + ByVal 보일러대수 As String, _ + ByVal 정격보일러효율 As String, _ + ByVal 보일러방식 As String, _ + ByVal 지역난방방식 As String, _ + ByVal 히트연료 As String, _ + ByVal 히트난방용량 As String, _ + ByVal 히트난방정격7 As String, _ + ByVal 히트난방정격10 As String, _ + ByVal 히트배관길이 As String, _ + ByVal 단열등급 As String, _ + ByVal 히트펌프시스템종류 As String, _ + ByVal 개별기기적용 As Boolean, _ + ByVal 헤더적용 As Boolean) As tbl_nanbangkikiRow + Dim rowtbl_nanbangkikiRow As tbl_nanbangkikiRow = CType(Me.NewRow,tbl_nanbangkikiRow) + Dim columnValuesArray() As Object = New Object() {code, 설명, 축열탱크방식, 축열제척, 펌프정격전력, 배관망유형, 펌프교정계수, 펌프제어유형, 펌프동력, 분배시스템방식, 순환유무, 펌프동력급탕, 건물길이, 건물넓이, 열공급층수, 층고, 배관길이, 신재생연결여부, 연결된시스템, 펌프제어, 열생산기기방식, 사용연료, 급수온도, 환수온도, 보일러정격출력, 열교환기정격출력, 운전방식, 보일러대수, 정격보일러효율, 보일러방식, 지역난방방식, 히트연료, 히트난방용량, 히트난방정격7, 히트난방정격10, 히트배관길이, 단열등급, 히트펌프시스템종류, 개별기기적용, 헤더적용} + rowtbl_nanbangkikiRow.ItemArray = columnValuesArray + Me.Rows.Add(rowtbl_nanbangkikiRow) + Return rowtbl_nanbangkikiRow + End Function + + _ + Public Function FindBycode(ByVal code As String) As tbl_nanbangkikiRow + Return CType(Me.Rows.Find(New Object() {code}),tbl_nanbangkikiRow) + End Function + + _ + Public Overrides Function Clone() As Global.System.Data.DataTable + Dim cln As tbl_nanbangkikiDataTable = CType(MyBase.Clone,tbl_nanbangkikiDataTable) + cln.InitVars + Return cln + End Function + + _ + Protected Overrides Function CreateInstance() As Global.System.Data.DataTable + Return New tbl_nanbangkikiDataTable() + End Function + + _ + Friend Sub InitVars() + Me.columncode = MyBase.Columns("code") + Me.column설명 = MyBase.Columns("설명") + Me.column축열탱크방식 = MyBase.Columns("축열탱크방식") + Me.column축열제척 = MyBase.Columns("축열제척") + Me.column펌프정격전력 = MyBase.Columns("펌프정격전력") + Me.column배관망유형 = MyBase.Columns("배관망유형") + Me.column펌프교정계수 = MyBase.Columns("펌프교정계수") + Me.column펌프제어유형 = MyBase.Columns("펌프제어유형") + Me.column펌프동력 = MyBase.Columns("펌프동력") + Me.column분배시스템방식 = MyBase.Columns("분배시스템방식") + Me.column순환유무 = MyBase.Columns("순환유무") + Me.column펌프동력급탕 = MyBase.Columns("펌프동력급탕") + Me.column건물길이 = MyBase.Columns("건물길이") + Me.column건물넓이 = MyBase.Columns("건물넓이") + Me.column열공급층수 = MyBase.Columns("열공급층수") + Me.column층고 = MyBase.Columns("층고") + Me.column배관길이 = MyBase.Columns("배관길이") + Me.column신재생연결여부 = MyBase.Columns("신재생연결여부") + Me.column연결된시스템 = MyBase.Columns("연결된시스템") + Me.column펌프제어 = MyBase.Columns("펌프제어") + Me.column열생산기기방식 = MyBase.Columns("열생산기기방식") + Me.column사용연료 = MyBase.Columns("사용연료") + Me.column급수온도 = MyBase.Columns("급수온도") + Me.column환수온도 = MyBase.Columns("환수온도") + Me.column보일러정격출력 = MyBase.Columns("보일러정격출력") + Me.column열교환기정격출력 = MyBase.Columns("열교환기정격출력") + Me.column운전방식 = MyBase.Columns("운전방식") + 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히트난방정격7 = MyBase.Columns("히트난방정격7") + Me.column히트난방정격10 = MyBase.Columns("히트난방정격10") + Me.column히트배관길이 = MyBase.Columns("히트배관길이") + Me.column단열등급 = MyBase.Columns("단열등급") + Me.column히트펌프시스템종류 = MyBase.Columns("히트펌프시스템종류") + Me.column개별기기적용 = MyBase.Columns("개별기기적용") + Me.column헤더적용 = MyBase.Columns("헤더적용") + End Sub + + _ + Private Sub InitClass() + 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.column축열탱크방식 = New Global.System.Data.DataColumn("축열탱크방식", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column축열탱크방식) + Me.column축열제척 = New Global.System.Data.DataColumn("축열제척", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column축열제척) + Me.column펌프정격전력 = New Global.System.Data.DataColumn("펌프정격전력", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column펌프정격전력) + Me.column배관망유형 = New Global.System.Data.DataColumn("배관망유형", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column배관망유형) + Me.column펌프교정계수 = New Global.System.Data.DataColumn("펌프교정계수", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column펌프교정계수) + Me.column펌프제어유형 = New Global.System.Data.DataColumn("펌프제어유형", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column펌프제어유형) + Me.column펌프동력 = New Global.System.Data.DataColumn("펌프동력", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column펌프동력) + Me.column분배시스템방식 = New Global.System.Data.DataColumn("분배시스템방식", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column분배시스템방식) + Me.column순환유무 = New Global.System.Data.DataColumn("순환유무", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column순환유무) + Me.column펌프동력급탕 = New Global.System.Data.DataColumn("펌프동력급탕", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column펌프동력급탕) + Me.column건물길이 = New Global.System.Data.DataColumn("건물길이", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column건물길이) + Me.column건물넓이 = New Global.System.Data.DataColumn("건물넓이", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column건물넓이) + Me.column열공급층수 = New Global.System.Data.DataColumn("열공급층수", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column열공급층수) + Me.column층고 = New Global.System.Data.DataColumn("층고", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column층고) + Me.column배관길이 = New Global.System.Data.DataColumn("배관길이", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column배관길이) + Me.column신재생연결여부 = New Global.System.Data.DataColumn("신재생연결여부", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column신재생연결여부) + Me.column연결된시스템 = New Global.System.Data.DataColumn("연결된시스템", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column연결된시스템) + Me.column펌프제어 = New Global.System.Data.DataColumn("펌프제어", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column펌프제어) + Me.column열생산기기방식 = New Global.System.Data.DataColumn("열생산기기방식", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column열생산기기방식) + Me.column사용연료 = New Global.System.Data.DataColumn("사용연료", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column사용연료) + Me.column급수온도 = New Global.System.Data.DataColumn("급수온도", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column급수온도) + Me.column환수온도 = New Global.System.Data.DataColumn("환수온도", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column환수온도) + Me.column보일러정격출력 = New Global.System.Data.DataColumn("보일러정격출력", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column보일러정격출력) + Me.column열교환기정격출력 = New Global.System.Data.DataColumn("열교환기정격출력", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column열교환기정격출력) + Me.column운전방식 = New Global.System.Data.DataColumn("운전방식", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column운전방식) + Me.column보일러대수 = New Global.System.Data.DataColumn("보일러대수", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column보일러대수) + Me.column정격보일러효율 = New Global.System.Data.DataColumn("정격보일러효율", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column정격보일러효율) + Me.column보일러방식 = New Global.System.Data.DataColumn("보일러방식", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column보일러방식) + Me.column지역난방방식 = New Global.System.Data.DataColumn("지역난방방식", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column지역난방방식) + Me.column히트연료 = New Global.System.Data.DataColumn("히트연료", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column히트연료) + Me.column히트난방용량 = New Global.System.Data.DataColumn("히트난방용량", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column히트난방용량) + Me.column히트난방정격7 = New Global.System.Data.DataColumn("히트난방정격7", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column히트난방정격7) + Me.column히트난방정격10 = New Global.System.Data.DataColumn("히트난방정격10", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column히트난방정격10) + Me.column히트배관길이 = New Global.System.Data.DataColumn("히트배관길이", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column히트배관길이) + Me.column단열등급 = New Global.System.Data.DataColumn("단열등급", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column단열등급) + Me.column히트펌프시스템종류 = New Global.System.Data.DataColumn("히트펌프시스템종류", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column히트펌프시스템종류) + Me.column개별기기적용 = New Global.System.Data.DataColumn("개별기기적용", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column개별기기적용) + Me.column헤더적용 = New Global.System.Data.DataColumn("헤더적용", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column헤더적용) + Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columncode}, true)) + Me.columncode.AllowDBNull = false + Me.columncode.Unique = true + Me.columncode.MaxLength = 50 + Me.column설명.DefaultValue = CType("",String) + Me.column설명.MaxLength = 255 + Me.column축열탱크방식.DefaultValue = CType("0",String) + Me.column축열탱크방식.MaxLength = 50 + Me.column축열제척.Caption = "축열체적" + Me.column축열제척.DefaultValue = CType("",String) + Me.column펌프정격전력.DefaultValue = CType("0",String) + Me.column배관망유형.DefaultValue = CType("0",String) + Me.column펌프교정계수.DefaultValue = CType("0",String) + Me.column펌프제어유형.DefaultValue = CType("0",String) + Me.column펌프제어유형.MaxLength = 50 + Me.column펌프동력.DefaultValue = CType("0",String) + Me.column펌프동력.MaxLength = 50 + Me.column분배시스템방식.DefaultValue = CType("0",String) + Me.column순환유무.DefaultValue = CType("0",String) + Me.column순환유무.MaxLength = 50 + Me.column펌프동력급탕.DefaultValue = CType("",String) + Me.column건물길이.DefaultValue = CType("0",String) + Me.column건물넓이.DefaultValue = CType("0",String) + Me.column열공급층수.DefaultValue = CType("",String) + Me.column층고.DefaultValue = CType("",String) + Me.column배관길이.DefaultValue = CType("",String) + Me.column신재생연결여부.DefaultValue = CType("0",String) + Me.column연결된시스템.DefaultValue = CType("0",String) + Me.column펌프제어.DefaultValue = CType("0",String) + Me.column열생산기기방식.DefaultValue = CType("0",String) + Me.column사용연료.DefaultValue = CType("0",String) + Me.column급수온도.DefaultValue = CType("0",String) + Me.column환수온도.DefaultValue = CType("0",String) + Me.column보일러정격출력.DefaultValue = CType("0",String) + Me.column열교환기정격출력.DefaultValue = CType("0",String) + Me.column운전방식.DefaultValue = CType("0",String) + Me.column보일러대수.DefaultValue = CType("0",String) + Me.column정격보일러효율.DefaultValue = CType("0",String) + Me.column보일러방식.DefaultValue = CType("0",String) + Me.column지역난방방식.DefaultValue = CType("0",String) + Me.column히트연료.DefaultValue = CType("",String) + Me.column히트난방용량.DefaultValue = CType("",String) + Me.column히트난방정격7.DefaultValue = CType("0",String) + Me.column히트난방정격10.DefaultValue = CType("",String) + Me.column히트배관길이.DefaultValue = CType("",String) + Me.column단열등급.DefaultValue = CType("0",String) + Me.column히트펌프시스템종류.DefaultValue = CType("",String) + Me.column개별기기적용.DefaultValue = CType(false,Boolean) + Me.column헤더적용.DefaultValue = CType(false,Boolean) + End Sub + + _ + Public Function Newtbl_nanbangkikiRow() As tbl_nanbangkikiRow + Return CType(Me.NewRow,tbl_nanbangkikiRow) + End Function + + _ + Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow + Return New tbl_nanbangkikiRow(builder) + End Function + + _ + Protected Overrides Function GetRowType() As Global.System.Type + Return GetType(tbl_nanbangkikiRow) + End Function + + _ + Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanged(e) + If (Not (Me.tbl_nanbangkikiRowChangedEvent) Is Nothing) Then + RaiseEvent tbl_nanbangkikiRowChanged(Me, New tbl_nanbangkikiRowChangeEvent(CType(e.Row,tbl_nanbangkikiRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanging(e) + If (Not (Me.tbl_nanbangkikiRowChangingEvent) Is Nothing) Then + RaiseEvent tbl_nanbangkikiRowChanging(Me, New tbl_nanbangkikiRowChangeEvent(CType(e.Row,tbl_nanbangkikiRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleted(e) + If (Not (Me.tbl_nanbangkikiRowDeletedEvent) Is Nothing) Then + RaiseEvent tbl_nanbangkikiRowDeleted(Me, New tbl_nanbangkikiRowChangeEvent(CType(e.Row,tbl_nanbangkikiRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleting(e) + If (Not (Me.tbl_nanbangkikiRowDeletingEvent) Is Nothing) Then + RaiseEvent tbl_nanbangkikiRowDeleting(Me, New tbl_nanbangkikiRowChangeEvent(CType(e.Row,tbl_nanbangkikiRow), e.Action)) + End If + End Sub + + _ + Public Sub Removetbl_nanbangkikiRow(ByVal row As tbl_nanbangkikiRow) + 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 = "tbl_nanbangkikiDataTable" + 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 tbl_nangbangkikiDataTable + Inherits Global.System.Data.TypedTableBase(Of tbl_nangbangkikiRow) + + Private columncode As Global.System.Data.DataColumn + + Private column설명 As Global.System.Data.DataColumn + + Private column냉동기방식 As Global.System.Data.DataColumn + + Private column냉동기용량 As Global.System.Data.DataColumn + + Private column열성능비 As Global.System.Data.DataColumn + + Private column냉동기종류 As Global.System.Data.DataColumn + + Private column냉동기압축방식 As Global.System.Data.DataColumn + + Private column압축기제어방식 As Global.System.Data.DataColumn + + Private column냉동기설비시스템 As Global.System.Data.DataColumn + + Private column제어방식 As Global.System.Data.DataColumn + + Private column온수열생산기기 As Global.System.Data.DataColumn + + Private column증발식건식냉각기 As Global.System.Data.DataColumn + + Private column증발식냉각기 As Global.System.Data.DataColumn + + Private column보조방음기유무 As Global.System.Data.DataColumn + + Private column냉각탑입구온도 As Global.System.Data.DataColumn + + Private column신재생연결여부 As Global.System.Data.DataColumn + + Private column연결된시스템 As Global.System.Data.DataColumn + + Private column열생산연결방식 As Global.System.Data.DataColumn + + Private column개별기기적용 As Global.System.Data.DataColumn + + Private column헤더적용 As Global.System.Data.DataColumn + + Private column사용연료 As Global.System.Data.DataColumn + + _ + Public Sub New() + MyBase.New + Me.TableName = "tbl_nangbangkiki" + 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 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 냉동기방식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 냉동기압축방식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 온수열생산기기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 냉각탑입구온도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 개별기기적용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 Count() As Integer + Get + Return Me.Rows.Count + End Get + End Property + + _ + Public Default ReadOnly Property Item(ByVal index As Integer) As tbl_nangbangkikiRow + Get + Return CType(Me.Rows(index),tbl_nangbangkikiRow) + End Get + End Property + + _ + Public Event tbl_nangbangkikiRowChanging As tbl_nangbangkikiRowChangeEventHandler + + _ + Public Event tbl_nangbangkikiRowChanged As tbl_nangbangkikiRowChangeEventHandler + + _ + Public Event tbl_nangbangkikiRowDeleting As tbl_nangbangkikiRowChangeEventHandler + + _ + Public Event tbl_nangbangkikiRowDeleted As tbl_nangbangkikiRowChangeEventHandler + + _ + Public Overloads Sub Addtbl_nangbangkikiRow(ByVal row As tbl_nangbangkikiRow) + Me.Rows.Add(row) + End Sub + + _ + Public Overloads Function Addtbl_nangbangkikiRow( _ + ByVal code As String, _ + ByVal 설명 As String, _ + ByVal 냉동기방식 As String, _ + ByVal 냉동기용량 As String, _ + ByVal 열성능비 As String, _ + ByVal 냉동기종류 As String, _ + ByVal 냉동기압축방식 As String, _ + ByVal 압축기제어방식 As String, _ + ByVal 냉동기설비시스템 As String, _ + ByVal 제어방식 As String, _ + ByVal 온수열생산기기 As String, _ + ByVal 증발식건식냉각기 As String, _ + ByVal 증발식냉각기 As String, _ + ByVal 보조방음기유무 As String, _ + ByVal 냉각탑입구온도 As String, _ + ByVal 신재생연결여부 As String, _ + ByVal 연결된시스템 As String, _ + ByVal 열생산연결방식 As String, _ + ByVal 개별기기적용 As Boolean, _ + ByVal 헤더적용 As Boolean, _ + ByVal 사용연료 As String) As tbl_nangbangkikiRow + Dim rowtbl_nangbangkikiRow As tbl_nangbangkikiRow = CType(Me.NewRow,tbl_nangbangkikiRow) + Dim columnValuesArray() As Object = New Object() {code, 설명, 냉동기방식, 냉동기용량, 열성능비, 냉동기종류, 냉동기압축방식, 압축기제어방식, 냉동기설비시스템, 제어방식, 온수열생산기기, 증발식건식냉각기, 증발식냉각기, 보조방음기유무, 냉각탑입구온도, 신재생연결여부, 연결된시스템, 열생산연결방식, 개별기기적용, 헤더적용, 사용연료} + rowtbl_nangbangkikiRow.ItemArray = columnValuesArray + Me.Rows.Add(rowtbl_nangbangkikiRow) + Return rowtbl_nangbangkikiRow + End Function + + _ + Public Function FindBycode(ByVal code As String) As tbl_nangbangkikiRow + Return CType(Me.Rows.Find(New Object() {code}),tbl_nangbangkikiRow) + End Function + + _ + Public Overrides Function Clone() As Global.System.Data.DataTable + Dim cln As tbl_nangbangkikiDataTable = CType(MyBase.Clone,tbl_nangbangkikiDataTable) + cln.InitVars + Return cln + End Function + + _ + Protected Overrides Function CreateInstance() As Global.System.Data.DataTable + Return New tbl_nangbangkikiDataTable() + End Function + + _ + Friend Sub InitVars() + Me.columncode = MyBase.Columns("code") + Me.column설명 = MyBase.Columns("설명") + Me.column냉동기방식 = MyBase.Columns("냉동기방식") + Me.column냉동기용량 = MyBase.Columns("냉동기용량") + Me.column열성능비 = MyBase.Columns("열성능비") + Me.column냉동기종류 = MyBase.Columns("냉동기종류") + Me.column냉동기압축방식 = MyBase.Columns("냉동기압축방식") + Me.column압축기제어방식 = MyBase.Columns("압축기제어방식") + Me.column냉동기설비시스템 = MyBase.Columns("냉동기설비시스템") + Me.column제어방식 = MyBase.Columns("제어방식") + Me.column온수열생산기기 = MyBase.Columns("온수열생산기기") + Me.column증발식건식냉각기 = MyBase.Columns("증발식건식냉각기") + Me.column증발식냉각기 = MyBase.Columns("증발식냉각기") + Me.column보조방음기유무 = MyBase.Columns("보조방음기유무") + 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 + + _ + Private Sub InitClass() + 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.column냉동기방식 = New Global.System.Data.DataColumn("냉동기방식", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column냉동기방식) + Me.column냉동기용량 = New Global.System.Data.DataColumn("냉동기용량", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column냉동기용량) + Me.column열성능비 = New Global.System.Data.DataColumn("열성능비", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column열성능비) + Me.column냉동기종류 = New Global.System.Data.DataColumn("냉동기종류", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column냉동기종류) + Me.column냉동기압축방식 = New Global.System.Data.DataColumn("냉동기압축방식", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column냉동기압축방식) + Me.column압축기제어방식 = New Global.System.Data.DataColumn("압축기제어방식", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column압축기제어방식) + Me.column냉동기설비시스템 = New Global.System.Data.DataColumn("냉동기설비시스템", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column냉동기설비시스템) + Me.column제어방식 = New Global.System.Data.DataColumn("제어방식", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column제어방식) + Me.column온수열생산기기 = New Global.System.Data.DataColumn("온수열생산기기", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column온수열생산기기) + Me.column증발식건식냉각기 = New Global.System.Data.DataColumn("증발식건식냉각기", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column증발식건식냉각기) + Me.column증발식냉각기 = New Global.System.Data.DataColumn("증발식냉각기", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column증발식냉각기) + Me.column보조방음기유무 = New Global.System.Data.DataColumn("보조방음기유무", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column보조방음기유무) + Me.column냉각탑입구온도 = New Global.System.Data.DataColumn("냉각탑입구온도", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column냉각탑입구온도) + Me.column신재생연결여부 = New Global.System.Data.DataColumn("신재생연결여부", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column신재생연결여부) + Me.column연결된시스템 = New Global.System.Data.DataColumn("연결된시스템", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column연결된시스템) + Me.column열생산연결방식 = New Global.System.Data.DataColumn("열생산연결방식", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column열생산연결방식) + Me.column개별기기적용 = New Global.System.Data.DataColumn("개별기기적용", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column개별기기적용) + Me.column헤더적용 = New Global.System.Data.DataColumn("헤더적용", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column헤더적용) + Me.column사용연료 = New Global.System.Data.DataColumn("사용연료", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column사용연료) + Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columncode}, true)) + Me.columncode.AllowDBNull = false + Me.columncode.Unique = true + Me.columncode.MaxLength = 50 + Me.column설명.DefaultValue = CType("",String) + Me.column설명.MaxLength = 255 + Me.column냉동기방식.DefaultValue = CType("0",String) + Me.column냉동기방식.MaxLength = 50 + Me.column냉동기용량.DefaultValue = CType("",String) + Me.column열성능비.DefaultValue = CType("",String) + Me.column냉동기종류.DefaultValue = CType("0",String) + Me.column냉동기압축방식.DefaultValue = CType("0",String) + Me.column냉동기압축방식.MaxLength = 50 + Me.column압축기제어방식.DefaultValue = CType("0",String) + Me.column압축기제어방식.MaxLength = 50 + Me.column냉동기설비시스템.DefaultValue = CType("0",String) + Me.column제어방식.DefaultValue = CType("0",String) + Me.column제어방식.MaxLength = 50 + Me.column온수열생산기기.DefaultValue = CType("0",String) + Me.column증발식건식냉각기.DefaultValue = CType("0",String) + Me.column증발식냉각기.DefaultValue = CType("0",String) + Me.column보조방음기유무.DefaultValue = CType("0",String) + Me.column냉각탑입구온도.DefaultValue = CType("",String) + Me.column신재생연결여부.DefaultValue = CType("0",String) + Me.column연결된시스템.DefaultValue = CType("0",String) + Me.column열생산연결방식.DefaultValue = CType("",String) + Me.column개별기기적용.DefaultValue = CType(false,Boolean) + Me.column헤더적용.DefaultValue = CType(false,Boolean) + Me.column사용연료.DefaultValue = CType("",String) + End Sub + + _ + Public Function Newtbl_nangbangkikiRow() As tbl_nangbangkikiRow + Return CType(Me.NewRow,tbl_nangbangkikiRow) + End Function + + _ + Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow + Return New tbl_nangbangkikiRow(builder) + End Function + + _ + Protected Overrides Function GetRowType() As Global.System.Type + Return GetType(tbl_nangbangkikiRow) + End Function + + _ + Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanged(e) + If (Not (Me.tbl_nangbangkikiRowChangedEvent) Is Nothing) Then + RaiseEvent tbl_nangbangkikiRowChanged(Me, New tbl_nangbangkikiRowChangeEvent(CType(e.Row,tbl_nangbangkikiRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanging(e) + If (Not (Me.tbl_nangbangkikiRowChangingEvent) Is Nothing) Then + RaiseEvent tbl_nangbangkikiRowChanging(Me, New tbl_nangbangkikiRowChangeEvent(CType(e.Row,tbl_nangbangkikiRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleted(e) + If (Not (Me.tbl_nangbangkikiRowDeletedEvent) Is Nothing) Then + RaiseEvent tbl_nangbangkikiRowDeleted(Me, New tbl_nangbangkikiRowChangeEvent(CType(e.Row,tbl_nangbangkikiRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleting(e) + If (Not (Me.tbl_nangbangkikiRowDeletingEvent) Is Nothing) Then + RaiseEvent tbl_nangbangkikiRowDeleting(Me, New tbl_nangbangkikiRowChangeEvent(CType(e.Row,tbl_nangbangkikiRow), e.Action)) + End If + End Sub + + _ + Public Sub Removetbl_nangbangkikiRow(ByVal row As tbl_nangbangkikiRow) + 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 = "tbl_nangbangkikiDataTable" + 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 tbl_bunbaeDataTable + Inherits Global.System.Data.TypedTableBase(Of tbl_bunbaeRow) + + Private columncode As Global.System.Data.DataColumn + + Private column설명 As Global.System.Data.DataColumn + + Private column냉동기 As Global.System.Data.DataColumn + + Private column냉매방식 As Global.System.Data.DataColumn + + Private column펌프운전제어유무 As Global.System.Data.DataColumn + + Private column급수온도 As Global.System.Data.DataColumn + + Private column환수온도 As Global.System.Data.DataColumn + + Private column설정점에서의온도차 As Global.System.Data.DataColumn + + Private column냉매의비열 As Global.System.Data.DataColumn + + Private column냉매의밀도 As Global.System.Data.DataColumn + + Private column냉매의점도 As Global.System.Data.DataColumn + + Private column배관의압력손실 As Global.System.Data.DataColumn + + Private column개별저항비율 As Global.System.Data.DataColumn + + Private column펌프동력 As Global.System.Data.DataColumn + + Private column공급범위의길이 As Global.System.Data.DataColumn + + Private column공급범위의넓이 As Global.System.Data.DataColumn + + Private column열층의수 As Global.System.Data.DataColumn + + Private column층고 As Global.System.Data.DataColumn + + Private column생산기기압력손실 As Global.System.Data.DataColumn + + Private column사용기기압력손실 As Global.System.Data.DataColumn + + Private column제어밸브압력손실 As Global.System.Data.DataColumn + + _ + Public Sub New() + MyBase.New + Me.TableName = "tbl_bunbae" + 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 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 냉동기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 환수온도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 냉매의점도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 공급범위의길이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 생산기기압력손실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 Count() As Integer + Get + Return Me.Rows.Count + End Get + End Property + + _ + Public Default ReadOnly Property Item(ByVal index As Integer) As tbl_bunbaeRow + Get + Return CType(Me.Rows(index),tbl_bunbaeRow) + End Get + End Property + + _ + Public Event tbl_bunbaeRowChanging As tbl_bunbaeRowChangeEventHandler + + _ + Public Event tbl_bunbaeRowChanged As tbl_bunbaeRowChangeEventHandler + + _ + Public Event tbl_bunbaeRowDeleting As tbl_bunbaeRowChangeEventHandler + + _ + Public Event tbl_bunbaeRowDeleted As tbl_bunbaeRowChangeEventHandler + + _ + Public Overloads Sub Addtbl_bunbaeRow(ByVal row As tbl_bunbaeRow) + Me.Rows.Add(row) + End Sub + + _ + Public Overloads Function Addtbl_bunbaeRow( _ + ByVal code As String, _ + ByVal 설명 As String, _ + ByVal 냉동기 As String, _ + ByVal 냉매방식 As String, _ + ByVal 펌프운전제어유무 As String, _ + ByVal 급수온도 As String, _ + ByVal 환수온도 As String, _ + ByVal 설정점에서의온도차 As String, _ + ByVal 냉매의비열 As String, _ + ByVal 냉매의밀도 As String, _ + ByVal 냉매의점도 As String, _ + ByVal 배관의압력손실 As String, _ + ByVal 개별저항비율 As String, _ + ByVal 펌프동력 As String, _ + ByVal 공급범위의길이 As String, _ + ByVal 공급범위의넓이 As String, _ + ByVal 열층의수 As String, _ + ByVal 층고 As String, _ + ByVal 생산기기압력손실 As String, _ + ByVal 사용기기압력손실 As String, _ + ByVal 제어밸브압력손실 As String) As tbl_bunbaeRow + Dim rowtbl_bunbaeRow As tbl_bunbaeRow = CType(Me.NewRow,tbl_bunbaeRow) + Dim columnValuesArray() As Object = New Object() {code, 설명, 냉동기, 냉매방식, 펌프운전제어유무, 급수온도, 환수온도, 설정점에서의온도차, 냉매의비열, 냉매의밀도, 냉매의점도, 배관의압력손실, 개별저항비율, 펌프동력, 공급범위의길이, 공급범위의넓이, 열층의수, 층고, 생산기기압력손실, 사용기기압력손실, 제어밸브압력손실} + rowtbl_bunbaeRow.ItemArray = columnValuesArray + Me.Rows.Add(rowtbl_bunbaeRow) + Return rowtbl_bunbaeRow + End Function + + _ + Public Function FindBycode(ByVal code As String) As tbl_bunbaeRow + Return CType(Me.Rows.Find(New Object() {code}),tbl_bunbaeRow) + End Function + + _ + Public Overrides Function Clone() As Global.System.Data.DataTable + Dim cln As tbl_bunbaeDataTable = CType(MyBase.Clone,tbl_bunbaeDataTable) + cln.InitVars + Return cln + End Function + + _ + Protected Overrides Function CreateInstance() As Global.System.Data.DataTable + Return New tbl_bunbaeDataTable() + End Function + + _ + Friend Sub InitVars() + Me.columncode = MyBase.Columns("code") + Me.column설명 = MyBase.Columns("설명") + Me.column냉동기 = MyBase.Columns("냉동기") + Me.column냉매방식 = MyBase.Columns("냉매방식") + Me.column펌프운전제어유무 = MyBase.Columns("펌프운전제어유무") + Me.column급수온도 = MyBase.Columns("급수온도") + Me.column환수온도 = MyBase.Columns("환수온도") + Me.column설정점에서의온도차 = MyBase.Columns("설정점에서의온도차") + Me.column냉매의비열 = MyBase.Columns("냉매의비열") + Me.column냉매의밀도 = MyBase.Columns("냉매의밀도") + Me.column냉매의점도 = MyBase.Columns("냉매의점도") + Me.column배관의압력손실 = MyBase.Columns("배관의압력손실") + Me.column개별저항비율 = MyBase.Columns("개별저항비율") + Me.column펌프동력 = MyBase.Columns("펌프동력") + 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 + + _ + Private Sub InitClass() + 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.column냉동기 = New Global.System.Data.DataColumn("냉동기", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column냉동기) + Me.column냉매방식 = New Global.System.Data.DataColumn("냉매방식", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column냉매방식) + Me.column펌프운전제어유무 = New Global.System.Data.DataColumn("펌프운전제어유무", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column펌프운전제어유무) + Me.column급수온도 = New Global.System.Data.DataColumn("급수온도", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column급수온도) + Me.column환수온도 = New Global.System.Data.DataColumn("환수온도", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column환수온도) + Me.column설정점에서의온도차 = New Global.System.Data.DataColumn("설정점에서의온도차", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column설정점에서의온도차) + Me.column냉매의비열 = New Global.System.Data.DataColumn("냉매의비열", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column냉매의비열) + Me.column냉매의밀도 = New Global.System.Data.DataColumn("냉매의밀도", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column냉매의밀도) + Me.column냉매의점도 = New Global.System.Data.DataColumn("냉매의점도", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column냉매의점도) + Me.column배관의압력손실 = New Global.System.Data.DataColumn("배관의압력손실", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column배관의압력손실) + Me.column개별저항비율 = New Global.System.Data.DataColumn("개별저항비율", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column개별저항비율) + Me.column펌프동력 = New Global.System.Data.DataColumn("펌프동력", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column펌프동력) + Me.column공급범위의길이 = New Global.System.Data.DataColumn("공급범위의길이", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column공급범위의길이) + Me.column공급범위의넓이 = New Global.System.Data.DataColumn("공급범위의넓이", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column공급범위의넓이) + Me.column열층의수 = New Global.System.Data.DataColumn("열층의수", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column열층의수) + Me.column층고 = New Global.System.Data.DataColumn("층고", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column층고) + Me.column생산기기압력손실 = New Global.System.Data.DataColumn("생산기기압력손실", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column생산기기압력손실) + Me.column사용기기압력손실 = New Global.System.Data.DataColumn("사용기기압력손실", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column사용기기압력손실) + Me.column제어밸브압력손실 = New Global.System.Data.DataColumn("제어밸브압력손실", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column제어밸브압력손실) + Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columncode}, true)) + Me.columncode.AllowDBNull = false + Me.columncode.Unique = true + Me.columncode.MaxLength = 50 + Me.column설명.DefaultValue = CType("",String) + Me.column설명.MaxLength = 255 + Me.column냉동기.DefaultValue = CType("0",String) + Me.column냉동기.MaxLength = 50 + Me.column냉매방식.DefaultValue = CType("0",String) + Me.column펌프운전제어유무.DefaultValue = CType("0",String) + Me.column급수온도.DefaultValue = CType("",String) + Me.column환수온도.DefaultValue = CType("",String) + Me.column설정점에서의온도차.DefaultValue = CType("",String) + Me.column냉매의비열.DefaultValue = CType("",String) + Me.column냉매의밀도.DefaultValue = CType("",String) + Me.column냉매의점도.DefaultValue = CType("",String) + Me.column배관의압력손실.DefaultValue = CType("",String) + Me.column개별저항비율.DefaultValue = CType("",String) + Me.column펌프동력.DefaultValue = CType("",String) + Me.column공급범위의길이.DefaultValue = CType("",String) + Me.column공급범위의넓이.DefaultValue = CType("",String) + Me.column열층의수.DefaultValue = CType("",String) + Me.column층고.DefaultValue = CType("",String) + Me.column생산기기압력손실.DefaultValue = CType("",String) + Me.column사용기기압력손실.DefaultValue = CType("",String) + Me.column제어밸브압력손실.DefaultValue = CType("",String) + End Sub + + _ + Public Function Newtbl_bunbaeRow() As tbl_bunbaeRow + Return CType(Me.NewRow,tbl_bunbaeRow) + End Function + + _ + Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow + Return New tbl_bunbaeRow(builder) + End Function + + _ + Protected Overrides Function GetRowType() As Global.System.Type + Return GetType(tbl_bunbaeRow) + End Function + + _ + Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanged(e) + If (Not (Me.tbl_bunbaeRowChangedEvent) Is Nothing) Then + RaiseEvent tbl_bunbaeRowChanged(Me, New tbl_bunbaeRowChangeEvent(CType(e.Row,tbl_bunbaeRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanging(e) + If (Not (Me.tbl_bunbaeRowChangingEvent) Is Nothing) Then + RaiseEvent tbl_bunbaeRowChanging(Me, New tbl_bunbaeRowChangeEvent(CType(e.Row,tbl_bunbaeRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleted(e) + If (Not (Me.tbl_bunbaeRowDeletedEvent) Is Nothing) Then + RaiseEvent tbl_bunbaeRowDeleted(Me, New tbl_bunbaeRowChangeEvent(CType(e.Row,tbl_bunbaeRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleting(e) + If (Not (Me.tbl_bunbaeRowDeletingEvent) Is Nothing) Then + RaiseEvent tbl_bunbaeRowDeleting(Me, New tbl_bunbaeRowChangeEvent(CType(e.Row,tbl_bunbaeRow), e.Action)) + End If + End Sub + + _ + Public Sub Removetbl_bunbaeRow(ByVal row As tbl_bunbaeRow) + 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 = "tbl_bunbaeDataTable" + 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 tbl_newDataTable + Inherits Global.System.Data.TypedTableBase(Of tbl_newRow) + + Private columncode As Global.System.Data.DataColumn + + Private column설명 As Global.System.Data.DataColumn + + Private column기기종류 As Global.System.Data.DataColumn + + Private column가동연료 As Global.System.Data.DataColumn + + Private column태양열종류 As Global.System.Data.DataColumn + + Private column집열기유형 As Global.System.Data.DataColumn + + Private column집열판면적 As Global.System.Data.DataColumn + + Private column집열판방위 As Global.System.Data.DataColumn + + Private column솔라펌프의정격출력 As Global.System.Data.DataColumn + + Private column태양열시스템의성능 As Global.System.Data.DataColumn + + Private column무손실효율계수 As Global.System.Data.DataColumn + + Private column열손실계수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태양광모듈면적 As Global.System.Data.DataColumn + + Private column태양광모듈기울기 As Global.System.Data.DataColumn + + Private column태양광모듈방위 As Global.System.Data.DataColumn + + Private column태양광모듈종류 As Global.System.Data.DataColumn + + Private column태양광모듈적용타입 As Global.System.Data.DataColumn + + Private column지열히트펌프용량 As Global.System.Data.DataColumn + + Private column열성능비난방 As Global.System.Data.DataColumn + + Private column열성능비냉방 As Global.System.Data.DataColumn + + Private column펌프용량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열생산능력 As Global.System.Data.DataColumn + + Private column열생산효율 As Global.System.Data.DataColumn + + Private column발전효율 As Global.System.Data.DataColumn + + Private column태양광모듈효율 As Global.System.Data.DataColumn + + Private column지열비고 As Global.System.Data.DataColumn + + Private column열병합신재생여부 As Global.System.Data.DataColumn + + Private column태양광용량 As Global.System.Data.DataColumn + + _ + Public Sub New() + MyBase.New + Me.TableName = "tbl_new" + 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 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 기기종류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 집열판면적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 무손실효율계수Column() As Global.System.Data.DataColumn + Get + Return Me.column무손실효율계수 + 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 태양광모듈면적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 태양광모듈적용타입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 펌프용량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 열생산능력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 지열비고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 Count() As Integer + Get + Return Me.Rows.Count + End Get + End Property + + _ + Public Default ReadOnly Property Item(ByVal index As Integer) As tbl_newRow + Get + Return CType(Me.Rows(index),tbl_newRow) + End Get + End Property + + _ + Public Event tbl_newRowChanging As tbl_newRowChangeEventHandler + + _ + Public Event tbl_newRowChanged As tbl_newRowChangeEventHandler + + _ + Public Event tbl_newRowDeleting As tbl_newRowChangeEventHandler + + _ + Public Event tbl_newRowDeleted As tbl_newRowChangeEventHandler + + _ + Public Overloads Sub Addtbl_newRow(ByVal row As tbl_newRow) + Me.Rows.Add(row) + End Sub + + _ + Public Overloads Function Addtbl_newRow( _ + ByVal code As String, _ + ByVal 설명 As String, _ + ByVal 기기종류 As String, _ + ByVal 가동연료 As String, _ + ByVal 태양열종류 As String, _ + ByVal 집열기유형 As String, _ + ByVal 집열판면적 As String, _ + ByVal 집열판방위 As String, _ + ByVal 솔라펌프의정격출력 As String, _ + ByVal 태양열시스템의성능 As String, _ + ByVal 무손실효율계수 As String, _ + ByVal 열손실계수1차 As String, _ + ByVal 열손실계수2차 As String, _ + ByVal 축열탱크체적급탕 As String, _ + ByVal 축열탱크체적난방 As String, _ + ByVal 축열탱크설치장소 As String, _ + ByVal 태양광모듈면적 As String, _ + ByVal 태양광모듈기울기 As String, _ + ByVal 태양광모듈방위 As String, _ + ByVal 태양광모듈종류 As String, _ + ByVal 태양광모듈적용타입 As String, _ + ByVal 지열히트펌프용량 As String, _ + ByVal 열성능비난방 As String, _ + ByVal 열성능비냉방 As String, _ + ByVal 펌프용량1차 As String, _ + ByVal 펌프용량2차 As String, _ + ByVal 열교환기설치여부 As String, _ + ByVal 팽창탱크설치여부 As String, _ + ByVal 팽창탱크체적 As String, _ + ByVal 열생산능력 As String, _ + ByVal 열생산효율 As String, _ + ByVal 발전효율 As String, _ + ByVal 태양광모듈효율 As String, _ + ByVal 지열비고 As String, _ + ByVal 열병합신재생여부 As Boolean, _ + ByVal 태양광용량 As String) 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차, 열교환기설치여부, 팽창탱크설치여부, 팽창탱크체적, 열생산능력, 열생산효율, 발전효율, 태양광모듈효율, 지열비고, 열병합신재생여부, 태양광용량} + rowtbl_newRow.ItemArray = columnValuesArray + Me.Rows.Add(rowtbl_newRow) + Return rowtbl_newRow + End Function + + _ + Public Function FindBycode(ByVal code As String) As tbl_newRow + Return CType(Me.Rows.Find(New Object() {code}),tbl_newRow) + End Function + + _ + Public Overrides Function Clone() As Global.System.Data.DataTable + Dim cln As tbl_newDataTable = CType(MyBase.Clone,tbl_newDataTable) + cln.InitVars + Return cln + End Function + + _ + Protected Overrides Function CreateInstance() As Global.System.Data.DataTable + Return New tbl_newDataTable() + End Function + + _ + Friend Sub InitVars() + Me.columncode = MyBase.Columns("code") + Me.column설명 = MyBase.Columns("설명") + Me.column기기종류 = MyBase.Columns("기기종류") + Me.column가동연료 = MyBase.Columns("가동연료") + Me.column태양열종류 = MyBase.Columns("태양열종류") + Me.column집열기유형 = MyBase.Columns("집열기유형") + Me.column집열판면적 = MyBase.Columns("집열판면적") + Me.column집열판방위 = MyBase.Columns("집열판방위") + Me.column솔라펌프의정격출력 = MyBase.Columns("솔라펌프의정격출력") + Me.column태양열시스템의성능 = MyBase.Columns("태양열시스템의성능") + Me.column무손실효율계수 = MyBase.Columns("무손실효율계수") + Me.column열손실계수1차 = MyBase.Columns("열손실계수1차") + Me.column열손실계수2차 = MyBase.Columns("열손실계수2차") + Me.column축열탱크체적급탕 = MyBase.Columns("축열탱크체적급탕") + Me.column축열탱크체적난방 = MyBase.Columns("축열탱크체적난방") + Me.column축열탱크설치장소 = MyBase.Columns("축열탱크설치장소") + Me.column태양광모듈면적 = MyBase.Columns("태양광모듈면적") + Me.column태양광모듈기울기 = MyBase.Columns("태양광모듈기울기") + Me.column태양광모듈방위 = MyBase.Columns("태양광모듈방위") + Me.column태양광모듈종류 = MyBase.Columns("태양광모듈종류") + Me.column태양광모듈적용타입 = MyBase.Columns("태양광모듈적용타입") + Me.column지열히트펌프용량 = MyBase.Columns("지열히트펌프용량") + Me.column열성능비난방 = MyBase.Columns("열성능비난방") + Me.column열성능비냉방 = MyBase.Columns("열성능비냉방") + Me.column펌프용량1차 = MyBase.Columns("펌프용량1차") + Me.column펌프용량2차 = MyBase.Columns("펌프용량2차") + Me.column열교환기설치여부 = MyBase.Columns("열교환기설치여부") + Me.column팽창탱크설치여부 = MyBase.Columns("팽창탱크설치여부") + Me.column팽창탱크체적 = MyBase.Columns("팽창탱크체적") + Me.column열생산능력 = MyBase.Columns("열생산능력") + Me.column열생산효율 = MyBase.Columns("열생산효율") + Me.column발전효율 = MyBase.Columns("발전효율") + Me.column태양광모듈효율 = MyBase.Columns("태양광모듈효율") + Me.column지열비고 = MyBase.Columns("지열비고") + Me.column열병합신재생여부 = MyBase.Columns("열병합신재생여부") + Me.column태양광용량 = MyBase.Columns("태양광용량") + End Sub + + _ + Private Sub InitClass() + 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.column기기종류 = New Global.System.Data.DataColumn("기기종류", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column기기종류) + Me.column가동연료 = New Global.System.Data.DataColumn("가동연료", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column가동연료) + Me.column태양열종류 = New Global.System.Data.DataColumn("태양열종류", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column태양열종류) + Me.column집열기유형 = New Global.System.Data.DataColumn("집열기유형", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column집열기유형) + Me.column집열판면적 = New Global.System.Data.DataColumn("집열판면적", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column집열판면적) + Me.column집열판방위 = New Global.System.Data.DataColumn("집열판방위", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column집열판방위) + Me.column솔라펌프의정격출력 = New Global.System.Data.DataColumn("솔라펌프의정격출력", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column솔라펌프의정격출력) + Me.column태양열시스템의성능 = New Global.System.Data.DataColumn("태양열시스템의성능", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column태양열시스템의성능) + Me.column무손실효율계수 = New Global.System.Data.DataColumn("무손실효율계수", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column무손실효율계수) + Me.column열손실계수1차 = New Global.System.Data.DataColumn("열손실계수1차", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column열손실계수1차) + Me.column열손실계수2차 = New Global.System.Data.DataColumn("열손실계수2차", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column열손실계수2차) + Me.column축열탱크체적급탕 = New Global.System.Data.DataColumn("축열탱크체적급탕", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column축열탱크체적급탕) + Me.column축열탱크체적난방 = New Global.System.Data.DataColumn("축열탱크체적난방", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column축열탱크체적난방) + Me.column축열탱크설치장소 = New Global.System.Data.DataColumn("축열탱크설치장소", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column축열탱크설치장소) + Me.column태양광모듈면적 = New Global.System.Data.DataColumn("태양광모듈면적", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column태양광모듈면적) + Me.column태양광모듈기울기 = New Global.System.Data.DataColumn("태양광모듈기울기", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column태양광모듈기울기) + Me.column태양광모듈방위 = New Global.System.Data.DataColumn("태양광모듈방위", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column태양광모듈방위) + Me.column태양광모듈종류 = New Global.System.Data.DataColumn("태양광모듈종류", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column태양광모듈종류) + Me.column태양광모듈적용타입 = New Global.System.Data.DataColumn("태양광모듈적용타입", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column태양광모듈적용타입) + Me.column지열히트펌프용량 = New Global.System.Data.DataColumn("지열히트펌프용량", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column지열히트펌프용량) + Me.column열성능비난방 = New Global.System.Data.DataColumn("열성능비난방", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column열성능비난방) + Me.column열성능비냉방 = New Global.System.Data.DataColumn("열성능비냉방", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column열성능비냉방) + Me.column펌프용량1차 = New Global.System.Data.DataColumn("펌프용량1차", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column펌프용량1차) + Me.column펌프용량2차 = New Global.System.Data.DataColumn("펌프용량2차", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column펌프용량2차) + Me.column열교환기설치여부 = New Global.System.Data.DataColumn("열교환기설치여부", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column열교환기설치여부) + Me.column팽창탱크설치여부 = New Global.System.Data.DataColumn("팽창탱크설치여부", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column팽창탱크설치여부) + Me.column팽창탱크체적 = New Global.System.Data.DataColumn("팽창탱크체적", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column팽창탱크체적) + Me.column열생산능력 = New Global.System.Data.DataColumn("열생산능력", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column열생산능력) + Me.column열생산효율 = New Global.System.Data.DataColumn("열생산효율", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column열생산효율) + Me.column발전효율 = New Global.System.Data.DataColumn("발전효율", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column발전효율) + Me.column태양광모듈효율 = New Global.System.Data.DataColumn("태양광모듈효율", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column태양광모듈효율) + Me.column지열비고 = New Global.System.Data.DataColumn("지열비고", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column지열비고) + Me.column열병합신재생여부 = New Global.System.Data.DataColumn("열병합신재생여부", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column열병합신재생여부) + Me.column태양광용량 = New Global.System.Data.DataColumn("태양광용량", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column태양광용량) + Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columncode}, true)) + Me.columncode.AllowDBNull = false + Me.columncode.Unique = true + Me.columncode.MaxLength = 50 + Me.column설명.DefaultValue = CType("",String) + Me.column설명.MaxLength = 255 + Me.column가동연료.DefaultValue = CType("0",String) + Me.column태양열종류.DefaultValue = CType("0",String) + Me.column집열기유형.DefaultValue = CType("0",String) + Me.column집열판면적.DefaultValue = CType("",String) + Me.column집열판방위.DefaultValue = CType("0",String) + Me.column솔라펌프의정격출력.DefaultValue = CType("",String) + Me.column태양열시스템의성능.DefaultValue = CType("0",String) + Me.column무손실효율계수.DefaultValue = CType("",String) + Me.column열손실계수1차.DefaultValue = CType("",String) + Me.column열손실계수2차.DefaultValue = CType("",String) + Me.column축열탱크체적급탕.DefaultValue = CType("",String) + Me.column축열탱크체적난방.DefaultValue = CType("",String) + Me.column축열탱크설치장소.DefaultValue = CType("0",String) + Me.column태양광모듈면적.DefaultValue = CType("",String) + Me.column태양광모듈기울기.DefaultValue = CType("0",String) + Me.column태양광모듈방위.DefaultValue = CType("0",String) + Me.column태양광모듈종류.DefaultValue = CType("0",String) + Me.column태양광모듈적용타입.DefaultValue = CType("0",String) + Me.column지열히트펌프용량.DefaultValue = CType("",String) + Me.column열성능비난방.DefaultValue = CType("",String) + Me.column열성능비냉방.DefaultValue = CType("",String) + Me.column펌프용량1차.DefaultValue = CType("",String) + Me.column펌프용량2차.DefaultValue = CType("",String) + Me.column열교환기설치여부.DefaultValue = CType("0",String) + Me.column팽창탱크설치여부.DefaultValue = CType("0",String) + Me.column팽창탱크체적.DefaultValue = CType("",String) + Me.column열생산능력.DefaultValue = CType("",String) + Me.column열생산효율.DefaultValue = CType("",String) + Me.column발전효율.DefaultValue = CType("",String) + Me.column태양광모듈효율.DefaultValue = CType("",String) + Me.column지열비고.DefaultValue = CType("",String) + Me.column열병합신재생여부.DefaultValue = CType(false,Boolean) + Me.column태양광용량.DefaultValue = CType("0",String) + End Sub + + _ + Public Function Newtbl_newRow() As tbl_newRow + Return CType(Me.NewRow,tbl_newRow) + End Function + + _ + Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow + Return New tbl_newRow(builder) + End Function + + _ + Protected Overrides Function GetRowType() As Global.System.Type + Return GetType(tbl_newRow) + End Function + + _ + Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanged(e) + If (Not (Me.tbl_newRowChangedEvent) Is Nothing) Then + RaiseEvent tbl_newRowChanged(Me, New tbl_newRowChangeEvent(CType(e.Row,tbl_newRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanging(e) + If (Not (Me.tbl_newRowChangingEvent) Is Nothing) Then + RaiseEvent tbl_newRowChanging(Me, New tbl_newRowChangeEvent(CType(e.Row,tbl_newRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleted(e) + If (Not (Me.tbl_newRowDeletedEvent) Is Nothing) Then + RaiseEvent tbl_newRowDeleted(Me, New tbl_newRowChangeEvent(CType(e.Row,tbl_newRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleting(e) + If (Not (Me.tbl_newRowDeletingEvent) Is Nothing) Then + RaiseEvent tbl_newRowDeleting(Me, New tbl_newRowChangeEvent(CType(e.Row,tbl_newRow), e.Action)) + End If + End Sub + + _ + Public Sub Removetbl_newRow(ByVal row As tbl_newRow) + 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 = "tbl_newDataTable" + 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 tbl_myounDataTable + Inherits Global.System.Data.TypedTableBase(Of tbl_myounRow) + + Private columncode As Global.System.Data.DataColumn + + Private column설명 As Global.System.Data.DataColumn + + Private column건축부위방식 As Global.System.Data.DataColumn + + Private column방위 As Global.System.Data.DataColumn + + Private column건축부위면적 As Global.System.Data.DataColumn + + Private column열관류율 As Global.System.Data.DataColumn + + Private column투과율 As Global.System.Data.DataColumn + + Private column수평차양각 As Global.System.Data.DataColumn + + Private column수직차양각 As Global.System.Data.DataColumn + + Private column블라인드유무 As Global.System.Data.DataColumn + + Private column블라인드위치 As Global.System.Data.DataColumn + + Private column블라인드각도 As Global.System.Data.DataColumn + + Private column블라인드빛종류 As Global.System.Data.DataColumn + + Private column블라인드색상 As Global.System.Data.DataColumn + + Private column존분류 As Global.System.Data.DataColumn + + Private column대차대조존 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수직길이 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 columnsortkey As Global.System.Data.DataColumn + + _ + Public Sub New() + MyBase.New + Me.TableName = "tbl_myoun" + 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 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 건축부위방식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 투과율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 블라인드위치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 존분류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 열관류율2Column() 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 수직길이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 sortkeyColumn() As Global.System.Data.DataColumn + Get + Return Me.columnsortkey + 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 tbl_myounRow + Get + Return CType(Me.Rows(index),tbl_myounRow) + End Get + End Property + + _ + Public Event tbl_myounRowChanging As tbl_myounRowChangeEventHandler + + _ + Public Event tbl_myounRowChanged As tbl_myounRowChangeEventHandler + + _ + Public Event tbl_myounRowDeleting As tbl_myounRowChangeEventHandler + + _ + Public Event tbl_myounRowDeleted As tbl_myounRowChangeEventHandler + + _ + Public Overloads Sub Addtbl_myounRow(ByVal row As tbl_myounRow) + Me.Rows.Add(row) + End Sub + + _ + Public Overloads Function Addtbl_myounRow( _ + ByVal code As String, _ + ByVal 설명 As String, _ + ByVal 건축부위방식 As String, _ + ByVal 방위 As String, _ + ByVal 건축부위면적 As String, _ + ByVal 열관류율 As String, _ + ByVal 투과율 As String, _ + ByVal 수평차양각 As String, _ + ByVal 수직차양각 As String, _ + ByVal 블라인드유무 As String, _ + ByVal 블라인드위치 As String, _ + ByVal 블라인드각도 As String, _ + ByVal 블라인드빛종류 As String, _ + ByVal 블라인드색상 As String, _ + ByVal 존분류 As String, _ + ByVal 대차대조존 As String, _ + ByVal 열관류율2 As String, _ + ByVal 수평입력각 As String, _ + ByVal 수직입력각 As String, _ + ByVal 수평길이 As String, _ + ByVal 수직길이 As String, _ + ByVal 수평중심길이 As String, _ + ByVal 수직중심길이 As String, _ + ByVal 차양각선택 As String, _ + ByVal sortkey As UShort) As tbl_myounRow + Dim rowtbl_myounRow As tbl_myounRow = CType(Me.NewRow,tbl_myounRow) + Dim columnValuesArray() As Object = New Object() {code, 설명, 건축부위방식, 방위, 건축부위면적, 열관류율, 투과율, 수평차양각, 수직차양각, 블라인드유무, 블라인드위치, 블라인드각도, 블라인드빛종류, 블라인드색상, 존분류, 대차대조존, 열관류율2, 수평입력각, 수직입력각, 수평길이, 수직길이, 수평중심길이, 수직중심길이, 차양각선택, sortkey} + rowtbl_myounRow.ItemArray = columnValuesArray + Me.Rows.Add(rowtbl_myounRow) + Return rowtbl_myounRow + End Function + + _ + Public Function FindBycode(ByVal code As String) As tbl_myounRow + Return CType(Me.Rows.Find(New Object() {code}),tbl_myounRow) + End Function + + _ + Public Overrides Function Clone() As Global.System.Data.DataTable + Dim cln As tbl_myounDataTable = CType(MyBase.Clone,tbl_myounDataTable) + cln.InitVars + Return cln + End Function + + _ + Protected Overrides Function CreateInstance() As Global.System.Data.DataTable + Return New tbl_myounDataTable() + End Function + + _ + Friend Sub InitVars() + Me.columncode = MyBase.Columns("code") + Me.column설명 = MyBase.Columns("설명") + Me.column건축부위방식 = MyBase.Columns("건축부위방식") + Me.column방위 = MyBase.Columns("방위") + Me.column건축부위면적 = MyBase.Columns("건축부위면적") + Me.column열관류율 = MyBase.Columns("열관류율") + Me.column투과율 = MyBase.Columns("투과율") + Me.column수평차양각 = MyBase.Columns("수평차양각") + Me.column수직차양각 = MyBase.Columns("수직차양각") + Me.column블라인드유무 = MyBase.Columns("블라인드유무") + Me.column블라인드위치 = MyBase.Columns("블라인드위치") + Me.column블라인드각도 = MyBase.Columns("블라인드각도") + Me.column블라인드빛종류 = MyBase.Columns("블라인드빛종류") + Me.column블라인드색상 = MyBase.Columns("블라인드색상") + Me.column존분류 = MyBase.Columns("존분류") + Me.column대차대조존 = MyBase.Columns("대차대조존") + Me.column열관류율2 = MyBase.Columns("열관류율2") + 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.columnsortkey = MyBase.Columns("sortkey") + End Sub + + _ + Private Sub InitClass() + 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.column건축부위방식 = New Global.System.Data.DataColumn("건축부위방식", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column건축부위방식) + Me.column방위 = New Global.System.Data.DataColumn("방위", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column방위) + Me.column건축부위면적 = New Global.System.Data.DataColumn("건축부위면적", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column건축부위면적) + Me.column열관류율 = New Global.System.Data.DataColumn("열관류율", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column열관류율) + Me.column투과율 = New Global.System.Data.DataColumn("투과율", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column투과율) + Me.column수평차양각 = New Global.System.Data.DataColumn("수평차양각", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column수평차양각) + Me.column수직차양각 = New Global.System.Data.DataColumn("수직차양각", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column수직차양각) + Me.column블라인드유무 = New Global.System.Data.DataColumn("블라인드유무", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column블라인드유무) + Me.column블라인드위치 = New Global.System.Data.DataColumn("블라인드위치", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column블라인드위치) + Me.column블라인드각도 = New Global.System.Data.DataColumn("블라인드각도", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column블라인드각도) + Me.column블라인드빛종류 = New Global.System.Data.DataColumn("블라인드빛종류", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column블라인드빛종류) + Me.column블라인드색상 = New Global.System.Data.DataColumn("블라인드색상", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column블라인드색상) + Me.column존분류 = New Global.System.Data.DataColumn("존분류", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column존분류) + Me.column대차대조존 = New Global.System.Data.DataColumn("대차대조존", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column대차대조존) + Me.column열관류율2 = New Global.System.Data.DataColumn("열관류율2", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column열관류율2) + Me.column수평입력각 = New Global.System.Data.DataColumn("수평입력각", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column수평입력각) + Me.column수직입력각 = New Global.System.Data.DataColumn("수직입력각", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column수직입력각) + Me.column수평길이 = New Global.System.Data.DataColumn("수평길이", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column수평길이) + Me.column수직길이 = New Global.System.Data.DataColumn("수직길이", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column수직길이) + Me.column수평중심길이 = New Global.System.Data.DataColumn("수평중심길이", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column수평중심길이) + Me.column수직중심길이 = New Global.System.Data.DataColumn("수직중심길이", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column수직중심길이) + Me.column차양각선택 = New Global.System.Data.DataColumn("차양각선택", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column차양각선택) + Me.columnsortkey = New Global.System.Data.DataColumn("sortkey", GetType(UShort), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnsortkey) + Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columncode}, true)) + Me.columncode.AllowDBNull = false + Me.columncode.Unique = true + Me.columncode.DefaultValue = CType("",String) + Me.columncode.MaxLength = 50 + Me.column설명.DefaultValue = CType("",String) + Me.column설명.MaxLength = 255 + Me.column건축부위방식.DefaultValue = CType("0",String) + Me.column방위.DefaultValue = CType("0",String) + Me.column열관류율.DefaultValue = CType("0",String) + Me.column투과율.DefaultValue = CType("0",String) + Me.column블라인드유무.DefaultValue = CType("0",String) + Me.column블라인드위치.DefaultValue = CType("0",String) + Me.column블라인드각도.DefaultValue = CType("0",String) + Me.column블라인드빛종류.DefaultValue = CType("0",String) + Me.column블라인드색상.DefaultValue = CType("0",String) + Me.column존분류.DefaultValue = CType("0",String) + Me.column대차대조존.DefaultValue = CType("0",String) + Me.column열관류율2.DefaultValue = CType("0",String) + Me.column수평입력각.DefaultValue = CType("0",String) + Me.column수직입력각.DefaultValue = CType("0",String) + Me.column수평길이.DefaultValue = CType("0",String) + Me.column수직길이.DefaultValue = CType("0",String) + Me.column수평중심길이.DefaultValue = CType("0",String) + Me.column수직중심길이.DefaultValue = CType("0",String) + Me.column차양각선택.DefaultValue = CType("0",String) + Me.columnsortkey.DefaultValue = CType(1US,UShort) + End Sub + + _ + Public Function Newtbl_myounRow() As tbl_myounRow + Return CType(Me.NewRow,tbl_myounRow) + End Function + + _ + Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow + Return New tbl_myounRow(builder) + End Function + + _ + Protected Overrides Function GetRowType() As Global.System.Type + Return GetType(tbl_myounRow) + End Function + + _ + Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanged(e) + If (Not (Me.tbl_myounRowChangedEvent) Is Nothing) Then + RaiseEvent tbl_myounRowChanged(Me, New tbl_myounRowChangeEvent(CType(e.Row,tbl_myounRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanging(e) + If (Not (Me.tbl_myounRowChangingEvent) Is Nothing) Then + RaiseEvent tbl_myounRowChanging(Me, New tbl_myounRowChangeEvent(CType(e.Row,tbl_myounRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleted(e) + If (Not (Me.tbl_myounRowDeletedEvent) Is Nothing) Then + RaiseEvent tbl_myounRowDeleted(Me, New tbl_myounRowChangeEvent(CType(e.Row,tbl_myounRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleting(e) + If (Not (Me.tbl_myounRowDeletingEvent) Is Nothing) Then + RaiseEvent tbl_myounRowDeleting(Me, New tbl_myounRowChangeEvent(CType(e.Row,tbl_myounRow), e.Action)) + End If + End Sub + + _ + Public Sub Removetbl_myounRow(ByVal row As tbl_myounRow) + 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 = "tbl_myounDataTable" + 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 tbl_buhaDataTable + Inherits Global.System.Data.TypedTableBase(Of tbl_buhaRow) + + Private columncode As Global.System.Data.DataColumn + + Private column설명 As Global.System.Data.DataColumn + + Private columnn01 As Global.System.Data.DataColumn + + Private columnn02 As Global.System.Data.DataColumn + + Private columnn03 As Global.System.Data.DataColumn + + Private columnn04 As Global.System.Data.DataColumn + + Private columnn05 As Global.System.Data.DataColumn + + Private columnn06 As Global.System.Data.DataColumn + + Private columnn07 As Global.System.Data.DataColumn + + Private columnn08 As Global.System.Data.DataColumn + + Private columnn09 As Global.System.Data.DataColumn + + Private columnn10 As Global.System.Data.DataColumn + + _ + Public Sub New() + MyBase.New + Me.TableName = "tbl_buha" + 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 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 n01Column() As Global.System.Data.DataColumn + Get + Return Me.columnn01 + End Get + End Property + + _ + Public ReadOnly Property n02Column() As Global.System.Data.DataColumn + Get + Return Me.columnn02 + End Get + End Property + + _ + Public ReadOnly Property n03Column() As Global.System.Data.DataColumn + Get + Return Me.columnn03 + End Get + End Property + + _ + Public ReadOnly Property n04Column() As Global.System.Data.DataColumn + Get + Return Me.columnn04 + End Get + End Property + + _ + Public ReadOnly Property n05Column() As Global.System.Data.DataColumn + Get + Return Me.columnn05 + End Get + End Property + + _ + Public ReadOnly Property n06Column() As Global.System.Data.DataColumn + Get + Return Me.columnn06 + End Get + End Property + + _ + Public ReadOnly Property n07Column() As Global.System.Data.DataColumn + Get + Return Me.columnn07 + End Get + End Property + + _ + Public ReadOnly Property n08Column() As Global.System.Data.DataColumn + Get + Return Me.columnn08 + End Get + End Property + + _ + Public ReadOnly Property n09Column() As Global.System.Data.DataColumn + Get + Return Me.columnn09 + End Get + End Property + + _ + Public ReadOnly Property n10Column() As Global.System.Data.DataColumn + Get + Return Me.columnn10 + 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 tbl_buhaRow + Get + Return CType(Me.Rows(index),tbl_buhaRow) + End Get + End Property + + _ + Public Event tbl_buhaRowChanging As tbl_buhaRowChangeEventHandler + + _ + Public Event tbl_buhaRowChanged As tbl_buhaRowChangeEventHandler + + _ + Public Event tbl_buhaRowDeleting As tbl_buhaRowChangeEventHandler + + _ + Public Event tbl_buhaRowDeleted As tbl_buhaRowChangeEventHandler + + _ + Public Overloads Sub Addtbl_buhaRow(ByVal row As tbl_buhaRow) + Me.Rows.Add(row) + End Sub + + _ + Public Overloads Function Addtbl_buhaRow(ByVal code As String, ByVal 설명 As String, ByVal n01 As String, ByVal n02 As String, ByVal n03 As String, ByVal n04 As String, ByVal n05 As String, ByVal n06 As String, ByVal n07 As String, ByVal n08 As String, ByVal n09 As String, ByVal n10 As String) As tbl_buhaRow + Dim rowtbl_buhaRow As tbl_buhaRow = CType(Me.NewRow,tbl_buhaRow) + Dim columnValuesArray() As Object = New Object() {code, 설명, n01, n02, n03, n04, n05, n06, n07, n08, n09, n10} + rowtbl_buhaRow.ItemArray = columnValuesArray + Me.Rows.Add(rowtbl_buhaRow) + Return rowtbl_buhaRow + End Function + + _ + Public Function FindBycode(ByVal code As String) As tbl_buhaRow + Return CType(Me.Rows.Find(New Object() {code}),tbl_buhaRow) + End Function + + _ + Public Overrides Function Clone() As Global.System.Data.DataTable + Dim cln As tbl_buhaDataTable = CType(MyBase.Clone,tbl_buhaDataTable) + cln.InitVars + Return cln + End Function + + _ + Protected Overrides Function CreateInstance() As Global.System.Data.DataTable + Return New tbl_buhaDataTable() + End Function + + _ + Friend Sub InitVars() + Me.columncode = MyBase.Columns("code") + Me.column설명 = MyBase.Columns("설명") + Me.columnn01 = MyBase.Columns("n01") + Me.columnn02 = MyBase.Columns("n02") + Me.columnn03 = MyBase.Columns("n03") + Me.columnn04 = MyBase.Columns("n04") + Me.columnn05 = MyBase.Columns("n05") + Me.columnn06 = MyBase.Columns("n06") + Me.columnn07 = MyBase.Columns("n07") + Me.columnn08 = MyBase.Columns("n08") + Me.columnn09 = MyBase.Columns("n09") + Me.columnn10 = MyBase.Columns("n10") + End Sub + + _ + Private Sub InitClass() + 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.columnn01 = New Global.System.Data.DataColumn("n01", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnn01) + Me.columnn02 = New Global.System.Data.DataColumn("n02", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnn02) + Me.columnn03 = New Global.System.Data.DataColumn("n03", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnn03) + Me.columnn04 = New Global.System.Data.DataColumn("n04", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnn04) + Me.columnn05 = New Global.System.Data.DataColumn("n05", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnn05) + Me.columnn06 = New Global.System.Data.DataColumn("n06", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnn06) + Me.columnn07 = New Global.System.Data.DataColumn("n07", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnn07) + Me.columnn08 = New Global.System.Data.DataColumn("n08", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnn08) + Me.columnn09 = New Global.System.Data.DataColumn("n09", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnn09) + Me.columnn10 = New Global.System.Data.DataColumn("n10", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnn10) + Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columncode}, true)) + Me.columncode.AllowDBNull = false + Me.columncode.Unique = true + Me.columncode.DefaultValue = CType("",String) + Me.column설명.DefaultValue = CType("",String) + Me.columnn01.DefaultValue = CType("",String) + Me.columnn02.DefaultValue = CType("",String) + Me.columnn03.DefaultValue = CType("",String) + Me.columnn04.DefaultValue = CType("",String) + Me.columnn05.DefaultValue = CType("",String) + Me.columnn06.DefaultValue = CType("",String) + Me.columnn07.DefaultValue = CType("",String) + Me.columnn08.DefaultValue = CType("",String) + Me.columnn09.DefaultValue = CType("",String) + Me.columnn10.DefaultValue = CType("",String) + End Sub + + _ + Public Function Newtbl_buhaRow() As tbl_buhaRow + Return CType(Me.NewRow,tbl_buhaRow) + End Function + + _ + Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow + Return New tbl_buhaRow(builder) + End Function + + _ + Protected Overrides Function GetRowType() As Global.System.Type + Return GetType(tbl_buhaRow) + End Function + + _ + Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanged(e) + If (Not (Me.tbl_buhaRowChangedEvent) Is Nothing) Then + RaiseEvent tbl_buhaRowChanged(Me, New tbl_buhaRowChangeEvent(CType(e.Row,tbl_buhaRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanging(e) + If (Not (Me.tbl_buhaRowChangingEvent) Is Nothing) Then + RaiseEvent tbl_buhaRowChanging(Me, New tbl_buhaRowChangeEvent(CType(e.Row,tbl_buhaRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleted(e) + If (Not (Me.tbl_buhaRowDeletedEvent) Is Nothing) Then + RaiseEvent tbl_buhaRowDeleted(Me, New tbl_buhaRowChangeEvent(CType(e.Row,tbl_buhaRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleting(e) + If (Not (Me.tbl_buhaRowDeletingEvent) Is Nothing) Then + RaiseEvent tbl_buhaRowDeleting(Me, New tbl_buhaRowChangeEvent(CType(e.Row,tbl_buhaRow), e.Action)) + End If + End Sub + + _ + Public Sub Removetbl_buhaRow(ByVal row As tbl_buhaRow) + 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 = "tbl_buhaDataTable" + 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 tbl_nbunbaeDataTable + Inherits Global.System.Data.TypedTableBase(Of tbl_nbunbaeRow) + + Private columncode As Global.System.Data.DataColumn + + Private column설명 As Global.System.Data.DataColumn + + Private column생산기기구분 As Global.System.Data.DataColumn + + Private column표준치적용 As Global.System.Data.DataColumn + + Private column배관망유형 As Global.System.Data.DataColumn + + Private column배관구간방식 As Global.System.Data.DataColumn + + Private column배관구간길이 As Global.System.Data.DataColumn + + Private column열관류율 As Global.System.Data.DataColumn + + Private column배관설치장소 As Global.System.Data.DataColumn + + Private column건물길이x As Global.System.Data.DataColumn + + Private column건물길이y 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 + + _ + Public Sub New() + MyBase.New + Me.TableName = "tbl_nbunbae" + 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 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 생산기기구분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 배관구간길이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 건물길이xColumn() As Global.System.Data.DataColumn + Get + Return Me.column건물길이x + End Get + End Property + + _ + Public ReadOnly Property 건물길이yColumn() As Global.System.Data.DataColumn + Get + Return Me.column건물길이y + 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 Count() As Integer + Get + Return Me.Rows.Count + End Get + End Property + + _ + Public Default ReadOnly Property Item(ByVal index As Integer) As tbl_nbunbaeRow + Get + Return CType(Me.Rows(index),tbl_nbunbaeRow) + End Get + End Property + + _ + Public Event tbl_nbunbaeRowChanging As tbl_nbunbaeRowChangeEventHandler + + _ + Public Event tbl_nbunbaeRowChanged As tbl_nbunbaeRowChangeEventHandler + + _ + Public Event tbl_nbunbaeRowDeleting As tbl_nbunbaeRowChangeEventHandler + + _ + Public Event tbl_nbunbaeRowDeleted As tbl_nbunbaeRowChangeEventHandler + + _ + Public Overloads Sub Addtbl_nbunbaeRow(ByVal row As tbl_nbunbaeRow) + Me.Rows.Add(row) + End Sub + + _ + Public Overloads Function Addtbl_nbunbaeRow(ByVal code As String, ByVal 설명 As String, ByVal 생산기기구분 As String, ByVal 표준치적용 As String, ByVal 배관망유형 As String, ByVal 배관구간방식 As String, ByVal 배관구간길이 As String, ByVal 열관류율 As String, ByVal 배관설치장소 As String, ByVal 건물길이x As String, ByVal 건물길이y As String, ByVal 층수 As String, ByVal 층고 As String, ByVal 지관장소 As String) As tbl_nbunbaeRow + Dim rowtbl_nbunbaeRow As tbl_nbunbaeRow = CType(Me.NewRow,tbl_nbunbaeRow) + Dim columnValuesArray() As Object = New Object() {code, 설명, 생산기기구분, 표준치적용, 배관망유형, 배관구간방식, 배관구간길이, 열관류율, 배관설치장소, 건물길이x, 건물길이y, 층수, 층고, 지관장소} + rowtbl_nbunbaeRow.ItemArray = columnValuesArray + Me.Rows.Add(rowtbl_nbunbaeRow) + Return rowtbl_nbunbaeRow + End Function + + _ + Public Function FindBycode(ByVal code As String) As tbl_nbunbaeRow + Return CType(Me.Rows.Find(New Object() {code}),tbl_nbunbaeRow) + End Function + + _ + Public Overrides Function Clone() As Global.System.Data.DataTable + Dim cln As tbl_nbunbaeDataTable = CType(MyBase.Clone,tbl_nbunbaeDataTable) + cln.InitVars + Return cln + End Function + + _ + Protected Overrides Function CreateInstance() As Global.System.Data.DataTable + Return New tbl_nbunbaeDataTable() + End Function + + _ + Friend Sub InitVars() + Me.columncode = MyBase.Columns("code") + Me.column설명 = MyBase.Columns("설명") + Me.column생산기기구분 = MyBase.Columns("생산기기구분") + Me.column표준치적용 = MyBase.Columns("표준치적용") + Me.column배관망유형 = MyBase.Columns("배관망유형") + Me.column배관구간방식 = MyBase.Columns("배관구간방식") + Me.column배관구간길이 = MyBase.Columns("배관구간길이") + Me.column열관류율 = MyBase.Columns("열관류율") + Me.column배관설치장소 = MyBase.Columns("배관설치장소") + Me.column건물길이x = MyBase.Columns("건물길이x") + Me.column건물길이y = MyBase.Columns("건물길이y") + Me.column층수 = MyBase.Columns("층수") + Me.column층고 = MyBase.Columns("층고") + Me.column지관장소 = MyBase.Columns("지관장소") + End Sub + + _ + Private Sub InitClass() + 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.column생산기기구분 = New Global.System.Data.DataColumn("생산기기구분", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column생산기기구분) + Me.column표준치적용 = New Global.System.Data.DataColumn("표준치적용", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column표준치적용) + Me.column배관망유형 = New Global.System.Data.DataColumn("배관망유형", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column배관망유형) + Me.column배관구간방식 = New Global.System.Data.DataColumn("배관구간방식", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column배관구간방식) + Me.column배관구간길이 = New Global.System.Data.DataColumn("배관구간길이", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column배관구간길이) + Me.column열관류율 = New Global.System.Data.DataColumn("열관류율", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column열관류율) + Me.column배관설치장소 = New Global.System.Data.DataColumn("배관설치장소", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column배관설치장소) + Me.column건물길이x = New Global.System.Data.DataColumn("건물길이x", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column건물길이x) + Me.column건물길이y = New Global.System.Data.DataColumn("건물길이y", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column건물길이y) + Me.column층수 = New Global.System.Data.DataColumn("층수", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column층수) + Me.column층고 = New Global.System.Data.DataColumn("층고", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column층고) + Me.column지관장소 = New Global.System.Data.DataColumn("지관장소", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column지관장소) + Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columncode}, true)) + Me.columncode.AllowDBNull = false + Me.columncode.Unique = true + Me.columncode.DefaultValue = CType("",String) + Me.column설명.DefaultValue = CType("",String) + Me.column생산기기구분.DefaultValue = CType("0",String) + Me.column표준치적용.DefaultValue = CType("0",String) + Me.column배관망유형.DefaultValue = CType("",String) + Me.column배관구간방식.DefaultValue = CType("0",String) + Me.column배관구간길이.DefaultValue = CType("",String) + Me.column열관류율.DefaultValue = CType("",String) + Me.column배관설치장소.DefaultValue = CType("0",String) + Me.column건물길이x.DefaultValue = CType("",String) + Me.column건물길이y.DefaultValue = CType("",String) + Me.column층수.DefaultValue = CType("",String) + Me.column층고.DefaultValue = CType("",String) + Me.column지관장소.DefaultValue = CType("0",String) + End Sub + + _ + Public Function Newtbl_nbunbaeRow() As tbl_nbunbaeRow + Return CType(Me.NewRow,tbl_nbunbaeRow) + End Function + + _ + Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow + Return New tbl_nbunbaeRow(builder) + End Function + + _ + Protected Overrides Function GetRowType() As Global.System.Type + Return GetType(tbl_nbunbaeRow) + End Function + + _ + Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanged(e) + If (Not (Me.tbl_nbunbaeRowChangedEvent) Is Nothing) Then + RaiseEvent tbl_nbunbaeRowChanged(Me, New tbl_nbunbaeRowChangeEvent(CType(e.Row,tbl_nbunbaeRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanging(e) + If (Not (Me.tbl_nbunbaeRowChangingEvent) Is Nothing) Then + RaiseEvent tbl_nbunbaeRowChanging(Me, New tbl_nbunbaeRowChangeEvent(CType(e.Row,tbl_nbunbaeRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleted(e) + If (Not (Me.tbl_nbunbaeRowDeletedEvent) Is Nothing) Then + RaiseEvent tbl_nbunbaeRowDeleted(Me, New tbl_nbunbaeRowChangeEvent(CType(e.Row,tbl_nbunbaeRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleting(e) + If (Not (Me.tbl_nbunbaeRowDeletingEvent) Is Nothing) Then + RaiseEvent tbl_nbunbaeRowDeleting(Me, New tbl_nbunbaeRowChangeEvent(CType(e.Row,tbl_nbunbaeRow), e.Action)) + End If + End Sub + + _ + Public Sub Removetbl_nbunbaeRow(ByVal row As tbl_nbunbaeRow) + 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 = "tbl_nbunbaeDataTable" + 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 tbl_kongjoDataTable + Inherits Global.System.Data.TypedTableBase(Of tbl_kongjoRow) + + Private columncode As Global.System.Data.DataColumn + + Private column설명 As Global.System.Data.DataColumn + + Private column공조방식 As Global.System.Data.DataColumn + + Private column설정치난방 As Global.System.Data.DataColumn + + Private column설정치냉방 As Global.System.Data.DataColumn + + Private column최대풍량 As Global.System.Data.DataColumn + + Private column리턴공기혼합여부 As Global.System.Data.DataColumn + + Private column가습기유형 As Global.System.Data.DataColumn + + Private column외기냉방제어유무 As Global.System.Data.DataColumn + + Private column열교환기유형 As Global.System.Data.DataColumn + + Private column열회수율 As Global.System.Data.DataColumn + + Private column총압력손실급기팬 As Global.System.Data.DataColumn + + Private column총압력손실배기팬 As Global.System.Data.DataColumn + + Private column총효율급기팬 As Global.System.Data.DataColumn + + Private column총효율배기팬 As Global.System.Data.DataColumn + + Private column열회수율냉 As Global.System.Data.DataColumn + + Private column팬효율산출방식 As Global.System.Data.DataColumn + + Private column급기풍량 As Global.System.Data.DataColumn + + Private column배기풍량 As Global.System.Data.DataColumn + + Private column급기팬동력 As Global.System.Data.DataColumn + + Private column배기팬동력 As Global.System.Data.DataColumn + + _ + Public Sub New() + MyBase.New + Me.TableName = "tbl_kongjo" + 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 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 공조방식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 리턴공기혼합여부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 열회수율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 총효율배기팬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 배기풍량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 Count() As Integer + Get + Return Me.Rows.Count + End Get + End Property + + _ + Public Default ReadOnly Property Item(ByVal index As Integer) As tbl_kongjoRow + Get + Return CType(Me.Rows(index),tbl_kongjoRow) + End Get + End Property + + _ + Public Event tbl_kongjoRowChanging As tbl_kongjoRowChangeEventHandler + + _ + Public Event tbl_kongjoRowChanged As tbl_kongjoRowChangeEventHandler + + _ + Public Event tbl_kongjoRowDeleting As tbl_kongjoRowChangeEventHandler + + _ + Public Event tbl_kongjoRowDeleted As tbl_kongjoRowChangeEventHandler + + _ + Public Overloads Sub Addtbl_kongjoRow(ByVal row As tbl_kongjoRow) + Me.Rows.Add(row) + End Sub + + _ + Public Overloads Function Addtbl_kongjoRow( _ + ByVal code As String, _ + ByVal 설명 As String, _ + ByVal 공조방식 As String, _ + ByVal 설정치난방 As String, _ + ByVal 설정치냉방 As String, _ + ByVal 최대풍량 As String, _ + ByVal 리턴공기혼합여부 As String, _ + ByVal 가습기유형 As String, _ + ByVal 외기냉방제어유무 As String, _ + ByVal 열교환기유형 As String, _ + ByVal 열회수율 As String, _ + ByVal 총압력손실급기팬 As String, _ + ByVal 총압력손실배기팬 As String, _ + ByVal 총효율급기팬 As String, _ + ByVal 총효율배기팬 As String, _ + ByVal 열회수율냉 As String, _ + 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, 설명, 공조방식, 설정치난방, 설정치냉방, 최대풍량, 리턴공기혼합여부, 가습기유형, 외기냉방제어유무, 열교환기유형, 열회수율, 총압력손실급기팬, 총압력손실배기팬, 총효율급기팬, 총효율배기팬, 열회수율냉, 팬효율산출방식, 급기풍량, 배기풍량, 급기팬동력, 배기팬동력} + rowtbl_kongjoRow.ItemArray = columnValuesArray + Me.Rows.Add(rowtbl_kongjoRow) + Return rowtbl_kongjoRow + End Function + + _ + Public Function FindBycode(ByVal code As String) As tbl_kongjoRow + Return CType(Me.Rows.Find(New Object() {code}),tbl_kongjoRow) + End Function + + _ + Public Overrides Function Clone() As Global.System.Data.DataTable + Dim cln As tbl_kongjoDataTable = CType(MyBase.Clone,tbl_kongjoDataTable) + cln.InitVars + Return cln + End Function + + _ + Protected Overrides Function CreateInstance() As Global.System.Data.DataTable + Return New tbl_kongjoDataTable() + End Function + + _ + Friend Sub InitVars() + Me.columncode = MyBase.Columns("code") + Me.column설명 = MyBase.Columns("설명") + Me.column공조방식 = MyBase.Columns("공조방식") + Me.column설정치난방 = MyBase.Columns("설정치난방") + Me.column설정치냉방 = MyBase.Columns("설정치냉방") + Me.column최대풍량 = MyBase.Columns("최대풍량") + Me.column리턴공기혼합여부 = MyBase.Columns("리턴공기혼합여부") + Me.column가습기유형 = MyBase.Columns("가습기유형") + Me.column외기냉방제어유무 = MyBase.Columns("외기냉방제어유무") + Me.column열교환기유형 = MyBase.Columns("열교환기유형") + Me.column열회수율 = MyBase.Columns("열회수율") + Me.column총압력손실급기팬 = MyBase.Columns("총압력손실급기팬") + Me.column총압력손실배기팬 = MyBase.Columns("총압력손실배기팬") + Me.column총효율급기팬 = MyBase.Columns("총효율급기팬") + 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 + + _ + Private Sub InitClass() + 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.column공조방식 = New Global.System.Data.DataColumn("공조방식", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column공조방식) + Me.column설정치난방 = New Global.System.Data.DataColumn("설정치난방", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column설정치난방) + Me.column설정치냉방 = New Global.System.Data.DataColumn("설정치냉방", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column설정치냉방) + Me.column최대풍량 = New Global.System.Data.DataColumn("최대풍량", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column최대풍량) + Me.column리턴공기혼합여부 = New Global.System.Data.DataColumn("리턴공기혼합여부", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column리턴공기혼합여부) + Me.column가습기유형 = New Global.System.Data.DataColumn("가습기유형", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column가습기유형) + Me.column외기냉방제어유무 = New Global.System.Data.DataColumn("외기냉방제어유무", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column외기냉방제어유무) + Me.column열교환기유형 = New Global.System.Data.DataColumn("열교환기유형", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column열교환기유형) + Me.column열회수율 = New Global.System.Data.DataColumn("열회수율", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column열회수율) + Me.column총압력손실급기팬 = New Global.System.Data.DataColumn("총압력손실급기팬", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column총압력손실급기팬) + Me.column총압력손실배기팬 = New Global.System.Data.DataColumn("총압력손실배기팬", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column총압력손실배기팬) + Me.column총효율급기팬 = New Global.System.Data.DataColumn("총효율급기팬", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column총효율급기팬) + Me.column총효율배기팬 = New Global.System.Data.DataColumn("총효율배기팬", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column총효율배기팬) + Me.column열회수율냉 = New Global.System.Data.DataColumn("열회수율냉", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column열회수율냉) + Me.column팬효율산출방식 = New Global.System.Data.DataColumn("팬효율산출방식", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column팬효율산출방식) + Me.column급기풍량 = New Global.System.Data.DataColumn("급기풍량", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column급기풍량) + Me.column배기풍량 = New Global.System.Data.DataColumn("배기풍량", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column배기풍량) + Me.column급기팬동력 = New Global.System.Data.DataColumn("급기팬동력", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column급기팬동력) + Me.column배기팬동력 = New Global.System.Data.DataColumn("배기팬동력", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column배기팬동력) + Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columncode}, true)) + Me.columncode.AllowDBNull = false + Me.columncode.Unique = true + Me.columncode.MaxLength = 50 + Me.column설명.DefaultValue = CType("",String) + Me.column설명.MaxLength = 255 + Me.column공조방식.DefaultValue = CType("0",String) + Me.column공조방식.MaxLength = 50 + Me.column설정치난방.DefaultValue = CType("",String) + Me.column설정치냉방.DefaultValue = CType("",String) + Me.column최대풍량.DefaultValue = CType("",String) + Me.column리턴공기혼합여부.DefaultValue = CType("0",String) + Me.column리턴공기혼합여부.MaxLength = 50 + Me.column가습기유형.DefaultValue = CType("",String) + Me.column가습기유형.MaxLength = 50 + Me.column외기냉방제어유무.DefaultValue = CType("0",String) + Me.column열교환기유형.DefaultValue = CType("0",String) + Me.column열교환기유형.MaxLength = 50 + Me.column열회수율.DefaultValue = CType("",String) + Me.column총압력손실급기팬.DefaultValue = CType("",String) + Me.column총압력손실배기팬.DefaultValue = CType("",String) + Me.column총효율급기팬.DefaultValue = CType("",String) + Me.column총효율배기팬.DefaultValue = CType("",String) + Me.column열회수율냉.DefaultValue = CType("",String) + Me.column팬효율산출방식.DefaultValue = CType("",String) + Me.column급기풍량.DefaultValue = CType("",String) + Me.column배기풍량.DefaultValue = CType("",String) + Me.column급기팬동력.DefaultValue = CType("",String) + Me.column배기팬동력.DefaultValue = CType("",String) + End Sub + + _ + Public Function Newtbl_kongjoRow() As tbl_kongjoRow + Return CType(Me.NewRow,tbl_kongjoRow) + End Function + + _ + Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow + Return New tbl_kongjoRow(builder) + End Function + + _ + Protected Overrides Function GetRowType() As Global.System.Type + Return GetType(tbl_kongjoRow) + End Function + + _ + Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanged(e) + If (Not (Me.tbl_kongjoRowChangedEvent) Is Nothing) Then + RaiseEvent tbl_kongjoRowChanged(Me, New tbl_kongjoRowChangeEvent(CType(e.Row,tbl_kongjoRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanging(e) + If (Not (Me.tbl_kongjoRowChangingEvent) Is Nothing) Then + RaiseEvent tbl_kongjoRowChanging(Me, New tbl_kongjoRowChangeEvent(CType(e.Row,tbl_kongjoRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleted(e) + If (Not (Me.tbl_kongjoRowDeletedEvent) Is Nothing) Then + RaiseEvent tbl_kongjoRowDeleted(Me, New tbl_kongjoRowChangeEvent(CType(e.Row,tbl_kongjoRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleting(e) + If (Not (Me.tbl_kongjoRowDeletingEvent) Is Nothing) Then + RaiseEvent tbl_kongjoRowDeleting(Me, New tbl_kongjoRowChangeEvent(CType(e.Row,tbl_kongjoRow), e.Action)) + End If + End Sub + + _ + Public Sub Removetbl_kongjoRow(ByVal row As tbl_kongjoRow) + 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 = "tbl_kongjoDataTable" + 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 tbl_kongkubDataTable + Inherits Global.System.Data.TypedTableBase(Of tbl_kongkubRow) + + Private columncode As Global.System.Data.DataColumn + + Private column설명 As Global.System.Data.DataColumn + + Private column열공급시스템 As Global.System.Data.DataColumn + + Private column열공급생산기기 As Global.System.Data.DataColumn + + Private column노출형제어 As Global.System.Data.DataColumn + + Private column바닥난방열제어 As Global.System.Data.DataColumn + + Private column바닥난방열건축부위 As Global.System.Data.DataColumn + + Private column바닥난방전기제어 As Global.System.Data.DataColumn + + Private column바닥난방전기건축부위 As Global.System.Data.DataColumn + + Private column전기난방제어 As Global.System.Data.DataColumn + + Private column제어기의정격전력 As Global.System.Data.DataColumn + + Private column팬송풍기정격전력 As Global.System.Data.DataColumn + + Private column펌프정격전력 As Global.System.Data.DataColumn + + Private column팬송풍기수 As Global.System.Data.DataColumn + + Private column추가펌프수 As Global.System.Data.DataColumn + + _ + Public Sub New() + MyBase.New + Me.TableName = "tbl_kongkub" + 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 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 열공급시스템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 바닥난방열건축부위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 제어기의정격전력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 추가펌프수Column() As Global.System.Data.DataColumn + Get + Return Me.column추가펌프수 + 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 tbl_kongkubRow + Get + Return CType(Me.Rows(index),tbl_kongkubRow) + End Get + End Property + + _ + Public Event tbl_kongkubRowChanging As tbl_kongkubRowChangeEventHandler + + _ + Public Event tbl_kongkubRowChanged As tbl_kongkubRowChangeEventHandler + + _ + Public Event tbl_kongkubRowDeleting As tbl_kongkubRowChangeEventHandler + + _ + Public Event tbl_kongkubRowDeleted As tbl_kongkubRowChangeEventHandler + + _ + Public Overloads Sub Addtbl_kongkubRow(ByVal row As tbl_kongkubRow) + Me.Rows.Add(row) + End Sub + + _ + Public Overloads Function Addtbl_kongkubRow(ByVal code As String, ByVal 설명 As String, ByVal 열공급시스템 As String, ByVal 열공급생산기기 As String, ByVal 노출형제어 As String, ByVal 바닥난방열제어 As String, ByVal 바닥난방열건축부위 As String, ByVal 바닥난방전기제어 As String, ByVal 바닥난방전기건축부위 As String, ByVal 전기난방제어 As String, ByVal 제어기의정격전력 As String, ByVal 팬송풍기정격전력 As String, ByVal 펌프정격전력 As String, ByVal 팬송풍기수 As String, ByVal 추가펌프수 As String) As tbl_kongkubRow + Dim rowtbl_kongkubRow As tbl_kongkubRow = CType(Me.NewRow,tbl_kongkubRow) + Dim columnValuesArray() As Object = New Object() {code, 설명, 열공급시스템, 열공급생산기기, 노출형제어, 바닥난방열제어, 바닥난방열건축부위, 바닥난방전기제어, 바닥난방전기건축부위, 전기난방제어, 제어기의정격전력, 팬송풍기정격전력, 펌프정격전력, 팬송풍기수, 추가펌프수} + rowtbl_kongkubRow.ItemArray = columnValuesArray + Me.Rows.Add(rowtbl_kongkubRow) + Return rowtbl_kongkubRow + End Function + + _ + Public Function FindBycode(ByVal code As String) As tbl_kongkubRow + Return CType(Me.Rows.Find(New Object() {code}),tbl_kongkubRow) + End Function + + _ + Public Overrides Function Clone() As Global.System.Data.DataTable + Dim cln As tbl_kongkubDataTable = CType(MyBase.Clone,tbl_kongkubDataTable) + cln.InitVars + Return cln + End Function + + _ + Protected Overrides Function CreateInstance() As Global.System.Data.DataTable + Return New tbl_kongkubDataTable() + End Function + + _ + Friend Sub InitVars() + Me.columncode = MyBase.Columns("code") + Me.column설명 = MyBase.Columns("설명") + Me.column열공급시스템 = MyBase.Columns("열공급시스템") + Me.column열공급생산기기 = MyBase.Columns("열공급생산기기") + Me.column노출형제어 = MyBase.Columns("노출형제어") + Me.column바닥난방열제어 = MyBase.Columns("바닥난방열제어") + Me.column바닥난방열건축부위 = MyBase.Columns("바닥난방열건축부위") + Me.column바닥난방전기제어 = MyBase.Columns("바닥난방전기제어") + Me.column바닥난방전기건축부위 = MyBase.Columns("바닥난방전기건축부위") + Me.column전기난방제어 = MyBase.Columns("전기난방제어") + Me.column제어기의정격전력 = MyBase.Columns("제어기의정격전력") + Me.column팬송풍기정격전력 = MyBase.Columns("팬송풍기정격전력") + Me.column펌프정격전력 = MyBase.Columns("펌프정격전력") + Me.column팬송풍기수 = MyBase.Columns("팬송풍기수") + Me.column추가펌프수 = MyBase.Columns("추가펌프수") + End Sub + + _ + Private Sub InitClass() + 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.column열공급시스템 = New Global.System.Data.DataColumn("열공급시스템", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column열공급시스템) + Me.column열공급생산기기 = New Global.System.Data.DataColumn("열공급생산기기", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column열공급생산기기) + Me.column노출형제어 = New Global.System.Data.DataColumn("노출형제어", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column노출형제어) + Me.column바닥난방열제어 = New Global.System.Data.DataColumn("바닥난방열제어", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column바닥난방열제어) + Me.column바닥난방열건축부위 = New Global.System.Data.DataColumn("바닥난방열건축부위", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column바닥난방열건축부위) + Me.column바닥난방전기제어 = New Global.System.Data.DataColumn("바닥난방전기제어", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column바닥난방전기제어) + Me.column바닥난방전기건축부위 = New Global.System.Data.DataColumn("바닥난방전기건축부위", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column바닥난방전기건축부위) + Me.column전기난방제어 = New Global.System.Data.DataColumn("전기난방제어", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column전기난방제어) + Me.column제어기의정격전력 = New Global.System.Data.DataColumn("제어기의정격전력", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column제어기의정격전력) + Me.column팬송풍기정격전력 = New Global.System.Data.DataColumn("팬송풍기정격전력", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column팬송풍기정격전력) + Me.column펌프정격전력 = New Global.System.Data.DataColumn("펌프정격전력", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column펌프정격전력) + Me.column팬송풍기수 = New Global.System.Data.DataColumn("팬송풍기수", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column팬송풍기수) + Me.column추가펌프수 = New Global.System.Data.DataColumn("추가펌프수", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column추가펌프수) + Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columncode}, true)) + Me.columncode.AllowDBNull = false + Me.columncode.Unique = true + Me.columncode.MaxLength = 50 + Me.column설명.DefaultValue = CType("",String) + Me.column설명.MaxLength = 255 + Me.column열공급시스템.DefaultValue = CType("0",String) + Me.column열공급시스템.MaxLength = 50 + Me.column열공급생산기기.DefaultValue = CType("0",String) + Me.column노출형제어.DefaultValue = CType("0",String) + Me.column바닥난방열제어.DefaultValue = CType("0",String) + Me.column바닥난방열건축부위.DefaultValue = CType("0",String) + Me.column바닥난방열건축부위.MaxLength = 50 + Me.column바닥난방전기제어.DefaultValue = CType("0",String) + Me.column바닥난방전기제어.MaxLength = 50 + Me.column바닥난방전기건축부위.DefaultValue = CType("0",String) + Me.column전기난방제어.DefaultValue = CType("0",String) + Me.column전기난방제어.MaxLength = 50 + Me.column제어기의정격전력.DefaultValue = CType("",String) + Me.column팬송풍기정격전력.DefaultValue = CType("",String) + Me.column펌프정격전력.DefaultValue = CType("",String) + Me.column팬송풍기수.DefaultValue = CType("",String) + Me.column추가펌프수.DefaultValue = CType("",String) + End Sub + + _ + Public Function Newtbl_kongkubRow() As tbl_kongkubRow + Return CType(Me.NewRow,tbl_kongkubRow) + End Function + + _ + Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow + Return New tbl_kongkubRow(builder) + End Function + + _ + Protected Overrides Function GetRowType() As Global.System.Type + Return GetType(tbl_kongkubRow) + End Function + + _ + Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanged(e) + If (Not (Me.tbl_kongkubRowChangedEvent) Is Nothing) Then + RaiseEvent tbl_kongkubRowChanged(Me, New tbl_kongkubRowChangeEvent(CType(e.Row,tbl_kongkubRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanging(e) + If (Not (Me.tbl_kongkubRowChangingEvent) Is Nothing) Then + RaiseEvent tbl_kongkubRowChanging(Me, New tbl_kongkubRowChangeEvent(CType(e.Row,tbl_kongkubRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleted(e) + If (Not (Me.tbl_kongkubRowDeletedEvent) Is Nothing) Then + RaiseEvent tbl_kongkubRowDeleted(Me, New tbl_kongkubRowChangeEvent(CType(e.Row,tbl_kongkubRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleting(e) + If (Not (Me.tbl_kongkubRowDeletingEvent) Is Nothing) Then + RaiseEvent tbl_kongkubRowDeleting(Me, New tbl_kongkubRowChangeEvent(CType(e.Row,tbl_kongkubRow), e.Action)) + End If + End Sub + + _ + Public Sub Removetbl_kongkubRow(ByVal row As tbl_kongkubRow) + 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 = "tbl_kongkubDataTable" + 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 tbl_ykDataTable + Inherits Global.System.Data.TypedTableBase(Of tbl_ykRow) + + Private columncode As Global.System.Data.DataColumn + + Private column설명 As Global.System.Data.DataColumn + + Private column열관류율 As Global.System.Data.DataColumn + + Private column면형태 As Global.System.Data.DataColumn + + Private column창호열관류율 As Global.System.Data.DataColumn + + Private column일사에너지투과율 As Global.System.Data.DataColumn + + Private column창호세부설명 As Global.System.Data.DataColumn + + Private column발코니창호여부 As Global.System.Data.DataColumn + + Private column발코니창호열관류율 As Global.System.Data.DataColumn + + Private column발코니투과율 As Global.System.Data.DataColumn + + Private column투과율 As Global.System.Data.DataColumn + + _ + Public Sub New() + MyBase.New + Me.TableName = "tbl_yk" + 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 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 열관류율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 창호세부설명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 투과율Column() As Global.System.Data.DataColumn + Get + Return Me.column투과율 + 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 tbl_ykRow + Get + Return CType(Me.Rows(index),tbl_ykRow) + End Get + End Property + + _ + Public Event tbl_ykRowChanging As tbl_ykRowChangeEventHandler + + _ + Public Event tbl_ykRowChanged As tbl_ykRowChangeEventHandler + + _ + Public Event tbl_ykRowDeleting As tbl_ykRowChangeEventHandler + + _ + Public Event tbl_ykRowDeleted As tbl_ykRowChangeEventHandler + + _ + Public Overloads Sub Addtbl_ykRow(ByVal row As tbl_ykRow) + Me.Rows.Add(row) + End Sub + + _ + Public Overloads Function Addtbl_ykRow(ByVal code As String, ByVal 설명 As String, ByVal 열관류율 As String, ByVal 면형태 As String, ByVal 창호열관류율 As String, ByVal 일사에너지투과율 As String, ByVal 창호세부설명 As String, ByVal 발코니창호여부 As Boolean, ByVal 발코니창호열관류율 As String, ByVal 발코니투과율 As String, ByVal 투과율 As String) As tbl_ykRow + Dim rowtbl_ykRow As tbl_ykRow = CType(Me.NewRow,tbl_ykRow) + Dim columnValuesArray() As Object = New Object() {code, 설명, 열관류율, 면형태, 창호열관류율, 일사에너지투과율, 창호세부설명, 발코니창호여부, 발코니창호열관류율, 발코니투과율, 투과율} + rowtbl_ykRow.ItemArray = columnValuesArray + Me.Rows.Add(rowtbl_ykRow) + Return rowtbl_ykRow + End Function + + _ + Public Function FindBycode(ByVal code As String) As tbl_ykRow + Return CType(Me.Rows.Find(New Object() {code}),tbl_ykRow) + End Function + + _ + Public Overrides Function Clone() As Global.System.Data.DataTable + Dim cln As tbl_ykDataTable = CType(MyBase.Clone,tbl_ykDataTable) + cln.InitVars + Return cln + End Function + + _ + Protected Overrides Function CreateInstance() As Global.System.Data.DataTable + Return New tbl_ykDataTable() + End Function + + _ + Friend Sub InitVars() + Me.columncode = MyBase.Columns("code") + Me.column설명 = MyBase.Columns("설명") + Me.column열관류율 = MyBase.Columns("열관류율") + Me.column면형태 = MyBase.Columns("면형태") + Me.column창호열관류율 = MyBase.Columns("창호열관류율") + Me.column일사에너지투과율 = MyBase.Columns("일사에너지투과율") + Me.column창호세부설명 = MyBase.Columns("창호세부설명") + Me.column발코니창호여부 = MyBase.Columns("발코니창호여부") + Me.column발코니창호열관류율 = MyBase.Columns("발코니창호열관류율") + Me.column발코니투과율 = MyBase.Columns("발코니투과율") + Me.column투과율 = MyBase.Columns("투과율") + End Sub + + _ + Private Sub InitClass() + 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.column열관류율 = New Global.System.Data.DataColumn("열관류율", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column열관류율) + Me.column면형태 = New Global.System.Data.DataColumn("면형태", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column면형태) + Me.column창호열관류율 = New Global.System.Data.DataColumn("창호열관류율", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column창호열관류율) + Me.column일사에너지투과율 = New Global.System.Data.DataColumn("일사에너지투과율", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column일사에너지투과율) + Me.column창호세부설명 = New Global.System.Data.DataColumn("창호세부설명", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column창호세부설명) + Me.column발코니창호여부 = New Global.System.Data.DataColumn("발코니창호여부", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column발코니창호여부) + Me.column발코니창호열관류율 = New Global.System.Data.DataColumn("발코니창호열관류율", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column발코니창호열관류율) + Me.column발코니투과율 = New Global.System.Data.DataColumn("발코니투과율", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column발코니투과율) + Me.column투과율 = New Global.System.Data.DataColumn("투과율", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column투과율) + Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columncode}, true)) + Me.columncode.AllowDBNull = false + Me.columncode.Unique = true + Me.columncode.MaxLength = 50 + Me.column설명.DefaultValue = CType("열관류율설명",String) + Me.column열관류율.DefaultValue = CType("0",String) + Me.column면형태.DefaultValue = CType("0",String) + Me.column창호열관류율.DefaultValue = CType("0",String) + Me.column일사에너지투과율.DefaultValue = CType("0",String) + Me.column창호세부설명.DefaultValue = CType("",String) + Me.column발코니창호여부.DefaultValue = CType(false,Boolean) + Me.column발코니창호열관류율.DefaultValue = CType("0",String) + Me.column발코니투과율.DefaultValue = CType("0",String) + Me.column투과율.DefaultValue = CType("0",String) + End Sub + + _ + Public Function Newtbl_ykRow() As tbl_ykRow + Return CType(Me.NewRow,tbl_ykRow) + End Function + + _ + Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow + Return New tbl_ykRow(builder) + End Function + + _ + Protected Overrides Function GetRowType() As Global.System.Type + Return GetType(tbl_ykRow) + End Function + + _ + Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanged(e) + If (Not (Me.tbl_ykRowChangedEvent) Is Nothing) Then + RaiseEvent tbl_ykRowChanged(Me, New tbl_ykRowChangeEvent(CType(e.Row,tbl_ykRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanging(e) + If (Not (Me.tbl_ykRowChangingEvent) Is Nothing) Then + RaiseEvent tbl_ykRowChanging(Me, New tbl_ykRowChangeEvent(CType(e.Row,tbl_ykRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleted(e) + If (Not (Me.tbl_ykRowDeletedEvent) Is Nothing) Then + RaiseEvent tbl_ykRowDeleted(Me, New tbl_ykRowChangeEvent(CType(e.Row,tbl_ykRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleting(e) + If (Not (Me.tbl_ykRowDeletingEvent) Is Nothing) Then + RaiseEvent tbl_ykRowDeleting(Me, New tbl_ykRowChangeEvent(CType(e.Row,tbl_ykRow), e.Action)) + End If + End Sub + + _ + Public Sub Removetbl_ykRow(ByVal row As tbl_ykRow) + 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 = "tbl_ykDataTable" + 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 tbl_ykdetailDataTable + Inherits Global.System.Data.TypedTableBase(Of tbl_ykdetailRow) + + Private columnpcode As Global.System.Data.DataColumn + + Private columncode As Global.System.Data.DataColumn + + Private column설명 As Global.System.Data.DataColumn + + Private column열전도율 As Global.System.Data.DataColumn + + Private column두께 As Global.System.Data.DataColumn + + Private column구분 As Global.System.Data.DataColumn + + Private column열저항 As Global.System.Data.DataColumn + + Private column전경색 As Global.System.Data.DataColumn + + Private column후경색 As Global.System.Data.DataColumn + + Private column커스텀 As Global.System.Data.DataColumn + + _ + Public Sub New() + MyBase.New + Me.TableName = "tbl_ykdetail" + 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 열전도율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 전경색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 Count() As Integer + Get + Return Me.Rows.Count + End Get + End Property + + _ + Public Default ReadOnly Property Item(ByVal index As Integer) As tbl_ykdetailRow + Get + Return CType(Me.Rows(index),tbl_ykdetailRow) + End Get + End Property + + _ + Public Event tbl_ykdetailRowChanging As tbl_ykdetailRowChangeEventHandler + + _ + Public Event tbl_ykdetailRowChanged As tbl_ykdetailRowChangeEventHandler + + _ + Public Event tbl_ykdetailRowDeleting As tbl_ykdetailRowChangeEventHandler + + _ + Public Event tbl_ykdetailRowDeleted As tbl_ykdetailRowChangeEventHandler + + _ + Public Overloads Sub Addtbl_ykdetailRow(ByVal row As tbl_ykdetailRow) + Me.Rows.Add(row) + End Sub + + _ + Public Overloads Function Addtbl_ykdetailRow(ByVal pcode As String, ByVal code As String, ByVal 설명 As String, ByVal 열전도율 As String, ByVal 두께 As String, ByVal 구분 As String, ByVal 열저항 As String, ByVal 전경색 As String, ByVal 후경색 As String, ByVal 커스텀 As String) As tbl_ykdetailRow + Dim rowtbl_ykdetailRow As tbl_ykdetailRow = CType(Me.NewRow,tbl_ykdetailRow) + Dim columnValuesArray() As Object = New Object() {pcode, code, 설명, 열전도율, 두께, 구분, 열저항, 전경색, 후경색, 커스텀} + rowtbl_ykdetailRow.ItemArray = columnValuesArray + Me.Rows.Add(rowtbl_ykdetailRow) + Return rowtbl_ykdetailRow + End Function + + _ + Public Function FindBypcodecode(ByVal pcode As String, ByVal code As String) As tbl_ykdetailRow + Return CType(Me.Rows.Find(New Object() {pcode, code}),tbl_ykdetailRow) + End Function + + _ + Public Overrides Function Clone() As Global.System.Data.DataTable + Dim cln As tbl_ykdetailDataTable = CType(MyBase.Clone,tbl_ykdetailDataTable) + cln.InitVars + Return cln + End Function + + _ + Protected Overrides Function CreateInstance() As Global.System.Data.DataTable + Return New tbl_ykdetailDataTable() + End Function + + _ + Friend Sub InitVars() + Me.columnpcode = MyBase.Columns("pcode") + Me.columncode = MyBase.Columns("code") + Me.column설명 = MyBase.Columns("설명") + Me.column열전도율 = MyBase.Columns("열전도율") + Me.column두께 = MyBase.Columns("두께") + Me.column구분 = MyBase.Columns("구분") + Me.column열저항 = MyBase.Columns("열저항") + Me.column전경색 = MyBase.Columns("전경색") + Me.column후경색 = MyBase.Columns("후경색") + Me.column커스텀 = MyBase.Columns("커스텀") + End Sub + + _ + 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.column열전도율 = New Global.System.Data.DataColumn("열전도율", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column열전도율) + Me.column두께 = New Global.System.Data.DataColumn("두께", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column두께) + Me.column구분 = New Global.System.Data.DataColumn("구분", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column구분) + Me.column열저항 = New Global.System.Data.DataColumn("열저항", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column열저항) + Me.column전경색 = New Global.System.Data.DataColumn("전경색", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column전경색) + Me.column후경색 = New Global.System.Data.DataColumn("후경색", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column후경색) + Me.column커스텀 = New Global.System.Data.DataColumn("커스텀", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column커스텀) + Me.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("0",String) + Me.column설명.MaxLength = 255 + Me.column열전도율.DefaultValue = CType("1",String) + Me.column두께.DefaultValue = CType("10",String) + Me.column구분.DefaultValue = CType("5",String) + Me.column전경색.DefaultValue = CType("-16776961",String) + Me.column후경색.DefaultValue = CType("-1",String) + Me.column커스텀.DefaultValue = CType("N",String) + End Sub + + _ + Public Function Newtbl_ykdetailRow() As tbl_ykdetailRow + Return CType(Me.NewRow,tbl_ykdetailRow) + End Function + + _ + Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow + Return New tbl_ykdetailRow(builder) + End Function + + _ + Protected Overrides Function GetRowType() As Global.System.Type + Return GetType(tbl_ykdetailRow) + End Function + + _ + Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanged(e) + If (Not (Me.tbl_ykdetailRowChangedEvent) Is Nothing) Then + RaiseEvent tbl_ykdetailRowChanged(Me, New tbl_ykdetailRowChangeEvent(CType(e.Row,tbl_ykdetailRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanging(e) + If (Not (Me.tbl_ykdetailRowChangingEvent) Is Nothing) Then + RaiseEvent tbl_ykdetailRowChanging(Me, New tbl_ykdetailRowChangeEvent(CType(e.Row,tbl_ykdetailRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleted(e) + If (Not (Me.tbl_ykdetailRowDeletedEvent) Is Nothing) Then + RaiseEvent tbl_ykdetailRowDeleted(Me, New tbl_ykdetailRowChangeEvent(CType(e.Row,tbl_ykdetailRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleting(e) + If (Not (Me.tbl_ykdetailRowDeletingEvent) Is Nothing) Then + RaiseEvent tbl_ykdetailRowDeleting(Me, New tbl_ykdetailRowChangeEvent(CType(e.Row,tbl_ykdetailRow), e.Action)) + End If + End Sub + + _ + Public Sub Removetbl_ykdetailRow(ByVal row As tbl_ykdetailRow) + 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 = "tbl_ykdetailDataTable" + 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 tbl_zoneDataTable + Inherits Global.System.Data.TypedTableBase(Of tbl_zoneRow) + + Private columncode 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천장고p As Global.System.Data.DataColumn + + Private column순실체적 As Global.System.Data.DataColumn + + Private column열저장능력 As Global.System.Data.DataColumn + + Private column열교가산치 As Global.System.Data.DataColumn + + Private column침기율 As Global.System.Data.DataColumn + + Private column냉난방방식 As Global.System.Data.DataColumn + + Private column냉난방공조 As Global.System.Data.DataColumn + + Private column외기부하처리여부 As Global.System.Data.DataColumn + + Private column지역 As Global.System.Data.DataColumn + + Private column야간운전방식 As Global.System.Data.DataColumn + + Private column주말운전방식 As Global.System.Data.DataColumn + + Private column냉난방열공급시스템 As Global.System.Data.DataColumn + + Private column냉난방열공급시스템수 As Global.System.Data.DataColumn + + Private column냉난방공조처리시스템 As Global.System.Data.DataColumn + + Private column열생산난방생산기기 As Global.System.Data.DataColumn + + Private column공조냉방생산기기 As Global.System.Data.DataColumn + + Private column공조난방생산기기 As Global.System.Data.DataColumn + + Private column열생산급탕생산기기 As Global.System.Data.DataColumn + + Private column열생산냉방생산기기 As Global.System.Data.DataColumn + + Private column열생산가습생산기기 As Global.System.Data.DataColumn + + Private column냉난방공조분배시스템 As Global.System.Data.DataColumn + + Private column냉난방분배시스템 As Global.System.Data.DataColumn + + Private column조명부하산출방법 As Global.System.Data.DataColumn + + Private column요구조도 As Global.System.Data.DataColumn + + Private column천장고 As Global.System.Data.DataColumn + + Private column작업면높이 As Global.System.Data.DataColumn + + Private column실깊이 As Global.System.Data.DataColumn + + Private column실너비 As Global.System.Data.DataColumn + + Private column실지수 As Global.System.Data.DataColumn + + Private column조명방식 As Global.System.Data.DataColumn + + Private column인공광원 As Global.System.Data.DataColumn + + Private column보수율 As Global.System.Data.DataColumn + + Private column조명기기효율 As Global.System.Data.DataColumn + + Private column조명률 As Global.System.Data.DataColumn + + Private column조명에너지부하율계산치 As Global.System.Data.DataColumn + + Private column조명에너지부하율입력치 As Global.System.Data.DataColumn + + Private column입력존의수 As Global.System.Data.DataColumn + + Private column그룹 As Global.System.Data.DataColumn + + Private columnsortkey As Global.System.Data.DataColumn + + Private column그룹설명 As Global.System.Data.DataColumn + + _ + Public Sub New() + Me.New(false) + End Sub + + _ + Public Sub New(ByVal initExpressions As Boolean) + MyBase.New + Me.TableName = "tbl_zone" + Me.BeginInit + Me.InitClass + If (initExpressions = true) Then + Me.InitExpressions + End If + 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 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 프로필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 천장고pColumn() As Global.System.Data.DataColumn + Get + Return Me.column천장고p + 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 냉난방방식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 야간운전방식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 냉난방공조처리시스템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 열생산급탕생산기기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 냉난방분배시스템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 작업면높이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 조명방식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 조명률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 그룹Column() As Global.System.Data.DataColumn + Get + Return Me.column그룹 + End Get + End Property + + _ + Public ReadOnly Property sortkeyColumn() As Global.System.Data.DataColumn + Get + Return Me.columnsortkey + End Get + End Property + + _ + Public ReadOnly Property 그룹설명Column() As Global.System.Data.DataColumn + Get + Return Me.column그룹설명 + 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 tbl_zoneRow + Get + Return CType(Me.Rows(index),tbl_zoneRow) + End Get + End Property + + _ + Public Event tbl_zoneRowChanging As tbl_zoneRowChangeEventHandler + + _ + Public Event tbl_zoneRowChanged As tbl_zoneRowChangeEventHandler + + _ + Public Event tbl_zoneRowDeleting As tbl_zoneRowChangeEventHandler + + _ + Public Event tbl_zoneRowDeleted As tbl_zoneRowChangeEventHandler + + _ + Public Overloads Sub Addtbl_zoneRow(ByVal row As tbl_zoneRow) + Me.Rows.Add(row) + End Sub + + _ + Public Overloads Function Addtbl_zoneRow( _ + ByVal code As String, _ + ByVal 설명 As String, _ + ByVal 프로필 As String, _ + ByVal 면적 As String, _ + ByVal 천장고p As String, _ + ByVal 순실체적 As String, _ + ByVal 열저장능력 As String, _ + ByVal 열교가산치 As String, _ + ByVal 침기율 As String, _ + ByVal 냉난방방식 As String, _ + ByVal 냉난방공조 As String, _ + ByVal 외기부하처리여부 As String, _ + ByVal 지역 As String, _ + ByVal 야간운전방식 As String, _ + ByVal 주말운전방식 As String, _ + ByVal 냉난방열공급시스템 As String, _ + ByVal 냉난방열공급시스템수 As String, _ + ByVal 냉난방공조처리시스템 As String, _ + ByVal 열생산난방생산기기 As String, _ + ByVal 공조냉방생산기기 As String, _ + ByVal 공조난방생산기기 As String, _ + ByVal 열생산급탕생산기기 As String, _ + ByVal 열생산냉방생산기기 As String, _ + ByVal 열생산가습생산기기 As String, _ + ByVal 냉난방공조분배시스템 As String, _ + ByVal 냉난방분배시스템 As String, _ + ByVal 조명부하산출방법 As String, _ + ByVal 요구조도 As String, _ + ByVal 천장고 As String, _ + ByVal 작업면높이 As String, _ + ByVal 실깊이 As String, _ + ByVal 실너비 As String, _ + ByVal 실지수 As String, _ + ByVal 조명방식 As String, _ + ByVal 인공광원 As String, _ + ByVal 보수율 As String, _ + ByVal 조명기기효율 As String, _ + ByVal 조명률 As String, _ + ByVal 조명에너지부하율계산치 As String, _ + ByVal 조명에너지부하율입력치 As String, _ + ByVal 입력존의수 As String, _ + ByVal 그룹 As String, _ + ByVal sortkey As UShort, _ + ByVal 그룹설명 As String) As tbl_zoneRow + Dim rowtbl_zoneRow As tbl_zoneRow = CType(Me.NewRow,tbl_zoneRow) + Dim columnValuesArray() As Object = New Object() {code, 설명, 프로필, 면적, 천장고p, 순실체적, 열저장능력, 열교가산치, 침기율, 냉난방방식, 냉난방공조, 외기부하처리여부, 지역, 야간운전방식, 주말운전방식, 냉난방열공급시스템, 냉난방열공급시스템수, 냉난방공조처리시스템, 열생산난방생산기기, 공조냉방생산기기, 공조난방생산기기, 열생산급탕생산기기, 열생산냉방생산기기, 열생산가습생산기기, 냉난방공조분배시스템, 냉난방분배시스템, 조명부하산출방법, 요구조도, 천장고, 작업면높이, 실깊이, 실너비, 실지수, 조명방식, 인공광원, 보수율, 조명기기효율, 조명률, 조명에너지부하율계산치, 조명에너지부하율입력치, 입력존의수, 그룹, sortkey, 그룹설명} + rowtbl_zoneRow.ItemArray = columnValuesArray + Me.Rows.Add(rowtbl_zoneRow) + Return rowtbl_zoneRow + End Function + + _ + Public Overloads Function Addtbl_zoneRow( _ + ByVal code As String, _ + ByVal 설명 As String, _ + ByVal 프로필 As String, _ + ByVal 면적 As String, _ + ByVal 천장고p As String, _ + ByVal 순실체적 As String, _ + ByVal 열저장능력 As String, _ + ByVal 열교가산치 As String, _ + ByVal 침기율 As String, _ + ByVal 냉난방방식 As String, _ + ByVal 냉난방공조 As String, _ + ByVal 외기부하처리여부 As String, _ + ByVal 지역 As String, _ + ByVal 야간운전방식 As String, _ + ByVal 주말운전방식 As String, _ + ByVal 냉난방열공급시스템 As String, _ + ByVal 냉난방열공급시스템수 As String, _ + ByVal 냉난방공조처리시스템 As String, _ + ByVal 열생산난방생산기기 As String, _ + ByVal 공조냉방생산기기 As String, _ + ByVal 공조난방생산기기 As String, _ + ByVal 열생산급탕생산기기 As String, _ + ByVal 열생산냉방생산기기 As String, _ + ByVal 열생산가습생산기기 As String, _ + ByVal 냉난방공조분배시스템 As String, _ + ByVal 냉난방분배시스템 As String, _ + ByVal 조명부하산출방법 As String, _ + ByVal 요구조도 As String, _ + ByVal 천장고 As String, _ + ByVal 작업면높이 As String, _ + ByVal 실깊이 As String, _ + ByVal 실너비 As String, _ + ByVal 실지수 As String, _ + ByVal 조명방식 As String, _ + ByVal 인공광원 As String, _ + ByVal 보수율 As String, _ + ByVal 조명기기효율 As String, _ + ByVal 조명률 As String, _ + ByVal 조명에너지부하율계산치 As String, _ + ByVal 조명에너지부하율입력치 As String, _ + ByVal 입력존의수 As String, _ + ByVal 그룹 As String, _ + ByVal sortkey As UShort) As tbl_zoneRow + Dim rowtbl_zoneRow As tbl_zoneRow = CType(Me.NewRow,tbl_zoneRow) + Dim columnValuesArray() As Object = New Object() {code, 설명, 프로필, 면적, 천장고p, 순실체적, 열저장능력, 열교가산치, 침기율, 냉난방방식, 냉난방공조, 외기부하처리여부, 지역, 야간운전방식, 주말운전방식, 냉난방열공급시스템, 냉난방열공급시스템수, 냉난방공조처리시스템, 열생산난방생산기기, 공조냉방생산기기, 공조난방생산기기, 열생산급탕생산기기, 열생산냉방생산기기, 열생산가습생산기기, 냉난방공조분배시스템, 냉난방분배시스템, 조명부하산출방법, 요구조도, 천장고, 작업면높이, 실깊이, 실너비, 실지수, 조명방식, 인공광원, 보수율, 조명기기효율, 조명률, 조명에너지부하율계산치, 조명에너지부하율입력치, 입력존의수, 그룹, sortkey, Nothing} + rowtbl_zoneRow.ItemArray = columnValuesArray + Me.Rows.Add(rowtbl_zoneRow) + Return rowtbl_zoneRow + End Function + + _ + Public Function FindBycode(ByVal code As String) As tbl_zoneRow + Return CType(Me.Rows.Find(New Object() {code}),tbl_zoneRow) + End Function + + _ + Public Overrides Function Clone() As Global.System.Data.DataTable + Dim cln As tbl_zoneDataTable = CType(MyBase.Clone,tbl_zoneDataTable) + cln.InitVars + Return cln + End Function + + _ + Protected Overrides Function CreateInstance() As Global.System.Data.DataTable + Return New tbl_zoneDataTable() + End Function + + _ + Friend Sub InitVars() + Me.columncode = MyBase.Columns("code") + Me.column설명 = MyBase.Columns("설명") + Me.column프로필 = MyBase.Columns("프로필") + Me.column면적 = MyBase.Columns("면적") + Me.column천장고p = MyBase.Columns("천장고p") + Me.column순실체적 = MyBase.Columns("순실체적") + Me.column열저장능력 = MyBase.Columns("열저장능력") + Me.column열교가산치 = MyBase.Columns("열교가산치") + Me.column침기율 = MyBase.Columns("침기율") + Me.column냉난방방식 = MyBase.Columns("냉난방방식") + Me.column냉난방공조 = MyBase.Columns("냉난방공조") + Me.column외기부하처리여부 = MyBase.Columns("외기부하처리여부") + Me.column지역 = MyBase.Columns("지역") + Me.column야간운전방식 = MyBase.Columns("야간운전방식") + Me.column주말운전방식 = MyBase.Columns("주말운전방식") + Me.column냉난방열공급시스템 = MyBase.Columns("냉난방열공급시스템") + Me.column냉난방열공급시스템수 = MyBase.Columns("냉난방열공급시스템수") + Me.column냉난방공조처리시스템 = MyBase.Columns("냉난방공조처리시스템") + Me.column열생산난방생산기기 = MyBase.Columns("열생산난방생산기기") + Me.column공조냉방생산기기 = MyBase.Columns("공조냉방생산기기") + Me.column공조난방생산기기 = MyBase.Columns("공조난방생산기기") + Me.column열생산급탕생산기기 = MyBase.Columns("열생산급탕생산기기") + Me.column열생산냉방생산기기 = MyBase.Columns("열생산냉방생산기기") + Me.column열생산가습생산기기 = MyBase.Columns("열생산가습생산기기") + Me.column냉난방공조분배시스템 = MyBase.Columns("냉난방공조분배시스템") + Me.column냉난방분배시스템 = MyBase.Columns("냉난방분배시스템") + Me.column조명부하산출방법 = MyBase.Columns("조명부하산출방법") + Me.column요구조도 = MyBase.Columns("요구조도") + Me.column천장고 = MyBase.Columns("천장고") + Me.column작업면높이 = MyBase.Columns("작업면높이") + Me.column실깊이 = MyBase.Columns("실깊이") + Me.column실너비 = MyBase.Columns("실너비") + Me.column실지수 = MyBase.Columns("실지수") + Me.column조명방식 = MyBase.Columns("조명방식") + Me.column인공광원 = MyBase.Columns("인공광원") + Me.column보수율 = MyBase.Columns("보수율") + Me.column조명기기효율 = MyBase.Columns("조명기기효율") + Me.column조명률 = MyBase.Columns("조명률") + Me.column조명에너지부하율계산치 = MyBase.Columns("조명에너지부하율계산치") + Me.column조명에너지부하율입력치 = MyBase.Columns("조명에너지부하율입력치") + Me.column입력존의수 = MyBase.Columns("입력존의수") + Me.column그룹 = MyBase.Columns("그룹") + Me.columnsortkey = MyBase.Columns("sortkey") + Me.column그룹설명 = MyBase.Columns("그룹설명") + End Sub + + _ + Private Sub InitClass() + 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.column프로필 = New Global.System.Data.DataColumn("프로필", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column프로필) + Me.column면적 = New Global.System.Data.DataColumn("면적", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column면적) + Me.column천장고p = New Global.System.Data.DataColumn("천장고p", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column천장고p) + Me.column순실체적 = New Global.System.Data.DataColumn("순실체적", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column순실체적) + Me.column열저장능력 = New Global.System.Data.DataColumn("열저장능력", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column열저장능력) + Me.column열교가산치 = New Global.System.Data.DataColumn("열교가산치", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column열교가산치) + Me.column침기율 = New Global.System.Data.DataColumn("침기율", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column침기율) + Me.column냉난방방식 = New Global.System.Data.DataColumn("냉난방방식", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column냉난방방식) + Me.column냉난방공조 = New Global.System.Data.DataColumn("냉난방공조", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column냉난방공조) + Me.column외기부하처리여부 = New Global.System.Data.DataColumn("외기부하처리여부", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column외기부하처리여부) + Me.column지역 = New Global.System.Data.DataColumn("지역", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column지역) + Me.column야간운전방식 = New Global.System.Data.DataColumn("야간운전방식", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column야간운전방식) + Me.column주말운전방식 = New Global.System.Data.DataColumn("주말운전방식", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column주말운전방식) + Me.column냉난방열공급시스템 = New Global.System.Data.DataColumn("냉난방열공급시스템", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column냉난방열공급시스템) + Me.column냉난방열공급시스템수 = New Global.System.Data.DataColumn("냉난방열공급시스템수", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column냉난방열공급시스템수) + Me.column냉난방공조처리시스템 = New Global.System.Data.DataColumn("냉난방공조처리시스템", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column냉난방공조처리시스템) + Me.column열생산난방생산기기 = New Global.System.Data.DataColumn("열생산난방생산기기", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column열생산난방생산기기) + Me.column공조냉방생산기기 = New Global.System.Data.DataColumn("공조냉방생산기기", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column공조냉방생산기기) + Me.column공조난방생산기기 = New Global.System.Data.DataColumn("공조난방생산기기", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column공조난방생산기기) + Me.column열생산급탕생산기기 = New Global.System.Data.DataColumn("열생산급탕생산기기", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column열생산급탕생산기기) + Me.column열생산냉방생산기기 = New Global.System.Data.DataColumn("열생산냉방생산기기", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column열생산냉방생산기기) + Me.column열생산가습생산기기 = New Global.System.Data.DataColumn("열생산가습생산기기", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column열생산가습생산기기) + Me.column냉난방공조분배시스템 = New Global.System.Data.DataColumn("냉난방공조분배시스템", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column냉난방공조분배시스템) + Me.column냉난방분배시스템 = New Global.System.Data.DataColumn("냉난방분배시스템", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column냉난방분배시스템) + Me.column조명부하산출방법 = New Global.System.Data.DataColumn("조명부하산출방법", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column조명부하산출방법) + Me.column요구조도 = New Global.System.Data.DataColumn("요구조도", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column요구조도) + Me.column천장고 = New Global.System.Data.DataColumn("천장고", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column천장고) + Me.column작업면높이 = New Global.System.Data.DataColumn("작업면높이", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column작업면높이) + Me.column실깊이 = New Global.System.Data.DataColumn("실깊이", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column실깊이) + Me.column실너비 = New Global.System.Data.DataColumn("실너비", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column실너비) + Me.column실지수 = New Global.System.Data.DataColumn("실지수", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column실지수) + Me.column조명방식 = New Global.System.Data.DataColumn("조명방식", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column조명방식) + Me.column인공광원 = New Global.System.Data.DataColumn("인공광원", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column인공광원) + Me.column보수율 = New Global.System.Data.DataColumn("보수율", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column보수율) + Me.column조명기기효율 = New Global.System.Data.DataColumn("조명기기효율", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column조명기기효율) + Me.column조명률 = New Global.System.Data.DataColumn("조명률", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column조명률) + Me.column조명에너지부하율계산치 = New Global.System.Data.DataColumn("조명에너지부하율계산치", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column조명에너지부하율계산치) + Me.column조명에너지부하율입력치 = New Global.System.Data.DataColumn("조명에너지부하율입력치", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column조명에너지부하율입력치) + Me.column입력존의수 = New Global.System.Data.DataColumn("입력존의수", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column입력존의수) + Me.column그룹 = New Global.System.Data.DataColumn("그룹", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column그룹) + Me.columnsortkey = New Global.System.Data.DataColumn("sortkey", GetType(UShort), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnsortkey) + Me.column그룹설명 = New Global.System.Data.DataColumn("그룹설명", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column그룹설명) + Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columncode}, true)) + Me.columncode.AllowDBNull = false + Me.columncode.Unique = true + Me.columncode.MaxLength = 50 + Me.column설명.DefaultValue = CType("",String) + Me.column설명.MaxLength = 255 + Me.column프로필.DefaultValue = CType("0",String) + Me.column프로필.MaxLength = 50 + Me.column면적.DefaultValue = CType("",String) + Me.column천장고p.DefaultValue = CType("",String) + Me.column순실체적.DefaultValue = CType("",String) + Me.column열저장능력.DefaultValue = CType("90",String) + Me.column열저장능력.MaxLength = 50 + Me.column열교가산치.DefaultValue = CType("0",String) + Me.column열교가산치.MaxLength = 50 + Me.column침기율.DefaultValue = CType("",String) + Me.column냉난방방식.DefaultValue = CType("0",String) + Me.column냉난방방식.MaxLength = 50 + Me.column냉난방공조.DefaultValue = CType("0",String) + Me.column냉난방공조.MaxLength = 50 + Me.column외기부하처리여부.DefaultValue = CType("0",String) + Me.column외기부하처리여부.MaxLength = 50 + Me.column지역.DefaultValue = CType("",String) + Me.column지역.MaxLength = 50 + Me.column야간운전방식.DefaultValue = CType("가동정지",String) + Me.column야간운전방식.MaxLength = 50 + Me.column주말운전방식.DefaultValue = CType("가동정지",String) + Me.column주말운전방식.MaxLength = 50 + Me.column냉난방열공급시스템.DefaultValue = CType("0",String) + Me.column냉난방열공급시스템.MaxLength = 50 + Me.column냉난방열공급시스템수.DefaultValue = CType("",String) + Me.column냉난방열공급시스템수.MaxLength = 50 + Me.column냉난방공조처리시스템.DefaultValue = CType("0",String) + Me.column냉난방공조처리시스템.MaxLength = 50 + Me.column열생산난방생산기기.DefaultValue = CType("0",String) + Me.column열생산난방생산기기.MaxLength = 50 + Me.column열생산급탕생산기기.DefaultValue = CType("0",String) + Me.column열생산급탕생산기기.MaxLength = 50 + Me.column열생산냉방생산기기.DefaultValue = CType("0",String) + Me.column열생산냉방생산기기.MaxLength = 50 + Me.column열생산가습생산기기.Caption = "공조가습생산기기" + Me.column열생산가습생산기기.DefaultValue = CType("0",String) + Me.column열생산가습생산기기.MaxLength = 50 + Me.column냉난방공조분배시스템.DefaultValue = CType("0",String) + Me.column냉난방공조분배시스템.MaxLength = 50 + Me.column냉난방분배시스템.DefaultValue = CType("0",String) + Me.column냉난방분배시스템.MaxLength = 50 + Me.column조명부하산출방법.DefaultValue = CType("0",String) + Me.column요구조도.DefaultValue = CType("",String) + Me.column천장고.DefaultValue = CType("",String) + Me.column작업면높이.DefaultValue = CType("",String) + Me.column실깊이.DefaultValue = CType("",String) + Me.column실너비.DefaultValue = CType("",String) + Me.column실지수.DefaultValue = CType("",String) + Me.column조명방식.DefaultValue = CType("0",String) + Me.column인공광원.DefaultValue = CType("0",String) + Me.column보수율.DefaultValue = CType("",String) + Me.column조명기기효율.DefaultValue = CType("",String) + Me.column조명률.DefaultValue = CType("",String) + Me.column조명에너지부하율계산치.DefaultValue = CType("",String) + Me.column조명에너지부하율입력치.DefaultValue = CType("",String) + Me.column입력존의수.DefaultValue = CType("1",String) + Me.column그룹.DefaultValue = CType("일반",String) + Me.columnsortkey.DefaultValue = CType(1US,UShort) + Me.column그룹설명.ReadOnly = true + Me.column그룹설명.DefaultValue = CType("",String) + End Sub + + _ + Public Function Newtbl_zoneRow() As tbl_zoneRow + Return CType(Me.NewRow,tbl_zoneRow) + End Function + + _ + Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow + Return New tbl_zoneRow(builder) + End Function + + _ + Protected Overrides Function GetRowType() As Global.System.Type + Return GetType(tbl_zoneRow) + End Function + + _ + Private Sub InitExpressions() + Me.그룹설명Column.Expression = "'[' + 그룹+'] '+설명" + End Sub + + _ + Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanged(e) + If (Not (Me.tbl_zoneRowChangedEvent) Is Nothing) Then + RaiseEvent tbl_zoneRowChanged(Me, New tbl_zoneRowChangeEvent(CType(e.Row,tbl_zoneRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanging(e) + If (Not (Me.tbl_zoneRowChangingEvent) Is Nothing) Then + RaiseEvent tbl_zoneRowChanging(Me, New tbl_zoneRowChangeEvent(CType(e.Row,tbl_zoneRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleted(e) + If (Not (Me.tbl_zoneRowDeletedEvent) Is Nothing) Then + RaiseEvent tbl_zoneRowDeleted(Me, New tbl_zoneRowChangeEvent(CType(e.Row,tbl_zoneRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleting(e) + If (Not (Me.tbl_zoneRowDeletingEvent) Is Nothing) Then + RaiseEvent tbl_zoneRowDeleting(Me, New tbl_zoneRowChangeEvent(CType(e.Row,tbl_zoneRow), e.Action)) + End If + End Sub + + _ + Public Sub Removetbl_zoneRow(ByVal row As tbl_zoneRow) + 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 = "tbl_zoneDataTable" + 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 tbl_monuseDataTable + Inherits Global.System.Data.TypedTableBase(Of tbl_monuseRow) + + 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 columncode As Global.System.Data.DataColumn + + _ + Public Sub New() + MyBase.New + Me.TableName = "tbl_monuse" + 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 년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 지역난방Column() As Global.System.Data.DataColumn + Get + Return Me.column지역난방 + End Get + End Property + + _ + Public ReadOnly Property codeColumn() As Global.System.Data.DataColumn + Get + Return Me.columncode + 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 tbl_monuseRow + Get + Return CType(Me.Rows(index),tbl_monuseRow) + End Get + End Property + + _ + Public Event tbl_monuseRowChanging As tbl_monuseRowChangeEventHandler + + _ + Public Event tbl_monuseRowChanged As tbl_monuseRowChangeEventHandler + + _ + Public Event tbl_monuseRowDeleting As tbl_monuseRowChangeEventHandler + + _ + Public Event tbl_monuseRowDeleted As tbl_monuseRowChangeEventHandler + + _ + Public Overloads Sub Addtbl_monuseRow(ByVal row As tbl_monuseRow) + Me.Rows.Add(row) + End Sub + + _ + Public Overloads Function Addtbl_monuseRow(ByVal 년 As String, ByVal 월 As String, ByVal 도시가스 As String, ByVal 전력 As String, ByVal 지역난방 As String, ByVal code As String) As tbl_monuseRow + Dim rowtbl_monuseRow As tbl_monuseRow = CType(Me.NewRow,tbl_monuseRow) + Dim columnValuesArray() As Object = New Object() {년, 월, 도시가스, 전력, 지역난방, code} + rowtbl_monuseRow.ItemArray = columnValuesArray + Me.Rows.Add(rowtbl_monuseRow) + Return rowtbl_monuseRow + End Function + + _ + Public Function FindBycode월(ByVal code As String, ByVal 월 As String) As tbl_monuseRow + Return CType(Me.Rows.Find(New Object() {code, 월}),tbl_monuseRow) + End Function + + _ + Public Overrides Function Clone() As Global.System.Data.DataTable + Dim cln As tbl_monuseDataTable = CType(MyBase.Clone,tbl_monuseDataTable) + cln.InitVars + Return cln + End Function + + _ + Protected Overrides Function CreateInstance() As Global.System.Data.DataTable + Return New tbl_monuseDataTable() + End Function + + _ + Friend Sub InitVars() + Me.column년 = MyBase.Columns("년") + Me.column월 = MyBase.Columns("월") + Me.column도시가스 = MyBase.Columns("도시가스") + Me.column전력 = MyBase.Columns("전력") + Me.column지역난방 = MyBase.Columns("지역난방") + Me.columncode = MyBase.Columns("code") + End Sub + + _ + Private Sub InitClass() + Me.column년 = New Global.System.Data.DataColumn("년", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column년) + Me.column월 = New Global.System.Data.DataColumn("월", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column월) + Me.column도시가스 = New Global.System.Data.DataColumn("도시가스", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column도시가스) + Me.column전력 = New Global.System.Data.DataColumn("전력", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column전력) + Me.column지역난방 = New Global.System.Data.DataColumn("지역난방", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column지역난방) + Me.columncode = New Global.System.Data.DataColumn("code", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columncode) + Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columncode, Me.column월}, true)) + Me.column년.AllowDBNull = false + Me.column년.DefaultValue = CType("",String) + Me.column월.AllowDBNull = false + Me.column월.DefaultValue = CType("",String) + Me.column도시가스.DefaultValue = CType("",String) + Me.column전력.DefaultValue = CType("",String) + Me.column지역난방.DefaultValue = CType("",String) + Me.columncode.AllowDBNull = false + Me.columncode.DefaultValue = CType("",String) + End Sub + + _ + Public Function Newtbl_monuseRow() As tbl_monuseRow + Return CType(Me.NewRow,tbl_monuseRow) + End Function + + _ + Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow + Return New tbl_monuseRow(builder) + End Function + + _ + Protected Overrides Function GetRowType() As Global.System.Type + Return GetType(tbl_monuseRow) + End Function + + _ + Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanged(e) + If (Not (Me.tbl_monuseRowChangedEvent) Is Nothing) Then + RaiseEvent tbl_monuseRowChanged(Me, New tbl_monuseRowChangeEvent(CType(e.Row,tbl_monuseRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanging(e) + If (Not (Me.tbl_monuseRowChangingEvent) Is Nothing) Then + RaiseEvent tbl_monuseRowChanging(Me, New tbl_monuseRowChangeEvent(CType(e.Row,tbl_monuseRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleted(e) + If (Not (Me.tbl_monuseRowDeletedEvent) Is Nothing) Then + RaiseEvent tbl_monuseRowDeleted(Me, New tbl_monuseRowChangeEvent(CType(e.Row,tbl_monuseRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleting(e) + If (Not (Me.tbl_monuseRowDeletingEvent) Is Nothing) Then + RaiseEvent tbl_monuseRowDeleting(Me, New tbl_monuseRowChangeEvent(CType(e.Row,tbl_monuseRow), e.Action)) + End If + End Sub + + _ + Public Sub Removetbl_monuseRow(ByVal row As tbl_monuseRow) + 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 = "tbl_monuseDataTable" + 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 tbl_DescDataTable + Inherits Global.System.Data.TypedTableBase(Of tbl_DescRow) + + Private columncname As Global.System.Data.DataColumn + + Private columnaddr As Global.System.Data.DataColumn + + Private columnreqdate As Global.System.Data.DataColumn + + Private columnbuildname As Global.System.Data.DataColumn + + Private columnbuildarea As Global.System.Data.DataColumn + + Private columnbuildaddr As Global.System.Data.DataColumn + + Private columnbuildm21 As Global.System.Data.DataColumn + + Private columnbuildm22 As Global.System.Data.DataColumn + + Private columnbuildm23 As Global.System.Data.DataColumn + + Private columnbuilds1 As Global.System.Data.DataColumn + + Private columnbuilds2 As Global.System.Data.DataColumn + + Private columndungno As Global.System.Data.DataColumn + + Private columnpname As Global.System.Data.DataColumn + + Private columnname As Global.System.Data.DataColumn + + Private columndept As Global.System.Data.DataColumn + + Private columngrade As Global.System.Data.DataColumn + + Private columntel As Global.System.Data.DataColumn + + Private columnfax As Global.System.Data.DataColumn + + Private columnemail As Global.System.Data.DataColumn + + Private columnversionc As Global.System.Data.DataColumn + + Private columnversionw As Global.System.Data.DataColumn + + Private columnversionp As Global.System.Data.DataColumn + + Private columnpriod As Global.System.Data.DataColumn + + Private columnexistdate As Global.System.Data.DataColumn + + Private columnjubsudate As Global.System.Data.DataColumn + + Private columngujo As Global.System.Data.DataColumn + + Private columninjungdate As Global.System.Data.DataColumn + + Private column용도수수료입금일 As Global.System.Data.DataColumn + + Private column용도수수료입금액 As Global.System.Data.DataColumn + + Private columnisjugo 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 + + _ + Public Sub New() + MyBase.New + Me.TableName = "tbl_Desc" + 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 cnameColumn() As Global.System.Data.DataColumn + Get + Return Me.columncname + End Get + End Property + + _ + Public ReadOnly Property addrColumn() As Global.System.Data.DataColumn + Get + Return Me.columnaddr + End Get + End Property + + _ + Public ReadOnly Property reqdateColumn() As Global.System.Data.DataColumn + Get + Return Me.columnreqdate + End Get + End Property + + _ + Public ReadOnly Property buildnameColumn() As Global.System.Data.DataColumn + Get + Return Me.columnbuildname + End Get + End Property + + _ + Public ReadOnly Property buildareaColumn() As Global.System.Data.DataColumn + Get + Return Me.columnbuildarea + End Get + End Property + + _ + Public ReadOnly Property buildaddrColumn() As Global.System.Data.DataColumn + Get + Return Me.columnbuildaddr + End Get + End Property + + _ + Public ReadOnly Property buildm21Column() As Global.System.Data.DataColumn + Get + Return Me.columnbuildm21 + End Get + End Property + + _ + Public ReadOnly Property buildm22Column() As Global.System.Data.DataColumn + Get + Return Me.columnbuildm22 + End Get + End Property + + _ + Public ReadOnly Property buildm23Column() As Global.System.Data.DataColumn + Get + Return Me.columnbuildm23 + End Get + End Property + + _ + Public ReadOnly Property builds1Column() As Global.System.Data.DataColumn + Get + Return Me.columnbuilds1 + End Get + End Property + + _ + Public ReadOnly Property builds2Column() As Global.System.Data.DataColumn + Get + Return Me.columnbuilds2 + End Get + End Property + + _ + Public ReadOnly Property dungnoColumn() As Global.System.Data.DataColumn + Get + Return Me.columndungno + End Get + End Property + + _ + Public ReadOnly Property pnameColumn() As Global.System.Data.DataColumn + Get + Return Me.columnpname + End Get + End Property + + _ + Public ReadOnly Property nameColumn() As Global.System.Data.DataColumn + Get + Return Me.columnname + End Get + End Property + + _ + Public ReadOnly Property deptColumn() As Global.System.Data.DataColumn + Get + Return Me.columndept + End Get + End Property + + _ + Public ReadOnly Property gradeColumn() As Global.System.Data.DataColumn + Get + Return Me.columngrade + End Get + End Property + + _ + Public ReadOnly Property telColumn() As Global.System.Data.DataColumn + Get + Return Me.columntel + End Get + End Property + + _ + Public ReadOnly Property faxColumn() As Global.System.Data.DataColumn + Get + Return Me.columnfax + End Get + End Property + + _ + Public ReadOnly Property emailColumn() As Global.System.Data.DataColumn + Get + Return Me.columnemail + End Get + End Property + + _ + Public ReadOnly Property versioncColumn() As Global.System.Data.DataColumn + Get + Return Me.columnversionc + End Get + End Property + + _ + Public ReadOnly Property versionwColumn() As Global.System.Data.DataColumn + Get + Return Me.columnversionw + End Get + End Property + + _ + Public ReadOnly Property versionpColumn() As Global.System.Data.DataColumn + Get + Return Me.columnversionp + End Get + End Property + + _ + Public ReadOnly Property priodColumn() As Global.System.Data.DataColumn + Get + Return Me.columnpriod + End Get + End Property + + _ + Public ReadOnly Property existdateColumn() As Global.System.Data.DataColumn + Get + Return Me.columnexistdate + End Get + End Property + + _ + Public ReadOnly Property jubsudateColumn() As Global.System.Data.DataColumn + Get + Return Me.columnjubsudate + End Get + End Property + + _ + Public ReadOnly Property gujoColumn() As Global.System.Data.DataColumn + Get + Return Me.columngujo + End Get + End Property + + _ + Public ReadOnly Property injungdateColumn() As Global.System.Data.DataColumn + Get + Return Me.columninjungdate + 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 isjugoColumn() As Global.System.Data.DataColumn + Get + Return Me.columnisjugo + 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 Count() As Integer + Get + Return Me.Rows.Count + End Get + End Property + + _ + Public Default ReadOnly Property Item(ByVal index As Integer) As tbl_DescRow + Get + Return CType(Me.Rows(index),tbl_DescRow) + End Get + End Property + + _ + Public Event tbl_DescRowChanging As tbl_DescRowChangeEventHandler + + _ + Public Event tbl_DescRowChanged As tbl_DescRowChangeEventHandler + + _ + Public Event tbl_DescRowDeleting As tbl_DescRowChangeEventHandler + + _ + Public Event tbl_DescRowDeleted As tbl_DescRowChangeEventHandler + + _ + Public Overloads Sub Addtbl_DescRow(ByVal row As tbl_DescRow) + Me.Rows.Add(row) + End Sub + + _ + Public Overloads Function Addtbl_DescRow( _ + ByVal cname As String, _ + ByVal addr As String, _ + ByVal reqdate As String, _ + ByVal buildname As String, _ + ByVal buildarea As String, _ + ByVal buildaddr As String, _ + ByVal buildm21 As String, _ + ByVal buildm22 As String, _ + ByVal buildm23 As String, _ + ByVal builds1 As String, _ + ByVal builds2 As String, _ + ByVal dungno As String, _ + ByVal pname As String, _ + ByVal name As String, _ + ByVal dept As String, _ + ByVal grade As String, _ + ByVal tel As String, _ + ByVal fax As String, _ + ByVal email As String, _ + ByVal versionc As String, _ + ByVal versionw As String, _ + ByVal versionp As String, _ + ByVal priod As String, _ + ByVal existdate As String, _ + ByVal jubsudate As String, _ + ByVal gujo As String, _ + ByVal injungdate As String, _ + ByVal 용도수수료입금일 As String, _ + ByVal 용도수수료입금액 As String, _ + ByVal isjugo As String, _ + ByVal 인증기관 As String, _ + ByVal 주조명 As String, _ + ByVal 공공 As String) As tbl_DescRow + Dim rowtbl_DescRow As tbl_DescRow = CType(Me.NewRow,tbl_DescRow) + Dim columnValuesArray() As Object = New Object() {cname, addr, reqdate, buildname, buildarea, buildaddr, buildm21, buildm22, buildm23, builds1, builds2, dungno, pname, name, dept, grade, tel, fax, email, versionc, versionw, versionp, priod, existdate, jubsudate, gujo, injungdate, 용도수수료입금일, 용도수수료입금액, isjugo, 인증기관, 주조명, 공공} + rowtbl_DescRow.ItemArray = columnValuesArray + Me.Rows.Add(rowtbl_DescRow) + Return rowtbl_DescRow + End Function + + _ + Public Overrides Function Clone() As Global.System.Data.DataTable + Dim cln As tbl_DescDataTable = CType(MyBase.Clone,tbl_DescDataTable) + cln.InitVars + Return cln + End Function + + _ + Protected Overrides Function CreateInstance() As Global.System.Data.DataTable + Return New tbl_DescDataTable() + End Function + + _ + Friend Sub InitVars() + Me.columncname = MyBase.Columns("cname") + Me.columnaddr = MyBase.Columns("addr") + Me.columnreqdate = MyBase.Columns("reqdate") + Me.columnbuildname = MyBase.Columns("buildname") + Me.columnbuildarea = MyBase.Columns("buildarea") + Me.columnbuildaddr = MyBase.Columns("buildaddr") + Me.columnbuildm21 = MyBase.Columns("buildm21") + Me.columnbuildm22 = MyBase.Columns("buildm22") + Me.columnbuildm23 = MyBase.Columns("buildm23") + Me.columnbuilds1 = MyBase.Columns("builds1") + Me.columnbuilds2 = MyBase.Columns("builds2") + Me.columndungno = MyBase.Columns("dungno") + Me.columnpname = MyBase.Columns("pname") + Me.columnname = MyBase.Columns("name") + Me.columndept = MyBase.Columns("dept") + Me.columngrade = MyBase.Columns("grade") + Me.columntel = MyBase.Columns("tel") + Me.columnfax = MyBase.Columns("fax") + Me.columnemail = MyBase.Columns("email") + Me.columnversionc = MyBase.Columns("versionc") + Me.columnversionw = MyBase.Columns("versionw") + Me.columnversionp = MyBase.Columns("versionp") + Me.columnpriod = MyBase.Columns("priod") + Me.columnexistdate = MyBase.Columns("existdate") + Me.columnjubsudate = MyBase.Columns("jubsudate") + Me.columngujo = MyBase.Columns("gujo") + Me.columninjungdate = MyBase.Columns("injungdate") + Me.column용도수수료입금일 = MyBase.Columns("용도수수료입금일") + Me.column용도수수료입금액 = MyBase.Columns("용도수수료입금액") + Me.columnisjugo = MyBase.Columns("isjugo") + Me.column인증기관 = MyBase.Columns("인증기관") + Me.column주조명 = MyBase.Columns("주조명") + Me.column공공 = MyBase.Columns("공공") + End Sub + + _ + Private Sub InitClass() + Me.columncname = New Global.System.Data.DataColumn("cname", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columncname) + Me.columnaddr = New Global.System.Data.DataColumn("addr", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnaddr) + Me.columnreqdate = New Global.System.Data.DataColumn("reqdate", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnreqdate) + Me.columnbuildname = New Global.System.Data.DataColumn("buildname", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnbuildname) + Me.columnbuildarea = New Global.System.Data.DataColumn("buildarea", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnbuildarea) + Me.columnbuildaddr = New Global.System.Data.DataColumn("buildaddr", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnbuildaddr) + Me.columnbuildm21 = New Global.System.Data.DataColumn("buildm21", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnbuildm21) + Me.columnbuildm22 = New Global.System.Data.DataColumn("buildm22", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnbuildm22) + Me.columnbuildm23 = New Global.System.Data.DataColumn("buildm23", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnbuildm23) + Me.columnbuilds1 = New Global.System.Data.DataColumn("builds1", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnbuilds1) + Me.columnbuilds2 = New Global.System.Data.DataColumn("builds2", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnbuilds2) + Me.columndungno = New Global.System.Data.DataColumn("dungno", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columndungno) + Me.columnpname = New Global.System.Data.DataColumn("pname", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnpname) + Me.columnname = New Global.System.Data.DataColumn("name", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnname) + Me.columndept = New Global.System.Data.DataColumn("dept", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columndept) + Me.columngrade = New Global.System.Data.DataColumn("grade", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columngrade) + Me.columntel = New Global.System.Data.DataColumn("tel", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columntel) + Me.columnfax = New Global.System.Data.DataColumn("fax", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnfax) + Me.columnemail = New Global.System.Data.DataColumn("email", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnemail) + Me.columnversionc = New Global.System.Data.DataColumn("versionc", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnversionc) + Me.columnversionw = New Global.System.Data.DataColumn("versionw", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnversionw) + Me.columnversionp = New Global.System.Data.DataColumn("versionp", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnversionp) + Me.columnpriod = New Global.System.Data.DataColumn("priod", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnpriod) + Me.columnexistdate = New Global.System.Data.DataColumn("existdate", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnexistdate) + Me.columnjubsudate = New Global.System.Data.DataColumn("jubsudate", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnjubsudate) + Me.columngujo = New Global.System.Data.DataColumn("gujo", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columngujo) + Me.columninjungdate = New Global.System.Data.DataColumn("injungdate", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columninjungdate) + Me.column용도수수료입금일 = New Global.System.Data.DataColumn("용도수수료입금일", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column용도수수료입금일) + Me.column용도수수료입금액 = New Global.System.Data.DataColumn("용도수수료입금액", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column용도수수료입금액) + Me.columnisjugo = New Global.System.Data.DataColumn("isjugo", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnisjugo) + Me.column인증기관 = New Global.System.Data.DataColumn("인증기관", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column인증기관) + Me.column주조명 = New Global.System.Data.DataColumn("주조명", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column주조명) + Me.column공공 = New Global.System.Data.DataColumn("공공", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column공공) + Me.columncname.DefaultValue = CType("",String) + Me.columnaddr.DefaultValue = CType("",String) + Me.columnreqdate.DefaultValue = CType("",String) + Me.columnbuildname.DefaultValue = CType("",String) + Me.columnbuildarea.DefaultValue = CType("",String) + Me.columnbuildaddr.DefaultValue = CType("",String) + Me.columnbuildm21.DefaultValue = CType("",String) + Me.columnbuildm22.DefaultValue = CType("",String) + Me.columnbuildm23.DefaultValue = CType("",String) + Me.columnbuilds1.DefaultValue = CType("",String) + Me.columnbuilds2.DefaultValue = CType("",String) + Me.columndungno.DefaultValue = CType("",String) + Me.columnpname.DefaultValue = CType("",String) + Me.columnname.DefaultValue = CType("",String) + Me.columndept.DefaultValue = CType("",String) + Me.columngrade.DefaultValue = CType("",String) + Me.columntel.DefaultValue = CType("",String) + Me.columnfax.DefaultValue = CType("",String) + Me.columnemail.DefaultValue = CType("",String) + Me.columnversionc.DefaultValue = CType("20100101",String) + Me.columnversionw.DefaultValue = CType("20100101",String) + Me.columnexistdate.DefaultValue = CType("",String) + Me.columnjubsudate.DefaultValue = CType("",String) + Me.columngujo.DefaultValue = CType("",String) + Me.columninjungdate.DefaultValue = CType("",String) + Me.column용도수수료입금일.DefaultValue = CType("",String) + Me.column용도수수료입금액.DefaultValue = CType("",String) + Me.columnisjugo.DefaultValue = CType("",String) + Me.column인증기관.DefaultValue = CType("",String) + Me.column주조명.DefaultValue = CType("",String) + Me.column공공.DefaultValue = CType("1",String) + End Sub + + _ + Public Function Newtbl_DescRow() As tbl_DescRow + Return CType(Me.NewRow,tbl_DescRow) + End Function + + _ + Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow + Return New tbl_DescRow(builder) + End Function + + _ + Protected Overrides Function GetRowType() As Global.System.Type + Return GetType(tbl_DescRow) + End Function + + _ + Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanged(e) + If (Not (Me.tbl_DescRowChangedEvent) Is Nothing) Then + RaiseEvent tbl_DescRowChanged(Me, New tbl_DescRowChangeEvent(CType(e.Row,tbl_DescRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanging(e) + If (Not (Me.tbl_DescRowChangingEvent) Is Nothing) Then + RaiseEvent tbl_DescRowChanging(Me, New tbl_DescRowChangeEvent(CType(e.Row,tbl_DescRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleted(e) + If (Not (Me.tbl_DescRowDeletedEvent) Is Nothing) Then + RaiseEvent tbl_DescRowDeleted(Me, New tbl_DescRowChangeEvent(CType(e.Row,tbl_DescRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleting(e) + If (Not (Me.tbl_DescRowDeletingEvent) Is Nothing) Then + RaiseEvent tbl_DescRowDeleting(Me, New tbl_DescRowChangeEvent(CType(e.Row,tbl_DescRow), e.Action)) + End If + End Sub + + _ + Public Sub Removetbl_DescRow(ByVal row As tbl_DescRow) + 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 = "tbl_DescDataTable" + 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. + ''' + Partial Public Class weather_chaRow + Inherits Global.System.Data.DataRow + + Private tableweather_cha As weather_chaDataTable + + _ + Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) + MyBase.New(rb) + Me.tableweather_cha = CType(Me.Table,weather_chaDataTable) + End Sub + + _ + Public Property pcode() As String + Get + Return CType(Me(Me.tableweather_cha.pcodeColumn),String) + End Get + Set + Me(Me.tableweather_cha.pcodeColumn) = value + End Set + End Property + + _ + Public Property code() As String + Get + Return CType(Me(Me.tableweather_cha.codeColumn),String) + End Get + Set + Me(Me.tableweather_cha.codeColumn) = value + End Set + End Property + + _ + Public Property 설명() As String + Get + If Me.Is설명Null Then + Return "" + Else + Return CType(Me(Me.tableweather_cha.설명Column),String) + End If + End Get + Set + Me(Me.tableweather_cha.설명Column) = value + End Set + End Property + + _ + Public Property m01() As String + Get + If Me.Ism01Null Then + Return "0" + Else + Return CType(Me(Me.tableweather_cha.m01Column),String) + End If + End Get + Set + Me(Me.tableweather_cha.m01Column) = value + End Set + End Property + + _ + Public Property m02() As String + Get + If Me.Ism02Null Then + Return "0" + Else + Return CType(Me(Me.tableweather_cha.m02Column),String) + End If + End Get + Set + Me(Me.tableweather_cha.m02Column) = value + End Set + End Property + + _ + Public Property m03() As String + Get + If Me.Ism03Null Then + Return "0" + Else + Return CType(Me(Me.tableweather_cha.m03Column),String) + End If + End Get + Set + Me(Me.tableweather_cha.m03Column) = value + End Set + End Property + + _ + Public Property m04() As String + Get + If Me.Ism04Null Then + Return "0" + Else + Return CType(Me(Me.tableweather_cha.m04Column),String) + End If + End Get + Set + Me(Me.tableweather_cha.m04Column) = value + End Set + End Property + + _ + Public Property m05() As String + Get + If Me.Ism05Null Then + Return "0" + Else + Return CType(Me(Me.tableweather_cha.m05Column),String) + End If + End Get + Set + Me(Me.tableweather_cha.m05Column) = value + End Set + End Property + + _ + Public Property m06() As String + Get + If Me.Ism06Null Then + Return "0" + Else + Return CType(Me(Me.tableweather_cha.m06Column),String) + End If + End Get + Set + Me(Me.tableweather_cha.m06Column) = value + End Set + End Property + + _ + Public Property m07() As String + Get + If Me.Ism07Null Then + Return "0" + Else + Return CType(Me(Me.tableweather_cha.m07Column),String) + End If + End Get + Set + Me(Me.tableweather_cha.m07Column) = value + End Set + End Property + + _ + Public Property m08() As String + Get + If Me.Ism08Null Then + Return "0" + Else + Return CType(Me(Me.tableweather_cha.m08Column),String) + End If + End Get + Set + Me(Me.tableweather_cha.m08Column) = value + End Set + End Property + + _ + Public Property m09() As String + Get + If Me.Ism09Null Then + Return "0" + Else + Return CType(Me(Me.tableweather_cha.m09Column),String) + End If + End Get + Set + Me(Me.tableweather_cha.m09Column) = value + End Set + End Property + + _ + Public Property m10() As String + Get + If Me.Ism10Null Then + Return "0" + Else + Return CType(Me(Me.tableweather_cha.m10Column),String) + End If + End Get + Set + Me(Me.tableweather_cha.m10Column) = value + End Set + End Property + + _ + Public Property m11() As String + Get + If Me.Ism11Null Then + Return "0" + Else + Return CType(Me(Me.tableweather_cha.m11Column),String) + End If + End Get + Set + Me(Me.tableweather_cha.m11Column) = value + End Set + End Property + + _ + Public Property m12() As String + Get + If Me.Ism12Null Then + Return "0" + Else + Return CType(Me(Me.tableweather_cha.m12Column),String) + End If + End Get + Set + Me(Me.tableweather_cha.m12Column) = value + End Set + End Property + + _ + Public Function Is설명Null() As Boolean + Return Me.IsNull(Me.tableweather_cha.설명Column) + End Function + + _ + Public Sub Set설명Null() + Me(Me.tableweather_cha.설명Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Ism01Null() As Boolean + Return Me.IsNull(Me.tableweather_cha.m01Column) + End Function + + _ + Public Sub Setm01Null() + Me(Me.tableweather_cha.m01Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Ism02Null() As Boolean + Return Me.IsNull(Me.tableweather_cha.m02Column) + End Function + + _ + Public Sub Setm02Null() + Me(Me.tableweather_cha.m02Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Ism03Null() As Boolean + Return Me.IsNull(Me.tableweather_cha.m03Column) + End Function + + _ + Public Sub Setm03Null() + Me(Me.tableweather_cha.m03Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Ism04Null() As Boolean + Return Me.IsNull(Me.tableweather_cha.m04Column) + End Function + + _ + Public Sub Setm04Null() + Me(Me.tableweather_cha.m04Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Ism05Null() As Boolean + Return Me.IsNull(Me.tableweather_cha.m05Column) + End Function + + _ + Public Sub Setm05Null() + Me(Me.tableweather_cha.m05Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Ism06Null() As Boolean + Return Me.IsNull(Me.tableweather_cha.m06Column) + End Function + + _ + Public Sub Setm06Null() + Me(Me.tableweather_cha.m06Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Ism07Null() As Boolean + Return Me.IsNull(Me.tableweather_cha.m07Column) + End Function + + _ + Public Sub Setm07Null() + Me(Me.tableweather_cha.m07Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Ism08Null() As Boolean + Return Me.IsNull(Me.tableweather_cha.m08Column) + End Function + + _ + Public Sub Setm08Null() + Me(Me.tableweather_cha.m08Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Ism09Null() As Boolean + Return Me.IsNull(Me.tableweather_cha.m09Column) + End Function + + _ + Public Sub Setm09Null() + Me(Me.tableweather_cha.m09Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Ism10Null() As Boolean + Return Me.IsNull(Me.tableweather_cha.m10Column) + End Function + + _ + Public Sub Setm10Null() + Me(Me.tableweather_cha.m10Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Ism11Null() As Boolean + Return Me.IsNull(Me.tableweather_cha.m11Column) + End Function + + _ + Public Sub Setm11Null() + Me(Me.tableweather_cha.m11Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Ism12Null() As Boolean + Return Me.IsNull(Me.tableweather_cha.m12Column) + End Function + + _ + Public Sub Setm12Null() + Me(Me.tableweather_cha.m12Column) = Global.System.Convert.DBNull + End Sub + End Class + + ''' + '''Represents strongly named DataRow class. + ''' + Partial Public Class weather_tempRow + Inherits Global.System.Data.DataRow + + Private tableweather_temp As weather_tempDataTable + + _ + Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) + MyBase.New(rb) + Me.tableweather_temp = CType(Me.Table,weather_tempDataTable) + End Sub + + _ + Public Property pcode() As String + Get + Return CType(Me(Me.tableweather_temp.pcodeColumn),String) + End Get + Set + Me(Me.tableweather_temp.pcodeColumn) = value + End Set + End Property + + _ + Public Property code() As String + Get + Return CType(Me(Me.tableweather_temp.codeColumn),String) + End Get + Set + Me(Me.tableweather_temp.codeColumn) = value + End Set + End Property + + _ + Public Property 설명() As String + Get + Try + Return CType(Me(Me.tableweather_temp.설명Column),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("'weather_temp' 테이블의 '설명' 열의 값이 DBNull입니다.", e) + End Try + End Get + Set + Me(Me.tableweather_temp.설명Column) = value + End Set + End Property + + _ + Public Property t01() As String + Get + If Me.Ist01Null Then + Return "0" + Else + Return CType(Me(Me.tableweather_temp.t01Column),String) + End If + End Get + Set + Me(Me.tableweather_temp.t01Column) = value + End Set + End Property + + _ + Public Property t02() As String + Get + If Me.Ist02Null Then + Return "0" + Else + Return CType(Me(Me.tableweather_temp.t02Column),String) + End If + End Get + Set + Me(Me.tableweather_temp.t02Column) = value + End Set + End Property + + _ + Public Property t03() As String + Get + If Me.Ist03Null Then + Return "0" + Else + Return CType(Me(Me.tableweather_temp.t03Column),String) + End If + End Get + Set + Me(Me.tableweather_temp.t03Column) = value + End Set + End Property + + _ + Public Property t04() As String + Get + If Me.Ist04Null Then + Return "0" + Else + Return CType(Me(Me.tableweather_temp.t04Column),String) + End If + End Get + Set + Me(Me.tableweather_temp.t04Column) = value + End Set + End Property + + _ + Public Property t05() As String + Get + If Me.Ist05Null Then + Return "0" + Else + Return CType(Me(Me.tableweather_temp.t05Column),String) + End If + End Get + Set + Me(Me.tableweather_temp.t05Column) = value + End Set + End Property + + _ + Public Property t06() As String + Get + If Me.Ist06Null Then + Return "0" + Else + Return CType(Me(Me.tableweather_temp.t06Column),String) + End If + End Get + Set + Me(Me.tableweather_temp.t06Column) = value + End Set + End Property + + _ + Public Property t07() As String + Get + If Me.Ist07Null Then + Return "0" + Else + Return CType(Me(Me.tableweather_temp.t07Column),String) + End If + End Get + Set + Me(Me.tableweather_temp.t07Column) = value + End Set + End Property + + _ + Public Property t08() As String + Get + If Me.Ist08Null Then + Return "0" + Else + Return CType(Me(Me.tableweather_temp.t08Column),String) + End If + End Get + Set + Me(Me.tableweather_temp.t08Column) = value + End Set + End Property + + _ + Public Property t09() As String + Get + If Me.Ist09Null Then + Return "0" + Else + Return CType(Me(Me.tableweather_temp.t09Column),String) + End If + End Get + Set + Me(Me.tableweather_temp.t09Column) = value + End Set + End Property + + _ + Public Property t10() As String + Get + If Me.Ist10Null Then + Return "0" + Else + Return CType(Me(Me.tableweather_temp.t10Column),String) + End If + End Get + Set + Me(Me.tableweather_temp.t10Column) = value + End Set + End Property + + _ + Public Property t11() As String + Get + If Me.Ist11Null Then + Return "0" + Else + Return CType(Me(Me.tableweather_temp.t11Column),String) + End If + End Get + Set + Me(Me.tableweather_temp.t11Column) = value + End Set + End Property + + _ + Public Property t12() As String + Get + If Me.Ist12Null Then + Return "0" + Else + Return CType(Me(Me.tableweather_temp.t12Column),String) + End If + End Get + Set + Me(Me.tableweather_temp.t12Column) = value + End Set + End Property + + _ + Public Property t13() As String + Get + If Me.Ist13Null Then + Return "0" + Else + Return CType(Me(Me.tableweather_temp.t13Column),String) + End If + End Get + Set + Me(Me.tableweather_temp.t13Column) = value + End Set + End Property + + _ + Public Property t14() As String + Get + If Me.Ist14Null Then + Return "0" + Else + Return CType(Me(Me.tableweather_temp.t14Column),String) + End If + End Get + Set + Me(Me.tableweather_temp.t14Column) = value + End Set + End Property + + _ + Public Property t15() As String + Get + If Me.Ist15Null Then + Return "0" + Else + Return CType(Me(Me.tableweather_temp.t15Column),String) + End If + End Get + Set + Me(Me.tableweather_temp.t15Column) = value + End Set + End Property + + _ + Public Property t16() As String + Get + If Me.Ist16Null Then + Return "0" + Else + Return CType(Me(Me.tableweather_temp.t16Column),String) + End If + End Get + Set + Me(Me.tableweather_temp.t16Column) = value + End Set + End Property + + _ + Public Property t17() As String + Get + If Me.Ist17Null Then + Return "0" + Else + Return CType(Me(Me.tableweather_temp.t17Column),String) + End If + End Get + Set + Me(Me.tableweather_temp.t17Column) = value + End Set + End Property + + _ + Public Property t18() As String + Get + If Me.Ist18Null Then + Return "0" + Else + Return CType(Me(Me.tableweather_temp.t18Column),String) + End If + End Get + Set + Me(Me.tableweather_temp.t18Column) = value + End Set + End Property + + _ + Public Property t19() As String + Get + If Me.Ist19Null Then + Return "0" + Else + Return CType(Me(Me.tableweather_temp.t19Column),String) + End If + End Get + Set + Me(Me.tableweather_temp.t19Column) = value + End Set + End Property + + _ + Public Property t20() As String + Get + If Me.Ist20Null Then + Return "0" + Else + Return CType(Me(Me.tableweather_temp.t20Column),String) + End If + End Get + Set + Me(Me.tableweather_temp.t20Column) = value + End Set + End Property + + _ + Public Property t21() As String + Get + If Me.Ist21Null Then + Return "0" + Else + Return CType(Me(Me.tableweather_temp.t21Column),String) + End If + End Get + Set + Me(Me.tableweather_temp.t21Column) = value + End Set + End Property + + _ + Public Property t22() As String + Get + If Me.Ist22Null Then + Return "0" + Else + Return CType(Me(Me.tableweather_temp.t22Column),String) + End If + End Get + Set + Me(Me.tableweather_temp.t22Column) = value + End Set + End Property + + _ + Public Property t23() As String + Get + If Me.Ist23Null Then + Return "0" + Else + Return CType(Me(Me.tableweather_temp.t23Column),String) + End If + End Get + Set + Me(Me.tableweather_temp.t23Column) = value + End Set + End Property + + _ + Public Property t24() As String + Get + If Me.Ist24Null Then + Return "0" + Else + Return CType(Me(Me.tableweather_temp.t24Column),String) + End If + End Get + Set + Me(Me.tableweather_temp.t24Column) = value + End Set + End Property + + _ + Public Function Is설명Null() As Boolean + Return Me.IsNull(Me.tableweather_temp.설명Column) + End Function + + _ + Public Sub Set설명Null() + Me(Me.tableweather_temp.설명Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Ist01Null() As Boolean + Return Me.IsNull(Me.tableweather_temp.t01Column) + End Function + + _ + Public Sub Sett01Null() + Me(Me.tableweather_temp.t01Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Ist02Null() As Boolean + Return Me.IsNull(Me.tableweather_temp.t02Column) + End Function + + _ + Public Sub Sett02Null() + Me(Me.tableweather_temp.t02Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Ist03Null() As Boolean + Return Me.IsNull(Me.tableweather_temp.t03Column) + End Function + + _ + Public Sub Sett03Null() + Me(Me.tableweather_temp.t03Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Ist04Null() As Boolean + Return Me.IsNull(Me.tableweather_temp.t04Column) + End Function + + _ + Public Sub Sett04Null() + Me(Me.tableweather_temp.t04Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Ist05Null() As Boolean + Return Me.IsNull(Me.tableweather_temp.t05Column) + End Function + + _ + Public Sub Sett05Null() + Me(Me.tableweather_temp.t05Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Ist06Null() As Boolean + Return Me.IsNull(Me.tableweather_temp.t06Column) + End Function + + _ + Public Sub Sett06Null() + Me(Me.tableweather_temp.t06Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Ist07Null() As Boolean + Return Me.IsNull(Me.tableweather_temp.t07Column) + End Function + + _ + Public Sub Sett07Null() + Me(Me.tableweather_temp.t07Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Ist08Null() As Boolean + Return Me.IsNull(Me.tableweather_temp.t08Column) + End Function + + _ + Public Sub Sett08Null() + Me(Me.tableweather_temp.t08Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Ist09Null() As Boolean + Return Me.IsNull(Me.tableweather_temp.t09Column) + End Function + + _ + Public Sub Sett09Null() + Me(Me.tableweather_temp.t09Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Ist10Null() As Boolean + Return Me.IsNull(Me.tableweather_temp.t10Column) + End Function + + _ + Public Sub Sett10Null() + Me(Me.tableweather_temp.t10Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Ist11Null() As Boolean + Return Me.IsNull(Me.tableweather_temp.t11Column) + End Function + + _ + Public Sub Sett11Null() + Me(Me.tableweather_temp.t11Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Ist12Null() As Boolean + Return Me.IsNull(Me.tableweather_temp.t12Column) + End Function + + _ + Public Sub Sett12Null() + Me(Me.tableweather_temp.t12Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Ist13Null() As Boolean + Return Me.IsNull(Me.tableweather_temp.t13Column) + End Function + + _ + Public Sub Sett13Null() + Me(Me.tableweather_temp.t13Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Ist14Null() As Boolean + Return Me.IsNull(Me.tableweather_temp.t14Column) + End Function + + _ + Public Sub Sett14Null() + Me(Me.tableweather_temp.t14Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Ist15Null() As Boolean + Return Me.IsNull(Me.tableweather_temp.t15Column) + End Function + + _ + Public Sub Sett15Null() + Me(Me.tableweather_temp.t15Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Ist16Null() As Boolean + Return Me.IsNull(Me.tableweather_temp.t16Column) + End Function + + _ + Public Sub Sett16Null() + Me(Me.tableweather_temp.t16Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Ist17Null() As Boolean + Return Me.IsNull(Me.tableweather_temp.t17Column) + End Function + + _ + Public Sub Sett17Null() + Me(Me.tableweather_temp.t17Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Ist18Null() As Boolean + Return Me.IsNull(Me.tableweather_temp.t18Column) + End Function + + _ + Public Sub Sett18Null() + Me(Me.tableweather_temp.t18Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Ist19Null() As Boolean + Return Me.IsNull(Me.tableweather_temp.t19Column) + End Function + + _ + Public Sub Sett19Null() + Me(Me.tableweather_temp.t19Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Ist20Null() As Boolean + Return Me.IsNull(Me.tableweather_temp.t20Column) + End Function + + _ + Public Sub Sett20Null() + Me(Me.tableweather_temp.t20Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Ist21Null() As Boolean + Return Me.IsNull(Me.tableweather_temp.t21Column) + End Function + + _ + Public Sub Sett21Null() + Me(Me.tableweather_temp.t21Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Ist22Null() As Boolean + Return Me.IsNull(Me.tableweather_temp.t22Column) + End Function + + _ + Public Sub Sett22Null() + Me(Me.tableweather_temp.t22Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Ist23Null() As Boolean + Return Me.IsNull(Me.tableweather_temp.t23Column) + End Function + + _ + Public Sub Sett23Null() + Me(Me.tableweather_temp.t23Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Ist24Null() As Boolean + Return Me.IsNull(Me.tableweather_temp.t24Column) + End Function + + _ + Public Sub Sett24Null() + Me(Me.tableweather_temp.t24Column) = Global.System.Convert.DBNull + End Sub + End Class + + ''' + '''Represents strongly named DataRow class. + ''' + Partial Public Class tbl_weatherRow + Inherits Global.System.Data.DataRow + + Private tabletbl_weather As tbl_weatherDataTable + + _ + Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) + MyBase.New(rb) + Me.tabletbl_weather = CType(Me.Table,tbl_weatherDataTable) + End Sub + + _ + Public Property code() As String + Get + Return CType(Me(Me.tabletbl_weather.codeColumn),String) + End Get + Set + Me(Me.tabletbl_weather.codeColumn) = value + End Set + End Property + + _ + Public Property 건물위치() As String + Get + If Me.Is건물위치Null Then + Return "" + Else + Return CType(Me(Me.tabletbl_weather.건물위치Column),String) + End If + End Get + Set + Me(Me.tabletbl_weather.건물위치Column) = value + End Set + End Property + + _ + Public Property 난방기() As String + Get + If Me.Is난방기Null Then + Return "0" + Else + Return CType(Me(Me.tabletbl_weather.난방기Column),String) + End If + End Get + Set + Me(Me.tabletbl_weather.난방기Column) = value + End Set + End Property + + _ + Public Property 냉방기() As String + Get + If Me.Is냉방기Null Then + Return "0" + Else + Return CType(Me(Me.tabletbl_weather.냉방기Column),String) + End If + End Get + Set + Me(Me.tabletbl_weather.냉방기Column) = value + End Set + End Property + + _ + Public Property m01() As String + Get + If Me.Ism01Null Then + Return "0" + Else + Return CType(Me(Me.tabletbl_weather.m01Column),String) + End If + End Get + Set + Me(Me.tabletbl_weather.m01Column) = value + End Set + End Property + + _ + Public Property m02() As String + Get + If Me.Ism02Null Then + Return "0" + Else + Return CType(Me(Me.tabletbl_weather.m02Column),String) + End If + End Get + Set + Me(Me.tabletbl_weather.m02Column) = value + End Set + End Property + + _ + Public Property m03() As String + Get + If Me.Ism03Null Then + Return "0" + Else + Return CType(Me(Me.tabletbl_weather.m03Column),String) + End If + End Get + Set + Me(Me.tabletbl_weather.m03Column) = value + End Set + End Property + + _ + Public Property m04() As String + Get + If Me.Ism04Null Then + Return "0" + Else + Return CType(Me(Me.tabletbl_weather.m04Column),String) + End If + End Get + Set + Me(Me.tabletbl_weather.m04Column) = value + End Set + End Property + + _ + Public Property m05() As String + Get + If Me.Ism05Null Then + Return "0" + Else + Return CType(Me(Me.tabletbl_weather.m05Column),String) + End If + End Get + Set + Me(Me.tabletbl_weather.m05Column) = value + End Set + End Property + + _ + Public Property m06() As String + Get + If Me.Ism06Null Then + Return "0" + Else + Return CType(Me(Me.tabletbl_weather.m06Column),String) + End If + End Get + Set + Me(Me.tabletbl_weather.m06Column) = value + End Set + End Property + + _ + Public Property m07() As String + Get + If Me.Ism07Null Then + Return "0" + Else + Return CType(Me(Me.tabletbl_weather.m07Column),String) + End If + End Get + Set + Me(Me.tabletbl_weather.m07Column) = value + End Set + End Property + + _ + Public Property m08() As String + Get + If Me.Ism08Null Then + Return "0" + Else + Return CType(Me(Me.tabletbl_weather.m08Column),String) + End If + End Get + Set + Me(Me.tabletbl_weather.m08Column) = value + End Set + End Property + + _ + Public Property m09() As String + Get + If Me.Ism09Null Then + Return "0" + Else + Return CType(Me(Me.tabletbl_weather.m09Column),String) + End If + End Get + Set + Me(Me.tabletbl_weather.m09Column) = value + End Set + End Property + + _ + Public Property m10() As String + Get + If Me.Ism10Null Then + Return "0" + Else + Return CType(Me(Me.tabletbl_weather.m10Column),String) + End If + End Get + Set + Me(Me.tabletbl_weather.m10Column) = value + End Set + End Property + + _ + Public Property m11() As String + Get + If Me.Ism11Null Then + Return "0" + Else + Return CType(Me(Me.tabletbl_weather.m11Column),String) + End If + End Get + Set + Me(Me.tabletbl_weather.m11Column) = value + End Set + End Property + + _ + Public Property m12() As String + Get + If Me.Ism12Null Then + Return "0" + Else + Return CType(Me(Me.tabletbl_weather.m12Column),String) + End If + End Get + Set + Me(Me.tabletbl_weather.m12Column) = value + End Set + End Property + + _ + Public Function Is건물위치Null() As Boolean + Return Me.IsNull(Me.tabletbl_weather.건물위치Column) + End Function + + _ + Public Sub Set건물위치Null() + Me(Me.tabletbl_weather.건물위치Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is난방기Null() As Boolean + Return Me.IsNull(Me.tabletbl_weather.난방기Column) + End Function + + _ + Public Sub Set난방기Null() + Me(Me.tabletbl_weather.난방기Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is냉방기Null() As Boolean + Return Me.IsNull(Me.tabletbl_weather.냉방기Column) + End Function + + _ + Public Sub Set냉방기Null() + Me(Me.tabletbl_weather.냉방기Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Ism01Null() As Boolean + Return Me.IsNull(Me.tabletbl_weather.m01Column) + End Function + + _ + Public Sub Setm01Null() + Me(Me.tabletbl_weather.m01Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Ism02Null() As Boolean + Return Me.IsNull(Me.tabletbl_weather.m02Column) + End Function + + _ + Public Sub Setm02Null() + Me(Me.tabletbl_weather.m02Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Ism03Null() As Boolean + Return Me.IsNull(Me.tabletbl_weather.m03Column) + End Function + + _ + Public Sub Setm03Null() + Me(Me.tabletbl_weather.m03Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Ism04Null() As Boolean + Return Me.IsNull(Me.tabletbl_weather.m04Column) + End Function + + _ + Public Sub Setm04Null() + Me(Me.tabletbl_weather.m04Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Ism05Null() As Boolean + Return Me.IsNull(Me.tabletbl_weather.m05Column) + End Function + + _ + Public Sub Setm05Null() + Me(Me.tabletbl_weather.m05Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Ism06Null() As Boolean + Return Me.IsNull(Me.tabletbl_weather.m06Column) + End Function + + _ + Public Sub Setm06Null() + Me(Me.tabletbl_weather.m06Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Ism07Null() As Boolean + Return Me.IsNull(Me.tabletbl_weather.m07Column) + End Function + + _ + Public Sub Setm07Null() + Me(Me.tabletbl_weather.m07Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Ism08Null() As Boolean + Return Me.IsNull(Me.tabletbl_weather.m08Column) + End Function + + _ + Public Sub Setm08Null() + Me(Me.tabletbl_weather.m08Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Ism09Null() As Boolean + Return Me.IsNull(Me.tabletbl_weather.m09Column) + End Function + + _ + Public Sub Setm09Null() + Me(Me.tabletbl_weather.m09Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Ism10Null() As Boolean + Return Me.IsNull(Me.tabletbl_weather.m10Column) + End Function + + _ + Public Sub Setm10Null() + Me(Me.tabletbl_weather.m10Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Ism11Null() As Boolean + Return Me.IsNull(Me.tabletbl_weather.m11Column) + End Function + + _ + Public Sub Setm11Null() + Me(Me.tabletbl_weather.m11Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Ism12Null() As Boolean + Return Me.IsNull(Me.tabletbl_weather.m12Column) + End Function + + _ + Public Sub Setm12Null() + Me(Me.tabletbl_weather.m12Column) = Global.System.Convert.DBNull + End Sub + End Class + + ''' + '''Represents strongly named DataRow class. + ''' + Partial Public Class weather_ilsaRow + Inherits Global.System.Data.DataRow + + Private tableweather_ilsa As weather_ilsaDataTable + + _ + Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) + MyBase.New(rb) + Me.tableweather_ilsa = CType(Me.Table,weather_ilsaDataTable) + End Sub + + _ + Public Property pcode() As String + Get + Return CType(Me(Me.tableweather_ilsa.pcodeColumn),String) + End Get + Set + Me(Me.tableweather_ilsa.pcodeColumn) = value + End Set + End Property + + _ + Public Property code() As String + Get + Return CType(Me(Me.tableweather_ilsa.codeColumn),String) + End Get + Set + Me(Me.tableweather_ilsa.codeColumn) = value + End Set + End Property + + _ + Public Property 설명() As String + Get + If Me.Is설명Null Then + Return "" + Else + Return CType(Me(Me.tableweather_ilsa.설명Column),String) + End If + End Get + Set + Me(Me.tableweather_ilsa.설명Column) = value + End Set + End Property + + _ + Public Property 최대부하() As String + Get + If Me.Is최대부하Null Then + Return "0" + Else + Return CType(Me(Me.tableweather_ilsa.최대부하Column),String) + End If + End Get + Set + Me(Me.tableweather_ilsa.최대부하Column) = value + End Set + End Property + + _ + Public Property m01() As String + Get + If Me.Ism01Null Then + Return "0" + Else + Return CType(Me(Me.tableweather_ilsa.m01Column),String) + End If + End Get + Set + Me(Me.tableweather_ilsa.m01Column) = value + End Set + End Property + + _ + Public Property m02() As String + Get + If Me.Ism02Null Then + Return "0" + Else + Return CType(Me(Me.tableweather_ilsa.m02Column),String) + End If + End Get + Set + Me(Me.tableweather_ilsa.m02Column) = value + End Set + End Property + + _ + Public Property m03() As String + Get + If Me.Ism03Null Then + Return "0" + Else + Return CType(Me(Me.tableweather_ilsa.m03Column),String) + End If + End Get + Set + Me(Me.tableweather_ilsa.m03Column) = value + End Set + End Property + + _ + Public Property m04() As String + Get + If Me.Ism04Null Then + Return "0" + Else + Return CType(Me(Me.tableweather_ilsa.m04Column),String) + End If + End Get + Set + Me(Me.tableweather_ilsa.m04Column) = value + End Set + End Property + + _ + Public Property m05() As String + Get + If Me.Ism05Null Then + Return "0" + Else + Return CType(Me(Me.tableweather_ilsa.m05Column),String) + End If + End Get + Set + Me(Me.tableweather_ilsa.m05Column) = value + End Set + End Property + + _ + Public Property m06() As String + Get + If Me.Ism06Null Then + Return "0" + Else + Return CType(Me(Me.tableweather_ilsa.m06Column),String) + End If + End Get + Set + Me(Me.tableweather_ilsa.m06Column) = value + End Set + End Property + + _ + Public Property m07() As String + Get + If Me.Ism07Null Then + Return "0" + Else + Return CType(Me(Me.tableweather_ilsa.m07Column),String) + End If + End Get + Set + Me(Me.tableweather_ilsa.m07Column) = value + End Set + End Property + + _ + Public Property m08() As String + Get + If Me.Ism08Null Then + Return "0" + Else + Return CType(Me(Me.tableweather_ilsa.m08Column),String) + End If + End Get + Set + Me(Me.tableweather_ilsa.m08Column) = value + End Set + End Property + + _ + Public Property m09() As String + Get + If Me.Ism09Null Then + Return "0" + Else + Return CType(Me(Me.tableweather_ilsa.m09Column),String) + End If + End Get + Set + Me(Me.tableweather_ilsa.m09Column) = value + End Set + End Property + + _ + Public Property m10() As String + Get + If Me.Ism10Null Then + Return "0" + Else + Return CType(Me(Me.tableweather_ilsa.m10Column),String) + End If + End Get + Set + Me(Me.tableweather_ilsa.m10Column) = value + End Set + End Property + + _ + Public Property m11() As String + Get + If Me.Ism11Null Then + Return "0" + Else + Return CType(Me(Me.tableweather_ilsa.m11Column),String) + End If + End Get + Set + Me(Me.tableweather_ilsa.m11Column) = value + End Set + End Property + + _ + Public Property m12() As String + Get + If Me.Ism12Null Then + Return "0" + Else + Return CType(Me(Me.tableweather_ilsa.m12Column),String) + End If + End Get + Set + Me(Me.tableweather_ilsa.m12Column) = value + End Set + End Property + + _ + Public Function Is설명Null() As Boolean + Return Me.IsNull(Me.tableweather_ilsa.설명Column) + End Function + + _ + Public Sub Set설명Null() + Me(Me.tableweather_ilsa.설명Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is최대부하Null() As Boolean + Return Me.IsNull(Me.tableweather_ilsa.최대부하Column) + End Function + + _ + Public Sub Set최대부하Null() + Me(Me.tableweather_ilsa.최대부하Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Ism01Null() As Boolean + Return Me.IsNull(Me.tableweather_ilsa.m01Column) + End Function + + _ + Public Sub Setm01Null() + Me(Me.tableweather_ilsa.m01Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Ism02Null() As Boolean + Return Me.IsNull(Me.tableweather_ilsa.m02Column) + End Function + + _ + Public Sub Setm02Null() + Me(Me.tableweather_ilsa.m02Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Ism03Null() As Boolean + Return Me.IsNull(Me.tableweather_ilsa.m03Column) + End Function + + _ + Public Sub Setm03Null() + Me(Me.tableweather_ilsa.m03Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Ism04Null() As Boolean + Return Me.IsNull(Me.tableweather_ilsa.m04Column) + End Function + + _ + Public Sub Setm04Null() + Me(Me.tableweather_ilsa.m04Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Ism05Null() As Boolean + Return Me.IsNull(Me.tableweather_ilsa.m05Column) + End Function + + _ + Public Sub Setm05Null() + Me(Me.tableweather_ilsa.m05Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Ism06Null() As Boolean + Return Me.IsNull(Me.tableweather_ilsa.m06Column) + End Function + + _ + Public Sub Setm06Null() + Me(Me.tableweather_ilsa.m06Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Ism07Null() As Boolean + Return Me.IsNull(Me.tableweather_ilsa.m07Column) + End Function + + _ + Public Sub Setm07Null() + Me(Me.tableweather_ilsa.m07Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Ism08Null() As Boolean + Return Me.IsNull(Me.tableweather_ilsa.m08Column) + End Function + + _ + Public Sub Setm08Null() + Me(Me.tableweather_ilsa.m08Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Ism09Null() As Boolean + Return Me.IsNull(Me.tableweather_ilsa.m09Column) + End Function + + _ + Public Sub Setm09Null() + Me(Me.tableweather_ilsa.m09Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Ism10Null() As Boolean + Return Me.IsNull(Me.tableweather_ilsa.m10Column) + End Function + + _ + Public Sub Setm10Null() + Me(Me.tableweather_ilsa.m10Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Ism11Null() As Boolean + Return Me.IsNull(Me.tableweather_ilsa.m11Column) + End Function + + _ + Public Sub Setm11Null() + Me(Me.tableweather_ilsa.m11Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Ism12Null() As Boolean + Return Me.IsNull(Me.tableweather_ilsa.m12Column) + End Function + + _ + Public Sub Setm12Null() + Me(Me.tableweather_ilsa.m12Column) = Global.System.Convert.DBNull + End Sub + End Class + + ''' + '''Represents strongly named DataRow class. + ''' + Partial Public Class weather_supdoRow + Inherits Global.System.Data.DataRow + + Private tableweather_supdo As weather_supdoDataTable + + _ + Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) + MyBase.New(rb) + Me.tableweather_supdo = CType(Me.Table,weather_supdoDataTable) + End Sub + + _ + Public Property pcode() As String + Get + Return CType(Me(Me.tableweather_supdo.pcodeColumn),String) + End Get + Set + Me(Me.tableweather_supdo.pcodeColumn) = value + End Set + End Property + + _ + Public Property code() As String + Get + Return CType(Me(Me.tableweather_supdo.codeColumn),String) + End Get + Set + Me(Me.tableweather_supdo.codeColumn) = value + End Set + End Property + + _ + Public Property 설명() As String + Get + Try + Return CType(Me(Me.tableweather_supdo.설명Column),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("'weather_supdo' 테이블의 '설명' 열의 값이 DBNull입니다.", e) + End Try + End Get + Set + Me(Me.tableweather_supdo.설명Column) = value + End Set + End Property + + _ + Public Property t01() As String + Get + If Me.Ist01Null Then + Return "0" + Else + Return CType(Me(Me.tableweather_supdo.t01Column),String) + End If + End Get + Set + Me(Me.tableweather_supdo.t01Column) = value + End Set + End Property + + _ + Public Property t02() As String + Get + If Me.Ist02Null Then + Return "0" + Else + Return CType(Me(Me.tableweather_supdo.t02Column),String) + End If + End Get + Set + Me(Me.tableweather_supdo.t02Column) = value + End Set + End Property + + _ + Public Property t03() As String + Get + If Me.Ist03Null Then + Return "0" + Else + Return CType(Me(Me.tableweather_supdo.t03Column),String) + End If + End Get + Set + Me(Me.tableweather_supdo.t03Column) = value + End Set + End Property + + _ + Public Property t04() As String + Get + If Me.Ist04Null Then + Return "0" + Else + Return CType(Me(Me.tableweather_supdo.t04Column),String) + End If + End Get + Set + Me(Me.tableweather_supdo.t04Column) = value + End Set + End Property + + _ + Public Property t05() As String + Get + If Me.Ist05Null Then + Return "0" + Else + Return CType(Me(Me.tableweather_supdo.t05Column),String) + End If + End Get + Set + Me(Me.tableweather_supdo.t05Column) = value + End Set + End Property + + _ + Public Property t06() As String + Get + If Me.Ist06Null Then + Return "0" + Else + Return CType(Me(Me.tableweather_supdo.t06Column),String) + End If + End Get + Set + Me(Me.tableweather_supdo.t06Column) = value + End Set + End Property + + _ + Public Property t07() As String + Get + If Me.Ist07Null Then + Return "0" + Else + Return CType(Me(Me.tableweather_supdo.t07Column),String) + End If + End Get + Set + Me(Me.tableweather_supdo.t07Column) = value + End Set + End Property + + _ + Public Property t08() As String + Get + If Me.Ist08Null Then + Return "0" + Else + Return CType(Me(Me.tableweather_supdo.t08Column),String) + End If + End Get + Set + Me(Me.tableweather_supdo.t08Column) = value + End Set + End Property + + _ + Public Property t09() As String + Get + If Me.Ist09Null Then + Return "0" + Else + Return CType(Me(Me.tableweather_supdo.t09Column),String) + End If + End Get + Set + Me(Me.tableweather_supdo.t09Column) = value + End Set + End Property + + _ + Public Property t10() As String + Get + If Me.Ist10Null Then + Return "0" + Else + Return CType(Me(Me.tableweather_supdo.t10Column),String) + End If + End Get + Set + Me(Me.tableweather_supdo.t10Column) = value + End Set + End Property + + _ + Public Property t11() As String + Get + If Me.Ist11Null Then + Return "0" + Else + Return CType(Me(Me.tableweather_supdo.t11Column),String) + End If + End Get + Set + Me(Me.tableweather_supdo.t11Column) = value + End Set + End Property + + _ + Public Property t12() As String + Get + If Me.Ist12Null Then + Return "0" + Else + Return CType(Me(Me.tableweather_supdo.t12Column),String) + End If + End Get + Set + Me(Me.tableweather_supdo.t12Column) = value + End Set + End Property + + _ + Public Property t13() As String + Get + If Me.Ist13Null Then + Return "0" + Else + Return CType(Me(Me.tableweather_supdo.t13Column),String) + End If + End Get + Set + Me(Me.tableweather_supdo.t13Column) = value + End Set + End Property + + _ + Public Property t14() As String + Get + If Me.Ist14Null Then + Return "0" + Else + Return CType(Me(Me.tableweather_supdo.t14Column),String) + End If + End Get + Set + Me(Me.tableweather_supdo.t14Column) = value + End Set + End Property + + _ + Public Property t15() As String + Get + If Me.Ist15Null Then + Return "0" + Else + Return CType(Me(Me.tableweather_supdo.t15Column),String) + End If + End Get + Set + Me(Me.tableweather_supdo.t15Column) = value + End Set + End Property + + _ + Public Property t16() As String + Get + If Me.Ist16Null Then + Return "0" + Else + Return CType(Me(Me.tableweather_supdo.t16Column),String) + End If + End Get + Set + Me(Me.tableweather_supdo.t16Column) = value + End Set + End Property + + _ + Public Property t17() As String + Get + If Me.Ist17Null Then + Return "0" + Else + Return CType(Me(Me.tableweather_supdo.t17Column),String) + End If + End Get + Set + Me(Me.tableweather_supdo.t17Column) = value + End Set + End Property + + _ + Public Property t18() As String + Get + If Me.Ist18Null Then + Return "0" + Else + Return CType(Me(Me.tableweather_supdo.t18Column),String) + End If + End Get + Set + Me(Me.tableweather_supdo.t18Column) = value + End Set + End Property + + _ + Public Property t19() As String + Get + If Me.Ist19Null Then + Return "0" + Else + Return CType(Me(Me.tableweather_supdo.t19Column),String) + End If + End Get + Set + Me(Me.tableweather_supdo.t19Column) = value + End Set + End Property + + _ + Public Property t20() As String + Get + If Me.Ist20Null Then + Return "0" + Else + Return CType(Me(Me.tableweather_supdo.t20Column),String) + End If + End Get + Set + Me(Me.tableweather_supdo.t20Column) = value + End Set + End Property + + _ + Public Property t21() As String + Get + If Me.Ist21Null Then + Return "0" + Else + Return CType(Me(Me.tableweather_supdo.t21Column),String) + End If + End Get + Set + Me(Me.tableweather_supdo.t21Column) = value + End Set + End Property + + _ + Public Property t22() As String + Get + If Me.Ist22Null Then + Return "0" + Else + Return CType(Me(Me.tableweather_supdo.t22Column),String) + End If + End Get + Set + Me(Me.tableweather_supdo.t22Column) = value + End Set + End Property + + _ + Public Property t23() As String + Get + If Me.Ist23Null Then + Return "0" + Else + Return CType(Me(Me.tableweather_supdo.t23Column),String) + End If + End Get + Set + Me(Me.tableweather_supdo.t23Column) = value + End Set + End Property + + _ + Public Property t24() As String + Get + If Me.Ist24Null Then + Return "0" + Else + Return CType(Me(Me.tableweather_supdo.t24Column),String) + End If + End Get + Set + Me(Me.tableweather_supdo.t24Column) = value + End Set + End Property + + _ + Public Function Is설명Null() As Boolean + Return Me.IsNull(Me.tableweather_supdo.설명Column) + End Function + + _ + Public Sub Set설명Null() + Me(Me.tableweather_supdo.설명Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Ist01Null() As Boolean + Return Me.IsNull(Me.tableweather_supdo.t01Column) + End Function + + _ + Public Sub Sett01Null() + Me(Me.tableweather_supdo.t01Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Ist02Null() As Boolean + Return Me.IsNull(Me.tableweather_supdo.t02Column) + End Function + + _ + Public Sub Sett02Null() + Me(Me.tableweather_supdo.t02Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Ist03Null() As Boolean + Return Me.IsNull(Me.tableweather_supdo.t03Column) + End Function + + _ + Public Sub Sett03Null() + Me(Me.tableweather_supdo.t03Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Ist04Null() As Boolean + Return Me.IsNull(Me.tableweather_supdo.t04Column) + End Function + + _ + Public Sub Sett04Null() + Me(Me.tableweather_supdo.t04Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Ist05Null() As Boolean + Return Me.IsNull(Me.tableweather_supdo.t05Column) + End Function + + _ + Public Sub Sett05Null() + Me(Me.tableweather_supdo.t05Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Ist06Null() As Boolean + Return Me.IsNull(Me.tableweather_supdo.t06Column) + End Function + + _ + Public Sub Sett06Null() + Me(Me.tableweather_supdo.t06Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Ist07Null() As Boolean + Return Me.IsNull(Me.tableweather_supdo.t07Column) + End Function + + _ + Public Sub Sett07Null() + Me(Me.tableweather_supdo.t07Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Ist08Null() As Boolean + Return Me.IsNull(Me.tableweather_supdo.t08Column) + End Function + + _ + Public Sub Sett08Null() + Me(Me.tableweather_supdo.t08Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Ist09Null() As Boolean + Return Me.IsNull(Me.tableweather_supdo.t09Column) + End Function + + _ + Public Sub Sett09Null() + Me(Me.tableweather_supdo.t09Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Ist10Null() As Boolean + Return Me.IsNull(Me.tableweather_supdo.t10Column) + End Function + + _ + Public Sub Sett10Null() + Me(Me.tableweather_supdo.t10Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Ist11Null() As Boolean + Return Me.IsNull(Me.tableweather_supdo.t11Column) + End Function + + _ + Public Sub Sett11Null() + Me(Me.tableweather_supdo.t11Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Ist12Null() As Boolean + Return Me.IsNull(Me.tableweather_supdo.t12Column) + End Function + + _ + Public Sub Sett12Null() + Me(Me.tableweather_supdo.t12Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Ist13Null() As Boolean + Return Me.IsNull(Me.tableweather_supdo.t13Column) + End Function + + _ + Public Sub Sett13Null() + Me(Me.tableweather_supdo.t13Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Ist14Null() As Boolean + Return Me.IsNull(Me.tableweather_supdo.t14Column) + End Function + + _ + Public Sub Sett14Null() + Me(Me.tableweather_supdo.t14Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Ist15Null() As Boolean + Return Me.IsNull(Me.tableweather_supdo.t15Column) + End Function + + _ + Public Sub Sett15Null() + Me(Me.tableweather_supdo.t15Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Ist16Null() As Boolean + Return Me.IsNull(Me.tableweather_supdo.t16Column) + End Function + + _ + Public Sub Sett16Null() + Me(Me.tableweather_supdo.t16Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Ist17Null() As Boolean + Return Me.IsNull(Me.tableweather_supdo.t17Column) + End Function + + _ + Public Sub Sett17Null() + Me(Me.tableweather_supdo.t17Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Ist18Null() As Boolean + Return Me.IsNull(Me.tableweather_supdo.t18Column) + End Function + + _ + Public Sub Sett18Null() + Me(Me.tableweather_supdo.t18Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Ist19Null() As Boolean + Return Me.IsNull(Me.tableweather_supdo.t19Column) + End Function + + _ + Public Sub Sett19Null() + Me(Me.tableweather_supdo.t19Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Ist20Null() As Boolean + Return Me.IsNull(Me.tableweather_supdo.t20Column) + End Function + + _ + Public Sub Sett20Null() + Me(Me.tableweather_supdo.t20Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Ist21Null() As Boolean + Return Me.IsNull(Me.tableweather_supdo.t21Column) + End Function + + _ + Public Sub Sett21Null() + Me(Me.tableweather_supdo.t21Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Ist22Null() As Boolean + Return Me.IsNull(Me.tableweather_supdo.t22Column) + End Function + + _ + Public Sub Sett22Null() + Me(Me.tableweather_supdo.t22Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Ist23Null() As Boolean + Return Me.IsNull(Me.tableweather_supdo.t23Column) + End Function + + _ + Public Sub Sett23Null() + Me(Me.tableweather_supdo.t23Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Ist24Null() As Boolean + Return Me.IsNull(Me.tableweather_supdo.t24Column) + End Function + + _ + Public Sub Sett24Null() + Me(Me.tableweather_supdo.t24Column) = Global.System.Convert.DBNull + End Sub + End Class + + ''' + '''Represents strongly named DataRow class. + ''' + Partial Public Class tbl_profileRow + Inherits Global.System.Data.DataRow + + Private tabletbl_profile As tbl_profileDataTable + + _ + Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) + MyBase.New(rb) + Me.tabletbl_profile = CType(Me.Table,tbl_profileDataTable) + End Sub + + _ + Public Property code() As String + Get + Return CType(Me(Me.tabletbl_profile.codeColumn),String) + End Get + Set + Me(Me.tabletbl_profile.codeColumn) = value + End Set + End Property + + _ + Public Property 설명() As String + Get + Try + Return CType(Me(Me.tabletbl_profile.설명Column),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("'tbl_profile' 테이블의 '설명' 열의 값이 DBNull입니다.", e) + End Try + End Get + Set + Me(Me.tabletbl_profile.설명Column) = value + End Set + End Property + + _ + Public Property 일일급탕요구량() As String + Get + Try + Return CType(Me(Me.tabletbl_profile.일일급탕요구량Column),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("'tbl_profile' 테이블의 '일일급탕요구량' 열의 값이 DBNull입니다.", e) + End Try + End Get + Set + Me(Me.tabletbl_profile.일일급탕요구량Column) = value + End Set + End Property + + _ + Public Property 사용시작시간() As String + Get + Try + Return CType(Me(Me.tabletbl_profile.사용시작시간Column),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("'tbl_profile' 테이블의 '사용시작시간' 열의 값이 DBNull입니다.", e) + End Try + End Get + Set + Me(Me.tabletbl_profile.사용시작시간Column) = value + End Set + End Property + + _ + Public Property 사용종료시간() As String + Get + Try + Return CType(Me(Me.tabletbl_profile.사용종료시간Column),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("'tbl_profile' 테이블의 '사용종료시간' 열의 값이 DBNull입니다.", e) + End Try + End Get + Set + Me(Me.tabletbl_profile.사용종료시간Column) = value + End Set + End Property + + _ + Public Property 일일사용시간() As String + Get + Try + Return CType(Me(Me.tabletbl_profile.일일사용시간Column),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("'tbl_profile' 테이블의 '일일사용시간' 열의 값이 DBNull입니다.", e) + End Try + End Get + Set + Me(Me.tabletbl_profile.일일사용시간Column) = value + End Set + End Property + + _ + Public Property 운전시작시간() As String + Get + Try + Return CType(Me(Me.tabletbl_profile.운전시작시간Column),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("'tbl_profile' 테이블의 '운전시작시간' 열의 값이 DBNull입니다.", e) + End Try + End Get + Set + Me(Me.tabletbl_profile.운전시작시간Column) = value + End Set + End Property + + _ + Public Property 운전종료시간() As String + Get + Try + Return CType(Me(Me.tabletbl_profile.운전종료시간Column),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("'tbl_profile' 테이블의 '운전종료시간' 열의 값이 DBNull입니다.", e) + End Try + End Get + Set + Me(Me.tabletbl_profile.운전종료시간Column) = value + End Set + End Property + + _ + Public Property 운전시간난방() As String + Get + Try + Return CType(Me(Me.tabletbl_profile.운전시간난방Column),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("'tbl_profile' 테이블의 '운전시간난방' 열의 값이 DBNull입니다.", e) + End Try + End Get + Set + Me(Me.tabletbl_profile.운전시간난방Column) = value + End Set + End Property + + _ + Public Property 연간사용일수() As String + Get + Try + Return CType(Me(Me.tabletbl_profile.연간사용일수Column),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("'tbl_profile' 테이블의 '연간사용일수' 열의 값이 DBNull입니다.", e) + End Try + End Get + Set + Me(Me.tabletbl_profile.연간사용일수Column) = value + End Set + End Property + + _ + Public Property 연간사용시간주간() As String + Get + Try + Return CType(Me(Me.tabletbl_profile.연간사용시간주간Column),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("'tbl_profile' 테이블의 '연간사용시간주간' 열의 값이 DBNull입니다.", e) + End Try + End Get + Set + Me(Me.tabletbl_profile.연간사용시간주간Column) = value + End Set + End Property + + _ + Public Property 연간사용시간야간() As String + Get + Try + Return CType(Me(Me.tabletbl_profile.연간사용시간야간Column),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("'tbl_profile' 테이블의 '연간사용시간야간' 열의 값이 DBNull입니다.", e) + End Try + End Get + Set + Me(Me.tabletbl_profile.연간사용시간야간Column) = value + End Set + End Property + + _ + Public Property 일일운전시간() As String + Get + Try + Return CType(Me(Me.tabletbl_profile.일일운전시간Column),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("'tbl_profile' 테이블의 '일일운전시간' 열의 값이 DBNull입니다.", e) + End Try + End Get + Set + Me(Me.tabletbl_profile.일일운전시간Column) = value + End Set + End Property + + _ + Public Property 연간운전일수() As String + Get + Try + Return CType(Me(Me.tabletbl_profile.연간운전일수Column),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("'tbl_profile' 테이블의 '연간운전일수' 열의 값이 DBNull입니다.", e) + End Try + End Get + Set + Me(Me.tabletbl_profile.연간운전일수Column) = value + End Set + End Property + + _ + Public Property 요구조도() As String + Get + Try + Return CType(Me(Me.tabletbl_profile.요구조도Column),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("'tbl_profile' 테이블의 '요구조도' 열의 값이 DBNull입니다.", e) + End Try + End Get + Set + Me(Me.tabletbl_profile.요구조도Column) = value + End Set + End Property + + _ + Public Property 작업면높이() As String + Get + Try + Return CType(Me(Me.tabletbl_profile.작업면높이Column),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("'tbl_profile' 테이블의 '작업면높이' 열의 값이 DBNull입니다.", e) + End Try + End Get + Set + Me(Me.tabletbl_profile.작업면높이Column) = value + End Set + End Property + + _ + Public Property 감소계수() As String + Get + Try + Return CType(Me(Me.tabletbl_profile.감소계수Column),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("'tbl_profile' 테이블의 '감소계수' 열의 값이 DBNull입니다.", e) + End Try + End Get + Set + Me(Me.tabletbl_profile.감소계수Column) = value + End Set + End Property + + _ + Public Property 부재율() As String + Get + Try + Return CType(Me(Me.tabletbl_profile.부재율Column),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("'tbl_profile' 테이블의 '부재율' 열의 값이 DBNull입니다.", e) + End Try + End Get + Set + Me(Me.tabletbl_profile.부재율Column) = value + End Set + End Property + + _ + Public Property 실지수() As String + Get + Try + Return CType(Me(Me.tabletbl_profile.실지수Column),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("'tbl_profile' 테이블의 '실지수' 열의 값이 DBNull입니다.", e) + End Try + End Get + Set + Me(Me.tabletbl_profile.실지수Column) = value + End Set + End Property + + _ + Public Property 최소도입외기량() As String + Get + Try + Return CType(Me(Me.tabletbl_profile.최소도입외기량Column),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("'tbl_profile' 테이블의 '최소도입외기량' 열의 값이 DBNull입니다.", e) + End Try + End Get + Set + Me(Me.tabletbl_profile.최소도입외기량Column) = value + End Set + End Property + + _ + Public Property 축소운전시최소도입외기량() As String + Get + Try + Return CType(Me(Me.tabletbl_profile.축소운전시최소도입외기량Column),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("'tbl_profile' 테이블의 '축소운전시최소도입외기량' 열의 값이 DBNull입니다.", e) + End Try + End Get + Set + Me(Me.tabletbl_profile.축소운전시최소도입외기량Column) = value + End Set + End Property + + _ + Public Property 사람() As String + Get + Try + Return CType(Me(Me.tabletbl_profile.사람Column),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("'tbl_profile' 테이블의 '사람' 열의 값이 DBNull입니다.", e) + End Try + End Get + Set + Me(Me.tabletbl_profile.사람Column) = value + End Set + End Property + + _ + Public Property 작업보조기기() As String + Get + Try + Return CType(Me(Me.tabletbl_profile.작업보조기기Column),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("'tbl_profile' 테이블의 '작업보조기기' 열의 값이 DBNull입니다.", e) + End Try + End Get + Set + Me(Me.tabletbl_profile.작업보조기기Column) = value + End Set + End Property + + _ + Public Property 난방설정온도() As String + Get + Try + Return CType(Me(Me.tabletbl_profile.난방설정온도Column),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("'tbl_profile' 테이블의 '난방설정온도' 열의 값이 DBNull입니다.", e) + End Try + End Get + Set + Me(Me.tabletbl_profile.난방설정온도Column) = value + End Set + End Property + + _ + Public Property 냉방설정온도() As String + Get + Try + Return CType(Me(Me.tabletbl_profile.냉방설정온도Column),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("'tbl_profile' 테이블의 '냉방설정온도' 열의 값이 DBNull입니다.", e) + End Try + End Get + Set + Me(Me.tabletbl_profile.냉방설정온도Column) = value + End Set + End Property + + _ + Public Property 야간최저허용온도() As String + Get + Try + Return CType(Me(Me.tabletbl_profile.야간최저허용온도Column),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("'tbl_profile' 테이블의 '야간최저허용온도' 열의 값이 DBNull입니다.", e) + End Try + End Get + Set + Me(Me.tabletbl_profile.야간최저허용온도Column) = value + End Set + End Property + + _ + Public Property 주말최저허용온도() As String + Get + Try + Return CType(Me(Me.tabletbl_profile.주말최저허용온도Column),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("'tbl_profile' 테이블의 '주말최저허용온도' 열의 값이 DBNull입니다.", e) + End Try + End Get + Set + Me(Me.tabletbl_profile.주말최저허용온도Column) = value + End Set + End Property + + _ + Public Property 최소설정온도난방() As String + Get + Try + Return CType(Me(Me.tabletbl_profile.최소설정온도난방Column),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("'tbl_profile' 테이블의 '최소설정온도난방' 열의 값이 DBNull입니다.", e) + End Try + End Get + Set + Me(Me.tabletbl_profile.최소설정온도난방Column) = value + End Set + End Property + + _ + Public Property 최소설정온도냉방() As String + Get + Try + Return CType(Me(Me.tabletbl_profile.최소설정온도냉방Column),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("'tbl_profile' 테이블의 '최소설정온도냉방' 열의 값이 DBNull입니다.", e) + End Try + End Get + Set + Me(Me.tabletbl_profile.최소설정온도냉방Column) = value + End Set + End Property + + _ + Public Property 외기온도난방() As String + Get + Try + Return CType(Me(Me.tabletbl_profile.외기온도난방Column),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("'tbl_profile' 테이블의 '외기온도난방' 열의 값이 DBNull입니다.", e) + End Try + End Get + Set + Me(Me.tabletbl_profile.외기온도난방Column) = value + End Set + End Property + + _ + Public Property 외기온도냉방7월() As String + Get + Try + Return CType(Me(Me.tabletbl_profile.외기온도냉방7월Column),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("'tbl_profile' 테이블의 '외기온도냉방7월' 열의 값이 DBNull입니다.", e) + End Try + End Get + Set + Me(Me.tabletbl_profile.외기온도냉방7월Column) = value + End Set + End Property + + _ + Public Property 외기온도냉방9월() As String + Get + Try + Return CType(Me(Me.tabletbl_profile.외기온도냉방9월Column),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("'tbl_profile' 테이블의 '외기온도냉방9월' 열의 값이 DBNull입니다.", e) + End Try + End Get + Set + Me(Me.tabletbl_profile.외기온도냉방9월Column) = value + End Set + End Property + + _ + Public Property 차감계수() As String + Get + Try + Return CType(Me(Me.tabletbl_profile.차감계수Column),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("'tbl_profile' 테이블의 '차감계수' 열의 값이 DBNull입니다.", e) + End Try + End Get + Set + Me(Me.tabletbl_profile.차감계수Column) = value + End Set + End Property + + _ + Public Property 오염계수() As String + Get + Try + Return CType(Me(Me.tabletbl_profile.오염계수Column),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("'tbl_profile' 테이블의 '오염계수' 열의 값이 DBNull입니다.", e) + End Try + End Get + Set + Me(Me.tabletbl_profile.오염계수Column) = value + End Set + End Property + + _ + Public Property 부분운전계수() As String + Get + Try + Return CType(Me(Me.tabletbl_profile.부분운전계수Column),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("'tbl_profile' 테이블의 '부분운전계수' 열의 값이 DBNull입니다.", e) + End Try + End Get + Set + Me(Me.tabletbl_profile.부분운전계수Column) = value + End Set + End Property + + _ + Public Property day01() As String + Get + Try + Return CType(Me(Me.tabletbl_profile.day01Column),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("'tbl_profile' 테이블의 'day01' 열의 값이 DBNull입니다.", e) + End Try + End Get + Set + Me(Me.tabletbl_profile.day01Column) = value + End Set + End Property + + _ + Public Property day02() As String + Get + Try + Return CType(Me(Me.tabletbl_profile.day02Column),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("'tbl_profile' 테이블의 'day02' 열의 값이 DBNull입니다.", e) + End Try + End Get + Set + Me(Me.tabletbl_profile.day02Column) = value + End Set + End Property + + _ + Public Property day03() As String + Get + Try + Return CType(Me(Me.tabletbl_profile.day03Column),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("'tbl_profile' 테이블의 'day03' 열의 값이 DBNull입니다.", e) + End Try + End Get + Set + Me(Me.tabletbl_profile.day03Column) = value + End Set + End Property + + _ + Public Property day04() As String + Get + Try + Return CType(Me(Me.tabletbl_profile.day04Column),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("'tbl_profile' 테이블의 'day04' 열의 값이 DBNull입니다.", e) + End Try + End Get + Set + Me(Me.tabletbl_profile.day04Column) = value + End Set + End Property + + _ + Public Property day05() As String + Get + Try + Return CType(Me(Me.tabletbl_profile.day05Column),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("'tbl_profile' 테이블의 'day05' 열의 값이 DBNull입니다.", e) + End Try + End Get + Set + Me(Me.tabletbl_profile.day05Column) = value + End Set + End Property + + _ + Public Property day06() As String + Get + Try + Return CType(Me(Me.tabletbl_profile.day06Column),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("'tbl_profile' 테이블의 'day06' 열의 값이 DBNull입니다.", e) + End Try + End Get + Set + Me(Me.tabletbl_profile.day06Column) = value + End Set + End Property + + _ + Public Property day07() As String + Get + Try + Return CType(Me(Me.tabletbl_profile.day07Column),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("'tbl_profile' 테이블의 'day07' 열의 값이 DBNull입니다.", e) + End Try + End Get + Set + Me(Me.tabletbl_profile.day07Column) = value + End Set + End Property + + _ + Public Property day08() As String + Get + Try + Return CType(Me(Me.tabletbl_profile.day08Column),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("'tbl_profile' 테이블의 'day08' 열의 값이 DBNull입니다.", e) + End Try + End Get + Set + Me(Me.tabletbl_profile.day08Column) = value + End Set + End Property + + _ + Public Property day09() As String + Get + Try + Return CType(Me(Me.tabletbl_profile.day09Column),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("'tbl_profile' 테이블의 'day09' 열의 값이 DBNull입니다.", e) + End Try + End Get + Set + Me(Me.tabletbl_profile.day09Column) = value + End Set + End Property + + _ + Public Property day10() As String + Get + Try + Return CType(Me(Me.tabletbl_profile.day10Column),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("'tbl_profile' 테이블의 'day10' 열의 값이 DBNull입니다.", e) + End Try + End Get + Set + Me(Me.tabletbl_profile.day10Column) = value + End Set + End Property + + _ + Public Property day11() As String + Get + Try + Return CType(Me(Me.tabletbl_profile.day11Column),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("'tbl_profile' 테이블의 'day11' 열의 값이 DBNull입니다.", e) + End Try + End Get + Set + Me(Me.tabletbl_profile.day11Column) = value + End Set + End Property + + _ + Public Property day12() As String + Get + Try + Return CType(Me(Me.tabletbl_profile.day12Column),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("'tbl_profile' 테이블의 'day12' 열의 값이 DBNull입니다.", e) + End Try + End Get + Set + Me(Me.tabletbl_profile.day12Column) = value + End Set + End Property + + _ + Public Function Is설명Null() As Boolean + Return Me.IsNull(Me.tabletbl_profile.설명Column) + End Function + + _ + Public Sub Set설명Null() + Me(Me.tabletbl_profile.설명Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is일일급탕요구량Null() As Boolean + Return Me.IsNull(Me.tabletbl_profile.일일급탕요구량Column) + End Function + + _ + Public Sub Set일일급탕요구량Null() + Me(Me.tabletbl_profile.일일급탕요구량Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is사용시작시간Null() As Boolean + Return Me.IsNull(Me.tabletbl_profile.사용시작시간Column) + End Function + + _ + Public Sub Set사용시작시간Null() + Me(Me.tabletbl_profile.사용시작시간Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is사용종료시간Null() As Boolean + Return Me.IsNull(Me.tabletbl_profile.사용종료시간Column) + End Function + + _ + Public Sub Set사용종료시간Null() + Me(Me.tabletbl_profile.사용종료시간Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is일일사용시간Null() As Boolean + Return Me.IsNull(Me.tabletbl_profile.일일사용시간Column) + End Function + + _ + Public Sub Set일일사용시간Null() + Me(Me.tabletbl_profile.일일사용시간Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is운전시작시간Null() As Boolean + Return Me.IsNull(Me.tabletbl_profile.운전시작시간Column) + End Function + + _ + Public Sub Set운전시작시간Null() + Me(Me.tabletbl_profile.운전시작시간Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is운전종료시간Null() As Boolean + Return Me.IsNull(Me.tabletbl_profile.운전종료시간Column) + End Function + + _ + Public Sub Set운전종료시간Null() + Me(Me.tabletbl_profile.운전종료시간Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is운전시간난방Null() As Boolean + Return Me.IsNull(Me.tabletbl_profile.운전시간난방Column) + End Function + + _ + Public Sub Set운전시간난방Null() + Me(Me.tabletbl_profile.운전시간난방Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is연간사용일수Null() As Boolean + Return Me.IsNull(Me.tabletbl_profile.연간사용일수Column) + End Function + + _ + Public Sub Set연간사용일수Null() + Me(Me.tabletbl_profile.연간사용일수Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is연간사용시간주간Null() As Boolean + Return Me.IsNull(Me.tabletbl_profile.연간사용시간주간Column) + End Function + + _ + Public Sub Set연간사용시간주간Null() + Me(Me.tabletbl_profile.연간사용시간주간Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is연간사용시간야간Null() As Boolean + Return Me.IsNull(Me.tabletbl_profile.연간사용시간야간Column) + End Function + + _ + Public Sub Set연간사용시간야간Null() + Me(Me.tabletbl_profile.연간사용시간야간Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is일일운전시간Null() As Boolean + Return Me.IsNull(Me.tabletbl_profile.일일운전시간Column) + End Function + + _ + Public Sub Set일일운전시간Null() + Me(Me.tabletbl_profile.일일운전시간Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is연간운전일수Null() As Boolean + Return Me.IsNull(Me.tabletbl_profile.연간운전일수Column) + End Function + + _ + Public Sub Set연간운전일수Null() + Me(Me.tabletbl_profile.연간운전일수Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is요구조도Null() As Boolean + Return Me.IsNull(Me.tabletbl_profile.요구조도Column) + End Function + + _ + Public Sub Set요구조도Null() + Me(Me.tabletbl_profile.요구조도Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is작업면높이Null() As Boolean + Return Me.IsNull(Me.tabletbl_profile.작업면높이Column) + End Function + + _ + Public Sub Set작업면높이Null() + Me(Me.tabletbl_profile.작업면높이Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is감소계수Null() As Boolean + Return Me.IsNull(Me.tabletbl_profile.감소계수Column) + End Function + + _ + Public Sub Set감소계수Null() + Me(Me.tabletbl_profile.감소계수Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is부재율Null() As Boolean + Return Me.IsNull(Me.tabletbl_profile.부재율Column) + End Function + + _ + Public Sub Set부재율Null() + Me(Me.tabletbl_profile.부재율Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is실지수Null() As Boolean + Return Me.IsNull(Me.tabletbl_profile.실지수Column) + End Function + + _ + Public Sub Set실지수Null() + Me(Me.tabletbl_profile.실지수Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is최소도입외기량Null() As Boolean + Return Me.IsNull(Me.tabletbl_profile.최소도입외기량Column) + End Function + + _ + Public Sub Set최소도입외기량Null() + Me(Me.tabletbl_profile.최소도입외기량Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is축소운전시최소도입외기량Null() As Boolean + Return Me.IsNull(Me.tabletbl_profile.축소운전시최소도입외기량Column) + End Function + + _ + Public Sub Set축소운전시최소도입외기량Null() + Me(Me.tabletbl_profile.축소운전시최소도입외기량Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is사람Null() As Boolean + Return Me.IsNull(Me.tabletbl_profile.사람Column) + End Function + + _ + Public Sub Set사람Null() + Me(Me.tabletbl_profile.사람Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is작업보조기기Null() As Boolean + Return Me.IsNull(Me.tabletbl_profile.작업보조기기Column) + End Function + + _ + Public Sub Set작업보조기기Null() + Me(Me.tabletbl_profile.작업보조기기Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is난방설정온도Null() As Boolean + Return Me.IsNull(Me.tabletbl_profile.난방설정온도Column) + End Function + + _ + Public Sub Set난방설정온도Null() + Me(Me.tabletbl_profile.난방설정온도Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is냉방설정온도Null() As Boolean + Return Me.IsNull(Me.tabletbl_profile.냉방설정온도Column) + End Function + + _ + Public Sub Set냉방설정온도Null() + Me(Me.tabletbl_profile.냉방설정온도Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is야간최저허용온도Null() As Boolean + Return Me.IsNull(Me.tabletbl_profile.야간최저허용온도Column) + End Function + + _ + Public Sub Set야간최저허용온도Null() + Me(Me.tabletbl_profile.야간최저허용온도Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is주말최저허용온도Null() As Boolean + Return Me.IsNull(Me.tabletbl_profile.주말최저허용온도Column) + End Function + + _ + Public Sub Set주말최저허용온도Null() + Me(Me.tabletbl_profile.주말최저허용온도Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is최소설정온도난방Null() As Boolean + Return Me.IsNull(Me.tabletbl_profile.최소설정온도난방Column) + End Function + + _ + Public Sub Set최소설정온도난방Null() + Me(Me.tabletbl_profile.최소설정온도난방Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is최소설정온도냉방Null() As Boolean + Return Me.IsNull(Me.tabletbl_profile.최소설정온도냉방Column) + End Function + + _ + Public Sub Set최소설정온도냉방Null() + Me(Me.tabletbl_profile.최소설정온도냉방Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is외기온도난방Null() As Boolean + Return Me.IsNull(Me.tabletbl_profile.외기온도난방Column) + End Function + + _ + Public Sub Set외기온도난방Null() + Me(Me.tabletbl_profile.외기온도난방Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is외기온도냉방7월Null() As Boolean + Return Me.IsNull(Me.tabletbl_profile.외기온도냉방7월Column) + End Function + + _ + Public Sub Set외기온도냉방7월Null() + Me(Me.tabletbl_profile.외기온도냉방7월Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is외기온도냉방9월Null() As Boolean + Return Me.IsNull(Me.tabletbl_profile.외기온도냉방9월Column) + End Function + + _ + Public Sub Set외기온도냉방9월Null() + Me(Me.tabletbl_profile.외기온도냉방9월Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is차감계수Null() As Boolean + Return Me.IsNull(Me.tabletbl_profile.차감계수Column) + End Function + + _ + Public Sub Set차감계수Null() + Me(Me.tabletbl_profile.차감계수Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is오염계수Null() As Boolean + Return Me.IsNull(Me.tabletbl_profile.오염계수Column) + End Function + + _ + Public Sub Set오염계수Null() + Me(Me.tabletbl_profile.오염계수Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is부분운전계수Null() As Boolean + Return Me.IsNull(Me.tabletbl_profile.부분운전계수Column) + End Function + + _ + Public Sub Set부분운전계수Null() + Me(Me.tabletbl_profile.부분운전계수Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Isday01Null() As Boolean + Return Me.IsNull(Me.tabletbl_profile.day01Column) + End Function + + _ + Public Sub Setday01Null() + Me(Me.tabletbl_profile.day01Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Isday02Null() As Boolean + Return Me.IsNull(Me.tabletbl_profile.day02Column) + End Function + + _ + Public Sub Setday02Null() + Me(Me.tabletbl_profile.day02Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Isday03Null() As Boolean + Return Me.IsNull(Me.tabletbl_profile.day03Column) + End Function + + _ + Public Sub Setday03Null() + Me(Me.tabletbl_profile.day03Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Isday04Null() As Boolean + Return Me.IsNull(Me.tabletbl_profile.day04Column) + End Function + + _ + Public Sub Setday04Null() + Me(Me.tabletbl_profile.day04Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Isday05Null() As Boolean + Return Me.IsNull(Me.tabletbl_profile.day05Column) + End Function + + _ + Public Sub Setday05Null() + Me(Me.tabletbl_profile.day05Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Isday06Null() As Boolean + Return Me.IsNull(Me.tabletbl_profile.day06Column) + End Function + + _ + Public Sub Setday06Null() + Me(Me.tabletbl_profile.day06Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Isday07Null() As Boolean + Return Me.IsNull(Me.tabletbl_profile.day07Column) + End Function + + _ + Public Sub Setday07Null() + Me(Me.tabletbl_profile.day07Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Isday08Null() As Boolean + Return Me.IsNull(Me.tabletbl_profile.day08Column) + End Function + + _ + Public Sub Setday08Null() + Me(Me.tabletbl_profile.day08Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Isday09Null() As Boolean + Return Me.IsNull(Me.tabletbl_profile.day09Column) + End Function + + _ + Public Sub Setday09Null() + Me(Me.tabletbl_profile.day09Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Isday10Null() As Boolean + Return Me.IsNull(Me.tabletbl_profile.day10Column) + End Function + + _ + Public Sub Setday10Null() + Me(Me.tabletbl_profile.day10Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Isday11Null() As Boolean + Return Me.IsNull(Me.tabletbl_profile.day11Column) + End Function + + _ + Public Sub Setday11Null() + Me(Me.tabletbl_profile.day11Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Isday12Null() As Boolean + Return Me.IsNull(Me.tabletbl_profile.day12Column) + End Function + + _ + Public Sub Setday12Null() + Me(Me.tabletbl_profile.day12Column) = Global.System.Convert.DBNull + End Sub + End Class + + ''' + '''Represents strongly named DataRow class. + ''' + Partial Public Class tbl_commonRow + Inherits Global.System.Data.DataRow + + Private tabletbl_common As tbl_commonDataTable + + _ + Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) + MyBase.New(rb) + Me.tabletbl_common = CType(Me.Table,tbl_commonDataTable) + End Sub + + _ + Public Property gubun() As String + Get + Return CType(Me(Me.tabletbl_common.gubunColumn),String) + End Get + Set + Me(Me.tabletbl_common.gubunColumn) = value + End Set + End Property + + _ + Public Property code() As String + Get + Return CType(Me(Me.tabletbl_common.codeColumn),String) + End Get + Set + Me(Me.tabletbl_common.codeColumn) = value + End Set + End Property + + _ + Public Property name() As String + Get + If Me.IsnameNull Then + Return "" + Else + Return CType(Me(Me.tabletbl_common.nameColumn),String) + End If + End Get + Set + Me(Me.tabletbl_common.nameColumn) = value + End Set + End Property + + _ + Public Property valn1() As Double + Get + If Me.Isvaln1Null Then + Return 0R + Else + Return CType(Me(Me.tabletbl_common.valn1Column),Double) + End If + End Get + Set + Me(Me.tabletbl_common.valn1Column) = value + End Set + End Property + + _ + Public Property codename() As String + Get + If Me.IscodenameNull Then + Return "" + Else + Return CType(Me(Me.tabletbl_common.codenameColumn),String) + End If + End Get + Set + Me(Me.tabletbl_common.codenameColumn) = value + End Set + End Property + + _ + Public Function IsnameNull() As Boolean + Return Me.IsNull(Me.tabletbl_common.nameColumn) + End Function + + _ + Public Sub SetnameNull() + Me(Me.tabletbl_common.nameColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Isvaln1Null() As Boolean + Return Me.IsNull(Me.tabletbl_common.valn1Column) + End Function + + _ + Public Sub Setvaln1Null() + Me(Me.tabletbl_common.valn1Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IscodenameNull() As Boolean + Return Me.IsNull(Me.tabletbl_common.codenameColumn) + End Function + + _ + Public Sub SetcodenameNull() + Me(Me.tabletbl_common.codenameColumn) = Global.System.Convert.DBNull + End Sub + End Class + + ''' + '''Represents strongly named DataRow class. + ''' + Partial Public Class tbl_picRow + Inherits Global.System.Data.DataRow + + Private tabletbl_pic As tbl_picDataTable + + _ + Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) + MyBase.New(rb) + Me.tabletbl_pic = CType(Me.Table,tbl_picDataTable) + End Sub + + _ + Public Property code() As String + Get + Try + Return CType(Me(Me.tabletbl_pic.codeColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("'tbl_pic' 테이블의 'code' 열의 값이 DBNull입니다.", e) + End Try + End Get + Set + Me(Me.tabletbl_pic.codeColumn) = value + End Set + End Property + + _ + Public Property pic() As Byte() + Get + Try + Return CType(Me(Me.tabletbl_pic.picColumn),Byte()) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("'tbl_pic' 테이블의 'pic' 열의 값이 DBNull입니다.", e) + End Try + End Get + Set + Me(Me.tabletbl_pic.picColumn) = value + End Set + End Property + + _ + Public Function IscodeNull() As Boolean + Return Me.IsNull(Me.tabletbl_pic.codeColumn) + End Function + + _ + Public Sub SetcodeNull() + Me(Me.tabletbl_pic.codeColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IspicNull() As Boolean + Return Me.IsNull(Me.tabletbl_pic.picColumn) + End Function + + _ + Public Sub SetpicNull() + Me(Me.tabletbl_pic.picColumn) = Global.System.Convert.DBNull + End Sub + End Class + + ''' + '''Represents strongly named DataRow class. + ''' + Partial Public Class tbl_nanbangkikiRow + Inherits Global.System.Data.DataRow + + Private tabletbl_nanbangkiki As tbl_nanbangkikiDataTable + + _ + Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) + MyBase.New(rb) + Me.tabletbl_nanbangkiki = CType(Me.Table,tbl_nanbangkikiDataTable) + End Sub + + _ + Public Property code() As String + Get + Return CType(Me(Me.tabletbl_nanbangkiki.codeColumn),String) + End Get + Set + Me(Me.tabletbl_nanbangkiki.codeColumn) = value + End Set + End Property + + _ + Public Property 설명() As String + Get + If Me.Is설명Null Then + Return "" + Else + Return CType(Me(Me.tabletbl_nanbangkiki.설명Column),String) + End If + End Get + Set + Me(Me.tabletbl_nanbangkiki.설명Column) = value + End Set + End Property + + _ + Public Property 축열탱크방식() As String + Get + If Me.Is축열탱크방식Null Then + Return "0" + Else + Return CType(Me(Me.tabletbl_nanbangkiki.축열탱크방식Column),String) + End If + End Get + Set + Me(Me.tabletbl_nanbangkiki.축열탱크방식Column) = value + End Set + End Property + + _ + Public Property 축열제척() As String + Get + If Me.Is축열제척Null Then + Return "" + Else + Return CType(Me(Me.tabletbl_nanbangkiki.축열제척Column),String) + End If + End Get + Set + Me(Me.tabletbl_nanbangkiki.축열제척Column) = value + End Set + End Property + + _ + Public Property 펌프정격전력() As String + Get + If Me.Is펌프정격전력Null Then + Return "0" + Else + Return CType(Me(Me.tabletbl_nanbangkiki.펌프정격전력Column),String) + End If + End Get + Set + Me(Me.tabletbl_nanbangkiki.펌프정격전력Column) = value + End Set + End Property + + _ + Public Property 배관망유형() As String + Get + If Me.Is배관망유형Null Then + Return "0" + Else + Return CType(Me(Me.tabletbl_nanbangkiki.배관망유형Column),String) + End If + End Get + Set + Me(Me.tabletbl_nanbangkiki.배관망유형Column) = value + End Set + End Property + + _ + Public Property 펌프교정계수() As String + Get + If Me.Is펌프교정계수Null Then + Return "0" + Else + Return CType(Me(Me.tabletbl_nanbangkiki.펌프교정계수Column),String) + End If + End Get + Set + Me(Me.tabletbl_nanbangkiki.펌프교정계수Column) = value + End Set + End Property + + _ + Public Property 펌프제어유형() As String + Get + If Me.Is펌프제어유형Null Then + Return "0" + Else + Return CType(Me(Me.tabletbl_nanbangkiki.펌프제어유형Column),String) + End If + End Get + Set + Me(Me.tabletbl_nanbangkiki.펌프제어유형Column) = value + End Set + End Property + + _ + Public Property 펌프동력() As String + Get + If Me.Is펌프동력Null Then + Return "" + Else + Return CType(Me(Me.tabletbl_nanbangkiki.펌프동력Column),String) + End If + End Get + Set + Me(Me.tabletbl_nanbangkiki.펌프동력Column) = value + End Set + End Property + + _ + Public Property 분배시스템방식() As String + Get + If Me.Is분배시스템방식Null Then + Return "0" + Else + Return CType(Me(Me.tabletbl_nanbangkiki.분배시스템방식Column),String) + End If + End Get + Set + Me(Me.tabletbl_nanbangkiki.분배시스템방식Column) = value + End Set + End Property + + _ + Public Property 순환유무() As String + Get + If Me.Is순환유무Null Then + Return "0" + Else + Return CType(Me(Me.tabletbl_nanbangkiki.순환유무Column),String) + End If + End Get + Set + Me(Me.tabletbl_nanbangkiki.순환유무Column) = value + End Set + End Property + + _ + Public Property 펌프동력급탕() As String + Get + If Me.Is펌프동력급탕Null Then + Return "" + Else + Return CType(Me(Me.tabletbl_nanbangkiki.펌프동력급탕Column),String) + End If + End Get + Set + Me(Me.tabletbl_nanbangkiki.펌프동력급탕Column) = value + End Set + End Property + + _ + Public Property 건물길이() As String + Get + If Me.Is건물길이Null Then + Return "0" + Else + Return CType(Me(Me.tabletbl_nanbangkiki.건물길이Column),String) + End If + End Get + Set + Me(Me.tabletbl_nanbangkiki.건물길이Column) = value + End Set + End Property + + _ + Public Property 건물넓이() As String + Get + If Me.Is건물넓이Null Then + Return "0" + Else + Return CType(Me(Me.tabletbl_nanbangkiki.건물넓이Column),String) + End If + End Get + Set + Me(Me.tabletbl_nanbangkiki.건물넓이Column) = value + End Set + End Property + + _ + Public Property 열공급층수() As String + Get + If Me.Is열공급층수Null Then + Return "0" + Else + Return CType(Me(Me.tabletbl_nanbangkiki.열공급층수Column),String) + End If + End Get + Set + Me(Me.tabletbl_nanbangkiki.열공급층수Column) = value + End Set + End Property + + _ + Public Property 층고() As String + Get + If Me.Is층고Null Then + Return "" + Else + Return CType(Me(Me.tabletbl_nanbangkiki.층고Column),String) + End If + End Get + Set + Me(Me.tabletbl_nanbangkiki.층고Column) = value + End Set + End Property + + _ + Public Property 배관길이() As String + Get + If Me.Is배관길이Null Then + Return "" + Else + Return CType(Me(Me.tabletbl_nanbangkiki.배관길이Column),String) + End If + End Get + Set + Me(Me.tabletbl_nanbangkiki.배관길이Column) = value + End Set + End Property + + _ + Public Property 신재생연결여부() As String + Get + If Me.Is신재생연결여부Null Then + Return "0" + Else + Return CType(Me(Me.tabletbl_nanbangkiki.신재생연결여부Column),String) + End If + End Get + Set + Me(Me.tabletbl_nanbangkiki.신재생연결여부Column) = value + End Set + End Property + + _ + Public Property 연결된시스템() As String + Get + If Me.Is연결된시스템Null Then + Return "0" + Else + Return CType(Me(Me.tabletbl_nanbangkiki.연결된시스템Column),String) + End If + End Get + Set + Me(Me.tabletbl_nanbangkiki.연결된시스템Column) = value + End Set + End Property + + _ + Public Property 펌프제어() As String + Get + If Me.Is펌프제어Null Then + Return "0" + Else + Return CType(Me(Me.tabletbl_nanbangkiki.펌프제어Column),String) + End If + End Get + Set + Me(Me.tabletbl_nanbangkiki.펌프제어Column) = value + End Set + End Property + + _ + Public Property 열생산기기방식() As String + Get + If Me.Is열생산기기방식Null Then + Return "0" + Else + Return CType(Me(Me.tabletbl_nanbangkiki.열생산기기방식Column),String) + End If + End Get + Set + Me(Me.tabletbl_nanbangkiki.열생산기기방식Column) = value + End Set + End Property + + _ + Public Property 사용연료() As String + Get + If Me.Is사용연료Null Then + Return "0" + Else + Return CType(Me(Me.tabletbl_nanbangkiki.사용연료Column),String) + End If + End Get + Set + Me(Me.tabletbl_nanbangkiki.사용연료Column) = value + End Set + End Property + + _ + Public Property 급수온도() As String + Get + If Me.Is급수온도Null Then + Return "0" + Else + Return CType(Me(Me.tabletbl_nanbangkiki.급수온도Column),String) + End If + End Get + Set + Me(Me.tabletbl_nanbangkiki.급수온도Column) = value + End Set + End Property + + _ + Public Property 환수온도() As String + Get + If Me.Is환수온도Null Then + Return "0" + Else + Return CType(Me(Me.tabletbl_nanbangkiki.환수온도Column),String) + End If + End Get + Set + Me(Me.tabletbl_nanbangkiki.환수온도Column) = value + End Set + End Property + + _ + Public Property 보일러정격출력() As String + Get + If Me.Is보일러정격출력Null Then + Return "0" + Else + Return CType(Me(Me.tabletbl_nanbangkiki.보일러정격출력Column),String) + End If + End Get + Set + Me(Me.tabletbl_nanbangkiki.보일러정격출력Column) = value + End Set + End Property + + _ + Public Property 열교환기정격출력() As String + Get + If Me.Is열교환기정격출력Null Then + Return "0" + Else + Return CType(Me(Me.tabletbl_nanbangkiki.열교환기정격출력Column),String) + End If + End Get + Set + Me(Me.tabletbl_nanbangkiki.열교환기정격출력Column) = value + End Set + End Property + + _ + Public Property 운전방식() As String + Get + If Me.Is운전방식Null Then + Return "0" + Else + Return CType(Me(Me.tabletbl_nanbangkiki.운전방식Column),String) + End If + End Get + Set + Me(Me.tabletbl_nanbangkiki.운전방식Column) = value + End Set + End Property + + _ + Public Property 보일러대수() As String + Get + If Me.Is보일러대수Null Then + Return "0" + Else + Return CType(Me(Me.tabletbl_nanbangkiki.보일러대수Column),String) + End If + End Get + Set + Me(Me.tabletbl_nanbangkiki.보일러대수Column) = value + End Set + End Property + + _ + Public Property 정격보일러효율() As String + Get + If Me.Is정격보일러효율Null Then + Return "0" + Else + Return CType(Me(Me.tabletbl_nanbangkiki.정격보일러효율Column),String) + End If + End Get + Set + Me(Me.tabletbl_nanbangkiki.정격보일러효율Column) = value + End Set + End Property + + _ + Public Property 보일러방식() As String + Get + If Me.Is보일러방식Null Then + Return "0" + Else + Return CType(Me(Me.tabletbl_nanbangkiki.보일러방식Column),String) + End If + End Get + Set + Me(Me.tabletbl_nanbangkiki.보일러방식Column) = value + End Set + End Property + + _ + Public Property 지역난방방식() As String + Get + If Me.Is지역난방방식Null Then + Return "0" + Else + Return CType(Me(Me.tabletbl_nanbangkiki.지역난방방식Column),String) + End If + End Get + Set + Me(Me.tabletbl_nanbangkiki.지역난방방식Column) = value + End Set + End Property + + _ + Public Property 히트연료() As String + Get + If Me.Is히트연료Null Then + Return "" + Else + Return CType(Me(Me.tabletbl_nanbangkiki.히트연료Column),String) + End If + End Get + Set + Me(Me.tabletbl_nanbangkiki.히트연료Column) = value + End Set + End Property + + _ + Public Property 히트난방용량() As String + Get + If Me.Is히트난방용량Null Then + Return "" + Else + Return CType(Me(Me.tabletbl_nanbangkiki.히트난방용량Column),String) + End If + End Get + Set + Me(Me.tabletbl_nanbangkiki.히트난방용량Column) = value + End Set + End Property + + _ + Public Property 히트난방정격7() As String + Get + If Me.Is히트난방정격7Null Then + Return "0" + Else + Return CType(Me(Me.tabletbl_nanbangkiki.히트난방정격7Column),String) + End If + End Get + Set + Me(Me.tabletbl_nanbangkiki.히트난방정격7Column) = value + End Set + End Property + + _ + Public Property 히트난방정격10() As String + Get + If Me.Is히트난방정격10Null Then + Return "" + Else + Return CType(Me(Me.tabletbl_nanbangkiki.히트난방정격10Column),String) + End If + End Get + Set + Me(Me.tabletbl_nanbangkiki.히트난방정격10Column) = value + End Set + End Property + + _ + Public Property 히트배관길이() As String + Get + If Me.Is히트배관길이Null Then + Return "" + Else + Return CType(Me(Me.tabletbl_nanbangkiki.히트배관길이Column),String) + End If + End Get + Set + Me(Me.tabletbl_nanbangkiki.히트배관길이Column) = value + End Set + End Property + + _ + Public Property 단열등급() As String + Get + If Me.Is단열등급Null Then + Return "0" + Else + Return CType(Me(Me.tabletbl_nanbangkiki.단열등급Column),String) + End If + End Get + Set + Me(Me.tabletbl_nanbangkiki.단열등급Column) = value + End Set + End Property + + _ + Public Property 히트펌프시스템종류() As String + Get + If Me.Is히트펌프시스템종류Null Then + Return "" + Else + Return CType(Me(Me.tabletbl_nanbangkiki.히트펌프시스템종류Column),String) + End If + End Get + Set + Me(Me.tabletbl_nanbangkiki.히트펌프시스템종류Column) = value + End Set + End Property + + _ + Public Property 개별기기적용() As Boolean + Get + If Me.Is개별기기적용Null Then + Return false + Else + Return CType(Me(Me.tabletbl_nanbangkiki.개별기기적용Column),Boolean) + End If + End Get + Set + Me(Me.tabletbl_nanbangkiki.개별기기적용Column) = value + End Set + End Property + + _ + Public Property 헤더적용() As Boolean + Get + If Me.Is헤더적용Null Then + Return false + Else + Return CType(Me(Me.tabletbl_nanbangkiki.헤더적용Column),Boolean) + End If + End Get + Set + Me(Me.tabletbl_nanbangkiki.헤더적용Column) = value + End Set + End Property + + _ + Public Function Is설명Null() As Boolean + Return Me.IsNull(Me.tabletbl_nanbangkiki.설명Column) + End Function + + _ + Public Sub Set설명Null() + Me(Me.tabletbl_nanbangkiki.설명Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is축열탱크방식Null() As Boolean + Return Me.IsNull(Me.tabletbl_nanbangkiki.축열탱크방식Column) + End Function + + _ + Public Sub Set축열탱크방식Null() + Me(Me.tabletbl_nanbangkiki.축열탱크방식Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is축열제척Null() As Boolean + Return Me.IsNull(Me.tabletbl_nanbangkiki.축열제척Column) + End Function + + _ + Public Sub Set축열제척Null() + Me(Me.tabletbl_nanbangkiki.축열제척Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is펌프정격전력Null() As Boolean + Return Me.IsNull(Me.tabletbl_nanbangkiki.펌프정격전력Column) + End Function + + _ + Public Sub Set펌프정격전력Null() + Me(Me.tabletbl_nanbangkiki.펌프정격전력Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is배관망유형Null() As Boolean + Return Me.IsNull(Me.tabletbl_nanbangkiki.배관망유형Column) + End Function + + _ + Public Sub Set배관망유형Null() + Me(Me.tabletbl_nanbangkiki.배관망유형Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is펌프교정계수Null() As Boolean + Return Me.IsNull(Me.tabletbl_nanbangkiki.펌프교정계수Column) + End Function + + _ + Public Sub Set펌프교정계수Null() + Me(Me.tabletbl_nanbangkiki.펌프교정계수Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is펌프제어유형Null() As Boolean + Return Me.IsNull(Me.tabletbl_nanbangkiki.펌프제어유형Column) + End Function + + _ + Public Sub Set펌프제어유형Null() + Me(Me.tabletbl_nanbangkiki.펌프제어유형Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is펌프동력Null() As Boolean + Return Me.IsNull(Me.tabletbl_nanbangkiki.펌프동력Column) + End Function + + _ + Public Sub Set펌프동력Null() + Me(Me.tabletbl_nanbangkiki.펌프동력Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is분배시스템방식Null() As Boolean + Return Me.IsNull(Me.tabletbl_nanbangkiki.분배시스템방식Column) + End Function + + _ + Public Sub Set분배시스템방식Null() + Me(Me.tabletbl_nanbangkiki.분배시스템방식Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is순환유무Null() As Boolean + Return Me.IsNull(Me.tabletbl_nanbangkiki.순환유무Column) + End Function + + _ + Public Sub Set순환유무Null() + Me(Me.tabletbl_nanbangkiki.순환유무Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is펌프동력급탕Null() As Boolean + Return Me.IsNull(Me.tabletbl_nanbangkiki.펌프동력급탕Column) + End Function + + _ + Public Sub Set펌프동력급탕Null() + Me(Me.tabletbl_nanbangkiki.펌프동력급탕Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is건물길이Null() As Boolean + Return Me.IsNull(Me.tabletbl_nanbangkiki.건물길이Column) + End Function + + _ + Public Sub Set건물길이Null() + Me(Me.tabletbl_nanbangkiki.건물길이Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is건물넓이Null() As Boolean + Return Me.IsNull(Me.tabletbl_nanbangkiki.건물넓이Column) + End Function + + _ + Public Sub Set건물넓이Null() + Me(Me.tabletbl_nanbangkiki.건물넓이Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is열공급층수Null() As Boolean + Return Me.IsNull(Me.tabletbl_nanbangkiki.열공급층수Column) + End Function + + _ + Public Sub Set열공급층수Null() + Me(Me.tabletbl_nanbangkiki.열공급층수Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is층고Null() As Boolean + Return Me.IsNull(Me.tabletbl_nanbangkiki.층고Column) + End Function + + _ + Public Sub Set층고Null() + Me(Me.tabletbl_nanbangkiki.층고Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is배관길이Null() As Boolean + Return Me.IsNull(Me.tabletbl_nanbangkiki.배관길이Column) + End Function + + _ + Public Sub Set배관길이Null() + Me(Me.tabletbl_nanbangkiki.배관길이Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is신재생연결여부Null() As Boolean + Return Me.IsNull(Me.tabletbl_nanbangkiki.신재생연결여부Column) + End Function + + _ + Public Sub Set신재생연결여부Null() + Me(Me.tabletbl_nanbangkiki.신재생연결여부Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is연결된시스템Null() As Boolean + Return Me.IsNull(Me.tabletbl_nanbangkiki.연결된시스템Column) + End Function + + _ + Public Sub Set연결된시스템Null() + Me(Me.tabletbl_nanbangkiki.연결된시스템Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is펌프제어Null() As Boolean + Return Me.IsNull(Me.tabletbl_nanbangkiki.펌프제어Column) + End Function + + _ + Public Sub Set펌프제어Null() + Me(Me.tabletbl_nanbangkiki.펌프제어Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is열생산기기방식Null() As Boolean + Return Me.IsNull(Me.tabletbl_nanbangkiki.열생산기기방식Column) + End Function + + _ + Public Sub Set열생산기기방식Null() + Me(Me.tabletbl_nanbangkiki.열생산기기방식Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is사용연료Null() As Boolean + Return Me.IsNull(Me.tabletbl_nanbangkiki.사용연료Column) + End Function + + _ + Public Sub Set사용연료Null() + Me(Me.tabletbl_nanbangkiki.사용연료Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is급수온도Null() As Boolean + Return Me.IsNull(Me.tabletbl_nanbangkiki.급수온도Column) + End Function + + _ + Public Sub Set급수온도Null() + Me(Me.tabletbl_nanbangkiki.급수온도Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is환수온도Null() As Boolean + Return Me.IsNull(Me.tabletbl_nanbangkiki.환수온도Column) + End Function + + _ + Public Sub Set환수온도Null() + Me(Me.tabletbl_nanbangkiki.환수온도Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is보일러정격출력Null() As Boolean + Return Me.IsNull(Me.tabletbl_nanbangkiki.보일러정격출력Column) + End Function + + _ + Public Sub Set보일러정격출력Null() + Me(Me.tabletbl_nanbangkiki.보일러정격출력Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is열교환기정격출력Null() As Boolean + Return Me.IsNull(Me.tabletbl_nanbangkiki.열교환기정격출력Column) + End Function + + _ + Public Sub Set열교환기정격출력Null() + Me(Me.tabletbl_nanbangkiki.열교환기정격출력Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is운전방식Null() As Boolean + Return Me.IsNull(Me.tabletbl_nanbangkiki.운전방식Column) + End Function + + _ + Public Sub Set운전방식Null() + Me(Me.tabletbl_nanbangkiki.운전방식Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is보일러대수Null() As Boolean + Return Me.IsNull(Me.tabletbl_nanbangkiki.보일러대수Column) + End Function + + _ + Public Sub Set보일러대수Null() + Me(Me.tabletbl_nanbangkiki.보일러대수Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is정격보일러효율Null() As Boolean + Return Me.IsNull(Me.tabletbl_nanbangkiki.정격보일러효율Column) + End Function + + _ + Public Sub Set정격보일러효율Null() + Me(Me.tabletbl_nanbangkiki.정격보일러효율Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is보일러방식Null() As Boolean + Return Me.IsNull(Me.tabletbl_nanbangkiki.보일러방식Column) + End Function + + _ + Public Sub Set보일러방식Null() + Me(Me.tabletbl_nanbangkiki.보일러방식Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is지역난방방식Null() As Boolean + Return Me.IsNull(Me.tabletbl_nanbangkiki.지역난방방식Column) + End Function + + _ + Public Sub Set지역난방방식Null() + Me(Me.tabletbl_nanbangkiki.지역난방방식Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is히트연료Null() As Boolean + Return Me.IsNull(Me.tabletbl_nanbangkiki.히트연료Column) + End Function + + _ + Public Sub Set히트연료Null() + Me(Me.tabletbl_nanbangkiki.히트연료Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is히트난방용량Null() As Boolean + Return Me.IsNull(Me.tabletbl_nanbangkiki.히트난방용량Column) + End Function + + _ + Public Sub Set히트난방용량Null() + Me(Me.tabletbl_nanbangkiki.히트난방용량Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is히트난방정격7Null() As Boolean + Return Me.IsNull(Me.tabletbl_nanbangkiki.히트난방정격7Column) + End Function + + _ + Public Sub Set히트난방정격7Null() + Me(Me.tabletbl_nanbangkiki.히트난방정격7Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is히트난방정격10Null() As Boolean + Return Me.IsNull(Me.tabletbl_nanbangkiki.히트난방정격10Column) + End Function + + _ + Public Sub Set히트난방정격10Null() + Me(Me.tabletbl_nanbangkiki.히트난방정격10Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is히트배관길이Null() As Boolean + Return Me.IsNull(Me.tabletbl_nanbangkiki.히트배관길이Column) + End Function + + _ + Public Sub Set히트배관길이Null() + Me(Me.tabletbl_nanbangkiki.히트배관길이Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is단열등급Null() As Boolean + Return Me.IsNull(Me.tabletbl_nanbangkiki.단열등급Column) + End Function + + _ + Public Sub Set단열등급Null() + Me(Me.tabletbl_nanbangkiki.단열등급Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is히트펌프시스템종류Null() As Boolean + Return Me.IsNull(Me.tabletbl_nanbangkiki.히트펌프시스템종류Column) + End Function + + _ + Public Sub Set히트펌프시스템종류Null() + Me(Me.tabletbl_nanbangkiki.히트펌프시스템종류Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is개별기기적용Null() As Boolean + Return Me.IsNull(Me.tabletbl_nanbangkiki.개별기기적용Column) + End Function + + _ + Public Sub Set개별기기적용Null() + Me(Me.tabletbl_nanbangkiki.개별기기적용Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is헤더적용Null() As Boolean + Return Me.IsNull(Me.tabletbl_nanbangkiki.헤더적용Column) + End Function + + _ + Public Sub Set헤더적용Null() + Me(Me.tabletbl_nanbangkiki.헤더적용Column) = Global.System.Convert.DBNull + End Sub + End Class + + ''' + '''Represents strongly named DataRow class. + ''' + Partial Public Class tbl_nangbangkikiRow + Inherits Global.System.Data.DataRow + + Private tabletbl_nangbangkiki As tbl_nangbangkikiDataTable + + _ + Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) + MyBase.New(rb) + Me.tabletbl_nangbangkiki = CType(Me.Table,tbl_nangbangkikiDataTable) + End Sub + + _ + Public Property code() As String + Get + Return CType(Me(Me.tabletbl_nangbangkiki.codeColumn),String) + End Get + Set + Me(Me.tabletbl_nangbangkiki.codeColumn) = value + End Set + End Property + + _ + Public Property 설명() As String + Get + If Me.Is설명Null Then + Return "" + Else + Return CType(Me(Me.tabletbl_nangbangkiki.설명Column),String) + End If + End Get + Set + Me(Me.tabletbl_nangbangkiki.설명Column) = value + End Set + End Property + + _ + Public Property 냉동기방식() As String + Get + If Me.Is냉동기방식Null Then + Return "0" + Else + Return CType(Me(Me.tabletbl_nangbangkiki.냉동기방식Column),String) + End If + End Get + Set + Me(Me.tabletbl_nangbangkiki.냉동기방식Column) = value + End Set + End Property + + _ + Public Property 냉동기용량() As String + Get + If Me.Is냉동기용량Null Then + Return "" + Else + Return CType(Me(Me.tabletbl_nangbangkiki.냉동기용량Column),String) + End If + End Get + Set + Me(Me.tabletbl_nangbangkiki.냉동기용량Column) = value + End Set + End Property + + _ + Public Property 열성능비() As String + Get + If Me.Is열성능비Null Then + Return "0" + Else + Return CType(Me(Me.tabletbl_nangbangkiki.열성능비Column),String) + End If + End Get + Set + Me(Me.tabletbl_nangbangkiki.열성능비Column) = value + End Set + End Property + + _ + Public Property 냉동기종류() As String + Get + If Me.Is냉동기종류Null Then + Return "0" + Else + Return CType(Me(Me.tabletbl_nangbangkiki.냉동기종류Column),String) + End If + End Get + Set + Me(Me.tabletbl_nangbangkiki.냉동기종류Column) = value + End Set + End Property + + _ + Public Property 냉동기압축방식() As String + Get + If Me.Is냉동기압축방식Null Then + Return "0" + Else + Return CType(Me(Me.tabletbl_nangbangkiki.냉동기압축방식Column),String) + End If + End Get + Set + Me(Me.tabletbl_nangbangkiki.냉동기압축방식Column) = value + End Set + End Property + + _ + Public Property 압축기제어방식() As String + Get + If Me.Is압축기제어방식Null Then + Return "0" + Else + Return CType(Me(Me.tabletbl_nangbangkiki.압축기제어방식Column),String) + End If + End Get + Set + Me(Me.tabletbl_nangbangkiki.압축기제어방식Column) = value + End Set + End Property + + _ + Public Property 냉동기설비시스템() As String + Get + If Me.Is냉동기설비시스템Null Then + Return "0" + Else + Return CType(Me(Me.tabletbl_nangbangkiki.냉동기설비시스템Column),String) + End If + End Get + Set + Me(Me.tabletbl_nangbangkiki.냉동기설비시스템Column) = value + End Set + End Property + + _ + Public Property 제어방식() As String + Get + If Me.Is제어방식Null Then + Return "0" + Else + Return CType(Me(Me.tabletbl_nangbangkiki.제어방식Column),String) + End If + End Get + Set + Me(Me.tabletbl_nangbangkiki.제어방식Column) = value + End Set + End Property + + _ + Public Property 온수열생산기기() As String + Get + If Me.Is온수열생산기기Null Then + Return "0" + Else + Return CType(Me(Me.tabletbl_nangbangkiki.온수열생산기기Column),String) + End If + End Get + Set + Me(Me.tabletbl_nangbangkiki.온수열생산기기Column) = value + End Set + End Property + + _ + Public Property 증발식건식냉각기() As String + Get + If Me.Is증발식건식냉각기Null Then + Return "0" + Else + Return CType(Me(Me.tabletbl_nangbangkiki.증발식건식냉각기Column),String) + End If + End Get + Set + Me(Me.tabletbl_nangbangkiki.증발식건식냉각기Column) = value + End Set + End Property + + _ + Public Property 증발식냉각기() As String + Get + If Me.Is증발식냉각기Null Then + Return "0" + Else + Return CType(Me(Me.tabletbl_nangbangkiki.증발식냉각기Column),String) + End If + End Get + Set + Me(Me.tabletbl_nangbangkiki.증발식냉각기Column) = value + End Set + End Property + + _ + Public Property 보조방음기유무() As String + Get + If Me.Is보조방음기유무Null Then + Return "0" + Else + Return CType(Me(Me.tabletbl_nangbangkiki.보조방음기유무Column),String) + End If + End Get + Set + Me(Me.tabletbl_nangbangkiki.보조방음기유무Column) = value + End Set + End Property + + _ + Public Property 냉각탑입구온도() As String + Get + If Me.Is냉각탑입구온도Null Then + Return "0" + Else + Return CType(Me(Me.tabletbl_nangbangkiki.냉각탑입구온도Column),String) + End If + End Get + Set + Me(Me.tabletbl_nangbangkiki.냉각탑입구온도Column) = value + End Set + End Property + + _ + Public Property 신재생연결여부() As String + Get + If Me.Is신재생연결여부Null Then + Return "0" + Else + Return CType(Me(Me.tabletbl_nangbangkiki.신재생연결여부Column),String) + End If + End Get + Set + Me(Me.tabletbl_nangbangkiki.신재생연결여부Column) = value + End Set + End Property + + _ + Public Property 연결된시스템() As String + Get + If Me.Is연결된시스템Null Then + Return "0" + Else + Return CType(Me(Me.tabletbl_nangbangkiki.연결된시스템Column),String) + End If + End Get + Set + Me(Me.tabletbl_nangbangkiki.연결된시스템Column) = value + End Set + End Property + + _ + Public Property 열생산연결방식() As String + Get + If Me.Is열생산연결방식Null Then + Return Nothing + Else + Return CType(Me(Me.tabletbl_nangbangkiki.열생산연결방식Column),String) + End If + End Get + Set + Me(Me.tabletbl_nangbangkiki.열생산연결방식Column) = value + End Set + End Property + + _ + Public Property 개별기기적용() As Boolean + Get + If Me.Is개별기기적용Null Then + Return false + Else + Return CType(Me(Me.tabletbl_nangbangkiki.개별기기적용Column),Boolean) + End If + End Get + Set + Me(Me.tabletbl_nangbangkiki.개별기기적용Column) = value + End Set + End Property + + _ + Public Property 헤더적용() As Boolean + Get + If Me.Is헤더적용Null Then + Return false + Else + Return CType(Me(Me.tabletbl_nangbangkiki.헤더적용Column),Boolean) + End If + End Get + Set + Me(Me.tabletbl_nangbangkiki.헤더적용Column) = value + End Set + End Property + + _ + Public Property 사용연료() As String + Get + If Me.Is사용연료Null Then + Return Nothing + Else + Return CType(Me(Me.tabletbl_nangbangkiki.사용연료Column),String) + End If + End Get + Set + Me(Me.tabletbl_nangbangkiki.사용연료Column) = value + End Set + End Property + + _ + Public Function Is설명Null() As Boolean + Return Me.IsNull(Me.tabletbl_nangbangkiki.설명Column) + End Function + + _ + Public Sub Set설명Null() + Me(Me.tabletbl_nangbangkiki.설명Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is냉동기방식Null() As Boolean + Return Me.IsNull(Me.tabletbl_nangbangkiki.냉동기방식Column) + End Function + + _ + Public Sub Set냉동기방식Null() + Me(Me.tabletbl_nangbangkiki.냉동기방식Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is냉동기용량Null() As Boolean + Return Me.IsNull(Me.tabletbl_nangbangkiki.냉동기용량Column) + End Function + + _ + Public Sub Set냉동기용량Null() + Me(Me.tabletbl_nangbangkiki.냉동기용량Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is열성능비Null() As Boolean + Return Me.IsNull(Me.tabletbl_nangbangkiki.열성능비Column) + End Function + + _ + Public Sub Set열성능비Null() + Me(Me.tabletbl_nangbangkiki.열성능비Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is냉동기종류Null() As Boolean + Return Me.IsNull(Me.tabletbl_nangbangkiki.냉동기종류Column) + End Function + + _ + Public Sub Set냉동기종류Null() + Me(Me.tabletbl_nangbangkiki.냉동기종류Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is냉동기압축방식Null() As Boolean + Return Me.IsNull(Me.tabletbl_nangbangkiki.냉동기압축방식Column) + End Function + + _ + Public Sub Set냉동기압축방식Null() + Me(Me.tabletbl_nangbangkiki.냉동기압축방식Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is압축기제어방식Null() As Boolean + Return Me.IsNull(Me.tabletbl_nangbangkiki.압축기제어방식Column) + End Function + + _ + Public Sub Set압축기제어방식Null() + Me(Me.tabletbl_nangbangkiki.압축기제어방식Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is냉동기설비시스템Null() As Boolean + Return Me.IsNull(Me.tabletbl_nangbangkiki.냉동기설비시스템Column) + End Function + + _ + Public Sub Set냉동기설비시스템Null() + Me(Me.tabletbl_nangbangkiki.냉동기설비시스템Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is제어방식Null() As Boolean + Return Me.IsNull(Me.tabletbl_nangbangkiki.제어방식Column) + End Function + + _ + Public Sub Set제어방식Null() + Me(Me.tabletbl_nangbangkiki.제어방식Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is온수열생산기기Null() As Boolean + Return Me.IsNull(Me.tabletbl_nangbangkiki.온수열생산기기Column) + End Function + + _ + Public Sub Set온수열생산기기Null() + Me(Me.tabletbl_nangbangkiki.온수열생산기기Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is증발식건식냉각기Null() As Boolean + Return Me.IsNull(Me.tabletbl_nangbangkiki.증발식건식냉각기Column) + End Function + + _ + Public Sub Set증발식건식냉각기Null() + Me(Me.tabletbl_nangbangkiki.증발식건식냉각기Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is증발식냉각기Null() As Boolean + Return Me.IsNull(Me.tabletbl_nangbangkiki.증발식냉각기Column) + End Function + + _ + Public Sub Set증발식냉각기Null() + Me(Me.tabletbl_nangbangkiki.증발식냉각기Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is보조방음기유무Null() As Boolean + Return Me.IsNull(Me.tabletbl_nangbangkiki.보조방음기유무Column) + End Function + + _ + Public Sub Set보조방음기유무Null() + Me(Me.tabletbl_nangbangkiki.보조방음기유무Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is냉각탑입구온도Null() As Boolean + Return Me.IsNull(Me.tabletbl_nangbangkiki.냉각탑입구온도Column) + End Function + + _ + Public Sub Set냉각탑입구온도Null() + Me(Me.tabletbl_nangbangkiki.냉각탑입구온도Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is신재생연결여부Null() As Boolean + Return Me.IsNull(Me.tabletbl_nangbangkiki.신재생연결여부Column) + End Function + + _ + Public Sub Set신재생연결여부Null() + Me(Me.tabletbl_nangbangkiki.신재생연결여부Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is연결된시스템Null() As Boolean + Return Me.IsNull(Me.tabletbl_nangbangkiki.연결된시스템Column) + End Function + + _ + Public Sub Set연결된시스템Null() + Me(Me.tabletbl_nangbangkiki.연결된시스템Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is열생산연결방식Null() As Boolean + Return Me.IsNull(Me.tabletbl_nangbangkiki.열생산연결방식Column) + End Function + + _ + Public Sub Set열생산연결방식Null() + Me(Me.tabletbl_nangbangkiki.열생산연결방식Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is개별기기적용Null() As Boolean + Return Me.IsNull(Me.tabletbl_nangbangkiki.개별기기적용Column) + End Function + + _ + Public Sub Set개별기기적용Null() + Me(Me.tabletbl_nangbangkiki.개별기기적용Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is헤더적용Null() As Boolean + Return Me.IsNull(Me.tabletbl_nangbangkiki.헤더적용Column) + End Function + + _ + Public Sub Set헤더적용Null() + Me(Me.tabletbl_nangbangkiki.헤더적용Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is사용연료Null() As Boolean + Return Me.IsNull(Me.tabletbl_nangbangkiki.사용연료Column) + End Function + + _ + Public Sub Set사용연료Null() + Me(Me.tabletbl_nangbangkiki.사용연료Column) = Global.System.Convert.DBNull + End Sub + End Class + + ''' + '''Represents strongly named DataRow class. + ''' + Partial Public Class tbl_bunbaeRow + Inherits Global.System.Data.DataRow + + Private tabletbl_bunbae As tbl_bunbaeDataTable + + _ + Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) + MyBase.New(rb) + Me.tabletbl_bunbae = CType(Me.Table,tbl_bunbaeDataTable) + End Sub + + _ + Public Property code() As String + Get + Return CType(Me(Me.tabletbl_bunbae.codeColumn),String) + End Get + Set + Me(Me.tabletbl_bunbae.codeColumn) = value + End Set + End Property + + _ + Public Property 설명() As String + Get + If Me.Is설명Null Then + Return "" + Else + Return CType(Me(Me.tabletbl_bunbae.설명Column),String) + End If + End Get + Set + Me(Me.tabletbl_bunbae.설명Column) = value + End Set + End Property + + _ + Public Property 냉동기() As String + Get + If Me.Is냉동기Null Then + Return "0" + Else + Return CType(Me(Me.tabletbl_bunbae.냉동기Column),String) + End If + End Get + Set + Me(Me.tabletbl_bunbae.냉동기Column) = value + End Set + End Property + + _ + Public Property 냉매방식() As String + Get + If Me.Is냉매방식Null Then + Return "0" + Else + Return CType(Me(Me.tabletbl_bunbae.냉매방식Column),String) + End If + End Get + Set + Me(Me.tabletbl_bunbae.냉매방식Column) = value + End Set + End Property + + _ + Public Property 펌프운전제어유무() As String + Get + If Me.Is펌프운전제어유무Null Then + Return "0" + Else + Return CType(Me(Me.tabletbl_bunbae.펌프운전제어유무Column),String) + End If + End Get + Set + Me(Me.tabletbl_bunbae.펌프운전제어유무Column) = value + End Set + End Property + + _ + Public Property 급수온도() As String + Get + If Me.Is급수온도Null Then + Return "0" + Else + Return CType(Me(Me.tabletbl_bunbae.급수온도Column),String) + End If + End Get + Set + Me(Me.tabletbl_bunbae.급수온도Column) = value + End Set + End Property + + _ + Public Property 환수온도() As String + Get + If Me.Is환수온도Null Then + Return "0" + Else + Return CType(Me(Me.tabletbl_bunbae.환수온도Column),String) + End If + End Get + Set + Me(Me.tabletbl_bunbae.환수온도Column) = value + End Set + End Property + + _ + Public Property 설정점에서의온도차() As String + Get + If Me.Is설정점에서의온도차Null Then + Return "" + Else + Return CType(Me(Me.tabletbl_bunbae.설정점에서의온도차Column),String) + End If + End Get + Set + Me(Me.tabletbl_bunbae.설정점에서의온도차Column) = value + End Set + End Property + + _ + Public Property 냉매의비열() As String + Get + If Me.Is냉매의비열Null Then + Return "0" + Else + Return CType(Me(Me.tabletbl_bunbae.냉매의비열Column),String) + End If + End Get + Set + Me(Me.tabletbl_bunbae.냉매의비열Column) = value + End Set + End Property + + _ + Public Property 냉매의밀도() As String + Get + If Me.Is냉매의밀도Null Then + Return "0" + Else + Return CType(Me(Me.tabletbl_bunbae.냉매의밀도Column),String) + End If + End Get + Set + Me(Me.tabletbl_bunbae.냉매의밀도Column) = value + End Set + End Property + + _ + Public Property 냉매의점도() As String + Get + If Me.Is냉매의점도Null Then + Return "0" + Else + Return CType(Me(Me.tabletbl_bunbae.냉매의점도Column),String) + End If + End Get + Set + Me(Me.tabletbl_bunbae.냉매의점도Column) = value + End Set + End Property + + _ + Public Property 배관의압력손실() As String + Get + If Me.Is배관의압력손실Null Then + Return "" + Else + Return CType(Me(Me.tabletbl_bunbae.배관의압력손실Column),String) + End If + End Get + Set + Me(Me.tabletbl_bunbae.배관의압력손실Column) = value + End Set + End Property + + _ + Public Property 개별저항비율() As String + Get + If Me.Is개별저항비율Null Then + Return "0" + Else + Return CType(Me(Me.tabletbl_bunbae.개별저항비율Column),String) + End If + End Get + Set + Me(Me.tabletbl_bunbae.개별저항비율Column) = value + End Set + End Property + + _ + Public Property 펌프동력() As String + Get + If Me.Is펌프동력Null Then + Return "" + Else + Return CType(Me(Me.tabletbl_bunbae.펌프동력Column),String) + End If + End Get + Set + Me(Me.tabletbl_bunbae.펌프동력Column) = value + End Set + End Property + + _ + Public Property 공급범위의길이() As String + Get + If Me.Is공급범위의길이Null Then + Return "0" + Else + Return CType(Me(Me.tabletbl_bunbae.공급범위의길이Column),String) + End If + End Get + Set + Me(Me.tabletbl_bunbae.공급범위의길이Column) = value + End Set + End Property + + _ + Public Property 공급범위의넓이() As String + Get + If Me.Is공급범위의넓이Null Then + Return "0" + Else + Return CType(Me(Me.tabletbl_bunbae.공급범위의넓이Column),String) + End If + End Get + Set + Me(Me.tabletbl_bunbae.공급범위의넓이Column) = value + End Set + End Property + + _ + Public Property 열층의수() As String + Get + If Me.Is열층의수Null Then + Return "0" + Else + Return CType(Me(Me.tabletbl_bunbae.열층의수Column),String) + End If + End Get + Set + Me(Me.tabletbl_bunbae.열층의수Column) = value + End Set + End Property + + _ + Public Property 층고() As String + Get + If Me.Is층고Null Then + Return "" + Else + Return CType(Me(Me.tabletbl_bunbae.층고Column),String) + End If + End Get + Set + Me(Me.tabletbl_bunbae.층고Column) = value + End Set + End Property + + _ + Public Property 생산기기압력손실() As String + Get + If Me.Is생산기기압력손실Null Then + Return "0" + Else + Return CType(Me(Me.tabletbl_bunbae.생산기기압력손실Column),String) + End If + End Get + Set + Me(Me.tabletbl_bunbae.생산기기압력손실Column) = value + End Set + End Property + + _ + Public Property 사용기기압력손실() As String + Get + If Me.Is사용기기압력손실Null Then + Return "0" + Else + Return CType(Me(Me.tabletbl_bunbae.사용기기압력손실Column),String) + End If + End Get + Set + Me(Me.tabletbl_bunbae.사용기기압력손실Column) = value + End Set + End Property + + _ + Public Property 제어밸브압력손실() As String + Get + If Me.Is제어밸브압력손실Null Then + Return "0" + Else + Return CType(Me(Me.tabletbl_bunbae.제어밸브압력손실Column),String) + End If + End Get + Set + Me(Me.tabletbl_bunbae.제어밸브압력손실Column) = value + End Set + End Property + + _ + Public Function Is설명Null() As Boolean + Return Me.IsNull(Me.tabletbl_bunbae.설명Column) + End Function + + _ + Public Sub Set설명Null() + Me(Me.tabletbl_bunbae.설명Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is냉동기Null() As Boolean + Return Me.IsNull(Me.tabletbl_bunbae.냉동기Column) + End Function + + _ + Public Sub Set냉동기Null() + Me(Me.tabletbl_bunbae.냉동기Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is냉매방식Null() As Boolean + Return Me.IsNull(Me.tabletbl_bunbae.냉매방식Column) + End Function + + _ + Public Sub Set냉매방식Null() + Me(Me.tabletbl_bunbae.냉매방식Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is펌프운전제어유무Null() As Boolean + Return Me.IsNull(Me.tabletbl_bunbae.펌프운전제어유무Column) + End Function + + _ + Public Sub Set펌프운전제어유무Null() + Me(Me.tabletbl_bunbae.펌프운전제어유무Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is급수온도Null() As Boolean + Return Me.IsNull(Me.tabletbl_bunbae.급수온도Column) + End Function + + _ + Public Sub Set급수온도Null() + Me(Me.tabletbl_bunbae.급수온도Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is환수온도Null() As Boolean + Return Me.IsNull(Me.tabletbl_bunbae.환수온도Column) + End Function + + _ + Public Sub Set환수온도Null() + Me(Me.tabletbl_bunbae.환수온도Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is설정점에서의온도차Null() As Boolean + Return Me.IsNull(Me.tabletbl_bunbae.설정점에서의온도차Column) + End Function + + _ + Public Sub Set설정점에서의온도차Null() + Me(Me.tabletbl_bunbae.설정점에서의온도차Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is냉매의비열Null() As Boolean + Return Me.IsNull(Me.tabletbl_bunbae.냉매의비열Column) + End Function + + _ + Public Sub Set냉매의비열Null() + Me(Me.tabletbl_bunbae.냉매의비열Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is냉매의밀도Null() As Boolean + Return Me.IsNull(Me.tabletbl_bunbae.냉매의밀도Column) + End Function + + _ + Public Sub Set냉매의밀도Null() + Me(Me.tabletbl_bunbae.냉매의밀도Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is냉매의점도Null() As Boolean + Return Me.IsNull(Me.tabletbl_bunbae.냉매의점도Column) + End Function + + _ + Public Sub Set냉매의점도Null() + Me(Me.tabletbl_bunbae.냉매의점도Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is배관의압력손실Null() As Boolean + Return Me.IsNull(Me.tabletbl_bunbae.배관의압력손실Column) + End Function + + _ + Public Sub Set배관의압력손실Null() + Me(Me.tabletbl_bunbae.배관의압력손실Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is개별저항비율Null() As Boolean + Return Me.IsNull(Me.tabletbl_bunbae.개별저항비율Column) + End Function + + _ + Public Sub Set개별저항비율Null() + Me(Me.tabletbl_bunbae.개별저항비율Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is펌프동력Null() As Boolean + Return Me.IsNull(Me.tabletbl_bunbae.펌프동력Column) + End Function + + _ + Public Sub Set펌프동력Null() + Me(Me.tabletbl_bunbae.펌프동력Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is공급범위의길이Null() As Boolean + Return Me.IsNull(Me.tabletbl_bunbae.공급범위의길이Column) + End Function + + _ + Public Sub Set공급범위의길이Null() + Me(Me.tabletbl_bunbae.공급범위의길이Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is공급범위의넓이Null() As Boolean + Return Me.IsNull(Me.tabletbl_bunbae.공급범위의넓이Column) + End Function + + _ + Public Sub Set공급범위의넓이Null() + Me(Me.tabletbl_bunbae.공급범위의넓이Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is열층의수Null() As Boolean + Return Me.IsNull(Me.tabletbl_bunbae.열층의수Column) + End Function + + _ + Public Sub Set열층의수Null() + Me(Me.tabletbl_bunbae.열층의수Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is층고Null() As Boolean + Return Me.IsNull(Me.tabletbl_bunbae.층고Column) + End Function + + _ + Public Sub Set층고Null() + Me(Me.tabletbl_bunbae.층고Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is생산기기압력손실Null() As Boolean + Return Me.IsNull(Me.tabletbl_bunbae.생산기기압력손실Column) + End Function + + _ + Public Sub Set생산기기압력손실Null() + Me(Me.tabletbl_bunbae.생산기기압력손실Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is사용기기압력손실Null() As Boolean + Return Me.IsNull(Me.tabletbl_bunbae.사용기기압력손실Column) + End Function + + _ + Public Sub Set사용기기압력손실Null() + Me(Me.tabletbl_bunbae.사용기기압력손실Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is제어밸브압력손실Null() As Boolean + Return Me.IsNull(Me.tabletbl_bunbae.제어밸브압력손실Column) + End Function + + _ + Public Sub Set제어밸브압력손실Null() + Me(Me.tabletbl_bunbae.제어밸브압력손실Column) = Global.System.Convert.DBNull + End Sub + End Class + + ''' + '''Represents strongly named DataRow class. + ''' + Partial Public Class tbl_newRow + Inherits Global.System.Data.DataRow + + Private tabletbl_new As tbl_newDataTable + + _ + Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) + MyBase.New(rb) + Me.tabletbl_new = CType(Me.Table,tbl_newDataTable) + End Sub + + _ + Public Property code() As String + Get + Return CType(Me(Me.tabletbl_new.codeColumn),String) + End Get + Set + Me(Me.tabletbl_new.codeColumn) = 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 태양열종류() 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 "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 "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 열손실계수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 태양광모듈면적() 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 태양광모듈방위() 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 "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 "" + 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 펌프용량1차() As String + Get + If Me.Is펌프용량1차Null Then + Return "" + 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 "" + 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 "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 "" + 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 "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 "" + 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 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 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 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집열기유형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태양열시스템의성능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열손실계수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태양광모듈면적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태양광모듈적용타입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펌프용량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열생산능력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지열비고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 + End Class + + ''' + '''Represents strongly named DataRow class. + ''' + Partial Public Class tbl_myounRow + Inherits Global.System.Data.DataRow + + Private tabletbl_myoun As tbl_myounDataTable + + _ + Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) + MyBase.New(rb) + Me.tabletbl_myoun = CType(Me.Table,tbl_myounDataTable) + End Sub + + _ + Public Property code() As String + Get + Return CType(Me(Me.tabletbl_myoun.codeColumn),String) + End Get + Set + Me(Me.tabletbl_myoun.codeColumn) = value + End Set + End Property + + _ + Public Property 설명() As String + Get + If Me.Is설명Null Then + Return "" + Else + Return CType(Me(Me.tabletbl_myoun.설명Column),String) + End If + End Get + Set + Me(Me.tabletbl_myoun.설명Column) = value + End Set + End Property + + _ + Public Property 건축부위방식() As String + Get + If Me.Is건축부위방식Null Then + Return "0" + Else + Return CType(Me(Me.tabletbl_myoun.건축부위방식Column),String) + End If + End Get + Set + Me(Me.tabletbl_myoun.건축부위방식Column) = value + End Set + End Property + + _ + Public Property 방위() As String + Get + If Me.Is방위Null Then + Return "0" + Else + Return CType(Me(Me.tabletbl_myoun.방위Column),String) + End If + End Get + Set + Me(Me.tabletbl_myoun.방위Column) = value + End Set + End Property + + _ + Public Property 건축부위면적() As String + Get + If Me.Is건축부위면적Null Then + Return "" + Else + Return CType(Me(Me.tabletbl_myoun.건축부위면적Column),String) + End If + End Get + Set + Me(Me.tabletbl_myoun.건축부위면적Column) = value + End Set + End Property + + _ + Public Property 열관류율() As String + Get + If Me.Is열관류율Null Then + Return "0" + Else + Return CType(Me(Me.tabletbl_myoun.열관류율Column),String) + End If + End Get + Set + Me(Me.tabletbl_myoun.열관류율Column) = value + End Set + End Property + + _ + Public Property 투과율() As String + Get + If Me.Is투과율Null Then + Return "0" + Else + Return CType(Me(Me.tabletbl_myoun.투과율Column),String) + End If + End Get + Set + Me(Me.tabletbl_myoun.투과율Column) = value + End Set + End Property + + _ + Public Property 수평차양각() As String + Get + If Me.Is수평차양각Null Then + Return "" + Else + Return CType(Me(Me.tabletbl_myoun.수평차양각Column),String) + End If + End Get + Set + Me(Me.tabletbl_myoun.수평차양각Column) = value + End Set + End Property + + _ + Public Property 수직차양각() As String + Get + If Me.Is수직차양각Null Then + Return "" + Else + Return CType(Me(Me.tabletbl_myoun.수직차양각Column),String) + End If + End Get + Set + Me(Me.tabletbl_myoun.수직차양각Column) = value + End Set + End Property + + _ + Public Property 블라인드유무() As String + Get + If Me.Is블라인드유무Null Then + Return "0" + Else + Return CType(Me(Me.tabletbl_myoun.블라인드유무Column),String) + End If + End Get + Set + Me(Me.tabletbl_myoun.블라인드유무Column) = value + End Set + End Property + + _ + Public Property 블라인드위치() As String + Get + If Me.Is블라인드위치Null Then + Return "0" + Else + Return CType(Me(Me.tabletbl_myoun.블라인드위치Column),String) + End If + End Get + Set + Me(Me.tabletbl_myoun.블라인드위치Column) = value + End Set + End Property + + _ + Public Property 블라인드각도() As String + Get + If Me.Is블라인드각도Null Then + Return "0" + Else + Return CType(Me(Me.tabletbl_myoun.블라인드각도Column),String) + End If + End Get + Set + Me(Me.tabletbl_myoun.블라인드각도Column) = value + End Set + End Property + + _ + Public Property 블라인드빛종류() As String + Get + If Me.Is블라인드빛종류Null Then + Return "0" + Else + Return CType(Me(Me.tabletbl_myoun.블라인드빛종류Column),String) + End If + End Get + Set + Me(Me.tabletbl_myoun.블라인드빛종류Column) = value + End Set + End Property + + _ + Public Property 블라인드색상() As String + Get + If Me.Is블라인드색상Null Then + Return "0" + Else + Return CType(Me(Me.tabletbl_myoun.블라인드색상Column),String) + End If + End Get + Set + Me(Me.tabletbl_myoun.블라인드색상Column) = value + End Set + End Property + + _ + Public Property 존분류() As String + Get + If Me.Is존분류Null Then + Return "0" + Else + Return CType(Me(Me.tabletbl_myoun.존분류Column),String) + End If + End Get + Set + Me(Me.tabletbl_myoun.존분류Column) = value + End Set + End Property + + _ + Public Property 대차대조존() As String + Get + If Me.Is대차대조존Null Then + Return "0" + Else + Return CType(Me(Me.tabletbl_myoun.대차대조존Column),String) + End If + End Get + Set + Me(Me.tabletbl_myoun.대차대조존Column) = value + End Set + End Property + + _ + Public Property 열관류율2() As String + Get + If Me.Is열관류율2Null Then + Return "0" + Else + Return CType(Me(Me.tabletbl_myoun.열관류율2Column),String) + End If + End Get + Set + Me(Me.tabletbl_myoun.열관류율2Column) = value + End Set + End Property + + _ + Public Property 수평입력각() As String + Get + If Me.Is수평입력각Null Then + Return "0" + Else + Return CType(Me(Me.tabletbl_myoun.수평입력각Column),String) + End If + End Get + Set + Me(Me.tabletbl_myoun.수평입력각Column) = value + End Set + End Property + + _ + Public Property 수직입력각() As String + Get + If Me.Is수직입력각Null Then + Return "0" + Else + Return CType(Me(Me.tabletbl_myoun.수직입력각Column),String) + End If + End Get + Set + Me(Me.tabletbl_myoun.수직입력각Column) = value + End Set + End Property + + _ + Public Property 수평길이() As String + Get + If Me.Is수평길이Null Then + Return "0" + Else + Return CType(Me(Me.tabletbl_myoun.수평길이Column),String) + End If + End Get + Set + Me(Me.tabletbl_myoun.수평길이Column) = value + End Set + End Property + + _ + Public Property 수직길이() As String + Get + If Me.Is수직길이Null Then + Return "0" + Else + Return CType(Me(Me.tabletbl_myoun.수직길이Column),String) + End If + End Get + Set + Me(Me.tabletbl_myoun.수직길이Column) = value + End Set + End Property + + _ + Public Property 수평중심길이() As String + Get + If Me.Is수평중심길이Null Then + Return "0" + Else + Return CType(Me(Me.tabletbl_myoun.수평중심길이Column),String) + End If + End Get + Set + Me(Me.tabletbl_myoun.수평중심길이Column) = value + End Set + End Property + + _ + Public Property 수직중심길이() As String + Get + If Me.Is수직중심길이Null Then + Return "0" + Else + Return CType(Me(Me.tabletbl_myoun.수직중심길이Column),String) + End If + End Get + Set + Me(Me.tabletbl_myoun.수직중심길이Column) = value + End Set + End Property + + _ + Public Property 차양각선택() As String + Get + If Me.Is차양각선택Null Then + Return "0" + Else + Return CType(Me(Me.tabletbl_myoun.차양각선택Column),String) + End If + End Get + Set + Me(Me.tabletbl_myoun.차양각선택Column) = value + End Set + End Property + + _ + Public Property sortkey() As UShort + Get + If Me.IssortkeyNull Then + Return 1US + Else + Return CType(Me(Me.tabletbl_myoun.sortkeyColumn),UShort) + End If + End Get + Set + Me(Me.tabletbl_myoun.sortkeyColumn) = value + End Set + End Property + + _ + Public Function Is설명Null() As Boolean + Return Me.IsNull(Me.tabletbl_myoun.설명Column) + End Function + + _ + Public Sub Set설명Null() + Me(Me.tabletbl_myoun.설명Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is건축부위방식Null() As Boolean + Return Me.IsNull(Me.tabletbl_myoun.건축부위방식Column) + End Function + + _ + Public Sub Set건축부위방식Null() + Me(Me.tabletbl_myoun.건축부위방식Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is방위Null() As Boolean + Return Me.IsNull(Me.tabletbl_myoun.방위Column) + End Function + + _ + Public Sub Set방위Null() + Me(Me.tabletbl_myoun.방위Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is건축부위면적Null() As Boolean + Return Me.IsNull(Me.tabletbl_myoun.건축부위면적Column) + End Function + + _ + Public Sub Set건축부위면적Null() + Me(Me.tabletbl_myoun.건축부위면적Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is열관류율Null() As Boolean + Return Me.IsNull(Me.tabletbl_myoun.열관류율Column) + End Function + + _ + Public Sub Set열관류율Null() + Me(Me.tabletbl_myoun.열관류율Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is투과율Null() As Boolean + Return Me.IsNull(Me.tabletbl_myoun.투과율Column) + End Function + + _ + Public Sub Set투과율Null() + Me(Me.tabletbl_myoun.투과율Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is수평차양각Null() As Boolean + Return Me.IsNull(Me.tabletbl_myoun.수평차양각Column) + End Function + + _ + Public Sub Set수평차양각Null() + Me(Me.tabletbl_myoun.수평차양각Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is수직차양각Null() As Boolean + Return Me.IsNull(Me.tabletbl_myoun.수직차양각Column) + End Function + + _ + Public Sub Set수직차양각Null() + Me(Me.tabletbl_myoun.수직차양각Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is블라인드유무Null() As Boolean + Return Me.IsNull(Me.tabletbl_myoun.블라인드유무Column) + End Function + + _ + Public Sub Set블라인드유무Null() + Me(Me.tabletbl_myoun.블라인드유무Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is블라인드위치Null() As Boolean + Return Me.IsNull(Me.tabletbl_myoun.블라인드위치Column) + End Function + + _ + Public Sub Set블라인드위치Null() + Me(Me.tabletbl_myoun.블라인드위치Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is블라인드각도Null() As Boolean + Return Me.IsNull(Me.tabletbl_myoun.블라인드각도Column) + End Function + + _ + Public Sub Set블라인드각도Null() + Me(Me.tabletbl_myoun.블라인드각도Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is블라인드빛종류Null() As Boolean + Return Me.IsNull(Me.tabletbl_myoun.블라인드빛종류Column) + End Function + + _ + Public Sub Set블라인드빛종류Null() + Me(Me.tabletbl_myoun.블라인드빛종류Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is블라인드색상Null() As Boolean + Return Me.IsNull(Me.tabletbl_myoun.블라인드색상Column) + End Function + + _ + Public Sub Set블라인드색상Null() + Me(Me.tabletbl_myoun.블라인드색상Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is존분류Null() As Boolean + Return Me.IsNull(Me.tabletbl_myoun.존분류Column) + End Function + + _ + Public Sub Set존분류Null() + Me(Me.tabletbl_myoun.존분류Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is대차대조존Null() As Boolean + Return Me.IsNull(Me.tabletbl_myoun.대차대조존Column) + End Function + + _ + Public Sub Set대차대조존Null() + Me(Me.tabletbl_myoun.대차대조존Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is열관류율2Null() As Boolean + Return Me.IsNull(Me.tabletbl_myoun.열관류율2Column) + End Function + + _ + Public Sub Set열관류율2Null() + Me(Me.tabletbl_myoun.열관류율2Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is수평입력각Null() As Boolean + Return Me.IsNull(Me.tabletbl_myoun.수평입력각Column) + End Function + + _ + Public Sub Set수평입력각Null() + Me(Me.tabletbl_myoun.수평입력각Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is수직입력각Null() As Boolean + Return Me.IsNull(Me.tabletbl_myoun.수직입력각Column) + End Function + + _ + Public Sub Set수직입력각Null() + Me(Me.tabletbl_myoun.수직입력각Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is수평길이Null() As Boolean + Return Me.IsNull(Me.tabletbl_myoun.수평길이Column) + End Function + + _ + Public Sub Set수평길이Null() + Me(Me.tabletbl_myoun.수평길이Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is수직길이Null() As Boolean + Return Me.IsNull(Me.tabletbl_myoun.수직길이Column) + End Function + + _ + Public Sub Set수직길이Null() + Me(Me.tabletbl_myoun.수직길이Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is수평중심길이Null() As Boolean + Return Me.IsNull(Me.tabletbl_myoun.수평중심길이Column) + End Function + + _ + Public Sub Set수평중심길이Null() + Me(Me.tabletbl_myoun.수평중심길이Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is수직중심길이Null() As Boolean + Return Me.IsNull(Me.tabletbl_myoun.수직중심길이Column) + End Function + + _ + Public Sub Set수직중심길이Null() + Me(Me.tabletbl_myoun.수직중심길이Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is차양각선택Null() As Boolean + Return Me.IsNull(Me.tabletbl_myoun.차양각선택Column) + End Function + + _ + Public Sub Set차양각선택Null() + Me(Me.tabletbl_myoun.차양각선택Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IssortkeyNull() As Boolean + Return Me.IsNull(Me.tabletbl_myoun.sortkeyColumn) + End Function + + _ + Public Sub SetsortkeyNull() + Me(Me.tabletbl_myoun.sortkeyColumn) = Global.System.Convert.DBNull + End Sub + End Class + + ''' + '''Represents strongly named DataRow class. + ''' + Partial Public Class tbl_buhaRow + Inherits Global.System.Data.DataRow + + Private tabletbl_buha As tbl_buhaDataTable + + _ + Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) + MyBase.New(rb) + Me.tabletbl_buha = CType(Me.Table,tbl_buhaDataTable) + End Sub + + _ + Public Property code() As String + Get + Return CType(Me(Me.tabletbl_buha.codeColumn),String) + End Get + Set + Me(Me.tabletbl_buha.codeColumn) = value + End Set + End Property + + _ + Public Property 설명() As String + Get + If Me.Is설명Null Then + Return "" + Else + Return CType(Me(Me.tabletbl_buha.설명Column),String) + End If + End Get + Set + Me(Me.tabletbl_buha.설명Column) = value + End Set + End Property + + _ + Public Property n01() As String + Get + If Me.Isn01Null Then + Return "0" + Else + Return CType(Me(Me.tabletbl_buha.n01Column),String) + End If + End Get + Set + Me(Me.tabletbl_buha.n01Column) = value + End Set + End Property + + _ + Public Property n02() As String + Get + If Me.Isn02Null Then + Return "0" + Else + Return CType(Me(Me.tabletbl_buha.n02Column),String) + End If + End Get + Set + Me(Me.tabletbl_buha.n02Column) = value + End Set + End Property + + _ + Public Property n03() As String + Get + If Me.Isn03Null Then + Return "0" + Else + Return CType(Me(Me.tabletbl_buha.n03Column),String) + End If + End Get + Set + Me(Me.tabletbl_buha.n03Column) = value + End Set + End Property + + _ + Public Property n04() As String + Get + If Me.Isn04Null Then + Return "0" + Else + Return CType(Me(Me.tabletbl_buha.n04Column),String) + End If + End Get + Set + Me(Me.tabletbl_buha.n04Column) = value + End Set + End Property + + _ + Public Property n05() As String + Get + If Me.Isn05Null Then + Return "0" + Else + Return CType(Me(Me.tabletbl_buha.n05Column),String) + End If + End Get + Set + Me(Me.tabletbl_buha.n05Column) = value + End Set + End Property + + _ + Public Property n06() As String + Get + If Me.Isn06Null Then + Return "0" + Else + Return CType(Me(Me.tabletbl_buha.n06Column),String) + End If + End Get + Set + Me(Me.tabletbl_buha.n06Column) = value + End Set + End Property + + _ + Public Property n07() As String + Get + If Me.Isn07Null Then + Return "0" + Else + Return CType(Me(Me.tabletbl_buha.n07Column),String) + End If + End Get + Set + Me(Me.tabletbl_buha.n07Column) = value + End Set + End Property + + _ + Public Property n08() As String + Get + If Me.Isn08Null Then + Return "0" + Else + Return CType(Me(Me.tabletbl_buha.n08Column),String) + End If + End Get + Set + Me(Me.tabletbl_buha.n08Column) = value + End Set + End Property + + _ + Public Property n09() As String + Get + If Me.Isn09Null Then + Return "0" + Else + Return CType(Me(Me.tabletbl_buha.n09Column),String) + End If + End Get + Set + Me(Me.tabletbl_buha.n09Column) = value + End Set + End Property + + _ + Public Property n10() As String + Get + If Me.Isn10Null Then + Return "0" + Else + Return CType(Me(Me.tabletbl_buha.n10Column),String) + End If + End Get + Set + Me(Me.tabletbl_buha.n10Column) = value + End Set + End Property + + _ + Public Function Is설명Null() As Boolean + Return Me.IsNull(Me.tabletbl_buha.설명Column) + End Function + + _ + Public Sub Set설명Null() + Me(Me.tabletbl_buha.설명Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Isn01Null() As Boolean + Return Me.IsNull(Me.tabletbl_buha.n01Column) + End Function + + _ + Public Sub Setn01Null() + Me(Me.tabletbl_buha.n01Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Isn02Null() As Boolean + Return Me.IsNull(Me.tabletbl_buha.n02Column) + End Function + + _ + Public Sub Setn02Null() + Me(Me.tabletbl_buha.n02Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Isn03Null() As Boolean + Return Me.IsNull(Me.tabletbl_buha.n03Column) + End Function + + _ + Public Sub Setn03Null() + Me(Me.tabletbl_buha.n03Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Isn04Null() As Boolean + Return Me.IsNull(Me.tabletbl_buha.n04Column) + End Function + + _ + Public Sub Setn04Null() + Me(Me.tabletbl_buha.n04Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Isn05Null() As Boolean + Return Me.IsNull(Me.tabletbl_buha.n05Column) + End Function + + _ + Public Sub Setn05Null() + Me(Me.tabletbl_buha.n05Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Isn06Null() As Boolean + Return Me.IsNull(Me.tabletbl_buha.n06Column) + End Function + + _ + Public Sub Setn06Null() + Me(Me.tabletbl_buha.n06Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Isn07Null() As Boolean + Return Me.IsNull(Me.tabletbl_buha.n07Column) + End Function + + _ + Public Sub Setn07Null() + Me(Me.tabletbl_buha.n07Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Isn08Null() As Boolean + Return Me.IsNull(Me.tabletbl_buha.n08Column) + End Function + + _ + Public Sub Setn08Null() + Me(Me.tabletbl_buha.n08Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Isn09Null() As Boolean + Return Me.IsNull(Me.tabletbl_buha.n09Column) + End Function + + _ + Public Sub Setn09Null() + Me(Me.tabletbl_buha.n09Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Isn10Null() As Boolean + Return Me.IsNull(Me.tabletbl_buha.n10Column) + End Function + + _ + Public Sub Setn10Null() + Me(Me.tabletbl_buha.n10Column) = Global.System.Convert.DBNull + End Sub + End Class + + ''' + '''Represents strongly named DataRow class. + ''' + Partial Public Class tbl_nbunbaeRow + Inherits Global.System.Data.DataRow + + Private tabletbl_nbunbae As tbl_nbunbaeDataTable + + _ + Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) + MyBase.New(rb) + Me.tabletbl_nbunbae = CType(Me.Table,tbl_nbunbaeDataTable) + End Sub + + _ + Public Property code() As String + Get + Return CType(Me(Me.tabletbl_nbunbae.codeColumn),String) + End Get + Set + Me(Me.tabletbl_nbunbae.codeColumn) = value + End Set + End Property + + _ + Public Property 설명() As String + Get + If Me.Is설명Null Then + Return "" + Else + Return CType(Me(Me.tabletbl_nbunbae.설명Column),String) + End If + End Get + Set + Me(Me.tabletbl_nbunbae.설명Column) = value + End Set + End Property + + _ + Public Property 생산기기구분() As String + Get + If Me.Is생산기기구분Null Then + Return "0" + Else + Return CType(Me(Me.tabletbl_nbunbae.생산기기구분Column),String) + End If + End Get + Set + Me(Me.tabletbl_nbunbae.생산기기구분Column) = value + End Set + End Property + + _ + Public Property 표준치적용() As String + Get + If Me.Is표준치적용Null Then + Return "0" + Else + Return CType(Me(Me.tabletbl_nbunbae.표준치적용Column),String) + End If + End Get + Set + Me(Me.tabletbl_nbunbae.표준치적용Column) = value + End Set + End Property + + _ + Public Property 배관망유형() As String + Get + If Me.Is배관망유형Null Then + Return "" + Else + Return CType(Me(Me.tabletbl_nbunbae.배관망유형Column),String) + End If + End Get + Set + Me(Me.tabletbl_nbunbae.배관망유형Column) = value + End Set + End Property + + _ + Public Property 배관구간방식() As String + Get + If Me.Is배관구간방식Null Then + Return "0" + Else + Return CType(Me(Me.tabletbl_nbunbae.배관구간방식Column),String) + End If + End Get + Set + Me(Me.tabletbl_nbunbae.배관구간방식Column) = value + End Set + End Property + + _ + Public Property 배관구간길이() As String + Get + If Me.Is배관구간길이Null Then + Return "" + Else + Return CType(Me(Me.tabletbl_nbunbae.배관구간길이Column),String) + End If + End Get + Set + Me(Me.tabletbl_nbunbae.배관구간길이Column) = value + End Set + End Property + + _ + Public Property 열관류율() As String + Get + If Me.Is열관류율Null Then + Return "0" + Else + Return CType(Me(Me.tabletbl_nbunbae.열관류율Column),String) + End If + End Get + Set + Me(Me.tabletbl_nbunbae.열관류율Column) = value + End Set + End Property + + _ + Public Property 배관설치장소() As String + Get + If Me.Is배관설치장소Null Then + Return "0" + Else + Return CType(Me(Me.tabletbl_nbunbae.배관설치장소Column),String) + End If + End Get + Set + Me(Me.tabletbl_nbunbae.배관설치장소Column) = value + End Set + End Property + + _ + Public Property 건물길이x() As String + Get + If Me.Is건물길이xNull Then + Return "0" + Else + Return CType(Me(Me.tabletbl_nbunbae.건물길이xColumn),String) + End If + End Get + Set + Me(Me.tabletbl_nbunbae.건물길이xColumn) = value + End Set + End Property + + _ + Public Property 건물길이y() As String + Get + If Me.Is건물길이yNull Then + Return "0" + Else + Return CType(Me(Me.tabletbl_nbunbae.건물길이yColumn),String) + End If + End Get + Set + Me(Me.tabletbl_nbunbae.건물길이yColumn) = value + End Set + End Property + + _ + Public Property 층수() As String + Get + If Me.Is층수Null Then + Return "0" + Else + Return CType(Me(Me.tabletbl_nbunbae.층수Column),String) + End If + End Get + Set + Me(Me.tabletbl_nbunbae.층수Column) = value + End Set + End Property + + _ + Public Property 층고() As String + Get + If Me.Is층고Null Then + Return "" + Else + Return CType(Me(Me.tabletbl_nbunbae.층고Column),String) + End If + End Get + Set + Me(Me.tabletbl_nbunbae.층고Column) = value + End Set + End Property + + _ + Public Property 지관장소() As String + Get + If Me.Is지관장소Null Then + Return "0" + Else + Return CType(Me(Me.tabletbl_nbunbae.지관장소Column),String) + End If + End Get + Set + Me(Me.tabletbl_nbunbae.지관장소Column) = value + End Set + End Property + + _ + Public Function Is설명Null() As Boolean + Return Me.IsNull(Me.tabletbl_nbunbae.설명Column) + End Function + + _ + Public Sub Set설명Null() + Me(Me.tabletbl_nbunbae.설명Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is생산기기구분Null() As Boolean + Return Me.IsNull(Me.tabletbl_nbunbae.생산기기구분Column) + End Function + + _ + Public Sub Set생산기기구분Null() + Me(Me.tabletbl_nbunbae.생산기기구분Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is표준치적용Null() As Boolean + Return Me.IsNull(Me.tabletbl_nbunbae.표준치적용Column) + End Function + + _ + Public Sub Set표준치적용Null() + Me(Me.tabletbl_nbunbae.표준치적용Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is배관망유형Null() As Boolean + Return Me.IsNull(Me.tabletbl_nbunbae.배관망유형Column) + End Function + + _ + Public Sub Set배관망유형Null() + Me(Me.tabletbl_nbunbae.배관망유형Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is배관구간방식Null() As Boolean + Return Me.IsNull(Me.tabletbl_nbunbae.배관구간방식Column) + End Function + + _ + Public Sub Set배관구간방식Null() + Me(Me.tabletbl_nbunbae.배관구간방식Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is배관구간길이Null() As Boolean + Return Me.IsNull(Me.tabletbl_nbunbae.배관구간길이Column) + End Function + + _ + Public Sub Set배관구간길이Null() + Me(Me.tabletbl_nbunbae.배관구간길이Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is열관류율Null() As Boolean + Return Me.IsNull(Me.tabletbl_nbunbae.열관류율Column) + End Function + + _ + Public Sub Set열관류율Null() + Me(Me.tabletbl_nbunbae.열관류율Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is배관설치장소Null() As Boolean + Return Me.IsNull(Me.tabletbl_nbunbae.배관설치장소Column) + End Function + + _ + Public Sub Set배관설치장소Null() + Me(Me.tabletbl_nbunbae.배관설치장소Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is건물길이xNull() As Boolean + Return Me.IsNull(Me.tabletbl_nbunbae.건물길이xColumn) + End Function + + _ + Public Sub Set건물길이xNull() + Me(Me.tabletbl_nbunbae.건물길이xColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is건물길이yNull() As Boolean + Return Me.IsNull(Me.tabletbl_nbunbae.건물길이yColumn) + End Function + + _ + Public Sub Set건물길이yNull() + Me(Me.tabletbl_nbunbae.건물길이yColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is층수Null() As Boolean + Return Me.IsNull(Me.tabletbl_nbunbae.층수Column) + End Function + + _ + Public Sub Set층수Null() + Me(Me.tabletbl_nbunbae.층수Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is층고Null() As Boolean + Return Me.IsNull(Me.tabletbl_nbunbae.층고Column) + End Function + + _ + Public Sub Set층고Null() + Me(Me.tabletbl_nbunbae.층고Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is지관장소Null() As Boolean + Return Me.IsNull(Me.tabletbl_nbunbae.지관장소Column) + End Function + + _ + Public Sub Set지관장소Null() + Me(Me.tabletbl_nbunbae.지관장소Column) = Global.System.Convert.DBNull + End Sub + End Class + + ''' + '''Represents strongly named DataRow class. + ''' + Partial Public Class tbl_kongjoRow + Inherits Global.System.Data.DataRow + + Private tabletbl_kongjo As tbl_kongjoDataTable + + _ + Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) + MyBase.New(rb) + Me.tabletbl_kongjo = CType(Me.Table,tbl_kongjoDataTable) + End Sub + + _ + Public Property code() As String + Get + Return CType(Me(Me.tabletbl_kongjo.codeColumn),String) + End Get + Set + Me(Me.tabletbl_kongjo.codeColumn) = 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 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 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 "" + 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 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 "" + 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 "" + 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 "입력치" + 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 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 + 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 + + _ + 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 + + _ + 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 + + _ + 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 + + _ + 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 + + ''' + '''Represents strongly named DataRow class. + ''' + Partial Public Class tbl_kongkubRow + Inherits Global.System.Data.DataRow + + Private tabletbl_kongkub As tbl_kongkubDataTable + + _ + Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) + MyBase.New(rb) + Me.tabletbl_kongkub = CType(Me.Table,tbl_kongkubDataTable) + End Sub + + _ + Public Property code() As String + Get + Return CType(Me(Me.tabletbl_kongkub.codeColumn),String) + End Get + Set + Me(Me.tabletbl_kongkub.codeColumn) = value + End Set + End Property + + _ + Public Property 설명() As String + Get + If Me.Is설명Null Then + Return "" + Else + Return CType(Me(Me.tabletbl_kongkub.설명Column),String) + End If + End Get + Set + Me(Me.tabletbl_kongkub.설명Column) = value + End Set + End Property + + _ + Public Property 열공급시스템() As String + Get + If Me.Is열공급시스템Null Then + Return "0" + Else + Return CType(Me(Me.tabletbl_kongkub.열공급시스템Column),String) + End If + End Get + Set + Me(Me.tabletbl_kongkub.열공급시스템Column) = value + End Set + End Property + + _ + Public Property 열공급생산기기() As String + Get + If Me.Is열공급생산기기Null Then + Return "0" + Else + Return CType(Me(Me.tabletbl_kongkub.열공급생산기기Column),String) + End If + End Get + Set + Me(Me.tabletbl_kongkub.열공급생산기기Column) = value + End Set + End Property + + _ + Public Property 노출형제어() As String + Get + If Me.Is노출형제어Null Then + Return "0" + Else + Return CType(Me(Me.tabletbl_kongkub.노출형제어Column),String) + End If + End Get + Set + Me(Me.tabletbl_kongkub.노출형제어Column) = value + End Set + End Property + + _ + Public Property 바닥난방열제어() As String + Get + If Me.Is바닥난방열제어Null Then + Return "0" + Else + Return CType(Me(Me.tabletbl_kongkub.바닥난방열제어Column),String) + End If + End Get + Set + Me(Me.tabletbl_kongkub.바닥난방열제어Column) = value + End Set + End Property + + _ + Public Property 바닥난방열건축부위() As String + Get + If Me.Is바닥난방열건축부위Null Then + Return "0" + Else + Return CType(Me(Me.tabletbl_kongkub.바닥난방열건축부위Column),String) + End If + End Get + Set + Me(Me.tabletbl_kongkub.바닥난방열건축부위Column) = value + End Set + End Property + + _ + Public Property 바닥난방전기제어() As String + Get + If Me.Is바닥난방전기제어Null Then + Return "0" + Else + Return CType(Me(Me.tabletbl_kongkub.바닥난방전기제어Column),String) + End If + End Get + Set + Me(Me.tabletbl_kongkub.바닥난방전기제어Column) = value + End Set + End Property + + _ + Public Property 바닥난방전기건축부위() As String + Get + If Me.Is바닥난방전기건축부위Null Then + Return "0" + Else + Return CType(Me(Me.tabletbl_kongkub.바닥난방전기건축부위Column),String) + End If + End Get + Set + Me(Me.tabletbl_kongkub.바닥난방전기건축부위Column) = value + End Set + End Property + + _ + Public Property 전기난방제어() As String + Get + If Me.Is전기난방제어Null Then + Return "0" + Else + Return CType(Me(Me.tabletbl_kongkub.전기난방제어Column),String) + End If + End Get + Set + Me(Me.tabletbl_kongkub.전기난방제어Column) = value + End Set + End Property + + _ + Public Property 제어기의정격전력() As String + Get + If Me.Is제어기의정격전력Null Then + Return "0" + Else + Return CType(Me(Me.tabletbl_kongkub.제어기의정격전력Column),String) + End If + End Get + Set + Me(Me.tabletbl_kongkub.제어기의정격전력Column) = value + End Set + End Property + + _ + Public Property 팬송풍기정격전력() As String + Get + If Me.Is팬송풍기정격전력Null Then + Return "0" + Else + Return CType(Me(Me.tabletbl_kongkub.팬송풍기정격전력Column),String) + End If + End Get + Set + Me(Me.tabletbl_kongkub.팬송풍기정격전력Column) = value + End Set + End Property + + _ + Public Property 펌프정격전력() As String + Get + If Me.Is펌프정격전력Null Then + Return "0" + Else + Return CType(Me(Me.tabletbl_kongkub.펌프정격전력Column),String) + End If + End Get + Set + Me(Me.tabletbl_kongkub.펌프정격전력Column) = value + End Set + End Property + + _ + Public Property 팬송풍기수() As String + Get + If Me.Is팬송풍기수Null Then + Return "0" + Else + Return CType(Me(Me.tabletbl_kongkub.팬송풍기수Column),String) + End If + End Get + Set + Me(Me.tabletbl_kongkub.팬송풍기수Column) = value + End Set + End Property + + _ + Public Property 추가펌프수() As String + Get + If Me.Is추가펌프수Null Then + Return "0" + Else + Return CType(Me(Me.tabletbl_kongkub.추가펌프수Column),String) + End If + End Get + Set + Me(Me.tabletbl_kongkub.추가펌프수Column) = value + End Set + End Property + + _ + Public Function Is설명Null() As Boolean + Return Me.IsNull(Me.tabletbl_kongkub.설명Column) + End Function + + _ + Public Sub Set설명Null() + Me(Me.tabletbl_kongkub.설명Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is열공급시스템Null() As Boolean + Return Me.IsNull(Me.tabletbl_kongkub.열공급시스템Column) + End Function + + _ + Public Sub Set열공급시스템Null() + Me(Me.tabletbl_kongkub.열공급시스템Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is열공급생산기기Null() As Boolean + Return Me.IsNull(Me.tabletbl_kongkub.열공급생산기기Column) + End Function + + _ + Public Sub Set열공급생산기기Null() + Me(Me.tabletbl_kongkub.열공급생산기기Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is노출형제어Null() As Boolean + Return Me.IsNull(Me.tabletbl_kongkub.노출형제어Column) + End Function + + _ + Public Sub Set노출형제어Null() + Me(Me.tabletbl_kongkub.노출형제어Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is바닥난방열제어Null() As Boolean + Return Me.IsNull(Me.tabletbl_kongkub.바닥난방열제어Column) + End Function + + _ + Public Sub Set바닥난방열제어Null() + Me(Me.tabletbl_kongkub.바닥난방열제어Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is바닥난방열건축부위Null() As Boolean + Return Me.IsNull(Me.tabletbl_kongkub.바닥난방열건축부위Column) + End Function + + _ + Public Sub Set바닥난방열건축부위Null() + Me(Me.tabletbl_kongkub.바닥난방열건축부위Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is바닥난방전기제어Null() As Boolean + Return Me.IsNull(Me.tabletbl_kongkub.바닥난방전기제어Column) + End Function + + _ + Public Sub Set바닥난방전기제어Null() + Me(Me.tabletbl_kongkub.바닥난방전기제어Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is바닥난방전기건축부위Null() As Boolean + Return Me.IsNull(Me.tabletbl_kongkub.바닥난방전기건축부위Column) + End Function + + _ + Public Sub Set바닥난방전기건축부위Null() + Me(Me.tabletbl_kongkub.바닥난방전기건축부위Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is전기난방제어Null() As Boolean + Return Me.IsNull(Me.tabletbl_kongkub.전기난방제어Column) + End Function + + _ + Public Sub Set전기난방제어Null() + Me(Me.tabletbl_kongkub.전기난방제어Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is제어기의정격전력Null() As Boolean + Return Me.IsNull(Me.tabletbl_kongkub.제어기의정격전력Column) + End Function + + _ + Public Sub Set제어기의정격전력Null() + Me(Me.tabletbl_kongkub.제어기의정격전력Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is팬송풍기정격전력Null() As Boolean + Return Me.IsNull(Me.tabletbl_kongkub.팬송풍기정격전력Column) + End Function + + _ + Public Sub Set팬송풍기정격전력Null() + Me(Me.tabletbl_kongkub.팬송풍기정격전력Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is펌프정격전력Null() As Boolean + Return Me.IsNull(Me.tabletbl_kongkub.펌프정격전력Column) + End Function + + _ + Public Sub Set펌프정격전력Null() + Me(Me.tabletbl_kongkub.펌프정격전력Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is팬송풍기수Null() As Boolean + Return Me.IsNull(Me.tabletbl_kongkub.팬송풍기수Column) + End Function + + _ + Public Sub Set팬송풍기수Null() + Me(Me.tabletbl_kongkub.팬송풍기수Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is추가펌프수Null() As Boolean + Return Me.IsNull(Me.tabletbl_kongkub.추가펌프수Column) + End Function + + _ + Public Sub Set추가펌프수Null() + Me(Me.tabletbl_kongkub.추가펌프수Column) = Global.System.Convert.DBNull + End Sub + End Class + + ''' + '''Represents strongly named DataRow class. + ''' + Partial Public Class tbl_ykRow + Inherits Global.System.Data.DataRow + + Private tabletbl_yk As tbl_ykDataTable + + _ + Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) + MyBase.New(rb) + Me.tabletbl_yk = CType(Me.Table,tbl_ykDataTable) + End Sub + + _ + Public Property code() As String + Get + Return CType(Me(Me.tabletbl_yk.codeColumn),String) + End Get + Set + Me(Me.tabletbl_yk.codeColumn) = value + End Set + End Property + + _ + Public Property 설명() As String + Get + If Me.Is설명Null Then + Return "" + Else + Return CType(Me(Me.tabletbl_yk.설명Column),String) + End If + End Get + Set + Me(Me.tabletbl_yk.설명Column) = value + End Set + End Property + + _ + Public Property 열관류율() As String + Get + If Me.Is열관류율Null Then + Return "0" + Else + Return CType(Me(Me.tabletbl_yk.열관류율Column),String) + End If + End Get + Set + Me(Me.tabletbl_yk.열관류율Column) = value + End Set + End Property + + _ + Public Property 면형태() As String + Get + If Me.Is면형태Null Then + Return "0" + Else + Return CType(Me(Me.tabletbl_yk.면형태Column),String) + End If + End Get + Set + Me(Me.tabletbl_yk.면형태Column) = value + End Set + End Property + + _ + Public Property 창호열관류율() As String + Get + If Me.Is창호열관류율Null Then + Return "0" + Else + Return CType(Me(Me.tabletbl_yk.창호열관류율Column),String) + End If + End Get + Set + Me(Me.tabletbl_yk.창호열관류율Column) = value + End Set + End Property + + _ + Public Property 일사에너지투과율() As String + Get + If Me.Is일사에너지투과율Null Then + Return "0" + Else + Return CType(Me(Me.tabletbl_yk.일사에너지투과율Column),String) + End If + End Get + Set + Me(Me.tabletbl_yk.일사에너지투과율Column) = value + End Set + End Property + + _ + Public Property 창호세부설명() As String + Get + If Me.Is창호세부설명Null Then + Return "" + Else + Return CType(Me(Me.tabletbl_yk.창호세부설명Column),String) + End If + End Get + Set + Me(Me.tabletbl_yk.창호세부설명Column) = value + End Set + End Property + + _ + Public Property 발코니창호여부() As Boolean + Get + If Me.Is발코니창호여부Null Then + Return false + Else + Return CType(Me(Me.tabletbl_yk.발코니창호여부Column),Boolean) + End If + End Get + Set + Me(Me.tabletbl_yk.발코니창호여부Column) = value + End Set + End Property + + _ + Public Property 발코니창호열관류율() As String + Get + If Me.Is발코니창호열관류율Null Then + Return "0" + Else + Return CType(Me(Me.tabletbl_yk.발코니창호열관류율Column),String) + End If + End Get + Set + Me(Me.tabletbl_yk.발코니창호열관류율Column) = value + End Set + End Property + + _ + Public Property 발코니투과율() As String + Get + If Me.Is발코니투과율Null Then + Return "0" + Else + Return CType(Me(Me.tabletbl_yk.발코니투과율Column),String) + End If + End Get + Set + Me(Me.tabletbl_yk.발코니투과율Column) = value + End Set + End Property + + _ + Public Property 투과율() As String + Get + If Me.Is투과율Null Then + Return "0" + Else + Return CType(Me(Me.tabletbl_yk.투과율Column),String) + End If + End Get + Set + Me(Me.tabletbl_yk.투과율Column) = value + End Set + End Property + + _ + Public Function Is설명Null() As Boolean + Return Me.IsNull(Me.tabletbl_yk.설명Column) + End Function + + _ + Public Sub Set설명Null() + Me(Me.tabletbl_yk.설명Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is열관류율Null() As Boolean + Return Me.IsNull(Me.tabletbl_yk.열관류율Column) + End Function + + _ + Public Sub Set열관류율Null() + Me(Me.tabletbl_yk.열관류율Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is면형태Null() As Boolean + Return Me.IsNull(Me.tabletbl_yk.면형태Column) + End Function + + _ + Public Sub Set면형태Null() + Me(Me.tabletbl_yk.면형태Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is창호열관류율Null() As Boolean + Return Me.IsNull(Me.tabletbl_yk.창호열관류율Column) + End Function + + _ + Public Sub Set창호열관류율Null() + Me(Me.tabletbl_yk.창호열관류율Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is일사에너지투과율Null() As Boolean + Return Me.IsNull(Me.tabletbl_yk.일사에너지투과율Column) + End Function + + _ + Public Sub Set일사에너지투과율Null() + Me(Me.tabletbl_yk.일사에너지투과율Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is창호세부설명Null() As Boolean + Return Me.IsNull(Me.tabletbl_yk.창호세부설명Column) + End Function + + _ + Public Sub Set창호세부설명Null() + Me(Me.tabletbl_yk.창호세부설명Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is발코니창호여부Null() As Boolean + Return Me.IsNull(Me.tabletbl_yk.발코니창호여부Column) + End Function + + _ + Public Sub Set발코니창호여부Null() + Me(Me.tabletbl_yk.발코니창호여부Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is발코니창호열관류율Null() As Boolean + Return Me.IsNull(Me.tabletbl_yk.발코니창호열관류율Column) + End Function + + _ + Public Sub Set발코니창호열관류율Null() + Me(Me.tabletbl_yk.발코니창호열관류율Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is발코니투과율Null() As Boolean + Return Me.IsNull(Me.tabletbl_yk.발코니투과율Column) + End Function + + _ + Public Sub Set발코니투과율Null() + Me(Me.tabletbl_yk.발코니투과율Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is투과율Null() As Boolean + Return Me.IsNull(Me.tabletbl_yk.투과율Column) + End Function + + _ + Public Sub Set투과율Null() + Me(Me.tabletbl_yk.투과율Column) = Global.System.Convert.DBNull + End Sub + End Class + + ''' + '''Represents strongly named DataRow class. + ''' + Partial Public Class tbl_ykdetailRow + Inherits Global.System.Data.DataRow + + Private tabletbl_ykdetail As tbl_ykdetailDataTable + + _ + Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) + MyBase.New(rb) + Me.tabletbl_ykdetail = CType(Me.Table,tbl_ykdetailDataTable) + End Sub + + _ + Public Property pcode() As String + Get + Return CType(Me(Me.tabletbl_ykdetail.pcodeColumn),String) + End Get + Set + Me(Me.tabletbl_ykdetail.pcodeColumn) = value + End Set + End Property + + _ + Public Property code() As String + Get + Return CType(Me(Me.tabletbl_ykdetail.codeColumn),String) + End Get + Set + Me(Me.tabletbl_ykdetail.codeColumn) = value + End Set + End Property + + _ + Public Property 설명() As String + Get + If Me.Is설명Null Then + Return "0" + Else + Return CType(Me(Me.tabletbl_ykdetail.설명Column),String) + End If + End Get + Set + Me(Me.tabletbl_ykdetail.설명Column) = value + End Set + End Property + + _ + Public Property 열전도율() As String + Get + If Me.Is열전도율Null Then + Return "1" + Else + Return CType(Me(Me.tabletbl_ykdetail.열전도율Column),String) + End If + End Get + Set + Me(Me.tabletbl_ykdetail.열전도율Column) = value + End Set + End Property + + _ + Public Property 두께() As String + Get + If Me.Is두께Null Then + Return "10" + Else + Return CType(Me(Me.tabletbl_ykdetail.두께Column),String) + End If + End Get + Set + Me(Me.tabletbl_ykdetail.두께Column) = value + End Set + End Property + + _ + Public Property 구분() As String + Get + If Me.Is구분Null Then + Return "5" + Else + Return CType(Me(Me.tabletbl_ykdetail.구분Column),String) + End If + End Get + Set + Me(Me.tabletbl_ykdetail.구분Column) = value + End Set + End Property + + _ + Public Property 열저항() As String + Get + Try + Return CType(Me(Me.tabletbl_ykdetail.열저항Column),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("'tbl_ykdetail' 테이블의 '열저항' 열의 값이 DBNull입니다.", e) + End Try + End Get + Set + Me(Me.tabletbl_ykdetail.열저항Column) = value + End Set + End Property + + _ + Public Property 전경색() As String + Get + If Me.Is전경색Null Then + Return "-16776961" + Else + Return CType(Me(Me.tabletbl_ykdetail.전경색Column),String) + End If + End Get + Set + Me(Me.tabletbl_ykdetail.전경색Column) = value + End Set + End Property + + _ + Public Property 후경색() As String + Get + If Me.Is후경색Null Then + Return "-1" + Else + Return CType(Me(Me.tabletbl_ykdetail.후경색Column),String) + End If + End Get + Set + Me(Me.tabletbl_ykdetail.후경색Column) = value + End Set + End Property + + _ + Public Property 커스텀() As String + Get + If Me.Is커스텀Null Then + Return "N" + Else + Return CType(Me(Me.tabletbl_ykdetail.커스텀Column),String) + End If + End Get + Set + Me(Me.tabletbl_ykdetail.커스텀Column) = value + End Set + End Property + + _ + Public Function Is설명Null() As Boolean + Return Me.IsNull(Me.tabletbl_ykdetail.설명Column) + End Function + + _ + Public Sub Set설명Null() + Me(Me.tabletbl_ykdetail.설명Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is열전도율Null() As Boolean + Return Me.IsNull(Me.tabletbl_ykdetail.열전도율Column) + End Function + + _ + Public Sub Set열전도율Null() + Me(Me.tabletbl_ykdetail.열전도율Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is두께Null() As Boolean + Return Me.IsNull(Me.tabletbl_ykdetail.두께Column) + End Function + + _ + Public Sub Set두께Null() + Me(Me.tabletbl_ykdetail.두께Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is구분Null() As Boolean + Return Me.IsNull(Me.tabletbl_ykdetail.구분Column) + End Function + + _ + Public Sub Set구분Null() + Me(Me.tabletbl_ykdetail.구분Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is열저항Null() As Boolean + Return Me.IsNull(Me.tabletbl_ykdetail.열저항Column) + End Function + + _ + Public Sub Set열저항Null() + Me(Me.tabletbl_ykdetail.열저항Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is전경색Null() As Boolean + Return Me.IsNull(Me.tabletbl_ykdetail.전경색Column) + End Function + + _ + Public Sub Set전경색Null() + Me(Me.tabletbl_ykdetail.전경색Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is후경색Null() As Boolean + Return Me.IsNull(Me.tabletbl_ykdetail.후경색Column) + End Function + + _ + Public Sub Set후경색Null() + Me(Me.tabletbl_ykdetail.후경색Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is커스텀Null() As Boolean + Return Me.IsNull(Me.tabletbl_ykdetail.커스텀Column) + End Function + + _ + Public Sub Set커스텀Null() + Me(Me.tabletbl_ykdetail.커스텀Column) = Global.System.Convert.DBNull + End Sub + End Class + + ''' + '''Represents strongly named DataRow class. + ''' + Partial Public Class tbl_zoneRow + Inherits Global.System.Data.DataRow + + Private tabletbl_zone As tbl_zoneDataTable + + _ + Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) + MyBase.New(rb) + Me.tabletbl_zone = CType(Me.Table,tbl_zoneDataTable) + End Sub + + _ + Public Property code() As String + Get + Return CType(Me(Me.tabletbl_zone.codeColumn),String) + End Get + Set + Me(Me.tabletbl_zone.codeColumn) = value + End Set + End Property + + _ + Public Property 설명() As String + Get + If Me.Is설명Null Then + Return "" + Else + Return CType(Me(Me.tabletbl_zone.설명Column),String) + End If + End Get + Set + Me(Me.tabletbl_zone.설명Column) = value + End Set + End Property + + _ + Public Property 프로필() As String + Get + If Me.Is프로필Null Then + Return "0" + Else + Return CType(Me(Me.tabletbl_zone.프로필Column),String) + End If + End Get + Set + Me(Me.tabletbl_zone.프로필Column) = value + End Set + End Property + + _ + Public Property 면적() As String + Get + If Me.Is면적Null Then + Return "" + Else + Return CType(Me(Me.tabletbl_zone.면적Column),String) + End If + End Get + Set + Me(Me.tabletbl_zone.면적Column) = value + End Set + End Property + + _ + Public Property 천장고p() As String + Get + If Me.Is천장고pNull Then + Return "" + Else + Return CType(Me(Me.tabletbl_zone.천장고pColumn),String) + End If + End Get + Set + Me(Me.tabletbl_zone.천장고pColumn) = value + End Set + End Property + + _ + Public Property 순실체적() As String + Get + If Me.Is순실체적Null Then + Return "" + Else + Return CType(Me(Me.tabletbl_zone.순실체적Column),String) + End If + End Get + Set + Me(Me.tabletbl_zone.순실체적Column) = value + End Set + End Property + + _ + Public Property 열저장능력() As String + Get + If Me.Is열저장능력Null Then + Return "0" + Else + Return CType(Me(Me.tabletbl_zone.열저장능력Column),String) + End If + End Get + Set + Me(Me.tabletbl_zone.열저장능력Column) = value + End Set + End Property + + _ + Public Property 열교가산치() As String + Get + If Me.Is열교가산치Null Then + Return "0" + Else + Return CType(Me(Me.tabletbl_zone.열교가산치Column),String) + End If + End Get + Set + Me(Me.tabletbl_zone.열교가산치Column) = value + End Set + End Property + + _ + Public Property 침기율() As String + Get + If Me.Is침기율Null Then + Return "0" + Else + Return CType(Me(Me.tabletbl_zone.침기율Column),String) + End If + End Get + Set + Me(Me.tabletbl_zone.침기율Column) = value + End Set + End Property + + _ + Public Property 냉난방방식() As String + Get + If Me.Is냉난방방식Null Then + Return "0" + Else + Return CType(Me(Me.tabletbl_zone.냉난방방식Column),String) + End If + End Get + Set + Me(Me.tabletbl_zone.냉난방방식Column) = value + End Set + End Property + + _ + Public Property 냉난방공조() As String + Get + If Me.Is냉난방공조Null Then + Return "0" + Else + Return CType(Me(Me.tabletbl_zone.냉난방공조Column),String) + End If + End Get + Set + Me(Me.tabletbl_zone.냉난방공조Column) = value + End Set + End Property + + _ + Public Property 외기부하처리여부() As String + Get + If Me.Is외기부하처리여부Null Then + Return "0" + Else + Return CType(Me(Me.tabletbl_zone.외기부하처리여부Column),String) + End If + End Get + Set + Me(Me.tabletbl_zone.외기부하처리여부Column) = value + End Set + End Property + + _ + Public Property 지역() As String + Get + If Me.Is지역Null Then + Return "" + Else + Return CType(Me(Me.tabletbl_zone.지역Column),String) + End If + End Get + Set + Me(Me.tabletbl_zone.지역Column) = value + End Set + End Property + + _ + Public Property 야간운전방식() As String + Get + If Me.Is야간운전방식Null Then + Return "0" + Else + Return CType(Me(Me.tabletbl_zone.야간운전방식Column),String) + End If + End Get + Set + Me(Me.tabletbl_zone.야간운전방식Column) = value + End Set + End Property + + _ + Public Property 주말운전방식() As String + Get + If Me.Is주말운전방식Null Then + Return "0" + Else + Return CType(Me(Me.tabletbl_zone.주말운전방식Column),String) + End If + End Get + Set + Me(Me.tabletbl_zone.주말운전방식Column) = value + End Set + End Property + + _ + Public Property 냉난방열공급시스템() As String + Get + If Me.Is냉난방열공급시스템Null Then + Return "0" + Else + Return CType(Me(Me.tabletbl_zone.냉난방열공급시스템Column),String) + End If + End Get + Set + Me(Me.tabletbl_zone.냉난방열공급시스템Column) = value + End Set + End Property + + _ + Public Property 냉난방열공급시스템수() As String + Get + If Me.Is냉난방열공급시스템수Null Then + Return "" + Else + Return CType(Me(Me.tabletbl_zone.냉난방열공급시스템수Column),String) + End If + End Get + Set + Me(Me.tabletbl_zone.냉난방열공급시스템수Column) = value + End Set + End Property + + _ + Public Property 냉난방공조처리시스템() As String + Get + If Me.Is냉난방공조처리시스템Null Then + Return "0" + Else + Return CType(Me(Me.tabletbl_zone.냉난방공조처리시스템Column),String) + End If + End Get + Set + Me(Me.tabletbl_zone.냉난방공조처리시스템Column) = value + End Set + End Property + + _ + Public Property 열생산난방생산기기() As String + Get + If Me.Is열생산난방생산기기Null Then + Return "0" + Else + Return CType(Me(Me.tabletbl_zone.열생산난방생산기기Column),String) + End If + End Get + Set + Me(Me.tabletbl_zone.열생산난방생산기기Column) = value + End Set + End Property + + _ + Public Property 공조냉방생산기기() As String + Get + Try + Return CType(Me(Me.tabletbl_zone.공조냉방생산기기Column),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("'tbl_zone' 테이블의 '공조냉방생산기기' 열의 값이 DBNull입니다.", e) + End Try + End Get + Set + Me(Me.tabletbl_zone.공조냉방생산기기Column) = value + End Set + End Property + + _ + Public Property 공조난방생산기기() As String + Get + Try + Return CType(Me(Me.tabletbl_zone.공조난방생산기기Column),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("'tbl_zone' 테이블의 '공조난방생산기기' 열의 값이 DBNull입니다.", e) + End Try + End Get + Set + Me(Me.tabletbl_zone.공조난방생산기기Column) = value + End Set + End Property + + _ + Public Property 열생산급탕생산기기() As String + Get + If Me.Is열생산급탕생산기기Null Then + Return "0" + Else + Return CType(Me(Me.tabletbl_zone.열생산급탕생산기기Column),String) + End If + End Get + Set + Me(Me.tabletbl_zone.열생산급탕생산기기Column) = value + End Set + End Property + + _ + Public Property 열생산냉방생산기기() As String + Get + If Me.Is열생산냉방생산기기Null Then + Return "0" + Else + Return CType(Me(Me.tabletbl_zone.열생산냉방생산기기Column),String) + End If + End Get + Set + Me(Me.tabletbl_zone.열생산냉방생산기기Column) = value + End Set + End Property + + _ + Public Property 열생산가습생산기기() As String + Get + If Me.Is열생산가습생산기기Null Then + Return "0" + Else + Return CType(Me(Me.tabletbl_zone.열생산가습생산기기Column),String) + End If + End Get + Set + Me(Me.tabletbl_zone.열생산가습생산기기Column) = value + End Set + End Property + + _ + Public Property 냉난방공조분배시스템() As String + Get + If Me.Is냉난방공조분배시스템Null Then + Return "0" + Else + Return CType(Me(Me.tabletbl_zone.냉난방공조분배시스템Column),String) + End If + End Get + Set + Me(Me.tabletbl_zone.냉난방공조분배시스템Column) = value + End Set + End Property + + _ + Public Property 냉난방분배시스템() As String + Get + If Me.Is냉난방분배시스템Null Then + Return "0" + Else + Return CType(Me(Me.tabletbl_zone.냉난방분배시스템Column),String) + End If + End Get + Set + Me(Me.tabletbl_zone.냉난방분배시스템Column) = value + End Set + End Property + + _ + Public Property 조명부하산출방법() As String + Get + If Me.Is조명부하산출방법Null Then + Return "0" + Else + Return CType(Me(Me.tabletbl_zone.조명부하산출방법Column),String) + End If + End Get + Set + Me(Me.tabletbl_zone.조명부하산출방법Column) = value + End Set + End Property + + _ + Public Property 요구조도() As String + Get + If Me.Is요구조도Null Then + Return "" + Else + Return CType(Me(Me.tabletbl_zone.요구조도Column),String) + End If + End Get + Set + Me(Me.tabletbl_zone.요구조도Column) = value + End Set + End Property + + _ + Public Property 천장고() As String + Get + If Me.Is천장고Null Then + Return "0" + Else + Return CType(Me(Me.tabletbl_zone.천장고Column),String) + End If + End Get + Set + Me(Me.tabletbl_zone.천장고Column) = value + End Set + End Property + + _ + Public Property 작업면높이() As String + Get + If Me.Is작업면높이Null Then + Return "0" + Else + Return CType(Me(Me.tabletbl_zone.작업면높이Column),String) + End If + End Get + Set + Me(Me.tabletbl_zone.작업면높이Column) = value + End Set + End Property + + _ + Public Property 실깊이() As String + Get + If Me.Is실깊이Null Then + Return "0" + Else + Return CType(Me(Me.tabletbl_zone.실깊이Column),String) + End If + End Get + Set + Me(Me.tabletbl_zone.실깊이Column) = value + End Set + End Property + + _ + Public Property 실너비() As String + Get + If Me.Is실너비Null Then + Return "0" + Else + Return CType(Me(Me.tabletbl_zone.실너비Column),String) + End If + End Get + Set + Me(Me.tabletbl_zone.실너비Column) = value + End Set + End Property + + _ + Public Property 실지수() As String + Get + If Me.Is실지수Null Then + Return "0" + Else + Return CType(Me(Me.tabletbl_zone.실지수Column),String) + End If + End Get + Set + Me(Me.tabletbl_zone.실지수Column) = value + End Set + End Property + + _ + Public Property 조명방식() As String + Get + If Me.Is조명방식Null Then + Return "0" + Else + Return CType(Me(Me.tabletbl_zone.조명방식Column),String) + End If + End Get + Set + Me(Me.tabletbl_zone.조명방식Column) = value + End Set + End Property + + _ + Public Property 인공광원() As String + Get + If Me.Is인공광원Null Then + Return "0" + Else + Return CType(Me(Me.tabletbl_zone.인공광원Column),String) + End If + End Get + Set + Me(Me.tabletbl_zone.인공광원Column) = value + End Set + End Property + + _ + Public Property 보수율() As String + Get + If Me.Is보수율Null Then + Return "0" + Else + Return CType(Me(Me.tabletbl_zone.보수율Column),String) + End If + End Get + Set + Me(Me.tabletbl_zone.보수율Column) = value + End Set + End Property + + _ + Public Property 조명기기효율() As String + Get + If Me.Is조명기기효율Null Then + Return "0" + Else + Return CType(Me(Me.tabletbl_zone.조명기기효율Column),String) + End If + End Get + Set + Me(Me.tabletbl_zone.조명기기효율Column) = value + End Set + End Property + + _ + Public Property 조명률() As String + Get + If Me.Is조명률Null Then + Return "0" + Else + Return CType(Me(Me.tabletbl_zone.조명률Column),String) + End If + End Get + Set + Me(Me.tabletbl_zone.조명률Column) = value + End Set + End Property + + _ + Public Property 조명에너지부하율계산치() As String + Get + If Me.Is조명에너지부하율계산치Null Then + Return "0" + Else + Return CType(Me(Me.tabletbl_zone.조명에너지부하율계산치Column),String) + End If + End Get + Set + Me(Me.tabletbl_zone.조명에너지부하율계산치Column) = value + End Set + End Property + + _ + Public Property 조명에너지부하율입력치() As String + Get + If Me.Is조명에너지부하율입력치Null Then + Return "0" + Else + Return CType(Me(Me.tabletbl_zone.조명에너지부하율입력치Column),String) + End If + End Get + Set + Me(Me.tabletbl_zone.조명에너지부하율입력치Column) = value + End Set + End Property + + _ + Public Property 입력존의수() As String + Get + If Me.Is입력존의수Null Then + Return "1" + Else + Return CType(Me(Me.tabletbl_zone.입력존의수Column),String) + End If + End Get + Set + Me(Me.tabletbl_zone.입력존의수Column) = value + End Set + End Property + + _ + Public Property 그룹() As String + Get + If Me.Is그룹Null Then + Return "일반" + Else + Return CType(Me(Me.tabletbl_zone.그룹Column),String) + End If + End Get + Set + Me(Me.tabletbl_zone.그룹Column) = value + End Set + End Property + + _ + Public Property sortkey() As UShort + Get + If Me.IssortkeyNull Then + Return 1US + Else + Return CType(Me(Me.tabletbl_zone.sortkeyColumn),UShort) + End If + End Get + Set + Me(Me.tabletbl_zone.sortkeyColumn) = value + End Set + End Property + + _ + Public Property 그룹설명() As String + Get + If Me.Is그룹설명Null Then + Return "" + Else + Return CType(Me(Me.tabletbl_zone.그룹설명Column),String) + End If + End Get + Set + Me(Me.tabletbl_zone.그룹설명Column) = value + End Set + End Property + + _ + Public Function Is설명Null() As Boolean + Return Me.IsNull(Me.tabletbl_zone.설명Column) + End Function + + _ + Public Sub Set설명Null() + Me(Me.tabletbl_zone.설명Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is프로필Null() As Boolean + Return Me.IsNull(Me.tabletbl_zone.프로필Column) + End Function + + _ + Public Sub Set프로필Null() + Me(Me.tabletbl_zone.프로필Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is면적Null() As Boolean + Return Me.IsNull(Me.tabletbl_zone.면적Column) + End Function + + _ + Public Sub Set면적Null() + Me(Me.tabletbl_zone.면적Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is천장고pNull() As Boolean + Return Me.IsNull(Me.tabletbl_zone.천장고pColumn) + End Function + + _ + Public Sub Set천장고pNull() + Me(Me.tabletbl_zone.천장고pColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is순실체적Null() As Boolean + Return Me.IsNull(Me.tabletbl_zone.순실체적Column) + End Function + + _ + Public Sub Set순실체적Null() + Me(Me.tabletbl_zone.순실체적Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is열저장능력Null() As Boolean + Return Me.IsNull(Me.tabletbl_zone.열저장능력Column) + End Function + + _ + Public Sub Set열저장능력Null() + Me(Me.tabletbl_zone.열저장능력Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is열교가산치Null() As Boolean + Return Me.IsNull(Me.tabletbl_zone.열교가산치Column) + End Function + + _ + Public Sub Set열교가산치Null() + Me(Me.tabletbl_zone.열교가산치Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is침기율Null() As Boolean + Return Me.IsNull(Me.tabletbl_zone.침기율Column) + End Function + + _ + Public Sub Set침기율Null() + Me(Me.tabletbl_zone.침기율Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is냉난방방식Null() As Boolean + Return Me.IsNull(Me.tabletbl_zone.냉난방방식Column) + End Function + + _ + Public Sub Set냉난방방식Null() + Me(Me.tabletbl_zone.냉난방방식Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is냉난방공조Null() As Boolean + Return Me.IsNull(Me.tabletbl_zone.냉난방공조Column) + End Function + + _ + Public Sub Set냉난방공조Null() + Me(Me.tabletbl_zone.냉난방공조Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is외기부하처리여부Null() As Boolean + Return Me.IsNull(Me.tabletbl_zone.외기부하처리여부Column) + End Function + + _ + Public Sub Set외기부하처리여부Null() + Me(Me.tabletbl_zone.외기부하처리여부Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is지역Null() As Boolean + Return Me.IsNull(Me.tabletbl_zone.지역Column) + End Function + + _ + Public Sub Set지역Null() + Me(Me.tabletbl_zone.지역Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is야간운전방식Null() As Boolean + Return Me.IsNull(Me.tabletbl_zone.야간운전방식Column) + End Function + + _ + Public Sub Set야간운전방식Null() + Me(Me.tabletbl_zone.야간운전방식Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is주말운전방식Null() As Boolean + Return Me.IsNull(Me.tabletbl_zone.주말운전방식Column) + End Function + + _ + Public Sub Set주말운전방식Null() + Me(Me.tabletbl_zone.주말운전방식Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is냉난방열공급시스템Null() As Boolean + Return Me.IsNull(Me.tabletbl_zone.냉난방열공급시스템Column) + End Function + + _ + Public Sub Set냉난방열공급시스템Null() + Me(Me.tabletbl_zone.냉난방열공급시스템Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is냉난방열공급시스템수Null() As Boolean + Return Me.IsNull(Me.tabletbl_zone.냉난방열공급시스템수Column) + End Function + + _ + Public Sub Set냉난방열공급시스템수Null() + Me(Me.tabletbl_zone.냉난방열공급시스템수Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is냉난방공조처리시스템Null() As Boolean + Return Me.IsNull(Me.tabletbl_zone.냉난방공조처리시스템Column) + End Function + + _ + Public Sub Set냉난방공조처리시스템Null() + Me(Me.tabletbl_zone.냉난방공조처리시스템Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is열생산난방생산기기Null() As Boolean + Return Me.IsNull(Me.tabletbl_zone.열생산난방생산기기Column) + End Function + + _ + Public Sub Set열생산난방생산기기Null() + Me(Me.tabletbl_zone.열생산난방생산기기Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is공조냉방생산기기Null() As Boolean + Return Me.IsNull(Me.tabletbl_zone.공조냉방생산기기Column) + End Function + + _ + Public Sub Set공조냉방생산기기Null() + Me(Me.tabletbl_zone.공조냉방생산기기Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is공조난방생산기기Null() As Boolean + Return Me.IsNull(Me.tabletbl_zone.공조난방생산기기Column) + End Function + + _ + Public Sub Set공조난방생산기기Null() + Me(Me.tabletbl_zone.공조난방생산기기Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is열생산급탕생산기기Null() As Boolean + Return Me.IsNull(Me.tabletbl_zone.열생산급탕생산기기Column) + End Function + + _ + Public Sub Set열생산급탕생산기기Null() + Me(Me.tabletbl_zone.열생산급탕생산기기Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is열생산냉방생산기기Null() As Boolean + Return Me.IsNull(Me.tabletbl_zone.열생산냉방생산기기Column) + End Function + + _ + Public Sub Set열생산냉방생산기기Null() + Me(Me.tabletbl_zone.열생산냉방생산기기Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is열생산가습생산기기Null() As Boolean + Return Me.IsNull(Me.tabletbl_zone.열생산가습생산기기Column) + End Function + + _ + Public Sub Set열생산가습생산기기Null() + Me(Me.tabletbl_zone.열생산가습생산기기Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is냉난방공조분배시스템Null() As Boolean + Return Me.IsNull(Me.tabletbl_zone.냉난방공조분배시스템Column) + End Function + + _ + Public Sub Set냉난방공조분배시스템Null() + Me(Me.tabletbl_zone.냉난방공조분배시스템Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is냉난방분배시스템Null() As Boolean + Return Me.IsNull(Me.tabletbl_zone.냉난방분배시스템Column) + End Function + + _ + Public Sub Set냉난방분배시스템Null() + Me(Me.tabletbl_zone.냉난방분배시스템Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is조명부하산출방법Null() As Boolean + Return Me.IsNull(Me.tabletbl_zone.조명부하산출방법Column) + End Function + + _ + Public Sub Set조명부하산출방법Null() + Me(Me.tabletbl_zone.조명부하산출방법Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is요구조도Null() As Boolean + Return Me.IsNull(Me.tabletbl_zone.요구조도Column) + End Function + + _ + Public Sub Set요구조도Null() + Me(Me.tabletbl_zone.요구조도Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is천장고Null() As Boolean + Return Me.IsNull(Me.tabletbl_zone.천장고Column) + End Function + + _ + Public Sub Set천장고Null() + Me(Me.tabletbl_zone.천장고Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is작업면높이Null() As Boolean + Return Me.IsNull(Me.tabletbl_zone.작업면높이Column) + End Function + + _ + Public Sub Set작업면높이Null() + Me(Me.tabletbl_zone.작업면높이Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is실깊이Null() As Boolean + Return Me.IsNull(Me.tabletbl_zone.실깊이Column) + End Function + + _ + Public Sub Set실깊이Null() + Me(Me.tabletbl_zone.실깊이Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is실너비Null() As Boolean + Return Me.IsNull(Me.tabletbl_zone.실너비Column) + End Function + + _ + Public Sub Set실너비Null() + Me(Me.tabletbl_zone.실너비Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is실지수Null() As Boolean + Return Me.IsNull(Me.tabletbl_zone.실지수Column) + End Function + + _ + Public Sub Set실지수Null() + Me(Me.tabletbl_zone.실지수Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is조명방식Null() As Boolean + Return Me.IsNull(Me.tabletbl_zone.조명방식Column) + End Function + + _ + Public Sub Set조명방식Null() + Me(Me.tabletbl_zone.조명방식Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is인공광원Null() As Boolean + Return Me.IsNull(Me.tabletbl_zone.인공광원Column) + End Function + + _ + Public Sub Set인공광원Null() + Me(Me.tabletbl_zone.인공광원Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is보수율Null() As Boolean + Return Me.IsNull(Me.tabletbl_zone.보수율Column) + End Function + + _ + Public Sub Set보수율Null() + Me(Me.tabletbl_zone.보수율Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is조명기기효율Null() As Boolean + Return Me.IsNull(Me.tabletbl_zone.조명기기효율Column) + End Function + + _ + Public Sub Set조명기기효율Null() + Me(Me.tabletbl_zone.조명기기효율Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is조명률Null() As Boolean + Return Me.IsNull(Me.tabletbl_zone.조명률Column) + End Function + + _ + Public Sub Set조명률Null() + Me(Me.tabletbl_zone.조명률Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is조명에너지부하율계산치Null() As Boolean + Return Me.IsNull(Me.tabletbl_zone.조명에너지부하율계산치Column) + End Function + + _ + Public Sub Set조명에너지부하율계산치Null() + Me(Me.tabletbl_zone.조명에너지부하율계산치Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is조명에너지부하율입력치Null() As Boolean + Return Me.IsNull(Me.tabletbl_zone.조명에너지부하율입력치Column) + End Function + + _ + Public Sub Set조명에너지부하율입력치Null() + Me(Me.tabletbl_zone.조명에너지부하율입력치Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is입력존의수Null() As Boolean + Return Me.IsNull(Me.tabletbl_zone.입력존의수Column) + End Function + + _ + Public Sub Set입력존의수Null() + Me(Me.tabletbl_zone.입력존의수Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is그룹Null() As Boolean + Return Me.IsNull(Me.tabletbl_zone.그룹Column) + End Function + + _ + Public Sub Set그룹Null() + Me(Me.tabletbl_zone.그룹Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IssortkeyNull() As Boolean + Return Me.IsNull(Me.tabletbl_zone.sortkeyColumn) + End Function + + _ + Public Sub SetsortkeyNull() + Me(Me.tabletbl_zone.sortkeyColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is그룹설명Null() As Boolean + Return Me.IsNull(Me.tabletbl_zone.그룹설명Column) + End Function + + _ + Public Sub Set그룹설명Null() + Me(Me.tabletbl_zone.그룹설명Column) = Global.System.Convert.DBNull + End Sub + End Class + + ''' + '''Represents strongly named DataRow class. + ''' + Partial Public Class tbl_monuseRow + Inherits Global.System.Data.DataRow + + Private tabletbl_monuse As tbl_monuseDataTable + + _ + Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) + MyBase.New(rb) + Me.tabletbl_monuse = CType(Me.Table,tbl_monuseDataTable) + End Sub + + _ + Public Property 년() As String + Get + Return CType(Me(Me.tabletbl_monuse.년Column),String) + End Get + Set + Me(Me.tabletbl_monuse.년Column) = value + End Set + End Property + + _ + Public Property 월() As String + Get + Return CType(Me(Me.tabletbl_monuse.월Column),String) + End Get + Set + Me(Me.tabletbl_monuse.월Column) = value + End Set + End Property + + _ + Public Property 도시가스() As String + Get + If Me.Is도시가스Null Then + Return "" + Else + Return CType(Me(Me.tabletbl_monuse.도시가스Column),String) + End If + End Get + Set + Me(Me.tabletbl_monuse.도시가스Column) = value + End Set + End Property + + _ + Public Property 전력() As String + Get + If Me.Is전력Null Then + Return "" + Else + Return CType(Me(Me.tabletbl_monuse.전력Column),String) + End If + End Get + Set + Me(Me.tabletbl_monuse.전력Column) = value + End Set + End Property + + _ + Public Property 지역난방() As String + Get + If Me.Is지역난방Null Then + Return "" + Else + Return CType(Me(Me.tabletbl_monuse.지역난방Column),String) + End If + End Get + Set + Me(Me.tabletbl_monuse.지역난방Column) = value + End Set + End Property + + _ + Public Property code() As String + Get + Return CType(Me(Me.tabletbl_monuse.codeColumn),String) + End Get + Set + Me(Me.tabletbl_monuse.codeColumn) = value + End Set + End Property + + _ + Public Function Is도시가스Null() As Boolean + Return Me.IsNull(Me.tabletbl_monuse.도시가스Column) + End Function + + _ + Public Sub Set도시가스Null() + Me(Me.tabletbl_monuse.도시가스Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is전력Null() As Boolean + Return Me.IsNull(Me.tabletbl_monuse.전력Column) + End Function + + _ + Public Sub Set전력Null() + Me(Me.tabletbl_monuse.전력Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is지역난방Null() As Boolean + Return Me.IsNull(Me.tabletbl_monuse.지역난방Column) + End Function + + _ + Public Sub Set지역난방Null() + Me(Me.tabletbl_monuse.지역난방Column) = Global.System.Convert.DBNull + End Sub + End Class + + ''' + '''Represents strongly named DataRow class. + ''' + Partial Public Class tbl_DescRow + Inherits Global.System.Data.DataRow + + Private tabletbl_Desc As tbl_DescDataTable + + _ + Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) + MyBase.New(rb) + Me.tabletbl_Desc = CType(Me.Table,tbl_DescDataTable) + End Sub + + _ + Public Property cname() As String + Get + If Me.IscnameNull Then + Return "" + Else + Return CType(Me(Me.tabletbl_Desc.cnameColumn),String) + End If + End Get + Set + Me(Me.tabletbl_Desc.cnameColumn) = value + End Set + End Property + + _ + Public Property addr() As String + Get + If Me.IsaddrNull Then + Return "" + Else + Return CType(Me(Me.tabletbl_Desc.addrColumn),String) + End If + End Get + Set + Me(Me.tabletbl_Desc.addrColumn) = value + End Set + End Property + + _ + Public Property reqdate() As String + Get + If Me.IsreqdateNull Then + Return "" + Else + Return CType(Me(Me.tabletbl_Desc.reqdateColumn),String) + End If + End Get + Set + Me(Me.tabletbl_Desc.reqdateColumn) = value + End Set + End Property + + _ + Public Property buildname() As String + Get + If Me.IsbuildnameNull Then + Return "" + Else + Return CType(Me(Me.tabletbl_Desc.buildnameColumn),String) + End If + End Get + Set + Me(Me.tabletbl_Desc.buildnameColumn) = value + End Set + End Property + + _ + Public Property buildarea() As String + Get + If Me.IsbuildareaNull Then + Return "" + Else + Return CType(Me(Me.tabletbl_Desc.buildareaColumn),String) + End If + End Get + Set + Me(Me.tabletbl_Desc.buildareaColumn) = value + End Set + End Property + + _ + Public Property buildaddr() As String + Get + If Me.IsbuildaddrNull Then + Return "" + Else + Return CType(Me(Me.tabletbl_Desc.buildaddrColumn),String) + End If + End Get + Set + Me(Me.tabletbl_Desc.buildaddrColumn) = value + End Set + End Property + + _ + Public Property buildm21() As String + Get + If Me.Isbuildm21Null Then + Return "" + Else + Return CType(Me(Me.tabletbl_Desc.buildm21Column),String) + End If + End Get + Set + Me(Me.tabletbl_Desc.buildm21Column) = value + End Set + End Property + + _ + Public Property buildm22() As String + Get + If Me.Isbuildm22Null Then + Return "" + Else + Return CType(Me(Me.tabletbl_Desc.buildm22Column),String) + End If + End Get + Set + Me(Me.tabletbl_Desc.buildm22Column) = value + End Set + End Property + + _ + Public Property buildm23() As String + Get + If Me.Isbuildm23Null Then + Return "" + Else + Return CType(Me(Me.tabletbl_Desc.buildm23Column),String) + End If + End Get + Set + Me(Me.tabletbl_Desc.buildm23Column) = value + End Set + End Property + + _ + Public Property builds1() As String + Get + If Me.Isbuilds1Null Then + Return "" + Else + Return CType(Me(Me.tabletbl_Desc.builds1Column),String) + End If + End Get + Set + Me(Me.tabletbl_Desc.builds1Column) = value + End Set + End Property + + _ + Public Property builds2() As String + Get + If Me.Isbuilds2Null Then + Return "" + Else + Return CType(Me(Me.tabletbl_Desc.builds2Column),String) + End If + End Get + Set + Me(Me.tabletbl_Desc.builds2Column) = value + End Set + End Property + + _ + Public Property dungno() As String + Get + If Me.IsdungnoNull Then + Return "" + Else + Return CType(Me(Me.tabletbl_Desc.dungnoColumn),String) + End If + End Get + Set + Me(Me.tabletbl_Desc.dungnoColumn) = value + End Set + End Property + + _ + Public Property pname() As String + Get + If Me.IspnameNull Then + Return "" + Else + Return CType(Me(Me.tabletbl_Desc.pnameColumn),String) + End If + End Get + Set + Me(Me.tabletbl_Desc.pnameColumn) = value + End Set + End Property + + _ + Public Property name() As String + Get + If Me.IsnameNull Then + Return "" + Else + Return CType(Me(Me.tabletbl_Desc.nameColumn),String) + End If + End Get + Set + Me(Me.tabletbl_Desc.nameColumn) = value + End Set + End Property + + _ + Public Property dept() As String + Get + If Me.IsdeptNull Then + Return "" + Else + Return CType(Me(Me.tabletbl_Desc.deptColumn),String) + End If + End Get + Set + Me(Me.tabletbl_Desc.deptColumn) = value + End Set + End Property + + _ + Public Property grade() As String + Get + If Me.IsgradeNull Then + Return "" + Else + Return CType(Me(Me.tabletbl_Desc.gradeColumn),String) + End If + End Get + Set + Me(Me.tabletbl_Desc.gradeColumn) = value + End Set + End Property + + _ + Public Property tel() As String + Get + If Me.IstelNull Then + Return "" + Else + Return CType(Me(Me.tabletbl_Desc.telColumn),String) + End If + End Get + Set + Me(Me.tabletbl_Desc.telColumn) = value + End Set + End Property + + _ + Public Property fax() As String + Get + If Me.IsfaxNull Then + Return "" + Else + Return CType(Me(Me.tabletbl_Desc.faxColumn),String) + End If + End Get + Set + Me(Me.tabletbl_Desc.faxColumn) = value + End Set + End Property + + _ + Public Property email() As String + Get + If Me.IsemailNull Then + Return "" + Else + Return CType(Me(Me.tabletbl_Desc.emailColumn),String) + End If + End Get + Set + Me(Me.tabletbl_Desc.emailColumn) = value + End Set + End Property + + _ + Public Property versionc() As String + Get + If Me.IsversioncNull Then + Return "20100101" + Else + Return CType(Me(Me.tabletbl_Desc.versioncColumn),String) + End If + End Get + Set + Me(Me.tabletbl_Desc.versioncColumn) = value + End Set + End Property + + _ + Public Property versionw() As String + Get + If Me.IsversionwNull Then + Return "20100101" + Else + Return CType(Me(Me.tabletbl_Desc.versionwColumn),String) + End If + End Get + Set + Me(Me.tabletbl_Desc.versionwColumn) = value + End Set + End Property + + _ + Public Property versionp() As String + Get + Try + Return CType(Me(Me.tabletbl_Desc.versionpColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("'tbl_Desc' 테이블의 'versionp' 열의 값이 DBNull입니다.", e) + End Try + End Get + Set + Me(Me.tabletbl_Desc.versionpColumn) = value + End Set + End Property + + _ + Public Property priod() As String + Get + If Me.IspriodNull Then + Return "" + Else + Return CType(Me(Me.tabletbl_Desc.priodColumn),String) + End If + End Get + Set + Me(Me.tabletbl_Desc.priodColumn) = value + End Set + End Property + + _ + Public Property existdate() As String + Get + If Me.IsexistdateNull Then + Return "" + Else + Return CType(Me(Me.tabletbl_Desc.existdateColumn),String) + End If + End Get + Set + Me(Me.tabletbl_Desc.existdateColumn) = value + End Set + End Property + + _ + Public Property jubsudate() As String + Get + If Me.IsjubsudateNull Then + Return "" + Else + Return CType(Me(Me.tabletbl_Desc.jubsudateColumn),String) + End If + End Get + Set + Me(Me.tabletbl_Desc.jubsudateColumn) = value + End Set + End Property + + _ + Public Property gujo() As String + Get + If Me.IsgujoNull Then + Return "" + Else + Return CType(Me(Me.tabletbl_Desc.gujoColumn),String) + End If + End Get + Set + Me(Me.tabletbl_Desc.gujoColumn) = value + End Set + End Property + + _ + Public Property injungdate() As String + Get + If Me.IsinjungdateNull Then + Return "" + Else + Return CType(Me(Me.tabletbl_Desc.injungdateColumn),String) + End If + End Get + Set + Me(Me.tabletbl_Desc.injungdateColumn) = value + End Set + End Property + + _ + Public Property 용도수수료입금일() As String + Get + If Me.Is용도수수료입금일Null Then + Return "" + Else + Return CType(Me(Me.tabletbl_Desc.용도수수료입금일Column),String) + End If + End Get + Set + Me(Me.tabletbl_Desc.용도수수료입금일Column) = value + End Set + End Property + + _ + Public Property 용도수수료입금액() As String + Get + If Me.Is용도수수료입금액Null Then + Return "" + Else + Return CType(Me(Me.tabletbl_Desc.용도수수료입금액Column),String) + End If + End Get + Set + Me(Me.tabletbl_Desc.용도수수료입금액Column) = value + End Set + End Property + + _ + Public Property isjugo() As String + Get + If Me.IsisjugoNull Then + Return "" + Else + Return CType(Me(Me.tabletbl_Desc.isjugoColumn),String) + End If + End Get + Set + Me(Me.tabletbl_Desc.isjugoColumn) = value + End Set + End Property + + _ + Public Property 인증기관() As String + Get + If Me.Is인증기관Null Then + Return "" + Else + Return CType(Me(Me.tabletbl_Desc.인증기관Column),String) + End If + End Get + Set + Me(Me.tabletbl_Desc.인증기관Column) = value + End Set + End Property + + _ + Public Property 주조명() As String + Get + If Me.Is주조명Null Then + Return "" + Else + Return CType(Me(Me.tabletbl_Desc.주조명Column),String) + End If + End Get + Set + Me(Me.tabletbl_Desc.주조명Column) = value + End Set + End Property + + _ + Public Property 공공() As String + Get + If Me.Is공공Null Then + Return "1" + Else + Return CType(Me(Me.tabletbl_Desc.공공Column),String) + End If + End Get + Set + Me(Me.tabletbl_Desc.공공Column) = value + End Set + End Property + + _ + Public Function IscnameNull() As Boolean + Return Me.IsNull(Me.tabletbl_Desc.cnameColumn) + End Function + + _ + Public Sub SetcnameNull() + Me(Me.tabletbl_Desc.cnameColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsaddrNull() As Boolean + Return Me.IsNull(Me.tabletbl_Desc.addrColumn) + End Function + + _ + Public Sub SetaddrNull() + Me(Me.tabletbl_Desc.addrColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsreqdateNull() As Boolean + Return Me.IsNull(Me.tabletbl_Desc.reqdateColumn) + End Function + + _ + Public Sub SetreqdateNull() + Me(Me.tabletbl_Desc.reqdateColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsbuildnameNull() As Boolean + Return Me.IsNull(Me.tabletbl_Desc.buildnameColumn) + End Function + + _ + Public Sub SetbuildnameNull() + Me(Me.tabletbl_Desc.buildnameColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsbuildareaNull() As Boolean + Return Me.IsNull(Me.tabletbl_Desc.buildareaColumn) + End Function + + _ + Public Sub SetbuildareaNull() + Me(Me.tabletbl_Desc.buildareaColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsbuildaddrNull() As Boolean + Return Me.IsNull(Me.tabletbl_Desc.buildaddrColumn) + End Function + + _ + Public Sub SetbuildaddrNull() + Me(Me.tabletbl_Desc.buildaddrColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Isbuildm21Null() As Boolean + Return Me.IsNull(Me.tabletbl_Desc.buildm21Column) + End Function + + _ + Public Sub Setbuildm21Null() + Me(Me.tabletbl_Desc.buildm21Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Isbuildm22Null() As Boolean + Return Me.IsNull(Me.tabletbl_Desc.buildm22Column) + End Function + + _ + Public Sub Setbuildm22Null() + Me(Me.tabletbl_Desc.buildm22Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Isbuildm23Null() As Boolean + Return Me.IsNull(Me.tabletbl_Desc.buildm23Column) + End Function + + _ + Public Sub Setbuildm23Null() + Me(Me.tabletbl_Desc.buildm23Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Isbuilds1Null() As Boolean + Return Me.IsNull(Me.tabletbl_Desc.builds1Column) + End Function + + _ + Public Sub Setbuilds1Null() + Me(Me.tabletbl_Desc.builds1Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Isbuilds2Null() As Boolean + Return Me.IsNull(Me.tabletbl_Desc.builds2Column) + End Function + + _ + Public Sub Setbuilds2Null() + Me(Me.tabletbl_Desc.builds2Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsdungnoNull() As Boolean + Return Me.IsNull(Me.tabletbl_Desc.dungnoColumn) + End Function + + _ + Public Sub SetdungnoNull() + Me(Me.tabletbl_Desc.dungnoColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IspnameNull() As Boolean + Return Me.IsNull(Me.tabletbl_Desc.pnameColumn) + End Function + + _ + Public Sub SetpnameNull() + Me(Me.tabletbl_Desc.pnameColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsnameNull() As Boolean + Return Me.IsNull(Me.tabletbl_Desc.nameColumn) + End Function + + _ + Public Sub SetnameNull() + Me(Me.tabletbl_Desc.nameColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsdeptNull() As Boolean + Return Me.IsNull(Me.tabletbl_Desc.deptColumn) + End Function + + _ + Public Sub SetdeptNull() + Me(Me.tabletbl_Desc.deptColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsgradeNull() As Boolean + Return Me.IsNull(Me.tabletbl_Desc.gradeColumn) + End Function + + _ + Public Sub SetgradeNull() + Me(Me.tabletbl_Desc.gradeColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IstelNull() As Boolean + Return Me.IsNull(Me.tabletbl_Desc.telColumn) + End Function + + _ + Public Sub SettelNull() + Me(Me.tabletbl_Desc.telColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsfaxNull() As Boolean + Return Me.IsNull(Me.tabletbl_Desc.faxColumn) + End Function + + _ + Public Sub SetfaxNull() + Me(Me.tabletbl_Desc.faxColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsemailNull() As Boolean + Return Me.IsNull(Me.tabletbl_Desc.emailColumn) + End Function + + _ + Public Sub SetemailNull() + Me(Me.tabletbl_Desc.emailColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsversioncNull() As Boolean + Return Me.IsNull(Me.tabletbl_Desc.versioncColumn) + End Function + + _ + Public Sub SetversioncNull() + Me(Me.tabletbl_Desc.versioncColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsversionwNull() As Boolean + Return Me.IsNull(Me.tabletbl_Desc.versionwColumn) + End Function + + _ + Public Sub SetversionwNull() + Me(Me.tabletbl_Desc.versionwColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsversionpNull() As Boolean + Return Me.IsNull(Me.tabletbl_Desc.versionpColumn) + End Function + + _ + Public Sub SetversionpNull() + Me(Me.tabletbl_Desc.versionpColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IspriodNull() As Boolean + Return Me.IsNull(Me.tabletbl_Desc.priodColumn) + End Function + + _ + Public Sub SetpriodNull() + Me(Me.tabletbl_Desc.priodColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsexistdateNull() As Boolean + Return Me.IsNull(Me.tabletbl_Desc.existdateColumn) + End Function + + _ + Public Sub SetexistdateNull() + Me(Me.tabletbl_Desc.existdateColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsjubsudateNull() As Boolean + Return Me.IsNull(Me.tabletbl_Desc.jubsudateColumn) + End Function + + _ + Public Sub SetjubsudateNull() + Me(Me.tabletbl_Desc.jubsudateColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsgujoNull() As Boolean + Return Me.IsNull(Me.tabletbl_Desc.gujoColumn) + End Function + + _ + Public Sub SetgujoNull() + Me(Me.tabletbl_Desc.gujoColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsinjungdateNull() As Boolean + Return Me.IsNull(Me.tabletbl_Desc.injungdateColumn) + End Function + + _ + Public Sub SetinjungdateNull() + Me(Me.tabletbl_Desc.injungdateColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is용도수수료입금일Null() As Boolean + Return Me.IsNull(Me.tabletbl_Desc.용도수수료입금일Column) + End Function + + _ + Public Sub Set용도수수료입금일Null() + Me(Me.tabletbl_Desc.용도수수료입금일Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is용도수수료입금액Null() As Boolean + Return Me.IsNull(Me.tabletbl_Desc.용도수수료입금액Column) + End Function + + _ + Public Sub Set용도수수료입금액Null() + Me(Me.tabletbl_Desc.용도수수료입금액Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsisjugoNull() As Boolean + Return Me.IsNull(Me.tabletbl_Desc.isjugoColumn) + End Function + + _ + Public Sub SetisjugoNull() + Me(Me.tabletbl_Desc.isjugoColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is인증기관Null() As Boolean + Return Me.IsNull(Me.tabletbl_Desc.인증기관Column) + End Function + + _ + Public Sub Set인증기관Null() + Me(Me.tabletbl_Desc.인증기관Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is주조명Null() As Boolean + Return Me.IsNull(Me.tabletbl_Desc.주조명Column) + End Function + + _ + Public Sub Set주조명Null() + Me(Me.tabletbl_Desc.주조명Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is공공Null() As Boolean + Return Me.IsNull(Me.tabletbl_Desc.공공Column) + End Function + + _ + Public Sub Set공공Null() + Me(Me.tabletbl_Desc.공공Column) = Global.System.Convert.DBNull + End Sub + End Class + + ''' + '''Row event argument class + ''' + _ + Public Class weather_chaRowChangeEvent + Inherits Global.System.EventArgs + + Private eventRow As weather_chaRow + + Private eventAction As Global.System.Data.DataRowAction + + _ + Public Sub New(ByVal row As weather_chaRow, ByVal action As Global.System.Data.DataRowAction) + MyBase.New + Me.eventRow = row + Me.eventAction = action + End Sub + + _ + Public ReadOnly Property Row() As weather_chaRow + 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_tempRowChangeEvent + Inherits Global.System.EventArgs + + Private eventRow As weather_tempRow + + Private eventAction As Global.System.Data.DataRowAction + + _ + Public Sub New(ByVal row As weather_tempRow, ByVal action As Global.System.Data.DataRowAction) + MyBase.New + Me.eventRow = row + Me.eventAction = action + End Sub + + _ + Public ReadOnly Property Row() As weather_tempRow + 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 tbl_weatherRowChangeEvent + Inherits Global.System.EventArgs + + Private eventRow As tbl_weatherRow + + Private eventAction As Global.System.Data.DataRowAction + + _ + Public Sub New(ByVal row As tbl_weatherRow, ByVal action As Global.System.Data.DataRowAction) + MyBase.New + Me.eventRow = row + Me.eventAction = action + End Sub + + _ + Public ReadOnly Property Row() As tbl_weatherRow + 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_ilsaRowChangeEvent + Inherits Global.System.EventArgs + + Private eventRow As weather_ilsaRow + + Private eventAction As Global.System.Data.DataRowAction + + _ + Public Sub New(ByVal row As weather_ilsaRow, ByVal action As Global.System.Data.DataRowAction) + MyBase.New + Me.eventRow = row + Me.eventAction = action + End Sub + + _ + Public ReadOnly Property Row() As weather_ilsaRow + 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_supdoRowChangeEvent + Inherits Global.System.EventArgs + + Private eventRow As weather_supdoRow + + Private eventAction As Global.System.Data.DataRowAction + + _ + Public Sub New(ByVal row As weather_supdoRow, ByVal action As Global.System.Data.DataRowAction) + MyBase.New + Me.eventRow = row + Me.eventAction = action + End Sub + + _ + Public ReadOnly Property Row() As weather_supdoRow + 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 tbl_profileRowChangeEvent + Inherits Global.System.EventArgs + + Private eventRow As tbl_profileRow + + Private eventAction As Global.System.Data.DataRowAction + + _ + Public Sub New(ByVal row As tbl_profileRow, ByVal action As Global.System.Data.DataRowAction) + MyBase.New + Me.eventRow = row + Me.eventAction = action + End Sub + + _ + Public ReadOnly Property Row() As tbl_profileRow + 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 tbl_commonRowChangeEvent + Inherits Global.System.EventArgs + + Private eventRow As tbl_commonRow + + Private eventAction As Global.System.Data.DataRowAction + + _ + Public Sub New(ByVal row As tbl_commonRow, ByVal action As Global.System.Data.DataRowAction) + MyBase.New + Me.eventRow = row + Me.eventAction = action + End Sub + + _ + Public ReadOnly Property Row() As tbl_commonRow + 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 tbl_picRowChangeEvent + Inherits Global.System.EventArgs + + Private eventRow As tbl_picRow + + Private eventAction As Global.System.Data.DataRowAction + + _ + Public Sub New(ByVal row As tbl_picRow, ByVal action As Global.System.Data.DataRowAction) + MyBase.New + Me.eventRow = row + Me.eventAction = action + End Sub + + _ + Public ReadOnly Property Row() As tbl_picRow + 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 tbl_nanbangkikiRowChangeEvent + Inherits Global.System.EventArgs + + Private eventRow As tbl_nanbangkikiRow + + Private eventAction As Global.System.Data.DataRowAction + + _ + Public Sub New(ByVal row As tbl_nanbangkikiRow, ByVal action As Global.System.Data.DataRowAction) + MyBase.New + Me.eventRow = row + Me.eventAction = action + End Sub + + _ + Public ReadOnly Property Row() As tbl_nanbangkikiRow + 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 tbl_nangbangkikiRowChangeEvent + Inherits Global.System.EventArgs + + Private eventRow As tbl_nangbangkikiRow + + Private eventAction As Global.System.Data.DataRowAction + + _ + Public Sub New(ByVal row As tbl_nangbangkikiRow, ByVal action As Global.System.Data.DataRowAction) + MyBase.New + Me.eventRow = row + Me.eventAction = action + End Sub + + _ + Public ReadOnly Property Row() As tbl_nangbangkikiRow + 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 tbl_bunbaeRowChangeEvent + Inherits Global.System.EventArgs + + Private eventRow As tbl_bunbaeRow + + Private eventAction As Global.System.Data.DataRowAction + + _ + Public Sub New(ByVal row As tbl_bunbaeRow, ByVal action As Global.System.Data.DataRowAction) + MyBase.New + Me.eventRow = row + Me.eventAction = action + End Sub + + _ + Public ReadOnly Property Row() As tbl_bunbaeRow + 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 tbl_newRowChangeEvent + Inherits Global.System.EventArgs + + Private eventRow As tbl_newRow + + Private eventAction As Global.System.Data.DataRowAction + + _ + Public Sub New(ByVal row As tbl_newRow, ByVal action As Global.System.Data.DataRowAction) + MyBase.New + Me.eventRow = row + Me.eventAction = action + End Sub + + _ + Public ReadOnly Property Row() As tbl_newRow + 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 tbl_myounRowChangeEvent + Inherits Global.System.EventArgs + + Private eventRow As tbl_myounRow + + Private eventAction As Global.System.Data.DataRowAction + + _ + Public Sub New(ByVal row As tbl_myounRow, ByVal action As Global.System.Data.DataRowAction) + MyBase.New + Me.eventRow = row + Me.eventAction = action + End Sub + + _ + Public ReadOnly Property Row() As tbl_myounRow + 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 tbl_buhaRowChangeEvent + Inherits Global.System.EventArgs + + Private eventRow As tbl_buhaRow + + Private eventAction As Global.System.Data.DataRowAction + + _ + Public Sub New(ByVal row As tbl_buhaRow, ByVal action As Global.System.Data.DataRowAction) + MyBase.New + Me.eventRow = row + Me.eventAction = action + End Sub + + _ + Public ReadOnly Property Row() As tbl_buhaRow + 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 tbl_nbunbaeRowChangeEvent + Inherits Global.System.EventArgs + + Private eventRow As tbl_nbunbaeRow + + Private eventAction As Global.System.Data.DataRowAction + + _ + Public Sub New(ByVal row As tbl_nbunbaeRow, ByVal action As Global.System.Data.DataRowAction) + MyBase.New + Me.eventRow = row + Me.eventAction = action + End Sub + + _ + Public ReadOnly Property Row() As tbl_nbunbaeRow + 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 tbl_kongjoRowChangeEvent + Inherits Global.System.EventArgs + + Private eventRow As tbl_kongjoRow + + Private eventAction As Global.System.Data.DataRowAction + + _ + Public Sub New(ByVal row As tbl_kongjoRow, ByVal action As Global.System.Data.DataRowAction) + MyBase.New + Me.eventRow = row + Me.eventAction = action + End Sub + + _ + Public ReadOnly Property Row() As tbl_kongjoRow + 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 tbl_kongkubRowChangeEvent + Inherits Global.System.EventArgs + + Private eventRow As tbl_kongkubRow + + Private eventAction As Global.System.Data.DataRowAction + + _ + Public Sub New(ByVal row As tbl_kongkubRow, ByVal action As Global.System.Data.DataRowAction) + MyBase.New + Me.eventRow = row + Me.eventAction = action + End Sub + + _ + Public ReadOnly Property Row() As tbl_kongkubRow + 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 tbl_ykRowChangeEvent + Inherits Global.System.EventArgs + + Private eventRow As tbl_ykRow + + Private eventAction As Global.System.Data.DataRowAction + + _ + Public Sub New(ByVal row As tbl_ykRow, ByVal action As Global.System.Data.DataRowAction) + MyBase.New + Me.eventRow = row + Me.eventAction = action + End Sub + + _ + Public ReadOnly Property Row() As tbl_ykRow + 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 tbl_ykdetailRowChangeEvent + Inherits Global.System.EventArgs + + Private eventRow As tbl_ykdetailRow + + Private eventAction As Global.System.Data.DataRowAction + + _ + Public Sub New(ByVal row As tbl_ykdetailRow, ByVal action As Global.System.Data.DataRowAction) + MyBase.New + Me.eventRow = row + Me.eventAction = action + End Sub + + _ + Public ReadOnly Property Row() As tbl_ykdetailRow + 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 tbl_zoneRowChangeEvent + Inherits Global.System.EventArgs + + Private eventRow As tbl_zoneRow + + Private eventAction As Global.System.Data.DataRowAction + + _ + Public Sub New(ByVal row As tbl_zoneRow, ByVal action As Global.System.Data.DataRowAction) + MyBase.New + Me.eventRow = row + Me.eventAction = action + End Sub + + _ + Public ReadOnly Property Row() As tbl_zoneRow + 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 tbl_monuseRowChangeEvent + Inherits Global.System.EventArgs + + Private eventRow As tbl_monuseRow + + Private eventAction As Global.System.Data.DataRowAction + + _ + Public Sub New(ByVal row As tbl_monuseRow, ByVal action As Global.System.Data.DataRowAction) + MyBase.New + Me.eventRow = row + Me.eventAction = action + End Sub + + _ + Public ReadOnly Property Row() As tbl_monuseRow + 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 tbl_DescRowChangeEvent + Inherits Global.System.EventArgs + + Private eventRow As tbl_DescRow + + Private eventAction As Global.System.Data.DataRowAction + + _ + Public Sub New(ByVal row As tbl_DescRow, ByVal action As Global.System.Data.DataRowAction) + MyBase.New + Me.eventRow = row + Me.eventAction = action + End Sub + + _ + Public ReadOnly Property Row() As tbl_DescRow + 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 + + ''' + '''Represents the connection and commands used to retrieve and save data. + ''' + _ + Partial Public Class weather_chaTableAdapter + Inherits Global.System.ComponentModel.Component + + Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter + + Private _connection As Global.System.Data.SqlClient.SqlConnection + + Private _transaction As Global.System.Data.SqlClient.SqlTransaction + + Private _commandCollection() As Global.System.Data.SqlClient.SqlCommand + + Private _clearBeforeFill As Boolean + + _ + Public Sub New() + MyBase.New + Me.ClearBeforeFill = true + End Sub + + _ + Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter + Get + If (Me._adapter Is Nothing) Then + Me.InitAdapter + End If + Return Me._adapter + End Get + End Property + + _ + Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection + Get + If (Me._connection Is Nothing) Then + Me.InitConnection + End If + Return Me._connection + End Get + Set + Me._connection = value + If (Not (Me.Adapter.InsertCommand) Is Nothing) Then + Me.Adapter.InsertCommand.Connection = value + End If + If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then + Me.Adapter.DeleteCommand.Connection = value + End If + If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then + Me.Adapter.UpdateCommand.Connection = value + End If + Dim i As Integer = 0 + Do While (i < Me.CommandCollection.Length) + If (Not (Me.CommandCollection(i)) Is Nothing) Then + CType(Me.CommandCollection(i),Global.System.Data.SqlClient.SqlCommand).Connection = value + End If + i = (i + 1) + Loop + End Set + End Property + + _ + Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction + Get + Return Me._transaction + End Get + Set + Me._transaction = value + Dim i As Integer = 0 + Do While (i < Me.CommandCollection.Length) + Me.CommandCollection(i).Transaction = Me._transaction + i = (i + 1) + Loop + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then + Me.Adapter.DeleteCommand.Transaction = Me._transaction + End If + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then + Me.Adapter.InsertCommand.Transaction = Me._transaction + End If + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then + Me.Adapter.UpdateCommand.Transaction = Me._transaction + End If + End Set + End Property + + _ + Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand() + Get + If (Me._commandCollection Is Nothing) Then + Me.InitCommandCollection + End If + Return Me._commandCollection + End Get + End Property + + _ + Public Property ClearBeforeFill() As Boolean + Get + Return Me._clearBeforeFill + End Get + Set + Me._clearBeforeFill = value + End Set + End Property + + _ + Private Sub InitAdapter() + Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter() + Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping() + tableMapping.SourceTable = "Table" + tableMapping.DataSetTable = "weather_cha" + tableMapping.ColumnMappings.Add("pcode", "pcode") + tableMapping.ColumnMappings.Add("code", "code") + tableMapping.ColumnMappings.Add("설명", "설명") + tableMapping.ColumnMappings.Add("m01", "m01") + tableMapping.ColumnMappings.Add("m02", "m02") + tableMapping.ColumnMappings.Add("m03", "m03") + tableMapping.ColumnMappings.Add("m04", "m04") + tableMapping.ColumnMappings.Add("m05", "m05") + tableMapping.ColumnMappings.Add("m06", "m06") + tableMapping.ColumnMappings.Add("m07", "m07") + tableMapping.ColumnMappings.Add("m08", "m08") + tableMapping.ColumnMappings.Add("m09", "m09") + tableMapping.ColumnMappings.Add("m10", "m10") + tableMapping.ColumnMappings.Add("m11", "m11") + tableMapping.ColumnMappings.Add("m12", "m12") + Me._adapter.TableMappings.Add(tableMapping) + Me._adapter.DeleteCommand = New Global.System.Data.SqlClient.SqlCommand() + Me._adapter.DeleteCommand.Connection = Me.Connection + Me._adapter.DeleteCommand.CommandText = "DELETE FROM [weather_cha2] WHERE (([pcode] = @Original_pcode) AND ([code] = @Orig"& _ + "inal_code) AND ((@IsNull_설명 = 1 AND [설명] IS NULL) OR ([설명] = @Original_설명)) AND "& _ + "((@IsNull_m01 = 1 AND [m01] IS NULL) OR ([m01] = @Original_m01)) AND ((@IsNull_m"& _ + "02 = 1 AND [m02] IS NULL) OR ([m02] = @Original_m02)) AND ((@IsNull_m03 = 1 AND "& _ + "[m03] IS NULL) OR ([m03] = @Original_m03)) AND ((@IsNull_m04 = 1 AND [m04] IS NU"& _ + "LL) OR ([m04] = @Original_m04)) AND ((@IsNull_m05 = 1 AND [m05] IS NULL) OR ([m0"& _ + "5] = @Original_m05)) AND ((@IsNull_m06 = 1 AND [m06] IS NULL) OR ([m06] = @Origi"& _ + "nal_m06)) AND ((@IsNull_m07 = 1 AND [m07] IS NULL) OR ([m07] = @Original_m07)) A"& _ + "ND ((@IsNull_m08 = 1 AND [m08] IS NULL) OR ([m08] = @Original_m08)) AND ((@IsNul"& _ + "l_m09 = 1 AND [m09] IS NULL) OR ([m09] = @Original_m09)) AND ((@IsNull_m10 = 1 A"& _ + "ND [m10] IS NULL) OR ([m10] = @Original_m10)) AND ((@IsNull_m11 = 1 AND [m11] IS"& _ + " NULL) OR ([m11] = @Original_m11)) AND ((@IsNull_m12 = 1 AND [m12] IS NULL) OR ("& _ + "[m12] = @Original_m12)))" + Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_pcode", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "pcode", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_code", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "code", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_설명", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "설명", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_설명", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "설명", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_m01", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "m01", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_m01", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "m01", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_m02", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "m02", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_m02", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "m02", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_m03", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "m03", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_m03", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "m03", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_m04", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "m04", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_m04", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "m04", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_m05", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "m05", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_m05", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "m05", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_m06", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "m06", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_m06", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "m06", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_m07", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "m07", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_m07", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "m07", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_m08", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "m08", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_m08", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "m08", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_m09", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "m09", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_m09", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "m09", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_m10", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "m10", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_m10", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "m10", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_m11", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "m11", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_m11", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "m11", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_m12", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "m12", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_m12", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "m12", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.InsertCommand = New Global.System.Data.SqlClient.SqlCommand() + Me._adapter.InsertCommand.Connection = Me.Connection + Me._adapter.InsertCommand.CommandText = "INSERT INTO [weather_cha2] ([pcode], [code], [설명], [m01], [m02], [m03], [m04], [m"& _ + "05], [m06], [m07], [m08], [m09], [m10], [m11], [m12]) VALUES (@pcode, @code, @설명"& _ + ", @m01, @m02, @m03, @m04, @m05, @m06, @m07, @m08, @m09, @m10, @m11, @m12);"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELE"& _ + "CT pcode, code, 설명, m01, m02, m03, m04, m05, m06, m07, m08, m09, m10, m11, m12 F"& _ + "ROM weather_cha2 WHERE (code = @code) AND (pcode = @pcode)" + Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@pcode", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "pcode", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@code", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "code", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@설명", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "설명", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@m01", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "m01", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@m02", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "m02", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@m03", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "m03", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@m04", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "m04", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@m05", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "m05", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@m06", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "m06", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@m07", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "m07", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@m08", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "m08", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@m09", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "m09", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@m10", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "m10", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@m11", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "m11", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@m12", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "m12", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand = New Global.System.Data.SqlClient.SqlCommand() + Me._adapter.UpdateCommand.Connection = Me.Connection + Me._adapter.UpdateCommand.CommandText = "UPDATE [weather_cha2] SET [pcode] = @pcode, [code] = @code, [설명] = @설명, [m01] = @"& _ + "m01, [m02] = @m02, [m03] = @m03, [m04] = @m04, [m05] = @m05, [m06] = @m06, [m07]"& _ + " = @m07, [m08] = @m08, [m09] = @m09, [m10] = @m10, [m11] = @m11, [m12] = @m12 WH"& _ + "ERE (([pcode] = @Original_pcode) AND ([code] = @Original_code) AND ((@IsNull_설명 "& _ + "= 1 AND [설명] IS NULL) OR ([설명] = @Original_설명)) AND ((@IsNull_m01 = 1 AND [m01] "& _ + "IS NULL) OR ([m01] = @Original_m01)) AND ((@IsNull_m02 = 1 AND [m02] IS NULL) OR"& _ + " ([m02] = @Original_m02)) AND ((@IsNull_m03 = 1 AND [m03] IS NULL) OR ([m03] = @"& _ + "Original_m03)) AND ((@IsNull_m04 = 1 AND [m04] IS NULL) OR ([m04] = @Original_m0"& _ + "4)) AND ((@IsNull_m05 = 1 AND [m05] IS NULL) OR ([m05] = @Original_m05)) AND ((@"& _ + "IsNull_m06 = 1 AND [m06] IS NULL) OR ([m06] = @Original_m06)) AND ((@IsNull_m07 "& _ + "= 1 AND [m07] IS NULL) OR ([m07] = @Original_m07)) AND ((@IsNull_m08 = 1 AND [m0"& _ + "8] IS NULL) OR ([m08] = @Original_m08)) AND ((@IsNull_m09 = 1 AND [m09] IS NULL)"& _ + " OR ([m09] = @Original_m09)) AND ((@IsNull_m10 = 1 AND [m10] IS NULL) OR ([m10] "& _ + "= @Original_m10)) AND ((@IsNull_m11 = 1 AND [m11] IS NULL) OR ([m11] = @Original"& _ + "_m11)) AND ((@IsNull_m12 = 1 AND [m12] IS NULL) OR ([m12] = @Original_m12)));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"S"& _ + "ELECT pcode, code, 설명, m01, m02, m03, m04, m05, m06, m07, m08, m09, m10, m11, m1"& _ + "2 FROM weather_cha2 WHERE (code = @code) AND (pcode = @pcode)" + Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@pcode", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "pcode", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@code", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "code", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@설명", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "설명", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@m01", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "m01", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@m02", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "m02", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@m03", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "m03", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@m04", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "m04", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@m05", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "m05", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@m06", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "m06", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@m07", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "m07", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@m08", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "m08", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@m09", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "m09", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@m10", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "m10", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@m11", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "m11", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@m12", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "m12", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_pcode", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "pcode", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_code", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "code", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_설명", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "설명", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_설명", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "설명", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_m01", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "m01", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_m01", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "m01", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_m02", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "m02", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_m02", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "m02", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_m03", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "m03", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_m03", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "m03", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_m04", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "m04", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_m04", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "m04", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_m05", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "m05", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_m05", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "m05", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_m06", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "m06", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_m06", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "m06", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_m07", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "m07", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_m07", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "m07", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_m08", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "m08", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_m08", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "m08", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_m09", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "m09", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_m09", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "m09", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_m10", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "m10", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_m10", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "m10", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_m11", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "m11", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_m11", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "m11", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_m12", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "m12", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_m12", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "m12", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + End Sub + + _ + Private Sub InitConnection() + Me._connection = New Global.System.Data.SqlClient.SqlConnection() + Me._connection.ConnectionString = Global.Eco2Ar.My.MySettings.Default.cs + End Sub + + _ + Private Sub InitCommandCollection() + Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {} + Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() + Me._commandCollection(0).Connection = Me.Connection + Me._commandCollection(0).CommandText = "SELECT pcode, code, 설명, m01, m02, m03, m04, m05, m06, m07, m08, m09, m10, m11, m"& _ + "12"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM weather_cha2" + Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text + End Sub + + _ + Public Overloads Overridable Function Fill(ByVal dataTable As DS.weather_chaDataTable) As Integer + Me.Adapter.SelectCommand = Me.CommandCollection(0) + If (Me.ClearBeforeFill = true) Then + dataTable.Clear + End If + Dim returnValue As Integer = Me.Adapter.Fill(dataTable) + Return returnValue + End Function + + _ + Public Overloads Overridable Function GetData() As DS.weather_chaDataTable + Me.Adapter.SelectCommand = Me.CommandCollection(0) + Dim dataTable As DS.weather_chaDataTable = New DS.weather_chaDataTable() + Me.Adapter.Fill(dataTable) + Return dataTable + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataTable As DS.weather_chaDataTable) As Integer + Return Me.Adapter.Update(dataTable) + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataSet As DS) As Integer + Return Me.Adapter.Update(dataSet, "weather_cha") + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer + Return Me.Adapter.Update(New Global.System.Data.DataRow() {dataRow}) + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer + Return Me.Adapter.Update(dataRows) + End Function + + _ + Public Overloads Overridable Function Delete(ByVal Original_pcode As String, ByVal Original_code As String, ByVal Original_설명 As String, ByVal Original_m01 As String, ByVal Original_m02 As String, ByVal Original_m03 As String, ByVal Original_m04 As String, ByVal Original_m05 As String, ByVal Original_m06 As String, ByVal Original_m07 As String, ByVal Original_m08 As String, ByVal Original_m09 As String, ByVal Original_m10 As String, ByVal Original_m11 As String, ByVal Original_m12 As String) As Integer + If (Original_pcode Is Nothing) Then + Throw New Global.System.ArgumentNullException("Original_pcode") + Else + Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_pcode,String) + End If + If (Original_code Is Nothing) Then + Throw New Global.System.ArgumentNullException("Original_code") + Else + Me.Adapter.DeleteCommand.Parameters(1).Value = CType(Original_code,String) + End If + If (Original_설명 Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(2).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(3).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(2).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(3).Value = CType(Original_설명,String) + End If + If (Original_m01 Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(4).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(5).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(4).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(5).Value = CType(Original_m01,String) + End If + If (Original_m02 Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(6).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(7).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(6).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(7).Value = CType(Original_m02,String) + End If + If (Original_m03 Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(8).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(9).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(8).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(9).Value = CType(Original_m03,String) + End If + If (Original_m04 Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(10).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(11).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(10).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(11).Value = CType(Original_m04,String) + End If + If (Original_m05 Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(12).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(13).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(12).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(13).Value = CType(Original_m05,String) + End If + If (Original_m06 Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(14).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(15).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(14).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(15).Value = CType(Original_m06,String) + End If + If (Original_m07 Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(16).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(17).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(16).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(17).Value = CType(Original_m07,String) + End If + If (Original_m08 Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(18).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(19).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(18).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(19).Value = CType(Original_m08,String) + End If + If (Original_m09 Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(20).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(21).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(20).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(21).Value = CType(Original_m09,String) + End If + If (Original_m10 Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(22).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(23).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(22).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(23).Value = CType(Original_m10,String) + End If + If (Original_m11 Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(24).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(25).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(24).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(25).Value = CType(Original_m11,String) + End If + If (Original_m12 Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(26).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(27).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(26).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(27).Value = CType(Original_m12,String) + End If + Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.DeleteCommand.Connection.State + If ((Me.Adapter.DeleteCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + Me.Adapter.DeleteCommand.Connection.Open + End If + Try + Dim returnValue As Integer = Me.Adapter.DeleteCommand.ExecuteNonQuery + Return returnValue + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + Me.Adapter.DeleteCommand.Connection.Close + End If + End Try + End Function + + _ + Public Overloads Overridable Function Insert(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 Integer + If (pcode Is Nothing) Then + Throw New Global.System.ArgumentNullException("pcode") + Else + Me.Adapter.InsertCommand.Parameters(0).Value = CType(pcode,String) + End If + If (code Is Nothing) Then + Throw New Global.System.ArgumentNullException("code") + Else + Me.Adapter.InsertCommand.Parameters(1).Value = CType(code,String) + End If + If (설명 Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(2).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(2).Value = CType(설명,String) + End If + If (m01 Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(3).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(3).Value = CType(m01,String) + End If + If (m02 Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(4).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(4).Value = CType(m02,String) + End If + If (m03 Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(5).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(5).Value = CType(m03,String) + End If + If (m04 Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(6).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(6).Value = CType(m04,String) + End If + If (m05 Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(7).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(7).Value = CType(m05,String) + End If + If (m06 Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(8).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(8).Value = CType(m06,String) + End If + If (m07 Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(9).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(9).Value = CType(m07,String) + End If + If (m08 Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(10).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(10).Value = CType(m08,String) + End If + If (m09 Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(11).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(11).Value = CType(m09,String) + End If + If (m10 Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(12).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(12).Value = CType(m10,String) + End If + If (m11 Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(13).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(13).Value = CType(m11,String) + End If + If (m12 Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(14).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(14).Value = CType(m12,String) + End If + Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.InsertCommand.Connection.State + If ((Me.Adapter.InsertCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + Me.Adapter.InsertCommand.Connection.Open + End If + Try + Dim returnValue As Integer = Me.Adapter.InsertCommand.ExecuteNonQuery + Return returnValue + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + Me.Adapter.InsertCommand.Connection.Close + End If + End Try + End Function + + _ + Public Overloads Overridable Function Update( _ + 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, _ + ByVal Original_pcode As String, _ + ByVal Original_code As String, _ + ByVal Original_설명 As String, _ + ByVal Original_m01 As String, _ + ByVal Original_m02 As String, _ + ByVal Original_m03 As String, _ + ByVal Original_m04 As String, _ + ByVal Original_m05 As String, _ + ByVal Original_m06 As String, _ + ByVal Original_m07 As String, _ + ByVal Original_m08 As String, _ + ByVal Original_m09 As String, _ + ByVal Original_m10 As String, _ + ByVal Original_m11 As String, _ + ByVal Original_m12 As String) As Integer + If (pcode Is Nothing) Then + Throw New Global.System.ArgumentNullException("pcode") + Else + Me.Adapter.UpdateCommand.Parameters(0).Value = CType(pcode,String) + End If + If (code Is Nothing) Then + Throw New Global.System.ArgumentNullException("code") + Else + Me.Adapter.UpdateCommand.Parameters(1).Value = CType(code,String) + End If + If (설명 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(2).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(2).Value = CType(설명,String) + End If + If (m01 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(3).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(3).Value = CType(m01,String) + End If + If (m02 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(4).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(4).Value = CType(m02,String) + End If + If (m03 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(5).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(5).Value = CType(m03,String) + End If + If (m04 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(6).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(6).Value = CType(m04,String) + End If + If (m05 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(7).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(7).Value = CType(m05,String) + End If + If (m06 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(8).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(8).Value = CType(m06,String) + End If + If (m07 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(9).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(9).Value = CType(m07,String) + End If + If (m08 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(10).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(10).Value = CType(m08,String) + End If + If (m09 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(11).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(11).Value = CType(m09,String) + End If + If (m10 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(12).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(12).Value = CType(m10,String) + End If + If (m11 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(13).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(13).Value = CType(m11,String) + End If + If (m12 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(14).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(14).Value = CType(m12,String) + End If + If (Original_pcode Is Nothing) Then + Throw New Global.System.ArgumentNullException("Original_pcode") + Else + Me.Adapter.UpdateCommand.Parameters(15).Value = CType(Original_pcode,String) + End If + If (Original_code Is Nothing) Then + Throw New Global.System.ArgumentNullException("Original_code") + Else + Me.Adapter.UpdateCommand.Parameters(16).Value = CType(Original_code,String) + End If + If (Original_설명 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(17).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(18).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(17).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(18).Value = CType(Original_설명,String) + End If + If (Original_m01 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(19).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(20).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(19).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(20).Value = CType(Original_m01,String) + End If + If (Original_m02 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(21).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(22).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(21).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(22).Value = CType(Original_m02,String) + End If + If (Original_m03 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(23).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(24).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(23).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(24).Value = CType(Original_m03,String) + End If + If (Original_m04 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(25).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(26).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(25).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(26).Value = CType(Original_m04,String) + End If + If (Original_m05 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(27).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(28).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(27).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(28).Value = CType(Original_m05,String) + End If + If (Original_m06 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(29).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(30).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(29).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(30).Value = CType(Original_m06,String) + End If + If (Original_m07 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(31).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(32).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(31).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(32).Value = CType(Original_m07,String) + End If + If (Original_m08 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(33).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(34).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(33).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(34).Value = CType(Original_m08,String) + End If + If (Original_m09 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(35).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(36).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(35).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(36).Value = CType(Original_m09,String) + End If + If (Original_m10 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(37).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(38).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(37).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(38).Value = CType(Original_m10,String) + End If + If (Original_m11 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(39).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(40).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(39).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(40).Value = CType(Original_m11,String) + End If + If (Original_m12 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(41).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(42).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(41).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(42).Value = CType(Original_m12,String) + End If + Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.UpdateCommand.Connection.State + If ((Me.Adapter.UpdateCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + Me.Adapter.UpdateCommand.Connection.Open + End If + Try + Dim returnValue As Integer = Me.Adapter.UpdateCommand.ExecuteNonQuery + Return returnValue + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + Me.Adapter.UpdateCommand.Connection.Close + End If + End Try + End Function + + _ + Public Overloads Overridable Function Update( _ + 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, _ + ByVal Original_pcode As String, _ + ByVal Original_code As String, _ + ByVal Original_설명 As String, _ + ByVal Original_m01 As String, _ + ByVal Original_m02 As String, _ + ByVal Original_m03 As String, _ + ByVal Original_m04 As String, _ + ByVal Original_m05 As String, _ + ByVal Original_m06 As String, _ + ByVal Original_m07 As String, _ + ByVal Original_m08 As String, _ + ByVal Original_m09 As String, _ + ByVal Original_m10 As String, _ + ByVal Original_m11 As String, _ + ByVal Original_m12 As String) As Integer + Return Me.Update(Original_pcode, Original_code, 설명, m01, m02, m03, m04, m05, m06, m07, m08, m09, m10, m11, m12, Original_pcode, Original_code, Original_설명, Original_m01, Original_m02, Original_m03, Original_m04, Original_m05, Original_m06, Original_m07, Original_m08, Original_m09, Original_m10, Original_m11, Original_m12) + End Function + End Class + + ''' + '''Represents the connection and commands used to retrieve and save data. + ''' + _ + Partial Public Class weather_tempTableAdapter + Inherits Global.System.ComponentModel.Component + + Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter + + Private _connection As Global.System.Data.SqlClient.SqlConnection + + Private _transaction As Global.System.Data.SqlClient.SqlTransaction + + Private _commandCollection() As Global.System.Data.SqlClient.SqlCommand + + Private _clearBeforeFill As Boolean + + _ + Public Sub New() + MyBase.New + Me.ClearBeforeFill = true + End Sub + + _ + Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter + Get + If (Me._adapter Is Nothing) Then + Me.InitAdapter + End If + Return Me._adapter + End Get + End Property + + _ + Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection + Get + If (Me._connection Is Nothing) Then + Me.InitConnection + End If + Return Me._connection + End Get + Set + Me._connection = value + If (Not (Me.Adapter.InsertCommand) Is Nothing) Then + Me.Adapter.InsertCommand.Connection = value + End If + If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then + Me.Adapter.DeleteCommand.Connection = value + End If + If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then + Me.Adapter.UpdateCommand.Connection = value + End If + Dim i As Integer = 0 + Do While (i < Me.CommandCollection.Length) + If (Not (Me.CommandCollection(i)) Is Nothing) Then + CType(Me.CommandCollection(i),Global.System.Data.SqlClient.SqlCommand).Connection = value + End If + i = (i + 1) + Loop + End Set + End Property + + _ + Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction + Get + Return Me._transaction + End Get + Set + Me._transaction = value + Dim i As Integer = 0 + Do While (i < Me.CommandCollection.Length) + Me.CommandCollection(i).Transaction = Me._transaction + i = (i + 1) + Loop + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then + Me.Adapter.DeleteCommand.Transaction = Me._transaction + End If + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then + Me.Adapter.InsertCommand.Transaction = Me._transaction + End If + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then + Me.Adapter.UpdateCommand.Transaction = Me._transaction + End If + End Set + End Property + + _ + Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand() + Get + If (Me._commandCollection Is Nothing) Then + Me.InitCommandCollection + End If + Return Me._commandCollection + End Get + End Property + + _ + Public Property ClearBeforeFill() As Boolean + Get + Return Me._clearBeforeFill + End Get + Set + Me._clearBeforeFill = value + End Set + End Property + + _ + Private Sub InitAdapter() + Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter() + Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping() + tableMapping.SourceTable = "Table" + tableMapping.DataSetTable = "weather_temp" + tableMapping.ColumnMappings.Add("pcode", "pcode") + tableMapping.ColumnMappings.Add("code", "code") + tableMapping.ColumnMappings.Add("설명", "설명") + tableMapping.ColumnMappings.Add("t01", "t01") + tableMapping.ColumnMappings.Add("t02", "t02") + tableMapping.ColumnMappings.Add("t03", "t03") + tableMapping.ColumnMappings.Add("t04", "t04") + tableMapping.ColumnMappings.Add("t05", "t05") + tableMapping.ColumnMappings.Add("t06", "t06") + tableMapping.ColumnMappings.Add("t07", "t07") + tableMapping.ColumnMappings.Add("t08", "t08") + tableMapping.ColumnMappings.Add("t09", "t09") + tableMapping.ColumnMappings.Add("t10", "t10") + tableMapping.ColumnMappings.Add("t11", "t11") + tableMapping.ColumnMappings.Add("t12", "t12") + tableMapping.ColumnMappings.Add("t13", "t13") + tableMapping.ColumnMappings.Add("t14", "t14") + tableMapping.ColumnMappings.Add("t15", "t15") + tableMapping.ColumnMappings.Add("t16", "t16") + tableMapping.ColumnMappings.Add("t17", "t17") + tableMapping.ColumnMappings.Add("t18", "t18") + tableMapping.ColumnMappings.Add("t19", "t19") + tableMapping.ColumnMappings.Add("t20", "t20") + tableMapping.ColumnMappings.Add("t21", "t21") + tableMapping.ColumnMappings.Add("t22", "t22") + tableMapping.ColumnMappings.Add("t23", "t23") + tableMapping.ColumnMappings.Add("t24", "t24") + Me._adapter.TableMappings.Add(tableMapping) + Me._adapter.DeleteCommand = New Global.System.Data.SqlClient.SqlCommand() + Me._adapter.DeleteCommand.Connection = Me.Connection + Me._adapter.DeleteCommand.CommandText = "DELETE FROM [weather_temp2] WHERE (([pcode] = @Original_pcode) AND ([code] = @Ori"& _ + "ginal_code) AND ((@IsNull_설명 = 1 AND [설명] IS NULL) OR ([설명] = @Original_설명)) AND"& _ + " ((@IsNull_t01 = 1 AND [t01] IS NULL) OR ([t01] = @Original_t01)) AND ((@IsNull_"& _ + "t02 = 1 AND [t02] IS NULL) OR ([t02] = @Original_t02)) AND ((@IsNull_t03 = 1 AND"& _ + " [t03] IS NULL) OR ([t03] = @Original_t03)) AND ((@IsNull_t04 = 1 AND [t04] IS N"& _ + "ULL) OR ([t04] = @Original_t04)) AND ((@IsNull_t05 = 1 AND [t05] IS NULL) OR ([t"& _ + "05] = @Original_t05)) AND ((@IsNull_t06 = 1 AND [t06] IS NULL) OR ([t06] = @Orig"& _ + "inal_t06)) AND ((@IsNull_t07 = 1 AND [t07] IS NULL) OR ([t07] = @Original_t07)) "& _ + "AND ((@IsNull_t08 = 1 AND [t08] IS NULL) OR ([t08] = @Original_t08)) AND ((@IsNu"& _ + "ll_t09 = 1 AND [t09] IS NULL) OR ([t09] = @Original_t09)) AND ((@IsNull_t10 = 1 "& _ + "AND [t10] IS NULL) OR ([t10] = @Original_t10)) AND ((@IsNull_t11 = 1 AND [t11] I"& _ + "S NULL) OR ([t11] = @Original_t11)) AND ((@IsNull_t12 = 1 AND [t12] IS NULL) OR "& _ + "([t12] = @Original_t12)) AND ((@IsNull_t13 = 1 AND [t13] IS NULL) OR ([t13] = @O"& _ + "riginal_t13)) AND ((@IsNull_t14 = 1 AND [t14] IS NULL) OR ([t14] = @Original_t14"& _ + ")) AND ((@IsNull_t15 = 1 AND [t15] IS NULL) OR ([t15] = @Original_t15)) AND ((@I"& _ + "sNull_t16 = 1 AND [t16] IS NULL) OR ([t16] = @Original_t16)) AND ((@IsNull_t17 ="& _ + " 1 AND [t17] IS NULL) OR ([t17] = @Original_t17)) AND ((@IsNull_t18 = 1 AND [t18"& _ + "] IS NULL) OR ([t18] = @Original_t18)) AND ((@IsNull_t19 = 1 AND [t19] IS NULL) "& _ + "OR ([t19] = @Original_t19)) AND ((@IsNull_t20 = 1 AND [t20] IS NULL) OR ([t20] ="& _ + " @Original_t20)) AND ((@IsNull_t21 = 1 AND [t21] IS NULL) OR ([t21] = @Original_"& _ + "t21)) AND ((@IsNull_t22 = 1 AND [t22] IS NULL) OR ([t22] = @Original_t22)) AND ("& _ + "(@IsNull_t23 = 1 AND [t23] IS NULL) OR ([t23] = @Original_t23)) AND ((@IsNull_t2"& _ + "4 = 1 AND [t24] IS NULL) OR ([t24] = @Original_t24)))" + Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_pcode", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "pcode", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_code", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "code", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_설명", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "설명", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_설명", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "설명", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_t01", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t01", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_t01", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t01", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_t02", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t02", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_t02", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t02", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_t03", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t03", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_t03", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t03", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_t04", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t04", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_t04", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t04", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_t05", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t05", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_t05", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t05", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_t06", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t06", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_t06", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t06", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_t07", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t07", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_t07", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t07", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_t08", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t08", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_t08", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t08", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_t09", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t09", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_t09", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t09", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_t10", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t10", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_t10", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t10", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_t11", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t11", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_t11", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t11", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_t12", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t12", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_t12", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t12", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_t13", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t13", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_t13", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t13", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_t14", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t14", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_t14", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t14", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_t15", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t15", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_t15", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t15", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_t16", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t16", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_t16", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t16", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_t17", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t17", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_t17", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t17", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_t18", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t18", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_t18", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t18", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_t19", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t19", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_t19", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t19", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_t20", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t20", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_t20", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t20", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_t21", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t21", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_t21", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t21", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_t22", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t22", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_t22", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t22", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_t23", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t23", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_t23", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t23", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_t24", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t24", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_t24", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t24", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.InsertCommand = New Global.System.Data.SqlClient.SqlCommand() + Me._adapter.InsertCommand.Connection = Me.Connection + Me._adapter.InsertCommand.CommandText = "INSERT INTO [weather_temp2] ([pcode], [code], [설명], [t01], [t02], [t03], [t04], ["& _ + "t05], [t06], [t07], [t08], [t09], [t10], [t11], [t12], [t13], [t14], [t15], [t16"& _ + "], [t17], [t18], [t19], [t20], [t21], [t22], [t23], [t24]) VALUES (@pcode, @code"& _ + ", @설명, @t01, @t02, @t03, @t04, @t05, @t06, @t07, @t08, @t09, @t10, @t11, @t12, @"& _ + "t13, @t14, @t15, @t16, @t17, @t18, @t19, @t20, @t21, @t22, @t23, @t24);"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT "& _ + "pcode, code, 설명, t01, t02, t03, t04, t05, t06, t07, t08, t09, t10, t11, t12, t13"& _ + ", t14, t15, t16, t17, t18, t19, t20, t21, t22, t23, t24 FROM weather_temp2 WHERE"& _ + " (code = @code) AND (pcode = @pcode)" + Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@pcode", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "pcode", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@code", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "code", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@설명", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "설명", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@t01", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t01", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@t02", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t02", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@t03", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t03", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@t04", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t04", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@t05", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t05", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@t06", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t06", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@t07", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t07", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@t08", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t08", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@t09", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t09", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@t10", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t10", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@t11", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t11", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@t12", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t12", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@t13", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t13", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@t14", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t14", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@t15", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t15", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@t16", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t16", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@t17", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t17", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@t18", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t18", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@t19", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t19", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@t20", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t20", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@t21", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t21", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@t22", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t22", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@t23", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t23", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@t24", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t24", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand = New Global.System.Data.SqlClient.SqlCommand() + Me._adapter.UpdateCommand.Connection = Me.Connection + Me._adapter.UpdateCommand.CommandText = "UPDATE [weather_temp2] SET [pcode] = @pcode, [code] = @code, [설명] = @설명, [t01] = "& _ + "@t01, [t02] = @t02, [t03] = @t03, [t04] = @t04, [t05] = @t05, [t06] = @t06, [t07"& _ + "] = @t07, [t08] = @t08, [t09] = @t09, [t10] = @t10, [t11] = @t11, [t12] = @t12, "& _ + "[t13] = @t13, [t14] = @t14, [t15] = @t15, [t16] = @t16, [t17] = @t17, [t18] = @t"& _ + "18, [t19] = @t19, [t20] = @t20, [t21] = @t21, [t22] = @t22, [t23] = @t23, [t24] "& _ + "= @t24 WHERE (([pcode] = @Original_pcode) AND ([code] = @Original_code) AND ((@I"& _ + "sNull_설명 = 1 AND [설명] IS NULL) OR ([설명] = @Original_설명)) AND ((@IsNull_t01 = 1 A"& _ + "ND [t01] IS NULL) OR ([t01] = @Original_t01)) AND ((@IsNull_t02 = 1 AND [t02] IS"& _ + " NULL) OR ([t02] = @Original_t02)) AND ((@IsNull_t03 = 1 AND [t03] IS NULL) OR ("& _ + "[t03] = @Original_t03)) AND ((@IsNull_t04 = 1 AND [t04] IS NULL) OR ([t04] = @Or"& _ + "iginal_t04)) AND ((@IsNull_t05 = 1 AND [t05] IS NULL) OR ([t05] = @Original_t05)"& _ + ") AND ((@IsNull_t06 = 1 AND [t06] IS NULL) OR ([t06] = @Original_t06)) AND ((@Is"& _ + "Null_t07 = 1 AND [t07] IS NULL) OR ([t07] = @Original_t07)) AND ((@IsNull_t08 = "& _ + "1 AND [t08] IS NULL) OR ([t08] = @Original_t08)) AND ((@IsNull_t09 = 1 AND [t09]"& _ + " IS NULL) OR ([t09] = @Original_t09)) AND ((@IsNull_t10 = 1 AND [t10] IS NULL) O"& _ + "R ([t10] = @Original_t10)) AND ((@IsNull_t11 = 1 AND [t11] IS NULL) OR ([t11] = "& _ + "@Original_t11)) AND ((@IsNull_t12 = 1 AND [t12] IS NULL) OR ([t12] = @Original_t"& _ + "12)) AND ((@IsNull_t13 = 1 AND [t13] IS NULL) OR ([t13] = @Original_t13)) AND (("& _ + "@IsNull_t14 = 1 AND [t14] IS NULL) OR ([t14] = @Original_t14)) AND ((@IsNull_t15"& _ + " = 1 AND [t15] IS NULL) OR ([t15] = @Original_t15)) AND ((@IsNull_t16 = 1 AND [t"& _ + "16] IS NULL) OR ([t16] = @Original_t16)) AND ((@IsNull_t17 = 1 AND [t17] IS NULL"& _ + ") OR ([t17] = @Original_t17)) AND ((@IsNull_t18 = 1 AND [t18] IS NULL) OR ([t18]"& _ + " = @Original_t18)) AND ((@IsNull_t19 = 1 AND [t19] IS NULL) OR ([t19] = @Origina"& _ + "l_t19)) AND ((@IsNull_t20 = 1 AND [t20] IS NULL) OR ([t20] = @Original_t20)) AND"& _ + " ((@IsNull_t21 = 1 AND [t21] IS NULL) OR ([t21] = @Original_t21)) AND ((@IsNull_"& _ + "t22 = 1 AND [t22] IS NULL) OR ([t22] = @Original_t22)) AND ((@IsNull_t23 = 1 AND"& _ + " [t23] IS NULL) OR ([t23] = @Original_t23)) AND ((@IsNull_t24 = 1 AND [t24] IS N"& _ + "ULL) OR ([t24] = @Original_t24)));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT pcode, code, 설명, t01, t02, t03, t04, "& _ + "t05, t06, t07, t08, t09, t10, t11, t12, t13, t14, t15, t16, t17, t18, t19, t20, "& _ + "t21, t22, t23, t24 FROM weather_temp2 WHERE (code = @code) AND (pcode = @pcode)" + Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@pcode", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "pcode", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@code", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "code", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@설명", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "설명", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@t01", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t01", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@t02", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t02", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@t03", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t03", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@t04", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t04", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@t05", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t05", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@t06", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t06", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@t07", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t07", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@t08", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t08", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@t09", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t09", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@t10", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t10", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@t11", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t11", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@t12", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t12", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@t13", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t13", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@t14", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t14", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@t15", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t15", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@t16", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t16", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@t17", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t17", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@t18", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t18", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@t19", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t19", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@t20", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t20", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@t21", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t21", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@t22", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t22", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@t23", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t23", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@t24", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t24", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_pcode", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "pcode", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_code", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "code", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_설명", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "설명", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_설명", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "설명", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_t01", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t01", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_t01", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t01", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_t02", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t02", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_t02", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t02", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_t03", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t03", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_t03", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t03", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_t04", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t04", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_t04", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t04", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_t05", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t05", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_t05", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t05", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_t06", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t06", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_t06", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t06", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_t07", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t07", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_t07", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t07", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_t08", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t08", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_t08", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t08", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_t09", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t09", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_t09", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t09", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_t10", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t10", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_t10", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t10", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_t11", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t11", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_t11", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t11", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_t12", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t12", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_t12", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t12", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_t13", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t13", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_t13", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t13", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_t14", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t14", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_t14", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t14", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_t15", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t15", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_t15", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t15", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_t16", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t16", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_t16", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t16", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_t17", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t17", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_t17", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t17", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_t18", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t18", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_t18", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t18", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_t19", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t19", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_t19", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t19", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_t20", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t20", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_t20", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t20", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_t21", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t21", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_t21", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t21", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_t22", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t22", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_t22", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t22", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_t23", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t23", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_t23", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t23", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_t24", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t24", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_t24", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t24", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + End Sub + + _ + Private Sub InitConnection() + Me._connection = New Global.System.Data.SqlClient.SqlConnection() + Me._connection.ConnectionString = Global.Eco2Ar.My.MySettings.Default.cs + End Sub + + _ + Private Sub InitCommandCollection() + Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {} + Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() + Me._commandCollection(0).Connection = Me.Connection + Me._commandCollection(0).CommandText = "SELECT pcode, code, 설명, t01, t02, t03, t04, t05, t06, t07, t08, t09, t10, t11, t"& _ + "12, t13, t14, t15, t16, t17, t18, t19, t20, t21, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" t22, t23, t24"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM weather_temp2" + Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text + End Sub + + _ + Public Overloads Overridable Function Fill(ByVal dataTable As DS.weather_tempDataTable) As Integer + Me.Adapter.SelectCommand = Me.CommandCollection(0) + If (Me.ClearBeforeFill = true) Then + dataTable.Clear + End If + Dim returnValue As Integer = Me.Adapter.Fill(dataTable) + Return returnValue + End Function + + _ + Public Overloads Overridable Function GetData() As DS.weather_tempDataTable + Me.Adapter.SelectCommand = Me.CommandCollection(0) + Dim dataTable As DS.weather_tempDataTable = New DS.weather_tempDataTable() + Me.Adapter.Fill(dataTable) + Return dataTable + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataTable As DS.weather_tempDataTable) As Integer + Return Me.Adapter.Update(dataTable) + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataSet As DS) As Integer + Return Me.Adapter.Update(dataSet, "weather_temp") + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer + Return Me.Adapter.Update(New Global.System.Data.DataRow() {dataRow}) + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer + Return Me.Adapter.Update(dataRows) + End Function + + _ + Public Overloads Overridable Function Delete( _ + ByVal Original_pcode As String, _ + ByVal Original_code As String, _ + ByVal Original_설명 As String, _ + ByVal Original_t01 As String, _ + ByVal Original_t02 As String, _ + ByVal Original_t03 As String, _ + ByVal Original_t04 As String, _ + ByVal Original_t05 As String, _ + ByVal Original_t06 As String, _ + ByVal Original_t07 As String, _ + ByVal Original_t08 As String, _ + ByVal Original_t09 As String, _ + ByVal Original_t10 As String, _ + ByVal Original_t11 As String, _ + ByVal Original_t12 As String, _ + ByVal Original_t13 As String, _ + ByVal Original_t14 As String, _ + ByVal Original_t15 As String, _ + ByVal Original_t16 As String, _ + ByVal Original_t17 As String, _ + ByVal Original_t18 As String, _ + ByVal Original_t19 As String, _ + ByVal Original_t20 As String, _ + ByVal Original_t21 As String, _ + ByVal Original_t22 As String, _ + ByVal Original_t23 As String, _ + ByVal Original_t24 As String) As Integer + If (Original_pcode Is Nothing) Then + Throw New Global.System.ArgumentNullException("Original_pcode") + Else + Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_pcode,String) + End If + If (Original_code Is Nothing) Then + Throw New Global.System.ArgumentNullException("Original_code") + Else + Me.Adapter.DeleteCommand.Parameters(1).Value = CType(Original_code,String) + End If + If (Original_설명 Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(2).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(3).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(2).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(3).Value = CType(Original_설명,String) + End If + If (Original_t01 Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(4).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(5).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(4).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(5).Value = CType(Original_t01,String) + End If + If (Original_t02 Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(6).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(7).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(6).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(7).Value = CType(Original_t02,String) + End If + If (Original_t03 Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(8).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(9).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(8).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(9).Value = CType(Original_t03,String) + End If + If (Original_t04 Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(10).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(11).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(10).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(11).Value = CType(Original_t04,String) + End If + If (Original_t05 Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(12).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(13).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(12).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(13).Value = CType(Original_t05,String) + End If + If (Original_t06 Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(14).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(15).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(14).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(15).Value = CType(Original_t06,String) + End If + If (Original_t07 Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(16).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(17).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(16).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(17).Value = CType(Original_t07,String) + End If + If (Original_t08 Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(18).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(19).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(18).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(19).Value = CType(Original_t08,String) + End If + If (Original_t09 Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(20).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(21).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(20).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(21).Value = CType(Original_t09,String) + End If + If (Original_t10 Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(22).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(23).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(22).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(23).Value = CType(Original_t10,String) + End If + If (Original_t11 Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(24).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(25).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(24).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(25).Value = CType(Original_t11,String) + End If + If (Original_t12 Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(26).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(27).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(26).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(27).Value = CType(Original_t12,String) + End If + If (Original_t13 Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(28).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(29).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(28).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(29).Value = CType(Original_t13,String) + End If + If (Original_t14 Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(30).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(31).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(30).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(31).Value = CType(Original_t14,String) + End If + If (Original_t15 Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(32).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(33).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(32).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(33).Value = CType(Original_t15,String) + End If + If (Original_t16 Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(34).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(35).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(34).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(35).Value = CType(Original_t16,String) + End If + If (Original_t17 Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(36).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(37).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(36).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(37).Value = CType(Original_t17,String) + End If + If (Original_t18 Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(38).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(39).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(38).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(39).Value = CType(Original_t18,String) + End If + If (Original_t19 Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(40).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(41).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(40).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(41).Value = CType(Original_t19,String) + End If + If (Original_t20 Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(42).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(43).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(42).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(43).Value = CType(Original_t20,String) + End If + If (Original_t21 Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(44).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(45).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(44).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(45).Value = CType(Original_t21,String) + End If + If (Original_t22 Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(46).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(47).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(46).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(47).Value = CType(Original_t22,String) + End If + If (Original_t23 Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(48).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(49).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(48).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(49).Value = CType(Original_t23,String) + End If + If (Original_t24 Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(50).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(51).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(50).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(51).Value = CType(Original_t24,String) + End If + Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.DeleteCommand.Connection.State + If ((Me.Adapter.DeleteCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + Me.Adapter.DeleteCommand.Connection.Open + End If + Try + Dim returnValue As Integer = Me.Adapter.DeleteCommand.ExecuteNonQuery + Return returnValue + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + Me.Adapter.DeleteCommand.Connection.Close + End If + End Try + End Function + + _ + Public Overloads Overridable Function Insert( _ + ByVal pcode As String, _ + ByVal code As String, _ + ByVal 설명 As String, _ + ByVal t01 As String, _ + ByVal t02 As String, _ + ByVal t03 As String, _ + ByVal t04 As String, _ + ByVal t05 As String, _ + ByVal t06 As String, _ + ByVal t07 As String, _ + ByVal t08 As String, _ + ByVal t09 As String, _ + ByVal t10 As String, _ + ByVal t11 As String, _ + ByVal t12 As String, _ + ByVal t13 As String, _ + ByVal t14 As String, _ + ByVal t15 As String, _ + ByVal t16 As String, _ + ByVal t17 As String, _ + ByVal t18 As String, _ + ByVal t19 As String, _ + ByVal t20 As String, _ + ByVal t21 As String, _ + ByVal t22 As String, _ + ByVal t23 As String, _ + ByVal t24 As String) As Integer + If (pcode Is Nothing) Then + Throw New Global.System.ArgumentNullException("pcode") + Else + Me.Adapter.InsertCommand.Parameters(0).Value = CType(pcode,String) + End If + If (code Is Nothing) Then + Throw New Global.System.ArgumentNullException("code") + Else + Me.Adapter.InsertCommand.Parameters(1).Value = CType(code,String) + End If + If (설명 Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(2).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(2).Value = CType(설명,String) + End If + If (t01 Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(3).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(3).Value = CType(t01,String) + End If + If (t02 Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(4).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(4).Value = CType(t02,String) + End If + If (t03 Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(5).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(5).Value = CType(t03,String) + End If + If (t04 Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(6).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(6).Value = CType(t04,String) + End If + If (t05 Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(7).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(7).Value = CType(t05,String) + End If + If (t06 Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(8).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(8).Value = CType(t06,String) + End If + If (t07 Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(9).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(9).Value = CType(t07,String) + End If + If (t08 Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(10).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(10).Value = CType(t08,String) + End If + If (t09 Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(11).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(11).Value = CType(t09,String) + End If + If (t10 Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(12).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(12).Value = CType(t10,String) + End If + If (t11 Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(13).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(13).Value = CType(t11,String) + End If + If (t12 Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(14).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(14).Value = CType(t12,String) + End If + If (t13 Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(15).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(15).Value = CType(t13,String) + End If + If (t14 Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(16).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(16).Value = CType(t14,String) + End If + If (t15 Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(17).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(17).Value = CType(t15,String) + End If + If (t16 Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(18).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(18).Value = CType(t16,String) + End If + If (t17 Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(19).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(19).Value = CType(t17,String) + End If + If (t18 Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(20).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(20).Value = CType(t18,String) + End If + If (t19 Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(21).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(21).Value = CType(t19,String) + End If + If (t20 Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(22).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(22).Value = CType(t20,String) + End If + If (t21 Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(23).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(23).Value = CType(t21,String) + End If + If (t22 Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(24).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(24).Value = CType(t22,String) + End If + If (t23 Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(25).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(25).Value = CType(t23,String) + End If + If (t24 Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(26).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(26).Value = CType(t24,String) + End If + Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.InsertCommand.Connection.State + If ((Me.Adapter.InsertCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + Me.Adapter.InsertCommand.Connection.Open + End If + Try + Dim returnValue As Integer = Me.Adapter.InsertCommand.ExecuteNonQuery + Return returnValue + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + Me.Adapter.InsertCommand.Connection.Close + End If + End Try + End Function + + _ + Public Overloads Overridable Function Update( _ + ByVal pcode As String, _ + ByVal code As String, _ + ByVal 설명 As String, _ + ByVal t01 As String, _ + ByVal t02 As String, _ + ByVal t03 As String, _ + ByVal t04 As String, _ + ByVal t05 As String, _ + ByVal t06 As String, _ + ByVal t07 As String, _ + ByVal t08 As String, _ + ByVal t09 As String, _ + ByVal t10 As String, _ + ByVal t11 As String, _ + ByVal t12 As String, _ + ByVal t13 As String, _ + ByVal t14 As String, _ + ByVal t15 As String, _ + ByVal t16 As String, _ + ByVal t17 As String, _ + ByVal t18 As String, _ + ByVal t19 As String, _ + ByVal t20 As String, _ + ByVal t21 As String, _ + ByVal t22 As String, _ + ByVal t23 As String, _ + ByVal t24 As String, _ + ByVal Original_pcode As String, _ + ByVal Original_code As String, _ + ByVal Original_설명 As String, _ + ByVal Original_t01 As String, _ + ByVal Original_t02 As String, _ + ByVal Original_t03 As String, _ + ByVal Original_t04 As String, _ + ByVal Original_t05 As String, _ + ByVal Original_t06 As String, _ + ByVal Original_t07 As String, _ + ByVal Original_t08 As String, _ + ByVal Original_t09 As String, _ + ByVal Original_t10 As String, _ + ByVal Original_t11 As String, _ + ByVal Original_t12 As String, _ + ByVal Original_t13 As String, _ + ByVal Original_t14 As String, _ + ByVal Original_t15 As String, _ + ByVal Original_t16 As String, _ + ByVal Original_t17 As String, _ + ByVal Original_t18 As String, _ + ByVal Original_t19 As String, _ + ByVal Original_t20 As String, _ + ByVal Original_t21 As String, _ + ByVal Original_t22 As String, _ + ByVal Original_t23 As String, _ + ByVal Original_t24 As String) As Integer + If (pcode Is Nothing) Then + Throw New Global.System.ArgumentNullException("pcode") + Else + Me.Adapter.UpdateCommand.Parameters(0).Value = CType(pcode,String) + End If + If (code Is Nothing) Then + Throw New Global.System.ArgumentNullException("code") + Else + Me.Adapter.UpdateCommand.Parameters(1).Value = CType(code,String) + End If + If (설명 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(2).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(2).Value = CType(설명,String) + End If + If (t01 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(3).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(3).Value = CType(t01,String) + End If + If (t02 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(4).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(4).Value = CType(t02,String) + End If + If (t03 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(5).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(5).Value = CType(t03,String) + End If + If (t04 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(6).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(6).Value = CType(t04,String) + End If + If (t05 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(7).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(7).Value = CType(t05,String) + End If + If (t06 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(8).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(8).Value = CType(t06,String) + End If + If (t07 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(9).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(9).Value = CType(t07,String) + End If + If (t08 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(10).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(10).Value = CType(t08,String) + End If + If (t09 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(11).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(11).Value = CType(t09,String) + End If + If (t10 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(12).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(12).Value = CType(t10,String) + End If + If (t11 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(13).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(13).Value = CType(t11,String) + End If + If (t12 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(14).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(14).Value = CType(t12,String) + End If + If (t13 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(15).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(15).Value = CType(t13,String) + End If + If (t14 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(16).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(16).Value = CType(t14,String) + End If + If (t15 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(17).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(17).Value = CType(t15,String) + End If + If (t16 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(18).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(18).Value = CType(t16,String) + End If + If (t17 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(19).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(19).Value = CType(t17,String) + End If + If (t18 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(20).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(20).Value = CType(t18,String) + End If + If (t19 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(21).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(21).Value = CType(t19,String) + End If + If (t20 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(22).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(22).Value = CType(t20,String) + End If + If (t21 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(23).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(23).Value = CType(t21,String) + End If + If (t22 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(24).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(24).Value = CType(t22,String) + End If + If (t23 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(25).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(25).Value = CType(t23,String) + End If + If (t24 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(26).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(26).Value = CType(t24,String) + End If + If (Original_pcode Is Nothing) Then + Throw New Global.System.ArgumentNullException("Original_pcode") + Else + Me.Adapter.UpdateCommand.Parameters(27).Value = CType(Original_pcode,String) + End If + If (Original_code Is Nothing) Then + Throw New Global.System.ArgumentNullException("Original_code") + Else + Me.Adapter.UpdateCommand.Parameters(28).Value = CType(Original_code,String) + End If + If (Original_설명 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(29).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(30).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(29).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(30).Value = CType(Original_설명,String) + End If + If (Original_t01 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(31).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(32).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(31).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(32).Value = CType(Original_t01,String) + End If + If (Original_t02 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(33).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(34).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(33).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(34).Value = CType(Original_t02,String) + End If + If (Original_t03 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(35).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(36).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(35).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(36).Value = CType(Original_t03,String) + End If + If (Original_t04 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(37).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(38).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(37).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(38).Value = CType(Original_t04,String) + End If + If (Original_t05 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(39).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(40).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(39).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(40).Value = CType(Original_t05,String) + End If + If (Original_t06 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(41).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(42).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(41).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(42).Value = CType(Original_t06,String) + End If + If (Original_t07 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(43).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(44).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(43).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(44).Value = CType(Original_t07,String) + End If + If (Original_t08 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(45).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(46).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(45).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(46).Value = CType(Original_t08,String) + End If + If (Original_t09 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(47).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(48).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(47).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(48).Value = CType(Original_t09,String) + End If + If (Original_t10 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(49).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(50).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(49).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(50).Value = CType(Original_t10,String) + End If + If (Original_t11 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(51).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(52).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(51).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(52).Value = CType(Original_t11,String) + End If + If (Original_t12 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(53).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(54).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(53).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(54).Value = CType(Original_t12,String) + End If + If (Original_t13 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(55).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(56).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(55).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(56).Value = CType(Original_t13,String) + End If + If (Original_t14 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(57).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(58).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(57).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(58).Value = CType(Original_t14,String) + End If + If (Original_t15 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(59).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(60).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(59).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(60).Value = CType(Original_t15,String) + End If + If (Original_t16 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(61).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(62).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(61).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(62).Value = CType(Original_t16,String) + End If + If (Original_t17 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(63).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(64).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(63).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(64).Value = CType(Original_t17,String) + End If + If (Original_t18 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(65).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(66).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(65).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(66).Value = CType(Original_t18,String) + End If + If (Original_t19 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(67).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(68).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(67).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(68).Value = CType(Original_t19,String) + End If + If (Original_t20 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(69).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(70).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(69).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(70).Value = CType(Original_t20,String) + End If + If (Original_t21 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(71).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(72).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(71).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(72).Value = CType(Original_t21,String) + End If + If (Original_t22 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(73).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(74).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(73).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(74).Value = CType(Original_t22,String) + End If + If (Original_t23 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(75).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(76).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(75).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(76).Value = CType(Original_t23,String) + End If + If (Original_t24 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(77).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(78).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(77).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(78).Value = CType(Original_t24,String) + End If + Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.UpdateCommand.Connection.State + If ((Me.Adapter.UpdateCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + Me.Adapter.UpdateCommand.Connection.Open + End If + Try + Dim returnValue As Integer = Me.Adapter.UpdateCommand.ExecuteNonQuery + Return returnValue + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + Me.Adapter.UpdateCommand.Connection.Close + End If + End Try + End Function + + _ + Public Overloads Overridable Function Update( _ + ByVal 설명 As String, _ + ByVal t01 As String, _ + ByVal t02 As String, _ + ByVal t03 As String, _ + ByVal t04 As String, _ + ByVal t05 As String, _ + ByVal t06 As String, _ + ByVal t07 As String, _ + ByVal t08 As String, _ + ByVal t09 As String, _ + ByVal t10 As String, _ + ByVal t11 As String, _ + ByVal t12 As String, _ + ByVal t13 As String, _ + ByVal t14 As String, _ + ByVal t15 As String, _ + ByVal t16 As String, _ + ByVal t17 As String, _ + ByVal t18 As String, _ + ByVal t19 As String, _ + ByVal t20 As String, _ + ByVal t21 As String, _ + ByVal t22 As String, _ + ByVal t23 As String, _ + ByVal t24 As String, _ + ByVal Original_pcode As String, _ + ByVal Original_code As String, _ + ByVal Original_설명 As String, _ + ByVal Original_t01 As String, _ + ByVal Original_t02 As String, _ + ByVal Original_t03 As String, _ + ByVal Original_t04 As String, _ + ByVal Original_t05 As String, _ + ByVal Original_t06 As String, _ + ByVal Original_t07 As String, _ + ByVal Original_t08 As String, _ + ByVal Original_t09 As String, _ + ByVal Original_t10 As String, _ + ByVal Original_t11 As String, _ + ByVal Original_t12 As String, _ + ByVal Original_t13 As String, _ + ByVal Original_t14 As String, _ + ByVal Original_t15 As String, _ + ByVal Original_t16 As String, _ + ByVal Original_t17 As String, _ + ByVal Original_t18 As String, _ + ByVal Original_t19 As String, _ + ByVal Original_t20 As String, _ + ByVal Original_t21 As String, _ + ByVal Original_t22 As String, _ + ByVal Original_t23 As String, _ + ByVal Original_t24 As String) As Integer + Return Me.Update(Original_pcode, Original_code, 설명, t01, t02, t03, t04, t05, t06, t07, t08, t09, t10, t11, t12, t13, t14, t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, Original_pcode, Original_code, Original_설명, Original_t01, Original_t02, Original_t03, Original_t04, Original_t05, Original_t06, Original_t07, Original_t08, Original_t09, Original_t10, Original_t11, Original_t12, Original_t13, Original_t14, Original_t15, Original_t16, Original_t17, Original_t18, Original_t19, Original_t20, Original_t21, Original_t22, Original_t23, Original_t24) + End Function + End Class + + ''' + '''Represents the connection and commands used to retrieve and save data. + ''' + _ + Partial Public Class tbl_weatherTableAdapter + Inherits Global.System.ComponentModel.Component + + Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter + + Private _connection As Global.System.Data.SqlClient.SqlConnection + + Private _transaction As Global.System.Data.SqlClient.SqlTransaction + + Private _commandCollection() As Global.System.Data.SqlClient.SqlCommand + + Private _clearBeforeFill As Boolean + + _ + Public Sub New() + MyBase.New + Me.ClearBeforeFill = true + End Sub + + _ + Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter + Get + If (Me._adapter Is Nothing) Then + Me.InitAdapter + End If + Return Me._adapter + End Get + End Property + + _ + Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection + Get + If (Me._connection Is Nothing) Then + Me.InitConnection + End If + Return Me._connection + End Get + Set + Me._connection = value + If (Not (Me.Adapter.InsertCommand) Is Nothing) Then + Me.Adapter.InsertCommand.Connection = value + End If + If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then + Me.Adapter.DeleteCommand.Connection = value + End If + If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then + Me.Adapter.UpdateCommand.Connection = value + End If + Dim i As Integer = 0 + Do While (i < Me.CommandCollection.Length) + If (Not (Me.CommandCollection(i)) Is Nothing) Then + CType(Me.CommandCollection(i),Global.System.Data.SqlClient.SqlCommand).Connection = value + End If + i = (i + 1) + Loop + End Set + End Property + + _ + Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction + Get + Return Me._transaction + End Get + Set + Me._transaction = value + Dim i As Integer = 0 + Do While (i < Me.CommandCollection.Length) + Me.CommandCollection(i).Transaction = Me._transaction + i = (i + 1) + Loop + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then + Me.Adapter.DeleteCommand.Transaction = Me._transaction + End If + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then + Me.Adapter.InsertCommand.Transaction = Me._transaction + End If + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then + Me.Adapter.UpdateCommand.Transaction = Me._transaction + End If + End Set + End Property + + _ + Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand() + Get + If (Me._commandCollection Is Nothing) Then + Me.InitCommandCollection + End If + Return Me._commandCollection + End Get + End Property + + _ + Public Property ClearBeforeFill() As Boolean + Get + Return Me._clearBeforeFill + End Get + Set + Me._clearBeforeFill = value + End Set + End Property + + _ + Private Sub InitAdapter() + Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter() + Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping() + tableMapping.SourceTable = "Table" + tableMapping.DataSetTable = "tbl_weather" + tableMapping.ColumnMappings.Add("code", "code") + tableMapping.ColumnMappings.Add("건물위치", "건물위치") + tableMapping.ColumnMappings.Add("난방기", "난방기") + tableMapping.ColumnMappings.Add("냉방기", "냉방기") + tableMapping.ColumnMappings.Add("m01", "m01") + tableMapping.ColumnMappings.Add("m02", "m02") + tableMapping.ColumnMappings.Add("m03", "m03") + tableMapping.ColumnMappings.Add("m04", "m04") + tableMapping.ColumnMappings.Add("m05", "m05") + tableMapping.ColumnMappings.Add("m06", "m06") + tableMapping.ColumnMappings.Add("m07", "m07") + tableMapping.ColumnMappings.Add("m08", "m08") + tableMapping.ColumnMappings.Add("m09", "m09") + tableMapping.ColumnMappings.Add("m10", "m10") + tableMapping.ColumnMappings.Add("m11", "m11") + tableMapping.ColumnMappings.Add("m12", "m12") + Me._adapter.TableMappings.Add(tableMapping) + Me._adapter.DeleteCommand = New Global.System.Data.SqlClient.SqlCommand() + Me._adapter.DeleteCommand.Connection = Me.Connection + Me._adapter.DeleteCommand.CommandText = "DELETE FROM [tbl_weather2] WHERE (([code] = @Original_code) AND ((@IsNull_건물위치 = "& _ + "1 AND [건물위치] IS NULL) OR ([건물위치] = @Original_건물위치)) AND ((@IsNull_난방기 = 1 AND [난"& _ + "방기] IS NULL) OR ([난방기] = @Original_난방기)) AND ((@IsNull_냉방기 = 1 AND [냉방기] IS NULL"& _ + ") OR ([냉방기] = @Original_냉방기)) AND ((@IsNull_m01 = 1 AND [m01] IS NULL) OR ([m01]"& _ + " = @Original_m01)) AND ((@IsNull_m02 = 1 AND [m02] IS NULL) OR ([m02] = @Origina"& _ + "l_m02)) AND ((@IsNull_m03 = 1 AND [m03] IS NULL) OR ([m03] = @Original_m03)) AND"& _ + " ((@IsNull_m04 = 1 AND [m04] IS NULL) OR ([m04] = @Original_m04)) AND ((@IsNull_"& _ + "m05 = 1 AND [m05] IS NULL) OR ([m05] = @Original_m05)) AND ((@IsNull_m06 = 1 AND"& _ + " [m06] IS NULL) OR ([m06] = @Original_m06)) AND ((@IsNull_m07 = 1 AND [m07] IS N"& _ + "ULL) OR ([m07] = @Original_m07)) AND ((@IsNull_m08 = 1 AND [m08] IS NULL) OR ([m"& _ + "08] = @Original_m08)) AND ((@IsNull_m09 = 1 AND [m09] IS NULL) OR ([m09] = @Orig"& _ + "inal_m09)) AND ((@IsNull_m10 = 1 AND [m10] IS NULL) OR ([m10] = @Original_m10)) "& _ + "AND ((@IsNull_m11 = 1 AND [m11] IS NULL) OR ([m11] = @Original_m11)) AND ((@IsNu"& _ + "ll_m12 = 1 AND [m12] IS NULL) OR ([m12] = @Original_m12)))" + Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_code", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "code", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_건물위치", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "건물위치", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_건물위치", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "건물위치", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_난방기", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "난방기", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_난방기", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "난방기", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_냉방기", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "냉방기", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_냉방기", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "냉방기", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_m01", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "m01", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_m01", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "m01", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_m02", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "m02", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_m02", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "m02", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_m03", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "m03", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_m03", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "m03", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_m04", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "m04", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_m04", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "m04", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_m05", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "m05", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_m05", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "m05", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_m06", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "m06", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_m06", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "m06", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_m07", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "m07", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_m07", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "m07", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_m08", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "m08", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_m08", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "m08", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_m09", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "m09", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_m09", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "m09", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_m10", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "m10", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_m10", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "m10", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_m11", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "m11", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_m11", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "m11", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_m12", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "m12", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_m12", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "m12", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.InsertCommand = New Global.System.Data.SqlClient.SqlCommand() + Me._adapter.InsertCommand.Connection = Me.Connection + Me._adapter.InsertCommand.CommandText = "INSERT INTO [tbl_weather2] ([code], [건물위치], [난방기], [냉방기], [m01], [m02], [m03], [m"& _ + "04], [m05], [m06], [m07], [m08], [m09], [m10], [m11], [m12]) VALUES (@code, @건물위"& _ + "치, @난방기, @냉방기, @m01, @m02, @m03, @m04, @m05, @m06, @m07, @m08, @m09, @m10, @m11,"& _ + " @m12);"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT code, 건물위치, 난방기, 냉방기, m01, m02, m03, m04, m05, m06, m07, m08, m0"& _ + "9, m10, m11, m12 FROM tbl_weather2 WHERE (code = @code) ORDER BY code" + Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@code", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "code", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@건물위치", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "건물위치", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@난방기", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "난방기", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@냉방기", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "냉방기", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@m01", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "m01", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@m02", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "m02", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@m03", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "m03", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@m04", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "m04", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@m05", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "m05", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@m06", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "m06", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@m07", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "m07", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@m08", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "m08", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@m09", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "m09", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@m10", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "m10", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@m11", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "m11", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@m12", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "m12", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand = New Global.System.Data.SqlClient.SqlCommand() + Me._adapter.UpdateCommand.Connection = Me.Connection + Me._adapter.UpdateCommand.CommandText = "UPDATE [tbl_weather2] SET [code] = @code, [건물위치] = @건물위치, [난방기] = @난방기, [냉방기] = @"& _ + "냉방기, [m01] = @m01, [m02] = @m02, [m03] = @m03, [m04] = @m04, [m05] = @m05, [m06]"& _ + " = @m06, [m07] = @m07, [m08] = @m08, [m09] = @m09, [m10] = @m10, [m11] = @m11, ["& _ + "m12] = @m12 WHERE (([code] = @Original_code) AND ((@IsNull_건물위치 = 1 AND [건물위치] I"& _ + "S NULL) OR ([건물위치] = @Original_건물위치)) AND ((@IsNull_난방기 = 1 AND [난방기] IS NULL) O"& _ + "R ([난방기] = @Original_난방기)) AND ((@IsNull_냉방기 = 1 AND [냉방기] IS NULL) OR ([냉방기] = "& _ + "@Original_냉방기)) AND ((@IsNull_m01 = 1 AND [m01] IS NULL) OR ([m01] = @Original_m"& _ + "01)) AND ((@IsNull_m02 = 1 AND [m02] IS NULL) OR ([m02] = @Original_m02)) AND (("& _ + "@IsNull_m03 = 1 AND [m03] IS NULL) OR ([m03] = @Original_m03)) AND ((@IsNull_m04"& _ + " = 1 AND [m04] IS NULL) OR ([m04] = @Original_m04)) AND ((@IsNull_m05 = 1 AND [m"& _ + "05] IS NULL) OR ([m05] = @Original_m05)) AND ((@IsNull_m06 = 1 AND [m06] IS NULL"& _ + ") OR ([m06] = @Original_m06)) AND ((@IsNull_m07 = 1 AND [m07] IS NULL) OR ([m07]"& _ + " = @Original_m07)) AND ((@IsNull_m08 = 1 AND [m08] IS NULL) OR ([m08] = @Origina"& _ + "l_m08)) AND ((@IsNull_m09 = 1 AND [m09] IS NULL) OR ([m09] = @Original_m09)) AND"& _ + " ((@IsNull_m10 = 1 AND [m10] IS NULL) OR ([m10] = @Original_m10)) AND ((@IsNull_"& _ + "m11 = 1 AND [m11] IS NULL) OR ([m11] = @Original_m11)) AND ((@IsNull_m12 = 1 AND"& _ + " [m12] IS NULL) OR ([m12] = @Original_m12)));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT code, 건물위치, 난방기, 냉방기, m01,"& _ + " m02, m03, m04, m05, m06, m07, m08, m09, m10, m11, m12 FROM tbl_weather2 WHERE ("& _ + "code = @code) ORDER BY code" + Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@code", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "code", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@건물위치", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "건물위치", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@난방기", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "난방기", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@냉방기", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "냉방기", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@m01", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "m01", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@m02", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "m02", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@m03", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "m03", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@m04", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "m04", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@m05", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "m05", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@m06", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "m06", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@m07", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "m07", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@m08", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "m08", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@m09", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "m09", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@m10", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "m10", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@m11", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "m11", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@m12", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "m12", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_code", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "code", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_건물위치", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "건물위치", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_건물위치", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "건물위치", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_난방기", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "난방기", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_난방기", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "난방기", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_냉방기", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "냉방기", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_냉방기", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "냉방기", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_m01", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "m01", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_m01", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "m01", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_m02", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "m02", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_m02", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "m02", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_m03", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "m03", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_m03", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "m03", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_m04", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "m04", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_m04", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "m04", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_m05", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "m05", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_m05", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "m05", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_m06", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "m06", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_m06", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "m06", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_m07", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "m07", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_m07", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "m07", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_m08", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "m08", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_m08", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "m08", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_m09", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "m09", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_m09", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "m09", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_m10", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "m10", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_m10", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "m10", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_m11", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "m11", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_m11", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "m11", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_m12", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "m12", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_m12", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "m12", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + End Sub + + _ + Private Sub InitConnection() + Me._connection = New Global.System.Data.SqlClient.SqlConnection() + Me._connection.ConnectionString = Global.Eco2Ar.My.MySettings.Default.cs + End Sub + + _ + Private Sub InitCommandCollection() + Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {} + Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() + Me._commandCollection(0).Connection = Me.Connection + Me._commandCollection(0).CommandText = "SELECT code, 건물위치, 난방기, 냉방기, m01, m02, m03, m04, m05, m06, m07, m08, m09, m10, m"& _ + "11, m12"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM tbl_weather2"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"ORDER BY code" + Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text + End Sub + + _ + Public Overloads Overridable Function Fill(ByVal dataTable As DS.tbl_weatherDataTable) As Integer + Me.Adapter.SelectCommand = Me.CommandCollection(0) + If (Me.ClearBeforeFill = true) Then + dataTable.Clear + End If + Dim returnValue As Integer = Me.Adapter.Fill(dataTable) + Return returnValue + End Function + + _ + Public Overloads Overridable Function GetData() As DS.tbl_weatherDataTable + Me.Adapter.SelectCommand = Me.CommandCollection(0) + Dim dataTable As DS.tbl_weatherDataTable = New DS.tbl_weatherDataTable() + Me.Adapter.Fill(dataTable) + Return dataTable + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataTable As DS.tbl_weatherDataTable) As Integer + Return Me.Adapter.Update(dataTable) + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataSet As DS) As Integer + Return Me.Adapter.Update(dataSet, "tbl_weather") + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer + Return Me.Adapter.Update(New Global.System.Data.DataRow() {dataRow}) + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer + Return Me.Adapter.Update(dataRows) + End Function + + _ + Public Overloads Overridable Function Delete( _ + ByVal Original_code As String, _ + ByVal Original_건물위치 As String, _ + ByVal Original_난방기 As String, _ + ByVal Original_냉방기 As String, _ + ByVal Original_m01 As String, _ + ByVal Original_m02 As String, _ + ByVal Original_m03 As String, _ + ByVal Original_m04 As String, _ + ByVal Original_m05 As String, _ + ByVal Original_m06 As String, _ + ByVal Original_m07 As String, _ + ByVal Original_m08 As String, _ + ByVal Original_m09 As String, _ + ByVal Original_m10 As String, _ + ByVal Original_m11 As String, _ + ByVal Original_m12 As String) As Integer + If (Original_code Is Nothing) Then + Throw New Global.System.ArgumentNullException("Original_code") + Else + Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_code,String) + End If + If (Original_건물위치 Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(1).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(2).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(1).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(2).Value = CType(Original_건물위치,String) + End If + If (Original_난방기 Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(3).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(4).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(3).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(4).Value = CType(Original_난방기,String) + End If + If (Original_냉방기 Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(5).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(6).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(5).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(6).Value = CType(Original_냉방기,String) + End If + If (Original_m01 Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(7).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(8).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(7).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(8).Value = CType(Original_m01,String) + End If + If (Original_m02 Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(9).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(10).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(9).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(10).Value = CType(Original_m02,String) + End If + If (Original_m03 Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(11).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(12).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(11).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(12).Value = CType(Original_m03,String) + End If + If (Original_m04 Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(13).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(14).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(13).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(14).Value = CType(Original_m04,String) + End If + If (Original_m05 Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(15).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(16).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(15).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(16).Value = CType(Original_m05,String) + End If + If (Original_m06 Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(17).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(18).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(17).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(18).Value = CType(Original_m06,String) + End If + If (Original_m07 Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(19).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(20).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(19).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(20).Value = CType(Original_m07,String) + End If + If (Original_m08 Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(21).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(22).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(21).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(22).Value = CType(Original_m08,String) + End If + If (Original_m09 Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(23).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(24).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(23).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(24).Value = CType(Original_m09,String) + End If + If (Original_m10 Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(25).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(26).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(25).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(26).Value = CType(Original_m10,String) + End If + If (Original_m11 Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(27).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(28).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(27).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(28).Value = CType(Original_m11,String) + End If + If (Original_m12 Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(29).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(30).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(29).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(30).Value = CType(Original_m12,String) + End If + Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.DeleteCommand.Connection.State + If ((Me.Adapter.DeleteCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + Me.Adapter.DeleteCommand.Connection.Open + End If + Try + Dim returnValue As Integer = Me.Adapter.DeleteCommand.ExecuteNonQuery + Return returnValue + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + Me.Adapter.DeleteCommand.Connection.Close + End If + End Try + End Function + + _ + Public Overloads Overridable Function Insert( _ + ByVal code As String, _ + ByVal 건물위치 As String, _ + ByVal 난방기 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 Integer + If (code Is Nothing) Then + Throw New Global.System.ArgumentNullException("code") + Else + Me.Adapter.InsertCommand.Parameters(0).Value = CType(code,String) + End If + If (건물위치 Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(1).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(1).Value = CType(건물위치,String) + End If + If (난방기 Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(2).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(2).Value = CType(난방기,String) + End If + If (냉방기 Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(3).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(3).Value = CType(냉방기,String) + End If + If (m01 Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(4).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(4).Value = CType(m01,String) + End If + If (m02 Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(5).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(5).Value = CType(m02,String) + End If + If (m03 Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(6).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(6).Value = CType(m03,String) + End If + If (m04 Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(7).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(7).Value = CType(m04,String) + End If + If (m05 Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(8).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(8).Value = CType(m05,String) + End If + If (m06 Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(9).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(9).Value = CType(m06,String) + End If + If (m07 Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(10).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(10).Value = CType(m07,String) + End If + If (m08 Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(11).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(11).Value = CType(m08,String) + End If + If (m09 Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(12).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(12).Value = CType(m09,String) + End If + If (m10 Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(13).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(13).Value = CType(m10,String) + End If + If (m11 Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(14).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(14).Value = CType(m11,String) + End If + If (m12 Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(15).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(15).Value = CType(m12,String) + End If + Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.InsertCommand.Connection.State + If ((Me.Adapter.InsertCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + Me.Adapter.InsertCommand.Connection.Open + End If + Try + Dim returnValue As Integer = Me.Adapter.InsertCommand.ExecuteNonQuery + Return returnValue + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + Me.Adapter.InsertCommand.Connection.Close + End If + End Try + End Function + + _ + Public Overloads Overridable Function Update( _ + ByVal code As String, _ + ByVal 건물위치 As String, _ + ByVal 난방기 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, _ + ByVal Original_code As String, _ + ByVal Original_건물위치 As String, _ + ByVal Original_난방기 As String, _ + ByVal Original_냉방기 As String, _ + ByVal Original_m01 As String, _ + ByVal Original_m02 As String, _ + ByVal Original_m03 As String, _ + ByVal Original_m04 As String, _ + ByVal Original_m05 As String, _ + ByVal Original_m06 As String, _ + ByVal Original_m07 As String, _ + ByVal Original_m08 As String, _ + ByVal Original_m09 As String, _ + ByVal Original_m10 As String, _ + ByVal Original_m11 As String, _ + ByVal Original_m12 As String) As Integer + If (code Is Nothing) Then + Throw New Global.System.ArgumentNullException("code") + Else + Me.Adapter.UpdateCommand.Parameters(0).Value = CType(code,String) + End If + If (건물위치 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(1).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(1).Value = CType(건물위치,String) + End If + If (난방기 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(2).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(2).Value = CType(난방기,String) + End If + If (냉방기 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(3).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(3).Value = CType(냉방기,String) + End If + If (m01 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(4).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(4).Value = CType(m01,String) + End If + If (m02 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(5).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(5).Value = CType(m02,String) + End If + If (m03 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(6).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(6).Value = CType(m03,String) + End If + If (m04 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(7).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(7).Value = CType(m04,String) + End If + If (m05 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(8).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(8).Value = CType(m05,String) + End If + If (m06 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(9).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(9).Value = CType(m06,String) + End If + If (m07 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(10).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(10).Value = CType(m07,String) + End If + If (m08 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(11).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(11).Value = CType(m08,String) + End If + If (m09 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(12).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(12).Value = CType(m09,String) + End If + If (m10 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(13).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(13).Value = CType(m10,String) + End If + If (m11 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(14).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(14).Value = CType(m11,String) + End If + If (m12 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(15).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(15).Value = CType(m12,String) + End If + If (Original_code Is Nothing) Then + Throw New Global.System.ArgumentNullException("Original_code") + Else + Me.Adapter.UpdateCommand.Parameters(16).Value = CType(Original_code,String) + End If + If (Original_건물위치 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(17).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(18).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(17).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(18).Value = CType(Original_건물위치,String) + End If + If (Original_난방기 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(19).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(20).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(19).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(20).Value = CType(Original_난방기,String) + End If + If (Original_냉방기 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(21).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(22).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(21).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(22).Value = CType(Original_냉방기,String) + End If + If (Original_m01 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(23).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(24).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(23).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(24).Value = CType(Original_m01,String) + End If + If (Original_m02 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(25).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(26).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(25).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(26).Value = CType(Original_m02,String) + End If + If (Original_m03 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(27).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(28).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(27).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(28).Value = CType(Original_m03,String) + End If + If (Original_m04 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(29).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(30).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(29).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(30).Value = CType(Original_m04,String) + End If + If (Original_m05 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(31).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(32).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(31).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(32).Value = CType(Original_m05,String) + End If + If (Original_m06 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(33).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(34).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(33).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(34).Value = CType(Original_m06,String) + End If + If (Original_m07 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(35).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(36).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(35).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(36).Value = CType(Original_m07,String) + End If + If (Original_m08 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(37).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(38).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(37).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(38).Value = CType(Original_m08,String) + End If + If (Original_m09 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(39).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(40).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(39).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(40).Value = CType(Original_m09,String) + End If + If (Original_m10 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(41).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(42).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(41).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(42).Value = CType(Original_m10,String) + End If + If (Original_m11 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(43).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(44).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(43).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(44).Value = CType(Original_m11,String) + End If + If (Original_m12 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(45).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(46).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(45).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(46).Value = CType(Original_m12,String) + End If + Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.UpdateCommand.Connection.State + If ((Me.Adapter.UpdateCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + Me.Adapter.UpdateCommand.Connection.Open + End If + Try + Dim returnValue As Integer = Me.Adapter.UpdateCommand.ExecuteNonQuery + Return returnValue + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + Me.Adapter.UpdateCommand.Connection.Close + End If + End Try + End Function + + _ + Public Overloads Overridable Function Update( _ + ByVal 건물위치 As String, _ + ByVal 난방기 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, _ + ByVal Original_code As String, _ + ByVal Original_건물위치 As String, _ + ByVal Original_난방기 As String, _ + ByVal Original_냉방기 As String, _ + ByVal Original_m01 As String, _ + ByVal Original_m02 As String, _ + ByVal Original_m03 As String, _ + ByVal Original_m04 As String, _ + ByVal Original_m05 As String, _ + ByVal Original_m06 As String, _ + ByVal Original_m07 As String, _ + ByVal Original_m08 As String, _ + ByVal Original_m09 As String, _ + ByVal Original_m10 As String, _ + ByVal Original_m11 As String, _ + ByVal Original_m12 As String) As Integer + Return Me.Update(Original_code, 건물위치, 난방기, 냉방기, m01, m02, m03, m04, m05, m06, m07, m08, m09, m10, m11, m12, Original_code, Original_건물위치, Original_난방기, Original_냉방기, Original_m01, Original_m02, Original_m03, Original_m04, Original_m05, Original_m06, Original_m07, Original_m08, Original_m09, Original_m10, Original_m11, Original_m12) + End Function + End Class + + ''' + '''Represents the connection and commands used to retrieve and save data. + ''' + _ + Partial Public Class weather_ilsaTableAdapter + Inherits Global.System.ComponentModel.Component + + Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter + + Private _connection As Global.System.Data.SqlClient.SqlConnection + + Private _transaction As Global.System.Data.SqlClient.SqlTransaction + + Private _commandCollection() As Global.System.Data.SqlClient.SqlCommand + + Private _clearBeforeFill As Boolean + + _ + Public Sub New() + MyBase.New + Me.ClearBeforeFill = true + End Sub + + _ + Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter + Get + If (Me._adapter Is Nothing) Then + Me.InitAdapter + End If + Return Me._adapter + End Get + End Property + + _ + Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection + Get + If (Me._connection Is Nothing) Then + Me.InitConnection + End If + Return Me._connection + End Get + Set + Me._connection = value + If (Not (Me.Adapter.InsertCommand) Is Nothing) Then + Me.Adapter.InsertCommand.Connection = value + End If + If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then + Me.Adapter.DeleteCommand.Connection = value + End If + If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then + Me.Adapter.UpdateCommand.Connection = value + End If + Dim i As Integer = 0 + Do While (i < Me.CommandCollection.Length) + If (Not (Me.CommandCollection(i)) Is Nothing) Then + CType(Me.CommandCollection(i),Global.System.Data.SqlClient.SqlCommand).Connection = value + End If + i = (i + 1) + Loop + End Set + End Property + + _ + Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction + Get + Return Me._transaction + End Get + Set + Me._transaction = value + Dim i As Integer = 0 + Do While (i < Me.CommandCollection.Length) + Me.CommandCollection(i).Transaction = Me._transaction + i = (i + 1) + Loop + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then + Me.Adapter.DeleteCommand.Transaction = Me._transaction + End If + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then + Me.Adapter.InsertCommand.Transaction = Me._transaction + End If + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then + Me.Adapter.UpdateCommand.Transaction = Me._transaction + End If + End Set + End Property + + _ + Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand() + Get + If (Me._commandCollection Is Nothing) Then + Me.InitCommandCollection + End If + Return Me._commandCollection + End Get + End Property + + _ + Public Property ClearBeforeFill() As Boolean + Get + Return Me._clearBeforeFill + End Get + Set + Me._clearBeforeFill = value + End Set + End Property + + _ + Private Sub InitAdapter() + Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter() + Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping() + tableMapping.SourceTable = "Table" + tableMapping.DataSetTable = "weather_ilsa" + tableMapping.ColumnMappings.Add("pcode", "pcode") + tableMapping.ColumnMappings.Add("code", "code") + tableMapping.ColumnMappings.Add("설명", "설명") + tableMapping.ColumnMappings.Add("최대부하", "최대부하") + tableMapping.ColumnMappings.Add("m01", "m01") + tableMapping.ColumnMappings.Add("m02", "m02") + tableMapping.ColumnMappings.Add("m03", "m03") + tableMapping.ColumnMappings.Add("m04", "m04") + tableMapping.ColumnMappings.Add("m05", "m05") + tableMapping.ColumnMappings.Add("m06", "m06") + tableMapping.ColumnMappings.Add("m07", "m07") + tableMapping.ColumnMappings.Add("m08", "m08") + tableMapping.ColumnMappings.Add("m09", "m09") + tableMapping.ColumnMappings.Add("m10", "m10") + tableMapping.ColumnMappings.Add("m11", "m11") + tableMapping.ColumnMappings.Add("m12", "m12") + Me._adapter.TableMappings.Add(tableMapping) + Me._adapter.DeleteCommand = New Global.System.Data.SqlClient.SqlCommand() + Me._adapter.DeleteCommand.Connection = Me.Connection + Me._adapter.DeleteCommand.CommandText = "DELETE FROM [weather_ilsa2] WHERE (([pcode] = @Original_pcode) AND ([code] = @Ori"& _ + "ginal_code) AND ((@IsNull_설명 = 1 AND [설명] IS NULL) OR ([설명] = @Original_설명)) AND"& _ + " ((@IsNull_최대부하 = 1 AND [최대부하] IS NULL) OR ([최대부하] = @Original_최대부하)) AND ((@IsN"& _ + "ull_m01 = 1 AND [m01] IS NULL) OR ([m01] = @Original_m01)) AND ((@IsNull_m02 = 1"& _ + " AND [m02] IS NULL) OR ([m02] = @Original_m02)) AND ((@IsNull_m03 = 1 AND [m03] "& _ + "IS NULL) OR ([m03] = @Original_m03)) AND ((@IsNull_m04 = 1 AND [m04] IS NULL) OR"& _ + " ([m04] = @Original_m04)) AND ((@IsNull_m05 = 1 AND [m05] IS NULL) OR ([m05] = @"& _ + "Original_m05)) AND ((@IsNull_m06 = 1 AND [m06] IS NULL) OR ([m06] = @Original_m0"& _ + "6)) AND ((@IsNull_m07 = 1 AND [m07] IS NULL) OR ([m07] = @Original_m07)) AND ((@"& _ + "IsNull_m08 = 1 AND [m08] IS NULL) OR ([m08] = @Original_m08)) AND ((@IsNull_m09 "& _ + "= 1 AND [m09] IS NULL) OR ([m09] = @Original_m09)) AND ((@IsNull_m10 = 1 AND [m1"& _ + "0] IS NULL) OR ([m10] = @Original_m10)) AND ((@IsNull_m11 = 1 AND [m11] IS NULL)"& _ + " OR ([m11] = @Original_m11)) AND ((@IsNull_m12 = 1 AND [m12] IS NULL) OR ([m12] "& _ + "= @Original_m12)))" + Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_pcode", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "pcode", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_code", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "code", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_설명", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "설명", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_설명", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "설명", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_최대부하", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "최대부하", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_최대부하", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "최대부하", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_m01", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "m01", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_m01", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "m01", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_m02", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "m02", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_m02", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "m02", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_m03", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "m03", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_m03", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "m03", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_m04", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "m04", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_m04", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "m04", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_m05", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "m05", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_m05", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "m05", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_m06", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "m06", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_m06", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "m06", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_m07", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "m07", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_m07", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "m07", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_m08", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "m08", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_m08", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "m08", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_m09", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "m09", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_m09", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "m09", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_m10", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "m10", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_m10", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "m10", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_m11", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "m11", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_m11", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "m11", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_m12", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "m12", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_m12", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "m12", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.InsertCommand = New Global.System.Data.SqlClient.SqlCommand() + Me._adapter.InsertCommand.Connection = Me.Connection + Me._adapter.InsertCommand.CommandText = "INSERT INTO [weather_ilsa2] ([pcode], [code], [설명], [최대부하], [m01], [m02], [m03], "& _ + "[m04], [m05], [m06], [m07], [m08], [m09], [m10], [m11], [m12]) VALUES (@pcode, @"& _ + "code, @설명, @최대부하, @m01, @m02, @m03, @m04, @m05, @m06, @m07, @m08, @m09, @m10, @m"& _ + "11, @m12);"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT pcode, code, 설명, 최대부하, m01, m02, m03, m04, m05, m06, m07, m08"& _ + ", m09, m10, m11, m12 FROM weather_ilsa2 WHERE (code = @code) AND (pcode = @pcode"& _ + ")" + Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@pcode", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "pcode", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@code", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "code", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@설명", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "설명", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@최대부하", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "최대부하", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@m01", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "m01", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@m02", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "m02", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@m03", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "m03", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@m04", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "m04", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@m05", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "m05", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@m06", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "m06", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@m07", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "m07", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@m08", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "m08", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@m09", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "m09", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@m10", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "m10", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@m11", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "m11", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@m12", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "m12", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand = New Global.System.Data.SqlClient.SqlCommand() + Me._adapter.UpdateCommand.Connection = Me.Connection + Me._adapter.UpdateCommand.CommandText = "UPDATE [weather_ilsa2] SET [pcode] = @pcode, [code] = @code, [설명] = @설명, [최대부하] ="& _ + " @최대부하, [m01] = @m01, [m02] = @m02, [m03] = @m03, [m04] = @m04, [m05] = @m05, [m"& _ + "06] = @m06, [m07] = @m07, [m08] = @m08, [m09] = @m09, [m10] = @m10, [m11] = @m11"& _ + ", [m12] = @m12 WHERE (([pcode] = @Original_pcode) AND ([code] = @Original_code) "& _ + "AND ((@IsNull_설명 = 1 AND [설명] IS NULL) OR ([설명] = @Original_설명)) AND ((@IsNull_최"& _ + "대부하 = 1 AND [최대부하] IS NULL) OR ([최대부하] = @Original_최대부하)) AND ((@IsNull_m01 = 1 "& _ + "AND [m01] IS NULL) OR ([m01] = @Original_m01)) AND ((@IsNull_m02 = 1 AND [m02] I"& _ + "S NULL) OR ([m02] = @Original_m02)) AND ((@IsNull_m03 = 1 AND [m03] IS NULL) OR "& _ + "([m03] = @Original_m03)) AND ((@IsNull_m04 = 1 AND [m04] IS NULL) OR ([m04] = @O"& _ + "riginal_m04)) AND ((@IsNull_m05 = 1 AND [m05] IS NULL) OR ([m05] = @Original_m05"& _ + ")) AND ((@IsNull_m06 = 1 AND [m06] IS NULL) OR ([m06] = @Original_m06)) AND ((@I"& _ + "sNull_m07 = 1 AND [m07] IS NULL) OR ([m07] = @Original_m07)) AND ((@IsNull_m08 ="& _ + " 1 AND [m08] IS NULL) OR ([m08] = @Original_m08)) AND ((@IsNull_m09 = 1 AND [m09"& _ + "] IS NULL) OR ([m09] = @Original_m09)) AND ((@IsNull_m10 = 1 AND [m10] IS NULL) "& _ + "OR ([m10] = @Original_m10)) AND ((@IsNull_m11 = 1 AND [m11] IS NULL) OR ([m11] ="& _ + " @Original_m11)) AND ((@IsNull_m12 = 1 AND [m12] IS NULL) OR ([m12] = @Original_"& _ + "m12)));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT pcode, code, 설명, 최대부하, m01, m02, m03, m04, m05, m06, m07, m08, m"& _ + "09, m10, m11, m12 FROM weather_ilsa2 WHERE (code = @code) AND (pcode = @pcode)" + Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@pcode", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "pcode", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@code", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "code", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@설명", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "설명", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@최대부하", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "최대부하", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@m01", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "m01", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@m02", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "m02", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@m03", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "m03", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@m04", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "m04", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@m05", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "m05", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@m06", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "m06", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@m07", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "m07", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@m08", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "m08", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@m09", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "m09", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@m10", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "m10", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@m11", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "m11", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@m12", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "m12", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_pcode", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "pcode", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_code", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "code", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_설명", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "설명", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_설명", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "설명", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_최대부하", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "최대부하", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_최대부하", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "최대부하", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_m01", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "m01", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_m01", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "m01", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_m02", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "m02", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_m02", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "m02", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_m03", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "m03", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_m03", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "m03", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_m04", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "m04", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_m04", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "m04", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_m05", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "m05", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_m05", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "m05", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_m06", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "m06", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_m06", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "m06", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_m07", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "m07", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_m07", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "m07", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_m08", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "m08", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_m08", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "m08", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_m09", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "m09", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_m09", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "m09", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_m10", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "m10", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_m10", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "m10", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_m11", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "m11", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_m11", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "m11", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_m12", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "m12", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_m12", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "m12", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + End Sub + + _ + Private Sub InitConnection() + Me._connection = New Global.System.Data.SqlClient.SqlConnection() + Me._connection.ConnectionString = Global.Eco2Ar.My.MySettings.Default.cs + End Sub + + _ + Private Sub InitCommandCollection() + Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {} + Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() + Me._commandCollection(0).Connection = Me.Connection + Me._commandCollection(0).CommandText = "SELECT pcode, code, 설명, 최대부하, m01, m02, m03, m04, m05, m06, m07, m08, m09, m10, "& _ + "m11, m12"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM weather_ilsa2" + Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text + End Sub + + _ + Public Overloads Overridable Function Fill(ByVal dataTable As DS.weather_ilsaDataTable) As Integer + Me.Adapter.SelectCommand = Me.CommandCollection(0) + If (Me.ClearBeforeFill = true) Then + dataTable.Clear + End If + Dim returnValue As Integer = Me.Adapter.Fill(dataTable) + Return returnValue + End Function + + _ + Public Overloads Overridable Function GetData() As DS.weather_ilsaDataTable + Me.Adapter.SelectCommand = Me.CommandCollection(0) + Dim dataTable As DS.weather_ilsaDataTable = New DS.weather_ilsaDataTable() + Me.Adapter.Fill(dataTable) + Return dataTable + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataTable As DS.weather_ilsaDataTable) As Integer + Return Me.Adapter.Update(dataTable) + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataSet As DS) As Integer + Return Me.Adapter.Update(dataSet, "weather_ilsa") + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer + Return Me.Adapter.Update(New Global.System.Data.DataRow() {dataRow}) + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer + Return Me.Adapter.Update(dataRows) + End Function + + _ + Public Overloads Overridable Function Delete( _ + ByVal Original_pcode As String, _ + ByVal Original_code As String, _ + ByVal Original_설명 As String, _ + ByVal Original_최대부하 As String, _ + ByVal Original_m01 As String, _ + ByVal Original_m02 As String, _ + ByVal Original_m03 As String, _ + ByVal Original_m04 As String, _ + ByVal Original_m05 As String, _ + ByVal Original_m06 As String, _ + ByVal Original_m07 As String, _ + ByVal Original_m08 As String, _ + ByVal Original_m09 As String, _ + ByVal Original_m10 As String, _ + ByVal Original_m11 As String, _ + ByVal Original_m12 As String) As Integer + If (Original_pcode Is Nothing) Then + Throw New Global.System.ArgumentNullException("Original_pcode") + Else + Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_pcode,String) + End If + If (Original_code Is Nothing) Then + Throw New Global.System.ArgumentNullException("Original_code") + Else + Me.Adapter.DeleteCommand.Parameters(1).Value = CType(Original_code,String) + End If + If (Original_설명 Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(2).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(3).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(2).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(3).Value = CType(Original_설명,String) + End If + If (Original_최대부하 Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(4).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(5).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(4).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(5).Value = CType(Original_최대부하,String) + End If + If (Original_m01 Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(6).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(7).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(6).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(7).Value = CType(Original_m01,String) + End If + If (Original_m02 Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(8).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(9).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(8).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(9).Value = CType(Original_m02,String) + End If + If (Original_m03 Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(10).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(11).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(10).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(11).Value = CType(Original_m03,String) + End If + If (Original_m04 Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(12).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(13).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(12).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(13).Value = CType(Original_m04,String) + End If + If (Original_m05 Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(14).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(15).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(14).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(15).Value = CType(Original_m05,String) + End If + If (Original_m06 Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(16).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(17).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(16).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(17).Value = CType(Original_m06,String) + End If + If (Original_m07 Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(18).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(19).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(18).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(19).Value = CType(Original_m07,String) + End If + If (Original_m08 Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(20).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(21).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(20).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(21).Value = CType(Original_m08,String) + End If + If (Original_m09 Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(22).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(23).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(22).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(23).Value = CType(Original_m09,String) + End If + If (Original_m10 Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(24).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(25).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(24).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(25).Value = CType(Original_m10,String) + End If + If (Original_m11 Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(26).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(27).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(26).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(27).Value = CType(Original_m11,String) + End If + If (Original_m12 Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(28).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(29).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(28).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(29).Value = CType(Original_m12,String) + End If + Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.DeleteCommand.Connection.State + If ((Me.Adapter.DeleteCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + Me.Adapter.DeleteCommand.Connection.Open + End If + Try + Dim returnValue As Integer = Me.Adapter.DeleteCommand.ExecuteNonQuery + Return returnValue + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + Me.Adapter.DeleteCommand.Connection.Close + End If + End Try + End Function + + _ + Public Overloads Overridable Function Insert( _ + ByVal pcode As String, _ + ByVal code As String, _ + ByVal 설명 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 Integer + If (pcode Is Nothing) Then + Throw New Global.System.ArgumentNullException("pcode") + Else + Me.Adapter.InsertCommand.Parameters(0).Value = CType(pcode,String) + End If + If (code Is Nothing) Then + Throw New Global.System.ArgumentNullException("code") + Else + Me.Adapter.InsertCommand.Parameters(1).Value = CType(code,String) + End If + If (설명 Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(2).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(2).Value = CType(설명,String) + End If + If (최대부하 Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(3).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(3).Value = CType(최대부하,String) + End If + If (m01 Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(4).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(4).Value = CType(m01,String) + End If + If (m02 Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(5).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(5).Value = CType(m02,String) + End If + If (m03 Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(6).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(6).Value = CType(m03,String) + End If + If (m04 Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(7).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(7).Value = CType(m04,String) + End If + If (m05 Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(8).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(8).Value = CType(m05,String) + End If + If (m06 Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(9).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(9).Value = CType(m06,String) + End If + If (m07 Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(10).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(10).Value = CType(m07,String) + End If + If (m08 Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(11).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(11).Value = CType(m08,String) + End If + If (m09 Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(12).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(12).Value = CType(m09,String) + End If + If (m10 Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(13).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(13).Value = CType(m10,String) + End If + If (m11 Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(14).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(14).Value = CType(m11,String) + End If + If (m12 Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(15).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(15).Value = CType(m12,String) + End If + Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.InsertCommand.Connection.State + If ((Me.Adapter.InsertCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + Me.Adapter.InsertCommand.Connection.Open + End If + Try + Dim returnValue As Integer = Me.Adapter.InsertCommand.ExecuteNonQuery + Return returnValue + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + Me.Adapter.InsertCommand.Connection.Close + End If + End Try + End Function + + _ + Public Overloads Overridable Function Update( _ + ByVal pcode As String, _ + ByVal code As String, _ + ByVal 설명 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, _ + ByVal Original_pcode As String, _ + ByVal Original_code As String, _ + ByVal Original_설명 As String, _ + ByVal Original_최대부하 As String, _ + ByVal Original_m01 As String, _ + ByVal Original_m02 As String, _ + ByVal Original_m03 As String, _ + ByVal Original_m04 As String, _ + ByVal Original_m05 As String, _ + ByVal Original_m06 As String, _ + ByVal Original_m07 As String, _ + ByVal Original_m08 As String, _ + ByVal Original_m09 As String, _ + ByVal Original_m10 As String, _ + ByVal Original_m11 As String, _ + ByVal Original_m12 As String) As Integer + If (pcode Is Nothing) Then + Throw New Global.System.ArgumentNullException("pcode") + Else + Me.Adapter.UpdateCommand.Parameters(0).Value = CType(pcode,String) + End If + If (code Is Nothing) Then + Throw New Global.System.ArgumentNullException("code") + Else + Me.Adapter.UpdateCommand.Parameters(1).Value = CType(code,String) + End If + If (설명 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(2).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(2).Value = CType(설명,String) + End If + If (최대부하 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(3).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(3).Value = CType(최대부하,String) + End If + If (m01 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(4).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(4).Value = CType(m01,String) + End If + If (m02 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(5).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(5).Value = CType(m02,String) + End If + If (m03 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(6).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(6).Value = CType(m03,String) + End If + If (m04 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(7).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(7).Value = CType(m04,String) + End If + If (m05 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(8).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(8).Value = CType(m05,String) + End If + If (m06 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(9).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(9).Value = CType(m06,String) + End If + If (m07 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(10).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(10).Value = CType(m07,String) + End If + If (m08 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(11).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(11).Value = CType(m08,String) + End If + If (m09 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(12).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(12).Value = CType(m09,String) + End If + If (m10 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(13).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(13).Value = CType(m10,String) + End If + If (m11 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(14).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(14).Value = CType(m11,String) + End If + If (m12 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(15).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(15).Value = CType(m12,String) + End If + If (Original_pcode Is Nothing) Then + Throw New Global.System.ArgumentNullException("Original_pcode") + Else + Me.Adapter.UpdateCommand.Parameters(16).Value = CType(Original_pcode,String) + End If + If (Original_code Is Nothing) Then + Throw New Global.System.ArgumentNullException("Original_code") + Else + Me.Adapter.UpdateCommand.Parameters(17).Value = CType(Original_code,String) + End If + If (Original_설명 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(18).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(19).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(18).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(19).Value = CType(Original_설명,String) + End If + If (Original_최대부하 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(20).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(21).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(20).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(21).Value = CType(Original_최대부하,String) + End If + If (Original_m01 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(22).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(23).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(22).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(23).Value = CType(Original_m01,String) + End If + If (Original_m02 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(24).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(25).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(24).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(25).Value = CType(Original_m02,String) + End If + If (Original_m03 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(26).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(27).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(26).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(27).Value = CType(Original_m03,String) + End If + If (Original_m04 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(28).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(29).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(28).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(29).Value = CType(Original_m04,String) + End If + If (Original_m05 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(30).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(31).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(30).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(31).Value = CType(Original_m05,String) + End If + If (Original_m06 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(32).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(33).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(32).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(33).Value = CType(Original_m06,String) + End If + If (Original_m07 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(34).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(35).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(34).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(35).Value = CType(Original_m07,String) + End If + If (Original_m08 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(36).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(37).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(36).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(37).Value = CType(Original_m08,String) + End If + If (Original_m09 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(38).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(39).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(38).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(39).Value = CType(Original_m09,String) + End If + If (Original_m10 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(40).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(41).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(40).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(41).Value = CType(Original_m10,String) + End If + If (Original_m11 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(42).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(43).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(42).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(43).Value = CType(Original_m11,String) + End If + If (Original_m12 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(44).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(45).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(44).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(45).Value = CType(Original_m12,String) + End If + Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.UpdateCommand.Connection.State + If ((Me.Adapter.UpdateCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + Me.Adapter.UpdateCommand.Connection.Open + End If + Try + Dim returnValue As Integer = Me.Adapter.UpdateCommand.ExecuteNonQuery + Return returnValue + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + Me.Adapter.UpdateCommand.Connection.Close + End If + End Try + End Function + + _ + Public Overloads Overridable Function Update( _ + ByVal 설명 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, _ + ByVal Original_pcode As String, _ + ByVal Original_code As String, _ + ByVal Original_설명 As String, _ + ByVal Original_최대부하 As String, _ + ByVal Original_m01 As String, _ + ByVal Original_m02 As String, _ + ByVal Original_m03 As String, _ + ByVal Original_m04 As String, _ + ByVal Original_m05 As String, _ + ByVal Original_m06 As String, _ + ByVal Original_m07 As String, _ + ByVal Original_m08 As String, _ + ByVal Original_m09 As String, _ + ByVal Original_m10 As String, _ + ByVal Original_m11 As String, _ + ByVal Original_m12 As String) As Integer + Return Me.Update(Original_pcode, Original_code, 설명, 최대부하, m01, m02, m03, m04, m05, m06, m07, m08, m09, m10, m11, m12, Original_pcode, Original_code, Original_설명, Original_최대부하, Original_m01, Original_m02, Original_m03, Original_m04, Original_m05, Original_m06, Original_m07, Original_m08, Original_m09, Original_m10, Original_m11, Original_m12) + End Function + End Class + + ''' + '''Represents the connection and commands used to retrieve and save data. + ''' + _ + Partial Public Class weather_supdoTableAdapter + Inherits Global.System.ComponentModel.Component + + Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter + + Private _connection As Global.System.Data.SqlClient.SqlConnection + + Private _transaction As Global.System.Data.SqlClient.SqlTransaction + + Private _commandCollection() As Global.System.Data.SqlClient.SqlCommand + + Private _clearBeforeFill As Boolean + + _ + Public Sub New() + MyBase.New + Me.ClearBeforeFill = true + End Sub + + _ + Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter + Get + If (Me._adapter Is Nothing) Then + Me.InitAdapter + End If + Return Me._adapter + End Get + End Property + + _ + Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection + Get + If (Me._connection Is Nothing) Then + Me.InitConnection + End If + Return Me._connection + End Get + Set + Me._connection = value + If (Not (Me.Adapter.InsertCommand) Is Nothing) Then + Me.Adapter.InsertCommand.Connection = value + End If + If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then + Me.Adapter.DeleteCommand.Connection = value + End If + If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then + Me.Adapter.UpdateCommand.Connection = value + End If + Dim i As Integer = 0 + Do While (i < Me.CommandCollection.Length) + If (Not (Me.CommandCollection(i)) Is Nothing) Then + CType(Me.CommandCollection(i),Global.System.Data.SqlClient.SqlCommand).Connection = value + End If + i = (i + 1) + Loop + End Set + End Property + + _ + Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction + Get + Return Me._transaction + End Get + Set + Me._transaction = value + Dim i As Integer = 0 + Do While (i < Me.CommandCollection.Length) + Me.CommandCollection(i).Transaction = Me._transaction + i = (i + 1) + Loop + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then + Me.Adapter.DeleteCommand.Transaction = Me._transaction + End If + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then + Me.Adapter.InsertCommand.Transaction = Me._transaction + End If + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then + Me.Adapter.UpdateCommand.Transaction = Me._transaction + End If + End Set + End Property + + _ + Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand() + Get + If (Me._commandCollection Is Nothing) Then + Me.InitCommandCollection + End If + Return Me._commandCollection + End Get + End Property + + _ + Public Property ClearBeforeFill() As Boolean + Get + Return Me._clearBeforeFill + End Get + Set + Me._clearBeforeFill = value + End Set + End Property + + _ + Private Sub InitAdapter() + Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter() + Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping() + tableMapping.SourceTable = "Table" + tableMapping.DataSetTable = "weather_supdo" + tableMapping.ColumnMappings.Add("pcode", "pcode") + tableMapping.ColumnMappings.Add("code", "code") + tableMapping.ColumnMappings.Add("설명", "설명") + tableMapping.ColumnMappings.Add("t01", "t01") + tableMapping.ColumnMappings.Add("t02", "t02") + tableMapping.ColumnMappings.Add("t03", "t03") + tableMapping.ColumnMappings.Add("t04", "t04") + tableMapping.ColumnMappings.Add("t05", "t05") + tableMapping.ColumnMappings.Add("t06", "t06") + tableMapping.ColumnMappings.Add("t07", "t07") + tableMapping.ColumnMappings.Add("t08", "t08") + tableMapping.ColumnMappings.Add("t09", "t09") + tableMapping.ColumnMappings.Add("t10", "t10") + tableMapping.ColumnMappings.Add("t11", "t11") + tableMapping.ColumnMappings.Add("t12", "t12") + tableMapping.ColumnMappings.Add("t13", "t13") + tableMapping.ColumnMappings.Add("t14", "t14") + tableMapping.ColumnMappings.Add("t15", "t15") + tableMapping.ColumnMappings.Add("t16", "t16") + tableMapping.ColumnMappings.Add("t17", "t17") + tableMapping.ColumnMappings.Add("t18", "t18") + tableMapping.ColumnMappings.Add("t19", "t19") + tableMapping.ColumnMappings.Add("t20", "t20") + tableMapping.ColumnMappings.Add("t21", "t21") + tableMapping.ColumnMappings.Add("t22", "t22") + tableMapping.ColumnMappings.Add("t23", "t23") + tableMapping.ColumnMappings.Add("t24", "t24") + Me._adapter.TableMappings.Add(tableMapping) + Me._adapter.DeleteCommand = New Global.System.Data.SqlClient.SqlCommand() + Me._adapter.DeleteCommand.Connection = Me.Connection + Me._adapter.DeleteCommand.CommandText = "DELETE FROM [weather_supdo2] WHERE (([pcode] = @Original_pcode) AND ([code] = @Or"& _ + "iginal_code) AND ((@IsNull_설명 = 1 AND [설명] IS NULL) OR ([설명] = @Original_설명)) AN"& _ + "D ((@IsNull_t01 = 1 AND [t01] IS NULL) OR ([t01] = @Original_t01)) AND ((@IsNull"& _ + "_t02 = 1 AND [t02] IS NULL) OR ([t02] = @Original_t02)) AND ((@IsNull_t03 = 1 AN"& _ + "D [t03] IS NULL) OR ([t03] = @Original_t03)) AND ((@IsNull_t04 = 1 AND [t04] IS "& _ + "NULL) OR ([t04] = @Original_t04)) AND ((@IsNull_t05 = 1 AND [t05] IS NULL) OR (["& _ + "t05] = @Original_t05)) AND ((@IsNull_t06 = 1 AND [t06] IS NULL) OR ([t06] = @Ori"& _ + "ginal_t06)) AND ((@IsNull_t07 = 1 AND [t07] IS NULL) OR ([t07] = @Original_t07))"& _ + " AND ((@IsNull_t08 = 1 AND [t08] IS NULL) OR ([t08] = @Original_t08)) AND ((@IsN"& _ + "ull_t09 = 1 AND [t09] IS NULL) OR ([t09] = @Original_t09)) AND ((@IsNull_t10 = 1"& _ + " AND [t10] IS NULL) OR ([t10] = @Original_t10)) AND ((@IsNull_t11 = 1 AND [t11] "& _ + "IS NULL) OR ([t11] = @Original_t11)) AND ((@IsNull_t12 = 1 AND [t12] IS NULL) OR"& _ + " ([t12] = @Original_t12)) AND ((@IsNull_t13 = 1 AND [t13] IS NULL) OR ([t13] = @"& _ + "Original_t13)) AND ((@IsNull_t14 = 1 AND [t14] IS NULL) OR ([t14] = @Original_t1"& _ + "4)) AND ((@IsNull_t15 = 1 AND [t15] IS NULL) OR ([t15] = @Original_t15)) AND ((@"& _ + "IsNull_t16 = 1 AND [t16] IS NULL) OR ([t16] = @Original_t16)) AND ((@IsNull_t17 "& _ + "= 1 AND [t17] IS NULL) OR ([t17] = @Original_t17)) AND ((@IsNull_t18 = 1 AND [t1"& _ + "8] IS NULL) OR ([t18] = @Original_t18)) AND ((@IsNull_t19 = 1 AND [t19] IS NULL)"& _ + " OR ([t19] = @Original_t19)) AND ((@IsNull_t20 = 1 AND [t20] IS NULL) OR ([t20] "& _ + "= @Original_t20)) AND ((@IsNull_t21 = 1 AND [t21] IS NULL) OR ([t21] = @Original"& _ + "_t21)) AND ((@IsNull_t22 = 1 AND [t22] IS NULL) OR ([t22] = @Original_t22)) AND "& _ + "((@IsNull_t23 = 1 AND [t23] IS NULL) OR ([t23] = @Original_t23)) AND ((@IsNull_t"& _ + "24 = 1 AND [t24] IS NULL) OR ([t24] = @Original_t24)))" + Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_pcode", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "pcode", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_code", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "code", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_설명", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "설명", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_설명", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "설명", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_t01", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t01", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_t01", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t01", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_t02", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t02", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_t02", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t02", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_t03", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t03", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_t03", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t03", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_t04", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t04", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_t04", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t04", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_t05", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t05", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_t05", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t05", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_t06", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t06", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_t06", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t06", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_t07", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t07", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_t07", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t07", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_t08", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t08", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_t08", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t08", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_t09", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t09", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_t09", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t09", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_t10", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t10", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_t10", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t10", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_t11", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t11", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_t11", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t11", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_t12", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t12", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_t12", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t12", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_t13", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t13", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_t13", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t13", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_t14", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t14", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_t14", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t14", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_t15", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t15", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_t15", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t15", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_t16", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t16", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_t16", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t16", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_t17", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t17", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_t17", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t17", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_t18", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t18", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_t18", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t18", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_t19", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t19", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_t19", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t19", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_t20", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t20", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_t20", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t20", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_t21", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t21", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_t21", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t21", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_t22", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t22", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_t22", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t22", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_t23", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t23", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_t23", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t23", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_t24", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t24", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_t24", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t24", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.InsertCommand = New Global.System.Data.SqlClient.SqlCommand() + Me._adapter.InsertCommand.Connection = Me.Connection + Me._adapter.InsertCommand.CommandText = "INSERT INTO [weather_supdo2] ([pcode], [code], [설명], [t01], [t02], [t03], [t04], "& _ + "[t05], [t06], [t07], [t08], [t09], [t10], [t11], [t12], [t13], [t14], [t15], [t1"& _ + "6], [t17], [t18], [t19], [t20], [t21], [t22], [t23], [t24]) VALUES (@pcode, @cod"& _ + "e, @설명, @t01, @t02, @t03, @t04, @t05, @t06, @t07, @t08, @t09, @t10, @t11, @t12, "& _ + "@t13, @t14, @t15, @t16, @t17, @t18, @t19, @t20, @t21, @t22, @t23, @t24);"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT"& _ + " pcode, code, 설명, t01, t02, t03, t04, t05, t06, t07, t08, t09, t10, t11, t12, t1"& _ + "3, t14, t15, t16, t17, t18, t19, t20, t21, t22, t23, t24 FROM weather_supdo2 WHE"& _ + "RE (code = @code) AND (pcode = @pcode)" + Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@pcode", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "pcode", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@code", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "code", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@설명", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "설명", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@t01", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t01", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@t02", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t02", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@t03", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t03", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@t04", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t04", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@t05", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t05", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@t06", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t06", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@t07", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t07", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@t08", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t08", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@t09", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t09", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@t10", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t10", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@t11", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t11", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@t12", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t12", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@t13", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t13", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@t14", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t14", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@t15", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t15", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@t16", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t16", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@t17", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t17", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@t18", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t18", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@t19", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t19", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@t20", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t20", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@t21", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t21", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@t22", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t22", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@t23", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t23", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@t24", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t24", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand = New Global.System.Data.SqlClient.SqlCommand() + Me._adapter.UpdateCommand.Connection = Me.Connection + Me._adapter.UpdateCommand.CommandText = "UPDATE [weather_supdo2] SET [pcode] = @pcode, [code] = @code, [설명] = @설명, [t01] ="& _ + " @t01, [t02] = @t02, [t03] = @t03, [t04] = @t04, [t05] = @t05, [t06] = @t06, [t0"& _ + "7] = @t07, [t08] = @t08, [t09] = @t09, [t10] = @t10, [t11] = @t11, [t12] = @t12,"& _ + " [t13] = @t13, [t14] = @t14, [t15] = @t15, [t16] = @t16, [t17] = @t17, [t18] = @"& _ + "t18, [t19] = @t19, [t20] = @t20, [t21] = @t21, [t22] = @t22, [t23] = @t23, [t24]"& _ + " = @t24 WHERE (([pcode] = @Original_pcode) AND ([code] = @Original_code) AND ((@"& _ + "IsNull_설명 = 1 AND [설명] IS NULL) OR ([설명] = @Original_설명)) AND ((@IsNull_t01 = 1 "& _ + "AND [t01] IS NULL) OR ([t01] = @Original_t01)) AND ((@IsNull_t02 = 1 AND [t02] I"& _ + "S NULL) OR ([t02] = @Original_t02)) AND ((@IsNull_t03 = 1 AND [t03] IS NULL) OR "& _ + "([t03] = @Original_t03)) AND ((@IsNull_t04 = 1 AND [t04] IS NULL) OR ([t04] = @O"& _ + "riginal_t04)) AND ((@IsNull_t05 = 1 AND [t05] IS NULL) OR ([t05] = @Original_t05"& _ + ")) AND ((@IsNull_t06 = 1 AND [t06] IS NULL) OR ([t06] = @Original_t06)) AND ((@I"& _ + "sNull_t07 = 1 AND [t07] IS NULL) OR ([t07] = @Original_t07)) AND ((@IsNull_t08 ="& _ + " 1 AND [t08] IS NULL) OR ([t08] = @Original_t08)) AND ((@IsNull_t09 = 1 AND [t09"& _ + "] IS NULL) OR ([t09] = @Original_t09)) AND ((@IsNull_t10 = 1 AND [t10] IS NULL) "& _ + "OR ([t10] = @Original_t10)) AND ((@IsNull_t11 = 1 AND [t11] IS NULL) OR ([t11] ="& _ + " @Original_t11)) AND ((@IsNull_t12 = 1 AND [t12] IS NULL) OR ([t12] = @Original_"& _ + "t12)) AND ((@IsNull_t13 = 1 AND [t13] IS NULL) OR ([t13] = @Original_t13)) AND ("& _ + "(@IsNull_t14 = 1 AND [t14] IS NULL) OR ([t14] = @Original_t14)) AND ((@IsNull_t1"& _ + "5 = 1 AND [t15] IS NULL) OR ([t15] = @Original_t15)) AND ((@IsNull_t16 = 1 AND ["& _ + "t16] IS NULL) OR ([t16] = @Original_t16)) AND ((@IsNull_t17 = 1 AND [t17] IS NUL"& _ + "L) OR ([t17] = @Original_t17)) AND ((@IsNull_t18 = 1 AND [t18] IS NULL) OR ([t18"& _ + "] = @Original_t18)) AND ((@IsNull_t19 = 1 AND [t19] IS NULL) OR ([t19] = @Origin"& _ + "al_t19)) AND ((@IsNull_t20 = 1 AND [t20] IS NULL) OR ([t20] = @Original_t20)) AN"& _ + "D ((@IsNull_t21 = 1 AND [t21] IS NULL) OR ([t21] = @Original_t21)) AND ((@IsNull"& _ + "_t22 = 1 AND [t22] IS NULL) OR ([t22] = @Original_t22)) AND ((@IsNull_t23 = 1 AN"& _ + "D [t23] IS NULL) OR ([t23] = @Original_t23)) AND ((@IsNull_t24 = 1 AND [t24] IS "& _ + "NULL) OR ([t24] = @Original_t24)));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT pcode, code, 설명, t01, t02, t03, t04,"& _ + " t05, t06, t07, t08, t09, t10, t11, t12, t13, t14, t15, t16, t17, t18, t19, t20,"& _ + " t21, t22, t23, t24 FROM weather_supdo2 WHERE (code = @code) AND (pcode = @pcode"& _ + ")" + Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@pcode", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "pcode", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@code", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "code", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@설명", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "설명", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@t01", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t01", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@t02", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t02", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@t03", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t03", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@t04", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t04", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@t05", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t05", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@t06", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t06", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@t07", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t07", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@t08", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t08", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@t09", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t09", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@t10", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t10", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@t11", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t11", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@t12", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t12", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@t13", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t13", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@t14", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t14", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@t15", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t15", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@t16", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t16", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@t17", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t17", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@t18", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t18", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@t19", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t19", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@t20", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t20", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@t21", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t21", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@t22", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t22", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@t23", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t23", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@t24", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t24", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_pcode", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "pcode", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_code", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "code", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_설명", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "설명", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_설명", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "설명", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_t01", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t01", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_t01", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t01", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_t02", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t02", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_t02", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t02", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_t03", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t03", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_t03", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t03", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_t04", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t04", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_t04", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t04", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_t05", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t05", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_t05", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t05", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_t06", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t06", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_t06", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t06", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_t07", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t07", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_t07", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t07", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_t08", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t08", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_t08", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t08", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_t09", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t09", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_t09", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t09", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_t10", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t10", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_t10", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t10", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_t11", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t11", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_t11", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t11", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_t12", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t12", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_t12", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t12", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_t13", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t13", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_t13", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t13", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_t14", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t14", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_t14", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t14", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_t15", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t15", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_t15", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t15", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_t16", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t16", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_t16", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t16", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_t17", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t17", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_t17", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t17", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_t18", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t18", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_t18", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t18", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_t19", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t19", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_t19", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t19", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_t20", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t20", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_t20", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t20", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_t21", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t21", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_t21", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t21", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_t22", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t22", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_t22", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t22", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_t23", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t23", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_t23", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t23", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_t24", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t24", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_t24", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "t24", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + End Sub + + _ + Private Sub InitConnection() + Me._connection = New Global.System.Data.SqlClient.SqlConnection() + Me._connection.ConnectionString = Global.Eco2Ar.My.MySettings.Default.cs + End Sub + + _ + Private Sub InitCommandCollection() + Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {} + Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() + Me._commandCollection(0).Connection = Me.Connection + Me._commandCollection(0).CommandText = "SELECT pcode, code, 설명, t01, t02, t03, t04, t05, t06, t07, t08, t09, t10, t11, t"& _ + "12, t13, t14, t15, t16, t17, t18, t19, t20, t21, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" t22, t23, t24"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM weather_supdo2" + Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text + End Sub + + _ + Public Overloads Overridable Function Fill(ByVal dataTable As DS.weather_supdoDataTable) As Integer + Me.Adapter.SelectCommand = Me.CommandCollection(0) + If (Me.ClearBeforeFill = true) Then + dataTable.Clear + End If + Dim returnValue As Integer = Me.Adapter.Fill(dataTable) + Return returnValue + End Function + + _ + Public Overloads Overridable Function GetData() As DS.weather_supdoDataTable + Me.Adapter.SelectCommand = Me.CommandCollection(0) + Dim dataTable As DS.weather_supdoDataTable = New DS.weather_supdoDataTable() + Me.Adapter.Fill(dataTable) + Return dataTable + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataTable As DS.weather_supdoDataTable) As Integer + Return Me.Adapter.Update(dataTable) + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataSet As DS) As Integer + Return Me.Adapter.Update(dataSet, "weather_supdo") + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer + Return Me.Adapter.Update(New Global.System.Data.DataRow() {dataRow}) + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer + Return Me.Adapter.Update(dataRows) + End Function + + _ + Public Overloads Overridable Function Delete( _ + ByVal Original_pcode As String, _ + ByVal Original_code As String, _ + ByVal Original_설명 As String, _ + ByVal Original_t01 As String, _ + ByVal Original_t02 As String, _ + ByVal Original_t03 As String, _ + ByVal Original_t04 As String, _ + ByVal Original_t05 As String, _ + ByVal Original_t06 As String, _ + ByVal Original_t07 As String, _ + ByVal Original_t08 As String, _ + ByVal Original_t09 As String, _ + ByVal Original_t10 As String, _ + ByVal Original_t11 As String, _ + ByVal Original_t12 As String, _ + ByVal Original_t13 As String, _ + ByVal Original_t14 As String, _ + ByVal Original_t15 As String, _ + ByVal Original_t16 As String, _ + ByVal Original_t17 As String, _ + ByVal Original_t18 As String, _ + ByVal Original_t19 As String, _ + ByVal Original_t20 As String, _ + ByVal Original_t21 As String, _ + ByVal Original_t22 As String, _ + ByVal Original_t23 As String, _ + ByVal Original_t24 As String) As Integer + If (Original_pcode Is Nothing) Then + Throw New Global.System.ArgumentNullException("Original_pcode") + Else + Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_pcode,String) + End If + If (Original_code Is Nothing) Then + Throw New Global.System.ArgumentNullException("Original_code") + Else + Me.Adapter.DeleteCommand.Parameters(1).Value = CType(Original_code,String) + End If + If (Original_설명 Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(2).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(3).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(2).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(3).Value = CType(Original_설명,String) + End If + If (Original_t01 Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(4).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(5).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(4).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(5).Value = CType(Original_t01,String) + End If + If (Original_t02 Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(6).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(7).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(6).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(7).Value = CType(Original_t02,String) + End If + If (Original_t03 Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(8).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(9).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(8).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(9).Value = CType(Original_t03,String) + End If + If (Original_t04 Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(10).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(11).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(10).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(11).Value = CType(Original_t04,String) + End If + If (Original_t05 Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(12).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(13).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(12).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(13).Value = CType(Original_t05,String) + End If + If (Original_t06 Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(14).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(15).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(14).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(15).Value = CType(Original_t06,String) + End If + If (Original_t07 Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(16).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(17).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(16).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(17).Value = CType(Original_t07,String) + End If + If (Original_t08 Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(18).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(19).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(18).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(19).Value = CType(Original_t08,String) + End If + If (Original_t09 Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(20).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(21).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(20).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(21).Value = CType(Original_t09,String) + End If + If (Original_t10 Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(22).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(23).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(22).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(23).Value = CType(Original_t10,String) + End If + If (Original_t11 Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(24).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(25).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(24).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(25).Value = CType(Original_t11,String) + End If + If (Original_t12 Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(26).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(27).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(26).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(27).Value = CType(Original_t12,String) + End If + If (Original_t13 Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(28).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(29).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(28).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(29).Value = CType(Original_t13,String) + End If + If (Original_t14 Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(30).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(31).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(30).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(31).Value = CType(Original_t14,String) + End If + If (Original_t15 Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(32).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(33).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(32).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(33).Value = CType(Original_t15,String) + End If + If (Original_t16 Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(34).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(35).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(34).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(35).Value = CType(Original_t16,String) + End If + If (Original_t17 Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(36).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(37).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(36).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(37).Value = CType(Original_t17,String) + End If + If (Original_t18 Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(38).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(39).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(38).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(39).Value = CType(Original_t18,String) + End If + If (Original_t19 Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(40).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(41).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(40).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(41).Value = CType(Original_t19,String) + End If + If (Original_t20 Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(42).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(43).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(42).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(43).Value = CType(Original_t20,String) + End If + If (Original_t21 Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(44).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(45).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(44).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(45).Value = CType(Original_t21,String) + End If + If (Original_t22 Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(46).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(47).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(46).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(47).Value = CType(Original_t22,String) + End If + If (Original_t23 Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(48).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(49).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(48).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(49).Value = CType(Original_t23,String) + End If + If (Original_t24 Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(50).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(51).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(50).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(51).Value = CType(Original_t24,String) + End If + Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.DeleteCommand.Connection.State + If ((Me.Adapter.DeleteCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + Me.Adapter.DeleteCommand.Connection.Open + End If + Try + Dim returnValue As Integer = Me.Adapter.DeleteCommand.ExecuteNonQuery + Return returnValue + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + Me.Adapter.DeleteCommand.Connection.Close + End If + End Try + End Function + + _ + Public Overloads Overridable Function Insert( _ + ByVal pcode As String, _ + ByVal code As String, _ + ByVal 설명 As String, _ + ByVal t01 As String, _ + ByVal t02 As String, _ + ByVal t03 As String, _ + ByVal t04 As String, _ + ByVal t05 As String, _ + ByVal t06 As String, _ + ByVal t07 As String, _ + ByVal t08 As String, _ + ByVal t09 As String, _ + ByVal t10 As String, _ + ByVal t11 As String, _ + ByVal t12 As String, _ + ByVal t13 As String, _ + ByVal t14 As String, _ + ByVal t15 As String, _ + ByVal t16 As String, _ + ByVal t17 As String, _ + ByVal t18 As String, _ + ByVal t19 As String, _ + ByVal t20 As String, _ + ByVal t21 As String, _ + ByVal t22 As String, _ + ByVal t23 As String, _ + ByVal t24 As String) As Integer + If (pcode Is Nothing) Then + Throw New Global.System.ArgumentNullException("pcode") + Else + Me.Adapter.InsertCommand.Parameters(0).Value = CType(pcode,String) + End If + If (code Is Nothing) Then + Throw New Global.System.ArgumentNullException("code") + Else + Me.Adapter.InsertCommand.Parameters(1).Value = CType(code,String) + End If + If (설명 Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(2).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(2).Value = CType(설명,String) + End If + If (t01 Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(3).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(3).Value = CType(t01,String) + End If + If (t02 Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(4).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(4).Value = CType(t02,String) + End If + If (t03 Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(5).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(5).Value = CType(t03,String) + End If + If (t04 Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(6).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(6).Value = CType(t04,String) + End If + If (t05 Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(7).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(7).Value = CType(t05,String) + End If + If (t06 Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(8).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(8).Value = CType(t06,String) + End If + If (t07 Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(9).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(9).Value = CType(t07,String) + End If + If (t08 Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(10).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(10).Value = CType(t08,String) + End If + If (t09 Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(11).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(11).Value = CType(t09,String) + End If + If (t10 Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(12).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(12).Value = CType(t10,String) + End If + If (t11 Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(13).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(13).Value = CType(t11,String) + End If + If (t12 Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(14).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(14).Value = CType(t12,String) + End If + If (t13 Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(15).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(15).Value = CType(t13,String) + End If + If (t14 Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(16).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(16).Value = CType(t14,String) + End If + If (t15 Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(17).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(17).Value = CType(t15,String) + End If + If (t16 Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(18).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(18).Value = CType(t16,String) + End If + If (t17 Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(19).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(19).Value = CType(t17,String) + End If + If (t18 Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(20).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(20).Value = CType(t18,String) + End If + If (t19 Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(21).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(21).Value = CType(t19,String) + End If + If (t20 Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(22).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(22).Value = CType(t20,String) + End If + If (t21 Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(23).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(23).Value = CType(t21,String) + End If + If (t22 Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(24).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(24).Value = CType(t22,String) + End If + If (t23 Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(25).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(25).Value = CType(t23,String) + End If + If (t24 Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(26).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(26).Value = CType(t24,String) + End If + Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.InsertCommand.Connection.State + If ((Me.Adapter.InsertCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + Me.Adapter.InsertCommand.Connection.Open + End If + Try + Dim returnValue As Integer = Me.Adapter.InsertCommand.ExecuteNonQuery + Return returnValue + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + Me.Adapter.InsertCommand.Connection.Close + End If + End Try + End Function + + _ + Public Overloads Overridable Function Update( _ + ByVal pcode As String, _ + ByVal code As String, _ + ByVal 설명 As String, _ + ByVal t01 As String, _ + ByVal t02 As String, _ + ByVal t03 As String, _ + ByVal t04 As String, _ + ByVal t05 As String, _ + ByVal t06 As String, _ + ByVal t07 As String, _ + ByVal t08 As String, _ + ByVal t09 As String, _ + ByVal t10 As String, _ + ByVal t11 As String, _ + ByVal t12 As String, _ + ByVal t13 As String, _ + ByVal t14 As String, _ + ByVal t15 As String, _ + ByVal t16 As String, _ + ByVal t17 As String, _ + ByVal t18 As String, _ + ByVal t19 As String, _ + ByVal t20 As String, _ + ByVal t21 As String, _ + ByVal t22 As String, _ + ByVal t23 As String, _ + ByVal t24 As String, _ + ByVal Original_pcode As String, _ + ByVal Original_code As String, _ + ByVal Original_설명 As String, _ + ByVal Original_t01 As String, _ + ByVal Original_t02 As String, _ + ByVal Original_t03 As String, _ + ByVal Original_t04 As String, _ + ByVal Original_t05 As String, _ + ByVal Original_t06 As String, _ + ByVal Original_t07 As String, _ + ByVal Original_t08 As String, _ + ByVal Original_t09 As String, _ + ByVal Original_t10 As String, _ + ByVal Original_t11 As String, _ + ByVal Original_t12 As String, _ + ByVal Original_t13 As String, _ + ByVal Original_t14 As String, _ + ByVal Original_t15 As String, _ + ByVal Original_t16 As String, _ + ByVal Original_t17 As String, _ + ByVal Original_t18 As String, _ + ByVal Original_t19 As String, _ + ByVal Original_t20 As String, _ + ByVal Original_t21 As String, _ + ByVal Original_t22 As String, _ + ByVal Original_t23 As String, _ + ByVal Original_t24 As String) As Integer + If (pcode Is Nothing) Then + Throw New Global.System.ArgumentNullException("pcode") + Else + Me.Adapter.UpdateCommand.Parameters(0).Value = CType(pcode,String) + End If + If (code Is Nothing) Then + Throw New Global.System.ArgumentNullException("code") + Else + Me.Adapter.UpdateCommand.Parameters(1).Value = CType(code,String) + End If + If (설명 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(2).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(2).Value = CType(설명,String) + End If + If (t01 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(3).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(3).Value = CType(t01,String) + End If + If (t02 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(4).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(4).Value = CType(t02,String) + End If + If (t03 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(5).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(5).Value = CType(t03,String) + End If + If (t04 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(6).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(6).Value = CType(t04,String) + End If + If (t05 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(7).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(7).Value = CType(t05,String) + End If + If (t06 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(8).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(8).Value = CType(t06,String) + End If + If (t07 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(9).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(9).Value = CType(t07,String) + End If + If (t08 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(10).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(10).Value = CType(t08,String) + End If + If (t09 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(11).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(11).Value = CType(t09,String) + End If + If (t10 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(12).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(12).Value = CType(t10,String) + End If + If (t11 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(13).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(13).Value = CType(t11,String) + End If + If (t12 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(14).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(14).Value = CType(t12,String) + End If + If (t13 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(15).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(15).Value = CType(t13,String) + End If + If (t14 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(16).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(16).Value = CType(t14,String) + End If + If (t15 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(17).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(17).Value = CType(t15,String) + End If + If (t16 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(18).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(18).Value = CType(t16,String) + End If + If (t17 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(19).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(19).Value = CType(t17,String) + End If + If (t18 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(20).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(20).Value = CType(t18,String) + End If + If (t19 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(21).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(21).Value = CType(t19,String) + End If + If (t20 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(22).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(22).Value = CType(t20,String) + End If + If (t21 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(23).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(23).Value = CType(t21,String) + End If + If (t22 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(24).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(24).Value = CType(t22,String) + End If + If (t23 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(25).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(25).Value = CType(t23,String) + End If + If (t24 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(26).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(26).Value = CType(t24,String) + End If + If (Original_pcode Is Nothing) Then + Throw New Global.System.ArgumentNullException("Original_pcode") + Else + Me.Adapter.UpdateCommand.Parameters(27).Value = CType(Original_pcode,String) + End If + If (Original_code Is Nothing) Then + Throw New Global.System.ArgumentNullException("Original_code") + Else + Me.Adapter.UpdateCommand.Parameters(28).Value = CType(Original_code,String) + End If + If (Original_설명 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(29).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(30).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(29).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(30).Value = CType(Original_설명,String) + End If + If (Original_t01 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(31).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(32).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(31).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(32).Value = CType(Original_t01,String) + End If + If (Original_t02 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(33).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(34).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(33).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(34).Value = CType(Original_t02,String) + End If + If (Original_t03 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(35).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(36).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(35).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(36).Value = CType(Original_t03,String) + End If + If (Original_t04 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(37).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(38).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(37).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(38).Value = CType(Original_t04,String) + End If + If (Original_t05 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(39).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(40).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(39).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(40).Value = CType(Original_t05,String) + End If + If (Original_t06 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(41).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(42).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(41).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(42).Value = CType(Original_t06,String) + End If + If (Original_t07 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(43).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(44).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(43).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(44).Value = CType(Original_t07,String) + End If + If (Original_t08 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(45).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(46).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(45).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(46).Value = CType(Original_t08,String) + End If + If (Original_t09 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(47).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(48).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(47).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(48).Value = CType(Original_t09,String) + End If + If (Original_t10 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(49).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(50).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(49).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(50).Value = CType(Original_t10,String) + End If + If (Original_t11 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(51).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(52).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(51).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(52).Value = CType(Original_t11,String) + End If + If (Original_t12 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(53).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(54).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(53).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(54).Value = CType(Original_t12,String) + End If + If (Original_t13 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(55).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(56).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(55).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(56).Value = CType(Original_t13,String) + End If + If (Original_t14 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(57).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(58).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(57).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(58).Value = CType(Original_t14,String) + End If + If (Original_t15 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(59).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(60).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(59).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(60).Value = CType(Original_t15,String) + End If + If (Original_t16 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(61).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(62).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(61).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(62).Value = CType(Original_t16,String) + End If + If (Original_t17 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(63).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(64).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(63).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(64).Value = CType(Original_t17,String) + End If + If (Original_t18 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(65).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(66).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(65).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(66).Value = CType(Original_t18,String) + End If + If (Original_t19 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(67).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(68).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(67).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(68).Value = CType(Original_t19,String) + End If + If (Original_t20 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(69).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(70).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(69).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(70).Value = CType(Original_t20,String) + End If + If (Original_t21 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(71).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(72).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(71).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(72).Value = CType(Original_t21,String) + End If + If (Original_t22 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(73).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(74).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(73).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(74).Value = CType(Original_t22,String) + End If + If (Original_t23 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(75).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(76).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(75).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(76).Value = CType(Original_t23,String) + End If + If (Original_t24 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(77).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(78).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(77).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(78).Value = CType(Original_t24,String) + End If + Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.UpdateCommand.Connection.State + If ((Me.Adapter.UpdateCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + Me.Adapter.UpdateCommand.Connection.Open + End If + Try + Dim returnValue As Integer = Me.Adapter.UpdateCommand.ExecuteNonQuery + Return returnValue + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + Me.Adapter.UpdateCommand.Connection.Close + End If + End Try + End Function + + _ + Public Overloads Overridable Function Update( _ + ByVal 설명 As String, _ + ByVal t01 As String, _ + ByVal t02 As String, _ + ByVal t03 As String, _ + ByVal t04 As String, _ + ByVal t05 As String, _ + ByVal t06 As String, _ + ByVal t07 As String, _ + ByVal t08 As String, _ + ByVal t09 As String, _ + ByVal t10 As String, _ + ByVal t11 As String, _ + ByVal t12 As String, _ + ByVal t13 As String, _ + ByVal t14 As String, _ + ByVal t15 As String, _ + ByVal t16 As String, _ + ByVal t17 As String, _ + ByVal t18 As String, _ + ByVal t19 As String, _ + ByVal t20 As String, _ + ByVal t21 As String, _ + ByVal t22 As String, _ + ByVal t23 As String, _ + ByVal t24 As String, _ + ByVal Original_pcode As String, _ + ByVal Original_code As String, _ + ByVal Original_설명 As String, _ + ByVal Original_t01 As String, _ + ByVal Original_t02 As String, _ + ByVal Original_t03 As String, _ + ByVal Original_t04 As String, _ + ByVal Original_t05 As String, _ + ByVal Original_t06 As String, _ + ByVal Original_t07 As String, _ + ByVal Original_t08 As String, _ + ByVal Original_t09 As String, _ + ByVal Original_t10 As String, _ + ByVal Original_t11 As String, _ + ByVal Original_t12 As String, _ + ByVal Original_t13 As String, _ + ByVal Original_t14 As String, _ + ByVal Original_t15 As String, _ + ByVal Original_t16 As String, _ + ByVal Original_t17 As String, _ + ByVal Original_t18 As String, _ + ByVal Original_t19 As String, _ + ByVal Original_t20 As String, _ + ByVal Original_t21 As String, _ + ByVal Original_t22 As String, _ + ByVal Original_t23 As String, _ + ByVal Original_t24 As String) As Integer + Return Me.Update(Original_pcode, Original_code, 설명, t01, t02, t03, t04, t05, t06, t07, t08, t09, t10, t11, t12, t13, t14, t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, Original_pcode, Original_code, Original_설명, Original_t01, Original_t02, Original_t03, Original_t04, Original_t05, Original_t06, Original_t07, Original_t08, Original_t09, Original_t10, Original_t11, Original_t12, Original_t13, Original_t14, Original_t15, Original_t16, Original_t17, Original_t18, Original_t19, Original_t20, Original_t21, Original_t22, Original_t23, Original_t24) + End Function + End Class + + ''' + '''Represents the connection and commands used to retrieve and save data. + ''' + _ + Partial Public Class tbl_profileTableAdapter + Inherits Global.System.ComponentModel.Component + + Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter + + Private _connection As Global.System.Data.SqlClient.SqlConnection + + Private _transaction As Global.System.Data.SqlClient.SqlTransaction + + Private _commandCollection() As Global.System.Data.SqlClient.SqlCommand + + Private _clearBeforeFill As Boolean + + _ + Public Sub New() + MyBase.New + Me.ClearBeforeFill = true + End Sub + + _ + Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter + Get + If (Me._adapter Is Nothing) Then + Me.InitAdapter + End If + Return Me._adapter + End Get + End Property + + _ + Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection + Get + If (Me._connection Is Nothing) Then + Me.InitConnection + End If + Return Me._connection + End Get + Set + Me._connection = value + If (Not (Me.Adapter.InsertCommand) Is Nothing) Then + Me.Adapter.InsertCommand.Connection = value + End If + If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then + Me.Adapter.DeleteCommand.Connection = value + End If + If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then + Me.Adapter.UpdateCommand.Connection = value + End If + Dim i As Integer = 0 + Do While (i < Me.CommandCollection.Length) + If (Not (Me.CommandCollection(i)) Is Nothing) Then + CType(Me.CommandCollection(i),Global.System.Data.SqlClient.SqlCommand).Connection = value + End If + i = (i + 1) + Loop + End Set + End Property + + _ + Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction + Get + Return Me._transaction + End Get + Set + Me._transaction = value + Dim i As Integer = 0 + Do While (i < Me.CommandCollection.Length) + Me.CommandCollection(i).Transaction = Me._transaction + i = (i + 1) + Loop + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then + Me.Adapter.DeleteCommand.Transaction = Me._transaction + End If + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then + Me.Adapter.InsertCommand.Transaction = Me._transaction + End If + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then + Me.Adapter.UpdateCommand.Transaction = Me._transaction + End If + End Set + End Property + + _ + Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand() + Get + If (Me._commandCollection Is Nothing) Then + Me.InitCommandCollection + End If + Return Me._commandCollection + End Get + End Property + + _ + Public Property ClearBeforeFill() As Boolean + Get + Return Me._clearBeforeFill + End Get + Set + Me._clearBeforeFill = value + End Set + End Property + + _ + Private Sub InitAdapter() + Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter() + Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping() + tableMapping.SourceTable = "Table" + tableMapping.DataSetTable = "tbl_profile" + tableMapping.ColumnMappings.Add("code", "code") + tableMapping.ColumnMappings.Add("설명", "설명") + tableMapping.ColumnMappings.Add("일일급탕요구량", "일일급탕요구량") + tableMapping.ColumnMappings.Add("사용시작시간", "사용시작시간") + tableMapping.ColumnMappings.Add("사용종료시간", "사용종료시간") + tableMapping.ColumnMappings.Add("일일사용시간", "일일사용시간") + tableMapping.ColumnMappings.Add("운전시작시간", "운전시작시간") + tableMapping.ColumnMappings.Add("운전종료시간", "운전종료시간") + tableMapping.ColumnMappings.Add("운전시간난방", "운전시간난방") + tableMapping.ColumnMappings.Add("연간사용일수", "연간사용일수") + tableMapping.ColumnMappings.Add("연간사용시간주간", "연간사용시간주간") + tableMapping.ColumnMappings.Add("연간사용시간야간", "연간사용시간야간") + tableMapping.ColumnMappings.Add("일일운전시간", "일일운전시간") + tableMapping.ColumnMappings.Add("연간운전일수", "연간운전일수") + tableMapping.ColumnMappings.Add("요구조도", "요구조도") + tableMapping.ColumnMappings.Add("작업면높이", "작업면높이") + tableMapping.ColumnMappings.Add("감소계수", "감소계수") + tableMapping.ColumnMappings.Add("부재율", "부재율") + tableMapping.ColumnMappings.Add("실지수", "실지수") + tableMapping.ColumnMappings.Add("최소도입외기량", "최소도입외기량") + tableMapping.ColumnMappings.Add("축소운전시최소도입외기량", "축소운전시최소도입외기량") + tableMapping.ColumnMappings.Add("사람", "사람") + tableMapping.ColumnMappings.Add("작업보조기기", "작업보조기기") + tableMapping.ColumnMappings.Add("난방설정온도", "난방설정온도") + tableMapping.ColumnMappings.Add("냉방설정온도", "냉방설정온도") + tableMapping.ColumnMappings.Add("야간최저허용온도", "야간최저허용온도") + tableMapping.ColumnMappings.Add("주말최저허용온도", "주말최저허용온도") + tableMapping.ColumnMappings.Add("최소설정온도난방", "최소설정온도난방") + tableMapping.ColumnMappings.Add("최소설정온도냉방", "최소설정온도냉방") + tableMapping.ColumnMappings.Add("외기온도난방", "외기온도난방") + tableMapping.ColumnMappings.Add("외기온도냉방7월", "외기온도냉방7월") + tableMapping.ColumnMappings.Add("외기온도냉방9월", "외기온도냉방9월") + tableMapping.ColumnMappings.Add("차감계수", "차감계수") + tableMapping.ColumnMappings.Add("오염계수", "오염계수") + tableMapping.ColumnMappings.Add("부분운전계수", "부분운전계수") + tableMapping.ColumnMappings.Add("day01", "day01") + tableMapping.ColumnMappings.Add("day02", "day02") + tableMapping.ColumnMappings.Add("day03", "day03") + tableMapping.ColumnMappings.Add("day04", "day04") + tableMapping.ColumnMappings.Add("day05", "day05") + tableMapping.ColumnMappings.Add("day06", "day06") + tableMapping.ColumnMappings.Add("day07", "day07") + tableMapping.ColumnMappings.Add("day08", "day08") + tableMapping.ColumnMappings.Add("day09", "day09") + tableMapping.ColumnMappings.Add("day10", "day10") + tableMapping.ColumnMappings.Add("day11", "day11") + tableMapping.ColumnMappings.Add("day12", "day12") + Me._adapter.TableMappings.Add(tableMapping) + Me._adapter.DeleteCommand = New Global.System.Data.SqlClient.SqlCommand() + Me._adapter.DeleteCommand.Connection = Me.Connection + Me._adapter.DeleteCommand.CommandText = "DELETE FROM [tbl_profile_2016] WHERE (([code] = @Original_code) AND ((@IsNull_설명 "& _ + "= 1 AND [설명] IS NULL) OR ([설명] = @Original_설명)) AND ((@IsNull_일일급탕요구량 = 1 AND [일"& _ + "일급탕요구량] IS NULL) OR ([일일급탕요구량] = @Original_일일급탕요구량)) AND ((@IsNull_사용시작시간 = 1 AN"& _ + "D [사용시작시간] IS NULL) OR ([사용시작시간] = @Original_사용시작시간)) AND ((@IsNull_사용종료시간 = 1 A"& _ + "ND [사용종료시간] IS NULL) OR ([사용종료시간] = @Original_사용종료시간)) AND ((@IsNull_일일사용시간 = 1 "& _ + "AND [일일사용시간] IS NULL) OR ([일일사용시간] = @Original_일일사용시간)) AND ((@IsNull_운전시작시간 = 1"& _ + " AND [운전시작시간] IS NULL) OR ([운전시작시간] = @Original_운전시작시간)) AND ((@IsNull_운전종료시간 = "& _ + "1 AND [운전종료시간] IS NULL) OR ([운전종료시간] = @Original_운전종료시간)) AND ((@IsNull_운전시간난방 ="& _ + " 1 AND [운전시간난방] IS NULL) OR ([운전시간난방] = @Original_운전시간난방)) AND ((@IsNull_연간사용일수 "& _ + "= 1 AND [연간사용일수] IS NULL) OR ([연간사용일수] = @Original_연간사용일수)) AND ((@IsNull_연간사용시간"& _ + "주간 = 1 AND [연간사용시간주간] IS NULL) OR ([연간사용시간주간] = @Original_연간사용시간주간)) AND ((@IsNu"& _ + "ll_연간사용시간야간 = 1 AND [연간사용시간야간] IS NULL) OR ([연간사용시간야간] = @Original_연간사용시간야간)) AN"& _ + "D ((@IsNull_일일운전시간 = 1 AND [일일운전시간] IS NULL) OR ([일일운전시간] = @Original_일일운전시간)) A"& _ + "ND ((@IsNull_연간운전일수 = 1 AND [연간운전일수] IS NULL) OR ([연간운전일수] = @Original_연간운전일수)) "& _ + "AND ((@IsNull_요구조도 = 1 AND [요구조도] IS NULL) OR ([요구조도] = @Original_요구조도)) AND ((@"& _ + "IsNull_작업면높이 = 1 AND [작업면높이] IS NULL) OR ([작업면높이] = @Original_작업면높이)) AND ((@IsN"& _ + "ull_감소계수 = 1 AND [감소계수] IS NULL) OR ([감소계수] = @Original_감소계수)) AND ((@IsNull_부재율"& _ + " = 1 AND [부재율] IS NULL) OR ([부재율] = @Original_부재율)) AND ((@IsNull_실지수 = 1 AND [실"& _ + "지수] IS NULL) OR ([실지수] = @Original_실지수)) AND ((@IsNull_최소도입외기량 = 1 AND [최소도입외기량]"& _ + " IS NULL) OR ([최소도입외기량] = @Original_최소도입외기량)) AND ((@IsNull_축소운전시최소도입외기량 = 1 AND"& _ + " [축소운전시최소도입외기량] IS NULL) OR ([축소운전시최소도입외기량] = @Original_축소운전시최소도입외기량)) AND ((@Is"& _ + "Null_사람 = 1 AND [사람] IS NULL) OR ([사람] = @Original_사람)) AND ((@IsNull_작업보조기기 = 1"& _ + " AND [작업보조기기] IS NULL) OR ([작업보조기기] = @Original_작업보조기기)) AND ((@IsNull_난방설정온도 = "& _ + "1 AND [난방설정온도] IS NULL) OR ([난방설정온도] = @Original_난방설정온도)) AND ((@IsNull_냉방설정온도 ="& _ + " 1 AND [냉방설정온도] IS NULL) OR ([냉방설정온도] = @Original_냉방설정온도)) AND ((@IsNull_야간최저허용온"& _ + "도 = 1 AND [야간최저허용온도] IS NULL) OR ([야간최저허용온도] = @Original_야간최저허용온도)) AND ((@IsNul"& _ + "l_주말최저허용온도 = 1 AND [주말최저허용온도] IS NULL) OR ([주말최저허용온도] = @Original_주말최저허용온도)) AND"& _ + " ((@IsNull_최소설정온도난방 = 1 AND [최소설정온도난방] IS NULL) OR ([최소설정온도난방] = @Original_최소설정온"& _ + "도난방)) AND ((@IsNull_최소설정온도냉방 = 1 AND [최소설정온도냉방] IS NULL) OR ([최소설정온도냉방] = @Origi"& _ + "nal_최소설정온도냉방)) AND ((@IsNull_외기온도난방 = 1 AND [외기온도난방] IS NULL) OR ([외기온도난방] = @Or"& _ + "iginal_외기온도난방)) AND ((@IsNull_외기온도냉방7월 = 1 AND [외기온도냉방7월] IS NULL) OR ([외기온도냉방7월"& _ + "] = @Original_외기온도냉방7월)) AND ((@IsNull_외기온도냉방9월 = 1 AND [외기온도냉방9월] IS NULL) OR ("& _ + "[외기온도냉방9월] = @Original_외기온도냉방9월)) AND ((@IsNull_차감계수 = 1 AND [차감계수] IS NULL) OR "& _ + "([차감계수] = @Original_차감계수)) AND ((@IsNull_오염계수 = 1 AND [오염계수] IS NULL) OR ([오염계수]"& _ + " = @Original_오염계수)) AND ((@IsNull_부분운전계수 = 1 AND [부분운전계수] IS NULL) OR ([부분운전계수] "& _ + "= @Original_부분운전계수)) AND ((@IsNull_day01 = 1 AND [day01] IS NULL) OR ([day01] = "& _ + "@Original_day01)) AND ((@IsNull_day02 = 1 AND [day02] IS NULL) OR ([day02] = @Or"& _ + "iginal_day02)) AND ((@IsNull_day03 = 1 AND [day03] IS NULL) OR ([day03] = @Origi"& _ + "nal_day03)) AND ((@IsNull_day04 = 1 AND [day04] IS NULL) OR ([day04] = @Original"& _ + "_day04)) AND ((@IsNull_day05 = 1 AND [day05] IS NULL) OR ([day05] = @Original_da"& _ + "y05)) AND ((@IsNull_day06 = 1 AND [day06] IS NULL) OR ([day06] = @Original_day06"& _ + ")) AND ((@IsNull_day07 = 1 AND [day07] IS NULL) OR ([day07] = @Original_day07)) "& _ + "AND ((@IsNull_day08 = 1 AND [day08] IS NULL) OR ([day08] = @Original_day08)) AND"& _ + " ((@IsNull_day09 = 1 AND [day09] IS NULL) OR ([day09] = @Original_day09)) AND (("& _ + "@IsNull_day10 = 1 AND [day10] IS NULL) OR ([day10] = @Original_day10)) AND ((@Is"& _ + "Null_day11 = 1 AND [day11] IS NULL) OR ([day11] = @Original_day11)) AND ((@IsNul"& _ + "l_day12 = 1 AND [day12] IS NULL) OR ([day12] = @Original_day12)))" + Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_code", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "code", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_설명", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "설명", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_설명", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "설명", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_일일급탕요구량", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "일일급탕요구량", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_일일급탕요구량", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "일일급탕요구량", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_사용시작시간", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "사용시작시간", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_사용시작시간", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "사용시작시간", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_사용종료시간", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "사용종료시간", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_사용종료시간", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "사용종료시간", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_일일사용시간", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "일일사용시간", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_일일사용시간", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "일일사용시간", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_운전시작시간", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "운전시작시간", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_운전시작시간", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "운전시작시간", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_운전종료시간", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "운전종료시간", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_운전종료시간", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "운전종료시간", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_운전시간난방", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "운전시간난방", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_운전시간난방", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "운전시간난방", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_연간사용일수", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "연간사용일수", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_연간사용일수", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "연간사용일수", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_연간사용시간주간", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "연간사용시간주간", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_연간사용시간주간", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "연간사용시간주간", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_연간사용시간야간", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "연간사용시간야간", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_연간사용시간야간", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "연간사용시간야간", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_일일운전시간", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "일일운전시간", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_일일운전시간", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "일일운전시간", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_연간운전일수", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "연간운전일수", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_연간운전일수", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "연간운전일수", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_요구조도", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "요구조도", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_요구조도", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "요구조도", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_작업면높이", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "작업면높이", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_작업면높이", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "작업면높이", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_감소계수", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "감소계수", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_감소계수", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "감소계수", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_부재율", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "부재율", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_부재율", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "부재율", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_실지수", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "실지수", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_실지수", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "실지수", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_최소도입외기량", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "최소도입외기량", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_최소도입외기량", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "최소도입외기량", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_축소운전시최소도입외기량", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "축소운전시최소도입외기량", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_축소운전시최소도입외기량", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "축소운전시최소도입외기량", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_사람", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "사람", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_사람", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "사람", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_작업보조기기", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "작업보조기기", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_작업보조기기", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "작업보조기기", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_난방설정온도", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "난방설정온도", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_난방설정온도", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "난방설정온도", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_냉방설정온도", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "냉방설정온도", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_냉방설정온도", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "냉방설정온도", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_야간최저허용온도", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "야간최저허용온도", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_야간최저허용온도", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "야간최저허용온도", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_주말최저허용온도", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "주말최저허용온도", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_주말최저허용온도", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "주말최저허용온도", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_최소설정온도난방", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "최소설정온도난방", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_최소설정온도난방", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "최소설정온도난방", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_최소설정온도냉방", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "최소설정온도냉방", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_최소설정온도냉방", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "최소설정온도냉방", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_외기온도난방", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "외기온도난방", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_외기온도난방", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "외기온도난방", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_외기온도냉방7월", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "외기온도냉방7월", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_외기온도냉방7월", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "외기온도냉방7월", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_외기온도냉방9월", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "외기온도냉방9월", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_외기온도냉방9월", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "외기온도냉방9월", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_차감계수", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "차감계수", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_차감계수", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "차감계수", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_오염계수", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "오염계수", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_오염계수", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "오염계수", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_부분운전계수", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "부분운전계수", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_부분운전계수", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "부분운전계수", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_day01", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "day01", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_day01", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "day01", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_day02", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "day02", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_day02", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "day02", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_day03", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "day03", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_day03", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "day03", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_day04", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "day04", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_day04", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "day04", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_day05", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "day05", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_day05", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "day05", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_day06", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "day06", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_day06", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "day06", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_day07", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "day07", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_day07", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "day07", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_day08", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "day08", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_day08", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "day08", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_day09", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "day09", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_day09", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "day09", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_day10", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "day10", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_day10", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "day10", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_day11", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "day11", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_day11", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "day11", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_day12", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "day12", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_day12", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "day12", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.InsertCommand = New Global.System.Data.SqlClient.SqlCommand() + Me._adapter.InsertCommand.Connection = Me.Connection + Me._adapter.InsertCommand.CommandText = "INSERT INTO [tbl_profile_2016] ([code], [설명], [일일급탕요구량], [사용시작시간], [사용종료시간], [일일사"& _ + "용시간], [운전시작시간], [운전종료시간], [운전시간난방], [연간사용일수], [연간사용시간주간], [연간사용시간야간], [일일운전시간], "& _ + "[연간운전일수], [요구조도], [작업면높이], [감소계수], [부재율], [실지수], [최소도입외기량], [축소운전시최소도입외기량], [사람]"& _ + ", [작업보조기기], [난방설정온도], [냉방설정온도], [야간최저허용온도], [주말최저허용온도], [최소설정온도난방], [최소설정온도냉방], "& _ + "[외기온도난방], [외기온도냉방7월], [외기온도냉방9월], [차감계수], [오염계수], [부분운전계수], [day01], [day02], [d"& _ + "ay03], [day04], [day05], [day06], [day07], [day08], [day09], [day10], [day11], ["& _ + "day12]) VALUES (@code, @설명, @일일급탕요구량, @사용시작시간, @사용종료시간, @일일사용시간, @운전시작시간, @운전종료시"& _ + "간, @운전시간난방, @연간사용일수, @연간사용시간주간, @연간사용시간야간, @일일운전시간, @연간운전일수, @요구조도, @작업면높이, @감소계"& _ + "수, @부재율, @실지수, @최소도입외기량, @축소운전시최소도입외기량, @사람, @작업보조기기, @난방설정온도, @냉방설정온도, @야간최저허용온"& _ + "도, @주말최저허용온도, @최소설정온도난방, @최소설정온도냉방, @외기온도난방, @외기온도냉방7월, @외기온도냉방9월, @차감계수, @오염계수,"& _ + " @부분운전계수, @day01, @day02, @day03, @day04, @day05, @day06, @day07, @day08, @day09"& _ + ", @day10, @day11, @day12);"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT code, 설명, 일일급탕요구량, 사용시작시간, 사용종료시간, 일일사용시간, 운전"& _ + "시작시간, 운전종료시간, 운전시간난방, 연간사용일수, 연간사용시간주간, 연간사용시간야간, 일일운전시간, 연간운전일수, 요구조도, 작업면높이, 감"& _ + "소계수, 부재율, 실지수, 최소도입외기량, 축소운전시최소도입외기량, 사람, 작업보조기기, 난방설정온도, 냉방설정온도, 야간최저허용온도, 주말최저"& _ + "허용온도, 최소설정온도난방, 최소설정온도냉방, 외기온도난방, 외기온도냉방7월, 외기온도냉방9월, 차감계수, 오염계수, 부분운전계수, day01,"& _ + " day02, day03, day04, day05, day06, day07, day08, day09, day10, day11, day12 FRO"& _ + "M tbl_profile_2016 WHERE (code = @code)" + Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@code", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "code", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@설명", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "설명", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@일일급탕요구량", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "일일급탕요구량", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@사용시작시간", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "사용시작시간", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@사용종료시간", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "사용종료시간", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@일일사용시간", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "일일사용시간", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@운전시작시간", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "운전시작시간", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@운전종료시간", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "운전종료시간", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@운전시간난방", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "운전시간난방", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@연간사용일수", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "연간사용일수", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@연간사용시간주간", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "연간사용시간주간", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@연간사용시간야간", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "연간사용시간야간", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@일일운전시간", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "일일운전시간", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@연간운전일수", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "연간운전일수", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@요구조도", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "요구조도", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@작업면높이", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "작업면높이", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@감소계수", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "감소계수", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@부재율", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "부재율", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@실지수", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "실지수", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@최소도입외기량", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "최소도입외기량", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@축소운전시최소도입외기량", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "축소운전시최소도입외기량", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@사람", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "사람", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@작업보조기기", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "작업보조기기", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@난방설정온도", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "난방설정온도", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@냉방설정온도", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "냉방설정온도", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@야간최저허용온도", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "야간최저허용온도", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@주말최저허용온도", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "주말최저허용온도", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@최소설정온도난방", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "최소설정온도난방", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@최소설정온도냉방", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "최소설정온도냉방", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@외기온도난방", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "외기온도난방", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@외기온도냉방7월", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "외기온도냉방7월", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@외기온도냉방9월", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "외기온도냉방9월", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@차감계수", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "차감계수", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@오염계수", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "오염계수", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@부분운전계수", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "부분운전계수", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@day01", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "day01", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@day02", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "day02", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@day03", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "day03", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@day04", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "day04", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@day05", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "day05", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@day06", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "day06", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@day07", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "day07", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@day08", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "day08", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@day09", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "day09", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@day10", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "day10", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@day11", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "day11", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@day12", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "day12", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand = New Global.System.Data.SqlClient.SqlCommand() + Me._adapter.UpdateCommand.Connection = Me.Connection + Me._adapter.UpdateCommand.CommandText = "UPDATE [tbl_profile_2016] SET [code] = @code, [설명] = @설명, [일일급탕요구량] = @일일급탕요구량, ["& _ + "사용시작시간] = @사용시작시간, [사용종료시간] = @사용종료시간, [일일사용시간] = @일일사용시간, [운전시작시간] = @운전시작시간, ["& _ + "운전종료시간] = @운전종료시간, [운전시간난방] = @운전시간난방, [연간사용일수] = @연간사용일수, [연간사용시간주간] = @연간사용시간주"& _ + "간, [연간사용시간야간] = @연간사용시간야간, [일일운전시간] = @일일운전시간, [연간운전일수] = @연간운전일수, [요구조도] = @요구조"& _ + "도, [작업면높이] = @작업면높이, [감소계수] = @감소계수, [부재율] = @부재율, [실지수] = @실지수, [최소도입외기량] = @최소"& _ + "도입외기량, [축소운전시최소도입외기량] = @축소운전시최소도입외기량, [사람] = @사람, [작업보조기기] = @작업보조기기, [난방설정온도] "& _ + "= @난방설정온도, [냉방설정온도] = @냉방설정온도, [야간최저허용온도] = @야간최저허용온도, [주말최저허용온도] = @주말최저허용온도, ["& _ + "최소설정온도난방] = @최소설정온도난방, [최소설정온도냉방] = @최소설정온도냉방, [외기온도난방] = @외기온도난방, [외기온도냉방7월] = "& _ + "@외기온도냉방7월, [외기온도냉방9월] = @외기온도냉방9월, [차감계수] = @차감계수, [오염계수] = @오염계수, [부분운전계수] = @부"& _ + "분운전계수, [day01] = @day01, [day02] = @day02, [day03] = @day03, [day04] = @day04, ["& _ + "day05] = @day05, [day06] = @day06, [day07] = @day07, [day08] = @day08, [day09] ="& _ + " @day09, [day10] = @day10, [day11] = @day11, [day12] = @day12 WHERE (([code] = @"& _ + "Original_code) AND ((@IsNull_설명 = 1 AND [설명] IS NULL) OR ([설명] = @Original_설명)) "& _ + "AND ((@IsNull_일일급탕요구량 = 1 AND [일일급탕요구량] IS NULL) OR ([일일급탕요구량] = @Original_일일급탕요"& _ + "구량)) AND ((@IsNull_사용시작시간 = 1 AND [사용시작시간] IS NULL) OR ([사용시작시간] = @Original_사용시"& _ + "작시간)) AND ((@IsNull_사용종료시간 = 1 AND [사용종료시간] IS NULL) OR ([사용종료시간] = @Original_사용"& _ + "종료시간)) AND ((@IsNull_일일사용시간 = 1 AND [일일사용시간] IS NULL) OR ([일일사용시간] = @Original_일"& _ + "일사용시간)) AND ((@IsNull_운전시작시간 = 1 AND [운전시작시간] IS NULL) OR ([운전시작시간] = @Original_"& _ + "운전시작시간)) AND ((@IsNull_운전종료시간 = 1 AND [운전종료시간] IS NULL) OR ([운전종료시간] = @Original"& _ + "_운전종료시간)) AND ((@IsNull_운전시간난방 = 1 AND [운전시간난방] IS NULL) OR ([운전시간난방] = @Origina"& _ + "l_운전시간난방)) AND ((@IsNull_연간사용일수 = 1 AND [연간사용일수] IS NULL) OR ([연간사용일수] = @Origin"& _ + "al_연간사용일수)) AND ((@IsNull_연간사용시간주간 = 1 AND [연간사용시간주간] IS NULL) OR ([연간사용시간주간] = "& _ + "@Original_연간사용시간주간)) AND ((@IsNull_연간사용시간야간 = 1 AND [연간사용시간야간] IS NULL) OR ([연간사"& _ + "용시간야간] = @Original_연간사용시간야간)) AND ((@IsNull_일일운전시간 = 1 AND [일일운전시간] IS NULL) OR "& _ + "([일일운전시간] = @Original_일일운전시간)) AND ((@IsNull_연간운전일수 = 1 AND [연간운전일수] IS NULL) OR"& _ + " ([연간운전일수] = @Original_연간운전일수)) AND ((@IsNull_요구조도 = 1 AND [요구조도] IS NULL) OR (["& _ + "요구조도] = @Original_요구조도)) AND ((@IsNull_작업면높이 = 1 AND [작업면높이] IS NULL) OR ([작업면높이"& _ + "] = @Original_작업면높이)) AND ((@IsNull_감소계수 = 1 AND [감소계수] IS NULL) OR ([감소계수] = @O"& _ + "riginal_감소계수)) AND ((@IsNull_부재율 = 1 AND [부재율] IS NULL) OR ([부재율] = @Original_부재"& _ + "율)) AND ((@IsNull_실지수 = 1 AND [실지수] IS NULL) OR ([실지수] = @Original_실지수)) AND ((@"& _ + "IsNull_최소도입외기량 = 1 AND [최소도입외기량] IS NULL) OR ([최소도입외기량] = @Original_최소도입외기량)) AN"& _ + "D ((@IsNull_축소운전시최소도입외기량 = 1 AND [축소운전시최소도입외기량] IS NULL) OR ([축소운전시최소도입외기량] = @O"& _ + "riginal_축소운전시최소도입외기량)) AND ((@IsNull_사람 = 1 AND [사람] IS NULL) OR ([사람] = @Origin"& _ + "al_사람)) AND ((@IsNull_작업보조기기 = 1 AND [작업보조기기] IS NULL) OR ([작업보조기기] = @Original_"& _ + "작업보조기기)) AND ((@IsNull_난방설정온도 = 1 AND [난방설정온도] IS NULL) OR ([난방설정온도] = @Original"& _ + "_난방설정온도)) AND ((@IsNull_냉방설정온도 = 1 AND [냉방설정온도] IS NULL) OR ([냉방설정온도] = @Origina"& _ + "l_냉방설정온도)) AND ((@IsNull_야간최저허용온도 = 1 AND [야간최저허용온도] IS NULL) OR ([야간최저허용온도] = @"& _ + "Original_야간최저허용온도)) AND ((@IsNull_주말최저허용온도 = 1 AND [주말최저허용온도] IS NULL) OR ([주말최저"& _ + "허용온도] = @Original_주말최저허용온도)) AND ((@IsNull_최소설정온도난방 = 1 AND [최소설정온도난방] IS NULL) "& _ + "OR ([최소설정온도난방] = @Original_최소설정온도난방)) AND ((@IsNull_최소설정온도냉방 = 1 AND [최소설정온도냉방] "& _ + "IS NULL) OR ([최소설정온도냉방] = @Original_최소설정온도냉방)) AND ((@IsNull_외기온도난방 = 1 AND [외기온"& _ + "도난방] IS NULL) OR ([외기온도난방] = @Original_외기온도난방)) AND ((@IsNull_외기온도냉방7월 = 1 AND ["& _ + "외기온도냉방7월] IS NULL) OR ([외기온도냉방7월] = @Original_외기온도냉방7월)) AND ((@IsNull_외기온도냉방9월 "& _ + "= 1 AND [외기온도냉방9월] IS NULL) OR ([외기온도냉방9월] = @Original_외기온도냉방9월)) AND ((@IsNull_"& _ + "차감계수 = 1 AND [차감계수] IS NULL) OR ([차감계수] = @Original_차감계수)) AND ((@IsNull_오염계수 = "& _ + "1 AND [오염계수] IS NULL) OR ([오염계수] = @Original_오염계수)) AND ((@IsNull_부분운전계수 = 1 AND"& _ + " [부분운전계수] IS NULL) OR ([부분운전계수] = @Original_부분운전계수)) AND ((@IsNull_day01 = 1 AND"& _ + " [day01] IS NULL) OR ([day01] = @Original_day01)) AND ((@IsNull_day02 = 1 AND [d"& _ + "ay02] IS NULL) OR ([day02] = @Original_day02)) AND ((@IsNull_day03 = 1 AND [day0"& _ + "3] IS NULL) OR ([day03] = @Original_day03)) AND ((@IsNull_day04 = 1 AND [day04] "& _ + "IS NULL) OR ([day04] = @Original_day04)) AND ((@IsNull_day05 = 1 AND [day05] IS "& _ + "NULL) OR ([day05] = @Original_day05)) AND ((@IsNull_day06 = 1 AND [day06] IS NUL"& _ + "L) OR ([day06] = @Original_day06)) AND ((@IsNull_day07 = 1 AND [day07] IS NULL) "& _ + "OR ([day07] = @Original_day07)) AND ((@IsNull_day08 = 1 AND [day08] IS NULL) OR "& _ + "([day08] = @Original_day08)) AND ((@IsNull_day09 = 1 AND [day09] IS NULL) OR ([d"& _ + "ay09] = @Original_day09)) AND ((@IsNull_day10 = 1 AND [day10] IS NULL) OR ([day1"& _ + "0] = @Original_day10)) AND ((@IsNull_day11 = 1 AND [day11] IS NULL) OR ([day11] "& _ + "= @Original_day11)) AND ((@IsNull_day12 = 1 AND [day12] IS NULL) OR ([day12] = @"& _ + "Original_day12)));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT code, 설명, 일일급탕요구량, 사용시작시간, 사용종료시간, 일일사용시간, 운전시작시간, 운전"& _ + "종료시간, 운전시간난방, 연간사용일수, 연간사용시간주간, 연간사용시간야간, 일일운전시간, 연간운전일수, 요구조도, 작업면높이, 감소계수, 부재율"& _ + ", 실지수, 최소도입외기량, 축소운전시최소도입외기량, 사람, 작업보조기기, 난방설정온도, 냉방설정온도, 야간최저허용온도, 주말최저허용온도, 최소"& _ + "설정온도난방, 최소설정온도냉방, 외기온도난방, 외기온도냉방7월, 외기온도냉방9월, 차감계수, 오염계수, 부분운전계수, day01, day02, "& _ + "day03, day04, day05, day06, day07, day08, day09, day10, day11, day12 FROM tbl_pr"& _ + "ofile_2016 WHERE (code = @code)" + Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@code", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "code", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@설명", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "설명", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@일일급탕요구량", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "일일급탕요구량", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@사용시작시간", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "사용시작시간", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@사용종료시간", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "사용종료시간", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@일일사용시간", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "일일사용시간", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@운전시작시간", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "운전시작시간", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@운전종료시간", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "운전종료시간", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@운전시간난방", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "운전시간난방", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@연간사용일수", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "연간사용일수", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@연간사용시간주간", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "연간사용시간주간", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@연간사용시간야간", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "연간사용시간야간", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@일일운전시간", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "일일운전시간", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@연간운전일수", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "연간운전일수", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@요구조도", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "요구조도", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@작업면높이", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "작업면높이", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@감소계수", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "감소계수", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@부재율", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "부재율", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@실지수", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "실지수", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@최소도입외기량", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "최소도입외기량", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@축소운전시최소도입외기량", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "축소운전시최소도입외기량", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@사람", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "사람", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@작업보조기기", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "작업보조기기", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@난방설정온도", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "난방설정온도", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@냉방설정온도", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "냉방설정온도", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@야간최저허용온도", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "야간최저허용온도", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@주말최저허용온도", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "주말최저허용온도", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@최소설정온도난방", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "최소설정온도난방", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@최소설정온도냉방", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "최소설정온도냉방", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@외기온도난방", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "외기온도난방", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@외기온도냉방7월", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "외기온도냉방7월", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@외기온도냉방9월", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "외기온도냉방9월", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@차감계수", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "차감계수", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@오염계수", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "오염계수", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@부분운전계수", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "부분운전계수", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@day01", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "day01", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@day02", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "day02", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@day03", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "day03", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@day04", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "day04", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@day05", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "day05", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@day06", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "day06", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@day07", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "day07", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@day08", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "day08", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@day09", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "day09", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@day10", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "day10", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@day11", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "day11", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@day12", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "day12", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_code", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "code", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_설명", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "설명", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_설명", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "설명", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_일일급탕요구량", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "일일급탕요구량", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_일일급탕요구량", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "일일급탕요구량", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_사용시작시간", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "사용시작시간", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_사용시작시간", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "사용시작시간", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_사용종료시간", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "사용종료시간", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_사용종료시간", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "사용종료시간", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_일일사용시간", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "일일사용시간", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_일일사용시간", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "일일사용시간", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_운전시작시간", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "운전시작시간", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_운전시작시간", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "운전시작시간", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_운전종료시간", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "운전종료시간", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_운전종료시간", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "운전종료시간", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_운전시간난방", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "운전시간난방", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_운전시간난방", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "운전시간난방", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_연간사용일수", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "연간사용일수", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_연간사용일수", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "연간사용일수", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_연간사용시간주간", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "연간사용시간주간", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_연간사용시간주간", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "연간사용시간주간", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_연간사용시간야간", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "연간사용시간야간", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_연간사용시간야간", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "연간사용시간야간", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_일일운전시간", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "일일운전시간", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_일일운전시간", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "일일운전시간", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_연간운전일수", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "연간운전일수", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_연간운전일수", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "연간운전일수", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_요구조도", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "요구조도", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_요구조도", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "요구조도", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_작업면높이", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "작업면높이", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_작업면높이", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "작업면높이", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_감소계수", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "감소계수", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_감소계수", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "감소계수", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_부재율", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "부재율", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_부재율", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "부재율", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_실지수", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "실지수", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_실지수", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "실지수", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_최소도입외기량", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "최소도입외기량", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_최소도입외기량", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "최소도입외기량", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_축소운전시최소도입외기량", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "축소운전시최소도입외기량", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_축소운전시최소도입외기량", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "축소운전시최소도입외기량", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_사람", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "사람", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_사람", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "사람", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_작업보조기기", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "작업보조기기", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_작업보조기기", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "작업보조기기", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_난방설정온도", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "난방설정온도", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_난방설정온도", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "난방설정온도", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_냉방설정온도", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "냉방설정온도", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_냉방설정온도", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "냉방설정온도", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_야간최저허용온도", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "야간최저허용온도", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_야간최저허용온도", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "야간최저허용온도", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_주말최저허용온도", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "주말최저허용온도", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_주말최저허용온도", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "주말최저허용온도", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_최소설정온도난방", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "최소설정온도난방", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_최소설정온도난방", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "최소설정온도난방", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_최소설정온도냉방", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "최소설정온도냉방", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_최소설정온도냉방", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "최소설정온도냉방", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_외기온도난방", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "외기온도난방", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_외기온도난방", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "외기온도난방", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_외기온도냉방7월", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "외기온도냉방7월", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_외기온도냉방7월", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "외기온도냉방7월", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_외기온도냉방9월", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "외기온도냉방9월", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_외기온도냉방9월", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "외기온도냉방9월", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_차감계수", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "차감계수", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_차감계수", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "차감계수", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_오염계수", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "오염계수", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_오염계수", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "오염계수", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_부분운전계수", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "부분운전계수", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_부분운전계수", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "부분운전계수", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_day01", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "day01", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_day01", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "day01", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_day02", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "day02", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_day02", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "day02", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_day03", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "day03", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_day03", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "day03", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_day04", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "day04", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_day04", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "day04", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_day05", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "day05", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_day05", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "day05", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_day06", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "day06", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_day06", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "day06", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_day07", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "day07", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_day07", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "day07", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_day08", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "day08", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_day08", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "day08", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_day09", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "day09", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_day09", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "day09", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_day10", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "day10", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_day10", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "day10", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_day11", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "day11", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_day11", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "day11", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_day12", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "day12", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_day12", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "day12", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + End Sub + + _ + Private Sub InitConnection() + Me._connection = New Global.System.Data.SqlClient.SqlConnection() + Me._connection.ConnectionString = Global.Eco2Ar.My.MySettings.Default.cs + End Sub + + _ + Private Sub InitCommandCollection() + Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {} + Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() + Me._commandCollection(0).Connection = Me.Connection + Me._commandCollection(0).CommandText = "SELECT code, 설명, 일일급탕요구량, 사용시작시간, 사용종료시간, 일일사용시간, 운전시작시간, 운전종료시간, 운전시간난방, 연간사용일수"& _ + ", 연간사용시간주간, 연간사용시간야간, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" 일일운전시간, 연간운전일수, 요구조도, 작업면높이, 감소계수, 부재율, 실"& _ + "지수, 최소도입외기량, 축소운전시최소도입외기량, 사람, 작업보조기기, 난방설정온도, 냉방설정온도, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" 야간최저허용온도"& _ + ", 주말최저허용온도, 최소설정온도난방, 최소설정온도냉방, 외기온도난방, 외기온도냉방7월, 외기온도냉방9월, 차감계수, 오염계수, 부분운전계수, "& _ + "day01, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" day02, day03, day04, day05, day06, day07, day08, day09, "& _ + "day10, day11, day12"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM tbl_profile_2016" + Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text + End Sub + + _ + Public Overloads Overridable Function Fill(ByVal dataTable As DS.tbl_profileDataTable) As Integer + Me.Adapter.SelectCommand = Me.CommandCollection(0) + If (Me.ClearBeforeFill = true) Then + dataTable.Clear + End If + Dim returnValue As Integer = Me.Adapter.Fill(dataTable) + Return returnValue + End Function + + _ + Public Overloads Overridable Function GetData() As DS.tbl_profileDataTable + Me.Adapter.SelectCommand = Me.CommandCollection(0) + Dim dataTable As DS.tbl_profileDataTable = New DS.tbl_profileDataTable() + Me.Adapter.Fill(dataTable) + Return dataTable + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataTable As DS.tbl_profileDataTable) As Integer + Return Me.Adapter.Update(dataTable) + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataSet As DS) As Integer + Return Me.Adapter.Update(dataSet, "tbl_profile") + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer + Return Me.Adapter.Update(New Global.System.Data.DataRow() {dataRow}) + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer + Return Me.Adapter.Update(dataRows) + End Function + + _ + Public Overloads Overridable Function Delete( _ + ByVal Original_code As String, _ + ByVal Original_설명 As String, _ + ByVal Original_일일급탕요구량 As String, _ + ByVal Original_사용시작시간 As String, _ + ByVal Original_사용종료시간 As String, _ + ByVal Original_일일사용시간 As String, _ + ByVal Original_운전시작시간 As String, _ + ByVal Original_운전종료시간 As String, _ + ByVal Original_운전시간난방 As String, _ + ByVal Original_연간사용일수 As String, _ + ByVal Original_연간사용시간주간 As String, _ + ByVal Original_연간사용시간야간 As String, _ + ByVal Original_일일운전시간 As String, _ + ByVal Original_연간운전일수 As String, _ + ByVal Original_요구조도 As String, _ + ByVal Original_작업면높이 As String, _ + ByVal Original_감소계수 As String, _ + ByVal Original_부재율 As String, _ + ByVal Original_실지수 As String, _ + ByVal Original_최소도입외기량 As String, _ + ByVal Original_축소운전시최소도입외기량 As String, _ + ByVal Original_사람 As String, _ + ByVal Original_작업보조기기 As String, _ + ByVal Original_난방설정온도 As String, _ + ByVal Original_냉방설정온도 As String, _ + ByVal Original_야간최저허용온도 As String, _ + ByVal Original_주말최저허용온도 As String, _ + ByVal Original_최소설정온도난방 As String, _ + ByVal Original_최소설정온도냉방 As String, _ + ByVal Original_외기온도난방 As String, _ + ByVal Original_외기온도냉방7월 As String, _ + ByVal Original_외기온도냉방9월 As String, _ + ByVal Original_차감계수 As String, _ + ByVal Original_오염계수 As String, _ + ByVal Original_부분운전계수 As String, _ + ByVal Original_day01 As String, _ + ByVal Original_day02 As String, _ + ByVal Original_day03 As String, _ + ByVal Original_day04 As String, _ + ByVal Original_day05 As String, _ + ByVal Original_day06 As String, _ + ByVal Original_day07 As String, _ + ByVal Original_day08 As String, _ + ByVal Original_day09 As String, _ + ByVal Original_day10 As String, _ + ByVal Original_day11 As String, _ + ByVal Original_day12 As String) As Integer + If (Original_code Is Nothing) Then + Throw New Global.System.ArgumentNullException("Original_code") + Else + Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_code,String) + End If + If (Original_설명 Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(1).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(2).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(1).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(2).Value = CType(Original_설명,String) + End If + If (Original_일일급탕요구량 Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(3).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(4).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(3).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(4).Value = CType(Original_일일급탕요구량,String) + End If + If (Original_사용시작시간 Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(5).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(6).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(5).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(6).Value = CType(Original_사용시작시간,String) + End If + If (Original_사용종료시간 Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(7).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(8).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(7).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(8).Value = CType(Original_사용종료시간,String) + End If + If (Original_일일사용시간 Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(9).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(10).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(9).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(10).Value = CType(Original_일일사용시간,String) + End If + If (Original_운전시작시간 Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(11).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(12).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(11).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(12).Value = CType(Original_운전시작시간,String) + End If + If (Original_운전종료시간 Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(13).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(14).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(13).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(14).Value = CType(Original_운전종료시간,String) + End If + If (Original_운전시간난방 Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(15).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(16).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(15).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(16).Value = CType(Original_운전시간난방,String) + End If + If (Original_연간사용일수 Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(17).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(18).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(17).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(18).Value = CType(Original_연간사용일수,String) + End If + If (Original_연간사용시간주간 Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(19).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(20).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(19).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(20).Value = CType(Original_연간사용시간주간,String) + End If + If (Original_연간사용시간야간 Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(21).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(22).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(21).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(22).Value = CType(Original_연간사용시간야간,String) + End If + If (Original_일일운전시간 Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(23).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(24).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(23).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(24).Value = CType(Original_일일운전시간,String) + End If + If (Original_연간운전일수 Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(25).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(26).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(25).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(26).Value = CType(Original_연간운전일수,String) + End If + If (Original_요구조도 Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(27).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(28).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(27).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(28).Value = CType(Original_요구조도,String) + End If + If (Original_작업면높이 Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(29).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(30).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(29).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(30).Value = CType(Original_작업면높이,String) + End If + If (Original_감소계수 Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(31).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(32).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(31).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(32).Value = CType(Original_감소계수,String) + End If + If (Original_부재율 Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(33).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(34).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(33).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(34).Value = CType(Original_부재율,String) + End If + If (Original_실지수 Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(35).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(36).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(35).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(36).Value = CType(Original_실지수,String) + End If + If (Original_최소도입외기량 Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(37).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(38).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(37).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(38).Value = CType(Original_최소도입외기량,String) + End If + If (Original_축소운전시최소도입외기량 Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(39).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(40).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(39).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(40).Value = CType(Original_축소운전시최소도입외기량,String) + End If + If (Original_사람 Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(41).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(42).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(41).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(42).Value = CType(Original_사람,String) + End If + If (Original_작업보조기기 Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(43).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(44).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(43).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(44).Value = CType(Original_작업보조기기,String) + End If + If (Original_난방설정온도 Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(45).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(46).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(45).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(46).Value = CType(Original_난방설정온도,String) + End If + If (Original_냉방설정온도 Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(47).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(48).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(47).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(48).Value = CType(Original_냉방설정온도,String) + End If + If (Original_야간최저허용온도 Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(49).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(50).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(49).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(50).Value = CType(Original_야간최저허용온도,String) + End If + If (Original_주말최저허용온도 Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(51).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(52).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(51).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(52).Value = CType(Original_주말최저허용온도,String) + End If + If (Original_최소설정온도난방 Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(53).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(54).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(53).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(54).Value = CType(Original_최소설정온도난방,String) + End If + If (Original_최소설정온도냉방 Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(55).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(56).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(55).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(56).Value = CType(Original_최소설정온도냉방,String) + End If + If (Original_외기온도난방 Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(57).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(58).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(57).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(58).Value = CType(Original_외기온도난방,String) + End If + If (Original_외기온도냉방7월 Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(59).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(60).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(59).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(60).Value = CType(Original_외기온도냉방7월,String) + End If + If (Original_외기온도냉방9월 Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(61).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(62).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(61).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(62).Value = CType(Original_외기온도냉방9월,String) + End If + If (Original_차감계수 Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(63).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(64).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(63).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(64).Value = CType(Original_차감계수,String) + End If + If (Original_오염계수 Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(65).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(66).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(65).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(66).Value = CType(Original_오염계수,String) + End If + If (Original_부분운전계수 Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(67).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(68).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(67).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(68).Value = CType(Original_부분운전계수,String) + End If + If (Original_day01 Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(69).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(70).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(69).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(70).Value = CType(Original_day01,String) + End If + If (Original_day02 Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(71).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(72).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(71).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(72).Value = CType(Original_day02,String) + End If + If (Original_day03 Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(73).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(74).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(73).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(74).Value = CType(Original_day03,String) + End If + If (Original_day04 Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(75).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(76).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(75).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(76).Value = CType(Original_day04,String) + End If + If (Original_day05 Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(77).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(78).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(77).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(78).Value = CType(Original_day05,String) + End If + If (Original_day06 Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(79).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(80).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(79).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(80).Value = CType(Original_day06,String) + End If + If (Original_day07 Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(81).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(82).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(81).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(82).Value = CType(Original_day07,String) + End If + If (Original_day08 Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(83).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(84).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(83).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(84).Value = CType(Original_day08,String) + End If + If (Original_day09 Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(85).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(86).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(85).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(86).Value = CType(Original_day09,String) + End If + If (Original_day10 Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(87).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(88).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(87).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(88).Value = CType(Original_day10,String) + End If + If (Original_day11 Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(89).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(90).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(89).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(90).Value = CType(Original_day11,String) + End If + If (Original_day12 Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(91).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(92).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(91).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(92).Value = CType(Original_day12,String) + End If + Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.DeleteCommand.Connection.State + If ((Me.Adapter.DeleteCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + Me.Adapter.DeleteCommand.Connection.Open + End If + Try + Dim returnValue As Integer = Me.Adapter.DeleteCommand.ExecuteNonQuery + Return returnValue + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + Me.Adapter.DeleteCommand.Connection.Close + End If + End Try + End Function + + _ + Public Overloads Overridable Function Insert( _ + ByVal code As String, _ + ByVal 설명 As String, _ + ByVal 일일급탕요구량 As String, _ + ByVal 사용시작시간 As String, _ + ByVal 사용종료시간 As String, _ + ByVal 일일사용시간 As String, _ + ByVal 운전시작시간 As String, _ + ByVal 운전종료시간 As String, _ + ByVal 운전시간난방 As String, _ + ByVal 연간사용일수 As String, _ + ByVal 연간사용시간주간 As String, _ + ByVal 연간사용시간야간 As String, _ + ByVal 일일운전시간 As String, _ + ByVal 연간운전일수 As String, _ + ByVal 요구조도 As String, _ + ByVal 작업면높이 As String, _ + ByVal 감소계수 As String, _ + ByVal 부재율 As String, _ + ByVal 실지수 As String, _ + ByVal 최소도입외기량 As String, _ + ByVal 축소운전시최소도입외기량 As String, _ + ByVal 사람 As String, _ + ByVal 작업보조기기 As String, _ + ByVal 난방설정온도 As String, _ + ByVal 냉방설정온도 As String, _ + ByVal 야간최저허용온도 As String, _ + ByVal 주말최저허용온도 As String, _ + ByVal 최소설정온도난방 As String, _ + ByVal 최소설정온도냉방 As String, _ + ByVal 외기온도난방 As String, _ + ByVal 외기온도냉방7월 As String, _ + ByVal 외기온도냉방9월 As String, _ + ByVal 차감계수 As String, _ + ByVal 오염계수 As String, _ + ByVal 부분운전계수 As String, _ + ByVal day01 As String, _ + ByVal day02 As String, _ + ByVal day03 As String, _ + ByVal day04 As String, _ + ByVal day05 As String, _ + ByVal day06 As String, _ + ByVal day07 As String, _ + ByVal day08 As String, _ + ByVal day09 As String, _ + ByVal day10 As String, _ + ByVal day11 As String, _ + ByVal day12 As String) As Integer + If (code Is Nothing) Then + Throw New Global.System.ArgumentNullException("code") + Else + Me.Adapter.InsertCommand.Parameters(0).Value = CType(code,String) + End If + If (설명 Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(1).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(1).Value = CType(설명,String) + End If + If (일일급탕요구량 Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(2).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(2).Value = CType(일일급탕요구량,String) + End If + If (사용시작시간 Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(3).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(3).Value = CType(사용시작시간,String) + End If + If (사용종료시간 Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(4).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(4).Value = CType(사용종료시간,String) + End If + If (일일사용시간 Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(5).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(5).Value = CType(일일사용시간,String) + End If + If (운전시작시간 Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(6).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(6).Value = CType(운전시작시간,String) + End If + If (운전종료시간 Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(7).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(7).Value = CType(운전종료시간,String) + End If + If (운전시간난방 Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(8).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(8).Value = CType(운전시간난방,String) + End If + If (연간사용일수 Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(9).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(9).Value = CType(연간사용일수,String) + End If + If (연간사용시간주간 Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(10).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(10).Value = CType(연간사용시간주간,String) + End If + If (연간사용시간야간 Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(11).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(11).Value = CType(연간사용시간야간,String) + End If + If (일일운전시간 Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(12).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(12).Value = CType(일일운전시간,String) + End If + If (연간운전일수 Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(13).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(13).Value = CType(연간운전일수,String) + End If + If (요구조도 Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(14).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(14).Value = CType(요구조도,String) + End If + If (작업면높이 Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(15).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(15).Value = CType(작업면높이,String) + End If + If (감소계수 Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(16).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(16).Value = CType(감소계수,String) + End If + If (부재율 Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(17).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(17).Value = CType(부재율,String) + End If + If (실지수 Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(18).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(18).Value = CType(실지수,String) + End If + If (최소도입외기량 Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(19).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(19).Value = CType(최소도입외기량,String) + End If + If (축소운전시최소도입외기량 Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(20).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(20).Value = CType(축소운전시최소도입외기량,String) + End If + If (사람 Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(21).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(21).Value = CType(사람,String) + End If + If (작업보조기기 Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(22).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(22).Value = CType(작업보조기기,String) + End If + If (난방설정온도 Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(23).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(23).Value = CType(난방설정온도,String) + End If + If (냉방설정온도 Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(24).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(24).Value = CType(냉방설정온도,String) + End If + If (야간최저허용온도 Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(25).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(25).Value = CType(야간최저허용온도,String) + End If + If (주말최저허용온도 Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(26).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(26).Value = CType(주말최저허용온도,String) + End If + If (최소설정온도난방 Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(27).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(27).Value = CType(최소설정온도난방,String) + End If + If (최소설정온도냉방 Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(28).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(28).Value = CType(최소설정온도냉방,String) + End If + If (외기온도난방 Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(29).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(29).Value = CType(외기온도난방,String) + End If + If (외기온도냉방7월 Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(30).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(30).Value = CType(외기온도냉방7월,String) + End If + If (외기온도냉방9월 Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(31).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(31).Value = CType(외기온도냉방9월,String) + End If + If (차감계수 Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(32).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(32).Value = CType(차감계수,String) + End If + If (오염계수 Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(33).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(33).Value = CType(오염계수,String) + End If + If (부분운전계수 Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(34).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(34).Value = CType(부분운전계수,String) + End If + If (day01 Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(35).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(35).Value = CType(day01,String) + End If + If (day02 Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(36).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(36).Value = CType(day02,String) + End If + If (day03 Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(37).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(37).Value = CType(day03,String) + End If + If (day04 Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(38).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(38).Value = CType(day04,String) + End If + If (day05 Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(39).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(39).Value = CType(day05,String) + End If + If (day06 Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(40).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(40).Value = CType(day06,String) + End If + If (day07 Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(41).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(41).Value = CType(day07,String) + End If + If (day08 Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(42).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(42).Value = CType(day08,String) + End If + If (day09 Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(43).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(43).Value = CType(day09,String) + End If + If (day10 Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(44).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(44).Value = CType(day10,String) + End If + If (day11 Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(45).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(45).Value = CType(day11,String) + End If + If (day12 Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(46).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(46).Value = CType(day12,String) + End If + Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.InsertCommand.Connection.State + If ((Me.Adapter.InsertCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + Me.Adapter.InsertCommand.Connection.Open + End If + Try + Dim returnValue As Integer = Me.Adapter.InsertCommand.ExecuteNonQuery + Return returnValue + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + Me.Adapter.InsertCommand.Connection.Close + End If + End Try + End Function + + _ + Public Overloads Overridable Function Update( _ + ByVal code As String, _ + ByVal 설명 As String, _ + ByVal 일일급탕요구량 As String, _ + ByVal 사용시작시간 As String, _ + ByVal 사용종료시간 As String, _ + ByVal 일일사용시간 As String, _ + ByVal 운전시작시간 As String, _ + ByVal 운전종료시간 As String, _ + ByVal 운전시간난방 As String, _ + ByVal 연간사용일수 As String, _ + ByVal 연간사용시간주간 As String, _ + ByVal 연간사용시간야간 As String, _ + ByVal 일일운전시간 As String, _ + ByVal 연간운전일수 As String, _ + ByVal 요구조도 As String, _ + ByVal 작업면높이 As String, _ + ByVal 감소계수 As String, _ + ByVal 부재율 As String, _ + ByVal 실지수 As String, _ + ByVal 최소도입외기량 As String, _ + ByVal 축소운전시최소도입외기량 As String, _ + ByVal 사람 As String, _ + ByVal 작업보조기기 As String, _ + ByVal 난방설정온도 As String, _ + ByVal 냉방설정온도 As String, _ + ByVal 야간최저허용온도 As String, _ + ByVal 주말최저허용온도 As String, _ + ByVal 최소설정온도난방 As String, _ + ByVal 최소설정온도냉방 As String, _ + ByVal 외기온도난방 As String, _ + ByVal 외기온도냉방7월 As String, _ + ByVal 외기온도냉방9월 As String, _ + ByVal 차감계수 As String, _ + ByVal 오염계수 As String, _ + ByVal 부분운전계수 As String, _ + ByVal day01 As String, _ + ByVal day02 As String, _ + ByVal day03 As String, _ + ByVal day04 As String, _ + ByVal day05 As String, _ + ByVal day06 As String, _ + ByVal day07 As String, _ + ByVal day08 As String, _ + ByVal day09 As String, _ + ByVal day10 As String, _ + ByVal day11 As String, _ + ByVal day12 As String, _ + ByVal Original_code As String, _ + ByVal Original_설명 As String, _ + ByVal Original_일일급탕요구량 As String, _ + ByVal Original_사용시작시간 As String, _ + ByVal Original_사용종료시간 As String, _ + ByVal Original_일일사용시간 As String, _ + ByVal Original_운전시작시간 As String, _ + ByVal Original_운전종료시간 As String, _ + ByVal Original_운전시간난방 As String, _ + ByVal Original_연간사용일수 As String, _ + ByVal Original_연간사용시간주간 As String, _ + ByVal Original_연간사용시간야간 As String, _ + ByVal Original_일일운전시간 As String, _ + ByVal Original_연간운전일수 As String, _ + ByVal Original_요구조도 As String, _ + ByVal Original_작업면높이 As String, _ + ByVal Original_감소계수 As String, _ + ByVal Original_부재율 As String, _ + ByVal Original_실지수 As String, _ + ByVal Original_최소도입외기량 As String, _ + ByVal Original_축소운전시최소도입외기량 As String, _ + ByVal Original_사람 As String, _ + ByVal Original_작업보조기기 As String, _ + ByVal Original_난방설정온도 As String, _ + ByVal Original_냉방설정온도 As String, _ + ByVal Original_야간최저허용온도 As String, _ + ByVal Original_주말최저허용온도 As String, _ + ByVal Original_최소설정온도난방 As String, _ + ByVal Original_최소설정온도냉방 As String, _ + ByVal Original_외기온도난방 As String, _ + ByVal Original_외기온도냉방7월 As String, _ + ByVal Original_외기온도냉방9월 As String, _ + ByVal Original_차감계수 As String, _ + ByVal Original_오염계수 As String, _ + ByVal Original_부분운전계수 As String, _ + ByVal Original_day01 As String, _ + ByVal Original_day02 As String, _ + ByVal Original_day03 As String, _ + ByVal Original_day04 As String, _ + ByVal Original_day05 As String, _ + ByVal Original_day06 As String, _ + ByVal Original_day07 As String, _ + ByVal Original_day08 As String, _ + ByVal Original_day09 As String, _ + ByVal Original_day10 As String, _ + ByVal Original_day11 As String, _ + ByVal Original_day12 As String) As Integer + If (code Is Nothing) Then + Throw New Global.System.ArgumentNullException("code") + Else + Me.Adapter.UpdateCommand.Parameters(0).Value = CType(code,String) + End If + If (설명 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(1).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(1).Value = CType(설명,String) + End If + If (일일급탕요구량 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(2).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(2).Value = CType(일일급탕요구량,String) + End If + If (사용시작시간 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(3).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(3).Value = CType(사용시작시간,String) + End If + If (사용종료시간 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(4).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(4).Value = CType(사용종료시간,String) + End If + If (일일사용시간 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(5).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(5).Value = CType(일일사용시간,String) + End If + If (운전시작시간 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(6).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(6).Value = CType(운전시작시간,String) + End If + If (운전종료시간 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(7).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(7).Value = CType(운전종료시간,String) + End If + If (운전시간난방 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(8).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(8).Value = CType(운전시간난방,String) + End If + If (연간사용일수 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(9).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(9).Value = CType(연간사용일수,String) + End If + If (연간사용시간주간 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(10).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(10).Value = CType(연간사용시간주간,String) + End If + If (연간사용시간야간 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(11).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(11).Value = CType(연간사용시간야간,String) + End If + If (일일운전시간 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(12).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(12).Value = CType(일일운전시간,String) + End If + If (연간운전일수 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(13).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(13).Value = CType(연간운전일수,String) + End If + If (요구조도 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(14).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(14).Value = CType(요구조도,String) + End If + If (작업면높이 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(15).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(15).Value = CType(작업면높이,String) + End If + If (감소계수 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(16).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(16).Value = CType(감소계수,String) + End If + If (부재율 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(17).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(17).Value = CType(부재율,String) + End If + If (실지수 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(18).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(18).Value = CType(실지수,String) + End If + If (최소도입외기량 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(19).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(19).Value = CType(최소도입외기량,String) + End If + If (축소운전시최소도입외기량 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(20).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(20).Value = CType(축소운전시최소도입외기량,String) + End If + If (사람 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(21).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(21).Value = CType(사람,String) + End If + If (작업보조기기 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(22).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(22).Value = CType(작업보조기기,String) + End If + If (난방설정온도 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(23).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(23).Value = CType(난방설정온도,String) + End If + If (냉방설정온도 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(24).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(24).Value = CType(냉방설정온도,String) + End If + If (야간최저허용온도 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(25).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(25).Value = CType(야간최저허용온도,String) + End If + If (주말최저허용온도 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(26).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(26).Value = CType(주말최저허용온도,String) + End If + If (최소설정온도난방 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(27).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(27).Value = CType(최소설정온도난방,String) + End If + If (최소설정온도냉방 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(28).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(28).Value = CType(최소설정온도냉방,String) + End If + If (외기온도난방 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(29).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(29).Value = CType(외기온도난방,String) + End If + If (외기온도냉방7월 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(30).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(30).Value = CType(외기온도냉방7월,String) + End If + If (외기온도냉방9월 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(31).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(31).Value = CType(외기온도냉방9월,String) + End If + If (차감계수 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(32).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(32).Value = CType(차감계수,String) + End If + If (오염계수 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(33).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(33).Value = CType(오염계수,String) + End If + If (부분운전계수 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(34).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(34).Value = CType(부분운전계수,String) + End If + If (day01 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(35).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(35).Value = CType(day01,String) + End If + If (day02 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(36).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(36).Value = CType(day02,String) + End If + If (day03 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(37).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(37).Value = CType(day03,String) + End If + If (day04 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(38).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(38).Value = CType(day04,String) + End If + If (day05 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(39).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(39).Value = CType(day05,String) + End If + If (day06 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(40).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(40).Value = CType(day06,String) + End If + If (day07 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(41).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(41).Value = CType(day07,String) + End If + If (day08 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(42).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(42).Value = CType(day08,String) + End If + If (day09 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(43).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(43).Value = CType(day09,String) + End If + If (day10 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(44).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(44).Value = CType(day10,String) + End If + If (day11 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(45).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(45).Value = CType(day11,String) + End If + If (day12 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(46).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(46).Value = CType(day12,String) + End If + If (Original_code Is Nothing) Then + Throw New Global.System.ArgumentNullException("Original_code") + Else + Me.Adapter.UpdateCommand.Parameters(47).Value = CType(Original_code,String) + End If + If (Original_설명 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(48).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(49).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(48).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(49).Value = CType(Original_설명,String) + End If + If (Original_일일급탕요구량 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(50).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(51).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(50).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(51).Value = CType(Original_일일급탕요구량,String) + End If + If (Original_사용시작시간 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(52).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(53).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(52).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(53).Value = CType(Original_사용시작시간,String) + End If + If (Original_사용종료시간 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(54).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(55).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(54).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(55).Value = CType(Original_사용종료시간,String) + End If + If (Original_일일사용시간 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(56).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(57).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(56).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(57).Value = CType(Original_일일사용시간,String) + End If + If (Original_운전시작시간 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(58).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(59).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(58).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(59).Value = CType(Original_운전시작시간,String) + End If + If (Original_운전종료시간 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(60).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(61).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(60).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(61).Value = CType(Original_운전종료시간,String) + End If + If (Original_운전시간난방 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(62).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(63).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(62).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(63).Value = CType(Original_운전시간난방,String) + End If + If (Original_연간사용일수 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(64).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(65).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(64).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(65).Value = CType(Original_연간사용일수,String) + End If + If (Original_연간사용시간주간 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(66).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(67).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(66).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(67).Value = CType(Original_연간사용시간주간,String) + End If + If (Original_연간사용시간야간 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(68).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(69).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(68).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(69).Value = CType(Original_연간사용시간야간,String) + End If + If (Original_일일운전시간 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(70).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(71).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(70).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(71).Value = CType(Original_일일운전시간,String) + End If + If (Original_연간운전일수 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(72).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(73).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(72).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(73).Value = CType(Original_연간운전일수,String) + End If + If (Original_요구조도 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(74).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(75).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(74).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(75).Value = CType(Original_요구조도,String) + End If + If (Original_작업면높이 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(76).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(77).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(76).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(77).Value = CType(Original_작업면높이,String) + End If + If (Original_감소계수 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(78).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(79).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(78).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(79).Value = CType(Original_감소계수,String) + End If + If (Original_부재율 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(80).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(81).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(80).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(81).Value = CType(Original_부재율,String) + End If + If (Original_실지수 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(82).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(83).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(82).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(83).Value = CType(Original_실지수,String) + End If + If (Original_최소도입외기량 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(84).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(85).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(84).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(85).Value = CType(Original_최소도입외기량,String) + End If + If (Original_축소운전시최소도입외기량 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(86).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(87).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(86).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(87).Value = CType(Original_축소운전시최소도입외기량,String) + End If + If (Original_사람 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(88).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(89).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(88).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(89).Value = CType(Original_사람,String) + End If + If (Original_작업보조기기 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(90).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(91).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(90).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(91).Value = CType(Original_작업보조기기,String) + End If + If (Original_난방설정온도 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(92).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(93).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(92).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(93).Value = CType(Original_난방설정온도,String) + End If + If (Original_냉방설정온도 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(94).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(95).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(94).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(95).Value = CType(Original_냉방설정온도,String) + End If + If (Original_야간최저허용온도 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(96).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(97).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(96).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(97).Value = CType(Original_야간최저허용온도,String) + End If + If (Original_주말최저허용온도 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(98).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(99).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(98).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(99).Value = CType(Original_주말최저허용온도,String) + End If + If (Original_최소설정온도난방 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(100).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(101).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(100).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(101).Value = CType(Original_최소설정온도난방,String) + End If + If (Original_최소설정온도냉방 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(102).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(103).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(102).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(103).Value = CType(Original_최소설정온도냉방,String) + End If + If (Original_외기온도난방 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(104).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(105).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(104).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(105).Value = CType(Original_외기온도난방,String) + End If + If (Original_외기온도냉방7월 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(106).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(107).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(106).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(107).Value = CType(Original_외기온도냉방7월,String) + End If + If (Original_외기온도냉방9월 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(108).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(109).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(108).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(109).Value = CType(Original_외기온도냉방9월,String) + End If + If (Original_차감계수 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(110).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(111).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(110).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(111).Value = CType(Original_차감계수,String) + End If + If (Original_오염계수 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(112).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(113).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(112).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(113).Value = CType(Original_오염계수,String) + End If + If (Original_부분운전계수 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(114).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(115).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(114).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(115).Value = CType(Original_부분운전계수,String) + End If + If (Original_day01 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(116).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(117).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(116).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(117).Value = CType(Original_day01,String) + End If + If (Original_day02 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(118).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(119).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(118).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(119).Value = CType(Original_day02,String) + End If + If (Original_day03 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(120).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(121).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(120).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(121).Value = CType(Original_day03,String) + End If + If (Original_day04 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(122).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(123).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(122).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(123).Value = CType(Original_day04,String) + End If + If (Original_day05 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(124).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(125).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(124).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(125).Value = CType(Original_day05,String) + End If + If (Original_day06 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(126).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(127).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(126).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(127).Value = CType(Original_day06,String) + End If + If (Original_day07 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(128).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(129).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(128).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(129).Value = CType(Original_day07,String) + End If + If (Original_day08 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(130).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(131).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(130).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(131).Value = CType(Original_day08,String) + End If + If (Original_day09 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(132).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(133).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(132).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(133).Value = CType(Original_day09,String) + End If + If (Original_day10 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(134).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(135).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(134).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(135).Value = CType(Original_day10,String) + End If + If (Original_day11 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(136).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(137).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(136).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(137).Value = CType(Original_day11,String) + End If + If (Original_day12 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(138).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(139).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(138).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(139).Value = CType(Original_day12,String) + End If + Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.UpdateCommand.Connection.State + If ((Me.Adapter.UpdateCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + Me.Adapter.UpdateCommand.Connection.Open + End If + Try + Dim returnValue As Integer = Me.Adapter.UpdateCommand.ExecuteNonQuery + Return returnValue + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + Me.Adapter.UpdateCommand.Connection.Close + End If + End Try + End Function + + _ + Public Overloads Overridable Function Update( _ + ByVal 설명 As String, _ + ByVal 일일급탕요구량 As String, _ + ByVal 사용시작시간 As String, _ + ByVal 사용종료시간 As String, _ + ByVal 일일사용시간 As String, _ + ByVal 운전시작시간 As String, _ + ByVal 운전종료시간 As String, _ + ByVal 운전시간난방 As String, _ + ByVal 연간사용일수 As String, _ + ByVal 연간사용시간주간 As String, _ + ByVal 연간사용시간야간 As String, _ + ByVal 일일운전시간 As String, _ + ByVal 연간운전일수 As String, _ + ByVal 요구조도 As String, _ + ByVal 작업면높이 As String, _ + ByVal 감소계수 As String, _ + ByVal 부재율 As String, _ + ByVal 실지수 As String, _ + ByVal 최소도입외기량 As String, _ + ByVal 축소운전시최소도입외기량 As String, _ + ByVal 사람 As String, _ + ByVal 작업보조기기 As String, _ + ByVal 난방설정온도 As String, _ + ByVal 냉방설정온도 As String, _ + ByVal 야간최저허용온도 As String, _ + ByVal 주말최저허용온도 As String, _ + ByVal 최소설정온도난방 As String, _ + ByVal 최소설정온도냉방 As String, _ + ByVal 외기온도난방 As String, _ + ByVal 외기온도냉방7월 As String, _ + ByVal 외기온도냉방9월 As String, _ + ByVal 차감계수 As String, _ + ByVal 오염계수 As String, _ + ByVal 부분운전계수 As String, _ + ByVal day01 As String, _ + ByVal day02 As String, _ + ByVal day03 As String, _ + ByVal day04 As String, _ + ByVal day05 As String, _ + ByVal day06 As String, _ + ByVal day07 As String, _ + ByVal day08 As String, _ + ByVal day09 As String, _ + ByVal day10 As String, _ + ByVal day11 As String, _ + ByVal day12 As String, _ + ByVal Original_code As String, _ + ByVal Original_설명 As String, _ + ByVal Original_일일급탕요구량 As String, _ + ByVal Original_사용시작시간 As String, _ + ByVal Original_사용종료시간 As String, _ + ByVal Original_일일사용시간 As String, _ + ByVal Original_운전시작시간 As String, _ + ByVal Original_운전종료시간 As String, _ + ByVal Original_운전시간난방 As String, _ + ByVal Original_연간사용일수 As String, _ + ByVal Original_연간사용시간주간 As String, _ + ByVal Original_연간사용시간야간 As String, _ + ByVal Original_일일운전시간 As String, _ + ByVal Original_연간운전일수 As String, _ + ByVal Original_요구조도 As String, _ + ByVal Original_작업면높이 As String, _ + ByVal Original_감소계수 As String, _ + ByVal Original_부재율 As String, _ + ByVal Original_실지수 As String, _ + ByVal Original_최소도입외기량 As String, _ + ByVal Original_축소운전시최소도입외기량 As String, _ + ByVal Original_사람 As String, _ + ByVal Original_작업보조기기 As String, _ + ByVal Original_난방설정온도 As String, _ + ByVal Original_냉방설정온도 As String, _ + ByVal Original_야간최저허용온도 As String, _ + ByVal Original_주말최저허용온도 As String, _ + ByVal Original_최소설정온도난방 As String, _ + ByVal Original_최소설정온도냉방 As String, _ + ByVal Original_외기온도난방 As String, _ + ByVal Original_외기온도냉방7월 As String, _ + ByVal Original_외기온도냉방9월 As String, _ + ByVal Original_차감계수 As String, _ + ByVal Original_오염계수 As String, _ + ByVal Original_부분운전계수 As String, _ + ByVal Original_day01 As String, _ + ByVal Original_day02 As String, _ + ByVal Original_day03 As String, _ + ByVal Original_day04 As String, _ + ByVal Original_day05 As String, _ + ByVal Original_day06 As String, _ + ByVal Original_day07 As String, _ + ByVal Original_day08 As String, _ + ByVal Original_day09 As String, _ + ByVal Original_day10 As String, _ + ByVal Original_day11 As String, _ + ByVal Original_day12 As String) As Integer + Return Me.Update(Original_code, 설명, 일일급탕요구량, 사용시작시간, 사용종료시간, 일일사용시간, 운전시작시간, 운전종료시간, 운전시간난방, 연간사용일수, 연간사용시간주간, 연간사용시간야간, 일일운전시간, 연간운전일수, 요구조도, 작업면높이, 감소계수, 부재율, 실지수, 최소도입외기량, 축소운전시최소도입외기량, 사람, 작업보조기기, 난방설정온도, 냉방설정온도, 야간최저허용온도, 주말최저허용온도, 최소설정온도난방, 최소설정온도냉방, 외기온도난방, 외기온도냉방7월, 외기온도냉방9월, 차감계수, 오염계수, 부분운전계수, day01, day02, day03, day04, day05, day06, day07, day08, day09, day10, day11, day12, Original_code, Original_설명, Original_일일급탕요구량, Original_사용시작시간, Original_사용종료시간, Original_일일사용시간, Original_운전시작시간, Original_운전종료시간, Original_운전시간난방, Original_연간사용일수, Original_연간사용시간주간, Original_연간사용시간야간, Original_일일운전시간, Original_연간운전일수, Original_요구조도, Original_작업면높이, Original_감소계수, Original_부재율, Original_실지수, Original_최소도입외기량, Original_축소운전시최소도입외기량, Original_사람, Original_작업보조기기, Original_난방설정온도, Original_냉방설정온도, Original_야간최저허용온도, Original_주말최저허용온도, Original_최소설정온도난방, Original_최소설정온도냉방, Original_외기온도난방, Original_외기온도냉방7월, Original_외기온도냉방9월, Original_차감계수, Original_오염계수, Original_부분운전계수, Original_day01, Original_day02, Original_day03, Original_day04, Original_day05, Original_day06, Original_day07, Original_day08, Original_day09, Original_day10, Original_day11, Original_day12) + End Function + End Class + + ''' + '''Represents the connection and commands used to retrieve and save data. + ''' + _ + Partial Public Class tbl_commonTableAdapter + Inherits Global.System.ComponentModel.Component + + Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter + + Private _connection As Global.System.Data.SqlClient.SqlConnection + + Private _transaction As Global.System.Data.SqlClient.SqlTransaction + + Private _commandCollection() As Global.System.Data.SqlClient.SqlCommand + + Private _clearBeforeFill As Boolean + + _ + Public Sub New() + MyBase.New + Me.ClearBeforeFill = true + End Sub + + _ + Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter + Get + If (Me._adapter Is Nothing) Then + Me.InitAdapter + End If + Return Me._adapter + End Get + End Property + + _ + Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection + Get + If (Me._connection Is Nothing) Then + Me.InitConnection + End If + Return Me._connection + End Get + Set + Me._connection = value + If (Not (Me.Adapter.InsertCommand) Is Nothing) Then + Me.Adapter.InsertCommand.Connection = value + End If + If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then + Me.Adapter.DeleteCommand.Connection = value + End If + If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then + Me.Adapter.UpdateCommand.Connection = value + End If + Dim i As Integer = 0 + Do While (i < Me.CommandCollection.Length) + If (Not (Me.CommandCollection(i)) Is Nothing) Then + CType(Me.CommandCollection(i),Global.System.Data.SqlClient.SqlCommand).Connection = value + End If + i = (i + 1) + Loop + End Set + End Property + + _ + Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction + Get + Return Me._transaction + End Get + Set + Me._transaction = value + Dim i As Integer = 0 + Do While (i < Me.CommandCollection.Length) + Me.CommandCollection(i).Transaction = Me._transaction + i = (i + 1) + Loop + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then + Me.Adapter.DeleteCommand.Transaction = Me._transaction + End If + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then + Me.Adapter.InsertCommand.Transaction = Me._transaction + End If + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then + Me.Adapter.UpdateCommand.Transaction = Me._transaction + End If + End Set + End Property + + _ + Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand() + Get + If (Me._commandCollection Is Nothing) Then + Me.InitCommandCollection + End If + Return Me._commandCollection + End Get + End Property + + _ + Public Property ClearBeforeFill() As Boolean + Get + Return Me._clearBeforeFill + End Get + Set + Me._clearBeforeFill = value + End Set + End Property + + _ + Private Sub InitAdapter() + Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter() + Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping() + tableMapping.SourceTable = "Table" + tableMapping.DataSetTable = "tbl_common" + tableMapping.ColumnMappings.Add("gubun", "gubun") + tableMapping.ColumnMappings.Add("code", "code") + tableMapping.ColumnMappings.Add("name", "name") + tableMapping.ColumnMappings.Add("valn1", "valn1") + Me._adapter.TableMappings.Add(tableMapping) + Me._adapter.DeleteCommand = New Global.System.Data.SqlClient.SqlCommand() + Me._adapter.DeleteCommand.Connection = Me.Connection + Me._adapter.DeleteCommand.CommandText = "DELETE FROM [tbl_common2] WHERE (([gubun] = @Original_gubun) AND ([code] = @Origi"& _ + "nal_code) AND ((@IsNull_name = 1 AND [name] IS NULL) OR ([name] = @Original_name"& _ + ")) AND ((@IsNull_valn1 = 1 AND [valn1] IS NULL) OR ([valn1] = @Original_valn1)))"& _ + "" + Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_gubun", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "gubun", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_code", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "code", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_name", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "name", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_name", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "name", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_valn1", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "valn1", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_valn1", Global.System.Data.SqlDbType.Float, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "valn1", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.InsertCommand = New Global.System.Data.SqlClient.SqlCommand() + Me._adapter.InsertCommand.Connection = Me.Connection + Me._adapter.InsertCommand.CommandText = "INSERT INTO [tbl_common2] ([gubun], [code], [name], [valn1]) VALUES (@gubun, @cod"& _ + "e, @name, @valn1);"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT gubun, code, name, valn1 FROM tbl_common2 WHERE (code"& _ + " = @code) AND (gubun = @gubun)" + Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@gubun", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "gubun", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@code", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "code", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@name", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "name", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@valn1", Global.System.Data.SqlDbType.Float, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "valn1", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand = New Global.System.Data.SqlClient.SqlCommand() + Me._adapter.UpdateCommand.Connection = Me.Connection + Me._adapter.UpdateCommand.CommandText = "UPDATE [tbl_common2] SET [gubun] = @gubun, [code] = @code, [name] = @name, [valn1"& _ + "] = @valn1 WHERE (([gubun] = @Original_gubun) AND ([code] = @Original_code) AND "& _ + "((@IsNull_name = 1 AND [name] IS NULL) OR ([name] = @Original_name)) AND ((@IsNu"& _ + "ll_valn1 = 1 AND [valn1] IS NULL) OR ([valn1] = @Original_valn1)));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT gubu"& _ + "n, code, name, valn1 FROM tbl_common2 WHERE (code = @code) AND (gubun = @gubun)" + Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@gubun", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "gubun", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@code", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "code", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@name", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "name", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@valn1", Global.System.Data.SqlDbType.Float, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "valn1", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_gubun", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "gubun", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_code", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "code", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_name", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "name", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_name", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "name", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_valn1", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "valn1", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_valn1", Global.System.Data.SqlDbType.Float, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "valn1", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + End Sub + + _ + Private Sub InitConnection() + Me._connection = New Global.System.Data.SqlClient.SqlConnection() + Me._connection.ConnectionString = Global.Eco2Ar.My.MySettings.Default.cs + End Sub + + _ + Private Sub InitCommandCollection() + Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {} + Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() + Me._commandCollection(0).Connection = Me.Connection + Me._commandCollection(0).CommandText = "SELECT gubun, code, name, valn1"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM tbl_common2" + Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text + End Sub + + _ + Public Overloads Overridable Function Fill(ByVal dataTable As DS.tbl_commonDataTable) As Integer + Me.Adapter.SelectCommand = Me.CommandCollection(0) + If (Me.ClearBeforeFill = true) Then + dataTable.Clear + End If + Dim returnValue As Integer = Me.Adapter.Fill(dataTable) + Return returnValue + End Function + + _ + Public Overloads Overridable Function GetData() As DS.tbl_commonDataTable + Me.Adapter.SelectCommand = Me.CommandCollection(0) + Dim dataTable As DS.tbl_commonDataTable = New DS.tbl_commonDataTable(true) + Me.Adapter.Fill(dataTable) + Return dataTable + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataTable As DS.tbl_commonDataTable) As Integer + Return Me.Adapter.Update(dataTable) + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataSet As DS) As Integer + Return Me.Adapter.Update(dataSet, "tbl_common") + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer + Return Me.Adapter.Update(New Global.System.Data.DataRow() {dataRow}) + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer + Return Me.Adapter.Update(dataRows) + End Function + + _ + Public Overloads Overridable Function Delete(ByVal Original_gubun As String, ByVal Original_code As String, ByVal Original_name As String, ByVal Original_valn1 As Global.System.Nullable(Of Double)) As Integer + If (Original_gubun Is Nothing) Then + Throw New Global.System.ArgumentNullException("Original_gubun") + Else + Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_gubun,String) + End If + If (Original_code Is Nothing) Then + Throw New Global.System.ArgumentNullException("Original_code") + Else + Me.Adapter.DeleteCommand.Parameters(1).Value = CType(Original_code,String) + End If + If (Original_name Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(2).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(3).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(2).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(3).Value = CType(Original_name,String) + End If + If (Original_valn1.HasValue = true) Then + Me.Adapter.DeleteCommand.Parameters(4).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(5).Value = CType(Original_valn1.Value,Double) + Else + Me.Adapter.DeleteCommand.Parameters(4).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(5).Value = Global.System.DBNull.Value + End If + Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.DeleteCommand.Connection.State + If ((Me.Adapter.DeleteCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + Me.Adapter.DeleteCommand.Connection.Open + End If + Try + Dim returnValue As Integer = Me.Adapter.DeleteCommand.ExecuteNonQuery + Return returnValue + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + Me.Adapter.DeleteCommand.Connection.Close + End If + End Try + End Function + + _ + Public Overloads Overridable Function Insert(ByVal gubun As String, ByVal code As String, ByVal name As String, ByVal valn1 As Global.System.Nullable(Of Double)) As Integer + If (gubun Is Nothing) Then + Throw New Global.System.ArgumentNullException("gubun") + Else + Me.Adapter.InsertCommand.Parameters(0).Value = CType(gubun,String) + End If + If (code Is Nothing) Then + Throw New Global.System.ArgumentNullException("code") + Else + Me.Adapter.InsertCommand.Parameters(1).Value = CType(code,String) + End If + If (name Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(2).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(2).Value = CType(name,String) + End If + If (valn1.HasValue = true) Then + Me.Adapter.InsertCommand.Parameters(3).Value = CType(valn1.Value,Double) + Else + Me.Adapter.InsertCommand.Parameters(3).Value = Global.System.DBNull.Value + End If + Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.InsertCommand.Connection.State + If ((Me.Adapter.InsertCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + Me.Adapter.InsertCommand.Connection.Open + End If + Try + Dim returnValue As Integer = Me.Adapter.InsertCommand.ExecuteNonQuery + Return returnValue + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + Me.Adapter.InsertCommand.Connection.Close + End If + End Try + End Function + + _ + Public Overloads Overridable Function Update(ByVal gubun As String, ByVal code As String, ByVal name As String, ByVal valn1 As Global.System.Nullable(Of Double), ByVal Original_gubun As String, ByVal Original_code As String, ByVal Original_name As String, ByVal Original_valn1 As Global.System.Nullable(Of Double)) As Integer + If (gubun Is Nothing) Then + Throw New Global.System.ArgumentNullException("gubun") + Else + Me.Adapter.UpdateCommand.Parameters(0).Value = CType(gubun,String) + End If + If (code Is Nothing) Then + Throw New Global.System.ArgumentNullException("code") + Else + Me.Adapter.UpdateCommand.Parameters(1).Value = CType(code,String) + End If + If (name Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(2).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(2).Value = CType(name,String) + End If + If (valn1.HasValue = true) Then + Me.Adapter.UpdateCommand.Parameters(3).Value = CType(valn1.Value,Double) + Else + Me.Adapter.UpdateCommand.Parameters(3).Value = Global.System.DBNull.Value + End If + If (Original_gubun Is Nothing) Then + Throw New Global.System.ArgumentNullException("Original_gubun") + Else + Me.Adapter.UpdateCommand.Parameters(4).Value = CType(Original_gubun,String) + End If + If (Original_code Is Nothing) Then + Throw New Global.System.ArgumentNullException("Original_code") + Else + Me.Adapter.UpdateCommand.Parameters(5).Value = CType(Original_code,String) + End If + If (Original_name Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(6).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(7).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(6).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(7).Value = CType(Original_name,String) + End If + If (Original_valn1.HasValue = true) Then + Me.Adapter.UpdateCommand.Parameters(8).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(9).Value = CType(Original_valn1.Value,Double) + Else + Me.Adapter.UpdateCommand.Parameters(8).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(9).Value = Global.System.DBNull.Value + End If + Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.UpdateCommand.Connection.State + If ((Me.Adapter.UpdateCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + Me.Adapter.UpdateCommand.Connection.Open + End If + Try + Dim returnValue As Integer = Me.Adapter.UpdateCommand.ExecuteNonQuery + Return returnValue + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + Me.Adapter.UpdateCommand.Connection.Close + End If + End Try + End Function + + _ + Public Overloads Overridable Function Update(ByVal name As String, ByVal valn1 As Global.System.Nullable(Of Double), ByVal Original_gubun As String, ByVal Original_code As String, ByVal Original_name As String, ByVal Original_valn1 As Global.System.Nullable(Of Double)) As Integer + Return Me.Update(Original_gubun, Original_code, name, valn1, Original_gubun, Original_code, Original_name, Original_valn1) + End Function + End Class + + ''' + '''TableAdapterManager is used to coordinate TableAdapters in the dataset to enable Hierarchical Update scenarios + ''' + _ + Partial Public Class TableAdapterManager + Inherits Global.System.ComponentModel.Component + + Private _updateOrder As UpdateOrderOption + + Private _weather_chaTableAdapter As weather_chaTableAdapter + + Private _weather_tempTableAdapter As weather_tempTableAdapter + + Private _tbl_weatherTableAdapter As tbl_weatherTableAdapter + + Private _weather_ilsaTableAdapter As weather_ilsaTableAdapter + + Private _weather_supdoTableAdapter As weather_supdoTableAdapter + + Private _tbl_profileTableAdapter As tbl_profileTableAdapter + + Private _tbl_commonTableAdapter As tbl_commonTableAdapter + + Private _backupDataSetBeforeUpdate As Boolean + + Private _connection As Global.System.Data.IDbConnection + + _ + Public Property UpdateOrder() As UpdateOrderOption + Get + Return Me._updateOrder + End Get + Set + Me._updateOrder = value + End Set + End Property + + _ + Public Property weather_chaTableAdapter() As weather_chaTableAdapter + Get + Return Me._weather_chaTableAdapter + End Get + Set + Me._weather_chaTableAdapter = value + End Set + End Property + + _ + Public Property weather_tempTableAdapter() As weather_tempTableAdapter + Get + Return Me._weather_tempTableAdapter + End Get + Set + Me._weather_tempTableAdapter = value + End Set + End Property + + _ + Public Property tbl_weatherTableAdapter() As tbl_weatherTableAdapter + Get + Return Me._tbl_weatherTableAdapter + End Get + Set + Me._tbl_weatherTableAdapter = value + End Set + End Property + + _ + Public Property weather_ilsaTableAdapter() As weather_ilsaTableAdapter + Get + Return Me._weather_ilsaTableAdapter + End Get + Set + Me._weather_ilsaTableAdapter = value + End Set + End Property + + _ + Public Property weather_supdoTableAdapter() As weather_supdoTableAdapter + Get + Return Me._weather_supdoTableAdapter + End Get + Set + Me._weather_supdoTableAdapter = value + End Set + End Property + + _ + Public Property tbl_profileTableAdapter() As tbl_profileTableAdapter + Get + Return Me._tbl_profileTableAdapter + End Get + Set + Me._tbl_profileTableAdapter = value + End Set + End Property + + _ + Public Property tbl_commonTableAdapter() As tbl_commonTableAdapter + Get + Return Me._tbl_commonTableAdapter + End Get + Set + Me._tbl_commonTableAdapter = value + End Set + End Property + + _ + Public Property BackupDataSetBeforeUpdate() As Boolean + Get + Return Me._backupDataSetBeforeUpdate + End Get + Set + Me._backupDataSetBeforeUpdate = value + End Set + End Property + + _ + Public Property Connection() As Global.System.Data.IDbConnection + Get + If (Not (Me._connection) Is Nothing) Then + Return Me._connection + End If + If ((Not (Me._weather_chaTableAdapter) Is Nothing) _ + AndAlso (Not (Me._weather_chaTableAdapter.Connection) Is Nothing)) Then + Return Me._weather_chaTableAdapter.Connection + End If + If ((Not (Me._weather_tempTableAdapter) Is Nothing) _ + AndAlso (Not (Me._weather_tempTableAdapter.Connection) Is Nothing)) Then + Return Me._weather_tempTableAdapter.Connection + End If + If ((Not (Me._tbl_weatherTableAdapter) Is Nothing) _ + AndAlso (Not (Me._tbl_weatherTableAdapter.Connection) Is Nothing)) Then + Return Me._tbl_weatherTableAdapter.Connection + End If + If ((Not (Me._weather_ilsaTableAdapter) Is Nothing) _ + AndAlso (Not (Me._weather_ilsaTableAdapter.Connection) Is Nothing)) Then + Return Me._weather_ilsaTableAdapter.Connection + End If + If ((Not (Me._weather_supdoTableAdapter) Is Nothing) _ + AndAlso (Not (Me._weather_supdoTableAdapter.Connection) Is Nothing)) Then + Return Me._weather_supdoTableAdapter.Connection + End If + If ((Not (Me._tbl_profileTableAdapter) Is Nothing) _ + AndAlso (Not (Me._tbl_profileTableAdapter.Connection) Is Nothing)) Then + Return Me._tbl_profileTableAdapter.Connection + End If + If ((Not (Me._tbl_commonTableAdapter) Is Nothing) _ + AndAlso (Not (Me._tbl_commonTableAdapter.Connection) Is Nothing)) Then + Return Me._tbl_commonTableAdapter.Connection + End If + Return Nothing + End Get + Set + Me._connection = value + End Set + End Property + + _ + Public ReadOnly Property TableAdapterInstanceCount() As Integer + Get + Dim count As Integer = 0 + If (Not (Me._weather_chaTableAdapter) Is Nothing) Then + count = (count + 1) + End If + If (Not (Me._weather_tempTableAdapter) Is Nothing) Then + count = (count + 1) + End If + If (Not (Me._tbl_weatherTableAdapter) Is Nothing) Then + count = (count + 1) + End If + If (Not (Me._weather_ilsaTableAdapter) Is Nothing) Then + count = (count + 1) + End If + If (Not (Me._weather_supdoTableAdapter) Is Nothing) Then + count = (count + 1) + End If + If (Not (Me._tbl_profileTableAdapter) Is Nothing) Then + count = (count + 1) + End If + If (Not (Me._tbl_commonTableAdapter) Is Nothing) Then + count = (count + 1) + End If + Return count + End Get + End Property + + ''' + '''Update rows in top-down order. + ''' + _ + 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._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._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) + If ((Not (updatedRows) Is Nothing) _ + AndAlso (0 < updatedRows.Length)) Then + result = (result + Me._weather_supdoTableAdapter.Update(updatedRows)) + allChangedRows.AddRange(updatedRows) + End If + End If + If (Not (Me._tbl_commonTableAdapter) Is Nothing) Then + Dim updatedRows() As Global.System.Data.DataRow = dataSet.tbl_common.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_commonTableAdapter.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) + If ((Not (updatedRows) Is Nothing) _ + AndAlso (0 < updatedRows.Length)) Then + result = (result + Me._tbl_profileTableAdapter.Update(updatedRows)) + 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 + If (Not (Me._weather_chaTableAdapter) Is Nothing) Then + Dim updatedRows() As Global.System.Data.DataRow = dataSet.weather_cha.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_chaTableAdapter.Update(updatedRows)) + allChangedRows.AddRange(updatedRows) + End If + End If + Return result + End Function + + ''' + '''Insert rows in top-down order. + ''' + _ + 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._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._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) _ + AndAlso (0 < addedRows.Length)) Then + result = (result + Me._weather_supdoTableAdapter.Update(addedRows)) + allAddedRows.AddRange(addedRows) + End If + End If + If (Not (Me._tbl_commonTableAdapter) Is Nothing) Then + Dim addedRows() As Global.System.Data.DataRow = dataSet.tbl_common.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) + If ((Not (addedRows) Is Nothing) _ + AndAlso (0 < addedRows.Length)) Then + result = (result + Me._tbl_commonTableAdapter.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) _ + AndAlso (0 < addedRows.Length)) Then + result = (result + Me._tbl_profileTableAdapter.Update(addedRows)) + 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 + If (Not (Me._weather_chaTableAdapter) Is Nothing) Then + Dim addedRows() As Global.System.Data.DataRow = dataSet.weather_cha.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) + If ((Not (addedRows) Is Nothing) _ + AndAlso (0 < addedRows.Length)) Then + result = (result + Me._weather_chaTableAdapter.Update(addedRows)) + allAddedRows.AddRange(addedRows) + End If + End If + Return result + End Function + + ''' + '''Delete rows in bottom-up order. + ''' + _ + 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) _ + AndAlso (0 < deletedRows.Length)) Then + result = (result + Me._weather_tempTableAdapter.Update(deletedRows)) + 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._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_commonTableAdapter.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) _ + AndAlso (0 < deletedRows.Length)) Then + result = (result + Me._weather_supdoTableAdapter.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 + If (Not (Me._tbl_weatherTableAdapter) Is Nothing) Then + Dim deletedRows() As Global.System.Data.DataRow = dataSet.tbl_weather.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) + If ((Not (deletedRows) Is Nothing) _ + AndAlso (0 < deletedRows.Length)) Then + result = (result + Me._tbl_weatherTableAdapter.Update(deletedRows)) + allChangedRows.AddRange(deletedRows) + End If + End If + Return result + End Function + + ''' + '''Remove inserted rows that become updated rows after calling TableAdapter.Update(inserted rows) first + ''' + _ + Private Function GetRealUpdatedRows(ByVal updatedRows() As Global.System.Data.DataRow, ByVal allAddedRows As Global.System.Collections.Generic.List(Of Global.System.Data.DataRow)) As Global.System.Data.DataRow() + If ((updatedRows Is Nothing) _ + OrElse (updatedRows.Length < 1)) Then + Return updatedRows + End If + If ((allAddedRows Is Nothing) _ + OrElse (allAddedRows.Count < 1)) Then + Return updatedRows + End If + Dim realUpdatedRows As Global.System.Collections.Generic.List(Of Global.System.Data.DataRow) = New Global.System.Collections.Generic.List(Of Global.System.Data.DataRow)() + Dim i As Integer = 0 + Do While (i < updatedRows.Length) + Dim row As Global.System.Data.DataRow = updatedRows(i) + If (allAddedRows.Contains(row) = false) Then + realUpdatedRows.Add(row) + End If + i = (i + 1) + Loop + Return realUpdatedRows.ToArray + End Function + + ''' + '''Update all changes to the dataset. + ''' + _ + Public Overridable Function UpdateAll(ByVal dataSet As DS) As Integer + If (dataSet Is Nothing) Then + Throw New Global.System.ArgumentNullException("dataSet") + End If + If (dataSet.HasChanges = false) Then + Return 0 + End If + If ((Not (Me._weather_chaTableAdapter) Is Nothing) _ + AndAlso (Me.MatchTableAdapterConnection(Me._weather_chaTableAdapter.Connection) = false)) Then + Throw New Global.System.ArgumentException("TableAdapterManager에서 관리하는 모든 TableAdapter에는 동일한 연결 문자열을 사용해야 합니다.") + End If + If ((Not (Me._weather_tempTableAdapter) Is Nothing) _ + AndAlso (Me.MatchTableAdapterConnection(Me._weather_tempTableAdapter.Connection) = false)) Then + Throw New Global.System.ArgumentException("TableAdapterManager에서 관리하는 모든 TableAdapter에는 동일한 연결 문자열을 사용해야 합니다.") + End If + If ((Not (Me._tbl_weatherTableAdapter) Is Nothing) _ + AndAlso (Me.MatchTableAdapterConnection(Me._tbl_weatherTableAdapter.Connection) = false)) Then + Throw New Global.System.ArgumentException("TableAdapterManager에서 관리하는 모든 TableAdapter에는 동일한 연결 문자열을 사용해야 합니다.") + End If + If ((Not (Me._weather_ilsaTableAdapter) Is Nothing) _ + AndAlso (Me.MatchTableAdapterConnection(Me._weather_ilsaTableAdapter.Connection) = false)) Then + Throw New Global.System.ArgumentException("TableAdapterManager에서 관리하는 모든 TableAdapter에는 동일한 연결 문자열을 사용해야 합니다.") + End If + If ((Not (Me._weather_supdoTableAdapter) Is Nothing) _ + AndAlso (Me.MatchTableAdapterConnection(Me._weather_supdoTableAdapter.Connection) = false)) Then + Throw New Global.System.ArgumentException("TableAdapterManager에서 관리하는 모든 TableAdapter에는 동일한 연결 문자열을 사용해야 합니다.") + End If + If ((Not (Me._tbl_profileTableAdapter) Is Nothing) _ + AndAlso (Me.MatchTableAdapterConnection(Me._tbl_profileTableAdapter.Connection) = false)) Then + Throw New Global.System.ArgumentException("TableAdapterManager에서 관리하는 모든 TableAdapter에는 동일한 연결 문자열을 사용해야 합니다.") + End If + If ((Not (Me._tbl_commonTableAdapter) Is Nothing) _ + AndAlso (Me.MatchTableAdapterConnection(Me._tbl_commonTableAdapter.Connection) = false)) Then + Throw New Global.System.ArgumentException("TableAdapterManager에서 관리하는 모든 TableAdapter에는 동일한 연결 문자열을 사용해야 합니다.") + End If + Dim workConnection As Global.System.Data.IDbConnection = Me.Connection + If (workConnection Is Nothing) Then + Throw New Global.System.ApplicationException("TableAdapterManager에 연결 정보가 없습니다. 각 TableAdapterManager TableAdapter 속성을 올바른 Tabl"& _ + "eAdapter 인스턴스로 설정하십시오.") + End If + Dim workConnOpened As Boolean = false + If ((workConnection.State And Global.System.Data.ConnectionState.Broken) _ + = Global.System.Data.ConnectionState.Broken) Then + workConnection.Close + End If + If (workConnection.State = Global.System.Data.ConnectionState.Closed) Then + workConnection.Open + workConnOpened = true + End If + Dim workTransaction As Global.System.Data.IDbTransaction = workConnection.BeginTransaction + If (workTransaction Is Nothing) Then + Throw New Global.System.ApplicationException("트랜잭션을 시작할 수 없습니다. 현재 데이터 연결에서 트랜잭션이 지원되지 않거나 현재 상태에서 트랜잭션을 시작할 수 없습니다.") + End If + Dim allChangedRows As Global.System.Collections.Generic.List(Of Global.System.Data.DataRow) = New Global.System.Collections.Generic.List(Of Global.System.Data.DataRow)() + Dim allAddedRows As Global.System.Collections.Generic.List(Of Global.System.Data.DataRow) = New Global.System.Collections.Generic.List(Of Global.System.Data.DataRow)() + Dim adaptersWithAcceptChangesDuringUpdate As Global.System.Collections.Generic.List(Of Global.System.Data.Common.DataAdapter) = New Global.System.Collections.Generic.List(Of Global.System.Data.Common.DataAdapter)() + Dim revertConnections As Global.System.Collections.Generic.Dictionary(Of Object, Global.System.Data.IDbConnection) = New Global.System.Collections.Generic.Dictionary(Of Object, Global.System.Data.IDbConnection)() + Dim result As Integer = 0 + Dim backupDataSet As Global.System.Data.DataSet = Nothing + If Me.BackupDataSetBeforeUpdate Then + backupDataSet = New Global.System.Data.DataSet() + backupDataSet.Merge(dataSet) + End If + Try + '---- Prepare for update ----------- + ' + If (Not (Me._weather_chaTableAdapter) Is Nothing) Then + revertConnections.Add(Me._weather_chaTableAdapter, Me._weather_chaTableAdapter.Connection) + Me._weather_chaTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection) + Me._weather_chaTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction) + If Me._weather_chaTableAdapter.Adapter.AcceptChangesDuringUpdate Then + Me._weather_chaTableAdapter.Adapter.AcceptChangesDuringUpdate = false + adaptersWithAcceptChangesDuringUpdate.Add(Me._weather_chaTableAdapter.Adapter) + End If + End If + If (Not (Me._weather_tempTableAdapter) Is Nothing) Then + revertConnections.Add(Me._weather_tempTableAdapter, Me._weather_tempTableAdapter.Connection) + Me._weather_tempTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection) + Me._weather_tempTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction) + If Me._weather_tempTableAdapter.Adapter.AcceptChangesDuringUpdate Then + Me._weather_tempTableAdapter.Adapter.AcceptChangesDuringUpdate = false + adaptersWithAcceptChangesDuringUpdate.Add(Me._weather_tempTableAdapter.Adapter) + End If + End If + If (Not (Me._tbl_weatherTableAdapter) Is Nothing) Then + revertConnections.Add(Me._tbl_weatherTableAdapter, Me._tbl_weatherTableAdapter.Connection) + Me._tbl_weatherTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection) + Me._tbl_weatherTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction) + If Me._tbl_weatherTableAdapter.Adapter.AcceptChangesDuringUpdate Then + Me._tbl_weatherTableAdapter.Adapter.AcceptChangesDuringUpdate = false + adaptersWithAcceptChangesDuringUpdate.Add(Me._tbl_weatherTableAdapter.Adapter) + End If + End If + If (Not (Me._weather_ilsaTableAdapter) Is Nothing) Then + revertConnections.Add(Me._weather_ilsaTableAdapter, Me._weather_ilsaTableAdapter.Connection) + Me._weather_ilsaTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection) + Me._weather_ilsaTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction) + If Me._weather_ilsaTableAdapter.Adapter.AcceptChangesDuringUpdate Then + Me._weather_ilsaTableAdapter.Adapter.AcceptChangesDuringUpdate = false + adaptersWithAcceptChangesDuringUpdate.Add(Me._weather_ilsaTableAdapter.Adapter) + End If + End If + If (Not (Me._weather_supdoTableAdapter) Is Nothing) Then + revertConnections.Add(Me._weather_supdoTableAdapter, Me._weather_supdoTableAdapter.Connection) + Me._weather_supdoTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection) + Me._weather_supdoTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction) + If Me._weather_supdoTableAdapter.Adapter.AcceptChangesDuringUpdate Then + Me._weather_supdoTableAdapter.Adapter.AcceptChangesDuringUpdate = false + adaptersWithAcceptChangesDuringUpdate.Add(Me._weather_supdoTableAdapter.Adapter) + End If + End If + If (Not (Me._tbl_profileTableAdapter) Is Nothing) Then + revertConnections.Add(Me._tbl_profileTableAdapter, Me._tbl_profileTableAdapter.Connection) + Me._tbl_profileTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection) + Me._tbl_profileTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction) + If Me._tbl_profileTableAdapter.Adapter.AcceptChangesDuringUpdate Then + Me._tbl_profileTableAdapter.Adapter.AcceptChangesDuringUpdate = false + adaptersWithAcceptChangesDuringUpdate.Add(Me._tbl_profileTableAdapter.Adapter) + End If + End If + If (Not (Me._tbl_commonTableAdapter) Is Nothing) Then + revertConnections.Add(Me._tbl_commonTableAdapter, Me._tbl_commonTableAdapter.Connection) + Me._tbl_commonTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection) + Me._tbl_commonTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction) + If Me._tbl_commonTableAdapter.Adapter.AcceptChangesDuringUpdate Then + Me._tbl_commonTableAdapter.Adapter.AcceptChangesDuringUpdate = false + adaptersWithAcceptChangesDuringUpdate.Add(Me._tbl_commonTableAdapter.Adapter) + End If + End If + ' + '---- Perform updates ----------- + ' + If (Me.UpdateOrder = UpdateOrderOption.UpdateInsertDelete) Then + result = (result + Me.UpdateUpdatedRows(dataSet, allChangedRows, allAddedRows)) + result = (result + Me.UpdateInsertedRows(dataSet, allAddedRows)) + Else + result = (result + Me.UpdateInsertedRows(dataSet, allAddedRows)) + result = (result + Me.UpdateUpdatedRows(dataSet, allChangedRows, allAddedRows)) + End If + result = (result + Me.UpdateDeletedRows(dataSet, allChangedRows)) + ' + '---- Commit updates ----------- + ' + workTransaction.Commit + If (0 < allAddedRows.Count) Then + Dim rows((allAddedRows.Count) - 1) As Global.System.Data.DataRow + allAddedRows.CopyTo(rows) + Dim i As Integer = 0 + Do While (i < rows.Length) + Dim row As Global.System.Data.DataRow = rows(i) + row.AcceptChanges + i = (i + 1) + Loop + End If + If (0 < allChangedRows.Count) Then + Dim rows((allChangedRows.Count) - 1) As Global.System.Data.DataRow + allChangedRows.CopyTo(rows) + Dim i As Integer = 0 + Do While (i < rows.Length) + Dim row As Global.System.Data.DataRow = rows(i) + row.AcceptChanges + i = (i + 1) + Loop + End If + Catch ex As Global.System.Exception + workTransaction.Rollback + '---- Restore the dataset ----------- + If Me.BackupDataSetBeforeUpdate Then + Global.System.Diagnostics.Debug.Assert((Not (backupDataSet) Is Nothing)) + dataSet.Clear + dataSet.Merge(backupDataSet) + Else + If (0 < allAddedRows.Count) Then + Dim rows((allAddedRows.Count) - 1) As Global.System.Data.DataRow + allAddedRows.CopyTo(rows) + Dim i As Integer = 0 + Do While (i < rows.Length) + Dim row As Global.System.Data.DataRow = rows(i) + row.AcceptChanges + row.SetAdded + i = (i + 1) + Loop + End If + End If + Throw ex + Finally + If workConnOpened Then + workConnection.Close + End If + If (Not (Me._weather_chaTableAdapter) Is Nothing) Then + Me._weather_chaTableAdapter.Connection = CType(revertConnections(Me._weather_chaTableAdapter),Global.System.Data.SqlClient.SqlConnection) + Me._weather_chaTableAdapter.Transaction = Nothing + End If + If (Not (Me._weather_tempTableAdapter) Is Nothing) Then + Me._weather_tempTableAdapter.Connection = CType(revertConnections(Me._weather_tempTableAdapter),Global.System.Data.SqlClient.SqlConnection) + Me._weather_tempTableAdapter.Transaction = Nothing + End If + If (Not (Me._tbl_weatherTableAdapter) Is Nothing) Then + Me._tbl_weatherTableAdapter.Connection = CType(revertConnections(Me._tbl_weatherTableAdapter),Global.System.Data.SqlClient.SqlConnection) + Me._tbl_weatherTableAdapter.Transaction = Nothing + End If + If (Not (Me._weather_ilsaTableAdapter) Is Nothing) Then + Me._weather_ilsaTableAdapter.Connection = CType(revertConnections(Me._weather_ilsaTableAdapter),Global.System.Data.SqlClient.SqlConnection) + Me._weather_ilsaTableAdapter.Transaction = Nothing + End If + If (Not (Me._weather_supdoTableAdapter) Is Nothing) Then + Me._weather_supdoTableAdapter.Connection = CType(revertConnections(Me._weather_supdoTableAdapter),Global.System.Data.SqlClient.SqlConnection) + Me._weather_supdoTableAdapter.Transaction = Nothing + End If + If (Not (Me._tbl_profileTableAdapter) Is Nothing) Then + Me._tbl_profileTableAdapter.Connection = CType(revertConnections(Me._tbl_profileTableAdapter),Global.System.Data.SqlClient.SqlConnection) + Me._tbl_profileTableAdapter.Transaction = Nothing + End If + If (Not (Me._tbl_commonTableAdapter) Is Nothing) Then + Me._tbl_commonTableAdapter.Connection = CType(revertConnections(Me._tbl_commonTableAdapter),Global.System.Data.SqlClient.SqlConnection) + Me._tbl_commonTableAdapter.Transaction = Nothing + End If + If (0 < adaptersWithAcceptChangesDuringUpdate.Count) Then + Dim adapters((adaptersWithAcceptChangesDuringUpdate.Count) - 1) As Global.System.Data.Common.DataAdapter + adaptersWithAcceptChangesDuringUpdate.CopyTo(adapters) + Dim i As Integer = 0 + Do While (i < adapters.Length) + Dim adapter As Global.System.Data.Common.DataAdapter = adapters(i) + adapter.AcceptChangesDuringUpdate = true + i = (i + 1) + Loop + End If + End Try + Return result + End Function + + _ + Protected Overridable Sub SortSelfReferenceRows(ByVal rows() As Global.System.Data.DataRow, ByVal relation As Global.System.Data.DataRelation, ByVal childFirst As Boolean) + Global.System.Array.Sort(Of Global.System.Data.DataRow)(rows, New SelfReferenceComparer(relation, childFirst)) + End Sub + + _ + Protected Overridable Function MatchTableAdapterConnection(ByVal inputConnection As Global.System.Data.IDbConnection) As Boolean + If (Not (Me._connection) Is Nothing) Then + Return true + End If + If ((Me.Connection Is Nothing) _ + OrElse (inputConnection Is Nothing)) Then + Return true + End If + If String.Equals(Me.Connection.ConnectionString, inputConnection.ConnectionString, Global.System.StringComparison.Ordinal) Then + Return true + End If + Return false + End Function + + ''' + '''Update Order Option + ''' + _ + Public Enum UpdateOrderOption + + InsertUpdateDelete = 0 + + UpdateInsertDelete = 1 + End Enum + + ''' + '''Used to sort self-referenced table's rows + ''' + _ + Private Class SelfReferenceComparer + Inherits Object + Implements Global.System.Collections.Generic.IComparer(Of Global.System.Data.DataRow) + + Private _relation As Global.System.Data.DataRelation + + Private _childFirst As Integer + + _ + Friend Sub New(ByVal relation As Global.System.Data.DataRelation, ByVal childFirst As Boolean) + MyBase.New + Me._relation = relation + If childFirst Then + Me._childFirst = -1 + Else + Me._childFirst = 1 + End If + End Sub + + _ + Private Function GetRoot(ByVal row As Global.System.Data.DataRow, ByRef distance As Integer) As Global.System.Data.DataRow + Global.System.Diagnostics.Debug.Assert((Not (row) Is Nothing)) + Dim root As Global.System.Data.DataRow = row + distance = 0 + + Dim traversedRows As Global.System.Collections.Generic.IDictionary(Of Global.System.Data.DataRow, Global.System.Data.DataRow) = New Global.System.Collections.Generic.Dictionary(Of Global.System.Data.DataRow, Global.System.Data.DataRow)() + traversedRows(row) = row + + Dim parent As Global.System.Data.DataRow = row.GetParentRow(Me._relation, Global.System.Data.DataRowVersion.[Default]) + + Do While ((Not (parent) Is Nothing) _ + AndAlso (traversedRows.ContainsKey(parent) = false)) + distance = (distance + 1) + root = parent + traversedRows(parent) = parent + parent = parent.GetParentRow(Me._relation, Global.System.Data.DataRowVersion.[Default]) + + Loop + + If (distance = 0) Then + traversedRows.Clear + traversedRows(row) = row + parent = row.GetParentRow(Me._relation, Global.System.Data.DataRowVersion.Original) + + Do While ((Not (parent) Is Nothing) _ + AndAlso (traversedRows.ContainsKey(parent) = false)) + distance = (distance + 1) + root = parent + traversedRows(parent) = parent + parent = parent.GetParentRow(Me._relation, Global.System.Data.DataRowVersion.Original) + + Loop + End If + + Return root + End Function + + _ + Public Function Compare(ByVal row1 As Global.System.Data.DataRow, ByVal row2 As Global.System.Data.DataRow) As Integer Implements Global.System.Collections.Generic.IComparer(Of Global.System.Data.DataRow).Compare + If Object.ReferenceEquals(row1, row2) Then + Return 0 + End If + If (row1 Is Nothing) Then + Return -1 + End If + If (row2 Is Nothing) Then + Return 1 + End If + + Dim distance1 As Integer = 0 + Dim root1 As Global.System.Data.DataRow = Me.GetRoot(row1, distance1) + + Dim distance2 As Integer = 0 + Dim root2 As Global.System.Data.DataRow = Me.GetRoot(row2, distance2) + + If Object.ReferenceEquals(root1, root2) Then + Return (Me._childFirst * distance1.CompareTo(distance2)) + Else + Global.System.Diagnostics.Debug.Assert(((Not (root1.Table) Is Nothing) _ + AndAlso (Not (root2.Table) Is Nothing))) + If (root1.Table.Rows.IndexOf(root1) < root2.Table.Rows.IndexOf(root2)) Then + Return -1 + Else + Return 1 + End If + End If + End Function + End Class + End Class +End Namespace diff --git a/ArinWarev1/DataSet/DS.vb b/ArinWarev1/DataSet/DS.vb new file mode 100644 index 0000000..63714b1 --- /dev/null +++ b/ArinWarev1/DataSet/DS.vb @@ -0,0 +1,14 @@ +Partial Class DS + Partial Class weather_chaDataTable + + Private Sub weather_chaDataTable_weather_chaRowChanging(sender As System.Object, e As weather_chaRowChangeEvent) Handles Me.weather_chaRowChanging + + End Sub + + End Class + +End Class + +Namespace DSTableAdapters + +End Namespace diff --git a/ArinWarev1/DataSet/DS.xsc b/ArinWarev1/DataSet/DS.xsc new file mode 100644 index 0000000..05b0199 --- /dev/null +++ b/ArinWarev1/DataSet/DS.xsc @@ -0,0 +1,9 @@ + + + + + \ No newline at end of file diff --git a/ArinWarev1/DataSet/DS.xsd b/ArinWarev1/DataSet/DS.xsd new file mode 100644 index 0000000..d330d27 --- /dev/null +++ b/ArinWarev1/DataSet/DS.xsd @@ -0,0 +1,3259 @@ + + + + + + + + + + + + + + + DELETE FROM [weather_cha2] WHERE (([pcode] = @Original_pcode) AND ([code] = @Original_code) AND ((@IsNull_설명 = 1 AND [설명] IS NULL) OR ([설명] = @Original_설명)) AND ((@IsNull_m01 = 1 AND [m01] IS NULL) OR ([m01] = @Original_m01)) AND ((@IsNull_m02 = 1 AND [m02] IS NULL) OR ([m02] = @Original_m02)) AND ((@IsNull_m03 = 1 AND [m03] IS NULL) OR ([m03] = @Original_m03)) AND ((@IsNull_m04 = 1 AND [m04] IS NULL) OR ([m04] = @Original_m04)) AND ((@IsNull_m05 = 1 AND [m05] IS NULL) OR ([m05] = @Original_m05)) AND ((@IsNull_m06 = 1 AND [m06] IS NULL) OR ([m06] = @Original_m06)) AND ((@IsNull_m07 = 1 AND [m07] IS NULL) OR ([m07] = @Original_m07)) AND ((@IsNull_m08 = 1 AND [m08] IS NULL) OR ([m08] = @Original_m08)) AND ((@IsNull_m09 = 1 AND [m09] IS NULL) OR ([m09] = @Original_m09)) AND ((@IsNull_m10 = 1 AND [m10] IS NULL) OR ([m10] = @Original_m10)) AND ((@IsNull_m11 = 1 AND [m11] IS NULL) OR ([m11] = @Original_m11)) AND ((@IsNull_m12 = 1 AND [m12] IS NULL) OR ([m12] = @Original_m12))) + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + INSERT INTO [weather_cha2] ([pcode], [code], [설명], [m01], [m02], [m03], [m04], [m05], [m06], [m07], [m08], [m09], [m10], [m11], [m12]) VALUES (@pcode, @code, @설명, @m01, @m02, @m03, @m04, @m05, @m06, @m07, @m08, @m09, @m10, @m11, @m12); +SELECT pcode, code, 설명, m01, m02, m03, m04, m05, m06, m07, m08, m09, m10, m11, m12 FROM weather_cha2 WHERE (code = @code) AND (pcode = @pcode) + + + + + + + + + + + + + + + + + + + + + + SELECT pcode, code, 설명, m01, m02, m03, m04, m05, m06, m07, m08, m09, m10, m11, m12 +FROM weather_cha2 + + + + + + UPDATE [weather_cha2] SET [pcode] = @pcode, [code] = @code, [설명] = @설명, [m01] = @m01, [m02] = @m02, [m03] = @m03, [m04] = @m04, [m05] = @m05, [m06] = @m06, [m07] = @m07, [m08] = @m08, [m09] = @m09, [m10] = @m10, [m11] = @m11, [m12] = @m12 WHERE (([pcode] = @Original_pcode) AND ([code] = @Original_code) AND ((@IsNull_설명 = 1 AND [설명] IS NULL) OR ([설명] = @Original_설명)) AND ((@IsNull_m01 = 1 AND [m01] IS NULL) OR ([m01] = @Original_m01)) AND ((@IsNull_m02 = 1 AND [m02] IS NULL) OR ([m02] = @Original_m02)) AND ((@IsNull_m03 = 1 AND [m03] IS NULL) OR ([m03] = @Original_m03)) AND ((@IsNull_m04 = 1 AND [m04] IS NULL) OR ([m04] = @Original_m04)) AND ((@IsNull_m05 = 1 AND [m05] IS NULL) OR ([m05] = @Original_m05)) AND ((@IsNull_m06 = 1 AND [m06] IS NULL) OR ([m06] = @Original_m06)) AND ((@IsNull_m07 = 1 AND [m07] IS NULL) OR ([m07] = @Original_m07)) AND ((@IsNull_m08 = 1 AND [m08] IS NULL) OR ([m08] = @Original_m08)) AND ((@IsNull_m09 = 1 AND [m09] IS NULL) OR ([m09] = @Original_m09)) AND ((@IsNull_m10 = 1 AND [m10] IS NULL) OR ([m10] = @Original_m10)) AND ((@IsNull_m11 = 1 AND [m11] IS NULL) OR ([m11] = @Original_m11)) AND ((@IsNull_m12 = 1 AND [m12] IS NULL) OR ([m12] = @Original_m12))); +SELECT pcode, code, 설명, m01, m02, m03, m04, m05, m06, m07, m08, m09, m10, m11, m12 FROM weather_cha2 WHERE (code = @code) AND (pcode = @pcode) + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + DELETE FROM [weather_temp2] WHERE (([pcode] = @Original_pcode) AND ([code] = @Original_code) AND ((@IsNull_설명 = 1 AND [설명] IS NULL) OR ([설명] = @Original_설명)) AND ((@IsNull_t01 = 1 AND [t01] IS NULL) OR ([t01] = @Original_t01)) AND ((@IsNull_t02 = 1 AND [t02] IS NULL) OR ([t02] = @Original_t02)) AND ((@IsNull_t03 = 1 AND [t03] IS NULL) OR ([t03] = @Original_t03)) AND ((@IsNull_t04 = 1 AND [t04] IS NULL) OR ([t04] = @Original_t04)) AND ((@IsNull_t05 = 1 AND [t05] IS NULL) OR ([t05] = @Original_t05)) AND ((@IsNull_t06 = 1 AND [t06] IS NULL) OR ([t06] = @Original_t06)) AND ((@IsNull_t07 = 1 AND [t07] IS NULL) OR ([t07] = @Original_t07)) AND ((@IsNull_t08 = 1 AND [t08] IS NULL) OR ([t08] = @Original_t08)) AND ((@IsNull_t09 = 1 AND [t09] IS NULL) OR ([t09] = @Original_t09)) AND ((@IsNull_t10 = 1 AND [t10] IS NULL) OR ([t10] = @Original_t10)) AND ((@IsNull_t11 = 1 AND [t11] IS NULL) OR ([t11] = @Original_t11)) AND ((@IsNull_t12 = 1 AND [t12] IS NULL) OR ([t12] = @Original_t12)) AND ((@IsNull_t13 = 1 AND [t13] IS NULL) OR ([t13] = @Original_t13)) AND ((@IsNull_t14 = 1 AND [t14] IS NULL) OR ([t14] = @Original_t14)) AND ((@IsNull_t15 = 1 AND [t15] IS NULL) OR ([t15] = @Original_t15)) AND ((@IsNull_t16 = 1 AND [t16] IS NULL) OR ([t16] = @Original_t16)) AND ((@IsNull_t17 = 1 AND [t17] IS NULL) OR ([t17] = @Original_t17)) AND ((@IsNull_t18 = 1 AND [t18] IS NULL) OR ([t18] = @Original_t18)) AND ((@IsNull_t19 = 1 AND [t19] IS NULL) OR ([t19] = @Original_t19)) AND ((@IsNull_t20 = 1 AND [t20] IS NULL) OR ([t20] = @Original_t20)) AND ((@IsNull_t21 = 1 AND [t21] IS NULL) OR ([t21] = @Original_t21)) AND ((@IsNull_t22 = 1 AND [t22] IS NULL) OR ([t22] = @Original_t22)) AND ((@IsNull_t23 = 1 AND [t23] IS NULL) OR ([t23] = @Original_t23)) AND ((@IsNull_t24 = 1 AND [t24] IS NULL) OR ([t24] = @Original_t24))) + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + INSERT INTO [weather_temp2] ([pcode], [code], [설명], [t01], [t02], [t03], [t04], [t05], [t06], [t07], [t08], [t09], [t10], [t11], [t12], [t13], [t14], [t15], [t16], [t17], [t18], [t19], [t20], [t21], [t22], [t23], [t24]) VALUES (@pcode, @code, @설명, @t01, @t02, @t03, @t04, @t05, @t06, @t07, @t08, @t09, @t10, @t11, @t12, @t13, @t14, @t15, @t16, @t17, @t18, @t19, @t20, @t21, @t22, @t23, @t24); +SELECT pcode, code, 설명, t01, t02, t03, t04, t05, t06, t07, t08, t09, t10, t11, t12, t13, t14, t15, t16, t17, t18, t19, t20, t21, t22, t23, t24 FROM weather_temp2 WHERE (code = @code) AND (pcode = @pcode) + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + SELECT pcode, code, 설명, t01, t02, t03, t04, t05, t06, t07, t08, t09, t10, t11, t12, t13, t14, t15, t16, t17, t18, t19, t20, t21, + t22, t23, t24 +FROM weather_temp2 + + + + + + UPDATE [weather_temp2] SET [pcode] = @pcode, [code] = @code, [설명] = @설명, [t01] = @t01, [t02] = @t02, [t03] = @t03, [t04] = @t04, [t05] = @t05, [t06] = @t06, [t07] = @t07, [t08] = @t08, [t09] = @t09, [t10] = @t10, [t11] = @t11, [t12] = @t12, [t13] = @t13, [t14] = @t14, [t15] = @t15, [t16] = @t16, [t17] = @t17, [t18] = @t18, [t19] = @t19, [t20] = @t20, [t21] = @t21, [t22] = @t22, [t23] = @t23, [t24] = @t24 WHERE (([pcode] = @Original_pcode) AND ([code] = @Original_code) AND ((@IsNull_설명 = 1 AND [설명] IS NULL) OR ([설명] = @Original_설명)) AND ((@IsNull_t01 = 1 AND [t01] IS NULL) OR ([t01] = @Original_t01)) AND ((@IsNull_t02 = 1 AND [t02] IS NULL) OR ([t02] = @Original_t02)) AND ((@IsNull_t03 = 1 AND [t03] IS NULL) OR ([t03] = @Original_t03)) AND ((@IsNull_t04 = 1 AND [t04] IS NULL) OR ([t04] = @Original_t04)) AND ((@IsNull_t05 = 1 AND [t05] IS NULL) OR ([t05] = @Original_t05)) AND ((@IsNull_t06 = 1 AND [t06] IS NULL) OR ([t06] = @Original_t06)) AND ((@IsNull_t07 = 1 AND [t07] IS NULL) OR ([t07] = @Original_t07)) AND ((@IsNull_t08 = 1 AND [t08] IS NULL) OR ([t08] = @Original_t08)) AND ((@IsNull_t09 = 1 AND [t09] IS NULL) OR ([t09] = @Original_t09)) AND ((@IsNull_t10 = 1 AND [t10] IS NULL) OR ([t10] = @Original_t10)) AND ((@IsNull_t11 = 1 AND [t11] IS NULL) OR ([t11] = @Original_t11)) AND ((@IsNull_t12 = 1 AND [t12] IS NULL) OR ([t12] = @Original_t12)) AND ((@IsNull_t13 = 1 AND [t13] IS NULL) OR ([t13] = @Original_t13)) AND ((@IsNull_t14 = 1 AND [t14] IS NULL) OR ([t14] = @Original_t14)) AND ((@IsNull_t15 = 1 AND [t15] IS NULL) OR ([t15] = @Original_t15)) AND ((@IsNull_t16 = 1 AND [t16] IS NULL) OR ([t16] = @Original_t16)) AND ((@IsNull_t17 = 1 AND [t17] IS NULL) OR ([t17] = @Original_t17)) AND ((@IsNull_t18 = 1 AND [t18] IS NULL) OR ([t18] = @Original_t18)) AND ((@IsNull_t19 = 1 AND [t19] IS NULL) OR ([t19] = @Original_t19)) AND ((@IsNull_t20 = 1 AND [t20] IS NULL) OR ([t20] = @Original_t20)) AND ((@IsNull_t21 = 1 AND [t21] IS NULL) OR ([t21] = @Original_t21)) AND ((@IsNull_t22 = 1 AND [t22] IS NULL) OR ([t22] = @Original_t22)) AND ((@IsNull_t23 = 1 AND [t23] IS NULL) OR ([t23] = @Original_t23)) AND ((@IsNull_t24 = 1 AND [t24] IS NULL) OR ([t24] = @Original_t24))); +SELECT pcode, code, 설명, t01, t02, t03, t04, t05, t06, t07, t08, t09, t10, t11, t12, t13, t14, t15, t16, t17, t18, t19, t20, t21, t22, t23, t24 FROM weather_temp2 WHERE (code = @code) AND (pcode = @pcode) + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + DELETE FROM [tbl_weather2] WHERE (([code] = @Original_code) AND ((@IsNull_건물위치 = 1 AND [건물위치] IS NULL) OR ([건물위치] = @Original_건물위치)) AND ((@IsNull_난방기 = 1 AND [난방기] IS NULL) OR ([난방기] = @Original_난방기)) AND ((@IsNull_냉방기 = 1 AND [냉방기] IS NULL) OR ([냉방기] = @Original_냉방기)) AND ((@IsNull_m01 = 1 AND [m01] IS NULL) OR ([m01] = @Original_m01)) AND ((@IsNull_m02 = 1 AND [m02] IS NULL) OR ([m02] = @Original_m02)) AND ((@IsNull_m03 = 1 AND [m03] IS NULL) OR ([m03] = @Original_m03)) AND ((@IsNull_m04 = 1 AND [m04] IS NULL) OR ([m04] = @Original_m04)) AND ((@IsNull_m05 = 1 AND [m05] IS NULL) OR ([m05] = @Original_m05)) AND ((@IsNull_m06 = 1 AND [m06] IS NULL) OR ([m06] = @Original_m06)) AND ((@IsNull_m07 = 1 AND [m07] IS NULL) OR ([m07] = @Original_m07)) AND ((@IsNull_m08 = 1 AND [m08] IS NULL) OR ([m08] = @Original_m08)) AND ((@IsNull_m09 = 1 AND [m09] IS NULL) OR ([m09] = @Original_m09)) AND ((@IsNull_m10 = 1 AND [m10] IS NULL) OR ([m10] = @Original_m10)) AND ((@IsNull_m11 = 1 AND [m11] IS NULL) OR ([m11] = @Original_m11)) AND ((@IsNull_m12 = 1 AND [m12] IS NULL) OR ([m12] = @Original_m12))) + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + INSERT INTO [tbl_weather2] ([code], [건물위치], [난방기], [냉방기], [m01], [m02], [m03], [m04], [m05], [m06], [m07], [m08], [m09], [m10], [m11], [m12]) VALUES (@code, @건물위치, @난방기, @냉방기, @m01, @m02, @m03, @m04, @m05, @m06, @m07, @m08, @m09, @m10, @m11, @m12); +SELECT code, 건물위치, 난방기, 냉방기, m01, m02, m03, m04, m05, m06, m07, m08, m09, m10, m11, m12 FROM tbl_weather2 WHERE (code = @code) ORDER BY code + + + + + + + + + + + + + + + + + + + + + + + SELECT code, 건물위치, 난방기, 냉방기, m01, m02, m03, m04, m05, m06, m07, m08, m09, m10, m11, m12 +FROM tbl_weather2 +ORDER BY code + + + + + + UPDATE [tbl_weather2] SET [code] = @code, [건물위치] = @건물위치, [난방기] = @난방기, [냉방기] = @냉방기, [m01] = @m01, [m02] = @m02, [m03] = @m03, [m04] = @m04, [m05] = @m05, [m06] = @m06, [m07] = @m07, [m08] = @m08, [m09] = @m09, [m10] = @m10, [m11] = @m11, [m12] = @m12 WHERE (([code] = @Original_code) AND ((@IsNull_건물위치 = 1 AND [건물위치] IS NULL) OR ([건물위치] = @Original_건물위치)) AND ((@IsNull_난방기 = 1 AND [난방기] IS NULL) OR ([난방기] = @Original_난방기)) AND ((@IsNull_냉방기 = 1 AND [냉방기] IS NULL) OR ([냉방기] = @Original_냉방기)) AND ((@IsNull_m01 = 1 AND [m01] IS NULL) OR ([m01] = @Original_m01)) AND ((@IsNull_m02 = 1 AND [m02] IS NULL) OR ([m02] = @Original_m02)) AND ((@IsNull_m03 = 1 AND [m03] IS NULL) OR ([m03] = @Original_m03)) AND ((@IsNull_m04 = 1 AND [m04] IS NULL) OR ([m04] = @Original_m04)) AND ((@IsNull_m05 = 1 AND [m05] IS NULL) OR ([m05] = @Original_m05)) AND ((@IsNull_m06 = 1 AND [m06] IS NULL) OR ([m06] = @Original_m06)) AND ((@IsNull_m07 = 1 AND [m07] IS NULL) OR ([m07] = @Original_m07)) AND ((@IsNull_m08 = 1 AND [m08] IS NULL) OR ([m08] = @Original_m08)) AND ((@IsNull_m09 = 1 AND [m09] IS NULL) OR ([m09] = @Original_m09)) AND ((@IsNull_m10 = 1 AND [m10] IS NULL) OR ([m10] = @Original_m10)) AND ((@IsNull_m11 = 1 AND [m11] IS NULL) OR ([m11] = @Original_m11)) AND ((@IsNull_m12 = 1 AND [m12] IS NULL) OR ([m12] = @Original_m12))); +SELECT code, 건물위치, 난방기, 냉방기, m01, m02, m03, m04, m05, m06, m07, m08, m09, m10, m11, m12 FROM tbl_weather2 WHERE (code = @code) ORDER BY code + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + DELETE FROM [weather_ilsa2] WHERE (([pcode] = @Original_pcode) AND ([code] = @Original_code) AND ((@IsNull_설명 = 1 AND [설명] IS NULL) OR ([설명] = @Original_설명)) AND ((@IsNull_최대부하 = 1 AND [최대부하] IS NULL) OR ([최대부하] = @Original_최대부하)) AND ((@IsNull_m01 = 1 AND [m01] IS NULL) OR ([m01] = @Original_m01)) AND ((@IsNull_m02 = 1 AND [m02] IS NULL) OR ([m02] = @Original_m02)) AND ((@IsNull_m03 = 1 AND [m03] IS NULL) OR ([m03] = @Original_m03)) AND ((@IsNull_m04 = 1 AND [m04] IS NULL) OR ([m04] = @Original_m04)) AND ((@IsNull_m05 = 1 AND [m05] IS NULL) OR ([m05] = @Original_m05)) AND ((@IsNull_m06 = 1 AND [m06] IS NULL) OR ([m06] = @Original_m06)) AND ((@IsNull_m07 = 1 AND [m07] IS NULL) OR ([m07] = @Original_m07)) AND ((@IsNull_m08 = 1 AND [m08] IS NULL) OR ([m08] = @Original_m08)) AND ((@IsNull_m09 = 1 AND [m09] IS NULL) OR ([m09] = @Original_m09)) AND ((@IsNull_m10 = 1 AND [m10] IS NULL) OR ([m10] = @Original_m10)) AND ((@IsNull_m11 = 1 AND [m11] IS NULL) OR ([m11] = @Original_m11)) AND ((@IsNull_m12 = 1 AND [m12] IS NULL) OR ([m12] = @Original_m12))) + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + INSERT INTO [weather_ilsa2] ([pcode], [code], [설명], [최대부하], [m01], [m02], [m03], [m04], [m05], [m06], [m07], [m08], [m09], [m10], [m11], [m12]) VALUES (@pcode, @code, @설명, @최대부하, @m01, @m02, @m03, @m04, @m05, @m06, @m07, @m08, @m09, @m10, @m11, @m12); +SELECT pcode, code, 설명, 최대부하, m01, m02, m03, m04, m05, m06, m07, m08, m09, m10, m11, m12 FROM weather_ilsa2 WHERE (code = @code) AND (pcode = @pcode) + + + + + + + + + + + + + + + + + + + + + + + SELECT pcode, code, 설명, 최대부하, m01, m02, m03, m04, m05, m06, m07, m08, m09, m10, m11, m12 +FROM weather_ilsa2 + + + + + + UPDATE [weather_ilsa2] SET [pcode] = @pcode, [code] = @code, [설명] = @설명, [최대부하] = @최대부하, [m01] = @m01, [m02] = @m02, [m03] = @m03, [m04] = @m04, [m05] = @m05, [m06] = @m06, [m07] = @m07, [m08] = @m08, [m09] = @m09, [m10] = @m10, [m11] = @m11, [m12] = @m12 WHERE (([pcode] = @Original_pcode) AND ([code] = @Original_code) AND ((@IsNull_설명 = 1 AND [설명] IS NULL) OR ([설명] = @Original_설명)) AND ((@IsNull_최대부하 = 1 AND [최대부하] IS NULL) OR ([최대부하] = @Original_최대부하)) AND ((@IsNull_m01 = 1 AND [m01] IS NULL) OR ([m01] = @Original_m01)) AND ((@IsNull_m02 = 1 AND [m02] IS NULL) OR ([m02] = @Original_m02)) AND ((@IsNull_m03 = 1 AND [m03] IS NULL) OR ([m03] = @Original_m03)) AND ((@IsNull_m04 = 1 AND [m04] IS NULL) OR ([m04] = @Original_m04)) AND ((@IsNull_m05 = 1 AND [m05] IS NULL) OR ([m05] = @Original_m05)) AND ((@IsNull_m06 = 1 AND [m06] IS NULL) OR ([m06] = @Original_m06)) AND ((@IsNull_m07 = 1 AND [m07] IS NULL) OR ([m07] = @Original_m07)) AND ((@IsNull_m08 = 1 AND [m08] IS NULL) OR ([m08] = @Original_m08)) AND ((@IsNull_m09 = 1 AND [m09] IS NULL) OR ([m09] = @Original_m09)) AND ((@IsNull_m10 = 1 AND [m10] IS NULL) OR ([m10] = @Original_m10)) AND ((@IsNull_m11 = 1 AND [m11] IS NULL) OR ([m11] = @Original_m11)) AND ((@IsNull_m12 = 1 AND [m12] IS NULL) OR ([m12] = @Original_m12))); +SELECT pcode, code, 설명, 최대부하, m01, m02, m03, m04, m05, m06, m07, m08, m09, m10, m11, m12 FROM weather_ilsa2 WHERE (code = @code) AND (pcode = @pcode) + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + DELETE FROM [weather_supdo2] WHERE (([pcode] = @Original_pcode) AND ([code] = @Original_code) AND ((@IsNull_설명 = 1 AND [설명] IS NULL) OR ([설명] = @Original_설명)) AND ((@IsNull_t01 = 1 AND [t01] IS NULL) OR ([t01] = @Original_t01)) AND ((@IsNull_t02 = 1 AND [t02] IS NULL) OR ([t02] = @Original_t02)) AND ((@IsNull_t03 = 1 AND [t03] IS NULL) OR ([t03] = @Original_t03)) AND ((@IsNull_t04 = 1 AND [t04] IS NULL) OR ([t04] = @Original_t04)) AND ((@IsNull_t05 = 1 AND [t05] IS NULL) OR ([t05] = @Original_t05)) AND ((@IsNull_t06 = 1 AND [t06] IS NULL) OR ([t06] = @Original_t06)) AND ((@IsNull_t07 = 1 AND [t07] IS NULL) OR ([t07] = @Original_t07)) AND ((@IsNull_t08 = 1 AND [t08] IS NULL) OR ([t08] = @Original_t08)) AND ((@IsNull_t09 = 1 AND [t09] IS NULL) OR ([t09] = @Original_t09)) AND ((@IsNull_t10 = 1 AND [t10] IS NULL) OR ([t10] = @Original_t10)) AND ((@IsNull_t11 = 1 AND [t11] IS NULL) OR ([t11] = @Original_t11)) AND ((@IsNull_t12 = 1 AND [t12] IS NULL) OR ([t12] = @Original_t12)) AND ((@IsNull_t13 = 1 AND [t13] IS NULL) OR ([t13] = @Original_t13)) AND ((@IsNull_t14 = 1 AND [t14] IS NULL) OR ([t14] = @Original_t14)) AND ((@IsNull_t15 = 1 AND [t15] IS NULL) OR ([t15] = @Original_t15)) AND ((@IsNull_t16 = 1 AND [t16] IS NULL) OR ([t16] = @Original_t16)) AND ((@IsNull_t17 = 1 AND [t17] IS NULL) OR ([t17] = @Original_t17)) AND ((@IsNull_t18 = 1 AND [t18] IS NULL) OR ([t18] = @Original_t18)) AND ((@IsNull_t19 = 1 AND [t19] IS NULL) OR ([t19] = @Original_t19)) AND ((@IsNull_t20 = 1 AND [t20] IS NULL) OR ([t20] = @Original_t20)) AND ((@IsNull_t21 = 1 AND [t21] IS NULL) OR ([t21] = @Original_t21)) AND ((@IsNull_t22 = 1 AND [t22] IS NULL) OR ([t22] = @Original_t22)) AND ((@IsNull_t23 = 1 AND [t23] IS NULL) OR ([t23] = @Original_t23)) AND ((@IsNull_t24 = 1 AND [t24] IS NULL) OR ([t24] = @Original_t24))) + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + INSERT INTO [weather_supdo2] ([pcode], [code], [설명], [t01], [t02], [t03], [t04], [t05], [t06], [t07], [t08], [t09], [t10], [t11], [t12], [t13], [t14], [t15], [t16], [t17], [t18], [t19], [t20], [t21], [t22], [t23], [t24]) VALUES (@pcode, @code, @설명, @t01, @t02, @t03, @t04, @t05, @t06, @t07, @t08, @t09, @t10, @t11, @t12, @t13, @t14, @t15, @t16, @t17, @t18, @t19, @t20, @t21, @t22, @t23, @t24); +SELECT pcode, code, 설명, t01, t02, t03, t04, t05, t06, t07, t08, t09, t10, t11, t12, t13, t14, t15, t16, t17, t18, t19, t20, t21, t22, t23, t24 FROM weather_supdo2 WHERE (code = @code) AND (pcode = @pcode) + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + SELECT pcode, code, 설명, t01, t02, t03, t04, t05, t06, t07, t08, t09, t10, t11, t12, t13, t14, t15, t16, t17, t18, t19, t20, t21, + t22, t23, t24 +FROM weather_supdo2 + + + + + + UPDATE [weather_supdo2] SET [pcode] = @pcode, [code] = @code, [설명] = @설명, [t01] = @t01, [t02] = @t02, [t03] = @t03, [t04] = @t04, [t05] = @t05, [t06] = @t06, [t07] = @t07, [t08] = @t08, [t09] = @t09, [t10] = @t10, [t11] = @t11, [t12] = @t12, [t13] = @t13, [t14] = @t14, [t15] = @t15, [t16] = @t16, [t17] = @t17, [t18] = @t18, [t19] = @t19, [t20] = @t20, [t21] = @t21, [t22] = @t22, [t23] = @t23, [t24] = @t24 WHERE (([pcode] = @Original_pcode) AND ([code] = @Original_code) AND ((@IsNull_설명 = 1 AND [설명] IS NULL) OR ([설명] = @Original_설명)) AND ((@IsNull_t01 = 1 AND [t01] IS NULL) OR ([t01] = @Original_t01)) AND ((@IsNull_t02 = 1 AND [t02] IS NULL) OR ([t02] = @Original_t02)) AND ((@IsNull_t03 = 1 AND [t03] IS NULL) OR ([t03] = @Original_t03)) AND ((@IsNull_t04 = 1 AND [t04] IS NULL) OR ([t04] = @Original_t04)) AND ((@IsNull_t05 = 1 AND [t05] IS NULL) OR ([t05] = @Original_t05)) AND ((@IsNull_t06 = 1 AND [t06] IS NULL) OR ([t06] = @Original_t06)) AND ((@IsNull_t07 = 1 AND [t07] IS NULL) OR ([t07] = @Original_t07)) AND ((@IsNull_t08 = 1 AND [t08] IS NULL) OR ([t08] = @Original_t08)) AND ((@IsNull_t09 = 1 AND [t09] IS NULL) OR ([t09] = @Original_t09)) AND ((@IsNull_t10 = 1 AND [t10] IS NULL) OR ([t10] = @Original_t10)) AND ((@IsNull_t11 = 1 AND [t11] IS NULL) OR ([t11] = @Original_t11)) AND ((@IsNull_t12 = 1 AND [t12] IS NULL) OR ([t12] = @Original_t12)) AND ((@IsNull_t13 = 1 AND [t13] IS NULL) OR ([t13] = @Original_t13)) AND ((@IsNull_t14 = 1 AND [t14] IS NULL) OR ([t14] = @Original_t14)) AND ((@IsNull_t15 = 1 AND [t15] IS NULL) OR ([t15] = @Original_t15)) AND ((@IsNull_t16 = 1 AND [t16] IS NULL) OR ([t16] = @Original_t16)) AND ((@IsNull_t17 = 1 AND [t17] IS NULL) OR ([t17] = @Original_t17)) AND ((@IsNull_t18 = 1 AND [t18] IS NULL) OR ([t18] = @Original_t18)) AND ((@IsNull_t19 = 1 AND [t19] IS NULL) OR ([t19] = @Original_t19)) AND ((@IsNull_t20 = 1 AND [t20] IS NULL) OR ([t20] = @Original_t20)) AND ((@IsNull_t21 = 1 AND [t21] IS NULL) OR ([t21] = @Original_t21)) AND ((@IsNull_t22 = 1 AND [t22] IS NULL) OR ([t22] = @Original_t22)) AND ((@IsNull_t23 = 1 AND [t23] IS NULL) OR ([t23] = @Original_t23)) AND ((@IsNull_t24 = 1 AND [t24] IS NULL) OR ([t24] = @Original_t24))); +SELECT pcode, code, 설명, t01, t02, t03, t04, t05, t06, t07, t08, t09, t10, t11, t12, t13, t14, t15, t16, t17, t18, t19, t20, t21, t22, t23, t24 FROM weather_supdo2 WHERE (code = @code) AND (pcode = @pcode) + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + DELETE FROM [tbl_profile_2016] WHERE (([code] = @Original_code) AND ((@IsNull_설명 = 1 AND [설명] IS NULL) OR ([설명] = @Original_설명)) AND ((@IsNull_일일급탕요구량 = 1 AND [일일급탕요구량] IS NULL) OR ([일일급탕요구량] = @Original_일일급탕요구량)) AND ((@IsNull_사용시작시간 = 1 AND [사용시작시간] IS NULL) OR ([사용시작시간] = @Original_사용시작시간)) AND ((@IsNull_사용종료시간 = 1 AND [사용종료시간] IS NULL) OR ([사용종료시간] = @Original_사용종료시간)) AND ((@IsNull_일일사용시간 = 1 AND [일일사용시간] IS NULL) OR ([일일사용시간] = @Original_일일사용시간)) AND ((@IsNull_운전시작시간 = 1 AND [운전시작시간] IS NULL) OR ([운전시작시간] = @Original_운전시작시간)) AND ((@IsNull_운전종료시간 = 1 AND [운전종료시간] IS NULL) OR ([운전종료시간] = @Original_운전종료시간)) AND ((@IsNull_운전시간난방 = 1 AND [운전시간난방] IS NULL) OR ([운전시간난방] = @Original_운전시간난방)) AND ((@IsNull_연간사용일수 = 1 AND [연간사용일수] IS NULL) OR ([연간사용일수] = @Original_연간사용일수)) AND ((@IsNull_연간사용시간주간 = 1 AND [연간사용시간주간] IS NULL) OR ([연간사용시간주간] = @Original_연간사용시간주간)) AND ((@IsNull_연간사용시간야간 = 1 AND [연간사용시간야간] IS NULL) OR ([연간사용시간야간] = @Original_연간사용시간야간)) AND ((@IsNull_일일운전시간 = 1 AND [일일운전시간] IS NULL) OR ([일일운전시간] = @Original_일일운전시간)) AND ((@IsNull_연간운전일수 = 1 AND [연간운전일수] IS NULL) OR ([연간운전일수] = @Original_연간운전일수)) AND ((@IsNull_요구조도 = 1 AND [요구조도] IS NULL) OR ([요구조도] = @Original_요구조도)) AND ((@IsNull_작업면높이 = 1 AND [작업면높이] IS NULL) OR ([작업면높이] = @Original_작업면높이)) AND ((@IsNull_감소계수 = 1 AND [감소계수] IS NULL) OR ([감소계수] = @Original_감소계수)) AND ((@IsNull_부재율 = 1 AND [부재율] IS NULL) OR ([부재율] = @Original_부재율)) AND ((@IsNull_실지수 = 1 AND [실지수] IS NULL) OR ([실지수] = @Original_실지수)) AND ((@IsNull_최소도입외기량 = 1 AND [최소도입외기량] IS NULL) OR ([최소도입외기량] = @Original_최소도입외기량)) AND ((@IsNull_축소운전시최소도입외기량 = 1 AND [축소운전시최소도입외기량] IS NULL) OR ([축소운전시최소도입외기량] = @Original_축소운전시최소도입외기량)) AND ((@IsNull_사람 = 1 AND [사람] IS NULL) OR ([사람] = @Original_사람)) AND ((@IsNull_작업보조기기 = 1 AND [작업보조기기] IS NULL) OR ([작업보조기기] = @Original_작업보조기기)) AND ((@IsNull_난방설정온도 = 1 AND [난방설정온도] IS NULL) OR ([난방설정온도] = @Original_난방설정온도)) AND ((@IsNull_냉방설정온도 = 1 AND [냉방설정온도] IS NULL) OR ([냉방설정온도] = @Original_냉방설정온도)) AND ((@IsNull_야간최저허용온도 = 1 AND [야간최저허용온도] IS NULL) OR ([야간최저허용온도] = @Original_야간최저허용온도)) AND ((@IsNull_주말최저허용온도 = 1 AND [주말최저허용온도] IS NULL) OR ([주말최저허용온도] = @Original_주말최저허용온도)) AND ((@IsNull_최소설정온도난방 = 1 AND [최소설정온도난방] IS NULL) OR ([최소설정온도난방] = @Original_최소설정온도난방)) AND ((@IsNull_최소설정온도냉방 = 1 AND [최소설정온도냉방] IS NULL) OR ([최소설정온도냉방] = @Original_최소설정온도냉방)) AND ((@IsNull_외기온도난방 = 1 AND [외기온도난방] IS NULL) OR ([외기온도난방] = @Original_외기온도난방)) AND ((@IsNull_외기온도냉방7월 = 1 AND [외기온도냉방7월] IS NULL) OR ([외기온도냉방7월] = @Original_외기온도냉방7월)) AND ((@IsNull_외기온도냉방9월 = 1 AND [외기온도냉방9월] IS NULL) OR ([외기온도냉방9월] = @Original_외기온도냉방9월)) AND ((@IsNull_차감계수 = 1 AND [차감계수] IS NULL) OR ([차감계수] = @Original_차감계수)) AND ((@IsNull_오염계수 = 1 AND [오염계수] IS NULL) OR ([오염계수] = @Original_오염계수)) AND ((@IsNull_부분운전계수 = 1 AND [부분운전계수] IS NULL) OR ([부분운전계수] = @Original_부분운전계수)) AND ((@IsNull_day01 = 1 AND [day01] IS NULL) OR ([day01] = @Original_day01)) AND ((@IsNull_day02 = 1 AND [day02] IS NULL) OR ([day02] = @Original_day02)) AND ((@IsNull_day03 = 1 AND [day03] IS NULL) OR ([day03] = @Original_day03)) AND ((@IsNull_day04 = 1 AND [day04] IS NULL) OR ([day04] = @Original_day04)) AND ((@IsNull_day05 = 1 AND [day05] IS NULL) OR ([day05] = @Original_day05)) AND ((@IsNull_day06 = 1 AND [day06] IS NULL) OR ([day06] = @Original_day06)) AND ((@IsNull_day07 = 1 AND [day07] IS NULL) OR ([day07] = @Original_day07)) AND ((@IsNull_day08 = 1 AND [day08] IS NULL) OR ([day08] = @Original_day08)) AND ((@IsNull_day09 = 1 AND [day09] IS NULL) OR ([day09] = @Original_day09)) AND ((@IsNull_day10 = 1 AND [day10] IS NULL) OR ([day10] = @Original_day10)) AND ((@IsNull_day11 = 1 AND [day11] IS NULL) OR ([day11] = @Original_day11)) AND ((@IsNull_day12 = 1 AND [day12] IS NULL) OR ([day12] = @Original_day12))) + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + INSERT INTO [tbl_profile_2016] ([code], [설명], [일일급탕요구량], [사용시작시간], [사용종료시간], [일일사용시간], [운전시작시간], [운전종료시간], [운전시간난방], [연간사용일수], [연간사용시간주간], [연간사용시간야간], [일일운전시간], [연간운전일수], [요구조도], [작업면높이], [감소계수], [부재율], [실지수], [최소도입외기량], [축소운전시최소도입외기량], [사람], [작업보조기기], [난방설정온도], [냉방설정온도], [야간최저허용온도], [주말최저허용온도], [최소설정온도난방], [최소설정온도냉방], [외기온도난방], [외기온도냉방7월], [외기온도냉방9월], [차감계수], [오염계수], [부분운전계수], [day01], [day02], [day03], [day04], [day05], [day06], [day07], [day08], [day09], [day10], [day11], [day12]) VALUES (@code, @설명, @일일급탕요구량, @사용시작시간, @사용종료시간, @일일사용시간, @운전시작시간, @운전종료시간, @운전시간난방, @연간사용일수, @연간사용시간주간, @연간사용시간야간, @일일운전시간, @연간운전일수, @요구조도, @작업면높이, @감소계수, @부재율, @실지수, @최소도입외기량, @축소운전시최소도입외기량, @사람, @작업보조기기, @난방설정온도, @냉방설정온도, @야간최저허용온도, @주말최저허용온도, @최소설정온도난방, @최소설정온도냉방, @외기온도난방, @외기온도냉방7월, @외기온도냉방9월, @차감계수, @오염계수, @부분운전계수, @day01, @day02, @day03, @day04, @day05, @day06, @day07, @day08, @day09, @day10, @day11, @day12); +SELECT code, 설명, 일일급탕요구량, 사용시작시간, 사용종료시간, 일일사용시간, 운전시작시간, 운전종료시간, 운전시간난방, 연간사용일수, 연간사용시간주간, 연간사용시간야간, 일일운전시간, 연간운전일수, 요구조도, 작업면높이, 감소계수, 부재율, 실지수, 최소도입외기량, 축소운전시최소도입외기량, 사람, 작업보조기기, 난방설정온도, 냉방설정온도, 야간최저허용온도, 주말최저허용온도, 최소설정온도난방, 최소설정온도냉방, 외기온도난방, 외기온도냉방7월, 외기온도냉방9월, 차감계수, 오염계수, 부분운전계수, day01, day02, day03, day04, day05, day06, day07, day08, day09, day10, day11, day12 FROM tbl_profile_2016 WHERE (code = @code) + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + SELECT code, 설명, 일일급탕요구량, 사용시작시간, 사용종료시간, 일일사용시간, 운전시작시간, 운전종료시간, 운전시간난방, 연간사용일수, 연간사용시간주간, 연간사용시간야간, + 일일운전시간, 연간운전일수, 요구조도, 작업면높이, 감소계수, 부재율, 실지수, 최소도입외기량, 축소운전시최소도입외기량, 사람, 작업보조기기, 난방설정온도, 냉방설정온도, + 야간최저허용온도, 주말최저허용온도, 최소설정온도난방, 최소설정온도냉방, 외기온도난방, 외기온도냉방7월, 외기온도냉방9월, 차감계수, 오염계수, 부분운전계수, day01, + day02, day03, day04, day05, day06, day07, day08, day09, day10, day11, day12 +FROM tbl_profile_2016 + + + + + + UPDATE [tbl_profile_2016] SET [code] = @code, [설명] = @설명, [일일급탕요구량] = @일일급탕요구량, [사용시작시간] = @사용시작시간, [사용종료시간] = @사용종료시간, [일일사용시간] = @일일사용시간, [운전시작시간] = @운전시작시간, [운전종료시간] = @운전종료시간, [운전시간난방] = @운전시간난방, [연간사용일수] = @연간사용일수, [연간사용시간주간] = @연간사용시간주간, [연간사용시간야간] = @연간사용시간야간, [일일운전시간] = @일일운전시간, [연간운전일수] = @연간운전일수, [요구조도] = @요구조도, [작업면높이] = @작업면높이, [감소계수] = @감소계수, [부재율] = @부재율, [실지수] = @실지수, [최소도입외기량] = @최소도입외기량, [축소운전시최소도입외기량] = @축소운전시최소도입외기량, [사람] = @사람, [작업보조기기] = @작업보조기기, [난방설정온도] = @난방설정온도, [냉방설정온도] = @냉방설정온도, [야간최저허용온도] = @야간최저허용온도, [주말최저허용온도] = @주말최저허용온도, [최소설정온도난방] = @최소설정온도난방, [최소설정온도냉방] = @최소설정온도냉방, [외기온도난방] = @외기온도난방, [외기온도냉방7월] = @외기온도냉방7월, [외기온도냉방9월] = @외기온도냉방9월, [차감계수] = @차감계수, [오염계수] = @오염계수, [부분운전계수] = @부분운전계수, [day01] = @day01, [day02] = @day02, [day03] = @day03, [day04] = @day04, [day05] = @day05, [day06] = @day06, [day07] = @day07, [day08] = @day08, [day09] = @day09, [day10] = @day10, [day11] = @day11, [day12] = @day12 WHERE (([code] = @Original_code) AND ((@IsNull_설명 = 1 AND [설명] IS NULL) OR ([설명] = @Original_설명)) AND ((@IsNull_일일급탕요구량 = 1 AND [일일급탕요구량] IS NULL) OR ([일일급탕요구량] = @Original_일일급탕요구량)) AND ((@IsNull_사용시작시간 = 1 AND [사용시작시간] IS NULL) OR ([사용시작시간] = @Original_사용시작시간)) AND ((@IsNull_사용종료시간 = 1 AND [사용종료시간] IS NULL) OR ([사용종료시간] = @Original_사용종료시간)) AND ((@IsNull_일일사용시간 = 1 AND [일일사용시간] IS NULL) OR ([일일사용시간] = @Original_일일사용시간)) AND ((@IsNull_운전시작시간 = 1 AND [운전시작시간] IS NULL) OR ([운전시작시간] = @Original_운전시작시간)) AND ((@IsNull_운전종료시간 = 1 AND [운전종료시간] IS NULL) OR ([운전종료시간] = @Original_운전종료시간)) AND ((@IsNull_운전시간난방 = 1 AND [운전시간난방] IS NULL) OR ([운전시간난방] = @Original_운전시간난방)) AND ((@IsNull_연간사용일수 = 1 AND [연간사용일수] IS NULL) OR ([연간사용일수] = @Original_연간사용일수)) AND ((@IsNull_연간사용시간주간 = 1 AND [연간사용시간주간] IS NULL) OR ([연간사용시간주간] = @Original_연간사용시간주간)) AND ((@IsNull_연간사용시간야간 = 1 AND [연간사용시간야간] IS NULL) OR ([연간사용시간야간] = @Original_연간사용시간야간)) AND ((@IsNull_일일운전시간 = 1 AND [일일운전시간] IS NULL) OR ([일일운전시간] = @Original_일일운전시간)) AND ((@IsNull_연간운전일수 = 1 AND [연간운전일수] IS NULL) OR ([연간운전일수] = @Original_연간운전일수)) AND ((@IsNull_요구조도 = 1 AND [요구조도] IS NULL) OR ([요구조도] = @Original_요구조도)) AND ((@IsNull_작업면높이 = 1 AND [작업면높이] IS NULL) OR ([작업면높이] = @Original_작업면높이)) AND ((@IsNull_감소계수 = 1 AND [감소계수] IS NULL) OR ([감소계수] = @Original_감소계수)) AND ((@IsNull_부재율 = 1 AND [부재율] IS NULL) OR ([부재율] = @Original_부재율)) AND ((@IsNull_실지수 = 1 AND [실지수] IS NULL) OR ([실지수] = @Original_실지수)) AND ((@IsNull_최소도입외기량 = 1 AND [최소도입외기량] IS NULL) OR ([최소도입외기량] = @Original_최소도입외기량)) AND ((@IsNull_축소운전시최소도입외기량 = 1 AND [축소운전시최소도입외기량] IS NULL) OR ([축소운전시최소도입외기량] = @Original_축소운전시최소도입외기량)) AND ((@IsNull_사람 = 1 AND [사람] IS NULL) OR ([사람] = @Original_사람)) AND ((@IsNull_작업보조기기 = 1 AND [작업보조기기] IS NULL) OR ([작업보조기기] = @Original_작업보조기기)) AND ((@IsNull_난방설정온도 = 1 AND [난방설정온도] IS NULL) OR ([난방설정온도] = @Original_난방설정온도)) AND ((@IsNull_냉방설정온도 = 1 AND [냉방설정온도] IS NULL) OR ([냉방설정온도] = @Original_냉방설정온도)) AND ((@IsNull_야간최저허용온도 = 1 AND [야간최저허용온도] IS NULL) OR ([야간최저허용온도] = @Original_야간최저허용온도)) AND ((@IsNull_주말최저허용온도 = 1 AND [주말최저허용온도] IS NULL) OR ([주말최저허용온도] = @Original_주말최저허용온도)) AND ((@IsNull_최소설정온도난방 = 1 AND [최소설정온도난방] IS NULL) OR ([최소설정온도난방] = @Original_최소설정온도난방)) AND ((@IsNull_최소설정온도냉방 = 1 AND [최소설정온도냉방] IS NULL) OR ([최소설정온도냉방] = @Original_최소설정온도냉방)) AND ((@IsNull_외기온도난방 = 1 AND [외기온도난방] IS NULL) OR ([외기온도난방] = @Original_외기온도난방)) AND ((@IsNull_외기온도냉방7월 = 1 AND [외기온도냉방7월] IS NULL) OR ([외기온도냉방7월] = @Original_외기온도냉방7월)) AND ((@IsNull_외기온도냉방9월 = 1 AND [외기온도냉방9월] IS NULL) OR ([외기온도냉방9월] = @Original_외기온도냉방9월)) AND ((@IsNull_차감계수 = 1 AND [차감계수] IS NULL) OR ([차감계수] = @Original_차감계수)) AND ((@IsNull_오염계수 = 1 AND [오염계수] IS NULL) OR ([오염계수] = @Original_오염계수)) AND ((@IsNull_부분운전계수 = 1 AND [부분운전계수] IS NULL) OR ([부분운전계수] = @Original_부분운전계수)) AND ((@IsNull_day01 = 1 AND [day01] IS NULL) OR ([day01] = @Original_day01)) AND ((@IsNull_day02 = 1 AND [day02] IS NULL) OR ([day02] = @Original_day02)) AND ((@IsNull_day03 = 1 AND [day03] IS NULL) OR ([day03] = @Original_day03)) AND ((@IsNull_day04 = 1 AND [day04] IS NULL) OR ([day04] = @Original_day04)) AND ((@IsNull_day05 = 1 AND [day05] IS NULL) OR ([day05] = @Original_day05)) AND ((@IsNull_day06 = 1 AND [day06] IS NULL) OR ([day06] = @Original_day06)) AND ((@IsNull_day07 = 1 AND [day07] IS NULL) OR ([day07] = @Original_day07)) AND ((@IsNull_day08 = 1 AND [day08] IS NULL) OR ([day08] = @Original_day08)) AND ((@IsNull_day09 = 1 AND [day09] IS NULL) OR ([day09] = @Original_day09)) AND ((@IsNull_day10 = 1 AND [day10] IS NULL) OR ([day10] = @Original_day10)) AND ((@IsNull_day11 = 1 AND [day11] IS NULL) OR ([day11] = @Original_day11)) AND ((@IsNull_day12 = 1 AND [day12] IS NULL) OR ([day12] = @Original_day12))); +SELECT code, 설명, 일일급탕요구량, 사용시작시간, 사용종료시간, 일일사용시간, 운전시작시간, 운전종료시간, 운전시간난방, 연간사용일수, 연간사용시간주간, 연간사용시간야간, 일일운전시간, 연간운전일수, 요구조도, 작업면높이, 감소계수, 부재율, 실지수, 최소도입외기량, 축소운전시최소도입외기량, 사람, 작업보조기기, 난방설정온도, 냉방설정온도, 야간최저허용온도, 주말최저허용온도, 최소설정온도난방, 최소설정온도냉방, 외기온도난방, 외기온도냉방7월, 외기온도냉방9월, 차감계수, 오염계수, 부분운전계수, day01, day02, day03, day04, day05, day06, day07, day08, day09, day10, day11, day12 FROM tbl_profile_2016 WHERE (code = @code) + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + DELETE FROM [tbl_common2] WHERE (([gubun] = @Original_gubun) AND ([code] = @Original_code) AND ((@IsNull_name = 1 AND [name] IS NULL) OR ([name] = @Original_name)) AND ((@IsNull_valn1 = 1 AND [valn1] IS NULL) OR ([valn1] = @Original_valn1))) + + + + + + + + + + + + + INSERT INTO [tbl_common2] ([gubun], [code], [name], [valn1]) VALUES (@gubun, @code, @name, @valn1); +SELECT gubun, code, name, valn1 FROM tbl_common2 WHERE (code = @code) AND (gubun = @gubun) + + + + + + + + + + + SELECT gubun, code, name, valn1 +FROM tbl_common2 + + + + + + UPDATE [tbl_common2] SET [gubun] = @gubun, [code] = @code, [name] = @name, [valn1] = @valn1 WHERE (([gubun] = @Original_gubun) AND ([code] = @Original_code) AND ((@IsNull_name = 1 AND [name] IS NULL) OR ([name] = @Original_name)) AND ((@IsNull_valn1 = 1 AND [valn1] IS NULL) OR ([valn1] = @Original_valn1))); +SELECT gubun, code, name, valn1 FROM tbl_common2 WHERE (code = @code) AND (gubun = @gubun) + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + \ No newline at end of file diff --git a/ArinWarev1/DataSet/DS.xss b/ArinWarev1/DataSet/DS.xss new file mode 100644 index 0000000..ae729e9 --- /dev/null +++ b/ArinWarev1/DataSet/DS.xss @@ -0,0 +1,33 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + \ No newline at end of file diff --git a/ArinWarev1/DataSet/DS2.Designer.vb b/ArinWarev1/DataSet/DS2.Designer.vb new file mode 100644 index 0000000..52cec8c --- /dev/null +++ b/ArinWarev1/DataSet/DS2.Designer.vb @@ -0,0 +1,841 @@ +'------------------------------------------------------------------------------ +' +' 이 코드는 도구를 사용하여 생성되었습니다. +' 런타임 버전:4.0.30319.42000 +' +' 파일 내용을 변경하면 잘못된 동작이 발생할 수 있으며, 코드를 다시 생성하면 +' 이러한 변경 내용이 손실됩니다. +' +'------------------------------------------------------------------------------ + +Option Strict Off +Option Explicit On + + + +''' +'''Represents a strongly typed in-memory cache of data. +''' + _ +Partial Public Class DS2 + Inherits Global.System.Data.DataSet + + Private tablehistory As historyDataTable + + Private _schemaSerializationMode As Global.System.Data.SchemaSerializationMode = Global.System.Data.SchemaSerializationMode.IncludeSchema + + _ + Public Sub New() + MyBase.New + Me.BeginInit + Me.InitClass + Dim schemaChangedHandler As Global.System.ComponentModel.CollectionChangeEventHandler = AddressOf Me.SchemaChanged + AddHandler MyBase.Tables.CollectionChanged, schemaChangedHandler + AddHandler MyBase.Relations.CollectionChanged, schemaChangedHandler + Me.EndInit + 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, false) + If (Me.IsBinarySerialized(info, context) = true) Then + Me.InitVars(false) + Dim schemaChangedHandler1 As Global.System.ComponentModel.CollectionChangeEventHandler = AddressOf Me.SchemaChanged + AddHandler Me.Tables.CollectionChanged, schemaChangedHandler1 + AddHandler Me.Relations.CollectionChanged, schemaChangedHandler1 + Return + End If + Dim strSchema As String = CType(info.GetValue("XmlSchema", GetType(String)),String) + If (Me.DetermineSchemaSerializationMode(info, context) = Global.System.Data.SchemaSerializationMode.IncludeSchema) Then + Dim ds As Global.System.Data.DataSet = New Global.System.Data.DataSet() + ds.ReadXmlSchema(New Global.System.Xml.XmlTextReader(New Global.System.IO.StringReader(strSchema))) + If (Not (ds.Tables("history")) Is Nothing) Then + MyBase.Tables.Add(New historyDataTable(ds.Tables("history"))) + End If + Me.DataSetName = ds.DataSetName + Me.Prefix = ds.Prefix + Me.Namespace = ds.Namespace + Me.Locale = ds.Locale + Me.CaseSensitive = ds.CaseSensitive + Me.EnforceConstraints = ds.EnforceConstraints + Me.Merge(ds, false, Global.System.Data.MissingSchemaAction.Add) + Me.InitVars + Else + Me.ReadXmlSchema(New Global.System.Xml.XmlTextReader(New Global.System.IO.StringReader(strSchema))) + End If + Me.GetSerializationData(info, context) + Dim schemaChangedHandler As Global.System.ComponentModel.CollectionChangeEventHandler = AddressOf Me.SchemaChanged + AddHandler MyBase.Tables.CollectionChanged, schemaChangedHandler + AddHandler Me.Relations.CollectionChanged, schemaChangedHandler + End Sub + + _ + Public ReadOnly Property history() As historyDataTable + Get + Return Me.tablehistory + End Get + End Property + + _ + Public Overrides Property SchemaSerializationMode() As Global.System.Data.SchemaSerializationMode + Get + Return Me._schemaSerializationMode + End Get + Set + Me._schemaSerializationMode = value + End Set + End Property + + _ + Public Shadows ReadOnly Property Tables() As Global.System.Data.DataTableCollection + Get + Return MyBase.Tables + End Get + End Property + + _ + Public Shadows ReadOnly Property Relations() As Global.System.Data.DataRelationCollection + Get + Return MyBase.Relations + End Get + End Property + + _ + Protected Overrides Sub InitializeDerivedDataSet() + Me.BeginInit + Me.InitClass + Me.EndInit + End Sub + + _ + Public Overrides Function Clone() As Global.System.Data.DataSet + Dim cln As DS2 = CType(MyBase.Clone,DS2) + cln.InitVars + cln.SchemaSerializationMode = Me.SchemaSerializationMode + Return cln + End Function + + _ + Protected Overrides Function ShouldSerializeTables() As Boolean + Return false + End Function + + _ + Protected Overrides Function ShouldSerializeRelations() As Boolean + Return false + End Function + + _ + Protected Overrides Sub ReadXmlSerializable(ByVal reader As Global.System.Xml.XmlReader) + If (Me.DetermineSchemaSerializationMode(reader) = Global.System.Data.SchemaSerializationMode.IncludeSchema) Then + Me.Reset + Dim ds As Global.System.Data.DataSet = New Global.System.Data.DataSet() + ds.ReadXml(reader) + If (Not (ds.Tables("history")) Is Nothing) Then + MyBase.Tables.Add(New historyDataTable(ds.Tables("history"))) + End If + Me.DataSetName = ds.DataSetName + Me.Prefix = ds.Prefix + Me.Namespace = ds.Namespace + Me.Locale = ds.Locale + Me.CaseSensitive = ds.CaseSensitive + Me.EnforceConstraints = ds.EnforceConstraints + Me.Merge(ds, false, Global.System.Data.MissingSchemaAction.Add) + Me.InitVars + Else + Me.ReadXml(reader) + Me.InitVars + End If + End Sub + + _ + Protected Overrides Function GetSchemaSerializable() As Global.System.Xml.Schema.XmlSchema + Dim stream As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() + Me.WriteXmlSchema(New Global.System.Xml.XmlTextWriter(stream, Nothing)) + stream.Position = 0 + Return Global.System.Xml.Schema.XmlSchema.Read(New Global.System.Xml.XmlTextReader(stream), Nothing) + End Function + + _ + Friend Overloads Sub InitVars() + Me.InitVars(true) + End Sub + + _ + Friend Overloads Sub InitVars(ByVal initTable As Boolean) + Me.tablehistory = CType(MyBase.Tables("history"),historyDataTable) + If (initTable = true) Then + If (Not (Me.tablehistory) Is Nothing) Then + Me.tablehistory.InitVars + End If + End If + End Sub + + _ + Private Sub InitClass() + Me.DataSetName = "DS2" + Me.Prefix = "" + Me.Namespace = "http://tempuri.org/DS2.xsd" + Me.EnforceConstraints = true + Me.SchemaSerializationMode = Global.System.Data.SchemaSerializationMode.IncludeSchema + Me.tablehistory = New historyDataTable() + MyBase.Tables.Add(Me.tablehistory) + End Sub + + _ + Private Function ShouldSerializehistory() As Boolean + Return false + End Function + + _ + Private Sub SchemaChanged(ByVal sender As Object, ByVal e As Global.System.ComponentModel.CollectionChangeEventArgs) + If (e.Action = Global.System.ComponentModel.CollectionChangeAction.Remove) Then + Me.InitVars + End If + End Sub + + _ + Public Shared Function GetTypedDataSetSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType + Dim ds As DS2 = New DS2() + 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 any As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() + any.Namespace = ds.Namespace + sequence.Items.Add(any) + 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 + + _ + Public Delegate Sub historyRowChangeEventHandler(ByVal sender As Object, ByVal e As historyRowChangeEvent) + + ''' + '''Represents the strongly named DataTable class. + ''' + _ + Partial Public Class historyDataTable + Inherits Global.System.Data.TypedTableBase(Of historyRow) + + Private columntime As Global.System.Data.DataColumn + + Private columntablename As Global.System.Data.DataColumn + + Private columnFieldcolumn As Global.System.Data.DataColumn + + Private columnovalue As Global.System.Data.DataColumn + + Private columnnvalue As Global.System.Data.DataColumn + + Private columnidx As Global.System.Data.DataColumn + + Private columncode As Global.System.Data.DataColumn + + _ + Public Sub New() + MyBase.New + Me.TableName = "history" + 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 timeColumn() As Global.System.Data.DataColumn + Get + Return Me.columntime + End Get + End Property + + _ + Public ReadOnly Property tablenameColumn() As Global.System.Data.DataColumn + Get + Return Me.columntablename + End Get + End Property + + _ + Public ReadOnly Property columnColumn() As Global.System.Data.DataColumn + Get + Return Me.columnFieldcolumn + End Get + End Property + + _ + Public ReadOnly Property ovalueColumn() As Global.System.Data.DataColumn + Get + Return Me.columnovalue + End Get + End Property + + _ + Public ReadOnly Property nvalueColumn() As Global.System.Data.DataColumn + Get + Return Me.columnnvalue + End Get + End Property + + _ + Public ReadOnly Property idxColumn() As Global.System.Data.DataColumn + Get + Return Me.columnidx + End Get + End Property + + _ + Public ReadOnly Property codeColumn() As Global.System.Data.DataColumn + Get + Return Me.columncode + 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 historyRow + Get + Return CType(Me.Rows(index),historyRow) + End Get + End Property + + _ + Public Event historyRowChanging As historyRowChangeEventHandler + + _ + Public Event historyRowChanged As historyRowChangeEventHandler + + _ + Public Event historyRowDeleting As historyRowChangeEventHandler + + _ + Public Event historyRowDeleted As historyRowChangeEventHandler + + _ + Public Overloads Sub AddhistoryRow(ByVal row As historyRow) + Me.Rows.Add(row) + End Sub + + _ + Public Overloads Function AddhistoryRow(ByVal time As String, ByVal tablename As String, ByVal column As String, ByVal ovalue As String, ByVal nvalue As String, ByVal code As String) As historyRow + Dim rowhistoryRow As historyRow = CType(Me.NewRow,historyRow) + Dim columnValuesArray() As Object = New Object() {time, tablename, column, ovalue, nvalue, Nothing, code} + rowhistoryRow.ItemArray = columnValuesArray + Me.Rows.Add(rowhistoryRow) + Return rowhistoryRow + End Function + + _ + Public Overrides Function Clone() As Global.System.Data.DataTable + Dim cln As historyDataTable = CType(MyBase.Clone,historyDataTable) + cln.InitVars + Return cln + End Function + + _ + Protected Overrides Function CreateInstance() As Global.System.Data.DataTable + Return New historyDataTable() + End Function + + _ + Friend Sub InitVars() + Me.columntime = MyBase.Columns("time") + Me.columntablename = MyBase.Columns("tablename") + Me.columnFieldcolumn = MyBase.Columns("column") + Me.columnovalue = MyBase.Columns("ovalue") + Me.columnnvalue = MyBase.Columns("nvalue") + Me.columnidx = MyBase.Columns("idx") + Me.columncode = MyBase.Columns("code") + End Sub + + _ + Private Sub InitClass() + Me.columntime = New Global.System.Data.DataColumn("time", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columntime) + Me.columntablename = New Global.System.Data.DataColumn("tablename", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columntablename) + Me.columnFieldcolumn = New Global.System.Data.DataColumn("column", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnFieldcolumn) + Me.columnovalue = New Global.System.Data.DataColumn("ovalue", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnovalue) + Me.columnnvalue = New Global.System.Data.DataColumn("nvalue", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnnvalue) + Me.columnidx = New Global.System.Data.DataColumn("idx", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnidx) + Me.columncode = New Global.System.Data.DataColumn("code", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columncode) + Me.columntime.DefaultValue = CType("",String) + Me.columntablename.DefaultValue = CType("",String) + Me.columnFieldcolumn.DefaultValue = CType("",String) + Me.columnovalue.DefaultValue = CType("",String) + Me.columnnvalue.DefaultValue = CType("",String) + Me.columnidx.AutoIncrement = true + Me.columnidx.AutoIncrementSeed = 1 + Me.columnidx.AllowDBNull = false + Me.columncode.DefaultValue = CType("",String) + End Sub + + _ + Public Function NewhistoryRow() As historyRow + Return CType(Me.NewRow,historyRow) + End Function + + _ + Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow + Return New historyRow(builder) + End Function + + _ + Protected Overrides Function GetRowType() As Global.System.Type + Return GetType(historyRow) + End Function + + _ + Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanged(e) + If (Not (Me.historyRowChangedEvent) Is Nothing) Then + RaiseEvent historyRowChanged(Me, New historyRowChangeEvent(CType(e.Row,historyRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanging(e) + If (Not (Me.historyRowChangingEvent) Is Nothing) Then + RaiseEvent historyRowChanging(Me, New historyRowChangeEvent(CType(e.Row,historyRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleted(e) + If (Not (Me.historyRowDeletedEvent) Is Nothing) Then + RaiseEvent historyRowDeleted(Me, New historyRowChangeEvent(CType(e.Row,historyRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleting(e) + If (Not (Me.historyRowDeletingEvent) Is Nothing) Then + RaiseEvent historyRowDeleting(Me, New historyRowChangeEvent(CType(e.Row,historyRow), e.Action)) + End If + End Sub + + _ + Public Sub RemovehistoryRow(ByVal row As historyRow) + 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 DS2 = New DS2() + 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 = "historyDataTable" + 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. + ''' + Partial Public Class historyRow + Inherits Global.System.Data.DataRow + + Private tablehistory As historyDataTable + + _ + Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) + MyBase.New(rb) + Me.tablehistory = CType(Me.Table,historyDataTable) + End Sub + + _ + Public Property time() As String + Get + If Me.IstimeNull Then + Return "" + Else + Return CType(Me(Me.tablehistory.timeColumn),String) + End If + End Get + Set + Me(Me.tablehistory.timeColumn) = value + End Set + End Property + + _ + Public Property tablename() As String + Get + If Me.IstablenameNull Then + Return "" + Else + Return CType(Me(Me.tablehistory.tablenameColumn),String) + End If + End Get + Set + Me(Me.tablehistory.tablenameColumn) = value + End Set + End Property + + _ + Public Property column() As String + Get + If Me.IscolumnNull Then + Return "" + Else + Return CType(Me(Me.tablehistory.columnColumn),String) + End If + End Get + Set + Me(Me.tablehistory.columnColumn) = value + End Set + End Property + + _ + Public Property ovalue() As String + Get + If Me.IsovalueNull Then + Return "" + Else + Return CType(Me(Me.tablehistory.ovalueColumn),String) + End If + End Get + Set + Me(Me.tablehistory.ovalueColumn) = value + End Set + End Property + + _ + Public Property nvalue() As String + Get + If Me.IsnvalueNull Then + Return "" + Else + Return CType(Me(Me.tablehistory.nvalueColumn),String) + End If + End Get + Set + Me(Me.tablehistory.nvalueColumn) = value + End Set + End Property + + _ + Public Property idx() As Integer + Get + Return CType(Me(Me.tablehistory.idxColumn),Integer) + End Get + Set + Me(Me.tablehistory.idxColumn) = value + End Set + End Property + + _ + Public Property code() As String + Get + If Me.IscodeNull Then + Return "" + Else + Return CType(Me(Me.tablehistory.codeColumn),String) + End If + End Get + Set + Me(Me.tablehistory.codeColumn) = value + End Set + End Property + + _ + Public Function IstimeNull() As Boolean + Return Me.IsNull(Me.tablehistory.timeColumn) + End Function + + _ + Public Sub SettimeNull() + Me(Me.tablehistory.timeColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IstablenameNull() As Boolean + Return Me.IsNull(Me.tablehistory.tablenameColumn) + End Function + + _ + Public Sub SettablenameNull() + Me(Me.tablehistory.tablenameColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IscolumnNull() As Boolean + Return Me.IsNull(Me.tablehistory.columnColumn) + End Function + + _ + Public Sub SetcolumnNull() + Me(Me.tablehistory.columnColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsovalueNull() As Boolean + Return Me.IsNull(Me.tablehistory.ovalueColumn) + End Function + + _ + Public Sub SetovalueNull() + Me(Me.tablehistory.ovalueColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsnvalueNull() As Boolean + Return Me.IsNull(Me.tablehistory.nvalueColumn) + End Function + + _ + Public Sub SetnvalueNull() + Me(Me.tablehistory.nvalueColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IscodeNull() As Boolean + Return Me.IsNull(Me.tablehistory.codeColumn) + End Function + + _ + Public Sub SetcodeNull() + Me(Me.tablehistory.codeColumn) = Global.System.Convert.DBNull + End Sub + End Class + + ''' + '''Row event argument class + ''' + _ + Public Class historyRowChangeEvent + Inherits Global.System.EventArgs + + Private eventRow As historyRow + + Private eventAction As Global.System.Data.DataRowAction + + _ + Public Sub New(ByVal row As historyRow, ByVal action As Global.System.Data.DataRowAction) + MyBase.New + Me.eventRow = row + Me.eventAction = action + End Sub + + _ + Public ReadOnly Property Row() As historyRow + 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 diff --git a/ArinWarev1/DataSet/DS2.xsc b/ArinWarev1/DataSet/DS2.xsc new file mode 100644 index 0000000..05b0199 --- /dev/null +++ b/ArinWarev1/DataSet/DS2.xsc @@ -0,0 +1,9 @@ + + + + + \ No newline at end of file diff --git a/ArinWarev1/DataSet/DS2.xsd b/ArinWarev1/DataSet/DS2.xsd new file mode 100644 index 0000000..4b46426 --- /dev/null +++ b/ArinWarev1/DataSet/DS2.xsd @@ -0,0 +1,31 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + \ No newline at end of file diff --git a/ArinWarev1/DataSet/DS2.xss b/ArinWarev1/DataSet/DS2.xss new file mode 100644 index 0000000..4373580 --- /dev/null +++ b/ArinWarev1/DataSet/DS2.xss @@ -0,0 +1,12 @@ + + + + + + + + \ No newline at end of file diff --git a/ArinWarev1/DataSet/DSR.Designer.vb b/ArinWarev1/DataSet/DSR.Designer.vb new file mode 100644 index 0000000..d74157b --- /dev/null +++ b/ArinWarev1/DataSet/DSR.Designer.vb @@ -0,0 +1,14001 @@ +'------------------------------------------------------------------------------ +' +' 이 코드는 도구를 사용하여 생성되었습니다. +' 런타임 버전:4.0.30319.42000 +' +' 파일 내용을 변경하면 잘못된 동작이 발생할 수 있으며, 코드를 다시 생성하면 +' 이러한 변경 내용이 손실됩니다. +' +'------------------------------------------------------------------------------ + +Option Strict Off +Option Explicit On + + + +''' +'''Represents a strongly typed in-memory cache of data. +''' + _ +Partial Public Class DSR + Inherits Global.System.Data.DataSet + + Private table최대냉난방부하 As 최대냉난방부하DataTable + + Private table월별에너지분석 As 월별에너지분석DataTable + + Private tableTReqUse As TReqUseDataTable + + Private tableGraph_Req As Graph_ReqDataTable + + Private tableGraph_ReqUse As Graph_ReqUseDataTable + + Private tableGraph_Info As Graph_InfoDataTable + + Private table사용면적 As 사용면적DataTable + + Private table에너지소요량 As 에너지소요량DataTable + + Private table에너지소요량1 As 에너지소요량1DataTable + + Private table생산에너지 As 생산에너지DataTable + + Private tableGraph_Info_data As Graph_Info_dataDataTable + + Private tablePyonga_REQ As Pyonga_REQDataTable + + Private tablePyonga_USE As Pyonga_USEDataTable + + Private tablePyonga_1USE As Pyonga_1USEDataTable + + Private tablePyonga_YK As Pyonga_YKDataTable + + Private table월별1차에너지사용량 As 월별1차에너지사용량DataTable + + Private table설계계산결과 As 설계계산결과DataTable + + Private table설계계산파라미터 As 설계계산파라미터DataTable + + Private _schemaSerializationMode As Global.System.Data.SchemaSerializationMode = Global.System.Data.SchemaSerializationMode.IncludeSchema + + _ + Public Sub New() + MyBase.New + Me.BeginInit + Me.InitClass + Dim schemaChangedHandler As Global.System.ComponentModel.CollectionChangeEventHandler = AddressOf Me.SchemaChanged + AddHandler MyBase.Tables.CollectionChanged, schemaChangedHandler + AddHandler MyBase.Relations.CollectionChanged, schemaChangedHandler + Me.EndInit + 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, false) + If (Me.IsBinarySerialized(info, context) = true) Then + Me.InitVars(false) + Dim schemaChangedHandler1 As Global.System.ComponentModel.CollectionChangeEventHandler = AddressOf Me.SchemaChanged + AddHandler Me.Tables.CollectionChanged, schemaChangedHandler1 + AddHandler Me.Relations.CollectionChanged, schemaChangedHandler1 + Return + End If + Dim strSchema As String = CType(info.GetValue("XmlSchema", GetType(String)),String) + If (Me.DetermineSchemaSerializationMode(info, context) = Global.System.Data.SchemaSerializationMode.IncludeSchema) Then + Dim ds As Global.System.Data.DataSet = New Global.System.Data.DataSet() + ds.ReadXmlSchema(New Global.System.Xml.XmlTextReader(New Global.System.IO.StringReader(strSchema))) + If (Not (ds.Tables("최대냉난방부하")) Is Nothing) Then + MyBase.Tables.Add(New 최대냉난방부하DataTable(ds.Tables("최대냉난방부하"))) + End If + If (Not (ds.Tables("월별에너지분석")) Is Nothing) Then + MyBase.Tables.Add(New 월별에너지분석DataTable(ds.Tables("월별에너지분석"))) + End If + If (Not (ds.Tables("TReqUse")) Is Nothing) Then + MyBase.Tables.Add(New TReqUseDataTable(ds.Tables("TReqUse"))) + End If + If (Not (ds.Tables("Graph_Req")) Is Nothing) Then + MyBase.Tables.Add(New Graph_ReqDataTable(ds.Tables("Graph_Req"))) + End If + If (Not (ds.Tables("Graph_ReqUse")) Is Nothing) Then + MyBase.Tables.Add(New Graph_ReqUseDataTable(ds.Tables("Graph_ReqUse"))) + End If + If (Not (ds.Tables("Graph_Info")) Is Nothing) Then + MyBase.Tables.Add(New Graph_InfoDataTable(ds.Tables("Graph_Info"))) + End If + If (Not (ds.Tables("사용면적")) Is Nothing) Then + MyBase.Tables.Add(New 사용면적DataTable(ds.Tables("사용면적"))) + End If + If (Not (ds.Tables("에너지소요량")) Is Nothing) Then + MyBase.Tables.Add(New 에너지소요량DataTable(ds.Tables("에너지소요량"))) + End If + If (Not (ds.Tables("에너지소요량1")) Is Nothing) Then + MyBase.Tables.Add(New 에너지소요량1DataTable(ds.Tables("에너지소요량1"))) + End If + If (Not (ds.Tables("생산에너지")) Is Nothing) Then + MyBase.Tables.Add(New 생산에너지DataTable(ds.Tables("생산에너지"))) + End If + If (Not (ds.Tables("Graph_Info_data")) Is Nothing) Then + MyBase.Tables.Add(New Graph_Info_dataDataTable(ds.Tables("Graph_Info_data"))) + End If + If (Not (ds.Tables("Pyonga_REQ")) Is Nothing) Then + MyBase.Tables.Add(New Pyonga_REQDataTable(ds.Tables("Pyonga_REQ"))) + End If + If (Not (ds.Tables("Pyonga_USE")) Is Nothing) Then + MyBase.Tables.Add(New Pyonga_USEDataTable(ds.Tables("Pyonga_USE"))) + End If + If (Not (ds.Tables("Pyonga_1USE")) Is Nothing) Then + MyBase.Tables.Add(New Pyonga_1USEDataTable(ds.Tables("Pyonga_1USE"))) + End If + If (Not (ds.Tables("Pyonga_YK")) Is Nothing) Then + MyBase.Tables.Add(New Pyonga_YKDataTable(ds.Tables("Pyonga_YK"))) + End If + If (Not (ds.Tables("월별1차에너지사용량")) Is Nothing) Then + MyBase.Tables.Add(New 월별1차에너지사용량DataTable(ds.Tables("월별1차에너지사용량"))) + End If + If (Not (ds.Tables("설계계산결과")) Is Nothing) Then + MyBase.Tables.Add(New 설계계산결과DataTable(ds.Tables("설계계산결과"))) + End If + If (Not (ds.Tables("설계계산파라미터")) Is Nothing) Then + MyBase.Tables.Add(New 설계계산파라미터DataTable(ds.Tables("설계계산파라미터"))) + End If + Me.DataSetName = ds.DataSetName + Me.Prefix = ds.Prefix + Me.Namespace = ds.Namespace + Me.Locale = ds.Locale + Me.CaseSensitive = ds.CaseSensitive + Me.EnforceConstraints = ds.EnforceConstraints + Me.Merge(ds, false, Global.System.Data.MissingSchemaAction.Add) + Me.InitVars + Else + Me.ReadXmlSchema(New Global.System.Xml.XmlTextReader(New Global.System.IO.StringReader(strSchema))) + End If + Me.GetSerializationData(info, context) + Dim schemaChangedHandler As Global.System.ComponentModel.CollectionChangeEventHandler = AddressOf Me.SchemaChanged + AddHandler MyBase.Tables.CollectionChanged, schemaChangedHandler + AddHandler Me.Relations.CollectionChanged, schemaChangedHandler + End Sub + + _ + Public ReadOnly Property 최대냉난방부하() As 최대냉난방부하DataTable + Get + Return Me.table최대냉난방부하 + End Get + End Property + + _ + Public ReadOnly Property 월별에너지분석() As 월별에너지분석DataTable + Get + Return Me.table월별에너지분석 + End Get + End Property + + _ + Public ReadOnly Property TReqUse() As TReqUseDataTable + Get + Return Me.tableTReqUse + End Get + End Property + + _ + Public ReadOnly Property Graph_Req() As Graph_ReqDataTable + Get + Return Me.tableGraph_Req + End Get + End Property + + _ + Public ReadOnly Property Graph_ReqUse() As Graph_ReqUseDataTable + Get + Return Me.tableGraph_ReqUse + End Get + End Property + + _ + Public ReadOnly Property Graph_Info() As Graph_InfoDataTable + Get + Return Me.tableGraph_Info + End Get + End Property + + _ + Public ReadOnly Property 사용면적() As 사용면적DataTable + Get + Return Me.table사용면적 + End Get + End Property + + _ + Public ReadOnly Property 에너지소요량() As 에너지소요량DataTable + Get + Return Me.table에너지소요량 + End Get + End Property + + _ + Public ReadOnly Property 에너지소요량1() As 에너지소요량1DataTable + Get + Return Me.table에너지소요량1 + End Get + End Property + + _ + Public ReadOnly Property 생산에너지() As 생산에너지DataTable + Get + Return Me.table생산에너지 + End Get + End Property + + _ + Public ReadOnly Property Graph_Info_data() As Graph_Info_dataDataTable + Get + Return Me.tableGraph_Info_data + End Get + End Property + + _ + Public ReadOnly Property Pyonga_REQ() As Pyonga_REQDataTable + Get + Return Me.tablePyonga_REQ + End Get + End Property + + _ + Public ReadOnly Property Pyonga_USE() As Pyonga_USEDataTable + Get + Return Me.tablePyonga_USE + End Get + End Property + + _ + Public ReadOnly Property Pyonga_1USE() As Pyonga_1USEDataTable + Get + Return Me.tablePyonga_1USE + End Get + End Property + + _ + Public ReadOnly Property Pyonga_YK() As Pyonga_YKDataTable + Get + Return Me.tablePyonga_YK + End Get + End Property + + _ + Public ReadOnly Property 월별1차에너지사용량() As 월별1차에너지사용량DataTable + Get + Return Me.table월별1차에너지사용량 + End Get + End Property + + _ + Public ReadOnly Property 설계계산결과() As 설계계산결과DataTable + Get + Return Me.table설계계산결과 + End Get + End Property + + _ + Public ReadOnly Property 설계계산파라미터() As 설계계산파라미터DataTable + Get + Return Me.table설계계산파라미터 + End Get + End Property + + _ + Public Overrides Property SchemaSerializationMode() As Global.System.Data.SchemaSerializationMode + Get + Return Me._schemaSerializationMode + End Get + Set + Me._schemaSerializationMode = value + End Set + End Property + + _ + Public Shadows ReadOnly Property Tables() As Global.System.Data.DataTableCollection + Get + Return MyBase.Tables + End Get + End Property + + _ + Public Shadows ReadOnly Property Relations() As Global.System.Data.DataRelationCollection + Get + Return MyBase.Relations + End Get + End Property + + _ + Protected Overrides Sub InitializeDerivedDataSet() + Me.BeginInit + Me.InitClass + Me.EndInit + End Sub + + _ + Public Overrides Function Clone() As Global.System.Data.DataSet + Dim cln As DSR = CType(MyBase.Clone,DSR) + cln.InitVars + cln.SchemaSerializationMode = Me.SchemaSerializationMode + Return cln + End Function + + _ + Protected Overrides Function ShouldSerializeTables() As Boolean + Return false + End Function + + _ + Protected Overrides Function ShouldSerializeRelations() As Boolean + Return false + End Function + + _ + Protected Overrides Sub ReadXmlSerializable(ByVal reader As Global.System.Xml.XmlReader) + If (Me.DetermineSchemaSerializationMode(reader) = Global.System.Data.SchemaSerializationMode.IncludeSchema) Then + Me.Reset + Dim ds As Global.System.Data.DataSet = New Global.System.Data.DataSet() + ds.ReadXml(reader) + If (Not (ds.Tables("최대냉난방부하")) Is Nothing) Then + MyBase.Tables.Add(New 최대냉난방부하DataTable(ds.Tables("최대냉난방부하"))) + End If + If (Not (ds.Tables("월별에너지분석")) Is Nothing) Then + MyBase.Tables.Add(New 월별에너지분석DataTable(ds.Tables("월별에너지분석"))) + End If + If (Not (ds.Tables("TReqUse")) Is Nothing) Then + MyBase.Tables.Add(New TReqUseDataTable(ds.Tables("TReqUse"))) + End If + If (Not (ds.Tables("Graph_Req")) Is Nothing) Then + MyBase.Tables.Add(New Graph_ReqDataTable(ds.Tables("Graph_Req"))) + End If + If (Not (ds.Tables("Graph_ReqUse")) Is Nothing) Then + MyBase.Tables.Add(New Graph_ReqUseDataTable(ds.Tables("Graph_ReqUse"))) + End If + If (Not (ds.Tables("Graph_Info")) Is Nothing) Then + MyBase.Tables.Add(New Graph_InfoDataTable(ds.Tables("Graph_Info"))) + End If + If (Not (ds.Tables("사용면적")) Is Nothing) Then + MyBase.Tables.Add(New 사용면적DataTable(ds.Tables("사용면적"))) + End If + If (Not (ds.Tables("에너지소요량")) Is Nothing) Then + MyBase.Tables.Add(New 에너지소요량DataTable(ds.Tables("에너지소요량"))) + End If + If (Not (ds.Tables("에너지소요량1")) Is Nothing) Then + MyBase.Tables.Add(New 에너지소요량1DataTable(ds.Tables("에너지소요량1"))) + End If + If (Not (ds.Tables("생산에너지")) Is Nothing) Then + MyBase.Tables.Add(New 생산에너지DataTable(ds.Tables("생산에너지"))) + End If + If (Not (ds.Tables("Graph_Info_data")) Is Nothing) Then + MyBase.Tables.Add(New Graph_Info_dataDataTable(ds.Tables("Graph_Info_data"))) + End If + If (Not (ds.Tables("Pyonga_REQ")) Is Nothing) Then + MyBase.Tables.Add(New Pyonga_REQDataTable(ds.Tables("Pyonga_REQ"))) + End If + If (Not (ds.Tables("Pyonga_USE")) Is Nothing) Then + MyBase.Tables.Add(New Pyonga_USEDataTable(ds.Tables("Pyonga_USE"))) + End If + If (Not (ds.Tables("Pyonga_1USE")) Is Nothing) Then + MyBase.Tables.Add(New Pyonga_1USEDataTable(ds.Tables("Pyonga_1USE"))) + End If + If (Not (ds.Tables("Pyonga_YK")) Is Nothing) Then + MyBase.Tables.Add(New Pyonga_YKDataTable(ds.Tables("Pyonga_YK"))) + End If + If (Not (ds.Tables("월별1차에너지사용량")) Is Nothing) Then + MyBase.Tables.Add(New 월별1차에너지사용량DataTable(ds.Tables("월별1차에너지사용량"))) + End If + If (Not (ds.Tables("설계계산결과")) Is Nothing) Then + MyBase.Tables.Add(New 설계계산결과DataTable(ds.Tables("설계계산결과"))) + End If + If (Not (ds.Tables("설계계산파라미터")) Is Nothing) Then + MyBase.Tables.Add(New 설계계산파라미터DataTable(ds.Tables("설계계산파라미터"))) + End If + Me.DataSetName = ds.DataSetName + Me.Prefix = ds.Prefix + Me.Namespace = ds.Namespace + Me.Locale = ds.Locale + Me.CaseSensitive = ds.CaseSensitive + Me.EnforceConstraints = ds.EnforceConstraints + Me.Merge(ds, false, Global.System.Data.MissingSchemaAction.Add) + Me.InitVars + Else + Me.ReadXml(reader) + Me.InitVars + End If + End Sub + + _ + Protected Overrides Function GetSchemaSerializable() As Global.System.Xml.Schema.XmlSchema + Dim stream As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() + Me.WriteXmlSchema(New Global.System.Xml.XmlTextWriter(stream, Nothing)) + stream.Position = 0 + Return Global.System.Xml.Schema.XmlSchema.Read(New Global.System.Xml.XmlTextReader(stream), Nothing) + End Function + + _ + Friend Overloads Sub InitVars() + Me.InitVars(true) + End Sub + + _ + Friend Overloads Sub InitVars(ByVal initTable As Boolean) + Me.table최대냉난방부하 = CType(MyBase.Tables("최대냉난방부하"),최대냉난방부하DataTable) + If (initTable = true) Then + If (Not (Me.table최대냉난방부하) Is Nothing) Then + Me.table최대냉난방부하.InitVars + End If + End If + Me.table월별에너지분석 = CType(MyBase.Tables("월별에너지분석"),월별에너지분석DataTable) + If (initTable = true) Then + If (Not (Me.table월별에너지분석) Is Nothing) Then + Me.table월별에너지분석.InitVars + End If + End If + Me.tableTReqUse = CType(MyBase.Tables("TReqUse"),TReqUseDataTable) + If (initTable = true) Then + If (Not (Me.tableTReqUse) Is Nothing) Then + Me.tableTReqUse.InitVars + End If + End If + Me.tableGraph_Req = CType(MyBase.Tables("Graph_Req"),Graph_ReqDataTable) + If (initTable = true) Then + If (Not (Me.tableGraph_Req) Is Nothing) Then + Me.tableGraph_Req.InitVars + End If + End If + Me.tableGraph_ReqUse = CType(MyBase.Tables("Graph_ReqUse"),Graph_ReqUseDataTable) + If (initTable = true) Then + If (Not (Me.tableGraph_ReqUse) Is Nothing) Then + Me.tableGraph_ReqUse.InitVars + End If + End If + Me.tableGraph_Info = CType(MyBase.Tables("Graph_Info"),Graph_InfoDataTable) + If (initTable = true) Then + If (Not (Me.tableGraph_Info) Is Nothing) Then + Me.tableGraph_Info.InitVars + End If + End If + Me.table사용면적 = CType(MyBase.Tables("사용면적"),사용면적DataTable) + If (initTable = true) Then + If (Not (Me.table사용면적) Is Nothing) Then + Me.table사용면적.InitVars + End If + End If + Me.table에너지소요량 = CType(MyBase.Tables("에너지소요량"),에너지소요량DataTable) + If (initTable = true) Then + If (Not (Me.table에너지소요량) Is Nothing) Then + Me.table에너지소요량.InitVars + End If + End If + Me.table에너지소요량1 = CType(MyBase.Tables("에너지소요량1"),에너지소요량1DataTable) + If (initTable = true) Then + If (Not (Me.table에너지소요량1) Is Nothing) Then + Me.table에너지소요량1.InitVars + End If + End If + Me.table생산에너지 = CType(MyBase.Tables("생산에너지"),생산에너지DataTable) + If (initTable = true) Then + If (Not (Me.table생산에너지) Is Nothing) Then + Me.table생산에너지.InitVars + End If + End If + Me.tableGraph_Info_data = CType(MyBase.Tables("Graph_Info_data"),Graph_Info_dataDataTable) + If (initTable = true) Then + If (Not (Me.tableGraph_Info_data) Is Nothing) Then + Me.tableGraph_Info_data.InitVars + End If + End If + Me.tablePyonga_REQ = CType(MyBase.Tables("Pyonga_REQ"),Pyonga_REQDataTable) + If (initTable = true) Then + If (Not (Me.tablePyonga_REQ) Is Nothing) Then + Me.tablePyonga_REQ.InitVars + End If + End If + Me.tablePyonga_USE = CType(MyBase.Tables("Pyonga_USE"),Pyonga_USEDataTable) + If (initTable = true) Then + If (Not (Me.tablePyonga_USE) Is Nothing) Then + Me.tablePyonga_USE.InitVars + End If + End If + Me.tablePyonga_1USE = CType(MyBase.Tables("Pyonga_1USE"),Pyonga_1USEDataTable) + If (initTable = true) Then + If (Not (Me.tablePyonga_1USE) Is Nothing) Then + Me.tablePyonga_1USE.InitVars + End If + End If + Me.tablePyonga_YK = CType(MyBase.Tables("Pyonga_YK"),Pyonga_YKDataTable) + If (initTable = true) Then + If (Not (Me.tablePyonga_YK) Is Nothing) Then + Me.tablePyonga_YK.InitVars + End If + End If + Me.table월별1차에너지사용량 = CType(MyBase.Tables("월별1차에너지사용량"),월별1차에너지사용량DataTable) + If (initTable = true) Then + If (Not (Me.table월별1차에너지사용량) Is Nothing) Then + Me.table월별1차에너지사용량.InitVars + End If + End If + Me.table설계계산결과 = CType(MyBase.Tables("설계계산결과"),설계계산결과DataTable) + If (initTable = true) Then + If (Not (Me.table설계계산결과) Is Nothing) Then + Me.table설계계산결과.InitVars + End If + End If + Me.table설계계산파라미터 = CType(MyBase.Tables("설계계산파라미터"),설계계산파라미터DataTable) + If (initTable = true) Then + If (Not (Me.table설계계산파라미터) Is Nothing) Then + Me.table설계계산파라미터.InitVars + End If + End If + End Sub + + _ + Private Sub InitClass() + Me.DataSetName = "DSR" + Me.Prefix = "" + Me.Namespace = "http://tempuri.org/DSR.xsd" + Me.EnforceConstraints = true + Me.SchemaSerializationMode = Global.System.Data.SchemaSerializationMode.IncludeSchema + Me.table최대냉난방부하 = New 최대냉난방부하DataTable() + MyBase.Tables.Add(Me.table최대냉난방부하) + Me.table월별에너지분석 = New 월별에너지분석DataTable() + MyBase.Tables.Add(Me.table월별에너지분석) + Me.tableTReqUse = New TReqUseDataTable() + MyBase.Tables.Add(Me.tableTReqUse) + Me.tableGraph_Req = New Graph_ReqDataTable() + MyBase.Tables.Add(Me.tableGraph_Req) + Me.tableGraph_ReqUse = New Graph_ReqUseDataTable() + MyBase.Tables.Add(Me.tableGraph_ReqUse) + Me.tableGraph_Info = New Graph_InfoDataTable() + MyBase.Tables.Add(Me.tableGraph_Info) + Me.table사용면적 = New 사용면적DataTable() + MyBase.Tables.Add(Me.table사용면적) + Me.table에너지소요량 = New 에너지소요량DataTable() + MyBase.Tables.Add(Me.table에너지소요량) + Me.table에너지소요량1 = New 에너지소요량1DataTable() + MyBase.Tables.Add(Me.table에너지소요량1) + Me.table생산에너지 = New 생산에너지DataTable() + MyBase.Tables.Add(Me.table생산에너지) + Me.tableGraph_Info_data = New Graph_Info_dataDataTable() + MyBase.Tables.Add(Me.tableGraph_Info_data) + Me.tablePyonga_REQ = New Pyonga_REQDataTable() + MyBase.Tables.Add(Me.tablePyonga_REQ) + Me.tablePyonga_USE = New Pyonga_USEDataTable() + MyBase.Tables.Add(Me.tablePyonga_USE) + Me.tablePyonga_1USE = New Pyonga_1USEDataTable() + MyBase.Tables.Add(Me.tablePyonga_1USE) + Me.tablePyonga_YK = New Pyonga_YKDataTable() + MyBase.Tables.Add(Me.tablePyonga_YK) + Me.table월별1차에너지사용량 = New 월별1차에너지사용량DataTable() + MyBase.Tables.Add(Me.table월별1차에너지사용량) + Me.table설계계산결과 = New 설계계산결과DataTable() + MyBase.Tables.Add(Me.table설계계산결과) + Me.table설계계산파라미터 = New 설계계산파라미터DataTable() + MyBase.Tables.Add(Me.table설계계산파라미터) + End Sub + + _ + Private Function ShouldSerialize최대냉난방부하() As Boolean + Return false + End Function + + _ + Private Function ShouldSerialize월별에너지분석() As Boolean + Return false + End Function + + _ + Private Function ShouldSerializeTReqUse() As Boolean + Return false + End Function + + _ + Private Function ShouldSerializeGraph_Req() As Boolean + Return false + End Function + + _ + Private Function ShouldSerializeGraph_ReqUse() As Boolean + Return false + End Function + + _ + Private Function ShouldSerializeGraph_Info() As Boolean + Return false + End Function + + _ + Private Function ShouldSerialize사용면적() As Boolean + Return false + End Function + + _ + Private Function ShouldSerialize에너지소요량() As Boolean + Return false + End Function + + _ + Private Function ShouldSerialize에너지소요량1() As Boolean + Return false + End Function + + _ + Private Function ShouldSerialize생산에너지() As Boolean + Return false + End Function + + _ + Private Function ShouldSerializeGraph_Info_data() As Boolean + Return false + End Function + + _ + Private Function ShouldSerializePyonga_REQ() As Boolean + Return false + End Function + + _ + Private Function ShouldSerializePyonga_USE() As Boolean + Return false + End Function + + _ + Private Function ShouldSerializePyonga_1USE() As Boolean + Return false + End Function + + _ + Private Function ShouldSerializePyonga_YK() As Boolean + Return false + End Function + + _ + Private Function ShouldSerialize월별1차에너지사용량() As Boolean + Return false + End Function + + _ + Private Function ShouldSerialize설계계산결과() As Boolean + Return false + End Function + + _ + Private Function ShouldSerialize설계계산파라미터() As Boolean + Return false + End Function + + _ + Private Sub SchemaChanged(ByVal sender As Object, ByVal e As Global.System.ComponentModel.CollectionChangeEventArgs) + If (e.Action = Global.System.ComponentModel.CollectionChangeAction.Remove) Then + Me.InitVars + End If + End Sub + + _ + Public Shared Function GetTypedDataSetSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType + Dim ds As DSR = New DSR() + 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 any As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() + any.Namespace = ds.Namespace + sequence.Items.Add(any) + 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 + + _ + Public Delegate Sub 최대냉난방부하RowChangeEventHandler(ByVal sender As Object, ByVal e As 최대냉난방부하RowChangeEvent) + + _ + Public Delegate Sub 월별에너지분석RowChangeEventHandler(ByVal sender As Object, ByVal e As 월별에너지분석RowChangeEvent) + + _ + Public Delegate Sub TReqUseRowChangeEventHandler(ByVal sender As Object, ByVal e As TReqUseRowChangeEvent) + + _ + Public Delegate Sub Graph_ReqRowChangeEventHandler(ByVal sender As Object, ByVal e As Graph_ReqRowChangeEvent) + + _ + Public Delegate Sub Graph_ReqUseRowChangeEventHandler(ByVal sender As Object, ByVal e As Graph_ReqUseRowChangeEvent) + + _ + Public Delegate Sub Graph_InfoRowChangeEventHandler(ByVal sender As Object, ByVal e As Graph_InfoRowChangeEvent) + + _ + Public Delegate Sub 사용면적RowChangeEventHandler(ByVal sender As Object, ByVal e As 사용면적RowChangeEvent) + + _ + Public Delegate Sub 에너지소요량RowChangeEventHandler(ByVal sender As Object, ByVal e As 에너지소요량RowChangeEvent) + + _ + Public Delegate Sub 에너지소요량1RowChangeEventHandler(ByVal sender As Object, ByVal e As 에너지소요량1RowChangeEvent) + + _ + Public Delegate Sub 생산에너지RowChangeEventHandler(ByVal sender As Object, ByVal e As 생산에너지RowChangeEvent) + + _ + Public Delegate Sub Graph_Info_dataRowChangeEventHandler(ByVal sender As Object, ByVal e As Graph_Info_dataRowChangeEvent) + + _ + Public Delegate Sub Pyonga_REQRowChangeEventHandler(ByVal sender As Object, ByVal e As Pyonga_REQRowChangeEvent) + + _ + Public Delegate Sub Pyonga_USERowChangeEventHandler(ByVal sender As Object, ByVal e As Pyonga_USERowChangeEvent) + + _ + Public Delegate Sub Pyonga_1USERowChangeEventHandler(ByVal sender As Object, ByVal e As Pyonga_1USERowChangeEvent) + + _ + Public Delegate Sub Pyonga_YKRowChangeEventHandler(ByVal sender As Object, ByVal e As Pyonga_YKRowChangeEvent) + + _ + Public Delegate Sub 월별1차에너지사용량RowChangeEventHandler(ByVal sender As Object, ByVal e As 월별1차에너지사용량RowChangeEvent) + + _ + Public Delegate Sub 설계계산결과RowChangeEventHandler(ByVal sender As Object, ByVal e As 설계계산결과RowChangeEvent) + + _ + Public Delegate Sub 설계계산파라미터RowChangeEventHandler(ByVal sender As Object, ByVal e As 설계계산파라미터RowChangeEvent) + + ''' + '''Represents the strongly named DataTable class. + ''' + _ + Partial Public Class 최대냉난방부하DataTable + Inherits Global.System.Data.TypedTableBase(Of 최대냉난방부하Row) + + Private columnZone As Global.System.Data.DataColumn + + Private column최대난방기기부하 As Global.System.Data.DataColumn + + Private column최대난방실내부하 As Global.System.Data.DataColumn + + Private column난방최대가동시간 As Global.System.Data.DataColumn + + Private column최대가열성능 As Global.System.Data.DataColumn + + Private column최대냉방기기부하 As Global.System.Data.DataColumn + + Private column최대냉방실내부하 As Global.System.Data.DataColumn + + Private column냉방최대가동시간 As Global.System.Data.DataColumn + + Private column최대냉각성능 As Global.System.Data.DataColumn + + Private column최대가습성능 As Global.System.Data.DataColumn + + Private column공조풍량 As Global.System.Data.DataColumn + + _ + Public Sub New() + MyBase.New + Me.TableName = "최대냉난방부하" + 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 ZoneColumn() As Global.System.Data.DataColumn + Get + Return Me.columnZone + 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 최대냉방기기부하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 최대가습성능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 Count() As Integer + Get + Return Me.Rows.Count + End Get + End Property + + _ + Public Default ReadOnly Property Item(ByVal index As Integer) As 최대냉난방부하Row + Get + Return CType(Me.Rows(index),최대냉난방부하Row) + End Get + End Property + + _ + Public Event 최대냉난방부하RowChanging As 최대냉난방부하RowChangeEventHandler + + _ + Public Event 최대냉난방부하RowChanged As 최대냉난방부하RowChangeEventHandler + + _ + Public Event 최대냉난방부하RowDeleting As 최대냉난방부하RowChangeEventHandler + + _ + Public Event 최대냉난방부하RowDeleted As 최대냉난방부하RowChangeEventHandler + + _ + Public Overloads Sub Add최대냉난방부하Row(ByVal row As 최대냉난방부하Row) + Me.Rows.Add(row) + End Sub + + _ + Public Overloads Function Add최대냉난방부하Row(ByVal Zone As String, ByVal 최대난방기기부하 As Decimal, ByVal 최대난방실내부하 As Decimal, ByVal 난방최대가동시간 As Decimal, ByVal 최대가열성능 As Decimal, ByVal 최대냉방기기부하 As Decimal, ByVal 최대냉방실내부하 As Decimal, ByVal 냉방최대가동시간 As Decimal, ByVal 최대냉각성능 As Decimal, ByVal 최대가습성능 As Decimal, ByVal 공조풍량 As Decimal) As 최대냉난방부하Row + Dim row최대냉난방부하Row As 최대냉난방부하Row = CType(Me.NewRow,최대냉난방부하Row) + Dim columnValuesArray() As Object = New Object() {Zone, 최대난방기기부하, 최대난방실내부하, 난방최대가동시간, 최대가열성능, 최대냉방기기부하, 최대냉방실내부하, 냉방최대가동시간, 최대냉각성능, 최대가습성능, 공조풍량} + row최대냉난방부하Row.ItemArray = columnValuesArray + Me.Rows.Add(row최대냉난방부하Row) + Return row최대냉난방부하Row + End Function + + _ + Public Overrides Function Clone() As Global.System.Data.DataTable + Dim cln As 최대냉난방부하DataTable = CType(MyBase.Clone,최대냉난방부하DataTable) + cln.InitVars + Return cln + End Function + + _ + Protected Overrides Function CreateInstance() As Global.System.Data.DataTable + Return New 최대냉난방부하DataTable() + End Function + + _ + Friend Sub InitVars() + Me.columnZone = MyBase.Columns("Zone") + Me.column최대난방기기부하 = MyBase.Columns("최대난방기기부하") + Me.column최대난방실내부하 = MyBase.Columns("최대난방실내부하") + Me.column난방최대가동시간 = MyBase.Columns("난방최대가동시간") + Me.column최대가열성능 = MyBase.Columns("최대가열성능") + Me.column최대냉방기기부하 = MyBase.Columns("최대냉방기기부하") + Me.column최대냉방실내부하 = MyBase.Columns("최대냉방실내부하") + Me.column냉방최대가동시간 = MyBase.Columns("냉방최대가동시간") + Me.column최대냉각성능 = MyBase.Columns("최대냉각성능") + Me.column최대가습성능 = MyBase.Columns("최대가습성능") + Me.column공조풍량 = MyBase.Columns("공조풍량") + End Sub + + _ + Private Sub InitClass() + Me.columnZone = New Global.System.Data.DataColumn("Zone", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnZone) + Me.column최대난방기기부하 = New Global.System.Data.DataColumn("최대난방기기부하", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column최대난방기기부하) + Me.column최대난방실내부하 = New Global.System.Data.DataColumn("최대난방실내부하", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column최대난방실내부하) + Me.column난방최대가동시간 = New Global.System.Data.DataColumn("난방최대가동시간", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column난방최대가동시간) + Me.column최대가열성능 = New Global.System.Data.DataColumn("최대가열성능", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column최대가열성능) + Me.column최대냉방기기부하 = New Global.System.Data.DataColumn("최대냉방기기부하", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column최대냉방기기부하) + Me.column최대냉방실내부하 = New Global.System.Data.DataColumn("최대냉방실내부하", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column최대냉방실내부하) + Me.column냉방최대가동시간 = New Global.System.Data.DataColumn("냉방최대가동시간", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column냉방최대가동시간) + Me.column최대냉각성능 = New Global.System.Data.DataColumn("최대냉각성능", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column최대냉각성능) + Me.column최대가습성능 = New Global.System.Data.DataColumn("최대가습성능", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column최대가습성능) + Me.column공조풍량 = New Global.System.Data.DataColumn("공조풍량", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column공조풍량) + Me.column최대난방기기부하.DefaultValue = CType(0D,Decimal) + Me.column최대난방실내부하.DefaultValue = CType(0D,Decimal) + Me.column난방최대가동시간.DefaultValue = CType(0D,Decimal) + Me.column최대가열성능.DefaultValue = CType(0D,Decimal) + Me.column최대냉방기기부하.DefaultValue = CType(0D,Decimal) + Me.column최대냉방실내부하.DefaultValue = CType(0D,Decimal) + Me.column냉방최대가동시간.DefaultValue = CType(0D,Decimal) + Me.column최대냉각성능.DefaultValue = CType(0D,Decimal) + Me.column최대가습성능.DefaultValue = CType(0D,Decimal) + Me.column공조풍량.DefaultValue = CType(0D,Decimal) + End Sub + + _ + Public Function New최대냉난방부하Row() As 최대냉난방부하Row + Return CType(Me.NewRow,최대냉난방부하Row) + End Function + + _ + Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow + Return New 최대냉난방부하Row(builder) + End Function + + _ + Protected Overrides Function GetRowType() As Global.System.Type + Return GetType(최대냉난방부하Row) + End Function + + _ + Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanged(e) + If (Not (Me.최대냉난방부하RowChangedEvent) Is Nothing) Then + RaiseEvent 최대냉난방부하RowChanged(Me, New 최대냉난방부하RowChangeEvent(CType(e.Row,최대냉난방부하Row), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanging(e) + If (Not (Me.최대냉난방부하RowChangingEvent) Is Nothing) Then + RaiseEvent 최대냉난방부하RowChanging(Me, New 최대냉난방부하RowChangeEvent(CType(e.Row,최대냉난방부하Row), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleted(e) + If (Not (Me.최대냉난방부하RowDeletedEvent) Is Nothing) Then + RaiseEvent 최대냉난방부하RowDeleted(Me, New 최대냉난방부하RowChangeEvent(CType(e.Row,최대냉난방부하Row), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleting(e) + If (Not (Me.최대냉난방부하RowDeletingEvent) Is Nothing) Then + RaiseEvent 최대냉난방부하RowDeleting(Me, New 최대냉난방부하RowChangeEvent(CType(e.Row,최대냉난방부하Row), e.Action)) + End If + End Sub + + _ + Public Sub Remove최대냉난방부하Row(ByVal row As 최대냉난방부하Row) + 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 DSR = New DSR() + 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 = "최대냉난방부하DataTable" + 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 월별에너지분석DataTable + Inherits Global.System.Data.TypedTableBase(Of 월별에너지분석Row) + + Private column월 As Global.System.Data.DataColumn + + Private column존 As Global.System.Data.DataColumn + + Private column난방요구량열 As Global.System.Data.DataColumn + + Private column난방요구량공조 As Global.System.Data.DataColumn + + Private column냉방요구량열 As Global.System.Data.DataColumn + + Private column냉방요구량공조 As Global.System.Data.DataColumn + + Private column조명요구량 As Global.System.Data.DataColumn + + Private column급탕요구량 As Global.System.Data.DataColumn + + Private column공조풍량 As Global.System.Data.DataColumn + + Private column공조요구량난방 As Global.System.Data.DataColumn + + Private column공조요구량냉방 As Global.System.Data.DataColumn + + Private column공조요구량가습 As Global.System.Data.DataColumn + + Private column환기요구량 As Global.System.Data.DataColumn + + _ + Public Sub New() + MyBase.New + Me.TableName = "월별에너지분석" + 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 월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 냉방요구량열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 공조풍량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 환기요구량Column() As Global.System.Data.DataColumn + Get + Return Me.column환기요구량 + 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 월별에너지분석Row + Get + Return CType(Me.Rows(index),월별에너지분석Row) + End Get + End Property + + _ + Public Event 월별에너지분석RowChanging As 월별에너지분석RowChangeEventHandler + + _ + Public Event 월별에너지분석RowChanged As 월별에너지분석RowChangeEventHandler + + _ + Public Event 월별에너지분석RowDeleting As 월별에너지분석RowChangeEventHandler + + _ + Public Event 월별에너지분석RowDeleted As 월별에너지분석RowChangeEventHandler + + _ + Public Overloads Sub Add월별에너지분석Row(ByVal row As 월별에너지분석Row) + Me.Rows.Add(row) + End Sub + + _ + Public Overloads Function Add월별에너지분석Row(ByVal 월 As String, ByVal 존 As String, ByVal 난방요구량열 As Decimal, ByVal 난방요구량공조 As Decimal, ByVal 냉방요구량열 As Decimal, ByVal 냉방요구량공조 As Decimal, ByVal 조명요구량 As Decimal, ByVal 급탕요구량 As Decimal, ByVal 공조풍량 As Decimal, ByVal 공조요구량난방 As Decimal, ByVal 공조요구량냉방 As Decimal, ByVal 공조요구량가습 As Decimal, ByVal 환기요구량 As Decimal) As 월별에너지분석Row + Dim row월별에너지분석Row As 월별에너지분석Row = CType(Me.NewRow,월별에너지분석Row) + Dim columnValuesArray() As Object = New Object() {월, 존, 난방요구량열, 난방요구량공조, 냉방요구량열, 냉방요구량공조, 조명요구량, 급탕요구량, 공조풍량, 공조요구량난방, 공조요구량냉방, 공조요구량가습, 환기요구량} + row월별에너지분석Row.ItemArray = columnValuesArray + Me.Rows.Add(row월별에너지분석Row) + Return row월별에너지분석Row + End Function + + _ + Public Function FindBy월존(ByVal 월 As String, ByVal 존 As String) As 월별에너지분석Row + Return CType(Me.Rows.Find(New Object() {월, 존}),월별에너지분석Row) + End Function + + _ + Public Overrides Function Clone() As Global.System.Data.DataTable + Dim cln As 월별에너지분석DataTable = CType(MyBase.Clone,월별에너지분석DataTable) + cln.InitVars + Return cln + End Function + + _ + Protected Overrides Function CreateInstance() As Global.System.Data.DataTable + Return New 월별에너지분석DataTable() + End Function + + _ + Friend Sub InitVars() + Me.column월 = MyBase.Columns("월") + Me.column존 = MyBase.Columns("존") + Me.column난방요구량열 = MyBase.Columns("난방요구량열") + Me.column난방요구량공조 = MyBase.Columns("난방요구량공조") + Me.column냉방요구량열 = MyBase.Columns("냉방요구량열") + Me.column냉방요구량공조 = MyBase.Columns("냉방요구량공조") + Me.column조명요구량 = MyBase.Columns("조명요구량") + Me.column급탕요구량 = MyBase.Columns("급탕요구량") + Me.column공조풍량 = MyBase.Columns("공조풍량") + Me.column공조요구량난방 = MyBase.Columns("공조요구량난방") + Me.column공조요구량냉방 = MyBase.Columns("공조요구량냉방") + Me.column공조요구량가습 = MyBase.Columns("공조요구량가습") + Me.column환기요구량 = MyBase.Columns("환기요구량") + End Sub + + _ + Private Sub InitClass() + Me.column월 = New Global.System.Data.DataColumn("월", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column월) + Me.column존 = New Global.System.Data.DataColumn("존", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column존) + Me.column난방요구량열 = New Global.System.Data.DataColumn("난방요구량열", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column난방요구량열) + Me.column난방요구량공조 = New Global.System.Data.DataColumn("난방요구량공조", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column난방요구량공조) + Me.column냉방요구량열 = New Global.System.Data.DataColumn("냉방요구량열", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column냉방요구량열) + Me.column냉방요구량공조 = New Global.System.Data.DataColumn("냉방요구량공조", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column냉방요구량공조) + Me.column조명요구량 = New Global.System.Data.DataColumn("조명요구량", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column조명요구량) + Me.column급탕요구량 = New Global.System.Data.DataColumn("급탕요구량", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column급탕요구량) + Me.column공조풍량 = New Global.System.Data.DataColumn("공조풍량", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column공조풍량) + Me.column공조요구량난방 = New Global.System.Data.DataColumn("공조요구량난방", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column공조요구량난방) + Me.column공조요구량냉방 = New Global.System.Data.DataColumn("공조요구량냉방", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column공조요구량냉방) + Me.column공조요구량가습 = New Global.System.Data.DataColumn("공조요구량가습", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column공조요구량가습) + Me.column환기요구량 = New Global.System.Data.DataColumn("환기요구량", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column환기요구량) + Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.column월, Me.column존}, true)) + Me.column월.AllowDBNull = false + Me.column월.DefaultValue = CType("",String) + Me.column존.AllowDBNull = false + Me.column존.DefaultValue = CType("",String) + Me.column난방요구량열.DefaultValue = CType(0D,Decimal) + Me.column난방요구량공조.DefaultValue = CType(0D,Decimal) + Me.column냉방요구량열.DefaultValue = CType(0D,Decimal) + Me.column냉방요구량공조.DefaultValue = CType(0D,Decimal) + Me.column조명요구량.DefaultValue = CType(0D,Decimal) + Me.column급탕요구량.DefaultValue = CType(0D,Decimal) + Me.column공조풍량.DefaultValue = CType(0D,Decimal) + Me.column공조요구량난방.DefaultValue = CType(0D,Decimal) + Me.column공조요구량냉방.DefaultValue = CType(0D,Decimal) + Me.column공조요구량가습.DefaultValue = CType(0D,Decimal) + Me.column환기요구량.DefaultValue = CType(0D,Decimal) + End Sub + + _ + Public Function New월별에너지분석Row() As 월별에너지분석Row + Return CType(Me.NewRow,월별에너지분석Row) + End Function + + _ + Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow + Return New 월별에너지분석Row(builder) + End Function + + _ + Protected Overrides Function GetRowType() As Global.System.Type + Return GetType(월별에너지분석Row) + End Function + + _ + Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanged(e) + If (Not (Me.월별에너지분석RowChangedEvent) Is Nothing) Then + RaiseEvent 월별에너지분석RowChanged(Me, New 월별에너지분석RowChangeEvent(CType(e.Row,월별에너지분석Row), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanging(e) + If (Not (Me.월별에너지분석RowChangingEvent) Is Nothing) Then + RaiseEvent 월별에너지분석RowChanging(Me, New 월별에너지분석RowChangeEvent(CType(e.Row,월별에너지분석Row), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleted(e) + If (Not (Me.월별에너지분석RowDeletedEvent) Is Nothing) Then + RaiseEvent 월별에너지분석RowDeleted(Me, New 월별에너지분석RowChangeEvent(CType(e.Row,월별에너지분석Row), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleting(e) + If (Not (Me.월별에너지분석RowDeletingEvent) Is Nothing) Then + RaiseEvent 월별에너지분석RowDeleting(Me, New 월별에너지분석RowChangeEvent(CType(e.Row,월별에너지분석Row), e.Action)) + End If + End Sub + + _ + Public Sub Remove월별에너지분석Row(ByVal row As 월별에너지분석Row) + 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 DSR = New DSR() + 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 = "월별에너지분석DataTable" + 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 TReqUseDataTable + Inherits Global.System.Data.TypedTableBase(Of TReqUseRow) + + Private columnCode As Global.System.Data.DataColumn + + Private columnDesc As Global.System.Data.DataColumn + + Private columnGRP As Global.System.Data.DataColumn + + Private columnUNIT As Global.System.Data.DataColumn + + Private columnSIGN As Global.System.Data.DataColumn + + Private columnEQ As Global.System.Data.DataColumn + + Private columnM00 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 + + Private columnF As Global.System.Data.DataColumn + + _ + Public Sub New() + MyBase.New + Me.TableName = "TReqUse" + 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 CodeColumn() As Global.System.Data.DataColumn + Get + Return Me.columnCode + End Get + End Property + + _ + Public ReadOnly Property DescColumn() As Global.System.Data.DataColumn + Get + Return Me.columnDesc + End Get + End Property + + _ + Public ReadOnly Property GRPColumn() As Global.System.Data.DataColumn + Get + Return Me.columnGRP + End Get + End Property + + _ + Public ReadOnly Property UNITColumn() As Global.System.Data.DataColumn + Get + Return Me.columnUNIT + End Get + End Property + + _ + Public ReadOnly Property SIGNColumn() As Global.System.Data.DataColumn + Get + Return Me.columnSIGN + End Get + End Property + + _ + Public ReadOnly Property EQColumn() As Global.System.Data.DataColumn + Get + Return Me.columnEQ + End Get + End Property + + _ + Public ReadOnly Property M00Column() As Global.System.Data.DataColumn + Get + Return Me.columnM00 + 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 FColumn() As Global.System.Data.DataColumn + Get + Return Me.columnF + 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 TReqUseRow + Get + Return CType(Me.Rows(index),TReqUseRow) + End Get + End Property + + _ + Public Event TReqUseRowChanging As TReqUseRowChangeEventHandler + + _ + Public Event TReqUseRowChanged As TReqUseRowChangeEventHandler + + _ + Public Event TReqUseRowDeleting As TReqUseRowChangeEventHandler + + _ + Public Event TReqUseRowDeleted As TReqUseRowChangeEventHandler + + _ + Public Overloads Sub AddTReqUseRow(ByVal row As TReqUseRow) + Me.Rows.Add(row) + End Sub + + _ + Public Overloads Function AddTReqUseRow( _ + ByVal Code As String, _ + ByVal Desc As String, _ + ByVal GRP As String, _ + ByVal UNIT As String, _ + ByVal SIGN As String, _ + ByVal EQ As String, _ + ByVal M00 As Decimal, _ + ByVal M01 As Decimal, _ + ByVal M02 As Decimal, _ + ByVal M03 As Decimal, _ + ByVal M04 As Decimal, _ + ByVal M05 As Decimal, _ + ByVal M06 As Decimal, _ + ByVal M07 As Decimal, _ + ByVal M08 As Decimal, _ + ByVal M09 As Decimal, _ + ByVal M10 As Decimal, _ + ByVal M11 As Decimal, _ + ByVal M12 As Decimal, _ + ByVal F As String) As TReqUseRow + Dim rowTReqUseRow As TReqUseRow = CType(Me.NewRow,TReqUseRow) + Dim columnValuesArray() As Object = New Object() {Code, Desc, GRP, UNIT, SIGN, EQ, M00, M01, M02, M03, M04, M05, M06, M07, M08, M09, M10, M11, M12, F} + rowTReqUseRow.ItemArray = columnValuesArray + Me.Rows.Add(rowTReqUseRow) + Return rowTReqUseRow + End Function + + _ + Public Function FindByCode(ByVal Code As String) As TReqUseRow + Return CType(Me.Rows.Find(New Object() {Code}),TReqUseRow) + End Function + + _ + Public Overrides Function Clone() As Global.System.Data.DataTable + Dim cln As TReqUseDataTable = CType(MyBase.Clone,TReqUseDataTable) + cln.InitVars + Return cln + End Function + + _ + Protected Overrides Function CreateInstance() As Global.System.Data.DataTable + Return New TReqUseDataTable() + End Function + + _ + Friend Sub InitVars() + Me.columnCode = MyBase.Columns("Code") + Me.columnDesc = MyBase.Columns("Desc") + Me.columnGRP = MyBase.Columns("GRP") + Me.columnUNIT = MyBase.Columns("UNIT") + Me.columnSIGN = MyBase.Columns("SIGN") + Me.columnEQ = MyBase.Columns("EQ") + Me.columnM00 = MyBase.Columns("M00") + 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") + Me.columnF = MyBase.Columns("F") + End Sub + + _ + Private Sub InitClass() + Me.columnCode = New Global.System.Data.DataColumn("Code", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnCode) + Me.columnDesc = New Global.System.Data.DataColumn("Desc", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnDesc) + Me.columnGRP = New Global.System.Data.DataColumn("GRP", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnGRP) + Me.columnUNIT = New Global.System.Data.DataColumn("UNIT", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnUNIT) + Me.columnSIGN = New Global.System.Data.DataColumn("SIGN", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnSIGN) + Me.columnEQ = New Global.System.Data.DataColumn("EQ", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnEQ) + Me.columnM00 = New Global.System.Data.DataColumn("M00", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnM00) + Me.columnM01 = New Global.System.Data.DataColumn("M01", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnM01) + Me.columnM02 = New Global.System.Data.DataColumn("M02", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnM02) + Me.columnM03 = New Global.System.Data.DataColumn("M03", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnM03) + Me.columnM04 = New Global.System.Data.DataColumn("M04", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnM04) + Me.columnM05 = New Global.System.Data.DataColumn("M05", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnM05) + Me.columnM06 = New Global.System.Data.DataColumn("M06", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnM06) + Me.columnM07 = New Global.System.Data.DataColumn("M07", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnM07) + Me.columnM08 = New Global.System.Data.DataColumn("M08", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnM08) + Me.columnM09 = New Global.System.Data.DataColumn("M09", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnM09) + Me.columnM10 = New Global.System.Data.DataColumn("M10", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnM10) + Me.columnM11 = New Global.System.Data.DataColumn("M11", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnM11) + Me.columnM12 = New Global.System.Data.DataColumn("M12", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnM12) + Me.columnF = New Global.System.Data.DataColumn("F", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnF) + Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnCode}, true)) + Me.columnCode.AllowDBNull = false + Me.columnCode.Unique = true + Me.columnDesc.DefaultValue = CType("",String) + Me.columnGRP.DefaultValue = CType("",String) + Me.columnUNIT.DefaultValue = CType("",String) + Me.columnSIGN.DefaultValue = CType("",String) + Me.columnEQ.DefaultValue = CType("",String) + Me.columnM00.DefaultValue = CType(0D,Decimal) + Me.columnM01.DefaultValue = CType(0D,Decimal) + Me.columnM02.DefaultValue = CType(0D,Decimal) + Me.columnM03.DefaultValue = CType(0D,Decimal) + Me.columnM04.DefaultValue = CType(0D,Decimal) + Me.columnM05.DefaultValue = CType(0D,Decimal) + Me.columnM06.DefaultValue = CType(0D,Decimal) + Me.columnM07.DefaultValue = CType(0D,Decimal) + Me.columnM08.DefaultValue = CType(0D,Decimal) + Me.columnM09.DefaultValue = CType(0D,Decimal) + Me.columnM10.DefaultValue = CType(0D,Decimal) + Me.columnM11.DefaultValue = CType(0D,Decimal) + Me.columnM12.DefaultValue = CType(0D,Decimal) + Me.columnF.DefaultValue = CType("",String) + End Sub + + _ + Public Function NewTReqUseRow() As TReqUseRow + Return CType(Me.NewRow,TReqUseRow) + End Function + + _ + Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow + Return New TReqUseRow(builder) + End Function + + _ + Protected Overrides Function GetRowType() As Global.System.Type + Return GetType(TReqUseRow) + End Function + + _ + Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanged(e) + If (Not (Me.TReqUseRowChangedEvent) Is Nothing) Then + RaiseEvent TReqUseRowChanged(Me, New TReqUseRowChangeEvent(CType(e.Row,TReqUseRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanging(e) + If (Not (Me.TReqUseRowChangingEvent) Is Nothing) Then + RaiseEvent TReqUseRowChanging(Me, New TReqUseRowChangeEvent(CType(e.Row,TReqUseRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleted(e) + If (Not (Me.TReqUseRowDeletedEvent) Is Nothing) Then + RaiseEvent TReqUseRowDeleted(Me, New TReqUseRowChangeEvent(CType(e.Row,TReqUseRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleting(e) + If (Not (Me.TReqUseRowDeletingEvent) Is Nothing) Then + RaiseEvent TReqUseRowDeleting(Me, New TReqUseRowChangeEvent(CType(e.Row,TReqUseRow), e.Action)) + End If + End Sub + + _ + Public Sub RemoveTReqUseRow(ByVal row As TReqUseRow) + 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 DSR = New DSR() + 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 = "TReqUseDataTable" + 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 Graph_ReqDataTable + Inherits Global.System.Data.TypedTableBase(Of Graph_ReqRow) + + Private columnGubun As Global.System.Data.DataColumn + + Private columnMon As Global.System.Data.DataColumn + + Private columnReq As Global.System.Data.DataColumn + + _ + Public Sub New() + MyBase.New + Me.TableName = "Graph_Req" + 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 GubunColumn() As Global.System.Data.DataColumn + Get + Return Me.columnGubun + End Get + End Property + + _ + Public ReadOnly Property MonColumn() As Global.System.Data.DataColumn + Get + Return Me.columnMon + End Get + End Property + + _ + Public ReadOnly Property ReqColumn() As Global.System.Data.DataColumn + Get + Return Me.columnReq + 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 Graph_ReqRow + Get + Return CType(Me.Rows(index),Graph_ReqRow) + End Get + End Property + + _ + Public Event Graph_ReqRowChanging As Graph_ReqRowChangeEventHandler + + _ + Public Event Graph_ReqRowChanged As Graph_ReqRowChangeEventHandler + + _ + Public Event Graph_ReqRowDeleting As Graph_ReqRowChangeEventHandler + + _ + Public Event Graph_ReqRowDeleted As Graph_ReqRowChangeEventHandler + + _ + Public Overloads Sub AddGraph_ReqRow(ByVal row As Graph_ReqRow) + Me.Rows.Add(row) + End Sub + + _ + Public Overloads Function AddGraph_ReqRow(ByVal Gubun As String, ByVal Mon As String, ByVal Req As Decimal) As Graph_ReqRow + Dim rowGraph_ReqRow As Graph_ReqRow = CType(Me.NewRow,Graph_ReqRow) + Dim columnValuesArray() As Object = New Object() {Gubun, Mon, Req} + rowGraph_ReqRow.ItemArray = columnValuesArray + Me.Rows.Add(rowGraph_ReqRow) + Return rowGraph_ReqRow + End Function + + _ + Public Overrides Function Clone() As Global.System.Data.DataTable + Dim cln As Graph_ReqDataTable = CType(MyBase.Clone,Graph_ReqDataTable) + cln.InitVars + Return cln + End Function + + _ + Protected Overrides Function CreateInstance() As Global.System.Data.DataTable + Return New Graph_ReqDataTable() + End Function + + _ + Friend Sub InitVars() + Me.columnGubun = MyBase.Columns("Gubun") + Me.columnMon = MyBase.Columns("Mon") + Me.columnReq = MyBase.Columns("Req") + End Sub + + _ + Private Sub InitClass() + Me.columnGubun = New Global.System.Data.DataColumn("Gubun", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnGubun) + Me.columnMon = New Global.System.Data.DataColumn("Mon", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnMon) + Me.columnReq = New Global.System.Data.DataColumn("Req", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnReq) + Me.columnReq.DefaultValue = CType(0D,Decimal) + End Sub + + _ + Public Function NewGraph_ReqRow() As Graph_ReqRow + Return CType(Me.NewRow,Graph_ReqRow) + End Function + + _ + Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow + Return New Graph_ReqRow(builder) + End Function + + _ + Protected Overrides Function GetRowType() As Global.System.Type + Return GetType(Graph_ReqRow) + End Function + + _ + Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanged(e) + If (Not (Me.Graph_ReqRowChangedEvent) Is Nothing) Then + RaiseEvent Graph_ReqRowChanged(Me, New Graph_ReqRowChangeEvent(CType(e.Row,Graph_ReqRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanging(e) + If (Not (Me.Graph_ReqRowChangingEvent) Is Nothing) Then + RaiseEvent Graph_ReqRowChanging(Me, New Graph_ReqRowChangeEvent(CType(e.Row,Graph_ReqRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleted(e) + If (Not (Me.Graph_ReqRowDeletedEvent) Is Nothing) Then + RaiseEvent Graph_ReqRowDeleted(Me, New Graph_ReqRowChangeEvent(CType(e.Row,Graph_ReqRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleting(e) + If (Not (Me.Graph_ReqRowDeletingEvent) Is Nothing) Then + RaiseEvent Graph_ReqRowDeleting(Me, New Graph_ReqRowChangeEvent(CType(e.Row,Graph_ReqRow), e.Action)) + End If + End Sub + + _ + Public Sub RemoveGraph_ReqRow(ByVal row As Graph_ReqRow) + 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 DSR = New DSR() + 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 = "Graph_ReqDataTable" + 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 Graph_ReqUseDataTable + Inherits Global.System.Data.TypedTableBase(Of Graph_ReqUseRow) + + Private columnGubun As Global.System.Data.DataColumn + + Private columntype As Global.System.Data.DataColumn + + Private columnReq As Global.System.Data.DataColumn + + _ + Public Sub New() + MyBase.New + Me.TableName = "Graph_ReqUse" + 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 GubunColumn() As Global.System.Data.DataColumn + Get + Return Me.columnGubun + End Get + End Property + + _ + Public ReadOnly Property typeColumn() As Global.System.Data.DataColumn + Get + Return Me.columntype + End Get + End Property + + _ + Public ReadOnly Property ReqColumn() As Global.System.Data.DataColumn + Get + Return Me.columnReq + 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 Graph_ReqUseRow + Get + Return CType(Me.Rows(index),Graph_ReqUseRow) + End Get + End Property + + _ + Public Event Graph_ReqUseRowChanging As Graph_ReqUseRowChangeEventHandler + + _ + Public Event Graph_ReqUseRowChanged As Graph_ReqUseRowChangeEventHandler + + _ + Public Event Graph_ReqUseRowDeleting As Graph_ReqUseRowChangeEventHandler + + _ + Public Event Graph_ReqUseRowDeleted As Graph_ReqUseRowChangeEventHandler + + _ + Public Overloads Sub AddGraph_ReqUseRow(ByVal row As Graph_ReqUseRow) + Me.Rows.Add(row) + End Sub + + _ + Public Overloads Function AddGraph_ReqUseRow(ByVal Gubun As String, ByVal type As String, ByVal Req As Decimal) As Graph_ReqUseRow + Dim rowGraph_ReqUseRow As Graph_ReqUseRow = CType(Me.NewRow,Graph_ReqUseRow) + Dim columnValuesArray() As Object = New Object() {Gubun, type, Req} + rowGraph_ReqUseRow.ItemArray = columnValuesArray + Me.Rows.Add(rowGraph_ReqUseRow) + Return rowGraph_ReqUseRow + End Function + + _ + Public Overrides Function Clone() As Global.System.Data.DataTable + Dim cln As Graph_ReqUseDataTable = CType(MyBase.Clone,Graph_ReqUseDataTable) + cln.InitVars + Return cln + End Function + + _ + Protected Overrides Function CreateInstance() As Global.System.Data.DataTable + Return New Graph_ReqUseDataTable() + End Function + + _ + Friend Sub InitVars() + Me.columnGubun = MyBase.Columns("Gubun") + Me.columntype = MyBase.Columns("type") + Me.columnReq = MyBase.Columns("Req") + End Sub + + _ + Private Sub InitClass() + Me.columnGubun = New Global.System.Data.DataColumn("Gubun", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnGubun) + Me.columntype = New Global.System.Data.DataColumn("type", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columntype) + Me.columnReq = New Global.System.Data.DataColumn("Req", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnReq) + Me.columntype.Caption = "Mon" + Me.columnReq.DefaultValue = CType(0D,Decimal) + End Sub + + _ + Public Function NewGraph_ReqUseRow() As Graph_ReqUseRow + Return CType(Me.NewRow,Graph_ReqUseRow) + End Function + + _ + Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow + Return New Graph_ReqUseRow(builder) + End Function + + _ + Protected Overrides Function GetRowType() As Global.System.Type + Return GetType(Graph_ReqUseRow) + End Function + + _ + Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanged(e) + If (Not (Me.Graph_ReqUseRowChangedEvent) Is Nothing) Then + RaiseEvent Graph_ReqUseRowChanged(Me, New Graph_ReqUseRowChangeEvent(CType(e.Row,Graph_ReqUseRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanging(e) + If (Not (Me.Graph_ReqUseRowChangingEvent) Is Nothing) Then + RaiseEvent Graph_ReqUseRowChanging(Me, New Graph_ReqUseRowChangeEvent(CType(e.Row,Graph_ReqUseRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleted(e) + If (Not (Me.Graph_ReqUseRowDeletedEvent) Is Nothing) Then + RaiseEvent Graph_ReqUseRowDeleted(Me, New Graph_ReqUseRowChangeEvent(CType(e.Row,Graph_ReqUseRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleting(e) + If (Not (Me.Graph_ReqUseRowDeletingEvent) Is Nothing) Then + RaiseEvent Graph_ReqUseRowDeleting(Me, New Graph_ReqUseRowChangeEvent(CType(e.Row,Graph_ReqUseRow), e.Action)) + End If + End Sub + + _ + Public Sub RemoveGraph_ReqUseRow(ByVal row As Graph_ReqUseRow) + 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 DSR = New DSR() + 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 = "Graph_ReqUseDataTable" + 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 Graph_InfoDataTable + Inherits Global.System.Data.TypedTableBase(Of Graph_InfoRow) + + Private columnname As Global.System.Data.DataColumn + + Private columnyear As Global.System.Data.DataColumn + + Private columnjuso As Global.System.Data.DataColumn + + Private columnchung As Global.System.Data.DataColumn + + Private columnmyoun As Global.System.Data.DataColumn + + Private columnydo As Global.System.Data.DataColumn + + Private columni1 As Global.System.Data.DataColumn + + Private columni2 As Global.System.Data.DataColumn + + Private columni3 As Global.System.Data.DataColumn + + Private columngrade As Global.System.Data.DataColumn + + Private columnco2 As Global.System.Data.DataColumn + + _ + Public Sub New() + MyBase.New + Me.TableName = "Graph_Info" + 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 nameColumn() As Global.System.Data.DataColumn + Get + Return Me.columnname + End Get + End Property + + _ + Public ReadOnly Property yearColumn() As Global.System.Data.DataColumn + Get + Return Me.columnyear + End Get + End Property + + _ + Public ReadOnly Property jusoColumn() As Global.System.Data.DataColumn + Get + Return Me.columnjuso + End Get + End Property + + _ + Public ReadOnly Property chungColumn() As Global.System.Data.DataColumn + Get + Return Me.columnchung + End Get + End Property + + _ + Public ReadOnly Property myounColumn() As Global.System.Data.DataColumn + Get + Return Me.columnmyoun + End Get + End Property + + _ + Public ReadOnly Property ydoColumn() As Global.System.Data.DataColumn + Get + Return Me.columnydo + End Get + End Property + + _ + Public ReadOnly Property i1Column() As Global.System.Data.DataColumn + Get + Return Me.columni1 + End Get + End Property + + _ + Public ReadOnly Property i2Column() As Global.System.Data.DataColumn + Get + Return Me.columni2 + End Get + End Property + + _ + Public ReadOnly Property i3Column() As Global.System.Data.DataColumn + Get + Return Me.columni3 + End Get + End Property + + _ + Public ReadOnly Property gradeColumn() As Global.System.Data.DataColumn + Get + Return Me.columngrade + End Get + End Property + + _ + Public ReadOnly Property co2Column() As Global.System.Data.DataColumn + Get + Return Me.columnco2 + 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 Graph_InfoRow + Get + Return CType(Me.Rows(index),Graph_InfoRow) + End Get + End Property + + _ + Public Event Graph_InfoRowChanging As Graph_InfoRowChangeEventHandler + + _ + Public Event Graph_InfoRowChanged As Graph_InfoRowChangeEventHandler + + _ + Public Event Graph_InfoRowDeleting As Graph_InfoRowChangeEventHandler + + _ + Public Event Graph_InfoRowDeleted As Graph_InfoRowChangeEventHandler + + _ + Public Overloads Sub AddGraph_InfoRow(ByVal row As Graph_InfoRow) + Me.Rows.Add(row) + End Sub + + _ + Public Overloads Function AddGraph_InfoRow(ByVal name As String, ByVal year As String, ByVal juso As String, ByVal chung As String, ByVal myoun As String, ByVal ydo As String, ByVal i1 As String, ByVal i2 As String, ByVal i3 As String, ByVal grade As String, ByVal co2 As Short) As Graph_InfoRow + Dim rowGraph_InfoRow As Graph_InfoRow = CType(Me.NewRow,Graph_InfoRow) + Dim columnValuesArray() As Object = New Object() {name, year, juso, chung, myoun, ydo, i1, i2, i3, grade, co2} + rowGraph_InfoRow.ItemArray = columnValuesArray + Me.Rows.Add(rowGraph_InfoRow) + Return rowGraph_InfoRow + End Function + + _ + Public Overrides Function Clone() As Global.System.Data.DataTable + Dim cln As Graph_InfoDataTable = CType(MyBase.Clone,Graph_InfoDataTable) + cln.InitVars + Return cln + End Function + + _ + Protected Overrides Function CreateInstance() As Global.System.Data.DataTable + Return New Graph_InfoDataTable() + End Function + + _ + Friend Sub InitVars() + Me.columnname = MyBase.Columns("name") + Me.columnyear = MyBase.Columns("year") + Me.columnjuso = MyBase.Columns("juso") + Me.columnchung = MyBase.Columns("chung") + Me.columnmyoun = MyBase.Columns("myoun") + Me.columnydo = MyBase.Columns("ydo") + Me.columni1 = MyBase.Columns("i1") + Me.columni2 = MyBase.Columns("i2") + Me.columni3 = MyBase.Columns("i3") + Me.columngrade = MyBase.Columns("grade") + Me.columnco2 = MyBase.Columns("co2") + End Sub + + _ + Private Sub InitClass() + Me.columnname = New Global.System.Data.DataColumn("name", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnname) + Me.columnyear = New Global.System.Data.DataColumn("year", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnyear) + Me.columnjuso = New Global.System.Data.DataColumn("juso", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnjuso) + Me.columnchung = New Global.System.Data.DataColumn("chung", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnchung) + Me.columnmyoun = New Global.System.Data.DataColumn("myoun", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnmyoun) + Me.columnydo = New Global.System.Data.DataColumn("ydo", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnydo) + Me.columni1 = New Global.System.Data.DataColumn("i1", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columni1) + Me.columni2 = New Global.System.Data.DataColumn("i2", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columni2) + Me.columni3 = New Global.System.Data.DataColumn("i3", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columni3) + Me.columngrade = New Global.System.Data.DataColumn("grade", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columngrade) + Me.columnco2 = New Global.System.Data.DataColumn("co2", GetType(Short), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnco2) + Me.columnname.DefaultValue = CType("",String) + Me.columnyear.DefaultValue = CType("",String) + Me.columnjuso.DefaultValue = CType("",String) + Me.columnchung.DefaultValue = CType("",String) + Me.columnmyoun.DefaultValue = CType("",String) + Me.columnydo.DefaultValue = CType("",String) + Me.columni1.DefaultValue = CType("",String) + Me.columni2.DefaultValue = CType("",String) + Me.columni3.DefaultValue = CType("",String) + Me.columngrade.DefaultValue = CType("",String) + Me.columnco2.DefaultValue = CType(0,Short) + End Sub + + _ + Public Function NewGraph_InfoRow() As Graph_InfoRow + Return CType(Me.NewRow,Graph_InfoRow) + End Function + + _ + Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow + Return New Graph_InfoRow(builder) + End Function + + _ + Protected Overrides Function GetRowType() As Global.System.Type + Return GetType(Graph_InfoRow) + End Function + + _ + Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanged(e) + If (Not (Me.Graph_InfoRowChangedEvent) Is Nothing) Then + RaiseEvent Graph_InfoRowChanged(Me, New Graph_InfoRowChangeEvent(CType(e.Row,Graph_InfoRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanging(e) + If (Not (Me.Graph_InfoRowChangingEvent) Is Nothing) Then + RaiseEvent Graph_InfoRowChanging(Me, New Graph_InfoRowChangeEvent(CType(e.Row,Graph_InfoRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleted(e) + If (Not (Me.Graph_InfoRowDeletedEvent) Is Nothing) Then + RaiseEvent Graph_InfoRowDeleted(Me, New Graph_InfoRowChangeEvent(CType(e.Row,Graph_InfoRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleting(e) + If (Not (Me.Graph_InfoRowDeletingEvent) Is Nothing) Then + RaiseEvent Graph_InfoRowDeleting(Me, New Graph_InfoRowChangeEvent(CType(e.Row,Graph_InfoRow), e.Action)) + End If + End Sub + + _ + Public Sub RemoveGraph_InfoRow(ByVal row As Graph_InfoRow) + 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 DSR = New DSR() + 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 = "Graph_InfoDataTable" + 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 사용면적DataTable + Inherits Global.System.Data.TypedTableBase(Of 사용면적Row) + + Private columnH As Global.System.Data.DataColumn + + Private columnC As Global.System.Data.DataColumn + + Private columnL As Global.System.Data.DataColumn + + Private columnW As Global.System.Data.DataColumn + + Private columnV As Global.System.Data.DataColumn + + Private columnH_WF As Global.System.Data.DataColumn + + Private columnC_WF As Global.System.Data.DataColumn + + Private columnL_WF As Global.System.Data.DataColumn + + Private columnW_WF As Global.System.Data.DataColumn + + Private columnV_WF As Global.System.Data.DataColumn + + _ + Public Sub New() + MyBase.New + Me.TableName = "사용면적" + 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 HColumn() As Global.System.Data.DataColumn + Get + Return Me.columnH + End Get + End Property + + _ + Public ReadOnly Property CColumn() As Global.System.Data.DataColumn + Get + Return Me.columnC + End Get + End Property + + _ + Public ReadOnly Property LColumn() As Global.System.Data.DataColumn + Get + Return Me.columnL + End Get + End Property + + _ + Public ReadOnly Property WColumn() As Global.System.Data.DataColumn + Get + Return Me.columnW + End Get + End Property + + _ + Public ReadOnly Property VColumn() As Global.System.Data.DataColumn + Get + Return Me.columnV + End Get + End Property + + _ + Public ReadOnly Property H_WFColumn() As Global.System.Data.DataColumn + Get + Return Me.columnH_WF + End Get + End Property + + _ + Public ReadOnly Property C_WFColumn() As Global.System.Data.DataColumn + Get + Return Me.columnC_WF + End Get + End Property + + _ + Public ReadOnly Property L_WFColumn() As Global.System.Data.DataColumn + Get + Return Me.columnL_WF + End Get + End Property + + _ + Public ReadOnly Property W_WFColumn() As Global.System.Data.DataColumn + Get + Return Me.columnW_WF + End Get + End Property + + _ + Public ReadOnly Property V_WFColumn() As Global.System.Data.DataColumn + Get + Return Me.columnV_WF + 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 사용면적Row + Get + Return CType(Me.Rows(index),사용면적Row) + End Get + End Property + + _ + Public Event 사용면적RowChanging As 사용면적RowChangeEventHandler + + _ + Public Event 사용면적RowChanged As 사용면적RowChangeEventHandler + + _ + Public Event 사용면적RowDeleting As 사용면적RowChangeEventHandler + + _ + Public Event 사용면적RowDeleted As 사용면적RowChangeEventHandler + + _ + Public Overloads Sub Add사용면적Row(ByVal row As 사용면적Row) + Me.Rows.Add(row) + End Sub + + _ + Public Overloads Function Add사용면적Row(ByVal H As Decimal, ByVal C As Decimal, ByVal L As Decimal, ByVal W As Decimal, ByVal V As Decimal, ByVal H_WF As Decimal, ByVal C_WF As Decimal, ByVal L_WF As Decimal, ByVal W_WF As Decimal, ByVal V_WF As Decimal) As 사용면적Row + Dim row사용면적Row As 사용면적Row = CType(Me.NewRow,사용면적Row) + Dim columnValuesArray() As Object = New Object() {H, C, L, W, V, H_WF, C_WF, L_WF, W_WF, V_WF} + row사용면적Row.ItemArray = columnValuesArray + Me.Rows.Add(row사용면적Row) + Return row사용면적Row + End Function + + _ + Public Overrides Function Clone() As Global.System.Data.DataTable + Dim cln As 사용면적DataTable = CType(MyBase.Clone,사용면적DataTable) + cln.InitVars + Return cln + End Function + + _ + Protected Overrides Function CreateInstance() As Global.System.Data.DataTable + Return New 사용면적DataTable() + End Function + + _ + Friend Sub InitVars() + Me.columnH = MyBase.Columns("H") + Me.columnC = MyBase.Columns("C") + Me.columnL = MyBase.Columns("L") + Me.columnW = MyBase.Columns("W") + Me.columnV = MyBase.Columns("V") + Me.columnH_WF = MyBase.Columns("H_WF") + Me.columnC_WF = MyBase.Columns("C_WF") + Me.columnL_WF = MyBase.Columns("L_WF") + Me.columnW_WF = MyBase.Columns("W_WF") + Me.columnV_WF = MyBase.Columns("V_WF") + End Sub + + _ + Private Sub InitClass() + Me.columnH = New Global.System.Data.DataColumn("H", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnH) + Me.columnC = New Global.System.Data.DataColumn("C", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnC) + Me.columnL = New Global.System.Data.DataColumn("L", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnL) + Me.columnW = New Global.System.Data.DataColumn("W", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnW) + Me.columnV = New Global.System.Data.DataColumn("V", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnV) + Me.columnH_WF = New Global.System.Data.DataColumn("H_WF", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnH_WF) + Me.columnC_WF = New Global.System.Data.DataColumn("C_WF", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnC_WF) + Me.columnL_WF = New Global.System.Data.DataColumn("L_WF", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnL_WF) + Me.columnW_WF = New Global.System.Data.DataColumn("W_WF", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnW_WF) + Me.columnV_WF = New Global.System.Data.DataColumn("V_WF", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnV_WF) + Me.columnH.DefaultValue = CType(0D,Decimal) + Me.columnC.DefaultValue = CType(0D,Decimal) + Me.columnL.DefaultValue = CType(0D,Decimal) + Me.columnW.DefaultValue = CType(0D,Decimal) + Me.columnV.DefaultValue = CType(0D,Decimal) + Me.columnH_WF.DefaultValue = CType(0D,Decimal) + Me.columnC_WF.DefaultValue = CType(0D,Decimal) + Me.columnL_WF.DefaultValue = CType(0D,Decimal) + Me.columnW_WF.DefaultValue = CType(0D,Decimal) + Me.columnV_WF.DefaultValue = CType(0D,Decimal) + End Sub + + _ + Public Function New사용면적Row() As 사용면적Row + Return CType(Me.NewRow,사용면적Row) + End Function + + _ + Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow + Return New 사용면적Row(builder) + End Function + + _ + Protected Overrides Function GetRowType() As Global.System.Type + Return GetType(사용면적Row) + End Function + + _ + Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanged(e) + If (Not (Me.사용면적RowChangedEvent) Is Nothing) Then + RaiseEvent 사용면적RowChanged(Me, New 사용면적RowChangeEvent(CType(e.Row,사용면적Row), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanging(e) + If (Not (Me.사용면적RowChangingEvent) Is Nothing) Then + RaiseEvent 사용면적RowChanging(Me, New 사용면적RowChangeEvent(CType(e.Row,사용면적Row), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleted(e) + If (Not (Me.사용면적RowDeletedEvent) Is Nothing) Then + RaiseEvent 사용면적RowDeleted(Me, New 사용면적RowChangeEvent(CType(e.Row,사용면적Row), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleting(e) + If (Not (Me.사용면적RowDeletingEvent) Is Nothing) Then + RaiseEvent 사용면적RowDeleting(Me, New 사용면적RowChangeEvent(CType(e.Row,사용면적Row), e.Action)) + End If + End Sub + + _ + Public Sub Remove사용면적Row(ByVal row As 사용면적Row) + 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 DSR = New DSR() + 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 = "사용면적DataTable" + 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 에너지소요량DataTable + Inherits Global.System.Data.TypedTableBase(Of 에너지소요량Row) + + Private columnmon As Global.System.Data.DataColumn + + Private column난방에너지소요량 As Global.System.Data.DataColumn + + Private column난방보조에너지소요량 As Global.System.Data.DataColumn + + Private column냉방에너지소요량 As Global.System.Data.DataColumn + + Private column냉방보조에너지소요량 As Global.System.Data.DataColumn + + Private column급탕에너지소요량 As Global.System.Data.DataColumn + + Private column급탕보조에너지소요량 As Global.System.Data.DataColumn + + Private column난방 As Global.System.Data.DataColumn + + Private column냉방 As Global.System.Data.DataColumn + + Private column조명 As Global.System.Data.DataColumn + + Private column급탕 As Global.System.Data.DataColumn + + Private column환기 As Global.System.Data.DataColumn + + _ + Public Sub New() + MyBase.New + Me.TableName = "에너지소요량" + 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 monColumn() As Global.System.Data.DataColumn + Get + Return Me.columnmon + 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 급탕에너지소요량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 조명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 Count() As Integer + Get + Return Me.Rows.Count + End Get + End Property + + _ + Public Default ReadOnly Property Item(ByVal index As Integer) As 에너지소요량Row + Get + Return CType(Me.Rows(index),에너지소요량Row) + End Get + End Property + + _ + Public Event 에너지소요량RowChanging As 에너지소요량RowChangeEventHandler + + _ + Public Event 에너지소요량RowChanged As 에너지소요량RowChangeEventHandler + + _ + Public Event 에너지소요량RowDeleting As 에너지소요량RowChangeEventHandler + + _ + Public Event 에너지소요량RowDeleted As 에너지소요량RowChangeEventHandler + + _ + Public Overloads Sub Add에너지소요량Row(ByVal row As 에너지소요량Row) + Me.Rows.Add(row) + End Sub + + _ + Public Overloads Function Add에너지소요량Row(ByVal mon As String, ByVal 난방에너지소요량 As String, ByVal 난방보조에너지소요량 As String, ByVal 냉방에너지소요량 As String, ByVal 냉방보조에너지소요량 As String, ByVal 급탕에너지소요량 As String, ByVal 급탕보조에너지소요량 As String, ByVal 난방 As Decimal, ByVal 냉방 As Decimal, ByVal 조명 As Decimal, ByVal 급탕 As Decimal, ByVal 환기 As Decimal) As 에너지소요량Row + Dim row에너지소요량Row As 에너지소요량Row = CType(Me.NewRow,에너지소요량Row) + Dim columnValuesArray() As Object = New Object() {mon, 난방에너지소요량, 난방보조에너지소요량, 냉방에너지소요량, 냉방보조에너지소요량, 급탕에너지소요량, 급탕보조에너지소요량, 난방, 냉방, 조명, 급탕, 환기} + row에너지소요량Row.ItemArray = columnValuesArray + Me.Rows.Add(row에너지소요량Row) + Return row에너지소요량Row + End Function + + _ + Public Overrides Function Clone() As Global.System.Data.DataTable + Dim cln As 에너지소요량DataTable = CType(MyBase.Clone,에너지소요량DataTable) + cln.InitVars + Return cln + End Function + + _ + Protected Overrides Function CreateInstance() As Global.System.Data.DataTable + Return New 에너지소요량DataTable() + End Function + + _ + Friend Sub InitVars() + Me.columnmon = MyBase.Columns("mon") + Me.column난방에너지소요량 = MyBase.Columns("난방에너지소요량") + Me.column난방보조에너지소요량 = MyBase.Columns("난방보조에너지소요량") + Me.column냉방에너지소요량 = MyBase.Columns("냉방에너지소요량") + Me.column냉방보조에너지소요량 = MyBase.Columns("냉방보조에너지소요량") + Me.column급탕에너지소요량 = MyBase.Columns("급탕에너지소요량") + Me.column급탕보조에너지소요량 = MyBase.Columns("급탕보조에너지소요량") + Me.column난방 = MyBase.Columns("난방") + Me.column냉방 = MyBase.Columns("냉방") + Me.column조명 = MyBase.Columns("조명") + Me.column급탕 = MyBase.Columns("급탕") + Me.column환기 = MyBase.Columns("환기") + End Sub + + _ + Private Sub InitClass() + Me.columnmon = New Global.System.Data.DataColumn("mon", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnmon) + Me.column난방에너지소요량 = New Global.System.Data.DataColumn("난방에너지소요량", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column난방에너지소요량) + Me.column난방보조에너지소요량 = New Global.System.Data.DataColumn("난방보조에너지소요량", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column난방보조에너지소요량) + Me.column냉방에너지소요량 = New Global.System.Data.DataColumn("냉방에너지소요량", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column냉방에너지소요량) + Me.column냉방보조에너지소요량 = New Global.System.Data.DataColumn("냉방보조에너지소요량", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column냉방보조에너지소요량) + Me.column급탕에너지소요량 = New Global.System.Data.DataColumn("급탕에너지소요량", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column급탕에너지소요량) + Me.column급탕보조에너지소요량 = New Global.System.Data.DataColumn("급탕보조에너지소요량", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column급탕보조에너지소요량) + Me.column난방 = New Global.System.Data.DataColumn("난방", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column난방) + Me.column냉방 = New Global.System.Data.DataColumn("냉방", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column냉방) + Me.column조명 = New Global.System.Data.DataColumn("조명", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column조명) + Me.column급탕 = New Global.System.Data.DataColumn("급탕", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column급탕) + Me.column환기 = New Global.System.Data.DataColumn("환기", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column환기) + Me.column난방에너지소요량.Caption = "난방에너지요구량열" + Me.column난방에너지소요량.DefaultValue = CType("0",String) + Me.column난방보조에너지소요량.Caption = "난방에너지요구량공조" + Me.column난방보조에너지소요량.DefaultValue = CType("0",String) + Me.column냉방에너지소요량.Caption = "냉방에너지요구량" + Me.column냉방에너지소요량.DefaultValue = CType("0",String) + Me.column냉방보조에너지소요량.Caption = "냉방에너지요구량공조" + Me.column냉방보조에너지소요량.DefaultValue = CType("0",String) + Me.column급탕에너지소요량.Caption = "급탕단위면적당요구량" + Me.column급탕에너지소요량.DefaultValue = CType("0",String) + Me.column급탕보조에너지소요량.DefaultValue = CType("0",String) + Me.column난방.DefaultValue = CType(0D,Decimal) + Me.column냉방.DefaultValue = CType(0D,Decimal) + Me.column조명.DefaultValue = CType(0D,Decimal) + Me.column급탕.DefaultValue = CType(0D,Decimal) + Me.column환기.DefaultValue = CType(0D,Decimal) + End Sub + + _ + Public Function New에너지소요량Row() As 에너지소요량Row + Return CType(Me.NewRow,에너지소요량Row) + End Function + + _ + Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow + Return New 에너지소요량Row(builder) + End Function + + _ + Protected Overrides Function GetRowType() As Global.System.Type + Return GetType(에너지소요량Row) + End Function + + _ + Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanged(e) + If (Not (Me.에너지소요량RowChangedEvent) Is Nothing) Then + RaiseEvent 에너지소요량RowChanged(Me, New 에너지소요량RowChangeEvent(CType(e.Row,에너지소요량Row), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanging(e) + If (Not (Me.에너지소요량RowChangingEvent) Is Nothing) Then + RaiseEvent 에너지소요량RowChanging(Me, New 에너지소요량RowChangeEvent(CType(e.Row,에너지소요량Row), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleted(e) + If (Not (Me.에너지소요량RowDeletedEvent) Is Nothing) Then + RaiseEvent 에너지소요량RowDeleted(Me, New 에너지소요량RowChangeEvent(CType(e.Row,에너지소요량Row), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleting(e) + If (Not (Me.에너지소요량RowDeletingEvent) Is Nothing) Then + RaiseEvent 에너지소요량RowDeleting(Me, New 에너지소요량RowChangeEvent(CType(e.Row,에너지소요량Row), e.Action)) + End If + End Sub + + _ + Public Sub Remove에너지소요량Row(ByVal row As 에너지소요량Row) + 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 DSR = New DSR() + 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 = "에너지소요량DataTable" + 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 에너지소요량1DataTable + Inherits Global.System.Data.TypedTableBase(Of 에너지소요량1Row) + + Private columnmon As Global.System.Data.DataColumn + + Private column난방등유 As Global.System.Data.DataColumn + + Private column난방LNG As Global.System.Data.DataColumn + + Private column난방LPG 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냉방LNG As Global.System.Data.DataColumn + + Private column냉방LPG As Global.System.Data.DataColumn + + Private column냉방지역 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급탕LNG As Global.System.Data.DataColumn + + Private column급탕LPG 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 + + _ + Public Sub New() + MyBase.New + Me.TableName = "에너지소요량1" + 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 monColumn() As Global.System.Data.DataColumn + Get + Return Me.columnmon + End Get + End Property + + _ + Public ReadOnly Property 난방등유Column() As Global.System.Data.DataColumn + Get + Return Me.column난방등유 + End Get + End Property + + _ + Public ReadOnly Property 난방LNGColumn() As Global.System.Data.DataColumn + Get + Return Me.column난방LNG + End Get + End Property + + _ + Public ReadOnly Property 난방LPGColumn() As Global.System.Data.DataColumn + Get + Return Me.column난방LPG + 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 냉방LNGColumn() As Global.System.Data.DataColumn + Get + Return Me.column냉방LNG + End Get + End Property + + _ + Public ReadOnly Property 냉방LPGColumn() As Global.System.Data.DataColumn + Get + Return Me.column냉방LPG + End Get + End Property + + _ + Public ReadOnly Property 냉방지역Column() As Global.System.Data.DataColumn + Get + Return Me.column냉방지역 + End Get + End Property + + _ + Public ReadOnly Property 냉방지역2Column() 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 급탕LNGColumn() As Global.System.Data.DataColumn + Get + Return Me.column급탕LNG + End Get + End Property + + _ + Public ReadOnly Property 급탕LPGColumn() As Global.System.Data.DataColumn + Get + Return Me.column급탕LPG + 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 Count() As Integer + Get + Return Me.Rows.Count + End Get + End Property + + _ + Public Default ReadOnly Property Item(ByVal index As Integer) As 에너지소요량1Row + Get + Return CType(Me.Rows(index),에너지소요량1Row) + End Get + End Property + + _ + Public Event 에너지소요량1RowChanging As 에너지소요량1RowChangeEventHandler + + _ + Public Event 에너지소요량1RowChanged As 에너지소요량1RowChangeEventHandler + + _ + Public Event 에너지소요량1RowDeleting As 에너지소요량1RowChangeEventHandler + + _ + Public Event 에너지소요량1RowDeleted As 에너지소요량1RowChangeEventHandler + + _ + Public Overloads Sub Add에너지소요량1Row(ByVal row As 에너지소요량1Row) + Me.Rows.Add(row) + End Sub + + _ + Public Overloads Function Add에너지소요량1Row( _ + ByVal mon As String, _ + ByVal 난방등유 As String, _ + ByVal 난방LNG As String, _ + ByVal 난방LPG As String, _ + ByVal 난방지역 As String, _ + ByVal 난방전력 As String, _ + ByVal 난방펠렛 As String, _ + ByVal 냉방등유 As String, _ + ByVal 냉방LNG As String, _ + ByVal 냉방LPG As String, _ + ByVal 냉방지역 As String, _ + ByVal 냉방지역2 As Decimal, _ + ByVal 냉방전력 As String, _ + ByVal 냉방펠렛 As String, _ + ByVal 급탕등유 As String, _ + ByVal 급탕LNG As String, _ + ByVal 급탕LPG As String, _ + ByVal 급탕지역 As String, _ + ByVal 급탕전력 As String, _ + ByVal 급탕펠렛 As String) As 에너지소요량1Row + Dim row에너지소요량1Row As 에너지소요량1Row = CType(Me.NewRow,에너지소요량1Row) + Dim columnValuesArray() As Object = New Object() {mon, 난방등유, 난방LNG, 난방LPG, 난방지역, 난방전력, 난방펠렛, 냉방등유, 냉방LNG, 냉방LPG, 냉방지역, 냉방지역2, 냉방전력, 냉방펠렛, 급탕등유, 급탕LNG, 급탕LPG, 급탕지역, 급탕전력, 급탕펠렛} + row에너지소요량1Row.ItemArray = columnValuesArray + Me.Rows.Add(row에너지소요량1Row) + Return row에너지소요량1Row + End Function + + _ + Public Overrides Function Clone() As Global.System.Data.DataTable + Dim cln As 에너지소요량1DataTable = CType(MyBase.Clone,에너지소요량1DataTable) + cln.InitVars + Return cln + End Function + + _ + Protected Overrides Function CreateInstance() As Global.System.Data.DataTable + Return New 에너지소요량1DataTable() + End Function + + _ + Friend Sub InitVars() + Me.columnmon = MyBase.Columns("mon") + Me.column난방등유 = MyBase.Columns("난방등유") + Me.column난방LNG = MyBase.Columns("난방LNG") + Me.column난방LPG = MyBase.Columns("난방LPG") + Me.column난방지역 = MyBase.Columns("난방지역") + Me.column난방전력 = MyBase.Columns("난방전력") + Me.column난방펠렛 = MyBase.Columns("난방펠렛") + Me.column냉방등유 = MyBase.Columns("냉방등유") + Me.column냉방LNG = MyBase.Columns("냉방LNG") + Me.column냉방LPG = MyBase.Columns("냉방LPG") + Me.column냉방지역 = MyBase.Columns("냉방지역") + Me.column냉방지역2 = MyBase.Columns("냉방지역2") + Me.column냉방전력 = MyBase.Columns("냉방전력") + Me.column냉방펠렛 = MyBase.Columns("냉방펠렛") + Me.column급탕등유 = MyBase.Columns("급탕등유") + Me.column급탕LNG = MyBase.Columns("급탕LNG") + Me.column급탕LPG = MyBase.Columns("급탕LPG") + Me.column급탕지역 = MyBase.Columns("급탕지역") + Me.column급탕전력 = MyBase.Columns("급탕전력") + Me.column급탕펠렛 = MyBase.Columns("급탕펠렛") + End Sub + + _ + Private Sub InitClass() + Me.columnmon = New Global.System.Data.DataColumn("mon", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnmon) + Me.column난방등유 = New Global.System.Data.DataColumn("난방등유", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column난방등유) + Me.column난방LNG = New Global.System.Data.DataColumn("난방LNG", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column난방LNG) + Me.column난방LPG = New Global.System.Data.DataColumn("난방LPG", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column난방LPG) + Me.column난방지역 = New Global.System.Data.DataColumn("난방지역", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column난방지역) + Me.column난방전력 = New Global.System.Data.DataColumn("난방전력", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column난방전력) + Me.column난방펠렛 = New Global.System.Data.DataColumn("난방펠렛", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column난방펠렛) + Me.column냉방등유 = New Global.System.Data.DataColumn("냉방등유", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column냉방등유) + Me.column냉방LNG = New Global.System.Data.DataColumn("냉방LNG", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column냉방LNG) + Me.column냉방LPG = New Global.System.Data.DataColumn("냉방LPG", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column냉방LPG) + Me.column냉방지역 = New Global.System.Data.DataColumn("냉방지역", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column냉방지역) + Me.column냉방지역2 = New Global.System.Data.DataColumn("냉방지역2", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column냉방지역2) + Me.column냉방전력 = New Global.System.Data.DataColumn("냉방전력", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column냉방전력) + Me.column냉방펠렛 = New Global.System.Data.DataColumn("냉방펠렛", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column냉방펠렛) + Me.column급탕등유 = New Global.System.Data.DataColumn("급탕등유", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column급탕등유) + Me.column급탕LNG = New Global.System.Data.DataColumn("급탕LNG", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column급탕LNG) + Me.column급탕LPG = New Global.System.Data.DataColumn("급탕LPG", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column급탕LPG) + Me.column급탕지역 = New Global.System.Data.DataColumn("급탕지역", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column급탕지역) + Me.column급탕전력 = New Global.System.Data.DataColumn("급탕전력", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column급탕전력) + Me.column급탕펠렛 = New Global.System.Data.DataColumn("급탕펠렛", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column급탕펠렛) + Me.column난방등유.Caption = "난방에너지요구량공조" + Me.column난방등유.DefaultValue = CType("0",String) + Me.column난방LNG.Caption = "난방단위면적당요구량" + Me.column난방LNG.DefaultValue = CType("0",String) + Me.column난방LPG.Caption = "냉방에너지요구량" + Me.column난방LPG.DefaultValue = CType("0",String) + Me.column난방지역.Caption = "냉방에너지요구량열" + Me.column난방지역.DefaultValue = CType("0",String) + Me.column난방전력.Caption = "냉방에너지요구량공조" + Me.column난방전력.DefaultValue = CType("0",String) + Me.column난방펠렛.DefaultValue = CType("0",String) + Me.column냉방등유.Caption = "조명단위면적당요구량" + Me.column냉방등유.DefaultValue = CType("0",String) + Me.column냉방LNG.Caption = "급탕에너지요구량" + Me.column냉방LNG.DefaultValue = CType("0",String) + Me.column냉방LPG.Caption = "급탕단위면적당요구량" + Me.column냉방LPG.DefaultValue = CType("0",String) + Me.column냉방지역.Caption = "급탕보조에너지소요량" + Me.column냉방지역.DefaultValue = CType("0",String) + Me.column냉방지역2.DefaultValue = CType(0D,Decimal) + Me.column냉방전력.Caption = "급탕단위면적당소요량" + Me.column냉방전력.DefaultValue = CType("0",String) + Me.column냉방펠렛.DefaultValue = CType("0",String) + Me.column급탕등유.DefaultValue = CType("0",String) + Me.column급탕LNG.DefaultValue = CType("0",String) + Me.column급탕LPG.DefaultValue = CType("0",String) + Me.column급탕지역.DefaultValue = CType("0",String) + Me.column급탕전력.DefaultValue = CType("0",String) + Me.column급탕펠렛.DefaultValue = CType("0",String) + End Sub + + _ + Public Function New에너지소요량1Row() As 에너지소요량1Row + Return CType(Me.NewRow,에너지소요량1Row) + End Function + + _ + Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow + Return New 에너지소요량1Row(builder) + End Function + + _ + Protected Overrides Function GetRowType() As Global.System.Type + Return GetType(에너지소요량1Row) + End Function + + _ + Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanged(e) + If (Not (Me.에너지소요량1RowChangedEvent) Is Nothing) Then + RaiseEvent 에너지소요량1RowChanged(Me, New 에너지소요량1RowChangeEvent(CType(e.Row,에너지소요량1Row), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanging(e) + If (Not (Me.에너지소요량1RowChangingEvent) Is Nothing) Then + RaiseEvent 에너지소요량1RowChanging(Me, New 에너지소요량1RowChangeEvent(CType(e.Row,에너지소요량1Row), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleted(e) + If (Not (Me.에너지소요량1RowDeletedEvent) Is Nothing) Then + RaiseEvent 에너지소요량1RowDeleted(Me, New 에너지소요량1RowChangeEvent(CType(e.Row,에너지소요량1Row), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleting(e) + If (Not (Me.에너지소요량1RowDeletingEvent) Is Nothing) Then + RaiseEvent 에너지소요량1RowDeleting(Me, New 에너지소요량1RowChangeEvent(CType(e.Row,에너지소요량1Row), e.Action)) + End If + End Sub + + _ + Public Sub Remove에너지소요량1Row(ByVal row As 에너지소요량1Row) + 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 DSR = New DSR() + 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 = "에너지소요량1DataTable" + 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 생산에너지DataTable + Inherits Global.System.Data.TypedTableBase(Of 생산에너지Row) + + Private columnmon As Global.System.Data.DataColumn + + Private column전력태양광 As Global.System.Data.DataColumn + + Private column전력열병합 As Global.System.Data.DataColumn + + Private column생산량태양열 As Global.System.Data.DataColumn + + Private column생산량지열 As Global.System.Data.DataColumn + + Private column면적당생산량태양열 As Global.System.Data.DataColumn + + Private column면적당생산량지열 As Global.System.Data.DataColumn + + Private column신재생열병합전력생산량 As Global.System.Data.DataColumn + + Private column신재생면적당열생산량 As Global.System.Data.DataColumn + + _ + Public Sub New() + MyBase.New + Me.TableName = "생산에너지" + 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 monColumn() As Global.System.Data.DataColumn + Get + Return Me.columnmon + 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 면적당생산량태양열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 Count() As Integer + Get + Return Me.Rows.Count + End Get + End Property + + _ + Public Default ReadOnly Property Item(ByVal index As Integer) As 생산에너지Row + Get + Return CType(Me.Rows(index),생산에너지Row) + End Get + End Property + + _ + Public Event 생산에너지RowChanging As 생산에너지RowChangeEventHandler + + _ + Public Event 생산에너지RowChanged As 생산에너지RowChangeEventHandler + + _ + Public Event 생산에너지RowDeleting As 생산에너지RowChangeEventHandler + + _ + Public Event 생산에너지RowDeleted As 생산에너지RowChangeEventHandler + + _ + Public Overloads Sub Add생산에너지Row(ByVal row As 생산에너지Row) + Me.Rows.Add(row) + End Sub + + _ + Public Overloads Function Add생산에너지Row(ByVal mon As String, ByVal 전력태양광 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 + Dim row생산에너지Row As 생산에너지Row = CType(Me.NewRow,생산에너지Row) + Dim columnValuesArray() As Object = New Object() {mon, 전력태양광, 전력열병합, 생산량태양열, 생산량지열, 면적당생산량태양열, 면적당생산량지열, 신재생열병합전력생산량, 신재생면적당열생산량} + row생산에너지Row.ItemArray = columnValuesArray + Me.Rows.Add(row생산에너지Row) + Return row생산에너지Row + End Function + + _ + Public Overrides Function Clone() As Global.System.Data.DataTable + Dim cln As 생산에너지DataTable = CType(MyBase.Clone,생산에너지DataTable) + cln.InitVars + Return cln + End Function + + _ + Protected Overrides Function CreateInstance() As Global.System.Data.DataTable + Return New 생산에너지DataTable() + End Function + + _ + Friend Sub InitVars() + Me.columnmon = MyBase.Columns("mon") + Me.column전력태양광 = MyBase.Columns("전력태양광") + Me.column전력열병합 = MyBase.Columns("전력열병합") + Me.column생산량태양열 = MyBase.Columns("생산량태양열") + Me.column생산량지열 = MyBase.Columns("생산량지열") + Me.column면적당생산량태양열 = MyBase.Columns("면적당생산량태양열") + Me.column면적당생산량지열 = MyBase.Columns("면적당생산량지열") + Me.column신재생열병합전력생산량 = MyBase.Columns("신재생열병합전력생산량") + Me.column신재생면적당열생산량 = MyBase.Columns("신재생면적당열생산량") + End Sub + + _ + Private Sub InitClass() + Me.columnmon = New Global.System.Data.DataColumn("mon", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnmon) + Me.column전력태양광 = New Global.System.Data.DataColumn("전력태양광", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column전력태양광) + Me.column전력열병합 = New Global.System.Data.DataColumn("전력열병합", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column전력열병합) + Me.column생산량태양열 = New Global.System.Data.DataColumn("생산량태양열", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column생산량태양열) + Me.column생산량지열 = New Global.System.Data.DataColumn("생산량지열", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column생산량지열) + Me.column면적당생산량태양열 = New Global.System.Data.DataColumn("면적당생산량태양열", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column면적당생산량태양열) + Me.column면적당생산량지열 = New Global.System.Data.DataColumn("면적당생산량지열", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column면적당생산량지열) + Me.column신재생열병합전력생산량 = New Global.System.Data.DataColumn("신재생열병합전력생산량", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column신재생열병합전력생산량) + Me.column신재생면적당열생산량 = New Global.System.Data.DataColumn("신재생면적당열생산량", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column신재생면적당열생산량) + Me.column전력태양광.Caption = "에너지요구량" + Me.column전력태양광.DefaultValue = CType("0",String) + Me.column전력열병합.Caption = "단위면적당요구량" + Me.column전력열병합.DefaultValue = CType("0",String) + Me.column생산량태양열.Caption = "난방에너지요구량열" + Me.column생산량태양열.DefaultValue = CType("0",String) + Me.column생산량지열.Caption = "난방에너지요구량공조" + Me.column생산량지열.DefaultValue = CType("0",String) + Me.column면적당생산량태양열.DefaultValue = CType(0D,Decimal) + Me.column면적당생산량지열.DefaultValue = CType(0D,Decimal) + Me.column신재생열병합전력생산량.DefaultValue = CType("0",String) + Me.column신재생면적당열생산량.DefaultValue = CType("0",String) + End Sub + + _ + Public Function New생산에너지Row() As 생산에너지Row + Return CType(Me.NewRow,생산에너지Row) + End Function + + _ + Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow + Return New 생산에너지Row(builder) + End Function + + _ + Protected Overrides Function GetRowType() As Global.System.Type + Return GetType(생산에너지Row) + End Function + + _ + Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanged(e) + If (Not (Me.생산에너지RowChangedEvent) Is Nothing) Then + RaiseEvent 생산에너지RowChanged(Me, New 생산에너지RowChangeEvent(CType(e.Row,생산에너지Row), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanging(e) + If (Not (Me.생산에너지RowChangingEvent) Is Nothing) Then + RaiseEvent 생산에너지RowChanging(Me, New 생산에너지RowChangeEvent(CType(e.Row,생산에너지Row), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleted(e) + If (Not (Me.생산에너지RowDeletedEvent) Is Nothing) Then + RaiseEvent 생산에너지RowDeleted(Me, New 생산에너지RowChangeEvent(CType(e.Row,생산에너지Row), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleting(e) + If (Not (Me.생산에너지RowDeletingEvent) Is Nothing) Then + RaiseEvent 생산에너지RowDeleting(Me, New 생산에너지RowChangeEvent(CType(e.Row,생산에너지Row), e.Action)) + End If + End Sub + + _ + Public Sub Remove생산에너지Row(ByVal row As 생산에너지Row) + 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 DSR = New DSR() + 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 = "생산에너지DataTable" + 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 Graph_Info_dataDataTable + Inherits Global.System.Data.TypedTableBase(Of Graph_Info_dataRow) + + 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난방소요1 As Global.System.Data.DataColumn + + Private column급탕소요1 As Global.System.Data.DataColumn + + Private column냉방소요1 As Global.System.Data.DataColumn + + Private column조명소요1 As Global.System.Data.DataColumn + + Private column환기소요1 As Global.System.Data.DataColumn + + Private column난방co2 As Global.System.Data.DataColumn + + Private column급탕co2 As Global.System.Data.DataColumn + + Private column냉방co2 As Global.System.Data.DataColumn + + Private column조명co2 As Global.System.Data.DataColumn + + Private column환기co2 As Global.System.Data.DataColumn + + _ + Public Sub New() + MyBase.New + Me.TableName = "Graph_Info_data" + 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 난방소요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 환기소요Column() As Global.System.Data.DataColumn + Get + Return Me.column환기소요 + End Get + End Property + + _ + Public ReadOnly Property 난방소요1Column() As Global.System.Data.DataColumn + Get + Return Me.column난방소요1 + End Get + End Property + + _ + Public ReadOnly Property 급탕소요1Column() As Global.System.Data.DataColumn + Get + Return Me.column급탕소요1 + End Get + End Property + + _ + Public ReadOnly Property 냉방소요1Column() As Global.System.Data.DataColumn + Get + Return Me.column냉방소요1 + End Get + End Property + + _ + Public ReadOnly Property 조명소요1Column() As Global.System.Data.DataColumn + Get + Return Me.column조명소요1 + End Get + End Property + + _ + Public ReadOnly Property 환기소요1Column() As Global.System.Data.DataColumn + Get + Return Me.column환기소요1 + End Get + End Property + + _ + Public ReadOnly Property 난방co2Column() As Global.System.Data.DataColumn + Get + Return Me.column난방co2 + End Get + End Property + + _ + Public ReadOnly Property 급탕co2Column() As Global.System.Data.DataColumn + Get + Return Me.column급탕co2 + End Get + End Property + + _ + Public ReadOnly Property 냉방co2Column() As Global.System.Data.DataColumn + Get + Return Me.column냉방co2 + End Get + End Property + + _ + Public ReadOnly Property 조명co2Column() As Global.System.Data.DataColumn + Get + Return Me.column조명co2 + End Get + End Property + + _ + Public ReadOnly Property 환기co2Column() As Global.System.Data.DataColumn + Get + Return Me.column환기co2 + 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 Graph_Info_dataRow + Get + Return CType(Me.Rows(index),Graph_Info_dataRow) + End Get + End Property + + _ + Public Event Graph_Info_dataRowChanging As Graph_Info_dataRowChangeEventHandler + + _ + Public Event Graph_Info_dataRowChanged As Graph_Info_dataRowChangeEventHandler + + _ + Public Event Graph_Info_dataRowDeleting As Graph_Info_dataRowChangeEventHandler + + _ + Public Event Graph_Info_dataRowDeleted As Graph_Info_dataRowChangeEventHandler + + _ + Public Overloads Sub AddGraph_Info_dataRow(ByVal row As Graph_Info_dataRow) + Me.Rows.Add(row) + End Sub + + _ + Public Overloads Function AddGraph_Info_dataRow(ByVal 난방소요 As Decimal, ByVal 급탕소요 As Decimal, ByVal 냉방소요 As Decimal, ByVal 조명소요 As Decimal, ByVal 환기소요 As Decimal, ByVal 난방소요1 As Decimal, ByVal 급탕소요1 As Decimal, ByVal 냉방소요1 As Decimal, ByVal 조명소요1 As Decimal, ByVal 환기소요1 As Decimal, ByVal 난방co2 As Decimal, ByVal 급탕co2 As Decimal, ByVal 냉방co2 As Decimal, ByVal 조명co2 As Decimal, ByVal 환기co2 As Decimal) As Graph_Info_dataRow + Dim rowGraph_Info_dataRow As Graph_Info_dataRow = CType(Me.NewRow,Graph_Info_dataRow) + Dim columnValuesArray() As Object = New Object() {난방소요, 급탕소요, 냉방소요, 조명소요, 환기소요, 난방소요1, 급탕소요1, 냉방소요1, 조명소요1, 환기소요1, 난방co2, 급탕co2, 냉방co2, 조명co2, 환기co2} + rowGraph_Info_dataRow.ItemArray = columnValuesArray + Me.Rows.Add(rowGraph_Info_dataRow) + Return rowGraph_Info_dataRow + End Function + + _ + Public Overrides Function Clone() As Global.System.Data.DataTable + Dim cln As Graph_Info_dataDataTable = CType(MyBase.Clone,Graph_Info_dataDataTable) + cln.InitVars + Return cln + End Function + + _ + Protected Overrides Function CreateInstance() As Global.System.Data.DataTable + Return New Graph_Info_dataDataTable() + End Function + + _ + Friend Sub InitVars() + Me.column난방소요 = MyBase.Columns("난방소요") + Me.column급탕소요 = MyBase.Columns("급탕소요") + Me.column냉방소요 = MyBase.Columns("냉방소요") + Me.column조명소요 = MyBase.Columns("조명소요") + Me.column환기소요 = MyBase.Columns("환기소요") + Me.column난방소요1 = MyBase.Columns("난방소요1") + Me.column급탕소요1 = MyBase.Columns("급탕소요1") + Me.column냉방소요1 = MyBase.Columns("냉방소요1") + Me.column조명소요1 = MyBase.Columns("조명소요1") + Me.column환기소요1 = MyBase.Columns("환기소요1") + Me.column난방co2 = MyBase.Columns("난방co2") + Me.column급탕co2 = MyBase.Columns("급탕co2") + Me.column냉방co2 = MyBase.Columns("냉방co2") + Me.column조명co2 = MyBase.Columns("조명co2") + Me.column환기co2 = MyBase.Columns("환기co2") + End Sub + + _ + Private Sub InitClass() + Me.column난방소요 = New Global.System.Data.DataColumn("난방소요", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column난방소요) + Me.column급탕소요 = New Global.System.Data.DataColumn("급탕소요", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column급탕소요) + Me.column냉방소요 = New Global.System.Data.DataColumn("냉방소요", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column냉방소요) + Me.column조명소요 = New Global.System.Data.DataColumn("조명소요", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column조명소요) + Me.column환기소요 = New Global.System.Data.DataColumn("환기소요", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column환기소요) + Me.column난방소요1 = New Global.System.Data.DataColumn("난방소요1", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column난방소요1) + Me.column급탕소요1 = New Global.System.Data.DataColumn("급탕소요1", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column급탕소요1) + Me.column냉방소요1 = New Global.System.Data.DataColumn("냉방소요1", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column냉방소요1) + Me.column조명소요1 = New Global.System.Data.DataColumn("조명소요1", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column조명소요1) + Me.column환기소요1 = New Global.System.Data.DataColumn("환기소요1", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column환기소요1) + Me.column난방co2 = New Global.System.Data.DataColumn("난방co2", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column난방co2) + Me.column급탕co2 = New Global.System.Data.DataColumn("급탕co2", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column급탕co2) + Me.column냉방co2 = New Global.System.Data.DataColumn("냉방co2", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column냉방co2) + Me.column조명co2 = New Global.System.Data.DataColumn("조명co2", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column조명co2) + Me.column환기co2 = New Global.System.Data.DataColumn("환기co2", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column환기co2) + Me.column난방소요.DefaultValue = CType(0D,Decimal) + Me.column급탕소요.DefaultValue = CType(0D,Decimal) + Me.column냉방소요.DefaultValue = CType(0D,Decimal) + Me.column조명소요.DefaultValue = CType(0D,Decimal) + Me.column환기소요.DefaultValue = CType(0D,Decimal) + Me.column난방소요1.DefaultValue = CType(0D,Decimal) + Me.column급탕소요1.DefaultValue = CType(0D,Decimal) + Me.column냉방소요1.DefaultValue = CType(0D,Decimal) + Me.column조명소요1.DefaultValue = CType(0D,Decimal) + Me.column환기소요1.DefaultValue = CType(0D,Decimal) + Me.column난방co2.DefaultValue = CType(0D,Decimal) + Me.column급탕co2.DefaultValue = CType(0D,Decimal) + Me.column냉방co2.DefaultValue = CType(0D,Decimal) + Me.column조명co2.DefaultValue = CType(0D,Decimal) + Me.column환기co2.DefaultValue = CType(0D,Decimal) + End Sub + + _ + Public Function NewGraph_Info_dataRow() As Graph_Info_dataRow + Return CType(Me.NewRow,Graph_Info_dataRow) + End Function + + _ + Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow + Return New Graph_Info_dataRow(builder) + End Function + + _ + Protected Overrides Function GetRowType() As Global.System.Type + Return GetType(Graph_Info_dataRow) + End Function + + _ + Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanged(e) + If (Not (Me.Graph_Info_dataRowChangedEvent) Is Nothing) Then + RaiseEvent Graph_Info_dataRowChanged(Me, New Graph_Info_dataRowChangeEvent(CType(e.Row,Graph_Info_dataRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanging(e) + If (Not (Me.Graph_Info_dataRowChangingEvent) Is Nothing) Then + RaiseEvent Graph_Info_dataRowChanging(Me, New Graph_Info_dataRowChangeEvent(CType(e.Row,Graph_Info_dataRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleted(e) + If (Not (Me.Graph_Info_dataRowDeletedEvent) Is Nothing) Then + RaiseEvent Graph_Info_dataRowDeleted(Me, New Graph_Info_dataRowChangeEvent(CType(e.Row,Graph_Info_dataRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleting(e) + If (Not (Me.Graph_Info_dataRowDeletingEvent) Is Nothing) Then + RaiseEvent Graph_Info_dataRowDeleting(Me, New Graph_Info_dataRowChangeEvent(CType(e.Row,Graph_Info_dataRow), e.Action)) + End If + End Sub + + _ + Public Sub RemoveGraph_Info_dataRow(ByVal row As Graph_Info_dataRow) + 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 DSR = New DSR() + 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 = "Graph_Info_dataDataTable" + 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 Pyonga_REQDataTable + Inherits Global.System.Data.TypedTableBase(Of Pyonga_REQRow) + + Private column종류 As Global.System.Data.DataColumn + + Private column값 As Global.System.Data.DataColumn + + _ + Public Sub New() + MyBase.New + Me.TableName = "Pyonga_REQ" + 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 종류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 Count() As Integer + Get + Return Me.Rows.Count + End Get + End Property + + _ + Public Default ReadOnly Property Item(ByVal index As Integer) As Pyonga_REQRow + Get + Return CType(Me.Rows(index),Pyonga_REQRow) + End Get + End Property + + _ + Public Event Pyonga_REQRowChanging As Pyonga_REQRowChangeEventHandler + + _ + Public Event Pyonga_REQRowChanged As Pyonga_REQRowChangeEventHandler + + _ + Public Event Pyonga_REQRowDeleting As Pyonga_REQRowChangeEventHandler + + _ + Public Event Pyonga_REQRowDeleted As Pyonga_REQRowChangeEventHandler + + _ + Public Overloads Sub AddPyonga_REQRow(ByVal row As Pyonga_REQRow) + Me.Rows.Add(row) + End Sub + + _ + Public Overloads Function AddPyonga_REQRow(ByVal 종류 As String, ByVal 값 As Decimal) As Pyonga_REQRow + Dim rowPyonga_REQRow As Pyonga_REQRow = CType(Me.NewRow,Pyonga_REQRow) + Dim columnValuesArray() As Object = New Object() {종류, 값} + rowPyonga_REQRow.ItemArray = columnValuesArray + Me.Rows.Add(rowPyonga_REQRow) + Return rowPyonga_REQRow + End Function + + _ + Public Overrides Function Clone() As Global.System.Data.DataTable + Dim cln As Pyonga_REQDataTable = CType(MyBase.Clone,Pyonga_REQDataTable) + cln.InitVars + Return cln + End Function + + _ + Protected Overrides Function CreateInstance() As Global.System.Data.DataTable + Return New Pyonga_REQDataTable() + End Function + + _ + Friend Sub InitVars() + Me.column종류 = MyBase.Columns("종류") + Me.column값 = MyBase.Columns("값") + End Sub + + _ + Private Sub InitClass() + Me.column종류 = New Global.System.Data.DataColumn("종류", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column종류) + Me.column값 = New Global.System.Data.DataColumn("값", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column값) + Me.column종류.Caption = "Mon" + Me.column값.DefaultValue = CType(0D,Decimal) + End Sub + + _ + Public Function NewPyonga_REQRow() As Pyonga_REQRow + Return CType(Me.NewRow,Pyonga_REQRow) + End Function + + _ + Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow + Return New Pyonga_REQRow(builder) + End Function + + _ + Protected Overrides Function GetRowType() As Global.System.Type + Return GetType(Pyonga_REQRow) + End Function + + _ + Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanged(e) + If (Not (Me.Pyonga_REQRowChangedEvent) Is Nothing) Then + RaiseEvent Pyonga_REQRowChanged(Me, New Pyonga_REQRowChangeEvent(CType(e.Row,Pyonga_REQRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanging(e) + If (Not (Me.Pyonga_REQRowChangingEvent) Is Nothing) Then + RaiseEvent Pyonga_REQRowChanging(Me, New Pyonga_REQRowChangeEvent(CType(e.Row,Pyonga_REQRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleted(e) + If (Not (Me.Pyonga_REQRowDeletedEvent) Is Nothing) Then + RaiseEvent Pyonga_REQRowDeleted(Me, New Pyonga_REQRowChangeEvent(CType(e.Row,Pyonga_REQRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleting(e) + If (Not (Me.Pyonga_REQRowDeletingEvent) Is Nothing) Then + RaiseEvent Pyonga_REQRowDeleting(Me, New Pyonga_REQRowChangeEvent(CType(e.Row,Pyonga_REQRow), e.Action)) + End If + End Sub + + _ + Public Sub RemovePyonga_REQRow(ByVal row As Pyonga_REQRow) + 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 DSR = New DSR() + 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 = "Pyonga_REQDataTable" + 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 Pyonga_USEDataTable + Inherits Global.System.Data.TypedTableBase(Of Pyonga_USERow) + + Private column종류 As Global.System.Data.DataColumn + + Private column값 As Global.System.Data.DataColumn + + _ + Public Sub New() + MyBase.New + Me.TableName = "Pyonga_USE" + 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 종류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 Count() As Integer + Get + Return Me.Rows.Count + End Get + End Property + + _ + Public Default ReadOnly Property Item(ByVal index As Integer) As Pyonga_USERow + Get + Return CType(Me.Rows(index),Pyonga_USERow) + End Get + End Property + + _ + Public Event Pyonga_USERowChanging As Pyonga_USERowChangeEventHandler + + _ + Public Event Pyonga_USERowChanged As Pyonga_USERowChangeEventHandler + + _ + Public Event Pyonga_USERowDeleting As Pyonga_USERowChangeEventHandler + + _ + Public Event Pyonga_USERowDeleted As Pyonga_USERowChangeEventHandler + + _ + Public Overloads Sub AddPyonga_USERow(ByVal row As Pyonga_USERow) + Me.Rows.Add(row) + End Sub + + _ + Public Overloads Function AddPyonga_USERow(ByVal 종류 As String, ByVal 값 As Decimal) As Pyonga_USERow + Dim rowPyonga_USERow As Pyonga_USERow = CType(Me.NewRow,Pyonga_USERow) + Dim columnValuesArray() As Object = New Object() {종류, 값} + rowPyonga_USERow.ItemArray = columnValuesArray + Me.Rows.Add(rowPyonga_USERow) + Return rowPyonga_USERow + End Function + + _ + Public Overrides Function Clone() As Global.System.Data.DataTable + Dim cln As Pyonga_USEDataTable = CType(MyBase.Clone,Pyonga_USEDataTable) + cln.InitVars + Return cln + End Function + + _ + Protected Overrides Function CreateInstance() As Global.System.Data.DataTable + Return New Pyonga_USEDataTable() + End Function + + _ + Friend Sub InitVars() + Me.column종류 = MyBase.Columns("종류") + Me.column값 = MyBase.Columns("값") + End Sub + + _ + Private Sub InitClass() + Me.column종류 = New Global.System.Data.DataColumn("종류", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column종류) + Me.column값 = New Global.System.Data.DataColumn("값", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column값) + Me.column종류.Caption = "Mon" + Me.column값.DefaultValue = CType(0D,Decimal) + End Sub + + _ + Public Function NewPyonga_USERow() As Pyonga_USERow + Return CType(Me.NewRow,Pyonga_USERow) + End Function + + _ + Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow + Return New Pyonga_USERow(builder) + End Function + + _ + Protected Overrides Function GetRowType() As Global.System.Type + Return GetType(Pyonga_USERow) + End Function + + _ + Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanged(e) + If (Not (Me.Pyonga_USERowChangedEvent) Is Nothing) Then + RaiseEvent Pyonga_USERowChanged(Me, New Pyonga_USERowChangeEvent(CType(e.Row,Pyonga_USERow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanging(e) + If (Not (Me.Pyonga_USERowChangingEvent) Is Nothing) Then + RaiseEvent Pyonga_USERowChanging(Me, New Pyonga_USERowChangeEvent(CType(e.Row,Pyonga_USERow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleted(e) + If (Not (Me.Pyonga_USERowDeletedEvent) Is Nothing) Then + RaiseEvent Pyonga_USERowDeleted(Me, New Pyonga_USERowChangeEvent(CType(e.Row,Pyonga_USERow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleting(e) + If (Not (Me.Pyonga_USERowDeletingEvent) Is Nothing) Then + RaiseEvent Pyonga_USERowDeleting(Me, New Pyonga_USERowChangeEvent(CType(e.Row,Pyonga_USERow), e.Action)) + End If + End Sub + + _ + Public Sub RemovePyonga_USERow(ByVal row As Pyonga_USERow) + 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 DSR = New DSR() + 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 = "Pyonga_USEDataTable" + 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 Pyonga_1USEDataTable + Inherits Global.System.Data.TypedTableBase(Of Pyonga_1USERow) + + Private column종류 As Global.System.Data.DataColumn + + Private column값 As Global.System.Data.DataColumn + + _ + Public Sub New() + MyBase.New + Me.TableName = "Pyonga_1USE" + 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 종류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 Count() As Integer + Get + Return Me.Rows.Count + End Get + End Property + + _ + Public Default ReadOnly Property Item(ByVal index As Integer) As Pyonga_1USERow + Get + Return CType(Me.Rows(index),Pyonga_1USERow) + End Get + End Property + + _ + Public Event Pyonga_1USERowChanging As Pyonga_1USERowChangeEventHandler + + _ + Public Event Pyonga_1USERowChanged As Pyonga_1USERowChangeEventHandler + + _ + Public Event Pyonga_1USERowDeleting As Pyonga_1USERowChangeEventHandler + + _ + Public Event Pyonga_1USERowDeleted As Pyonga_1USERowChangeEventHandler + + _ + Public Overloads Sub AddPyonga_1USERow(ByVal row As Pyonga_1USERow) + Me.Rows.Add(row) + End Sub + + _ + Public Overloads Function AddPyonga_1USERow(ByVal 종류 As String, ByVal 값 As Decimal) As Pyonga_1USERow + Dim rowPyonga_1USERow As Pyonga_1USERow = CType(Me.NewRow,Pyonga_1USERow) + Dim columnValuesArray() As Object = New Object() {종류, 값} + rowPyonga_1USERow.ItemArray = columnValuesArray + Me.Rows.Add(rowPyonga_1USERow) + Return rowPyonga_1USERow + End Function + + _ + Public Overrides Function Clone() As Global.System.Data.DataTable + Dim cln As Pyonga_1USEDataTable = CType(MyBase.Clone,Pyonga_1USEDataTable) + cln.InitVars + Return cln + End Function + + _ + Protected Overrides Function CreateInstance() As Global.System.Data.DataTable + Return New Pyonga_1USEDataTable() + End Function + + _ + Friend Sub InitVars() + Me.column종류 = MyBase.Columns("종류") + Me.column값 = MyBase.Columns("값") + End Sub + + _ + Private Sub InitClass() + Me.column종류 = New Global.System.Data.DataColumn("종류", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column종류) + Me.column값 = New Global.System.Data.DataColumn("값", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column값) + Me.column종류.Caption = "Mon" + Me.column값.DefaultValue = CType(0D,Decimal) + End Sub + + _ + Public Function NewPyonga_1USERow() As Pyonga_1USERow + Return CType(Me.NewRow,Pyonga_1USERow) + End Function + + _ + Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow + Return New Pyonga_1USERow(builder) + End Function + + _ + Protected Overrides Function GetRowType() As Global.System.Type + Return GetType(Pyonga_1USERow) + End Function + + _ + Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanged(e) + If (Not (Me.Pyonga_1USERowChangedEvent) Is Nothing) Then + RaiseEvent Pyonga_1USERowChanged(Me, New Pyonga_1USERowChangeEvent(CType(e.Row,Pyonga_1USERow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanging(e) + If (Not (Me.Pyonga_1USERowChangingEvent) Is Nothing) Then + RaiseEvent Pyonga_1USERowChanging(Me, New Pyonga_1USERowChangeEvent(CType(e.Row,Pyonga_1USERow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleted(e) + If (Not (Me.Pyonga_1USERowDeletedEvent) Is Nothing) Then + RaiseEvent Pyonga_1USERowDeleted(Me, New Pyonga_1USERowChangeEvent(CType(e.Row,Pyonga_1USERow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleting(e) + If (Not (Me.Pyonga_1USERowDeletingEvent) Is Nothing) Then + RaiseEvent Pyonga_1USERowDeleting(Me, New Pyonga_1USERowChangeEvent(CType(e.Row,Pyonga_1USERow), e.Action)) + End If + End Sub + + _ + Public Sub RemovePyonga_1USERow(ByVal row As Pyonga_1USERow) + 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 DSR = New DSR() + 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 = "Pyonga_1USEDataTable" + 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 Pyonga_YKDataTable + Inherits Global.System.Data.TypedTableBase(Of Pyonga_YKRow) + + Private column벽체종류 As Global.System.Data.DataColumn + + Private column지붕종류 As Global.System.Data.DataColumn + + Private column바닥종류 As Global.System.Data.DataColumn + + Private column벽체값 As Global.System.Data.DataColumn + + Private column지붕값 As Global.System.Data.DataColumn + + Private column바닥값 As Global.System.Data.DataColumn + + Private column창호종류 As Global.System.Data.DataColumn + + Private column창호값 As Global.System.Data.DataColumn + + Private column주거실조명전력 As Global.System.Data.DataColumn + + Private column주조명광원 As Global.System.Data.DataColumn + + Private column지열히트펌프용량 As Global.System.Data.DataColumn + + Private column지열난방COP As Global.System.Data.DataColumn + + Private column지열냉방COP As Global.System.Data.DataColumn + + Private column지열비고 As Global.System.Data.DataColumn + + Private column온열원설비방식 As Global.System.Data.DataColumn + + Private column급탕설비방식 As Global.System.Data.DataColumn + + Private column급탕설비연료 As Global.System.Data.DataColumn + + Private column냉열원설비방식 As Global.System.Data.DataColumn + + Private column냉열원설비연료 As Global.System.Data.DataColumn + + Private column온열원설비연료 As Global.System.Data.DataColumn + + Private column온열원용량 As Global.System.Data.DataColumn + + Private column온열원효율 As Global.System.Data.DataColumn + + Private column냉열원용량 As Global.System.Data.DataColumn + + Private column냉열원효율 As Global.System.Data.DataColumn + + Private column급탕효율 As Global.System.Data.DataColumn + + Private column급탕용량 As Global.System.Data.DataColumn + + Private column태양열집열판면적 As Global.System.Data.DataColumn + + Private column태양열집열기유형 As Global.System.Data.DataColumn + + Private column태양열집열판방위 As Global.System.Data.DataColumn + + Private column태양광모듈면적 As Global.System.Data.DataColumn + + Private column태양광모듈종류 As Global.System.Data.DataColumn + + Private column태양광모듈방위 As Global.System.Data.DataColumn + + Private column태양광모듈기울기 As Global.System.Data.DataColumn + + Private column태양광모듈적용타입 As Global.System.Data.DataColumn + + Private column열병합열생산능력 As Global.System.Data.DataColumn + + Private column열병합열생산효율 As Global.System.Data.DataColumn + + Private column열병합발전효율 As Global.System.Data.DataColumn + + Private column지열히트펌프용량냉방 As Global.System.Data.DataColumn + + Private column열병합가동연료 As Global.System.Data.DataColumn + + _ + Public Sub New() + MyBase.New + Me.TableName = "Pyonga_YK" + 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 벽체종류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 지붕값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 주거실조명전력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 지열난방COPColumn() As Global.System.Data.DataColumn + Get + Return Me.column지열난방COP + End Get + End Property + + _ + Public ReadOnly Property 지열냉방COPColumn() As Global.System.Data.DataColumn + Get + Return Me.column지열냉방COP + 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 냉열원설비방식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 온열원효율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 급탕용량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 태양광모듈면적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 태양광모듈적용타입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 지열히트펌프용량냉방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 Count() As Integer + Get + Return Me.Rows.Count + End Get + End Property + + _ + Public Default ReadOnly Property Item(ByVal index As Integer) As Pyonga_YKRow + Get + Return CType(Me.Rows(index),Pyonga_YKRow) + End Get + End Property + + _ + Public Event Pyonga_YKRowChanging As Pyonga_YKRowChangeEventHandler + + _ + Public Event Pyonga_YKRowChanged As Pyonga_YKRowChangeEventHandler + + _ + Public Event Pyonga_YKRowDeleting As Pyonga_YKRowChangeEventHandler + + _ + Public Event Pyonga_YKRowDeleted As Pyonga_YKRowChangeEventHandler + + _ + Public Overloads Sub AddPyonga_YKRow(ByVal row As Pyonga_YKRow) + Me.Rows.Add(row) + End Sub + + _ + Public Overloads Function AddPyonga_YKRow( _ + ByVal 벽체종류 As String, _ + ByVal 지붕종류 As String, _ + ByVal 바닥종류 As String, _ + ByVal 벽체값 As Decimal, _ + ByVal 지붕값 As Decimal, _ + ByVal 바닥값 As Decimal, _ + ByVal 창호종류 As String, _ + ByVal 창호값 As Decimal, _ + ByVal 주거실조명전력 As String, _ + ByVal 주조명광원 As String, _ + ByVal 지열히트펌프용량 As String, _ + ByVal 지열난방COP As String, _ + ByVal 지열냉방COP As String, _ + ByVal 지열비고 As String, _ + ByVal 온열원설비방식 As String, _ + ByVal 급탕설비방식 As String, _ + ByVal 급탕설비연료 As String, _ + ByVal 냉열원설비방식 As String, _ + ByVal 냉열원설비연료 As String, _ + ByVal 온열원설비연료 As String, _ + ByVal 온열원용량 As String, _ + ByVal 온열원효율 As String, _ + ByVal 냉열원용량 As String, _ + ByVal 냉열원효율 As String, _ + ByVal 급탕효율 As String, _ + ByVal 급탕용량 As String, _ + ByVal 태양열집열판면적 As String, _ + ByVal 태양열집열기유형 As String, _ + ByVal 태양열집열판방위 As String, _ + ByVal 태양광모듈면적 As String, _ + ByVal 태양광모듈종류 As String, _ + ByVal 태양광모듈방위 As String, _ + ByVal 태양광모듈기울기 As String, _ + ByVal 태양광모듈적용타입 As String, _ + ByVal 열병합열생산능력 As String, _ + ByVal 열병합열생산효율 As String, _ + ByVal 열병합발전효율 As String, _ + ByVal 지열히트펌프용량냉방 As String, _ + ByVal 열병합가동연료 As String) As Pyonga_YKRow + Dim rowPyonga_YKRow As Pyonga_YKRow = CType(Me.NewRow,Pyonga_YKRow) + Dim columnValuesArray() As Object = New Object() {벽체종류, 지붕종류, 바닥종류, 벽체값, 지붕값, 바닥값, 창호종류, 창호값, 주거실조명전력, 주조명광원, 지열히트펌프용량, 지열난방COP, 지열냉방COP, 지열비고, 온열원설비방식, 급탕설비방식, 급탕설비연료, 냉열원설비방식, 냉열원설비연료, 온열원설비연료, 온열원용량, 온열원효율, 냉열원용량, 냉열원효율, 급탕효율, 급탕용량, 태양열집열판면적, 태양열집열기유형, 태양열집열판방위, 태양광모듈면적, 태양광모듈종류, 태양광모듈방위, 태양광모듈기울기, 태양광모듈적용타입, 열병합열생산능력, 열병합열생산효율, 열병합발전효율, 지열히트펌프용량냉방, 열병합가동연료} + rowPyonga_YKRow.ItemArray = columnValuesArray + Me.Rows.Add(rowPyonga_YKRow) + Return rowPyonga_YKRow + End Function + + _ + Public Overrides Function Clone() As Global.System.Data.DataTable + Dim cln As Pyonga_YKDataTable = CType(MyBase.Clone,Pyonga_YKDataTable) + cln.InitVars + Return cln + End Function + + _ + Protected Overrides Function CreateInstance() As Global.System.Data.DataTable + Return New Pyonga_YKDataTable() + End Function + + _ + Friend Sub InitVars() + Me.column벽체종류 = MyBase.Columns("벽체종류") + Me.column지붕종류 = MyBase.Columns("지붕종류") + Me.column바닥종류 = MyBase.Columns("바닥종류") + Me.column벽체값 = MyBase.Columns("벽체값") + Me.column지붕값 = MyBase.Columns("지붕값") + Me.column바닥값 = MyBase.Columns("바닥값") + Me.column창호종류 = MyBase.Columns("창호종류") + Me.column창호값 = MyBase.Columns("창호값") + Me.column주거실조명전력 = MyBase.Columns("주거실조명전력") + Me.column주조명광원 = MyBase.Columns("주조명광원") + Me.column지열히트펌프용량 = MyBase.Columns("지열히트펌프용량") + Me.column지열난방COP = MyBase.Columns("지열난방COP") + Me.column지열냉방COP = MyBase.Columns("지열냉방COP") + Me.column지열비고 = MyBase.Columns("지열비고") + Me.column온열원설비방식 = MyBase.Columns("온열원설비방식") + Me.column급탕설비방식 = MyBase.Columns("급탕설비방식") + Me.column급탕설비연료 = MyBase.Columns("급탕설비연료") + Me.column냉열원설비방식 = MyBase.Columns("냉열원설비방식") + Me.column냉열원설비연료 = MyBase.Columns("냉열원설비연료") + Me.column온열원설비연료 = MyBase.Columns("온열원설비연료") + Me.column온열원용량 = MyBase.Columns("온열원용량") + Me.column온열원효율 = MyBase.Columns("온열원효율") + Me.column냉열원용량 = MyBase.Columns("냉열원용량") + Me.column냉열원효율 = MyBase.Columns("냉열원효율") + Me.column급탕효율 = MyBase.Columns("급탕효율") + Me.column급탕용량 = MyBase.Columns("급탕용량") + Me.column태양열집열판면적 = MyBase.Columns("태양열집열판면적") + Me.column태양열집열기유형 = MyBase.Columns("태양열집열기유형") + Me.column태양열집열판방위 = MyBase.Columns("태양열집열판방위") + Me.column태양광모듈면적 = MyBase.Columns("태양광모듈면적") + Me.column태양광모듈종류 = MyBase.Columns("태양광모듈종류") + Me.column태양광모듈방위 = MyBase.Columns("태양광모듈방위") + Me.column태양광모듈기울기 = MyBase.Columns("태양광모듈기울기") + Me.column태양광모듈적용타입 = MyBase.Columns("태양광모듈적용타입") + Me.column열병합열생산능력 = MyBase.Columns("열병합열생산능력") + Me.column열병합열생산효율 = MyBase.Columns("열병합열생산효율") + Me.column열병합발전효율 = MyBase.Columns("열병합발전효율") + Me.column지열히트펌프용량냉방 = MyBase.Columns("지열히트펌프용량냉방") + Me.column열병합가동연료 = MyBase.Columns("열병합가동연료") + End Sub + + _ + Private Sub InitClass() + Me.column벽체종류 = New Global.System.Data.DataColumn("벽체종류", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column벽체종류) + Me.column지붕종류 = New Global.System.Data.DataColumn("지붕종류", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column지붕종류) + Me.column바닥종류 = New Global.System.Data.DataColumn("바닥종류", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column바닥종류) + Me.column벽체값 = New Global.System.Data.DataColumn("벽체값", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column벽체값) + Me.column지붕값 = New Global.System.Data.DataColumn("지붕값", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column지붕값) + Me.column바닥값 = New Global.System.Data.DataColumn("바닥값", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column바닥값) + Me.column창호종류 = New Global.System.Data.DataColumn("창호종류", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column창호종류) + Me.column창호값 = New Global.System.Data.DataColumn("창호값", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column창호값) + Me.column주거실조명전력 = New Global.System.Data.DataColumn("주거실조명전력", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column주거실조명전력) + Me.column주조명광원 = New Global.System.Data.DataColumn("주조명광원", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column주조명광원) + Me.column지열히트펌프용량 = New Global.System.Data.DataColumn("지열히트펌프용량", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column지열히트펌프용량) + Me.column지열난방COP = New Global.System.Data.DataColumn("지열난방COP", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column지열난방COP) + Me.column지열냉방COP = New Global.System.Data.DataColumn("지열냉방COP", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column지열냉방COP) + Me.column지열비고 = New Global.System.Data.DataColumn("지열비고", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column지열비고) + Me.column온열원설비방식 = New Global.System.Data.DataColumn("온열원설비방식", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column온열원설비방식) + Me.column급탕설비방식 = New Global.System.Data.DataColumn("급탕설비방식", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column급탕설비방식) + Me.column급탕설비연료 = New Global.System.Data.DataColumn("급탕설비연료", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column급탕설비연료) + Me.column냉열원설비방식 = New Global.System.Data.DataColumn("냉열원설비방식", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column냉열원설비방식) + Me.column냉열원설비연료 = New Global.System.Data.DataColumn("냉열원설비연료", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column냉열원설비연료) + Me.column온열원설비연료 = New Global.System.Data.DataColumn("온열원설비연료", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column온열원설비연료) + Me.column온열원용량 = New Global.System.Data.DataColumn("온열원용량", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column온열원용량) + Me.column온열원효율 = New Global.System.Data.DataColumn("온열원효율", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column온열원효율) + Me.column냉열원용량 = New Global.System.Data.DataColumn("냉열원용량", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column냉열원용량) + Me.column냉열원효율 = New Global.System.Data.DataColumn("냉열원효율", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column냉열원효율) + Me.column급탕효율 = New Global.System.Data.DataColumn("급탕효율", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column급탕효율) + Me.column급탕용량 = New Global.System.Data.DataColumn("급탕용량", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column급탕용량) + Me.column태양열집열판면적 = New Global.System.Data.DataColumn("태양열집열판면적", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column태양열집열판면적) + Me.column태양열집열기유형 = New Global.System.Data.DataColumn("태양열집열기유형", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column태양열집열기유형) + Me.column태양열집열판방위 = New Global.System.Data.DataColumn("태양열집열판방위", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column태양열집열판방위) + Me.column태양광모듈면적 = New Global.System.Data.DataColumn("태양광모듈면적", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column태양광모듈면적) + Me.column태양광모듈종류 = New Global.System.Data.DataColumn("태양광모듈종류", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column태양광모듈종류) + Me.column태양광모듈방위 = New Global.System.Data.DataColumn("태양광모듈방위", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column태양광모듈방위) + Me.column태양광모듈기울기 = New Global.System.Data.DataColumn("태양광모듈기울기", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column태양광모듈기울기) + Me.column태양광모듈적용타입 = New Global.System.Data.DataColumn("태양광모듈적용타입", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column태양광모듈적용타입) + Me.column열병합열생산능력 = New Global.System.Data.DataColumn("열병합열생산능력", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column열병합열생산능력) + Me.column열병합열생산효율 = New Global.System.Data.DataColumn("열병합열생산효율", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column열병합열생산효율) + Me.column열병합발전효율 = New Global.System.Data.DataColumn("열병합발전효율", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column열병합발전효율) + Me.column지열히트펌프용량냉방 = New Global.System.Data.DataColumn("지열히트펌프용량냉방", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column지열히트펌프용량냉방) + Me.column열병합가동연료 = New Global.System.Data.DataColumn("열병합가동연료", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column열병합가동연료) + Me.column벽체종류.Caption = "Mon" + Me.column벽체종류.DefaultValue = CType("",String) + Me.column지붕종류.DefaultValue = CType("",String) + Me.column바닥종류.DefaultValue = CType("",String) + Me.column벽체값.DefaultValue = CType(0D,Decimal) + Me.column지붕값.DefaultValue = CType(0D,Decimal) + Me.column바닥값.DefaultValue = CType(0D,Decimal) + Me.column창호종류.DefaultValue = CType("",String) + Me.column창호값.DefaultValue = CType(0D,Decimal) + Me.column주거실조명전력.DefaultValue = CType("",String) + Me.column주조명광원.DefaultValue = CType("",String) + Me.column지열히트펌프용량.DefaultValue = CType("",String) + Me.column지열난방COP.DefaultValue = CType("",String) + Me.column지열냉방COP.DefaultValue = CType("",String) + Me.column지열비고.DefaultValue = CType("",String) + Me.column온열원설비방식.DefaultValue = CType("",String) + Me.column급탕설비방식.Caption = "온열원설비방식" + Me.column급탕설비방식.DefaultValue = CType("",String) + Me.column급탕설비연료.Caption = "온열원설비연료" + Me.column급탕설비연료.DefaultValue = CType("",String) + Me.column냉열원설비방식.Caption = "온열원설비방식" + Me.column냉열원설비방식.DefaultValue = CType("",String) + Me.column냉열원설비연료.Caption = "온열원설비연료" + Me.column냉열원설비연료.DefaultValue = CType("",String) + Me.column온열원설비연료.DefaultValue = CType("",String) + Me.column온열원용량.DefaultValue = CType("",String) + Me.column온열원효율.DefaultValue = CType("",String) + Me.column냉열원용량.DefaultValue = CType("",String) + Me.column냉열원효율.DefaultValue = CType("",String) + Me.column급탕효율.DefaultValue = CType("",String) + Me.column급탕용량.DefaultValue = CType("",String) + Me.column태양열집열판면적.DefaultValue = CType("",String) + Me.column태양열집열기유형.DefaultValue = CType("",String) + Me.column태양열집열판방위.DefaultValue = CType("",String) + Me.column태양광모듈면적.DefaultValue = CType("",String) + Me.column태양광모듈종류.DefaultValue = CType("",String) + Me.column태양광모듈방위.DefaultValue = CType("",String) + Me.column태양광모듈기울기.DefaultValue = CType("",String) + Me.column태양광모듈적용타입.DefaultValue = CType("",String) + Me.column열병합열생산능력.DefaultValue = CType("",String) + Me.column열병합열생산효율.DefaultValue = CType("",String) + Me.column열병합발전효율.DefaultValue = CType("",String) + Me.column열병합가동연료.DefaultValue = CType("",String) + End Sub + + _ + Public Function NewPyonga_YKRow() As Pyonga_YKRow + Return CType(Me.NewRow,Pyonga_YKRow) + End Function + + _ + Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow + Return New Pyonga_YKRow(builder) + End Function + + _ + Protected Overrides Function GetRowType() As Global.System.Type + Return GetType(Pyonga_YKRow) + End Function + + _ + Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanged(e) + If (Not (Me.Pyonga_YKRowChangedEvent) Is Nothing) Then + RaiseEvent Pyonga_YKRowChanged(Me, New Pyonga_YKRowChangeEvent(CType(e.Row,Pyonga_YKRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanging(e) + If (Not (Me.Pyonga_YKRowChangingEvent) Is Nothing) Then + RaiseEvent Pyonga_YKRowChanging(Me, New Pyonga_YKRowChangeEvent(CType(e.Row,Pyonga_YKRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleted(e) + If (Not (Me.Pyonga_YKRowDeletedEvent) Is Nothing) Then + RaiseEvent Pyonga_YKRowDeleted(Me, New Pyonga_YKRowChangeEvent(CType(e.Row,Pyonga_YKRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleting(e) + If (Not (Me.Pyonga_YKRowDeletingEvent) Is Nothing) Then + RaiseEvent Pyonga_YKRowDeleting(Me, New Pyonga_YKRowChangeEvent(CType(e.Row,Pyonga_YKRow), e.Action)) + End If + End Sub + + _ + Public Sub RemovePyonga_YKRow(ByVal row As Pyonga_YKRow) + 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 DSR = New DSR() + 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 = "Pyonga_YKDataTable" + 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 월별1차에너지사용량DataTable + Inherits Global.System.Data.TypedTableBase(Of 월별1차에너지사용량Row) + + 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 columncode As Global.System.Data.DataColumn + + _ + Public Sub New() + MyBase.New + Me.TableName = "월별1차에너지사용량" + 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 년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 지역난방Column() As Global.System.Data.DataColumn + Get + Return Me.column지역난방 + End Get + End Property + + _ + Public ReadOnly Property codeColumn() As Global.System.Data.DataColumn + Get + Return Me.columncode + 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 월별1차에너지사용량Row + Get + Return CType(Me.Rows(index),월별1차에너지사용량Row) + End Get + End Property + + _ + Public Event 월별1차에너지사용량RowChanging As 월별1차에너지사용량RowChangeEventHandler + + _ + Public Event 월별1차에너지사용량RowChanged As 월별1차에너지사용량RowChangeEventHandler + + _ + Public Event 월별1차에너지사용량RowDeleting As 월별1차에너지사용량RowChangeEventHandler + + _ + Public Event 월별1차에너지사용량RowDeleted As 월별1차에너지사용량RowChangeEventHandler + + _ + Public Overloads Sub Add월별1차에너지사용량Row(ByVal row As 월별1차에너지사용량Row) + Me.Rows.Add(row) + End Sub + + _ + Public Overloads Function Add월별1차에너지사용량Row(ByVal 년 As String, ByVal 월 As String, ByVal 도시가스 As String, ByVal 전력 As String, ByVal 지역난방 As String, ByVal code As String) As 월별1차에너지사용량Row + Dim row월별1차에너지사용량Row As 월별1차에너지사용량Row = CType(Me.NewRow,월별1차에너지사용량Row) + Dim columnValuesArray() As Object = New Object() {년, 월, 도시가스, 전력, 지역난방, code} + row월별1차에너지사용량Row.ItemArray = columnValuesArray + Me.Rows.Add(row월별1차에너지사용량Row) + Return row월별1차에너지사용량Row + End Function + + _ + Public Function FindBycode월(ByVal code As String, ByVal 월 As String) As 월별1차에너지사용량Row + Return CType(Me.Rows.Find(New Object() {code, 월}),월별1차에너지사용량Row) + End Function + + _ + Public Overrides Function Clone() As Global.System.Data.DataTable + Dim cln As 월별1차에너지사용량DataTable = CType(MyBase.Clone,월별1차에너지사용량DataTable) + cln.InitVars + Return cln + End Function + + _ + Protected Overrides Function CreateInstance() As Global.System.Data.DataTable + Return New 월별1차에너지사용량DataTable() + End Function + + _ + Friend Sub InitVars() + Me.column년 = MyBase.Columns("년") + Me.column월 = MyBase.Columns("월") + Me.column도시가스 = MyBase.Columns("도시가스") + Me.column전력 = MyBase.Columns("전력") + Me.column지역난방 = MyBase.Columns("지역난방") + Me.columncode = MyBase.Columns("code") + End Sub + + _ + Private Sub InitClass() + Me.column년 = New Global.System.Data.DataColumn("년", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column년) + Me.column월 = New Global.System.Data.DataColumn("월", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column월) + Me.column도시가스 = New Global.System.Data.DataColumn("도시가스", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column도시가스) + Me.column전력 = New Global.System.Data.DataColumn("전력", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column전력) + Me.column지역난방 = New Global.System.Data.DataColumn("지역난방", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column지역난방) + Me.columncode = New Global.System.Data.DataColumn("code", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columncode) + Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columncode, Me.column월}, true)) + Me.column년.AllowDBNull = false + Me.column년.DefaultValue = CType("",String) + Me.column월.AllowDBNull = false + Me.column월.DefaultValue = CType("",String) + Me.column도시가스.DefaultValue = CType("",String) + Me.column전력.DefaultValue = CType("",String) + Me.column지역난방.DefaultValue = CType("",String) + Me.columncode.AllowDBNull = false + Me.columncode.DefaultValue = CType("",String) + End Sub + + _ + Public Function New월별1차에너지사용량Row() As 월별1차에너지사용량Row + Return CType(Me.NewRow,월별1차에너지사용량Row) + End Function + + _ + Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow + Return New 월별1차에너지사용량Row(builder) + End Function + + _ + Protected Overrides Function GetRowType() As Global.System.Type + Return GetType(월별1차에너지사용량Row) + End Function + + _ + Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanged(e) + If (Not (Me.월별1차에너지사용량RowChangedEvent) Is Nothing) Then + RaiseEvent 월별1차에너지사용량RowChanged(Me, New 월별1차에너지사용량RowChangeEvent(CType(e.Row,월별1차에너지사용량Row), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanging(e) + If (Not (Me.월별1차에너지사용량RowChangingEvent) Is Nothing) Then + RaiseEvent 월별1차에너지사용량RowChanging(Me, New 월별1차에너지사용량RowChangeEvent(CType(e.Row,월별1차에너지사용량Row), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleted(e) + If (Not (Me.월별1차에너지사용량RowDeletedEvent) Is Nothing) Then + RaiseEvent 월별1차에너지사용량RowDeleted(Me, New 월별1차에너지사용량RowChangeEvent(CType(e.Row,월별1차에너지사용량Row), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleting(e) + If (Not (Me.월별1차에너지사용량RowDeletingEvent) Is Nothing) Then + RaiseEvent 월별1차에너지사용량RowDeleting(Me, New 월별1차에너지사용량RowChangeEvent(CType(e.Row,월별1차에너지사용량Row), e.Action)) + End If + End Sub + + _ + Public Sub Remove월별1차에너지사용량Row(ByVal row As 월별1차에너지사용량Row) + 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 DSR = New DSR() + 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 = "월별1차에너지사용량DataTable" + 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 설계계산결과DataTable + Inherits Global.System.Data.TypedTableBase(Of 설계계산결과Row) + + Private column월 As Global.System.Data.DataColumn + + Private column급탕 As Global.System.Data.DataColumn + + Private column냉방 As Global.System.Data.DataColumn + + Private column난방 As Global.System.Data.DataColumn + + Private column조명 As Global.System.Data.DataColumn + + Private column환기 As Global.System.Data.DataColumn + + Private column급탕전 As Global.System.Data.DataColumn + + Private column냉방전 As Global.System.Data.DataColumn + + Private column난방전 As Global.System.Data.DataColumn + + Private column조명전 As Global.System.Data.DataColumn + + Private column환기전 As Global.System.Data.DataColumn + + _ + Public Sub New() + MyBase.New + Me.TableName = "설계계산결과" + 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 월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 조명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 난방전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 Count() As Integer + Get + Return Me.Rows.Count + End Get + End Property + + _ + Public Default ReadOnly Property Item(ByVal index As Integer) As 설계계산결과Row + Get + Return CType(Me.Rows(index),설계계산결과Row) + End Get + End Property + + _ + Public Event 설계계산결과RowChanging As 설계계산결과RowChangeEventHandler + + _ + Public Event 설계계산결과RowChanged As 설계계산결과RowChangeEventHandler + + _ + Public Event 설계계산결과RowDeleting As 설계계산결과RowChangeEventHandler + + _ + Public Event 설계계산결과RowDeleted As 설계계산결과RowChangeEventHandler + + _ + Public Overloads Sub Add설계계산결과Row(ByVal row As 설계계산결과Row) + Me.Rows.Add(row) + End Sub + + _ + Public Overloads Function Add설계계산결과Row(ByVal 월 As String, ByVal 급탕 As String, ByVal 냉방 As String, ByVal 난방 As String, ByVal 조명 As String, ByVal 환기 As String, ByVal 급탕전 As String, ByVal 냉방전 As String, ByVal 난방전 As String, ByVal 조명전 As String, ByVal 환기전 As String) As 설계계산결과Row + Dim row설계계산결과Row As 설계계산결과Row = CType(Me.NewRow,설계계산결과Row) + Dim columnValuesArray() As Object = New Object() {월, 급탕, 냉방, 난방, 조명, 환기, 급탕전, 냉방전, 난방전, 조명전, 환기전} + row설계계산결과Row.ItemArray = columnValuesArray + Me.Rows.Add(row설계계산결과Row) + Return row설계계산결과Row + End Function + + _ + Public Function FindBy월(ByVal 월 As String) As 설계계산결과Row + Return CType(Me.Rows.Find(New Object() {월}),설계계산결과Row) + End Function + + _ + Public Overrides Function Clone() As Global.System.Data.DataTable + Dim cln As 설계계산결과DataTable = CType(MyBase.Clone,설계계산결과DataTable) + cln.InitVars + Return cln + End Function + + _ + Protected Overrides Function CreateInstance() As Global.System.Data.DataTable + Return New 설계계산결과DataTable() + End Function + + _ + Friend Sub InitVars() + Me.column월 = MyBase.Columns("월") + Me.column급탕 = MyBase.Columns("급탕") + Me.column냉방 = MyBase.Columns("냉방") + Me.column난방 = MyBase.Columns("난방") + Me.column조명 = MyBase.Columns("조명") + Me.column환기 = MyBase.Columns("환기") + Me.column급탕전 = MyBase.Columns("급탕전") + Me.column냉방전 = MyBase.Columns("냉방전") + Me.column난방전 = MyBase.Columns("난방전") + Me.column조명전 = MyBase.Columns("조명전") + Me.column환기전 = MyBase.Columns("환기전") + End Sub + + _ + Private Sub InitClass() + Me.column월 = New Global.System.Data.DataColumn("월", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column월) + Me.column급탕 = New Global.System.Data.DataColumn("급탕", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column급탕) + Me.column냉방 = New Global.System.Data.DataColumn("냉방", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column냉방) + Me.column난방 = New Global.System.Data.DataColumn("난방", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column난방) + Me.column조명 = New Global.System.Data.DataColumn("조명", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column조명) + Me.column환기 = New Global.System.Data.DataColumn("환기", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column환기) + Me.column급탕전 = New Global.System.Data.DataColumn("급탕전", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column급탕전) + Me.column냉방전 = New Global.System.Data.DataColumn("냉방전", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column냉방전) + Me.column난방전 = New Global.System.Data.DataColumn("난방전", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column난방전) + Me.column조명전 = New Global.System.Data.DataColumn("조명전", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column조명전) + Me.column환기전 = New Global.System.Data.DataColumn("환기전", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column환기전) + Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.column월}, true)) + Me.column월.AllowDBNull = false + Me.column월.Unique = true + Me.column월.DefaultValue = CType("",String) + Me.column급탕.DefaultValue = CType("0",String) + Me.column냉방.DefaultValue = CType("0",String) + Me.column난방.DefaultValue = CType("0",String) + Me.column조명.DefaultValue = CType("0",String) + Me.column환기.DefaultValue = CType("0",String) + Me.column급탕전.DefaultValue = CType("0",String) + Me.column냉방전.DefaultValue = CType("0",String) + Me.column난방전.DefaultValue = CType("0",String) + Me.column조명전.DefaultValue = CType("0",String) + Me.column환기전.DefaultValue = CType("0",String) + End Sub + + _ + Public Function New설계계산결과Row() As 설계계산결과Row + Return CType(Me.NewRow,설계계산결과Row) + End Function + + _ + Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow + Return New 설계계산결과Row(builder) + End Function + + _ + Protected Overrides Function GetRowType() As Global.System.Type + Return GetType(설계계산결과Row) + End Function + + _ + Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanged(e) + If (Not (Me.설계계산결과RowChangedEvent) Is Nothing) Then + RaiseEvent 설계계산결과RowChanged(Me, New 설계계산결과RowChangeEvent(CType(e.Row,설계계산결과Row), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanging(e) + If (Not (Me.설계계산결과RowChangingEvent) Is Nothing) Then + RaiseEvent 설계계산결과RowChanging(Me, New 설계계산결과RowChangeEvent(CType(e.Row,설계계산결과Row), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleted(e) + If (Not (Me.설계계산결과RowDeletedEvent) Is Nothing) Then + RaiseEvent 설계계산결과RowDeleted(Me, New 설계계산결과RowChangeEvent(CType(e.Row,설계계산결과Row), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleting(e) + If (Not (Me.설계계산결과RowDeletingEvent) Is Nothing) Then + RaiseEvent 설계계산결과RowDeleting(Me, New 설계계산결과RowChangeEvent(CType(e.Row,설계계산결과Row), e.Action)) + End If + End Sub + + _ + Public Sub Remove설계계산결과Row(ByVal row As 설계계산결과Row) + 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 DSR = New DSR() + 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 = "설계계산결과DataTable" + 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 설계계산파라미터DataTable + Inherits Global.System.Data.TypedTableBase(Of 설계계산파라미터Row) + + Private column난방 As Global.System.Data.DataColumn + + Private column냉방 As Global.System.Data.DataColumn + + Private column기저비율 As Global.System.Data.DataColumn + + _ + Public Sub New() + MyBase.New + Me.TableName = "설계계산파라미터" + 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 난방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 Count() As Integer + Get + Return Me.Rows.Count + End Get + End Property + + _ + Public Default ReadOnly Property Item(ByVal index As Integer) As 설계계산파라미터Row + Get + Return CType(Me.Rows(index),설계계산파라미터Row) + End Get + End Property + + _ + Public Event 설계계산파라미터RowChanging As 설계계산파라미터RowChangeEventHandler + + _ + Public Event 설계계산파라미터RowChanged As 설계계산파라미터RowChangeEventHandler + + _ + Public Event 설계계산파라미터RowDeleting As 설계계산파라미터RowChangeEventHandler + + _ + Public Event 설계계산파라미터RowDeleted As 설계계산파라미터RowChangeEventHandler + + _ + Public Overloads Sub Add설계계산파라미터Row(ByVal row As 설계계산파라미터Row) + Me.Rows.Add(row) + End Sub + + _ + Public Overloads Function Add설계계산파라미터Row(ByVal 난방 As String, ByVal 냉방 As String, ByVal 기저비율 As String) As 설계계산파라미터Row + Dim row설계계산파라미터Row As 설계계산파라미터Row = CType(Me.NewRow,설계계산파라미터Row) + Dim columnValuesArray() As Object = New Object() {난방, 냉방, 기저비율} + row설계계산파라미터Row.ItemArray = columnValuesArray + Me.Rows.Add(row설계계산파라미터Row) + Return row설계계산파라미터Row + End Function + + _ + Public Overrides Function Clone() As Global.System.Data.DataTable + Dim cln As 설계계산파라미터DataTable = CType(MyBase.Clone,설계계산파라미터DataTable) + cln.InitVars + Return cln + End Function + + _ + Protected Overrides Function CreateInstance() As Global.System.Data.DataTable + Return New 설계계산파라미터DataTable() + End Function + + _ + Friend Sub InitVars() + Me.column난방 = MyBase.Columns("난방") + Me.column냉방 = MyBase.Columns("냉방") + Me.column기저비율 = MyBase.Columns("기저비율") + End Sub + + _ + Private Sub InitClass() + Me.column난방 = New Global.System.Data.DataColumn("난방", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column난방) + Me.column냉방 = New Global.System.Data.DataColumn("냉방", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column냉방) + Me.column기저비율 = New Global.System.Data.DataColumn("기저비율", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column기저비율) + Me.column난방.DefaultValue = CType("0",String) + Me.column냉방.DefaultValue = CType("0",String) + Me.column기저비율.DefaultValue = CType("0",String) + End Sub + + _ + Public Function New설계계산파라미터Row() As 설계계산파라미터Row + Return CType(Me.NewRow,설계계산파라미터Row) + End Function + + _ + Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow + Return New 설계계산파라미터Row(builder) + End Function + + _ + Protected Overrides Function GetRowType() As Global.System.Type + Return GetType(설계계산파라미터Row) + End Function + + _ + Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanged(e) + If (Not (Me.설계계산파라미터RowChangedEvent) Is Nothing) Then + RaiseEvent 설계계산파라미터RowChanged(Me, New 설계계산파라미터RowChangeEvent(CType(e.Row,설계계산파라미터Row), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanging(e) + If (Not (Me.설계계산파라미터RowChangingEvent) Is Nothing) Then + RaiseEvent 설계계산파라미터RowChanging(Me, New 설계계산파라미터RowChangeEvent(CType(e.Row,설계계산파라미터Row), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleted(e) + If (Not (Me.설계계산파라미터RowDeletedEvent) Is Nothing) Then + RaiseEvent 설계계산파라미터RowDeleted(Me, New 설계계산파라미터RowChangeEvent(CType(e.Row,설계계산파라미터Row), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleting(e) + If (Not (Me.설계계산파라미터RowDeletingEvent) Is Nothing) Then + RaiseEvent 설계계산파라미터RowDeleting(Me, New 설계계산파라미터RowChangeEvent(CType(e.Row,설계계산파라미터Row), e.Action)) + End If + End Sub + + _ + Public Sub Remove설계계산파라미터Row(ByVal row As 설계계산파라미터Row) + 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 DSR = New DSR() + 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 = "설계계산파라미터DataTable" + 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. + ''' + Partial Public Class 최대냉난방부하Row + Inherits Global.System.Data.DataRow + + Private table최대냉난방부하 As 최대냉난방부하DataTable + + _ + Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) + MyBase.New(rb) + Me.table최대냉난방부하 = CType(Me.Table,최대냉난방부하DataTable) + End Sub + + _ + Public Property Zone() As String + Get + Try + Return CType(Me(Me.table최대냉난방부하.ZoneColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("'최대냉난방부하' 테이블의 'Zone' 열의 값이 DBNull입니다.", e) + End Try + End Get + Set + Me(Me.table최대냉난방부하.ZoneColumn) = value + End Set + End Property + + _ + Public Property 최대난방기기부하() As Decimal + Get + Try + Return CType(Me(Me.table최대냉난방부하.최대난방기기부하Column),Decimal) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("'최대냉난방부하' 테이블의 '최대난방기기부하' 열의 값이 DBNull입니다.", e) + End Try + End Get + Set + Me(Me.table최대냉난방부하.최대난방기기부하Column) = value + End Set + End Property + + _ + Public Property 최대난방실내부하() As Decimal + Get + Try + Return CType(Me(Me.table최대냉난방부하.최대난방실내부하Column),Decimal) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("'최대냉난방부하' 테이블의 '최대난방실내부하' 열의 값이 DBNull입니다.", e) + End Try + End Get + Set + Me(Me.table최대냉난방부하.최대난방실내부하Column) = value + End Set + End Property + + _ + Public Property 난방최대가동시간() As Decimal + Get + Try + Return CType(Me(Me.table최대냉난방부하.난방최대가동시간Column),Decimal) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("'최대냉난방부하' 테이블의 '난방최대가동시간' 열의 값이 DBNull입니다.", e) + End Try + End Get + Set + Me(Me.table최대냉난방부하.난방최대가동시간Column) = value + End Set + End Property + + _ + Public Property 최대가열성능() As Decimal + Get + Try + Return CType(Me(Me.table최대냉난방부하.최대가열성능Column),Decimal) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("'최대냉난방부하' 테이블의 '최대가열성능' 열의 값이 DBNull입니다.", e) + End Try + End Get + Set + Me(Me.table최대냉난방부하.최대가열성능Column) = value + End Set + End Property + + _ + Public Property 최대냉방기기부하() As Decimal + Get + Try + Return CType(Me(Me.table최대냉난방부하.최대냉방기기부하Column),Decimal) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("'최대냉난방부하' 테이블의 '최대냉방기기부하' 열의 값이 DBNull입니다.", e) + End Try + End Get + Set + Me(Me.table최대냉난방부하.최대냉방기기부하Column) = value + End Set + End Property + + _ + Public Property 최대냉방실내부하() As Decimal + Get + Try + Return CType(Me(Me.table최대냉난방부하.최대냉방실내부하Column),Decimal) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("'최대냉난방부하' 테이블의 '최대냉방실내부하' 열의 값이 DBNull입니다.", e) + End Try + End Get + Set + Me(Me.table최대냉난방부하.최대냉방실내부하Column) = value + End Set + End Property + + _ + Public Property 냉방최대가동시간() As Decimal + Get + Try + Return CType(Me(Me.table최대냉난방부하.냉방최대가동시간Column),Decimal) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("'최대냉난방부하' 테이블의 '냉방최대가동시간' 열의 값이 DBNull입니다.", e) + End Try + End Get + Set + Me(Me.table최대냉난방부하.냉방최대가동시간Column) = value + End Set + End Property + + _ + Public Property 최대냉각성능() As Decimal + Get + Try + Return CType(Me(Me.table최대냉난방부하.최대냉각성능Column),Decimal) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("'최대냉난방부하' 테이블의 '최대냉각성능' 열의 값이 DBNull입니다.", e) + End Try + End Get + Set + Me(Me.table최대냉난방부하.최대냉각성능Column) = value + End Set + End Property + + _ + Public Property 최대가습성능() As Decimal + Get + Try + Return CType(Me(Me.table최대냉난방부하.최대가습성능Column),Decimal) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("'최대냉난방부하' 테이블의 '최대가습성능' 열의 값이 DBNull입니다.", e) + End Try + End Get + Set + Me(Me.table최대냉난방부하.최대가습성능Column) = value + End Set + End Property + + _ + Public Property 공조풍량() As Decimal + Get + Try + Return CType(Me(Me.table최대냉난방부하.공조풍량Column),Decimal) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("'최대냉난방부하' 테이블의 '공조풍량' 열의 값이 DBNull입니다.", e) + End Try + End Get + Set + Me(Me.table최대냉난방부하.공조풍량Column) = value + End Set + End Property + + _ + Public Function IsZoneNull() As Boolean + Return Me.IsNull(Me.table최대냉난방부하.ZoneColumn) + End Function + + _ + Public Sub SetZoneNull() + Me(Me.table최대냉난방부하.ZoneColumn) = 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최대가열성능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냉방최대가동시간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공조풍량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 + End Class + + ''' + '''Represents strongly named DataRow class. + ''' + Partial Public Class 월별에너지분석Row + Inherits Global.System.Data.DataRow + + Private table월별에너지분석 As 월별에너지분석DataTable + + _ + Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) + MyBase.New(rb) + Me.table월별에너지분석 = CType(Me.Table,월별에너지분석DataTable) + End Sub + + _ + Public Property 월() As String + Get + Return CType(Me(Me.table월별에너지분석.월Column),String) + End Get + Set + Me(Me.table월별에너지분석.월Column) = value + End Set + End Property + + _ + Public Property 존() As String + Get + Return CType(Me(Me.table월별에너지분석.존Column),String) + End Get + Set + Me(Me.table월별에너지분석.존Column) = value + End Set + End Property + + _ + Public Property 난방요구량열() As Decimal + Get + Try + Return CType(Me(Me.table월별에너지분석.난방요구량열Column),Decimal) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("'월별에너지분석' 테이블의 '난방요구량열' 열의 값이 DBNull입니다.", e) + End Try + End Get + Set + Me(Me.table월별에너지분석.난방요구량열Column) = value + End Set + End Property + + _ + Public Property 난방요구량공조() As Decimal + Get + Try + Return CType(Me(Me.table월별에너지분석.난방요구량공조Column),Decimal) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("'월별에너지분석' 테이블의 '난방요구량공조' 열의 값이 DBNull입니다.", e) + End Try + End Get + Set + Me(Me.table월별에너지분석.난방요구량공조Column) = value + End Set + End Property + + _ + Public Property 냉방요구량열() As Decimal + Get + Try + Return CType(Me(Me.table월별에너지분석.냉방요구량열Column),Decimal) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("'월별에너지분석' 테이블의 '냉방요구량열' 열의 값이 DBNull입니다.", e) + End Try + End Get + Set + Me(Me.table월별에너지분석.냉방요구량열Column) = value + End Set + End Property + + _ + Public Property 냉방요구량공조() As Decimal + Get + Try + Return CType(Me(Me.table월별에너지분석.냉방요구량공조Column),Decimal) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("'월별에너지분석' 테이블의 '냉방요구량공조' 열의 값이 DBNull입니다.", e) + End Try + End Get + Set + Me(Me.table월별에너지분석.냉방요구량공조Column) = value + End Set + End Property + + _ + Public Property 조명요구량() As Decimal + Get + Try + Return CType(Me(Me.table월별에너지분석.조명요구량Column),Decimal) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("'월별에너지분석' 테이블의 '조명요구량' 열의 값이 DBNull입니다.", e) + End Try + End Get + Set + Me(Me.table월별에너지분석.조명요구량Column) = value + End Set + End Property + + _ + Public Property 급탕요구량() As Decimal + Get + Try + Return CType(Me(Me.table월별에너지분석.급탕요구량Column),Decimal) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("'월별에너지분석' 테이블의 '급탕요구량' 열의 값이 DBNull입니다.", e) + End Try + End Get + Set + Me(Me.table월별에너지분석.급탕요구량Column) = value + End Set + End Property + + _ + Public Property 공조풍량() As Decimal + Get + Try + Return CType(Me(Me.table월별에너지분석.공조풍량Column),Decimal) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("'월별에너지분석' 테이블의 '공조풍량' 열의 값이 DBNull입니다.", e) + End Try + End Get + Set + Me(Me.table월별에너지분석.공조풍량Column) = value + End Set + End Property + + _ + Public Property 공조요구량난방() As Decimal + Get + Try + Return CType(Me(Me.table월별에너지분석.공조요구량난방Column),Decimal) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("'월별에너지분석' 테이블의 '공조요구량난방' 열의 값이 DBNull입니다.", e) + End Try + End Get + Set + Me(Me.table월별에너지분석.공조요구량난방Column) = value + End Set + End Property + + _ + Public Property 공조요구량냉방() As Decimal + Get + Try + Return CType(Me(Me.table월별에너지분석.공조요구량냉방Column),Decimal) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("'월별에너지분석' 테이블의 '공조요구량냉방' 열의 값이 DBNull입니다.", e) + End Try + End Get + Set + Me(Me.table월별에너지분석.공조요구량냉방Column) = value + End Set + End Property + + _ + Public Property 공조요구량가습() As Decimal + Get + Try + Return CType(Me(Me.table월별에너지분석.공조요구량가습Column),Decimal) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("'월별에너지분석' 테이블의 '공조요구량가습' 열의 값이 DBNull입니다.", e) + End Try + End Get + Set + Me(Me.table월별에너지분석.공조요구량가습Column) = value + End Set + End Property + + _ + Public Property 환기요구량() As Decimal + Get + Try + Return CType(Me(Me.table월별에너지분석.환기요구량Column),Decimal) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("'월별에너지분석' 테이블의 '환기요구량' 열의 값이 DBNull입니다.", e) + End Try + End Get + Set + Me(Me.table월별에너지분석.환기요구량Column) = value + End Set + End Property + + _ + 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냉방요구량공조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공조풍량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공조요구량가습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 + End Class + + ''' + '''Represents strongly named DataRow class. + ''' + Partial Public Class TReqUseRow + Inherits Global.System.Data.DataRow + + Private tableTReqUse As TReqUseDataTable + + _ + Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) + MyBase.New(rb) + Me.tableTReqUse = CType(Me.Table,TReqUseDataTable) + End Sub + + _ + Public Property Code() As String + Get + Return CType(Me(Me.tableTReqUse.CodeColumn),String) + End Get + Set + Me(Me.tableTReqUse.CodeColumn) = value + End Set + End Property + + _ + Public Property Desc() As String + Get + If Me.IsDescNull Then + Return "" + Else + Return CType(Me(Me.tableTReqUse.DescColumn),String) + End If + End Get + Set + Me(Me.tableTReqUse.DescColumn) = value + End Set + End Property + + _ + Public Property GRP() As String + Get + If Me.IsGRPNull Then + Return "" + Else + Return CType(Me(Me.tableTReqUse.GRPColumn),String) + End If + End Get + Set + Me(Me.tableTReqUse.GRPColumn) = value + End Set + End Property + + _ + Public Property UNIT() As String + Get + If Me.IsUNITNull Then + Return "" + Else + Return CType(Me(Me.tableTReqUse.UNITColumn),String) + End If + End Get + Set + Me(Me.tableTReqUse.UNITColumn) = value + End Set + End Property + + _ + Public Property SIGN() As String + Get + If Me.IsSIGNNull Then + Return "" + Else + Return CType(Me(Me.tableTReqUse.SIGNColumn),String) + End If + End Get + Set + Me(Me.tableTReqUse.SIGNColumn) = value + End Set + End Property + + _ + Public Property EQ() As String + Get + If Me.IsEQNull Then + Return "" + Else + Return CType(Me(Me.tableTReqUse.EQColumn),String) + End If + End Get + Set + Me(Me.tableTReqUse.EQColumn) = value + End Set + End Property + + _ + Public Property M00() As Decimal + Get + Try + Return CType(Me(Me.tableTReqUse.M00Column),Decimal) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("'TReqUse' 테이블의 'M00' 열의 값이 DBNull입니다.", e) + End Try + End Get + Set + Me(Me.tableTReqUse.M00Column) = value + End Set + End Property + + _ + Public Property M01() As Decimal + Get + Try + Return CType(Me(Me.tableTReqUse.M01Column),Decimal) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("'TReqUse' 테이블의 'M01' 열의 값이 DBNull입니다.", e) + End Try + End Get + Set + Me(Me.tableTReqUse.M01Column) = value + End Set + End Property + + _ + Public Property M02() As Decimal + Get + Try + Return CType(Me(Me.tableTReqUse.M02Column),Decimal) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("'TReqUse' 테이블의 'M02' 열의 값이 DBNull입니다.", e) + End Try + End Get + Set + Me(Me.tableTReqUse.M02Column) = value + End Set + End Property + + _ + Public Property M03() As Decimal + Get + Try + Return CType(Me(Me.tableTReqUse.M03Column),Decimal) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("'TReqUse' 테이블의 'M03' 열의 값이 DBNull입니다.", e) + End Try + End Get + Set + Me(Me.tableTReqUse.M03Column) = value + End Set + End Property + + _ + Public Property M04() As Decimal + Get + Try + Return CType(Me(Me.tableTReqUse.M04Column),Decimal) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("'TReqUse' 테이블의 'M04' 열의 값이 DBNull입니다.", e) + End Try + End Get + Set + Me(Me.tableTReqUse.M04Column) = value + End Set + End Property + + _ + Public Property M05() As Decimal + Get + Try + Return CType(Me(Me.tableTReqUse.M05Column),Decimal) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("'TReqUse' 테이블의 'M05' 열의 값이 DBNull입니다.", e) + End Try + End Get + Set + Me(Me.tableTReqUse.M05Column) = value + End Set + End Property + + _ + Public Property M06() As Decimal + Get + Try + Return CType(Me(Me.tableTReqUse.M06Column),Decimal) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("'TReqUse' 테이블의 'M06' 열의 값이 DBNull입니다.", e) + End Try + End Get + Set + Me(Me.tableTReqUse.M06Column) = value + End Set + End Property + + _ + Public Property M07() As Decimal + Get + Try + Return CType(Me(Me.tableTReqUse.M07Column),Decimal) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("'TReqUse' 테이블의 'M07' 열의 값이 DBNull입니다.", e) + End Try + End Get + Set + Me(Me.tableTReqUse.M07Column) = value + End Set + End Property + + _ + Public Property M08() As Decimal + Get + Try + Return CType(Me(Me.tableTReqUse.M08Column),Decimal) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("'TReqUse' 테이블의 'M08' 열의 값이 DBNull입니다.", e) + End Try + End Get + Set + Me(Me.tableTReqUse.M08Column) = value + End Set + End Property + + _ + Public Property M09() As Decimal + Get + Try + Return CType(Me(Me.tableTReqUse.M09Column),Decimal) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("'TReqUse' 테이블의 'M09' 열의 값이 DBNull입니다.", e) + End Try + End Get + Set + Me(Me.tableTReqUse.M09Column) = value + End Set + End Property + + _ + Public Property M10() As Decimal + Get + Try + Return CType(Me(Me.tableTReqUse.M10Column),Decimal) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("'TReqUse' 테이블의 'M10' 열의 값이 DBNull입니다.", e) + End Try + End Get + Set + Me(Me.tableTReqUse.M10Column) = value + End Set + End Property + + _ + Public Property M11() As Decimal + Get + Try + Return CType(Me(Me.tableTReqUse.M11Column),Decimal) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("'TReqUse' 테이블의 'M11' 열의 값이 DBNull입니다.", e) + End Try + End Get + Set + Me(Me.tableTReqUse.M11Column) = value + End Set + End Property + + _ + Public Property M12() As Decimal + Get + Try + Return CType(Me(Me.tableTReqUse.M12Column),Decimal) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("'TReqUse' 테이블의 'M12' 열의 값이 DBNull입니다.", e) + End Try + End Get + Set + Me(Me.tableTReqUse.M12Column) = value + End Set + End Property + + _ + Public Property F() As String + Get + If Me.IsFNull Then + Return "N0" + Else + Return CType(Me(Me.tableTReqUse.FColumn),String) + End If + End Get + Set + Me(Me.tableTReqUse.FColumn) = value + End Set + End Property + + _ + Public Function IsDescNull() As Boolean + Return Me.IsNull(Me.tableTReqUse.DescColumn) + End Function + + _ + Public Sub SetDescNull() + Me(Me.tableTReqUse.DescColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsGRPNull() As Boolean + Return Me.IsNull(Me.tableTReqUse.GRPColumn) + End Function + + _ + Public Sub SetGRPNull() + Me(Me.tableTReqUse.GRPColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsUNITNull() As Boolean + Return Me.IsNull(Me.tableTReqUse.UNITColumn) + End Function + + _ + Public Sub SetUNITNull() + Me(Me.tableTReqUse.UNITColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsSIGNNull() As Boolean + Return Me.IsNull(Me.tableTReqUse.SIGNColumn) + End Function + + _ + Public Sub SetSIGNNull() + Me(Me.tableTReqUse.SIGNColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsEQNull() As Boolean + Return Me.IsNull(Me.tableTReqUse.EQColumn) + End Function + + _ + Public Sub SetEQNull() + Me(Me.tableTReqUse.EQColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsM00Null() As Boolean + Return Me.IsNull(Me.tableTReqUse.M00Column) + End Function + + _ + Public Sub SetM00Null() + Me(Me.tableTReqUse.M00Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsM01Null() As Boolean + Return Me.IsNull(Me.tableTReqUse.M01Column) + End Function + + _ + Public Sub SetM01Null() + Me(Me.tableTReqUse.M01Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsM02Null() As Boolean + Return Me.IsNull(Me.tableTReqUse.M02Column) + End Function + + _ + Public Sub SetM02Null() + Me(Me.tableTReqUse.M02Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsM03Null() As Boolean + Return Me.IsNull(Me.tableTReqUse.M03Column) + End Function + + _ + Public Sub SetM03Null() + Me(Me.tableTReqUse.M03Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsM04Null() As Boolean + Return Me.IsNull(Me.tableTReqUse.M04Column) + End Function + + _ + Public Sub SetM04Null() + Me(Me.tableTReqUse.M04Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsM05Null() As Boolean + Return Me.IsNull(Me.tableTReqUse.M05Column) + End Function + + _ + Public Sub SetM05Null() + Me(Me.tableTReqUse.M05Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsM06Null() As Boolean + Return Me.IsNull(Me.tableTReqUse.M06Column) + End Function + + _ + Public Sub SetM06Null() + Me(Me.tableTReqUse.M06Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsM07Null() As Boolean + Return Me.IsNull(Me.tableTReqUse.M07Column) + End Function + + _ + Public Sub SetM07Null() + Me(Me.tableTReqUse.M07Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsM08Null() As Boolean + Return Me.IsNull(Me.tableTReqUse.M08Column) + End Function + + _ + Public Sub SetM08Null() + Me(Me.tableTReqUse.M08Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsM09Null() As Boolean + Return Me.IsNull(Me.tableTReqUse.M09Column) + End Function + + _ + Public Sub SetM09Null() + Me(Me.tableTReqUse.M09Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsM10Null() As Boolean + Return Me.IsNull(Me.tableTReqUse.M10Column) + End Function + + _ + Public Sub SetM10Null() + Me(Me.tableTReqUse.M10Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsM11Null() As Boolean + Return Me.IsNull(Me.tableTReqUse.M11Column) + End Function + + _ + Public Sub SetM11Null() + Me(Me.tableTReqUse.M11Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsM12Null() As Boolean + Return Me.IsNull(Me.tableTReqUse.M12Column) + End Function + + _ + Public Sub SetM12Null() + Me(Me.tableTReqUse.M12Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsFNull() As Boolean + Return Me.IsNull(Me.tableTReqUse.FColumn) + End Function + + _ + Public Sub SetFNull() + Me(Me.tableTReqUse.FColumn) = Global.System.Convert.DBNull + End Sub + End Class + + ''' + '''Represents strongly named DataRow class. + ''' + Partial Public Class Graph_ReqRow + Inherits Global.System.Data.DataRow + + Private tableGraph_Req As Graph_ReqDataTable + + _ + Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) + MyBase.New(rb) + Me.tableGraph_Req = CType(Me.Table,Graph_ReqDataTable) + End Sub + + _ + Public Property Gubun() As String + Get + Try + Return CType(Me(Me.tableGraph_Req.GubunColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("'Graph_Req' 테이블의 'Gubun' 열의 값이 DBNull입니다.", e) + End Try + End Get + Set + Me(Me.tableGraph_Req.GubunColumn) = value + End Set + End Property + + _ + Public Property Mon() As String + Get + Try + Return CType(Me(Me.tableGraph_Req.MonColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("'Graph_Req' 테이블의 'Mon' 열의 값이 DBNull입니다.", e) + End Try + End Get + Set + Me(Me.tableGraph_Req.MonColumn) = value + End Set + End Property + + _ + Public Property Req() As Decimal + Get + Try + Return CType(Me(Me.tableGraph_Req.ReqColumn),Decimal) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("'Graph_Req' 테이블의 'Req' 열의 값이 DBNull입니다.", e) + End Try + End Get + Set + Me(Me.tableGraph_Req.ReqColumn) = value + End Set + End Property + + _ + Public Function IsGubunNull() As Boolean + Return Me.IsNull(Me.tableGraph_Req.GubunColumn) + End Function + + _ + Public Sub SetGubunNull() + Me(Me.tableGraph_Req.GubunColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsMonNull() As Boolean + Return Me.IsNull(Me.tableGraph_Req.MonColumn) + End Function + + _ + Public Sub SetMonNull() + Me(Me.tableGraph_Req.MonColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsReqNull() As Boolean + Return Me.IsNull(Me.tableGraph_Req.ReqColumn) + End Function + + _ + Public Sub SetReqNull() + Me(Me.tableGraph_Req.ReqColumn) = Global.System.Convert.DBNull + End Sub + End Class + + ''' + '''Represents strongly named DataRow class. + ''' + Partial Public Class Graph_ReqUseRow + Inherits Global.System.Data.DataRow + + Private tableGraph_ReqUse As Graph_ReqUseDataTable + + _ + Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) + MyBase.New(rb) + Me.tableGraph_ReqUse = CType(Me.Table,Graph_ReqUseDataTable) + End Sub + + _ + Public Property Gubun() As String + Get + Try + Return CType(Me(Me.tableGraph_ReqUse.GubunColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("'Graph_ReqUse' 테이블의 'Gubun' 열의 값이 DBNull입니다.", e) + End Try + End Get + Set + Me(Me.tableGraph_ReqUse.GubunColumn) = value + End Set + End Property + + _ + Public Property type() As String + Get + Try + Return CType(Me(Me.tableGraph_ReqUse.typeColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("'Graph_ReqUse' 테이블의 'type' 열의 값이 DBNull입니다.", e) + End Try + End Get + Set + Me(Me.tableGraph_ReqUse.typeColumn) = value + End Set + End Property + + _ + Public Property Req() As Decimal + Get + Try + Return CType(Me(Me.tableGraph_ReqUse.ReqColumn),Decimal) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("'Graph_ReqUse' 테이블의 'Req' 열의 값이 DBNull입니다.", e) + End Try + End Get + Set + Me(Me.tableGraph_ReqUse.ReqColumn) = value + End Set + End Property + + _ + Public Function IsGubunNull() As Boolean + Return Me.IsNull(Me.tableGraph_ReqUse.GubunColumn) + End Function + + _ + Public Sub SetGubunNull() + Me(Me.tableGraph_ReqUse.GubunColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IstypeNull() As Boolean + Return Me.IsNull(Me.tableGraph_ReqUse.typeColumn) + End Function + + _ + Public Sub SettypeNull() + Me(Me.tableGraph_ReqUse.typeColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsReqNull() As Boolean + Return Me.IsNull(Me.tableGraph_ReqUse.ReqColumn) + End Function + + _ + Public Sub SetReqNull() + Me(Me.tableGraph_ReqUse.ReqColumn) = Global.System.Convert.DBNull + End Sub + End Class + + ''' + '''Represents strongly named DataRow class. + ''' + Partial Public Class Graph_InfoRow + Inherits Global.System.Data.DataRow + + Private tableGraph_Info As Graph_InfoDataTable + + _ + Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) + MyBase.New(rb) + Me.tableGraph_Info = CType(Me.Table,Graph_InfoDataTable) + End Sub + + _ + Public Property name() As String + Get + If Me.IsnameNull Then + Return "" + Else + Return CType(Me(Me.tableGraph_Info.nameColumn),String) + End If + End Get + Set + Me(Me.tableGraph_Info.nameColumn) = value + End Set + End Property + + _ + Public Property year() As String + Get + If Me.IsyearNull Then + Return "" + Else + Return CType(Me(Me.tableGraph_Info.yearColumn),String) + End If + End Get + Set + Me(Me.tableGraph_Info.yearColumn) = value + End Set + End Property + + _ + Public Property juso() As String + Get + If Me.IsjusoNull Then + Return "" + Else + Return CType(Me(Me.tableGraph_Info.jusoColumn),String) + End If + End Get + Set + Me(Me.tableGraph_Info.jusoColumn) = value + End Set + End Property + + _ + Public Property chung() As String + Get + If Me.IschungNull Then + Return "" + Else + Return CType(Me(Me.tableGraph_Info.chungColumn),String) + End If + End Get + Set + Me(Me.tableGraph_Info.chungColumn) = value + End Set + End Property + + _ + Public Property myoun() As String + Get + If Me.IsmyounNull Then + Return "" + Else + Return CType(Me(Me.tableGraph_Info.myounColumn),String) + End If + End Get + Set + Me(Me.tableGraph_Info.myounColumn) = value + End Set + End Property + + _ + Public Property ydo() As String + Get + If Me.IsydoNull Then + Return "" + Else + Return CType(Me(Me.tableGraph_Info.ydoColumn),String) + End If + End Get + Set + Me(Me.tableGraph_Info.ydoColumn) = value + End Set + End Property + + _ + Public Property i1() As String + Get + If Me.Isi1Null Then + Return "" + Else + Return CType(Me(Me.tableGraph_Info.i1Column),String) + End If + End Get + Set + Me(Me.tableGraph_Info.i1Column) = value + End Set + End Property + + _ + Public Property i2() As String + Get + If Me.Isi2Null Then + Return "" + Else + Return CType(Me(Me.tableGraph_Info.i2Column),String) + End If + End Get + Set + Me(Me.tableGraph_Info.i2Column) = value + End Set + End Property + + _ + Public Property i3() As String + Get + If Me.Isi3Null Then + Return "" + Else + Return CType(Me(Me.tableGraph_Info.i3Column),String) + End If + End Get + Set + Me(Me.tableGraph_Info.i3Column) = value + End Set + End Property + + _ + Public Property grade() As String + Get + If Me.IsgradeNull Then + Return "" + Else + Return CType(Me(Me.tableGraph_Info.gradeColumn),String) + End If + End Get + Set + Me(Me.tableGraph_Info.gradeColumn) = value + End Set + End Property + + _ + Public Property co2() As Short + Get + Try + Return CType(Me(Me.tableGraph_Info.co2Column),Short) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("'Graph_Info' 테이블의 'co2' 열의 값이 DBNull입니다.", e) + End Try + End Get + Set + Me(Me.tableGraph_Info.co2Column) = value + End Set + End Property + + _ + Public Function IsnameNull() As Boolean + Return Me.IsNull(Me.tableGraph_Info.nameColumn) + End Function + + _ + Public Sub SetnameNull() + Me(Me.tableGraph_Info.nameColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsyearNull() As Boolean + Return Me.IsNull(Me.tableGraph_Info.yearColumn) + End Function + + _ + Public Sub SetyearNull() + Me(Me.tableGraph_Info.yearColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsjusoNull() As Boolean + Return Me.IsNull(Me.tableGraph_Info.jusoColumn) + End Function + + _ + Public Sub SetjusoNull() + Me(Me.tableGraph_Info.jusoColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IschungNull() As Boolean + Return Me.IsNull(Me.tableGraph_Info.chungColumn) + End Function + + _ + Public Sub SetchungNull() + Me(Me.tableGraph_Info.chungColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsmyounNull() As Boolean + Return Me.IsNull(Me.tableGraph_Info.myounColumn) + End Function + + _ + Public Sub SetmyounNull() + Me(Me.tableGraph_Info.myounColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsydoNull() As Boolean + Return Me.IsNull(Me.tableGraph_Info.ydoColumn) + End Function + + _ + Public Sub SetydoNull() + Me(Me.tableGraph_Info.ydoColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Isi1Null() As Boolean + Return Me.IsNull(Me.tableGraph_Info.i1Column) + End Function + + _ + Public Sub Seti1Null() + Me(Me.tableGraph_Info.i1Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Isi2Null() As Boolean + Return Me.IsNull(Me.tableGraph_Info.i2Column) + End Function + + _ + Public Sub Seti2Null() + Me(Me.tableGraph_Info.i2Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Isi3Null() As Boolean + Return Me.IsNull(Me.tableGraph_Info.i3Column) + End Function + + _ + Public Sub Seti3Null() + Me(Me.tableGraph_Info.i3Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsgradeNull() As Boolean + Return Me.IsNull(Me.tableGraph_Info.gradeColumn) + End Function + + _ + Public Sub SetgradeNull() + Me(Me.tableGraph_Info.gradeColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Isco2Null() As Boolean + Return Me.IsNull(Me.tableGraph_Info.co2Column) + End Function + + _ + Public Sub Setco2Null() + Me(Me.tableGraph_Info.co2Column) = Global.System.Convert.DBNull + End Sub + End Class + + ''' + '''Represents strongly named DataRow class. + ''' + Partial Public Class 사용면적Row + Inherits Global.System.Data.DataRow + + Private table사용면적 As 사용면적DataTable + + _ + Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) + MyBase.New(rb) + Me.table사용면적 = CType(Me.Table,사용면적DataTable) + End Sub + + _ + Public Property H() As Decimal + Get + If Me.IsHNull Then + Return 0D + Else + Return CType(Me(Me.table사용면적.HColumn),Decimal) + End If + End Get + Set + Me(Me.table사용면적.HColumn) = value + End Set + End Property + + _ + Public Property C() As Decimal + Get + If Me.IsCNull Then + Return 0D + Else + Return CType(Me(Me.table사용면적.CColumn),Decimal) + End If + End Get + Set + Me(Me.table사용면적.CColumn) = value + End Set + End Property + + _ + Public Property L() As Decimal + Get + If Me.IsLNull Then + Return 0D + Else + Return CType(Me(Me.table사용면적.LColumn),Decimal) + End If + End Get + Set + Me(Me.table사용면적.LColumn) = value + End Set + End Property + + _ + Public Property W() As Decimal + Get + If Me.IsWNull Then + Return 0D + Else + Return CType(Me(Me.table사용면적.WColumn),Decimal) + End If + End Get + Set + Me(Me.table사용면적.WColumn) = value + End Set + End Property + + _ + Public Property V() As Decimal + Get + If Me.IsVNull Then + Return 0D + Else + Return CType(Me(Me.table사용면적.VColumn),Decimal) + End If + End Get + Set + Me(Me.table사용면적.VColumn) = value + End Set + End Property + + _ + Public Property H_WF() As Decimal + Get + If Me.IsH_WFNull Then + Return 0D + Else + Return CType(Me(Me.table사용면적.H_WFColumn),Decimal) + End If + End Get + Set + Me(Me.table사용면적.H_WFColumn) = value + End Set + End Property + + _ + Public Property C_WF() As Decimal + Get + If Me.IsC_WFNull Then + Return 0D + Else + Return CType(Me(Me.table사용면적.C_WFColumn),Decimal) + End If + End Get + Set + Me(Me.table사용면적.C_WFColumn) = value + End Set + End Property + + _ + Public Property L_WF() As Decimal + Get + If Me.IsL_WFNull Then + Return 0D + Else + Return CType(Me(Me.table사용면적.L_WFColumn),Decimal) + End If + End Get + Set + Me(Me.table사용면적.L_WFColumn) = value + End Set + End Property + + _ + Public Property W_WF() As Decimal + Get + If Me.IsW_WFNull Then + Return 0D + Else + Return CType(Me(Me.table사용면적.W_WFColumn),Decimal) + End If + End Get + Set + Me(Me.table사용면적.W_WFColumn) = value + End Set + End Property + + _ + Public Property V_WF() As Decimal + Get + If Me.IsV_WFNull Then + Return 0D + Else + Return CType(Me(Me.table사용면적.V_WFColumn),Decimal) + End If + End Get + Set + Me(Me.table사용면적.V_WFColumn) = value + End Set + End Property + + _ + Public Function IsHNull() As Boolean + Return Me.IsNull(Me.table사용면적.HColumn) + End Function + + _ + Public Sub SetHNull() + Me(Me.table사용면적.HColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsCNull() As Boolean + Return Me.IsNull(Me.table사용면적.CColumn) + End Function + + _ + Public Sub SetCNull() + Me(Me.table사용면적.CColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsLNull() As Boolean + Return Me.IsNull(Me.table사용면적.LColumn) + End Function + + _ + Public Sub SetLNull() + Me(Me.table사용면적.LColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsWNull() As Boolean + Return Me.IsNull(Me.table사용면적.WColumn) + End Function + + _ + Public Sub SetWNull() + Me(Me.table사용면적.WColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsVNull() As Boolean + Return Me.IsNull(Me.table사용면적.VColumn) + End Function + + _ + Public Sub SetVNull() + Me(Me.table사용면적.VColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsH_WFNull() As Boolean + Return Me.IsNull(Me.table사용면적.H_WFColumn) + End Function + + _ + Public Sub SetH_WFNull() + Me(Me.table사용면적.H_WFColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsC_WFNull() As Boolean + Return Me.IsNull(Me.table사용면적.C_WFColumn) + End Function + + _ + Public Sub SetC_WFNull() + Me(Me.table사용면적.C_WFColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsL_WFNull() As Boolean + Return Me.IsNull(Me.table사용면적.L_WFColumn) + End Function + + _ + Public Sub SetL_WFNull() + Me(Me.table사용면적.L_WFColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsW_WFNull() As Boolean + Return Me.IsNull(Me.table사용면적.W_WFColumn) + End Function + + _ + Public Sub SetW_WFNull() + Me(Me.table사용면적.W_WFColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsV_WFNull() As Boolean + Return Me.IsNull(Me.table사용면적.V_WFColumn) + End Function + + _ + Public Sub SetV_WFNull() + Me(Me.table사용면적.V_WFColumn) = Global.System.Convert.DBNull + End Sub + End Class + + ''' + '''Represents strongly named DataRow class. + ''' + Partial Public Class 에너지소요량Row + Inherits Global.System.Data.DataRow + + Private table에너지소요량 As 에너지소요량DataTable + + _ + Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) + MyBase.New(rb) + Me.table에너지소요량 = CType(Me.Table,에너지소요량DataTable) + End Sub + + _ + Public Property mon() As String + Get + Try + Return CType(Me(Me.table에너지소요량.monColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("'에너지소요량' 테이블의 'mon' 열의 값이 DBNull입니다.", e) + End Try + End Get + Set + Me(Me.table에너지소요량.monColumn) = value + End Set + End Property + + _ + Public Property 난방에너지소요량() As String + Get + Try + Return CType(Me(Me.table에너지소요량.난방에너지소요량Column),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("'에너지소요량' 테이블의 '난방에너지소요량' 열의 값이 DBNull입니다.", e) + End Try + End Get + Set + Me(Me.table에너지소요량.난방에너지소요량Column) = value + End Set + End Property + + _ + Public Property 난방보조에너지소요량() As String + Get + Try + Return CType(Me(Me.table에너지소요량.난방보조에너지소요량Column),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("'에너지소요량' 테이블의 '난방보조에너지소요량' 열의 값이 DBNull입니다.", e) + End Try + End Get + Set + Me(Me.table에너지소요량.난방보조에너지소요량Column) = value + End Set + End Property + + _ + Public Property 냉방에너지소요량() As String + Get + Try + Return CType(Me(Me.table에너지소요량.냉방에너지소요량Column),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("'에너지소요량' 테이블의 '냉방에너지소요량' 열의 값이 DBNull입니다.", e) + End Try + End Get + Set + Me(Me.table에너지소요량.냉방에너지소요량Column) = value + End Set + End Property + + _ + Public Property 냉방보조에너지소요량() As String + Get + Try + Return CType(Me(Me.table에너지소요량.냉방보조에너지소요량Column),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("'에너지소요량' 테이블의 '냉방보조에너지소요량' 열의 값이 DBNull입니다.", e) + End Try + End Get + Set + Me(Me.table에너지소요량.냉방보조에너지소요량Column) = value + End Set + End Property + + _ + Public Property 급탕에너지소요량() As String + Get + Try + Return CType(Me(Me.table에너지소요량.급탕에너지소요량Column),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("'에너지소요량' 테이블의 '급탕에너지소요량' 열의 값이 DBNull입니다.", e) + End Try + End Get + Set + Me(Me.table에너지소요량.급탕에너지소요량Column) = value + End Set + End Property + + _ + Public Property 급탕보조에너지소요량() As String + Get + Try + Return CType(Me(Me.table에너지소요량.급탕보조에너지소요량Column),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("'에너지소요량' 테이블의 '급탕보조에너지소요량' 열의 값이 DBNull입니다.", e) + End Try + End Get + Set + Me(Me.table에너지소요량.급탕보조에너지소요량Column) = value + End Set + End Property + + _ + Public Property 난방() As Decimal + Get + Try + Return CType(Me(Me.table에너지소요량.난방Column),Decimal) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("'에너지소요량' 테이블의 '난방' 열의 값이 DBNull입니다.", e) + End Try + End Get + Set + Me(Me.table에너지소요량.난방Column) = value + End Set + End Property + + _ + Public Property 냉방() As Decimal + Get + Try + Return CType(Me(Me.table에너지소요량.냉방Column),Decimal) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("'에너지소요량' 테이블의 '냉방' 열의 값이 DBNull입니다.", e) + End Try + End Get + Set + Me(Me.table에너지소요량.냉방Column) = value + End Set + End Property + + _ + Public Property 조명() As Decimal + Get + Try + Return CType(Me(Me.table에너지소요량.조명Column),Decimal) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("'에너지소요량' 테이블의 '조명' 열의 값이 DBNull입니다.", e) + End Try + End Get + Set + Me(Me.table에너지소요량.조명Column) = value + End Set + End Property + + _ + Public Property 급탕() As Decimal + Get + Try + Return CType(Me(Me.table에너지소요량.급탕Column),Decimal) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("'에너지소요량' 테이블의 '급탕' 열의 값이 DBNull입니다.", e) + End Try + End Get + Set + Me(Me.table에너지소요량.급탕Column) = value + End Set + End Property + + _ + Public Property 환기() As Decimal + Get + Try + Return CType(Me(Me.table에너지소요량.환기Column),Decimal) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("'에너지소요량' 테이블의 '환기' 열의 값이 DBNull입니다.", e) + End Try + End Get + Set + Me(Me.table에너지소요량.환기Column) = value + End Set + End Property + + _ + Public Function IsmonNull() As Boolean + Return Me.IsNull(Me.table에너지소요량.monColumn) + End Function + + _ + Public Sub SetmonNull() + Me(Me.table에너지소요량.monColumn) = 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냉방보조에너지소요량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난방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급탕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 + End Class + + ''' + '''Represents strongly named DataRow class. + ''' + Partial Public Class 에너지소요량1Row + Inherits Global.System.Data.DataRow + + Private table에너지소요량1 As 에너지소요량1DataTable + + _ + Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) + MyBase.New(rb) + Me.table에너지소요량1 = CType(Me.Table,에너지소요량1DataTable) + End Sub + + _ + Public Property mon() As String + Get + Try + Return CType(Me(Me.table에너지소요량1.monColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("'에너지소요량1' 테이블의 'mon' 열의 값이 DBNull입니다.", e) + End Try + End Get + Set + Me(Me.table에너지소요량1.monColumn) = value + End Set + End Property + + _ + Public Property 난방등유() As String + Get + Try + Return CType(Me(Me.table에너지소요량1.난방등유Column),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("'에너지소요량1' 테이블의 '난방등유' 열의 값이 DBNull입니다.", e) + End Try + End Get + Set + Me(Me.table에너지소요량1.난방등유Column) = value + End Set + End Property + + _ + Public Property 난방LNG() As String + Get + Try + Return CType(Me(Me.table에너지소요량1.난방LNGColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("'에너지소요량1' 테이블의 '난방LNG' 열의 값이 DBNull입니다.", e) + End Try + End Get + Set + Me(Me.table에너지소요량1.난방LNGColumn) = value + End Set + End Property + + _ + Public Property 난방LPG() As String + Get + Try + Return CType(Me(Me.table에너지소요량1.난방LPGColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("'에너지소요량1' 테이블의 '난방LPG' 열의 값이 DBNull입니다.", e) + End Try + End Get + Set + Me(Me.table에너지소요량1.난방LPGColumn) = value + End Set + End Property + + _ + Public Property 난방지역() As String + Get + Try + Return CType(Me(Me.table에너지소요량1.난방지역Column),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("'에너지소요량1' 테이블의 '난방지역' 열의 값이 DBNull입니다.", e) + End Try + End Get + Set + Me(Me.table에너지소요량1.난방지역Column) = value + End Set + End Property + + _ + Public Property 난방전력() As String + Get + Try + Return CType(Me(Me.table에너지소요량1.난방전력Column),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("'에너지소요량1' 테이블의 '난방전력' 열의 값이 DBNull입니다.", e) + End Try + End Get + Set + Me(Me.table에너지소요량1.난방전력Column) = value + End Set + End Property + + _ + Public Property 난방펠렛() As String + Get + If Me.Is난방펠렛Null Then + Return "0" + Else + Return CType(Me(Me.table에너지소요량1.난방펠렛Column),String) + End If + End Get + Set + Me(Me.table에너지소요량1.난방펠렛Column) = value + End Set + End Property + + _ + Public Property 냉방등유() As String + Get + Try + Return CType(Me(Me.table에너지소요량1.냉방등유Column),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("'에너지소요량1' 테이블의 '냉방등유' 열의 값이 DBNull입니다.", e) + End Try + End Get + Set + Me(Me.table에너지소요량1.냉방등유Column) = value + End Set + End Property + + _ + Public Property 냉방LNG() As String + Get + Try + Return CType(Me(Me.table에너지소요량1.냉방LNGColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("'에너지소요량1' 테이블의 '냉방LNG' 열의 값이 DBNull입니다.", e) + End Try + End Get + Set + Me(Me.table에너지소요량1.냉방LNGColumn) = value + End Set + End Property + + _ + Public Property 냉방LPG() As String + Get + Try + Return CType(Me(Me.table에너지소요량1.냉방LPGColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("'에너지소요량1' 테이블의 '냉방LPG' 열의 값이 DBNull입니다.", e) + End Try + End Get + Set + Me(Me.table에너지소요량1.냉방LPGColumn) = value + End Set + End Property + + _ + Public Property 냉방지역() As String + Get + Try + Return CType(Me(Me.table에너지소요량1.냉방지역Column),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("'에너지소요량1' 테이블의 '냉방지역' 열의 값이 DBNull입니다.", e) + End Try + End Get + Set + Me(Me.table에너지소요량1.냉방지역Column) = value + End Set + End Property + + _ + Public Property 냉방지역2() As Decimal + Get + Try + Return CType(Me(Me.table에너지소요량1.냉방지역2Column),Decimal) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("'에너지소요량1' 테이블의 '냉방지역2' 열의 값이 DBNull입니다.", e) + End Try + End Get + Set + Me(Me.table에너지소요량1.냉방지역2Column) = value + End Set + End Property + + _ + Public Property 냉방전력() As String + Get + Try + Return CType(Me(Me.table에너지소요량1.냉방전력Column),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("'에너지소요량1' 테이블의 '냉방전력' 열의 값이 DBNull입니다.", e) + End Try + End Get + Set + Me(Me.table에너지소요량1.냉방전력Column) = value + End Set + End Property + + _ + Public Property 냉방펠렛() As String + Get + If Me.Is냉방펠렛Null Then + Return "0" + Else + Return CType(Me(Me.table에너지소요량1.냉방펠렛Column),String) + End If + End Get + Set + Me(Me.table에너지소요량1.냉방펠렛Column) = value + End Set + End Property + + _ + Public Property 급탕등유() As String + Get + Try + Return CType(Me(Me.table에너지소요량1.급탕등유Column),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("'에너지소요량1' 테이블의 '급탕등유' 열의 값이 DBNull입니다.", e) + End Try + End Get + Set + Me(Me.table에너지소요량1.급탕등유Column) = value + End Set + End Property + + _ + Public Property 급탕LNG() As String + Get + Try + Return CType(Me(Me.table에너지소요량1.급탕LNGColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("'에너지소요량1' 테이블의 '급탕LNG' 열의 값이 DBNull입니다.", e) + End Try + End Get + Set + Me(Me.table에너지소요량1.급탕LNGColumn) = value + End Set + End Property + + _ + Public Property 급탕LPG() As String + Get + Try + Return CType(Me(Me.table에너지소요량1.급탕LPGColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("'에너지소요량1' 테이블의 '급탕LPG' 열의 값이 DBNull입니다.", e) + End Try + End Get + Set + Me(Me.table에너지소요량1.급탕LPGColumn) = value + End Set + End Property + + _ + Public Property 급탕지역() As String + Get + Try + Return CType(Me(Me.table에너지소요량1.급탕지역Column),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("'에너지소요량1' 테이블의 '급탕지역' 열의 값이 DBNull입니다.", e) + End Try + End Get + Set + Me(Me.table에너지소요량1.급탕지역Column) = value + End Set + End Property + + _ + Public Property 급탕전력() As String + Get + Try + Return CType(Me(Me.table에너지소요량1.급탕전력Column),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("'에너지소요량1' 테이블의 '급탕전력' 열의 값이 DBNull입니다.", e) + End Try + End Get + Set + Me(Me.table에너지소요량1.급탕전력Column) = value + End Set + End Property + + _ + Public Property 급탕펠렛() As String + Get + If Me.Is급탕펠렛Null Then + Return "0" + Else + Return CType(Me(Me.table에너지소요량1.급탕펠렛Column),String) + End If + End Get + Set + Me(Me.table에너지소요량1.급탕펠렛Column) = value + End Set + End Property + + _ + Public Function IsmonNull() As Boolean + Return Me.IsNull(Me.table에너지소요량1.monColumn) + End Function + + _ + Public Sub SetmonNull() + Me(Me.table에너지소요량1.monColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is난방등유Null() As Boolean + Return Me.IsNull(Me.table에너지소요량1.난방등유Column) + End Function + + _ + Public Sub Set난방등유Null() + Me(Me.table에너지소요량1.난방등유Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is난방LNGNull() As Boolean + Return Me.IsNull(Me.table에너지소요량1.난방LNGColumn) + End Function + + _ + Public Sub Set난방LNGNull() + Me(Me.table에너지소요량1.난방LNGColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is난방LPGNull() As Boolean + Return Me.IsNull(Me.table에너지소요량1.난방LPGColumn) + End Function + + _ + Public Sub Set난방LPGNull() + Me(Me.table에너지소요량1.난방LPGColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is난방지역Null() As Boolean + Return Me.IsNull(Me.table에너지소요량1.난방지역Column) + End Function + + _ + Public Sub Set난방지역Null() + Me(Me.table에너지소요량1.난방지역Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is난방전력Null() As Boolean + Return Me.IsNull(Me.table에너지소요량1.난방전력Column) + End Function + + _ + Public Sub Set난방전력Null() + Me(Me.table에너지소요량1.난방전력Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is난방펠렛Null() As Boolean + Return Me.IsNull(Me.table에너지소요량1.난방펠렛Column) + End Function + + _ + Public Sub Set난방펠렛Null() + Me(Me.table에너지소요량1.난방펠렛Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is냉방등유Null() As Boolean + Return Me.IsNull(Me.table에너지소요량1.냉방등유Column) + End Function + + _ + Public Sub Set냉방등유Null() + Me(Me.table에너지소요량1.냉방등유Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is냉방LNGNull() As Boolean + Return Me.IsNull(Me.table에너지소요량1.냉방LNGColumn) + End Function + + _ + Public Sub Set냉방LNGNull() + Me(Me.table에너지소요량1.냉방LNGColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is냉방LPGNull() As Boolean + Return Me.IsNull(Me.table에너지소요량1.냉방LPGColumn) + End Function + + _ + Public Sub Set냉방LPGNull() + Me(Me.table에너지소요량1.냉방LPGColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is냉방지역Null() As Boolean + Return Me.IsNull(Me.table에너지소요량1.냉방지역Column) + End Function + + _ + Public Sub Set냉방지역Null() + Me(Me.table에너지소요량1.냉방지역Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is냉방지역2Null() As Boolean + Return Me.IsNull(Me.table에너지소요량1.냉방지역2Column) + End Function + + _ + Public Sub Set냉방지역2Null() + Me(Me.table에너지소요량1.냉방지역2Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is냉방전력Null() As Boolean + Return Me.IsNull(Me.table에너지소요량1.냉방전력Column) + End Function + + _ + Public Sub Set냉방전력Null() + Me(Me.table에너지소요량1.냉방전력Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is냉방펠렛Null() As Boolean + Return Me.IsNull(Me.table에너지소요량1.냉방펠렛Column) + End Function + + _ + Public Sub Set냉방펠렛Null() + Me(Me.table에너지소요량1.냉방펠렛Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is급탕등유Null() As Boolean + Return Me.IsNull(Me.table에너지소요량1.급탕등유Column) + End Function + + _ + Public Sub Set급탕등유Null() + Me(Me.table에너지소요량1.급탕등유Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is급탕LNGNull() As Boolean + Return Me.IsNull(Me.table에너지소요량1.급탕LNGColumn) + End Function + + _ + Public Sub Set급탕LNGNull() + Me(Me.table에너지소요량1.급탕LNGColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is급탕LPGNull() As Boolean + Return Me.IsNull(Me.table에너지소요량1.급탕LPGColumn) + End Function + + _ + Public Sub Set급탕LPGNull() + Me(Me.table에너지소요량1.급탕LPGColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is급탕지역Null() As Boolean + Return Me.IsNull(Me.table에너지소요량1.급탕지역Column) + End Function + + _ + Public Sub Set급탕지역Null() + Me(Me.table에너지소요량1.급탕지역Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is급탕전력Null() As Boolean + Return Me.IsNull(Me.table에너지소요량1.급탕전력Column) + End Function + + _ + Public Sub Set급탕전력Null() + Me(Me.table에너지소요량1.급탕전력Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is급탕펠렛Null() As Boolean + Return Me.IsNull(Me.table에너지소요량1.급탕펠렛Column) + End Function + + _ + Public Sub Set급탕펠렛Null() + Me(Me.table에너지소요량1.급탕펠렛Column) = Global.System.Convert.DBNull + End Sub + End Class + + ''' + '''Represents strongly named DataRow class. + ''' + Partial Public Class 생산에너지Row + Inherits Global.System.Data.DataRow + + Private table생산에너지 As 생산에너지DataTable + + _ + Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) + MyBase.New(rb) + Me.table생산에너지 = CType(Me.Table,생산에너지DataTable) + End Sub + + _ + Public Property mon() As String + Get + Try + Return CType(Me(Me.table생산에너지.monColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("'생산에너지' 테이블의 'mon' 열의 값이 DBNull입니다.", e) + End Try + End Get + Set + Me(Me.table생산에너지.monColumn) = value + End Set + End Property + + _ + Public Property 전력태양광() As String + Get + Try + Return CType(Me(Me.table생산에너지.전력태양광Column),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("'생산에너지' 테이블의 '전력태양광' 열의 값이 DBNull입니다.", e) + End Try + End Get + Set + Me(Me.table생산에너지.전력태양광Column) = value + End Set + End Property + + _ + Public Property 전력열병합() As String + Get + Try + Return CType(Me(Me.table생산에너지.전력열병합Column),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("'생산에너지' 테이블의 '전력열병합' 열의 값이 DBNull입니다.", e) + End Try + End Get + Set + Me(Me.table생산에너지.전력열병합Column) = value + End Set + End Property + + _ + Public Property 생산량태양열() As String + Get + Try + Return CType(Me(Me.table생산에너지.생산량태양열Column),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("'생산에너지' 테이블의 '생산량태양열' 열의 값이 DBNull입니다.", e) + End Try + End Get + Set + Me(Me.table생산에너지.생산량태양열Column) = value + End Set + End Property + + _ + Public Property 생산량지열() As String + Get + Try + Return CType(Me(Me.table생산에너지.생산량지열Column),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("'생산에너지' 테이블의 '생산량지열' 열의 값이 DBNull입니다.", e) + End Try + End Get + Set + Me(Me.table생산에너지.생산량지열Column) = value + End Set + End Property + + _ + Public Property 면적당생산량태양열() As Decimal + Get + Try + Return CType(Me(Me.table생산에너지.면적당생산량태양열Column),Decimal) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("'생산에너지' 테이블의 '면적당생산량태양열' 열의 값이 DBNull입니다.", e) + End Try + End Get + Set + Me(Me.table생산에너지.면적당생산량태양열Column) = value + End Set + End Property + + _ + Public Property 면적당생산량지열() As Decimal + Get + Try + Return CType(Me(Me.table생산에너지.면적당생산량지열Column),Decimal) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("'생산에너지' 테이블의 '면적당생산량지열' 열의 값이 DBNull입니다.", e) + End Try + 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 Function IsmonNull() As Boolean + Return Me.IsNull(Me.table생산에너지.monColumn) + End Function + + _ + Public Sub SetmonNull() + Me(Me.table생산에너지.monColumn) = 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생산량지열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신재생열병합전력생산량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 + End Class + + ''' + '''Represents strongly named DataRow class. + ''' + Partial Public Class Graph_Info_dataRow + Inherits Global.System.Data.DataRow + + Private tableGraph_Info_data As Graph_Info_dataDataTable + + _ + Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) + MyBase.New(rb) + Me.tableGraph_Info_data = CType(Me.Table,Graph_Info_dataDataTable) + End Sub + + _ + Public Property 난방소요() As Decimal + Get + Try + Return CType(Me(Me.tableGraph_Info_data.난방소요Column),Decimal) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("'Graph_Info_data' 테이블의 '난방소요' 열의 값이 DBNull입니다.", e) + End Try + End Get + Set + Me(Me.tableGraph_Info_data.난방소요Column) = value + End Set + End Property + + _ + Public Property 급탕소요() As Decimal + Get + Try + Return CType(Me(Me.tableGraph_Info_data.급탕소요Column),Decimal) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("'Graph_Info_data' 테이블의 '급탕소요' 열의 값이 DBNull입니다.", e) + End Try + End Get + Set + Me(Me.tableGraph_Info_data.급탕소요Column) = value + End Set + End Property + + _ + Public Property 냉방소요() As Decimal + Get + Try + Return CType(Me(Me.tableGraph_Info_data.냉방소요Column),Decimal) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("'Graph_Info_data' 테이블의 '냉방소요' 열의 값이 DBNull입니다.", e) + End Try + End Get + Set + Me(Me.tableGraph_Info_data.냉방소요Column) = value + End Set + End Property + + _ + Public Property 조명소요() As Decimal + Get + Try + Return CType(Me(Me.tableGraph_Info_data.조명소요Column),Decimal) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("'Graph_Info_data' 테이블의 '조명소요' 열의 값이 DBNull입니다.", e) + End Try + End Get + Set + Me(Me.tableGraph_Info_data.조명소요Column) = value + End Set + End Property + + _ + Public Property 환기소요() As Decimal + Get + Try + Return CType(Me(Me.tableGraph_Info_data.환기소요Column),Decimal) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("'Graph_Info_data' 테이블의 '환기소요' 열의 값이 DBNull입니다.", e) + End Try + End Get + Set + Me(Me.tableGraph_Info_data.환기소요Column) = value + End Set + End Property + + _ + Public Property 난방소요1() As Decimal + Get + Try + Return CType(Me(Me.tableGraph_Info_data.난방소요1Column),Decimal) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("'Graph_Info_data' 테이블의 '난방소요1' 열의 값이 DBNull입니다.", e) + End Try + End Get + Set + Me(Me.tableGraph_Info_data.난방소요1Column) = value + End Set + End Property + + _ + Public Property 급탕소요1() As Decimal + Get + Try + Return CType(Me(Me.tableGraph_Info_data.급탕소요1Column),Decimal) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("'Graph_Info_data' 테이블의 '급탕소요1' 열의 값이 DBNull입니다.", e) + End Try + End Get + Set + Me(Me.tableGraph_Info_data.급탕소요1Column) = value + End Set + End Property + + _ + Public Property 냉방소요1() As Decimal + Get + Try + Return CType(Me(Me.tableGraph_Info_data.냉방소요1Column),Decimal) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("'Graph_Info_data' 테이블의 '냉방소요1' 열의 값이 DBNull입니다.", e) + End Try + End Get + Set + Me(Me.tableGraph_Info_data.냉방소요1Column) = value + End Set + End Property + + _ + Public Property 조명소요1() As Decimal + Get + Try + Return CType(Me(Me.tableGraph_Info_data.조명소요1Column),Decimal) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("'Graph_Info_data' 테이블의 '조명소요1' 열의 값이 DBNull입니다.", e) + End Try + End Get + Set + Me(Me.tableGraph_Info_data.조명소요1Column) = value + End Set + End Property + + _ + Public Property 환기소요1() As Decimal + Get + Try + Return CType(Me(Me.tableGraph_Info_data.환기소요1Column),Decimal) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("'Graph_Info_data' 테이블의 '환기소요1' 열의 값이 DBNull입니다.", e) + End Try + End Get + Set + Me(Me.tableGraph_Info_data.환기소요1Column) = value + End Set + End Property + + _ + Public Property 난방co2() As Decimal + Get + Try + Return CType(Me(Me.tableGraph_Info_data.난방co2Column),Decimal) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("'Graph_Info_data' 테이블의 '난방co2' 열의 값이 DBNull입니다.", e) + End Try + End Get + Set + Me(Me.tableGraph_Info_data.난방co2Column) = value + End Set + End Property + + _ + Public Property 급탕co2() As Decimal + Get + Try + Return CType(Me(Me.tableGraph_Info_data.급탕co2Column),Decimal) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("'Graph_Info_data' 테이블의 '급탕co2' 열의 값이 DBNull입니다.", e) + End Try + End Get + Set + Me(Me.tableGraph_Info_data.급탕co2Column) = value + End Set + End Property + + _ + Public Property 냉방co2() As Decimal + Get + Try + Return CType(Me(Me.tableGraph_Info_data.냉방co2Column),Decimal) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("'Graph_Info_data' 테이블의 '냉방co2' 열의 값이 DBNull입니다.", e) + End Try + End Get + Set + Me(Me.tableGraph_Info_data.냉방co2Column) = value + End Set + End Property + + _ + Public Property 조명co2() As Decimal + Get + Try + Return CType(Me(Me.tableGraph_Info_data.조명co2Column),Decimal) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("'Graph_Info_data' 테이블의 '조명co2' 열의 값이 DBNull입니다.", e) + End Try + End Get + Set + Me(Me.tableGraph_Info_data.조명co2Column) = value + End Set + End Property + + _ + Public Property 환기co2() As Decimal + Get + Try + Return CType(Me(Me.tableGraph_Info_data.환기co2Column),Decimal) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("'Graph_Info_data' 테이블의 '환기co2' 열의 값이 DBNull입니다.", e) + End Try + End Get + Set + Me(Me.tableGraph_Info_data.환기co2Column) = value + End Set + End Property + + _ + Public Function Is난방소요Null() As Boolean + Return Me.IsNull(Me.tableGraph_Info_data.난방소요Column) + End Function + + _ + Public Sub Set난방소요Null() + Me(Me.tableGraph_Info_data.난방소요Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is급탕소요Null() As Boolean + Return Me.IsNull(Me.tableGraph_Info_data.급탕소요Column) + End Function + + _ + Public Sub Set급탕소요Null() + Me(Me.tableGraph_Info_data.급탕소요Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is냉방소요Null() As Boolean + Return Me.IsNull(Me.tableGraph_Info_data.냉방소요Column) + End Function + + _ + Public Sub Set냉방소요Null() + Me(Me.tableGraph_Info_data.냉방소요Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is조명소요Null() As Boolean + Return Me.IsNull(Me.tableGraph_Info_data.조명소요Column) + End Function + + _ + Public Sub Set조명소요Null() + Me(Me.tableGraph_Info_data.조명소요Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is환기소요Null() As Boolean + Return Me.IsNull(Me.tableGraph_Info_data.환기소요Column) + End Function + + _ + Public Sub Set환기소요Null() + Me(Me.tableGraph_Info_data.환기소요Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is난방소요1Null() As Boolean + Return Me.IsNull(Me.tableGraph_Info_data.난방소요1Column) + End Function + + _ + Public Sub Set난방소요1Null() + Me(Me.tableGraph_Info_data.난방소요1Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is급탕소요1Null() As Boolean + Return Me.IsNull(Me.tableGraph_Info_data.급탕소요1Column) + End Function + + _ + Public Sub Set급탕소요1Null() + Me(Me.tableGraph_Info_data.급탕소요1Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is냉방소요1Null() As Boolean + Return Me.IsNull(Me.tableGraph_Info_data.냉방소요1Column) + End Function + + _ + Public Sub Set냉방소요1Null() + Me(Me.tableGraph_Info_data.냉방소요1Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is조명소요1Null() As Boolean + Return Me.IsNull(Me.tableGraph_Info_data.조명소요1Column) + End Function + + _ + Public Sub Set조명소요1Null() + Me(Me.tableGraph_Info_data.조명소요1Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is환기소요1Null() As Boolean + Return Me.IsNull(Me.tableGraph_Info_data.환기소요1Column) + End Function + + _ + Public Sub Set환기소요1Null() + Me(Me.tableGraph_Info_data.환기소요1Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is난방co2Null() As Boolean + Return Me.IsNull(Me.tableGraph_Info_data.난방co2Column) + End Function + + _ + Public Sub Set난방co2Null() + Me(Me.tableGraph_Info_data.난방co2Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is급탕co2Null() As Boolean + Return Me.IsNull(Me.tableGraph_Info_data.급탕co2Column) + End Function + + _ + Public Sub Set급탕co2Null() + Me(Me.tableGraph_Info_data.급탕co2Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is냉방co2Null() As Boolean + Return Me.IsNull(Me.tableGraph_Info_data.냉방co2Column) + End Function + + _ + Public Sub Set냉방co2Null() + Me(Me.tableGraph_Info_data.냉방co2Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is조명co2Null() As Boolean + Return Me.IsNull(Me.tableGraph_Info_data.조명co2Column) + End Function + + _ + Public Sub Set조명co2Null() + Me(Me.tableGraph_Info_data.조명co2Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is환기co2Null() As Boolean + Return Me.IsNull(Me.tableGraph_Info_data.환기co2Column) + End Function + + _ + Public Sub Set환기co2Null() + Me(Me.tableGraph_Info_data.환기co2Column) = Global.System.Convert.DBNull + End Sub + End Class + + ''' + '''Represents strongly named DataRow class. + ''' + Partial Public Class Pyonga_REQRow + Inherits Global.System.Data.DataRow + + Private tablePyonga_REQ As Pyonga_REQDataTable + + _ + Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) + MyBase.New(rb) + Me.tablePyonga_REQ = CType(Me.Table,Pyonga_REQDataTable) + End Sub + + _ + Public Property 종류() As String + Get + Try + Return CType(Me(Me.tablePyonga_REQ.종류Column),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("'Pyonga_REQ' 테이블의 '종류' 열의 값이 DBNull입니다.", e) + End Try + End Get + Set + Me(Me.tablePyonga_REQ.종류Column) = value + End Set + End Property + + _ + Public Property 값() As Decimal + Get + Try + Return CType(Me(Me.tablePyonga_REQ.값Column),Decimal) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("'Pyonga_REQ' 테이블의 '값' 열의 값이 DBNull입니다.", e) + End Try + End Get + Set + Me(Me.tablePyonga_REQ.값Column) = value + End Set + End Property + + _ + Public Function Is종류Null() As Boolean + Return Me.IsNull(Me.tablePyonga_REQ.종류Column) + End Function + + _ + Public Sub Set종류Null() + Me(Me.tablePyonga_REQ.종류Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is값Null() As Boolean + Return Me.IsNull(Me.tablePyonga_REQ.값Column) + End Function + + _ + Public Sub Set값Null() + Me(Me.tablePyonga_REQ.값Column) = Global.System.Convert.DBNull + End Sub + End Class + + ''' + '''Represents strongly named DataRow class. + ''' + Partial Public Class Pyonga_USERow + Inherits Global.System.Data.DataRow + + Private tablePyonga_USE As Pyonga_USEDataTable + + _ + Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) + MyBase.New(rb) + Me.tablePyonga_USE = CType(Me.Table,Pyonga_USEDataTable) + End Sub + + _ + Public Property 종류() As String + Get + Try + Return CType(Me(Me.tablePyonga_USE.종류Column),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("'Pyonga_USE' 테이블의 '종류' 열의 값이 DBNull입니다.", e) + End Try + End Get + Set + Me(Me.tablePyonga_USE.종류Column) = value + End Set + End Property + + _ + Public Property 값() As Decimal + Get + Try + Return CType(Me(Me.tablePyonga_USE.값Column),Decimal) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("'Pyonga_USE' 테이블의 '값' 열의 값이 DBNull입니다.", e) + End Try + End Get + Set + Me(Me.tablePyonga_USE.값Column) = value + End Set + End Property + + _ + Public Function Is종류Null() As Boolean + Return Me.IsNull(Me.tablePyonga_USE.종류Column) + End Function + + _ + Public Sub Set종류Null() + Me(Me.tablePyonga_USE.종류Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is값Null() As Boolean + Return Me.IsNull(Me.tablePyonga_USE.값Column) + End Function + + _ + Public Sub Set값Null() + Me(Me.tablePyonga_USE.값Column) = Global.System.Convert.DBNull + End Sub + End Class + + ''' + '''Represents strongly named DataRow class. + ''' + Partial Public Class Pyonga_1USERow + Inherits Global.System.Data.DataRow + + Private tablePyonga_1USE As Pyonga_1USEDataTable + + _ + Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) + MyBase.New(rb) + Me.tablePyonga_1USE = CType(Me.Table,Pyonga_1USEDataTable) + End Sub + + _ + Public Property 종류() As String + Get + Try + Return CType(Me(Me.tablePyonga_1USE.종류Column),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("'Pyonga_1USE' 테이블의 '종류' 열의 값이 DBNull입니다.", e) + End Try + End Get + Set + Me(Me.tablePyonga_1USE.종류Column) = value + End Set + End Property + + _ + Public Property 값() As Decimal + Get + Try + Return CType(Me(Me.tablePyonga_1USE.값Column),Decimal) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("'Pyonga_1USE' 테이블의 '값' 열의 값이 DBNull입니다.", e) + End Try + End Get + Set + Me(Me.tablePyonga_1USE.값Column) = value + End Set + End Property + + _ + Public Function Is종류Null() As Boolean + Return Me.IsNull(Me.tablePyonga_1USE.종류Column) + End Function + + _ + Public Sub Set종류Null() + Me(Me.tablePyonga_1USE.종류Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is값Null() As Boolean + Return Me.IsNull(Me.tablePyonga_1USE.값Column) + End Function + + _ + Public Sub Set값Null() + Me(Me.tablePyonga_1USE.값Column) = Global.System.Convert.DBNull + End Sub + End Class + + ''' + '''Represents strongly named DataRow class. + ''' + Partial Public Class Pyonga_YKRow + Inherits Global.System.Data.DataRow + + Private tablePyonga_YK As Pyonga_YKDataTable + + _ + Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) + MyBase.New(rb) + Me.tablePyonga_YK = CType(Me.Table,Pyonga_YKDataTable) + End Sub + + _ + Public Property 벽체종류() As String + Get + If Me.Is벽체종류Null Then + Return "" + Else + Return CType(Me(Me.tablePyonga_YK.벽체종류Column),String) + End If + End Get + Set + Me(Me.tablePyonga_YK.벽체종류Column) = value + End Set + End Property + + _ + Public Property 지붕종류() As String + Get + If Me.Is지붕종류Null Then + Return "" + Else + Return CType(Me(Me.tablePyonga_YK.지붕종류Column),String) + End If + End Get + Set + Me(Me.tablePyonga_YK.지붕종류Column) = value + End Set + End Property + + _ + Public Property 바닥종류() As String + Get + If Me.Is바닥종류Null Then + Return "" + Else + Return CType(Me(Me.tablePyonga_YK.바닥종류Column),String) + End If + End Get + Set + Me(Me.tablePyonga_YK.바닥종류Column) = value + End Set + End Property + + _ + Public Property 벽체값() As Decimal + Get + If Me.Is벽체값Null Then + Return 0D + Else + Return CType(Me(Me.tablePyonga_YK.벽체값Column),Decimal) + End If + End Get + Set + Me(Me.tablePyonga_YK.벽체값Column) = value + End Set + End Property + + _ + Public Property 지붕값() As Decimal + Get + If Me.Is지붕값Null Then + Return 0D + Else + Return CType(Me(Me.tablePyonga_YK.지붕값Column),Decimal) + End If + End Get + Set + Me(Me.tablePyonga_YK.지붕값Column) = value + End Set + End Property + + _ + Public Property 바닥값() As Decimal + Get + If Me.Is바닥값Null Then + Return 0D + Else + Return CType(Me(Me.tablePyonga_YK.바닥값Column),Decimal) + End If + End Get + Set + Me(Me.tablePyonga_YK.바닥값Column) = value + End Set + End Property + + _ + Public Property 창호종류() As String + Get + If Me.Is창호종류Null Then + Return "" + Else + Return CType(Me(Me.tablePyonga_YK.창호종류Column),String) + End If + End Get + Set + Me(Me.tablePyonga_YK.창호종류Column) = value + End Set + End Property + + _ + Public Property 창호값() As Decimal + Get + If Me.Is창호값Null Then + Return 0D + Else + Return CType(Me(Me.tablePyonga_YK.창호값Column),Decimal) + End If + End Get + Set + Me(Me.tablePyonga_YK.창호값Column) = value + End Set + End Property + + _ + Public Property 주거실조명전력() As String + Get + If Me.Is주거실조명전력Null Then + Return "" + Else + Return CType(Me(Me.tablePyonga_YK.주거실조명전력Column),String) + End If + End Get + Set + Me(Me.tablePyonga_YK.주거실조명전력Column) = value + End Set + End Property + + _ + Public Property 주조명광원() As String + Get + If Me.Is주조명광원Null Then + Return "" + Else + Return CType(Me(Me.tablePyonga_YK.주조명광원Column),String) + End If + End Get + Set + Me(Me.tablePyonga_YK.주조명광원Column) = value + End Set + End Property + + _ + Public Property 지열히트펌프용량() As String + Get + If Me.Is지열히트펌프용량Null Then + Return "" + Else + Return CType(Me(Me.tablePyonga_YK.지열히트펌프용량Column),String) + End If + End Get + Set + Me(Me.tablePyonga_YK.지열히트펌프용량Column) = value + End Set + End Property + + _ + Public Property 지열난방COP() As String + Get + If Me.Is지열난방COPNull Then + Return "" + Else + Return CType(Me(Me.tablePyonga_YK.지열난방COPColumn),String) + End If + End Get + Set + Me(Me.tablePyonga_YK.지열난방COPColumn) = value + End Set + End Property + + _ + Public Property 지열냉방COP() As String + Get + If Me.Is지열냉방COPNull Then + Return "" + Else + Return CType(Me(Me.tablePyonga_YK.지열냉방COPColumn),String) + End If + End Get + Set + Me(Me.tablePyonga_YK.지열냉방COPColumn) = value + End Set + End Property + + _ + Public Property 지열비고() As String + Get + If Me.Is지열비고Null Then + Return "" + Else + Return CType(Me(Me.tablePyonga_YK.지열비고Column),String) + End If + End Get + Set + Me(Me.tablePyonga_YK.지열비고Column) = value + End Set + End Property + + _ + Public Property 온열원설비방식() As String + Get + If Me.Is온열원설비방식Null Then + Return "" + Else + Return CType(Me(Me.tablePyonga_YK.온열원설비방식Column),String) + End If + End Get + Set + Me(Me.tablePyonga_YK.온열원설비방식Column) = value + End Set + End Property + + _ + Public Property 급탕설비방식() As String + Get + If Me.Is급탕설비방식Null Then + Return "" + Else + Return CType(Me(Me.tablePyonga_YK.급탕설비방식Column),String) + End If + End Get + Set + Me(Me.tablePyonga_YK.급탕설비방식Column) = value + End Set + End Property + + _ + Public Property 급탕설비연료() As String + Get + If Me.Is급탕설비연료Null Then + Return "" + Else + Return CType(Me(Me.tablePyonga_YK.급탕설비연료Column),String) + End If + End Get + Set + Me(Me.tablePyonga_YK.급탕설비연료Column) = value + End Set + End Property + + _ + Public Property 냉열원설비방식() As String + Get + If Me.Is냉열원설비방식Null Then + Return "" + Else + Return CType(Me(Me.tablePyonga_YK.냉열원설비방식Column),String) + End If + End Get + Set + Me(Me.tablePyonga_YK.냉열원설비방식Column) = value + End Set + End Property + + _ + Public Property 냉열원설비연료() As String + Get + If Me.Is냉열원설비연료Null Then + Return "" + Else + Return CType(Me(Me.tablePyonga_YK.냉열원설비연료Column),String) + End If + End Get + Set + Me(Me.tablePyonga_YK.냉열원설비연료Column) = value + End Set + End Property + + _ + Public Property 온열원설비연료() As String + Get + If Me.Is온열원설비연료Null Then + Return "" + Else + Return CType(Me(Me.tablePyonga_YK.온열원설비연료Column),String) + End If + End Get + Set + Me(Me.tablePyonga_YK.온열원설비연료Column) = value + End Set + End Property + + _ + Public Property 온열원용량() As String + Get + If Me.Is온열원용량Null Then + Return "" + Else + Return CType(Me(Me.tablePyonga_YK.온열원용량Column),String) + End If + End Get + Set + Me(Me.tablePyonga_YK.온열원용량Column) = value + End Set + End Property + + _ + Public Property 온열원효율() As String + Get + If Me.Is온열원효율Null Then + Return "" + Else + Return CType(Me(Me.tablePyonga_YK.온열원효율Column),String) + End If + End Get + Set + Me(Me.tablePyonga_YK.온열원효율Column) = value + End Set + End Property + + _ + Public Property 냉열원용량() As String + Get + If Me.Is냉열원용량Null Then + Return "" + Else + Return CType(Me(Me.tablePyonga_YK.냉열원용량Column),String) + End If + End Get + Set + Me(Me.tablePyonga_YK.냉열원용량Column) = value + End Set + End Property + + _ + Public Property 냉열원효율() As String + Get + If Me.Is냉열원효율Null Then + Return "" + Else + Return CType(Me(Me.tablePyonga_YK.냉열원효율Column),String) + End If + End Get + Set + Me(Me.tablePyonga_YK.냉열원효율Column) = value + End Set + End Property + + _ + Public Property 급탕효율() As String + Get + If Me.Is급탕효율Null Then + Return "" + Else + Return CType(Me(Me.tablePyonga_YK.급탕효율Column),String) + End If + End Get + Set + Me(Me.tablePyonga_YK.급탕효율Column) = value + End Set + End Property + + _ + Public Property 급탕용량() As String + Get + If Me.Is급탕용량Null Then + Return "" + Else + Return CType(Me(Me.tablePyonga_YK.급탕용량Column),String) + End If + End Get + Set + Me(Me.tablePyonga_YK.급탕용량Column) = value + End Set + End Property + + _ + Public Property 태양열집열판면적() As String + Get + If Me.Is태양열집열판면적Null Then + Return "0" + Else + Return CType(Me(Me.tablePyonga_YK.태양열집열판면적Column),String) + End If + End Get + Set + Me(Me.tablePyonga_YK.태양열집열판면적Column) = value + End Set + End Property + + _ + Public Property 태양열집열기유형() As String + Get + If Me.Is태양열집열기유형Null Then + Return "" + Else + Return CType(Me(Me.tablePyonga_YK.태양열집열기유형Column),String) + End If + End Get + Set + Me(Me.tablePyonga_YK.태양열집열기유형Column) = value + End Set + End Property + + _ + Public Property 태양열집열판방위() As String + Get + If Me.Is태양열집열판방위Null Then + Return "" + Else + Return CType(Me(Me.tablePyonga_YK.태양열집열판방위Column),String) + End If + End Get + Set + Me(Me.tablePyonga_YK.태양열집열판방위Column) = value + End Set + End Property + + _ + Public Property 태양광모듈면적() As String + Get + If Me.Is태양광모듈면적Null Then + Return "0" + Else + Return CType(Me(Me.tablePyonga_YK.태양광모듈면적Column),String) + End If + End Get + Set + Me(Me.tablePyonga_YK.태양광모듈면적Column) = value + End Set + End Property + + _ + Public Property 태양광모듈종류() As String + Get + If Me.Is태양광모듈종류Null Then + Return "" + Else + Return CType(Me(Me.tablePyonga_YK.태양광모듈종류Column),String) + End If + End Get + Set + Me(Me.tablePyonga_YK.태양광모듈종류Column) = value + End Set + End Property + + _ + Public Property 태양광모듈방위() As String + Get + If Me.Is태양광모듈방위Null Then + Return "" + Else + Return CType(Me(Me.tablePyonga_YK.태양광모듈방위Column),String) + End If + End Get + Set + Me(Me.tablePyonga_YK.태양광모듈방위Column) = value + End Set + End Property + + _ + Public Property 태양광모듈기울기() As String + Get + If Me.Is태양광모듈기울기Null Then + Return "" + Else + Return CType(Me(Me.tablePyonga_YK.태양광모듈기울기Column),String) + End If + End Get + Set + Me(Me.tablePyonga_YK.태양광모듈기울기Column) = value + End Set + End Property + + _ + Public Property 태양광모듈적용타입() As String + Get + If Me.Is태양광모듈적용타입Null Then + Return "" + Else + Return CType(Me(Me.tablePyonga_YK.태양광모듈적용타입Column),String) + End If + End Get + Set + Me(Me.tablePyonga_YK.태양광모듈적용타입Column) = value + End Set + End Property + + _ + Public Property 열병합열생산능력() As String + Get + If Me.Is열병합열생산능력Null Then + Return "0" + Else + Return CType(Me(Me.tablePyonga_YK.열병합열생산능력Column),String) + End If + End Get + Set + Me(Me.tablePyonga_YK.열병합열생산능력Column) = value + End Set + End Property + + _ + Public Property 열병합열생산효율() As String + Get + If Me.Is열병합열생산효율Null Then + Return "0" + Else + Return CType(Me(Me.tablePyonga_YK.열병합열생산효율Column),String) + End If + End Get + Set + Me(Me.tablePyonga_YK.열병합열생산효율Column) = value + End Set + End Property + + _ + Public Property 열병합발전효율() As String + Get + If Me.Is열병합발전효율Null Then + Return "0" + Else + Return CType(Me(Me.tablePyonga_YK.열병합발전효율Column),String) + End If + End Get + Set + Me(Me.tablePyonga_YK.열병합발전효율Column) = value + End Set + End Property + + _ + Public Property 지열히트펌프용량냉방() As String + Get + Try + Return CType(Me(Me.tablePyonga_YK.지열히트펌프용량냉방Column),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("'Pyonga_YK' 테이블의 '지열히트펌프용량냉방' 열의 값이 DBNull입니다.", e) + End Try + End Get + Set + Me(Me.tablePyonga_YK.지열히트펌프용량냉방Column) = value + End Set + End Property + + _ + Public Property 열병합가동연료() As String + Get + If Me.Is열병합가동연료Null Then + Return "" + Else + Return CType(Me(Me.tablePyonga_YK.열병합가동연료Column),String) + End If + End Get + Set + Me(Me.tablePyonga_YK.열병합가동연료Column) = value + End Set + End Property + + _ + Public Function Is벽체종류Null() As Boolean + Return Me.IsNull(Me.tablePyonga_YK.벽체종류Column) + End Function + + _ + Public Sub Set벽체종류Null() + Me(Me.tablePyonga_YK.벽체종류Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is지붕종류Null() As Boolean + Return Me.IsNull(Me.tablePyonga_YK.지붕종류Column) + End Function + + _ + Public Sub Set지붕종류Null() + Me(Me.tablePyonga_YK.지붕종류Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is바닥종류Null() As Boolean + Return Me.IsNull(Me.tablePyonga_YK.바닥종류Column) + End Function + + _ + Public Sub Set바닥종류Null() + Me(Me.tablePyonga_YK.바닥종류Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is벽체값Null() As Boolean + Return Me.IsNull(Me.tablePyonga_YK.벽체값Column) + End Function + + _ + Public Sub Set벽체값Null() + Me(Me.tablePyonga_YK.벽체값Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is지붕값Null() As Boolean + Return Me.IsNull(Me.tablePyonga_YK.지붕값Column) + End Function + + _ + Public Sub Set지붕값Null() + Me(Me.tablePyonga_YK.지붕값Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is바닥값Null() As Boolean + Return Me.IsNull(Me.tablePyonga_YK.바닥값Column) + End Function + + _ + Public Sub Set바닥값Null() + Me(Me.tablePyonga_YK.바닥값Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is창호종류Null() As Boolean + Return Me.IsNull(Me.tablePyonga_YK.창호종류Column) + End Function + + _ + Public Sub Set창호종류Null() + Me(Me.tablePyonga_YK.창호종류Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is창호값Null() As Boolean + Return Me.IsNull(Me.tablePyonga_YK.창호값Column) + End Function + + _ + Public Sub Set창호값Null() + Me(Me.tablePyonga_YK.창호값Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is주거실조명전력Null() As Boolean + Return Me.IsNull(Me.tablePyonga_YK.주거실조명전력Column) + End Function + + _ + Public Sub Set주거실조명전력Null() + Me(Me.tablePyonga_YK.주거실조명전력Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is주조명광원Null() As Boolean + Return Me.IsNull(Me.tablePyonga_YK.주조명광원Column) + End Function + + _ + Public Sub Set주조명광원Null() + Me(Me.tablePyonga_YK.주조명광원Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is지열히트펌프용량Null() As Boolean + Return Me.IsNull(Me.tablePyonga_YK.지열히트펌프용량Column) + End Function + + _ + Public Sub Set지열히트펌프용량Null() + Me(Me.tablePyonga_YK.지열히트펌프용량Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is지열난방COPNull() As Boolean + Return Me.IsNull(Me.tablePyonga_YK.지열난방COPColumn) + End Function + + _ + Public Sub Set지열난방COPNull() + Me(Me.tablePyonga_YK.지열난방COPColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is지열냉방COPNull() As Boolean + Return Me.IsNull(Me.tablePyonga_YK.지열냉방COPColumn) + End Function + + _ + Public Sub Set지열냉방COPNull() + Me(Me.tablePyonga_YK.지열냉방COPColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is지열비고Null() As Boolean + Return Me.IsNull(Me.tablePyonga_YK.지열비고Column) + End Function + + _ + Public Sub Set지열비고Null() + Me(Me.tablePyonga_YK.지열비고Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is온열원설비방식Null() As Boolean + Return Me.IsNull(Me.tablePyonga_YK.온열원설비방식Column) + End Function + + _ + Public Sub Set온열원설비방식Null() + Me(Me.tablePyonga_YK.온열원설비방식Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is급탕설비방식Null() As Boolean + Return Me.IsNull(Me.tablePyonga_YK.급탕설비방식Column) + End Function + + _ + Public Sub Set급탕설비방식Null() + Me(Me.tablePyonga_YK.급탕설비방식Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is급탕설비연료Null() As Boolean + Return Me.IsNull(Me.tablePyonga_YK.급탕설비연료Column) + End Function + + _ + Public Sub Set급탕설비연료Null() + Me(Me.tablePyonga_YK.급탕설비연료Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is냉열원설비방식Null() As Boolean + Return Me.IsNull(Me.tablePyonga_YK.냉열원설비방식Column) + End Function + + _ + Public Sub Set냉열원설비방식Null() + Me(Me.tablePyonga_YK.냉열원설비방식Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is냉열원설비연료Null() As Boolean + Return Me.IsNull(Me.tablePyonga_YK.냉열원설비연료Column) + End Function + + _ + Public Sub Set냉열원설비연료Null() + Me(Me.tablePyonga_YK.냉열원설비연료Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is온열원설비연료Null() As Boolean + Return Me.IsNull(Me.tablePyonga_YK.온열원설비연료Column) + End Function + + _ + Public Sub Set온열원설비연료Null() + Me(Me.tablePyonga_YK.온열원설비연료Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is온열원용량Null() As Boolean + Return Me.IsNull(Me.tablePyonga_YK.온열원용량Column) + End Function + + _ + Public Sub Set온열원용량Null() + Me(Me.tablePyonga_YK.온열원용량Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is온열원효율Null() As Boolean + Return Me.IsNull(Me.tablePyonga_YK.온열원효율Column) + End Function + + _ + Public Sub Set온열원효율Null() + Me(Me.tablePyonga_YK.온열원효율Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is냉열원용량Null() As Boolean + Return Me.IsNull(Me.tablePyonga_YK.냉열원용량Column) + End Function + + _ + Public Sub Set냉열원용량Null() + Me(Me.tablePyonga_YK.냉열원용량Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is냉열원효율Null() As Boolean + Return Me.IsNull(Me.tablePyonga_YK.냉열원효율Column) + End Function + + _ + Public Sub Set냉열원효율Null() + Me(Me.tablePyonga_YK.냉열원효율Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is급탕효율Null() As Boolean + Return Me.IsNull(Me.tablePyonga_YK.급탕효율Column) + End Function + + _ + Public Sub Set급탕효율Null() + Me(Me.tablePyonga_YK.급탕효율Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is급탕용량Null() As Boolean + Return Me.IsNull(Me.tablePyonga_YK.급탕용량Column) + End Function + + _ + Public Sub Set급탕용량Null() + Me(Me.tablePyonga_YK.급탕용량Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is태양열집열판면적Null() As Boolean + Return Me.IsNull(Me.tablePyonga_YK.태양열집열판면적Column) + End Function + + _ + Public Sub Set태양열집열판면적Null() + Me(Me.tablePyonga_YK.태양열집열판면적Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is태양열집열기유형Null() As Boolean + Return Me.IsNull(Me.tablePyonga_YK.태양열집열기유형Column) + End Function + + _ + Public Sub Set태양열집열기유형Null() + Me(Me.tablePyonga_YK.태양열집열기유형Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is태양열집열판방위Null() As Boolean + Return Me.IsNull(Me.tablePyonga_YK.태양열집열판방위Column) + End Function + + _ + Public Sub Set태양열집열판방위Null() + Me(Me.tablePyonga_YK.태양열집열판방위Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is태양광모듈면적Null() As Boolean + Return Me.IsNull(Me.tablePyonga_YK.태양광모듈면적Column) + End Function + + _ + Public Sub Set태양광모듈면적Null() + Me(Me.tablePyonga_YK.태양광모듈면적Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is태양광모듈종류Null() As Boolean + Return Me.IsNull(Me.tablePyonga_YK.태양광모듈종류Column) + End Function + + _ + Public Sub Set태양광모듈종류Null() + Me(Me.tablePyonga_YK.태양광모듈종류Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is태양광모듈방위Null() As Boolean + Return Me.IsNull(Me.tablePyonga_YK.태양광모듈방위Column) + End Function + + _ + Public Sub Set태양광모듈방위Null() + Me(Me.tablePyonga_YK.태양광모듈방위Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is태양광모듈기울기Null() As Boolean + Return Me.IsNull(Me.tablePyonga_YK.태양광모듈기울기Column) + End Function + + _ + Public Sub Set태양광모듈기울기Null() + Me(Me.tablePyonga_YK.태양광모듈기울기Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is태양광모듈적용타입Null() As Boolean + Return Me.IsNull(Me.tablePyonga_YK.태양광모듈적용타입Column) + End Function + + _ + Public Sub Set태양광모듈적용타입Null() + Me(Me.tablePyonga_YK.태양광모듈적용타입Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is열병합열생산능력Null() As Boolean + Return Me.IsNull(Me.tablePyonga_YK.열병합열생산능력Column) + End Function + + _ + Public Sub Set열병합열생산능력Null() + Me(Me.tablePyonga_YK.열병합열생산능력Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is열병합열생산효율Null() As Boolean + Return Me.IsNull(Me.tablePyonga_YK.열병합열생산효율Column) + End Function + + _ + Public Sub Set열병합열생산효율Null() + Me(Me.tablePyonga_YK.열병합열생산효율Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is열병합발전효율Null() As Boolean + Return Me.IsNull(Me.tablePyonga_YK.열병합발전효율Column) + End Function + + _ + Public Sub Set열병합발전효율Null() + Me(Me.tablePyonga_YK.열병합발전효율Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is지열히트펌프용량냉방Null() As Boolean + Return Me.IsNull(Me.tablePyonga_YK.지열히트펌프용량냉방Column) + End Function + + _ + Public Sub Set지열히트펌프용량냉방Null() + Me(Me.tablePyonga_YK.지열히트펌프용량냉방Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is열병합가동연료Null() As Boolean + Return Me.IsNull(Me.tablePyonga_YK.열병합가동연료Column) + End Function + + _ + Public Sub Set열병합가동연료Null() + Me(Me.tablePyonga_YK.열병합가동연료Column) = Global.System.Convert.DBNull + End Sub + End Class + + ''' + '''Represents strongly named DataRow class. + ''' + Partial Public Class 월별1차에너지사용량Row + Inherits Global.System.Data.DataRow + + Private table월별1차에너지사용량 As 월별1차에너지사용량DataTable + + _ + Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) + MyBase.New(rb) + Me.table월별1차에너지사용량 = CType(Me.Table,월별1차에너지사용량DataTable) + End Sub + + _ + Public Property 년() As String + Get + Return CType(Me(Me.table월별1차에너지사용량.년Column),String) + End Get + Set + Me(Me.table월별1차에너지사용량.년Column) = value + End Set + End Property + + _ + Public Property 월() As String + Get + Return CType(Me(Me.table월별1차에너지사용량.월Column),String) + End Get + Set + Me(Me.table월별1차에너지사용량.월Column) = value + End Set + End Property + + _ + Public Property 도시가스() As String + Get + If Me.Is도시가스Null Then + Return "" + Else + Return CType(Me(Me.table월별1차에너지사용량.도시가스Column),String) + End If + End Get + Set + Me(Me.table월별1차에너지사용량.도시가스Column) = value + End Set + End Property + + _ + Public Property 전력() As String + Get + If Me.Is전력Null Then + Return "" + Else + Return CType(Me(Me.table월별1차에너지사용량.전력Column),String) + End If + End Get + Set + Me(Me.table월별1차에너지사용량.전력Column) = value + End Set + End Property + + _ + Public Property 지역난방() As String + Get + If Me.Is지역난방Null Then + Return "" + Else + Return CType(Me(Me.table월별1차에너지사용량.지역난방Column),String) + End If + End Get + Set + Me(Me.table월별1차에너지사용량.지역난방Column) = value + End Set + End Property + + _ + Public Property code() As String + Get + Return CType(Me(Me.table월별1차에너지사용량.codeColumn),String) + End Get + Set + Me(Me.table월별1차에너지사용량.codeColumn) = value + End Set + End Property + + _ + Public Function Is도시가스Null() As Boolean + Return Me.IsNull(Me.table월별1차에너지사용량.도시가스Column) + End Function + + _ + Public Sub Set도시가스Null() + Me(Me.table월별1차에너지사용량.도시가스Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is전력Null() As Boolean + Return Me.IsNull(Me.table월별1차에너지사용량.전력Column) + End Function + + _ + Public Sub Set전력Null() + Me(Me.table월별1차에너지사용량.전력Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is지역난방Null() As Boolean + Return Me.IsNull(Me.table월별1차에너지사용량.지역난방Column) + End Function + + _ + Public Sub Set지역난방Null() + Me(Me.table월별1차에너지사용량.지역난방Column) = Global.System.Convert.DBNull + End Sub + End Class + + ''' + '''Represents strongly named DataRow class. + ''' + Partial Public Class 설계계산결과Row + Inherits Global.System.Data.DataRow + + Private table설계계산결과 As 설계계산결과DataTable + + _ + Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) + MyBase.New(rb) + Me.table설계계산결과 = CType(Me.Table,설계계산결과DataTable) + End Sub + + _ + Public Property 월() As String + Get + Return CType(Me(Me.table설계계산결과.월Column),String) + 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 난방() 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 급탕전() 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 조명전() 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 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조명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냉방전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환기전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 + End Class + + ''' + '''Represents strongly named DataRow class. + ''' + Partial Public Class 설계계산파라미터Row + Inherits Global.System.Data.DataRow + + Private table설계계산파라미터 As 설계계산파라미터DataTable + + _ + Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) + MyBase.New(rb) + Me.table설계계산파라미터 = CType(Me.Table,설계계산파라미터DataTable) + 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 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 + End Class + + ''' + '''Row event argument class + ''' + _ + Public Class 최대냉난방부하RowChangeEvent + Inherits Global.System.EventArgs + + Private eventRow As 최대냉난방부하Row + + Private eventAction As Global.System.Data.DataRowAction + + _ + Public Sub New(ByVal row As 최대냉난방부하Row, ByVal action As Global.System.Data.DataRowAction) + MyBase.New + Me.eventRow = row + Me.eventAction = action + End Sub + + _ + Public ReadOnly Property Row() As 최대냉난방부하Row + 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 월별에너지분석RowChangeEvent + Inherits Global.System.EventArgs + + Private eventRow As 월별에너지분석Row + + Private eventAction As Global.System.Data.DataRowAction + + _ + Public Sub New(ByVal row As 월별에너지분석Row, ByVal action As Global.System.Data.DataRowAction) + MyBase.New + Me.eventRow = row + Me.eventAction = action + End Sub + + _ + Public ReadOnly Property Row() As 월별에너지분석Row + 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 TReqUseRowChangeEvent + Inherits Global.System.EventArgs + + Private eventRow As TReqUseRow + + Private eventAction As Global.System.Data.DataRowAction + + _ + Public Sub New(ByVal row As TReqUseRow, ByVal action As Global.System.Data.DataRowAction) + MyBase.New + Me.eventRow = row + Me.eventAction = action + End Sub + + _ + Public ReadOnly Property Row() As TReqUseRow + 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 Graph_ReqRowChangeEvent + Inherits Global.System.EventArgs + + Private eventRow As Graph_ReqRow + + Private eventAction As Global.System.Data.DataRowAction + + _ + Public Sub New(ByVal row As Graph_ReqRow, ByVal action As Global.System.Data.DataRowAction) + MyBase.New + Me.eventRow = row + Me.eventAction = action + End Sub + + _ + Public ReadOnly Property Row() As Graph_ReqRow + 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 Graph_ReqUseRowChangeEvent + Inherits Global.System.EventArgs + + Private eventRow As Graph_ReqUseRow + + Private eventAction As Global.System.Data.DataRowAction + + _ + Public Sub New(ByVal row As Graph_ReqUseRow, ByVal action As Global.System.Data.DataRowAction) + MyBase.New + Me.eventRow = row + Me.eventAction = action + End Sub + + _ + Public ReadOnly Property Row() As Graph_ReqUseRow + 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 Graph_InfoRowChangeEvent + Inherits Global.System.EventArgs + + Private eventRow As Graph_InfoRow + + Private eventAction As Global.System.Data.DataRowAction + + _ + Public Sub New(ByVal row As Graph_InfoRow, ByVal action As Global.System.Data.DataRowAction) + MyBase.New + Me.eventRow = row + Me.eventAction = action + End Sub + + _ + Public ReadOnly Property Row() As Graph_InfoRow + 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 사용면적RowChangeEvent + Inherits Global.System.EventArgs + + Private eventRow As 사용면적Row + + Private eventAction As Global.System.Data.DataRowAction + + _ + Public Sub New(ByVal row As 사용면적Row, ByVal action As Global.System.Data.DataRowAction) + MyBase.New + Me.eventRow = row + Me.eventAction = action + End Sub + + _ + Public ReadOnly Property Row() As 사용면적Row + 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 에너지소요량RowChangeEvent + Inherits Global.System.EventArgs + + Private eventRow As 에너지소요량Row + + Private eventAction As Global.System.Data.DataRowAction + + _ + Public Sub New(ByVal row As 에너지소요량Row, ByVal action As Global.System.Data.DataRowAction) + MyBase.New + Me.eventRow = row + Me.eventAction = action + End Sub + + _ + Public ReadOnly Property Row() As 에너지소요량Row + 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 에너지소요량1RowChangeEvent + Inherits Global.System.EventArgs + + Private eventRow As 에너지소요량1Row + + Private eventAction As Global.System.Data.DataRowAction + + _ + Public Sub New(ByVal row As 에너지소요량1Row, ByVal action As Global.System.Data.DataRowAction) + MyBase.New + Me.eventRow = row + Me.eventAction = action + End Sub + + _ + Public ReadOnly Property Row() As 에너지소요량1Row + 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 생산에너지RowChangeEvent + Inherits Global.System.EventArgs + + Private eventRow As 생산에너지Row + + Private eventAction As Global.System.Data.DataRowAction + + _ + Public Sub New(ByVal row As 생산에너지Row, ByVal action As Global.System.Data.DataRowAction) + MyBase.New + Me.eventRow = row + Me.eventAction = action + End Sub + + _ + Public ReadOnly Property Row() As 생산에너지Row + 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 Graph_Info_dataRowChangeEvent + Inherits Global.System.EventArgs + + Private eventRow As Graph_Info_dataRow + + Private eventAction As Global.System.Data.DataRowAction + + _ + Public Sub New(ByVal row As Graph_Info_dataRow, ByVal action As Global.System.Data.DataRowAction) + MyBase.New + Me.eventRow = row + Me.eventAction = action + End Sub + + _ + Public ReadOnly Property Row() As Graph_Info_dataRow + 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 Pyonga_REQRowChangeEvent + Inherits Global.System.EventArgs + + Private eventRow As Pyonga_REQRow + + Private eventAction As Global.System.Data.DataRowAction + + _ + Public Sub New(ByVal row As Pyonga_REQRow, ByVal action As Global.System.Data.DataRowAction) + MyBase.New + Me.eventRow = row + Me.eventAction = action + End Sub + + _ + Public ReadOnly Property Row() As Pyonga_REQRow + 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 Pyonga_USERowChangeEvent + Inherits Global.System.EventArgs + + Private eventRow As Pyonga_USERow + + Private eventAction As Global.System.Data.DataRowAction + + _ + Public Sub New(ByVal row As Pyonga_USERow, ByVal action As Global.System.Data.DataRowAction) + MyBase.New + Me.eventRow = row + Me.eventAction = action + End Sub + + _ + Public ReadOnly Property Row() As Pyonga_USERow + 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 Pyonga_1USERowChangeEvent + Inherits Global.System.EventArgs + + Private eventRow As Pyonga_1USERow + + Private eventAction As Global.System.Data.DataRowAction + + _ + Public Sub New(ByVal row As Pyonga_1USERow, ByVal action As Global.System.Data.DataRowAction) + MyBase.New + Me.eventRow = row + Me.eventAction = action + End Sub + + _ + Public ReadOnly Property Row() As Pyonga_1USERow + 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 Pyonga_YKRowChangeEvent + Inherits Global.System.EventArgs + + Private eventRow As Pyonga_YKRow + + Private eventAction As Global.System.Data.DataRowAction + + _ + Public Sub New(ByVal row As Pyonga_YKRow, ByVal action As Global.System.Data.DataRowAction) + MyBase.New + Me.eventRow = row + Me.eventAction = action + End Sub + + _ + Public ReadOnly Property Row() As Pyonga_YKRow + 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 월별1차에너지사용량RowChangeEvent + Inherits Global.System.EventArgs + + Private eventRow As 월별1차에너지사용량Row + + Private eventAction As Global.System.Data.DataRowAction + + _ + Public Sub New(ByVal row As 월별1차에너지사용량Row, ByVal action As Global.System.Data.DataRowAction) + MyBase.New + Me.eventRow = row + Me.eventAction = action + End Sub + + _ + Public ReadOnly Property Row() As 월별1차에너지사용량Row + 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 설계계산결과RowChangeEvent + Inherits Global.System.EventArgs + + Private eventRow As 설계계산결과Row + + Private eventAction As Global.System.Data.DataRowAction + + _ + Public Sub New(ByVal row As 설계계산결과Row, ByVal action As Global.System.Data.DataRowAction) + MyBase.New + Me.eventRow = row + Me.eventAction = action + End Sub + + _ + Public ReadOnly Property Row() As 설계계산결과Row + 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 설계계산파라미터RowChangeEvent + Inherits Global.System.EventArgs + + Private eventRow As 설계계산파라미터Row + + Private eventAction As Global.System.Data.DataRowAction + + _ + Public Sub New(ByVal row As 설계계산파라미터Row, ByVal action As Global.System.Data.DataRowAction) + MyBase.New + Me.eventRow = row + Me.eventAction = action + End Sub + + _ + Public ReadOnly Property Row() As 설계계산파라미터Row + 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 diff --git a/ArinWarev1/DataSet/DSR.vb b/ArinWarev1/DataSet/DSR.vb new file mode 100644 index 0000000..9bf6269 --- /dev/null +++ b/ArinWarev1/DataSet/DSR.vb @@ -0,0 +1,15 @@ + + +Partial Public Class DSR + + Partial Class 사용면적DataTable + + + + End Class + + Partial Class Pyonga_YKDataTable + + End Class + +End Class diff --git a/ArinWarev1/DataSet/DSR.xsc b/ArinWarev1/DataSet/DSR.xsc new file mode 100644 index 0000000..05b0199 --- /dev/null +++ b/ArinWarev1/DataSet/DSR.xsc @@ -0,0 +1,9 @@ + + + + + \ No newline at end of file diff --git a/ArinWarev1/DataSet/DSR.xsd b/ArinWarev1/DataSet/DSR.xsd new file mode 100644 index 0000000..b519159 --- /dev/null +++ b/ArinWarev1/DataSet/DSR.xsd @@ -0,0 +1,336 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + \ No newline at end of file diff --git a/ArinWarev1/DataSet/DSR.xss b/ArinWarev1/DataSet/DSR.xss new file mode 100644 index 0000000..a910781 --- /dev/null +++ b/ArinWarev1/DataSet/DSR.xss @@ -0,0 +1,29 @@ + + + + + + + + + + + + + + + + + + + + + + + + + \ No newline at end of file diff --git a/ArinWarev1/ECO2.png b/ArinWarev1/ECO2.png new file mode 100644 index 0000000000000000000000000000000000000000..c683d1e80d3cb836dc48e476b454a2aa031e9b42 GIT binary patch literal 65197 zcmV)4K+3;~P)jN*BO4ktNq!DZHNu!>ZGCRl&nb@rQJ=d$f7Y-DUeQ}{#aos(k38CV=mK}Ce~4{ zsAyTLs{EkZkcI*q>Z(>{ZHa)E6(VgZ$>IRHK*EyL#ku$vJN|t6Y@fa7a}A+uKk4;3 z*5`Ac_j%9rKF2~XmqRihLo_spxljnRu_QuiV1^=?;UQs`#wbNh&q7ZoVI4_T_u1cq557G#QO zFhN!TSp{uCBh4iRU-pRnLs3XD zJrzta0X`2&h9F8`4kA$&s>KS62}Eq@ch*Hro~~QNGG)tgJLkZ~mwp0R_@){d0a;d8 z5+fDDJ)o}u5d^_3nMEtI(TI&E7fU8BUBP;E7f$pBaB?_>&cPI3-?<5*EF)7;A-g>I z&eP3oamo084}dVn%!#BF*;t8&x*>wHr^Yu7GE$3vV3tu_BuGuRrt zfPMS+nMstFmm~1v4`BpvV_-IgkH=!D_t;=3rOakUjHF~VwY3q@g8~o>g#vgK1t5Dn z{*y3z7c|U#HiaMQSFv~RUWlRy&Y1tsLQ0%|c`Ne4F$_-YIB@1)n2ILRH><;+5D*ld zsCtfo7O@eM)Lbeplx3OiI6H!bWJ7pz47;qu*t2I3y1TnEG&FQ?L3MRCnwy)ESV&@( z@2_CaMCHqYxx%+Cf8KK;6oxp5vsJRXO|VqrV}ewzU72;CXMPaWfE zX=#Di>oqq{4rm}0Zj|Iu9br8#zz#t&*1Z9y= zapT}Kf?2LDe|!fs@f1EC@|yrorxQ_Q8~hUj`o;t*7d0%gm#NGgz_@i0dx9@uef?wT z@ijpRO=2(*Lw=wiiTOD4l#Hva3|g53YTf2)Ash~KCT7V_ojS#K@7`^m!6&x_YEFRB zf`&?l{ICXtY^m_34Vn>wu=8E$Mgg|^t@!Ap%V;`w9-z{3|9W&w3!Kzzh3GUsX>S%x zb@AYgT3cJqG911t;~yajRqjjR0>3l86IlZ$h?I_it3G{liwQ9B@Wbfu@56ihzeg^5 zm)yXP(RbcOo&W~BPTp5n3CJKvK5*aw$*(B&4*w6(NGxPw9klus%GalmCB^49AA{rz z;wE*r_s}6cPnB@H-8i@ZDIh#W+34sy`!{Yg!vBFVns;_~Vu#a@!%yU3kli1;D8nDp z@!{leacSZ($~zc_ntqA#6)V6!H#a(p$ZN0R%9Sgqt*wO^@I$*h3afL8ASlZHj$aJa z-rkOyni{0jY4{rFus(7Ix6XUedAgc_(Z( zd(p>aOR>pIAUtvevg)V|oeoW?Qjk9T3Sy^zj_CY6CMG8E+?tP((si8s!#Q)Y&*#I9 zx;n5(#O$4DGzz=ZL(W}*PCmxCmz7+V!6S11e{CSFB&n~r$bFR-%LiG!zmP&-hG z-<3;;9Hj;!-?(7u@x%DblL# zXZ+SQZ_W}(i4B*6(^|lP7al@k^ayHKxkxS4(A1m-Qr>&tCQGU%@z6c~Pv4W&Xoqp| zOb=>aICHNJ91aIWMSX*!c#-ilSqxH1nm_T#EONOjOwBF9Up^ebz7^N7_SIHMwhAn} z(+TOv8xWlf(WW^F_68hz_Hhg=&(rto7#kahDio+xMSv2M2aMltvkBDs5;;JQAN2MO zt5HUoZJq8xmYCql2BcFTpjBvwTNAO%{uVa8{VX#7ei8Z2+we-)1&l4Ld`l$L6-mD0 z=MokIfxvxB=GQR2;5Ng9&r3F+T1c>1B!u398!)mNWV2aQ>im7FRKGrP8G-6XVIip_ zn@pI0n__?7{~(hu_6)zM_$C}&RxN^s?*F=KFJ{T_<`M=5CLUA->#Ml!I>SwOO z+Wtg-Wt<=dbA<^~dWyODO`q8(ucxri<{JcdS_IWPDC37xIFwH_*E7IQ7zr_#svqo# zAXNj*r4e2+mNREEJTZx=*tl|_lT}*iMyK%i1I)$0lVtxxkWnG#;@)uP>Nms`hE#le z*NMILov3b8A$QRnO00}~0Vzg@m*>plo(wS8GeRZ{#Y`4KkZME|U2_9}>L(tK~7E%jqezgmX_jEX|5o|qDfH*(1E5J5-~!jLZ_<>*?HTEG+Yvu;FA?X zR96IZi2}G{_Oq{g#-sU>4YMAd5ah_gg4g~Bq=JQkv+z;rme<*#3;Kis7pdi~9tra| ztmk=Q|H0I-5q^F7%RP3!I{|mvY%sQ;5@5#%URZB9Y!nw4<2~7B>S!mnoj2jitya{T zyHIQK!xV_Z*cI!@kYZP40Z3l2SB#JBedkyp=|x!V4lM1yL?K!YjYcDMBJ$#f`ESa~ z%1~x|33AHkmU(0Gy*mniWi%zZ5ArS>nksjJ1$+_@m()W__tt?+3}nDcab4Vb8U^`z zsH&<$*1`iA+w~V>q9l<_FA)oe3AfuVJgXpWFKJ06CQ~9WD+M(y0qPhnR4fppm5Lo} zy|>SN!I6kL0!p-XSg_c38ifV<=;-J`)}l?6qr1>g@1@g15F~%~G}S=eRtvT#4bfDM z8;9OQz|)1@XKrGWwFR6$82qLD>0;4%r|9L6A4b=m1$E%0; zOMcNhY^zmZ+874EKXiIoVhQO}FWIY#Fk%vynf7BqQiYt;r3` znd9)-EWBhz%SaZBC5)+zGgnvo7IHPbyhLN(5I1H{4E0iHkt8NTOgY0%8b^kM2jQbg z9Hw4NoiY^d5Xo!Z9C_)W4 z2kBK;Do1Rk3Ulk!!uV2(cV=cL+D$!JJ+c|UH8h~6yc}}E)3KzG_B(fkK`Vv*;*~$3 zjo0&mnE*uut#Bj#o?PPZnFnZHZ$q3`jVZ;45y)N(bK`9)vqaR-w_@jsn`ks^kxA6} z*lfng%a`#x!CeQjf^Nt#==FM-6-ry*V1f*L!y6Mph6x}2jrg4!*hjC$F6U+Zvor~F z?Wb_~+5?>Qzkz-4q$2BB21XeSRCPh5r_aEG1q%?X9|~QJIwS*w2{N1)zCRM1z-6jN zde1?`S!=PZ@*JJ`F?KGQh98~L@csHJQbvu$DEEG(6dl5;cjAz-+Bmdp5{%pf=~)EHLpCOPv_w6#neH7MW?R9h!P$jZ#op3Ot5#gxa2T(i zMsC^)v}+|CE0~Q%6&Eo^8!swS-bW)v8GnI$!S6oBGvH14RJed z_G8s2kwnW6-*Nj=P5C`)=Z*6z+2X99od$A;mDvj%oS{_R|SHPzXYk|p;pC5t(CE83yxyjq1w)fXqAXjaWq<$s+|gD5Q`>0 zstLX@|Hl*a-z`+2C^>{At*4f1=C@1dFR4aWsJLmUxGc)T`^ zN7QKKNzs3dVv3ZS$)+UecM*#~5akuD8}*rfB&@RxT#1#xExgGK91u`k%%G%>w~2>U2q z3L=usV`vTbJ0&?IZ78aM&UL=;GU=>~TWV$`Uc*LDcx3 zxs#FUbn=3@vT_=V90tr=wFwEutffj~cI?y&u{ygWo6=@n_)d56^CTeNNJWTm0Tajn zgQBFPWp)>3bwe%|W;Y{e4+MD-b0Epfjg(Nji)n5q?D@qoIrF5y8Vrgg!!ebjHyna7 zG>ka~RxEnuBc_-HA_E2rL?(H0azPt$vs&t^!18`7jBn z&rbXBtNE88-wv#8YNy|*d|Sl%TDZJ`4F1Tu;MXh@L?A@LABu|I#!2Xg14HzZqeDXo& zRT&7EFYYltM@-6kPl4eUUNn-`(9$t-DrQHgYDYim>(P-B+Mp1w9r{cH zSh{qnoOJ-YRdvF^8x^Be{LC{?qpoij_JesMmKP$(o{LI;z)E`6Zk%jR%qzHB51DJXpe zAVzxQr{SHN1qeVU&3Zc|9RzPkDvc)r@rH4HJzH0Yx--QPj$A2VO=O{Rj~TaA7Gu z5an0DkC@It4}PJ1EdeZBwoF!C=Hz;3kT3u7<%sofkPl}}*5b!tD|$%&+t#gH(bm?6 zg$oy=xVRXnDCNHX+D6o!ATZ8csWg~rl;>G+?Tm3~95q3;SfQG%$S|9v3p*5nvwr+5RXs0EBmp+EsI~i(5Cc?BMeD)SN+l8gpgVOieg&Gv@4qn>I=2 zP+3)tciw8ipN>)%$aFLRCznfLTCNRqrxZw0=yKR)HY~K6(HB!us8Fg7_>d7Cp=S=F z?TrmN1ZG$nBo4zntXpL9-?m}Tu^#*;zekF87Vkcv54(2lLdlf%@JHU|x`y(SE{ufU zMQ7jdF@1bDVr?^EGWg|50R!YdJNMfivqFfh)O4S+>~mRcV~4gNvh4-92o&p)>N#`p z&-dQLi|sZEh+U3TZ3Z#KD}PXe14ZR1%*v!KGQedbSEVEr_YI@}>lPe)^?`E|P6wjT zAZk9w!ffSY~i+@#mT^M>RmqpZO1>LCh?2z&Lvz%;aKR zFr&ms552iTiR^h_bFJRq-c*d}Kq!C(TY-br-pUR8yhl`DyUs5nKnr;=`{udk;VD#6gu zAoh}ot8EUDNj+Lei{)e3hZ4Jh=ZCY<_TdMMDSg&QTHe-xba!{B2fGeNaO`Z{xDhK> ztiT6H?!}(7>m?8w7s=$tfEd7qKLg z=!`ki{DuaktE)>RjTZnJh12PfEhAksw6?Zl$BrGTTEhokZns;0{@4D8D0XNKdWo*! zS2*GOT!Q4Hyn5V0w3n5^lCI^FSJoYOBx@GQh5mkQx#0#>S65?zilIVT>y|rfVJXNX zf~Ue;Iu5-?yP|V31{2x7@tmaAb3MN-iyfMupsZ8Fzb$?T`0w`3ID7UKnZSr&FPMXx zMYG^`Ib`PP?&$?PSC!{Jxds!=_ND?j!#|M^m_2(otW&3=f}YW}Y886dtdU^!;U`tb z?!{n&hYsQXZQIb;*oYEu0p>4z43?ZcWD--3i2(W>`B0d$q|yHKXncA{FnJEJnsj9i zSLLsc+Ay5E1fiE>*t)v|%U^H7Ywurzf6VH@tO*{h+%bU9^JZX_vaXGu5&mEu9$8R< zpH~-1am5v!C8Q@e5B;|;g1Gr+IL~d^1OvqjGZv4A#|BpO=^@rky4Y1 z^ZW8+f$*3#zC;H3j;3|=hNH+`ZAIQ{8@!KaBL8s*vVZvkwp@Q0A}Fve`?r|$K)oc0 z2Tu=RUPlEk>z;|=(Kbx>YHRoO^dLw=#6U{3a9|x2vh;AI7v<|O#;Ui!Lgj|3D7$a7 z)|8-i!o&e{vU5qdWS~8FVzL2bNi~Afn?V<}QPR)KICC{MHDS^ulCR`qcAHhwavqYV zlL90$2nW#@t~ty9-i*ERtN6bhVC$`6WKad<2i1Id5WD8ziMg>pxcB}C%{^iCU4A#v z2Ygb!4{LW@(0IBG(fzg9zvdRXiEP<}C(h!{?Pt(uwxZi?Q&dW|DoKk3%?WZbZH^-F z)~fFYqU(4)Esw4I$)Y)z0Lxs=ovzQeZO4R?qEx(vh!;)0XcCSeKc4z-BhA6QjblT< z0+BfWy}uJ{ntXWcjtLm=w#&_WbW;n2EfXi*B?_|)*^ME9EV?uh+U$Gd!3$$#Z2u`O z_*0+L=4Jw;@aNLfQaSicHWpz)mel+t$V$f-aZ0|1H2+5d(itP+1WvZ@B2H$IJI@WV z!gw$KJU4+{D`YQ{fp82Al}uJFF*VuAIoFin*`Q~yZwvOZS9G?2&|xVOakc%sbtb7nLcyw_xH<}j?(9KPGYei?PrPkTRb%(-B-yA=oi0Ngy`8FlG76x&pXVYt(1XU zjGy`UoD?eJE{V&uFPYL~i4xF=w^@^Yjie8<2K{%U_a$*UEgP4lh~J4su8-O3gftR881#XE=vL+{e4d$ssTh5-;>XB_8h1@rG=X+=x6fzb{8dr5dlgE z(hWeoj|0*{^d{zAu)8Q3yTt%Z5Zz!12pL#dj_Hd|ykh2^f#}6jC??33+L^C*2v&_m zSBz)8l9e`DA1cd))Iql6Yl~`{Opp_R!~uvq8wE$j=#NVx?phTSNViJq5|O)iTIxd* za<{6D$Z%<)~W za&ZCu{%_|=Li%Z*sz_!)N z%sadY(!NA3PFkk|J0h@$+VJ?Cp}4HzJ+gYcuoa0p$r5c4r6k!&D$+TGFmO{EYFwoZ1OH`q z=$S24j@GsLQ0NJw&}+f+ZAJL<@r5L9P2X60Ec2qXse;T*abZwKD%BJzc2C&HIcS&21{gqXHO7~3MP_Cu76tY| zBM;Q!X@bumKtpF3WnBtZY(0gKAGkqKIGD+l>9!*)*@65tH!@P(7?Yg>cS=9} za8QxsYdt5Dx<+3V6@CjI+jbHg@0pKmmlbY@6+==SNbTno;{un zW8m`n+$;v63NIysUR)Zg_H8Kru}()Os)II?00F40#;k_Vk(--~*|TR0P9B%Lciwp? z?zbF7N@^M+-d0M3!l)-BD(h0Qa@%n{d*gJBNu$!#sbW;BgK8HW2D*8G!`ux!2ILRG zgG(1`J<^dMFmSo|&``KUP8$@{O9^RcJ3UTx*fLP&Q-uvQlLV$zY!$50dGqFB*sx)u zW;W;5%s6?-{vFaYG7#--L5vKvmQ<^pzWP^F$wJv z1-7hg%$`3->nRQC!XSDBVY`syNujEJP#Hz5H4UYt+a07rp86V0IP;;900UqNFaTCZ zb3DLApj&Uf1%F67jMR)QM7=GPsS*&f{PIp2D>oj*$gC9PI`zW~%xmCjRC}0;z_5&Z zx{`;CMB3O1+K(A{pCEMG5O$%xe!SHHAPW_0X{f=((#^sKuD<$e0f2Yj1Ylk!kR?l& z;Bog6BxmLz#u6bQXFGx@>y+?^_xDk*rHERkEf7YlKa4uc=j(zRn!^^9hg9TFoC^E! zvDyzAxSaUl9v~>we0Faon&f1ZdSzk6EseF9P`gVs7PxP8ApnUkn}5FJ_S;dAaty9a zN;A4zb&0eS5DJcuyt_wCMw>f>WH$uR8$ts)f>J-P+lEH+fO*p|g`UFqZQ!yw5$avo zJ-GEG&c>2a=~Lh(SJ~27haqL3VpvwP4q)U+(G*J@lO;;Qtn4JCUf}`fUkHdJt3Nab zLN;=ifRuN{u=4#qNF}#h(b|OuZx9uva*`&YS+gQF$$<_f2_u*MCmXodmw}%*GCN$? zsXe=^7}2D3ge1y?$cQ`6HDFl%*O)yx6|-htf>EPJ2>`rcbK-QN7x#5-HoMM^CUEQ4 zt-~Wt;}EDVrQFFSdRzlsDlT%zuwd>q{7-Q!rRp|#$hed37PL~8m?1N(zZ2Gw57oPO zpsS=%G9!4LDrkb(S=Oq(cAye)ry-~^Emk@|iVFqAVQ zq=v;ooQ&J)~s10 z030lqXgBph%4(V6UXJW2?P&8VQS+G7SDy9BIaDeHrXtem5o#2xIf&55e-tNF#Id9~ zSK`!(phF>W*3H=>06*d$dzMZ^OZoR0FQ3CDmPQfC#*G^n2XNqfNf5mUWURrM{0H z9@EL0Odm_eQUqU^0_DxCp`Lgj*1^K7ub2}bX4(%RPa^c2jub2?)oZv^m7*@)rz5K^+`a3ZM zUY!T`b3v?rVJ)W5x)f(CD{#k-7AjOc5QJA2DUYOlt(bVrO|S`%B_mS_3ARE?mj^{W ztUSKGXRtG_FP%wAA{Szp$R|ELzEb>YuM>OEzJMviNZ+Hn;pzbmI9#H_Ile{A5``4# zu4X=nXxUd{@e;Zv6n$;3n2+PGZRGZ?Lc)g*>_=u^f9$(=qOMZpPQ@SL0i`n)$3ENy zkJpQ|m>+fRK4fY^6n(fp9xvil)`V97PV=FgHf_T4<;(H>p;2OjyT9Q@ajtC2MVi>8 zc(EnX8>*`r9NPi|wC1fs@Rcj#SputDnAXL|!fY2^hJF*ShrhZS2k8UMatL;M(cueV z{SCPosFGR*yAps<*05y@YCWyUU`B$s6C#`&b89(qu4la8Z8D9ks;cx4sR^YoyG1QICp@6bm}|BZpo31+Rr{lOS>2Tq7$qFAyX2nIg}LMgWl7uvLoS`(%ijvf4kUu6Hbyb?>=UXjJcbg z^Tr#nx!tIt`eOw>WVYS&x} zC4-_o?Rdk(4+|oT0^LqDk4Jchj0YY-;Ph!!l$Rrq()(mrl5jHqhH}VtRuMWYCBF+d3l`x zVByGWa3+ddw_?-jU*h3Q%W;@?-ztd5dMRnzT=d*IVL%eO&qB(_^4@z-JU=flFFt*c zDE;7XTO3phI8yWuNMc*3H;A}2j0$hrvSsn}1e{~N`|i79)CCN}+)1C~$}6uFe`M?N zN6GN%dr@6w_BA}EyWg;3_X)G@#56iwS}GRF(%|LXPAU6`AATt6a!xWOtA*A{0H|aY zEL2%J!3*d1s1&9952=&Nb$~G&F#nyiR;C)6G&`O@eEsB*p} zdei0@h-#$SlOA{#{RUlz?+)$IA04&h%T>2v+K6m%zAG~`3wPYPNEl4a;OOr7_!ATt zIgy6H=>c?VCZ;iPQk_$LI@<5=W*yM`SW}abgha8aO>786qfU&rV1v!>6a)VZGWbrG zg1LA$_UHv{LL4BcdYSLpDJ~oeOonapRGz9pq7>=&T2OtVp?XRSlE~m#y#%v>O@Y2M zX7nfwr;0BXMg8zONmlYc~=5-$#T1JYdL zs4Txu71v~APLP1m(-NJyZ z%og1aHfB>A#{WwqKGQY^^14l^s>VCqD$58%%?&%`sa z`3N7|h~j0FNtJZ+??p$m5FrN^`1|vC_{PC_sd0hm37gi4KBC`m`fW>N&8~hn0a(*PKt4Fztd5W8|dh`F*IQ z0J&Y8u&XG7a(Nz<^r_f*s0>tcAWEsbWKgX6Z0pOBuQ2e)`zU_-CKTl_K$HRmvj<9k zQ-f{S?uCy>V#8PBx))Di_>jR!NlVkc9|2(7(hQpT_I;<2Ms{W8?A4tiY(X*xmfiC` zwPzc%mpZkx3(ZY&!b}{FJUJgtkNeT|Xa_vcUxxV;hmemnM*>kna^aD{gn?<;aO)T< z4LsOIaYD)k&a7U7vo$s15b0B6w}_DKi?j-F#tVokInNf__%vaxi-0-N;$`1{qr$vXdNmcJWnM@$;!zyN3S2fNMpj zS=-PkT%k!S^wX}YWKzMZLbSE|keiz)7H8$6<1{l?A3}L!A)ehE#aG|%#^eG0vF_e! zVsyZ|ZnL?>30gTClsDHtc*9hy4BOx_n&MGzphJ`7!coi&DmqLFL(Vlo3~=xTH)( ze(}F6ppx^E-FAHO?H&xw%)sHcbe$eV65(e%97(Y8c@a)J75RS2n0ZTbFSY8cD{k1t z7uB`3;(--U4@Kp}9-O$R49D&+K>?*3gMF_d%dKGleYCq>O|Xu60@rUFj^7@-7#ofy zqvcdRzIp5#c)tD|F51~!-#jF|5HF~y!-psdLkpB+{VfWLp8AEz2GsN`;yqCkebR;!DMNJqj9l&>e$U*!%8ClX7w67l zOmJgkLXXX&iam^QmGtw#fdf%gT87(;vS6Jw2}4N&7mR>ix}se7!2>MKcoY**=^`g318xIhvU^AynUb)d(P$K&~GwDa>*^C1uNb_ z)xc4dXhtN~0OmeL`yje>zW-R?bfLZ?xS1RpKR41PnX`fgH~gG4Q8gS2jtd6-N6iy8 zAMN@YBZlVFrUXP95ex=I_l~>i=6A>B_QTWvHVI5f4jarIzGR7Kgt8Pd)Fx4dy1kV0 z!N zmBkiCUd)MIKGhpM2MhMsIrkp8%|V2Yg)RmGA#f*Nmi5w`>{96=PV-6&o8DLW=`lAWmTe z$+Bbv``#|^_d*i31XB!e!|uX{KmcQU2_>up0RmYt1{(;)Hn!znWHnn|RvnF|-uuou z-@SM4jO0R=F_$Tta_{&5PW{gLe_GlsgVsg8B?Zp36cMUILN!MdS@V^IO&uv++-A;d zWF4FlH&p3R?h%*QHS;;$8=C#Mr1=^Cj+FVF?OMnH|B%~$)RC6;4EekHKFITw>T{Ck>ajdGGb?s-ZN#D5<>3F*o7Krvcv zXaG3iFf7m1_zs=NE1E>JZY0`|$cM;NQ3Voa7L`CZG?$;RK@$hmQ0J`~O51DZb=X~~ zrbJ~DXXf8D>#%BLbh}~gtGEdm5;sX^lk;0A7JOKPV`d0^s$LVjVEL5=Ha??!WdglvFy+wF1+;##e~CUY&6mW zgqE>}@|^t}mq)x_-R&~lLn#a>&Xd_Z)Hh(L0q6e=yWLBJ0|4u}IVLb1(~2Lv%uaaC zl8~K)G8__Mt1Sm81duVUq5vz-EQgQl zM`)0{W2~g|u>G;sh(-pn?A9kmWih7>8$;buXKQF4vGRr|6A|)nh@qz6$sZGt7KwrO zE<@HJxHVgns@C-(d*H3rBI{)b5E9r}GwiDZ!}21Ox>9;IOJ&JFeN^?8u^&(>3pn** zN&u@UnS)|GU`(wn#MxCP$P0vo&NOZ2w^hTlj(x{t6lUo7;=vyyIuynEtDiMJ5(YBk z@QS-5i$#{Cxa2)LSA;_~%M_3=%AoW%HuI_6O4soV&9Kytk?EJu0>hLP>piTl7-VSw zV}q`Z_yWV^oDh#CB@HyZmLuL(%4*ffcvz}lKPC4}>B2{nydLq0(&oyYp1HS=jJFkv z>xghFuBfOO-e5?`1=u&XV@@7K6F^S*#JQ=5oPKVczM^IvTDy92*}t!sfoJt(5!{Lo z%qc=4Uvt?-QQ{MjEW~38_{lFNubFgz50wj{4cxHwOl;g;k2P;@6Ci|l(xq$&v!w;{ zd?FoO#GD|Y$K`tw^tutG5Hm?YOw4m5MCv(7*ZMDHD{DfGBmvOXLX}{e&41n(FEw=y<5XRf2>!gkg6c`gO7iWNZ}( zq# zVR~*u&h6%3JjnyUf_~_otN>9@J3ukP5Pw}iC6CdlVC3?(jMkMW5|T=rHpFQ^lG5sD zMd_p3kCc8JfpFIWlp{$X3{mjapY|b2E)x%AJfS3Ec%TP5vqEoQC)K!|=;VpAWXTe# zQ0E3|PP)E1{%Ra=X@njqfI*<>H0xQV2^~?IJNh(~_;iG|1ZI=h^v!vb@v99x@kv7u z+&&-5!+DCHj6eu@y*MM^kNki~+Um;!1OiKmn?NS1E8&h7DD~6aejGR7`>ZPJbJ~m% zQF;cH)3F~}V3?igrvM~9(x6*5#7dhaasf#hY(KWdN{}KDqOJh?4G#tq6e&wXs;Q0$ z1g)?P3-&!Hr3MxU4p#zj=8ZGmRt||X+*}&OpuAGC3hj+#a7j|&Q;ZBMGEn|K zejSBc66aNguwvFEJo(8%92!Vqd|?13p#X{kex%8ka2a)h--CP~sX+RU@&Gvv+=oP8 z6(if{rJ0{dC#CxNNK-5B{Pl}$(6wwZEYzmQD=g;#rgN;gL2RC;Kspq$J-@ zHiLlB$&Qrzlr7-|V4T+BMuvGk+20aT5 zzBnfsCj%s7&{a~=VLx1Sq&GDU;^?qOvyIddT?$J=Z;TA1u0V)WTp%EX!kD$|DakeS zfb(&|1s4eSyv4%jBvr~HBctDE!ta!sw`TSm&RaiQbOpK^4#6Px#qEA7&{Ks$oYfi= zbc^~bawYM#X=MUR>%fqBT17q&Z#p5r$;n9}5vBVG=~wm)S;B|N1v?f^O5sq1Jb}I_ z0WuIp^Nt-juyre+nD*xw^eiwq;ci9Wr&3pj9e>ycJwSjAzp{&z_9oG^fQ~s#-_aFhBsLq_WY#5ItxaCe_Ij5=&!{uBT}* z4j)ZMu5f7?9EO)3x9MBA4onL&0$l-kqgmyXxJqrw8HMIufGypk=3v}*zV+#h! z79^Sd3v3hI(pAsuh)*z1k`Np06ZJ5&eKRJ9eYPYlU%niZCQT9$oE&eX4R$UV)_FO~ zWwUrd*)!v4onPnDz+){fc*MT~k;c7BQoNR=zy!q*P)f-I3%gUewB`)VJ#zv+?}$i< z8A+?2sG~8CXGluuaS!P+&K^ij7ne?v4JqIVp8H7%l)m8@!URg)OHZ=6}J-^Y#bRE~1%Zo!nB?$ zzr)|bptQ8M;$Z?MdSsU=DSor0Hlw~ODb6S*V_)P=7&pEWZ#DKx9*Sujx>8Uj zD4fisaq6Mxg?5TcM?YzT5>6nd6Nr+w@ud=Qr{XyF>1J-$fm$O-D>6zLql3Y#(oP_9 z05Lvj=)(hVZ-FPj1TOMen48#&f)hG(NT!q|MEa%Dby{C7<`kyH1~63##|i8mS(3ot z%Zyd*4Ous4a$|{M=8)65@gVQqxf8XuwP3m~>&6ZNmofA2aM2UYHCuiU_bfCuA0?Y| z2@(ypstZcgR|XW3lmef`Dq#vBmz^^a@o+IV9_^=z=N3<`hqOT0@3xbYeFRFWPpyCO zq~t9yg6tp@80|wbR4}!(B)#eQgUf~pL&=t;D3=pUpE2_Rt**i z+#&he?lwI4rvoGjVQ2wU5@=SWG^LKxPzQUzQ9{6tzuKR|nFe;gZqTA{f_Z9s<2a0^-=CBD9&X7s*?z`_|_rCpj zAhj4cwqJGLcvQ;7ngPt;P+8!m;L(LJxy3b;tI%3dfqnf6A)tu6m^Q(KJSin-)kQIl zR};0zoow80RO#VXq$DC_o0+`JPk^N3Bq`55%4+o{0^?yD3@&jc5T1PEgWW%T_0v7@ z6qbrg0v8w4$)zL*q*B*Ro5QPZ-0xT8@54M-n^bf&ckhxV=i^KQfk9!;MQ;DQ;)*K- znEJN=gU)KKMDy^0(L zL@8Lz=hilw1g#O05^{TVrrzr9M*SaNJw$+r5!86cBTGen_St7Oq~mM(`L`a~K#^t& zx-UpJ%PmR4bbJVN$sWwdQ8B_i@GJ?_&30Vg3u^oJ?Q)@9y0znQ4dSWY(oZHp(ErXF z*CfAnpmhQbYTEYv=1)^vl>5xwR-vF~x4W2LlSz-AR)B3Enckeo<-<$9$1j>)24(JzgxW>k*&SyB!hIz)D;77q^8KmPm{^NgcX)yq5WELpllB*Ci7`z4p{J4kFh zdY>VQxZVbW?WEUJgflDms&dPYb4c3yY%si@>6lr40O`m_h}U0g)*5A+p)$5Y9iB0F z!#Cz5f=|t*M;aQj zbH{c(&@&wx_oUKfG}!xMTjA0i;%RbQCZbqAYYI|l&&9C8X?c%$TZLY=YTA?FsGpl} zlR^M@tUpRdJ%&Bctdm$IzU!@w&0vE!8W1@KeG|FB%h@ZD+E+7L=7TSk+e0~sn?HX( z?%Gs=nBIdQFZcu%`3vMnwjI_issdF$m*CfagonGQ{-Pj39+b?DxZ$uUhwJc`uwtB`W#q2fQIwq4cfYZv z4ZF5)!vh@?f!;QijI`93C9X0<(l#jbr&Yl_dm(+VhrBGEB*+6VFY%JI(@OEj7>!g_ zf&hQ#Z49*?T}q$*I9~f^1`H-*JP` zb5KhBQ}N^Z2jp>6=ii}w;4vE*%N|&>o-+n>r*huZE%w7@4zlLTmJC}x-B|(GP?wU3 z93ZT^0w?>w{x@V-0AWC$zkc@KK}>-?Gcj@L6_@b*5r zamFa1EG9$rC+=0@_9`od!7b}t`^=4M&+WPjM+V={v^6>g+9b}zE%Ohfz(0uwHG&=W z1z85#-Zp`*X~A@**SUXR)3T+Ao2~OEJb-k=$4ES~Q~+@2e2-yd_L1PjclFcop8Gc$ zph$;zlBZ|A`Pg^AD}4v^$>1|11FP=ymo1liYPKf~%(1Q>?A^WqWm=WzwvuVs)WG!;?)co?0cUA2%8v$feV;mY}~j} zxGK5rnBQ~TW}n)%HJ8W6v1NqyczozQ+%W57`SZS`3o$gjB?}CXs}c)lv}MiSbnFNs zjsJx3S?d+o{!cWU3s8f@u9!#Y&NgTTm6`Zs?OGh;eO2jkDcQBatXZnc##|m~yXht* zC;*;E&zV_*$L0K`%T&sq^gY`Xu6%a;186_mj7L9iL~U1EsV}~8Cm}RP+T8h`9G0%) z%91e3=gh*v_cqGnlym(fzHNO546ggmjlNF+iqYEIDp577Dc+HbDUF#I;e&=>;De^S zlsD+k1hsY_XpRzhO3Ug+o$z}~5RL5?wGs-`Z~2#F!h$jO*#h5#Ht{C;)I@-{7O>`_K{HlTk;x z##PU(!Q6APVixa>9>ph3YlW2CCDFKM&w91U1u1&g3?EjUbw_s6t+^R{tE;m(uAMEk zxu;Ni#~pG4A{}NYM%RD*2Q*T>HOG#L4dD%in8ShxpI7=^G?15GdWqz}0uvTfP?{%{ zA{rOY#dUFUdHYxn`i${saY5cpBc0k~0bpc+5s-K*vaBMu+$?EM7l!>@4T^fr+N+rl z?lb1#iA6j6_5++dWeVoZnPYES?7Z!2e+3^l-j5s4-JoW2`@5(+{=Te7yEF?3(-Sj` zFOLm=jwAi=iKKtjb~kRAvl$bM&c}}N<6*S4$OX9_K#V4ww(29bYnZ$fhPh-KzWQqP z{`R+s?%XNc;y(1yLl{#zRtO3?KxS3Vw_|M`&zl#H)H z7jKiG6A+d+Vb%6#RV_Ly3UgDs&Xl#qsA~elXHntY@7j7Fds5P2ZuLPpT^jQ}yhO_6 z=DbNp_HTY0PuIR6fX$inHJnv>Df(i~*xK?0wzfWnNV0u&$uhrU-L~Z-RdZ-2b9;YI z?fA&5J;&qNjverf9Se&HMCt)p{m|d`)A`IZ&-3@My^7hS0eFKk&D>q&#W!dI4bUVl z55QHbwkS&XC*dy%AW-B+w78Pa*?o%dhcD z-gOWD0Uzw?#QA4W#!s%8jYZSPNP(EGI?MtEPS&w~VI8cpswv5FIfJr}u5L6o)Z;Kk z!#zD=_;52y9OuTMGiY3>Ag*n)2cI8(9IXSj7*{w83A5~VG|9+4q@9(#CX0dq7B>pB z0C0&AOAVu&VT2uu15%n2%wFhk(~;Y13{7z)8H)$BCmqiIZ|{EJ`8(%`_`Nc}GL_HaaTU$G`L}d4G5>ZT^wgwEdZ8;u=LYwM^~@L1hOIGObkX) zQC2GF#^+MIs~+yWLJH7BaEJY5OAPtG0F!czoq(9j^^4PKI~cX_d9>BF9O?Lgy(k_$ z>pjJx0P?tIHK9Da;l|f+sH6sU9aHI>N&JIjp)I=<0j8TEJExHf9e#Wbh6o&KFCb&b zbPYd$VG}+-oot|GGNp#@uAH39t+k32B{8o6tcvV&D&d5HOAt zfEF0togFx5##sm#70Vd-i^A~oLR*pywx9Q_c1aO6+q!Ol0UPLB&9(!atnJ{0Rp=)I z#ssB_13f+w&eHPi8Cz0-yaAeZDK6>PknY)q$lA+T8|O$D??Dko@6a$NKlft^qB{Gd z_|KLAHhN1Cn)#Oq(r7o(`+6qQXGksk2=f+-oz_rL`|!J+Xntocrj}RZ_dh*P#aNd6 zXi83J_i;Z4PLUzSkh2+nL==(XjYQ#P8g@f=G_+&HPNF<5EJPp2*3NE^S!wRgFicIRpQ&>U?Mw z8ivUb{;IPY|J6_KppU?$Bl_?f?7R0`*+7kdk7)$%{@rJIx@rZw3Mvr1_6{^`T93cD zWj(gseWmQ##OLtThX)ZYU5?$o6{u~=G=nf+RRv>F;%>wC&mYH?b0*@ZuT7HIJtm(C zXJ9>f0hEoc!VH4+y4F&8SoQ!PCE~06wcy5u5yg5N58h^2%g+Ok6ctI*Qb^pU73$L z7)&<5iq*@4_@to&b(PnljrD1ex0P9gHJ8oC_b-`g+Xwzl*8j(Qda&%RZVaBiNOosQ zZv6=9FE-=j+rEK+`7n-JW3lX02wtO3Mv>gV7MIN|12116cCVz7FIAI*?ai^5p+}D3 z{huzCb&e_3XJkomf{nN4vIoi9=0m(WvxttD2Clp9*Vw$R34u^Pe556~`jA@+e0d=p z_7^r#Trt@&8#q-{XWG7p+4N~Oc*g#C|LLo#T!YTl;mK4f>ES5G7KM=K%eZWb!*`K! zzQulTZzP7=rVhMU+lZZw-3U%A#?7l1Vbj0=4g>w>tQj-|umZmnOtbn3hYN)zntgiy zo{g6j()}K_(c~G$D7yZyaryo4pmXUBh!4p2Cx~xYgB8`KSbP6>(bdszRvs!h`pV~z zW2pElc*g&g@Nr-G%X{$A?cbK~mUq(s6g&{HeIiTblWPI{zzjNf(%3; zC?p`f_@pHb9LXH{;bQ78 z(&4hREmtpErKK{PlIS_!4bRjWh?1SuDp&(F2_4kVYZCzS`k>YT3w-6qOo*{$OXb3@abGZt| z@8Nx7@~t*DJ&UEtT9k3+(&lF?fpP7e_kHh3?87;5P1`lroT zDC9oKtTG|^{9f6cMkgselrJo26SXXfFtRHtvJ5&#v@M^K9wDc;X+uR>$t}!z#hyk! zfwFd0uPnB+%hc2t$J^WMv1v~;+6Sw!t7kfDgS@=UG=dZ0nRGc4b$7!@ljrX*JPVh0 ze2#CuK8?^Q5(1cFa)B4#^Ed|j+HmfaN}M-k3|jm%@M->c(Yt^^Ap4To@C3d!Eg$Di zD#T-S_RQ$(tFFRsGW=KF{w7{ty+TwS>v!SUGAC0@JPf_SOs<*wtr`>^Fhu37OXPzLOBxSEFkY_Hiu?Uf^V8BznCzYOVQrn)HUX#@& z>-3!LrzR+;GTz ze=B;5zik?QO$@%hhRXXdQV@Budjr<~=puW7-`jf(Kl7fC6uq~cBxK<2_2}8Z7n^>1 zp(OHR$+YZFaP9N8nELHou&bHAkLFEc=UM~}4cqR#0DaK}ZhYz^EL#3UY^cjaOCSCH z(7$2L${AR-aEfE2BwYf&UHj{B*9+U}di`Q6*aqz_8prGTnqjgvIGGp>lX1bp){te; zqwDYda$w{D;-x`fNB7q|v%7ou>;aSC^5d}-NHOU@KjxB4E)eFlh&zk-RRP1@Nj!sl z`v(+j7H`jPlJR5*poTP73ONAjVeUZU&$7#T{fo8eS@nO(O(y9fP$~(W2?27U>7)C| z^^PzvXM!Z0Hw1j?9$Ywm0)GAdx%lhfHsfe$1^R~)i0`~dwxHU5@6{tnQ>=Cb-s|`%I#ksj9i!Z1Pf5k=QHSj79B6;y2_t! z*^1^y^3_8@l#^cPATYajmIj_(O6Vh8P3t{XXH1YtJ2Eg}|DC;^|K8t)&CP>2QZxzq zW5!T0siCZSH!hx1jB6H66Q&r+y7ms?FW-#9Rdf!it}?NET&_8_7}#FdiTJ@Mu;Z?k zwp6fpHfz=_eCL+OkT5*r2{nwH%D?HMNtDiTm^h?^248o$xE3#o?f_-zYCBq5ERX=%LnsC~u%wiy_>1ejRJtw)0VGn$+gk-C)$cz7S z`rgzj4El%&Jtxzf#fOx;$Afu`m`AQ7d~idL8>h@I6yE@{#K$a%zJ+r`Y>qJHzb+3?45DaQa8L z2Rbc)q!UpL)GUHW$9D|F)tn(C$ZqD>4Ro7Sj)mee`e*jnkT3x{OfOGy$fAJCp*_ zqkdsr$3=;__VYwt0tx?g;lm2p071W0HRLIeyQK|xSIdw#&D z@+k-i0*V5H1@w;%MNz;;c=R$?T2yDQn}smemDepw<-etQHlD`8d<~D`~#w{G628 z_)9)NZS2QRnOoS>cJ~G=Dt8*i0X!KkV^lMZznp8*sjP-zCt_RiN8Jam+Fp*?07ZDL z9MqSpOU*LKR*`_QMs0G=IZjv3W9vDWnLlLXXFV3ma_fD_`8zm1+b&X5`Xw?sAis zTVs(X-^}L0O)Ey1q$~-L=PcxqiL9COO>pJ>zV@qEpy9PV70{4O(1k-fRcw# z)NjfXUvBZHMCD#h zQEugH?rYpjA$3T)xpAIHv39gNdRTMT)JG9rTvzWEGH6A=Ll?`+SyrXnH?8;j|St2<9x$JT`i%*#PSO zC4%mI>AZx_zgz05W9vKSB9_q-PofgVY>8*7U5jT|P}Sk5X%~%Xx6_MH)43ha!OoJ3 z+{XieqAS({_lcB@jGE#Zp_m=Z43%I>g;P3m47s%jPseek!v;pT40(Swm8G&2oJXJg zay4(^^7rD=7v4477J2P`-R$}*igV3CH6+Be{EB6Gxc;`-jc|A0Hu}8_=(!JdOGWYT zw)-6#gP*O+1_tCr%7!~T=VSt68*(MvkmpE;7;;6EK}|bV)c}S(+io}?^By=QTPhTs zPv@%JPpd{{SqXgxsT%TmfB)J>qcNlmgJE2CV|NS}joF4-H-Cd>wN!N(F+gE?A;KNK zYv_%q(HlPKKiCe6;jGt8y8)}6s-v>*1i86t|0JN(n{qikDp!tVs162rB^!u5uCA34 z&$1gluX9{o^Y5;r_pZ8i(MVZW4pA_ocnfgD`KRHEg|m!-cA09`Wx{O&z?<$ho7&Z# zVQG<$Y#yN$FRCozAN)T3-uX_iNwL-1K%SM--?KV_POjQ7E2}zOTt)2%fE9PRoa#zu zpE9VJ!|BRqyR)`e_7!^m?>C(`5-zV_D)?N!0J>sizkGgt`|`7~WX?p#z5^vgMJu+$ zlneq$Qw(V_05Ztw`Q#nE#X~CjeIL@7&QJz$ZxuBM2=tFPjDO0BmkcOMKR^^yB9wuo z!;CpZN`S!`a^%Jywu-x%9{=`+lSc>u42DVrr+Bk ztZtr)YIf~ZT;_e3qi>-H#lx%l{adpPcix!e*a6^)5{~|o;qXQj+h(|qAssn}e6SI@ zZA)}ZjonHr>!C|#43`!~X_pTvn$5EHS>b+A9y#mUqe!{^c;w3$V&<5kS=VY5I$67C zj7=go%ZY6Kb4zmp0hpIb3D{s|12~7To+-W;h(=*CZ zRXIl7m1{FHDUrJglzSJBABvPGfVk>I3?4*vm$c90U8H@Q3sLen67XW};cg-I{p0dW zFn(B>#5vAPf*rn_DpU-;U7g_;wZ+@U7?>2xaK)IiW>-Nbbs*rF65K;UHX>RnS6m%zmEPT)WW_xZ^b&(E4UrI$mp&!1IQurz}fb_E= z>i>-)R|j0tv+ag*Ohc~PhF%f-kC@00;oCG?W12kQML_iuAWyD8EE4qGEtjLbFksp`b9@}eH*?<%5=mV}3EYAL?ioVr zk3g-e8Hy3Lqf9`KlRV68$dym5tdxQ3Yjb7W6M^cPAe24;{>n=O-=DpJbnIX+N~z)o?t_?8WfF=){+zP@lQyjlY1{^S`%IQPyj zEf?dG%~9M&vtf3DRq2tgpf5`CM$n>5O(VdqQ_0y1Qh;-?@hF=2H5d&c9oxOKQ|klt zwEf@i_}s4rcQU(|tp!NJ0>o^gnhQoQ5UrXIDwovzxY4j*Y(bKSo2&Q|+{G;(r_Z2C z!0svyDjRe*#Fk{a^|TZkd(v^Zk`a9OoJm3fe(q0K$a)ETOKczDF>HnEHV9*5Bw4{i zmrQ66J@4}>(x`+S_U*@(?RztT4Ag>KOMRjS!~NDXj#mYuC>cGRt*Trf z*O2So@XJP%1OX9t`AOCIWTA=s8OHjei1cOnZvi}J>`IK|V7lGg1)0naDXX~pA40Rk7OwNW6*_M|1WJ(f5fDni03xkOaT-@- z^!0R09aL${b}XziI<%cr7R88IBVyrh#Cp3(Lc&tT!42}6y*-rF(cGt#(RZPjB;@uN zHbbL0FFY=ARyXzVQ!#DYzCK(atZ0#B_Y(t4kHl>N$0l&Nk}4YHpnN5>LXCt>*^HO z*NZ!z-$drYkLSL=gd~6mAELUrcY0ZY7nOzF;n|BY{ifOyFG>l762A{gitn0F~wIJdF0>Wbe z5lVYZ)s#dm8bg$9LLUK9(p8W71wB%5#zn?_Tyez}Qe?e!Xc`k!jYvg$2@neUVi9o~ zgw~L}w?6v7wx~vKuL~jFgCD-INh0|bUt3HzoE-xNRRlt@-z8n1BlNo_7yD64_lpP& zjc#j;ee{|a0WU@71WvKv3%}Qct1nz+B@ln0D8~v0GoUE{D{9JN#8q_=hFq}?xtC78 zK1JS=zZ6M#kW`ZoJxP~%O$n*=i;;2eCWGCB(%yqOqc|iT2`rC}`wQ}SbJrd&K)Ya= zhUt0}($NT#Bq1rf6&}d6QG?5FZCgx7chXIOc=4m>HlWUbW+3{~DDt`xr{6M#Rg(Z=q(w#rdGK9A-{2>mR!pGq-a=++3@{Tgy@vt&-M!0s z;BTYz{{Ia_uI6lpIX)ojag4Z2okSAUydhkGsE5FC7m#lDp@Y;%G_44)Mjsn%n%PmZ z6IIDJoL$^2o)pJ6Y$I4TS>1aW7^@BIk|j%|UFv5>xiHV&3?<$tO)IrTRCY8;jT94K z(|5E|^xn-jge2s?7uF+AHtM^dnvQWr9vSQck3n!Uf`Q;BT^<7frfl%L3?Te&LnSez zbWfU{5*L1T*SB~qZlULYexeQepd`at-jcll)h}Ol3Z1*(?C=o~g+f>oreLmv28FvN zi$uhth=zL+q4=R%>%s!nU{vP1)?6U0w%jJIx&X3x@nY$g#(*sFwm?l1Abku-EVCDa zCRYzdeyveMLc$~=KU=vDDRO`RYr!~*F<1&z3@49@CBj1zQ^Y_BO8~Das_>bqckVUF zKyWpDj2w;--M{UBzRqKEljUU%7;7jWQ!+lPA$OkUfGweO&5Ml?zKpo503iaRlWatU z+)obZ`WOgSP2HUsuJ>S0Vz0gBiveKOWC7u9&260)AZMI$2F8r3#b-u)B^FVWBpH3Z z(BcG0(o9{DgmlM}A|YJ~8br;5hyJq;?NM?Hrq`e_FTDlNt%nj&7{H*Wm0Wz?6L$*@ms$kjn5u<{x5Yy+;-?MwgKpFo;|IaW=* zG#eR+P{P>c5+@*H;gA3^lq6zyqD}^v)zCmdw9`(-gbCwuNi6|F5~465 zQ38Y{B_km~Pb?)~Rwo0JcHuEXKp6iyvoA!{6EBq0H}Vt8CMbUu^Vk-fdHq)}KV z5<&QO5g6QLIZWr_n1V~cd_52TOLRe3oCrfcD4UVjkY^%uop1lXJA|~CfFRYx8PyH~ zg1hSrjaw`(TbBE}Ixtl4!pW(6yA>-NXbT7iCLa*aTYio8JHKz3c``002|3Nv z3^g4mK*FRCEgNE}tgcv6qICg8bK|j9Yq7H}hIzw^#V&9yP@If^foc>`GaFi0%Glr; zO>uL2jcgu7eTC908sn<$o{H!y7JcsX3<8(`T>VK6xjMkE*1;Nb0pf`*?MQkHB!=iA zb-?KfOEty0$6ttTL??!!7xM@R9!N_ySvDdU2(cI%n~D)2eJOOs4GH<(OKb7r;Sffa1PBNX0o5SW;*4`Q7eHtR zcSaZejt&BYJ+(fHRSqQ#wbe)VC$772fb8LnE3ali{$>O6F%9`gl8hWfE=!fa{qP7< zOy{Ep1c(j+LX$n*mPACmJ5Zza;N)bT4FvBN9Y`XMN8cc+ZPKbnX+fwe@FP#bKPrFHFwGtqmG@xOUkUzh=4sX>Bwku#=*PCoIeqobo zi-Tql42g)x#cPW8bfQM>#hln~+f8L4uDa@~yf$JmJQ~)u@aKu4rSIbnE{hf|#6_b$ zhRV_igcwN(d07-08s+}+w!~7fQ%_Gq+MpG(opU zc9;Qa;GXB4a$(vZ`iOmfKsf=Clyw#l666BAnKjMpL-E-c@&$I$>G`OJyq{zoZ_^SF z!ksI(Pz(_y*VT`9`Y|osTQ_B-!No?fMD%uGv^R#Ck?r+2~MFTS$@>ksxw zy>F5LiN=!%(YZIAfQMPs2n@D^dm}n3$pcGC4B|#qVRh+;izI_R$f{vOFzWneJowy& zt7yP(nS-$z1At=JzyJ3$>kv^3#A9lwsG5CvR+hU6W8{*#b)`XDGi&VU{>!#q=C(Y1Qk01WZ zYLqRxjIXPg{tFJ)kSo^q-D7MImUbM!d$$fB9_SF7pM*Og-UPD;7|W|Brv@48crV$A z2~%)--CxZ?Cl{8C90O56Zmbo!C5|uv@dzMh8vv9#0IBe5m^EW6_LCt$OaWsf2~?TSBlJehBEtl|K6AN% z-QNJykHaWfXeSrC+Qp5r2#h#siq@kz^5U}$h}+m0p1nrik8>&C26{TH>1?^_@9*Pa zZyK(G5}FEJ>F1RiR*{IbArWy>O)-*)Q6v%5H#~;QiV9hiV9DS#crFmkx8!UFFk{9H zp-kZS4d&n(&wNWp!^q6ROa<&!$tHRN#B25}WD=8CUwsuT8~X4;e275=Zv$dhAd+1u z^D!w2lPdz10R?krPR0vIqf$`K9I|n#g?Gbkc8g<_u)AA+;bhS0qN$J$B^h+fpqwNyCJ=G*{XjE zRNqASs;-B(bZHg{PAVThMvNGVB}>i|P)LlSfaC*%RYXpkiN$n(^~Jwj1vOAYKorSEr`^m1;WB~HY#>-7Mhg&+ zie8s|6S;X;Uww@=!#s1u-%BoWxtbDH)ycel+|Q5P z>$aVn(elAt{2g|QloJfs_rL#rr@_9GZeO_Q;gtkJsYryVCMhm+83gO5L~vn1EZl`L z<0oRux?d9z)g-=dQ8k~t<{Iho!9YCz_~QZwuhf0x8{d%h_tB33ht2y=mKjx2cs7j# zsnf`t(#YLy)+xI)8oq2KF9B0b7wk6tRz!lO(!3^o_yG4cx{IH_{hQZjB!j8pOsV)fosTYi z_(iyj%LEAK+fK9p&bm^H&rF)oXaw;P0Wo$wrfv9*cso{f&0HFm?&m(@d|ZC{Ooi}Gb zG-Kh^Y+c?So@Cb zf$B#MMV(yQfaT^ z)%tGovW6NPDm@vMWk?>my?z2Az$%LXDI^0wb}ZhHdeKclR0h4$g^i1;xl*3lles)7 zOdsW=DeTvco{CN37=|fv0wPY6If^KGu;Cq>(7JgYtEo&3!8}TweO+?<@8B+}6lyq? zJSSafoIS!Hl+sP6N-iP`_n?+$$W#J?n|v`(osU$~HDn`v6i-BRfY9lJ*6ebdY-Em! zXX^j*;0+i%><>ss-bcKCaX;d#?6OmnbICOlT98!Xa9)n~Aa-QCu#H(N4DbB{+U^%6 zn%2r{QSt+WvyYi@ctUZ<9A?B}w|>>jui&ly-DK2no!7bI)A@96c3<1(P#jIY3Dmdup>FdQOiTArz-Ls%hZ0GW1_n(NReCh8p~hp$7I||? z9pxU`S|ue#k*(|a{xwE2Rg{2)cO|IPPL`Oykln5msO88df2DdNq8&&fZg zGq8fWU;gr!q5>=%@$NQ7B*G~b41{&;YN~Nm(z`Hs0{`$R`nHwZlyI&b#xkc=_@~rC z^^Qbh#W#@t;4$e>E8E!E5Pxok(75TkgE;Z`OQot^AF~j}%iqC<4IA+0n{P_B$w*Q= zEFo{a@dnbJDogg|nlnK-HWDawk;)<)GG)$5*ygE3k>4ZT;5bj!mQ*mD zq{!m2J1VqrWIvK|^n@dDCu7+2m*27GN4|I- z=I;H6G{W){5P?8}NQ9OCUcY|50Kv~?5_{f$$;x=L-k4>ndYiP$c#qjkT@Bb0;XIN1 z9KV%-kiLZPKW2P|DP_DCuKZ~!llOJHgJXf z5Rn$6ma93I#4wMc>Nx&j=}D2Mp^IzG&E%^27M860)2C0rhgI08Czj*-8*aeN88bvZ zefG0gW#zHndh0DIFdH^(7}hoZ#t81F#S!$+&1yha-+BgilSDMMonc>x1=xYsugYWZ zklVAE%krrx#W&qnQC2-~za;gVN1^=tn|9w3xz@`bhdOdDw8jnS{`F$XYq4Z7|G11Z zNx|Z?&cs=hhT;sL(dAxeK$sLUoehXY?qpk<`!uY5XALU5j-WY0K)8$?6$5iLp2QG0 zHz7_VLX%Y`a5x=bzv?;u;nQs876|_q@NQA4(j;0_S$O^OZ8yIo^RnN z?-|T5)5omG@QQmfL|1mlv}_>wmdO#ND zd(TZk+R40Z`d~dKg^oyNN}7yxD|=C{w8R*FbTV7CUokcynOEGC7mQ;8V%@T8LQcm{ zPQr1Va?wQ>$@}hkXPDTAaJm_{zvC9Sc6j-1m^yN61`sV<{W$9>;>rEyRTbKx^#et; z+4TG>$_a$!v2`{;d-X26Kdl)5WxqnzBRV{z=V!%2Yu2oh?Z_Ul51+l_a$J7KY<#+` z%lM#pUuG?&A0Pn&M90>(8{ls_gw9ADl_~*2Mm-!ic6|lFeBcQj+`5Iw@s@nEN6ojQ zmJbjwb6z{vIrw>Id*p*t*r7x->C%Lq!eBT3&i8!ijBZ1~Hv@CV#cfyC35v6#WzUht z@_D}6753{|j#R-jGOvmPvVpV66NL}9;ccWh{au2^;KVagJaw@>0DarG$t`U^6hdOaM?BAl4mYZEEP;>#mCRrOmjBFw*h%%<7~Wpn2Wc)5>KdVdDZ}1vt2w& zQ!-qIi?XPut@wfg@{jscmWr~}o#L=5X$uI)$=lWnXM7r}FKGW=^U9UjF>@w1kgXd_ zku|HRH_4;og{{us5P5F+3}#LX7+0YYUnETx<&+Bc=hIG!U?BbF2tJ_0ck#pakM7;P z87=?(Cls2w<=0;iojfXwmyeGk<4> zM@A)4Y;oY`n-Sl$2QFR>q_gZ?R|SPy*qNuN{GH zZBNpS9Ey1pbsGe}<@m(PFFB8bVc&wcns!{nGkdPbpSNEif4^Xg4!>tE7S7Pc&|Alz)>rXP!>{n({>RYNv(qh9$pGEOk zGx;5+0Nut7=)+-q@N=m|b*6bB5G*E6E^OoIn5CfMiYshR*PT0e;^b2npupooO3?)j z%~UNr_BI&JVm7`FrLxHA9?BhjdSmdE_{I1~%PRP@g(+C^2Mx-Ger;Mmx|*uz3uQl@ zA8~R~RDjvg{p6bKaPz5KaNjv8+;dh6H_h9PldHdGsL*8pF4mR`lUOPlMt$cS_64ol zbvs3@twKS~uBF`aMiv?nK6N#YRl9$Hmhdhpfs!mBcp$g%DkHD!Bb(#Z35o=aO-<05 zw}YvG_?FJ%3okU+vC|UB@^AOLR9nv`X;u~Z49VMGM_}|Opp+MwZCvTvLP>ba3MC&_ zP*^;;2FAG!BlE=)ITCWfrl59o`d_hPMOMKZSA#RJYDL9(ESvNzIjv($%TpvhKSxt| zqwR}Ys%%{O+49uJ!%vZWnzr|n8{O0#k-9|xIyQGch4ms1Vm5*V=j=6D$Jj%tj=yenWr^tu9~uniH`wDgR|5Bb=O^I?jTaYYv|i3 zie-ueuF9|~Gh{6~7!+_Aq?3kREvI#KM)%{rgTKT(2Yz8c*Vw&TxWKb@8tguR8vTg( zn(rq`OUrM%`|S#m#v&e6^y6v7u_|2Sbj?0?XB}ZauS*Cw>tl~$vk7c~L3dmw;I z^m}-TARJ3zTEK6N6%TC6@LtrypcGzn2WaMPDj*4oxP7djU+pIu(!khZH}Xk_Q#$eh z5*F7sozALlb%JLvjnd;95_c{>w%)_bv1|;vbcWXtxc-$->zFWMf=JJ@nMS3@j@IX} z{^%c2*Y)Cn74_C-KeOXY_{RKqQTe4Wq5Jp0wif7p|~jLTr8)22sgs;ZhAs02oY z0>p(RaSR6UP47#l$vaYHQH>L%G((^SJy3lGQYpgKoxEqoL(egRV#JPoHKR@UKn;xZ zNyZ@TM!)LsTp%nGa_4)}rkBE!Fm~)XiU%|)yW}6gapOi=OWKAn?d_UxOnZ1$g} z*je1%ju)}E>2d6Cf59O|q(-{d$m0rfM>`3Obk5)_xn=Z@=L8JPX6U*Nj1<=W>Q|`! zqmimV+S-PpRh0q?t7qQFt^|EXS5YomO(}5uJ<=$KE8aD(AyCvKnV#zTniy;O4fr7K zhLDIjIff3jc4N+W{*0i%1mC`RKCV1%EJjxqW|P+@lE#ejxDg-`mmfqwAVy-(HMYD) zqM4uF)7_1|b#(#^1I4Fxa2tzRvu?%Ji=L4I;bU*dYOFbAtfvG?vQm!BZ9bPa7ofB$ z8M;~RpqnSZ-uaim*kJT@b_n^FW=$}T+$jiT)ui{4%Uj|z>TfC7O804q2YFkD^1z^& z2=c`lxss6&5UwG$f`oN@oA9s0qj1LJ&*8xSZMf^{)wu01F^3NDVEmA3+;Zt$oHls~ zMpOjtjt2|~Z_i4bMZl`j5)LIa;Jh3)`eH`Lm5w zjEij7Ddu2xJ^wsfA9(~}^0E|%%2IOxNs$c%5zkS~E=^k`Gv0T)YMeU~bBl9&S&}1DRP6mJ2 zkRe$lS8Z)=*h%(>i_`dAxpJlb4P1pjn*g2k+H3Z6sm@NcP}I!;=?s9Cvghp(7C*P8 zu1uR_sWdJNWiZN0%TQHez!?nUxT2B2w~D#?D6p$2FSp5Wd8X|m2cfQRkECjx=^9pP z;$Gi!3u^AU$9}%&<(JX%*S{k4#v3$d8Z3fb@vLCezskD)rcImZ`^v=r@ppc>qaNP! zVyTs4n-PzsQCu1zP}5}K3t@4RKs7wVjN$IjL~u;WIF=z#CK57dWK$z~775Plb6$#b zW(WQVwRAGniW&5Jk-_twGLm@pblcEt&Qh~XlmYPj19)$5D;{}iBf1MJ5vUr1&Lc-r zzjcdLn*GER_JE{&d(rxv-=KwJjFbZmuB^B1pUDS)@L;2qb-G<%q{v1T z5fDN_!Dr% zRF4n#9Knkl_u+$%5~!nRLam)Zv$_;M-kd1>+Q8=@`8Vc#_VWlWosNdMSu-{q@SSua zYTZmJy#sS^eG28l66}2V8pGEoHN!l73Nrn1d6IBI#)Dj3QVMU($UBu5O~#~&6GeK8 zC|G0Hn%640ijr%j_=H0p&AQ|gks#;6go+X*(sx?K!3{^+CD`NP2vV@;=Kfj)UvHRf zW=$a@`H(^DpbbDNWb(=#FCB6WLtd}CT;tLvQ!#%~N~-Rxu-6AaT~t}2AE!(t!#ZI& zZoF`w{B1Oz!qKiKlzr;+^o0f+``DC1+VR!Y0EWDQE?}IcTiH&eIc;o%;m4(SJc+NKKL?kdeG;aQ9cr&l`@JsI z4k?k(;%#S#+qyCSvg`0vvou`hvS0*{97O5c|HibM3T#LQ(LL|e^rRO(^c8^%ZbbNB zKf(N4S7PS_pRtX8TG~sbv2xQPtlZWL%{Nps8=-I~CRgd0IjRz0J9h?JNL5+-o>d!f z!sO05{1aIXanQ+$J)Ze7k}A$h@87>)0#!bp@sik^o)A2Kk_fIqr$J_nN{hL;&zHY( z{eYB0gHTfg81j0L+kF6cK#0F?7OyLVVeC&t#pnxAl30re-`bA*U)yS@EDGuU<4Ozh zjnB--($l8E?@@8lga1MBlAG<7%AU1vA=t1Ht8cql{*G-)dtWo=KKMG^7hDgDso=l# zdx$-K7tZ+Mn|SR9i$vA&aoM9E;LLNsh65BEhN9-gAkVU$5bo#!et-8r;EEr@U%q&% ztRPC`7FXtXaW@CI*9VgfSt<)BPnm-8u(K3;xg1Il|ac%P`IB{GZrsVek(E`)2sMX091 zs3rGyXfbf4aVr@-a&iAm`uPv5(fQ=f7%^cUwzU|82Bz}-@J+n>(6usa8KHC}j3CXR zx?7jv^p|#^Yxp!V4xW=QK>LTQaHKPe5#@fI^YeEx{?xDI=^c(7h&fkc6eessO24=C zDpVK5aqiE5g8x2m7M9H@GrhC4?9(VL2%y04vnL`OY3V5KAQUbnd&9-dg?^vex5R^3 zL`OvxHydzC4_zLoE+g{(spUBdk!U~Z$T8%D@uu<^@`EbPh6ou@c1xLASQg~7l0C*) zw38>*9SdMVp!0Th_O=d^8i*S;P%cMw&k;B0fUZpL#pB*- zqJrHgos8uA|KRQwyD@vL7Yi@=I#%t;M04pQFQG=?P61{yw)c)ktaOQdUQ2}R*~B~W z&?|S7u3vz&$9XV%_%PY(W^W%5`qDJnhD_mw4x{S>+Y5f316F=M7S&NUBuEnFmi;N5 z0%01!5N{<&r=IJ_(E?G9`n~d_T&@C|y2etiMz%ua-4Rpx$pA}m*U^QqoHYrt zSDwN9`#aE9QHzr%kHCtX&&6eb+l#HO5=R=|&bl9CQkfU4e{?n4+B>Cd^k3FIi9a=6 z1jStn{;Y3(YAU{A679M? zBk6N{Fy{0{*tFO9J?X}MG=<|>`Ge0I-FzY;`JU?*jDhRJ7w}}~=Rxr*)PkXOoduZl zy%(|P=bw>l7 zK2@bUX6doo;^p#eo6mJ|G|L9hV2+PxsVRlLsjf&oQ}jk(KB}q&*Pk^5Pu_SDKK$WQ zR22t|4UX-H4IR&EXJ3VM@@JQsXJ-{f)=9}-rOXx-6xb!x;x+N_;j+n9>vp4=e-j70 zTs5<61zFj!lxDUxH`~`8rE9%pb`1ipe=#JK1!?qu(bx8%H=2|IR~@2v0`dH!o6Q0>Vj8{){e9kSFY&N={=>TWJ^Va2QozRs(qdW5t=m1ae?6=)S1mn>d{-}8IzsYe#SnINiTlYQa59l4 z#BF?#d2!3C|lpWCjI5-r@K%VG}lGEMoRwi*BY{B zeTcxZf=KH+`FYhOc9ivSy1v6L9n#Lo*`A3fUb`4?<>5>Lu$sfhoKH%WkLFF~8ge5N zPa8WbK6T$jCsHDJa+5CxEwqP743@^oP7fr$aI}GX` z#Z@F1f5{J?#h!nB8|_`)G8_3i4K;C5d}q~uY}&S4fbg0D!6kDq#z8XPUDn>1Z3oHSoQ7!F*w@Z0a=Zp#Tw0FF?f{A@ zdQ?byWehx}h-)4AM_m;Kn5U8maFyI#RL{H|ZM%MnbME>#c071x-i5WjhuX<*dBlt2 z^?HS+$K|$jQ2Bw#WNZ5w@{g*foB;JjjP@2B94$F%6!g~rkehnIQBG*ACm-(8@J_vs zm-hy-BQg(>ivNOl?ElEVJ)W@_*X)v5h0$=8OozLu2It)SEE+rGwj^?=g5`hx5b=4J z!*lHqF!Wn@BI)+woGHT*358HaS6}5}RacH9p@cnfoP<0|9@U}7MjSbOP^68!{tL&m zl#qB4BFAB8WISC@ACmj-!Xu}@fp9bm&zR)^N!(AK+1Sr^%7R)8Mc-^McmpSAXL%30 zSCWJO$PoKx6TtUxLacstZz^9z&ilrBD*$iZz2mAgaLcl|VLxyHukUKc^K0wS(4~@l zI~Gaa)Z!_16yAC;tkfsQ`YUHo#=jo=4Vo*yDk%)#*e_zdryl1&@K^CrmM@uw_xH7< z_METdKZoc#iWGG75_~L*?=G2)FTVI6q?djcyu>i#GgsiyA0Cqht0;Rt^!EXhAj8o} z;t)wi)UhzGC%REu;KTUHpWu%5;ji~y3Ep;Bz4`?lEx1zb-~Pt7Obp^!Zte)D%{2^e z9cd)n4+qQGy}Vr+Ft}6f;7@T#i1JY)@O?&vvK#O6C|Kx8}-{acH``Y%kb9?#_MNHug%*bj+-X?{i;zp z$=~5J$+;ALubx{QWtZrf5xL@w$W254apDY1GPt)CdsMu~k87qlJ;J(~RTnQuO1xlo zL!JP(wxE8hP#*Gr!V{qPwbmV=A;JExPlEN35w0SYt;M~ZGRMR+;Itp zl@%I$2+3>u#c!TQ{M;*$p!ZJs_8r*u;9dCBy9aQ?qFV8$`1AL*hA{s8tFeBck$QpY zjemPdtpM@Qbq)AWy$3^TFU5;nSn>|awO_q>T0fg1O9yN#TqZM`M(QwF&I5Cu)$do@ z7Y&#K$uZcg+>#QPM29KmEL{^6qEOCsyBY-|KyIIY&MSK=zZ%8GIs?D-!A;NnU^ zdhdAB^*yVeMfZVv+_>ZsGaoK(?E^sQ2T@@qw_bLWugh8igxBuqb zwBuH@ZqxSTzGv_HcxsA{+c-=(^UO1UoztTVAFf#=0TDOk|2?5j(DwG(`9SB z9Zd1wJ^E1`-0@N@tBS9jIUZk^e(Nkfhs*(~r2i`=*i6f!l(9DMRx6N<$8aaM;LbX7 z0LD*39ZkOSb1%bmQfnWOnmaNMXy`LFMSx~^Pb;*JI_&uIRrvb{dvPiQv7JCT^enWl z9hg&HgePvy0Fh~vq1m^>B_-0Lp_`kcDaxaES5f;mk3>jBo^3~zkDCs09Q@^vIueLu z={$YGsi!U^P`=^>Xyc|$=xA$`EH5va!YpbqR22o!rKO1U8QzsNyf;%VDMxWaLQ)pG ztfr~DW~VIp^`p%#m@=dYe~RzJ_g;7l?MrSzr_V(aqoAC#EbQXaFYIIW*w}!gcmIhE z_gyIi`PBL&=$OE3-aRPygwRgkv9YxmGj4kpKJt^keAY~S`RviQisFf7t9BYCc~^=d8JN=FFqV_dEBE z@2zi;vd_-;c8OK&_NWff8337uF#3+`wjDCp94Ll}C6Xd_oL4IHs`%CUBXFeq1+3V5 z6q}T492hUWE2R{QC4t|`vv$$0<{zym6Hd& z=k5Ekvn7?~O>t}`?Vz~$g49dW>(6ek$-mKDbn9oxbCzAR4Eaa38FnvpyAnJzxVe2t z@;x@+>!JJO=yn2qjI(}6*01aK?!~rUdr(vmkV*`g#y+cZJZTKjxG|$;hH_DIri6zZ z9c!|1#2x(kM;nceeNy|BZz6F3d!#FZ29k)ahr950LofEHYH{K4Be?V8*|yE#>)^F; z{w>QNenr0f@TkeGHj7BThSO=yY)WR>0?o7+S~~5p6%PAh+l(|Kf4}XcgOSUlk=qM* zAP{l@$?cgdZEJbw7Vn4Atx_5Dhwa+A3%l#;&_?d`xKX1}URom0v(sP=6n|Dyq{!g) z;CzvFt&%?B4w@uM1Fh{VjzuKrVNC@747O{$6`;AT3->+wA&VxOhL2@Cr=-$GGcxO% zk88-CkLiB+sarppni{C2=UAnoPU*@yTFg_i^{Ap2kn2}CY0|`&@#Ds3@yaGmUfHK# zcnQ_y-VUj(5PM^JJwg?iG8*Gs*T^b{`(!x*7|1U2-}2^4E{3yQan0P5a`7=$a4e2PZIRyTO%I~Ah|Pe0AQ>i)JJNjkMywOpc7K*B+pr$ zPdC?G_UUu4BVY;*lHZgt1+3e&S?ZZA1~cpPq!Tnd38sWvc7V%%xCVh$ zWM;jO0b&Dwh`{i0)wvO`y`PbE^s^nhRirkcN7X+!b;2ZLuz-9NRVXa?yyR)9I=XSu znSPJ%^ZCsT!LKqrtt!{do;l;1L@GTy$?aZErscyFbMWACoWKJc@cSh=W%b2&fV+uu z1)}vjf8O}<;|Z896c!el8S1pS;q`}G5v!`@!N19n3ZuiP=H#SObo+i*eN>(l$;WbS zkC$5iC@Sk%Qqd0(Sw%A_g)|4*ZyrjzCORK5PF>tia~Im>HKWE|me6pO1rAd#Bq#=n zweFFEgw8EnvaXB!pzt0NZidW-ZJZFb$hVq%G$coq^8|lHvs)+S0;1$BF6Hc0%Dw+d zz{rJ5zo-W&zh{ud@i8#GoIm-zTd&! zi~Jd$a$nm%^laS)Pbw;d&n`HtEbc2Js;*)BulI zldG$->d*(`CC@r(fE(zRPW^Ej)a#5{ub0sM1sz3W797=aRx*tkJ-^g=%{Vp1(SbVm z9IPRC9RFVc>b?WclB&x4U-feL>pb1l-IMbSFeHH?35XzwC@SI_78L_)TGz1auHiF% z?k;9`m!G=kRb)XW$P&gukYRwyGt4kd&OO~dopZlj^__F>z4hv)o&dUj4{ECVg?jaF z-Tyu3f1;Jsj(=C2LTYak4u!lps(P6D+sT=IPV3fw9h-D+{aViP>)($0TQ=9XcMIx5 zIYs4({AG%YOBR*gperVn-7I;X_gQ^DX-eYzY_7uh`K$FzwdH&TDjnak>+PMAW8+SM z9`{Pey1T$U`tW7+*~`@4Jx0&}2fhAS{(b7)-d$1S(_)i^XsNpSI(^6*#OE?lK_Nf0)vT8thiFMC9Zu~b`f+e@TJK`}>H|Ly9M zLoVEc8j7~cMC{WAyD@uwO=&S}5zsK?Y?Ubp0 zV3nludn3fjzkfmCC<_erqs`ASE_Cf)^PI-69tKy(a+#_FqWQd>A_wa=QJH=RW~Qg)+s_9#S}o0^|tgd>3jiL;p#i+ zcichm`7GV7fA#LD0*wy<>X<2*>*&Ar+;;sSG5Sft>nJ)8O3qul_owaWs~1`>{-U7~ zEYvG~=$9_K2K%n5y<>{-oPy+Vz1QGcdJ?KLD(S&0p6i9L+c<&b(BnImz2m23W&3XWh2=`!f&95lyg%+e~Adetq^G2By>9BT1!JpGAR zE?&9q()nDtN}CDpmX{u`RaxZ<_)lnAMX$TUn%y#z0{)e)j1;kbPdJvDa@KS@cpDwQ zo!+p5=dG<*OP)T%yEZCa->;6?N}ZKa;0Y|GG2nx+z8AKhpnC7GAsY^;B`1}XB%m+T zef=_hb_u;Azj0y4m?mHvbLr4Y_3&(Z5t+l)8TWWL&vRq$QL#k*TH9En=teP5z?ea*~5@imt-s zT8(+;?yly(anmGwNda#Ko;r9+FEGaE-VJ z*Y3dgCP%%3c?<$eS0pzjpj_XiQsZyy&KyPMhkbvGI%MaGyKBm6dh401V-$0!std{w znH(AC@7k;h_$Blu>jV&*N67P@W>H*dl%Fyj`OL(7|PPh`r?7MXMl zOt{{AEZ=KZ>3Q=e+nZ?rAip-Np&D;nR;QinYLYb6R3jP*A(Q0r$t-@dY7>6>$88Fo z969VlO8~pjX=6%1TPWaot`*38tIYS<>Kvj>+3=)?sitXplg!cTmMf8e&ALTq+7c75Tfv-L!G!Dehwz(m|8mT=R=HTA0&wU7kOGb#KyrD2 z*5N!>8562q0mpWyK4}9rv%n!<+Vc)s~ec$|ujb`q(4MR$ir2AaT9Fm1E6F zbw$Fxt~&C0S5{$5n+`4QJ5YIwS&a7$2|%=u;yn82`SSh@w-6j8#d0Hes) z;r=B9qYxZ*qfQ6Fcq$P)T2KoV#^+}CNjQ~z4IZ#1rl)T5%uUlmtg7_$H z|H0>8*iwTl<~B$^C1)E4bnCi60Wh@0%c&xutqoPE3KKw56Ub(A_`*GZ#FN_(=KTU% zO1P%`wdooJ9m8NNN#mCq@B%XfqH~HzTF#LV-;x?Tw&n3aB|Y?BFL%@P&m50T{&Rs zl1~3=%W=Np`pCAK1|?)%_=#O=u_{N#{dR4)h;vwfnU<=G62ptb@h7vHPz6t|Qfic& zE94yh(2?9JNRE6Mi7MKW)1ehPQ=|M8RVqhI3TH~5k(UtqJzvPd`Z7N^msF=HF^!+WxM=T5?E@SRJ6tInY)vgR^H&Lo@)1njV`-;=@0B6uY_x zy~)N9RT4x4!&r}WY?682a2oZz-XSmRh-!i41a+6ViEJ zt4LoUDe`~)DwON*30F~SRFD|O9Hg8&W!e+y)#}eBH%?iVI$bhu5=08gxTE8z^1$$O zj$E!-ohl;Z5?^#;&T%TdBU=a%o3^hKI6lLFx75ecSW|^iBqkgpAZk-k`gbs|U@MMo z7dqff^ttC%cU9pRqbjQOgp5SU2T0GqeBpFSYvc5W{?Q5i&5s_#k^V95XUMBlUNXP- zZ&FAV0$wzor6s&Y;I&oeq_1x-lr+@g@^ssk6yA-zS$z zOMBPXo;6bd!q0W|j}Sn9kDjrFUir24Dxd?)wA2t2u$C~koo~HovtNXzgO*~7kZUmM zup7R*bXrwvibrf+*g^R-cw(kgIeA|sHHLwXE;HHxm2SXiPmhedWjM!Q4jF$*z&I5$ z?iQ<5Mp{&m9K|Y?<5Q_h0CEasd@3SN+cMfdoK?gccC=dBxZ9x!@rN++hp_aYR3_Dc z%t=QTEmEtwj~f}iUTChTjJuvq6W6^qolObYvt z58=Z<{{u!7*%AwtYt$$cjlc!~D-RmWGNxP|<7DNpFOyN@7?qmYT5`CGlpFQ6p7gw` zpoI{ZuM!Pz(PdVL6veUNDY*N!~GMI z@s|#aGGsh2HKrirP7%*IMKbOf--c(xbqhdok}B2f=(&gaxZfopaGC5t1UcF}1dJ>f zmA693SU~{?dv)11meUPX9GV=NtV(sxr85GM3}-S$su7qR(QzoOZiS@8kxS=s>2H}2 z9J=o)AO`eg4C>W7D91SjIp>go7I4xCkR)l3+qm_TMTl^yI!Tb{_IKk8_pe9BMZRvj zod6gj%Y(#AGhjHN5=p3IUFwwFiOd|-vL;GjQfC*J7vk?lyL$U zlJOHHH@$=QzvAOwhX6n-k`sv17Dk39ahfJ?#tjNEAlSLUc7Dm%)<3?Ajo1yKE@|$`J|jhZm3Hj>ont54vr6g`$OX=)W0q+|`7E5~&J# zW?q&Q+y;svk)#2MhXbgM+ENOht!&YNl5S&kfmHz)?NQZyfh7kQvg2-vSux2wBtdLE zyI}{O-m=R~^c!gK9{c~1jK6HasA#DwQL8GcRC#Mv&MBAmSFBQ<78$>tw*Tbgu3QwE zP>jGpQ;yUnmI_${Mam5z%>_>d5W2P?pI_Q~<)i>cj%HXUIZ1>xAyswJG!rd*AIBMX zpHvQE&~WNLciY$(Uy8oDmm|@01X6b_7$FrcsT|M=eeIFwOJ`J1PT~lu({@CB*~nu@It~U$CTz5@=Ey5Y1r*3j;;f#OCd>XP?K) zXP!3`Jug9CG8zB#gpE`LhABgH`rs&I!gU?($C!eQmy;Zo%(y2{#y?K`?=UAg=2S`3 z?HsM#xc~zqfD9=wDcTaQnWVP%ktk5J^(dQG>Qb5jkx3_|z=$<%ChB(n9t)C(r8W|0 z<#VkHe>ouDa|hmSf!XMuaVf@+A5p!jiO{9Eh(_ejSy2=O9(pyqK4Ea z21Hmq_qI4ECuvcL(sS+fIs=o{B~h!mftHqV)5A)lFj%;TaLBS0py^tx4M zuHIrM{i|tv5?)GfIj{L&M%c*94vaiFPM3^3zP#}hm~qRhRF0pFf0nj?=1G1eSA|rd znn*PB1pl5Vf)*MIr={Gg_)~%ZkOSuP&)vcRsZfkMHRw!C_0w2v&(w zS=BGSu{wfCNP!_t`$$l!jpOv)%r9CxJPXEq{w(l?)aaFj86%Sl4PZqM8@;HqjEuo69c2L zh(eL{a8%a@QhUBk$6w&_+@G#SGE_yYa#)CTnkFAhh%`$GQXvvKOD3q0cPMp9EKS)o z0U|^EVNxPunPdk^Le%Vk8Vg2up{1ooz!1_6HjP=DfpOVom&xl~-zBWO9X%6lxaoq0YE{mq@r_kG@a&NxX_#40{34|5lBp4DvD4z%$5MrY4sfr&ah=;#FMXODKxe>i**WoVw)1CJkFo=`T zEgNU`zh6+HA~15&4#av%;4lDjPC&-pGL=Sh#o;3-mK=4oA2tBlnT#W;33ZMpTUM+~ zq)*cXNaRRWAW&p6qSiML^6dmk=QKph%E7l5CNk8*k&x7 z*p1fKR{ORkdh$P0VP2qc1|o>43Z0G)#KW87O1Q|QnCJR-9Zda zW`$74!T|*c%`;eug5}1>Y*xbqloq?h(Sz5(%v$$w(Bd$Da zo)Bp675M1xZknu)s7=g45_GNxQm<;lEHQ!tgorlVG9tJ$Xmv0kQX;4mJpwx3Dy`>c zG?4F*pzaN5?75RrhOR?(olA4@WF{vTy)hcwog_i-zUOy_jNeH&= z*p~u~vShqOY7{&E6i{;IImeX*kf->$4gD^9CLIaYa7bOs(amKZk)nyiCf6hb!eI}t zE{^8pW3N23E2&Csdd;Q?5YyVw*tZJ{`Zfuv=4+M8c}0L=3BiEi=ly{27pg8EFMmr7 z#}`0o9&6UDL1$;DJlEOPjSZ}$JR14Ky>;|EdxiGa@VD^#&~LU33|oK&JJv0_2U zaMa2vb1yAM7tf!D6-(!!He!n}Waa)ok~B7AnuN0|Wh8{;gAgui<$2{d585WboTaY{ za|!FZH^$$?dzKE9S+<-h3mKJ80*(cM9F(S*459YMP~$l>HDHx@{?k zID|N>NJ3;>)uTte;~Es{jFu8wLJ%OLjV);G--}sY&q=EkuauJ|G%>_QbQ zpI@(fCd9+GfP=|8OAwEwTPl+G+=a8yM1(v}czdCHRDur~5ImMFDQZFrAORgH$-=|Y zq4<2sVI5bWGl^KPQm4k5bVI2_A|-SqZw5PD(F zWZdOuIeFiQ282k66p?CHnHrkWIJgfpk3AzC!l*$032#VsvC34gmBCbiD1NTEITK3? zQ%s%DzhT1$saVY6=*I{k8&gf#)p{9*j}iyrRXU`>5i|e^_!62-P@}5>V$sC6gs8_z z)sc+>qKWzyi(0XC-b}RDhEYvGIy5w?_=8kmHlR>aDFc;b5}|)Qv$zIEk`B1Fn>1Zx zKyYUn4U8lqsgEOc1rVwQDCeT2GKzb2CsHCDs$2yUu6Mp?^Hv<*zTHTQx6|*r=hVsg z=~Wx42n^P%rvk;Fn2d)A5NX3T9^2E8<0K*22O)rvV7{QJOzfCr=`fk&zN*H#=jh-* zx^cQ)14{@d)f~PNt#3lZ&_T@Vcv?tvIY6+=bm^s+dJ^L00z~nnM7`1ygwM;4wr$Tp zkDWVribIjP$ofPBwoSVPqXLkek{%>QEKSl~6EmeV4_!B}VlgkMW*zAr-9?WRv0T-Fn1L}t z5@H~elTc@NW2UpJ3lOVSEG>FcX}WL3jrcWQxJ1p(3OVl~2{M+-Ah%}+j_=rJB!~jY zpO}nK35*j-jF*p$8~r<1P5W_^*z~{)opf_@V!CvMKPZ(+Bm}L442T4cIg@G?kf;3+ ztTJ(MpXLx^WlALwt!qHj=n>55coyxgEfpn%QJGAW;*$ZyR5|h|dd{>U%s0u&lXC_n z?|1Fmh35$*8S#U3W8GvecC@^b075EOE-TT%Rw$$c7K18o%9nziPZxHi88kZyt3t}$ zYJ4GzgJf~_nX}N|HXVzbt5Ht`WoR<(S;9;)Yo7d*G@;oG&Vb|bPfOPek_NO*((y2p zBl=$?1W$N=jXy)L^^)|Mq?1%ZsgoHogs86J{fP{Q2pCOJH(tZDA2O5To{b05Gm#aOs{q0_9D>1MBSEX+ zWQHvvuIRf;Wm2SFg8LW{85&HEWlAOxtEolPcn8|M)}yVd-kaz==?pOVm{q279Ab*j zPcI1&<@kr+k|j4Nqq6%<)#CTU2-p7iyT_1NBWImV9e5edQ;EX(ALXp#<} ziX{_Vt5`v!VtGVe0fbd7wq{**=1k&TEm+a6S4&k}y)?y+tiT=KRY#<5peDmd)&=SNF z4x)=RXivIVmdC5EsO|%+K+G+aCCgP-EbR;7kn^j~oQ>MXCY;q)gD{DQ-tn}Iz2XoG z7-LzM5JY`6DQ6I*SvoN9U_j7K<6B!}tKZI`kk96nsx?Fsq|Q>I_mZ&XI{LoSYlNyO z0VV9JBGzmJ&P|Nr$Rqa|GX7OM>6cYAy_biKPYDb^7+z*@ETqBNXUO<>e!mqXEUhK{ zJM3|Yv{;!eF}qIYEJ+Y@e2zI$o3ffikgl4`kc6O#!ksFor~A;-M}UZ0(*MYBVKUOf z0HRoBD)vMCDWrqfMaD2}9RdGTpbR*-1Z)DTNA?SJ|u_&5m%tzanU!X0R zk_ME;fM5_XspigZ#XblFia!+~{Nv^~L{#D(9zoY3=(65v>EZXj8`JI+Pd+LAhq*i5 zhOsy{PrDq6V|z#?$tvj)R1!o~EDs>M)wm()J{3!xg>2?E-gE*8A76IH90cQaSV|Iv z`9L=TB&|6HgMwAvu4GQkyHW08&#kDWItnDIYLwpBN93eF0Lkr8`R^)dm4P!v>QvNX zu;>Xby*-o!8BL~Sg4c3!apoX=QUXnSWLQZMB`yAq_MD48dAel0A~1LbDyK@E1{t?d z&=3Lm*j=k7f-1O=eGzFf2ii0^oH=Ld+zKTjTy3$*iPx0XC3es;he%4ULCfrg zXxjK+m=jJ{1jHqmT#A{qSY-;S;%LD?Js^s~;O`bb6(CH|pjF0#J-VitphLR@x7;ZVcoti0z(vTSOxd-DyGs$13H@2mYf7tB~nGZIyoJ>!FGO@ z5VT@sNoC3shX~VTZ<)IYbsO)(S#^*epL~Nk64ufFfUp4K63m%B+v5<$t(K<(#L&qlbP*n9<29lI4kjFV6tg@Jr~OjAhD%{PP*fDri>OP2P9M1_ZN5F>EW z(z(cns?pY5jpuvE(MwW<{T&<>$*zk*0t7q!>Iq~)%a+$n#dcl*htr&lWlMyvi^A@j zlcb6zY4SJFcL$3?L%6X!n{ylGHPx$IR#UqFqeBDe+p!&)!+XqUf)aytl4QIhFgS;x z8~{#2dPF&Gn2(=3I*Nxk?#9mUAz0xmU4AC4iJ_|4Ct{r~OS-(hgpTt?=kgMQ0l|3? zY-M7zYmh$EzF-Mr8}7zDYZ!HPb*LgW%Jfn-j}d4EUbR*0>x>-pgQIJCeA%jGo}211y|q<+JN~g5ne)(Q-;rcSI8mIweZ03Dy_?q|*&|^l zZ>E19I2kft5g431FclcefMYK05AngO{eyUL-HYfPNs>^A5h(J2aJ2|`bRM#o^XwQ2 zp+h&=?8-?(X;PcCbB+`8+ZQZG_160^-{})T_$7eJpkq?afH0G#TpSZi0G=>Baf%;2 z>CZg#OzE-C-*GYzC*4IW@$r)9?NBQ%2<@jNMHn>f_2$qJ?)6@7W#iw<-LB7|>#VD* z*Wk!0N1h%NBRxh(N6|;beBHYBk`p2lWH^kqjaMLdY&QWUrAq^8D;94kk|18JiBhrH zd|NFX1VYp~^qj3&HFSLT!r5?Q)dQnZGQoUoN$z3k{;Yes@7IS-Iau`wD?E5cJ9E~ z#;471xQ#yh^Qp*qMPQ7Ljg@Z!TMCGaX}^|_f4{dMKYMbE_!?McvLi7q9r6~DoVKe= za!#>?(173sf2B4l3Blgh8S|GSzT+XxOLxkOU1DWomFeP(F>l^{sU;gI0s`CpSCeYN z8Fd9elwQB+qKk0ux#uDtkCzNYHhBQazI%`zTZ7Elb6iru>sg$yj)_vX5vJvk&Q;M^2iuQiFwB(DoHA<>+4$50y%(j4&$NoiMkcAbu~vtQQ3(& zLZ4;p6&nLAl}V?Pq-Z~w%7|CJA*jj^NyYYDTGY(JL|Q;nA5=uWf7f>OtXpG#!|k;H zQ8~VGLSU3rqxAEyr~N~G{K&3e{BYGK0YM;IC3^vcS2jkeOj2Bc%f|R6gf4^Qu-TO> z@oANb^Qr@c{#lC{5RYO`;xHPUnzVFKMU%NkEE8z9GR>JgR}<>I+QjO^%9Sf|B16#J>m=&W33WNMHjl5B;E=FJxfs@XI2sUzVae5 zHkrW2jT1`G<96gCn=gF@Cbq;5IlEEF>@`@9@hwNe<`y9?tRRvUo)4efvEo(wQp z{8o?@@1gBy{P*v6bmOOg*g}$lr9+iS3Gupep)yMirlZT&I|2$_yVc28!B8ARsZ7~S z5;>9*jQTkQi0ZvhVAkkfOd~*erd3}E2b1c#42U8Qv3~t}QXAG4s32Eeb(Q2``yT@Y zghR(ajZ|iT!Sj*OY`kLeK~+6m)T9oK?O3W5KfkoF^T&Qkq5k0Ng|qT@i0}d*F!G(H zBxo{ykj7$?RGMzj5*Mnw5%ER8_33Ik41BHy?xf-*cIz3adetWpz3^5wf%SuV3ug)P z-v8j3uq&>-lB8(_!$ZTepoDZLB99lVlq`jw?o8q7x=ZOq2M8cZ$w!BmEL8-MA}bab zLtynvK*Clm$roowAxRK=j^nV>Btb?=y?&Aa5(=tBDPHKTfa&iM5L5jmjRO~H;Cyof z6jNz`h}0>TDD^4<(c>R1Ax21TN@X*`KSHM90!a_H1CNtxK9WkK(c-X}tUNckcPF}^ zd&;a-AEbZ(b4p;as4W7^0Y1Bj-`7O&Ujgzk=?8J2*$N;tDT3qxP?`sQn)A@66!cNFI5gj`9w}j-3rFc0TP_ z(C=^efx{{zFZ>oSW$BTE2d>G*F%ic(1q^zB&9qlZeO&XHeBzr(ulzjSerngn{CJ@YpdAV+q3JHbIhgoFvHh?b|WX+e=bq6zlt3tf?h{^c>I< zB&?l;!8|~`SS;P936C6sY7 zhN$8nreeEgsm|*|SxZXy)CMhy_sS>ylH}y1C$3~fm&Gw(ypTX!sgjwjgt|8n_lU7! zilv8yoTQOTXGz^k!8x!SLtCCRi)kAH<9J12=o@_jZ5#Q9|Mcly`0bjlqAsz7uz4Sh z(P~J*5C@XBG?`jST0-P21iBKgz!9&KN-AljBq0bOb4cvh9$tsp1KT}7_`$&23e6#c zqCczGM}~)S|NZxiN?{(?U3VSMI_s?bDmwUm9O?NK4Pyd!zF85AXE^7IIk%3^ zrMju`V3VSj6xY$Vk}XV+Z$F6ppV^Kq>zyGY){&^EJ~5{dNufiZ z9b1KwsmwWLF)_rN3luY{CL)2k3zwq4b0gY&pU3p+EwXZ`axV%DEN(Bpcm?LqpI-nH zc3|Cm@4aIBG>@BazFAZ&F;_a{*mLw2j7+XH&4#>Qj(%={0zzyi7Y}@l&M|?rW^X6H zvD|xGV%J%u`Wz@wqYBQ6DZl|=lmZGH3K@Q3S6_wL!p90eFtPgyDTiZQ{%Yk`!S}eM zU2xa^0PfLsd9LCI$s4{-(!I`8w;p@!u>w;uhsG>hwoG^m2QH2!k~p|;Ke{_RgqLjW z$>8bg6{LS25edRlQ)vi3N1+tBMxJo_`de^zU={NZpL)drX{-(jKu}wc!Rk639m~kM z*hs@6BiwtWE<*R*3Mea;v{@jsPCstku`x|7Vy?;alJDdAtG={@T2hzd9D2`^LsTji zLNq{t;NyBbD?Se{waTF3oSkms9-~{<@>PF>fbr=PV6er)r$*VEH*db^!V524TTI5^ z_#cm9oJdew@{vQTx`iGvaoCwE9GXk8>6Pv0^A;~befM_E=-Gs}*4C2nZ&s7oTEr$v zzskfUl2s;-5i*aPZn{a{Cn`_24?7OO8p-qv1%NPB@y#TTgccwgT25m21*EeF%EgQbx$E4R zRw8qGaI?Z^2T7gE&~q)eBgP&k;|>FYe&=u^jbvXp2A_O{uk{b99V@Rbt4i@|QpsG) z8v$i;Q&ZF5(MtYd|MPG8{^RH#O<^MAdbN>MC2*xe%_9!cIJg@#x;6+Q^oM`57nqOP z%48&ji3j36JKxyKWFD`2)vItm-9!~Gk-)YCuf$|(vj>O*U}#X(SG^T&_1`Yx0$szO zAnB41@ApsKx~ex2-}qf#wIRNd?s%WqS*sWrQ>tlhWnhHczlKoD$GrFF_CAi(4`1W; zvbTMG?d_$n1ul3Wtg6PMaB|ltmFPd3yw2M1!`<_!SFTh5zwC90zvnju!kB#5wr$(+ zhd=zm`))S*vM)!fdn8jdu4!}~>%ftN2Sjb%+&zia(F?P8m@_JR00h%eN{$FrmX zo%iE&1Pld`Fz14hO4A$WS+@U#{T)K0??t^5oOj?CqhDg#cbYOPh7U2*kgqnd63Wp_h z6HhePAH#$Cq+~Cg(L1E`7ZZSBFv~b))70R67id}%%;xz?U zsL3z2z)B33f}+?wT+;?z^Ce)~VxL#s^h?j1gWcZUaGv-Iobf)7_t|qULCx)t(f2Dg zi!D^oJo8N6fH7kx7B5~T&Q{~W=Xk7r`}PqBAqmnofoEc`All@3U;Mlrh_Kgt9uMPN`Z%WN! z2g7NV_|(iAzN`9=2+wdhGmth?saTx~(p)_F*aJxPbH^z6T-vs!UU;;;RfUA2p8XCmg&p6|Zeu*$Sx!Ge+~SKc#+_{A@N;Z@YQ z{`%`>B`fzBn_P>%oo^_DIvb+I>-Dzyx$>~4%C?jxX%maOW<31Q1- ztw(kAqEqG@6;&u7K&qDQfE`&-szT{=**>s&z$-Th^R5K0`ivxbDd}N4Ir)k(Bu3$` z`aj6^?DC|D-F7Z&KfDTdTv_nglEoG+;}c=Y%)yzQG&N5AgL%mCKtJ~F-6JG@D*1z(};sCnKu(P?K3di&?QtuSx>F6uNQ|CKiKkR%Fq!ji2B8k zjh#QmeLHW*ocarK+qn-_`5JP{@a4d>YrFBIxZmLD4!*1TXi^x_=au8 zw149;61&ejA>Sw_-A<9Z7MlKl5N`c!UWMBKBvL|00}YTRjO9e#JXb_pV>bIaosf`q#hq>T1=|y<2|v+42KSMRyYe z#+IzX;Zbbs8pSgN5RCQ;vCZd#XbEBk$_&0+G)R7cWMrFG9mc$wEeN;G#K^Q6qJG(4 zTW3YehtrTK-X;zzL}9@;_F)WXh;Wl6iMmIQoZ0g3f*&$8{s0d3zKeeMc)|VfOAwDRqo7+@!Gh-KzvHp1v1G;*KL5rqk?FX- z#M)H?43u&TWx8EV(qdbo3iXvXSQC9GR-vZwvU^gBB!PR~zp9$JUYFf`Zn+poQe$vd zeh$I5Gg1Af?;_ANui%`;{DY$gI0BeK!4a;L9P!NN-ozv=W-18t`OZ;1mL>@}HlQYV zpbS8)B2j))0107sYZGc_&PJ+bro>teWmQI}MBr+NpANWD0f)p>;=mxwYJJcl!$Zbb(oc0 z@_tgM`d9r9xyf-pe;d8wxL-X;J^xT;V4SSFbb{CZmY(`|7P~BkI4acSMU;~ktZqH@ zkh&<2Z2iCoKHy!{s)L`$(<~{9d=jW&0Seo3ynX2}v7q7g1+VoE--(X?kE?W%GL|I& z{qe^&`M1R+HEOG_&U>bJE`ysnTy_$>6|7RB=1(9p<6rVB)PdDVegCTRR;Ve|z7jCF zo`JN`XTpPa)AtZr{ssi=+A2p1)8y~?>}Sz)=bf^`E?u<>_17xvC0A|Vx^=5}f3BtH zdC_CFSiI=OKgJU&nZ&8d2~mgnwe81-a1hNnnh2{&ezE}ZevpcyRiOdO|G@nTn@GiK zu8*T;)@)#UyLi9HNE*~}e3fmA{pED3cn$*+flE?k>w1hFJp6*~Jc`HiK_i@SDXU|jp^?W8YSAP-nkp3@y z2`K^st6kNXUyfyKlu4O$Mee)rKF?~!@oRifO+`iF9JGy1CXq~~r5!*zl@w616{{y{ zWAmVey(6~1;Bo-*lfk^7P?SI|36%9pt5^h(hM0|-SOm4RXCu%&UGm3y>EV!dzIn;f z5gb~>QMJw!v|UrF)j(>?1C@bsqRhRM1WAmxNt4aS16EFAu=9>hg#4MMOPAt?8*cE< z@zCCnVPp3X)OguAu`1=3@`Q3ySL* z=C*!49|nH#14#DYjbPO|`U7cXCwCM`wdnNQQ9bwH^Ze)FGnlyZl^!VUGJK*yB`YT( zB6SFH5aFdC(h;zwj~tDECrN=plFEF(;H+6_`P$d=-{HCi_GObcJ4y@I*dvb!I07?f z;Ov73VUbGA#uQ%63^+Jrl2v7{W}Zl8#PY)x*o_4%YvQrEKOymtk&$8aC4e;@3B1ss zRX-%?OSkpkaJK{Tx3-qV(fZm0As? zHs4aBs?6LjoH(`jOmT zx?w|Ko&$__ma0%?%(8xoVYQrr$j#qFV8NA@N%PvZIQHQWBSC7CXX^D0S7h;GG!mci zp7)jT5nw>|xETNa?=f=!{R$kdtyoUru!(fDv+tgJ?(u>W&%1DibYg<9Xtk;?&lapS z#)$N?qiuR)y`%y&mu2a*^Jp)AzjqM3hjl`f9~>rh-zv-l@uY`Quek11R<&6(5~MB` zMx;89_>6XR?%ZWs4V*)t-#%5}ztpDtDg&cZ;e*ov$TPHE#v*idY#gyzv>>U7n>TX& z6Tg2piNLqKgN`M}3vWfLAaP)1?|&wdLcZ}=AMhS}wR zB3JYy(tP}jUqp^m2Yg^C28B7UzUCU#+;WSAP?$k6MG0I}^o@N1M7+lydPq_TLi6U~ ztbO|=hKY+sJn(>0Jvi^49kwP9okL1Ev^%BC+*poMv-q_|ixx@XA|JChao6uw;?rOI z9&+^CoSIg}9}23Nl<}MwTdy=x=YT``KK*=d&=_5acb#=Vk-9TbAHNODj&^B!6) zlC;tHb3j!zq|C7r`3zOWIzxa>5r>EdNSjdA*{d5`FgATLgKEf4B{q@N=%OEExyj@q zD_Zl&})1#g{E521eM$i0 z&!s4Sj6VK2IzRq#q-YYFTkBIgN~A(1PhJS{rg3N zbP#8m_4Thyt~nQOFqwdHQn6+dA2Eqorm`c~z~UYmEJ2EEX6@K>P{KQ;J#0D*D_#RM zh2)p1`yWtanxgAT5+JHW2sYXhVZ!_&UQ>%qohsJt+JVnm(W>vmi4``!l=SNgoZGaq<~;>c>C+F^ZdE8s{E|jBwp04h7*o zzyCy!jFS-1933J3dTb*)=y)RAR|t|~Z?{_*4q{B_%_K2CdFl3o^QW>CcxwN*k##0j zet^ysFd@*E)`KeY1I?ICn__mj?HYJctZyHD#Tt@Q3rmF!>F3?w_y&6JxC8F^IP4-x za5`Wpe#GDWW`vE@@HP8^DbvF$6_a?nmSH0B+?I|1UPMx(_UfzUz2E-!x4nDF@l_oD z!_TL=dZep5y>d^#81WM>pv?iHrdY+?SKfl2Bb~6SIQdOkr!1Y#O;e;rDS18_uiD@mygBo(ho9C4F5%>2QFYXqrk5lXKsSJ$bDuXWpAXjkcKU*f) z92?V~Qa}0TfnmwPuk*%MF@OEsa;lrLqcdo@@e6MZp5h`0mB4dsWFwA_t`!jR@o4&Z ziPQB%7p}(KhRgC+r&J%F-1|)p23z*|1ezjHSb$YD6?JoUH1ka^lgcWTgzk)tqUpTXNKTJ2*BVf` z<2g~C0@d6HL{%5DB@oe;LI>IL6k_o>0_`&}9*U_}$&T|y=oS;D?UEfII9!wiPio!W zC*~OC)Tv5bqe6AJgQ8{-2rAWXWzxpApg0510IFPJWfs#+))_daU>Vnl;%%x2-v9$1 zBYoyITp?SfN6tx;-Wo1=ZsU<(<*h>b&>CeN(NfsETpii!`5@@Oei<0Q@6{^_5DBW~WjS?&+}t+>BoEL@Ahfqq%&OxOtLceKyUr|)jx zwU>T>KA+smS_%+h;tq9HlGQ0404+-sYxaGC(Adey5Cpx+Ijg{oj7 z(-taGkLX$^w{BIXmq{X=$0e8OKJp^5*rBkTj{zgm5zHhqB(;(m1R_M}BbHrL*u0d5?hpPC&Dne`P*;vqa zou|GP5aU!QI>)xi79FFNYQoS1m4t4o8sd=5Xe1&9O6#N~X4L;`)^|2|qi`cW~tGdE;)ob$zp zhDQ-%Rmy^t+398+$kjj3M7Wi5tNfAC!tD}GvAhLelmr%>L9(gL-O|j})w2C)32mfWSy2h{Y%*I;U|sv4e>xHS-h+>CoO;e{EQf^D)3- zHI6qv=B>D@q5r|EVQcGISk!hcE~oEc09Bg_XCzy?PXlN(I!Cw2Hk3H(0VB)heu(?b z(;TPv+G|xABA9BjC?VmPf^VRLMDdSaj-;(kn}56uz~QaHif;so&t9Pc^~yCEhVgC&GzDL}X>NU5c8Z4BWmUFc3KkU&M$ zlEfZF)Ht>7r4czSlbtK3JNb!jnY3EVmlt4O*D9=A0Hl*J*G>hF;)yv0Kn@$;kYaJF zi>}$e6=-ZSg~FoC+owOPxmSAzG}e28}lB{i)N25 zZ&N)OoNa9v;Oy2L@tVc0o|UGosz;OS%uSmxzILr_lN&Y&2|iiAQ4ElBAmQvva0G%O zrIw|u{5g65gKvyDG{k&1xo3}Xp~$>>!ZlW{TBU$Nz~L$+s(pcjL^?~8Jno%`8~^M+ z)a3!f;=<%fnjc(`swOJZ!_=`2=sp?Q6unO8nLeup{WWzuS;_u}GAkGH1q}jA7ym0< zB^-}`s7h5QkQk+5+%K7oOSwPh6r9K+g?jxHk+!bEG5q@3otS^lU*lL)RN7iK(kjtd zZPA2>^l5O?V;C9j#mGo6hKG8vYEK95eRg97Pq%T_1Td{8j#<+ha5;hKLYjbcn&Y@& zfy!Xo_NW0KA_{>(EH4#EIR@84enkV>Fo^~B|z3%4+C#xk)< zUL2p}NiARW5{4gn1k>r-_&&4akGA5BH`MuZJtooFGe9DerhUdi zu-ZnbK8gU{6I=KGkn!X$O_QtzxQJDS5UPv8t*S+uEm^MnN4lELN-eT|Dw18eww91_ zyF|4*p~NWX-JmEYlB{k39V7nbu!iP2 z>66w%QugWZR!Aw97y+k=UTUb~^Kd^0meG?K9q7Su9|5Vi2SK#_koxKP05VGFoUTF3>XW%<9-A{4FZ9%CmXu~(Ht#+Jcbo`$O^j|Ww}lHS zP_P7H9?G4X5?Q)G7UK00(K5JkOm#etfl!s0^JvNZy6JN+-Iq#^^Bh7JI*+6|1t9S% z{+x`&D5uw-s%M;@KVX27BAt>g6alwTVpNj~6rt6GMQfNYo!b@5f^NI{=sMTOHUl~W znZQF@7&sa0SXf^@@53}`!Fj;+d9Y@xfvBQw@&{jL)JWxvr0#9w4}oXSp+cy0QaN!~ zM=y3C8$|zjLT(aUR=6brmwq%qa~7ept-cxyTkB943wfY%bfXs&%FQ6EB7m4)9xO$a z1kH~h2T<15))9c(aVA{{`v5rbQZxds8Zz%;&@hO2W50m$0ZsK_p5s~FUh^8Xz3W{C z`hG$D*518hbsAr{4ilupv8v<;iQG4C2I>PwV*mcKQ4FJ_Bi?*b6=H(k;<#u3VT2m1 zNjgLb5Mcp^O~A;dR9m?SNr$TXkbHv_ekIPq28moKh6H!1b={+M=9P+cJNXH2J6eT0 z2{P^jiDg@-uS%T;89!tka$JqjwhF^wO--bDEQ0=25+U1U+CYgu`aiSxyKpljc;}VN zNfoNYzV1Qn@14ZKkr2l1CRkO|VaHox)sYzC3K3xg5ITneOF+aPI@kiXkVvl+>uKQ{@UotaXsZS{383knABinwE6scAx3yhb6jB^y;0R7!$tVYI6 z>#0;61`-S7cp@dHJ%9L$Qrs2Md+!xz;nK6_l$vqrJlu2m&}1Z|4K}!Yi=O`4)0itpRaiWKU=+(-W0;MXD`DKZeIa6 zo1_VmQ5{MxL-{QAo6B`_)e}gpW*n3kjgSwnb)Zxj;?=fKG@ok?m165Vk zqLOgAf9{dt7O9A=!i~vm;{>#EQR|LtAJ9|}_VEb!S+WGvuebtd5SUB_7_p-HA`tlc z9BCP#B!;mB@&a+7qfhunhFgx&YEwn(l1L2`SpX$zCni>S!2Mv>MH5RDJALESjOb&qcpM!W!tNNKZXF{`Zy7V_miZ)8F(i zJTxpBrV<#)Qi1qCVixykpqtIA7^~rQqf^1CG&@nbph_Ci{KrUEZPuboP&5A$xFdrY zfBI*5{DtjU@R40OXVxs-_0bDtlH}b5P6@deQzl#1bad;{fpHwCu^AjsdM53LnrhVZ zRvp38wg%J(Z48f&$tBgqs|9cj2A=fgIFr&NgQ%*lN4%~cGj(LJ|8=e>#jC$?o&jYv z7#>oVH!i%!TSZT?ALwQw&`}T~NhTB6v9AZAstAJIhn-X@Cfv$`7?627k<5r8rly*} z;sy|lgfT4KLd>q8u^gLioTbu2p0kV0uyz3mEM0uOFrW~p4vb15IY}~pgr2`BN+eg> zK>23A39RFa*SQR-Qqf{0^DZp!{=iRG(e}7V7|sw2(Bz484?LP2%jY!X6^q)jd|^8l z%$$bihB%_(U`4|KPnJ7>zYWhNn^1H13OwAY%-cLhIl3=nw%T%QRwBK118z8X4nBCz za?G1oD>reBZrZ>^N+i;6H|)pS=xl_}xq<)^6n!hr^%g>nh`ixb$Q{^@%$5hR?bsol z_m6$}*@rH{`E%=h(m}QLHH7~6+dJ^+_G1{aTCn`gixI0n7efgGU5Wvt7R%5C&Ffxn z-9>=iIDmn^edz8v06X1He5W4so2v2pv)j;C8}WWWo3J?~od0Gi#Q+Ujd3Dxt{5}3$ zY4^aD1)HWd7xWn{_CMt$25L+y&~rO81`>m)1SC57h>u5z8)Zqa;o{x4wn8!SPG>CA zDjd`hzi6xtC{;?b@PH^u%Z_kN@lW92nO7K7tdbUf(v1Q$Y#|x9y}(jM#vSe3uucyc zCnDp;t9Y@=mUV3w`D~>rTp=wHlet_1A%AwJ277$otzx=uiE|BFZc@TYS|hYVviY`0 zOt_DC_TaZWH&jZTK!gT2LLB0|AHNAVT)G$=4;;rmFO1;)8*ac#b`1r!nDCH%t< zA(@Y`N+S8b4F@r2{(0ET zl42rn(Q?C5ok&2zUw(O8BVKvdEKzN2e@Po#rKhG-Sy2@@Hs~{NT7kFs4B@>${xL>x zco%w|u*Al>(pn-0>#d(c>bKve^N-`+XAjWo=;HHlS|r^@Z~V8X@Rpn3j~Pw%_^%x* zQ&aIPegAxkYHDUq5{RqvmO350D@FnyCuasC^ZpLC^t;A7AHm=Ja;==~)=QS*1DChz z!fUS7c;ywhfp|f@D&PIq1b+H`Hex8qsjfyGMjo=uMex*!@FBT9{8$zfU^XiF5YkkM!ihr)4*k)rGUwy{20jtcA0WE>|XBT(VapU(rjSJW3{uI2gd|(6M@GZaX){np-E+ow6ZslKAlgEctd-th zQ)AtBoW~E{nvWj{O*t8nXWML317U2iQXMMip>6d=)w}XY+(!j?zQLP z(q*&IJ=B2%$9k}S|8ZO_G{e4qaaaqv2}fxcj+fIo(P!7&Qu7LTIS~KN;8iQz7H03yhN? z<3-X#OtujcrAZ>bo~e?f8R_pTS}EcL42OUrs+2!}l__+(2f4x3xcQ>R_}BMbgGo|H z2FDUO+CPGW$A_{1_z({D4r3x0!*HgC2yi_{NxiV5(_uxLbVZE-KJoes@wqo&A~%uE zhq1plS?ABh&F9UKYkcte2k?Wn!^qCKjq8UCK=`L| zNO@@X?a1{%f!xqD_|VUu#$R7{Hoo%KrXm$d=U%9c2$2rOliY7P%jrx#22Dt>YW{H& zb&8wPWOe>EOEtds@q_{d`;LMkMZR^xZz1ZY=mG5`q}Cl{OOztk-z+54ju!)EISLdC zFopj8lPBXZ5g4aP#t-w~Y|@)Zq$I1$vU932hy?a!iDS@el1<6#>`Ro^L1KD9ClZ)m zUoGdJ+gywD=T9$O#Xa+Feia)SJB~vHp0>ubF?(9xjJT++0Y``WNOh~jWY*_lm&Hbh zoO5}f!+kh!ahvaVDo0(sT3rWQXxJoKDQqN4KPX%qMPodSdDE(uf6~gJueTQ)4)tR! zQj2NLEjZB4c1{IOE2H+AjrR&D*n#q!PrnXJ=FgHvqrbmTOs#<;D-!Q-T;7IjmbTzu z9{Vv4MQ=o3ZnlcF*3PUz%d6!_=7yfbUC+Eg3sMN5xM86;b|M*kIl|?Lwi;jczMzk@ z_-!20u3A?Nv84qvX{w>17b4R=lqAU#5wHZc$J^_RqVK)5F6JJ6p(+*r;W+Hfd(pMk zYp!mh<03CLJR`W}C*w+I^2oUF^U8Z_pRitleX4+%>Um$NvZJGH5hL_l5-;UyajAmI z*rCHKY|t(fr5lLKK=lkOhn7i0mBDvhuX~dTSui!4_{O!=#;}4WwgH8?rt8n0hwfv$ z&}6J&PF`}@Rk{*KB#1lj+n_S&^!Xa<>Lk3~RJbtSYp*g!HYXdekgR8mbkV)BgZdmi z96Vumb&_Oin1+5=HGAb^>K5}QmKxR|a=p8yGZ3xmxbTeGa`TP(HK;qUn(v%UXOYaP zhVTr=&s?_zvnC$G;)Y?b&^UDAjX=w_u&UU1)edYrIOP34KhgG^jwMCa(S8?O z7f~(&CWL6GH9<0#FEig*<&?n7p%EmAUxmU!Pim-?=b-fBGhKRl(uYWr^m7ipn0xK7 z!{q2#sto}2`}FJjdGmMS-v65a{U>gucp4Jp6v#M7+0JL@6i*5hhHP@axgZ3WXICqb zTR+!K$E*6_Ue^$zl5-3!UL2aYg zzc*-1fF}q*WW9Zy6K|psBrWw5W%22&k_li}o;wE_=4QfaY7ncc_I?W&H{%(} zjyksZrL?NbT~6OZ>eV;bt-{hJZ^f>j{ID`Wg414w%+a6IaT4ErWDkD*v5S@CjimRc zgMHY3Y!ELT?U!f(p6CpYpdG^E)<)cR9BMvel;UCU!BHMpdWZU)%8x-)2GGyFvj;YDGeL}JD zl2xfG$T&xpT^))CXuhR!SMLxG9O)2J%X+-z z%hN1m2OOKed3>96=!TJAT%vzbuo}}hZ$@jKi(P$Ifw97hv&3L;Y6?gC2JsL7{Tz06 zPvW8rZiF3OiX)`XjWp18)T?04rVv*%--QRBe;mKv$db$^X4a@tz|+A_JNrC19{Ms-B2zEE@1xuDEMx5}WqsBx_4Vht`LAe4iiTfO%CK{A=kkqq!VwJX@DBpT-EK)px#LSd zDxTzd>r-ViUi$e;kH9BC`N`A8M#ZWg`j|aGZ(*IBBSCq!Gf6}|NUZX_`^q!%hBNx{ z${7c-tY#;g-Ob1it^r0jA(%c0JKX~(GpcfRgYj~nE?x4)C4Jk)5Y4deG1B2kl|RtW zt4JKVfz=|aZ@zF55zhcgo)E4*qZvDQJchwcD>BfDG*BySxPBRG+b=^jFowa&C3 zX%)=w-a@N?6hC_Rg$R(8+?5C*-8fyouZF`>xVtQ=h|;;}_%TTZuBQcJ>FfqiB}`=% zx5(;h7*c*gH(yK;x#g(aV*}$@wRZ%~^De^f{=%3!-g14<(LXB8WGuK4JNxK65rs3p z7foaL;iFfzEB4T59qaioU;T0M_sOq|rsbKnfG=bTRh{5W2F;oPY>ruca{ zhKf1TfB$|fCbO1E3^vgQO(GdAuYw>?+n#7G5=^>beULS2%NGveo8o0M6s@9s6RTuj z{$JqpZ+rF2D={kNaQKcD`6kgnW`fodNknON6OhmVv3GMuQypeD*W=2w9Ive|gU1vn z;K{-k8BX&!(mzVuI1crW;1Es9f$KrA^Ah~`+Ku?PKORH6^;TG+xKZ&jmZcll_y$aCdjn>XM2h1$t+0pi z-n$RT1mjh@t)&ff=3R)!3ogU6y}&?^>-j}Yq;K}{W@I)!jHPYU@WWeQAwqF+%VK=w z?xzrJn~NjC8pL&oJnw6+ehv2Z9mnL+Lv&sH(cD;t^A|SD=MPY`c9D8`JS{dzIgy4pX%YHxFmi`rIT?O_gg z;k@s-I4i>ew;-U?e@(>_V{~K$LrF)gPyuN?X)0AhJl#3*c#lQn7-Z7zy1%t-=Re^X zi<03HwyOE;I7KRy-(sazEv-7`J>&3HslptNDHeUMWc^Yf<*JKtm_F@$x#IOBk3L3( zaIr`UfAw?Tvq{(dZ9Z=jnq*}olIhvW9i`jnOx}Z!KlwxJCrEAT8lIHZbwNw5YKvRW zil&br-gXSDUObLXBj+Gjb8czwsCI!{cA2!ee2j%1$aSv~$H_O|ej%=3KFu2!237A!0#EMj#KYS= z(a?Gh7A&|JFCMqBNw-;dMz$h*{2_#C;ac;RH%kb~|EuoWV&gcg@R?c1*Y(=#*ohs- zj-4j8laK~NRgy-Osx%Ua7AXSWN?$6F5F$Jj2`W_r)CZ7SUO?>w^dclAKxvZ(aVbTl zNNtI7ZD~?Ra%$Ca9NTexiS6~S*SkAE=ld_S|IE&AoRCX#G@03%-JRXp|C@8Z^Plsb zpiAlbK*56IB?K?doIOYTpFbjrcTAS9R;k}gmeJ;=F!N${9SzsFV9@`C-|G=!=|qLM zO&z+e2vYgDFapoT=UW<6>4VSQI$%@)#|*ENhYlX3p59(rX8=-WYO>ARfFY)V64Q+_ zWb&U@8o}HLX{q_}Y;=jdPUx{JASzB|2`!9^`wPrEh^&;v;nDQ>Q-chWOLY2jHBC4> z*xzQCp{g!W!|L-m$Lb>KWyzg7M%$_f=o|NLpa=TeWdK0Bjiz4O^sMIh!d>~fKfgz> zQxB!L?9`xBVbNyr4+dEJ-6QnTyQ)vcLt8s(|HIoTQOhK}wp!jL5wbl!GE0ZwzepXs z_tIjrm);p?P-N7+h)k8|wKp?Lxes2FX6);`w$n5F)I7$~^AmLFmVWeKck68U-p${)^pF)%N&HTRQ03$L=p7-nP{+5lD3Bh1GxK$iL|qht9}6Db#w$ z935rxlv;V7um4~ZDjmfX|ITef4`ksFWFrC>l)xz&>|W_{f1lq|T7$wmmVWK0w-y*> zz=7%6(Q^7x$4{PO_bNlF#WXe4*HN5ZtktVqHx?`>ih1T)X z!XW8puW+r$JYxKkjF16TxE||!x~Y0~8x5t1K4fl_(zEBHPy|L{cz|-J4oFk>jIF{jqwS;;IKI4mj_#3@?^pdK(h~XNza`FiL2&w#oEnTK=q=T0UU%JP4%fbV^xSt{b zWA>G|D#hN?IF^3(C$|q6VUSqc4ZNVhVk6eP^z!oLwM5;Zl8%UsoOPCcH)^P%Ax`xT z^)ecR$s*}@dMYQ&bo+^#khBLbOudxa;io}sH>aaNj?R8{Ls7S|g$ie%n#o5qV;*xI z-_JAq`yQpC^cqFdksLYjB7vYi-mGT@tPlcNifPwu#eC~Jj;aILHvZsRv z9=laTtz9Ovx19&+*`Ux{aqx&OY zd%(J&KZpVrA45a$b%<{D_xG>UK>AT7Ogv4TH0D$74Ya*|qsrNzJWQtUZ^}K-Sw`#%<5WN(2e)|v7q%+Wlnw_Ottq+CxIzVK20bYk$U?X&3+%lDdQr?;b zEQ+HFah4g3ogE$0WyHHoT%KSqkcrH4EvhOqVV7mRdAgd((^P7i<}%B)xa`UBEy!~X z-_;X!RkVBSMq1yRpt@=`8CWib2j69Aa-RM(GELL$QcYaV&sU&73F zfn7VPMj~7?6^-d^mX@QA|=8zu0t^gOz8Ry0LS(6N@Q(rUJlYEa~WtOVV_X|fhLrxeUO=}uHy%|jKG1N zTZWt{fB+!H8s`DIg{6~HMSL8B1%|&wUFV8I+17C+7ba?A)Kptfq&YWuo6H$wE6@Zj zTgy7ylAKb-L<3`da)#+kPLA)YST!vrl9Xz0gB#`h$O>10E`uo z@fBHuYq?qFtWMPVZV)K?ItO!aFlDRnX*qr0f`HVB=W42GcdsX5bz+stL0kF%9lUcp zukU$q&+hFEkZw=w@R}%BajnSy`N2V%d0Q<3v`UtMHZ;^pQg38zOa=kSFD#S^ZyOmK za}3r7?w}H;ZVy-?xOT8khDQLT=!^uBI9secY%Ppr4xTeSHmwF~qJ>f&UAP|qg6m|z;e zsEe(B1SKkb0rR*>-(M60ev z#%~xL6u8@IYvCGDC=>1q9}NM^L6&t014H=kmeB3X^deLmwGwq#Q~ScAjutQwdmrWX zn>LCCl`OTqZ02PXV_;LEt@kblOGi%7S21ZQ3mYYX9C~lUY&TMUW{%uETb@FeR(Z=* z>nu?Xf1Y@}AR}{d#ZbnI)&NHbhAG#xLFYx$E?Lp(gqv(S{`avhf*iI1U<5gbU32lj zlkqzYjQ?{o9s!P`&ucP3RVk$jpa|cBP{>VkBQ1v(5Di%lxpvKPQTo2Z5rKG$2yOU4 z(ekzt$@)ut>Px+xcNPFFlKi_1z2-UYze00suljR&o2a!-IURik$kY z=lL@1*K_G)S225zKV*F~Asi9dS0v+BqIdup*GtBOf(Ya|pA2B!#8v|<2FPtD<9=H( zOQRy>Qi%{57Xi>1fY_G9{P;0jZ`BLAR3Ym?RH}UH7vT_@ z_xmS{c&)LDB6KV`7=jm5Xiv!}<5nAPn`a28c!jTvjKjtAN_j@PzyAUcb`U`tbeR$W O0000 + + + Debug + AnyCPU + 9.0.30729 + 2.0 + {D5C51BDE-68E5-42BC-B648-DB9CCF044703} + WinExe + Eco2Ar.My.MyApplication + Eco2Ar + Eco2Ar + WindowsForms + LocalIntranet + false + false + false + + + 283B51AD9210178E1628176E6D96B5102FED9775 + ArinWareT4_1_TemporaryKey.pfx + false + true + Off + + + + + 3.5 + My Project\app.manifest + 002.ico + v4.0 + + ftp://tindevil.com/www/mynetapp/t4/ + true + Web + true + Foreground + 7 + Days + false + false + true + http://tindevil.com/mynetapp/t4/ + http://tindevil.com + Energy%28Test Version%29 + Arinware + true + index.htm + 33 + 1.0.0.%2a + false + true + + + true + full + true + true + c:\eco2\debug_2016\ + + + 41999,42016,42017,42018,42019,42020,42021,42022,42032,42036,42353,42354,42355 + x86 + + + + + Full + false + true + true + c:\eco2\debug_2016\ + + + 41999,42016,42017,42018,42019,42020,42021,42022,42032,42036,42353,42354,42355 + true + x86 + + + MDI=true + + + + True + + + True + + + True + + + True + + + True + + + True + + + True + + + False + ..\Interop.Excel.dll + + + False + ..\Interop.VBIDE.dll + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + True + True + DS.xsd + + + DS.xsd + + + True + True + DS2.xsd + + + Frm_import.vb + + + Form + + + frm_monuse.vb + + + Form + + + Frm_Export.vb + + + Form + + + Frm_Upload.vb + + + Form + + + Report_설계개선.vb + + + Form + + + Frm_History.vb + + + Form + + + + YkCtl.vb + + + UserControl + + + Frm_DisplayGubun.vb + + + Form + + + Frm_Filter.vb + + + Form + + + Frm_Work.vb + + + Form + + + Report_Total.vb + + + Form + + + Frm_v20091231_ResultMon.vb + + + Form + + + Frm_v20091231_ResultMax.vb + + + Form + + + Frm_v20091231_buha.vb + + + Form + + + Frm_RepResult_Admin.vb + + + Form + + + Report_그래프.vb + + + Form + + + Frm_Desc.vb + + + Form + + + Report_Graph_auth.vb + + + Form + + + Frm_nBunbae.vb + + + Form + + + Frm_Warning.vb + + + Form + + + Frm_Calc.vb + + + Form + + + Frm_YK.vb + + + Form + + + Report_pyonga.vb + + + Form + + + + True + True + DSR.xsd + + + DSR.xsd + + + + + + + + + + Frm_Intro.vb + + + Form + + + CForm.vb + + + Form + + + + Form + + + MdiMain.vb + Form + + + + True + Application.myapp + + + True + True + Resources.resx + + + True + Settings.settings + True + + + Frm_v20091231_profile.vb + + + Form + + + Frm_Zone.vb + + + Form + + + Frm_kongjo.vb + + + Form + + + Frm_kongkub.vb + + + Form + + + Frm_Nanbang.vb + + + Form + + + Frm_NaengBang.vb + + + Form + + + Frm_Bunbae.vb + + + Form + + + Frm_New.vb + + + Form + + + Frm_v20091231_Myoun.vb + + + Form + + + Frm_Common.vb + + + Form + + + Frm_v20091231_Weather.vb + + + Form + + + Frm_About.vb + + + Form + + + ArinDv.vb + + + Component + + + MyCmb.vb + + + Component + + + MyTb.vb + + + Component + + + Frm_FileInfo.vb + + + Form + + + + + Frm_DisplayGubun.vb + + + Frm_Filter.vb + + + Frm_import.vb + + + Frm_Work.vb + Designer + + + frm_monuse.vb + Designer + + + Frm_Export.vb + + + Frm_Upload.vb + + + + Designer + Report_Total.vb + + + Frm_v20091231_ResultMon.vb + Designer + + + Frm_v20091231_ResultMax.vb + Designer + + + Frm_v20091231_buha.vb + Designer + + + Frm_RepResult_Admin.vb + Designer + + + Report_그래프.vb + Designer + + + + Frm_Desc.vb + Designer + + + + Designer + Frm_Intro.vb + + + Report_Graph_auth.vb + Designer + + + + Frm_nBunbae.vb + Designer + + + Frm_Warning.vb + Designer + + + Frm_Calc.vb + Designer + + + Frm_YK.vb + Designer + + + Report_pyonga.vb + Designer + + + Report_설계개선.vb + Designer + + + + Frm_History.vb + + + CForm.vb + + + + Designer + MdiMain.vb + + + VbMyResourcesResXFileCodeGenerator + Resources.Designer.vb + My.Resources + Designer + + + Frm_v20091231_profile.vb + Designer + + + Frm_Zone.vb + Designer + + + Frm_kongjo.vb + Designer + + + Frm_kongkub.vb + Designer + + + Frm_Nanbang.vb + Designer + + + Frm_NaengBang.vb + Designer + + + Frm_Bunbae.vb + Designer + + + Frm_New.vb + Designer + + + Frm_v20091231_Myoun.vb + Designer + + + Frm_Common.vb + Designer + + + Frm_v20091231_Weather.vb + Designer + + + Designer + Frm_About.vb + + + Frm_FileInfo.vb + Designer + + + + + + DS.xsd + + + Designer + MSDataSetGenerator + DS.Designer.vb + + + DS.xsd + + + DS2.xsd + + + Designer + MSDataSetGenerator + DS2.Designer.vb + + + DS2.xsd + + + PreserveNewest + + + MyApplicationCodeGenerator + Application.Designer.vb + + + SettingsSingleFileGenerator + My + Settings.Designer.vb + + + + + PreserveNewest + + + PreserveNewest + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + PreserveNewest + + + + DSR.xsd + + + Designer + MSDataSetGenerator + DSR.Designer.vb + + + DSR.xsd + + + + + + False + .NET Framework 3.5 SP1 Client Profile + false + + + False + .NET Framework 2.0%28x86%29 + true + + + False + .NET Framework 3.0%28x86%29 + false + + + False + .NET Framework 3.5 + false + + + False + .NET Framework 3.5 SP1 + false + + + + + + + + + + + + + PreserveNewest + + + + + + + + + + + PreserveNewest + + + + PreserveNewest + + + PreserveNewest + + + + + + + + False + + + + + Include + True + Assembly + + + False + + + + + Include + True + Assembly + + + + + {8B6E4D7F-B484-471A-A419-2FE3451D26A3} + ArinLogin + + + {e9e16a98-8f8d-4848-a27e-4571c184fb1a} + ArinLog + + + {F0FB4304-F995-446A-99B7-0896A5E07A72} + ArinNet + + + {2AF28E8C-84F1-4D56-9592-3B0EBDE8DF14} + CEnergy + + + + + + \ No newline at end of file diff --git a/ArinWarev1/ECO2_2016.vbproj.user b/ArinWarev1/ECO2_2016.vbproj.user new file mode 100644 index 0000000..986139e --- /dev/null +++ b/ArinWarev1/ECO2_2016.vbproj.user @@ -0,0 +1,25 @@ + + + + + + + + ftp://tindevil.com/www/mynetapp/t4/|ftp://tindevil.com/public_html/mynetapp/t4/|ftp://tindevil.com/public_html/mynetapp/|publish\ + http://tindevil.com/mynetapp/t4/|http://tindevil.com/mynetapp/ + http://tindevil.com + + + + + ko-KR + false + + + ProjectFiles + + + + + + \ No newline at end of file diff --git a/ArinWarev1/Forms/Frm_About.Designer.vb b/ArinWarev1/Forms/Frm_About.Designer.vb new file mode 100644 index 0000000..68bccd5 --- /dev/null +++ b/ArinWarev1/Forms/Frm_About.Designer.vb @@ -0,0 +1,133 @@ + _ +Partial Class Frm_About + Inherits CForm + + 'Form은 Dispose를 재정의하여 구성 요소 목록을 정리합니다. + _ + Protected Overrides Sub Dispose(ByVal disposing As Boolean) + Try + If disposing AndAlso components IsNot Nothing Then + components.Dispose() + End If + Finally + MyBase.Dispose(disposing) + End Try + End Sub + + 'Windows Form 디자이너에 필요합니다. + Private components As System.ComponentModel.IContainer + + '참고: 다음 프로시저는 Windows Form 디자이너에 필요합니다. + '수정하려면 Windows Form 디자이너를 사용하십시오. + '코드 편집기를 사용하여 수정하지 마십시오. + _ + Private Sub InitializeComponent() + Me.Label6 = New System.Windows.Forms.Label() + Me.Label1 = New System.Windows.Forms.Label() + Me.Label2 = New System.Windows.Forms.Label() + Me.Label3 = New System.Windows.Forms.Label() + Me.Label5 = New System.Windows.Forms.Label() + Me.PictureBox1 = New System.Windows.Forms.PictureBox() + CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit() + Me.SuspendLayout() + ' + 'Label6 + ' + Me.Label6.AutoSize = True + Me.Label6.Font = New System.Drawing.Font("나눔고딕", 10.0!, System.Drawing.FontStyle.Bold) + Me.Label6.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Me.Label6.Location = New System.Drawing.Point(16, 19) + Me.Label6.Name = "Label6" + Me.Label6.Size = New System.Drawing.Size(101, 16) + Me.Label6.TabIndex = 3 + Me.Label6.Text = "[ECO2 만든 이]" + ' + 'Label1 + ' + Me.Label1.AutoSize = True + Me.Label1.BackColor = System.Drawing.Color.Transparent + Me.Label1.Font = New System.Drawing.Font("나눔고딕", 8.999999!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.Label1.Location = New System.Drawing.Point(16, 53) + Me.Label1.Name = "Label1" + Me.Label1.Size = New System.Drawing.Size(113, 14) + Me.Label1.TabIndex = 0 + Me.Label1.Text = "Main Coder(Y.K.H)" + ' + 'Label2 + ' + Me.Label2.AutoSize = True + Me.Label2.BackColor = System.Drawing.Color.Transparent + Me.Label2.Font = New System.Drawing.Font("나눔고딕", 8.999999!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.Label2.Location = New System.Drawing.Point(16, 74) + Me.Label2.Name = "Label2" + Me.Label2.Size = New System.Drawing.Size(95, 14) + Me.Label2.TabIndex = 1 + Me.Label2.Text = "Sub Coder(Arin)" + ' + 'Label3 + ' + Me.Label3.AutoSize = True + Me.Label3.BackColor = System.Drawing.Color.Transparent + Me.Label3.Font = New System.Drawing.Font("나눔고딕", 8.999999!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.Label3.Location = New System.Drawing.Point(16, 94) + Me.Label3.Name = "Label3" + Me.Label3.Size = New System.Drawing.Size(104, 14) + Me.Label3.TabIndex = 1 + Me.Label3.Text = "UI Design(Yoojm)" + ' + 'Label5 + ' + Me.Label5.AutoSize = True + Me.Label5.BackColor = System.Drawing.Color.Transparent + Me.Label5.Font = New System.Drawing.Font("나눔고딕", 8.249999!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.Label5.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer)) + Me.Label5.Location = New System.Drawing.Point(8, 120) + Me.Label5.Name = "Label5" + Me.Label5.Size = New System.Drawing.Size(229, 13) + Me.Label5.TabIndex = 1 + Me.Label5.Text = "* 이 프로그램은 나눔고딕에 최적화 되어있습니다" + ' + 'PictureBox1 + ' + Me.PictureBox1.BackColor = System.Drawing.Color.Transparent + Me.PictureBox1.BackgroundImage = Global.Eco2Ar.My.Resources.Resources.ECO2 + Me.PictureBox1.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch + Me.PictureBox1.Location = New System.Drawing.Point(252, 7) + Me.PictureBox1.Name = "PictureBox1" + Me.PictureBox1.Size = New System.Drawing.Size(131, 130) + Me.PictureBox1.TabIndex = 2 + Me.PictureBox1.TabStop = False + ' + 'Frm_About + ' + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.None + Me.ClientSize = New System.Drawing.Size(389, 140) + Me.Controls.Add(Me.Label6) + Me.Controls.Add(Me.Label1) + Me.Controls.Add(Me.Label2) + Me.Controls.Add(Me.PictureBox1) + Me.Controls.Add(Me.Label3) + Me.Controls.Add(Me.Label5) + Me.Font = New System.Drawing.Font("나눔고딕", 8.999999!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.MaximizeBox = False + Me.MinimizeBox = False + Me.Name = "Frm_About" + Me.ShowInTaskbar = False + Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen + Me.Text = "프로그램정보" + CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).EndInit() + Me.ResumeLayout(False) + Me.PerformLayout() + + End Sub + Friend WithEvents Label6 As System.Windows.Forms.Label + Friend WithEvents Label1 As System.Windows.Forms.Label + Friend WithEvents Label2 As System.Windows.Forms.Label + Friend WithEvents Label3 As System.Windows.Forms.Label + Friend WithEvents Label5 As System.Windows.Forms.Label + Friend WithEvents PictureBox1 As System.Windows.Forms.PictureBox + + Private Sub Frm_About_Activated(sender As Object, e As System.EventArgs) Handles Me.Activated + + End Sub +End Class diff --git a/ArinWarev1/Forms/Frm_About.resx b/ArinWarev1/Forms/Frm_About.resx new file mode 100644 index 0000000..19dc0dd --- /dev/null +++ b/ArinWarev1/Forms/Frm_About.resx @@ -0,0 +1,120 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + \ No newline at end of file diff --git a/ArinWarev1/Forms/Frm_About.vb b/ArinWarev1/Forms/Frm_About.vb new file mode 100644 index 0000000..204c1b2 --- /dev/null +++ b/ArinWarev1/Forms/Frm_About.vb @@ -0,0 +1,21 @@ +Public NotInheritable Class Frm_About + + 'TODO: 프로젝트 디자이너에서 "프로젝트" 메뉴의 "속성"을 선택하여 표시된 "응용 프로그램" 탭에서 + ' 이 폼을 응용 프로그램의 시작 화면으로 쉽게 설정할 수 있습니다. + Public Overrides Function AcceptChanged() As Boolean + + End Function + Public Overrides Function RejectChanged() As Boolean + + End Function + Public Overrides Function HasChanged() As Boolean + + End Function + Private Sub Frm_About_Load(sender As Object, e As System.EventArgs) Handles Me.Load + + End Sub + + Private Sub Panel2_Paint(sender As System.Object, e As System.Windows.Forms.PaintEventArgs) + + End Sub +End Class diff --git a/ArinWarev1/Forms/Frm_Calc.Designer.vb b/ArinWarev1/Forms/Frm_Calc.Designer.vb new file mode 100644 index 0000000..78aeb85 --- /dev/null +++ b/ArinWarev1/Forms/Frm_Calc.Designer.vb @@ -0,0 +1,126 @@ + _ +Partial Class Frm_Calc + Inherits CForm + + 'Form은 Dispose를 재정의하여 구성 요소 목록을 정리합니다. + _ + Protected Overrides Sub Dispose(ByVal disposing As Boolean) + Try + If disposing AndAlso components IsNot Nothing Then + components.Dispose() + End If + Finally + MyBase.Dispose(disposing) + End Try + End Sub + + 'Windows Form 디자이너에 필요합니다. + Private components As System.ComponentModel.IContainer + + '참고: 다음 프로시저는 Windows Form 디자이너에 필요합니다. + '수정하려면 Windows Form 디자이너를 사용하십시오. + '코드 편집기를 사용하여 수정하지 마십시오. + _ + Private Sub InitializeComponent() + Me.Button1 = New System.Windows.Forms.Button + Me.Button2 = New System.Windows.Forms.Button + Me.Button3 = New System.Windows.Forms.Button + Me.Label1 = New System.Windows.Forms.Label + Me.Panel1 = New System.Windows.Forms.Panel + Me.Button4 = New System.Windows.Forms.Button + Me.Panel1.SuspendLayout() + Me.SuspendLayout() + ' + 'Button1 + ' + Me.Button1.Location = New System.Drawing.Point(21, 75) + Me.Button1.Name = "Button1" + Me.Button1.Size = New System.Drawing.Size(137, 31) + Me.Button1.TabIndex = 3 + Me.Button1.Text = "요구량" + Me.Button1.UseVisualStyleBackColor = True + ' + 'Button2 + ' + Me.Button2.Location = New System.Drawing.Point(21, 115) + Me.Button2.Name = "Button2" + Me.Button2.Size = New System.Drawing.Size(137, 31) + Me.Button2.TabIndex = 4 + Me.Button2.Text = "소요량" + Me.Button2.UseVisualStyleBackColor = True + ' + 'Button3 + ' + Me.Button3.Location = New System.Drawing.Point(21, 155) + Me.Button3.Name = "Button3" + Me.Button3.Size = New System.Drawing.Size(137, 31) + Me.Button3.TabIndex = 5 + Me.Button3.Text = "요구량+소요량" + Me.Button3.UseVisualStyleBackColor = True + ' + 'Label1 + ' + Me.Label1.AutoSize = True + Me.Label1.Location = New System.Drawing.Point(58, 35) + Me.Label1.Name = "Label1" + Me.Label1.Size = New System.Drawing.Size(64, 17) + Me.Label1.TabIndex = 6 + Me.Label1.Text = "계산방법" + ' + 'Panel1 + ' + Me.Panel1.BackColor = System.Drawing.Color.White + Me.Panel1.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.Panel1.Controls.Add(Me.Button4) + Me.Panel1.Controls.Add(Me.Button1) + Me.Panel1.Controls.Add(Me.Label1) + Me.Panel1.Controls.Add(Me.Button2) + Me.Panel1.Controls.Add(Me.Button3) + Me.Panel1.Dock = System.Windows.Forms.DockStyle.Fill + Me.Panel1.Location = New System.Drawing.Point(0, 0) + Me.Panel1.Name = "Panel1" + Me.Panel1.Size = New System.Drawing.Size(181, 210) + Me.Panel1.TabIndex = 7 + ' + 'Button4 + ' + Me.Button4.BackColor = System.Drawing.Color.Transparent + Me.Button4.Font = New System.Drawing.Font("Arial", 11.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Button4.ForeColor = System.Drawing.Color.Red + Me.Button4.ImageAlign = System.Drawing.ContentAlignment.TopLeft + Me.Button4.Location = New System.Drawing.Point(148, 8) + Me.Button4.Margin = New System.Windows.Forms.Padding(0) + Me.Button4.Name = "Button4" + Me.Button4.Size = New System.Drawing.Size(23, 28) + Me.Button4.TabIndex = 7 + Me.Button4.Text = "x" + Me.Button4.TextAlign = System.Drawing.ContentAlignment.TopLeft + Me.Button4.UseVisualStyleBackColor = True + ' + 'Frm_Calc + ' + Me.AutoScaleDimensions = New System.Drawing.SizeF(9.0!, 17.0!) + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font + Me.BackColor = System.Drawing.SystemColors.AppWorkspace + Me.ClientSize = New System.Drawing.Size(181, 210) + Me.Controls.Add(Me.Panel1) + Me.Font = New System.Drawing.Font("나눔고딕", 11.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.KeyPreview = True + Me.Margin = New System.Windows.Forms.Padding(4) + Me.Name = "Frm_Calc" + Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen + Me.Text = "Frm_Work" + Me.TransparencyKey = System.Drawing.SystemColors.AppWorkspace + Me.Controls.SetChildIndex(Me.Panel1, 0) + Me.Panel1.ResumeLayout(False) + Me.Panel1.PerformLayout() + Me.ResumeLayout(False) + + End Sub + Friend WithEvents Button1 As System.Windows.Forms.Button + Friend WithEvents Button2 As System.Windows.Forms.Button + Friend WithEvents Button3 As System.Windows.Forms.Button + Friend WithEvents Label1 As System.Windows.Forms.Label + Friend WithEvents Panel1 As System.Windows.Forms.Panel + Friend WithEvents Button4 As System.Windows.Forms.Button +End Class diff --git a/ArinWarev1/Forms/Frm_Calc.resx b/ArinWarev1/Forms/Frm_Calc.resx new file mode 100644 index 0000000..1a8657c --- /dev/null +++ b/ArinWarev1/Forms/Frm_Calc.resx @@ -0,0 +1,123 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + 17, 17 + + \ No newline at end of file diff --git a/ArinWarev1/Forms/Frm_Calc.vb b/ArinWarev1/Forms/Frm_Calc.vb new file mode 100644 index 0000000..feb9479 --- /dev/null +++ b/ArinWarev1/Forms/Frm_Calc.vb @@ -0,0 +1,36 @@ +Public Class Frm_Calc + Public Type As Calculator.ECalc + Public Overrides Function AcceptChanged() As Boolean + + End Function + Public Overrides Function RejectChanged() As Boolean + + End Function + Public Overrides Function HasChanged() As Boolean + + End Function + Private Sub Frm_Calc_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown + If e.KeyCode = Keys.Escape Then + Me.DialogResult = Windows.Forms.DialogResult.Cancel + End If + End Sub + + Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click + Type = Calculator.ECalc.REq + Me.DialogResult = Windows.Forms.DialogResult.OK + End Sub + + Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click + Type = Calculator.ECalc.Use + Me.DialogResult = Windows.Forms.DialogResult.OK + End Sub + + Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click + Type = Calculator.ECalc.All + Me.DialogResult = Windows.Forms.DialogResult.OK + End Sub + + Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click + Me.Close() + End Sub +End Class \ No newline at end of file diff --git a/ArinWarev1/Forms/Frm_Common.Designer.vb b/ArinWarev1/Forms/Frm_Common.Designer.vb new file mode 100644 index 0000000..8507fd3 --- /dev/null +++ b/ArinWarev1/Forms/Frm_Common.Designer.vb @@ -0,0 +1,274 @@ + _ +Partial Class Frm_Common + Inherits CForm + + 'Form은 Dispose를 재정의하여 구성 요소 목록을 정리합니다. + _ + Protected Overrides Sub Dispose(ByVal disposing As Boolean) + Try + If disposing AndAlso components IsNot Nothing Then + components.Dispose() + End If + Finally + MyBase.Dispose(disposing) + End Try + End Sub + + 'Windows Form 디자이너에 필요합니다. + Private components As System.ComponentModel.IContainer + + '참고: 다음 프로시저는 Windows Form 디자이너에 필요합니다. + '수정하려면 Windows Form 디자이너를 사용하십시오. + '코드 편집기를 사용하여 수정하지 마십시오. + _ + Private Sub InitializeComponent() + Me.components = New System.ComponentModel.Container + Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(Frm_Common)) + Me.DS = New Eco2Ar.DS + Me.Tbl_commonBindingSource = New System.Windows.Forms.BindingSource(Me.components) + Me.Tbl_commonTableAdapter = New Eco2Ar.DSTableAdapters.tbl_commonTableAdapter + Me.Tbl_commonBindingNavigator = New System.Windows.Forms.BindingNavigator(Me.components) + Me.BindingNavigatorMoveFirstItem = New System.Windows.Forms.ToolStripButton + Me.BindingNavigatorMovePreviousItem = New System.Windows.Forms.ToolStripButton + Me.BindingNavigatorSeparator = New System.Windows.Forms.ToolStripSeparator + Me.BindingNavigatorPositionItem = New System.Windows.Forms.ToolStripTextBox + Me.BindingNavigatorCountItem = New System.Windows.Forms.ToolStripLabel + Me.BindingNavigatorSeparator1 = New System.Windows.Forms.ToolStripSeparator + Me.BindingNavigatorMoveNextItem = New System.Windows.Forms.ToolStripButton + Me.BindingNavigatorMoveLastItem = New System.Windows.Forms.ToolStripButton + Me.BindingNavigatorSeparator2 = New System.Windows.Forms.ToolStripSeparator + Me.BindingNavigatorAddNewItem = New System.Windows.Forms.ToolStripButton + Me.BindingNavigatorDeleteItem = New System.Windows.Forms.ToolStripButton + Me.Tbl_commonBindingNavigatorSaveItem = New System.Windows.Forms.ToolStripButton + Me.Tbl_commonDataGridView = New System.Windows.Forms.DataGridView + Me.DataGridViewTextBoxColumn1 = New System.Windows.Forms.DataGridViewTextBoxColumn + 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 + CType(Me.DS, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.Tbl_commonBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.Tbl_commonBindingNavigator, System.ComponentModel.ISupportInitialize).BeginInit() + Me.Tbl_commonBindingNavigator.SuspendLayout() + CType(Me.Tbl_commonDataGridView, System.ComponentModel.ISupportInitialize).BeginInit() + Me.SuspendLayout() + ' + 'DS + ' + Me.DS.DataSetName = "DS" + Me.DS.SchemaSerializationMode = System.Data.SchemaSerializationMode.IncludeSchema + ' + 'Tbl_commonBindingSource + ' + Me.Tbl_commonBindingSource.DataMember = "tbl_common" + Me.Tbl_commonBindingSource.DataSource = Me.DS + ' + 'Tbl_commonTableAdapter + ' + Me.Tbl_commonTableAdapter.ClearBeforeFill = True + ' + 'Tbl_commonBindingNavigator + ' + Me.Tbl_commonBindingNavigator.AddNewItem = Me.BindingNavigatorAddNewItem + Me.Tbl_commonBindingNavigator.BindingSource = Me.Tbl_commonBindingSource + Me.Tbl_commonBindingNavigator.CountItem = Me.BindingNavigatorCountItem + Me.Tbl_commonBindingNavigator.DeleteItem = Me.BindingNavigatorDeleteItem + Me.Tbl_commonBindingNavigator.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.BindingNavigatorMoveFirstItem, Me.BindingNavigatorMovePreviousItem, Me.BindingNavigatorSeparator, Me.BindingNavigatorPositionItem, Me.BindingNavigatorCountItem, Me.BindingNavigatorSeparator1, Me.BindingNavigatorMoveNextItem, Me.BindingNavigatorMoveLastItem, Me.BindingNavigatorSeparator2, Me.BindingNavigatorAddNewItem, Me.BindingNavigatorDeleteItem, Me.Tbl_commonBindingNavigatorSaveItem}) + Me.Tbl_commonBindingNavigator.Location = New System.Drawing.Point(0, 0) + Me.Tbl_commonBindingNavigator.MoveFirstItem = Me.BindingNavigatorMoveFirstItem + Me.Tbl_commonBindingNavigator.MoveLastItem = Me.BindingNavigatorMoveLastItem + Me.Tbl_commonBindingNavigator.MoveNextItem = Me.BindingNavigatorMoveNextItem + Me.Tbl_commonBindingNavigator.MovePreviousItem = Me.BindingNavigatorMovePreviousItem + Me.Tbl_commonBindingNavigator.Name = "Tbl_commonBindingNavigator" + Me.Tbl_commonBindingNavigator.PositionItem = Me.BindingNavigatorPositionItem + Me.Tbl_commonBindingNavigator.Size = New System.Drawing.Size(791, 25) + Me.Tbl_commonBindingNavigator.TabIndex = 3 + Me.Tbl_commonBindingNavigator.Text = "BindingNavigator1" + ' + 'BindingNavigatorMoveFirstItem + ' + Me.BindingNavigatorMoveFirstItem.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.BindingNavigatorMoveFirstItem.Image = CType(resources.GetObject("BindingNavigatorMoveFirstItem.Image"), System.Drawing.Image) + Me.BindingNavigatorMoveFirstItem.Name = "BindingNavigatorMoveFirstItem" + Me.BindingNavigatorMoveFirstItem.RightToLeftAutoMirrorImage = True + Me.BindingNavigatorMoveFirstItem.Size = New System.Drawing.Size(23, 22) + Me.BindingNavigatorMoveFirstItem.Text = "처음으로 이동" + ' + 'BindingNavigatorMovePreviousItem + ' + Me.BindingNavigatorMovePreviousItem.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.BindingNavigatorMovePreviousItem.Image = CType(resources.GetObject("BindingNavigatorMovePreviousItem.Image"), System.Drawing.Image) + Me.BindingNavigatorMovePreviousItem.Name = "BindingNavigatorMovePreviousItem" + Me.BindingNavigatorMovePreviousItem.RightToLeftAutoMirrorImage = True + Me.BindingNavigatorMovePreviousItem.Size = New System.Drawing.Size(23, 22) + Me.BindingNavigatorMovePreviousItem.Text = "이전으로 이동" + ' + 'BindingNavigatorSeparator + ' + Me.BindingNavigatorSeparator.Name = "BindingNavigatorSeparator" + Me.BindingNavigatorSeparator.Size = New System.Drawing.Size(6, 25) + ' + 'BindingNavigatorPositionItem + ' + Me.BindingNavigatorPositionItem.AccessibleName = "위치" + Me.BindingNavigatorPositionItem.AutoSize = False + Me.BindingNavigatorPositionItem.Name = "BindingNavigatorPositionItem" + Me.BindingNavigatorPositionItem.Size = New System.Drawing.Size(50, 23) + Me.BindingNavigatorPositionItem.Text = "0" + Me.BindingNavigatorPositionItem.ToolTipText = "현재 위치" + ' + 'BindingNavigatorCountItem + ' + Me.BindingNavigatorCountItem.Name = "BindingNavigatorCountItem" + Me.BindingNavigatorCountItem.Size = New System.Drawing.Size(27, 15) + Me.BindingNavigatorCountItem.Text = "/{0}" + Me.BindingNavigatorCountItem.ToolTipText = "전체 항목 수" + ' + 'BindingNavigatorSeparator1 + ' + Me.BindingNavigatorSeparator1.Name = "BindingNavigatorSeparator" + Me.BindingNavigatorSeparator1.Size = New System.Drawing.Size(6, 6) + ' + 'BindingNavigatorMoveNextItem + ' + Me.BindingNavigatorMoveNextItem.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.BindingNavigatorMoveNextItem.Image = CType(resources.GetObject("BindingNavigatorMoveNextItem.Image"), System.Drawing.Image) + Me.BindingNavigatorMoveNextItem.Name = "BindingNavigatorMoveNextItem" + Me.BindingNavigatorMoveNextItem.RightToLeftAutoMirrorImage = True + Me.BindingNavigatorMoveNextItem.Size = New System.Drawing.Size(23, 20) + Me.BindingNavigatorMoveNextItem.Text = "다음으로 이동" + ' + 'BindingNavigatorMoveLastItem + ' + Me.BindingNavigatorMoveLastItem.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.BindingNavigatorMoveLastItem.Image = CType(resources.GetObject("BindingNavigatorMoveLastItem.Image"), System.Drawing.Image) + Me.BindingNavigatorMoveLastItem.Name = "BindingNavigatorMoveLastItem" + Me.BindingNavigatorMoveLastItem.RightToLeftAutoMirrorImage = True + Me.BindingNavigatorMoveLastItem.Size = New System.Drawing.Size(23, 20) + Me.BindingNavigatorMoveLastItem.Text = "마지막으로 이동" + ' + 'BindingNavigatorSeparator2 + ' + Me.BindingNavigatorSeparator2.Name = "BindingNavigatorSeparator" + Me.BindingNavigatorSeparator2.Size = New System.Drawing.Size(6, 6) + ' + 'BindingNavigatorAddNewItem + ' + Me.BindingNavigatorAddNewItem.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.BindingNavigatorAddNewItem.Image = CType(resources.GetObject("BindingNavigatorAddNewItem.Image"), System.Drawing.Image) + Me.BindingNavigatorAddNewItem.Name = "BindingNavigatorAddNewItem" + Me.BindingNavigatorAddNewItem.RightToLeftAutoMirrorImage = True + Me.BindingNavigatorAddNewItem.Size = New System.Drawing.Size(23, 22) + Me.BindingNavigatorAddNewItem.Text = "새로 추가" + ' + 'BindingNavigatorDeleteItem + ' + Me.BindingNavigatorDeleteItem.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.BindingNavigatorDeleteItem.Image = CType(resources.GetObject("BindingNavigatorDeleteItem.Image"), System.Drawing.Image) + Me.BindingNavigatorDeleteItem.Name = "BindingNavigatorDeleteItem" + Me.BindingNavigatorDeleteItem.RightToLeftAutoMirrorImage = True + Me.BindingNavigatorDeleteItem.Size = New System.Drawing.Size(23, 20) + Me.BindingNavigatorDeleteItem.Text = "삭제" + ' + 'Tbl_commonBindingNavigatorSaveItem + ' + Me.Tbl_commonBindingNavigatorSaveItem.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.Tbl_commonBindingNavigatorSaveItem.Image = CType(resources.GetObject("Tbl_commonBindingNavigatorSaveItem.Image"), System.Drawing.Image) + Me.Tbl_commonBindingNavigatorSaveItem.Name = "Tbl_commonBindingNavigatorSaveItem" + Me.Tbl_commonBindingNavigatorSaveItem.Size = New System.Drawing.Size(23, 23) + Me.Tbl_commonBindingNavigatorSaveItem.Text = "데이터 저장" + ' + 'Tbl_commonDataGridView + ' + Me.Tbl_commonDataGridView.AutoGenerateColumns = False + Me.Tbl_commonDataGridView.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize + Me.Tbl_commonDataGridView.Columns.AddRange(New System.Windows.Forms.DataGridViewColumn() {Me.DataGridViewTextBoxColumn1, Me.DataGridViewTextBoxColumn2, Me.DataGridViewTextBoxColumn3, Me.DataGridViewTextBoxColumn4, Me.DataGridViewTextBoxColumn5}) + Me.Tbl_commonDataGridView.DataSource = Me.Tbl_commonBindingSource + Me.Tbl_commonDataGridView.Dock = System.Windows.Forms.DockStyle.Fill + Me.Tbl_commonDataGridView.Location = New System.Drawing.Point(0, 25) + Me.Tbl_commonDataGridView.Name = "Tbl_commonDataGridView" + Me.Tbl_commonDataGridView.RowTemplate.Height = 23 + Me.Tbl_commonDataGridView.Size = New System.Drawing.Size(791, 455) + Me.Tbl_commonDataGridView.TabIndex = 3 + ' + 'DataGridViewTextBoxColumn1 + ' + Me.DataGridViewTextBoxColumn1.DataPropertyName = "gubun" + Me.DataGridViewTextBoxColumn1.HeaderText = "gubun" + Me.DataGridViewTextBoxColumn1.Name = "DataGridViewTextBoxColumn1" + ' + 'DataGridViewTextBoxColumn2 + ' + Me.DataGridViewTextBoxColumn2.DataPropertyName = "code" + Me.DataGridViewTextBoxColumn2.HeaderText = "code" + Me.DataGridViewTextBoxColumn2.Name = "DataGridViewTextBoxColumn2" + ' + 'DataGridViewTextBoxColumn3 + ' + Me.DataGridViewTextBoxColumn3.DataPropertyName = "name" + Me.DataGridViewTextBoxColumn3.HeaderText = "name" + Me.DataGridViewTextBoxColumn3.Name = "DataGridViewTextBoxColumn3" + ' + 'DataGridViewTextBoxColumn4 + ' + Me.DataGridViewTextBoxColumn4.DataPropertyName = "valn1" + Me.DataGridViewTextBoxColumn4.HeaderText = "valn1" + Me.DataGridViewTextBoxColumn4.Name = "DataGridViewTextBoxColumn4" + ' + 'DataGridViewTextBoxColumn5 + ' + Me.DataGridViewTextBoxColumn5.DataPropertyName = "codename" + Me.DataGridViewTextBoxColumn5.HeaderText = "codename" + Me.DataGridViewTextBoxColumn5.Name = "DataGridViewTextBoxColumn5" + Me.DataGridViewTextBoxColumn5.ReadOnly = True + ' + 'Frm_Common + ' + Me.AutoScaleDimensions = New System.Drawing.SizeF(7.0!, 14.0!) + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font + Me.ClientSize = New System.Drawing.Size(791, 480) + Me.Controls.Add(Me.Tbl_commonDataGridView) + Me.Controls.Add(Me.Tbl_commonBindingNavigator) + Me.Font = New System.Drawing.Font("나눔고딕", 8.999999!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.SizableToolWindow + Me.KeyPreview = True + Me.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4) + Me.Name = "Frm_Common" + Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen + Me.Text = "공용코드관리" + Me.Controls.SetChildIndex(Me.Tbl_commonBindingNavigator, 0) + Me.Controls.SetChildIndex(Me.Tbl_commonDataGridView, 0) + CType(Me.DS, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.Tbl_commonBindingSource, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.Tbl_commonBindingNavigator, System.ComponentModel.ISupportInitialize).EndInit() + Me.Tbl_commonBindingNavigator.ResumeLayout(False) + Me.Tbl_commonBindingNavigator.PerformLayout() + CType(Me.Tbl_commonDataGridView, System.ComponentModel.ISupportInitialize).EndInit() + Me.ResumeLayout(False) + Me.PerformLayout() + + End Sub + Friend WithEvents CidDataGridViewTextBoxColumn As System.Windows.Forms.DataGridViewTextBoxColumn + Friend WithEvents DS As Eco2Ar.DS + Friend WithEvents Tbl_commonBindingSource As System.Windows.Forms.BindingSource + Friend WithEvents Tbl_commonTableAdapter As Eco2Ar.DSTableAdapters.tbl_commonTableAdapter + Friend WithEvents Tbl_commonBindingNavigator As System.Windows.Forms.BindingNavigator + Friend WithEvents BindingNavigatorAddNewItem As System.Windows.Forms.ToolStripButton + Friend WithEvents BindingNavigatorCountItem As System.Windows.Forms.ToolStripLabel + Friend WithEvents BindingNavigatorDeleteItem As System.Windows.Forms.ToolStripButton + Friend WithEvents BindingNavigatorMoveFirstItem As System.Windows.Forms.ToolStripButton + Friend WithEvents BindingNavigatorMovePreviousItem As System.Windows.Forms.ToolStripButton + Friend WithEvents BindingNavigatorSeparator As System.Windows.Forms.ToolStripSeparator + Friend WithEvents BindingNavigatorPositionItem As System.Windows.Forms.ToolStripTextBox + Friend WithEvents BindingNavigatorSeparator1 As System.Windows.Forms.ToolStripSeparator + Friend WithEvents BindingNavigatorMoveNextItem As System.Windows.Forms.ToolStripButton + Friend WithEvents BindingNavigatorMoveLastItem As System.Windows.Forms.ToolStripButton + Friend WithEvents BindingNavigatorSeparator2 As System.Windows.Forms.ToolStripSeparator + Friend WithEvents Tbl_commonBindingNavigatorSaveItem As System.Windows.Forms.ToolStripButton + Friend WithEvents Tbl_commonDataGridView As System.Windows.Forms.DataGridView + Friend WithEvents DataGridViewTextBoxColumn1 As System.Windows.Forms.DataGridViewTextBoxColumn + Friend WithEvents DataGridViewTextBoxColumn2 As System.Windows.Forms.DataGridViewTextBoxColumn + Friend WithEvents DataGridViewTextBoxColumn3 As System.Windows.Forms.DataGridViewTextBoxColumn + Friend WithEvents DataGridViewTextBoxColumn4 As System.Windows.Forms.DataGridViewTextBoxColumn + Friend WithEvents DataGridViewTextBoxColumn5 As System.Windows.Forms.DataGridViewTextBoxColumn +End Class diff --git a/ArinWarev1/Forms/Frm_Common.resx b/ArinWarev1/Forms/Frm_Common.resx new file mode 100644 index 0000000..4d78215 --- /dev/null +++ b/ArinWarev1/Forms/Frm_Common.resx @@ -0,0 +1,212 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + 17, 17 + + + 84, 17 + + + 288, 17 + + + 486, 17 + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8 + YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAFNSURBVDhPY2AYtODuAvb/t+Zx/r86h+v/xRm8/0l26HWg + xj+PGv//edjw/+RkAdINOD+dF27AwR4R0g04PkkQaHvd/z8Pqv7vaBcnbMClmTz/z07l+38SqPFIv9D/ + fd0iQM3l///eK/q/vkHm/6oauf9LKxX/zy9V/j+rSBXTwFNAf/55WA/UVAvElf//3CsB4rz/f+9m/v97 + J/n/39tx///djADikP+TcjQxDTjUKwx27t/7pUCNBUCN2UCNqUCNCf//3YoGagz7/+9G0P9/1/3+d6Xp + Yhqws13i/5Zmqf/rwM6V/7+kQvH/31sxQI3h/6fmafyfkKX1vztD9397qv7/5kRDwmEyG+hPkHP/3Qj4 + 35OhQ1gDekIB+fPfDX8g9vvfmqxPugHd6bpg/4JwfZwR6Qa0JBn8b4g3/F8Ta/y/MtqEdANITvvkagAA + JCPYnqPoI1MAAAAASUVORK5CYII= + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8 + YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAFvSURBVDhPrZJNKMNxGMd3Vd5KubigVg4j0/ISEjIkLDIh + MkPagYNIaBcHB1Iu5ICL5EBSUk60OM3b5q01tf5Lk9Iu+Mfl9zEWpf3xJ7/Lc/h9n8/zfL89Gs1/PDxu + sJnA6eBPPNYWEd1VCIsRdja/hXDtg5W5zxo2lqDPjOgwIjorYGFKEfK6obCUwVhv5D+nzjCk3oBoyof+ + 5k8iMdKFMOfAtP17myzPIirT3kCMdoH3DCYGw9BQVZURPg+0FIUtmbIQDbkw0Kqu+X0CB3uhlXMR1elQ + q/9lc0CCpgLITkDWx3Ovj4U6gzoIAT+Y86AwiaC1Gi6O38K91YUgq/M/BHh3C20lPBQn4y1NJ7i/+9HA + eD8ubQyy+1AZwvMTDFuhJIUTXSLBrfUI4U15BlJ7DfK1X+EO9raRcxJxpUYh9TSC/Kg4yaGNQ3Y5FQAz + Y0hp0XiNmSBdfelVttvg/EgBcOmCySE42leXtqqLUiF6AYojAxxFb0PyAAAAAElFTkSuQmCC + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8 + YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAErSURBVDhPY2AYNKBw1vP/TQue/8+c+Pg/LkeFtz/AKceQ + O/PZ/1VH3v/HpSi++8H/4IZruA3ImPL0/8J9H7Aqiu95+H/p/v///asv4DYgoefJ/2lb3mMoimi/D9ac + Oev/f6/SE7gNiOx69L939QcURaGt98CaW9cBbe/8+98l/wBuAwKbH/6vm/8Orii45e7/RXv//+8Aas6Y + 8/O/Xd3P//YZ23Eb4FF1/3/+tDcoiuyKb/9Pn/P7v3/Xt/86he/+WySsx22Afend/9mTX2Mo0k85/9+k + 6MV/laxP/40jl+E2wCLvzv/U/tdYFRkknfgvm/b1v27wPNwGGGbd/h/W8hKnIv3Uy/81fKfhNkAn7cZ/ + v+qHeBWpeEzAbYBT7pX/IAV4FQ2ajIfsEADwdsCrEsAoJgAAAABJRU5ErkJggg== + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8 + YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAC9SURBVDhPY2AYMiC8/cF/sh0b3/3gf3DDNfIMiO95+H/p + /v///asvkG5ARPt9sObMWf//e5WeIM2A0NZ7YM2t64C2d/7975J/gHgDglvu/l+09///DqDmjDk//9vV + /fxvn7GdeANAoW1XfPt/+pzf//27vv3XKXz33yJhPWkGgAzRTzn/36ToxX+VrE//jSOXkW4AyBCDpBP/ + ZdO+/tcNnkeeAWCXpF7+r+E7jXwDQIaoeEygzACykzHNNQIA0BRgmJLkyxEAAAAASUVORK5CYII= + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8 + YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAACrSURBVDhPY2AYdKBw1vP/FDkqd+az/wnd98g3JGPK0//z + 9v/+n9B1hzxDEnqe/J+979f/zq1//7uVXibdkMiuR/+nbPv1v2Tp3/8J0//+t8k9S5ohgc0P/7eufQ/W + bFzy5b909LX/xpHLiDfEo+r+/5K57+CaFV16iNcMij770rv/A1uegW0mWTPIAIu8O/9tCq6QpxlkgGHW + bfI1gwzQSbtBmp8pSraDQjMAoH5foAtinnYAAAAASUVORK5CYII= + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8 + YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAEwSURBVDhPY2AYVKBw1vP/uBwEkmta8Px/5sTHONUw5M58 + 9j+h+x5WBSC5VUfe/w9vf4DbgIwpT//P2//7f0LXHQxFILmF+z78D264htuAhJ4n/2fv+/W/c+vf/26l + l1EUguSmbXn/37/6Am4DIrse/Z+y7df/kqV//ydM//vfJvcsXDFIrnf1h/9epSdwGxDY/PB/69r3YM3G + JV/+S0df+28cuQysASRXN//df5f8A7gN8Ki6/79k7ju4ZkWXHrhikFz+tDf/7TO24zbAvvTu/8CWZ2Cb + kTWDXACSy578+r9FwnrcBljk3flvU3AFQzPIAJBcav9ruJewphfDrNtYNYMUg+TCWl7+1w2eh9sFOmk3 + cEqC5PyqH/7X8J2G2wB8+cop98p/FY8JYDyo8h8DAL7Rv7NFZsfDAAAAAElFTkSuQmCC + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8 + YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAIpSURBVDhPrZPdS5NxFMf3L3TfTdBFtzU1hmuxGjzlHMqq + YVgRvT2RL+XSZZqoWJlGLV8gW+HSScvpJJxU+AamSI2hTCVLM1e0xKGm2EQw+PY7v+j5tTJv6gfn8vM5 + zznn+6hU/+M9exoFla99GW3eJTx2L6CxIYL7jhnU1nyC/XYIN8qnUFoygcKC18jLHcWF80EovQns7QFq + qlex0VtZXYMxrReH057wUgTe1kUuqKz48lee4MjCCnabn0OtlmE55BEC96N5Ligt+byu4Cf8PryIOJMP + BZenccDcJATO+lkuuGR794fgV3hkMoJtkhfWnHGkpjiFoO5umAuys0ZjBL/Dg8EwNuvdkOUATCaHEFRX + feQC+UxAEawH9/g/YFNiA44cfYGkpFohuFk5je4usFMCx0++guXYAN82LYxmps+mzj/gPhy0dEKS7EJw + tWwSHT6wDABNrm/s7l9Rfn2OL5UWRjNnZgQVODm1HQZDhRBcKRyHpxl46FxjwYnCmJ4TU+YTNqSfK+Kd + k1MYvN8Dvb5MCGx5YwwGqu5EeWcSUEjitBKG3s5ibGoOcu417DW2cVi7xwWdrkgIKJaOe1A+mwQEn82/ + hTeheYRmlnCx2I54vYvBjYjf9QDaxHwhyMwYZnMv85m3GjzYskNCS0c/fF2D6O7zY+DlEPaZLFDr6pHA + 4O2aOmg01ljB6VP9PJ6UMAoJ3ZlORdumhdHM1JWK4J0J2ULwL3/0d2xoOmtKzOuNAAAAAElFTkSuQmCC + + + \ No newline at end of file diff --git a/ArinWarev1/Forms/Frm_Common.vb b/ArinWarev1/Forms/Frm_Common.vb new file mode 100644 index 0000000..30685fb --- /dev/null +++ b/ArinWarev1/Forms/Frm_Common.vb @@ -0,0 +1,24 @@ +Public Class Frm_Common + Dim viewTag As String = "common" + Dim ViewFile As String = "\View_Config\Common_" + Dim ViewOutFile As String = "\ExcelOut\공용코드.xls" + Public Overrides Function AcceptChanged() As Boolean + + End Function + Public Overrides Function RejectChanged() As Boolean + + End Function + Public Overrides Function HasChanged() As Boolean + + End Function + Private Sub Tbl_commonBindingNavigatorSaveItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Tbl_commonBindingNavigatorSaveItem.Click + Me.Validate() + Me.Tbl_commonBindingSource.EndEdit() + Me.Tbl_commonTableAdapter.Update(Me.DS.tbl_common) + End Sub + + Private Sub Frm_Common_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load + 'TODO: 이 코드는 데이터를 'DS.tbl_common' 테이블에 로드합니다. 필요한 경우 이 코드를 이동하거나 제거할 수 있습니다. + Me.Tbl_commonTableAdapter.Fill(Me.DS.tbl_common) + End Sub +End Class \ No newline at end of file diff --git a/ArinWarev1/Forms/Frm_DisplayGubun.Designer.vb b/ArinWarev1/Forms/Frm_DisplayGubun.Designer.vb new file mode 100644 index 0000000..ed1ac5c --- /dev/null +++ b/ArinWarev1/Forms/Frm_DisplayGubun.Designer.vb @@ -0,0 +1,37 @@ + _ +Partial Class Frm_DisplayGubun + Inherits System.Windows.Forms.Form + + 'Form은 Dispose를 재정의하여 구성 요소 목록을 정리합니다. + _ + Protected Overrides Sub Dispose(ByVal disposing As Boolean) + Try + If disposing AndAlso components IsNot Nothing Then + components.Dispose() + End If + Finally + MyBase.Dispose(disposing) + End Try + End Sub + + 'Windows Form 디자이너에 필요합니다. + Private components As System.ComponentModel.IContainer + + '참고: 다음 프로시저는 Windows Form 디자이너에 필요합니다. + '수정하려면 Windows Form 디자이너를 사용하십시오. + '코드 편집기를 사용하여 수정하지 마십시오. + _ + Private Sub InitializeComponent() + Me.SuspendLayout() + ' + 'Frm_DisplayGubun + ' + Me.AutoScaleDimensions = New System.Drawing.SizeF(7.0!, 12.0!) + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font + Me.ClientSize = New System.Drawing.Size(604, 427) + Me.Name = "Frm_DisplayGubun" + Me.Text = "구분표시" + Me.ResumeLayout(False) + + End Sub +End Class diff --git a/ArinWarev1/Forms/Frm_DisplayGubun.resx b/ArinWarev1/Forms/Frm_DisplayGubun.resx new file mode 100644 index 0000000..19dc0dd --- /dev/null +++ b/ArinWarev1/Forms/Frm_DisplayGubun.resx @@ -0,0 +1,120 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + \ No newline at end of file diff --git a/ArinWarev1/Forms/Frm_DisplayGubun.vb b/ArinWarev1/Forms/Frm_DisplayGubun.vb new file mode 100644 index 0000000..d5711b8 --- /dev/null +++ b/ArinWarev1/Forms/Frm_DisplayGubun.vb @@ -0,0 +1,60 @@ +Public Class Frm_DisplayGubun + + Dim Fc As Color = Color.Black + Dim Bc As Color = Color.White + + Public Sub New() + + ' 이 호출은 Windows Form 디자이너에 필요합니다. + InitializeComponent() + + ' InitializeComponent() 호출 뒤에 초기화 코드를 추가하십시오. + + End Sub + Public Sub New(ByVal vfc As String, ByVal vfb As String) + InitializeComponent() + Try + Me.Fc = Color.FromArgb(vfc) + Catch ex As Exception + Me.Fc = Color.Black + End Try + Try + Me.Bc = Color.FromArgb(vfb) + Catch ex As Exception + Me.Bc = Color.White + End Try + + End Sub + Private Sub Frm_DisplayGubun_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load + + Me.Width = 555 + Me.Height = 362 + End Sub + + Private Sub Frm_DisplayGubun_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles Me.Paint + Dim x, y As Decimal + x = 0 + y = 0 + Dim G As Graphics = e.Graphics + For i As Integer = 0 To 100 + If i <> 0 AndAlso i Mod 10 = 0 Then + x = 0 + y += 55 + ElseIf i <> 0 Then + x += 55 + End If + + Try + Dim B As New System.Drawing.Drawing2D.HatchBrush(i, Me.Fc, Me.Bc) + G.FillRectangle(B, New Rectangle(x, y, 50, 50)) + G.DrawString(i.ToString, Me.Font, New SolidBrush(Color.White), x, y) + Catch ex As Exception + + End Try + + + Next + G.Dispose() + End Sub + +End Class \ No newline at end of file diff --git a/ArinWarev1/Forms/Frm_FileInfo.Designer.vb b/ArinWarev1/Forms/Frm_FileInfo.Designer.vb new file mode 100644 index 0000000..8ae44f2 --- /dev/null +++ b/ArinWarev1/Forms/Frm_FileInfo.Designer.vb @@ -0,0 +1,276 @@ + _ +Partial Class Frm_FileInfo + Inherits CForm + + 'Form은 Dispose를 재정의하여 구성 요소 목록을 정리합니다. + _ + Protected Overrides Sub Dispose(ByVal disposing As Boolean) + Try + If disposing AndAlso components IsNot Nothing Then + components.Dispose() + End If + Finally + MyBase.Dispose(disposing) + End Try + End Sub + + 'Windows Form 디자이너에 필요합니다. + Private components As System.ComponentModel.IContainer + + '참고: 다음 프로시저는 Windows Form 디자이너에 필요합니다. + '수정하려면 Windows Form 디자이너를 사용하십시오. + '코드 편집기를 사용하여 수정하지 마십시오. + _ + Private Sub InitializeComponent() + Me.Panel1 = New System.Windows.Forms.Panel + Me.Button1 = New System.Windows.Forms.Button + Me.Label10 = New System.Windows.Forms.Label + Me.Label9 = New System.Windows.Forms.Label + Me.tb_password = New System.Windows.Forms.TextBox + Me.Label8 = New System.Windows.Forms.Label + Me.tb_Edittime = New System.Windows.Forms.TextBox + Me.Label7 = New System.Windows.Forms.Label + Me.cmb_ft = New System.Windows.Forms.ComboBox + Me.Label6 = New System.Windows.Forms.Label + Me.tb_ui = New System.Windows.Forms.TextBox + Me.Label5 = New System.Windows.Forms.Label + Me.tb_lg = New System.Windows.Forms.TextBox + Me.Label4 = New System.Windows.Forms.Label + Me.tb_maketime = New System.Windows.Forms.TextBox + Me.Label3 = New System.Windows.Forms.Label + Me.tb_desc = New System.Windows.Forms.TextBox + Me.Label2 = New System.Windows.Forms.Label + Me.tb_name = New System.Windows.Forms.TextBox + Me.Label1 = New System.Windows.Forms.Label + Me.Panel1.SuspendLayout() + Me.SuspendLayout() + ' + 'Panel1 + ' + Me.Panel1.BackColor = System.Drawing.Color.White + Me.Panel1.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.Panel1.Controls.Add(Me.Button1) + Me.Panel1.Controls.Add(Me.Label10) + Me.Panel1.Controls.Add(Me.Label9) + Me.Panel1.Controls.Add(Me.tb_password) + Me.Panel1.Controls.Add(Me.Label8) + Me.Panel1.Controls.Add(Me.tb_Edittime) + Me.Panel1.Controls.Add(Me.Label7) + Me.Panel1.Controls.Add(Me.cmb_ft) + Me.Panel1.Controls.Add(Me.Label6) + Me.Panel1.Controls.Add(Me.tb_ui) + Me.Panel1.Controls.Add(Me.Label5) + Me.Panel1.Controls.Add(Me.tb_lg) + Me.Panel1.Controls.Add(Me.Label4) + Me.Panel1.Controls.Add(Me.tb_maketime) + Me.Panel1.Controls.Add(Me.Label3) + Me.Panel1.Controls.Add(Me.tb_desc) + Me.Panel1.Controls.Add(Me.Label2) + Me.Panel1.Controls.Add(Me.tb_name) + Me.Panel1.Controls.Add(Me.Label1) + Me.Panel1.Dock = System.Windows.Forms.DockStyle.Fill + Me.Panel1.Location = New System.Drawing.Point(0, 0) + Me.Panel1.Name = "Panel1" + Me.Panel1.Size = New System.Drawing.Size(398, 362) + Me.Panel1.TabIndex = 0 + ' + 'Button1 + ' + Me.Button1.Location = New System.Drawing.Point(102, 263) + Me.Button1.Name = "Button1" + Me.Button1.Size = New System.Drawing.Size(278, 36) + Me.Button1.TabIndex = 17 + Me.Button1.Text = "변경완료" + Me.Button1.UseVisualStyleBackColor = True + ' + 'Label10 + ' + Me.Label10.AutoSize = True + Me.Label10.Location = New System.Drawing.Point(17, 312) + Me.Label10.Name = "Label10" + Me.Label10.Size = New System.Drawing.Size(252, 14) + Me.Label10.TabIndex = 16 + Me.Label10.Text = "* 암호는 저장파일형태가 01 이상이 되어야합니다" + ' + 'Label9 + ' + Me.Label9.AutoSize = True + Me.Label9.Location = New System.Drawing.Point(17, 329) + Me.Label9.Name = "Label9" + Me.Label9.Size = New System.Drawing.Size(194, 14) + Me.Label9.TabIndex = 16 + Me.Label9.Text = "* 버젼 변경은 현재 허용되지 않습니다" + ' + 'tb_password + ' + Me.tb_password.Location = New System.Drawing.Point(102, 207) + Me.tb_password.Name = "tb_password" + Me.tb_password.PasswordChar = Global.Microsoft.VisualBasic.ChrW(42) + Me.tb_password.Size = New System.Drawing.Size(279, 21) + Me.tb_password.TabIndex = 15 + ' + 'Label8 + ' + Me.Label8.AutoSize = True + Me.Label8.ForeColor = System.Drawing.Color.Blue + Me.Label8.Location = New System.Drawing.Point(17, 199) + Me.Label8.Name = "Label8" + Me.Label8.Size = New System.Drawing.Size(29, 14) + Me.Label8.TabIndex = 14 + Me.Label8.Text = "암호" + ' + 'tb_Edittime + ' + Me.tb_Edittime.Location = New System.Drawing.Point(102, 126) + Me.tb_Edittime.Name = "tb_Edittime" + Me.tb_Edittime.ReadOnly = True + Me.tb_Edittime.Size = New System.Drawing.Size(279, 21) + Me.tb_Edittime.TabIndex = 13 + ' + 'Label7 + ' + Me.Label7.AutoSize = True + Me.Label7.Location = New System.Drawing.Point(17, 129) + Me.Label7.Name = "Label7" + Me.Label7.Size = New System.Drawing.Size(73, 14) + Me.Label7.TabIndex = 12 + Me.Label7.Text = "최종수정시간" + ' + 'cmb_ft + ' + Me.cmb_ft.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList + Me.cmb_ft.FormattingEnabled = True + Me.cmb_ft.Items.AddRange(New Object() {"00 [기본파일형태]", "01 [암호설정가능]"}) + Me.cmb_ft.Location = New System.Drawing.Point(102, 234) + Me.cmb_ft.Name = "cmb_ft" + Me.cmb_ft.Size = New System.Drawing.Size(279, 22) + Me.cmb_ft.TabIndex = 11 + ' + 'Label6 + ' + Me.Label6.AutoSize = True + Me.Label6.Location = New System.Drawing.Point(17, 237) + Me.Label6.Name = "Label6" + Me.Label6.Size = New System.Drawing.Size(73, 14) + Me.Label6.TabIndex = 10 + Me.Label6.Text = "저장파일형태" + ' + 'tb_ui + ' + Me.tb_ui.Location = New System.Drawing.Point(102, 180) + Me.tb_ui.Name = "tb_ui" + Me.tb_ui.ReadOnly = True + Me.tb_ui.Size = New System.Drawing.Size(279, 21) + Me.tb_ui.TabIndex = 9 + ' + 'Label5 + ' + Me.Label5.AutoSize = True + Me.Label5.Location = New System.Drawing.Point(11, 158) + Me.Label5.Name = "Label5" + Me.Label5.Size = New System.Drawing.Size(19, 14) + Me.Label5.TabIndex = 8 + Me.Label5.Text = "UI" + ' + 'tb_lg + ' + Me.tb_lg.Location = New System.Drawing.Point(102, 153) + Me.tb_lg.Name = "tb_lg" + Me.tb_lg.ReadOnly = True + Me.tb_lg.Size = New System.Drawing.Size(279, 21) + Me.tb_lg.TabIndex = 7 + ' + 'Label4 + ' + Me.Label4.AutoSize = True + Me.Label4.Location = New System.Drawing.Point(17, 145) + Me.Label4.Name = "Label4" + Me.Label4.Size = New System.Drawing.Size(23, 14) + Me.Label4.TabIndex = 6 + Me.Label4.Text = "LG" + ' + 'tb_maketime + ' + Me.tb_maketime.Location = New System.Drawing.Point(102, 99) + Me.tb_maketime.Name = "tb_maketime" + Me.tb_maketime.ReadOnly = True + Me.tb_maketime.Size = New System.Drawing.Size(279, 21) + Me.tb_maketime.TabIndex = 5 + ' + 'Label3 + ' + Me.Label3.AutoSize = True + Me.Label3.Location = New System.Drawing.Point(17, 102) + Me.Label3.Name = "Label3" + Me.Label3.Size = New System.Drawing.Size(51, 14) + Me.Label3.TabIndex = 4 + Me.Label3.Text = "생성시간" + ' + 'tb_desc + ' + Me.tb_desc.Location = New System.Drawing.Point(102, 72) + Me.tb_desc.Name = "tb_desc" + Me.tb_desc.Size = New System.Drawing.Size(279, 21) + Me.tb_desc.TabIndex = 3 + ' + 'Label2 + ' + Me.Label2.AutoSize = True + Me.Label2.Location = New System.Drawing.Point(17, 75) + Me.Label2.Name = "Label2" + Me.Label2.Size = New System.Drawing.Size(65, 14) + Me.Label2.TabIndex = 2 + Me.Label2.Text = "템플릿 설명" + ' + 'tb_name + ' + Me.tb_name.Location = New System.Drawing.Point(102, 45) + Me.tb_name.Name = "tb_name" + Me.tb_name.Size = New System.Drawing.Size(279, 21) + Me.tb_name.TabIndex = 1 + ' + 'Label1 + ' + Me.Label1.AutoSize = True + Me.Label1.Location = New System.Drawing.Point(17, 48) + Me.Label1.Name = "Label1" + Me.Label1.Size = New System.Drawing.Size(65, 14) + Me.Label1.TabIndex = 0 + Me.Label1.Text = "템플릿 이름" + ' + 'Frm_FileInfo + ' + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.None + Me.ClientSize = New System.Drawing.Size(398, 362) + Me.Controls.Add(Me.Panel1) + Me.Font = New System.Drawing.Font("나눔고딕", 8.999999!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.Name = "Frm_FileInfo" + Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen + Me.Text = "템플릿 정보" + Me.Controls.SetChildIndex(Me.Panel1, 0) + Me.Panel1.ResumeLayout(False) + Me.Panel1.PerformLayout() + Me.ResumeLayout(False) + + End Sub + Friend WithEvents Panel1 As System.Windows.Forms.Panel + Friend WithEvents Label1 As System.Windows.Forms.Label + Friend WithEvents tb_name As System.Windows.Forms.TextBox + Friend WithEvents tb_desc As System.Windows.Forms.TextBox + Friend WithEvents Label2 As System.Windows.Forms.Label + Friend WithEvents tb_ui As System.Windows.Forms.TextBox + Friend WithEvents Label5 As System.Windows.Forms.Label + Friend WithEvents tb_lg As System.Windows.Forms.TextBox + Friend WithEvents Label4 As System.Windows.Forms.Label + Friend WithEvents tb_maketime As System.Windows.Forms.TextBox + Friend WithEvents Label3 As System.Windows.Forms.Label + Friend WithEvents Label6 As System.Windows.Forms.Label + Friend WithEvents cmb_ft As System.Windows.Forms.ComboBox + Friend WithEvents tb_Edittime As System.Windows.Forms.TextBox + Friend WithEvents Label7 As System.Windows.Forms.Label + Friend WithEvents tb_password As System.Windows.Forms.TextBox + Friend WithEvents Label8 As System.Windows.Forms.Label + Friend WithEvents Label10 As System.Windows.Forms.Label + Friend WithEvents Label9 As System.Windows.Forms.Label + Friend WithEvents Button1 As System.Windows.Forms.Button +End Class diff --git a/ArinWarev1/Forms/Frm_FileInfo.resx b/ArinWarev1/Forms/Frm_FileInfo.resx new file mode 100644 index 0000000..19dc0dd --- /dev/null +++ b/ArinWarev1/Forms/Frm_FileInfo.resx @@ -0,0 +1,120 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + \ No newline at end of file diff --git a/ArinWarev1/Forms/Frm_FileInfo.vb b/ArinWarev1/Forms/Frm_FileInfo.vb new file mode 100644 index 0000000..8db0af0 --- /dev/null +++ b/ArinWarev1/Forms/Frm_FileInfo.vb @@ -0,0 +1,45 @@ +Public Class Frm_FileInfo + + Private Sub Frm_FileInfo_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load + + Me.tb_name.Text = Prj.Name + Me.tb_desc.Text = Prj.Desc + Me.tb_maketime.Text = Prj.MakeTime + Me.tb_Edittime.Text = Prj.EditTime + Me.tb_lg.Text = Prj.LGVersino + Me.tb_ui.Text = Prj.UIVersion + Me.cmb_ft.SelectedIndex = CInt(Prj.SFType) + Select Case Me.cmb_ft.SelectedIndex + Case 1 + Me.tb_password.Text = Prj.Password + Case Else + Me.tb_password.Text = "" + End Select + If Me.cmb_ft.SelectedIndex = -1 Then Me.cmb_ft.SelectedIndex = 1 + End Sub + + Private Sub cmb_ft_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmb_ft.SelectedIndexChanged + Select Case Me.cmb_ft.SelectedIndex + Case 0 + Me.tb_password.Text = "" + Me.tb_password.Enabled = False + Case 1 + Me.cmb_ft.Enabled = True + Case Else + Me.tb_password.Text = "" + Me.tb_password.Enabled = False + End Select + End Sub + + Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click + + Prj.Name = Me.tb_name.Text + Prj.Desc = Me.tb_desc.Text + Prj.MakeTime = Me.tb_maketime.Text + Prj.EditTime = Me.tb_Edittime.Text + Prj.LGVersino = Me.tb_lg.Text + Prj.UIVersion = Me.tb_ui.Text + Prj.SFType = Format(Me.cmb_ft.SelectedIndex, "00") + Me.DialogResult = Windows.Forms.DialogResult.OK + End Sub +End Class \ No newline at end of file diff --git a/ArinWarev1/Forms/Frm_Filter.Designer.vb b/ArinWarev1/Forms/Frm_Filter.Designer.vb new file mode 100644 index 0000000..d6042cd --- /dev/null +++ b/ArinWarev1/Forms/Frm_Filter.Designer.vb @@ -0,0 +1,386 @@ + _ +Partial Class Frm_Filter + Inherits System.Windows.Forms.Form + + 'Form은 Dispose를 재정의하여 구성 요소 목록을 정리합니다. + _ + Protected Overrides Sub Dispose(ByVal disposing As Boolean) + Try + If disposing AndAlso components IsNot Nothing Then + components.Dispose() + End If + Finally + MyBase.Dispose(disposing) + End Try + End Sub + + 'Windows Form 디자이너에 필요합니다. + Private components As System.ComponentModel.IContainer + + '참고: 다음 프로시저는 Windows Form 디자이너에 필요합니다. + '수정하려면 Windows Form 디자이너를 사용하십시오. + '코드 편집기를 사용하여 수정하지 마십시오. + _ + Private Sub InitializeComponent() + Me.TableLayoutPanel1 = New System.Windows.Forms.TableLayoutPanel + Me.OK_Button = New System.Windows.Forms.Button + Me.Cancel_Button = New System.Windows.Forms.Button + Me.tb_filter = New System.Windows.Forms.TextBox + Me.cmb_field1 = New System.Windows.Forms.ComboBox + Me.cmb_field2 = New System.Windows.Forms.ComboBox + Me.cmb_field3 = New System.Windows.Forms.ComboBox + Me.cmb_field4 = New System.Windows.Forms.ComboBox + Me.cmb_j1 = New System.Windows.Forms.ComboBox + Me.cmb_j2 = New System.Windows.Forms.ComboBox + Me.cmb_j3 = New System.Windows.Forms.ComboBox + Me.cmb_cond1 = New System.Windows.Forms.ComboBox + Me.cmb_cond2 = New System.Windows.Forms.ComboBox + Me.cmb_cond3 = New System.Windows.Forms.ComboBox + Me.cmb_cond4 = New System.Windows.Forms.ComboBox + Me.tb_s1 = New System.Windows.Forms.TextBox + Me.tb_s2 = New System.Windows.Forms.TextBox + Me.tb_s3 = New System.Windows.Forms.TextBox + Me.tb_s4 = New System.Windows.Forms.TextBox + Me.GroupBox1 = New System.Windows.Forms.GroupBox + Me.GroupBox2 = New System.Windows.Forms.GroupBox + Me.Label1 = New System.Windows.Forms.Label + Me.Label2 = New System.Windows.Forms.Label + Me.GroupBox3 = New System.Windows.Forms.GroupBox + Me.Label4 = New System.Windows.Forms.Label + Me.tb_valuec = New System.Windows.Forms.TextBox + Me.cmb_fieldc = New System.Windows.Forms.ComboBox + Me.Label3 = New System.Windows.Forms.Label + Me.TableLayoutPanel1.SuspendLayout() + Me.GroupBox1.SuspendLayout() + Me.GroupBox2.SuspendLayout() + Me.GroupBox3.SuspendLayout() + Me.SuspendLayout() + ' + 'TableLayoutPanel1 + ' + Me.TableLayoutPanel1.ColumnCount = 2 + Me.TableLayoutPanel1.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Percent, 50.0!)) + Me.TableLayoutPanel1.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Percent, 50.0!)) + Me.TableLayoutPanel1.Controls.Add(Me.OK_Button, 0, 0) + Me.TableLayoutPanel1.Controls.Add(Me.Cancel_Button, 1, 0) + Me.TableLayoutPanel1.Location = New System.Drawing.Point(229, 252) + Me.TableLayoutPanel1.Name = "TableLayoutPanel1" + Me.TableLayoutPanel1.RowCount = 1 + Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Percent, 50.0!)) + Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Absolute, 27.0!)) + Me.TableLayoutPanel1.Size = New System.Drawing.Size(170, 27) + Me.TableLayoutPanel1.TabIndex = 0 + ' + 'OK_Button + ' + Me.OK_Button.Anchor = System.Windows.Forms.AnchorStyles.None + Me.OK_Button.Location = New System.Drawing.Point(3, 3) + Me.OK_Button.Name = "OK_Button" + Me.OK_Button.Size = New System.Drawing.Size(78, 21) + Me.OK_Button.TabIndex = 0 + Me.OK_Button.Text = "확인" + ' + 'Cancel_Button + ' + Me.Cancel_Button.Anchor = System.Windows.Forms.AnchorStyles.None + Me.Cancel_Button.DialogResult = System.Windows.Forms.DialogResult.Cancel + Me.Cancel_Button.Location = New System.Drawing.Point(88, 3) + Me.Cancel_Button.Name = "Cancel_Button" + Me.Cancel_Button.Size = New System.Drawing.Size(78, 21) + Me.Cancel_Button.TabIndex = 1 + Me.Cancel_Button.Text = "취소" + ' + 'tb_filter + ' + Me.tb_filter.Location = New System.Drawing.Point(22, 20) + Me.tb_filter.Multiline = True + Me.tb_filter.Name = "tb_filter" + Me.tb_filter.Size = New System.Drawing.Size(361, 60) + Me.tb_filter.TabIndex = 1 + ' + 'cmb_field1 + ' + Me.cmb_field1.FormattingEnabled = True + Me.cmb_field1.Location = New System.Drawing.Point(73, 23) + Me.cmb_field1.Name = "cmb_field1" + Me.cmb_field1.Size = New System.Drawing.Size(138, 20) + Me.cmb_field1.TabIndex = 3 + ' + 'cmb_field2 + ' + Me.cmb_field2.FormattingEnabled = True + Me.cmb_field2.Location = New System.Drawing.Point(73, 49) + Me.cmb_field2.Name = "cmb_field2" + Me.cmb_field2.Size = New System.Drawing.Size(138, 20) + Me.cmb_field2.TabIndex = 4 + ' + 'cmb_field3 + ' + Me.cmb_field3.FormattingEnabled = True + Me.cmb_field3.Location = New System.Drawing.Point(73, 75) + Me.cmb_field3.Name = "cmb_field3" + Me.cmb_field3.Size = New System.Drawing.Size(138, 20) + Me.cmb_field3.TabIndex = 5 + ' + 'cmb_field4 + ' + Me.cmb_field4.FormattingEnabled = True + Me.cmb_field4.Location = New System.Drawing.Point(73, 101) + Me.cmb_field4.Name = "cmb_field4" + Me.cmb_field4.Size = New System.Drawing.Size(138, 20) + Me.cmb_field4.TabIndex = 6 + ' + 'cmb_j1 + ' + Me.cmb_j1.FormattingEnabled = True + Me.cmb_j1.Items.AddRange(New Object() {"AND", "OR"}) + Me.cmb_j1.Location = New System.Drawing.Point(6, 49) + Me.cmb_j1.Name = "cmb_j1" + Me.cmb_j1.Size = New System.Drawing.Size(61, 20) + Me.cmb_j1.TabIndex = 7 + ' + 'cmb_j2 + ' + Me.cmb_j2.FormattingEnabled = True + Me.cmb_j2.Items.AddRange(New Object() {"AND", "OR"}) + Me.cmb_j2.Location = New System.Drawing.Point(6, 75) + Me.cmb_j2.Name = "cmb_j2" + Me.cmb_j2.Size = New System.Drawing.Size(61, 20) + Me.cmb_j2.TabIndex = 8 + ' + 'cmb_j3 + ' + Me.cmb_j3.FormattingEnabled = True + Me.cmb_j3.Items.AddRange(New Object() {"AND", "OR"}) + Me.cmb_j3.Location = New System.Drawing.Point(6, 101) + Me.cmb_j3.Name = "cmb_j3" + Me.cmb_j3.Size = New System.Drawing.Size(61, 20) + Me.cmb_j3.TabIndex = 9 + ' + 'cmb_cond1 + ' + Me.cmb_cond1.FormattingEnabled = True + Me.cmb_cond1.Items.AddRange(New Object() {"Like", "<>", "=", "<=", ">="}) + Me.cmb_cond1.Location = New System.Drawing.Point(217, 23) + Me.cmb_cond1.Name = "cmb_cond1" + Me.cmb_cond1.Size = New System.Drawing.Size(51, 20) + Me.cmb_cond1.TabIndex = 11 + ' + 'cmb_cond2 + ' + Me.cmb_cond2.FormattingEnabled = True + Me.cmb_cond2.Items.AddRange(New Object() {"Like", "<>", "=", "<=", ">="}) + Me.cmb_cond2.Location = New System.Drawing.Point(217, 49) + Me.cmb_cond2.Name = "cmb_cond2" + Me.cmb_cond2.Size = New System.Drawing.Size(51, 20) + Me.cmb_cond2.TabIndex = 12 + ' + 'cmb_cond3 + ' + Me.cmb_cond3.FormattingEnabled = True + Me.cmb_cond3.Items.AddRange(New Object() {"Like", "<>", "=", "<=", ">="}) + Me.cmb_cond3.Location = New System.Drawing.Point(217, 75) + Me.cmb_cond3.Name = "cmb_cond3" + Me.cmb_cond3.Size = New System.Drawing.Size(51, 20) + Me.cmb_cond3.TabIndex = 13 + ' + 'cmb_cond4 + ' + Me.cmb_cond4.FormattingEnabled = True + Me.cmb_cond4.Items.AddRange(New Object() {"Like", "<>", "=", "<=", ">="}) + Me.cmb_cond4.Location = New System.Drawing.Point(217, 101) + Me.cmb_cond4.Name = "cmb_cond4" + Me.cmb_cond4.Size = New System.Drawing.Size(51, 20) + Me.cmb_cond4.TabIndex = 14 + ' + 'tb_s1 + ' + Me.tb_s1.Location = New System.Drawing.Point(274, 22) + Me.tb_s1.Name = "tb_s1" + Me.tb_s1.Size = New System.Drawing.Size(109, 21) + Me.tb_s1.TabIndex = 15 + ' + 'tb_s2 + ' + Me.tb_s2.Location = New System.Drawing.Point(274, 49) + Me.tb_s2.Name = "tb_s2" + Me.tb_s2.Size = New System.Drawing.Size(109, 21) + Me.tb_s2.TabIndex = 16 + ' + 'tb_s3 + ' + Me.tb_s3.Location = New System.Drawing.Point(274, 76) + Me.tb_s3.Name = "tb_s3" + Me.tb_s3.Size = New System.Drawing.Size(109, 21) + Me.tb_s3.TabIndex = 17 + ' + 'tb_s4 + ' + Me.tb_s4.Location = New System.Drawing.Point(274, 103) + Me.tb_s4.Name = "tb_s4" + Me.tb_s4.Size = New System.Drawing.Size(109, 21) + Me.tb_s4.TabIndex = 18 + ' + 'GroupBox1 + ' + Me.GroupBox1.Controls.Add(Me.cmb_field1) + Me.GroupBox1.Controls.Add(Me.cmb_field2) + Me.GroupBox1.Controls.Add(Me.tb_s4) + Me.GroupBox1.Controls.Add(Me.cmb_field3) + Me.GroupBox1.Controls.Add(Me.tb_s3) + Me.GroupBox1.Controls.Add(Me.cmb_field4) + Me.GroupBox1.Controls.Add(Me.tb_s2) + Me.GroupBox1.Controls.Add(Me.cmb_j1) + Me.GroupBox1.Controls.Add(Me.tb_s1) + Me.GroupBox1.Controls.Add(Me.cmb_j2) + Me.GroupBox1.Controls.Add(Me.cmb_cond4) + Me.GroupBox1.Controls.Add(Me.cmb_j3) + Me.GroupBox1.Controls.Add(Me.cmb_cond3) + Me.GroupBox1.Controls.Add(Me.cmb_cond1) + Me.GroupBox1.Controls.Add(Me.cmb_cond2) + Me.GroupBox1.Location = New System.Drawing.Point(10, 12) + Me.GroupBox1.Name = "GroupBox1" + Me.GroupBox1.Size = New System.Drawing.Size(389, 135) + Me.GroupBox1.TabIndex = 0 + Me.GroupBox1.TabStop = False + Me.GroupBox1.Text = "조건" + ' + 'GroupBox2 + ' + Me.GroupBox2.Controls.Add(Me.tb_filter) + Me.GroupBox2.Location = New System.Drawing.Point(10, 153) + Me.GroupBox2.Name = "GroupBox2" + Me.GroupBox2.Size = New System.Drawing.Size(389, 93) + Me.GroupBox2.TabIndex = 1 + Me.GroupBox2.TabStop = False + Me.GroupBox2.Text = "Filter" + ' + 'Label1 + ' + Me.Label1.AutoSize = True + Me.Label1.BackColor = System.Drawing.Color.LightGreen + Me.Label1.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.Label1.ForeColor = System.Drawing.SystemColors.ControlText + Me.Label1.Location = New System.Drawing.Point(12, 261) + Me.Label1.Name = "Label1" + Me.Label1.Size = New System.Drawing.Size(31, 14) + Me.Label1.TabIndex = 22 + Me.Label1.Text = "0001" + ' + 'Label2 + ' + Me.Label2.AutoSize = True + Me.Label2.Location = New System.Drawing.Point(49, 261) + Me.Label2.Name = "Label2" + Me.Label2.Size = New System.Drawing.Size(101, 12) + Me.Label2.TabIndex = 23 + Me.Label2.Text = ": 코드로 입력요망" + ' + 'GroupBox3 + ' + Me.GroupBox3.Controls.Add(Me.Label4) + Me.GroupBox3.Controls.Add(Me.tb_valuec) + Me.GroupBox3.Controls.Add(Me.cmb_fieldc) + Me.GroupBox3.Location = New System.Drawing.Point(10, 285) + Me.GroupBox3.Name = "GroupBox3" + Me.GroupBox3.Size = New System.Drawing.Size(389, 51) + Me.GroupBox3.TabIndex = 2 + Me.GroupBox3.TabStop = False + Me.GroupBox3.Text = "바꾸기" + ' + 'Label4 + ' + Me.Label4.AutoSize = True + Me.Label4.Location = New System.Drawing.Point(198, 22) + Me.Label4.Name = "Label4" + Me.Label4.Size = New System.Drawing.Size(41, 12) + Me.Label4.TabIndex = 1 + Me.Label4.Text = "변경값" + ' + 'tb_valuec + ' + Me.tb_valuec.Location = New System.Drawing.Point(245, 19) + Me.tb_valuec.Name = "tb_valuec" + Me.tb_valuec.Size = New System.Drawing.Size(138, 21) + Me.tb_valuec.TabIndex = 2 + Me.tb_valuec.TextAlign = System.Windows.Forms.HorizontalAlignment.Center + ' + 'cmb_fieldc + ' + Me.cmb_fieldc.FormattingEnabled = True + Me.cmb_fieldc.Location = New System.Drawing.Point(22, 19) + Me.cmb_fieldc.Name = "cmb_fieldc" + Me.cmb_fieldc.Size = New System.Drawing.Size(156, 20) + Me.cmb_fieldc.TabIndex = 0 + ' + 'Label3 + ' + Me.Label3.AutoSize = True + Me.Label3.Location = New System.Drawing.Point(12, 339) + Me.Label3.Name = "Label3" + Me.Label3.Size = New System.Drawing.Size(353, 12) + Me.Label3.TabIndex = 24 + Me.Label3.Text = "바꾸기 값이 설정되어있으면 확인시에 해당 필드값이 변경됩니다" + ' + 'Frm_Filter + ' + Me.AcceptButton = Me.OK_Button + Me.AutoScaleDimensions = New System.Drawing.SizeF(7.0!, 12.0!) + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font + Me.CancelButton = Me.Cancel_Button + Me.ClientSize = New System.Drawing.Size(411, 360) + Me.Controls.Add(Me.Label3) + Me.Controls.Add(Me.GroupBox3) + Me.Controls.Add(Me.Label2) + Me.Controls.Add(Me.Label1) + Me.Controls.Add(Me.GroupBox2) + Me.Controls.Add(Me.GroupBox1) + Me.Controls.Add(Me.TableLayoutPanel1) + Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedDialog + Me.MaximizeBox = False + Me.MinimizeBox = False + Me.Name = "Frm_Filter" + Me.ShowInTaskbar = False + Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterParent + Me.Text = "검색조건" + Me.TableLayoutPanel1.ResumeLayout(False) + Me.GroupBox1.ResumeLayout(False) + Me.GroupBox1.PerformLayout() + Me.GroupBox2.ResumeLayout(False) + Me.GroupBox2.PerformLayout() + Me.GroupBox3.ResumeLayout(False) + Me.GroupBox3.PerformLayout() + Me.ResumeLayout(False) + Me.PerformLayout() + + End Sub + Friend WithEvents TableLayoutPanel1 As System.Windows.Forms.TableLayoutPanel + Friend WithEvents OK_Button As System.Windows.Forms.Button + Friend WithEvents Cancel_Button As System.Windows.Forms.Button + Friend WithEvents tb_filter As System.Windows.Forms.TextBox + Friend WithEvents cmb_field1 As System.Windows.Forms.ComboBox + Friend WithEvents cmb_field2 As System.Windows.Forms.ComboBox + Friend WithEvents cmb_field3 As System.Windows.Forms.ComboBox + Friend WithEvents cmb_field4 As System.Windows.Forms.ComboBox + Friend WithEvents cmb_j1 As System.Windows.Forms.ComboBox + Friend WithEvents cmb_j2 As System.Windows.Forms.ComboBox + Friend WithEvents cmb_j3 As System.Windows.Forms.ComboBox + Friend WithEvents cmb_cond1 As System.Windows.Forms.ComboBox + Friend WithEvents cmb_cond2 As System.Windows.Forms.ComboBox + Friend WithEvents cmb_cond3 As System.Windows.Forms.ComboBox + Friend WithEvents cmb_cond4 As System.Windows.Forms.ComboBox + Friend WithEvents tb_s1 As System.Windows.Forms.TextBox + Friend WithEvents tb_s2 As System.Windows.Forms.TextBox + Friend WithEvents tb_s3 As System.Windows.Forms.TextBox + Friend WithEvents tb_s4 As System.Windows.Forms.TextBox + Friend WithEvents GroupBox1 As System.Windows.Forms.GroupBox + Friend WithEvents GroupBox2 As System.Windows.Forms.GroupBox + Friend WithEvents Label1 As System.Windows.Forms.Label + Friend WithEvents Label2 As System.Windows.Forms.Label + Friend WithEvents GroupBox3 As System.Windows.Forms.GroupBox + Friend WithEvents cmb_fieldc As System.Windows.Forms.ComboBox + Friend WithEvents Label3 As System.Windows.Forms.Label + Friend WithEvents Label4 As System.Windows.Forms.Label + Friend WithEvents tb_valuec As System.Windows.Forms.TextBox + +End Class diff --git a/ArinWarev1/Forms/Frm_Filter.resx b/ArinWarev1/Forms/Frm_Filter.resx new file mode 100644 index 0000000..19dc0dd --- /dev/null +++ b/ArinWarev1/Forms/Frm_Filter.resx @@ -0,0 +1,120 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + \ No newline at end of file diff --git a/ArinWarev1/Forms/Frm_Filter.vb b/ArinWarev1/Forms/Frm_Filter.vb new file mode 100644 index 0000000..3b1a499 --- /dev/null +++ b/ArinWarev1/Forms/Frm_Filter.vb @@ -0,0 +1,253 @@ +Imports System.Windows.Forms + +Public Class Frm_Filter + Public ColumList() As String '//필드네임 + Public ColumTitle() As String '//필드제목줄 + Public Colorlist As String + Public Numfield As String '//숫자필드일경우 + Public Default_Filter As String '//기본값 code <> '0' + + Private Sub Frm_Filter_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load + Init_combo() + + End Sub + + Private Sub Init_combo() '//콤보박스목록을 생성 + Dim CmbJ As String() = {"AND", "OR"} + Dim CmbCond As String() = {"LIKE", "=", "<>", "<=", ">="} + + + '//clear + Me.cmb_j1.Items.Clear() + Me.cmb_j2.Items.Clear() + Me.cmb_j3.Items.Clear() + 'Me.cmb_j4.Items.Clear() + + Me.cmb_cond1.Items.Clear() + Me.cmb_cond2.Items.Clear() + Me.cmb_cond3.Items.Clear() + Me.cmb_cond4.Items.Clear() + + Me.cmb_field1.Items.Clear() + Me.cmb_field2.Items.Clear() + Me.cmb_field3.Items.Clear() + Me.cmb_field4.Items.Clear() + Me.cmb_fieldc.Items.Clear() + + '/set + Me.cmb_j1.Items.AddRange(CmbJ) + Me.cmb_j2.Items.AddRange(CmbJ) + Me.cmb_j3.Items.AddRange(CmbJ) + + + Me.cmb_cond1.Items.AddRange(CmbCond) + Me.cmb_cond2.Items.AddRange(CmbCond) + Me.cmb_cond3.Items.AddRange(CmbCond) + Me.cmb_cond4.Items.AddRange(CmbCond) + + + Try '//필드선택 콤보박승 필드명 넣기 + Me.cmb_field1.Items.AddRange(ColumTitle) + Me.cmb_field2.Items.AddRange(ColumTitle) + Me.cmb_field3.Items.AddRange(ColumTitle) + Me.cmb_field4.Items.AddRange(ColumTitle) + Me.cmb_fieldc.Items.AddRange(ColumTitle) + Catch ex As Exception + MsgBox("필드목록이 없거나 매개변수값이 없습니다", MsgBoxStyle.Critical, "확인") + End Try + + 'Me.cmb_j1.SelectedIndex = 0 + 'Me.cmb_j2.SelectedIndex = 0 + 'Me.cmb_j3.SelectedIndex = 0 + + + 'Me.cmb_cond1.SelectedIndex = 0 + 'Me.cmb_cond2.SelectedIndex = 0 + 'Me.cmb_cond3.SelectedIndex = 0 + 'Me.cmb_cond4.SelectedIndex = 0 + + AddHandler Me.cmb_j1.SelectedIndexChanged, AddressOf event_comboselectindex + AddHandler Me.cmb_j2.SelectedIndexChanged, AddressOf event_comboselectindex + AddHandler Me.cmb_j3.SelectedIndexChanged, AddressOf event_comboselectindex + + AddHandler Me.cmb_cond1.SelectedIndexChanged, AddressOf event_comboselectindex + AddHandler Me.cmb_cond2.SelectedIndexChanged, AddressOf event_comboselectindex + AddHandler Me.cmb_cond3.SelectedIndexChanged, AddressOf event_comboselectindex + AddHandler Me.cmb_cond4.SelectedIndexChanged, AddressOf event_comboselectindex + + AddHandler Me.cmb_field1.SelectedIndexChanged, AddressOf event_comboselectindex + AddHandler Me.cmb_field2.SelectedIndexChanged, AddressOf event_comboselectindex + AddHandler Me.cmb_field3.SelectedIndexChanged, AddressOf event_comboselectindex + AddHandler Me.cmb_field4.SelectedIndexChanged, AddressOf event_comboselectindex + + AddHandler Me.tb_s1.TextChanged, AddressOf event_textboxchange + AddHandler Me.tb_s2.TextChanged, AddressOf event_textboxchange + AddHandler Me.tb_s3.TextChanged, AddressOf event_textboxchange + AddHandler Me.tb_s4.TextChanged, AddressOf event_textboxchange + + + End Sub + + Private Function IsnumField(ByVal v_Fname As String) As Boolean + '//숫자필드목록에서 해당 필드가 잇는지 확인한다. + If Me.Numfield.IndexOf(v_Fname) = -1 Then '//해당필드가 숫자목록에 잇으면 True + Return False + Else + Return True + End If + End Function + Private Sub MakeWhreState() + '//콤보박스값을 가지고 Textbox1 을 생성 + Dim NewStat As New System.Text.StringBuilder() + If Me.cmb_field1.SelectedIndex <> -1 And Me.tb_s1.Text <> "" Then + If cmb_cond1.Text.ToUpper = "LIKE" Then + NewStat.Append(Space(1) + Me.ColumList(Me.cmb_field1.SelectedIndex).ToString + Space(1) + cmb_cond1.Text + Space(1) + "'%" + tb_s1.Text + "%'") + Else + '//숫자필드이면 + If IsnumField(Me.cmb_field1.Text) Then + NewStat.Append(Space(1) + "convert(isnull(" & Me.ColumList(Me.cmb_field1.SelectedIndex).ToString & ",'0'),'System.Single')" + Space(1) + cmb_cond1.Text + Space(1) + tb_s1.Text) + Else + NewStat.Append(Space(1) + Me.ColumList(Me.cmb_field1.SelectedIndex).ToString + Space(1) + cmb_cond1.Text + Space(1) + "'" + tb_s1.Text + "'") + End If + + End If + + End If + If Me.cmb_field2.SelectedIndex <> -1 And Me.tb_s2.Text <> "" Then + If cmb_cond2.Text.ToUpper = "LIKE" Then + NewStat.Append(Space(1) + Me.cmb_j1.Text + Space(1) + Me.ColumList(Me.cmb_field2.SelectedIndex).ToString + Space(1) + cmb_cond2.Text + Space(1) + "'%" + tb_s2.Text + "%'") + Else + If IsnumField(Me.cmb_field1.Text) Then + NewStat.Append(Space(1) + Me.cmb_j1.Text + Space(1) + "convert(isnull(" & Me.ColumList(Me.cmb_field2.SelectedIndex).ToString & ",'0'),'System.Single')" + Space(1) + cmb_cond2.Text + Space(1) + tb_s2.Text) + Else + NewStat.Append(Space(1) + Me.cmb_j1.Text + Space(1) + Me.ColumList(Me.cmb_field2.SelectedIndex).ToString + Space(1) + cmb_cond2.Text + Space(1) + "'" + tb_s2.Text + "'") + End If + + End If + + End If + If Me.cmb_field3.SelectedIndex <> -1 And Me.tb_s3.Text <> "" Then + If cmb_cond3.Text.ToUpper = "LIKE" Then + NewStat.Append(Space(1) + Me.cmb_j2.Text + Space(1) + Me.ColumList(Me.cmb_field3.SelectedIndex).ToString + Space(1) + cmb_cond3.Text + Space(1) + "'%" + tb_s3.Text + "%'") + Else + If IsnumField(Me.cmb_field1.Text) Then + NewStat.Append(Space(1) + Me.cmb_j2.Text + Space(1) + "convert(isnull(" & Me.ColumList(Me.cmb_field3.SelectedIndex).ToString & ",'0'),'System.Single')" + Space(1) + cmb_cond3.Text + Space(1) + tb_s3.Text) + Else + NewStat.Append(Space(1) + Me.cmb_j2.Text + Space(1) + Me.ColumList(Me.cmb_field3.SelectedIndex).ToString + Space(1) + cmb_cond3.Text + Space(1) + "'" + tb_s3.Text + "'") + End If + + End If + + End If + If Me.cmb_field4.SelectedIndex <> -1 And Me.tb_s4.Text <> "" Then + If cmb_cond3.Text.ToUpper = "LIKE" Then + NewStat.Append(Space(1) + Me.cmb_j3.Text + Space(1) + Me.ColumList(Me.cmb_field4.SelectedIndex).ToString + Space(1) + cmb_cond4.Text + Space(1) + "'%" + tb_s4.Text + "%'") + Else + If IsnumField(Me.cmb_field1.Text) Then + NewStat.Append(Space(1) + Me.cmb_j3.Text + Space(1) + "convert(isnull(" & Me.ColumList(Me.cmb_field4.SelectedIndex).ToString & ",'0'),'System.Single')" + Space(1) + cmb_cond4.Text + Space(1) + tb_s4.Text) + Else + NewStat.Append(Space(1) + Me.cmb_j3.Text + Space(1) + Me.ColumList(Me.cmb_field4.SelectedIndex).ToString + Space(1) + cmb_cond4.Text + Space(1) + "'" + tb_s4.Text + "'") + End If + + End If + + End If + If NewStat.ToString.Trim = "" Then + Me.tb_filter.Text = Default_Filter + Else + Me.tb_filter.Text = Default_Filter & " and " + NewStat.ToString + End If + + + End Sub + + Private Sub OK_Button_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OK_Button.Click + If Me.tb_filter.Text = "" Then Me.tb_filter.Text = Default_Filter + Me.DialogResult = System.Windows.Forms.DialogResult.OK + Me.Close() + End Sub + + Private Sub Cancel_Button_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Cancel_Button.Click + Me.DialogResult = System.Windows.Forms.DialogResult.Cancel + Me.Close() + End Sub + + + Private Sub event_textboxchange(ByVal sender As System.Object, ByVal e As System.EventArgs) + Me.MakeWhreState() + End Sub + + Private Sub event_comboselectindex(ByVal sender As System.Object, ByVal e As System.EventArgs) + Me.MakeWhreState() + End Sub + + Private Sub cmb_field1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmb_field1.SelectedIndexChanged + + Dim Find As Boolean = False + For Each C As String In Me.Colorlist.Split(",") + If C.ToUpper = Me.ColumList(Me.cmb_field1.SelectedIndex).ToUpper Then ' Me.cmb_field1.Text.ToUpper Then + Find = True + Exit For + End If + Next + + If Find Then + + Me.tb_s1.BackColor = Color.LightGreen + Else + Me.tb_s1.BackColor = Color.White + End If + End Sub + + Private Sub cmb_field2_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmb_field2.SelectedIndexChanged + + Dim Find As Boolean = False + For Each C As String In Me.Colorlist.Split(",") + If C.ToUpper = Me.ColumList(Me.cmb_field2.SelectedIndex).ToUpper Then + Find = True + Exit For + End If + Next + + If Find Then + Me.tb_s2.BackColor = Color.LightGreen + Else + Me.tb_s2.BackColor = Color.White + End If + End Sub + + Private Sub cmb_field3_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmb_field3.SelectedIndexChanged + Dim Find As Boolean = False + For Each C As String In Me.Colorlist.Split(",") + If C.ToUpper = Me.ColumList(Me.cmb_field3.SelectedIndex).ToUpper Then + Find = True + Exit For + End If + Next + If Find Then + Me.tb_s3.BackColor = Color.LightGreen + Else + Me.tb_s3.BackColor = Color.White + End If + End Sub + + Private Sub cmb_field4_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmb_field4.SelectedIndexChanged + Dim Find As Boolean = False + For Each C As String In Me.Colorlist.Split(",") + If C.ToUpper = Me.ColumList(Me.cmb_field4.SelectedIndex).ToUpper Then + Find = True + Exit For + End If + Next + If Find Then + Me.tb_s4.BackColor = Color.LightGreen + Else + Me.tb_s4.BackColor = Color.White + End If + End Sub + + Private Sub cmb_cond1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmb_cond1.SelectedIndexChanged + + End Sub +End Class + diff --git a/ArinWarev1/Forms/Frm_Intro.Designer.vb b/ArinWarev1/Forms/Frm_Intro.Designer.vb new file mode 100644 index 0000000..4d57a50 --- /dev/null +++ b/ArinWarev1/Forms/Frm_Intro.Designer.vb @@ -0,0 +1,171 @@ + _ +Partial Class Frm_Intro + Inherits CForm + + 'Form은 Dispose를 재정의하여 구성 요소 목록을 정리합니다. + _ + Protected Overrides Sub Dispose(ByVal disposing As Boolean) + Try + If disposing AndAlso components IsNot Nothing Then + components.Dispose() + End If + Finally + MyBase.Dispose(disposing) + End Try + End Sub + + 'Windows Form 디자이너에 필요합니다. + Private components As System.ComponentModel.IContainer + + '참고: 다음 프로시저는 Windows Form 디자이너에 필요합니다. + '수정하려면 Windows Form 디자이너를 사용하십시오. + '코드 편집기를 사용하여 수정하지 마십시오. + _ + Private Sub InitializeComponent() + Me.components = New System.ComponentModel.Container() + Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(Frm_Intro)) + Me.Button1 = New System.Windows.Forms.Button() + Me.Label3 = New System.Windows.Forms.Label() + Me.Label2 = New System.Windows.Forms.Label() + Me.tb_id = New System.Windows.Forms.TextBox() + Me.tb_pw = New System.Windows.Forms.TextBox() + Me.chk_id = New System.Windows.Forms.CheckBox() + Me.chk_pass = New System.Windows.Forms.CheckBox() + Me.ToolTip1 = New System.Windows.Forms.ToolTip(Me.components) + Me.StatusStrip1 = New System.Windows.Forms.StatusStrip() + Me.lbl_ip = New System.Windows.Forms.ToolStripStatusLabel() + Me.StatusStrip1.SuspendLayout() + Me.SuspendLayout() + ' + 'Button1 + ' + Me.Button1.BackColor = System.Drawing.Color.Black + Me.Button1.BackgroundImage = CType(resources.GetObject("Button1.BackgroundImage"), System.Drawing.Image) + Me.Button1.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch + Me.Button1.Location = New System.Drawing.Point(319, 14) + Me.Button1.Name = "Button1" + Me.Button1.Size = New System.Drawing.Size(61, 55) + Me.Button1.TabIndex = 11 + Me.Button1.UseVisualStyleBackColor = False + ' + 'Label3 + ' + Me.Label3.AutoSize = True + Me.Label3.BackColor = System.Drawing.Color.White + Me.Label3.Location = New System.Drawing.Point(42, 49) + Me.Label3.Name = "Label3" + Me.Label3.Size = New System.Drawing.Size(81, 14) + Me.Label3.TabIndex = 12 + Me.Label3.Text = "PASSWORD :" + ' + 'Label2 + ' + Me.Label2.AutoSize = True + Me.Label2.BackColor = System.Drawing.Color.White + Me.Label2.Location = New System.Drawing.Point(42, 21) + Me.Label2.Name = "Label2" + Me.Label2.Size = New System.Drawing.Size(26, 14) + Me.Label2.TabIndex = 12 + Me.Label2.Text = "ID :" + ' + 'tb_id + ' + Me.tb_id.BackColor = System.Drawing.Color.White + Me.tb_id.Font = New System.Drawing.Font("맑은 고딕", 9.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.tb_id.Location = New System.Drawing.Point(129, 17) + Me.tb_id.MaxLength = 10 + Me.tb_id.Name = "tb_id" + Me.tb_id.Size = New System.Drawing.Size(184, 25) + Me.tb_id.TabIndex = 1 + Me.tb_id.TextAlign = System.Windows.Forms.HorizontalAlignment.Center + Me.ToolTip1.SetToolTip(Me.tb_id, "ID를 입력하세요") + ' + 'tb_pw + ' + Me.tb_pw.BackColor = System.Drawing.Color.White + Me.tb_pw.Font = New System.Drawing.Font("맑은 고딕", 9.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.tb_pw.Location = New System.Drawing.Point(129, 44) + Me.tb_pw.MaxLength = 10 + Me.tb_pw.Name = "tb_pw" + Me.tb_pw.PasswordChar = Global.Microsoft.VisualBasic.ChrW(42) + Me.tb_pw.Size = New System.Drawing.Size(184, 25) + Me.tb_pw.TabIndex = 3 + Me.tb_pw.TextAlign = System.Windows.Forms.HorizontalAlignment.Center + Me.ToolTip1.SetToolTip(Me.tb_pw, "암호를 입력하세요") + ' + 'chk_id + ' + Me.chk_id.AutoSize = True + Me.chk_id.BackColor = System.Drawing.Color.Transparent + Me.chk_id.Location = New System.Drawing.Point(21, 22) + Me.chk_id.Name = "chk_id" + Me.chk_id.Size = New System.Drawing.Size(15, 14) + Me.chk_id.TabIndex = 7 + Me.ToolTip1.SetToolTip(Me.chk_id, "사용자 ID를 저장합니다") + Me.chk_id.UseVisualStyleBackColor = False + ' + 'chk_pass + ' + Me.chk_pass.AutoSize = True + Me.chk_pass.BackColor = System.Drawing.Color.Transparent + Me.chk_pass.Location = New System.Drawing.Point(21, 50) + Me.chk_pass.Name = "chk_pass" + Me.chk_pass.Size = New System.Drawing.Size(15, 14) + Me.chk_pass.TabIndex = 8 + Me.ToolTip1.SetToolTip(Me.chk_pass, "사용자 암호를 저장합니다") + Me.chk_pass.UseVisualStyleBackColor = False + ' + 'StatusStrip1 + ' + Me.StatusStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.lbl_ip}) + Me.StatusStrip1.Location = New System.Drawing.Point(0, 82) + Me.StatusStrip1.Name = "StatusStrip1" + Me.StatusStrip1.Size = New System.Drawing.Size(396, 22) + Me.StatusStrip1.TabIndex = 16 + Me.StatusStrip1.Text = "StatusStrip1" + ' + 'lbl_ip + ' + Me.lbl_ip.Name = "lbl_ip" + Me.lbl_ip.Size = New System.Drawing.Size(25, 17) + Me.lbl_ip.Text = "[IP]" + ' + 'Frm_Intro + ' + Me.AutoScaleDimensions = New System.Drawing.SizeF(7.0!, 14.0!) + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font + Me.ClientSize = New System.Drawing.Size(396, 104) + Me.Controls.Add(Me.StatusStrip1) + Me.Controls.Add(Me.Button1) + Me.Controls.Add(Me.Label3) + Me.Controls.Add(Me.Label2) + Me.Controls.Add(Me.tb_id) + Me.Controls.Add(Me.tb_pw) + Me.Controls.Add(Me.chk_pass) + Me.Controls.Add(Me.chk_id) + Me.Font = New System.Drawing.Font("나눔고딕", 8.999999!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.MaximizeBox = False + Me.MinimizeBox = False + Me.Name = "Frm_Intro" + Me.ShowIcon = False + Me.ShowInTaskbar = False + Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen + Me.Text = "사용자확인" + Me.TransparencyKey = System.Drawing.SystemColors.AppWorkspace + Me.StatusStrip1.ResumeLayout(False) + Me.StatusStrip1.PerformLayout() + Me.ResumeLayout(False) + Me.PerformLayout() + + End Sub + Friend WithEvents chk_id As System.Windows.Forms.CheckBox + Friend WithEvents chk_pass As System.Windows.Forms.CheckBox + Friend WithEvents tb_id As System.Windows.Forms.TextBox + Friend WithEvents tb_pw As System.Windows.Forms.TextBox + Friend WithEvents ToolTip1 As System.Windows.Forms.ToolTip + Friend WithEvents Label3 As System.Windows.Forms.Label + Friend WithEvents Label2 As System.Windows.Forms.Label + Friend WithEvents Button1 As System.Windows.Forms.Button + Friend WithEvents StatusStrip1 As System.Windows.Forms.StatusStrip + Friend WithEvents lbl_ip As System.Windows.Forms.ToolStripStatusLabel +End Class diff --git a/ArinWarev1/Forms/Frm_Intro.resx b/ArinWarev1/Forms/Frm_Intro.resx new file mode 100644 index 0000000..6e37fb1 --- /dev/null +++ b/ArinWarev1/Forms/Frm_Intro.resx @@ -0,0 +1,611 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + + + /9j/4AAQSkZJRgABAgEASABIAAD/7gAOQWRvYmUAZAAAAAAB/+ELWEV4aWYAAE1NACoAAAAIAAcBEgAD + AAAAAQABAAABGgAFAAAAAQAAAGIBGwAFAAAAAQAAAGoBKAADAAAAAQACAAABMQACAAAAHAAAAHIBMgAC + AAAAFAAAAI6HaQAEAAAAAQAAAKIAAADCAEgAAAABAAAASAAAAAEAAEFkb2JlIFBob3Rvc2hvcCBDUzMg + V2luZG93cwAyMDEwOjA0OjEzIDExOjM1OjE4AAACoAIABAAAAAEAAAFSoAMABAAAAAEAAACdAAAAAAAA + AAYBAwADAAAAAQAGAAABGgAFAAAAAQAAARABGwAFAAAAAQAAARgBKAADAAAAAQACAAACAQAEAAAAAQAA + ASACAgAEAAAAAQAACi8AAAAAAAAASAAAAAEAAABIAAAAAf/Y/+AAEEpGSUYAAQIAAEgASAAA/+0ADEFk + b2JlX0NNAAH/7gAOQWRvYmUAZIAAAAAB/9sAhAAMCAgICQgMCQkMEQsKCxEVDwwMDxUYExMVExMYEQwM + DAwMDBEMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMAQ0LCw0ODRAODhAUDg4OFBQODg4OFBEMDAwM + DBERDAwMDAwMEQwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAz/wAARCABKAKADASIAAhEBAxEB/90A + BAAK/8QBPwAAAQUBAQEBAQEAAAAAAAAAAwABAgQFBgcICQoLAQABBQEBAQEBAQAAAAAAAAABAAIDBAUG + BwgJCgsQAAEEAQMCBAIFBwYIBQMMMwEAAhEDBCESMQVBUWETInGBMgYUkaGxQiMkFVLBYjM0coLRQwcl + klPw4fFjczUWorKDJkSTVGRFwqN0NhfSVeJl8rOEw9N14/NGJ5SkhbSVxNTk9KW1xdXl9VZmdoaWprbG + 1ub2N0dXZ3eHl6e3x9fn9xEAAgIBAgQEAwQFBgcHBgU1AQACEQMhMRIEQVFhcSITBTKBkRShsUIjwVLR + 8DMkYuFygpJDUxVjczTxJQYWorKDByY1wtJEk1SjF2RFVTZ0ZeLys4TD03Xj80aUpIW0lcTU5PSltcXV + 5fVWZnaGlqa2xtbm9ic3R1dnd4eXp7fH/9oADAMBAAIRAxEAPwDrM3MtzLnue4+iHEV1T7Q0GGucz897 + /pe9VtjP3G/cE44R/sOb/wBx7P8ANXPSOTJKUtZm9f0mnROtW19jP3G/cEtjP3G/cE6SjVQW2M/cb9wS + 2M/cb9wTp2MfYdtbXPPg0F3/AFKWuyq8GOxn7jfuCWxn7jfuCsfYc3n7PZ/modlN9Qm2t9Y8XNIH+cnG + EwLMZAeIKeHwR7GfuN+4JbGfuN+4J0iQOdE1FBbYz9xv3BLYz9xv3BFZj5LxLKbHDxDTH5FL7Dm/9x7P + 81OEJnaMj5Ap4fBBsZ+437glsZ+437gpOa5ri1whzTBB5BCeuqy122phe6J2tEmEKN1rfZFeDDYz9xv3 + BLYz9xv3BFsx8ipodbU6tpMAuECfBDSIINEEeaq8FtjP3G/cEtjP3G/cFOuq63+arfZ5taSPvCJ9izR/ + 2ns/zSiISIsRJHgFcPgg2M/cb9wVnCzLcO5jmOPolwFlU+0tJhzms/Mez6XsQHNcx217Sx3g4EH/AKSY + 8IwnKEwYkiQKttRoQ//Q6Pt/r4rrfz/muS7Lq67WXNbbUd7HaghZnw0jiyjr6f8Au2HB1+jyzvpO/rH8 + qZXbOj57Xu2tbY0kkODgNCf3X7VH9k9R/wBF/wBJv/klSPL5r/m5/wCLJj4Jdj9iDGrbbk1VP+i94a6P + ArobnjFxLH1NAFTCWsGjdP6qwWB2Jm1+uNppe1zwNYH0vzf5JW9cwZWJYyp4ItYQ141Gv9VXOQFQzACs + osAfp7f9+yYtpfvOIeq9RJn1o8g1sf8AUrW6Zl25WM51sFzHlhIEAiGu1b/aWUek9RBj0p8w5sfi4LV6 + ZiW4uM5tsbnuLyBqAIDY3f2UeT+8+7+s9zgo37nFw/8APVj4+LW68XL6rRVRmbahta9geWjgElwO3/NV + 3o2LUKBkloda4uDXHXaGnb7VS6rfVfmF1R3NYwMLhwSC4nb/AJyu9Hy6fQGM5wba0uLQdNwcd3tTMHtf + fJ/Lw+rg/d47/R/5yI8PuH8FdT6lkY93oUwPaHF7huOs6NH0UNj+v2MbYwgseA5p/RjQ6hE6l0y/Iu9e + ktnaGuY7Tju13zUcHF6pVk1esXfZ2SHN9QFsbSGjZP7ykmM5zkT94QlKoHEeGMYn9KS48XFrxVenC0cr + Dza92Rksje73Olplzv5LEbov9OP/ABbvysV7rX9B/wCuM/iqPRf6cf8Ai3flYoTiji5vHGJJ1jK5anVb + w8OQANvrn9Er/wCNH/UvWd06iu/MZXYNzAC4t7HaOCtHrn9Er/40f9S9Uuj/ANPb/Uf+RO5kA87AEWCY + Kn/OD6Ovm3vxsOy2sCWABoPAkhnA/dlZDesZzXBznNe0HVpaBI+LVp9V/wCTrv7H/VtXPHhHn82SGWIh + MxHAJUDWvFJOWREhRrR6q+iu9jqbRuYfHkfym/uuXK9l1v5/zXJdv9fFO+JAcWI1qeLXy4FZ+n1f/9Hp + BwnY97Durc5hPJaS3/qUw4SXNnf6tMdEwzcwf9qLP84pfbc3/uRZ/nFBSR9yf78v8Yps9yu977HF9ji9 + 55cdSYSY59Z3Vucw+LSWn/opkkLN317qTfbMzj7RZ/nFDstutEW2PsHg5xI+4lRSRM5EUZE+ZVZ7qSIB + 0OqSSahmy++sRXa9g8A4gflU/tub/wByLP8AOKEASQACSdABqSpejd/on/5jv7k8SnWhl9CU2fFezJyL + W7bbXvbztcZEhRrssqduqeWOiNzTBhM5rmkB7S0nUBwI/wCqTJplK7JNjreqrKSzIyLQG22vsaDIDjIn + xUWWWVu31uLHDTc0wdVFJLiJNkm+96qspX5WTY0ssue9h5a4yNNUJJJIknUknz1Vab7bm/8Aciz/ADig + nhJI8I8UiRZJ8zaCTT//0ukHCSQ4SXNnctMbKSSSQUpOxrnvaxurnkNaONToEylU/wBO1lkbtjg6OJg7 + oRFWL26pbP7J6h/oh/nt/vS/ZPUP9EP89v8AerP7ef8A9x2/55/8gl+3n/8Acdv+ef8AyCucHI/53J9n + /rtkrF+8f5fRrfsnqH+iH+e3+9L9k9Q/0Q/z2/3qz+3n/wDcdv8Ann/yCX7ef/3Hb/nn/wAglwcj/ncn + 2f8ArtVYv3j/AC+jW/ZPUP8ARD/Pb/5JX8R3WKIZdX61XiXt3j4OLvf/AG0H9vP/AO47f88/+QR8XqOX + ln9FjNDBzY55DR/0Pf8A2VJhHKxmPay5eI9Ij5vMe0mPAD6ZG/5f1W7dTVkV7Lmb2nWDyD/JP5rv6qxs + zpNtANlM21DUj89o84+m3+qtswASTAAkngLMzOstbNeH7nd7j9Ef8W38/wDrfQVjnIYDG8vpl+iY/wA5 + /wChL8gjXq/tcjlJIkkkkySZJPclJYzWUkkkkpSR4SSPCI3Cjs//0+mtrdTdZS8Q+pxaR5T7H/1bG+5R + Wt9Yua/5rg/+GP8ArP8AwX76xP8A2IXO5OHjlwE8N6cQ1aflslSQv/YhL/2ITFapUkL/ANiEv/YhJWqV + JC/9iEv/AGISVqlSQv8A2IS/9iElapVZHUs8AAXEAaABrQB/0VR/9iEv/YhSY/d19vj8fb4vx4Eji6X9 + G1dl5WQ0Mutc9o12mAPmGhu5CQv/AGIS/wDYhNnx8Xr4uL+vfF/zlHivX8UqSF/7EJf+xCajVKkhf+xC + X/sQkrVKpVVuuurpYJfa4NA8p97/AOrW33IH/sQtv6u82fzXA/8ADH/Xv+C/cT8fDxx4yeG9eEaq89n/ + 2QD/4gxYSUNDX1BST0ZJTEUAAQEAAAxITGlubwIQAABtbnRyUkdCIFhZWiAHzgACAAkABgAxAABhY3Nw + TVNGVAAAAABJRUMgc1JHQgAAAAAAAAAAAAAAAAAA9tYAAQAAAADTLUhQICAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABFjcHJ0AAABUAAAADNkZXNjAAABhAAAAGx3dHB0 + AAAB8AAAABRia3B0AAACBAAAABRyWFlaAAACGAAAABRnWFlaAAACLAAAABRiWFlaAAACQAAAABRkbW5k + AAACVAAAAHBkbWRkAAACxAAAAIh2dWVkAAADTAAAAIZ2aWV3AAAD1AAAACRsdW1pAAAD+AAAABRtZWFz + AAAEDAAAACR0ZWNoAAAEMAAAAAxyVFJDAAAEPAAACAxnVFJDAAAEPAAACAxiVFJDAAAEPAAACAx0ZXh0 + AAAAAENvcHlyaWdodCAoYykgMTk5OCBIZXdsZXR0LVBhY2thcmQgQ29tcGFueQAAZGVzYwAAAAAAAAAS + c1JHQiBJRUM2MTk2Ni0yLjEAAAAAAAAAAAAAABJzUkdCIElFQzYxOTY2LTIuMQAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAWFlaIAAAAAAAAPNRAAEAAAABFsxYWVog + AAAAAAAAAAAAAAAAAAAAAFhZWiAAAAAAAABvogAAOPUAAAOQWFlaIAAAAAAAAGKZAAC3hQAAGNpYWVog + AAAAAAAAJKAAAA+EAAC2z2Rlc2MAAAAAAAAAFklFQyBodHRwOi8vd3d3LmllYy5jaAAAAAAAAAAAAAAA + FklFQyBodHRwOi8vd3d3LmllYy5jaAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAABkZXNjAAAAAAAAAC5JRUMgNjE5NjYtMi4xIERlZmF1bHQgUkdCIGNvbG91ciBzcGFjZSAt + IHNSR0IAAAAAAAAAAAAAAC5JRUMgNjE5NjYtMi4xIERlZmF1bHQgUkdCIGNvbG91ciBzcGFjZSAtIHNS + R0IAAAAAAAAAAAAAAAAAAAAAAAAAAAAAZGVzYwAAAAAAAAAsUmVmZXJlbmNlIFZpZXdpbmcgQ29uZGl0 + aW9uIGluIElFQzYxOTY2LTIuMQAAAAAAAAAAAAAALFJlZmVyZW5jZSBWaWV3aW5nIENvbmRpdGlvbiBp + biBJRUM2MTk2Ni0yLjEAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAHZpZXcAAAAAABOk/gAUXy4AEM8U + AAPtzAAEEwsAA1yeAAAAAVhZWiAAAAAAAEwJVgBQAAAAVx/nbWVhcwAAAAAAAAABAAAAAAAAAAAAAAAA + AAAAAAAAAo8AAAACc2lnIAAAAABDUlQgY3VydgAAAAAAAAQAAAAABQAKAA8AFAAZAB4AIwAoAC0AMgA3 + ADsAQABFAEoATwBUAFkAXgBjAGgAbQByAHcAfACBAIYAiwCQAJUAmgCfAKQAqQCuALIAtwC8AMEAxgDL + ANAA1QDbAOAA5QDrAPAA9gD7AQEBBwENARMBGQEfASUBKwEyATgBPgFFAUwBUgFZAWABZwFuAXUBfAGD + AYsBkgGaAaEBqQGxAbkBwQHJAdEB2QHhAekB8gH6AgMCDAIUAh0CJgIvAjgCQQJLAlQCXQJnAnECegKE + Ao4CmAKiAqwCtgLBAssC1QLgAusC9QMAAwsDFgMhAy0DOANDA08DWgNmA3IDfgOKA5YDogOuA7oDxwPT + A+AD7AP5BAYEEwQgBC0EOwRIBFUEYwRxBH4EjASaBKgEtgTEBNME4QTwBP4FDQUcBSsFOgVJBVgFZwV3 + BYYFlgWmBbUFxQXVBeUF9gYGBhYGJwY3BkgGWQZqBnsGjAadBq8GwAbRBuMG9QcHBxkHKwc9B08HYQd0 + B4YHmQesB78H0gflB/gICwgfCDIIRghaCG4IggiWCKoIvgjSCOcI+wkQCSUJOglPCWQJeQmPCaQJugnP + CeUJ+woRCicKPQpUCmoKgQqYCq4KxQrcCvMLCwsiCzkLUQtpC4ALmAuwC8gL4Qv5DBIMKgxDDFwMdQyO + DKcMwAzZDPMNDQ0mDUANWg10DY4NqQ3DDd4N+A4TDi4OSQ5kDn8Omw62DtIO7g8JDyUPQQ9eD3oPlg+z + D88P7BAJECYQQxBhEH4QmxC5ENcQ9RETETERTxFtEYwRqhHJEegSBxImEkUSZBKEEqMSwxLjEwMTIxND + E2MTgxOkE8UT5RQGFCcUSRRqFIsUrRTOFPAVEhU0FVYVeBWbFb0V4BYDFiYWSRZsFo8WshbWFvoXHRdB + F2UXiReuF9IX9xgbGEAYZRiKGK8Y1Rj6GSAZRRlrGZEZtxndGgQaKhpRGncanhrFGuwbFBs7G2Mbihuy + G9ocAhwqHFIcexyjHMwc9R0eHUcdcB2ZHcMd7B4WHkAeah6UHr4e6R8THz4faR+UH78f6iAVIEEgbCCY + IMQg8CEcIUghdSGhIc4h+yInIlUigiKvIt0jCiM4I2YjlCPCI/AkHyRNJHwkqyTaJQklOCVoJZclxyX3 + JicmVyaHJrcm6CcYJ0kneierJ9woDSg/KHEooijUKQYpOClrKZ0p0CoCKjUqaCqbKs8rAis2K2krnSvR + LAUsOSxuLKIs1y0MLUEtdi2rLeEuFi5MLoIuty7uLyQvWi+RL8cv/jA1MGwwpDDbMRIxSjGCMbox8jIq + MmMymzLUMw0zRjN/M7gz8TQrNGU0njTYNRM1TTWHNcI1/TY3NnI2rjbpNyQ3YDecN9c4FDhQOIw4yDkF + OUI5fzm8Ofk6Njp0OrI67zstO2s7qjvoPCc8ZTykPOM9Ij1hPaE94D4gPmA+oD7gPyE/YT+iP+JAI0Bk + QKZA50EpQWpBrEHuQjBCckK1QvdDOkN9Q8BEA0RHRIpEzkUSRVVFmkXeRiJGZ0arRvBHNUd7R8BIBUhL + SJFI10kdSWNJqUnwSjdKfUrESwxLU0uaS+JMKkxyTLpNAk1KTZNN3E4lTm5Ot08AT0lPk0/dUCdQcVC7 + UQZRUFGbUeZSMVJ8UsdTE1NfU6pT9lRCVI9U21UoVXVVwlYPVlxWqVb3V0RXklfgWC9YfVjLWRpZaVm4 + WgdaVlqmWvVbRVuVW+VcNVyGXNZdJ114XcleGl5sXr1fD19hX7NgBWBXYKpg/GFPYaJh9WJJYpxi8GND + Y5dj62RAZJRk6WU9ZZJl52Y9ZpJm6Gc9Z5Nn6Wg/aJZo7GlDaZpp8WpIap9q92tPa6dr/2xXbK9tCG1g + bbluEm5rbsRvHm94b9FwK3CGcOBxOnGVcfByS3KmcwFzXXO4dBR0cHTMdSh1hXXhdj52m3b4d1Z3s3gR + eG54zHkqeYl553pGeqV7BHtje8J8IXyBfOF9QX2hfgF+Yn7CfyN/hH/lgEeAqIEKgWuBzYIwgpKC9INX + g7qEHYSAhOOFR4Wrhg6GcobXhzuHn4gEiGmIzokziZmJ/opkisqLMIuWi/yMY4zKjTGNmI3/jmaOzo82 + j56QBpBukNaRP5GokhGSepLjk02TtpQglIqU9JVflcmWNJaflwqXdZfgmEyYuJkkmZCZ/JpomtWbQpuv + nByciZz3nWSd0p5Anq6fHZ+Ln/qgaaDYoUehtqImopajBqN2o+akVqTHpTilqaYapoum/adup+CoUqjE + qTepqaocqo+rAqt1q+msXKzQrUStuK4trqGvFq+LsACwdbDqsWCx1rJLssKzOLOutCW0nLUTtYq2AbZ5 + tvC3aLfguFm40blKucK6O7q1uy67p7whvJu9Fb2Pvgq+hL7/v3q/9cBwwOzBZ8Hjwl/C28NYw9TEUcTO + xUvFyMZGxsPHQce/yD3IvMk6ybnKOMq3yzbLtsw1zLXNNc21zjbOts83z7jQOdC60TzRvtI/0sHTRNPG + 1EnUy9VO1dHWVdbY11zX4Nhk2OjZbNnx2nba+9uA3AXcit0Q3ZbeHN6i3ynfr+A24L3hROHM4lPi2+Nj + 4+vkc+T85YTmDeaW5x/nqegy6LzpRunQ6lvq5etw6/vshu0R7ZzuKO6070DvzPBY8OXxcvH/8ozzGfOn + 9DT0wvVQ9d72bfb794r4Gfio+Tj5x/pX+uf7d/wH/Jj9Kf26/kv+3P9t////2wBDAAEBAQEBAQEBAQEB + AQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQECAgICAgICAgICAgMDAwMDAwMDAwP/2wBDAQEB + AQEBAQEBAQECAgECAgMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMD + AwP/wAARCACdAVIDAREAAhEBAxEB/8QAHwAAAQUBAQEBAQEAAAAAAAAAAAECAwQFBgcICQoL/8QAtRAA + AgEDAwIEAwUFBAQAAAF9AQIDAAQRBRIhMUEGE1FhByJxFDKBkaEII0KxwRVS0fAkM2JyggkKFhcYGRol + JicoKSo0NTY3ODk6Q0RFRkdISUpTVFVWV1hZWmNkZWZnaGlqc3R1dnd4eXqDhIWGh4iJipKTlJWWl5iZ + mqKjpKWmp6ipqrKztLW2t7i5usLDxMXGx8jJytLT1NXW19jZ2uHi4+Tl5ufo6erx8vP09fb3+Pn6/8QA + HwEAAwEBAQEBAQEBAQAAAAAAAAECAwQFBgcICQoL/8QAtREAAgECBAQDBAcFBAQAAQJ3AAECAxEEBSEx + BhJBUQdhcRMiMoEIFEKRobHBCSMzUvAVYnLRChYkNOEl8RcYGRomJygpKjU2Nzg5OkNERUZHSElKU1RV + VldYWVpjZGVmZ2hpanN0dXZ3eHl6goOEhYaHiImKkpOUlZaXmJmaoqOkpaanqKmqsrO0tba3uLm6wsPE + xcbHyMnK0tPU1dbX2Nna4uPk5ebn6Onq8vP09fb3+Pn6/9oADAMBAAIRAxEAPwD+0v8Aad/aZsPgXplj + oWg2Vr4i+KPie1mufDmg3byppek6XDN9mufFnimW3ZZ4NFtp8x28EZW41G5UxRFESeeD8Z8ZPGLKPCjJ + oVJwjiOIcRF/V6F9HbR1KltVTT0S0c5Jxi0lKUfz3jjjaXDn1bKcow8MRxPiYOVOErqnSpJ8ssRXa1VN + P3YQjadafuRtGNSpT/ILxp4x8efE27uL34l+N/EfjN7mSSQ6Te6hcWPhCzWXANtpfgvTpbfw3aW6IoQM + 8E106qPOmlfLn/NDi/xh8QuNsTWrZxxHiFhpN2o05OnRin0jCNo7WTdru1229T8YxeXVs5lKtxPmeIzK + vJtuNWTWHjfpTwsGqEYrZNwnUatz1JvU84/4QfwV/wBCf4X/APCf0n/5Er8//tPMv+hhX/8ABkv8zg/1 + O4R/6JXLf/Caj/8AIB/wg/gr/oT/AAv/AOE/pP8A8iUf2nmX/Qwr/wDgyX+Yf6ncI/8ARK5b/wCE1H/5 + AP8AhB/BX/Qn+F//AAn9J/8AkSj+08y/6GFf/wAGS/zD/U7hH/olct/8JqP/AMgH/CD+Cv8AoT/C/wD4 + T+k//IlH9p5l/wBDCv8A+DJf5h/qdwj/ANErlv8A4TUf/kA/4QfwV/0J/hf/AMJ/Sf8A5Eo/tPMv+hhX + /wDBkv8AMP8AU7hH/olct/8ACaj/APIB/wAIP4K/6E/wv/4T+k//ACJR/aeZf9DCv/4Ml/mH+p3CP/RK + 5b/4TUf/AJAP+EH8Ff8AQn+F/wDwn9J/+RKP7TzL/oYV/wDwZL/MP9TuEf8Aolct/wDCaj/8gH/CD+Cv + +hP8L/8AhP6T/wDIlH9p5l/0MK//AIMl/mH+p3CP/RK5b/4TUf8A5AP+EH8Ff9Cf4X/8J/Sf/kSj+08y + /wChhX/8GS/zD/U7hH/olct/8JqP/wAgH/CD+Cv+hP8AC/8A4T+k/wDyJR/aeZf9DCv/AODJf5h/qdwj + /wBErlv/AITUf/kA/wCEH8Ff9Cf4X/8ACf0n/wCRKP7TzL/oYV//AAZL/MP9TuEf+iVy3/wmo/8AyAf8 + IP4K/wChP8L/APhP6T/8iUf2nmX/AEMK/wD4Ml/mH+p3CP8A0SuW/wDhNR/+QD/hB/BX/Qn+F/8Awn9J + /wDkSj+08y/6GFf/AMGS/wAw/wBTuEf+iVy3/wAJqP8A8gH/AAg/gr/oT/C//hP6T/8AIlH9p5l/0MK/ + /gyX+Yf6ncI/9Erlv/hNR/8AkA/4QfwV/wBCf4X/APCf0n/5Eo/tPMv+hhX/APBkv8w/1O4R/wCiVy3/ + AMJqP/yAf8IP4K/6E/wv/wCE/pP/AMiUf2nmX/Qwr/8AgyX+Yf6ncI/9Erlv/hNR/wDkA/4QfwV/0J/h + f/wn9J/+RKP7TzL/AKGFf/wZL/MP9TuEf+iVy3/wmo//ACAf8IP4K/6E/wAL/wDhP6T/APIlH9p5l/0M + K/8A4Ml/mH+p3CP/AESuW/8AhNR/+QD/AIQfwV/0J/hf/wAJ/Sf/AJEo/tPMv+hhX/8ABkv8w/1O4R/6 + JXLf/Caj/wDIB/wg/gr/AKE/wv8A+E/pP/yJR/aeZf8AQwr/APgyX+Yf6ncI/wDRK5b/AOE1H/5AP+EH + 8Ff9Cf4X/wDCf0n/AORKP7TzL/oYV/8AwZL/ADD/AFO4R/6JXLf/AAmo/wDyAf8ACD+Cv+hP8L/+E/pP + /wAiUf2nmX/Qwr/+DJf5h/qdwj/0SuW/+E1H/wCQD/hB/BX/AEJ/hf8A8J/Sf/kSj+08y/6GFf8A8GS/ + zD/U7hH/AKJXLf8Awmo//IB/wg/gr/oT/C//AIT+k/8AyJR/aeZf9DCv/wCDJf5h/qdwj/0SuW/+E1H/ + AOQD/hB/BX/Qn+F//Cf0n/5Eo/tPMv8AoYV//Bkv8w/1O4R/6JXLf/Caj/8AIB/wg/gr/oT/AAv/AOE/ + pP8A8iUf2nmX/Qwr/wDgyX+Yf6ncI/8ARK5b/wCE1H/5AP8AhB/BX/Qn+F//AAn9J/8AkSj+08y/6GFf + /wAGS/zD/U7hH/olct/8JqP/AMgH/CD+Cv8AoT/C/wD4T+k//IlH9p5l/wBDCv8A+DJf5h/qdwj/ANEr + lv8A4TUf/kA/4QfwV/0J/hf/AMJ/Sf8A5Eo/tPMv+hhX/wDBkv8AMP8AU7hH/olct/8ACaj/APIB/wAI + P4K/6E/wv/4T+k//ACJR/aeZf9DCv/4Ml/mH+p3CP/RK5b/4TUf/AJAP+EH8Ff8AQn+F/wDwn9J/+RKP + 7TzL/oYV/wDwZL/MP9TuEf8Aolct/wDCaj/8gH/CD+Cv+hP8L/8AhP6T/wDIlH9p5l/0MK//AIMl/mH+ + p3CP/RK5b/4TUf8A5AP+EH8Ff9Cf4X/8J/Sf/kSj+08y/wChhX/8GS/zD/U7hH/olct/8JqP/wAgH/CD + +Cv+hP8AC/8A4T+k/wDyJR/aeZf9DCv/AODJf5h/qdwj/wBErlv/AITUf/kA/wCEH8Ff9Cf4X/8ACf0n + /wCRKP7TzL/oYV//AAZL/MP9TuEf+iVy3/wmo/8AyAf8IP4K/wChP8L/APhP6T/8iUf2nmX/AEMK/wD4 + Ml/mH+p3CP8A0SuW/wDhNR/+QD/hB/BX/Qn+F/8Awn9J/wDkSj+08y/6GFf/AMGS/wAw/wBTuEf+iVy3 + /wAJqP8A8gH/AAg/gr/oT/C//hP6T/8AIlH9p5l/0MK//gyX+Yf6ncI/9Erlv/hNR/8AkDodAhm8H3K3 + 3gfUtY8BX8bF477wNq+oeE5g5XaTKmiXFnbXkbLw0c8csUg4dWBIr3si464w4axEcVkfEmMw9VO/u1Zp + Pyavqns091ob0eHMqwMvaZPRll2IW08HOWFkn3fsXCMvOM4yi9pRa0P0s/Zg/bC1nXNf0r4V/Gm8tbrW + tali0/wP8Q4bS302LxJqexynhvxZY2UcGm6b4mvFjzZ3NtHDZ6g+YfKgn8pLj+/fAf6Rq43xNDhLjN06 + XEcklRrRSjDEP+WSXuxqv7Nkozfu2UuXn/SeEePMywuY4Thzi6vGssRJQwuMUVD2lSztQxMYpQhWkl+6 + qQjGlWd4clOpyRqfpJX9dH7Qfz0/E/xfd/ET4s/E/wAdX0rzHVfGmuaLo3mEH7J4R8Hald+GPDFpAqgJ + DDPYaab10XKm5vZn3MWLH/Hzx24qxXFnidxPi61Vyw1DESoUVfRU6T5I2WybSvK32m3q22/5aw+KnnGa + 8RcR123WxeOqxg39nD4apLD4eC7RcIe1aX26s3d3ucbX4+eiFABQAUAFABQAUAFABQAUAFABQAUAFABQ + AUAFABQAUAFABQAUAFABQAUAFABQAUAFABQAUAFABQAUAFABQAUAFABQAUAUtRtGvrOa3iuJrO5+Sayv + rZ2iutO1C2kS507UrSVCHhvNPvYo5onBysiAjpXZl2PxOV4/CZjhKsoYmjUjOMk7NOLurNbHn5rl8M0y + /FYGc3Fzj7slpKE171OpF9JU5qM4vpKKZ+hH/DdHiT/n0t/+TMv+Fof8e9p/yXb/AKAn+p/5BPt1/wCm + Ff6g/wDEcKneP/JHf2jtH/ff5f8Ar3/XKdv/ABGXN/8AoHX/ACSX1r4V/wAjX/n1t8H9ch+f6/8AH1rH + /YyeKf8A1I9Ur/N7jz/kteKv+w+v/wCnJHkcP/8AIqpf9fa3/p6oS18me0FABQAUAFABQAUAFABQAUAF + ABQAUAFABQAUAFABQAUAFABQAUAFABQAUAFABQAUAFABQAUAFABQAUAFABQAUAFABQAUAFAGb/8AQ31/ + WP8A9AR+Lf8AztLq/wDH1rH/AGMnin/1I9Ur+euPP+S14q/7D6//AKckfp/D/wDyKqX/AF9rf+nqhLXy + Z7R1cPgPxzcwxXFv4M8WT288cc0E8Ph3WJYZoZVDxSxSpZskkciMCrAkEHIr6ejwRxniKVKvQ4RzSdCc + VKMo4Wu4yi1dSi1Taaad01o1qjtjluYzjGUcBWcWrpqErNd1oS/8K88f/wDQjeMP/CZ1r/5CrT/UPjn/ + AKIzNv8AwkxH/wArH/ZeZ/8AQur/APguf+Rz2paVqmjXJstX02/0q8VEka01KzuLG5EcgJjkMF1HFKEc + Dg4we1eFmGWZllOJeDzXL6+GxaSfJVpypzs9nyzSlZ9HbU5atGtQn7OvSlCp2kmn9z1KFcJmFABQAUAF + ABQAUAXrLTNS1JmTTtPvtQdeWSytJ7plGCcssEchHArsweXZhmEpQwGBrV5rdU4Sm16qKZpTpVarapUp + Sfkm/wAjqoPhl8SbosLb4feOLgoAXEHhPXpigbOCwjsG2g44zX01Dw58QsS5LDcCZzUa35cFiZW9bUnY + 7I5Tms78uWYh+lOf+Qk/wz+JFqVW5+H3je3ZgSqz+FNeiLAHBKiSwUkA0VvDrxBwzjHEcCZzTk9ubBYm + N/S9JBLKc1h8WWYhetOf+Ry17pmpaaypqOn32nu3Kpe2k9qzDAOVWeOMng18zjMuzDL5Rhj8DWoTeyqQ + lBv0UkjjqUqtJpVaUovzTX5lGuMzCgAoAKACgAoA0LPSdV1H/kH6ZqF/yw/0OzubrlQCw/cRvyoIz6Zr + uwmWZlj/APcMur19/wCHTnPbf4U9uppCjWq/w6Upeib/ACN2LwD46mRZYfBfi2WN8lZIvDmsSIwBIJV1 + sypwRjivap8D8a1oRqUuEM0lTezWErtP0ap2OlZbmMkpRwFdr/BL/If/AMK88f8A/QjeMP8Awmda/wDk + Kr/1D45/6IzNv/CTEf8Aysf9l5n/ANC6v/4Ln/kZ2p+E/FOi2wvNZ8NeINJtDIsIutT0bUbC2MzhmSIT + 3VtFEZHVCQuckA+lcGY8McS5Ph1i824ex2Fwrko89ahVpw5ndqPNOEVdpOyvd2fYyrYLGYeHtK+Eqwhe + 15RklftdpGBXhnMFAE9ra3V9cwWdlbXF5d3MiQ21rawyXFzcTSHakUEESvLLI7HAVQSTW+Gw2JxuIo4T + B4edXFVJKMIQi5TlJ6KMYxTcm3skm2VCE6k406cHKbdkkrtvsktzqf8AhXnj/wD6Ebxh/wCEzrX/AMhV + 9J/qHxz/ANEZm3/hJiP/AJWdn9l5n/0Lq/8A4Ln/AJENx4F8b2dvPd3fg7xVa2trDLcXNzceHtXgt7e3 + gRpZp55pbNY4YYY1LMzEKqgknFZYjgrjLC0K2KxXCWZ08NTg5znPC14xhGKvKUpOCUYxSbbbSSV3oTLL + swhGU54CsoJXbcJJJLdt20SOVr5k4woAKACgDTsdF1jVP+QZpOp6j2/0GwurvncFx/o8Un8TAfU16OCy + jNsy/wCRdleIxH/XunOfl9mL66GtOhXrfwqM5eib/I3f+FeeP/8AoRvGH/hM61/8hV7X+ofHP/RGZt/4 + SYj/AOVnT/ZeZ/8AQur/APguf+RSu/B3i7TwWv8Awt4jslChy13oep2wCFtoYma1QBS3Gema5MVwnxTg + U5Y3hrMKMbXvPD1oaXtf3oLS+nqZzwONpfxcHVj6wkvzRzpBUlWBVlJDKQQQQcEEHkEGvAacW4yVpI5d + hKQBQAUAZv8A9DfX9Y//AEBH4t/87S6v/H1rH/YyeKf/AFI9Ur+euPP+S14q/wCw+v8A+nJH6fw//wAi + ql/19rf+nqhLXyZ7R+6Pw9/5EHwP/wBif4Z/9MtlX+0vAf8AyQ3Bn/Ypwn/qPTP6Gyz/AJFuX/8AXin/ + AOko7CvqztPyf/a+/wCSy3v/AGL+g/8AoiWv8wPpWf8AJ28Z/wBgGG/9JkfjXG3/ACPan/XuH5Hy9X83 + HyIUAFABQAUAe8fBX4DeIfi/dz3SXA0Twrp06wajrssPnvJc7VlOn6XbF4hdXnlOGdiyxwqwLEkqjftv + g/4I594rYqviYV/qfDOHmo1cTKPM3OyfsqMLx56lmnJtqNNNOTbcYS+iyHhzE53OU1L2eDg7Sna+v8sV + pd9+i69E/wBF/Bv7Ofwk8GRQm38LWmu6hGqh9V8Tqmt3Msi4ImW1uU/sq1lBGQYLeIj1r+/OEvADwt4R + p0XQ4apY3HRSvWxiWIm2vtKE17GD7OnSg13P1DA8L5LgFHlwaqVV9qp779bP3V8oo9Z1DUvD/hTS3vdT + vdJ8O6NZhVa4vJ7TS9Pt9xwiB5WhgRnbhVHLHgAmv1HHZhkfDOWzxeY4zC4DKKWjnUlCjSjfZXbjFNvR + LdvRK57VWrhsHRdStUhSoR6tqMV+SPF7/wDai+CFhK0J8ZfbJEYo/wBg0TX7qIY/iW5XTFtZVPYo7V+Q + 476Sfg1gakqL4t9rUTs/ZYfEzXqp+xUJLzjJng1OL+H6b5fr/M/KE3+PLb7mSaZ+098EdTlWBPGaWUrN + tUano+uWMRHHzNdzaaLONcn+ORTx6VeXfSP8HMxqxox4uVGq3Ze2oYinH1c5UvZpf4pL7h0uLeH6suVY + /lf96M0vvcbfez2m1utF8SaXFdWdxpmvaNqEZaK4t5bXU9NvIiSpKSRtPbXCbgQcEjIxX6/hsTk/EOW0 + 8ThK+Gx2UV43jKDhWo1I7aNc0JK+nXXQ96E8Pi6KnTlCpQkt1aUWvxTPG/HH7N3wo8bwTFvDtv4b1RwT + Fq/heOLSZkkIzunsYY/7KvA7AFzJAZCM4dSSa/JOM/o+eGHGNGs5ZBTy/MpbV8Go0JJ95U4r2NS7+Lnp + uT1tOLbZ4eYcK5NmEZXwqpVv5qdov5pe6/O6v5o/NP4wfB3xD8INdh07U5E1HSNSWWbQ9dt4nigv4oWU + TQTQszm11C18xPNi3OAHVlZgc1/nh4r+E+e+FOdUsBmNRYjKsQpSw+JjFxjVjFrmjKLvyVYXjzwvJJSi + 4yknc/KM8yPE5JiI0qz56M7uE0rJ23TXSS6rXdankVflZ4pZsrK71K8tdP0+2nvL6+uYbSztLaNpri6u + rmRYYLeCJAXklmlcKqgZJOK6cHg8VmGLw2AwOHnWxtapGFOEE5SnObUYxjFauUpNJJatsqnTnVnClTg5 + VJNJJatt6JLzZ+gHwx/Y0tBb2urfFDUJ5bmWNJT4V0acQw2xb5vI1TWYi8lxKFOHS18tVcfLM45r+5/D + n6I+FVDDZp4k4+csRKKl9Sw8uWML68tavG7m7aSjR5VGS92tNH6VlPAsOWFbN6rc3r7OLsl5Sl181G3l + Jn1x4e+FPw28KpGug+CfDli8e3bdHTLe71D5MbC+pXy3OoSFSMgtKeeetf1NkPhj4e8MwhHJODsvozja + 0/YxnV02vWqKdV285vXXc+1wuTZVg0lhsvpRa68qcv8AwJ3l+J0+ra/4e8N2yT67rWjaBZgbI5tW1Gx0 + u2wgA2pJeTQRYUEDAPFfSZpnmQ8PYeFbOs3wmBwmylXq06MNOidSUVpptsddbE4bCwUsRiKdOHeUlFfi + 0ebXf7QPwZsiRN8QtBfDhD9ke6vxkqWBBsLa5BTA5YfKDxnPFfnmK8dfCLBtqtx5gnrb3HOr0v8A8u4T + 089k9L3PKnxLkVPSWZ0/leX5JlH/AIaR+CP/AEP2n/8Agv1z/wCVdcf/ABMJ4Of9FxQ/8FYn/wCUmf8A + rVw//wBDKP8A4DP/AORPnX9p74v/AA38c/DeDRfCnim01jVF8S6XfNaQ2upQuLWC11KOWbfd2VvFtR50 + GN2eelfgX0j/ABW8PuNPD6jk/DHEtLF5ksxo1HCMK0XyRhWUpXnTjHRyit767HzHFud5VmGVRw+Dxkal + b2sXZKS0Sld6pdz8+K/hE/MwoA9Q+Cf/ACV34cf9jhof/pbFX6R4O/8AJ1PD/wD7G2G/9ORPXyD/AJHe + V/8AX+H5n7Y1/sQfvh5/8Wf+SV/Ev/sn/jL/ANRzUq+F8Uf+TZ+In/Yix/8A6i1Tzc6/5E+bf9g1X/0i + R+H1f40n8/BQB9E/Ar4Aap8XbmfU7+6m0Twbp1wLa81OKNHvdRu1VJJNO0lJQ0KyxwyAyTurpDuX5HJK + j988FfAzMvFTEVsxxuJng+EsPU5KlaKTqVZqzdKgpe6pKLTnUkpRhePuzbcV9Pw7w1Wzucq1Sbp4GLs5 + LeT/AJY3023bulpoz9H/AAj8DfhX4KhiXSPB2kz3UYGdU1i3TWtUeQDDSi71Fbg2zP3WARJ6KK/0E4W8 + GPDPg+lTjlXCeFniY/8AL6vFYis3356vNyN9VTUI9oo/U8Fw9k+AilQwMHNfakuaX3yvb5WXkelX1/pe + iWMl7qV7YaRplnGvm3d9c29hY2sSgKvmTzvFbwRqMAZIAr9DxmOy3J8FPF5hjKGFy6lH3p1JxpU4RWiv + KTjGKW2rSPVqVKOHpupVqRhSitW2kl83ZI8zm+PPwcgkaJ/iJ4aZkwCYb03EZyAflmgjkhfg/wALHB46 + 1+c1fG7wmo1JUp8e5c5L+WpzL5SinF/JvseTLiPI4txeZ0r+Tv8AitDsvDfjfwf4wR38LeJtD17ykEk0 + Wmala3VzboxADXVrHIbm1BLAfvEXk19fw9xlwpxZCc+GuI8HjuWN5KjVhOcE+s4J88P+3oo78LmGBxyb + weLp1LLXlkm16rdfND9f8F+EfFUbx+JPDOha4HXaX1PS7O7mUBdqmK4mhaeF1XhWRlZexFVnnCHCvE1O + dPiDhzBYxNWvWo05yXTSUouUWls4tNdGGJwGCxiaxWEp1P8AFFN/e1dfI+NfjF+yJpH9mX3iH4Wrc2V/ + ZwyXU3hKeea9tL+KJDJImjXNw019b35CkrDK8scrEKpj4z/JHiz9FbKv7OxufeGqqUcbRg5ywMpSqQqx + irtYecnKpGrvaE5TjN2jF0+vwuecE0PZVMVlCcakVd02200v5W7tPybaeysfncQQSCCCDgg8EEdQR61/ + BDTTs9z8xCgDN/8Aob6/rH/6Aj8W/wDnaXV/4+tY/wCxk8U/+pHqlfz1x5/yWvFX/YfX/wDTkj9P4f8A + +RVS/wCvtb/09UJa+TPaP3R+Hv8AyIPgf/sT/DP/AKZbKv8AaXgP/khuDP8AsU4T/wBR6Z/Q2Wf8i3L/ + APrxT/8ASUdhX1Z2n5P/ALX3/JZb3/sX9B/9ES1/mB9Kz/k7eM/7AMN/6TI/GuNv+R7U/wCvcPyPl6v5 + uPkQoAKACgAoA/Yr9me2gtvgj4G8iGOLz7XVLmYooBmnl1zUzJNI3V5GAAyeigAcACv9Zfo64ehh/Bvg + v2NKMeenWnKy+KUsTWvJ929Fd9EktEkfuPCcIx4fy/lildSb825y1Pd6/az6I/Lb9sjXdUvPifb6FPdy + tpOjaDpsthYB2FvHcX/nz3d2YtxRrqbKoXxny0Ve3P8Amr9LXOszxfiRQyWtipPK8JgaTp07vkU6vNKc + 7Xs5y0i5b8sYrpr+Qcc4itUzeOHlN+xp042XS7u2/V7X7JHyPX8snxYUAfbf7EviHVE8Y+KPCv2qZtFu + fDM2vmyaQtBFqdhqujaetzDEcrFLPa6kyyMuN4RN2dq4/sf6HWe5lDiziXhn6zN5RUy6WJ9m3eMa1OtQ + pKcVspShVak1bmUYc1+WNvv+AMTWWOxmD537B0nO3TmUoxuvVS172V9kfpNX+hJ+qHyT+2bBDJ8J7CZ4 + 0aW28Y6S0EhHzxGXTtZik2t1AdGwR0PB6gY/lv6XVCjU8L8DWnTTq082oOL6q9LEJ2fmt1s9OqR8Xx3G + LyanJrVV42/8BkflpX+aZ+QH1p+xtoNnqvxUvdSvIY5m8O+GL/UNP38mHUrq80/TEuApUqwSxvLheoKs + ykdOP6j+iTkmEzPxMxeYYulGcsBltWrSv9mrOpSoqVrWdqdSqujTaa20+04Fw8K2cVKs4pulRco+Um4x + v9zkfqbX+lp+vnBfFLxLfeDvh54w8TaYsTalo+h3lzYGZQ8Ud4VENvPJGQyypbyyhyh4fbtJAOa+I8Su + IsbwnwFxXxFlsYvMMJg5zp82sVUtywk1qpKMmpcr0lbldr3PNzjF1MDleOxdFL2sKbav32T87PW3XY/F + HW9e1rxLqVxrGv6pfaxqd0xae91C5kuZ35JWMPIzeXDHuwka4RF4UAcV/j1nOd5vxDmFfNc8zKti8yqu + 8qlWbnJ9ldvSK+zFWjFaRSWh+CYjE18XVlXxNaU6z3cnd/8ADdlsuhr+FPAfjDxxJexeEtAv9ek05IJL + 5LFI2Nsly0qwNJvkTAlaFgMZ+7Xq8McE8V8Z1MZS4WyOvjamHUXUVNJ8indRbu1u4u3ob4PLsdmDqLBY + aVRxte3S+35HZ/8ACgPjL/0T3xB/36t//kivrv8AiBni5/0QeO/8Bj/8kd3+ree/9Cyr9y/zD/hQHxl/ + 6J74g/79W/8A8kUf8QM8XP8Aog8d/wCAx/8Akg/1bz3/AKFlX7l/mZWt/Bz4n+G9KvNb13wXrOmaTYIk + l5fXMcIgt0kljgRpCszMA0sqr06mvMznwl8SOHssxec51whi8NldBJ1Kk1HlinJRTdpPeUkvVmOIyPN8 + LRniMRgKkKMd21otbd+55pX52eUeofBP/krvw4/7HDQ//S2Kv0jwd/5Op4f/APY2w3/pyJ6+Qf8AI7yv + /r/D8z9sa/2IP3w8/wDiz/ySv4l/9k/8Zf8AqOalXwvij/ybPxE/7EWP/wDUWqebnX/Inzb/ALBqv/pE + j8Pq/wAaT+fgoA/Z39n3TINJ+DXgC3gjjQXGhR6nKUH+sn1aabUpZHJALSFrrBz0xgcAV/rt4E5bRyvw + k4GoUIRSqYJVnbrKvKVWTfd3n+Flokfu/DVGNHIstjFb0+b5ybl+p7JX60e4fm1+214h1R/GHhbwr9ql + XRrbwzDr/wBjWRlgm1K/1XWNPa4miGElkgttMVY2bJQSPtxubP8Ant9MXPsynxZw1wz9Zmsop5dHFezT + ajKtVrV6TnKOzcYUUoN35VKdrc0r/lfH+KrPHYPB879gqSnbo5OUo3foo6drvuz4jr+OD4A6Dwt4l1Xw + f4g0nxJotzLbahpN7BdwtHI0YlWN1aW2mxkPb3UYMcikFWRiCDXu8NcQ5nwpnuV8Q5RiJU8fha0ZxabX + Mk9YS7wmrxkndOLaaZ04PF1sDiaOKoSaqwkmvPyfk9n5H7w1/tmf0UFAH4h/F6xttN+KXxCsrOMQ20Hj + DXxDEuNsSPqVxIIkAAxHGXwo7KAK/wAbvFXB4fL/ABK48weEp8mGhm2K5YraKdWTsvJXsl0Vj8AzunCl + nGZ04K0FXnZdveZ51XwB5Zm//Q31/WP/ANAR+Lf/ADtLq/8AH1rH/YyeKf8A1I9Ur+euPP8AkteKv+w+ + v/6ckfp/D/8AyKqX/X2t/wCnqhLXyZ7R+6Pw9/5EHwP/ANif4Z/9MtlX+0vAf/JDcGf9inCf+o9M/obL + P+Rbl/8A14p/+ko7CvqztPyf/a+/5LLe/wDYv6D/AOiJa/zA+lZ/ydvGf9gGG/8ASZH41xt/yPan/XuH + 5Hy9X83HyIUAFABQAUAfsj+zd/yRHwD/ANg/UP8A0+apX+tf0e/+TOcD/wDXir/6k1j9z4V/5J/Lf8Mv + /S5HuFfsp9Afk/8Atff8llvf+xf0H/0RLX+YH0rP+Tt4z/sAw3/pMj8a42/5HtT/AK9w/I+Xq/m4+RCg + D7A/Yo/5Kpr/AP2T/Vf/AFI/Clf1d9D3/k5mef8AYirf+pWCPt+Af+Rxif8AsGl/6XTP1Br/AEiP1w+T + /wBsr/kkVt/2OGjf+kWr1/MH0t/+TV4f/sbYf/03XPjeOv8AkSR/6/x/KR+V1f5nH48faP7En/I/eLP+ + xPb/ANPWl1/Xv0Of+S54o/7FL/8AUiifecAf8jLG/wDXj/26J+mFf6Jn6ueP/H7/AJI18Q/+xfm/9HwV + +UeOf/JpOPP+wCX/AKVE8PiX/kRZn/17/VH4vV/kMfhB9Pfs0/F/wp8Jb7xbceKY9Wkj1u00iGz/ALKs + 4btg9jNqDzecJru1CArcrtxuzz0r+j/o8eK3DHhdjeKcRxLTxUoYylQjT9jTjN3pyquXNzThb41a1767 + H1vCmd4LJamNljFNqoopcqT2cr3u13Ps/wANftVfDHxX4g0fw3pcHihdR1zULXTLJrrSrSK2FzdyrFEZ + 5U1SVo4wzckKxA7V/XfDv0mvDjibPcp4ey2hmSx+Nrwo0+ejTjDnm1GPM1Wk0rvVpP0PvMJxjlOMxNDC + 0Y1va1JKKvFJXemvvH0pX9DH1R4f+0j/AMkR8ff9g/T/AP0+aXX419IT/kznHH/Xil/6k0T5/ir/AJJ/ + Mv8ADH/0uJ+N1f5KH4YeofBP/krvw4/7HDQ//S2Kv0jwd/5Op4f/APY2w3/pyJ6+Qf8AI7yv/r/D8z9s + a/2IP3w8/wDiz/ySv4l/9k/8Zf8AqOalXwvij/ybPxE/7EWP/wDUWqebnX/Inzb/ALBqv/pEj8Pq/wAa + T+fgoA/bH4J/8kj+HH/Yn6H/AOkMVf7EeDv/ACavw/8A+xTh/wD02j99yD/kS5V/14h+SPUK/SD1j8vv + 21/+SqaB/wBk/wBK/wDUj8V1/m79ML/k5mR/9iKj/wCpWNPyPj7/AJHGG/7Bo/8ApdQ+P6/lE+ICgD+g + Gv8AdA/pMKAPxO+Nn/JXfiP/ANjhrn/pbLX+O/jF/wAnU8QP+xtif/Tkj8Dz/wD5Heaf9f5/meX1+bnk + Gb/9DfX9Y/8A0BH4t/8AO0ur/wAfWsf9jJ4p/wDUj1Sv5648/wCS14q/7D6//pyR+n8P/wDIqpf9fa3/ + AKeqEtfJntH7e/CTWLLXfhj4D1LT5Vlt38K6LbOVYN5V3p9jDp9/bORx5lre2skbf7Smv9k/CzNcHnXh + xwRmGBqqVB5Zh4O2tp0qcaVSD84VISg/NM/oDJa9PEZRl1Wk7x9jFfOKUWvk00eiV96emfAv7UPwK8d+ + LPFq+OfCNgviCzn0qxsb7TLWWOPVbKex85PNjtp3jF9azROmPKZpQ+4FNoDH+HfpJeCvG3FHFMeNOFsC + sdhJ4WnTqUYNKtTlT5lzKEmvaQlFxtyNzUuZOHKlJ/m/F3DuY43G/wBoYKn7WDgk4r4k15PdNW21vfTq + fFF78PfH2msU1HwR4usWVghF34c1i3+YgsoBls1DblUkY6jkcV/HmM4D44y6Tjj+Ds1oyTt7+Erx13W9 + NbrVd1qtD4GplmZUtKuX14+sJL9DP/4RLxV/0LPiD/wTal/8jVw/6r8Tf9E7j/8Awnq//IGf1PGf9AlT + /wABl/kH/CJeKv8AoWfEH/gm1L/5Go/1X4m/6J3H/wDhPV/+QD6njP8AoEqf+Ay/yEPhPxSoLN4a19VU + Esx0bUQAAMkkm2wABSfDHEsU5S4exyiv+nFX/wCQF9Txa/5han/gMv8AIwK8M5z9af2UPFema/8ACPSN + GtpkGqeE5r7S9VtCw8yMXOoXmo2F0qZ3m3urW5AD4wZY5FH3TX+o/wBGDifLc88LMqynD1V/aWVzqUa0 + L6rnq1KtKdt+ScJ2UtnOFSK+E/aODcbRxOS0KEJfvqLcZL1k5J+jT37profTFf0SfVnwd+1P8CvF/ivx + BD4/8H2cmuhtLtdO1fRbXDapC9k03k31jbnH263lgkVHijJmV1BVXVjs/iX6S/grxXxPnlLjnhPCSxqe + GhSr4eGtaLpuXLUpx/5eRcWoyhG9SMkmoyUnyfnXGHDuNxmJjmWBpup7ijKK+JWvZpdVbRpa36O+nwXe + +GPEmmzG31Hw9rlhcKSGgvdJv7WZSOoMU9vG4Iz6V/EWM4c4hy+q8Pj8ixlCut41KFWEvulFP8D85qYT + FUpclXDVIy7OLT/FEmneE/FOrzi20rw1r+p3LMqiCw0fULyYs+7aPLt7eR8ttOOOx9K0wHC/Eua1lhsr + 4ex2JxDaXLSoVaktdtIxb1s/uY6WCxleXJRwlSc+yjJv8Efop+yv8D/Evw/uNX8Z+L7ddM1PV9KXR9N0 + YyLLeWunzXdtf3dxqPlM8ME081lAI4gxdArb9pO2v75+jP4NcQ8C1804u4roLDZlisKqFLD3TqQpSnCp + OVW14xlKVOnywu5RSlz8rdj9P4P4fxeWyrY/HR5K04csY9VFtNuXZtpWW61vY+za/ro+7Piz9tXxPptr + 4J8P+EjMj6zq2vQawtsrAvBpel2l9by3UqglkWa7vEjiyAH2yYPyEV/IH0weI8uw3B2RcLOqnm2Kx0a6 + gnrGjRhUi5yW65p1IxhfSVqln7jR8Hx7i6UMBhsFzfv51FK3aMU1d+raS769j80a/wA7j8oPf/2a/iHp + nw5+Jltf65OLXRNc0268O6leuT5Oni7uLS7tL6ZRwIYr6xjSRz/q4pHboCD+5/R549y7gDxFw2Nzmt7L + Jsbh54WrUfw0ueUJwqS/uxqU4RlL7EJTlsmn9JwpmdLK82hUxErYepBwk+kbtNN+SaSb6Jtn6/xyRzRx + zQyJLFKiyRSxsrxyRuoZJI3UlXR1IIIOCK/1bp1KdWnCrSmpUpJNNO6aeqaa0aa1TW5+3JqSUou6ZheK + vDen+L/Det+F9V80afrum3WnXLwNsniW4jKrcQMQVE1vJh03AruUZBGQfF4m4fwPFfD+ccN5nzfUcbh5 + 0puLtKKkrKUXtzRdpRumrpXTV0c+MwtLHYXEYStf2dSDi7bq/Vea3R+YHjP9kn4qeHbq4bQbO08Y6Sry + Nb3el3Vtaah5A5Q3elahPbyrcMOqW73Iz/FX+b3F30WvEzIMTXlkmEpZtlab5Z0ZwhV5enPRqyjJSf8A + LSlVXmfkeO4LzjCzk8NCNej0cWlK3nGTWvlFyPILz4SfFKwMguvhz43RYsF5U8MazPbqCdoP2mCzltzk + +jV+UYvws8S8E5/WeAM5UY7yWDxEor/t+NNx/E8SeS5xTvz5XiLL/p3Jr70rHbfB3wP41sfip8P7y98H + +KbO0tvFejTXN1deH9Wt7a3hjvI2eWeea0SKKNFGSzEACvsfCfgzjDBeJnAuLxnCmZUsLTzTDynOeFrx + hGKqJuUpSglFJbttJHoZHl2YU84y2pUwNaMFWi23CSSV922tD9iK/wBYz9wPD/2kf+SI+Pv+wfp//p80 + uvxr6Qn/ACZzjj/rxS/9SaJ8/wAVf8k/mX+GP/pcT8bq/wAlD8MPUPgn/wAld+HH/Y4aH/6WxV+keDv/ + ACdTw/8A+xthv/TkT18g/wCR3lf/AF/h+Z+2Nf7EH74ef/Fn/klfxL/7J/4y/wDUc1KvhfFH/k2fiJ/2 + Isf/AOotU83Ov+RPm3/YNV/9Ikfh9X+NJ/PwUAftj8E/+SR/Dj/sT9D/APSGKv8AYjwd/wCTV+H/AP2K + cP8A+m0fvuQf8iXKv+vEPyR6hX6Qesfl9+2v/wAlU0D/ALJ/pX/qR+K6/wA3fphf8nMyP/sRUf8A1Kxp + +R8ff8jjDf8AYNH/ANLqHx/X8onxAUAf0A1/ugf0mFAH4nfGz/krvxH/AOxw1z/0tlr/AB38Yv8Ak6ni + B/2NsT/6ckfgef8A/I7zT/r/AD/M8vr83PIM3/6G+v6x/wDoCPxb/wCdpdX/AI+tY/7GTxT/AOpHqlfz + 1x5/yWvFX/YfX/8ATkj9P4f/AORVS/6+1v8A09UJa+TPaPcPhH8e/GPwjeaz05bfWfDl3P8AaLvw/qLy + pCs5Cq91pt1Fuk067lRQrnbJE4A3RsQpH7N4V+N/FnhZOrhcBGni+H6s+apharaipbOdGa1pTaSUnaUJ + JLmpyai19BknEeOyRyhSSqYWTu4S2v3i/sv70+qeh9o6D+2h8Nb+OMa5pHibw/dH/W7ba01ewT/rndWt + zFeSYxzm1Xt15x/XmSfS88PMdTgs6yrMcDiXvaEK9Jek4TjUfzor59PvMNx5lVRL6xQq0p+ikvvTT/8A + JT0S0/ae+B14u5fHEVuwUFo7vRPEdsy5JAXdJpAikYY52M2K++wv0j/BnFR5o8ZRhK2qnh8XBr5uhyv/ + ALdbPUhxbw/NaZgk/OE1/wC2/kbY+P8A8GWAYfELQMEAjMtwpwRnlWtwyn2IyK9heOnhG0muPMDZ+c1+ + Djc3/wBZci/6GdP8f8hf+F/fBr/oofh//v8AT/8Axin/AMRz8JP+i8wH/gUv/kQ/1lyL/oZ0/wAf8g/4 + X98Gv+ih+H/+/wBP/wDGKP8AiOfhJ/0XmA/8Cl/8iH+suRf9DOn+P+RS1L49fB2XTr+KP4g6A8ktldRx + oJpss7wSKqj9x1ZjiuPMPG/wmq5fjqVPjrAupKjNJc0tW4tJfD3Iq8SZG6dRLM6d3F9+3ofjXX+SR+Fn + UeEPGnibwJrMOveFdWudJ1GIbGeEq8F1AWVntb21lD295auVBMcisuQCMMAR9JwrxfxHwTm1HO+Gc0qY + XMI6Nxs4zje7hUg7wqQdleM01dJqzSa68Fj8Xl1eOJwdZwqrts12a2a8mfa/hD9tzbFDb+O/B7ySKAJd + U8LXKDzBwMjRdUlRVfHJIvQpPRVFf2Hwr9Mflp0qHGvCblUXxVsHNa/9y9ZpJ9W/rFm9oxR99guP7KMc + xwN31lTf/tsv/k/ke46Z+1j8E9QVTceIdR0Z2IAi1PQNXZskqBuk0u11OBB83UuAMHJHGf2bLfpQeD2P + iniM9xGEm+lbDV2+nWjCtFb7uSSs7s+go8Z5BVXvYmVN/wB6Ev8A21SX4nVQftD/AAWuAzR/EHRlCkA+ + emoWpyRn5VubKFmHuARX01Hx68IMQpOHHeESX8yqw+5Tpxb+R2R4nyGW2Z0/nzL80E/7Q/wWtwrSfEHR + mDEgeQmoXRyBn5ltrKZlHuQBRW8evCDDqLnx3hGn/Kqs/vUKcmvmEuJ8hjvmdP5cz/JHK6n+1j8E9PVj + b+IdR1l1JBi0zQNXVsgsDtk1S10yBx8vUOQcjBPOPmcy+lB4PYCLeHz3EYua6UcNXT69a0KMXtupNO6s + zjrcZ5BSXu4mVR/3YS/9uUV+J4V40/baklgmtfAHhN7WVwyx6x4nmikkhByNyaNp0skJmAOVZ7t0B6ow + r8V4v+mLUq0auG4G4YdKpLRV8ZJNx81h6TcebqnKvKKe8JI+ex/H7lGUMtwdn/NUa0/7djpf1k15M+If + EnibXvF+sXev+JNTutX1a+YNcXl04LFVGI4Yo0CxW9tCvyxxRqsaLwoAr+NuIOIs74qzbFZ5xDmNTFZp + Wd5VJvXTaMUrRjCK0jCKUYrSKSPz/FYvEY2vPE4qq51pbt/kuiS6JaIwq8U5woA9z+G37Q3xH+GcUOn6 + dqEWteH4vlTQNeWW8s7dPTT7iOWG+07aCdqRyeRuOWjav2jw98efEDw7p0sBgMfDGZFHRYbEp1KcV/06 + kpRqUra2jGfs7u7pyPocq4mzTKUqVKqqmGX2J6pf4Xo4+idvJn1l4e/bb8I3Mar4o8Ia/pE+ArSaNcWO + t2pcYDO32uTRbiGNuTtCylemT1r+och+mPwtiIRjxLwpjsLXtvh508RC/d87w8op72Sm1td7n2eF4/wU + 0ljMDUhL+61NfjyNfiep2H7VXwQvQvmeK7jTpGYKIr/w/r6nJJHzS2mm3dsijGSWkAAP1x+mYH6TXg1j + FH2nE9TDzbtarhcV+MoUpwXq5Ja+tvYp8Y8P1LXxji/OE/zUWvxN+H9ov4KTvsT4gaSrYLZmt9VtkwMf + 8tLjT4o889M5Ne3R8fvB6vPkhx1hU7X96FaC++dKK+V7nTHijIJOyzKHzUl+cS1/wv74Nf8ARQ/D/wD3 + +n/+MV0/8Rz8JP8AovMB/wCBS/8AkSv9Zci/6GdP8f8AIP8Ahf3wa/6KH4f/AO/0/wD8Yo/4jn4Sf9F5 + gP8AwKX/AMiH+suRf9DOn+P+R5J8dvjH8MPEnwm8Z6JoXjTRtT1a/srKOzsbaWVp7h49X0+d1jDQqCVi + iZjz0FflvjX4s+HHEPhdxdk2S8X4TE5pXo01TpwcnKTVelJpXitoxb9EeLxFnuUYrJcfh8Pj4TrSirJX + u/ei+3Y/Lmv82D8iPQfhPqmn6J8S/Aur6rdRWOm6d4n0i8vryckQ21tBdxvLNIQGISNBk8V934YZlgcn + 8ROC81zPExo5fh8yoVKlSXwwhGacpPyS1Z6WTVqWHzbLq9aajShWi23sknqz9YP+F/fBr/oofh//AL/T + /wDxiv8AT7/iOfhJ/wBF5gP/AAKX/wAifsv+suRf9DOn+P8AkcX8SPjd8J9W+Hfj3StN8daHeahqfgvx + Tp9haQzTGW6vbzQ762tbeIGEAyTzyKq8jk18h4g+MnhfmnAPG+WZfxrgquPxGT4ylThGUuadSphqkIQX + u7yk0l5s4M14gyWtleZUaWY05VZ0KkUlfVuDSW3Vn5JV/lqfi4UAfrB8J/jX8KtE+GngXSNV8caJY6lp + 3hjSLO+s55ZhNbXMFpGk0MgELAPG4weTX+n3hh4w+GWT+HfBeVZnxng6OY4fLaFOpTlKXNCcYJSi/d3T + 0Z+y5Nn+TYfKsuoVswpxqwoxTTvdNLVbHoP/AAv74Nf9FD8P/wDf6f8A+MV93/xHPwk/6LzAf+BS/wDk + T0v9Zci/6GdP8f8AI/Pr9q/xf4Z8a/ETRtV8K6zZ65p9v4L07T5ruxZ3ijvYtc8R3MluxdEPmJBdRseO + jiv4T+k9xXw7xhx9lGZ8M5vSxuAhk9KlKdNtxVSOJxU3B3S1UZwfpJH5rxljsJj80oVsHXjUpKhGLa78 + 83b7mvvPmOv5yPkgoA/aH/hf3wa/6KH4f/7/AE//AMYr/Xn/AIjn4Sf9F5gP/Apf/In7v/rLkX/Qzp/j + /kH/AAv74Nf9FD8P/wDf6f8A+MUf8Rz8JP8AovMB/wCBS/8AkQ/1lyL/AKGdP8f8j8n/AIsapp+t/Evx + 1q+lXUV9puo+J9XvLG8gJMNzbT3cjxTRkhSUkQ5HFf5g+J+ZYHOPETjTNcsxMa2X4jMq9SnUj8M4Sm3G + S8mtUfjWc1qWIzbMa9GalSnWk01s03ozz6vhDzTN/wDob6/rH/6Aj8W/+dpdX/j61j/sZPFP/qR6pX89 + cef8lrxV/wBh9f8A9OSP0/h//kVUv+vtb/09UJa+TPaCgAoAKACgAoAKACgAoAKACgAoAKACgAoAKACg + AoAKACgAoAKACgAoAKACgAoAKACgAoAKACgAoAKACgAoAKACgAoAKACgDN/+hvr+sf8A6Aj8W/8AnaXV + /wCPrWP+xk8U/wDqR6pX89cef8lrxV/2H1//AE5I/T+H/wDkVUv+vtb/ANPVCWvkz2goAKACgAoAKACg + AoAKACgAoAKACgAoAKACgAoAKACgAoAKACgAoAKACgAoAKACgAoAKACgAoAKACgAoAKACgAoAKACgAoA + zf8A6G+v6x/+gI/Fv/naXV/4+tY/7GTxT/6keqV/PXHn/Ja8Vf8AYfX/APTkj9P4f/5FVL/r7W/9PVCW + vkz2goAKACgAoAKACgAoAKACgAoAKACgAoAKACgAoAKACgAoAKACgAoAKACgAoAKACgAoAKACgAoAKAC + gAoAKACgAoAKACgAoAzf/ob6/rH/AOgI/Fv/AJ2l1f8Aj61j/sZPFP8A6keqV/PXHn/Ja8Vf9h9f/wBO + SP0/h/8A5FVL/r7W/wDT1Qlr5M9oKACgAoAKACgAoAKACgAoAKACgAoAKACgAoAKACgAoAKACgCe2SCS + 4gjupntrZ5o0nuEh+0PBCzgSTLB5kXnGNCTt3LuxjIrbDwozr0YYms6eHc0pSUeZxi3rJRvHmstbXV9r + lQUXKKnK0b6u17LvbqfWfhP9lJvHOlR614U+KXhPWdPk2hpLax1ITW0jKH+z3tpKY7qxuQpyY5URwOcY + r+ouF/oxy40yynnHDHiVleLwErXcKdbmg2r8tSDtOnO32ZxjLrax9nguDXmNFYjB5vRqUvJSuvJp6p+T + SZ0//DD/AIp/6Hnw/wD+C7Uf/iq+j/4k14m/6LPA/wDgqr/mdf8AxD/Gf9DCl/4DIP8Ahh/xT/0PPh// + AMF2o/8AxVH/ABJrxN/0WeB/8FVf8w/4h/jP+hhS/wDAZHhnxS+AXjz4Vk3mp2qax4eYoE8R6Os01hE7 + kKIdRidFuNMlLEAGRfKckBHY5A/F/ErwO438M28XmOFji8hdrYugpSpxb05aqaU6Mr2Sc1ySbShOTul8 + 9nHDeY5P79WCnhf543aXlLrF+uj6NniNfjh4AUAFABQAUAFABQAUAFABQAUAFABQAUAFAGb/APQ31/WP + /wBAR+Lf/O0ur/x9ax/2Mnin/wBSPVK/nrjz/kteKv8AsPr/APpyR+n8P/8AIqpf9fa3/p6oS18me0FA + BQAUAFABQAUAFABQAUAFABQAUAFABQAUAFABQAUAFABQAUAdN4U8Y+JvA+rRa34V1m90bUYwFaW1k/dX + MWdxt721kD219bMwyY5UdMgHGQCPouGOLOI+DM0p5xwzm1bCY+OjcHpOO/LUg7wqQe7hOMo3s7XSZ1YP + HYvL6yxGDryp1V26+TWzXk00fod8Jv2u/D/iT7NovxFjtvC+tNtii1yEuPDmoSEqqm48wyS6JM+eTIz2 + /BYyR5CV/enhd9KnIuIPq+T8f06eW5w7RWIjf6rVey573lh5PrzOVLRt1IXUD9OyXjbDYrkw+aJUa+3O + vgl69YP1vHzWx9kwzRXEUU8Esc0E0aTQzQuskUsUih45YpELJJHIjAqwJBByK/relVpV6VOvQqRnRnFS + jKLTjKLV001o01qmtGtUfdRlGUVKLTi1dNbNBNDFcRSwTxRzQTRvDNDMiyRSxSKUkiljcMkkciMQykEE + HBoq0qVelUoV6cZ0ZxcZRkk4yi1Zpp6NNaNPRrRhKMZRcZJOLVmns0fFvxd/ZE0XXvtWu/DRrbw7q53z + S+G5spoF++dxXT3ALaJM3OEAe1J2qFhGWr+QfFT6K2T539Zzrw7lTwGau8pYSWmGqvf9098PJ62jaVF+ + 6lGkryPg874JoYnnxGUtUq+7h9h/4f5H5fD0tHc/O/xD4b17wnqtxoniTSb3RtVtT++sr6FopNhLBJom + 5juLaXaTHLGzRyDlWI5r+CM+4ezvhfM8Rk3EOV1sJmdL4qdSLi7dJRe0oSt7s4twktYya1PzDFYXE4Kt + PD4qjKnWjumvx80+jWj6GJXjmAUAFABQAUAFABQAUAFABQAUAFABQBm//Q31/WP/ANAR+Lf/ADtLq/8A + H1rH/YyeKf8A1I9Ur+euPP8AkteKv+w+v/6ckfp/D/8AyKqX/X2t/wCnqhLXyZ7QUAFABQAUAFABQAUA + FABQAUAfav7MHwc+HfxN8NeJL3xdpN5f6jpeuxWsE0OqahYRLZT6fDKkeyzuoVdxOshJZc4I5Pb+wfo3 + +E3AXiNw7xDjOKsrq18fhsbGEZRrVaaVOVKMkrU5xTfMpNtrZrXt97wjkeV5thMVUxtCUqsKiSalJaNL + s11ufTn/AAyd8Ef+hc1D/wAKLXP/AJOr+jf+JX/Bz/on6/8A4VYj/wCWH1v+pnD/AP0CS/8AA5/5h/wy + d8Ef+hc1D/wotc/+TqP+JX/Bz/on6/8A4VYj/wCWB/qZw/8A9Akv/A5/5h/wyd8Ef+hc1D/wotc/+TqP + +JX/AAc/6J+v/wCFWI/+WB/qZw//ANAkv/A5/wCYf8MnfBH/AKFzUP8Awotc/wDk6j/iV/wc/wCifr/+ + FWI/+WB/qZw//wBAkv8AwOf+Yf8ADJ3wR/6FzUP/AAotc/8Ak6j/AIlf8HP+ifr/APhViP8A5YH+pnD/ + AP0CS/8AA5/5h/wyd8Ef+hc1D/wotc/+TqP+JX/Bz/on6/8A4VYj/wCWB/qZw/8A9Akv/A5/5h/wyd8E + f+hc1D/wotc/+TqP+JX/AAc/6J+v/wCFWI/+WB/qZw//ANAkv/A5/wCYf8MnfBH/AKFzUP8Awotc/wDk + 6j/iV/wc/wCifr/+FWI/+WB/qZw//wBAkv8AwOf+Yf8ADJ3wR/6FzUP/AAotc/8Ak6j/AIlf8HP+ifr/ + APhViP8A5YH+pnD/AP0CS/8AA5/5h/wyd8Ef+hc1D/wotc/+TqP+JX/Bz/on6/8A4VYj/wCWB/qZw/8A + 9Akv/A5/5h/wyd8Ef+hc1D/wotc/+TqP+JX/AAc/6J+v/wCFWI/+WB/qZw//ANAkv/A5/wCYf8MnfBH/ + AKFzUP8Awotc/wDk6j/iV/wc/wCifr/+FWI/+WB/qZw//wBAkv8AwOf+Z6v4H+Hnh34eWUmmeGG1eDTH + O5NNvta1LVbK2csXZ7GDULi4WxMjMS4i2K5OWBODX6fwZwFkPAWDqZdw48VDLpaqlUxFatTg73bpxqyk + qd225cnKpPWSb1PZy/LMLllN0cJzqj/K5ykl6KTdvO1r9Tua+zPQCgDgPiD8M/B/xN0g6T4r0xLny1c2 + GpQEQarpczgZmsL0KzRkkAtGweGTA3owFfD8d+HXCniNlbyvifLlU5U/Z1Y+7Woyf2qVSza6NxalCVlz + wkkebmeU4HNqPscZSvbaS0lF90/0d0+qZ+Wvxi+AXiz4TXL3kgbXPCU0wSz8R2sDIkJkbbFa6xbhpDp1 + 2xIVSWMUpxsbdlV/zT8WfA7ijwuxE8XNPG8LTlani4RaUbuyhXjd+ym9k23Cb+GXNeMfyDPOG8bks3N/ + vME3pNLbykvsv8H0fQ8Hr8TPnQoAKACgAoAKACgAoAKACgAoAKAM3/6G+v6x/wDoCPxb/wCdpdX/AI+t + Y/7GTxT/AOpHqlfz1x5/yWvFX/YfX/8ATkj9P4f/AORVS/6+1v8A09UJa+TPaCgAoAKACgAoAKACgAoA + KACgD75/ZE8ceB/B/hTxWnifxZoWg3t/4ht2gtNVv7azmltbbTYQtxGJpFaSJpZnXOMAqa/uH6K3GfBn + CfDHE8OI+J8FgcZXx8XGFarCnJwhSjaS5mm05Sku10z9I4JzDL8Dg8YsXjadOpKqrKUknZRWuvm39x9c + f8Ls+Ef/AEUfwf8A+Dyx/wDjtf1P/wARi8K/+jgZT/4UU/8AM+1/t/Jf+hrQ/wDA1/mH/C7PhH/0Ufwf + /wCDyx/+O0f8Ri8K/wDo4GU/+FFP/MP7fyX/AKGtD/wNf5h/wuz4R/8ARR/B/wD4PLH/AOO0f8Ri8K/+ + jgZT/wCFFP8AzD+38l/6GtD/AMDX+Yf8Ls+Ef/RR/B//AIPLH/47R/xGLwr/AOjgZT/4UU/8w/t/Jf8A + oa0P/A1/mH/C7PhH/wBFH8H/APg8sf8A47R/xGLwr/6OBlP/AIUU/wDMP7fyX/oa0P8AwNf5h/wuz4R/ + 9FH8H/8Ag8sf/jtH/EYvCv8A6OBlP/hRT/zD+38l/wChrQ/8DX+Yf8Ls+Ef/AEUfwf8A+Dyx/wDjtH/E + YvCv/o4GU/8AhRT/AMw/t/Jf+hrQ/wDA1/mH/C7PhH/0Ufwf/wCDyx/+O0f8Ri8K/wDo4GU/+FFP/MP7 + fyX/AKGtD/wNf5h/wuz4R/8ARR/B/wD4PLH/AOO0f8Ri8K/+jgZT/wCFFP8AzD+38l/6GtD/AMDX+Yf8 + Ls+Ef/RR/B//AIPLH/47R/xGLwr/AOjgZT/4UU/8w/t/Jf8Aoa0P/A1/mH/C7PhH/wBFH8H/APg8sf8A + 47R/xGLwr/6OBlP/AIUU/wDMP7fyX/oa0P8AwNf5h/wuz4R/9FH8H/8Ag8sf/jtH/EYvCv8A6OBlP/hR + T/zD+38l/wChrQ/8DX+Z1fhzxj4W8XR3E3hfXtN16C0dY7mfSrlLyCCRwSkcs0O6JJWUEhSd2OcYr6fI + OLOGuKqdetw3neHx1Gk0pyozVSMW9k5Ruk2tbXvbWx2YXHYPGqUsJiYVIx3cXdL5o6WvoTqCgDm/Ffi/ + w54I0a417xRq1rpGmWwOZrhiZJ5dpZbaztkDXF7dyBTtiiV3bB4wDXz/ABPxVw/wblNfO+Jc0pYXLqf2 + pvWTtdQpwV5VJu2kIKUnrpZM5cZjcLl9CWJxlZQorq+vklu35LU/MX42/tMa/wDEn7V4e8Ni58O+CmLR + zQBwmra/HyM6tNCxEFk46WkbFDn940nyhP8AOPxj+kTnniF9ZyHh9VMBwe7qUb2r4lf9P5Rfu03/AM+I + txf/AC8lU91R/Jc/4sxOa8+Fwt6WA6r7U/8AE1sv7q07t6W+XK/ms+QCgAoAKACgAoAKACgAoAKACgAo + Azf/AKG+v6x/+gI/Fv8A52l1f+PrWP8AsZPFP/qR6pX89cef8lrxV/2H1/8A05I/T+H/APkVUv8Ar7W/ + 9PVCWvkz2goAKACgAoAKACgAoAKACgAoAKACgAoAKACgAoAKACgAoAKACgDQ0rSNU13ULbStF0681XUr + yQRWtjp9tLd3U79cRwwq7sFAyTjCgZOAK78syvMs6x2HyzKMBWxOY1ZWhTpQlOcn5Rim3bd9EtXoaUaN + bEVYUaFKU6snokrt/JH3j8Jv2O/+PbW/itN/cli8IabdfRtmt6rav9Q0No/v53Va/tnwv+ib/u+ceJ1b + tJYGjP52xFaD+ThQl5+23ifouS8D/DiM5l/3Ci//AEuS/KL/AO3uh94aVpOl6Fp9tpWi6dZaVptnGI7W + x0+2itLWBOpEcEKpGu4nJOMsTk5Nf2zlmV5bkuBw+WZRgKOGy6lG0KdKEYQivKMUkr7vq3q9T9Go0aOH + pwo0KUYUo7KKSS+SNCu80Pl34u/tReEPh99q0bw55Hi7xZHuia3tp/8AiSaVMNyn+1NQhLefPC45toCX + yCrvEcGv5s8VPpJ8K8CfWcoyDkzXiiN04wl/s9GW376rG/NKL3pU7y0cZzpOzPkc74vwOWc9DC2r41aW + T9yL/vSW7X8q16NxPzT8cfEDxZ8RdXfWvFmrz6lc/Mttb58qw06Bjn7Np1kmILSEYGdo3ORudmbJP+eH + GXHXFHH2azzfijNJ4jEaqEfhpUov7FKmvdhHvZXk9ZuUrt/lOYZnjc0ruvjazlLotoxXaK2S/F9bs4yv + kTgCgAoAKACgAoAKACgAoAKACgAoAKAM3/6G+v6x/wDoCPxb/wCdpoMjxX+vwSKUmtfFvjG0uI2GGiub + TxVrFtcwsP70U8TKe2RX8++IFOdLjjiynUjaazCvddv3kj9O4f8A+RYo/ajXxEX5ShiKsZL1Uk0/QdXy + B7YUAFABQAUAFABQAUAFABQAUAFABQAUAFABQAUAFABQAUAFABQB9N/Dz9oqy+GOn/YvCvwv8NwXEsap + faxdajf3OtakVxzd37RB/L3DIhjEcCEkqgJOf6M4D8fcJ4cYH6nwz4b5dCvKKVSvOrVniKtv56jV7X1U + IKNOLu4wTbv9ZlnFEMppezweUUlJrWTcnKXq/wBFZLoj0b/huDxT/wBCN4f/APBjqP8A8TX3/wDxOVxN + /wBEZgf/AAbV/wAj1P8AiIGM/wChfS/8CkH/AA3B4p/6Ebw//wCDHUf/AImj/icrib/ojMD/AODav+Qf + 8RAxn/Qvpf8AgUjzD4k/tQ/ET4g2H9j27W/hLRpYjHfWuhS3C3epbsho7vUpX+0i0KHBhi8tXBPmbxgD + 848QvpJce8d4L+yaEqeV5TKNqkMM5KdW+6nWk+fktpyQ5FJNqfOrJeTmvF2aZlT9hFqjQa1UL3l6yetv + JWv1ufNtfz2fKhQAUAFABQAUAFABQAUAFABQAUAFABQAUAVvsd1/zwl/5NN/4S37p/5Fz/oLf9ev/j3t + X9ff2djf+geX/JAc3/bvf0PxW/r/AMiL6z/3A/5+/wCH8fI+kv2s/hVf/Cj4ya7raWsg8CfFrWL3xX4e + 1QRn7JY+M9T3XvjLwreTqixQ6hqGpibV7QPhrmK6nVC7W0pHn/Sm8M8bw7xhiOMsDhpSyLM588pJXVPE + PWpGbS0c3epG9rptK7jJr9s4jy2pwrxZmGHqxtk2a154jDT+ysRU9/E4aT2U5VObE009akalRRu6Uj52 + r+USQoAKACgAoAKACgAoAKACgAoAKACgAoAKACgAoAKACgAoAKACgAoAKACgAoAKACgAoAKACgAoAKAC + gAoAKACgAoAKACgDV8NeDfEnxN8V6L8NPBiO3iTxXKbc3iRPNB4Y0FXjj1zxhqhT5bfTtCtJSyFyouLt + obdMySop/QfDLgHNfETizLchy6hJ0ZVFKtUs3GlSTXPOb2SS6X1bUV7zSflY+ONzGthuG8lf/C5jrwg0 + r+xpbVcVPtCjF3Tek6rp0leU0j9vv+GcvhX/ANAV/wDkhX/DOX37f/klf/QF/wCPX7/+1/q/9iv9cv8A + UXh3/oEf/In/ALM3X+6f8+9t/PbyP3H/AIh5wv8A9Ab/AORH/ZO6/wBy/wCffw7+e3906D42/wDCqP8A + hWXij/hdn9jf8K4+yRf27/bfm+Rv+0w/2d9g+y/8TH+3P7R8r7B9j/037X5fkfvdtdPGX+q3+rWa/wCu + fsP9W/Z/vvbfBa+lvtc/Nbk5ff5rcvvWPR4x/wBWP9Xcx/1w9l/YNl7TnvvzLk5OX3/a8/L7L2f7z2nL + 7P3rH4PeKbbwYlxeXfwr1rx/daK11cjTdA+LHhnQ7DU4bVW/0Z4vF3h3xbqV5cWEq/6pNQ0SLUY48faG + eXdX+TXHdHwfeY4ufBGY5zGhzytCphqEqS1+xV+tRqOL+zeimo2u27n84QhmEKc62RYnE1MDzP2dLMqc + KddR+y/rGHq1W4voq+FjiEv4rc7nCfa/Gv8A0L/hf/wsNW/+Yevzb2eW/wDQXX/8FR/+XE/WuLv+hHlv + /hdW/wDneH2vxr/0L/hf/wALDVv/AJh6PZ5b/wBBdf8A8FR/+XB9a4u/6EeW/wDhdW/+d4fa/Gv/AEL/ + AIX/APCw1b/5h6PZ5b/0F1//AAVH/wCXB9a4u/6EeW/+F1b/AOd4fa/Gv/Qv+F//AAsNW/8AmHo9nlv/ + AEF1/wDwVH/5cH1ri7/oR5b/AOF1b/53h9r8a/8AQv8Ahf8A8LDVv/mHo9nlv/QXX/8ABUf/AJcH1ri7 + /oR5b/4XVv8A53h9r8a/9C/4X/8ACw1b/wCYej2eW/8AQXX/APBUf/lwfWuLv+hHlv8A4XVv/neH2vxr + /wBC/wCF/wDwsNW/+Yej2eW/9Bdf/wAFR/8AlwfWuLv+hHlv/hdW/wDneH2vxr/0L/hf/wALDVv/AJh6 + PZ5b/wBBdf8A8FR/+XB9a4u/6EeW/wDhdW/+d4fa/Gv/AEL/AIX/APCw1b/5h6PZ5b/0F1//AAVH/wCX + B9a4u/6EeW/+F1b/AOd4fa/Gv/Qv+F//AAsNW/8AmHo9nlv/AEF1/wDwVH/5cH1ri7/oR5b/AOF1b/53 + h9r8a/8AQv8Ahf8A8LDVv/mHo9nlv/QXX/8ABUf/AJcH1ri7/oR5b/4XVv8A53h9r8a/9C/4X/8ACw1b + /wCYej2eW/8AQXX/APBUf/lwfWuLv+hHlv8A4XVv/neH2vxr/wBC/wCF/wDwsNW/+Yej2eW/9Bdf/wAF + R/8AlwfWuLv+hHlv/hdW/wDneH2vxr/0L/hf/wALDVv/AJh6PZ5b/wBBdf8A8FR/+XB9a4u/6EeW/wDh + dW/+d4fa/Gv/AEL/AIX/APCw1b/5h6PZ5b/0F1//AAVH/wCXB9a4u/6EeW/+F1b/AOd4fa/Gv/Qv+F// + AAsNW/8AmHo9nlv/AEF1/wDwVH/5cH1ri7/oR5b/AOF1b/53h9r8a/8AQv8Ahf8A8LDVv/mHo9nlv/QX + X/8ABUf/AJcH1ri7/oR5b/4XVv8A53h9r8a/9C/4X/8ACw1b/wCYej2eW/8AQXX/APBUf/lwfWuLv+hH + lv8A4XVv/neH2vxr/wBC/wCF/wDwsNW/+Yej2eW/9Bdf/wAFR/8AlwfWuLv+hHlv/hdW/wDneH2vxr/0 + L/hf/wALDVv/AJh6PZ5b/wBBdf8A8FR/+XB9a4u/6EeW/wDhdW/+d4fa/Gv/AEL/AIX/APCw1b/5h6PZ + 5b/0F1//AAVH/wCXB9a4u/6EeW/+F1b/AOd4fa/Gv/Qv+F//AAsNW/8AmHo9nlv/AEF1/wDwVH/5cH1r + i7/oR5b/AOF1b/53h9r8a/8AQv8Ahf8A8LDVv/mHo9nlv/QXX/8ABUf/AJcH1ri7/oR5b/4XVv8A53h9 + r8a/9C/4X/8ACw1b/wCYej2eW/8AQXX/APBUf/lwfWuLv+hHlv8A4XVv/neH2vxr/wBC/wCF/wDwsNW/ + +Yej2eW/9Bdf/wAFR/8AlwfWuLv+hHlv/hdW/wDneH2vxr/0L/hf/wALDVv/AJh6PZ5b/wBBdf8A8FR/ + +XB9a4u/6EeW/wDhdW/+d4fa/Gv/AEL/AIX/APCw1b/5h6PZ5b/0F1//AAVH/wCXB9a4u/6EeW/+F1b/ + AOd4fa/Gv/Qv+F//AAsNW/8AmHo9nlv/AEF1/wDwVH/5cH1ri7/oR5b/AOF1b/53h9r8a/8AQv8Ahf8A + 8LDVv/mHo9nlv/QXX/8ABUf/AJcH1ri7/oR5b/4XVv8A53h9r8a/9C/4X/8ACw1b/wCYej2eW/8AQXX/ + APBUf/lwfWuLv+hHlv8A4XVv/neH2vxr/wBC/wCF/wDwsNW/+Yej2eW/9Bdf/wAFR/8AlwfWuLv+hHlv + /hdW/wDneH2vxr/0L/hf/wALDVv/AJh6PZ5b/wBBdf8A8FR/+XB9a4u/6EeW/wDhdW/+d4fa/Gv/AEL/ + AIX/APCw1b/5h6PZ5b/0F1//AAVH/wCXB9a4u/6EeW/+F1b/AOd4fa/Gv/Qv+F//AAsNW/8AmHo9nlv/ + AEF1/wDwVH/5cH1ri7/oR5b/AOF1b/53h9r8a/8AQv8Ahf8A8LDVv/mHo9nlv/QXX/8ABUf/AJcH1ri7 + /oR5b/4XVv8A53h9r8a/9C/4X/8ACw1b/wCYej2eW/8AQXX/APBUf/lwfWuLv+hHlv8A4XVv/neH2vxr + /wBC/wCF/wDwsNW/+Yej2eW/9Bdf/wAFR/8AlwfWuLv+hHlv/hdW/wDneH2vxr/0L/hf/wALDVv/AJh6 + PZ5b/wBBdf8A8FR/+XB9a4u/6EeW/wDhdW/+d5u6LDc30hHirUH8LWSh2kbwjo8Hj3Vp0VMiKyXxDrvw + 30y1upW4WSYzRRk5ZHA2n38hocDTxVP/AFlzTNKeEvr9XwtCo2u3v4yna/dXa3SexpH/AFlxMZ/WXhsH + BJ/wObGVHptBVngacZPo5uUVu4yWh+wH7F//AAz0PCWsD4NnWW8Vg6d/wsdvHq2ifFJrvZP/AGYfEqWb + Ppi6Sf332IaSx0UHzfs5LebX+ongR/xCv/Vd/wDEMn7nu/WPa2+t81ny+3t8+Xk/d35uX3uY/XvC7/U/ + 6rmH9hPE/wCsHufXPrnL9dvr7P2vLen7L4vZfV39W+L2WvMfalfuR+rH/9k= + + + + 222, 17 + + + 222, 17 + + + 322, 17 + + \ No newline at end of file diff --git a/ArinWarev1/Forms/Frm_Intro.vb b/ArinWarev1/Forms/Frm_Intro.vb new file mode 100644 index 0000000..01531ce --- /dev/null +++ b/ArinWarev1/Forms/Frm_Intro.vb @@ -0,0 +1,204 @@ +Public Class Frm_Intro + Public Overrides Function AcceptChanged() As Boolean + + End Function + Public Overrides Function RejectChanged() As Boolean + + End Function + Public Overrides Function HasChanged() As Boolean + + End Function + Private Sub Save_SEtting() + Myini.Write("user", "chkid", Me.chk_id.Checked) + Myini.Write("user", "chkpass", Me.chk_pass.Checked) + If Me.chk_id.Checked Then + Myini.Write("user", "id", Me.tb_id.Text) + Else + Myini.Write("user", "id", "") + End If + If Me.chk_pass.Checked Then + Myini.Write("user", "pass", Me.tb_pw.Text) + Else + Myini.Write("user", "pass", "") + End If + + End Sub + Private Sub Frm_Login_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown + Select Case e.KeyCode + Case Keys.Escape + Me.Close() + End Select + End Sub + + Private Sub Frm_Login_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load + 'TODO: 이 코드는 데이터를 'DS.C2600' 테이블에 로드합니다. 필요한 경우 이 코드를 이동하거나 제거할 수 있습니다. + ' Uselov = New Lov.ModLov(My.Settings.CS, "") + + Me.lbl_ip.Text = "현재 IP:" & Prj.CUrIP & "/MAC:" & Prj.CUrMac & " 컴퓨터에서 접속하였습니다." + My.Application.DoEvents() + '//지정된 정보를 가져옵니다. + + Try + Me.chk_id.Checked = CBool(Myini.Read("user", "chkid", CStr(True))) + Me.chk_pass.Checked = CBool(Myini.Read("user", "chkpass", CStr(True))) + Catch ex As Exception + Me.chk_id.Checked = False + Me.chk_pass.Checked = False + End Try + + If Me.chk_id.Checked Then Me.tb_id.Text = Myini.Read("user", "id", "") + If Me.chk_pass.Checked Then Me.tb_pw.Text = Myini.Read("user", "pass", "") + + End Sub + + Private Function GetLevel(ByVal Dcode As String) As Short + 'im DR() As DataRow = Me.DS.tbl_user.Select("uid='" & Dcode & "'") + 'If DR Is Nothing Then Return 0 '//일반사원 반환 + 'Try + ' Return CShort(DR(0)("level")) + 'Catch ex As Exception + ' Return 0 + 'End Try + End Function + + Private Sub tb_pw_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles tb_pw.KeyDown + If e.KeyCode = Keys.Enter Then + '//지정된 id 와 비번으로 해당 계정이 존재하는지 확인한다. + + login() + ElseIf e.KeyCode = Keys.Escape Then + Me.DialogResult = Windows.Forms.DialogResult.Cancel + End If + End Sub + + Private Sub tb_id_GotFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles tb_id.GotFocus, tb_pw.GotFocus + CType(sender, TextBox).Focus() + CType(sender, TextBox).SelectAll() + End Sub + + Private Sub tB_id_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles tb_id.KeyDown + Select Case e.KeyCode + Case Keys.Enter + Me.tb_pw.Focus() + Case Keys.Escape + Me.DialogResult = Windows.Forms.DialogResult.Cancel + End Select + End Sub + Private Sub login() + Work_msg("서버 응답을 기다리는중") + Dim L As New ArinLogin.ArinLOgin + Dim UseriNfo As ArinLogin.ArinLOgin.User_Info = L.Check_user("eco_user", Me.tb_id.Text, Me.tb_pw.Text) + Work_msg("") + + Prj.Admin = False + If UseriNfo.name = "" Then + If Me.tb_id.Text = "guest" Then + UseriNfo.authtype = "IP" + + Else + MsgBox("존재하지 않는계정이거나 비밀번호오류입니다", MsgBoxStyle.Critical, "확인") + Return + End If + + End If + Select Case UseriNfo.authtype + Case "IP" + If Me.tb_id.Text <> "guest" Then + If Prj.CUrIP.ToUpper <> UseriNfo.authip.ToUpper Then + MsgBox("로그인사용자와 현재컴퓨터의 IP가 일치하지않습니다", MsgBoxStyle.Critical, "확인") + Return + End If + Else + Try + Dim userPass As String + Dim userMAC As String + Dim userIP As String + userMAC = Prj.CUrMac.GetHashCode + userIP = Prj.CUrIP.GetHashCode + userPass = userIP + userMAC + userPass = userPass.GetHashCode + If CLng(userPass) < 0 Then + userPass = (CLng(userPass) * -1).ToString + End If + If Me.tb_pw.Text <> userPass Then + MsgBox("존재하지 않는계정이거나 비밀번호오류입니다", MsgBoxStyle.Critical, "확인") + End + End If + Catch ex As Exception + MsgBox("존재하지 않는계정이거나 비밀번호오류입니다", MsgBoxStyle.Critical, "확인") + End + End Try + End If + Case "MAC" '//MAC인증일경우 현재MAC과 비교한다. + If Prj.CUrMac.ToUpper <> UseriNfo.authmac.ToUpper Then + MsgBox("로그인사용자와 현재컴퓨터의 MAC이 일치하지않습니다", MsgBoxStyle.Critical, "확인") + Return + End If + Case "BOTH", "BOTH1", "BOTH2" '// BOTH1, BOTH2 는 기존 일반사용자와 다른 권한 부여하기 위해 만듬. BOTH1은 가져오기 가능, BOTH2는 가져오기 + 프로파일 수정가능 2010.11.22 --- BOTH0 은 일반유저로 설정 + If Prj.CUrIP.ToUpper <> UseriNfo.authip.ToUpper OrElse Prj.CUrMac.ToUpper <> UseriNfo.authmac.ToUpper Then + MsgBox("로그인사용자의 IP 또는 MAC이 일치하지 않습니다", MsgBoxStyle.Critical, "확인") + Return + End If + Case "ADMIN" + Prj.Admin = True + Case "BOTH0" + + Case Else + Return + + End Select + Prj.LoginTime = Format(Now, "yyyy-MM-dd HH:mi:ss") + Prj.UserId = Me.tb_id.Text + Prj.UserPass = Me.tb_pw.Text + If Me.tb_id.Text = "guest" Then + Prj.UserAuthType = "BOTH0" + Else + Prj.UserAuthType = UseriNfo.authtype + End If + + Save_SEtting() + + Me.DialogResult = Windows.Forms.DialogResult.OK + End Sub + 'Private Sub LinkLabel1_LinkClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs) Handles LinkLabel1.LinkClicked + ' Dim LF As New Frm_user("") + ' If LF.ShowDialog = Windows.Forms.DialogResult.OK Then + ' Me.tB_id.Text = LF.UID + ' Me.tb_pw.Text = "" + ' Me.tb_pw.Focus() + ' Else + ' Me.tB_id.Text = "" + ' Me.tb_pw.Text = "" + ' Me.tB_id.Focus() + ' End If + 'End Sub + Private Sub Frm_Intro_SizeChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.SizeChanged + + End Sub + + + Private Sub lbl_ip_LinkClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs) + Dim Str As New System.Text.StringBuilder + Str.AppendLine("### 다음내용을 관리자에게 메일로 보내주세요 ###") + Str.AppendLine("ip : " & Prj.CUrIP) + Str.AppendLine("mac : " & Prj.CUrMac) + 'Str.AppendLine("lg : " & Prj.LGVersino) + 'Str.AppendLine("ui : " & Prj.UIVersion) + My.Computer.FileSystem.WriteAllText("c:\address.txt", Str.ToString, False) + Shell("notepad c:\address.txt", AppWinStyle.NormalFocus) + End Sub + + + + Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click + login() + End Sub + + Private Sub Label1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) + End + End Sub + + Private Sub btn_end_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) + End + End Sub +End Class \ No newline at end of file diff --git a/ArinWarev1/Forms/Frm_RepResult_Admin.Designer.vb b/ArinWarev1/Forms/Frm_RepResult_Admin.Designer.vb new file mode 100644 index 0000000..0afc777 --- /dev/null +++ b/ArinWarev1/Forms/Frm_RepResult_Admin.Designer.vb @@ -0,0 +1,1604 @@ + _ +Partial Class Frm_RepResult_Admin + Inherits CForm + + 'Form은 Dispose를 재정의하여 구성 요소 목록을 정리합니다. + _ + Protected Overrides Sub Dispose(ByVal disposing As Boolean) + Try + If disposing AndAlso components IsNot Nothing Then + components.Dispose() + End If + Finally + MyBase.Dispose(disposing) + End Try + End Sub + + 'Windows Form 디자이너에 필요합니다. + Private components As System.ComponentModel.IContainer + + '참고: 다음 프로시저는 Windows Form 디자이너에 필요합니다. + '수정하려면 Windows Form 디자이너를 사용하십시오. + '코드 편집기를 사용하여 수정하지 마십시오. + _ + Private Sub InitializeComponent() + Me.components = New System.ComponentModel.Container() + Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(Frm_RepResult_Admin)) + Me.DSR = New Eco2Ar.DSR() + Me.ToolStripButton49 = New System.Windows.Forms.ToolStripButton() + Me.ToolStripButton44 = New System.Windows.Forms.ToolStripButton() + Me.ToolStripButton48 = New System.Windows.Forms.ToolStripButton() + Me.ToolStripButton50 = New System.Windows.Forms.ToolStripButton() + Me.ToolStripButton45 = New System.Windows.Forms.ToolStripButton() + Me.ToolStripButton47 = New System.Windows.Forms.ToolStripButton() + Me.ToolStripButton46 = New System.Windows.Forms.ToolStripButton() + Me.ToolStripSeparator26 = New System.Windows.Forms.ToolStripSeparator() + Me.ToolStripTextBox6 = New System.Windows.Forms.ToolStripTextBox() + Me.ToolStripSeparator27 = New System.Windows.Forms.ToolStripSeparator() + Me.bn_all = New System.Windows.Forms.BindingNavigator(Me.components) + Me.ToolStripLabel6 = New System.Windows.Forms.ToolStripLabel() + Me.ToolStripSeparator25 = New System.Windows.Forms.ToolStripSeparator() + Me.ToolStripSeparator28 = New System.Windows.Forms.ToolStripSeparator() + Me.ToolStripButton51 = New System.Windows.Forms.ToolStripButton() + Me.StatusStrip1 = New System.Windows.Forms.StatusStrip() + Me.lb_msg = New System.Windows.Forms.ToolStripStatusLabel() + Me.bsmain = New System.Windows.Forms.BindingSource(Me.components) + Me.DataGridView1 = New Eco2Ar.ArinDv() + Me.CodeDataGridViewTextBoxColumn = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.DescDataGridViewTextBoxColumn = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.GRPDataGridViewTextBoxColumn = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.UNITDataGridViewTextBoxColumn = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.SIGNDataGridViewTextBoxColumn = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.EQDataGridViewTextBoxColumn = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.F = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.M00 = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.M01DataGridViewTextBoxColumn = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.M02DataGridViewTextBoxColumn = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.M03DataGridViewTextBoxColumn = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.M04DataGridViewTextBoxColumn = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.M05DataGridViewTextBoxColumn = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.M06DataGridViewTextBoxColumn = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.M07DataGridViewTextBoxColumn = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.M08DataGridViewTextBoxColumn = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.M09DataGridViewTextBoxColumn = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.M10DataGridViewTextBoxColumn = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.M11DataGridViewTextBoxColumn = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.M12DataGridViewTextBoxColumn = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.TabControl1 = New System.Windows.Forms.TabControl() + Me.TabPage1 = New System.Windows.Forms.TabPage() + Me.TabPage2 = New System.Windows.Forms.TabPage() + Me.DataGridView2 = New Eco2Ar.ArinDv() + Me.ZoneDataGridViewTextBoxColumn = 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.냉방최대가동시간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_max = New System.Windows.Forms.BindingSource(Me.components) + Me.TabPage3 = New System.Windows.Forms.TabPage() + Me.DataGridView3 = New Eco2Ar.ArinDv() + Me.HDataGridViewTextBoxColumn = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.CDataGridViewTextBoxColumn = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.LDataGridViewTextBoxColumn = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.WDataGridViewTextBoxColumn = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.VDataGridViewTextBoxColumn = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.bs_면적 = New System.Windows.Forms.BindingSource(Me.components) + Me.TabPage5 = New System.Windows.Forms.TabPage() + Me.DataGridView5 = New Eco2Ar.ArinDv() + Me.MonDataGridViewTextBoxColumn1 = 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_소요량 = New System.Windows.Forms.BindingSource(Me.components) + Me.TabPage6 = New System.Windows.Forms.TabPage() + Me.DataGridView6 = New Eco2Ar.ArinDv() + Me.MonDataGridViewTextBoxColumn2 = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.난방등유DataGridViewTextBoxColumn1 = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.난방LNGDataGridViewTextBoxColumn1 = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.난방LPGDataGridViewTextBoxColumn1 = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.난방지역DataGridViewTextBoxColumn1 = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.난방전력DataGridViewTextBoxColumn1 = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.냉방등유DataGridViewTextBoxColumn1 = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.냉방LNGDataGridViewTextBoxColumn1 = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.냉방LPGDataGridViewTextBoxColumn1 = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.냉방지역DataGridViewTextBoxColumn1 = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.냉방지역2DataGridViewTextBoxColumn = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.냉방전력DataGridViewTextBoxColumn1 = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.급탕등유DataGridViewTextBoxColumn1 = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.급탕LNGDataGridViewTextBoxColumn1 = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.급탕LPGDataGridViewTextBoxColumn1 = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.급탕지역DataGridViewTextBoxColumn1 = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.급탕전력DataGridViewTextBoxColumn1 = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.bs_1차소요량 = New System.Windows.Forms.BindingSource(Me.components) + Me.TabPage7 = New System.Windows.Forms.TabPage() + Me.TabControl2 = New System.Windows.Forms.TabControl() + Me.TabPage9 = New System.Windows.Forms.TabPage() + Me.DataGridView7 = New Eco2Ar.ArinDv() + Me.TabPage10 = New System.Windows.Forms.TabPage() + Me.DataGridView9 = New Eco2Ar.ArinDv() + Me.TabPage11 = New System.Windows.Forms.TabPage() + Me.DataGridView10 = New Eco2Ar.ArinDv() + Me.TabPage12 = New System.Windows.Forms.TabPage() + Me.DataGridView11 = New Eco2Ar.ArinDv() + Me.TabPage13 = New System.Windows.Forms.TabPage() + Me.DataGridView12 = New Eco2Ar.ArinDv() + Me.TabPage14 = New System.Windows.Forms.TabPage() + Me.DataGridView13 = New Eco2Ar.ArinDv() + Me.TabPage15 = New System.Windows.Forms.TabPage() + Me.DataGridView14 = New Eco2Ar.ArinDv() + Me.TabPage16 = New System.Windows.Forms.TabPage() + Me.DataGridView15 = New Eco2Ar.ArinDv() + Me.TabPage17 = New System.Windows.Forms.TabPage() + Me.DataGridView16 = New Eco2Ar.ArinDv() + Me.TabPage18 = New System.Windows.Forms.TabPage() + Me.DataGridView17 = New Eco2Ar.ArinDv() + Me.TabPage19 = New System.Windows.Forms.TabPage() + Me.DataGridView18 = New Eco2Ar.ArinDv() + Me.TabPage20 = New System.Windows.Forms.TabPage() + Me.DataGridView19 = New Eco2Ar.ArinDv() + Me.TabPage8 = New System.Windows.Forms.TabPage() + Me.DataGridView8 = New Eco2Ar.ArinDv() + Me.MonDataGridViewTextBoxColumn3 = 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() + Me.StatusStrip1.SuspendLayout() + CType(Me.bsmain, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.DataGridView1, System.ComponentModel.ISupportInitialize).BeginInit() + Me.TabControl1.SuspendLayout() + Me.TabPage1.SuspendLayout() + Me.TabPage2.SuspendLayout() + CType(Me.DataGridView2, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.bs_max, System.ComponentModel.ISupportInitialize).BeginInit() + Me.TabPage3.SuspendLayout() + CType(Me.DataGridView3, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.bs_면적, System.ComponentModel.ISupportInitialize).BeginInit() + Me.TabPage5.SuspendLayout() + CType(Me.DataGridView5, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.bs_소요량, System.ComponentModel.ISupportInitialize).BeginInit() + Me.TabPage6.SuspendLayout() + CType(Me.DataGridView6, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.bs_1차소요량, System.ComponentModel.ISupportInitialize).BeginInit() + Me.TabPage7.SuspendLayout() + Me.TabControl2.SuspendLayout() + Me.TabPage9.SuspendLayout() + CType(Me.DataGridView7, System.ComponentModel.ISupportInitialize).BeginInit() + Me.TabPage10.SuspendLayout() + CType(Me.DataGridView9, System.ComponentModel.ISupportInitialize).BeginInit() + Me.TabPage11.SuspendLayout() + CType(Me.DataGridView10, System.ComponentModel.ISupportInitialize).BeginInit() + Me.TabPage12.SuspendLayout() + CType(Me.DataGridView11, System.ComponentModel.ISupportInitialize).BeginInit() + Me.TabPage13.SuspendLayout() + CType(Me.DataGridView12, System.ComponentModel.ISupportInitialize).BeginInit() + Me.TabPage14.SuspendLayout() + CType(Me.DataGridView13, System.ComponentModel.ISupportInitialize).BeginInit() + Me.TabPage15.SuspendLayout() + CType(Me.DataGridView14, System.ComponentModel.ISupportInitialize).BeginInit() + Me.TabPage16.SuspendLayout() + CType(Me.DataGridView15, System.ComponentModel.ISupportInitialize).BeginInit() + Me.TabPage17.SuspendLayout() + CType(Me.DataGridView16, System.ComponentModel.ISupportInitialize).BeginInit() + Me.TabPage18.SuspendLayout() + CType(Me.DataGridView17, System.ComponentModel.ISupportInitialize).BeginInit() + Me.TabPage19.SuspendLayout() + CType(Me.DataGridView18, System.ComponentModel.ISupportInitialize).BeginInit() + Me.TabPage20.SuspendLayout() + CType(Me.DataGridView19, System.ComponentModel.ISupportInitialize).BeginInit() + Me.TabPage8.SuspendLayout() + CType(Me.DataGridView8, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.bs_생산E, System.ComponentModel.ISupportInitialize).BeginInit() + Me.SuspendLayout() + ' + 'DSR + ' + Me.DSR.DataSetName = "DSR" + Me.DSR.SchemaSerializationMode = System.Data.SchemaSerializationMode.IncludeSchema + ' + 'ToolStripButton49 + ' + Me.ToolStripButton49.Image = CType(resources.GetObject("ToolStripButton49.Image"), System.Drawing.Image) + Me.ToolStripButton49.Name = "ToolStripButton49" + Me.ToolStripButton49.RightToLeftAutoMirrorImage = True + Me.ToolStripButton49.Size = New System.Drawing.Size(66, 22) + Me.ToolStripButton49.Text = "삭제(&D)" + ' + 'ToolStripButton44 + ' + Me.ToolStripButton44.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.ToolStripButton44.Image = CType(resources.GetObject("ToolStripButton44.Image"), System.Drawing.Image) + Me.ToolStripButton44.Name = "ToolStripButton44" + Me.ToolStripButton44.RightToLeftAutoMirrorImage = True + Me.ToolStripButton44.Size = New System.Drawing.Size(23, 22) + Me.ToolStripButton44.Text = "처음으로 이동" + ' + 'ToolStripButton48 + ' + Me.ToolStripButton48.Image = CType(resources.GetObject("ToolStripButton48.Image"), System.Drawing.Image) + Me.ToolStripButton48.Name = "ToolStripButton48" + Me.ToolStripButton48.RightToLeftAutoMirrorImage = True + Me.ToolStripButton48.Size = New System.Drawing.Size(66, 22) + Me.ToolStripButton48.Text = "추가(&A)" + ' + 'ToolStripButton50 + ' + Me.ToolStripButton50.Image = CType(resources.GetObject("ToolStripButton50.Image"), System.Drawing.Image) + Me.ToolStripButton50.Name = "ToolStripButton50" + Me.ToolStripButton50.Size = New System.Drawing.Size(64, 22) + Me.ToolStripButton50.Text = "저장(&S)" + ' + 'ToolStripButton45 + ' + Me.ToolStripButton45.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.ToolStripButton45.Image = CType(resources.GetObject("ToolStripButton45.Image"), System.Drawing.Image) + Me.ToolStripButton45.Name = "ToolStripButton45" + Me.ToolStripButton45.RightToLeftAutoMirrorImage = True + Me.ToolStripButton45.Size = New System.Drawing.Size(23, 22) + Me.ToolStripButton45.Text = "이전으로 이동" + ' + 'ToolStripButton47 + ' + Me.ToolStripButton47.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.ToolStripButton47.Image = CType(resources.GetObject("ToolStripButton47.Image"), System.Drawing.Image) + Me.ToolStripButton47.Name = "ToolStripButton47" + Me.ToolStripButton47.RightToLeftAutoMirrorImage = True + Me.ToolStripButton47.Size = New System.Drawing.Size(23, 22) + Me.ToolStripButton47.Text = "마지막으로 이동" + ' + 'ToolStripButton46 + ' + Me.ToolStripButton46.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.ToolStripButton46.Image = CType(resources.GetObject("ToolStripButton46.Image"), System.Drawing.Image) + Me.ToolStripButton46.Name = "ToolStripButton46" + Me.ToolStripButton46.RightToLeftAutoMirrorImage = True + Me.ToolStripButton46.Size = New System.Drawing.Size(23, 22) + Me.ToolStripButton46.Text = "다음으로 이동" + ' + 'ToolStripSeparator26 + ' + Me.ToolStripSeparator26.Name = "ToolStripSeparator26" + Me.ToolStripSeparator26.Size = New System.Drawing.Size(6, 25) + ' + 'ToolStripTextBox6 + ' + Me.ToolStripTextBox6.AccessibleName = "위치" + Me.ToolStripTextBox6.AutoSize = False + Me.ToolStripTextBox6.Name = "ToolStripTextBox6" + Me.ToolStripTextBox6.Size = New System.Drawing.Size(50, 21) + Me.ToolStripTextBox6.Text = "0" + Me.ToolStripTextBox6.ToolTipText = "현재 위치" + ' + 'ToolStripSeparator27 + ' + Me.ToolStripSeparator27.Name = "ToolStripSeparator27" + Me.ToolStripSeparator27.Size = New System.Drawing.Size(6, 25) + ' + 'bn_all + ' + Me.bn_all.AddNewItem = Nothing + Me.bn_all.CountItem = Me.ToolStripLabel6 + Me.bn_all.DeleteItem = Nothing + 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, 457) + 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(898, 25) + Me.bn_all.TabIndex = 13 + Me.bn_all.Text = "BindingNavigator1" + ' + 'ToolStripLabel6 + ' + Me.ToolStripLabel6.Name = "ToolStripLabel6" + Me.ToolStripLabel6.Size = New System.Drawing.Size(27, 22) + Me.ToolStripLabel6.Text = "/{0}" + Me.ToolStripLabel6.ToolTipText = "전체 항목 수" + ' + 'ToolStripSeparator25 + ' + Me.ToolStripSeparator25.Name = "ToolStripSeparator25" + Me.ToolStripSeparator25.Size = New System.Drawing.Size(6, 25) + ' + 'ToolStripSeparator28 + ' + Me.ToolStripSeparator28.Name = "ToolStripSeparator28" + Me.ToolStripSeparator28.Size = New System.Drawing.Size(6, 25) + ' + 'ToolStripButton51 + ' + Me.ToolStripButton51.Image = CType(resources.GetObject("ToolStripButton51.Image"), System.Drawing.Image) + Me.ToolStripButton51.ImageTransparentColor = System.Drawing.Color.Magenta + Me.ToolStripButton51.Name = "ToolStripButton51" + Me.ToolStripButton51.Size = New System.Drawing.Size(65, 22) + Me.ToolStripButton51.Text = "취소(&C)" + ' + 'StatusStrip1 + ' + Me.StatusStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.lb_msg}) + Me.StatusStrip1.Location = New System.Drawing.Point(0, 482) + Me.StatusStrip1.Name = "StatusStrip1" + Me.StatusStrip1.Size = New System.Drawing.Size(898, 22) + Me.StatusStrip1.TabIndex = 14 + Me.StatusStrip1.Text = "StatusStrip1" + ' + 'lb_msg + ' + Me.lb_msg.Name = "lb_msg" + Me.lb_msg.Size = New System.Drawing.Size(59, 17) + Me.lb_msg.Text = "<메세지>" + ' + 'bsmain + ' + Me.bsmain.DataMember = "TReqUse" + Me.bsmain.DataSource = Me.DSR + ' + 'DataGridView1 + ' + Me.DataGridView1.AllowUserToAddRows = False + Me.DataGridView1.AllowUserToDeleteRows = False + Me.DataGridView1.AllowUserToResizeRows = False + Me.DataGridView1.AutoGenerateColumns = False + Me.DataGridView1.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.AllCells + Me.DataGridView1.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize + Me.DataGridView1.Columns.AddRange(New System.Windows.Forms.DataGridViewColumn() {Me.CodeDataGridViewTextBoxColumn, Me.DescDataGridViewTextBoxColumn, Me.GRPDataGridViewTextBoxColumn, Me.UNITDataGridViewTextBoxColumn, Me.SIGNDataGridViewTextBoxColumn, Me.EQDataGridViewTextBoxColumn, Me.F, Me.M00, Me.M01DataGridViewTextBoxColumn, Me.M02DataGridViewTextBoxColumn, Me.M03DataGridViewTextBoxColumn, Me.M04DataGridViewTextBoxColumn, Me.M05DataGridViewTextBoxColumn, Me.M06DataGridViewTextBoxColumn, Me.M07DataGridViewTextBoxColumn, Me.M08DataGridViewTextBoxColumn, Me.M09DataGridViewTextBoxColumn, Me.M10DataGridViewTextBoxColumn, Me.M11DataGridViewTextBoxColumn, Me.M12DataGridViewTextBoxColumn}) + Me.DataGridView1.DataSource = Me.bsmain + Me.DataGridView1.Dock = System.Windows.Forms.DockStyle.Fill + Me.DataGridView1.Location = New System.Drawing.Point(3, 3) + Me.DataGridView1.Name = "DataGridView1" + Me.DataGridView1.ReadOnly = True + Me.DataGridView1.RowHeadersVisible = False + Me.DataGridView1.RowTemplate.Height = 23 + Me.DataGridView1.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect + Me.DataGridView1.Size = New System.Drawing.Size(884, 424) + Me.DataGridView1.TabIndex = 15 + ' + 'CodeDataGridViewTextBoxColumn + ' + Me.CodeDataGridViewTextBoxColumn.DataPropertyName = "Code" + Me.CodeDataGridViewTextBoxColumn.HeaderText = "Code" + Me.CodeDataGridViewTextBoxColumn.Name = "CodeDataGridViewTextBoxColumn" + Me.CodeDataGridViewTextBoxColumn.ReadOnly = True + Me.CodeDataGridViewTextBoxColumn.Width = 61 + ' + 'DescDataGridViewTextBoxColumn + ' + Me.DescDataGridViewTextBoxColumn.DataPropertyName = "Desc" + Me.DescDataGridViewTextBoxColumn.HeaderText = "Desc" + Me.DescDataGridViewTextBoxColumn.Name = "DescDataGridViewTextBoxColumn" + Me.DescDataGridViewTextBoxColumn.ReadOnly = True + Me.DescDataGridViewTextBoxColumn.Width = 59 + ' + 'GRPDataGridViewTextBoxColumn + ' + Me.GRPDataGridViewTextBoxColumn.DataPropertyName = "GRP" + Me.GRPDataGridViewTextBoxColumn.HeaderText = "GRP" + Me.GRPDataGridViewTextBoxColumn.Name = "GRPDataGridViewTextBoxColumn" + Me.GRPDataGridViewTextBoxColumn.ReadOnly = True + Me.GRPDataGridViewTextBoxColumn.Width = 56 + ' + 'UNITDataGridViewTextBoxColumn + ' + Me.UNITDataGridViewTextBoxColumn.DataPropertyName = "UNIT" + Me.UNITDataGridViewTextBoxColumn.HeaderText = "UNIT" + Me.UNITDataGridViewTextBoxColumn.Name = "UNITDataGridViewTextBoxColumn" + Me.UNITDataGridViewTextBoxColumn.ReadOnly = True + Me.UNITDataGridViewTextBoxColumn.Width = 60 + ' + 'SIGNDataGridViewTextBoxColumn + ' + Me.SIGNDataGridViewTextBoxColumn.DataPropertyName = "SIGN" + Me.SIGNDataGridViewTextBoxColumn.HeaderText = "SIGN" + Me.SIGNDataGridViewTextBoxColumn.Name = "SIGNDataGridViewTextBoxColumn" + Me.SIGNDataGridViewTextBoxColumn.ReadOnly = True + Me.SIGNDataGridViewTextBoxColumn.Width = 61 + ' + 'EQDataGridViewTextBoxColumn + ' + Me.EQDataGridViewTextBoxColumn.DataPropertyName = "EQ" + Me.EQDataGridViewTextBoxColumn.HeaderText = "EQ" + Me.EQDataGridViewTextBoxColumn.Name = "EQDataGridViewTextBoxColumn" + Me.EQDataGridViewTextBoxColumn.ReadOnly = True + Me.EQDataGridViewTextBoxColumn.Width = 48 + ' + 'F + ' + Me.F.DataPropertyName = "F" + Me.F.HeaderText = "F" + Me.F.Name = "F" + Me.F.ReadOnly = True + Me.F.Width = 38 + ' + 'M00 + ' + Me.M00.DataPropertyName = "M00" + Me.M00.HeaderText = "TOTAL" + Me.M00.Name = "M00" + Me.M00.ReadOnly = True + Me.M00.Width = 70 + ' + 'M01DataGridViewTextBoxColumn + ' + Me.M01DataGridViewTextBoxColumn.DataPropertyName = "M01" + Me.M01DataGridViewTextBoxColumn.HeaderText = "M01" + Me.M01DataGridViewTextBoxColumn.Name = "M01DataGridViewTextBoxColumn" + Me.M01DataGridViewTextBoxColumn.ReadOnly = True + Me.M01DataGridViewTextBoxColumn.Width = 58 + ' + 'M02DataGridViewTextBoxColumn + ' + Me.M02DataGridViewTextBoxColumn.DataPropertyName = "M02" + Me.M02DataGridViewTextBoxColumn.HeaderText = "M02" + Me.M02DataGridViewTextBoxColumn.Name = "M02DataGridViewTextBoxColumn" + Me.M02DataGridViewTextBoxColumn.ReadOnly = True + Me.M02DataGridViewTextBoxColumn.Width = 58 + ' + 'M03DataGridViewTextBoxColumn + ' + Me.M03DataGridViewTextBoxColumn.DataPropertyName = "M03" + Me.M03DataGridViewTextBoxColumn.HeaderText = "M03" + Me.M03DataGridViewTextBoxColumn.Name = "M03DataGridViewTextBoxColumn" + Me.M03DataGridViewTextBoxColumn.ReadOnly = True + Me.M03DataGridViewTextBoxColumn.Width = 58 + ' + 'M04DataGridViewTextBoxColumn + ' + Me.M04DataGridViewTextBoxColumn.DataPropertyName = "M04" + Me.M04DataGridViewTextBoxColumn.HeaderText = "M04" + Me.M04DataGridViewTextBoxColumn.Name = "M04DataGridViewTextBoxColumn" + Me.M04DataGridViewTextBoxColumn.ReadOnly = True + Me.M04DataGridViewTextBoxColumn.Width = 58 + ' + 'M05DataGridViewTextBoxColumn + ' + Me.M05DataGridViewTextBoxColumn.DataPropertyName = "M05" + Me.M05DataGridViewTextBoxColumn.HeaderText = "M05" + Me.M05DataGridViewTextBoxColumn.Name = "M05DataGridViewTextBoxColumn" + Me.M05DataGridViewTextBoxColumn.ReadOnly = True + Me.M05DataGridViewTextBoxColumn.Width = 58 + ' + 'M06DataGridViewTextBoxColumn + ' + Me.M06DataGridViewTextBoxColumn.DataPropertyName = "M06" + Me.M06DataGridViewTextBoxColumn.HeaderText = "M06" + Me.M06DataGridViewTextBoxColumn.Name = "M06DataGridViewTextBoxColumn" + Me.M06DataGridViewTextBoxColumn.ReadOnly = True + Me.M06DataGridViewTextBoxColumn.Width = 58 + ' + 'M07DataGridViewTextBoxColumn + ' + Me.M07DataGridViewTextBoxColumn.DataPropertyName = "M07" + Me.M07DataGridViewTextBoxColumn.HeaderText = "M07" + Me.M07DataGridViewTextBoxColumn.Name = "M07DataGridViewTextBoxColumn" + Me.M07DataGridViewTextBoxColumn.ReadOnly = True + Me.M07DataGridViewTextBoxColumn.Width = 58 + ' + 'M08DataGridViewTextBoxColumn + ' + Me.M08DataGridViewTextBoxColumn.DataPropertyName = "M08" + Me.M08DataGridViewTextBoxColumn.HeaderText = "M08" + Me.M08DataGridViewTextBoxColumn.Name = "M08DataGridViewTextBoxColumn" + Me.M08DataGridViewTextBoxColumn.ReadOnly = True + Me.M08DataGridViewTextBoxColumn.Width = 58 + ' + 'M09DataGridViewTextBoxColumn + ' + Me.M09DataGridViewTextBoxColumn.DataPropertyName = "M09" + Me.M09DataGridViewTextBoxColumn.HeaderText = "M09" + Me.M09DataGridViewTextBoxColumn.Name = "M09DataGridViewTextBoxColumn" + Me.M09DataGridViewTextBoxColumn.ReadOnly = True + Me.M09DataGridViewTextBoxColumn.Width = 58 + ' + 'M10DataGridViewTextBoxColumn + ' + Me.M10DataGridViewTextBoxColumn.DataPropertyName = "M10" + Me.M10DataGridViewTextBoxColumn.HeaderText = "M10" + Me.M10DataGridViewTextBoxColumn.Name = "M10DataGridViewTextBoxColumn" + Me.M10DataGridViewTextBoxColumn.ReadOnly = True + Me.M10DataGridViewTextBoxColumn.Width = 58 + ' + 'M11DataGridViewTextBoxColumn + ' + Me.M11DataGridViewTextBoxColumn.DataPropertyName = "M11" + Me.M11DataGridViewTextBoxColumn.HeaderText = "M11" + Me.M11DataGridViewTextBoxColumn.Name = "M11DataGridViewTextBoxColumn" + Me.M11DataGridViewTextBoxColumn.ReadOnly = True + Me.M11DataGridViewTextBoxColumn.Width = 58 + ' + 'M12DataGridViewTextBoxColumn + ' + Me.M12DataGridViewTextBoxColumn.DataPropertyName = "M12" + Me.M12DataGridViewTextBoxColumn.HeaderText = "M12" + Me.M12DataGridViewTextBoxColumn.Name = "M12DataGridViewTextBoxColumn" + Me.M12DataGridViewTextBoxColumn.ReadOnly = True + Me.M12DataGridViewTextBoxColumn.Width = 58 + ' + 'TabControl1 + ' + Me.TabControl1.Controls.Add(Me.TabPage1) + Me.TabControl1.Controls.Add(Me.TabPage2) + Me.TabControl1.Controls.Add(Me.TabPage3) + Me.TabControl1.Controls.Add(Me.TabPage5) + Me.TabControl1.Controls.Add(Me.TabPage6) + Me.TabControl1.Controls.Add(Me.TabPage7) + Me.TabControl1.Controls.Add(Me.TabPage8) + 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(898, 457) + Me.TabControl1.TabIndex = 16 + ' + 'TabPage1 + ' + Me.TabPage1.Controls.Add(Me.DataGridView1) + Me.TabPage1.Location = New System.Drawing.Point(4, 23) + Me.TabPage1.Name = "TabPage1" + Me.TabPage1.Padding = New System.Windows.Forms.Padding(3) + Me.TabPage1.Size = New System.Drawing.Size(890, 430) + Me.TabPage1.TabIndex = 0 + Me.TabPage1.Text = "계산결과" + Me.TabPage1.UseVisualStyleBackColor = True + ' + 'TabPage2 + ' + Me.TabPage2.Controls.Add(Me.DataGridView2) + Me.TabPage2.Location = New System.Drawing.Point(4, 23) + Me.TabPage2.Name = "TabPage2" + Me.TabPage2.Padding = New System.Windows.Forms.Padding(3) + Me.TabPage2.Size = New System.Drawing.Size(890, 430) + Me.TabPage2.TabIndex = 1 + Me.TabPage2.Text = "최대냉난방" + Me.TabPage2.UseVisualStyleBackColor = True + ' + 'DataGridView2 + ' + Me.DataGridView2.AllowUserToAddRows = False + Me.DataGridView2.AllowUserToDeleteRows = False + Me.DataGridView2.AllowUserToResizeRows = False + Me.DataGridView2.AutoGenerateColumns = False + Me.DataGridView2.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.AllCells + Me.DataGridView2.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize + Me.DataGridView2.Columns.AddRange(New System.Windows.Forms.DataGridViewColumn() {Me.ZoneDataGridViewTextBoxColumn, Me.최대난방기기부하DataGridViewTextBoxColumn, Me.최대난방실내부하DataGridViewTextBoxColumn, Me.난방최대가동시간DataGridViewTextBoxColumn, Me.최대가열성능DataGridViewTextBoxColumn, Me.최대냉방기기부하DataGridViewTextBoxColumn, Me.최대냉방실내부하DataGridViewTextBoxColumn, Me.냉방최대가동시간DataGridViewTextBoxColumn, Me.최대냉각성능DataGridViewTextBoxColumn, Me.최대가습성능DataGridViewTextBoxColumn, Me.공조풍량DataGridViewTextBoxColumn}) + Me.DataGridView2.DataSource = Me.bs_max + Me.DataGridView2.Dock = System.Windows.Forms.DockStyle.Fill + Me.DataGridView2.Location = New System.Drawing.Point(3, 3) + Me.DataGridView2.Name = "DataGridView2" + Me.DataGridView2.ReadOnly = True + Me.DataGridView2.RowHeadersVisible = False + Me.DataGridView2.RowTemplate.Height = 23 + Me.DataGridView2.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect + Me.DataGridView2.Size = New System.Drawing.Size(884, 424) + Me.DataGridView2.TabIndex = 16 + ' + 'ZoneDataGridViewTextBoxColumn + ' + Me.ZoneDataGridViewTextBoxColumn.DataPropertyName = "Zone" + Me.ZoneDataGridViewTextBoxColumn.HeaderText = "Zone" + Me.ZoneDataGridViewTextBoxColumn.Name = "ZoneDataGridViewTextBoxColumn" + Me.ZoneDataGridViewTextBoxColumn.ReadOnly = True + Me.ZoneDataGridViewTextBoxColumn.Width = 60 + ' + '최대난방기기부하DataGridViewTextBoxColumn + ' + Me.최대난방기기부하DataGridViewTextBoxColumn.DataPropertyName = "최대난방기기부하" + Me.최대난방기기부하DataGridViewTextBoxColumn.HeaderText = "최대난방기기부하" + Me.최대난방기기부하DataGridViewTextBoxColumn.Name = "최대난방기기부하DataGridViewTextBoxColumn" + Me.최대난방기기부하DataGridViewTextBoxColumn.ReadOnly = True + Me.최대난방기기부하DataGridViewTextBoxColumn.Width = 80 + ' + '최대난방실내부하DataGridViewTextBoxColumn + ' + Me.최대난방실내부하DataGridViewTextBoxColumn.DataPropertyName = "최대난방실내부하" + Me.최대난방실내부하DataGridViewTextBoxColumn.HeaderText = "최대난방실내부하" + Me.최대난방실내부하DataGridViewTextBoxColumn.Name = "최대난방실내부하DataGridViewTextBoxColumn" + Me.최대난방실내부하DataGridViewTextBoxColumn.ReadOnly = True + Me.최대난방실내부하DataGridViewTextBoxColumn.Width = 80 + ' + '난방최대가동시간DataGridViewTextBoxColumn + ' + Me.난방최대가동시간DataGridViewTextBoxColumn.DataPropertyName = "난방최대가동시간" + Me.난방최대가동시간DataGridViewTextBoxColumn.HeaderText = "난방최대가동시간" + Me.난방최대가동시간DataGridViewTextBoxColumn.Name = "난방최대가동시간DataGridViewTextBoxColumn" + Me.난방최대가동시간DataGridViewTextBoxColumn.ReadOnly = True + Me.난방최대가동시간DataGridViewTextBoxColumn.Width = 80 + ' + '최대가열성능DataGridViewTextBoxColumn + ' + Me.최대가열성능DataGridViewTextBoxColumn.DataPropertyName = "최대가열성능" + Me.최대가열성능DataGridViewTextBoxColumn.HeaderText = "최대가열성능" + Me.최대가열성능DataGridViewTextBoxColumn.Name = "최대가열성능DataGridViewTextBoxColumn" + Me.최대가열성능DataGridViewTextBoxColumn.ReadOnly = True + Me.최대가열성능DataGridViewTextBoxColumn.Width = 70 + ' + '최대냉방기기부하DataGridViewTextBoxColumn + ' + Me.최대냉방기기부하DataGridViewTextBoxColumn.DataPropertyName = "최대냉방기기부하" + Me.최대냉방기기부하DataGridViewTextBoxColumn.HeaderText = "최대냉방기기부하" + Me.최대냉방기기부하DataGridViewTextBoxColumn.Name = "최대냉방기기부하DataGridViewTextBoxColumn" + Me.최대냉방기기부하DataGridViewTextBoxColumn.ReadOnly = True + Me.최대냉방기기부하DataGridViewTextBoxColumn.Width = 80 + ' + '최대냉방실내부하DataGridViewTextBoxColumn + ' + Me.최대냉방실내부하DataGridViewTextBoxColumn.DataPropertyName = "최대냉방실내부하" + Me.최대냉방실내부하DataGridViewTextBoxColumn.HeaderText = "최대냉방실내부하" + Me.최대냉방실내부하DataGridViewTextBoxColumn.Name = "최대냉방실내부하DataGridViewTextBoxColumn" + Me.최대냉방실내부하DataGridViewTextBoxColumn.ReadOnly = True + Me.최대냉방실내부하DataGridViewTextBoxColumn.Width = 80 + ' + '냉방최대가동시간DataGridViewTextBoxColumn + ' + Me.냉방최대가동시간DataGridViewTextBoxColumn.DataPropertyName = "냉방최대가동시간" + Me.냉방최대가동시간DataGridViewTextBoxColumn.HeaderText = "냉방최대가동시간" + Me.냉방최대가동시간DataGridViewTextBoxColumn.Name = "냉방최대가동시간DataGridViewTextBoxColumn" + Me.냉방최대가동시간DataGridViewTextBoxColumn.ReadOnly = True + Me.냉방최대가동시간DataGridViewTextBoxColumn.Width = 80 + ' + '최대냉각성능DataGridViewTextBoxColumn + ' + Me.최대냉각성능DataGridViewTextBoxColumn.DataPropertyName = "최대냉각성능" + Me.최대냉각성능DataGridViewTextBoxColumn.HeaderText = "최대냉각성능" + Me.최대냉각성능DataGridViewTextBoxColumn.Name = "최대냉각성능DataGridViewTextBoxColumn" + Me.최대냉각성능DataGridViewTextBoxColumn.ReadOnly = True + Me.최대냉각성능DataGridViewTextBoxColumn.Width = 70 + ' + '최대가습성능DataGridViewTextBoxColumn + ' + Me.최대가습성능DataGridViewTextBoxColumn.DataPropertyName = "최대가습성능" + Me.최대가습성능DataGridViewTextBoxColumn.HeaderText = "최대가습성능" + Me.최대가습성능DataGridViewTextBoxColumn.Name = "최대가습성능DataGridViewTextBoxColumn" + Me.최대가습성능DataGridViewTextBoxColumn.ReadOnly = True + Me.최대가습성능DataGridViewTextBoxColumn.Width = 70 + ' + '공조풍량DataGridViewTextBoxColumn + ' + Me.공조풍량DataGridViewTextBoxColumn.DataPropertyName = "공조풍량" + Me.공조풍량DataGridViewTextBoxColumn.HeaderText = "공조풍량" + Me.공조풍량DataGridViewTextBoxColumn.Name = "공조풍량DataGridViewTextBoxColumn" + Me.공조풍량DataGridViewTextBoxColumn.ReadOnly = True + Me.공조풍량DataGridViewTextBoxColumn.Width = 60 + ' + 'bs_max + ' + Me.bs_max.DataMember = "최대냉난방부하" + Me.bs_max.DataSource = Me.DSR + ' + 'TabPage3 + ' + Me.TabPage3.Controls.Add(Me.DataGridView3) + Me.TabPage3.Location = New System.Drawing.Point(4, 23) + Me.TabPage3.Name = "TabPage3" + Me.TabPage3.Size = New System.Drawing.Size(890, 430) + Me.TabPage3.TabIndex = 2 + Me.TabPage3.Text = "사용면적" + Me.TabPage3.UseVisualStyleBackColor = True + ' + 'DataGridView3 + ' + Me.DataGridView3.AllowUserToAddRows = False + Me.DataGridView3.AllowUserToDeleteRows = False + Me.DataGridView3.AllowUserToResizeRows = False + Me.DataGridView3.AutoGenerateColumns = False + Me.DataGridView3.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.AllCells + Me.DataGridView3.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize + Me.DataGridView3.Columns.AddRange(New System.Windows.Forms.DataGridViewColumn() {Me.HDataGridViewTextBoxColumn, Me.CDataGridViewTextBoxColumn, Me.LDataGridViewTextBoxColumn, Me.WDataGridViewTextBoxColumn, Me.VDataGridViewTextBoxColumn}) + Me.DataGridView3.DataSource = Me.bs_면적 + Me.DataGridView3.Dock = System.Windows.Forms.DockStyle.Fill + Me.DataGridView3.Location = New System.Drawing.Point(0, 0) + Me.DataGridView3.Name = "DataGridView3" + Me.DataGridView3.ReadOnly = True + Me.DataGridView3.RowHeadersVisible = False + Me.DataGridView3.RowTemplate.Height = 23 + Me.DataGridView3.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect + Me.DataGridView3.Size = New System.Drawing.Size(890, 430) + Me.DataGridView3.TabIndex = 16 + ' + 'HDataGridViewTextBoxColumn + ' + Me.HDataGridViewTextBoxColumn.DataPropertyName = "H" + Me.HDataGridViewTextBoxColumn.HeaderText = "H" + Me.HDataGridViewTextBoxColumn.Name = "HDataGridViewTextBoxColumn" + Me.HDataGridViewTextBoxColumn.ReadOnly = True + Me.HDataGridViewTextBoxColumn.Width = 41 + ' + 'CDataGridViewTextBoxColumn + ' + Me.CDataGridViewTextBoxColumn.DataPropertyName = "C" + Me.CDataGridViewTextBoxColumn.HeaderText = "C" + Me.CDataGridViewTextBoxColumn.Name = "CDataGridViewTextBoxColumn" + Me.CDataGridViewTextBoxColumn.ReadOnly = True + Me.CDataGridViewTextBoxColumn.Width = 40 + ' + 'LDataGridViewTextBoxColumn + ' + Me.LDataGridViewTextBoxColumn.DataPropertyName = "L" + Me.LDataGridViewTextBoxColumn.HeaderText = "L" + Me.LDataGridViewTextBoxColumn.Name = "LDataGridViewTextBoxColumn" + Me.LDataGridViewTextBoxColumn.ReadOnly = True + Me.LDataGridViewTextBoxColumn.Width = 38 + ' + 'WDataGridViewTextBoxColumn + ' + Me.WDataGridViewTextBoxColumn.DataPropertyName = "W" + Me.WDataGridViewTextBoxColumn.HeaderText = "W" + Me.WDataGridViewTextBoxColumn.Name = "WDataGridViewTextBoxColumn" + Me.WDataGridViewTextBoxColumn.ReadOnly = True + Me.WDataGridViewTextBoxColumn.Width = 44 + ' + 'VDataGridViewTextBoxColumn + ' + Me.VDataGridViewTextBoxColumn.DataPropertyName = "V" + Me.VDataGridViewTextBoxColumn.HeaderText = "V" + Me.VDataGridViewTextBoxColumn.Name = "VDataGridViewTextBoxColumn" + Me.VDataGridViewTextBoxColumn.ReadOnly = True + Me.VDataGridViewTextBoxColumn.Width = 40 + ' + 'bs_면적 + ' + Me.bs_면적.DataMember = "사용면적" + Me.bs_면적.DataSource = Me.DSR + ' + 'TabPage5 + ' + Me.TabPage5.Controls.Add(Me.DataGridView5) + Me.TabPage5.Location = New System.Drawing.Point(4, 23) + Me.TabPage5.Name = "TabPage5" + Me.TabPage5.Size = New System.Drawing.Size(890, 430) + Me.TabPage5.TabIndex = 4 + Me.TabPage5.Text = "에너지소요량" + Me.TabPage5.UseVisualStyleBackColor = True + ' + 'DataGridView5 + ' + Me.DataGridView5.AllowUserToAddRows = False + Me.DataGridView5.AllowUserToDeleteRows = False + Me.DataGridView5.AllowUserToResizeRows = False + Me.DataGridView5.AutoGenerateColumns = False + Me.DataGridView5.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.AllCells + Me.DataGridView5.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize + Me.DataGridView5.Columns.AddRange(New System.Windows.Forms.DataGridViewColumn() {Me.MonDataGridViewTextBoxColumn1, Me.난방에너지소요량DataGridViewTextBoxColumn, Me.난방보조에너지소요량DataGridViewTextBoxColumn, Me.냉방에너지소요량DataGridViewTextBoxColumn, Me.냉방보조에너지소요량DataGridViewTextBoxColumn, Me.급탕에너지소요량DataGridViewTextBoxColumn, Me.급탕보조에너지소요량DataGridViewTextBoxColumn}) + Me.DataGridView5.DataSource = Me.bs_소요량 + Me.DataGridView5.Dock = System.Windows.Forms.DockStyle.Fill + Me.DataGridView5.Location = New System.Drawing.Point(0, 0) + Me.DataGridView5.Name = "DataGridView5" + Me.DataGridView5.ReadOnly = True + Me.DataGridView5.RowHeadersVisible = False + Me.DataGridView5.RowTemplate.Height = 23 + Me.DataGridView5.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect + Me.DataGridView5.Size = New System.Drawing.Size(890, 430) + Me.DataGridView5.TabIndex = 16 + ' + 'MonDataGridViewTextBoxColumn1 + ' + Me.MonDataGridViewTextBoxColumn1.DataPropertyName = "mon" + Me.MonDataGridViewTextBoxColumn1.HeaderText = "mon" + Me.MonDataGridViewTextBoxColumn1.Name = "MonDataGridViewTextBoxColumn1" + Me.MonDataGridViewTextBoxColumn1.ReadOnly = True + Me.MonDataGridViewTextBoxColumn1.Width = 57 + ' + '난방에너지소요량DataGridViewTextBoxColumn + ' + Me.난방에너지소요량DataGridViewTextBoxColumn.DataPropertyName = "난방에너지소요량" + Me.난방에너지소요량DataGridViewTextBoxColumn.HeaderText = "난방에너지소요량" + Me.난방에너지소요량DataGridViewTextBoxColumn.Name = "난방에너지소요량DataGridViewTextBoxColumn" + Me.난방에너지소요량DataGridViewTextBoxColumn.ReadOnly = True + Me.난방에너지소요량DataGridViewTextBoxColumn.Width = 80 + ' + '난방보조에너지소요량DataGridViewTextBoxColumn + ' + Me.난방보조에너지소요량DataGridViewTextBoxColumn.DataPropertyName = "난방보조에너지소요량" + Me.난방보조에너지소요량DataGridViewTextBoxColumn.HeaderText = "난방보조에너지소요량" + Me.난방보조에너지소요량DataGridViewTextBoxColumn.Name = "난방보조에너지소요량DataGridViewTextBoxColumn" + Me.난방보조에너지소요량DataGridViewTextBoxColumn.ReadOnly = True + Me.난방보조에너지소요량DataGridViewTextBoxColumn.Width = 90 + ' + '냉방에너지소요량DataGridViewTextBoxColumn + ' + Me.냉방에너지소요량DataGridViewTextBoxColumn.DataPropertyName = "냉방에너지소요량" + Me.냉방에너지소요량DataGridViewTextBoxColumn.HeaderText = "냉방에너지소요량" + Me.냉방에너지소요량DataGridViewTextBoxColumn.Name = "냉방에너지소요량DataGridViewTextBoxColumn" + Me.냉방에너지소요량DataGridViewTextBoxColumn.ReadOnly = True + Me.냉방에너지소요량DataGridViewTextBoxColumn.Width = 80 + ' + '냉방보조에너지소요량DataGridViewTextBoxColumn + ' + Me.냉방보조에너지소요량DataGridViewTextBoxColumn.DataPropertyName = "냉방보조에너지소요량" + Me.냉방보조에너지소요량DataGridViewTextBoxColumn.HeaderText = "냉방보조에너지소요량" + Me.냉방보조에너지소요량DataGridViewTextBoxColumn.Name = "냉방보조에너지소요량DataGridViewTextBoxColumn" + Me.냉방보조에너지소요량DataGridViewTextBoxColumn.ReadOnly = True + Me.냉방보조에너지소요량DataGridViewTextBoxColumn.Width = 90 + ' + '급탕에너지소요량DataGridViewTextBoxColumn + ' + Me.급탕에너지소요량DataGridViewTextBoxColumn.DataPropertyName = "급탕에너지소요량" + Me.급탕에너지소요량DataGridViewTextBoxColumn.HeaderText = "급탕에너지소요량" + Me.급탕에너지소요량DataGridViewTextBoxColumn.Name = "급탕에너지소요량DataGridViewTextBoxColumn" + Me.급탕에너지소요량DataGridViewTextBoxColumn.ReadOnly = True + Me.급탕에너지소요량DataGridViewTextBoxColumn.Width = 80 + ' + '급탕보조에너지소요량DataGridViewTextBoxColumn + ' + Me.급탕보조에너지소요량DataGridViewTextBoxColumn.DataPropertyName = "급탕보조에너지소요량" + Me.급탕보조에너지소요량DataGridViewTextBoxColumn.HeaderText = "급탕보조에너지소요량" + Me.급탕보조에너지소요량DataGridViewTextBoxColumn.Name = "급탕보조에너지소요량DataGridViewTextBoxColumn" + Me.급탕보조에너지소요량DataGridViewTextBoxColumn.ReadOnly = True + Me.급탕보조에너지소요량DataGridViewTextBoxColumn.Width = 90 + ' + 'bs_소요량 + ' + Me.bs_소요량.DataMember = "에너지소요량" + Me.bs_소요량.DataSource = Me.DSR + ' + 'TabPage6 + ' + Me.TabPage6.Controls.Add(Me.DataGridView6) + Me.TabPage6.Location = New System.Drawing.Point(4, 23) + Me.TabPage6.Name = "TabPage6" + Me.TabPage6.Size = New System.Drawing.Size(890, 430) + Me.TabPage6.TabIndex = 5 + Me.TabPage6.Text = "1차에너지소요량" + Me.TabPage6.UseVisualStyleBackColor = True + ' + 'DataGridView6 + ' + Me.DataGridView6.AllowUserToAddRows = False + Me.DataGridView6.AllowUserToDeleteRows = False + Me.DataGridView6.AllowUserToResizeRows = False + Me.DataGridView6.AutoGenerateColumns = False + Me.DataGridView6.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.AllCells + Me.DataGridView6.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize + Me.DataGridView6.Columns.AddRange(New System.Windows.Forms.DataGridViewColumn() {Me.MonDataGridViewTextBoxColumn2, Me.난방등유DataGridViewTextBoxColumn1, Me.난방LNGDataGridViewTextBoxColumn1, Me.난방LPGDataGridViewTextBoxColumn1, Me.난방지역DataGridViewTextBoxColumn1, Me.난방전력DataGridViewTextBoxColumn1, Me.냉방등유DataGridViewTextBoxColumn1, Me.냉방LNGDataGridViewTextBoxColumn1, Me.냉방LPGDataGridViewTextBoxColumn1, Me.냉방지역DataGridViewTextBoxColumn1, Me.냉방지역2DataGridViewTextBoxColumn, Me.냉방전력DataGridViewTextBoxColumn1, Me.급탕등유DataGridViewTextBoxColumn1, Me.급탕LNGDataGridViewTextBoxColumn1, Me.급탕LPGDataGridViewTextBoxColumn1, Me.급탕지역DataGridViewTextBoxColumn1, Me.급탕전력DataGridViewTextBoxColumn1}) + Me.DataGridView6.DataSource = Me.bs_1차소요량 + Me.DataGridView6.Dock = System.Windows.Forms.DockStyle.Fill + Me.DataGridView6.Location = New System.Drawing.Point(0, 0) + Me.DataGridView6.Name = "DataGridView6" + Me.DataGridView6.ReadOnly = True + Me.DataGridView6.RowHeadersVisible = False + Me.DataGridView6.RowTemplate.Height = 23 + Me.DataGridView6.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect + Me.DataGridView6.Size = New System.Drawing.Size(890, 430) + Me.DataGridView6.TabIndex = 16 + ' + 'MonDataGridViewTextBoxColumn2 + ' + Me.MonDataGridViewTextBoxColumn2.DataPropertyName = "mon" + Me.MonDataGridViewTextBoxColumn2.HeaderText = "mon" + Me.MonDataGridViewTextBoxColumn2.Name = "MonDataGridViewTextBoxColumn2" + Me.MonDataGridViewTextBoxColumn2.ReadOnly = True + Me.MonDataGridViewTextBoxColumn2.Width = 57 + ' + '난방등유DataGridViewTextBoxColumn1 + ' + Me.난방등유DataGridViewTextBoxColumn1.DataPropertyName = "난방등유" + Me.난방등유DataGridViewTextBoxColumn1.HeaderText = "난방등유" + Me.난방등유DataGridViewTextBoxColumn1.Name = "난방등유DataGridViewTextBoxColumn1" + Me.난방등유DataGridViewTextBoxColumn1.ReadOnly = True + Me.난방등유DataGridViewTextBoxColumn1.Width = 76 + ' + '난방LNGDataGridViewTextBoxColumn1 + ' + Me.난방LNGDataGridViewTextBoxColumn1.DataPropertyName = "난방LNG" + Me.난방LNGDataGridViewTextBoxColumn1.HeaderText = "난방LNG" + Me.난방LNGDataGridViewTextBoxColumn1.Name = "난방LNGDataGridViewTextBoxColumn1" + Me.난방LNGDataGridViewTextBoxColumn1.ReadOnly = True + Me.난방LNGDataGridViewTextBoxColumn1.Width = 79 + ' + '난방LPGDataGridViewTextBoxColumn1 + ' + Me.난방LPGDataGridViewTextBoxColumn1.DataPropertyName = "난방LPG" + Me.난방LPGDataGridViewTextBoxColumn1.HeaderText = "난방LPG" + Me.난방LPGDataGridViewTextBoxColumn1.Name = "난방LPGDataGridViewTextBoxColumn1" + Me.난방LPGDataGridViewTextBoxColumn1.ReadOnly = True + Me.난방LPGDataGridViewTextBoxColumn1.Width = 77 + ' + '난방지역DataGridViewTextBoxColumn1 + ' + Me.난방지역DataGridViewTextBoxColumn1.DataPropertyName = "난방지역" + Me.난방지역DataGridViewTextBoxColumn1.HeaderText = "난방지역" + Me.난방지역DataGridViewTextBoxColumn1.Name = "난방지역DataGridViewTextBoxColumn1" + Me.난방지역DataGridViewTextBoxColumn1.ReadOnly = True + Me.난방지역DataGridViewTextBoxColumn1.Width = 76 + ' + '난방전력DataGridViewTextBoxColumn1 + ' + Me.난방전력DataGridViewTextBoxColumn1.DataPropertyName = "난방전력" + Me.난방전력DataGridViewTextBoxColumn1.HeaderText = "난방전력" + Me.난방전력DataGridViewTextBoxColumn1.Name = "난방전력DataGridViewTextBoxColumn1" + Me.난방전력DataGridViewTextBoxColumn1.ReadOnly = True + Me.난방전력DataGridViewTextBoxColumn1.Width = 76 + ' + '냉방등유DataGridViewTextBoxColumn1 + ' + Me.냉방등유DataGridViewTextBoxColumn1.DataPropertyName = "냉방등유" + Me.냉방등유DataGridViewTextBoxColumn1.HeaderText = "냉방등유" + Me.냉방등유DataGridViewTextBoxColumn1.Name = "냉방등유DataGridViewTextBoxColumn1" + Me.냉방등유DataGridViewTextBoxColumn1.ReadOnly = True + Me.냉방등유DataGridViewTextBoxColumn1.Width = 76 + ' + '냉방LNGDataGridViewTextBoxColumn1 + ' + Me.냉방LNGDataGridViewTextBoxColumn1.DataPropertyName = "냉방LNG" + Me.냉방LNGDataGridViewTextBoxColumn1.HeaderText = "냉방LNG" + Me.냉방LNGDataGridViewTextBoxColumn1.Name = "냉방LNGDataGridViewTextBoxColumn1" + Me.냉방LNGDataGridViewTextBoxColumn1.ReadOnly = True + Me.냉방LNGDataGridViewTextBoxColumn1.Width = 79 + ' + '냉방LPGDataGridViewTextBoxColumn1 + ' + Me.냉방LPGDataGridViewTextBoxColumn1.DataPropertyName = "냉방LPG" + Me.냉방LPGDataGridViewTextBoxColumn1.HeaderText = "냉방LPG" + Me.냉방LPGDataGridViewTextBoxColumn1.Name = "냉방LPGDataGridViewTextBoxColumn1" + Me.냉방LPGDataGridViewTextBoxColumn1.ReadOnly = True + Me.냉방LPGDataGridViewTextBoxColumn1.Width = 77 + ' + '냉방지역DataGridViewTextBoxColumn1 + ' + Me.냉방지역DataGridViewTextBoxColumn1.DataPropertyName = "냉방지역" + Me.냉방지역DataGridViewTextBoxColumn1.HeaderText = "냉방지역" + Me.냉방지역DataGridViewTextBoxColumn1.Name = "냉방지역DataGridViewTextBoxColumn1" + Me.냉방지역DataGridViewTextBoxColumn1.ReadOnly = True + Me.냉방지역DataGridViewTextBoxColumn1.Width = 76 + ' + '냉방지역2DataGridViewTextBoxColumn + ' + Me.냉방지역2DataGridViewTextBoxColumn.DataPropertyName = "냉방지역2" + Me.냉방지역2DataGridViewTextBoxColumn.HeaderText = "냉방지역2" + Me.냉방지역2DataGridViewTextBoxColumn.Name = "냉방지역2DataGridViewTextBoxColumn" + Me.냉방지역2DataGridViewTextBoxColumn.ReadOnly = True + Me.냉방지역2DataGridViewTextBoxColumn.Width = 83 + ' + '냉방전력DataGridViewTextBoxColumn1 + ' + Me.냉방전력DataGridViewTextBoxColumn1.DataPropertyName = "냉방전력" + Me.냉방전력DataGridViewTextBoxColumn1.HeaderText = "냉방전력" + Me.냉방전력DataGridViewTextBoxColumn1.Name = "냉방전력DataGridViewTextBoxColumn1" + Me.냉방전력DataGridViewTextBoxColumn1.ReadOnly = True + Me.냉방전력DataGridViewTextBoxColumn1.Width = 76 + ' + '급탕등유DataGridViewTextBoxColumn1 + ' + Me.급탕등유DataGridViewTextBoxColumn1.DataPropertyName = "급탕등유" + Me.급탕등유DataGridViewTextBoxColumn1.HeaderText = "급탕등유" + Me.급탕등유DataGridViewTextBoxColumn1.Name = "급탕등유DataGridViewTextBoxColumn1" + Me.급탕등유DataGridViewTextBoxColumn1.ReadOnly = True + Me.급탕등유DataGridViewTextBoxColumn1.Width = 76 + ' + '급탕LNGDataGridViewTextBoxColumn1 + ' + Me.급탕LNGDataGridViewTextBoxColumn1.DataPropertyName = "급탕LNG" + Me.급탕LNGDataGridViewTextBoxColumn1.HeaderText = "급탕LNG" + Me.급탕LNGDataGridViewTextBoxColumn1.Name = "급탕LNGDataGridViewTextBoxColumn1" + Me.급탕LNGDataGridViewTextBoxColumn1.ReadOnly = True + Me.급탕LNGDataGridViewTextBoxColumn1.Width = 79 + ' + '급탕LPGDataGridViewTextBoxColumn1 + ' + Me.급탕LPGDataGridViewTextBoxColumn1.DataPropertyName = "급탕LPG" + Me.급탕LPGDataGridViewTextBoxColumn1.HeaderText = "급탕LPG" + Me.급탕LPGDataGridViewTextBoxColumn1.Name = "급탕LPGDataGridViewTextBoxColumn1" + Me.급탕LPGDataGridViewTextBoxColumn1.ReadOnly = True + Me.급탕LPGDataGridViewTextBoxColumn1.Width = 77 + ' + '급탕지역DataGridViewTextBoxColumn1 + ' + Me.급탕지역DataGridViewTextBoxColumn1.DataPropertyName = "급탕지역" + Me.급탕지역DataGridViewTextBoxColumn1.HeaderText = "급탕지역" + Me.급탕지역DataGridViewTextBoxColumn1.Name = "급탕지역DataGridViewTextBoxColumn1" + Me.급탕지역DataGridViewTextBoxColumn1.ReadOnly = True + Me.급탕지역DataGridViewTextBoxColumn1.Width = 76 + ' + '급탕전력DataGridViewTextBoxColumn1 + ' + Me.급탕전력DataGridViewTextBoxColumn1.DataPropertyName = "급탕전력" + Me.급탕전력DataGridViewTextBoxColumn1.HeaderText = "급탕전력" + Me.급탕전력DataGridViewTextBoxColumn1.Name = "급탕전력DataGridViewTextBoxColumn1" + Me.급탕전력DataGridViewTextBoxColumn1.ReadOnly = True + Me.급탕전력DataGridViewTextBoxColumn1.Width = 76 + ' + 'bs_1차소요량 + ' + Me.bs_1차소요량.DataMember = "에너지소요량1" + Me.bs_1차소요량.DataSource = Me.DSR + ' + 'TabPage7 + ' + Me.TabPage7.Controls.Add(Me.TabControl2) + Me.TabPage7.Location = New System.Drawing.Point(4, 23) + Me.TabPage7.Name = "TabPage7" + Me.TabPage7.Size = New System.Drawing.Size(890, 430) + Me.TabPage7.TabIndex = 6 + Me.TabPage7.Text = "에너지분석" + Me.TabPage7.UseVisualStyleBackColor = True + ' + 'TabControl2 + ' + Me.TabControl2.Appearance = System.Windows.Forms.TabAppearance.FlatButtons + Me.TabControl2.Controls.Add(Me.TabPage9) + Me.TabControl2.Controls.Add(Me.TabPage10) + Me.TabControl2.Controls.Add(Me.TabPage11) + Me.TabControl2.Controls.Add(Me.TabPage12) + Me.TabControl2.Controls.Add(Me.TabPage13) + Me.TabControl2.Controls.Add(Me.TabPage14) + Me.TabControl2.Controls.Add(Me.TabPage15) + Me.TabControl2.Controls.Add(Me.TabPage16) + Me.TabControl2.Controls.Add(Me.TabPage17) + Me.TabControl2.Controls.Add(Me.TabPage18) + Me.TabControl2.Controls.Add(Me.TabPage19) + Me.TabControl2.Controls.Add(Me.TabPage20) + Me.TabControl2.Dock = System.Windows.Forms.DockStyle.Fill + Me.TabControl2.Location = New System.Drawing.Point(0, 0) + Me.TabControl2.Name = "TabControl2" + Me.TabControl2.SelectedIndex = 0 + Me.TabControl2.Size = New System.Drawing.Size(890, 430) + Me.TabControl2.TabIndex = 0 + ' + 'TabPage9 + ' + Me.TabPage9.Controls.Add(Me.DataGridView7) + Me.TabPage9.Location = New System.Drawing.Point(4, 26) + Me.TabPage9.Name = "TabPage9" + Me.TabPage9.Padding = New System.Windows.Forms.Padding(3) + Me.TabPage9.Size = New System.Drawing.Size(882, 400) + Me.TabPage9.TabIndex = 0 + Me.TabPage9.Text = "01" + Me.TabPage9.UseVisualStyleBackColor = True + ' + 'DataGridView7 + ' + Me.DataGridView7.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize + Me.DataGridView7.Dock = System.Windows.Forms.DockStyle.Fill + Me.DataGridView7.Location = New System.Drawing.Point(3, 3) + Me.DataGridView7.Name = "DataGridView7" + Me.DataGridView7.RowTemplate.Height = 23 + Me.DataGridView7.Size = New System.Drawing.Size(876, 394) + Me.DataGridView7.TabIndex = 0 + ' + 'TabPage10 + ' + Me.TabPage10.Controls.Add(Me.DataGridView9) + Me.TabPage10.Location = New System.Drawing.Point(4, 26) + Me.TabPage10.Name = "TabPage10" + Me.TabPage10.Padding = New System.Windows.Forms.Padding(3) + Me.TabPage10.Size = New System.Drawing.Size(882, 400) + Me.TabPage10.TabIndex = 1 + Me.TabPage10.Text = "02" + Me.TabPage10.UseVisualStyleBackColor = True + ' + 'DataGridView9 + ' + Me.DataGridView9.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize + Me.DataGridView9.Dock = System.Windows.Forms.DockStyle.Fill + 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(876, 394) + Me.DataGridView9.TabIndex = 1 + ' + 'TabPage11 + ' + Me.TabPage11.Controls.Add(Me.DataGridView10) + Me.TabPage11.Location = New System.Drawing.Point(4, 26) + Me.TabPage11.Name = "TabPage11" + Me.TabPage11.Size = New System.Drawing.Size(882, 400) + Me.TabPage11.TabIndex = 2 + Me.TabPage11.Text = "03" + Me.TabPage11.UseVisualStyleBackColor = True + ' + 'DataGridView10 + ' + Me.DataGridView10.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize + Me.DataGridView10.Dock = System.Windows.Forms.DockStyle.Fill + 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(882, 400) + Me.DataGridView10.TabIndex = 1 + ' + 'TabPage12 + ' + Me.TabPage12.Controls.Add(Me.DataGridView11) + Me.TabPage12.Location = New System.Drawing.Point(4, 26) + Me.TabPage12.Name = "TabPage12" + Me.TabPage12.Size = New System.Drawing.Size(882, 400) + Me.TabPage12.TabIndex = 3 + Me.TabPage12.Text = "04" + Me.TabPage12.UseVisualStyleBackColor = True + ' + 'DataGridView11 + ' + Me.DataGridView11.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize + Me.DataGridView11.Dock = System.Windows.Forms.DockStyle.Fill + 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(882, 400) + Me.DataGridView11.TabIndex = 1 + ' + 'TabPage13 + ' + Me.TabPage13.Controls.Add(Me.DataGridView12) + Me.TabPage13.Location = New System.Drawing.Point(4, 26) + Me.TabPage13.Name = "TabPage13" + Me.TabPage13.Size = New System.Drawing.Size(882, 400) + Me.TabPage13.TabIndex = 4 + Me.TabPage13.Text = "05" + Me.TabPage13.UseVisualStyleBackColor = True + ' + 'DataGridView12 + ' + Me.DataGridView12.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize + Me.DataGridView12.Dock = System.Windows.Forms.DockStyle.Fill + 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(882, 400) + Me.DataGridView12.TabIndex = 1 + ' + 'TabPage14 + ' + Me.TabPage14.Controls.Add(Me.DataGridView13) + Me.TabPage14.Location = New System.Drawing.Point(4, 26) + Me.TabPage14.Name = "TabPage14" + Me.TabPage14.Size = New System.Drawing.Size(882, 400) + Me.TabPage14.TabIndex = 5 + Me.TabPage14.Text = "06" + Me.TabPage14.UseVisualStyleBackColor = True + ' + 'DataGridView13 + ' + Me.DataGridView13.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize + Me.DataGridView13.Dock = System.Windows.Forms.DockStyle.Fill + 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(882, 400) + Me.DataGridView13.TabIndex = 1 + ' + 'TabPage15 + ' + Me.TabPage15.Controls.Add(Me.DataGridView14) + Me.TabPage15.Location = New System.Drawing.Point(4, 26) + Me.TabPage15.Name = "TabPage15" + Me.TabPage15.Size = New System.Drawing.Size(882, 400) + Me.TabPage15.TabIndex = 6 + Me.TabPage15.Text = "07" + Me.TabPage15.UseVisualStyleBackColor = True + ' + 'DataGridView14 + ' + Me.DataGridView14.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize + Me.DataGridView14.Dock = System.Windows.Forms.DockStyle.Fill + 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(882, 400) + Me.DataGridView14.TabIndex = 1 + ' + 'TabPage16 + ' + Me.TabPage16.Controls.Add(Me.DataGridView15) + Me.TabPage16.Location = New System.Drawing.Point(4, 26) + Me.TabPage16.Name = "TabPage16" + Me.TabPage16.Size = New System.Drawing.Size(882, 400) + Me.TabPage16.TabIndex = 7 + Me.TabPage16.Text = "08" + Me.TabPage16.UseVisualStyleBackColor = True + ' + 'DataGridView15 + ' + Me.DataGridView15.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize + Me.DataGridView15.Dock = System.Windows.Forms.DockStyle.Fill + 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(882, 400) + Me.DataGridView15.TabIndex = 1 + ' + 'TabPage17 + ' + Me.TabPage17.Controls.Add(Me.DataGridView16) + Me.TabPage17.Location = New System.Drawing.Point(4, 26) + Me.TabPage17.Name = "TabPage17" + Me.TabPage17.Size = New System.Drawing.Size(882, 400) + Me.TabPage17.TabIndex = 8 + Me.TabPage17.Text = "09" + Me.TabPage17.UseVisualStyleBackColor = True + ' + 'DataGridView16 + ' + Me.DataGridView16.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize + Me.DataGridView16.Dock = System.Windows.Forms.DockStyle.Fill + 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(882, 400) + Me.DataGridView16.TabIndex = 1 + ' + 'TabPage18 + ' + Me.TabPage18.Controls.Add(Me.DataGridView17) + Me.TabPage18.Location = New System.Drawing.Point(4, 26) + Me.TabPage18.Name = "TabPage18" + Me.TabPage18.Size = New System.Drawing.Size(882, 400) + Me.TabPage18.TabIndex = 9 + Me.TabPage18.Text = "10" + Me.TabPage18.UseVisualStyleBackColor = True + ' + 'DataGridView17 + ' + Me.DataGridView17.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize + Me.DataGridView17.Dock = System.Windows.Forms.DockStyle.Fill + 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(882, 400) + Me.DataGridView17.TabIndex = 1 + ' + 'TabPage19 + ' + Me.TabPage19.Controls.Add(Me.DataGridView18) + Me.TabPage19.Location = New System.Drawing.Point(4, 26) + Me.TabPage19.Name = "TabPage19" + Me.TabPage19.Size = New System.Drawing.Size(882, 400) + Me.TabPage19.TabIndex = 10 + Me.TabPage19.Text = "11" + Me.TabPage19.UseVisualStyleBackColor = True + ' + 'DataGridView18 + ' + Me.DataGridView18.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize + Me.DataGridView18.Dock = System.Windows.Forms.DockStyle.Fill + 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(882, 400) + Me.DataGridView18.TabIndex = 1 + ' + 'TabPage20 + ' + Me.TabPage20.Controls.Add(Me.DataGridView19) + Me.TabPage20.Location = New System.Drawing.Point(4, 26) + Me.TabPage20.Name = "TabPage20" + Me.TabPage20.Size = New System.Drawing.Size(882, 400) + Me.TabPage20.TabIndex = 11 + Me.TabPage20.Text = "12" + Me.TabPage20.UseVisualStyleBackColor = True + ' + 'DataGridView19 + ' + Me.DataGridView19.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize + Me.DataGridView19.Dock = System.Windows.Forms.DockStyle.Fill + 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(882, 400) + Me.DataGridView19.TabIndex = 1 + ' + 'TabPage8 + ' + Me.TabPage8.Controls.Add(Me.DataGridView8) + Me.TabPage8.Location = New System.Drawing.Point(4, 23) + Me.TabPage8.Name = "TabPage8" + Me.TabPage8.Size = New System.Drawing.Size(890, 430) + Me.TabPage8.TabIndex = 7 + Me.TabPage8.Text = "생산에너지" + Me.TabPage8.UseVisualStyleBackColor = True + ' + 'DataGridView8 + ' + Me.DataGridView8.AllowUserToAddRows = False + Me.DataGridView8.AllowUserToDeleteRows = False + Me.DataGridView8.AllowUserToResizeRows = False + 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.DataSource = Me.bs_생산E + Me.DataGridView8.Dock = System.Windows.Forms.DockStyle.Fill + Me.DataGridView8.Location = New System.Drawing.Point(0, 0) + Me.DataGridView8.Name = "DataGridView8" + Me.DataGridView8.ReadOnly = True + Me.DataGridView8.RowHeadersVisible = False + Me.DataGridView8.RowTemplate.Height = 23 + Me.DataGridView8.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect + Me.DataGridView8.Size = New System.Drawing.Size(890, 430) + Me.DataGridView8.TabIndex = 16 + ' + 'MonDataGridViewTextBoxColumn3 + ' + Me.MonDataGridViewTextBoxColumn3.DataPropertyName = "mon" + Me.MonDataGridViewTextBoxColumn3.HeaderText = "mon" + Me.MonDataGridViewTextBoxColumn3.Name = "MonDataGridViewTextBoxColumn3" + Me.MonDataGridViewTextBoxColumn3.ReadOnly = True + Me.MonDataGridViewTextBoxColumn3.Width = 57 + ' + '전력태양광DataGridViewTextBoxColumn + ' + Me.전력태양광DataGridViewTextBoxColumn.DataPropertyName = "전력태양광" + Me.전력태양광DataGridViewTextBoxColumn.HeaderText = "전력태양광" + Me.전력태양광DataGridViewTextBoxColumn.Name = "전력태양광DataGridViewTextBoxColumn" + Me.전력태양광DataGridViewTextBoxColumn.ReadOnly = True + Me.전력태양광DataGridViewTextBoxColumn.Width = 70 + ' + '전력열병합DataGridViewTextBoxColumn + ' + Me.전력열병합DataGridViewTextBoxColumn.DataPropertyName = "전력열병합" + Me.전력열병합DataGridViewTextBoxColumn.HeaderText = "전력열병합" + Me.전력열병합DataGridViewTextBoxColumn.Name = "전력열병합DataGridViewTextBoxColumn" + Me.전력열병합DataGridViewTextBoxColumn.ReadOnly = True + Me.전력열병합DataGridViewTextBoxColumn.Width = 70 + ' + '생산량태양열DataGridViewTextBoxColumn + ' + Me.생산량태양열DataGridViewTextBoxColumn.DataPropertyName = "생산량태양열" + Me.생산량태양열DataGridViewTextBoxColumn.HeaderText = "생산량태양열" + Me.생산량태양열DataGridViewTextBoxColumn.Name = "생산량태양열DataGridViewTextBoxColumn" + Me.생산량태양열DataGridViewTextBoxColumn.ReadOnly = True + Me.생산량태양열DataGridViewTextBoxColumn.Width = 70 + ' + '생산량지열DataGridViewTextBoxColumn + ' + Me.생산량지열DataGridViewTextBoxColumn.DataPropertyName = "생산량지열" + Me.생산량지열DataGridViewTextBoxColumn.HeaderText = "생산량지열" + Me.생산량지열DataGridViewTextBoxColumn.Name = "생산량지열DataGridViewTextBoxColumn" + Me.생산량지열DataGridViewTextBoxColumn.ReadOnly = True + Me.생산량지열DataGridViewTextBoxColumn.Width = 70 + ' + '면적당생산량태양열DataGridViewTextBoxColumn + ' + Me.면적당생산량태양열DataGridViewTextBoxColumn.DataPropertyName = "면적당생산량태양열" + Me.면적당생산량태양열DataGridViewTextBoxColumn.HeaderText = "면적당생산량태양열" + Me.면적당생산량태양열DataGridViewTextBoxColumn.Name = "면적당생산량태양열DataGridViewTextBoxColumn" + Me.면적당생산량태양열DataGridViewTextBoxColumn.ReadOnly = True + Me.면적당생산량태양열DataGridViewTextBoxColumn.Width = 90 + ' + '면적당생산량지열DataGridViewTextBoxColumn + ' + Me.면적당생산량지열DataGridViewTextBoxColumn.DataPropertyName = "면적당생산량지열" + Me.면적당생산량지열DataGridViewTextBoxColumn.HeaderText = "면적당생산량지열" + Me.면적당생산량지열DataGridViewTextBoxColumn.Name = "면적당생산량지열DataGridViewTextBoxColumn" + Me.면적당생산량지열DataGridViewTextBoxColumn.ReadOnly = True + Me.면적당생산량지열DataGridViewTextBoxColumn.Width = 80 + ' + 'bs_생산E + ' + Me.bs_생산E.DataMember = "생산에너지" + Me.bs_생산E.DataSource = Me.DSR + ' + 'Frm_RepResult_Admin + ' + Me.AutoScaleDimensions = New System.Drawing.SizeF(7.0!, 14.0!) + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font + Me.ClientSize = New System.Drawing.Size(898, 504) + Me.Controls.Add(Me.TabControl1) + Me.Controls.Add(Me.bn_all) + Me.Controls.Add(Me.StatusStrip1) + Me.Font = New System.Drawing.Font("나눔고딕 ExtraBold", 8.999999!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.Name = "Frm_RepResult_Admin" + Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen + Me.Text = "계산결과 데이터" + CType(Me.DSR, 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.bsmain, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.DataGridView1, System.ComponentModel.ISupportInitialize).EndInit() + Me.TabControl1.ResumeLayout(False) + Me.TabPage1.ResumeLayout(False) + Me.TabPage2.ResumeLayout(False) + CType(Me.DataGridView2, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.bs_max, System.ComponentModel.ISupportInitialize).EndInit() + Me.TabPage3.ResumeLayout(False) + CType(Me.DataGridView3, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.bs_면적, System.ComponentModel.ISupportInitialize).EndInit() + Me.TabPage5.ResumeLayout(False) + CType(Me.DataGridView5, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.bs_소요량, System.ComponentModel.ISupportInitialize).EndInit() + Me.TabPage6.ResumeLayout(False) + CType(Me.DataGridView6, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.bs_1차소요량, System.ComponentModel.ISupportInitialize).EndInit() + Me.TabPage7.ResumeLayout(False) + Me.TabControl2.ResumeLayout(False) + Me.TabPage9.ResumeLayout(False) + CType(Me.DataGridView7, System.ComponentModel.ISupportInitialize).EndInit() + Me.TabPage10.ResumeLayout(False) + CType(Me.DataGridView9, System.ComponentModel.ISupportInitialize).EndInit() + Me.TabPage11.ResumeLayout(False) + CType(Me.DataGridView10, System.ComponentModel.ISupportInitialize).EndInit() + Me.TabPage12.ResumeLayout(False) + CType(Me.DataGridView11, System.ComponentModel.ISupportInitialize).EndInit() + Me.TabPage13.ResumeLayout(False) + CType(Me.DataGridView12, System.ComponentModel.ISupportInitialize).EndInit() + Me.TabPage14.ResumeLayout(False) + CType(Me.DataGridView13, System.ComponentModel.ISupportInitialize).EndInit() + Me.TabPage15.ResumeLayout(False) + CType(Me.DataGridView14, System.ComponentModel.ISupportInitialize).EndInit() + Me.TabPage16.ResumeLayout(False) + CType(Me.DataGridView15, System.ComponentModel.ISupportInitialize).EndInit() + Me.TabPage17.ResumeLayout(False) + CType(Me.DataGridView16, System.ComponentModel.ISupportInitialize).EndInit() + Me.TabPage18.ResumeLayout(False) + CType(Me.DataGridView17, System.ComponentModel.ISupportInitialize).EndInit() + Me.TabPage19.ResumeLayout(False) + CType(Me.DataGridView18, System.ComponentModel.ISupportInitialize).EndInit() + Me.TabPage20.ResumeLayout(False) + CType(Me.DataGridView19, System.ComponentModel.ISupportInitialize).EndInit() + Me.TabPage8.ResumeLayout(False) + CType(Me.DataGridView8, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.bs_생산E, System.ComponentModel.ISupportInitialize).EndInit() + Me.ResumeLayout(False) + Me.PerformLayout() + + End Sub + Friend WithEvents ToolStripButton49 As System.Windows.Forms.ToolStripButton + Friend WithEvents ToolStripButton44 As System.Windows.Forms.ToolStripButton + Friend WithEvents ToolStripButton48 As System.Windows.Forms.ToolStripButton + Friend WithEvents ToolStripButton50 As System.Windows.Forms.ToolStripButton + Friend WithEvents ToolStripButton45 As System.Windows.Forms.ToolStripButton + Friend WithEvents ToolStripButton47 As System.Windows.Forms.ToolStripButton + Friend WithEvents ToolStripButton46 As System.Windows.Forms.ToolStripButton + Friend WithEvents ToolStripSeparator26 As System.Windows.Forms.ToolStripSeparator + Friend WithEvents ToolStripTextBox6 As System.Windows.Forms.ToolStripTextBox + Friend WithEvents ToolStripSeparator27 As System.Windows.Forms.ToolStripSeparator + Friend WithEvents bn_all As System.Windows.Forms.BindingNavigator + Friend WithEvents ToolStripLabel6 As System.Windows.Forms.ToolStripLabel + Friend WithEvents ToolStripSeparator25 As System.Windows.Forms.ToolStripSeparator + Friend WithEvents ToolStripSeparator28 As System.Windows.Forms.ToolStripSeparator + Friend WithEvents ToolStripButton51 As System.Windows.Forms.ToolStripButton + Friend WithEvents StatusStrip1 As System.Windows.Forms.StatusStrip + Friend WithEvents lb_msg As System.Windows.Forms.ToolStripStatusLabel + Friend WithEvents DSR As Eco2Ar.DSR + Friend WithEvents bsmain As System.Windows.Forms.BindingSource + Friend WithEvents DataGridView1 As ArinDv + Friend WithEvents TOTALDataGridViewTextBoxColumn As System.Windows.Forms.DataGridViewTextBoxColumn + Friend WithEvents LTDataGridViewTextBoxColumn As System.Windows.Forms.DataGridViewTextBoxColumn + 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 DataGridView2 As ArinDv + Friend WithEvents bs_max As System.Windows.Forms.BindingSource + Friend WithEvents 최대냉난방부하DataGridViewTextBoxColumn As System.Windows.Forms.DataGridViewTextBoxColumn + Friend WithEvents TabPage3 As System.Windows.Forms.TabPage + Friend WithEvents TabPage5 As System.Windows.Forms.TabPage + Friend WithEvents TabPage6 As System.Windows.Forms.TabPage + Friend WithEvents TabPage7 As System.Windows.Forms.TabPage + Friend WithEvents TabPage8 As System.Windows.Forms.TabPage + Friend WithEvents bs_면적 As System.Windows.Forms.BindingSource + Friend WithEvents bs_소요량 As System.Windows.Forms.BindingSource + Friend WithEvents bs_1차소요량 As System.Windows.Forms.BindingSource + Friend WithEvents bs_생산E As System.Windows.Forms.BindingSource + Friend WithEvents DataGridView3 As ArinDv + Friend WithEvents DataGridView5 As ArinDv + Friend WithEvents DataGridView6 As ArinDv + Friend WithEvents DataGridView8 As ArinDv + Friend WithEvents TabControl2 As System.Windows.Forms.TabControl + Friend WithEvents TabPage9 As System.Windows.Forms.TabPage + Friend WithEvents TabPage10 As System.Windows.Forms.TabPage + Friend WithEvents TabPage11 As System.Windows.Forms.TabPage + Friend WithEvents TabPage12 As System.Windows.Forms.TabPage + Friend WithEvents TabPage13 As System.Windows.Forms.TabPage + Friend WithEvents TabPage14 As System.Windows.Forms.TabPage + Friend WithEvents TabPage15 As System.Windows.Forms.TabPage + Friend WithEvents TabPage16 As System.Windows.Forms.TabPage + Friend WithEvents TabPage17 As System.Windows.Forms.TabPage + Friend WithEvents TabPage18 As System.Windows.Forms.TabPage + Friend WithEvents TabPage19 As System.Windows.Forms.TabPage + Friend WithEvents TabPage20 As System.Windows.Forms.TabPage + Friend WithEvents DataGridView7 As ArinDv + Friend WithEvents DataGridView9 As ArinDv + Friend WithEvents DataGridView10 As ArinDv + Friend WithEvents DataGridView11 As ArinDv + Friend WithEvents DataGridView12 As ArinDv + Friend WithEvents DataGridView13 As ArinDv + Friend WithEvents DataGridView14 As ArinDv + Friend WithEvents DataGridView15 As ArinDv + Friend WithEvents DataGridView16 As ArinDv + Friend WithEvents DataGridView17 As ArinDv + Friend WithEvents DataGridView18 As ArinDv + Friend WithEvents DataGridView19 As ArinDv + Friend WithEvents HDataGridViewTextBoxColumn As System.Windows.Forms.DataGridViewTextBoxColumn + Friend WithEvents CDataGridViewTextBoxColumn As System.Windows.Forms.DataGridViewTextBoxColumn + Friend WithEvents LDataGridViewTextBoxColumn As System.Windows.Forms.DataGridViewTextBoxColumn + Friend WithEvents WDataGridViewTextBoxColumn As System.Windows.Forms.DataGridViewTextBoxColumn + Friend WithEvents VDataGridViewTextBoxColumn As System.Windows.Forms.DataGridViewTextBoxColumn + Friend WithEvents ZoneDataGridViewTextBoxColumn 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 최대가습성능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 MonDataGridViewTextBoxColumn1 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 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 + Friend WithEvents 냉방면적DataGridViewTextBoxColumn1 As System.Windows.Forms.DataGridViewTextBoxColumn + Friend WithEvents 급탕면적DataGridViewTextBoxColumn1 As System.Windows.Forms.DataGridViewTextBoxColumn + Friend WithEvents 조명소요량DataGridViewTextBoxColumn As System.Windows.Forms.DataGridViewTextBoxColumn + Friend WithEvents 조명전력DataGridViewTextBoxColumn1 As System.Windows.Forms.DataGridViewTextBoxColumn + Friend WithEvents 조명면적DataGridViewTextBoxColumn1 As System.Windows.Forms.DataGridViewTextBoxColumn + Friend WithEvents 환기소요량DataGridViewTextBoxColumn As System.Windows.Forms.DataGridViewTextBoxColumn + Friend WithEvents 환기전력DataGridViewTextBoxColumn1 As System.Windows.Forms.DataGridViewTextBoxColumn + Friend WithEvents 환기면적DataGridViewTextBoxColumn1 As System.Windows.Forms.DataGridViewTextBoxColumn + Friend WithEvents MonDataGridViewTextBoxColumn2 As System.Windows.Forms.DataGridViewTextBoxColumn + Friend WithEvents 난방등유DataGridViewTextBoxColumn1 As System.Windows.Forms.DataGridViewTextBoxColumn + Friend WithEvents 난방LNGDataGridViewTextBoxColumn1 As System.Windows.Forms.DataGridViewTextBoxColumn + Friend WithEvents 난방LPGDataGridViewTextBoxColumn1 As System.Windows.Forms.DataGridViewTextBoxColumn + Friend WithEvents 난방지역DataGridViewTextBoxColumn1 As System.Windows.Forms.DataGridViewTextBoxColumn + Friend WithEvents 난방전력DataGridViewTextBoxColumn1 As System.Windows.Forms.DataGridViewTextBoxColumn + Friend WithEvents 냉방등유DataGridViewTextBoxColumn1 As System.Windows.Forms.DataGridViewTextBoxColumn + Friend WithEvents 냉방LNGDataGridViewTextBoxColumn1 As System.Windows.Forms.DataGridViewTextBoxColumn + Friend WithEvents 냉방LPGDataGridViewTextBoxColumn1 As System.Windows.Forms.DataGridViewTextBoxColumn + Friend WithEvents 냉방지역DataGridViewTextBoxColumn1 As System.Windows.Forms.DataGridViewTextBoxColumn + Friend WithEvents 냉방지역2DataGridViewTextBoxColumn As System.Windows.Forms.DataGridViewTextBoxColumn + Friend WithEvents 냉방전력DataGridViewTextBoxColumn1 As System.Windows.Forms.DataGridViewTextBoxColumn + Friend WithEvents 급탕등유DataGridViewTextBoxColumn1 As System.Windows.Forms.DataGridViewTextBoxColumn + Friend WithEvents 급탕LNGDataGridViewTextBoxColumn1 As System.Windows.Forms.DataGridViewTextBoxColumn + Friend WithEvents 급탕LPGDataGridViewTextBoxColumn1 As System.Windows.Forms.DataGridViewTextBoxColumn + Friend WithEvents 급탕지역DataGridViewTextBoxColumn1 As System.Windows.Forms.DataGridViewTextBoxColumn + Friend WithEvents 급탕전력DataGridViewTextBoxColumn1 As System.Windows.Forms.DataGridViewTextBoxColumn + Friend WithEvents CodeDataGridViewTextBoxColumn As System.Windows.Forms.DataGridViewTextBoxColumn + Friend WithEvents DescDataGridViewTextBoxColumn As System.Windows.Forms.DataGridViewTextBoxColumn + Friend WithEvents GRPDataGridViewTextBoxColumn As System.Windows.Forms.DataGridViewTextBoxColumn + Friend WithEvents UNITDataGridViewTextBoxColumn As System.Windows.Forms.DataGridViewTextBoxColumn + Friend WithEvents SIGNDataGridViewTextBoxColumn As System.Windows.Forms.DataGridViewTextBoxColumn + Friend WithEvents EQDataGridViewTextBoxColumn As System.Windows.Forms.DataGridViewTextBoxColumn + Friend WithEvents F As System.Windows.Forms.DataGridViewTextBoxColumn + Friend WithEvents M00 As System.Windows.Forms.DataGridViewTextBoxColumn + Friend WithEvents M01DataGridViewTextBoxColumn As System.Windows.Forms.DataGridViewTextBoxColumn + Friend WithEvents M02DataGridViewTextBoxColumn As System.Windows.Forms.DataGridViewTextBoxColumn + Friend WithEvents M03DataGridViewTextBoxColumn As System.Windows.Forms.DataGridViewTextBoxColumn + Friend WithEvents M04DataGridViewTextBoxColumn As System.Windows.Forms.DataGridViewTextBoxColumn + Friend WithEvents M05DataGridViewTextBoxColumn As System.Windows.Forms.DataGridViewTextBoxColumn + Friend WithEvents M06DataGridViewTextBoxColumn As System.Windows.Forms.DataGridViewTextBoxColumn + Friend WithEvents M07DataGridViewTextBoxColumn As System.Windows.Forms.DataGridViewTextBoxColumn + Friend WithEvents M08DataGridViewTextBoxColumn As System.Windows.Forms.DataGridViewTextBoxColumn + Friend WithEvents M09DataGridViewTextBoxColumn As System.Windows.Forms.DataGridViewTextBoxColumn + Friend WithEvents M10DataGridViewTextBoxColumn As System.Windows.Forms.DataGridViewTextBoxColumn + Friend WithEvents M11DataGridViewTextBoxColumn As System.Windows.Forms.DataGridViewTextBoxColumn + Friend WithEvents M12DataGridViewTextBoxColumn As System.Windows.Forms.DataGridViewTextBoxColumn +End Class diff --git a/ArinWarev1/Forms/Frm_RepResult_Admin.resx b/ArinWarev1/Forms/Frm_RepResult_Admin.resx new file mode 100644 index 0000000..a3283c2 --- /dev/null +++ b/ArinWarev1/Forms/Frm_RepResult_Admin.resx @@ -0,0 +1,256 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + 647, 17 + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAACBjSFJNAAB6 + JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAAACXBIWXMAAA62AAAOtgHOyLmlAAABb0lE + QVQ4T7WQTSjDYRzHd1XeSu3iglo5IJO8hGQypLHIhMjMJAcOi4R2cXAg5UIOuEgOJCXlROI0b/Pamlp/ + LVLaBf+4PB9jqLW/seJ7eep5vt/P7/v8VH8iXCfQbQTHDh9XkYmVeURnFcKsh631sBC8HliaCfawtgC9 + JkS7HtFRAXMTipC3hsJcBiM9oe+cOgKQumxEYwHYmoJMYsiKMOXCpD1sQxWL04jK1HcQw1Zwn8FYfwDq + Pz9s4YXHBc3FgS8ZsxD1edDX8rvwp9jf9VfOQxjSoUYbYfhGgsZCyElA1sbzoI2F2uxf1r+5BlM+FCXi + sxjg4uh9uXdpfsjy7A8LvL+DVh2PJUm4S9Px7W1/BRi14dTEIJ8cKEN4eYZBC+iSOU5T49tYDTHelmcg + tVUje69DIexuIueqcaZEIXU1gPykOGlHE4fsdCgApkaQUqNx6zNBulKu6Zds74bzQwXApRPGB+Bw79vw + P0ilegWKIwMchCbSyQAAAABJRU5ErkJggg== + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAACBjSFJNAAB6 + JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAAACXBIWXMAAA62AAAOtgHOyLmlAAABKklE + 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 + JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAAACXBIWXMAAA62AAAOtgHOyLmlAAABSklE + 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 + JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAAACXBIWXMAAA62AAAOtgHOyLmlAAACL0lE + QVQ4T62S3UvTURjHf/9C990EXXRbU2M4F6vBr1xDWTYMK8JefpFmabpMExUr06j5BtkKl05arSbhpCJf + wBQpEWUqWZq5oiUONcUmgsHX85z98riKLqIHnpvD+XzOeV6k/xLPn4VB6WtdQot3EQ/d82hqDOGuYxp1 + tV9gvxXA9fJJlJaMo7DgLfJyR3D+nB8qLkkEdnUCtTUr+Fssr6zClNqFQ6lPeaq4JHmfLHBBZcU39erv + QXBofhm7LC+g0SiwHvQIgfvBHBeUlnxVr0fHT/hjcAExZh8KLk3hgKVZCJwNM1xw0fZBRURshIcnQtgm + e5GTPYbkJKcQ1N8OckHW2REVi8SvcJ8/iM0GNxRlAGazQwhqqj9zgXJqQEX/DHf2f8Km+EYcPvIKiYl1 + QnCjcgod7WCjBI4dfwPr0V7ebWoY1UzfppcjcDdSrC8hy3YhuFI2gTYf2A4Aza4fbO7fUX5tljeVGkY1 + Z2b41+H9ya0wGiuE4HLhGDyPgPvOVbY4YZjSsqPSkm5D2pmiCJzE4H0eGAxlQmDLG2UwUF0V5i8TROcx + OhmD72cwOjkLJfcq9phaOKzb7YJeXyQEtJaOO1j/NgkIPp1/E+8CcwhML+JCsR2xBheDmxCbcA+6+Hwh + yMwYYnUvcXir0YMtO2Q8buuBr70PHd396H09iL1mKzT6BsQxeLu2HlptTrTg5Ikevp60YbQkNGcaFXWb + GkY106uUBO+MyxKCfw9JWgNsaDprRvk1ewAAAABJRU5ErkJggg== + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAACBjSFJNAAB6 + JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAAACXBIWXMAAA62AAAOtgHOyLmlAAAAtklE + 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 + JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAAACXBIWXMAAA62AAAOtgHOyLmlAAABLElE + 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 + JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAAACXBIWXMAAA62AAAOtgHOyLmlAAAAo0lE + 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== + + + + 445, 17 + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8 + YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAJ2SURBVDhPjVNdSJNhFH5bXdmFRFFeREQXRfQDJRlWZLra + mrOIDCEqQmrlTKkoIaHZoEKK1sAVS1dYiJCaCZUkKCRL20WmrXJ61U0UXhSMuen+n97n3adkdtGBw3u+ + c57nOed83/uJv+2BEIZGIRzy9MkzSNdi5gwabL65hVgt/Y4ETn51XEfkvRfpnz+UM2aONWKI1WgZY0IW + WwKXK5D8/A742A/0tQKvmjLOeOSNqhFD7BwRqgYuWgC/F8nuZnwqP4y2lSvgWajDQPFuTD26AXS6gF4p + 5H8LYslRZG3nyaSvB4nO+/CZC9jB6RFi/TUhFsnY/qGsGOl2Z0ak5wkSvtdqHfVOZOAYr6lAqr0B/qMm + RZaeRXF51vlK9iDW/wLpLjeij+uBZw1IyUbjlyzEOjiBb6L2FFLuWrTlLAU7z5AH9+1ArLcDqZcPMWY5 + QkJwrPwgkhI7cdUCcgkMTtVbkbh7Hh6dDtrYdQOF2xDtbpWTuRA4YcY9IX7JvfOer8pBUmIjt6qUoBKI + 2E4icdMCb/4GJu2DBVsw3dWMZMttjJbpFVlOlktxNolLLDlKgGN8LzcibjuGUPUBDOlzMd3RiITHjtFD + u2bJXIvrtS3LltjjIGdmBcdw4SbELpQgWmVC3G1D3HUFo+a8OWSJy5LuHCnajFhNKcghd/Yzhq1GRCsN + iFabELLuV+NxZzW27EzywNY1iMgm4Uoj65nPSOOlGMpfi+g5TUSCvug3onN5Npp0C/B0yWIM71yHyNm9 + qk7s7EWiyQd1lVkIn8mA/uVhi16RiSVHo2eMCapyNHb7VrododNFyhkzxxox88h/mvZO/vN3FuI3yXDJ + RlfZIFMAAAAASUVORK5CYII= + + + + 529, 17 + + + 722, 17 + + + True + + + True + + + 17, 56 + + + 17, 17 + + + 111, 17 + + + 218, 17 + + + 344, 17 + + \ No newline at end of file diff --git a/ArinWarev1/Forms/Frm_RepResult_Admin.vb b/ArinWarev1/Forms/Frm_RepResult_Admin.vb new file mode 100644 index 0000000..091916e --- /dev/null +++ b/ArinWarev1/Forms/Frm_RepResult_Admin.vb @@ -0,0 +1,59 @@ +Public Class Frm_RepResult_Admin + Public Overrides Function AcceptChanged() As Boolean + + End Function + Public Overrides Function RejectChanged() As Boolean + + End Function + Public Overrides Function HasChanged() As Boolean + + End Function + Private Sub DataGridView1_CellFormatting(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewCellFormattingEventArgs) Handles DataGridView1.CellFormatting + Select Case Me.DataGridView1.Rows(e.RowIndex).Cells(2).Value.ToString + Case "MT" + Me.DataGridView1.Rows(e.RowIndex).DefaultCellStyle.ForeColor = Color.Green + Case "TT" + Me.DataGridView1.Rows(e.RowIndex).DefaultCellStyle.ForeColor = Color.Blue + Case "ST" + Me.DataGridView1.Rows(e.RowIndex).DefaultCellStyle.ForeColor = Color.Tomato + Case "SL" + Me.DataGridView1.Rows(e.RowIndex).DefaultCellStyle.ForeColor = Color.DarkMagenta + Case Else + Me.DataGridView1.Rows(e.RowIndex).DefaultCellStyle.ForeColor = Color.Black + End Select + + End Sub + + Private Sub Frm_RepResult_Admin_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load + Me.bsmain.DataSource = DSETR + Me.bs_1차소요량.DataSource = DSETR + Me.bs_max.DataSource = DSETR + Me.bs_면적.DataSource = DSETR + Me.bs_생산E.DataSource = DSETR + Me.bs_소요량.DataSource = DSETR + + + Dim dv() As DataGridView = New DataGridView() {Me.DataGridView7, _ + Me.DataGridView9, _ + Me.DataGridView10, _ + Me.DataGridView11, _ + Me.DataGridView12, _ + Me.DataGridView13, _ + Me.DataGridView14, _ + Me.DataGridView15, _ + Me.DataGridView16, _ + Me.DataGridView17, _ + Me.DataGridView18, _ + Me.DataGridView19} + For i As Integer = 1 To 12 + Dim Bs As New BindingSource + Bs.DataSource = DSETR + Bs.DataMember = "월별에너지분석" + Bs.Filter = "월='M" & Format(i, "00") & "'" + dv(i - 1).DataSource = Bs + Next + ' Me.bs.DataSource = DSETR + End Sub + +End Class + diff --git a/ArinWarev1/Forms/Frm_Warning.Designer.vb b/ArinWarev1/Forms/Frm_Warning.Designer.vb new file mode 100644 index 0000000..42b1c14 --- /dev/null +++ b/ArinWarev1/Forms/Frm_Warning.Designer.vb @@ -0,0 +1,82 @@ + _ +Partial Class Frm_Warning + Inherits CForm + + 'Form은 Dispose를 재정의하여 구성 요소 목록을 정리합니다. + _ + Protected Overrides Sub Dispose(ByVal disposing As Boolean) + Try + If disposing AndAlso components IsNot Nothing Then + components.Dispose() + End If + Finally + MyBase.Dispose(disposing) + End Try + End Sub + + 'Windows Form 디자이너에 필요합니다. + Private components As System.ComponentModel.IContainer + + '참고: 다음 프로시저는 Windows Form 디자이너에 필요합니다. + '수정하려면 Windows Form 디자이너를 사용하십시오. + '코드 편집기를 사용하여 수정하지 마십시오. + _ + Private Sub InitializeComponent() + Me.components = New System.ComponentModel.Container() + Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(Frm_Warning)) + Me.Panel1 = New System.Windows.Forms.Panel() + Me.Label1 = New System.Windows.Forms.Label() + Me.Timer1 = New System.Windows.Forms.Timer(Me.components) + Me.Panel1.SuspendLayout() + Me.SuspendLayout() + ' + 'Panel1 + ' + Me.Panel1.BackColor = System.Drawing.Color.Transparent + Me.Panel1.BackgroundImage = CType(resources.GetObject("Panel1.BackgroundImage"), System.Drawing.Image) + Me.Panel1.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Center + Me.Panel1.Controls.Add(Me.Label1) + Me.Panel1.Dock = System.Windows.Forms.DockStyle.Fill + Me.Panel1.Location = New System.Drawing.Point(0, 0) + Me.Panel1.Margin = New System.Windows.Forms.Padding(4) + Me.Panel1.Name = "Panel1" + Me.Panel1.Size = New System.Drawing.Size(273, 146) + Me.Panel1.TabIndex = 0 + ' + 'Label1 + ' + Me.Label1.BackColor = System.Drawing.Color.Transparent + Me.Label1.Font = New System.Drawing.Font("나눔고딕 ExtraBold", 9.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.Label1.Location = New System.Drawing.Point(2, 108) + Me.Label1.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0) + Me.Label1.Name = "Label1" + Me.Label1.Size = New System.Drawing.Size(270, 28) + Me.Label1.TabIndex = 0 + Me.Label1.Text = "잠시만 기다려주세요" + Me.Label1.TextAlign = System.Drawing.ContentAlignment.MiddleCenter + ' + 'Timer1 + ' + Me.Timer1.Interval = 20 + ' + 'Frm_Warning + ' + Me.AutoScaleDimensions = New System.Drawing.SizeF(9.0!, 17.0!) + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font + Me.BackColor = System.Drawing.SystemColors.AppWorkspace + Me.ClientSize = New System.Drawing.Size(273, 146) + Me.Controls.Add(Me.Panel1) + Me.Font = New System.Drawing.Font("나눔고딕", 11.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.Margin = New System.Windows.Forms.Padding(4) + Me.Name = "Frm_Warning" + Me.StartPosition = System.Windows.Forms.FormStartPosition.Manual + Me.Text = "알림메세지" + Me.TopMost = True + Me.Panel1.ResumeLayout(False) + Me.ResumeLayout(False) + + End Sub + Friend WithEvents Panel1 As System.Windows.Forms.Panel + Friend WithEvents Label1 As System.Windows.Forms.Label + Friend WithEvents Timer1 As System.Windows.Forms.Timer +End Class diff --git a/ArinWarev1/Forms/Frm_Warning.resx b/ArinWarev1/Forms/Frm_Warning.resx new file mode 100644 index 0000000..8215e72 --- /dev/null +++ b/ArinWarev1/Forms/Frm_Warning.resx @@ -0,0 +1,182 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + 109, 17 + + + 17, 17 + + + + + iVBORw0KGgoAAAANSUhEUgAAAEAAAABACAYAAACqaXHeAAAABGdBTUEAALGPC/xhBQAAACBjSFJNAAB6 + JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAAACXBIWXMAAAsPAAALDwGS+QOlAAAKo0lE + QVR4XuXZCXBU9R0HcKzXKLCbOyG7icnGHMRAIQnhChC0gBQUaUGoM3Xa2tPOdDpTZ1oPjoBYFeQqgaqQ + GAiQO+QSSAiHCArFoxWqtoooZEM2m919b3ffe7ub5Nfff5OQfdlfyJ7UNsx8xt3v/t///a/3/7+MowBg + RCNDxrhPHXR8/bTP+fosoH7zB9WfoZDhrcDXz3yYr58OfF0OcOWaRVSZW4EMgw1n6Ttc9SRzt/kS9Eht + wFWliyyjygYbGQYb3zDzBcvxJfgR/3V1gqVlMfDVqX9mv91qZBhMONNjuIoHHN3mC9DDVoDwBXQZm8FU + ntbNfqOuCSYyDCa+YXqdcO4pcHz5LEgn0tB46Lq+C4T3fwZ8TXoLdU0wkWGwmMrTk7jKCd0O3R6QTmf1 + DUAa2C4sAoe+BLjK9B5jiVpDXRssZBgsfG3Wv8RPngH7xZ9gx1NlHFfWAvuNr06/Sl0bLGQYDFzt1EV8 + 3dSeLu02kE6muw2A7ex06NIXAV87BbiyBLZDkvUEGhkGmvPYq8zgbf9e51zu0vEUkv3TXwMrw1WkCrfq + WCTDQMOXnTWWYw/3OC4/jx1NHtqpDOjSbgdL83zcD5JfpuoKNDIMJJxJBR5xdseVV8B2ZhrdcRf2j36I + +8ErYCpL7mLXUnUGEhkGEl+bXWc9s7LHfunnILXc70Z0y5LB8dUasJ5ZAXxV6jGqzkAiw0AxVTyQxlWk + dzm+3gDiyQxnZz0hvZ8HjqubcC9IY8diClV3oJBhoHDVEz8XP/wF2D54DMRjSV6xf/pbYNdylanfUHUH + ChkGAleT+Sgu/277F3/EWU2Wdc7cqIG2fQnwWUGcE/vMN2hkZaRTk4GtHL5mco/pYPwPqHsEAhn6Czev + 23HjM9ku/g6k92Zjh1jnBnzx1zhYuTAFJmZNgAlo+YJk+Gyn2q2c7eMVwOowld1vMe5V3U7dy19k6C+u + ZnK+pWlut/3iUyA2J7ppXBUD47OzZWqfi3Ev24LvBriCzEfycBA0G6l7+YsM/WHcqw4xlSZLtk9/j298 + E7EjCW6a1o6DzDlzYOq8eTB1/nzn58bVbADk5QQknfse2D9/BowHNA7DW6oQ6p7+IEN/4MZXaz21uMf2 + wVIQm7AjhI+2qiFv6VKZD7eqyLJiUyJuiE+D5cRiMB1MCvixSIa+MpWmpnPlqXb7pd/gM4xHWtN9pMu7 + 42DOkiUyLKPKMtLpKbgK/gDG/UndnYXjxlP39hUZ+oqrGP+Z8N4ykM7OwYbHD+mrwjiY/cgjMiyjyvaz + fbwShLPLwViSeIW6t6/I0BdcecZSXP52299/DOJRnLmj2PAhfF0UB7mLFslcwYwqe0PLeOe7gfFgereh + MHY51QZfkKG3DMWqO40HkgzS31bgxjcJG8w6M7Rvit0HgGVUWVe2c/NBPP8EGArjzPpd0XdSbfEWGXrL + VJa+ztyQ47CdXwTiETzPh3FtbxzMXLhQ5ipmVFmZowlg/8eTwFVn9XQWqgJyLJKhNwxFseHGfYmCdGEZ + Hl248R3B3XwYrSVqmLFggQzLqLKDSadz8NX6CdC/rrJ1/CUynGqTN8jQG6aDqYcsR3O7xXdzQTis8oh2 + vxqm4TuAK5ZRZd2pQbrwGJgbZvZ0vqlqotrkDTL0lKE4YYJxr0aSzj8CwpE4bFysR64fVMHUhx6SaTvA + OkeXH4xtiLYPHgf9G2pHx/aICVTbPEWGnjIWa/5pPTarRzw+EYS3sXFvj/NIe6kKpsydK9OOg0KVHYp0 + Jg8szXmg3xV7mWqbp8jQE4aipGXG/cmSdDYPGxTjFV1ZLGTn5cmwjCo7JDxqpfOL8UTQdOl3RD5BtdET + ZDgcPILu6tyt1gsnZmFDkkBoxAZ5QV8eC1mzZ8t0YEaVvRnxRCYIJ+aCviCa022OuItq63DIcDiG3Qnr + TKVpNvFkFjYk2mudleNgcm6uTGcFLm2i7E31PQrG/and+p3Rm6i2DocMb0a3LTKqY2eMRTwxtXdTaozy + mqEqBibNmCHDMqrscMTmFBDfmQW6HdFS+5aIKKrNN0OGN6PfqarmKtO6xOZUEBqwET4wVUXDd6dNkzGy + ASDKekI8mQ18ZTrod8Z4fSyS4VA6tsZO7tgeYxVbcNdnM9AQ6ROuJgom5OTIcNW+1yccxrfIk1OgoyDG + ptsWMZlq+1DIcCi6rVEXzdUpPeyGQn2Ez/iaSMjIzpZhGVXWU2xFmutwFeyK/pJq+1DIkNK+Mepx/Q58 + 9pvuxxuG+8V8KALSMzNlWEaV9Rh7FFoyoHO3yo7H4pNUHyhkOJj2xZC7214O01nqEnHp4+5LNcALlreT + YfykSTKWxmSyrFcOx4MV68G/EYy6LRF3U30ZjAwHa3spLL/z9WhRaMS3tbowv1kPJ0PaxIkyVhwUqqx3 + wvEPJg2YilXdnTsjN1N9GYwMXbXmh8RoN4RwlrpYsOINrHgjfwkt0yAlI0OGZVRZrzVEo3i2CgRcBTFU + n1yRoStc/pWGPeEOZ+drQwNCfOf78KdfDQwC+8wyqqxPGmKAK8E3zoKIo1SfXJFhv2urlJnaDUrOeoi4 + iR+E5kwQ330UxPdWgnj2cez8w/j8JpFlfYMroT4SV0G42L4lPJvqWz8yZLDzt2nXKT/hSkKwwv9NfGko + 6LaHf9m+Ofw2qo8MGTKta5Qr2zcpcPaxskNKP/XV4dI4C2YNL0VBzfpoPAIHcie3633XuSsMX47Cfkr1 + kSHD1tWKe7TrFO3mMqykRgmW6l7sM3UTb1mwnqeWqOE+jcZpxYI44Fn9RFl/mSuUoNsSZmzfFHYP1Ve3 + gNHmK17U71BarYcUYKkaC+bKsc7/su/+6W1U/YsREJ+QILP/ucgbv9PXes5SPYB9N7wZ2tWxLWwb1Ve3 + oHW1UqVdrzRaqvo6X9ErEAMg4O4sHkmBqvVJoFKrZQqf1Th/ExrwuCWu9Ub/pPVPHBsI3dYwa/umcNXg + /sq+MLjxHTLuVjjYRXzpmD7Y+Rqs3F84u1JLDp75s2DJg0kQGxvrNG9GIvDNs0A6ju8CbD+grvUCa7u5 + HAegD/tuKg7BQQh1+3+Lsi84+zltG5Qma81YZ8e5A6OdzBVjsGI2CP5jM2w/sxiEM8uhKH8WvLEqF8yn + l4H97KP4mh1HXuMLc3n/5I0Bc1lv+/ExEHQbw6e79vnGh2svKG7T5isvcfvwYuwwtx8732dw5X7Ds9p2 + ag44zq0Ax/kfge2dBzHDFy2qrI8slQMT2D+J/AEFtL8Wevn6qwPH4o0B0K5VPql7TeGcfVPJaDDtu7cX + fmYXswpJVf36njdX1b2srgY1NFhY21wn0TmReH99QYitfXPoL2UD0LpKMVq7VqEzl/UufWPxvf8deweY + XPVNBoeT4TSoYze4zLhsEvvwpTiZ5bgKNoYZ8a/b0QMDsEbxqn6HQmCzZnzrXjAUfTuRg+YltjoMryu7 + dZtCCpwDcO15RXxrvsLEOs9GzrDnnm8vYlC81f+4Xn85lG/bEBo/SrtGUWR4c2xX/3PDH8RBKMSb/R9i + J0P/HmHco+zUrg8tGKVdrbiIwVXpeCqewyMD9reDDYJ2fcj7o2Ym3LH03NNqGIlyE+9YOgr/adDCEUpz + 4z1gpCLDkYQMRxIyHEnIcOSAUf8Bg2gMXEGUQa0AAAAASUVORK5CYII= + + + + 222, 17 + + \ No newline at end of file diff --git a/ArinWarev1/Forms/Frm_Warning.vb b/ArinWarev1/Forms/Frm_Warning.vb new file mode 100644 index 0000000..001bf30 --- /dev/null +++ b/ArinWarev1/Forms/Frm_Warning.vb @@ -0,0 +1,24 @@ +Public Class Frm_Warning + Public Term As Decimal = 0 + Public Second As Decimal = 0 + Dim Perc As Decimal + Public Overrides Function AcceptChanged() As Boolean + + End Function + Public Overrides Function RejectChanged() As Boolean + + End Function + Public Overrides Function HasChanged() As Boolean + + End Function + Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick + Second -= TOSG(Me.Timer1.Interval / 100) '//타이머를 증가 + If Second < 0 Then + Me.Timer1.Enabled = False + Me.Dispose() + Else + Perc = TOSG(1 * Second / Term) + Me.Opacity = Perc + End If + End Sub +End Class \ No newline at end of file diff --git a/ArinWarev1/Forms/Frm_Work.Designer.vb b/ArinWarev1/Forms/Frm_Work.Designer.vb new file mode 100644 index 0000000..1f4e15c --- /dev/null +++ b/ArinWarev1/Forms/Frm_Work.Designer.vb @@ -0,0 +1,94 @@ + _ +Partial Class Frm_Work + Inherits CForm + + 'Form은 Dispose를 재정의하여 구성 요소 목록을 정리합니다. + _ + Protected Overrides Sub Dispose(ByVal disposing As Boolean) + Try + If disposing AndAlso components IsNot Nothing Then + components.Dispose() + End If + Finally + MyBase.Dispose(disposing) + End Try + End Sub + + 'Windows Form 디자이너에 필요합니다. + Private components As System.ComponentModel.IContainer + + '참고: 다음 프로시저는 Windows Form 디자이너에 필요합니다. + '수정하려면 Windows Form 디자이너를 사용하십시오. + '코드 편집기를 사용하여 수정하지 마십시오. + _ + Private Sub InitializeComponent() + Me.components = New System.ComponentModel.Container + Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(Frm_Work)) + Me.Panel1 = New System.Windows.Forms.Panel + Me.ProgressBar1 = New System.Windows.Forms.ProgressBar + Me.Label1 = New System.Windows.Forms.Label + Me.Timer1 = New System.Windows.Forms.Timer(Me.components) + Me.Panel1.SuspendLayout() + Me.SuspendLayout() + ' + 'Panel1 + ' + Me.Panel1.BackColor = System.Drawing.Color.Transparent + Me.Panel1.BackgroundImage = CType(resources.GetObject("Panel1.BackgroundImage"), System.Drawing.Image) + Me.Panel1.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Center + Me.Panel1.Controls.Add(Me.ProgressBar1) + Me.Panel1.Controls.Add(Me.Label1) + Me.Panel1.Dock = System.Windows.Forms.DockStyle.Fill + Me.Panel1.Location = New System.Drawing.Point(0, 0) + Me.Panel1.Margin = New System.Windows.Forms.Padding(4) + Me.Panel1.Name = "Panel1" + Me.Panel1.Size = New System.Drawing.Size(358, 146) + Me.Panel1.TabIndex = 0 + ' + 'ProgressBar1 + ' + Me.ProgressBar1.Dock = System.Windows.Forms.DockStyle.Bottom + Me.ProgressBar1.Location = New System.Drawing.Point(0, 128) + Me.ProgressBar1.Name = "ProgressBar1" + Me.ProgressBar1.Size = New System.Drawing.Size(358, 18) + Me.ProgressBar1.TabIndex = 1 + ' + 'Label1 + ' + Me.Label1.BackColor = System.Drawing.Color.Transparent + Me.Label1.Font = New System.Drawing.Font("나눔고딕 ExtraBold", 9.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.Label1.Location = New System.Drawing.Point(3, 101) + Me.Label1.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0) + Me.Label1.Name = "Label1" + Me.Label1.Size = New System.Drawing.Size(354, 28) + Me.Label1.TabIndex = 0 + Me.Label1.Text = "잠시만 기다려주세요" + Me.Label1.TextAlign = System.Drawing.ContentAlignment.MiddleCenter + ' + 'Timer1 + ' + Me.Timer1.Interval = 1000 + ' + 'Frm_Work + ' + Me.AutoScaleDimensions = New System.Drawing.SizeF(9.0!, 17.0!) + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font + Me.BackColor = System.Drawing.SystemColors.AppWorkspace + Me.ClientSize = New System.Drawing.Size(358, 146) + Me.Controls.Add(Me.Panel1) + Me.Font = New System.Drawing.Font("나눔고딕", 11.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.Margin = New System.Windows.Forms.Padding(4) + Me.Name = "Frm_Work" + Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen + Me.Text = "Frm_Work" + Me.TransparencyKey = System.Drawing.SystemColors.AppWorkspace + Me.Controls.SetChildIndex(Me.Panel1, 0) + Me.Panel1.ResumeLayout(False) + Me.ResumeLayout(False) + + End Sub + Friend WithEvents Panel1 As System.Windows.Forms.Panel + Friend WithEvents Label1 As System.Windows.Forms.Label + Friend WithEvents ProgressBar1 As System.Windows.Forms.ProgressBar + Friend WithEvents Timer1 As System.Windows.Forms.Timer +End Class diff --git a/ArinWarev1/Forms/Frm_Work.resx b/ArinWarev1/Forms/Frm_Work.resx new file mode 100644 index 0000000..c97909b --- /dev/null +++ b/ArinWarev1/Forms/Frm_Work.resx @@ -0,0 +1,203 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + 17, 17 + + + + + iVBORw0KGgoAAAANSUhEUgAAAEAAAABACAYAAACqaXHeAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8 + YQUAAAAgY0hSTQAAeiYAAICEAAD6AAAAgOgAAHUwAADqYAAAOpgAABdwnLpRPAAAAAlwSFlzAAALDQAA + Cw0B7QfALAAAECxJREFUeF7lW2twVdUVDvZh37WdVttOa5zpdFqntU87th1tnWn7o69f/munY2c6Pqso + yCMkgIHwSEJIQiCgCPIIEB7yDgKCgoyjHYyiIuIDCM+8gISbGBKMsvt9a+11zj4nN8SgdVrNzGLvvR7f + Wuvb+9xz77mXIc65nI/0Hwn4KMtHunk5/fxn9pM9OaMfPpZzz8z9P564+lT9+GXNvVi7D0TmfzB52FPh + ypN16PFG9mqnPiIAhl+Pq21srNrSDJtzb7T3um2Huz80crzzbemrcEVL49CZ+29IEFCNE1C4onV9zTOt + rnZPj6ve2e2qn+x2szHO3tkjYzVG+KlwTpus6av62RLj/UM/i/dxEitzH5ewG77ZiKe6qI7IX3ObXv20 + dq1RbaxL6+52j+ztdvcvb12fJGBnT864pU29jzV0u5lPnFUQKzAqOm5cbDu8RH6MCYV2rClZMYIcxEr4 + GE6oD3FCe6CXXNn8VCe9wWfskqbeJAE7unMKa5uEnartXeI0ywPNCprgnPpZABM7Clcd1za3ptUuBdFH + xPtEOJYnJkrzWqySqDk9RpBfa9D8SrTl0VxaX2yT3uA7at4RXg1y+cs/M3ad+xaVBJgBJy02LjxuIEww + iHmisGTcgNjvJTYiXnux3kamCajcdS6XSh6RysfexMhLgYWe1VHmXoJ5wobYWSIap/6I93GCmQWD/orD + GIvTXFqDt8EexYuf5dL6Yt+41qg+we52ldu0t5EPHe5zAnKprHr8rKvY2ilEiEiSuDElxtu8nmv6GGlq + 14LMP2n3eiHXN9EHw0ghaeYT5jZSknnC2pTwOAfX0ht67ENA5ZM4AUJAl5u+RQmoCpolMVFjj8eNEWym + X4sP5zIG/iFOQEyM6X0tJor3DXtM1lOFeViX1OTjqqTmACvAs5jyLR2yySPmNiRPAAkY8VCDXCPTN6sT + gTmapNehLZtPtvh3g5ENdyB8I30gP+kNPY6YeyhJQAUJACuV27pc2aaMm2GNb/cEcERglYwmWNPPr2fY + iFNEIpONQCf6GIc5LIbY4dxwqWMcc8g8yCG6oE7mVJ8wf1wzfdkbe7zvwRQBlTt7cqnki0RpHQggCBwN + LF5bIclkYeJkIXFBQgowlbAAext8ILEuGWON98H1WFHDRgDxjDDpgfg6ltad8QQcTJ2AHUpABQnYeEYC + KgFItvqI6HG3kMI9Ud7PSKv0SQXDmvW+sg7wFcM37fVpXIuJNkTyx7kFz2+Y1WsY4Zq9VeAuN/yBbARA + WQ5j8Yb2uOnHAGwCcgRM1pjbmNbRjzboKyKbjxOdxzFyDSuhjzGinIIVxIa1+XzmK3lD8TmK17d5Ag4k + T0A5TsDwBw646bhNTF3XJg2QqQrfJEeRraoLbUqG+dLH+0Yk6TokztaGwxgjNdIJponGa/6kPqpRMBRH + fMJafRx7K8d8+Jw3UgQ8AQLmgADcAqesPR0DwJkBAibShbUSIHqfiHOeHrF5X4sTm+EE/tZMEl8xIn+f + U0hN1KH54ka1PsXqW4PlYm/scdjsFAHTQcAwsFKG++TkNae0ADiW40SIcL6FOiaI56IL1xLnY8PRSBD/ + ACP0j3wC/FRclE/qiolVvc8t+the4eumffJqI+D15AmY/nh37rDZr7uyRzvcpEdOCUsq2gxHlVivNtMH + fpuNAPUV8qAzvAQG9ZvNL01emkjLbfVglNjYL1mvEik6n5+9leG9wL3VryUJKNvenXtv9etu2qMZV7Tq + pAIjqAwjhWubh2v16ytlJMo3FtoTeiN2IIwQBzGGUeabsnqiPJY7Cy574yb3Q8BrQsCEla1wQiITMMag + BBlio94Tg7F4fbvLW3DIjZ5/0OUvOqz+gT2BB1vh8kY8cjsownnkbzESrzmmbeoQTGLnLWhwJciVxPf1 + SazNfX1RnR3SG3u8Z9aryRMwDSeAyml4pzRheQucOiRpGURGrgWIoxbGUXSw88Vl1LwDrnbbQbdj9wFX + ve6grNWufubPsWDxETd+0QG39WkVzgsWHfF+mlNFY4lFTGIzB9dT1p32BGkOqYkxvtZ4rgTSPmF5qysl + ATP3Jwko3aYElIKAQhBQGhWgoFybLrTZfGzNUbdu1yHX2NTkMpmMO3iowVWsOQTGm6P4uKkOl/fwIbdn + 30HX1tYmwjl16byMmQgMYhGT2MzBXMxpmOnaEus6I9N6yzg8E0wR8Fh3LpUlm844PD2Vt8PSNEcAJIU6 + E7Nl3EuH2uShI//Onz/vtr9wKogLcTJ4Ucq4zs43I3/Oy7EzmjPG1HkGWKcF0/6YK67PsNN1hWv1sd6G + Vr2SJuBsLpUleK88flkTxowr2dgB4QjhWnThqPZSr3t8X09AgHMLd/FtdTpG/dlUS0af0vKvJfNOjGUx + 4qcEECvo3zFXXCPq8PXZxlitVht7IdY46e2Mu3vGviQBJVvP5t5dtU+M45bAaQMKp7AYjMV4D13sCyve + oHNbG0lMvvOVHre/8S23tr5LYiICBUfXjJuzo8NtfKnLHTzZK8L5A9BZHsO3HDXPdLqnDvS4o2297sVj + 59zyZ3F7w4mx+gy3xOcslpq9XXJqbjz4vQABYKWkrt0V1DTi8wCaTMlUrKcSWEaV2AfHGgXN39XpFj3d + 6ebu5K7QTn+NKV5vMbqetb3DLXyqU4TzvphxPMmdu1OxmaMcl0qM7fEtTzRafRlfdwavG41S112VLydP + QPGWs7lU0kgCprJYEQb7uY2RzXw8IaHeCMrm258uax40l8b1RMY1xvllc2C3GCPdepDNxSbfVbE3RcBm + ErBXjPmLT+AWAyATJsR8CkbqRUznfabgvmwxU9bp3HSy9v6CE8W3S7GKibm3aV4fE+SJ/CSX2jXOx/q1 + 1RjmEl8Ieyve2O7+lSZg6uauXCpJwJhFxzXB2jNusjTT7iavhXjdFMxFvM3GyShc/eM4Yki8F8YJlujh + 1wcH+kCXtjOHYnAM6gvyWs1q1/yGyd6EgPKXkidg6qMgAEoaxyw87ou0YtvdpDU6n7S2rY9NG8ouk9J6 + 4IS6tN3yTF4T5PG5wxxRHG0mPlefnKzb52Vv7PHO8hf7EkAljXkLjmmACAqBcNR5rJdiRa9Nmb/6amzs + E2OEesNO4mqeWJeuxefjZiRyWV7LHdQh9bWhN0/A9BQBUzZ15d4JJS+BPHwtTuei1aG0uyKvS9smeT8Z + U3F9cVBUgJuO4Tq2o2hb+w0oWq2NRLVxDrISeT359Alr45xf93OT75j+QvIETKnryqWSBNCp6JHTEE00 + EaMI5yyeNnyuDn3MV0ZvN1/GCo7HinyFiNMRrvgHInE+t2Ima4lsUpPl9WNUO/E1B+MjAsr2JAmYXPdm + 7h1lSsCo+UfRMIJELKnNMa6iLhy976pw9HHmazjmI+ss+OJvsUFOyWc1pfIlsHxdYd6oXnxgQ288AbdP + SxOwkQTsiQiYgGQmTMy5jUlbW8JPikz7o/j+8Mw/jAt9s8Z5MqymbLHZcKmLCXg+eQImgYDbpz0vBIyc + dxSf4k65wlWnfOGYYz2B65W+GYyFXqjnXGxeZC3ximF2iRGCPBZxmSsVT53m0jrU7uuRvL6+QJe2K0bQ + B+JGoTf2eHtpmoANIQFH8DMSJFmhjUfCdSiRzfuKP+dBbDZ/w83mR8xsua1pxN4f5cFc/C1vUJ/520Z5 + H34DTgJuK30ueQKKQACVegKO4Cckmiir0ObtheYX+LMgiUv5mN5IjLDhF8WEOUN9MI99T2aPW3Eyqjus + hfORD3kCStIErFcC+GGITlL8cgB5GY+1iTZGm2/S+6o90MNnvBChOtrDMZ7Djz4pTPNP18G15enPR/SC + F9Z5MiCgPnkCJq7rzL2tpB4PRNrdCBCQX9PsxtdqonHhyLkJC6k1YtL6OI4YcQz8QwzMx6Xtfi15A4nW + Ud6k3XwjPMP1PeQvbpLeeMpvRa/4i38iAwIup1IJOCzCAIKOW6Zicxn7kdA2vrYVfq14wJL0N58I23JE + zTIuiGFuyQ8s+vh6lJDYV328PYinjzavfbHHW4ufTRIwdllrDpUxAUfkuIjgNYF3Br6CjsKPGin6A8rj + bjTeWuYtOOHyFlIaXd6iRnyYanJjkJBJ82ua8PG62RUsobS4sUtbIRxb8HACxaNo5MYcY2ijnj4onna1 + mbS4AtjygVcAfObR/CdQzwmtEbWyZqnd98HdvwABJ4WA4ro2/HiATNE5JEEBeR+VBNGvSD0JCQJIAsRI + WNwsl1RBDQpm0Si+QJrxTUuzWC+JG4znXhfYBANYxCTB0jw3wZpHjdo8JNF8TMAtfU7A0pacOyv2VuPd + 2fmQgIgEAzQCIhKUADI/2u+CngIlQEkwApQE3Tk9DUoERyWHjReI6FyJoS3W5+M05XsCbOfZvO4+mo4I + 0A20zZQRmyuXQEk9Pw/HrwFIIL8VxjOBf9Nh6oY2cfwgZCxOQL4/0kIOmyUp1rSQo6RwpK/NJ+Krrndb + I1/86Mse+/xWGImjHw/jdrjilqm73X9bila3RsVb47KzaDSfjVJkp72uxq9px7xgaTO/4jp/14x9vQPJ + HdNfPIfPOm23FtfzQ0DiF/KyGFMTE8A1mqd8w4+2ft9GHMGb8da7u2h1i5AQNeobHiPXd4tDXYnR/HjM + Ed8DKchWY7rJC62VgMVZCXjfGu6HyOH8XpCXmzS7OJZ8zhMENOsaer6So/EOYF7d3wb9XxCAY7l+3FI8 + e1hzGo2hwUi00TwR6uNx+IMN/CBzGo1fdaHTOXgCFn3wJwCfyc8WrT0l93tpflGzb9iatsahX9jkhs56 + 7Tx2/jga/9pAl+agCRg2sz7n/ZT+CggK/x4ew7+D/53iRrNxiI2ch3Ifbl14AXsLhC1G/KUDNU/7/zwB + eAA7Z+Q8/C5g5UnZ3dELYxJIBGXEQ0fx9HZvLxrfj6aufTeNm8+gCZi79VhOfzJ7c/z/awYDnM3XCkRT + mbH4Fpq3vNFCgEmzG/7gYdyrX34bx/0E/H87mMYvmoCnGrpz+pOS2ldzZm06MqhjNcAl8DO8GXkb/20F + 796a3Cg0P3L+cTe0+nVc43vO3V72Qj0a+QNkyMU0f1GXQO1zHTmhLH++M8eExJCEmXVHZLyQDHRCWByu + 5xdGzGuwpnl99+J9Qebmwh0zrvvj0B/iP3F+FfIVL1/G+CXIFyFfgHwe8lnIZyCfhlwK+STkE5CPQz4G + ucTLkIHqoV12dumzmYQsq+/ICcVIqNpw+D0R8Is/3XsbSDiPW9lbtxbvbrvpnmXLr7n+r/9EwddDroP8 + FPIjyA8g34d8F/IdyLchuZArPCGXeUI+5wkhGZ8KyDAihkB3QSKEgCW7zyQkTQjXRkLlugZgKnGDlSGX + XPL3X/7lvvlXXHnNSED8A3Iz5G+QmyB/hvwOciPkBsivID8PSLka8yshl0N4Sng67GSQCJ4KIyFxGgZ8 + JzjYRi7WHwXyCLOR30N+EzTK3b8W8hPINRDuPv1s96/C/JuQrwfNX+bxwsbtUnhXxz+6BC62oQ9D3KCP + 8Yeh6bCHjzwB/wH+SkzHrSzx5QAAAABJRU5ErkJggg== + + + + 109, 17 + + \ No newline at end of file diff --git a/ArinWarev1/Forms/Frm_Work.vb b/ArinWarev1/Forms/Frm_Work.vb new file mode 100644 index 0000000..7260c53 --- /dev/null +++ b/ArinWarev1/Forms/Frm_Work.vb @@ -0,0 +1,11 @@ +Public Class Frm_Work + Public Overrides Function AcceptChanged() As Boolean + + End Function + Public Overrides Function RejectChanged() As Boolean + + End Function + Public Overrides Function HasChanged() As Boolean + + End Function +End Class \ No newline at end of file diff --git a/ArinWarev1/Forms/Frm_import.Designer.vb b/ArinWarev1/Forms/Frm_import.Designer.vb new file mode 100644 index 0000000..7a022c0 --- /dev/null +++ b/ArinWarev1/Forms/Frm_import.Designer.vb @@ -0,0 +1,177 @@ + _ +Partial Class Frm_Import + Inherits CForm + + 'Form은 Dispose를 재정의하여 구성 요소 목록을 정리합니다. + _ + Protected Overrides Sub Dispose(ByVal disposing As Boolean) + Try + If disposing AndAlso components IsNot Nothing Then + components.Dispose() + End If + Finally + MyBase.Dispose(disposing) + End Try + End Sub + + 'Windows Form 디자이너에 필요합니다. + Private components As System.ComponentModel.IContainer + + '참고: 다음 프로시저는 Windows Form 디자이너에 필요합니다. + '수정하려면 Windows Form 디자이너를 사용하십시오. + '코드 편집기를 사용하여 수정하지 마십시오. + _ + Private Sub InitializeComponent() + Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(Frm_Import)) + Me.Panel1 = New System.Windows.Forms.Panel() + Me.chk_deldata = New System.Windows.Forms.CheckBox() + Me.ListView1 = New System.Windows.Forms.ListView() + Me.ColumnHeader1 = CType(New System.Windows.Forms.ColumnHeader(), System.Windows.Forms.ColumnHeader) + Me.ColumnHeader2 = CType(New System.Windows.Forms.ColumnHeader(), System.Windows.Forms.ColumnHeader) + Me.ColumnHeader3 = CType(New System.Windows.Forms.ColumnHeader(), System.Windows.Forms.ColumnHeader) + Me.tb_file = New System.Windows.Forms.TextBox() + Me.rado = New System.Windows.Forms.RadioButton() + Me.radi = New System.Windows.Forms.RadioButton() + Me.Button2 = New System.Windows.Forms.Button() + Me.Button1 = New System.Windows.Forms.Button() + Me.Label2 = New System.Windows.Forms.Label() + Me.Label1 = New System.Windows.Forms.Label() + Me.PictureBox1 = New System.Windows.Forms.PictureBox() + Me.Panel1.SuspendLayout() + CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit() + Me.SuspendLayout() + ' + 'Panel1 + ' + Me.Panel1.BackColor = System.Drawing.Color.Transparent + resources.ApplyResources(Me.Panel1, "Panel1") + Me.Panel1.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.Panel1.Controls.Add(Me.chk_deldata) + Me.Panel1.Controls.Add(Me.ListView1) + Me.Panel1.Controls.Add(Me.tb_file) + Me.Panel1.Controls.Add(Me.rado) + Me.Panel1.Controls.Add(Me.radi) + Me.Panel1.Controls.Add(Me.Button2) + Me.Panel1.Controls.Add(Me.Button1) + Me.Panel1.Controls.Add(Me.Label2) + Me.Panel1.Controls.Add(Me.Label1) + Me.Panel1.Controls.Add(Me.PictureBox1) + Me.Panel1.Name = "Panel1" + ' + 'chk_deldata + ' + resources.ApplyResources(Me.chk_deldata, "chk_deldata") + Me.chk_deldata.Checked = True + Me.chk_deldata.CheckState = System.Windows.Forms.CheckState.Checked + Me.chk_deldata.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(64, Byte), Integer)) + Me.chk_deldata.Name = "chk_deldata" + Me.chk_deldata.UseVisualStyleBackColor = True + ' + 'ListView1 + ' + Me.ListView1.Activation = System.Windows.Forms.ItemActivation.OneClick + Me.ListView1.CheckBoxes = True + Me.ListView1.Columns.AddRange(New System.Windows.Forms.ColumnHeader() {Me.ColumnHeader1, Me.ColumnHeader2, Me.ColumnHeader3}) + Me.ListView1.FullRowSelect = True + Me.ListView1.HeaderStyle = System.Windows.Forms.ColumnHeaderStyle.None + Me.ListView1.HotTracking = True + Me.ListView1.HoverSelection = True + resources.ApplyResources(Me.ListView1, "ListView1") + Me.ListView1.Name = "ListView1" + Me.ListView1.UseCompatibleStateImageBehavior = False + Me.ListView1.View = System.Windows.Forms.View.Details + ' + 'ColumnHeader1 + ' + resources.ApplyResources(Me.ColumnHeader1, "ColumnHeader1") + ' + 'ColumnHeader2 + ' + resources.ApplyResources(Me.ColumnHeader2, "ColumnHeader2") + ' + 'ColumnHeader3 + ' + resources.ApplyResources(Me.ColumnHeader3, "ColumnHeader3") + ' + 'tb_file + ' + Me.tb_file.BackColor = System.Drawing.Color.FromArgb(CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer)) + resources.ApplyResources(Me.tb_file, "tb_file") + Me.tb_file.Name = "tb_file" + ' + 'rado + ' + resources.ApplyResources(Me.rado, "rado") + Me.rado.BackColor = System.Drawing.Color.Transparent + Me.rado.Checked = True + Me.rado.Name = "rado" + Me.rado.TabStop = True + Me.rado.UseVisualStyleBackColor = False + ' + 'radi + ' + resources.ApplyResources(Me.radi, "radi") + Me.radi.BackColor = System.Drawing.Color.Transparent + Me.radi.Name = "radi" + Me.radi.UseVisualStyleBackColor = False + ' + 'Button2 + ' + resources.ApplyResources(Me.Button2, "Button2") + Me.Button2.Name = "Button2" + Me.Button2.UseVisualStyleBackColor = True + ' + 'Button1 + ' + resources.ApplyResources(Me.Button1, "Button1") + Me.Button1.Name = "Button1" + Me.Button1.UseVisualStyleBackColor = True + ' + 'Label2 + ' + resources.ApplyResources(Me.Label2, "Label2") + Me.Label2.Name = "Label2" + ' + 'Label1 + ' + resources.ApplyResources(Me.Label1, "Label1") + Me.Label1.Name = "Label1" + ' + 'PictureBox1 + ' + resources.ApplyResources(Me.PictureBox1, "PictureBox1") + Me.PictureBox1.Name = "PictureBox1" + Me.PictureBox1.TabStop = False + ' + 'Frm_Import + ' + resources.ApplyResources(Me, "$this") + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font + Me.BackColor = System.Drawing.SystemColors.AppWorkspace + Me.Controls.Add(Me.Panel1) + Me.KeyPreview = True + Me.MaximizeBox = False + Me.MinimizeBox = False + Me.Name = "Frm_Import" + Me.TransparencyKey = System.Drawing.SystemColors.AppWorkspace + Me.Panel1.ResumeLayout(False) + Me.Panel1.PerformLayout() + CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).EndInit() + Me.ResumeLayout(False) + + End Sub + Friend WithEvents Panel1 As System.Windows.Forms.Panel + Friend WithEvents Label1 As System.Windows.Forms.Label + Friend WithEvents PictureBox1 As System.Windows.Forms.PictureBox + Friend WithEvents Label2 As System.Windows.Forms.Label + Friend WithEvents Button1 As System.Windows.Forms.Button + Friend WithEvents Button2 As System.Windows.Forms.Button + Friend WithEvents rado As System.Windows.Forms.RadioButton + Friend WithEvents radi As System.Windows.Forms.RadioButton + Friend WithEvents tb_file As System.Windows.Forms.TextBox + Friend WithEvents ListView1 As System.Windows.Forms.ListView + Friend WithEvents ColumnHeader1 As System.Windows.Forms.ColumnHeader + Friend WithEvents ColumnHeader2 As System.Windows.Forms.ColumnHeader + Friend WithEvents ColumnHeader3 As System.Windows.Forms.ColumnHeader + Friend WithEvents chk_deldata As System.Windows.Forms.CheckBox +End Class diff --git a/ArinWarev1/Forms/Frm_import.resx b/ArinWarev1/Forms/Frm_import.resx new file mode 100644 index 0000000..fdf9c8b --- /dev/null +++ b/ArinWarev1/Forms/Frm_import.resx @@ -0,0 +1,513 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + + Center + + + + True + + + + 168, 65 + + + 190, 19 + + + 11 + + + 가져오는영역의 데이터 초기화 + + + False + + + chk_deldata + + + System.Windows.Forms.CheckBox, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + Panel1 + + + 0 + + + 255 + + + 66 + + + 0 + + + 12, 140 + + + 338, 282 + + + 10 + + + ListView1 + + + System.Windows.Forms.ListView, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + Panel1 + + + 1 + + + 12, 112 + + + 337, 22 + + + 8 + + + tb_file + + + System.Windows.Forms.TextBox, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + Panel1 + + + 2 + + + True + + + NoControl + + + 89, 64 + + + 73, 19 + + + 7 + + + 내보내기 + + + rado + + + System.Windows.Forms.RadioButton, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + Panel1 + + + 3 + + + True + + + 10, 64 + + + 73, 19 + + + 6 + + + 가져오기 + + + radi + + + System.Windows.Forms.RadioButton, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + Panel1 + + + 4 + + + False + + + 9, 428 + + + 341, 31 + + + 3 + + + 실행 + + + Button2 + + + System.Windows.Forms.Button, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + Panel1 + + + 5 + + + 10, 87 + + + 340, 23 + + + 3 + + + 파일선택 + + + Button1 + + + System.Windows.Forms.Button, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + Panel1 + + + 6 + + + True + + + 67, 36 + + + 135, 15 + + + 1 + + + 해당 파일을 선택하세요 + + + Label2 + + + System.Windows.Forms.Label, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + Panel1 + + + 7 + + + True + + + 67, 13 + + + 148, 15 + + + 1 + + + 데이터 내보내기/가져오기 + + + MiddleCenter + + + Label1 + + + System.Windows.Forms.Label, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + Panel1 + + + 8 + + + + iVBORw0KGgoAAAANSUhEUgAAADAAAAAwCAYAAABXAvmHAAAABGdBTUEAALGPC/xhBQAAACBjSFJNAAB6 + JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAAACXBIWXMAAAsAAAALAAHkN62/AAAI90lE + QVRoQ9XYCUxUdx4H8DeA14iCFypyiYhFIiynojZrbOw2XrFm12q9jdtQrdq1caubaDet7tqtSvGoVahS + QERuFVBBLQoedNfuJjTZ0qQcYodjhhmGN/cAv/393zDDvJnfALZ2U0g+ecPv/Y/v/13zgAOAIY0sDiVk + 8QUa34va90KQRab9LPdzeXRkhRg7smaY2WeHfQOiMlHIIkMN+jzURQuT+PJ1wHQWxaVTbfpDZaKQRYYa + 9DmMU6X7duM4wg9+7mE1hzb9wm6DQhYZatDBUhcmVOq+PgTdirvQrXwAun8egs7CuBqqrStUJgpZZKhB + B0OZ6hmuygzo6WorA+O9cEF3+2NQZQaCMsU9gupDoTJRyCJDDToY6pw5MuN3F8D4cKFtAabq34GxNg3U + OeFKqg+FykQhiww16EA6ssPeUOfH93Q1ngVjxWwwVITZdMmyQV0wF9TZwdupvo6oTBSyyFCDDmCYKsNf + b3p6DQOHi8IbvnoJDPciwdRUCqoMPxNr69DXCZWJQhYZatD+qPOikjTla8FUs9MSmGCuPYSP1bWgzg27 + SI1hj8pEIYsMNWg/JqrSfLrMz/Ix6Cyxu2Lm5jJQpU3qZn0cxhChMlHIIkMN6greuBW66vd7jI9fxZCh + oCsPBXnODGjOCEbToS07GLRlM4V9pn+tAV31fryhw76hxrKiMlHIIkMNSlGmjI7E67rbXPcZGO5gSKTI + DYH7x2bA4cQw+DBxNhQfmQktWaGgv23Zb36aiffCtB7lefdopzE/s2ypTBSyyDgN7Kh3oo6s4CZDzSd4 + s0ZguBDQlYVA/eczYf6iWJgdHy+ISIiD2tMhoL01Q2hjvD8PDN8mQcelILloPDtUJgpZZGwD9wO/nNar + 86K7zd/uBcNtDNerKW0WxL7yCixYtkwQv2QJ1J7Do2/Xxlx7GPDG7+nImJLoGP6XXQCbwLIdjjejxvhd + MujLg0Vk6aHw21WrYNHrr9s0peElZN/uziwwfX+O3dAGNpYw7hkLBaIyUcgiYwvqqPcIdVyemcTfXNFt + rF6BgaaLNGeGwssrV4qwmmM745ONwN9YDqpLAReswRWnLahMFLLIWIPa2IVHPsqL40ym/34E+rIgJy2X + ZsKC5ctFWE3cLlBg+j4JlF94dylOcT7W8L/MAhA7QmzbkRl4W3t/S4+hItoWxF7b5RCnBbCa/hbud2Co + fBm097biK7ff14qTOAdz6gUswBpWtGXOSaOVaZNNpn8nYoAAkhyf+wmvvSbCak5tb/oLTDX7QJnq091+ + xj1e/inHMVQmCllkhOvRyu7UKi9OqtM9eguPNAbqDeBIcWU6zMUnjz1Wo9oKymeB7tEOfN2e2CJPwgUg + KhOFLDLWUylg4XGrTJmwoSMr1GR8uBQn9nNJmRsEcYsXiyhz8Lq/gfudTBMYq/8AyvQQfMUYk9j2yYtY + QDKGtl6Tls8j2896qg2PNtsmpeiQMi8QYhYtElHmBeA+X9fY4h9vB8VJT13bx9xIKhOFLDIKPI1tJyyn + U4HXpOLzicfUeTFm/Z1IOkBpH1W+P0QtXCiiyvfDfVP7pa9IgI7L0T2KU+NSqUwUssiw8G3HbXzlyVK9 + vnIpObEjdaEfRCYkiKgL8OyUTBmQoWo1tP5jlKn5I86XyuWILDKtH3M28uSxpZ2F8V26G4HkpI46C31h + Dr4D2essxMWVTB7YrRB8U50LbcfGPKRyOSKLTOsRjmu2iG1N8tTp78bSE1oV9+GLpkJ4TIwIX4SLK/YZ + FP1X86HlyGiz7APJfCqbPbLI4Cnkmj/kJK1HR9byhXPIiVzRXJ0MYVFRIpqrbN8ksesu4EHozIsE2Qcj + njX9mZNQ+azIIiM7yHGyv3psaD0+Vqu7GdT/hPZKsW1ZLETHRcCsCIuwyAisxeCZwvvg+sTBuYF/DP1t + bNePB4fvpPJZkUXmxwOcVHbQvZ1nTw9qAgfaaxMsivFpUrkCSk4vgT1b58GuLfMg8++LQX9/KWhxgbZ2 + /Rov6Mz1g6f73PmG3ZyUysiQRebZAcnRthMj9fQEjiwTWulu4pvng9/jc30Lwu+NqlWgLQ10aie42r+W + oyN6mvZ7pFAZGbLYsJfzb9wn4TX5437CpNgH1aRMhLdW+8OmFQFQ+Ske+d76cynyBj7XCxr2uBnrEjl/ + KqtTgWnaK7muOC3tEgYp9AZNgTcO5jC4KzgpszAuAPyDggSzXwqEluy+fQNic+Z7gbZgLP7uBfLkUdD4 + J7cqKqtToX4HN//pe248G0Rb4AWanLGgwaNATkTyAkWON/gF+MM0/z5PzuDZwX39KuwjzJszBrR5uAjM + 0fium6l+p2SRY17RLxhe0rhLUqtKHS0MqLkyBvjsMXg0LEeCZDepoBi/7G79Bta8GgRTfX0FC6L9QV2C + ryAlM7ANjjUImjyc+7InaBA7E8rzUqjf6fasbrv4sSpewNuSrU0HPHh2KbDV85mjgc/CAYgJXLo6QXji + KO+shLN/mQcn3osD2Y1lwpNJe20KtsGjaq/ANf4Szp8hxUWwA+oNTe97mOt3ue22z2wXnvOs3yFp78TQ + umuTgE+XQueX2PkKWwAOOMhJGd11/GPl0XowPHkXDN+g6m34/RBq14Yd1T4aF/gslmGUgM+RgjrLG+oT + JfwP2zhP5wW8IznefGSYTo9vk3wmdryAHa0ujrTDfkdphN7JBGnY9tJ4vAzwW/VL/MykY91RhguZCOdT + f2HB+utKp4DssEdPwx7JBdECGt7hghp2S3j+ihT/IAmwdEwZ8YIM//nODxcWoMGzoC32g/pdEsMPf+SC + bAto3CvJl58c3m24HYI3LZ6uDFxx6ohfDf4iSscF5I4S/ikmTxoGdW9zaX1nYK/kP5o8qei/yL92Tfvd + MDouAH98ctZwW6q2uSkebnWXVW12lz3YhNuNCLeVG9ybqze5N1Sux89vonV22+dh16dinbu8Yi2y3/YS + 2qHHljmbq9i8GyweYCaWrXKzmyJnNbeFZWcLiEIxaGOvTWgzYg22oe3Iuu//jc3NMrAsLBPLZt3HMkcJ + l9BQRhaHErI4dAD3P/ArbcVv17aEAAAAAElFTkSuQmCC + + + + 11, 10 + + + 48, 48 + + + AutoSize + + + 0 + + + PictureBox1 + + + System.Windows.Forms.PictureBox, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + Panel1 + + + 9 + + + Fill + + + 0, 0 + + + 4, 4, 4, 4 + + + 363, 474 + + + 0 + + + Panel1 + + + System.Windows.Forms.Panel, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + $this + + + 0 + + + True + + + 8, 15 + + + 363, 474 + + + 나눔고딕 ExtraBold, 9.75pt, style=Bold + + + 4, 4, 4, 4 + + + CenterScreen + + + 데이터관리 + + + ColumnHeader1 + + + System.Windows.Forms.ColumnHeader, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + ColumnHeader2 + + + System.Windows.Forms.ColumnHeader, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + ColumnHeader3 + + + System.Windows.Forms.ColumnHeader, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + Frm_Import + + + Eco2Ar.CForm, Eco2Ar, Version=1.2013.101.0, Culture=neutral, PublicKeyToken=null + + \ No newline at end of file diff --git a/ArinWarev1/Forms/Frm_import.sr-Cyrl-CS.resx b/ArinWarev1/Forms/Frm_import.sr-Cyrl-CS.resx new file mode 100644 index 0000000..b974cf9 --- /dev/null +++ b/ArinWarev1/Forms/Frm_import.sr-Cyrl-CS.resx @@ -0,0 +1,209 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + + + iVBORw0KGgoAAAANSUhEUgAAADAAAAAwCAYAAABXAvmHAAAABGdBTUEAALGOfPtRkwAAACBjSFJNAACH + DwAAjA8AAP1SAACBQAAAfXkAAOmLAAA85QAAGcxzPIV3AAAKOWlDQ1BQaG90b3Nob3AgSUNDIHByb2Zp + bGUAAEjHnZZ3VFTXFofPvXd6oc0wAlKG3rvAANJ7k15FYZgZYCgDDjM0sSGiAhFFRJoiSFDEgNFQJFZE + sRAUVLAHJAgoMRhFVCxvRtaLrqy89/Ly++Osb+2z97n77L3PWhcAkqcvl5cGSwGQyhPwgzyc6RGRUXTs + AIABHmCAKQBMVka6X7B7CBDJy82FniFyAl8EAfB6WLwCcNPQM4BOB/+fpFnpfIHomAARm7M5GSwRF4g4 + JUuQLrbPipgalyxmGCVmvihBEcuJOWGRDT77LLKjmNmpPLaIxTmns1PZYu4V8bZMIUfEiK+ICzO5nCwR + 3xKxRoowlSviN+LYVA4zAwAUSWwXcFiJIjYRMYkfEuQi4uUA4EgJX3HcVyzgZAvEl3JJS8/hcxMSBXQd + li7d1NqaQffkZKVwBALDACYrmcln013SUtOZvBwAFu/8WTLi2tJFRbY0tba0NDQzMv2qUP91829K3NtF + ehn4uWcQrf+L7a/80hoAYMyJarPziy2uCoDOLQDI3fti0zgAgKSobx3Xv7oPTTwviQJBuo2xcVZWlhGX + wzISF/QP/U+Hv6GvvmckPu6P8tBdOfFMYYqALq4bKy0lTcinZ6QzWRy64Z+H+B8H/nUeBkGceA6fwxNF + hImmjMtLELWbx+YKuGk8Opf3n5r4D8P+pMW5FonS+BFQY4yA1HUqQH7tBygKESDR+8Vd/6NvvvgwIH55 + 4SqTi3P/7zf9Z8Gl4iWDm/A5ziUohM4S8jMX98TPEqABAUgCKpAHykAd6ABDYAasgC1wBG7AG/iDEBAJ + VgMWSASpgA+yQB7YBApBMdgJ9oBqUAcaQTNoBcdBJzgFzoNL4Bq4AW6D+2AUTIBnYBa8BgsQBGEhMkSB + 5CEVSBPSh8wgBmQPuUG+UBAUCcVCCRAPEkJ50GaoGCqDqqF6qBn6HjoJnYeuQIPQXWgMmoZ+h97BCEyC + qbASrAUbwwzYCfaBQ+BVcAK8Bs6FC+AdcCXcAB+FO+Dz8DX4NjwKP4PnEIAQERqiihgiDMQF8UeikHiE + j6xHipAKpAFpRbqRPuQmMorMIG9RGBQFRUcZomxRnqhQFAu1BrUeVYKqRh1GdaB6UTdRY6hZ1Ec0Ga2I + 1kfboL3QEegEdBa6EF2BbkK3oy+ib6Mn0K8xGAwNo42xwnhiIjFJmLWYEsw+TBvmHGYQM46Zw2Kx8lh9 + rB3WH8vECrCF2CrsUexZ7BB2AvsGR8Sp4Mxw7rgoHA+Xj6vAHcGdwQ3hJnELeCm8Jt4G749n43PwpfhG + fDf+On4Cv0CQJmgT7AghhCTCJkIloZVwkfCA8JJIJKoRrYmBRC5xI7GSeIx4mThGfEuSIemRXEjRJCFp + B+kQ6RzpLuklmUzWIjuSo8gC8g5yM/kC+RH5jQRFwkjCS4ItsUGiRqJDYkjiuSReUlPSSXK1ZK5kheQJ + yeuSM1J4KS0pFymm1HqpGqmTUiNSc9IUaVNpf+lU6RLpI9JXpKdksDJaMm4ybJkCmYMyF2TGKQhFneJC + YVE2UxopFykTVAxVm+pFTaIWU7+jDlBnZWVkl8mGyWbL1sielh2lITQtmhcthVZKO04bpr1borTEaQln + yfYlrUuGlszLLZVzlOPIFcm1yd2WeydPl3eTT5bfJd8p/1ABpaCnEKiQpbBf4aLCzFLqUtulrKVFS48v + vacIK+opBimuVTyo2K84p6Ss5KGUrlSldEFpRpmm7KicpFyufEZ5WoWiYq/CVSlXOavylC5Ld6Kn0Cvp + vfRZVUVVT1Whar3qgOqCmrZaqFq+WpvaQ3WCOkM9Xr1cvUd9VkNFw08jT6NF454mXpOhmai5V7NPc15L + Wytca6tWp9aUtpy2l3audov2Ax2yjoPOGp0GnVu6GF2GbrLuPt0berCehV6iXo3edX1Y31Kfq79Pf9AA + bWBtwDNoMBgxJBk6GWYathiOGdGMfI3yjTqNnhtrGEcZ7zLuM/5oYmGSYtJoct9UxtTbNN+02/R3Mz0z + llmN2S1zsrm7+QbzLvMXy/SXcZbtX3bHgmLhZ7HVosfig6WVJd+y1XLaSsMq1qrWaoRBZQQwShiXrdHW + ztYbrE9Zv7WxtBHYHLf5zdbQNtn2iO3Ucu3lnOWNy8ft1OyYdvV2o/Z0+1j7A/ajDqoOTIcGh8eO6o5s + xybHSSddpySno07PnU2c+c7tzvMuNi7rXM65Iq4erkWuA24ybqFu1W6P3NXcE9xb3Gc9LDzWepzzRHv6 + eO7yHPFS8mJ5NXvNelt5r/Pu9SH5BPtU+zz21fPl+3b7wX7efrv9HqzQXMFb0ekP/L38d/s/DNAOWBPw + YyAmMCCwJvBJkGlQXlBfMCU4JvhI8OsQ55DSkPuhOqHC0J4wybDosOaw+XDX8LLw0QjjiHUR1yIVIrmR + XVHYqLCopqi5lW4r96yciLaILoweXqW9KnvVldUKq1NWn46RjGHGnIhFx4bHHol9z/RnNjDn4rziauNm + WS6svaxnbEd2OXuaY8cp40zG28WXxU8l2CXsTphOdEisSJzhunCruS+SPJPqkuaT/ZMPJX9KCU9pS8Wl + xqae5Mnwknm9acpp2WmD6frphemja2zW7Fkzy/fhN2VAGasyugRU0c9Uv1BHuEU4lmmfWZP5Jiss60S2 + dDYvuz9HL2d7zmSue+63a1FrWWt78lTzNuWNrXNaV78eWh+3vmeD+oaCDRMbPTYe3kTYlLzpp3yT/LL8 + V5vDN3cXKBVsLBjf4rGlpVCikF84stV2a9021DbutoHt5turtn8sYhddLTYprih+X8IqufqN6TeV33za + Eb9joNSydP9OzE7ezuFdDrsOl0mX5ZaN7/bb3VFOLy8qf7UnZs+VimUVdXsJe4V7Ryt9K7uqNKp2Vr2v + Tqy+XeNc01arWLu9dn4fe9/Qfsf9rXVKdcV17w5wD9yp96jvaNBqqDiIOZh58EljWGPft4xvm5sUmoqb + PhziHRo9HHS4t9mqufmI4pHSFrhF2DJ9NProje9cv+tqNWytb6O1FR8Dx4THnn4f+/3wcZ/jPScYJ1p/ + 0Pyhtp3SXtQBdeR0zHYmdo52RXYNnvQ+2dNt293+o9GPh06pnqo5LXu69AzhTMGZT2dzz86dSz83cz7h + /HhPTM/9CxEXbvUG9g5c9Ll4+ZL7pQt9Tn1nL9tdPnXF5srJq4yrndcsr3X0W/S3/2TxU/uA5UDHdavr + XTesb3QPLh88M+QwdP6m681Lt7xuXbu94vbgcOjwnZHokdE77DtTd1PuvriXeW/h/sYH6AdFD6UeVjxS + fNTws+7PbaOWo6fHXMf6Hwc/vj/OGn/2S8Yv7ycKnpCfVEyqTDZPmU2dmnafvvF05dOJZ+nPFmYKf5X+ + tfa5zvMffnP8rX82YnbiBf/Fp99LXsq/PPRq2aueuYC5R69TXy/MF72Rf3P4LeNt37vwd5MLWe+x7ys/ + 6H7o/ujz8cGn1E+f/gUDmPP8usTo0wAAAAlwSFlzAAALEAAACxABrSO9dQAACM9JREFUaEPtmQlQVEca + x98AAo6ciqjccgYpYTkVJbWUKbMprzLWxuh6oeWmUKNmSbnRrdJsJbprNirBI0YhQrhEbpRDQQ0KHmTX + 7FaRqg1bFQ4xwzHDHLy5B/j26zeH82AGhiCCVaHqV92vX/f7/v/+ut/0DBQAUK8yr7R4MvGTbWA2BiFM + WhyzD+67SFETxEacH6gS5wdo8Dk2432WpaYnzYCkPCGVrtsMhP7y2OxXzYCrKNtjEGeR+cP6EBpwHY+J + Kc2ApCy+Qf7dMRgU3IVB4QOQ//MY9JfFNr8SBoQZDmGiXJ+hgd5aUN0LYxjsewyiXF8QpluHW2piyjIg + KVzMU/14BVQPEwwG1E2/A1VLFkgKw4TT2oC4IPRdSUnc0EDHRVDVLwJlfaiBAV4BSEqXgKTAf7clJqYi + AzNEOd4K9dPrKDqMJV757WugvBcB6s5qEOV4qdHAjLFMvHQDkuLIVGndJlA37wNGsAk0LcfwtboJJEWh + mdPNgJsoy31A86wEhYewuYvXRmi6akGUNXcQDbiNZuKlZgA3br286aMh1eM3UWwwyOuCgV8YAF05/shC + 6C3wB1ltEHNP/a+NIG86jBs69PtpYUCYPisC1/WgpvVLUN5BkYigKBDunwqA48mh8EnyIqg8EQTd+cGg + uK29r3mai3vBc0h42TpqhIkvtUeYyc+ALpA4379T2fw5btpwFBcI8tpAaPsqCJYlxsCiuDiG8PhYaDkf + CLJbAUwf1f2loPwhFcR5fnyDAfI8IybfAM4SfjhtkRRHDWp+SAHlbRSnozMrBGLeeAOWr17NELdyJbRc + wtk36qNpOQ648YfEOfOTjYXr65NnQDfzGMgWN6NU9WMaKOr8WfCyg+G369dD4ttvG+jMwiVk3O9OCKj/ + d4lsaCV5FiP8ghYBMnEDeqHDj9W6NIuvBqXSN9cOqprWorCFLLpyg+H1detYkLbh/VRPtgFdswZEeT5X + 9MIF59EA8mIMGK9LYuT5tbsw01Wt/u+noKj1G0F3XhAsX7OGBWlj9/XFa1/MQioIv3YZEJyj3PXiJ8cA + iiepJSbEub63ZfeThpT1UYyI4fReDRxhgLQpbmHfYSgbXgfZvZ145Pb6TnAWYxDOvYAM6MWySmLgEjdK + mDVPrf53MorxMQkf3/vxb73FgrSN6H/TGxSIuvkQCDPcB/suWMfxv6AowoSXEBFuQLcuSWqFmXNb5Y/e + w1lHQToBw0vBtYWwBN88xpA2c/0VdSEgf7QXj9tu3fxUNIBM3IAulSSdzNrEUpg+Z6s4P1itergKxXiZ + RVjkB7ErVrAQFuJeqcExI/DENk9QNb0DwuxAPGI4Jvd+/iIMpOnWIzGirdv3XXSQKB/tYAKaQ473hMW+ + EJ2YyEJY7APyGg/zkAl5vBsEZx3kvZ9R9hPPAKax94w2nQJck4Kv3E5JiqM1ijsRpkVUozgdohJviExI + YCEq8cL7C0ZFUR8P4qtRQ4JzrhkTNkDE95424MFP4yoUDavGFEFESsq8ICI+noWk1BPkVfPHRNm4AXr+ + MVPd9SnlYYkJs5ul5zOK0sNPc6ruL4sbkNf4jimAiOwv84DFeAYypr8MZ79q3tjcCsST6hLoPeX4cGIG + TlBUl5aYnlQHueJuzOjBK1GcDrp8AYRFR7Ogy3H2K90tQvHtMug+MUvD+5izbCwTZjOAKaS6PqE4PSft + W+iyxRYF1guUVsyD0MhIFtIKIn4umxt4bQqciP7iCOB9bPes888UZzQTZg3wjlIU7682W3tOO8nkN/20 + gc0FNG6vxr61MRAVGw4h4VpCI8KxLRoziPvghptl1OCXob85Dfx81HbfLzLw8xGKyztq3UeTt4cFQWXX + 5wBD5QJQNKyFqvMr4eDOpbA/aSnk/n0FKO6vAhkaNfTT9zdZzsZ+s6G/yAueHrKm2w9QXHMmzGbg2RHO + yd4z9orxBCRBCfKbePJ88Ht8rych+LnRuB5k1b7MvRFUYNsodJ+0G+o8bJM+LgPtKZR3xyEOLS1x/QVB + cUyFKzSnu8F7G7xh+1ofaPgCZx7bxk25C9BFztB+0ErVmkx5mzJhMgOdKZwbgvPcASZgmQtIS11AVm6h + AAwqQxJifcDbz49h0Wu+0F2A43X3xixJzBJnkJU64Rhn4KfNhI4/WTVaZKBtL7Xs6YdWNBEuK3UGaaET + SHEWxgxqEOcMgkIX8PLxBk/v5zy5gEsFxYxKGd7XwcQtdARZMZpAHR0fWKnb9nESh5tgZQDFczr2c1pE + GbOYQNJrjkAXOOJsaGfCJEZBmeCV+GF36zew8U0/WODhwbA8yhskVXgEqQpAgfgsC5AWY+yrDiBFSCaE + l7nQts/qWetu9muVbWAPZ2fnERuaLB3ins6dBXQ+PsCCgIY+FXOYN47wzjq4+JelcObDWODVrGbeTLLr + 8/FZOKvGlOK1Geg8jJ/DRRNkQl2g8yMbTdt+qwPGWTAYaNtDObTt5fT1o2j59blAZ3Oh/xscfI0YsDwo + ESO/gV90Hm0B5ZMPQPk90rQLz1DBRkLJrD5HinVT0PlEw0wGupALknwXaEvm0D/tohz0Jp4beJ9zuuvE + DLkCT5R0Lg68ggP1ZNpDvwFsz0SyTKALxgTNwjF5s3EZ4KfqN1gnZGP7cHKwzRS5JI49SL7WQsbLq+cD + 77jNUPtBzhWWgfb3Kb/2AxyavsbFLyk+2oHpdi8IW3zOBLlsyxiQYhZklV7Qtp+j/OmPlB8xwWSgI4VT + wj9rO6i8HYibFtOVg44z7KYNdKYdLmk0UDST+XGMnzoDWvdQWQYD7Smc/0iLuaxfkY1/UZ6O9c7DVuT/ + hxT5cy/cSCU17rISPNxpzWvcYc17sB3LbQiWDVutu5q2W7c3bMH6H5DNRiWpW4p+LPav32zNr9+EGJek + jjAxkMfamF2NJO5WLQ9QE9HWsMNKULiBSiLaiYFIJBrZpmM7ljsQ0mEXstvonr7PyypJbKKBaCGaiDZ9 + bKI50uKfL8b6YjFV9381MFUzr4/7f/ArbcXZ8eUKAAAAAElFTkSuQmCC + + + \ No newline at end of file diff --git a/ArinWarev1/Forms/Frm_import.vb b/ArinWarev1/Forms/Frm_import.vb new file mode 100644 index 0000000..6049ff8 --- /dev/null +++ b/ArinWarev1/Forms/Frm_import.vb @@ -0,0 +1,721 @@ +Public Class Frm_Import + Public Overrides Function AcceptChanged() As Boolean + + End Function + Public Overrides Function RejectChanged() As Boolean + + End Function + Public Overrides Function HasChanged() As Boolean + + End Function + Dim RecordCount As Long + Dim TableList As DataTable + Dim IsExcel As Boolean = False + + Private Sub Frm_Import_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load + '//테이블목록 추가 + Add_Tablelist() + Me.Button2.Enabled = False '//실행버튼 사용불가 + Me.IsExcel = False + End Sub + + Private Sub Add_Tablelist() + Dim TabName As String + Dim TabDesc As String = "" + Dim Sort As String = "" + + Me.TableList = New DataTable + Me.TableList.Columns.Add("Desc") + Me.TableList.Columns.Add("Name") + Me.TableList.Columns.Add("Sort") + Me.TableList.Columns.Add("Cnt") + + For Each Dt As DataTable In DSET.Tables + TabName = Dt.TableName + TabDesc = "" + Select Case TabName.ToUpper + 'Case "TBL_BUHA" + 'TabDesc = "부하" + 'Sort = "00" + Case "TBL_BUNBAE" + TabDesc = "냉방분배" + Sort = "00" + 'Case "TBL_COMMON" + 'TabDesc = "공용코드" + 'Sort = "00" + Case "TBL_DESC" + TabDesc = "건물개요" + Sort = "00" + Case "TBL_KONGJO" + TabDesc = "공조" + Sort = "00" + Case "TBL_KONGKUB" + TabDesc = "난방공급" + Sort = "00" + Case "TBL_MYOUN" + TabDesc = "입력면" + Sort = "00" + Case "TBL_NANBANGKIKI" + TabDesc = "난방기기" + Sort = "00" + Case "TBL_NANGBANGKIKI" + TabDesc = "냉방기기" + Sort = "00" + Case "TBL_NBUNBAE" + TabDesc = "난방분배" + Sort = "00" + Case "TBL_NEW" + TabDesc = "신재생및열병합" + Sort = "00" + 'Case "TBL_PROFILE" + ' TabDesc = "프로필" + ' Sort = "00" + Case "TBL_ZONE" + TabDesc = "입력존" + Sort = "00" + Case "TBL_YK" + TabDesc = "열관류율(목록)" + Sort = "00" + Case "TBL_YKDETAIL" + TabDesc = "*열관류율(내역)" + Sort = "00" + 'Case "TBL_WEATHER" + 'TabDesc = "기상데이터(목록)" + 'Sort = "00" + 'Case "WEATHER_CHA" + 'TabDesc = "*기상데이터(차양)" + 'Sort = "00" + 'Case "WEATHER_ILSA" + 'TabDesc = "*기상데이터(일사)" + 'Sort = "00" + 'Case "WEATHER_SUPDO" + 'TabDesc = "*기상데이터(습도)" + 'Sort = "00" + 'Case "WEATHER_ILSA" + 'TabDesc = "*기상데이터(일사)" + 'Sort = "00" + End Select + If TabDesc <> "" Then Me.TableList.Rows.Add(New String() {TabDesc, TabName, Sort}) + + Next + End Sub + + Private Sub Frm_Import_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown + If e.KeyCode = Keys.Escape Then + Me.DialogResult = Windows.Forms.DialogResult.Cancel + End If + End Sub + + Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click + If radi.Checked Then + File_Open() + Me.Button2.Enabled = True + Else + '//내보내기 기능 + File_Save() + Me.Button2.Enabled = True + End If + End Sub + + Private Sub File_Open() + Dim Od As New OpenFileDialog + Od.FileName = "c:\out.txt" + Od.Filter = "탭으로 분리된 텍스트파일(*.txt)|*.txt|Ms Excel(*.xls)|*.xls" + Od.FilterIndex = 0 + If Od.ShowDialog <> Windows.Forms.DialogResult.OK Then Return + Me.tb_file.Text = Od.FileName + Me.IsExcel = IIf(Od.FilterIndex = 1, False, True) + + + '//테이블리스트의 데이터갯수 초기화 + For Each Dr As DataRow In Me.TableList.Rows + Dr("cnt") = 0 + Next + Me.TableList.AcceptChanges() + + '//혹시 연속으로 열경우를 대비해서 초기화한다. + Select Case Od.FilterIndex + Case 1 '//텍스트파일 + Dim Table As String + Dim BUf As String = My.Computer.FileSystem.ReadAllText(Me.tb_file.Text, System.Text.Encoding.Default) + For Each B As String In BUf.Split(CChar(vbCrLf)) + If B.Trim <> "" AndAlso B.Trim.Substring(0, 1) <> "#" Then + Table = B.Split(CChar(vbTab))(0) + + '//해당 테이블 이름을 테이블 리스트에 찾아서 카운터를 누적시킨다. + Dim DR() As DataRow = Me.TableList.Select("name='" & Table.Trim & "'") + If DR.GetUpperBound(0) = 0 Then + Try + DR(0)("cnt") = Val(DR(0)("cnt")) + 1 + Catch ex As Exception + DR(0)("cnt") = 1 + End Try + End If + End If + Next + Case 2 + '//엑셀데이터에서 정보를 얻어와야한다. + Dim xlApp As Excel.Application = New Excel.Application ' CreateObject("Excel.Application") + Dim xlBook As Excel.Workbook = xlApp.Workbooks.Open(Me.tb_file.Text) + Dim xlSheet1 As Excel.Worksheet = xlBook.Worksheets(1) '//첫번째 시트로고정 + + Dim Rng As Excel.Range = xlSheet1.Range("A1") '//Offset으로사용할것이므로 0,0셀을 선택한다 + + '//줄과 열의 갯수를 가져옵니다. + Dim rowCount As String = Rng.Offset(0, 4).Value '//줄수를 입력(나중에 불러올때 가져올범위를 대략 판단) + Dim ColCount As String = Rng.Offset(0, 5).Value + + If rowCount.Trim = "" OrElse rowCount = "0" Then + Dim V As String = InputBox("전체줄의 갯수를 입력하세요", "데이터갯수입력", 1000) + If V = "" Then + MsgBox("불러올 줄수를 확인할 수 없습니다", MsgBoxStyle.Critical, "확인") + Return + End If + If IsNumeric(V) = False Then + MsgBox("숫자만 입력가능합니다", MsgBoxStyle.Critical, "확인") + Return + End If + rowCount = V + End If + If rowCount.Trim = "" OrElse rowCount = "0" Then + ColCount = 60 '//60개를 넘지는 않으므로(아마두?) + End If + + '//범위가 지정되었으므로 데이터를 확인한다. + '//데이터의 시작줄은 항상 5번이다. + Dim Tabname As String = "" + Dim 열 As New ArrayList + Dim z_cnt As Integer = 0 + For r As Integer = 5 To rowCount + Try + Tabname = Rng.Offset(r, 0).Value.ToString.Trim '//0번째열은 항상 테이블 이름이 오도록한다 + Catch ex As Exception + Tabname = "" + End Try + + If Tabname = "" OrElse Tabname.Trim.ToUpper = "TABLE" Then '//이건 테이블을 제목줄이다 + + Else '//테이블이름으로 판단하고 해당 리스트를 찾아서 값을 누적시킴 + '//해당 테이블 이름을 테이블 리스트에 찾아서 카운터를 누적시킨다. + Dim DR() As DataRow = Me.TableList.Select("name='" & Tabname & "'") + If DR.GetUpperBound(0) = 0 Then + Try + DR(0)("cnt") = Val(DR(0)("cnt")) + 1 + Catch ex As Exception + DR(0)("cnt") = 1 + End Try + End If + End If + Next + + '//Dispos Excel Object + xlBook.Close() + xlApp.Application.Quit() + xlApp.Quit() + xlApp = Nothing + xlBook = Nothing + xlSheet1 = Nothing + End Select + + + Me.ListView1.Items.Clear() '//리스트뷰클리어 + Dim lv As ListViewItem + For Each dr As DataRow In Me.TableList.Select("", "sort") '//정렬시켜서 가져옴 + If DSET.Tables(dr("name").ToString).Rows.Count > 0 Then + lv = Me.ListView1.Items.Add(dr("desc").ToString) '//테이블설명 + lv.SubItems.Add(dr("cnt").ToString) '//레코드숫자 + lv.SubItems.Add(dr("name").ToString) '//테이블이름 + End If + Next + + End Sub + Private Sub File_Save() + DSET.AcceptChanges() + DSETR.AcceptChanges() + + Dim sd As New SaveFileDialog + sd.FileName = "c:\out.txt" + sd.Filter = "탭으로 분리된 텍스트파일(*.txt)|*.txt|Ms Excel(*.xls)|*.xls" + sd.FilterIndex = 0 + If sd.ShowDialog <> Windows.Forms.DialogResult.OK Then Return + Me.tb_file.Text = sd.FileName + + Me.IsExcel = IIf(sd.FilterIndex = 1, False, True) + + Me.ListView1.Items.Clear() '//기존의 목록제거 + Dim Lv As ListViewItem + For Each dr As DataRow In Me.TableList.Select("", "sort") '//정렬시켜서 가져옴 + If DSET.Tables(dr("name")).Rows.Count > 0 Then + Lv = Me.ListView1.Items.Add(dr("desc")) '//테이블설명 + Lv.SubItems.Add(DSET.Tables(dr("name")).Rows.Count) '//레코드숫자 + Lv.SubItems.Add(dr("name")) '//테이블이름 + End If + Next + + End Sub + + Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click + If MsgBox("실행하시겠습니까?", MsgBoxStyle.Information Or MsgBoxStyle.OkCancel, "확인") <> MsgBoxResult.Ok Then Return + + If Me.radi.Checked Then + If My.Computer.FileSystem.FileExists(Me.tb_file.Text) = False Then + MsgBox("해당파일이 존재하지않아서 가져올 수 없습니다", MsgBoxStyle.Critical, "확인") + Me.Button2.Enabled = False + Return + End If + If Me.IsExcel Then + InPutXls() + Else + INput() + End If + Else + If Me.IsExcel Then + OutputXLS() + Else + OutPut() + End If + End If + End Sub + + Private Function Get_Listview(ByVal Tabname As String) As ListViewItem + Dim Tname As String + Dim R As ListViewItem = Nothing + For Each Lv As ListViewItem In Me.ListView1.Items + Tname = Lv.SubItems(2).Text + If Tname.ToUpper.Trim = Tabname.ToUpper.Trim Then + R = Lv + Exit For + End If + Next + Return R + End Function + Private Sub InPutXls() + + '//가져오는 영역의 데이터 클리어 + Work_msg("저장영역 데이터확인중...") + For Each Lview As ListViewItem In Me.ListView1.Items + If Lview.Checked And Me.chk_deldata.Checked Then ' '//삭제명령이 잇엇다면 삭제를 한다. + Work_msg("데이터 삭제중(" & Lview.SubItems(2).Text & ")") + If DSET.Tables(Lview.SubItems(2).Text).Columns.IndexOf("code") <> -1 Then '//코드가잇는 개체라면 코드빼고 삭제 + For Each Dr As DataRow In DSET.Tables(Lview.SubItems(2).Text).Select("Code<>'0'") + Dr.Delete() + Next + Else + For Each Dr As DataRow In DSET.Tables(Lview.SubItems(2).Text).Rows + Dr.Delete() + Next + End If + + End If + Next + DSET.AcceptChanges() + + + Dim NullCnt As Int16 = 0 + Dim mytext1 As String = vbNullString + + Dim xlApp As Excel.Application = New Excel.Application ' CreateObject("Excel.Application") + Dim xlBook As Excel.Workbook = xlApp.Workbooks.Open(Me.tb_file.Text) + Dim xlSheet1 As Excel.Worksheet = xlBook.Worksheets(1) '//첫번째 시트로고정 + + Dim Rng As Excel.Range = xlSheet1.Range("A1") '//Offset으로사용할것이므로 0,0셀을 선택한다 + + '//줄과 열의 갯수를 가져옵니다. + Dim rowCount As String = Rng.Offset(0, 4).Value '//줄수를 입력(나중에 불러올때 가져올범위를 대략 판단) + Dim ColCount As String = Rng.Offset(0, 5).Value + + If rowCount.Trim = "" OrElse rowCount = "0" Then + Dim V As String = InputBox("전체줄의 갯수를 입력하세요", "데이터갯수입력", 1000) + If V = "" Then + MsgBox("불러올 줄수를 확인할 수 없습니다", MsgBoxStyle.Critical, "확인") + Return + End If + If IsNumeric(V) = False Then + MsgBox("숫자만 입력가능합니다", MsgBoxStyle.Critical, "확인") + Return + End If + rowCount = V + End If + If rowCount.Trim = "" OrElse rowCount = "0" Then + ColCount = 60 '//60개를 넘지는 않으므로 + End If + + '//범위가 지정되었으므로 데이터를 확인한다. + '//데이터의 시작줄은 항상 5번이다. + Dim Tabname As String = "" + Dim lv As ListViewItem + Dim 열 As New ArrayList + Dim z_cnt As Integer = 0 + For r As Integer = 5 To rowCount + Try + Tabname = Rng.Offset(r, 0).Value.ToString '//0번째열은 항상 테이블 이름이 오도록한다 + Catch ex As Exception + Tabname = "" + End Try + + If Tabname.Trim.ToUpper = "TABLE" Then '//이건 테이블을 제목줄이다 + 열 = New ArrayList '//열제목을 이곳에 모두 넣는다. + For c As Integer = 1 To ColCount + Try + If Rng.Offset(r, c).Value.ToString.Trim <> "" AndAlso Rng.Offset(r, c).Value.ToString.Trim <> "0" Then '//열제목이있다 + 열.Add(Rng.Offset(r, c).Value.ToString.Trim) + End If + Catch ex As Exception + + End Try + + Next + Else + If 열.Count > 0 AndAlso Tabname.Trim <> "" Then '//열제목이 설정되어잇어야 돌아가도록 + lv = Get_Listview(Tabname) + If lv.Checked Then '//가져오기설정과 테이블이름이 잇어야함 + Work_msg("가져오는중(" & Tabname & ")") + Dim Dr As DataRow = DSET.Tables(Tabname).NewRow + Dr("code") = Format(DSET.Tables(Tabname).Rows.Count, "0000") + For c As Integer = 1 To 열.Count + Try + Dr(열.Item(c - 1).ToString) = Rng.Offset(r, c).Value + Catch ex As Exception + Dr(열.Item(c - 1).ToString) = DBNull.Value + End Try + + Next + Try + DSET.Tables(Tabname).Rows.Add(Dr) + DSET.Tables(Tabname).AcceptChanges() + z_cnt += 1 + Catch ex As Exception + + End Try + End If + End If + End If + Next + Work_msg("") + + '//Dispos Excel Object + xlBook.Close() + xlApp.Application.Quit() + xlApp = Nothing + xlBook = Nothing + xlSheet1 = Nothing + + MsgBox("가져오기완료", MsgBoxStyle.Information, "확인") + Me.Close() + + ' Process.Start(Me.tb_file.Text) + 'Shell(Me.tb_file.Text, AppWinStyle.NormalFocus) + End Sub + Private Sub INput() '//텍스트파일 가져오기 + Dim BUf As String = My.Computer.FileSystem.ReadAllText(Me.tb_file.Text, System.Text.Encoding.Default) + Dim Table As String + + + Dim 열 As String = "" + + For Each Lview As ListViewItem In Me.ListView1.Items + If Lview.Checked And Me.chk_deldata.Checked Then ' '//삭제명령이 잇엇다면 삭제를 한다. + If DSET.Tables(0).Columns.IndexOf("code") <> -1 Then '//코드가잇는 개체라면 코드빼고 삭제 + For Each Dr As DataRow In DSET.Tables(Lview.SubItems(2).Text).Select("Code<>'0'") + Dr.Delete() + Next + Else + For Each Dr As DataRow In DSET.Tables(Lview.SubItems(2).Text).Rows + Dr.Delete() + Next + End If + End If + Next + DSET.AcceptChanges() + + Dim Lv As ListViewItem + Dim z_cnt As Integer = 0 + Dim e_cnt As Integer = 0 + For Each B As String In BUf.Split(CChar(vbCrLf)) '//데이터를 실제로 가져온다 + If B.Trim <> "" AndAlso B.Trim.Substring(0, 1) <> "#" Then '//주석데이터도제거 + Table = B.Split(CChar(vbTab))(0).Trim + Select Case Table.ToUpper + Case "TABLE" + 열 = B.Trim + Case Else + '//해당테이블명이 리뷰에 있는지확인하고 그것의 사용체크가되어있는지확인 + Lv = Get_Listview(Table) + If Not Lv Is Nothing Then + If Lv.Checked Then '//사용여부확인 + Dim Dr As DataRow = DSET.Tables(Table).NewRow + Dr("code") = Format(DSET.Tables(Table).Rows.Count, "0000") + For i As Integer = 1 To B.Split(CChar(vbTab)).GetUpperBound(0) + Try + Dr(열.Split(CChar(vbTab))(i)) = B.Split(CChar(vbTab))(i) + Catch ex As Exception + Dr(열.Split(CChar(vbTab))(i)) = DBNull.Value + End Try + Next + Try + DSET.Tables(Table).Rows.Add(Dr) + DSET.Tables(Table).AcceptChanges() + z_cnt += 1 + 'Catch sqlex As SqlClient.SqlException + ' MsgBox(sqlex.ErrorCode) + Catch ex As Exception + ' MsgBox(ex.Message.ToString) + + If ex.Message.ToString.IndexOf("고유 값") <> -1 Then + z_cnt += 1 + Else + e_cnt += 1 + End If + End Try + End If + End If + + End Select + End If + Next + + DSET.AcceptChanges() + ' MsgBox(DSET.tbl_zone.Rows.Count) + + Dim M As New System.Text.StringBuilder + M.AppendLine(z_cnt & "개의 데이터가 추가됨") + M.AppendLine(e_cnt & "개의 오류발생") + MsgBox(M.ToString, MsgBoxStyle.Information, "OK") + End Sub + + + '//텍스트파일 내보내기 + Private Sub OutPut() + + Work_msg("기본정보생성중...") + + Dim Wb As New System.Text.StringBuilder + Wb.AppendLine("#### ECO2 Data ####") + Wb.AppendLine("#### Export Time : " & Format(Now, "yyyy-MM-dd HH:mm:ss") & " ####") + Wb.AppendLine("#### Export by Eco2 ####") + + + Dim Tabname As String = "" + For Each lv As ListViewItem In Me.ListView1.Items + If lv.Checked Then '//체크된것만 내보낸다 + Tabname = lv.SubItems(2).Text + Work_msg("내보내는중(" & Tabname & ")") + + Wb.Append("table") '/////////////////////// + For Each C As System.Data.DataColumn In DSET.Tables(Tabname).Columns + Wb.Append(vbTab & C.ColumnName) + Next + Wb.Append(vbCrLf) + For Each C As DataRow In DSET.Tables(Tabname).Rows + Wb.Append(Tabname) + For i As Integer = 0 To DSET.Tables(Tabname).Columns.Count - 1 + + 'If (Tabname.ToUpper = "TBL_MYOUN") Then + ' If DSET.Tables(Tabname).Columns(i).ColumnName.ToUpper.Trim = "열관류율" Then + ' If CSng(C(i)) = 0 Then '//링크값사용 + ' Dim Dr As DS.tbl_ykRow = DSET.tbl_yk.Select("code='" & C("열관류율2") & "'")(0) + ' Wb.Append(vbTab & Dr("열관류율").ToString) + ' Else '//입력값사용 + ' Wb.Append(vbTab & C(i).ToString) + ' End If + ' Else + ' Wb.Append(vbTab & C(i).ToString) + ' End If + 'Else + ' Wb.Append(vbTab & C(i).ToString) + 'End If + Wb.Append(vbTab & C(i).ToString) + + Next + Wb.Append(vbCrLf) + Next + End If + Next + Work_msg("") + My.Computer.FileSystem.WriteAllText(Me.tb_file.Text, Wb.ToString, False, System.Text.Encoding.Default) + If MsgBox("내보내기 완료" & vbCrLf & "파일을 확인하시겠습니까?", _ + vbInformation Or vbOK, "확인") = MsgBoxResult.Ok Then + Process.Start(Me.tb_file.Text) + End If + Me.Close() + + End Sub + + Private Sub OutputXLS() + + Dim NullCnt As Int16 = 0 + Dim mytext1 As String = vbNullString + + Dim xlApp As Excel.Application = New Excel.Application ' CreateObject("Excel.Application") + xlApp.DisplayAlerts = False + xlApp.Visible = False + xlApp.ReferenceStyle = Excel.XlReferenceStyle.xlA1 + Dim xlBook As Excel.Workbook = xlApp.Workbooks.Add + Dim xlSheet1 As Excel.Worksheet = xlBook.Worksheets.Add + + + Work_msg("데이터수 확인중...") + '//전체데이터갯수를 가지고 배열을 정의한다. + Dim Rcnt As Integer = 0 + Dim Ccnt As Integer = 0 + Dim TabName As String = "" + For Each Lv As ListViewItem In Me.ListView1.Items + If Lv.Checked Then + TabName = Lv.SubItems(2).Text + Rcnt += DSET.Tables(TabName).Rows.Count + If DSET.Tables(TabName).Columns.Count > Ccnt Then Ccnt = DSET.Tables(TabName).Columns.Count + End If + Next + + '//제목줄 5줄을포함 + 'If Ccnt < 5 Then Ccnt = 5 + Work_msg("저장영역할당....") + Dim saRet(Rcnt + 50, 52) As String '//여유잇게 할당 + For i As Integer = 0 To Rcnt + 10 - 1 + For j As Integer = 0 To Ccnt + 5 - 1 + saRet(i, j) = "" + Next + Next + + Dim Rng As Excel.Range = xlSheet1.Range("A1") '//Offset으로사용할것이므로 0,0셀을 선택한다 + + + Work_msg("기본정보를 내보냅니다....") + '//export title (제목내보내기) + 'Rng.Offset(0, 0).Value = "#### ECO2 Data ####" + 'Rng.Offset(1, 0).Value = ("#### Export Time : " & Format(Now, "yyyy-MM-dd HH:mm:ss") & " ####") + 'Rng.Offset(2, 0).Value = ("#### Export by Eco2 ####") + + saRet(0, 0) = "#### ECO2 Data ####" + saRet(1, 0) = ("#### Export Time : " & Format(Now, "yyyy-MM-dd HH:mm:ss") & " ####") + saRet(2, 0) = ("#### Export by Eco2 ####") + + + '//Export SUbTitle(부가적인정보내보내기) + 'Rng.Offset(0, 4).Value = Rcnt + 4 '//줄수를 입력(나중에 불러올때 가져올범위를 대략 판단) + 'Rng.Offset(0, 5).Value = Ccnt - 1 '//열수를 입력 + + saRet(0, 4) = Rcnt + 4 '//줄수를 입력(나중에 불러올때 가져올범위를 대략 판단) + saRet(0, 5) = Ccnt - 1 '//열수를 입력 + + Dim RowIndex As Integer = 5 + Dim ColIndex As Integer = 0 + + For Each Lv As ListViewItem In Me.ListView1.Items + If Lv.Checked Then + TabName = Lv.SubItems(2).Text + Work_msg("내보내는중(" & TabName & ")") + 'Set_ArrayData(Rng, RowIndex, DSET.Tables(TabName)) + Set_ArrayData(saRet, RowIndex, DSET.Tables(TabName)) + End If + Next + + Try + My.Computer.FileSystem.DeleteFile(Me.tb_file.Text) '//대상파일이 존재하면 삭제해버림 + Catch ex As Exception + End Try + + xlSheet1.Range("A1:AZ" & CStr(Rcnt + 10).ToString).Value = saRet + 'xlApp.Visible = True + + xlBook.Saved = True + 'xlSheet1.SaveAs(Me.tb_file.Text) + xlSheet1.SaveAs(Me.tb_file.Text, _ + Excel.XlFileFormat.xlExcel7, _ + Nothing, Nothing, Nothing, Nothing, _ + Nothing, Nothing, Nothing, Nothing) + xlBook.Close() + xlApp.Application.Quit() + xlApp = Nothing + xlBook = Nothing + xlSheet1 = Nothing + + Work_msg("") + If MsgBox("내보내기 완료" & vbCrLf & "파일을 확인하시겠습니까?", _ + vbInformation Or vbOK, "확인") = MsgBoxResult.Ok Then + Process.Start(Me.tb_file.Text) + End If + Me.Close() + + ' Process.Start(Me.tb_file.Text) + 'Shell(Me.tb_file.Text, AppWinStyle.NormalFocus) + End Sub + + Private Sub Set_ArrayData(ByRef Rng As Excel.Range, ByRef RowIndex As Integer, ByVal Dt As DataTable) + RowIndex += 1 + Rng.Offset(RowIndex, 0).Value = "table" '//테이블컬럼명을 내보낸다 + '//Export ColumnData + For i As Integer = 0 To Dt.Columns.Count - 1 + Rng.Offset(RowIndex, i + 1).Value2 = Dt.Columns(i).ColumnName.ToString + Next + '//Export RowData + For Each C As DataRow In Dt.Rows + RowIndex += 1 ': ReDim Preserve saRet(RowIndex, 255) + Rng.Offset(RowIndex, 0).Value = Dt.TableName + For i As Integer = 0 To Dt.Columns.Count - 1 + Rng.Offset(RowIndex, i + 1).Value2 = C(i).ToString + Next + Next + End Sub + Private Sub Set_ArrayData(ByRef Rng(,) As String, ByRef RowIndex As Integer, ByVal Dt As DataTable) + RowIndex += 1 + Rng(RowIndex, 0) = "table" '//테이블컬럼명을 내보낸다 + '//Export ColumnData + For i As Integer = 0 To Dt.Columns.Count - 1 + Rng(RowIndex, i + 1) = Dt.Columns(i).ColumnName.ToString + Next + '//Export RowData + For Each C As DataRow In Dt.Rows + RowIndex += 1 ': ReDim Preserve saRet(RowIndex, 255) + Rng(RowIndex, 0) = Dt.TableName + For i As Integer = 0 To Dt.Columns.Count - 1 + Rng(RowIndex, i + 1) = C(i).ToString + Next + Next + End Sub + + + Private Sub Label3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) + '//d요부분만 추가됫어요 + Me.Close() + End Sub + + Private Sub Panel1_Paint(ByVal sender As System.Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles Panel1.Paint + Dim a As Graphics = e.Graphics + Dim b As New Drawing2D.LinearGradientBrush(New Rectangle(0, 0, Me.Width, 500), Color.WhiteSmoke, _ + Color.DarkGray, Drawing2D.LinearGradientMode.Vertical) + a.FillRectangle(b, 0, 0, Me.Width, Me.Height) + 'a.FillRectangle(b, Me.Width, 0, Me.Width, 30) + b.Dispose() + a.Dispose() + End Sub + + + Private Sub PictureBox1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox1.Click + Dim xlApp As Excel.Application + Dim xlBook As Excel.Workbook + Dim xlSheet1 As Excel.Worksheet + + + xlApp = New Excel.Application ' CreateObject("Excel.Application") + xlBook = xlApp.Workbooks.Open("c:\out.xls") + xlSheet1 = xlBook.Worksheets(1) '//첫번째 시트로고정 + + Dim Rng As Excel.Range = xlSheet1.Range("A1") '//Offset으로사용할것이므로 0,0셀을 선택한다 + xlApp.Visible = True + MsgBox("가져오기완료", MsgBoxStyle.Information, "확인") + + '//Dispos Excel Object + 'xlBook.displayalerts = False + xlBook.Saved = True + xlBook.Close() + xlApp.Application.Quit() + xlApp = Nothing + xlBook = Nothing + xlSheet1 = Nothing + + + Me.Close() + + ' Process.Start(M + End Sub +End Class \ No newline at end of file diff --git a/ArinWarev1/Forms/v20091231/Frm_Bunbae.Designer.vb b/ArinWarev1/Forms/v20091231/Frm_Bunbae.Designer.vb new file mode 100644 index 0000000..0b7130b --- /dev/null +++ b/ArinWarev1/Forms/v20091231/Frm_Bunbae.Designer.vb @@ -0,0 +1,1009 @@ + _ +Partial Class Frm_Bunbae + Inherits CForm + + 'Form은 Dispose를 재정의하여 구성 요소 목록을 정리합니다. + _ + Protected Overrides Sub Dispose(ByVal disposing As Boolean) + Try + If disposing AndAlso components IsNot Nothing Then + components.Dispose() + End If + Finally + MyBase.Dispose(disposing) + End Try + End Sub + + 'Windows Form 디자이너에 필요합니다. + Private components As System.ComponentModel.IContainer + + '참고: 다음 프로시저는 Windows Form 디자이너에 필요합니다. + '수정하려면 Windows Form 디자이너를 사용하십시오. + '코드 편집기를 사용하여 수정하지 마십시오. + _ + Private Sub InitializeComponent() + Me.components = New System.ComponentModel.Container() + Dim Label1 As System.Windows.Forms.Label + Dim Label2 As System.Windows.Forms.Label + Dim Label3 As System.Windows.Forms.Label + Dim Label4 As System.Windows.Forms.Label + Dim Label19 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 Label25 As System.Windows.Forms.Label + Dim Label26 As System.Windows.Forms.Label + Dim Label27 As System.Windows.Forms.Label + Dim Label28 As System.Windows.Forms.Label + Dim Label29 As System.Windows.Forms.Label + Dim Label30 As System.Windows.Forms.Label + Dim Label31 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 Label18 As System.Windows.Forms.Label + Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(Frm_Bunbae)) + Me.bs = New System.Windows.Forms.BindingSource(Me.components) + Me.DS = New Eco2Ar.DS() + Me.GroupBox2 = New System.Windows.Forms.GroupBox() + Me.설정점에서의온도차NTb = New Eco2Ar.MyTb() + Me.Label6 = New System.Windows.Forms.Label() + Me.제어밸브압력손실NTb = New Eco2Ar.MyTb() + Me.펌프동력NTb1 = New Eco2Ar.MyTb() + Me.사용기기압력손실NTb = New Eco2Ar.MyTb() + Me.개별저항비율NTb = New Eco2Ar.MyTb() + Me.생산기기압력손실NTb = New Eco2Ar.MyTb() + Me.배관의압력손실NTb = New Eco2Ar.MyTb() + Me.공급범위의길이NTb = New Eco2Ar.MyTb() + Me.공급범위의넓이NTb = New Eco2Ar.MyTb() + Me.층고NTb1 = New Eco2Ar.MyTb() + Me.펌프운전제어유무ComboBox = New Eco2Ar.MyCmb() + Me.열층의수NTb = New Eco2Ar.MyTb() + Me.급수온도NTb = New Eco2Ar.MyTb() + Me.환수온도NTb = New Eco2Ar.MyTb() + Me.PictureBox3 = New System.Windows.Forms.PictureBox() + Me.GroupBox3 = New System.Windows.Forms.GroupBox() + Me.Label7 = New System.Windows.Forms.Label() + Me.냉매의점도NTb = New Eco2Ar.MyTb() + Me.냉매방식ComboBox = New Eco2Ar.MyCmb() + Me.냉매의밀도NTb = New Eco2Ar.MyTb() + Me.냉매의비열NTb = New Eco2Ar.MyTb() + Me.PictureBox2 = New System.Windows.Forms.PictureBox() + Me.SplitContainer1 = New System.Windows.Forms.SplitContainer() + Me.dv = New CEnergy.arindv() + Me.DataGridViewTextBoxColumn1 = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.lb_grpname = New System.Windows.Forms.Label() + 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() + Me.bt_Del = New System.Windows.Forms.ToolStripButton() + Me.bt_cancel = New System.Windows.Forms.ToolStripButton() + Me.ToolStripSeparator1 = New System.Windows.Forms.ToolStripSeparator() + Me.lbl_pos = New System.Windows.Forms.ToolStripLabel() + Me.cmb_그룹_분배 = New Eco2Ar.MyCmb() + Me.Label9 = New System.Windows.Forms.Label() + Me.Label8 = New System.Windows.Forms.Label() + Me.PictureBox5 = New System.Windows.Forms.PictureBox() + Me.Label15 = New System.Windows.Forms.Label() + Me.PictureBox4 = New System.Windows.Forms.PictureBox() + Me.GroupBox4 = New System.Windows.Forms.GroupBox() + Me.GroupBox1 = New System.Windows.Forms.GroupBox() + Me.Label20 = New System.Windows.Forms.Label() + Me.Label21 = New System.Windows.Forms.Label() + Me.냉동기ComboBox = New Eco2Ar.MyCmb() + Me.PictureBox1 = New System.Windows.Forms.PictureBox() + Label1 = New System.Windows.Forms.Label() + Label2 = New System.Windows.Forms.Label() + Label3 = New System.Windows.Forms.Label() + Label4 = New System.Windows.Forms.Label() + Label19 = New System.Windows.Forms.Label() + Label22 = New System.Windows.Forms.Label() + Label23 = New System.Windows.Forms.Label() + Label24 = New System.Windows.Forms.Label() + Label25 = New System.Windows.Forms.Label() + Label26 = New System.Windows.Forms.Label() + Label27 = New System.Windows.Forms.Label() + Label28 = New System.Windows.Forms.Label() + Label29 = New System.Windows.Forms.Label() + Label30 = New System.Windows.Forms.Label() + Label31 = New System.Windows.Forms.Label() + Label32 = New System.Windows.Forms.Label() + Label33 = New System.Windows.Forms.Label() + Label34 = New System.Windows.Forms.Label() + Label18 = New System.Windows.Forms.Label() + CType(Me.bs, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.DS, System.ComponentModel.ISupportInitialize).BeginInit() + Me.GroupBox2.SuspendLayout() + CType(Me.PictureBox3, System.ComponentModel.ISupportInitialize).BeginInit() + Me.GroupBox3.SuspendLayout() + CType(Me.PictureBox2, System.ComponentModel.ISupportInitialize).BeginInit() + Me.SplitContainer1.Panel1.SuspendLayout() + Me.SplitContainer1.Panel2.SuspendLayout() + Me.SplitContainer1.SuspendLayout() + CType(Me.dv, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.bn, System.ComponentModel.ISupportInitialize).BeginInit() + Me.bn.SuspendLayout() + CType(Me.PictureBox5, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.PictureBox4, System.ComponentModel.ISupportInitialize).BeginInit() + Me.GroupBox4.SuspendLayout() + Me.GroupBox1.SuspendLayout() + CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit() + Me.SuspendLayout() + ' + 'Label1 + ' + Label1.AutoSize = True + Label1.BackColor = System.Drawing.Color.FromArgb(CType(CType(243, Byte), Integer), CType(CType(244, Byte), Integer), CType(CType(246, Byte), Integer)) + Label1.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label1.Location = New System.Drawing.Point(22, 42) + Label1.Name = "Label1" + Label1.Size = New System.Drawing.Size(80, 14) + Label1.TabIndex = 149 + Label1.Text = "1.사용된 방식:" + ' + 'Label2 + ' + Label2.AutoSize = True + Label2.BackColor = System.Drawing.Color.FromArgb(CType(CType(243, Byte), Integer), CType(CType(244, Byte), Integer), CType(CType(246, Byte), Integer)) + Label2.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label2.Location = New System.Drawing.Point(285, 42) + Label2.Name = "Label2" + Label2.Size = New System.Drawing.Size(71, 14) + Label2.TabIndex = 150 + Label2.Text = "2. 비 열:" + ' + 'Label3 + ' + Label3.AutoSize = True + Label3.BackColor = System.Drawing.Color.FromArgb(CType(CType(243, Byte), Integer), CType(CType(244, Byte), Integer), CType(CType(246, Byte), Integer)) + Label3.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label3.Location = New System.Drawing.Point(22, 71) + Label3.Name = "Label3" + Label3.Size = New System.Drawing.Size(71, 14) + Label3.TabIndex = 151 + Label3.Text = "3. 밀 도:" + ' + 'Label4 + ' + Label4.AutoSize = True + Label4.BackColor = System.Drawing.Color.FromArgb(CType(CType(243, Byte), Integer), CType(CType(244, Byte), Integer), CType(CType(246, Byte), Integer)) + Label4.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label4.Location = New System.Drawing.Point(285, 71) + Label4.Name = "Label4" + Label4.Size = New System.Drawing.Size(71, 14) + Label4.TabIndex = 152 + Label4.Text = "4. 점 도:" + ' + 'Label19 + ' + Label19.AutoSize = True + Label19.BackColor = System.Drawing.Color.FromArgb(CType(CType(219, Byte), Integer), CType(CType(221, Byte), Integer), CType(CType(223, Byte), Integer)) + Label19.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label19.Location = New System.Drawing.Point(22, 45) + Label19.Name = "Label19" + Label19.Size = New System.Drawing.Size(127, 14) + Label19.TabIndex = 132 + Label19.Text = "1.펌프운전의 제어 유무:" + ' + 'Label22 + ' + Label22.AutoSize = True + Label22.BackColor = System.Drawing.Color.FromArgb(CType(CType(219, Byte), Integer), CType(CType(221, Byte), Integer), CType(CType(223, Byte), Integer)) + Label22.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label22.Location = New System.Drawing.Point(277, 206) + Label22.Name = "Label22" + Label22.Size = New System.Drawing.Size(148, 14) + Label22.TabIndex = 145 + Label22.Text = "14.제어밸브 압력손실[kPa]:" + ' + 'Label23 + ' + Label23.AutoSize = True + Label23.BackColor = System.Drawing.Color.FromArgb(CType(CType(219, Byte), Integer), CType(CType(221, Byte), Integer), CType(CType(223, Byte), Integer)) + Label23.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label23.Location = New System.Drawing.Point(22, 72) + Label23.Name = "Label23" + Label23.Size = New System.Drawing.Size(91, 14) + Label23.TabIndex = 133 + Label23.Text = "2.급 수 온 도[C]:" + ' + 'Label24 + ' + Label24.AutoSize = True + Label24.BackColor = System.Drawing.Color.FromArgb(CType(CType(219, Byte), Integer), CType(CType(221, Byte), Integer), CType(CType(223, Byte), Integer)) + Label24.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label24.Location = New System.Drawing.Point(277, 178) + Label24.Name = "Label24" + Label24.Size = New System.Drawing.Size(148, 14) + Label24.TabIndex = 144 + Label24.Text = "13.사용기기 압력손실[kPa]:" + ' + 'Label25 + ' + Label25.AutoSize = True + Label25.BackColor = System.Drawing.Color.FromArgb(CType(CType(219, Byte), Integer), CType(CType(221, Byte), Integer), CType(CType(223, Byte), Integer)) + Label25.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label25.Location = New System.Drawing.Point(22, 98) + Label25.Name = "Label25" + Label25.Size = New System.Drawing.Size(91, 14) + Label25.TabIndex = 134 + Label25.Text = "3.환 수 온 도[C]:" + ' + 'Label26 + ' + Label26.AutoSize = True + Label26.BackColor = System.Drawing.Color.FromArgb(CType(CType(219, Byte), Integer), CType(CType(221, Byte), Integer), CType(CType(223, Byte), Integer)) + Label26.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label26.Location = New System.Drawing.Point(276, 150) + Label26.Name = "Label26" + Label26.Size = New System.Drawing.Size(148, 14) + Label26.TabIndex = 143 + Label26.Text = "12.생산기기 압력손실[kPa]:" + ' + 'Label27 + ' + Label27.AutoSize = True + Label27.BackColor = System.Drawing.Color.FromArgb(CType(CType(219, Byte), Integer), CType(CType(221, Byte), Integer), CType(CType(223, Byte), Integer)) + Label27.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label27.Location = New System.Drawing.Point(22, 124) + Label27.Name = "Label27" + Label27.Size = New System.Drawing.Size(124, 14) + Label27.TabIndex = 135 + Label27.Text = "4.설정점에서의 온도차:" + ' + 'Label28 + ' + Label28.AutoSize = True + Label28.BackColor = System.Drawing.Color.FromArgb(CType(CType(219, Byte), Integer), CType(CType(221, Byte), Integer), CType(CType(223, Byte), Integer)) + Label28.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label28.Location = New System.Drawing.Point(278, 124) + Label28.Name = "Label28" + Label28.Size = New System.Drawing.Size(124, 14) + Label28.TabIndex = 142 + Label28.Text = "11.층 고[m]:" + ' + 'Label29 + ' + Label29.AutoSize = True + Label29.BackColor = System.Drawing.Color.FromArgb(CType(CType(219, Byte), Integer), CType(CType(221, Byte), Integer), CType(CType(223, Byte), Integer)) + Label29.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label29.Location = New System.Drawing.Point(276, 99) + Label29.Name = "Label29" + Label29.Size = New System.Drawing.Size(137, 14) + Label29.TabIndex = 141 + Label29.Text = "10.열을 공급하는 층의 수:" + ' + 'Label30 + ' + Label30.AutoSize = True + Label30.BackColor = System.Drawing.Color.FromArgb(CType(CType(219, Byte), Integer), CType(CType(221, Byte), Integer), CType(CType(223, Byte), Integer)) + Label30.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label30.Location = New System.Drawing.Point(285, 72) + Label30.Name = "Label30" + Label30.Size = New System.Drawing.Size(121, 14) + Label30.TabIndex = 140 + Label30.Text = "9.공급범위의 너비[m]:" + ' + 'Label31 + ' + Label31.AutoSize = True + Label31.BackColor = System.Drawing.Color.FromArgb(CType(CType(219, Byte), Integer), CType(CType(221, Byte), Integer), CType(CType(223, Byte), Integer)) + Label31.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label31.Location = New System.Drawing.Point(285, 45) + Label31.Name = "Label31" + Label31.Size = New System.Drawing.Size(121, 14) + Label31.TabIndex = 139 + Label31.Text = "8.공급범위의 길이[m]:" + ' + 'Label32 + ' + Label32.AutoSize = True + Label32.BackColor = System.Drawing.Color.FromArgb(CType(CType(219, Byte), Integer), CType(CType(221, Byte), Integer), CType(CType(223, Byte), Integer)) + Label32.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label32.Location = New System.Drawing.Point(22, 206) + Label32.Name = "Label32" + Label32.Size = New System.Drawing.Size(95, 14) + Label32.TabIndex = 138 + Label32.Text = "7.펌 프 동 력[W]:" + ' + 'Label33 + ' + Label33.AutoSize = True + Label33.BackColor = System.Drawing.Color.FromArgb(CType(CType(219, Byte), Integer), CType(CType(221, Byte), Integer), CType(CType(223, Byte), Integer)) + Label33.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label33.Location = New System.Drawing.Point(22, 178) + Label33.Name = "Label33" + Label33.Size = New System.Drawing.Size(103, 14) + Label33.TabIndex = 137 + Label33.Text = "6.개별저항 비율[-]:" + ' + 'Label34 + ' + Label34.AutoSize = True + Label34.BackColor = System.Drawing.Color.FromArgb(CType(CType(219, Byte), Integer), CType(CType(221, Byte), Integer), CType(CType(223, Byte), Integer)) + Label34.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label34.Location = New System.Drawing.Point(22, 150) + Label34.Name = "Label34" + Label34.Size = New System.Drawing.Size(146, 14) + Label34.TabIndex = 136 + Label34.Text = "5.배관의 압력손실[kPa/m]:" + ' + 'Label18 + ' + Label18.AutoSize = True + Label18.BackColor = System.Drawing.Color.White + Label18.ForeColor = System.Drawing.SystemColors.HotTrack + Label18.Location = New System.Drawing.Point(357, 18) + Label18.Name = "Label18" + Label18.Size = New System.Drawing.Size(36, 14) + Label18.TabIndex = 155 + Label18.Text = "그룹 :" + ' + 'bs + ' + Me.bs.DataMember = "tbl_bunbae" + Me.bs.DataSource = Me.DS + Me.bs.Filter = "code <> '0'" + ' + 'DS + ' + Me.DS.DataSetName = "DS" + Me.DS.SchemaSerializationMode = System.Data.SchemaSerializationMode.IncludeSchema + ' + 'GroupBox2 + ' + Me.GroupBox2.Controls.Add(Me.설정점에서의온도차NTb) + Me.GroupBox2.Controls.Add(Me.Label6) + Me.GroupBox2.Controls.Add(Label19) + Me.GroupBox2.Controls.Add(Label22) + Me.GroupBox2.Controls.Add(Label23) + Me.GroupBox2.Controls.Add(Label24) + Me.GroupBox2.Controls.Add(Label25) + Me.GroupBox2.Controls.Add(Label26) + Me.GroupBox2.Controls.Add(Label27) + Me.GroupBox2.Controls.Add(Label28) + Me.GroupBox2.Controls.Add(Label29) + Me.GroupBox2.Controls.Add(Label30) + Me.GroupBox2.Controls.Add(Label31) + Me.GroupBox2.Controls.Add(Label32) + Me.GroupBox2.Controls.Add(Label33) + Me.GroupBox2.Controls.Add(Label34) + Me.GroupBox2.Controls.Add(Me.제어밸브압력손실NTb) + Me.GroupBox2.Controls.Add(Me.펌프동력NTb1) + Me.GroupBox2.Controls.Add(Me.사용기기압력손실NTb) + Me.GroupBox2.Controls.Add(Me.개별저항비율NTb) + Me.GroupBox2.Controls.Add(Me.생산기기압력손실NTb) + Me.GroupBox2.Controls.Add(Me.배관의압력손실NTb) + Me.GroupBox2.Controls.Add(Me.공급범위의길이NTb) + Me.GroupBox2.Controls.Add(Me.공급범위의넓이NTb) + Me.GroupBox2.Controls.Add(Me.층고NTb1) + Me.GroupBox2.Controls.Add(Me.펌프운전제어유무ComboBox) + Me.GroupBox2.Controls.Add(Me.열층의수NTb) + Me.GroupBox2.Controls.Add(Me.급수온도NTb) + Me.GroupBox2.Controls.Add(Me.환수온도NTb) + Me.GroupBox2.Controls.Add(Me.PictureBox3) + Me.GroupBox2.Location = New System.Drawing.Point(10, 123) + Me.GroupBox2.Name = "GroupBox2" + Me.GroupBox2.Size = New System.Drawing.Size(524, 238) + Me.GroupBox2.TabIndex = 143 + Me.GroupBox2.TabStop = False + ' + '설정점에서의온도차NTb + ' + Me.설정점에서의온도차NTb.BackColor = System.Drawing.Color.DarkGray + Me.설정점에서의온도차NTb.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bs, "설정점에서의온도차", True)) + Me.설정점에서의온도차NTb.Location = New System.Drawing.Point(175, 117) + Me.설정점에서의온도차NTb.Name = "설정점에서의온도차NTb" + Me.설정점에서의온도차NTb.NectControl = Nothing + Me.설정점에서의온도차NTb.Size = New System.Drawing.Size(87, 21) + Me.설정점에서의온도차NTb.TabIndex = 8 + Me.설정점에서의온도차NTb.TabStop = False + Me.설정점에서의온도차NTb.TextAlign = System.Windows.Forms.HorizontalAlignment.Right + Me.설정점에서의온도차NTb.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + ' + 'Label6 + ' + Me.Label6.AutoSize = True + Me.Label6.BackColor = System.Drawing.Color.FromArgb(CType(CType(219, Byte), Integer), CType(CType(221, Byte), Integer), CType(CType(223, Byte), Integer)) + Me.Label6.Location = New System.Drawing.Point(10, 17) + Me.Label6.Name = "Label6" + Me.Label6.Size = New System.Drawing.Size(59, 14) + Me.Label6.TabIndex = 153 + Me.Label6.Text = "[기타정보]" + ' + '제어밸브압력손실NTb + ' + Me.제어밸브압력손실NTb.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bs, "제어밸브압력손실", True)) + Me.제어밸브압력손실NTb.Location = New System.Drawing.Point(431, 206) + Me.제어밸브압력손실NTb.Name = "제어밸브압력손실NTb" + Me.제어밸브압력손실NTb.NectControl = Nothing + Me.제어밸브압력손실NTb.Size = New System.Drawing.Size(75, 21) + Me.제어밸브압력손실NTb.TabIndex = 18 + Me.제어밸브압력손실NTb.TextAlign = System.Windows.Forms.HorizontalAlignment.Right + Me.제어밸브압력손실NTb.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + ' + '펌프동력NTb1 + ' + Me.펌프동력NTb1.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bs, "펌프동력", True)) + Me.펌프동력NTb1.Location = New System.Drawing.Point(175, 204) + Me.펌프동력NTb1.Name = "펌프동력NTb1" + Me.펌프동력NTb1.NectControl = Nothing + Me.펌프동력NTb1.Size = New System.Drawing.Size(87, 21) + Me.펌프동력NTb1.TabIndex = 11 + Me.펌프동력NTb1.TextAlign = System.Windows.Forms.HorizontalAlignment.Right + Me.펌프동력NTb1.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + ' + '사용기기압력손실NTb + ' + Me.사용기기압력손실NTb.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bs, "사용기기압력손실", True)) + Me.사용기기압력손실NTb.Location = New System.Drawing.Point(431, 178) + Me.사용기기압력손실NTb.Name = "사용기기압력손실NTb" + Me.사용기기압력손실NTb.NectControl = Nothing + Me.사용기기압력손실NTb.Size = New System.Drawing.Size(75, 21) + Me.사용기기압력손실NTb.TabIndex = 17 + Me.사용기기압력손실NTb.TextAlign = System.Windows.Forms.HorizontalAlignment.Right + Me.사용기기압력손실NTb.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + ' + '개별저항비율NTb + ' + Me.개별저항비율NTb.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bs, "개별저항비율", True)) + Me.개별저항비율NTb.Location = New System.Drawing.Point(175, 176) + Me.개별저항비율NTb.Name = "개별저항비율NTb" + Me.개별저항비율NTb.NectControl = Nothing + Me.개별저항비율NTb.Size = New System.Drawing.Size(87, 21) + Me.개별저항비율NTb.TabIndex = 10 + Me.개별저항비율NTb.TextAlign = System.Windows.Forms.HorizontalAlignment.Right + Me.개별저항비율NTb.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + ' + '생산기기압력손실NTb + ' + Me.생산기기압력손실NTb.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bs, "생산기기압력손실", True)) + Me.생산기기압력손실NTb.Location = New System.Drawing.Point(431, 150) + Me.생산기기압력손실NTb.Name = "생산기기압력손실NTb" + Me.생산기기압력손실NTb.NectControl = Nothing + Me.생산기기압력손실NTb.Size = New System.Drawing.Size(75, 21) + Me.생산기기압력손실NTb.TabIndex = 16 + Me.생산기기압력손실NTb.TextAlign = System.Windows.Forms.HorizontalAlignment.Right + Me.생산기기압력손실NTb.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + ' + '배관의압력손실NTb + ' + Me.배관의압력손실NTb.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bs, "배관의압력손실", True)) + Me.배관의압력손실NTb.Location = New System.Drawing.Point(175, 148) + Me.배관의압력손실NTb.Name = "배관의압력손실NTb" + Me.배관의압력손실NTb.NectControl = Nothing + Me.배관의압력손실NTb.Size = New System.Drawing.Size(87, 21) + Me.배관의압력손실NTb.TabIndex = 9 + Me.배관의압력손실NTb.TextAlign = System.Windows.Forms.HorizontalAlignment.Right + Me.배관의압력손실NTb.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + ' + '공급범위의길이NTb + ' + Me.공급범위의길이NTb.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bs, "공급범위의길이", True)) + Me.공급범위의길이NTb.Location = New System.Drawing.Point(431, 38) + Me.공급범위의길이NTb.Name = "공급범위의길이NTb" + Me.공급범위의길이NTb.NectControl = Nothing + Me.공급범위의길이NTb.Size = New System.Drawing.Size(75, 21) + Me.공급범위의길이NTb.TabIndex = 12 + Me.공급범위의길이NTb.TextAlign = System.Windows.Forms.HorizontalAlignment.Right + Me.공급범위의길이NTb.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + ' + '공급범위의넓이NTb + ' + Me.공급범위의넓이NTb.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bs, "공급범위의넓이", True)) + Me.공급범위의넓이NTb.Location = New System.Drawing.Point(431, 66) + Me.공급범위의넓이NTb.Name = "공급범위의넓이NTb" + Me.공급범위의넓이NTb.NectControl = Nothing + Me.공급범위의넓이NTb.Size = New System.Drawing.Size(75, 21) + Me.공급범위의넓이NTb.TabIndex = 13 + Me.공급범위의넓이NTb.TextAlign = System.Windows.Forms.HorizontalAlignment.Right + Me.공급범위의넓이NTb.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + ' + '층고NTb1 + ' + Me.층고NTb1.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bs, "층고", True)) + Me.층고NTb1.Location = New System.Drawing.Point(431, 122) + Me.층고NTb1.Name = "층고NTb1" + Me.층고NTb1.NectControl = Nothing + Me.층고NTb1.Size = New System.Drawing.Size(75, 21) + Me.층고NTb1.TabIndex = 15 + Me.층고NTb1.TextAlign = System.Windows.Forms.HorizontalAlignment.Right + Me.층고NTb1.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + ' + '펌프운전제어유무ComboBox + ' + Me.펌프운전제어유무ComboBox.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList + Me.펌프운전제어유무ComboBox.FormattingEnabled = True + Me.펌프운전제어유무ComboBox.Location = New System.Drawing.Point(175, 38) + Me.펌프운전제어유무ComboBox.Name = "펌프운전제어유무ComboBox" + Me.펌프운전제어유무ComboBox.NectControl = Nothing + Me.펌프운전제어유무ComboBox.Size = New System.Drawing.Size(87, 22) + Me.펌프운전제어유무ComboBox.TabIndex = 5 + ' + '열층의수NTb + ' + Me.열층의수NTb.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bs, "열층의수", True)) + Me.열층의수NTb.Location = New System.Drawing.Point(431, 94) + Me.열층의수NTb.Name = "열층의수NTb" + Me.열층의수NTb.NectControl = Nothing + Me.열층의수NTb.Size = New System.Drawing.Size(75, 21) + Me.열층의수NTb.TabIndex = 14 + Me.열층의수NTb.TextAlign = System.Windows.Forms.HorizontalAlignment.Right + Me.열층의수NTb.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + ' + '급수온도NTb + ' + Me.급수온도NTb.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bs, "급수온도", True)) + Me.급수온도NTb.Location = New System.Drawing.Point(175, 66) + Me.급수온도NTb.Name = "급수온도NTb" + Me.급수온도NTb.NectControl = Nothing + Me.급수온도NTb.Size = New System.Drawing.Size(87, 21) + Me.급수온도NTb.TabIndex = 6 + Me.급수온도NTb.TextAlign = System.Windows.Forms.HorizontalAlignment.Right + Me.급수온도NTb.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + ' + '환수온도NTb + ' + Me.환수온도NTb.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bs, "환수온도", True)) + Me.환수온도NTb.Location = New System.Drawing.Point(175, 92) + Me.환수온도NTb.Name = "환수온도NTb" + Me.환수온도NTb.NectControl = Nothing + Me.환수온도NTb.Size = New System.Drawing.Size(87, 21) + Me.환수온도NTb.TabIndex = 7 + Me.환수온도NTb.TextAlign = System.Windows.Forms.HorizontalAlignment.Right + Me.환수온도NTb.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + ' + 'PictureBox3 + ' + Me.PictureBox3.BackColor = System.Drawing.Color.FromArgb(CType(CType(219, Byte), Integer), CType(CType(221, Byte), Integer), CType(CType(223, Byte), Integer)) + Me.PictureBox3.Location = New System.Drawing.Point(2, 10) + Me.PictureBox3.Name = "PictureBox3" + Me.PictureBox3.Size = New System.Drawing.Size(519, 224) + Me.PictureBox3.TabIndex = 124 + Me.PictureBox3.TabStop = False + ' + 'GroupBox3 + ' + Me.GroupBox3.Controls.Add(Me.Label7) + Me.GroupBox3.Controls.Add(Label1) + Me.GroupBox3.Controls.Add(Label2) + Me.GroupBox3.Controls.Add(Me.냉매의점도NTb) + Me.GroupBox3.Controls.Add(Label3) + Me.GroupBox3.Controls.Add(Me.냉매방식ComboBox) + Me.GroupBox3.Controls.Add(Label4) + Me.GroupBox3.Controls.Add(Me.냉매의밀도NTb) + Me.GroupBox3.Controls.Add(Me.냉매의비열NTb) + Me.GroupBox3.Controls.Add(Me.PictureBox2) + Me.GroupBox3.Location = New System.Drawing.Point(10, 20) + Me.GroupBox3.Name = "GroupBox3" + Me.GroupBox3.Size = New System.Drawing.Size(524, 97) + Me.GroupBox3.TabIndex = 143 + Me.GroupBox3.TabStop = False + ' + 'Label7 + ' + Me.Label7.AutoSize = True + Me.Label7.BackColor = System.Drawing.Color.FromArgb(CType(CType(243, Byte), Integer), CType(CType(244, Byte), Integer), CType(CType(246, Byte), Integer)) + Me.Label7.Location = New System.Drawing.Point(6, 17) + Me.Label7.Name = "Label7" + Me.Label7.Size = New System.Drawing.Size(59, 14) + Me.Label7.TabIndex = 153 + Me.Label7.Text = "[냉매설정]" + ' + '냉매의점도NTb + ' + Me.냉매의점도NTb.BackColor = System.Drawing.Color.FromArgb(CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer)) + Me.냉매의점도NTb.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bs, "냉매의점도", True)) + Me.냉매의점도NTb.Enabled = False + Me.냉매의점도NTb.Location = New System.Drawing.Point(421, 67) + Me.냉매의점도NTb.Name = "냉매의점도NTb" + Me.냉매의점도NTb.NectControl = Nothing + Me.냉매의점도NTb.Size = New System.Drawing.Size(85, 21) + Me.냉매의점도NTb.TabIndex = 4 + Me.냉매의점도NTb.TextAlign = System.Windows.Forms.HorizontalAlignment.Right + Me.냉매의점도NTb.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + ' + '냉매방식ComboBox + ' + Me.냉매방식ComboBox.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList + Me.냉매방식ComboBox.FormattingEnabled = True + Me.냉매방식ComboBox.Location = New System.Drawing.Point(175, 37) + Me.냉매방식ComboBox.Name = "냉매방식ComboBox" + Me.냉매방식ComboBox.NectControl = Nothing + Me.냉매방식ComboBox.Size = New System.Drawing.Size(85, 22) + Me.냉매방식ComboBox.TabIndex = 1 + ' + '냉매의밀도NTb + ' + Me.냉매의밀도NTb.BackColor = System.Drawing.Color.FromArgb(CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer)) + Me.냉매의밀도NTb.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bs, "냉매의밀도", True)) + Me.냉매의밀도NTb.Enabled = False + Me.냉매의밀도NTb.Location = New System.Drawing.Point(175, 67) + Me.냉매의밀도NTb.Name = "냉매의밀도NTb" + Me.냉매의밀도NTb.NectControl = Nothing + Me.냉매의밀도NTb.Size = New System.Drawing.Size(85, 21) + Me.냉매의밀도NTb.TabIndex = 3 + Me.냉매의밀도NTb.TextAlign = System.Windows.Forms.HorizontalAlignment.Right + Me.냉매의밀도NTb.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + ' + '냉매의비열NTb + ' + Me.냉매의비열NTb.BackColor = System.Drawing.Color.FromArgb(CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer)) + Me.냉매의비열NTb.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bs, "냉매의비열", True)) + Me.냉매의비열NTb.Enabled = False + Me.냉매의비열NTb.Location = New System.Drawing.Point(421, 40) + Me.냉매의비열NTb.Name = "냉매의비열NTb" + Me.냉매의비열NTb.NectControl = Nothing + Me.냉매의비열NTb.Size = New System.Drawing.Size(85, 21) + Me.냉매의비열NTb.TabIndex = 2 + Me.냉매의비열NTb.TextAlign = System.Windows.Forms.HorizontalAlignment.Right + Me.냉매의비열NTb.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + ' + 'PictureBox2 + ' + Me.PictureBox2.BackColor = System.Drawing.Color.FromArgb(CType(CType(243, Byte), Integer), CType(CType(244, Byte), Integer), CType(CType(246, Byte), Integer)) + Me.PictureBox2.Location = New System.Drawing.Point(2, 10) + Me.PictureBox2.Name = "PictureBox2" + Me.PictureBox2.Size = New System.Drawing.Size(519, 83) + Me.PictureBox2.TabIndex = 154 + Me.PictureBox2.TabStop = False + ' + '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.lb_grpname) + Me.SplitContainer1.Panel1.Controls.Add(Me.bn) + ' + 'SplitContainer1.Panel2 + ' + Me.SplitContainer1.Panel2.BackColor = System.Drawing.Color.White + Me.SplitContainer1.Panel2.Controls.Add(Me.cmb_그룹_분배) + Me.SplitContainer1.Panel2.Controls.Add(Label18) + Me.SplitContainer1.Panel2.Controls.Add(Me.Label9) + Me.SplitContainer1.Panel2.Controls.Add(Me.Label8) + Me.SplitContainer1.Panel2.Controls.Add(Me.PictureBox5) + Me.SplitContainer1.Panel2.Controls.Add(Me.Label15) + Me.SplitContainer1.Panel2.Controls.Add(Me.PictureBox4) + Me.SplitContainer1.Panel2.Controls.Add(Me.GroupBox4) + Me.SplitContainer1.Panel2.Controls.Add(Me.GroupBox1) + Me.SplitContainer1.Size = New System.Drawing.Size(795, 565) + Me.SplitContainer1.SplitterDistance = 212 + Me.SplitContainer1.TabIndex = 125 + ' + 'dv + ' + Me.dv.A_DelCurrentCell = True + Me.dv.A_EnterToTab = True + 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.FromArgb(CType(CType(245, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(246, Byte), Integer)) + 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, 26) + Me.dv.Margin = New System.Windows.Forms.Padding(3, 5, 3, 5) + 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, 497) + Me.dv.TabIndex = 0 + ' + 'DataGridViewTextBoxColumn1 + ' + Me.DataGridViewTextBoxColumn1.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.Fill + Me.DataGridViewTextBoxColumn1.DataPropertyName = "설명" + Me.DataGridViewTextBoxColumn1.HeaderText = "설명" + Me.DataGridViewTextBoxColumn1.Name = "DataGridViewTextBoxColumn1" + ' + 'lb_grpname + ' + Me.lb_grpname.BackColor = System.Drawing.Color.LightSkyBlue + Me.lb_grpname.Dock = System.Windows.Forms.DockStyle.Top + Me.lb_grpname.ForeColor = System.Drawing.SystemColors.HotTrack + Me.lb_grpname.Location = New System.Drawing.Point(0, 0) + Me.lb_grpname.Name = "lb_grpname" + Me.lb_grpname.Size = New System.Drawing.Size(210, 26) + Me.lb_grpname.TabIndex = 96 + Me.lb_grpname.Text = "그룹 :" + Me.lb_grpname.TextAlign = System.Drawing.ContentAlignment.MiddleCenter + ' + '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("나눔고딕 ExtraBold", 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.bn.Location = New System.Drawing.Point(0, 523) + 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, 40) + Me.bn.TabIndex = 1 + Me.bn.Text = "BindingNavigator1" + ' + 'lbl_count + ' + Me.lbl_count.Name = "lbl_count" + Me.lbl_count.Size = New System.Drawing.Size(27, 37) + 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, 37) + 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, 37) + 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, 37) + 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, 40) + ' + 'lbl_pos + ' + Me.lbl_pos.Name = "lbl_pos" + Me.lbl_pos.Size = New System.Drawing.Size(14, 37) + Me.lbl_pos.Text = "0" + ' + 'cmb_그룹_분배 + ' + Me.cmb_그룹_분배.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList + Me.cmb_그룹_분배.FormattingEnabled = True + Me.cmb_그룹_분배.Items.AddRange(New Object() {"130", "90", "50"}) + Me.cmb_그룹_분배.Location = New System.Drawing.Point(396, 13) + Me.cmb_그룹_분배.Name = "cmb_그룹_분배" + Me.cmb_그룹_분배.NectControl = Nothing + Me.cmb_그룹_분배.Size = New System.Drawing.Size(162, 22) + Me.cmb_그룹_분배.TabIndex = 154 + ' + 'Label9 + ' + Me.Label9.BackColor = System.Drawing.Color.FromArgb(CType(CType(243, Byte), Integer), CType(CType(244, Byte), Integer), CType(CType(243, Byte), Integer)) + Me.Label9.ForeColor = System.Drawing.Color.MidnightBlue + Me.Label9.Location = New System.Drawing.Point(153, 107) + Me.Label9.Name = "Label9" + Me.Label9.Size = New System.Drawing.Size(405, 31) + Me.Label9.TabIndex = 153 + Me.Label9.Text = "※ 직접 증기공급에 의한 실냉방이 아닌 경우" + Me.Label9.TextAlign = System.Drawing.ContentAlignment.BottomLeft + ' + 'Label8 + ' + Me.Label8.AutoSize = True + Me.Label8.BackColor = System.Drawing.Color.FromArgb(CType(CType(116, Byte), Integer), CType(CType(158, Byte), Integer), CType(CType(209, Byte), Integer)) + Me.Label8.ForeColor = System.Drawing.Color.White + Me.Label8.Location = New System.Drawing.Point(35, 118) + Me.Label8.Name = "Label8" + Me.Label8.Size = New System.Drawing.Size(51, 14) + Me.Label8.TabIndex = 152 + Me.Label8.Text = "분배범위" + ' + 'PictureBox5 + ' + Me.PictureBox5.BackgroundImage = CType(resources.GetObject("PictureBox5.BackgroundImage"), System.Drawing.Image) + Me.PictureBox5.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch + Me.PictureBox5.Location = New System.Drawing.Point(16, 107) + Me.PictureBox5.Name = "PictureBox5" + Me.PictureBox5.Size = New System.Drawing.Size(131, 30) + Me.PictureBox5.TabIndex = 151 + Me.PictureBox5.TabStop = False + ' + 'Label15 + ' + Me.Label15.AutoSize = True + Me.Label15.BackColor = System.Drawing.Color.FromArgb(CType(CType(116, Byte), Integer), CType(CType(158, Byte), Integer), CType(CType(209, Byte), Integer)) + Me.Label15.ForeColor = System.Drawing.Color.White + Me.Label15.Location = New System.Drawing.Point(35, 21) + Me.Label15.Name = "Label15" + Me.Label15.Size = New System.Drawing.Size(76, 14) + Me.Label15.TabIndex = 152 + Me.Label15.Text = "분배범위 냉방" + ' + 'PictureBox4 + ' + Me.PictureBox4.BackgroundImage = CType(resources.GetObject("PictureBox4.BackgroundImage"), System.Drawing.Image) + Me.PictureBox4.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch + Me.PictureBox4.Location = New System.Drawing.Point(16, 10) + Me.PictureBox4.Name = "PictureBox4" + Me.PictureBox4.Size = New System.Drawing.Size(131, 30) + Me.PictureBox4.TabIndex = 151 + Me.PictureBox4.TabStop = False + ' + 'GroupBox4 + ' + Me.GroupBox4.Controls.Add(Me.GroupBox2) + Me.GroupBox4.Controls.Add(Me.GroupBox3) + Me.GroupBox4.Location = New System.Drawing.Point(15, 135) + Me.GroupBox4.Name = "GroupBox4" + Me.GroupBox4.Size = New System.Drawing.Size(544, 367) + Me.GroupBox4.TabIndex = 150 + Me.GroupBox4.TabStop = False + ' + 'GroupBox1 + ' + Me.GroupBox1.Controls.Add(Me.Label20) + Me.GroupBox1.Controls.Add(Me.Label21) + Me.GroupBox1.Controls.Add(Me.냉동기ComboBox) + Me.GroupBox1.Controls.Add(Me.PictureBox1) + Me.GroupBox1.Location = New System.Drawing.Point(15, 38) + Me.GroupBox1.Name = "GroupBox1" + Me.GroupBox1.Size = New System.Drawing.Size(544, 52) + Me.GroupBox1.TabIndex = 148 + Me.GroupBox1.TabStop = False + ' + 'Label20 + ' + Me.Label20.AutoSize = True + Me.Label20.BackColor = System.Drawing.Color.FromArgb(CType(CType(219, Byte), Integer), CType(CType(221, Byte), Integer), CType(CType(223, Byte), Integer)) + Me.Label20.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Me.Label20.Location = New System.Drawing.Point(303, 25) + Me.Label20.Name = "Label20" + Me.Label20.Size = New System.Drawing.Size(153, 14) + Me.Label20.TabIndex = 123 + Me.Label20.Text = "(공조분배와 냉방분배의 경우)" + ' + 'Label21 + ' + Me.Label21.AutoSize = True + Me.Label21.BackColor = System.Drawing.Color.FromArgb(CType(CType(219, Byte), Integer), CType(CType(221, Byte), Integer), CType(CType(223, Byte), Integer)) + Me.Label21.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Me.Label21.Location = New System.Drawing.Point(20, 20) + Me.Label21.Name = "Label21" + Me.Label21.Size = New System.Drawing.Size(67, 14) + Me.Label21.TabIndex = 122 + Me.Label21.Text = "＊냉 동 기:" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) + Me.Label21.TextAlign = System.Drawing.ContentAlignment.MiddleLeft + ' + '냉동기ComboBox + ' + Me.냉동기ComboBox.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList + Me.냉동기ComboBox.FormattingEnabled = True + Me.냉동기ComboBox.Location = New System.Drawing.Point(104, 19) + Me.냉동기ComboBox.Name = "냉동기ComboBox" + Me.냉동기ComboBox.NectControl = Nothing + Me.냉동기ComboBox.Size = New System.Drawing.Size(176, 22) + Me.냉동기ComboBox.TabIndex = 0 + ' + 'PictureBox1 + ' + 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(542, 40) + Me.PictureBox1.TabIndex = 124 + Me.PictureBox1.TabStop = False + ' + 'Frm_Bunbae + ' + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.None + Me.ClientSize = New System.Drawing.Size(795, 565) + Me.ControlBox = False + Me.Controls.Add(Me.SplitContainer1) + Me.Font = New System.Drawing.Font("나눔고딕 ExtraBold", 8.999999!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.KeyPreview = True + Me.Name = "Frm_Bunbae" + Me.ShowInTaskbar = False + Me.StartPosition = System.Windows.Forms.FormStartPosition.Manual + Me.Text = "냉방분배시스템" + CType(Me.bs, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.DS, System.ComponentModel.ISupportInitialize).EndInit() + Me.GroupBox2.ResumeLayout(False) + Me.GroupBox2.PerformLayout() + CType(Me.PictureBox3, System.ComponentModel.ISupportInitialize).EndInit() + Me.GroupBox3.ResumeLayout(False) + Me.GroupBox3.PerformLayout() + CType(Me.PictureBox2, System.ComponentModel.ISupportInitialize).EndInit() + Me.SplitContainer1.Panel1.ResumeLayout(False) + Me.SplitContainer1.Panel2.ResumeLayout(False) + Me.SplitContainer1.Panel2.PerformLayout() + Me.SplitContainer1.ResumeLayout(False) + CType(Me.dv, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.bn, System.ComponentModel.ISupportInitialize).EndInit() + Me.bn.ResumeLayout(False) + Me.bn.PerformLayout() + CType(Me.PictureBox5, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.PictureBox4, System.ComponentModel.ISupportInitialize).EndInit() + Me.GroupBox4.ResumeLayout(False) + Me.GroupBox1.ResumeLayout(False) + Me.GroupBox1.PerformLayout() + CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).EndInit() + Me.ResumeLayout(False) + + End Sub + Friend WithEvents 제어밸브압력손실NTb As MyTb + Friend WithEvents 사용기기압력손실NTb As MyTb + Friend WithEvents 생산기기압력손실NTb As MyTb + Friend WithEvents 층고NTb1 As MyTb + Friend WithEvents 열층의수NTb As MyTb + Friend WithEvents 공급범위의넓이NTb As MyTb + Friend WithEvents 공급범위의길이NTb As MyTb + Friend WithEvents 펌프동력NTb1 As MyTb + Friend WithEvents 개별저항비율NTb As MyTb + Friend WithEvents 배관의압력손실NTb As MyTb + Friend WithEvents 냉매의점도NTb As MyTb + Friend WithEvents 냉매의밀도NTb As MyTb + Friend WithEvents 냉매의비열NTb As MyTb + Friend WithEvents 설정점에서의온도차NTb As MyTb + Friend WithEvents 환수온도NTb As MyTb + Friend WithEvents 급수온도NTb As MyTb + Public WithEvents DS As Eco2Ar.DS + Friend WithEvents bs As System.Windows.Forms.BindingSource + Friend WithEvents 펌프운전제어유무ComboBox As Eco2Ar.MyCmb + Friend WithEvents 냉매방식ComboBox As Eco2Ar.MyCmb + Friend WithEvents 냉동기ComboBox As Eco2Ar.MyCmb + Friend WithEvents GroupBox2 As System.Windows.Forms.GroupBox + Friend WithEvents GroupBox3 As System.Windows.Forms.GroupBox + Friend WithEvents SplitContainer1 As System.Windows.Forms.SplitContainer + Friend WithEvents bn As System.Windows.Forms.BindingNavigator + Friend WithEvents bt_add As System.Windows.Forms.ToolStripButton + Friend WithEvents bt_Del As System.Windows.Forms.ToolStripButton + Friend WithEvents bt_cancel As System.Windows.Forms.ToolStripButton + Friend WithEvents ToolStripSeparator1 As System.Windows.Forms.ToolStripSeparator + Friend WithEvents dv As CEnergy.arindv + Friend WithEvents DataGridViewTextBoxColumn1 As System.Windows.Forms.DataGridViewTextBoxColumn + Friend WithEvents lbl_count As System.Windows.Forms.ToolStripLabel + Friend WithEvents lbl_pos As System.Windows.Forms.ToolStripLabel + Friend WithEvents GroupBox4 As System.Windows.Forms.GroupBox + Friend WithEvents GroupBox1 As System.Windows.Forms.GroupBox + Friend WithEvents Label20 As System.Windows.Forms.Label + Friend WithEvents Label21 As System.Windows.Forms.Label + Friend WithEvents Label6 As System.Windows.Forms.Label + Friend WithEvents Label7 As System.Windows.Forms.Label + Friend WithEvents PictureBox1 As System.Windows.Forms.PictureBox + Friend WithEvents PictureBox3 As System.Windows.Forms.PictureBox + Friend WithEvents PictureBox2 As System.Windows.Forms.PictureBox + Friend WithEvents Label15 As System.Windows.Forms.Label + Friend WithEvents PictureBox4 As System.Windows.Forms.PictureBox + Friend WithEvents Label9 As System.Windows.Forms.Label + Friend WithEvents Label8 As System.Windows.Forms.Label + Friend WithEvents PictureBox5 As System.Windows.Forms.PictureBox + Friend WithEvents lb_grpname As System.Windows.Forms.Label + Friend WithEvents cmb_그룹_분배 As Eco2Ar.MyCmb +End Class diff --git a/ArinWarev1/Forms/v20091231/Frm_Bunbae.resx b/ArinWarev1/Forms/v20091231/Frm_Bunbae.resx new file mode 100644 index 0000000..b376653 --- /dev/null +++ b/ArinWarev1/Forms/v20091231/Frm_Bunbae.resx @@ -0,0 +1,378 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=2.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 + + + 222, 17 + + + 286, 17 + + + 353, 17 + + + + + /9j/4AAQSkZJRgABAgEASABIAAD/7gAOQWRvYmUAZAAAAAAB/+ED5kV4aWYAAE1NACoAAAAIAAcBEgAD + AAAAAQABAAABGgAFAAAAAQAAAGIBGwAFAAAAAQAAAGoBKAADAAAAAQACAAABMQACAAAAHAAAAHIBMgAC + AAAAFAAAAI6HaQAEAAAAAQAAAKIAAADCAEgAAAABAAAASAAAAAEAAEFkb2JlIFBob3Rvc2hvcCBDUzMg + V2luZG93cwAyMDEwOjA0OjE1IDIwOjMyOjA0AAACoAIABAAAAAEAAAA8oAMABAAAAAEAAAAMAAAAAAAA + AAYBAwADAAAAAQAGAAABGgAFAAAAAQAAARABGwAFAAAAAQAAARgBKAADAAAAAQACAAACAQAEAAAAAQAA + ASACAgAEAAAAAQAAAr4AAAAAAAAASAAAAAEAAABIAAAAAf/Y/+AAEEpGSUYAAQIAAEgASAAA/+0ADEFk + b2JlX0NNAAH/7gAOQWRvYmUAZIAAAAAB/9sAhAAMCAgICQgMCQkMEQsKCxEVDwwMDxUYExMVExMYEQwM + DAwMDBEMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMAQ0LCw0ODRAODhAUDg4OFBQODg4OFBEMDAwM + DBERDAwMDAwMEQwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAz/wAARCAAMADwDASIAAhEBAxEB/90A + BAAE/8QBPwAAAQUBAQEBAQEAAAAAAAAAAwABAgQFBgcICQoLAQABBQEBAQEBAQAAAAAAAAABAAIDBAUG + BwgJCgsQAAEEAQMCBAIFBwYIBQMMMwEAAhEDBCESMQVBUWETInGBMgYUkaGxQiMkFVLBYjM0coLRQwcl + klPw4fFjczUWorKDJkSTVGRFwqN0NhfSVeJl8rOEw9N14/NGJ5SkhbSVxNTk9KW1xdXl9VZmdoaWprbG + 1ub2N0dXZ3eHl6e3x9fn9xEAAgIBAgQEAwQFBgcHBgU1AQACEQMhMRIEQVFhcSITBTKBkRShsUIjwVLR + 8DMkYuFygpJDUxVjczTxJQYWorKDByY1wtJEk1SjF2RFVTZ0ZeLys4TD03Xj80aUpIW0lcTU5PSltcXV + 5fVWZnaGlqa2xtbm9ic3R1dnd4eXp7fH/9oADAMBAAIRAxEAPwDd/amR/pH/AOcf70v2pkf6R/8AnH+9 + UUlofq/Bpevxb37UyP8ASP8A84/3pftTI/0j/wDOP96opJfq/BXr8W9+1Mj/AEj/APOP96X7UyP9I/8A + zj/eqKSX6vwV6/F3ujdbuGS2i5xfU8HVxktIG76XyW99vo27p0XGdO2/ba930dZj+q5dX+qfZPL8VAeD + 341VVr/eZhx+0bu708n/2f/iDFhJQ0NfUFJPRklMRQABAQAADEhMaW5vAhAAAG1udHJSR0IgWFlaIAfO + AAIACQAGADEAAGFjc3BNU0ZUAAAAAElFQyBzUkdCAAAAAAAAAAAAAAAAAAD21gABAAAAANMtSFAgIAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAEWNwcnQAAAFQAAAAM2Rl + c2MAAAGEAAAAbHd0cHQAAAHwAAAAFGJrcHQAAAIEAAAAFHJYWVoAAAIYAAAAFGdYWVoAAAIsAAAAFGJY + WVoAAAJAAAAAFGRtbmQAAAJUAAAAcGRtZGQAAALEAAAAiHZ1ZWQAAANMAAAAhnZpZXcAAAPUAAAAJGx1 + bWkAAAP4AAAAFG1lYXMAAAQMAAAAJHRlY2gAAAQwAAAADHJUUkMAAAQ8AAAIDGdUUkMAAAQ8AAAIDGJU + UkMAAAQ8AAAIDHRleHQAAAAAQ29weXJpZ2h0IChjKSAxOTk4IEhld2xldHQtUGFja2FyZCBDb21wYW55 + AABkZXNjAAAAAAAAABJzUkdCIElFQzYxOTY2LTIuMQAAAAAAAAAAAAAAEnNSR0IgSUVDNjE5NjYtMi4x + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABYWVogAAAAAAAA + 81EAAQAAAAEWzFhZWiAAAAAAAAAAAAAAAAAAAAAAWFlaIAAAAAAAAG+iAAA49QAAA5BYWVogAAAAAAAA + YpkAALeFAAAY2lhZWiAAAAAAAAAkoAAAD4QAALbPZGVzYwAAAAAAAAAWSUVDIGh0dHA6Ly93d3cuaWVj + LmNoAAAAAAAAAAAAAAAWSUVDIGh0dHA6Ly93d3cuaWVjLmNoAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAGRlc2MAAAAAAAAALklFQyA2MTk2Ni0yLjEgRGVmYXVsdCBSR0Ig + Y29sb3VyIHNwYWNlIC0gc1JHQgAAAAAAAAAAAAAALklFQyA2MTk2Ni0yLjEgRGVmYXVsdCBSR0IgY29s + b3VyIHNwYWNlIC0gc1JHQgAAAAAAAAAAAAAAAAAAAAAAAAAAAABkZXNjAAAAAAAAACxSZWZlcmVuY2Ug + Vmlld2luZyBDb25kaXRpb24gaW4gSUVDNjE5NjYtMi4xAAAAAAAAAAAAAAAsUmVmZXJlbmNlIFZpZXdp + bmcgQ29uZGl0aW9uIGluIElFQzYxOTY2LTIuMQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAdmlldwAA + AAAAE6T+ABRfLgAQzxQAA+3MAAQTCwADXJ4AAAABWFlaIAAAAAAATAlWAFAAAABXH+dtZWFzAAAAAAAA + AAEAAAAAAAAAAAAAAAAAAAAAAAACjwAAAAJzaWcgAAAAAENSVCBjdXJ2AAAAAAAABAAAAAAFAAoADwAU + ABkAHgAjACgALQAyADcAOwBAAEUASgBPAFQAWQBeAGMAaABtAHIAdwB8AIEAhgCLAJAAlQCaAJ8ApACp + AK4AsgC3ALwAwQDGAMsA0ADVANsA4ADlAOsA8AD2APsBAQEHAQ0BEwEZAR8BJQErATIBOAE+AUUBTAFS + AVkBYAFnAW4BdQF8AYMBiwGSAZoBoQGpAbEBuQHBAckB0QHZAeEB6QHyAfoCAwIMAhQCHQImAi8COAJB + AksCVAJdAmcCcQJ6AoQCjgKYAqICrAK2AsECywLVAuAC6wL1AwADCwMWAyEDLQM4A0MDTwNaA2YDcgN+ + A4oDlgOiA64DugPHA9MD4APsA/kEBgQTBCAELQQ7BEgEVQRjBHEEfgSMBJoEqAS2BMQE0wThBPAE/gUN + BRwFKwU6BUkFWAVnBXcFhgWWBaYFtQXFBdUF5QX2BgYGFgYnBjcGSAZZBmoGewaMBp0GrwbABtEG4wb1 + BwcHGQcrBz0HTwdhB3QHhgeZB6wHvwfSB+UH+AgLCB8IMghGCFoIbgiCCJYIqgi+CNII5wj7CRAJJQk6 + CU8JZAl5CY8JpAm6Cc8J5Qn7ChEKJwo9ClQKagqBCpgKrgrFCtwK8wsLCyILOQtRC2kLgAuYC7ALyAvh + C/kMEgwqDEMMXAx1DI4MpwzADNkM8w0NDSYNQA1aDXQNjg2pDcMN3g34DhMOLg5JDmQOfw6bDrYO0g7u + DwkPJQ9BD14Peg+WD7MPzw/sEAkQJhBDEGEQfhCbELkQ1xD1ERMRMRFPEW0RjBGqEckR6BIHEiYSRRJk + EoQSoxLDEuMTAxMjE0MTYxODE6QTxRPlFAYUJxRJFGoUixStFM4U8BUSFTQVVhV4FZsVvRXgFgMWJhZJ + FmwWjxayFtYW+hcdF0EXZReJF64X0hf3GBsYQBhlGIoYrxjVGPoZIBlFGWsZkRm3Gd0aBBoqGlEadxqe + GsUa7BsUGzsbYxuKG7Ib2hwCHCocUhx7HKMczBz1HR4dRx1wHZkdwx3sHhYeQB5qHpQevh7pHxMfPh9p + H5Qfvx/qIBUgQSBsIJggxCDwIRwhSCF1IaEhziH7IiciVSKCIq8i3SMKIzgjZiOUI8Ij8CQfJE0kfCSr + JNolCSU4JWgllyXHJfcmJyZXJocmtyboJxgnSSd6J6sn3CgNKD8ocSiiKNQpBik4KWspnSnQKgIqNSpo + KpsqzysCKzYraSudK9EsBSw5LG4soizXLQwtQS12Last4S4WLkwugi63Lu4vJC9aL5Evxy/+MDUwbDCk + MNsxEjFKMYIxujHyMioyYzKbMtQzDTNGM38zuDPxNCs0ZTSeNNg1EzVNNYc1wjX9Njc2cjauNuk3JDdg + N5w31zgUOFA4jDjIOQU5Qjl/Obw5+To2OnQ6sjrvOy07azuqO+g8JzxlPKQ84z0iPWE9oT3gPiA+YD6g + PuA/IT9hP6I/4kAjQGRApkDnQSlBakGsQe5CMEJyQrVC90M6Q31DwEQDREdEikTORRJFVUWaRd5GIkZn + RqtG8Ec1R3tHwEgFSEtIkUjXSR1JY0mpSfBKN0p9SsRLDEtTS5pL4kwqTHJMuk0CTUpNk03cTiVObk63 + TwBPSU+TT91QJ1BxULtRBlFQUZtR5lIxUnxSx1MTU19TqlP2VEJUj1TbVShVdVXCVg9WXFapVvdXRFeS + V+BYL1h9WMtZGllpWbhaB1pWWqZa9VtFW5Vb5Vw1XIZc1l0nXXhdyV4aXmxevV8PX2Ffs2AFYFdgqmD8 + YU9homH1YklinGLwY0Njl2PrZEBklGTpZT1lkmXnZj1mkmboZz1nk2fpaD9olmjsaUNpmmnxakhqn2r3 + a09rp2v/bFdsr20IbWBtuW4SbmtuxG8eb3hv0XArcIZw4HE6cZVx8HJLcqZzAXNdc7h0FHRwdMx1KHWF + deF2Pnabdvh3VnezeBF4bnjMeSp5iXnnekZ6pXsEe2N7wnwhfIF84X1BfaF+AX5ifsJ/I3+Ef+WAR4Co + gQqBa4HNgjCCkoL0g1eDuoQdhICE44VHhauGDoZyhteHO4efiASIaYjOiTOJmYn+imSKyoswi5aL/Ixj + jMqNMY2Yjf+OZo7OjzaPnpAGkG6Q1pE/kaiSEZJ6kuOTTZO2lCCUipT0lV+VyZY0lp+XCpd1l+CYTJi4 + mSSZkJn8mmia1ZtCm6+cHJyJnPedZJ3SnkCerp8dn4uf+qBpoNihR6G2oiailqMGo3aj5qRWpMelOKWp + phqmi6b9p26n4KhSqMSpN6mpqhyqj6sCq3Wr6axcrNCtRK24ri2uoa8Wr4uwALB1sOqxYLHWskuywrM4 + s660JbSctRO1irYBtnm28Ldot+C4WbjRuUq5wro7urW7LrunvCG8m70VvY++Cr6Evv+/er/1wHDA7MFn + wePCX8Lbw1jD1MRRxM7FS8XIxkbGw8dBx7/IPci8yTrJuco4yrfLNsu2zDXMtc01zbXONs62zzfPuNA5 + 0LrRPNG+0j/SwdNE08bUSdTL1U7V0dZV1tjXXNfg2GTY6Nls2fHadtr724DcBdyK3RDdlt4c3qLfKd+v + 4DbgveFE4cziU+Lb42Pj6+Rz5PzlhOYN5pbnH+ep6DLovOlG6dDqW+rl63Dr++yG7RHtnO4o7rTvQO/M + 8Fjw5fFy8f/yjPMZ86f0NPTC9VD13vZt9vv3ivgZ+Kj5OPnH+lf65/t3/Af8mP0p/br+S/7c/23////b + AEMAAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQICAgICAgICAgICAwMD + AwMDAwMDA//bAEMBAQEBAQEBAQEBAQICAQICAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMD + AwMDAwMDAwMDAwMDAwMDA//AABEIAAwAPAMBEQACEQEDEQH/xAAfAAABBQEBAQEBAQAAAAAAAAAAAQID + BAUGBwgJCgv/xAC1EAACAQMDAgQDBQUEBAAAAX0BAgMABBEFEiExQQYTUWEHInEUMoGRoQgjQrHBFVLR + 8CQzYnKCCQoWFxgZGiUmJygpKjQ1Njc4OTpDREVGR0hJSlNUVVZXWFlaY2RlZmdoaWpzdHV2d3h5eoOE + hYaHiImKkpOUlZaXmJmaoqOkpaanqKmqsrO0tba3uLm6wsPExcbHyMnK0tPU1dbX2Nna4eLj5OXm5+jp + 6vHy8/T19vf4+fr/xAAfAQADAQEBAQEBAQEBAAAAAAAAAQIDBAUGBwgJCgv/xAC1EQACAQIEBAMEBwUE + BAABAncAAQIDEQQFITEGEkFRB2FxEyIygQgUQpGhscEJIzNS8BVictEKFiQ04SXxFxgZGiYnKCkqNTY3 + ODk6Q0RFRkdISUpTVFVWV1hZWmNkZWZnaGlqc3R1dnd4eXqCg4SFhoeIiYqSk5SVlpeYmZqio6Slpqeo + qaqys7S1tre4ubrCw8TFxsfIycrS09TV1tfY2dri4+Tl5ufo6ery8/T19vf4+fr/2gAMAwEAAhEDEQA/ + AP1ZH7UPxEAA/wCEw8bnj/ob9f8A/k+v7U/1Nyj/AKF+G/8ABUP/AJE/llcSZlZf7dX/APBk/wDMX/hq + H4if9Df43/8ACv1//wCT6P8AU3Kf+hfhv/BUP/kQ/wBZcy/6Dq//AIMn/mH/AA1D8RP+hv8AG/8A4V+v + /wDyfR/qblP/AEL8N/4Kh/8AIh/rLmX/AEHV/wDwZP8AzD/hqH4if9Df43/8K/X/AP5Po/1Nyn/oX4b/ + AMFQ/wDkQ/1lzL/oOr/+DJ/5h/w1D8RP+hv8b/8AhX6//wDJ9H+puU/9C/Df+Cof/Ih/rLmX/QdX/wDB + k/8AMT/hqH4if9Df43/8K/X/AP5Po/1Nyn/oX4b/AMFQ/wDkQ/1kzL/oOr/+DJ/5n2R+xz+234zt/iRp + nw+8a6vqXiDwZ4gs9baObXr+bUr/AMPajpmkX2tQ3FlqV2Zb57K7XT2t3tXkaJWkV4whVxJ+beJfAuU4 + Th/FZ/hKEKOMw8qd+SKjGcZzjTs4q0bpyUlJK7s073VvuuBOLMxxGcYfJ8TWlVw1ZTtzu7hKMJTupPWz + UWnFu2qatrf9aP8AhfXgv+zv7U89/sfm+V5207N+M43fSv50P2w/kwr/AEFP42CgAoAKACgAoA9s/Z0/ + s7/hcng3+1vP/s7Ov/avs2PP2f8ACL63t2buP9ZjP+zmvz7xU/5IPPf+4H/qRRPsvD//AJK7KP8AuL/6 + ZqH7/wD/ABaT/hUfb7Ht/wBj7V9p8v8A9Cr+Oz+lz//Z + + + + + /9j/4AAQSkZJRgABAgEASABIAAD/7gAOQWRvYmUAZAAAAAAB/+ED5kV4aWYAAE1NACoAAAAIAAcBEgAD + AAAAAQABAAABGgAFAAAAAQAAAGIBGwAFAAAAAQAAAGoBKAADAAAAAQACAAABMQACAAAAHAAAAHIBMgAC + AAAAFAAAAI6HaQAEAAAAAQAAAKIAAADCAEgAAAABAAAASAAAAAEAAEFkb2JlIFBob3Rvc2hvcCBDUzMg + V2luZG93cwAyMDEwOjA0OjE1IDIwOjMyOjA0AAACoAIABAAAAAEAAAA8oAMABAAAAAEAAAAMAAAAAAAA + AAYBAwADAAAAAQAGAAABGgAFAAAAAQAAARABGwAFAAAAAQAAARgBKAADAAAAAQACAAACAQAEAAAAAQAA + ASACAgAEAAAAAQAAAr4AAAAAAAAASAAAAAEAAABIAAAAAf/Y/+AAEEpGSUYAAQIAAEgASAAA/+0ADEFk + b2JlX0NNAAH/7gAOQWRvYmUAZIAAAAAB/9sAhAAMCAgICQgMCQkMEQsKCxEVDwwMDxUYExMVExMYEQwM + DAwMDBEMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMAQ0LCw0ODRAODhAUDg4OFBQODg4OFBEMDAwM + DBERDAwMDAwMEQwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAz/wAARCAAMADwDASIAAhEBAxEB/90A + BAAE/8QBPwAAAQUBAQEBAQEAAAAAAAAAAwABAgQFBgcICQoLAQABBQEBAQEBAQAAAAAAAAABAAIDBAUG + BwgJCgsQAAEEAQMCBAIFBwYIBQMMMwEAAhEDBCESMQVBUWETInGBMgYUkaGxQiMkFVLBYjM0coLRQwcl + klPw4fFjczUWorKDJkSTVGRFwqN0NhfSVeJl8rOEw9N14/NGJ5SkhbSVxNTk9KW1xdXl9VZmdoaWprbG + 1ub2N0dXZ3eHl6e3x9fn9xEAAgIBAgQEAwQFBgcHBgU1AQACEQMhMRIEQVFhcSITBTKBkRShsUIjwVLR + 8DMkYuFygpJDUxVjczTxJQYWorKDByY1wtJEk1SjF2RFVTZ0ZeLys4TD03Xj80aUpIW0lcTU5PSltcXV + 5fVWZnaGlqa2xtbm9ic3R1dnd4eXp7fH/9oADAMBAAIRAxEAPwDd/amR/pH/AOcf70v2pkf6R/8AnH+9 + UUlofq/Bpevxb37UyP8ASP8A84/3pftTI/0j/wDOP96opJfq/BXr8W9+1Mj/AEj/APOP96X7UyP9I/8A + zj/eqKSX6vwV6/F3ujdbuGS2i5xfU8HVxktIG76XyW99vo27p0XGdO2/ba930dZj+q5dX+qfZPL8VAeD + 341VVr/eZhx+0bu708n/2f/iDFhJQ0NfUFJPRklMRQABAQAADEhMaW5vAhAAAG1udHJSR0IgWFlaIAfO + AAIACQAGADEAAGFjc3BNU0ZUAAAAAElFQyBzUkdCAAAAAAAAAAAAAAAAAAD21gABAAAAANMtSFAgIAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAEWNwcnQAAAFQAAAAM2Rl + c2MAAAGEAAAAbHd0cHQAAAHwAAAAFGJrcHQAAAIEAAAAFHJYWVoAAAIYAAAAFGdYWVoAAAIsAAAAFGJY + WVoAAAJAAAAAFGRtbmQAAAJUAAAAcGRtZGQAAALEAAAAiHZ1ZWQAAANMAAAAhnZpZXcAAAPUAAAAJGx1 + bWkAAAP4AAAAFG1lYXMAAAQMAAAAJHRlY2gAAAQwAAAADHJUUkMAAAQ8AAAIDGdUUkMAAAQ8AAAIDGJU + UkMAAAQ8AAAIDHRleHQAAAAAQ29weXJpZ2h0IChjKSAxOTk4IEhld2xldHQtUGFja2FyZCBDb21wYW55 + AABkZXNjAAAAAAAAABJzUkdCIElFQzYxOTY2LTIuMQAAAAAAAAAAAAAAEnNSR0IgSUVDNjE5NjYtMi4x + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABYWVogAAAAAAAA + 81EAAQAAAAEWzFhZWiAAAAAAAAAAAAAAAAAAAAAAWFlaIAAAAAAAAG+iAAA49QAAA5BYWVogAAAAAAAA + YpkAALeFAAAY2lhZWiAAAAAAAAAkoAAAD4QAALbPZGVzYwAAAAAAAAAWSUVDIGh0dHA6Ly93d3cuaWVj + LmNoAAAAAAAAAAAAAAAWSUVDIGh0dHA6Ly93d3cuaWVjLmNoAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAGRlc2MAAAAAAAAALklFQyA2MTk2Ni0yLjEgRGVmYXVsdCBSR0Ig + Y29sb3VyIHNwYWNlIC0gc1JHQgAAAAAAAAAAAAAALklFQyA2MTk2Ni0yLjEgRGVmYXVsdCBSR0IgY29s + b3VyIHNwYWNlIC0gc1JHQgAAAAAAAAAAAAAAAAAAAAAAAAAAAABkZXNjAAAAAAAAACxSZWZlcmVuY2Ug + Vmlld2luZyBDb25kaXRpb24gaW4gSUVDNjE5NjYtMi4xAAAAAAAAAAAAAAAsUmVmZXJlbmNlIFZpZXdp + bmcgQ29uZGl0aW9uIGluIElFQzYxOTY2LTIuMQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAdmlldwAA + AAAAE6T+ABRfLgAQzxQAA+3MAAQTCwADXJ4AAAABWFlaIAAAAAAATAlWAFAAAABXH+dtZWFzAAAAAAAA + AAEAAAAAAAAAAAAAAAAAAAAAAAACjwAAAAJzaWcgAAAAAENSVCBjdXJ2AAAAAAAABAAAAAAFAAoADwAU + ABkAHgAjACgALQAyADcAOwBAAEUASgBPAFQAWQBeAGMAaABtAHIAdwB8AIEAhgCLAJAAlQCaAJ8ApACp + AK4AsgC3ALwAwQDGAMsA0ADVANsA4ADlAOsA8AD2APsBAQEHAQ0BEwEZAR8BJQErATIBOAE+AUUBTAFS + AVkBYAFnAW4BdQF8AYMBiwGSAZoBoQGpAbEBuQHBAckB0QHZAeEB6QHyAfoCAwIMAhQCHQImAi8COAJB + AksCVAJdAmcCcQJ6AoQCjgKYAqICrAK2AsECywLVAuAC6wL1AwADCwMWAyEDLQM4A0MDTwNaA2YDcgN+ + A4oDlgOiA64DugPHA9MD4APsA/kEBgQTBCAELQQ7BEgEVQRjBHEEfgSMBJoEqAS2BMQE0wThBPAE/gUN + BRwFKwU6BUkFWAVnBXcFhgWWBaYFtQXFBdUF5QX2BgYGFgYnBjcGSAZZBmoGewaMBp0GrwbABtEG4wb1 + BwcHGQcrBz0HTwdhB3QHhgeZB6wHvwfSB+UH+AgLCB8IMghGCFoIbgiCCJYIqgi+CNII5wj7CRAJJQk6 + CU8JZAl5CY8JpAm6Cc8J5Qn7ChEKJwo9ClQKagqBCpgKrgrFCtwK8wsLCyILOQtRC2kLgAuYC7ALyAvh + C/kMEgwqDEMMXAx1DI4MpwzADNkM8w0NDSYNQA1aDXQNjg2pDcMN3g34DhMOLg5JDmQOfw6bDrYO0g7u + DwkPJQ9BD14Peg+WD7MPzw/sEAkQJhBDEGEQfhCbELkQ1xD1ERMRMRFPEW0RjBGqEckR6BIHEiYSRRJk + EoQSoxLDEuMTAxMjE0MTYxODE6QTxRPlFAYUJxRJFGoUixStFM4U8BUSFTQVVhV4FZsVvRXgFgMWJhZJ + FmwWjxayFtYW+hcdF0EXZReJF64X0hf3GBsYQBhlGIoYrxjVGPoZIBlFGWsZkRm3Gd0aBBoqGlEadxqe + GsUa7BsUGzsbYxuKG7Ib2hwCHCocUhx7HKMczBz1HR4dRx1wHZkdwx3sHhYeQB5qHpQevh7pHxMfPh9p + H5Qfvx/qIBUgQSBsIJggxCDwIRwhSCF1IaEhziH7IiciVSKCIq8i3SMKIzgjZiOUI8Ij8CQfJE0kfCSr + JNolCSU4JWgllyXHJfcmJyZXJocmtyboJxgnSSd6J6sn3CgNKD8ocSiiKNQpBik4KWspnSnQKgIqNSpo + KpsqzysCKzYraSudK9EsBSw5LG4soizXLQwtQS12Last4S4WLkwugi63Lu4vJC9aL5Evxy/+MDUwbDCk + MNsxEjFKMYIxujHyMioyYzKbMtQzDTNGM38zuDPxNCs0ZTSeNNg1EzVNNYc1wjX9Njc2cjauNuk3JDdg + N5w31zgUOFA4jDjIOQU5Qjl/Obw5+To2OnQ6sjrvOy07azuqO+g8JzxlPKQ84z0iPWE9oT3gPiA+YD6g + PuA/IT9hP6I/4kAjQGRApkDnQSlBakGsQe5CMEJyQrVC90M6Q31DwEQDREdEikTORRJFVUWaRd5GIkZn + RqtG8Ec1R3tHwEgFSEtIkUjXSR1JY0mpSfBKN0p9SsRLDEtTS5pL4kwqTHJMuk0CTUpNk03cTiVObk63 + TwBPSU+TT91QJ1BxULtRBlFQUZtR5lIxUnxSx1MTU19TqlP2VEJUj1TbVShVdVXCVg9WXFapVvdXRFeS + V+BYL1h9WMtZGllpWbhaB1pWWqZa9VtFW5Vb5Vw1XIZc1l0nXXhdyV4aXmxevV8PX2Ffs2AFYFdgqmD8 + YU9homH1YklinGLwY0Njl2PrZEBklGTpZT1lkmXnZj1mkmboZz1nk2fpaD9olmjsaUNpmmnxakhqn2r3 + a09rp2v/bFdsr20IbWBtuW4SbmtuxG8eb3hv0XArcIZw4HE6cZVx8HJLcqZzAXNdc7h0FHRwdMx1KHWF + deF2Pnabdvh3VnezeBF4bnjMeSp5iXnnekZ6pXsEe2N7wnwhfIF84X1BfaF+AX5ifsJ/I3+Ef+WAR4Co + gQqBa4HNgjCCkoL0g1eDuoQdhICE44VHhauGDoZyhteHO4efiASIaYjOiTOJmYn+imSKyoswi5aL/Ixj + jMqNMY2Yjf+OZo7OjzaPnpAGkG6Q1pE/kaiSEZJ6kuOTTZO2lCCUipT0lV+VyZY0lp+XCpd1l+CYTJi4 + mSSZkJn8mmia1ZtCm6+cHJyJnPedZJ3SnkCerp8dn4uf+qBpoNihR6G2oiailqMGo3aj5qRWpMelOKWp + phqmi6b9p26n4KhSqMSpN6mpqhyqj6sCq3Wr6axcrNCtRK24ri2uoa8Wr4uwALB1sOqxYLHWskuywrM4 + s660JbSctRO1irYBtnm28Ldot+C4WbjRuUq5wro7urW7LrunvCG8m70VvY++Cr6Evv+/er/1wHDA7MFn + wePCX8Lbw1jD1MRRxM7FS8XIxkbGw8dBx7/IPci8yTrJuco4yrfLNsu2zDXMtc01zbXONs62zzfPuNA5 + 0LrRPNG+0j/SwdNE08bUSdTL1U7V0dZV1tjXXNfg2GTY6Nls2fHadtr724DcBdyK3RDdlt4c3qLfKd+v + 4DbgveFE4cziU+Lb42Pj6+Rz5PzlhOYN5pbnH+ep6DLovOlG6dDqW+rl63Dr++yG7RHtnO4o7rTvQO/M + 8Fjw5fFy8f/yjPMZ86f0NPTC9VD13vZt9vv3ivgZ+Kj5OPnH+lf65/t3/Af8mP0p/br+S/7c/23////b + AEMAAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQICAgICAgICAgICAwMD + AwMDAwMDA//bAEMBAQEBAQEBAQEBAQICAQICAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMD + AwMDAwMDAwMDAwMDAwMDA//AABEIAAwAPAMBEQACEQEDEQH/xAAfAAABBQEBAQEBAQAAAAAAAAAAAQID + BAUGBwgJCgv/xAC1EAACAQMDAgQDBQUEBAAAAX0BAgMABBEFEiExQQYTUWEHInEUMoGRoQgjQrHBFVLR + 8CQzYnKCCQoWFxgZGiUmJygpKjQ1Njc4OTpDREVGR0hJSlNUVVZXWFlaY2RlZmdoaWpzdHV2d3h5eoOE + hYaHiImKkpOUlZaXmJmaoqOkpaanqKmqsrO0tba3uLm6wsPExcbHyMnK0tPU1dbX2Nna4eLj5OXm5+jp + 6vHy8/T19vf4+fr/xAAfAQADAQEBAQEBAQEBAAAAAAAAAQIDBAUGBwgJCgv/xAC1EQACAQIEBAMEBwUE + BAABAncAAQIDEQQFITEGEkFRB2FxEyIygQgUQpGhscEJIzNS8BVictEKFiQ04SXxFxgZGiYnKCkqNTY3 + ODk6Q0RFRkdISUpTVFVWV1hZWmNkZWZnaGlqc3R1dnd4eXqCg4SFhoeIiYqSk5SVlpeYmZqio6Slpqeo + qaqys7S1tre4ubrCw8TFxsfIycrS09TV1tfY2dri4+Tl5ufo6ery8/T19vf4+fr/2gAMAwEAAhEDEQA/ + AP1ZH7UPxEAA/wCEw8bnj/ob9f8A/k+v7U/1Nyj/AKF+G/8ABUP/AJE/llcSZlZf7dX/APBk/wDMX/hq + H4if9Df43/8ACv1//wCT6P8AU3Kf+hfhv/BUP/kQ/wBZcy/6Dq//AIMn/mH/AA1D8RP+hv8AG/8A4V+v + /wDyfR/qblP/AEL8N/4Kh/8AIh/rLmX/AEHV/wDwZP8AzD/hqH4if9Df43/8K/X/AP5Po/1Nyn/oX4b/ + AMFQ/wDkQ/1lzL/oOr/+DJ/5h/w1D8RP+hv8b/8AhX6//wDJ9H+puU/9C/Df+Cof/Ih/rLmX/QdX/wDB + k/8AMT/hqH4if9Df43/8K/X/AP5Po/1Nyn/oX4b/AMFQ/wDkQ/1kzL/oOr/+DJ/5n2R+xz+234zt/iRp + nw+8a6vqXiDwZ4gs9baObXr+bUr/AMPajpmkX2tQ3FlqV2Zb57K7XT2t3tXkaJWkV4whVxJ+beJfAuU4 + Th/FZ/hKEKOMw8qd+SKjGcZzjTs4q0bpyUlJK7s073VvuuBOLMxxGcYfJ8TWlVw1ZTtzu7hKMJTupPWz + UWnFu2qatrf9aP8AhfXgv+zv7U89/sfm+V5207N+M43fSv50P2w/kwr/AEFP42CgAoAKACgAoA9s/Z0/ + s7/hcng3+1vP/s7Ov/avs2PP2f8ACL63t2buP9ZjP+zmvz7xU/5IPPf+4H/qRRPsvD//AJK7KP8AuL/6 + ZqH7/wD/ABaT/hUfb7Ht/wBj7V9p8v8A9Cr+Oz+lz//Z + + + + 46 + + \ No newline at end of file diff --git a/ArinWarev1/Forms/v20091231/Frm_Bunbae.vb b/ArinWarev1/Forms/v20091231/Frm_Bunbae.vb new file mode 100644 index 0000000..affb684 --- /dev/null +++ b/ArinWarev1/Forms/v20091231/Frm_Bunbae.vb @@ -0,0 +1,426 @@ +Public Class Frm_Bunbae + Dim Init As Boolean = False + Dim SrcDrv As DataRowView + +#Region "data Base 변경여부및 적용방법" + + '''변경된내용을적용한다. + Public Overrides Function AcceptChanged() As Boolean + bs.EndEdit() + Dim BaseDS As DataSet = CType(bs.DataSource, DataSet) + Dim BaseDT As DataTable = BaseDS.Tables(bs.DataMember) + BaseDT.AcceptChanges() + Return True + End Function + + '''변경된내용이있다면 취소한다. + Public Overrides Function RejectChanged() As Boolean + Dim BaseDS As DataSet = CType(bs.DataSource, DataSet) + Dim BaseDT As DataTable = BaseDS.Tables(bs.DataMember) + BaseDT.RejectChanges() + Return True + End Function + + '''데이터에변형이있었는가? + Public Overrides Function HasChanged() As Boolean + bs.EndEdit() + Dim BaseDS As DataSet = CType(bs.DataSource, DataSet) + Dim BaseDT As DataTable = BaseDS.Tables(bs.DataMember) + Dim ChangeDT As DataTable = BaseDT.GetChanges + If Not ChangeDT Is Nothing Then Return True + Return False + End Function + + '''기본데이터테이블을 반환합니다. + Public Function DT() As DataTable + Dim BaseDS As DataSet = CType(bs.DataSource, DataSet) + Return BaseDS.Tables(bs.DataMember) + End Function + + +#End Region + + + Private Sub MdiMain_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load + 'MdiMain.Toggle_Menu_Color(MdiMain.E_MenuIdx.냉방분배시스템) + 'CEnergy.ARINCLASS.SaveLoad_FrmSetting(Me) + '//프로필 관련 + + '//공유데이터셋에 연결한다. + Me.bs.DataSource = DSET + + '//냉방분배 + AddHandler DSET.tbl_bunbae.TableNewRow, AddressOf AddNewDataRow_bunbae + + '//모든컨트롤의 cTrl_enter 를 추가합니다 + BindProperty(CType(Me.SplitContainer1.Panel2.Controls, Control.ControlCollection)) + + '//콤보컨트롤 바인딩 + Binding_Zone() + + Me.bs.Filter = "code <> '0' and 그룹 = '" + Me.Parameter + "'" + Me.lb_grpname.Text = Me.Parameter + + Me.Init = True + + Try + Me.bs.Position = CEnergy.ARINCLASS.Read_LastPos_Frm(Me) + Catch ex As Exception + Me.bs.MoveFirst() + End Try + + bs_CurrentChanged(sender, e) + + + End Sub +#Region "Control_Enter" + Private Sub BindProperty(ByVal Ctl As Control.ControlCollection) + For Each C As Control In Ctl + If C.Controls.Count > 1 Then + BindProperty(C.Controls) + Else + If C.GetType.ToString.ToUpper.IndexOf("MYTB") <> -1 Then + AddHandler CType(C, MyTb).KeyDown, AddressOf TextBOx_KeyDown + ElseIf C.GetType.ToString.ToUpper.IndexOf("MYCMB") <> -1 Then + AddHandler CType(C, MyCmb).KeyDown, AddressOf Cmd_KeyDown + End If + End If + Next + End Sub + + Private Sub TextBOx_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) + If e.KeyCode = Keys.Enter AndAlso e.Control Then + Try + Dim Field As String = (CType(sender, MyTb).DataBindings.Item("text").BindingMemberInfo.BindingField) + For Each Dr As DataRow In DT.Select(Me.bs.Filter, "") + Dr(Field) = CType(sender, MyTb).Text + Next + Work_msg_timer("모든값이 변경되었습니다", 25) + Catch ex As Exception + + End Try + + End If + End Sub + Private Sub Cmd_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) + If e.KeyCode = Keys.Enter AndAlso e.Control Then + Try + Dim Field As String = (CType(sender, MyCmb).DataBindings.Item("selectedvalue").BindingMemberInfo.BindingField) + For Each Dr As DataRow In DT.Select(Me.bs.Filter, "") + Dr(Field) = CType(sender, MyCmb).SelectedValue + Next + Work_msg_timer("모든값이 변경되었습니다", 25) + Catch ex As Exception + + End Try + End If + End Sub +#End Region + Private Sub 냉동기ComboBox_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles 냉동기ComboBox.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) <> 25 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 + If Me.bs.Position >= 0 AndAlso Me.bs.Position < Me.bs.Count - 1 Then + Me.bs.Position += 1 + Else + Me.bt_Add.PerformClick() '//한줄추가 + End If + End If + + Dim Cnt As Short = 0 + For i As Integer = 0 To CB.GetUpperBound(0) + Select Case i + Case 0 + CType(bs.Current, DataRowView)("설명") = CB(i).Split(CChar(vbTab))(ii).Trim + Case 0 + 2 '//사용프로필 앞에 두개를 숫자4자로변환 + If CB(i).Split(CChar(vbTab))(ii).Trim = "" Then + Me.냉동기ComboBox.SelectedIndex = 0 + Else + Me.냉동기ComboBox.Text = CB(i).Split(CChar(vbTab))(ii).Trim + End If + ' Me.냉동기ComboBox.Text = CStr(IIf(CB(i).Split(CChar(vbTab))(ii).Trim = "", "0", CB(i).Split(CChar(vbTab))(ii).Trim)) + Case 3 + 2 '//공란 + If CB(i).Split(CChar(vbTab))(ii).Trim = "" Then + Me.냉매방식ComboBox.SelectedIndex = 0 + Else + Me.냉매방식ComboBox.Text = CB(i).Split(CChar(vbTab))(ii).Trim + End If + ' Me.냉매방식ComboBox.Text = CStr(IIf(CB(i).Split(CChar(vbTab))(ii).Trim = "", "0", CB(i).Split(CChar(vbTab))(ii).Trim)) + Case 4 + 2 + If CB(i).Split(CChar(vbTab))(ii).Trim = "" Then + Me.펌프운전제어유무ComboBox.SelectedIndex = 0 + Else + Me.펌프운전제어유무ComboBox.Text = CB(i).Split(CChar(vbTab))(ii).Trim + End If + 'Me.펌프운전제어유무ComboBox.Text = CStr(IIf(CB(i).Split(CChar(vbTab))(ii).Trim = "", "0", CB(i).Split(CChar(vbTab))(ii).Trim)) + Case 5 + 2 + Me.급수온도NTb.Text = CB(i).Split(CChar(vbTab))(ii).Trim + Case 6 + 2 + Me.환수온도NTb.Text = CB(i).Split(CChar(vbTab))(ii).Trim + Case 7 + 2 + Me.설정점에서의온도차NTb.Text = CB(i).Split(CChar(vbTab))(ii).Trim + Case 8 + 2 + Me.냉매의비열NTb.Text = CB(i).Split(CChar(vbTab))(ii).Trim + Case 9 + 2 + Me.냉매의밀도NTb.Text = CB(i).Split(CChar(vbTab))(ii).Trim + Case 10 + 2 + Me.냉매의점도NTb.Text = CB(i).Split(CChar(vbTab))(ii).Trim + Case 11 + 2 + Me.배관의압력손실NTb.Text = CB(i).Split(CChar(vbTab))(ii).Trim + Case 12 + 2 + Me.개별저항비율NTb.Text = CB(i).Split(CChar(vbTab))(ii).Trim + Case 13 + 2 + Me.펌프동력NTb1.Text = CB(i).Split(CChar(vbTab))(ii).Trim + Case 15 + 2 + Me.공급범위의길이NTb.Text = CB(i).Split(CChar(vbTab))(ii).Trim + Case 16 + 2 + Me.공급범위의넓이NTb.Text = CB(i).Split(CChar(vbTab))(ii).Trim + Case 17 + 2 + Me.열층의수NTb.Text = CB(i).Split(CChar(vbTab))(ii).Trim + Case 18 + 2 + Me.층고NTb1.Text = CB(i).Split(CChar(vbTab))(ii).Trim + Case 20 + 2 + Me.생산기기압력손실NTb.Text = CB(i).Split(CChar(vbTab))(ii).Trim + Case 21 + 2 + Me.사용기기압력손실NTb.Text = CB(i).Split(CChar(vbTab))(ii).Trim + Case 22 + 2 + Me.제어밸브압력손실NTb.Text = CB(i).Split(CChar(vbTab))(ii).Trim + End Select + Next + Next + + Me.bs.EndEdit() + End If + End Sub + +#Region "기본" + Private Sub MdiMain_FormClosed(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosedEventArgs) Handles Me.FormClosed + CEnergy.ARINCLASS.SaveLoad_FrmSetting(Me, Me.bs.Position, True) + End Sub + Private Function GetMaxCode(ByVal dt As DataTable) As String + Try + Dim Dr As DataRow = dt.Select("", "code desc")(0) + Return Format(CInt(Dr("code")) + 1, "0000") + Catch ex As Exception + Return "0001" + End Try + End Function + + Private Sub AddNewDataRow_bunbae(ByVal sender As Object, ByVal e As System.Data.DataTableNewRowEventArgs) + e.Row.Item("code") = GetMaxCode(DSET.tbl_bunbae) + End Sub + + Private Sub ToolStripButton48_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt_add.Click + If Not EndEdit(Me.bs) Then Return + Me.bs.AddNew() + INitRow(Me.Controls) + End Sub + + + Private Sub ToolStripButton49_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt_Del.Click + Dbbase.DelCrow(Me.bs, True) + End Sub + + Private Sub ToolStripButton51_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt_cancel.Click + If Not EndEdit(Me.bs) Then Return + Data_Cancel(DSET.tbl_profile, Nothing) + End Sub + + Private Sub Binding_Zone() + + '//냉방분배시스템 + Dim bs_냉동기ComboBox As New BindingSource(DSET, "tbl_nangbangkiki") + Me.냉동기ComboBox.DataSource = bs_냉동기ComboBox + bs_냉동기ComboBox.Sort = "code" + 냉동기ComboBox.DisplayMember = "설명" + 냉동기ComboBox.ValueMember = "code" + Me.냉동기ComboBox.DataBindings.Add("selectedvalue", Me.bs, "냉동기") + 'AddHandler 냉동기ComboBox.KeyDown, AddressOf Cmb_DeleteVal + + + Dim bs_냉매방식ComboBox As New BindingSource(DSET, "tbl_common") + bs_냉매방식ComboBox.Filter = "gubun='1055'" + 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(DSET, "tbl_common") + bs_펌프운전제어유무ComboBox.Filter = "gubun='1056'" + 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_cmb_그룹분배 As New BindingSource(DSET, "tbl_common") + bs_cmb_그룹분배.Sort = "code" + bs_cmb_그룹분배.Filter = "gubun='1201'" + Me.cmb_그룹_분배.DataSource = bs_cmb_그룹분배 + Me.cmb_그룹_분배.DisplayMember = "name" + Me.cmb_그룹_분배.ValueMember = "name" + Me.cmb_그룹_분배.DataBindings.Add("selectedvalue", Me.bs, "그룹") + 'AddHandler 조명방식ComboBox.KeyDown, AddressOf Cmb_DeleteVal + + 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 + If Me.bs.Position < Me.bs.Count Then Me.bs.Position += 1 + Else + If Me.bs.Position > 0 Then Me.bs.Position -= 1 + End If + Me.Validate() + My.Application.DoEvents() + End Sub +#End Region + + Private Sub bt_Del_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles bt_Del.MouseDown + If e.Button = Windows.Forms.MouseButtons.Right Then + If MsgBox("전체삭제를 하시겠습니까?", MsgBoxStyle.Information Or MsgBoxStyle.OkCancel, "확인") = MsgBoxResult.Ok Then + Dim dR() As DataRow = DSET.tbl_bunbae.Select(Me.bs.Filter, "") + For i As Integer = dR.GetUpperBound(0) To 0 Step -1 + dR(i).Delete() + Next + + DSET.tbl_bunbae.AcceptChanges() + End If + End If + End Sub + + Private Sub 냉매방식ComboBox_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 냉매방식ComboBox.SelectedIndexChanged + Try + Select Case Me.냉매방식ComboBox.Text + Case "물" + Me.냉매의비열NTb.Text = "4.18" + Me.냉매의밀도NTb.Text = "1000" + Me.냉매의점도NTb.Text = "1" + Case "40%글리콜" + Me.냉매의비열NTb.Text = "3.5" + Me.냉매의밀도NTb.Text = "1070" + Me.냉매의점도NTb.Text = "4.4" + Case "40%글루콜" '디비에 글루콜로 명기되어 임시로 쓰임 디비 수정시 삭제 필요 + Me.냉매의비열NTb.Text = "3.5" + Me.냉매의밀도NTb.Text = "1070" + Me.냉매의점도NTb.Text = "4.4" + Case Else + Me.냉매의비열NTb.Text = "" + Me.냉매의밀도NTb.Text = "" + Me.냉매의점도NTb.Text = "" + End Select + bs.EndEdit() + Catch ex As Exception + + End Try + + End Sub + + Private Sub 급수온도NTb_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles 급수온도NTb.TextChanged + Try + Me.설정점에서의온도차NTb.Text = TOST(TOSG(Me.환수온도NTb.Text) - TOSG(Me.급수온도NTb.Text)) + Catch ex As Exception + + End Try + + End Sub + + Private Sub 환수온도NTb_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles 환수온도NTb.TextChanged + Try + Me.설정점에서의온도차NTb.Text = TOST(TOSG(Me.환수온도NTb.Text) - TOSG(Me.급수온도NTb.Text)) + Catch ex As Exception + + End Try + + End Sub + + + Private Sub dv_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles dv.MouseUp + If Prj.UserAuthType = "ADMIN" OrElse Prj.UserAuthType = "BOTH" OrElse Prj.UserAuthType = "BOTH2" OrElse Prj.UserAuthType = "BOTH1" Then '//2011.03.08 추가 + If e.Button = Windows.Forms.MouseButtons.Right Then + Dim Frm_FilterA As New Frm_Filter + Frm_FilterA.ColumTitle = getColCaption(Me.DT) + Frm_FilterA.ColumList = getColName(Me.DT) + Frm_FilterA.Colorlist = "냉동기" + Frm_FilterA.Numfield = "" '//20100618 Color 리스트처럼 , 구분해서 필드들을 모두 넣으세요. + Frm_FilterA.Default_Filter = "code <> '0'" + + If Frm_FilterA.ShowDialog <> Windows.Forms.DialogResult.OK Then Return '//창떳을떄 확인아ㅣ고 취소눌르면 다음을 수행하지않는다는거에요. + Dim Filter As String = Frm_FilterA.tb_filter.Text '//값은 아까 그 텍박에 잇구요. + Try + Me.bs.Filter = Filter + + '//바꾸기값이 있으면 변경 20100618 + If Frm_FilterA.cmb_fieldc.SelectedIndex >= 0 AndAlso Frm_FilterA.cmb_fieldc.Text.ToLower <> "code" AndAlso _ + Frm_FilterA.tb_valuec.Text <> "" Then + Dim Drow() As DataRow = Me.DT.Select(Filter) + For Each Dr As DataRow In Drow + Dr(Frm_FilterA.cmb_fieldc.Text) = Frm_FilterA.tb_valuec.Text + Next + MsgBox("바꾸기 완료", MsgBoxStyle.Information, "확인") + End If + + Catch ex As Exception + Me.bs.Filter = "" + End Try + End If + End If + End Sub + + Private Sub dv_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles dv.KeyDown + '//여기보시면 alt+d 누르면 한줄을 경고없이(falsE)삭제하도록 햇어요.. 사실원래 밋alt +d 인데.. ㅎㅎ 잘못해서 ctrl 됫다는 + If Prj.UserAuthType = "ADMIN" OrElse Prj.UserAuthType = "BOTH" OrElse Prj.UserAuthType = "BOTH2" OrElse Prj.UserAuthType = "BOTH1" Then '//2011.03.08 추가 + Select Case e.KeyCode + Case Keys.D + If e.Alt Then + Dbbase.DelCrow(Me.bs, False) + End If + Case Keys.C + If e.Control Then + Me.SrcDrv = Me.bs.Current + If Me.SrcDrv Is Nothing Then + MsgBox("저장할 ROW가 없습니다", MsgBoxStyle.Information, "확인") + Return + End If + ' My.Computer.Clipboard.SetData("ZDATA", Drv) + End If + Case Keys.V + If e.Control Then + If Me.SrcDrv Is Nothing Then Return + Me.bt_add.PerformClick() '//신규추가 + Dim NewDrv As DataRowView = Me.bs.Current + + For Each C As DataColumn In Me.DT.Columns + If C.ColumnName.ToUpper = "CODE" Then + ElseIf C.ColumnName.ToUpper = "설명" Then + NewDrv(C.ColumnName) = SrcDrv(C.ColumnName) & "#1" + Else + NewDrv(C.ColumnName) = SrcDrv(C.ColumnName) + End If + Next + Me.bs.EndEdit() + bs.MoveLast() + End If + End Select + End If + End Sub + + Private Sub bs_CurrentChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bs.CurrentChanged + If Not Init Then Return + Me.bs.EndEdit() + End Sub + + Private Sub SplitContainer1_Panel2_Paint(sender As System.Object, e As System.Windows.Forms.PaintEventArgs) Handles SplitContainer1.Panel2.Paint + + End Sub +End Class \ No newline at end of file diff --git a/ArinWarev1/Forms/v20091231/Frm_NaengBang.Designer.vb b/ArinWarev1/Forms/v20091231/Frm_NaengBang.Designer.vb new file mode 100644 index 0000000..a067a56 --- /dev/null +++ b/ArinWarev1/Forms/v20091231/Frm_NaengBang.Designer.vb @@ -0,0 +1,970 @@ + _ +Partial Class Frm_NaengBang + Inherits CForm + + 'Form은 Dispose를 재정의하여 구성 요소 목록을 정리합니다. + _ + Protected Overrides Sub Dispose(ByVal disposing As Boolean) + Try + If disposing AndAlso components IsNot Nothing Then + components.Dispose() + End If + Finally + MyBase.Dispose(disposing) + End Try + End Sub + + 'Windows Form 디자이너에 필요합니다. + Private components As System.ComponentModel.IContainer + + '참고: 다음 프로시저는 Windows Form 디자이너에 필요합니다. + '수정하려면 Windows Form 디자이너를 사용하십시오. + '코드 편집기를 사용하여 수정하지 마십시오. + _ + Private Sub InitializeComponent() + Me.components = New System.ComponentModel.Container() + Dim Label215 As System.Windows.Forms.Label + Dim Label216 As System.Windows.Forms.Label + Dim Label1 As System.Windows.Forms.Label + Dim Label2 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 Label8 As System.Windows.Forms.Label + Dim 냉동기종류Label 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 resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(Frm_NaengBang)) + Me.GroupBox18 = New System.Windows.Forms.GroupBox() + Me.Label17 = New System.Windows.Forms.Label() + Me.cmb_신재생 = New Eco2Ar.MyCmb() + Me.신재생연결여부ComboBox1 = New Eco2Ar.MyCmb() + Me.tb_zone_cnt = New System.Windows.Forms.TextBox() + Me.Label47 = New System.Windows.Forms.Label() + Me.PictureBox2 = New System.Windows.Forms.PictureBox() + Me.GroupBox11 = New System.Windows.Forms.GroupBox() + Me.Label9 = New System.Windows.Forms.Label() + Me.열성능비NTb = New Eco2Ar.MyTb() + Me.bs = New System.Windows.Forms.BindingSource(Me.components) + Me.DS = New Eco2Ar.DS() + Me.냉동기용량NTb = New Eco2Ar.MyTb() + Me.냉동기방식ComboBox = New Eco2Ar.MyCmb() + Me.PictureBox1 = New System.Windows.Forms.PictureBox() + Me.Label214 = New System.Windows.Forms.Label() + Me.GroupBox19 = New System.Windows.Forms.GroupBox() + Me.cmb_열생산연결방식 = New Eco2Ar.MyCmb() + Me.cmb_사용연료 = New Eco2Ar.MyCmb() + Me.온수열생산기기ComboBox = New Eco2Ar.MyCmb() + Me.Label213 = New System.Windows.Forms.Label() + Me.Label212 = New System.Windows.Forms.Label() + Me.Label210 = New System.Windows.Forms.Label() + Me.압축기제어방식ComboBox = New Eco2Ar.MyCmb() + Me.냉동기압축방식ComboBox = New Eco2Ar.MyCmb() + Me.냉동기종류ComboBox = New Eco2Ar.MyCmb() + Me.냉동기설비시스템ComboBox = New Eco2Ar.MyCmb() + Me.제어방식ComboBox = New Eco2Ar.MyCmb() + Me.PictureBox3 = New System.Windows.Forms.PictureBox() + Me.재냉각기GroupBox = New System.Windows.Forms.GroupBox() + Me.증발식건식냉각기ComboBox = New Eco2Ar.MyCmb() + Me.증발식냉각기ComboBox = New Eco2Ar.MyCmb() + Me.보조방음기유무ComboBox = New Eco2Ar.MyCmb() + Me.냉각수토출온도NTb = New Eco2Ar.MyTb() + Me.Label18 = New System.Windows.Forms.Label() + Me.PictureBox5 = New System.Windows.Forms.PictureBox() + Me.SplitContainer1 = New System.Windows.Forms.SplitContainer() + Me.dv = New CEnergy.arindv() + Me.DataGridViewTextBoxColumn1 = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.lb_grpname = New System.Windows.Forms.Label() + 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() + Me.bt_Del = New System.Windows.Forms.ToolStripButton() + Me.bt_cancel = New System.Windows.Forms.ToolStripButton() + Me.ToolStripSeparator1 = New System.Windows.Forms.ToolStripSeparator() + Me.lbl_pos = New System.Windows.Forms.ToolStripLabel() + Me.Label16 = New System.Windows.Forms.Label() + Me.PictureBox4 = New System.Windows.Forms.PictureBox() + Label215 = New System.Windows.Forms.Label() + Label216 = New System.Windows.Forms.Label() + Label1 = New System.Windows.Forms.Label() + Label2 = 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() + Label8 = New System.Windows.Forms.Label() + 냉동기종류Label = 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() + Me.GroupBox18.SuspendLayout() + CType(Me.PictureBox2, System.ComponentModel.ISupportInitialize).BeginInit() + Me.GroupBox11.SuspendLayout() + CType(Me.bs, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.DS, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit() + Me.GroupBox19.SuspendLayout() + CType(Me.PictureBox3, System.ComponentModel.ISupportInitialize).BeginInit() + Me.재냉각기GroupBox.SuspendLayout() + CType(Me.PictureBox5, System.ComponentModel.ISupportInitialize).BeginInit() + Me.SplitContainer1.Panel1.SuspendLayout() + Me.SplitContainer1.Panel2.SuspendLayout() + Me.SplitContainer1.SuspendLayout() + CType(Me.dv, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.bn, System.ComponentModel.ISupportInitialize).BeginInit() + Me.bn.SuspendLayout() + CType(Me.PictureBox4, System.ComponentModel.ISupportInitialize).BeginInit() + Me.SuspendLayout() + ' + 'Label215 + ' + Label215.AutoSize = True + Label215.BackColor = System.Drawing.Color.FromArgb(CType(CType(219, Byte), Integer), CType(CType(221, Byte), Integer), CType(CType(223, Byte), Integer)) + Label215.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label215.Location = New System.Drawing.Point(6, 33) + Label215.Name = "Label215" + Label215.Size = New System.Drawing.Size(134, 14) + Label215.TabIndex = 0 + Label215.Text = "-신재생 시스템 연결 여부:" + ' + 'Label216 + ' + Label216.AutoSize = True + Label216.BackColor = System.Drawing.Color.FromArgb(CType(CType(219, Byte), Integer), CType(CType(221, Byte), Integer), CType(CType(223, Byte), Integer)) + Label216.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label216.Location = New System.Drawing.Point(6, 57) + Label216.Name = "Label216" + Label216.Size = New System.Drawing.Size(84, 14) + Label216.TabIndex = 2 + Label216.Text = "-연결된 시스템:" + ' + 'Label1 + ' + 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(8, 32) + Label1.Name = "Label1" + Label1.Size = New System.Drawing.Size(69, 14) + Label1.TabIndex = 0 + Label1.Text = "냉동기 방식:" + ' + 'Label2 + ' + Label2.AutoSize = True + Label2.BackColor = System.Drawing.Color.FromArgb(CType(CType(219, Byte), Integer), CType(CType(221, Byte), Integer), CType(CType(223, Byte), Integer)) + Label2.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label2.Location = New System.Drawing.Point(8, 57) + Label2.Name = "Label2" + Label2.Size = New System.Drawing.Size(109, 14) + Label2.TabIndex = 2 + Label2.Text = "냉동기 총 용량[kW]:" + ' + 'Label3 + ' + Label3.AutoSize = True + Label3.BackColor = System.Drawing.Color.FromArgb(CType(CType(219, Byte), Integer), CType(CType(221, Byte), Integer), CType(CType(223, Byte), Integer)) + Label3.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label3.Location = New System.Drawing.Point(8, 80) + Label3.Name = "Label3" + Label3.Size = New System.Drawing.Size(182, 14) + Label3.TabIndex = 4 + Label3.Text = "정격냉열성능지수; 열성능비(COP):" + ' + 'Label4 + ' + Label4.AutoSize = True + Label4.BackColor = System.Drawing.Color.FromArgb(CType(CType(243, Byte), Integer), CType(CType(244, Byte), Integer), CType(CType(246, Byte), Integer)) + Label4.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label4.Location = New System.Drawing.Point(7, 298) + Label4.Name = "Label4" + Label4.Size = New System.Drawing.Size(76, 14) + Label4.TabIndex = 159 + Label4.Text = "2. 열생산기기" + ' + 'Label5 + ' + 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, 110) + Label5.Name = "Label5" + Label5.Size = New System.Drawing.Size(162, 14) + Label5.TabIndex = 150 + Label5.Text = "왕복동/스크롤압축기 제어방식:" + ' + 'Label6 + ' + 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, 88) + Label6.Name = "Label6" + Label6.Size = New System.Drawing.Size(91, 14) + Label6.TabIndex = 148 + Label6.Text = "냉동기 압축방식:" + ' + 'Label7 + ' + 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, 166) + Label7.Name = "Label7" + Label7.Size = New System.Drawing.Size(102, 14) + Label7.TabIndex = 152 + Label7.Text = "냉동기 설비시스템:" + ' + 'Label8 + ' + Label8.AutoSize = True + Label8.BackColor = System.Drawing.Color.FromArgb(CType(CType(243, Byte), Integer), CType(CType(244, Byte), Integer), CType(CType(246, Byte), Integer)) + Label8.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label8.Location = New System.Drawing.Point(7, 191) + Label8.Name = "Label8" + Label8.Size = New System.Drawing.Size(55, 14) + Label8.TabIndex = 154 + Label8.Text = "제어방식:" + ' + '냉동기종류Label + ' + 냉동기종류Label.AutoSize = True + 냉동기종류Label.BackColor = System.Drawing.Color.FromArgb(CType(CType(243, Byte), Integer), CType(CType(244, Byte), Integer), CType(CType(246, Byte), Integer)) + 냉동기종류Label.ForeColor = System.Drawing.SystemColors.ControlDarkDark + 냉동기종류Label.Location = New System.Drawing.Point(6, 40) + 냉동기종류Label.Name = "냉동기종류Label" + 냉동기종류Label.Size = New System.Drawing.Size(116, 14) + 냉동기종류Label.TabIndex = 146 + 냉동기종류Label.Text = "＊압축식 냉동기 종류:" + ' + 'Label10 + ' + Label10.AutoSize = True + Label10.BackColor = System.Drawing.Color.FromArgb(CType(CType(243, Byte), Integer), CType(CType(244, Byte), Integer), CType(CType(246, Byte), Integer)) + Label10.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label10.Location = New System.Drawing.Point(6, 39) + Label10.Name = "Label10" + Label10.Size = New System.Drawing.Size(127, 14) + Label10.TabIndex = 22 + Label10.Text = "증발식 또는 건식냉각기:" + ' + 'Label11 + ' + Label11.AutoSize = True + Label11.BackColor = System.Drawing.Color.FromArgb(CType(CType(243, Byte), Integer), CType(CType(244, Byte), Integer), CType(CType(246, Byte), Integer)) + Label11.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label11.Location = New System.Drawing.Point(6, 112) + Label11.Name = "Label11" + Label11.Size = New System.Drawing.Size(110, 14) + Label11.TabIndex = 28 + Label11.Text = "냉각탑 출구 온도[C]:" + ' + 'Label12 + ' + Label12.AutoSize = True + Label12.BackColor = System.Drawing.Color.FromArgb(CType(CType(243, Byte), Integer), CType(CType(244, Byte), Integer), CType(CType(246, Byte), Integer)) + Label12.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label12.Location = New System.Drawing.Point(6, 87) + Label12.Name = "Label12" + Label12.Size = New System.Drawing.Size(149, 14) + Label12.TabIndex = 26 + Label12.Text = "재냉각기의 보조방음기 유무:" + ' + 'Label13 + ' + Label13.AutoSize = True + Label13.BackColor = System.Drawing.Color.FromArgb(CType(CType(243, Byte), Integer), CType(CType(244, Byte), Integer), CType(CType(246, Byte), Integer)) + Label13.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label13.Location = New System.Drawing.Point(6, 63) + Label13.Name = "Label13" + Label13.Size = New System.Drawing.Size(180, 14) + Label13.TabIndex = 24 + Label13.Text = "증발식냉각기(폐쇄형,개방형 순환):" + ' + 'Label14 + ' + Label14.AutoSize = True + Label14.BackColor = System.Drawing.Color.FromArgb(CType(CType(243, Byte), Integer), CType(CType(244, Byte), Integer), CType(CType(246, Byte), Integer)) + Label14.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label14.Location = New System.Drawing.Point(7, 272) + Label14.Name = "Label14" + Label14.Size = New System.Drawing.Size(65, 14) + Label14.TabIndex = 163 + Label14.Text = "1. 사용연료" + ' + 'Label15 + ' + Label15.AutoSize = True + Label15.BackColor = System.Drawing.Color.FromArgb(CType(CType(243, Byte), Integer), CType(CType(244, Byte), Integer), CType(CType(246, Byte), Integer)) + Label15.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label15.Location = New System.Drawing.Point(7, 246) + Label15.Name = "Label15" + Label15.Size = New System.Drawing.Size(101, 14) + Label15.TabIndex = 165 + Label15.Text = "0. 열생산 연결방식" + ' + 'GroupBox18 + ' + Me.GroupBox18.BackColor = System.Drawing.Color.White + Me.GroupBox18.Controls.Add(Me.Label17) + Me.GroupBox18.Controls.Add(Me.cmb_신재생) + Me.GroupBox18.Controls.Add(Me.신재생연결여부ComboBox1) + Me.GroupBox18.Controls.Add(Label216) + Me.GroupBox18.Controls.Add(Label215) + Me.GroupBox18.Controls.Add(Me.tb_zone_cnt) + Me.GroupBox18.Controls.Add(Me.Label47) + Me.GroupBox18.Controls.Add(Me.PictureBox2) + Me.GroupBox18.Location = New System.Drawing.Point(297, 41) + Me.GroupBox18.Name = "GroupBox18" + Me.GroupBox18.Size = New System.Drawing.Size(275, 108) + Me.GroupBox18.TabIndex = 1 + Me.GroupBox18.TabStop = False + ' + 'Label17 + ' + Me.Label17.AutoSize = True + Me.Label17.BackColor = System.Drawing.Color.FromArgb(CType(CType(219, Byte), Integer), CType(CType(221, Byte), Integer), CType(CType(223, Byte), Integer)) + Me.Label17.Location = New System.Drawing.Point(2, 13) + Me.Label17.Name = "Label17" + Me.Label17.Size = New System.Drawing.Size(181, 14) + Me.Label17.TabIndex = 170 + Me.Label17.Text = "[신재생 및 열병합 시스템 연결여부]" + ' + 'cmb_신재생 + ' + Me.cmb_신재생.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList + Me.cmb_신재생.FormattingEnabled = True + Me.cmb_신재생.Location = New System.Drawing.Point(186, 50) + Me.cmb_신재생.Name = "cmb_신재생" + Me.cmb_신재생.NectControl = Nothing + Me.cmb_신재생.Size = New System.Drawing.Size(84, 22) + Me.cmb_신재생.TabIndex = 3 + ' + '신재생연결여부ComboBox1 + ' + Me.신재생연결여부ComboBox1.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList + Me.신재생연결여부ComboBox1.FormattingEnabled = True + Me.신재생연결여부ComboBox1.Location = New System.Drawing.Point(186, 24) + Me.신재생연결여부ComboBox1.Name = "신재생연결여부ComboBox1" + Me.신재생연결여부ComboBox1.NectControl = Nothing + Me.신재생연결여부ComboBox1.Size = New System.Drawing.Size(84, 22) + Me.신재생연결여부ComboBox1.TabIndex = 1 + ' + 'tb_zone_cnt + ' + 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(186, 75) + Me.tb_zone_cnt.Name = "tb_zone_cnt" + Me.tb_zone_cnt.Size = New System.Drawing.Size(84, 21) + Me.tb_zone_cnt.TabIndex = 1 + Me.tb_zone_cnt.Text = "0" + Me.tb_zone_cnt.TextAlign = System.Windows.Forms.HorizontalAlignment.Center + ' + 'Label47 + ' + Me.Label47.AutoSize = True + Me.Label47.BackColor = System.Drawing.Color.FromArgb(CType(CType(219, Byte), Integer), CType(CType(221, Byte), Integer), CType(CType(223, Byte), Integer)) + Me.Label47.ForeColor = System.Drawing.Color.DarkCyan + Me.Label47.Location = New System.Drawing.Point(6, 78) + Me.Label47.Name = "Label47" + Me.Label47.Size = New System.Drawing.Size(184, 14) + Me.Label47.TabIndex = 0 + Me.Label47.Text = "-냉방생산기기로 적용된 입력존 수 : " + Me.Label47.TextAlign = System.Drawing.ContentAlignment.MiddleRight + ' + 'PictureBox2 + ' + Me.PictureBox2.BackColor = System.Drawing.Color.FromArgb(CType(CType(219, Byte), Integer), CType(CType(221, Byte), Integer), CType(CType(223, Byte), Integer)) + Me.PictureBox2.Location = New System.Drawing.Point(1, 9) + Me.PictureBox2.Name = "PictureBox2" + Me.PictureBox2.Size = New System.Drawing.Size(272, 95) + Me.PictureBox2.TabIndex = 169 + Me.PictureBox2.TabStop = False + ' + 'GroupBox11 + ' + Me.GroupBox11.BackColor = System.Drawing.Color.White + Me.GroupBox11.Controls.Add(Me.Label9) + Me.GroupBox11.Controls.Add(Label1) + Me.GroupBox11.Controls.Add(Me.열성능비NTb) + Me.GroupBox11.Controls.Add(Label2) + Me.GroupBox11.Controls.Add(Me.냉동기용량NTb) + Me.GroupBox11.Controls.Add(Label3) + Me.GroupBox11.Controls.Add(Me.냉동기방식ComboBox) + Me.GroupBox11.Controls.Add(Me.PictureBox1) + Me.GroupBox11.Location = New System.Drawing.Point(6, 41) + Me.GroupBox11.Name = "GroupBox11" + Me.GroupBox11.Size = New System.Drawing.Size(290, 108) + Me.GroupBox11.TabIndex = 0 + Me.GroupBox11.TabStop = False + ' + 'Label9 + ' + Me.Label9.AutoSize = True + Me.Label9.BackColor = System.Drawing.Color.FromArgb(CType(CType(219, Byte), Integer), CType(CType(221, Byte), Integer), CType(CType(223, Byte), Integer)) + Me.Label9.Location = New System.Drawing.Point(6, 13) + Me.Label9.Name = "Label9" + Me.Label9.Size = New System.Drawing.Size(70, 14) + Me.Label9.TabIndex = 170 + Me.Label9.Text = "[일반데이터]" + ' + '열성능비NTb + ' + Me.열성능비NTb.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bs, "열성능비", True)) + Me.열성능비NTb.Location = New System.Drawing.Point(197, 77) + Me.열성능비NTb.Name = "열성능비NTb" + Me.열성능비NTb.NectControl = Nothing + Me.열성능비NTb.Size = New System.Drawing.Size(84, 21) + Me.열성능비NTb.TabIndex = 5 + Me.열성능비NTb.TextAlign = System.Windows.Forms.HorizontalAlignment.Right + Me.열성능비NTb.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + ' + 'bs + ' + Me.bs.DataMember = "tbl_nangbangkiki" + Me.bs.DataSource = Me.DS + Me.bs.Filter = "code <> '0'" + ' + 'DS + ' + Me.DS.DataSetName = "DS" + Me.DS.SchemaSerializationMode = System.Data.SchemaSerializationMode.IncludeSchema + ' + '냉동기용량NTb + ' + Me.냉동기용량NTb.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bs, "냉동기용량", True)) + Me.냉동기용량NTb.Location = New System.Drawing.Point(197, 53) + Me.냉동기용량NTb.Name = "냉동기용량NTb" + Me.냉동기용량NTb.NectControl = Nothing + Me.냉동기용량NTb.Size = New System.Drawing.Size(84, 21) + Me.냉동기용량NTb.TabIndex = 3 + Me.냉동기용량NTb.TextAlign = System.Windows.Forms.HorizontalAlignment.Right + Me.냉동기용량NTb.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + ' + '냉동기방식ComboBox + ' + Me.냉동기방식ComboBox.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList + Me.냉동기방식ComboBox.FormattingEnabled = True + Me.냉동기방식ComboBox.Location = New System.Drawing.Point(197, 29) + Me.냉동기방식ComboBox.Name = "냉동기방식ComboBox" + Me.냉동기방식ComboBox.NectControl = Nothing + Me.냉동기방식ComboBox.Size = New System.Drawing.Size(84, 22) + Me.냉동기방식ComboBox.TabIndex = 1 + ' + 'PictureBox1 + ' + 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(2, 9) + Me.PictureBox1.Name = "PictureBox1" + Me.PictureBox1.Size = New System.Drawing.Size(286, 95) + Me.PictureBox1.TabIndex = 169 + Me.PictureBox1.TabStop = False + ' + 'Label214 + ' + Me.Label214.AutoSize = True + Me.Label214.BackColor = System.Drawing.Color.FromArgb(CType(CType(243, Byte), Integer), CType(CType(244, Byte), Integer), CType(CType(246, Byte), Integer)) + Me.Label214.ForeColor = System.Drawing.Color.Black + Me.Label214.Location = New System.Drawing.Point(11, 222) + Me.Label214.Name = "Label214" + Me.Label214.Size = New System.Drawing.Size(84, 14) + Me.Label214.TabIndex = 161 + Me.Label214.Text = "[흡수식 냉동기]" + ' + 'GroupBox19 + ' + Me.GroupBox19.BackColor = System.Drawing.Color.White + Me.GroupBox19.Controls.Add(Label15) + Me.GroupBox19.Controls.Add(Me.cmb_열생산연결방식) + Me.GroupBox19.Controls.Add(Label14) + Me.GroupBox19.Controls.Add(Me.cmb_사용연료) + Me.GroupBox19.Controls.Add(Label4) + Me.GroupBox19.Controls.Add(Me.Label214) + Me.GroupBox19.Controls.Add(Me.온수열생산기기ComboBox) + Me.GroupBox19.Controls.Add(Me.Label213) + Me.GroupBox19.Controls.Add(Label5) + Me.GroupBox19.Controls.Add(Label6) + Me.GroupBox19.Controls.Add(Me.Label212) + Me.GroupBox19.Controls.Add(Label7) + Me.GroupBox19.Controls.Add(Me.Label210) + Me.GroupBox19.Controls.Add(Me.압축기제어방식ComboBox) + Me.GroupBox19.Controls.Add(Label8) + Me.GroupBox19.Controls.Add(냉동기종류Label) + Me.GroupBox19.Controls.Add(Me.냉동기압축방식ComboBox) + Me.GroupBox19.Controls.Add(Me.냉동기종류ComboBox) + Me.GroupBox19.Controls.Add(Me.냉동기설비시스템ComboBox) + Me.GroupBox19.Controls.Add(Me.제어방식ComboBox) + Me.GroupBox19.Controls.Add(Me.PictureBox3) + Me.GroupBox19.Location = New System.Drawing.Point(6, 149) + Me.GroupBox19.Name = "GroupBox19" + Me.GroupBox19.Size = New System.Drawing.Size(290, 358) + Me.GroupBox19.TabIndex = 0 + Me.GroupBox19.TabStop = False + ' + 'cmb_열생산연결방식 + ' + 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(169, 242) + Me.cmb_열생산연결방식.Name = "cmb_열생산연결방식" + Me.cmb_열생산연결방식.NectControl = Nothing + Me.cmb_열생산연결방식.Size = New System.Drawing.Size(112, 22) + Me.cmb_열생산연결방식.TabIndex = 164 + ' + 'cmb_사용연료 + ' + 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(169, 268) + Me.cmb_사용연료.Name = "cmb_사용연료" + Me.cmb_사용연료.NectControl = Nothing + Me.cmb_사용연료.Size = New System.Drawing.Size(112, 22) + Me.cmb_사용연료.TabIndex = 162 + ' + '온수열생산기기ComboBox + ' + Me.온수열생산기기ComboBox.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList + Me.온수열생산기기ComboBox.FormattingEnabled = True + Me.온수열생산기기ComboBox.Location = New System.Drawing.Point(169, 294) + Me.온수열생산기기ComboBox.Name = "온수열생산기기ComboBox" + Me.온수열생산기기ComboBox.NectControl = Nothing + Me.온수열생산기기ComboBox.Size = New System.Drawing.Size(112, 22) + Me.온수열생산기기ComboBox.TabIndex = 0 + ' + 'Label213 + ' + Me.Label213.AutoSize = True + Me.Label213.BackColor = System.Drawing.Color.FromArgb(CType(CType(243, Byte), Integer), CType(CType(244, Byte), Integer), CType(CType(246, Byte), Integer)) + Me.Label213.ForeColor = System.Drawing.Color.Black + Me.Label213.Location = New System.Drawing.Point(11, 20) + Me.Label213.Name = "Label213" + Me.Label213.Size = New System.Drawing.Size(84, 14) + Me.Label213.TabIndex = 158 + Me.Label213.Text = "[압축식 냉동기]" + ' + 'Label212 + ' + Me.Label212.AutoSize = True + Me.Label212.BackColor = System.Drawing.Color.FromArgb(CType(CType(243, Byte), Integer), CType(CType(244, Byte), Integer), CType(CType(246, Byte), Integer)) + Me.Label212.ForeColor = System.Drawing.Color.DarkCyan + Me.Label212.Location = New System.Drawing.Point(7, 147) + Me.Label212.Name = "Label212" + Me.Label212.Size = New System.Drawing.Size(177, 14) + Me.Label212.TabIndex = 156 + Me.Label212.Text = "실내공조시스템(=공기냉각에어콘)" + Me.Label212.TextAlign = System.Drawing.ContentAlignment.MiddleRight + ' + 'Label210 + ' + Me.Label210.AutoSize = True + Me.Label210.BackColor = System.Drawing.Color.FromArgb(CType(CType(243, Byte), Integer), CType(CType(244, Byte), Integer), CType(CType(246, Byte), Integer)) + Me.Label210.ForeColor = System.Drawing.Color.DarkCyan + Me.Label210.Location = New System.Drawing.Point(7, 66) + Me.Label210.Name = "Label210" + Me.Label210.Size = New System.Drawing.Size(184, 14) + Me.Label210.TabIndex = 157 + Me.Label210.Text = "수냉각 또는 공기냉각 압축식 냉동기" + Me.Label210.TextAlign = System.Drawing.ContentAlignment.MiddleRight + ' + '압축기제어방식ComboBox + ' + Me.압축기제어방식ComboBox.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList + Me.압축기제어방식ComboBox.FormattingEnabled = True + Me.압축기제어방식ComboBox.Location = New System.Drawing.Point(169, 105) + Me.압축기제어방식ComboBox.Name = "압축기제어방식ComboBox" + Me.압축기제어방식ComboBox.NectControl = Nothing + Me.압축기제어방식ComboBox.Size = New System.Drawing.Size(112, 22) + Me.압축기제어방식ComboBox.TabIndex = 2 + ' + '냉동기압축방식ComboBox + ' + Me.냉동기압축방식ComboBox.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList + Me.냉동기압축방식ComboBox.FormattingEnabled = True + Me.냉동기압축방식ComboBox.Location = New System.Drawing.Point(169, 81) + Me.냉동기압축방식ComboBox.Name = "냉동기압축방식ComboBox" + Me.냉동기압축방식ComboBox.NectControl = Nothing + Me.냉동기압축방식ComboBox.Size = New System.Drawing.Size(112, 22) + Me.냉동기압축방식ComboBox.TabIndex = 1 + ' + '냉동기종류ComboBox + ' + Me.냉동기종류ComboBox.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList + Me.냉동기종류ComboBox.FormattingEnabled = True + Me.냉동기종류ComboBox.Location = New System.Drawing.Point(169, 32) + Me.냉동기종류ComboBox.Name = "냉동기종류ComboBox" + Me.냉동기종류ComboBox.NectControl = Nothing + Me.냉동기종류ComboBox.Size = New System.Drawing.Size(112, 22) + Me.냉동기종류ComboBox.TabIndex = 0 + ' + '냉동기설비시스템ComboBox + ' + Me.냉동기설비시스템ComboBox.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList + Me.냉동기설비시스템ComboBox.FormattingEnabled = True + Me.냉동기설비시스템ComboBox.Location = New System.Drawing.Point(169, 163) + Me.냉동기설비시스템ComboBox.Name = "냉동기설비시스템ComboBox" + Me.냉동기설비시스템ComboBox.NectControl = Nothing + Me.냉동기설비시스템ComboBox.Size = New System.Drawing.Size(112, 22) + Me.냉동기설비시스템ComboBox.TabIndex = 3 + ' + '제어방식ComboBox + ' + Me.제어방식ComboBox.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList + Me.제어방식ComboBox.FormattingEnabled = True + Me.제어방식ComboBox.Location = New System.Drawing.Point(169, 187) + Me.제어방식ComboBox.Name = "제어방식ComboBox" + Me.제어방식ComboBox.NectControl = Nothing + Me.제어방식ComboBox.Size = New System.Drawing.Size(112, 22) + Me.제어방식ComboBox.TabIndex = 4 + ' + 'PictureBox3 + ' + Me.PictureBox3.BackColor = System.Drawing.Color.FromArgb(CType(CType(243, Byte), Integer), CType(CType(244, Byte), Integer), CType(CType(246, Byte), Integer)) + Me.PictureBox3.Location = New System.Drawing.Point(1, 9) + Me.PictureBox3.Name = "PictureBox3" + Me.PictureBox3.Size = New System.Drawing.Size(286, 345) + Me.PictureBox3.TabIndex = 169 + Me.PictureBox3.TabStop = False + ' + '재냉각기GroupBox + ' + Me.재냉각기GroupBox.BackColor = System.Drawing.Color.White + Me.재냉각기GroupBox.Controls.Add(Label10) + Me.재냉각기GroupBox.Controls.Add(Me.증발식건식냉각기ComboBox) + Me.재냉각기GroupBox.Controls.Add(Me.증발식냉각기ComboBox) + Me.재냉각기GroupBox.Controls.Add(Label11) + Me.재냉각기GroupBox.Controls.Add(Me.보조방음기유무ComboBox) + Me.재냉각기GroupBox.Controls.Add(Me.냉각수토출온도NTb) + Me.재냉각기GroupBox.Controls.Add(Label12) + Me.재냉각기GroupBox.Controls.Add(Me.Label18) + Me.재냉각기GroupBox.Controls.Add(Label13) + Me.재냉각기GroupBox.Controls.Add(Me.PictureBox5) + Me.재냉각기GroupBox.Location = New System.Drawing.Point(296, 149) + Me.재냉각기GroupBox.Name = "재냉각기GroupBox" + Me.재냉각기GroupBox.Size = New System.Drawing.Size(273, 358) + Me.재냉각기GroupBox.TabIndex = 31 + Me.재냉각기GroupBox.TabStop = False + ' + '증발식건식냉각기ComboBox + ' + Me.증발식건식냉각기ComboBox.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList + Me.증발식건식냉각기ComboBox.FormattingEnabled = True + Me.증발식건식냉각기ComboBox.Location = New System.Drawing.Point(185, 36) + Me.증발식건식냉각기ComboBox.Name = "증발식건식냉각기ComboBox" + Me.증발식건식냉각기ComboBox.NectControl = Nothing + Me.증발식건식냉각기ComboBox.Size = New System.Drawing.Size(84, 22) + Me.증발식건식냉각기ComboBox.TabIndex = 0 + ' + '증발식냉각기ComboBox + ' + Me.증발식냉각기ComboBox.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList + Me.증발식냉각기ComboBox.FormattingEnabled = True + Me.증발식냉각기ComboBox.Location = New System.Drawing.Point(185, 60) + Me.증발식냉각기ComboBox.Name = "증발식냉각기ComboBox" + Me.증발식냉각기ComboBox.NectControl = Nothing + Me.증발식냉각기ComboBox.Size = New System.Drawing.Size(84, 22) + Me.증발식냉각기ComboBox.TabIndex = 1 + ' + '보조방음기유무ComboBox + ' + Me.보조방음기유무ComboBox.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList + Me.보조방음기유무ComboBox.FormattingEnabled = True + Me.보조방음기유무ComboBox.Location = New System.Drawing.Point(185, 84) + Me.보조방음기유무ComboBox.Name = "보조방음기유무ComboBox" + Me.보조방음기유무ComboBox.NectControl = Nothing + Me.보조방음기유무ComboBox.Size = New System.Drawing.Size(84, 22) + Me.보조방음기유무ComboBox.TabIndex = 2 + ' + '냉각수토출온도NTb + ' + Me.냉각수토출온도NTb.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bs, "냉각탑입구온도", True)) + Me.냉각수토출온도NTb.Location = New System.Drawing.Point(185, 109) + Me.냉각수토출온도NTb.Name = "냉각수토출온도NTb" + Me.냉각수토출온도NTb.NectControl = Nothing + Me.냉각수토출온도NTb.Size = New System.Drawing.Size(84, 21) + Me.냉각수토출온도NTb.TabIndex = 3 + Me.냉각수토출온도NTb.TextAlign = System.Windows.Forms.HorizontalAlignment.Right + Me.냉각수토출온도NTb.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + ' + 'Label18 + ' + Me.Label18.AutoSize = True + Me.Label18.BackColor = System.Drawing.Color.FromArgb(CType(CType(243, Byte), Integer), CType(CType(244, Byte), Integer), CType(CType(246, Byte), Integer)) + Me.Label18.ForeColor = System.Drawing.Color.Black + Me.Label18.Location = New System.Drawing.Point(6, 20) + Me.Label18.Name = "Label18" + Me.Label18.Size = New System.Drawing.Size(100, 14) + Me.Label18.TabIndex = 158 + Me.Label18.Text = "[재냉각기(냉각탑)]" + ' + 'PictureBox5 + ' + Me.PictureBox5.BackColor = System.Drawing.Color.FromArgb(CType(CType(243, Byte), Integer), CType(CType(244, Byte), Integer), CType(CType(246, Byte), Integer)) + Me.PictureBox5.Location = New System.Drawing.Point(2, 9) + Me.PictureBox5.Name = "PictureBox5" + Me.PictureBox5.Size = New System.Drawing.Size(268, 345) + Me.PictureBox5.TabIndex = 169 + Me.PictureBox5.TabStop = False + ' + '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.lb_grpname) + Me.SplitContainer1.Panel1.Controls.Add(Me.bn) + ' + 'SplitContainer1.Panel2 + ' + Me.SplitContainer1.Panel2.BackColor = System.Drawing.Color.White + Me.SplitContainer1.Panel2.Controls.Add(Me.Label16) + Me.SplitContainer1.Panel2.Controls.Add(Me.PictureBox4) + Me.SplitContainer1.Panel2.Controls.Add(Me.재냉각기GroupBox) + Me.SplitContainer1.Panel2.Controls.Add(Me.GroupBox11) + Me.SplitContainer1.Panel2.Controls.Add(Me.GroupBox19) + Me.SplitContainer1.Panel2.Controls.Add(Me.GroupBox18) + Me.SplitContainer1.Size = New System.Drawing.Size(795, 565) + Me.SplitContainer1.SplitterDistance = 212 + Me.SplitContainer1.TabIndex = 128 + ' + 'dv + ' + Me.dv.A_DelCurrentCell = True + Me.dv.A_EnterToTab = True + 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.FromArgb(CType(CType(245, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(246, Byte), Integer)) + 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, 26) + Me.dv.Margin = New System.Windows.Forms.Padding(3, 5, 3, 5) + 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, 497) + Me.dv.TabIndex = 0 + ' + 'DataGridViewTextBoxColumn1 + ' + Me.DataGridViewTextBoxColumn1.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.Fill + Me.DataGridViewTextBoxColumn1.DataPropertyName = "설명" + Me.DataGridViewTextBoxColumn1.HeaderText = "설명" + Me.DataGridViewTextBoxColumn1.Name = "DataGridViewTextBoxColumn1" + ' + 'lb_grpname + ' + Me.lb_grpname.BackColor = System.Drawing.Color.LightSkyBlue + Me.lb_grpname.Dock = System.Windows.Forms.DockStyle.Top + Me.lb_grpname.ForeColor = System.Drawing.SystemColors.HotTrack + Me.lb_grpname.Location = New System.Drawing.Point(0, 0) + Me.lb_grpname.Name = "lb_grpname" + Me.lb_grpname.Size = New System.Drawing.Size(210, 26) + Me.lb_grpname.TabIndex = 98 + Me.lb_grpname.Text = "그룹 :" + Me.lb_grpname.TextAlign = System.Drawing.ContentAlignment.MiddleCenter + ' + '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("나눔고딕 ExtraBold", 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.bn.Location = New System.Drawing.Point(0, 523) + 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, 40) + Me.bn.TabIndex = 1 + Me.bn.Text = "BindingNavigator1" + ' + 'lbl_count + ' + Me.lbl_count.Name = "lbl_count" + Me.lbl_count.Size = New System.Drawing.Size(27, 37) + 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, 37) + 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, 37) + 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, 37) + 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, 40) + ' + 'lbl_pos + ' + Me.lbl_pos.Name = "lbl_pos" + Me.lbl_pos.Size = New System.Drawing.Size(14, 37) + Me.lbl_pos.Text = "0" + ' + 'Label16 + ' + Me.Label16.AutoSize = True + Me.Label16.BackColor = System.Drawing.Color.FromArgb(CType(CType(116, Byte), Integer), CType(CType(158, Byte), Integer), CType(CType(209, Byte), Integer)) + Me.Label16.ForeColor = System.Drawing.Color.White + Me.Label16.Location = New System.Drawing.Point(28, 21) + Me.Label16.Name = "Label16" + Me.Label16.Size = New System.Drawing.Size(40, 14) + Me.Label16.TabIndex = 168 + Me.Label16.Text = "냉방기" + ' + 'PictureBox4 + ' + Me.PictureBox4.BackgroundImage = CType(resources.GetObject("PictureBox4.BackgroundImage"), System.Drawing.Image) + Me.PictureBox4.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch + Me.PictureBox4.Location = New System.Drawing.Point(15, 10) + Me.PictureBox4.Name = "PictureBox4" + Me.PictureBox4.Size = New System.Drawing.Size(134, 30) + Me.PictureBox4.TabIndex = 167 + Me.PictureBox4.TabStop = False + ' + 'Frm_NaengBang + ' + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.None + Me.ClientSize = New System.Drawing.Size(795, 565) + Me.ControlBox = False + Me.Controls.Add(Me.SplitContainer1) + Me.Font = New System.Drawing.Font("나눔고딕 ExtraBold", 8.999999!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.KeyPreview = True + Me.Name = "Frm_NaengBang" + Me.ShowInTaskbar = False + Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen + Me.Text = "냉방기기" + Me.GroupBox18.ResumeLayout(False) + Me.GroupBox18.PerformLayout() + CType(Me.PictureBox2, System.ComponentModel.ISupportInitialize).EndInit() + Me.GroupBox11.ResumeLayout(False) + Me.GroupBox11.PerformLayout() + CType(Me.bs, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.DS, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).EndInit() + Me.GroupBox19.ResumeLayout(False) + Me.GroupBox19.PerformLayout() + CType(Me.PictureBox3, System.ComponentModel.ISupportInitialize).EndInit() + Me.재냉각기GroupBox.ResumeLayout(False) + Me.재냉각기GroupBox.PerformLayout() + CType(Me.PictureBox5, System.ComponentModel.ISupportInitialize).EndInit() + Me.SplitContainer1.Panel1.ResumeLayout(False) + Me.SplitContainer1.Panel2.ResumeLayout(False) + Me.SplitContainer1.Panel2.PerformLayout() + Me.SplitContainer1.ResumeLayout(False) + CType(Me.dv, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.bn, System.ComponentModel.ISupportInitialize).EndInit() + Me.bn.ResumeLayout(False) + Me.bn.PerformLayout() + CType(Me.PictureBox4, System.ComponentModel.ISupportInitialize).EndInit() + Me.ResumeLayout(False) + + End Sub + Friend WithEvents 냉각수토출온도NTb As MyTb + Friend WithEvents 열성능비NTb As MyTb + Friend WithEvents 냉동기용량NTb As MyTb + Public WithEvents DS As Eco2Ar.DS + Friend WithEvents bs As System.Windows.Forms.BindingSource + Friend WithEvents cmb_신재생 As Eco2Ar.MyCmb + Friend WithEvents 신재생연결여부ComboBox1 As Eco2Ar.MyCmb + Friend WithEvents 보조방음기유무ComboBox As Eco2Ar.MyCmb + Friend WithEvents 증발식냉각기ComboBox As Eco2Ar.MyCmb + Friend WithEvents 증발식건식냉각기ComboBox As Eco2Ar.MyCmb + Friend WithEvents 온수열생산기기ComboBox As Eco2Ar.MyCmb + Friend WithEvents 제어방식ComboBox As Eco2Ar.MyCmb + Friend WithEvents 냉동기설비시스템ComboBox As Eco2Ar.MyCmb + Friend WithEvents 압축기제어방식ComboBox As Eco2Ar.MyCmb + Friend WithEvents 냉동기압축방식ComboBox As Eco2Ar.MyCmb + Friend WithEvents 냉동기종류ComboBox As Eco2Ar.MyCmb + Friend WithEvents 냉동기방식ComboBox As Eco2Ar.MyCmb + Friend WithEvents GroupBox18 As System.Windows.Forms.GroupBox + Friend WithEvents GroupBox11 As System.Windows.Forms.GroupBox + Friend WithEvents Label214 As System.Windows.Forms.Label + Friend WithEvents GroupBox19 As System.Windows.Forms.GroupBox + Friend WithEvents Label212 As System.Windows.Forms.Label + Friend WithEvents Label210 As System.Windows.Forms.Label + Friend WithEvents 재냉각기GroupBox As System.Windows.Forms.GroupBox + Friend WithEvents tb_zone_cnt As System.Windows.Forms.TextBox + Friend WithEvents Label47 As System.Windows.Forms.Label + Friend WithEvents SplitContainer1 As System.Windows.Forms.SplitContainer + Friend WithEvents dv As CEnergy.arindv + Friend WithEvents bn As System.Windows.Forms.BindingNavigator + Friend WithEvents bt_add As System.Windows.Forms.ToolStripButton + Friend WithEvents bt_Del As System.Windows.Forms.ToolStripButton + Friend WithEvents bt_cancel As System.Windows.Forms.ToolStripButton + Friend WithEvents ToolStripSeparator1 As System.Windows.Forms.ToolStripSeparator + Friend WithEvents DataGridViewTextBoxColumn1 As System.Windows.Forms.DataGridViewTextBoxColumn + Friend WithEvents lbl_count As System.Windows.Forms.ToolStripLabel + Friend WithEvents lbl_pos As System.Windows.Forms.ToolStripLabel + Friend WithEvents Label213 As System.Windows.Forms.Label + Friend WithEvents cmb_열생산연결방식 As Eco2Ar.MyCmb + Friend WithEvents cmb_사용연료 As Eco2Ar.MyCmb + Friend WithEvents Label17 As System.Windows.Forms.Label + Friend WithEvents PictureBox2 As System.Windows.Forms.PictureBox + Friend WithEvents Label9 As System.Windows.Forms.Label + Friend WithEvents PictureBox1 As System.Windows.Forms.PictureBox + Friend WithEvents PictureBox3 As System.Windows.Forms.PictureBox + Friend WithEvents Label16 As System.Windows.Forms.Label + Friend WithEvents PictureBox4 As System.Windows.Forms.PictureBox + Friend WithEvents Label18 As System.Windows.Forms.Label + Friend WithEvents PictureBox5 As System.Windows.Forms.PictureBox + Friend WithEvents lb_grpname As System.Windows.Forms.Label +End Class diff --git a/ArinWarev1/Forms/v20091231/Frm_NaengBang.resx b/ArinWarev1/Forms/v20091231/Frm_NaengBang.resx new file mode 100644 index 0000000..7b56fbf --- /dev/null +++ b/ArinWarev1/Forms/v20091231/Frm_NaengBang.resx @@ -0,0 +1,278 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + 17, 17 + + + 81, 17 + + + 148, 17 + + + + + /9j/4AAQSkZJRgABAgEASABIAAD/7gAOQWRvYmUAZAAAAAAB/+ED5kV4aWYAAE1NACoAAAAIAAcBEgAD + AAAAAQABAAABGgAFAAAAAQAAAGIBGwAFAAAAAQAAAGoBKAADAAAAAQACAAABMQACAAAAHAAAAHIBMgAC + AAAAFAAAAI6HaQAEAAAAAQAAAKIAAADCAEgAAAABAAAASAAAAAEAAEFkb2JlIFBob3Rvc2hvcCBDUzMg + V2luZG93cwAyMDEwOjA0OjE1IDIwOjMyOjA0AAACoAIABAAAAAEAAAA8oAMABAAAAAEAAAAMAAAAAAAA + AAYBAwADAAAAAQAGAAABGgAFAAAAAQAAARABGwAFAAAAAQAAARgBKAADAAAAAQACAAACAQAEAAAAAQAA + ASACAgAEAAAAAQAAAr4AAAAAAAAASAAAAAEAAABIAAAAAf/Y/+AAEEpGSUYAAQIAAEgASAAA/+0ADEFk + b2JlX0NNAAH/7gAOQWRvYmUAZIAAAAAB/9sAhAAMCAgICQgMCQkMEQsKCxEVDwwMDxUYExMVExMYEQwM + DAwMDBEMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMAQ0LCw0ODRAODhAUDg4OFBQODg4OFBEMDAwM + DBERDAwMDAwMEQwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAz/wAARCAAMADwDASIAAhEBAxEB/90A + BAAE/8QBPwAAAQUBAQEBAQEAAAAAAAAAAwABAgQFBgcICQoLAQABBQEBAQEBAQAAAAAAAAABAAIDBAUG + BwgJCgsQAAEEAQMCBAIFBwYIBQMMMwEAAhEDBCESMQVBUWETInGBMgYUkaGxQiMkFVLBYjM0coLRQwcl + klPw4fFjczUWorKDJkSTVGRFwqN0NhfSVeJl8rOEw9N14/NGJ5SkhbSVxNTk9KW1xdXl9VZmdoaWprbG + 1ub2N0dXZ3eHl6e3x9fn9xEAAgIBAgQEAwQFBgcHBgU1AQACEQMhMRIEQVFhcSITBTKBkRShsUIjwVLR + 8DMkYuFygpJDUxVjczTxJQYWorKDByY1wtJEk1SjF2RFVTZ0ZeLys4TD03Xj80aUpIW0lcTU5PSltcXV + 5fVWZnaGlqa2xtbm9ic3R1dnd4eXp7fH/9oADAMBAAIRAxEAPwDd/amR/pH/AOcf70v2pkf6R/8AnH+9 + UUlofq/Bpevxb37UyP8ASP8A84/3pftTI/0j/wDOP96opJfq/BXr8W9+1Mj/AEj/APOP96X7UyP9I/8A + zj/eqKSX6vwV6/F3ujdbuGS2i5xfU8HVxktIG76XyW99vo27p0XGdO2/ba930dZj+q5dX+qfZPL8VAeD + 341VVr/eZhx+0bu708n/2f/iDFhJQ0NfUFJPRklMRQABAQAADEhMaW5vAhAAAG1udHJSR0IgWFlaIAfO + AAIACQAGADEAAGFjc3BNU0ZUAAAAAElFQyBzUkdCAAAAAAAAAAAAAAAAAAD21gABAAAAANMtSFAgIAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAEWNwcnQAAAFQAAAAM2Rl + c2MAAAGEAAAAbHd0cHQAAAHwAAAAFGJrcHQAAAIEAAAAFHJYWVoAAAIYAAAAFGdYWVoAAAIsAAAAFGJY + WVoAAAJAAAAAFGRtbmQAAAJUAAAAcGRtZGQAAALEAAAAiHZ1ZWQAAANMAAAAhnZpZXcAAAPUAAAAJGx1 + bWkAAAP4AAAAFG1lYXMAAAQMAAAAJHRlY2gAAAQwAAAADHJUUkMAAAQ8AAAIDGdUUkMAAAQ8AAAIDGJU + UkMAAAQ8AAAIDHRleHQAAAAAQ29weXJpZ2h0IChjKSAxOTk4IEhld2xldHQtUGFja2FyZCBDb21wYW55 + AABkZXNjAAAAAAAAABJzUkdCIElFQzYxOTY2LTIuMQAAAAAAAAAAAAAAEnNSR0IgSUVDNjE5NjYtMi4x + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABYWVogAAAAAAAA + 81EAAQAAAAEWzFhZWiAAAAAAAAAAAAAAAAAAAAAAWFlaIAAAAAAAAG+iAAA49QAAA5BYWVogAAAAAAAA + YpkAALeFAAAY2lhZWiAAAAAAAAAkoAAAD4QAALbPZGVzYwAAAAAAAAAWSUVDIGh0dHA6Ly93d3cuaWVj + LmNoAAAAAAAAAAAAAAAWSUVDIGh0dHA6Ly93d3cuaWVjLmNoAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAGRlc2MAAAAAAAAALklFQyA2MTk2Ni0yLjEgRGVmYXVsdCBSR0Ig + Y29sb3VyIHNwYWNlIC0gc1JHQgAAAAAAAAAAAAAALklFQyA2MTk2Ni0yLjEgRGVmYXVsdCBSR0IgY29s + b3VyIHNwYWNlIC0gc1JHQgAAAAAAAAAAAAAAAAAAAAAAAAAAAABkZXNjAAAAAAAAACxSZWZlcmVuY2Ug + Vmlld2luZyBDb25kaXRpb24gaW4gSUVDNjE5NjYtMi4xAAAAAAAAAAAAAAAsUmVmZXJlbmNlIFZpZXdp + bmcgQ29uZGl0aW9uIGluIElFQzYxOTY2LTIuMQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAdmlldwAA + AAAAE6T+ABRfLgAQzxQAA+3MAAQTCwADXJ4AAAABWFlaIAAAAAAATAlWAFAAAABXH+dtZWFzAAAAAAAA + AAEAAAAAAAAAAAAAAAAAAAAAAAACjwAAAAJzaWcgAAAAAENSVCBjdXJ2AAAAAAAABAAAAAAFAAoADwAU + ABkAHgAjACgALQAyADcAOwBAAEUASgBPAFQAWQBeAGMAaABtAHIAdwB8AIEAhgCLAJAAlQCaAJ8ApACp + AK4AsgC3ALwAwQDGAMsA0ADVANsA4ADlAOsA8AD2APsBAQEHAQ0BEwEZAR8BJQErATIBOAE+AUUBTAFS + AVkBYAFnAW4BdQF8AYMBiwGSAZoBoQGpAbEBuQHBAckB0QHZAeEB6QHyAfoCAwIMAhQCHQImAi8COAJB + AksCVAJdAmcCcQJ6AoQCjgKYAqICrAK2AsECywLVAuAC6wL1AwADCwMWAyEDLQM4A0MDTwNaA2YDcgN+ + A4oDlgOiA64DugPHA9MD4APsA/kEBgQTBCAELQQ7BEgEVQRjBHEEfgSMBJoEqAS2BMQE0wThBPAE/gUN + BRwFKwU6BUkFWAVnBXcFhgWWBaYFtQXFBdUF5QX2BgYGFgYnBjcGSAZZBmoGewaMBp0GrwbABtEG4wb1 + BwcHGQcrBz0HTwdhB3QHhgeZB6wHvwfSB+UH+AgLCB8IMghGCFoIbgiCCJYIqgi+CNII5wj7CRAJJQk6 + CU8JZAl5CY8JpAm6Cc8J5Qn7ChEKJwo9ClQKagqBCpgKrgrFCtwK8wsLCyILOQtRC2kLgAuYC7ALyAvh + C/kMEgwqDEMMXAx1DI4MpwzADNkM8w0NDSYNQA1aDXQNjg2pDcMN3g34DhMOLg5JDmQOfw6bDrYO0g7u + DwkPJQ9BD14Peg+WD7MPzw/sEAkQJhBDEGEQfhCbELkQ1xD1ERMRMRFPEW0RjBGqEckR6BIHEiYSRRJk + EoQSoxLDEuMTAxMjE0MTYxODE6QTxRPlFAYUJxRJFGoUixStFM4U8BUSFTQVVhV4FZsVvRXgFgMWJhZJ + FmwWjxayFtYW+hcdF0EXZReJF64X0hf3GBsYQBhlGIoYrxjVGPoZIBlFGWsZkRm3Gd0aBBoqGlEadxqe + GsUa7BsUGzsbYxuKG7Ib2hwCHCocUhx7HKMczBz1HR4dRx1wHZkdwx3sHhYeQB5qHpQevh7pHxMfPh9p + H5Qfvx/qIBUgQSBsIJggxCDwIRwhSCF1IaEhziH7IiciVSKCIq8i3SMKIzgjZiOUI8Ij8CQfJE0kfCSr + JNolCSU4JWgllyXHJfcmJyZXJocmtyboJxgnSSd6J6sn3CgNKD8ocSiiKNQpBik4KWspnSnQKgIqNSpo + KpsqzysCKzYraSudK9EsBSw5LG4soizXLQwtQS12Last4S4WLkwugi63Lu4vJC9aL5Evxy/+MDUwbDCk + MNsxEjFKMYIxujHyMioyYzKbMtQzDTNGM38zuDPxNCs0ZTSeNNg1EzVNNYc1wjX9Njc2cjauNuk3JDdg + N5w31zgUOFA4jDjIOQU5Qjl/Obw5+To2OnQ6sjrvOy07azuqO+g8JzxlPKQ84z0iPWE9oT3gPiA+YD6g + PuA/IT9hP6I/4kAjQGRApkDnQSlBakGsQe5CMEJyQrVC90M6Q31DwEQDREdEikTORRJFVUWaRd5GIkZn + RqtG8Ec1R3tHwEgFSEtIkUjXSR1JY0mpSfBKN0p9SsRLDEtTS5pL4kwqTHJMuk0CTUpNk03cTiVObk63 + TwBPSU+TT91QJ1BxULtRBlFQUZtR5lIxUnxSx1MTU19TqlP2VEJUj1TbVShVdVXCVg9WXFapVvdXRFeS + V+BYL1h9WMtZGllpWbhaB1pWWqZa9VtFW5Vb5Vw1XIZc1l0nXXhdyV4aXmxevV8PX2Ffs2AFYFdgqmD8 + YU9homH1YklinGLwY0Njl2PrZEBklGTpZT1lkmXnZj1mkmboZz1nk2fpaD9olmjsaUNpmmnxakhqn2r3 + a09rp2v/bFdsr20IbWBtuW4SbmtuxG8eb3hv0XArcIZw4HE6cZVx8HJLcqZzAXNdc7h0FHRwdMx1KHWF + deF2Pnabdvh3VnezeBF4bnjMeSp5iXnnekZ6pXsEe2N7wnwhfIF84X1BfaF+AX5ifsJ/I3+Ef+WAR4Co + gQqBa4HNgjCCkoL0g1eDuoQdhICE44VHhauGDoZyhteHO4efiASIaYjOiTOJmYn+imSKyoswi5aL/Ixj + jMqNMY2Yjf+OZo7OjzaPnpAGkG6Q1pE/kaiSEZJ6kuOTTZO2lCCUipT0lV+VyZY0lp+XCpd1l+CYTJi4 + mSSZkJn8mmia1ZtCm6+cHJyJnPedZJ3SnkCerp8dn4uf+qBpoNihR6G2oiailqMGo3aj5qRWpMelOKWp + phqmi6b9p26n4KhSqMSpN6mpqhyqj6sCq3Wr6axcrNCtRK24ri2uoa8Wr4uwALB1sOqxYLHWskuywrM4 + s660JbSctRO1irYBtnm28Ldot+C4WbjRuUq5wro7urW7LrunvCG8m70VvY++Cr6Evv+/er/1wHDA7MFn + wePCX8Lbw1jD1MRRxM7FS8XIxkbGw8dBx7/IPci8yTrJuco4yrfLNsu2zDXMtc01zbXONs62zzfPuNA5 + 0LrRPNG+0j/SwdNE08bUSdTL1U7V0dZV1tjXXNfg2GTY6Nls2fHadtr724DcBdyK3RDdlt4c3qLfKd+v + 4DbgveFE4cziU+Lb42Pj6+Rz5PzlhOYN5pbnH+ep6DLovOlG6dDqW+rl63Dr++yG7RHtnO4o7rTvQO/M + 8Fjw5fFy8f/yjPMZ86f0NPTC9VD13vZt9vv3ivgZ+Kj5OPnH+lf65/t3/Af8mP0p/br+S/7c/23////b + AEMAAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQICAgICAgICAgICAwMD + AwMDAwMDA//bAEMBAQEBAQEBAQEBAQICAQICAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMD + AwMDAwMDAwMDAwMDAwMDA//AABEIAAwAPAMBEQACEQEDEQH/xAAfAAABBQEBAQEBAQAAAAAAAAAAAQID + BAUGBwgJCgv/xAC1EAACAQMDAgQDBQUEBAAAAX0BAgMABBEFEiExQQYTUWEHInEUMoGRoQgjQrHBFVLR + 8CQzYnKCCQoWFxgZGiUmJygpKjQ1Njc4OTpDREVGR0hJSlNUVVZXWFlaY2RlZmdoaWpzdHV2d3h5eoOE + hYaHiImKkpOUlZaXmJmaoqOkpaanqKmqsrO0tba3uLm6wsPExcbHyMnK0tPU1dbX2Nna4eLj5OXm5+jp + 6vHy8/T19vf4+fr/xAAfAQADAQEBAQEBAQEBAAAAAAAAAQIDBAUGBwgJCgv/xAC1EQACAQIEBAMEBwUE + BAABAncAAQIDEQQFITEGEkFRB2FxEyIygQgUQpGhscEJIzNS8BVictEKFiQ04SXxFxgZGiYnKCkqNTY3 + ODk6Q0RFRkdISUpTVFVWV1hZWmNkZWZnaGlqc3R1dnd4eXqCg4SFhoeIiYqSk5SVlpeYmZqio6Slpqeo + qaqys7S1tre4ubrCw8TFxsfIycrS09TV1tfY2dri4+Tl5ufo6ery8/T19vf4+fr/2gAMAwEAAhEDEQA/ + AP1ZH7UPxEAA/wCEw8bnj/ob9f8A/k+v7U/1Nyj/AKF+G/8ABUP/AJE/llcSZlZf7dX/APBk/wDMX/hq + H4if9Df43/8ACv1//wCT6P8AU3Kf+hfhv/BUP/kQ/wBZcy/6Dq//AIMn/mH/AA1D8RP+hv8AG/8A4V+v + /wDyfR/qblP/AEL8N/4Kh/8AIh/rLmX/AEHV/wDwZP8AzD/hqH4if9Df43/8K/X/AP5Po/1Nyn/oX4b/ + AMFQ/wDkQ/1lzL/oOr/+DJ/5h/w1D8RP+hv8b/8AhX6//wDJ9H+puU/9C/Df+Cof/Ih/rLmX/QdX/wDB + k/8AMT/hqH4if9Df43/8K/X/AP5Po/1Nyn/oX4b/AMFQ/wDkQ/1kzL/oOr/+DJ/5n2R+xz+234zt/iRp + nw+8a6vqXiDwZ4gs9baObXr+bUr/AMPajpmkX2tQ3FlqV2Zb57K7XT2t3tXkaJWkV4whVxJ+beJfAuU4 + Th/FZ/hKEKOMw8qd+SKjGcZzjTs4q0bpyUlJK7s073VvuuBOLMxxGcYfJ8TWlVw1ZTtzu7hKMJTupPWz + UWnFu2qatrf9aP8AhfXgv+zv7U89/sfm+V5207N+M43fSv50P2w/kwr/AEFP42CgAoAKACgAoA9s/Z0/ + s7/hcng3+1vP/s7Ov/avs2PP2f8ACL63t2buP9ZjP+zmvz7xU/5IPPf+4H/qRRPsvD//AJK7KP8AuL/6 + ZqH7/wD/ABaT/hUfb7Ht/wBj7V9p8v8A9Cr+Oz+lz//Z + + + + 39 + + \ No newline at end of file diff --git a/ArinWarev1/Forms/v20091231/Frm_NaengBang.vb b/ArinWarev1/Forms/v20091231/Frm_NaengBang.vb new file mode 100644 index 0000000..5f719ba --- /dev/null +++ b/ArinWarev1/Forms/v20091231/Frm_NaengBang.vb @@ -0,0 +1,748 @@ +Public Class Frm_NaengBang + + Dim Init As Boolean = False + Dim SrcDrv As DataRowView + +#Region "data Base 변경여부및 적용방법" + + '''변경된내용을적용한다. + Public Overrides Function AcceptChanged() As Boolean + bs.EndEdit() + Dim BaseDS As DataSet = CType(bs.DataSource, DataSet) + Dim BaseDT As DataTable = BaseDS.Tables(bs.DataMember) + BaseDT.AcceptChanges() + Return True + End Function + + '''변경된내용이있다면 취소한다. + Public Overrides Function RejectChanged() As Boolean + Dim BaseDS As DataSet = CType(bs.DataSource, DataSet) + Dim BaseDT As DataTable = BaseDS.Tables(bs.DataMember) + BaseDT.RejectChanges() + Return True + End Function + + '''데이터에변형이있었는가? + Public Overrides Function HasChanged() As Boolean + bs.EndEdit() + Dim BaseDS As DataSet = CType(bs.DataSource, DataSet) + Dim BaseDT As DataTable = BaseDS.Tables(bs.DataMember) + Dim ChangeDT As DataTable = BaseDT.GetChanges + If Not ChangeDT Is Nothing Then Return True + Return False + End Function + + '''기본데이터테이블을 반환합니다. + Public Function DT() As DataTable + Dim BaseDS As DataSet = CType(bs.DataSource, DataSet) + Return BaseDS.Tables(bs.DataMember) + End Function + + +#End Region + + + Private Sub MdiMain_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load + 'MdiMain.Toggle_Menu_Color(MdiMain.E_MenuIdx.냉방기기) + 'CEnergy.ARINCLASS.SaveLoad_FrmSetting(Me) + '//프로필 관련 + + '//공유데이터셋에 연결한다. + Me.bs.DataSource = DSET + + '//냉방기기 + AddHandler DSET.tbl_nangbangkiki.TableNewRow, AddressOf AddNewDataRow_nangbangkiki + + '//콤보컨트롤 바인딩 + Binding_Zone() + + '//모든컨트롤의 cTrl_enter 를 추가합니다 + BindProperty(CType(Me.SplitContainer1.Panel2.Controls, Control.ControlCollection)) + + Me.bs.Filter = "code <> '0' and 냉동기방식 = '" + Me.Parameter + "'" + Me.lb_grpname.Text = Me.Parameter + + Me.Init = True + + Try + Me.bs.Position = CEnergy.ARINCLASS.Read_LastPos_Frm(Me) + Catch ex As Exception + Me.bs.MoveFirst() + End Try + + bs_CurrentChanged(sender, e) + Validate_Control() + + End Sub +#Region "Control_Enter" + Private Sub BindProperty(ByVal Ctl As Control.ControlCollection) + For Each C As Control In Ctl + If C.Controls.Count > 1 Then + BindProperty(C.Controls) + Else + If C.GetType.ToString.ToUpper.IndexOf("MYTB") <> -1 Then + AddHandler CType(C, MyTb).KeyDown, AddressOf TextBOx_KeyDown + ElseIf C.GetType.ToString.ToUpper.IndexOf("MYCMB") <> -1 Then + AddHandler CType(C, MyCmb).KeyDown, AddressOf Cmd_KeyDown + End If + End If + Next + End Sub + + + Private Sub TextBOx_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) + If e.KeyCode = Keys.Enter AndAlso e.Control Then + Try + Dim Field As String = (CType(sender, MyTb).DataBindings.Item("text").BindingMemberInfo.BindingField) + For Each Dr As DataRow In Dt.Select(Me.bs.Filter, "") + Dr(Field) = CType(sender, MyTb).Text + Next + Work_msg_timer("모든값이 변경되었습니다", 25) + Catch ex As Exception + + End Try + + End If + End Sub + Private Sub Cmd_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) + If e.KeyCode = Keys.Enter AndAlso e.Control Then + Try + Dim Field As String = (CType(sender, MyCmb).DataBindings.Item("selectedvalue").BindingMemberInfo.BindingField) + For Each Dr As DataRow In Dt.Select(Me.bs.Filter, "") + Dr(Field) = CType(sender, MyCmb).SelectedValue + Next + Work_msg_timer("모든값이 변경되었습니다", 25) + Catch ex As Exception + + End Try + End If + End Sub +#End Region +#Region "냉방기기" + Private Sub MdiMain_FormClosed(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosedEventArgs) Handles Me.FormClosed + CEnergy.ARINCLASS.SaveLoad_FrmSetting(Me, Me.bs.Position, True) + End Sub + + Private Sub MdiMain_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown + Select Case e.KeyCode + Case Keys.F12 + End Select + End Sub + Private Function GetMaxCode(ByVal dt As DataTable) As String + Try + Dim Dr As DataRow = dt.Select("", "code desc")(0) + Return Format(CInt(Dr("code")) + 1, "0000") + Catch ex As Exception + Return "0001" + End Try + End Function + + Private Sub Cmb_DeleteVal(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) + If e.KeyCode = Keys.Delete Then + CType(sender, ComboBox).SelectedValue = "" + End If + End Sub + + Private Sub ToolStripButton48_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt_add.Click + If Not EndEdit(Me.bs) Then Return + Me.bs.AddNew() + INitRow(Me.Controls) + End Sub + + + Private Sub ToolStripButton49_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt_Del.Click + Dbbase.DelCrow(Me.bs, True) + End Sub + + Private Sub ToolStripButton51_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt_cancel.Click + If Not EndEdit(Me.bs) Then Return + Data_Cancel(DSET.tbl_profile, Nothing) + End Sub + + Private Sub Binding_Zone() + '//냉동기기 + Dim bs_냉동기방식ComboBox As New BindingSource(DSET, "tbl_common") + bs_냉동기방식ComboBox.Filter = "gubun='1046'" + 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(DSET, "tbl_common") + bs_냉동기종류ComboBox.Filter = "gubun='1047'" + 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(DSET, "tbl_common") + bs_냉동기압축방식ComboBox.Filter = "gubun='1048'" + 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(DSET, "tbl_common") + bs_압축기제어방식ComboBox.Filter = "gubun='1049'" + 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(DSET, "tbl_common") + bs_냉동기설비시스템ComboBox.Filter = "gubun='1050'" + 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(DSET, "tbl_common") + bs_제어방식ComboBox.Filter = "gubun='1051'" + 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_열생산연결방식 As New BindingSource(DSET, "tbl_common") + bs_열생산연결방식.Filter = "gubun='1085'" + bs_열생산연결방식.Sort = "code" + Me.cmb_열생산연결방식.DataSource = bs_열생산연결방식 + cmb_열생산연결방식.DisplayMember = "name" + cmb_열생산연결방식.ValueMember = "name" + Me.cmb_열생산연결방식.DataBindings.Add("selectedvalue", Me.bs, "열생산연결방식") + + Dim bs_사용연료 As New BindingSource(DSET, "tbl_common") + bs_사용연료.Filter = "gubun='1086'" + bs_사용연료.Sort = "code" + Me.cmb_사용연료.DataSource = bs_사용연료 + cmb_사용연료.DisplayMember = "name" + cmb_사용연료.ValueMember = "name" + Me.cmb_사용연료.DataBindings.Add("selectedvalue", Me.bs, "사용연료") + 'AddHandler 온수열생산기기ComboBox.KeyDown, AddressOf Cmb_DeleteVal + + + Dim bs_온수열생산기기ComboBox As New BindingSource(DSET, "tbl_nanbangkiki") + bs_온수열생산기기ComboBox.Sort = "code" + Me.온수열생산기기ComboBox.DataSource = bs_온수열생산기기ComboBox + 온수열생산기기ComboBox.DisplayMember = "설명" + 온수열생산기기ComboBox.ValueMember = "code" + Me.온수열생산기기ComboBox.DataBindings.Add("selectedvalue", Me.bs, "온수열생산기기") + 'AddHandler 온수열생산기기ComboBox.KeyDown, AddressOf Cmb_DeleteVal + + Dim bs_증발식건식냉각기ComboBox As New BindingSource(DSET, "tbl_common") + bs_증발식건식냉각기ComboBox.Filter = "gubun='1052'" + 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(DSET, "tbl_common") + bs_증발식냉각기ComboBox.Filter = "gubun='1053'" + 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(DSET, "tbl_common") + bs_보조방음기유무ComboBox.Filter = "gubun='1054'" '//예 아니오 아직 결정안됨 + 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_신재생연결여부ComboBox1 As New BindingSource(DSET, "tbl_common") + bs_신재생연결여부ComboBox1.Filter = "gubun='1044'" + bs_신재생연결여부ComboBox1.Sort = "code" + Me.신재생연결여부ComboBox1.DataSource = bs_신재생연결여부ComboBox1 + 신재생연결여부ComboBox1.DisplayMember = "name" + 신재생연결여부ComboBox1.ValueMember = "name" + Me.신재생연결여부ComboBox1.DataBindings.Add("selectedvalue", Me.bs, "신재생연결여부") + 'AddHandler 신재생연결여부ComboBox1.KeyDown, AddressOf Cmb_DeleteVal + + + + Dim bs_연결된시스템ComboBox1 As New BindingSource(DSET, "tbl_new") + bs_연결된시스템ComboBox1.Sort = "code" + Me.cmb_신재생.DataSource = bs_연결된시스템ComboBox1 + cmb_신재생.DisplayMember = "설명" + cmb_신재생.ValueMember = "code" + Me.cmb_신재생.DataBindings.Add("selectedvalue", Me.bs, "연결된시스템") + 'AddHandler cmb_신재생.KeyDown, AddressOf Cmb_DeleteVal + End Sub + + Private Sub AddNewDataRow_nangbangkiki(ByVal sender As Object, ByVal e As System.Data.DataTableNewRowEventArgs) + e.Row.Item("code") = GetMaxCode(DSET.tbl_nangbangkiki) + 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 + If Me.bs.Position < Me.bs.Count Then Me.bs.Position += 1 + Else + If Me.bs.Position > 0 Then Me.bs.Position -= 1 + End If + Me.Validate() + My.Application.DoEvents() + End Sub +#End Region + + Private Sub 신재생연결여부ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 신재생연결여부ComboBox1.SelectedIndexChanged + Try + If Me.신재생연결여부ComboBox1.SelectedIndex = 0 Then '//신재생연결없음 + cmb_신재생.Enabled = False + Else + cmb_신재생.Enabled = True + End If + Catch ex As Exception + + End Try + End Sub + + Private Sub 냉동기방식ComboBox_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles 냉동기방식ComboBox.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) <> 32 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() '//한줄추가 + + Dim Cnt As Short = 0 + For i As Integer = 0 To CB.GetUpperBound(0) + Select Case i + Case 0 + CType(bs.Current, DataRowView)("설명") = CB(i).Split(CChar(vbTab))(ii).Trim + Case 0 + 5 '//사용프로필 앞에 두개를 숫자4자로변환 + If CB(i).Split(CChar(vbTab))(ii).Trim = "" Then + Me.냉동기방식ComboBox.SelectedIndex = 0 + Else + Me.냉동기방식ComboBox.Text = CB(i).Split(CChar(vbTab))(ii).Trim + End If + + 'Me.냉동기방식ComboBox.Text = CStr(IIf( CB(i).Split(CChar(vbTab))(ii).Trim = "", "0", CB(i).Split(CChar(vbTab))(ii).Trim)) + Case 1 + 5 + Me.냉동기용량NTb.Text = CB(i).Split(CChar(vbTab))(ii).Trim + Case 2 + 5 + Me.열성능비NTb.Text = CB(i).Split(CChar(vbTab))(ii).Trim + Case 5 + 5 + ' Me.TabControl13.SelectedIndex = 1 + If CB(i).Split(CChar(vbTab))(ii).Trim = "" Then + Me.냉동기종류ComboBox.SelectedIndex = 0 + Else + Me.냉동기종류ComboBox.Text = CB(i).Split(CChar(vbTab))(ii).Trim + End If + + 'Me.냉동기종류ComboBox.Text = CStr(IIf( CB(i).Split(CChar(vbTab))(ii).Trim = "", "0", CB(i).Split(CChar(vbTab))(ii).Trim)) + Case 7 + 5 + If CB(i).Split(CChar(vbTab))(ii).Trim = "" Then + Me.냉동기압축방식ComboBox.SelectedIndex = 0 + Else + Me.냉동기압축방식ComboBox.Text = CB(i).Split(CChar(vbTab))(ii).Trim + End If + + + 'Me.냉동기압축방식ComboBox.Text = CStr(IIf( CB(i).Split(CChar(vbTab))(ii).Trim = "", "0", CB(i).Split(CChar(vbTab))(ii).Trim)) + Case 13 + If CB(i).Split(CChar(vbTab))(ii).Trim = "" Then + Me.압축기제어방식ComboBox.SelectedIndex = 0 + Else + Me.압축기제어방식ComboBox.Text = CB(i).Split(CChar(vbTab))(ii).Trim + End If + + + 'Me.압축기제어방식ComboBox.Text = CStr(IIf( CB(i).Split(CChar(vbTab))(ii).Trim = "", "0", CB(i).Split(CChar(vbTab))(ii).Trim)) + Case 10 + 5 + If CB(i).Split(CChar(vbTab))(ii).Trim = "" Then + Me.냉동기설비시스템ComboBox.SelectedIndex = 0 + Else + Me.냉동기설비시스템ComboBox.Text = CB(i).Split(CChar(vbTab))(ii).Trim + End If + + + 'Me.냉동기설비시스템ComboBox.Text = CStr(IIf( CB(i).Split(CChar(vbTab))(ii).Trim = "", "0", CB(i).Split(CChar(vbTab))(ii).Trim)) + Case 11 + 5 + If CB(i).Split(CChar(vbTab))(ii).Trim = "" Then + Me.제어방식ComboBox.SelectedIndex = 0 + Else + Me.제어방식ComboBox.Text = CB(i).Split(CChar(vbTab))(ii).Trim + End If + + 'Me.제어방식ComboBox.Text = CStr(IIf( CB(i).Split(CChar(vbTab))(ii).Trim = "", "0", CB(i).Split(CChar(vbTab))(ii).Trim)) + Case 14 + 5 '//열생산연결방식 + If CB(i).Split(CChar(vbTab))(ii).Trim = "" Then + Me.cmb_열생산연결방식.SelectedIndex = 0 + Else + Me.cmb_열생산연결방식.Text = CB(i).Split(CChar(vbTab))(ii).Trim + End If + Case 14 + 5 + 1 '//사용연로 + If CB(i).Split(CChar(vbTab))(ii).Trim = "" Then + Me.cmb_사용연료.SelectedIndex = 0 + Else + Me.cmb_사용연료.Text = CB(i).Split(CChar(vbTab))(ii).Trim + End If + Case 14 + 5 + 2 + If CB(i).Split(CChar(vbTab))(ii).Trim = "" Then + Me.온수열생산기기ComboBox.SelectedIndex = 0 + Else + Me.온수열생산기기ComboBox.Text = CB(i).Split(CChar(vbTab))(ii).Trim + End If + + ' Me.온수열생산기기ComboBox.Text = CStr(IIf( CB(i).Split(CChar(vbTab))(ii).Trim = "", "0", CB(i).Split(CChar(vbTab))(ii).Trim)) + Case 24 + ' Me.TabControl13.SelectedIndex = 2 + If CB(i).Split(CChar(vbTab))(ii).Trim = "" Then + Me.증발식건식냉각기ComboBox.SelectedIndex = 0 + Else + Me.증발식건식냉각기ComboBox.Text = CB(i).Split(CChar(vbTab))(ii).Trim + End If + + + ' Me.증발식건식냉각기ComboBox.Text = CStr(IIf( CB(i).Split(CChar(vbTab))(ii).Trim = "", "0", CB(i).Split(CChar(vbTab))(ii).Trim)) + Case 25 + If CB(i).Split(CChar(vbTab))(ii).Trim = "" Then + Me.증발식냉각기ComboBox.SelectedIndex = 0 + Else + Me.증발식냉각기ComboBox.Text = CB(i).Split(CChar(vbTab))(ii).Trim + End If + + 'Me.증발식냉각기ComboBox.Text = CStr(IIf( CB(i).Split(CChar(vbTab))(ii).Trim = "", "0", CB(i).Split(CChar(vbTab))(ii).Trim)) + Case 26 + If CB(i).Split(CChar(vbTab))(ii).Trim = "" Then + Me.보조방음기유무ComboBox.SelectedIndex = 0 + Else + Me.보조방음기유무ComboBox.Text = CB(i).Split(CChar(vbTab))(ii).Trim + End If + + 'Me.보조방음기유무ComboBox.Text = CStr(IIf( CB(i).Split(CChar(vbTab))(ii).Trim = "", "0", CB(i).Split(CChar(vbTab))(ii).Trim)) + Case 27 + Me.냉각수토출온도NTb.Text = CB(i).Split(CChar(vbTab))(ii).Trim + Case 30 + If CB(i).Split(CChar(vbTab))(ii).Trim = "" Then + Me.신재생연결여부ComboBox1.SelectedIndex = 0 + Else + Me.신재생연결여부ComboBox1.Text = CB(i).Split(CChar(vbTab))(ii).Trim + End If + 'Me.신재생연결여부ComboBox1.Text = CStr(IIf( CB(i).Split(CChar(vbTab))(ii).Trim = "", "0", CB(i).Split(CChar(vbTab))(ii).Trim)) + Case 31 + If CB(i).Split(CChar(vbTab))(ii).Trim = "" Then + Me.cmb_신재생.SelectedIndex = 0 + Else + Me.cmb_신재생.Text = CB(i).Split(CChar(vbTab))(ii).Trim + End If + + 'Me.연결된시스템ComboBox1.Text = CStr(IIf(CB(i).Trim = "", "0", CB(i).Trim)) + End Select + Next + Next + + Me.bs.EndEdit() + End If + End Sub + + Private Sub Validate_Control() + If Not Init Then Return + '//오류 냉동기방식 오류 + Try + Dim V As String = CStr(CType(Me.bs.Current, DataRowView)("설명")) + Select Case Me.냉동기방식ComboBox.SelectedValue.ToString.Trim + Case "압축식", "압축식(LNG)" '//압축식 + 'Select Case V + ' Case "냉동기A", "냉동기B" + ' 냉동기종류ComboBox.Enabled = True + ' 냉동기압축방식ComboBox.Enabled = True + + ' 압축기제어방식ComboBox.Enabled = False + ' 냉동기설비시스템ComboBox.Enabled = False + ' 제어방식ComboBox.Enabled = False + ' 온수열생산기기ComboBox.Enabled = False + ' 증발식건식냉각기ComboBox.Enabled = False + ' 증발식냉각기ComboBox.Enabled = False + ' 보조방음기유무ComboBox.Enabled = False + ' 냉각수토출온도NTb.Enabled = False + ' Case "냉동기C" + ' 냉동기종류ComboBox.Enabled = True + ' 냉동기압축방식ComboBox.Enabled = True + + ' 압축기제어방식ComboBox.Enabled = False + ' 냉동기설비시스템ComboBox.Enabled = False + ' 제어방식ComboBox.Enabled = False + ' 온수열생산기기ComboBox.Enabled = False + ' 증발식건식냉각기ComboBox.Enabled = True + ' 증발식냉각기ComboBox.Enabled = True + ' 보조방음기유무ComboBox.Enabled = True + ' 냉각수토출온도NTb.Enabled = True + 'End Select + + '//건기연 수정 2010.04.07 + 냉동기종류ComboBox.Enabled = True + 냉동기압축방식ComboBox.Enabled = True + + Case "흡수식" '//흡수식 + 'Select Case V + ' Case "냉동기A", "냉동기C" + ' 냉동기종류ComboBox.Enabled = False + ' '냉동기종류Label.Enabled = False + ' 냉동기압축방식ComboBox.Enabled = False + ' 압축기제어방식ComboBox.Enabled = False + ' 냉동기설비시스템ComboBox.Enabled = False + ' 제어방식ComboBox.Enabled = False + + ' 온수열생산기기ComboBox.Enabled = True + ' 증발식건식냉각기ComboBox.Enabled = True + ' 증발식냉각기ComboBox.Enabled = True + ' 보조방음기유무ComboBox.Enabled = True + ' 냉각수토출온도NTb.Enabled = True + ' Case "냉동기B" + ' 냉동기종류ComboBox.Enabled = False + ' 냉동기압축방식ComboBox.Enabled = False + ' 압축기제어방식ComboBox.Enabled = False + ' 냉동기설비시스템ComboBox.Enabled = False + ' 제어방식ComboBox.Enabled = False + + ' 온수열생산기기ComboBox.Enabled = True + ' 증발식건식냉각기ComboBox.Enabled = True + ' 증발식냉각기ComboBox.Enabled = False + ' 보조방음기유무ComboBox.Enabled = False + ' 냉각수토출온도NTb.Enabled = True + 'End Select + + 냉동기종류ComboBox.Enabled = False + 냉동기압축방식ComboBox.Enabled = False + + Case "지역냉방" '//지역냉방 + 'Select Case V + ' Case "냉동기A", "냉동기B", "냉동기C" + ' 냉동기종류ComboBox.Enabled = False + ' 냉동기압축방식ComboBox.Enabled = False + ' 압축기제어방식ComboBox.Enabled = False + ' 냉동기설비시스템ComboBox.Enabled = False + ' 제어방식ComboBox.Enabled = False + ' 온수열생산기기ComboBox.Enabled = False + ' 증발식건식냉각기ComboBox.Enabled = False + ' 증발식냉각기ComboBox.Enabled = False + ' 보조방음기유무ComboBox.Enabled = False + ' 냉각수토출온도NTb.Enabled = False + 'End Select + + + 냉동기종류ComboBox.Enabled = False + 냉동기압축방식ComboBox.Enabled = False + End Select + Catch ex As Exception + + End Try + Try + If Me.냉동기압축방식ComboBox.Text = "왕복동/스크롤 압축기" Then + Me.압축기제어방식ComboBox.Enabled = True + Else + Me.압축기제어방식ComboBox.SelectedIndex = 0 '//없음으로 설정하고 + Me.압축기제어방식ComboBox.Enabled = False + End If + Catch ex As Exception + + End Try + + Try + If Me.냉동기방식ComboBox.Text = "흡수식" Then + Me.cmb_열생산연결방식.Enabled = True + Me.압축기제어방식ComboBox.Enabled = False + Me.냉동기설비시스템ComboBox.Enabled = False + Me.제어방식ComboBox.Enabled = False + Try + If Me.cmb_열생산연결방식.Text = "직화식" Then + Me.cmb_사용연료.Enabled = True + Me.온수열생산기기ComboBox.Enabled = False + Else + If Me.cmb_열생산연결방식.Text = "외부연결" Then + Me.cmb_사용연료.Enabled = False + Me.온수열생산기기ComboBox.Enabled = True + Else + Me.cmb_사용연료.Enabled = False + Me.온수열생산기기ComboBox.Enabled = False + End If + End If + Catch ex As Exception + End Try + Me.재냉각기GroupBox.Enabled = True + Else + Me.cmb_열생산연결방식.Enabled = False + Me.cmb_사용연료.Enabled = False + Me.온수열생산기기ComboBox.Enabled = False + + If Me.냉동기방식ComboBox.Text = "압축식" Or Me.냉동기방식ComboBox.Text = "압축식(LNG)" Then + Select Case Me.냉동기종류ComboBox.Text + Case "수냉식" + Me.재냉각기GroupBox.Enabled = True + Me.냉동기압축방식ComboBox.Enabled = True + Me.냉동기설비시스템ComboBox.Enabled = False + Me.제어방식ComboBox.Enabled = False + Case "공냉식" + Me.재냉각기GroupBox.Enabled = False + Me.냉동기압축방식ComboBox.Enabled = True + Me.냉동기설비시스템ComboBox.Enabled = False + Me.제어방식ComboBox.Enabled = False + Case "실내공조시스템" + Me.냉동기압축방식ComboBox.Enabled = False + Me.냉동기설비시스템ComboBox.Enabled = True + Me.제어방식ComboBox.Enabled = True + Me.압축기제어방식ComboBox.Enabled = False + Me.재냉각기GroupBox.Enabled = False + Case Else + + End Select + Else + Me.냉동기압축방식ComboBox.Enabled = False + Me.냉동기설비시스템ComboBox.Enabled = False + Me.제어방식ComboBox.Enabled = False + Me.압축기제어방식ComboBox.Enabled = False + Me.재냉각기GroupBox.Enabled = False + End If + End If + Catch ex As Exception + + End Try + Me.bs.EndEdit() + End Sub + + Private Sub bs_CurrentChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bs.CurrentChanged + If Not Init Then Return + Try + Dim Drv As DataRowView = CType(bs.Current, DataRowView) + Dim DR() As DataRow = DSET.tbl_zone.Select("열생산냉방생산기기='" & Drv("code").ToString & "' or 공조냉방생산기기='" & Drv("code").ToString & "'") '//2010.12.02 수정 + 'Dim DR() As DataRow = DSET.tbl_zone.Select("열생산냉방생산기기='" & Drv("code").ToString & "'") + Me.tb_zone_cnt.Text = CStr(DR.GetUpperBound(0) + 1) + Catch ex As Exception + Me.tb_zone_cnt.Text = "0" + End Try + Me.bs.EndEdit() + End Sub + + Private Sub 냉동기방식ComboBox_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 냉동기방식ComboBox.SelectedIndexChanged + Validate_Control() + End Sub + + Private Sub 냉동기압축방식ComboBox_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 냉동기압축방식ComboBox.SelectedIndexChanged + Validate_Control() + End Sub + + + Private Sub bt_Del_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles bt_Del.MouseDown + If e.Button = Windows.Forms.MouseButtons.Right Then + If MsgBox("전체삭제를 하시겠습니까?", MsgBoxStyle.Information Or MsgBoxStyle.OkCancel, "확인") = MsgBoxResult.Ok Then + Dim dR() As DataRow = DSET.tbl_nangbangkiki.Select(Me.bs.Filter, "") + For i As Integer = dR.GetUpperBound(0) To 0 Step -1 + dR(i).Delete() + Next + DSET.tbl_nangbangkiki.AcceptChanges() + End If + End If + End Sub + + Private Sub SplitContainer1_Panel2_Paint(ByVal sender As System.Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles SplitContainer1.Panel2.Paint + + End Sub + + Private Sub 냉동기종류ComboBox_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 냉동기종류ComboBox.SelectedIndexChanged + Validate_Control() + End Sub + + Private Sub cmb_열생산연결방식_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles cmb_열생산연결방식.SelectedIndexChanged + Validate_Control() + End Sub + + Private Sub dv_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles dv.MouseUp + If Prj.UserAuthType = "ADMIN" OrElse Prj.UserAuthType = "BOTH" OrElse Prj.UserAuthType = "BOTH2" OrElse Prj.UserAuthType = "BOTH1" Then '//2011.03.08 추가 + If e.Button = Windows.Forms.MouseButtons.Right Then + Dim Frm_FilterA As New Frm_Filter + Frm_FilterA.ColumTitle = getColCaption(Me.Dt) + Frm_FilterA.ColumList = getColName(Me.Dt) + Frm_FilterA.Colorlist = "온수열생산기기,연결된시스템" + Frm_FilterA.Numfield = "" '//20100618 Color 리스트처럼 , 구분해서 필드들을 모두 넣으세요.(=, >= 등을 사용하기 위해서는 해당 항목을 추가 요망) + Frm_FilterA.Default_Filter = "code <> '0'" + + If Frm_FilterA.ShowDialog <> Windows.Forms.DialogResult.OK Then Return '//창떳을떄 확인아ㅣ고 취소눌르면 다음을 수행하지않는다는거에요. + Dim Filter As String = Frm_FilterA.tb_filter.Text '//값은 아까 그 텍박에 잇구요. + Try + Me.bs.Filter = Filter + + '//바꾸기값이 있으면 변경 20100618 + If Frm_FilterA.cmb_fieldc.SelectedIndex >= 0 AndAlso Frm_FilterA.cmb_fieldc.Text.ToLower <> "code" AndAlso _ + Frm_FilterA.tb_valuec.Text <> "" Then + Dim Drow() As DataRow = Me.Dt.Select(Filter) + For Each Dr As DataRow In Drow + Dr(Frm_FilterA.cmb_fieldc.Text) = Frm_FilterA.tb_valuec.Text + Next + MsgBox("바꾸기 완료", MsgBoxStyle.Information, "확인") + End If + + Catch ex As Exception + Me.bs.Filter = "" + End Try + End If + End If + End Sub + + Private Sub dv_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles dv.KeyDown + '//여기보시면 alt+d 누르면 한줄을 경고없이(falsE)삭제하도록 햇어요.. 사실원래 밋alt +d 인데.. ㅎㅎ 잘못해서 ctrl 됫다는 + If Prj.UserAuthType = "ADMIN" OrElse Prj.UserAuthType = "BOTH" OrElse Prj.UserAuthType = "BOTH2" OrElse Prj.UserAuthType = "BOTH1" Then '//2011.03.08 추가 + Select Case e.KeyCode + Case Keys.D + If e.Alt Then + Dbbase.DelCrow(Me.bs, False) + End If + Case Keys.C + If e.Control Then + Me.SrcDrv = Me.bs.Current + If Me.SrcDrv Is Nothing Then + MsgBox("저장할 ROW가 없습니다", MsgBoxStyle.Information, "확인") + Return + End If + ' My.Computer.Clipboard.SetData("ZDATA", Drv) + End If + Case Keys.V + If e.Control Then + If Me.SrcDrv Is Nothing Then Return + Me.bt_add.PerformClick() '//신규추가 + Dim NewDrv As DataRowView = Me.bs.Current + + For Each C As DataColumn In Me.Dt.Columns + If C.ColumnName.ToUpper = "CODE" Then + ElseIf C.ColumnName.ToUpper = "설명" Then + NewDrv(C.ColumnName) = SrcDrv(C.ColumnName) & "#1" + Else + NewDrv(C.ColumnName) = SrcDrv(C.ColumnName) + End If + Next + Me.bs.EndEdit() + bs.MoveLast() + End If + End Select + End If + End Sub + + Private Sub dv_CellContentClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles dv.CellContentClick + + End Sub +End Class \ No newline at end of file diff --git a/ArinWarev1/Forms/v20091231/Frm_Nanbang.Designer.vb b/ArinWarev1/Forms/v20091231/Frm_Nanbang.Designer.vb new file mode 100644 index 0000000..1b9d790 --- /dev/null +++ b/ArinWarev1/Forms/v20091231/Frm_Nanbang.Designer.vb @@ -0,0 +1,1831 @@ + _ +Partial Class Frm_Nanbang + Inherits CForm + + 'Form은 Dispose를 재정의하여 구성 요소 목록을 정리합니다. + _ + Protected Overrides Sub Dispose(ByVal disposing As Boolean) + Try + If disposing AndAlso components IsNot Nothing Then + components.Dispose() + End If + Finally + MyBase.Dispose(disposing) + End Try + End Sub + + 'Windows Form 디자이너에 필요합니다. + Private components As System.ComponentModel.IContainer + + '참고: 다음 프로시저는 Windows Form 디자이너에 필요합니다. + '수정하려면 Windows Form 디자이너를 사용하십시오. + '코드 편집기를 사용하여 수정하지 마십시오. + _ + Private Sub InitializeComponent() + Me.components = New System.ComponentModel.Container() + Dim Label165 As System.Windows.Forms.Label + Dim Label166 As System.Windows.Forms.Label + Dim Label181 As System.Windows.Forms.Label + Dim Label185 As System.Windows.Forms.Label + Dim Label186 As System.Windows.Forms.Label + Dim Label188 As System.Windows.Forms.Label + Dim Label184 As System.Windows.Forms.Label + Dim Label190 As System.Windows.Forms.Label + Dim Label193 As System.Windows.Forms.Label + Dim Label192 As System.Windows.Forms.Label + Dim Label194 As System.Windows.Forms.Label + Dim Label195 As System.Windows.Forms.Label + Dim Label196 As System.Windows.Forms.Label + Dim Label2 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 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 Label1 As System.Windows.Forms.Label + Dim Label17 As System.Windows.Forms.Label + Dim Label16 As System.Windows.Forms.Label + Dim Label19 As System.Windows.Forms.Label + Dim Label20 As System.Windows.Forms.Label + Dim Label27 As System.Windows.Forms.Label + Dim Label28 As System.Windows.Forms.Label + Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(Frm_Nanbang)) + Me.Label182 = New System.Windows.Forms.Label() + Me.Label180 = New System.Windows.Forms.Label() + Me.GroupBox2 = New System.Windows.Forms.GroupBox() + Me.tb_보일러대수다수 = New Eco2Ar.MyTb() + Me.bs = New System.Windows.Forms.BindingSource(Me.components) + Me.DS = New Eco2Ar.DS() + Me.Label50 = New System.Windows.Forms.Label() + Me.운전방식NCMB = New Eco2Ar.MyCmb() + Me.PictureBox2 = New System.Windows.Forms.PictureBox() + Me.GroupBox1 = New System.Windows.Forms.GroupBox() + Me.열교환기정격출력NTb = New Eco2Ar.MyTb() + Me.Label23 = New System.Windows.Forms.Label() + Me.Label21 = New System.Windows.Forms.Label() + Me.보일러정격출력NTb = New Eco2Ar.MyTb() + Me.환수온도NTb1 = New Eco2Ar.MyTb() + Me.급수온도NTb1 = New Eco2Ar.MyTb() + Me.사용연료NCMB = New Eco2Ar.MyCmb() + Me.열생산기기방식NCMB = New Eco2Ar.MyCmb() + Me.PictureBox1 = New System.Windows.Forms.PictureBox() + Me.GroupBox5 = New System.Windows.Forms.GroupBox() + Me.cmb_히트펌프시스템종류 = New Eco2Ar.MyCmb() + Me.tb_히트길이 = New Eco2Ar.MyTb() + Me.cmb_히트사용연료 = New Eco2Ar.MyCmb() + Me.tb_히트정격10 = New Eco2Ar.MyTb() + Me.tb_히트정격7 = New Eco2Ar.MyTb() + Me.tb_히트용량 = New Eco2Ar.MyTb() + Me.PictureBox9 = New System.Windows.Forms.PictureBox() + Me.Label189 = New System.Windows.Forms.Label() + Me.GroupBox7 = New System.Windows.Forms.GroupBox() + Me.축열탱크방식NCMB = New Eco2Ar.MyCmb() + Me.MyTb1 = New Eco2Ar.MyTb() + Me.축열제척NTb = New Eco2Ar.MyTb() + Me.PictureBox10 = New System.Windows.Forms.PictureBox() + Me.GroupBox8 = New System.Windows.Forms.GroupBox() + Me.배관망유형ComboBox = New Eco2Ar.MyCmb() + Me.펌프제어유형ComboBox = New Eco2Ar.MyCmb() + Me.펌프동력NTb = New Eco2Ar.MyTb() + Me.펌프교정계수ComboBox = New Eco2Ar.MyCmb() + Me.PictureBox16 = New System.Windows.Forms.PictureBox() + Me.GroupBox10 = New System.Windows.Forms.GroupBox() + Me.분배시스템방식ComboBox = New Eco2Ar.MyCmb() + Me.펌프동력급탕NTb = New Eco2Ar.MyTb() + Me.펌프제어ComboBox = New Eco2Ar.MyCmb() + Me.순환유무ComboBox = New Eco2Ar.MyCmb() + Me.PictureBox11 = New System.Windows.Forms.PictureBox() + Me.GroupBox9 = New System.Windows.Forms.GroupBox() + Me.RadioButton2 = New System.Windows.Forms.RadioButton() + Me.RadioButton1 = New System.Windows.Forms.RadioButton() + Me.열공급층수NTb = New Eco2Ar.MyTb() + Me.건물넓이NTb = New Eco2Ar.MyTb() + Me.급탕배관길이NTB = New Eco2Ar.MyTb() + Me.건물길이NTb = New Eco2Ar.MyTb() + Me.층고NTb = New Eco2Ar.MyTb() + Me.PictureBox12 = New System.Windows.Forms.PictureBox() + Me.GroupBox39 = New System.Windows.Forms.GroupBox() + Me.Label22 = New System.Windows.Forms.Label() + Me.cmb_신재생 = New Eco2Ar.MyCmb() + Me.신재생연결여부ComboBox = New Eco2Ar.MyCmb() + Me.PictureBox17 = New System.Windows.Forms.PictureBox() + Me.SplitContainer1 = New System.Windows.Forms.SplitContainer() + Me.dv = New CEnergy.arindv() + Me.DataGridViewTextBoxColumn1 = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.lb_grpname = New System.Windows.Forms.Label() + 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() + Me.bt_Del = New System.Windows.Forms.ToolStripButton() + Me.bt_cancel = New System.Windows.Forms.ToolStripButton() + Me.ToolStripSeparator1 = New System.Windows.Forms.ToolStripSeparator() + Me.lbl_pos = New System.Windows.Forms.ToolStripLabel() + Me.Label30 = New System.Windows.Forms.Label() + Me.PictureBox6 = New System.Windows.Forms.PictureBox() + Me.Label18 = New System.Windows.Forms.Label() + Me.PictureBox15 = New System.Windows.Forms.PictureBox() + Me.Label29 = New System.Windows.Forms.Label() + Me.PictureBox5 = New System.Windows.Forms.PictureBox() + Me.Label25 = New System.Windows.Forms.Label() + Me.PictureBox3 = New System.Windows.Forms.PictureBox() + Me.GroupBox4 = New System.Windows.Forms.GroupBox() + Me.단열등급NCMB = New Eco2Ar.MyCmb() + Me.지역난방방식NCMB = New Eco2Ar.MyCmb() + Me.PictureBox7 = New System.Windows.Forms.PictureBox() + Me.GroupBox3 = New System.Windows.Forms.GroupBox() + Me.보일러방식NCMB = New Eco2Ar.MyCmb() + Me.정격보일러효율NTb = New Eco2Ar.MyTb() + Me.PictureBox8 = New System.Windows.Forms.PictureBox() + Me.ToolStrip1 = New System.Windows.Forms.ToolStrip() + Me.ToolStripLabel1 = New System.Windows.Forms.ToolStripLabel() + Me.lbl_cnt1 = New System.Windows.Forms.ToolStripLabel() + Me.ToolStripLabel3 = New System.Windows.Forms.ToolStripLabel() + Me.lbl_cnt2 = New System.Windows.Forms.ToolStripLabel() + Me.Label26 = New System.Windows.Forms.Label() + Me.PictureBox14 = New System.Windows.Forms.PictureBox() + Me.Label24 = New System.Windows.Forms.Label() + Me.PictureBox13 = New System.Windows.Forms.PictureBox() + Label165 = New System.Windows.Forms.Label() + Label166 = New System.Windows.Forms.Label() + Label181 = New System.Windows.Forms.Label() + Label185 = New System.Windows.Forms.Label() + Label186 = New System.Windows.Forms.Label() + Label188 = New System.Windows.Forms.Label() + Label184 = New System.Windows.Forms.Label() + Label190 = New System.Windows.Forms.Label() + Label193 = New System.Windows.Forms.Label() + Label192 = New System.Windows.Forms.Label() + Label194 = New System.Windows.Forms.Label() + Label195 = New System.Windows.Forms.Label() + Label196 = New System.Windows.Forms.Label() + Label2 = 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() + 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() + Label1 = New System.Windows.Forms.Label() + Label17 = New System.Windows.Forms.Label() + Label16 = New System.Windows.Forms.Label() + Label19 = New System.Windows.Forms.Label() + Label20 = New System.Windows.Forms.Label() + Label27 = New System.Windows.Forms.Label() + Label28 = New System.Windows.Forms.Label() + Me.GroupBox2.SuspendLayout() + CType(Me.bs, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.DS, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.PictureBox2, System.ComponentModel.ISupportInitialize).BeginInit() + Me.GroupBox1.SuspendLayout() + CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit() + Me.GroupBox5.SuspendLayout() + CType(Me.PictureBox9, System.ComponentModel.ISupportInitialize).BeginInit() + Me.GroupBox7.SuspendLayout() + CType(Me.PictureBox10, System.ComponentModel.ISupportInitialize).BeginInit() + Me.GroupBox8.SuspendLayout() + CType(Me.PictureBox16, System.ComponentModel.ISupportInitialize).BeginInit() + Me.GroupBox10.SuspendLayout() + CType(Me.PictureBox11, System.ComponentModel.ISupportInitialize).BeginInit() + Me.GroupBox9.SuspendLayout() + CType(Me.PictureBox12, System.ComponentModel.ISupportInitialize).BeginInit() + Me.GroupBox39.SuspendLayout() + CType(Me.PictureBox17, System.ComponentModel.ISupportInitialize).BeginInit() + Me.SplitContainer1.Panel1.SuspendLayout() + Me.SplitContainer1.Panel2.SuspendLayout() + Me.SplitContainer1.SuspendLayout() + CType(Me.dv, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.bn, System.ComponentModel.ISupportInitialize).BeginInit() + Me.bn.SuspendLayout() + CType(Me.PictureBox6, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.PictureBox15, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.PictureBox5, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.PictureBox3, System.ComponentModel.ISupportInitialize).BeginInit() + Me.GroupBox4.SuspendLayout() + CType(Me.PictureBox7, System.ComponentModel.ISupportInitialize).BeginInit() + Me.GroupBox3.SuspendLayout() + CType(Me.PictureBox8, System.ComponentModel.ISupportInitialize).BeginInit() + Me.ToolStrip1.SuspendLayout() + CType(Me.PictureBox14, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.PictureBox13, System.ComponentModel.ISupportInitialize).BeginInit() + Me.SuspendLayout() + ' + 'Label165 + ' + Label165.AutoSize = True + Label165.BackColor = System.Drawing.Color.FromArgb(CType(CType(219, Byte), Integer), CType(CType(221, Byte), Integer), CType(CType(223, Byte), Integer)) + Label165.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label165.Location = New System.Drawing.Point(4, 44) + Label165.Name = "Label165" + Label165.Size = New System.Drawing.Size(55, 14) + Label165.TabIndex = 10 + Label165.Text = "사용연료:" + ' + 'Label166 + ' + Label166.AutoSize = True + Label166.BackColor = System.Drawing.Color.FromArgb(CType(CType(219, Byte), Integer), CType(CType(221, Byte), Integer), CType(CType(223, Byte), Integer)) + Label166.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label166.Location = New System.Drawing.Point(4, 17) + Label166.Name = "Label166" + Label166.Size = New System.Drawing.Size(102, 14) + Label166.TabIndex = 8 + Label166.Text = "열생산기기의 방식:" + Label166.TextAlign = System.Drawing.ContentAlignment.MiddleRight + ' + 'Label181 + ' + Label181.AutoSize = True + Label181.BackColor = System.Drawing.Color.FromArgb(CType(CType(219, Byte), Integer), CType(CType(221, Byte), Integer), CType(CType(223, Byte), Integer)) + Label181.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label181.Location = New System.Drawing.Point(194, 17) + Label181.Name = "Label181" + Label181.Size = New System.Drawing.Size(96, 14) + Label181.TabIndex = 10 + Label181.Text = "보일러-용량[kW]:" + Label181.TextAlign = System.Drawing.ContentAlignment.MiddleLeft + ' + 'Label185 + ' + Label185.AutoSize = True + Label185.BackColor = System.Drawing.Color.FromArgb(CType(CType(219, Byte), Integer), CType(CType(221, Byte), Integer), CType(CType(223, Byte), Integer)) + Label185.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label185.Location = New System.Drawing.Point(4, 66) + Label185.Name = "Label185" + Label185.Size = New System.Drawing.Size(71, 14) + Label185.TabIndex = 18 + Label185.Text = "급수온도[C]:" + ' + 'Label186 + ' + Label186.AutoSize = True + Label186.BackColor = System.Drawing.Color.FromArgb(CType(CType(219, Byte), Integer), CType(CType(221, Byte), Integer), CType(CType(223, Byte), Integer)) + Label186.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label186.Location = New System.Drawing.Point(4, 92) + Label186.Name = "Label186" + Label186.Size = New System.Drawing.Size(71, 14) + Label186.TabIndex = 20 + Label186.Text = "환수온도[C]:" + ' + 'Label188 + ' + Label188.BackColor = System.Drawing.Color.FromArgb(CType(CType(219, Byte), Integer), CType(CType(221, Byte), Integer), CType(CType(223, Byte), Integer)) + Label188.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label188.Location = New System.Drawing.Point(191, 74) + Label188.Name = "Label188" + Label188.Size = New System.Drawing.Size(99, 31) + Label188.TabIndex = 24 + Label188.Text = "지역난방 열교환기 정격용량[kW]:" + Label188.TextAlign = System.Drawing.ContentAlignment.MiddleCenter + ' + 'Label184 + ' + Label184.AutoSize = True + Label184.BackColor = System.Drawing.Color.FromArgb(CType(CType(243, Byte), Integer), CType(CType(244, Byte), Integer), CType(CType(246, Byte), Integer)) + Label184.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label184.Location = New System.Drawing.Point(4, 26) + Label184.Name = "Label184" + Label184.Size = New System.Drawing.Size(87, 14) + Label184.TabIndex = 125 + Label184.Text = "보일러효율[%]:" + ' + 'Label190 + ' + Label190.AutoSize = True + Label190.BackColor = System.Drawing.Color.FromArgb(CType(CType(243, Byte), Integer), CType(CType(244, Byte), Integer), CType(CType(246, Byte), Integer)) + Label190.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label190.Location = New System.Drawing.Point(4, 79) + Label190.Name = "Label190" + Label190.Size = New System.Drawing.Size(69, 14) + Label190.TabIndex = 125 + Label190.Text = "보일러 방식:" + Label190.TextAlign = System.Drawing.ContentAlignment.MiddleLeft + ' + 'Label193 + ' + Label193.AutoSize = True + Label193.BackColor = System.Drawing.Color.FromArgb(CType(CType(243, Byte), Integer), CType(CType(244, Byte), Integer), CType(CType(246, Byte), Integer)) + Label193.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label193.Location = New System.Drawing.Point(10, 52) + Label193.Name = "Label193" + Label193.Size = New System.Drawing.Size(91, 14) + Label193.TabIndex = 125 + Label193.Text = "기계실 단열등급:" + Label193.TextAlign = System.Drawing.ContentAlignment.MiddleLeft + ' + 'Label192 + ' + Label192.AutoSize = True + Label192.BackColor = System.Drawing.Color.FromArgb(CType(CType(243, Byte), Integer), CType(CType(244, Byte), Integer), CType(CType(246, Byte), Integer)) + Label192.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label192.Location = New System.Drawing.Point(21, 26) + Label192.Name = "Label192" + Label192.Size = New System.Drawing.Size(80, 14) + Label192.TabIndex = 125 + Label192.Text = "지역난방 방식:" + Label192.TextAlign = System.Drawing.ContentAlignment.MiddleLeft + ' + 'Label194 + ' + Label194.AutoSize = True + Label194.BackColor = System.Drawing.Color.FromArgb(CType(CType(219, Byte), Integer), CType(CType(221, Byte), Integer), CType(CType(223, Byte), Integer)) + Label194.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label194.Location = New System.Drawing.Point(5, 21) + Label194.Name = "Label194" + Label194.Size = New System.Drawing.Size(80, 14) + Label194.TabIndex = 125 + Label194.Text = "축열탱크 방식:" + Label194.TextAlign = System.Drawing.ContentAlignment.MiddleLeft + ' + 'Label195 + ' + Label195.AutoSize = True + Label195.BackColor = System.Drawing.Color.FromArgb(CType(CType(219, Byte), Integer), CType(CType(221, Byte), Integer), CType(CType(223, Byte), Integer)) + Label195.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label195.Location = New System.Drawing.Point(5, 82) + Label195.Name = "Label195" + Label195.Size = New System.Drawing.Size(100, 14) + Label195.TabIndex = 125 + Label195.Text = "펌프 정격동력[W]:" + Label195.TextAlign = System.Drawing.ContentAlignment.MiddleLeft + ' + 'Label196 + ' + Label196.AutoSize = True + Label196.BackColor = System.Drawing.Color.FromArgb(CType(CType(219, Byte), Integer), CType(CType(221, Byte), Integer), CType(CType(223, Byte), Integer)) + Label196.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label196.Location = New System.Drawing.Point(5, 54) + Label196.Name = "Label196" + Label196.Size = New System.Drawing.Size(102, 14) + Label196.TabIndex = 125 + Label196.Text = "축열탱크의 용량[l]:" + Label196.TextAlign = System.Drawing.ContentAlignment.MiddleLeft + ' + 'Label2 + ' + Label2.AutoSize = True + Label2.BackColor = System.Drawing.Color.FromArgb(CType(CType(243, Byte), Integer), CType(CType(244, Byte), Integer), CType(CType(246, Byte), Integer)) + Label2.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label2.Location = New System.Drawing.Point(7, 16) + Label2.Name = "Label2" + Label2.Size = New System.Drawing.Size(155, 14) + Label2.TabIndex = 8 + Label2.Text = "＊배관망-유형(이중배관고정):" + ' + 'Label3 + ' + Label3.AutoSize = True + Label3.BackColor = System.Drawing.Color.FromArgb(CType(CType(243, Byte), Integer), CType(CType(244, Byte), Integer), CType(CType(246, Byte), Integer)) + Label3.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label3.Location = New System.Drawing.Point(7, 94) + Label3.Name = "Label3" + Label3.Size = New System.Drawing.Size(163, 14) + Label3.TabIndex = 14 + Label3.Text = "＊펌프동력(다수는 동력합)[W]:" + ' + 'Label4 + ' + Label4.AutoSize = True + Label4.BackColor = System.Drawing.Color.FromArgb(CType(CType(243, Byte), Integer), CType(CType(244, Byte), Integer), CType(CType(246, Byte), Integer)) + Label4.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label4.Location = New System.Drawing.Point(7, 68) + Label4.Name = "Label4" + Label4.Size = New System.Drawing.Size(88, 14) + Label4.TabIndex = 12 + Label4.Text = "＊펌프제어유형:" + ' + 'Label5 + ' + 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, 42) + Label5.Name = "Label5" + Label5.Size = New System.Drawing.Size(144, 14) + Label5.TabIndex = 10 + Label5.Text = "＊펌프감소계수(야간,주말):" + ' + 'Label6 + ' + Label6.AutoSize = True + Label6.BackColor = System.Drawing.Color.FromArgb(CType(CType(219, Byte), Integer), CType(CType(221, Byte), Integer), CType(CType(223, Byte), Integer)) + Label6.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label6.Location = New System.Drawing.Point(7, 38) + Label6.Name = "Label6" + Label6.Size = New System.Drawing.Size(63, 14) + Label6.TabIndex = 18 + Label6.Text = "순환 유/무:" + ' + 'Label7 + ' + Label7.AutoSize = True + Label7.BackColor = System.Drawing.Color.FromArgb(CType(CType(219, Byte), Integer), CType(CType(221, Byte), Integer), CType(CType(223, Byte), Integer)) + Label7.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label7.Location = New System.Drawing.Point(7, 17) + Label7.Name = "Label7" + Label7.Size = New System.Drawing.Size(66, 14) + Label7.TabIndex = 16 + Label7.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(7, 85) + Label8.Name = "Label8" + Label8.Size = New System.Drawing.Size(78, 14) + Label8.TabIndex = 22 + Label8.Text = "펌프 동력[W]:" + ' + '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(7, 62) + Label9.Name = "Label9" + Label9.Size = New System.Drawing.Size(55, 14) + Label9.TabIndex = 20 + Label9.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, 34) + Label10.Name = "Label10" + Label10.Size = New System.Drawing.Size(52, 14) + Label10.TabIndex = 24 + Label10.Text = "길이[m]:" + ' + 'Label11 + ' + 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(107, 56) + Label11.Name = "Label11" + Label11.Size = New System.Drawing.Size(52, 14) + Label11.TabIndex = 30 + Label11.Text = "층고[m]:" + ' + 'Label12 + ' + Label12.AutoSize = True + Label12.BackColor = System.Drawing.Color.FromArgb(CType(CType(219, Byte), Integer), CType(CType(221, Byte), Integer), CType(CType(223, Byte), Integer)) + Label12.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label12.Location = New System.Drawing.Point(6, 56) + Label12.Name = "Label12" + Label12.Size = New System.Drawing.Size(52, 14) + Label12.TabIndex = 26 + Label12.Text = "너비[m]:" + ' + 'Label13 + ' + Label13.AutoSize = True + Label13.BackColor = System.Drawing.Color.FromArgb(CType(CType(219, Byte), Integer), CType(CType(221, Byte), Integer), CType(CType(223, Byte), Integer)) + Label13.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label13.Location = New System.Drawing.Point(123, 33) + Label13.Name = "Label13" + Label13.Size = New System.Drawing.Size(36, 14) + Label13.TabIndex = 28 + Label13.Text = "층 수:" + ' + 'Label14 + ' + Label14.AutoSize = True + Label14.BackColor = System.Drawing.Color.FromArgb(CType(CType(243, Byte), Integer), CType(CType(244, Byte), Integer), CType(CType(246, Byte), Integer)) + Label14.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label14.Location = New System.Drawing.Point(6, 35) + Label14.Name = "Label14" + Label14.Size = New System.Drawing.Size(134, 14) + Label14.TabIndex = 32 + Label14.Text = "-신재생 시스템 연결 여부:" + ' + 'Label15 + ' + Label15.AutoSize = True + Label15.BackColor = System.Drawing.Color.FromArgb(CType(CType(243, Byte), Integer), CType(CType(244, Byte), Integer), CType(CType(246, Byte), Integer)) + Label15.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label15.Location = New System.Drawing.Point(8, 60) + Label15.Name = "Label15" + Label15.Size = New System.Drawing.Size(84, 14) + Label15.TabIndex = 34 + Label15.Text = "-연결된 시스템:" + ' + 'Label1 + ' + Label1.AutoSize = True + Label1.BackColor = System.Drawing.Color.FromArgb(CType(CType(243, Byte), Integer), CType(CType(244, Byte), Integer), CType(CType(246, Byte), Integer)) + Label1.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label1.Location = New System.Drawing.Point(7, 15) + Label1.Name = "Label1" + Label1.Size = New System.Drawing.Size(58, 14) + Label1.TabIndex = 125 + Label1.Text = "사용연료 :" + Label1.TextAlign = System.Drawing.ContentAlignment.MiddleCenter + ' + 'Label17 + ' + Label17.AutoSize = True + Label17.BackColor = System.Drawing.Color.FromArgb(CType(CType(243, Byte), Integer), CType(CType(244, Byte), Integer), CType(CType(246, Byte), Integer)) + Label17.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label17.Location = New System.Drawing.Point(7, 35) + Label17.Name = "Label17" + Label17.Size = New System.Drawing.Size(147, 14) + Label17.TabIndex = 125 + Label17.Text = "난방용량(다수는 평균)[kW]:" + Label17.TextAlign = System.Drawing.ContentAlignment.MiddleLeft + ' + 'Label16 + ' + Label16.AutoSize = True + Label16.BackColor = System.Drawing.Color.FromArgb(CType(CType(243, Byte), Integer), CType(CType(244, Byte), Integer), CType(CType(246, Byte), Integer)) + Label16.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label16.Location = New System.Drawing.Point(7, 58) + Label16.Name = "Label16" + Label16.Size = New System.Drawing.Size(127, 14) + Label16.TabIndex = 125 + Label16.Text = "히트펌프난방COP(7도):" + Label16.TextAlign = System.Drawing.ContentAlignment.MiddleLeft + ' + 'Label19 + ' + Label19.AutoSize = True + Label19.BackColor = System.Drawing.Color.FromArgb(CType(CType(243, Byte), Integer), CType(CType(244, Byte), Integer), CType(CType(246, Byte), Integer)) + Label19.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label19.Location = New System.Drawing.Point(7, 81) + Label19.Name = "Label19" + Label19.Size = New System.Drawing.Size(138, 14) + Label19.TabIndex = 125 + Label19.Text = "히트펌프난방COP(-10도):" + Label19.TextAlign = System.Drawing.ContentAlignment.MiddleLeft + ' + 'Label20 + ' + Label20.AutoSize = True + Label20.BackColor = System.Drawing.Color.FromArgb(CType(CType(243, Byte), Integer), CType(CType(244, Byte), Integer), CType(CType(246, Byte), Integer)) + Label20.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label20.Location = New System.Drawing.Point(7, 104) + Label20.Name = "Label20" + Label20.Size = New System.Drawing.Size(154, 14) + Label20.TabIndex = 125 + Label20.Text = "실내외기의 최대배관길이[m]:" + Label20.TextAlign = System.Drawing.ContentAlignment.MiddleLeft + ' + 'Label27 + ' + Label27.AutoSize = True + Label27.BackColor = System.Drawing.Color.FromArgb(CType(CType(243, Byte), Integer), CType(CType(244, Byte), Integer), CType(CType(246, Byte), Integer)) + Label27.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label27.Location = New System.Drawing.Point(7, 127) + Label27.Name = "Label27" + Label27.Size = New System.Drawing.Size(69, 14) + Label27.TabIndex = 125 + Label27.Text = "시스템 종류:" + Label27.TextAlign = System.Drawing.ContentAlignment.MiddleLeft + ' + 'Label28 + ' + Label28.AutoSize = True + Label28.BackColor = System.Drawing.Color.FromArgb(CType(CType(219, Byte), Integer), CType(CType(221, Byte), Integer), CType(CType(223, Byte), Integer)) + Label28.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label28.Location = New System.Drawing.Point(85, 83) + Label28.Name = "Label28" + Label28.Size = New System.Drawing.Size(74, 14) + Label28.TabIndex = 24 + Label28.Text = "배관길이[m]:" + ' + 'Label182 + ' + Me.Label182.AutoSize = True + Me.Label182.BackColor = System.Drawing.Color.FromArgb(CType(CType(219, Byte), Integer), CType(CType(221, Byte), Integer), CType(CType(223, Byte), Integer)) + Me.Label182.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Me.Label182.Location = New System.Drawing.Point(7, 69) + Me.Label182.Name = "Label182" + Me.Label182.Size = New System.Drawing.Size(109, 28) + Me.Label182.TabIndex = 20 + Me.Label182.Text = " 보일러 대수:" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "(다수 보일러인 경우)" + Me.Label182.TextAlign = System.Drawing.ContentAlignment.MiddleLeft + ' + 'Label180 + ' + Me.Label180.AutoSize = True + Me.Label180.BackColor = System.Drawing.Color.FromArgb(CType(CType(219, Byte), Integer), CType(CType(221, Byte), Integer), CType(CType(223, Byte), Integer)) + Me.Label180.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Me.Label180.Location = New System.Drawing.Point(15, 35) + Me.Label180.Name = "Label180" + Me.Label180.Size = New System.Drawing.Size(76, 28) + Me.Label180.TabIndex = 20 + Me.Label180.Text = "난방생산기기 " & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & " 운전방식:" + ' + 'GroupBox2 + ' + Me.GroupBox2.Controls.Add(Me.Label182) + Me.GroupBox2.Controls.Add(Me.tb_보일러대수다수) + Me.GroupBox2.Controls.Add(Me.Label50) + Me.GroupBox2.Controls.Add(Me.Label180) + Me.GroupBox2.Controls.Add(Me.운전방식NCMB) + Me.GroupBox2.Controls.Add(Me.PictureBox2) + Me.GroupBox2.Location = New System.Drawing.Point(363, 21) + Me.GroupBox2.Name = "GroupBox2" + Me.GroupBox2.Size = New System.Drawing.Size(230, 114) + Me.GroupBox2.TabIndex = 119 + Me.GroupBox2.TabStop = False + ' + 'tb_보일러대수다수 + ' + Me.tb_보일러대수다수.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bs, "보일러대수", True)) + Me.tb_보일러대수다수.Location = New System.Drawing.Point(123, 63) + Me.tb_보일러대수다수.Name = "tb_보일러대수다수" + Me.tb_보일러대수다수.NectControl = Nothing + Me.tb_보일러대수다수.Size = New System.Drawing.Size(91, 21) + Me.tb_보일러대수다수.TabIndex = 7 + Me.tb_보일러대수다수.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + ' + 'bs + ' + Me.bs.DataMember = "tbl_nanbangkiki" + Me.bs.DataSource = Me.DS + Me.bs.Filter = "code <> '0'" + ' + 'DS + ' + Me.DS.DataSetName = "DS" + Me.DS.SchemaSerializationMode = System.Data.SchemaSerializationMode.IncludeSchema + ' + 'Label50 + ' + Me.Label50.AutoSize = True + Me.Label50.BackColor = System.Drawing.Color.FromArgb(CType(CType(219, Byte), Integer), CType(CType(221, Byte), Integer), CType(CType(223, Byte), Integer)) + Me.Label50.ForeColor = System.Drawing.Color.DarkCyan + Me.Label50.Location = New System.Drawing.Point(12, 16) + Me.Label50.Name = "Label50" + Me.Label50.Size = New System.Drawing.Size(87, 14) + Me.Label50.TabIndex = 118 + Me.Label50.Text = "경계조건 표준치" + Me.Label50.TextAlign = System.Drawing.ContentAlignment.MiddleRight + ' + '운전방식NCMB + ' + Me.운전방식NCMB.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList + Me.운전방식NCMB.FormattingEnabled = True + Me.운전방식NCMB.Location = New System.Drawing.Point(123, 34) + Me.운전방식NCMB.Name = "운전방식NCMB" + Me.운전방식NCMB.NectControl = Nothing + Me.운전방식NCMB.Size = New System.Drawing.Size(90, 22) + Me.운전방식NCMB.TabIndex = 6 + ' + 'PictureBox2 + ' + Me.PictureBox2.BackColor = System.Drawing.Color.FromArgb(CType(CType(219, Byte), Integer), CType(CType(221, Byte), Integer), CType(CType(223, Byte), Integer)) + Me.PictureBox2.Location = New System.Drawing.Point(2, 9) + Me.PictureBox2.Name = "PictureBox2" + Me.PictureBox2.Size = New System.Drawing.Size(225, 102) + Me.PictureBox2.TabIndex = 119 + Me.PictureBox2.TabStop = False + ' + 'GroupBox1 + ' + Me.GroupBox1.Controls.Add(Me.열교환기정격출력NTb) + Me.GroupBox1.Controls.Add(Label185) + Me.GroupBox1.Controls.Add(Label188) + Me.GroupBox1.Controls.Add(Label186) + Me.GroupBox1.Controls.Add(Me.Label23) + Me.GroupBox1.Controls.Add(Me.Label21) + Me.GroupBox1.Controls.Add(Label165) + Me.GroupBox1.Controls.Add(Label181) + Me.GroupBox1.Controls.Add(Me.보일러정격출력NTb) + Me.GroupBox1.Controls.Add(Me.환수온도NTb1) + Me.GroupBox1.Controls.Add(Label166) + Me.GroupBox1.Controls.Add(Me.급수온도NTb1) + Me.GroupBox1.Controls.Add(Me.사용연료NCMB) + Me.GroupBox1.Controls.Add(Me.열생산기기방식NCMB) + Me.GroupBox1.Controls.Add(Me.PictureBox1) + Me.GroupBox1.Location = New System.Drawing.Point(4, 21) + Me.GroupBox1.Name = "GroupBox1" + Me.GroupBox1.Size = New System.Drawing.Size(358, 114) + Me.GroupBox1.TabIndex = 2 + Me.GroupBox1.TabStop = False + ' + '열교환기정격출력NTb + ' + Me.열교환기정격출력NTb.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bs, "열교환기정격출력", True)) + Me.열교환기정격출력NTb.Location = New System.Drawing.Point(293, 79) + Me.열교환기정격출력NTb.Name = "열교환기정격출력NTb" + Me.열교환기정격출력NTb.NectControl = Nothing + Me.열교환기정격출력NTb.Size = New System.Drawing.Size(62, 21) + Me.열교환기정격출력NTb.TabIndex = 5 + Me.열교환기정격출력NTb.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + ' + 'Label23 + ' + Me.Label23.AutoSize = True + Me.Label23.BackColor = System.Drawing.Color.FromArgb(CType(CType(219, Byte), Integer), CType(CType(221, Byte), Integer), CType(CType(223, Byte), Integer)) + Me.Label23.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Me.Label23.Location = New System.Drawing.Point(202, 57) + Me.Label23.Name = "Label23" + Me.Label23.Size = New System.Drawing.Size(80, 14) + Me.Label23.TabIndex = 2 + Me.Label23.Text = " 평균정격용량)" + ' + 'Label21 + ' + Me.Label21.AutoSize = True + Me.Label21.BackColor = System.Drawing.Color.FromArgb(CType(CType(219, Byte), Integer), CType(CType(221, Byte), Integer), CType(CType(223, Byte), Integer)) + Me.Label21.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Me.Label21.Location = New System.Drawing.Point(190, 42) + Me.Label21.Name = "Label21" + Me.Label21.Size = New System.Drawing.Size(116, 14) + Me.Label21.TabIndex = 2 + Me.Label21.Text = "(※다수 보일러인 경우" + ' + '보일러정격출력NTb + ' + Me.보일러정격출력NTb.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bs, "보일러정격출력", True)) + Me.보일러정격출력NTb.Location = New System.Drawing.Point(293, 14) + Me.보일러정격출력NTb.Name = "보일러정격출력NTb" + Me.보일러정격출력NTb.NectControl = Nothing + Me.보일러정격출력NTb.Size = New System.Drawing.Size(62, 21) + Me.보일러정격출력NTb.TabIndex = 4 + Me.보일러정격출력NTb.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + ' + '환수온도NTb1 + ' + Me.환수온도NTb1.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bs, "환수온도", True)) + Me.환수온도NTb1.Location = New System.Drawing.Point(108, 87) + Me.환수온도NTb1.Name = "환수온도NTb1" + Me.환수온도NTb1.NectControl = Nothing + Me.환수온도NTb1.Size = New System.Drawing.Size(79, 21) + Me.환수온도NTb1.TabIndex = 3 + Me.환수온도NTb1.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + ' + '급수온도NTb1 + ' + Me.급수온도NTb1.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bs, "급수온도", True)) + Me.급수온도NTb1.Location = New System.Drawing.Point(108, 63) + Me.급수온도NTb1.Name = "급수온도NTb1" + Me.급수온도NTb1.NectControl = Nothing + Me.급수온도NTb1.Size = New System.Drawing.Size(79, 21) + Me.급수온도NTb1.TabIndex = 2 + Me.급수온도NTb1.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + ' + '사용연료NCMB + ' + Me.사용연료NCMB.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList + Me.사용연료NCMB.FormattingEnabled = True + Me.사용연료NCMB.Location = New System.Drawing.Point(108, 39) + Me.사용연료NCMB.Name = "사용연료NCMB" + Me.사용연료NCMB.NectControl = Nothing + Me.사용연료NCMB.Size = New System.Drawing.Size(79, 22) + Me.사용연료NCMB.TabIndex = 1 + ' + '열생산기기방식NCMB + ' + Me.열생산기기방식NCMB.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList + Me.열생산기기방식NCMB.FormattingEnabled = True + Me.열생산기기방식NCMB.Location = New System.Drawing.Point(108, 14) + Me.열생산기기방식NCMB.Name = "열생산기기방식NCMB" + Me.열생산기기방식NCMB.NectControl = Nothing + Me.열생산기기방식NCMB.Size = New System.Drawing.Size(79, 22) + Me.열생산기기방식NCMB.TabIndex = 0 + ' + 'PictureBox1 + ' + 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(3, 9) + Me.PictureBox1.Name = "PictureBox1" + Me.PictureBox1.Size = New System.Drawing.Size(354, 102) + Me.PictureBox1.TabIndex = 119 + Me.PictureBox1.TabStop = False + ' + 'GroupBox5 + ' + Me.GroupBox5.Controls.Add(Me.cmb_히트펌프시스템종류) + Me.GroupBox5.Controls.Add(Label1) + Me.GroupBox5.Controls.Add(Me.tb_히트길이) + Me.GroupBox5.Controls.Add(Me.cmb_히트사용연료) + Me.GroupBox5.Controls.Add(Label19) + Me.GroupBox5.Controls.Add(Me.tb_히트정격10) + Me.GroupBox5.Controls.Add(Me.tb_히트정격7) + Me.GroupBox5.Controls.Add(Me.tb_히트용량) + Me.GroupBox5.Controls.Add(Label17) + Me.GroupBox5.Controls.Add(Label27) + Me.GroupBox5.Controls.Add(Label20) + Me.GroupBox5.Controls.Add(Label16) + Me.GroupBox5.Controls.Add(Me.PictureBox9) + Me.GroupBox5.Location = New System.Drawing.Point(362, 162) + Me.GroupBox5.Name = "GroupBox5" + Me.GroupBox5.Size = New System.Drawing.Size(231, 152) + Me.GroupBox5.TabIndex = 2 + Me.GroupBox5.TabStop = False + ' + 'cmb_히트펌프시스템종류 + ' + 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(133, 124) + Me.cmb_히트펌프시스템종류.Name = "cmb_히트펌프시스템종류" + Me.cmb_히트펌프시스템종류.NectControl = Nothing + Me.cmb_히트펌프시스템종류.Size = New System.Drawing.Size(94, 22) + Me.cmb_히트펌프시스템종류.TabIndex = 17 + ' + 'tb_히트길이 + ' + Me.tb_히트길이.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bs, "히트배관길이", True)) + Me.tb_히트길이.Location = New System.Drawing.Point(158, 101) + Me.tb_히트길이.Name = "tb_히트길이" + Me.tb_히트길이.NectControl = Nothing + Me.tb_히트길이.Size = New System.Drawing.Size(69, 21) + Me.tb_히트길이.TabIndex = 16 + Me.tb_히트길이.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + ' + 'cmb_히트사용연료 + ' + 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(158, 12) + Me.cmb_히트사용연료.Name = "cmb_히트사용연료" + Me.cmb_히트사용연료.NectControl = Nothing + Me.cmb_히트사용연료.Size = New System.Drawing.Size(69, 22) + Me.cmb_히트사용연료.TabIndex = 12 + ' + 'tb_히트정격10 + ' + Me.tb_히트정격10.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bs, "히트난방정격10", True)) + Me.tb_히트정격10.Location = New System.Drawing.Point(158, 79) + Me.tb_히트정격10.Name = "tb_히트정격10" + Me.tb_히트정격10.NectControl = Nothing + Me.tb_히트정격10.Size = New System.Drawing.Size(69, 21) + Me.tb_히트정격10.TabIndex = 15 + Me.tb_히트정격10.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + ' + 'tb_히트정격7 + ' + Me.tb_히트정격7.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bs, "히트난방정격7", True)) + Me.tb_히트정격7.Location = New System.Drawing.Point(158, 57) + Me.tb_히트정격7.Name = "tb_히트정격7" + Me.tb_히트정격7.NectControl = Nothing + Me.tb_히트정격7.Size = New System.Drawing.Size(69, 21) + Me.tb_히트정격7.TabIndex = 14 + Me.tb_히트정격7.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(158, 35) + Me.tb_히트용량.Name = "tb_히트용량" + Me.tb_히트용량.NectControl = Nothing + Me.tb_히트용량.Size = New System.Drawing.Size(69, 21) + Me.tb_히트용량.TabIndex = 13 + Me.tb_히트용량.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + ' + 'PictureBox9 + ' + Me.PictureBox9.BackColor = System.Drawing.Color.FromArgb(CType(CType(243, Byte), Integer), CType(CType(244, Byte), Integer), CType(CType(246, Byte), Integer)) + Me.PictureBox9.Location = New System.Drawing.Point(2, 9) + Me.PictureBox9.Name = "PictureBox9" + Me.PictureBox9.Size = New System.Drawing.Size(227, 140) + Me.PictureBox9.TabIndex = 126 + Me.PictureBox9.TabStop = False + ' + 'Label189 + ' + Me.Label189.AutoSize = True + Me.Label189.BackColor = System.Drawing.Color.FromArgb(CType(CType(243, Byte), Integer), CType(CType(244, Byte), Integer), CType(CType(246, Byte), Integer)) + Me.Label189.ForeColor = System.Drawing.Color.DarkCyan + Me.Label189.Location = New System.Drawing.Point(6, 60) + Me.Label189.Name = "Label189" + Me.Label189.Size = New System.Drawing.Size(123, 14) + Me.Label189.TabIndex = 127 + Me.Label189.Text = "표준치에 대한 경계조건" + Me.Label189.TextAlign = System.Drawing.ContentAlignment.MiddleRight + ' + 'GroupBox7 + ' + Me.GroupBox7.Controls.Add(Me.축열탱크방식NCMB) + Me.GroupBox7.Controls.Add(Label194) + Me.GroupBox7.Controls.Add(Me.MyTb1) + Me.GroupBox7.Controls.Add(Me.축열제척NTb) + Me.GroupBox7.Controls.Add(Label195) + Me.GroupBox7.Controls.Add(Label196) + Me.GroupBox7.Controls.Add(Me.PictureBox10) + Me.GroupBox7.Location = New System.Drawing.Point(2, 310) + Me.GroupBox7.Name = "GroupBox7" + Me.GroupBox7.Size = New System.Drawing.Size(189, 110) + Me.GroupBox7.TabIndex = 126 + Me.GroupBox7.TabStop = False + ' + '축열탱크방식NCMB + ' + Me.축열탱크방식NCMB.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList + Me.축열탱크방식NCMB.FormattingEnabled = True + Me.축열탱크방식NCMB.Location = New System.Drawing.Point(91, 18) + Me.축열탱크방식NCMB.Name = "축열탱크방식NCMB" + Me.축열탱크방식NCMB.NectControl = Nothing + Me.축열탱크방식NCMB.Size = New System.Drawing.Size(92, 22) + Me.축열탱크방식NCMB.TabIndex = 18 + ' + 'MyTb1 + ' + Me.MyTb1.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bs, "펌프정격전력", True)) + Me.MyTb1.Location = New System.Drawing.Point(109, 79) + Me.MyTb1.Name = "MyTb1" + Me.MyTb1.NectControl = Nothing + Me.MyTb1.Size = New System.Drawing.Size(74, 21) + Me.MyTb1.TabIndex = 20 + Me.MyTb1.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + ' + '축열제척NTb + ' + Me.축열제척NTb.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bs, "축열제척", True)) + Me.축열제척NTb.Location = New System.Drawing.Point(109, 51) + Me.축열제척NTb.Name = "축열제척NTb" + Me.축열제척NTb.NectControl = Nothing + Me.축열제척NTb.Size = New System.Drawing.Size(74, 21) + Me.축열제척NTb.TabIndex = 19 + Me.축열제척NTb.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + ' + 'PictureBox10 + ' + Me.PictureBox10.BackColor = System.Drawing.Color.FromArgb(CType(CType(219, Byte), Integer), CType(CType(221, Byte), Integer), CType(CType(223, Byte), Integer)) + Me.PictureBox10.Location = New System.Drawing.Point(1, 9) + Me.PictureBox10.Name = "PictureBox10" + Me.PictureBox10.Size = New System.Drawing.Size(186, 98) + Me.PictureBox10.TabIndex = 126 + Me.PictureBox10.TabStop = False + ' + 'GroupBox8 + ' + Me.GroupBox8.Controls.Add(Label2) + Me.GroupBox8.Controls.Add(Me.배관망유형ComboBox) + Me.GroupBox8.Controls.Add(Me.펌프제어유형ComboBox) + Me.GroupBox8.Controls.Add(Label3) + Me.GroupBox8.Controls.Add(Me.펌프동력NTb) + Me.GroupBox8.Controls.Add(Me.펌프교정계수ComboBox) + Me.GroupBox8.Controls.Add(Label4) + Me.GroupBox8.Controls.Add(Label5) + Me.GroupBox8.Controls.Add(Me.PictureBox16) + Me.GroupBox8.Location = New System.Drawing.Point(2, 415) + Me.GroupBox8.Name = "GroupBox8" + Me.GroupBox8.Size = New System.Drawing.Size(305, 118) + Me.GroupBox8.TabIndex = 15 + Me.GroupBox8.TabStop = False + ' + '배관망유형ComboBox + ' + Me.배관망유형ComboBox.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList + Me.배관망유형ComboBox.FormattingEnabled = True + Me.배관망유형ComboBox.Location = New System.Drawing.Point(192, 13) + Me.배관망유형ComboBox.Name = "배관망유형ComboBox" + Me.배관망유형ComboBox.NectControl = Nothing + Me.배관망유형ComboBox.Size = New System.Drawing.Size(107, 22) + Me.배관망유형ComboBox.TabIndex = 30 + ' + '펌프제어유형ComboBox + ' + Me.펌프제어유형ComboBox.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList + Me.펌프제어유형ComboBox.FormattingEnabled = True + Me.펌프제어유형ComboBox.Location = New System.Drawing.Point(192, 65) + Me.펌프제어유형ComboBox.Name = "펌프제어유형ComboBox" + Me.펌프제어유형ComboBox.NectControl = Nothing + Me.펌프제어유형ComboBox.Size = New System.Drawing.Size(107, 22) + Me.펌프제어유형ComboBox.TabIndex = 32 + ' + '펌프동력NTb + ' + Me.펌프동력NTb.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bs, "펌프동력", True)) + Me.펌프동력NTb.Location = New System.Drawing.Point(192, 91) + Me.펌프동력NTb.Name = "펌프동력NTb" + Me.펌프동력NTb.NectControl = Nothing + Me.펌프동력NTb.Size = New System.Drawing.Size(107, 21) + Me.펌프동력NTb.TabIndex = 33 + Me.펌프동력NTb.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + ' + '펌프교정계수ComboBox + ' + Me.펌프교정계수ComboBox.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList + Me.펌프교정계수ComboBox.FormattingEnabled = True + Me.펌프교정계수ComboBox.Location = New System.Drawing.Point(192, 39) + Me.펌프교정계수ComboBox.Name = "펌프교정계수ComboBox" + Me.펌프교정계수ComboBox.NectControl = Nothing + Me.펌프교정계수ComboBox.Size = New System.Drawing.Size(107, 22) + Me.펌프교정계수ComboBox.TabIndex = 31 + ' + 'PictureBox16 + ' + Me.PictureBox16.BackColor = System.Drawing.Color.FromArgb(CType(CType(243, Byte), Integer), CType(CType(244, Byte), Integer), CType(CType(246, Byte), Integer)) + Me.PictureBox16.Location = New System.Drawing.Point(3, 9) + Me.PictureBox16.Name = "PictureBox16" + Me.PictureBox16.Size = New System.Drawing.Size(300, 106) + Me.PictureBox16.TabIndex = 126 + Me.PictureBox16.TabStop = False + ' + 'GroupBox10 + ' + Me.GroupBox10.Controls.Add(Label6) + Me.GroupBox10.Controls.Add(Me.분배시스템방식ComboBox) + Me.GroupBox10.Controls.Add(Label7) + Me.GroupBox10.Controls.Add(Me.펌프동력급탕NTb) + Me.GroupBox10.Controls.Add(Label8) + Me.GroupBox10.Controls.Add(Me.펌프제어ComboBox) + Me.GroupBox10.Controls.Add(Label9) + Me.GroupBox10.Controls.Add(Me.순환유무ComboBox) + Me.GroupBox10.Controls.Add(Me.PictureBox11) + Me.GroupBox10.Location = New System.Drawing.Point(193, 310) + Me.GroupBox10.Name = "GroupBox10" + Me.GroupBox10.Size = New System.Drawing.Size(184, 110) + Me.GroupBox10.TabIndex = 2 + Me.GroupBox10.TabStop = False + ' + '분배시스템방식ComboBox + ' + Me.분배시스템방식ComboBox.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList + Me.분배시스템방식ComboBox.FormattingEnabled = True + Me.분배시스템방식ComboBox.Location = New System.Drawing.Point(85, 12) + Me.분배시스템방식ComboBox.Name = "분배시스템방식ComboBox" + Me.분배시스템방식ComboBox.NectControl = Nothing + Me.분배시스템방식ComboBox.Size = New System.Drawing.Size(92, 22) + Me.분배시스템방식ComboBox.TabIndex = 21 + ' + '펌프동력급탕NTb + ' + Me.펌프동력급탕NTb.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bs, "펌프동력급탕", True)) + Me.펌프동력급탕NTb.Location = New System.Drawing.Point(85, 82) + Me.펌프동력급탕NTb.Name = "펌프동력급탕NTb" + Me.펌프동력급탕NTb.NectControl = Nothing + Me.펌프동력급탕NTb.Size = New System.Drawing.Size(92, 21) + Me.펌프동력급탕NTb.TabIndex = 24 + Me.펌프동력급탕NTb.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + ' + '펌프제어ComboBox + ' + Me.펌프제어ComboBox.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList + Me.펌프제어ComboBox.FormattingEnabled = True + Me.펌프제어ComboBox.Location = New System.Drawing.Point(85, 59) + Me.펌프제어ComboBox.Name = "펌프제어ComboBox" + Me.펌프제어ComboBox.NectControl = Nothing + Me.펌프제어ComboBox.Size = New System.Drawing.Size(92, 22) + Me.펌프제어ComboBox.TabIndex = 23 + ' + '순환유무ComboBox + ' + Me.순환유무ComboBox.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList + Me.순환유무ComboBox.FormattingEnabled = True + Me.순환유무ComboBox.Location = New System.Drawing.Point(85, 35) + Me.순환유무ComboBox.Name = "순환유무ComboBox" + Me.순환유무ComboBox.NectControl = Nothing + Me.순환유무ComboBox.Size = New System.Drawing.Size(92, 22) + Me.순환유무ComboBox.TabIndex = 22 + ' + 'PictureBox11 + ' + Me.PictureBox11.BackColor = System.Drawing.Color.FromArgb(CType(CType(219, Byte), Integer), CType(CType(221, Byte), Integer), CType(CType(223, Byte), Integer)) + Me.PictureBox11.Location = New System.Drawing.Point(0, 9) + Me.PictureBox11.Name = "PictureBox11" + Me.PictureBox11.Size = New System.Drawing.Size(182, 98) + Me.PictureBox11.TabIndex = 126 + Me.PictureBox11.TabStop = False + ' + 'GroupBox9 + ' + Me.GroupBox9.Controls.Add(Me.RadioButton2) + Me.GroupBox9.Controls.Add(Me.RadioButton1) + Me.GroupBox9.Controls.Add(Label28) + Me.GroupBox9.Controls.Add(Label10) + Me.GroupBox9.Controls.Add(Label11) + Me.GroupBox9.Controls.Add(Label12) + Me.GroupBox9.Controls.Add(Me.열공급층수NTb) + Me.GroupBox9.Controls.Add(Label13) + Me.GroupBox9.Controls.Add(Me.건물넓이NTb) + Me.GroupBox9.Controls.Add(Me.급탕배관길이NTB) + Me.GroupBox9.Controls.Add(Me.건물길이NTb) + Me.GroupBox9.Controls.Add(Me.층고NTb) + Me.GroupBox9.Controls.Add(Me.PictureBox12) + Me.GroupBox9.Location = New System.Drawing.Point(379, 310) + Me.GroupBox9.Name = "GroupBox9" + Me.GroupBox9.Size = New System.Drawing.Size(214, 110) + Me.GroupBox9.TabIndex = 119 + Me.GroupBox9.TabStop = False + ' + 'RadioButton2 + ' + Me.RadioButton2.AutoSize = True + Me.RadioButton2.BackColor = System.Drawing.Color.FromArgb(CType(CType(219, Byte), Integer), CType(CType(221, Byte), Integer), CType(CType(223, Byte), Integer)) + Me.RadioButton2.ForeColor = System.Drawing.Color.DarkCyan + Me.RadioButton2.Location = New System.Drawing.Point(6, 81) + Me.RadioButton2.Name = "RadioButton2" + Me.RadioButton2.Size = New System.Drawing.Size(58, 18) + Me.RadioButton2.TabIndex = 128 + Me.RadioButton2.Text = "입력치" + Me.RadioButton2.UseVisualStyleBackColor = False + ' + 'RadioButton1 + ' + Me.RadioButton1.AutoSize = True + Me.RadioButton1.BackColor = System.Drawing.Color.FromArgb(CType(CType(219, Byte), Integer), CType(CType(221, Byte), Integer), CType(CType(223, Byte), Integer)) + Me.RadioButton1.Checked = True + Me.RadioButton1.ForeColor = System.Drawing.Color.DarkCyan + Me.RadioButton1.Location = New System.Drawing.Point(6, 11) + Me.RadioButton1.Name = "RadioButton1" + Me.RadioButton1.Size = New System.Drawing.Size(105, 18) + Me.RadioButton1.TabIndex = 127 + Me.RadioButton1.TabStop = True + Me.RadioButton1.Text = "표준치 경계조건" + Me.RadioButton1.UseVisualStyleBackColor = False + ' + '열공급층수NTb + ' + Me.열공급층수NTb.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bs, "열공급층수", True)) + Me.열공급층수NTb.Location = New System.Drawing.Point(165, 30) + Me.열공급층수NTb.Name = "열공급층수NTb" + Me.열공급층수NTb.NectControl = Nothing + Me.열공급층수NTb.Size = New System.Drawing.Size(40, 21) + Me.열공급층수NTb.TabIndex = 27 + Me.열공급층수NTb.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + ' + '건물넓이NTb + ' + Me.건물넓이NTb.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bs, "건물넓이", True)) + Me.건물넓이NTb.Location = New System.Drawing.Point(61, 53) + Me.건물넓이NTb.Name = "건물넓이NTb" + Me.건물넓이NTb.NectControl = Nothing + Me.건물넓이NTb.Size = New System.Drawing.Size(40, 21) + Me.건물넓이NTb.TabIndex = 26 + Me.건물넓이NTb.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + ' + '급탕배관길이NTB + ' + Me.급탕배관길이NTB.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bs, "배관길이", True)) + Me.급탕배관길이NTB.Location = New System.Drawing.Point(165, 80) + Me.급탕배관길이NTB.Name = "급탕배관길이NTB" + Me.급탕배관길이NTB.NectControl = Nothing + Me.급탕배관길이NTB.Size = New System.Drawing.Size(40, 21) + Me.급탕배관길이NTB.TabIndex = 29 + Me.급탕배관길이NTB.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + ' + '건물길이NTb + ' + Me.건물길이NTb.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bs, "건물길이", True)) + Me.건물길이NTb.Location = New System.Drawing.Point(61, 30) + Me.건물길이NTb.Name = "건물길이NTb" + Me.건물길이NTb.NectControl = Nothing + Me.건물길이NTb.Size = New System.Drawing.Size(40, 21) + Me.건물길이NTb.TabIndex = 25 + Me.건물길이NTb.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + ' + '층고NTb + ' + Me.층고NTb.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bs, "층고", True)) + Me.층고NTb.Location = New System.Drawing.Point(165, 53) + Me.층고NTb.Name = "층고NTb" + Me.층고NTb.NectControl = Nothing + Me.층고NTb.Size = New System.Drawing.Size(40, 21) + Me.층고NTb.TabIndex = 28 + Me.층고NTb.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + ' + 'PictureBox12 + ' + Me.PictureBox12.BackColor = System.Drawing.Color.FromArgb(CType(CType(219, Byte), Integer), CType(CType(221, Byte), Integer), CType(CType(223, Byte), Integer)) + Me.PictureBox12.Location = New System.Drawing.Point(2, 9) + Me.PictureBox12.Name = "PictureBox12" + Me.PictureBox12.Size = New System.Drawing.Size(210, 98) + Me.PictureBox12.TabIndex = 126 + Me.PictureBox12.TabStop = False + ' + 'GroupBox39 + ' + Me.GroupBox39.Controls.Add(Me.Label22) + Me.GroupBox39.Controls.Add(Me.cmb_신재생) + Me.GroupBox39.Controls.Add(Me.신재생연결여부ComboBox) + Me.GroupBox39.Controls.Add(Label15) + Me.GroupBox39.Controls.Add(Label14) + Me.GroupBox39.Controls.Add(Me.PictureBox17) + Me.GroupBox39.Location = New System.Drawing.Point(314, 448) + Me.GroupBox39.Name = "GroupBox39" + Me.GroupBox39.Size = New System.Drawing.Size(277, 85) + Me.GroupBox39.TabIndex = 1 + Me.GroupBox39.TabStop = False + ' + 'Label22 + ' + Me.Label22.AutoSize = True + Me.Label22.BackColor = System.Drawing.Color.FromArgb(CType(CType(243, Byte), Integer), CType(CType(244, Byte), Integer), CType(CType(246, Byte), Integer)) + Me.Label22.Location = New System.Drawing.Point(8, 13) + Me.Label22.Name = "Label22" + Me.Label22.Size = New System.Drawing.Size(184, 14) + Me.Label22.TabIndex = 127 + Me.Label22.Text = "[신재생 및 열병합 시스템 연결 여부]" + ' + 'cmb_신재생 + ' + Me.cmb_신재생.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList + Me.cmb_신재생.FormattingEnabled = True + Me.cmb_신재생.Location = New System.Drawing.Point(154, 55) + Me.cmb_신재생.Name = "cmb_신재생" + Me.cmb_신재생.NectControl = Nothing + Me.cmb_신재생.Size = New System.Drawing.Size(102, 22) + Me.cmb_신재생.TabIndex = 35 + ' + '신재생연결여부ComboBox + ' + Me.신재생연결여부ComboBox.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList + Me.신재생연결여부ComboBox.FormattingEnabled = True + Me.신재생연결여부ComboBox.Location = New System.Drawing.Point(154, 30) + Me.신재생연결여부ComboBox.Name = "신재생연결여부ComboBox" + Me.신재생연결여부ComboBox.NectControl = Nothing + Me.신재생연결여부ComboBox.Size = New System.Drawing.Size(102, 22) + Me.신재생연결여부ComboBox.TabIndex = 34 + ' + 'PictureBox17 + ' + Me.PictureBox17.BackColor = System.Drawing.Color.FromArgb(CType(CType(243, Byte), Integer), CType(CType(244, Byte), Integer), CType(CType(246, Byte), Integer)) + Me.PictureBox17.Location = New System.Drawing.Point(2, 9) + Me.PictureBox17.Name = "PictureBox17" + Me.PictureBox17.Size = New System.Drawing.Size(271, 73) + Me.PictureBox17.TabIndex = 126 + Me.PictureBox17.TabStop = False + ' + '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.lb_grpname) + Me.SplitContainer1.Panel1.Controls.Add(Me.bn) + ' + 'SplitContainer1.Panel2 + ' + Me.SplitContainer1.Panel2.AutoScroll = True + Me.SplitContainer1.Panel2.AutoScrollMinSize = New System.Drawing.Size(0, 530) + Me.SplitContainer1.Panel2.BackColor = System.Drawing.Color.White + Me.SplitContainer1.Panel2.Controls.Add(Me.Label30) + Me.SplitContainer1.Panel2.Controls.Add(Me.PictureBox6) + Me.SplitContainer1.Panel2.Controls.Add(Me.Label18) + Me.SplitContainer1.Panel2.Controls.Add(Me.PictureBox15) + Me.SplitContainer1.Panel2.Controls.Add(Me.Label29) + Me.SplitContainer1.Panel2.Controls.Add(Me.PictureBox5) + Me.SplitContainer1.Panel2.Controls.Add(Me.Label25) + Me.SplitContainer1.Panel2.Controls.Add(Me.PictureBox3) + Me.SplitContainer1.Panel2.Controls.Add(Me.GroupBox4) + Me.SplitContainer1.Panel2.Controls.Add(Me.GroupBox3) + Me.SplitContainer1.Panel2.Controls.Add(Me.ToolStrip1) + Me.SplitContainer1.Panel2.Controls.Add(Me.GroupBox2) + Me.SplitContainer1.Panel2.Controls.Add(Me.GroupBox5) + Me.SplitContainer1.Panel2.Controls.Add(Me.GroupBox1) + Me.SplitContainer1.Panel2.Controls.Add(Me.GroupBox39) + Me.SplitContainer1.Panel2.Controls.Add(Me.Label26) + Me.SplitContainer1.Panel2.Controls.Add(Me.PictureBox14) + Me.SplitContainer1.Panel2.Controls.Add(Me.Label24) + Me.SplitContainer1.Panel2.Controls.Add(Me.PictureBox13) + Me.SplitContainer1.Panel2.Controls.Add(Me.GroupBox10) + Me.SplitContainer1.Panel2.Controls.Add(Me.GroupBox7) + Me.SplitContainer1.Panel2.Controls.Add(Me.GroupBox9) + Me.SplitContainer1.Panel2.Controls.Add(Me.GroupBox8) + Me.SplitContainer1.Size = New System.Drawing.Size(770, 570) + Me.SplitContainer1.SplitterDistance = 165 + Me.SplitContainer1.TabIndex = 129 + ' + 'dv + ' + Me.dv.A_DelCurrentCell = True + Me.dv.A_EnterToTab = True + 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.FromArgb(CType(CType(245, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(246, Byte), Integer)) + 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, 26) + Me.dv.Margin = New System.Windows.Forms.Padding(3, 5, 3, 5) + 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(163, 502) + Me.dv.TabIndex = 0 + ' + 'DataGridViewTextBoxColumn1 + ' + Me.DataGridViewTextBoxColumn1.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.Fill + Me.DataGridViewTextBoxColumn1.DataPropertyName = "설명" + Me.DataGridViewTextBoxColumn1.HeaderText = "설명" + Me.DataGridViewTextBoxColumn1.Name = "DataGridViewTextBoxColumn1" + ' + 'lb_grpname + ' + Me.lb_grpname.BackColor = System.Drawing.Color.LightSkyBlue + Me.lb_grpname.Dock = System.Windows.Forms.DockStyle.Top + Me.lb_grpname.ForeColor = System.Drawing.SystemColors.HotTrack + Me.lb_grpname.Location = New System.Drawing.Point(0, 0) + Me.lb_grpname.Name = "lb_grpname" + Me.lb_grpname.Size = New System.Drawing.Size(163, 26) + Me.lb_grpname.TabIndex = 95 + Me.lb_grpname.Text = "그룹 :" + Me.lb_grpname.TextAlign = System.Drawing.ContentAlignment.MiddleCenter + ' + '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("나눔고딕 ExtraBold", 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.bn.Location = New System.Drawing.Point(0, 528) + 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(163, 40) + Me.bn.TabIndex = 1 + Me.bn.Text = "BindingNavigator1" + ' + 'lbl_count + ' + Me.lbl_count.Name = "lbl_count" + Me.lbl_count.Size = New System.Drawing.Size(27, 37) + 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, 37) + 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, 37) + 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, 37) + 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, 40) + ' + 'lbl_pos + ' + Me.lbl_pos.Name = "lbl_pos" + Me.lbl_pos.Size = New System.Drawing.Size(14, 37) + Me.lbl_pos.Text = "0" + ' + 'Label30 + ' + Me.Label30.AutoSize = True + Me.Label30.BackColor = System.Drawing.Color.FromArgb(CType(CType(116, Byte), Integer), CType(CType(158, Byte), Integer), CType(CType(209, Byte), Integer)) + Me.Label30.ForeColor = System.Drawing.Color.White + Me.Label30.Location = New System.Drawing.Point(376, 148) + Me.Label30.Name = "Label30" + Me.Label30.Size = New System.Drawing.Size(51, 14) + Me.Label30.TabIndex = 170 + Me.Label30.Text = "히트펌프" + ' + 'PictureBox6 + ' + Me.PictureBox6.BackgroundImage = CType(resources.GetObject("PictureBox6.BackgroundImage"), System.Drawing.Image) + Me.PictureBox6.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch + Me.PictureBox6.Location = New System.Drawing.Point(363, 137) + Me.PictureBox6.Name = "PictureBox6" + Me.PictureBox6.Size = New System.Drawing.Size(134, 30) + Me.PictureBox6.TabIndex = 169 + Me.PictureBox6.TabStop = False + ' + 'Label18 + ' + Me.Label18.AutoSize = True + Me.Label18.BackColor = System.Drawing.Color.FromArgb(CType(CType(116, Byte), Integer), CType(CType(158, Byte), Integer), CType(CType(209, Byte), Integer)) + Me.Label18.ForeColor = System.Drawing.Color.White + Me.Label18.Location = New System.Drawing.Point(332, 433) + Me.Label18.Name = "Label18" + Me.Label18.Size = New System.Drawing.Size(40, 14) + Me.Label18.TabIndex = 170 + Me.Label18.Text = "신재생" + ' + 'PictureBox15 + ' + Me.PictureBox15.BackgroundImage = CType(resources.GetObject("PictureBox15.BackgroundImage"), System.Drawing.Image) + Me.PictureBox15.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch + Me.PictureBox15.Location = New System.Drawing.Point(319, 422) + Me.PictureBox15.Name = "PictureBox15" + Me.PictureBox15.Size = New System.Drawing.Size(134, 30) + Me.PictureBox15.TabIndex = 169 + Me.PictureBox15.TabStop = False + ' + 'Label29 + ' + Me.Label29.AutoSize = True + Me.Label29.BackColor = System.Drawing.Color.FromArgb(CType(CType(116, Byte), Integer), CType(CType(158, Byte), Integer), CType(CType(209, Byte), Integer)) + Me.Label29.ForeColor = System.Drawing.Color.White + Me.Label29.Location = New System.Drawing.Point(194, 149) + Me.Label29.Name = "Label29" + Me.Label29.Size = New System.Drawing.Size(51, 14) + Me.Label29.TabIndex = 170 + Me.Label29.Text = "지역난방" + ' + 'PictureBox5 + ' + Me.PictureBox5.BackgroundImage = CType(resources.GetObject("PictureBox5.BackgroundImage"), System.Drawing.Image) + Me.PictureBox5.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch + Me.PictureBox5.Location = New System.Drawing.Point(181, 138) + Me.PictureBox5.Name = "PictureBox5" + Me.PictureBox5.Size = New System.Drawing.Size(134, 30) + Me.PictureBox5.TabIndex = 169 + Me.PictureBox5.TabStop = False + ' + 'Label25 + ' + Me.Label25.AutoSize = True + Me.Label25.BackColor = System.Drawing.Color.FromArgb(CType(CType(116, Byte), Integer), CType(CType(158, Byte), Integer), CType(CType(209, Byte), Integer)) + Me.Label25.ForeColor = System.Drawing.Color.White + Me.Label25.Location = New System.Drawing.Point(17, 149) + Me.Label25.Name = "Label25" + Me.Label25.Size = New System.Drawing.Size(51, 14) + Me.Label25.TabIndex = 170 + Me.Label25.Text = "열원기기" + ' + 'PictureBox3 + ' + Me.PictureBox3.BackgroundImage = CType(resources.GetObject("PictureBox3.BackgroundImage"), System.Drawing.Image) + Me.PictureBox3.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch + Me.PictureBox3.Location = New System.Drawing.Point(4, 138) + Me.PictureBox3.Name = "PictureBox3" + Me.PictureBox3.Size = New System.Drawing.Size(134, 30) + Me.PictureBox3.TabIndex = 169 + Me.PictureBox3.TabStop = False + ' + 'GroupBox4 + ' + Me.GroupBox4.Controls.Add(Label193) + Me.GroupBox4.Controls.Add(Label192) + Me.GroupBox4.Controls.Add(Me.단열등급NCMB) + Me.GroupBox4.Controls.Add(Me.지역난방방식NCMB) + Me.GroupBox4.Controls.Add(Me.PictureBox7) + Me.GroupBox4.Location = New System.Drawing.Point(176, 163) + Me.GroupBox4.Name = "GroupBox4" + Me.GroupBox4.Size = New System.Drawing.Size(186, 114) + Me.GroupBox4.TabIndex = 162 + Me.GroupBox4.TabStop = False + ' + '단열등급NCMB + ' + Me.단열등급NCMB.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList + Me.단열등급NCMB.FormattingEnabled = True + Me.단열등급NCMB.Location = New System.Drawing.Point(103, 49) + Me.단열등급NCMB.Name = "단열등급NCMB" + Me.단열등급NCMB.NectControl = Nothing + Me.단열등급NCMB.Size = New System.Drawing.Size(76, 22) + Me.단열등급NCMB.TabIndex = 11 + ' + '지역난방방식NCMB + ' + Me.지역난방방식NCMB.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList + Me.지역난방방식NCMB.FormattingEnabled = True + Me.지역난방방식NCMB.Location = New System.Drawing.Point(103, 20) + Me.지역난방방식NCMB.Name = "지역난방방식NCMB" + Me.지역난방방식NCMB.NectControl = Nothing + Me.지역난방방식NCMB.Size = New System.Drawing.Size(76, 22) + Me.지역난방방식NCMB.TabIndex = 10 + ' + 'PictureBox7 + ' + Me.PictureBox7.BackColor = System.Drawing.Color.FromArgb(CType(CType(243, Byte), Integer), CType(CType(244, Byte), Integer), CType(CType(246, Byte), Integer)) + Me.PictureBox7.Location = New System.Drawing.Point(2, 8) + Me.PictureBox7.Name = "PictureBox7" + Me.PictureBox7.Size = New System.Drawing.Size(181, 103) + Me.PictureBox7.TabIndex = 126 + Me.PictureBox7.TabStop = False + ' + 'GroupBox3 + ' + Me.GroupBox3.Controls.Add(Label184) + Me.GroupBox3.Controls.Add(Me.Label189) + Me.GroupBox3.Controls.Add(Me.보일러방식NCMB) + Me.GroupBox3.Controls.Add(Label190) + Me.GroupBox3.Controls.Add(Me.정격보일러효율NTb) + Me.GroupBox3.Controls.Add(Me.PictureBox8) + Me.GroupBox3.Location = New System.Drawing.Point(2, 163) + Me.GroupBox3.Name = "GroupBox3" + Me.GroupBox3.Size = New System.Drawing.Size(174, 114) + Me.GroupBox3.TabIndex = 131 + Me.GroupBox3.TabStop = False + ' + '보일러방식NCMB + ' + Me.보일러방식NCMB.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList + Me.보일러방식NCMB.FormattingEnabled = True + Me.보일러방식NCMB.Location = New System.Drawing.Point(73, 76) + Me.보일러방식NCMB.Name = "보일러방식NCMB" + Me.보일러방식NCMB.NectControl = Nothing + Me.보일러방식NCMB.Size = New System.Drawing.Size(93, 22) + Me.보일러방식NCMB.TabIndex = 9 + ' + '정격보일러효율NTb + ' + Me.정격보일러효율NTb.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bs, "정격보일러효율", True)) + Me.정격보일러효율NTb.Location = New System.Drawing.Point(94, 23) + Me.정격보일러효율NTb.Name = "정격보일러효율NTb" + Me.정격보일러효율NTb.NectControl = Nothing + Me.정격보일러효율NTb.Size = New System.Drawing.Size(73, 21) + Me.정격보일러효율NTb.TabIndex = 8 + Me.정격보일러효율NTb.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + ' + 'PictureBox8 + ' + Me.PictureBox8.BackColor = System.Drawing.Color.FromArgb(CType(CType(243, Byte), Integer), CType(CType(244, Byte), Integer), CType(CType(246, Byte), Integer)) + Me.PictureBox8.Location = New System.Drawing.Point(2, 8) + Me.PictureBox8.Name = "PictureBox8" + Me.PictureBox8.Size = New System.Drawing.Size(170, 103) + Me.PictureBox8.TabIndex = 126 + Me.PictureBox8.TabStop = False + ' + 'ToolStrip1 + ' + Me.ToolStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToolStripLabel1, Me.lbl_cnt1, Me.ToolStripLabel3, Me.lbl_cnt2}) + Me.ToolStrip1.Location = New System.Drawing.Point(0, 0) + Me.ToolStrip1.Name = "ToolStrip1" + Me.ToolStrip1.Size = New System.Drawing.Size(599, 25) + Me.ToolStrip1.TabIndex = 130 + Me.ToolStrip1.Text = "ToolStrip1" + ' + 'ToolStripLabel1 + ' + Me.ToolStripLabel1.Name = "ToolStripLabel1" + Me.ToolStripLabel1.Size = New System.Drawing.Size(187, 22) + Me.ToolStripLabel1.Text = "난방생산기기로 적용된 입력존 수" + ' + 'lbl_cnt1 + ' + Me.lbl_cnt1.Name = "lbl_cnt1" + Me.lbl_cnt1.Size = New System.Drawing.Size(90, 22) + Me.lbl_cnt1.Text = "ToolStripLabel2" + ' + 'ToolStripLabel3 + ' + Me.ToolStripLabel3.Name = "ToolStripLabel3" + Me.ToolStripLabel3.Size = New System.Drawing.Size(187, 22) + Me.ToolStripLabel3.Text = "급탕생산기기로 적용된 입력존 수" + ' + 'lbl_cnt2 + ' + Me.lbl_cnt2.Name = "lbl_cnt2" + Me.lbl_cnt2.Size = New System.Drawing.Size(90, 22) + Me.lbl_cnt2.Text = "ToolStripLabel4" + ' + 'Label26 + ' + Me.Label26.AutoSize = True + Me.Label26.BackColor = System.Drawing.Color.FromArgb(CType(CType(116, Byte), Integer), CType(CType(158, Byte), Integer), CType(CType(209, Byte), Integer)) + Me.Label26.ForeColor = System.Drawing.Color.White + Me.Label26.Location = New System.Drawing.Point(210, 296) + Me.Label26.Name = "Label26" + Me.Label26.Size = New System.Drawing.Size(51, 14) + Me.Label26.TabIndex = 170 + Me.Label26.Text = "급탕분배" + ' + 'PictureBox14 + ' + Me.PictureBox14.BackgroundImage = CType(resources.GetObject("PictureBox14.BackgroundImage"), System.Drawing.Image) + Me.PictureBox14.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch + Me.PictureBox14.Location = New System.Drawing.Point(197, 285) + Me.PictureBox14.Name = "PictureBox14" + Me.PictureBox14.Size = New System.Drawing.Size(134, 30) + Me.PictureBox14.TabIndex = 169 + Me.PictureBox14.TabStop = False + ' + 'Label24 + ' + Me.Label24.AutoSize = True + Me.Label24.BackColor = System.Drawing.Color.FromArgb(CType(CType(116, Byte), Integer), CType(CType(158, Byte), Integer), CType(CType(209, Byte), Integer)) + Me.Label24.ForeColor = System.Drawing.Color.White + Me.Label24.Location = New System.Drawing.Point(17, 297) + Me.Label24.Name = "Label24" + Me.Label24.Size = New System.Drawing.Size(73, 14) + Me.Label24.TabIndex = 170 + Me.Label24.Text = "급탕축열탱크" + ' + 'PictureBox13 + ' + Me.PictureBox13.BackgroundImage = CType(resources.GetObject("PictureBox13.BackgroundImage"), System.Drawing.Image) + Me.PictureBox13.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch + Me.PictureBox13.Location = New System.Drawing.Point(4, 286) + Me.PictureBox13.Name = "PictureBox13" + Me.PictureBox13.Size = New System.Drawing.Size(134, 30) + Me.PictureBox13.TabIndex = 169 + Me.PictureBox13.TabStop = False + ' + 'Frm_Nanbang + ' + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.None + Me.AutoScroll = True + Me.AutoScrollMinSize = New System.Drawing.Size(0, 540) + Me.ClientSize = New System.Drawing.Size(770, 570) + Me.ControlBox = False + Me.Controls.Add(Me.SplitContainer1) + Me.Font = New System.Drawing.Font("나눔고딕 ExtraBold", 8.999999!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.KeyPreview = True + Me.Name = "Frm_Nanbang" + Me.ShowInTaskbar = False + Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen + Me.Text = "난방기기" + Me.GroupBox2.ResumeLayout(False) + Me.GroupBox2.PerformLayout() + CType(Me.bs, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.DS, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.PictureBox2, System.ComponentModel.ISupportInitialize).EndInit() + Me.GroupBox1.ResumeLayout(False) + Me.GroupBox1.PerformLayout() + CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).EndInit() + Me.GroupBox5.ResumeLayout(False) + Me.GroupBox5.PerformLayout() + CType(Me.PictureBox9, System.ComponentModel.ISupportInitialize).EndInit() + Me.GroupBox7.ResumeLayout(False) + Me.GroupBox7.PerformLayout() + CType(Me.PictureBox10, System.ComponentModel.ISupportInitialize).EndInit() + Me.GroupBox8.ResumeLayout(False) + Me.GroupBox8.PerformLayout() + CType(Me.PictureBox16, System.ComponentModel.ISupportInitialize).EndInit() + Me.GroupBox10.ResumeLayout(False) + Me.GroupBox10.PerformLayout() + CType(Me.PictureBox11, System.ComponentModel.ISupportInitialize).EndInit() + Me.GroupBox9.ResumeLayout(False) + Me.GroupBox9.PerformLayout() + CType(Me.PictureBox12, System.ComponentModel.ISupportInitialize).EndInit() + Me.GroupBox39.ResumeLayout(False) + Me.GroupBox39.PerformLayout() + CType(Me.PictureBox17, System.ComponentModel.ISupportInitialize).EndInit() + Me.SplitContainer1.Panel1.ResumeLayout(False) + Me.SplitContainer1.Panel2.ResumeLayout(False) + Me.SplitContainer1.Panel2.PerformLayout() + Me.SplitContainer1.ResumeLayout(False) + CType(Me.dv, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.bn, System.ComponentModel.ISupportInitialize).EndInit() + Me.bn.ResumeLayout(False) + Me.bn.PerformLayout() + CType(Me.PictureBox6, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.PictureBox15, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.PictureBox5, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.PictureBox3, System.ComponentModel.ISupportInitialize).EndInit() + Me.GroupBox4.ResumeLayout(False) + Me.GroupBox4.PerformLayout() + CType(Me.PictureBox7, System.ComponentModel.ISupportInitialize).EndInit() + Me.GroupBox3.ResumeLayout(False) + Me.GroupBox3.PerformLayout() + CType(Me.PictureBox8, System.ComponentModel.ISupportInitialize).EndInit() + Me.ToolStrip1.ResumeLayout(False) + Me.ToolStrip1.PerformLayout() + CType(Me.PictureBox14, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.PictureBox13, System.ComponentModel.ISupportInitialize).EndInit() + Me.ResumeLayout(False) + + End Sub + Friend WithEvents 축열탱크방식NCMB As MyCmb + Friend WithEvents 단열등급NCMB As MyCmb + Friend WithEvents 지역난방방식NCMB As MyCmb + Friend WithEvents 보일러방식NCMB As MyCmb + Friend WithEvents 정격보일러효율NTb As MyTb + Friend WithEvents tb_보일러대수다수 As MyTb + Friend WithEvents 운전방식NCMB As MyCmb + Friend WithEvents 열교환기정격출력NTb As MyTb + Friend WithEvents 보일러정격출력NTb As MyTb + Friend WithEvents 환수온도NTb1 As MyTb + Friend WithEvents 급수온도NTb1 As MyTb + Friend WithEvents 사용연료NCMB As MyCmb + Friend WithEvents 열생산기기방식NCMB As MyCmb + Friend WithEvents 층고NTb As MyTb + Friend WithEvents 열공급층수NTb As MyTb + Friend WithEvents 건물넓이NTb As MyTb + Friend WithEvents 건물길이NTb As MyTb + Friend WithEvents 펌프동력급탕NTb As MyTb + Friend WithEvents 펌프동력NTb As MyTb + Friend WithEvents 축열제척NTb As MyTb + Public WithEvents DS As Eco2Ar.DS + Friend WithEvents bs As System.Windows.Forms.BindingSource + Friend WithEvents cmb_신재생 As Eco2Ar.MyCmb + Friend WithEvents 신재생연결여부ComboBox As Eco2Ar.MyCmb + Friend WithEvents 펌프제어ComboBox As Eco2Ar.MyCmb + Friend WithEvents 순환유무ComboBox As Eco2Ar.MyCmb + Friend WithEvents 분배시스템방식ComboBox As Eco2Ar.MyCmb + Friend WithEvents 펌프제어유형ComboBox As Eco2Ar.MyCmb + Friend WithEvents 펌프교정계수ComboBox As Eco2Ar.MyCmb + Friend WithEvents 배관망유형ComboBox As Eco2Ar.MyCmb + Friend WithEvents MyTb1 As Eco2Ar.MyTb + Friend WithEvents Label50 As System.Windows.Forms.Label + Friend WithEvents Label189 As System.Windows.Forms.Label + Friend WithEvents GroupBox39 As System.Windows.Forms.GroupBox + Friend WithEvents tb_히트용량 As Eco2Ar.MyTb + Friend WithEvents cmb_히트사용연료 As Eco2Ar.MyCmb + Friend WithEvents tb_히트정격10 As Eco2Ar.MyTb + Friend WithEvents tb_히트정격7 As Eco2Ar.MyTb + Friend WithEvents tb_히트길이 As Eco2Ar.MyTb + Friend WithEvents SplitContainer1 As System.Windows.Forms.SplitContainer + Friend WithEvents dv As CEnergy.arindv + Friend WithEvents bn As System.Windows.Forms.BindingNavigator + Friend WithEvents bt_add As System.Windows.Forms.ToolStripButton + Friend WithEvents bt_Del As System.Windows.Forms.ToolStripButton + Friend WithEvents bt_cancel As System.Windows.Forms.ToolStripButton + Friend WithEvents ToolStripSeparator1 As System.Windows.Forms.ToolStripSeparator + Friend WithEvents lbl_count As System.Windows.Forms.ToolStripLabel + Friend WithEvents lbl_pos As System.Windows.Forms.ToolStripLabel + Friend WithEvents GroupBox1 As System.Windows.Forms.GroupBox + Friend WithEvents GroupBox2 As System.Windows.Forms.GroupBox + Friend WithEvents GroupBox5 As System.Windows.Forms.GroupBox + Friend WithEvents GroupBox7 As System.Windows.Forms.GroupBox + Friend WithEvents GroupBox8 As System.Windows.Forms.GroupBox + Friend WithEvents GroupBox9 As System.Windows.Forms.GroupBox + Friend WithEvents GroupBox10 As System.Windows.Forms.GroupBox + Friend WithEvents Label21 As System.Windows.Forms.Label + Friend WithEvents ToolStrip1 As System.Windows.Forms.ToolStrip + Friend WithEvents ToolStripLabel1 As System.Windows.Forms.ToolStripLabel + Friend WithEvents lbl_cnt1 As System.Windows.Forms.ToolStripLabel + Friend WithEvents ToolStripLabel3 As System.Windows.Forms.ToolStripLabel + Friend WithEvents lbl_cnt2 As System.Windows.Forms.ToolStripLabel + Friend WithEvents GroupBox3 As System.Windows.Forms.GroupBox + Friend WithEvents GroupBox4 As System.Windows.Forms.GroupBox + Friend WithEvents PictureBox2 As System.Windows.Forms.PictureBox + Friend WithEvents PictureBox1 As System.Windows.Forms.PictureBox + Friend WithEvents Label30 As System.Windows.Forms.Label + Friend WithEvents PictureBox6 As System.Windows.Forms.PictureBox + Friend WithEvents Label29 As System.Windows.Forms.Label + Friend WithEvents PictureBox5 As System.Windows.Forms.PictureBox + Friend WithEvents Label25 As System.Windows.Forms.Label + Friend WithEvents PictureBox3 As System.Windows.Forms.PictureBox + Friend WithEvents PictureBox9 As System.Windows.Forms.PictureBox + Friend WithEvents PictureBox7 As System.Windows.Forms.PictureBox + Friend WithEvents PictureBox8 As System.Windows.Forms.PictureBox + Friend WithEvents PictureBox10 As System.Windows.Forms.PictureBox + Friend WithEvents PictureBox11 As System.Windows.Forms.PictureBox + Friend WithEvents PictureBox12 As System.Windows.Forms.PictureBox + Friend WithEvents Label26 As System.Windows.Forms.Label + Friend WithEvents PictureBox14 As System.Windows.Forms.PictureBox + Friend WithEvents Label24 As System.Windows.Forms.Label + Friend WithEvents PictureBox13 As System.Windows.Forms.PictureBox + Friend WithEvents PictureBox16 As System.Windows.Forms.PictureBox + Friend WithEvents Label22 As System.Windows.Forms.Label + Friend WithEvents PictureBox17 As System.Windows.Forms.PictureBox + Friend WithEvents Label18 As System.Windows.Forms.Label + Friend WithEvents PictureBox15 As System.Windows.Forms.PictureBox + Friend WithEvents cmb_히트펌프시스템종류 As Eco2Ar.MyCmb + Friend WithEvents RadioButton2 As System.Windows.Forms.RadioButton + Friend WithEvents RadioButton1 As System.Windows.Forms.RadioButton + Friend WithEvents 급탕배관길이NTB As Eco2Ar.MyTb + Friend WithEvents DataGridViewTextBoxColumn1 As System.Windows.Forms.DataGridViewTextBoxColumn + Friend WithEvents Label23 As System.Windows.Forms.Label + Friend WithEvents Label182 As System.Windows.Forms.Label + Friend WithEvents Label180 As System.Windows.Forms.Label + Friend WithEvents lb_grpname As System.Windows.Forms.Label +End Class diff --git a/ArinWarev1/Forms/v20091231/Frm_Nanbang.resx b/ArinWarev1/Forms/v20091231/Frm_Nanbang.resx new file mode 100644 index 0000000..c4df86b --- /dev/null +++ b/ArinWarev1/Forms/v20091231/Frm_Nanbang.resx @@ -0,0 +1,802 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=2.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 + + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + 17, 17 + + + 81, 17 + + + 148, 17 + + + + + /9j/4AAQSkZJRgABAgEASABIAAD/7gAOQWRvYmUAZAAAAAAB/+ED5kV4aWYAAE1NACoAAAAIAAcBEgAD + AAAAAQABAAABGgAFAAAAAQAAAGIBGwAFAAAAAQAAAGoBKAADAAAAAQACAAABMQACAAAAHAAAAHIBMgAC + AAAAFAAAAI6HaQAEAAAAAQAAAKIAAADCAEgAAAABAAAASAAAAAEAAEFkb2JlIFBob3Rvc2hvcCBDUzMg + V2luZG93cwAyMDEwOjA0OjE1IDIwOjMyOjA0AAACoAIABAAAAAEAAAA8oAMABAAAAAEAAAAMAAAAAAAA + AAYBAwADAAAAAQAGAAABGgAFAAAAAQAAARABGwAFAAAAAQAAARgBKAADAAAAAQACAAACAQAEAAAAAQAA + ASACAgAEAAAAAQAAAr4AAAAAAAAASAAAAAEAAABIAAAAAf/Y/+AAEEpGSUYAAQIAAEgASAAA/+0ADEFk + b2JlX0NNAAH/7gAOQWRvYmUAZIAAAAAB/9sAhAAMCAgICQgMCQkMEQsKCxEVDwwMDxUYExMVExMYEQwM + DAwMDBEMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMAQ0LCw0ODRAODhAUDg4OFBQODg4OFBEMDAwM + DBERDAwMDAwMEQwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAz/wAARCAAMADwDASIAAhEBAxEB/90A + BAAE/8QBPwAAAQUBAQEBAQEAAAAAAAAAAwABAgQFBgcICQoLAQABBQEBAQEBAQAAAAAAAAABAAIDBAUG + BwgJCgsQAAEEAQMCBAIFBwYIBQMMMwEAAhEDBCESMQVBUWETInGBMgYUkaGxQiMkFVLBYjM0coLRQwcl + klPw4fFjczUWorKDJkSTVGRFwqN0NhfSVeJl8rOEw9N14/NGJ5SkhbSVxNTk9KW1xdXl9VZmdoaWprbG + 1ub2N0dXZ3eHl6e3x9fn9xEAAgIBAgQEAwQFBgcHBgU1AQACEQMhMRIEQVFhcSITBTKBkRShsUIjwVLR + 8DMkYuFygpJDUxVjczTxJQYWorKDByY1wtJEk1SjF2RFVTZ0ZeLys4TD03Xj80aUpIW0lcTU5PSltcXV + 5fVWZnaGlqa2xtbm9ic3R1dnd4eXp7fH/9oADAMBAAIRAxEAPwDd/amR/pH/AOcf70v2pkf6R/8AnH+9 + UUlofq/Bpevxb37UyP8ASP8A84/3pftTI/0j/wDOP96opJfq/BXr8W9+1Mj/AEj/APOP96X7UyP9I/8A + zj/eqKSX6vwV6/F3ujdbuGS2i5xfU8HVxktIG76XyW99vo27p0XGdO2/ba930dZj+q5dX+qfZPL8VAeD + 341VVr/eZhx+0bu708n/2f/iDFhJQ0NfUFJPRklMRQABAQAADEhMaW5vAhAAAG1udHJSR0IgWFlaIAfO + AAIACQAGADEAAGFjc3BNU0ZUAAAAAElFQyBzUkdCAAAAAAAAAAAAAAAAAAD21gABAAAAANMtSFAgIAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAEWNwcnQAAAFQAAAAM2Rl + c2MAAAGEAAAAbHd0cHQAAAHwAAAAFGJrcHQAAAIEAAAAFHJYWVoAAAIYAAAAFGdYWVoAAAIsAAAAFGJY + WVoAAAJAAAAAFGRtbmQAAAJUAAAAcGRtZGQAAALEAAAAiHZ1ZWQAAANMAAAAhnZpZXcAAAPUAAAAJGx1 + bWkAAAP4AAAAFG1lYXMAAAQMAAAAJHRlY2gAAAQwAAAADHJUUkMAAAQ8AAAIDGdUUkMAAAQ8AAAIDGJU + UkMAAAQ8AAAIDHRleHQAAAAAQ29weXJpZ2h0IChjKSAxOTk4IEhld2xldHQtUGFja2FyZCBDb21wYW55 + AABkZXNjAAAAAAAAABJzUkdCIElFQzYxOTY2LTIuMQAAAAAAAAAAAAAAEnNSR0IgSUVDNjE5NjYtMi4x + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABYWVogAAAAAAAA + 81EAAQAAAAEWzFhZWiAAAAAAAAAAAAAAAAAAAAAAWFlaIAAAAAAAAG+iAAA49QAAA5BYWVogAAAAAAAA + YpkAALeFAAAY2lhZWiAAAAAAAAAkoAAAD4QAALbPZGVzYwAAAAAAAAAWSUVDIGh0dHA6Ly93d3cuaWVj + LmNoAAAAAAAAAAAAAAAWSUVDIGh0dHA6Ly93d3cuaWVjLmNoAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAGRlc2MAAAAAAAAALklFQyA2MTk2Ni0yLjEgRGVmYXVsdCBSR0Ig + Y29sb3VyIHNwYWNlIC0gc1JHQgAAAAAAAAAAAAAALklFQyA2MTk2Ni0yLjEgRGVmYXVsdCBSR0IgY29s + b3VyIHNwYWNlIC0gc1JHQgAAAAAAAAAAAAAAAAAAAAAAAAAAAABkZXNjAAAAAAAAACxSZWZlcmVuY2Ug + Vmlld2luZyBDb25kaXRpb24gaW4gSUVDNjE5NjYtMi4xAAAAAAAAAAAAAAAsUmVmZXJlbmNlIFZpZXdp + bmcgQ29uZGl0aW9uIGluIElFQzYxOTY2LTIuMQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAdmlldwAA + AAAAE6T+ABRfLgAQzxQAA+3MAAQTCwADXJ4AAAABWFlaIAAAAAAATAlWAFAAAABXH+dtZWFzAAAAAAAA + AAEAAAAAAAAAAAAAAAAAAAAAAAACjwAAAAJzaWcgAAAAAENSVCBjdXJ2AAAAAAAABAAAAAAFAAoADwAU + ABkAHgAjACgALQAyADcAOwBAAEUASgBPAFQAWQBeAGMAaABtAHIAdwB8AIEAhgCLAJAAlQCaAJ8ApACp + AK4AsgC3ALwAwQDGAMsA0ADVANsA4ADlAOsA8AD2APsBAQEHAQ0BEwEZAR8BJQErATIBOAE+AUUBTAFS + AVkBYAFnAW4BdQF8AYMBiwGSAZoBoQGpAbEBuQHBAckB0QHZAeEB6QHyAfoCAwIMAhQCHQImAi8COAJB + AksCVAJdAmcCcQJ6AoQCjgKYAqICrAK2AsECywLVAuAC6wL1AwADCwMWAyEDLQM4A0MDTwNaA2YDcgN+ + A4oDlgOiA64DugPHA9MD4APsA/kEBgQTBCAELQQ7BEgEVQRjBHEEfgSMBJoEqAS2BMQE0wThBPAE/gUN + BRwFKwU6BUkFWAVnBXcFhgWWBaYFtQXFBdUF5QX2BgYGFgYnBjcGSAZZBmoGewaMBp0GrwbABtEG4wb1 + BwcHGQcrBz0HTwdhB3QHhgeZB6wHvwfSB+UH+AgLCB8IMghGCFoIbgiCCJYIqgi+CNII5wj7CRAJJQk6 + CU8JZAl5CY8JpAm6Cc8J5Qn7ChEKJwo9ClQKagqBCpgKrgrFCtwK8wsLCyILOQtRC2kLgAuYC7ALyAvh + C/kMEgwqDEMMXAx1DI4MpwzADNkM8w0NDSYNQA1aDXQNjg2pDcMN3g34DhMOLg5JDmQOfw6bDrYO0g7u + DwkPJQ9BD14Peg+WD7MPzw/sEAkQJhBDEGEQfhCbELkQ1xD1ERMRMRFPEW0RjBGqEckR6BIHEiYSRRJk + EoQSoxLDEuMTAxMjE0MTYxODE6QTxRPlFAYUJxRJFGoUixStFM4U8BUSFTQVVhV4FZsVvRXgFgMWJhZJ + FmwWjxayFtYW+hcdF0EXZReJF64X0hf3GBsYQBhlGIoYrxjVGPoZIBlFGWsZkRm3Gd0aBBoqGlEadxqe + GsUa7BsUGzsbYxuKG7Ib2hwCHCocUhx7HKMczBz1HR4dRx1wHZkdwx3sHhYeQB5qHpQevh7pHxMfPh9p + H5Qfvx/qIBUgQSBsIJggxCDwIRwhSCF1IaEhziH7IiciVSKCIq8i3SMKIzgjZiOUI8Ij8CQfJE0kfCSr + JNolCSU4JWgllyXHJfcmJyZXJocmtyboJxgnSSd6J6sn3CgNKD8ocSiiKNQpBik4KWspnSnQKgIqNSpo + KpsqzysCKzYraSudK9EsBSw5LG4soizXLQwtQS12Last4S4WLkwugi63Lu4vJC9aL5Evxy/+MDUwbDCk + MNsxEjFKMYIxujHyMioyYzKbMtQzDTNGM38zuDPxNCs0ZTSeNNg1EzVNNYc1wjX9Njc2cjauNuk3JDdg + N5w31zgUOFA4jDjIOQU5Qjl/Obw5+To2OnQ6sjrvOy07azuqO+g8JzxlPKQ84z0iPWE9oT3gPiA+YD6g + PuA/IT9hP6I/4kAjQGRApkDnQSlBakGsQe5CMEJyQrVC90M6Q31DwEQDREdEikTORRJFVUWaRd5GIkZn + RqtG8Ec1R3tHwEgFSEtIkUjXSR1JY0mpSfBKN0p9SsRLDEtTS5pL4kwqTHJMuk0CTUpNk03cTiVObk63 + TwBPSU+TT91QJ1BxULtRBlFQUZtR5lIxUnxSx1MTU19TqlP2VEJUj1TbVShVdVXCVg9WXFapVvdXRFeS + V+BYL1h9WMtZGllpWbhaB1pWWqZa9VtFW5Vb5Vw1XIZc1l0nXXhdyV4aXmxevV8PX2Ffs2AFYFdgqmD8 + YU9homH1YklinGLwY0Njl2PrZEBklGTpZT1lkmXnZj1mkmboZz1nk2fpaD9olmjsaUNpmmnxakhqn2r3 + a09rp2v/bFdsr20IbWBtuW4SbmtuxG8eb3hv0XArcIZw4HE6cZVx8HJLcqZzAXNdc7h0FHRwdMx1KHWF + deF2Pnabdvh3VnezeBF4bnjMeSp5iXnnekZ6pXsEe2N7wnwhfIF84X1BfaF+AX5ifsJ/I3+Ef+WAR4Co + gQqBa4HNgjCCkoL0g1eDuoQdhICE44VHhauGDoZyhteHO4efiASIaYjOiTOJmYn+imSKyoswi5aL/Ixj + jMqNMY2Yjf+OZo7OjzaPnpAGkG6Q1pE/kaiSEZJ6kuOTTZO2lCCUipT0lV+VyZY0lp+XCpd1l+CYTJi4 + mSSZkJn8mmia1ZtCm6+cHJyJnPedZJ3SnkCerp8dn4uf+qBpoNihR6G2oiailqMGo3aj5qRWpMelOKWp + phqmi6b9p26n4KhSqMSpN6mpqhyqj6sCq3Wr6axcrNCtRK24ri2uoa8Wr4uwALB1sOqxYLHWskuywrM4 + s660JbSctRO1irYBtnm28Ldot+C4WbjRuUq5wro7urW7LrunvCG8m70VvY++Cr6Evv+/er/1wHDA7MFn + wePCX8Lbw1jD1MRRxM7FS8XIxkbGw8dBx7/IPci8yTrJuco4yrfLNsu2zDXMtc01zbXONs62zzfPuNA5 + 0LrRPNG+0j/SwdNE08bUSdTL1U7V0dZV1tjXXNfg2GTY6Nls2fHadtr724DcBdyK3RDdlt4c3qLfKd+v + 4DbgveFE4cziU+Lb42Pj6+Rz5PzlhOYN5pbnH+ep6DLovOlG6dDqW+rl63Dr++yG7RHtnO4o7rTvQO/M + 8Fjw5fFy8f/yjPMZ86f0NPTC9VD13vZt9vv3ivgZ+Kj5OPnH+lf65/t3/Af8mP0p/br+S/7c/23////b + AEMAAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQICAgICAgICAgICAwMD + AwMDAwMDA//bAEMBAQEBAQEBAQEBAQICAQICAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMD + AwMDAwMDAwMDAwMDAwMDA//AABEIAAwAPAMBEQACEQEDEQH/xAAfAAABBQEBAQEBAQAAAAAAAAAAAQID + BAUGBwgJCgv/xAC1EAACAQMDAgQDBQUEBAAAAX0BAgMABBEFEiExQQYTUWEHInEUMoGRoQgjQrHBFVLR + 8CQzYnKCCQoWFxgZGiUmJygpKjQ1Njc4OTpDREVGR0hJSlNUVVZXWFlaY2RlZmdoaWpzdHV2d3h5eoOE + hYaHiImKkpOUlZaXmJmaoqOkpaanqKmqsrO0tba3uLm6wsPExcbHyMnK0tPU1dbX2Nna4eLj5OXm5+jp + 6vHy8/T19vf4+fr/xAAfAQADAQEBAQEBAQEBAAAAAAAAAQIDBAUGBwgJCgv/xAC1EQACAQIEBAMEBwUE + BAABAncAAQIDEQQFITEGEkFRB2FxEyIygQgUQpGhscEJIzNS8BVictEKFiQ04SXxFxgZGiYnKCkqNTY3 + ODk6Q0RFRkdISUpTVFVWV1hZWmNkZWZnaGlqc3R1dnd4eXqCg4SFhoeIiYqSk5SVlpeYmZqio6Slpqeo + qaqys7S1tre4ubrCw8TFxsfIycrS09TV1tfY2dri4+Tl5ufo6ery8/T19vf4+fr/2gAMAwEAAhEDEQA/ + AP1ZH7UPxEAA/wCEw8bnj/ob9f8A/k+v7U/1Nyj/AKF+G/8ABUP/AJE/llcSZlZf7dX/APBk/wDMX/hq + H4if9Df43/8ACv1//wCT6P8AU3Kf+hfhv/BUP/kQ/wBZcy/6Dq//AIMn/mH/AA1D8RP+hv8AG/8A4V+v + /wDyfR/qblP/AEL8N/4Kh/8AIh/rLmX/AEHV/wDwZP8AzD/hqH4if9Df43/8K/X/AP5Po/1Nyn/oX4b/ + AMFQ/wDkQ/1lzL/oOr/+DJ/5h/w1D8RP+hv8b/8AhX6//wDJ9H+puU/9C/Df+Cof/Ih/rLmX/QdX/wDB + k/8AMT/hqH4if9Df43/8K/X/AP5Po/1Nyn/oX4b/AMFQ/wDkQ/1kzL/oOr/+DJ/5n2R+xz+234zt/iRp + nw+8a6vqXiDwZ4gs9baObXr+bUr/AMPajpmkX2tQ3FlqV2Zb57K7XT2t3tXkaJWkV4whVxJ+beJfAuU4 + Th/FZ/hKEKOMw8qd+SKjGcZzjTs4q0bpyUlJK7s073VvuuBOLMxxGcYfJ8TWlVw1ZTtzu7hKMJTupPWz + UWnFu2qatrf9aP8AhfXgv+zv7U89/sfm+V5207N+M43fSv50P2w/kwr/AEFP42CgAoAKACgAoA9s/Z0/ + s7/hcng3+1vP/s7Ov/avs2PP2f8ACL63t2buP9ZjP+zmvz7xU/5IPPf+4H/qRRPsvD//AJK7KP8AuL/6 + ZqH7/wD/ABaT/hUfb7Ht/wBj7V9p8v8A9Cr+Oz+lz//Z + + + + + /9j/4AAQSkZJRgABAgEASABIAAD/7gAOQWRvYmUAZAAAAAAB/+ED5kV4aWYAAE1NACoAAAAIAAcBEgAD + AAAAAQABAAABGgAFAAAAAQAAAGIBGwAFAAAAAQAAAGoBKAADAAAAAQACAAABMQACAAAAHAAAAHIBMgAC + AAAAFAAAAI6HaQAEAAAAAQAAAKIAAADCAEgAAAABAAAASAAAAAEAAEFkb2JlIFBob3Rvc2hvcCBDUzMg + V2luZG93cwAyMDEwOjA0OjE1IDIwOjMyOjA0AAACoAIABAAAAAEAAAA8oAMABAAAAAEAAAAMAAAAAAAA + AAYBAwADAAAAAQAGAAABGgAFAAAAAQAAARABGwAFAAAAAQAAARgBKAADAAAAAQACAAACAQAEAAAAAQAA + ASACAgAEAAAAAQAAAr4AAAAAAAAASAAAAAEAAABIAAAAAf/Y/+AAEEpGSUYAAQIAAEgASAAA/+0ADEFk + b2JlX0NNAAH/7gAOQWRvYmUAZIAAAAAB/9sAhAAMCAgICQgMCQkMEQsKCxEVDwwMDxUYExMVExMYEQwM + DAwMDBEMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMAQ0LCw0ODRAODhAUDg4OFBQODg4OFBEMDAwM + DBERDAwMDAwMEQwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAz/wAARCAAMADwDASIAAhEBAxEB/90A + BAAE/8QBPwAAAQUBAQEBAQEAAAAAAAAAAwABAgQFBgcICQoLAQABBQEBAQEBAQAAAAAAAAABAAIDBAUG + BwgJCgsQAAEEAQMCBAIFBwYIBQMMMwEAAhEDBCESMQVBUWETInGBMgYUkaGxQiMkFVLBYjM0coLRQwcl + klPw4fFjczUWorKDJkSTVGRFwqN0NhfSVeJl8rOEw9N14/NGJ5SkhbSVxNTk9KW1xdXl9VZmdoaWprbG + 1ub2N0dXZ3eHl6e3x9fn9xEAAgIBAgQEAwQFBgcHBgU1AQACEQMhMRIEQVFhcSITBTKBkRShsUIjwVLR + 8DMkYuFygpJDUxVjczTxJQYWorKDByY1wtJEk1SjF2RFVTZ0ZeLys4TD03Xj80aUpIW0lcTU5PSltcXV + 5fVWZnaGlqa2xtbm9ic3R1dnd4eXp7fH/9oADAMBAAIRAxEAPwDd/amR/pH/AOcf70v2pkf6R/8AnH+9 + UUlofq/Bpevxb37UyP8ASP8A84/3pftTI/0j/wDOP96opJfq/BXr8W9+1Mj/AEj/APOP96X7UyP9I/8A + zj/eqKSX6vwV6/F3ujdbuGS2i5xfU8HVxktIG76XyW99vo27p0XGdO2/ba930dZj+q5dX+qfZPL8VAeD + 341VVr/eZhx+0bu708n/2f/iDFhJQ0NfUFJPRklMRQABAQAADEhMaW5vAhAAAG1udHJSR0IgWFlaIAfO + AAIACQAGADEAAGFjc3BNU0ZUAAAAAElFQyBzUkdCAAAAAAAAAAAAAAAAAAD21gABAAAAANMtSFAgIAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAEWNwcnQAAAFQAAAAM2Rl + c2MAAAGEAAAAbHd0cHQAAAHwAAAAFGJrcHQAAAIEAAAAFHJYWVoAAAIYAAAAFGdYWVoAAAIsAAAAFGJY + WVoAAAJAAAAAFGRtbmQAAAJUAAAAcGRtZGQAAALEAAAAiHZ1ZWQAAANMAAAAhnZpZXcAAAPUAAAAJGx1 + bWkAAAP4AAAAFG1lYXMAAAQMAAAAJHRlY2gAAAQwAAAADHJUUkMAAAQ8AAAIDGdUUkMAAAQ8AAAIDGJU + UkMAAAQ8AAAIDHRleHQAAAAAQ29weXJpZ2h0IChjKSAxOTk4IEhld2xldHQtUGFja2FyZCBDb21wYW55 + AABkZXNjAAAAAAAAABJzUkdCIElFQzYxOTY2LTIuMQAAAAAAAAAAAAAAEnNSR0IgSUVDNjE5NjYtMi4x + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABYWVogAAAAAAAA + 81EAAQAAAAEWzFhZWiAAAAAAAAAAAAAAAAAAAAAAWFlaIAAAAAAAAG+iAAA49QAAA5BYWVogAAAAAAAA + YpkAALeFAAAY2lhZWiAAAAAAAAAkoAAAD4QAALbPZGVzYwAAAAAAAAAWSUVDIGh0dHA6Ly93d3cuaWVj + LmNoAAAAAAAAAAAAAAAWSUVDIGh0dHA6Ly93d3cuaWVjLmNoAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAGRlc2MAAAAAAAAALklFQyA2MTk2Ni0yLjEgRGVmYXVsdCBSR0Ig + Y29sb3VyIHNwYWNlIC0gc1JHQgAAAAAAAAAAAAAALklFQyA2MTk2Ni0yLjEgRGVmYXVsdCBSR0IgY29s + b3VyIHNwYWNlIC0gc1JHQgAAAAAAAAAAAAAAAAAAAAAAAAAAAABkZXNjAAAAAAAAACxSZWZlcmVuY2Ug + Vmlld2luZyBDb25kaXRpb24gaW4gSUVDNjE5NjYtMi4xAAAAAAAAAAAAAAAsUmVmZXJlbmNlIFZpZXdp + bmcgQ29uZGl0aW9uIGluIElFQzYxOTY2LTIuMQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAdmlldwAA + AAAAE6T+ABRfLgAQzxQAA+3MAAQTCwADXJ4AAAABWFlaIAAAAAAATAlWAFAAAABXH+dtZWFzAAAAAAAA + AAEAAAAAAAAAAAAAAAAAAAAAAAACjwAAAAJzaWcgAAAAAENSVCBjdXJ2AAAAAAAABAAAAAAFAAoADwAU + ABkAHgAjACgALQAyADcAOwBAAEUASgBPAFQAWQBeAGMAaABtAHIAdwB8AIEAhgCLAJAAlQCaAJ8ApACp + AK4AsgC3ALwAwQDGAMsA0ADVANsA4ADlAOsA8AD2APsBAQEHAQ0BEwEZAR8BJQErATIBOAE+AUUBTAFS + AVkBYAFnAW4BdQF8AYMBiwGSAZoBoQGpAbEBuQHBAckB0QHZAeEB6QHyAfoCAwIMAhQCHQImAi8COAJB + AksCVAJdAmcCcQJ6AoQCjgKYAqICrAK2AsECywLVAuAC6wL1AwADCwMWAyEDLQM4A0MDTwNaA2YDcgN+ + A4oDlgOiA64DugPHA9MD4APsA/kEBgQTBCAELQQ7BEgEVQRjBHEEfgSMBJoEqAS2BMQE0wThBPAE/gUN + BRwFKwU6BUkFWAVnBXcFhgWWBaYFtQXFBdUF5QX2BgYGFgYnBjcGSAZZBmoGewaMBp0GrwbABtEG4wb1 + BwcHGQcrBz0HTwdhB3QHhgeZB6wHvwfSB+UH+AgLCB8IMghGCFoIbgiCCJYIqgi+CNII5wj7CRAJJQk6 + CU8JZAl5CY8JpAm6Cc8J5Qn7ChEKJwo9ClQKagqBCpgKrgrFCtwK8wsLCyILOQtRC2kLgAuYC7ALyAvh + C/kMEgwqDEMMXAx1DI4MpwzADNkM8w0NDSYNQA1aDXQNjg2pDcMN3g34DhMOLg5JDmQOfw6bDrYO0g7u + DwkPJQ9BD14Peg+WD7MPzw/sEAkQJhBDEGEQfhCbELkQ1xD1ERMRMRFPEW0RjBGqEckR6BIHEiYSRRJk + EoQSoxLDEuMTAxMjE0MTYxODE6QTxRPlFAYUJxRJFGoUixStFM4U8BUSFTQVVhV4FZsVvRXgFgMWJhZJ + FmwWjxayFtYW+hcdF0EXZReJF64X0hf3GBsYQBhlGIoYrxjVGPoZIBlFGWsZkRm3Gd0aBBoqGlEadxqe + GsUa7BsUGzsbYxuKG7Ib2hwCHCocUhx7HKMczBz1HR4dRx1wHZkdwx3sHhYeQB5qHpQevh7pHxMfPh9p + H5Qfvx/qIBUgQSBsIJggxCDwIRwhSCF1IaEhziH7IiciVSKCIq8i3SMKIzgjZiOUI8Ij8CQfJE0kfCSr + JNolCSU4JWgllyXHJfcmJyZXJocmtyboJxgnSSd6J6sn3CgNKD8ocSiiKNQpBik4KWspnSnQKgIqNSpo + KpsqzysCKzYraSudK9EsBSw5LG4soizXLQwtQS12Last4S4WLkwugi63Lu4vJC9aL5Evxy/+MDUwbDCk + MNsxEjFKMYIxujHyMioyYzKbMtQzDTNGM38zuDPxNCs0ZTSeNNg1EzVNNYc1wjX9Njc2cjauNuk3JDdg + N5w31zgUOFA4jDjIOQU5Qjl/Obw5+To2OnQ6sjrvOy07azuqO+g8JzxlPKQ84z0iPWE9oT3gPiA+YD6g + PuA/IT9hP6I/4kAjQGRApkDnQSlBakGsQe5CMEJyQrVC90M6Q31DwEQDREdEikTORRJFVUWaRd5GIkZn + RqtG8Ec1R3tHwEgFSEtIkUjXSR1JY0mpSfBKN0p9SsRLDEtTS5pL4kwqTHJMuk0CTUpNk03cTiVObk63 + TwBPSU+TT91QJ1BxULtRBlFQUZtR5lIxUnxSx1MTU19TqlP2VEJUj1TbVShVdVXCVg9WXFapVvdXRFeS + V+BYL1h9WMtZGllpWbhaB1pWWqZa9VtFW5Vb5Vw1XIZc1l0nXXhdyV4aXmxevV8PX2Ffs2AFYFdgqmD8 + YU9homH1YklinGLwY0Njl2PrZEBklGTpZT1lkmXnZj1mkmboZz1nk2fpaD9olmjsaUNpmmnxakhqn2r3 + a09rp2v/bFdsr20IbWBtuW4SbmtuxG8eb3hv0XArcIZw4HE6cZVx8HJLcqZzAXNdc7h0FHRwdMx1KHWF + deF2Pnabdvh3VnezeBF4bnjMeSp5iXnnekZ6pXsEe2N7wnwhfIF84X1BfaF+AX5ifsJ/I3+Ef+WAR4Co + gQqBa4HNgjCCkoL0g1eDuoQdhICE44VHhauGDoZyhteHO4efiASIaYjOiTOJmYn+imSKyoswi5aL/Ixj + jMqNMY2Yjf+OZo7OjzaPnpAGkG6Q1pE/kaiSEZJ6kuOTTZO2lCCUipT0lV+VyZY0lp+XCpd1l+CYTJi4 + mSSZkJn8mmia1ZtCm6+cHJyJnPedZJ3SnkCerp8dn4uf+qBpoNihR6G2oiailqMGo3aj5qRWpMelOKWp + phqmi6b9p26n4KhSqMSpN6mpqhyqj6sCq3Wr6axcrNCtRK24ri2uoa8Wr4uwALB1sOqxYLHWskuywrM4 + s660JbSctRO1irYBtnm28Ldot+C4WbjRuUq5wro7urW7LrunvCG8m70VvY++Cr6Evv+/er/1wHDA7MFn + wePCX8Lbw1jD1MRRxM7FS8XIxkbGw8dBx7/IPci8yTrJuco4yrfLNsu2zDXMtc01zbXONs62zzfPuNA5 + 0LrRPNG+0j/SwdNE08bUSdTL1U7V0dZV1tjXXNfg2GTY6Nls2fHadtr724DcBdyK3RDdlt4c3qLfKd+v + 4DbgveFE4cziU+Lb42Pj6+Rz5PzlhOYN5pbnH+ep6DLovOlG6dDqW+rl63Dr++yG7RHtnO4o7rTvQO/M + 8Fjw5fFy8f/yjPMZ86f0NPTC9VD13vZt9vv3ivgZ+Kj5OPnH+lf65/t3/Af8mP0p/br+S/7c/23////b + AEMAAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQICAgICAgICAgICAwMD + AwMDAwMDA//bAEMBAQEBAQEBAQEBAQICAQICAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMD + AwMDAwMDAwMDAwMDAwMDA//AABEIAAwAPAMBEQACEQEDEQH/xAAfAAABBQEBAQEBAQAAAAAAAAAAAQID + BAUGBwgJCgv/xAC1EAACAQMDAgQDBQUEBAAAAX0BAgMABBEFEiExQQYTUWEHInEUMoGRoQgjQrHBFVLR + 8CQzYnKCCQoWFxgZGiUmJygpKjQ1Njc4OTpDREVGR0hJSlNUVVZXWFlaY2RlZmdoaWpzdHV2d3h5eoOE + hYaHiImKkpOUlZaXmJmaoqOkpaanqKmqsrO0tba3uLm6wsPExcbHyMnK0tPU1dbX2Nna4eLj5OXm5+jp + 6vHy8/T19vf4+fr/xAAfAQADAQEBAQEBAQEBAAAAAAAAAQIDBAUGBwgJCgv/xAC1EQACAQIEBAMEBwUE + BAABAncAAQIDEQQFITEGEkFRB2FxEyIygQgUQpGhscEJIzNS8BVictEKFiQ04SXxFxgZGiYnKCkqNTY3 + ODk6Q0RFRkdISUpTVFVWV1hZWmNkZWZnaGlqc3R1dnd4eXqCg4SFhoeIiYqSk5SVlpeYmZqio6Slpqeo + qaqys7S1tre4ubrCw8TFxsfIycrS09TV1tfY2dri4+Tl5ufo6ery8/T19vf4+fr/2gAMAwEAAhEDEQA/ + AP1ZH7UPxEAA/wCEw8bnj/ob9f8A/k+v7U/1Nyj/AKF+G/8ABUP/AJE/llcSZlZf7dX/APBk/wDMX/hq + H4if9Df43/8ACv1//wCT6P8AU3Kf+hfhv/BUP/kQ/wBZcy/6Dq//AIMn/mH/AA1D8RP+hv8AG/8A4V+v + /wDyfR/qblP/AEL8N/4Kh/8AIh/rLmX/AEHV/wDwZP8AzD/hqH4if9Df43/8K/X/AP5Po/1Nyn/oX4b/ + AMFQ/wDkQ/1lzL/oOr/+DJ/5h/w1D8RP+hv8b/8AhX6//wDJ9H+puU/9C/Df+Cof/Ih/rLmX/QdX/wDB + k/8AMT/hqH4if9Df43/8K/X/AP5Po/1Nyn/oX4b/AMFQ/wDkQ/1kzL/oOr/+DJ/5n2R+xz+234zt/iRp + nw+8a6vqXiDwZ4gs9baObXr+bUr/AMPajpmkX2tQ3FlqV2Zb57K7XT2t3tXkaJWkV4whVxJ+beJfAuU4 + Th/FZ/hKEKOMw8qd+SKjGcZzjTs4q0bpyUlJK7s073VvuuBOLMxxGcYfJ8TWlVw1ZTtzu7hKMJTupPWz + UWnFu2qatrf9aP8AhfXgv+zv7U89/sfm+V5207N+M43fSv50P2w/kwr/AEFP42CgAoAKACgAoA9s/Z0/ + s7/hcng3+1vP/s7Ov/avs2PP2f8ACL63t2buP9ZjP+zmvz7xU/5IPPf+4H/qRRPsvD//AJK7KP8AuL/6 + ZqH7/wD/ABaT/hUfb7Ht/wBj7V9p8v8A9Cr+Oz+lz//Z + + + + + /9j/4AAQSkZJRgABAgEASABIAAD/7gAOQWRvYmUAZAAAAAAB/+ED5kV4aWYAAE1NACoAAAAIAAcBEgAD + AAAAAQABAAABGgAFAAAAAQAAAGIBGwAFAAAAAQAAAGoBKAADAAAAAQACAAABMQACAAAAHAAAAHIBMgAC + AAAAFAAAAI6HaQAEAAAAAQAAAKIAAADCAEgAAAABAAAASAAAAAEAAEFkb2JlIFBob3Rvc2hvcCBDUzMg + V2luZG93cwAyMDEwOjA0OjE1IDIwOjMyOjA0AAACoAIABAAAAAEAAAA8oAMABAAAAAEAAAAMAAAAAAAA + AAYBAwADAAAAAQAGAAABGgAFAAAAAQAAARABGwAFAAAAAQAAARgBKAADAAAAAQACAAACAQAEAAAAAQAA + ASACAgAEAAAAAQAAAr4AAAAAAAAASAAAAAEAAABIAAAAAf/Y/+AAEEpGSUYAAQIAAEgASAAA/+0ADEFk + b2JlX0NNAAH/7gAOQWRvYmUAZIAAAAAB/9sAhAAMCAgICQgMCQkMEQsKCxEVDwwMDxUYExMVExMYEQwM + DAwMDBEMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMAQ0LCw0ODRAODhAUDg4OFBQODg4OFBEMDAwM + DBERDAwMDAwMEQwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAz/wAARCAAMADwDASIAAhEBAxEB/90A + BAAE/8QBPwAAAQUBAQEBAQEAAAAAAAAAAwABAgQFBgcICQoLAQABBQEBAQEBAQAAAAAAAAABAAIDBAUG + BwgJCgsQAAEEAQMCBAIFBwYIBQMMMwEAAhEDBCESMQVBUWETInGBMgYUkaGxQiMkFVLBYjM0coLRQwcl + klPw4fFjczUWorKDJkSTVGRFwqN0NhfSVeJl8rOEw9N14/NGJ5SkhbSVxNTk9KW1xdXl9VZmdoaWprbG + 1ub2N0dXZ3eHl6e3x9fn9xEAAgIBAgQEAwQFBgcHBgU1AQACEQMhMRIEQVFhcSITBTKBkRShsUIjwVLR + 8DMkYuFygpJDUxVjczTxJQYWorKDByY1wtJEk1SjF2RFVTZ0ZeLys4TD03Xj80aUpIW0lcTU5PSltcXV + 5fVWZnaGlqa2xtbm9ic3R1dnd4eXp7fH/9oADAMBAAIRAxEAPwDd/amR/pH/AOcf70v2pkf6R/8AnH+9 + UUlofq/Bpevxb37UyP8ASP8A84/3pftTI/0j/wDOP96opJfq/BXr8W9+1Mj/AEj/APOP96X7UyP9I/8A + zj/eqKSX6vwV6/F3ujdbuGS2i5xfU8HVxktIG76XyW99vo27p0XGdO2/ba930dZj+q5dX+qfZPL8VAeD + 341VVr/eZhx+0bu708n/2f/iDFhJQ0NfUFJPRklMRQABAQAADEhMaW5vAhAAAG1udHJSR0IgWFlaIAfO + AAIACQAGADEAAGFjc3BNU0ZUAAAAAElFQyBzUkdCAAAAAAAAAAAAAAAAAAD21gABAAAAANMtSFAgIAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAEWNwcnQAAAFQAAAAM2Rl + c2MAAAGEAAAAbHd0cHQAAAHwAAAAFGJrcHQAAAIEAAAAFHJYWVoAAAIYAAAAFGdYWVoAAAIsAAAAFGJY + WVoAAAJAAAAAFGRtbmQAAAJUAAAAcGRtZGQAAALEAAAAiHZ1ZWQAAANMAAAAhnZpZXcAAAPUAAAAJGx1 + bWkAAAP4AAAAFG1lYXMAAAQMAAAAJHRlY2gAAAQwAAAADHJUUkMAAAQ8AAAIDGdUUkMAAAQ8AAAIDGJU + UkMAAAQ8AAAIDHRleHQAAAAAQ29weXJpZ2h0IChjKSAxOTk4IEhld2xldHQtUGFja2FyZCBDb21wYW55 + AABkZXNjAAAAAAAAABJzUkdCIElFQzYxOTY2LTIuMQAAAAAAAAAAAAAAEnNSR0IgSUVDNjE5NjYtMi4x + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABYWVogAAAAAAAA + 81EAAQAAAAEWzFhZWiAAAAAAAAAAAAAAAAAAAAAAWFlaIAAAAAAAAG+iAAA49QAAA5BYWVogAAAAAAAA + YpkAALeFAAAY2lhZWiAAAAAAAAAkoAAAD4QAALbPZGVzYwAAAAAAAAAWSUVDIGh0dHA6Ly93d3cuaWVj + LmNoAAAAAAAAAAAAAAAWSUVDIGh0dHA6Ly93d3cuaWVjLmNoAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAGRlc2MAAAAAAAAALklFQyA2MTk2Ni0yLjEgRGVmYXVsdCBSR0Ig + Y29sb3VyIHNwYWNlIC0gc1JHQgAAAAAAAAAAAAAALklFQyA2MTk2Ni0yLjEgRGVmYXVsdCBSR0IgY29s + b3VyIHNwYWNlIC0gc1JHQgAAAAAAAAAAAAAAAAAAAAAAAAAAAABkZXNjAAAAAAAAACxSZWZlcmVuY2Ug + Vmlld2luZyBDb25kaXRpb24gaW4gSUVDNjE5NjYtMi4xAAAAAAAAAAAAAAAsUmVmZXJlbmNlIFZpZXdp + bmcgQ29uZGl0aW9uIGluIElFQzYxOTY2LTIuMQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAdmlldwAA + AAAAE6T+ABRfLgAQzxQAA+3MAAQTCwADXJ4AAAABWFlaIAAAAAAATAlWAFAAAABXH+dtZWFzAAAAAAAA + AAEAAAAAAAAAAAAAAAAAAAAAAAACjwAAAAJzaWcgAAAAAENSVCBjdXJ2AAAAAAAABAAAAAAFAAoADwAU + ABkAHgAjACgALQAyADcAOwBAAEUASgBPAFQAWQBeAGMAaABtAHIAdwB8AIEAhgCLAJAAlQCaAJ8ApACp + AK4AsgC3ALwAwQDGAMsA0ADVANsA4ADlAOsA8AD2APsBAQEHAQ0BEwEZAR8BJQErATIBOAE+AUUBTAFS + AVkBYAFnAW4BdQF8AYMBiwGSAZoBoQGpAbEBuQHBAckB0QHZAeEB6QHyAfoCAwIMAhQCHQImAi8COAJB + AksCVAJdAmcCcQJ6AoQCjgKYAqICrAK2AsECywLVAuAC6wL1AwADCwMWAyEDLQM4A0MDTwNaA2YDcgN+ + A4oDlgOiA64DugPHA9MD4APsA/kEBgQTBCAELQQ7BEgEVQRjBHEEfgSMBJoEqAS2BMQE0wThBPAE/gUN + BRwFKwU6BUkFWAVnBXcFhgWWBaYFtQXFBdUF5QX2BgYGFgYnBjcGSAZZBmoGewaMBp0GrwbABtEG4wb1 + BwcHGQcrBz0HTwdhB3QHhgeZB6wHvwfSB+UH+AgLCB8IMghGCFoIbgiCCJYIqgi+CNII5wj7CRAJJQk6 + CU8JZAl5CY8JpAm6Cc8J5Qn7ChEKJwo9ClQKagqBCpgKrgrFCtwK8wsLCyILOQtRC2kLgAuYC7ALyAvh + C/kMEgwqDEMMXAx1DI4MpwzADNkM8w0NDSYNQA1aDXQNjg2pDcMN3g34DhMOLg5JDmQOfw6bDrYO0g7u + DwkPJQ9BD14Peg+WD7MPzw/sEAkQJhBDEGEQfhCbELkQ1xD1ERMRMRFPEW0RjBGqEckR6BIHEiYSRRJk + EoQSoxLDEuMTAxMjE0MTYxODE6QTxRPlFAYUJxRJFGoUixStFM4U8BUSFTQVVhV4FZsVvRXgFgMWJhZJ + FmwWjxayFtYW+hcdF0EXZReJF64X0hf3GBsYQBhlGIoYrxjVGPoZIBlFGWsZkRm3Gd0aBBoqGlEadxqe + GsUa7BsUGzsbYxuKG7Ib2hwCHCocUhx7HKMczBz1HR4dRx1wHZkdwx3sHhYeQB5qHpQevh7pHxMfPh9p + H5Qfvx/qIBUgQSBsIJggxCDwIRwhSCF1IaEhziH7IiciVSKCIq8i3SMKIzgjZiOUI8Ij8CQfJE0kfCSr + JNolCSU4JWgllyXHJfcmJyZXJocmtyboJxgnSSd6J6sn3CgNKD8ocSiiKNQpBik4KWspnSnQKgIqNSpo + KpsqzysCKzYraSudK9EsBSw5LG4soizXLQwtQS12Last4S4WLkwugi63Lu4vJC9aL5Evxy/+MDUwbDCk + MNsxEjFKMYIxujHyMioyYzKbMtQzDTNGM38zuDPxNCs0ZTSeNNg1EzVNNYc1wjX9Njc2cjauNuk3JDdg + N5w31zgUOFA4jDjIOQU5Qjl/Obw5+To2OnQ6sjrvOy07azuqO+g8JzxlPKQ84z0iPWE9oT3gPiA+YD6g + PuA/IT9hP6I/4kAjQGRApkDnQSlBakGsQe5CMEJyQrVC90M6Q31DwEQDREdEikTORRJFVUWaRd5GIkZn + RqtG8Ec1R3tHwEgFSEtIkUjXSR1JY0mpSfBKN0p9SsRLDEtTS5pL4kwqTHJMuk0CTUpNk03cTiVObk63 + TwBPSU+TT91QJ1BxULtRBlFQUZtR5lIxUnxSx1MTU19TqlP2VEJUj1TbVShVdVXCVg9WXFapVvdXRFeS + V+BYL1h9WMtZGllpWbhaB1pWWqZa9VtFW5Vb5Vw1XIZc1l0nXXhdyV4aXmxevV8PX2Ffs2AFYFdgqmD8 + YU9homH1YklinGLwY0Njl2PrZEBklGTpZT1lkmXnZj1mkmboZz1nk2fpaD9olmjsaUNpmmnxakhqn2r3 + a09rp2v/bFdsr20IbWBtuW4SbmtuxG8eb3hv0XArcIZw4HE6cZVx8HJLcqZzAXNdc7h0FHRwdMx1KHWF + deF2Pnabdvh3VnezeBF4bnjMeSp5iXnnekZ6pXsEe2N7wnwhfIF84X1BfaF+AX5ifsJ/I3+Ef+WAR4Co + gQqBa4HNgjCCkoL0g1eDuoQdhICE44VHhauGDoZyhteHO4efiASIaYjOiTOJmYn+imSKyoswi5aL/Ixj + jMqNMY2Yjf+OZo7OjzaPnpAGkG6Q1pE/kaiSEZJ6kuOTTZO2lCCUipT0lV+VyZY0lp+XCpd1l+CYTJi4 + mSSZkJn8mmia1ZtCm6+cHJyJnPedZJ3SnkCerp8dn4uf+qBpoNihR6G2oiailqMGo3aj5qRWpMelOKWp + phqmi6b9p26n4KhSqMSpN6mpqhyqj6sCq3Wr6axcrNCtRK24ri2uoa8Wr4uwALB1sOqxYLHWskuywrM4 + s660JbSctRO1irYBtnm28Ldot+C4WbjRuUq5wro7urW7LrunvCG8m70VvY++Cr6Evv+/er/1wHDA7MFn + wePCX8Lbw1jD1MRRxM7FS8XIxkbGw8dBx7/IPci8yTrJuco4yrfLNsu2zDXMtc01zbXONs62zzfPuNA5 + 0LrRPNG+0j/SwdNE08bUSdTL1U7V0dZV1tjXXNfg2GTY6Nls2fHadtr724DcBdyK3RDdlt4c3qLfKd+v + 4DbgveFE4cziU+Lb42Pj6+Rz5PzlhOYN5pbnH+ep6DLovOlG6dDqW+rl63Dr++yG7RHtnO4o7rTvQO/M + 8Fjw5fFy8f/yjPMZ86f0NPTC9VD13vZt9vv3ivgZ+Kj5OPnH+lf65/t3/Af8mP0p/br+S/7c/23////b + AEMAAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQICAgICAgICAgICAwMD + AwMDAwMDA//bAEMBAQEBAQEBAQEBAQICAQICAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMD + AwMDAwMDAwMDAwMDAwMDA//AABEIAAwAPAMBEQACEQEDEQH/xAAfAAABBQEBAQEBAQAAAAAAAAAAAQID + BAUGBwgJCgv/xAC1EAACAQMDAgQDBQUEBAAAAX0BAgMABBEFEiExQQYTUWEHInEUMoGRoQgjQrHBFVLR + 8CQzYnKCCQoWFxgZGiUmJygpKjQ1Njc4OTpDREVGR0hJSlNUVVZXWFlaY2RlZmdoaWpzdHV2d3h5eoOE + hYaHiImKkpOUlZaXmJmaoqOkpaanqKmqsrO0tba3uLm6wsPExcbHyMnK0tPU1dbX2Nna4eLj5OXm5+jp + 6vHy8/T19vf4+fr/xAAfAQADAQEBAQEBAQEBAAAAAAAAAQIDBAUGBwgJCgv/xAC1EQACAQIEBAMEBwUE + BAABAncAAQIDEQQFITEGEkFRB2FxEyIygQgUQpGhscEJIzNS8BVictEKFiQ04SXxFxgZGiYnKCkqNTY3 + ODk6Q0RFRkdISUpTVFVWV1hZWmNkZWZnaGlqc3R1dnd4eXqCg4SFhoeIiYqSk5SVlpeYmZqio6Slpqeo + qaqys7S1tre4ubrCw8TFxsfIycrS09TV1tfY2dri4+Tl5ufo6ery8/T19vf4+fr/2gAMAwEAAhEDEQA/ + AP1ZH7UPxEAA/wCEw8bnj/ob9f8A/k+v7U/1Nyj/AKF+G/8ABUP/AJE/llcSZlZf7dX/APBk/wDMX/hq + H4if9Df43/8ACv1//wCT6P8AU3Kf+hfhv/BUP/kQ/wBZcy/6Dq//AIMn/mH/AA1D8RP+hv8AG/8A4V+v + /wDyfR/qblP/AEL8N/4Kh/8AIh/rLmX/AEHV/wDwZP8AzD/hqH4if9Df43/8K/X/AP5Po/1Nyn/oX4b/ + AMFQ/wDkQ/1lzL/oOr/+DJ/5h/w1D8RP+hv8b/8AhX6//wDJ9H+puU/9C/Df+Cof/Ih/rLmX/QdX/wDB + k/8AMT/hqH4if9Df43/8K/X/AP5Po/1Nyn/oX4b/AMFQ/wDkQ/1kzL/oOr/+DJ/5n2R+xz+234zt/iRp + nw+8a6vqXiDwZ4gs9baObXr+bUr/AMPajpmkX2tQ3FlqV2Zb57K7XT2t3tXkaJWkV4whVxJ+beJfAuU4 + Th/FZ/hKEKOMw8qd+SKjGcZzjTs4q0bpyUlJK7s073VvuuBOLMxxGcYfJ8TWlVw1ZTtzu7hKMJTupPWz + UWnFu2qatrf9aP8AhfXgv+zv7U89/sfm+V5207N+M43fSv50P2w/kwr/AEFP42CgAoAKACgAoA9s/Z0/ + s7/hcng3+1vP/s7Ov/avs2PP2f8ACL63t2buP9ZjP+zmvz7xU/5IPPf+4H/qRRPsvD//AJK7KP8AuL/6 + ZqH7/wD/ABaT/hUfb7Ht/wBj7V9p8v8A9Cr+Oz+lz//Z + + + + + /9j/4AAQSkZJRgABAgEASABIAAD/7gAOQWRvYmUAZAAAAAAB/+ED5kV4aWYAAE1NACoAAAAIAAcBEgAD + AAAAAQABAAABGgAFAAAAAQAAAGIBGwAFAAAAAQAAAGoBKAADAAAAAQACAAABMQACAAAAHAAAAHIBMgAC + AAAAFAAAAI6HaQAEAAAAAQAAAKIAAADCAEgAAAABAAAASAAAAAEAAEFkb2JlIFBob3Rvc2hvcCBDUzMg + V2luZG93cwAyMDEwOjA0OjE1IDIwOjMyOjA0AAACoAIABAAAAAEAAAA8oAMABAAAAAEAAAAMAAAAAAAA + AAYBAwADAAAAAQAGAAABGgAFAAAAAQAAARABGwAFAAAAAQAAARgBKAADAAAAAQACAAACAQAEAAAAAQAA + ASACAgAEAAAAAQAAAr4AAAAAAAAASAAAAAEAAABIAAAAAf/Y/+AAEEpGSUYAAQIAAEgASAAA/+0ADEFk + b2JlX0NNAAH/7gAOQWRvYmUAZIAAAAAB/9sAhAAMCAgICQgMCQkMEQsKCxEVDwwMDxUYExMVExMYEQwM + DAwMDBEMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMAQ0LCw0ODRAODhAUDg4OFBQODg4OFBEMDAwM + DBERDAwMDAwMEQwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAz/wAARCAAMADwDASIAAhEBAxEB/90A + BAAE/8QBPwAAAQUBAQEBAQEAAAAAAAAAAwABAgQFBgcICQoLAQABBQEBAQEBAQAAAAAAAAABAAIDBAUG + BwgJCgsQAAEEAQMCBAIFBwYIBQMMMwEAAhEDBCESMQVBUWETInGBMgYUkaGxQiMkFVLBYjM0coLRQwcl + klPw4fFjczUWorKDJkSTVGRFwqN0NhfSVeJl8rOEw9N14/NGJ5SkhbSVxNTk9KW1xdXl9VZmdoaWprbG + 1ub2N0dXZ3eHl6e3x9fn9xEAAgIBAgQEAwQFBgcHBgU1AQACEQMhMRIEQVFhcSITBTKBkRShsUIjwVLR + 8DMkYuFygpJDUxVjczTxJQYWorKDByY1wtJEk1SjF2RFVTZ0ZeLys4TD03Xj80aUpIW0lcTU5PSltcXV + 5fVWZnaGlqa2xtbm9ic3R1dnd4eXp7fH/9oADAMBAAIRAxEAPwDd/amR/pH/AOcf70v2pkf6R/8AnH+9 + UUlofq/Bpevxb37UyP8ASP8A84/3pftTI/0j/wDOP96opJfq/BXr8W9+1Mj/AEj/APOP96X7UyP9I/8A + zj/eqKSX6vwV6/F3ujdbuGS2i5xfU8HVxktIG76XyW99vo27p0XGdO2/ba930dZj+q5dX+qfZPL8VAeD + 341VVr/eZhx+0bu708n/2f/iDFhJQ0NfUFJPRklMRQABAQAADEhMaW5vAhAAAG1udHJSR0IgWFlaIAfO + AAIACQAGADEAAGFjc3BNU0ZUAAAAAElFQyBzUkdCAAAAAAAAAAAAAAAAAAD21gABAAAAANMtSFAgIAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAEWNwcnQAAAFQAAAAM2Rl + c2MAAAGEAAAAbHd0cHQAAAHwAAAAFGJrcHQAAAIEAAAAFHJYWVoAAAIYAAAAFGdYWVoAAAIsAAAAFGJY + WVoAAAJAAAAAFGRtbmQAAAJUAAAAcGRtZGQAAALEAAAAiHZ1ZWQAAANMAAAAhnZpZXcAAAPUAAAAJGx1 + bWkAAAP4AAAAFG1lYXMAAAQMAAAAJHRlY2gAAAQwAAAADHJUUkMAAAQ8AAAIDGdUUkMAAAQ8AAAIDGJU + UkMAAAQ8AAAIDHRleHQAAAAAQ29weXJpZ2h0IChjKSAxOTk4IEhld2xldHQtUGFja2FyZCBDb21wYW55 + AABkZXNjAAAAAAAAABJzUkdCIElFQzYxOTY2LTIuMQAAAAAAAAAAAAAAEnNSR0IgSUVDNjE5NjYtMi4x + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABYWVogAAAAAAAA + 81EAAQAAAAEWzFhZWiAAAAAAAAAAAAAAAAAAAAAAWFlaIAAAAAAAAG+iAAA49QAAA5BYWVogAAAAAAAA + YpkAALeFAAAY2lhZWiAAAAAAAAAkoAAAD4QAALbPZGVzYwAAAAAAAAAWSUVDIGh0dHA6Ly93d3cuaWVj + LmNoAAAAAAAAAAAAAAAWSUVDIGh0dHA6Ly93d3cuaWVjLmNoAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAGRlc2MAAAAAAAAALklFQyA2MTk2Ni0yLjEgRGVmYXVsdCBSR0Ig + Y29sb3VyIHNwYWNlIC0gc1JHQgAAAAAAAAAAAAAALklFQyA2MTk2Ni0yLjEgRGVmYXVsdCBSR0IgY29s + b3VyIHNwYWNlIC0gc1JHQgAAAAAAAAAAAAAAAAAAAAAAAAAAAABkZXNjAAAAAAAAACxSZWZlcmVuY2Ug + Vmlld2luZyBDb25kaXRpb24gaW4gSUVDNjE5NjYtMi4xAAAAAAAAAAAAAAAsUmVmZXJlbmNlIFZpZXdp + bmcgQ29uZGl0aW9uIGluIElFQzYxOTY2LTIuMQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAdmlldwAA + AAAAE6T+ABRfLgAQzxQAA+3MAAQTCwADXJ4AAAABWFlaIAAAAAAATAlWAFAAAABXH+dtZWFzAAAAAAAA + AAEAAAAAAAAAAAAAAAAAAAAAAAACjwAAAAJzaWcgAAAAAENSVCBjdXJ2AAAAAAAABAAAAAAFAAoADwAU + ABkAHgAjACgALQAyADcAOwBAAEUASgBPAFQAWQBeAGMAaABtAHIAdwB8AIEAhgCLAJAAlQCaAJ8ApACp + AK4AsgC3ALwAwQDGAMsA0ADVANsA4ADlAOsA8AD2APsBAQEHAQ0BEwEZAR8BJQErATIBOAE+AUUBTAFS + AVkBYAFnAW4BdQF8AYMBiwGSAZoBoQGpAbEBuQHBAckB0QHZAeEB6QHyAfoCAwIMAhQCHQImAi8COAJB + AksCVAJdAmcCcQJ6AoQCjgKYAqICrAK2AsECywLVAuAC6wL1AwADCwMWAyEDLQM4A0MDTwNaA2YDcgN+ + A4oDlgOiA64DugPHA9MD4APsA/kEBgQTBCAELQQ7BEgEVQRjBHEEfgSMBJoEqAS2BMQE0wThBPAE/gUN + BRwFKwU6BUkFWAVnBXcFhgWWBaYFtQXFBdUF5QX2BgYGFgYnBjcGSAZZBmoGewaMBp0GrwbABtEG4wb1 + BwcHGQcrBz0HTwdhB3QHhgeZB6wHvwfSB+UH+AgLCB8IMghGCFoIbgiCCJYIqgi+CNII5wj7CRAJJQk6 + CU8JZAl5CY8JpAm6Cc8J5Qn7ChEKJwo9ClQKagqBCpgKrgrFCtwK8wsLCyILOQtRC2kLgAuYC7ALyAvh + C/kMEgwqDEMMXAx1DI4MpwzADNkM8w0NDSYNQA1aDXQNjg2pDcMN3g34DhMOLg5JDmQOfw6bDrYO0g7u + DwkPJQ9BD14Peg+WD7MPzw/sEAkQJhBDEGEQfhCbELkQ1xD1ERMRMRFPEW0RjBGqEckR6BIHEiYSRRJk + EoQSoxLDEuMTAxMjE0MTYxODE6QTxRPlFAYUJxRJFGoUixStFM4U8BUSFTQVVhV4FZsVvRXgFgMWJhZJ + FmwWjxayFtYW+hcdF0EXZReJF64X0hf3GBsYQBhlGIoYrxjVGPoZIBlFGWsZkRm3Gd0aBBoqGlEadxqe + GsUa7BsUGzsbYxuKG7Ib2hwCHCocUhx7HKMczBz1HR4dRx1wHZkdwx3sHhYeQB5qHpQevh7pHxMfPh9p + H5Qfvx/qIBUgQSBsIJggxCDwIRwhSCF1IaEhziH7IiciVSKCIq8i3SMKIzgjZiOUI8Ij8CQfJE0kfCSr + JNolCSU4JWgllyXHJfcmJyZXJocmtyboJxgnSSd6J6sn3CgNKD8ocSiiKNQpBik4KWspnSnQKgIqNSpo + KpsqzysCKzYraSudK9EsBSw5LG4soizXLQwtQS12Last4S4WLkwugi63Lu4vJC9aL5Evxy/+MDUwbDCk + MNsxEjFKMYIxujHyMioyYzKbMtQzDTNGM38zuDPxNCs0ZTSeNNg1EzVNNYc1wjX9Njc2cjauNuk3JDdg + N5w31zgUOFA4jDjIOQU5Qjl/Obw5+To2OnQ6sjrvOy07azuqO+g8JzxlPKQ84z0iPWE9oT3gPiA+YD6g + PuA/IT9hP6I/4kAjQGRApkDnQSlBakGsQe5CMEJyQrVC90M6Q31DwEQDREdEikTORRJFVUWaRd5GIkZn + RqtG8Ec1R3tHwEgFSEtIkUjXSR1JY0mpSfBKN0p9SsRLDEtTS5pL4kwqTHJMuk0CTUpNk03cTiVObk63 + TwBPSU+TT91QJ1BxULtRBlFQUZtR5lIxUnxSx1MTU19TqlP2VEJUj1TbVShVdVXCVg9WXFapVvdXRFeS + V+BYL1h9WMtZGllpWbhaB1pWWqZa9VtFW5Vb5Vw1XIZc1l0nXXhdyV4aXmxevV8PX2Ffs2AFYFdgqmD8 + YU9homH1YklinGLwY0Njl2PrZEBklGTpZT1lkmXnZj1mkmboZz1nk2fpaD9olmjsaUNpmmnxakhqn2r3 + a09rp2v/bFdsr20IbWBtuW4SbmtuxG8eb3hv0XArcIZw4HE6cZVx8HJLcqZzAXNdc7h0FHRwdMx1KHWF + deF2Pnabdvh3VnezeBF4bnjMeSp5iXnnekZ6pXsEe2N7wnwhfIF84X1BfaF+AX5ifsJ/I3+Ef+WAR4Co + gQqBa4HNgjCCkoL0g1eDuoQdhICE44VHhauGDoZyhteHO4efiASIaYjOiTOJmYn+imSKyoswi5aL/Ixj + jMqNMY2Yjf+OZo7OjzaPnpAGkG6Q1pE/kaiSEZJ6kuOTTZO2lCCUipT0lV+VyZY0lp+XCpd1l+CYTJi4 + mSSZkJn8mmia1ZtCm6+cHJyJnPedZJ3SnkCerp8dn4uf+qBpoNihR6G2oiailqMGo3aj5qRWpMelOKWp + phqmi6b9p26n4KhSqMSpN6mpqhyqj6sCq3Wr6axcrNCtRK24ri2uoa8Wr4uwALB1sOqxYLHWskuywrM4 + s660JbSctRO1irYBtnm28Ldot+C4WbjRuUq5wro7urW7LrunvCG8m70VvY++Cr6Evv+/er/1wHDA7MFn + wePCX8Lbw1jD1MRRxM7FS8XIxkbGw8dBx7/IPci8yTrJuco4yrfLNsu2zDXMtc01zbXONs62zzfPuNA5 + 0LrRPNG+0j/SwdNE08bUSdTL1U7V0dZV1tjXXNfg2GTY6Nls2fHadtr724DcBdyK3RDdlt4c3qLfKd+v + 4DbgveFE4cziU+Lb42Pj6+Rz5PzlhOYN5pbnH+ep6DLovOlG6dDqW+rl63Dr++yG7RHtnO4o7rTvQO/M + 8Fjw5fFy8f/yjPMZ86f0NPTC9VD13vZt9vv3ivgZ+Kj5OPnH+lf65/t3/Af8mP0p/br+S/7c/23////b + AEMAAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQICAgICAgICAgICAwMD + AwMDAwMDA//bAEMBAQEBAQEBAQEBAQICAQICAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMD + AwMDAwMDAwMDAwMDAwMDA//AABEIAAwAPAMBEQACEQEDEQH/xAAfAAABBQEBAQEBAQAAAAAAAAAAAQID + BAUGBwgJCgv/xAC1EAACAQMDAgQDBQUEBAAAAX0BAgMABBEFEiExQQYTUWEHInEUMoGRoQgjQrHBFVLR + 8CQzYnKCCQoWFxgZGiUmJygpKjQ1Njc4OTpDREVGR0hJSlNUVVZXWFlaY2RlZmdoaWpzdHV2d3h5eoOE + hYaHiImKkpOUlZaXmJmaoqOkpaanqKmqsrO0tba3uLm6wsPExcbHyMnK0tPU1dbX2Nna4eLj5OXm5+jp + 6vHy8/T19vf4+fr/xAAfAQADAQEBAQEBAQEBAAAAAAAAAQIDBAUGBwgJCgv/xAC1EQACAQIEBAMEBwUE + BAABAncAAQIDEQQFITEGEkFRB2FxEyIygQgUQpGhscEJIzNS8BVictEKFiQ04SXxFxgZGiYnKCkqNTY3 + ODk6Q0RFRkdISUpTVFVWV1hZWmNkZWZnaGlqc3R1dnd4eXqCg4SFhoeIiYqSk5SVlpeYmZqio6Slpqeo + qaqys7S1tre4ubrCw8TFxsfIycrS09TV1tfY2dri4+Tl5ufo6ery8/T19vf4+fr/2gAMAwEAAhEDEQA/ + AP1ZH7UPxEAA/wCEw8bnj/ob9f8A/k+v7U/1Nyj/AKF+G/8ABUP/AJE/llcSZlZf7dX/APBk/wDMX/hq + H4if9Df43/8ACv1//wCT6P8AU3Kf+hfhv/BUP/kQ/wBZcy/6Dq//AIMn/mH/AA1D8RP+hv8AG/8A4V+v + /wDyfR/qblP/AEL8N/4Kh/8AIh/rLmX/AEHV/wDwZP8AzD/hqH4if9Df43/8K/X/AP5Po/1Nyn/oX4b/ + AMFQ/wDkQ/1lzL/oOr/+DJ/5h/w1D8RP+hv8b/8AhX6//wDJ9H+puU/9C/Df+Cof/Ih/rLmX/QdX/wDB + k/8AMT/hqH4if9Df43/8K/X/AP5Po/1Nyn/oX4b/AMFQ/wDkQ/1kzL/oOr/+DJ/5n2R+xz+234zt/iRp + nw+8a6vqXiDwZ4gs9baObXr+bUr/AMPajpmkX2tQ3FlqV2Zb57K7XT2t3tXkaJWkV4whVxJ+beJfAuU4 + Th/FZ/hKEKOMw8qd+SKjGcZzjTs4q0bpyUlJK7s073VvuuBOLMxxGcYfJ8TWlVw1ZTtzu7hKMJTupPWz + UWnFu2qatrf9aP8AhfXgv+zv7U89/sfm+V5207N+M43fSv50P2w/kwr/AEFP42CgAoAKACgAoA9s/Z0/ + s7/hcng3+1vP/s7Ov/avs2PP2f8ACL63t2buP9ZjP+zmvz7xU/5IPPf+4H/qRRPsvD//AJK7KP8AuL/6 + ZqH7/wD/ABaT/hUfb7Ht/wBj7V9p8v8A9Cr+Oz+lz//Z + + + + 214, 17 + + + + /9j/4AAQSkZJRgABAgEASABIAAD/7gAOQWRvYmUAZAAAAAAB/+ED5kV4aWYAAE1NACoAAAAIAAcBEgAD + AAAAAQABAAABGgAFAAAAAQAAAGIBGwAFAAAAAQAAAGoBKAADAAAAAQACAAABMQACAAAAHAAAAHIBMgAC + AAAAFAAAAI6HaQAEAAAAAQAAAKIAAADCAEgAAAABAAAASAAAAAEAAEFkb2JlIFBob3Rvc2hvcCBDUzMg + V2luZG93cwAyMDEwOjA0OjE1IDIwOjMyOjA0AAACoAIABAAAAAEAAAA8oAMABAAAAAEAAAAMAAAAAAAA + AAYBAwADAAAAAQAGAAABGgAFAAAAAQAAARABGwAFAAAAAQAAARgBKAADAAAAAQACAAACAQAEAAAAAQAA + ASACAgAEAAAAAQAAAr4AAAAAAAAASAAAAAEAAABIAAAAAf/Y/+AAEEpGSUYAAQIAAEgASAAA/+0ADEFk + b2JlX0NNAAH/7gAOQWRvYmUAZIAAAAAB/9sAhAAMCAgICQgMCQkMEQsKCxEVDwwMDxUYExMVExMYEQwM + DAwMDBEMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMAQ0LCw0ODRAODhAUDg4OFBQODg4OFBEMDAwM + DBERDAwMDAwMEQwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAz/wAARCAAMADwDASIAAhEBAxEB/90A + BAAE/8QBPwAAAQUBAQEBAQEAAAAAAAAAAwABAgQFBgcICQoLAQABBQEBAQEBAQAAAAAAAAABAAIDBAUG + BwgJCgsQAAEEAQMCBAIFBwYIBQMMMwEAAhEDBCESMQVBUWETInGBMgYUkaGxQiMkFVLBYjM0coLRQwcl + klPw4fFjczUWorKDJkSTVGRFwqN0NhfSVeJl8rOEw9N14/NGJ5SkhbSVxNTk9KW1xdXl9VZmdoaWprbG + 1ub2N0dXZ3eHl6e3x9fn9xEAAgIBAgQEAwQFBgcHBgU1AQACEQMhMRIEQVFhcSITBTKBkRShsUIjwVLR + 8DMkYuFygpJDUxVjczTxJQYWorKDByY1wtJEk1SjF2RFVTZ0ZeLys4TD03Xj80aUpIW0lcTU5PSltcXV + 5fVWZnaGlqa2xtbm9ic3R1dnd4eXp7fH/9oADAMBAAIRAxEAPwDd/amR/pH/AOcf70v2pkf6R/8AnH+9 + UUlofq/Bpevxb37UyP8ASP8A84/3pftTI/0j/wDOP96opJfq/BXr8W9+1Mj/AEj/APOP96X7UyP9I/8A + zj/eqKSX6vwV6/F3ujdbuGS2i5xfU8HVxktIG76XyW99vo27p0XGdO2/ba930dZj+q5dX+qfZPL8VAeD + 341VVr/eZhx+0bu708n/2f/iDFhJQ0NfUFJPRklMRQABAQAADEhMaW5vAhAAAG1udHJSR0IgWFlaIAfO + AAIACQAGADEAAGFjc3BNU0ZUAAAAAElFQyBzUkdCAAAAAAAAAAAAAAAAAAD21gABAAAAANMtSFAgIAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAEWNwcnQAAAFQAAAAM2Rl + c2MAAAGEAAAAbHd0cHQAAAHwAAAAFGJrcHQAAAIEAAAAFHJYWVoAAAIYAAAAFGdYWVoAAAIsAAAAFGJY + WVoAAAJAAAAAFGRtbmQAAAJUAAAAcGRtZGQAAALEAAAAiHZ1ZWQAAANMAAAAhnZpZXcAAAPUAAAAJGx1 + bWkAAAP4AAAAFG1lYXMAAAQMAAAAJHRlY2gAAAQwAAAADHJUUkMAAAQ8AAAIDGdUUkMAAAQ8AAAIDGJU + UkMAAAQ8AAAIDHRleHQAAAAAQ29weXJpZ2h0IChjKSAxOTk4IEhld2xldHQtUGFja2FyZCBDb21wYW55 + AABkZXNjAAAAAAAAABJzUkdCIElFQzYxOTY2LTIuMQAAAAAAAAAAAAAAEnNSR0IgSUVDNjE5NjYtMi4x + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABYWVogAAAAAAAA + 81EAAQAAAAEWzFhZWiAAAAAAAAAAAAAAAAAAAAAAWFlaIAAAAAAAAG+iAAA49QAAA5BYWVogAAAAAAAA + YpkAALeFAAAY2lhZWiAAAAAAAAAkoAAAD4QAALbPZGVzYwAAAAAAAAAWSUVDIGh0dHA6Ly93d3cuaWVj + LmNoAAAAAAAAAAAAAAAWSUVDIGh0dHA6Ly93d3cuaWVjLmNoAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAGRlc2MAAAAAAAAALklFQyA2MTk2Ni0yLjEgRGVmYXVsdCBSR0Ig + Y29sb3VyIHNwYWNlIC0gc1JHQgAAAAAAAAAAAAAALklFQyA2MTk2Ni0yLjEgRGVmYXVsdCBSR0IgY29s + b3VyIHNwYWNlIC0gc1JHQgAAAAAAAAAAAAAAAAAAAAAAAAAAAABkZXNjAAAAAAAAACxSZWZlcmVuY2Ug + Vmlld2luZyBDb25kaXRpb24gaW4gSUVDNjE5NjYtMi4xAAAAAAAAAAAAAAAsUmVmZXJlbmNlIFZpZXdp + bmcgQ29uZGl0aW9uIGluIElFQzYxOTY2LTIuMQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAdmlldwAA + AAAAE6T+ABRfLgAQzxQAA+3MAAQTCwADXJ4AAAABWFlaIAAAAAAATAlWAFAAAABXH+dtZWFzAAAAAAAA + AAEAAAAAAAAAAAAAAAAAAAAAAAACjwAAAAJzaWcgAAAAAENSVCBjdXJ2AAAAAAAABAAAAAAFAAoADwAU + ABkAHgAjACgALQAyADcAOwBAAEUASgBPAFQAWQBeAGMAaABtAHIAdwB8AIEAhgCLAJAAlQCaAJ8ApACp + AK4AsgC3ALwAwQDGAMsA0ADVANsA4ADlAOsA8AD2APsBAQEHAQ0BEwEZAR8BJQErATIBOAE+AUUBTAFS + AVkBYAFnAW4BdQF8AYMBiwGSAZoBoQGpAbEBuQHBAckB0QHZAeEB6QHyAfoCAwIMAhQCHQImAi8COAJB + AksCVAJdAmcCcQJ6AoQCjgKYAqICrAK2AsECywLVAuAC6wL1AwADCwMWAyEDLQM4A0MDTwNaA2YDcgN+ + A4oDlgOiA64DugPHA9MD4APsA/kEBgQTBCAELQQ7BEgEVQRjBHEEfgSMBJoEqAS2BMQE0wThBPAE/gUN + BRwFKwU6BUkFWAVnBXcFhgWWBaYFtQXFBdUF5QX2BgYGFgYnBjcGSAZZBmoGewaMBp0GrwbABtEG4wb1 + BwcHGQcrBz0HTwdhB3QHhgeZB6wHvwfSB+UH+AgLCB8IMghGCFoIbgiCCJYIqgi+CNII5wj7CRAJJQk6 + CU8JZAl5CY8JpAm6Cc8J5Qn7ChEKJwo9ClQKagqBCpgKrgrFCtwK8wsLCyILOQtRC2kLgAuYC7ALyAvh + C/kMEgwqDEMMXAx1DI4MpwzADNkM8w0NDSYNQA1aDXQNjg2pDcMN3g34DhMOLg5JDmQOfw6bDrYO0g7u + DwkPJQ9BD14Peg+WD7MPzw/sEAkQJhBDEGEQfhCbELkQ1xD1ERMRMRFPEW0RjBGqEckR6BIHEiYSRRJk + EoQSoxLDEuMTAxMjE0MTYxODE6QTxRPlFAYUJxRJFGoUixStFM4U8BUSFTQVVhV4FZsVvRXgFgMWJhZJ + FmwWjxayFtYW+hcdF0EXZReJF64X0hf3GBsYQBhlGIoYrxjVGPoZIBlFGWsZkRm3Gd0aBBoqGlEadxqe + GsUa7BsUGzsbYxuKG7Ib2hwCHCocUhx7HKMczBz1HR4dRx1wHZkdwx3sHhYeQB5qHpQevh7pHxMfPh9p + H5Qfvx/qIBUgQSBsIJggxCDwIRwhSCF1IaEhziH7IiciVSKCIq8i3SMKIzgjZiOUI8Ij8CQfJE0kfCSr + JNolCSU4JWgllyXHJfcmJyZXJocmtyboJxgnSSd6J6sn3CgNKD8ocSiiKNQpBik4KWspnSnQKgIqNSpo + KpsqzysCKzYraSudK9EsBSw5LG4soizXLQwtQS12Last4S4WLkwugi63Lu4vJC9aL5Evxy/+MDUwbDCk + MNsxEjFKMYIxujHyMioyYzKbMtQzDTNGM38zuDPxNCs0ZTSeNNg1EzVNNYc1wjX9Njc2cjauNuk3JDdg + N5w31zgUOFA4jDjIOQU5Qjl/Obw5+To2OnQ6sjrvOy07azuqO+g8JzxlPKQ84z0iPWE9oT3gPiA+YD6g + PuA/IT9hP6I/4kAjQGRApkDnQSlBakGsQe5CMEJyQrVC90M6Q31DwEQDREdEikTORRJFVUWaRd5GIkZn + RqtG8Ec1R3tHwEgFSEtIkUjXSR1JY0mpSfBKN0p9SsRLDEtTS5pL4kwqTHJMuk0CTUpNk03cTiVObk63 + TwBPSU+TT91QJ1BxULtRBlFQUZtR5lIxUnxSx1MTU19TqlP2VEJUj1TbVShVdVXCVg9WXFapVvdXRFeS + V+BYL1h9WMtZGllpWbhaB1pWWqZa9VtFW5Vb5Vw1XIZc1l0nXXhdyV4aXmxevV8PX2Ffs2AFYFdgqmD8 + YU9homH1YklinGLwY0Njl2PrZEBklGTpZT1lkmXnZj1mkmboZz1nk2fpaD9olmjsaUNpmmnxakhqn2r3 + a09rp2v/bFdsr20IbWBtuW4SbmtuxG8eb3hv0XArcIZw4HE6cZVx8HJLcqZzAXNdc7h0FHRwdMx1KHWF + deF2Pnabdvh3VnezeBF4bnjMeSp5iXnnekZ6pXsEe2N7wnwhfIF84X1BfaF+AX5ifsJ/I3+Ef+WAR4Co + gQqBa4HNgjCCkoL0g1eDuoQdhICE44VHhauGDoZyhteHO4efiASIaYjOiTOJmYn+imSKyoswi5aL/Ixj + jMqNMY2Yjf+OZo7OjzaPnpAGkG6Q1pE/kaiSEZJ6kuOTTZO2lCCUipT0lV+VyZY0lp+XCpd1l+CYTJi4 + mSSZkJn8mmia1ZtCm6+cHJyJnPedZJ3SnkCerp8dn4uf+qBpoNihR6G2oiailqMGo3aj5qRWpMelOKWp + phqmi6b9p26n4KhSqMSpN6mpqhyqj6sCq3Wr6axcrNCtRK24ri2uoa8Wr4uwALB1sOqxYLHWskuywrM4 + s660JbSctRO1irYBtnm28Ldot+C4WbjRuUq5wro7urW7LrunvCG8m70VvY++Cr6Evv+/er/1wHDA7MFn + wePCX8Lbw1jD1MRRxM7FS8XIxkbGw8dBx7/IPci8yTrJuco4yrfLNsu2zDXMtc01zbXONs62zzfPuNA5 + 0LrRPNG+0j/SwdNE08bUSdTL1U7V0dZV1tjXXNfg2GTY6Nls2fHadtr724DcBdyK3RDdlt4c3qLfKd+v + 4DbgveFE4cziU+Lb42Pj6+Rz5PzlhOYN5pbnH+ep6DLovOlG6dDqW+rl63Dr++yG7RHtnO4o7rTvQO/M + 8Fjw5fFy8f/yjPMZ86f0NPTC9VD13vZt9vv3ivgZ+Kj5OPnH+lf65/t3/Af8mP0p/br+S/7c/23////b + AEMAAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQICAgICAgICAgICAwMD + AwMDAwMDA//bAEMBAQEBAQEBAQEBAQICAQICAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMD + AwMDAwMDAwMDAwMDAwMDA//AABEIAAwAPAMBEQACEQEDEQH/xAAfAAABBQEBAQEBAQAAAAAAAAAAAQID + BAUGBwgJCgv/xAC1EAACAQMDAgQDBQUEBAAAAX0BAgMABBEFEiExQQYTUWEHInEUMoGRoQgjQrHBFVLR + 8CQzYnKCCQoWFxgZGiUmJygpKjQ1Njc4OTpDREVGR0hJSlNUVVZXWFlaY2RlZmdoaWpzdHV2d3h5eoOE + hYaHiImKkpOUlZaXmJmaoqOkpaanqKmqsrO0tba3uLm6wsPExcbHyMnK0tPU1dbX2Nna4eLj5OXm5+jp + 6vHy8/T19vf4+fr/xAAfAQADAQEBAQEBAQEBAAAAAAAAAQIDBAUGBwgJCgv/xAC1EQACAQIEBAMEBwUE + BAABAncAAQIDEQQFITEGEkFRB2FxEyIygQgUQpGhscEJIzNS8BVictEKFiQ04SXxFxgZGiYnKCkqNTY3 + ODk6Q0RFRkdISUpTVFVWV1hZWmNkZWZnaGlqc3R1dnd4eXqCg4SFhoeIiYqSk5SVlpeYmZqio6Slpqeo + qaqys7S1tre4ubrCw8TFxsfIycrS09TV1tfY2dri4+Tl5ufo6ery8/T19vf4+fr/2gAMAwEAAhEDEQA/ + AP1ZH7UPxEAA/wCEw8bnj/ob9f8A/k+v7U/1Nyj/AKF+G/8ABUP/AJE/llcSZlZf7dX/APBk/wDMX/hq + H4if9Df43/8ACv1//wCT6P8AU3Kf+hfhv/BUP/kQ/wBZcy/6Dq//AIMn/mH/AA1D8RP+hv8AG/8A4V+v + /wDyfR/qblP/AEL8N/4Kh/8AIh/rLmX/AEHV/wDwZP8AzD/hqH4if9Df43/8K/X/AP5Po/1Nyn/oX4b/ + AMFQ/wDkQ/1lzL/oOr/+DJ/5h/w1D8RP+hv8b/8AhX6//wDJ9H+puU/9C/Df+Cof/Ih/rLmX/QdX/wDB + k/8AMT/hqH4if9Df43/8K/X/AP5Po/1Nyn/oX4b/AMFQ/wDkQ/1kzL/oOr/+DJ/5n2R+xz+234zt/iRp + nw+8a6vqXiDwZ4gs9baObXr+bUr/AMPajpmkX2tQ3FlqV2Zb57K7XT2t3tXkaJWkV4whVxJ+beJfAuU4 + Th/FZ/hKEKOMw8qd+SKjGcZzjTs4q0bpyUlJK7s073VvuuBOLMxxGcYfJ8TWlVw1ZTtzu7hKMJTupPWz + UWnFu2qatrf9aP8AhfXgv+zv7U89/sfm+V5207N+M43fSv50P2w/kwr/AEFP42CgAoAKACgAoA9s/Z0/ + s7/hcng3+1vP/s7Ov/avs2PP2f8ACL63t2buP9ZjP+zmvz7xU/5IPPf+4H/qRRPsvD//AJK7KP8AuL/6 + ZqH7/wD/ABaT/hUfb7Ht/wBj7V9p8v8A9Cr+Oz+lz//Z + + + + + /9j/4AAQSkZJRgABAgEASABIAAD/7gAOQWRvYmUAZAAAAAAB/+ED5kV4aWYAAE1NACoAAAAIAAcBEgAD + AAAAAQABAAABGgAFAAAAAQAAAGIBGwAFAAAAAQAAAGoBKAADAAAAAQACAAABMQACAAAAHAAAAHIBMgAC + AAAAFAAAAI6HaQAEAAAAAQAAAKIAAADCAEgAAAABAAAASAAAAAEAAEFkb2JlIFBob3Rvc2hvcCBDUzMg + V2luZG93cwAyMDEwOjA0OjE1IDIwOjMyOjA0AAACoAIABAAAAAEAAAA8oAMABAAAAAEAAAAMAAAAAAAA + AAYBAwADAAAAAQAGAAABGgAFAAAAAQAAARABGwAFAAAAAQAAARgBKAADAAAAAQACAAACAQAEAAAAAQAA + ASACAgAEAAAAAQAAAr4AAAAAAAAASAAAAAEAAABIAAAAAf/Y/+AAEEpGSUYAAQIAAEgASAAA/+0ADEFk + b2JlX0NNAAH/7gAOQWRvYmUAZIAAAAAB/9sAhAAMCAgICQgMCQkMEQsKCxEVDwwMDxUYExMVExMYEQwM + DAwMDBEMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMAQ0LCw0ODRAODhAUDg4OFBQODg4OFBEMDAwM + DBERDAwMDAwMEQwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAz/wAARCAAMADwDASIAAhEBAxEB/90A + BAAE/8QBPwAAAQUBAQEBAQEAAAAAAAAAAwABAgQFBgcICQoLAQABBQEBAQEBAQAAAAAAAAABAAIDBAUG + BwgJCgsQAAEEAQMCBAIFBwYIBQMMMwEAAhEDBCESMQVBUWETInGBMgYUkaGxQiMkFVLBYjM0coLRQwcl + klPw4fFjczUWorKDJkSTVGRFwqN0NhfSVeJl8rOEw9N14/NGJ5SkhbSVxNTk9KW1xdXl9VZmdoaWprbG + 1ub2N0dXZ3eHl6e3x9fn9xEAAgIBAgQEAwQFBgcHBgU1AQACEQMhMRIEQVFhcSITBTKBkRShsUIjwVLR + 8DMkYuFygpJDUxVjczTxJQYWorKDByY1wtJEk1SjF2RFVTZ0ZeLys4TD03Xj80aUpIW0lcTU5PSltcXV + 5fVWZnaGlqa2xtbm9ic3R1dnd4eXp7fH/9oADAMBAAIRAxEAPwDd/amR/pH/AOcf70v2pkf6R/8AnH+9 + UUlofq/Bpevxb37UyP8ASP8A84/3pftTI/0j/wDOP96opJfq/BXr8W9+1Mj/AEj/APOP96X7UyP9I/8A + zj/eqKSX6vwV6/F3ujdbuGS2i5xfU8HVxktIG76XyW99vo27p0XGdO2/ba930dZj+q5dX+qfZPL8VAeD + 341VVr/eZhx+0bu708n/2f/iDFhJQ0NfUFJPRklMRQABAQAADEhMaW5vAhAAAG1udHJSR0IgWFlaIAfO + AAIACQAGADEAAGFjc3BNU0ZUAAAAAElFQyBzUkdCAAAAAAAAAAAAAAAAAAD21gABAAAAANMtSFAgIAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAEWNwcnQAAAFQAAAAM2Rl + c2MAAAGEAAAAbHd0cHQAAAHwAAAAFGJrcHQAAAIEAAAAFHJYWVoAAAIYAAAAFGdYWVoAAAIsAAAAFGJY + WVoAAAJAAAAAFGRtbmQAAAJUAAAAcGRtZGQAAALEAAAAiHZ1ZWQAAANMAAAAhnZpZXcAAAPUAAAAJGx1 + bWkAAAP4AAAAFG1lYXMAAAQMAAAAJHRlY2gAAAQwAAAADHJUUkMAAAQ8AAAIDGdUUkMAAAQ8AAAIDGJU + UkMAAAQ8AAAIDHRleHQAAAAAQ29weXJpZ2h0IChjKSAxOTk4IEhld2xldHQtUGFja2FyZCBDb21wYW55 + AABkZXNjAAAAAAAAABJzUkdCIElFQzYxOTY2LTIuMQAAAAAAAAAAAAAAEnNSR0IgSUVDNjE5NjYtMi4x + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABYWVogAAAAAAAA + 81EAAQAAAAEWzFhZWiAAAAAAAAAAAAAAAAAAAAAAWFlaIAAAAAAAAG+iAAA49QAAA5BYWVogAAAAAAAA + YpkAALeFAAAY2lhZWiAAAAAAAAAkoAAAD4QAALbPZGVzYwAAAAAAAAAWSUVDIGh0dHA6Ly93d3cuaWVj + LmNoAAAAAAAAAAAAAAAWSUVDIGh0dHA6Ly93d3cuaWVjLmNoAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAGRlc2MAAAAAAAAALklFQyA2MTk2Ni0yLjEgRGVmYXVsdCBSR0Ig + Y29sb3VyIHNwYWNlIC0gc1JHQgAAAAAAAAAAAAAALklFQyA2MTk2Ni0yLjEgRGVmYXVsdCBSR0IgY29s + b3VyIHNwYWNlIC0gc1JHQgAAAAAAAAAAAAAAAAAAAAAAAAAAAABkZXNjAAAAAAAAACxSZWZlcmVuY2Ug + Vmlld2luZyBDb25kaXRpb24gaW4gSUVDNjE5NjYtMi4xAAAAAAAAAAAAAAAsUmVmZXJlbmNlIFZpZXdp + bmcgQ29uZGl0aW9uIGluIElFQzYxOTY2LTIuMQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAdmlldwAA + AAAAE6T+ABRfLgAQzxQAA+3MAAQTCwADXJ4AAAABWFlaIAAAAAAATAlWAFAAAABXH+dtZWFzAAAAAAAA + AAEAAAAAAAAAAAAAAAAAAAAAAAACjwAAAAJzaWcgAAAAAENSVCBjdXJ2AAAAAAAABAAAAAAFAAoADwAU + ABkAHgAjACgALQAyADcAOwBAAEUASgBPAFQAWQBeAGMAaABtAHIAdwB8AIEAhgCLAJAAlQCaAJ8ApACp + AK4AsgC3ALwAwQDGAMsA0ADVANsA4ADlAOsA8AD2APsBAQEHAQ0BEwEZAR8BJQErATIBOAE+AUUBTAFS + AVkBYAFnAW4BdQF8AYMBiwGSAZoBoQGpAbEBuQHBAckB0QHZAeEB6QHyAfoCAwIMAhQCHQImAi8COAJB + AksCVAJdAmcCcQJ6AoQCjgKYAqICrAK2AsECywLVAuAC6wL1AwADCwMWAyEDLQM4A0MDTwNaA2YDcgN+ + A4oDlgOiA64DugPHA9MD4APsA/kEBgQTBCAELQQ7BEgEVQRjBHEEfgSMBJoEqAS2BMQE0wThBPAE/gUN + BRwFKwU6BUkFWAVnBXcFhgWWBaYFtQXFBdUF5QX2BgYGFgYnBjcGSAZZBmoGewaMBp0GrwbABtEG4wb1 + BwcHGQcrBz0HTwdhB3QHhgeZB6wHvwfSB+UH+AgLCB8IMghGCFoIbgiCCJYIqgi+CNII5wj7CRAJJQk6 + CU8JZAl5CY8JpAm6Cc8J5Qn7ChEKJwo9ClQKagqBCpgKrgrFCtwK8wsLCyILOQtRC2kLgAuYC7ALyAvh + C/kMEgwqDEMMXAx1DI4MpwzADNkM8w0NDSYNQA1aDXQNjg2pDcMN3g34DhMOLg5JDmQOfw6bDrYO0g7u + DwkPJQ9BD14Peg+WD7MPzw/sEAkQJhBDEGEQfhCbELkQ1xD1ERMRMRFPEW0RjBGqEckR6BIHEiYSRRJk + EoQSoxLDEuMTAxMjE0MTYxODE6QTxRPlFAYUJxRJFGoUixStFM4U8BUSFTQVVhV4FZsVvRXgFgMWJhZJ + FmwWjxayFtYW+hcdF0EXZReJF64X0hf3GBsYQBhlGIoYrxjVGPoZIBlFGWsZkRm3Gd0aBBoqGlEadxqe + GsUa7BsUGzsbYxuKG7Ib2hwCHCocUhx7HKMczBz1HR4dRx1wHZkdwx3sHhYeQB5qHpQevh7pHxMfPh9p + H5Qfvx/qIBUgQSBsIJggxCDwIRwhSCF1IaEhziH7IiciVSKCIq8i3SMKIzgjZiOUI8Ij8CQfJE0kfCSr + JNolCSU4JWgllyXHJfcmJyZXJocmtyboJxgnSSd6J6sn3CgNKD8ocSiiKNQpBik4KWspnSnQKgIqNSpo + KpsqzysCKzYraSudK9EsBSw5LG4soizXLQwtQS12Last4S4WLkwugi63Lu4vJC9aL5Evxy/+MDUwbDCk + MNsxEjFKMYIxujHyMioyYzKbMtQzDTNGM38zuDPxNCs0ZTSeNNg1EzVNNYc1wjX9Njc2cjauNuk3JDdg + N5w31zgUOFA4jDjIOQU5Qjl/Obw5+To2OnQ6sjrvOy07azuqO+g8JzxlPKQ84z0iPWE9oT3gPiA+YD6g + PuA/IT9hP6I/4kAjQGRApkDnQSlBakGsQe5CMEJyQrVC90M6Q31DwEQDREdEikTORRJFVUWaRd5GIkZn + RqtG8Ec1R3tHwEgFSEtIkUjXSR1JY0mpSfBKN0p9SsRLDEtTS5pL4kwqTHJMuk0CTUpNk03cTiVObk63 + TwBPSU+TT91QJ1BxULtRBlFQUZtR5lIxUnxSx1MTU19TqlP2VEJUj1TbVShVdVXCVg9WXFapVvdXRFeS + V+BYL1h9WMtZGllpWbhaB1pWWqZa9VtFW5Vb5Vw1XIZc1l0nXXhdyV4aXmxevV8PX2Ffs2AFYFdgqmD8 + YU9homH1YklinGLwY0Njl2PrZEBklGTpZT1lkmXnZj1mkmboZz1nk2fpaD9olmjsaUNpmmnxakhqn2r3 + a09rp2v/bFdsr20IbWBtuW4SbmtuxG8eb3hv0XArcIZw4HE6cZVx8HJLcqZzAXNdc7h0FHRwdMx1KHWF + deF2Pnabdvh3VnezeBF4bnjMeSp5iXnnekZ6pXsEe2N7wnwhfIF84X1BfaF+AX5ifsJ/I3+Ef+WAR4Co + gQqBa4HNgjCCkoL0g1eDuoQdhICE44VHhauGDoZyhteHO4efiASIaYjOiTOJmYn+imSKyoswi5aL/Ixj + jMqNMY2Yjf+OZo7OjzaPnpAGkG6Q1pE/kaiSEZJ6kuOTTZO2lCCUipT0lV+VyZY0lp+XCpd1l+CYTJi4 + mSSZkJn8mmia1ZtCm6+cHJyJnPedZJ3SnkCerp8dn4uf+qBpoNihR6G2oiailqMGo3aj5qRWpMelOKWp + phqmi6b9p26n4KhSqMSpN6mpqhyqj6sCq3Wr6axcrNCtRK24ri2uoa8Wr4uwALB1sOqxYLHWskuywrM4 + s660JbSctRO1irYBtnm28Ldot+C4WbjRuUq5wro7urW7LrunvCG8m70VvY++Cr6Evv+/er/1wHDA7MFn + wePCX8Lbw1jD1MRRxM7FS8XIxkbGw8dBx7/IPci8yTrJuco4yrfLNsu2zDXMtc01zbXONs62zzfPuNA5 + 0LrRPNG+0j/SwdNE08bUSdTL1U7V0dZV1tjXXNfg2GTY6Nls2fHadtr724DcBdyK3RDdlt4c3qLfKd+v + 4DbgveFE4cziU+Lb42Pj6+Rz5PzlhOYN5pbnH+ep6DLovOlG6dDqW+rl63Dr++yG7RHtnO4o7rTvQO/M + 8Fjw5fFy8f/yjPMZ86f0NPTC9VD13vZt9vv3ivgZ+Kj5OPnH+lf65/t3/Af8mP0p/br+S/7c/23////b + AEMAAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQICAgICAgICAgICAwMD + AwMDAwMDA//bAEMBAQEBAQEBAQEBAQICAQICAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMD + AwMDAwMDAwMDAwMDAwMDA//AABEIAAwAPAMBEQACEQEDEQH/xAAfAAABBQEBAQEBAQAAAAAAAAAAAQID + BAUGBwgJCgv/xAC1EAACAQMDAgQDBQUEBAAAAX0BAgMABBEFEiExQQYTUWEHInEUMoGRoQgjQrHBFVLR + 8CQzYnKCCQoWFxgZGiUmJygpKjQ1Njc4OTpDREVGR0hJSlNUVVZXWFlaY2RlZmdoaWpzdHV2d3h5eoOE + hYaHiImKkpOUlZaXmJmaoqOkpaanqKmqsrO0tba3uLm6wsPExcbHyMnK0tPU1dbX2Nna4eLj5OXm5+jp + 6vHy8/T19vf4+fr/xAAfAQADAQEBAQEBAQEBAAAAAAAAAQIDBAUGBwgJCgv/xAC1EQACAQIEBAMEBwUE + BAABAncAAQIDEQQFITEGEkFRB2FxEyIygQgUQpGhscEJIzNS8BVictEKFiQ04SXxFxgZGiYnKCkqNTY3 + ODk6Q0RFRkdISUpTVFVWV1hZWmNkZWZnaGlqc3R1dnd4eXqCg4SFhoeIiYqSk5SVlpeYmZqio6Slpqeo + qaqys7S1tre4ubrCw8TFxsfIycrS09TV1tfY2dri4+Tl5ufo6ery8/T19vf4+fr/2gAMAwEAAhEDEQA/ + AP1ZH7UPxEAA/wCEw8bnj/ob9f8A/k+v7U/1Nyj/AKF+G/8ABUP/AJE/llcSZlZf7dX/APBk/wDMX/hq + H4if9Df43/8ACv1//wCT6P8AU3Kf+hfhv/BUP/kQ/wBZcy/6Dq//AIMn/mH/AA1D8RP+hv8AG/8A4V+v + /wDyfR/qblP/AEL8N/4Kh/8AIh/rLmX/AEHV/wDwZP8AzD/hqH4if9Df43/8K/X/AP5Po/1Nyn/oX4b/ + AMFQ/wDkQ/1lzL/oOr/+DJ/5h/w1D8RP+hv8b/8AhX6//wDJ9H+puU/9C/Df+Cof/Ih/rLmX/QdX/wDB + k/8AMT/hqH4if9Df43/8K/X/AP5Po/1Nyn/oX4b/AMFQ/wDkQ/1kzL/oOr/+DJ/5n2R+xz+234zt/iRp + nw+8a6vqXiDwZ4gs9baObXr+bUr/AMPajpmkX2tQ3FlqV2Zb57K7XT2t3tXkaJWkV4whVxJ+beJfAuU4 + Th/FZ/hKEKOMw8qd+SKjGcZzjTs4q0bpyUlJK7s073VvuuBOLMxxGcYfJ8TWlVw1ZTtzu7hKMJTupPWz + UWnFu2qatrf9aP8AhfXgv+zv7U89/sfm+V5207N+M43fSv50P2w/kwr/AEFP42CgAoAKACgAoA9s/Z0/ + s7/hcng3+1vP/s7Ov/avs2PP2f8ACL63t2buP9ZjP+zmvz7xU/5IPPf+4H/qRRPsvD//AJK7KP8AuL/6 + ZqH7/wD/ABaT/hUfb7Ht/wBj7V9p8v8A9Cr+Oz+lz//Z + + + + 44 + + \ No newline at end of file diff --git a/ArinWarev1/Forms/v20091231/Frm_Nanbang.vb b/ArinWarev1/Forms/v20091231/Frm_Nanbang.vb new file mode 100644 index 0000000..a4a57fd --- /dev/null +++ b/ArinWarev1/Forms/v20091231/Frm_Nanbang.vb @@ -0,0 +1,940 @@ +Public Class Frm_Nanbang + Dim isCopy As Boolean = False + Dim Init As Boolean = False + Dim SrcDrv As DataRowView + +#Region "data Base 변경여부및 적용방법" + + '''변경된내용을적용한다. + Public Overrides Function AcceptChanged() As Boolean + bs.EndEdit() + Dim BaseDS As DataSet = CType(bs.DataSource, DataSet) + Dim BaseDT As DataTable = BaseDS.Tables(bs.DataMember) + BaseDT.AcceptChanges() + Return True + End Function + + '''변경된내용이있다면 취소한다. + Public Overrides Function RejectChanged() As Boolean + Dim BaseDS As DataSet = CType(bs.DataSource, DataSet) + Dim BaseDT As DataTable = BaseDS.Tables(bs.DataMember) + BaseDT.RejectChanges() + Return True + End Function + + '''데이터에변형이있었는가? + Public Overrides Function HasChanged() As Boolean + bs.EndEdit() + Dim BaseDS As DataSet = CType(bs.DataSource, DataSet) + Dim BaseDT As DataTable = BaseDS.Tables(bs.DataMember) + Dim ChangeDT As DataTable = BaseDT.GetChanges + If Not ChangeDT Is Nothing Then Return True + Return False + End Function + + '''기본데이터테이블을 반환합니다. + Public Function DT() As DataTable + Dim BaseDS As DataSet = CType(bs.DataSource, DataSet) + Return BaseDS.Tables(bs.DataMember) + End Function + + +#End Region + + + + Private Sub MdiMain_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load + 'MdiMain.Toggle_Menu_Color(MdiMain.E_MenuIdx.난방기기) + ' CEnergy.ARINCLASS.SaveLoad_FrmSetting(Me) + '//프로필 관련 + + '//공유데이터셋에 연결한다. + Me.bs.DataSource = DSET + '//난방기기 + AddHandler DSET.tbl_nanbangkiki.TableNewRow, AddressOf AddNewDataRow_nanbangkiki + '//콤보컨트롤 바인딩 + Binding_Zone() + + Me.bs.Filter = "code <> '0' and 열생산기기방식 = '" + Me.Parameter + "'" + Me.lb_grpname.Text = Me.Parameter + + '//모든컨트롤의 cTrl_enter 를 추가합니다 + BindProperty(CType(Me.SplitContainer1.Panel2.Controls, Control.ControlCollection)) + + Me.Init = True + + Try + Me.bs.Position = CEnergy.ARINCLASS.Read_LastPos_Frm(Me) + Catch ex As Exception + Me.bs.MoveFirst() + End Try + + bs_CurrentChanged(sender, e) + Validate_Control() + End Sub +#Region "Control_Enter" + Private Sub BindProperty(ByVal Ctl As Control.ControlCollection) + For Each C As Control In Ctl + If C.Controls.Count > 1 Then + BindProperty(C.Controls) + Else + If C.GetType.ToString.ToUpper.IndexOf("MYTB") <> -1 Then + AddHandler CType(C, MyTb).KeyDown, AddressOf TextBOx_KeyDown + ElseIf C.GetType.ToString.ToUpper.IndexOf("MYCMB") <> -1 Then + AddHandler CType(C, MyCmb).KeyDown, AddressOf Cmd_KeyDown + End If + End If + Next + End Sub + + Private Sub TextBOx_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) + If e.KeyCode = Keys.Enter AndAlso e.Control Then + Try + Dim Field As String = (CType(sender, MyTb).DataBindings.Item("text").BindingMemberInfo.BindingField) + For Each Dr As DataRow In Dt.Select(Me.bs.Filter, "") + Dr(Field) = CType(sender, MyTb).Text + Next + Work_msg_timer("모든값이 변경되었습니다", 25) + Catch ex As Exception + + End Try + + End If + End Sub + Private Sub Cmd_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) + If e.KeyCode = Keys.Enter AndAlso e.Control Then + Try + Dim Field As String = (CType(sender, MyCmb).DataBindings.Item("selectedvalue").BindingMemberInfo.BindingField) + For Each Dr As DataRow In Dt.Select(Me.bs.Filter, "") + Dr(Field) = CType(sender, MyCmb).SelectedValue + Next + Work_msg_timer("모든값이 변경되었습니다", 25) + Catch ex As Exception + + End Try + End If + End Sub +#End Region +#Region "난방기기" + + Private Sub ToolStripButton48_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt_add.Click + If Not EndEdit(Me.bs) Then Return + Me.bs.AddNew() + INitRow(Me.Controls) + End Sub + + + Private Sub ToolStripButton49_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt_Del.Click + Dbbase.DelCrow(Me.bs, True) + End Sub + + Private Sub ToolStripButton51_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt_cancel.Click + If Not EndEdit(Me.bs) Then Return + Data_Cancel(DSET.tbl_profile, Nothing) + End Sub + + + Private Sub MdiMain_FormClosed(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosedEventArgs) Handles Me.FormClosed + CEnergy.ARINCLASS.SaveLoad_FrmSetting(Me, Me.bs.Position, True) + End Sub + + Private Sub MdiMain_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown + Select Case e.KeyCode + Case Keys.F12 + End Select + End Sub + + Private Function GetMaxCode(ByVal dt As DataTable) As String + Try + Dim Dr As DataRow = dt.Select("", "code desc")(0) + Return Format(CInt(Dr("code")) + 1, "0000") + Catch ex As Exception + Return "0001" + End Try + End Function + + Private Sub Cmb_DeleteVal(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) + If e.KeyCode = Keys.Delete Then + CType(sender, ComboBox).SelectedValue = "" + End If + End Sub + + Private Sub Binding_Zone() + + '//난방기기 + Dim bs_열생산기기방식NCMB As New BindingSource(DSET, "tbl_common") + bs_열생산기기방식NCMB.Filter = "gubun='1020'" + bs_열생산기기방식NCMB.Sort = "code" + Me.열생산기기방식NCMB.DataSource = bs_열생산기기방식NCMB + 열생산기기방식NCMB.DisplayMember = "name" + 열생산기기방식NCMB.ValueMember = "name" + Me.열생산기기방식NCMB.DataBindings.Add("selectedvalue", Me.bs, "열생산기기방식") + 'AddHandler 열생산기기방식NCMB.KeyDown, AddressOf Cmb_DeleteVal + + Dim bs_사용연료NCMB As New BindingSource(DSET, "tbl_common") + bs_사용연료NCMB.Filter = "gubun='1021'" + bs_사용연료NCMB.Sort = "code" + Me.사용연료NCMB.DataSource = bs_사용연료NCMB + 사용연료NCMB.DisplayMember = "name" + 사용연료NCMB.ValueMember = "name" + Me.사용연료NCMB.DataBindings.Add("selectedvalue", Me.bs, "사용연료") + 'AddHandler 사용연료NCMB.KeyDown, AddressOf Cmb_DeleteVal + + Dim bs_운전방식NCMB As New BindingSource(DSET, "tbl_common") + bs_운전방식NCMB.Filter = "gubun='1035'" + bs_운전방식NCMB.Sort = "code" + Me.운전방식NCMB.DataSource = bs_운전방식NCMB + 운전방식NCMB.DisplayMember = "name" + 운전방식NCMB.ValueMember = "name" + Me.운전방식NCMB.DataBindings.Add("selectedvalue", Me.bs, "운전방식") + 'AddHandler 운전방식NCMB.KeyDown, AddressOf Cmb_DeleteVal + + Dim bs_보일러방식NCMB As New BindingSource(DSET, "tbl_common") + bs_보일러방식NCMB.Filter = "gubun='1036'" + bs_보일러방식NCMB.Sort = "code" + Me.보일러방식NCMB.DataSource = bs_보일러방식NCMB + 보일러방식NCMB.DisplayMember = "name" + 보일러방식NCMB.ValueMember = "name" + Me.보일러방식NCMB.DataBindings.Add("selectedvalue", Me.bs, "보일러방식") + 'AddHandler 보일러방식NCMB.KeyDown, AddressOf Cmb_DeleteVal + + Dim bs_지역난방방식NCMB As New BindingSource(DSET, "tbl_common") + bs_지역난방방식NCMB.Filter = "gubun='1037'" + bs_지역난방방식NCMB.Sort = "code" + Me.지역난방방식NCMB.DataSource = bs_지역난방방식NCMB + 지역난방방식NCMB.DisplayMember = "name" + 지역난방방식NCMB.ValueMember = "name" + Me.지역난방방식NCMB.DataBindings.Add("selectedvalue", Me.bs, "지역난방방식") + 'AddHandler 지역난방방식NCMB.KeyDown, AddressOf Cmb_DeleteVal + + Dim bs_단열등급NCMB As New BindingSource(DSET, "tbl_common") + bs_단열등급NCMB.Filter = "gubun='1038'" + bs_단열등급NCMB.Sort = "code" + Me.단열등급NCMB.DataSource = bs_단열등급NCMB + 단열등급NCMB.DisplayMember = "name" + 단열등급NCMB.ValueMember = "name" + Me.단열등급NCMB.DataBindings.Add("selectedvalue", Me.bs, "단열등급") + 'AddHandler 단열등급NCMB.KeyDown, AddressOf Cmb_DeleteVal + + Dim bs_축열탱크방식NCMB As New BindingSource(DSET, "tbl_common") + bs_축열탱크방식NCMB.Filter = "gubun='1039'" + bs_축열탱크방식NCMB.Sort = "code" + Me.축열탱크방식NCMB.DataSource = bs_축열탱크방식NCMB + 축열탱크방식NCMB.DisplayMember = "name" + 축열탱크방식NCMB.ValueMember = "name" + Me.축열탱크방식NCMB.DataBindings.Add("selectedvalue", Me.bs, "축열탱크방식") + ' AddHandler 축열탱크방식NCMB.KeyDown, AddressOf Cmb_DeleteVal + + Dim bs_배관망유형ComboBox As New BindingSource(DSET, "tbl_common") + bs_배관망유형ComboBox.Filter = "gubun='1040'" + 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(DSET, "tbl_common") + bs_펌프교정계수ComboBox.Filter = "gubun='1002'" + 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(DSET, "tbl_common") + bs_펌프제어유형ComboBox.Filter = "gubun='1041'" + 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(DSET, "tbl_common") + bs_분배시스템방식ComboBox.Filter = "gubun='1042'" + 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(DSET, "tbl_common") + bs_순환유무ComboBox.Filter = "gubun='1032'" + 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(DSET, "tbl_common") + bs_펌프제어ComboBox.Filter = "gubun='1043'" + 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(DSET, "tbl_common") + bs_신재생연결여부ComboBox.Filter = "gubun='1044'" + 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_연결된시스템 As New BindingSource(DSET, "tbl_new") + bs_연결된시스템.Sort = "code" + Me.cmb_신재생.DataSource = bs_연결된시스템 + cmb_신재생.DisplayMember = "설명" + cmb_신재생.ValueMember = "code" + Me.cmb_신재생.DataBindings.Add("selectedvalue", Me.bs, "연결된시스템") + 'AddHandler 연결된시스템ComboBox.KeyDown, AddressOf Cmb_DeleteVal + + Dim bs_히트펌프연료 As New BindingSource(DSET, "tbl_common") + bs_히트펌프연료.Filter = "gubun='1086'" + bs_히트펌프연료.Sort = "code" + Me.cmb_히트사용연료.DataSource = bs_히트펌프연료 + cmb_히트사용연료.DisplayMember = "name" + cmb_히트사용연료.ValueMember = "name" + Me.cmb_히트사용연료.DataBindings.Add("selectedvalue", Me.bs, "히트연료") + + Dim bs_히트펌프종류 As New BindingSource(DSET, "tbl_common") + bs_히트펌프종류.Filter = "gubun='1087'" + bs_히트펌프종류.Sort = "code" + Me.cmb_히트펌프시스템종류.DataSource = bs_히트펌프종류 + cmb_히트펌프시스템종류.DisplayMember = "name" + cmb_히트펌프시스템종류.ValueMember = "name" + Me.cmb_히트펌프시스템종류.DataBindings.Add("selectedvalue", Me.bs, "히트펌프시스템종류") + 'AddHandler 신재생연결여부ComboBox.KeyDown, AddressOf Cmb_DeleteVal + End Sub + + Private Sub Binding_nanbangkiki() + + End Sub + Private Sub AddNewDataRow_nanbangkiki(ByVal sender As Object, ByVal e As System.Data.DataTableNewRowEventArgs) + e.Row.Item("code") = GetMaxCode(DSET.tbl_nanbangkiki) + End Sub +#End Region + + Private Sub 신재생연결여부ComboBox_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 신재생연결여부ComboBox.SelectedIndexChanged + Validate_Control() + End Sub + + Private Sub 축열탱크방식NCMB_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 축열탱크방식NCMB.SelectedIndexChanged + Validate_Control() + End Sub + + Private Sub 운전방식NCMB_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 운전방식NCMB.SelectedIndexChanged + Validate_Control() + End Sub + + Private Sub Validate_Control() + If Not Init Then Return + If isCopy Then Return + + Try + If Me.신재생연결여부ComboBox.SelectedIndex = 0 Then + cmb_신재생.Enabled = False + Else + cmb_신재생.Enabled = True + End If + Catch ex As Exception + + End Try + Try + If Me.축열탱크방식NCMB.SelectedIndex = 0 Then + 축열제척NTb.Enabled = False + MyTb1.Enabled = False + Else + 축열제척NTb.Enabled = True + MyTb1.Enabled = True + End If + Catch ex As Exception + + End Try + + + Try + If Me.운전방식NCMB.SelectedIndex = 0 Then + tb_보일러대수다수.Enabled = False + Else + tb_보일러대수다수.Enabled = True + End If + Catch ex As Exception + + End Try + + Try + Select Case Me.열생산기기방식NCMB.SelectedValue.ToString.Trim + Case "보일러" '//보일러 + Me.PictureBox2.BackColor = Color.FromArgb(219, 221, 223) + Me.Label50.BackColor = Color.FromArgb(219, 221, 223) + Me.Label180.BackColor = Color.FromArgb(219, 221, 223) + Me.Label182.BackColor = Color.FromArgb(219, 221, 223) + 사용연료NCMB.Enabled = True + Me.급수온도NTb1.Enabled = True + Me.환수온도NTb1.Enabled = True + 보일러정격출력NTb.Enabled = True + 열교환기정격출력NTb.Enabled = False + 운전방식NCMB.Enabled = True + 정격보일러효율NTb.Enabled = True + 보일러방식NCMB.Enabled = True + 지역난방방식NCMB.Enabled = False + Me.단열등급NCMB.Enabled = False + '/// 2011. 1. 31 수정 + Me.배관망유형ComboBox.Enabled = True + Me.펌프교정계수ComboBox.Enabled = True + Me.펌프제어유형ComboBox.Enabled = True + Me.펌프동력NTb.Enabled = True + '// 2011. 1. 31 수정 + + Case "지역난방" '//지역난방 + Me.PictureBox2.BackColor = Color.FromArgb(219, 221, 223) + Me.Label50.BackColor = Color.FromArgb(219, 221, 223) + Me.Label180.BackColor = Color.FromArgb(219, 221, 223) + Me.Label182.BackColor = Color.FromArgb(219, 221, 223) + 사용연료NCMB.Enabled = False + Me.급수온도NTb1.Enabled = True + Me.환수온도NTb1.Enabled = True + 보일러정격출력NTb.Enabled = False + 열교환기정격출력NTb.Enabled = True + 운전방식NCMB.Enabled = False + tb_보일러대수다수.Enabled = False + 정격보일러효율NTb.Enabled = True + 보일러방식NCMB.Enabled = False + 지역난방방식NCMB.Enabled = True + Me.단열등급NCMB.Enabled = True + '/// 2011. 1. 31 수정 + Me.배관망유형ComboBox.Enabled = True + Me.펌프교정계수ComboBox.Enabled = True + Me.펌프제어유형ComboBox.Enabled = True + Me.펌프동력NTb.Enabled = True + '// 2011. 1. 31 수정 + + Case "전기보일러" '//전기보일러 + Me.PictureBox2.BackColor = Color.FromArgb(219, 221, 223) + Me.Label50.BackColor = Color.FromArgb(219, 221, 223) + Me.Label180.BackColor = Color.FromArgb(219, 221, 223) + Me.Label182.BackColor = Color.FromArgb(219, 221, 223) + 사용연료NCMB.Enabled = False + Me.급수온도NTb1.Enabled = True + Me.환수온도NTb1.Enabled = True + 보일러정격출력NTb.Enabled = True + 열교환기정격출력NTb.Enabled = False + 운전방식NCMB.Enabled = False + 정격보일러효율NTb.Enabled = True + 보일러방식NCMB.Enabled = False + 지역난방방식NCMB.Enabled = False + Me.단열등급NCMB.Enabled = False + '/// 2011. 1. 31 수정 + Me.배관망유형ComboBox.Enabled = True + Me.펌프교정계수ComboBox.Enabled = True + Me.펌프제어유형ComboBox.Enabled = True + Me.펌프동력NTb.Enabled = True + '// 2011. 1. 31 수정 + + + Case "히트펌프" '//히트펌프 + Me.PictureBox2.BackColor = Color.FromArgb(243, 244, 246) + Me.Label50.BackColor = Color.FromArgb(243, 244, 246) + Me.Label180.BackColor = Color.FromArgb(243, 244, 246) + Me.Label182.BackColor = Color.FromArgb(243, 244, 246) + 사용연료NCMB.Enabled = False + Me.급수온도NTb1.Enabled = True + Me.환수온도NTb1.Enabled = True + 보일러정격출력NTb.Enabled = False + 열교환기정격출력NTb.Enabled = False + 운전방식NCMB.Enabled = True + 정격보일러효율NTb.Enabled = False + 보일러방식NCMB.Enabled = False + 지역난방방식NCMB.Enabled = False + Me.단열등급NCMB.Enabled = False + '/// 2011. 1. 31 수정 + Me.배관망유형ComboBox.Enabled = True + Me.펌프교정계수ComboBox.Enabled = True + Me.펌프제어유형ComboBox.Enabled = True + Me.펌프동력NTb.Enabled = True + '// 2011. 1. 31 수정 + + End Select + Me.bs.EndEdit() + Catch ex As Exception + + End Try + + Try + If Me.열생산기기방식NCMB.Text = "히트펌프" Then + cmb_히트사용연료.Enabled = True + tb_히트용량.Enabled = True + tb_히트정격7.Enabled = True + tb_히트정격10.Enabled = True + tb_히트길이.Enabled = True + cmb_히트펌프시스템종류.Enabled = True + Else + cmb_히트사용연료.Enabled = False + tb_히트용량.Enabled = False + tb_히트정격7.Enabled = False + tb_히트정격10.Enabled = False + tb_히트길이.Enabled = False + cmb_히트펌프시스템종류.Enabled = False + End If + Catch ex As Exception + + End Try + + If Me.분배시스템방식ComboBox.SelectedIndex >= 0 Then + Try + Select Case Me.분배시스템방식ComboBox.Text + Case "중앙식" + 순환유무ComboBox.Enabled = True + 펌프제어ComboBox.Enabled = True + 펌프동력급탕NTb.Enabled = True + 건물길이NTb.Enabled = True + 건물넓이NTb.Enabled = True + 열공급층수NTb.Enabled = True + 층고NTb.Enabled = True + Me.RadioButton1.Enabled = True + Me.RadioButton2.Enabled = True + If RadioButton2.Checked = True Then + Me.급탕배관길이NTB.Enabled = True + End If + Case "개별식" + 순환유무ComboBox.Enabled = False + 펌프제어ComboBox.Enabled = True + 펌프동력급탕NTb.Enabled = True + 건물길이NTb.Enabled = False + 건물넓이NTb.Enabled = False + 열공급층수NTb.Enabled = False + 층고NTb.Enabled = False + Me.급탕배관길이NTB.Enabled = False + Me.RadioButton1.Enabled = False + Me.RadioButton2.Enabled = False + End Select + Catch ex As Exception + + End Try + End If + + If Me.급탕배관길이NTB.Text <> "" AndAlso Me.급탕배관길이NTB.Text <> "0" Then '//배관길이 값을통해서 라디오버튼설정 + Me.RadioButton2.Checked = True + 건물길이NTb.Enabled = False + 건물넓이NTb.Enabled = False + 열공급층수NTb.Enabled = False + 층고NTb.Enabled = False + ElseIf Me.분배시스템방식ComboBox.Text = "중앙식" Then + Me.RadioButton1.Checked = True + 건물길이NTb.Enabled = True + 건물넓이NTb.Enabled = True + 열공급층수NTb.Enabled = True + 층고NTb.Enabled = True + + End If + + + + End Sub + + Private Sub 열생산기기방식NCMB_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles 열생산기기방식NCMB.KeyDown + If e.KeyCode = Keys.V And e.Control Then + isCopy = True + ' Clear_Control(Me.TabPage2) + + e.Handled = True + e.SuppressKeyPress = False + '//클립보드붙여넣기 + Dim CB() As String = My.Computer.Clipboard.GetText.Split(CChar(vbCrLf)) + If CB.GetUpperBound(0) <> 58 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() '//한줄추가 + + + Dim Cnt As Short = 0 + For i As Integer = 0 To CB.GetUpperBound(0) + Select Case i + Case 0 + CType(bs.Current, DataRowView)("설명") = CB(i).Split(CChar(vbTab))(ii).Trim + Case 0 + 8 '//사용프로필 앞에 두개를 숫자4자리로변환 '//뒷부분이 와존히 다른느낌 ^^;;어 아닌데.. 수정안된거예요.. + If CB(i).Split(CChar(vbTab))(ii).Trim = "" Then + Me.열생산기기방식NCMB.SelectedIndex = 0 + Else + Me.열생산기기방식NCMB.Text = CB(i).Split(CChar(vbTab))(ii).Trim + End If + + 'Me.열생산기기방식NCMB.Text = CStr(IIf( CB(i).Split(CChar(vbTab))(ii).Trim = "", "0", CB(i).Split(CChar(vbTab))(ii).Trim)) + Case 1 + 8 '//공란 + If CB(i).Split(CChar(vbTab))(ii).Trim = "" Then + Me.사용연료NCMB.SelectedIndex = 0 + Else + Me.사용연료NCMB.Text = CB(i).Split(CChar(vbTab))(ii).Trim + End If + + 'Me.사용연료NCMB.Text = CStr(IIf( CB(i).Split(CChar(vbTab))(ii).Trim = "", "0", CB(i).Split(CChar(vbTab))(ii).Trim)) + Case 2 + 8 '//면적 + Me.급수온도NTb1.Text = CB(i).Split(CChar(vbTab))(ii).Trim + Case 3 + 8 + Me.환수온도NTb1.Text = CB(i).Split(CChar(vbTab))(ii).Trim + Case 4 + 8 + Me.보일러정격출력NTb.Text = CB(i).Split(CChar(vbTab))(ii).Trim + Case 5 + 8 + Me.열교환기정격출력NTb.Text = CB(i).Split(CChar(vbTab))(ii).Trim + Case 6 + 8 + Case 15 + If CB(i).Split(CChar(vbTab))(ii).Trim = "" Then + Me.운전방식NCMB.SelectedIndex = 0 + Else + Me.운전방식NCMB.Text = CB(i).Split(CChar(vbTab))(ii).Trim + End If + + 'Me.운전방식NCMB.Text = CStr(IIf( CB(i).Split(CChar(vbTab))(ii).Trim = "", "0", CB(i).Split(CChar(vbTab))(ii).Trim)) + Case 8 + 8 + Me.tb_보일러대수다수.Text = CB(i).Split(CChar(vbTab))(ii).Trim + Case 11 + 8 + 'Me.TabControl12.SelectedIndex = 1 + Me.정격보일러효율NTb.Text = CB(i).Split(CChar(vbTab))(ii).Trim + Case 13 + 8 + If CB(i).Split(CChar(vbTab))(ii).Trim = "" Then + Me.보일러방식NCMB.SelectedIndex = 0 + Else + Me.보일러방식NCMB.Text = CB(i).Split(CChar(vbTab))(ii).Trim + End If + 'Me.보일러방식NCMB.Text = CStr(IIf( CB(i).Split(CChar(vbTab))(ii).Trim = "", "0", CB(i).Split(CChar(vbTab))(ii).Trim)) + Case 23 + If CB(i).Split(CChar(vbTab))(ii).Trim = "" Then + Me.지역난방방식NCMB.SelectedIndex = 0 + Else + Me.지역난방방식NCMB.Text = CB(i).Split(CChar(vbTab))(ii).Trim + End If + + 'Me.지역난방방식NCMB.Text = CStr(IIf( CB(i).Split(CChar(vbTab))(ii).Trim = "", "0", CB(i).Split(CChar(vbTab))(ii).Trim)) + Case 16 + 8 + If CB(i).Split(CChar(vbTab))(ii).Trim = "" Then + Me.단열등급NCMB.SelectedIndex = 0 + Else + Me.단열등급NCMB.Text = CB(i).Split(CChar(vbTab))(ii).Trim + End If + + 'Me.단열등급NCMB.Text = CStr(IIf( CB(i).Split(CChar(vbTab))(ii).Trim = "", "0", CB(i).Split(CChar(vbTab))(ii).Trim)) + + Case 25 '//히트펌프 + Case 26 '//사용연료 + If CB(i).Split(CChar(vbTab))(ii).Trim = "" Then + Me.cmb_히트사용연료.SelectedIndex = 0 + Else + Me.cmb_히트사용연료.Text = CB(i).Split(CChar(vbTab))(ii).Trim + End If + Case 27 + Me.tb_히트용량.Text = CB(i).Split(CChar(vbTab))(ii).Trim + Case 28 + Me.tb_히트정격7.Text = CB(i).Split(CChar(vbTab))(ii).Trim + Case 29 + Me.tb_히트정격10.Text = CB(i).Split(CChar(vbTab))(ii).Trim + Case 30 + Me.tb_히트길이.Text = CB(i).Split(CChar(vbTab))(ii).Trim + Case 31 + If CB(i).Split(CChar(vbTab))(ii).Trim = "" Then + Me.cmb_히트펌프시스템종류.SelectedIndex = 0 + Else + Me.cmb_히트펌프시스템종류.Text = CB(i).Split(CChar(vbTab))(ii).Trim + End If + + Case 19 + 8 + 6 + 1 + ' Me.TabControl12.SelectedIndex = 2 + If CB(i).Split(CChar(vbTab))(ii).Trim = "" Then + Me.축열탱크방식NCMB.SelectedIndex = 0 + Else + Me.축열탱크방식NCMB.Text = CB(i).Split(CChar(vbTab))(ii).Trim + End If + Case 20 + 8 + 6 + 1 + Me.축열제척NTb.Text = CB(i).Split(CChar(vbTab))(ii).Trim + Case 21 + 8 + 6 + 1 + Me.MyTb1.Text = CB(i).Split(CChar(vbTab))(ii).Trim + Case 24 + 8 + 6 + 1 + ' Me.TabControl12.SelectedIndex = 3 + If CB(i).Split(CChar(vbTab))(ii).Trim = "" Then + Me.배관망유형ComboBox.SelectedIndex = 0 + Else + Me.배관망유형ComboBox.Text = CB(i).Split(CChar(vbTab))(ii).Trim + End If + + ' Me.배관망유형ComboBox.Text = CStr(IIf( CB(i).Split(CChar(vbTab))(ii).Trim = "", "0", CB(i).Split(CChar(vbTab))(ii).Trim)) + Case 25 + 8 + 6 + 1 + If CB(i).Split(CChar(vbTab))(ii).Trim = "" Then + Me.펌프교정계수ComboBox.SelectedIndex = 0 + Else + Me.펌프교정계수ComboBox.Text = CB(i).Split(CChar(vbTab))(ii).Trim + End If + + ' Me.펌프교정계수ComboBox.Text = CStr(IIf( CB(i).Split(CChar(vbTab))(ii).Trim = "", "0", CB(i).Split(CChar(vbTab))(ii).Trim)) + Case 26 + 8 + 6 + 1 + If CB(i).Split(CChar(vbTab))(ii).Trim = "" Then + Me.펌프제어유형ComboBox.SelectedIndex = 0 + Else + Me.펌프제어유형ComboBox.Text = CB(i).Split(CChar(vbTab))(ii).Trim + End If + ' Me.펌프제어유형ComboBox.Text = CStr(IIf( CB(i).Split(CChar(vbTab))(ii).Trim = "", "0", CB(i).Split(CChar(vbTab))(ii).Trim)) + Case 27 + 8 + 6 + 1 + Me.펌프동력NTb.Text = CB(i).Split(CChar(vbTab))(ii).Trim + Case 30 + 8 + 6 + 1 '//33 + + If CB(i).Split(CChar(vbTab))(ii).Trim = "" Then + 'MsgBox("null") + Me.분배시스템방식ComboBox.SelectedIndex = 0 + Else + 'Dim iii As Short = 0 + + 'For Each C As DataRowView In Me.분배시스템방식ComboBox.Items + ' If C("name").ToString.Trim = CB(i).Split(CChar(vbTab))(ii).Trim Then + ' Me.분배시스템방식ComboBox.SelectedIndex = iii + ' End If + ' iii += 1 + 'Next + ' MsgBox(CB(i).Split(CChar(vbTab))(ii).Trim) + Me.분배시스템방식ComboBox.Text = CB(i).Split(CChar(vbTab))(ii).Trim + End If + + + 'Me.분배시스템방식ComboBox.Text = CStr(IIf( CB(i).Split(CChar(vbTab))(ii).Trim = "", "0", CB(i).Split(CChar(vbTab))(ii).Trim)) + Case 31 + 8 + 6 + 1 + If CB(i).Split(CChar(vbTab))(ii).Trim = "" Then + Me.순환유무ComboBox.SelectedIndex = 0 + Else + Me.순환유무ComboBox.Text = CB(i).Split(CChar(vbTab))(ii).Trim + End If + + 'Me.순환유무ComboBox.Text = CStr(IIf( CB(i).Split(CChar(vbTab))(ii).Trim = "", "0", CB(i).Split(CChar(vbTab))(ii).Trim)) + Case 32 + 8 + 6 + 1 + If CB(i).Split(CChar(vbTab))(ii).Trim = "" Then + Me.펌프제어ComboBox.SelectedIndex = 0 + Else + Me.펌프제어ComboBox.Text = CB(i).Split(CChar(vbTab))(ii).Trim + End If + + ' Me.펌프제어ComboBox.Text = CStr(IIf( CB(i).Split(CChar(vbTab))(ii).Trim = "", "0", CB(i).Split(CChar(vbTab))(ii).Trim)) + Case 33 + 8 + 6 + 1 + Me.펌프동력급탕NTb.Text = CB(i).Split(CChar(vbTab))(ii).Trim + Case 35 + 8 + 6 + 1 + Me.건물길이NTb.Text = CB(i).Split(CChar(vbTab))(ii).Trim + Case 36 + 8 + 6 + 1 + Me.건물넓이NTb.Text = CB(i).Split(CChar(vbTab))(ii).Trim + Case 37 + 8 + 6 + 1 + Me.열공급층수NTb.Text = CB(i).Split(CChar(vbTab))(ii).Trim + Case 38 + 8 + 6 + 1 + Me.층고NTb.Text = CB(i).Split(CChar(vbTab))(ii).Trim + Case 41 + 8 + 6 + 1 + If CB(i).Split(CChar(vbTab))(ii).Trim = "" Then + Me.신재생연결여부ComboBox.SelectedIndex = 0 + Else + Me.신재생연결여부ComboBox.Text = CB(i).Split(CChar(vbTab))(ii).Trim + End If + + ' Me.신재생연결여부ComboBox.Text = CStr(IIf( CB(i).Split(CChar(vbTab))(ii).Trim = "", "0", CB(i).Split(CChar(vbTab))(ii).Trim)) + Case 57 '42 + 8 + 6 + 1 + If CB(i).Split(CChar(vbTab))(ii).Trim = "" Then + Me.cmb_신재생.SelectedIndex = 0 + Else + Me.cmb_신재생.Text = CB(i).Split(CChar(vbTab))(ii).Trim + End If + + 'Me.연결된시스템ComboBox.Text = CStr(IIf( CB(i).Split(CChar(vbTab))(ii).Trim = "", "0", CB(i).Split(CChar(vbTab))(ii).Trim)) + End Select + Next + Next + + Me.bs.EndEdit() + isCopy = False + Me.Validate_Control() + End If + + End Sub + + Private Sub 열생산기기방식NCMB_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 열생산기기방식NCMB.SelectedIndexChanged + Validate_Control() + End Sub + + Private Sub bs_CurrentChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bs.CurrentChanged + If Not Init Then Return + Dim Drv As DataRowView = CType(bs.Current, DataRowView) + + Try + Dim DR() As DataRow = DSET.tbl_zone.Select("열생산난방생산기기='" & Drv("code").ToString & "' or 공조난방생산기기='" & Drv("code").ToString & "'") + Me.lbl_cnt1.Text = CStr(DR.GetUpperBound(0) + 1) + Catch ex As Exception + Me.lbl_cnt1.Text = "0" + End Try + + Try + Dim DR() As DataRow = DSET.tbl_zone.Select("열생산급탕생산기기='" & Drv("code").ToString & "'") + Me.lbl_cnt2.Text = CStr(DR.GetUpperBound(0) + 1) + Catch ex As Exception + Me.lbl_cnt2.Text = "0" + End Try + Me.bs.EndEdit() + 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 + If Me.bs.Position < Me.bs.Count Then Me.bs.Position += 1 + Else + If Me.bs.Position > 0 Then Me.bs.Position -= 1 + End If + Me.Validate() + My.Application.DoEvents() + End Sub + + + Private Sub bt_Del_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles bt_Del.MouseDown + If e.Button = Windows.Forms.MouseButtons.Right Then + If MsgBox("전체삭제를 하시겠습니까?", MsgBoxStyle.Information Or MsgBoxStyle.OkCancel, "확인") = MsgBoxResult.Ok Then + Dim dR() As DataRow = DSET.tbl_nanbangkiki.Select(Me.bs.Filter, "") + For i As Integer = dR.GetUpperBound(0) To 0 Step -1 + dR(i).Delete() + Next + DSET.tbl_nanbangkiki.AcceptChanges() + End If + End If + End Sub + + + Private Sub dv_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles dv.MouseUp + If Prj.UserAuthType = "ADMIN" OrElse Prj.UserAuthType = "BOTH" OrElse Prj.UserAuthType = "BOTH2" OrElse Prj.UserAuthType = "BOTH1" Then '//2011.03.08 추가 + If e.Button = Windows.Forms.MouseButtons.Right Then + Dim Frm_FilterA As New Frm_Filter + Frm_FilterA.ColumTitle = getColCaption(Me.Dt) + Frm_FilterA.ColumList = getColName(Me.Dt) + Frm_FilterA.Colorlist = "연결된시스템" + Frm_FilterA.Numfield = "" '//20100618 Color 리스트처럼 , 구분해서 필드들을 모두 넣으세요.(=, >= 등을 사용하기 위해서는 해당 항목을 추가 요망) + Frm_FilterA.Default_Filter = "code <> '0'" + If Frm_FilterA.ShowDialog <> Windows.Forms.DialogResult.OK Then Return '//창떳을떄 확인아ㅣ고 취소눌르면 다음을 수행하지않는다는거에요. + Dim Filter As String = Frm_FilterA.tb_filter.Text '//값은 아까 그 텍박에 잇구요. + Try + Me.bs.Filter = Filter + + '//바꾸기값이 있으면 변경 20100618 + If Frm_FilterA.cmb_fieldc.SelectedIndex >= 0 AndAlso Frm_FilterA.cmb_fieldc.Text.ToLower <> "code" AndAlso _ + Frm_FilterA.tb_valuec.Text <> "" Then + Dim Drow() As DataRow = Me.Dt.Select(Filter) + For Each Dr As DataRow In Drow + Dr(Frm_FilterA.cmb_fieldc.Text) = Frm_FilterA.tb_valuec.Text + Next + MsgBox("바꾸기 완료", MsgBoxStyle.Information, "확인") + End If + + Catch ex As Exception + Me.bs.Filter = "" + End Try + End If + End If + End Sub + + Private Sub dv_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles dv.KeyDown + '//여기보시면 alt+d 누르면 한줄을 경고없이(falsE)삭제하도록 햇어요.. 사실원래 밋alt +d 인데.. ㅎㅎ 잘못해서 ctrl 됫다는 + If Prj.UserAuthType = "ADMIN" OrElse Prj.UserAuthType = "BOTH" OrElse Prj.UserAuthType = "BOTH2" OrElse Prj.UserAuthType = "BOTH1" Then '//2011.03.08 추가 + Select Case e.KeyCode + Case Keys.D + If e.Alt Then + Dbbase.DelCrow(Me.bs, False) + End If + Case Keys.C + If e.Control Then + Me.SrcDrv = Me.bs.Current + If Me.SrcDrv Is Nothing Then + MsgBox("저장할 ROW가 없습니다", MsgBoxStyle.Information, "확인") + Return + End If + ' My.Computer.Clipboard.SetData("ZDATA", Drv) + End If + Case Keys.V + If e.Control Then + If Me.SrcDrv Is Nothing Then Return + Me.bt_add.PerformClick() '//신규추가 + Dim NewDrv As DataRowView = Me.bs.Current + + For Each C As DataColumn In Me.Dt.Columns + If C.ColumnName.ToUpper = "CODE" Then + ElseIf C.ColumnName.ToUpper = "설명" Then + NewDrv(C.ColumnName) = SrcDrv(C.ColumnName) & "#1" + Else + NewDrv(C.ColumnName) = SrcDrv(C.ColumnName) + End If + Next + Me.bs.EndEdit() + bs.MoveLast() + End If + End Select + End If + End Sub + + Private Sub lbl_cnt2_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles lbl_cnt2.TextChanged + + Try + If Me.lbl_cnt2.Text = "0" Then + GroupBox10.Enabled = False + GroupBox9.Enabled = False + Else + GroupBox10.Enabled = True + GroupBox9.Enabled = True + End If + Catch ex As Exception + + End Try + + End Sub + + Private Sub 분배시스템방식ComboBox_SelectedValueChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles 분배시스템방식ComboBox.SelectedValueChanged + Validate_Control() + End Sub + + Private Sub lbl_cnt1_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles lbl_cnt1.TextChanged + + Try + If Me.lbl_cnt1.Text = "0" Then + GroupBox8.Enabled = False + Else + GroupBox8.Enabled = True + End If + Catch ex As Exception + + End Try + + End Sub + + Private Sub 분배시스템방식ComboBox_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 분배시스템방식ComboBox.SelectedIndexChanged + + End Sub + + Private Sub 급탕배관길이NTB_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 급탕배관길이NTB.TextChanged + If Me.급탕배관길이NTB.Text <> "" AndAlso Me.급탕배관길이NTB.Text <> "0" Then '//배관길이에 값이 바뀌면 체크변경 + Me.RadioButton2.Checked = True + End If + End Sub + + Private Sub RadioButton2_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton2.CheckedChanged, RadioButton1.CheckedChanged + If Me.RadioButton2.Checked = False Then '//표준치로 선택되면 배관길이값을 지워버림 + Me.급탕배관길이NTB.Text = "" + Me.급탕배관길이NTB.Enabled = False + Me.건물길이NTb.Enabled = True + Me.건물넓이NTb.Enabled = True + Me.열공급층수NTb.Enabled = True + Me.층고NTb.Enabled = True + Else + Me.건물길이NTb.Enabled = False + Me.건물넓이NTb.Enabled = False + Me.열공급층수NTb.Enabled = False + Me.층고NTb.Enabled = False + Me.급탕배관길이NTB.Enabled = True + End If + End Sub + +End Class \ No newline at end of file diff --git a/ArinWarev1/Forms/v20091231/Frm_New.Designer.vb b/ArinWarev1/Forms/v20091231/Frm_New.Designer.vb new file mode 100644 index 0000000..1343da0 --- /dev/null +++ b/ArinWarev1/Forms/v20091231/Frm_New.Designer.vb @@ -0,0 +1,1380 @@ + _ +Partial Class Frm_New + Inherits CForm + 'Form은 Dispose를 재정의하여 구성 요소 목록을 정리합니다. + _ + Protected Overrides Sub Dispose(ByVal disposing As Boolean) + Try + If disposing AndAlso components IsNot Nothing Then + components.Dispose() + End If + Finally + MyBase.Dispose(disposing) + End Try + End Sub + + 'Windows Form 디자이너에 필요합니다. + Private components As System.ComponentModel.IContainer + + '참고: 다음 프로시저는 Windows Form 디자이너에 필요합니다. + '수정하려면 Windows Form 디자이너를 사용하십시오. + '코드 편집기를 사용하여 수정하지 마십시오. + _ + 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 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 + 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.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.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.lb_grpname = New System.Windows.Forms.Label() + 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() + Me.bt_Del = New System.Windows.Forms.ToolStripButton() + Me.bt_cancel = New System.Windows.Forms.ToolStripButton() + Me.ToolStripSeparator1 = New System.Windows.Forms.ToolStripSeparator() + Me.lbl_pos = New System.Windows.Forms.ToolStripLabel() + Me.GroupBox2 = New System.Windows.Forms.GroupBox() + Me.열병합Panel = New System.Windows.Forms.Panel() + Me.tb_열생산능력 = New Eco2Ar.MyTb() + Me.tb_열생산효율 = New Eco2Ar.MyTb() + Me.tb_발전효율 = New Eco2Ar.MyTb() + Me.GroupBox1 = New System.Windows.Forms.GroupBox() + Me.기기종류ComboBox = New Eco2Ar.MyCmb() + 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() + 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() + 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() + Me.SplitContainer1.Panel1.SuspendLayout() + Me.SplitContainer1.Panel2.SuspendLayout() + Me.SplitContainer1.SuspendLayout() + CType(Me.dv, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.bn, System.ComponentModel.ISupportInitialize).BeginInit() + Me.bn.SuspendLayout() + Me.GroupBox2.SuspendLayout() + Me.열병합Panel.SuspendLayout() + Me.GroupBox1.SuspendLayout() + Me.SuspendLayout() + ' + 'Label456 + ' + Label456.AutoSize = True + Label456.ForeColor = System.Drawing.Color.Black + Label456.Location = New System.Drawing.Point(60, 6) + Label456.Name = "Label456" + Label456.Size = New System.Drawing.Size(132, 14) + Label456.TabIndex = 38 + Label456.Text = "[태양열 시스템:축열탱크]" + ' + 'Label455 + ' + Label455.AutoSize = True + Label455.ForeColor = System.Drawing.Color.Black + Label455.Location = New System.Drawing.Point(82, 5) + Label455.Name = "Label455" + Label455.Size = New System.Drawing.Size(84, 14) + Label455.TabIndex = 38 + Label455.Text = "[태양열 시스템]" + ' + 'Label4 + ' + Label4.AutoSize = True + Label4.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label4.Location = New System.Drawing.Point(1, 28) + Label4.Name = "Label4" + Label4.Size = New System.Drawing.Size(157, 14) + Label4.TabIndex = 32 + Label4.Text = "태양열 축열탱크 체적(급탕)[l]:" + ' + 'Label6 + ' + Label6.AutoSize = True + Label6.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label6.Location = New System.Drawing.Point(1, 56) + Label6.Name = "Label6" + Label6.Size = New System.Drawing.Size(157, 14) + Label6.TabIndex = 34 + Label6.Text = "태양열 축열탱크 체적(난방)[l]:" + ' + 'Label7 + ' + Label7.AutoSize = True + Label7.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label7.Location = New System.Drawing.Point(3, 82) + Label7.Name = "Label7" + Label7.Size = New System.Drawing.Size(99, 14) + Label7.TabIndex = 36 + Label7.Text = "축열탱크설치장소:" + ' + '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(105, 14) + 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(66, 14) + Label9.TabIndex = 10 + Label9.Text = "집열기유형:" + ' + '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(92, 14) + Label10.TabIndex = 12 + Label10.Text = "집열판면적[m2]:" + ' + '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(66, 14) + 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(130, 14) + Label12.TabIndex = 16 + Label12.Text = "솔라펌프의정격동력[W]:" + ' + '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(110, 14) + Label13.TabIndex = 18 + Label13.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(88, 14) + Label14.TabIndex = 20 + Label14.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(135, 14) + Label15.TabIndex = 22 + Label15.Text = "1차열손실계수[W/m2K]:" + ' + '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(142, 14) + Label16.TabIndex = 24 + Label16.Text = "2차열손실계수[W/m2K2]:" + ' + 'Label17 + ' + Label17.AutoSize = True + Label17.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label17.Location = New System.Drawing.Point(3, 29) + Label17.Name = "Label17" + Label17.Size = New System.Drawing.Size(114, 14) + Label17.TabIndex = 42 + Label17.Text = "태양광모듈면적[m2]:" + ' + 'Label18 + ' + Label18.AutoSize = True + Label18.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label18.Location = New System.Drawing.Point(3, 51) + Label18.Name = "Label18" + Label18.Size = New System.Drawing.Size(99, 14) + Label18.TabIndex = 44 + Label18.Text = "태양광모듈기울기:" + ' + 'Label19 + ' + Label19.AutoSize = True + Label19.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label19.Location = New System.Drawing.Point(3, 76) + Label19.Name = "Label19" + Label19.Size = New System.Drawing.Size(88, 14) + Label19.TabIndex = 46 + Label19.Text = "태양광모듈방위:" + ' + 'Label20 + ' + Label20.AutoSize = True + Label20.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label20.Location = New System.Drawing.Point(4, 100) + Label20.Name = "Label20" + Label20.Size = New System.Drawing.Size(88, 14) + Label20.TabIndex = 48 + Label20.Text = "태양광모듈종류:" + ' + 'Label21 + ' + Label21.AutoSize = True + Label21.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label21.Location = New System.Drawing.Point(3, 123) + Label21.Name = "Label21" + Label21.Size = New System.Drawing.Size(110, 14) + Label21.TabIndex = 50 + Label21.Text = "태양광모듈적용타입:" + ' + 'Label465 + ' + Label465.AutoSize = True + Label465.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label465.Location = New System.Drawing.Point(10, 48) + Label465.Name = "Label465" + Label465.Size = New System.Drawing.Size(95, 14) + Label465.TabIndex = 2 + Label465.Text = "-시스템 가동연료:" + ' + 'Label23 + ' + Label23.AutoSize = True + Label23.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label23.Location = New System.Drawing.Point(7, 48) + Label23.Name = "Label23" + Label23.Size = New System.Drawing.Size(113, 14) + Label23.TabIndex = 60 + Label23.Text = "열성능비(COP,난방):" + ' + 'Label24 + ' + Label24.AutoSize = True + Label24.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label24.Location = New System.Drawing.Point(7, 70) + Label24.Name = "Label24" + Label24.Size = New System.Drawing.Size(113, 14) + Label24.TabIndex = 62 + Label24.Text = "열성능비(COP,냉방):" + ' + 'Label25 + ' + Label25.AutoSize = True + Label25.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label25.Location = New System.Drawing.Point(7, 94) + Label25.Name = "Label25" + Label25.Size = New System.Drawing.Size(93, 14) + Label25.TabIndex = 64 + Label25.Text = "1차펌프동력[W]:" + ' + 'Label457 + ' + Label457.AutoSize = True + Label457.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label457.Location = New System.Drawing.Point(10, 69) + Label457.Name = "Label457" + Label457.Size = New System.Drawing.Size(79, 14) + Label457.TabIndex = 75 + Label457.Text = "발전 효율[%]:" + ' + 'Label458 + ' + Label458.AutoSize = True + Label458.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label458.Location = New System.Drawing.Point(10, 24) + Label458.Name = "Label458" + Label458.Size = New System.Drawing.Size(95, 14) + Label458.TabIndex = 73 + Label458.Text = "열생산 능력[kW]:" + ' + 'Label459 + ' + Label459.AutoSize = True + Label459.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label459.Location = New System.Drawing.Point(10, 46) + Label459.Name = "Label459" + Label459.Size = New System.Drawing.Size(90, 14) + 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, 14) + 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, 14) + Label31.TabIndex = 66 + ' + 'Label3 + ' + Label3.AutoSize = True + Label3.ForeColor = System.Drawing.Color.Black + Label3.Location = New System.Drawing.Point(71, 6) + Label3.Name = "Label3" + Label3.Size = New System.Drawing.Size(84, 14) + Label3.TabIndex = 38 + Label3.Text = "[태양광 시스템]" + ' + 'Label2 + ' + Label2.AutoSize = True + Label2.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label2.Location = New System.Drawing.Point(42, 26) + Label2.Name = "Label2" + Label2.Size = New System.Drawing.Size(59, 14) + Label2.TabIndex = 147 + Label2.Text = "-기기종류:" + ' + 'Label5 + ' + Label5.AutoSize = True + Label5.ForeColor = System.Drawing.Color.Black + Label5.Location = New System.Drawing.Point(69, 2) + Label5.Name = "Label5" + Label5.Size = New System.Drawing.Size(84, 14) + Label5.TabIndex = 38 + Label5.Text = "[열병합 시스템]" + ' + 'Label22 + ' + Label22.AutoSize = True + Label22.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label22.Location = New System.Drawing.Point(7, 24) + Label22.Name = "Label22" + Label22.Size = New System.Drawing.Size(125, 14) + Label22.TabIndex = 58 + Label22.Text = "지열히트펌프용량[kW]:" + ' + 'Label27 + ' + Label27.AutoSize = True + Label27.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label27.Location = New System.Drawing.Point(7, 187) + Label27.Name = "Label27" + Label27.Size = New System.Drawing.Size(110, 14) + Label27.TabIndex = 150 + Label27.Text = "지열팽창탱크체적[l]:" + ' + 'Label29 + ' + Label29.AutoSize = True + Label29.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label29.Location = New System.Drawing.Point(7, 164) + Label29.Name = "Label29" + Label29.Size = New System.Drawing.Size(121, 14) + Label29.TabIndex = 149 + Label29.Text = "지열팽창탱크설치여부:" + ' + 'Label28 + ' + Label28.AutoSize = True + Label28.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label28.Location = New System.Drawing.Point(7, 141) + Label28.Name = "Label28" + Label28.Size = New System.Drawing.Size(99, 14) + Label28.TabIndex = 148 + Label28.Text = "열교환기설치여부:" + ' + 'Label26 + ' + Label26.AutoSize = True + Label26.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label26.Location = New System.Drawing.Point(7, 116) + Label26.Name = "Label26" + Label26.Size = New System.Drawing.Size(93, 14) + Label26.TabIndex = 147 + Label26.Text = "2차펌프동력[W]:" + ' + 'Label32 + ' + Label32.AutoSize = True + Label32.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label32.Location = New System.Drawing.Point(3, 148) + Label32.Name = "Label32" + Label32.Size = New System.Drawing.Size(100, 14) + Label32.TabIndex = 50 + Label32.Text = "태양광모듈효율[-]:" + ' + 'TableLayoutPanel1 + ' + Me.TableLayoutPanel1.AutoScroll = True + Me.TableLayoutPanel1.ColumnCount = 2 + Me.TableLayoutPanel1.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Absolute, 126.0!)) + Me.TableLayoutPanel1.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Percent, 50.0!)) + Me.TableLayoutPanel1.Controls.Add(Me.NTb1, 1, 12) + Me.TableLayoutPanel1.Controls.Add(Me.NTb2, 1, 11) + Me.TableLayoutPanel1.Location = New System.Drawing.Point(0, 0) + Me.TableLayoutPanel1.Name = "TableLayoutPanel1" + Me.TableLayoutPanel1.RowCount = 13 + Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Absolute, 20.0!)) + Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Absolute, 20.0!)) + Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Absolute, 20.0!)) + Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Absolute, 20.0!)) + Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Absolute, 20.0!)) + Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Absolute, 20.0!)) + Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Absolute, 20.0!)) + Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Absolute, 20.0!)) + Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Absolute, 20.0!)) + Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Absolute, 20.0!)) + Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Absolute, 20.0!)) + Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Absolute, 20.0!)) + Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Absolute, 20.0!)) + Me.TableLayoutPanel1.Size = New System.Drawing.Size(200, 100) + Me.TableLayoutPanel1.TabIndex = 0 + ' + 'NTb1 + ' + Me.NTb1.Location = New System.Drawing.Point(129, 243) + Me.NTb1.Name = "NTb1" + Me.NTb1.NectControl = Nothing + Me.NTb1.Size = New System.Drawing.Size(68, 21) + Me.NTb1.TabIndex = 63 + Me.NTb1.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + ' + 'NTb2 + ' + Me.NTb2.Location = New System.Drawing.Point(129, 223) + Me.NTb2.Name = "NTb2" + Me.NTb2.NectControl = Nothing + Me.NTb2.Size = New System.Drawing.Size(68, 21) + Me.NTb2.TabIndex = 61 + Me.NTb2.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + ' + '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(229, 95) + Me.tb_태양열_cnt2.Name = "tb_태양열_cnt2" + Me.tb_태양열_cnt2.ReadOnly = True + Me.tb_태양열_cnt2.Size = New System.Drawing.Size(43, 21) + Me.tb_태양열_cnt2.TabIndex = 117 + Me.tb_태양열_cnt2.Text = "0" + Me.tb_태양열_cnt2.TextAlign = System.Windows.Forms.HorizontalAlignment.Center + ' + '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(229, 73) + Me.tb_태양열_cnt1.Name = "tb_태양열_cnt1" + Me.tb_태양열_cnt1.ReadOnly = True + Me.tb_태양열_cnt1.Size = New System.Drawing.Size(43, 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(15, 77) + Me.Label163.Name = "Label163" + Me.Label163.Size = New System.Drawing.Size(206, 14) + 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(15, 97) + Me.Label164.Name = "Label164" + Me.Label164.Size = New System.Drawing.Size(206, 14) + Me.Label164.TabIndex = 118 + Me.Label164.Text = "-냉방생산기기와 열원기기로 연결된 수 : " + Me.Label164.TextAlign = System.Drawing.ContentAlignment.MiddleRight + ' + '축열탱크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(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 + ' + 'tb_축열탱크체적급 + ' + Me.tb_축열탱크체적급.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bs, "축열탱크체적급탕", True)) + Me.tb_축열탱크체적급.Location = New System.Drawing.Point(163, 28) + Me.tb_축열탱크체적급.Name = "tb_축열탱크체적급" + Me.tb_축열탱크체적급.NectControl = Nothing + Me.tb_축열탱크체적급.Size = New System.Drawing.Size(89, 21) + Me.tb_축열탱크체적급.TabIndex = 9 + Me.tb_축열탱크체적급.TextAlign = System.Windows.Forms.HorizontalAlignment.Right + Me.tb_축열탱크체적급.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + ' + 'bs + ' + Me.bs.DataMember = "tbl_new" + Me.bs.DataSource = Me.DS + Me.bs.Filter = "code <> '0'" + ' + 'DS + ' + Me.DS.DataSetName = "DS" + Me.DS.SchemaSerializationMode = System.Data.SchemaSerializationMode.IncludeSchema + ' + 'cmb_축열탱크설치장소 + ' + Me.cmb_축열탱크설치장소.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList + Me.cmb_축열탱크설치장소.FormattingEnabled = True + Me.cmb_축열탱크설치장소.Location = New System.Drawing.Point(163, 80) + Me.cmb_축열탱크설치장소.Name = "cmb_축열탱크설치장소" + Me.cmb_축열탱크설치장소.NectControl = Nothing + Me.cmb_축열탱크설치장소.Size = New System.Drawing.Size(89, 22) + 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(163, 54) + Me.tb_축열탱크체적난.Name = "tb_축열탱크체적난" + Me.tb_축열탱크체적난.NectControl = Nothing + Me.tb_축열탱크체적난.Size = New System.Drawing.Size(89, 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)) + Me.태양열Panel.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.태양열Panel.Controls.Add(Label455) + Me.태양열Panel.Controls.Add(Me.cmb_태양열시스템종류) + Me.태양열Panel.Controls.Add(Me.cmb_집열기유형) + Me.태양열Panel.Controls.Add(Me.tb_집열판면적) + Me.태양열Panel.Controls.Add(Me.cmb_집열판방위) + Me.태양열Panel.Controls.Add(Label16) + Me.태양열Panel.Controls.Add(Me.tB_솔라펌프출력) + Me.태양열Panel.Controls.Add(Me.cmb_태양열시스템의성능) + Me.태양열Panel.Controls.Add(Label8) + Me.태양열Panel.Controls.Add(Me.tb_무손실효율계수) + Me.태양열Panel.Controls.Add(Label9) + Me.태양열Panel.Controls.Add(Label15) + Me.태양열Panel.Controls.Add(Label10) + Me.태양열Panel.Controls.Add(Label14) + Me.태양열Panel.Controls.Add(Me.tb_2차손실계수) + Me.태양열Panel.Controls.Add(Label13) + Me.태양열Panel.Controls.Add(Label11) + Me.태양열Panel.Controls.Add(Me.tb_1차손실계수) + Me.태양열Panel.Controls.Add(Label12) + Me.태양열Panel.Location = New System.Drawing.Point(7, 17) + Me.태양열Panel.Name = "태양열Panel" + Me.태양열Panel.Size = New System.Drawing.Size(266, 239) + Me.태양열Panel.TabIndex = 144 + ' + 'cmb_태양열시스템종류 + ' + Me.cmb_태양열시스템종류.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList + Me.cmb_태양열시스템종류.FormattingEnabled = True + Me.cmb_태양열시스템종류.Location = New System.Drawing.Point(161, 21) + Me.cmb_태양열시스템종류.Name = "cmb_태양열시스템종류" + Me.cmb_태양열시스템종류.NectControl = Nothing + Me.cmb_태양열시스템종류.Size = New System.Drawing.Size(95, 22) + Me.cmb_태양열시스템종류.TabIndex = 0 + ' + 'cmb_집열기유형 + ' + Me.cmb_집열기유형.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList + Me.cmb_집열기유형.FormattingEnabled = True + Me.cmb_집열기유형.Location = New System.Drawing.Point(161, 46) + Me.cmb_집열기유형.Name = "cmb_집열기유형" + Me.cmb_집열기유형.NectControl = Nothing + Me.cmb_집열기유형.Size = New System.Drawing.Size(95, 22) + Me.cmb_집열기유형.TabIndex = 1 + ' + 'tb_집열판면적 + ' + Me.tb_집열판면적.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bs, "집열판면적", True)) + Me.tb_집열판면적.Location = New System.Drawing.Point(161, 70) + Me.tb_집열판면적.Name = "tb_집열판면적" + Me.tb_집열판면적.NectControl = Nothing + Me.tb_집열판면적.Size = New System.Drawing.Size(95, 21) + Me.tb_집열판면적.TabIndex = 2 + 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(161, 93) + Me.cmb_집열판방위.Name = "cmb_집열판방위" + Me.cmb_집열판방위.NectControl = Nothing + Me.cmb_집열판방위.Size = New System.Drawing.Size(95, 22) + Me.cmb_집열판방위.TabIndex = 3 + ' + 'tB_솔라펌프출력 + ' + Me.tB_솔라펌프출력.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bs, "솔라펌프의정격출력", True)) + Me.tB_솔라펌프출력.Location = New System.Drawing.Point(161, 117) + Me.tB_솔라펌프출력.Name = "tB_솔라펌프출력" + Me.tB_솔라펌프출력.NectControl = Nothing + Me.tB_솔라펌프출력.Size = New System.Drawing.Size(95, 21) + Me.tB_솔라펌프출력.TabIndex = 4 + 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(161, 140) + Me.cmb_태양열시스템의성능.Name = "cmb_태양열시스템의성능" + Me.cmb_태양열시스템의성능.NectControl = Nothing + Me.cmb_태양열시스템의성능.Size = New System.Drawing.Size(95, 22) + Me.cmb_태양열시스템의성능.TabIndex = 5 + ' + 'tb_무손실효율계수 + ' + Me.tb_무손실효율계수.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bs, "무손실효율계수", True)) + Me.tb_무손실효율계수.Location = New System.Drawing.Point(161, 165) + Me.tb_무손실효율계수.Name = "tb_무손실효율계수" + Me.tb_무손실효율계수.NectControl = Nothing + Me.tb_무손실효율계수.Size = New System.Drawing.Size(95, 21) + Me.tb_무손실효율계수.TabIndex = 6 + 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, "열손실계수2차", True)) + Me.tb_2차손실계수.Location = New System.Drawing.Point(161, 212) + Me.tb_2차손실계수.Name = "tb_2차손실계수" + Me.tb_2차손실계수.NectControl = Nothing + Me.tb_2차손실계수.Size = New System.Drawing.Size(95, 21) + Me.tb_2차손실계수.TabIndex = 8 + Me.tb_2차손실계수.TextAlign = System.Windows.Forms.HorizontalAlignment.Right + Me.tb_2차손실계수.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(161, 189) + Me.tb_1차손실계수.Name = "tb_1차손실계수" + Me.tb_1차손실계수.NectControl = Nothing + Me.tb_1차손실계수.Size = New System.Drawing.Size(95, 21) + Me.tb_1차손실계수.TabIndex = 7 + 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(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, 297) + Me.지열Panel.Name = "지열Panel" + Me.지열Panel.Size = New System.Drawing.Size(224, 215) + Me.지열Panel.TabIndex = 145 + ' + 'tb_지열팽창탱크체적 + ' + Me.tb_지열팽창탱크체적.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bs, "팽창탱크체적", True)) + Me.tb_지열팽창탱크체적.Location = New System.Drawing.Point(135, 184) + Me.tb_지열팽창탱크체적.Name = "tb_지열팽창탱크체적" + Me.tb_지열팽창탱크체적.NectControl = Nothing + Me.tb_지열팽창탱크체적.Size = New System.Drawing.Size(80, 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(135, 160) + Me.cmb_지열팽창설치여부.Name = "cmb_지열팽창설치여부" + Me.cmb_지열팽창설치여부.NectControl = Nothing + Me.cmb_지열팽창설치여부.Size = New System.Drawing.Size(80, 22) + Me.cmb_지열팽창설치여부.TabIndex = 145 + ' + 'cmb_열교환기설치여부 + ' + Me.cmb_열교환기설치여부.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList + Me.cmb_열교환기설치여부.FormattingEnabled = True + Me.cmb_열교환기설치여부.Location = New System.Drawing.Point(135, 136) + Me.cmb_열교환기설치여부.Name = "cmb_열교환기설치여부" + Me.cmb_열교환기설치여부.NectControl = Nothing + Me.cmb_열교환기설치여부.Size = New System.Drawing.Size(80, 22) + 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(135, 113) + Me.tb_2차펌프용량.Name = "tb_2차펌프용량" + Me.tb_2차펌프용량.NectControl = Nothing + Me.tb_2차펌프용량.Size = New System.Drawing.Size(80, 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(75, 2) + Me.Label1.Name = "Label1" + Me.Label1.Size = New System.Drawing.Size(73, 14) + 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(135, 90) + Me.tb_1차펌프용량.Name = "tb_1차펌프용량" + Me.tb_1차펌프용량.NectControl = Nothing + Me.tb_1차펌프용량.Size = New System.Drawing.Size(80, 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(135, 67) + Me.tb_열성능비2.Name = "tb_열성능비2" + Me.tb_열성능비2.NectControl = Nothing + Me.tb_열성능비2.Size = New System.Drawing.Size(80, 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(135, 44) + Me.tb_열성능비.Name = "tb_열성능비" + Me.tb_열성능비.NectControl = Nothing + Me.tb_열성능비.Size = New System.Drawing.Size(80, 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(135, 21) + Me.tb_지열펌프용량.Name = "tb_지열펌프용량" + Me.tb_지열펌프용량.NectControl = Nothing + Me.tb_지열펌프용량.Size = New System.Drawing.Size(80, 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(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, 117) + Me.태양광Panel.Name = "태양광Panel" + Me.태양광Panel.Size = New System.Drawing.Size(224, 174) + Me.태양광Panel.TabIndex = 144 + ' + 'cmb_모듈종류 + ' + Me.cmb_모듈종류.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList + Me.cmb_모듈종류.FormattingEnabled = True + Me.cmb_모듈종류.Location = New System.Drawing.Point(122, 97) + Me.cmb_모듈종류.Name = "cmb_모듈종류" + Me.cmb_모듈종류.NectControl = Nothing + Me.cmb_모듈종류.Size = New System.Drawing.Size(94, 22) + Me.cmb_모듈종류.TabIndex = 11 + ' + 'cmb_모듈방위 + ' + Me.cmb_모듈방위.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList + Me.cmb_모듈방위.FormattingEnabled = True + Me.cmb_모듈방위.Location = New System.Drawing.Point(122, 73) + Me.cmb_모듈방위.Name = "cmb_모듈방위" + Me.cmb_모듈방위.NectControl = Nothing + Me.cmb_모듈방위.Size = New System.Drawing.Size(94, 22) + Me.cmb_모듈방위.TabIndex = 10 + ' + 'cmb_모듈적용타입 + ' + Me.cmb_모듈적용타입.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList + Me.cmb_모듈적용타입.FormattingEnabled = True + Me.cmb_모듈적용타입.Location = New System.Drawing.Point(122, 121) + Me.cmb_모듈적용타입.Name = "cmb_모듈적용타입" + Me.cmb_모듈적용타입.NectControl = Nothing + Me.cmb_모듈적용타입.Size = New System.Drawing.Size(94, 22) + Me.cmb_모듈적용타입.TabIndex = 12 + ' + 'cmb_모듈기울기 + ' + Me.cmb_모듈기울기.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList + Me.cmb_모듈기울기.FormattingEnabled = True + Me.cmb_모듈기울기.Location = New System.Drawing.Point(122, 49) + Me.cmb_모듈기울기.Name = "cmb_모듈기울기" + Me.cmb_모듈기울기.NectControl = Nothing + Me.cmb_모듈기울기.Size = New System.Drawing.Size(94, 22) + Me.cmb_모듈기울기.TabIndex = 9 + ' + 'tb_모듈효율 + ' + Me.tb_모듈효율.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bs, "태양광모듈효율", True)) + Me.tb_모듈효율.Location = New System.Drawing.Point(122, 145) + Me.tb_모듈효율.Name = "tb_모듈효율" + Me.tb_모듈효율.NectControl = Nothing + Me.tb_모듈효율.Size = New System.Drawing.Size(94, 21) + Me.tb_모듈효율.TabIndex = 8 + 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(122, 26) + Me.tb_모듈면적.Name = "tb_모듈면적" + Me.tb_모듈면적.NectControl = Nothing + Me.tb_모듈면적.Size = New System.Drawing.Size(94, 21) + Me.tb_모듈면적.TabIndex = 8 + 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(770, 567) + 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.lb_grpname) + 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(770, 567) + Me.SplitContainer1.SplitterDistance = 212 + Me.SplitContainer1.TabIndex = 150 + ' + 'dv + ' + Me.dv.A_DelCurrentCell = True + Me.dv.A_EnterToTab = True + 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, 26) + Me.dv.Margin = New System.Windows.Forms.Padding(3, 5, 3, 5) + 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, 502) + Me.dv.TabIndex = 0 + ' + 'DataGridViewTextBoxColumn1 + ' + Me.DataGridViewTextBoxColumn1.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.Fill + Me.DataGridViewTextBoxColumn1.DataPropertyName = "설명" + Me.DataGridViewTextBoxColumn1.HeaderText = "설명" + Me.DataGridViewTextBoxColumn1.Name = "DataGridViewTextBoxColumn1" + ' + 'lb_grpname + ' + Me.lb_grpname.BackColor = System.Drawing.Color.LightSkyBlue + Me.lb_grpname.Dock = System.Windows.Forms.DockStyle.Top + Me.lb_grpname.ForeColor = System.Drawing.SystemColors.HotTrack + Me.lb_grpname.Location = New System.Drawing.Point(0, 0) + Me.lb_grpname.Name = "lb_grpname" + Me.lb_grpname.Size = New System.Drawing.Size(210, 26) + Me.lb_grpname.TabIndex = 98 + Me.lb_grpname.Text = "그룹 :" + Me.lb_grpname.TextAlign = System.Drawing.ContentAlignment.MiddleCenter + ' + '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("Microsoft Sans Serif", 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.bn.Location = New System.Drawing.Point(0, 528) + 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(29, 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(15, 34) + Me.lbl_pos.Text = "0" + ' + '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, 5) + Me.GroupBox2.Name = "GroupBox2" + Me.GroupBox2.Size = New System.Drawing.Size(245, 520) + 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(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(224, 95) + Me.열병합Panel.TabIndex = 145 + ' + 'tb_열생산능력 + ' + Me.tb_열생산능력.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bs, "열생산능력", True)) + Me.tb_열생산능력.Location = New System.Drawing.Point(123, 19) + 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(123, 42) + 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(123, 65) + 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, 403) + Me.GroupBox1.TabIndex = 149 + Me.GroupBox1.TabStop = False + ' + '기기종류ComboBox + ' + Me.기기종류ComboBox.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList + Me.기기종류ComboBox.FormattingEnabled = True + Me.기기종류ComboBox.Location = New System.Drawing.Point(137, 22) + Me.기기종류ComboBox.Name = "기기종류ComboBox" + Me.기기종류ComboBox.NectControl = Nothing + Me.기기종류ComboBox.Size = New System.Drawing.Size(142, 22) + Me.기기종류ComboBox.TabIndex = 148 + ' + 'cmb_가동연료 + ' + Me.cmb_가동연료.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList + Me.cmb_가동연료.FormattingEnabled = True + Me.cmb_가동연료.Location = New System.Drawing.Point(137, 45) + Me.cmb_가동연료.Name = "cmb_가동연료" + Me.cmb_가동연료.NectControl = Nothing + Me.cmb_가동연료.Size = New System.Drawing.Size(142, 22) + Me.cmb_가동연료.TabIndex = 3 + ' + 'NTb3 + ' + Me.NTb3.Location = New System.Drawing.Point(129, 263) + Me.NTb3.Name = "NTb3" + Me.NTb3.NectControl = Nothing + Me.NTb3.Size = New System.Drawing.Size(97, 21) + Me.NTb3.TabIndex = 59 + Me.NTb3.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + ' + 'Frm_New + ' + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.None + Me.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer)) + Me.ClientSize = New System.Drawing.Size(770, 567) + Me.ControlBox = False + Me.Controls.Add(Me.Panel6) + Me.Font = New System.Drawing.Font("나눔고딕 ExtraBold", 8.999999!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.Name = "Frm_New" + Me.ShowInTaskbar = False + Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen + 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) + Me.SplitContainer1.Panel2.PerformLayout() + Me.SplitContainer1.ResumeLayout(False) + CType(Me.dv, 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.열병합Panel.PerformLayout() + Me.GroupBox1.ResumeLayout(False) + Me.ResumeLayout(False) + + End Sub + Friend WithEvents tb_집열판면적 As MyTb + Friend WithEvents tB_솔라펌프출력 As MyTb + Friend WithEvents tb_무손실효율계수 As MyTb + Friend WithEvents tb_1차손실계수 As MyTb + Friend WithEvents tb_2차손실계수 As MyTb + Friend WithEvents tb_축열탱크체적급 As MyTb + Friend WithEvents tb_축열탱크체적난 As MyTb + Friend WithEvents tb_모듈면적 As MyTb + Public WithEvents DS As Eco2Ar.DS + Friend WithEvents bs As System.Windows.Forms.BindingSource + Friend WithEvents tb_발전효율 As MyTb + Friend WithEvents tb_열생산효율 As MyTb + Friend WithEvents tb_열생산능력 As MyTb + Friend WithEvents tb_지열펌프용량 As MyTb + Friend WithEvents tb_열성능비 As MyTb + Friend WithEvents tb_1차펌프용량 As MyTb + Friend WithEvents tb_열성능비2 As MyTb + Friend WithEvents TableLayoutPanel1 As System.Windows.Forms.TableLayoutPanel + Friend WithEvents NTb1 As MyTb + Friend WithEvents NTb2 As MyTb + Friend WithEvents NTb3 As MyTb + Friend WithEvents cmb_태양열시스템종류 As Eco2Ar.MyCmb + Friend WithEvents cmb_집열기유형 As Eco2Ar.MyCmb + Friend WithEvents cmb_집열판방위 As Eco2Ar.MyCmb + Friend WithEvents cmb_태양열시스템의성능 As Eco2Ar.MyCmb + Friend WithEvents cmb_축열탱크설치장소 As Eco2Ar.MyCmb + Friend WithEvents cmb_모듈기울기 As Eco2Ar.MyCmb + Friend WithEvents cmb_모듈적용타입 As Eco2Ar.MyCmb + Friend WithEvents cmb_모듈방위 As Eco2Ar.MyCmb + Friend WithEvents cmb_모듈종류 As Eco2Ar.MyCmb + Friend WithEvents cmb_가동연료 As Eco2Ar.MyCmb + Friend WithEvents tb_태양열_cnt2 As System.Windows.Forms.TextBox + Friend WithEvents tb_태양열_cnt1 As System.Windows.Forms.TextBox + Friend WithEvents Label163 As System.Windows.Forms.Label + Friend WithEvents Label164 As System.Windows.Forms.Label + Friend WithEvents 지열Panel As System.Windows.Forms.Panel + Friend WithEvents 태양광Panel As System.Windows.Forms.Panel + Friend WithEvents 태양열Panel As System.Windows.Forms.Panel + Friend WithEvents 축열탱크Panel As System.Windows.Forms.Panel + Friend WithEvents 기기종류ComboBox As Eco2Ar.MyCmb + Friend WithEvents Panel6 As System.Windows.Forms.Panel + Friend WithEvents SplitContainer1 As System.Windows.Forms.SplitContainer + Friend WithEvents dv As CEnergy.arindv + Friend WithEvents DataGridViewTextBoxColumn1 As System.Windows.Forms.DataGridViewTextBoxColumn + Friend WithEvents bn As System.Windows.Forms.BindingNavigator + Friend WithEvents bt_add As System.Windows.Forms.ToolStripButton + Friend WithEvents bt_Del As System.Windows.Forms.ToolStripButton + Friend WithEvents bt_cancel As System.Windows.Forms.ToolStripButton + Friend WithEvents ToolStripSeparator1 As System.Windows.Forms.ToolStripSeparator + Friend WithEvents 열병합Panel As System.Windows.Forms.Panel + Friend WithEvents tb_지열팽창탱크체적 As Eco2Ar.MyTb + 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 + Friend WithEvents GroupBox1 As System.Windows.Forms.GroupBox + Friend WithEvents tb_모듈효율 As Eco2Ar.MyTb + Friend WithEvents lb_grpname As System.Windows.Forms.Label +End Class diff --git a/ArinWarev1/Forms/v20091231/Frm_New.resx b/ArinWarev1/Forms/v20091231/Frm_New.resx new file mode 100644 index 0000000..660d9c8 --- /dev/null +++ b/ArinWarev1/Forms/v20091231/Frm_New.resx @@ -0,0 +1,243 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=2.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 + + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + 222, 17 + + + 286, 17 + + + 353, 17 + + + 40 + + \ No newline at end of file diff --git a/ArinWarev1/Forms/v20091231/Frm_New.vb b/ArinWarev1/Forms/v20091231/Frm_New.vb new file mode 100644 index 0000000..d468796 --- /dev/null +++ b/ArinWarev1/Forms/v20091231/Frm_New.vb @@ -0,0 +1,836 @@ +Public Class Frm_New + Dim Init As Boolean = False + Dim SrcDrv As DataRowView + +#Region "data Base 변경여부및 적용방법" + + '''변경된내용을적용한다. + Public Overrides Function AcceptChanged() As Boolean + bs.EndEdit() + Dim BaseDS As DataSet = CType(bs.DataSource, DataSet) + Dim BaseDT As DataTable = BaseDS.Tables(bs.DataMember) + BaseDT.AcceptChanges() + Return True + End Function + + '''변경된내용이있다면 취소한다. + Public Overrides Function RejectChanged() As Boolean + Dim BaseDS As DataSet = CType(bs.DataSource, DataSet) + Dim BaseDT As DataTable = BaseDS.Tables(bs.DataMember) + BaseDT.RejectChanges() + Return True + End Function + + '''데이터에변형이있었는가? + Public Overrides Function HasChanged() As Boolean + bs.EndEdit() + Dim BaseDS As DataSet = CType(bs.DataSource, DataSet) + Dim BaseDT As DataTable = BaseDS.Tables(bs.DataMember) + Dim ChangeDT As DataTable = BaseDT.GetChanges + If Not ChangeDT Is Nothing Then Return True + Return False + End Function + + '''기본데이터테이블을 반환합니다. + Public Function DT() As DataTable + Dim BaseDS As DataSet = CType(bs.DataSource, DataSet) + Return BaseDS.Tables(bs.DataMember) + End Function + + +#End Region + + + + Private Sub MdiMain_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load + 'MdiMain.Toggle_Menu_Color(MdiMain.E_MenuIdx.신재생기기) + 'CEnergy.ARINCLASS.SaveLoad_FrmSetting(Me) + '//프로필 관련 + + '//공유데이터셋에 연결한다. + Me.bs.DataSource = DSET + 'If Me.bs.Count < 1 Then + ' Me.bs.AddNew() + ' Dim DRv As DataRowView = bs.Current + ' DRv("code") = Me.GetMaxCode(DSET.tbl_new) + 'End If + + '//신재생 + AddHandler DSET.tbl_new.TableNewRow, AddressOf AddNewDataRow_new + + '//콤보컨트롤 바인딩 + Binding_Zone() + + '//모든컨트롤의 cTrl_enter 를 추가합니다 + BindProperty(CType(Me.SplitContainer1.Panel2.Controls, Control.ControlCollection)) + + + Me.bs.Filter = "code <> '0' and 기기종류 = '" + Me.Parameter + "'" + Me.lb_grpname.Text = Me.Parameter + + Me.Init = True + + + Try + Me.bs.Position = CEnergy.ARINCLASS.Read_LastPos_Frm(Me) + Catch ex As Exception + Me.bs.MoveFirst() + End Try + + bs_CurrentChanged(sender, e) + Me.Validate_Control() + + End Sub + +#Region "Control_Enter" + Private Sub BindProperty(ByVal Ctl As Control.ControlCollection) + For Each C As Control In Ctl + If C.Controls.Count > 1 Then + BindProperty(C.Controls) + Else + If C.GetType.ToString.ToUpper.IndexOf("MYTB") <> -1 Then + AddHandler CType(C, MyTb).KeyDown, AddressOf TextBOx_KeyDown + ElseIf C.GetType.ToString.ToUpper.IndexOf("MYCMB") <> -1 Then + AddHandler CType(C, MyCmb).KeyDown, AddressOf Cmd_KeyDown + End If + End If + Next + End Sub + + Private Sub TextBOx_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) + If e.KeyCode = Keys.Enter AndAlso e.Control Then + Try + Dim Field As String = (CType(sender, MyTb).DataBindings.Item("text").BindingMemberInfo.BindingField) + For Each Dr As DataRow In Dt.Select(Me.bs.Filter, "") + Dr(Field) = CType(sender, MyTb).Text + Next + Work_msg_timer("모든값이 변경되었습니다", 25) + Catch ex As Exception + + End Try + + End If + End Sub + Private Sub Cmd_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) + If e.KeyCode = Keys.Enter AndAlso e.Control Then + Try + Dim Field As String = (CType(sender, MyCmb).DataBindings.Item("selectedvalue").BindingMemberInfo.BindingField) + For Each Dr As DataRow In Dt.Select(Me.bs.Filter, "") + Dr(Field) = CType(sender, MyCmb).SelectedValue + Next + Work_msg_timer("모든값이 변경되었습니다", 25) + Catch ex As Exception + + End Try + End If + End Sub +#End Region + +#Region "신재생" + Private Function GetMaxCode(ByVal dt As DataTable) As String + Try + Dim Dr As DataRow = dt.Select("", "code desc")(0) + Return Format(CInt(Dr("code")) + 1, "0000") + Catch ex As Exception + Return "0001" + End Try + End Function + Private Sub Cmb_DeleteVal(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) + If e.KeyCode = Keys.Delete Then + CType(sender, ComboBox).SelectedValue = "" + End If + End Sub + + Private Sub Binding_Zone() + + '//신재생 + Dim bs_기기종류ComboBox As New BindingSource(DSET, "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(DSET, "tbl_common") + bs_가동연료ComboBox.Filter = "gubun='1066'" + bs_가동연료ComboBox.Sort = "code" + Me.cmb_가동연료.DataSource = bs_가동연료ComboBox + cmb_가동연료.DisplayMember = "name" + cmb_가동연료.ValueMember = "name" + Me.cmb_가동연료.DataBindings.Add("selectedvalue", Me.bs, "가동연료") + 'AddHandler 지열가동연료ComboBox.KeyDown, AddressOf Cmb_DeleteVal + + Dim bs_태양열종류ComboBox As New BindingSource(DSET, "tbl_common") + bs_태양열종류ComboBox.Filter = "gubun='1057'" + bs_태양열종류ComboBox.Sort = "code" + Me.cmb_태양열시스템종류.DataSource = bs_태양열종류ComboBox + cmb_태양열시스템종류.DisplayMember = "name" + cmb_태양열시스템종류.ValueMember = "name" + Me.cmb_태양열시스템종류.DataBindings.Add("selectedvalue", Me.bs, "태양열종류") + 'AddHandler 태양열종류ComboBox.KeyDown, AddressOf Cmb_DeleteVal + + + Dim bs_집열기유형ComboBox As New BindingSource(DSET, "tbl_common") + bs_집열기유형ComboBox.Filter = "gubun='1058'" + bs_집열기유형ComboBox.Sort = "code" + Me.cmb_집열기유형.DataSource = bs_집열기유형ComboBox + cmb_집열기유형.DisplayMember = "name" + cmb_집열기유형.ValueMember = "name" + Me.cmb_집열기유형.DataBindings.Add("selectedvalue", Me.bs, "집열기유형") + 'AddHandler 집열기유형ComboBox.KeyDown, AddressOf Cmb_DeleteVal + + '집열기유형ComboBox + + Dim bs_집열판방위ComboBox As New BindingSource(DSET, "tbl_common") + bs_집열판방위ComboBox.Filter = "gubun='1059'" + bs_집열판방위ComboBox.Sort = "code" + Me.cmb_집열판방위.DataSource = bs_집열판방위ComboBox + cmb_집열판방위.DisplayMember = "name" + cmb_집열판방위.ValueMember = "name" + Me.cmb_집열판방위.DataBindings.Add("selectedvalue", Me.bs, "집열판방위") + 'AddHandler 집열판방위ComboBox.KeyDown, AddressOf Cmb_DeleteVal + + + Dim bs_태양열시스템의성능ComboBox As New BindingSource(DSET, "tbl_common") + bs_태양열시스템의성능ComboBox.Filter = "gubun='1060'" + bs_태양열시스템의성능ComboBox.Sort = "code" + Me.cmb_태양열시스템의성능.DataSource = bs_태양열시스템의성능ComboBox + cmb_태양열시스템의성능.DisplayMember = "name" + cmb_태양열시스템의성능.ValueMember = "name" + Me.cmb_태양열시스템의성능.DataBindings.Add("selectedvalue", Me.bs, "태양열시스템의성능") + 'AddHandler 태양열시스템의성능ComboBox.KeyDown, AddressOf Cmb_DeleteVal + + + Dim bs_축열탱크설치장소ComboBox As New BindingSource(DSET, "tbl_common") + bs_축열탱크설치장소ComboBox.Filter = "gubun='1061'" + bs_축열탱크설치장소ComboBox.Sort = "code" + Me.cmb_축열탱크설치장소.DataSource = bs_축열탱크설치장소ComboBox + cmb_축열탱크설치장소.DisplayMember = "name" + cmb_축열탱크설치장소.ValueMember = "name" + Me.cmb_축열탱크설치장소.DataBindings.Add("selectedvalue", Me.bs, "축열탱크설치장소") + 'AddHandler 축열탱크설치장소ComboBox.KeyDown, AddressOf Cmb_DeleteVal + + + Dim bs_태양광모듈기울기ComboBox As New BindingSource(DSET, "tbl_common") + bs_태양광모듈기울기ComboBox.Filter = "gubun='1062'" + bs_태양광모듈기울기ComboBox.Sort = "code" + Me.cmb_모듈기울기.DataSource = bs_태양광모듈기울기ComboBox + cmb_모듈기울기.DisplayMember = "name" + cmb_모듈기울기.ValueMember = "name" + Me.cmb_모듈기울기.DataBindings.Add("selectedvalue", Me.bs, "태양광모듈기울기") + 'AddHandler 태양광모듈기울기ComboBox.KeyDown, AddressOf Cmb_DeleteVal + + Dim bs_태양광모듈방위ComboBox As New BindingSource(DSET, "tbl_common") + bs_태양광모듈방위ComboBox.Filter = "gubun='1063'" + bs_태양광모듈방위ComboBox.Sort = "code" + Me.cmb_모듈방위.DataSource = bs_태양광모듈방위ComboBox + cmb_모듈방위.DisplayMember = "name" + cmb_모듈방위.ValueMember = "name" + Me.cmb_모듈방위.DataBindings.Add("selectedvalue", Me.bs, "태양광모듈방위") + 'AddHandler 태양광모듈방위ComboBox.KeyDown, AddressOf Cmb_DeleteVal + + + Dim bs_태양광모듈종류ComboBox As New BindingSource(DSET, "tbl_common") + bs_태양광모듈종류ComboBox.Filter = "gubun='1064'" + bs_태양광모듈종류ComboBox.Sort = "code" + Me.cmb_모듈종류.DataSource = bs_태양광모듈종류ComboBox + cmb_모듈종류.DisplayMember = "name" + cmb_모듈종류.ValueMember = "name" + Me.cmb_모듈종류.DataBindings.Add("selectedvalue", Me.bs, "태양광모듈종류") + 'AddHandler 태양광모듈종류ComboBox.KeyDown, AddressOf Cmb_DeleteVal + + + Dim bs_태양광모듈적용타입ComboBox As New BindingSource(DSET, "tbl_common") + bs_태양광모듈적용타입ComboBox.Filter = "gubun='1065'" + bs_태양광모듈적용타입ComboBox.Sort = "code" + Me.cmb_모듈적용타입.DataSource = bs_태양광모듈적용타입ComboBox + cmb_모듈적용타입.DisplayMember = "name" + cmb_모듈적용타입.ValueMember = "name" + Me.cmb_모듈적용타입.DataBindings.Add("selectedvalue", Me.bs, "태양광모듈적용타입") + 'AddHandler 태양광모듈적용타입ComboBox.KeyDown, AddressOf Cmb_DeleteVal + + + Dim bs_열교환기설치여부ComboBox As New BindingSource(DSET, "tbl_common") + bs_열교환기설치여부ComboBox.Filter = "gubun='1054'" + bs_열교환기설치여부ComboBox.Sort = "code" + Me.cmb_열교환기설치여부.DataSource = bs_열교환기설치여부ComboBox + cmb_열교환기설치여부.DisplayMember = "name" + cmb_열교환기설치여부.ValueMember = "name" + Me.cmb_열교환기설치여부.DataBindings.Add("selectedvalue", Me.bs, "열교환기설치여부") + 'AddHandler 열교환기설치여부ComboBox.KeyDown, AddressOf Cmb_DeleteVal + + Dim bs_팽창탱크설치여부ComboBox As New BindingSource(DSET, "tbl_common") + bs_팽창탱크설치여부ComboBox.Filter = "gubun='1054'" + bs_팽창탱크설치여부ComboBox.Sort = "code" + Me.cmb_지열팽창설치여부.DataSource = bs_팽창탱크설치여부ComboBox + cmb_지열팽창설치여부.DisplayMember = "name" + cmb_지열팽창설치여부.ValueMember = "name" + Me.cmb_지열팽창설치여부.DataBindings.Add("selectedvalue", Me.bs, "팽창탱크설치여부") + 'AddHandler 팽창탱크설치여부ComboBox.KeyDown, AddressOf Cmb_DeleteVal + + End Sub + + Private Sub MdiMain_FormClosed(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosedEventArgs) Handles Me.FormClosed + CEnergy.ARINCLASS.SaveLoad_FrmSetting(Me, Me.bs.Position, True) + End Sub + + Private Sub MdiMain_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown + Select Case e.KeyCode + Case Keys.F12 + End Select + End Sub + Private Sub ToolStripButton48_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt_add.Click + If Not EndEdit(Me.bs) Then Return + Me.bs.AddNew() + 'Dim DRv As DataRowView = bs.Current + 'DRv("code") = Me.GetMaxCode(DSET.tbl_new) + INitRow(Me.Controls) + End Sub + + + Private Sub ToolStripButton49_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt_Del.Click + Dbbase.DelCrow(Me.bs, True) + End Sub + + Private Sub ToolStripButton51_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt_cancel.Click + If Not EndEdit(Me.bs) Then Return + Data_Cancel(DSET.tbl_profile, Nothing) + End Sub + Private Sub Binding_new() + + End Sub + Private Sub AddNewDataRow_new(ByVal sender As Object, ByVal e As System.Data.DataTableNewRowEventArgs) + ' MsgBox("new") + e.Row.Item("code") = GetMaxCode(DSET.tbl_new) + End Sub +#End Region + + Private Sub 태양열종류ComboBox_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles cmb_태양열시스템종류.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 + Dim Cnt As Short = 0 + For i As Integer = 0 To CB.GetUpperBound(0) + Select Case i + Case 0 '//사용프로필 앞에 두개를 숫자4자로변환 + 'If CB(i).Trim = "" Then Me.태양열종류ComboBox.SelectedIndex = -1 + If CB(i).Trim = "" Then + Me.cmb_태양열시스템종류.SelectedIndex = 0 + Else + Me.cmb_태양열시스템종류.Text = CB(i).Trim + End If + ' Me.태양열종류ComboBox.Text = CStr(IIf(CB(i).Trim = "", "0", CB(i).Trim)) + Case 1 '//공란 + If CB(i).Trim = "" Then + Me.cmb_집열기유형.SelectedIndex = 0 + Else + Me.cmb_집열기유형.Text = CB(i).Trim + End If + 'Me.집열기유형ComboBox.Text = CStr(IIf(CB(i).Trim = "", "0", CB(i).Trim)) + Case 2 '//면적 + Me.tb_집열판면적.Text = CB(i).Trim + Case 3 + If CB(i).Trim = "" Then + Me.cmb_집열판방위.SelectedIndex = 0 + Else + Me.cmb_집열판방위.Text = CB(i).Trim + End If + 'Me.집열판방위ComboBox.Text = CStr(IIf(CB(i).Trim = "", "0", CB(i).Trim)) + Case 4 + Me.tB_솔라펌프출력.Text = CB(i).Trim + Case 5 + If CB(i).Trim = "" Then + Me.cmb_태양열시스템의성능.SelectedIndex = 0 + Else + Me.cmb_태양열시스템의성능.Text = CB(i).Trim + End If + + ' Me.태양열시스템의성능ComboBox.Text = CStr(IIf(CB(i).Trim = "", "0", CB(i).Trim)) + Case 6 + Me.tb_무손실효율계수.Text = CB(i).Trim + Case 7 + Me.tb_1차손실계수.Text = CB(i).Trim + Case 8 + Me.tb_2차손실계수.Text = CB(i).Trim + Case 9 + Case 10 + Me.tb_축열탱크체적급.Text = CB(i).Trim + Case 11 + Me.tb_축열탱크체적난.Text = CB(i).Trim + Case 12 + If CB(i).Trim = "" Then + Me.cmb_축열탱크설치장소.SelectedIndex = 0 + Else + Me.cmb_축열탱크설치장소.Text = CB(i).Trim + End If + + 'Me.축열탱크설치장소ComboBox.Text = CStr(IIf(CB(i).Trim = "", "0", CB(i).Trim)) + End Select + Next + Me.bs.EndEdit() + End If + End Sub + + + Private Sub 태양광모듈면적NTb_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles tb_모듈면적.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) < 3 Then + MsgBox("정상적인 데이터가 아닙니다") + Return + End If + Dim Cnt As Short = 0 + For i As Integer = 0 To CB.GetUpperBound(0) + Select Case i + Case 0 '//사용프로필 앞에 두개를 숫자4자로변환 + Me.tb_모듈면적.Text = CB(i).Trim + Case 1 '//공란 + If CB(i).Trim = "" Then Me.cmb_모듈기울기.SelectedIndex = -1 + Me.cmb_모듈기울기.Text = CB(i).Trim + Case 2 '//면적 + If CB(i).Trim = "" Then Me.cmb_모듈방위.SelectedIndex = -1 + Me.cmb_모듈방위.Text = CB(i).Trim + Case 3 + If CB(i).Trim = "" Then Me.cmb_모듈종류.SelectedIndex = -1 + Me.cmb_모듈종류.Text = CB(i).Trim + Case 4 + If CB(i).Trim = "" Then Me.cmb_모듈적용타입.SelectedIndex = -1 + Me.cmb_모듈적용타입.Text = CB(i).Trim + End Select + Next + Me.bs.EndEdit() + End If + End Sub + + Private Sub 지열가동연료ComboBox_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles cmb_가동연료.KeyDown, tb_지열펌프용량.KeyDown + + End Sub + + Private Sub bs_CurrentChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bs.CurrentChanged + '//존이 옴겨질떄 해당 존의 사용량을 표시 + If Not Init Then Return + Try + Dim Drv As DataRowView = CType(bs.Current, DataRowView) + Me.tb_태양열_cnt1.Text = CStr(DSET.tbl_nanbangkiki.Select("신재생연결여부='시스템연결' and 연결된시스템='" & Drv("Code").ToString & "'").GetUpperBound(0) + 1) + Me.tb_태양열_cnt2.Text = CStr(DSET.tbl_nangbangkiki.Select("신재생연결여부='시스템연결' and 연결된시스템='" & Drv("Code").ToString & "'").GetUpperBound(0) + 1) + Catch ex As Exception + Me.tb_태양열_cnt1.Text = ex.Message.ToString + Me.tb_태양열_cnt2.Text = ex.Message.ToString + End Try + Me.bs.EndEdit() + End Sub + + Private Sub 기기종류ComboBox_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles 기기종류ComboBox.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) < 2 Then + MsgBox("정상적인 데이터가 아닙니다") + 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() '//한줄추가 + + Dim Cnt As Short = 0 + For i As Integer = 0 To CB.GetUpperBound(0) + Select Case i + Case 0 + CType(bs.Current, DataRowView)("설명") = CB(i).Split(CChar(vbTab))(ii).Trim + Case 5 + If CB(i).Split(CChar(vbTab))(ii).Trim = "" Then + Me.기기종류ComboBox.SelectedIndex = 0 + Else + Me.기기종류ComboBox.Text = CB(i).Split(CChar(vbTab))(ii).Trim + End If + Case 6 + ' If CB(i).Split(CChar(vbTab))(ii).Trim = "" Then Me.열교가산치ComboBox.SelectedIndex = -1 + If CB(i).Split(CChar(vbTab))(ii).Trim = "" Then + Me.cmb_가동연료.SelectedIndex = 0 + Else + Me.cmb_가동연료.Text = CB(i).Split(CChar(vbTab))(ii).Trim + End If + 'Me.열교가산치ComboBox.Text = CStr(IIf( CB(i).Split(CChar(vbTab))(ii).Trim = "", "0", CB(i).Split(CChar(vbTab))(ii).Trim)) + + Case 9 + 'If CB(i).Split(CChar(vbTab))(ii).Trim = "" Then Me.cmb_냉난방방식.SelectedIndex = -1 + If CB(i).Split(CChar(vbTab))(ii).Trim = "" Then + Me.cmb_태양열시스템종류.SelectedIndex = 0 + Else + Me.cmb_태양열시스템종류.Text = CB(i).Split(CChar(vbTab))(ii).Trim + End If + 'Me.cmb_냉난방방식.Text = CStr(IIf( CB(i).Split(CChar(vbTab))(ii).Trim = "", "0", CB(i).Split(CChar(vbTab))(ii).Trim)) + Case 10 + 'If CB(i).Split(CChar(vbTab))(ii).Trim = "" Then Me.냉난방공조ComboBox.SelectedIndex = -1 + If CB(i).Split(CChar(vbTab))(ii).Trim = "" Then + Me.cmb_집열기유형.SelectedIndex = 0 + Else + Me.cmb_집열기유형.Text = CB(i).Split(CChar(vbTab))(ii).Trim + End If + Case 11 '//열생산지정 + ' Me.TabControl10.SelectedIndex = 1 + Me.tb_집열판면적.Text = CB(i).Split(CChar(vbTab))(ii).Trim + Case 12 + 'If CB(i).Split(CChar(vbTab))(ii).Trim = "" Then Me.냉난방공조ComboBox.SelectedIndex = -1 + If CB(i).Split(CChar(vbTab))(ii).Trim = "" Then + Me.cmb_집열판방위.SelectedIndex = 0 + Else + Me.cmb_집열판방위.Text = CB(i).Split(CChar(vbTab))(ii).Trim + End If + Case 13 '//열생산지정 + ' Me.TabControl10.SelectedIndex = 1 + Me.tB_솔라펌프출력.Text = CB(i).Split(CChar(vbTab))(ii).Trim + Case 14 + 'If CB(i).Split(CChar(vbTab))(ii).Trim = "" Then Me.냉난방공조ComboBox.SelectedIndex = -1 + If CB(i).Split(CChar(vbTab))(ii).Trim = "" Then + Me.cmb_태양열시스템의성능.SelectedIndex = 0 + Else + Me.cmb_태양열시스템의성능.Text = CB(i).Split(CChar(vbTab))(ii).Trim + End If + Case 15 '//열생산지정 + ' Me.TabControl10.SelectedIndex = 1 + Me.tb_무손실효율계수.Text = CB(i).Split(CChar(vbTab))(ii).Trim + Case 16 '//열생산지정 + Me.tb_1차손실계수.Text = CB(i).Split(CChar(vbTab))(ii).Trim + Case 17 '//열생산지정 + Me.tb_2차손실계수.Text = CB(i).Split(CChar(vbTab))(ii).Trim + Case 19 '//열생산지정 + Me.tb_축열탱크체적급.Text = CB(i).Split(CChar(vbTab))(ii).Trim + Case 20 '//열생산지정 + Me.tb_축열탱크체적난.Text = CB(i).Split(CChar(vbTab))(ii).Trim + Case 21 + 'If CB(i).Split(CChar(vbTab))(ii).Trim = "" Then Me.냉난방공조ComboBox.SelectedIndex = -1 + If CB(i).Split(CChar(vbTab))(ii).Trim = "" Then + Me.cmb_축열탱크설치장소.SelectedIndex = 0 + Else + Me.cmb_축열탱크설치장소.Text = CB(i).Split(CChar(vbTab))(ii).Trim + End If + Case 24 '//열생산지정 + Me.tb_모듈면적.Text = CB(i).Split(CChar(vbTab))(ii).Trim + Case 25 + If CB(i).Split(CChar(vbTab))(ii).Trim = "" Then + Me.cmb_모듈기울기.SelectedIndex = 0 + Else + Me.cmb_모듈기울기.Text = CB(i).Split(CChar(vbTab))(ii).Trim + End If + + Case 26 '//열생산지정 + If CB(i).Split(CChar(vbTab))(ii).Trim = "" Then + Me.cmb_모듈방위.SelectedIndex = 0 + Else + Me.cmb_모듈방위.Text = CB(i).Split(CChar(vbTab))(ii).Trim + End If + + Case 27 + If CB(i).Split(CChar(vbTab))(ii).Trim = "" Then + Me.cmb_모듈종류.SelectedIndex = 0 + Else + Me.cmb_모듈종류.Text = CB(i).Split(CChar(vbTab))(ii).Trim + End If + + Case 28 '//열생산지정 + If CB(i).Split(CChar(vbTab))(ii).Trim = "" Then + Me.cmb_모듈적용타입.SelectedIndex = 0 + Else + Me.cmb_모듈적용타입.Text = CB(i).Split(CChar(vbTab))(ii).Trim + End If + ' Me.cmb_모듈적용타입.Text = CB(i).Split(CChar(vbTab))(ii).Trim + Case 31 '//열생산지정 + Me.tb_지열펌프용량.Text = CB(i).Split(CChar(vbTab))(ii).Trim + Case 32 '//열생산지정 + Me.tb_열성능비.Text = CB(i).Split(CChar(vbTab))(ii).Trim + Case 33 '//열생산지정 + Me.tb_열성능비2.Text = CB(i).Split(CChar(vbTab))(ii).Trim + Case 34 '//열생산지정 + Me.tb_1차펌프용량.Text = CB(i).Split(CChar(vbTab))(ii).Trim + Case 35 '//열생산지정 + Me.tb_2차펌프용량.Text = CB(i).Split(CChar(vbTab))(ii).Trim + Case 36 + 'If CB(i).Split(CChar(vbTab))(ii).Trim = "" Then Me.냉난방공조ComboBox.SelectedIndex = -1 + If CB(i).Split(CChar(vbTab))(ii).Trim = "" Then + Me.cmb_열교환기설치여부.SelectedIndex = 0 + Else + Me.cmb_열교환기설치여부.Text = CB(i).Split(CChar(vbTab))(ii).Trim + End If + Case 37 + 'If CB(i).Split(CChar(vbTab))(ii).Trim = "" Then Me.냉난방공조ComboBox.SelectedIndex = -1 + If CB(i).Split(CChar(vbTab))(ii).Trim = "" Then + Me.cmb_지열팽창설치여부.SelectedIndex = 0 + Else + Me.cmb_지열팽창설치여부.Text = CB(i).Split(CChar(vbTab))(ii).Trim + End If + Case 38 '//열생산지정 + Me.tb_지열팽창탱크체적.Text = CB(i).Split(CChar(vbTab))(ii).Trim + Case 41 '//열생산지정 + Me.tb_열생산능력.Text = CB(i).Split(CChar(vbTab))(ii).Trim + Case 42 '//열생산지정 + Me.tb_열생산효율.Text = CB(i).Split(CChar(vbTab))(ii).Trim + Case 43 '//열생산지정 + Me.tb_발전효율.Text = CB(i).Split(CChar(vbTab))(ii).Trim + End Select + Next + Next + + Me.bs.EndEdit() + End If + End Sub + + Private Sub 기기종류ComboBox_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 기기종류ComboBox.SelectedIndexChanged + Validate_Control() + End Sub + + Private Sub Validate_Control() + If Not Init Then Return + Try + Select Case Me.기기종류ComboBox.Text + Case "태양열", "태양광" + Me.cmb_가동연료.SelectedIndex = 0 + Me.cmb_가동연료.Enabled = False + Case Else + Me.cmb_가동연료.Enabled = True + End Select + Catch ex As Exception + + End Try + + Try + Select Case Me.cmb_태양열시스템의성능.Text + Case "성능치" + Me.tb_무손실효율계수.Enabled = True + Me.tb_1차손실계수.Enabled = True + Me.tb_2차손실계수.Enabled = True + Case Else + Me.tb_무손실효율계수.Enabled = False + Me.tb_1차손실계수.Enabled = False + Me.tb_2차손실계수.Enabled = False + End Select + Catch ex As Exception + + End Try + + Try + If 기기종류ComboBox.Text = "태양열" Then + 태양열Panel.Enabled = True + 축열탱크Panel.Enabled = True + 열병합Panel.Enabled = False + 태양광Panel.Enabled = False + 지열Panel.Enabled = False + ElseIf 기기종류ComboBox.Text = "열병합" Then + 태양열Panel.Enabled = False + 축열탱크Panel.Enabled = False + 열병합Panel.Enabled = True + 태양광Panel.Enabled = False + 지열Panel.Enabled = False + ElseIf 기기종류ComboBox.Text = "태양광" Then + 태양열Panel.Enabled = False + 축열탱크Panel.Enabled = False + 열병합Panel.Enabled = False + 태양광Panel.Enabled = True + 지열Panel.Enabled = False + ElseIf 기기종류ComboBox.Text = "지열" Then + 태양열Panel.Enabled = False + 축열탱크Panel.Enabled = False + 열병합Panel.Enabled = False + 태양광Panel.Enabled = False + 지열Panel.Enabled = True + Else + 태양열Panel.Enabled = False + 축열탱크Panel.Enabled = False + 열병합Panel.Enabled = False + 태양광Panel.Enabled = False + 지열Panel.Enabled = False + End If + Catch ex As Exception + + End Try + + '//건기연 추가 (2010.04.07) + 'MsgBox(Me.cmb_가동연료.Text) + Try + Select Case Me.cmb_가동연료.Text + Case "전기" + Me.cmb_열교환기설치여부.Enabled = False + Case Else + Me.cmb_열교환기설치여부.Enabled = True + End Select + Catch ex As Exception + + End Try + + Try + + Select Case Me.cmb_모듈기울기.Text + Case "수평", "(없음)" + Me.cmb_모듈방위.Enabled = False + Case Else + Me.cmb_모듈방위.Enabled = True + End Select + + Catch ex As Exception + + End Try + + 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 ToolStripButton49_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) + If e.Button = Windows.Forms.MouseButtons.Right Then + If MsgBox("전체삭제를 하시겠습니까?", MsgBoxStyle.Information Or MsgBoxStyle.OkCancel, "확인") = MsgBoxResult.Ok Then + Dim dR() As DataRow = DSET.tbl_new.Select(Me.bs.Filter, "") + For i As Integer = dR.GetUpperBound(0) To 0 Step -1 + dR(i).Delete() + Next + DSET.tbl_new.AcceptChanges() + End If + End If + End Sub + + + Private Sub bt_Del_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles bt_Del.MouseDown + If e.Button = Windows.Forms.MouseButtons.Right Then + If MsgBox("전체삭제를 하시겠습니까?", MsgBoxStyle.Information Or MsgBoxStyle.OkCancel, "확인") = MsgBoxResult.Ok Then + Dim dR() As DataRow = DSET.tbl_new.Select(Me.bs.Filter, "") + For i As Integer = dR.GetUpperBound(0) To 0 Step -1 + dR(i).Delete() + Next + DSET.tbl_new.AcceptChanges() + End If + End If + End Sub + + + + Private Sub cmb_가동연료_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmb_가동연료.SelectedIndexChanged + If Me.cmb_가동연료.SelectedIndex <> -1 Then Me.Validate_Control() + End Sub + + Private Sub dv_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles dv.MouseUp + If Prj.UserAuthType = "ADMIN" OrElse Prj.UserAuthType = "BOTH" OrElse Prj.UserAuthType = "BOTH2" OrElse Prj.UserAuthType = "BOTH1" Then '//2011.03.08 추가 + If e.Button = Windows.Forms.MouseButtons.Right Then + Dim Frm_FilterA As New Frm_Filter + Frm_FilterA.ColumTitle = getColCaption(Me.Dt) + Frm_FilterA.ColumList = getColName(Me.Dt) + Frm_FilterA.Colorlist = "" + '//getfiled 며령으로 모든 필드명을 찾아서 + '//그것을 그 화면으로 보내는거에요 + '//그런데 여기서 어떤필드는 색을 달리하겟다라고할려면 해당 :::: 정보도 같이 넘겨줘야해요 + '//그부분 구현이 좀 매끄럽게 생각정리가안되네요 + + Frm_FilterA.Numfield = "" '//20100618 Color 리스트처럼 , 구분해서 필드들을 모두 넣으세요.(=, >= 등을 사용하기 위해서는 해당 항목을 추가 요망) + Frm_FilterA.Default_Filter = "code <> '0'" + If Frm_FilterA.ShowDialog <> Windows.Forms.DialogResult.OK Then Return '//창떳을떄 확인아ㅣ고 취소눌르면 다음을 수행하지않는다는거에요. + Dim Filter As String = Frm_FilterA.tb_filter.Text '//값은 아까 그 텍박에 잇구요. + Try + Me.bs.Filter = Filter + + '//바꾸기값이 있으면 변경 20100618 + If Frm_FilterA.cmb_fieldc.SelectedIndex >= 0 AndAlso Frm_FilterA.cmb_fieldc.Text.ToLower <> "code" AndAlso _ + Frm_FilterA.tb_valuec.Text <> "" Then + Dim Drow() As DataRow = Me.Dt.Select(Filter) + For Each Dr As DataRow In Drow + Dr(Frm_FilterA.cmb_fieldc.Text) = Frm_FilterA.tb_valuec.Text + Next + MsgBox("바꾸기 완료", MsgBoxStyle.Information, "확인") + End If + + Catch ex As Exception + Me.bs.Filter = "" + End Try + End If + End If + End Sub + + Private Sub dv_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles dv.KeyDown + '//여기보시면 alt+d 누르면 한줄을 경고없이(falsE)삭제하도록 햇어요.. 사실원래 밋alt +d 인데.. ㅎㅎ 잘못해서 ctrl 됫다는 + If Prj.UserAuthType = "ADMIN" OrElse Prj.UserAuthType = "BOTH" OrElse Prj.UserAuthType = "BOTH2" OrElse Prj.UserAuthType = "BOTH1" Then '//2011.03.08 추가 + Select Case e.KeyCode + Case Keys.D + If e.Alt Then + Dbbase.DelCrow(Me.bs, False) + End If + Case Keys.C + If e.Control Then + Me.SrcDrv = Me.bs.Current + If Me.SrcDrv Is Nothing Then + MsgBox("저장할 ROW가 없습니다", MsgBoxStyle.Information, "확인") + Return + End If + ' My.Computer.Clipboard.SetData("ZDATA", Drv) + End If + Case Keys.V + If e.Control Then + If SrcDrv Is Nothing Then Return + Me.bt_add.PerformClick() '//신규추가 + Dim NewDrv As DataRowView = Me.bs.Current + + For Each C As DataColumn In Me.Dt.Columns + If C.ColumnName.ToUpper = "CODE" Then + ElseIf C.ColumnName.ToUpper = "설명" Then + NewDrv(C.ColumnName) = SrcDrv(C.ColumnName) & "#1" + Else + NewDrv(C.ColumnName) = SrcDrv(C.ColumnName) + End If + Next + Me.bs.EndEdit() + bs.MoveLast() + End If + End Select + End If + 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 + Validate_Control() + End Sub + + Private Sub dv_CellContentClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles dv.CellContentClick + + End Sub + + Private Sub cmb_태양열시스템의성능_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmb_태양열시스템의성능.SelectedIndexChanged + Validate_Control() + End Sub + + Private Sub cmb_모듈종류_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmb_모듈종류.SelectedIndexChanged + Validate_Control() + End Sub +End Class \ No newline at end of file diff --git a/ArinWarev1/Forms/v20091231/Frm_YK.Designer.vb b/ArinWarev1/Forms/v20091231/Frm_YK.Designer.vb new file mode 100644 index 0000000..81b6cb2 --- /dev/null +++ b/ArinWarev1/Forms/v20091231/Frm_YK.Designer.vb @@ -0,0 +1,768 @@ + _ +Partial Class Frm_YK + Inherits CForm + + 'Form은 Dispose를 재정의하여 구성 요소 목록을 정리합니다. + _ + Protected Overrides Sub Dispose(ByVal disposing As Boolean) + Try + If disposing AndAlso components IsNot Nothing Then + components.Dispose() + End If + Finally + MyBase.Dispose(disposing) + End Try + End Sub + + 'Windows Form 디자이너에 필요합니다. + Private components As System.ComponentModel.IContainer + + '참고: 다음 프로시저는 Windows Form 디자이너에 필요합니다. + '수정하려면 Windows Form 디자이너를 사용하십시오. + '코드 편집기를 사용하여 수정하지 마십시오. + _ + Private Sub InitializeComponent() + Me.components = New System.ComponentModel.Container() + Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(Frm_YK)) + Dim DataGridViewCellStyle3 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle1 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle2 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + 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.lb_grpname = New System.Windows.Forms.Label() + 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() + Me.bt_Del = New System.Windows.Forms.ToolStripButton() + Me.bt_cancel = New System.Windows.Forms.ToolStripButton() + Me.ToolStripSeparator1 = New System.Windows.Forms.ToolStripSeparator() + Me.lbl_pos = New System.Windows.Forms.ToolStripLabel() + Me.Label15 = New System.Windows.Forms.Label() + Me.PictureBox4 = New System.Windows.Forms.PictureBox() + Me.GroupBox1 = New System.Windows.Forms.GroupBox() + Me.NTb_창호세부설명 = New System.Windows.Forms.TextBox() + Me.NTb_일사에너지투과율 = New System.Windows.Forms.TextBox() + Me.NTb_창호열관류율 = New System.Windows.Forms.TextBox() + Me.lbl_창호세부설명 = New System.Windows.Forms.Label() + Me.Panel2 = New System.Windows.Forms.Panel() + Me.UserControl11 = New Eco2Ar.YkCtl() + Me.lbl_일사에너지투과율 = New System.Windows.Forms.Label() + Me.cmb_열전도율 = New System.Windows.Forms.ComboBox() + Me.bs_detail = New System.Windows.Forms.BindingSource(Me.components) + Me.lbl_창호열관류율 = New System.Windows.Forms.Label() + Me.Label1 = New System.Windows.Forms.Label() + Me.btn_후경색 = New System.Windows.Forms.Button() + Me.btn_전경색 = New System.Windows.Forms.Button() + Me.열관류율NTb = New Eco2Ar.MyTb() + Me.TextBox7 = New System.Windows.Forms.TextBox() + Me.cmb_재료 = New System.Windows.Forms.ComboBox() + Me.Panel1 = New System.Windows.Forms.Panel() + Me.arindv1 = New System.Windows.Forms.DataGridView() + Me.code = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.재료명 = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.열전도율 = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.두께 = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.구분 = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.전경색 = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.후경색 = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.열저항 = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.커스텀 = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.전경 = New System.Windows.Forms.DataGridViewButtonColumn() + Me.Column1 = New System.Windows.Forms.DataGridViewButtonColumn() + Me.bn_detail = New System.Windows.Forms.BindingNavigator(Me.components) + Me.ToolStripLabel1 = New System.Windows.Forms.ToolStripLabel() + Me.ToolStripButton1 = New System.Windows.Forms.ToolStripButton() + Me.ToolStripButton2 = New System.Windows.Forms.ToolStripButton() + Me.ToolStripSeparator2 = New System.Windows.Forms.ToolStripSeparator() + Me.ToolStripLabel2 = New System.Windows.Forms.ToolStripLabel() + Me.ToolStripButton3 = New System.Windows.Forms.ToolStripButton() + Me.cmb_형태 = New Eco2Ar.MyCmb() + Me.bs_gubun = New System.Windows.Forms.BindingSource(Me.components) + Me.bS_재료 = New System.Windows.Forms.BindingSource(Me.components) + 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() + CType(Me.PictureBox4, System.ComponentModel.ISupportInitialize).BeginInit() + Me.GroupBox1.SuspendLayout() + Me.Panel2.SuspendLayout() + CType(Me.bs_detail, System.ComponentModel.ISupportInitialize).BeginInit() + Me.Panel1.SuspendLayout() + CType(Me.arindv1, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.bn_detail, System.ComponentModel.ISupportInitialize).BeginInit() + Me.bn_detail.SuspendLayout() + CType(Me.bs_gubun, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.bS_재료, System.ComponentModel.ISupportInitialize).BeginInit() + Me.SuspendLayout() + ' + '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.lb_grpname) + Me.SplitContainer1.Panel1.Controls.Add(Me.bn) + ' + 'SplitContainer1.Panel2 + ' + Me.SplitContainer1.Panel2.BackColor = System.Drawing.Color.White + Me.SplitContainer1.Panel2.Controls.Add(Me.Label15) + Me.SplitContainer1.Panel2.Controls.Add(Me.PictureBox4) + Me.SplitContainer1.Panel2.Controls.Add(Me.GroupBox1) + Me.SplitContainer1.Size = New System.Drawing.Size(759, 565) + Me.SplitContainer1.SplitterDistance = 138 + Me.SplitContainer1.TabIndex = 125 + ' + 'dv + ' + Me.dv.A_DelCurrentCell = True + Me.dv.A_EnterToTab = True + 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.FromArgb(CType(CType(245, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(246, Byte), Integer)) + 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, 26) + Me.dv.Margin = New System.Windows.Forms.Padding(3, 5, 3, 5) + 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(136, 497) + Me.dv.TabIndex = 0 + ' + 'DataGridViewTextBoxColumn1 + ' + Me.DataGridViewTextBoxColumn1.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.Fill + Me.DataGridViewTextBoxColumn1.DataPropertyName = "설명" + Me.DataGridViewTextBoxColumn1.HeaderText = "설명" + Me.DataGridViewTextBoxColumn1.Name = "DataGridViewTextBoxColumn1" + ' + 'bs + ' + Me.bs.DataMember = "tbl_yk" + Me.bs.DataSource = Me.DS + Me.bs.Filter = "code <> '0'" + ' + 'DS + ' + Me.DS.DataSetName = "DS" + Me.DS.SchemaSerializationMode = System.Data.SchemaSerializationMode.IncludeSchema + ' + 'lb_grpname + ' + Me.lb_grpname.BackColor = System.Drawing.Color.LightSkyBlue + Me.lb_grpname.Dock = System.Windows.Forms.DockStyle.Top + Me.lb_grpname.ForeColor = System.Drawing.SystemColors.HotTrack + Me.lb_grpname.Location = New System.Drawing.Point(0, 0) + Me.lb_grpname.Name = "lb_grpname" + Me.lb_grpname.Size = New System.Drawing.Size(136, 26) + Me.lb_grpname.TabIndex = 98 + Me.lb_grpname.Text = "그룹 :" + Me.lb_grpname.TextAlign = System.Drawing.ContentAlignment.MiddleCenter + ' + '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("Microsoft Sans Serif", 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.bn.Location = New System.Drawing.Point(0, 523) + 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(136, 40) + Me.bn.TabIndex = 1 + Me.bn.Text = "BindingNavigator1" + ' + 'lbl_count + ' + Me.lbl_count.Name = "lbl_count" + Me.lbl_count.Size = New System.Drawing.Size(29, 37) + 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, 37) + 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, 37) + 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, 37) + 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, 40) + ' + 'lbl_pos + ' + Me.lbl_pos.Name = "lbl_pos" + Me.lbl_pos.Size = New System.Drawing.Size(15, 37) + Me.lbl_pos.Text = "0" + ' + 'Label15 + ' + Me.Label15.AutoSize = True + Me.Label15.BackColor = System.Drawing.Color.FromArgb(CType(CType(116, Byte), Integer), CType(CType(158, Byte), Integer), CType(CType(209, Byte), Integer)) + Me.Label15.ForeColor = System.Drawing.Color.White + Me.Label15.Location = New System.Drawing.Point(35, 30) + Me.Label15.Name = "Label15" + Me.Label15.Size = New System.Drawing.Size(51, 14) + Me.Label15.TabIndex = 152 + Me.Label15.Text = "열관류율" + ' + 'PictureBox4 + ' + Me.PictureBox4.BackgroundImage = CType(resources.GetObject("PictureBox4.BackgroundImage"), System.Drawing.Image) + Me.PictureBox4.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch + Me.PictureBox4.Location = New System.Drawing.Point(15, 23) + Me.PictureBox4.Name = "PictureBox4" + Me.PictureBox4.Size = New System.Drawing.Size(131, 30) + Me.PictureBox4.TabIndex = 151 + Me.PictureBox4.TabStop = False + ' + 'GroupBox1 + ' + Me.GroupBox1.Controls.Add(Me.NTb_창호세부설명) + Me.GroupBox1.Controls.Add(Me.NTb_일사에너지투과율) + Me.GroupBox1.Controls.Add(Me.NTb_창호열관류율) + Me.GroupBox1.Controls.Add(Me.lbl_창호세부설명) + Me.GroupBox1.Controls.Add(Me.Panel2) + Me.GroupBox1.Controls.Add(Me.lbl_일사에너지투과율) + Me.GroupBox1.Controls.Add(Me.cmb_열전도율) + Me.GroupBox1.Controls.Add(Me.lbl_창호열관류율) + Me.GroupBox1.Controls.Add(Me.Label1) + Me.GroupBox1.Controls.Add(Me.btn_후경색) + Me.GroupBox1.Controls.Add(Me.btn_전경색) + Me.GroupBox1.Controls.Add(Me.열관류율NTb) + Me.GroupBox1.Controls.Add(Me.TextBox7) + Me.GroupBox1.Controls.Add(Me.cmb_재료) + Me.GroupBox1.Controls.Add(Me.Panel1) + Me.GroupBox1.Controls.Add(Me.cmb_형태) + Me.GroupBox1.Location = New System.Drawing.Point(3, 5) + Me.GroupBox1.Name = "GroupBox1" + Me.GroupBox1.Size = New System.Drawing.Size(606, 525) + Me.GroupBox1.TabIndex = 148 + Me.GroupBox1.TabStop = False + ' + 'NTb_창호세부설명 + ' + Me.NTb_창호세부설명.BackColor = System.Drawing.Color.White + Me.NTb_창호세부설명.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bs, "창호세부설명", True)) + Me.NTb_창호세부설명.Location = New System.Drawing.Point(84, 494) + Me.NTb_창호세부설명.Name = "NTb_창호세부설명" + Me.NTb_창호세부설명.Size = New System.Drawing.Size(297, 21) + Me.NTb_창호세부설명.TabIndex = 2 + ' + 'NTb_일사에너지투과율 + ' + Me.NTb_일사에너지투과율.BackColor = System.Drawing.Color.White + Me.NTb_일사에너지투과율.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bs, "일사에너지투과율", True)) + Me.NTb_일사에너지투과율.Location = New System.Drawing.Point(114, 466) + Me.NTb_일사에너지투과율.Name = "NTb_일사에너지투과율" + Me.NTb_일사에너지투과율.Size = New System.Drawing.Size(44, 21) + Me.NTb_일사에너지투과율.TabIndex = 1 + ' + 'NTb_창호열관류율 + ' + Me.NTb_창호열관류율.BackColor = System.Drawing.Color.White + Me.NTb_창호열관류율.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bs, "창호열관류율", True)) + Me.NTb_창호열관류율.Location = New System.Drawing.Point(84, 438) + Me.NTb_창호열관류율.Name = "NTb_창호열관류율" + Me.NTb_창호열관류율.Size = New System.Drawing.Size(74, 21) + Me.NTb_창호열관류율.TabIndex = 0 + ' + 'lbl_창호세부설명 + ' + Me.lbl_창호세부설명.AutoSize = True + Me.lbl_창호세부설명.ForeColor = System.Drawing.Color.Black + Me.lbl_창호세부설명.Location = New System.Drawing.Point(3, 497) + Me.lbl_창호세부설명.Name = "lbl_창호세부설명" + Me.lbl_창호세부설명.Size = New System.Drawing.Size(80, 14) + Me.lbl_창호세부설명.TabIndex = 153 + Me.lbl_창호세부설명.Text = "창호세부설명 :" + ' + 'Panel2 + ' + Me.Panel2.Controls.Add(Me.UserControl11) + Me.Panel2.Location = New System.Drawing.Point(6, 63) + Me.Panel2.Name = "Panel2" + Me.Panel2.Size = New System.Drawing.Size(152, 152) + Me.Panel2.TabIndex = 161 + ' + 'UserControl11 + ' + Me.UserControl11.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.UserControl11.Dock = System.Windows.Forms.DockStyle.Fill + Me.UserControl11.Location = New System.Drawing.Point(0, 0) + Me.UserControl11.MaxSize = 150.0! + Me.UserControl11.Name = "UserControl11" + Me.UserControl11.Size = New System.Drawing.Size(152, 152) + Me.UserControl11.TabIndex = 132 + Me.UserControl11.Vertical = False + ' + 'lbl_일사에너지투과율 + ' + Me.lbl_일사에너지투과율.AutoSize = True + Me.lbl_일사에너지투과율.ForeColor = System.Drawing.Color.Black + Me.lbl_일사에너지투과율.Location = New System.Drawing.Point(3, 469) + Me.lbl_일사에너지투과율.Name = "lbl_일사에너지투과율" + Me.lbl_일사에너지투과율.Size = New System.Drawing.Size(111, 14) + Me.lbl_일사에너지투과율.TabIndex = 153 + Me.lbl_일사에너지투과율.Text = "일사에너지투과율[-]:" + ' + 'cmb_열전도율 + ' + Me.cmb_열전도율.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bs_detail, "열전도율", True)) + Me.cmb_열전도율.FormattingEnabled = True + Me.cmb_열전도율.Location = New System.Drawing.Point(407, 33) + Me.cmb_열전도율.Name = "cmb_열전도율" + Me.cmb_열전도율.Size = New System.Drawing.Size(75, 22) + Me.cmb_열전도율.TabIndex = 160 + Me.cmb_열전도율.TabStop = False + ' + 'bs_detail + ' + Me.bs_detail.DataMember = "tbl_ykdetail" + Me.bs_detail.DataSource = Me.DS + Me.bs_detail.Filter = "code <> '0'" + ' + 'lbl_창호열관류율 + ' + Me.lbl_창호열관류율.AutoSize = True + Me.lbl_창호열관류율.ForeColor = System.Drawing.Color.Black + Me.lbl_창호열관류율.Location = New System.Drawing.Point(3, 441) + Me.lbl_창호열관류율.Name = "lbl_창호열관류율" + Me.lbl_창호열관류율.Size = New System.Drawing.Size(80, 14) + Me.lbl_창호열관류율.TabIndex = 153 + Me.lbl_창호열관류율.Text = "창호열관류율 :" + ' + 'Label1 + ' + Me.Label1.AutoSize = True + Me.Label1.Location = New System.Drawing.Point(410, 497) + Me.Label1.Name = "Label1" + Me.Label1.Size = New System.Drawing.Size(95, 14) + Me.Label1.TabIndex = 153 + Me.Label1.Text = "열관류율(W/㎡K)" + ' + 'btn_후경색 + ' + Me.btn_후경색.Location = New System.Drawing.Point(565, 33) + Me.btn_후경색.Name = "btn_후경색" + Me.btn_후경색.Size = New System.Drawing.Size(31, 21) + Me.btn_후경색.TabIndex = 159 + Me.btn_후경색.TabStop = False + Me.btn_후경색.UseVisualStyleBackColor = True + Me.btn_후경색.Visible = False + ' + 'btn_전경색 + ' + Me.btn_전경색.Location = New System.Drawing.Point(528, 33) + Me.btn_전경색.Name = "btn_전경색" + Me.btn_전경색.Size = New System.Drawing.Size(31, 21) + Me.btn_전경색.TabIndex = 159 + Me.btn_전경색.TabStop = False + Me.btn_전경색.UseVisualStyleBackColor = True + Me.btn_전경색.Visible = False + ' + '열관류율NTb + ' + Me.열관류율NTb.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer)) + Me.열관류율NTb.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bs, "열관류율", True)) + Me.열관류율NTb.Location = New System.Drawing.Point(513, 494) + Me.열관류율NTb.Name = "열관류율NTb" + Me.열관류율NTb.NectControl = Nothing + Me.열관류율NTb.Size = New System.Drawing.Size(83, 21) + Me.열관류율NTb.TabIndex = 3 + Me.열관류율NTb.TabStop = False + Me.열관류율NTb.TextAlign = System.Windows.Forms.HorizontalAlignment.Right + Me.열관류율NTb.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + ' + 'TextBox7 + ' + Me.TextBox7.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bs_detail, "code", True)) + Me.TextBox7.Enabled = False + Me.TextBox7.Location = New System.Drawing.Point(168, 33) + Me.TextBox7.Name = "TextBox7" + Me.TextBox7.Size = New System.Drawing.Size(36, 21) + Me.TextBox7.TabIndex = 157 + Me.TextBox7.TabStop = False + ' + 'cmb_재료 + ' + Me.cmb_재료.FormattingEnabled = True + Me.cmb_재료.Location = New System.Drawing.Point(210, 33) + Me.cmb_재료.Name = "cmb_재료" + Me.cmb_재료.Size = New System.Drawing.Size(191, 22) + Me.cmb_재료.TabIndex = 156 + Me.cmb_재료.TabStop = False + ' + 'Panel1 + ' + Me.Panel1.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.Panel1.Controls.Add(Me.arindv1) + Me.Panel1.Controls.Add(Me.bn_detail) + Me.Panel1.Location = New System.Drawing.Point(168, 61) + Me.Panel1.Name = "Panel1" + Me.Panel1.Size = New System.Drawing.Size(429, 417) + Me.Panel1.TabIndex = 154 + ' + 'arindv1 + ' + Me.arindv1.AllowUserToAddRows = False + Me.arindv1.AutoGenerateColumns = False + Me.arindv1.ColumnHeadersHeight = 40 + Me.arindv1.Columns.AddRange(New System.Windows.Forms.DataGridViewColumn() {Me.code, Me.재료명, Me.열전도율, Me.두께, Me.구분, Me.전경색, Me.후경색, Me.열저항, Me.커스텀, Me.전경, Me.Column1}) + Me.arindv1.DataSource = Me.bs_detail + DataGridViewCellStyle3.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleRight + DataGridViewCellStyle3.BackColor = System.Drawing.SystemColors.Window + DataGridViewCellStyle3.Font = New System.Drawing.Font("나눔고딕 ExtraBold", 8.999999!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + DataGridViewCellStyle3.ForeColor = System.Drawing.SystemColors.ControlText + DataGridViewCellStyle3.SelectionBackColor = System.Drawing.SystemColors.Highlight + DataGridViewCellStyle3.SelectionForeColor = System.Drawing.SystemColors.HighlightText + DataGridViewCellStyle3.WrapMode = System.Windows.Forms.DataGridViewTriState.[False] + Me.arindv1.DefaultCellStyle = DataGridViewCellStyle3 + Me.arindv1.Dock = System.Windows.Forms.DockStyle.Fill + Me.arindv1.Location = New System.Drawing.Point(0, 0) + Me.arindv1.Name = "arindv1" + Me.arindv1.RowHeadersVisible = False + Me.arindv1.RowHeadersWidth = 20 + Me.arindv1.RowTemplate.Height = 23 + Me.arindv1.Size = New System.Drawing.Size(427, 375) + Me.arindv1.TabIndex = 157 + ' + 'code + ' + Me.code.DataPropertyName = "code" + Me.code.HeaderText = "번호" + Me.code.Name = "code" + Me.code.ReadOnly = True + Me.code.Resizable = System.Windows.Forms.DataGridViewTriState.[False] + Me.code.Width = 39 + ' + '재료명 + ' + Me.재료명.DataPropertyName = "설명" + DataGridViewCellStyle1.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft + Me.재료명.DefaultCellStyle = DataGridViewCellStyle1 + Me.재료명.HeaderText = "재료명" + Me.재료명.Name = "재료명" + Me.재료명.ReadOnly = True + Me.재료명.Resizable = System.Windows.Forms.DataGridViewTriState.[False] + Me.재료명.Width = 200 + ' + '열전도율 + ' + Me.열전도율.DataPropertyName = "열전도율" + Me.열전도율.HeaderText = "열전도율 (W/mK)" + Me.열전도율.Name = "열전도율" + Me.열전도율.ReadOnly = True + Me.열전도율.Resizable = System.Windows.Forms.DataGridViewTriState.[False] + Me.열전도율.Width = 70 + ' + '두께 + ' + Me.두께.DataPropertyName = "두께" + Me.두께.HeaderText = "두께 (mm)" + Me.두께.Name = "두께" + Me.두께.Resizable = System.Windows.Forms.DataGridViewTriState.[False] + Me.두께.Width = 45 + ' + '구분 + ' + Me.구분.DataPropertyName = "구분" + Me.구분.HeaderText = "구분" + Me.구분.Name = "구분" + Me.구분.Resizable = System.Windows.Forms.DataGridViewTriState.[False] + Me.구분.Visible = False + Me.구분.Width = 35 + ' + '전경색 + ' + Me.전경색.DataPropertyName = "전경색" + Me.전경색.HeaderText = "전경색" + Me.전경색.Name = "전경색" + Me.전경색.Visible = False + Me.전경색.Width = 65 + ' + '후경색 + ' + Me.후경색.DataPropertyName = "후경색" + Me.후경색.HeaderText = "후경색" + Me.후경색.Name = "후경색" + Me.후경색.Visible = False + Me.후경색.Width = 65 + ' + '열저항 + ' + Me.열저항.DataPropertyName = "열저항" + Me.열저항.HeaderText = " 열저항 (㎡K/W)" + Me.열저항.Name = "열저항" + Me.열저항.ReadOnly = True + Me.열저항.Resizable = System.Windows.Forms.DataGridViewTriState.[False] + Me.열저항.Width = 70 + ' + '커스텀 + ' + Me.커스텀.DataPropertyName = "커스텀" + Me.커스텀.HeaderText = "커스텀" + Me.커스텀.Name = "커스텀" + Me.커스텀.Visible = False + ' + '전경 + ' + DataGridViewCellStyle2.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleCenter + DataGridViewCellStyle2.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer)) + DataGridViewCellStyle2.ForeColor = System.Drawing.Color.Purple + Me.전경.DefaultCellStyle = DataGridViewCellStyle2 + Me.전경.HeaderText = "전경" + Me.전경.Name = "전경" + Me.전경.Resizable = System.Windows.Forms.DataGridViewTriState.[False] + Me.전경.Text = "TEst2" + Me.전경.Visible = False + Me.전경.Width = 35 + ' + 'Column1 + ' + Me.Column1.HeaderText = "배경" + Me.Column1.Name = "Column1" + Me.Column1.Resizable = System.Windows.Forms.DataGridViewTriState.[False] + Me.Column1.Visible = False + Me.Column1.Width = 35 + ' + 'bn_detail + ' + Me.bn_detail.AddNewItem = Nothing + Me.bn_detail.AutoSize = False + Me.bn_detail.BindingSource = Me.bs_detail + Me.bn_detail.CountItem = Me.ToolStripLabel1 + Me.bn_detail.DeleteItem = Nothing + Me.bn_detail.Dock = System.Windows.Forms.DockStyle.Bottom + Me.bn_detail.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.999999!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.bn_detail.GripStyle = System.Windows.Forms.ToolStripGripStyle.Hidden + Me.bn_detail.ImageScalingSize = New System.Drawing.Size(20, 20) + Me.bn_detail.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToolStripButton1, Me.ToolStripButton2, Me.ToolStripSeparator2, Me.ToolStripLabel2, Me.ToolStripLabel1, Me.ToolStripButton3}) + Me.bn_detail.Location = New System.Drawing.Point(0, 375) + Me.bn_detail.MoveFirstItem = Nothing + Me.bn_detail.MoveLastItem = Nothing + Me.bn_detail.MoveNextItem = Nothing + Me.bn_detail.MovePreviousItem = Nothing + Me.bn_detail.Name = "bn_detail" + Me.bn_detail.PositionItem = Me.ToolStripLabel2 + Me.bn_detail.Size = New System.Drawing.Size(427, 40) + Me.bn_detail.TabIndex = 2 + Me.bn_detail.Text = "BindingNavigator1" + ' + 'ToolStripLabel1 + ' + Me.ToolStripLabel1.Name = "ToolStripLabel1" + Me.ToolStripLabel1.Size = New System.Drawing.Size(29, 37) + Me.ToolStripLabel1.Text = "/{0}" + ' + 'ToolStripButton1 + ' + Me.ToolStripButton1.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.ToolStripButton1.Image = Global.Eco2Ar.My.Resources.Resources.new_32 + Me.ToolStripButton1.Name = "ToolStripButton1" + Me.ToolStripButton1.RightToLeftAutoMirrorImage = True + Me.ToolStripButton1.Size = New System.Drawing.Size(24, 37) + Me.ToolStripButton1.Text = "신규추가(&A)" + Me.ToolStripButton1.ToolTipText = "새로운 프로필을 추가합니다" + ' + 'ToolStripButton2 + ' + Me.ToolStripButton2.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.ToolStripButton2.Image = Global.Eco2Ar.My.Resources.Resources.remov_32 + Me.ToolStripButton2.Name = "ToolStripButton2" + Me.ToolStripButton2.RightToLeftAutoMirrorImage = True + Me.ToolStripButton2.Size = New System.Drawing.Size(24, 37) + Me.ToolStripButton2.Text = "선택삭제(&D)" + Me.ToolStripButton2.ToolTipText = "선택된 프로필을 삭제합니다" + ' + 'ToolStripSeparator2 + ' + Me.ToolStripSeparator2.Name = "ToolStripSeparator2" + Me.ToolStripSeparator2.Size = New System.Drawing.Size(6, 40) + ' + 'ToolStripLabel2 + ' + Me.ToolStripLabel2.Name = "ToolStripLabel2" + Me.ToolStripLabel2.Size = New System.Drawing.Size(15, 37) + Me.ToolStripLabel2.Text = "0" + ' + 'ToolStripButton3 + ' + Me.ToolStripButton3.Alignment = System.Windows.Forms.ToolStripItemAlignment.Right + Me.ToolStripButton3.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Text + Me.ToolStripButton3.Image = CType(resources.GetObject("ToolStripButton3.Image"), System.Drawing.Image) + Me.ToolStripButton3.ImageTransparentColor = System.Drawing.Color.Magenta + Me.ToolStripButton3.Name = "ToolStripButton3" + Me.ToolStripButton3.Size = New System.Drawing.Size(83, 37) + Me.ToolStripButton3.Text = "구분그림보기" + Me.ToolStripButton3.Visible = False + ' + 'cmb_형태 + ' + Me.cmb_형태.DropDownStyle = System.Windows.Forms.ComboBoxStyle.Simple + Me.cmb_형태.FormattingEnabled = True + Me.cmb_형태.Location = New System.Drawing.Point(6, 225) + Me.cmb_형태.Name = "cmb_형태" + Me.cmb_형태.NectControl = Nothing + Me.cmb_형태.Size = New System.Drawing.Size(152, 204) + Me.cmb_형태.TabIndex = 131 + ' + 'bs_gubun + ' + Me.bs_gubun.DataMember = "tbl_common" + Me.bs_gubun.DataSource = Me.DS + ' + 'bS_재료 + ' + Me.bS_재료.DataMember = "tbl_common" + Me.bS_재료.DataSource = Me.DS + ' + 'Frm_YK + ' + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.None + Me.ClientSize = New System.Drawing.Size(759, 565) + Me.ControlBox = False + Me.Controls.Add(Me.SplitContainer1) + Me.Font = New System.Drawing.Font("나눔고딕 ExtraBold", 8.999999!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.KeyPreview = True + Me.Name = "Frm_YK" + Me.ShowInTaskbar = False + Me.StartPosition = System.Windows.Forms.FormStartPosition.Manual + Me.Text = "열관류율" + Me.SplitContainer1.Panel1.ResumeLayout(False) + Me.SplitContainer1.Panel2.ResumeLayout(False) + Me.SplitContainer1.Panel2.PerformLayout() + 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() + CType(Me.PictureBox4, System.ComponentModel.ISupportInitialize).EndInit() + Me.GroupBox1.ResumeLayout(False) + Me.GroupBox1.PerformLayout() + Me.Panel2.ResumeLayout(False) + CType(Me.bs_detail, System.ComponentModel.ISupportInitialize).EndInit() + Me.Panel1.ResumeLayout(False) + CType(Me.arindv1, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.bn_detail, System.ComponentModel.ISupportInitialize).EndInit() + Me.bn_detail.ResumeLayout(False) + Me.bn_detail.PerformLayout() + CType(Me.bs_gubun, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.bS_재료, System.ComponentModel.ISupportInitialize).EndInit() + Me.ResumeLayout(False) + + End Sub + Public WithEvents DS As Eco2Ar.DS + Friend WithEvents bs As System.Windows.Forms.BindingSource + Friend WithEvents SplitContainer1 As System.Windows.Forms.SplitContainer + Friend WithEvents bn As System.Windows.Forms.BindingNavigator + Friend WithEvents bt_add As System.Windows.Forms.ToolStripButton + Friend WithEvents bt_Del As System.Windows.Forms.ToolStripButton + Friend WithEvents bt_cancel As System.Windows.Forms.ToolStripButton + Friend WithEvents ToolStripSeparator1 As System.Windows.Forms.ToolStripSeparator + Friend WithEvents dv As CEnergy.arindv + Friend WithEvents DataGridViewTextBoxColumn1 As System.Windows.Forms.DataGridViewTextBoxColumn + Friend WithEvents lbl_count As System.Windows.Forms.ToolStripLabel + Friend WithEvents lbl_pos As System.Windows.Forms.ToolStripLabel + Friend WithEvents Label15 As System.Windows.Forms.Label + Friend WithEvents PictureBox4 As System.Windows.Forms.PictureBox + Friend WithEvents bS_재료 As System.Windows.Forms.BindingSource + Friend WithEvents bs_detail As System.Windows.Forms.BindingSource + Friend WithEvents bs_gubun As System.Windows.Forms.BindingSource + Friend WithEvents GroupBox1 As System.Windows.Forms.GroupBox + Friend WithEvents Label1 As System.Windows.Forms.Label + Friend WithEvents btn_후경색 As System.Windows.Forms.Button + Friend WithEvents btn_전경색 As System.Windows.Forms.Button + Friend WithEvents 열관류율NTb As Eco2Ar.MyTb + Friend WithEvents TextBox7 As System.Windows.Forms.TextBox + Friend WithEvents cmb_재료 As System.Windows.Forms.ComboBox + Friend WithEvents Panel1 As System.Windows.Forms.Panel + Friend WithEvents arindv1 As System.Windows.Forms.DataGridView + Friend WithEvents bn_detail As System.Windows.Forms.BindingNavigator + Friend WithEvents ToolStripLabel1 As System.Windows.Forms.ToolStripLabel + Friend WithEvents ToolStripButton1 As System.Windows.Forms.ToolStripButton + Friend WithEvents ToolStripButton2 As System.Windows.Forms.ToolStripButton + Friend WithEvents ToolStripSeparator2 As System.Windows.Forms.ToolStripSeparator + Friend WithEvents ToolStripLabel2 As System.Windows.Forms.ToolStripLabel + Friend WithEvents ToolStripButton3 As System.Windows.Forms.ToolStripButton + Friend WithEvents UserControl11 As YkCtl + Friend WithEvents cmb_형태 As Eco2Ar.MyCmb + Friend WithEvents cmb_열전도율 As System.Windows.Forms.ComboBox + Friend WithEvents Panel2 As System.Windows.Forms.Panel + Friend WithEvents NTb_창호열관류율 As System.Windows.Forms.TextBox + Friend WithEvents lbl_창호열관류율 As System.Windows.Forms.Label + Friend WithEvents NTb_창호세부설명 As System.Windows.Forms.TextBox + Friend WithEvents NTb_일사에너지투과율 As System.Windows.Forms.TextBox + Friend WithEvents lbl_창호세부설명 As System.Windows.Forms.Label + Friend WithEvents lbl_일사에너지투과율 As System.Windows.Forms.Label + Friend WithEvents code 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 구분 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 커스텀 As System.Windows.Forms.DataGridViewTextBoxColumn + Friend WithEvents 전경 As System.Windows.Forms.DataGridViewButtonColumn + Friend WithEvents Column1 As System.Windows.Forms.DataGridViewButtonColumn + Friend WithEvents lb_grpname As System.Windows.Forms.Label +End Class diff --git a/ArinWarev1/Forms/v20091231/Frm_YK.resx b/ArinWarev1/Forms/v20091231/Frm_YK.resx new file mode 100644 index 0000000..0f9e3ff --- /dev/null +++ b/ArinWarev1/Forms/v20091231/Frm_YK.resx @@ -0,0 +1,269 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + 17, 17 + + + 81, 17 + + + 148, 17 + + + + + /9j/4AAQSkZJRgABAgEASABIAAD/7gAOQWRvYmUAZAAAAAAB/+ED5kV4aWYAAE1NACoAAAAIAAcBEgAD + AAAAAQABAAABGgAFAAAAAQAAAGIBGwAFAAAAAQAAAGoBKAADAAAAAQACAAABMQACAAAAHAAAAHIBMgAC + AAAAFAAAAI6HaQAEAAAAAQAAAKIAAADCAEgAAAABAAAASAAAAAEAAEFkb2JlIFBob3Rvc2hvcCBDUzMg + V2luZG93cwAyMDEwOjA0OjE1IDIwOjMyOjA0AAACoAIABAAAAAEAAAA8oAMABAAAAAEAAAAMAAAAAAAA + AAYBAwADAAAAAQAGAAABGgAFAAAAAQAAARABGwAFAAAAAQAAARgBKAADAAAAAQACAAACAQAEAAAAAQAA + ASACAgAEAAAAAQAAAr4AAAAAAAAASAAAAAEAAABIAAAAAf/Y/+AAEEpGSUYAAQIAAEgASAAA/+0ADEFk + b2JlX0NNAAH/7gAOQWRvYmUAZIAAAAAB/9sAhAAMCAgICQgMCQkMEQsKCxEVDwwMDxUYExMVExMYEQwM + DAwMDBEMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMAQ0LCw0ODRAODhAUDg4OFBQODg4OFBEMDAwM + DBERDAwMDAwMEQwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAz/wAARCAAMADwDASIAAhEBAxEB/90A + BAAE/8QBPwAAAQUBAQEBAQEAAAAAAAAAAwABAgQFBgcICQoLAQABBQEBAQEBAQAAAAAAAAABAAIDBAUG + BwgJCgsQAAEEAQMCBAIFBwYIBQMMMwEAAhEDBCESMQVBUWETInGBMgYUkaGxQiMkFVLBYjM0coLRQwcl + klPw4fFjczUWorKDJkSTVGRFwqN0NhfSVeJl8rOEw9N14/NGJ5SkhbSVxNTk9KW1xdXl9VZmdoaWprbG + 1ub2N0dXZ3eHl6e3x9fn9xEAAgIBAgQEAwQFBgcHBgU1AQACEQMhMRIEQVFhcSITBTKBkRShsUIjwVLR + 8DMkYuFygpJDUxVjczTxJQYWorKDByY1wtJEk1SjF2RFVTZ0ZeLys4TD03Xj80aUpIW0lcTU5PSltcXV + 5fVWZnaGlqa2xtbm9ic3R1dnd4eXp7fH/9oADAMBAAIRAxEAPwDd/amR/pH/AOcf70v2pkf6R/8AnH+9 + UUlofq/Bpevxb37UyP8ASP8A84/3pftTI/0j/wDOP96opJfq/BXr8W9+1Mj/AEj/APOP96X7UyP9I/8A + zj/eqKSX6vwV6/F3ujdbuGS2i5xfU8HVxktIG76XyW99vo27p0XGdO2/ba930dZj+q5dX+qfZPL8VAeD + 341VVr/eZhx+0bu708n/2f/iDFhJQ0NfUFJPRklMRQABAQAADEhMaW5vAhAAAG1udHJSR0IgWFlaIAfO + AAIACQAGADEAAGFjc3BNU0ZUAAAAAElFQyBzUkdCAAAAAAAAAAAAAAAAAAD21gABAAAAANMtSFAgIAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAEWNwcnQAAAFQAAAAM2Rl + c2MAAAGEAAAAbHd0cHQAAAHwAAAAFGJrcHQAAAIEAAAAFHJYWVoAAAIYAAAAFGdYWVoAAAIsAAAAFGJY + WVoAAAJAAAAAFGRtbmQAAAJUAAAAcGRtZGQAAALEAAAAiHZ1ZWQAAANMAAAAhnZpZXcAAAPUAAAAJGx1 + bWkAAAP4AAAAFG1lYXMAAAQMAAAAJHRlY2gAAAQwAAAADHJUUkMAAAQ8AAAIDGdUUkMAAAQ8AAAIDGJU + UkMAAAQ8AAAIDHRleHQAAAAAQ29weXJpZ2h0IChjKSAxOTk4IEhld2xldHQtUGFja2FyZCBDb21wYW55 + AABkZXNjAAAAAAAAABJzUkdCIElFQzYxOTY2LTIuMQAAAAAAAAAAAAAAEnNSR0IgSUVDNjE5NjYtMi4x + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABYWVogAAAAAAAA + 81EAAQAAAAEWzFhZWiAAAAAAAAAAAAAAAAAAAAAAWFlaIAAAAAAAAG+iAAA49QAAA5BYWVogAAAAAAAA + YpkAALeFAAAY2lhZWiAAAAAAAAAkoAAAD4QAALbPZGVzYwAAAAAAAAAWSUVDIGh0dHA6Ly93d3cuaWVj + LmNoAAAAAAAAAAAAAAAWSUVDIGh0dHA6Ly93d3cuaWVjLmNoAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAGRlc2MAAAAAAAAALklFQyA2MTk2Ni0yLjEgRGVmYXVsdCBSR0Ig + Y29sb3VyIHNwYWNlIC0gc1JHQgAAAAAAAAAAAAAALklFQyA2MTk2Ni0yLjEgRGVmYXVsdCBSR0IgY29s + b3VyIHNwYWNlIC0gc1JHQgAAAAAAAAAAAAAAAAAAAAAAAAAAAABkZXNjAAAAAAAAACxSZWZlcmVuY2Ug + Vmlld2luZyBDb25kaXRpb24gaW4gSUVDNjE5NjYtMi4xAAAAAAAAAAAAAAAsUmVmZXJlbmNlIFZpZXdp + bmcgQ29uZGl0aW9uIGluIElFQzYxOTY2LTIuMQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAdmlldwAA + AAAAE6T+ABRfLgAQzxQAA+3MAAQTCwADXJ4AAAABWFlaIAAAAAAATAlWAFAAAABXH+dtZWFzAAAAAAAA + AAEAAAAAAAAAAAAAAAAAAAAAAAACjwAAAAJzaWcgAAAAAENSVCBjdXJ2AAAAAAAABAAAAAAFAAoADwAU + ABkAHgAjACgALQAyADcAOwBAAEUASgBPAFQAWQBeAGMAaABtAHIAdwB8AIEAhgCLAJAAlQCaAJ8ApACp + AK4AsgC3ALwAwQDGAMsA0ADVANsA4ADlAOsA8AD2APsBAQEHAQ0BEwEZAR8BJQErATIBOAE+AUUBTAFS + AVkBYAFnAW4BdQF8AYMBiwGSAZoBoQGpAbEBuQHBAckB0QHZAeEB6QHyAfoCAwIMAhQCHQImAi8COAJB + AksCVAJdAmcCcQJ6AoQCjgKYAqICrAK2AsECywLVAuAC6wL1AwADCwMWAyEDLQM4A0MDTwNaA2YDcgN+ + A4oDlgOiA64DugPHA9MD4APsA/kEBgQTBCAELQQ7BEgEVQRjBHEEfgSMBJoEqAS2BMQE0wThBPAE/gUN + BRwFKwU6BUkFWAVnBXcFhgWWBaYFtQXFBdUF5QX2BgYGFgYnBjcGSAZZBmoGewaMBp0GrwbABtEG4wb1 + BwcHGQcrBz0HTwdhB3QHhgeZB6wHvwfSB+UH+AgLCB8IMghGCFoIbgiCCJYIqgi+CNII5wj7CRAJJQk6 + CU8JZAl5CY8JpAm6Cc8J5Qn7ChEKJwo9ClQKagqBCpgKrgrFCtwK8wsLCyILOQtRC2kLgAuYC7ALyAvh + C/kMEgwqDEMMXAx1DI4MpwzADNkM8w0NDSYNQA1aDXQNjg2pDcMN3g34DhMOLg5JDmQOfw6bDrYO0g7u + DwkPJQ9BD14Peg+WD7MPzw/sEAkQJhBDEGEQfhCbELkQ1xD1ERMRMRFPEW0RjBGqEckR6BIHEiYSRRJk + EoQSoxLDEuMTAxMjE0MTYxODE6QTxRPlFAYUJxRJFGoUixStFM4U8BUSFTQVVhV4FZsVvRXgFgMWJhZJ + FmwWjxayFtYW+hcdF0EXZReJF64X0hf3GBsYQBhlGIoYrxjVGPoZIBlFGWsZkRm3Gd0aBBoqGlEadxqe + GsUa7BsUGzsbYxuKG7Ib2hwCHCocUhx7HKMczBz1HR4dRx1wHZkdwx3sHhYeQB5qHpQevh7pHxMfPh9p + H5Qfvx/qIBUgQSBsIJggxCDwIRwhSCF1IaEhziH7IiciVSKCIq8i3SMKIzgjZiOUI8Ij8CQfJE0kfCSr + JNolCSU4JWgllyXHJfcmJyZXJocmtyboJxgnSSd6J6sn3CgNKD8ocSiiKNQpBik4KWspnSnQKgIqNSpo + KpsqzysCKzYraSudK9EsBSw5LG4soizXLQwtQS12Last4S4WLkwugi63Lu4vJC9aL5Evxy/+MDUwbDCk + MNsxEjFKMYIxujHyMioyYzKbMtQzDTNGM38zuDPxNCs0ZTSeNNg1EzVNNYc1wjX9Njc2cjauNuk3JDdg + N5w31zgUOFA4jDjIOQU5Qjl/Obw5+To2OnQ6sjrvOy07azuqO+g8JzxlPKQ84z0iPWE9oT3gPiA+YD6g + PuA/IT9hP6I/4kAjQGRApkDnQSlBakGsQe5CMEJyQrVC90M6Q31DwEQDREdEikTORRJFVUWaRd5GIkZn + RqtG8Ec1R3tHwEgFSEtIkUjXSR1JY0mpSfBKN0p9SsRLDEtTS5pL4kwqTHJMuk0CTUpNk03cTiVObk63 + TwBPSU+TT91QJ1BxULtRBlFQUZtR5lIxUnxSx1MTU19TqlP2VEJUj1TbVShVdVXCVg9WXFapVvdXRFeS + V+BYL1h9WMtZGllpWbhaB1pWWqZa9VtFW5Vb5Vw1XIZc1l0nXXhdyV4aXmxevV8PX2Ffs2AFYFdgqmD8 + YU9homH1YklinGLwY0Njl2PrZEBklGTpZT1lkmXnZj1mkmboZz1nk2fpaD9olmjsaUNpmmnxakhqn2r3 + a09rp2v/bFdsr20IbWBtuW4SbmtuxG8eb3hv0XArcIZw4HE6cZVx8HJLcqZzAXNdc7h0FHRwdMx1KHWF + deF2Pnabdvh3VnezeBF4bnjMeSp5iXnnekZ6pXsEe2N7wnwhfIF84X1BfaF+AX5ifsJ/I3+Ef+WAR4Co + gQqBa4HNgjCCkoL0g1eDuoQdhICE44VHhauGDoZyhteHO4efiASIaYjOiTOJmYn+imSKyoswi5aL/Ixj + jMqNMY2Yjf+OZo7OjzaPnpAGkG6Q1pE/kaiSEZJ6kuOTTZO2lCCUipT0lV+VyZY0lp+XCpd1l+CYTJi4 + mSSZkJn8mmia1ZtCm6+cHJyJnPedZJ3SnkCerp8dn4uf+qBpoNihR6G2oiailqMGo3aj5qRWpMelOKWp + phqmi6b9p26n4KhSqMSpN6mpqhyqj6sCq3Wr6axcrNCtRK24ri2uoa8Wr4uwALB1sOqxYLHWskuywrM4 + s660JbSctRO1irYBtnm28Ldot+C4WbjRuUq5wro7urW7LrunvCG8m70VvY++Cr6Evv+/er/1wHDA7MFn + wePCX8Lbw1jD1MRRxM7FS8XIxkbGw8dBx7/IPci8yTrJuco4yrfLNsu2zDXMtc01zbXONs62zzfPuNA5 + 0LrRPNG+0j/SwdNE08bUSdTL1U7V0dZV1tjXXNfg2GTY6Nls2fHadtr724DcBdyK3RDdlt4c3qLfKd+v + 4DbgveFE4cziU+Lb42Pj6+Rz5PzlhOYN5pbnH+ep6DLovOlG6dDqW+rl63Dr++yG7RHtnO4o7rTvQO/M + 8Fjw5fFy8f/yjPMZ86f0NPTC9VD13vZt9vv3ivgZ+Kj5OPnH+lf65/t3/Af8mP0p/br+S/7c/23////b + AEMAAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQICAgICAgICAgICAwMD + AwMDAwMDA//bAEMBAQEBAQEBAQEBAQICAQICAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMD + AwMDAwMDAwMDAwMDAwMDA//AABEIAAwAPAMBEQACEQEDEQH/xAAfAAABBQEBAQEBAQAAAAAAAAAAAQID + BAUGBwgJCgv/xAC1EAACAQMDAgQDBQUEBAAAAX0BAgMABBEFEiExQQYTUWEHInEUMoGRoQgjQrHBFVLR + 8CQzYnKCCQoWFxgZGiUmJygpKjQ1Njc4OTpDREVGR0hJSlNUVVZXWFlaY2RlZmdoaWpzdHV2d3h5eoOE + hYaHiImKkpOUlZaXmJmaoqOkpaanqKmqsrO0tba3uLm6wsPExcbHyMnK0tPU1dbX2Nna4eLj5OXm5+jp + 6vHy8/T19vf4+fr/xAAfAQADAQEBAQEBAQEBAAAAAAAAAQIDBAUGBwgJCgv/xAC1EQACAQIEBAMEBwUE + BAABAncAAQIDEQQFITEGEkFRB2FxEyIygQgUQpGhscEJIzNS8BVictEKFiQ04SXxFxgZGiYnKCkqNTY3 + ODk6Q0RFRkdISUpTVFVWV1hZWmNkZWZnaGlqc3R1dnd4eXqCg4SFhoeIiYqSk5SVlpeYmZqio6Slpqeo + qaqys7S1tre4ubrCw8TFxsfIycrS09TV1tfY2dri4+Tl5ufo6ery8/T19vf4+fr/2gAMAwEAAhEDEQA/ + AP1ZH7UPxEAA/wCEw8bnj/ob9f8A/k+v7U/1Nyj/AKF+G/8ABUP/AJE/llcSZlZf7dX/APBk/wDMX/hq + H4if9Df43/8ACv1//wCT6P8AU3Kf+hfhv/BUP/kQ/wBZcy/6Dq//AIMn/mH/AA1D8RP+hv8AG/8A4V+v + /wDyfR/qblP/AEL8N/4Kh/8AIh/rLmX/AEHV/wDwZP8AzD/hqH4if9Df43/8K/X/AP5Po/1Nyn/oX4b/ + AMFQ/wDkQ/1lzL/oOr/+DJ/5h/w1D8RP+hv8b/8AhX6//wDJ9H+puU/9C/Df+Cof/Ih/rLmX/QdX/wDB + k/8AMT/hqH4if9Df43/8K/X/AP5Po/1Nyn/oX4b/AMFQ/wDkQ/1kzL/oOr/+DJ/5n2R+xz+234zt/iRp + nw+8a6vqXiDwZ4gs9baObXr+bUr/AMPajpmkX2tQ3FlqV2Zb57K7XT2t3tXkaJWkV4whVxJ+beJfAuU4 + Th/FZ/hKEKOMw8qd+SKjGcZzjTs4q0bpyUlJK7s073VvuuBOLMxxGcYfJ8TWlVw1ZTtzu7hKMJTupPWz + UWnFu2qatrf9aP8AhfXgv+zv7U89/sfm+V5207N+M43fSv50P2w/kwr/AEFP42CgAoAKACgAoA9s/Z0/ + s7/hcng3+1vP/s7Ov/avs2PP2f8ACL63t2buP9ZjP+zmvz7xU/5IPPf+4H/qRRPsvD//AJK7KP8AuL/6 + ZqH7/wD/ABaT/hUfb7Ht/wBj7V9p8v8A9Cr+Oz+lz//Z + + + + 214, 17 + + + True + + + True + + + True + + + True + + + True + + + 410, 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== + + + + 512, 17 + + + 314, 17 + + + 46 + + \ No newline at end of file diff --git a/ArinWarev1/Forms/v20091231/Frm_YK.vb b/ArinWarev1/Forms/v20091231/Frm_YK.vb new file mode 100644 index 0000000..b2d22d6 --- /dev/null +++ b/ArinWarev1/Forms/v20091231/Frm_YK.vb @@ -0,0 +1,991 @@ +Public Class Frm_YK + + Dim init As Boolean = False + Dim pcode As String + Dim UserCommin As Boolean = False + Dim SrcDrv As DataRowView + Dim keyUp1 As Boolean = False '//열전도율 사용자가 수정하려할시를 나타냄(110618) + +#Region "data Base 변경여부및 적용방법" + + '''변경된내용을적용한다. + Public Overrides Function AcceptChanged() As Boolean + bs.EndEdit() + Dim BaseDS As DataSet = CType(bs.DataSource, DataSet) + Dim BaseDT As DataTable = BaseDS.Tables(bs.DataMember) + BaseDT.AcceptChanges() + Return True + End Function + + '''변경된내용이있다면 취소한다. + Public Overrides Function RejectChanged() As Boolean + Dim BaseDS As DataSet = CType(bs.DataSource, DataSet) + Dim BaseDT As DataTable = BaseDS.Tables(bs.DataMember) + BaseDT.RejectChanges() + Return True + End Function + + '''데이터에변형이있었는가? + Public Overrides Function HasChanged() As Boolean + bs.EndEdit() + Dim BaseDS As DataSet = CType(bs.DataSource, DataSet) + Dim BaseDT As DataTable = BaseDS.Tables(bs.DataMember) + Dim ChangeDT As DataTable = BaseDT.GetChanges + If Not ChangeDT Is Nothing Then Return True + Return False + End Function + + '''기본데이터테이블을 반환합니다. + Public Function DT() As DataTable + Dim BaseDS As DataSet = CType(bs.DataSource, DataSet) + Return BaseDS.Tables(bs.DataMember) + End Function + + +#End Region + + + + Private Sub Frm_V20091231_YK_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing + Me.bs.EndEdit() + Me.bs_detail.EndEdit() + + + '//열관류율이 링크된 모든면의 건축부위 데이터를 열관류율 화면의 건축부위 데이터로 갱신 + For Each Drow As DS.tbl_myounRow In DSET.tbl_myoun + Dim Dr As DS.tbl_ykRow = DSET.tbl_yk.Select("code='" & Drow.열관류율2.ToString & "'")(0) + Drow.건축부위방식 = Dr.면형태 '// 링크된 열관류율에서 면형태를 가져옴.. + Select Case Dr.면형태 + Case "외벽(벽체)", "0" + Drow.건축부위방식 = "외벽" + Case "외벽(지붕)", "0001" + Drow.건축부위방식 = "외벽" + 'Drow.방위 = "수평" + Case "외벽(바닥)", "0002" + Drow.건축부위방식 = "외벽" + 'Drow.방위 = "일사없음" + Case "내벽(벽체)", "0003" + Drow.건축부위방식 = "내벽" + Drow.방위 = "일사없음" + Case "내벽(지붕)", "0004" + Drow.건축부위방식 = "내벽" + Drow.방위 = "일사없음" + Case "내벽(바닥)", "0005" + Drow.건축부위방식 = "내벽" + Drow.방위 = "일사없음" + Case "간벽", "0006" + Drow.건축부위방식 = "간벽" + Drow.방위 = "일사없음" + Case "외부창", "0007" + Drow.건축부위방식 = "외부창" + Drow.투과율 = Dr.일사에너지투과율 + Case "내부창", "0008" + Drow.건축부위방식 = "내부창" + Drow.투과율 = Dr.일사에너지투과율 + Case Else + MsgBox("모르는값 " & Dr("면형태").ToString & "/" & Dr.면형태) + End Select + + + + 'Drow.열관류율2 = Dr.code + + 'MsgBox(Drow.열관류율2) + 'MsgBox(Drow.열관류율) + + 'End + Next + + 'MsgBox("close") + End Sub + Private Sub MdiMain_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load + 'TODO: 이 코드는 데이터를 'DS.tbl_common' 테이블에 로드합니다. 필요한 경우 이 코드를 이동하거나 제거할 수 있습니다. + 'MdiMain.Toggle_Menu_Color(MdiMain.E_MenuIdx.열관류율) + 'CEnergy.ARINCLASS.SaveLoad_FrmSetting(Me) + '//프로필 관련 + + '//공유데이터셋에 연결한다. + Me.bs.DataSource = DSET + Me.bs_detail.DataSource = DSET + Me.bs_gubun.DataSource = DSET + Me.bS_재료.DataSource = DSET + + bS_재료.Filter = "gubun='1089'" + bS_재료.Sort = "code" + + '//냉방분배 + AddHandler DSET.tbl_yk.TableNewRow, AddressOf AddNewDataRow_bunbae + AddHandler DSET.tbl_ykdetail.TableNewRow, AddressOf AddNewDataRow_Weatherilsa + + '//모든컨트롤의 cTrl_enter 를 추가합니다 + BindProperty(CType(Me.SplitContainer1.Panel2.Controls, Control.ControlCollection)) + + '//콤보컨트롤 바인딩 + Binding_Zone() + + + Me.bs.Filter = "code <> '0' and 면형태 = '" + Me.Parameter + "'" + Me.lb_grpname.Text = Get_CName("1088", Me.Parameter) + + Try + Me.bs.Position = CEnergy.ARINCLASS.Read_LastPos_Frm(Me) + Catch ex As Exception + Me.bs.MoveFirst() + End Try + + refresh_Image() + Me.init = True + + 'Try '//열전도갱신 + + Me.cmb_열전도율.Items.Clear() + Dim 재료명 As String = "" + If Me.bs_detail.Count > 0 Then '//현재선택된 개체의 열전도율을 가져온다. + Dim Drv As DataRowView = Me.bs_detail.Current + 재료명 = Drv("설명").ToString + Else + If Me.cmb_재료.Items.Count > 0 AndAlso Me.cmb_재료.SelectedIndex >= 0 Then 재료명 = CType(Me.cmb_재료.Items(Me.cmb_재료.SelectedIndex), DataRowView)("name").ToString + End If + Dim Filter = "gubun='1089' and name='" & 재료명 & "'" + Dim Drow() As DS.tbl_commonRow = DSET.tbl_common.Select(Filter) + Try + If Drow.GetUpperBound(0) <> -1 Then Me.cmb_열전도율.Items.Add(Drow(0).valn1) + Catch ex As Exception + + End Try + + + + 'Me.cmb_열전도율.Items.Clear() + 'Dim Fil As String = "gubun='1089' and name='" & Me.cmb_재료.Text & "'" + 'Try + ' If Me.cmb_재료.Text <> "" Then + ' Dim Dr As DS.tbl_commonRow = DSET.tbl_common.Select(Fil)(0) + ' 'Dim Dr As DS.tbl_commonRow = DSET.tbl_common.Select("gubun='1089' and name='" & Me.cmb_재료.Text & "'")(0) + ' If Me.cmb_재료.Text.IndexOf("공기층") = -1 Then + ' Me.cmb_열전도율.Items.Add(Dr.valn1) + ' End If + ' End If + 'Catch ex As Exception + ' 'MsgBox("1. " & ex.Message.ToString) + 'End Try + + + + + End Sub +#Region "Control_Enter" + Private Sub BindProperty(ByVal Ctl As Control.ControlCollection) + For Each C As Control In Ctl + If C.Controls.Count > 1 Then + BindProperty(C.Controls) + Else + If C.GetType.ToString.ToUpper.IndexOf("MYTB") <> -1 Then + AddHandler CType(C, MyTb).KeyDown, AddressOf TextBOx_KeyDown + ElseIf C.GetType.ToString.ToUpper.IndexOf("MYCMB") <> -1 Then + AddHandler CType(C, MyCmb).KeyDown, AddressOf Cmd_KeyDown + End If + End If + Next + End Sub + + Private Sub TextBOx_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) + If e.KeyCode = Keys.Enter AndAlso e.Control Then + Try + Dim Field As String = (CType(sender, MyTb).DataBindings.Item("text").BindingMemberInfo.BindingField) + For Each Dr As DataRow In DT.Select(Me.bs.Filter, "") + Dr(Field) = CType(sender, MyTb).Text + Next + Work_msg_timer("모든값이 변경되었습니다", 25) + Catch ex As Exception + + End Try + + End If + End Sub + Private Sub Cmd_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) + If e.KeyCode = Keys.Enter AndAlso e.Control Then + Try + Dim Field As String = (CType(sender, MyCmb).DataBindings.Item("selectedvalue").BindingMemberInfo.BindingField) + For Each Dr As DataRow In DT.Select(Me.bs.Filter, "") + Dr(Field) = CType(sender, MyCmb).SelectedValue + Next + Work_msg_timer("모든값이 변경되었습니다", 25) + Catch ex As Exception + + End Try + End If + End Sub +#End Region + +#Region "기본" + Private Sub MdiMain_FormClosed(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosedEventArgs) Handles Me.FormClosed + CEnergy.ARINCLASS.SaveLoad_FrmSetting(Me, Me.bs.Position, True) + End Sub + Private Function GetMaxCode(ByVal dt As DataTable) As String + + Dim Drow() As DataRow = dt.Select("", "code desc") + If Drow.GetUpperBound(0) = -1 Then Return "0001" '//데이터가 없을경위 최소 0001으로 반환 2011-05-06(a) + + '//데이터가있을경우 해당 데이터+1로 반환 + Return Format(CInt(Drow(0)("code")) + 1, "0000") + + 'Try + ' Dim Dr As DataRow = dt.Select("", "code desc")(0) + ' Dim Dr_ykdetail As DataRow = dt_ykdetail.Select("", "code desc")(0) + ' If Dr("code") >= Dr_ykdetail("code") Then + + ' Else + ' Return Format(CInt(Dr_ykdetail("code")) + 1, "0000") + ' End If + + 'Catch ex As Exception + ' MsgBox(ex.Message.ToString) + ' Return "0001" + 'End Try + End Function + Private Sub Cmb_DeleteVal(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) + If e.KeyCode = Keys.Delete Then + CType(sender, ComboBox).SelectedValue = "" + End If + End Sub + Private Sub AddNewDataRow_bunbae(ByVal sender As Object, ByVal e As System.Data.DataTableNewRowEventArgs) + e.Row.Item("code") = GetMaxCode(DSET.tbl_yk) + ' MsgBox("22") + End Sub + Private Sub AddNewDataRow_Weatherilsa(ByVal sender As Object, ByVal e As System.Data.DataTableNewRowEventArgs) + + Dim NewCode As String + Try + Dim Dr As DataRow = DSET.tbl_ykdetail.Select("pcode = '" & Me.pcode & "'", "code desc")(0) + NewCode = Format(CInt(Dr("code")) + 1, "0000") + Catch ex As Exception + NewCode = ("0001") + End Try + + Try + e.Row.Item("pcode") = Me.pcode ' CType(bs.Current, DataRowView)("code") + e.Row.Item("code") = NewCode + 'MsgBox(e.Row.Item("code").ToString) + + Catch ex As Exception + MsgBox("부모코드없음 선택다시") + End Try + + End Sub + + Private Sub bt_add_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt_add.Click + If Not EndEdit(Me.bs) Then Return + Me.bs.AddNew() + Me.bs.EndEdit() + INitRow(Me.Controls) + 'ToolStripButton1.PerformClick() '//2011.04.20 열관류율 생성시 세부 레이어를 기본적으로 추가 + End Sub + + + Private Sub bt_Del_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt_Del.Click + 'Dbbase.DelCrow(Me.bs, True) + Del_YKdetail(True) + End Sub + + Private Sub ToolStripButton51_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt_cancel.Click + If Not EndEdit(Me.bs) Then Return + Data_Cancel(DSET.tbl_profile, Nothing) + End Sub + + Private Sub Binding_Zone() + + Dim bs_형태 As New BindingSource(DSET, "tbl_common") + bs_형태.Filter = "gubun='1088'" + bs_형태.Sort = "code" + Me.cmb_형태.DataSource = bs_형태 + cmb_형태.DisplayMember = "name" + cmb_형태.ValueMember = "code" + Me.cmb_형태.DataBindings.Add("selectedvalue", Me.bs, "면형태") + AddHandler cmb_형태.KeyDown, AddressOf Cmb_DeleteVal + + 'Me.bS_재료.DataSource = DSET.tbl_common + bS_재료.Filter = "gubun='1089'" + bS_재료.Sort = "code" + + Me.cmb_재료.DataSource = bS_재료 + cmb_재료.DisplayMember = "name" + cmb_재료.ValueMember = "name" + Me.cmb_재료.DataBindings.Add("text", Me.bs_detail, "설명") + AddHandler cmb_재료.KeyDown, AddressOf Cmb_DeleteVal + 'Me.cmb_재료.Text = "" + + 'Me.bs_gubun.DataSource = DSET.tbl_common + bs_gubun.Filter = "gubun='1090'" + bs_gubun.Sort = "code" + + 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 + If Me.bs.Position < Me.bs.Count Then Me.bs.Position += 1 + Else + If Me.bs.Position > 0 Then Me.bs.Position -= 1 + End If + Me.Validate() + My.Application.DoEvents() + End Sub +#End Region + + Private Sub bt_Del_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles bt_Del.MouseDown + If e.Button = Windows.Forms.MouseButtons.Right Then + If MsgBox("전체삭제를 하시겠습니까?", MsgBoxStyle.Information Or MsgBoxStyle.OkCancel, "확인") = MsgBoxResult.Ok Then + Dim dR() As DataRow = DSET.tbl_yk.Select(Me.bs.Filter, "") + For i As Integer = dR.GetUpperBound(0) To 0 Step -1 + dR(i).Delete() + Next + DSET.tbl_yk.AcceptChanges() + End If + End If + End Sub + + + Private Sub dv_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles dv.MouseUp + If Prj.UserAuthType = "ADMIN" OrElse Prj.UserAuthType = "BOTH" OrElse Prj.UserAuthType = "BOTH2" OrElse Prj.UserAuthType = "BOTH1" Then '//2011.03.08 추가 + If e.Button = Windows.Forms.MouseButtons.Right Then + Dim Frm_FilterA As New Frm_Filter + Frm_FilterA.ColumTitle = getColCaption(Me.DT) + Frm_FilterA.ColumList = getColName(Me.DT) + Frm_FilterA.Colorlist = "" + + Frm_FilterA.Numfield = "" '//20100618 Color 리스트처럼 , 구분해서 필드들을 모두 넣으세요.(=, >= 등을 사용하기 위해서는 해당 항목을 추가 요망) + If Frm_FilterA.ShowDialog <> Windows.Forms.DialogResult.OK Then Return '//창떳을떄 확인아ㅣ고 취소눌르면 다음을 수행하지않는다는거에요. + Dim Filter As String = Frm_FilterA.tb_filter.Text '//값은 아까 그 텍박에 잇구요. + Try + Me.bs.Filter = Filter + + '//바꾸기값이 있으면 변경 20100618 + If Frm_FilterA.cmb_fieldc.SelectedIndex >= 0 AndAlso Frm_FilterA.cmb_fieldc.Text.ToLower <> "code" AndAlso _ + Frm_FilterA.tb_valuec.Text <> "" Then + Dim Drow() As DataRow = Me.DT.Select(Filter) + For Each Dr As DataRow In Drow + Dr(Frm_FilterA.cmb_fieldc.Text) = Frm_FilterA.tb_valuec.Text + Next + MsgBox("바꾸기 완료", MsgBoxStyle.Information, "확인") + End If + + Catch ex As Exception + Me.bs.Filter = "" + 'MsgBox("2. " & ex.Message.ToString) + End Try + End If + End If + + End Sub + + Private Sub dv_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles dv.KeyDown + '//여기보시면 alt+d 누르면 한줄을 경고없이(falsE)삭제하도록 햇어요. + If Prj.UserAuthType = "ADMIN" OrElse Prj.UserAuthType = "BOTH" OrElse Prj.UserAuthType = "BOTH2" OrElse Prj.UserAuthType = "BOTH1" Then '//2011.03.08 추가 + Select Case e.KeyCode + Case Keys.D + If e.Alt Then + 'Dbbase.DelCrow(Me.bs, False) + Del_YKdetail(False) + + End If + Case Keys.C + If e.Control Then + Me.SrcDrv = Me.bs.Current + If Me.SrcDrv Is Nothing Then + MsgBox("저장할 ROW가 없습니다", MsgBoxStyle.Information, "확인") + Return + End If + ' My.Computer.Clipboard.SetData("ZDATA", Drv) + End If + Case Keys.V + If e.Control Then + If Me.SrcDrv Is Nothing Then Return + Me.bt_add.PerformClick() '//신규추가 + Dim NewDrv As DataRowView = Me.bs.Current + + For Each C As DataColumn In Me.DT.Columns + If C.ColumnName.ToUpper = "CODE" Then + ElseIf C.ColumnName.ToUpper = "설명" Then + NewDrv(C.ColumnName) = SrcDrv(C.ColumnName) & "#1" + Else + NewDrv(C.ColumnName) = SrcDrv(C.ColumnName) + End If + Next + + '//하위데이터복제 + Dim src_pcode As String = SrcDrv("code").ToString + Dim new_pcode As String = NewDrv("code").ToString + + + For Each Drow2 As DS.tbl_ykdetailRow In DSET.tbl_ykdetail.Select("pcode='" & src_pcode & "'") + Dim Newrow As DS.tbl_ykdetailRow = DSET.tbl_ykdetail.Newtbl_ykdetailRow + For Each C As DataColumn In DSET.tbl_ykdetail.Columns + Newrow(C.ColumnName) = Drow2(C.ColumnName) + Next + Newrow.pcode = new_pcode + DSET.tbl_ykdetail.Addtbl_ykdetailRow(Newrow) + Next + + Me.bs.EndEdit() + Me.bs_detail.EndEdit() + Me.refresh_Image() + + bs.MoveLast() + End If + End Select + End If + End Sub + + Private Sub bs_CurrentChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bs.CurrentChanged + Try + pcode = CType(bs.Current, DataRowView)("code").ToString + Me.bs_detail.Filter = "pcode='" & pcode & "'" + Me.DS.tbl_ykdetail.AcceptChanges() + Me.refresh_Image() + Catch ex As Exception + 'MsgBox("3. " & ex.Message.ToString) + End Try + Me.bs.EndEdit() + End Sub + + Private Sub refresh_Image() + ' MsgBox(Me.UserControl11.Vertical) + + Dim width As Decimal = 0 '//뭘고치던 여기 함수가 실행되므로 이곳에서 뭔가 작업하시는게 좋을것 같구요..어떤것을들 더하시려구요? + Dim R_value As Decimal = 0 + + For Each Dr As DS.tbl_ykdetailRow In DSET.tbl_ykdetail.Select(Me.bs_detail.Filter, "") '//세부내역중 두께를 합치는 루틴입니다. + 'Try + If Dr.설명 = "공기층" Then + Dr.열전도율 = "" + If TOSG(Dr.두께) > 10.0 Then + Dr.열저항 = TOST(0.086) + R_value += 0.086 + Else + Dr.열저항 = TOST(TOSG(Dr.두께) * 0.0086) + R_value = R_value + TOSG(Dr.두께) * 0.0086 + End If + Else '//여기아래 추가하신거에요? + + If Dr.설명.IndexOf("열전달저항") <> -1 Then + Dr.두께 = "" + Dr.열전도율 = "" + Select Case Dr.설명 + Case "실내열전달저항(벽체)" + Dr.열저항 = TOST(0.11) + R_value += 0.11 + Case "실외열전달저항(벽체,간접)" + Dr.열저항 = TOST(0.11) + R_value += 0.11 + Case "실외열전달저항(벽체,직접)" + Dr.열저항 = TOST(0.043) + R_value += 0.043 + Case "실내열전달저항(바닥)" + Dr.열저항 = TOST(0.086) + R_value += 0.086 + Case "실외열전달저항(바닥,간접)" + Dr.열저항 = TOST(0.15) + R_value += 0.15 + Case "실외열전달저항(바닥,직접)" + Dr.열저항 = TOST(0.043) + R_value += 0.043 + Case "실내열전달저항(지붕)" + Dr.열저항 = TOST(0.086) + R_value += 0.086 + Case "실외열전달저항(지붕,간접)" + Dr.열저항 = TOST(0.086) + R_value += 0.086 + Case "실외열전달저항(지붕,직접)" + Dr.열저항 = TOST(0.043) + R_value += 0.043 + + End Select + + Else + If Dr.열전도율 <> "" AndAlso TOSG(Dr.열전도율) <> 0 Then + Dr.열저항 = TOSG(Math.Round(TOSG(Dr.두께) / 1000 / TOSG(Dr.열전도율), 4)).ToString + R_value += TOSG(Dr.열저항) '//여부분에서는 나올수잇겟군요.?예 + End If + + End If + + End If + + + If Dr.설명.IndexOf("열전달저항") = -1 Then + width += TOSG(Dr.두께) + End If + Next + + Try + If cmb_형태.Text = "외부창" OrElse cmb_형태.Text = "내부창" Then + Me.열관류율NTb.Text = Me.NTb_창호열관류율.Text + Else + Me.열관류율NTb.Text = CSng(Math.Round(1 / R_value, 3)).ToString + End If + Catch ex As Exception + Me.열관류율NTb.Text = "" + 'MsgBox("4. " & ex.Message.ToString) + End Try + + ' Me.MyTb1.Text = width.ToString("N2") + Me.UserControl11.MaxSize = width + 'MsgBox(width) + + ' Me.Label1.Text = Me.UserControl11.Width + + '// 0.51 : me.wid = x : ? + + ' Me.UserControl11.Vertical = True + Dim FT(Me.arindv1.RowCount - 1) As YkCtl.SM + For i As Integer = 0 To Me.arindv1.RowCount - 1 + '//아까 열표시해서 검정색 선택해보니 검정은 값이 0 이 나오더라구요 + '//실재로 0값이 근데 표시가안됫어요 그러므로 + + Try + FT(i).BColor = Color.FromArgb(Me.arindv1.Rows(i).Cells("후경색").Value) + + Catch ex As Exception + FT(i).BColor = Color.FromName("white") + 'MsgBox("5. " & ex.Message.ToString) + End Try + 'Try + ' If Me.arindv1.Rows(i).Cells("전경색").Value = "0" Then + ' FT(i).FColor = Color.Black + ' Else + ' FT(i).FColor = Color.FromArgb(Me.arindv1.Rows(i).Cells("전경색").Value) + ' End If + + 'Catch ex As Exception + ' FT(i).FColor = Color.FromName("black") + ' 'MsgBox("6. " & ex.Message.ToString) + 'End Try + ' FT(i).Style= + Try + FT(i).Style = Val(Me.arindv1.Rows(i).Cells("구분").Value) + Catch ex As Exception + FT(i).Style = Drawing2D.HatchStyle.Cross + 'MsgBox("7. " & ex.Message.ToString) + End Try + + + + Try + If Me.arindv1.Rows(i).Cells("두께").Value <> "" Then + FT(i).Width = Me.arindv1.Rows(i).Cells("두께").Value + End If + Catch ex As Exception + 'MsgBox("8. " & ex.Message.ToString) + End Try + + + Next + Me.UserControl11.M1FillType = FT + + End Sub + + Private Sub arindv1_CellFormatting(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewCellFormattingEventArgs) Handles arindv1.CellFormatting + Try + Me.arindv1.Rows(e.RowIndex).DefaultCellStyle.BackColor = Color.FromArgb(Me.arindv1.Rows(e.RowIndex).Cells("후경색").Value) + ' Me.arindv1.Rows(e.RowIndex).DefaultCellStyle.ForeColor = Color.FromName(Me.arindv1.Rows(e.RowIndex).Cells("전경색").Value) + Catch ex As Exception + Me.arindv1.Rows(e.RowIndex).DefaultCellStyle.BackColor = Color.White + 'MsgBox("9. " & ex.Message.ToString) + End Try + + Try + If Me.arindv1.Rows(e.RowIndex).Cells("커스텀").Value = "Y" Then + Me.arindv1.Rows(e.RowIndex).DefaultCellStyle.ForeColor = Color.Magenta + Else + Me.arindv1.Rows(e.RowIndex).DefaultCellStyle.ForeColor = Color.Black + End If + Catch ex As Exception + Me.arindv1.Rows(e.RowIndex).Cells("커스텀").Value = "N" + End Try + + Me.bs_detail.EndEdit() + + End Sub + + + Private Sub Arindv1_CellValidated(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles arindv1.CellValidated + refresh_Image() + End Sub + + Private Sub Arindv1_DataError(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewDataErrorEventArgs) + + End Sub + + Private Sub Arindv1_RowValidated(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) + refresh_Image() + End Sub + + Private Sub ToolStripButton1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton1.Click + 'Try + Me.bs_detail.AddNew() + Me.bs_detail.EndEdit() + refresh_Image() + 'Catch ex As Exception + ' MsgBox(ex.Message.ToString) + + ' MsgBox("상위코드 선택하세요", MsgBoxStyle.Critical, "확인") + 'End Try + + End Sub + + Private Sub ToolStripButton2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton2.Click + If Me.bs_detail.Count > 0 Then + Me.bs_detail.RemoveCurrent() + Me.bs_detail.EndEdit() + End If + End Sub + + Private Sub arindv1_CellContentClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles arindv1.CellContentClick + Select Case e.ColumnIndex + Case 8 '//전경 + Dim Cd As New ColorDialog + Cd.Color = Color.FromName(Me.arindv1.Rows(e.RowIndex).Cells("전경색").Value) + If Cd.ShowDialog <> Windows.Forms.DialogResult.OK Then Return + Me.arindv1.Rows(e.RowIndex).Cells("전경색").Value = Cd.Color.ToArgb + Me.btn_전경색.BackColor = Cd.Color + Me.bs_detail.EndEdit() + refresh_Image() + Case 9 '//배경 + Dim Cd As New ColorDialog + Cd.Color = Color.FromName(Me.arindv1.Rows(e.RowIndex).Cells("후경색").Value) + If Cd.ShowDialog <> Windows.Forms.DialogResult.OK Then Return + Me.arindv1.Rows(e.RowIndex).Cells("후경색").Value = Cd.Color.ToArgb + Me.btn_후경색.BackColor = Cd.Color + Me.bs_detail.EndEdit() + refresh_Image() + End Select + End Sub + + Private Sub arindv1_DataError1(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewDataErrorEventArgs) Handles arindv1.DataError + + End Sub + + Private Sub cmb_형태_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmb_형태.SelectedIndexChanged + If cmb_형태.Text = "외벽(지붕)" OrElse cmb_형태.Text = "외벽(바닥)" OrElse cmb_형태.Text = "내벽(지붕)" OrElse cmb_형태.Text = "내벽(바닥)" Then + Me.UserControl11.Vertical = False + Else + Me.UserControl11.Vertical = True + End If + Me.refresh_Image() + If cmb_형태.Text = "외부창" OrElse cmb_형태.Text = "내부창" Then + Me.NTb_창호열관류율.Visible = True + Me.NTb_일사에너지투과율.Visible = True + Me.NTb_창호세부설명.Visible = True + Me.lbl_창호열관류율.ForeColor = Color.Black + Me.lbl_일사에너지투과율.ForeColor = Color.Black + Me.lbl_창호세부설명.ForeColor = Color.Black + Else + Me.NTb_창호열관류율.Visible = False + Me.NTb_일사에너지투과율.Visible = False + Me.NTb_창호세부설명.Visible = False + Me.lbl_창호열관류율.ForeColor = Color.LightGray + Me.lbl_일사에너지투과율.ForeColor = Color.LightGray + Me.lbl_창호세부설명.ForeColor = Color.LightGray + + End If + + End Sub + + Private Sub ToolStripButton3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton3.Click + Dim Drv As DataRowView = Me.bs_detail.Current + Dim 전경 As String + Try + 전경 = Drv("전경색").ToString + Catch ex As Exception + 'MsgBox("10. " & ex.Message.ToString) + End Try + Dim 후경 As String + Try + 후경 = Drv("후경색").ToString + Catch ex As Exception + 'MsgBox("11. " & ex.Message.ToString) + End Try + Dim A As New Frm_DisplayGubun(전경, 후경) + A.Show() + End Sub + + Private Sub SplitContainer1_Panel2_Paint(ByVal sender As System.Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles SplitContainer1.Panel2.Paint + + End Sub + + Private Sub btn_전경색_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_전경색.Click + + Try + Dim Cd As New ColorDialog + + If Cd.ShowDialog <> Windows.Forms.DialogResult.OK Then Return + Me.btn_전경색.BackColor = Cd.Color + + Dim Drv As DataRowView = Me.bs_detail.Current + Drv("전경색") = Cd.Color.ToArgb + + Catch ex As Exception + Me.btn_전경색.BackColor = Color.White + 'MsgBox("14. " & ex.Message.ToString) + End Try + Me.bs_detail.EndEdit() + Me.refresh_Image() + + End Sub + + Private Sub cmb_재료_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmb_재료.SelectedIndexChanged + + cmb_재료_Changed() + + End Sub + + Private Sub btn_후경색_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_후경색.Click + + Try + Dim Cd As New ColorDialog + + If Cd.ShowDialog <> Windows.Forms.DialogResult.OK Then Return + Me.btn_후경색.BackColor = Cd.Color + + Dim Drv As DataRowView = Me.bs_detail.Current + Drv("후경색") = Cd.Color.ToArgb + + Catch ex As Exception + Me.btn_후경색.BackColor = Color.White + 'MsgBox("18. " & ex.Message.ToString) + End Try + Me.bs_detail.EndEdit() + Me.refresh_Image() + + End Sub + + Private Sub cmb_열전도율_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmb_열전도율.SelectedIndexChanged + If Not init Then Return + Dim Drv As DataRowView = Me.bs_detail.Current + If Drv Is Nothing Then Return + Drv("커스텀") = "N" + Drv("열전도율") = Me.cmb_열전도율.Items(Me.cmb_열전도율.SelectedIndex) + Me.bs_detail.EndEdit() + Me.refresh_Image() + End Sub + + 'Private Sub cmb_열전도율_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles cmb_열전도율.TextChanged + ' Me.bs_detail.EndEdit() + ' Me.refresh_Image() + + ' 'Try + ' ' If Me.cmb_열전도율.SelectedIndex = -1 Then + ' ' Me.arindv1.CurrentRow.DefaultCellStyle.ForeColor = Color.FromArgb(Color.Red.ToArgb) + ' ' Else + ' ' Me.arindv1.CurrentRow.DefaultCellStyle.ForeColor = Color.FromArgb(Color.Black.ToArgb) + ' ' End If + ' 'Catch ex As Exception + ' ' MsgBox(ex.Message.ToString) + ' 'End Try + + 'End Sub + + Private Sub cmb_재료_SelectionChangeCommitted(ByVal sender As Object, ByVal e As System.EventArgs) Handles cmb_재료.SelectionChangeCommitted + If Not init Then Return + Me.UserCommin = True + End Sub + + Private Sub NTb_창호열관류율_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NTb_창호열관류율.TextChanged + If Not init Then Return + If cmb_형태.Text = "외부창" OrElse cmb_형태.Text = "내부창" Then + Me.열관류율NTb.Text = Me.NTb_창호열관류율.Text + End If + End Sub + + Private Sub Del_YKdetail(ByVal prompt As Boolean) + If prompt Then + If MsgBox("선택된 줄을 삭제하시겠습니까?", MsgBoxStyle.OkCancel Or MsgBoxStyle.Information, "삭제확인") <> MsgBoxResult.Ok Then Return + End If + Dim Drv As DataRowView = CType(bs.Current, DataRowView) + If Drv Is Nothing Then Return + Dim DR() As DataRow = DSET.tbl_ykdetail.Select("code <> '0' and code='" & Drv("code").ToString & "'") + If DR.GetUpperBound(0) <> -1 Then + For i As Integer = DR.GetUpperBound(0) To 0 Step -1 + DR(i).Delete() + Next + End If + Me.bs.RemoveCurrent() + + End Sub + + Private Sub cmb_열전도율_KeyUp(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles cmb_열전도율.KeyUp + Me.keyUp1 = True + If Not init Then Return + 'If e.KeyCode = Keys.Enter Then + Me.bs_detail.EndEdit() + Dim CUrvalue As String = Me.cmb_열전도율.Text + Dim Find As Boolean = False + For i As Integer = 0 To Me.cmb_열전도율.Items.Count - 1 + If Me.cmb_열전도율.Items(i).ToString = CUrvalue Then Find = True + Next + Dim Drv As DataRowView = Me.bs_detail.Current + If Drv Is Nothing Then Return + If Find = False Then '//찾지못하였다면 + Drv("커스텀") = "Y" + Else + Drv("커스텀") = "N" + End If + Me.refresh_Image() + Me.keyUp1 = False + 'End If + End Sub + + Private Sub bs_detail_CurrentChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bs_detail.CurrentChanged + If Not init Then Return + Dim Drv As DataRowView = CType(Me.bs_detail.Current, DataRowView) + If Drv Is Nothing Then Return '//선택된아이템이없으면 빠져나감 + Try + Me.btn_전경색.BackColor = Color.FromArgb(Drv("전경색").ToString) + Me.btn_후경색.BackColor = Color.FromArgb(Drv("후경색").ToString) + Catch ex As Exception + Me.btn_전경색.BackColor = Color.White + Me.btn_후경색.BackColor = Color.White + 'MsgBox("12. " & ex.Message.ToString) + End Try + + + '//열전도율목록을 갱신 + Me.cmb_열전도율.Items.Clear() + Dim Fil As String = "gubun='1089' and name='" & Me.cmb_재료.Text & "'" + Dim Drow() As DS.tbl_commonRow = DSET.tbl_common.Select(Fil) + Try + If Drow.GetUpperBound(0) = 0 Then Me.cmb_열전도율.Items.Add(Drow(0).valn1) + Catch ex As Exception + + End Try + + + '//현재선택된 열전도율이 비정상(*?) 체크 + + Dim CUrvalue As String = Drv("열전도율").ToString + If CUrvalue <> "" Then + Dim Dr() As DS.tbl_commonRow = DSET.tbl_common.Select("gubun='1089' and name='" & Me.cmb_재료.Text & "' and valn1='" & CUrvalue.Trim & "'") + If Dr.GetUpperBound(0) = -1 Then '//일치하는것이 없다면 + Drv("커스텀") = "Y" + Else + Drv("커스텀") = "N" + End If + End If + + 'Drv("커스텀") = "N" + 'If CUrvalue <> "" Then + ' Dim Find As Boolean = False + ' For i As Integer = 0 To Me.cmb_열전도율.Items.Count - 1 + ' If Me.cmb_열전도율.Items(i).ToString = CUrvalue Then Find = True + ' Next + ' If Find = False Then '//찾지못하였다면 + ' Drv("커스텀") = "Y" + ' Me.arindv1.SelectedRows(0).DefaultCellStyle.ForeColor = Color.Red + ' End If + 'End If + Me.bs_detail.EndEdit() + Me.arindv1.Refresh() + Me.refresh_Image() + End Sub + + + Private Sub cmb_재료_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles cmb_재료.TextChanged + cmb_재료_Changed() + End Sub + + Private Sub cmb_재료_Changed() + If Not init Then Return + If Me.bs_detail.Count < 1 Then Return '// ep데이터가없을경우 무시 + If Me.cmb_재료.SelectedIndex < 0 Then Return + + Dim 재료코드 As String = "" + + '//선택된재료명 + Dim 재료명 As String = CType(Me.cmb_재료.Items(Me.cmb_재료.SelectedIndex), DataRowView)("name") + + If UserCommin = False Then + 'UserCommin = True + Return + End If + + '//해당열전도율가져오기 + Try + Dim Dr As DS.tbl_commonRow = DSET.tbl_common.Select(bS_재료.Filter & " and name='" & 재료명 & "'")(0) + 재료코드 = Dr.code + Me.cmb_열전도율.Items.Clear() + Try '// 20110210 Try문 추가 (열전달저항 관련 Null 값에 의한 재료코드에러수정) + Me.cmb_열전도율.Items.Add(Dr.valn1) + Me.cmb_열전도율.Text = Dr.valn1 + Catch ex As Exception + Dim Drv As DataRowView = CType(Me.bs_detail.Current, DataRowView) + Drv("커스텀") = "N" + End Try + + 'Me.tb_열전도.Text = Dr.valn1 + ' MsgBox(Dr.valn1) + + Catch ex As Exception + 'MsgBox(ex.Message.ToString) + 'MsgBox("15. " & ex.Message.ToString) + End Try + + '//색및 패턴명 가져오기 + Dim DetailDrv As DataRowView = Me.bs_detail.Current + DetailDrv("설명") = 재료명 + Dim Er As Boolean = False + + Dim Dr2() As DS.tbl_commonRow = DSET.tbl_common.Select("gubun='1090' and code='" & 재료코드 & "'") + If Dr2.GetUpperBound(0) = -1 Then + DetailDrv("전경색") = Color.Blue.ToArgb + DetailDrv("후경색") = Color.White.ToArgb '//디비에 해당설ㅈㅇ이 없을경우 행하는 코드들 + DetailDrv("구분") = "5" + Me.btn_전경색.BackColor = Color.FromArgb(DetailDrv("전경색")) + Me.btn_후경색.BackColor = Color.FromArgb(DetailDrv("후경색")) + Else '//디비에 있을경우 + Try + DetailDrv("전경색") = Dr2(0)("name").ToString.Split(",")(0) + Catch ex As Exception + DetailDrv("전경색") = Color.Black.ToArgb + 'MsgBox("16. " & ex.Message.ToString) + End Try + Try + DetailDrv("후경색") = Dr2(0)("name").ToString.Split(",")(1) + Catch ex As Exception + DetailDrv("후경색") = Color.White.ToArgb + ' MsgBox("17. " & ex.Message.ToString) + End Try + + DetailDrv("구분") = CInt(Dr2(0)("valn1")) + Me.btn_후경색.BackColor = Color.FromArgb(DetailDrv("후경색")) + Me.btn_전경색.BackColor = Color.FromArgb(DetailDrv("전경색")) + End If + + Me.bs_detail.EndEdit() + Me.refresh_Image() + UserCommin = False + + End Sub + + Private Sub bs_detail_CurrentItemChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles bs_detail.CurrentItemChanged + '//2011 06 18 : 아이템이동시 열전도율의 콤보박스가 생성되지않는현상 제거 + + If Not Me.init OrElse Me.keyUp1 Then Return + + '//해당열전도율가져오기 + Dim Drow() As DS.tbl_commonRow = DSET.tbl_common.Select(bS_재료.Filter & " and name='" & Me.cmb_재료.Text & "'") + + Dim temp_item As String + Try + temp_item = Me.cmb_열전도율.Items(0) + Catch ex As Exception + temp_item = "" + End Try + + If Drow.GetUpperBound(0) = 0 AndAlso Drow(0).valn1.ToString <> temp_item Then + Me.cmb_열전도율.Items.Clear() + Me.cmb_열전도율.Items.Add(Drow(0).valn1) + End If + + End Sub + + +End Class diff --git a/ArinWarev1/Forms/v20091231/Frm_Zone.Designer.vb b/ArinWarev1/Forms/v20091231/Frm_Zone.Designer.vb new file mode 100644 index 0000000..1ad3ae7 --- /dev/null +++ b/ArinWarev1/Forms/v20091231/Frm_Zone.Designer.vb @@ -0,0 +1,1842 @@ + _ +Partial Class Frm_Zone + Inherits CForm + 'Form은 Dispose를 재정의하여 구성 요소 목록을 정리합니다. + _ + Protected Overrides Sub Dispose(ByVal disposing As Boolean) + Try + If disposing AndAlso components IsNot Nothing Then + components.Dispose() + End If + Finally + MyBase.Dispose(disposing) + End Try + End Sub + + 'Windows Form 디자이너에 필요합니다. + Private components As System.ComponentModel.IContainer + + '참고: 다음 프로시저는 Windows Form 디자이너에 필요합니다. + '수정하려면 Windows Form 디자이너를 사용하십시오. + '코드 편집기를 사용하여 수정하지 마십시오. + _ + Private Sub InitializeComponent() + Me.components = New System.ComponentModel.Container() + 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 Label8 As System.Windows.Forms.Label + Dim Label9 As System.Windows.Forms.Label + Dim Label42 As System.Windows.Forms.Label + Dim Label41 As System.Windows.Forms.Label + Dim Label43 As System.Windows.Forms.Label + Dim Label44 As System.Windows.Forms.Label + Dim Label45 As System.Windows.Forms.Label + Dim Label47 As System.Windows.Forms.Label + Dim Label46 As System.Windows.Forms.Label + Dim Label37 As System.Windows.Forms.Label + Dim Label35 As System.Windows.Forms.Label + Dim Label33 As System.Windows.Forms.Label + Dim Label32 As System.Windows.Forms.Label + Dim Label36 As System.Windows.Forms.Label + Dim Label39 As System.Windows.Forms.Label + Dim Label38 As System.Windows.Forms.Label + Dim Label40 As System.Windows.Forms.Label + Dim 순실체적Label As System.Windows.Forms.Label + Dim 천장고Label As System.Windows.Forms.Label + Dim Label1 As System.Windows.Forms.Label + Dim Label2 As System.Windows.Forms.Label + Dim 냉난방방식Label As System.Windows.Forms.Label + Dim 침기율Label As System.Windows.Forms.Label + Dim 열교가산치Label As System.Windows.Forms.Label + Dim 열저장능력Label As System.Windows.Forms.Label + Dim 주말운전방식Label As System.Windows.Forms.Label + Dim 야간운전방식Label As System.Windows.Forms.Label + Dim 외기부하처리여부Label As System.Windows.Forms.Label + Dim 냉난방공조Label As System.Windows.Forms.Label + Dim Label10 As System.Windows.Forms.Label + Dim Label11 As System.Windows.Forms.Label + Dim Label16 As System.Windows.Forms.Label + Dim Label18 As System.Windows.Forms.Label + Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(Frm_Zone)) + 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.lb_grpname = New System.Windows.Forms.Label() + Me.bn = New System.Windows.Forms.BindingNavigator(Me.components) + Me.ToolStripLabel1 = New System.Windows.Forms.ToolStripLabel() + Me.bt_add = New System.Windows.Forms.ToolStripButton() + Me.bt_Del = New System.Windows.Forms.ToolStripButton() + Me.bt_copy = New System.Windows.Forms.ToolStripButton() + Me.bt_cancel = New System.Windows.Forms.ToolStripButton() + Me.ToolStripSeparator1 = New System.Windows.Forms.ToolStripSeparator() + Me.lbl_pos = New System.Windows.Forms.ToolStripLabel() + Me.cmb_그룹_존 = New Eco2Ar.MyCmb() + Me.ToolStrip1 = New System.Windows.Forms.ToolStrip() + Me.ToolStripLabel2 = New System.Windows.Forms.ToolStripLabel() + Me.ToolStripLabel3 = New System.Windows.Forms.ToolStripLabel() + Me.ToolStripLabel4 = New System.Windows.Forms.ToolStripLabel() + Me.ToolStripLabel5 = New System.Windows.Forms.ToolStripLabel() + Me.ToolStripLabel6 = New System.Windows.Forms.ToolStripLabel() + Me.ToolStripLabel7 = New System.Windows.Forms.ToolStripLabel() + Me.ToolStripLabel8 = New System.Windows.Forms.ToolStripLabel() + Me.ToolStripLabel9 = New System.Windows.Forms.ToolStripLabel() + Me.ToolStripLabel10 = New System.Windows.Forms.ToolStripLabel() + Me.ToolStripLabel11 = New System.Windows.Forms.ToolStripLabel() + Me.Label17 = New System.Windows.Forms.Label() + Me.Label15 = New System.Windows.Forms.Label() + Me.입력존의수NTb = New Eco2Ar.MyTb() + Me.PictureBox3 = New System.Windows.Forms.PictureBox() + Me.PictureBox1 = New System.Windows.Forms.PictureBox() + Me.GroupBox8 = New System.Windows.Forms.GroupBox() + Me.냉난방공조ComboBox = New Eco2Ar.MyCmb() + Me.외기부하처리여부ComboBox = New Eco2Ar.MyCmb() + Me.야간운전방식ComboBox = New Eco2Ar.MyCmb() + Me.주말운전방식ComboBox = New Eco2Ar.MyCmb() + Me.냉난방열공급시스템ComboBox = New Eco2Ar.MyCmb() + Me.PictureBox8 = New System.Windows.Forms.PictureBox() + Me.GroupBox7 = New System.Windows.Forms.GroupBox() + Me.열교가산치ComboBox = New Eco2Ar.MyCmb() + Me.열저장능력ComboBox = New Eco2Ar.MyCmb() + Me.침기율NTb = New Eco2Ar.MyTb() + Me.cmb_냉난방방식 = New Eco2Ar.MyCmb() + Me.PictureBox7 = New System.Windows.Forms.PictureBox() + Me.GroupBox6 = New System.Windows.Forms.GroupBox() + Me.tb_조명계산치 = New Eco2Ar.MyTb() + Me.tb_점등시간 = New Eco2Ar.MyTb() + Me.tb_조명입력치 = New Eco2Ar.MyTb() + Me.보수율NTb = New Eco2Ar.MyTb() + Me.인공광원ComboBox = New Eco2Ar.MyCmb() + Me.조명방식ComboBox = New Eco2Ar.MyCmb() + Me.조명기기효율NTb = New Eco2Ar.MyTb() + Me.tb_조명률 = New Eco2Ar.MyTb() + Me.PictureBox11 = New System.Windows.Forms.PictureBox() + Me.GroupBox5 = New System.Windows.Forms.GroupBox() + Me.실지수NTb1 = New Eco2Ar.MyTb() + Me.천장고NTB1 = New Eco2Ar.MyTb() + Me.조명부하산출방법ComboBox = New Eco2Ar.MyCmb() + Me.요구조도NTb1 = New Eco2Ar.MyTb() + Me.작업면높이NTb1 = New Eco2Ar.MyTb() + Me.실깊이NTb = New Eco2Ar.MyTb() + Me.실너비NTb = New Eco2Ar.MyTb() + Me.PictureBox6 = New System.Windows.Forms.PictureBox() + Me.GroupBox4 = New System.Windows.Forms.GroupBox() + Me.순실체적NTb = New Eco2Ar.MyTb() + Me.면적NTb = New Eco2Ar.MyTb() + Me.천장고NTb = New Eco2Ar.MyTb() + Me.cmb_profile = New Eco2Ar.MyCmb() + Me.PictureBox5 = New System.Windows.Forms.PictureBox() + Me.GroupBox3 = New System.Windows.Forms.GroupBox() + Me.Label14 = New System.Windows.Forms.Label() + Me.cmb_공조냉방생산 = New Eco2Ar.MyCmb() + Me.cmb_공조난방생산 = New Eco2Ar.MyCmb() + Me.cmb_공조가습생산 = New Eco2Ar.MyCmb() + Me.PictureBox10 = New System.Windows.Forms.PictureBox() + Me.GroupBox2 = New System.Windows.Forms.GroupBox() + Me.Label13 = New System.Windows.Forms.Label() + Me.cmb_열생산지정1 = New Eco2Ar.MyCmb() + Me.cmb_열생산지정3 = New Eco2Ar.MyCmb() + Me.cmb_열생산급탕기기 = New Eco2Ar.MyCmb() + Me.PictureBox9 = New System.Windows.Forms.PictureBox() + Me.난방공급시스템GroupBox = New System.Windows.Forms.GroupBox() + Me.Label12 = New System.Windows.Forms.Label() + Me.냉난방공조처리시스템ComboBox = New Eco2Ar.MyCmb() + Me.냉난방열공급시스템수NTb = New Eco2Ar.MyTb() + Me.PictureBox4 = New System.Windows.Forms.PictureBox() + Me.ToolTip1 = New System.Windows.Forms.ToolTip(Me.components) + Me.ErrProvider = New System.Windows.Forms.ErrorProvider(Me.components) + 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() + Label8 = New System.Windows.Forms.Label() + Label9 = New System.Windows.Forms.Label() + Label42 = New System.Windows.Forms.Label() + Label41 = New System.Windows.Forms.Label() + Label43 = New System.Windows.Forms.Label() + Label44 = New System.Windows.Forms.Label() + Label45 = New System.Windows.Forms.Label() + Label47 = New System.Windows.Forms.Label() + Label46 = New System.Windows.Forms.Label() + Label37 = New System.Windows.Forms.Label() + Label35 = New System.Windows.Forms.Label() + Label33 = New System.Windows.Forms.Label() + Label32 = New System.Windows.Forms.Label() + Label36 = New System.Windows.Forms.Label() + Label39 = New System.Windows.Forms.Label() + Label38 = New System.Windows.Forms.Label() + Label40 = New System.Windows.Forms.Label() + 순실체적Label = New System.Windows.Forms.Label() + 천장고Label = New System.Windows.Forms.Label() + Label1 = New System.Windows.Forms.Label() + Label2 = New System.Windows.Forms.Label() + 냉난방방식Label = New System.Windows.Forms.Label() + 침기율Label = New System.Windows.Forms.Label() + 열교가산치Label = New System.Windows.Forms.Label() + 열저장능력Label = New System.Windows.Forms.Label() + 주말운전방식Label = New System.Windows.Forms.Label() + 야간운전방식Label = New System.Windows.Forms.Label() + 외기부하처리여부Label = New System.Windows.Forms.Label() + 냉난방공조Label = New System.Windows.Forms.Label() + Label10 = New System.Windows.Forms.Label() + Label11 = New System.Windows.Forms.Label() + Label16 = New System.Windows.Forms.Label() + Label18 = New System.Windows.Forms.Label() + 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.ToolStrip1.SuspendLayout() + CType(Me.PictureBox3, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit() + Me.GroupBox8.SuspendLayout() + CType(Me.PictureBox8, System.ComponentModel.ISupportInitialize).BeginInit() + Me.GroupBox7.SuspendLayout() + CType(Me.PictureBox7, System.ComponentModel.ISupportInitialize).BeginInit() + Me.GroupBox6.SuspendLayout() + CType(Me.PictureBox11, System.ComponentModel.ISupportInitialize).BeginInit() + Me.GroupBox5.SuspendLayout() + CType(Me.PictureBox6, System.ComponentModel.ISupportInitialize).BeginInit() + Me.GroupBox4.SuspendLayout() + CType(Me.PictureBox5, System.ComponentModel.ISupportInitialize).BeginInit() + Me.GroupBox3.SuspendLayout() + CType(Me.PictureBox10, System.ComponentModel.ISupportInitialize).BeginInit() + Me.GroupBox2.SuspendLayout() + CType(Me.PictureBox9, System.ComponentModel.ISupportInitialize).BeginInit() + Me.난방공급시스템GroupBox.SuspendLayout() + CType(Me.PictureBox4, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.ErrProvider, System.ComponentModel.ISupportInitialize).BeginInit() + Me.SuspendLayout() + ' + 'Label3 + ' + Label3.AutoSize = True + Label3.BackColor = System.Drawing.Color.FromArgb(CType(CType(243, Byte), Integer), CType(CType(244, Byte), Integer), CType(CType(246, Byte), Integer)) + Label3.Font = New System.Drawing.Font("나눔고딕 ExtraBold", 8.999999!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Label3.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label3.Location = New System.Drawing.Point(4, 63) + Label3.Name = "Label3" + Label3.Size = New System.Drawing.Size(88, 14) + Label3.TabIndex = 34 + Label3.Text = "열공급시스템수:" + ' + 'Label4 + ' + Label4.AutoSize = True + Label4.BackColor = System.Drawing.Color.FromArgb(CType(CType(243, Byte), Integer), CType(CType(244, Byte), Integer), CType(CType(246, Byte), Integer)) + Label4.Font = New System.Drawing.Font("나눔고딕 ExtraBold", 8.999999!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Label4.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label4.Location = New System.Drawing.Point(4, 32) + Label4.Name = "Label4" + Label4.Size = New System.Drawing.Size(77, 14) + Label4.TabIndex = 32 + Label4.Text = "열공급시스템:" + ' + 'Label5 + ' + 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.Font = New System.Drawing.Font("나눔고딕 ExtraBold", 8.999999!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Label5.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label5.Location = New System.Drawing.Point(4, 90) + Label5.Name = "Label5" + Label5.Size = New System.Drawing.Size(66, 14) + Label5.TabIndex = 36 + Label5.Text = "공조시스템:" + ' + 'Label6 + ' + 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.Font = New System.Drawing.Font("나눔고딕 ExtraBold", 8.999999!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Label6.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label6.Location = New System.Drawing.Point(6, 31) + Label6.Name = "Label6" + Label6.Size = New System.Drawing.Size(66, 14) + Label6.TabIndex = 38 + Label6.Text = "열난방기기:" + ' + 'Label7 + ' + 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.Font = New System.Drawing.Font("나눔고딕 ExtraBold", 8.999999!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Label7.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label7.Location = New System.Drawing.Point(3, 85) + Label7.Name = "Label7" + Label7.Size = New System.Drawing.Size(77, 14) + Label7.TabIndex = 44 + Label7.Text = "공조가습기기:" + ' + 'Label8 + ' + Label8.AutoSize = True + Label8.BackColor = System.Drawing.Color.FromArgb(CType(CType(243, Byte), Integer), CType(CType(244, Byte), Integer), CType(CType(246, Byte), Integer)) + Label8.Font = New System.Drawing.Font("나눔고딕 ExtraBold", 8.999999!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Label8.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label8.Location = New System.Drawing.Point(6, 58) + Label8.Name = "Label8" + Label8.Size = New System.Drawing.Size(66, 14) + Label8.TabIndex = 40 + Label8.Text = "열급탕기기:" + ' + 'Label9 + ' + Label9.AutoSize = True + Label9.BackColor = System.Drawing.Color.FromArgb(CType(CType(243, Byte), Integer), CType(CType(244, Byte), Integer), CType(CType(246, Byte), Integer)) + Label9.Font = New System.Drawing.Font("나눔고딕 ExtraBold", 8.999999!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Label9.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label9.Location = New System.Drawing.Point(6, 85) + Label9.Name = "Label9" + Label9.Size = New System.Drawing.Size(66, 14) + Label9.TabIndex = 42 + Label9.Text = "열냉방기기:" + ' + 'Label42 + ' + Label42.AutoSize = True + Label42.BackColor = System.Drawing.Color.FromArgb(CType(CType(219, Byte), Integer), CType(CType(221, Byte), Integer), CType(CType(223, Byte), Integer)) + Label42.Font = New System.Drawing.Font("나눔고딕 ExtraBold", 8.999999!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Label42.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label42.Location = New System.Drawing.Point(9, 167) + Label42.Name = "Label42" + Label42.Size = New System.Drawing.Size(44, 14) + Label42.TabIndex = 93 + Label42.Text = "실지수:" + Label42.TextAlign = System.Drawing.ContentAlignment.MiddleRight + ' + 'Label41 + ' + Label41.AutoSize = True + Label41.BackColor = System.Drawing.Color.FromArgb(CType(CType(219, Byte), Integer), CType(CType(221, Byte), Integer), CType(CType(223, Byte), Integer)) + Label41.Font = New System.Drawing.Font("나눔고딕 ExtraBold", 8.999999!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Label41.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label41.Location = New System.Drawing.Point(9, 17) + Label41.Name = "Label41" + Label41.Size = New System.Drawing.Size(99, 14) + Label41.TabIndex = 106 + Label41.Text = "조명부하산출방법:" + Label41.TextAlign = System.Drawing.ContentAlignment.MiddleRight + ' + 'Label43 + ' + Label43.AutoSize = True + Label43.BackColor = System.Drawing.Color.FromArgb(CType(CType(219, Byte), Integer), CType(CType(221, Byte), Integer), CType(CType(223, Byte), Integer)) + Label43.Font = New System.Drawing.Font("나눔고딕 ExtraBold", 8.999999!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Label43.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label43.Location = New System.Drawing.Point(9, 142) + Label43.Name = "Label43" + Label43.Size = New System.Drawing.Size(63, 14) + Label43.TabIndex = 91 + Label43.Text = "실너비[m]:" + Label43.TextAlign = System.Drawing.ContentAlignment.MiddleRight + ' + 'Label44 + ' + Label44.AutoSize = True + Label44.BackColor = System.Drawing.Color.FromArgb(CType(CType(219, Byte), Integer), CType(CType(221, Byte), Integer), CType(CType(223, Byte), Integer)) + Label44.Font = New System.Drawing.Font("나눔고딕 ExtraBold", 8.999999!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Label44.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label44.Location = New System.Drawing.Point(9, 117) + Label44.Name = "Label44" + Label44.Size = New System.Drawing.Size(63, 14) + Label44.TabIndex = 89 + Label44.Text = "실깊이[m]:" + Label44.TextAlign = System.Drawing.ContentAlignment.MiddleRight + ' + 'Label45 + ' + Label45.AutoSize = True + Label45.BackColor = System.Drawing.Color.FromArgb(CType(CType(219, Byte), Integer), CType(CType(221, Byte), Integer), CType(CType(223, Byte), Integer)) + Label45.Font = New System.Drawing.Font("나눔고딕 ExtraBold", 8.999999!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Label45.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label45.Location = New System.Drawing.Point(9, 92) + Label45.Name = "Label45" + Label45.Size = New System.Drawing.Size(85, 14) + Label45.TabIndex = 87 + Label45.Text = "작업면높이[m]:" + Label45.TextAlign = System.Drawing.ContentAlignment.MiddleRight + ' + 'Label47 + ' + Label47.AutoSize = True + Label47.BackColor = System.Drawing.Color.FromArgb(CType(CType(219, Byte), Integer), CType(CType(221, Byte), Integer), CType(CType(223, Byte), Integer)) + Label47.Font = New System.Drawing.Font("나눔고딕 ExtraBold", 8.999999!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Label47.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label47.Location = New System.Drawing.Point(9, 67) + Label47.Name = "Label47" + Label47.Size = New System.Drawing.Size(63, 14) + Label47.TabIndex = 85 + Label47.Text = "천장고[m]:" + Label47.TextAlign = System.Drawing.ContentAlignment.MiddleRight + ' + 'Label46 + ' + Label46.AutoSize = True + Label46.BackColor = System.Drawing.Color.FromArgb(CType(CType(219, Byte), Integer), CType(CType(221, Byte), Integer), CType(CType(223, Byte), Integer)) + Label46.Font = New System.Drawing.Font("나눔고딕 ExtraBold", 8.999999!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Label46.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label46.Location = New System.Drawing.Point(9, 42) + Label46.Name = "Label46" + Label46.Size = New System.Drawing.Size(72, 14) + Label46.TabIndex = 84 + Label46.Text = "요구조도[lx]:" + Label46.TextAlign = System.Drawing.ContentAlignment.MiddleRight + ' + 'Label37 + ' + Label37.AutoSize = True + Label37.BackColor = System.Drawing.Color.FromArgb(CType(CType(219, Byte), Integer), CType(CType(221, Byte), Integer), CType(CType(223, Byte), Integer)) + Label37.Font = New System.Drawing.Font("나눔고딕 ExtraBold", 8.999999!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Label37.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label37.Location = New System.Drawing.Point(216, 67) + Label37.Name = "Label37" + Label37.Size = New System.Drawing.Size(70, 14) + Label37.TabIndex = 75 + Label37.Text = "점등시간[h]:" + Label37.TextAlign = System.Drawing.ContentAlignment.MiddleRight + ' + 'Label35 + ' + Label35.AutoSize = True + Label35.BackColor = System.Drawing.Color.FromArgb(CType(CType(219, Byte), Integer), CType(CType(221, Byte), Integer), CType(CType(223, Byte), Integer)) + Label35.Font = New System.Drawing.Font("나눔고딕 ExtraBold", 8.999999!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Label35.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label35.Location = New System.Drawing.Point(13, 78) + Label35.Name = "Label35" + Label35.Size = New System.Drawing.Size(44, 14) + Label35.TabIndex = 74 + Label35.Text = "보수율:" + Label35.TextAlign = System.Drawing.ContentAlignment.MiddleRight + ' + 'Label33 + ' + Label33.AutoSize = True + Label33.BackColor = System.Drawing.Color.FromArgb(CType(CType(219, Byte), Integer), CType(CType(221, Byte), Integer), CType(CType(223, Byte), Integer)) + Label33.Font = New System.Drawing.Font("나눔고딕 ExtraBold", 8.999999!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Label33.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label33.Location = New System.Drawing.Point(13, 49) + Label33.Name = "Label33" + Label33.Size = New System.Drawing.Size(55, 14) + Label33.TabIndex = 67 + Label33.Text = "인공광원:" + Label33.TextAlign = System.Drawing.ContentAlignment.MiddleRight + ' + 'Label32 + ' + Label32.AutoSize = True + Label32.BackColor = System.Drawing.Color.FromArgb(CType(CType(219, Byte), Integer), CType(CType(221, Byte), Integer), CType(CType(223, Byte), Integer)) + Label32.Font = New System.Drawing.Font("나눔고딕 ExtraBold", 8.999999!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Label32.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label32.Location = New System.Drawing.Point(13, 20) + Label32.Name = "Label32" + Label32.Size = New System.Drawing.Size(55, 14) + Label32.TabIndex = 65 + Label32.Text = "조명방식:" + Label32.TextAlign = System.Drawing.ContentAlignment.MiddleRight + ' + 'Label36 + ' + Label36.AutoSize = True + Label36.BackColor = System.Drawing.Color.FromArgb(CType(CType(219, Byte), Integer), CType(CType(221, Byte), Integer), CType(CType(223, Byte), Integer)) + Label36.Font = New System.Drawing.Font("나눔고딕 ExtraBold", 8.999999!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Label36.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label36.Location = New System.Drawing.Point(205, 20) + Label36.Name = "Label36" + Label36.Size = New System.Drawing.Size(142, 14) + Label36.TabIndex = 79 + Label36.Text = "조명에너지부하율[W/m2]:" + Label36.TextAlign = System.Drawing.ContentAlignment.MiddleRight + ' + 'Label39 + ' + Label39.AutoSize = True + Label39.BackColor = System.Drawing.Color.FromArgb(CType(CType(219, Byte), Integer), CType(CType(221, Byte), Integer), CType(CType(223, Byte), Integer)) + Label39.Font = New System.Drawing.Font("나눔고딕 ExtraBold", 8.999999!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Label39.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label39.Location = New System.Drawing.Point(13, 136) + Label39.Name = "Label39" + Label39.Size = New System.Drawing.Size(77, 14) + Label39.TabIndex = 76 + Label39.Text = "조명기기효율:" + Label39.TextAlign = System.Drawing.ContentAlignment.MiddleRight + ' + 'Label38 + ' + Label38.AutoSize = True + Label38.BackColor = System.Drawing.Color.FromArgb(CType(CType(219, Byte), Integer), CType(CType(221, Byte), Integer), CType(CType(223, Byte), Integer)) + Label38.Font = New System.Drawing.Font("나눔고딕 ExtraBold", 8.999999!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Label38.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label38.Location = New System.Drawing.Point(216, 117) + Label38.Name = "Label38" + Label38.Size = New System.Drawing.Size(132, 14) + Label38.TabIndex = 78 + Label38.Text = "조명에너지부하율계산치:" + Label38.TextAlign = System.Drawing.ContentAlignment.MiddleRight + ' + 'Label40 + ' + Label40.AutoSize = True + Label40.BackColor = System.Drawing.Color.FromArgb(CType(CType(219, Byte), Integer), CType(CType(221, Byte), Integer), CType(CType(223, Byte), Integer)) + Label40.Font = New System.Drawing.Font("나눔고딕 ExtraBold", 8.999999!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Label40.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label40.Location = New System.Drawing.Point(13, 107) + Label40.Name = "Label40" + Label40.Size = New System.Drawing.Size(44, 14) + Label40.TabIndex = 77 + Label40.Text = "조명률:" + Label40.TextAlign = System.Drawing.ContentAlignment.MiddleRight + ' + '순실체적Label + ' + 순실체적Label.Anchor = System.Windows.Forms.AnchorStyles.None + 순실체적Label.AutoSize = True + 순실체적Label.BackColor = System.Drawing.Color.FromArgb(CType(CType(219, Byte), Integer), CType(CType(221, Byte), Integer), CType(CType(223, Byte), Integer)) + 순실체적Label.ForeColor = System.Drawing.SystemColors.ControlDarkDark + 순실체적Label.Location = New System.Drawing.Point(5, 107) + 순실체적Label.Name = "순실체적Label" + 순실체적Label.Size = New System.Drawing.Size(70, 14) + 순실체적Label.TabIndex = 22 + 순실체적Label.Text = "실체적[m3]:" + ' + '천장고Label + ' + 천장고Label.Anchor = System.Windows.Forms.AnchorStyles.None + 천장고Label.AutoSize = True + 천장고Label.BackColor = System.Drawing.Color.FromArgb(CType(CType(219, Byte), Integer), CType(CType(221, Byte), Integer), CType(CType(223, Byte), Integer)) + 천장고Label.ForeColor = System.Drawing.SystemColors.ControlDarkDark + 천장고Label.Location = New System.Drawing.Point(5, 78) + 천장고Label.Name = "천장고Label" + 천장고Label.Size = New System.Drawing.Size(69, 14) + 천장고Label.TabIndex = 21 + 천장고Label.Text = "천 장 고[m]:" + ' + 'Label1 + ' + Label1.Anchor = System.Windows.Forms.AnchorStyles.None + 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(5, 49) + Label1.Name = "Label1" + Label1.Size = New System.Drawing.Size(68, 14) + Label1.TabIndex = 23 + Label1.Text = "면 적[m2]:" + ' + 'Label2 + ' + Label2.Anchor = System.Windows.Forms.AnchorStyles.None + Label2.AutoSize = True + Label2.BackColor = System.Drawing.Color.FromArgb(CType(CType(219, Byte), Integer), CType(CType(221, Byte), Integer), CType(CType(223, Byte), Integer)) + Label2.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label2.Location = New System.Drawing.Point(5, 20) + Label2.Name = "Label2" + Label2.Size = New System.Drawing.Size(66, 14) + Label2.TabIndex = 20 + Label2.Text = "사용프로필:" + Label2.TextAlign = System.Drawing.ContentAlignment.MiddleRight + ' + '냉난방방식Label + ' + 냉난방방식Label.AutoSize = True + 냉난방방식Label.BackColor = System.Drawing.Color.FromArgb(CType(CType(219, Byte), Integer), CType(CType(221, Byte), Integer), CType(CType(223, Byte), Integer)) + 냉난방방식Label.ForeColor = System.Drawing.SystemColors.ControlDarkDark + 냉난방방식Label.Location = New System.Drawing.Point(5, 107) + 냉난방방식Label.Name = "냉난방방식Label" + 냉난방방식Label.Size = New System.Drawing.Size(66, 14) + 냉난방방식Label.TabIndex = 33 + 냉난방방식Label.Text = "냉난방방식:" + ' + '침기율Label + ' + 침기율Label.AutoSize = True + 침기율Label.BackColor = System.Drawing.Color.FromArgb(CType(CType(219, Byte), Integer), CType(CType(221, Byte), Integer), CType(CType(223, Byte), Integer)) + 침기율Label.ForeColor = System.Drawing.SystemColors.ControlDarkDark + 침기율Label.Location = New System.Drawing.Point(5, 78) + 침기율Label.Name = "침기율Label" + 침기율Label.Size = New System.Drawing.Size(71, 14) + 침기율Label.TabIndex = 32 + 침기율Label.Text = "침기율[1/h]:" + ' + '열교가산치Label + ' + 열교가산치Label.AutoSize = True + 열교가산치Label.BackColor = System.Drawing.Color.FromArgb(CType(CType(219, Byte), Integer), CType(CType(221, Byte), Integer), CType(CType(223, Byte), Integer)) + 열교가산치Label.ForeColor = System.Drawing.SystemColors.ControlDarkDark + 열교가산치Label.Location = New System.Drawing.Point(5, 49) + 열교가산치Label.Name = "열교가산치Label" + 열교가산치Label.Size = New System.Drawing.Size(66, 14) + 열교가산치Label.TabIndex = 31 + 열교가산치Label.Text = "열교가산치:" + ' + '열저장능력Label + ' + 열저장능력Label.AutoSize = True + 열저장능력Label.BackColor = System.Drawing.Color.FromArgb(CType(CType(219, Byte), Integer), CType(CType(221, Byte), Integer), CType(CType(223, Byte), Integer)) + 열저장능력Label.ForeColor = System.Drawing.SystemColors.ControlDarkDark + 열저장능력Label.Location = New System.Drawing.Point(5, 20) + 열저장능력Label.Name = "열저장능력Label" + 열저장능력Label.Size = New System.Drawing.Size(66, 14) + 열저장능력Label.TabIndex = 30 + 열저장능력Label.Text = "열저장능력:" + ' + '주말운전방식Label + ' + 주말운전방식Label.AutoSize = True + 주말운전방식Label.BackColor = System.Drawing.Color.FromArgb(CType(CType(219, Byte), Integer), CType(CType(221, Byte), Integer), CType(CType(223, Byte), Integer)) + 주말운전방식Label.ForeColor = System.Drawing.SystemColors.ControlDarkDark + 주말운전방식Label.Location = New System.Drawing.Point(5, 107) + 주말운전방식Label.Name = "주말운전방식Label" + 주말운전방식Label.Size = New System.Drawing.Size(77, 14) + 주말운전방식Label.TabIndex = 38 + 주말운전방식Label.Text = "주말운전방식:" + ' + '야간운전방식Label + ' + 야간운전방식Label.AutoSize = True + 야간운전방식Label.BackColor = System.Drawing.Color.FromArgb(CType(CType(219, Byte), Integer), CType(CType(221, Byte), Integer), CType(CType(223, Byte), Integer)) + 야간운전방식Label.ForeColor = System.Drawing.SystemColors.ControlDarkDark + 야간운전방식Label.Location = New System.Drawing.Point(5, 78) + 야간운전방식Label.Name = "야간운전방식Label" + 야간운전방식Label.Size = New System.Drawing.Size(77, 14) + 야간운전방식Label.TabIndex = 37 + 야간운전방식Label.Text = "야간운전방식:" + ' + '외기부하처리여부Label + ' + 외기부하처리여부Label.AutoSize = True + 외기부하처리여부Label.BackColor = System.Drawing.Color.FromArgb(CType(CType(219, Byte), Integer), CType(CType(221, Byte), Integer), CType(CType(223, Byte), Integer)) + 외기부하처리여부Label.ForeColor = System.Drawing.SystemColors.ControlDarkDark + 외기부하처리여부Label.Location = New System.Drawing.Point(5, 49) + 외기부하처리여부Label.Name = "외기부하처리여부Label" + 외기부하처리여부Label.Size = New System.Drawing.Size(77, 14) + 외기부하처리여부Label.TabIndex = 36 + 외기부하처리여부Label.Text = "외기부하처리:" + ' + '냉난방공조Label + ' + 냉난방공조Label.AutoSize = True + 냉난방공조Label.BackColor = System.Drawing.Color.FromArgb(CType(CType(219, Byte), Integer), CType(CType(221, Byte), Integer), CType(CType(223, Byte), Integer)) + 냉난방공조Label.ForeColor = System.Drawing.SystemColors.ControlDarkDark + 냉난방공조Label.Location = New System.Drawing.Point(5, 20) + 냉난방공조Label.Name = "냉난방공조Label" + 냉난방공조Label.Size = New System.Drawing.Size(66, 14) + 냉난방공조Label.TabIndex = 35 + 냉난방공조Label.Text = "냉난방공조:" + ' + 'Label10 + ' + Label10.AutoSize = True + Label10.BackColor = System.Drawing.Color.FromArgb(CType(CType(243, Byte), Integer), CType(CType(244, Byte), Integer), CType(CType(246, Byte), Integer)) + Label10.Font = New System.Drawing.Font("나눔고딕 ExtraBold", 8.999999!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Label10.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label10.Location = New System.Drawing.Point(3, 31) + Label10.Name = "Label10" + Label10.Size = New System.Drawing.Size(77, 14) + Label10.TabIndex = 44 + Label10.Text = "공조난방기기:" + ' + 'Label11 + ' + Label11.AutoSize = True + Label11.BackColor = System.Drawing.Color.FromArgb(CType(CType(243, Byte), Integer), CType(CType(244, Byte), Integer), CType(CType(246, Byte), Integer)) + Label11.Font = New System.Drawing.Font("나눔고딕 ExtraBold", 8.999999!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Label11.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label11.Location = New System.Drawing.Point(3, 58) + Label11.Name = "Label11" + Label11.Size = New System.Drawing.Size(77, 14) + Label11.TabIndex = 44 + Label11.Text = "공조냉방기기:" + ' + 'Label16 + ' + Label16.AutoSize = True + Label16.BackColor = System.Drawing.Color.White + Label16.ForeColor = System.Drawing.SystemColors.HotTrack + Label16.Location = New System.Drawing.Point(393, 12) + Label16.Name = "Label16" + Label16.Size = New System.Drawing.Size(72, 14) + Label16.TabIndex = 35 + Label16.Text = "입력존의 수 :" + ' + 'Label18 + ' + Label18.AutoSize = True + Label18.BackColor = System.Drawing.Color.White + Label18.ForeColor = System.Drawing.SystemColors.HotTrack + Label18.Location = New System.Drawing.Point(167, 12) + Label18.Name = "Label18" + Label18.Size = New System.Drawing.Size(36, 14) + Label18.TabIndex = 93 + Label18.Text = "그룹 :" + ' + '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.lb_grpname) + Me.SplitContainer1.Panel1.Controls.Add(Me.bn) + ' + 'SplitContainer1.Panel2 + ' + Me.SplitContainer1.Panel2.AllowDrop = True + Me.SplitContainer1.Panel2.AutoScroll = True + Me.SplitContainer1.Panel2.Controls.Add(Me.cmb_그룹_존) + Me.SplitContainer1.Panel2.Controls.Add(Label18) + Me.SplitContainer1.Panel2.Controls.Add(Me.ToolStrip1) + Me.SplitContainer1.Panel2.Controls.Add(Me.Label17) + Me.SplitContainer1.Panel2.Controls.Add(Me.Label15) + Me.SplitContainer1.Panel2.Controls.Add(Me.입력존의수NTb) + Me.SplitContainer1.Panel2.Controls.Add(Me.PictureBox3) + Me.SplitContainer1.Panel2.Controls.Add(Me.PictureBox1) + Me.SplitContainer1.Panel2.Controls.Add(Label16) + Me.SplitContainer1.Panel2.Controls.Add(Me.GroupBox8) + Me.SplitContainer1.Panel2.Controls.Add(Me.GroupBox7) + Me.SplitContainer1.Panel2.Controls.Add(Me.GroupBox6) + Me.SplitContainer1.Panel2.Controls.Add(Me.GroupBox5) + Me.SplitContainer1.Panel2.Controls.Add(Me.GroupBox4) + Me.SplitContainer1.Panel2.Controls.Add(Me.GroupBox3) + Me.SplitContainer1.Panel2.Controls.Add(Me.GroupBox2) + Me.SplitContainer1.Panel2.Controls.Add(Me.난방공급시스템GroupBox) + Me.SplitContainer1.Size = New System.Drawing.Size(795, 531) + Me.SplitContainer1.SplitterDistance = 212 + Me.SplitContainer1.TabIndex = 151 + ' + 'dv + ' + Me.dv.A_DelCurrentCell = True + Me.dv.A_EnterToTab = True + 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.FromArgb(CType(CType(245, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(246, Byte), Integer)) + 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, 26) + Me.dv.Margin = New System.Windows.Forms.Padding(3, 5, 3, 5) + 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, 463) + Me.dv.TabIndex = 0 + ' + 'DataGridViewTextBoxColumn1 + ' + Me.DataGridViewTextBoxColumn1.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.Fill + Me.DataGridViewTextBoxColumn1.DataPropertyName = "설명" + Me.DataGridViewTextBoxColumn1.HeaderText = "설명" + Me.DataGridViewTextBoxColumn1.Name = "DataGridViewTextBoxColumn1" + ' + 'bs + ' + Me.bs.DataMember = "tbl_zone" + Me.bs.DataSource = Me.DS + Me.bs.Filter = "code <> '0'" + ' + 'DS + ' + Me.DS.DataSetName = "DS" + Me.DS.SchemaSerializationMode = System.Data.SchemaSerializationMode.IncludeSchema + ' + 'lb_grpname + ' + Me.lb_grpname.BackColor = System.Drawing.Color.LightSkyBlue + Me.lb_grpname.Dock = System.Windows.Forms.DockStyle.Top + Me.lb_grpname.ForeColor = System.Drawing.SystemColors.HotTrack + Me.lb_grpname.Location = New System.Drawing.Point(0, 0) + Me.lb_grpname.Name = "lb_grpname" + Me.lb_grpname.Size = New System.Drawing.Size(210, 26) + Me.lb_grpname.TabIndex = 94 + Me.lb_grpname.Text = "그룹 :" + Me.lb_grpname.TextAlign = System.Drawing.ContentAlignment.MiddleCenter + ' + 'bn + ' + Me.bn.AddNewItem = Nothing + Me.bn.AutoSize = False + Me.bn.BindingSource = Me.bs + Me.bn.CountItem = Me.ToolStripLabel1 + Me.bn.DeleteItem = Nothing + Me.bn.Dock = System.Windows.Forms.DockStyle.Bottom + Me.bn.Font = New System.Drawing.Font("나눔고딕 ExtraBold", 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_copy, Me.bt_cancel, Me.ToolStripSeparator1, Me.lbl_pos, Me.ToolStripLabel1}) + Me.bn.Location = New System.Drawing.Point(0, 489) + 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, 40) + Me.bn.TabIndex = 1 + Me.bn.Text = "BindingNavigator1" + ' + 'ToolStripLabel1 + ' + Me.ToolStripLabel1.Name = "ToolStripLabel1" + Me.ToolStripLabel1.Size = New System.Drawing.Size(27, 37) + Me.ToolStripLabel1.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, 37) + 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, 37) + Me.bt_Del.Text = "선택삭제(&D)" + Me.bt_Del.ToolTipText = "선택된 데이터를 삭제합니다" + ' + 'bt_copy + ' + Me.bt_copy.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.bt_copy.Image = Global.Eco2Ar.My.Resources.Resources.page_copy + Me.bt_copy.ImageTransparentColor = System.Drawing.Color.Magenta + Me.bt_copy.Name = "bt_copy" + Me.bt_copy.Size = New System.Drawing.Size(24, 37) + Me.bt_copy.Text = "선택복사" + Me.bt_copy.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, 37) + 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, 40) + ' + 'lbl_pos + ' + Me.lbl_pos.Name = "lbl_pos" + Me.lbl_pos.Size = New System.Drawing.Size(14, 37) + Me.lbl_pos.Text = "0" + ' + 'cmb_그룹_존 + ' + Me.cmb_그룹_존.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList + Me.cmb_그룹_존.FormattingEnabled = True + Me.cmb_그룹_존.Items.AddRange(New Object() {"130", "90", "50"}) + Me.cmb_그룹_존.Location = New System.Drawing.Point(206, 7) + Me.cmb_그룹_존.Name = "cmb_그룹_존" + Me.cmb_그룹_존.NectControl = Nothing + Me.cmb_그룹_존.Size = New System.Drawing.Size(162, 22) + Me.cmb_그룹_존.TabIndex = 38 + ' + 'ToolStrip1 + ' + Me.ToolStrip1.Dock = System.Windows.Forms.DockStyle.Bottom + Me.ToolStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToolStripLabel2, Me.ToolStripLabel3, Me.ToolStripLabel4, Me.ToolStripLabel5, Me.ToolStripLabel6, Me.ToolStripLabel7, Me.ToolStripLabel8, Me.ToolStripLabel9, Me.ToolStripLabel10, Me.ToolStripLabel11}) + Me.ToolStrip1.Location = New System.Drawing.Point(0, 504) + Me.ToolStrip1.Name = "ToolStrip1" + Me.ToolStrip1.Size = New System.Drawing.Size(577, 25) + Me.ToolStrip1.TabIndex = 91 + Me.ToolStrip1.Text = "ToolStrip1" + ' + 'ToolStripLabel2 + ' + Me.ToolStripLabel2.Font = New System.Drawing.Font("나눔고딕 ExtraBold", 8.999999!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.ToolStripLabel2.ForeColor = System.Drawing.Color.LightGray + Me.ToolStripLabel2.Name = "ToolStripLabel2" + Me.ToolStripLabel2.Size = New System.Drawing.Size(33, 22) + Me.ToolStripLabel2.Text = "외벽:" + ' + 'ToolStripLabel3 + ' + Me.ToolStripLabel3.Font = New System.Drawing.Font("나눔고딕 ExtraBold", 8.999999!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.ToolStripLabel3.ForeColor = System.Drawing.Color.LightGray + Me.ToolStripLabel3.Name = "ToolStripLabel3" + Me.ToolStripLabel3.Size = New System.Drawing.Size(14, 22) + Me.ToolStripLabel3.Text = "0" + ' + 'ToolStripLabel4 + ' + Me.ToolStripLabel4.Font = New System.Drawing.Font("나눔고딕 ExtraBold", 8.999999!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.ToolStripLabel4.ForeColor = System.Drawing.Color.LightGray + Me.ToolStripLabel4.Name = "ToolStripLabel4" + Me.ToolStripLabel4.Size = New System.Drawing.Size(36, 22) + Me.ToolStripLabel4.Text = " 내벽:" + ' + 'ToolStripLabel5 + ' + Me.ToolStripLabel5.Font = New System.Drawing.Font("나눔고딕 ExtraBold", 8.999999!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.ToolStripLabel5.ForeColor = System.Drawing.Color.LightGray + Me.ToolStripLabel5.Name = "ToolStripLabel5" + Me.ToolStripLabel5.Size = New System.Drawing.Size(14, 22) + Me.ToolStripLabel5.Text = "0" + ' + 'ToolStripLabel6 + ' + Me.ToolStripLabel6.Font = New System.Drawing.Font("나눔고딕 ExtraBold", 8.999999!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.ToolStripLabel6.ForeColor = System.Drawing.Color.LightGray + Me.ToolStripLabel6.Name = "ToolStripLabel6" + Me.ToolStripLabel6.Size = New System.Drawing.Size(47, 22) + Me.ToolStripLabel6.Text = " 외부창:" + ' + 'ToolStripLabel7 + ' + Me.ToolStripLabel7.Font = New System.Drawing.Font("나눔고딕 ExtraBold", 8.999999!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.ToolStripLabel7.ForeColor = System.Drawing.Color.LightGray + Me.ToolStripLabel7.Name = "ToolStripLabel7" + Me.ToolStripLabel7.Size = New System.Drawing.Size(14, 22) + Me.ToolStripLabel7.Text = "0" + ' + 'ToolStripLabel8 + ' + Me.ToolStripLabel8.Font = New System.Drawing.Font("나눔고딕 ExtraBold", 8.999999!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.ToolStripLabel8.ForeColor = System.Drawing.Color.LightGray + Me.ToolStripLabel8.Name = "ToolStripLabel8" + Me.ToolStripLabel8.Size = New System.Drawing.Size(47, 22) + Me.ToolStripLabel8.Text = " 내부창:" + ' + 'ToolStripLabel9 + ' + Me.ToolStripLabel9.Font = New System.Drawing.Font("나눔고딕 ExtraBold", 8.999999!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.ToolStripLabel9.ForeColor = System.Drawing.Color.LightGray + Me.ToolStripLabel9.Name = "ToolStripLabel9" + Me.ToolStripLabel9.Size = New System.Drawing.Size(14, 22) + Me.ToolStripLabel9.Text = "0" + ' + 'ToolStripLabel10 + ' + Me.ToolStripLabel10.Font = New System.Drawing.Font("나눔고딕 ExtraBold", 8.999999!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.ToolStripLabel10.ForeColor = System.Drawing.Color.LightGray + Me.ToolStripLabel10.Name = "ToolStripLabel10" + Me.ToolStripLabel10.Size = New System.Drawing.Size(36, 22) + Me.ToolStripLabel10.Text = " 간벽:" + ' + 'ToolStripLabel11 + ' + Me.ToolStripLabel11.Font = New System.Drawing.Font("나눔고딕 ExtraBold", 8.999999!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.ToolStripLabel11.ForeColor = System.Drawing.Color.LightGray + Me.ToolStripLabel11.Name = "ToolStripLabel11" + Me.ToolStripLabel11.Size = New System.Drawing.Size(14, 22) + Me.ToolStripLabel11.Text = "0" + ' + 'Label17 + ' + Me.Label17.AutoSize = True + Me.Label17.BackColor = System.Drawing.Color.FromArgb(CType(CType(116, Byte), Integer), CType(CType(158, Byte), Integer), CType(CType(209, Byte), Integer)) + Me.Label17.ForeColor = System.Drawing.Color.White + Me.Label17.Location = New System.Drawing.Point(34, 289) + Me.Label17.Name = "Label17" + Me.Label17.Size = New System.Drawing.Size(56, 14) + Me.Label17.TabIndex = 90 + Me.Label17.Text = "조 명" + ' + 'Label15 + ' + Me.Label15.AutoSize = True + Me.Label15.BackColor = System.Drawing.Color.FromArgb(CType(CType(116, Byte), Integer), CType(CType(158, Byte), Integer), CType(CType(209, Byte), Integer)) + Me.Label15.ForeColor = System.Drawing.Color.White + Me.Label15.Location = New System.Drawing.Point(34, 14) + Me.Label15.Name = "Label15" + Me.Label15.Size = New System.Drawing.Size(62, 14) + Me.Label15.TabIndex = 90 + Me.Label15.Text = "일반데이터" + ' + '입력존의수NTb + ' + Me.입력존의수NTb.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bs, "입력존의수", True)) + Me.입력존의수NTb.Location = New System.Drawing.Point(471, 9) + Me.입력존의수NTb.Name = "입력존의수NTb" + Me.입력존의수NTb.NectControl = Nothing + Me.입력존의수NTb.Size = New System.Drawing.Size(80, 21) + Me.입력존의수NTb.TabIndex = 6 + Me.입력존의수NTb.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + ' + 'PictureBox3 + ' + Me.PictureBox3.BackgroundImage = CType(resources.GetObject("PictureBox3.BackgroundImage"), System.Drawing.Image) + Me.PictureBox3.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch + Me.PictureBox3.Location = New System.Drawing.Point(15, 277) + Me.PictureBox3.Name = "PictureBox3" + Me.PictureBox3.Size = New System.Drawing.Size(131, 30) + Me.PictureBox3.TabIndex = 83 + Me.PictureBox3.TabStop = False + ' + 'PictureBox1 + ' + Me.PictureBox1.BackgroundImage = CType(resources.GetObject("PictureBox1.BackgroundImage"), System.Drawing.Image) + Me.PictureBox1.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch + Me.PictureBox1.Location = New System.Drawing.Point(15, 3) + Me.PictureBox1.Name = "PictureBox1" + Me.PictureBox1.Size = New System.Drawing.Size(131, 30) + Me.PictureBox1.TabIndex = 83 + Me.PictureBox1.TabStop = False + ' + 'GroupBox8 + ' + Me.GroupBox8.BackColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer)) + Me.GroupBox8.Controls.Add(주말운전방식Label) + Me.GroupBox8.Controls.Add(외기부하처리여부Label) + Me.GroupBox8.Controls.Add(야간운전방식Label) + Me.GroupBox8.Controls.Add(Me.냉난방공조ComboBox) + Me.GroupBox8.Controls.Add(Me.외기부하처리여부ComboBox) + Me.GroupBox8.Controls.Add(냉난방공조Label) + Me.GroupBox8.Controls.Add(Me.야간운전방식ComboBox) + Me.GroupBox8.Controls.Add(Me.주말운전방식ComboBox) + Me.GroupBox8.Controls.Add(Me.PictureBox8) + Me.GroupBox8.Location = New System.Drawing.Point(388, 27) + Me.GroupBox8.Name = "GroupBox8" + Me.GroupBox8.Size = New System.Drawing.Size(180, 132) + Me.GroupBox8.TabIndex = 89 + Me.GroupBox8.TabStop = False + ' + '냉난방공조ComboBox + ' + Me.냉난방공조ComboBox.DisplayMember = "code" + Me.냉난방공조ComboBox.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList + Me.냉난방공조ComboBox.Font = New System.Drawing.Font("나눔고딕 ExtraBold", 8.999999!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.냉난방공조ComboBox.FormattingEnabled = True + Me.냉난방공조ComboBox.Location = New System.Drawing.Point(83, 16) + Me.냉난방공조ComboBox.Name = "냉난방공조ComboBox" + Me.냉난방공조ComboBox.NectControl = Nothing + Me.냉난방공조ComboBox.Size = New System.Drawing.Size(80, 22) + Me.냉난방공조ComboBox.TabIndex = 8 + Me.냉난방공조ComboBox.ValueMember = "code" + ' + '외기부하처리여부ComboBox + ' + Me.외기부하처리여부ComboBox.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList + Me.외기부하처리여부ComboBox.FormattingEnabled = True + Me.외기부하처리여부ComboBox.Location = New System.Drawing.Point(83, 45) + Me.외기부하처리여부ComboBox.Name = "외기부하처리여부ComboBox" + Me.외기부하처리여부ComboBox.NectControl = Nothing + Me.외기부하처리여부ComboBox.Size = New System.Drawing.Size(80, 22) + Me.외기부하처리여부ComboBox.TabIndex = 9 + ' + '야간운전방식ComboBox + ' + Me.야간운전방식ComboBox.DisplayMember = "code" + Me.야간운전방식ComboBox.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList + Me.야간운전방식ComboBox.FormattingEnabled = True + Me.야간운전방식ComboBox.Location = New System.Drawing.Point(83, 74) + Me.야간운전방식ComboBox.Name = "야간운전방식ComboBox" + Me.야간운전방식ComboBox.NectControl = Nothing + Me.야간운전방식ComboBox.Size = New System.Drawing.Size(80, 22) + Me.야간운전방식ComboBox.TabIndex = 10 + Me.야간운전방식ComboBox.ValueMember = "code" + ' + '주말운전방식ComboBox + ' + Me.주말운전방식ComboBox.DisplayMember = "code" + Me.주말운전방식ComboBox.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList + Me.주말운전방식ComboBox.FormattingEnabled = True + Me.주말운전방식ComboBox.Location = New System.Drawing.Point(83, 103) + Me.주말운전방식ComboBox.Name = "주말운전방식ComboBox" + Me.주말운전방식ComboBox.NectControl = Me.냉난방열공급시스템ComboBox + Me.주말운전방식ComboBox.Size = New System.Drawing.Size(80, 22) + Me.주말운전방식ComboBox.TabIndex = 11 + Me.주말운전방식ComboBox.ValueMember = "code" + ' + '냉난방열공급시스템ComboBox + ' + Me.냉난방열공급시스템ComboBox.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList + Me.냉난방열공급시스템ComboBox.Font = New System.Drawing.Font("나눔고딕 ExtraBold", 8.999999!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.냉난방열공급시스템ComboBox.FormattingEnabled = True + Me.냉난방열공급시스템ComboBox.Location = New System.Drawing.Point(80, 29) + Me.냉난방열공급시스템ComboBox.Name = "냉난방열공급시스템ComboBox" + Me.냉난방열공급시스템ComboBox.NectControl = Nothing + Me.냉난방열공급시스템ComboBox.Size = New System.Drawing.Size(90, 22) + Me.냉난방열공급시스템ComboBox.TabIndex = 12 + ' + 'PictureBox8 + ' + Me.PictureBox8.BackColor = System.Drawing.Color.FromArgb(CType(CType(219, Byte), Integer), CType(CType(221, Byte), Integer), CType(CType(223, Byte), Integer)) + Me.PictureBox8.Location = New System.Drawing.Point(0, 9) + Me.PictureBox8.Name = "PictureBox8" + Me.PictureBox8.Size = New System.Drawing.Size(180, 120) + Me.PictureBox8.TabIndex = 37 + Me.PictureBox8.TabStop = False + ' + 'GroupBox7 + ' + Me.GroupBox7.BackColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer)) + Me.GroupBox7.Controls.Add(침기율Label) + Me.GroupBox7.Controls.Add(Me.열교가산치ComboBox) + Me.GroupBox7.Controls.Add(Me.열저장능력ComboBox) + Me.GroupBox7.Controls.Add(Me.침기율NTb) + Me.GroupBox7.Controls.Add(냉난방방식Label) + Me.GroupBox7.Controls.Add(Me.cmb_냉난방방식) + Me.GroupBox7.Controls.Add(열저장능력Label) + Me.GroupBox7.Controls.Add(열교가산치Label) + Me.GroupBox7.Controls.Add(Me.PictureBox7) + Me.GroupBox7.Location = New System.Drawing.Point(207, 27) + Me.GroupBox7.Name = "GroupBox7" + Me.GroupBox7.Size = New System.Drawing.Size(181, 132) + Me.GroupBox7.TabIndex = 88 + Me.GroupBox7.TabStop = False + ' + '열교가산치ComboBox + ' + Me.열교가산치ComboBox.DisplayMember = "code" + Me.열교가산치ComboBox.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList + Me.열교가산치ComboBox.FormattingEnabled = True + Me.열교가산치ComboBox.Location = New System.Drawing.Point(77, 45) + Me.열교가산치ComboBox.Name = "열교가산치ComboBox" + Me.열교가산치ComboBox.NectControl = Nothing + Me.열교가산치ComboBox.Size = New System.Drawing.Size(84, 22) + Me.열교가산치ComboBox.TabIndex = 5 + Me.열교가산치ComboBox.ValueMember = "code" + ' + '열저장능력ComboBox + ' + Me.열저장능력ComboBox.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList + Me.열저장능력ComboBox.FormattingEnabled = True + Me.열저장능력ComboBox.Items.AddRange(New Object() {"130", "90", "50"}) + Me.열저장능력ComboBox.Location = New System.Drawing.Point(77, 16) + Me.열저장능력ComboBox.Name = "열저장능력ComboBox" + Me.열저장능력ComboBox.NectControl = Nothing + Me.열저장능력ComboBox.Size = New System.Drawing.Size(84, 22) + Me.열저장능력ComboBox.TabIndex = 4 + ' + '침기율NTb + ' + Me.침기율NTb.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bs, "침기율", True)) + Me.침기율NTb.Location = New System.Drawing.Point(77, 74) + Me.침기율NTb.Name = "침기율NTb" + Me.침기율NTb.NectControl = Nothing + Me.침기율NTb.Size = New System.Drawing.Size(84, 21) + Me.침기율NTb.TabIndex = 6 + Me.침기율NTb.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(77, 103) + Me.cmb_냉난방방식.Name = "cmb_냉난방방식" + Me.cmb_냉난방방식.NectControl = Nothing + Me.cmb_냉난방방식.Size = New System.Drawing.Size(84, 22) + Me.cmb_냉난방방식.TabIndex = 7 + ' + 'PictureBox7 + ' + Me.PictureBox7.BackColor = System.Drawing.Color.FromArgb(CType(CType(219, Byte), Integer), CType(CType(221, Byte), Integer), CType(CType(223, Byte), Integer)) + Me.PictureBox7.Location = New System.Drawing.Point(1, 9) + Me.PictureBox7.Name = "PictureBox7" + Me.PictureBox7.Size = New System.Drawing.Size(177, 120) + Me.PictureBox7.TabIndex = 37 + Me.PictureBox7.TabStop = False + ' + 'GroupBox6 + ' + Me.GroupBox6.Controls.Add(Me.tb_조명계산치) + Me.GroupBox6.Controls.Add(Me.tb_점등시간) + Me.GroupBox6.Controls.Add(Me.tb_조명입력치) + Me.GroupBox6.Controls.Add(Label35) + Me.GroupBox6.Controls.Add(Me.보수율NTb) + Me.GroupBox6.Controls.Add(Label36) + Me.GroupBox6.Controls.Add(Me.인공광원ComboBox) + Me.GroupBox6.Controls.Add(Label33) + Me.GroupBox6.Controls.Add(Label40) + Me.GroupBox6.Controls.Add(Me.조명방식ComboBox) + Me.GroupBox6.Controls.Add(Label38) + Me.GroupBox6.Controls.Add(Me.조명기기효율NTb) + Me.GroupBox6.Controls.Add(Label32) + Me.GroupBox6.Controls.Add(Me.tb_조명률) + Me.GroupBox6.Controls.Add(Label37) + Me.GroupBox6.Controls.Add(Label39) + Me.GroupBox6.Controls.Add(Me.PictureBox11) + Me.GroupBox6.Location = New System.Drawing.Point(215, 303) + Me.GroupBox6.Name = "GroupBox6" + Me.GroupBox6.Size = New System.Drawing.Size(353, 192) + Me.GroupBox6.TabIndex = 87 + Me.GroupBox6.TabStop = False + ' + 'tb_조명계산치 + ' + Me.tb_조명계산치.BackColor = System.Drawing.Color.DarkGray + Me.tb_조명계산치.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bs, "조명에너지부하율계산치", True)) + Me.tb_조명계산치.Font = New System.Drawing.Font("나눔고딕 ExtraBold", 8.999999!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.tb_조명계산치.Location = New System.Drawing.Point(241, 139) + Me.tb_조명계산치.Margin = New System.Windows.Forms.Padding(0) + Me.tb_조명계산치.Name = "tb_조명계산치" + Me.tb_조명계산치.NectControl = Nothing + Me.tb_조명계산치.ReadOnly = True + Me.tb_조명계산치.Size = New System.Drawing.Size(100, 21) + Me.tb_조명계산치.TabIndex = 35 + Me.tb_조명계산치.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + ' + 'tb_점등시간 + ' + Me.tb_점등시간.BackColor = System.Drawing.Color.DarkGray + Me.tb_점등시간.Font = New System.Drawing.Font("나눔고딕 ExtraBold", 8.999999!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.tb_점등시간.Location = New System.Drawing.Point(241, 85) + Me.tb_점등시간.Margin = New System.Windows.Forms.Padding(0) + Me.tb_점등시간.Name = "tb_점등시간" + Me.tb_점등시간.NectControl = Nothing + Me.tb_점등시간.ReadOnly = True + Me.tb_점등시간.Size = New System.Drawing.Size(100, 21) + Me.tb_점등시간.TabIndex = 34 + Me.tb_점등시간.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + ' + 'tb_조명입력치 + ' + Me.tb_조명입력치.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bs, "조명에너지부하율입력치", True)) + Me.tb_조명입력치.Font = New System.Drawing.Font("나눔고딕 ExtraBold", 8.999999!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.tb_조명입력치.Location = New System.Drawing.Point(241, 39) + Me.tb_조명입력치.Margin = New System.Windows.Forms.Padding(0) + Me.tb_조명입력치.Name = "tb_조명입력치" + Me.tb_조명입력치.NectControl = Nothing + Me.tb_조명입력치.Size = New System.Drawing.Size(100, 21) + Me.tb_조명입력치.TabIndex = 33 + Me.tb_조명입력치.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + ' + '보수율NTb + ' + Me.보수율NTb.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bs, "보수율", True)) + Me.보수율NTb.Font = New System.Drawing.Font("나눔고딕 ExtraBold", 8.999999!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.보수율NTb.Location = New System.Drawing.Point(91, 77) + Me.보수율NTb.Margin = New System.Windows.Forms.Padding(0) + Me.보수율NTb.Name = "보수율NTb" + Me.보수율NTb.NectControl = Nothing + Me.보수율NTb.Size = New System.Drawing.Size(100, 21) + Me.보수율NTb.TabIndex = 30 + Me.보수율NTb.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + ' + '인공광원ComboBox + ' + Me.인공광원ComboBox.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList + Me.인공광원ComboBox.Font = New System.Drawing.Font("나눔고딕 ExtraBold", 8.999999!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.인공광원ComboBox.FormattingEnabled = True + Me.인공광원ComboBox.Location = New System.Drawing.Point(91, 49) + Me.인공광원ComboBox.Margin = New System.Windows.Forms.Padding(0) + Me.인공광원ComboBox.Name = "인공광원ComboBox" + Me.인공광원ComboBox.NectControl = Nothing + Me.인공광원ComboBox.Size = New System.Drawing.Size(100, 22) + Me.인공광원ComboBox.TabIndex = 29 + ' + '조명방식ComboBox + ' + Me.조명방식ComboBox.DisplayMember = "code" + Me.조명방식ComboBox.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList + Me.조명방식ComboBox.Font = New System.Drawing.Font("나눔고딕 ExtraBold", 8.999999!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.조명방식ComboBox.FormattingEnabled = True + Me.조명방식ComboBox.Location = New System.Drawing.Point(91, 19) + Me.조명방식ComboBox.Margin = New System.Windows.Forms.Padding(0) + Me.조명방식ComboBox.Name = "조명방식ComboBox" + Me.조명방식ComboBox.NectControl = Nothing + Me.조명방식ComboBox.Size = New System.Drawing.Size(100, 22) + Me.조명방식ComboBox.TabIndex = 28 + Me.조명방식ComboBox.ValueMember = "code" + ' + '조명기기효율NTb + ' + Me.조명기기효율NTb.BackColor = System.Drawing.Color.DarkGray + Me.조명기기효율NTb.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bs, "조명기기효율", True)) + Me.조명기기효율NTb.Font = New System.Drawing.Font("나눔고딕 ExtraBold", 8.999999!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.조명기기효율NTb.Location = New System.Drawing.Point(91, 134) + Me.조명기기효율NTb.Margin = New System.Windows.Forms.Padding(0) + Me.조명기기효율NTb.Name = "조명기기효율NTb" + Me.조명기기효율NTb.NectControl = Nothing + Me.조명기기효율NTb.ReadOnly = True + Me.조명기기효율NTb.Size = New System.Drawing.Size(100, 21) + Me.조명기기효율NTb.TabIndex = 32 + Me.조명기기효율NTb.TabStop = False + Me.조명기기효율NTb.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + ' + 'tb_조명률 + ' + Me.tb_조명률.BackColor = System.Drawing.Color.DarkGray + Me.tb_조명률.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bs, "조명률", True)) + Me.tb_조명률.Font = New System.Drawing.Font("나눔고딕 ExtraBold", 8.999999!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.tb_조명률.Location = New System.Drawing.Point(91, 105) + Me.tb_조명률.Margin = New System.Windows.Forms.Padding(0) + Me.tb_조명률.Name = "tb_조명률" + Me.tb_조명률.NectControl = Nothing + Me.tb_조명률.ReadOnly = True + Me.tb_조명률.Size = New System.Drawing.Size(100, 21) + Me.tb_조명률.TabIndex = 31 + Me.tb_조명률.TabStop = False + Me.tb_조명률.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + ' + 'PictureBox11 + ' + Me.PictureBox11.BackColor = System.Drawing.Color.FromArgb(CType(CType(219, Byte), Integer), CType(CType(221, Byte), Integer), CType(CType(223, Byte), Integer)) + Me.PictureBox11.Location = New System.Drawing.Point(2, 9) + Me.PictureBox11.Name = "PictureBox11" + Me.PictureBox11.Size = New System.Drawing.Size(348, 180) + Me.PictureBox11.TabIndex = 37 + Me.PictureBox11.TabStop = False + ' + 'GroupBox5 + ' + Me.GroupBox5.Controls.Add(Me.실지수NTb1) + Me.GroupBox5.Controls.Add(Me.천장고NTB1) + Me.GroupBox5.Controls.Add(Label41) + Me.GroupBox5.Controls.Add(Me.조명부하산출방법ComboBox) + Me.GroupBox5.Controls.Add(Me.요구조도NTb1) + Me.GroupBox5.Controls.Add(Label42) + Me.GroupBox5.Controls.Add(Me.작업면높이NTb1) + Me.GroupBox5.Controls.Add(Label43) + Me.GroupBox5.Controls.Add(Me.실깊이NTb) + Me.GroupBox5.Controls.Add(Label44) + Me.GroupBox5.Controls.Add(Me.실너비NTb) + Me.GroupBox5.Controls.Add(Label45) + Me.GroupBox5.Controls.Add(Label46) + Me.GroupBox5.Controls.Add(Label47) + Me.GroupBox5.Controls.Add(Me.PictureBox6) + Me.GroupBox5.Location = New System.Drawing.Point(7, 303) + Me.GroupBox5.Name = "GroupBox5" + Me.GroupBox5.Size = New System.Drawing.Size(209, 192) + Me.GroupBox5.TabIndex = 86 + Me.GroupBox5.TabStop = False + ' + '실지수NTb1 + ' + Me.실지수NTb1.BackColor = System.Drawing.Color.DarkGray + Me.실지수NTb1.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bs, "실지수", True)) + Me.실지수NTb1.Font = New System.Drawing.Font("나눔고딕 ExtraBold", 8.999999!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.실지수NTb1.Location = New System.Drawing.Point(128, 165) + Me.실지수NTb1.Margin = New System.Windows.Forms.Padding(0) + Me.실지수NTb1.Name = "실지수NTb1" + Me.실지수NTb1.NectControl = Nothing + Me.실지수NTb1.ReadOnly = True + Me.실지수NTb1.Size = New System.Drawing.Size(74, 21) + Me.실지수NTb1.TabIndex = 27 + Me.실지수NTb1.TabStop = False + Me.실지수NTb1.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + ' + '천장고NTB1 + ' + Me.천장고NTB1.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bs, "천장고", True)) + Me.천장고NTB1.Font = New System.Drawing.Font("나눔고딕 ExtraBold", 8.999999!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.천장고NTB1.Location = New System.Drawing.Point(128, 67) + Me.천장고NTB1.Margin = New System.Windows.Forms.Padding(0) + Me.천장고NTB1.Name = "천장고NTB1" + Me.천장고NTB1.NectControl = Nothing + Me.천장고NTB1.Size = New System.Drawing.Size(74, 21) + Me.천장고NTB1.TabIndex = 23 + Me.천장고NTB1.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + ' + '조명부하산출방법ComboBox + ' + Me.조명부하산출방법ComboBox.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList + Me.조명부하산출방법ComboBox.Font = New System.Drawing.Font("나눔고딕 ExtraBold", 8.999999!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.조명부하산출방법ComboBox.FormattingEnabled = True + Me.조명부하산출방법ComboBox.Location = New System.Drawing.Point(128, 17) + Me.조명부하산출방법ComboBox.Margin = New System.Windows.Forms.Padding(0) + Me.조명부하산출방법ComboBox.Name = "조명부하산출방법ComboBox" + Me.조명부하산출방법ComboBox.NectControl = Nothing + Me.조명부하산출방법ComboBox.Size = New System.Drawing.Size(74, 22) + Me.조명부하산출방법ComboBox.TabIndex = 21 + ' + '요구조도NTb1 + ' + Me.요구조도NTb1.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bs, "요구조도", True)) + Me.요구조도NTb1.Font = New System.Drawing.Font("나눔고딕 ExtraBold", 8.999999!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.요구조도NTb1.Location = New System.Drawing.Point(128, 42) + Me.요구조도NTb1.Margin = New System.Windows.Forms.Padding(0) + Me.요구조도NTb1.Name = "요구조도NTb1" + Me.요구조도NTb1.NectControl = Nothing + Me.요구조도NTb1.Size = New System.Drawing.Size(74, 21) + Me.요구조도NTb1.TabIndex = 22 + Me.요구조도NTb1.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + ' + '작업면높이NTb1 + ' + Me.작업면높이NTb1.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bs, "작업면높이", True)) + Me.작업면높이NTb1.Font = New System.Drawing.Font("나눔고딕 ExtraBold", 8.999999!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.작업면높이NTb1.Location = New System.Drawing.Point(128, 92) + Me.작업면높이NTb1.Margin = New System.Windows.Forms.Padding(0) + Me.작업면높이NTb1.Name = "작업면높이NTb1" + Me.작업면높이NTb1.NectControl = Nothing + Me.작업면높이NTb1.Size = New System.Drawing.Size(74, 21) + Me.작업면높이NTb1.TabIndex = 24 + Me.작업면높이NTb1.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + ' + '실깊이NTb + ' + Me.실깊이NTb.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bs, "실깊이", True)) + Me.실깊이NTb.Font = New System.Drawing.Font("나눔고딕 ExtraBold", 8.999999!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.실깊이NTb.Location = New System.Drawing.Point(128, 117) + Me.실깊이NTb.Margin = New System.Windows.Forms.Padding(0) + Me.실깊이NTb.Name = "실깊이NTb" + Me.실깊이NTb.NectControl = Nothing + Me.실깊이NTb.Size = New System.Drawing.Size(74, 21) + Me.실깊이NTb.TabIndex = 25 + Me.실깊이NTb.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + ' + '실너비NTb + ' + Me.실너비NTb.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bs, "실너비", True)) + Me.실너비NTb.Font = New System.Drawing.Font("나눔고딕 ExtraBold", 8.999999!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.실너비NTb.Location = New System.Drawing.Point(128, 142) + Me.실너비NTb.Margin = New System.Windows.Forms.Padding(0) + Me.실너비NTb.Name = "실너비NTb" + Me.실너비NTb.NectControl = Nothing + Me.실너비NTb.Size = New System.Drawing.Size(74, 21) + Me.실너비NTb.TabIndex = 26 + Me.실너비NTb.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + ' + 'PictureBox6 + ' + Me.PictureBox6.BackColor = System.Drawing.Color.FromArgb(CType(CType(219, Byte), Integer), CType(CType(221, Byte), Integer), CType(CType(223, Byte), Integer)) + Me.PictureBox6.Location = New System.Drawing.Point(2, 9) + Me.PictureBox6.Name = "PictureBox6" + Me.PictureBox6.Size = New System.Drawing.Size(205, 180) + Me.PictureBox6.TabIndex = 37 + Me.PictureBox6.TabStop = False + ' + 'GroupBox4 + ' + Me.GroupBox4.BackColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer)) + Me.GroupBox4.Controls.Add(Me.순실체적NTb) + Me.GroupBox4.Controls.Add(Me.면적NTb) + Me.GroupBox4.Controls.Add(Me.천장고NTb) + Me.GroupBox4.Controls.Add(순실체적Label) + Me.GroupBox4.Controls.Add(천장고Label) + Me.GroupBox4.Controls.Add(Label1) + Me.GroupBox4.Controls.Add(Label2) + Me.GroupBox4.Controls.Add(Me.cmb_profile) + Me.GroupBox4.Controls.Add(Me.PictureBox5) + Me.GroupBox4.Location = New System.Drawing.Point(8, 27) + Me.GroupBox4.Name = "GroupBox4" + Me.GroupBox4.Size = New System.Drawing.Size(200, 132) + Me.GroupBox4.TabIndex = 82 + Me.GroupBox4.TabStop = False + ' + '순실체적NTb + ' + Me.순실체적NTb.BackColor = System.Drawing.Color.DarkGray + Me.순실체적NTb.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bs, "순실체적", True)) + Me.순실체적NTb.Location = New System.Drawing.Point(71, 103) + Me.순실체적NTb.Name = "순실체적NTb" + Me.순실체적NTb.NectControl = Nothing + Me.순실체적NTb.ReadOnly = True + Me.순실체적NTb.Size = New System.Drawing.Size(122, 21) + Me.순실체적NTb.TabIndex = 3 + Me.순실체적NTb.TabStop = False + Me.순실체적NTb.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + ' + '면적NTb + ' + Me.면적NTb.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bs, "면적", True)) + Me.면적NTb.Location = New System.Drawing.Point(71, 45) + Me.면적NTb.Name = "면적NTb" + Me.면적NTb.NectControl = Nothing + Me.면적NTb.Size = New System.Drawing.Size(122, 21) + Me.면적NTb.TabIndex = 1 + Me.면적NTb.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + ' + '천장고NTb + ' + Me.천장고NTb.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bs, "천장고p", True)) + Me.천장고NTb.Location = New System.Drawing.Point(71, 74) + Me.천장고NTb.Name = "천장고NTb" + Me.천장고NTb.NectControl = Nothing + Me.천장고NTb.Size = New System.Drawing.Size(122, 21) + Me.천장고NTb.TabIndex = 2 + Me.천장고NTb.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + ' + 'cmb_profile + ' + Me.cmb_profile.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList + Me.cmb_profile.FormattingEnabled = True + Me.cmb_profile.Location = New System.Drawing.Point(71, 16) + Me.cmb_profile.Name = "cmb_profile" + Me.cmb_profile.NectControl = Nothing + Me.cmb_profile.Size = New System.Drawing.Size(122, 22) + Me.cmb_profile.TabIndex = 0 + ' + 'PictureBox5 + ' + Me.PictureBox5.BackColor = System.Drawing.Color.FromArgb(CType(CType(219, Byte), Integer), CType(CType(221, Byte), Integer), CType(CType(223, Byte), Integer)) + Me.PictureBox5.Location = New System.Drawing.Point(2, 9) + Me.PictureBox5.Name = "PictureBox5" + Me.PictureBox5.Size = New System.Drawing.Size(195, 120) + Me.PictureBox5.TabIndex = 37 + Me.PictureBox5.TabStop = False + ' + 'GroupBox3 + ' + Me.GroupBox3.BackColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer)) + Me.GroupBox3.Controls.Add(Me.Label14) + Me.GroupBox3.Controls.Add(Me.cmb_공조냉방생산) + Me.GroupBox3.Controls.Add(Me.cmb_공조난방생산) + Me.GroupBox3.Controls.Add(Me.cmb_공조가습생산) + Me.GroupBox3.Controls.Add(Label11) + Me.GroupBox3.Controls.Add(Label10) + Me.GroupBox3.Controls.Add(Label7) + Me.GroupBox3.Controls.Add(Me.PictureBox10) + Me.GroupBox3.Location = New System.Drawing.Point(372, 155) + Me.GroupBox3.Name = "GroupBox3" + Me.GroupBox3.Size = New System.Drawing.Size(196, 118) + Me.GroupBox3.TabIndex = 37 + Me.GroupBox3.TabStop = False + ' + 'Label14 + ' + Me.Label14.AutoSize = True + Me.Label14.BackColor = System.Drawing.Color.FromArgb(CType(CType(243, Byte), Integer), CType(CType(244, Byte), Integer), CType(CType(246, Byte), Integer)) + Me.Label14.Location = New System.Drawing.Point(7, 11) + Me.Label14.Name = "Label14" + Me.Label14.Size = New System.Drawing.Size(59, 14) + Me.Label14.TabIndex = 90 + Me.Label14.Text = "[공조처리]" + ' + 'cmb_공조냉방생산 + ' + Me.cmb_공조냉방생산.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList + Me.cmb_공조냉방생산.Font = New System.Drawing.Font("나눔고딕 ExtraBold", 8.999999!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.cmb_공조냉방생산.FormattingEnabled = True + Me.cmb_공조냉방생산.Location = New System.Drawing.Point(80, 55) + Me.cmb_공조냉방생산.Name = "cmb_공조냉방생산" + Me.cmb_공조냉방생산.NectControl = Nothing + Me.cmb_공조냉방생산.Size = New System.Drawing.Size(106, 22) + Me.cmb_공조냉방생산.TabIndex = 19 + ' + 'cmb_공조난방생산 + ' + Me.cmb_공조난방생산.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList + Me.cmb_공조난방생산.Font = New System.Drawing.Font("나눔고딕 ExtraBold", 8.999999!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.cmb_공조난방생산.FormattingEnabled = True + Me.cmb_공조난방생산.Location = New System.Drawing.Point(80, 29) + Me.cmb_공조난방생산.Name = "cmb_공조난방생산" + Me.cmb_공조난방생산.NectControl = Nothing + Me.cmb_공조난방생산.Size = New System.Drawing.Size(106, 22) + Me.cmb_공조난방생산.TabIndex = 18 + ' + 'cmb_공조가습생산 + ' + Me.cmb_공조가습생산.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList + Me.cmb_공조가습생산.Font = New System.Drawing.Font("나눔고딕 ExtraBold", 8.999999!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.cmb_공조가습생산.FormattingEnabled = True + Me.cmb_공조가습생산.Location = New System.Drawing.Point(80, 82) + Me.cmb_공조가습생산.Name = "cmb_공조가습생산" + Me.cmb_공조가습생산.NectControl = Nothing + Me.cmb_공조가습생산.Size = New System.Drawing.Size(106, 22) + Me.cmb_공조가습생산.TabIndex = 20 + ' + 'PictureBox10 + ' + Me.PictureBox10.BackColor = System.Drawing.Color.FromArgb(CType(CType(243, Byte), Integer), CType(CType(244, Byte), Integer), CType(CType(246, Byte), Integer)) + Me.PictureBox10.Location = New System.Drawing.Point(0, 9) + Me.PictureBox10.Name = "PictureBox10" + Me.PictureBox10.Size = New System.Drawing.Size(194, 106) + Me.PictureBox10.TabIndex = 37 + Me.PictureBox10.TabStop = False + ' + 'GroupBox2 + ' + Me.GroupBox2.BackColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer)) + Me.GroupBox2.Controls.Add(Label6) + Me.GroupBox2.Controls.Add(Me.Label13) + Me.GroupBox2.Controls.Add(Me.cmb_열생산지정1) + Me.GroupBox2.Controls.Add(Me.cmb_열생산지정3) + Me.GroupBox2.Controls.Add(Label8) + Me.GroupBox2.Controls.Add(Me.cmb_열생산급탕기기) + Me.GroupBox2.Controls.Add(Label9) + Me.GroupBox2.Controls.Add(Me.PictureBox9) + Me.GroupBox2.Location = New System.Drawing.Point(186, 155) + Me.GroupBox2.Name = "GroupBox2" + Me.GroupBox2.Size = New System.Drawing.Size(184, 118) + Me.GroupBox2.TabIndex = 37 + Me.GroupBox2.TabStop = False + ' + 'Label13 + ' + Me.Label13.AutoSize = True + Me.Label13.BackColor = System.Drawing.Color.FromArgb(CType(CType(243, Byte), Integer), CType(CType(244, Byte), Integer), CType(CType(246, Byte), Integer)) + Me.Label13.Location = New System.Drawing.Point(8, 11) + Me.Label13.Name = "Label13" + Me.Label13.Size = New System.Drawing.Size(48, 14) + Me.Label13.TabIndex = 90 + Me.Label13.Text = "[열생산]" + ' + 'cmb_열생산지정1 + ' + Me.cmb_열생산지정1.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList + Me.cmb_열생산지정1.Font = New System.Drawing.Font("나눔고딕 ExtraBold", 8.999999!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.cmb_열생산지정1.FormattingEnabled = True + Me.cmb_열생산지정1.Location = New System.Drawing.Point(74, 28) + Me.cmb_열생산지정1.Name = "cmb_열생산지정1" + Me.cmb_열생산지정1.NectControl = Nothing + Me.cmb_열생산지정1.Size = New System.Drawing.Size(106, 22) + Me.cmb_열생산지정1.TabIndex = 15 + ' + 'cmb_열생산지정3 + ' + Me.cmb_열생산지정3.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList + Me.cmb_열생산지정3.Font = New System.Drawing.Font("나눔고딕 ExtraBold", 8.999999!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.cmb_열생산지정3.FormattingEnabled = True + Me.cmb_열생산지정3.Location = New System.Drawing.Point(74, 82) + Me.cmb_열생산지정3.Name = "cmb_열생산지정3" + Me.cmb_열생산지정3.NectControl = Nothing + Me.cmb_열생산지정3.Size = New System.Drawing.Size(106, 22) + Me.cmb_열생산지정3.TabIndex = 17 + ' + 'cmb_열생산급탕기기 + ' + Me.cmb_열생산급탕기기.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList + Me.cmb_열생산급탕기기.Font = New System.Drawing.Font("나눔고딕 ExtraBold", 8.999999!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.cmb_열생산급탕기기.FormattingEnabled = True + Me.cmb_열생산급탕기기.Location = New System.Drawing.Point(74, 55) + Me.cmb_열생산급탕기기.Name = "cmb_열생산급탕기기" + Me.cmb_열생산급탕기기.NectControl = Nothing + Me.cmb_열생산급탕기기.Size = New System.Drawing.Size(106, 22) + Me.cmb_열생산급탕기기.TabIndex = 16 + ' + 'PictureBox9 + ' + Me.PictureBox9.BackColor = System.Drawing.Color.FromArgb(CType(CType(243, Byte), Integer), CType(CType(244, Byte), Integer), CType(CType(246, Byte), Integer)) + Me.PictureBox9.Location = New System.Drawing.Point(2, 9) + Me.PictureBox9.Name = "PictureBox9" + Me.PictureBox9.Size = New System.Drawing.Size(182, 106) + Me.PictureBox9.TabIndex = 37 + Me.PictureBox9.TabStop = False + ' + '난방공급시스템GroupBox + ' + Me.난방공급시스템GroupBox.BackColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer)) + Me.난방공급시스템GroupBox.Controls.Add(Me.Label12) + Me.난방공급시스템GroupBox.Controls.Add(Label3) + Me.난방공급시스템GroupBox.Controls.Add(Me.냉난방열공급시스템ComboBox) + Me.난방공급시스템GroupBox.Controls.Add(Me.냉난방공조처리시스템ComboBox) + Me.난방공급시스템GroupBox.Controls.Add(Label4) + Me.난방공급시스템GroupBox.Controls.Add(Me.냉난방열공급시스템수NTb) + Me.난방공급시스템GroupBox.Controls.Add(Label5) + Me.난방공급시스템GroupBox.Controls.Add(Me.PictureBox4) + Me.난방공급시스템GroupBox.Location = New System.Drawing.Point(7, 155) + Me.난방공급시스템GroupBox.Name = "난방공급시스템GroupBox" + Me.난방공급시스템GroupBox.Size = New System.Drawing.Size(178, 118) + Me.난방공급시스템GroupBox.TabIndex = 8 + Me.난방공급시스템GroupBox.TabStop = False + ' + 'Label12 + ' + Me.Label12.AutoSize = True + Me.Label12.BackColor = System.Drawing.Color.FromArgb(CType(CType(243, Byte), Integer), CType(CType(244, Byte), Integer), CType(CType(246, Byte), Integer)) + Me.Label12.Location = New System.Drawing.Point(12, 12) + Me.Label12.Name = "Label12" + Me.Label12.Size = New System.Drawing.Size(92, 14) + Me.Label12.TabIndex = 90 + Me.Label12.Text = "[난방공급시스템]" + ' + '냉난방공조처리시스템ComboBox + ' + Me.냉난방공조처리시스템ComboBox.DisplayMember = "code" + Me.냉난방공조처리시스템ComboBox.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList + Me.냉난방공조처리시스템ComboBox.Font = New System.Drawing.Font("나눔고딕 ExtraBold", 8.999999!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.냉난방공조처리시스템ComboBox.FormattingEnabled = True + Me.냉난방공조처리시스템ComboBox.Location = New System.Drawing.Point(80, 86) + Me.냉난방공조처리시스템ComboBox.Name = "냉난방공조처리시스템ComboBox" + Me.냉난방공조처리시스템ComboBox.NectControl = Me.cmb_열생산지정1 + Me.냉난방공조처리시스템ComboBox.Size = New System.Drawing.Size(90, 22) + Me.냉난방공조처리시스템ComboBox.TabIndex = 14 + Me.냉난방공조처리시스템ComboBox.ValueMember = "code" + ' + '냉난방열공급시스템수NTb + ' + Me.냉난방열공급시스템수NTb.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bs, "냉난방열공급시스템수", True)) + Me.냉난방열공급시스템수NTb.Font = New System.Drawing.Font("나눔고딕 ExtraBold", 8.999999!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.냉난방열공급시스템수NTb.Location = New System.Drawing.Point(96, 58) + Me.냉난방열공급시스템수NTb.Name = "냉난방열공급시스템수NTb" + Me.냉난방열공급시스템수NTb.NectControl = Nothing + Me.냉난방열공급시스템수NTb.Size = New System.Drawing.Size(74, 21) + Me.냉난방열공급시스템수NTb.TabIndex = 13 + Me.냉난방열공급시스템수NTb.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + ' + 'PictureBox4 + ' + Me.PictureBox4.BackColor = System.Drawing.Color.FromArgb(CType(CType(243, Byte), Integer), CType(CType(244, Byte), Integer), CType(CType(246, Byte), Integer)) + Me.PictureBox4.Location = New System.Drawing.Point(2, 9) + Me.PictureBox4.Name = "PictureBox4" + Me.PictureBox4.Size = New System.Drawing.Size(175, 106) + Me.PictureBox4.TabIndex = 37 + Me.PictureBox4.TabStop = False + ' + 'ErrProvider + ' + Me.ErrProvider.ContainerControl = Me + ' + 'Frm_Zone + ' + Me.AutoScaleDimensions = New System.Drawing.SizeF(7.0!, 14.0!) + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font + Me.AutoScroll = True + Me.AutoSize = True + Me.BackColor = System.Drawing.Color.White + Me.ClientSize = New System.Drawing.Size(795, 531) + Me.ControlBox = False + Me.Controls.Add(Me.SplitContainer1) + Me.Font = New System.Drawing.Font("나눔고딕 ExtraBold", 8.999999!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.KeyPreview = True + Me.Name = "Frm_Zone" + Me.ShowInTaskbar = False + Me.StartPosition = System.Windows.Forms.FormStartPosition.Manual + Me.Text = "입력존" + Me.SplitContainer1.Panel1.ResumeLayout(False) + Me.SplitContainer1.Panel2.ResumeLayout(False) + Me.SplitContainer1.Panel2.PerformLayout() + 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.ToolStrip1.ResumeLayout(False) + Me.ToolStrip1.PerformLayout() + CType(Me.PictureBox3, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).EndInit() + Me.GroupBox8.ResumeLayout(False) + Me.GroupBox8.PerformLayout() + CType(Me.PictureBox8, System.ComponentModel.ISupportInitialize).EndInit() + Me.GroupBox7.ResumeLayout(False) + Me.GroupBox7.PerformLayout() + CType(Me.PictureBox7, System.ComponentModel.ISupportInitialize).EndInit() + Me.GroupBox6.ResumeLayout(False) + Me.GroupBox6.PerformLayout() + CType(Me.PictureBox11, System.ComponentModel.ISupportInitialize).EndInit() + Me.GroupBox5.ResumeLayout(False) + Me.GroupBox5.PerformLayout() + CType(Me.PictureBox6, System.ComponentModel.ISupportInitialize).EndInit() + Me.GroupBox4.ResumeLayout(False) + Me.GroupBox4.PerformLayout() + CType(Me.PictureBox5, System.ComponentModel.ISupportInitialize).EndInit() + Me.GroupBox3.ResumeLayout(False) + Me.GroupBox3.PerformLayout() + CType(Me.PictureBox10, System.ComponentModel.ISupportInitialize).EndInit() + Me.GroupBox2.ResumeLayout(False) + Me.GroupBox2.PerformLayout() + CType(Me.PictureBox9, System.ComponentModel.ISupportInitialize).EndInit() + Me.난방공급시스템GroupBox.ResumeLayout(False) + Me.난방공급시스템GroupBox.PerformLayout() + CType(Me.PictureBox4, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.ErrProvider, System.ComponentModel.ISupportInitialize).EndInit() + Me.ResumeLayout(False) + + End Sub + Friend WithEvents cmb_공조가습생산 As MyCmb + Friend WithEvents 면적NTb As MyTb + Friend WithEvents cmb_열생산지정3 As MyCmb + Friend WithEvents 천장고NTb As MyTb + Friend WithEvents cmb_열생산급탕기기 As MyCmb + Friend WithEvents 순실체적NTb As MyTb + Friend WithEvents cmb_열생산지정1 As MyCmb + Friend WithEvents 열저장능력ComboBox As MyCmb + Friend WithEvents 냉난방공조처리시스템ComboBox As MyCmb + Friend WithEvents 열교가산치ComboBox As MyCmb + Friend WithEvents 냉난방열공급시스템수NTb As MyTb + Friend WithEvents 침기율NTb As MyTb + Friend WithEvents 냉난방열공급시스템ComboBox As MyCmb + Friend WithEvents 냉난방공조ComboBox As MyCmb + Friend WithEvents 외기부하처리여부ComboBox As MyCmb + Friend WithEvents 주말운전방식ComboBox As MyCmb + Friend WithEvents 야간운전방식ComboBox As MyCmb + Friend WithEvents 조명부하산출방법ComboBox As MyCmb + Friend WithEvents 인공광원ComboBox As MyCmb + Friend WithEvents 조명방식ComboBox As MyCmb + Friend WithEvents tb_조명률 As MyTb + Friend WithEvents 조명기기효율NTb As MyTb + Friend WithEvents 보수율NTb As MyTb + Friend WithEvents 실너비NTb As MyTb + Friend WithEvents 실깊이NTb As MyTb + Friend WithEvents 작업면높이NTb1 As MyTb + Friend WithEvents 요구조도NTb1 As MyTb + Friend WithEvents bs As System.Windows.Forms.BindingSource + Public WithEvents DS As Eco2Ar.DS + Friend WithEvents cmb_profile As Eco2Ar.MyCmb + Friend WithEvents cmb_냉난방방식 As Eco2Ar.MyCmb + Friend WithEvents 천장고NTB1 As Eco2Ar.MyTb + Friend WithEvents SplitContainer1 As System.Windows.Forms.SplitContainer + Friend WithEvents dv As CEnergy.arindv + Friend WithEvents bn As System.Windows.Forms.BindingNavigator + Friend WithEvents bt_add As System.Windows.Forms.ToolStripButton + Friend WithEvents bt_Del As System.Windows.Forms.ToolStripButton + Friend WithEvents bt_cancel As System.Windows.Forms.ToolStripButton + Friend WithEvents ToolStripSeparator1 As System.Windows.Forms.ToolStripSeparator + Friend WithEvents 난방공급시스템GroupBox As System.Windows.Forms.GroupBox + Friend WithEvents GroupBox3 As System.Windows.Forms.GroupBox + Friend WithEvents GroupBox2 As System.Windows.Forms.GroupBox + Friend WithEvents ToolStripLabel1 As System.Windows.Forms.ToolStripLabel + Friend WithEvents lbl_pos As System.Windows.Forms.ToolStripLabel + Friend WithEvents GroupBox4 As System.Windows.Forms.GroupBox + Friend WithEvents GroupBox6 As System.Windows.Forms.GroupBox + Friend WithEvents GroupBox5 As System.Windows.Forms.GroupBox + Friend WithEvents 실지수NTb1 As Eco2Ar.MyTb + Friend WithEvents GroupBox8 As System.Windows.Forms.GroupBox + Friend WithEvents GroupBox7 As System.Windows.Forms.GroupBox + Friend WithEvents DataGridViewTextBoxColumn1 As System.Windows.Forms.DataGridViewTextBoxColumn + Friend WithEvents tb_조명계산치 As Eco2Ar.MyTb + Friend WithEvents tb_점등시간 As Eco2Ar.MyTb + Friend WithEvents tb_조명입력치 As Eco2Ar.MyTb + Friend WithEvents ToolTip1 As System.Windows.Forms.ToolTip + Friend WithEvents PictureBox1 As System.Windows.Forms.PictureBox + Friend WithEvents PictureBox3 As System.Windows.Forms.PictureBox + Friend WithEvents PictureBox4 As System.Windows.Forms.PictureBox + Friend WithEvents PictureBox5 As System.Windows.Forms.PictureBox + Friend WithEvents Label12 As System.Windows.Forms.Label + Friend WithEvents PictureBox6 As System.Windows.Forms.PictureBox + Friend WithEvents PictureBox8 As System.Windows.Forms.PictureBox + Friend WithEvents PictureBox7 As System.Windows.Forms.PictureBox + Friend WithEvents PictureBox10 As System.Windows.Forms.PictureBox + Friend WithEvents PictureBox9 As System.Windows.Forms.PictureBox + Friend WithEvents PictureBox11 As System.Windows.Forms.PictureBox + Friend WithEvents Label14 As System.Windows.Forms.Label + Friend WithEvents Label13 As System.Windows.Forms.Label + Friend WithEvents Label17 As System.Windows.Forms.Label + Friend WithEvents Label15 As System.Windows.Forms.Label + Friend WithEvents ToolStrip1 As System.Windows.Forms.ToolStrip + Friend WithEvents ToolStripLabel2 As System.Windows.Forms.ToolStripLabel + Friend WithEvents ToolStripLabel3 As System.Windows.Forms.ToolStripLabel + Friend WithEvents ToolStripLabel4 As System.Windows.Forms.ToolStripLabel + Friend WithEvents ToolStripLabel5 As System.Windows.Forms.ToolStripLabel + Friend WithEvents ToolStripLabel6 As System.Windows.Forms.ToolStripLabel + Friend WithEvents ToolStripLabel7 As System.Windows.Forms.ToolStripLabel + Friend WithEvents ToolStripLabel8 As System.Windows.Forms.ToolStripLabel + Friend WithEvents ToolStripLabel9 As System.Windows.Forms.ToolStripLabel + Friend WithEvents ToolStripLabel10 As System.Windows.Forms.ToolStripLabel + Friend WithEvents ToolStripLabel11 As System.Windows.Forms.ToolStripLabel + Friend WithEvents cmb_공조냉방생산 As Eco2Ar.MyCmb + Friend WithEvents cmb_공조난방생산 As Eco2Ar.MyCmb + Friend WithEvents bt_copy As System.Windows.Forms.ToolStripButton + Friend WithEvents 입력존의수NTb As Eco2Ar.MyTb + Friend WithEvents ErrProvider As System.Windows.Forms.ErrorProvider + Friend WithEvents lb_grpname As System.Windows.Forms.Label + Friend WithEvents cmb_그룹_존 As Eco2Ar.MyCmb +End Class diff --git a/ArinWarev1/Forms/v20091231/Frm_Zone.resx b/ArinWarev1/Forms/v20091231/Frm_Zone.resx new file mode 100644 index 0000000..3b07b8a --- /dev/null +++ b/ArinWarev1/Forms/v20091231/Frm_Zone.resx @@ -0,0 +1,444 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=2.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 + + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + 222, 17 + + + 286, 17 + + + 353, 17 + + + 519, 17 + + + + + /9j/4AAQSkZJRgABAgEASABIAAD/7gAOQWRvYmUAZAAAAAAB/+ED5kV4aWYAAE1NACoAAAAIAAcBEgAD + AAAAAQABAAABGgAFAAAAAQAAAGIBGwAFAAAAAQAAAGoBKAADAAAAAQACAAABMQACAAAAHAAAAHIBMgAC + AAAAFAAAAI6HaQAEAAAAAQAAAKIAAADCAEgAAAABAAAASAAAAAEAAEFkb2JlIFBob3Rvc2hvcCBDUzMg + V2luZG93cwAyMDEwOjA0OjE1IDIwOjMyOjA0AAACoAIABAAAAAEAAAA8oAMABAAAAAEAAAAMAAAAAAAA + AAYBAwADAAAAAQAGAAABGgAFAAAAAQAAARABGwAFAAAAAQAAARgBKAADAAAAAQACAAACAQAEAAAAAQAA + ASACAgAEAAAAAQAAAr4AAAAAAAAASAAAAAEAAABIAAAAAf/Y/+AAEEpGSUYAAQIAAEgASAAA/+0ADEFk + b2JlX0NNAAH/7gAOQWRvYmUAZIAAAAAB/9sAhAAMCAgICQgMCQkMEQsKCxEVDwwMDxUYExMVExMYEQwM + DAwMDBEMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMAQ0LCw0ODRAODhAUDg4OFBQODg4OFBEMDAwM + DBERDAwMDAwMEQwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAz/wAARCAAMADwDASIAAhEBAxEB/90A + BAAE/8QBPwAAAQUBAQEBAQEAAAAAAAAAAwABAgQFBgcICQoLAQABBQEBAQEBAQAAAAAAAAABAAIDBAUG + BwgJCgsQAAEEAQMCBAIFBwYIBQMMMwEAAhEDBCESMQVBUWETInGBMgYUkaGxQiMkFVLBYjM0coLRQwcl + klPw4fFjczUWorKDJkSTVGRFwqN0NhfSVeJl8rOEw9N14/NGJ5SkhbSVxNTk9KW1xdXl9VZmdoaWprbG + 1ub2N0dXZ3eHl6e3x9fn9xEAAgIBAgQEAwQFBgcHBgU1AQACEQMhMRIEQVFhcSITBTKBkRShsUIjwVLR + 8DMkYuFygpJDUxVjczTxJQYWorKDByY1wtJEk1SjF2RFVTZ0ZeLys4TD03Xj80aUpIW0lcTU5PSltcXV + 5fVWZnaGlqa2xtbm9ic3R1dnd4eXp7fH/9oADAMBAAIRAxEAPwDd/amR/pH/AOcf70v2pkf6R/8AnH+9 + UUlofq/Bpevxb37UyP8ASP8A84/3pftTI/0j/wDOP96opJfq/BXr8W9+1Mj/AEj/APOP96X7UyP9I/8A + zj/eqKSX6vwV6/F3ujdbuGS2i5xfU8HVxktIG76XyW99vo27p0XGdO2/ba930dZj+q5dX+qfZPL8VAeD + 341VVr/eZhx+0bu708n/2f/iDFhJQ0NfUFJPRklMRQABAQAADEhMaW5vAhAAAG1udHJSR0IgWFlaIAfO + AAIACQAGADEAAGFjc3BNU0ZUAAAAAElFQyBzUkdCAAAAAAAAAAAAAAAAAAD21gABAAAAANMtSFAgIAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAEWNwcnQAAAFQAAAAM2Rl + c2MAAAGEAAAAbHd0cHQAAAHwAAAAFGJrcHQAAAIEAAAAFHJYWVoAAAIYAAAAFGdYWVoAAAIsAAAAFGJY + WVoAAAJAAAAAFGRtbmQAAAJUAAAAcGRtZGQAAALEAAAAiHZ1ZWQAAANMAAAAhnZpZXcAAAPUAAAAJGx1 + bWkAAAP4AAAAFG1lYXMAAAQMAAAAJHRlY2gAAAQwAAAADHJUUkMAAAQ8AAAIDGdUUkMAAAQ8AAAIDGJU + UkMAAAQ8AAAIDHRleHQAAAAAQ29weXJpZ2h0IChjKSAxOTk4IEhld2xldHQtUGFja2FyZCBDb21wYW55 + AABkZXNjAAAAAAAAABJzUkdCIElFQzYxOTY2LTIuMQAAAAAAAAAAAAAAEnNSR0IgSUVDNjE5NjYtMi4x + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABYWVogAAAAAAAA + 81EAAQAAAAEWzFhZWiAAAAAAAAAAAAAAAAAAAAAAWFlaIAAAAAAAAG+iAAA49QAAA5BYWVogAAAAAAAA + YpkAALeFAAAY2lhZWiAAAAAAAAAkoAAAD4QAALbPZGVzYwAAAAAAAAAWSUVDIGh0dHA6Ly93d3cuaWVj + LmNoAAAAAAAAAAAAAAAWSUVDIGh0dHA6Ly93d3cuaWVjLmNoAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAGRlc2MAAAAAAAAALklFQyA2MTk2Ni0yLjEgRGVmYXVsdCBSR0Ig + Y29sb3VyIHNwYWNlIC0gc1JHQgAAAAAAAAAAAAAALklFQyA2MTk2Ni0yLjEgRGVmYXVsdCBSR0IgY29s + b3VyIHNwYWNlIC0gc1JHQgAAAAAAAAAAAAAAAAAAAAAAAAAAAABkZXNjAAAAAAAAACxSZWZlcmVuY2Ug + Vmlld2luZyBDb25kaXRpb24gaW4gSUVDNjE5NjYtMi4xAAAAAAAAAAAAAAAsUmVmZXJlbmNlIFZpZXdp + bmcgQ29uZGl0aW9uIGluIElFQzYxOTY2LTIuMQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAdmlldwAA + AAAAE6T+ABRfLgAQzxQAA+3MAAQTCwADXJ4AAAABWFlaIAAAAAAATAlWAFAAAABXH+dtZWFzAAAAAAAA + AAEAAAAAAAAAAAAAAAAAAAAAAAACjwAAAAJzaWcgAAAAAENSVCBjdXJ2AAAAAAAABAAAAAAFAAoADwAU + ABkAHgAjACgALQAyADcAOwBAAEUASgBPAFQAWQBeAGMAaABtAHIAdwB8AIEAhgCLAJAAlQCaAJ8ApACp + AK4AsgC3ALwAwQDGAMsA0ADVANsA4ADlAOsA8AD2APsBAQEHAQ0BEwEZAR8BJQErATIBOAE+AUUBTAFS + AVkBYAFnAW4BdQF8AYMBiwGSAZoBoQGpAbEBuQHBAckB0QHZAeEB6QHyAfoCAwIMAhQCHQImAi8COAJB + AksCVAJdAmcCcQJ6AoQCjgKYAqICrAK2AsECywLVAuAC6wL1AwADCwMWAyEDLQM4A0MDTwNaA2YDcgN+ + A4oDlgOiA64DugPHA9MD4APsA/kEBgQTBCAELQQ7BEgEVQRjBHEEfgSMBJoEqAS2BMQE0wThBPAE/gUN + BRwFKwU6BUkFWAVnBXcFhgWWBaYFtQXFBdUF5QX2BgYGFgYnBjcGSAZZBmoGewaMBp0GrwbABtEG4wb1 + BwcHGQcrBz0HTwdhB3QHhgeZB6wHvwfSB+UH+AgLCB8IMghGCFoIbgiCCJYIqgi+CNII5wj7CRAJJQk6 + CU8JZAl5CY8JpAm6Cc8J5Qn7ChEKJwo9ClQKagqBCpgKrgrFCtwK8wsLCyILOQtRC2kLgAuYC7ALyAvh + C/kMEgwqDEMMXAx1DI4MpwzADNkM8w0NDSYNQA1aDXQNjg2pDcMN3g34DhMOLg5JDmQOfw6bDrYO0g7u + DwkPJQ9BD14Peg+WD7MPzw/sEAkQJhBDEGEQfhCbELkQ1xD1ERMRMRFPEW0RjBGqEckR6BIHEiYSRRJk + EoQSoxLDEuMTAxMjE0MTYxODE6QTxRPlFAYUJxRJFGoUixStFM4U8BUSFTQVVhV4FZsVvRXgFgMWJhZJ + FmwWjxayFtYW+hcdF0EXZReJF64X0hf3GBsYQBhlGIoYrxjVGPoZIBlFGWsZkRm3Gd0aBBoqGlEadxqe + GsUa7BsUGzsbYxuKG7Ib2hwCHCocUhx7HKMczBz1HR4dRx1wHZkdwx3sHhYeQB5qHpQevh7pHxMfPh9p + H5Qfvx/qIBUgQSBsIJggxCDwIRwhSCF1IaEhziH7IiciVSKCIq8i3SMKIzgjZiOUI8Ij8CQfJE0kfCSr + JNolCSU4JWgllyXHJfcmJyZXJocmtyboJxgnSSd6J6sn3CgNKD8ocSiiKNQpBik4KWspnSnQKgIqNSpo + KpsqzysCKzYraSudK9EsBSw5LG4soizXLQwtQS12Last4S4WLkwugi63Lu4vJC9aL5Evxy/+MDUwbDCk + MNsxEjFKMYIxujHyMioyYzKbMtQzDTNGM38zuDPxNCs0ZTSeNNg1EzVNNYc1wjX9Njc2cjauNuk3JDdg + N5w31zgUOFA4jDjIOQU5Qjl/Obw5+To2OnQ6sjrvOy07azuqO+g8JzxlPKQ84z0iPWE9oT3gPiA+YD6g + PuA/IT9hP6I/4kAjQGRApkDnQSlBakGsQe5CMEJyQrVC90M6Q31DwEQDREdEikTORRJFVUWaRd5GIkZn + RqtG8Ec1R3tHwEgFSEtIkUjXSR1JY0mpSfBKN0p9SsRLDEtTS5pL4kwqTHJMuk0CTUpNk03cTiVObk63 + TwBPSU+TT91QJ1BxULtRBlFQUZtR5lIxUnxSx1MTU19TqlP2VEJUj1TbVShVdVXCVg9WXFapVvdXRFeS + V+BYL1h9WMtZGllpWbhaB1pWWqZa9VtFW5Vb5Vw1XIZc1l0nXXhdyV4aXmxevV8PX2Ffs2AFYFdgqmD8 + YU9homH1YklinGLwY0Njl2PrZEBklGTpZT1lkmXnZj1mkmboZz1nk2fpaD9olmjsaUNpmmnxakhqn2r3 + a09rp2v/bFdsr20IbWBtuW4SbmtuxG8eb3hv0XArcIZw4HE6cZVx8HJLcqZzAXNdc7h0FHRwdMx1KHWF + deF2Pnabdvh3VnezeBF4bnjMeSp5iXnnekZ6pXsEe2N7wnwhfIF84X1BfaF+AX5ifsJ/I3+Ef+WAR4Co + gQqBa4HNgjCCkoL0g1eDuoQdhICE44VHhauGDoZyhteHO4efiASIaYjOiTOJmYn+imSKyoswi5aL/Ixj + jMqNMY2Yjf+OZo7OjzaPnpAGkG6Q1pE/kaiSEZJ6kuOTTZO2lCCUipT0lV+VyZY0lp+XCpd1l+CYTJi4 + mSSZkJn8mmia1ZtCm6+cHJyJnPedZJ3SnkCerp8dn4uf+qBpoNihR6G2oiailqMGo3aj5qRWpMelOKWp + phqmi6b9p26n4KhSqMSpN6mpqhyqj6sCq3Wr6axcrNCtRK24ri2uoa8Wr4uwALB1sOqxYLHWskuywrM4 + s660JbSctRO1irYBtnm28Ldot+C4WbjRuUq5wro7urW7LrunvCG8m70VvY++Cr6Evv+/er/1wHDA7MFn + wePCX8Lbw1jD1MRRxM7FS8XIxkbGw8dBx7/IPci8yTrJuco4yrfLNsu2zDXMtc01zbXONs62zzfPuNA5 + 0LrRPNG+0j/SwdNE08bUSdTL1U7V0dZV1tjXXNfg2GTY6Nls2fHadtr724DcBdyK3RDdlt4c3qLfKd+v + 4DbgveFE4cziU+Lb42Pj6+Rz5PzlhOYN5pbnH+ep6DLovOlG6dDqW+rl63Dr++yG7RHtnO4o7rTvQO/M + 8Fjw5fFy8f/yjPMZ86f0NPTC9VD13vZt9vv3ivgZ+Kj5OPnH+lf65/t3/Af8mP0p/br+S/7c/23////b + AEMAAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQICAgICAgICAgICAwMD + AwMDAwMDA//bAEMBAQEBAQEBAQEBAQICAQICAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMD + AwMDAwMDAwMDAwMDAwMDA//AABEIAAwAPAMBEQACEQEDEQH/xAAfAAABBQEBAQEBAQAAAAAAAAAAAQID + BAUGBwgJCgv/xAC1EAACAQMDAgQDBQUEBAAAAX0BAgMABBEFEiExQQYTUWEHInEUMoGRoQgjQrHBFVLR + 8CQzYnKCCQoWFxgZGiUmJygpKjQ1Njc4OTpDREVGR0hJSlNUVVZXWFlaY2RlZmdoaWpzdHV2d3h5eoOE + hYaHiImKkpOUlZaXmJmaoqOkpaanqKmqsrO0tba3uLm6wsPExcbHyMnK0tPU1dbX2Nna4eLj5OXm5+jp + 6vHy8/T19vf4+fr/xAAfAQADAQEBAQEBAQEBAAAAAAAAAQIDBAUGBwgJCgv/xAC1EQACAQIEBAMEBwUE + BAABAncAAQIDEQQFITEGEkFRB2FxEyIygQgUQpGhscEJIzNS8BVictEKFiQ04SXxFxgZGiYnKCkqNTY3 + ODk6Q0RFRkdISUpTVFVWV1hZWmNkZWZnaGlqc3R1dnd4eXqCg4SFhoeIiYqSk5SVlpeYmZqio6Slpqeo + qaqys7S1tre4ubrCw8TFxsfIycrS09TV1tfY2dri4+Tl5ufo6ery8/T19vf4+fr/2gAMAwEAAhEDEQA/ + AP1ZH7UPxEAA/wCEw8bnj/ob9f8A/k+v7U/1Nyj/AKF+G/8ABUP/AJE/llcSZlZf7dX/APBk/wDMX/hq + H4if9Df43/8ACv1//wCT6P8AU3Kf+hfhv/BUP/kQ/wBZcy/6Dq//AIMn/mH/AA1D8RP+hv8AG/8A4V+v + /wDyfR/qblP/AEL8N/4Kh/8AIh/rLmX/AEHV/wDwZP8AzD/hqH4if9Df43/8K/X/AP5Po/1Nyn/oX4b/ + AMFQ/wDkQ/1lzL/oOr/+DJ/5h/w1D8RP+hv8b/8AhX6//wDJ9H+puU/9C/Df+Cof/Ih/rLmX/QdX/wDB + k/8AMT/hqH4if9Df43/8K/X/AP5Po/1Nyn/oX4b/AMFQ/wDkQ/1kzL/oOr/+DJ/5n2R+xz+234zt/iRp + nw+8a6vqXiDwZ4gs9baObXr+bUr/AMPajpmkX2tQ3FlqV2Zb57K7XT2t3tXkaJWkV4whVxJ+beJfAuU4 + Th/FZ/hKEKOMw8qd+SKjGcZzjTs4q0bpyUlJK7s073VvuuBOLMxxGcYfJ8TWlVw1ZTtzu7hKMJTupPWz + UWnFu2qatrf9aP8AhfXgv+zv7U89/sfm+V5207N+M43fSv50P2w/kwr/AEFP42CgAoAKACgAoA9s/Z0/ + s7/hcng3+1vP/s7Ov/avs2PP2f8ACL63t2buP9ZjP+zmvz7xU/5IPPf+4H/qRRPsvD//AJK7KP8AuL/6 + ZqH7/wD/ABaT/hUfb7Ht/wBj7V9p8v8A9Cr+Oz+lz//Z + + + + + /9j/4AAQSkZJRgABAgEASABIAAD/7gAOQWRvYmUAZAAAAAAB/+ED5kV4aWYAAE1NACoAAAAIAAcBEgAD + AAAAAQABAAABGgAFAAAAAQAAAGIBGwAFAAAAAQAAAGoBKAADAAAAAQACAAABMQACAAAAHAAAAHIBMgAC + AAAAFAAAAI6HaQAEAAAAAQAAAKIAAADCAEgAAAABAAAASAAAAAEAAEFkb2JlIFBob3Rvc2hvcCBDUzMg + V2luZG93cwAyMDEwOjA0OjE1IDIwOjMyOjA0AAACoAIABAAAAAEAAAA8oAMABAAAAAEAAAAMAAAAAAAA + AAYBAwADAAAAAQAGAAABGgAFAAAAAQAAARABGwAFAAAAAQAAARgBKAADAAAAAQACAAACAQAEAAAAAQAA + ASACAgAEAAAAAQAAAr4AAAAAAAAASAAAAAEAAABIAAAAAf/Y/+AAEEpGSUYAAQIAAEgASAAA/+0ADEFk + b2JlX0NNAAH/7gAOQWRvYmUAZIAAAAAB/9sAhAAMCAgICQgMCQkMEQsKCxEVDwwMDxUYExMVExMYEQwM + DAwMDBEMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMAQ0LCw0ODRAODhAUDg4OFBQODg4OFBEMDAwM + DBERDAwMDAwMEQwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAz/wAARCAAMADwDASIAAhEBAxEB/90A + BAAE/8QBPwAAAQUBAQEBAQEAAAAAAAAAAwABAgQFBgcICQoLAQABBQEBAQEBAQAAAAAAAAABAAIDBAUG + BwgJCgsQAAEEAQMCBAIFBwYIBQMMMwEAAhEDBCESMQVBUWETInGBMgYUkaGxQiMkFVLBYjM0coLRQwcl + klPw4fFjczUWorKDJkSTVGRFwqN0NhfSVeJl8rOEw9N14/NGJ5SkhbSVxNTk9KW1xdXl9VZmdoaWprbG + 1ub2N0dXZ3eHl6e3x9fn9xEAAgIBAgQEAwQFBgcHBgU1AQACEQMhMRIEQVFhcSITBTKBkRShsUIjwVLR + 8DMkYuFygpJDUxVjczTxJQYWorKDByY1wtJEk1SjF2RFVTZ0ZeLys4TD03Xj80aUpIW0lcTU5PSltcXV + 5fVWZnaGlqa2xtbm9ic3R1dnd4eXp7fH/9oADAMBAAIRAxEAPwDd/amR/pH/AOcf70v2pkf6R/8AnH+9 + UUlofq/Bpevxb37UyP8ASP8A84/3pftTI/0j/wDOP96opJfq/BXr8W9+1Mj/AEj/APOP96X7UyP9I/8A + zj/eqKSX6vwV6/F3ujdbuGS2i5xfU8HVxktIG76XyW99vo27p0XGdO2/ba930dZj+q5dX+qfZPL8VAeD + 341VVr/eZhx+0bu708n/2f/iDFhJQ0NfUFJPRklMRQABAQAADEhMaW5vAhAAAG1udHJSR0IgWFlaIAfO + AAIACQAGADEAAGFjc3BNU0ZUAAAAAElFQyBzUkdCAAAAAAAAAAAAAAAAAAD21gABAAAAANMtSFAgIAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAEWNwcnQAAAFQAAAAM2Rl + c2MAAAGEAAAAbHd0cHQAAAHwAAAAFGJrcHQAAAIEAAAAFHJYWVoAAAIYAAAAFGdYWVoAAAIsAAAAFGJY + WVoAAAJAAAAAFGRtbmQAAAJUAAAAcGRtZGQAAALEAAAAiHZ1ZWQAAANMAAAAhnZpZXcAAAPUAAAAJGx1 + bWkAAAP4AAAAFG1lYXMAAAQMAAAAJHRlY2gAAAQwAAAADHJUUkMAAAQ8AAAIDGdUUkMAAAQ8AAAIDGJU + UkMAAAQ8AAAIDHRleHQAAAAAQ29weXJpZ2h0IChjKSAxOTk4IEhld2xldHQtUGFja2FyZCBDb21wYW55 + AABkZXNjAAAAAAAAABJzUkdCIElFQzYxOTY2LTIuMQAAAAAAAAAAAAAAEnNSR0IgSUVDNjE5NjYtMi4x + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABYWVogAAAAAAAA + 81EAAQAAAAEWzFhZWiAAAAAAAAAAAAAAAAAAAAAAWFlaIAAAAAAAAG+iAAA49QAAA5BYWVogAAAAAAAA + YpkAALeFAAAY2lhZWiAAAAAAAAAkoAAAD4QAALbPZGVzYwAAAAAAAAAWSUVDIGh0dHA6Ly93d3cuaWVj + LmNoAAAAAAAAAAAAAAAWSUVDIGh0dHA6Ly93d3cuaWVjLmNoAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAGRlc2MAAAAAAAAALklFQyA2MTk2Ni0yLjEgRGVmYXVsdCBSR0Ig + Y29sb3VyIHNwYWNlIC0gc1JHQgAAAAAAAAAAAAAALklFQyA2MTk2Ni0yLjEgRGVmYXVsdCBSR0IgY29s + b3VyIHNwYWNlIC0gc1JHQgAAAAAAAAAAAAAAAAAAAAAAAAAAAABkZXNjAAAAAAAAACxSZWZlcmVuY2Ug + Vmlld2luZyBDb25kaXRpb24gaW4gSUVDNjE5NjYtMi4xAAAAAAAAAAAAAAAsUmVmZXJlbmNlIFZpZXdp + bmcgQ29uZGl0aW9uIGluIElFQzYxOTY2LTIuMQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAdmlldwAA + AAAAE6T+ABRfLgAQzxQAA+3MAAQTCwADXJ4AAAABWFlaIAAAAAAATAlWAFAAAABXH+dtZWFzAAAAAAAA + AAEAAAAAAAAAAAAAAAAAAAAAAAACjwAAAAJzaWcgAAAAAENSVCBjdXJ2AAAAAAAABAAAAAAFAAoADwAU + ABkAHgAjACgALQAyADcAOwBAAEUASgBPAFQAWQBeAGMAaABtAHIAdwB8AIEAhgCLAJAAlQCaAJ8ApACp + AK4AsgC3ALwAwQDGAMsA0ADVANsA4ADlAOsA8AD2APsBAQEHAQ0BEwEZAR8BJQErATIBOAE+AUUBTAFS + AVkBYAFnAW4BdQF8AYMBiwGSAZoBoQGpAbEBuQHBAckB0QHZAeEB6QHyAfoCAwIMAhQCHQImAi8COAJB + AksCVAJdAmcCcQJ6AoQCjgKYAqICrAK2AsECywLVAuAC6wL1AwADCwMWAyEDLQM4A0MDTwNaA2YDcgN+ + A4oDlgOiA64DugPHA9MD4APsA/kEBgQTBCAELQQ7BEgEVQRjBHEEfgSMBJoEqAS2BMQE0wThBPAE/gUN + BRwFKwU6BUkFWAVnBXcFhgWWBaYFtQXFBdUF5QX2BgYGFgYnBjcGSAZZBmoGewaMBp0GrwbABtEG4wb1 + BwcHGQcrBz0HTwdhB3QHhgeZB6wHvwfSB+UH+AgLCB8IMghGCFoIbgiCCJYIqgi+CNII5wj7CRAJJQk6 + CU8JZAl5CY8JpAm6Cc8J5Qn7ChEKJwo9ClQKagqBCpgKrgrFCtwK8wsLCyILOQtRC2kLgAuYC7ALyAvh + C/kMEgwqDEMMXAx1DI4MpwzADNkM8w0NDSYNQA1aDXQNjg2pDcMN3g34DhMOLg5JDmQOfw6bDrYO0g7u + DwkPJQ9BD14Peg+WD7MPzw/sEAkQJhBDEGEQfhCbELkQ1xD1ERMRMRFPEW0RjBGqEckR6BIHEiYSRRJk + EoQSoxLDEuMTAxMjE0MTYxODE6QTxRPlFAYUJxRJFGoUixStFM4U8BUSFTQVVhV4FZsVvRXgFgMWJhZJ + FmwWjxayFtYW+hcdF0EXZReJF64X0hf3GBsYQBhlGIoYrxjVGPoZIBlFGWsZkRm3Gd0aBBoqGlEadxqe + GsUa7BsUGzsbYxuKG7Ib2hwCHCocUhx7HKMczBz1HR4dRx1wHZkdwx3sHhYeQB5qHpQevh7pHxMfPh9p + H5Qfvx/qIBUgQSBsIJggxCDwIRwhSCF1IaEhziH7IiciVSKCIq8i3SMKIzgjZiOUI8Ij8CQfJE0kfCSr + JNolCSU4JWgllyXHJfcmJyZXJocmtyboJxgnSSd6J6sn3CgNKD8ocSiiKNQpBik4KWspnSnQKgIqNSpo + KpsqzysCKzYraSudK9EsBSw5LG4soizXLQwtQS12Last4S4WLkwugi63Lu4vJC9aL5Evxy/+MDUwbDCk + MNsxEjFKMYIxujHyMioyYzKbMtQzDTNGM38zuDPxNCs0ZTSeNNg1EzVNNYc1wjX9Njc2cjauNuk3JDdg + N5w31zgUOFA4jDjIOQU5Qjl/Obw5+To2OnQ6sjrvOy07azuqO+g8JzxlPKQ84z0iPWE9oT3gPiA+YD6g + PuA/IT9hP6I/4kAjQGRApkDnQSlBakGsQe5CMEJyQrVC90M6Q31DwEQDREdEikTORRJFVUWaRd5GIkZn + RqtG8Ec1R3tHwEgFSEtIkUjXSR1JY0mpSfBKN0p9SsRLDEtTS5pL4kwqTHJMuk0CTUpNk03cTiVObk63 + TwBPSU+TT91QJ1BxULtRBlFQUZtR5lIxUnxSx1MTU19TqlP2VEJUj1TbVShVdVXCVg9WXFapVvdXRFeS + V+BYL1h9WMtZGllpWbhaB1pWWqZa9VtFW5Vb5Vw1XIZc1l0nXXhdyV4aXmxevV8PX2Ffs2AFYFdgqmD8 + YU9homH1YklinGLwY0Njl2PrZEBklGTpZT1lkmXnZj1mkmboZz1nk2fpaD9olmjsaUNpmmnxakhqn2r3 + a09rp2v/bFdsr20IbWBtuW4SbmtuxG8eb3hv0XArcIZw4HE6cZVx8HJLcqZzAXNdc7h0FHRwdMx1KHWF + deF2Pnabdvh3VnezeBF4bnjMeSp5iXnnekZ6pXsEe2N7wnwhfIF84X1BfaF+AX5ifsJ/I3+Ef+WAR4Co + gQqBa4HNgjCCkoL0g1eDuoQdhICE44VHhauGDoZyhteHO4efiASIaYjOiTOJmYn+imSKyoswi5aL/Ixj + jMqNMY2Yjf+OZo7OjzaPnpAGkG6Q1pE/kaiSEZJ6kuOTTZO2lCCUipT0lV+VyZY0lp+XCpd1l+CYTJi4 + mSSZkJn8mmia1ZtCm6+cHJyJnPedZJ3SnkCerp8dn4uf+qBpoNihR6G2oiailqMGo3aj5qRWpMelOKWp + phqmi6b9p26n4KhSqMSpN6mpqhyqj6sCq3Wr6axcrNCtRK24ri2uoa8Wr4uwALB1sOqxYLHWskuywrM4 + s660JbSctRO1irYBtnm28Ldot+C4WbjRuUq5wro7urW7LrunvCG8m70VvY++Cr6Evv+/er/1wHDA7MFn + wePCX8Lbw1jD1MRRxM7FS8XIxkbGw8dBx7/IPci8yTrJuco4yrfLNsu2zDXMtc01zbXONs62zzfPuNA5 + 0LrRPNG+0j/SwdNE08bUSdTL1U7V0dZV1tjXXNfg2GTY6Nls2fHadtr724DcBdyK3RDdlt4c3qLfKd+v + 4DbgveFE4cziU+Lb42Pj6+Rz5PzlhOYN5pbnH+ep6DLovOlG6dDqW+rl63Dr++yG7RHtnO4o7rTvQO/M + 8Fjw5fFy8f/yjPMZ86f0NPTC9VD13vZt9vv3ivgZ+Kj5OPnH+lf65/t3/Af8mP0p/br+S/7c/23////b + AEMAAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQICAgICAgICAgICAwMD + AwMDAwMDA//bAEMBAQEBAQEBAQEBAQICAQICAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMD + AwMDAwMDAwMDAwMDAwMDA//AABEIAAwAPAMBEQACEQEDEQH/xAAfAAABBQEBAQEBAQAAAAAAAAAAAQID + BAUGBwgJCgv/xAC1EAACAQMDAgQDBQUEBAAAAX0BAgMABBEFEiExQQYTUWEHInEUMoGRoQgjQrHBFVLR + 8CQzYnKCCQoWFxgZGiUmJygpKjQ1Njc4OTpDREVGR0hJSlNUVVZXWFlaY2RlZmdoaWpzdHV2d3h5eoOE + hYaHiImKkpOUlZaXmJmaoqOkpaanqKmqsrO0tba3uLm6wsPExcbHyMnK0tPU1dbX2Nna4eLj5OXm5+jp + 6vHy8/T19vf4+fr/xAAfAQADAQEBAQEBAQEBAAAAAAAAAQIDBAUGBwgJCgv/xAC1EQACAQIEBAMEBwUE + BAABAncAAQIDEQQFITEGEkFRB2FxEyIygQgUQpGhscEJIzNS8BVictEKFiQ04SXxFxgZGiYnKCkqNTY3 + ODk6Q0RFRkdISUpTVFVWV1hZWmNkZWZnaGlqc3R1dnd4eXqCg4SFhoeIiYqSk5SVlpeYmZqio6Slpqeo + qaqys7S1tre4ubrCw8TFxsfIycrS09TV1tfY2dri4+Tl5ufo6ery8/T19vf4+fr/2gAMAwEAAhEDEQA/ + AP1ZH7UPxEAA/wCEw8bnj/ob9f8A/k+v7U/1Nyj/AKF+G/8ABUP/AJE/llcSZlZf7dX/APBk/wDMX/hq + H4if9Df43/8ACv1//wCT6P8AU3Kf+hfhv/BUP/kQ/wBZcy/6Dq//AIMn/mH/AA1D8RP+hv8AG/8A4V+v + /wDyfR/qblP/AEL8N/4Kh/8AIh/rLmX/AEHV/wDwZP8AzD/hqH4if9Df43/8K/X/AP5Po/1Nyn/oX4b/ + AMFQ/wDkQ/1lzL/oOr/+DJ/5h/w1D8RP+hv8b/8AhX6//wDJ9H+puU/9C/Df+Cof/Ih/rLmX/QdX/wDB + k/8AMT/hqH4if9Df43/8K/X/AP5Po/1Nyn/oX4b/AMFQ/wDkQ/1kzL/oOr/+DJ/5n2R+xz+234zt/iRp + nw+8a6vqXiDwZ4gs9baObXr+bUr/AMPajpmkX2tQ3FlqV2Zb57K7XT2t3tXkaJWkV4whVxJ+beJfAuU4 + Th/FZ/hKEKOMw8qd+SKjGcZzjTs4q0bpyUlJK7s073VvuuBOLMxxGcYfJ8TWlVw1ZTtzu7hKMJTupPWz + UWnFu2qatrf9aP8AhfXgv+zv7U89/sfm+V5207N+M43fSv50P2w/kwr/AEFP42CgAoAKACgAoA9s/Z0/ + s7/hcng3+1vP/s7Ov/avs2PP2f8ACL63t2buP9ZjP+zmvz7xU/5IPPf+4H/qRRPsvD//AJK7KP8AuL/6 + ZqH7/wD/ABaT/hUfb7Ht/wBj7V9p8v8A9Cr+Oz+lz//Z + + + + 419, 17 + + + 628, 17 + + + 62 + + \ No newline at end of file diff --git a/ArinWarev1/Forms/v20091231/Frm_Zone.vb b/ArinWarev1/Forms/v20091231/Frm_Zone.vb new file mode 100644 index 0000000..b2f71b8 --- /dev/null +++ b/ArinWarev1/Forms/v20091231/Frm_Zone.vb @@ -0,0 +1,1251 @@ +Public Class Frm_Zone + Dim isCopy As Boolean = False + Dim Init As Boolean = False '//validate가 true일경우에만 동작하도록한다. 프로그램초기화중에는 작동하지않도록 + Dim SrcDrv As DataRowView + +#Region "data Base 변경여부및 적용방법" + + '''변경된내용을적용한다. + Public Overrides Function AcceptChanged() As Boolean + bs.EndEdit() + Dim BaseDS As DataSet = CType(bs.DataSource, DataSet) + Dim BaseDT As DataTable = BaseDS.Tables(bs.DataMember) + BaseDT.AcceptChanges() + Return True + End Function + + '''변경된내용이있다면 취소한다. + Public Overrides Function RejectChanged() As Boolean + Dim BaseDS As DataSet = CType(bs.DataSource, DataSet) + Dim BaseDT As DataTable = BaseDS.Tables(bs.DataMember) + BaseDT.RejectChanges() + Return True + End Function + + '''데이터에변형이있었는가? + Public Overrides Function HasChanged() As Boolean + bs.EndEdit() + Dim BaseDS As DataSet = CType(bs.DataSource, DataSet) + Dim BaseDT As DataTable = BaseDS.Tables(bs.DataMember) + Dim ChangeDT As DataTable = BaseDT.GetChanges + If Not ChangeDT Is Nothing Then Return True + Return False + End Function + + '''기본데이터테이블을 반환합니다. + Public Function DT() As DataTable + Dim BaseDS As DataSet = CType(bs.DataSource, DataSet) + Return BaseDS.Tables(bs.DataMember) + End Function +#End Region + + Private Sub MdiMain_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load + Me.Init = False + 'MdiMain.Toggle_Menu_Color(MdiMain.E_MenuIdx.입력존) + '//공유데이터셋에 연결한다. + Me.bs.DataSource = DSET + + '//Zone + AddHandler DSET.tbl_zone.TableNewRow, AddressOf AddNewDataRow_Zone + AddHandler DSET.tbl_zone.ColumnChanged, AddressOf AddNewDataRow_Zone_Changed + + '//모든컨트롤의 cTrl_enter 를 추가합니다 + BindProperty(CType(Me.SplitContainer1.Panel2.Controls, Control.ControlCollection)) + + '//콤보컨트롤 바인딩 + Binding_Zone() + + Me.bs.Filter = "code <> '0' and 그룹 = '" + Me.Parameter + "'" + Me.lb_grpname.text = Me.Parameter + + Try + Me.bs.Position = CEnergy.ARINCLASS.Read_LastPos_Frm(Me) + Catch ex As Exception + Me.bs.MoveFirst() + End Try + Me.Init = True + bs_CurrentChanged(sender, e) + Validate_Control() + ZONE_Control() + End Sub + + Private Sub MdiMain_FormClosed(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosedEventArgs) Handles Me.FormClosed + CEnergy.ARINCLASS.SaveLoad_FrmSetting(Me, Me.bs.Position, True) + End Sub + +#Region "Control_Enter" + Private Sub BindProperty(ByVal Ctl As Control.ControlCollection) + For Each C As Control In Ctl + If C.Controls.Count > 1 Then + BindProperty(C.Controls) + Else + If C.GetType.ToString.ToUpper.IndexOf("MYTB") <> -1 Then + AddHandler CType(C, MyTb).KeyDown, AddressOf TextBOx_KeyDown + ElseIf C.GetType.ToString.ToUpper.IndexOf("MYCMB") <> -1 Then + AddHandler CType(C, MyCmb).KeyDown, AddressOf Cmd_KeyDown + AddHandler CType(C, MyCmb).MouseHover, AddressOf ComboBox_MouseHover + End If + End If + Next + End Sub + + + Private Sub TextBOx_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) + If e.KeyCode = Keys.Enter AndAlso e.Control Then + Try + Dim Field As String = (CType(sender, MyTb).DataBindings.Item("text").BindingMemberInfo.BindingField) + For Each Dr As DataRow In Dt.Select(Me.bs.Filter, "") + Dr(Field) = CType(sender, MyTb).Text + Next + Work_msg_timer("모든값이 변경되었습니다", 25) + Catch ex As Exception + + End Try + + End If + End Sub + Private Sub Cmd_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) + If e.KeyCode = Keys.Enter AndAlso e.Control Then + Try + Dim Field As String = (CType(sender, MyCmb).DataBindings.Item("selectedvalue").BindingMemberInfo.BindingField) + For Each Dr As DataRow In Dt.Select(Me.bs.Filter, "") 'Dt.rows + Dr(Field) = CType(sender, MyCmb).SelectedValue + Next + Work_msg_timer("모든값이 변경되었습니다", 25) + Catch ex As Exception + + End Try + End If + End Sub + + Private Sub ComboBox_MouseHover(ByVal sender As Object, ByVal e As System.EventArgs) + '//공백의 경우 에러가 나서 우선 막아둠. + Try + Me.ToolTip1.SetToolTip(CType(sender, ComboBox), CType(sender, ComboBox).DataBindings("selectedvalue").BindingMemberInfo.BindingMember & vbCrLf & CType(sender, ComboBox).SelectedValue.ToString) + Catch ex As Exception + + End Try + + End Sub + + +#End Region + +#Region "ComboxBox Binding" + Private Sub MdiMain_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown + Select Case e.KeyCode + Case Keys.F12 + End Select + End Sub + Private Sub Cmb_DeleteVal(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) + If e.KeyCode = Keys.Delete Then + CType(sender, ComboBox).SelectedValue = "" + End If + End Sub + Private Sub Binding_Zone() + Dim bs_cmb_profile As New BindingSource(DSET, "tbl_profile") + bs_cmb_profile.Sort = "code" + cmb_profile.DataSource = bs_cmb_profile + cmb_profile.DisplayMember = "설명" + cmb_profile.ValueMember = "code" + Me.cmb_profile.DataBindings.Add("selectedvalue", Me.bs, "프로필") + 'AddHandler cmb_profile.KeyDown, AddressOf Cmb_DeleteVal + + Dim bs_cmb_kongkub As New BindingSource(DSET, "tbl_kongkub") + bs_cmb_kongkub.Sort = "code" + 냉난방열공급시스템ComboBox.DataSource = bs_cmb_kongkub + 냉난방열공급시스템ComboBox.DisplayMember = "설명" + 냉난방열공급시스템ComboBox.ValueMember = "code" + Me.냉난방열공급시스템ComboBox.DataBindings.Add("selectedvalue", Me.bs, "냉난방열공급시스템") + 'AddHandler 냉난방열공급시스템ComboBox.KeyDown, AddressOf Cmb_DeleteVal + + Dim bs_cmb_열저장능력 As New BindingSource(DSET, "tbl_common") + bs_cmb_열저장능력.Filter = "gubun='1023'" + bs_cmb_열저장능력.Sort = "code" + 열저장능력ComboBox.DataSource = bs_cmb_열저장능력 + 열저장능력ComboBox.DisplayMember = "name" + 열저장능력ComboBox.ValueMember = "name" + Me.열저장능력ComboBox.DataBindings.Add("selectedvalue", Me.bs, "열저장능력") + 'AddHandler 열저장능력ComboBox.KeyDown, AddressOf Cmb_DeleteVal + + Dim bs_cmb_열교가산치 As New BindingSource(DSET, "tbl_common") + bs_cmb_열교가산치.Filter = "gubun='1022'" + bs_cmb_열교가산치.Sort = "code" + 열교가산치ComboBox.DataSource = bs_cmb_열교가산치 + 열교가산치ComboBox.DisplayMember = "name" + 열교가산치ComboBox.ValueMember = "name" + Me.열교가산치ComboBox.DataBindings.Add("selectedvalue", Me.bs, "열교가산치") + 'AddHandler 열교가산치ComboBox.KeyDown, AddressOf Cmb_DeleteVal + + Dim bs_cmb_주말운전방식 As New BindingSource(DSET, "tbl_common") + bs_cmb_주말운전방식.Filter = "gubun='1002'" + bs_cmb_주말운전방식.Sort = "code" + 주말운전방식ComboBox.DataSource = bs_cmb_주말운전방식 + 주말운전방식ComboBox.DisplayMember = "name" + 주말운전방식ComboBox.ValueMember = "name" + Me.주말운전방식ComboBox.DataBindings.Add("selectedvalue", Me.bs, "주말운전방식") + 'AddHandler 주말운전방식ComboBox.KeyDown, AddressOf Cmb_DeleteVal + + Dim bs_cmb_야간운전방식 As New BindingSource(DSET, "tbl_common") + bs_cmb_야간운전방식.Filter = "gubun='1002'" + bs_cmb_야간운전방식.Sort = "code" + 야간운전방식ComboBox.DataSource = bs_cmb_야간운전방식 + 야간운전방식ComboBox.DisplayMember = "name" + 야간운전방식ComboBox.ValueMember = "name" + Me.야간운전방식ComboBox.DataBindings.Add("selectedvalue", Me.bs, "야간운전방식") + 'AddHandler 야간운전방식ComboBox.KeyDown, AddressOf Cmb_DeleteVal + + Dim bs_cmb_외기처리여부 As New BindingSource(DSET, "tbl_common") + bs_cmb_외기처리여부.Filter = "gubun='1054'" + bs_cmb_외기처리여부.Sort = "code" + 외기부하처리여부ComboBox.DataSource = bs_cmb_외기처리여부 + 외기부하처리여부ComboBox.DisplayMember = "name" + 외기부하처리여부ComboBox.ValueMember = "name" + Me.외기부하처리여부ComboBox.DataBindings.Add("selectedvalue", Me.bs, "외기부하처리여부") + 'AddHandler 외기부하처리여부ComboBox.KeyDown, AddressOf Cmb_DeleteVal + + Dim bs_cmb_냉난방공조 As New BindingSource(DSET, "tbl_common") + bs_cmb_냉난방공조.Filter = "gubun='1001'" + bs_cmb_냉난방공조.Sort = "code" + 냉난방공조ComboBox.DataSource = bs_cmb_냉난방공조 + 냉난방공조ComboBox.DisplayMember = "name" + 냉난방공조ComboBox.ValueMember = "name" + Me.냉난방공조ComboBox.DataBindings.Add("selectedvalue", Me.bs, "냉난방공조") + 'AddHandler 냉난방공조ComboBox.KeyDown, AddressOf Cmb_DeleteVal + + Dim bs_cmb_냉난방방식 As New BindingSource(DSET, "tbl_common") + bs_cmb_냉난방방식.Filter = "gubun='1000'" + bs_cmb_냉난방방식.Sort = "code" + cmb_냉난방방식.DataSource = bs_cmb_냉난방방식 + cmb_냉난방방식.DisplayMember = "name" + cmb_냉난방방식.ValueMember = "name" + Me.cmb_냉난방방식.DataBindings.Add("selectedvalue", Me.bs, "냉난방방식") + 'AddHandler cmb_냉난방방식.KeyDown, AddressOf Cmb_DeleteVal + + + Dim bs_cmb_공조처리 As New BindingSource(DSET, "tbl_kongjo") + bs_cmb_공조처리.Sort = "code" + 냉난방공조처리시스템ComboBox.DataSource = bs_cmb_공조처리 + 냉난방공조처리시스템ComboBox.DisplayMember = "설명" + 냉난방공조처리시스템ComboBox.ValueMember = "code" + Me.냉난방공조처리시스템ComboBox.DataBindings.Add("selectedvalue", Me.bs, "냉난방공조처리시스템") + + + 'AddHandler 냉난방공조처리시스템ComboBox.KeyDown, AddressOf Cmb_DeleteVal + + Dim bs_cmb_난방기기 As New BindingSource(DSET, "tbl_nanbangkiki") + bs_cmb_난방기기.Sort = "code" + cmb_열생산지정1.DataSource = bs_cmb_난방기기 + cmb_열생산지정1.DisplayMember = "설명" + cmb_열생산지정1.ValueMember = "code" + Me.cmb_열생산지정1.DataBindings.Add("selectedvalue", Me.bs, "열생산난방생산기기") + 'AddHandler cmb_열생산지정1.KeyDown, AddressOf Cmb_DeleteVal + + + '//공조추가 101105 + Dim bs_cmb_공조난방기기 As New BindingSource(DSET, "tbl_nanbangkiki") + bs_cmb_공조난방기기.Sort = "code" + cmb_공조난방생산.DataSource = bs_cmb_공조난방기기 + cmb_공조난방생산.DisplayMember = "설명" + cmb_공조난방생산.ValueMember = "code" + Me.cmb_공조난방생산.DataBindings.Add("selectedvalue", Me.bs, "공조난방생산기기") + + Dim bs_cmb_공조냉방기기 As New BindingSource(DSET, "tbl_nangbangkiki") + bs_cmb_공조냉방기기.Sort = "code" + cmb_공조냉방생산.DataSource = bs_cmb_공조냉방기기 + cmb_공조냉방생산.DisplayMember = "설명" + cmb_공조냉방생산.ValueMember = "code" + Me.cmb_공조냉방생산.DataBindings.Add("selectedvalue", Me.bs, "공조냉방생산기기") + '//공조추가 101105 + + Dim bs_cmb_급탕기기 As New BindingSource(DSET, "tbl_nanbangkiki") + bs_cmb_급탕기기.Sort = "code" + cmb_열생산급탕기기.DataSource = bs_cmb_급탕기기 + cmb_열생산급탕기기.DisplayMember = "설명" + cmb_열생산급탕기기.ValueMember = "code" + Me.cmb_열생산급탕기기.DataBindings.Add("selectedvalue", Me.bs, "열생산급탕생산기기") + 'AddHandler cmb_열생산지정2.KeyDown, AddressOf Cmb_DeleteVal + + Dim bs_cmb_냉방기기 As New BindingSource(DSET, "tbl_nangbangkiki") + bs_cmb_냉방기기.Sort = "code" + cmb_열생산지정3.DataSource = bs_cmb_냉방기기 + cmb_열생산지정3.DisplayMember = "설명" + cmb_열생산지정3.ValueMember = "code" + Me.cmb_열생산지정3.DataBindings.Add("selectedvalue", Me.bs, "열생산냉방생산기기") + 'AddHandler cmb_열생산지정3.KeyDown, AddressOf Cmb_DeleteVal + + Dim bs_cmb_가습기기 As New BindingSource(DSET, "tbl_nanbangkiki") + bs_cmb_가습기기.Sort = "code" + cmb_공조가습생산.DataSource = bs_cmb_가습기기 + cmb_공조가습생산.DisplayMember = "설명" + cmb_공조가습생산.ValueMember = "code" + Me.cmb_공조가습생산.DataBindings.Add("selectedvalue", Me.bs, "열생산가습생산기기") + 'AddHandler cmb_열생산지정4.KeyDown, AddressOf Cmb_DeleteVal + + + + 'Dim bs_cmb_냉방공조분배 As New BindingSource(DSET, "tbl_bunbae") + 'bs_cmb_냉방공조분배.Sort = "code" + '냉난방공조분배시스템ComboBox.DataSource = bs_cmb_냉방공조분배 + '냉난방공조분배시스템ComboBox.DisplayMember = "설명" + '냉난방공조분배시스템ComboBox.ValueMember = "code" + 'Me.냉난방공조분배시스템ComboBox.DataBindings.Add("selectedvalue", Me.bs, "냉난방공조분배시스템") + ''AddHandler 냉난방공조분배시스템ComboBox.KeyDown, AddressOf Cmb_DeleteVal + + 'Dim bs_cmb_냉방분배 As New BindingSource(DSET, "tbl_bunbae") + 'bs_cmb_냉방분배.Sort = "code" + '냉난방분배시스템ComboBox.DataSource = bs_cmb_냉방분배 + '냉난방분배시스템ComboBox.DisplayMember = "설명" + '냉난방분배시스템ComboBox.ValueMember = "code" + 'Me.냉난방분배시스템ComboBox.DataBindings.Add("selectedvalue", Me.bs, "냉난방분배시스템") + ''AddHandler 냉난방분배시스템ComboBox.KeyDown, AddressOf Cmb_DeleteVal + + Dim bs_cmb_조명부하산출방법 As New BindingSource(DSET, "tbl_common") + bs_cmb_조명부하산출방법.Sort = "code" + bs_cmb_조명부하산출방법.Filter = "gubun='1031'" + 조명부하산출방법ComboBox.DataSource = bs_cmb_조명부하산출방법 + 조명부하산출방법ComboBox.DisplayMember = "name" + 조명부하산출방법ComboBox.ValueMember = "name" + Me.조명부하산출방법ComboBox.DataBindings.Add("selectedvalue", Me.bs, "조명부하산출방법") + 'AddHandler 조명부하산출방법ComboBox.KeyDown, AddressOf Cmb_DeleteVal + + Dim bs_cmb_인공광원 As New BindingSource(DSET, "tbl_common") + bs_cmb_인공광원.Sort = "code" + bs_cmb_인공광원.Filter = "gubun='1024'" + Me.인공광원ComboBox.DataSource = bs_cmb_인공광원 + 인공광원ComboBox.DisplayMember = "name" + 인공광원ComboBox.ValueMember = "name" + Me.인공광원ComboBox.DataBindings.Add("selectedvalue", Me.bs, "인공광원") + 'AddHandler 인공광원ComboBox.KeyDown, AddressOf Cmb_DeleteVal + + Dim bs_cmb_조명방식 As New BindingSource(DSET, "tbl_common") + bs_cmb_조명방식.Sort = "code" + bs_cmb_조명방식.Filter = "gubun='1025'" + Me.조명방식ComboBox.DataSource = bs_cmb_조명방식 + 조명방식ComboBox.DisplayMember = "name" + 조명방식ComboBox.ValueMember = "name" + Me.조명방식ComboBox.DataBindings.Add("selectedvalue", Me.bs, "조명방식") + 'AddHandler 조명방식ComboBox.KeyDown, AddressOf Cmb_DeleteVal + + Dim bs_cmb_그룹존 As New BindingSource(DSET, "tbl_common") + bs_cmb_그룹존.Sort = "code" + bs_cmb_그룹존.Filter = "gubun='1200'" + Me.cmb_그룹_존.DataSource = bs_cmb_그룹존 + Me.cmb_그룹_존.DisplayMember = "name" + Me.cmb_그룹_존.ValueMember = "name" + Me.cmb_그룹_존.DataBindings.Add("selectedvalue", Me.bs, "그룹") + 'AddHandler 조명방식ComboBox.KeyDown, AddressOf Cmb_DeleteVal + + End Sub + + Private Sub AddNewDataRow_Zone(ByVal sender As Object, ByVal e As System.Data.DataTableNewRowEventArgs) + '//모든화면에는 이와같은게 잇습니다. 이게 신규생성할떄의 명령이에요. + ''//아래엔 코드값만새로 만들어주는루틴만잇어요 + e.Row.Item("code") = GetMaxCode(DSET.tbl_zone, DSET.tbl_myoun) + e.Row.Item("조명부하산출방법") = "입력치" + e.Row.Item("설명") = "신규이름" + '//위처럼 데이터를 넣어주면 기본값이 되요.. 계산치 + End Sub + + Private Function GetMaxCode(ByVal dt As DataTable, ByVal dt_myoun As DataTable) As String + Try + Dim Dr As DataRow = dt.Select("", "code desc")(0) + Dim Dr_myoun As DataRow = dt_myoun.Select("", "존분류 desc")(0) + If Dr("code") >= Dr_myoun("존분류") Then + Return Format(CInt(Dr("code")) + 1, "0000") + Else + Return Format(CInt(Dr_myoun("존분류")) + 1, "0000") + End If + + Catch ex As Exception + Return "0001" + End Try + End Function + Private Sub ToolStripButton48_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt_add.Click + If Not EndEdit(Me.bs) Then Return + Me.bs.AddNew() + INitRow(Me.Controls) + End Sub + + + Private Sub ToolStripButton49_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt_Del.Click + Del_ZoneMyoun(True) + 'Dbbase.DelCrow(Me.bs, True) + End Sub + + Private Sub ToolStripButton51_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt_cancel.Click + If Not EndEdit(Me.bs) Then Return + Data_Cancel(DSET.tbl_profile, Nothing) + 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 + If Me.bs.Position < Me.bs.Count Then Me.bs.Position += 1 + Else + If Me.bs.Position > 0 Then Me.bs.Position -= 1 + End If + Me.Validate() + My.Application.DoEvents() + End Sub + +#End Region + + Private Sub AddNewDataRow_Zone_Changed(ByVal sender As Object, ByVal e As System.Data.DataColumnChangeEventArgs) + '//값이바뀐다면 조명의실지수값을 재계산한다. + ' If isCopy Then Return + Select Case e.Column.Caption.Trim + Case "면적", "천장고p" '//순실체적 + Try + Me.순실체적NTb.Text = Val(e.Row("면적")) * Val(e.Row("천장고p")) + Catch ex As Exception + Me.순실체적NTb.Text = 0 + 'e.Row("순실체적") = 0 + End Try + Me.bs.EndEdit() + Case "실깊이", "실너비", "천장고", "작업면높이" + If Me.조명부하산출방법ComboBox.Text = "계산치" Then + Try + Dim 실깊이 As Decimal = TOSG(e.Row("실깊이")) + Dim 실너비 As Decimal = TOSG(e.Row("실너비")) + Dim 천장고 As Decimal = TOSG(e.Row("천장고")) + Dim 작업면높이 As Decimal = TOSG(e.Row("작업면높이")) + e.Row("실지수") = 실깊이 * 실너비 / ((천장고 - 작업면높이) * (실깊이 + 실너비)) + Catch ex As Exception + e.Row("실지수") = 0 + End Try + End If + Me.bs.EndEdit() + Case "조명방식", "인공광원", "실지수" + 'MsgBox("2") + If Me.조명부하산출방법ComboBox.Text = "계산치" Then + Dim 조명방식 As String = TOST(e.Row("조명방식")) + Dim 인공광원 As String = TOST(e.Row("인공광원")) + Select Case 인공광원.Trim + Case "형광등" + e.Row("조명기기효율") = 65 + Case "백열등" + e.Row("조명기기효율") = 15 + Case "할로겐등" + e.Row("조명기기효율") = 21 + Case "고압수은등" + e.Row("조명기기효율") = 52 + Case "메탈할라이드등" + e.Row("조명기기효율") = 72 + Case "고압나트륨등" + e.Row("조명기기효율") = 108 + Case Else + e.Row("조명기기효율") = 0 + End Select + Try + If e.Row("실지수").ToString <> "" AndAlso e.Row("실지수").ToString <> "NaN" Then + Dim 실지수 As Decimal = TOSG(e.Row("실지수")) + If 조명방식 = "직접" Then '//직접 + e.Row("조명률") = TOSG(IIf(인공광원 = "백열등", TOSG(78 - 32 / (실지수 + 0.47)), TOSG(70 - 38 / (실지수 + 0.35)))) * 0.01 + Else '//간접 + e.Row("조명률") = (52 - 60 / (실지수 + 1.02)) * 0.01 + End If + Else + e.Row("조명률") = 0 + End If + + Catch ex As Exception + e.Row("조명률") = 0 + End Try + + End If + Me.bs.EndEdit() + Case "보수율", "조명기기효율", "조명률", "요구조도" + If Me.조명부하산출방법ComboBox.Text = "계산치" Then + Try + Dim 보수율 As Decimal = TOSG(e.Row("보수율")) + Dim 효율 As Decimal = TOSG(e.Row("조명기기효율")) + Dim 조명률 As Decimal = TOSG(e.Row("조명률")) + Dim 요구조도 As Decimal = TOSG(e.Row("요구조도")) + e.Row("조명에너지부하율계산치") = 요구조도 / (조명률 * 보수율 * 효율) + Catch ex As Exception + e.Row("조명에너지부하율계산치") = 0 + End Try + End If + Me.bs.EndEdit() + End Select + + + End Sub + + Private Sub 조명부하산출방법ComboBox_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles 조명부하산출방법ComboBox.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)) + 'MsgBox(CB.GetUpperBound(0)) + If CB.GetUpperBound(0) <> 19 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() '//한줄추가 + + Dim Cnt As Short = 0 + For i As Integer = 0 To CB.GetUpperBound(0) + Select Case i + Case 0 '///조명은 신규기록하지않으므로.. 쓰지않게한다. + 'CType(bs.Current, DataRowView)("설명") = CB(i).Split(CChar(vbTab))(ii).Trim + Case 0 + 2 + If CB(i).Split(CChar(vbTab))(ii).Trim = "" Then + Me.조명부하산출방법ComboBox.SelectedIndex = 0 + Else + Me.조명부하산출방법ComboBox.Text = CB(i).Split(CChar(vbTab))(ii).Trim + End If + 'Me.조명부하산출방법ComboBox.Text = CB(i).Split(CChar(vbTab))(ii).Trim + Case 1 + 2 + Me.요구조도NTb1.Text = CB(i).Split(CChar(vbTab))(ii).Trim + Case 2 + 2 + Me.천장고NTB1.Text = CB(i).Split(CChar(vbTab))(ii).Trim + Case 3 + 2 + Me.작업면높이NTb1.Text = CB(i).Split(CChar(vbTab))(ii).Trim + Case 4 + 2 + Me.실깊이NTb.Text = CB(i).Split(CChar(vbTab))(ii).Trim + Case 5 + 2 + Me.실너비NTb.Text = CB(i).Split(CChar(vbTab))(ii).Trim + Case 6 '//실지수넘어감 + Case 7 + 2 + Case 8 + 2 + Case 9 + 2 + If CB(i).Split(CChar(vbTab))(ii).Trim = "" Then + Me.조명방식ComboBox.SelectedIndex = 0 + Else + Me.조명방식ComboBox.Text = CB(i).Split(CChar(vbTab))(ii).Trim + End If + ' Me.조명방식ComboBox.Text = CB(i).Split(CChar(vbTab))(ii).Trim + Case 10 + 2 + If CB(i).Split(CChar(vbTab))(ii).Trim = "" Then + Me.인공광원ComboBox.SelectedIndex = 0 + Else + Me.인공광원ComboBox.Text = CB(i).Split(CChar(vbTab))(ii).Trim + End If + 'Me.인공광원ComboBox.Text = CB(i).Split(CChar(vbTab))(ii).Trim + Case 11 + 2 + Me.보수율NTb.Text = CB(i).Split(CChar(vbTab))(ii).Trim + Case 12 + 2 + Me.tb_점등시간.Text = CB(i).Split(CChar(vbTab))(ii).Trim + Case 13 + 2 + ' Me.조명기기효율NTb.Text = CB(i).Split(CChar(vbTab))(ii).Trim + Case 14 + 2 + 'Me.조명률NTb.Text = CB(i).Split(CChar(vbTab))(ii).Trim + Case 15 + 2 + 'me.조명에너지부하율계산치NTb.Text= CB(i).Split(CChar(vbTab))(ii).Trim + Case 16 + 2 + Me.tb_조명입력치.Text = CB(i).Split(CChar(vbTab))(ii).Trim + End Select + Next + If bs.Position < bs.Count Then bs.Position += 1 '//위치이동 + Next + Me.bs.EndEdit() + + End If + End Sub + + Private Sub 조명부하산출방법ComboBox_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 조명부하산출방법ComboBox.SelectedIndexChanged + Validate_Control() + End Sub + + Private Sub Validate_Control() + If Not Init Then Return + If isCopy Then Return + '=============================================================2012.07.08 추가 + Try + If Me.입력존의수NTb.Text = "" Then + Me.입력존의수NTb.Text = "1" + End If + Catch ex As Exception + + End Try + + + + + + '=============================================================2012.07.08 추가 + + ' If Me.TabControl2.SelectedIndex = 1 Then '//조명부하의경우 탭컨트롤이 1일때 행한다. + Try + If Me.조명부하산출방법ComboBox.Text = "계산치" Then '//계산치 + Me.요구조도NTb1.Enabled = True + Me.천장고NTB1.Enabled = True + Me.작업면높이NTb1.Enabled = True + Me.실깊이NTb.Enabled = True + Me.실너비NTb.Enabled = True + Me.실지수NTb1.Enabled = True + Me.조명방식ComboBox.Enabled = True + Me.인공광원ComboBox.Enabled = True + Me.보수율NTb.Enabled = True + 'Me.점등시간NTb.Enabled = False + Me.조명기기효율NTb.Enabled = True + Me.tb_조명률.Enabled = True + Me.tb_조명계산치.Enabled = True + Me.tb_조명입력치.Enabled = False + Else + Me.요구조도NTb1.Enabled = False + Me.천장고NTB1.Enabled = False + Me.작업면높이NTb1.Enabled = False + Me.실깊이NTb.Enabled = False + Me.실너비NTb.Enabled = False + Me.실지수NTb1.Enabled = False + + Me.조명방식ComboBox.SelectedIndex = 0 + Me.인공광원ComboBox.SelectedIndex = 0 + Me.조명방식ComboBox.Enabled = False + Me.인공광원ComboBox.Enabled = False + + Me.보수율NTb.Enabled = False + 'Me.점등시간NTb.Enabled = False + Me.조명기기효율NTb.Enabled = False + Me.tb_조명률.Enabled = False + Me.tb_조명계산치.Enabled = False + Me.tb_조명입력치.Enabled = True + 'Me.점등시간TextBox.Enabled = True + End If + + + Catch ex As Exception + + End Try + Try + Select Case Me.cmb_profile.SelectedIndex + Case 0, 6, 8, 9, 11 + Me.cmb_열생산급탕기기.SelectedIndex = 0 + Me.cmb_열생산급탕기기.Enabled = False + Case Else + Me.cmb_열생산급탕기기.Enabled = True + End Select + + Catch ex As Exception + ' MsgBox(ex.Message.ToString, MsgBoxStyle.Critical) + End Try + + ' End If + Show_점등시간() + Me.bs.EndEdit() + End Sub + + Private Sub 인공광원ComboBox_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 인공광원ComboBox.SelectedIndexChanged + Try + Me.조명기기효율NTb.Text = CStr(CType(Me.인공광원ComboBox.SelectedItem, DataRowView)("valn1")) + Me.bs.EndEdit() + Catch ex As Exception + Me.조명기기효율NTb.Text = "0.0" + End Try + + End Sub + + Private Sub 조명방식ComboBox_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 조명방식ComboBox.SelectedIndexChanged + Me.bs.EndEdit() + End Sub + + Private Sub cmb_profile_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles cmb_profile.KeyDown + If e.KeyCode = Keys.V And e.Control Then + isCopy = True + e.Handled = True + e.SuppressKeyPress = False + '//클립보드붙여넣기 + Dim CB() As String = My.Computer.Clipboard.GetText.Split(CChar(vbCrLf)) + If CB.GetUpperBound(0) <> 35 Then + MsgBox("정상적인 데이터가 아닙니다") + 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() '//한줄추가 + + Dim Cnt As Short = 0 + For i As Integer = 0 To CB.GetUpperBound(0) + Select Case i + Case 0 + CType(bs.Current, DataRowView)("설명") = CB(i).Split(CChar(vbTab))(ii).Trim + Case 0 + 3 '//사용프로필 앞에 두개를 숫자4자리로변환 + Me.cmb_profile.Text = CStr(IIf(CB(i).Split(CChar(vbTab))(ii).Trim = "", "0", CB(i).Split(CChar(vbTab))(ii).Trim)) + Case 1 + 3 '//공란 + Case 2 + 3 '//면적 + Me.면적NTb.Text = CB(i).Split(CChar(vbTab))(ii).Trim + Case 3 + 3 + Me.천장고NTb.Text = CB(i).Split(CChar(vbTab))(ii).Trim + Case 4 + 3 + 'Me.순실체적NTb.Text = CB(i).Split(CChar(vbTab))(ii).Trim + Case 5 + 3 + 'If CB(i).Split(CChar(vbTab))(ii).Trim = "" Then Me.열저장능력ComboBox.SelectedIndex = -1 + If CB(i).Split(CChar(vbTab))(ii).Trim = "" Then + Me.열저장능력ComboBox.SelectedIndex = 0 + Else + Me.열저장능력ComboBox.Text = CB(i).Split(CChar(vbTab))(ii).Trim + End If + + Case 6 + 3 + ' If CB(i).Split(CChar(vbTab))(ii).Trim = "" Then Me.열교가산치ComboBox.SelectedIndex = -1 + If CB(i).Split(CChar(vbTab))(ii).Trim = "" Then + Me.열교가산치ComboBox.SelectedIndex = 0 + Else + Me.열교가산치ComboBox.Text = CB(i).Split(CChar(vbTab))(ii).Trim + End If + 'Me.열교가산치ComboBox.Text = CStr(IIf( CB(i).Split(CChar(vbTab))(ii).Trim = "", "0", CB(i).Split(CChar(vbTab))(ii).Trim)) + Case 7 + 3 + Me.침기율NTb.Text = CB(i).Split(CChar(vbTab))(ii).Trim + Case 8 + 3 + 'If CB(i).Split(CChar(vbTab))(ii).Trim = "" Then Me.cmb_냉난방방식.SelectedIndex = -1 + If CB(i).Split(CChar(vbTab))(ii).Trim = "" Then + Me.cmb_냉난방방식.SelectedIndex = 0 + Else + Me.cmb_냉난방방식.Text = CB(i).Split(CChar(vbTab))(ii).Trim + End If + 'Me.cmb_냉난방방식.Text = CStr(IIf( CB(i).Split(CChar(vbTab))(ii).Trim = "", "0", CB(i).Split(CChar(vbTab))(ii).Trim)) + Case 9 + 3 + 'If CB(i).Split(CChar(vbTab))(ii).Trim = "" Then Me.냉난방공조ComboBox.SelectedIndex = -1 + If CB(i).Split(CChar(vbTab))(ii).Trim = "" Then + Me.냉난방공조ComboBox.SelectedIndex = 0 + Else + Me.냉난방공조ComboBox.Text = CB(i).Split(CChar(vbTab))(ii).Trim + End If + 'Me.냉난방공조ComboBox.Text = CStr(IIf( CB(i).Split(CChar(vbTab))(ii).Trim = "", "0", CB(i).Split(CChar(vbTab))(ii).Trim)) + Case 10 + 3 + ' If CB(i).Split(CChar(vbTab))(ii).Trim = "" Then Me.외기부하처리여부ComboBox.SelectedIndex = -1 + If CB(i).Split(CChar(vbTab))(ii).Trim = "" Then + Me.외기부하처리여부ComboBox.SelectedIndex = 0 + Else + Me.외기부하처리여부ComboBox.Text = CB(i).Split(CChar(vbTab))(ii).Trim + End If + 'Me.외기부하처리여부ComboBox.Text = CStr(IIf( CB(i).Split(CChar(vbTab))(ii).Trim = "", "0", CB(i).Split(CChar(vbTab))(ii).Trim)) + Case 11 + 3 '//지역사용안함 + Case 12 + 3 '//야간운전방식 + 'If CB(i).Split(CChar(vbTab))(ii).Trim = "" Then Me.야간운전방식ComboBox.SelectedIndex = -1 + If CB(i).Split(CChar(vbTab))(ii).Trim = "" Then + Me.야간운전방식ComboBox.SelectedIndex = 0 + Else + Me.야간운전방식ComboBox.Text = CB(i).Split(CChar(vbTab))(ii).Trim + End If + 'Me.야간운전방식ComboBox.Text = CStr(IIf( CB(i).Split(CChar(vbTab))(ii).Trim = "", "0", CB(i).Split(CChar(vbTab))(ii).Trim)) + Case 13 + 3 '//주말운전방식 + ' If CB(i).Split(CChar(vbTab))(ii).Trim = "" Then Me.주말운전방식ComboBox.SelectedIndex = -1 + If CB(i).Split(CChar(vbTab))(ii).Trim = "" Then + Me.주말운전방식ComboBox.SelectedIndex = 0 + Else + Me.주말운전방식ComboBox.Text = CB(i).Split(CChar(vbTab))(ii).Trim + End If + 'Me.주말운전방식ComboBox.Text = CStr(IIf( CB(i).Split(CChar(vbTab))(ii).Trim = "", "0", CB(i).Split(CChar(vbTab))(ii).Trim)) + Case 16 + 3 '//일급탕요구량 + 'Me.급탕요구량NTb.Text = CB(i).Split(CChar(vbTab))(ii).Trim + Case 17 + 3 + Case 18 + 3 + Case 19 + 3 '//난방공급시스템-1 + ' Me.TabControl10.SelectedIndex = 0 + ' If CB(i).Split(CChar(vbTab))(ii).Trim = "" Then Me.냉난방열공급시스템ComboBox.SelectedIndex = -1 + If CB(i).Split(CChar(vbTab))(ii).Trim = "" Then + Me.냉난방열공급시스템ComboBox.SelectedIndex = 0 + Else + Me.냉난방열공급시스템ComboBox.Text = CB(i).Split(CChar(vbTab))(ii).Trim + End If + + + Case 20 + 3 '// + Me.냉난방열공급시스템수NTb.Text = CB(i).Split(CChar(vbTab))(ii).Trim + Case 21 + 3 + ' If CB(i).Split(CChar(vbTab))(ii).Trim = "" Then Me.냉난방공조처리시스템ComboBox.SelectedIndex = -1 + If CB(i).Split(CChar(vbTab))(ii).Trim = "" Then + Me.냉난방공조처리시스템ComboBox.SelectedIndex = 0 + Else + Me.냉난방공조처리시스템ComboBox.Text = CB(i).Split(CChar(vbTab))(ii).Trim + End If + 'Me.냉난방공조처리시스템ComboBox.Text = CStr(IIf( CB(i).Split(CChar(vbTab))(ii).Trim = "", "0", CB(i).Split(CChar(vbTab))(ii).Trim)) + Case 24 + 3 '//열생산지정 + ' Me.TabControl10.SelectedIndex = 1 + Me.cmb_열생산지정1.Text = CB(i).Split(CChar(vbTab))(ii).Trim + Case 25 + 3 + Me.cmb_열생산급탕기기.Text = CB(i).Split(CChar(vbTab))(ii).Trim + Case 26 + 3 + Me.cmb_열생산지정3.Text = CB(i).Split(CChar(vbTab))(ii).Trim + Case 27 + 3 + Me.cmb_공조가습생산.Text = CB(i).Split(CChar(vbTab))(ii).Trim + Case 30 + 3 + 'Me.TabControl10.SelectedIndex = 2 + 'If CB(i).Split(CChar(vbTab))(ii).Trim = "" Then Me.냉난방공조분배시스템ComboBox.SelectedIndex = -1 + If CB(i).Split(CChar(vbTab))(ii).Trim = "" Then + 'Me.냉난방공조분배시스템ComboBox.SelectedIndex = 0 + Else + 'Me.냉난방공조분배시스템ComboBox.Text = CB(i).Split(CChar(vbTab))(ii).Trim + End If + ' Me.냉난방공조분배시스템ComboBox.Text = CStr(IIf( CB(i).Split(CChar(vbTab))(ii).Trim = "", "0", CB(i).Split(CChar(vbTab))(ii).Trim)) + Case 31 + 3 + 'If CB(i).Split(CChar(vbTab))(ii).Trim = "" Then Me.냉난방분배시스템ComboBox.SelectedIndex = -1 + If CB(i).Split(CChar(vbTab))(ii).Trim = "" Then + 'Me.냉난방분배시스템ComboBox.SelectedIndex = 0 + Else + 'Me.냉난방분배시스템ComboBox.Text = CB(i).Split(CChar(vbTab))(ii).Trim + End If + 'Me.냉난방분배시스템ComboBox.Text = CStr(IIf(CB(i).Trim = "", "0", CB(i).Trim)) + End Select + Next + Next + + Me.bs.EndEdit() + isCopy = False + Me.Validate_Control() + ' AddNewDataRow_Zone_Changed(Nothing, Nothing) + End If + End Sub + + Private Sub Show_점등시간() + Try + If cmb_profile.SelectedIndex > 0 Then '//뭔가선택되면 + Dim Drv As DataRowView = CType(Me.bs.Current, DataRowView) + + Dim DRProf As DS.tbl_profileRow = CType(DSET.tbl_profile.Select("code='" & Drv("프로필").ToString & "'")(0), DS.tbl_profileRow) + Me.tb_점등시간.Text = DRProf.일일사용시간 + 'MsgBox("선택프로필코드=" & Drv("프로필").ToString, MsgBoxStyle.Information, DRProf.일일사용시간) + Else + Me.tb_점등시간.Text = "없음" + End If + Catch ex As Exception + Me.tb_점등시간.Text = ex.Message.ToString + End Try + End Sub + + Private Sub cmb_profile_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles cmb_profile.MouseUp + If Me.cmb_profile.SelectedIndex < 0 Then Return + If e.Button = Windows.Forms.MouseButtons.Right Then + '//냉난방공조처리시스템 + Me.bs.Filter = "프로필='" & cmb_profile.SelectedValue.ToString & "'" + + + End If + End Sub + + Private Sub cmb_profile_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmb_profile.SelectedIndexChanged + Me.Validate_Control() + + End Sub + + + Private Sub bt_Del_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles bt_Del.MouseDown + If e.Button = Windows.Forms.MouseButtons.Right Then + If MsgBox("전체삭제를 하시겠습니까?", MsgBoxStyle.Information Or MsgBoxStyle.OkCancel, "확인") = MsgBoxResult.Ok Then + 'DSET.tbl_zone.Clear() + Dim dR() As DataRow = DSET.tbl_zone.Select(Me.bs.Filter, "") + For i As Integer = dR.GetUpperBound(0) To 0 Step -1 + dR(i).Delete() + Next + DSET.tbl_zone.AcceptChanges() + End If + End If + End Sub + + Private Sub bs_CurrentChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bs.CurrentChanged + + '//이존이 어떠한 면들한테 쓰엿는지 그거죠?'/종류가 몇가지요? 내벽 외벽 같은거 + '//입력면은 존분류값이 존이죠? ? 외벽, 외부창, 내벽, 내부창, 간벽 5가지 + + If Not Init Then Return + Dim Drv As DataRowView = CType(bs.Current, DataRowView) + If Drv Is Nothing Then Return + + + Dim Zonecode As String = Drv("code") + If Zonecode = "0" Then Return + + Show_점등시간() + + Dim cnt1, cnt2, cnt3, cnt4, cnt5 As Integer + cnt1 = 0 : cnt2 = 0 : cnt3 = 0 : cnt4 = 0 : cnt5 = 0 + + + Dim DR() As DataRow = DSET.tbl_myoun.Select("code <> '0' and 존분류='" & Drv("code").ToString & "' and 건축부위방식='외벽'") + If DR.GetUpperBound(0) <> -1 Then cnt1 = (DR.GetUpperBound(0) + 1) + + DR = DSET.tbl_myoun.Select("code <> '0' and 존분류='" & Drv("code").ToString & "' and 건축부위방식='외부창'") + If DR.GetUpperBound(0) <> -1 Then cnt2 = (DR.GetUpperBound(0) + 1) + + DR = DSET.tbl_myoun.Select("code <> '0' and 존분류='" & Drv("code").ToString & "' and 건축부위방식='내벽'") + If DR.GetUpperBound(0) <> -1 Then cnt3 = (DR.GetUpperBound(0) + 1) + + DR = DSET.tbl_myoun.Select("code <> '0' and 존분류='" & Drv("code").ToString & "' and 건축부위방식='내부창'") + If DR.GetUpperBound(0) <> -1 Then cnt4 = (DR.GetUpperBound(0) + 1) + + DR = DSET.tbl_myoun.Select("code <> '0' and 존분류='" & Drv("code").ToString & "' and 건축부위방식='간벽'") + If DR.GetUpperBound(0) <> -1 Then cnt5 = (DR.GetUpperBound(0) + 1) + + '//각각순서대로 변수에 해당값이 들어갓어요 + '//화면에 표시할 컨트롤 만드시다음에 컨트롤.text = cnt1 식으로 연결만 해주시면됩니다. + Me.ToolStripLabel3.Text = cnt1.ToString + If cnt1 > 0 Then + Me.ToolStripLabel2.ForeColor = Color.Purple + Me.ToolStripLabel3.ForeColor = Color.Purple + Else + Me.ToolStripLabel2.ForeColor = Color.LightGray + Me.ToolStripLabel3.ForeColor = Color.LightGray + End If + + Me.ToolStripLabel5.Text = cnt3.ToString + If cnt3 > 0 Then + Me.ToolStripLabel4.ForeColor = Color.Purple + Me.ToolStripLabel5.ForeColor = Color.Purple + Else + Me.ToolStripLabel4.ForeColor = Color.LightGray + Me.ToolStripLabel5.ForeColor = Color.LightGray + End If + + Me.ToolStripLabel7.Text = cnt2.ToString + If cnt2 > 0 Then + Me.ToolStripLabel6.ForeColor = Color.Purple + Me.ToolStripLabel7.ForeColor = Color.Purple + Else + Me.ToolStripLabel6.ForeColor = Color.LightGray + Me.ToolStripLabel7.ForeColor = Color.LightGray + End If + + Me.ToolStripLabel9.Text = cnt4.ToString + If cnt4 > 0 Then + Me.ToolStripLabel8.ForeColor = Color.Purple + Me.ToolStripLabel9.ForeColor = Color.Purple + Else + Me.ToolStripLabel8.ForeColor = Color.LightGray + Me.ToolStripLabel9.ForeColor = Color.LightGray + End If + + Me.ToolStripLabel11.Text = cnt5.ToString + If cnt5 > 0 Then + Me.ToolStripLabel10.ForeColor = Color.Purple + Me.ToolStripLabel11.ForeColor = Color.Purple + Else + Me.ToolStripLabel10.ForeColor = Color.LightGray + Me.ToolStripLabel11.ForeColor = Color.LightGray + End If + + Me.Validate_Control() + + Me.bs.EndEdit() + End Sub + + + + Private Sub 냉난방공조처리시스템ComboBox_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles 냉난방공조처리시스템ComboBox.MouseUp + If e.Button = Windows.Forms.MouseButtons.Right Then + '//냉난방공조처리시스템 + Me.bs.Filter = "냉난방공조처리시스템='" & 냉난방공조처리시스템ComboBox.SelectedValue.ToString & "'" + + + End If + End Sub + + + Private Sub 냉난방공조ComboBox_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 냉난방공조ComboBox.SelectedIndexChanged + ZONE_Control() + End Sub + + Private Sub ZONE_Control() '//건기연 추가(2010.04.07) + If Me.Init = False Then Return + Try + If Me.냉난방공조ComboBox.SelectedIndex = 4 Then + 외기부하처리여부ComboBox.Enabled = True + 냉난방공조처리시스템ComboBox.Enabled = True + Else + 외기부하처리여부ComboBox.Enabled = False + If Me.냉난방공조ComboBox.SelectedIndex = 0 Then + 냉난방공조처리시스템ComboBox.Enabled = False + 냉난방공조처리시스템ComboBox.SelectedIndex = 0 + Else + 냉난방공조처리시스템ComboBox.Enabled = True + End If + End If + Catch ex As Exception + + End Try + Try + Select Case Me.냉난방공조ComboBox.SelectedIndex + Case 0, 4 + If Me.냉난방공조ComboBox.SelectedIndex = 4 AndAlso Me.외기부하처리여부ComboBox.Enabled AndAlso Me.외기부하처리여부ComboBox.Text = "예" Then + Me.cmb_공조난방생산.Enabled = True + Me.cmb_공조가습생산.Enabled = True + Me.cmb_공조냉방생산.Enabled = True + 'Me.cmb_공조난방생산.BackColor = Nothing + 'Me.cmb_공조냉방생산.BackColor = Nothing + 'Me.cmb_공조가습생산.BackColor = Nothing + 'Me.cmb_공조난방생산.ForeColor = Nothing + 'Me.cmb_공조냉방생산.ForeColor = Nothing + 'Me.cmb_공조가습생산.ForeColor = Nothing + 'Me.cmb_공조난방생산.Font = New Font(Me.cmb_공조난방생산.Font, FontStyle.Regular) + 'Me.cmb_공조냉방생산.Font = New Font(Me.cmb_공조난방생산.Font, FontStyle.Regular) + 'Me.cmb_공조가습생산.Font = New Font(Me.cmb_공조난방생산.Font, FontStyle.Regular) + + Else + Me.cmb_공조난방생산.Enabled = False + Me.cmb_공조가습생산.Enabled = False + Me.cmb_공조냉방생산.Enabled = False + 'Me.cmb_공조난방생산.BackColor = Color.LightGray + 'Me.cmb_공조냉방생산.BackColor = Color.LightGray + 'Me.cmb_공조가습생산.BackColor = Color.LightGray + 'If Me.cmb_공조난방생산.SelectedIndex <> 0 Then + ' Me.cmb_공조난방생산.ForeColor = Color.Red + ' Me.cmb_공조난방생산.Font = New Font(Me.cmb_공조난방생산.Font, FontStyle.Strikeout) + 'End If + 'If Me.cmb_공조가습생산.SelectedIndex <> 0 Then + ' Me.cmb_공조가습생산.ForeColor = Color.Red + ' Me.cmb_공조가습생산.Font = New Font(Me.cmb_공조난방생산.Font, FontStyle.Strikeout) + 'End If + 'If Me.cmb_공조냉방생산.SelectedIndex <> 0 Then + ' Me.cmb_공조냉방생산.ForeColor = Color.Red + ' Me.cmb_공조냉방생산.Font = New Font(Me.cmb_공조난방생산.Font, FontStyle.Strikeout) + 'End If + + End If + Me.cmb_냉난방방식.ForeColor = Nothing + 'Me.cmb_냉난방방식.Font = New Font(Me.cmb_냉난방방식.Font, FontStyle.Regular) + Me.ErrProvider.SetError(Me.cmb_냉난방방식, "") + Case 1 + If Me.외기부하처리여부ComboBox.Enabled AndAlso Me.외기부하처리여부ComboBox.Text = "예" Then + Me.cmb_공조난방생산.Enabled = True + Me.cmb_공조가습생산.Enabled = True + Else + Me.cmb_공조난방생산.Enabled = False + Me.cmb_공조가습생산.Enabled = False + End If + Me.cmb_공조냉방생산.Enabled = True + If Me.cmb_냉난방방식.SelectedIndex = 0 OrElse Me.cmb_냉난방방식.SelectedIndex = 2 Then + Me.cmb_냉난방방식.ForeColor = Nothing + 'Me.cmb_냉난방방식.Font = New Font(Me.cmb_냉난방방식.Font, FontStyle.Regular) + Me.ErrProvider.SetError(Me.cmb_냉난방방식, "") + Else + Me.cmb_냉난방방식.ForeColor = Color.Red + 'Me.cmb_냉난방방식.Font = New Font(Me.cmb_냉난방방식.Font, FontStyle.Strikeout) + Me.ErrProvider.SetError(Me.cmb_냉난방방식, "이건 안된다구요") + End If + Case 2 + If Me.외기부하처리여부ComboBox.Enabled AndAlso Me.외기부하처리여부ComboBox.Text = "예" Then + Me.cmb_공조냉방생산.Enabled = True + Else + Me.cmb_공조냉방생산.Enabled = False + End If + Me.cmb_공조난방생산.Enabled = True + Me.cmb_공조가습생산.Enabled = True + If Me.cmb_냉난방방식.SelectedIndex = 0 OrElse Me.cmb_냉난방방식.SelectedIndex = 1 Then + Me.cmb_냉난방방식.ForeColor = Nothing + 'Me.cmb_냉난방방식.Font = New Font(Me.cmb_냉난방방식.Font, FontStyle.Regular) + Me.ErrProvider.SetError(Me.cmb_냉난방방식, "") + Else + Me.cmb_냉난방방식.ForeColor = Color.Red + 'Me.cmb_냉난방방식.Font = New Font(Me.cmb_냉난방방식.Font, FontStyle.Strikeout) + Me.ErrProvider.SetError(Me.cmb_냉난방방식, "이건 안된다구요") + End If + Case 3 + Me.cmb_공조난방생산.Enabled = True + Me.cmb_공조가습생산.Enabled = True + Me.cmb_공조냉방생산.Enabled = True + If Me.cmb_냉난방방식.SelectedIndex = 0 Then + Me.cmb_냉난방방식.ForeColor = Nothing + 'Me.cmb_냉난방방식.Font = New Font(Me.cmb_냉난방방식.Font, FontStyle.Regular) + Me.ErrProvider.SetError(Me.cmb_냉난방방식, "") + Else + Me.cmb_냉난방방식.ForeColor = Color.Red + 'Me.cmb_냉난방방식.Font = New Font(Me.cmb_냉난방방식.Font, FontStyle.Strikeout) + Me.ErrProvider.SetError(Me.cmb_냉난방방식, "이건 안된다구요") + End If + + Case Else + + End Select + Catch ex As Exception + + End Try + + Try + Select Case Me.cmb_냉난방방식.SelectedIndex + Case 0 + Me.냉난방공조ComboBox.ForeColor = Nothing + Me.ErrProvider.SetError(Me.냉난방공조ComboBox, "") + Me.cmb_열생산지정1.Enabled = False + Me.cmb_열생산지정3.Enabled = False + Case 1 + Me.cmb_열생산지정1.Enabled = False + Me.cmb_열생산지정3.Enabled = True + If Me.냉난방공조ComboBox.SelectedIndex = 0 OrElse Me.냉난방공조ComboBox.SelectedIndex = 2 OrElse Me.냉난방공조ComboBox.SelectedIndex = 4 Then + Me.냉난방공조ComboBox.ForeColor = Nothing + Me.ErrProvider.SetError(Me.냉난방공조ComboBox, "") + Else + Me.냉난방공조ComboBox.ForeColor = Color.Red + Me.ErrProvider.SetError(Me.냉난방공조ComboBox, "이건 안된다구요") + End If + Case 2 + Me.cmb_열생산지정1.Enabled = True + Me.cmb_열생산지정3.Enabled = False + If Me.냉난방공조ComboBox.SelectedIndex = 0 OrElse Me.냉난방공조ComboBox.SelectedIndex = 1 OrElse Me.냉난방공조ComboBox.SelectedIndex = 4 Then + Me.냉난방공조ComboBox.ForeColor = Nothing + Me.ErrProvider.SetError(Me.냉난방공조ComboBox, "") + Else + Me.냉난방공조ComboBox.ForeColor = Color.Red + Me.ErrProvider.SetError(Me.냉난방공조ComboBox, "이건 안된다구요") + End If + Case 3 + Me.cmb_열생산지정1.Enabled = True + Me.cmb_열생산지정3.Enabled = True + If Me.냉난방공조ComboBox.SelectedIndex = 0 OrElse Me.냉난방공조ComboBox.SelectedIndex = 4 Then + Me.냉난방공조ComboBox.ForeColor = Nothing + Me.ErrProvider.SetError(Me.냉난방공조ComboBox, "") + Else + Me.냉난방공조ComboBox.ForeColor = Color.Red + Me.ErrProvider.SetError(Me.냉난방공조ComboBox, "이건 안된다구요") + End If + + Case Else + + End Select + Catch ex As Exception + + End Try + + Try + If Me.cmb_냉난방방식.SelectedIndex = 0 Then + Me.냉난방열공급시스템ComboBox.Enabled = False + Me.냉난방열공급시스템수NTb.Enabled = False + '냉난방분배시스템ComboBox.SelectedIndex = 0 + 'Me.냉난방열공급시스템수NTb.Text = "0" '// 2010.11.29 수정 + Else + Me.냉난방열공급시스템ComboBox.Enabled = True + Me.냉난방열공급시스템수NTb.Enabled = True + + End If + Catch ex As Exception + + End Try + bs.EndEdit() + End Sub + + Private Sub cmb_냉난방방식_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmb_냉난방방식.SelectedIndexChanged + ZONE_Control() + End Sub + + Private Sub 면적NTb_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles 면적NTb.TextChanged + 순실체적NTb.Text = TOST(TOSG(면적NTb.Text) * TOSG(천장고NTb.Text)) + End Sub + + Private Sub 천장고NTb_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles 천장고NTb.TextChanged + 순실체적NTb.Text = TOST(TOSG(면적NTb.Text) * TOSG(천장고NTb.Text)) + End Sub + + Private Sub 순실체적NTb_MouseHover(ByVal sender As Object, ByVal e As System.EventArgs) Handles 순실체적NTb.MouseHover + 순실체적NTb.Text = TOST(TOSG(면적NTb.Text) * TOSG(천장고NTb.Text)) + End Sub + + Private Sub dv_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles dv.KeyDown + '//여기보시면 alt+d 누르면 한줄을 경고없이(falsE)삭제하도록 햇어요.. 사실원래 밋alt +d 인데.. ㅎㅎ 잘못해서 ctrl 됫다는 + If Prj.UserAuthType = "ADMIN" OrElse Prj.UserAuthType = "BOTH" OrElse Prj.UserAuthType = "BOTH2" OrElse Prj.UserAuthType = "BOTH1" Then '//2011.03.08 추가 + Select Case e.KeyCode + Case Keys.D + If e.Alt Then + Del_ZoneMyoun(False) + 'Dbbase.DelCrow(Me.bs, False) + End If + Case Keys.C + If e.Control Then + Me.SrcDrv = Me.bs.Current + If Me.SrcDrv Is Nothing Then + MsgBox("저장할 ROW가 없습니다", MsgBoxStyle.Information, "확인") + Return + End If + ' My.Computer.Clipboard.SetData("ZDATA", Drv) + End If + Case Keys.V + If e.Control Then + If SrcDrv Is Nothing Then Return + Me.bt_add.PerformClick() '//신규추가 + Dim NewDrv As DataRowView = Me.bs.Current + + For Each C As DataColumn In Me.Dt.Columns + If C.ColumnName.ToUpper = "CODE" Then + ElseIf C.ColumnName.ToUpper = "설명" Then + NewDrv(C.ColumnName) = SrcDrv(C.ColumnName) & "#1" + Else + NewDrv(C.ColumnName) = SrcDrv(C.ColumnName) + End If + Next + Me.bs.EndEdit() + 'bs.MoveLast() + End If + End Select + End If + End Sub + + Private Sub dv_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles dv.MouseUp + If Prj.UserAuthType = "ADMIN" OrElse Prj.UserAuthType = "BOTH" OrElse Prj.UserAuthType = "BOTH2" OrElse Prj.UserAuthType = "BOTH1" Then '//2011.03.08 추가 + If e.Button = Windows.Forms.MouseButtons.Right Then + Dim Frm_FilterA As New Frm_Filter + Frm_FilterA.ColumTitle = getColCaption(Me.Dt) + Frm_FilterA.ColumList = getColName(Me.Dt) + Frm_FilterA.Colorlist = "프로필,냉난방열공급시스템,냉난방공조처리시스템,열생산난방생산기기,열생산급탕생산기기,열생산냉방생산기기," & _ + "공조가습생산기기,공조냉방생산기기,공조난방생산기기" + Frm_FilterA.Numfield = "" '//20100618 Color 리스트처럼 , 구분해서 필드들을 모두 넣으세요.(=, >= 등을 사용하기 위해서는 해당 항목을 추가 요망) + Frm_FilterA.Default_Filter = "code <> '0'" + If Frm_FilterA.ShowDialog <> Windows.Forms.DialogResult.OK Then Return '//창떳을떄 확인아ㅣ고 취소눌르면 다음을 수행하지않는다는거에요. + Dim Filter As String = Frm_FilterA.tb_filter.Text '//값은 아까 그 텍박에 잇구요. + Try + Me.bs.Filter = Filter + + '//바꾸기값이 있으면 변경 20100618 + If Frm_FilterA.cmb_fieldc.SelectedIndex >= 0 AndAlso Frm_FilterA.cmb_fieldc.Text.ToLower <> "code" AndAlso _ + Frm_FilterA.tb_valuec.Text <> "" Then + Dim Drow() As DataRow = Me.Dt.Select(Filter) + For Each Dr As DataRow In Drow + Dr(Frm_FilterA.cmb_fieldc.Text) = Frm_FilterA.tb_valuec.Text + Next + MsgBox("바꾸기 완료", MsgBoxStyle.Information, "확인") + End If + + Catch ex As Exception + Me.bs.Filter = "" + End Try + End If + End If + End Sub + + + 'Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) + ' CType(Me.bs.Current, DataRowView)("공조난방생산기기") = DBNull.Value + ' CType(Me.bs.Current, DataRowView)("공조냉방생산기기") = DBNull.Value + ' If MsgBox("sdf", MsgBoxStyle.OkCancel) = MsgBoxResult.Ok Then + ' Me.bs.EndEdit() + ' Me.bsmain.EndEdit() + ' End If + 'End Sub + + Private Sub 외기부하처리여부ComboBox_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 외기부하처리여부ComboBox.SelectedIndexChanged + ZONE_Control() + End Sub + Private Sub Del_ZoneMyoun(ByVal prompt As Boolean) + If prompt Then + If MsgBox("선택된 줄을 삭제하시겠습니까?", MsgBoxStyle.OkCancel Or MsgBoxStyle.Information, "삭제확인") <> MsgBoxResult.Ok Then Return + End If + Dim Drv As DataRowView = CType(bs.Current, DataRowView) + If Drv Is Nothing Then Return + Dim DR() As DataRow = DSET.tbl_myoun.Select("code <> '0' and 존분류='" & Drv("code").ToString & "'") + If DR.GetUpperBound(0) <> -1 Then + For i As Integer = DR.GetUpperBound(0) To 0 Step -1 + DR(i).Delete() + Next + End If + Me.bs.RemoveCurrent() + End Sub + + Private Sub bt_copy_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt_copy.Click + If Me.bs.Current Is Nothing Then Return + Me.SrcDrv = Me.bs.Current + Me.bt_add.PerformClick() '//신규추가 + Dim NewDrv As DataRowView = Me.bs.Current + + For Each C As DataColumn In Me.Dt.Columns + If C.ColumnName.ToUpper = "CODE" Then + ElseIf C.ColumnName.ToUpper = "설명" Then + NewDrv(C.ColumnName) = SrcDrv(C.ColumnName) & "#1" + Else + NewDrv(C.ColumnName) = SrcDrv(C.ColumnName) + End If + Next + Me.bs.EndEdit() + 'bs.MoveLast() + End Sub +End Class \ No newline at end of file diff --git a/ArinWarev1/Forms/v20091231/Frm_kongjo.Designer.vb b/ArinWarev1/Forms/v20091231/Frm_kongjo.Designer.vb new file mode 100644 index 0000000..c40d98a --- /dev/null +++ b/ArinWarev1/Forms/v20091231/Frm_kongjo.Designer.vb @@ -0,0 +1,920 @@ + _ +Partial Class Frm_kongjo + Inherits CForm + + 'Form은 Dispose를 재정의하여 구성 요소 목록을 정리합니다. + _ + Protected Overrides Sub Dispose(ByVal disposing As Boolean) + Try + If disposing AndAlso components IsNot Nothing Then + components.Dispose() + End If + Finally + MyBase.Dispose(disposing) + End Try + End Sub + + 'Windows Form 디자이너에 필요합니다. + Private components As System.ComponentModel.IContainer + + '참고: 다음 프로시저는 Windows Form 디자이너에 필요합니다. + '수정하려면 Windows Form 디자이너를 사용하십시오. + '코드 편집기를 사용하여 수정하지 마십시오. + _ + 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 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 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 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() + Me.bs = New System.Windows.Forms.BindingSource(Me.components) + Me.DS = New Eco2Ar.DS() + Me.lb_grpname = New System.Windows.Forms.Label() + 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() + Me.bt_Del = New System.Windows.Forms.ToolStripButton() + Me.bt_cancel = New System.Windows.Forms.ToolStripButton() + Me.ToolStripSeparator1 = New System.Windows.Forms.ToolStripSeparator() + Me.lbl_pos = New System.Windows.Forms.ToolStripLabel() + Me.Label15 = New System.Windows.Forms.Label() + Me.PictureBox4 = New System.Windows.Forms.PictureBox() + Me.GroupBox2 = New System.Windows.Forms.GroupBox() + Me.Tb_배기팬동력 = New Eco2Ar.MyTb() + Me.Tb_급기팬동력 = New Eco2Ar.MyTb() + Me.Tb_배기팬효율 = New Eco2Ar.MyTb() + Me.Tb_배기풍량 = New Eco2Ar.MyTb() + Me.Tb_급기팬효율 = New Eco2Ar.MyTb() + Me.Tb_배기팬압력손실 = New Eco2Ar.MyTb() + Me.Tb_급기풍량 = New Eco2Ar.MyTb() + Me.Tb_급기팬압력손실 = New Eco2Ar.MyTb() + Me.Cmb_팬효율산출방식 = New Eco2Ar.MyCmb() + Me.PictureBox2 = New System.Windows.Forms.PictureBox() + Me.GroupBox1 = New System.Windows.Forms.GroupBox() + Me.tb_13 = New Eco2Ar.MyTb() + Me.열교환기유형ComboBox = New Eco2Ar.MyCmb() + Me.공조방식NCMB = New Eco2Ar.MyCmb() + Me.리턴공기혼합여부ComboBox = New Eco2Ar.MyCmb() + Me.가습기유형ComboBox = New Eco2Ar.MyCmb() + Me.tb_08 = New Eco2Ar.MyTb() + Me.tb_01 = New Eco2Ar.MyTb() + Me.외기냉방제어유무ComboBox = New Eco2Ar.MyCmb() + Me.tb_02 = New Eco2Ar.MyTb() + Me.tb_03 = New Eco2Ar.MyTb() + Me.PictureBox1 = New System.Windows.Forms.PictureBox() + Me.Panel1 = New System.Windows.Forms.Panel() + Me.TextBox1 = 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() + Label176 = New System.Windows.Forms.Label() + Label167 = New System.Windows.Forms.Label() + Label168 = New System.Windows.Forms.Label() + Label1 = 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() + 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() + CType(Me.PictureBox4, System.ComponentModel.ISupportInitialize).BeginInit() + Me.GroupBox2.SuspendLayout() + CType(Me.PictureBox2, System.ComponentModel.ISupportInitialize).BeginInit() + Me.GroupBox1.SuspendLayout() + CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit() + Me.Panel1.SuspendLayout() + Me.SuspendLayout() + ' + '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(120, 28) + 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(55, 14) + 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(120, 28) + 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(128, 14) + 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(105, 14) + 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(69, 14) + 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(105, 14) + 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(12, 267) + Label179.Name = "Label179" + Label179.Size = New System.Drawing.Size(81, 14) + 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(12, 239) + Label178.Name = "Label178" + Label178.Size = New System.Drawing.Size(81, 14) + 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(12, 210) + Label177.Name = "Label177" + Label177.Size = New System.Drawing.Size(113, 14) + Label177.TabIndex = 10 + Label177.Text = "배기팬 압력손실[Pa]:" + Label177.TextAlign = System.Drawing.ContentAlignment.MiddleCenter + ' + 'Label176 + ' + Label176.AutoSize = True + Label176.BackColor = System.Drawing.Color.FromArgb(CType(CType(243, Byte), Integer), CType(CType(244, Byte), Integer), CType(CType(246, Byte), Integer)) + Label176.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label176.Location = New System.Drawing.Point(12, 182) + Label176.Name = "Label176" + Label176.Size = New System.Drawing.Size(113, 14) + Label176.TabIndex = 10 + Label176.Text = "급기팬 압력손실[Pa]:" + Label176.TextAlign = System.Drawing.ContentAlignment.MiddleCenter + ' + '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(93, 14) + Label167.TabIndex = 10 + Label167.Text = "열회수율(난방)[-]" + ' + '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(80, 14) + Label168.TabIndex = 10 + Label168.Text = "열교환기 유형:" + ' + 'Label1 + ' + 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(93, 14) + Label1.TabIndex = 14 + Label1.Text = "열회수율(냉방)[-]" + ' + 'Label3 + ' + Label3.AutoSize = True + Label3.BackColor = System.Drawing.Color.FromArgb(CType(CType(243, Byte), Integer), CType(CType(244, Byte), Integer), CType(CType(246, Byte), Integer)) + Label3.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label3.Location = New System.Drawing.Point(12, 27) + Label3.Name = "Label3" + Label3.Size = New System.Drawing.Size(91, 14) + Label3.TabIndex = 8 + Label3.Text = "팬효율 산출방식:" + Label3.TextAlign = System.Drawing.ContentAlignment.MiddleRight + ' + 'Label4 + ' + Label4.AutoSize = True + Label4.BackColor = System.Drawing.Color.FromArgb(CType(CType(243, Byte), Integer), CType(CType(244, Byte), Integer), CType(CType(246, Byte), Integer)) + Label4.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label4.Location = New System.Drawing.Point(12, 153) + Label4.Name = "Label4" + Label4.Size = New System.Drawing.Size(95, 14) + Label4.TabIndex = 10 + Label4.Text = "배기팬 동력[kW]:" + Label4.TextAlign = System.Drawing.ContentAlignment.MiddleCenter + ' + 'Label5 + ' + 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(12, 125) + Label5.Name = "Label5" + Label5.Size = New System.Drawing.Size(95, 14) + Label5.TabIndex = 10 + Label5.Text = "급기팬 동력[kW]:" + Label5.TextAlign = System.Drawing.ContentAlignment.MiddleCenter + ' + 'Label6 + ' + 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(12, 96) + Label6.Name = "Label6" + Label6.Size = New System.Drawing.Size(95, 14) + Label6.TabIndex = 10 + Label6.Text = "배기 풍량[CMH]:" + Label6.TextAlign = System.Drawing.ContentAlignment.MiddleCenter + ' + 'Label7 + ' + 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(12, 68) + Label7.Name = "Label7" + Label7.Size = New System.Drawing.Size(95, 14) + Label7.TabIndex = 10 + Label7.Text = "급기 풍량[CMH]:" + Label7.TextAlign = System.Drawing.ContentAlignment.MiddleCenter + ' + '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(328, 5) + Me.tb_zone_cnt.Name = "tb_zone_cnt" + Me.tb_zone_cnt.Size = New System.Drawing.Size(40, 21) + Me.tb_zone_cnt.TabIndex = 1 + Me.tb_zone_cnt.Text = "0" + Me.tb_zone_cnt.TextAlign = System.Windows.Forms.HorizontalAlignment.Center + ' + '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(228, 8) + Me.Label48.Name = "Label48" + Me.Label48.Size = New System.Drawing.Size(94, 14) + Me.Label48.TabIndex = 0 + Me.Label48.Text = "적용된 입력존 수:" + Me.Label48.TextAlign = System.Drawing.ContentAlignment.MiddleRight + ' + '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.lb_grpname) + Me.SplitContainer1.Panel1.Controls.Add(Me.bn) + ' + 'SplitContainer1.Panel2 + ' + Me.SplitContainer1.Panel2.BackColor = System.Drawing.Color.White + Me.SplitContainer1.Panel2.Controls.Add(Me.Label15) + Me.SplitContainer1.Panel2.Controls.Add(Me.PictureBox4) + Me.SplitContainer1.Panel2.Controls.Add(Me.GroupBox2) + Me.SplitContainer1.Panel2.Controls.Add(Me.GroupBox1) + Me.SplitContainer1.Panel2.Controls.Add(Me.Panel1) + Me.SplitContainer1.Size = New System.Drawing.Size(795, 565) + Me.SplitContainer1.SplitterDistance = 209 + Me.SplitContainer1.TabIndex = 127 + ' + 'dv + ' + Me.dv.A_DelCurrentCell = True + Me.dv.A_EnterToTab = True + 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.FromArgb(CType(CType(245, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(246, Byte), Integer)) + 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, 26) + Me.dv.Margin = New System.Windows.Forms.Padding(3, 5, 3, 5) + 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(207, 497) + Me.dv.TabIndex = 0 + ' + 'DataGridViewTextBoxColumn1 + ' + Me.DataGridViewTextBoxColumn1.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.Fill + Me.DataGridViewTextBoxColumn1.DataPropertyName = "설명" + Me.DataGridViewTextBoxColumn1.HeaderText = "설명" + Me.DataGridViewTextBoxColumn1.Name = "DataGridViewTextBoxColumn1" + ' + 'bs + ' + Me.bs.DataMember = "tbl_kongjo" + Me.bs.DataSource = Me.DS + Me.bs.Filter = "code <> '0'" + ' + 'DS + ' + Me.DS.DataSetName = "DS" + Me.DS.SchemaSerializationMode = System.Data.SchemaSerializationMode.IncludeSchema + ' + 'lb_grpname + ' + Me.lb_grpname.BackColor = System.Drawing.Color.LightSkyBlue + Me.lb_grpname.Dock = System.Windows.Forms.DockStyle.Top + Me.lb_grpname.ForeColor = System.Drawing.SystemColors.HotTrack + Me.lb_grpname.Location = New System.Drawing.Point(0, 0) + Me.lb_grpname.Name = "lb_grpname" + Me.lb_grpname.Size = New System.Drawing.Size(207, 26) + Me.lb_grpname.TabIndex = 96 + Me.lb_grpname.Text = "그룹 :" + Me.lb_grpname.TextAlign = System.Drawing.ContentAlignment.MiddleCenter + ' + '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("나눔고딕 ExtraBold", 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.bn.Location = New System.Drawing.Point(0, 523) + 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(207, 40) + Me.bn.TabIndex = 1 + Me.bn.Text = "BindingNavigator1" + ' + 'lbl_count + ' + Me.lbl_count.Name = "lbl_count" + Me.lbl_count.Size = New System.Drawing.Size(27, 37) + 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, 37) + 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, 37) + 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, 37) + 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, 40) + ' + 'lbl_pos + ' + Me.lbl_pos.Name = "lbl_pos" + Me.lbl_pos.Size = New System.Drawing.Size(14, 37) + Me.lbl_pos.Text = "0" + ' + 'Label15 + ' + Me.Label15.AutoSize = True + Me.Label15.BackColor = System.Drawing.Color.FromArgb(CType(CType(116, Byte), Integer), CType(CType(158, Byte), Integer), CType(CType(209, Byte), Integer)) + Me.Label15.ForeColor = System.Drawing.Color.White + Me.Label15.Location = New System.Drawing.Point(39, 54) + Me.Label15.Name = "Label15" + Me.Label15.Size = New System.Drawing.Size(51, 14) + Me.Label15.TabIndex = 154 + Me.Label15.Text = "공조처리" + ' + 'PictureBox4 + ' + Me.PictureBox4.BackgroundImage = CType(resources.GetObject("PictureBox4.BackgroundImage"), System.Drawing.Image) + Me.PictureBox4.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch + Me.PictureBox4.Location = New System.Drawing.Point(20, 43) + Me.PictureBox4.Name = "PictureBox4" + Me.PictureBox4.Size = New System.Drawing.Size(131, 30) + Me.PictureBox4.TabIndex = 153 + Me.PictureBox4.TabStop = False + ' + 'GroupBox2 + ' + Me.GroupBox2.Controls.Add(Me.Tb_배기팬동력) + Me.GroupBox2.Controls.Add(Me.Tb_급기팬동력) + Me.GroupBox2.Controls.Add(Me.Tb_배기팬효율) + Me.GroupBox2.Controls.Add(Me.Tb_배기풍량) + Me.GroupBox2.Controls.Add(Me.Tb_급기팬효율) + Me.GroupBox2.Controls.Add(Label7) + Me.GroupBox2.Controls.Add(Me.Tb_배기팬압력손실) + Me.GroupBox2.Controls.Add(Me.Tb_급기풍량) + Me.GroupBox2.Controls.Add(Label176) + Me.GroupBox2.Controls.Add(Label6) + Me.GroupBox2.Controls.Add(Me.Tb_급기팬압력손실) + Me.GroupBox2.Controls.Add(Label177) + Me.GroupBox2.Controls.Add(Label5) + Me.GroupBox2.Controls.Add(Label3) + Me.GroupBox2.Controls.Add(Label4) + Me.GroupBox2.Controls.Add(Label178) + Me.GroupBox2.Controls.Add(Label179) + Me.GroupBox2.Controls.Add(Me.Cmb_팬효율산출방식) + Me.GroupBox2.Controls.Add(Me.PictureBox2) + Me.GroupBox2.Location = New System.Drawing.Point(285, 71) + Me.GroupBox2.Name = "GroupBox2" + Me.GroupBox2.Size = New System.Drawing.Size(270, 322) + Me.GroupBox2.TabIndex = 5 + Me.GroupBox2.TabStop = False + ' + 'Tb_배기팬동력 + ' + Me.Tb_배기팬동력.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bs, "배기팬동력", True)) + Me.Tb_배기팬동력.Location = New System.Drawing.Point(145, 150) + Me.Tb_배기팬동력.Name = "Tb_배기팬동력" + Me.Tb_배기팬동력.NectControl = Nothing + Me.Tb_배기팬동력.Size = New System.Drawing.Size(119, 21) + Me.Tb_배기팬동력.TabIndex = 14 + 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(145, 122) + 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_배기팬효율 + ' + Me.Tb_배기팬효율.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bs, "총효율배기팬", True)) + Me.Tb_배기팬효율.Location = New System.Drawing.Point(145, 264) + Me.Tb_배기팬효율.Name = "Tb_배기팬효율" + Me.Tb_배기팬효율.NectControl = Nothing + Me.Tb_배기팬효율.Size = New System.Drawing.Size(119, 21) + Me.Tb_배기팬효율.TabIndex = 18 + 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(145, 94) + 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 + ' + 'Tb_급기팬효율 + ' + Me.Tb_급기팬효율.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bs, "총효율급기팬", True)) + Me.Tb_급기팬효율.Location = New System.Drawing.Point(145, 236) + Me.Tb_급기팬효율.Name = "Tb_급기팬효율" + Me.Tb_급기팬효율.NectControl = Nothing + Me.Tb_급기팬효율.Size = New System.Drawing.Size(119, 21) + Me.Tb_급기팬효율.TabIndex = 17 + 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(145, 208) + Me.Tb_배기팬압력손실.Name = "Tb_배기팬압력손실" + Me.Tb_배기팬압력손실.NectControl = Nothing + Me.Tb_배기팬압력손실.Size = New System.Drawing.Size(119, 21) + Me.Tb_배기팬압력손실.TabIndex = 16 + 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(145, 66) + Me.Tb_급기풍량.Name = "Tb_급기풍량" + Me.Tb_급기풍량.NectControl = Nothing + Me.Tb_급기풍량.Size = New System.Drawing.Size(119, 21) + Me.Tb_급기풍량.TabIndex = 11 + 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(145, 180) + Me.Tb_급기팬압력손실.Name = "Tb_급기팬압력손실" + Me.Tb_급기팬압력손실.NectControl = Nothing + Me.Tb_급기팬압력손실.Size = New System.Drawing.Size(119, 21) + Me.Tb_급기팬압력손실.TabIndex = 15 + Me.Tb_급기팬압력손실.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + ' + 'Cmb_팬효율산출방식 + ' + 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(145, 24) + Me.Cmb_팬효율산출방식.Name = "Cmb_팬효율산출방식" + Me.Cmb_팬효율산출방식.NectControl = Nothing + Me.Cmb_팬효율산출방식.Size = New System.Drawing.Size(119, 22) + Me.Cmb_팬효율산출방식.TabIndex = 10 + ' + 'PictureBox2 + ' + Me.PictureBox2.BackColor = System.Drawing.Color.FromArgb(CType(CType(243, Byte), Integer), CType(CType(244, Byte), Integer), CType(CType(246, Byte), Integer)) + Me.PictureBox2.Location = New System.Drawing.Point(0, 9) + Me.PictureBox2.Name = "PictureBox2" + Me.PictureBox2.Size = New System.Drawing.Size(268, 309) + Me.PictureBox2.TabIndex = 11 + Me.PictureBox2.TabStop = False + ' + 'GroupBox1 + ' + 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(Label175) + Me.GroupBox1.Controls.Add(Label170) + Me.GroupBox1.Controls.Add(Label168) + Me.GroupBox1.Controls.Add(Label173) + Me.GroupBox1.Controls.Add(Label172) + Me.GroupBox1.Controls.Add(Label167) + Me.GroupBox1.Controls.Add(Me.공조방식NCMB) + Me.GroupBox1.Controls.Add(Label171) + Me.GroupBox1.Controls.Add(Me.리턴공기혼합여부ComboBox) + Me.GroupBox1.Controls.Add(Me.가습기유형ComboBox) + Me.GroupBox1.Controls.Add(Me.tb_08) + Me.GroupBox1.Controls.Add(Me.tb_01) + Me.GroupBox1.Controls.Add(Me.외기냉방제어유무ComboBox) + Me.GroupBox1.Controls.Add(Me.tb_02) + Me.GroupBox1.Controls.Add(Me.tb_03) + Me.GroupBox1.Controls.Add(Me.PictureBox1) + Me.GroupBox1.Location = New System.Drawing.Point(20, 71) + Me.GroupBox1.Name = "GroupBox1" + Me.GroupBox1.Size = New System.Drawing.Size(268, 322) + Me.GroupBox1.TabIndex = 5 + Me.GroupBox1.TabStop = False + ' + 'tb_13 + ' + Me.tb_13.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bs, "열회수율냉", True)) + Me.tb_13.Location = New System.Drawing.Point(140, 276) + Me.tb_13.Name = "tb_13" + Me.tb_13.NectControl = Nothing + Me.tb_13.Size = New System.Drawing.Size(119, 21) + Me.tb_13.TabIndex = 9 + Me.tb_13.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + ' + '열교환기유형ComboBox + ' + Me.열교환기유형ComboBox.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList + Me.열교환기유형ComboBox.FormattingEnabled = True + Me.열교환기유형ComboBox.Location = New System.Drawing.Point(140, 223) + Me.열교환기유형ComboBox.Name = "열교환기유형ComboBox" + Me.열교환기유형ComboBox.NectControl = Nothing + Me.열교환기유형ComboBox.Size = New System.Drawing.Size(119, 22) + Me.열교환기유형ComboBox.TabIndex = 7 + ' + '공조방식NCMB + ' + Me.공조방식NCMB.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList + Me.공조방식NCMB.FormattingEnabled = True + Me.공조방식NCMB.Location = New System.Drawing.Point(140, 24) + Me.공조방식NCMB.Name = "공조방식NCMB" + Me.공조방식NCMB.NectControl = Nothing + Me.공조방식NCMB.Size = New System.Drawing.Size(119, 22) + Me.공조방식NCMB.TabIndex = 0 + ' + '리턴공기혼합여부ComboBox + ' + Me.리턴공기혼합여부ComboBox.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList + Me.리턴공기혼합여부ComboBox.FormattingEnabled = True + Me.리턴공기혼합여부ComboBox.Location = New System.Drawing.Point(140, 135) + Me.리턴공기혼합여부ComboBox.Name = "리턴공기혼합여부ComboBox" + Me.리턴공기혼합여부ComboBox.NectControl = Nothing + Me.리턴공기혼합여부ComboBox.Size = New System.Drawing.Size(119, 22) + Me.리턴공기혼합여부ComboBox.TabIndex = 4 + ' + '가습기유형ComboBox + ' + Me.가습기유형ComboBox.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList + Me.가습기유형ComboBox.FormattingEnabled = True + Me.가습기유형ComboBox.Location = New System.Drawing.Point(140, 163) + Me.가습기유형ComboBox.Name = "가습기유형ComboBox" + Me.가습기유형ComboBox.NectControl = Nothing + Me.가습기유형ComboBox.Size = New System.Drawing.Size(119, 22) + Me.가습기유형ComboBox.TabIndex = 5 + ' + 'tb_08 + ' + Me.tb_08.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bs, "열회수율", True)) + Me.tb_08.Location = New System.Drawing.Point(140, 250) + Me.tb_08.Name = "tb_08" + Me.tb_08.NectControl = Nothing + Me.tb_08.Size = New System.Drawing.Size(119, 21) + Me.tb_08.TabIndex = 8 + Me.tb_08.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + ' + 'tb_01 + ' + Me.tb_01.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bs, "설정치난방", True)) + Me.tb_01.Location = New System.Drawing.Point(140, 51) + Me.tb_01.Name = "tb_01" + Me.tb_01.NectControl = Nothing + Me.tb_01.Size = New System.Drawing.Size(119, 21) + Me.tb_01.TabIndex = 1 + Me.tb_01.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + ' + '외기냉방제어유무ComboBox + ' + Me.외기냉방제어유무ComboBox.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList + Me.외기냉방제어유무ComboBox.FormattingEnabled = True + Me.외기냉방제어유무ComboBox.Location = New System.Drawing.Point(140, 194) + Me.외기냉방제어유무ComboBox.Name = "외기냉방제어유무ComboBox" + Me.외기냉방제어유무ComboBox.NectControl = Nothing + Me.외기냉방제어유무ComboBox.Size = New System.Drawing.Size(119, 22) + Me.외기냉방제어유무ComboBox.TabIndex = 6 + ' + 'tb_02 + ' + Me.tb_02.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bs, "설정치냉방", True)) + Me.tb_02.Location = New System.Drawing.Point(140, 79) + Me.tb_02.Name = "tb_02" + Me.tb_02.NectControl = Nothing + Me.tb_02.Size = New System.Drawing.Size(119, 21) + Me.tb_02.TabIndex = 2 + Me.tb_02.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + ' + 'tb_03 + ' + Me.tb_03.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bs, "최대풍량", True)) + Me.tb_03.Location = New System.Drawing.Point(140, 107) + Me.tb_03.Name = "tb_03" + Me.tb_03.NectControl = Nothing + Me.tb_03.Size = New System.Drawing.Size(119, 21) + Me.tb_03.TabIndex = 3 + Me.tb_03.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + ' + 'PictureBox1 + ' + 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(263, 309) + Me.PictureBox1.TabIndex = 11 + Me.PictureBox1.TabStop = False + ' + 'Panel1 + ' + Me.Panel1.BackColor = System.Drawing.Color.FromArgb(CType(CType(243, Byte), Integer), CType(CType(244, Byte), Integer), CType(CType(246, Byte), Integer)) + Me.Panel1.Controls.Add(Me.TextBox1) + Me.Panel1.Controls.Add(Me.tb_zone_cnt) + Me.Panel1.Controls.Add(Me.Label2) + Me.Panel1.Controls.Add(Me.Label48) + Me.Panel1.Dock = System.Windows.Forms.DockStyle.Top + Me.Panel1.Location = New System.Drawing.Point(0, 0) + Me.Panel1.Name = "Panel1" + Me.Panel1.Size = New System.Drawing.Size(580, 30) + Me.Panel1.TabIndex = 4 + ' + 'TextBox1 + ' + Me.TextBox1.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.TextBox1.BackColor = System.Drawing.SystemColors.GrayText + Me.TextBox1.ForeColor = System.Drawing.Color.White + Me.TextBox1.Location = New System.Drawing.Point(495, 5) + Me.TextBox1.Name = "TextBox1" + Me.TextBox1.Size = New System.Drawing.Size(74, 21) + Me.TextBox1.TabIndex = 1 + Me.TextBox1.Text = "0" + Me.TextBox1.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) + Me.Label2.AutoSize = True + Me.Label2.ForeColor = System.Drawing.Color.DarkCyan + Me.Label2.Location = New System.Drawing.Point(383, 8) + Me.Label2.Name = "Label2" + Me.Label2.Size = New System.Drawing.Size(106, 14) + Me.Label2.TabIndex = 0 + Me.Label2.Text = "적용된 면적합(m2):" + Me.Label2.TextAlign = System.Drawing.ContentAlignment.MiddleRight + ' + 'Frm_kongjo + ' + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.None + Me.ClientSize = New System.Drawing.Size(795, 565) + Me.ControlBox = False + Me.Controls.Add(Me.SplitContainer1) + Me.Font = New System.Drawing.Font("나눔고딕 ExtraBold", 8.999999!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.KeyPreview = True + Me.Name = "Frm_kongjo" + Me.ShowInTaskbar = False + Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen + Me.Text = "공조처리시스템" + Me.SplitContainer1.Panel1.ResumeLayout(False) + Me.SplitContainer1.Panel2.ResumeLayout(False) + Me.SplitContainer1.Panel2.PerformLayout() + 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() + CType(Me.PictureBox4, System.ComponentModel.ISupportInitialize).EndInit() + Me.GroupBox2.ResumeLayout(False) + Me.GroupBox2.PerformLayout() + CType(Me.PictureBox2, System.ComponentModel.ISupportInitialize).EndInit() + Me.GroupBox1.ResumeLayout(False) + Me.GroupBox1.PerformLayout() + CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).EndInit() + Me.Panel1.ResumeLayout(False) + Me.Panel1.PerformLayout() + Me.ResumeLayout(False) + + End Sub + Friend WithEvents 공조방식NCMB As MyCmb + Friend WithEvents 열교환기유형ComboBox As MyCmb + Friend WithEvents 외기냉방제어유무ComboBox As MyCmb + Friend WithEvents 가습기유형ComboBox As MyCmb + Friend WithEvents 리턴공기혼합여부ComboBox As MyCmb + Friend WithEvents Tb_배기팬효율 As MyTb + Friend WithEvents Tb_급기팬효율 As MyTb + Friend WithEvents Tb_배기팬압력손실 As MyTb + Friend WithEvents Tb_급기팬압력손실 As MyTb + Friend WithEvents tb_08 As MyTb + Friend WithEvents tb_03 As MyTb + Friend WithEvents tb_02 As MyTb + Friend WithEvents tb_01 As MyTb + Public WithEvents DS As Eco2Ar.DS + Friend WithEvents bs As System.Windows.Forms.BindingSource + Friend WithEvents tb_zone_cnt As System.Windows.Forms.TextBox + Friend WithEvents Label48 As System.Windows.Forms.Label + Friend WithEvents SplitContainer1 As System.Windows.Forms.SplitContainer + Friend WithEvents dv As CEnergy.arindv + Friend WithEvents DataGridViewTextBoxColumn1 As System.Windows.Forms.DataGridViewTextBoxColumn + Friend WithEvents bn As System.Windows.Forms.BindingNavigator + Friend WithEvents bt_add As System.Windows.Forms.ToolStripButton + Friend WithEvents bt_Del As System.Windows.Forms.ToolStripButton + Friend WithEvents bt_cancel As System.Windows.Forms.ToolStripButton + Friend WithEvents ToolStripSeparator1 As System.Windows.Forms.ToolStripSeparator + Friend WithEvents Panel1 As System.Windows.Forms.Panel + 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 + Friend WithEvents GroupBox1 As System.Windows.Forms.GroupBox + Friend WithEvents Label15 As System.Windows.Forms.Label + Friend WithEvents PictureBox4 As System.Windows.Forms.PictureBox + Friend WithEvents PictureBox1 As System.Windows.Forms.PictureBox + Friend WithEvents PictureBox2 As System.Windows.Forms.PictureBox + Friend WithEvents tb_13 As Eco2Ar.MyTb + Friend WithEvents TextBox1 As System.Windows.Forms.TextBox + Friend WithEvents Label2 As System.Windows.Forms.Label + Friend WithEvents Tb_배기팬동력 As Eco2Ar.MyTb + Friend WithEvents Tb_급기팬동력 As Eco2Ar.MyTb + Friend WithEvents Tb_배기풍량 As Eco2Ar.MyTb + Friend WithEvents Tb_급기풍량 As Eco2Ar.MyTb + Friend WithEvents Cmb_팬효율산출방식 As Eco2Ar.MyCmb + Friend WithEvents lb_grpname As System.Windows.Forms.Label +End Class diff --git a/ArinWarev1/Forms/v20091231/Frm_kongjo.resx b/ArinWarev1/Forms/v20091231/Frm_kongjo.resx new file mode 100644 index 0000000..19ce7e2 --- /dev/null +++ b/ArinWarev1/Forms/v20091231/Frm_kongjo.resx @@ -0,0 +1,284 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=2.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 + + + 222, 17 + + + 286, 17 + + + 353, 17 + + + + + /9j/4AAQSkZJRgABAgEASABIAAD/7gAOQWRvYmUAZAAAAAAB/+ED5kV4aWYAAE1NACoAAAAIAAcBEgAD + AAAAAQABAAABGgAFAAAAAQAAAGIBGwAFAAAAAQAAAGoBKAADAAAAAQACAAABMQACAAAAHAAAAHIBMgAC + AAAAFAAAAI6HaQAEAAAAAQAAAKIAAADCAEgAAAABAAAASAAAAAEAAEFkb2JlIFBob3Rvc2hvcCBDUzMg + V2luZG93cwAyMDEwOjA0OjE1IDIwOjMyOjA0AAACoAIABAAAAAEAAAA8oAMABAAAAAEAAAAMAAAAAAAA + AAYBAwADAAAAAQAGAAABGgAFAAAAAQAAARABGwAFAAAAAQAAARgBKAADAAAAAQACAAACAQAEAAAAAQAA + ASACAgAEAAAAAQAAAr4AAAAAAAAASAAAAAEAAABIAAAAAf/Y/+AAEEpGSUYAAQIAAEgASAAA/+0ADEFk + b2JlX0NNAAH/7gAOQWRvYmUAZIAAAAAB/9sAhAAMCAgICQgMCQkMEQsKCxEVDwwMDxUYExMVExMYEQwM + DAwMDBEMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMAQ0LCw0ODRAODhAUDg4OFBQODg4OFBEMDAwM + DBERDAwMDAwMEQwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAz/wAARCAAMADwDASIAAhEBAxEB/90A + BAAE/8QBPwAAAQUBAQEBAQEAAAAAAAAAAwABAgQFBgcICQoLAQABBQEBAQEBAQAAAAAAAAABAAIDBAUG + BwgJCgsQAAEEAQMCBAIFBwYIBQMMMwEAAhEDBCESMQVBUWETInGBMgYUkaGxQiMkFVLBYjM0coLRQwcl + klPw4fFjczUWorKDJkSTVGRFwqN0NhfSVeJl8rOEw9N14/NGJ5SkhbSVxNTk9KW1xdXl9VZmdoaWprbG + 1ub2N0dXZ3eHl6e3x9fn9xEAAgIBAgQEAwQFBgcHBgU1AQACEQMhMRIEQVFhcSITBTKBkRShsUIjwVLR + 8DMkYuFygpJDUxVjczTxJQYWorKDByY1wtJEk1SjF2RFVTZ0ZeLys4TD03Xj80aUpIW0lcTU5PSltcXV + 5fVWZnaGlqa2xtbm9ic3R1dnd4eXp7fH/9oADAMBAAIRAxEAPwDd/amR/pH/AOcf70v2pkf6R/8AnH+9 + UUlofq/Bpevxb37UyP8ASP8A84/3pftTI/0j/wDOP96opJfq/BXr8W9+1Mj/AEj/APOP96X7UyP9I/8A + zj/eqKSX6vwV6/F3ujdbuGS2i5xfU8HVxktIG76XyW99vo27p0XGdO2/ba930dZj+q5dX+qfZPL8VAeD + 341VVr/eZhx+0bu708n/2f/iDFhJQ0NfUFJPRklMRQABAQAADEhMaW5vAhAAAG1udHJSR0IgWFlaIAfO + AAIACQAGADEAAGFjc3BNU0ZUAAAAAElFQyBzUkdCAAAAAAAAAAAAAAAAAAD21gABAAAAANMtSFAgIAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAEWNwcnQAAAFQAAAAM2Rl + c2MAAAGEAAAAbHd0cHQAAAHwAAAAFGJrcHQAAAIEAAAAFHJYWVoAAAIYAAAAFGdYWVoAAAIsAAAAFGJY + WVoAAAJAAAAAFGRtbmQAAAJUAAAAcGRtZGQAAALEAAAAiHZ1ZWQAAANMAAAAhnZpZXcAAAPUAAAAJGx1 + bWkAAAP4AAAAFG1lYXMAAAQMAAAAJHRlY2gAAAQwAAAADHJUUkMAAAQ8AAAIDGdUUkMAAAQ8AAAIDGJU + UkMAAAQ8AAAIDHRleHQAAAAAQ29weXJpZ2h0IChjKSAxOTk4IEhld2xldHQtUGFja2FyZCBDb21wYW55 + AABkZXNjAAAAAAAAABJzUkdCIElFQzYxOTY2LTIuMQAAAAAAAAAAAAAAEnNSR0IgSUVDNjE5NjYtMi4x + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABYWVogAAAAAAAA + 81EAAQAAAAEWzFhZWiAAAAAAAAAAAAAAAAAAAAAAWFlaIAAAAAAAAG+iAAA49QAAA5BYWVogAAAAAAAA + YpkAALeFAAAY2lhZWiAAAAAAAAAkoAAAD4QAALbPZGVzYwAAAAAAAAAWSUVDIGh0dHA6Ly93d3cuaWVj + LmNoAAAAAAAAAAAAAAAWSUVDIGh0dHA6Ly93d3cuaWVjLmNoAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAGRlc2MAAAAAAAAALklFQyA2MTk2Ni0yLjEgRGVmYXVsdCBSR0Ig + Y29sb3VyIHNwYWNlIC0gc1JHQgAAAAAAAAAAAAAALklFQyA2MTk2Ni0yLjEgRGVmYXVsdCBSR0IgY29s + b3VyIHNwYWNlIC0gc1JHQgAAAAAAAAAAAAAAAAAAAAAAAAAAAABkZXNjAAAAAAAAACxSZWZlcmVuY2Ug + Vmlld2luZyBDb25kaXRpb24gaW4gSUVDNjE5NjYtMi4xAAAAAAAAAAAAAAAsUmVmZXJlbmNlIFZpZXdp + bmcgQ29uZGl0aW9uIGluIElFQzYxOTY2LTIuMQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAdmlldwAA + AAAAE6T+ABRfLgAQzxQAA+3MAAQTCwADXJ4AAAABWFlaIAAAAAAATAlWAFAAAABXH+dtZWFzAAAAAAAA + AAEAAAAAAAAAAAAAAAAAAAAAAAACjwAAAAJzaWcgAAAAAENSVCBjdXJ2AAAAAAAABAAAAAAFAAoADwAU + ABkAHgAjACgALQAyADcAOwBAAEUASgBPAFQAWQBeAGMAaABtAHIAdwB8AIEAhgCLAJAAlQCaAJ8ApACp + AK4AsgC3ALwAwQDGAMsA0ADVANsA4ADlAOsA8AD2APsBAQEHAQ0BEwEZAR8BJQErATIBOAE+AUUBTAFS + AVkBYAFnAW4BdQF8AYMBiwGSAZoBoQGpAbEBuQHBAckB0QHZAeEB6QHyAfoCAwIMAhQCHQImAi8COAJB + AksCVAJdAmcCcQJ6AoQCjgKYAqICrAK2AsECywLVAuAC6wL1AwADCwMWAyEDLQM4A0MDTwNaA2YDcgN+ + A4oDlgOiA64DugPHA9MD4APsA/kEBgQTBCAELQQ7BEgEVQRjBHEEfgSMBJoEqAS2BMQE0wThBPAE/gUN + BRwFKwU6BUkFWAVnBXcFhgWWBaYFtQXFBdUF5QX2BgYGFgYnBjcGSAZZBmoGewaMBp0GrwbABtEG4wb1 + BwcHGQcrBz0HTwdhB3QHhgeZB6wHvwfSB+UH+AgLCB8IMghGCFoIbgiCCJYIqgi+CNII5wj7CRAJJQk6 + CU8JZAl5CY8JpAm6Cc8J5Qn7ChEKJwo9ClQKagqBCpgKrgrFCtwK8wsLCyILOQtRC2kLgAuYC7ALyAvh + C/kMEgwqDEMMXAx1DI4MpwzADNkM8w0NDSYNQA1aDXQNjg2pDcMN3g34DhMOLg5JDmQOfw6bDrYO0g7u + DwkPJQ9BD14Peg+WD7MPzw/sEAkQJhBDEGEQfhCbELkQ1xD1ERMRMRFPEW0RjBGqEckR6BIHEiYSRRJk + EoQSoxLDEuMTAxMjE0MTYxODE6QTxRPlFAYUJxRJFGoUixStFM4U8BUSFTQVVhV4FZsVvRXgFgMWJhZJ + FmwWjxayFtYW+hcdF0EXZReJF64X0hf3GBsYQBhlGIoYrxjVGPoZIBlFGWsZkRm3Gd0aBBoqGlEadxqe + GsUa7BsUGzsbYxuKG7Ib2hwCHCocUhx7HKMczBz1HR4dRx1wHZkdwx3sHhYeQB5qHpQevh7pHxMfPh9p + H5Qfvx/qIBUgQSBsIJggxCDwIRwhSCF1IaEhziH7IiciVSKCIq8i3SMKIzgjZiOUI8Ij8CQfJE0kfCSr + JNolCSU4JWgllyXHJfcmJyZXJocmtyboJxgnSSd6J6sn3CgNKD8ocSiiKNQpBik4KWspnSnQKgIqNSpo + KpsqzysCKzYraSudK9EsBSw5LG4soizXLQwtQS12Last4S4WLkwugi63Lu4vJC9aL5Evxy/+MDUwbDCk + MNsxEjFKMYIxujHyMioyYzKbMtQzDTNGM38zuDPxNCs0ZTSeNNg1EzVNNYc1wjX9Njc2cjauNuk3JDdg + N5w31zgUOFA4jDjIOQU5Qjl/Obw5+To2OnQ6sjrvOy07azuqO+g8JzxlPKQ84z0iPWE9oT3gPiA+YD6g + PuA/IT9hP6I/4kAjQGRApkDnQSlBakGsQe5CMEJyQrVC90M6Q31DwEQDREdEikTORRJFVUWaRd5GIkZn + RqtG8Ec1R3tHwEgFSEtIkUjXSR1JY0mpSfBKN0p9SsRLDEtTS5pL4kwqTHJMuk0CTUpNk03cTiVObk63 + TwBPSU+TT91QJ1BxULtRBlFQUZtR5lIxUnxSx1MTU19TqlP2VEJUj1TbVShVdVXCVg9WXFapVvdXRFeS + V+BYL1h9WMtZGllpWbhaB1pWWqZa9VtFW5Vb5Vw1XIZc1l0nXXhdyV4aXmxevV8PX2Ffs2AFYFdgqmD8 + YU9homH1YklinGLwY0Njl2PrZEBklGTpZT1lkmXnZj1mkmboZz1nk2fpaD9olmjsaUNpmmnxakhqn2r3 + a09rp2v/bFdsr20IbWBtuW4SbmtuxG8eb3hv0XArcIZw4HE6cZVx8HJLcqZzAXNdc7h0FHRwdMx1KHWF + deF2Pnabdvh3VnezeBF4bnjMeSp5iXnnekZ6pXsEe2N7wnwhfIF84X1BfaF+AX5ifsJ/I3+Ef+WAR4Co + gQqBa4HNgjCCkoL0g1eDuoQdhICE44VHhauGDoZyhteHO4efiASIaYjOiTOJmYn+imSKyoswi5aL/Ixj + jMqNMY2Yjf+OZo7OjzaPnpAGkG6Q1pE/kaiSEZJ6kuOTTZO2lCCUipT0lV+VyZY0lp+XCpd1l+CYTJi4 + mSSZkJn8mmia1ZtCm6+cHJyJnPedZJ3SnkCerp8dn4uf+qBpoNihR6G2oiailqMGo3aj5qRWpMelOKWp + phqmi6b9p26n4KhSqMSpN6mpqhyqj6sCq3Wr6axcrNCtRK24ri2uoa8Wr4uwALB1sOqxYLHWskuywrM4 + s660JbSctRO1irYBtnm28Ldot+C4WbjRuUq5wro7urW7LrunvCG8m70VvY++Cr6Evv+/er/1wHDA7MFn + wePCX8Lbw1jD1MRRxM7FS8XIxkbGw8dBx7/IPci8yTrJuco4yrfLNsu2zDXMtc01zbXONs62zzfPuNA5 + 0LrRPNG+0j/SwdNE08bUSdTL1U7V0dZV1tjXXNfg2GTY6Nls2fHadtr724DcBdyK3RDdlt4c3qLfKd+v + 4DbgveFE4cziU+Lb42Pj6+Rz5PzlhOYN5pbnH+ep6DLovOlG6dDqW+rl63Dr++yG7RHtnO4o7rTvQO/M + 8Fjw5fFy8f/yjPMZ86f0NPTC9VD13vZt9vv3ivgZ+Kj5OPnH+lf65/t3/Af8mP0p/br+S/7c/23////b + AEMAAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQICAgICAgICAgICAwMD + AwMDAwMDA//bAEMBAQEBAQEBAQEBAQICAQICAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMD + AwMDAwMDAwMDAwMDAwMDA//AABEIAAwAPAMBEQACEQEDEQH/xAAfAAABBQEBAQEBAQAAAAAAAAAAAQID + BAUGBwgJCgv/xAC1EAACAQMDAgQDBQUEBAAAAX0BAgMABBEFEiExQQYTUWEHInEUMoGRoQgjQrHBFVLR + 8CQzYnKCCQoWFxgZGiUmJygpKjQ1Njc4OTpDREVGR0hJSlNUVVZXWFlaY2RlZmdoaWpzdHV2d3h5eoOE + hYaHiImKkpOUlZaXmJmaoqOkpaanqKmqsrO0tba3uLm6wsPExcbHyMnK0tPU1dbX2Nna4eLj5OXm5+jp + 6vHy8/T19vf4+fr/xAAfAQADAQEBAQEBAQEBAAAAAAAAAQIDBAUGBwgJCgv/xAC1EQACAQIEBAMEBwUE + BAABAncAAQIDEQQFITEGEkFRB2FxEyIygQgUQpGhscEJIzNS8BVictEKFiQ04SXxFxgZGiYnKCkqNTY3 + ODk6Q0RFRkdISUpTVFVWV1hZWmNkZWZnaGlqc3R1dnd4eXqCg4SFhoeIiYqSk5SVlpeYmZqio6Slpqeo + qaqys7S1tre4ubrCw8TFxsfIycrS09TV1tfY2dri4+Tl5ufo6ery8/T19vf4+fr/2gAMAwEAAhEDEQA/ + AP1ZH7UPxEAA/wCEw8bnj/ob9f8A/k+v7U/1Nyj/AKF+G/8ABUP/AJE/llcSZlZf7dX/APBk/wDMX/hq + H4if9Df43/8ACv1//wCT6P8AU3Kf+hfhv/BUP/kQ/wBZcy/6Dq//AIMn/mH/AA1D8RP+hv8AG/8A4V+v + /wDyfR/qblP/AEL8N/4Kh/8AIh/rLmX/AEHV/wDwZP8AzD/hqH4if9Df43/8K/X/AP5Po/1Nyn/oX4b/ + AMFQ/wDkQ/1lzL/oOr/+DJ/5h/w1D8RP+hv8b/8AhX6//wDJ9H+puU/9C/Df+Cof/Ih/rLmX/QdX/wDB + k/8AMT/hqH4if9Df43/8K/X/AP5Po/1Nyn/oX4b/AMFQ/wDkQ/1kzL/oOr/+DJ/5n2R+xz+234zt/iRp + nw+8a6vqXiDwZ4gs9baObXr+bUr/AMPajpmkX2tQ3FlqV2Zb57K7XT2t3tXkaJWkV4whVxJ+beJfAuU4 + Th/FZ/hKEKOMw8qd+SKjGcZzjTs4q0bpyUlJK7s073VvuuBOLMxxGcYfJ8TWlVw1ZTtzu7hKMJTupPWz + UWnFu2qatrf9aP8AhfXgv+zv7U89/sfm+V5207N+M43fSv50P2w/kwr/AEFP42CgAoAKACgAoA9s/Z0/ + s7/hcng3+1vP/s7Ov/avs2PP2f8ACL63t2buP9ZjP+zmvz7xU/5IPPf+4H/qRRPsvD//AJK7KP8AuL/6 + ZqH7/wD/ABaT/hUfb7Ht/wBj7V9p8v8A9Cr+Oz+lz//Z + + + + 45 + + \ No newline at end of file diff --git a/ArinWarev1/Forms/v20091231/Frm_kongjo.vb b/ArinWarev1/Forms/v20091231/Frm_kongjo.vb new file mode 100644 index 0000000..7a1a395 --- /dev/null +++ b/ArinWarev1/Forms/v20091231/Frm_kongjo.vb @@ -0,0 +1,493 @@ +Public Class Frm_kongjo + + Dim Init As Boolean = False + Dim SrcDrv As DataRowView + +#Region "data Base 변경여부및 적용방법" + + '''변경된내용을적용한다. + Public Overrides Function AcceptChanged() As Boolean + bs.EndEdit() + Dim BaseDS As DataSet = CType(bs.DataSource, DataSet) + Dim BaseDT As DataTable = BaseDS.Tables(bs.DataMember) + BaseDT.AcceptChanges() + Return True + End Function + + '''변경된내용이있다면 취소한다. + Public Overrides Function RejectChanged() As Boolean + Dim BaseDS As DataSet = CType(bs.DataSource, DataSet) + Dim BaseDT As DataTable = BaseDS.Tables(bs.DataMember) + BaseDT.RejectChanges() + Return True + End Function + + '''데이터에변형이있었는가? + Public Overrides Function HasChanged() As Boolean + bs.EndEdit() + Dim BaseDS As DataSet = CType(bs.DataSource, DataSet) + Dim BaseDT As DataTable = BaseDS.Tables(bs.DataMember) + Dim ChangeDT As DataTable = BaseDT.GetChanges + If Not ChangeDT Is Nothing Then Return True + Return False + End Function + + '''기본데이터테이블을 반환합니다. + Public Function DT() As DataTable + Dim BaseDS As DataSet = CType(bs.DataSource, DataSet) + Return BaseDS.Tables(bs.DataMember) + End Function + + +#End Region + + + Private Sub MdiMain_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load + 'MdiMain.Toggle_Menu_Color(MdiMain.E_MenuIdx.공조처리) + Me.bs.DataSource = DSET + '//공조처리 + AddHandler DSET.tbl_kongjo.TableNewRow, AddressOf AddNewDataRow_kongjo + + '//콤보컨트롤 바인딩 + Binding_Zone() + + '//모든컨트롤의 cTrl_enter 를 추가합니다 + BindProperty(CType(Me.SplitContainer1.Panel2.Controls, Control.ControlCollection)) + + Me.bs.Filter = "code <> '0' and 공조방식 = '" + Me.Parameter + "'" + Me.lb_grpname.Text = Me.Parameter + + ' Binding_Zone() + Me.Init = True + + Try + Me.bs.Position = CEnergy.ARINCLASS.Read_LastPos_Frm(Me) + Catch ex As Exception + Me.bs.MoveFirst() + End Try + + bs_CurrentChanged(sender, e) + Validate_Control() + + + End Sub +#Region "Control_Enter" + Private Sub BindProperty(ByVal Ctl As Control.ControlCollection) + For Each C As Control In Ctl + If C.Controls.Count > 1 Then + BindProperty(C.Controls) + Else + If C.GetType.ToString.ToUpper.IndexOf("MYTB") <> -1 Then + AddHandler CType(C, MyTb).KeyDown, AddressOf TextBOx_KeyDown + ElseIf C.GetType.ToString.ToUpper.IndexOf("MYCMB") <> -1 Then + AddHandler CType(C, MyCmb).KeyDown, AddressOf Cmd_KeyDown + End If + End If + Next + End Sub + + + Private Sub TextBOx_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) + If e.KeyCode = Keys.Enter AndAlso e.Control Then + Try + Dim Field As String = (CType(sender, MyTb).DataBindings.Item("text").BindingMemberInfo.BindingField) + For Each Dr As DataRow In DT.Select(Me.bs.Filter, "") + Dr(Field) = CType(sender, MyTb).Text + Next + Work_msg_timer("모든값이 변경되었습니다", 25) + Catch ex As Exception + + End Try + + End If + End Sub + Private Sub Cmd_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) + If e.KeyCode = Keys.Enter AndAlso e.Control Then + Try + Dim Field As String = (CType(sender, MyCmb).DataBindings.Item("selectedvalue").BindingMemberInfo.BindingField) + For Each Dr As DataRow In DT.Select(Me.bs.Filter, "") + Dr(Field) = CType(sender, MyCmb).SelectedValue + Next + Work_msg_timer("모든값이 변경되었습니다", 25) + Catch ex As Exception + + End Try + End If + End Sub +#End Region + + +#Region "공조처리시스템" + + Private Function GetMaxCode(ByVal dt As DataTable) As String + Try + Dim Dr As DataRow = dt.Select("", "code desc")(0) + Return Format(CInt(Dr("code")) + 1, "0000") + Catch ex As Exception + Return "0001" + End Try + End Function + + Private Sub MdiMain_FormClosed(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosedEventArgs) Handles Me.FormClosed + CEnergy.ARINCLASS.SaveLoad_FrmSetting(Me, Me.bs.Position, True) + End Sub + + Private Sub MdiMain_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown + Select Case e.KeyCode + Case Keys.F12 + End Select + End Sub + Private Sub AddNewDataRow_kongjo(ByVal sender As Object, ByVal e As System.Data.DataTableNewRowEventArgs) + e.Row.Item("code") = GetMaxCode(DSET.tbl_kongjo) + e.Row.Item("팬효율산출방식") = "계산치" + End Sub + Private Sub ToolStripButton48_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt_add.Click + If Not EndEdit(Me.bs) Then Return + Me.bs.AddNew() + INitRow(Me.Controls) + End Sub + + Private Sub ToolStripButton49_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt_Del.Click + Dbbase.DelCrow(Me.bs, True) + End Sub + + Private Sub ToolStripButton51_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt_cancel.Click + If Not EndEdit(Me.bs) Then Return + Data_Cancel(DSET.tbl_profile, Nothing) + End Sub + + + Private Sub Cmb_DeleteVal(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) + If e.KeyCode = Keys.Delete Then + CType(sender, ComboBox).SelectedValue = "" + End If + End Sub + + Private Sub Binding_Zone() + Dim bs_cmb_공조방식 As New BindingSource(DSET, "tbl_common") + bs_cmb_공조방식.Filter = "gubun='1026'" + bs_cmb_공조방식.Sort = "code" + Me.공조방식NCMB.DataSource = bs_cmb_공조방식 + 공조방식NCMB.DisplayMember = "name" + 공조방식NCMB.ValueMember = "name" + Me.공조방식NCMB.DataBindings.Add("selectedvalue", Me.bs, "공조방식") + AddHandler 공조방식NCMB.KeyDown, AddressOf Cmb_DeleteVal + + Dim bs_cmb_리턴공기혼합여부ComboBox As New BindingSource(DSET, "tbl_common") + bs_cmb_리턴공기혼합여부ComboBox.Filter = "gubun='1054'" + bs_cmb_리턴공기혼합여부ComboBox.Sort = "code" + Me.리턴공기혼합여부ComboBox.DataSource = bs_cmb_리턴공기혼합여부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(DSET, "tbl_common") + bs_가습기유형ComboBox.Filter = "gubun='1015'" + 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(DSET, "tbl_common") + bs_외기냉방제어유무ComboBox.Filter = "gubun='1032'" + 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(DSET, "tbl_common") + bs_열교환기유형ComboBox.Filter = "gubun='1016'" + 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_Cmb_팬효율산출방식 As New BindingSource(DSET, "tbl_common") + bs_Cmb_팬효율산출방식.Sort = "code" + bs_Cmb_팬효율산출방식.Filter = "gubun='1031'" + Cmb_팬효율산출방식.DataSource = bs_Cmb_팬효율산출방식 + Cmb_팬효율산출방식.DisplayMember = "name" + Cmb_팬효율산출방식.ValueMember = "name" + Me.Cmb_팬효율산출방식.DataBindings.Add("selectedvalue", 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 + If Me.bs.Position < Me.bs.Count Then Me.bs.Position += 1 + Else + If Me.bs.Position > 0 Then Me.bs.Position -= 1 + End If + Me.Validate() + My.Application.DoEvents() + End Sub +#End Region + + Private Sub 열교환기유형ComboBox_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 열교환기유형ComboBox.SelectedIndexChanged + Validate_Control() + End Sub + Private Sub Validate_Control() + If Not Init Then Return + Try + If Me.열교환기유형ComboBox.SelectedIndex = 0 Or Me.열교환기유형ComboBox.SelectedIndex = 1 Then '//사용안함 + Me.tb_08.Enabled = False + Me.tb_13.Enabled = False + Else + Me.tb_08.Enabled = True + Me.tb_13.Enabled = True + End If + bs.EndEdit() + Catch ex As Exception + + End Try + Try + If Me.Cmb_팬효율산출방식.SelectedIndex = 0 Then + Me.Tb_급기풍량.Enabled = True + Me.Tb_배기풍량.Enabled = True + Me.Tb_급기팬동력.Enabled = True + Me.Tb_배기팬동력.Enabled = True + Else + Me.Tb_급기풍량.Enabled = False + Me.Tb_배기풍량.Enabled = False + Me.Tb_급기팬동력.Enabled = False + Me.Tb_배기팬동력.Enabled = False + End If + Catch ex As Exception + + End Try + + End Sub + + Private Sub bs_CurrentChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bs.CurrentChanged + '//존에 적용된수를 구한다ㅏ.(존수만 구했으니깐 단순히 해당 데이터의 배열갯수만 보여줬습니다. 면적을 구하려면 + If Not Init Then Return + Try + Dim Drv As DataRowView = CType(bs.Current, DataRowView) + Dim DR() As DS.tbl_zoneRow = DSET.tbl_zone.Select("냉난방공조처리시스템='" & Drv("code").ToString & "'") + If DR.GetUpperBound(0) = -1 Then '//해당되는 데이터가없을경우 + Me.tb_zone_cnt.Text = "0" + Me.TextBox1.Text = "0" + Else + Me.tb_zone_cnt.Text = CStr(DR.GetUpperBound(0) + 1) + Dim 면적 As Decimal = 0 + For Each drow As DS.tbl_zoneRow In DR + Try + 면적 += TOSG(drow.면적) + Catch ex As Exception + + End Try + Next + Me.TextBox1.Text = TOST(면적) + End If + + Catch ex As Exception + + End Try + + Me.bs.EndEdit() + + '// 며면적에 들어왓어요 표시하고싶으신곳에하세요 + + + End Sub + + Private Sub 공조방식NCMB_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles 공조방식NCMB.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) <> 17 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() '//한줄추가 + + Dim Cnt As Short = 0 + For i As Integer = 0 To CB.GetUpperBound(0) + Select Case i + Case 0 + CType(Me.bs.Current, DataRowView)("설명") = CB(i).Split(CChar(vbTab))(ii).Trim + Case 0 + 3 '//사용프로필 앞에 두개를 숫자4자리로변환 + If CB(i).Split(CChar(vbTab))(ii).Trim = "" Then + Me.공조방식NCMB.SelectedIndex = 0 + Else + Me.공조방식NCMB.Text = CB(i).Split(CChar(vbTab))(ii).Trim + End If + 'Me.공조방식NCMB.Text = CB(i).Split(CChar(vbTab))(ii).Trim + Case 1 + 3 '//공란 + Me.tb_01.Text = CB(i).Split(CChar(vbTab))(ii).Trim + Case 2 + 3 '//면적 + Me.tb_02.Text = CB(i).Split(CChar(vbTab))(ii).Trim + Case 3 + 3 + Me.tb_03.Text = CB(i).Split(CChar(vbTab))(ii).Trim + Case 4 + 3 + If CB(i).Split(CChar(vbTab))(ii).Trim = "" Then + Me.리턴공기혼합여부ComboBox.SelectedIndex = 0 + Else + Me.리턴공기혼합여부ComboBox.Text = CB(i).Split(CChar(vbTab))(ii).Trim + End If + ' Me.리턴공기혼합여부ComboBox.Text = CStr(IIf(CB(i).Split(CChar(vbTab))(ii).Trim = "", "0", CB(i).Split(CChar(vbTab))(ii).Trim )) + Case 5 + 3 + If CB(i).Split(CChar(vbTab))(ii).Trim = "" Then + Me.가습기유형ComboBox.SelectedIndex = 0 + Else + Me.가습기유형ComboBox.Text = CB(i).Split(CChar(vbTab))(ii).Trim + End If + 'Me.가습기유형ComboBox.Text = CStr(IIf(CB(i).Split(CChar(vbTab))(ii).Trim = "", "0", CB(i).Split(CChar(vbTab))(ii).Trim )) + Case 6 + 3 + If CB(i).Split(CChar(vbTab))(ii).Trim = "" Then + Me.외기냉방제어유무ComboBox.SelectedIndex = 0 + Else + Me.외기냉방제어유무ComboBox.Text = CB(i).Split(CChar(vbTab))(ii).Trim + End If + ' Me.외기냉방제어유무ComboBox.Text = CStr(IIf(CB(i).Split(CChar(vbTab))(ii).Trim = "", "0", CB(i).Split(CChar(vbTab))(ii).Trim )) + Case 7 + 3 + If CB(i).Split(CChar(vbTab))(ii).Trim = "" Then + Me.열교환기유형ComboBox.SelectedIndex = 0 + Else + Me.열교환기유형ComboBox.Text = CB(i).Split(CChar(vbTab))(ii).Trim + End If + ' Me.열교환기유형ComboBox.Text = CStr(IIf(CB(i).Split(CChar(vbTab))(ii).Trim = "", "0", CB(i).Split(CChar(vbTab))(ii).Trim )) + Case 8 + 3 + Me.tb_08.Text = CB(i).Split(CChar(vbTab))(ii).Trim + Case 8 + 3 + 1 + Me.tb_13.Text = CB(i).Split(CChar(vbTab))(ii).Trim + Case 9 + 3 + 1 + Me.Tb_급기팬압력손실.Text = CB(i).Split(CChar(vbTab))(ii).Trim + Case 10 + 3 + 1 + Me.Tb_배기팬압력손실.Text = CB(i).Split(CChar(vbTab))(ii).Trim + Case 11 + 3 + 1 + Me.Tb_급기팬효율.Text = CB(i).Split(CChar(vbTab))(ii).Trim + Case 12 + 3 + 1 + Me.Tb_배기팬효율.Text = CB(i).Split(CChar(vbTab))(ii).Trim + End Select + Next + Next + + Me.bs.EndEdit() + End If + End Sub + + Private Sub bt_Del_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles bt_Del.MouseDown + If e.Button = Windows.Forms.MouseButtons.Right Then + If MsgBox("전체삭제를 하시겠습니까?", MsgBoxStyle.Information Or MsgBoxStyle.OkCancel, "확인") = MsgBoxResult.Ok Then + Dim dR() As DataRow = DSET.tbl_kongjo.Select(Me.bs.Filter, "") + For i As Integer = dR.GetUpperBound(0) To 0 Step -1 + dR(i).Delete() + Next + DSET.tbl_kongjo.AcceptChanges() + End If + End If + End Sub + + + Private Sub dv_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles dv.MouseUp + If Prj.UserAuthType = "ADMIN" OrElse Prj.UserAuthType = "BOTH" OrElse Prj.UserAuthType = "BOTH2" OrElse Prj.UserAuthType = "BOTH1" Then '//2011.03.08 추가 + If e.Button = Windows.Forms.MouseButtons.Right Then + Dim Frm_FilterA As New Frm_Filter + Frm_FilterA.ColumTitle = getColCaption(Me.DT) + Frm_FilterA.ColumList = getColName(Me.DT) + Frm_FilterA.Colorlist = "" + Frm_FilterA.Numfield = "" '//20100618 Color 리스트처럼 , 구분해서 필드들을 모두 넣으세요.(=, >= 등을 사용하기 위해서는 해당 항목을 추가 요망) + Frm_FilterA.Default_Filter = "code <> '0'" + + If Frm_FilterA.ShowDialog <> Windows.Forms.DialogResult.OK Then Return '//창떳을떄 확인아ㅣ고 취소눌르면 다음을 수행하지않는다는거에요. + Dim Filter As String = Frm_FilterA.tb_filter.Text '//값은 아까 그 텍박에 잇구요. + Try + Me.bs.Filter = Filter + + '//바꾸기값이 있으면 변경 20100618 + If Frm_FilterA.cmb_fieldc.SelectedIndex >= 0 AndAlso Frm_FilterA.cmb_fieldc.Text.ToLower <> "code" AndAlso _ + Frm_FilterA.tb_valuec.Text <> "" Then + Dim Drow() As DataRow = Me.DT.Select(Filter) + For Each Dr As DataRow In Drow + Dr(Frm_FilterA.cmb_fieldc.Text) = Frm_FilterA.tb_valuec.Text + Next + MsgBox("바꾸기 완료", MsgBoxStyle.Information, "확인") + End If + + Catch ex As Exception + Me.bs.Filter = "" + End Try + End If + End If + End Sub + + Private Sub dv_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles dv.KeyDown + '//여기보시면 alt+d 누르면 한줄을 경고없이(falsE)삭제하도록 햇어요.. 사실원래 밋alt +d 인데.. ㅎㅎ 잘못해서 ctrl 됫다는 + If Prj.UserAuthType = "ADMIN" OrElse Prj.UserAuthType = "BOTH" OrElse Prj.UserAuthType = "BOTH2" OrElse Prj.UserAuthType = "BOTH1" Then '//2011.03.08 추가 + Select Case e.KeyCode + Case Keys.D + If e.Alt Then + Dbbase.DelCrow(Me.bs, False) + End If + Case Keys.C + If e.Control Then + Me.SrcDrv = Me.bs.Current + If Me.SrcDrv Is Nothing Then + MsgBox("저장할 ROW가 없습니다", MsgBoxStyle.Information, "확인") + Return + End If + ' My.Computer.Clipboard.SetData("ZDATA", Drv) + End If + Case Keys.V + If e.Control Then + If Me.SrcDrv Is Nothing Then Return + Me.bt_add.PerformClick() '//신규추가 + Dim NewDrv As DataRowView = Me.bs.Current + + For Each C As DataColumn In Me.DT.Columns + If C.ColumnName.ToUpper = "CODE" Then + ElseIf C.ColumnName.ToUpper = "설명" Then + NewDrv(C.ColumnName) = SrcDrv(C.ColumnName) & "#1" + Else + NewDrv(C.ColumnName) = SrcDrv(C.ColumnName) + End If + Next + Me.bs.EndEdit() + bs.MoveLast() + End If + End Select + End If + End Sub + + Private Sub Cmb_팬효율산출방식_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Cmb_팬효율산출방식.SelectedIndexChanged + Validate_Control() + End Sub + + Private Sub Tb_급기풍량_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Tb_급기풍량.TextChanged, Tb_급기팬압력손실.TextChanged, Tb_급기팬동력.TextChanged + If Me.Cmb_팬효율산출방식.Text = "계산치" AndAlso Me.Tb_급기팬동력.Text <> "" AndAlso Me.Tb_급기팬동력.Text <> "0" AndAlso Me.Tb_급기팬동력.Text <> "0." Then + Dim 효율 As Decimal + Try + 효율 = Math.Round(TOSG(Tb_급기풍량.Text) * (TOSG(Tb_급기팬압력손실.Text) / 9.8) / (TOSG(Tb_급기팬동력.Text) * 102 * 3600), 3) + Me.Tb_급기팬효율.Text = TOSG(효율).ToString + Catch ex As Exception + + End Try + End If + End Sub + + Private Sub Tb_배기풍량_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Tb_배기풍량.TextChanged, Tb_배기팬압력손실.TextChanged, Tb_배기팬동력.TextChanged + If Me.Cmb_팬효율산출방식.Text = "계산치" AndAlso Me.Tb_배기팬동력.Text <> "" AndAlso Me.Tb_배기팬동력.Text <> "0" AndAlso Me.Tb_배기팬동력.Text <> "0." Then + Dim 효율 As Decimal + Try + 효율 = Math.Round(TOSG(Tb_배기풍량.Text) * (TOSG(Tb_배기팬압력손실.Text) / 9.8) / (TOSG(Tb_배기팬동력.Text) * 102 * 3600), 3) + Me.Tb_배기팬효율.Text = TOSG(효율).ToString + Catch ex As Exception + + End Try + End If + End Sub + + +End Class \ No newline at end of file diff --git a/ArinWarev1/Forms/v20091231/Frm_kongkub.Designer.vb b/ArinWarev1/Forms/v20091231/Frm_kongkub.Designer.vb new file mode 100644 index 0000000..96f65e7 --- /dev/null +++ b/ArinWarev1/Forms/v20091231/Frm_kongkub.Designer.vb @@ -0,0 +1,916 @@ + _ +Partial Class Frm_kongkub + Inherits CForm + + 'Form은 Dispose를 재정의하여 구성 요소 목록을 정리합니다. + _ + Protected Overrides Sub Dispose(ByVal disposing As Boolean) + Try + If disposing AndAlso components IsNot Nothing Then + components.Dispose() + End If + Finally + MyBase.Dispose(disposing) + End Try + End Sub + + 'Windows Form 디자이너에 필요합니다. + Private components As System.ComponentModel.IContainer + + '참고: 다음 프로시저는 Windows Form 디자이너에 필요합니다. + '수정하려면 Windows Form 디자이너를 사용하십시오. + '코드 편집기를 사용하여 수정하지 마십시오. + _ + Private Sub InitializeComponent() + Me.components = New System.ComponentModel.Container() + Dim Label1 As System.Windows.Forms.Label + Dim Label2 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 Label8 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 Label17 As System.Windows.Forms.Label + Dim Label18 As System.Windows.Forms.Label + Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(Frm_kongkub)) + Me.bs = New System.Windows.Forms.BindingSource(Me.components) + Me.DS = New Eco2Ar.DS() + Me.전기난방GroupBox = New System.Windows.Forms.GroupBox() + Me.Label16 = New System.Windows.Forms.Label() + Me.전기난방제어ComboBox = New Eco2Ar.MyCmb() + Me.전기난방PictureBox = New System.Windows.Forms.PictureBox() + Me.바닥난방열GroupBox = New System.Windows.Forms.GroupBox() + Me.Label20 = New System.Windows.Forms.Label() + Me.바닥난방열제어ComboBox = New Eco2Ar.MyCmb() + Me.바닥난방열건축부위ComboBox = New Eco2Ar.MyCmb() + Me.바닥난방열PictureBox = New System.Windows.Forms.PictureBox() + Me.바닥난방전기GroupBox = New System.Windows.Forms.GroupBox() + Me.Label19 = New System.Windows.Forms.Label() + Me.바닥난방전기제어ComboBox = New Eco2Ar.MyCmb() + Me.바닥난방전기건축부위ComboBox = New Eco2Ar.MyCmb() + Me.바닥난방전기PictureBox = New System.Windows.Forms.PictureBox() + Me.GroupBox28 = New System.Windows.Forms.GroupBox() + Me.열공급시스템ComboBox = New Eco2Ar.MyCmb() + Me.열공급생산기기ComboBox = New Eco2Ar.MyCmb() + Me.PictureBox1 = New System.Windows.Forms.PictureBox() + Me.노출형방열기GroupBox = New System.Windows.Forms.GroupBox() + Me.Label10 = New System.Windows.Forms.Label() + Me.노출형제어ComboBox = New Eco2Ar.MyCmb() + Me.노출형방열기PictureBox = New System.Windows.Forms.PictureBox() + Me.GroupBox3 = New System.Windows.Forms.GroupBox() + Me.추가펌프수NTb = New Eco2Ar.MyTb() + Me.팬송풍기수NTb = New Eco2Ar.MyTb() + Me.펌프정격전력NTb = New Eco2Ar.MyTb() + Me.제어기의정격전력NTb = New Eco2Ar.MyTb() + Me.팬송풍기정격전력NTb = New Eco2Ar.MyTb() + Me.PictureBox8 = New System.Windows.Forms.PictureBox() + Me.Label201 = New System.Windows.Forms.Label() + Me.tb_zone_cnt = New System.Windows.Forms.TextBox() + Me.SplitContainer1 = New System.Windows.Forms.SplitContainer() + Me.dv = New CEnergy.arindv() + Me.DataGridViewTextBoxColumn1 = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.lb_grpname = New System.Windows.Forms.Label() + 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() + Me.bt_Del = New System.Windows.Forms.ToolStripButton() + Me.bt_cancel = New System.Windows.Forms.ToolStripButton() + Me.ToolStripSeparator1 = New System.Windows.Forms.ToolStripSeparator() + Me.lbl_pos = New System.Windows.Forms.ToolStripLabel() + Me.Label9 = New System.Windows.Forms.Label() + Me.PictureBox2 = New System.Windows.Forms.PictureBox() + Me.Label11 = New System.Windows.Forms.Label() + Me.PictureBox4 = New System.Windows.Forms.PictureBox() + Me.Panel1 = New System.Windows.Forms.Panel() + Label1 = New System.Windows.Forms.Label() + Label2 = 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() + Label8 = New System.Windows.Forms.Label() + Label13 = New System.Windows.Forms.Label() + Label14 = New System.Windows.Forms.Label() + Label15 = New System.Windows.Forms.Label() + Label17 = New System.Windows.Forms.Label() + Label18 = New System.Windows.Forms.Label() + CType(Me.bs, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.DS, System.ComponentModel.ISupportInitialize).BeginInit() + Me.전기난방GroupBox.SuspendLayout() + CType(Me.전기난방PictureBox, System.ComponentModel.ISupportInitialize).BeginInit() + Me.바닥난방열GroupBox.SuspendLayout() + CType(Me.바닥난방열PictureBox, System.ComponentModel.ISupportInitialize).BeginInit() + Me.바닥난방전기GroupBox.SuspendLayout() + CType(Me.바닥난방전기PictureBox, System.ComponentModel.ISupportInitialize).BeginInit() + Me.GroupBox28.SuspendLayout() + CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit() + Me.노출형방열기GroupBox.SuspendLayout() + CType(Me.노출형방열기PictureBox, System.ComponentModel.ISupportInitialize).BeginInit() + Me.GroupBox3.SuspendLayout() + CType(Me.PictureBox8, System.ComponentModel.ISupportInitialize).BeginInit() + Me.SplitContainer1.Panel1.SuspendLayout() + Me.SplitContainer1.Panel2.SuspendLayout() + Me.SplitContainer1.SuspendLayout() + CType(Me.dv, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.bn, System.ComponentModel.ISupportInitialize).BeginInit() + Me.bn.SuspendLayout() + CType(Me.PictureBox2, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.PictureBox4, System.ComponentModel.ISupportInitialize).BeginInit() + Me.Panel1.SuspendLayout() + Me.SuspendLayout() + ' + 'Label1 + ' + Label1.AutoSize = True + Label1.BackColor = System.Drawing.Color.FromArgb(CType(CType(243, Byte), Integer), CType(CType(244, Byte), Integer), CType(CType(246, Byte), Integer)) + Label1.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label1.Location = New System.Drawing.Point(19, 37) + Label1.Name = "Label1" + Label1.Size = New System.Drawing.Size(81, 14) + Label1.TabIndex = 0 + Label1.Text = "실내온도-제어:" + ' + 'Label2 + ' + Label2.AutoSize = True + Label2.BackColor = System.Drawing.Color.FromArgb(CType(CType(219, Byte), Integer), CType(CType(221, Byte), Integer), CType(CType(223, Byte), Integer)) + Label2.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label2.Location = New System.Drawing.Point(6, 37) + Label2.Name = "Label2" + Label2.Size = New System.Drawing.Size(81, 14) + Label2.TabIndex = 0 + Label2.Text = "실내온도-제어:" + ' + 'Label3 + ' + Label3.AutoSize = True + Label3.BackColor = System.Drawing.Color.FromArgb(CType(CType(219, Byte), Integer), CType(CType(221, Byte), Integer), CType(CType(223, Byte), Integer)) + Label3.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label3.Location = New System.Drawing.Point(6, 64) + Label3.Name = "Label3" + Label3.Size = New System.Drawing.Size(106, 28) + Label3.TabIndex = 2 + Label3.Text = "건축부위=바닥난방 " & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "시스템:" + Label3.TextAlign = System.Drawing.ContentAlignment.MiddleCenter + ' + 'Label4 + ' + Label4.AutoSize = True + Label4.BackColor = System.Drawing.Color.FromArgb(CType(CType(219, Byte), Integer), CType(CType(221, Byte), Integer), CType(CType(223, Byte), Integer)) + Label4.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label4.Location = New System.Drawing.Point(18, 42) + Label4.Name = "Label4" + Label4.Size = New System.Drawing.Size(81, 14) + Label4.TabIndex = 0 + Label4.Text = "실내온도-제어:" + ' + 'Label5 + ' + Label5.AutoSize = True + Label5.BackColor = System.Drawing.Color.FromArgb(CType(CType(219, Byte), Integer), CType(CType(221, Byte), Integer), CType(CType(223, Byte), Integer)) + Label5.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label5.Location = New System.Drawing.Point(18, 71) + Label5.Name = "Label5" + Label5.Size = New System.Drawing.Size(55, 14) + Label5.TabIndex = 2 + Label5.Text = "건축부위:" + ' + 'Label6 + ' + Label6.AutoSize = True + Label6.BackColor = System.Drawing.Color.FromArgb(CType(CType(219, Byte), Integer), CType(CType(221, Byte), Integer), CType(CType(223, Byte), Integer)) + Label6.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label6.Location = New System.Drawing.Point(4, 21) + Label6.Name = "Label6" + Label6.Size = New System.Drawing.Size(92, 14) + Label6.TabIndex = 0 + Label6.Text = "1.열공급-시스템:" + ' + 'Label7 + ' + Label7.AutoSize = True + Label7.BackColor = System.Drawing.Color.FromArgb(CType(CType(219, Byte), Integer), CType(CType(221, Byte), Integer), CType(CType(223, Byte), Integer)) + Label7.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label7.Location = New System.Drawing.Point(248, 21) + Label7.Name = "Label7" + Label7.Size = New System.Drawing.Size(103, 14) + Label7.TabIndex = 2 + Label7.Text = "2.열공급-생산기기:" + ' + 'Label8 + ' + Label8.AutoSize = True + Label8.BackColor = System.Drawing.Color.FromArgb(CType(CType(243, Byte), Integer), CType(CType(244, Byte), Integer), CType(CType(246, Byte), Integer)) + Label8.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label8.Location = New System.Drawing.Point(7, 37) + Label8.Name = "Label8" + Label8.Size = New System.Drawing.Size(81, 14) + Label8.TabIndex = 0 + Label8.Text = "실내온도-제어:" + ' + 'Label13 + ' + Label13.AutoSize = True + Label13.BackColor = System.Drawing.Color.FromArgb(CType(CType(219, Byte), Integer), CType(CType(221, Byte), Integer), CType(CType(223, Byte), Integer)) + Label13.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label13.Location = New System.Drawing.Point(16, 119) + Label13.Name = "Label13" + Label13.Size = New System.Drawing.Size(83, 14) + Label13.TabIndex = 8 + Label13.Text = "5.추가 펌프 수:" + ' + 'Label14 + ' + Label14.AutoSize = True + Label14.BackColor = System.Drawing.Color.FromArgb(CType(CType(219, Byte), Integer), CType(CType(221, Byte), Integer), CType(CType(223, Byte), Integer)) + Label14.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label14.Location = New System.Drawing.Point(16, 19) + Label14.Name = "Label14" + Label14.Size = New System.Drawing.Size(133, 14) + Label14.TabIndex = 0 + Label14.Text = "1.제어기의 정격전력[W]:" + ' + 'Label15 + ' + Label15.AutoSize = True + Label15.BackColor = System.Drawing.Color.FromArgb(CType(CType(219, Byte), Integer), CType(CType(221, Byte), Integer), CType(CType(223, Byte), Integer)) + Label15.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label15.Location = New System.Drawing.Point(16, 94) + Label15.Name = "Label15" + Label15.Size = New System.Drawing.Size(85, 14) + Label15.TabIndex = 6 + Label15.Text = "4.팬/송풍기 수:" + ' + 'Label17 + ' + Label17.AutoSize = True + Label17.BackColor = System.Drawing.Color.FromArgb(CType(CType(219, Byte), Integer), CType(CType(221, Byte), Integer), CType(CType(223, Byte), Integer)) + Label17.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label17.Location = New System.Drawing.Point(16, 69) + Label17.Name = "Label17" + Label17.Size = New System.Drawing.Size(111, 14) + Label17.TabIndex = 4 + Label17.Text = "3.펌프 정격전력[W]:" + ' + 'Label18 + ' + Label18.AutoSize = True + Label18.BackColor = System.Drawing.Color.FromArgb(CType(CType(219, Byte), Integer), CType(CType(221, Byte), Integer), CType(CType(223, Byte), Integer)) + Label18.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label18.Location = New System.Drawing.Point(16, 44) + Label18.Name = "Label18" + Label18.Size = New System.Drawing.Size(138, 14) + Label18.TabIndex = 2 + Label18.Text = "2.팬/송풍기 정격전력[W]:" + ' + 'bs + ' + Me.bs.DataMember = "tbl_kongkub" + Me.bs.DataSource = Me.DS + Me.bs.Filter = "code <> '0'" + ' + 'DS + ' + Me.DS.DataSetName = "DS" + Me.DS.SchemaSerializationMode = System.Data.SchemaSerializationMode.IncludeSchema + ' + '전기난방GroupBox + ' + Me.전기난방GroupBox.Controls.Add(Me.Label16) + Me.전기난방GroupBox.Controls.Add(Label1) + Me.전기난방GroupBox.Controls.Add(Me.전기난방제어ComboBox) + Me.전기난방GroupBox.Controls.Add(Me.전기난방PictureBox) + Me.전기난방GroupBox.Location = New System.Drawing.Point(284, 115) + Me.전기난방GroupBox.Name = "전기난방GroupBox" + Me.전기난방GroupBox.Size = New System.Drawing.Size(236, 66) + Me.전기난방GroupBox.TabIndex = 3 + Me.전기난방GroupBox.TabStop = False + ' + 'Label16 + ' + Me.Label16.AutoSize = True + Me.Label16.BackColor = System.Drawing.Color.FromArgb(CType(CType(243, Byte), Integer), CType(CType(244, Byte), Integer), CType(CType(246, Byte), Integer)) + Me.Label16.Location = New System.Drawing.Point(6, 16) + Me.Label16.Name = "Label16" + Me.Label16.Size = New System.Drawing.Size(114, 14) + Me.Label16.TabIndex = 10 + Me.Label16.Text = "공급시스템=전기난방" + ' + '전기난방제어ComboBox + ' + Me.전기난방제어ComboBox.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList + Me.전기난방제어ComboBox.FormattingEnabled = True + Me.전기난방제어ComboBox.Location = New System.Drawing.Point(115, 33) + Me.전기난방제어ComboBox.Name = "전기난방제어ComboBox" + Me.전기난방제어ComboBox.NectControl = Nothing + Me.전기난방제어ComboBox.Size = New System.Drawing.Size(110, 22) + Me.전기난방제어ComboBox.TabIndex = 1 + ' + '전기난방PictureBox + ' + Me.전기난방PictureBox.BackColor = System.Drawing.Color.FromArgb(CType(CType(243, Byte), Integer), CType(CType(244, Byte), Integer), CType(CType(246, Byte), Integer)) + Me.전기난방PictureBox.Location = New System.Drawing.Point(1, 9) + Me.전기난방PictureBox.Name = "전기난방PictureBox" + Me.전기난방PictureBox.Size = New System.Drawing.Size(233, 54) + Me.전기난방PictureBox.TabIndex = 2 + Me.전기난방PictureBox.TabStop = False + ' + '바닥난방열GroupBox + ' + Me.바닥난방열GroupBox.Controls.Add(Me.Label20) + Me.바닥난방열GroupBox.Controls.Add(Label2) + Me.바닥난방열GroupBox.Controls.Add(Label3) + Me.바닥난방열GroupBox.Controls.Add(Me.바닥난방열제어ComboBox) + Me.바닥난방열GroupBox.Controls.Add(Me.바닥난방열건축부위ComboBox) + Me.바닥난방열GroupBox.Controls.Add(Me.바닥난방열PictureBox) + Me.바닥난방열GroupBox.Location = New System.Drawing.Point(43, 182) + Me.바닥난방열GroupBox.Name = "바닥난방열GroupBox" + Me.바닥난방열GroupBox.Size = New System.Drawing.Size(236, 101) + Me.바닥난방열GroupBox.TabIndex = 4 + Me.바닥난방열GroupBox.TabStop = False + ' + 'Label20 + ' + Me.Label20.AutoSize = True + Me.Label20.BackColor = System.Drawing.Color.FromArgb(CType(CType(219, Byte), Integer), CType(CType(221, Byte), Integer), CType(CType(223, Byte), Integer)) + Me.Label20.Location = New System.Drawing.Point(6, 17) + Me.Label20.Name = "Label20" + Me.Label20.Size = New System.Drawing.Size(133, 14) + Me.Label20.TabIndex = 10 + Me.Label20.Text = "공급시스템=바닥난방(열)" + ' + '바닥난방열제어ComboBox + ' + Me.바닥난방열제어ComboBox.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList + Me.바닥난방열제어ComboBox.FormattingEnabled = True + Me.바닥난방열제어ComboBox.Location = New System.Drawing.Point(112, 37) + Me.바닥난방열제어ComboBox.Name = "바닥난방열제어ComboBox" + Me.바닥난방열제어ComboBox.NectControl = Nothing + Me.바닥난방열제어ComboBox.Size = New System.Drawing.Size(117, 22) + Me.바닥난방열제어ComboBox.TabIndex = 1 + ' + '바닥난방열건축부위ComboBox + ' + Me.바닥난방열건축부위ComboBox.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList + Me.바닥난방열건축부위ComboBox.FormattingEnabled = True + Me.바닥난방열건축부위ComboBox.Location = New System.Drawing.Point(112, 66) + Me.바닥난방열건축부위ComboBox.Name = "바닥난방열건축부위ComboBox" + Me.바닥난방열건축부위ComboBox.NectControl = Nothing + Me.바닥난방열건축부위ComboBox.Size = New System.Drawing.Size(117, 22) + Me.바닥난방열건축부위ComboBox.TabIndex = 3 + ' + '바닥난방열PictureBox + ' + Me.바닥난방열PictureBox.BackColor = System.Drawing.Color.FromArgb(CType(CType(219, Byte), Integer), CType(CType(221, Byte), Integer), CType(CType(223, Byte), Integer)) + Me.바닥난방열PictureBox.Location = New System.Drawing.Point(3, 9) + Me.바닥난방열PictureBox.Name = "바닥난방열PictureBox" + Me.바닥난방열PictureBox.Size = New System.Drawing.Size(230, 88) + Me.바닥난방열PictureBox.TabIndex = 11 + Me.바닥난방열PictureBox.TabStop = False + ' + '바닥난방전기GroupBox + ' + Me.바닥난방전기GroupBox.Controls.Add(Me.Label19) + Me.바닥난방전기GroupBox.Controls.Add(Label4) + Me.바닥난방전기GroupBox.Controls.Add(Label5) + Me.바닥난방전기GroupBox.Controls.Add(Me.바닥난방전기제어ComboBox) + Me.바닥난방전기GroupBox.Controls.Add(Me.바닥난방전기건축부위ComboBox) + Me.바닥난방전기GroupBox.Controls.Add(Me.바닥난방전기PictureBox) + Me.바닥난방전기GroupBox.Location = New System.Drawing.Point(285, 182) + Me.바닥난방전기GroupBox.Name = "바닥난방전기GroupBox" + Me.바닥난방전기GroupBox.Size = New System.Drawing.Size(236, 101) + Me.바닥난방전기GroupBox.TabIndex = 5 + Me.바닥난방전기GroupBox.TabStop = False + ' + 'Label19 + ' + Me.Label19.AutoSize = True + Me.Label19.BackColor = System.Drawing.Color.FromArgb(CType(CType(219, Byte), Integer), CType(CType(221, Byte), Integer), CType(CType(223, Byte), Integer)) + Me.Label19.Location = New System.Drawing.Point(6, 17) + Me.Label19.Name = "Label19" + Me.Label19.Size = New System.Drawing.Size(144, 14) + Me.Label19.TabIndex = 10 + Me.Label19.Text = "공급시스템=바닥난방(전기)" + ' + '바닥난방전기제어ComboBox + ' + Me.바닥난방전기제어ComboBox.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList + Me.바닥난방전기제어ComboBox.FormattingEnabled = True + Me.바닥난방전기제어ComboBox.Location = New System.Drawing.Point(114, 38) + Me.바닥난방전기제어ComboBox.Name = "바닥난방전기제어ComboBox" + Me.바닥난방전기제어ComboBox.NectControl = Nothing + Me.바닥난방전기제어ComboBox.Size = New System.Drawing.Size(110, 22) + Me.바닥난방전기제어ComboBox.TabIndex = 1 + ' + '바닥난방전기건축부위ComboBox + ' + Me.바닥난방전기건축부위ComboBox.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList + Me.바닥난방전기건축부위ComboBox.FormattingEnabled = True + Me.바닥난방전기건축부위ComboBox.Location = New System.Drawing.Point(114, 65) + Me.바닥난방전기건축부위ComboBox.Name = "바닥난방전기건축부위ComboBox" + Me.바닥난방전기건축부위ComboBox.NectControl = Nothing + Me.바닥난방전기건축부위ComboBox.Size = New System.Drawing.Size(110, 22) + Me.바닥난방전기건축부위ComboBox.TabIndex = 3 + ' + '바닥난방전기PictureBox + ' + Me.바닥난방전기PictureBox.BackColor = System.Drawing.Color.FromArgb(CType(CType(219, Byte), Integer), CType(CType(221, Byte), Integer), CType(CType(223, Byte), Integer)) + Me.바닥난방전기PictureBox.Location = New System.Drawing.Point(2, 9) + Me.바닥난방전기PictureBox.Name = "바닥난방전기PictureBox" + Me.바닥난방전기PictureBox.Size = New System.Drawing.Size(232, 88) + Me.바닥난방전기PictureBox.TabIndex = 11 + Me.바닥난방전기PictureBox.TabStop = False + ' + 'GroupBox28 + ' + Me.GroupBox28.Controls.Add(Label6) + Me.GroupBox28.Controls.Add(Me.열공급시스템ComboBox) + Me.GroupBox28.Controls.Add(Label7) + Me.GroupBox28.Controls.Add(Me.열공급생산기기ComboBox) + Me.GroupBox28.Controls.Add(Me.PictureBox1) + Me.GroupBox28.Location = New System.Drawing.Point(42, 66) + Me.GroupBox28.Name = "GroupBox28" + Me.GroupBox28.Size = New System.Drawing.Size(478, 47) + Me.GroupBox28.TabIndex = 1 + Me.GroupBox28.TabStop = False + ' + '열공급시스템ComboBox + ' + Me.열공급시스템ComboBox.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList + Me.열공급시스템ComboBox.FormattingEnabled = True + Me.열공급시스템ComboBox.Location = New System.Drawing.Point(113, 17) + Me.열공급시스템ComboBox.Name = "열공급시스템ComboBox" + Me.열공급시스템ComboBox.NectControl = Nothing + Me.열공급시스템ComboBox.Size = New System.Drawing.Size(117, 22) + Me.열공급시스템ComboBox.TabIndex = 1 + ' + '열공급생산기기ComboBox + ' + Me.열공급생산기기ComboBox.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList + Me.열공급생산기기ComboBox.FormattingEnabled = True + Me.열공급생산기기ComboBox.Location = New System.Drawing.Point(357, 18) + Me.열공급생산기기ComboBox.Name = "열공급생산기기ComboBox" + Me.열공급생산기기ComboBox.NectControl = Nothing + Me.열공급생산기기ComboBox.Size = New System.Drawing.Size(110, 22) + Me.열공급생산기기ComboBox.TabIndex = 3 + ' + 'PictureBox1 + ' + 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(475, 35) + Me.PictureBox1.TabIndex = 4 + Me.PictureBox1.TabStop = False + ' + '노출형방열기GroupBox + ' + Me.노출형방열기GroupBox.Controls.Add(Me.Label10) + Me.노출형방열기GroupBox.Controls.Add(Label8) + Me.노출형방열기GroupBox.Controls.Add(Me.노출형제어ComboBox) + Me.노출형방열기GroupBox.Controls.Add(Me.노출형방열기PictureBox) + Me.노출형방열기GroupBox.Location = New System.Drawing.Point(42, 115) + Me.노출형방열기GroupBox.Name = "노출형방열기GroupBox" + Me.노출형방열기GroupBox.Size = New System.Drawing.Size(236, 66) + Me.노출형방열기GroupBox.TabIndex = 2 + Me.노출형방열기GroupBox.TabStop = False + ' + 'Label10 + ' + Me.Label10.AutoSize = True + Me.Label10.BackColor = System.Drawing.Color.FromArgb(CType(CType(243, Byte), Integer), CType(CType(244, Byte), Integer), CType(CType(246, Byte), Integer)) + Me.Label10.Location = New System.Drawing.Point(7, 16) + Me.Label10.Name = "Label10" + Me.Label10.Size = New System.Drawing.Size(155, 14) + Me.Label10.TabIndex = 10 + Me.Label10.Text = "공급시스템=노출형방열기(열)" + ' + '노출형제어ComboBox + ' + Me.노출형제어ComboBox.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList + Me.노출형제어ComboBox.FormattingEnabled = True + Me.노출형제어ComboBox.Location = New System.Drawing.Point(115, 33) + Me.노출형제어ComboBox.Name = "노출형제어ComboBox" + Me.노출형제어ComboBox.NectControl = Nothing + Me.노출형제어ComboBox.Size = New System.Drawing.Size(117, 22) + Me.노출형제어ComboBox.TabIndex = 1 + ' + '노출형방열기PictureBox + ' + Me.노출형방열기PictureBox.BackColor = System.Drawing.Color.FromArgb(CType(CType(243, Byte), Integer), CType(CType(244, Byte), Integer), CType(CType(246, Byte), Integer)) + Me.노출형방열기PictureBox.Location = New System.Drawing.Point(1, 9) + Me.노출형방열기PictureBox.Name = "노출형방열기PictureBox" + Me.노출형방열기PictureBox.Size = New System.Drawing.Size(233, 54) + Me.노출형방열기PictureBox.TabIndex = 2 + Me.노출형방열기PictureBox.TabStop = False + ' + 'GroupBox3 + ' + Me.GroupBox3.Controls.Add(Me.추가펌프수NTb) + Me.GroupBox3.Controls.Add(Label13) + Me.GroupBox3.Controls.Add(Label14) + Me.GroupBox3.Controls.Add(Label15) + Me.GroupBox3.Controls.Add(Label17) + Me.GroupBox3.Controls.Add(Me.팬송풍기수NTb) + Me.GroupBox3.Controls.Add(Label18) + Me.GroupBox3.Controls.Add(Me.펌프정격전력NTb) + Me.GroupBox3.Controls.Add(Me.제어기의정격전력NTb) + Me.GroupBox3.Controls.Add(Me.팬송풍기정격전력NTb) + Me.GroupBox3.Controls.Add(Me.PictureBox8) + Me.GroupBox3.Location = New System.Drawing.Point(42, 343) + Me.GroupBox3.Name = "GroupBox3" + Me.GroupBox3.Size = New System.Drawing.Size(478, 147) + Me.GroupBox3.TabIndex = 1 + Me.GroupBox3.TabStop = False + ' + '추가펌프수NTb + ' + Me.추가펌프수NTb.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bs, "추가펌프수", True)) + Me.추가펌프수NTb.Location = New System.Drawing.Point(193, 114) + Me.추가펌프수NTb.Name = "추가펌프수NTb" + Me.추가펌프수NTb.NectControl = Nothing + Me.추가펌프수NTb.Size = New System.Drawing.Size(70, 21) + Me.추가펌프수NTb.TabIndex = 9 + Me.추가펌프수NTb.TextAlign = System.Windows.Forms.HorizontalAlignment.Right + Me.추가펌프수NTb.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + ' + '팬송풍기수NTb + ' + Me.팬송풍기수NTb.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bs, "팬송풍기수", True)) + Me.팬송풍기수NTb.Location = New System.Drawing.Point(193, 90) + Me.팬송풍기수NTb.Name = "팬송풍기수NTb" + Me.팬송풍기수NTb.NectControl = Nothing + Me.팬송풍기수NTb.Size = New System.Drawing.Size(70, 21) + Me.팬송풍기수NTb.TabIndex = 7 + Me.팬송풍기수NTb.TextAlign = System.Windows.Forms.HorizontalAlignment.Right + Me.팬송풍기수NTb.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + ' + '펌프정격전력NTb + ' + Me.펌프정격전력NTb.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bs, "펌프정격전력", True)) + Me.펌프정격전력NTb.Location = New System.Drawing.Point(193, 66) + Me.펌프정격전력NTb.Name = "펌프정격전력NTb" + Me.펌프정격전력NTb.NectControl = Nothing + Me.펌프정격전력NTb.Size = New System.Drawing.Size(70, 21) + Me.펌프정격전력NTb.TabIndex = 5 + Me.펌프정격전력NTb.TextAlign = System.Windows.Forms.HorizontalAlignment.Right + Me.펌프정격전력NTb.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + ' + '제어기의정격전력NTb + ' + Me.제어기의정격전력NTb.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bs, "제어기의정격전력", True)) + Me.제어기의정격전력NTb.Location = New System.Drawing.Point(193, 18) + Me.제어기의정격전력NTb.Name = "제어기의정격전력NTb" + Me.제어기의정격전력NTb.NectControl = Nothing + Me.제어기의정격전력NTb.Size = New System.Drawing.Size(70, 21) + Me.제어기의정격전력NTb.TabIndex = 1 + Me.제어기의정격전력NTb.TextAlign = System.Windows.Forms.HorizontalAlignment.Right + Me.제어기의정격전력NTb.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + ' + '팬송풍기정격전력NTb + ' + Me.팬송풍기정격전력NTb.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bs, "팬송풍기정격전력", True)) + Me.팬송풍기정격전력NTb.Location = New System.Drawing.Point(193, 42) + Me.팬송풍기정격전력NTb.Name = "팬송풍기정격전력NTb" + Me.팬송풍기정격전력NTb.NectControl = Nothing + Me.팬송풍기정격전력NTb.Size = New System.Drawing.Size(70, 21) + Me.팬송풍기정격전력NTb.TabIndex = 3 + Me.팬송풍기정격전력NTb.TextAlign = System.Windows.Forms.HorizontalAlignment.Right + Me.팬송풍기정격전력NTb.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + ' + 'PictureBox8 + ' + Me.PictureBox8.BackColor = System.Drawing.Color.FromArgb(CType(CType(219, Byte), Integer), CType(CType(221, Byte), Integer), CType(CType(223, Byte), Integer)) + Me.PictureBox8.Location = New System.Drawing.Point(2, 9) + Me.PictureBox8.Name = "PictureBox8" + Me.PictureBox8.Size = New System.Drawing.Size(473, 135) + Me.PictureBox8.TabIndex = 4 + Me.PictureBox8.TabStop = False + ' + 'Label201 + ' + Me.Label201.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.Label201.AutoSize = True + Me.Label201.ForeColor = System.Drawing.Color.DarkCyan + Me.Label201.Location = New System.Drawing.Point(374, 9) + Me.Label201.Name = "Label201" + Me.Label201.Size = New System.Drawing.Size(94, 14) + Me.Label201.TabIndex = 1 + Me.Label201.Text = "적용된 입력존 수:" + Me.Label201.TextAlign = System.Drawing.ContentAlignment.MiddleRight + ' + '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(473, 5) + Me.tb_zone_cnt.Name = "tb_zone_cnt" + Me.tb_zone_cnt.ReadOnly = True + Me.tb_zone_cnt.Size = New System.Drawing.Size(87, 21) + Me.tb_zone_cnt.TabIndex = 2 + Me.tb_zone_cnt.TabStop = False + Me.tb_zone_cnt.Text = "0" + Me.tb_zone_cnt.TextAlign = System.Windows.Forms.HorizontalAlignment.Center + ' + '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.lb_grpname) + Me.SplitContainer1.Panel1.Controls.Add(Me.bn) + ' + 'SplitContainer1.Panel2 + ' + Me.SplitContainer1.Panel2.BackColor = System.Drawing.Color.White + Me.SplitContainer1.Panel2.Controls.Add(Me.Label9) + Me.SplitContainer1.Panel2.Controls.Add(Me.PictureBox2) + Me.SplitContainer1.Panel2.Controls.Add(Me.Label11) + Me.SplitContainer1.Panel2.Controls.Add(Me.PictureBox4) + Me.SplitContainer1.Panel2.Controls.Add(Me.전기난방GroupBox) + Me.SplitContainer1.Panel2.Controls.Add(Me.GroupBox3) + Me.SplitContainer1.Panel2.Controls.Add(Me.바닥난방열GroupBox) + Me.SplitContainer1.Panel2.Controls.Add(Me.바닥난방전기GroupBox) + Me.SplitContainer1.Panel2.Controls.Add(Me.GroupBox28) + Me.SplitContainer1.Panel2.Controls.Add(Me.Panel1) + Me.SplitContainer1.Panel2.Controls.Add(Me.노출형방열기GroupBox) + Me.SplitContainer1.Size = New System.Drawing.Size(795, 565) + Me.SplitContainer1.SplitterDistance = 224 + Me.SplitContainer1.TabIndex = 127 + ' + 'dv + ' + Me.dv.A_DelCurrentCell = True + Me.dv.A_EnterToTab = True + 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.FromArgb(CType(CType(245, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(246, Byte), Integer)) + 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, 26) + Me.dv.Margin = New System.Windows.Forms.Padding(3, 5, 3, 5) + 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(222, 497) + Me.dv.TabIndex = 0 + ' + 'DataGridViewTextBoxColumn1 + ' + Me.DataGridViewTextBoxColumn1.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.Fill + Me.DataGridViewTextBoxColumn1.DataPropertyName = "설명" + Me.DataGridViewTextBoxColumn1.HeaderText = "설명" + Me.DataGridViewTextBoxColumn1.Name = "DataGridViewTextBoxColumn1" + ' + 'lb_grpname + ' + Me.lb_grpname.BackColor = System.Drawing.Color.LightSkyBlue + Me.lb_grpname.Dock = System.Windows.Forms.DockStyle.Top + Me.lb_grpname.ForeColor = System.Drawing.SystemColors.HotTrack + Me.lb_grpname.Location = New System.Drawing.Point(0, 0) + Me.lb_grpname.Name = "lb_grpname" + Me.lb_grpname.Size = New System.Drawing.Size(222, 26) + Me.lb_grpname.TabIndex = 96 + Me.lb_grpname.Text = "그룹 :" + Me.lb_grpname.TextAlign = System.Drawing.ContentAlignment.MiddleCenter + ' + '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("나눔고딕 ExtraBold", 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.bn.Location = New System.Drawing.Point(0, 523) + 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(222, 40) + Me.bn.TabIndex = 1 + Me.bn.Text = "BindingNavigator1" + ' + 'lbl_count + ' + Me.lbl_count.Name = "lbl_count" + Me.lbl_count.Size = New System.Drawing.Size(27, 37) + 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, 37) + 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, 37) + 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, 37) + 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, 40) + ' + 'lbl_pos + ' + Me.lbl_pos.Name = "lbl_pos" + Me.lbl_pos.Size = New System.Drawing.Size(14, 37) + Me.lbl_pos.Text = "0" + ' + 'Label9 + ' + Me.Label9.AutoSize = True + Me.Label9.BackColor = System.Drawing.Color.FromArgb(CType(CType(116, Byte), Integer), CType(CType(158, Byte), Integer), CType(CType(209, Byte), Integer)) + Me.Label9.ForeColor = System.Drawing.Color.White + Me.Label9.Location = New System.Drawing.Point(29, 326) + Me.Label9.Name = "Label9" + Me.Label9.Size = New System.Drawing.Size(113, 14) + Me.Label9.TabIndex = 162 + Me.Label9.Text = "열공급-시스템 특성치" + ' + 'PictureBox2 + ' + Me.PictureBox2.BackgroundImage = CType(resources.GetObject("PictureBox2.BackgroundImage"), System.Drawing.Image) + Me.PictureBox2.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch + Me.PictureBox2.Location = New System.Drawing.Point(26, 315) + Me.PictureBox2.Name = "PictureBox2" + Me.PictureBox2.Size = New System.Drawing.Size(131, 30) + Me.PictureBox2.TabIndex = 161 + Me.PictureBox2.TabStop = False + ' + 'Label11 + ' + Me.Label11.AutoSize = True + Me.Label11.BackColor = System.Drawing.Color.FromArgb(CType(CType(116, Byte), Integer), CType(CType(158, Byte), Integer), CType(CType(209, Byte), Integer)) + Me.Label11.ForeColor = System.Drawing.Color.White + Me.Label11.Location = New System.Drawing.Point(39, 49) + Me.Label11.Name = "Label11" + Me.Label11.Size = New System.Drawing.Size(87, 14) + Me.Label11.TabIndex = 162 + Me.Label11.Text = "공급과 제어난방" + ' + 'PictureBox4 + ' + Me.PictureBox4.BackgroundImage = CType(resources.GetObject("PictureBox4.BackgroundImage"), System.Drawing.Image) + Me.PictureBox4.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch + Me.PictureBox4.Location = New System.Drawing.Point(26, 38) + Me.PictureBox4.Name = "PictureBox4" + Me.PictureBox4.Size = New System.Drawing.Size(131, 30) + Me.PictureBox4.TabIndex = 161 + Me.PictureBox4.TabStop = False + ' + 'Panel1 + ' + Me.Panel1.BackColor = System.Drawing.Color.FromArgb(CType(CType(243, Byte), Integer), CType(CType(244, Byte), Integer), CType(CType(246, Byte), Integer)) + Me.Panel1.Controls.Add(Me.tb_zone_cnt) + Me.Panel1.Controls.Add(Me.Label201) + Me.Panel1.Dock = System.Windows.Forms.DockStyle.Top + Me.Panel1.Location = New System.Drawing.Point(0, 0) + Me.Panel1.Name = "Panel1" + Me.Panel1.Size = New System.Drawing.Size(565, 30) + Me.Panel1.TabIndex = 5 + ' + 'Frm_kongkub + ' + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.None + Me.ClientSize = New System.Drawing.Size(795, 565) + Me.ControlBox = False + Me.Controls.Add(Me.SplitContainer1) + Me.Font = New System.Drawing.Font("나눔고딕 ExtraBold", 8.999999!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.KeyPreview = True + Me.Name = "Frm_kongkub" + Me.ShowInTaskbar = False + Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen + Me.Text = "난방공급시스템" + CType(Me.bs, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.DS, System.ComponentModel.ISupportInitialize).EndInit() + Me.전기난방GroupBox.ResumeLayout(False) + Me.전기난방GroupBox.PerformLayout() + CType(Me.전기난방PictureBox, System.ComponentModel.ISupportInitialize).EndInit() + Me.바닥난방열GroupBox.ResumeLayout(False) + Me.바닥난방열GroupBox.PerformLayout() + CType(Me.바닥난방열PictureBox, System.ComponentModel.ISupportInitialize).EndInit() + Me.바닥난방전기GroupBox.ResumeLayout(False) + Me.바닥난방전기GroupBox.PerformLayout() + CType(Me.바닥난방전기PictureBox, System.ComponentModel.ISupportInitialize).EndInit() + Me.GroupBox28.ResumeLayout(False) + Me.GroupBox28.PerformLayout() + CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).EndInit() + Me.노출형방열기GroupBox.ResumeLayout(False) + Me.노출형방열기GroupBox.PerformLayout() + CType(Me.노출형방열기PictureBox, System.ComponentModel.ISupportInitialize).EndInit() + Me.GroupBox3.ResumeLayout(False) + Me.GroupBox3.PerformLayout() + CType(Me.PictureBox8, System.ComponentModel.ISupportInitialize).EndInit() + Me.SplitContainer1.Panel1.ResumeLayout(False) + Me.SplitContainer1.Panel2.ResumeLayout(False) + Me.SplitContainer1.Panel2.PerformLayout() + Me.SplitContainer1.ResumeLayout(False) + CType(Me.dv, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.bn, System.ComponentModel.ISupportInitialize).EndInit() + Me.bn.ResumeLayout(False) + Me.bn.PerformLayout() + CType(Me.PictureBox2, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.PictureBox4, System.ComponentModel.ISupportInitialize).EndInit() + Me.Panel1.ResumeLayout(False) + Me.Panel1.PerformLayout() + Me.ResumeLayout(False) + + End Sub + Friend WithEvents 추가펌프수NTb As MyTb + Friend WithEvents 팬송풍기수NTb As MyTb + Friend WithEvents 펌프정격전력NTb As MyTb + Friend WithEvents 팬송풍기정격전력NTb As MyTb + Friend WithEvents 제어기의정격전력NTb As MyTb + Public WithEvents DS As Eco2Ar.DS + Friend WithEvents bs As System.Windows.Forms.BindingSource + Friend WithEvents 전기난방제어ComboBox As Eco2Ar.MyCmb + Friend WithEvents 바닥난방전기건축부위ComboBox As Eco2Ar.MyCmb + Friend WithEvents 바닥난방전기제어ComboBox As Eco2Ar.MyCmb + Friend WithEvents 바닥난방열건축부위ComboBox As Eco2Ar.MyCmb + Friend WithEvents 바닥난방열제어ComboBox As Eco2Ar.MyCmb + Friend WithEvents 노출형제어ComboBox As Eco2Ar.MyCmb + Friend WithEvents 열공급생산기기ComboBox As Eco2Ar.MyCmb + Friend WithEvents 열공급시스템ComboBox As Eco2Ar.MyCmb + Friend WithEvents 전기난방GroupBox As System.Windows.Forms.GroupBox + Friend WithEvents 바닥난방열GroupBox As System.Windows.Forms.GroupBox + Friend WithEvents 바닥난방전기GroupBox As System.Windows.Forms.GroupBox + Friend WithEvents GroupBox28 As System.Windows.Forms.GroupBox + Friend WithEvents 노출형방열기GroupBox As System.Windows.Forms.GroupBox + Friend WithEvents GroupBox3 As System.Windows.Forms.GroupBox + Friend WithEvents Label201 As System.Windows.Forms.Label + Friend WithEvents tb_zone_cnt As System.Windows.Forms.TextBox + Friend WithEvents SplitContainer1 As System.Windows.Forms.SplitContainer + Friend WithEvents dv As CEnergy.arindv + Friend WithEvents DataGridViewTextBoxColumn1 As System.Windows.Forms.DataGridViewTextBoxColumn + Friend WithEvents bn As System.Windows.Forms.BindingNavigator + Friend WithEvents bt_add As System.Windows.Forms.ToolStripButton + Friend WithEvents bt_Del As System.Windows.Forms.ToolStripButton + Friend WithEvents bt_cancel As System.Windows.Forms.ToolStripButton + Friend WithEvents ToolStripSeparator1 As System.Windows.Forms.ToolStripSeparator + Friend WithEvents Panel1 As System.Windows.Forms.Panel + Friend WithEvents lbl_count As System.Windows.Forms.ToolStripLabel + Friend WithEvents lbl_pos As System.Windows.Forms.ToolStripLabel + Friend WithEvents PictureBox1 As System.Windows.Forms.PictureBox + Friend WithEvents Label9 As System.Windows.Forms.Label + Friend WithEvents PictureBox2 As System.Windows.Forms.PictureBox + Friend WithEvents Label11 As System.Windows.Forms.Label + Friend WithEvents PictureBox4 As System.Windows.Forms.PictureBox + Friend WithEvents 노출형방열기PictureBox As System.Windows.Forms.PictureBox + Friend WithEvents Label16 As System.Windows.Forms.Label + Friend WithEvents 전기난방PictureBox As System.Windows.Forms.PictureBox + Friend WithEvents Label10 As System.Windows.Forms.Label + Friend WithEvents Label20 As System.Windows.Forms.Label + Friend WithEvents 바닥난방열PictureBox As System.Windows.Forms.PictureBox + Friend WithEvents Label19 As System.Windows.Forms.Label + Friend WithEvents 바닥난방전기PictureBox As System.Windows.Forms.PictureBox + Friend WithEvents PictureBox8 As System.Windows.Forms.PictureBox + Friend WithEvents lb_grpname As System.Windows.Forms.Label +End Class diff --git a/ArinWarev1/Forms/v20091231/Frm_kongkub.resx b/ArinWarev1/Forms/v20091231/Frm_kongkub.resx new file mode 100644 index 0000000..1bdfe1f --- /dev/null +++ b/ArinWarev1/Forms/v20091231/Frm_kongkub.resx @@ -0,0 +1,360 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + 222, 17 + + + 286, 17 + + + 353, 17 + + + + + /9j/4AAQSkZJRgABAgEASABIAAD/7gAOQWRvYmUAZAAAAAAB/+ED5kV4aWYAAE1NACoAAAAIAAcBEgAD + AAAAAQABAAABGgAFAAAAAQAAAGIBGwAFAAAAAQAAAGoBKAADAAAAAQACAAABMQACAAAAHAAAAHIBMgAC + AAAAFAAAAI6HaQAEAAAAAQAAAKIAAADCAEgAAAABAAAASAAAAAEAAEFkb2JlIFBob3Rvc2hvcCBDUzMg + V2luZG93cwAyMDEwOjA0OjE1IDIwOjMyOjA0AAACoAIABAAAAAEAAAA8oAMABAAAAAEAAAAMAAAAAAAA + AAYBAwADAAAAAQAGAAABGgAFAAAAAQAAARABGwAFAAAAAQAAARgBKAADAAAAAQACAAACAQAEAAAAAQAA + ASACAgAEAAAAAQAAAr4AAAAAAAAASAAAAAEAAABIAAAAAf/Y/+AAEEpGSUYAAQIAAEgASAAA/+0ADEFk + b2JlX0NNAAH/7gAOQWRvYmUAZIAAAAAB/9sAhAAMCAgICQgMCQkMEQsKCxEVDwwMDxUYExMVExMYEQwM + DAwMDBEMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMAQ0LCw0ODRAODhAUDg4OFBQODg4OFBEMDAwM + DBERDAwMDAwMEQwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAz/wAARCAAMADwDASIAAhEBAxEB/90A + BAAE/8QBPwAAAQUBAQEBAQEAAAAAAAAAAwABAgQFBgcICQoLAQABBQEBAQEBAQAAAAAAAAABAAIDBAUG + BwgJCgsQAAEEAQMCBAIFBwYIBQMMMwEAAhEDBCESMQVBUWETInGBMgYUkaGxQiMkFVLBYjM0coLRQwcl + klPw4fFjczUWorKDJkSTVGRFwqN0NhfSVeJl8rOEw9N14/NGJ5SkhbSVxNTk9KW1xdXl9VZmdoaWprbG + 1ub2N0dXZ3eHl6e3x9fn9xEAAgIBAgQEAwQFBgcHBgU1AQACEQMhMRIEQVFhcSITBTKBkRShsUIjwVLR + 8DMkYuFygpJDUxVjczTxJQYWorKDByY1wtJEk1SjF2RFVTZ0ZeLys4TD03Xj80aUpIW0lcTU5PSltcXV + 5fVWZnaGlqa2xtbm9ic3R1dnd4eXp7fH/9oADAMBAAIRAxEAPwDd/amR/pH/AOcf70v2pkf6R/8AnH+9 + UUlofq/Bpevxb37UyP8ASP8A84/3pftTI/0j/wDOP96opJfq/BXr8W9+1Mj/AEj/APOP96X7UyP9I/8A + zj/eqKSX6vwV6/F3ujdbuGS2i5xfU8HVxktIG76XyW99vo27p0XGdO2/ba930dZj+q5dX+qfZPL8VAeD + 341VVr/eZhx+0bu708n/2f/iDFhJQ0NfUFJPRklMRQABAQAADEhMaW5vAhAAAG1udHJSR0IgWFlaIAfO + AAIACQAGADEAAGFjc3BNU0ZUAAAAAElFQyBzUkdCAAAAAAAAAAAAAAAAAAD21gABAAAAANMtSFAgIAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAEWNwcnQAAAFQAAAAM2Rl + c2MAAAGEAAAAbHd0cHQAAAHwAAAAFGJrcHQAAAIEAAAAFHJYWVoAAAIYAAAAFGdYWVoAAAIsAAAAFGJY + WVoAAAJAAAAAFGRtbmQAAAJUAAAAcGRtZGQAAALEAAAAiHZ1ZWQAAANMAAAAhnZpZXcAAAPUAAAAJGx1 + bWkAAAP4AAAAFG1lYXMAAAQMAAAAJHRlY2gAAAQwAAAADHJUUkMAAAQ8AAAIDGdUUkMAAAQ8AAAIDGJU + UkMAAAQ8AAAIDHRleHQAAAAAQ29weXJpZ2h0IChjKSAxOTk4IEhld2xldHQtUGFja2FyZCBDb21wYW55 + AABkZXNjAAAAAAAAABJzUkdCIElFQzYxOTY2LTIuMQAAAAAAAAAAAAAAEnNSR0IgSUVDNjE5NjYtMi4x + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABYWVogAAAAAAAA + 81EAAQAAAAEWzFhZWiAAAAAAAAAAAAAAAAAAAAAAWFlaIAAAAAAAAG+iAAA49QAAA5BYWVogAAAAAAAA + YpkAALeFAAAY2lhZWiAAAAAAAAAkoAAAD4QAALbPZGVzYwAAAAAAAAAWSUVDIGh0dHA6Ly93d3cuaWVj + LmNoAAAAAAAAAAAAAAAWSUVDIGh0dHA6Ly93d3cuaWVjLmNoAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAGRlc2MAAAAAAAAALklFQyA2MTk2Ni0yLjEgRGVmYXVsdCBSR0Ig + Y29sb3VyIHNwYWNlIC0gc1JHQgAAAAAAAAAAAAAALklFQyA2MTk2Ni0yLjEgRGVmYXVsdCBSR0IgY29s + b3VyIHNwYWNlIC0gc1JHQgAAAAAAAAAAAAAAAAAAAAAAAAAAAABkZXNjAAAAAAAAACxSZWZlcmVuY2Ug + Vmlld2luZyBDb25kaXRpb24gaW4gSUVDNjE5NjYtMi4xAAAAAAAAAAAAAAAsUmVmZXJlbmNlIFZpZXdp + bmcgQ29uZGl0aW9uIGluIElFQzYxOTY2LTIuMQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAdmlldwAA + AAAAE6T+ABRfLgAQzxQAA+3MAAQTCwADXJ4AAAABWFlaIAAAAAAATAlWAFAAAABXH+dtZWFzAAAAAAAA + AAEAAAAAAAAAAAAAAAAAAAAAAAACjwAAAAJzaWcgAAAAAENSVCBjdXJ2AAAAAAAABAAAAAAFAAoADwAU + ABkAHgAjACgALQAyADcAOwBAAEUASgBPAFQAWQBeAGMAaABtAHIAdwB8AIEAhgCLAJAAlQCaAJ8ApACp + AK4AsgC3ALwAwQDGAMsA0ADVANsA4ADlAOsA8AD2APsBAQEHAQ0BEwEZAR8BJQErATIBOAE+AUUBTAFS + AVkBYAFnAW4BdQF8AYMBiwGSAZoBoQGpAbEBuQHBAckB0QHZAeEB6QHyAfoCAwIMAhQCHQImAi8COAJB + AksCVAJdAmcCcQJ6AoQCjgKYAqICrAK2AsECywLVAuAC6wL1AwADCwMWAyEDLQM4A0MDTwNaA2YDcgN+ + A4oDlgOiA64DugPHA9MD4APsA/kEBgQTBCAELQQ7BEgEVQRjBHEEfgSMBJoEqAS2BMQE0wThBPAE/gUN + BRwFKwU6BUkFWAVnBXcFhgWWBaYFtQXFBdUF5QX2BgYGFgYnBjcGSAZZBmoGewaMBp0GrwbABtEG4wb1 + BwcHGQcrBz0HTwdhB3QHhgeZB6wHvwfSB+UH+AgLCB8IMghGCFoIbgiCCJYIqgi+CNII5wj7CRAJJQk6 + CU8JZAl5CY8JpAm6Cc8J5Qn7ChEKJwo9ClQKagqBCpgKrgrFCtwK8wsLCyILOQtRC2kLgAuYC7ALyAvh + C/kMEgwqDEMMXAx1DI4MpwzADNkM8w0NDSYNQA1aDXQNjg2pDcMN3g34DhMOLg5JDmQOfw6bDrYO0g7u + DwkPJQ9BD14Peg+WD7MPzw/sEAkQJhBDEGEQfhCbELkQ1xD1ERMRMRFPEW0RjBGqEckR6BIHEiYSRRJk + EoQSoxLDEuMTAxMjE0MTYxODE6QTxRPlFAYUJxRJFGoUixStFM4U8BUSFTQVVhV4FZsVvRXgFgMWJhZJ + FmwWjxayFtYW+hcdF0EXZReJF64X0hf3GBsYQBhlGIoYrxjVGPoZIBlFGWsZkRm3Gd0aBBoqGlEadxqe + GsUa7BsUGzsbYxuKG7Ib2hwCHCocUhx7HKMczBz1HR4dRx1wHZkdwx3sHhYeQB5qHpQevh7pHxMfPh9p + H5Qfvx/qIBUgQSBsIJggxCDwIRwhSCF1IaEhziH7IiciVSKCIq8i3SMKIzgjZiOUI8Ij8CQfJE0kfCSr + JNolCSU4JWgllyXHJfcmJyZXJocmtyboJxgnSSd6J6sn3CgNKD8ocSiiKNQpBik4KWspnSnQKgIqNSpo + KpsqzysCKzYraSudK9EsBSw5LG4soizXLQwtQS12Last4S4WLkwugi63Lu4vJC9aL5Evxy/+MDUwbDCk + MNsxEjFKMYIxujHyMioyYzKbMtQzDTNGM38zuDPxNCs0ZTSeNNg1EzVNNYc1wjX9Njc2cjauNuk3JDdg + N5w31zgUOFA4jDjIOQU5Qjl/Obw5+To2OnQ6sjrvOy07azuqO+g8JzxlPKQ84z0iPWE9oT3gPiA+YD6g + PuA/IT9hP6I/4kAjQGRApkDnQSlBakGsQe5CMEJyQrVC90M6Q31DwEQDREdEikTORRJFVUWaRd5GIkZn + RqtG8Ec1R3tHwEgFSEtIkUjXSR1JY0mpSfBKN0p9SsRLDEtTS5pL4kwqTHJMuk0CTUpNk03cTiVObk63 + TwBPSU+TT91QJ1BxULtRBlFQUZtR5lIxUnxSx1MTU19TqlP2VEJUj1TbVShVdVXCVg9WXFapVvdXRFeS + V+BYL1h9WMtZGllpWbhaB1pWWqZa9VtFW5Vb5Vw1XIZc1l0nXXhdyV4aXmxevV8PX2Ffs2AFYFdgqmD8 + YU9homH1YklinGLwY0Njl2PrZEBklGTpZT1lkmXnZj1mkmboZz1nk2fpaD9olmjsaUNpmmnxakhqn2r3 + a09rp2v/bFdsr20IbWBtuW4SbmtuxG8eb3hv0XArcIZw4HE6cZVx8HJLcqZzAXNdc7h0FHRwdMx1KHWF + deF2Pnabdvh3VnezeBF4bnjMeSp5iXnnekZ6pXsEe2N7wnwhfIF84X1BfaF+AX5ifsJ/I3+Ef+WAR4Co + gQqBa4HNgjCCkoL0g1eDuoQdhICE44VHhauGDoZyhteHO4efiASIaYjOiTOJmYn+imSKyoswi5aL/Ixj + jMqNMY2Yjf+OZo7OjzaPnpAGkG6Q1pE/kaiSEZJ6kuOTTZO2lCCUipT0lV+VyZY0lp+XCpd1l+CYTJi4 + mSSZkJn8mmia1ZtCm6+cHJyJnPedZJ3SnkCerp8dn4uf+qBpoNihR6G2oiailqMGo3aj5qRWpMelOKWp + phqmi6b9p26n4KhSqMSpN6mpqhyqj6sCq3Wr6axcrNCtRK24ri2uoa8Wr4uwALB1sOqxYLHWskuywrM4 + s660JbSctRO1irYBtnm28Ldot+C4WbjRuUq5wro7urW7LrunvCG8m70VvY++Cr6Evv+/er/1wHDA7MFn + wePCX8Lbw1jD1MRRxM7FS8XIxkbGw8dBx7/IPci8yTrJuco4yrfLNsu2zDXMtc01zbXONs62zzfPuNA5 + 0LrRPNG+0j/SwdNE08bUSdTL1U7V0dZV1tjXXNfg2GTY6Nls2fHadtr724DcBdyK3RDdlt4c3qLfKd+v + 4DbgveFE4cziU+Lb42Pj6+Rz5PzlhOYN5pbnH+ep6DLovOlG6dDqW+rl63Dr++yG7RHtnO4o7rTvQO/M + 8Fjw5fFy8f/yjPMZ86f0NPTC9VD13vZt9vv3ivgZ+Kj5OPnH+lf65/t3/Af8mP0p/br+S/7c/23////b + AEMAAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQICAgICAgICAgICAwMD + AwMDAwMDA//bAEMBAQEBAQEBAQEBAQICAQICAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMD + AwMDAwMDAwMDAwMDAwMDA//AABEIAAwAPAMBEQACEQEDEQH/xAAfAAABBQEBAQEBAQAAAAAAAAAAAQID + BAUGBwgJCgv/xAC1EAACAQMDAgQDBQUEBAAAAX0BAgMABBEFEiExQQYTUWEHInEUMoGRoQgjQrHBFVLR + 8CQzYnKCCQoWFxgZGiUmJygpKjQ1Njc4OTpDREVGR0hJSlNUVVZXWFlaY2RlZmdoaWpzdHV2d3h5eoOE + hYaHiImKkpOUlZaXmJmaoqOkpaanqKmqsrO0tba3uLm6wsPExcbHyMnK0tPU1dbX2Nna4eLj5OXm5+jp + 6vHy8/T19vf4+fr/xAAfAQADAQEBAQEBAQEBAAAAAAAAAQIDBAUGBwgJCgv/xAC1EQACAQIEBAMEBwUE + BAABAncAAQIDEQQFITEGEkFRB2FxEyIygQgUQpGhscEJIzNS8BVictEKFiQ04SXxFxgZGiYnKCkqNTY3 + ODk6Q0RFRkdISUpTVFVWV1hZWmNkZWZnaGlqc3R1dnd4eXqCg4SFhoeIiYqSk5SVlpeYmZqio6Slpqeo + qaqys7S1tre4ubrCw8TFxsfIycrS09TV1tfY2dri4+Tl5ufo6ery8/T19vf4+fr/2gAMAwEAAhEDEQA/ + AP1ZH7UPxEAA/wCEw8bnj/ob9f8A/k+v7U/1Nyj/AKF+G/8ABUP/AJE/llcSZlZf7dX/APBk/wDMX/hq + H4if9Df43/8ACv1//wCT6P8AU3Kf+hfhv/BUP/kQ/wBZcy/6Dq//AIMn/mH/AA1D8RP+hv8AG/8A4V+v + /wDyfR/qblP/AEL8N/4Kh/8AIh/rLmX/AEHV/wDwZP8AzD/hqH4if9Df43/8K/X/AP5Po/1Nyn/oX4b/ + AMFQ/wDkQ/1lzL/oOr/+DJ/5h/w1D8RP+hv8b/8AhX6//wDJ9H+puU/9C/Df+Cof/Ih/rLmX/QdX/wDB + k/8AMT/hqH4if9Df43/8K/X/AP5Po/1Nyn/oX4b/AMFQ/wDkQ/1kzL/oOr/+DJ/5n2R+xz+234zt/iRp + nw+8a6vqXiDwZ4gs9baObXr+bUr/AMPajpmkX2tQ3FlqV2Zb57K7XT2t3tXkaJWkV4whVxJ+beJfAuU4 + Th/FZ/hKEKOMw8qd+SKjGcZzjTs4q0bpyUlJK7s073VvuuBOLMxxGcYfJ8TWlVw1ZTtzu7hKMJTupPWz + UWnFu2qatrf9aP8AhfXgv+zv7U89/sfm+V5207N+M43fSv50P2w/kwr/AEFP42CgAoAKACgAoA9s/Z0/ + s7/hcng3+1vP/s7Ov/avs2PP2f8ACL63t2buP9ZjP+zmvz7xU/5IPPf+4H/qRRPsvD//AJK7KP8AuL/6 + ZqH7/wD/ABaT/hUfb7Ht/wBj7V9p8v8A9Cr+Oz+lz//Z + + + + + /9j/4AAQSkZJRgABAgEASABIAAD/7gAOQWRvYmUAZAAAAAAB/+ED5kV4aWYAAE1NACoAAAAIAAcBEgAD + AAAAAQABAAABGgAFAAAAAQAAAGIBGwAFAAAAAQAAAGoBKAADAAAAAQACAAABMQACAAAAHAAAAHIBMgAC + AAAAFAAAAI6HaQAEAAAAAQAAAKIAAADCAEgAAAABAAAASAAAAAEAAEFkb2JlIFBob3Rvc2hvcCBDUzMg + V2luZG93cwAyMDEwOjA0OjE1IDIwOjMyOjA0AAACoAIABAAAAAEAAAA8oAMABAAAAAEAAAAMAAAAAAAA + AAYBAwADAAAAAQAGAAABGgAFAAAAAQAAARABGwAFAAAAAQAAARgBKAADAAAAAQACAAACAQAEAAAAAQAA + ASACAgAEAAAAAQAAAr4AAAAAAAAASAAAAAEAAABIAAAAAf/Y/+AAEEpGSUYAAQIAAEgASAAA/+0ADEFk + b2JlX0NNAAH/7gAOQWRvYmUAZIAAAAAB/9sAhAAMCAgICQgMCQkMEQsKCxEVDwwMDxUYExMVExMYEQwM + DAwMDBEMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMAQ0LCw0ODRAODhAUDg4OFBQODg4OFBEMDAwM + DBERDAwMDAwMEQwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAz/wAARCAAMADwDASIAAhEBAxEB/90A + BAAE/8QBPwAAAQUBAQEBAQEAAAAAAAAAAwABAgQFBgcICQoLAQABBQEBAQEBAQAAAAAAAAABAAIDBAUG + BwgJCgsQAAEEAQMCBAIFBwYIBQMMMwEAAhEDBCESMQVBUWETInGBMgYUkaGxQiMkFVLBYjM0coLRQwcl + klPw4fFjczUWorKDJkSTVGRFwqN0NhfSVeJl8rOEw9N14/NGJ5SkhbSVxNTk9KW1xdXl9VZmdoaWprbG + 1ub2N0dXZ3eHl6e3x9fn9xEAAgIBAgQEAwQFBgcHBgU1AQACEQMhMRIEQVFhcSITBTKBkRShsUIjwVLR + 8DMkYuFygpJDUxVjczTxJQYWorKDByY1wtJEk1SjF2RFVTZ0ZeLys4TD03Xj80aUpIW0lcTU5PSltcXV + 5fVWZnaGlqa2xtbm9ic3R1dnd4eXp7fH/9oADAMBAAIRAxEAPwDd/amR/pH/AOcf70v2pkf6R/8AnH+9 + UUlofq/Bpevxb37UyP8ASP8A84/3pftTI/0j/wDOP96opJfq/BXr8W9+1Mj/AEj/APOP96X7UyP9I/8A + zj/eqKSX6vwV6/F3ujdbuGS2i5xfU8HVxktIG76XyW99vo27p0XGdO2/ba930dZj+q5dX+qfZPL8VAeD + 341VVr/eZhx+0bu708n/2f/iDFhJQ0NfUFJPRklMRQABAQAADEhMaW5vAhAAAG1udHJSR0IgWFlaIAfO + AAIACQAGADEAAGFjc3BNU0ZUAAAAAElFQyBzUkdCAAAAAAAAAAAAAAAAAAD21gABAAAAANMtSFAgIAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAEWNwcnQAAAFQAAAAM2Rl + c2MAAAGEAAAAbHd0cHQAAAHwAAAAFGJrcHQAAAIEAAAAFHJYWVoAAAIYAAAAFGdYWVoAAAIsAAAAFGJY + WVoAAAJAAAAAFGRtbmQAAAJUAAAAcGRtZGQAAALEAAAAiHZ1ZWQAAANMAAAAhnZpZXcAAAPUAAAAJGx1 + bWkAAAP4AAAAFG1lYXMAAAQMAAAAJHRlY2gAAAQwAAAADHJUUkMAAAQ8AAAIDGdUUkMAAAQ8AAAIDGJU + UkMAAAQ8AAAIDHRleHQAAAAAQ29weXJpZ2h0IChjKSAxOTk4IEhld2xldHQtUGFja2FyZCBDb21wYW55 + AABkZXNjAAAAAAAAABJzUkdCIElFQzYxOTY2LTIuMQAAAAAAAAAAAAAAEnNSR0IgSUVDNjE5NjYtMi4x + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABYWVogAAAAAAAA + 81EAAQAAAAEWzFhZWiAAAAAAAAAAAAAAAAAAAAAAWFlaIAAAAAAAAG+iAAA49QAAA5BYWVogAAAAAAAA + YpkAALeFAAAY2lhZWiAAAAAAAAAkoAAAD4QAALbPZGVzYwAAAAAAAAAWSUVDIGh0dHA6Ly93d3cuaWVj + LmNoAAAAAAAAAAAAAAAWSUVDIGh0dHA6Ly93d3cuaWVjLmNoAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAGRlc2MAAAAAAAAALklFQyA2MTk2Ni0yLjEgRGVmYXVsdCBSR0Ig + Y29sb3VyIHNwYWNlIC0gc1JHQgAAAAAAAAAAAAAALklFQyA2MTk2Ni0yLjEgRGVmYXVsdCBSR0IgY29s + b3VyIHNwYWNlIC0gc1JHQgAAAAAAAAAAAAAAAAAAAAAAAAAAAABkZXNjAAAAAAAAACxSZWZlcmVuY2Ug + Vmlld2luZyBDb25kaXRpb24gaW4gSUVDNjE5NjYtMi4xAAAAAAAAAAAAAAAsUmVmZXJlbmNlIFZpZXdp + bmcgQ29uZGl0aW9uIGluIElFQzYxOTY2LTIuMQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAdmlldwAA + AAAAE6T+ABRfLgAQzxQAA+3MAAQTCwADXJ4AAAABWFlaIAAAAAAATAlWAFAAAABXH+dtZWFzAAAAAAAA + AAEAAAAAAAAAAAAAAAAAAAAAAAACjwAAAAJzaWcgAAAAAENSVCBjdXJ2AAAAAAAABAAAAAAFAAoADwAU + ABkAHgAjACgALQAyADcAOwBAAEUASgBPAFQAWQBeAGMAaABtAHIAdwB8AIEAhgCLAJAAlQCaAJ8ApACp + AK4AsgC3ALwAwQDGAMsA0ADVANsA4ADlAOsA8AD2APsBAQEHAQ0BEwEZAR8BJQErATIBOAE+AUUBTAFS + AVkBYAFnAW4BdQF8AYMBiwGSAZoBoQGpAbEBuQHBAckB0QHZAeEB6QHyAfoCAwIMAhQCHQImAi8COAJB + AksCVAJdAmcCcQJ6AoQCjgKYAqICrAK2AsECywLVAuAC6wL1AwADCwMWAyEDLQM4A0MDTwNaA2YDcgN+ + A4oDlgOiA64DugPHA9MD4APsA/kEBgQTBCAELQQ7BEgEVQRjBHEEfgSMBJoEqAS2BMQE0wThBPAE/gUN + BRwFKwU6BUkFWAVnBXcFhgWWBaYFtQXFBdUF5QX2BgYGFgYnBjcGSAZZBmoGewaMBp0GrwbABtEG4wb1 + BwcHGQcrBz0HTwdhB3QHhgeZB6wHvwfSB+UH+AgLCB8IMghGCFoIbgiCCJYIqgi+CNII5wj7CRAJJQk6 + CU8JZAl5CY8JpAm6Cc8J5Qn7ChEKJwo9ClQKagqBCpgKrgrFCtwK8wsLCyILOQtRC2kLgAuYC7ALyAvh + C/kMEgwqDEMMXAx1DI4MpwzADNkM8w0NDSYNQA1aDXQNjg2pDcMN3g34DhMOLg5JDmQOfw6bDrYO0g7u + DwkPJQ9BD14Peg+WD7MPzw/sEAkQJhBDEGEQfhCbELkQ1xD1ERMRMRFPEW0RjBGqEckR6BIHEiYSRRJk + EoQSoxLDEuMTAxMjE0MTYxODE6QTxRPlFAYUJxRJFGoUixStFM4U8BUSFTQVVhV4FZsVvRXgFgMWJhZJ + FmwWjxayFtYW+hcdF0EXZReJF64X0hf3GBsYQBhlGIoYrxjVGPoZIBlFGWsZkRm3Gd0aBBoqGlEadxqe + GsUa7BsUGzsbYxuKG7Ib2hwCHCocUhx7HKMczBz1HR4dRx1wHZkdwx3sHhYeQB5qHpQevh7pHxMfPh9p + H5Qfvx/qIBUgQSBsIJggxCDwIRwhSCF1IaEhziH7IiciVSKCIq8i3SMKIzgjZiOUI8Ij8CQfJE0kfCSr + JNolCSU4JWgllyXHJfcmJyZXJocmtyboJxgnSSd6J6sn3CgNKD8ocSiiKNQpBik4KWspnSnQKgIqNSpo + KpsqzysCKzYraSudK9EsBSw5LG4soizXLQwtQS12Last4S4WLkwugi63Lu4vJC9aL5Evxy/+MDUwbDCk + MNsxEjFKMYIxujHyMioyYzKbMtQzDTNGM38zuDPxNCs0ZTSeNNg1EzVNNYc1wjX9Njc2cjauNuk3JDdg + N5w31zgUOFA4jDjIOQU5Qjl/Obw5+To2OnQ6sjrvOy07azuqO+g8JzxlPKQ84z0iPWE9oT3gPiA+YD6g + PuA/IT9hP6I/4kAjQGRApkDnQSlBakGsQe5CMEJyQrVC90M6Q31DwEQDREdEikTORRJFVUWaRd5GIkZn + RqtG8Ec1R3tHwEgFSEtIkUjXSR1JY0mpSfBKN0p9SsRLDEtTS5pL4kwqTHJMuk0CTUpNk03cTiVObk63 + TwBPSU+TT91QJ1BxULtRBlFQUZtR5lIxUnxSx1MTU19TqlP2VEJUj1TbVShVdVXCVg9WXFapVvdXRFeS + V+BYL1h9WMtZGllpWbhaB1pWWqZa9VtFW5Vb5Vw1XIZc1l0nXXhdyV4aXmxevV8PX2Ffs2AFYFdgqmD8 + YU9homH1YklinGLwY0Njl2PrZEBklGTpZT1lkmXnZj1mkmboZz1nk2fpaD9olmjsaUNpmmnxakhqn2r3 + a09rp2v/bFdsr20IbWBtuW4SbmtuxG8eb3hv0XArcIZw4HE6cZVx8HJLcqZzAXNdc7h0FHRwdMx1KHWF + deF2Pnabdvh3VnezeBF4bnjMeSp5iXnnekZ6pXsEe2N7wnwhfIF84X1BfaF+AX5ifsJ/I3+Ef+WAR4Co + gQqBa4HNgjCCkoL0g1eDuoQdhICE44VHhauGDoZyhteHO4efiASIaYjOiTOJmYn+imSKyoswi5aL/Ixj + jMqNMY2Yjf+OZo7OjzaPnpAGkG6Q1pE/kaiSEZJ6kuOTTZO2lCCUipT0lV+VyZY0lp+XCpd1l+CYTJi4 + mSSZkJn8mmia1ZtCm6+cHJyJnPedZJ3SnkCerp8dn4uf+qBpoNihR6G2oiailqMGo3aj5qRWpMelOKWp + phqmi6b9p26n4KhSqMSpN6mpqhyqj6sCq3Wr6axcrNCtRK24ri2uoa8Wr4uwALB1sOqxYLHWskuywrM4 + s660JbSctRO1irYBtnm28Ldot+C4WbjRuUq5wro7urW7LrunvCG8m70VvY++Cr6Evv+/er/1wHDA7MFn + wePCX8Lbw1jD1MRRxM7FS8XIxkbGw8dBx7/IPci8yTrJuco4yrfLNsu2zDXMtc01zbXONs62zzfPuNA5 + 0LrRPNG+0j/SwdNE08bUSdTL1U7V0dZV1tjXXNfg2GTY6Nls2fHadtr724DcBdyK3RDdlt4c3qLfKd+v + 4DbgveFE4cziU+Lb42Pj6+Rz5PzlhOYN5pbnH+ep6DLovOlG6dDqW+rl63Dr++yG7RHtnO4o7rTvQO/M + 8Fjw5fFy8f/yjPMZ86f0NPTC9VD13vZt9vv3ivgZ+Kj5OPnH+lf65/t3/Af8mP0p/br+S/7c/23////b + AEMAAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQICAgICAgICAgICAwMD + AwMDAwMDA//bAEMBAQEBAQEBAQEBAQICAQICAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMD + AwMDAwMDAwMDAwMDAwMDA//AABEIAAwAPAMBEQACEQEDEQH/xAAfAAABBQEBAQEBAQAAAAAAAAAAAQID + BAUGBwgJCgv/xAC1EAACAQMDAgQDBQUEBAAAAX0BAgMABBEFEiExQQYTUWEHInEUMoGRoQgjQrHBFVLR + 8CQzYnKCCQoWFxgZGiUmJygpKjQ1Njc4OTpDREVGR0hJSlNUVVZXWFlaY2RlZmdoaWpzdHV2d3h5eoOE + hYaHiImKkpOUlZaXmJmaoqOkpaanqKmqsrO0tba3uLm6wsPExcbHyMnK0tPU1dbX2Nna4eLj5OXm5+jp + 6vHy8/T19vf4+fr/xAAfAQADAQEBAQEBAQEBAAAAAAAAAQIDBAUGBwgJCgv/xAC1EQACAQIEBAMEBwUE + BAABAncAAQIDEQQFITEGEkFRB2FxEyIygQgUQpGhscEJIzNS8BVictEKFiQ04SXxFxgZGiYnKCkqNTY3 + ODk6Q0RFRkdISUpTVFVWV1hZWmNkZWZnaGlqc3R1dnd4eXqCg4SFhoeIiYqSk5SVlpeYmZqio6Slpqeo + qaqys7S1tre4ubrCw8TFxsfIycrS09TV1tfY2dri4+Tl5ufo6ery8/T19vf4+fr/2gAMAwEAAhEDEQA/ + AP1ZH7UPxEAA/wCEw8bnj/ob9f8A/k+v7U/1Nyj/AKF+G/8ABUP/AJE/llcSZlZf7dX/APBk/wDMX/hq + H4if9Df43/8ACv1//wCT6P8AU3Kf+hfhv/BUP/kQ/wBZcy/6Dq//AIMn/mH/AA1D8RP+hv8AG/8A4V+v + /wDyfR/qblP/AEL8N/4Kh/8AIh/rLmX/AEHV/wDwZP8AzD/hqH4if9Df43/8K/X/AP5Po/1Nyn/oX4b/ + AMFQ/wDkQ/1lzL/oOr/+DJ/5h/w1D8RP+hv8b/8AhX6//wDJ9H+puU/9C/Df+Cof/Ih/rLmX/QdX/wDB + k/8AMT/hqH4if9Df43/8K/X/AP5Po/1Nyn/oX4b/AMFQ/wDkQ/1kzL/oOr/+DJ/5n2R+xz+234zt/iRp + nw+8a6vqXiDwZ4gs9baObXr+bUr/AMPajpmkX2tQ3FlqV2Zb57K7XT2t3tXkaJWkV4whVxJ+beJfAuU4 + Th/FZ/hKEKOMw8qd+SKjGcZzjTs4q0bpyUlJK7s073VvuuBOLMxxGcYfJ8TWlVw1ZTtzu7hKMJTupPWz + UWnFu2qatrf9aP8AhfXgv+zv7U89/sfm+V5207N+M43fSv50P2w/kwr/AEFP42CgAoAKACgAoA9s/Z0/ + s7/hcng3+1vP/s7Ov/avs2PP2f8ACL63t2buP9ZjP+zmvz7xU/5IPPf+4H/qRRPsvD//AJK7KP8AuL/6 + ZqH7/wD/ABaT/hUfb7Ht/wBj7V9p8v8A9Cr+Oz+lz//Z + + + + 44 + + \ No newline at end of file diff --git a/ArinWarev1/Forms/v20091231/Frm_kongkub.vb b/ArinWarev1/Forms/v20091231/Frm_kongkub.vb new file mode 100644 index 0000000..ffedd8f --- /dev/null +++ b/ArinWarev1/Forms/v20091231/Frm_kongkub.vb @@ -0,0 +1,495 @@ +Public Class Frm_kongkub + Dim Init As Boolean = False + Dim SrcDrv As DataRowView +#Region "data Base 변경여부및 적용방법" + + '''변경된내용을적용한다. + Public Overrides Function AcceptChanged() As Boolean + bs.EndEdit() + Dim BaseDS As DataSet = CType(bs.DataSource, DataSet) + Dim BaseDT As DataTable = BaseDS.Tables(bs.DataMember) + BaseDT.AcceptChanges() + Return True + End Function + + '''변경된내용이있다면 취소한다. + Public Overrides Function RejectChanged() As Boolean + Dim BaseDS As DataSet = CType(bs.DataSource, DataSet) + Dim BaseDT As DataTable = BaseDS.Tables(bs.DataMember) + BaseDT.RejectChanges() + Return True + End Function + + '''데이터에변형이있었는가? + Public Overrides Function HasChanged() As Boolean + bs.EndEdit() + Dim BaseDS As DataSet = CType(bs.DataSource, DataSet) + Dim BaseDT As DataTable = BaseDS.Tables(bs.DataMember) + Dim ChangeDT As DataTable = BaseDT.GetChanges + If Not ChangeDT Is Nothing Then Return True + Return False + End Function + + '''기본데이터테이블을 반환합니다. + Public Function DT() As DataTable + Dim BaseDS As DataSet = CType(bs.DataSource, DataSet) + Return BaseDS.Tables(bs.DataMember) + End Function + +#End Region + + + Private Sub MdiMain_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load + 'MdiMain.Toggle_Menu_Color(MdiMain.E_MenuIdx.난방공급시스템) + 'CEnergy.ARINCLASS.SaveLoad_FrmSetting(Me) + '//프로필 관련 + + '//공유데이터셋에 연결한다. + Me.bs.DataSource = DSET + + + '//난방공급시스템 + AddHandler DSET.tbl_kongkub.TableNewRow, AddressOf AddNewDataRow_kongkub + + '//모든컨트롤의 cTrl_enter 를 추가합니다 + BindProperty(CType(Me.SplitContainer1.Panel2.Controls, Control.ControlCollection)) + + '//콤보컨트롤 바인딩 + Binding_Zone() + + Me.bs.Filter = "code <> '0' and 열공급시스템 = '" + Me.Parameter + "'" + Me.lb_grpname.Text = Me.Parameter + + Me.Init = True + + Try + Me.bs.Position = CEnergy.ARINCLASS.Read_LastPos_Frm(Me) + Catch ex As Exception + Me.bs.MoveFirst() + End Try + + bs_CurrentChanged(sender, e) + Validate_control() + + End Sub +#Region "Control_Enter" + Private Sub BindProperty(ByVal Ctl As Control.ControlCollection) + For Each C As Control In Ctl + If C.Controls.Count > 1 Then + BindProperty(C.Controls) + Else + If C.GetType.ToString.ToUpper.IndexOf("MYTB") <> -1 Then + AddHandler CType(C, MyTb).KeyDown, AddressOf TextBOx_KeyDown + ElseIf C.GetType.ToString.ToUpper.IndexOf("MYCMB") <> -1 Then + AddHandler CType(C, MyCmb).KeyDown, AddressOf Cmd_KeyDown + End If + End If + Next + End Sub + + + Private Sub TextBOx_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) + If e.KeyCode = Keys.Enter AndAlso e.Control Then + Try + Dim Field As String = (CType(sender, MyTb).DataBindings.Item("text").BindingMemberInfo.BindingField) + For Each Dr As DataRow In dt.Select(Me.bs.Filter, "") + Dr(Field) = CType(sender, MyTb).Text + Next + Work_msg_timer("모든값이 변경되었습니다", 25) + Catch ex As Exception + + End Try + + End If + End Sub + Private Sub Cmd_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) + If e.KeyCode = Keys.Enter AndAlso e.Control Then + Try + Dim Field As String = (CType(sender, MyCmb).DataBindings.Item("selectedvalue").BindingMemberInfo.BindingField) + For Each Dr As DataRow In dt.Select(Me.bs.Filter, "") + Dr(Field) = CType(sender, MyCmb).SelectedValue + Next + Work_msg_timer("모든값이 변경되었습니다", 25) + Catch ex As Exception + + End Try + End If + End Sub +#End Region +#Region "난방공급시스템" + + Private Function GetMaxCode(ByVal dt As DataTable) As String + Try + Dim Dr As DataRow = dt.Select("", "code desc")(0) + Return Format(CInt(Dr("code")) + 1, "0000") + Catch ex As Exception + Return "0001" + End Try + End Function + + Private Sub Cmb_DeleteVal(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) + If e.KeyCode = Keys.Delete Then + CType(sender, ComboBox).SelectedValue = "" + End If + End Sub + + Private Sub ToolStripButton48_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt_add.Click + If Not EndEdit(Me.bs) Then Return + Me.bs.AddNew() + INitRow(Me.Controls) + End Sub + + + Private Sub ToolStripButton49_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt_Del.Click + Dbbase.DelCrow(Me.bs, True) + End Sub + + Private Sub ToolStripButton51_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt_cancel.Click + If Not EndEdit(Me.bs) Then Return + Data_Cancel(DSET.tbl_profile, Nothing) + End Sub + + Private Sub Binding_Zone() + + '//난방공급 시스템 + Dim bs_열공급시스템ComboBox As New BindingSource(DSET, "tbl_common") + bs_열공급시스템ComboBox.Filter = "gubun='1045'" + 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(DSET, "tbl_nanbangkiki") + Me.열공급생산기기ComboBox.DataSource = bs_열공급생산기기ComboBox + bs_열공급생산기기ComboBox.Sort = "code" + 열공급생산기기ComboBox.DisplayMember = "설명" + 열공급생산기기ComboBox.ValueMember = "code" + Me.열공급생산기기ComboBox.DataBindings.Add("selectedvalue", Me.bs, "열공급생산기기") + ' AddHandler 열공급생산기기ComboBox.KeyDown, AddressOf Cmb_DeleteVal + + Dim bs_노출형제어ComboBox As New BindingSource(DSET, "tbl_common") + bs_노출형제어ComboBox.Filter = "gubun='1033'" '//비제어,onoff제어,pi제어 + 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(DSET, "tbl_common") + bs_바닥난방열제어ComboBox.Filter = "gubun='1033'" + 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(DSET, "tbl_common") + bs_바닥난방열건축부위ComboBox.Filter = "gubun='1034'" + 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(DSET, "tbl_common") + bs_바닥난방전기제어ComboBox.Filter = "gubun='1033'" '//습식,건식,반건식 + 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(DSET, "tbl_common") + bs_바닥난방전기건축부위ComboBox.Filter = "gubun='1034'" + 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(DSET, "tbl_common") + bs_전기난방제어ComboBox.Filter = "gubun='1033'" + 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 + 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 + If Me.bs.Position < Me.bs.Count Then Me.bs.Position += 1 + Else + If Me.bs.Position > 0 Then Me.bs.Position -= 1 + End If + Me.Validate() + My.Application.DoEvents() + End Sub + Private Sub MdiMain_FormClosed(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosedEventArgs) Handles Me.FormClosed + CEnergy.ARINCLASS.SaveLoad_FrmSetting(Me, Me.bs.Position, True) + End Sub + + Private Sub MdiMain_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown + Select Case e.KeyCode + Case Keys.F12 + End Select + End Sub + Private Sub AddNewDataRow_kongkub(ByVal sender As Object, ByVal e As System.Data.DataTableNewRowEventArgs) + e.Row.Item("code") = GetMaxCode(DSET.tbl_kongkub) + End Sub + +#End Region + + Private Sub bs_CurrentChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bs.CurrentChanged + If Not Init Then Return + Try + Dim Drv As DataRowView = CType(bs.Current, DataRowView) + Dim DR() As DataRow = DSET.tbl_zone.Select("냉난방열공급시스템='" & Drv("code").ToString & "'") + Me.tb_zone_cnt.Text = CStr(DR.GetUpperBound(0) + 1) + Catch ex As Exception + Me.tb_zone_cnt.Text = "0" + End Try + Me.bs.EndEdit() + + End Sub + + Private Sub 열공급시스템ComboBox_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles 열공급시스템ComboBox.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) <> 21 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() '//한줄추가 + + Dim Cnt As Short = 0 + For i As Integer = 0 To CB.GetUpperBound(0) + Select Case i + Case 0 + CType(bs.Current, DataRowView)("설명") = CB(i).Split(CChar(vbTab))(ii).Trim + Case 0 + 3 '//사용프로필 앞에 두개를 숫자4자로변환 + If CB(i).Split(CChar(vbTab))(ii).Trim = "" Then + Me.열공급시스템ComboBox.SelectedIndex = 0 + Else + Me.열공급시스템ComboBox.Text = CB(i).Split(CChar(vbTab))(ii).Trim + End If + 'Me.열공급시스템ComboBox.Text = CStr(IIf( CB(i).Split(CChar(vbTab))(ii).Trim = "", "0", CB(i).Split(CChar(vbTab))(ii).Trim)) + Case 1 + 3 '//공란 + If CB(i).Split(CChar(vbTab))(ii).Trim = "" Then + Me.열공급생산기기ComboBox.SelectedIndex = 0 + Else + Me.열공급생산기기ComboBox.Text = CB(i).Split(CChar(vbTab))(ii).Trim + End If + 'Me.열공급생산기기ComboBox.Text = CStr(IIf( CB(i).Split(CChar(vbTab))(ii).Trim = "", "0", CB(i).Split(CChar(vbTab))(ii).Trim)) + Case 3 + 3 '//면적 + If CB(i).Split(CChar(vbTab))(ii).Trim = "" Then + Me.노출형제어ComboBox.SelectedIndex = 0 + Else + Me.노출형제어ComboBox.Text = CB(i).Split(CChar(vbTab))(ii).Trim + End If + ' Me.노출형제어ComboBox.Text = CStr(IIf( CB(i).Split(CChar(vbTab))(ii).Trim = "", "0", CB(i).Split(CChar(vbTab))(ii).Trim)) + Case 5 + 3 + If CB(i).Split(CChar(vbTab))(ii).Trim = "" Then + Me.바닥난방열제어ComboBox.SelectedIndex = 0 + Else + Me.바닥난방열제어ComboBox.Text = CB(i).Split(CChar(vbTab))(ii).Trim + End If + ' Me.바닥난방열제어ComboBox.Text = CStr(IIf( CB(i).Split(CChar(vbTab))(ii).Trim = "", "0", CB(i).Split(CChar(vbTab))(ii).Trim)) + Case 6 + 3 + If CB(i).Split(CChar(vbTab))(ii).Trim = "" Then + Me.바닥난방열건축부위ComboBox.SelectedIndex = 0 + Else + Me.바닥난방열건축부위ComboBox.Text = CB(i).Split(CChar(vbTab))(ii).Trim + End If + ' Me.바닥난방열건축부위ComboBox.Text = CStr(IIf( CB(i).Split(CChar(vbTab))(ii).Trim = "", "0", CB(i).Split(CChar(vbTab))(ii).Trim)) + Case 8 + 3 + If CB(i).Split(CChar(vbTab))(ii).Trim = "" Then + Me.바닥난방전기제어ComboBox.SelectedIndex = 0 + Else + Me.바닥난방전기제어ComboBox.Text = CB(i).Split(CChar(vbTab))(ii).Trim + End If + 'Me.바닥난방전기제어ComboBox.Text = CStr(IIf( CB(i).Split(CChar(vbTab))(ii).Trim = "", "0", CB(i).Split(CChar(vbTab))(ii).Trim)) + Case 9 + 3 + If CB(i).Split(CChar(vbTab))(ii).Trim = "" Then + Me.바닥난방전기건축부위ComboBox.SelectedIndex = 0 + Else + Me.바닥난방전기건축부위ComboBox.Text = CB(i).Split(CChar(vbTab))(ii).Trim + End If + ' Me.바닥난방전기건축부위ComboBox.Text = CStr(IIf( CB(i).Split(CChar(vbTab))(ii).Trim = "", "0", CB(i).Split(CChar(vbTab))(ii).Trim)) + Case 11 + 3 + If CB(i).Split(CChar(vbTab))(ii).Trim = "" Then + Me.전기난방제어ComboBox.SelectedIndex = 0 + Else + Me.전기난방제어ComboBox.Text = CB(i).Split(CChar(vbTab))(ii).Trim + End If + 'Me.전기난방제어ComboBox.Text = CStr(IIf( CB(i).Split(CChar(vbTab))(ii).Trim = "", "0", CB(i).Split(CChar(vbTab))(ii).Trim)) + Case 13 + 3 + 'Me.TabControl18.SelectedIndex = 1 + Me.제어기의정격전력NTb.Text = CB(i).Split(CChar(vbTab))(ii).Trim + Case 14 + 3 + Me.팬송풍기정격전력NTb.Text = CB(i).Split(CChar(vbTab))(ii).Trim + Case 15 + 3 + Me.펌프정격전력NTb.Text = CB(i).Split(CChar(vbTab))(ii).Trim + Case 16 + 3 + Me.팬송풍기수NTb.Text = CB(i).Split(CChar(vbTab))(ii).Trim + Case 17 + 3 + Me.추가펌프수NTb.Text = CB(i).Split(CChar(vbTab))(ii).Trim + + End Select + Next + Next + + Me.bs.EndEdit() + End If + End Sub + + + Private Sub bt_Del_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles bt_Del.MouseDown + If e.Button = Windows.Forms.MouseButtons.Right Then + If MsgBox("전체삭제를 하시겠습니까?", MsgBoxStyle.Information Or MsgBoxStyle.OkCancel, "확인") = MsgBoxResult.Ok Then + Dim dR() As DataRow = DSET.tbl_kongkub.Select(Me.bs.Filter, "") + For i As Integer = dR.GetUpperBound(0) To 0 Step -1 + dR(i).Delete() + Next + DSET.tbl_kongkub.AcceptChanges() + End If + End If + End Sub + + Private Sub 열공급시스템ComboBox_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 열공급시스템ComboBox.SelectedIndexChanged + VALIDATE_CONTROL() + End Sub + + Private Sub Validate_control() + If Not Init Then Return + Try + Select Case 열공급시스템ComboBox.Text + Case "노출형방열기(열)" + 열공급생산기기ComboBox.Enabled = True + 노출형방열기GroupBox.Enabled = True + 바닥난방열GroupBox.Enabled = False + 전기난방GroupBox.Enabled = False + 바닥난방전기GroupBox.Enabled = False + + Case "바닥난방(열)" + 열공급생산기기ComboBox.Enabled = True + 노출형방열기GroupBox.Enabled = False + 바닥난방열GroupBox.Enabled = True + 전기난방GroupBox.Enabled = False + 바닥난방전기GroupBox.Enabled = False + + Case "전기난방" + 열공급생산기기ComboBox.Enabled = False + 노출형방열기GroupBox.Enabled = False + 바닥난방열GroupBox.Enabled = False + 전기난방GroupBox.Enabled = True + 바닥난방전기GroupBox.Enabled = False + + Case "바닥난방(전기)" + 열공급생산기기ComboBox.Enabled = False + 노출형방열기GroupBox.Enabled = False + 바닥난방열GroupBox.Enabled = False + 전기난방GroupBox.Enabled = False + 바닥난방전기GroupBox.Enabled = True + + Case Else + 열공급생산기기ComboBox.Enabled = False + 노출형방열기GroupBox.Enabled = False + 바닥난방열GroupBox.Enabled = False + 전기난방GroupBox.Enabled = False + 바닥난방전기GroupBox.Enabled = False + + End Select + Catch ex As Exception + + End Try + End Sub + + Private Sub dv_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles dv.MouseUp + If Prj.UserAuthType = "ADMIN" OrElse Prj.UserAuthType = "BOTH" OrElse Prj.UserAuthType = "BOTH2" OrElse Prj.UserAuthType = "BOTH1" Then '//2011.03.08 추가 + If e.Button = Windows.Forms.MouseButtons.Right Then + Dim Frm_FilterA As New Frm_Filter + Frm_FilterA.ColumTitle = getColCaption(Me.dt) + Frm_FilterA.ColumList = getColName(Me.dt) + Frm_FilterA.Colorlist = "열공급생산기기" + Frm_FilterA.Numfield = "" '//20100618 Color 리스트처럼 , 구분해서 필드들을 모두 넣으세요.(=, >= 등을 사용하기 위해서는 해당 항목을 추가 요망) + Frm_FilterA.Default_Filter = "code <> '0'" + + If Frm_FilterA.ShowDialog <> Windows.Forms.DialogResult.OK Then Return '//창떳을떄 확인아ㅣ고 취소눌르면 다음을 수행하지않는다는거에요. + Dim Filter As String = Frm_FilterA.tb_filter.Text '//값은 아까 그 텍박에 잇구요. + Try + Me.bs.Filter = Filter + + '//바꾸기값이 있으면 변경 20100618 + If Frm_FilterA.cmb_fieldc.SelectedIndex >= 0 AndAlso Frm_FilterA.cmb_fieldc.Text.ToLower <> "code" AndAlso _ + Frm_FilterA.tb_valuec.Text <> "" Then + Dim Drow() As DataRow = Me.dt.Select(Filter) + For Each Dr As DataRow In Drow + Dr(Frm_FilterA.cmb_fieldc.Text) = Frm_FilterA.tb_valuec.Text + Next + MsgBox("바꾸기 완료", MsgBoxStyle.Information, "확인") + End If + + Catch ex As Exception + Me.bs.Filter = "" + End Try + End If + End If + End Sub + Private Sub dv_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles dv.KeyDown + '//여기보시면 alt+d 누르면 한줄을 경고없이(falsE)삭제하도록 햇어요.. 사실원래 밋alt +d 인데.. ㅎㅎ 잘못해서 ctrl 됫다는 + If Prj.UserAuthType = "ADMIN" OrElse Prj.UserAuthType = "BOTH" OrElse Prj.UserAuthType = "BOTH2" OrElse Prj.UserAuthType = "BOTH1" Then '//2011.03.08 추가 + Select Case e.KeyCode + Case Keys.D + If e.Alt Then + Dbbase.DelCrow(Me.bs, False) + End If + Case Keys.C + If e.Control Then + Me.SrcDrv = Me.bs.Current + If Me.SrcDrv Is Nothing Then + MsgBox("저장할 ROW가 없습니다", MsgBoxStyle.Information, "확인") + Return + End If + ' My.Computer.Clipboard.SetData("ZDATA", Drv) + End If + Case Keys.V + If e.Control Then + If Me.SrcDrv Is Nothing Then Return + Me.bt_add.PerformClick() '//신규추가 + Dim NewDrv As DataRowView = Me.bs.Current + + For Each C As DataColumn In Me.dt.Columns + If C.ColumnName.ToUpper = "CODE" Then + ElseIf C.ColumnName.ToUpper = "설명" Then + NewDrv(C.ColumnName) = SrcDrv(C.ColumnName) & "#1" + Else + NewDrv(C.ColumnName) = SrcDrv(C.ColumnName) + End If + Next + Me.bs.EndEdit() + bs.MoveLast() + End If + End Select + End If + End Sub + + Private Sub dv_CellContentClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles dv.CellContentClick + + End Sub +End Class \ No newline at end of file diff --git a/ArinWarev1/Forms/v20091231/Frm_nBunbae.Designer.vb b/ArinWarev1/Forms/v20091231/Frm_nBunbae.Designer.vb new file mode 100644 index 0000000..79aa207 --- /dev/null +++ b/ArinWarev1/Forms/v20091231/Frm_nBunbae.Designer.vb @@ -0,0 +1,707 @@ + _ +Partial Class Frm_nBunbae + Inherits CForm + + 'Form은 Dispose를 재정의하여 구성 요소 목록을 정리합니다. + _ + Protected Overrides Sub Dispose(ByVal disposing As Boolean) + Try + If disposing AndAlso components IsNot Nothing Then + components.Dispose() + End If + Finally + MyBase.Dispose(disposing) + End Try + End Sub + + 'Windows Form 디자이너에 필요합니다. + Private components As System.ComponentModel.IContainer + + '참고: 다음 프로시저는 Windows Form 디자이너에 필요합니다. + '수정하려면 Windows Form 디자이너를 사용하십시오. + '코드 편집기를 사용하여 수정하지 마십시오. + _ + Private Sub InitializeComponent() + Me.components = New System.ComponentModel.Container() + Dim Label11 As System.Windows.Forms.Label + Dim Label10 As System.Windows.Forms.Label + Dim Label9 As System.Windows.Forms.Label + Dim Label8 As System.Windows.Forms.Label + Dim Label6 As System.Windows.Forms.Label + Dim Label18 As System.Windows.Forms.Label + Dim Label17 As System.Windows.Forms.Label + Dim Label16 As System.Windows.Forms.Label + Dim Label15 As System.Windows.Forms.Label + Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(Frm_nBunbae)) + Me.bs = New System.Windows.Forms.BindingSource(Me.components) + Me.DS = New Eco2Ar.DS() + Me.Label1 = New System.Windows.Forms.Label() + Me.Label19 = New System.Windows.Forms.Label() + Me.Label225 = New System.Windows.Forms.Label() + Me.SplitContainer1 = New System.Windows.Forms.SplitContainer() + Me.dv = New CEnergy.arindv() + Me.DataGridViewTextBoxColumn1 = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.lb_grpname = New System.Windows.Forms.Label() + 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() + Me.bt_Del = New System.Windows.Forms.ToolStripButton() + Me.bt_cancel = New System.Windows.Forms.ToolStripButton() + Me.ToolStripSeparator1 = New System.Windows.Forms.ToolStripSeparator() + Me.lbl_pos = New System.Windows.Forms.ToolStripLabel() + Me.Label23 = New System.Windows.Forms.Label() + Me.PictureBox4 = New System.Windows.Forms.PictureBox() + Me.난방분배표준치GroupBox = New System.Windows.Forms.GroupBox() + Me.건물길이xMyTb = New Eco2Ar.MyTb() + Me.층고MyTb = New Eco2Ar.MyTb() + Me.Label2 = New System.Windows.Forms.Label() + Me.cmb_지관연결관장소 = New Eco2Ar.MyCmb() + Me.층수MyTb = New Eco2Ar.MyTb() + Me.건물길이yMyTb = New Eco2Ar.MyTb() + Me.난방분배표준치PictureBox = New System.Windows.Forms.PictureBox() + Me.열분배GroupBox = New System.Windows.Forms.GroupBox() + Me.열관류율MyTb = New Eco2Ar.MyTb() + Me.배관구간길이MyTb = New Eco2Ar.MyTb() + Me.Label222 = New System.Windows.Forms.Label() + Me.cmb_배관설치장소 = New Eco2Ar.MyCmb() + Me.cmb_배관구간방식 = New Eco2Ar.MyCmb() + Me.열분배PictureBox = New System.Windows.Forms.PictureBox() + Me.GroupBox1 = New System.Windows.Forms.GroupBox() + Me.cmb_배관망유형 = New Eco2Ar.MyCmb() + Me.cmb_표준치적용 = New Eco2Ar.MyCmb() + Me.cmb_생산기기구분 = New Eco2Ar.MyCmb() + Me.PictureBox1 = New System.Windows.Forms.PictureBox() + Label11 = New System.Windows.Forms.Label() + Label10 = New System.Windows.Forms.Label() + Label9 = New System.Windows.Forms.Label() + Label8 = New System.Windows.Forms.Label() + Label6 = New System.Windows.Forms.Label() + Label18 = New System.Windows.Forms.Label() + Label17 = New System.Windows.Forms.Label() + Label16 = New System.Windows.Forms.Label() + Label15 = New System.Windows.Forms.Label() + CType(Me.bs, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.DS, System.ComponentModel.ISupportInitialize).BeginInit() + Me.SplitContainer1.Panel1.SuspendLayout() + Me.SplitContainer1.Panel2.SuspendLayout() + Me.SplitContainer1.SuspendLayout() + CType(Me.dv, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.bn, System.ComponentModel.ISupportInitialize).BeginInit() + Me.bn.SuspendLayout() + CType(Me.PictureBox4, System.ComponentModel.ISupportInitialize).BeginInit() + Me.난방분배표준치GroupBox.SuspendLayout() + CType(Me.난방분배표준치PictureBox, System.ComponentModel.ISupportInitialize).BeginInit() + Me.열분배GroupBox.SuspendLayout() + CType(Me.열분배PictureBox, System.ComponentModel.ISupportInitialize).BeginInit() + Me.GroupBox1.SuspendLayout() + CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit() + Me.SuspendLayout() + ' + 'Label11 + ' + Label11.AutoSize = True + Label11.BackColor = System.Drawing.Color.FromArgb(CType(CType(243, Byte), Integer), CType(CType(244, Byte), Integer), CType(CType(246, Byte), Integer)) + Label11.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label11.Location = New System.Drawing.Point(9, 42) + Label11.Name = "Label11" + Label11.Size = New System.Drawing.Size(99, 14) + Label11.TabIndex = 125 + Label11.Text = "건물길이(x축)[m]:" + ' + 'Label10 + ' + Label10.AutoSize = True + Label10.BackColor = System.Drawing.Color.FromArgb(CType(CType(243, Byte), Integer), CType(CType(244, Byte), Integer), CType(CType(246, Byte), Integer)) + Label10.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label10.Location = New System.Drawing.Point(9, 66) + Label10.Name = "Label10" + Label10.Size = New System.Drawing.Size(99, 14) + Label10.TabIndex = 126 + Label10.Text = "건물너비(y축)[m]:" + ' + 'Label9 + ' + Label9.AutoSize = True + Label9.BackColor = System.Drawing.Color.FromArgb(CType(CType(243, Byte), Integer), CType(CType(244, Byte), Integer), CType(CType(246, Byte), Integer)) + Label9.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label9.Location = New System.Drawing.Point(9, 90) + Label9.Name = "Label9" + Label9.Size = New System.Drawing.Size(105, 14) + Label9.TabIndex = 127 + Label9.Text = "난방을하는 층의 수:" + ' + 'Label8 + ' + Label8.AutoSize = True + Label8.BackColor = System.Drawing.Color.FromArgb(CType(CType(243, Byte), Integer), CType(CType(244, Byte), Integer), CType(CType(246, Byte), Integer)) + Label8.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label8.Location = New System.Drawing.Point(9, 112) + Label8.Name = "Label8" + Label8.Size = New System.Drawing.Size(85, 14) + Label8.TabIndex = 128 + Label8.Text = "층 고[m]:" + ' + 'Label6 + ' + Label6.AutoSize = True + Label6.BackColor = System.Drawing.Color.FromArgb(CType(CType(243, Byte), Integer), CType(CType(244, Byte), Integer), CType(CType(246, Byte), Integer)) + Label6.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label6.Location = New System.Drawing.Point(9, 138) + Label6.Name = "Label6" + Label6.Size = New System.Drawing.Size(93, 14) + Label6.TabIndex = 129 + Label6.Text = "지관/연결관장소:" + ' + 'Label18 + ' + Label18.AutoSize = True + Label18.BackColor = System.Drawing.Color.FromArgb(CType(CType(243, Byte), Integer), CType(CType(244, Byte), Integer), CType(CType(246, Byte), Integer)) + Label18.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label18.Location = New System.Drawing.Point(9, 126) + Label18.Name = "Label18" + Label18.Size = New System.Drawing.Size(77, 14) + Label18.TabIndex = 24 + Label18.Text = "배관설치장소:" + ' + 'Label17 + ' + Label17.AutoSize = True + Label17.BackColor = System.Drawing.Color.FromArgb(CType(CType(243, Byte), Integer), CType(CType(244, Byte), Integer), CType(CType(246, Byte), Integer)) + Label17.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label17.Location = New System.Drawing.Point(9, 99) + Label17.Name = "Label17" + Label17.Size = New System.Drawing.Size(182, 14) + Label17.TabIndex = 23 + Label17.Text = "단위길이 배관의 열관류율[W/mK]:" + ' + 'Label16 + ' + Label16.AutoSize = True + Label16.BackColor = System.Drawing.Color.FromArgb(CType(CType(243, Byte), Integer), CType(CType(244, Byte), Integer), CType(CType(246, Byte), Integer)) + Label16.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label16.Location = New System.Drawing.Point(9, 71) + Label16.Name = "Label16" + Label16.Size = New System.Drawing.Size(96, 14) + Label16.TabIndex = 22 + Label16.Text = "배관구간길이[m]:" + ' + 'Label15 + ' + Label15.AutoSize = True + Label15.BackColor = System.Drawing.Color.FromArgb(CType(CType(243, Byte), Integer), CType(CType(244, Byte), Integer), CType(CType(246, Byte), Integer)) + Label15.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label15.Location = New System.Drawing.Point(9, 45) + Label15.Name = "Label15" + Label15.Size = New System.Drawing.Size(77, 14) + Label15.TabIndex = 17 + Label15.Text = "배관구간방식:" + ' + 'bs + ' + Me.bs.DataMember = "tbl_nbunbae" + Me.bs.DataSource = Me.DS + Me.bs.Filter = "code <> '0'" + ' + 'DS + ' + Me.DS.DataSetName = "DS" + Me.DS.SchemaSerializationMode = System.Data.SchemaSerializationMode.IncludeSchema + ' + 'Label1 + ' + Me.Label1.AutoSize = True + Me.Label1.BackColor = System.Drawing.Color.FromArgb(CType(CType(219, Byte), Integer), CType(CType(221, Byte), Integer), CType(CType(223, Byte), Integer)) + Me.Label1.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Me.Label1.Location = New System.Drawing.Point(327, 18) + Me.Label1.Name = "Label1" + Me.Label1.Size = New System.Drawing.Size(83, 14) + Me.Label1.TabIndex = 121 + Me.Label1.Text = "2. 배관망 유형:" + Me.Label1.TextAlign = System.Drawing.ContentAlignment.MiddleLeft + ' + 'Label19 + ' + Me.Label19.AutoSize = True + Me.Label19.BackColor = System.Drawing.Color.FromArgb(CType(CType(219, Byte), Integer), CType(CType(221, Byte), Integer), CType(CType(223, Byte), Integer)) + Me.Label19.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Me.Label19.Location = New System.Drawing.Point(8, 18) + Me.Label19.Name = "Label19" + Me.Label19.Size = New System.Drawing.Size(94, 14) + Me.Label19.TabIndex = 119 + Me.Label19.Text = "0. 생산기기 구분:" + Me.Label19.TextAlign = System.Drawing.ContentAlignment.MiddleLeft + ' + 'Label225 + ' + Me.Label225.AutoSize = True + Me.Label225.BackColor = System.Drawing.Color.FromArgb(CType(CType(219, Byte), Integer), CType(CType(221, Byte), Integer), CType(CType(223, Byte), Integer)) + Me.Label225.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Me.Label225.Location = New System.Drawing.Point(8, 43) + Me.Label225.Name = "Label225" + Me.Label225.Size = New System.Drawing.Size(196, 14) + Me.Label225.TabIndex = 119 + Me.Label225.Text = "1.각 배관손실산출 또는 표준치 적용+:" + Me.Label225.TextAlign = System.Drawing.ContentAlignment.MiddleLeft + ' + '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.lb_grpname) + Me.SplitContainer1.Panel1.Controls.Add(Me.bn) + ' + 'SplitContainer1.Panel2 + ' + Me.SplitContainer1.Panel2.BackColor = System.Drawing.Color.White + Me.SplitContainer1.Panel2.Controls.Add(Me.Label23) + Me.SplitContainer1.Panel2.Controls.Add(Me.PictureBox4) + Me.SplitContainer1.Panel2.Controls.Add(Me.난방분배표준치GroupBox) + Me.SplitContainer1.Panel2.Controls.Add(Me.열분배GroupBox) + Me.SplitContainer1.Panel2.Controls.Add(Me.GroupBox1) + Me.SplitContainer1.Size = New System.Drawing.Size(795, 565) + Me.SplitContainer1.SplitterDistance = 214 + Me.SplitContainer1.TabIndex = 126 + ' + 'dv + ' + Me.dv.A_DelCurrentCell = True + Me.dv.A_EnterToTab = True + 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.FromArgb(CType(CType(245, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(246, Byte), Integer)) + 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, 26) + Me.dv.Margin = New System.Windows.Forms.Padding(3, 5, 3, 5) + 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(212, 497) + 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.Resizable = System.Windows.Forms.DataGridViewTriState.[False] + ' + 'lb_grpname + ' + Me.lb_grpname.BackColor = System.Drawing.Color.LightSkyBlue + Me.lb_grpname.Dock = System.Windows.Forms.DockStyle.Top + Me.lb_grpname.ForeColor = System.Drawing.SystemColors.HotTrack + Me.lb_grpname.Location = New System.Drawing.Point(0, 0) + Me.lb_grpname.Name = "lb_grpname" + Me.lb_grpname.Size = New System.Drawing.Size(212, 26) + Me.lb_grpname.TabIndex = 97 + Me.lb_grpname.Text = "그룹 :" + Me.lb_grpname.TextAlign = System.Drawing.ContentAlignment.MiddleCenter + ' + '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("나눔고딕 ExtraBold", 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.bn.Location = New System.Drawing.Point(0, 523) + 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(212, 40) + Me.bn.TabIndex = 1 + Me.bn.Text = "BindingNavigator1" + ' + 'lbl_count + ' + Me.lbl_count.Name = "lbl_count" + Me.lbl_count.Size = New System.Drawing.Size(27, 37) + 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, 37) + 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, 37) + 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, 37) + 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, 40) + ' + 'lbl_pos + ' + Me.lbl_pos.Name = "lbl_pos" + Me.lbl_pos.Size = New System.Drawing.Size(14, 37) + Me.lbl_pos.Text = "0" + ' + 'Label23 + ' + Me.Label23.AutoSize = True + Me.Label23.BackColor = System.Drawing.Color.FromArgb(CType(CType(116, Byte), Integer), CType(CType(158, Byte), Integer), CType(CType(209, Byte), Integer)) + Me.Label23.ForeColor = System.Drawing.Color.White + Me.Label23.Location = New System.Drawing.Point(24, 35) + Me.Label23.Name = "Label23" + Me.Label23.Size = New System.Drawing.Size(51, 14) + Me.Label23.TabIndex = 172 + Me.Label23.Text = "난방분배" + ' + 'PictureBox4 + ' + Me.PictureBox4.BackgroundImage = CType(resources.GetObject("PictureBox4.BackgroundImage"), System.Drawing.Image) + Me.PictureBox4.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch + Me.PictureBox4.Location = New System.Drawing.Point(11, 24) + Me.PictureBox4.Name = "PictureBox4" + Me.PictureBox4.Size = New System.Drawing.Size(134, 30) + Me.PictureBox4.TabIndex = 171 + Me.PictureBox4.TabStop = False + ' + '난방분배표준치GroupBox + ' + Me.난방분배표준치GroupBox.Controls.Add(Me.건물길이xMyTb) + Me.난방분배표준치GroupBox.Controls.Add(Me.층고MyTb) + Me.난방분배표준치GroupBox.Controls.Add(Me.Label2) + Me.난방분배표준치GroupBox.Controls.Add(Me.cmb_지관연결관장소) + Me.난방분배표준치GroupBox.Controls.Add(Label6) + Me.난방분배표준치GroupBox.Controls.Add(Me.층수MyTb) + Me.난방분배표준치GroupBox.Controls.Add(Label8) + Me.난방분배표준치GroupBox.Controls.Add(Label9) + Me.난방분배표준치GroupBox.Controls.Add(Me.건물길이yMyTb) + Me.난방분배표준치GroupBox.Controls.Add(Label10) + Me.난방분배표준치GroupBox.Controls.Add(Label11) + Me.난방분배표준치GroupBox.Controls.Add(Me.난방분배표준치PictureBox) + Me.난방분배표준치GroupBox.Location = New System.Drawing.Point(335, 139) + Me.난방분배표준치GroupBox.Name = "난방분배표준치GroupBox" + Me.난방분배표준치GroupBox.Size = New System.Drawing.Size(215, 171) + Me.난방분배표준치GroupBox.TabIndex = 132 + Me.난방분배표준치GroupBox.TabStop = False + ' + '건물길이xMyTb + ' + Me.건물길이xMyTb.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bs, "건물길이x", True)) + Me.건물길이xMyTb.Location = New System.Drawing.Point(128, 39) + Me.건물길이xMyTb.Name = "건물길이xMyTb" + Me.건물길이xMyTb.NectControl = Nothing + Me.건물길이xMyTb.Size = New System.Drawing.Size(80, 21) + Me.건물길이xMyTb.TabIndex = 0 + Me.건물길이xMyTb.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + ' + '층고MyTb + ' + Me.층고MyTb.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bs, "층고", True)) + Me.층고MyTb.Location = New System.Drawing.Point(128, 110) + Me.층고MyTb.Name = "층고MyTb" + Me.층고MyTb.NectControl = Nothing + Me.층고MyTb.Size = New System.Drawing.Size(80, 21) + Me.층고MyTb.TabIndex = 3 + Me.층고MyTb.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + ' + 'Label2 + ' + Me.Label2.AutoSize = True + Me.Label2.BackColor = System.Drawing.Color.FromArgb(CType(CType(243, Byte), Integer), CType(CType(244, Byte), Integer), CType(CType(246, Byte), Integer)) + Me.Label2.Font = New System.Drawing.Font("돋움체", 9.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label2.ForeColor = System.Drawing.Color.Black + Me.Label2.Location = New System.Drawing.Point(10, 15) + Me.Label2.Name = "Label2" + Me.Label2.Size = New System.Drawing.Size(110, 12) + Me.Label2.TabIndex = 122 + Me.Label2.Text = "[표준치경계조건]" + ' + 'cmb_지관연결관장소 + ' + Me.cmb_지관연결관장소.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList + Me.cmb_지관연결관장소.FormattingEnabled = True + Me.cmb_지관연결관장소.Location = New System.Drawing.Point(128, 134) + Me.cmb_지관연결관장소.Name = "cmb_지관연결관장소" + Me.cmb_지관연결관장소.NectControl = Nothing + Me.cmb_지관연결관장소.Size = New System.Drawing.Size(80, 22) + Me.cmb_지관연결관장소.TabIndex = 4 + ' + '층수MyTb + ' + Me.층수MyTb.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bs, "층수", True)) + Me.층수MyTb.Location = New System.Drawing.Point(128, 87) + Me.층수MyTb.Name = "층수MyTb" + Me.층수MyTb.NectControl = Nothing + Me.층수MyTb.Size = New System.Drawing.Size(80, 21) + Me.층수MyTb.TabIndex = 2 + Me.층수MyTb.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + ' + '건물길이yMyTb + ' + Me.건물길이yMyTb.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bs, "건물길이y", True)) + Me.건물길이yMyTb.Location = New System.Drawing.Point(128, 63) + Me.건물길이yMyTb.Name = "건물길이yMyTb" + Me.건물길이yMyTb.NectControl = Nothing + Me.건물길이yMyTb.Size = New System.Drawing.Size(80, 21) + Me.건물길이yMyTb.TabIndex = 1 + Me.건물길이yMyTb.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + ' + '난방분배표준치PictureBox + ' + Me.난방분배표준치PictureBox.BackColor = System.Drawing.Color.FromArgb(CType(CType(243, Byte), Integer), CType(CType(244, Byte), Integer), CType(CType(246, Byte), Integer)) + Me.난방분배표준치PictureBox.Location = New System.Drawing.Point(2, 9) + Me.난방분배표준치PictureBox.Name = "난방분배표준치PictureBox" + Me.난방분배표준치PictureBox.Size = New System.Drawing.Size(210, 158) + Me.난방분배표준치PictureBox.TabIndex = 25 + Me.난방분배표준치PictureBox.TabStop = False + ' + '열분배GroupBox + ' + Me.열분배GroupBox.Controls.Add(Me.열관류율MyTb) + Me.열분배GroupBox.Controls.Add(Me.배관구간길이MyTb) + Me.열분배GroupBox.Controls.Add(Me.Label222) + Me.열분배GroupBox.Controls.Add(Me.cmb_배관설치장소) + Me.열분배GroupBox.Controls.Add(Label15) + Me.열분배GroupBox.Controls.Add(Label16) + Me.열분배GroupBox.Controls.Add(Label17) + Me.열분배GroupBox.Controls.Add(Label18) + Me.열분배GroupBox.Controls.Add(Me.cmb_배관구간방식) + Me.열분배GroupBox.Controls.Add(Me.열분배PictureBox) + Me.열분배GroupBox.Location = New System.Drawing.Point(15, 140) + Me.열분배GroupBox.Name = "열분배GroupBox" + Me.열분배GroupBox.Size = New System.Drawing.Size(322, 170) + Me.열분배GroupBox.TabIndex = 131 + Me.열분배GroupBox.TabStop = False + ' + '열관류율MyTb + ' + Me.열관류율MyTb.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bs, "열관류율", True)) + Me.열관류율MyTb.Location = New System.Drawing.Point(193, 99) + Me.열관류율MyTb.Name = "열관류율MyTb" + Me.열관류율MyTb.NectControl = Nothing + Me.열관류율MyTb.Size = New System.Drawing.Size(112, 21) + Me.열관류율MyTb.TabIndex = 2 + Me.열관류율MyTb.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + ' + '배관구간길이MyTb + ' + Me.배관구간길이MyTb.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bs, "배관구간길이", True)) + Me.배관구간길이MyTb.Location = New System.Drawing.Point(193, 71) + Me.배관구간길이MyTb.Name = "배관구간길이MyTb" + Me.배관구간길이MyTb.NectControl = Nothing + Me.배관구간길이MyTb.Size = New System.Drawing.Size(112, 21) + Me.배관구간길이MyTb.TabIndex = 1 + Me.배관구간길이MyTb.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + ' + 'Label222 + ' + Me.Label222.AutoSize = True + Me.Label222.BackColor = System.Drawing.Color.FromArgb(CType(CType(243, Byte), Integer), CType(CType(244, Byte), Integer), CType(CType(246, Byte), Integer)) + Me.Label222.Font = New System.Drawing.Font("돋움체", 9.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label222.ForeColor = System.Drawing.Color.Black + Me.Label222.Location = New System.Drawing.Point(10, 15) + Me.Label222.Name = "Label222" + Me.Label222.Size = New System.Drawing.Size(198, 12) + Me.Label222.TabIndex = 0 + Me.Label222.Text = "[입력 - 열분배 (난방과 급탕)]" + ' + 'cmb_배관설치장소 + ' + Me.cmb_배관설치장소.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList + Me.cmb_배관설치장소.FormattingEnabled = True + Me.cmb_배관설치장소.Location = New System.Drawing.Point(193, 126) + Me.cmb_배관설치장소.Name = "cmb_배관설치장소" + Me.cmb_배관설치장소.NectControl = Nothing + Me.cmb_배관설치장소.Size = New System.Drawing.Size(112, 22) + Me.cmb_배관설치장소.TabIndex = 3 + ' + 'cmb_배관구간방식 + ' + Me.cmb_배관구간방식.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList + Me.cmb_배관구간방식.FormattingEnabled = True + Me.cmb_배관구간방식.Location = New System.Drawing.Point(193, 41) + Me.cmb_배관구간방식.Name = "cmb_배관구간방식" + Me.cmb_배관구간방식.NectControl = Nothing + Me.cmb_배관구간방식.Size = New System.Drawing.Size(112, 22) + Me.cmb_배관구간방식.TabIndex = 0 + ' + '열분배PictureBox + ' + Me.열분배PictureBox.BackColor = System.Drawing.Color.FromArgb(CType(CType(243, Byte), Integer), CType(CType(244, Byte), Integer), CType(CType(246, Byte), Integer)) + Me.열분배PictureBox.Location = New System.Drawing.Point(2, 9) + Me.열분배PictureBox.Name = "열분배PictureBox" + Me.열분배PictureBox.Size = New System.Drawing.Size(317, 157) + Me.열분배PictureBox.TabIndex = 25 + Me.열분배PictureBox.TabStop = False + ' + 'GroupBox1 + ' + Me.GroupBox1.Controls.Add(Me.cmb_배관망유형) + Me.GroupBox1.Controls.Add(Me.Label1) + Me.GroupBox1.Controls.Add(Me.cmb_표준치적용) + Me.GroupBox1.Controls.Add(Me.Label19) + Me.GroupBox1.Controls.Add(Me.Label225) + Me.GroupBox1.Controls.Add(Me.cmb_생산기기구분) + Me.GroupBox1.Controls.Add(Me.PictureBox1) + Me.GroupBox1.Location = New System.Drawing.Point(15, 52) + Me.GroupBox1.Name = "GroupBox1" + Me.GroupBox1.Size = New System.Drawing.Size(534, 70) + Me.GroupBox1.TabIndex = 130 + Me.GroupBox1.TabStop = False + ' + '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(412, 14) + Me.cmb_배관망유형.Name = "cmb_배관망유형" + Me.cmb_배관망유형.NectControl = Nothing + Me.cmb_배관망유형.Size = New System.Drawing.Size(100, 22) + Me.cmb_배관망유형.TabIndex = 120 + ' + 'cmb_표준치적용 + ' + Me.cmb_표준치적용.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList + Me.cmb_표준치적용.FormattingEnabled = True + Me.cmb_표준치적용.Location = New System.Drawing.Point(205, 39) + Me.cmb_표준치적용.Name = "cmb_표준치적용" + Me.cmb_표준치적용.NectControl = Nothing + Me.cmb_표준치적용.Size = New System.Drawing.Size(100, 22) + Me.cmb_표준치적용.TabIndex = 1 + ' + 'cmb_생산기기구분 + ' + Me.cmb_생산기기구분.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList + Me.cmb_생산기기구분.FormattingEnabled = True + Me.cmb_생산기기구분.Location = New System.Drawing.Point(205, 14) + Me.cmb_생산기기구분.Name = "cmb_생산기기구분" + Me.cmb_생산기기구분.NectControl = Nothing + Me.cmb_생산기기구분.Size = New System.Drawing.Size(100, 22) + Me.cmb_생산기기구분.TabIndex = 0 + ' + 'PictureBox1 + ' + 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, 8) + Me.PictureBox1.Name = "PictureBox1" + Me.PictureBox1.Size = New System.Drawing.Size(531, 59) + Me.PictureBox1.TabIndex = 122 + Me.PictureBox1.TabStop = False + ' + 'Frm_nBunbae + ' + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.None + Me.ClientSize = New System.Drawing.Size(795, 565) + Me.ControlBox = False + Me.Controls.Add(Me.SplitContainer1) + Me.Font = New System.Drawing.Font("나눔고딕 ExtraBold", 8.999999!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.KeyPreview = True + Me.Name = "Frm_nBunbae" + Me.ShowInTaskbar = False + Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen + Me.Text = "난방분배시스템" + CType(Me.bs, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.DS, System.ComponentModel.ISupportInitialize).EndInit() + Me.SplitContainer1.Panel1.ResumeLayout(False) + Me.SplitContainer1.Panel2.ResumeLayout(False) + Me.SplitContainer1.Panel2.PerformLayout() + Me.SplitContainer1.ResumeLayout(False) + CType(Me.dv, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.bn, System.ComponentModel.ISupportInitialize).EndInit() + Me.bn.ResumeLayout(False) + Me.bn.PerformLayout() + CType(Me.PictureBox4, System.ComponentModel.ISupportInitialize).EndInit() + Me.난방분배표준치GroupBox.ResumeLayout(False) + Me.난방분배표준치GroupBox.PerformLayout() + CType(Me.난방분배표준치PictureBox, System.ComponentModel.ISupportInitialize).EndInit() + Me.열분배GroupBox.ResumeLayout(False) + Me.열분배GroupBox.PerformLayout() + CType(Me.열분배PictureBox, System.ComponentModel.ISupportInitialize).EndInit() + Me.GroupBox1.ResumeLayout(False) + Me.GroupBox1.PerformLayout() + CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).EndInit() + Me.ResumeLayout(False) + + End Sub + Public WithEvents DS As Eco2Ar.DS + Friend WithEvents bs As System.Windows.Forms.BindingSource + Friend WithEvents cmb_생산기기구분 As Eco2Ar.MyCmb + Friend WithEvents Label225 As System.Windows.Forms.Label + Friend WithEvents cmb_표준치적용 As Eco2Ar.MyCmb + Friend WithEvents Label19 As System.Windows.Forms.Label + Friend WithEvents 건물길이xMyTb As Eco2Ar.MyTb + Friend WithEvents 층고MyTb As Eco2Ar.MyTb + Friend WithEvents cmb_지관연결관장소 As Eco2Ar.MyCmb + Friend WithEvents 층수MyTb As Eco2Ar.MyTb + Friend WithEvents 건물길이yMyTb As Eco2Ar.MyTb + Friend WithEvents cmb_배관망유형 As Eco2Ar.MyCmb + Friend WithEvents Label1 As System.Windows.Forms.Label + Friend WithEvents SplitContainer1 As System.Windows.Forms.SplitContainer + Friend WithEvents bn As System.Windows.Forms.BindingNavigator + Friend WithEvents bt_add As System.Windows.Forms.ToolStripButton + Friend WithEvents bt_Del As System.Windows.Forms.ToolStripButton + Friend WithEvents bt_cancel As System.Windows.Forms.ToolStripButton + Friend WithEvents ToolStripSeparator1 As System.Windows.Forms.ToolStripSeparator + Friend WithEvents dv As CEnergy.arindv + Friend WithEvents Label2 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 난방분배표준치GroupBox As System.Windows.Forms.GroupBox + Friend WithEvents GroupBox1 As System.Windows.Forms.GroupBox + Friend WithEvents DataGridViewTextBoxColumn1 As System.Windows.Forms.DataGridViewTextBoxColumn + Friend WithEvents Label23 As System.Windows.Forms.Label + Friend WithEvents PictureBox4 As System.Windows.Forms.PictureBox + Friend WithEvents 난방분배표준치PictureBox As System.Windows.Forms.PictureBox + Friend WithEvents PictureBox1 As System.Windows.Forms.PictureBox + Friend WithEvents 열분배GroupBox As System.Windows.Forms.GroupBox + Friend WithEvents 열관류율MyTb As Eco2Ar.MyTb + Friend WithEvents 배관구간길이MyTb As Eco2Ar.MyTb + Friend WithEvents Label222 As System.Windows.Forms.Label + Friend WithEvents cmb_배관설치장소 As Eco2Ar.MyCmb + Friend WithEvents cmb_배관구간방식 As Eco2Ar.MyCmb + Friend WithEvents 열분배PictureBox As System.Windows.Forms.PictureBox + Friend WithEvents lb_grpname As System.Windows.Forms.Label +End Class diff --git a/ArinWarev1/Forms/v20091231/Frm_nBunbae.resx b/ArinWarev1/Forms/v20091231/Frm_nBunbae.resx new file mode 100644 index 0000000..d7fc587 --- /dev/null +++ b/ArinWarev1/Forms/v20091231/Frm_nBunbae.resx @@ -0,0 +1,254 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + 222, 17 + + + 286, 17 + + + 353, 17 + + + + + /9j/4AAQSkZJRgABAgEASABIAAD/7gAOQWRvYmUAZAAAAAAB/+ED5kV4aWYAAE1NACoAAAAIAAcBEgAD + AAAAAQABAAABGgAFAAAAAQAAAGIBGwAFAAAAAQAAAGoBKAADAAAAAQACAAABMQACAAAAHAAAAHIBMgAC + AAAAFAAAAI6HaQAEAAAAAQAAAKIAAADCAEgAAAABAAAASAAAAAEAAEFkb2JlIFBob3Rvc2hvcCBDUzMg + V2luZG93cwAyMDEwOjA0OjE1IDIwOjMyOjA0AAACoAIABAAAAAEAAAA8oAMABAAAAAEAAAAMAAAAAAAA + AAYBAwADAAAAAQAGAAABGgAFAAAAAQAAARABGwAFAAAAAQAAARgBKAADAAAAAQACAAACAQAEAAAAAQAA + ASACAgAEAAAAAQAAAr4AAAAAAAAASAAAAAEAAABIAAAAAf/Y/+AAEEpGSUYAAQIAAEgASAAA/+0ADEFk + b2JlX0NNAAH/7gAOQWRvYmUAZIAAAAAB/9sAhAAMCAgICQgMCQkMEQsKCxEVDwwMDxUYExMVExMYEQwM + DAwMDBEMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMAQ0LCw0ODRAODhAUDg4OFBQODg4OFBEMDAwM + DBERDAwMDAwMEQwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAz/wAARCAAMADwDASIAAhEBAxEB/90A + BAAE/8QBPwAAAQUBAQEBAQEAAAAAAAAAAwABAgQFBgcICQoLAQABBQEBAQEBAQAAAAAAAAABAAIDBAUG + BwgJCgsQAAEEAQMCBAIFBwYIBQMMMwEAAhEDBCESMQVBUWETInGBMgYUkaGxQiMkFVLBYjM0coLRQwcl + klPw4fFjczUWorKDJkSTVGRFwqN0NhfSVeJl8rOEw9N14/NGJ5SkhbSVxNTk9KW1xdXl9VZmdoaWprbG + 1ub2N0dXZ3eHl6e3x9fn9xEAAgIBAgQEAwQFBgcHBgU1AQACEQMhMRIEQVFhcSITBTKBkRShsUIjwVLR + 8DMkYuFygpJDUxVjczTxJQYWorKDByY1wtJEk1SjF2RFVTZ0ZeLys4TD03Xj80aUpIW0lcTU5PSltcXV + 5fVWZnaGlqa2xtbm9ic3R1dnd4eXp7fH/9oADAMBAAIRAxEAPwDd/amR/pH/AOcf70v2pkf6R/8AnH+9 + UUlofq/Bpevxb37UyP8ASP8A84/3pftTI/0j/wDOP96opJfq/BXr8W9+1Mj/AEj/APOP96X7UyP9I/8A + zj/eqKSX6vwV6/F3ujdbuGS2i5xfU8HVxktIG76XyW99vo27p0XGdO2/ba930dZj+q5dX+qfZPL8VAeD + 341VVr/eZhx+0bu708n/2f/iDFhJQ0NfUFJPRklMRQABAQAADEhMaW5vAhAAAG1udHJSR0IgWFlaIAfO + AAIACQAGADEAAGFjc3BNU0ZUAAAAAElFQyBzUkdCAAAAAAAAAAAAAAAAAAD21gABAAAAANMtSFAgIAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAEWNwcnQAAAFQAAAAM2Rl + c2MAAAGEAAAAbHd0cHQAAAHwAAAAFGJrcHQAAAIEAAAAFHJYWVoAAAIYAAAAFGdYWVoAAAIsAAAAFGJY + WVoAAAJAAAAAFGRtbmQAAAJUAAAAcGRtZGQAAALEAAAAiHZ1ZWQAAANMAAAAhnZpZXcAAAPUAAAAJGx1 + bWkAAAP4AAAAFG1lYXMAAAQMAAAAJHRlY2gAAAQwAAAADHJUUkMAAAQ8AAAIDGdUUkMAAAQ8AAAIDGJU + UkMAAAQ8AAAIDHRleHQAAAAAQ29weXJpZ2h0IChjKSAxOTk4IEhld2xldHQtUGFja2FyZCBDb21wYW55 + AABkZXNjAAAAAAAAABJzUkdCIElFQzYxOTY2LTIuMQAAAAAAAAAAAAAAEnNSR0IgSUVDNjE5NjYtMi4x + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABYWVogAAAAAAAA + 81EAAQAAAAEWzFhZWiAAAAAAAAAAAAAAAAAAAAAAWFlaIAAAAAAAAG+iAAA49QAAA5BYWVogAAAAAAAA + YpkAALeFAAAY2lhZWiAAAAAAAAAkoAAAD4QAALbPZGVzYwAAAAAAAAAWSUVDIGh0dHA6Ly93d3cuaWVj + LmNoAAAAAAAAAAAAAAAWSUVDIGh0dHA6Ly93d3cuaWVjLmNoAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAGRlc2MAAAAAAAAALklFQyA2MTk2Ni0yLjEgRGVmYXVsdCBSR0Ig + Y29sb3VyIHNwYWNlIC0gc1JHQgAAAAAAAAAAAAAALklFQyA2MTk2Ni0yLjEgRGVmYXVsdCBSR0IgY29s + b3VyIHNwYWNlIC0gc1JHQgAAAAAAAAAAAAAAAAAAAAAAAAAAAABkZXNjAAAAAAAAACxSZWZlcmVuY2Ug + Vmlld2luZyBDb25kaXRpb24gaW4gSUVDNjE5NjYtMi4xAAAAAAAAAAAAAAAsUmVmZXJlbmNlIFZpZXdp + bmcgQ29uZGl0aW9uIGluIElFQzYxOTY2LTIuMQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAdmlldwAA + AAAAE6T+ABRfLgAQzxQAA+3MAAQTCwADXJ4AAAABWFlaIAAAAAAATAlWAFAAAABXH+dtZWFzAAAAAAAA + AAEAAAAAAAAAAAAAAAAAAAAAAAACjwAAAAJzaWcgAAAAAENSVCBjdXJ2AAAAAAAABAAAAAAFAAoADwAU + ABkAHgAjACgALQAyADcAOwBAAEUASgBPAFQAWQBeAGMAaABtAHIAdwB8AIEAhgCLAJAAlQCaAJ8ApACp + AK4AsgC3ALwAwQDGAMsA0ADVANsA4ADlAOsA8AD2APsBAQEHAQ0BEwEZAR8BJQErATIBOAE+AUUBTAFS + AVkBYAFnAW4BdQF8AYMBiwGSAZoBoQGpAbEBuQHBAckB0QHZAeEB6QHyAfoCAwIMAhQCHQImAi8COAJB + AksCVAJdAmcCcQJ6AoQCjgKYAqICrAK2AsECywLVAuAC6wL1AwADCwMWAyEDLQM4A0MDTwNaA2YDcgN+ + A4oDlgOiA64DugPHA9MD4APsA/kEBgQTBCAELQQ7BEgEVQRjBHEEfgSMBJoEqAS2BMQE0wThBPAE/gUN + BRwFKwU6BUkFWAVnBXcFhgWWBaYFtQXFBdUF5QX2BgYGFgYnBjcGSAZZBmoGewaMBp0GrwbABtEG4wb1 + BwcHGQcrBz0HTwdhB3QHhgeZB6wHvwfSB+UH+AgLCB8IMghGCFoIbgiCCJYIqgi+CNII5wj7CRAJJQk6 + CU8JZAl5CY8JpAm6Cc8J5Qn7ChEKJwo9ClQKagqBCpgKrgrFCtwK8wsLCyILOQtRC2kLgAuYC7ALyAvh + C/kMEgwqDEMMXAx1DI4MpwzADNkM8w0NDSYNQA1aDXQNjg2pDcMN3g34DhMOLg5JDmQOfw6bDrYO0g7u + DwkPJQ9BD14Peg+WD7MPzw/sEAkQJhBDEGEQfhCbELkQ1xD1ERMRMRFPEW0RjBGqEckR6BIHEiYSRRJk + EoQSoxLDEuMTAxMjE0MTYxODE6QTxRPlFAYUJxRJFGoUixStFM4U8BUSFTQVVhV4FZsVvRXgFgMWJhZJ + FmwWjxayFtYW+hcdF0EXZReJF64X0hf3GBsYQBhlGIoYrxjVGPoZIBlFGWsZkRm3Gd0aBBoqGlEadxqe + GsUa7BsUGzsbYxuKG7Ib2hwCHCocUhx7HKMczBz1HR4dRx1wHZkdwx3sHhYeQB5qHpQevh7pHxMfPh9p + H5Qfvx/qIBUgQSBsIJggxCDwIRwhSCF1IaEhziH7IiciVSKCIq8i3SMKIzgjZiOUI8Ij8CQfJE0kfCSr + JNolCSU4JWgllyXHJfcmJyZXJocmtyboJxgnSSd6J6sn3CgNKD8ocSiiKNQpBik4KWspnSnQKgIqNSpo + KpsqzysCKzYraSudK9EsBSw5LG4soizXLQwtQS12Last4S4WLkwugi63Lu4vJC9aL5Evxy/+MDUwbDCk + MNsxEjFKMYIxujHyMioyYzKbMtQzDTNGM38zuDPxNCs0ZTSeNNg1EzVNNYc1wjX9Njc2cjauNuk3JDdg + N5w31zgUOFA4jDjIOQU5Qjl/Obw5+To2OnQ6sjrvOy07azuqO+g8JzxlPKQ84z0iPWE9oT3gPiA+YD6g + PuA/IT9hP6I/4kAjQGRApkDnQSlBakGsQe5CMEJyQrVC90M6Q31DwEQDREdEikTORRJFVUWaRd5GIkZn + RqtG8Ec1R3tHwEgFSEtIkUjXSR1JY0mpSfBKN0p9SsRLDEtTS5pL4kwqTHJMuk0CTUpNk03cTiVObk63 + TwBPSU+TT91QJ1BxULtRBlFQUZtR5lIxUnxSx1MTU19TqlP2VEJUj1TbVShVdVXCVg9WXFapVvdXRFeS + V+BYL1h9WMtZGllpWbhaB1pWWqZa9VtFW5Vb5Vw1XIZc1l0nXXhdyV4aXmxevV8PX2Ffs2AFYFdgqmD8 + YU9homH1YklinGLwY0Njl2PrZEBklGTpZT1lkmXnZj1mkmboZz1nk2fpaD9olmjsaUNpmmnxakhqn2r3 + a09rp2v/bFdsr20IbWBtuW4SbmtuxG8eb3hv0XArcIZw4HE6cZVx8HJLcqZzAXNdc7h0FHRwdMx1KHWF + deF2Pnabdvh3VnezeBF4bnjMeSp5iXnnekZ6pXsEe2N7wnwhfIF84X1BfaF+AX5ifsJ/I3+Ef+WAR4Co + gQqBa4HNgjCCkoL0g1eDuoQdhICE44VHhauGDoZyhteHO4efiASIaYjOiTOJmYn+imSKyoswi5aL/Ixj + jMqNMY2Yjf+OZo7OjzaPnpAGkG6Q1pE/kaiSEZJ6kuOTTZO2lCCUipT0lV+VyZY0lp+XCpd1l+CYTJi4 + mSSZkJn8mmia1ZtCm6+cHJyJnPedZJ3SnkCerp8dn4uf+qBpoNihR6G2oiailqMGo3aj5qRWpMelOKWp + phqmi6b9p26n4KhSqMSpN6mpqhyqj6sCq3Wr6axcrNCtRK24ri2uoa8Wr4uwALB1sOqxYLHWskuywrM4 + s660JbSctRO1irYBtnm28Ldot+C4WbjRuUq5wro7urW7LrunvCG8m70VvY++Cr6Evv+/er/1wHDA7MFn + wePCX8Lbw1jD1MRRxM7FS8XIxkbGw8dBx7/IPci8yTrJuco4yrfLNsu2zDXMtc01zbXONs62zzfPuNA5 + 0LrRPNG+0j/SwdNE08bUSdTL1U7V0dZV1tjXXNfg2GTY6Nls2fHadtr724DcBdyK3RDdlt4c3qLfKd+v + 4DbgveFE4cziU+Lb42Pj6+Rz5PzlhOYN5pbnH+ep6DLovOlG6dDqW+rl63Dr++yG7RHtnO4o7rTvQO/M + 8Fjw5fFy8f/yjPMZ86f0NPTC9VD13vZt9vv3ivgZ+Kj5OPnH+lf65/t3/Af8mP0p/br+S/7c/23////b + AEMAAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQICAgICAgICAgICAwMD + AwMDAwMDA//bAEMBAQEBAQEBAQEBAQICAQICAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMD + AwMDAwMDAwMDAwMDAwMDA//AABEIAAwAPAMBEQACEQEDEQH/xAAfAAABBQEBAQEBAQAAAAAAAAAAAQID + BAUGBwgJCgv/xAC1EAACAQMDAgQDBQUEBAAAAX0BAgMABBEFEiExQQYTUWEHInEUMoGRoQgjQrHBFVLR + 8CQzYnKCCQoWFxgZGiUmJygpKjQ1Njc4OTpDREVGR0hJSlNUVVZXWFlaY2RlZmdoaWpzdHV2d3h5eoOE + hYaHiImKkpOUlZaXmJmaoqOkpaanqKmqsrO0tba3uLm6wsPExcbHyMnK0tPU1dbX2Nna4eLj5OXm5+jp + 6vHy8/T19vf4+fr/xAAfAQADAQEBAQEBAQEBAAAAAAAAAQIDBAUGBwgJCgv/xAC1EQACAQIEBAMEBwUE + BAABAncAAQIDEQQFITEGEkFRB2FxEyIygQgUQpGhscEJIzNS8BVictEKFiQ04SXxFxgZGiYnKCkqNTY3 + ODk6Q0RFRkdISUpTVFVWV1hZWmNkZWZnaGlqc3R1dnd4eXqCg4SFhoeIiYqSk5SVlpeYmZqio6Slpqeo + qaqys7S1tre4ubrCw8TFxsfIycrS09TV1tfY2dri4+Tl5ufo6ery8/T19vf4+fr/2gAMAwEAAhEDEQA/ + AP1ZH7UPxEAA/wCEw8bnj/ob9f8A/k+v7U/1Nyj/AKF+G/8ABUP/AJE/llcSZlZf7dX/APBk/wDMX/hq + H4if9Df43/8ACv1//wCT6P8AU3Kf+hfhv/BUP/kQ/wBZcy/6Dq//AIMn/mH/AA1D8RP+hv8AG/8A4V+v + /wDyfR/qblP/AEL8N/4Kh/8AIh/rLmX/AEHV/wDwZP8AzD/hqH4if9Df43/8K/X/AP5Po/1Nyn/oX4b/ + AMFQ/wDkQ/1lzL/oOr/+DJ/5h/w1D8RP+hv8b/8AhX6//wDJ9H+puU/9C/Df+Cof/Ih/rLmX/QdX/wDB + k/8AMT/hqH4if9Df43/8K/X/AP5Po/1Nyn/oX4b/AMFQ/wDkQ/1kzL/oOr/+DJ/5n2R+xz+234zt/iRp + nw+8a6vqXiDwZ4gs9baObXr+bUr/AMPajpmkX2tQ3FlqV2Zb57K7XT2t3tXkaJWkV4whVxJ+beJfAuU4 + Th/FZ/hKEKOMw8qd+SKjGcZzjTs4q0bpyUlJK7s073VvuuBOLMxxGcYfJ8TWlVw1ZTtzu7hKMJTupPWz + UWnFu2qatrf9aP8AhfXgv+zv7U89/sfm+V5207N+M43fSv50P2w/kwr/AEFP42CgAoAKACgAoA9s/Z0/ + s7/hcng3+1vP/s7Ov/avs2PP2f8ACL63t2buP9ZjP+zmvz7xU/5IPPf+4H/qRRPsvD//AJK7KP8AuL/6 + ZqH7/wD/ABaT/hUfb7Ht/wBj7V9p8v8A9Cr+Oz+lz//Z + + + + 46 + + \ No newline at end of file diff --git a/ArinWarev1/Forms/v20091231/Frm_nBunbae.vb b/ArinWarev1/Forms/v20091231/Frm_nBunbae.vb new file mode 100644 index 0000000..7549777 --- /dev/null +++ b/ArinWarev1/Forms/v20091231/Frm_nBunbae.vb @@ -0,0 +1,494 @@ +Public Class Frm_nBunbae + + Dim Init As Boolean = False + Dim SrcDrv As DataRowView +#Region "data Base 변경여부및 적용방법" + + '''변경된내용을적용한다. + Public Overrides Function AcceptChanged() As Boolean + bs.EndEdit() + Dim BaseDS As DataSet = CType(bs.DataSource, DataSet) + Dim BaseDT As DataTable = BaseDS.Tables(bs.DataMember) + BaseDT.AcceptChanges() + Return True + End Function + + '''변경된내용이있다면 취소한다. + Public Overrides Function RejectChanged() As Boolean + Dim BaseDS As DataSet = CType(bs.DataSource, DataSet) + Dim BaseDT As DataTable = BaseDS.Tables(bs.DataMember) + BaseDT.RejectChanges() + Return True + End Function + + '''데이터에변형이있었는가? + Public Overrides Function HasChanged() As Boolean + bs.EndEdit() + Dim BaseDS As DataSet = CType(bs.DataSource, DataSet) + Dim BaseDT As DataTable = BaseDS.Tables(bs.DataMember) + Dim ChangeDT As DataTable = BaseDT.GetChanges + If Not ChangeDT Is Nothing Then Return True + Return False + End Function + + '''기본데이터테이블을 반환합니다. + Public Function DT() As DataTable + Dim BaseDS As DataSet = CType(bs.DataSource, DataSet) + Return BaseDS.Tables(bs.DataMember) + End Function + + +#End Region + + + Private Sub MdiMain_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load + 'MdiMain.Toggle_Menu_Color(MdiMain.E_MenuIdx.난방분배시스템) + ' CEnergy.ARINCLASS.SaveLoad_FrmSetting(Me) + '//프로필 관련 + + '//공유데이터셋에 연결한다. + Me.bs.DataSource = DSET + '//냉방분배 + AddHandler DSET.tbl_nbunbae.TableNewRow, AddressOf AddNewDataRow_bunbae + + '//모든컨트롤의 cTrl_enter 를 추가합니다 + BindProperty(CType(Me.SplitContainer1.Panel2.Controls, Control.ControlCollection)) + + Binding_Zone() + + Me.bs.Filter = "code <> '0' and 배관망유형 = '" + Me.Parameter + "'" + Me.lb_grpname.Text = Me.Parameter + + Me.Init = True + + Try + Me.bs.Position = CEnergy.ARINCLASS.Read_LastPos_Frm(Me) + Catch ex As Exception + Me.bs.MoveFirst() + End Try + + bs_CurrentChanged(sender, e) + Validate_Control() + End Sub + +#Region "Control_Enter" + Private Sub BindProperty(ByVal Ctl As Control.ControlCollection) + For Each C As Control In Ctl + If C.Controls.Count > 1 Then + BindProperty(C.Controls) + Else + If C.GetType.ToString.ToUpper.IndexOf("MYTB") <> -1 Then + AddHandler CType(C, MyTb).KeyDown, AddressOf TextBOx_KeyDown + ElseIf C.GetType.ToString.ToUpper.IndexOf("MYCMB") <> -1 Then + AddHandler CType(C, MyCmb).KeyDown, AddressOf Cmd_KeyDown + End If + End If + Next + End Sub + + + Private Sub TextBOx_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) + If e.KeyCode = Keys.Enter AndAlso e.Control Then + Try + Dim Field As String = (CType(sender, MyTb).DataBindings.Item("text").BindingMemberInfo.BindingField) + For Each Dr As DataRow In Dt.Select(Me.bs.Filter, "") + Dr(Field) = CType(sender, MyTb).Text + Next + Work_msg_timer("모든값이 변경되었습니다", 25) + Catch ex As Exception + + End Try + + End If + End Sub + Private Sub Cmd_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) + If e.KeyCode = Keys.Enter AndAlso e.Control Then + Try + Dim Field As String = (CType(sender, MyCmb).DataBindings.Item("selectedvalue").BindingMemberInfo.BindingField) + For Each Dr As DataRow In Dt.Select(Me.bs.Filter, "") + Dr(Field) = CType(sender, MyCmb).SelectedValue + Next + Work_msg_timer("모든값이 변경되었습니다", 25) + Catch ex As Exception + + End Try + End If + End Sub + +#End Region +#Region "냉방분배기기" + + Private Sub MdiMain_FormClosed(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosedEventArgs) Handles Me.FormClosed + CEnergy.ARINCLASS.SaveLoad_FrmSetting(Me, Me.bs.Position, True) + End Sub + + Private Sub MdiMain_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown + Select Case e.KeyCode + Case Keys.F12 + End Select + End Sub + Private Sub ToolStripButton48_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt_add.Click + If Not EndEdit(Me.bs) Then Return + Me.bs.AddNew() + INitRow(Me.Controls) + End Sub + + + Private Sub ToolStripButton49_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt_Del.Click + Dbbase.DelCrow(Me.bs, True) + End Sub + + Private Sub ToolStripButton51_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt_cancel.Click + If Not EndEdit(Me.bs) Then Return + Data_Cancel(DSET.tbl_profile, Nothing) + End Sub + + Private Function GetMaxCode(ByVal dt As DataTable) As String + Try + Dim Dr As DataRow = dt.Select("", "code desc")(0) + Return Format(CInt(Dr("code")) + 1, "0000") + Catch ex As Exception + Return "0001" + End Try + End Function + + Private Sub Binding_Zone() + + '//냉방분배시스템 + Dim bs_생산기기구분 As New BindingSource(DSET, "tbl_nanbangkiki") + bs_생산기기구분.Sort = "code" + Me.cmb_생산기기구분.DataSource = bs_생산기기구분 + cmb_생산기기구분.DisplayMember = "설명" + cmb_생산기기구분.ValueMember = "code" + Me.cmb_생산기기구분.DataBindings.Add("selectedvalue", Me.bs, "생산기기구분") + 'AddHandler cmb_생산기기구분.KeyDown, AddressOf Cmb_DeleteVal + + Dim bs_표준치적용 As New BindingSource(DSET, "tbl_common") + bs_표준치적용.Filter = "gubun='1080'" + bs_표준치적용.Sort = "code" + Me.cmb_표준치적용.DataSource = bs_표준치적용 + cmb_표준치적용.DisplayMember = "name" + cmb_표준치적용.ValueMember = "name" + Me.cmb_표준치적용.DataBindings.Add("selectedvalue", Me.bs, "표준치적용") + 'AddHandler cmb_표준치적용.KeyDown, AddressOf Cmb_DeleteVal + + Dim bs_배관망유형 As New BindingSource(DSET, "tbl_common") + bs_배관망유형.Filter = "gubun='1084'" + bs_배관망유형.Sort = "code" + Me.cmb_배관망유형.DataSource = bs_배관망유형 + cmb_배관망유형.DisplayMember = "name" + cmb_배관망유형.ValueMember = "name" + Me.cmb_배관망유형.DataBindings.Add("selectedvalue", Me.bs, "배관망유형") + 'AddHandler cmb_표준치적용.KeyDown, AddressOf Cmb_DeleteVal + + + Dim bs_배관구간방식 As New BindingSource(DSET, "tbl_common") + bs_배관구간방식.Filter = "gubun='1081'" + bs_배관구간방식.Sort = "code" + Me.cmb_배관구간방식.DataSource = bs_배관구간방식 + cmb_배관구간방식.DisplayMember = "name" + cmb_배관구간방식.ValueMember = "name" + Me.cmb_배관구간방식.DataBindings.Add("selectedvalue", Me.bs, "배관구간방식") + 'AddHandler cmb_배관구간방식.KeyDown, AddressOf Cmb_DeleteVal + + Dim bs_배관설치장소 As New BindingSource(DSET, "tbl_common") + bs_배관설치장소.Filter = "gubun='1082'" + bs_배관설치장소.Sort = "code" + Me.cmb_배관설치장소.DataSource = bs_배관설치장소 + cmb_배관설치장소.DisplayMember = "name" + cmb_배관설치장소.ValueMember = "name" + Me.cmb_배관설치장소.DataBindings.Add("selectedvalue", Me.bs, "배관설치장소") + 'AddHandler cmb_배관설치장소.KeyDown, AddressOf Cmb_DeleteVal + + Dim bs_지관연결관장소 As New BindingSource(DSET, "tbl_common") + bs_지관연결관장소.Filter = "gubun='1083'" + bs_지관연결관장소.Sort = "code" + Me.cmb_지관연결관장소.DataSource = bs_지관연결관장소 + cmb_지관연결관장소.DisplayMember = "name" + cmb_지관연결관장소.ValueMember = "name" + Me.cmb_지관연결관장소.DataBindings.Add("selectedvalue", Me.bs, "지관장소") + 'AddHandler cmb_지관연결관장소.KeyDown, AddressOf Cmb_DeleteVal + + 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 + If Me.bs.Position < Me.bs.Count Then Me.bs.Position += 1 + Else + If Me.bs.Position > 0 Then Me.bs.Position -= 1 + End If + Me.Validate() + My.Application.DoEvents() + End Sub + + Private Sub AddNewDataRow_bunbae(ByVal sender As Object, ByVal e As System.Data.DataTableNewRowEventArgs) + e.Row.Item("code") = GetMaxCode(DSET.tbl_nbunbae) + End Sub +#End Region + + Private Sub 냉동기ComboBox_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles cmb_생산기기구분.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) <> 17 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() '//한줄추가 + + Dim Cnt As Short = 0 + For i As Integer = 0 To CB.GetUpperBound(0) + Select Case i + Case 0 + CType(bs.Current, DataRowView)("설명") = CB(i).Split(CChar(vbTab))(ii).Trim + Case 0 + 2 '//사용프로필 앞에 두개를 숫자4자로변환 + If CB(i).Split(CChar(vbTab))(ii).Trim = "" Then + Me.cmb_생산기기구분.SelectedIndex = 0 + Else + Me.cmb_생산기기구분.Text = CB(i).Split(CChar(vbTab))(ii).Trim + End If + + 'Me.cmb_생산기기구분.Text = CStr(IIf( CB(i).Split(CChar(vbTab))(ii).Trim = "", "0", CB(i).Split(CChar(vbTab))(ii).Trim)) + Case 1 + 2 '//공란 + If CB(i).Split(CChar(vbTab))(ii).Trim = "" Then + Me.cmb_표준치적용.SelectedIndex = 0 + Else + Me.cmb_표준치적용.Text = CB(i).Split(CChar(vbTab))(ii).Trim + End If + Case 2 + 2 + If CB(i).Split(CChar(vbTab))(ii).Trim = "" Then + Me.cmb_배관망유형.SelectedIndex = 0 + Else + Me.cmb_배관망유형.Text = CB(i).Split(CChar(vbTab))(ii).Trim + End If + ' Me.cmb_표준치적용.Text = CStr(IIf( CB(i).Split(CChar(vbTab))(ii).Trim = "", "0", CB(i).Split(CChar(vbTab))(ii).Trim)) + Case 3 + 2 + 2 + If CB(i).Split(CChar(vbTab))(ii).Trim = "" Then + Me.cmb_배관구간방식.SelectedIndex = 0 + Else + Me.cmb_배관구간방식.Text = CB(i).Split(CChar(vbTab))(ii).Trim + End If + + 'Me.cmb_배관구간방식.Text = CStr(IIf( CB(i).Split(CChar(vbTab))(ii).Trim = "", "0", CB(i).Split(CChar(vbTab))(ii).Trim)) + Case 4 + 2 + 2 + Me.배관구간길이MyTb.Text = CB(i).Split(CChar(vbTab))(ii).Trim + Case 5 + 2 + 2 + Me.열관류율MyTb.Text = CB(i).Split(CChar(vbTab))(ii).Trim + Case 6 + 2 + 2 + If CB(i).Split(CChar(vbTab))(ii).Trim = "" Then + Me.cmb_배관설치장소.SelectedIndex = 0 + Else + Me.cmb_배관설치장소.Text = CB(i).Split(CChar(vbTab))(ii).Trim + End If + + 'Me.cmb_배관설치장소.Text = CStr(IIf( CB(i).Split(CChar(vbTab))(ii).Trim = "", "0", CB(i).Split(CChar(vbTab))(ii).Trim)) + Case 8 + 2 + 2 + Me.건물길이xMyTb.Text = CB(i).Split(CChar(vbTab))(ii).Trim + Case 9 + 2 + 2 + Me.건물길이yMyTb.Text = CB(i).Split(CChar(vbTab))(ii).Trim + Case 10 + 2 + 2 + Me.층수MyTb.Text = CB(i).Split(CChar(vbTab))(ii).Trim + Case 11 + 2 + 2 + Me.층고MyTb.Text = CB(i).Split(CChar(vbTab))(ii).Trim + Case 12 + 2 + 2 + If CB(i).Split(CChar(vbTab))(ii).Trim = "" Then + Me.cmb_지관연결관장소.SelectedIndex = 0 + Else + Me.cmb_지관연결관장소.Text = CB(i).Split(CChar(vbTab))(ii).Trim + End If + + 'Me.cmb_지관연결관장소.Text = CStr(IIf(CB(i).Trim = "", "0", CB(i).Trim)) + End Select + Next + Next + + Me.bs.EndEdit() + End If + End Sub + + Private Sub Validate_Control() + If Not Init Then Return + 'Try + ' If Me.조명부하산출방법ComboBox.SelectedValue.ToString = "0001" Then '//계산치 + ' Me.요구조도NTb1.Enabled = True + ' Me.천장고NTB1.Enabled = True + ' Me.작업면높이NTb1.Enabled = True + ' Me.실깊이NTb.Enabled = True + ' Me.실너비NTb.Enabled = True + ' Me.실지수NTb1.Enabled = True + ' Me.조명방식ComboBox.Enabled = True + ' Me.인공광원ComboBox.Enabled = True + ' Me.보수율NTb.Enabled = True + ' 'Me.점등시간NTb.Enabled = False + ' Me.조명기기효율NTb.Enabled = True + ' Me.조명률NTb.Enabled = True + ' Me.조명에너지부하율계산치NTb.Enabled = True + ' Me.조명에너지부하율입력치NTb.Enabled = False + ' Else + ' Me.요구조도NTb1.Enabled = False + ' Me.천장고NTB1.Enabled = False + ' Me.작업면높이NTb1.Enabled = False + ' Me.실깊이NTb.Enabled = False + ' Me.실너비NTb.Enabled = False + ' Me.실지수NTb1.Enabled = False + ' Me.조명방식ComboBox.Enabled = False + ' Me.인공광원ComboBox.Enabled = False + ' Me.보수율NTb.Enabled = False + ' 'Me.점등시간NTb.Enabled = False + ' Me.조명기기효율NTb.Enabled = False + ' Me.조명률NTb.Enabled = False + ' Me.조명에너지부하율계산치NTb.Enabled = False + ' Me.조명에너지부하율입력치NTb.Enabled = True + ' 'Me.점등시간TextBox.Enabled = True + ' End If + ' Me.bs.EndEdit() + 'Catch ex As Exception + + 'End Try + + Try + If Me.cmb_표준치적용.Text = "상세입력" Then + 열분배GroupBox.Enabled = True + 난방분배표준치GroupBox.Enabled = False + 열분배PictureBox.Enabled = True + 난방분배표준치PictureBox.Enabled = False + If Me.cmb_배관망유형.Text = "급탕" Then + cmb_배관구간방식.Enabled = False + 배관구간길이MyTb.Enabled = True + 열관류율MyTb.Enabled = True + cmb_배관설치장소.Enabled = False + ElseIf Me.cmb_배관망유형.Text = "난방" Then + cmb_배관구간방식.Enabled = True + 배관구간길이MyTb.Enabled = True + 열관류율MyTb.Enabled = True + cmb_배관설치장소.Enabled = True + Else + cmb_배관구간방식.Enabled = False + 배관구간길이MyTb.Enabled = False + 열관류율MyTb.Enabled = False + cmb_배관설치장소.Enabled = False + End If + + ElseIf Me.cmb_표준치적용.Text = "표준치조건" Then + 열분배GroupBox.Enabled = False + 열분배PictureBox.Enabled = False + If Me.cmb_배관망유형.Text = "급탕" Then + 난방분배표준치GroupBox.Enabled = False + 난방분배표준치PictureBox.Enabled = False + Else + 난방분배표준치GroupBox.Enabled = True + 난방분배표준치PictureBox.Enabled = True + End If + End If + Catch ex As Exception + + End Try + End Sub + + Private Sub SplitContainer1_Panel1_Paint(ByVal sender As System.Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles SplitContainer1.Panel1.Paint + + End Sub + + Private Sub bt_Del_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles bt_Del.MouseDown + If e.Button = Windows.Forms.MouseButtons.Right Then + If MsgBox("전체삭제를 하시겠습니까?", MsgBoxStyle.Information Or MsgBoxStyle.OkCancel, "확인") = MsgBoxResult.Ok Then + Dim dR() As DataRow = DSET.tbl_nbunbae.Select(Me.bs.Filter, "") + For i As Integer = dR.GetUpperBound(0) To 0 Step -1 + dR(i).Delete() + Next + DSET.tbl_nbunbae.AcceptChanges() + End If + End If + End Sub + + Private Sub cmb_배관망유형_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmb_배관망유형.SelectedIndexChanged + Validate_Control() + End Sub + + Private Sub cmb_표준치적용_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmb_표준치적용.SelectedIndexChanged + Validate_Control() + End Sub + + Private Sub dv_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles dv.MouseUp + If Prj.UserAuthType = "ADMIN" OrElse Prj.UserAuthType = "BOTH" OrElse Prj.UserAuthType = "BOTH2" OrElse Prj.UserAuthType = "BOTH1" Then '//2011.03.08 추가 + If e.Button = Windows.Forms.MouseButtons.Right Then + Dim Frm_FilterA As New Frm_Filter + Frm_FilterA.ColumTitle = getColCaption(Me.Dt) + Frm_FilterA.ColumList = getColName(Me.Dt) + Frm_FilterA.Colorlist = "생산기기구분" + Frm_FilterA.Numfield = "" '//20100618 Color 리스트처럼 , 구분해서 필드들을 모두 넣으세요.(=, >= 등을 사용하기 위해서는 해당 항목을 추가 요망) + Frm_FilterA.Default_Filter = "code <> '0'" + + If Frm_FilterA.ShowDialog <> Windows.Forms.DialogResult.OK Then Return '//창떳을떄 확인아ㅣ고 취소눌르면 다음을 수행하지않는다는거에요. + Dim Filter As String = Frm_FilterA.tb_filter.Text '//값은 아까 그 텍박에 잇구요. + Try + Me.bs.Filter = Filter + + '//바꾸기값이 있으면 변경 20100618 + If Frm_FilterA.cmb_fieldc.SelectedIndex >= 0 AndAlso Frm_FilterA.cmb_fieldc.Text.ToLower <> "code" AndAlso _ + Frm_FilterA.tb_valuec.Text <> "" Then + Dim Drow() As DataRow = Me.Dt.Select(Filter) + For Each Dr As DataRow In Drow + Dr(Frm_FilterA.cmb_fieldc.Text) = Frm_FilterA.tb_valuec.Text + Next + MsgBox("바꾸기 완료", MsgBoxStyle.Information, "확인") + End If + + Catch ex As Exception + Me.bs.Filter = "" + End Try + End If + End If + End Sub + + Private Sub dv_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles dv.KeyDown + '//여기보시면 alt+d 누르면 한줄을 경고없이(falsE)삭제하도록 햇어요.. 사실원래 밋alt +d 인데.. ㅎㅎ 잘못해서 ctrl 됫다는 + If Prj.UserAuthType = "ADMIN" OrElse Prj.UserAuthType = "BOTH" OrElse Prj.UserAuthType = "BOTH2" OrElse Prj.UserAuthType = "BOTH1" Then '//2011.03.08 추가 + Select Case e.KeyCode + Case Keys.D + If e.Alt Then + Dbbase.DelCrow(Me.bs, False) + End If + Case Keys.C + If e.Control Then + Me.SrcDrv = Me.bs.Current + If Me.SrcDrv Is Nothing Then + MsgBox("저장할 ROW가 없습니다", MsgBoxStyle.Information, "확인") + Return + End If + ' My.Computer.Clipboard.SetData("ZDATA", Drv) + End If + Case Keys.V + If e.Control Then + If Me.SrcDrv Is Nothing Then Return + Me.bt_add.PerformClick() '//신규추가 + Dim NewDrv As DataRowView = Me.bs.Current + + For Each C As DataColumn In Me.Dt.Columns + If C.ColumnName.ToUpper = "CODE" Then + ElseIf C.ColumnName.ToUpper = "설명" Then + NewDrv(C.ColumnName) = SrcDrv(C.ColumnName) & "#1" + Else + NewDrv(C.ColumnName) = SrcDrv(C.ColumnName) + End If + Next + Me.bs.EndEdit() + bs.MoveLast() + End If + End Select + End If + End Sub + + Private Sub bs_CurrentChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles bs.CurrentChanged + If Not Init Then Return + Me.bs.EndEdit() + End Sub + + Private Sub dv_CellContentClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles dv.CellContentClick + + End Sub +End Class \ No newline at end of file diff --git a/ArinWarev1/Forms/v20091231/Frm_v20091231_Bunbae.Designer.vb b/ArinWarev1/Forms/v20091231/Frm_v20091231_Bunbae.Designer.vb new file mode 100644 index 0000000..66507ce --- /dev/null +++ b/ArinWarev1/Forms/v20091231/Frm_v20091231_Bunbae.Designer.vb @@ -0,0 +1,968 @@ + _ +Partial Class Frm_V20091231_Bunbae + Inherits MMM.FaderForm + + 'Form은 Dispose를 재정의하여 구성 요소 목록을 정리합니다. + _ + Protected Overrides Sub Dispose(ByVal disposing As Boolean) + Try + If disposing AndAlso components IsNot Nothing Then + components.Dispose() + End If + Finally + MyBase.Dispose(disposing) + End Try + End Sub + + 'Windows Form 디자이너에 필요합니다. + Private components As System.ComponentModel.IContainer + + '참고: 다음 프로시저는 Windows Form 디자이너에 필요합니다. + '수정하려면 Windows Form 디자이너를 사용하십시오. + '코드 편집기를 사용하여 수정하지 마십시오. + _ + Private Sub InitializeComponent() + Me.components = New System.ComponentModel.Container + Dim Label1 As System.Windows.Forms.Label + Dim Label2 As System.Windows.Forms.Label + Dim Label3 As System.Windows.Forms.Label + Dim Label4 As System.Windows.Forms.Label + Dim Label19 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 Label25 As System.Windows.Forms.Label + Dim Label26 As System.Windows.Forms.Label + Dim Label27 As System.Windows.Forms.Label + Dim Label28 As System.Windows.Forms.Label + Dim Label29 As System.Windows.Forms.Label + Dim Label30 As System.Windows.Forms.Label + Dim Label31 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 resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(Frm_V20091231_Bunbae)) + Me.bs = New System.Windows.Forms.BindingSource(Me.components) + Me.DS = New Eco2Ar.DS + Me.GroupBox2 = New System.Windows.Forms.GroupBox + Me.Label6 = New System.Windows.Forms.Label + Me.PictureBox3 = New System.Windows.Forms.PictureBox + Me.GroupBox3 = New System.Windows.Forms.GroupBox + Me.Label7 = New System.Windows.Forms.Label + Me.PictureBox2 = New System.Windows.Forms.PictureBox + Me.SplitContainer1 = New System.Windows.Forms.SplitContainer + Me.dv = New CEnergy.arindv + Me.DataGridViewTextBoxColumn1 = New System.Windows.Forms.DataGridViewTextBoxColumn + 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 + Me.bt_Del = New System.Windows.Forms.ToolStripButton + Me.bt_cancel = New System.Windows.Forms.ToolStripButton + Me.ToolStripSeparator1 = New System.Windows.Forms.ToolStripSeparator + Me.lbl_pos = New System.Windows.Forms.ToolStripLabel + Me.Label9 = New System.Windows.Forms.Label + Me.Label8 = New System.Windows.Forms.Label + Me.PictureBox5 = New System.Windows.Forms.PictureBox + Me.Label15 = New System.Windows.Forms.Label + Me.PictureBox4 = New System.Windows.Forms.PictureBox + Me.GroupBox4 = New System.Windows.Forms.GroupBox + Me.GroupBox1 = New System.Windows.Forms.GroupBox + Me.Label20 = New System.Windows.Forms.Label + Me.Label21 = New System.Windows.Forms.Label + Me.PictureBox1 = New System.Windows.Forms.PictureBox + Me.설정점에서의온도차NTb = New Eco2Ar.MyTb + Me.제어밸브압력손실NTb = New Eco2Ar.MyTb + Me.펌프동력NTb1 = New Eco2Ar.MyTb + Me.사용기기압력손실NTb = New Eco2Ar.MyTb + Me.개별저항비율NTb = New Eco2Ar.MyTb + Me.생산기기압력손실NTb = New Eco2Ar.MyTb + Me.배관의압력손실NTb = New Eco2Ar.MyTb + Me.공급범위의길이NTb = New Eco2Ar.MyTb + Me.공급범위의넓이NTb = New Eco2Ar.MyTb + Me.층고NTb1 = New Eco2Ar.MyTb + Me.펌프운전제어유무ComboBox = New Eco2Ar.MyCmb + Me.열층의수NTb = New Eco2Ar.MyTb + Me.급수온도NTb = New Eco2Ar.MyTb + Me.환수온도NTb = New Eco2Ar.MyTb + Me.냉매의점도NTb = New Eco2Ar.MyTb + Me.냉매방식ComboBox = New Eco2Ar.MyCmb + Me.냉매의밀도NTb = New Eco2Ar.MyTb + Me.냉매의비열NTb = New Eco2Ar.MyTb + Me.냉동기ComboBox = New Eco2Ar.MyCmb + Label1 = New System.Windows.Forms.Label + Label2 = New System.Windows.Forms.Label + Label3 = New System.Windows.Forms.Label + Label4 = New System.Windows.Forms.Label + Label19 = New System.Windows.Forms.Label + Label22 = New System.Windows.Forms.Label + Label23 = New System.Windows.Forms.Label + Label24 = New System.Windows.Forms.Label + Label25 = New System.Windows.Forms.Label + Label26 = New System.Windows.Forms.Label + Label27 = New System.Windows.Forms.Label + Label28 = New System.Windows.Forms.Label + Label29 = New System.Windows.Forms.Label + Label30 = New System.Windows.Forms.Label + Label31 = New System.Windows.Forms.Label + Label32 = New System.Windows.Forms.Label + Label33 = New System.Windows.Forms.Label + Label34 = New System.Windows.Forms.Label + CType(Me.ErrProvider, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.bsmain, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.bs, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.DS, System.ComponentModel.ISupportInitialize).BeginInit() + Me.GroupBox2.SuspendLayout() + CType(Me.PictureBox3, System.ComponentModel.ISupportInitialize).BeginInit() + Me.GroupBox3.SuspendLayout() + CType(Me.PictureBox2, System.ComponentModel.ISupportInitialize).BeginInit() + Me.SplitContainer1.Panel1.SuspendLayout() + Me.SplitContainer1.Panel2.SuspendLayout() + Me.SplitContainer1.SuspendLayout() + CType(Me.dv, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.bn, System.ComponentModel.ISupportInitialize).BeginInit() + Me.bn.SuspendLayout() + CType(Me.PictureBox5, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.PictureBox4, System.ComponentModel.ISupportInitialize).BeginInit() + Me.GroupBox4.SuspendLayout() + Me.GroupBox1.SuspendLayout() + CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit() + Me.SuspendLayout() + ' + 'Label1 + ' + Label1.AutoSize = True + Label1.BackColor = System.Drawing.Color.FromArgb(CType(CType(243, Byte), Integer), CType(CType(244, Byte), Integer), CType(CType(246, Byte), Integer)) + Label1.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label1.Location = New System.Drawing.Point(22, 42) + Label1.Name = "Label1" + Label1.Size = New System.Drawing.Size(80, 14) + Label1.TabIndex = 149 + Label1.Text = "1.사용된 방식:" + ' + 'Label2 + ' + Label2.AutoSize = True + Label2.BackColor = System.Drawing.Color.FromArgb(CType(CType(243, Byte), Integer), CType(CType(244, Byte), Integer), CType(CType(246, Byte), Integer)) + Label2.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label2.Location = New System.Drawing.Point(285, 42) + Label2.Name = "Label2" + Label2.Size = New System.Drawing.Size(71, 14) + Label2.TabIndex = 150 + Label2.Text = "2. 비 열:" + ' + 'Label3 + ' + Label3.AutoSize = True + Label3.BackColor = System.Drawing.Color.FromArgb(CType(CType(243, Byte), Integer), CType(CType(244, Byte), Integer), CType(CType(246, Byte), Integer)) + Label3.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label3.Location = New System.Drawing.Point(22, 71) + Label3.Name = "Label3" + Label3.Size = New System.Drawing.Size(71, 14) + Label3.TabIndex = 151 + Label3.Text = "3. 밀 도:" + ' + 'Label4 + ' + Label4.AutoSize = True + Label4.BackColor = System.Drawing.Color.FromArgb(CType(CType(243, Byte), Integer), CType(CType(244, Byte), Integer), CType(CType(246, Byte), Integer)) + Label4.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label4.Location = New System.Drawing.Point(285, 71) + Label4.Name = "Label4" + Label4.Size = New System.Drawing.Size(71, 14) + Label4.TabIndex = 152 + Label4.Text = "4. 점 도:" + ' + 'Label19 + ' + Label19.AutoSize = True + Label19.BackColor = System.Drawing.Color.FromArgb(CType(CType(219, Byte), Integer), CType(CType(221, Byte), Integer), CType(CType(223, Byte), Integer)) + Label19.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label19.Location = New System.Drawing.Point(22, 45) + Label19.Name = "Label19" + Label19.Size = New System.Drawing.Size(127, 14) + Label19.TabIndex = 132 + Label19.Text = "1.펌프운전의 제어 유무:" + ' + 'Label22 + ' + Label22.AutoSize = True + Label22.BackColor = System.Drawing.Color.FromArgb(CType(CType(219, Byte), Integer), CType(CType(221, Byte), Integer), CType(CType(223, Byte), Integer)) + Label22.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label22.Location = New System.Drawing.Point(277, 206) + Label22.Name = "Label22" + Label22.Size = New System.Drawing.Size(148, 14) + Label22.TabIndex = 145 + Label22.Text = "14.제어밸브 압력손실[kPa]:" + ' + 'Label23 + ' + Label23.AutoSize = True + Label23.BackColor = System.Drawing.Color.FromArgb(CType(CType(219, Byte), Integer), CType(CType(221, Byte), Integer), CType(CType(223, Byte), Integer)) + Label23.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label23.Location = New System.Drawing.Point(22, 72) + Label23.Name = "Label23" + Label23.Size = New System.Drawing.Size(91, 14) + Label23.TabIndex = 133 + Label23.Text = "2.급 수 온 도[C]:" + ' + 'Label24 + ' + Label24.AutoSize = True + Label24.BackColor = System.Drawing.Color.FromArgb(CType(CType(219, Byte), Integer), CType(CType(221, Byte), Integer), CType(CType(223, Byte), Integer)) + Label24.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label24.Location = New System.Drawing.Point(277, 178) + Label24.Name = "Label24" + Label24.Size = New System.Drawing.Size(148, 14) + Label24.TabIndex = 144 + Label24.Text = "13.사용기기 압력손실[kPa]:" + ' + 'Label25 + ' + Label25.AutoSize = True + Label25.BackColor = System.Drawing.Color.FromArgb(CType(CType(219, Byte), Integer), CType(CType(221, Byte), Integer), CType(CType(223, Byte), Integer)) + Label25.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label25.Location = New System.Drawing.Point(22, 98) + Label25.Name = "Label25" + Label25.Size = New System.Drawing.Size(91, 14) + Label25.TabIndex = 134 + Label25.Text = "3.환 수 온 도[C]:" + ' + 'Label26 + ' + Label26.AutoSize = True + Label26.BackColor = System.Drawing.Color.FromArgb(CType(CType(219, Byte), Integer), CType(CType(221, Byte), Integer), CType(CType(223, Byte), Integer)) + Label26.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label26.Location = New System.Drawing.Point(276, 150) + Label26.Name = "Label26" + Label26.Size = New System.Drawing.Size(148, 14) + Label26.TabIndex = 143 + Label26.Text = "12.생산기기 압력손실[kPa]:" + ' + 'Label27 + ' + Label27.AutoSize = True + Label27.BackColor = System.Drawing.Color.FromArgb(CType(CType(219, Byte), Integer), CType(CType(221, Byte), Integer), CType(CType(223, Byte), Integer)) + Label27.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label27.Location = New System.Drawing.Point(22, 124) + Label27.Name = "Label27" + Label27.Size = New System.Drawing.Size(124, 14) + Label27.TabIndex = 135 + Label27.Text = "4.설정점에서의 온도차:" + ' + 'Label28 + ' + Label28.AutoSize = True + Label28.BackColor = System.Drawing.Color.FromArgb(CType(CType(219, Byte), Integer), CType(CType(221, Byte), Integer), CType(CType(223, Byte), Integer)) + Label28.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label28.Location = New System.Drawing.Point(278, 124) + Label28.Name = "Label28" + Label28.Size = New System.Drawing.Size(124, 14) + Label28.TabIndex = 142 + Label28.Text = "11.층 고[m]:" + ' + 'Label29 + ' + Label29.AutoSize = True + Label29.BackColor = System.Drawing.Color.FromArgb(CType(CType(219, Byte), Integer), CType(CType(221, Byte), Integer), CType(CType(223, Byte), Integer)) + Label29.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label29.Location = New System.Drawing.Point(276, 99) + Label29.Name = "Label29" + Label29.Size = New System.Drawing.Size(137, 14) + Label29.TabIndex = 141 + Label29.Text = "10.열을 공급하는 층의 수:" + ' + 'Label30 + ' + Label30.AutoSize = True + Label30.BackColor = System.Drawing.Color.FromArgb(CType(CType(219, Byte), Integer), CType(CType(221, Byte), Integer), CType(CType(223, Byte), Integer)) + Label30.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label30.Location = New System.Drawing.Point(285, 72) + Label30.Name = "Label30" + Label30.Size = New System.Drawing.Size(121, 14) + Label30.TabIndex = 140 + Label30.Text = "9.공급범위의 너비[m]:" + ' + 'Label31 + ' + Label31.AutoSize = True + Label31.BackColor = System.Drawing.Color.FromArgb(CType(CType(219, Byte), Integer), CType(CType(221, Byte), Integer), CType(CType(223, Byte), Integer)) + Label31.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label31.Location = New System.Drawing.Point(285, 45) + Label31.Name = "Label31" + Label31.Size = New System.Drawing.Size(121, 14) + Label31.TabIndex = 139 + Label31.Text = "8.공급범위의 길이[m]:" + ' + 'Label32 + ' + Label32.AutoSize = True + Label32.BackColor = System.Drawing.Color.FromArgb(CType(CType(219, Byte), Integer), CType(CType(221, Byte), Integer), CType(CType(223, Byte), Integer)) + Label32.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label32.Location = New System.Drawing.Point(22, 206) + Label32.Name = "Label32" + Label32.Size = New System.Drawing.Size(95, 14) + Label32.TabIndex = 138 + Label32.Text = "7.펌 프 동 력[W]:" + ' + 'Label33 + ' + Label33.AutoSize = True + Label33.BackColor = System.Drawing.Color.FromArgb(CType(CType(219, Byte), Integer), CType(CType(221, Byte), Integer), CType(CType(223, Byte), Integer)) + Label33.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label33.Location = New System.Drawing.Point(22, 178) + Label33.Name = "Label33" + Label33.Size = New System.Drawing.Size(103, 14) + Label33.TabIndex = 137 + Label33.Text = "6.개별저항 비율[-]:" + ' + 'Label34 + ' + Label34.AutoSize = True + Label34.BackColor = System.Drawing.Color.FromArgb(CType(CType(219, Byte), Integer), CType(CType(221, Byte), Integer), CType(CType(223, Byte), Integer)) + Label34.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label34.Location = New System.Drawing.Point(22, 150) + Label34.Name = "Label34" + Label34.Size = New System.Drawing.Size(146, 14) + Label34.TabIndex = 136 + Label34.Text = "5.배관의 압력손실[kPa/m]:" + ' + 'bs + ' + Me.bs.DataMember = "tbl_bunbae" + Me.bs.DataSource = Me.DS + Me.bs.Filter = "code <> '0'" + ' + 'DS + ' + Me.DS.DataSetName = "DS" + Me.DS.SchemaSerializationMode = System.Data.SchemaSerializationMode.IncludeSchema + ' + 'GroupBox2 + ' + Me.GroupBox2.Controls.Add(Me.설정점에서의온도차NTb) + Me.GroupBox2.Controls.Add(Me.Label6) + Me.GroupBox2.Controls.Add(Label19) + Me.GroupBox2.Controls.Add(Label22) + Me.GroupBox2.Controls.Add(Label23) + Me.GroupBox2.Controls.Add(Label24) + Me.GroupBox2.Controls.Add(Label25) + Me.GroupBox2.Controls.Add(Label26) + Me.GroupBox2.Controls.Add(Label27) + Me.GroupBox2.Controls.Add(Label28) + Me.GroupBox2.Controls.Add(Label29) + Me.GroupBox2.Controls.Add(Label30) + Me.GroupBox2.Controls.Add(Label31) + Me.GroupBox2.Controls.Add(Label32) + Me.GroupBox2.Controls.Add(Label33) + Me.GroupBox2.Controls.Add(Label34) + Me.GroupBox2.Controls.Add(Me.제어밸브압력손실NTb) + Me.GroupBox2.Controls.Add(Me.펌프동력NTb1) + Me.GroupBox2.Controls.Add(Me.사용기기압력손실NTb) + Me.GroupBox2.Controls.Add(Me.개별저항비율NTb) + Me.GroupBox2.Controls.Add(Me.생산기기압력손실NTb) + Me.GroupBox2.Controls.Add(Me.배관의압력손실NTb) + Me.GroupBox2.Controls.Add(Me.공급범위의길이NTb) + Me.GroupBox2.Controls.Add(Me.공급범위의넓이NTb) + Me.GroupBox2.Controls.Add(Me.층고NTb1) + Me.GroupBox2.Controls.Add(Me.펌프운전제어유무ComboBox) + Me.GroupBox2.Controls.Add(Me.열층의수NTb) + Me.GroupBox2.Controls.Add(Me.급수온도NTb) + Me.GroupBox2.Controls.Add(Me.환수온도NTb) + Me.GroupBox2.Controls.Add(Me.PictureBox3) + Me.GroupBox2.Location = New System.Drawing.Point(10, 123) + Me.GroupBox2.Name = "GroupBox2" + Me.GroupBox2.Size = New System.Drawing.Size(524, 238) + Me.GroupBox2.TabIndex = 143 + Me.GroupBox2.TabStop = False + ' + 'Label6 + ' + Me.Label6.AutoSize = True + Me.Label6.BackColor = System.Drawing.Color.FromArgb(CType(CType(219, Byte), Integer), CType(CType(221, Byte), Integer), CType(CType(223, Byte), Integer)) + Me.Label6.Location = New System.Drawing.Point(10, 17) + Me.Label6.Name = "Label6" + Me.Label6.Size = New System.Drawing.Size(59, 14) + Me.Label6.TabIndex = 153 + Me.Label6.Text = "[기타정보]" + ' + 'PictureBox3 + ' + Me.PictureBox3.BackColor = System.Drawing.Color.FromArgb(CType(CType(219, Byte), Integer), CType(CType(221, Byte), Integer), CType(CType(223, Byte), Integer)) + Me.PictureBox3.Location = New System.Drawing.Point(2, 10) + Me.PictureBox3.Name = "PictureBox3" + Me.PictureBox3.Size = New System.Drawing.Size(519, 224) + Me.PictureBox3.TabIndex = 124 + Me.PictureBox3.TabStop = False + ' + 'GroupBox3 + ' + Me.GroupBox3.Controls.Add(Me.Label7) + Me.GroupBox3.Controls.Add(Label1) + Me.GroupBox3.Controls.Add(Label2) + Me.GroupBox3.Controls.Add(Me.냉매의점도NTb) + Me.GroupBox3.Controls.Add(Label3) + Me.GroupBox3.Controls.Add(Me.냉매방식ComboBox) + Me.GroupBox3.Controls.Add(Label4) + Me.GroupBox3.Controls.Add(Me.냉매의밀도NTb) + Me.GroupBox3.Controls.Add(Me.냉매의비열NTb) + Me.GroupBox3.Controls.Add(Me.PictureBox2) + Me.GroupBox3.Location = New System.Drawing.Point(10, 20) + Me.GroupBox3.Name = "GroupBox3" + Me.GroupBox3.Size = New System.Drawing.Size(524, 97) + Me.GroupBox3.TabIndex = 143 + Me.GroupBox3.TabStop = False + ' + 'Label7 + ' + Me.Label7.AutoSize = True + Me.Label7.BackColor = System.Drawing.Color.FromArgb(CType(CType(243, Byte), Integer), CType(CType(244, Byte), Integer), CType(CType(246, Byte), Integer)) + Me.Label7.Location = New System.Drawing.Point(6, 17) + Me.Label7.Name = "Label7" + Me.Label7.Size = New System.Drawing.Size(59, 14) + Me.Label7.TabIndex = 153 + Me.Label7.Text = "[냉매설정]" + ' + 'PictureBox2 + ' + Me.PictureBox2.BackColor = System.Drawing.Color.FromArgb(CType(CType(243, Byte), Integer), CType(CType(244, Byte), Integer), CType(CType(246, Byte), Integer)) + Me.PictureBox2.Location = New System.Drawing.Point(2, 10) + Me.PictureBox2.Name = "PictureBox2" + Me.PictureBox2.Size = New System.Drawing.Size(519, 83) + Me.PictureBox2.TabIndex = 154 + Me.PictureBox2.TabStop = False + ' + '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, 30) + 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.BackColor = System.Drawing.Color.White + Me.SplitContainer1.Panel2.Controls.Add(Me.Label9) + Me.SplitContainer1.Panel2.Controls.Add(Me.Label8) + Me.SplitContainer1.Panel2.Controls.Add(Me.PictureBox5) + Me.SplitContainer1.Panel2.Controls.Add(Me.Label15) + Me.SplitContainer1.Panel2.Controls.Add(Me.PictureBox4) + Me.SplitContainer1.Panel2.Controls.Add(Me.GroupBox4) + Me.SplitContainer1.Panel2.Controls.Add(Me.GroupBox1) + Me.SplitContainer1.Size = New System.Drawing.Size(795, 535) + Me.SplitContainer1.SplitterDistance = 212 + Me.SplitContainer1.TabIndex = 125 + ' + 'dv + ' + Me.dv.A_DelCurrentCell = True + Me.dv.A_EnterToTab = True + 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.FromArgb(CType(CType(245, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(246, Byte), Integer)) + Me.dv.BorderStyle = System.Windows.Forms.BorderStyle.None + Me.dv.ColumnHeadersHeight = 30 + Me.dv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.DisableResizing + 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.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, 493) + Me.dv.TabIndex = 0 + ' + 'DataGridViewTextBoxColumn1 + ' + Me.DataGridViewTextBoxColumn1.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.Fill + Me.DataGridViewTextBoxColumn1.DataPropertyName = "설명" + Me.DataGridViewTextBoxColumn1.HeaderText = "설명" + Me.DataGridViewTextBoxColumn1.Name = "DataGridViewTextBoxColumn1" + ' + '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("나눔고딕 ExtraBold", 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.bn.Location = New System.Drawing.Point(0, 493) + 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, 40) + Me.bn.TabIndex = 1 + Me.bn.Text = "BindingNavigator1" + ' + 'lbl_count + ' + Me.lbl_count.Name = "lbl_count" + Me.lbl_count.Size = New System.Drawing.Size(27, 37) + 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, 37) + 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, 37) + 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, 37) + Me.bt_cancel.Text = "변경취소(&C)" + Me.bt_cancel.ToolTipText = "변경된 내용을 되돌립니다" + ' + 'ToolStripSeparator1 + ' + Me.ToolStripSeparator1.Name = "ToolStripSeparator1" + Me.ToolStripSeparator1.Size = New System.Drawing.Size(6, 40) + ' + 'lbl_pos + ' + Me.lbl_pos.Name = "lbl_pos" + Me.lbl_pos.Size = New System.Drawing.Size(14, 37) + Me.lbl_pos.Text = "0" + ' + 'Label9 + ' + Me.Label9.BackColor = System.Drawing.Color.FromArgb(CType(CType(243, Byte), Integer), CType(CType(244, Byte), Integer), CType(CType(243, Byte), Integer)) + Me.Label9.ForeColor = System.Drawing.Color.MidnightBlue + Me.Label9.Location = New System.Drawing.Point(153, 107) + Me.Label9.Name = "Label9" + Me.Label9.Size = New System.Drawing.Size(405, 31) + Me.Label9.TabIndex = 153 + Me.Label9.Text = "※ 직접 증기공급에 의한 실냉방이 아닌 경우" + Me.Label9.TextAlign = System.Drawing.ContentAlignment.BottomLeft + ' + 'Label8 + ' + Me.Label8.AutoSize = True + Me.Label8.BackColor = System.Drawing.Color.FromArgb(CType(CType(116, Byte), Integer), CType(CType(158, Byte), Integer), CType(CType(209, Byte), Integer)) + Me.Label8.ForeColor = System.Drawing.Color.White + Me.Label8.Location = New System.Drawing.Point(35, 118) + Me.Label8.Name = "Label8" + Me.Label8.Size = New System.Drawing.Size(51, 14) + Me.Label8.TabIndex = 152 + Me.Label8.Text = "분배범위" + ' + 'PictureBox5 + ' + Me.PictureBox5.BackgroundImage = CType(resources.GetObject("PictureBox5.BackgroundImage"), System.Drawing.Image) + Me.PictureBox5.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch + Me.PictureBox5.Location = New System.Drawing.Point(16, 107) + Me.PictureBox5.Name = "PictureBox5" + Me.PictureBox5.Size = New System.Drawing.Size(131, 30) + Me.PictureBox5.TabIndex = 151 + Me.PictureBox5.TabStop = False + ' + 'Label15 + ' + Me.Label15.AutoSize = True + Me.Label15.BackColor = System.Drawing.Color.FromArgb(CType(CType(116, Byte), Integer), CType(CType(158, Byte), Integer), CType(CType(209, Byte), Integer)) + Me.Label15.ForeColor = System.Drawing.Color.White + Me.Label15.Location = New System.Drawing.Point(35, 21) + Me.Label15.Name = "Label15" + Me.Label15.Size = New System.Drawing.Size(76, 14) + Me.Label15.TabIndex = 152 + Me.Label15.Text = "분배범위 냉방" + ' + 'PictureBox4 + ' + Me.PictureBox4.BackgroundImage = CType(resources.GetObject("PictureBox4.BackgroundImage"), System.Drawing.Image) + Me.PictureBox4.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch + Me.PictureBox4.Location = New System.Drawing.Point(16, 10) + Me.PictureBox4.Name = "PictureBox4" + Me.PictureBox4.Size = New System.Drawing.Size(131, 30) + Me.PictureBox4.TabIndex = 151 + Me.PictureBox4.TabStop = False + ' + 'GroupBox4 + ' + Me.GroupBox4.Controls.Add(Me.GroupBox2) + Me.GroupBox4.Controls.Add(Me.GroupBox3) + Me.GroupBox4.Location = New System.Drawing.Point(15, 135) + Me.GroupBox4.Name = "GroupBox4" + Me.GroupBox4.Size = New System.Drawing.Size(544, 367) + Me.GroupBox4.TabIndex = 150 + Me.GroupBox4.TabStop = False + ' + 'GroupBox1 + ' + Me.GroupBox1.Controls.Add(Me.Label20) + Me.GroupBox1.Controls.Add(Me.Label21) + Me.GroupBox1.Controls.Add(Me.냉동기ComboBox) + Me.GroupBox1.Controls.Add(Me.PictureBox1) + Me.GroupBox1.Location = New System.Drawing.Point(15, 38) + Me.GroupBox1.Name = "GroupBox1" + Me.GroupBox1.Size = New System.Drawing.Size(544, 52) + Me.GroupBox1.TabIndex = 148 + Me.GroupBox1.TabStop = False + ' + 'Label20 + ' + Me.Label20.AutoSize = True + Me.Label20.BackColor = System.Drawing.Color.FromArgb(CType(CType(219, Byte), Integer), CType(CType(221, Byte), Integer), CType(CType(223, Byte), Integer)) + Me.Label20.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Me.Label20.Location = New System.Drawing.Point(303, 25) + Me.Label20.Name = "Label20" + Me.Label20.Size = New System.Drawing.Size(153, 14) + Me.Label20.TabIndex = 123 + Me.Label20.Text = "(공조분배와 냉방분배의 경우)" + ' + 'Label21 + ' + Me.Label21.AutoSize = True + Me.Label21.BackColor = System.Drawing.Color.FromArgb(CType(CType(219, Byte), Integer), CType(CType(221, Byte), Integer), CType(CType(223, Byte), Integer)) + Me.Label21.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Me.Label21.Location = New System.Drawing.Point(20, 20) + Me.Label21.Name = "Label21" + Me.Label21.Size = New System.Drawing.Size(67, 14) + Me.Label21.TabIndex = 122 + Me.Label21.Text = "＊냉 동 기:" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) + Me.Label21.TextAlign = System.Drawing.ContentAlignment.MiddleLeft + ' + 'PictureBox1 + ' + 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(542, 40) + Me.PictureBox1.TabIndex = 124 + Me.PictureBox1.TabStop = False + ' + '설정점에서의온도차NTb + ' + Me.설정점에서의온도차NTb.BackColor = System.Drawing.Color.DarkGray + Me.설정점에서의온도차NTb.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bs, "설정점에서의온도차", True)) + Me.설정점에서의온도차NTb.Location = New System.Drawing.Point(175, 117) + Me.설정점에서의온도차NTb.Name = "설정점에서의온도차NTb" + Me.설정점에서의온도차NTb.NectControl = Nothing + Me.설정점에서의온도차NTb.Size = New System.Drawing.Size(87, 21) + Me.설정점에서의온도차NTb.TabIndex = 8 + Me.설정점에서의온도차NTb.TabStop = False + Me.설정점에서의온도차NTb.TextAlign = System.Windows.Forms.HorizontalAlignment.Right + Me.설정점에서의온도차NTb.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + ' + '제어밸브압력손실NTb + ' + Me.제어밸브압력손실NTb.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bs, "제어밸브압력손실", True)) + Me.제어밸브압력손실NTb.Location = New System.Drawing.Point(431, 206) + Me.제어밸브압력손실NTb.Name = "제어밸브압력손실NTb" + Me.제어밸브압력손실NTb.NectControl = Nothing + Me.제어밸브압력손실NTb.Size = New System.Drawing.Size(75, 21) + Me.제어밸브압력손실NTb.TabIndex = 18 + Me.제어밸브압력손실NTb.TextAlign = System.Windows.Forms.HorizontalAlignment.Right + Me.제어밸브압력손실NTb.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + ' + '펌프동력NTb1 + ' + Me.펌프동력NTb1.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bs, "펌프동력", True)) + Me.펌프동력NTb1.Location = New System.Drawing.Point(175, 204) + Me.펌프동력NTb1.Name = "펌프동력NTb1" + Me.펌프동력NTb1.NectControl = Nothing + Me.펌프동력NTb1.Size = New System.Drawing.Size(87, 21) + Me.펌프동력NTb1.TabIndex = 11 + Me.펌프동력NTb1.TextAlign = System.Windows.Forms.HorizontalAlignment.Right + Me.펌프동력NTb1.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + ' + '사용기기압력손실NTb + ' + Me.사용기기압력손실NTb.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bs, "사용기기압력손실", True)) + Me.사용기기압력손실NTb.Location = New System.Drawing.Point(431, 178) + Me.사용기기압력손실NTb.Name = "사용기기압력손실NTb" + Me.사용기기압력손실NTb.NectControl = Nothing + Me.사용기기압력손실NTb.Size = New System.Drawing.Size(75, 21) + Me.사용기기압력손실NTb.TabIndex = 17 + Me.사용기기압력손실NTb.TextAlign = System.Windows.Forms.HorizontalAlignment.Right + Me.사용기기압력손실NTb.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + ' + '개별저항비율NTb + ' + Me.개별저항비율NTb.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bs, "개별저항비율", True)) + Me.개별저항비율NTb.Location = New System.Drawing.Point(175, 176) + Me.개별저항비율NTb.Name = "개별저항비율NTb" + Me.개별저항비율NTb.NectControl = Nothing + Me.개별저항비율NTb.Size = New System.Drawing.Size(87, 21) + Me.개별저항비율NTb.TabIndex = 10 + Me.개별저항비율NTb.TextAlign = System.Windows.Forms.HorizontalAlignment.Right + Me.개별저항비율NTb.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + ' + '생산기기압력손실NTb + ' + Me.생산기기압력손실NTb.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bs, "생산기기압력손실", True)) + Me.생산기기압력손실NTb.Location = New System.Drawing.Point(431, 150) + Me.생산기기압력손실NTb.Name = "생산기기압력손실NTb" + Me.생산기기압력손실NTb.NectControl = Nothing + Me.생산기기압력손실NTb.Size = New System.Drawing.Size(75, 21) + Me.생산기기압력손실NTb.TabIndex = 16 + Me.생산기기압력손실NTb.TextAlign = System.Windows.Forms.HorizontalAlignment.Right + Me.생산기기압력손실NTb.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + ' + '배관의압력손실NTb + ' + Me.배관의압력손실NTb.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bs, "배관의압력손실", True)) + Me.배관의압력손실NTb.Location = New System.Drawing.Point(175, 148) + Me.배관의압력손실NTb.Name = "배관의압력손실NTb" + Me.배관의압력손실NTb.NectControl = Nothing + Me.배관의압력손실NTb.Size = New System.Drawing.Size(87, 21) + Me.배관의압력손실NTb.TabIndex = 9 + Me.배관의압력손실NTb.TextAlign = System.Windows.Forms.HorizontalAlignment.Right + Me.배관의압력손실NTb.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + ' + '공급범위의길이NTb + ' + Me.공급범위의길이NTb.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bs, "공급범위의길이", True)) + Me.공급범위의길이NTb.Location = New System.Drawing.Point(431, 38) + Me.공급범위의길이NTb.Name = "공급범위의길이NTb" + Me.공급범위의길이NTb.NectControl = Nothing + Me.공급범위의길이NTb.Size = New System.Drawing.Size(75, 21) + Me.공급범위의길이NTb.TabIndex = 12 + Me.공급범위의길이NTb.TextAlign = System.Windows.Forms.HorizontalAlignment.Right + Me.공급범위의길이NTb.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + ' + '공급범위의넓이NTb + ' + Me.공급범위의넓이NTb.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bs, "공급범위의넓이", True)) + Me.공급범위의넓이NTb.Location = New System.Drawing.Point(431, 66) + Me.공급범위의넓이NTb.Name = "공급범위의넓이NTb" + Me.공급범위의넓이NTb.NectControl = Nothing + Me.공급범위의넓이NTb.Size = New System.Drawing.Size(75, 21) + Me.공급범위의넓이NTb.TabIndex = 13 + Me.공급범위의넓이NTb.TextAlign = System.Windows.Forms.HorizontalAlignment.Right + Me.공급범위의넓이NTb.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + ' + '층고NTb1 + ' + Me.층고NTb1.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bs, "층고", True)) + Me.층고NTb1.Location = New System.Drawing.Point(431, 122) + Me.층고NTb1.Name = "층고NTb1" + Me.층고NTb1.NectControl = Nothing + Me.층고NTb1.Size = New System.Drawing.Size(75, 21) + Me.층고NTb1.TabIndex = 15 + Me.층고NTb1.TextAlign = System.Windows.Forms.HorizontalAlignment.Right + Me.층고NTb1.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + ' + '펌프운전제어유무ComboBox + ' + Me.펌프운전제어유무ComboBox.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList + Me.펌프운전제어유무ComboBox.FormattingEnabled = True + Me.펌프운전제어유무ComboBox.Location = New System.Drawing.Point(175, 38) + Me.펌프운전제어유무ComboBox.Name = "펌프운전제어유무ComboBox" + Me.펌프운전제어유무ComboBox.NectControl = Nothing + Me.펌프운전제어유무ComboBox.Size = New System.Drawing.Size(87, 22) + Me.펌프운전제어유무ComboBox.TabIndex = 5 + ' + '열층의수NTb + ' + Me.열층의수NTb.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bs, "열층의수", True)) + Me.열층의수NTb.Location = New System.Drawing.Point(431, 94) + Me.열층의수NTb.Name = "열층의수NTb" + Me.열층의수NTb.NectControl = Nothing + Me.열층의수NTb.Size = New System.Drawing.Size(75, 21) + Me.열층의수NTb.TabIndex = 14 + Me.열층의수NTb.TextAlign = System.Windows.Forms.HorizontalAlignment.Right + Me.열층의수NTb.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + ' + '급수온도NTb + ' + Me.급수온도NTb.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bs, "급수온도", True)) + Me.급수온도NTb.Location = New System.Drawing.Point(175, 66) + Me.급수온도NTb.Name = "급수온도NTb" + Me.급수온도NTb.NectControl = Nothing + Me.급수온도NTb.Size = New System.Drawing.Size(87, 21) + Me.급수온도NTb.TabIndex = 6 + Me.급수온도NTb.TextAlign = System.Windows.Forms.HorizontalAlignment.Right + Me.급수온도NTb.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + ' + '환수온도NTb + ' + Me.환수온도NTb.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bs, "환수온도", True)) + Me.환수온도NTb.Location = New System.Drawing.Point(175, 92) + Me.환수온도NTb.Name = "환수온도NTb" + Me.환수온도NTb.NectControl = Nothing + Me.환수온도NTb.Size = New System.Drawing.Size(87, 21) + Me.환수온도NTb.TabIndex = 7 + Me.환수온도NTb.TextAlign = System.Windows.Forms.HorizontalAlignment.Right + Me.환수온도NTb.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + ' + '냉매의점도NTb + ' + Me.냉매의점도NTb.BackColor = System.Drawing.Color.FromArgb(CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer)) + Me.냉매의점도NTb.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bs, "냉매의점도", True)) + Me.냉매의점도NTb.Enabled = False + Me.냉매의점도NTb.Location = New System.Drawing.Point(421, 67) + Me.냉매의점도NTb.Name = "냉매의점도NTb" + Me.냉매의점도NTb.NectControl = Nothing + Me.냉매의점도NTb.Size = New System.Drawing.Size(85, 21) + Me.냉매의점도NTb.TabIndex = 4 + Me.냉매의점도NTb.TextAlign = System.Windows.Forms.HorizontalAlignment.Right + Me.냉매의점도NTb.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + ' + '냉매방식ComboBox + ' + Me.냉매방식ComboBox.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList + Me.냉매방식ComboBox.FormattingEnabled = True + Me.냉매방식ComboBox.Location = New System.Drawing.Point(175, 37) + Me.냉매방식ComboBox.Name = "냉매방식ComboBox" + Me.냉매방식ComboBox.NectControl = Nothing + Me.냉매방식ComboBox.Size = New System.Drawing.Size(85, 22) + Me.냉매방식ComboBox.TabIndex = 1 + ' + '냉매의밀도NTb + ' + Me.냉매의밀도NTb.BackColor = System.Drawing.Color.FromArgb(CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer)) + Me.냉매의밀도NTb.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bs, "냉매의밀도", True)) + Me.냉매의밀도NTb.Enabled = False + Me.냉매의밀도NTb.Location = New System.Drawing.Point(175, 67) + Me.냉매의밀도NTb.Name = "냉매의밀도NTb" + Me.냉매의밀도NTb.NectControl = Nothing + Me.냉매의밀도NTb.Size = New System.Drawing.Size(85, 21) + Me.냉매의밀도NTb.TabIndex = 3 + Me.냉매의밀도NTb.TextAlign = System.Windows.Forms.HorizontalAlignment.Right + Me.냉매의밀도NTb.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + ' + '냉매의비열NTb + ' + Me.냉매의비열NTb.BackColor = System.Drawing.Color.FromArgb(CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer)) + Me.냉매의비열NTb.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bs, "냉매의비열", True)) + Me.냉매의비열NTb.Enabled = False + Me.냉매의비열NTb.Location = New System.Drawing.Point(421, 40) + Me.냉매의비열NTb.Name = "냉매의비열NTb" + Me.냉매의비열NTb.NectControl = Nothing + Me.냉매의비열NTb.Size = New System.Drawing.Size(85, 21) + Me.냉매의비열NTb.TabIndex = 2 + Me.냉매의비열NTb.TextAlign = System.Windows.Forms.HorizontalAlignment.Right + Me.냉매의비열NTb.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + ' + '냉동기ComboBox + ' + Me.냉동기ComboBox.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList + Me.냉동기ComboBox.FormattingEnabled = True + Me.냉동기ComboBox.Location = New System.Drawing.Point(104, 19) + Me.냉동기ComboBox.Name = "냉동기ComboBox" + Me.냉동기ComboBox.NectControl = Nothing + Me.냉동기ComboBox.Size = New System.Drawing.Size(176, 22) + Me.냉동기ComboBox.TabIndex = 0 + ' + 'Frm_V20091231_Bunbae + ' + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.None + Me.ClientSize = New System.Drawing.Size(795, 565) + Me.Controls.Add(Me.SplitContainer1) + Me.Font = New System.Drawing.Font("나눔고딕 ExtraBold", 8.999999!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.KeyPreview = True + Me.Name = "Frm_V20091231_Bunbae" + Me.ShowInTaskbar = False + Me.StartPosition = System.Windows.Forms.FormStartPosition.Manual + Me.Text = "냉방분배시스템" + Me.Controls.SetChildIndex(Me.SplitContainer1, 0) + CType(Me.ErrProvider, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.bsmain, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.bs, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.DS, System.ComponentModel.ISupportInitialize).EndInit() + Me.GroupBox2.ResumeLayout(False) + Me.GroupBox2.PerformLayout() + CType(Me.PictureBox3, System.ComponentModel.ISupportInitialize).EndInit() + Me.GroupBox3.ResumeLayout(False) + Me.GroupBox3.PerformLayout() + CType(Me.PictureBox2, System.ComponentModel.ISupportInitialize).EndInit() + Me.SplitContainer1.Panel1.ResumeLayout(False) + Me.SplitContainer1.Panel2.ResumeLayout(False) + Me.SplitContainer1.Panel2.PerformLayout() + Me.SplitContainer1.ResumeLayout(False) + CType(Me.dv, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.bn, System.ComponentModel.ISupportInitialize).EndInit() + Me.bn.ResumeLayout(False) + Me.bn.PerformLayout() + CType(Me.PictureBox5, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.PictureBox4, System.ComponentModel.ISupportInitialize).EndInit() + Me.GroupBox4.ResumeLayout(False) + Me.GroupBox1.ResumeLayout(False) + Me.GroupBox1.PerformLayout() + CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).EndInit() + Me.ResumeLayout(False) + + End Sub + Friend WithEvents 제어밸브압력손실NTb As MyTb + Friend WithEvents 사용기기압력손실NTb As MyTb + Friend WithEvents 생산기기압력손실NTb As MyTb + Friend WithEvents 층고NTb1 As MyTb + Friend WithEvents 열층의수NTb As MyTb + Friend WithEvents 공급범위의넓이NTb As MyTb + Friend WithEvents 공급범위의길이NTb As MyTb + Friend WithEvents 펌프동력NTb1 As MyTb + Friend WithEvents 개별저항비율NTb As MyTb + Friend WithEvents 배관의압력손실NTb As MyTb + Friend WithEvents 냉매의점도NTb As MyTb + Friend WithEvents 냉매의밀도NTb As MyTb + Friend WithEvents 냉매의비열NTb As MyTb + Friend WithEvents 설정점에서의온도차NTb As MyTb + Friend WithEvents 환수온도NTb As MyTb + Friend WithEvents 급수온도NTb As MyTb + Public WithEvents DS As Eco2Ar.DS + Friend WithEvents bs As System.Windows.Forms.BindingSource + Friend WithEvents 펌프운전제어유무ComboBox As Eco2Ar.MyCmb + Friend WithEvents 냉매방식ComboBox As Eco2Ar.MyCmb + Friend WithEvents 냉동기ComboBox As Eco2Ar.MyCmb + Friend WithEvents GroupBox2 As System.Windows.Forms.GroupBox + Friend WithEvents GroupBox3 As System.Windows.Forms.GroupBox + Friend WithEvents SplitContainer1 As System.Windows.Forms.SplitContainer + Friend WithEvents bn As System.Windows.Forms.BindingNavigator + Friend WithEvents bt_add As System.Windows.Forms.ToolStripButton + Friend WithEvents bt_Del As System.Windows.Forms.ToolStripButton + Friend WithEvents bt_cancel As System.Windows.Forms.ToolStripButton + Friend WithEvents ToolStripSeparator1 As System.Windows.Forms.ToolStripSeparator + Friend WithEvents dv As CEnergy.arindv + Friend WithEvents DataGridViewTextBoxColumn1 As System.Windows.Forms.DataGridViewTextBoxColumn + Friend WithEvents lbl_count As System.Windows.Forms.ToolStripLabel + Friend WithEvents lbl_pos As System.Windows.Forms.ToolStripLabel + Friend WithEvents GroupBox4 As System.Windows.Forms.GroupBox + Friend WithEvents GroupBox1 As System.Windows.Forms.GroupBox + Friend WithEvents Label20 As System.Windows.Forms.Label + Friend WithEvents Label21 As System.Windows.Forms.Label + Friend WithEvents Label6 As System.Windows.Forms.Label + Friend WithEvents Label7 As System.Windows.Forms.Label + Friend WithEvents PictureBox1 As System.Windows.Forms.PictureBox + Friend WithEvents PictureBox3 As System.Windows.Forms.PictureBox + Friend WithEvents PictureBox2 As System.Windows.Forms.PictureBox + Friend WithEvents Label15 As System.Windows.Forms.Label + Friend WithEvents PictureBox4 As System.Windows.Forms.PictureBox + Friend WithEvents Label9 As System.Windows.Forms.Label + Friend WithEvents Label8 As System.Windows.Forms.Label + Friend WithEvents PictureBox5 As System.Windows.Forms.PictureBox +End Class diff --git a/ArinWarev1/Forms/v20091231/Frm_v20091231_Bunbae.resx b/ArinWarev1/Forms/v20091231/Frm_v20091231_Bunbae.resx new file mode 100644 index 0000000..f4f26ba --- /dev/null +++ b/ArinWarev1/Forms/v20091231/Frm_v20091231_Bunbae.resx @@ -0,0 +1,593 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + 109, 17 + + + 17, 17 + + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + 222, 17 + + + 286, 17 + + + 353, 17 + + + + + /9j/4AAQSkZJRgABAgEASABIAAD/7gAOQWRvYmUAZAAAAAAB/+ED5kV4aWYAAE1NACoAAAAIAAcBEgAD + AAAAAQABAAABGgAFAAAAAQAAAGIBGwAFAAAAAQAAAGoBKAADAAAAAQACAAABMQACAAAAHAAAAHIBMgAC + AAAAFAAAAI6HaQAEAAAAAQAAAKIAAADCAEgAAAABAAAASAAAAAEAAEFkb2JlIFBob3Rvc2hvcCBDUzMg + V2luZG93cwAyMDEwOjA0OjE1IDIwOjMyOjA0AAACoAIABAAAAAEAAAA8oAMABAAAAAEAAAAMAAAAAAAA + AAYBAwADAAAAAQAGAAABGgAFAAAAAQAAARABGwAFAAAAAQAAARgBKAADAAAAAQACAAACAQAEAAAAAQAA + ASACAgAEAAAAAQAAAr4AAAAAAAAASAAAAAEAAABIAAAAAf/Y/+AAEEpGSUYAAQIAAEgASAAA/+0ADEFk + b2JlX0NNAAH/7gAOQWRvYmUAZIAAAAAB/9sAhAAMCAgICQgMCQkMEQsKCxEVDwwMDxUYExMVExMYEQwM + DAwMDBEMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMAQ0LCw0ODRAODhAUDg4OFBQODg4OFBEMDAwM + DBERDAwMDAwMEQwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAz/wAARCAAMADwDASIAAhEBAxEB/90A + BAAE/8QBPwAAAQUBAQEBAQEAAAAAAAAAAwABAgQFBgcICQoLAQABBQEBAQEBAQAAAAAAAAABAAIDBAUG + BwgJCgsQAAEEAQMCBAIFBwYIBQMMMwEAAhEDBCESMQVBUWETInGBMgYUkaGxQiMkFVLBYjM0coLRQwcl + klPw4fFjczUWorKDJkSTVGRFwqN0NhfSVeJl8rOEw9N14/NGJ5SkhbSVxNTk9KW1xdXl9VZmdoaWprbG + 1ub2N0dXZ3eHl6e3x9fn9xEAAgIBAgQEAwQFBgcHBgU1AQACEQMhMRIEQVFhcSITBTKBkRShsUIjwVLR + 8DMkYuFygpJDUxVjczTxJQYWorKDByY1wtJEk1SjF2RFVTZ0ZeLys4TD03Xj80aUpIW0lcTU5PSltcXV + 5fVWZnaGlqa2xtbm9ic3R1dnd4eXp7fH/9oADAMBAAIRAxEAPwDd/amR/pH/AOcf70v2pkf6R/8AnH+9 + UUlofq/Bpevxb37UyP8ASP8A84/3pftTI/0j/wDOP96opJfq/BXr8W9+1Mj/AEj/APOP96X7UyP9I/8A + zj/eqKSX6vwV6/F3ujdbuGS2i5xfU8HVxktIG76XyW99vo27p0XGdO2/ba930dZj+q5dX+qfZPL8VAeD + 341VVr/eZhx+0bu708n/2f/tCSBQaG90b3Nob3AgMy4wADhCSU0EJQAAAAAAEAAAAAAAAAAAAAAAAAAA + AAA4QklNBC8AAAAAAErgYgEASAAAAEgAAAAAAAAAAAAAANACAABAAgAAAAAAAAAAAAAYAwAAZAIAAAAB + wAMAALAEAAABAA8nAQBsbHVuAAAAAAAAAAAAADhCSU0D7QAAAAAAEABIAAAAAQACAEgAAAABAAI4QklN + BCYAAAAAAA4AAAAAAAAAAAAAP4AAADhCSU0EDQAAAAAABAAAAHg4QklNBBkAAAAAAAQAAAAeOEJJTQPz + AAAAAAAJAAAAAAAAAAABADhCSU0ECgAAAAAAAQAAOEJJTScQAAAAAAAKAAEAAAAAAAAAAjhCSU0D9QAA + AAAASAAvZmYAAQBsZmYABgAAAAAAAQAvZmYAAQChmZoABgAAAAAAAQAyAAAAAQBaAAAABgAAAAAAAQA1 + AAAAAQAtAAAABgAAAAAAAThCSU0D+AAAAAAAcAAA/////////////////////////////wPoAAAAAP// + //////////////////////////8D6AAAAAD/////////////////////////////A+gAAAAA//////// + /////////////////////wPoAAA4QklNBAAAAAAAAAIAAjhCSU0EAgAAAAAABgAAAAAAADhCSU0EMAAA + AAAAAwEBAQA4QklNBC0AAAAAAAYAAQAAAAM4QklNBAgAAAAAABAAAAABAAACQAAAAkAAAAAAOEJJTQQe + AAAAAAAEAAAAADhCSU0EGgAAAAADPwAAAAYAAAAAAAAAAAAAAAwAAAA8AAAABbs0yBwALQAxADIAAAAB + AAAAAAAAAAAAAAAAAAAAAAAAAAEAAAAAAAAAAAAAADwAAAAMAAAAAAAAAAAAAAAAAAAAAAEAAAAAAAAA + AAAAAAAAAAAAAAAAEAAAAAEAAAAAAABudWxsAAAAAgAAAAZib3VuZHNPYmpjAAAAAQAAAAAAAFJjdDEA + AAAEAAAAAFRvcCBsb25nAAAAAAAAAABMZWZ0bG9uZwAAAAAAAAAAQnRvbWxvbmcAAAAMAAAAAFJnaHRs + b25nAAAAPAAAAAZzbGljZXNWbExzAAAAAU9iamMAAAABAAAAAAAFc2xpY2UAAAASAAAAB3NsaWNlSURs + b25nAAAAAAAAAAdncm91cElEbG9uZwAAAAAAAAAGb3JpZ2luZW51bQAAAAxFU2xpY2VPcmlnaW4AAAAN + YXV0b0dlbmVyYXRlZAAAAABUeXBlZW51bQAAAApFU2xpY2VUeXBlAAAAAEltZyAAAAAGYm91bmRzT2Jq + YwAAAAEAAAAAAABSY3QxAAAABAAAAABUb3AgbG9uZwAAAAAAAAAATGVmdGxvbmcAAAAAAAAAAEJ0b21s + b25nAAAADAAAAABSZ2h0bG9uZwAAADwAAAADdXJsVEVYVAAAAAEAAAAAAABudWxsVEVYVAAAAAEAAAAA + AABNc2dlVEVYVAAAAAEAAAAAAAZhbHRUYWdURVhUAAAAAQAAAAAADmNlbGxUZXh0SXNIVE1MYm9vbAEA + AAAIY2VsbFRleHRURVhUAAAAAQAAAAAACWhvcnpBbGlnbmVudW0AAAAPRVNsaWNlSG9yekFsaWduAAAA + B2RlZmF1bHQAAAAJdmVydEFsaWduZW51bQAAAA9FU2xpY2VWZXJ0QWxpZ24AAAAHZGVmYXVsdAAAAAti + Z0NvbG9yVHlwZWVudW0AAAARRVNsaWNlQkdDb2xvclR5cGUAAAAATm9uZQAAAAl0b3BPdXRzZXRsb25n + AAAAAAAAAApsZWZ0T3V0c2V0bG9uZwAAAAAAAAAMYm90dG9tT3V0c2V0bG9uZwAAAAAAAAALcmlnaHRP + dXRzZXRsb25nAAAAAAA4QklNBCgAAAAAAAwAAAABP/AAAAAAAAA4QklNBBQAAAAAAAQAAAAEOEJJTQQM + AAAAAALaAAAAAQAAADwAAAAMAAAAtAAACHAAAAK+ABgAAf/Y/+AAEEpGSUYAAQIAAEgASAAA/+0ADEFk + b2JlX0NNAAH/7gAOQWRvYmUAZIAAAAAB/9sAhAAMCAgICQgMCQkMEQsKCxEVDwwMDxUYExMVExMYEQwM + DAwMDBEMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMAQ0LCw0ODRAODhAUDg4OFBQODg4OFBEMDAwM + DBERDAwMDAwMEQwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAz/wAARCAAMADwDASIAAhEBAxEB/90A + BAAE/8QBPwAAAQUBAQEBAQEAAAAAAAAAAwABAgQFBgcICQoLAQABBQEBAQEBAQAAAAAAAAABAAIDBAUG + BwgJCgsQAAEEAQMCBAIFBwYIBQMMMwEAAhEDBCESMQVBUWETInGBMgYUkaGxQiMkFVLBYjM0coLRQwcl + klPw4fFjczUWorKDJkSTVGRFwqN0NhfSVeJl8rOEw9N14/NGJ5SkhbSVxNTk9KW1xdXl9VZmdoaWprbG + 1ub2N0dXZ3eHl6e3x9fn9xEAAgIBAgQEAwQFBgcHBgU1AQACEQMhMRIEQVFhcSITBTKBkRShsUIjwVLR + 8DMkYuFygpJDUxVjczTxJQYWorKDByY1wtJEk1SjF2RFVTZ0ZeLys4TD03Xj80aUpIW0lcTU5PSltcXV + 5fVWZnaGlqa2xtbm9ic3R1dnd4eXp7fH/9oADAMBAAIRAxEAPwDd/amR/pH/AOcf70v2pkf6R/8AnH+9 + UUlofq/Bpevxb37UyP8ASP8A84/3pftTI/0j/wDOP96opJfq/BXr8W9+1Mj/AEj/APOP96X7UyP9I/8A + zj/eqKSX6vwV6/F3ujdbuGS2i5xfU8HVxktIG76XyW99vo27p0XGdO2/ba930dZj+q5dX+qfZPL8VAeD + 341VVr/eZhx+0bu708n/2ThCSU0EIQAAAAAAVQAAAAEBAAAADwBBAGQAbwBiAGUAIABQAGgAbwB0AG8A + cwBoAG8AcAAAABMAQQBkAG8AYgBlACAAUABoAG8AdABvAHMAaABvAHAAIABDAFMAMwAAAAEAOEJJTQQG + AAAAAAAHAAgAAQABAQD/4Q/MaHR0cDovL25zLmFkb2JlLmNvbS94YXAvMS4wLwA8P3hwYWNrZXQgYmVn + aW49Iu+7vyIgaWQ9Ilc1TTBNcENlaGlIenJlU3pOVGN6a2M5ZCI/Pg0KPHg6eG1wbWV0YSB4bWxuczp4 + PSJhZG9iZTpuczptZXRhLyIgeDp4bXB0az0iQWRvYmUgWE1QIENvcmUgNC4xLWMwMzYgNDYuMjc2NzIw + LCBNb24gRmViIDE5IDIwMDcgMjI6NDA6MDggICAgICAgICI+DQoJPHJkZjpSREYgeG1sbnM6cmRmPSJo + dHRwOi8vd3d3LnczLm9yZy8xOTk5LzAyLzIyLXJkZi1zeW50YXgtbnMjIj4NCgkJPHJkZjpEZXNjcmlw + dGlvbiByZGY6YWJvdXQ9IiIgeG1sbnM6ZGM9Imh0dHA6Ly9wdXJsLm9yZy9kYy9lbGVtZW50cy8xLjEv + IiB4bWxuczp4YXA9Imh0dHA6Ly9ucy5hZG9iZS5jb20veGFwLzEuMC8iIHhtbG5zOnhhcE1NPSJodHRw + Oi8vbnMuYWRvYmUuY29tL3hhcC8xLjAvbW0vIiB4bWxuczpzdFJlZj0iaHR0cDovL25zLmFkb2JlLmNv + bS94YXAvMS4wL3NUeXBlL1Jlc291cmNlUmVmIyIgeG1sbnM6cGhvdG9zaG9wPSJodHRwOi8vbnMuYWRv + YmUuY29tL3Bob3Rvc2hvcC8xLjAvIiB4bWxuczp0aWZmPSJodHRwOi8vbnMuYWRvYmUuY29tL3RpZmYv + MS4wLyIgeG1sbnM6ZXhpZj0iaHR0cDovL25zLmFkb2JlLmNvbS9leGlmLzEuMC8iIGRjOmZvcm1hdD0i + aW1hZ2UvanBlZyIgeGFwOkNyZWF0b3JUb29sPSJBZG9iZSBQaG90b3Nob3AgQ1MzIFdpbmRvd3MiIHhh + cDpDcmVhdGVEYXRlPSIyMDEwLTA0LTE1VDIwOjMyOjA0KzA5OjAwIiB4YXA6TW9kaWZ5RGF0ZT0iMjAx + MC0wNC0xNVQyMDozMjowNCswOTowMCIgeGFwOk1ldGFkYXRhRGF0ZT0iMjAxMC0wNC0xNVQyMDozMjow + NCswOTowMCIgeGFwTU06RG9jdW1lbnRJRD0idXVpZDpGRTRGOUVDQzgxNDhERjExQjQyNkI5NEQ4RDRD + ODAxNyIgeGFwTU06SW5zdGFuY2VJRD0idXVpZDpCNDE2RTc4MzgyNDhERjExQjQyNkI5NEQ4RDRDODAx + NyIgcGhvdG9zaG9wOkNvbG9yTW9kZT0iMyIgcGhvdG9zaG9wOklDQ1Byb2ZpbGU9InNSR0IgSUVDNjE5 + NjYtMi4xIiBwaG90b3Nob3A6SGlzdG9yeT0iIiB0aWZmOk9yaWVudGF0aW9uPSIxIiB0aWZmOlhSZXNv + bHV0aW9uPSI3MjAwMDAvMTAwMDAiIHRpZmY6WVJlc29sdXRpb249IjcyMDAwMC8xMDAwMCIgdGlmZjpS + ZXNvbHV0aW9uVW5pdD0iMiIgdGlmZjpOYXRpdmVEaWdlc3Q9IjI1NiwyNTcsMjU4LDI1OSwyNjIsMjc0 + LDI3NywyODQsNTMwLDUzMSwyODIsMjgzLDI5NiwzMDEsMzE4LDMxOSw1MjksNTMyLDMwNiwyNzAsMjcx + LDI3MiwzMDUsMzE1LDMzNDMyOzk4ODcxNzIxMUFCRjY2MTQxRDU3NEI3OUYzRjQ2QkFBIiBleGlmOlBp + eGVsWERpbWVuc2lvbj0iNjAiIGV4aWY6UGl4ZWxZRGltZW5zaW9uPSIxMiIgZXhpZjpDb2xvclNwYWNl + PSIxIiBleGlmOk5hdGl2ZURpZ2VzdD0iMzY4NjQsNDA5NjAsNDA5NjEsMzcxMjEsMzcxMjIsNDA5NjIs + NDA5NjMsMzc1MTAsNDA5NjQsMzY4NjcsMzY4NjgsMzM0MzQsMzM0MzcsMzQ4NTAsMzQ4NTIsMzQ4NTUs + MzQ4NTYsMzczNzcsMzczNzgsMzczNzksMzczODAsMzczODEsMzczODIsMzczODMsMzczODQsMzczODUs + MzczODYsMzczOTYsNDE0ODMsNDE0ODQsNDE0ODYsNDE0ODcsNDE0ODgsNDE0OTIsNDE0OTMsNDE0OTUs + NDE3MjgsNDE3MjksNDE3MzAsNDE5ODUsNDE5ODYsNDE5ODcsNDE5ODgsNDE5ODksNDE5OTAsNDE5OTEs + NDE5OTIsNDE5OTMsNDE5OTQsNDE5OTUsNDE5OTYsNDIwMTYsMCwyLDQsNSw2LDcsOCw5LDEwLDExLDEy + LDEzLDE0LDE1LDE2LDE3LDE4LDIwLDIyLDIzLDI0LDI1LDI2LDI3LDI4LDMwOzM1N0NDOEY1MDE4RURF + NDY2NjVCQkRFMUFEMkRCQkJBIj4NCgkJCTx4YXBNTTpEZXJpdmVkRnJvbSBzdFJlZjppbnN0YW5jZUlE + PSJ1dWlkOkY1NEY5RUNDODE0OERGMTFCNDI2Qjk0RDhENEM4MDE3IiBzdFJlZjpkb2N1bWVudElEPSJ1 + dWlkOkY1NEY5RUNDODE0OERGMTFCNDI2Qjk0RDhENEM4MDE3Ii8+DQoJCTwvcmRmOkRlc2NyaXB0aW9u + Pg0KCTwvcmRmOlJERj4NCjwveDp4bXBtZXRhPg0KICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgIAogICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgCiAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAKICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgIAogICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgCiAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAKICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgIAogICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgCiAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAKICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgIAogICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + CiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAKICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgIAogICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgCiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAKICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgIAogICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgCiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAKICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgIAogICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgCiAgICAgICAgICAgPD94cGFja2V0IGVuZD0ndyc/Pv/iDFhJQ0NfUFJPRklMRQABAQAA + DEhMaW5vAhAAAG1udHJSR0IgWFlaIAfOAAIACQAGADEAAGFjc3BNU0ZUAAAAAElFQyBzUkdCAAAAAAAA + AAAAAAAAAAD21gABAAAAANMtSFAgIAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAEWNwcnQAAAFQAAAAM2Rlc2MAAAGEAAAAbHd0cHQAAAHwAAAAFGJrcHQAAAIEAAAAFHJY + WVoAAAIYAAAAFGdYWVoAAAIsAAAAFGJYWVoAAAJAAAAAFGRtbmQAAAJUAAAAcGRtZGQAAALEAAAAiHZ1 + ZWQAAANMAAAAhnZpZXcAAAPUAAAAJGx1bWkAAAP4AAAAFG1lYXMAAAQMAAAAJHRlY2gAAAQwAAAADHJU + UkMAAAQ8AAAIDGdUUkMAAAQ8AAAIDGJUUkMAAAQ8AAAIDHRleHQAAAAAQ29weXJpZ2h0IChjKSAxOTk4 + IEhld2xldHQtUGFja2FyZCBDb21wYW55AABkZXNjAAAAAAAAABJzUkdCIElFQzYxOTY2LTIuMQAAAAAA + AAAAAAAAEnNSR0IgSUVDNjE5NjYtMi4xAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAABYWVogAAAAAAAA81EAAQAAAAEWzFhZWiAAAAAAAAAAAAAAAAAAAAAAWFlaIAAA + AAAAAG+iAAA49QAAA5BYWVogAAAAAAAAYpkAALeFAAAY2lhZWiAAAAAAAAAkoAAAD4QAALbPZGVzYwAA + AAAAAAAWSUVDIGh0dHA6Ly93d3cuaWVjLmNoAAAAAAAAAAAAAAAWSUVDIGh0dHA6Ly93d3cuaWVjLmNo + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAGRlc2MAAAAAAAAALklF + QyA2MTk2Ni0yLjEgRGVmYXVsdCBSR0IgY29sb3VyIHNwYWNlIC0gc1JHQgAAAAAAAAAAAAAALklFQyA2 + MTk2Ni0yLjEgRGVmYXVsdCBSR0IgY29sb3VyIHNwYWNlIC0gc1JHQgAAAAAAAAAAAAAAAAAAAAAAAAAA + AABkZXNjAAAAAAAAACxSZWZlcmVuY2UgVmlld2luZyBDb25kaXRpb24gaW4gSUVDNjE5NjYtMi4xAAAA + AAAAAAAAAAAsUmVmZXJlbmNlIFZpZXdpbmcgQ29uZGl0aW9uIGluIElFQzYxOTY2LTIuMQAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAdmlldwAAAAAAE6T+ABRfLgAQzxQAA+3MAAQTCwADXJ4AAAABWFlaIAAA + AAAATAlWAFAAAABXH+dtZWFzAAAAAAAAAAEAAAAAAAAAAAAAAAAAAAAAAAACjwAAAAJzaWcgAAAAAENS + VCBjdXJ2AAAAAAAABAAAAAAFAAoADwAUABkAHgAjACgALQAyADcAOwBAAEUASgBPAFQAWQBeAGMAaABt + AHIAdwB8AIEAhgCLAJAAlQCaAJ8ApACpAK4AsgC3ALwAwQDGAMsA0ADVANsA4ADlAOsA8AD2APsBAQEH + AQ0BEwEZAR8BJQErATIBOAE+AUUBTAFSAVkBYAFnAW4BdQF8AYMBiwGSAZoBoQGpAbEBuQHBAckB0QHZ + AeEB6QHyAfoCAwIMAhQCHQImAi8COAJBAksCVAJdAmcCcQJ6AoQCjgKYAqICrAK2AsECywLVAuAC6wL1 + AwADCwMWAyEDLQM4A0MDTwNaA2YDcgN+A4oDlgOiA64DugPHA9MD4APsA/kEBgQTBCAELQQ7BEgEVQRj + BHEEfgSMBJoEqAS2BMQE0wThBPAE/gUNBRwFKwU6BUkFWAVnBXcFhgWWBaYFtQXFBdUF5QX2BgYGFgYn + BjcGSAZZBmoGewaMBp0GrwbABtEG4wb1BwcHGQcrBz0HTwdhB3QHhgeZB6wHvwfSB+UH+AgLCB8IMghG + CFoIbgiCCJYIqgi+CNII5wj7CRAJJQk6CU8JZAl5CY8JpAm6Cc8J5Qn7ChEKJwo9ClQKagqBCpgKrgrF + CtwK8wsLCyILOQtRC2kLgAuYC7ALyAvhC/kMEgwqDEMMXAx1DI4MpwzADNkM8w0NDSYNQA1aDXQNjg2p + DcMN3g34DhMOLg5JDmQOfw6bDrYO0g7uDwkPJQ9BD14Peg+WD7MPzw/sEAkQJhBDEGEQfhCbELkQ1xD1 + ERMRMRFPEW0RjBGqEckR6BIHEiYSRRJkEoQSoxLDEuMTAxMjE0MTYxODE6QTxRPlFAYUJxRJFGoUixSt + FM4U8BUSFTQVVhV4FZsVvRXgFgMWJhZJFmwWjxayFtYW+hcdF0EXZReJF64X0hf3GBsYQBhlGIoYrxjV + GPoZIBlFGWsZkRm3Gd0aBBoqGlEadxqeGsUa7BsUGzsbYxuKG7Ib2hwCHCocUhx7HKMczBz1HR4dRx1w + HZkdwx3sHhYeQB5qHpQevh7pHxMfPh9pH5Qfvx/qIBUgQSBsIJggxCDwIRwhSCF1IaEhziH7IiciVSKC + Iq8i3SMKIzgjZiOUI8Ij8CQfJE0kfCSrJNolCSU4JWgllyXHJfcmJyZXJocmtyboJxgnSSd6J6sn3CgN + KD8ocSiiKNQpBik4KWspnSnQKgIqNSpoKpsqzysCKzYraSudK9EsBSw5LG4soizXLQwtQS12Last4S4W + Lkwugi63Lu4vJC9aL5Evxy/+MDUwbDCkMNsxEjFKMYIxujHyMioyYzKbMtQzDTNGM38zuDPxNCs0ZTSe + NNg1EzVNNYc1wjX9Njc2cjauNuk3JDdgN5w31zgUOFA4jDjIOQU5Qjl/Obw5+To2OnQ6sjrvOy07azuq + O+g8JzxlPKQ84z0iPWE9oT3gPiA+YD6gPuA/IT9hP6I/4kAjQGRApkDnQSlBakGsQe5CMEJyQrVC90M6 + Q31DwEQDREdEikTORRJFVUWaRd5GIkZnRqtG8Ec1R3tHwEgFSEtIkUjXSR1JY0mpSfBKN0p9SsRLDEtT + S5pL4kwqTHJMuk0CTUpNk03cTiVObk63TwBPSU+TT91QJ1BxULtRBlFQUZtR5lIxUnxSx1MTU19TqlP2 + VEJUj1TbVShVdVXCVg9WXFapVvdXRFeSV+BYL1h9WMtZGllpWbhaB1pWWqZa9VtFW5Vb5Vw1XIZc1l0n + XXhdyV4aXmxevV8PX2Ffs2AFYFdgqmD8YU9homH1YklinGLwY0Njl2PrZEBklGTpZT1lkmXnZj1mkmbo + Zz1nk2fpaD9olmjsaUNpmmnxakhqn2r3a09rp2v/bFdsr20IbWBtuW4SbmtuxG8eb3hv0XArcIZw4HE6 + cZVx8HJLcqZzAXNdc7h0FHRwdMx1KHWFdeF2Pnabdvh3VnezeBF4bnjMeSp5iXnnekZ6pXsEe2N7wnwh + fIF84X1BfaF+AX5ifsJ/I3+Ef+WAR4CogQqBa4HNgjCCkoL0g1eDuoQdhICE44VHhauGDoZyhteHO4ef + iASIaYjOiTOJmYn+imSKyoswi5aL/IxjjMqNMY2Yjf+OZo7OjzaPnpAGkG6Q1pE/kaiSEZJ6kuOTTZO2 + lCCUipT0lV+VyZY0lp+XCpd1l+CYTJi4mSSZkJn8mmia1ZtCm6+cHJyJnPedZJ3SnkCerp8dn4uf+qBp + oNihR6G2oiailqMGo3aj5qRWpMelOKWpphqmi6b9p26n4KhSqMSpN6mpqhyqj6sCq3Wr6axcrNCtRK24 + ri2uoa8Wr4uwALB1sOqxYLHWskuywrM4s660JbSctRO1irYBtnm28Ldot+C4WbjRuUq5wro7urW7Lrun + vCG8m70VvY++Cr6Evv+/er/1wHDA7MFnwePCX8Lbw1jD1MRRxM7FS8XIxkbGw8dBx7/IPci8yTrJuco4 + yrfLNsu2zDXMtc01zbXONs62zzfPuNA50LrRPNG+0j/SwdNE08bUSdTL1U7V0dZV1tjXXNfg2GTY6Nls + 2fHadtr724DcBdyK3RDdlt4c3qLfKd+v4DbgveFE4cziU+Lb42Pj6+Rz5PzlhOYN5pbnH+ep6DLovOlG + 6dDqW+rl63Dr++yG7RHtnO4o7rTvQO/M8Fjw5fFy8f/yjPMZ86f0NPTC9VD13vZt9vv3ivgZ+Kj5OPnH + +lf65/t3/Af8mP0p/br+S/7c/23////bAEMAAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEB + AQEBAQEBAQEBAQICAgICAgICAgICAwMDAwMDAwMDA//bAEMBAQEBAQEBAQEBAQICAQICAwMDAwMDAwMD + AwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDA//AABEIAAwAPAMBEQACEQEDEQH/ + xAAfAAABBQEBAQEBAQAAAAAAAAAAAQIDBAUGBwgJCgv/xAC1EAACAQMDAgQDBQUEBAAAAX0BAgMABBEF + EiExQQYTUWEHInEUMoGRoQgjQrHBFVLR8CQzYnKCCQoWFxgZGiUmJygpKjQ1Njc4OTpDREVGR0hJSlNU + VVZXWFlaY2RlZmdoaWpzdHV2d3h5eoOEhYaHiImKkpOUlZaXmJmaoqOkpaanqKmqsrO0tba3uLm6wsPE + xcbHyMnK0tPU1dbX2Nna4eLj5OXm5+jp6vHy8/T19vf4+fr/xAAfAQADAQEBAQEBAQEBAAAAAAAAAQID + BAUGBwgJCgv/xAC1EQACAQIEBAMEBwUEBAABAncAAQIDEQQFITEGEkFRB2FxEyIygQgUQpGhscEJIzNS + 8BVictEKFiQ04SXxFxgZGiYnKCkqNTY3ODk6Q0RFRkdISUpTVFVWV1hZWmNkZWZnaGlqc3R1dnd4eXqC + g4SFhoeIiYqSk5SVlpeYmZqio6Slpqeoqaqys7S1tre4ubrCw8TFxsfIycrS09TV1tfY2dri4+Tl5ufo + 6ery8/T19vf4+fr/2gAMAwEAAhEDEQA/AP1ZH7UPxEAA/wCEw8bnj/ob9f8A/k+v7U/1Nyj/AKF+G/8A + BUP/AJE/llcSZlZf7dX/APBk/wDMX/hqH4if9Df43/8ACv1//wCT6P8AU3Kf+hfhv/BUP/kQ/wBZcy/6 + Dq//AIMn/mH/AA1D8RP+hv8AG/8A4V+v/wDyfR/qblP/AEL8N/4Kh/8AIh/rLmX/AEHV/wDwZP8AzD/h + qH4if9Df43/8K/X/AP5Po/1Nyn/oX4b/AMFQ/wDkQ/1lzL/oOr/+DJ/5h/w1D8RP+hv8b/8AhX6//wDJ + 9H+puU/9C/Df+Cof/Ih/rLmX/QdX/wDBk/8AMT/hqH4if9Df43/8K/X/AP5Po/1Nyn/oX4b/AMFQ/wDk + Q/1kzL/oOr/+DJ/5n2R+xz+234zt/iRpnw+8a6vqXiDwZ4gs9baObXr+bUr/AMPajpmkX2tQ3FlqV2Zb + 57K7XT2t3tXkaJWkV4whVxJ+beJfAuU4Th/FZ/hKEKOMw8qd+SKjGcZzjTs4q0bpyUlJK7s073VvuuBO + LMxxGcYfJ8TWlVw1ZTtzu7hKMJTupPWzUWnFu2qatrf9aP8AhfXgv+zv7U89/sfm+V5207N+M43fSv50 + P2w/kwr/AEFP42CgAoAKACgAoA9s/Z0/s7/hcng3+1vP/s7Ov/avs2PP2f8ACL63t2buP9ZjP+zmvz7x + U/5IPPf+4H/qRRPsvD//AJK7KP8AuL/6ZqH7/wD/ABaT/hUfb7Ht/wBj7V9p8v8A9Cr+Oz+lz//Z + + + + + /9j/4AAQSkZJRgABAgEASABIAAD/7gAOQWRvYmUAZAAAAAAB/+ED5kV4aWYAAE1NACoAAAAIAAcBEgAD + AAAAAQABAAABGgAFAAAAAQAAAGIBGwAFAAAAAQAAAGoBKAADAAAAAQACAAABMQACAAAAHAAAAHIBMgAC + AAAAFAAAAI6HaQAEAAAAAQAAAKIAAADCAEgAAAABAAAASAAAAAEAAEFkb2JlIFBob3Rvc2hvcCBDUzMg + V2luZG93cwAyMDEwOjA0OjE1IDIwOjMyOjA0AAACoAIABAAAAAEAAAA8oAMABAAAAAEAAAAMAAAAAAAA + AAYBAwADAAAAAQAGAAABGgAFAAAAAQAAARABGwAFAAAAAQAAARgBKAADAAAAAQACAAACAQAEAAAAAQAA + ASACAgAEAAAAAQAAAr4AAAAAAAAASAAAAAEAAABIAAAAAf/Y/+AAEEpGSUYAAQIAAEgASAAA/+0ADEFk + b2JlX0NNAAH/7gAOQWRvYmUAZIAAAAAB/9sAhAAMCAgICQgMCQkMEQsKCxEVDwwMDxUYExMVExMYEQwM + DAwMDBEMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMAQ0LCw0ODRAODhAUDg4OFBQODg4OFBEMDAwM + DBERDAwMDAwMEQwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAz/wAARCAAMADwDASIAAhEBAxEB/90A + BAAE/8QBPwAAAQUBAQEBAQEAAAAAAAAAAwABAgQFBgcICQoLAQABBQEBAQEBAQAAAAAAAAABAAIDBAUG + BwgJCgsQAAEEAQMCBAIFBwYIBQMMMwEAAhEDBCESMQVBUWETInGBMgYUkaGxQiMkFVLBYjM0coLRQwcl + klPw4fFjczUWorKDJkSTVGRFwqN0NhfSVeJl8rOEw9N14/NGJ5SkhbSVxNTk9KW1xdXl9VZmdoaWprbG + 1ub2N0dXZ3eHl6e3x9fn9xEAAgIBAgQEAwQFBgcHBgU1AQACEQMhMRIEQVFhcSITBTKBkRShsUIjwVLR + 8DMkYuFygpJDUxVjczTxJQYWorKDByY1wtJEk1SjF2RFVTZ0ZeLys4TD03Xj80aUpIW0lcTU5PSltcXV + 5fVWZnaGlqa2xtbm9ic3R1dnd4eXp7fH/9oADAMBAAIRAxEAPwDd/amR/pH/AOcf70v2pkf6R/8AnH+9 + UUlofq/Bpevxb37UyP8ASP8A84/3pftTI/0j/wDOP96opJfq/BXr8W9+1Mj/AEj/APOP96X7UyP9I/8A + zj/eqKSX6vwV6/F3ujdbuGS2i5xfU8HVxktIG76XyW99vo27p0XGdO2/ba930dZj+q5dX+qfZPL8VAeD + 341VVr/eZhx+0bu708n/2f/tCSBQaG90b3Nob3AgMy4wADhCSU0EJQAAAAAAEAAAAAAAAAAAAAAAAAAA + AAA4QklNBC8AAAAAAErgYgEASAAAAEgAAAAAAAAAAAAAANACAABAAgAAAAAAAAAAAAAYAwAAZAIAAAAB + wAMAALAEAAABAA8nAQBsbHVuAAAAAAAAAAAAADhCSU0D7QAAAAAAEABIAAAAAQACAEgAAAABAAI4QklN + BCYAAAAAAA4AAAAAAAAAAAAAP4AAADhCSU0EDQAAAAAABAAAAHg4QklNBBkAAAAAAAQAAAAeOEJJTQPz + AAAAAAAJAAAAAAAAAAABADhCSU0ECgAAAAAAAQAAOEJJTScQAAAAAAAKAAEAAAAAAAAAAjhCSU0D9QAA + AAAASAAvZmYAAQBsZmYABgAAAAAAAQAvZmYAAQChmZoABgAAAAAAAQAyAAAAAQBaAAAABgAAAAAAAQA1 + AAAAAQAtAAAABgAAAAAAAThCSU0D+AAAAAAAcAAA/////////////////////////////wPoAAAAAP// + //////////////////////////8D6AAAAAD/////////////////////////////A+gAAAAA//////// + /////////////////////wPoAAA4QklNBAAAAAAAAAIAAjhCSU0EAgAAAAAABgAAAAAAADhCSU0EMAAA + AAAAAwEBAQA4QklNBC0AAAAAAAYAAQAAAAM4QklNBAgAAAAAABAAAAABAAACQAAAAkAAAAAAOEJJTQQe + AAAAAAAEAAAAADhCSU0EGgAAAAADPwAAAAYAAAAAAAAAAAAAAAwAAAA8AAAABbs0yBwALQAxADIAAAAB + AAAAAAAAAAAAAAAAAAAAAAAAAAEAAAAAAAAAAAAAADwAAAAMAAAAAAAAAAAAAAAAAAAAAAEAAAAAAAAA + AAAAAAAAAAAAAAAAEAAAAAEAAAAAAABudWxsAAAAAgAAAAZib3VuZHNPYmpjAAAAAQAAAAAAAFJjdDEA + AAAEAAAAAFRvcCBsb25nAAAAAAAAAABMZWZ0bG9uZwAAAAAAAAAAQnRvbWxvbmcAAAAMAAAAAFJnaHRs + b25nAAAAPAAAAAZzbGljZXNWbExzAAAAAU9iamMAAAABAAAAAAAFc2xpY2UAAAASAAAAB3NsaWNlSURs + b25nAAAAAAAAAAdncm91cElEbG9uZwAAAAAAAAAGb3JpZ2luZW51bQAAAAxFU2xpY2VPcmlnaW4AAAAN + YXV0b0dlbmVyYXRlZAAAAABUeXBlZW51bQAAAApFU2xpY2VUeXBlAAAAAEltZyAAAAAGYm91bmRzT2Jq + YwAAAAEAAAAAAABSY3QxAAAABAAAAABUb3AgbG9uZwAAAAAAAAAATGVmdGxvbmcAAAAAAAAAAEJ0b21s + b25nAAAADAAAAABSZ2h0bG9uZwAAADwAAAADdXJsVEVYVAAAAAEAAAAAAABudWxsVEVYVAAAAAEAAAAA + AABNc2dlVEVYVAAAAAEAAAAAAAZhbHRUYWdURVhUAAAAAQAAAAAADmNlbGxUZXh0SXNIVE1MYm9vbAEA + AAAIY2VsbFRleHRURVhUAAAAAQAAAAAACWhvcnpBbGlnbmVudW0AAAAPRVNsaWNlSG9yekFsaWduAAAA + B2RlZmF1bHQAAAAJdmVydEFsaWduZW51bQAAAA9FU2xpY2VWZXJ0QWxpZ24AAAAHZGVmYXVsdAAAAAti + Z0NvbG9yVHlwZWVudW0AAAARRVNsaWNlQkdDb2xvclR5cGUAAAAATm9uZQAAAAl0b3BPdXRzZXRsb25n + AAAAAAAAAApsZWZ0T3V0c2V0bG9uZwAAAAAAAAAMYm90dG9tT3V0c2V0bG9uZwAAAAAAAAALcmlnaHRP + dXRzZXRsb25nAAAAAAA4QklNBCgAAAAAAAwAAAABP/AAAAAAAAA4QklNBBQAAAAAAAQAAAAEOEJJTQQM + AAAAAALaAAAAAQAAADwAAAAMAAAAtAAACHAAAAK+ABgAAf/Y/+AAEEpGSUYAAQIAAEgASAAA/+0ADEFk + b2JlX0NNAAH/7gAOQWRvYmUAZIAAAAAB/9sAhAAMCAgICQgMCQkMEQsKCxEVDwwMDxUYExMVExMYEQwM + DAwMDBEMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMAQ0LCw0ODRAODhAUDg4OFBQODg4OFBEMDAwM + DBERDAwMDAwMEQwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAz/wAARCAAMADwDASIAAhEBAxEB/90A + BAAE/8QBPwAAAQUBAQEBAQEAAAAAAAAAAwABAgQFBgcICQoLAQABBQEBAQEBAQAAAAAAAAABAAIDBAUG + BwgJCgsQAAEEAQMCBAIFBwYIBQMMMwEAAhEDBCESMQVBUWETInGBMgYUkaGxQiMkFVLBYjM0coLRQwcl + klPw4fFjczUWorKDJkSTVGRFwqN0NhfSVeJl8rOEw9N14/NGJ5SkhbSVxNTk9KW1xdXl9VZmdoaWprbG + 1ub2N0dXZ3eHl6e3x9fn9xEAAgIBAgQEAwQFBgcHBgU1AQACEQMhMRIEQVFhcSITBTKBkRShsUIjwVLR + 8DMkYuFygpJDUxVjczTxJQYWorKDByY1wtJEk1SjF2RFVTZ0ZeLys4TD03Xj80aUpIW0lcTU5PSltcXV + 5fVWZnaGlqa2xtbm9ic3R1dnd4eXp7fH/9oADAMBAAIRAxEAPwDd/amR/pH/AOcf70v2pkf6R/8AnH+9 + UUlofq/Bpevxb37UyP8ASP8A84/3pftTI/0j/wDOP96opJfq/BXr8W9+1Mj/AEj/APOP96X7UyP9I/8A + zj/eqKSX6vwV6/F3ujdbuGS2i5xfU8HVxktIG76XyW99vo27p0XGdO2/ba930dZj+q5dX+qfZPL8VAeD + 341VVr/eZhx+0bu708n/2ThCSU0EIQAAAAAAVQAAAAEBAAAADwBBAGQAbwBiAGUAIABQAGgAbwB0AG8A + cwBoAG8AcAAAABMAQQBkAG8AYgBlACAAUABoAG8AdABvAHMAaABvAHAAIABDAFMAMwAAAAEAOEJJTQQG + AAAAAAAHAAgAAQABAQD/4Q/MaHR0cDovL25zLmFkb2JlLmNvbS94YXAvMS4wLwA8P3hwYWNrZXQgYmVn + aW49Iu+7vyIgaWQ9Ilc1TTBNcENlaGlIenJlU3pOVGN6a2M5ZCI/Pg0KPHg6eG1wbWV0YSB4bWxuczp4 + PSJhZG9iZTpuczptZXRhLyIgeDp4bXB0az0iQWRvYmUgWE1QIENvcmUgNC4xLWMwMzYgNDYuMjc2NzIw + LCBNb24gRmViIDE5IDIwMDcgMjI6NDA6MDggICAgICAgICI+DQoJPHJkZjpSREYgeG1sbnM6cmRmPSJo + dHRwOi8vd3d3LnczLm9yZy8xOTk5LzAyLzIyLXJkZi1zeW50YXgtbnMjIj4NCgkJPHJkZjpEZXNjcmlw + dGlvbiByZGY6YWJvdXQ9IiIgeG1sbnM6ZGM9Imh0dHA6Ly9wdXJsLm9yZy9kYy9lbGVtZW50cy8xLjEv + IiB4bWxuczp4YXA9Imh0dHA6Ly9ucy5hZG9iZS5jb20veGFwLzEuMC8iIHhtbG5zOnhhcE1NPSJodHRw + Oi8vbnMuYWRvYmUuY29tL3hhcC8xLjAvbW0vIiB4bWxuczpzdFJlZj0iaHR0cDovL25zLmFkb2JlLmNv + bS94YXAvMS4wL3NUeXBlL1Jlc291cmNlUmVmIyIgeG1sbnM6cGhvdG9zaG9wPSJodHRwOi8vbnMuYWRv + YmUuY29tL3Bob3Rvc2hvcC8xLjAvIiB4bWxuczp0aWZmPSJodHRwOi8vbnMuYWRvYmUuY29tL3RpZmYv + MS4wLyIgeG1sbnM6ZXhpZj0iaHR0cDovL25zLmFkb2JlLmNvbS9leGlmLzEuMC8iIGRjOmZvcm1hdD0i + aW1hZ2UvanBlZyIgeGFwOkNyZWF0b3JUb29sPSJBZG9iZSBQaG90b3Nob3AgQ1MzIFdpbmRvd3MiIHhh + cDpDcmVhdGVEYXRlPSIyMDEwLTA0LTE1VDIwOjMyOjA0KzA5OjAwIiB4YXA6TW9kaWZ5RGF0ZT0iMjAx + MC0wNC0xNVQyMDozMjowNCswOTowMCIgeGFwOk1ldGFkYXRhRGF0ZT0iMjAxMC0wNC0xNVQyMDozMjow + NCswOTowMCIgeGFwTU06RG9jdW1lbnRJRD0idXVpZDpGRTRGOUVDQzgxNDhERjExQjQyNkI5NEQ4RDRD + ODAxNyIgeGFwTU06SW5zdGFuY2VJRD0idXVpZDpCNDE2RTc4MzgyNDhERjExQjQyNkI5NEQ4RDRDODAx + NyIgcGhvdG9zaG9wOkNvbG9yTW9kZT0iMyIgcGhvdG9zaG9wOklDQ1Byb2ZpbGU9InNSR0IgSUVDNjE5 + NjYtMi4xIiBwaG90b3Nob3A6SGlzdG9yeT0iIiB0aWZmOk9yaWVudGF0aW9uPSIxIiB0aWZmOlhSZXNv + bHV0aW9uPSI3MjAwMDAvMTAwMDAiIHRpZmY6WVJlc29sdXRpb249IjcyMDAwMC8xMDAwMCIgdGlmZjpS + ZXNvbHV0aW9uVW5pdD0iMiIgdGlmZjpOYXRpdmVEaWdlc3Q9IjI1NiwyNTcsMjU4LDI1OSwyNjIsMjc0 + LDI3NywyODQsNTMwLDUzMSwyODIsMjgzLDI5NiwzMDEsMzE4LDMxOSw1MjksNTMyLDMwNiwyNzAsMjcx + LDI3MiwzMDUsMzE1LDMzNDMyOzk4ODcxNzIxMUFCRjY2MTQxRDU3NEI3OUYzRjQ2QkFBIiBleGlmOlBp + eGVsWERpbWVuc2lvbj0iNjAiIGV4aWY6UGl4ZWxZRGltZW5zaW9uPSIxMiIgZXhpZjpDb2xvclNwYWNl + PSIxIiBleGlmOk5hdGl2ZURpZ2VzdD0iMzY4NjQsNDA5NjAsNDA5NjEsMzcxMjEsMzcxMjIsNDA5NjIs + NDA5NjMsMzc1MTAsNDA5NjQsMzY4NjcsMzY4NjgsMzM0MzQsMzM0MzcsMzQ4NTAsMzQ4NTIsMzQ4NTUs + MzQ4NTYsMzczNzcsMzczNzgsMzczNzksMzczODAsMzczODEsMzczODIsMzczODMsMzczODQsMzczODUs + MzczODYsMzczOTYsNDE0ODMsNDE0ODQsNDE0ODYsNDE0ODcsNDE0ODgsNDE0OTIsNDE0OTMsNDE0OTUs + NDE3MjgsNDE3MjksNDE3MzAsNDE5ODUsNDE5ODYsNDE5ODcsNDE5ODgsNDE5ODksNDE5OTAsNDE5OTEs + NDE5OTIsNDE5OTMsNDE5OTQsNDE5OTUsNDE5OTYsNDIwMTYsMCwyLDQsNSw2LDcsOCw5LDEwLDExLDEy + LDEzLDE0LDE1LDE2LDE3LDE4LDIwLDIyLDIzLDI0LDI1LDI2LDI3LDI4LDMwOzM1N0NDOEY1MDE4RURF + NDY2NjVCQkRFMUFEMkRCQkJBIj4NCgkJCTx4YXBNTTpEZXJpdmVkRnJvbSBzdFJlZjppbnN0YW5jZUlE + PSJ1dWlkOkY1NEY5RUNDODE0OERGMTFCNDI2Qjk0RDhENEM4MDE3IiBzdFJlZjpkb2N1bWVudElEPSJ1 + dWlkOkY1NEY5RUNDODE0OERGMTFCNDI2Qjk0RDhENEM4MDE3Ii8+DQoJCTwvcmRmOkRlc2NyaXB0aW9u + Pg0KCTwvcmRmOlJERj4NCjwveDp4bXBtZXRhPg0KICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgIAogICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgCiAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAKICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgIAogICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgCiAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAKICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgIAogICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgCiAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAKICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgIAogICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + CiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAKICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgIAogICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgCiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAKICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgIAogICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgCiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAKICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgIAogICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgCiAgICAgICAgICAgPD94cGFja2V0IGVuZD0ndyc/Pv/iDFhJQ0NfUFJPRklMRQABAQAA + DEhMaW5vAhAAAG1udHJSR0IgWFlaIAfOAAIACQAGADEAAGFjc3BNU0ZUAAAAAElFQyBzUkdCAAAAAAAA + AAAAAAAAAAD21gABAAAAANMtSFAgIAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAEWNwcnQAAAFQAAAAM2Rlc2MAAAGEAAAAbHd0cHQAAAHwAAAAFGJrcHQAAAIEAAAAFHJY + WVoAAAIYAAAAFGdYWVoAAAIsAAAAFGJYWVoAAAJAAAAAFGRtbmQAAAJUAAAAcGRtZGQAAALEAAAAiHZ1 + ZWQAAANMAAAAhnZpZXcAAAPUAAAAJGx1bWkAAAP4AAAAFG1lYXMAAAQMAAAAJHRlY2gAAAQwAAAADHJU + UkMAAAQ8AAAIDGdUUkMAAAQ8AAAIDGJUUkMAAAQ8AAAIDHRleHQAAAAAQ29weXJpZ2h0IChjKSAxOTk4 + IEhld2xldHQtUGFja2FyZCBDb21wYW55AABkZXNjAAAAAAAAABJzUkdCIElFQzYxOTY2LTIuMQAAAAAA + AAAAAAAAEnNSR0IgSUVDNjE5NjYtMi4xAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAABYWVogAAAAAAAA81EAAQAAAAEWzFhZWiAAAAAAAAAAAAAAAAAAAAAAWFlaIAAA + AAAAAG+iAAA49QAAA5BYWVogAAAAAAAAYpkAALeFAAAY2lhZWiAAAAAAAAAkoAAAD4QAALbPZGVzYwAA + AAAAAAAWSUVDIGh0dHA6Ly93d3cuaWVjLmNoAAAAAAAAAAAAAAAWSUVDIGh0dHA6Ly93d3cuaWVjLmNo + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAGRlc2MAAAAAAAAALklF + QyA2MTk2Ni0yLjEgRGVmYXVsdCBSR0IgY29sb3VyIHNwYWNlIC0gc1JHQgAAAAAAAAAAAAAALklFQyA2 + MTk2Ni0yLjEgRGVmYXVsdCBSR0IgY29sb3VyIHNwYWNlIC0gc1JHQgAAAAAAAAAAAAAAAAAAAAAAAAAA + AABkZXNjAAAAAAAAACxSZWZlcmVuY2UgVmlld2luZyBDb25kaXRpb24gaW4gSUVDNjE5NjYtMi4xAAAA + AAAAAAAAAAAsUmVmZXJlbmNlIFZpZXdpbmcgQ29uZGl0aW9uIGluIElFQzYxOTY2LTIuMQAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAdmlldwAAAAAAE6T+ABRfLgAQzxQAA+3MAAQTCwADXJ4AAAABWFlaIAAA + AAAATAlWAFAAAABXH+dtZWFzAAAAAAAAAAEAAAAAAAAAAAAAAAAAAAAAAAACjwAAAAJzaWcgAAAAAENS + VCBjdXJ2AAAAAAAABAAAAAAFAAoADwAUABkAHgAjACgALQAyADcAOwBAAEUASgBPAFQAWQBeAGMAaABt + AHIAdwB8AIEAhgCLAJAAlQCaAJ8ApACpAK4AsgC3ALwAwQDGAMsA0ADVANsA4ADlAOsA8AD2APsBAQEH + AQ0BEwEZAR8BJQErATIBOAE+AUUBTAFSAVkBYAFnAW4BdQF8AYMBiwGSAZoBoQGpAbEBuQHBAckB0QHZ + AeEB6QHyAfoCAwIMAhQCHQImAi8COAJBAksCVAJdAmcCcQJ6AoQCjgKYAqICrAK2AsECywLVAuAC6wL1 + AwADCwMWAyEDLQM4A0MDTwNaA2YDcgN+A4oDlgOiA64DugPHA9MD4APsA/kEBgQTBCAELQQ7BEgEVQRj + BHEEfgSMBJoEqAS2BMQE0wThBPAE/gUNBRwFKwU6BUkFWAVnBXcFhgWWBaYFtQXFBdUF5QX2BgYGFgYn + BjcGSAZZBmoGewaMBp0GrwbABtEG4wb1BwcHGQcrBz0HTwdhB3QHhgeZB6wHvwfSB+UH+AgLCB8IMghG + CFoIbgiCCJYIqgi+CNII5wj7CRAJJQk6CU8JZAl5CY8JpAm6Cc8J5Qn7ChEKJwo9ClQKagqBCpgKrgrF + CtwK8wsLCyILOQtRC2kLgAuYC7ALyAvhC/kMEgwqDEMMXAx1DI4MpwzADNkM8w0NDSYNQA1aDXQNjg2p + DcMN3g34DhMOLg5JDmQOfw6bDrYO0g7uDwkPJQ9BD14Peg+WD7MPzw/sEAkQJhBDEGEQfhCbELkQ1xD1 + ERMRMRFPEW0RjBGqEckR6BIHEiYSRRJkEoQSoxLDEuMTAxMjE0MTYxODE6QTxRPlFAYUJxRJFGoUixSt + FM4U8BUSFTQVVhV4FZsVvRXgFgMWJhZJFmwWjxayFtYW+hcdF0EXZReJF64X0hf3GBsYQBhlGIoYrxjV + GPoZIBlFGWsZkRm3Gd0aBBoqGlEadxqeGsUa7BsUGzsbYxuKG7Ib2hwCHCocUhx7HKMczBz1HR4dRx1w + HZkdwx3sHhYeQB5qHpQevh7pHxMfPh9pH5Qfvx/qIBUgQSBsIJggxCDwIRwhSCF1IaEhziH7IiciVSKC + Iq8i3SMKIzgjZiOUI8Ij8CQfJE0kfCSrJNolCSU4JWgllyXHJfcmJyZXJocmtyboJxgnSSd6J6sn3CgN + KD8ocSiiKNQpBik4KWspnSnQKgIqNSpoKpsqzysCKzYraSudK9EsBSw5LG4soizXLQwtQS12Last4S4W + Lkwugi63Lu4vJC9aL5Evxy/+MDUwbDCkMNsxEjFKMYIxujHyMioyYzKbMtQzDTNGM38zuDPxNCs0ZTSe + NNg1EzVNNYc1wjX9Njc2cjauNuk3JDdgN5w31zgUOFA4jDjIOQU5Qjl/Obw5+To2OnQ6sjrvOy07azuq + O+g8JzxlPKQ84z0iPWE9oT3gPiA+YD6gPuA/IT9hP6I/4kAjQGRApkDnQSlBakGsQe5CMEJyQrVC90M6 + Q31DwEQDREdEikTORRJFVUWaRd5GIkZnRqtG8Ec1R3tHwEgFSEtIkUjXSR1JY0mpSfBKN0p9SsRLDEtT + S5pL4kwqTHJMuk0CTUpNk03cTiVObk63TwBPSU+TT91QJ1BxULtRBlFQUZtR5lIxUnxSx1MTU19TqlP2 + VEJUj1TbVShVdVXCVg9WXFapVvdXRFeSV+BYL1h9WMtZGllpWbhaB1pWWqZa9VtFW5Vb5Vw1XIZc1l0n + XXhdyV4aXmxevV8PX2Ffs2AFYFdgqmD8YU9homH1YklinGLwY0Njl2PrZEBklGTpZT1lkmXnZj1mkmbo + Zz1nk2fpaD9olmjsaUNpmmnxakhqn2r3a09rp2v/bFdsr20IbWBtuW4SbmtuxG8eb3hv0XArcIZw4HE6 + cZVx8HJLcqZzAXNdc7h0FHRwdMx1KHWFdeF2Pnabdvh3VnezeBF4bnjMeSp5iXnnekZ6pXsEe2N7wnwh + fIF84X1BfaF+AX5ifsJ/I3+Ef+WAR4CogQqBa4HNgjCCkoL0g1eDuoQdhICE44VHhauGDoZyhteHO4ef + iASIaYjOiTOJmYn+imSKyoswi5aL/IxjjMqNMY2Yjf+OZo7OjzaPnpAGkG6Q1pE/kaiSEZJ6kuOTTZO2 + lCCUipT0lV+VyZY0lp+XCpd1l+CYTJi4mSSZkJn8mmia1ZtCm6+cHJyJnPedZJ3SnkCerp8dn4uf+qBp + oNihR6G2oiailqMGo3aj5qRWpMelOKWpphqmi6b9p26n4KhSqMSpN6mpqhyqj6sCq3Wr6axcrNCtRK24 + ri2uoa8Wr4uwALB1sOqxYLHWskuywrM4s660JbSctRO1irYBtnm28Ldot+C4WbjRuUq5wro7urW7Lrun + vCG8m70VvY++Cr6Evv+/er/1wHDA7MFnwePCX8Lbw1jD1MRRxM7FS8XIxkbGw8dBx7/IPci8yTrJuco4 + yrfLNsu2zDXMtc01zbXONs62zzfPuNA50LrRPNG+0j/SwdNE08bUSdTL1U7V0dZV1tjXXNfg2GTY6Nls + 2fHadtr724DcBdyK3RDdlt4c3qLfKd+v4DbgveFE4cziU+Lb42Pj6+Rz5PzlhOYN5pbnH+ep6DLovOlG + 6dDqW+rl63Dr++yG7RHtnO4o7rTvQO/M8Fjw5fFy8f/yjPMZ86f0NPTC9VD13vZt9vv3ivgZ+Kj5OPnH + +lf65/t3/Af8mP0p/br+S/7c/23////bAEMAAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEB + AQEBAQEBAQEBAQICAgICAgICAgICAwMDAwMDAwMDA//bAEMBAQEBAQEBAQEBAQICAQICAwMDAwMDAwMD + AwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDA//AABEIAAwAPAMBEQACEQEDEQH/ + xAAfAAABBQEBAQEBAQAAAAAAAAAAAQIDBAUGBwgJCgv/xAC1EAACAQMDAgQDBQUEBAAAAX0BAgMABBEF + EiExQQYTUWEHInEUMoGRoQgjQrHBFVLR8CQzYnKCCQoWFxgZGiUmJygpKjQ1Njc4OTpDREVGR0hJSlNU + VVZXWFlaY2RlZmdoaWpzdHV2d3h5eoOEhYaHiImKkpOUlZaXmJmaoqOkpaanqKmqsrO0tba3uLm6wsPE + xcbHyMnK0tPU1dbX2Nna4eLj5OXm5+jp6vHy8/T19vf4+fr/xAAfAQADAQEBAQEBAQEBAAAAAAAAAQID + BAUGBwgJCgv/xAC1EQACAQIEBAMEBwUEBAABAncAAQIDEQQFITEGEkFRB2FxEyIygQgUQpGhscEJIzNS + 8BVictEKFiQ04SXxFxgZGiYnKCkqNTY3ODk6Q0RFRkdISUpTVFVWV1hZWmNkZWZnaGlqc3R1dnd4eXqC + g4SFhoeIiYqSk5SVlpeYmZqio6Slpqeoqaqys7S1tre4ubrCw8TFxsfIycrS09TV1tfY2dri4+Tl5ufo + 6ery8/T19vf4+fr/2gAMAwEAAhEDEQA/AP1ZH7UPxEAA/wCEw8bnj/ob9f8A/k+v7U/1Nyj/AKF+G/8A + BUP/AJE/llcSZlZf7dX/APBk/wDMX/hqH4if9Df43/8ACv1//wCT6P8AU3Kf+hfhv/BUP/kQ/wBZcy/6 + Dq//AIMn/mH/AA1D8RP+hv8AG/8A4V+v/wDyfR/qblP/AEL8N/4Kh/8AIh/rLmX/AEHV/wDwZP8AzD/h + qH4if9Df43/8K/X/AP5Po/1Nyn/oX4b/AMFQ/wDkQ/1lzL/oOr/+DJ/5h/w1D8RP+hv8b/8AhX6//wDJ + 9H+puU/9C/Df+Cof/Ih/rLmX/QdX/wDBk/8AMT/hqH4if9Df43/8K/X/AP5Po/1Nyn/oX4b/AMFQ/wDk + Q/1kzL/oOr/+DJ/5n2R+xz+234zt/iRpnw+8a6vqXiDwZ4gs9baObXr+bUr/AMPajpmkX2tQ3FlqV2Zb + 57K7XT2t3tXkaJWkV4whVxJ+beJfAuU4Th/FZ/hKEKOMw8qd+SKjGcZzjTs4q0bpyUlJK7s073VvuuBO + LMxxGcYfJ8TWlVw1ZTtzu7hKMJTupPWzUWnFu2qatrf9aP8AhfXgv+zv7U89/sfm+V5207N+M43fSv50 + P2w/kwr/AEFP42CgAoAKACgAoA9s/Z0/s7/hcng3+1vP/s7Ov/avs2PP2f8ACL63t2buP9ZjP+zmvz7x + U/5IPPf+4H/qRRPsvD//AJK7KP8AuL/6ZqH7/wD/ABaT/hUfb7Ht/wBj7V9p8v8A9Cr+Oz+lz//Z + + + + 46 + + \ No newline at end of file diff --git a/ArinWarev1/Forms/v20091231/Frm_v20091231_Bunbae.vb b/ArinWarev1/Forms/v20091231/Frm_v20091231_Bunbae.vb new file mode 100644 index 0000000..0083d4a --- /dev/null +++ b/ArinWarev1/Forms/v20091231/Frm_v20091231_Bunbae.vb @@ -0,0 +1,377 @@ +Public Class Frm_V20091231_Bunbae + Dim DT As DataTable + Dim Init As Boolean = False + Dim SrcDrv As DataRowView + + Private Sub Frm_V20091231_Bunbae_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown + + End Sub + Private Sub MdiMain_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load + MdiMain.Toggle_Menu_Color(MdiMain.E_MenuIdx.냉방분배시스템) + 'CEnergy.ARINCLASS.SaveLoad_FrmSetting(Me) + '//프로필 관련 + + '//공유데이터셋에 연결한다. + Me.bs.DataSource = DSET + Dt = DSET.tbl_bunbae + + '//냉방분배 + AddHandler DSET.tbl_bunbae.TableNewRow, AddressOf AddNewDataRow_bunbae + + '//모든컨트롤의 cTrl_enter 를 추가합니다 + BindProperty(CType(Me.SplitContainer1.Panel2.Controls, Control.ControlCollection)) + + '//콤보컨트롤 바인딩 + Binding_Zone() + Me.bsmain = Me.bs + Me.Init = True + + Try + Me.bsmain.Position = CEnergy.ARINCLASS.Read_LastPos_Frm(Me) + Catch ex As Exception + Me.bsmain.MoveFirst() + End Try + + bs_CurrentChanged(sender, e) + + + End Sub +#Region "Control_Enter" + Private Sub BindProperty(ByVal Ctl As Control.ControlCollection) + For Each C As Control In Ctl + If C.Controls.Count > 1 Then + BindProperty(C.Controls) + Else + If C.GetType.ToString.ToUpper.IndexOf("MYTB") <> -1 Then + AddHandler CType(C, MyTb).KeyDown, AddressOf TextBOx_KeyDown + ElseIf C.GetType.ToString.ToUpper.IndexOf("MYCMB") <> -1 Then + AddHandler CType(C, MyCmb).KeyDown, AddressOf Cmd_KeyDown + End If + End If + Next + End Sub + + Private Sub TextBOx_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) + If e.KeyCode = Keys.Enter AndAlso e.Control Then + Try + Dim Field As String = (CType(sender, MyTb).DataBindings.Item("text").BindingMemberInfo.BindingField) + For Each Dr As DataRow In DT.Select(Me.bs.Filter, "") + Dr(Field) = CType(sender, MyTb).Text + Next + Work_msg_timer("모든값이 변경되었습니다", 25) + Catch ex As Exception + + End Try + + End If + End Sub + Private Sub Cmd_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) + If e.KeyCode = Keys.Enter AndAlso e.Control Then + Try + Dim Field As String = (CType(sender, MyCmb).DataBindings.Item("selectedvalue").BindingMemberInfo.BindingField) + For Each Dr As DataRow In DT.Select(Me.bs.Filter, "") + Dr(Field) = CType(sender, MyCmb).SelectedValue + Next + Work_msg_timer("모든값이 변경되었습니다", 25) + Catch ex As Exception + + End Try + End If + End Sub +#End Region + Private Sub 냉동기ComboBox_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles 냉동기ComboBox.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) <> 25 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 + If Me.bs.Position >= 0 AndAlso Me.bs.Position < Me.bs.Count - 1 Then + Me.bs.Position += 1 + Else + Me.bt_Add.PerformClick() '//한줄추가 + End If + End If + + Dim Cnt As Short = 0 + For i As Integer = 0 To CB.GetUpperBound(0) + Select Case i + Case 0 + CType(bs.Current, DataRowView)("설명") = CB(i).Split(CChar(vbTab))(ii).Trim + Case 0 + 2 '//사용프로필 앞에 두개를 숫자4자로변환 + If CB(i).Split(CChar(vbTab))(ii).Trim = "" Then + Me.냉동기ComboBox.SelectedIndex = 0 + Else + Me.냉동기ComboBox.Text = CB(i).Split(CChar(vbTab))(ii).Trim + End If + ' Me.냉동기ComboBox.Text = CStr(IIf(CB(i).Split(CChar(vbTab))(ii).Trim = "", "0", CB(i).Split(CChar(vbTab))(ii).Trim)) + Case 3 + 2 '//공란 + If CB(i).Split(CChar(vbTab))(ii).Trim = "" Then + Me.냉매방식ComboBox.SelectedIndex = 0 + Else + Me.냉매방식ComboBox.Text = CB(i).Split(CChar(vbTab))(ii).Trim + End If + ' Me.냉매방식ComboBox.Text = CStr(IIf(CB(i).Split(CChar(vbTab))(ii).Trim = "", "0", CB(i).Split(CChar(vbTab))(ii).Trim)) + Case 4 + 2 + If CB(i).Split(CChar(vbTab))(ii).Trim = "" Then + Me.펌프운전제어유무ComboBox.SelectedIndex = 0 + Else + Me.펌프운전제어유무ComboBox.Text = CB(i).Split(CChar(vbTab))(ii).Trim + End If + 'Me.펌프운전제어유무ComboBox.Text = CStr(IIf(CB(i).Split(CChar(vbTab))(ii).Trim = "", "0", CB(i).Split(CChar(vbTab))(ii).Trim)) + Case 5 + 2 + Me.급수온도NTb.Text = CB(i).Split(CChar(vbTab))(ii).Trim + Case 6 + 2 + Me.환수온도NTb.Text = CB(i).Split(CChar(vbTab))(ii).Trim + Case 7 + 2 + Me.설정점에서의온도차NTb.Text = CB(i).Split(CChar(vbTab))(ii).Trim + Case 8 + 2 + Me.냉매의비열NTb.Text = CB(i).Split(CChar(vbTab))(ii).Trim + Case 9 + 2 + Me.냉매의밀도NTb.Text = CB(i).Split(CChar(vbTab))(ii).Trim + Case 10 + 2 + Me.냉매의점도NTb.Text = CB(i).Split(CChar(vbTab))(ii).Trim + Case 11 + 2 + Me.배관의압력손실NTb.Text = CB(i).Split(CChar(vbTab))(ii).Trim + Case 12 + 2 + Me.개별저항비율NTb.Text = CB(i).Split(CChar(vbTab))(ii).Trim + Case 13 + 2 + Me.펌프동력NTb1.Text = CB(i).Split(CChar(vbTab))(ii).Trim + Case 15 + 2 + Me.공급범위의길이NTb.Text = CB(i).Split(CChar(vbTab))(ii).Trim + Case 16 + 2 + Me.공급범위의넓이NTb.Text = CB(i).Split(CChar(vbTab))(ii).Trim + Case 17 + 2 + Me.열층의수NTb.Text = CB(i).Split(CChar(vbTab))(ii).Trim + Case 18 + 2 + Me.층고NTb1.Text = CB(i).Split(CChar(vbTab))(ii).Trim + Case 20 + 2 + Me.생산기기압력손실NTb.Text = CB(i).Split(CChar(vbTab))(ii).Trim + Case 21 + 2 + Me.사용기기압력손실NTb.Text = CB(i).Split(CChar(vbTab))(ii).Trim + Case 22 + 2 + Me.제어밸브압력손실NTb.Text = CB(i).Split(CChar(vbTab))(ii).Trim + End Select + Next + Next + + Me.bs.EndEdit() + End If + End Sub + +#Region "기본" + Private Sub MdiMain_FormClosed(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosedEventArgs) Handles Me.FormClosed + CEnergy.ARINCLASS.SaveLoad_FrmSetting(Me, Me.bsmain.Position, True) + End Sub + Private Function GetMaxCode(ByVal dt As DataTable) As String + Try + Dim Dr As DataRow = dt.Select("", "code desc")(0) + Return Format(CInt(Dr("code")) + 1, "0000") + Catch ex As Exception + Return "0001" + End Try + End Function + + Private Sub AddNewDataRow_bunbae(ByVal sender As Object, ByVal e As System.Data.DataTableNewRowEventArgs) + e.Row.Item("code") = GetMaxCode(DSET.tbl_bunbae) + End Sub + + Private Sub ToolStripButton48_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt_add.Click + If Not EndEdit(Me.bs) Then Return + Me.bs.AddNew() + INitRow(Me.Controls) + End Sub + + + Private Sub ToolStripButton49_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt_Del.Click + Dbbase.DelCrow(Me.bs, True) + End Sub + + Private Sub ToolStripButton51_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt_cancel.Click + If Not EndEdit(Me.bs) Then Return + Data_Cancel(DSET.tbl_profile, Nothing) + End Sub + + Private Sub Binding_Zone() + + '//냉방분배시스템 + Dim bs_냉동기ComboBox As New BindingSource(DSET, "tbl_nangbangkiki") + Me.냉동기ComboBox.DataSource = bs_냉동기ComboBox + bs_냉동기ComboBox.Sort = "code" + 냉동기ComboBox.DisplayMember = "설명" + 냉동기ComboBox.ValueMember = "code" + Me.냉동기ComboBox.DataBindings.Add("selectedvalue", Me.bs, "냉동기") + 'AddHandler 냉동기ComboBox.KeyDown, AddressOf Cmb_DeleteVal + + + Dim bs_냉매방식ComboBox As New BindingSource(DSET, "tbl_common") + bs_냉매방식ComboBox.Filter = "gubun='1055'" + 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(DSET, "tbl_common") + bs_펌프운전제어유무ComboBox.Filter = "gubun='1056'" + 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 + + 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 + If Me.bs.Position < Me.bs.Count Then Me.bs.Position += 1 + Else + If Me.bs.Position > 0 Then Me.bs.Position -= 1 + End If + Me.Validate() + My.Application.DoEvents() + End Sub +#End Region + + Private Sub bt_Del_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles bt_Del.MouseDown + If e.Button = Windows.Forms.MouseButtons.Right Then + If MsgBox("전체삭제를 하시겠습니까?", MsgBoxStyle.Information Or MsgBoxStyle.OkCancel, "확인") = MsgBoxResult.Ok Then + Dim dR() As DataRow = DSET.tbl_bunbae.Select(Me.bs.Filter, "") + For i As Integer = dR.GetUpperBound(0) To 0 Step -1 + dR(i).Delete() + Next + + DSET.tbl_bunbae.AcceptChanges() + End If + End If + End Sub + + Private Sub 냉매방식ComboBox_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 냉매방식ComboBox.SelectedIndexChanged + Try + Select Case Me.냉매방식ComboBox.Text + Case "물" + Me.냉매의비열NTb.Text = "4.18" + Me.냉매의밀도NTb.Text = "1000" + Me.냉매의점도NTb.Text = "1" + Case "40%글리콜" + Me.냉매의비열NTb.Text = "3.5" + Me.냉매의밀도NTb.Text = "1070" + Me.냉매의점도NTb.Text = "4.4" + Case "40%글루콜" '디비에 글루콜로 명기되어 임시로 쓰임 디비 수정시 삭제 필요 + Me.냉매의비열NTb.Text = "3.5" + Me.냉매의밀도NTb.Text = "1070" + Me.냉매의점도NTb.Text = "4.4" + Case Else + Me.냉매의비열NTb.Text = "" + Me.냉매의밀도NTb.Text = "" + Me.냉매의점도NTb.Text = "" + End Select + bs.EndEdit() + Catch ex As Exception + + End Try + + End Sub + + Private Sub 급수온도NTb_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles 급수온도NTb.TextChanged + Try + Me.설정점에서의온도차NTb.Text = TOST(TOSG(Me.환수온도NTb.Text) - TOSG(Me.급수온도NTb.Text)) + Catch ex As Exception + + End Try + + End Sub + + Private Sub 환수온도NTb_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles 환수온도NTb.TextChanged + Try + Me.설정점에서의온도차NTb.Text = TOST(TOSG(Me.환수온도NTb.Text) - TOSG(Me.급수온도NTb.Text)) + Catch ex As Exception + + End Try + + End Sub + + + Private Sub dv_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles dv.MouseUp + If Prj.UserAuthType = "ADMIN" OrElse Prj.UserAuthType = "BOTH" OrElse Prj.UserAuthType = "BOTH2" OrElse Prj.UserAuthType = "BOTH1" Then '//2011.03.08 추가 + If e.Button = Windows.Forms.MouseButtons.Right Then + Dim Frm_FilterA As New Frm_Filter + Frm_FilterA.ColumTitle = getColCaption(Me.DT) + Frm_FilterA.ColumList = getColName(Me.DT) + Frm_FilterA.Colorlist = "냉동기" + Frm_FilterA.Numfield = "" '//20100618 Color 리스트처럼 , 구분해서 필드들을 모두 넣으세요. + Frm_FilterA.Default_Filter = "code <> '0'" + + If Frm_FilterA.ShowDialog <> Windows.Forms.DialogResult.OK Then Return '//창떳을떄 확인아ㅣ고 취소눌르면 다음을 수행하지않는다는거에요. + Dim Filter As String = Frm_FilterA.tb_filter.Text '//값은 아까 그 텍박에 잇구요. + Try + Me.bs.Filter = Filter + + '//바꾸기값이 있으면 변경 20100618 + If Frm_FilterA.cmb_fieldc.SelectedIndex >= 0 AndAlso Frm_FilterA.cmb_fieldc.Text.ToLower <> "code" AndAlso _ + Frm_FilterA.tb_valuec.Text <> "" Then + Dim Drow() As DataRow = Me.DT.Select(Filter) + For Each Dr As DataRow In Drow + Dr(Frm_FilterA.cmb_fieldc.Text) = Frm_FilterA.tb_valuec.Text + Next + MsgBox("바꾸기 완료", MsgBoxStyle.Information, "확인") + End If + + Catch ex As Exception + Me.bs.Filter = "" + End Try + End If + End If + End Sub + + Private Sub dv_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles dv.KeyDown + '//여기보시면 alt+d 누르면 한줄을 경고없이(falsE)삭제하도록 햇어요.. 사실원래 밋alt +d 인데.. ㅎㅎ 잘못해서 ctrl 됫다는 + If Prj.UserAuthType = "ADMIN" OrElse Prj.UserAuthType = "BOTH" OrElse Prj.UserAuthType = "BOTH2" OrElse Prj.UserAuthType = "BOTH1" Then '//2011.03.08 추가 + Select Case e.KeyCode + Case Keys.D + If e.Alt Then + Dbbase.DelCrow(Me.bs, False) + End If + Case Keys.C + If e.Control Then + Me.SrcDrv = Me.bs.Current + If Me.SrcDrv Is Nothing Then + MsgBox("저장할 ROW가 없습니다", MsgBoxStyle.Information, "확인") + Return + End If + ' My.Computer.Clipboard.SetData("ZDATA", Drv) + End If + Case Keys.V + If e.Control Then + If Me.SrcDrv Is Nothing Then Return + Me.bt_add.PerformClick() '//신규추가 + Dim NewDrv As DataRowView = Me.bs.Current + + For Each C As DataColumn In Me.DT.Columns + If C.ColumnName.ToUpper = "CODE" Then + ElseIf C.ColumnName.ToUpper = "설명" Then + NewDrv(C.ColumnName) = SrcDrv(C.ColumnName) & "#1" + Else + NewDrv(C.ColumnName) = SrcDrv(C.ColumnName) + End If + Next + Me.bs.EndEdit() + bs.MoveLast() + End If + End Select + End If + End Sub + + Private Sub bs_CurrentChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bs.CurrentChanged + If Not Init Then Return + Me.bs.EndEdit() + End Sub + +End Class \ No newline at end of file diff --git a/ArinWarev1/Forms/v20091231/Frm_v20091231_Desc.Designer.vb b/ArinWarev1/Forms/v20091231/Frm_v20091231_Desc.Designer.vb new file mode 100644 index 0000000..2808448 --- /dev/null +++ b/ArinWarev1/Forms/v20091231/Frm_v20091231_Desc.Designer.vb @@ -0,0 +1,1156 @@ + _ +Partial Class Frm_V20091231_desc + Inherits CForm + + 'Form은 Dispose를 재정의하여 구성 요소 목록을 정리합니다. + _ + Protected Overrides Sub Dispose(ByVal disposing As Boolean) + Try + If disposing AndAlso components IsNot Nothing Then + components.Dispose() + End If + Finally + MyBase.Dispose(disposing) + End Try + End Sub + + 'Windows Form 디자이너에 필요합니다. + Private components As System.ComponentModel.IContainer + + '참고: 다음 프로시저는 Windows Form 디자이너에 필요합니다. + '수정하려면 Windows Form 디자이너를 사용하십시오. + '코드 편집기를 사용하여 수정하지 마십시오. + _ + Private Sub InitializeComponent() + Me.components = New System.ComponentModel.Container() + Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(Frm_V20091231_desc)) + Me.TableLayoutPanel3 = New System.Windows.Forms.TableLayoutPanel() + Me.Label6 = New System.Windows.Forms.Label() + Me.TableLayoutPanel4 = New System.Windows.Forms.TableLayoutPanel() + Me.Label7 = New System.Windows.Forms.Label() + Me.MyTb1 = New Eco2Ar.MyTb() + Me.bs = New System.Windows.Forms.BindingSource(Me.components) + Me.DS = New Eco2Ar.DS() + Me.MyTb2 = New Eco2Ar.MyTb() + Me.Label8 = New System.Windows.Forms.Label() + Me.TableLayoutPanel5 = New System.Windows.Forms.TableLayoutPanel() + Me.Label9 = New System.Windows.Forms.Label() + Me.Panel2 = New System.Windows.Forms.Panel() + Me.MyTb6 = New Eco2Ar.MyTb() + Me.LinkLabel3 = New System.Windows.Forms.LinkLabel() + Me.LinkLabel2 = New System.Windows.Forms.LinkLabel() + Me.LinkLabel1 = New System.Windows.Forms.LinkLabel() + Me.Label11 = New System.Windows.Forms.Label() + Me.Label5 = New System.Windows.Forms.Label() + Me.Label3 = New System.Windows.Forms.Label() + Me.Label22 = New System.Windows.Forms.Label() + Me.GroupBox1 = New System.Windows.Forms.GroupBox() + Me.Panel1 = New System.Windows.Forms.Panel() + Me.MyTb5 = New Eco2Ar.MyTb() + Me.MyTb4 = New Eco2Ar.MyTb() + Me.Label23 = New System.Windows.Forms.Label() + Me.TextBox77 = New Eco2Ar.MyTb() + Me.Label27 = New System.Windows.Forms.Label() + Me.Label28 = New System.Windows.Forms.Label() + Me.TextBox76 = New Eco2Ar.MyTb() + Me.Panel3 = New System.Windows.Forms.Panel() + Me.Label29 = New System.Windows.Forms.Label() + Me.Label30 = New System.Windows.Forms.Label() + Me.Label32 = New System.Windows.Forms.Label() + Me.TextBox79 = New Eco2Ar.MyTb() + Me.Label33 = New System.Windows.Forms.Label() + Me.TextBox75 = New Eco2Ar.MyTb() + Me.Label34 = New System.Windows.Forms.Label() + Me.TextBox72 = New Eco2Ar.MyTb() + Me.TextBox73 = New Eco2Ar.MyTb() + Me.TextBox71 = New Eco2Ar.MyTb() + Me.Label35 = New System.Windows.Forms.Label() + Me.cmb_location = New Eco2Ar.MyCmb() + Me.Label40 = New System.Windows.Forms.Label() + Me.Label41 = New System.Windows.Forms.Label() + Me.GroupBox5 = New System.Windows.Forms.GroupBox() + Me.Panel7 = New System.Windows.Forms.Panel() + Me.TextBox88 = New Eco2Ar.MyTb() + Me.Label36 = New System.Windows.Forms.Label() + Me.Label37 = New System.Windows.Forms.Label() + Me.TextBox70 = New Eco2Ar.MyTb() + Me.TextBox87 = New Eco2Ar.MyTb() + Me.TextBox69 = New Eco2Ar.MyTb() + Me.Label20 = New System.Windows.Forms.Label() + Me.Label25 = New System.Windows.Forms.Label() + Me.Panel8 = New System.Windows.Forms.Panel() + Me.TextBox90 = New Eco2Ar.MyTb() + Me.TextBox49 = New Eco2Ar.MyTb() + Me.Label38 = New System.Windows.Forms.Label() + Me.Label39 = New System.Windows.Forms.Label() + Me.TextBox89 = New Eco2Ar.MyTb() + Me.Label26 = New System.Windows.Forms.Label() + Me.Label31 = New System.Windows.Forms.Label() + Me.Label12 = New System.Windows.Forms.Label() + Me.TextBox50 = New Eco2Ar.MyTb() + Me.TextBox48 = New Eco2Ar.MyTb() + Me.Label14 = New System.Windows.Forms.Label() + Me.TextBox86 = New Eco2Ar.MyTb() + Me.GroupBox2 = New System.Windows.Forms.GroupBox() + Me.Panel4 = New System.Windows.Forms.Panel() + Me.DateTimePicker2 = New System.Windows.Forms.DateTimePicker() + Me.Label4 = New System.Windows.Forms.Label() + Me.GroupBox3 = New System.Windows.Forms.GroupBox() + Me.Panel6 = New System.Windows.Forms.Panel() + Me.DateTimePicker1 = New System.Windows.Forms.DateTimePicker() + Me.Label10 = New System.Windows.Forms.Label() + Me.Label2 = New System.Windows.Forms.Label() + Me.Label1 = New System.Windows.Forms.Label() + Me.PictureBox2 = New System.Windows.Forms.PictureBox() + Me.PictureBox3 = New System.Windows.Forms.PictureBox() + Me.Label15 = New System.Windows.Forms.Label() + Me.PictureBox1 = New System.Windows.Forms.PictureBox() + Me.ToolTip1 = New System.Windows.Forms.ToolTip(Me.components) + Me.MyTb3 = New Eco2Ar.MyTb() + Me.TableLayoutPanel3.SuspendLayout() + Me.TableLayoutPanel4.SuspendLayout() + CType(Me.bs, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.DS, System.ComponentModel.ISupportInitialize).BeginInit() + Me.TableLayoutPanel5.SuspendLayout() + Me.Panel2.SuspendLayout() + Me.GroupBox1.SuspendLayout() + Me.Panel1.SuspendLayout() + Me.Panel3.SuspendLayout() + Me.GroupBox5.SuspendLayout() + Me.Panel7.SuspendLayout() + Me.Panel8.SuspendLayout() + Me.GroupBox2.SuspendLayout() + Me.Panel4.SuspendLayout() + Me.GroupBox3.SuspendLayout() + Me.Panel6.SuspendLayout() + CType(Me.PictureBox2, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.PictureBox3, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit() + Me.SuspendLayout() + ' + 'TableLayoutPanel3 + ' + Me.TableLayoutPanel3.BackColor = System.Drawing.SystemColors.ButtonFace + Me.TableLayoutPanel3.CellBorderStyle = System.Windows.Forms.TableLayoutPanelCellBorderStyle.[Single] + Me.TableLayoutPanel3.ColumnCount = 2 + Me.TableLayoutPanel3.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Percent, 39.44099!)) + Me.TableLayoutPanel3.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Percent, 60.55901!)) + Me.TableLayoutPanel3.Controls.Add(Me.Label6, 0, 0) + Me.TableLayoutPanel3.Location = New System.Drawing.Point(0, 0) + Me.TableLayoutPanel3.Name = "TableLayoutPanel3" + Me.TableLayoutPanel3.RowCount = 1 + Me.TableLayoutPanel3.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Absolute, 20.0!)) + Me.TableLayoutPanel3.Size = New System.Drawing.Size(200, 100) + Me.TableLayoutPanel3.TabIndex = 0 + ' + 'Label6 + ' + Me.Label6.Anchor = System.Windows.Forms.AnchorStyles.None + Me.Label6.AutoSize = True + Me.Label6.Location = New System.Drawing.Point(23, 44) + Me.Label6.Name = "Label6" + Me.Label6.Size = New System.Drawing.Size(33, 12) + Me.Label6.TabIndex = 131 + Me.Label6.Text = "규 모" + ' + 'TableLayoutPanel4 + ' + Me.TableLayoutPanel4.CellBorderStyle = System.Windows.Forms.TableLayoutPanelCellBorderStyle.[Single] + Me.TableLayoutPanel4.ColumnCount = 2 + Me.TableLayoutPanel4.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Percent, 52.35294!)) + Me.TableLayoutPanel4.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Percent, 47.64706!)) + Me.TableLayoutPanel4.Controls.Add(Me.Label7, 0, 1) + Me.TableLayoutPanel4.Controls.Add(Me.MyTb1, 1, 1) + Me.TableLayoutPanel4.Controls.Add(Me.MyTb2, 1, 0) + Me.TableLayoutPanel4.Controls.Add(Me.Label8, 0, 0) + Me.TableLayoutPanel4.Location = New System.Drawing.Point(71, 4) + Me.TableLayoutPanel4.Name = "TableLayoutPanel4" + Me.TableLayoutPanel4.RowCount = 2 + Me.TableLayoutPanel4.RowStyles.Add(New System.Windows.Forms.RowStyle()) + Me.TableLayoutPanel4.RowStyles.Add(New System.Windows.Forms.RowStyle()) + Me.TableLayoutPanel4.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Absolute, 20.0!)) + Me.TableLayoutPanel4.Size = New System.Drawing.Size(96, 16) + Me.TableLayoutPanel4.TabIndex = 130 + ' + 'Label7 + ' + Me.Label7.Anchor = System.Windows.Forms.AnchorStyles.None + Me.Label7.AutoSize = True + Me.Label7.Location = New System.Drawing.Point(6, 30) + Me.Label7.Name = "Label7" + Me.Label7.Size = New System.Drawing.Size(38, 24) + Me.Label7.TabIndex = 0 + Me.Label7.Text = "지 상(층수)" + ' + 'MyTb1 + ' + Me.MyTb1.Anchor = System.Windows.Forms.AnchorStyles.Left + Me.MyTb1.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bs, "builds2", True)) + Me.MyTb1.Location = New System.Drawing.Point(53, 32) + Me.MyTb1.Name = "MyTb1" + Me.MyTb1.NectControl = Nothing + Me.MyTb1.Size = New System.Drawing.Size(39, 21) + Me.MyTb1.TabIndex = 1 + Me.MyTb1.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + ' + 'bs + ' + Me.bs.DataMember = "tbl_Desc" + Me.bs.DataSource = Me.DS + ' + 'DS + ' + Me.DS.DataSetName = "DS" + Me.DS.SchemaSerializationMode = System.Data.SchemaSerializationMode.IncludeSchema + ' + 'MyTb2 + ' + Me.MyTb2.Anchor = System.Windows.Forms.AnchorStyles.Left + Me.MyTb2.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bs, "builds1", True)) + Me.MyTb2.Location = New System.Drawing.Point(53, 4) + Me.MyTb2.Name = "MyTb2" + Me.MyTb2.NectControl = Nothing + Me.MyTb2.Size = New System.Drawing.Size(39, 21) + Me.MyTb2.TabIndex = 1 + Me.MyTb2.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + ' + 'Label8 + ' + Me.Label8.Anchor = System.Windows.Forms.AnchorStyles.None + Me.Label8.AutoSize = True + Me.Label8.Location = New System.Drawing.Point(6, 2) + Me.Label8.Name = "Label8" + Me.Label8.Size = New System.Drawing.Size(38, 24) + Me.Label8.TabIndex = 0 + Me.Label8.Text = "지 하(층수)" + ' + 'TableLayoutPanel5 + ' + Me.TableLayoutPanel5.BackColor = System.Drawing.SystemColors.ButtonFace + Me.TableLayoutPanel5.CellBorderStyle = System.Windows.Forms.TableLayoutPanelCellBorderStyle.[Single] + Me.TableLayoutPanel5.ColumnCount = 2 + Me.TableLayoutPanel5.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Absolute, 200.0!)) + Me.TableLayoutPanel5.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle()) + Me.TableLayoutPanel5.Controls.Add(Me.Label9, 0, 0) + Me.TableLayoutPanel5.Location = New System.Drawing.Point(0, 0) + Me.TableLayoutPanel5.Name = "TableLayoutPanel5" + Me.TableLayoutPanel5.RowCount = 1 + Me.TableLayoutPanel5.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Absolute, 20.0!)) + Me.TableLayoutPanel5.Size = New System.Drawing.Size(200, 100) + Me.TableLayoutPanel5.TabIndex = 0 + ' + 'Label9 + ' + Me.Label9.Anchor = System.Windows.Forms.AnchorStyles.None + Me.Label9.AutoSize = True + Me.Label9.Location = New System.Drawing.Point(80, 38) + Me.Label9.Name = "Label9" + Me.Label9.Size = New System.Drawing.Size(41, 24) + Me.Label9.TabIndex = 0 + Me.Label9.Text = "소재지" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & " 주 소 " + ' + 'Panel2 + ' + Me.Panel2.BackColor = System.Drawing.Color.White + Me.Panel2.BackgroundImage = Global.Eco2Ar.My.Resources.Resources.건물개요 + Me.Panel2.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch + Me.Panel2.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.Panel2.Controls.Add(Me.MyTb6) + Me.Panel2.Controls.Add(Me.LinkLabel3) + Me.Panel2.Controls.Add(Me.LinkLabel2) + Me.Panel2.Controls.Add(Me.LinkLabel1) + Me.Panel2.Controls.Add(Me.Label11) + Me.Panel2.Controls.Add(Me.Label5) + Me.Panel2.Controls.Add(Me.Label3) + Me.Panel2.Controls.Add(Me.Label22) + Me.Panel2.Controls.Add(Me.GroupBox1) + Me.Panel2.Controls.Add(Me.GroupBox5) + Me.Panel2.Controls.Add(Me.GroupBox2) + Me.Panel2.Controls.Add(Me.GroupBox3) + Me.Panel2.Controls.Add(Me.Label2) + Me.Panel2.Controls.Add(Me.Label1) + Me.Panel2.Controls.Add(Me.PictureBox2) + Me.Panel2.Controls.Add(Me.PictureBox3) + Me.Panel2.Controls.Add(Me.Label15) + Me.Panel2.Controls.Add(Me.PictureBox1) + Me.Panel2.Dock = System.Windows.Forms.DockStyle.Fill + Me.Panel2.Location = New System.Drawing.Point(0, 0) + Me.Panel2.Name = "Panel2" + Me.Panel2.Size = New System.Drawing.Size(795, 565) + Me.Panel2.TabIndex = 1 + ' + 'MyTb6 + ' + Me.MyTb6.BackColor = System.Drawing.SystemColors.Control + Me.MyTb6.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bs, "priod", True)) + Me.MyTb6.Location = New System.Drawing.Point(587, 144) + Me.MyTb6.Name = "MyTb6" + Me.MyTb6.NectControl = Nothing + Me.MyTb6.ReadOnly = True + Me.MyTb6.Size = New System.Drawing.Size(50, 21) + Me.MyTb6.TabIndex = 7 + Me.MyTb6.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + ' + 'LinkLabel3 + ' + Me.LinkLabel3.AutoSize = True + Me.LinkLabel3.Location = New System.Drawing.Point(525, 502) + Me.LinkLabel3.Name = "LinkLabel3" + Me.LinkLabel3.Size = New System.Drawing.Size(178, 14) + Me.LinkLabel3.TabIndex = 177 + Me.LinkLabel3.TabStop = True + Me.LinkLabel3.Text = "표준프로파일 서버로부터 가져오기" + ' + 'LinkLabel2 + ' + Me.LinkLabel2.AutoSize = True + Me.LinkLabel2.Location = New System.Drawing.Point(325, 502) + Me.LinkLabel2.Name = "LinkLabel2" + Me.LinkLabel2.Size = New System.Drawing.Size(167, 14) + Me.LinkLabel2.TabIndex = 177 + Me.LinkLabel2.TabStop = True + Me.LinkLabel2.Text = "기상데이터 서버로부터 가져오기" + Me.ToolTip1.SetToolTip(Me.LinkLabel2, "기상관련데이터를 서버로부터 가져옵니다") + ' + 'LinkLabel1 + ' + Me.LinkLabel1.AutoSize = True + Me.LinkLabel1.Location = New System.Drawing.Point(135, 502) + Me.LinkLabel1.Name = "LinkLabel1" + Me.LinkLabel1.Size = New System.Drawing.Size(156, 14) + Me.LinkLabel1.TabIndex = 176 + Me.LinkLabel1.TabStop = True + Me.LinkLabel1.Text = "공용코드 서버로부터 가져오기" + Me.ToolTip1.SetToolTip(Me.LinkLabel1, "공용코드의 데이터를 서버에서 가져옵니다.") + ' + 'Label11 + ' + Me.Label11.AutoSize = True + Me.Label11.BackColor = System.Drawing.Color.White + Me.Label11.Location = New System.Drawing.Point(643, 147) + Me.Label11.Name = "Label11" + Me.Label11.Size = New System.Drawing.Size(18, 14) + Me.Label11.TabIndex = 170 + Me.Label11.Text = "년" + ' + 'Label5 + ' + Me.Label5.AutoSize = True + Me.Label5.BackColor = System.Drawing.Color.White + Me.Label5.Location = New System.Drawing.Point(478, 147) + Me.Label5.Name = "Label5" + Me.Label5.Size = New System.Drawing.Size(101, 14) + Me.Label5.TabIndex = 170 + Me.Label5.Text = "준공 이후 경과년수" + ' + 'Label3 + ' + Me.Label3.AutoSize = True + Me.Label3.BackColor = System.Drawing.Color.White + Me.Label3.Location = New System.Drawing.Point(132, 147) + Me.Label3.Name = "Label3" + Me.Label3.Size = New System.Drawing.Size(48, 14) + Me.Label3.TabIndex = 170 + Me.Label3.Text = "[신청인]" + ' + 'Label22 + ' + Me.Label22.AutoSize = True + Me.Label22.BackColor = System.Drawing.Color.White + Me.Label22.Location = New System.Drawing.Point(132, 309) + Me.Label22.Name = "Label22" + Me.Label22.Size = New System.Drawing.Size(59, 14) + Me.Label22.TabIndex = 170 + Me.Label22.Text = "[신청건물]" + ' + 'GroupBox1 + ' + Me.GroupBox1.Controls.Add(Me.Panel1) + Me.GroupBox1.Controls.Add(Me.Panel3) + Me.GroupBox1.Location = New System.Drawing.Point(131, 318) + Me.GroupBox1.Name = "GroupBox1" + Me.GroupBox1.Size = New System.Drawing.Size(582, 174) + Me.GroupBox1.TabIndex = 175 + Me.GroupBox1.TabStop = False + ' + 'Panel1 + ' + Me.Panel1.BackColor = System.Drawing.Color.FromArgb(CType(CType(219, Byte), Integer), CType(CType(221, Byte), Integer), CType(CType(223, Byte), Integer)) + Me.Panel1.Controls.Add(Me.MyTb5) + Me.Panel1.Controls.Add(Me.MyTb4) + Me.Panel1.Controls.Add(Me.Label23) + Me.Panel1.Controls.Add(Me.TextBox77) + Me.Panel1.Controls.Add(Me.Label27) + Me.Panel1.Controls.Add(Me.Label28) + Me.Panel1.Controls.Add(Me.TextBox76) + Me.Panel1.Location = New System.Drawing.Point(397, 9) + Me.Panel1.Name = "Panel1" + Me.Panel1.Size = New System.Drawing.Size(183, 162) + Me.Panel1.TabIndex = 6 + ' + 'MyTb5 + ' + Me.MyTb5.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bs, "versionc", True)) + Me.MyTb5.Location = New System.Drawing.Point(9, 103) + Me.MyTb5.Name = "MyTb5" + Me.MyTb5.NectControl = Nothing + Me.MyTb5.Size = New System.Drawing.Size(89, 21) + Me.MyTb5.TabIndex = 77 + Me.MyTb5.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + Me.MyTb5.Visible = False + ' + 'MyTb4 + ' + Me.MyTb4.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bs, "versionw", True)) + Me.MyTb4.Location = New System.Drawing.Point(9, 127) + Me.MyTb4.Name = "MyTb4" + Me.MyTb4.NectControl = Nothing + Me.MyTb4.Size = New System.Drawing.Size(89, 21) + Me.MyTb4.TabIndex = 76 + Me.MyTb4.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + Me.MyTb4.Visible = False + ' + 'Label23 + ' + Me.Label23.AutoSize = True + Me.Label23.ForeColor = System.Drawing.Color.DarkBlue + Me.Label23.Location = New System.Drawing.Point(6, 2) + Me.Label23.Name = "Label23" + Me.Label23.Size = New System.Drawing.Size(43, 14) + Me.Label23.TabIndex = 75 + Me.Label23.Text = "[규 모]" + ' + 'TextBox77 + ' + Me.TextBox77.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bs, "builds2", True)) + Me.TextBox77.Location = New System.Drawing.Point(82, 49) + Me.TextBox77.Name = "TextBox77" + Me.TextBox77.NectControl = Nothing + Me.TextBox77.Size = New System.Drawing.Size(59, 21) + Me.TextBox77.TabIndex = 18 + Me.TextBox77.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + ' + 'Label27 + ' + Me.Label27.AutoSize = True + Me.Label27.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Me.Label27.Location = New System.Drawing.Point(11, 21) + Me.Label27.Name = "Label27" + Me.Label27.Size = New System.Drawing.Size(65, 14) + Me.Label27.TabIndex = 0 + Me.Label27.Text = " 지 하(층수)" + ' + 'Label28 + ' + Me.Label28.AutoSize = True + Me.Label28.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Me.Label28.Location = New System.Drawing.Point(11, 54) + Me.Label28.Name = "Label28" + Me.Label28.Size = New System.Drawing.Size(65, 14) + Me.Label28.TabIndex = 2 + Me.Label28.Text = " 지 상(층수)" + ' + 'TextBox76 + ' + Me.TextBox76.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bs, "builds1", True)) + Me.TextBox76.Location = New System.Drawing.Point(82, 15) + Me.TextBox76.Name = "TextBox76" + Me.TextBox76.NectControl = Nothing + Me.TextBox76.Size = New System.Drawing.Size(59, 21) + Me.TextBox76.TabIndex = 17 + Me.TextBox76.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + ' + 'Panel3 + ' + Me.Panel3.BackColor = System.Drawing.Color.FromArgb(CType(CType(219, Byte), Integer), CType(CType(221, Byte), Integer), CType(CType(223, Byte), Integer)) + Me.Panel3.Controls.Add(Me.Label29) + Me.Panel3.Controls.Add(Me.Label30) + Me.Panel3.Controls.Add(Me.Label32) + Me.Panel3.Controls.Add(Me.TextBox79) + Me.Panel3.Controls.Add(Me.Label33) + Me.Panel3.Controls.Add(Me.TextBox75) + Me.Panel3.Controls.Add(Me.Label34) + Me.Panel3.Controls.Add(Me.TextBox72) + Me.Panel3.Controls.Add(Me.TextBox73) + Me.Panel3.Controls.Add(Me.TextBox71) + Me.Panel3.Controls.Add(Me.Label35) + Me.Panel3.Controls.Add(Me.cmb_location) + Me.Panel3.Controls.Add(Me.Label40) + Me.Panel3.Controls.Add(Me.Label41) + Me.Panel3.Location = New System.Drawing.Point(1, 9) + Me.Panel3.Name = "Panel3" + Me.Panel3.Size = New System.Drawing.Size(388, 162) + Me.Panel3.TabIndex = 5 + ' + 'Label29 + ' + Me.Label29.AutoSize = True + Me.Label29.ForeColor = System.Drawing.Color.DarkBlue + Me.Label29.Location = New System.Drawing.Point(1, 2) + Me.Label29.Name = "Label29" + Me.Label29.Size = New System.Drawing.Size(43, 14) + Me.Label29.TabIndex = 75 + Me.Label29.Text = "[정 보]" + ' + 'Label30 + ' + Me.Label30.AutoSize = True + Me.Label30.ForeColor = System.Drawing.Color.DarkBlue + Me.Label30.Location = New System.Drawing.Point(1, 79) + Me.Label30.Name = "Label30" + Me.Label30.Size = New System.Drawing.Size(43, 14) + Me.Label30.TabIndex = 75 + Me.Label30.Text = "[면 적]" + ' + 'Label32 + ' + Me.Label32.AutoSize = True + Me.Label32.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Me.Label32.Location = New System.Drawing.Point(6, 106) + Me.Label32.Name = "Label32" + Me.Label32.Size = New System.Drawing.Size(70, 14) + Me.Label32.TabIndex = 0 + Me.Label32.Text = "대지면적(㎡)" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) + Me.Label32.TextAlign = System.Drawing.ContentAlignment.MiddleCenter + ' + 'TextBox79 + ' + Me.TextBox79.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bs, "buildm23", True)) + Me.TextBox79.Location = New System.Drawing.Point(270, 104) + Me.TextBox79.Name = "TextBox79" + Me.TextBox79.NectControl = Nothing + Me.TextBox79.Size = New System.Drawing.Size(115, 21) + Me.TextBox79.TabIndex = 16 + Me.TextBox79.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + ' + 'Label33 + ' + Me.Label33.AutoSize = True + Me.Label33.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Me.Label33.Location = New System.Drawing.Point(6, 53) + Me.Label33.Name = "Label33" + Me.Label33.Size = New System.Drawing.Size(68, 14) + Me.Label33.TabIndex = 0 + Me.Label33.Text = "소재지 주소 " + ' + 'TextBox75 + ' + Me.TextBox75.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bs, "buildm22", True)) + Me.TextBox75.Location = New System.Drawing.Point(79, 132) + Me.TextBox75.Name = "TextBox75" + Me.TextBox75.NectControl = Nothing + Me.TextBox75.Size = New System.Drawing.Size(112, 21) + Me.TextBox75.TabIndex = 15 + Me.TextBox75.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + ' + 'Label34 + ' + Me.Label34.AutoSize = True + Me.Label34.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Me.Label34.Location = New System.Drawing.Point(6, 134) + Me.Label34.Name = "Label34" + Me.Label34.Size = New System.Drawing.Size(70, 14) + Me.Label34.TabIndex = 2 + Me.Label34.Text = "건축면적(㎡)" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) + Me.Label34.TextAlign = System.Drawing.ContentAlignment.MiddleCenter + ' + 'TextBox72 + ' + Me.TextBox72.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bs, "buildname", True)) + Me.TextBox72.Location = New System.Drawing.Point(81, 21) + Me.TextBox72.Name = "TextBox72" + Me.TextBox72.NectControl = Nothing + Me.TextBox72.Size = New System.Drawing.Size(194, 21) + Me.TextBox72.TabIndex = 11 + Me.TextBox72.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + ' + 'TextBox73 + ' + Me.TextBox73.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bs, "buildm21", True)) + Me.TextBox73.Location = New System.Drawing.Point(79, 104) + Me.TextBox73.Name = "TextBox73" + Me.TextBox73.NectControl = Nothing + Me.TextBox73.Size = New System.Drawing.Size(112, 21) + Me.TextBox73.TabIndex = 14 + Me.TextBox73.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + ' + 'TextBox71 + ' + Me.TextBox71.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bs, "buildaddr", True)) + Me.TextBox71.Location = New System.Drawing.Point(81, 51) + Me.TextBox71.Name = "TextBox71" + Me.TextBox71.NectControl = Nothing + Me.TextBox71.Size = New System.Drawing.Size(304, 21) + Me.TextBox71.TabIndex = 13 + Me.TextBox71.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + ' + 'Label35 + ' + Me.Label35.AutoSize = True + Me.Label35.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Me.Label35.Location = New System.Drawing.Point(197, 106) + Me.Label35.Name = "Label35" + Me.Label35.Size = New System.Drawing.Size(65, 14) + Me.Label35.TabIndex = 4 + Me.Label35.Text = "연 면 적(㎡)" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) + Me.Label35.TextAlign = System.Drawing.ContentAlignment.MiddleCenter + ' + 'cmb_location + ' + Me.cmb_location.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList + Me.cmb_location.FormattingEnabled = True + Me.cmb_location.Items.AddRange(New Object() {"서울", "인천", "경기", "강원", "대구", "대전", "충남", "충북", "광주", "전남", "전북", "부산", "울산", "경북", "경남", "제주"}) + Me.cmb_location.Location = New System.Drawing.Point(312, 21) + Me.cmb_location.Name = "cmb_location" + Me.cmb_location.NectControl = Nothing + Me.cmb_location.Size = New System.Drawing.Size(72, 22) + Me.cmb_location.TabIndex = 12 + ' + 'Label40 + ' + Me.Label40.AutoSize = True + Me.Label40.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Me.Label40.Location = New System.Drawing.Point(6, 22) + Me.Label40.Name = "Label40" + Me.Label40.Size = New System.Drawing.Size(40, 14) + Me.Label40.TabIndex = 0 + Me.Label40.Text = "건물명" + ' + 'Label41 + ' + Me.Label41.AutoSize = True + Me.Label41.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Me.Label41.Location = New System.Drawing.Point(276, 25) + Me.Label41.Name = "Label41" + Me.Label41.Size = New System.Drawing.Size(29, 14) + Me.Label41.TabIndex = 2 + Me.Label41.Text = "지역" + ' + 'GroupBox5 + ' + Me.GroupBox5.Controls.Add(Me.Panel7) + Me.GroupBox5.Controls.Add(Me.Panel8) + Me.GroupBox5.Location = New System.Drawing.Point(132, 159) + Me.GroupBox5.Name = "GroupBox5" + Me.GroupBox5.Size = New System.Drawing.Size(579, 147) + Me.GroupBox5.TabIndex = 174 + Me.GroupBox5.TabStop = False + ' + 'Panel7 + ' + Me.Panel7.BackColor = System.Drawing.Color.FromArgb(CType(CType(243, Byte), Integer), CType(CType(244, Byte), Integer), CType(CType(246, Byte), Integer)) + Me.Panel7.Controls.Add(Me.TextBox88) + Me.Panel7.Controls.Add(Me.Label36) + Me.Panel7.Controls.Add(Me.Label37) + Me.Panel7.Controls.Add(Me.TextBox70) + Me.Panel7.Controls.Add(Me.TextBox87) + Me.Panel7.Controls.Add(Me.TextBox69) + Me.Panel7.Controls.Add(Me.Label20) + Me.Panel7.Controls.Add(Me.Label25) + Me.Panel7.Location = New System.Drawing.Point(2, 9) + Me.Panel7.Name = "Panel7" + Me.Panel7.Size = New System.Drawing.Size(573, 66) + Me.Panel7.TabIndex = 0 + ' + 'TextBox88 + ' + Me.TextBox88.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bs, "pname", True)) + Me.TextBox88.Location = New System.Drawing.Point(406, 35) + Me.TextBox88.Name = "TextBox88" + Me.TextBox88.NectControl = Nothing + Me.TextBox88.Size = New System.Drawing.Size(148, 21) + Me.TextBox88.TabIndex = 8 + Me.TextBox88.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + ' + 'Label36 + ' + Me.Label36.AutoSize = True + Me.Label36.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Me.Label36.Location = New System.Drawing.Point(321, 11) + Me.Label36.Name = "Label36" + Me.Label36.Size = New System.Drawing.Size(73, 14) + Me.Label36.TabIndex = 0 + Me.Label36.Text = "법인등록번호" + ' + 'Label37 + ' + Me.Label37.AutoSize = True + Me.Label37.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Me.Label37.Location = New System.Drawing.Point(321, 39) + Me.Label37.Name = "Label37" + Me.Label37.Size = New System.Drawing.Size(65, 14) + Me.Label37.TabIndex = 2 + Me.Label37.Text = "대표자 성명" + ' + 'TextBox70 + ' + Me.TextBox70.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bs, "addr", True)) + Me.TextBox70.Location = New System.Drawing.Point(53, 36) + Me.TextBox70.Name = "TextBox70" + Me.TextBox70.NectControl = Nothing + Me.TextBox70.Size = New System.Drawing.Size(250, 21) + Me.TextBox70.TabIndex = 2 + Me.TextBox70.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + ' + 'TextBox87 + ' + Me.TextBox87.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bs, "dungno", True)) + Me.TextBox87.Location = New System.Drawing.Point(406, 7) + Me.TextBox87.Name = "TextBox87" + Me.TextBox87.NectControl = Nothing + Me.TextBox87.Size = New System.Drawing.Size(148, 21) + Me.TextBox87.TabIndex = 7 + Me.TextBox87.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + ' + 'TextBox69 + ' + Me.TextBox69.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bs, "cname", True)) + Me.TextBox69.Location = New System.Drawing.Point(53, 8) + Me.TextBox69.Name = "TextBox69" + Me.TextBox69.NectControl = Nothing + Me.TextBox69.Size = New System.Drawing.Size(250, 21) + Me.TextBox69.TabIndex = 1 + Me.TextBox69.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + ' + 'Label20 + ' + Me.Label20.AutoSize = True + Me.Label20.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Me.Label20.Location = New System.Drawing.Point(8, 14) + Me.Label20.Name = "Label20" + Me.Label20.Size = New System.Drawing.Size(40, 14) + Me.Label20.TabIndex = 0 + Me.Label20.Text = "업체명" + ' + 'Label25 + ' + Me.Label25.AutoSize = True + Me.Label25.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Me.Label25.Location = New System.Drawing.Point(10, 42) + Me.Label25.Name = "Label25" + Me.Label25.Size = New System.Drawing.Size(35, 14) + Me.Label25.TabIndex = 2 + Me.Label25.Text = "주 소 " + ' + 'Panel8 + ' + Me.Panel8.BackColor = System.Drawing.Color.FromArgb(CType(CType(243, Byte), Integer), CType(CType(244, Byte), Integer), CType(CType(246, Byte), Integer)) + Me.Panel8.Controls.Add(Me.TextBox90) + Me.Panel8.Controls.Add(Me.TextBox49) + Me.Panel8.Controls.Add(Me.Label38) + Me.Panel8.Controls.Add(Me.Label39) + Me.Panel8.Controls.Add(Me.TextBox89) + Me.Panel8.Controls.Add(Me.Label26) + Me.Panel8.Controls.Add(Me.Label31) + Me.Panel8.Controls.Add(Me.Label12) + Me.Panel8.Controls.Add(Me.TextBox50) + Me.Panel8.Controls.Add(Me.TextBox48) + Me.Panel8.Controls.Add(Me.Label14) + Me.Panel8.Controls.Add(Me.TextBox86) + Me.Panel8.Location = New System.Drawing.Point(2, 81) + Me.Panel8.Name = "Panel8" + Me.Panel8.Size = New System.Drawing.Size(573, 63) + Me.Panel8.TabIndex = 0 + ' + 'TextBox90 + ' + Me.TextBox90.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bs, "email", True)) + Me.TextBox90.Location = New System.Drawing.Point(406, 35) + Me.TextBox90.Name = "TextBox90" + Me.TextBox90.NectControl = Nothing + Me.TextBox90.Size = New System.Drawing.Size(148, 21) + Me.TextBox90.TabIndex = 10 + Me.TextBox90.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + ' + 'TextBox49 + ' + Me.TextBox49.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bs, "dept", True)) + Me.TextBox49.Location = New System.Drawing.Point(201, 7) + Me.TextBox49.Name = "TextBox49" + Me.TextBox49.NectControl = Nothing + Me.TextBox49.Size = New System.Drawing.Size(104, 21) + Me.TextBox49.TabIndex = 4 + Me.TextBox49.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + ' + 'Label38 + ' + Me.Label38.AutoSize = True + Me.Label38.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Me.Label38.Location = New System.Drawing.Point(326, 38) + Me.Label38.Name = "Label38" + Me.Label38.Size = New System.Drawing.Size(42, 14) + Me.Label38.TabIndex = 6 + Me.Label38.Text = "E-mail" + ' + 'Label39 + ' + Me.Label39.AutoSize = True + Me.Label39.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Me.Label39.Location = New System.Drawing.Point(326, 10) + Me.Label39.Name = "Label39" + Me.Label39.Size = New System.Drawing.Size(65, 14) + Me.Label39.TabIndex = 4 + Me.Label39.Text = "직 위" + ' + 'TextBox89 + ' + Me.TextBox89.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bs, "grade", True)) + Me.TextBox89.Location = New System.Drawing.Point(406, 7) + Me.TextBox89.Name = "TextBox89" + Me.TextBox89.NectControl = Nothing + Me.TextBox89.Size = New System.Drawing.Size(148, 21) + Me.TextBox89.TabIndex = 9 + Me.TextBox89.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + ' + 'Label26 + ' + Me.Label26.AutoSize = True + Me.Label26.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Me.Label26.Location = New System.Drawing.Point(10, 10) + Me.Label26.Name = "Label26" + Me.Label26.Size = New System.Drawing.Size(32, 14) + Me.Label26.TabIndex = 0 + Me.Label26.Text = "성 명" + ' + 'Label31 + ' + Me.Label31.AutoSize = True + Me.Label31.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Me.Label31.Location = New System.Drawing.Point(11, 38) + Me.Label31.Name = "Label31" + Me.Label31.Size = New System.Drawing.Size(27, 14) + Me.Label31.TabIndex = 4 + Me.Label31.Text = "TEL" + ' + 'Label12 + ' + Me.Label12.AutoSize = True + Me.Label12.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Me.Label12.Location = New System.Drawing.Point(163, 10) + Me.Label12.Name = "Label12" + Me.Label12.Size = New System.Drawing.Size(32, 14) + Me.Label12.TabIndex = 2 + Me.Label12.Text = "부 서" + ' + 'TextBox50 + ' + Me.TextBox50.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bs, "tel", True)) + Me.TextBox50.Location = New System.Drawing.Point(53, 35) + Me.TextBox50.Name = "TextBox50" + Me.TextBox50.NectControl = Nothing + Me.TextBox50.Size = New System.Drawing.Size(104, 21) + Me.TextBox50.TabIndex = 5 + Me.TextBox50.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + ' + 'TextBox48 + ' + Me.TextBox48.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bs, "name", True)) + Me.TextBox48.Location = New System.Drawing.Point(53, 7) + Me.TextBox48.Name = "TextBox48" + Me.TextBox48.NectControl = Nothing + Me.TextBox48.Size = New System.Drawing.Size(104, 21) + Me.TextBox48.TabIndex = 3 + Me.TextBox48.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + ' + 'Label14 + ' + Me.Label14.AutoSize = True + Me.Label14.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Me.Label14.Location = New System.Drawing.Point(165, 38) + Me.Label14.Name = "Label14" + Me.Label14.Size = New System.Drawing.Size(30, 14) + Me.Label14.TabIndex = 5 + Me.Label14.Text = "FAX" + ' + 'TextBox86 + ' + Me.TextBox86.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bs, "fax", True)) + Me.TextBox86.Location = New System.Drawing.Point(201, 35) + Me.TextBox86.Name = "TextBox86" + Me.TextBox86.NectControl = Nothing + Me.TextBox86.Size = New System.Drawing.Size(104, 21) + Me.TextBox86.TabIndex = 6 + Me.TextBox86.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + ' + 'GroupBox2 + ' + Me.GroupBox2.Controls.Add(Me.Panel4) + Me.GroupBox2.Location = New System.Drawing.Point(463, 44) + Me.GroupBox2.Name = "GroupBox2" + Me.GroupBox2.Size = New System.Drawing.Size(286, 45) + Me.GroupBox2.TabIndex = 162 + Me.GroupBox2.TabStop = False + ' + 'Panel4 + ' + Me.Panel4.BackColor = System.Drawing.Color.FromArgb(CType(CType(219, Byte), Integer), CType(CType(221, Byte), Integer), CType(CType(223, Byte), Integer)) + Me.Panel4.Controls.Add(Me.DateTimePicker2) + Me.Panel4.Controls.Add(Me.Label4) + Me.Panel4.Location = New System.Drawing.Point(2, 9) + Me.Panel4.Name = "Panel4" + Me.Panel4.Size = New System.Drawing.Size(282, 33) + Me.Panel4.TabIndex = 174 + ' + 'DateTimePicker2 + ' + Me.DateTimePicker2.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bs, "existdate", True)) + Me.DateTimePicker2.Location = New System.Drawing.Point(68, 6) + Me.DateTimePicker2.Name = "DateTimePicker2" + Me.DateTimePicker2.Size = New System.Drawing.Size(196, 21) + Me.DateTimePicker2.TabIndex = 0 + ' + 'Label4 + ' + Me.Label4.AutoSize = True + Me.Label4.BackColor = System.Drawing.Color.FromArgb(CType(CType(219, Byte), Integer), CType(CType(221, Byte), Integer), CType(CType(223, Byte), Integer)) + Me.Label4.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Me.Label4.Location = New System.Drawing.Point(8, 9) + Me.Label4.Name = "Label4" + Me.Label4.Size = New System.Drawing.Size(54, 14) + Me.Label4.TabIndex = 0 + Me.Label4.Text = "날짜 선택" + ' + 'GroupBox3 + ' + Me.GroupBox3.Controls.Add(Me.Panel6) + Me.GroupBox3.Location = New System.Drawing.Point(132, 44) + Me.GroupBox3.Name = "GroupBox3" + Me.GroupBox3.Size = New System.Drawing.Size(286, 45) + Me.GroupBox3.TabIndex = 162 + Me.GroupBox3.TabStop = False + ' + 'Panel6 + ' + Me.Panel6.BackColor = System.Drawing.Color.FromArgb(CType(CType(219, Byte), Integer), CType(CType(221, Byte), Integer), CType(CType(223, Byte), Integer)) + Me.Panel6.Controls.Add(Me.DateTimePicker1) + Me.Panel6.Controls.Add(Me.Label10) + Me.Panel6.Location = New System.Drawing.Point(2, 9) + Me.Panel6.Name = "Panel6" + Me.Panel6.Size = New System.Drawing.Size(282, 33) + Me.Panel6.TabIndex = 174 + ' + 'DateTimePicker1 + ' + Me.DateTimePicker1.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bs, "reqdate", True)) + Me.DateTimePicker1.Location = New System.Drawing.Point(68, 6) + Me.DateTimePicker1.Name = "DateTimePicker1" + Me.DateTimePicker1.Size = New System.Drawing.Size(196, 21) + Me.DateTimePicker1.TabIndex = 0 + ' + 'Label10 + ' + Me.Label10.AutoSize = True + Me.Label10.BackColor = System.Drawing.Color.FromArgb(CType(CType(219, Byte), Integer), CType(CType(221, Byte), Integer), CType(CType(223, Byte), Integer)) + Me.Label10.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Me.Label10.Location = New System.Drawing.Point(8, 9) + Me.Label10.Name = "Label10" + Me.Label10.Size = New System.Drawing.Size(54, 14) + Me.Label10.TabIndex = 0 + Me.Label10.Text = "날짜 선택" + ' + 'Label2 + ' + Me.Label2.AutoSize = True + Me.Label2.BackColor = System.Drawing.Color.FromArgb(CType(CType(116, Byte), Integer), CType(CType(158, Byte), Integer), CType(CType(209, Byte), Integer)) + Me.Label2.ForeColor = System.Drawing.Color.White + Me.Label2.Location = New System.Drawing.Point(147, 124) + Me.Label2.Name = "Label2" + Me.Label2.Size = New System.Drawing.Size(76, 14) + Me.Label2.TabIndex = 173 + Me.Label2.Text = "건물정보 입력" + ' + 'Label1 + ' + Me.Label1.AutoSize = True + Me.Label1.BackColor = System.Drawing.Color.FromArgb(CType(CType(116, Byte), Integer), CType(CType(158, Byte), Integer), CType(CType(209, Byte), Integer)) + Me.Label1.ForeColor = System.Drawing.Color.White + Me.Label1.Location = New System.Drawing.Point(478, 22) + Me.Label1.Name = "Label1" + Me.Label1.Size = New System.Drawing.Size(51, 14) + Me.Label1.TabIndex = 171 + Me.Label1.Text = "준공일자" + ' + 'PictureBox2 + ' + Me.PictureBox2.BackgroundImage = CType(resources.GetObject("PictureBox2.BackgroundImage"), System.Drawing.Image) + Me.PictureBox2.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch + Me.PictureBox2.Location = New System.Drawing.Point(131, 113) + Me.PictureBox2.Name = "PictureBox2" + Me.PictureBox2.Size = New System.Drawing.Size(131, 30) + Me.PictureBox2.TabIndex = 172 + Me.PictureBox2.TabStop = False + ' + 'PictureBox3 + ' + Me.PictureBox3.BackgroundImage = CType(resources.GetObject("PictureBox3.BackgroundImage"), System.Drawing.Image) + Me.PictureBox3.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch + Me.PictureBox3.Location = New System.Drawing.Point(459, 11) + Me.PictureBox3.Name = "PictureBox3" + Me.PictureBox3.Size = New System.Drawing.Size(131, 30) + Me.PictureBox3.TabIndex = 170 + Me.PictureBox3.TabStop = False + ' + 'Label15 + ' + Me.Label15.AutoSize = True + Me.Label15.BackColor = System.Drawing.Color.FromArgb(CType(CType(116, Byte), Integer), CType(CType(158, Byte), Integer), CType(CType(209, Byte), Integer)) + Me.Label15.ForeColor = System.Drawing.Color.White + Me.Label15.Location = New System.Drawing.Point(147, 22) + Me.Label15.Name = "Label15" + Me.Label15.Size = New System.Drawing.Size(51, 14) + Me.Label15.TabIndex = 171 + Me.Label15.Text = "신청일자" + ' + 'PictureBox1 + ' + Me.PictureBox1.BackgroundImage = CType(resources.GetObject("PictureBox1.BackgroundImage"), System.Drawing.Image) + Me.PictureBox1.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch + Me.PictureBox1.Location = New System.Drawing.Point(128, 11) + Me.PictureBox1.Name = "PictureBox1" + Me.PictureBox1.Size = New System.Drawing.Size(131, 30) + Me.PictureBox1.TabIndex = 170 + Me.PictureBox1.TabStop = False + ' + 'MyTb3 + ' + Me.MyTb3.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bs, "buildaddr", True)) + Me.MyTb3.Location = New System.Drawing.Point(205, 4) + Me.MyTb3.Name = "MyTb3" + Me.MyTb3.NectControl = Nothing + Me.MyTb3.Size = New System.Drawing.Size(187, 21) + Me.MyTb3.TabIndex = 1 + Me.MyTb3.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + ' + 'Frm_V20091231_desc + ' + Me.AutoScaleDimensions = New System.Drawing.SizeF(7.0!, 14.0!) + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font + Me.BackColor = System.Drawing.SystemColors.AppWorkspace + Me.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch + Me.ClientSize = New System.Drawing.Size(795, 565) + Me.ControlBox = False + Me.Controls.Add(Me.Panel2) + Me.Font = New System.Drawing.Font("나눔고딕 ExtraBold", 8.999999!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.Name = "Frm_V20091231_desc" + Me.Opacity = 0.8R + Me.ShowIcon = False + Me.ShowInTaskbar = False + Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen + Me.Text = "건물개요" + Me.TopMost = True + Me.TableLayoutPanel3.ResumeLayout(False) + Me.TableLayoutPanel3.PerformLayout() + Me.TableLayoutPanel4.ResumeLayout(False) + Me.TableLayoutPanel4.PerformLayout() + CType(Me.bs, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.DS, System.ComponentModel.ISupportInitialize).EndInit() + Me.TableLayoutPanel5.ResumeLayout(False) + Me.TableLayoutPanel5.PerformLayout() + Me.Panel2.ResumeLayout(False) + Me.Panel2.PerformLayout() + Me.GroupBox1.ResumeLayout(False) + Me.Panel1.ResumeLayout(False) + Me.Panel1.PerformLayout() + Me.Panel3.ResumeLayout(False) + Me.Panel3.PerformLayout() + Me.GroupBox5.ResumeLayout(False) + Me.Panel7.ResumeLayout(False) + Me.Panel7.PerformLayout() + Me.Panel8.ResumeLayout(False) + Me.Panel8.PerformLayout() + Me.GroupBox2.ResumeLayout(False) + Me.Panel4.ResumeLayout(False) + Me.Panel4.PerformLayout() + Me.GroupBox3.ResumeLayout(False) + Me.Panel6.ResumeLayout(False) + Me.Panel6.PerformLayout() + CType(Me.PictureBox2, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.PictureBox3, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).EndInit() + Me.ResumeLayout(False) + + End Sub + Friend WithEvents bs As System.Windows.Forms.BindingSource + Public WithEvents DS As Eco2Ar.DS + Friend WithEvents TableLayoutPanel3 As System.Windows.Forms.TableLayoutPanel + Friend WithEvents Label6 As System.Windows.Forms.Label + Friend WithEvents TableLayoutPanel4 As System.Windows.Forms.TableLayoutPanel + Friend WithEvents Label7 As System.Windows.Forms.Label + Friend WithEvents MyTb1 As Eco2Ar.MyTb + Friend WithEvents MyTb2 As Eco2Ar.MyTb + Friend WithEvents Label8 As System.Windows.Forms.Label + Friend WithEvents TableLayoutPanel5 As System.Windows.Forms.TableLayoutPanel + Friend WithEvents Label9 As System.Windows.Forms.Label + Friend WithEvents MyTb3 As Eco2Ar.MyTb + Friend WithEvents Panel2 As System.Windows.Forms.Panel + Friend WithEvents TextBox77 As Eco2Ar.MyTb + Friend WithEvents TextBox76 As Eco2Ar.MyTb + Friend WithEvents TextBox79 As Eco2Ar.MyTb + Friend WithEvents TextBox75 As Eco2Ar.MyTb + Friend WithEvents TextBox73 As Eco2Ar.MyTb + Friend WithEvents DateTimePicker1 As System.Windows.Forms.DateTimePicker + Friend WithEvents cmb_location As Eco2Ar.MyCmb + Friend WithEvents TextBox72 As Eco2Ar.MyTb + Friend WithEvents TextBox70 As Eco2Ar.MyTb + Friend WithEvents TextBox69 As Eco2Ar.MyTb + Friend WithEvents TextBox71 As Eco2Ar.MyTb + Friend WithEvents TextBox48 As Eco2Ar.MyTb + Friend WithEvents TextBox49 As Eco2Ar.MyTb + Friend WithEvents TextBox86 As Eco2Ar.MyTb + Friend WithEvents TextBox50 As Eco2Ar.MyTb + Friend WithEvents TextBox88 As Eco2Ar.MyTb + Friend WithEvents TextBox87 As Eco2Ar.MyTb + Friend WithEvents TextBox90 As Eco2Ar.MyTb + Friend WithEvents TextBox89 As Eco2Ar.MyTb + Friend WithEvents GroupBox3 As System.Windows.Forms.GroupBox + Friend WithEvents GroupBox1 As System.Windows.Forms.GroupBox + Friend WithEvents Label22 As System.Windows.Forms.Label + Friend WithEvents Panel1 As System.Windows.Forms.Panel + Friend WithEvents Label23 As System.Windows.Forms.Label + Friend WithEvents Label27 As System.Windows.Forms.Label + Friend WithEvents Label28 As System.Windows.Forms.Label + Friend WithEvents Panel3 As System.Windows.Forms.Panel + Friend WithEvents Label29 As System.Windows.Forms.Label + Friend WithEvents Label30 As System.Windows.Forms.Label + Friend WithEvents Label32 As System.Windows.Forms.Label + Friend WithEvents Label33 As System.Windows.Forms.Label + Friend WithEvents Label34 As System.Windows.Forms.Label + Friend WithEvents Label35 As System.Windows.Forms.Label + Friend WithEvents Label40 As System.Windows.Forms.Label + Friend WithEvents Label41 As System.Windows.Forms.Label + Friend WithEvents GroupBox5 As System.Windows.Forms.GroupBox + Friend WithEvents Label3 As System.Windows.Forms.Label + Friend WithEvents Panel7 As System.Windows.Forms.Panel + Friend WithEvents Label12 As System.Windows.Forms.Label + Friend WithEvents Label14 As System.Windows.Forms.Label + Friend WithEvents Label20 As System.Windows.Forms.Label + Friend WithEvents Label25 As System.Windows.Forms.Label + Friend WithEvents Label26 As System.Windows.Forms.Label + Friend WithEvents Label31 As System.Windows.Forms.Label + Friend WithEvents Panel8 As System.Windows.Forms.Panel + Friend WithEvents Label36 As System.Windows.Forms.Label + Friend WithEvents Label37 As System.Windows.Forms.Label + Friend WithEvents Label38 As System.Windows.Forms.Label + Friend WithEvents Label39 As System.Windows.Forms.Label + Friend WithEvents Panel6 As System.Windows.Forms.Panel + Friend WithEvents Label10 As System.Windows.Forms.Label + Friend WithEvents Label2 As System.Windows.Forms.Label + Friend WithEvents PictureBox2 As System.Windows.Forms.PictureBox + Friend WithEvents Label15 As System.Windows.Forms.Label + Friend WithEvents PictureBox1 As System.Windows.Forms.PictureBox + Friend WithEvents LinkLabel2 As System.Windows.Forms.LinkLabel + Friend WithEvents LinkLabel1 As System.Windows.Forms.LinkLabel + Friend WithEvents ToolTip1 As System.Windows.Forms.ToolTip + Friend WithEvents MyTb5 As Eco2Ar.MyTb + Friend WithEvents MyTb4 As Eco2Ar.MyTb + Friend WithEvents LinkLabel3 As System.Windows.Forms.LinkLabel + Friend WithEvents MyTb6 As Eco2Ar.MyTb + Friend WithEvents Label5 As System.Windows.Forms.Label + Friend WithEvents GroupBox2 As System.Windows.Forms.GroupBox + Friend WithEvents Panel4 As System.Windows.Forms.Panel + Friend WithEvents DateTimePicker2 As System.Windows.Forms.DateTimePicker + Friend WithEvents Label4 As System.Windows.Forms.Label + Friend WithEvents Label1 As System.Windows.Forms.Label + Friend WithEvents PictureBox3 As System.Windows.Forms.PictureBox + Friend WithEvents Label11 As System.Windows.Forms.Label +End Class diff --git a/ArinWarev1/Forms/v20091231/Frm_v20091231_Desc.resx b/ArinWarev1/Forms/v20091231/Frm_v20091231_Desc.resx new file mode 100644 index 0000000..1b50f33 --- /dev/null +++ b/ArinWarev1/Forms/v20091231/Frm_v20091231_Desc.resx @@ -0,0 +1,415 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + 17, 17 + + + 81, 17 + + + 148, 17 + + + + + /9j/4AAQSkZJRgABAgEASABIAAD/7gAOQWRvYmUAZAAAAAAB/+ED5kV4aWYAAE1NACoAAAAIAAcBEgAD + AAAAAQABAAABGgAFAAAAAQAAAGIBGwAFAAAAAQAAAGoBKAADAAAAAQACAAABMQACAAAAHAAAAHIBMgAC + AAAAFAAAAI6HaQAEAAAAAQAAAKIAAADCAEgAAAABAAAASAAAAAEAAEFkb2JlIFBob3Rvc2hvcCBDUzMg + V2luZG93cwAyMDEwOjA0OjE1IDIwOjMyOjA0AAACoAIABAAAAAEAAAA8oAMABAAAAAEAAAAMAAAAAAAA + AAYBAwADAAAAAQAGAAABGgAFAAAAAQAAARABGwAFAAAAAQAAARgBKAADAAAAAQACAAACAQAEAAAAAQAA + ASACAgAEAAAAAQAAAr4AAAAAAAAASAAAAAEAAABIAAAAAf/Y/+AAEEpGSUYAAQIAAEgASAAA/+0ADEFk + b2JlX0NNAAH/7gAOQWRvYmUAZIAAAAAB/9sAhAAMCAgICQgMCQkMEQsKCxEVDwwMDxUYExMVExMYEQwM + DAwMDBEMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMAQ0LCw0ODRAODhAUDg4OFBQODg4OFBEMDAwM + DBERDAwMDAwMEQwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAz/wAARCAAMADwDASIAAhEBAxEB/90A + BAAE/8QBPwAAAQUBAQEBAQEAAAAAAAAAAwABAgQFBgcICQoLAQABBQEBAQEBAQAAAAAAAAABAAIDBAUG + BwgJCgsQAAEEAQMCBAIFBwYIBQMMMwEAAhEDBCESMQVBUWETInGBMgYUkaGxQiMkFVLBYjM0coLRQwcl + klPw4fFjczUWorKDJkSTVGRFwqN0NhfSVeJl8rOEw9N14/NGJ5SkhbSVxNTk9KW1xdXl9VZmdoaWprbG + 1ub2N0dXZ3eHl6e3x9fn9xEAAgIBAgQEAwQFBgcHBgU1AQACEQMhMRIEQVFhcSITBTKBkRShsUIjwVLR + 8DMkYuFygpJDUxVjczTxJQYWorKDByY1wtJEk1SjF2RFVTZ0ZeLys4TD03Xj80aUpIW0lcTU5PSltcXV + 5fVWZnaGlqa2xtbm9ic3R1dnd4eXp7fH/9oADAMBAAIRAxEAPwDd/amR/pH/AOcf70v2pkf6R/8AnH+9 + UUlofq/Bpevxb37UyP8ASP8A84/3pftTI/0j/wDOP96opJfq/BXr8W9+1Mj/AEj/APOP96X7UyP9I/8A + zj/eqKSX6vwV6/F3ujdbuGS2i5xfU8HVxktIG76XyW99vo27p0XGdO2/ba930dZj+q5dX+qfZPL8VAeD + 341VVr/eZhx+0bu708n/2f/iDFhJQ0NfUFJPRklMRQABAQAADEhMaW5vAhAAAG1udHJSR0IgWFlaIAfO + AAIACQAGADEAAGFjc3BNU0ZUAAAAAElFQyBzUkdCAAAAAAAAAAAAAAAAAAD21gABAAAAANMtSFAgIAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAEWNwcnQAAAFQAAAAM2Rl + c2MAAAGEAAAAbHd0cHQAAAHwAAAAFGJrcHQAAAIEAAAAFHJYWVoAAAIYAAAAFGdYWVoAAAIsAAAAFGJY + WVoAAAJAAAAAFGRtbmQAAAJUAAAAcGRtZGQAAALEAAAAiHZ1ZWQAAANMAAAAhnZpZXcAAAPUAAAAJGx1 + bWkAAAP4AAAAFG1lYXMAAAQMAAAAJHRlY2gAAAQwAAAADHJUUkMAAAQ8AAAIDGdUUkMAAAQ8AAAIDGJU + UkMAAAQ8AAAIDHRleHQAAAAAQ29weXJpZ2h0IChjKSAxOTk4IEhld2xldHQtUGFja2FyZCBDb21wYW55 + AABkZXNjAAAAAAAAABJzUkdCIElFQzYxOTY2LTIuMQAAAAAAAAAAAAAAEnNSR0IgSUVDNjE5NjYtMi4x + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABYWVogAAAAAAAA + 81EAAQAAAAEWzFhZWiAAAAAAAAAAAAAAAAAAAAAAWFlaIAAAAAAAAG+iAAA49QAAA5BYWVogAAAAAAAA + YpkAALeFAAAY2lhZWiAAAAAAAAAkoAAAD4QAALbPZGVzYwAAAAAAAAAWSUVDIGh0dHA6Ly93d3cuaWVj + LmNoAAAAAAAAAAAAAAAWSUVDIGh0dHA6Ly93d3cuaWVjLmNoAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAGRlc2MAAAAAAAAALklFQyA2MTk2Ni0yLjEgRGVmYXVsdCBSR0Ig + Y29sb3VyIHNwYWNlIC0gc1JHQgAAAAAAAAAAAAAALklFQyA2MTk2Ni0yLjEgRGVmYXVsdCBSR0IgY29s + b3VyIHNwYWNlIC0gc1JHQgAAAAAAAAAAAAAAAAAAAAAAAAAAAABkZXNjAAAAAAAAACxSZWZlcmVuY2Ug + Vmlld2luZyBDb25kaXRpb24gaW4gSUVDNjE5NjYtMi4xAAAAAAAAAAAAAAAsUmVmZXJlbmNlIFZpZXdp + bmcgQ29uZGl0aW9uIGluIElFQzYxOTY2LTIuMQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAdmlldwAA + AAAAE6T+ABRfLgAQzxQAA+3MAAQTCwADXJ4AAAABWFlaIAAAAAAATAlWAFAAAABXH+dtZWFzAAAAAAAA + AAEAAAAAAAAAAAAAAAAAAAAAAAACjwAAAAJzaWcgAAAAAENSVCBjdXJ2AAAAAAAABAAAAAAFAAoADwAU + ABkAHgAjACgALQAyADcAOwBAAEUASgBPAFQAWQBeAGMAaABtAHIAdwB8AIEAhgCLAJAAlQCaAJ8ApACp + AK4AsgC3ALwAwQDGAMsA0ADVANsA4ADlAOsA8AD2APsBAQEHAQ0BEwEZAR8BJQErATIBOAE+AUUBTAFS + AVkBYAFnAW4BdQF8AYMBiwGSAZoBoQGpAbEBuQHBAckB0QHZAeEB6QHyAfoCAwIMAhQCHQImAi8COAJB + AksCVAJdAmcCcQJ6AoQCjgKYAqICrAK2AsECywLVAuAC6wL1AwADCwMWAyEDLQM4A0MDTwNaA2YDcgN+ + A4oDlgOiA64DugPHA9MD4APsA/kEBgQTBCAELQQ7BEgEVQRjBHEEfgSMBJoEqAS2BMQE0wThBPAE/gUN + BRwFKwU6BUkFWAVnBXcFhgWWBaYFtQXFBdUF5QX2BgYGFgYnBjcGSAZZBmoGewaMBp0GrwbABtEG4wb1 + BwcHGQcrBz0HTwdhB3QHhgeZB6wHvwfSB+UH+AgLCB8IMghGCFoIbgiCCJYIqgi+CNII5wj7CRAJJQk6 + CU8JZAl5CY8JpAm6Cc8J5Qn7ChEKJwo9ClQKagqBCpgKrgrFCtwK8wsLCyILOQtRC2kLgAuYC7ALyAvh + C/kMEgwqDEMMXAx1DI4MpwzADNkM8w0NDSYNQA1aDXQNjg2pDcMN3g34DhMOLg5JDmQOfw6bDrYO0g7u + DwkPJQ9BD14Peg+WD7MPzw/sEAkQJhBDEGEQfhCbELkQ1xD1ERMRMRFPEW0RjBGqEckR6BIHEiYSRRJk + EoQSoxLDEuMTAxMjE0MTYxODE6QTxRPlFAYUJxRJFGoUixStFM4U8BUSFTQVVhV4FZsVvRXgFgMWJhZJ + FmwWjxayFtYW+hcdF0EXZReJF64X0hf3GBsYQBhlGIoYrxjVGPoZIBlFGWsZkRm3Gd0aBBoqGlEadxqe + GsUa7BsUGzsbYxuKG7Ib2hwCHCocUhx7HKMczBz1HR4dRx1wHZkdwx3sHhYeQB5qHpQevh7pHxMfPh9p + H5Qfvx/qIBUgQSBsIJggxCDwIRwhSCF1IaEhziH7IiciVSKCIq8i3SMKIzgjZiOUI8Ij8CQfJE0kfCSr + JNolCSU4JWgllyXHJfcmJyZXJocmtyboJxgnSSd6J6sn3CgNKD8ocSiiKNQpBik4KWspnSnQKgIqNSpo + KpsqzysCKzYraSudK9EsBSw5LG4soizXLQwtQS12Last4S4WLkwugi63Lu4vJC9aL5Evxy/+MDUwbDCk + MNsxEjFKMYIxujHyMioyYzKbMtQzDTNGM38zuDPxNCs0ZTSeNNg1EzVNNYc1wjX9Njc2cjauNuk3JDdg + N5w31zgUOFA4jDjIOQU5Qjl/Obw5+To2OnQ6sjrvOy07azuqO+g8JzxlPKQ84z0iPWE9oT3gPiA+YD6g + PuA/IT9hP6I/4kAjQGRApkDnQSlBakGsQe5CMEJyQrVC90M6Q31DwEQDREdEikTORRJFVUWaRd5GIkZn + RqtG8Ec1R3tHwEgFSEtIkUjXSR1JY0mpSfBKN0p9SsRLDEtTS5pL4kwqTHJMuk0CTUpNk03cTiVObk63 + TwBPSU+TT91QJ1BxULtRBlFQUZtR5lIxUnxSx1MTU19TqlP2VEJUj1TbVShVdVXCVg9WXFapVvdXRFeS + V+BYL1h9WMtZGllpWbhaB1pWWqZa9VtFW5Vb5Vw1XIZc1l0nXXhdyV4aXmxevV8PX2Ffs2AFYFdgqmD8 + YU9homH1YklinGLwY0Njl2PrZEBklGTpZT1lkmXnZj1mkmboZz1nk2fpaD9olmjsaUNpmmnxakhqn2r3 + a09rp2v/bFdsr20IbWBtuW4SbmtuxG8eb3hv0XArcIZw4HE6cZVx8HJLcqZzAXNdc7h0FHRwdMx1KHWF + deF2Pnabdvh3VnezeBF4bnjMeSp5iXnnekZ6pXsEe2N7wnwhfIF84X1BfaF+AX5ifsJ/I3+Ef+WAR4Co + gQqBa4HNgjCCkoL0g1eDuoQdhICE44VHhauGDoZyhteHO4efiASIaYjOiTOJmYn+imSKyoswi5aL/Ixj + jMqNMY2Yjf+OZo7OjzaPnpAGkG6Q1pE/kaiSEZJ6kuOTTZO2lCCUipT0lV+VyZY0lp+XCpd1l+CYTJi4 + mSSZkJn8mmia1ZtCm6+cHJyJnPedZJ3SnkCerp8dn4uf+qBpoNihR6G2oiailqMGo3aj5qRWpMelOKWp + phqmi6b9p26n4KhSqMSpN6mpqhyqj6sCq3Wr6axcrNCtRK24ri2uoa8Wr4uwALB1sOqxYLHWskuywrM4 + s660JbSctRO1irYBtnm28Ldot+C4WbjRuUq5wro7urW7LrunvCG8m70VvY++Cr6Evv+/er/1wHDA7MFn + wePCX8Lbw1jD1MRRxM7FS8XIxkbGw8dBx7/IPci8yTrJuco4yrfLNsu2zDXMtc01zbXONs62zzfPuNA5 + 0LrRPNG+0j/SwdNE08bUSdTL1U7V0dZV1tjXXNfg2GTY6Nls2fHadtr724DcBdyK3RDdlt4c3qLfKd+v + 4DbgveFE4cziU+Lb42Pj6+Rz5PzlhOYN5pbnH+ep6DLovOlG6dDqW+rl63Dr++yG7RHtnO4o7rTvQO/M + 8Fjw5fFy8f/yjPMZ86f0NPTC9VD13vZt9vv3ivgZ+Kj5OPnH+lf65/t3/Af8mP0p/br+S/7c/23////b + AEMAAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQICAgICAgICAgICAwMD + AwMDAwMDA//bAEMBAQEBAQEBAQEBAQICAQICAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMD + AwMDAwMDAwMDAwMDAwMDA//AABEIAAwAPAMBEQACEQEDEQH/xAAfAAABBQEBAQEBAQAAAAAAAAAAAQID + BAUGBwgJCgv/xAC1EAACAQMDAgQDBQUEBAAAAX0BAgMABBEFEiExQQYTUWEHInEUMoGRoQgjQrHBFVLR + 8CQzYnKCCQoWFxgZGiUmJygpKjQ1Njc4OTpDREVGR0hJSlNUVVZXWFlaY2RlZmdoaWpzdHV2d3h5eoOE + hYaHiImKkpOUlZaXmJmaoqOkpaanqKmqsrO0tba3uLm6wsPExcbHyMnK0tPU1dbX2Nna4eLj5OXm5+jp + 6vHy8/T19vf4+fr/xAAfAQADAQEBAQEBAQEBAAAAAAAAAQIDBAUGBwgJCgv/xAC1EQACAQIEBAMEBwUE + BAABAncAAQIDEQQFITEGEkFRB2FxEyIygQgUQpGhscEJIzNS8BVictEKFiQ04SXxFxgZGiYnKCkqNTY3 + ODk6Q0RFRkdISUpTVFVWV1hZWmNkZWZnaGlqc3R1dnd4eXqCg4SFhoeIiYqSk5SVlpeYmZqio6Slpqeo + qaqys7S1tre4ubrCw8TFxsfIycrS09TV1tfY2dri4+Tl5ufo6ery8/T19vf4+fr/2gAMAwEAAhEDEQA/ + AP1ZH7UPxEAA/wCEw8bnj/ob9f8A/k+v7U/1Nyj/AKF+G/8ABUP/AJE/llcSZlZf7dX/APBk/wDMX/hq + H4if9Df43/8ACv1//wCT6P8AU3Kf+hfhv/BUP/kQ/wBZcy/6Dq//AIMn/mH/AA1D8RP+hv8AG/8A4V+v + /wDyfR/qblP/AEL8N/4Kh/8AIh/rLmX/AEHV/wDwZP8AzD/hqH4if9Df43/8K/X/AP5Po/1Nyn/oX4b/ + AMFQ/wDkQ/1lzL/oOr/+DJ/5h/w1D8RP+hv8b/8AhX6//wDJ9H+puU/9C/Df+Cof/Ih/rLmX/QdX/wDB + k/8AMT/hqH4if9Df43/8K/X/AP5Po/1Nyn/oX4b/AMFQ/wDkQ/1kzL/oOr/+DJ/5n2R+xz+234zt/iRp + nw+8a6vqXiDwZ4gs9baObXr+bUr/AMPajpmkX2tQ3FlqV2Zb57K7XT2t3tXkaJWkV4whVxJ+beJfAuU4 + Th/FZ/hKEKOMw8qd+SKjGcZzjTs4q0bpyUlJK7s073VvuuBOLMxxGcYfJ8TWlVw1ZTtzu7hKMJTupPWz + UWnFu2qatrf9aP8AhfXgv+zv7U89/sfm+V5207N+M43fSv50P2w/kwr/AEFP42CgAoAKACgAoA9s/Z0/ + s7/hcng3+1vP/s7Ov/avs2PP2f8ACL63t2buP9ZjP+zmvz7xU/5IPPf+4H/qRRPsvD//AJK7KP8AuL/6 + ZqH7/wD/ABaT/hUfb7Ht/wBj7V9p8v8A9Cr+Oz+lz//Z + + + + + /9j/4AAQSkZJRgABAgEASABIAAD/7gAOQWRvYmUAZAAAAAAB/+ED5kV4aWYAAE1NACoAAAAIAAcBEgAD + AAAAAQABAAABGgAFAAAAAQAAAGIBGwAFAAAAAQAAAGoBKAADAAAAAQACAAABMQACAAAAHAAAAHIBMgAC + AAAAFAAAAI6HaQAEAAAAAQAAAKIAAADCAEgAAAABAAAASAAAAAEAAEFkb2JlIFBob3Rvc2hvcCBDUzMg + V2luZG93cwAyMDEwOjA0OjE1IDIwOjMyOjA0AAACoAIABAAAAAEAAAA8oAMABAAAAAEAAAAMAAAAAAAA + AAYBAwADAAAAAQAGAAABGgAFAAAAAQAAARABGwAFAAAAAQAAARgBKAADAAAAAQACAAACAQAEAAAAAQAA + ASACAgAEAAAAAQAAAr4AAAAAAAAASAAAAAEAAABIAAAAAf/Y/+AAEEpGSUYAAQIAAEgASAAA/+0ADEFk + b2JlX0NNAAH/7gAOQWRvYmUAZIAAAAAB/9sAhAAMCAgICQgMCQkMEQsKCxEVDwwMDxUYExMVExMYEQwM + DAwMDBEMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMAQ0LCw0ODRAODhAUDg4OFBQODg4OFBEMDAwM + DBERDAwMDAwMEQwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAz/wAARCAAMADwDASIAAhEBAxEB/90A + BAAE/8QBPwAAAQUBAQEBAQEAAAAAAAAAAwABAgQFBgcICQoLAQABBQEBAQEBAQAAAAAAAAABAAIDBAUG + BwgJCgsQAAEEAQMCBAIFBwYIBQMMMwEAAhEDBCESMQVBUWETInGBMgYUkaGxQiMkFVLBYjM0coLRQwcl + klPw4fFjczUWorKDJkSTVGRFwqN0NhfSVeJl8rOEw9N14/NGJ5SkhbSVxNTk9KW1xdXl9VZmdoaWprbG + 1ub2N0dXZ3eHl6e3x9fn9xEAAgIBAgQEAwQFBgcHBgU1AQACEQMhMRIEQVFhcSITBTKBkRShsUIjwVLR + 8DMkYuFygpJDUxVjczTxJQYWorKDByY1wtJEk1SjF2RFVTZ0ZeLys4TD03Xj80aUpIW0lcTU5PSltcXV + 5fVWZnaGlqa2xtbm9ic3R1dnd4eXp7fH/9oADAMBAAIRAxEAPwDd/amR/pH/AOcf70v2pkf6R/8AnH+9 + UUlofq/Bpevxb37UyP8ASP8A84/3pftTI/0j/wDOP96opJfq/BXr8W9+1Mj/AEj/APOP96X7UyP9I/8A + zj/eqKSX6vwV6/F3ujdbuGS2i5xfU8HVxktIG76XyW99vo27p0XGdO2/ba930dZj+q5dX+qfZPL8VAeD + 341VVr/eZhx+0bu708n/2f/iDFhJQ0NfUFJPRklMRQABAQAADEhMaW5vAhAAAG1udHJSR0IgWFlaIAfO + AAIACQAGADEAAGFjc3BNU0ZUAAAAAElFQyBzUkdCAAAAAAAAAAAAAAAAAAD21gABAAAAANMtSFAgIAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAEWNwcnQAAAFQAAAAM2Rl + c2MAAAGEAAAAbHd0cHQAAAHwAAAAFGJrcHQAAAIEAAAAFHJYWVoAAAIYAAAAFGdYWVoAAAIsAAAAFGJY + WVoAAAJAAAAAFGRtbmQAAAJUAAAAcGRtZGQAAALEAAAAiHZ1ZWQAAANMAAAAhnZpZXcAAAPUAAAAJGx1 + bWkAAAP4AAAAFG1lYXMAAAQMAAAAJHRlY2gAAAQwAAAADHJUUkMAAAQ8AAAIDGdUUkMAAAQ8AAAIDGJU + UkMAAAQ8AAAIDHRleHQAAAAAQ29weXJpZ2h0IChjKSAxOTk4IEhld2xldHQtUGFja2FyZCBDb21wYW55 + AABkZXNjAAAAAAAAABJzUkdCIElFQzYxOTY2LTIuMQAAAAAAAAAAAAAAEnNSR0IgSUVDNjE5NjYtMi4x + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABYWVogAAAAAAAA + 81EAAQAAAAEWzFhZWiAAAAAAAAAAAAAAAAAAAAAAWFlaIAAAAAAAAG+iAAA49QAAA5BYWVogAAAAAAAA + YpkAALeFAAAY2lhZWiAAAAAAAAAkoAAAD4QAALbPZGVzYwAAAAAAAAAWSUVDIGh0dHA6Ly93d3cuaWVj + LmNoAAAAAAAAAAAAAAAWSUVDIGh0dHA6Ly93d3cuaWVjLmNoAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAGRlc2MAAAAAAAAALklFQyA2MTk2Ni0yLjEgRGVmYXVsdCBSR0Ig + Y29sb3VyIHNwYWNlIC0gc1JHQgAAAAAAAAAAAAAALklFQyA2MTk2Ni0yLjEgRGVmYXVsdCBSR0IgY29s + b3VyIHNwYWNlIC0gc1JHQgAAAAAAAAAAAAAAAAAAAAAAAAAAAABkZXNjAAAAAAAAACxSZWZlcmVuY2Ug + Vmlld2luZyBDb25kaXRpb24gaW4gSUVDNjE5NjYtMi4xAAAAAAAAAAAAAAAsUmVmZXJlbmNlIFZpZXdp + bmcgQ29uZGl0aW9uIGluIElFQzYxOTY2LTIuMQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAdmlldwAA + AAAAE6T+ABRfLgAQzxQAA+3MAAQTCwADXJ4AAAABWFlaIAAAAAAATAlWAFAAAABXH+dtZWFzAAAAAAAA + AAEAAAAAAAAAAAAAAAAAAAAAAAACjwAAAAJzaWcgAAAAAENSVCBjdXJ2AAAAAAAABAAAAAAFAAoADwAU + ABkAHgAjACgALQAyADcAOwBAAEUASgBPAFQAWQBeAGMAaABtAHIAdwB8AIEAhgCLAJAAlQCaAJ8ApACp + AK4AsgC3ALwAwQDGAMsA0ADVANsA4ADlAOsA8AD2APsBAQEHAQ0BEwEZAR8BJQErATIBOAE+AUUBTAFS + AVkBYAFnAW4BdQF8AYMBiwGSAZoBoQGpAbEBuQHBAckB0QHZAeEB6QHyAfoCAwIMAhQCHQImAi8COAJB + AksCVAJdAmcCcQJ6AoQCjgKYAqICrAK2AsECywLVAuAC6wL1AwADCwMWAyEDLQM4A0MDTwNaA2YDcgN+ + A4oDlgOiA64DugPHA9MD4APsA/kEBgQTBCAELQQ7BEgEVQRjBHEEfgSMBJoEqAS2BMQE0wThBPAE/gUN + BRwFKwU6BUkFWAVnBXcFhgWWBaYFtQXFBdUF5QX2BgYGFgYnBjcGSAZZBmoGewaMBp0GrwbABtEG4wb1 + BwcHGQcrBz0HTwdhB3QHhgeZB6wHvwfSB+UH+AgLCB8IMghGCFoIbgiCCJYIqgi+CNII5wj7CRAJJQk6 + CU8JZAl5CY8JpAm6Cc8J5Qn7ChEKJwo9ClQKagqBCpgKrgrFCtwK8wsLCyILOQtRC2kLgAuYC7ALyAvh + C/kMEgwqDEMMXAx1DI4MpwzADNkM8w0NDSYNQA1aDXQNjg2pDcMN3g34DhMOLg5JDmQOfw6bDrYO0g7u + DwkPJQ9BD14Peg+WD7MPzw/sEAkQJhBDEGEQfhCbELkQ1xD1ERMRMRFPEW0RjBGqEckR6BIHEiYSRRJk + EoQSoxLDEuMTAxMjE0MTYxODE6QTxRPlFAYUJxRJFGoUixStFM4U8BUSFTQVVhV4FZsVvRXgFgMWJhZJ + FmwWjxayFtYW+hcdF0EXZReJF64X0hf3GBsYQBhlGIoYrxjVGPoZIBlFGWsZkRm3Gd0aBBoqGlEadxqe + GsUa7BsUGzsbYxuKG7Ib2hwCHCocUhx7HKMczBz1HR4dRx1wHZkdwx3sHhYeQB5qHpQevh7pHxMfPh9p + H5Qfvx/qIBUgQSBsIJggxCDwIRwhSCF1IaEhziH7IiciVSKCIq8i3SMKIzgjZiOUI8Ij8CQfJE0kfCSr + JNolCSU4JWgllyXHJfcmJyZXJocmtyboJxgnSSd6J6sn3CgNKD8ocSiiKNQpBik4KWspnSnQKgIqNSpo + KpsqzysCKzYraSudK9EsBSw5LG4soizXLQwtQS12Last4S4WLkwugi63Lu4vJC9aL5Evxy/+MDUwbDCk + MNsxEjFKMYIxujHyMioyYzKbMtQzDTNGM38zuDPxNCs0ZTSeNNg1EzVNNYc1wjX9Njc2cjauNuk3JDdg + N5w31zgUOFA4jDjIOQU5Qjl/Obw5+To2OnQ6sjrvOy07azuqO+g8JzxlPKQ84z0iPWE9oT3gPiA+YD6g + PuA/IT9hP6I/4kAjQGRApkDnQSlBakGsQe5CMEJyQrVC90M6Q31DwEQDREdEikTORRJFVUWaRd5GIkZn + RqtG8Ec1R3tHwEgFSEtIkUjXSR1JY0mpSfBKN0p9SsRLDEtTS5pL4kwqTHJMuk0CTUpNk03cTiVObk63 + TwBPSU+TT91QJ1BxULtRBlFQUZtR5lIxUnxSx1MTU19TqlP2VEJUj1TbVShVdVXCVg9WXFapVvdXRFeS + V+BYL1h9WMtZGllpWbhaB1pWWqZa9VtFW5Vb5Vw1XIZc1l0nXXhdyV4aXmxevV8PX2Ffs2AFYFdgqmD8 + YU9homH1YklinGLwY0Njl2PrZEBklGTpZT1lkmXnZj1mkmboZz1nk2fpaD9olmjsaUNpmmnxakhqn2r3 + a09rp2v/bFdsr20IbWBtuW4SbmtuxG8eb3hv0XArcIZw4HE6cZVx8HJLcqZzAXNdc7h0FHRwdMx1KHWF + deF2Pnabdvh3VnezeBF4bnjMeSp5iXnnekZ6pXsEe2N7wnwhfIF84X1BfaF+AX5ifsJ/I3+Ef+WAR4Co + gQqBa4HNgjCCkoL0g1eDuoQdhICE44VHhauGDoZyhteHO4efiASIaYjOiTOJmYn+imSKyoswi5aL/Ixj + jMqNMY2Yjf+OZo7OjzaPnpAGkG6Q1pE/kaiSEZJ6kuOTTZO2lCCUipT0lV+VyZY0lp+XCpd1l+CYTJi4 + mSSZkJn8mmia1ZtCm6+cHJyJnPedZJ3SnkCerp8dn4uf+qBpoNihR6G2oiailqMGo3aj5qRWpMelOKWp + phqmi6b9p26n4KhSqMSpN6mpqhyqj6sCq3Wr6axcrNCtRK24ri2uoa8Wr4uwALB1sOqxYLHWskuywrM4 + s660JbSctRO1irYBtnm28Ldot+C4WbjRuUq5wro7urW7LrunvCG8m70VvY++Cr6Evv+/er/1wHDA7MFn + wePCX8Lbw1jD1MRRxM7FS8XIxkbGw8dBx7/IPci8yTrJuco4yrfLNsu2zDXMtc01zbXONs62zzfPuNA5 + 0LrRPNG+0j/SwdNE08bUSdTL1U7V0dZV1tjXXNfg2GTY6Nls2fHadtr724DcBdyK3RDdlt4c3qLfKd+v + 4DbgveFE4cziU+Lb42Pj6+Rz5PzlhOYN5pbnH+ep6DLovOlG6dDqW+rl63Dr++yG7RHtnO4o7rTvQO/M + 8Fjw5fFy8f/yjPMZ86f0NPTC9VD13vZt9vv3ivgZ+Kj5OPnH+lf65/t3/Af8mP0p/br+S/7c/23////b + AEMAAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQICAgICAgICAgICAwMD + AwMDAwMDA//bAEMBAQEBAQEBAQEBAQICAQICAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMD + AwMDAwMDAwMDAwMDAwMDA//AABEIAAwAPAMBEQACEQEDEQH/xAAfAAABBQEBAQEBAQAAAAAAAAAAAQID + BAUGBwgJCgv/xAC1EAACAQMDAgQDBQUEBAAAAX0BAgMABBEFEiExQQYTUWEHInEUMoGRoQgjQrHBFVLR + 8CQzYnKCCQoWFxgZGiUmJygpKjQ1Njc4OTpDREVGR0hJSlNUVVZXWFlaY2RlZmdoaWpzdHV2d3h5eoOE + hYaHiImKkpOUlZaXmJmaoqOkpaanqKmqsrO0tba3uLm6wsPExcbHyMnK0tPU1dbX2Nna4eLj5OXm5+jp + 6vHy8/T19vf4+fr/xAAfAQADAQEBAQEBAQEBAAAAAAAAAQIDBAUGBwgJCgv/xAC1EQACAQIEBAMEBwUE + BAABAncAAQIDEQQFITEGEkFRB2FxEyIygQgUQpGhscEJIzNS8BVictEKFiQ04SXxFxgZGiYnKCkqNTY3 + ODk6Q0RFRkdISUpTVFVWV1hZWmNkZWZnaGlqc3R1dnd4eXqCg4SFhoeIiYqSk5SVlpeYmZqio6Slpqeo + qaqys7S1tre4ubrCw8TFxsfIycrS09TV1tfY2dri4+Tl5ufo6ery8/T19vf4+fr/2gAMAwEAAhEDEQA/ + AP1ZH7UPxEAA/wCEw8bnj/ob9f8A/k+v7U/1Nyj/AKF+G/8ABUP/AJE/llcSZlZf7dX/APBk/wDMX/hq + H4if9Df43/8ACv1//wCT6P8AU3Kf+hfhv/BUP/kQ/wBZcy/6Dq//AIMn/mH/AA1D8RP+hv8AG/8A4V+v + /wDyfR/qblP/AEL8N/4Kh/8AIh/rLmX/AEHV/wDwZP8AzD/hqH4if9Df43/8K/X/AP5Po/1Nyn/oX4b/ + AMFQ/wDkQ/1lzL/oOr/+DJ/5h/w1D8RP+hv8b/8AhX6//wDJ9H+puU/9C/Df+Cof/Ih/rLmX/QdX/wDB + k/8AMT/hqH4if9Df43/8K/X/AP5Po/1Nyn/oX4b/AMFQ/wDkQ/1kzL/oOr/+DJ/5n2R+xz+234zt/iRp + nw+8a6vqXiDwZ4gs9baObXr+bUr/AMPajpmkX2tQ3FlqV2Zb57K7XT2t3tXkaJWkV4whVxJ+beJfAuU4 + Th/FZ/hKEKOMw8qd+SKjGcZzjTs4q0bpyUlJK7s073VvuuBOLMxxGcYfJ8TWlVw1ZTtzu7hKMJTupPWz + UWnFu2qatrf9aP8AhfXgv+zv7U89/sfm+V5207N+M43fSv50P2w/kwr/AEFP42CgAoAKACgAoA9s/Z0/ + s7/hcng3+1vP/s7Ov/avs2PP2f8ACL63t2buP9ZjP+zmvz7xU/5IPPf+4H/qRRPsvD//AJK7KP8AuL/6 + ZqH7/wD/ABaT/hUfb7Ht/wBj7V9p8v8A9Cr+Oz+lz//Z + + + + + /9j/4AAQSkZJRgABAgEASABIAAD/7gAOQWRvYmUAZAAAAAAB/+ED5kV4aWYAAE1NACoAAAAIAAcBEgAD + AAAAAQABAAABGgAFAAAAAQAAAGIBGwAFAAAAAQAAAGoBKAADAAAAAQACAAABMQACAAAAHAAAAHIBMgAC + AAAAFAAAAI6HaQAEAAAAAQAAAKIAAADCAEgAAAABAAAASAAAAAEAAEFkb2JlIFBob3Rvc2hvcCBDUzMg + V2luZG93cwAyMDEwOjA0OjE1IDIwOjMyOjA0AAACoAIABAAAAAEAAAA8oAMABAAAAAEAAAAMAAAAAAAA + AAYBAwADAAAAAQAGAAABGgAFAAAAAQAAARABGwAFAAAAAQAAARgBKAADAAAAAQACAAACAQAEAAAAAQAA + ASACAgAEAAAAAQAAAr4AAAAAAAAASAAAAAEAAABIAAAAAf/Y/+AAEEpGSUYAAQIAAEgASAAA/+0ADEFk + b2JlX0NNAAH/7gAOQWRvYmUAZIAAAAAB/9sAhAAMCAgICQgMCQkMEQsKCxEVDwwMDxUYExMVExMYEQwM + DAwMDBEMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMAQ0LCw0ODRAODhAUDg4OFBQODg4OFBEMDAwM + DBERDAwMDAwMEQwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAz/wAARCAAMADwDASIAAhEBAxEB/90A + BAAE/8QBPwAAAQUBAQEBAQEAAAAAAAAAAwABAgQFBgcICQoLAQABBQEBAQEBAQAAAAAAAAABAAIDBAUG + BwgJCgsQAAEEAQMCBAIFBwYIBQMMMwEAAhEDBCESMQVBUWETInGBMgYUkaGxQiMkFVLBYjM0coLRQwcl + klPw4fFjczUWorKDJkSTVGRFwqN0NhfSVeJl8rOEw9N14/NGJ5SkhbSVxNTk9KW1xdXl9VZmdoaWprbG + 1ub2N0dXZ3eHl6e3x9fn9xEAAgIBAgQEAwQFBgcHBgU1AQACEQMhMRIEQVFhcSITBTKBkRShsUIjwVLR + 8DMkYuFygpJDUxVjczTxJQYWorKDByY1wtJEk1SjF2RFVTZ0ZeLys4TD03Xj80aUpIW0lcTU5PSltcXV + 5fVWZnaGlqa2xtbm9ic3R1dnd4eXp7fH/9oADAMBAAIRAxEAPwDd/amR/pH/AOcf70v2pkf6R/8AnH+9 + UUlofq/Bpevxb37UyP8ASP8A84/3pftTI/0j/wDOP96opJfq/BXr8W9+1Mj/AEj/APOP96X7UyP9I/8A + zj/eqKSX6vwV6/F3ujdbuGS2i5xfU8HVxktIG76XyW99vo27p0XGdO2/ba930dZj+q5dX+qfZPL8VAeD + 341VVr/eZhx+0bu708n/2f/iDFhJQ0NfUFJPRklMRQABAQAADEhMaW5vAhAAAG1udHJSR0IgWFlaIAfO + AAIACQAGADEAAGFjc3BNU0ZUAAAAAElFQyBzUkdCAAAAAAAAAAAAAAAAAAD21gABAAAAANMtSFAgIAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAEWNwcnQAAAFQAAAAM2Rl + c2MAAAGEAAAAbHd0cHQAAAHwAAAAFGJrcHQAAAIEAAAAFHJYWVoAAAIYAAAAFGdYWVoAAAIsAAAAFGJY + WVoAAAJAAAAAFGRtbmQAAAJUAAAAcGRtZGQAAALEAAAAiHZ1ZWQAAANMAAAAhnZpZXcAAAPUAAAAJGx1 + bWkAAAP4AAAAFG1lYXMAAAQMAAAAJHRlY2gAAAQwAAAADHJUUkMAAAQ8AAAIDGdUUkMAAAQ8AAAIDGJU + UkMAAAQ8AAAIDHRleHQAAAAAQ29weXJpZ2h0IChjKSAxOTk4IEhld2xldHQtUGFja2FyZCBDb21wYW55 + AABkZXNjAAAAAAAAABJzUkdCIElFQzYxOTY2LTIuMQAAAAAAAAAAAAAAEnNSR0IgSUVDNjE5NjYtMi4x + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABYWVogAAAAAAAA + 81EAAQAAAAEWzFhZWiAAAAAAAAAAAAAAAAAAAAAAWFlaIAAAAAAAAG+iAAA49QAAA5BYWVogAAAAAAAA + YpkAALeFAAAY2lhZWiAAAAAAAAAkoAAAD4QAALbPZGVzYwAAAAAAAAAWSUVDIGh0dHA6Ly93d3cuaWVj + LmNoAAAAAAAAAAAAAAAWSUVDIGh0dHA6Ly93d3cuaWVjLmNoAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAGRlc2MAAAAAAAAALklFQyA2MTk2Ni0yLjEgRGVmYXVsdCBSR0Ig + Y29sb3VyIHNwYWNlIC0gc1JHQgAAAAAAAAAAAAAALklFQyA2MTk2Ni0yLjEgRGVmYXVsdCBSR0IgY29s + b3VyIHNwYWNlIC0gc1JHQgAAAAAAAAAAAAAAAAAAAAAAAAAAAABkZXNjAAAAAAAAACxSZWZlcmVuY2Ug + Vmlld2luZyBDb25kaXRpb24gaW4gSUVDNjE5NjYtMi4xAAAAAAAAAAAAAAAsUmVmZXJlbmNlIFZpZXdp + bmcgQ29uZGl0aW9uIGluIElFQzYxOTY2LTIuMQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAdmlldwAA + AAAAE6T+ABRfLgAQzxQAA+3MAAQTCwADXJ4AAAABWFlaIAAAAAAATAlWAFAAAABXH+dtZWFzAAAAAAAA + AAEAAAAAAAAAAAAAAAAAAAAAAAACjwAAAAJzaWcgAAAAAENSVCBjdXJ2AAAAAAAABAAAAAAFAAoADwAU + ABkAHgAjACgALQAyADcAOwBAAEUASgBPAFQAWQBeAGMAaABtAHIAdwB8AIEAhgCLAJAAlQCaAJ8ApACp + AK4AsgC3ALwAwQDGAMsA0ADVANsA4ADlAOsA8AD2APsBAQEHAQ0BEwEZAR8BJQErATIBOAE+AUUBTAFS + AVkBYAFnAW4BdQF8AYMBiwGSAZoBoQGpAbEBuQHBAckB0QHZAeEB6QHyAfoCAwIMAhQCHQImAi8COAJB + AksCVAJdAmcCcQJ6AoQCjgKYAqICrAK2AsECywLVAuAC6wL1AwADCwMWAyEDLQM4A0MDTwNaA2YDcgN+ + A4oDlgOiA64DugPHA9MD4APsA/kEBgQTBCAELQQ7BEgEVQRjBHEEfgSMBJoEqAS2BMQE0wThBPAE/gUN + BRwFKwU6BUkFWAVnBXcFhgWWBaYFtQXFBdUF5QX2BgYGFgYnBjcGSAZZBmoGewaMBp0GrwbABtEG4wb1 + BwcHGQcrBz0HTwdhB3QHhgeZB6wHvwfSB+UH+AgLCB8IMghGCFoIbgiCCJYIqgi+CNII5wj7CRAJJQk6 + CU8JZAl5CY8JpAm6Cc8J5Qn7ChEKJwo9ClQKagqBCpgKrgrFCtwK8wsLCyILOQtRC2kLgAuYC7ALyAvh + C/kMEgwqDEMMXAx1DI4MpwzADNkM8w0NDSYNQA1aDXQNjg2pDcMN3g34DhMOLg5JDmQOfw6bDrYO0g7u + DwkPJQ9BD14Peg+WD7MPzw/sEAkQJhBDEGEQfhCbELkQ1xD1ERMRMRFPEW0RjBGqEckR6BIHEiYSRRJk + EoQSoxLDEuMTAxMjE0MTYxODE6QTxRPlFAYUJxRJFGoUixStFM4U8BUSFTQVVhV4FZsVvRXgFgMWJhZJ + FmwWjxayFtYW+hcdF0EXZReJF64X0hf3GBsYQBhlGIoYrxjVGPoZIBlFGWsZkRm3Gd0aBBoqGlEadxqe + GsUa7BsUGzsbYxuKG7Ib2hwCHCocUhx7HKMczBz1HR4dRx1wHZkdwx3sHhYeQB5qHpQevh7pHxMfPh9p + H5Qfvx/qIBUgQSBsIJggxCDwIRwhSCF1IaEhziH7IiciVSKCIq8i3SMKIzgjZiOUI8Ij8CQfJE0kfCSr + JNolCSU4JWgllyXHJfcmJyZXJocmtyboJxgnSSd6J6sn3CgNKD8ocSiiKNQpBik4KWspnSnQKgIqNSpo + KpsqzysCKzYraSudK9EsBSw5LG4soizXLQwtQS12Last4S4WLkwugi63Lu4vJC9aL5Evxy/+MDUwbDCk + MNsxEjFKMYIxujHyMioyYzKbMtQzDTNGM38zuDPxNCs0ZTSeNNg1EzVNNYc1wjX9Njc2cjauNuk3JDdg + N5w31zgUOFA4jDjIOQU5Qjl/Obw5+To2OnQ6sjrvOy07azuqO+g8JzxlPKQ84z0iPWE9oT3gPiA+YD6g + PuA/IT9hP6I/4kAjQGRApkDnQSlBakGsQe5CMEJyQrVC90M6Q31DwEQDREdEikTORRJFVUWaRd5GIkZn + RqtG8Ec1R3tHwEgFSEtIkUjXSR1JY0mpSfBKN0p9SsRLDEtTS5pL4kwqTHJMuk0CTUpNk03cTiVObk63 + TwBPSU+TT91QJ1BxULtRBlFQUZtR5lIxUnxSx1MTU19TqlP2VEJUj1TbVShVdVXCVg9WXFapVvdXRFeS + V+BYL1h9WMtZGllpWbhaB1pWWqZa9VtFW5Vb5Vw1XIZc1l0nXXhdyV4aXmxevV8PX2Ffs2AFYFdgqmD8 + YU9homH1YklinGLwY0Njl2PrZEBklGTpZT1lkmXnZj1mkmboZz1nk2fpaD9olmjsaUNpmmnxakhqn2r3 + a09rp2v/bFdsr20IbWBtuW4SbmtuxG8eb3hv0XArcIZw4HE6cZVx8HJLcqZzAXNdc7h0FHRwdMx1KHWF + deF2Pnabdvh3VnezeBF4bnjMeSp5iXnnekZ6pXsEe2N7wnwhfIF84X1BfaF+AX5ifsJ/I3+Ef+WAR4Co + gQqBa4HNgjCCkoL0g1eDuoQdhICE44VHhauGDoZyhteHO4efiASIaYjOiTOJmYn+imSKyoswi5aL/Ixj + jMqNMY2Yjf+OZo7OjzaPnpAGkG6Q1pE/kaiSEZJ6kuOTTZO2lCCUipT0lV+VyZY0lp+XCpd1l+CYTJi4 + mSSZkJn8mmia1ZtCm6+cHJyJnPedZJ3SnkCerp8dn4uf+qBpoNihR6G2oiailqMGo3aj5qRWpMelOKWp + phqmi6b9p26n4KhSqMSpN6mpqhyqj6sCq3Wr6axcrNCtRK24ri2uoa8Wr4uwALB1sOqxYLHWskuywrM4 + s660JbSctRO1irYBtnm28Ldot+C4WbjRuUq5wro7urW7LrunvCG8m70VvY++Cr6Evv+/er/1wHDA7MFn + wePCX8Lbw1jD1MRRxM7FS8XIxkbGw8dBx7/IPci8yTrJuco4yrfLNsu2zDXMtc01zbXONs62zzfPuNA5 + 0LrRPNG+0j/SwdNE08bUSdTL1U7V0dZV1tjXXNfg2GTY6Nls2fHadtr724DcBdyK3RDdlt4c3qLfKd+v + 4DbgveFE4cziU+Lb42Pj6+Rz5PzlhOYN5pbnH+ep6DLovOlG6dDqW+rl63Dr++yG7RHtnO4o7rTvQO/M + 8Fjw5fFy8f/yjPMZ86f0NPTC9VD13vZt9vv3ivgZ+Kj5OPnH+lf65/t3/Af8mP0p/br+S/7c/23////b + AEMAAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQICAgICAgICAgICAwMD + AwMDAwMDA//bAEMBAQEBAQEBAQEBAQICAQICAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMD + AwMDAwMDAwMDAwMDAwMDA//AABEIAAwAPAMBEQACEQEDEQH/xAAfAAABBQEBAQEBAQAAAAAAAAAAAQID + BAUGBwgJCgv/xAC1EAACAQMDAgQDBQUEBAAAAX0BAgMABBEFEiExQQYTUWEHInEUMoGRoQgjQrHBFVLR + 8CQzYnKCCQoWFxgZGiUmJygpKjQ1Njc4OTpDREVGR0hJSlNUVVZXWFlaY2RlZmdoaWpzdHV2d3h5eoOE + hYaHiImKkpOUlZaXmJmaoqOkpaanqKmqsrO0tba3uLm6wsPExcbHyMnK0tPU1dbX2Nna4eLj5OXm5+jp + 6vHy8/T19vf4+fr/xAAfAQADAQEBAQEBAQEBAAAAAAAAAQIDBAUGBwgJCgv/xAC1EQACAQIEBAMEBwUE + BAABAncAAQIDEQQFITEGEkFRB2FxEyIygQgUQpGhscEJIzNS8BVictEKFiQ04SXxFxgZGiYnKCkqNTY3 + ODk6Q0RFRkdISUpTVFVWV1hZWmNkZWZnaGlqc3R1dnd4eXqCg4SFhoeIiYqSk5SVlpeYmZqio6Slpqeo + qaqys7S1tre4ubrCw8TFxsfIycrS09TV1tfY2dri4+Tl5ufo6ery8/T19vf4+fr/2gAMAwEAAhEDEQA/ + AP1ZH7UPxEAA/wCEw8bnj/ob9f8A/k+v7U/1Nyj/AKF+G/8ABUP/AJE/llcSZlZf7dX/APBk/wDMX/hq + H4if9Df43/8ACv1//wCT6P8AU3Kf+hfhv/BUP/kQ/wBZcy/6Dq//AIMn/mH/AA1D8RP+hv8AG/8A4V+v + /wDyfR/qblP/AEL8N/4Kh/8AIh/rLmX/AEHV/wDwZP8AzD/hqH4if9Df43/8K/X/AP5Po/1Nyn/oX4b/ + AMFQ/wDkQ/1lzL/oOr/+DJ/5h/w1D8RP+hv8b/8AhX6//wDJ9H+puU/9C/Df+Cof/Ih/rLmX/QdX/wDB + k/8AMT/hqH4if9Df43/8K/X/AP5Po/1Nyn/oX4b/AMFQ/wDkQ/1kzL/oOr/+DJ/5n2R+xz+234zt/iRp + nw+8a6vqXiDwZ4gs9baObXr+bUr/AMPajpmkX2tQ3FlqV2Zb57K7XT2t3tXkaJWkV4whVxJ+beJfAuU4 + Th/FZ/hKEKOMw8qd+SKjGcZzjTs4q0bpyUlJK7s073VvuuBOLMxxGcYfJ8TWlVw1ZTtzu7hKMJTupPWz + UWnFu2qatrf9aP8AhfXgv+zv7U89/sfm+V5207N+M43fSv50P2w/kwr/AEFP42CgAoAKACgAoA9s/Z0/ + s7/hcng3+1vP/s7Ov/avs2PP2f8ACL63t2buP9ZjP+zmvz7xU/5IPPf+4H/qRRPsvD//AJK7KP8AuL/6 + ZqH7/wD/ABaT/hUfb7Ht/wBj7V9p8v8A9Cr+Oz+lz//Z + + + + 82 + + \ No newline at end of file diff --git a/ArinWarev1/Forms/v20091231/Frm_v20091231_Desc.vb b/ArinWarev1/Forms/v20091231/Frm_v20091231_Desc.vb new file mode 100644 index 0000000..976991d --- /dev/null +++ b/ArinWarev1/Forms/v20091231/Frm_v20091231_Desc.vb @@ -0,0 +1,244 @@ +Public Class Frm_V20091231_desc +#Region "data Base 변경여부및 적용방법" + + '''변경된내용을적용한다. + Public Overrides Function AcceptChanged() As Boolean + bs.EndEdit() + Dim BaseDS As DataSet = CType(bs.DataSource, DataSet) + Dim BaseDT As DataTable = BaseDS.Tables(bs.DataMember) + BaseDT.AcceptChanges() + Return True + End Function + + '''변경된내용이있다면 취소한다. + Public Overrides Function RejectChanged() As Boolean + Dim BaseDS As DataSet = CType(bs.DataSource, DataSet) + Dim BaseDT As DataTable = BaseDS.Tables(bs.DataMember) + BaseDT.RejectChanges() + Return True + End Function + + '''데이터에변형이있었는가? + Public Overrides Function HasChanged() As Boolean + bs.EndEdit() + Dim BaseDS As DataSet = CType(bs.DataSource, DataSet) + Dim BaseDT As DataTable = BaseDS.Tables(bs.DataMember) + Dim ChangeDT As DataTable = BaseDT.GetChanges + If Not ChangeDT Is Nothing Then Return True + Return False + End Function + + '''기본데이터테이블을 반환합니다. + Public Function DT() As DataTable + Dim BaseDS As DataSet = CType(bs.DataSource, DataSet) + Return BaseDS.Tables(bs.DataMember) + End Function + + +#End Region + + + Private Sub MdiMain_FormClosed(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosedEventArgs) Handles Me.FormClosed + CEnergy.ARINCLASS.SaveLoad_FrmSetting(Me, Me.bs.Position, True) + End Sub + + Private Sub MdiMain_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown + Select Case e.KeyCode + Case Keys.F12 + End Select + End Sub + + Private Sub MdiMain_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load + Me.LinkLabel1.Visible = False + Me.LinkLabel2.Visible = False + Me.LinkLabel3.Visible = False + + 'MdiMain.Toggle_Menu_Color(MdiMain.E_MenuIdx.건물개요) + 'CEnergy.ARINCLASS.SaveLoad_FrmSetting(Me) + '//프로필 관련 + + '//공유데이터셋에 연결한다. + Me.bs.DataSource = DSET + If Me.bs.Count = 0 Then bs.AddNew() + bs.EndEdit() + + '//Zone + Binding_Zone() + + Try + Me.bs.Position = CEnergy.ARINCLASS.Read_LastPos_Frm(Me) + Catch ex As Exception + Me.bs.MoveFirst() + End Try + + If Not (Prj.UserAuthType = "ADMIN" OrElse Prj.UserAuthType = "BOTH" OrElse Prj.UserAuthType = "BOTH2" OrElse Prj.UserAuthType = "BOTH1") Then '//2011.03.08 추가 + 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 = DSET.tbl_Desc.Rows(0)("versionc").ToString + If MyVersion = "" Then MyVersion = "20100101" + Catch ex As Exception + MyVersion = "20100101" + End Try + Try + VersionInfo = L.Get_LastVersion("C") '//버젼을 가져오는데 eco 버젼만 가져오게 바꺼야겟죵 ^^ 구분자를 넣도록 합시닷! + If VersionInfo.Ver <> "0" AndAlso (CInt(VersionInfo.Ver) > CInt(MyVersion)) Then '//0은 없거나 관리안함의 뜻이므로 넘어간다. + Dim Lc As String = Me.cmb_location.SelectedValue + Read_CommonCode() + Me.cmb_location.SelectedValue = Lc + Me.bs.EndEdit() + End If + Catch ex As Exception + MsgBox("공용코드 에러" & ex.Message.ToString) + End Try + + '/표준프로파일버젼확인 '//2010.12.06 추가 + Try + MyVersion = DSET.tbl_Desc.Rows(0)("versionp").ToString + If MyVersion = "" Then MyVersion = "20100101" + Catch ex As Exception + MyVersion = "20100101" + End Try + Try + + VersionInfo = L.Get_LastVersion("P") '//버젼을 가져오는데 eco 버젼만 가져오게 바꺼야겟죵 ^^ 구분자를 넣도록 합시닷! + If VersionInfo.Ver <> "0" AndAlso (CInt(VersionInfo.Ver) > CInt(MyVersion)) Then '//0은 없거나 관리안함의 뜻이므로 넘어간다. + Dim Lp As String = Me.cmb_location.SelectedValue + Read_ProfileData() + Me.cmb_location.SelectedValue = Lp + Me.bs.EndEdit() + End If + Catch ex As Exception + MsgBox("표준프로파일 에러" & ex.Message.ToString) + End Try + + '/기상데이터버젼확인 + Try + MyVersion = DSET.tbl_Desc.Rows(0)("versionw").ToString + If MyVersion = "" Then MyVersion = "20100101" + Catch ex As Exception + MyVersion = "20100101" + End Try + Try + 'MyVersion = DSET.tbl_Desc.Rows(0)("versionw").ToString + VersionInfo = L.Get_LastVersion("W") '//버젼을 가져오는데 eco 버젼만 가져오게 바꺼야겟죵 ^^ 구분자를 넣도록 합시닷! + If VersionInfo.Ver <> "0" AndAlso (CInt(VersionInfo.Ver) > CInt(MyVersion)) Then '//0은 없거나 관리안함의 뜻이므로 넘어간다. + Dim Lw As String = Me.cmb_location.SelectedValue + Read_WeatherData() + Me.cmb_location.SelectedValue = Lw + Me.bs.EndEdit() + End If + Catch ex As Exception + + End Try + Else + Me.LinkLabel1.Visible = True + Me.LinkLabel2.Visible = True + Me.LinkLabel3.Visible = True + + End If + End Sub + + + Private Sub Frm_Intro_SizeChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.SizeChanged + '//판넬1을 항상 중앙에 위치하도록 + Me.Panel2.Left = CInt((Me.Width - Me.Panel2.Width) / 2) + Me.Panel2.Top = CInt((Me.Height - Me.Panel2.Height) / 2) + End Sub + + Private Sub Binding_Zone() + Dim bs_cmb_공조방식 As New BindingSource(DSET, "tbl_weather") + bs_cmb_공조방식.Filter = "" + Me.cmb_location.DataSource = bs_cmb_공조방식 + cmb_location.DisplayMember = "건물위치" + cmb_location.ValueMember = "code" + Me.cmb_location.DataBindings.Add("selectedvalue", Me.bs, "buildarea") + 'AddHandler cmb_location.KeyDown, AddressOf Cmb_DeleteVal + End Sub + Private Sub Cmb_DeleteVal(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) + If e.KeyCode = Keys.Delete Then + CType(sender, ComboBox).SelectedValue = "" + End If + End Sub + + Private Sub ToolStripButton1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) + DSET.AcceptChanges() + DSETR.AcceptChanges() + + End Sub + + Private Sub Label2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) + Me.Close() + End Sub + + Private Sub LinkLabel1_LinkClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs) Handles LinkLabel1.LinkClicked + Dim L As String = Me.cmb_location.SelectedValue + If MsgBox("공용코드값을 서버로부터 가져오시겠습니까?", MsgBoxStyle.Information Or MsgBoxStyle.OkCancel, "확인") = MsgBoxResult.Ok Then Read_CommonCode() + Me.cmb_location.SelectedValue = L + Me.bs.EndEdit() + End Sub + + Private Sub LinkLabel2_LinkClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs) Handles LinkLabel2.LinkClicked + Dim L As String = Me.cmb_location.SelectedValue + If MsgBox("기상데이터값을 서버로부터 가져오시겠습니까?", MsgBoxStyle.Information Or MsgBoxStyle.OkCancel, "확인") = MsgBoxResult.Ok Then Read_WeatherData() + Me.cmb_location.SelectedValue = L + Me.bs.EndEdit() + End Sub + Private Sub LinkLabel3_LinkClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs) Handles LinkLabel3.LinkClicked '//2010.12.06 추가 + Dim L As String = Me.cmb_location.SelectedValue + If MsgBox("표준프로파일값을 서버로부터 가져오시겠습니까?", MsgBoxStyle.Information Or MsgBoxStyle.OkCancel, "확인") = MsgBoxResult.Ok Then Read_ProfileData() + Me.cmb_location.SelectedValue = L + Me.bs.EndEdit() + End Sub + + Private Sub bs_CurrentChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bs.CurrentChanged + Me.bs.EndEdit() + End Sub + + Private Sub DateTimePicker1_ValueChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DateTimePicker1.ValueChanged + Dim datetime1 As String = Format(Me.DateTimePicker1.Value, "yyyy") + Dim datetime2 As String = Format(Me.DateTimePicker2.Value, "yyyy") + Dim datetime3 As String = Format(Me.DateTimePicker1.Value, "MM") + Dim datetime4 As String = Format(Me.DateTimePicker2.Value, "MM") + Dim priod As Single + Try + If TOSG(datetime3) - TOSG(datetime4) >= 0 Then + priod = Math.Round(TOSG(datetime1) - TOSG(datetime2) + (TOSG(datetime3) - TOSG(datetime4)) / 12, 1) + Else + priod = Math.Round(TOSG(datetime1) - TOSG(datetime2) - (TOSG(datetime4) - TOSG(datetime3)) / 12, 1) + End If + + Catch ex As Exception + priod = 0 + End Try + If priod < 0 Then priod = 0 + MyTb6.Text = CStr(priod) + Me.bs.EndEdit() + End Sub + + Private Sub DateTimePicker2_ValueChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DateTimePicker2.ValueChanged + Dim datetime1 As String = Format(Me.DateTimePicker1.Value, "yyyy") + Dim datetime2 As String = Format(Me.DateTimePicker2.Value, "yyyy") + Dim datetime3 As String = Format(Me.DateTimePicker1.Value, "MM") + Dim datetime4 As String = Format(Me.DateTimePicker2.Value, "MM") + Dim priod As Single + Try + If TOSG(datetime3) - TOSG(datetime4) >= 0 Then + priod = Math.Round(TOSG(datetime1) - TOSG(datetime2) + (TOSG(datetime3) - TOSG(datetime4)) / 12, 1) + Else + priod = Math.Round(TOSG(datetime1) - TOSG(datetime2) - (TOSG(datetime4) - TOSG(datetime3)) / 12, 1) + End If + + Catch ex As Exception + priod = 0 + End Try + If priod < 0 Then priod = 0 + MyTb6.Text = CStr(priod) + Me.bs.EndEdit() + End Sub + + + +End Class \ No newline at end of file diff --git a/ArinWarev1/Forms/v20091231/Frm_v20091231_Myoun.Designer.vb b/ArinWarev1/Forms/v20091231/Frm_v20091231_Myoun.Designer.vb new file mode 100644 index 0000000..2c37698 --- /dev/null +++ b/ArinWarev1/Forms/v20091231/Frm_v20091231_Myoun.Designer.vb @@ -0,0 +1,1281 @@ + _ +Partial Class Frm_V20091231_Myoun + Inherits CForm + + 'Form은 Dispose를 재정의하여 구성 요소 목록을 정리합니다. + _ + Protected Overrides Sub Dispose(ByVal disposing As Boolean) + Try + If disposing AndAlso components IsNot Nothing Then + components.Dispose() + End If + Finally + MyBase.Dispose(disposing) + End Try + End Sub + + 'Windows Form 디자이너에 필요합니다. + Private components As System.ComponentModel.IContainer + + '참고: 다음 프로시저는 Windows Form 디자이너에 필요합니다. + '수정하려면 Windows Form 디자이너를 사용하십시오. + '코드 편집기를 사용하여 수정하지 마십시오. + _ + Private Sub InitializeComponent() + Me.components = New System.ComponentModel.Container() + Dim Label157 As System.Windows.Forms.Label + Dim Label160 As System.Windows.Forms.Label + Dim Label144 As System.Windows.Forms.Label + Dim Label145 As System.Windows.Forms.Label + Dim Label146 As System.Windows.Forms.Label + Dim Label147 As System.Windows.Forms.Label + Dim Label148 As System.Windows.Forms.Label + Dim Label149 As System.Windows.Forms.Label + Dim Label151 As System.Windows.Forms.Label + Dim DataGridViewCellStyle1 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle2 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(Frm_V20091231_Myoun)) + Me.Label2 = New System.Windows.Forms.Label() + Me.Label3 = New System.Windows.Forms.Label() + Me.Label4 = New System.Windows.Forms.Label() + Me.Label5 = New System.Windows.Forms.Label() + Me.Label6 = New System.Windows.Forms.Label() + Me.TableLayoutPanel1 = New System.Windows.Forms.TableLayoutPanel() + Me.NTb1 = New Eco2Ar.MyTb() + Me.NTb2 = New Eco2Ar.MyTb() + Me.SplitContainer1 = New System.Windows.Forms.SplitContainer() + Me.Arindv1 = New CEnergy.arindv() + Me.DataGridViewTextBoxColumn2 = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.bszone = New System.Windows.Forms.BindingSource(Me.components) + Me.DS = New Eco2Ar.DS() + Me.dv = New CEnergy.arindv() + Me.DataGridViewTextBoxColumn1 = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.bs = New System.Windows.Forms.BindingSource(Me.components) + Me.bn = New System.Windows.Forms.BindingNavigator(Me.components) + Me.lbl_count = New System.Windows.Forms.ToolStripLabel() + Me.ToolStripLabel2 = New System.Windows.Forms.ToolStripLabel() + Me.ToolStripSeparator1 = New System.Windows.Forms.ToolStripSeparator() + Me.cmb_gubun = New System.Windows.Forms.ToolStripComboBox() + Me.bt_add = New System.Windows.Forms.ToolStripButton() + Me.bt_Del = New System.Windows.Forms.ToolStripButton() + Me.bt_cancel = New System.Windows.Forms.ToolStripButton() + Me.lbl_pos = New System.Windows.Forms.ToolStripLabel() + Me.ToolStrip1 = New System.Windows.Forms.ToolStrip() + Me.ToolStripLabel1 = New System.Windows.Forms.ToolStripLabel() + Me.lbl_cnt1 = New System.Windows.Forms.ToolStripLabel() + Me.ToolStripLabel3 = New System.Windows.Forms.ToolStripLabel() + Me.lbl_cnt2 = New System.Windows.Forms.ToolStripLabel() + Me.ToolStripLabel5 = New System.Windows.Forms.ToolStripLabel() + Me.lbl_cnt3 = New System.Windows.Forms.ToolStripLabel() + Me.Label7 = New System.Windows.Forms.Label() + Me.PictureBox1 = New System.Windows.Forms.PictureBox() + Me.Label11 = New System.Windows.Forms.Label() + Me.PictureBox4 = New System.Windows.Forms.PictureBox() + Me.GroupBox5 = New System.Windows.Forms.GroupBox() + Me.cmb_존분류 = New Eco2Ar.MyCmb() + Me.cmb_대차존 = New Eco2Ar.MyCmb() + Me.PictureBox5 = New System.Windows.Forms.PictureBox() + Me.GroupBox4 = New System.Windows.Forms.GroupBox() + Me.cmb_블라인드종류 = New Eco2Ar.MyCmb() + Me.cmb_블라인드색상 = New Eco2Ar.MyCmb() + Me.PictureBox7 = New System.Windows.Forms.PictureBox() + Me.GroupBox3 = New System.Windows.Forms.GroupBox() + Me.cmb_블라인드설치유무 = New Eco2Ar.MyCmb() + Me.cmb_블라인드각도 = New Eco2Ar.MyCmb() + Me.cmb_블라인드위치 = New Eco2Ar.MyCmb() + Me.PictureBox6 = New System.Windows.Forms.PictureBox() + Me.GroupBox2 = New System.Windows.Forms.GroupBox() + Me.tb_04 = New Eco2Ar.MyTb() + Me.tb_06 = New Eco2Ar.MyTb() + Me.tb_05 = New Eco2Ar.MyTb() + Me.PictureBox3 = New System.Windows.Forms.PictureBox() + Me.GroupBox1 = New System.Windows.Forms.GroupBox() + Me.rad7 = New System.Windows.Forms.RadioButton() + Me.rad6 = New System.Windows.Forms.RadioButton() + Me.rad5 = New System.Windows.Forms.RadioButton() + Me.rad4 = New System.Windows.Forms.RadioButton() + Me.rad3 = New System.Windows.Forms.RadioButton() + Me.rad2 = New System.Windows.Forms.RadioButton() + Me.rad1 = New System.Windows.Forms.RadioButton() + Me.rad8 = New System.Windows.Forms.RadioButton() + Me.PictureBox8 = New System.Windows.Forms.PictureBox() + Me.rad0 = New System.Windows.Forms.RadioButton() + Me.rad10 = New System.Windows.Forms.RadioButton() + Me.rad9 = New System.Windows.Forms.RadioButton() + Me.MyTb1 = New Eco2Ar.MyTb() + Me.cmb_열관류율 = New Eco2Ar.MyCmb() + Me.tb_03 = New Eco2Ar.MyTb() + Me.cmb_건축부위방식 = New Eco2Ar.MyCmb() + Me.cmb_방위 = New Eco2Ar.MyCmb() + Me.tb_02 = New Eco2Ar.MyTb() + Me.PictureBox2 = New System.Windows.Forms.PictureBox() + Me.ToolTip1 = New System.Windows.Forms.ToolTip(Me.components) + Me.NTb3 = New Eco2Ar.MyTb() + Label157 = New System.Windows.Forms.Label() + Label160 = New System.Windows.Forms.Label() + Label144 = New System.Windows.Forms.Label() + Label145 = New System.Windows.Forms.Label() + Label146 = New System.Windows.Forms.Label() + Label147 = New System.Windows.Forms.Label() + Label148 = New System.Windows.Forms.Label() + Label149 = New System.Windows.Forms.Label() + Label151 = New System.Windows.Forms.Label() + Me.TableLayoutPanel1.SuspendLayout() + Me.SplitContainer1.Panel1.SuspendLayout() + Me.SplitContainer1.Panel2.SuspendLayout() + Me.SplitContainer1.SuspendLayout() + CType(Me.Arindv1, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.bszone, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.DS, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.dv, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.bs, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.bn, System.ComponentModel.ISupportInitialize).BeginInit() + Me.bn.SuspendLayout() + Me.ToolStrip1.SuspendLayout() + CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.PictureBox4, System.ComponentModel.ISupportInitialize).BeginInit() + Me.GroupBox5.SuspendLayout() + CType(Me.PictureBox5, System.ComponentModel.ISupportInitialize).BeginInit() + Me.GroupBox4.SuspendLayout() + CType(Me.PictureBox7, System.ComponentModel.ISupportInitialize).BeginInit() + Me.GroupBox3.SuspendLayout() + CType(Me.PictureBox6, System.ComponentModel.ISupportInitialize).BeginInit() + Me.GroupBox2.SuspendLayout() + CType(Me.PictureBox3, System.ComponentModel.ISupportInitialize).BeginInit() + Me.GroupBox1.SuspendLayout() + CType(Me.PictureBox8, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.PictureBox2, System.ComponentModel.ISupportInitialize).BeginInit() + Me.SuspendLayout() + ' + 'Label157 + ' + Label157.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom), System.Windows.Forms.AnchorStyles) + Label157.AutoSize = True + Label157.BackColor = System.Drawing.Color.FromArgb(CType(CType(219, Byte), Integer), CType(CType(221, Byte), Integer), CType(CType(223, Byte), Integer)) + Label157.Font = New System.Drawing.Font("나눔고딕 ExtraBold", 8.999999!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Label157.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label157.Location = New System.Drawing.Point(8, 22) + Label157.Name = "Label157" + Label157.Size = New System.Drawing.Size(44, 14) + Label157.TabIndex = 20 + Label157.Text = "입력존:" + ' + 'Label160 + ' + Label160.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom), System.Windows.Forms.AnchorStyles) + Label160.AutoSize = True + Label160.BackColor = System.Drawing.Color.FromArgb(CType(CType(219, Byte), Integer), CType(CType(221, Byte), Integer), CType(CType(223, Byte), Integer)) + Label160.Font = New System.Drawing.Font("나눔고딕 ExtraBold", 8.999999!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Label160.ForeColor = System.Drawing.Color.ForestGreen + Label160.Location = New System.Drawing.Point(301, 22) + Label160.Name = "Label160" + Label160.Size = New System.Drawing.Size(44, 14) + Label160.TabIndex = 20 + Label160.Text = "인접존:" + Label160.Visible = False + ' + 'Label144 + ' + Label144.AutoSize = True + Label144.BackColor = System.Drawing.Color.FromArgb(CType(CType(219, Byte), Integer), CType(CType(221, Byte), Integer), CType(CType(223, Byte), Integer)) + Label144.Font = New System.Drawing.Font("나눔고딕 ExtraBold", 8.999999!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Label144.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label144.Location = New System.Drawing.Point(12, 56) + Label144.Name = "Label144" + Label144.Size = New System.Drawing.Size(33, 14) + Label144.TabIndex = 10 + Label144.Text = "방위:" + Label144.TextAlign = System.Drawing.ContentAlignment.MiddleRight + ' + 'Label145 + ' + Label145.AutoSize = True + Label145.BackColor = System.Drawing.Color.FromArgb(CType(CType(219, Byte), Integer), CType(CType(221, Byte), Integer), CType(CType(223, Byte), Integer)) + Label145.Font = New System.Drawing.Font("나눔고딕 ExtraBold", 8.999999!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Label145.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label145.Location = New System.Drawing.Point(12, 29) + Label145.Margin = New System.Windows.Forms.Padding(3) + Label145.Name = "Label145" + Label145.Size = New System.Drawing.Size(80, 14) + Label145.TabIndex = 8 + Label145.Text = "건축부위 방식:" + Label145.TextAlign = System.Drawing.ContentAlignment.MiddleRight + ' + 'Label146 + ' + Label146.AutoSize = True + Label146.BackColor = System.Drawing.Color.FromArgb(CType(CType(219, Byte), Integer), CType(CType(221, Byte), Integer), CType(CType(223, Byte), Integer)) + Label146.Font = New System.Drawing.Font("나눔고딕 ExtraBold", 8.999999!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Label146.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label146.Location = New System.Drawing.Point(12, 86) + Label146.Name = "Label146" + Label146.Size = New System.Drawing.Size(106, 14) + Label146.TabIndex = 8 + Label146.Text = "건축부위 면적[m2]:" + Label146.TextAlign = System.Drawing.ContentAlignment.MiddleRight + ' + 'Label147 + ' + Label147.AutoSize = True + Label147.BackColor = System.Drawing.Color.FromArgb(CType(CType(219, Byte), Integer), CType(CType(221, Byte), Integer), CType(CType(223, Byte), Integer)) + Label147.Font = New System.Drawing.Font("나눔고딕 ExtraBold", 8.999999!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Label147.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label147.Location = New System.Drawing.Point(12, 116) + Label147.Name = "Label147" + Label147.Size = New System.Drawing.Size(106, 14) + Label147.TabIndex = 10 + Label147.Text = "열관류율[W/m2K]:" + Label147.TextAlign = System.Drawing.ContentAlignment.MiddleRight + ' + 'Label148 + ' + Label148.AutoSize = True + Label148.BackColor = System.Drawing.Color.FromArgb(CType(CType(219, Byte), Integer), CType(CType(221, Byte), Integer), CType(CType(223, Byte), Integer)) + Label148.Font = New System.Drawing.Font("나눔고딕 ExtraBold", 8.999999!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Label148.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label148.Location = New System.Drawing.Point(13, 18) + Label148.Name = "Label148" + Label148.Size = New System.Drawing.Size(114, 14) + Label148.TabIndex = 12 + Label148.Text = "일사에너지 투과율[-]:" + Label148.TextAlign = System.Drawing.ContentAlignment.MiddleRight + ' + 'Label149 + ' + Label149.AutoSize = True + Label149.BackColor = System.Drawing.Color.FromArgb(CType(CType(219, Byte), Integer), CType(CType(221, Byte), Integer), CType(CType(223, Byte), Integer)) + Label149.Font = New System.Drawing.Font("나눔고딕 ExtraBold", 8.999999!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Label149.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label149.Location = New System.Drawing.Point(13, 40) + Label149.Name = "Label149" + Label149.Size = New System.Drawing.Size(81, 14) + Label149.TabIndex = 14 + Label149.Text = "수평차양각[o]:" + Label149.TextAlign = System.Drawing.ContentAlignment.MiddleRight + ' + 'Label151 + ' + Label151.AutoSize = True + Label151.BackColor = System.Drawing.Color.FromArgb(CType(CType(219, Byte), Integer), CType(CType(221, Byte), Integer), CType(CType(223, Byte), Integer)) + Label151.Font = New System.Drawing.Font("나눔고딕 ExtraBold", 8.999999!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Label151.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label151.Location = New System.Drawing.Point(13, 64) + Label151.Name = "Label151" + Label151.Size = New System.Drawing.Size(81, 14) + Label151.TabIndex = 18 + Label151.Text = "수직차양각[o]:" + Label151.TextAlign = System.Drawing.ContentAlignment.MiddleRight + ' + 'Label2 + ' + Me.Label2.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _ + Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles) + Me.Label2.AutoSize = True + Me.Label2.BackColor = System.Drawing.Color.FromArgb(CType(CType(243, Byte), Integer), CType(CType(244, Byte), Integer), CType(CType(246, Byte), Integer)) + Me.Label2.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Me.Label2.Location = New System.Drawing.Point(15, 20) + Me.Label2.Name = "Label2" + Me.Label2.Size = New System.Drawing.Size(55, 14) + Me.Label2.TabIndex = 0 + Me.Label2.Text = "설치유무:" + Me.Label2.TextAlign = System.Drawing.ContentAlignment.MiddleCenter + ' + 'Label3 + ' + Me.Label3.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _ + Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles) + Me.Label3.AutoSize = True + Me.Label3.BackColor = System.Drawing.Color.FromArgb(CType(CType(243, Byte), Integer), CType(CType(244, Byte), Integer), CType(CType(246, Byte), Integer)) + Me.Label3.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Me.Label3.Location = New System.Drawing.Point(15, 48) + Me.Label3.Name = "Label3" + Me.Label3.Size = New System.Drawing.Size(42, 14) + Me.Label3.TabIndex = 0 + Me.Label3.Text = "위 치:" + Me.Label3.TextAlign = System.Drawing.ContentAlignment.MiddleCenter + ' + 'Label4 + ' + Me.Label4.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _ + Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles) + Me.Label4.AutoSize = True + Me.Label4.BackColor = System.Drawing.Color.FromArgb(CType(CType(243, Byte), Integer), CType(CType(244, Byte), Integer), CType(CType(246, Byte), Integer)) + Me.Label4.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Me.Label4.Location = New System.Drawing.Point(15, 75) + Me.Label4.Name = "Label4" + Me.Label4.Size = New System.Drawing.Size(42, 14) + Me.Label4.TabIndex = 0 + Me.Label4.Text = "각 도:" + Me.Label4.TextAlign = System.Drawing.ContentAlignment.MiddleCenter + ' + 'Label5 + ' + Me.Label5.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _ + Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles) + Me.Label5.AutoSize = True + Me.Label5.BackColor = System.Drawing.Color.FromArgb(CType(CType(243, Byte), Integer), CType(CType(244, Byte), Integer), CType(CType(246, Byte), Integer)) + Me.Label5.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Me.Label5.Location = New System.Drawing.Point(8, 20) + Me.Label5.Name = "Label5" + Me.Label5.Size = New System.Drawing.Size(69, 14) + Me.Label5.TabIndex = 0 + Me.Label5.Text = "빛투과 종류:" + Me.Label5.TextAlign = System.Drawing.ContentAlignment.MiddleCenter + ' + 'Label6 + ' + Me.Label6.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _ + Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles) + Me.Label6.AutoSize = True + Me.Label6.BackColor = System.Drawing.Color.FromArgb(CType(CType(243, Byte), Integer), CType(CType(244, Byte), Integer), CType(CType(246, Byte), Integer)) + Me.Label6.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Me.Label6.Location = New System.Drawing.Point(8, 48) + Me.Label6.Name = "Label6" + Me.Label6.Size = New System.Drawing.Size(42, 14) + Me.Label6.TabIndex = 0 + Me.Label6.Text = "색 상:" + Me.Label6.TextAlign = System.Drawing.ContentAlignment.MiddleCenter + ' + 'TableLayoutPanel1 + ' + Me.TableLayoutPanel1.AutoScroll = True + Me.TableLayoutPanel1.ColumnCount = 2 + Me.TableLayoutPanel1.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Absolute, 126.0!)) + Me.TableLayoutPanel1.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Percent, 50.0!)) + Me.TableLayoutPanel1.Controls.Add(Me.NTb1, 1, 12) + Me.TableLayoutPanel1.Controls.Add(Me.NTb2, 1, 11) + Me.TableLayoutPanel1.Location = New System.Drawing.Point(0, 0) + Me.TableLayoutPanel1.Name = "TableLayoutPanel1" + Me.TableLayoutPanel1.RowCount = 13 + Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Absolute, 20.0!)) + Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Absolute, 20.0!)) + Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Absolute, 20.0!)) + Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Absolute, 20.0!)) + Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Absolute, 20.0!)) + Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Absolute, 20.0!)) + Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Absolute, 20.0!)) + Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Absolute, 20.0!)) + Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Absolute, 20.0!)) + Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Absolute, 20.0!)) + Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Absolute, 20.0!)) + Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Absolute, 20.0!)) + Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Absolute, 20.0!)) + Me.TableLayoutPanel1.Size = New System.Drawing.Size(200, 100) + Me.TableLayoutPanel1.TabIndex = 0 + ' + 'NTb1 + ' + Me.NTb1.Location = New System.Drawing.Point(129, 243) + Me.NTb1.Name = "NTb1" + Me.NTb1.NectControl = Nothing + Me.NTb1.Size = New System.Drawing.Size(51, 21) + Me.NTb1.TabIndex = 63 + Me.NTb1.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + ' + 'NTb2 + ' + Me.NTb2.Location = New System.Drawing.Point(129, 223) + Me.NTb2.Name = "NTb2" + Me.NTb2.NectControl = Nothing + Me.NTb2.Size = New System.Drawing.Size(51, 21) + Me.NTb2.TabIndex = 61 + Me.NTb2.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + ' + '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.Arindv1) + Me.SplitContainer1.Panel1.Controls.Add(Me.dv) + Me.SplitContainer1.Panel1.Controls.Add(Me.bn) + ' + 'SplitContainer1.Panel2 + ' + Me.SplitContainer1.Panel2.BackColor = System.Drawing.Color.White + Me.SplitContainer1.Panel2.Controls.Add(Me.ToolStrip1) + Me.SplitContainer1.Panel2.Controls.Add(Me.Label7) + Me.SplitContainer1.Panel2.Controls.Add(Me.PictureBox1) + Me.SplitContainer1.Panel2.Controls.Add(Me.Label11) + Me.SplitContainer1.Panel2.Controls.Add(Me.PictureBox4) + Me.SplitContainer1.Panel2.Controls.Add(Me.GroupBox5) + Me.SplitContainer1.Panel2.Controls.Add(Me.GroupBox4) + Me.SplitContainer1.Panel2.Controls.Add(Me.GroupBox3) + Me.SplitContainer1.Panel2.Controls.Add(Me.GroupBox2) + Me.SplitContainer1.Panel2.Controls.Add(Me.GroupBox1) + Me.SplitContainer1.Size = New System.Drawing.Size(789, 565) + Me.SplitContainer1.SplitterDistance = 352 + Me.SplitContainer1.TabIndex = 127 + ' + 'Arindv1 + ' + Me.Arindv1.A_DelCurrentCell = True + Me.Arindv1.A_EnterToTab = True + Me.Arindv1.AllowUserToAddRows = False + Me.Arindv1.AllowUserToDeleteRows = False + Me.Arindv1.AllowUserToResizeRows = False + Me.Arindv1.AutoGenerateColumns = False + Me.Arindv1.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.AllCells + Me.Arindv1.BackgroundColor = System.Drawing.Color.Silver + Me.Arindv1.BorderStyle = System.Windows.Forms.BorderStyle.None + Me.Arindv1.ColumnHeadersHeight = 30 + Me.Arindv1.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.DisableResizing + Me.Arindv1.Columns.AddRange(New System.Windows.Forms.DataGridViewColumn() {Me.DataGridViewTextBoxColumn2}) + Me.Arindv1.DataSource = Me.bszone + Me.Arindv1.Dock = System.Windows.Forms.DockStyle.Left + Me.Arindv1.Location = New System.Drawing.Point(0, 0) + Me.Arindv1.Margin = New System.Windows.Forms.Padding(3, 5, 3, 5) + Me.Arindv1.Name = "Arindv1" + Me.Arindv1.ReadOnly = True + DataGridViewCellStyle1.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft + DataGridViewCellStyle1.BackColor = System.Drawing.Color.Silver + DataGridViewCellStyle1.Font = New System.Drawing.Font("나눔고딕 ExtraBold", 8.999999!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + DataGridViewCellStyle1.ForeColor = System.Drawing.SystemColors.WindowText + DataGridViewCellStyle1.SelectionBackColor = System.Drawing.SystemColors.Highlight + DataGridViewCellStyle1.SelectionForeColor = System.Drawing.SystemColors.HighlightText + DataGridViewCellStyle1.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] + Me.Arindv1.RowHeadersDefaultCellStyle = DataGridViewCellStyle1 + Me.Arindv1.RowHeadersVisible = False + DataGridViewCellStyle2.BackColor = System.Drawing.Color.Silver + Me.Arindv1.RowsDefaultCellStyle = DataGridViewCellStyle2 + Me.Arindv1.RowTemplate.DefaultCellStyle.BackColor = System.Drawing.Color.Silver + Me.Arindv1.RowTemplate.Height = 23 + Me.Arindv1.ScrollBars = System.Windows.Forms.ScrollBars.Vertical + Me.Arindv1.Size = New System.Drawing.Size(178, 523) + Me.Arindv1.TabIndex = 2 + ' + 'DataGridViewTextBoxColumn2 + ' + Me.DataGridViewTextBoxColumn2.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.Fill + Me.DataGridViewTextBoxColumn2.DataPropertyName = "설명" + Me.DataGridViewTextBoxColumn2.HeaderText = "존" + Me.DataGridViewTextBoxColumn2.Name = "DataGridViewTextBoxColumn2" + Me.DataGridViewTextBoxColumn2.ReadOnly = True + ' + 'bszone + ' + Me.bszone.DataMember = "tbl_zone" + Me.bszone.DataSource = Me.DS + Me.bszone.Filter = "code <> '0'" + ' + 'DS + ' + Me.DS.DataSetName = "DS" + Me.DS.SchemaSerializationMode = System.Data.SchemaSerializationMode.IncludeSchema + ' + 'dv + ' + Me.dv.A_DelCurrentCell = True + Me.dv.A_EnterToTab = True + 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.FromArgb(CType(CType(245, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(246, Byte), Integer)) + Me.dv.BorderStyle = System.Windows.Forms.BorderStyle.None + Me.dv.ColumnHeadersHeight = 30 + Me.dv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.DisableResizing + Me.dv.Columns.AddRange(New System.Windows.Forms.DataGridViewColumn() {Me.DataGridViewTextBoxColumn1}) + Me.dv.DataSource = Me.bs + Me.dv.Dock = System.Windows.Forms.DockStyle.Right + Me.dv.Location = New System.Drawing.Point(176, 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.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect + Me.dv.Size = New System.Drawing.Size(174, 523) + Me.dv.TabIndex = 0 + ' + 'DataGridViewTextBoxColumn1 + ' + Me.DataGridViewTextBoxColumn1.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.Fill + Me.DataGridViewTextBoxColumn1.DataPropertyName = "설명" + Me.DataGridViewTextBoxColumn1.HeaderText = "면/건축부위" + Me.DataGridViewTextBoxColumn1.Name = "DataGridViewTextBoxColumn1" + ' + 'bs + ' + Me.bs.DataMember = "tbl_myoun" + Me.bs.DataSource = Me.DS + Me.bs.Filter = "code <> '0'" + ' + '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("나눔고딕 ExtraBold", 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.ToolStripLabel2, Me.ToolStripSeparator1, Me.cmb_gubun, Me.bt_add, Me.bt_Del, Me.bt_cancel, Me.lbl_pos, Me.lbl_count}) + Me.bn.Location = New System.Drawing.Point(0, 523) + 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(350, 40) + Me.bn.TabIndex = 1 + Me.bn.Text = "BindingNavigator1" + ' + 'lbl_count + ' + Me.lbl_count.Name = "lbl_count" + Me.lbl_count.Size = New System.Drawing.Size(27, 37) + Me.lbl_count.Text = "/{0}" + ' + 'ToolStripLabel2 + ' + Me.ToolStripLabel2.Name = "ToolStripLabel2" + Me.ToolStripLabel2.Size = New System.Drawing.Size(106, 37) + Me.ToolStripLabel2.Text = " " + ' + 'ToolStripSeparator1 + ' + Me.ToolStripSeparator1.Name = "ToolStripSeparator1" + Me.ToolStripSeparator1.Size = New System.Drawing.Size(6, 40) + ' + 'cmb_gubun + ' + Me.cmb_gubun.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList + Me.cmb_gubun.FlatStyle = System.Windows.Forms.FlatStyle.Standard + Me.cmb_gubun.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.cmb_gubun.Name = "cmb_gubun" + Me.cmb_gubun.Size = New System.Drawing.Size(105, 40) + ' + '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, 37) + 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, 37) + 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, 37) + Me.bt_cancel.Text = "변경취소(&C)" + Me.bt_cancel.ToolTipText = "변경된 내용을 되돌립니다" + Me.bt_cancel.Visible = False + ' + 'lbl_pos + ' + Me.lbl_pos.Name = "lbl_pos" + Me.lbl_pos.Size = New System.Drawing.Size(14, 37) + Me.lbl_pos.Text = "0" + ' + 'ToolStrip1 + ' + Me.ToolStrip1.Dock = System.Windows.Forms.DockStyle.Bottom + Me.ToolStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToolStripLabel1, Me.lbl_cnt1, Me.ToolStripLabel3, Me.lbl_cnt2, Me.ToolStripLabel5, Me.lbl_cnt3}) + Me.ToolStrip1.Location = New System.Drawing.Point(0, 538) + Me.ToolStrip1.Name = "ToolStrip1" + Me.ToolStrip1.Size = New System.Drawing.Size(431, 25) + Me.ToolStrip1.TabIndex = 167 + Me.ToolStrip1.Text = "ToolStrip1" + ' + 'ToolStripLabel1 + ' + Me.ToolStripLabel1.Name = "ToolStripLabel1" + Me.ToolStripLabel1.Size = New System.Drawing.Size(58, 22) + Me.ToolStripLabel1.Text = "외벽면적:" + ' + 'lbl_cnt1 + ' + Me.lbl_cnt1.Name = "lbl_cnt1" + Me.lbl_cnt1.Size = New System.Drawing.Size(14, 22) + Me.lbl_cnt1.Text = "0" + ' + 'ToolStripLabel3 + ' + Me.ToolStripLabel3.Name = "ToolStripLabel3" + Me.ToolStripLabel3.Size = New System.Drawing.Size(78, 22) + Me.ToolStripLabel3.Text = " 외부창면적:" + ' + 'lbl_cnt2 + ' + Me.lbl_cnt2.Name = "lbl_cnt2" + Me.lbl_cnt2.Size = New System.Drawing.Size(14, 22) + Me.lbl_cnt2.Text = "0" + ' + 'ToolStripLabel5 + ' + Me.ToolStripLabel5.Name = "ToolStripLabel5" + Me.ToolStripLabel5.Size = New System.Drawing.Size(66, 22) + Me.ToolStripLabel5.Text = " 창면적비:" + ' + 'lbl_cnt3 + ' + Me.lbl_cnt3.Name = "lbl_cnt3" + Me.lbl_cnt3.Size = New System.Drawing.Size(14, 22) + Me.lbl_cnt3.Text = "0" + ' + 'Label7 + ' + Me.Label7.AutoSize = True + Me.Label7.BackColor = System.Drawing.Color.FromArgb(CType(CType(116, Byte), Integer), CType(CType(158, Byte), Integer), CType(CType(209, Byte), Integer)) + Me.Label7.ForeColor = System.Drawing.Color.White + Me.Label7.Location = New System.Drawing.Point(25, 320) + Me.Label7.Name = "Label7" + Me.Label7.Size = New System.Drawing.Size(76, 14) + Me.Label7.TabIndex = 166 + Me.Label7.Text = "블라인드 정보" + ' + 'PictureBox1 + ' + Me.PictureBox1.BackgroundImage = CType(resources.GetObject("PictureBox1.BackgroundImage"), System.Drawing.Image) + Me.PictureBox1.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch + Me.PictureBox1.Location = New System.Drawing.Point(12, 309) + Me.PictureBox1.Name = "PictureBox1" + Me.PictureBox1.Size = New System.Drawing.Size(134, 30) + Me.PictureBox1.TabIndex = 165 + Me.PictureBox1.TabStop = False + ' + 'Label11 + ' + Me.Label11.AutoSize = True + Me.Label11.BackColor = System.Drawing.Color.FromArgb(CType(CType(116, Byte), Integer), CType(CType(158, Byte), Integer), CType(CType(209, Byte), Integer)) + Me.Label11.ForeColor = System.Drawing.Color.White + Me.Label11.Location = New System.Drawing.Point(24, 21) + Me.Label11.Name = "Label11" + Me.Label11.Size = New System.Drawing.Size(62, 14) + Me.Label11.TabIndex = 166 + Me.Label11.Text = "일반데이터" + ' + 'PictureBox4 + ' + Me.PictureBox4.BackgroundImage = CType(resources.GetObject("PictureBox4.BackgroundImage"), System.Drawing.Image) + Me.PictureBox4.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch + Me.PictureBox4.Location = New System.Drawing.Point(11, 10) + Me.PictureBox4.Name = "PictureBox4" + Me.PictureBox4.Size = New System.Drawing.Size(134, 30) + Me.PictureBox4.TabIndex = 165 + Me.PictureBox4.TabStop = False + ' + 'GroupBox5 + ' + Me.GroupBox5.Controls.Add(Label157) + Me.GroupBox5.Controls.Add(Label160) + Me.GroupBox5.Controls.Add(Me.cmb_존분류) + Me.GroupBox5.Controls.Add(Me.cmb_대차존) + Me.GroupBox5.Controls.Add(Me.PictureBox5) + Me.GroupBox5.Location = New System.Drawing.Point(11, 447) + Me.GroupBox5.Name = "GroupBox5" + Me.GroupBox5.Size = New System.Drawing.Size(414, 54) + Me.GroupBox5.TabIndex = 164 + Me.GroupBox5.TabStop = False + ' + 'cmb_존분류 + ' + Me.cmb_존분류.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList + Me.cmb_존분류.Font = New System.Drawing.Font("나눔고딕 ExtraBold", 8.999999!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.cmb_존분류.FormattingEnabled = True + Me.cmb_존분류.Location = New System.Drawing.Point(58, 19) + Me.cmb_존분류.Name = "cmb_존분류" + Me.cmb_존분류.NectControl = Nothing + Me.cmb_존분류.Size = New System.Drawing.Size(240, 22) + Me.cmb_존분류.TabIndex = 0 + ' + 'cmb_대차존 + ' + Me.cmb_대차존.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList + Me.cmb_대차존.Font = New System.Drawing.Font("나눔고딕 ExtraBold", 8.999999!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.cmb_대차존.FormattingEnabled = True + Me.cmb_대차존.Location = New System.Drawing.Point(351, 19) + Me.cmb_대차존.Name = "cmb_대차존" + Me.cmb_대차존.NectControl = Nothing + Me.cmb_대차존.Size = New System.Drawing.Size(51, 22) + Me.cmb_대차존.TabIndex = 1 + Me.cmb_대차존.Visible = False + ' + 'PictureBox5 + ' + Me.PictureBox5.BackColor = System.Drawing.Color.FromArgb(CType(CType(219, Byte), Integer), CType(CType(221, Byte), Integer), CType(CType(223, Byte), Integer)) + Me.PictureBox5.Location = New System.Drawing.Point(2, 10) + Me.PictureBox5.Name = "PictureBox5" + Me.PictureBox5.Size = New System.Drawing.Size(407, 43) + Me.PictureBox5.TabIndex = 11 + Me.PictureBox5.TabStop = False + ' + 'GroupBox4 + ' + Me.GroupBox4.Controls.Add(Me.cmb_블라인드종류) + Me.GroupBox4.Controls.Add(Me.cmb_블라인드색상) + Me.GroupBox4.Controls.Add(Me.Label6) + Me.GroupBox4.Controls.Add(Me.Label5) + Me.GroupBox4.Controls.Add(Me.PictureBox7) + Me.GroupBox4.Location = New System.Drawing.Point(226, 336) + Me.GroupBox4.Name = "GroupBox4" + Me.GroupBox4.Size = New System.Drawing.Size(198, 107) + Me.GroupBox4.TabIndex = 163 + Me.GroupBox4.TabStop = False + ' + 'cmb_블라인드종류 + ' + Me.cmb_블라인드종류.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList + Me.cmb_블라인드종류.Font = New System.Drawing.Font("나눔고딕 ExtraBold", 8.999999!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.cmb_블라인드종류.FormattingEnabled = True + Me.cmb_블라인드종류.Location = New System.Drawing.Point(85, 17) + Me.cmb_블라인드종류.Name = "cmb_블라인드종류" + Me.cmb_블라인드종류.NectControl = Nothing + Me.cmb_블라인드종류.Size = New System.Drawing.Size(101, 22) + Me.cmb_블라인드종류.TabIndex = 3 + ' + 'cmb_블라인드색상 + ' + Me.cmb_블라인드색상.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList + Me.cmb_블라인드색상.Font = New System.Drawing.Font("나눔고딕 ExtraBold", 8.999999!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.cmb_블라인드색상.FormattingEnabled = True + Me.cmb_블라인드색상.Location = New System.Drawing.Point(85, 44) + Me.cmb_블라인드색상.Name = "cmb_블라인드색상" + Me.cmb_블라인드색상.NectControl = Nothing + Me.cmb_블라인드색상.Size = New System.Drawing.Size(101, 22) + Me.cmb_블라인드색상.TabIndex = 4 + ' + 'PictureBox7 + ' + Me.PictureBox7.BackColor = System.Drawing.Color.FromArgb(CType(CType(243, Byte), Integer), CType(CType(244, Byte), Integer), CType(CType(246, Byte), Integer)) + Me.PictureBox7.Location = New System.Drawing.Point(2, 9) + Me.PictureBox7.Name = "PictureBox7" + Me.PictureBox7.Size = New System.Drawing.Size(191, 96) + Me.PictureBox7.TabIndex = 3 + Me.PictureBox7.TabStop = False + ' + 'GroupBox3 + ' + Me.GroupBox3.Controls.Add(Me.cmb_블라인드설치유무) + Me.GroupBox3.Controls.Add(Me.cmb_블라인드각도) + Me.GroupBox3.Controls.Add(Me.Label4) + Me.GroupBox3.Controls.Add(Me.cmb_블라인드위치) + Me.GroupBox3.Controls.Add(Me.Label3) + Me.GroupBox3.Controls.Add(Me.Label2) + Me.GroupBox3.Controls.Add(Me.PictureBox6) + Me.GroupBox3.Location = New System.Drawing.Point(10, 336) + Me.GroupBox3.Name = "GroupBox3" + Me.GroupBox3.Size = New System.Drawing.Size(214, 107) + Me.GroupBox3.TabIndex = 163 + Me.GroupBox3.TabStop = False + ' + 'cmb_블라인드설치유무 + ' + Me.cmb_블라인드설치유무.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList + Me.cmb_블라인드설치유무.Font = New System.Drawing.Font("나눔고딕 ExtraBold", 8.999999!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.cmb_블라인드설치유무.FormattingEnabled = True + Me.cmb_블라인드설치유무.Location = New System.Drawing.Point(98, 15) + Me.cmb_블라인드설치유무.Name = "cmb_블라인드설치유무" + Me.cmb_블라인드설치유무.NectControl = Nothing + Me.cmb_블라인드설치유무.Size = New System.Drawing.Size(101, 22) + Me.cmb_블라인드설치유무.TabIndex = 0 + ' + 'cmb_블라인드각도 + ' + Me.cmb_블라인드각도.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList + Me.cmb_블라인드각도.Font = New System.Drawing.Font("나눔고딕 ExtraBold", 8.999999!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.cmb_블라인드각도.FormattingEnabled = True + Me.cmb_블라인드각도.Location = New System.Drawing.Point(98, 73) + Me.cmb_블라인드각도.Name = "cmb_블라인드각도" + Me.cmb_블라인드각도.NectControl = Nothing + Me.cmb_블라인드각도.Size = New System.Drawing.Size(101, 22) + Me.cmb_블라인드각도.TabIndex = 2 + ' + 'cmb_블라인드위치 + ' + Me.cmb_블라인드위치.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList + Me.cmb_블라인드위치.Font = New System.Drawing.Font("나눔고딕 ExtraBold", 8.999999!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.cmb_블라인드위치.FormattingEnabled = True + Me.cmb_블라인드위치.Location = New System.Drawing.Point(98, 44) + Me.cmb_블라인드위치.Name = "cmb_블라인드위치" + Me.cmb_블라인드위치.NectControl = Nothing + Me.cmb_블라인드위치.Size = New System.Drawing.Size(101, 22) + Me.cmb_블라인드위치.TabIndex = 1 + ' + 'PictureBox6 + ' + Me.PictureBox6.BackColor = System.Drawing.Color.FromArgb(CType(CType(243, Byte), Integer), CType(CType(244, Byte), Integer), CType(CType(246, Byte), Integer)) + Me.PictureBox6.Location = New System.Drawing.Point(3, 9) + Me.PictureBox6.Name = "PictureBox6" + Me.PictureBox6.Size = New System.Drawing.Size(208, 96) + Me.PictureBox6.TabIndex = 3 + Me.PictureBox6.TabStop = False + ' + 'GroupBox2 + ' + Me.GroupBox2.Controls.Add(Label148) + Me.GroupBox2.Controls.Add(Me.tb_04) + Me.GroupBox2.Controls.Add(Label149) + Me.GroupBox2.Controls.Add(Me.tb_06) + Me.GroupBox2.Controls.Add(Label151) + Me.GroupBox2.Controls.Add(Me.tb_05) + Me.GroupBox2.Controls.Add(Me.PictureBox3) + Me.GroupBox2.Location = New System.Drawing.Point(9, 213) + Me.GroupBox2.Name = "GroupBox2" + Me.GroupBox2.Size = New System.Drawing.Size(215, 88) + Me.GroupBox2.TabIndex = 162 + Me.GroupBox2.TabStop = False + ' + 'tb_04 + ' + Me.tb_04.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bs, "투과율", True)) + Me.tb_04.Font = New System.Drawing.Font("나눔고딕 ExtraBold", 8.999999!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.tb_04.Location = New System.Drawing.Point(132, 14) + Me.tb_04.Name = "tb_04" + Me.tb_04.NectControl = Nothing + Me.tb_04.Size = New System.Drawing.Size(70, 21) + Me.tb_04.TabIndex = 4 + Me.tb_04.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + ' + 'tb_06 + ' + Me.tb_06.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bs, "수직차양각", True)) + Me.tb_06.Font = New System.Drawing.Font("나눔고딕 ExtraBold", 8.999999!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.tb_06.Location = New System.Drawing.Point(132, 62) + Me.tb_06.Name = "tb_06" + Me.tb_06.NectControl = Nothing + Me.tb_06.Size = New System.Drawing.Size(70, 21) + Me.tb_06.TabIndex = 6 + Me.tb_06.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + ' + 'tb_05 + ' + Me.tb_05.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bs, "수평차양각", True)) + Me.tb_05.Font = New System.Drawing.Font("나눔고딕 ExtraBold", 8.999999!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.tb_05.Location = New System.Drawing.Point(132, 38) + Me.tb_05.Name = "tb_05" + Me.tb_05.NectControl = Nothing + Me.tb_05.Size = New System.Drawing.Size(70, 21) + Me.tb_05.TabIndex = 5 + Me.tb_05.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + ' + 'PictureBox3 + ' + Me.PictureBox3.BackColor = System.Drawing.Color.FromArgb(CType(CType(219, Byte), Integer), CType(CType(221, Byte), Integer), CType(CType(223, Byte), Integer)) + Me.PictureBox3.Location = New System.Drawing.Point(3, 6) + Me.PictureBox3.Name = "PictureBox3" + Me.PictureBox3.Size = New System.Drawing.Size(209, 82) + Me.PictureBox3.TabIndex = 11 + Me.PictureBox3.TabStop = False + ' + 'GroupBox1 + ' + Me.GroupBox1.Controls.Add(Me.rad7) + Me.GroupBox1.Controls.Add(Me.rad6) + Me.GroupBox1.Controls.Add(Me.rad5) + Me.GroupBox1.Controls.Add(Me.rad4) + Me.GroupBox1.Controls.Add(Me.rad3) + Me.GroupBox1.Controls.Add(Me.rad2) + Me.GroupBox1.Controls.Add(Me.rad1) + Me.GroupBox1.Controls.Add(Me.rad8) + Me.GroupBox1.Controls.Add(Me.PictureBox8) + Me.GroupBox1.Controls.Add(Me.rad0) + Me.GroupBox1.Controls.Add(Me.rad10) + Me.GroupBox1.Controls.Add(Me.rad9) + Me.GroupBox1.Controls.Add(Me.MyTb1) + Me.GroupBox1.Controls.Add(Me.cmb_열관류율) + Me.GroupBox1.Controls.Add(Label144) + Me.GroupBox1.Controls.Add(Me.tb_03) + Me.GroupBox1.Controls.Add(Label145) + Me.GroupBox1.Controls.Add(Label146) + Me.GroupBox1.Controls.Add(Me.cmb_건축부위방식) + Me.GroupBox1.Controls.Add(Label147) + Me.GroupBox1.Controls.Add(Me.cmb_방위) + Me.GroupBox1.Controls.Add(Me.tb_02) + Me.GroupBox1.Controls.Add(Me.PictureBox2) + Me.GroupBox1.Location = New System.Drawing.Point(10, 38) + Me.GroupBox1.Name = "GroupBox1" + Me.GroupBox1.Size = New System.Drawing.Size(414, 172) + Me.GroupBox1.TabIndex = 162 + Me.GroupBox1.TabStop = False + ' + 'rad7 + ' + Me.rad7.AutoSize = True + Me.rad7.BackColor = System.Drawing.Color.FromArgb(CType(CType(219, Byte), Integer), CType(CType(221, Byte), Integer), CType(CType(223, Byte), Integer)) + Me.rad7.Location = New System.Drawing.Point(343, 51) + Me.rad7.Name = "rad7" + Me.rad7.Size = New System.Drawing.Size(47, 18) + Me.rad7.TabIndex = 14 + Me.rad7.TabStop = True + Me.rad7.Text = "북동" + Me.rad7.UseVisualStyleBackColor = False + ' + 'rad6 + ' + Me.rad6.AutoSize = True + Me.rad6.BackColor = System.Drawing.Color.FromArgb(CType(CType(219, Byte), Integer), CType(CType(221, Byte), Integer), CType(CType(223, Byte), Integer)) + Me.rad6.Location = New System.Drawing.Point(354, 77) + Me.rad6.Name = "rad6" + Me.rad6.Size = New System.Drawing.Size(36, 18) + Me.rad6.TabIndex = 14 + Me.rad6.TabStop = True + Me.rad6.Text = "동" + Me.rad6.UseVisualStyleBackColor = False + ' + 'rad5 + ' + Me.rad5.AutoSize = True + Me.rad5.BackColor = System.Drawing.Color.FromArgb(CType(CType(219, Byte), Integer), CType(CType(221, Byte), Integer), CType(CType(223, Byte), Integer)) + Me.rad5.Location = New System.Drawing.Point(343, 103) + Me.rad5.Name = "rad5" + Me.rad5.Size = New System.Drawing.Size(47, 18) + Me.rad5.TabIndex = 14 + Me.rad5.TabStop = True + Me.rad5.Text = "남동" + Me.rad5.UseVisualStyleBackColor = False + ' + 'rad4 + ' + Me.rad4.AutoSize = True + Me.rad4.BackColor = System.Drawing.Color.FromArgb(CType(CType(219, Byte), Integer), CType(CType(221, Byte), Integer), CType(CType(223, Byte), Integer)) + Me.rad4.Location = New System.Drawing.Point(313, 116) + Me.rad4.Name = "rad4" + Me.rad4.Size = New System.Drawing.Size(36, 18) + Me.rad4.TabIndex = 14 + Me.rad4.TabStop = True + Me.rad4.Text = "남" + Me.rad4.UseVisualStyleBackColor = False + ' + 'rad3 + ' + Me.rad3.AutoSize = True + Me.rad3.BackColor = System.Drawing.Color.FromArgb(CType(CType(219, Byte), Integer), CType(CType(221, Byte), Integer), CType(CType(223, Byte), Integer)) + Me.rad3.Location = New System.Drawing.Point(251, 103) + Me.rad3.Name = "rad3" + Me.rad3.RightToLeft = System.Windows.Forms.RightToLeft.Yes + Me.rad3.Size = New System.Drawing.Size(47, 18) + Me.rad3.TabIndex = 14 + Me.rad3.TabStop = True + Me.rad3.Text = "남서" + Me.rad3.UseVisualStyleBackColor = False + ' + 'rad2 + ' + Me.rad2.AutoSize = True + Me.rad2.BackColor = System.Drawing.Color.FromArgb(CType(CType(219, Byte), Integer), CType(CType(221, Byte), Integer), CType(CType(223, Byte), Integer)) + Me.rad2.Location = New System.Drawing.Point(251, 77) + Me.rad2.Name = "rad2" + Me.rad2.RightToLeft = System.Windows.Forms.RightToLeft.Yes + Me.rad2.Size = New System.Drawing.Size(36, 18) + Me.rad2.TabIndex = 14 + Me.rad2.TabStop = True + Me.rad2.Text = "서" + Me.rad2.UseVisualStyleBackColor = False + ' + 'rad1 + ' + Me.rad1.AutoSize = True + Me.rad1.BackColor = System.Drawing.Color.FromArgb(CType(CType(219, Byte), Integer), CType(CType(221, Byte), Integer), CType(CType(223, Byte), Integer)) + Me.rad1.Location = New System.Drawing.Point(250, 51) + Me.rad1.Name = "rad1" + Me.rad1.RightToLeft = System.Windows.Forms.RightToLeft.Yes + Me.rad1.Size = New System.Drawing.Size(47, 18) + Me.rad1.TabIndex = 14 + Me.rad1.TabStop = True + Me.rad1.Text = "북서" + Me.rad1.UseVisualStyleBackColor = False + ' + 'rad8 + ' + Me.rad8.AutoSize = True + Me.rad8.BackColor = System.Drawing.Color.FromArgb(CType(CType(219, Byte), Integer), CType(CType(221, Byte), Integer), CType(CType(223, Byte), Integer)) + Me.rad8.Location = New System.Drawing.Point(313, 38) + Me.rad8.Name = "rad8" + Me.rad8.Size = New System.Drawing.Size(36, 18) + Me.rad8.TabIndex = 14 + Me.rad8.TabStop = True + Me.rad8.Text = "북" + Me.rad8.UseVisualStyleBackColor = False + ' + 'PictureBox8 + ' + Me.PictureBox8.BackColor = System.Drawing.Color.FromArgb(CType(CType(219, Byte), Integer), CType(CType(221, Byte), Integer), CType(CType(223, Byte), Integer)) + Me.PictureBox8.Image = Global.Eco2Ar.My.Resources.Resources.방위2 + Me.PictureBox8.Location = New System.Drawing.Point(290, 56) + Me.PictureBox8.Name = "PictureBox8" + Me.PictureBox8.Size = New System.Drawing.Size(60, 60) + Me.PictureBox8.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage + Me.PictureBox8.TabIndex = 15 + Me.PictureBox8.TabStop = False + ' + 'rad0 + ' + Me.rad0.AutoSize = True + Me.rad0.BackColor = System.Drawing.Color.FromArgb(CType(CType(219, Byte), Integer), CType(CType(221, Byte), Integer), CType(CType(223, Byte), Integer)) + Me.rad0.Location = New System.Drawing.Point(248, 20) + Me.rad0.Name = "rad0" + Me.rad0.Size = New System.Drawing.Size(47, 18) + Me.rad0.TabIndex = 14 + Me.rad0.TabStop = True + Me.rad0.Text = "없음" + Me.rad0.UseVisualStyleBackColor = False + ' + 'rad10 + ' + Me.rad10.AutoSize = True + Me.rad10.BackColor = System.Drawing.Color.FromArgb(CType(CType(219, Byte), Integer), CType(CType(221, Byte), Integer), CType(CType(223, Byte), Integer)) + Me.rad10.Location = New System.Drawing.Point(322, 141) + Me.rad10.Name = "rad10" + Me.rad10.Size = New System.Drawing.Size(69, 18) + Me.rad10.TabIndex = 14 + Me.rad10.TabStop = True + Me.rad10.Text = "일사없음" + Me.rad10.UseVisualStyleBackColor = False + ' + 'rad9 + ' + Me.rad9.AutoSize = True + Me.rad9.BackColor = System.Drawing.Color.FromArgb(CType(CType(219, Byte), Integer), CType(CType(221, Byte), Integer), CType(CType(223, Byte), Integer)) + Me.rad9.Location = New System.Drawing.Point(251, 141) + Me.rad9.Name = "rad9" + Me.rad9.Size = New System.Drawing.Size(47, 18) + Me.rad9.TabIndex = 14 + Me.rad9.TabStop = True + Me.rad9.Text = "수평" + Me.rad9.UseVisualStyleBackColor = False + ' + 'MyTb1 + ' + Me.MyTb1.AcceptsReturn = True + Me.MyTb1.BackColor = System.Drawing.Color.LightGray + Me.MyTb1.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.MyTb1.Font = New System.Drawing.Font("나눔고딕 ExtraBold", 8.999999!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.MyTb1.Location = New System.Drawing.Point(130, 141) + Me.MyTb1.Name = "MyTb1" + Me.MyTb1.NectControl = Nothing + Me.MyTb1.Size = New System.Drawing.Size(102, 21) + Me.MyTb1.TabIndex = 13 + Me.MyTb1.TextAlign = System.Windows.Forms.HorizontalAlignment.Right + Me.MyTb1.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + ' + 'cmb_열관류율 + ' + Me.cmb_열관류율.DisplayMember = "code" + Me.cmb_열관류율.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList + Me.cmb_열관류율.Font = New System.Drawing.Font("나눔고딕 ExtraBold", 8.999999!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.cmb_열관류율.FormattingEnabled = True + Me.cmb_열관류율.Location = New System.Drawing.Point(15, 140) + Me.cmb_열관류율.Name = "cmb_열관류율" + Me.cmb_열관류율.NectControl = Nothing + Me.cmb_열관류율.Size = New System.Drawing.Size(102, 22) + Me.cmb_열관류율.TabIndex = 12 + Me.cmb_열관류율.ValueMember = "code" + ' + 'tb_03 + ' + Me.tb_03.AcceptsReturn = True + Me.tb_03.BackColor = System.Drawing.Color.White + Me.tb_03.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bs, "열관류율", True)) + Me.tb_03.Font = New System.Drawing.Font("나눔고딕 ExtraBold", 8.999999!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.tb_03.Location = New System.Drawing.Point(130, 114) + Me.tb_03.Name = "tb_03" + Me.tb_03.NectControl = Nothing + Me.tb_03.Size = New System.Drawing.Size(102, 21) + Me.tb_03.TabIndex = 3 + Me.tb_03.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + ' + 'cmb_건축부위방식 + ' + Me.cmb_건축부위방식.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList + Me.cmb_건축부위방식.Font = New System.Drawing.Font("나눔고딕 ExtraBold", 8.999999!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.cmb_건축부위방식.FormattingEnabled = True + Me.cmb_건축부위방식.Location = New System.Drawing.Point(130, 25) + Me.cmb_건축부위방식.Name = "cmb_건축부위방식" + Me.cmb_건축부위방식.NectControl = Nothing + Me.cmb_건축부위방식.Size = New System.Drawing.Size(102, 22) + Me.cmb_건축부위방식.TabIndex = 0 + ' + 'cmb_방위 + ' + Me.cmb_방위.DisplayMember = "code" + Me.cmb_방위.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList + Me.cmb_방위.Font = New System.Drawing.Font("나눔고딕 ExtraBold", 8.999999!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.cmb_방위.FormattingEnabled = True + Me.cmb_방위.Location = New System.Drawing.Point(130, 54) + Me.cmb_방위.Name = "cmb_방위" + Me.cmb_방위.NectControl = Nothing + Me.cmb_방위.Size = New System.Drawing.Size(102, 22) + Me.cmb_방위.TabIndex = 1 + Me.cmb_방위.ValueMember = "code" + ' + 'tb_02 + ' + Me.tb_02.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bs, "건축부위면적", True)) + Me.tb_02.Font = New System.Drawing.Font("나눔고딕 ExtraBold", 8.999999!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.tb_02.Location = New System.Drawing.Point(130, 84) + Me.tb_02.Name = "tb_02" + Me.tb_02.NectControl = Nothing + Me.tb_02.Size = New System.Drawing.Size(102, 21) + Me.tb_02.TabIndex = 2 + Me.tb_02.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + ' + 'PictureBox2 + ' + Me.PictureBox2.BackColor = System.Drawing.Color.FromArgb(CType(CType(219, Byte), Integer), CType(CType(221, Byte), Integer), CType(CType(223, Byte), Integer)) + Me.PictureBox2.Location = New System.Drawing.Point(2, 9) + Me.PictureBox2.Name = "PictureBox2" + Me.PictureBox2.Size = New System.Drawing.Size(407, 160) + Me.PictureBox2.TabIndex = 11 + Me.PictureBox2.TabStop = False + ' + 'NTb3 + ' + Me.NTb3.Location = New System.Drawing.Point(129, 263) + Me.NTb3.Name = "NTb3" + Me.NTb3.NectControl = Nothing + Me.NTb3.Size = New System.Drawing.Size(97, 21) + Me.NTb3.TabIndex = 59 + Me.NTb3.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + ' + 'Frm_V20091231_Myoun + ' + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.None + Me.ClientSize = New System.Drawing.Size(789, 565) + Me.ControlBox = False + Me.Controls.Add(Me.SplitContainer1) + Me.Font = New System.Drawing.Font("나눔고딕 ExtraBold", 8.999999!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.ImeMode = System.Windows.Forms.ImeMode.Hangul + Me.KeyPreview = True + Me.Name = "Frm_V20091231_Myoun" + Me.ShowInTaskbar = False + Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen + Me.Text = "입력면" + Me.TableLayoutPanel1.ResumeLayout(False) + Me.TableLayoutPanel1.PerformLayout() + Me.SplitContainer1.Panel1.ResumeLayout(False) + Me.SplitContainer1.Panel2.ResumeLayout(False) + Me.SplitContainer1.Panel2.PerformLayout() + Me.SplitContainer1.ResumeLayout(False) + CType(Me.Arindv1, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.bszone, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.DS, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.dv, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.bs, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.bn, System.ComponentModel.ISupportInitialize).EndInit() + Me.bn.ResumeLayout(False) + Me.bn.PerformLayout() + Me.ToolStrip1.ResumeLayout(False) + Me.ToolStrip1.PerformLayout() + CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.PictureBox4, System.ComponentModel.ISupportInitialize).EndInit() + Me.GroupBox5.ResumeLayout(False) + Me.GroupBox5.PerformLayout() + CType(Me.PictureBox5, System.ComponentModel.ISupportInitialize).EndInit() + Me.GroupBox4.ResumeLayout(False) + Me.GroupBox4.PerformLayout() + CType(Me.PictureBox7, System.ComponentModel.ISupportInitialize).EndInit() + Me.GroupBox3.ResumeLayout(False) + Me.GroupBox3.PerformLayout() + CType(Me.PictureBox6, System.ComponentModel.ISupportInitialize).EndInit() + Me.GroupBox2.ResumeLayout(False) + Me.GroupBox2.PerformLayout() + CType(Me.PictureBox3, System.ComponentModel.ISupportInitialize).EndInit() + Me.GroupBox1.ResumeLayout(False) + Me.GroupBox1.PerformLayout() + CType(Me.PictureBox8, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.PictureBox2, System.ComponentModel.ISupportInitialize).EndInit() + Me.ResumeLayout(False) + + End Sub + Friend WithEvents TableLayoutPanel1 As System.Windows.Forms.TableLayoutPanel + Friend WithEvents NTb1 As MyTb + Friend WithEvents NTb2 As MyTb + Friend WithEvents NTb3 As MyTb + Friend WithEvents cmb_블라인드설치유무 As MyCmb + Friend WithEvents cmb_블라인드위치 As MyCmb + Friend WithEvents cmb_블라인드각도 As MyCmb + Friend WithEvents cmb_블라인드종류 As MyCmb + Friend WithEvents cmb_블라인드색상 As MyCmb + Friend WithEvents cmb_존분류 As MyCmb + Friend WithEvents cmb_대차존 As MyCmb + Friend WithEvents cmb_건축부위방식 As MyCmb + Friend WithEvents tb_02 As MyTb + Friend WithEvents tb_03 As MyTb + Friend WithEvents cmb_방위 As MyCmb + Friend WithEvents bs As System.Windows.Forms.BindingSource + Friend WithEvents DS As Eco2Ar.DS + Friend WithEvents tb_04 As Eco2Ar.MyTb + Friend WithEvents tb_05 As Eco2Ar.MyTb + Friend WithEvents tb_06 As Eco2Ar.MyTb + Friend WithEvents Label2 As System.Windows.Forms.Label + Friend WithEvents Label3 As System.Windows.Forms.Label + Friend WithEvents Label4 As System.Windows.Forms.Label + Friend WithEvents Label5 As System.Windows.Forms.Label + Friend WithEvents Label6 As System.Windows.Forms.Label + Friend WithEvents SplitContainer1 As System.Windows.Forms.SplitContainer + Friend WithEvents dv As CEnergy.arindv + Friend WithEvents bn As System.Windows.Forms.BindingNavigator + Friend WithEvents bt_add As System.Windows.Forms.ToolStripButton + Friend WithEvents bt_Del As System.Windows.Forms.ToolStripButton + Friend WithEvents bt_cancel As System.Windows.Forms.ToolStripButton + Friend WithEvents ToolStripSeparator1 As System.Windows.Forms.ToolStripSeparator + Friend WithEvents cmb_gubun As System.Windows.Forms.ToolStripComboBox + 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 + Friend WithEvents GroupBox1 As System.Windows.Forms.GroupBox + Friend WithEvents GroupBox4 As System.Windows.Forms.GroupBox + Friend WithEvents GroupBox3 As System.Windows.Forms.GroupBox + Friend WithEvents GroupBox5 As System.Windows.Forms.GroupBox + Friend WithEvents DataGridViewTextBoxColumn1 As System.Windows.Forms.DataGridViewTextBoxColumn + Friend WithEvents ToolTip1 As System.Windows.Forms.ToolTip + Friend WithEvents Label7 As System.Windows.Forms.Label + Friend WithEvents PictureBox1 As System.Windows.Forms.PictureBox + Friend WithEvents Label11 As System.Windows.Forms.Label + Friend WithEvents PictureBox4 As System.Windows.Forms.PictureBox + Friend WithEvents PictureBox5 As System.Windows.Forms.PictureBox + Friend WithEvents PictureBox3 As System.Windows.Forms.PictureBox + Friend WithEvents PictureBox2 As System.Windows.Forms.PictureBox + Friend WithEvents PictureBox7 As System.Windows.Forms.PictureBox + Friend WithEvents PictureBox6 As System.Windows.Forms.PictureBox + Friend WithEvents ToolStrip1 As System.Windows.Forms.ToolStrip + Friend WithEvents ToolStripLabel1 As System.Windows.Forms.ToolStripLabel + Friend WithEvents lbl_cnt1 As System.Windows.Forms.ToolStripLabel + Friend WithEvents ToolStripLabel3 As System.Windows.Forms.ToolStripLabel + Friend WithEvents lbl_cnt2 As System.Windows.Forms.ToolStripLabel + Friend WithEvents ToolStripLabel5 As System.Windows.Forms.ToolStripLabel + Friend WithEvents lbl_cnt3 As System.Windows.Forms.ToolStripLabel + Friend WithEvents cmb_열관류율 As Eco2Ar.MyCmb + Friend WithEvents MyTb1 As Eco2Ar.MyTb + Friend WithEvents Arindv1 As CEnergy.arindv + Friend WithEvents bszone As System.Windows.Forms.BindingSource + Friend WithEvents DataGridViewTextBoxColumn2 As System.Windows.Forms.DataGridViewTextBoxColumn + Friend WithEvents rad8 As System.Windows.Forms.RadioButton + Friend WithEvents rad10 As System.Windows.Forms.RadioButton + Friend WithEvents rad9 As System.Windows.Forms.RadioButton + Friend WithEvents rad7 As System.Windows.Forms.RadioButton + Friend WithEvents rad6 As System.Windows.Forms.RadioButton + Friend WithEvents rad5 As System.Windows.Forms.RadioButton + Friend WithEvents rad4 As System.Windows.Forms.RadioButton + Friend WithEvents rad3 As System.Windows.Forms.RadioButton + Friend WithEvents rad2 As System.Windows.Forms.RadioButton + Friend WithEvents rad1 As System.Windows.Forms.RadioButton + Friend WithEvents rad0 As System.Windows.Forms.RadioButton + Friend WithEvents PictureBox8 As System.Windows.Forms.PictureBox + Friend WithEvents ToolStripLabel2 As System.Windows.Forms.ToolStripLabel +End Class diff --git a/ArinWarev1/Forms/v20091231/Frm_v20091231_Myoun.resx b/ArinWarev1/Forms/v20091231/Frm_v20091231_Myoun.resx new file mode 100644 index 0000000..53b0bf5 --- /dev/null +++ b/ArinWarev1/Forms/v20091231/Frm_v20091231_Myoun.resx @@ -0,0 +1,357 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + 451, 17 + + + 109, 17 + + + 17, 17 + + + 176, 17 + + + 342, 17 + + + + + /9j/4AAQSkZJRgABAgEASABIAAD/7gAOQWRvYmUAZAAAAAAB/+ED5kV4aWYAAE1NACoAAAAIAAcBEgAD + AAAAAQABAAABGgAFAAAAAQAAAGIBGwAFAAAAAQAAAGoBKAADAAAAAQACAAABMQACAAAAHAAAAHIBMgAC + AAAAFAAAAI6HaQAEAAAAAQAAAKIAAADCAEgAAAABAAAASAAAAAEAAEFkb2JlIFBob3Rvc2hvcCBDUzMg + V2luZG93cwAyMDEwOjA0OjE1IDIwOjMyOjA0AAACoAIABAAAAAEAAAA8oAMABAAAAAEAAAAMAAAAAAAA + AAYBAwADAAAAAQAGAAABGgAFAAAAAQAAARABGwAFAAAAAQAAARgBKAADAAAAAQACAAACAQAEAAAAAQAA + ASACAgAEAAAAAQAAAr4AAAAAAAAASAAAAAEAAABIAAAAAf/Y/+AAEEpGSUYAAQIAAEgASAAA/+0ADEFk + b2JlX0NNAAH/7gAOQWRvYmUAZIAAAAAB/9sAhAAMCAgICQgMCQkMEQsKCxEVDwwMDxUYExMVExMYEQwM + DAwMDBEMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMAQ0LCw0ODRAODhAUDg4OFBQODg4OFBEMDAwM + DBERDAwMDAwMEQwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAz/wAARCAAMADwDASIAAhEBAxEB/90A + BAAE/8QBPwAAAQUBAQEBAQEAAAAAAAAAAwABAgQFBgcICQoLAQABBQEBAQEBAQAAAAAAAAABAAIDBAUG + BwgJCgsQAAEEAQMCBAIFBwYIBQMMMwEAAhEDBCESMQVBUWETInGBMgYUkaGxQiMkFVLBYjM0coLRQwcl + klPw4fFjczUWorKDJkSTVGRFwqN0NhfSVeJl8rOEw9N14/NGJ5SkhbSVxNTk9KW1xdXl9VZmdoaWprbG + 1ub2N0dXZ3eHl6e3x9fn9xEAAgIBAgQEAwQFBgcHBgU1AQACEQMhMRIEQVFhcSITBTKBkRShsUIjwVLR + 8DMkYuFygpJDUxVjczTxJQYWorKDByY1wtJEk1SjF2RFVTZ0ZeLys4TD03Xj80aUpIW0lcTU5PSltcXV + 5fVWZnaGlqa2xtbm9ic3R1dnd4eXp7fH/9oADAMBAAIRAxEAPwDd/amR/pH/AOcf70v2pkf6R/8AnH+9 + UUlofq/Bpevxb37UyP8ASP8A84/3pftTI/0j/wDOP96opJfq/BXr8W9+1Mj/AEj/APOP96X7UyP9I/8A + zj/eqKSX6vwV6/F3ujdbuGS2i5xfU8HVxktIG76XyW99vo27p0XGdO2/ba930dZj+q5dX+qfZPL8VAeD + 341VVr/eZhx+0bu708n/2f/iDFhJQ0NfUFJPRklMRQABAQAADEhMaW5vAhAAAG1udHJSR0IgWFlaIAfO + AAIACQAGADEAAGFjc3BNU0ZUAAAAAElFQyBzUkdCAAAAAAAAAAAAAAAAAAD21gABAAAAANMtSFAgIAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAEWNwcnQAAAFQAAAAM2Rl + c2MAAAGEAAAAbHd0cHQAAAHwAAAAFGJrcHQAAAIEAAAAFHJYWVoAAAIYAAAAFGdYWVoAAAIsAAAAFGJY + WVoAAAJAAAAAFGRtbmQAAAJUAAAAcGRtZGQAAALEAAAAiHZ1ZWQAAANMAAAAhnZpZXcAAAPUAAAAJGx1 + bWkAAAP4AAAAFG1lYXMAAAQMAAAAJHRlY2gAAAQwAAAADHJUUkMAAAQ8AAAIDGdUUkMAAAQ8AAAIDGJU + UkMAAAQ8AAAIDHRleHQAAAAAQ29weXJpZ2h0IChjKSAxOTk4IEhld2xldHQtUGFja2FyZCBDb21wYW55 + AABkZXNjAAAAAAAAABJzUkdCIElFQzYxOTY2LTIuMQAAAAAAAAAAAAAAEnNSR0IgSUVDNjE5NjYtMi4x + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABYWVogAAAAAAAA + 81EAAQAAAAEWzFhZWiAAAAAAAAAAAAAAAAAAAAAAWFlaIAAAAAAAAG+iAAA49QAAA5BYWVogAAAAAAAA + YpkAALeFAAAY2lhZWiAAAAAAAAAkoAAAD4QAALbPZGVzYwAAAAAAAAAWSUVDIGh0dHA6Ly93d3cuaWVj + LmNoAAAAAAAAAAAAAAAWSUVDIGh0dHA6Ly93d3cuaWVjLmNoAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAGRlc2MAAAAAAAAALklFQyA2MTk2Ni0yLjEgRGVmYXVsdCBSR0Ig + Y29sb3VyIHNwYWNlIC0gc1JHQgAAAAAAAAAAAAAALklFQyA2MTk2Ni0yLjEgRGVmYXVsdCBSR0IgY29s + b3VyIHNwYWNlIC0gc1JHQgAAAAAAAAAAAAAAAAAAAAAAAAAAAABkZXNjAAAAAAAAACxSZWZlcmVuY2Ug + Vmlld2luZyBDb25kaXRpb24gaW4gSUVDNjE5NjYtMi4xAAAAAAAAAAAAAAAsUmVmZXJlbmNlIFZpZXdp + bmcgQ29uZGl0aW9uIGluIElFQzYxOTY2LTIuMQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAdmlldwAA + AAAAE6T+ABRfLgAQzxQAA+3MAAQTCwADXJ4AAAABWFlaIAAAAAAATAlWAFAAAABXH+dtZWFzAAAAAAAA + AAEAAAAAAAAAAAAAAAAAAAAAAAACjwAAAAJzaWcgAAAAAENSVCBjdXJ2AAAAAAAABAAAAAAFAAoADwAU + ABkAHgAjACgALQAyADcAOwBAAEUASgBPAFQAWQBeAGMAaABtAHIAdwB8AIEAhgCLAJAAlQCaAJ8ApACp + AK4AsgC3ALwAwQDGAMsA0ADVANsA4ADlAOsA8AD2APsBAQEHAQ0BEwEZAR8BJQErATIBOAE+AUUBTAFS + AVkBYAFnAW4BdQF8AYMBiwGSAZoBoQGpAbEBuQHBAckB0QHZAeEB6QHyAfoCAwIMAhQCHQImAi8COAJB + AksCVAJdAmcCcQJ6AoQCjgKYAqICrAK2AsECywLVAuAC6wL1AwADCwMWAyEDLQM4A0MDTwNaA2YDcgN+ + A4oDlgOiA64DugPHA9MD4APsA/kEBgQTBCAELQQ7BEgEVQRjBHEEfgSMBJoEqAS2BMQE0wThBPAE/gUN + BRwFKwU6BUkFWAVnBXcFhgWWBaYFtQXFBdUF5QX2BgYGFgYnBjcGSAZZBmoGewaMBp0GrwbABtEG4wb1 + BwcHGQcrBz0HTwdhB3QHhgeZB6wHvwfSB+UH+AgLCB8IMghGCFoIbgiCCJYIqgi+CNII5wj7CRAJJQk6 + CU8JZAl5CY8JpAm6Cc8J5Qn7ChEKJwo9ClQKagqBCpgKrgrFCtwK8wsLCyILOQtRC2kLgAuYC7ALyAvh + C/kMEgwqDEMMXAx1DI4MpwzADNkM8w0NDSYNQA1aDXQNjg2pDcMN3g34DhMOLg5JDmQOfw6bDrYO0g7u + DwkPJQ9BD14Peg+WD7MPzw/sEAkQJhBDEGEQfhCbELkQ1xD1ERMRMRFPEW0RjBGqEckR6BIHEiYSRRJk + EoQSoxLDEuMTAxMjE0MTYxODE6QTxRPlFAYUJxRJFGoUixStFM4U8BUSFTQVVhV4FZsVvRXgFgMWJhZJ + FmwWjxayFtYW+hcdF0EXZReJF64X0hf3GBsYQBhlGIoYrxjVGPoZIBlFGWsZkRm3Gd0aBBoqGlEadxqe + GsUa7BsUGzsbYxuKG7Ib2hwCHCocUhx7HKMczBz1HR4dRx1wHZkdwx3sHhYeQB5qHpQevh7pHxMfPh9p + H5Qfvx/qIBUgQSBsIJggxCDwIRwhSCF1IaEhziH7IiciVSKCIq8i3SMKIzgjZiOUI8Ij8CQfJE0kfCSr + JNolCSU4JWgllyXHJfcmJyZXJocmtyboJxgnSSd6J6sn3CgNKD8ocSiiKNQpBik4KWspnSnQKgIqNSpo + KpsqzysCKzYraSudK9EsBSw5LG4soizXLQwtQS12Last4S4WLkwugi63Lu4vJC9aL5Evxy/+MDUwbDCk + MNsxEjFKMYIxujHyMioyYzKbMtQzDTNGM38zuDPxNCs0ZTSeNNg1EzVNNYc1wjX9Njc2cjauNuk3JDdg + N5w31zgUOFA4jDjIOQU5Qjl/Obw5+To2OnQ6sjrvOy07azuqO+g8JzxlPKQ84z0iPWE9oT3gPiA+YD6g + PuA/IT9hP6I/4kAjQGRApkDnQSlBakGsQe5CMEJyQrVC90M6Q31DwEQDREdEikTORRJFVUWaRd5GIkZn + RqtG8Ec1R3tHwEgFSEtIkUjXSR1JY0mpSfBKN0p9SsRLDEtTS5pL4kwqTHJMuk0CTUpNk03cTiVObk63 + TwBPSU+TT91QJ1BxULtRBlFQUZtR5lIxUnxSx1MTU19TqlP2VEJUj1TbVShVdVXCVg9WXFapVvdXRFeS + V+BYL1h9WMtZGllpWbhaB1pWWqZa9VtFW5Vb5Vw1XIZc1l0nXXhdyV4aXmxevV8PX2Ffs2AFYFdgqmD8 + YU9homH1YklinGLwY0Njl2PrZEBklGTpZT1lkmXnZj1mkmboZz1nk2fpaD9olmjsaUNpmmnxakhqn2r3 + a09rp2v/bFdsr20IbWBtuW4SbmtuxG8eb3hv0XArcIZw4HE6cZVx8HJLcqZzAXNdc7h0FHRwdMx1KHWF + deF2Pnabdvh3VnezeBF4bnjMeSp5iXnnekZ6pXsEe2N7wnwhfIF84X1BfaF+AX5ifsJ/I3+Ef+WAR4Co + gQqBa4HNgjCCkoL0g1eDuoQdhICE44VHhauGDoZyhteHO4efiASIaYjOiTOJmYn+imSKyoswi5aL/Ixj + jMqNMY2Yjf+OZo7OjzaPnpAGkG6Q1pE/kaiSEZJ6kuOTTZO2lCCUipT0lV+VyZY0lp+XCpd1l+CYTJi4 + mSSZkJn8mmia1ZtCm6+cHJyJnPedZJ3SnkCerp8dn4uf+qBpoNihR6G2oiailqMGo3aj5qRWpMelOKWp + phqmi6b9p26n4KhSqMSpN6mpqhyqj6sCq3Wr6axcrNCtRK24ri2uoa8Wr4uwALB1sOqxYLHWskuywrM4 + s660JbSctRO1irYBtnm28Ldot+C4WbjRuUq5wro7urW7LrunvCG8m70VvY++Cr6Evv+/er/1wHDA7MFn + wePCX8Lbw1jD1MRRxM7FS8XIxkbGw8dBx7/IPci8yTrJuco4yrfLNsu2zDXMtc01zbXONs62zzfPuNA5 + 0LrRPNG+0j/SwdNE08bUSdTL1U7V0dZV1tjXXNfg2GTY6Nls2fHadtr724DcBdyK3RDdlt4c3qLfKd+v + 4DbgveFE4cziU+Lb42Pj6+Rz5PzlhOYN5pbnH+ep6DLovOlG6dDqW+rl63Dr++yG7RHtnO4o7rTvQO/M + 8Fjw5fFy8f/yjPMZ86f0NPTC9VD13vZt9vv3ivgZ+Kj5OPnH+lf65/t3/Af8mP0p/br+S/7c/23////b + AEMAAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQICAgICAgICAgICAwMD + AwMDAwMDA//bAEMBAQEBAQEBAQEBAQICAQICAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMD + AwMDAwMDAwMDAwMDAwMDA//AABEIAAwAPAMBEQACEQEDEQH/xAAfAAABBQEBAQEBAQAAAAAAAAAAAQID + BAUGBwgJCgv/xAC1EAACAQMDAgQDBQUEBAAAAX0BAgMABBEFEiExQQYTUWEHInEUMoGRoQgjQrHBFVLR + 8CQzYnKCCQoWFxgZGiUmJygpKjQ1Njc4OTpDREVGR0hJSlNUVVZXWFlaY2RlZmdoaWpzdHV2d3h5eoOE + hYaHiImKkpOUlZaXmJmaoqOkpaanqKmqsrO0tba3uLm6wsPExcbHyMnK0tPU1dbX2Nna4eLj5OXm5+jp + 6vHy8/T19vf4+fr/xAAfAQADAQEBAQEBAQEBAAAAAAAAAQIDBAUGBwgJCgv/xAC1EQACAQIEBAMEBwUE + BAABAncAAQIDEQQFITEGEkFRB2FxEyIygQgUQpGhscEJIzNS8BVictEKFiQ04SXxFxgZGiYnKCkqNTY3 + ODk6Q0RFRkdISUpTVFVWV1hZWmNkZWZnaGlqc3R1dnd4eXqCg4SFhoeIiYqSk5SVlpeYmZqio6Slpqeo + qaqys7S1tre4ubrCw8TFxsfIycrS09TV1tfY2dri4+Tl5ufo6ery8/T19vf4+fr/2gAMAwEAAhEDEQA/ + AP1ZH7UPxEAA/wCEw8bnj/ob9f8A/k+v7U/1Nyj/AKF+G/8ABUP/AJE/llcSZlZf7dX/APBk/wDMX/hq + H4if9Df43/8ACv1//wCT6P8AU3Kf+hfhv/BUP/kQ/wBZcy/6Dq//AIMn/mH/AA1D8RP+hv8AG/8A4V+v + /wDyfR/qblP/AEL8N/4Kh/8AIh/rLmX/AEHV/wDwZP8AzD/hqH4if9Df43/8K/X/AP5Po/1Nyn/oX4b/ + AMFQ/wDkQ/1lzL/oOr/+DJ/5h/w1D8RP+hv8b/8AhX6//wDJ9H+puU/9C/Df+Cof/Ih/rLmX/QdX/wDB + k/8AMT/hqH4if9Df43/8K/X/AP5Po/1Nyn/oX4b/AMFQ/wDkQ/1kzL/oOr/+DJ/5n2R+xz+234zt/iRp + nw+8a6vqXiDwZ4gs9baObXr+bUr/AMPajpmkX2tQ3FlqV2Zb57K7XT2t3tXkaJWkV4whVxJ+beJfAuU4 + Th/FZ/hKEKOMw8qd+SKjGcZzjTs4q0bpyUlJK7s073VvuuBOLMxxGcYfJ8TWlVw1ZTtzu7hKMJTupPWz + UWnFu2qatrf9aP8AhfXgv+zv7U89/sfm+V5207N+M43fSv50P2w/kwr/AEFP42CgAoAKACgAoA9s/Z0/ + s7/hcng3+1vP/s7Ov/avs2PP2f8ACL63t2buP9ZjP+zmvz7xU/5IPPf+4H/qRRPsvD//AJK7KP8AuL/6 + ZqH7/wD/ABaT/hUfb7Ht/wBj7V9p8v8A9Cr+Oz+lz//Z + + + + + /9j/4AAQSkZJRgABAgEASABIAAD/7gAOQWRvYmUAZAAAAAAB/+ED5kV4aWYAAE1NACoAAAAIAAcBEgAD + AAAAAQABAAABGgAFAAAAAQAAAGIBGwAFAAAAAQAAAGoBKAADAAAAAQACAAABMQACAAAAHAAAAHIBMgAC + AAAAFAAAAI6HaQAEAAAAAQAAAKIAAADCAEgAAAABAAAASAAAAAEAAEFkb2JlIFBob3Rvc2hvcCBDUzMg + V2luZG93cwAyMDEwOjA0OjE1IDIwOjMyOjA0AAACoAIABAAAAAEAAAA8oAMABAAAAAEAAAAMAAAAAAAA + AAYBAwADAAAAAQAGAAABGgAFAAAAAQAAARABGwAFAAAAAQAAARgBKAADAAAAAQACAAACAQAEAAAAAQAA + ASACAgAEAAAAAQAAAr4AAAAAAAAASAAAAAEAAABIAAAAAf/Y/+AAEEpGSUYAAQIAAEgASAAA/+0ADEFk + b2JlX0NNAAH/7gAOQWRvYmUAZIAAAAAB/9sAhAAMCAgICQgMCQkMEQsKCxEVDwwMDxUYExMVExMYEQwM + DAwMDBEMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMAQ0LCw0ODRAODhAUDg4OFBQODg4OFBEMDAwM + DBERDAwMDAwMEQwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAz/wAARCAAMADwDASIAAhEBAxEB/90A + BAAE/8QBPwAAAQUBAQEBAQEAAAAAAAAAAwABAgQFBgcICQoLAQABBQEBAQEBAQAAAAAAAAABAAIDBAUG + BwgJCgsQAAEEAQMCBAIFBwYIBQMMMwEAAhEDBCESMQVBUWETInGBMgYUkaGxQiMkFVLBYjM0coLRQwcl + klPw4fFjczUWorKDJkSTVGRFwqN0NhfSVeJl8rOEw9N14/NGJ5SkhbSVxNTk9KW1xdXl9VZmdoaWprbG + 1ub2N0dXZ3eHl6e3x9fn9xEAAgIBAgQEAwQFBgcHBgU1AQACEQMhMRIEQVFhcSITBTKBkRShsUIjwVLR + 8DMkYuFygpJDUxVjczTxJQYWorKDByY1wtJEk1SjF2RFVTZ0ZeLys4TD03Xj80aUpIW0lcTU5PSltcXV + 5fVWZnaGlqa2xtbm9ic3R1dnd4eXp7fH/9oADAMBAAIRAxEAPwDd/amR/pH/AOcf70v2pkf6R/8AnH+9 + UUlofq/Bpevxb37UyP8ASP8A84/3pftTI/0j/wDOP96opJfq/BXr8W9+1Mj/AEj/APOP96X7UyP9I/8A + zj/eqKSX6vwV6/F3ujdbuGS2i5xfU8HVxktIG76XyW99vo27p0XGdO2/ba930dZj+q5dX+qfZPL8VAeD + 341VVr/eZhx+0bu708n/2f/iDFhJQ0NfUFJPRklMRQABAQAADEhMaW5vAhAAAG1udHJSR0IgWFlaIAfO + AAIACQAGADEAAGFjc3BNU0ZUAAAAAElFQyBzUkdCAAAAAAAAAAAAAAAAAAD21gABAAAAANMtSFAgIAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAEWNwcnQAAAFQAAAAM2Rl + c2MAAAGEAAAAbHd0cHQAAAHwAAAAFGJrcHQAAAIEAAAAFHJYWVoAAAIYAAAAFGdYWVoAAAIsAAAAFGJY + WVoAAAJAAAAAFGRtbmQAAAJUAAAAcGRtZGQAAALEAAAAiHZ1ZWQAAANMAAAAhnZpZXcAAAPUAAAAJGx1 + bWkAAAP4AAAAFG1lYXMAAAQMAAAAJHRlY2gAAAQwAAAADHJUUkMAAAQ8AAAIDGdUUkMAAAQ8AAAIDGJU + UkMAAAQ8AAAIDHRleHQAAAAAQ29weXJpZ2h0IChjKSAxOTk4IEhld2xldHQtUGFja2FyZCBDb21wYW55 + AABkZXNjAAAAAAAAABJzUkdCIElFQzYxOTY2LTIuMQAAAAAAAAAAAAAAEnNSR0IgSUVDNjE5NjYtMi4x + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABYWVogAAAAAAAA + 81EAAQAAAAEWzFhZWiAAAAAAAAAAAAAAAAAAAAAAWFlaIAAAAAAAAG+iAAA49QAAA5BYWVogAAAAAAAA + YpkAALeFAAAY2lhZWiAAAAAAAAAkoAAAD4QAALbPZGVzYwAAAAAAAAAWSUVDIGh0dHA6Ly93d3cuaWVj + LmNoAAAAAAAAAAAAAAAWSUVDIGh0dHA6Ly93d3cuaWVjLmNoAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAGRlc2MAAAAAAAAALklFQyA2MTk2Ni0yLjEgRGVmYXVsdCBSR0Ig + Y29sb3VyIHNwYWNlIC0gc1JHQgAAAAAAAAAAAAAALklFQyA2MTk2Ni0yLjEgRGVmYXVsdCBSR0IgY29s + b3VyIHNwYWNlIC0gc1JHQgAAAAAAAAAAAAAAAAAAAAAAAAAAAABkZXNjAAAAAAAAACxSZWZlcmVuY2Ug + Vmlld2luZyBDb25kaXRpb24gaW4gSUVDNjE5NjYtMi4xAAAAAAAAAAAAAAAsUmVmZXJlbmNlIFZpZXdp + bmcgQ29uZGl0aW9uIGluIElFQzYxOTY2LTIuMQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAdmlldwAA + AAAAE6T+ABRfLgAQzxQAA+3MAAQTCwADXJ4AAAABWFlaIAAAAAAATAlWAFAAAABXH+dtZWFzAAAAAAAA + AAEAAAAAAAAAAAAAAAAAAAAAAAACjwAAAAJzaWcgAAAAAENSVCBjdXJ2AAAAAAAABAAAAAAFAAoADwAU + ABkAHgAjACgALQAyADcAOwBAAEUASgBPAFQAWQBeAGMAaABtAHIAdwB8AIEAhgCLAJAAlQCaAJ8ApACp + AK4AsgC3ALwAwQDGAMsA0ADVANsA4ADlAOsA8AD2APsBAQEHAQ0BEwEZAR8BJQErATIBOAE+AUUBTAFS + AVkBYAFnAW4BdQF8AYMBiwGSAZoBoQGpAbEBuQHBAckB0QHZAeEB6QHyAfoCAwIMAhQCHQImAi8COAJB + AksCVAJdAmcCcQJ6AoQCjgKYAqICrAK2AsECywLVAuAC6wL1AwADCwMWAyEDLQM4A0MDTwNaA2YDcgN+ + A4oDlgOiA64DugPHA9MD4APsA/kEBgQTBCAELQQ7BEgEVQRjBHEEfgSMBJoEqAS2BMQE0wThBPAE/gUN + BRwFKwU6BUkFWAVnBXcFhgWWBaYFtQXFBdUF5QX2BgYGFgYnBjcGSAZZBmoGewaMBp0GrwbABtEG4wb1 + BwcHGQcrBz0HTwdhB3QHhgeZB6wHvwfSB+UH+AgLCB8IMghGCFoIbgiCCJYIqgi+CNII5wj7CRAJJQk6 + CU8JZAl5CY8JpAm6Cc8J5Qn7ChEKJwo9ClQKagqBCpgKrgrFCtwK8wsLCyILOQtRC2kLgAuYC7ALyAvh + C/kMEgwqDEMMXAx1DI4MpwzADNkM8w0NDSYNQA1aDXQNjg2pDcMN3g34DhMOLg5JDmQOfw6bDrYO0g7u + DwkPJQ9BD14Peg+WD7MPzw/sEAkQJhBDEGEQfhCbELkQ1xD1ERMRMRFPEW0RjBGqEckR6BIHEiYSRRJk + EoQSoxLDEuMTAxMjE0MTYxODE6QTxRPlFAYUJxRJFGoUixStFM4U8BUSFTQVVhV4FZsVvRXgFgMWJhZJ + FmwWjxayFtYW+hcdF0EXZReJF64X0hf3GBsYQBhlGIoYrxjVGPoZIBlFGWsZkRm3Gd0aBBoqGlEadxqe + GsUa7BsUGzsbYxuKG7Ib2hwCHCocUhx7HKMczBz1HR4dRx1wHZkdwx3sHhYeQB5qHpQevh7pHxMfPh9p + H5Qfvx/qIBUgQSBsIJggxCDwIRwhSCF1IaEhziH7IiciVSKCIq8i3SMKIzgjZiOUI8Ij8CQfJE0kfCSr + JNolCSU4JWgllyXHJfcmJyZXJocmtyboJxgnSSd6J6sn3CgNKD8ocSiiKNQpBik4KWspnSnQKgIqNSpo + KpsqzysCKzYraSudK9EsBSw5LG4soizXLQwtQS12Last4S4WLkwugi63Lu4vJC9aL5Evxy/+MDUwbDCk + MNsxEjFKMYIxujHyMioyYzKbMtQzDTNGM38zuDPxNCs0ZTSeNNg1EzVNNYc1wjX9Njc2cjauNuk3JDdg + N5w31zgUOFA4jDjIOQU5Qjl/Obw5+To2OnQ6sjrvOy07azuqO+g8JzxlPKQ84z0iPWE9oT3gPiA+YD6g + PuA/IT9hP6I/4kAjQGRApkDnQSlBakGsQe5CMEJyQrVC90M6Q31DwEQDREdEikTORRJFVUWaRd5GIkZn + RqtG8Ec1R3tHwEgFSEtIkUjXSR1JY0mpSfBKN0p9SsRLDEtTS5pL4kwqTHJMuk0CTUpNk03cTiVObk63 + TwBPSU+TT91QJ1BxULtRBlFQUZtR5lIxUnxSx1MTU19TqlP2VEJUj1TbVShVdVXCVg9WXFapVvdXRFeS + V+BYL1h9WMtZGllpWbhaB1pWWqZa9VtFW5Vb5Vw1XIZc1l0nXXhdyV4aXmxevV8PX2Ffs2AFYFdgqmD8 + YU9homH1YklinGLwY0Njl2PrZEBklGTpZT1lkmXnZj1mkmboZz1nk2fpaD9olmjsaUNpmmnxakhqn2r3 + a09rp2v/bFdsr20IbWBtuW4SbmtuxG8eb3hv0XArcIZw4HE6cZVx8HJLcqZzAXNdc7h0FHRwdMx1KHWF + deF2Pnabdvh3VnezeBF4bnjMeSp5iXnnekZ6pXsEe2N7wnwhfIF84X1BfaF+AX5ifsJ/I3+Ef+WAR4Co + gQqBa4HNgjCCkoL0g1eDuoQdhICE44VHhauGDoZyhteHO4efiASIaYjOiTOJmYn+imSKyoswi5aL/Ixj + jMqNMY2Yjf+OZo7OjzaPnpAGkG6Q1pE/kaiSEZJ6kuOTTZO2lCCUipT0lV+VyZY0lp+XCpd1l+CYTJi4 + mSSZkJn8mmia1ZtCm6+cHJyJnPedZJ3SnkCerp8dn4uf+qBpoNihR6G2oiailqMGo3aj5qRWpMelOKWp + phqmi6b9p26n4KhSqMSpN6mpqhyqj6sCq3Wr6axcrNCtRK24ri2uoa8Wr4uwALB1sOqxYLHWskuywrM4 + s660JbSctRO1irYBtnm28Ldot+C4WbjRuUq5wro7urW7LrunvCG8m70VvY++Cr6Evv+/er/1wHDA7MFn + wePCX8Lbw1jD1MRRxM7FS8XIxkbGw8dBx7/IPci8yTrJuco4yrfLNsu2zDXMtc01zbXONs62zzfPuNA5 + 0LrRPNG+0j/SwdNE08bUSdTL1U7V0dZV1tjXXNfg2GTY6Nls2fHadtr724DcBdyK3RDdlt4c3qLfKd+v + 4DbgveFE4cziU+Lb42Pj6+Rz5PzlhOYN5pbnH+ep6DLovOlG6dDqW+rl63Dr++yG7RHtnO4o7rTvQO/M + 8Fjw5fFy8f/yjPMZ86f0NPTC9VD13vZt9vv3ivgZ+Kj5OPnH+lf65/t3/Af8mP0p/br+S/7c/23////b + AEMAAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQICAgICAgICAgICAwMD + AwMDAwMDA//bAEMBAQEBAQEBAQEBAQICAQICAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMD + AwMDAwMDAwMDAwMDAwMDA//AABEIAAwAPAMBEQACEQEDEQH/xAAfAAABBQEBAQEBAQAAAAAAAAAAAQID + BAUGBwgJCgv/xAC1EAACAQMDAgQDBQUEBAAAAX0BAgMABBEFEiExQQYTUWEHInEUMoGRoQgjQrHBFVLR + 8CQzYnKCCQoWFxgZGiUmJygpKjQ1Njc4OTpDREVGR0hJSlNUVVZXWFlaY2RlZmdoaWpzdHV2d3h5eoOE + hYaHiImKkpOUlZaXmJmaoqOkpaanqKmqsrO0tba3uLm6wsPExcbHyMnK0tPU1dbX2Nna4eLj5OXm5+jp + 6vHy8/T19vf4+fr/xAAfAQADAQEBAQEBAQEBAAAAAAAAAQIDBAUGBwgJCgv/xAC1EQACAQIEBAMEBwUE + BAABAncAAQIDEQQFITEGEkFRB2FxEyIygQgUQpGhscEJIzNS8BVictEKFiQ04SXxFxgZGiYnKCkqNTY3 + ODk6Q0RFRkdISUpTVFVWV1hZWmNkZWZnaGlqc3R1dnd4eXqCg4SFhoeIiYqSk5SVlpeYmZqio6Slpqeo + qaqys7S1tre4ubrCw8TFxsfIycrS09TV1tfY2dri4+Tl5ufo6ery8/T19vf4+fr/2gAMAwEAAhEDEQA/ + AP1ZH7UPxEAA/wCEw8bnj/ob9f8A/k+v7U/1Nyj/AKF+G/8ABUP/AJE/llcSZlZf7dX/APBk/wDMX/hq + H4if9Df43/8ACv1//wCT6P8AU3Kf+hfhv/BUP/kQ/wBZcy/6Dq//AIMn/mH/AA1D8RP+hv8AG/8A4V+v + /wDyfR/qblP/AEL8N/4Kh/8AIh/rLmX/AEHV/wDwZP8AzD/hqH4if9Df43/8K/X/AP5Po/1Nyn/oX4b/ + AMFQ/wDkQ/1lzL/oOr/+DJ/5h/w1D8RP+hv8b/8AhX6//wDJ9H+puU/9C/Df+Cof/Ih/rLmX/QdX/wDB + k/8AMT/hqH4if9Df43/8K/X/AP5Po/1Nyn/oX4b/AMFQ/wDkQ/1kzL/oOr/+DJ/5n2R+xz+234zt/iRp + nw+8a6vqXiDwZ4gs9baObXr+bUr/AMPajpmkX2tQ3FlqV2Zb57K7XT2t3tXkaJWkV4whVxJ+beJfAuU4 + Th/FZ/hKEKOMw8qd+SKjGcZzjTs4q0bpyUlJK7s073VvuuBOLMxxGcYfJ8TWlVw1ZTtzu7hKMJTupPWz + UWnFu2qatrf9aP8AhfXgv+zv7U89/sfm+V5207N+M43fSv50P2w/kwr/AEFP42CgAoAKACgAoA9s/Z0/ + s7/hcng3+1vP/s7Ov/avs2PP2f8ACL63t2buP9ZjP+zmvz7xU/5IPPf+4H/qRRPsvD//AJK7KP8AuL/6 + ZqH7/wD/ABaT/hUfb7Ht/wBj7V9p8v8A9Cr+Oz+lz//Z + + + + 242, 17 + + + 54 + + \ No newline at end of file diff --git a/ArinWarev1/Forms/v20091231/Frm_v20091231_Myoun.vb b/ArinWarev1/Forms/v20091231/Frm_v20091231_Myoun.vb new file mode 100644 index 0000000..2824311 --- /dev/null +++ b/ArinWarev1/Forms/v20091231/Frm_v20091231_Myoun.vb @@ -0,0 +1,974 @@ +Public Class Frm_V20091231_Myoun + + Dim isCopy As Boolean = False + Dim Init As Boolean = False + Dim SrcDrv As DataRowView + + Dim SelectedZone As String = "" + Dim SelectedZoneName As String = "" +#Region "data Base 변경여부및 적용방법" + + '''변경된내용을적용한다. + Public Overrides Function AcceptChanged() As Boolean + bs.EndEdit() + Dim BaseDS As DataSet = CType(bs.DataSource, DataSet) + Dim BaseDT As DataTable = BaseDS.Tables(bs.DataMember) + BaseDT.AcceptChanges() + Return True + End Function + + '''변경된내용이있다면 취소한다. + Public Overrides Function RejectChanged() As Boolean + Dim BaseDS As DataSet = CType(bs.DataSource, DataSet) + Dim BaseDT As DataTable = BaseDS.Tables(bs.DataMember) + BaseDT.RejectChanges() + Return True + End Function + + '''데이터에변형이있었는가? + Public Overrides Function HasChanged() As Boolean + bs.EndEdit() + Dim BaseDS As DataSet = CType(bs.DataSource, DataSet) + Dim BaseDT As DataTable = BaseDS.Tables(bs.DataMember) + Dim ChangeDT As DataTable = BaseDT.GetChanges + If Not ChangeDT Is Nothing Then Return True + Return False + End Function + + '''기본데이터테이블을 반환합니다. + Public Function DT() As DataTable + Dim BaseDS As DataSet = CType(bs.DataSource, DataSet) + Return BaseDS.Tables(bs.DataMember) + End Function + + +#End Region + + + + Private Sub MdiMain_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load + + 'MdiMain.Toggle_Menu_Color(MdiMain.E_MenuIdx.입력면) + '//프로필 관련 + + If Prj.UserAuthType = "ADMIN" OrElse Prj.UserAuthType = "BOTH" OrElse Prj.UserAuthType = "BOTH2" OrElse Prj.UserAuthType = "BOTH1" Then '//2011.03.08 추가 + Me.ToolStripLabel1.Visible = True + Me.ToolStripLabel3.Visible = True + Me.ToolStripLabel5.Visible = True + Me.lbl_cnt1.Visible = True + Me.lbl_cnt2.Visible = True + Me.lbl_cnt3.Visible = True + Else + Me.ToolStripLabel1.Visible = False + Me.ToolStripLabel3.Visible = False + Me.ToolStripLabel5.Visible = False + Me.lbl_cnt1.Visible = False + Me.lbl_cnt2.Visible = False + Me.lbl_cnt3.Visible = False + + End If + + '//공유데이터셋에 연결한다. + Me.bs.DataSource = DSET + Me.bszone.DataSource = DSET + + '//입력면 + AddHandler DSET.tbl_myoun.TableNewRow, AddressOf AddNewDataRow_new + AddHandler DSET.tbl_myoun.ColumnChanged, AddressOf AddNewDataRow_Zone_Changed + '//콤보컨트롤 바인딩 + Binding_Zone() + + '//모든컨트롤의 cTrl_enter 를 추가합니다 + BindProperty(CType(Me.SplitContainer1.Panel2.Controls, Control.ControlCollection)) + + Me.Init = True + + Try + Me.bszone.Position = CEnergy.ARINCLASS.Read_LastPos_Frm(Me.Name & "1") + Catch ex As Exception + Me.bszone.MoveFirst() + End Try + + '//마지막저장된 존의이름이 일치하면 면의 레코드를 이동 + Dim LastZoneName As String = CEnergy.ARINCLASS.Read_LastZone(Me.Name) + Dim DRv As DataRowView = Me.bszone.Current + If Not DRv Is Nothing Then + Dim CurZoneName As String = DRv("설명").ToString + If LastZoneName = CurZoneName Then + Try + Me.bs.Position = CEnergy.ARINCLASS.Read_LastPos_Frm(Me) + Catch ex As Exception + Me.bs.MoveFirst() + End Try + Else + Me.bs.MoveFirst() + End If + Else + Me.bs.MoveFirst() + End If + + bs_CurrentChanged(sender, e) + Validate_Control() + End Sub + + Private Sub AddNewDataRow_new(ByVal sender As Object, ByVal e As System.Data.DataTableNewRowEventArgs) + '//존분류값가져오기 + 'If Me.FilterMode Then + ' If MsgBox("현재 필터적용상태에서는 추가할 수 없습니다" & vbCrLf & "필터상태를 해제하시겠습니까?", MsgBoxStyle.Information Or MsgBoxStyle.OkCancel, "확인") <> MsgBoxResult.Ok Then + ' Return '//필터상태에서는 추가불가 / 다른존의 값이 들어갈수있음(방지코드) + ' Else + ' Me.FilterMode = False + ' MsgBox("추가할 존을 다시 선택하세요", MsgBoxStyle.Information, "확인") + ' Return + ' End If + 'End If + If Me.SelectedZone = "" Then + 'MsgBox("선택된 존이없으므로 추가할 수 없습니다!", MsgBoxStyle.Critical, "확인") + Return + End If + + Dim Zone As String = Me.SelectedZone + e.Row.Item("존분류") = Zone + e.Row.Item("code") = GetMaxCode(DSET.tbl_myoun) + 'e.Row.Item("열관류율2") = Me.cmb_gubun.Text '//선택된 그것의 값이 들어가도록..필드명만찾아서 입력하세요. + + Try + If Me.cmb_gubun.SelectedIndex = -1 OrElse Me.cmb_gubun.Text = "(없음)" Then + e.Row.Item("설명") = bs.Count + 1 & "_" & Me.SelectedZoneName + Else + e.Row.Item("설명") = Me.cmb_gubun.Text & "_" & Me.SelectedZoneName + End If + Catch ex As Exception + e.Row.Item("설명") = Me.SelectedZoneName + End Try + + + + + 'Select Case Me.cmb_gubun.Text + ' Case "외벽" + ' e.Row.Item("설명") = DRv("설명").ToString & "_외벽" & bs.Count + 1 + ' Case "외부창" + ' e.Row.Item("설명") = DRv("설명").ToString & "_외부창" & bs.Count + 1 + ' Case "내벽" + ' e.Row.Item("설명") = DRv("설명").ToString & "_내벽" & bs.Count + 1 + ' Case "간벽" + ' e.Row.Item("설명") = DRv("설명").ToString & "_간벽" & bs.Count + 1 + ' Case "내부창" + ' e.Row.Item("설명") = DRv("설명").ToString & "_내부창" & bs.Count + 1 + 'End Select + + + End Sub + + +#Region "Control_Enter" + Private Sub BindProperty(ByVal Ctl As Control.ControlCollection) + For Each C As Control In Ctl + If C.Controls.Count > 1 Then + BindProperty(C.Controls) + Else + If C.GetType.ToString.ToUpper.IndexOf("MYTB") <> -1 Then + AddHandler CType(C, MyTb).KeyDown, AddressOf TextBOx_KeyDown + ElseIf C.GetType.ToString.ToUpper.IndexOf("MYCMB") <> -1 Then + AddHandler CType(C, MyCmb).KeyDown, AddressOf Cmd_KeyDown + AddHandler CType(C, MyCmb).MouseHover, AddressOf ComboBox_MouseHover + End If + End If + Next + End Sub + + + Private Sub TextBOx_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) + If e.KeyCode = Keys.Enter AndAlso e.Control Then + Try + Dim Field As String = (CType(sender, MyTb).DataBindings.Item("text").BindingMemberInfo.BindingField) + For Each Dr As DataRow In Dt.Select(Me.bs.Filter, "") + Dr(Field) = CType(sender, MyTb).Text + Next + Work_msg_timer("모든값이 변경되었습니다", 25) + Catch ex As Exception + + End Try + + End If + End Sub + Private Sub Cmd_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) + If e.KeyCode = Keys.Enter AndAlso e.Control Then + Try + Dim Field As String = (CType(sender, MyCmb).DataBindings.Item("selectedvalue").BindingMemberInfo.BindingField) + For Each Dr As DataRow In Dt.Select(Me.bs.Filter, "") + Dr(Field) = CType(sender, MyCmb).SelectedValue + Next + Work_msg_timer("모든값이 변경되었습니다", 25) + Catch ex As Exception + + End Try + End If + End Sub + Private Sub ComboBox_MouseHover(ByVal sender As Object, ByVal e As System.EventArgs) + If CType(sender, ComboBox).SelectedIndex = -1 Then Return + Me.ToolTip1.SetToolTip(CType(sender, ComboBox), CType(sender, ComboBox).DataBindings("selectedvalue").BindingMemberInfo.BindingMember & vbCrLf & CType(sender, ComboBox).SelectedValue.ToString) + + End Sub +#End Region +#Region "ComboxBox Binding" + Private Sub AddNewDataRow_Zone_Changed(ByVal sender As Object, ByVal e As System.Data.DataColumnChangeEventArgs) + '//값이바뀐다면 조명의실지수값을 재계산한다. + 'MsgBox(e.Column.ToString) + + Select Case e.Column.Caption.Trim + Case "건축부위방식" + If e.ProposedValue.ToString = "내벽" OrElse e.ProposedValue.ToString = "간벽" OrElse e.ProposedValue.ToString = "내부창" Then + 'e.Row("방위") = "일사없음" + End If + Me.bs.EndEdit() + End Select + End Sub + Private Sub MdiMain_FormClosed(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosedEventArgs) Handles Me.FormClosed + CEnergy.ARINCLASS.SaveLoad_FrmSetting(Me, Me.bs.Position, True) + CEnergy.ARINCLASS.Save_LastPos_Frm(Me.Name & "1", Me.bszone.Position) + CEnergy.ARINCLASS.Save_LastZone(Me.Name, Me.SelectedZoneName) '//선택된 존의 이름을 저장 + 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 + If Me.bs.Position < Me.bs.Count Then Me.bs.Position += 1 + Else + If Me.bs.Position > 0 Then Me.bs.Position -= 1 + End If + Me.Validate() + My.Application.DoEvents() + End Sub + Private Sub MdiMain_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown + Select Case e.KeyCode + Case Keys.F12 + End Select + End Sub + + Private Function GetMaxCode(ByVal dt As DataTable) As String + Try + Dim Dr As DataRow = dt.Select("", "code desc")(0) + Return Format(CInt(Dr("code")) + 1, "0000") + Catch ex As Exception + Return "0001" + End Try + End Function + + Private Sub Cmb_DeleteVal(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) + If e.KeyCode = Keys.Delete Then + CType(sender, ComboBox).SelectedValue = "" + End If + End Sub + Private Sub ToolStripButton48_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt_add.Click + If Not EndEdit(Me.bs) Then Return + + 'If Me.FilterMode Then + ' If MsgBox("현재 필터적용상태에서는 추가할 수 없습니다" & vbCrLf & "필터상태를 해제하시겠습니까?", MsgBoxStyle.Information Or MsgBoxStyle.OkCancel, "확인") <> MsgBoxResult.Ok Then + ' Return '//필터상태에서는 추가불가 / 다른존의 값이 들어갈수있음(방지코드) + ' Else + ' Me.FilterMode = False + ' MsgBox("추가할 존을 다시 선택하세요", MsgBoxStyle.Information, "확인") + ' Return + ' End If + 'End If + + If Me.SelectedZone = "" Then + MsgBox("선택된 존이없으므로 추가할 수 없습니다.", MsgBoxStyle.Critical, "확인") + Return + End If + + '//Me.cmb_gubun.SelectedIndex = 0 + Me.bs.AddNew() + INitRow(Me.Controls) + '//추가한후에 + Me.cmb_열관류율.Text = Me.cmb_gubun.Text + '//이게 콤보넣을떄인데요. 면의형태의 값을.. 어디다가 넣으시게요? + + Dim Dr1() As DS.tbl_ykRow = DSET.tbl_yk.Select("설명='" & Me.cmb_gubun.Text & "'") + If Dr1.GetUpperBound(0) = 0 Then '//해당데이터가 찾아졋을경우에 + + + Dim dr2() As DS.tbl_commonRow = DSET.tbl_common.Select("gubun='1088' and code='" & Dr1(0).면형태 & "'") + Dim 면형태 As String = dr2(0).name + Select Case 면형태 + Case "외벽(벽체)" + Me.cmb_건축부위방식.Text = "외벽" + Case "외벽(지붕)" + Me.cmb_건축부위방식.Text = "외벽" + Me.cmb_방위.Text = "수평" + Case "외벽(바닥)" + Me.cmb_건축부위방식.Text = "외벽" + Me.cmb_방위.Text = "일사없음" + Case "내벽(벽체)" + Me.cmb_건축부위방식.Text = "내벽" + Me.cmb_방위.Text = "일사없음" + Case "내벽(지붕)" + Me.cmb_건축부위방식.Text = "내벽" + Me.cmb_방위.Text = "일사없음" + Case "내벽(바닥)" + Me.cmb_건축부위방식.Text = "내벽" + Me.cmb_방위.Text = "일사없음" + Case "간벽" + Me.cmb_건축부위방식.Text = "간벽" + Me.cmb_방위.Text = "일사없음" + Case "외부창", "내부창" + If 면형태 = "외부창" Then + Me.cmb_건축부위방식.Text = "외부창" + Else + Me.cmb_건축부위방식.Text = "내부창" + Me.cmb_방위.Text = "일사없음" + End If + Dim Dr As DS.tbl_ykRow = DSET.tbl_yk.Select("code='" & Me.cmb_열관류율.SelectedValue & "'")(0) + Me.tb_04.Text = Dr("일사에너지투과율").ToString + Case Else + MsgBox("모르는값 " & Dr1(0).면형태 & "/" & 면형태) + End Select + Else + MsgBox("못찻음") + End If + + + End Sub + + + Private Sub ToolStripButton49_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt_Del.Click + 'MsgBox(Me.bs.ToString) + Dbbase.DelCrow(Me.bs, True) + End Sub + + Private Sub ToolStripButton51_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt_cancel.Click + If Not EndEdit(Me.bs) Then Return + Data_Cancel(DSET.tbl_profile, Nothing) + End Sub + + Private Sub Binding_Zone() + + '//구분 콤봅박스 + Me.cmb_gubun.Items.Clear() + For Each Dr As DS.tbl_ykRow In DSET.tbl_yk.Select("") + Me.cmb_gubun.Items.Add(Dr.설명) + Next + '//콤보의 리스트가없는데 0번 지정하려니 오류난거에요 콤보는 여기서 만들어지니.. 이렇게 해야겟죠 + If Me.cmb_gubun.Items.Count > 0 Then Me.cmb_gubun.SelectedIndex = 0 + + + Dim bs_건축부위방식 As New BindingSource(DSET, "tbl_common") + bs_건축부위방식.Filter = "gubun='1067'" + bs_건축부위방식.Sort = "code" + Me.cmb_건축부위방식.DataSource = bs_건축부위방식 + cmb_건축부위방식.DisplayMember = "name" + cmb_건축부위방식.ValueMember = "name" + Me.cmb_건축부위방식.DataBindings.Add("selectedvalue", Me.bs, "건축부위방식") + AddHandler cmb_건축부위방식.KeyDown, AddressOf Cmb_DeleteVal + + + Dim bs_블라인드유무 As New BindingSource(DSET, "tbl_common") + bs_블라인드유무.Filter = "gubun='1032'" + bs_블라인드유무.Sort = "code" + Me.cmb_블라인드설치유무.DataSource = bs_블라인드유무 + cmb_블라인드설치유무.DisplayMember = "name" + cmb_블라인드설치유무.ValueMember = "name" + Me.cmb_블라인드설치유무.DataBindings.Add("selectedvalue", Me.bs, "블라인드유무") + AddHandler cmb_블라인드설치유무.KeyDown, AddressOf Cmb_DeleteVal + + Dim bs_블라인드위치 As New BindingSource(DSET, "tbl_common") + bs_블라인드위치.Filter = "gubun='1068'" + bs_블라인드위치.Sort = "code" + Me.cmb_블라인드위치.DataSource = bs_블라인드위치 + cmb_블라인드위치.DisplayMember = "name" + cmb_블라인드위치.ValueMember = "name" + Me.cmb_블라인드위치.DataBindings.Add("selectedvalue", Me.bs, "블라인드위치") + AddHandler cmb_블라인드위치.KeyDown, AddressOf Cmb_DeleteVal + + Dim bs_방위 As New BindingSource(DSET, "tbl_common") + bs_방위.Filter = "gubun='1007'" + bs_방위.Sort = "code" + Me.cmb_방위.DataSource = bs_방위 + cmb_방위.DisplayMember = "name" + cmb_방위.ValueMember = "name" + Me.cmb_방위.DataBindings.Add("selectedvalue", Me.bs, "방위") + AddHandler cmb_방위.KeyDown, AddressOf Cmb_DeleteVal + + Dim bs_블라인드종류 As New BindingSource(DSET, "tbl_common") + bs_블라인드종류.Filter = "gubun='1069'" + bs_블라인드종류.Sort = "code" + Me.cmb_블라인드종류.DataSource = bs_블라인드종류 + cmb_블라인드종류.DisplayMember = "name" + cmb_블라인드종류.ValueMember = "name" + Me.cmb_블라인드종류.DataBindings.Add("selectedvalue", Me.bs, "블라인드빛종류") + AddHandler cmb_블라인드종류.KeyDown, AddressOf Cmb_DeleteVal + + Dim bs_블라인드색상 As New BindingSource(DSET, "tbl_common") + bs_블라인드색상.Filter = "gubun='1070'" + bs_블라인드색상.Sort = "code" + Me.cmb_블라인드색상.DataSource = bs_블라인드색상 + cmb_블라인드색상.DisplayMember = "name" + cmb_블라인드색상.ValueMember = "name" + Me.cmb_블라인드색상.DataBindings.Add("selectedvalue", Me.bs, "블라인드색상") + AddHandler cmb_블라인드색상.KeyDown, AddressOf Cmb_DeleteVal + + + Dim bs_블라인드각도 As New BindingSource(DSET, "tbl_common") + bs_블라인드각도.Filter = "gubun='1071'" + bs_블라인드각도.Sort = "code" + Me.cmb_블라인드각도.DataSource = bs_블라인드각도 + cmb_블라인드각도.DisplayMember = "name" + cmb_블라인드각도.ValueMember = "name" + Me.cmb_블라인드각도.DataBindings.Add("selectedvalue", Me.bs, "블라인드각도") + AddHandler cmb_블라인드각도.KeyDown, AddressOf Cmb_DeleteVal + + + Dim bs_존분류 As New BindingSource(DSET, "tbl_zone") + bs_존분류.Sort = "code" + Me.cmb_존분류.DataSource = bs_존분류 + cmb_존분류.DisplayMember = "설명" + cmb_존분류.ValueMember = "code" + Me.cmb_존분류.DataBindings.Add("selectedvalue", Me.bs, "존분류") + AddHandler cmb_존분류.KeyDown, AddressOf Cmb_DeleteVal + + Dim bs_대차존 As New BindingSource(DSET, "tbl_zone") + bs_대차존.Sort = "code" + Me.cmb_대차존.DataSource = bs_대차존 + cmb_대차존.DisplayMember = "설명" + cmb_대차존.ValueMember = "code" + Me.cmb_대차존.DataBindings.Add("selectedvalue", Me.bs, "대차대조존") + AddHandler cmb_대차존.KeyDown, AddressOf Cmb_DeleteVal + '//존연결해야한다. + + '//여긴괜찮아요 보이는게아네요 + Dim bs_열관류율2 As New BindingSource(DSET, "tbl_yk") + bs_열관류율2.Sort = "code" + Me.cmb_열관류율.DataSource = bs_열관류율2 + cmb_열관류율.DisplayMember = "설명" + cmb_열관류율.ValueMember = "code" + Me.cmb_열관류율.DataBindings.Add("selectedvalue", Me.bs, "열관류율2") + AddHandler cmb_열관류율.KeyDown, AddressOf Cmb_DeleteVal + + End Sub + + +#End Region + + ''' + ''' 콤보박스등에의한 개체의 활성화여부를 확인 + ''' + ''' + Private Sub Validate_Control() + If Not Init Then Return + If Me.isCopy Then Return + + Try + If Me.cmb_블라인드설치유무.Text = "유" Then + Me.cmb_블라인드위치.Enabled = True + Me.cmb_블라인드각도.Enabled = True + Me.cmb_블라인드색상.Enabled = True + Me.cmb_블라인드종류.Enabled = True + Else + Me.cmb_블라인드위치.Enabled = False + Me.cmb_블라인드각도.Enabled = False + Me.cmb_블라인드색상.Enabled = False + Me.cmb_블라인드종류.Enabled = False + End If + Me.bs.EndEdit() + Catch ex As Exception + Me.cmb_블라인드설치유무.SelectedIndex = 1 + End Try + + Try + If Me.cmb_열관류율.Text = "(없음)" OrElse Me.cmb_열관류율.Text = "" Then + Me.tb_03.Enabled = True + Me.cmb_건축부위방식.Enabled = True + Else + Me.tb_03.Enabled = False + Me.cmb_건축부위방식.Enabled = False + End If + Catch ex As Exception + + End Try + + Try + If Me.cmb_건축부위방식.Text = "내벽" OrElse Me.cmb_건축부위방식.Text = "간벽" Then + 'Me.cmb_방위.Text = "(없음)" '=========================2011.05.25 수정 + Me.cmb_방위.Enabled = False + Else + Me.cmb_방위.Enabled = True + End If + bs.EndEdit() + Catch ex As Exception + + End Try + + Try + If Me.cmb_건축부위방식.Text = "외부창" OrElse Me.cmb_건축부위방식.Text = "내부창" Then + Me.tb_04.Enabled = True + Me.tb_05.Enabled = True + Me.tb_06.Enabled = True + Else + Me.tb_04.Enabled = False + Me.tb_05.Enabled = False + Me.tb_06.Enabled = False + End If + Catch ex As Exception + + End Try + + Display_info() + + Try + If Me.cmb_건축부위방식.Text = "외부창" OrElse Me.cmb_건축부위방식.Text = "내부창" Then + Me.GroupBox3.Enabled = True + Me.GroupBox4.Enabled = True + Else + Me.GroupBox3.Enabled = False + Me.GroupBox4.Enabled = False + End If + Catch ex As Exception + + End Try + + + End Sub + Private Sub Display_info() + Dim WallArea As Decimal, WindowArea As Decimal + WallArea = 0 + WindowArea = 0 + Try + For Each Dr입력면 As DS.tbl_myounRow In DSET.tbl_myoun.Select("건축부위방식='외벽' or 건축부위방식 ='외부창'") + If Dr입력면.건축부위방식 = "외벽" Then + If Dr입력면.방위 <> "수평" AndAlso Dr입력면.방위 <> "일사없음" AndAlso Dr입력면.방위 <> "(없음)" Then + WallArea = WallArea + TOSG(Dr입력면.건축부위면적) + End If + Else + If Dr입력면.방위 <> "수평" AndAlso Dr입력면.방위 <> "일사없음" AndAlso Dr입력면.방위 <> "(없음)" Then + WindowArea = WindowArea + TOSG(Dr입력면.건축부위면적) + End If + End If + Next + 'For Each Dr입력면 As DS.tbl_myounRow In DSET.tbl_myoun.Select("건축부위방식='외부창'") + ' WindowArea = WindowArea + TOSG(Dr입력면.건축부위면적) + 'Next + Catch ex As Exception + + End Try + + lbl_cnt1.Text = TOST(WallArea) & "m2" + lbl_cnt2.Text = TOST(WindowArea) & "m2" + + Dim r As Decimal + Try + r = WindowArea / (WallArea + WindowArea) * 100 + Catch ex As Exception + r = 0 '//게삭과정에 오류가낫다면 0처리합니다. + End Try + If WallArea + WindowArea = 0 Then + lbl_cnt3.Text = "0%" + Else + lbl_cnt3.Text = r.ToString("N1") & "%" '//N1은 소수점 1자리 N0ㄴ소수점 없음 N다음에 숫자가 소수점 자릿수에요 + End If + + End Sub + Private Sub cmb_블라인드설치유무_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmb_블라인드설치유무.SelectedIndexChanged + Validate_Control() + End Sub + + Private Sub cmb_건축부위방식_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles cmb_건축부위방식.KeyDown + If e.KeyCode = Keys.V And e.Control Then + + Me.isCopy = True + + Dim StartPos As Integer = Me.bs.Position '//현재 바인딩셋의 위치정보를 확인 + Dim CurPos As Integer = StartPos + + e.Handled = True + e.SuppressKeyPress = False + '//클립보드붙여넣기 + Dim CB() As String = My.Computer.Clipboard.GetText.Split(CChar(vbCrLf)) + If CB.GetUpperBound(0) <> 18 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() '//한줄추가 + + Dim Cnt As Short = 0 + For i As Integer = 0 To CB.GetUpperBound(0) + Select Case i + Case 0 '//설명 + CType(Me.bs.Current, DataRowView)("설명") = CB(i).Split(CChar(vbTab))(ii).Trim + Case 0 + 3 '//사용프로필 앞에 두개를 숫자4자로변환 + If CB(i).Split(CChar(vbTab))(ii).Trim = "" Then + Me.cmb_건축부위방식.SelectedIndex = 0 + Else + Me.cmb_건축부위방식.Text = CB(i).Split(CChar(vbTab))(ii).Trim + End If + + ' Me.cmb_건축부위방식.Text = CStr(IIf(CB(i).Trim = "", "0", CB(i).Trim)) + Case 1 + 3 '//공란 + If CB(i).Split(CChar(vbTab))(ii).Trim = "" Then + Me.cmb_방위.SelectedIndex = 0 + Else + Me.cmb_방위.Text = CB(i).Split(CChar(vbTab))(ii).Trim + End If + + 'Me.cmb_방위.Text = CStr(IIf(CB(i).Trim = "", "0", CB(i).Trim)) + Case 2 + 3 '//면적 + Me.tb_02.Text = CB(i).Split(CChar(vbTab))(ii).Trim + Case 3 + 3 + Me.cmb_열관류율.SelectedIndex = 0 '//사용자입력이므로 사용안함으로 변경 + Me.tb_03.Text = CB(i).Split(CChar(vbTab))(ii).Trim + Case 4 + 3 + Me.tb_04.Text = CB(i).Split(CChar(vbTab))(ii).Trim + Case 5 + 3 + Me.tb_05.Text = Val(CB(i).Split(CChar(vbTab))(ii).Trim).ToString + Case 6 + 3 + Me.tb_06.Text = Val(CB(i).Split(CChar(vbTab))(ii).Trim).ToString + Case 7 + 3 + If CB(i).Split(CChar(vbTab))(ii).Trim = "" Then + Me.cmb_블라인드설치유무.SelectedIndex = 0 + Else + Me.cmb_블라인드설치유무.Text = CB(i).Split(CChar(vbTab))(ii).Trim + End If + + 'Me.cmb_블라인드설치유무.Text = CStr(IIf(CB(i).Trim = "", "0", CB(i).Trim)) + Case 8 + 3 + If CB(i).Split(CChar(vbTab))(ii).Trim = "" Then + Me.cmb_블라인드위치.SelectedIndex = 0 + Else + Me.cmb_블라인드위치.Text = CB(i).Split(CChar(vbTab))(ii).Trim + End If + + 'Me.cmb_블라인드위치.Text = CStr(IIf(CB(i).Trim = "", "0", CB(i).Trim)) + Case 9 + 3 + If CB(i).Split(CChar(vbTab))(ii).Trim = "" Then + Me.cmb_블라인드각도.SelectedIndex = 0 + Else + Me.cmb_블라인드각도.Text = CB(i).Split(CChar(vbTab))(ii).Trim + End If + + 'Me.cmb_블라인드각도.Text = CStr(IIf(CB(i).Trim = "", "0", CB(i).Trim)) + Case 10 + 3 + If CB(i).Split(CChar(vbTab))(ii).Trim = "" Then + Me.cmb_블라인드종류.SelectedIndex = 0 + Else + Me.cmb_블라인드종류.Text = CB(i).Split(CChar(vbTab))(ii).Trim + + End If + ' Me.cmb_블라인드종류.Text = CStr(IIf(CB(i).Trim = "", "0", CB(i).Trim)) + Case 11 + 3 + If CB(i).Split(CChar(vbTab))(ii).Trim = "" Then + Me.cmb_블라인드색상.SelectedIndex = 0 + Else + Me.cmb_블라인드색상.Text = CB(i).Split(CChar(vbTab))(ii).Trim + End If + 'Me.cmb_블라인드색상.Text = CStr(IIf(CB(i).Trim = "", "0", CB(i).Trim)) + Case 12 + 3 + Case 13 + 3 + If CB(i).Split(CChar(vbTab))(ii).Trim = "" Then + Me.cmb_존분류.SelectedIndex = 0 + Else + Me.cmb_존분류.Text = CB(i).Split(CChar(vbTab))(ii).Trim + End If + ' Me.cmb_존분류.Text = CStr(IIf(CB(i).Trim = "", "0", CB(i).Trim)) + Case 14 + 3 + If CB(i).Split(CChar(vbTab))(ii).Trim = "" Then + Me.cmb_대차존.SelectedIndex = 0 + Else + Me.cmb_대차존.Text = CB(i).Split(CChar(vbTab))(ii).Trim + End If + ' Me.cmb_대차존.Text = CStr(IIf(CB(i).Trim = "", "0", CB(i).Trim)) + End Select + Next + Next + Me.bs.EndEdit() + Me.isCopy = False + Me.Validate_Control() + End If + + End Sub + + Private Sub bs_CurrentChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bs.CurrentChanged + If Not Init Then Return + Me.bs.EndEdit() + + 'If Me.cmb_방위.Enabled = False Then Me.rad0.Checked = True '======================2011.05.25 수정 + End Sub + + Private Sub ToolStripButton49_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) + If e.Button = Windows.Forms.MouseButtons.Right Then + If MsgBox("전체삭제를 하시겠습니까?", MsgBoxStyle.Information Or MsgBoxStyle.OkCancel, "확인") = MsgBoxResult.Ok Then + Dim dR() As DataRow = DSET.tbl_myoun.Select(Me.bs.Filter, "") + For i As Integer = dR.GetUpperBound(0) To 0 Step -1 + dR(i).Delete() + Next + DSET.tbl_myoun.AcceptChanges() + End If + End If + End Sub + + 'Private Sub ToolStripComboBox1_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles cmb_gubun.SelectedIndexChanged + ' If Me.cmb_gubun.Text = "전체" Then + ' bs.Filter = "code <> '0'" + ' Else + ' bs.Filter = "code <> '0' and 건축부위방식 like '" & Me.cmb_gubun.Text & "%'" + ' End If + 'End Sub + + Private Sub cmb_건축부위방식_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmb_건축부위방식.SelectedIndexChanged + Validate_Control() + End Sub + + Private Sub bt_Del_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles bt_Del.MouseDown + If e.Button = Windows.Forms.MouseButtons.Right Then + If MsgBox("전체삭제를 하시겠습니까?", MsgBoxStyle.Information Or MsgBoxStyle.OkCancel, "확인") = MsgBoxResult.Ok Then + Dim dR() As DataRow = DSET.tbl_myoun.Select(Me.bs.Filter, "") + For i As Integer = dR.GetUpperBound(0) To 0 Step -1 + dR(i).Delete() + Next + + DSET.tbl_myoun.AcceptChanges() + End If + End If + End Sub + + Private Sub dv_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles dv.MouseUp + If Prj.UserAuthType = "ADMIN" OrElse Prj.UserAuthType = "BOTH" OrElse Prj.UserAuthType = "BOTH2" OrElse Prj.UserAuthType = "BOTH1" Then '//2011.03.08 추가 + If e.Button = Windows.Forms.MouseButtons.Right Then + + Dim Frm_FilterA As New Frm_Filter + + Frm_FilterA.ColumTitle = getColCaption(Me.Dt) + Frm_FilterA.ColumList = getColName(Me.Dt) + Frm_FilterA.Colorlist = "존분류,대차대조존" + Frm_FilterA.Numfield = "건축부위면적,열관류율,투과율" '//20100618 Color 리스트처럼 , 구분해서 필드들을 모두 넣으세요.(=, >= 등을 사용하기 위해서는 해당 항목을 추가 요망) + Frm_FilterA.Default_Filter = "code <> '0'" + '//Frm_Filter.Default_Filter = "존분류='" & Me.SelectedZone & "' and code <> '0'" + + 'Me.FilterMode = False + MsgBox("화면필터값은 적용이 되지않습니다" & vbCrLf & "바꾸기 기능만 사용가능", MsgBoxStyle.Information, "확인") + If Frm_FilterA.ShowDialog <> Windows.Forms.DialogResult.OK Then Return '//창떳을떄 확인아ㅣ고 취소눌르면 다음을 수행하지않는다는거에요. + 'Me.FilterMode = True + Dim Filter As String = Frm_FilterA.tb_filter.Text '//값은 아까 그 텍박에 잇구요. + Try + 'Me.bs.Filter = Filter + '//바꾸기값이 있으면 변경 20100618 + If Frm_FilterA.cmb_fieldc.SelectedIndex >= 0 AndAlso Frm_FilterA.cmb_fieldc.Text.ToLower <> "code" AndAlso _ + Frm_FilterA.tb_valuec.Text <> "" Then + Dim Drow() As DataRow = Me.Dt.Select(Filter) + Dim i As Integer = 0 + For Each Dr As DataRow In Drow + Dr(Frm_FilterA.cmb_fieldc.Text) = Frm_FilterA.tb_valuec.Text + i += 1 + Next + MsgBox("'" & i & "'개 바꾸기 완료", MsgBoxStyle.Information, "확인") + End If + + Catch ex As Exception + 'Me.bs.Filter = "" + End Try + End If + End If + End Sub + Private Sub dv_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles dv.KeyDown + '//여기보시면 alt+d 누르면 한줄을 경고없이(falsE)삭제하도록 햇어요.. 사실원래 밋alt +d 인데.. ㅎㅎ 잘못해서 ctrl 됫다는 + If Prj.UserAuthType = "ADMIN" OrElse Prj.UserAuthType = "BOTH" OrElse Prj.UserAuthType = "BOTH2" OrElse Prj.UserAuthType = "BOTH1" Then '//2011.03.08 추가 + Select Case e.KeyCode + Case Keys.D + If e.Alt Then + Dbbase.DelCrow(Me.bs, False) + End If + Case Keys.C + If e.Control Then + Me.SrcDrv = Me.bs.Current + If Me.SrcDrv Is Nothing Then + MsgBox("저장할 ROW가 없습니다", MsgBoxStyle.Information, "확인") + Return + End If + ' My.Computer.Clipboard.SetData("ZDATA", Drv) + End If + Case Keys.V + If e.Control Then + If Me.SrcDrv Is Nothing Then Return + Me.bt_add.PerformClick() '//신규추가 + Dim NewDrv As DataRowView = Me.bs.Current + + For Each C As DataColumn In Me.Dt.Columns + If C.ColumnName.ToUpper = "CODE" Then + ElseIf C.ColumnName.ToUpper = "설명" Then + NewDrv(C.ColumnName) = SrcDrv(C.ColumnName) & "#1" + Else + NewDrv(C.ColumnName) = SrcDrv(C.ColumnName) + End If + Next + Me.bs.EndEdit() + bs.MoveLast() + End If + End Select + End If + End Sub + + Private Sub tb_02_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles tb_02.TextChanged + Display_info() 'Validate_Control() + End Sub + + + Private Sub cmb_열관류율_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmb_열관류율.SelectedIndexChanged + If Me.cmb_열관류율.SelectedIndex > 0 Then + ' Me.tb_03.Text = "" + Me.tb_03.Enabled = False + Me.cmb_건축부위방식.Enabled = False + ' MsgBox(Me.cmb_열관류율.SelectedValue) + + Try + Dim Dr As DS.tbl_ykRow = DSET.tbl_yk.Select("code='" & Me.cmb_열관류율.SelectedValue & "'")(0) + ' Dim dr2() As DS.tbl_commonRow = DSET.tbl_common.Select("gubun='1088' and code='" & Dr("면형태").ToString & "'") + ' Dim 면형태 As String = dr2(0).name + Me.MyTb1.Text = Dr("열관류율").ToString + ' Select Case 면형태 + ' Case "외벽(벽체)" + ' Me.cmb_건축부위방식.Text = "외벽" + ' 'Me.tb_04.Text = "0" + ' Case "외벽(지붕)" + ' Me.cmb_건축부위방식.Text = "외벽" + ' 'Me.cmb_방위.Text = "수평" + ' 'Me.tb_04.Text = "0" + ' Case "외벽(바닥)" + ' Me.cmb_건축부위방식.Text = "외벽" + ' 'Me.cmb_방위.Text = "일사없음" + ' 'Me.tb_04.Text = "0" + ' Case "내벽(벽체)" + ' Me.cmb_건축부위방식.Text = "내벽" + ' 'Me.cmb_방위.Text = "일사없음" + ' 'Me.tb_04.Text = "0" + ' Case "내벽(지붕)" + ' Me.cmb_건축부위방식.Text = "내벽" + ' 'Me.cmb_방위.Text = "일사없음" + ' 'Me.tb_04.Text = "0" + ' Case "내벽(바닥)" + ' Me.cmb_건축부위방식.Text = "내벽" + ' 'Me.cmb_방위.Text = "일사없음" + ' 'Me.tb_04.Text = "0" + ' Case "간벽" + ' Me.cmb_건축부위방식.Text = "간벽" + ' 'Me.cmb_방위.Text = "일사없음" + ' 'Me.tb_04.Text = "0" + ' Case "외부창", "내부창" + ' If 면형태 = "외부창" Then + ' Me.cmb_건축부위방식.Text = "외부창" + ' Else + ' Me.cmb_건축부위방식.Text = "내부창" + ' 'Me.cmb_방위.Text = "일사없음" + ' End If + ' 'Me.tb_04.Text = Dr("일사에너지투과율").ToString + ' Case Else + ' MsgBox("모르는값 " & Dr("면형태").ToString & "/" & 면형태) + ' End Select + Catch ex As Exception + Me.MyTb1.Text = ex.Message.ToString + End Try + + ElseIf Me.cmb_열관류율.SelectedIndex = -1 Then + Me.cmb_열관류율.SelectedIndex = 0 '//ㅣ본없음으로 + Me.tb_03.Enabled = True + 'Me.tb_03.Focus() + Me.MyTb1.Text = "" + Me.cmb_건축부위방식.Enabled = True + Else + Me.tb_03.Enabled = True + 'Me.tb_03.Focus() + Me.MyTb1.Text = "" + Me.cmb_건축부위방식.Enabled = True + End If + End Sub + + Private Sub bszone_CurrentChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bszone.CurrentChanged + 'If Me.FilterMode Then + ' Me.FilterMode = False + ' MsgBox("필터적용상태가 해제되었습니다", MsgBoxStyle.Information, "확인") + 'End If + Dim drv As DataRowView = Me.bszone.Current + If drv Is Nothing Then + Me.SelectedZone = "" + Me.SelectedZoneName = "" + Else + Me.SelectedZone = drv("code").ToString + Me.SelectedZoneName = drv("설명").ToString + End If + Dim Filter As String + 'Me.FilterMode = False + Filter = "존분류='" & SelectedZone & "' and code <> '0'" + Try + Me.bs.Filter = Filter + Catch ex As Exception + Me.bs.Filter = "code <> '0'" + End Try + + End Sub + + + Private Sub RadioButton2_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles rad1.CheckedChanged, rad2.CheckedChanged, rad3.CheckedChanged, _ + rad4.CheckedChanged, rad5.CheckedChanged, rad6.CheckedChanged, rad7.CheckedChanged, rad8.CheckedChanged, rad9.CheckedChanged, rad10.CheckedChanged, rad0.CheckedChanged + Dim Drv As DataRowView = Me.bs.Current + If Drv Is Nothing Then Return + '//콤보박스으 실제값하고 비교하셔서 이름 바꾸시구요. + If rad1.Checked Then Me.cmb_방위.Text = "북서" + If rad2.Checked Then Me.cmb_방위.Text = "서" + If rad3.Checked Then Me.cmb_방위.Text = "남서" + If rad4.Checked Then Me.cmb_방위.Text = "남" + If rad5.Checked Then Me.cmb_방위.Text = "남동" + If rad6.Checked Then Me.cmb_방위.Text = "동" + If rad7.Checked Then Me.cmb_방위.Text = "북동" + If rad8.Checked Then Me.cmb_방위.Text = "북" + If rad9.Checked Then Me.cmb_방위.Text = "수평" + If rad10.Checked Then Me.cmb_방위.Text = "일사없음" + If rad0.Checked Then Me.cmb_방위.Text = "(없음)" + + Me.bs.EndEdit() + Me.Dt.AcceptChanges() + '//여기까지 라디오를 건들면 콤보가 움직이는게 됬구요.. + + + End Sub + + Private Sub cmb_방위_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmb_방위.SelectedIndexChanged + '//콤보의 값에따라서 라디오를 변경? + Select Case Me.cmb_방위.Text + Case "(없음)", "" + Me.rad0.Checked = True + Case "북서" + Me.rad1.Checked = True + Case "서" + Me.rad2.Checked = True + Case "남서" + Me.rad3.Checked = True + Case "남" + Me.rad4.Checked = True + Case "남동" + Me.rad5.Checked = True + Case "동" + Me.rad6.Checked = True + Case "북동" + Me.rad7.Checked = True + Case "북" + Me.rad8.Checked = True + Case "수평" + Me.rad9.Checked = True + Case "일사없음" + Me.rad10.Checked = True + End Select + End Sub + + Private Sub cmb_존분류_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmb_존분류.SelectedIndexChanged + + Me.bs.EndEdit() + End Sub + + Private Sub dv_CellContentClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles dv.CellContentClick + + End Sub + + Private Sub Arindv1_CellContentClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles Arindv1.CellContentClick + + End Sub +End Class \ No newline at end of file diff --git a/ArinWarev1/Forms/v20091231/Frm_v20091231_NaengBang.Designer.vb b/ArinWarev1/Forms/v20091231/Frm_v20091231_NaengBang.Designer.vb new file mode 100644 index 0000000..b7726f8 --- /dev/null +++ b/ArinWarev1/Forms/v20091231/Frm_v20091231_NaengBang.Designer.vb @@ -0,0 +1,957 @@ + _ +Partial Class Frm_V20091231_Naengbang + Inherits MMM.FaderForm + + 'Form은 Dispose를 재정의하여 구성 요소 목록을 정리합니다. + _ + Protected Overrides Sub Dispose(ByVal disposing As Boolean) + Try + If disposing AndAlso components IsNot Nothing Then + components.Dispose() + End If + Finally + MyBase.Dispose(disposing) + End Try + End Sub + + 'Windows Form 디자이너에 필요합니다. + Private components As System.ComponentModel.IContainer + + '참고: 다음 프로시저는 Windows Form 디자이너에 필요합니다. + '수정하려면 Windows Form 디자이너를 사용하십시오. + '코드 편집기를 사용하여 수정하지 마십시오. + _ + Private Sub InitializeComponent() + Me.components = New System.ComponentModel.Container + Dim Label215 As System.Windows.Forms.Label + Dim Label216 As System.Windows.Forms.Label + Dim Label1 As System.Windows.Forms.Label + Dim Label2 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 Label8 As System.Windows.Forms.Label + Dim 냉동기종류Label 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 resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(Frm_V20091231_Naengbang)) + Me.GroupBox18 = New System.Windows.Forms.GroupBox + Me.Label17 = New System.Windows.Forms.Label + Me.cmb_신재생 = New Eco2Ar.MyCmb + Me.신재생연결여부ComboBox1 = New Eco2Ar.MyCmb + Me.tb_zone_cnt = New System.Windows.Forms.TextBox + Me.Label47 = New System.Windows.Forms.Label + Me.PictureBox2 = New System.Windows.Forms.PictureBox + Me.bs = New System.Windows.Forms.BindingSource(Me.components) + Me.DS = New Eco2Ar.DS + Me.GroupBox11 = New System.Windows.Forms.GroupBox + Me.Label9 = New System.Windows.Forms.Label + Me.열성능비NTb = New Eco2Ar.MyTb + Me.냉동기용량NTb = New Eco2Ar.MyTb + Me.냉동기방식ComboBox = New Eco2Ar.MyCmb + Me.PictureBox1 = New System.Windows.Forms.PictureBox + Me.Label214 = New System.Windows.Forms.Label + Me.GroupBox19 = New System.Windows.Forms.GroupBox + Me.cmb_열생산연결방식 = New Eco2Ar.MyCmb + Me.cmb_사용연료 = New Eco2Ar.MyCmb + Me.온수열생산기기ComboBox = New Eco2Ar.MyCmb + Me.Label213 = New System.Windows.Forms.Label + Me.Label212 = New System.Windows.Forms.Label + Me.Label210 = New System.Windows.Forms.Label + Me.압축기제어방식ComboBox = New Eco2Ar.MyCmb + Me.냉동기압축방식ComboBox = New Eco2Ar.MyCmb + Me.냉동기종류ComboBox = New Eco2Ar.MyCmb + Me.냉동기설비시스템ComboBox = New Eco2Ar.MyCmb + Me.제어방식ComboBox = New Eco2Ar.MyCmb + Me.PictureBox3 = New System.Windows.Forms.PictureBox + Me.재냉각기GroupBox = New System.Windows.Forms.GroupBox + Me.증발식건식냉각기ComboBox = New Eco2Ar.MyCmb + Me.증발식냉각기ComboBox = New Eco2Ar.MyCmb + Me.보조방음기유무ComboBox = New Eco2Ar.MyCmb + Me.냉각수토출온도NTb = New Eco2Ar.MyTb + Me.Label18 = New System.Windows.Forms.Label + Me.PictureBox5 = New System.Windows.Forms.PictureBox + Me.SplitContainer1 = New System.Windows.Forms.SplitContainer + Me.dv = New CEnergy.arindv + Me.DataGridViewTextBoxColumn1 = New System.Windows.Forms.DataGridViewTextBoxColumn + 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 + Me.bt_Del = New System.Windows.Forms.ToolStripButton + Me.bt_cancel = New System.Windows.Forms.ToolStripButton + Me.ToolStripSeparator1 = New System.Windows.Forms.ToolStripSeparator + Me.lbl_pos = New System.Windows.Forms.ToolStripLabel + Me.Label16 = New System.Windows.Forms.Label + Me.PictureBox4 = New System.Windows.Forms.PictureBox + Label215 = New System.Windows.Forms.Label + Label216 = New System.Windows.Forms.Label + Label1 = New System.Windows.Forms.Label + Label2 = 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 + Label8 = New System.Windows.Forms.Label + 냉동기종류Label = 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 + CType(Me.ErrProvider, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.bsmain, System.ComponentModel.ISupportInitialize).BeginInit() + Me.GroupBox18.SuspendLayout() + CType(Me.PictureBox2, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.bs, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.DS, System.ComponentModel.ISupportInitialize).BeginInit() + Me.GroupBox11.SuspendLayout() + CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit() + Me.GroupBox19.SuspendLayout() + CType(Me.PictureBox3, System.ComponentModel.ISupportInitialize).BeginInit() + Me.재냉각기GroupBox.SuspendLayout() + CType(Me.PictureBox5, System.ComponentModel.ISupportInitialize).BeginInit() + Me.SplitContainer1.Panel1.SuspendLayout() + Me.SplitContainer1.Panel2.SuspendLayout() + Me.SplitContainer1.SuspendLayout() + CType(Me.dv, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.bn, System.ComponentModel.ISupportInitialize).BeginInit() + Me.bn.SuspendLayout() + CType(Me.PictureBox4, System.ComponentModel.ISupportInitialize).BeginInit() + Me.SuspendLayout() + ' + 'Label215 + ' + Label215.AutoSize = True + Label215.BackColor = System.Drawing.Color.FromArgb(CType(CType(219, Byte), Integer), CType(CType(221, Byte), Integer), CType(CType(223, Byte), Integer)) + Label215.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label215.Location = New System.Drawing.Point(6, 33) + Label215.Name = "Label215" + Label215.Size = New System.Drawing.Size(134, 14) + Label215.TabIndex = 0 + Label215.Text = "-신재생 시스템 연결 여부:" + ' + 'Label216 + ' + Label216.AutoSize = True + Label216.BackColor = System.Drawing.Color.FromArgb(CType(CType(219, Byte), Integer), CType(CType(221, Byte), Integer), CType(CType(223, Byte), Integer)) + Label216.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label216.Location = New System.Drawing.Point(6, 57) + Label216.Name = "Label216" + Label216.Size = New System.Drawing.Size(84, 14) + Label216.TabIndex = 2 + Label216.Text = "-연결된 시스템:" + ' + 'Label1 + ' + 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(8, 32) + Label1.Name = "Label1" + Label1.Size = New System.Drawing.Size(69, 14) + Label1.TabIndex = 0 + Label1.Text = "냉동기 방식:" + ' + 'Label2 + ' + Label2.AutoSize = True + Label2.BackColor = System.Drawing.Color.FromArgb(CType(CType(219, Byte), Integer), CType(CType(221, Byte), Integer), CType(CType(223, Byte), Integer)) + Label2.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label2.Location = New System.Drawing.Point(8, 56) + Label2.Name = "Label2" + Label2.Size = New System.Drawing.Size(97, 14) + Label2.TabIndex = 2 + Label2.Text = "냉동기 용량[kW]:" + ' + 'Label3 + ' + Label3.AutoSize = True + Label3.BackColor = System.Drawing.Color.FromArgb(CType(CType(219, Byte), Integer), CType(CType(221, Byte), Integer), CType(CType(223, Byte), Integer)) + Label3.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label3.Location = New System.Drawing.Point(8, 77) + Label3.Name = "Label3" + Label3.Size = New System.Drawing.Size(182, 14) + Label3.TabIndex = 4 + Label3.Text = "정격냉열성능지수; 열성능비(COP):" + ' + 'Label4 + ' + Label4.AutoSize = True + Label4.BackColor = System.Drawing.Color.FromArgb(CType(CType(243, Byte), Integer), CType(CType(244, Byte), Integer), CType(CType(246, Byte), Integer)) + Label4.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label4.Location = New System.Drawing.Point(7, 302) + Label4.Name = "Label4" + Label4.Size = New System.Drawing.Size(76, 14) + Label4.TabIndex = 159 + Label4.Text = "2. 열생산기기" + ' + 'Label5 + ' + 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, 114) + Label5.Name = "Label5" + Label5.Size = New System.Drawing.Size(162, 14) + Label5.TabIndex = 150 + Label5.Text = "왕복동/스크롤압축기 제어방식:" + ' + 'Label6 + ' + 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, 92) + Label6.Name = "Label6" + Label6.Size = New System.Drawing.Size(91, 14) + Label6.TabIndex = 148 + Label6.Text = "냉동기 압축방식:" + ' + 'Label7 + ' + 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, 170) + Label7.Name = "Label7" + Label7.Size = New System.Drawing.Size(102, 14) + Label7.TabIndex = 152 + Label7.Text = "냉동기 설비시스템:" + ' + 'Label8 + ' + Label8.AutoSize = True + Label8.BackColor = System.Drawing.Color.FromArgb(CType(CType(243, Byte), Integer), CType(CType(244, Byte), Integer), CType(CType(246, Byte), Integer)) + Label8.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label8.Location = New System.Drawing.Point(7, 195) + Label8.Name = "Label8" + Label8.Size = New System.Drawing.Size(55, 14) + Label8.TabIndex = 154 + Label8.Text = "제어방식:" + ' + '냉동기종류Label + ' + 냉동기종류Label.AutoSize = True + 냉동기종류Label.BackColor = System.Drawing.Color.FromArgb(CType(CType(243, Byte), Integer), CType(CType(244, Byte), Integer), CType(CType(246, Byte), Integer)) + 냉동기종류Label.ForeColor = System.Drawing.SystemColors.ControlDarkDark + 냉동기종류Label.Location = New System.Drawing.Point(6, 40) + 냉동기종류Label.Name = "냉동기종류Label" + 냉동기종류Label.Size = New System.Drawing.Size(116, 14) + 냉동기종류Label.TabIndex = 146 + 냉동기종류Label.Text = "＊압축식 냉동기 종류:" + ' + 'Label10 + ' + Label10.AutoSize = True + Label10.BackColor = System.Drawing.Color.FromArgb(CType(CType(243, Byte), Integer), CType(CType(244, Byte), Integer), CType(CType(246, Byte), Integer)) + Label10.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label10.Location = New System.Drawing.Point(6, 39) + Label10.Name = "Label10" + Label10.Size = New System.Drawing.Size(127, 14) + Label10.TabIndex = 22 + Label10.Text = "증발식 또는 건식냉각기:" + ' + 'Label11 + ' + Label11.AutoSize = True + Label11.BackColor = System.Drawing.Color.FromArgb(CType(CType(243, Byte), Integer), CType(CType(244, Byte), Integer), CType(CType(246, Byte), Integer)) + Label11.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label11.Location = New System.Drawing.Point(6, 112) + Label11.Name = "Label11" + Label11.Size = New System.Drawing.Size(112, 14) + Label11.TabIndex = 28 + Label11.Text = "냉각탑 출구 온도[C]:" + ' + 'Label12 + ' + Label12.AutoSize = True + Label12.BackColor = System.Drawing.Color.FromArgb(CType(CType(243, Byte), Integer), CType(CType(244, Byte), Integer), CType(CType(246, Byte), Integer)) + Label12.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label12.Location = New System.Drawing.Point(6, 87) + Label12.Name = "Label12" + Label12.Size = New System.Drawing.Size(149, 14) + Label12.TabIndex = 26 + Label12.Text = "재냉각기의 보조방음기 유무:" + ' + 'Label13 + ' + Label13.AutoSize = True + Label13.BackColor = System.Drawing.Color.FromArgb(CType(CType(243, Byte), Integer), CType(CType(244, Byte), Integer), CType(CType(246, Byte), Integer)) + Label13.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label13.Location = New System.Drawing.Point(6, 63) + Label13.Name = "Label13" + Label13.Size = New System.Drawing.Size(180, 14) + Label13.TabIndex = 24 + Label13.Text = "증발식냉각기(폐쇄형,개방형 순환):" + ' + 'Label14 + ' + Label14.AutoSize = True + Label14.BackColor = System.Drawing.Color.FromArgb(CType(CType(243, Byte), Integer), CType(CType(244, Byte), Integer), CType(CType(246, Byte), Integer)) + Label14.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label14.Location = New System.Drawing.Point(7, 276) + Label14.Name = "Label14" + Label14.Size = New System.Drawing.Size(65, 14) + Label14.TabIndex = 163 + Label14.Text = "1. 사용연료" + ' + 'Label15 + ' + Label15.AutoSize = True + Label15.BackColor = System.Drawing.Color.FromArgb(CType(CType(243, Byte), Integer), CType(CType(244, Byte), Integer), CType(CType(246, Byte), Integer)) + Label15.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label15.Location = New System.Drawing.Point(7, 250) + Label15.Name = "Label15" + Label15.Size = New System.Drawing.Size(101, 14) + Label15.TabIndex = 165 + Label15.Text = "0. 열생산 연결방식" + ' + 'GroupBox18 + ' + Me.GroupBox18.BackColor = System.Drawing.Color.White + Me.GroupBox18.Controls.Add(Me.Label17) + Me.GroupBox18.Controls.Add(Me.cmb_신재생) + Me.GroupBox18.Controls.Add(Me.신재생연결여부ComboBox1) + Me.GroupBox18.Controls.Add(Label216) + Me.GroupBox18.Controls.Add(Label215) + Me.GroupBox18.Controls.Add(Me.tb_zone_cnt) + Me.GroupBox18.Controls.Add(Me.Label47) + Me.GroupBox18.Controls.Add(Me.PictureBox2) + Me.GroupBox18.Location = New System.Drawing.Point(297, 41) + Me.GroupBox18.Name = "GroupBox18" + Me.GroupBox18.Size = New System.Drawing.Size(275, 102) + Me.GroupBox18.TabIndex = 1 + Me.GroupBox18.TabStop = False + ' + 'Label17 + ' + Me.Label17.AutoSize = True + Me.Label17.BackColor = System.Drawing.Color.FromArgb(CType(CType(219, Byte), Integer), CType(CType(221, Byte), Integer), CType(CType(223, Byte), Integer)) + Me.Label17.Location = New System.Drawing.Point(2, 13) + Me.Label17.Name = "Label17" + Me.Label17.Size = New System.Drawing.Size(186, 14) + Me.Label17.TabIndex = 170 + Me.Label17.Text = "[신재생 및 열병합 시스템 연결 여부]" + ' + 'cmb_신재생 + ' + Me.cmb_신재생.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList + Me.cmb_신재생.FormattingEnabled = True + Me.cmb_신재생.Location = New System.Drawing.Point(186, 50) + Me.cmb_신재생.Name = "cmb_신재생" + Me.cmb_신재생.NectControl = Nothing + Me.cmb_신재생.Size = New System.Drawing.Size(84, 22) + Me.cmb_신재생.TabIndex = 3 + ' + '신재생연결여부ComboBox1 + ' + Me.신재생연결여부ComboBox1.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList + Me.신재생연결여부ComboBox1.FormattingEnabled = True + Me.신재생연결여부ComboBox1.Location = New System.Drawing.Point(186, 24) + Me.신재생연결여부ComboBox1.Name = "신재생연결여부ComboBox1" + Me.신재생연결여부ComboBox1.NectControl = Nothing + Me.신재생연결여부ComboBox1.Size = New System.Drawing.Size(84, 22) + Me.신재생연결여부ComboBox1.TabIndex = 1 + ' + 'tb_zone_cnt + ' + 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(186, 75) + Me.tb_zone_cnt.Name = "tb_zone_cnt" + Me.tb_zone_cnt.Size = New System.Drawing.Size(84, 21) + Me.tb_zone_cnt.TabIndex = 1 + Me.tb_zone_cnt.Text = "0" + Me.tb_zone_cnt.TextAlign = System.Windows.Forms.HorizontalAlignment.Center + ' + 'Label47 + ' + Me.Label47.AutoSize = True + Me.Label47.BackColor = System.Drawing.Color.FromArgb(CType(CType(219, Byte), Integer), CType(CType(221, Byte), Integer), CType(CType(223, Byte), Integer)) + Me.Label47.ForeColor = System.Drawing.Color.DarkCyan + Me.Label47.Location = New System.Drawing.Point(6, 78) + Me.Label47.Name = "Label47" + Me.Label47.Size = New System.Drawing.Size(184, 14) + Me.Label47.TabIndex = 0 + Me.Label47.Text = "-냉방생산기기로 적용된 입력존 수 : " + Me.Label47.TextAlign = System.Drawing.ContentAlignment.MiddleRight + ' + 'PictureBox2 + ' + Me.PictureBox2.BackColor = System.Drawing.Color.FromArgb(CType(CType(219, Byte), Integer), CType(CType(221, Byte), Integer), CType(CType(223, Byte), Integer)) + Me.PictureBox2.Location = New System.Drawing.Point(1, 9) + Me.PictureBox2.Name = "PictureBox2" + Me.PictureBox2.Size = New System.Drawing.Size(272, 90) + Me.PictureBox2.TabIndex = 169 + Me.PictureBox2.TabStop = False + ' + 'bs + ' + Me.bs.DataMember = "tbl_nangbangkiki" + Me.bs.DataSource = Me.DS + Me.bs.Filter = "code <> '0'" + ' + 'DS + ' + Me.DS.DataSetName = "DS" + Me.DS.SchemaSerializationMode = System.Data.SchemaSerializationMode.IncludeSchema + ' + 'GroupBox11 + ' + Me.GroupBox11.BackColor = System.Drawing.Color.White + Me.GroupBox11.Controls.Add(Me.Label9) + Me.GroupBox11.Controls.Add(Label1) + Me.GroupBox11.Controls.Add(Me.열성능비NTb) + Me.GroupBox11.Controls.Add(Label2) + Me.GroupBox11.Controls.Add(Me.냉동기용량NTb) + Me.GroupBox11.Controls.Add(Label3) + Me.GroupBox11.Controls.Add(Me.냉동기방식ComboBox) + Me.GroupBox11.Controls.Add(Me.PictureBox1) + Me.GroupBox11.Location = New System.Drawing.Point(6, 41) + Me.GroupBox11.Name = "GroupBox11" + Me.GroupBox11.Size = New System.Drawing.Size(290, 102) + Me.GroupBox11.TabIndex = 0 + Me.GroupBox11.TabStop = False + ' + 'Label9 + ' + Me.Label9.AutoSize = True + Me.Label9.BackColor = System.Drawing.Color.FromArgb(CType(CType(219, Byte), Integer), CType(CType(221, Byte), Integer), CType(CType(223, Byte), Integer)) + Me.Label9.Location = New System.Drawing.Point(6, 13) + Me.Label9.Name = "Label9" + Me.Label9.Size = New System.Drawing.Size(72, 14) + Me.Label9.TabIndex = 170 + Me.Label9.Text = "[일반데이터]" + ' + '열성능비NTb + ' + Me.열성능비NTb.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bs, "열성능비", True)) + Me.열성능비NTb.Location = New System.Drawing.Point(197, 71) + Me.열성능비NTb.Name = "열성능비NTb" + Me.열성능비NTb.NectControl = Nothing + Me.열성능비NTb.Size = New System.Drawing.Size(84, 21) + Me.열성능비NTb.TabIndex = 5 + Me.열성능비NTb.TextAlign = System.Windows.Forms.HorizontalAlignment.Right + Me.열성능비NTb.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + ' + '냉동기용량NTb + ' + Me.냉동기용량NTb.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bs, "냉동기용량", True)) + Me.냉동기용량NTb.Location = New System.Drawing.Point(197, 46) + Me.냉동기용량NTb.Name = "냉동기용량NTb" + Me.냉동기용량NTb.NectControl = Nothing + Me.냉동기용량NTb.Size = New System.Drawing.Size(84, 21) + Me.냉동기용량NTb.TabIndex = 3 + Me.냉동기용량NTb.TextAlign = System.Windows.Forms.HorizontalAlignment.Right + Me.냉동기용량NTb.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + ' + '냉동기방식ComboBox + ' + Me.냉동기방식ComboBox.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList + Me.냉동기방식ComboBox.FormattingEnabled = True + Me.냉동기방식ComboBox.Location = New System.Drawing.Point(197, 20) + Me.냉동기방식ComboBox.Name = "냉동기방식ComboBox" + Me.냉동기방식ComboBox.NectControl = Nothing + Me.냉동기방식ComboBox.Size = New System.Drawing.Size(84, 22) + Me.냉동기방식ComboBox.TabIndex = 1 + ' + 'PictureBox1 + ' + 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(2, 9) + Me.PictureBox1.Name = "PictureBox1" + Me.PictureBox1.Size = New System.Drawing.Size(286, 90) + Me.PictureBox1.TabIndex = 169 + Me.PictureBox1.TabStop = False + ' + 'Label214 + ' + Me.Label214.AutoSize = True + Me.Label214.BackColor = System.Drawing.Color.FromArgb(CType(CType(243, Byte), Integer), CType(CType(244, Byte), Integer), CType(CType(246, Byte), Integer)) + Me.Label214.ForeColor = System.Drawing.Color.Black + Me.Label214.Location = New System.Drawing.Point(11, 226) + Me.Label214.Name = "Label214" + Me.Label214.Size = New System.Drawing.Size(86, 14) + Me.Label214.TabIndex = 161 + Me.Label214.Text = "[흡수식 냉동기]" + ' + 'GroupBox19 + ' + Me.GroupBox19.BackColor = System.Drawing.Color.White + Me.GroupBox19.Controls.Add(Label15) + Me.GroupBox19.Controls.Add(Me.cmb_열생산연결방식) + Me.GroupBox19.Controls.Add(Label14) + Me.GroupBox19.Controls.Add(Me.cmb_사용연료) + Me.GroupBox19.Controls.Add(Label4) + Me.GroupBox19.Controls.Add(Me.Label214) + Me.GroupBox19.Controls.Add(Me.온수열생산기기ComboBox) + Me.GroupBox19.Controls.Add(Me.Label213) + Me.GroupBox19.Controls.Add(Label5) + Me.GroupBox19.Controls.Add(Label6) + Me.GroupBox19.Controls.Add(Me.Label212) + Me.GroupBox19.Controls.Add(Label7) + Me.GroupBox19.Controls.Add(Me.Label210) + Me.GroupBox19.Controls.Add(Me.압축기제어방식ComboBox) + Me.GroupBox19.Controls.Add(Label8) + Me.GroupBox19.Controls.Add(냉동기종류Label) + Me.GroupBox19.Controls.Add(Me.냉동기압축방식ComboBox) + Me.GroupBox19.Controls.Add(Me.냉동기종류ComboBox) + Me.GroupBox19.Controls.Add(Me.냉동기설비시스템ComboBox) + Me.GroupBox19.Controls.Add(Me.제어방식ComboBox) + Me.GroupBox19.Controls.Add(Me.PictureBox3) + Me.GroupBox19.Location = New System.Drawing.Point(6, 146) + Me.GroupBox19.Name = "GroupBox19" + Me.GroupBox19.Size = New System.Drawing.Size(290, 328) + Me.GroupBox19.TabIndex = 0 + Me.GroupBox19.TabStop = False + ' + 'cmb_열생산연결방식 + ' + 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(169, 246) + Me.cmb_열생산연결방식.Name = "cmb_열생산연결방식" + Me.cmb_열생산연결방식.NectControl = Nothing + Me.cmb_열생산연결방식.Size = New System.Drawing.Size(112, 22) + Me.cmb_열생산연결방식.TabIndex = 164 + ' + 'cmb_사용연료 + ' + 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(169, 272) + Me.cmb_사용연료.Name = "cmb_사용연료" + Me.cmb_사용연료.NectControl = Nothing + Me.cmb_사용연료.Size = New System.Drawing.Size(112, 22) + Me.cmb_사용연료.TabIndex = 162 + ' + '온수열생산기기ComboBox + ' + Me.온수열생산기기ComboBox.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList + Me.온수열생산기기ComboBox.FormattingEnabled = True + Me.온수열생산기기ComboBox.Location = New System.Drawing.Point(169, 298) + Me.온수열생산기기ComboBox.Name = "온수열생산기기ComboBox" + Me.온수열생산기기ComboBox.NectControl = Nothing + Me.온수열생산기기ComboBox.Size = New System.Drawing.Size(112, 22) + Me.온수열생산기기ComboBox.TabIndex = 0 + ' + 'Label213 + ' + Me.Label213.AutoSize = True + Me.Label213.BackColor = System.Drawing.Color.FromArgb(CType(CType(243, Byte), Integer), CType(CType(244, Byte), Integer), CType(CType(246, Byte), Integer)) + Me.Label213.ForeColor = System.Drawing.Color.Black + Me.Label213.Location = New System.Drawing.Point(11, 20) + Me.Label213.Name = "Label213" + Me.Label213.Size = New System.Drawing.Size(86, 14) + Me.Label213.TabIndex = 158 + Me.Label213.Text = "[압축식 냉동기]" + ' + 'Label212 + ' + Me.Label212.AutoSize = True + Me.Label212.BackColor = System.Drawing.Color.FromArgb(CType(CType(243, Byte), Integer), CType(CType(244, Byte), Integer), CType(CType(246, Byte), Integer)) + Me.Label212.ForeColor = System.Drawing.Color.DarkCyan + Me.Label212.Location = New System.Drawing.Point(7, 151) + Me.Label212.Name = "Label212" + Me.Label212.Size = New System.Drawing.Size(177, 14) + Me.Label212.TabIndex = 156 + Me.Label212.Text = "실내공조시스템(=공기냉각에어콘)" + Me.Label212.TextAlign = System.Drawing.ContentAlignment.MiddleRight + ' + 'Label210 + ' + Me.Label210.AutoSize = True + Me.Label210.BackColor = System.Drawing.Color.FromArgb(CType(CType(243, Byte), Integer), CType(CType(244, Byte), Integer), CType(CType(246, Byte), Integer)) + Me.Label210.ForeColor = System.Drawing.Color.DarkCyan + Me.Label210.Location = New System.Drawing.Point(7, 70) + Me.Label210.Name = "Label210" + Me.Label210.Size = New System.Drawing.Size(184, 14) + Me.Label210.TabIndex = 157 + Me.Label210.Text = "수냉각 또는 공기냉각 압축식 냉동기" + Me.Label210.TextAlign = System.Drawing.ContentAlignment.MiddleRight + ' + '압축기제어방식ComboBox + ' + Me.압축기제어방식ComboBox.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList + Me.압축기제어방식ComboBox.FormattingEnabled = True + Me.압축기제어방식ComboBox.Location = New System.Drawing.Point(169, 109) + Me.압축기제어방식ComboBox.Name = "압축기제어방식ComboBox" + Me.압축기제어방식ComboBox.NectControl = Nothing + Me.압축기제어방식ComboBox.Size = New System.Drawing.Size(112, 22) + Me.압축기제어방식ComboBox.TabIndex = 2 + ' + '냉동기압축방식ComboBox + ' + Me.냉동기압축방식ComboBox.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList + Me.냉동기압축방식ComboBox.FormattingEnabled = True + Me.냉동기압축방식ComboBox.Location = New System.Drawing.Point(169, 85) + Me.냉동기압축방식ComboBox.Name = "냉동기압축방식ComboBox" + Me.냉동기압축방식ComboBox.NectControl = Nothing + Me.냉동기압축방식ComboBox.Size = New System.Drawing.Size(112, 22) + Me.냉동기압축방식ComboBox.TabIndex = 1 + ' + '냉동기종류ComboBox + ' + Me.냉동기종류ComboBox.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList + Me.냉동기종류ComboBox.FormattingEnabled = True + Me.냉동기종류ComboBox.Location = New System.Drawing.Point(169, 32) + Me.냉동기종류ComboBox.Name = "냉동기종류ComboBox" + Me.냉동기종류ComboBox.NectControl = Nothing + Me.냉동기종류ComboBox.Size = New System.Drawing.Size(112, 22) + Me.냉동기종류ComboBox.TabIndex = 0 + ' + '냉동기설비시스템ComboBox + ' + Me.냉동기설비시스템ComboBox.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList + Me.냉동기설비시스템ComboBox.FormattingEnabled = True + Me.냉동기설비시스템ComboBox.Location = New System.Drawing.Point(169, 167) + Me.냉동기설비시스템ComboBox.Name = "냉동기설비시스템ComboBox" + Me.냉동기설비시스템ComboBox.NectControl = Nothing + Me.냉동기설비시스템ComboBox.Size = New System.Drawing.Size(112, 22) + Me.냉동기설비시스템ComboBox.TabIndex = 3 + ' + '제어방식ComboBox + ' + Me.제어방식ComboBox.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList + Me.제어방식ComboBox.FormattingEnabled = True + Me.제어방식ComboBox.Location = New System.Drawing.Point(169, 191) + Me.제어방식ComboBox.Name = "제어방식ComboBox" + Me.제어방식ComboBox.NectControl = Nothing + Me.제어방식ComboBox.Size = New System.Drawing.Size(112, 22) + Me.제어방식ComboBox.TabIndex = 4 + ' + 'PictureBox3 + ' + Me.PictureBox3.BackColor = System.Drawing.Color.FromArgb(CType(CType(243, Byte), Integer), CType(CType(244, Byte), Integer), CType(CType(246, Byte), Integer)) + Me.PictureBox3.Location = New System.Drawing.Point(1, 9) + Me.PictureBox3.Name = "PictureBox3" + Me.PictureBox3.Size = New System.Drawing.Size(286, 315) + Me.PictureBox3.TabIndex = 169 + Me.PictureBox3.TabStop = False + ' + '재냉각기GroupBox + ' + Me.재냉각기GroupBox.BackColor = System.Drawing.Color.White + Me.재냉각기GroupBox.Controls.Add(Label10) + Me.재냉각기GroupBox.Controls.Add(Me.증발식건식냉각기ComboBox) + Me.재냉각기GroupBox.Controls.Add(Me.증발식냉각기ComboBox) + Me.재냉각기GroupBox.Controls.Add(Label11) + Me.재냉각기GroupBox.Controls.Add(Me.보조방음기유무ComboBox) + Me.재냉각기GroupBox.Controls.Add(Me.냉각수토출온도NTb) + Me.재냉각기GroupBox.Controls.Add(Label12) + Me.재냉각기GroupBox.Controls.Add(Me.Label18) + Me.재냉각기GroupBox.Controls.Add(Label13) + Me.재냉각기GroupBox.Controls.Add(Me.PictureBox5) + Me.재냉각기GroupBox.Location = New System.Drawing.Point(296, 146) + Me.재냉각기GroupBox.Name = "재냉각기GroupBox" + Me.재냉각기GroupBox.Size = New System.Drawing.Size(273, 328) + Me.재냉각기GroupBox.TabIndex = 31 + Me.재냉각기GroupBox.TabStop = False + ' + '증발식건식냉각기ComboBox + ' + Me.증발식건식냉각기ComboBox.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList + Me.증발식건식냉각기ComboBox.FormattingEnabled = True + Me.증발식건식냉각기ComboBox.Location = New System.Drawing.Point(185, 36) + Me.증발식건식냉각기ComboBox.Name = "증발식건식냉각기ComboBox" + Me.증발식건식냉각기ComboBox.NectControl = Nothing + Me.증발식건식냉각기ComboBox.Size = New System.Drawing.Size(84, 22) + Me.증발식건식냉각기ComboBox.TabIndex = 0 + ' + '증발식냉각기ComboBox + ' + Me.증발식냉각기ComboBox.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList + Me.증발식냉각기ComboBox.FormattingEnabled = True + Me.증발식냉각기ComboBox.Location = New System.Drawing.Point(185, 60) + Me.증발식냉각기ComboBox.Name = "증발식냉각기ComboBox" + Me.증발식냉각기ComboBox.NectControl = Nothing + Me.증발식냉각기ComboBox.Size = New System.Drawing.Size(84, 22) + Me.증발식냉각기ComboBox.TabIndex = 1 + ' + '보조방음기유무ComboBox + ' + Me.보조방음기유무ComboBox.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList + Me.보조방음기유무ComboBox.FormattingEnabled = True + Me.보조방음기유무ComboBox.Location = New System.Drawing.Point(185, 84) + Me.보조방음기유무ComboBox.Name = "보조방음기유무ComboBox" + Me.보조방음기유무ComboBox.NectControl = Nothing + Me.보조방음기유무ComboBox.Size = New System.Drawing.Size(84, 22) + Me.보조방음기유무ComboBox.TabIndex = 2 + ' + '냉각수토출온도NTb + ' + Me.냉각수토출온도NTb.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bs, "냉각탑입구온도", True)) + Me.냉각수토출온도NTb.Location = New System.Drawing.Point(185, 109) + Me.냉각수토출온도NTb.Name = "냉각수토출온도NTb" + Me.냉각수토출온도NTb.NectControl = Nothing + Me.냉각수토출온도NTb.Size = New System.Drawing.Size(84, 21) + Me.냉각수토출온도NTb.TabIndex = 3 + Me.냉각수토출온도NTb.TextAlign = System.Windows.Forms.HorizontalAlignment.Right + Me.냉각수토출온도NTb.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + ' + 'Label18 + ' + Me.Label18.AutoSize = True + Me.Label18.BackColor = System.Drawing.Color.FromArgb(CType(CType(243, Byte), Integer), CType(CType(244, Byte), Integer), CType(CType(246, Byte), Integer)) + Me.Label18.ForeColor = System.Drawing.Color.Black + Me.Label18.Location = New System.Drawing.Point(6, 20) + Me.Label18.Name = "Label18" + Me.Label18.Size = New System.Drawing.Size(102, 14) + Me.Label18.TabIndex = 158 + Me.Label18.Text = "[재냉각기(냉각탑)]" + ' + 'PictureBox5 + ' + Me.PictureBox5.BackColor = System.Drawing.Color.FromArgb(CType(CType(243, Byte), Integer), CType(CType(244, Byte), Integer), CType(CType(246, Byte), Integer)) + Me.PictureBox5.Location = New System.Drawing.Point(2, 9) + Me.PictureBox5.Name = "PictureBox5" + Me.PictureBox5.Size = New System.Drawing.Size(268, 315) + Me.PictureBox5.TabIndex = 169 + Me.PictureBox5.TabStop = False + ' + '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, 30) + 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.BackColor = System.Drawing.Color.White + Me.SplitContainer1.Panel2.Controls.Add(Me.Label16) + Me.SplitContainer1.Panel2.Controls.Add(Me.PictureBox4) + Me.SplitContainer1.Panel2.Controls.Add(Me.재냉각기GroupBox) + Me.SplitContainer1.Panel2.Controls.Add(Me.GroupBox11) + Me.SplitContainer1.Panel2.Controls.Add(Me.GroupBox19) + Me.SplitContainer1.Panel2.Controls.Add(Me.GroupBox18) + Me.SplitContainer1.Size = New System.Drawing.Size(795, 535) + Me.SplitContainer1.SplitterDistance = 212 + Me.SplitContainer1.TabIndex = 128 + ' + 'dv + ' + Me.dv.A_DelCurrentCell = True + Me.dv.A_EnterToTab = True + 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.FromArgb(CType(CType(245, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(246, Byte), Integer)) + Me.dv.BorderStyle = System.Windows.Forms.BorderStyle.None + Me.dv.ColumnHeadersHeight = 30 + Me.dv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.DisableResizing + 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.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, 493) + Me.dv.TabIndex = 0 + ' + 'DataGridViewTextBoxColumn1 + ' + Me.DataGridViewTextBoxColumn1.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.Fill + Me.DataGridViewTextBoxColumn1.DataPropertyName = "설명" + Me.DataGridViewTextBoxColumn1.HeaderText = "설명" + Me.DataGridViewTextBoxColumn1.Name = "DataGridViewTextBoxColumn1" + ' + '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("나눔고딕 ExtraBold", 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.bn.Location = New System.Drawing.Point(0, 493) + 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, 40) + Me.bn.TabIndex = 1 + Me.bn.Text = "BindingNavigator1" + ' + 'lbl_count + ' + Me.lbl_count.Name = "lbl_count" + Me.lbl_count.Size = New System.Drawing.Size(27, 37) + 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, 37) + 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, 37) + 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, 37) + Me.bt_cancel.Text = "변경취소(&C)" + Me.bt_cancel.ToolTipText = "변경된 내용을 되돌립니다" + ' + 'ToolStripSeparator1 + ' + Me.ToolStripSeparator1.Name = "ToolStripSeparator1" + Me.ToolStripSeparator1.Size = New System.Drawing.Size(6, 40) + ' + 'lbl_pos + ' + Me.lbl_pos.Name = "lbl_pos" + Me.lbl_pos.Size = New System.Drawing.Size(14, 37) + Me.lbl_pos.Text = "0" + ' + 'Label16 + ' + Me.Label16.AutoSize = True + Me.Label16.BackColor = System.Drawing.Color.FromArgb(CType(CType(116, Byte), Integer), CType(CType(158, Byte), Integer), CType(CType(209, Byte), Integer)) + Me.Label16.ForeColor = System.Drawing.Color.White + Me.Label16.Location = New System.Drawing.Point(28, 21) + Me.Label16.Name = "Label16" + Me.Label16.Size = New System.Drawing.Size(40, 14) + Me.Label16.TabIndex = 168 + Me.Label16.Text = "냉방기" + ' + 'PictureBox4 + ' + Me.PictureBox4.BackgroundImage = CType(resources.GetObject("PictureBox4.BackgroundImage"), System.Drawing.Image) + Me.PictureBox4.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch + Me.PictureBox4.Location = New System.Drawing.Point(15, 10) + Me.PictureBox4.Name = "PictureBox4" + Me.PictureBox4.Size = New System.Drawing.Size(134, 30) + Me.PictureBox4.TabIndex = 167 + Me.PictureBox4.TabStop = False + ' + 'Frm_V20091231_Naengbang + ' + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.None + Me.ClientSize = New System.Drawing.Size(795, 565) + Me.Controls.Add(Me.SplitContainer1) + Me.Font = New System.Drawing.Font("나눔고딕 ExtraBold", 8.999999!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.KeyPreview = True + Me.Name = "Frm_V20091231_Naengbang" + Me.ShowInTaskbar = False + Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen + Me.Text = "냉방기기" + Me.Controls.SetChildIndex(Me.SplitContainer1, 0) + CType(Me.ErrProvider, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.bsmain, System.ComponentModel.ISupportInitialize).EndInit() + Me.GroupBox18.ResumeLayout(False) + Me.GroupBox18.PerformLayout() + CType(Me.PictureBox2, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.bs, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.DS, System.ComponentModel.ISupportInitialize).EndInit() + Me.GroupBox11.ResumeLayout(False) + Me.GroupBox11.PerformLayout() + CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).EndInit() + Me.GroupBox19.ResumeLayout(False) + Me.GroupBox19.PerformLayout() + CType(Me.PictureBox3, System.ComponentModel.ISupportInitialize).EndInit() + Me.재냉각기GroupBox.ResumeLayout(False) + Me.재냉각기GroupBox.PerformLayout() + CType(Me.PictureBox5, System.ComponentModel.ISupportInitialize).EndInit() + Me.SplitContainer1.Panel1.ResumeLayout(False) + Me.SplitContainer1.Panel2.ResumeLayout(False) + Me.SplitContainer1.Panel2.PerformLayout() + Me.SplitContainer1.ResumeLayout(False) + CType(Me.dv, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.bn, System.ComponentModel.ISupportInitialize).EndInit() + Me.bn.ResumeLayout(False) + Me.bn.PerformLayout() + CType(Me.PictureBox4, System.ComponentModel.ISupportInitialize).EndInit() + Me.ResumeLayout(False) + + End Sub + Friend WithEvents 냉각수토출온도NTb As MyTb + Friend WithEvents 열성능비NTb As MyTb + Friend WithEvents 냉동기용량NTb As MyTb + Public WithEvents DS As Eco2Ar.DS + Friend WithEvents bs As System.Windows.Forms.BindingSource + Friend WithEvents cmb_신재생 As Eco2Ar.MyCmb + Friend WithEvents 신재생연결여부ComboBox1 As Eco2Ar.MyCmb + Friend WithEvents 보조방음기유무ComboBox As Eco2Ar.MyCmb + Friend WithEvents 증발식냉각기ComboBox As Eco2Ar.MyCmb + Friend WithEvents 증발식건식냉각기ComboBox As Eco2Ar.MyCmb + Friend WithEvents 온수열생산기기ComboBox As Eco2Ar.MyCmb + Friend WithEvents 제어방식ComboBox As Eco2Ar.MyCmb + Friend WithEvents 냉동기설비시스템ComboBox As Eco2Ar.MyCmb + Friend WithEvents 압축기제어방식ComboBox As Eco2Ar.MyCmb + Friend WithEvents 냉동기압축방식ComboBox As Eco2Ar.MyCmb + Friend WithEvents 냉동기종류ComboBox As Eco2Ar.MyCmb + Friend WithEvents 냉동기방식ComboBox As Eco2Ar.MyCmb + Friend WithEvents GroupBox18 As System.Windows.Forms.GroupBox + Friend WithEvents GroupBox11 As System.Windows.Forms.GroupBox + Friend WithEvents Label214 As System.Windows.Forms.Label + Friend WithEvents GroupBox19 As System.Windows.Forms.GroupBox + Friend WithEvents Label212 As System.Windows.Forms.Label + Friend WithEvents Label210 As System.Windows.Forms.Label + Friend WithEvents 재냉각기GroupBox As System.Windows.Forms.GroupBox + Friend WithEvents tb_zone_cnt As System.Windows.Forms.TextBox + Friend WithEvents Label47 As System.Windows.Forms.Label + Friend WithEvents SplitContainer1 As System.Windows.Forms.SplitContainer + Friend WithEvents dv As CEnergy.arindv + Friend WithEvents bn As System.Windows.Forms.BindingNavigator + Friend WithEvents bt_add As System.Windows.Forms.ToolStripButton + Friend WithEvents bt_Del As System.Windows.Forms.ToolStripButton + Friend WithEvents bt_cancel As System.Windows.Forms.ToolStripButton + Friend WithEvents ToolStripSeparator1 As System.Windows.Forms.ToolStripSeparator + Friend WithEvents DataGridViewTextBoxColumn1 As System.Windows.Forms.DataGridViewTextBoxColumn + Friend WithEvents lbl_count As System.Windows.Forms.ToolStripLabel + Friend WithEvents lbl_pos As System.Windows.Forms.ToolStripLabel + Friend WithEvents Label213 As System.Windows.Forms.Label + Friend WithEvents cmb_열생산연결방식 As Eco2Ar.MyCmb + Friend WithEvents cmb_사용연료 As Eco2Ar.MyCmb + Friend WithEvents Label17 As System.Windows.Forms.Label + Friend WithEvents PictureBox2 As System.Windows.Forms.PictureBox + Friend WithEvents Label9 As System.Windows.Forms.Label + Friend WithEvents PictureBox1 As System.Windows.Forms.PictureBox + Friend WithEvents PictureBox3 As System.Windows.Forms.PictureBox + Friend WithEvents Label16 As System.Windows.Forms.Label + Friend WithEvents PictureBox4 As System.Windows.Forms.PictureBox + Friend WithEvents Label18 As System.Windows.Forms.Label + Friend WithEvents PictureBox5 As System.Windows.Forms.PictureBox +End Class diff --git a/ArinWarev1/Forms/v20091231/Frm_v20091231_NaengBang.resx b/ArinWarev1/Forms/v20091231/Frm_v20091231_NaengBang.resx new file mode 100644 index 0000000..1c3b0f1 --- /dev/null +++ b/ArinWarev1/Forms/v20091231/Frm_v20091231_NaengBang.resx @@ -0,0 +1,390 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + 109, 17 + + + 17, 17 + + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + 222, 17 + + + 286, 17 + + + 353, 17 + + + + + /9j/4AAQSkZJRgABAgEASABIAAD/7gAOQWRvYmUAZAAAAAAB/+ED5kV4aWYAAE1NACoAAAAIAAcBEgAD + AAAAAQABAAABGgAFAAAAAQAAAGIBGwAFAAAAAQAAAGoBKAADAAAAAQACAAABMQACAAAAHAAAAHIBMgAC + AAAAFAAAAI6HaQAEAAAAAQAAAKIAAADCAEgAAAABAAAASAAAAAEAAEFkb2JlIFBob3Rvc2hvcCBDUzMg + V2luZG93cwAyMDEwOjA0OjE1IDIwOjMyOjA0AAACoAIABAAAAAEAAAA8oAMABAAAAAEAAAAMAAAAAAAA + AAYBAwADAAAAAQAGAAABGgAFAAAAAQAAARABGwAFAAAAAQAAARgBKAADAAAAAQACAAACAQAEAAAAAQAA + ASACAgAEAAAAAQAAAr4AAAAAAAAASAAAAAEAAABIAAAAAf/Y/+AAEEpGSUYAAQIAAEgASAAA/+0ADEFk + b2JlX0NNAAH/7gAOQWRvYmUAZIAAAAAB/9sAhAAMCAgICQgMCQkMEQsKCxEVDwwMDxUYExMVExMYEQwM + DAwMDBEMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMAQ0LCw0ODRAODhAUDg4OFBQODg4OFBEMDAwM + DBERDAwMDAwMEQwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAz/wAARCAAMADwDASIAAhEBAxEB/90A + BAAE/8QBPwAAAQUBAQEBAQEAAAAAAAAAAwABAgQFBgcICQoLAQABBQEBAQEBAQAAAAAAAAABAAIDBAUG + BwgJCgsQAAEEAQMCBAIFBwYIBQMMMwEAAhEDBCESMQVBUWETInGBMgYUkaGxQiMkFVLBYjM0coLRQwcl + klPw4fFjczUWorKDJkSTVGRFwqN0NhfSVeJl8rOEw9N14/NGJ5SkhbSVxNTk9KW1xdXl9VZmdoaWprbG + 1ub2N0dXZ3eHl6e3x9fn9xEAAgIBAgQEAwQFBgcHBgU1AQACEQMhMRIEQVFhcSITBTKBkRShsUIjwVLR + 8DMkYuFygpJDUxVjczTxJQYWorKDByY1wtJEk1SjF2RFVTZ0ZeLys4TD03Xj80aUpIW0lcTU5PSltcXV + 5fVWZnaGlqa2xtbm9ic3R1dnd4eXp7fH/9oADAMBAAIRAxEAPwDd/amR/pH/AOcf70v2pkf6R/8AnH+9 + UUlofq/Bpevxb37UyP8ASP8A84/3pftTI/0j/wDOP96opJfq/BXr8W9+1Mj/AEj/APOP96X7UyP9I/8A + zj/eqKSX6vwV6/F3ujdbuGS2i5xfU8HVxktIG76XyW99vo27p0XGdO2/ba930dZj+q5dX+qfZPL8VAeD + 341VVr/eZhx+0bu708n/2f/tCSBQaG90b3Nob3AgMy4wADhCSU0EJQAAAAAAEAAAAAAAAAAAAAAAAAAA + AAA4QklNBC8AAAAAAErgYgEASAAAAEgAAAAAAAAAAAAAANACAABAAgAAAAAAAAAAAAAYAwAAZAIAAAAB + wAMAALAEAAABAA8nAQBsbHVuAAAAAAAAAAAAADhCSU0D7QAAAAAAEABIAAAAAQACAEgAAAABAAI4QklN + BCYAAAAAAA4AAAAAAAAAAAAAP4AAADhCSU0EDQAAAAAABAAAAHg4QklNBBkAAAAAAAQAAAAeOEJJTQPz + AAAAAAAJAAAAAAAAAAABADhCSU0ECgAAAAAAAQAAOEJJTScQAAAAAAAKAAEAAAAAAAAAAjhCSU0D9QAA + AAAASAAvZmYAAQBsZmYABgAAAAAAAQAvZmYAAQChmZoABgAAAAAAAQAyAAAAAQBaAAAABgAAAAAAAQA1 + AAAAAQAtAAAABgAAAAAAAThCSU0D+AAAAAAAcAAA/////////////////////////////wPoAAAAAP// + //////////////////////////8D6AAAAAD/////////////////////////////A+gAAAAA//////// + /////////////////////wPoAAA4QklNBAAAAAAAAAIAAjhCSU0EAgAAAAAABgAAAAAAADhCSU0EMAAA + AAAAAwEBAQA4QklNBC0AAAAAAAYAAQAAAAM4QklNBAgAAAAAABAAAAABAAACQAAAAkAAAAAAOEJJTQQe + AAAAAAAEAAAAADhCSU0EGgAAAAADPwAAAAYAAAAAAAAAAAAAAAwAAAA8AAAABbs0yBwALQAxADIAAAAB + AAAAAAAAAAAAAAAAAAAAAAAAAAEAAAAAAAAAAAAAADwAAAAMAAAAAAAAAAAAAAAAAAAAAAEAAAAAAAAA + AAAAAAAAAAAAAAAAEAAAAAEAAAAAAABudWxsAAAAAgAAAAZib3VuZHNPYmpjAAAAAQAAAAAAAFJjdDEA + AAAEAAAAAFRvcCBsb25nAAAAAAAAAABMZWZ0bG9uZwAAAAAAAAAAQnRvbWxvbmcAAAAMAAAAAFJnaHRs + b25nAAAAPAAAAAZzbGljZXNWbExzAAAAAU9iamMAAAABAAAAAAAFc2xpY2UAAAASAAAAB3NsaWNlSURs + b25nAAAAAAAAAAdncm91cElEbG9uZwAAAAAAAAAGb3JpZ2luZW51bQAAAAxFU2xpY2VPcmlnaW4AAAAN + YXV0b0dlbmVyYXRlZAAAAABUeXBlZW51bQAAAApFU2xpY2VUeXBlAAAAAEltZyAAAAAGYm91bmRzT2Jq + YwAAAAEAAAAAAABSY3QxAAAABAAAAABUb3AgbG9uZwAAAAAAAAAATGVmdGxvbmcAAAAAAAAAAEJ0b21s + b25nAAAADAAAAABSZ2h0bG9uZwAAADwAAAADdXJsVEVYVAAAAAEAAAAAAABudWxsVEVYVAAAAAEAAAAA + AABNc2dlVEVYVAAAAAEAAAAAAAZhbHRUYWdURVhUAAAAAQAAAAAADmNlbGxUZXh0SXNIVE1MYm9vbAEA + AAAIY2VsbFRleHRURVhUAAAAAQAAAAAACWhvcnpBbGlnbmVudW0AAAAPRVNsaWNlSG9yekFsaWduAAAA + B2RlZmF1bHQAAAAJdmVydEFsaWduZW51bQAAAA9FU2xpY2VWZXJ0QWxpZ24AAAAHZGVmYXVsdAAAAAti + Z0NvbG9yVHlwZWVudW0AAAARRVNsaWNlQkdDb2xvclR5cGUAAAAATm9uZQAAAAl0b3BPdXRzZXRsb25n + AAAAAAAAAApsZWZ0T3V0c2V0bG9uZwAAAAAAAAAMYm90dG9tT3V0c2V0bG9uZwAAAAAAAAALcmlnaHRP + dXRzZXRsb25nAAAAAAA4QklNBCgAAAAAAAwAAAABP/AAAAAAAAA4QklNBBQAAAAAAAQAAAAEOEJJTQQM + AAAAAALaAAAAAQAAADwAAAAMAAAAtAAACHAAAAK+ABgAAf/Y/+AAEEpGSUYAAQIAAEgASAAA/+0ADEFk + b2JlX0NNAAH/7gAOQWRvYmUAZIAAAAAB/9sAhAAMCAgICQgMCQkMEQsKCxEVDwwMDxUYExMVExMYEQwM + DAwMDBEMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMAQ0LCw0ODRAODhAUDg4OFBQODg4OFBEMDAwM + DBERDAwMDAwMEQwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAz/wAARCAAMADwDASIAAhEBAxEB/90A + BAAE/8QBPwAAAQUBAQEBAQEAAAAAAAAAAwABAgQFBgcICQoLAQABBQEBAQEBAQAAAAAAAAABAAIDBAUG + BwgJCgsQAAEEAQMCBAIFBwYIBQMMMwEAAhEDBCESMQVBUWETInGBMgYUkaGxQiMkFVLBYjM0coLRQwcl + klPw4fFjczUWorKDJkSTVGRFwqN0NhfSVeJl8rOEw9N14/NGJ5SkhbSVxNTk9KW1xdXl9VZmdoaWprbG + 1ub2N0dXZ3eHl6e3x9fn9xEAAgIBAgQEAwQFBgcHBgU1AQACEQMhMRIEQVFhcSITBTKBkRShsUIjwVLR + 8DMkYuFygpJDUxVjczTxJQYWorKDByY1wtJEk1SjF2RFVTZ0ZeLys4TD03Xj80aUpIW0lcTU5PSltcXV + 5fVWZnaGlqa2xtbm9ic3R1dnd4eXp7fH/9oADAMBAAIRAxEAPwDd/amR/pH/AOcf70v2pkf6R/8AnH+9 + UUlofq/Bpevxb37UyP8ASP8A84/3pftTI/0j/wDOP96opJfq/BXr8W9+1Mj/AEj/APOP96X7UyP9I/8A + zj/eqKSX6vwV6/F3ujdbuGS2i5xfU8HVxktIG76XyW99vo27p0XGdO2/ba930dZj+q5dX+qfZPL8VAeD + 341VVr/eZhx+0bu708n/2ThCSU0EIQAAAAAAVQAAAAEBAAAADwBBAGQAbwBiAGUAIABQAGgAbwB0AG8A + cwBoAG8AcAAAABMAQQBkAG8AYgBlACAAUABoAG8AdABvAHMAaABvAHAAIABDAFMAMwAAAAEAOEJJTQQG + AAAAAAAHAAgAAQABAQD/4Q/MaHR0cDovL25zLmFkb2JlLmNvbS94YXAvMS4wLwA8P3hwYWNrZXQgYmVn + aW49Iu+7vyIgaWQ9Ilc1TTBNcENlaGlIenJlU3pOVGN6a2M5ZCI/Pg0KPHg6eG1wbWV0YSB4bWxuczp4 + PSJhZG9iZTpuczptZXRhLyIgeDp4bXB0az0iQWRvYmUgWE1QIENvcmUgNC4xLWMwMzYgNDYuMjc2NzIw + LCBNb24gRmViIDE5IDIwMDcgMjI6NDA6MDggICAgICAgICI+DQoJPHJkZjpSREYgeG1sbnM6cmRmPSJo + dHRwOi8vd3d3LnczLm9yZy8xOTk5LzAyLzIyLXJkZi1zeW50YXgtbnMjIj4NCgkJPHJkZjpEZXNjcmlw + dGlvbiByZGY6YWJvdXQ9IiIgeG1sbnM6ZGM9Imh0dHA6Ly9wdXJsLm9yZy9kYy9lbGVtZW50cy8xLjEv + IiB4bWxuczp4YXA9Imh0dHA6Ly9ucy5hZG9iZS5jb20veGFwLzEuMC8iIHhtbG5zOnhhcE1NPSJodHRw + Oi8vbnMuYWRvYmUuY29tL3hhcC8xLjAvbW0vIiB4bWxuczpzdFJlZj0iaHR0cDovL25zLmFkb2JlLmNv + bS94YXAvMS4wL3NUeXBlL1Jlc291cmNlUmVmIyIgeG1sbnM6cGhvdG9zaG9wPSJodHRwOi8vbnMuYWRv + YmUuY29tL3Bob3Rvc2hvcC8xLjAvIiB4bWxuczp0aWZmPSJodHRwOi8vbnMuYWRvYmUuY29tL3RpZmYv + MS4wLyIgeG1sbnM6ZXhpZj0iaHR0cDovL25zLmFkb2JlLmNvbS9leGlmLzEuMC8iIGRjOmZvcm1hdD0i + aW1hZ2UvanBlZyIgeGFwOkNyZWF0b3JUb29sPSJBZG9iZSBQaG90b3Nob3AgQ1MzIFdpbmRvd3MiIHhh + cDpDcmVhdGVEYXRlPSIyMDEwLTA0LTE1VDIwOjMyOjA0KzA5OjAwIiB4YXA6TW9kaWZ5RGF0ZT0iMjAx + MC0wNC0xNVQyMDozMjowNCswOTowMCIgeGFwOk1ldGFkYXRhRGF0ZT0iMjAxMC0wNC0xNVQyMDozMjow + NCswOTowMCIgeGFwTU06RG9jdW1lbnRJRD0idXVpZDpGRTRGOUVDQzgxNDhERjExQjQyNkI5NEQ4RDRD + ODAxNyIgeGFwTU06SW5zdGFuY2VJRD0idXVpZDpCNDE2RTc4MzgyNDhERjExQjQyNkI5NEQ4RDRDODAx + NyIgcGhvdG9zaG9wOkNvbG9yTW9kZT0iMyIgcGhvdG9zaG9wOklDQ1Byb2ZpbGU9InNSR0IgSUVDNjE5 + NjYtMi4xIiBwaG90b3Nob3A6SGlzdG9yeT0iIiB0aWZmOk9yaWVudGF0aW9uPSIxIiB0aWZmOlhSZXNv + bHV0aW9uPSI3MjAwMDAvMTAwMDAiIHRpZmY6WVJlc29sdXRpb249IjcyMDAwMC8xMDAwMCIgdGlmZjpS + ZXNvbHV0aW9uVW5pdD0iMiIgdGlmZjpOYXRpdmVEaWdlc3Q9IjI1NiwyNTcsMjU4LDI1OSwyNjIsMjc0 + LDI3NywyODQsNTMwLDUzMSwyODIsMjgzLDI5NiwzMDEsMzE4LDMxOSw1MjksNTMyLDMwNiwyNzAsMjcx + LDI3MiwzMDUsMzE1LDMzNDMyOzk4ODcxNzIxMUFCRjY2MTQxRDU3NEI3OUYzRjQ2QkFBIiBleGlmOlBp + eGVsWERpbWVuc2lvbj0iNjAiIGV4aWY6UGl4ZWxZRGltZW5zaW9uPSIxMiIgZXhpZjpDb2xvclNwYWNl + PSIxIiBleGlmOk5hdGl2ZURpZ2VzdD0iMzY4NjQsNDA5NjAsNDA5NjEsMzcxMjEsMzcxMjIsNDA5NjIs + NDA5NjMsMzc1MTAsNDA5NjQsMzY4NjcsMzY4NjgsMzM0MzQsMzM0MzcsMzQ4NTAsMzQ4NTIsMzQ4NTUs + MzQ4NTYsMzczNzcsMzczNzgsMzczNzksMzczODAsMzczODEsMzczODIsMzczODMsMzczODQsMzczODUs + MzczODYsMzczOTYsNDE0ODMsNDE0ODQsNDE0ODYsNDE0ODcsNDE0ODgsNDE0OTIsNDE0OTMsNDE0OTUs + NDE3MjgsNDE3MjksNDE3MzAsNDE5ODUsNDE5ODYsNDE5ODcsNDE5ODgsNDE5ODksNDE5OTAsNDE5OTEs + NDE5OTIsNDE5OTMsNDE5OTQsNDE5OTUsNDE5OTYsNDIwMTYsMCwyLDQsNSw2LDcsOCw5LDEwLDExLDEy + LDEzLDE0LDE1LDE2LDE3LDE4LDIwLDIyLDIzLDI0LDI1LDI2LDI3LDI4LDMwOzM1N0NDOEY1MDE4RURF + NDY2NjVCQkRFMUFEMkRCQkJBIj4NCgkJCTx4YXBNTTpEZXJpdmVkRnJvbSBzdFJlZjppbnN0YW5jZUlE + PSJ1dWlkOkY1NEY5RUNDODE0OERGMTFCNDI2Qjk0RDhENEM4MDE3IiBzdFJlZjpkb2N1bWVudElEPSJ1 + dWlkOkY1NEY5RUNDODE0OERGMTFCNDI2Qjk0RDhENEM4MDE3Ii8+DQoJCTwvcmRmOkRlc2NyaXB0aW9u + Pg0KCTwvcmRmOlJERj4NCjwveDp4bXBtZXRhPg0KICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgIAogICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgCiAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAKICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgIAogICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgCiAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAKICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgIAogICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgCiAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAKICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgIAogICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + CiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAKICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgIAogICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgCiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAKICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgIAogICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgCiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAKICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgIAogICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgCiAgICAgICAgICAgPD94cGFja2V0IGVuZD0ndyc/Pv/iDFhJQ0NfUFJPRklMRQABAQAA + DEhMaW5vAhAAAG1udHJSR0IgWFlaIAfOAAIACQAGADEAAGFjc3BNU0ZUAAAAAElFQyBzUkdCAAAAAAAA + AAAAAAAAAAD21gABAAAAANMtSFAgIAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAEWNwcnQAAAFQAAAAM2Rlc2MAAAGEAAAAbHd0cHQAAAHwAAAAFGJrcHQAAAIEAAAAFHJY + WVoAAAIYAAAAFGdYWVoAAAIsAAAAFGJYWVoAAAJAAAAAFGRtbmQAAAJUAAAAcGRtZGQAAALEAAAAiHZ1 + ZWQAAANMAAAAhnZpZXcAAAPUAAAAJGx1bWkAAAP4AAAAFG1lYXMAAAQMAAAAJHRlY2gAAAQwAAAADHJU + UkMAAAQ8AAAIDGdUUkMAAAQ8AAAIDGJUUkMAAAQ8AAAIDHRleHQAAAAAQ29weXJpZ2h0IChjKSAxOTk4 + IEhld2xldHQtUGFja2FyZCBDb21wYW55AABkZXNjAAAAAAAAABJzUkdCIElFQzYxOTY2LTIuMQAAAAAA + AAAAAAAAEnNSR0IgSUVDNjE5NjYtMi4xAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAABYWVogAAAAAAAA81EAAQAAAAEWzFhZWiAAAAAAAAAAAAAAAAAAAAAAWFlaIAAA + AAAAAG+iAAA49QAAA5BYWVogAAAAAAAAYpkAALeFAAAY2lhZWiAAAAAAAAAkoAAAD4QAALbPZGVzYwAA + AAAAAAAWSUVDIGh0dHA6Ly93d3cuaWVjLmNoAAAAAAAAAAAAAAAWSUVDIGh0dHA6Ly93d3cuaWVjLmNo + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAGRlc2MAAAAAAAAALklF + QyA2MTk2Ni0yLjEgRGVmYXVsdCBSR0IgY29sb3VyIHNwYWNlIC0gc1JHQgAAAAAAAAAAAAAALklFQyA2 + MTk2Ni0yLjEgRGVmYXVsdCBSR0IgY29sb3VyIHNwYWNlIC0gc1JHQgAAAAAAAAAAAAAAAAAAAAAAAAAA + AABkZXNjAAAAAAAAACxSZWZlcmVuY2UgVmlld2luZyBDb25kaXRpb24gaW4gSUVDNjE5NjYtMi4xAAAA + AAAAAAAAAAAsUmVmZXJlbmNlIFZpZXdpbmcgQ29uZGl0aW9uIGluIElFQzYxOTY2LTIuMQAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAdmlldwAAAAAAE6T+ABRfLgAQzxQAA+3MAAQTCwADXJ4AAAABWFlaIAAA + AAAATAlWAFAAAABXH+dtZWFzAAAAAAAAAAEAAAAAAAAAAAAAAAAAAAAAAAACjwAAAAJzaWcgAAAAAENS + VCBjdXJ2AAAAAAAABAAAAAAFAAoADwAUABkAHgAjACgALQAyADcAOwBAAEUASgBPAFQAWQBeAGMAaABt + AHIAdwB8AIEAhgCLAJAAlQCaAJ8ApACpAK4AsgC3ALwAwQDGAMsA0ADVANsA4ADlAOsA8AD2APsBAQEH + AQ0BEwEZAR8BJQErATIBOAE+AUUBTAFSAVkBYAFnAW4BdQF8AYMBiwGSAZoBoQGpAbEBuQHBAckB0QHZ + AeEB6QHyAfoCAwIMAhQCHQImAi8COAJBAksCVAJdAmcCcQJ6AoQCjgKYAqICrAK2AsECywLVAuAC6wL1 + AwADCwMWAyEDLQM4A0MDTwNaA2YDcgN+A4oDlgOiA64DugPHA9MD4APsA/kEBgQTBCAELQQ7BEgEVQRj + BHEEfgSMBJoEqAS2BMQE0wThBPAE/gUNBRwFKwU6BUkFWAVnBXcFhgWWBaYFtQXFBdUF5QX2BgYGFgYn + BjcGSAZZBmoGewaMBp0GrwbABtEG4wb1BwcHGQcrBz0HTwdhB3QHhgeZB6wHvwfSB+UH+AgLCB8IMghG + CFoIbgiCCJYIqgi+CNII5wj7CRAJJQk6CU8JZAl5CY8JpAm6Cc8J5Qn7ChEKJwo9ClQKagqBCpgKrgrF + CtwK8wsLCyILOQtRC2kLgAuYC7ALyAvhC/kMEgwqDEMMXAx1DI4MpwzADNkM8w0NDSYNQA1aDXQNjg2p + DcMN3g34DhMOLg5JDmQOfw6bDrYO0g7uDwkPJQ9BD14Peg+WD7MPzw/sEAkQJhBDEGEQfhCbELkQ1xD1 + ERMRMRFPEW0RjBGqEckR6BIHEiYSRRJkEoQSoxLDEuMTAxMjE0MTYxODE6QTxRPlFAYUJxRJFGoUixSt + FM4U8BUSFTQVVhV4FZsVvRXgFgMWJhZJFmwWjxayFtYW+hcdF0EXZReJF64X0hf3GBsYQBhlGIoYrxjV + GPoZIBlFGWsZkRm3Gd0aBBoqGlEadxqeGsUa7BsUGzsbYxuKG7Ib2hwCHCocUhx7HKMczBz1HR4dRx1w + HZkdwx3sHhYeQB5qHpQevh7pHxMfPh9pH5Qfvx/qIBUgQSBsIJggxCDwIRwhSCF1IaEhziH7IiciVSKC + Iq8i3SMKIzgjZiOUI8Ij8CQfJE0kfCSrJNolCSU4JWgllyXHJfcmJyZXJocmtyboJxgnSSd6J6sn3CgN + KD8ocSiiKNQpBik4KWspnSnQKgIqNSpoKpsqzysCKzYraSudK9EsBSw5LG4soizXLQwtQS12Last4S4W + Lkwugi63Lu4vJC9aL5Evxy/+MDUwbDCkMNsxEjFKMYIxujHyMioyYzKbMtQzDTNGM38zuDPxNCs0ZTSe + NNg1EzVNNYc1wjX9Njc2cjauNuk3JDdgN5w31zgUOFA4jDjIOQU5Qjl/Obw5+To2OnQ6sjrvOy07azuq + O+g8JzxlPKQ84z0iPWE9oT3gPiA+YD6gPuA/IT9hP6I/4kAjQGRApkDnQSlBakGsQe5CMEJyQrVC90M6 + Q31DwEQDREdEikTORRJFVUWaRd5GIkZnRqtG8Ec1R3tHwEgFSEtIkUjXSR1JY0mpSfBKN0p9SsRLDEtT + S5pL4kwqTHJMuk0CTUpNk03cTiVObk63TwBPSU+TT91QJ1BxULtRBlFQUZtR5lIxUnxSx1MTU19TqlP2 + VEJUj1TbVShVdVXCVg9WXFapVvdXRFeSV+BYL1h9WMtZGllpWbhaB1pWWqZa9VtFW5Vb5Vw1XIZc1l0n + XXhdyV4aXmxevV8PX2Ffs2AFYFdgqmD8YU9homH1YklinGLwY0Njl2PrZEBklGTpZT1lkmXnZj1mkmbo + Zz1nk2fpaD9olmjsaUNpmmnxakhqn2r3a09rp2v/bFdsr20IbWBtuW4SbmtuxG8eb3hv0XArcIZw4HE6 + cZVx8HJLcqZzAXNdc7h0FHRwdMx1KHWFdeF2Pnabdvh3VnezeBF4bnjMeSp5iXnnekZ6pXsEe2N7wnwh + fIF84X1BfaF+AX5ifsJ/I3+Ef+WAR4CogQqBa4HNgjCCkoL0g1eDuoQdhICE44VHhauGDoZyhteHO4ef + iASIaYjOiTOJmYn+imSKyoswi5aL/IxjjMqNMY2Yjf+OZo7OjzaPnpAGkG6Q1pE/kaiSEZJ6kuOTTZO2 + lCCUipT0lV+VyZY0lp+XCpd1l+CYTJi4mSSZkJn8mmia1ZtCm6+cHJyJnPedZJ3SnkCerp8dn4uf+qBp + oNihR6G2oiailqMGo3aj5qRWpMelOKWpphqmi6b9p26n4KhSqMSpN6mpqhyqj6sCq3Wr6axcrNCtRK24 + ri2uoa8Wr4uwALB1sOqxYLHWskuywrM4s660JbSctRO1irYBtnm28Ldot+C4WbjRuUq5wro7urW7Lrun + vCG8m70VvY++Cr6Evv+/er/1wHDA7MFnwePCX8Lbw1jD1MRRxM7FS8XIxkbGw8dBx7/IPci8yTrJuco4 + yrfLNsu2zDXMtc01zbXONs62zzfPuNA50LrRPNG+0j/SwdNE08bUSdTL1U7V0dZV1tjXXNfg2GTY6Nls + 2fHadtr724DcBdyK3RDdlt4c3qLfKd+v4DbgveFE4cziU+Lb42Pj6+Rz5PzlhOYN5pbnH+ep6DLovOlG + 6dDqW+rl63Dr++yG7RHtnO4o7rTvQO/M8Fjw5fFy8f/yjPMZ86f0NPTC9VD13vZt9vv3ivgZ+Kj5OPnH + +lf65/t3/Af8mP0p/br+S/7c/23////bAEMAAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEB + AQEBAQEBAQEBAQICAgICAgICAgICAwMDAwMDAwMDA//bAEMBAQEBAQEBAQEBAQICAQICAwMDAwMDAwMD + AwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDA//AABEIAAwAPAMBEQACEQEDEQH/ + xAAfAAABBQEBAQEBAQAAAAAAAAAAAQIDBAUGBwgJCgv/xAC1EAACAQMDAgQDBQUEBAAAAX0BAgMABBEF + EiExQQYTUWEHInEUMoGRoQgjQrHBFVLR8CQzYnKCCQoWFxgZGiUmJygpKjQ1Njc4OTpDREVGR0hJSlNU + VVZXWFlaY2RlZmdoaWpzdHV2d3h5eoOEhYaHiImKkpOUlZaXmJmaoqOkpaanqKmqsrO0tba3uLm6wsPE + xcbHyMnK0tPU1dbX2Nna4eLj5OXm5+jp6vHy8/T19vf4+fr/xAAfAQADAQEBAQEBAQEBAAAAAAAAAQID + BAUGBwgJCgv/xAC1EQACAQIEBAMEBwUEBAABAncAAQIDEQQFITEGEkFRB2FxEyIygQgUQpGhscEJIzNS + 8BVictEKFiQ04SXxFxgZGiYnKCkqNTY3ODk6Q0RFRkdISUpTVFVWV1hZWmNkZWZnaGlqc3R1dnd4eXqC + g4SFhoeIiYqSk5SVlpeYmZqio6Slpqeoqaqys7S1tre4ubrCw8TFxsfIycrS09TV1tfY2dri4+Tl5ufo + 6ery8/T19vf4+fr/2gAMAwEAAhEDEQA/AP1ZH7UPxEAA/wCEw8bnj/ob9f8A/k+v7U/1Nyj/AKF+G/8A + BUP/AJE/llcSZlZf7dX/APBk/wDMX/hqH4if9Df43/8ACv1//wCT6P8AU3Kf+hfhv/BUP/kQ/wBZcy/6 + Dq//AIMn/mH/AA1D8RP+hv8AG/8A4V+v/wDyfR/qblP/AEL8N/4Kh/8AIh/rLmX/AEHV/wDwZP8AzD/h + qH4if9Df43/8K/X/AP5Po/1Nyn/oX4b/AMFQ/wDkQ/1lzL/oOr/+DJ/5h/w1D8RP+hv8b/8AhX6//wDJ + 9H+puU/9C/Df+Cof/Ih/rLmX/QdX/wDBk/8AMT/hqH4if9Df43/8K/X/AP5Po/1Nyn/oX4b/AMFQ/wDk + Q/1kzL/oOr/+DJ/5n2R+xz+234zt/iRpnw+8a6vqXiDwZ4gs9baObXr+bUr/AMPajpmkX2tQ3FlqV2Zb + 57K7XT2t3tXkaJWkV4whVxJ+beJfAuU4Th/FZ/hKEKOMw8qd+SKjGcZzjTs4q0bpyUlJK7s073VvuuBO + LMxxGcYfJ8TWlVw1ZTtzu7hKMJTupPWzUWnFu2qatrf9aP8AhfXgv+zv7U89/sfm+V5207N+M43fSv50 + P2w/kwr/AEFP42CgAoAKACgAoA9s/Z0/s7/hcng3+1vP/s7Ov/avs2PP2f8ACL63t2buP9ZjP+zmvz7x + U/5IPPf+4H/qRRPsvD//AJK7KP8AuL/6ZqH7/wD/ABaT/hUfb7Ht/wBj7V9p8v8A9Cr+Oz+lz//Z + + + + 39 + + \ No newline at end of file diff --git a/ArinWarev1/Forms/v20091231/Frm_v20091231_NaengBang.vb b/ArinWarev1/Forms/v20091231/Frm_v20091231_NaengBang.vb new file mode 100644 index 0000000..c28eef6 --- /dev/null +++ b/ArinWarev1/Forms/v20091231/Frm_v20091231_NaengBang.vb @@ -0,0 +1,709 @@ +Public Class Frm_V20091231_Naengbang + + Dim Init As Boolean = False + Dim Dt As DataTable + Dim SrcDrv As DataRowView + + Private Sub MdiMain_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load + MdiMain.Toggle_Menu_Color(MdiMain.E_MenuIdx.냉방기기) + 'CEnergy.ARINCLASS.SaveLoad_FrmSetting(Me) + '//프로필 관련 + + '//공유데이터셋에 연결한다. + Me.bs.DataSource = DSET + Dt = DSET.tbl_nangbangkiki + + '//냉방기기 + AddHandler DSET.tbl_nangbangkiki.TableNewRow, AddressOf AddNewDataRow_nangbangkiki + + '//콤보컨트롤 바인딩 + Binding_Zone() + + '//모든컨트롤의 cTrl_enter 를 추가합니다 + BindProperty(CType(Me.SplitContainer1.Panel2.Controls, Control.ControlCollection)) + + Me.bsmain = Me.bs + Me.Init = True + + Try + Me.bsmain.Position = CEnergy.ARINCLASS.Read_LastPos_Frm(Me) + Catch ex As Exception + Me.bsmain.MoveFirst() + End Try + + bs_CurrentChanged(sender, e) + Validate_Control() + + End Sub +#Region "Control_Enter" + Private Sub BindProperty(ByVal Ctl As Control.ControlCollection) + For Each C As Control In Ctl + If C.Controls.Count > 1 Then + BindProperty(C.Controls) + Else + If C.GetType.ToString.ToUpper.IndexOf("MYTB") <> -1 Then + AddHandler CType(C, MyTb).KeyDown, AddressOf TextBOx_KeyDown + ElseIf C.GetType.ToString.ToUpper.IndexOf("MYCMB") <> -1 Then + AddHandler CType(C, MyCmb).KeyDown, AddressOf Cmd_KeyDown + End If + End If + Next + End Sub + + + Private Sub TextBOx_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) + If e.KeyCode = Keys.Enter AndAlso e.Control Then + Try + Dim Field As String = (CType(sender, MyTb).DataBindings.Item("text").BindingMemberInfo.BindingField) + For Each Dr As DataRow In Dt.Select(Me.bs.Filter, "") + Dr(Field) = CType(sender, MyTb).Text + Next + Work_msg_timer("모든값이 변경되었습니다", 25) + Catch ex As Exception + + End Try + + End If + End Sub + Private Sub Cmd_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) + If e.KeyCode = Keys.Enter AndAlso e.Control Then + Try + Dim Field As String = (CType(sender, MyCmb).DataBindings.Item("selectedvalue").BindingMemberInfo.BindingField) + For Each Dr As DataRow In Dt.Select(Me.bs.Filter, "") + Dr(Field) = CType(sender, MyCmb).SelectedValue + Next + Work_msg_timer("모든값이 변경되었습니다", 25) + Catch ex As Exception + + End Try + End If + End Sub +#End Region +#Region "냉방기기" + Private Sub MdiMain_FormClosed(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosedEventArgs) Handles Me.FormClosed + CEnergy.ARINCLASS.SaveLoad_FrmSetting(Me, Me.bsmain.Position, True) + End Sub + + Private Sub MdiMain_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown + Select Case e.KeyCode + Case Keys.F12 + End Select + End Sub + Private Function GetMaxCode(ByVal dt As DataTable) As String + Try + Dim Dr As DataRow = dt.Select("", "code desc")(0) + Return Format(CInt(Dr("code")) + 1, "0000") + Catch ex As Exception + Return "0001" + End Try + End Function + + Private Sub Cmb_DeleteVal(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) + If e.KeyCode = Keys.Delete Then + CType(sender, ComboBox).SelectedValue = "" + End If + End Sub + + Private Sub ToolStripButton48_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt_add.Click + If Not EndEdit(Me.bs) Then Return + Me.bs.AddNew() + INitRow(Me.Controls) + End Sub + + + Private Sub ToolStripButton49_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt_Del.Click + Dbbase.DelCrow(Me.bs, True) + End Sub + + Private Sub ToolStripButton51_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt_cancel.Click + If Not EndEdit(Me.bs) Then Return + Data_Cancel(DSET.tbl_profile, Nothing) + End Sub + + Private Sub Binding_Zone() + '//냉동기기 + Dim bs_냉동기방식ComboBox As New BindingSource(DSET, "tbl_common") + bs_냉동기방식ComboBox.Filter = "gubun='1046'" + 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(DSET, "tbl_common") + bs_냉동기종류ComboBox.Filter = "gubun='1047'" + 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(DSET, "tbl_common") + bs_냉동기압축방식ComboBox.Filter = "gubun='1048'" + 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(DSET, "tbl_common") + bs_압축기제어방식ComboBox.Filter = "gubun='1049'" + 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(DSET, "tbl_common") + bs_냉동기설비시스템ComboBox.Filter = "gubun='1050'" + 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(DSET, "tbl_common") + bs_제어방식ComboBox.Filter = "gubun='1051'" + 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_열생산연결방식 As New BindingSource(DSET, "tbl_common") + bs_열생산연결방식.Filter = "gubun='1085'" + bs_열생산연결방식.Sort = "code" + Me.cmb_열생산연결방식.DataSource = bs_열생산연결방식 + cmb_열생산연결방식.DisplayMember = "name" + cmb_열생산연결방식.ValueMember = "name" + Me.cmb_열생산연결방식.DataBindings.Add("selectedvalue", Me.bs, "열생산연결방식") + + Dim bs_사용연료 As New BindingSource(DSET, "tbl_common") + bs_사용연료.Filter = "gubun='1086'" + bs_사용연료.Sort = "code" + Me.cmb_사용연료.DataSource = bs_사용연료 + cmb_사용연료.DisplayMember = "name" + cmb_사용연료.ValueMember = "name" + Me.cmb_사용연료.DataBindings.Add("selectedvalue", Me.bs, "사용연료") + 'AddHandler 온수열생산기기ComboBox.KeyDown, AddressOf Cmb_DeleteVal + + + Dim bs_온수열생산기기ComboBox As New BindingSource(DSET, "tbl_nanbangkiki") + bs_온수열생산기기ComboBox.Sort = "code" + Me.온수열생산기기ComboBox.DataSource = bs_온수열생산기기ComboBox + 온수열생산기기ComboBox.DisplayMember = "설명" + 온수열생산기기ComboBox.ValueMember = "code" + Me.온수열생산기기ComboBox.DataBindings.Add("selectedvalue", Me.bs, "온수열생산기기") + 'AddHandler 온수열생산기기ComboBox.KeyDown, AddressOf Cmb_DeleteVal + + Dim bs_증발식건식냉각기ComboBox As New BindingSource(DSET, "tbl_common") + bs_증발식건식냉각기ComboBox.Filter = "gubun='1052'" + 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(DSET, "tbl_common") + bs_증발식냉각기ComboBox.Filter = "gubun='1053'" + 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(DSET, "tbl_common") + bs_보조방음기유무ComboBox.Filter = "gubun='1054'" '//예 아니오 아직 결정안됨 + 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_신재생연결여부ComboBox1 As New BindingSource(DSET, "tbl_common") + bs_신재생연결여부ComboBox1.Filter = "gubun='1044'" + bs_신재생연결여부ComboBox1.Sort = "code" + Me.신재생연결여부ComboBox1.DataSource = bs_신재생연결여부ComboBox1 + 신재생연결여부ComboBox1.DisplayMember = "name" + 신재생연결여부ComboBox1.ValueMember = "name" + Me.신재생연결여부ComboBox1.DataBindings.Add("selectedvalue", Me.bs, "신재생연결여부") + 'AddHandler 신재생연결여부ComboBox1.KeyDown, AddressOf Cmb_DeleteVal + + + + Dim bs_연결된시스템ComboBox1 As New BindingSource(DSET, "tbl_new") + bs_연결된시스템ComboBox1.Sort = "code" + Me.cmb_신재생.DataSource = bs_연결된시스템ComboBox1 + cmb_신재생.DisplayMember = "설명" + cmb_신재생.ValueMember = "code" + Me.cmb_신재생.DataBindings.Add("selectedvalue", Me.bs, "연결된시스템") + 'AddHandler cmb_신재생.KeyDown, AddressOf Cmb_DeleteVal + End Sub + + Private Sub AddNewDataRow_nangbangkiki(ByVal sender As Object, ByVal e As System.Data.DataTableNewRowEventArgs) + e.Row.Item("code") = GetMaxCode(DSET.tbl_nangbangkiki) + 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 + If Me.bs.Position < Me.bs.Count Then Me.bs.Position += 1 + Else + If Me.bs.Position > 0 Then Me.bs.Position -= 1 + End If + Me.Validate() + My.Application.DoEvents() + End Sub +#End Region + + Private Sub 신재생연결여부ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 신재생연결여부ComboBox1.SelectedIndexChanged + Try + If Me.신재생연결여부ComboBox1.SelectedIndex = 0 Then '//신재생연결없음 + cmb_신재생.Enabled = False + Else + cmb_신재생.Enabled = True + End If + Catch ex As Exception + + End Try + End Sub + + Private Sub 냉동기방식ComboBox_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles 냉동기방식ComboBox.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) <> 32 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() '//한줄추가 + + Dim Cnt As Short = 0 + For i As Integer = 0 To CB.GetUpperBound(0) + Select Case i + Case 0 + CType(bs.Current, DataRowView)("설명") = CB(i).Split(CChar(vbTab))(ii).Trim + Case 0 + 5 '//사용프로필 앞에 두개를 숫자4자로변환 + If CB(i).Split(CChar(vbTab))(ii).Trim = "" Then + Me.냉동기방식ComboBox.SelectedIndex = 0 + Else + Me.냉동기방식ComboBox.Text = CB(i).Split(CChar(vbTab))(ii).Trim + End If + + 'Me.냉동기방식ComboBox.Text = CStr(IIf( CB(i).Split(CChar(vbTab))(ii).Trim = "", "0", CB(i).Split(CChar(vbTab))(ii).Trim)) + Case 1 + 5 + Me.냉동기용량NTb.Text = CB(i).Split(CChar(vbTab))(ii).Trim + Case 2 + 5 + Me.열성능비NTb.Text = CB(i).Split(CChar(vbTab))(ii).Trim + Case 5 + 5 + ' Me.TabControl13.SelectedIndex = 1 + If CB(i).Split(CChar(vbTab))(ii).Trim = "" Then + Me.냉동기종류ComboBox.SelectedIndex = 0 + Else + Me.냉동기종류ComboBox.Text = CB(i).Split(CChar(vbTab))(ii).Trim + End If + + 'Me.냉동기종류ComboBox.Text = CStr(IIf( CB(i).Split(CChar(vbTab))(ii).Trim = "", "0", CB(i).Split(CChar(vbTab))(ii).Trim)) + Case 7 + 5 + If CB(i).Split(CChar(vbTab))(ii).Trim = "" Then + Me.냉동기압축방식ComboBox.SelectedIndex = 0 + Else + Me.냉동기압축방식ComboBox.Text = CB(i).Split(CChar(vbTab))(ii).Trim + End If + + + 'Me.냉동기압축방식ComboBox.Text = CStr(IIf( CB(i).Split(CChar(vbTab))(ii).Trim = "", "0", CB(i).Split(CChar(vbTab))(ii).Trim)) + Case 13 + If CB(i).Split(CChar(vbTab))(ii).Trim = "" Then + Me.압축기제어방식ComboBox.SelectedIndex = 0 + Else + Me.압축기제어방식ComboBox.Text = CB(i).Split(CChar(vbTab))(ii).Trim + End If + + + 'Me.압축기제어방식ComboBox.Text = CStr(IIf( CB(i).Split(CChar(vbTab))(ii).Trim = "", "0", CB(i).Split(CChar(vbTab))(ii).Trim)) + Case 10 + 5 + If CB(i).Split(CChar(vbTab))(ii).Trim = "" Then + Me.냉동기설비시스템ComboBox.SelectedIndex = 0 + Else + Me.냉동기설비시스템ComboBox.Text = CB(i).Split(CChar(vbTab))(ii).Trim + End If + + + 'Me.냉동기설비시스템ComboBox.Text = CStr(IIf( CB(i).Split(CChar(vbTab))(ii).Trim = "", "0", CB(i).Split(CChar(vbTab))(ii).Trim)) + Case 11 + 5 + If CB(i).Split(CChar(vbTab))(ii).Trim = "" Then + Me.제어방식ComboBox.SelectedIndex = 0 + Else + Me.제어방식ComboBox.Text = CB(i).Split(CChar(vbTab))(ii).Trim + End If + + 'Me.제어방식ComboBox.Text = CStr(IIf( CB(i).Split(CChar(vbTab))(ii).Trim = "", "0", CB(i).Split(CChar(vbTab))(ii).Trim)) + Case 14 + 5 '//열생산연결방식 + If CB(i).Split(CChar(vbTab))(ii).Trim = "" Then + Me.cmb_열생산연결방식.SelectedIndex = 0 + Else + Me.cmb_열생산연결방식.Text = CB(i).Split(CChar(vbTab))(ii).Trim + End If + Case 14 + 5 + 1 '//사용연로 + If CB(i).Split(CChar(vbTab))(ii).Trim = "" Then + Me.cmb_사용연료.SelectedIndex = 0 + Else + Me.cmb_사용연료.Text = CB(i).Split(CChar(vbTab))(ii).Trim + End If + Case 14 + 5 + 2 + If CB(i).Split(CChar(vbTab))(ii).Trim = "" Then + Me.온수열생산기기ComboBox.SelectedIndex = 0 + Else + Me.온수열생산기기ComboBox.Text = CB(i).Split(CChar(vbTab))(ii).Trim + End If + + ' Me.온수열생산기기ComboBox.Text = CStr(IIf( CB(i).Split(CChar(vbTab))(ii).Trim = "", "0", CB(i).Split(CChar(vbTab))(ii).Trim)) + Case 24 + ' Me.TabControl13.SelectedIndex = 2 + If CB(i).Split(CChar(vbTab))(ii).Trim = "" Then + Me.증발식건식냉각기ComboBox.SelectedIndex = 0 + Else + Me.증발식건식냉각기ComboBox.Text = CB(i).Split(CChar(vbTab))(ii).Trim + End If + + + ' Me.증발식건식냉각기ComboBox.Text = CStr(IIf( CB(i).Split(CChar(vbTab))(ii).Trim = "", "0", CB(i).Split(CChar(vbTab))(ii).Trim)) + Case 25 + If CB(i).Split(CChar(vbTab))(ii).Trim = "" Then + Me.증발식냉각기ComboBox.SelectedIndex = 0 + Else + Me.증발식냉각기ComboBox.Text = CB(i).Split(CChar(vbTab))(ii).Trim + End If + + 'Me.증발식냉각기ComboBox.Text = CStr(IIf( CB(i).Split(CChar(vbTab))(ii).Trim = "", "0", CB(i).Split(CChar(vbTab))(ii).Trim)) + Case 26 + If CB(i).Split(CChar(vbTab))(ii).Trim = "" Then + Me.보조방음기유무ComboBox.SelectedIndex = 0 + Else + Me.보조방음기유무ComboBox.Text = CB(i).Split(CChar(vbTab))(ii).Trim + End If + + 'Me.보조방음기유무ComboBox.Text = CStr(IIf( CB(i).Split(CChar(vbTab))(ii).Trim = "", "0", CB(i).Split(CChar(vbTab))(ii).Trim)) + Case 27 + Me.냉각수토출온도NTb.Text = CB(i).Split(CChar(vbTab))(ii).Trim + Case 30 + If CB(i).Split(CChar(vbTab))(ii).Trim = "" Then + Me.신재생연결여부ComboBox1.SelectedIndex = 0 + Else + Me.신재생연결여부ComboBox1.Text = CB(i).Split(CChar(vbTab))(ii).Trim + End If + 'Me.신재생연결여부ComboBox1.Text = CStr(IIf( CB(i).Split(CChar(vbTab))(ii).Trim = "", "0", CB(i).Split(CChar(vbTab))(ii).Trim)) + Case 31 + If CB(i).Split(CChar(vbTab))(ii).Trim = "" Then + Me.cmb_신재생.SelectedIndex = 0 + Else + Me.cmb_신재생.Text = CB(i).Split(CChar(vbTab))(ii).Trim + End If + + 'Me.연결된시스템ComboBox1.Text = CStr(IIf(CB(i).Trim = "", "0", CB(i).Trim)) + End Select + Next + Next + + Me.bs.EndEdit() + End If + End Sub + + Private Sub Validate_Control() + If Not Init Then Return + '//오류 냉동기방식 오류 + Try + Dim V As String = CStr(CType(Me.bs.Current, DataRowView)("설명")) + Select Case Me.냉동기방식ComboBox.SelectedValue.ToString.Trim + Case "압축식", "압축식(LNG)" '//압축식 + 'Select Case V + ' Case "냉동기A", "냉동기B" + ' 냉동기종류ComboBox.Enabled = True + ' 냉동기압축방식ComboBox.Enabled = True + + ' 압축기제어방식ComboBox.Enabled = False + ' 냉동기설비시스템ComboBox.Enabled = False + ' 제어방식ComboBox.Enabled = False + ' 온수열생산기기ComboBox.Enabled = False + ' 증발식건식냉각기ComboBox.Enabled = False + ' 증발식냉각기ComboBox.Enabled = False + ' 보조방음기유무ComboBox.Enabled = False + ' 냉각수토출온도NTb.Enabled = False + ' Case "냉동기C" + ' 냉동기종류ComboBox.Enabled = True + ' 냉동기압축방식ComboBox.Enabled = True + + ' 압축기제어방식ComboBox.Enabled = False + ' 냉동기설비시스템ComboBox.Enabled = False + ' 제어방식ComboBox.Enabled = False + ' 온수열생산기기ComboBox.Enabled = False + ' 증발식건식냉각기ComboBox.Enabled = True + ' 증발식냉각기ComboBox.Enabled = True + ' 보조방음기유무ComboBox.Enabled = True + ' 냉각수토출온도NTb.Enabled = True + 'End Select + + '//건기연 수정 2010.04.07 + 냉동기종류ComboBox.Enabled = True + 냉동기압축방식ComboBox.Enabled = True + + Case "흡수식" '//흡수식 + 'Select Case V + ' Case "냉동기A", "냉동기C" + ' 냉동기종류ComboBox.Enabled = False + ' '냉동기종류Label.Enabled = False + ' 냉동기압축방식ComboBox.Enabled = False + ' 압축기제어방식ComboBox.Enabled = False + ' 냉동기설비시스템ComboBox.Enabled = False + ' 제어방식ComboBox.Enabled = False + + ' 온수열생산기기ComboBox.Enabled = True + ' 증발식건식냉각기ComboBox.Enabled = True + ' 증발식냉각기ComboBox.Enabled = True + ' 보조방음기유무ComboBox.Enabled = True + ' 냉각수토출온도NTb.Enabled = True + ' Case "냉동기B" + ' 냉동기종류ComboBox.Enabled = False + ' 냉동기압축방식ComboBox.Enabled = False + ' 압축기제어방식ComboBox.Enabled = False + ' 냉동기설비시스템ComboBox.Enabled = False + ' 제어방식ComboBox.Enabled = False + + ' 온수열생산기기ComboBox.Enabled = True + ' 증발식건식냉각기ComboBox.Enabled = True + ' 증발식냉각기ComboBox.Enabled = False + ' 보조방음기유무ComboBox.Enabled = False + ' 냉각수토출온도NTb.Enabled = True + 'End Select + + 냉동기종류ComboBox.Enabled = False + 냉동기압축방식ComboBox.Enabled = False + + Case "지역냉방" '//지역냉방 + 'Select Case V + ' Case "냉동기A", "냉동기B", "냉동기C" + ' 냉동기종류ComboBox.Enabled = False + ' 냉동기압축방식ComboBox.Enabled = False + ' 압축기제어방식ComboBox.Enabled = False + ' 냉동기설비시스템ComboBox.Enabled = False + ' 제어방식ComboBox.Enabled = False + ' 온수열생산기기ComboBox.Enabled = False + ' 증발식건식냉각기ComboBox.Enabled = False + ' 증발식냉각기ComboBox.Enabled = False + ' 보조방음기유무ComboBox.Enabled = False + ' 냉각수토출온도NTb.Enabled = False + 'End Select + + + 냉동기종류ComboBox.Enabled = False + 냉동기압축방식ComboBox.Enabled = False + End Select + Catch ex As Exception + + End Try + Try + If Me.냉동기압축방식ComboBox.Text = "왕복동/스크롤 압축기" Then + Me.압축기제어방식ComboBox.Enabled = True + Else + Me.압축기제어방식ComboBox.SelectedIndex = 0 '//없음으로 설정하고 + Me.압축기제어방식ComboBox.Enabled = False + End If + Catch ex As Exception + + End Try + + Try + If Me.냉동기방식ComboBox.Text = "흡수식" Then + Me.cmb_열생산연결방식.Enabled = True + Me.압축기제어방식ComboBox.Enabled = False + Me.냉동기설비시스템ComboBox.Enabled = False + Me.제어방식ComboBox.Enabled = False + Try + If Me.cmb_열생산연결방식.Text = "직화식" Then + Me.cmb_사용연료.Enabled = True + Me.온수열생산기기ComboBox.Enabled = False + Else + If Me.cmb_열생산연결방식.Text = "외부연결" Then + Me.cmb_사용연료.Enabled = False + Me.온수열생산기기ComboBox.Enabled = True + Else + Me.cmb_사용연료.Enabled = False + Me.온수열생산기기ComboBox.Enabled = False + End If + End If + Catch ex As Exception + End Try + Me.재냉각기GroupBox.Enabled = True + Else + Me.cmb_열생산연결방식.Enabled = False + Me.cmb_사용연료.Enabled = False + Me.온수열생산기기ComboBox.Enabled = False + + If Me.냉동기방식ComboBox.Text = "압축식" Or Me.냉동기방식ComboBox.Text = "압축식(LNG)" Then + Select Case Me.냉동기종류ComboBox.Text + Case "수냉식" + Me.재냉각기GroupBox.Enabled = True + Me.냉동기압축방식ComboBox.Enabled = True + Me.냉동기설비시스템ComboBox.Enabled = False + Me.제어방식ComboBox.Enabled = False + Case "공냉식" + Me.재냉각기GroupBox.Enabled = False + Me.냉동기압축방식ComboBox.Enabled = True + Me.냉동기설비시스템ComboBox.Enabled = False + Me.제어방식ComboBox.Enabled = False + Case "실내공조시스템" + Me.냉동기압축방식ComboBox.Enabled = False + Me.냉동기설비시스템ComboBox.Enabled = True + Me.제어방식ComboBox.Enabled = True + Me.압축기제어방식ComboBox.Enabled = False + Me.재냉각기GroupBox.Enabled = False + Case Else + + End Select + Else + Me.냉동기압축방식ComboBox.Enabled = False + Me.냉동기설비시스템ComboBox.Enabled = False + Me.제어방식ComboBox.Enabled = False + Me.압축기제어방식ComboBox.Enabled = False + Me.재냉각기GroupBox.Enabled = False + End If + End If + Catch ex As Exception + + End Try + + End Sub + + Private Sub bs_CurrentChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bs.CurrentChanged + If Not Init Then Return + Try + Dim Drv As DataRowView = CType(bs.Current, DataRowView) + Dim DR() As DataRow = DSET.tbl_zone.Select("열생산냉방생산기기='" & Drv("code").ToString & "' or 공조냉방생산기기='" & Drv("code").ToString & "'") '//2010.12.02 수정 + 'Dim DR() As DataRow = DSET.tbl_zone.Select("열생산냉방생산기기='" & Drv("code").ToString & "'") + Me.tb_zone_cnt.Text = CStr(DR.GetUpperBound(0) + 1) + Catch ex As Exception + Me.tb_zone_cnt.Text = "0" + End Try + Me.bs.EndEdit() + End Sub + + Private Sub 냉동기방식ComboBox_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 냉동기방식ComboBox.SelectedIndexChanged + Validate_Control() + End Sub + + Private Sub 냉동기압축방식ComboBox_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 냉동기압축방식ComboBox.SelectedIndexChanged + Validate_Control() + End Sub + + + Private Sub bt_Del_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles bt_Del.MouseDown + If e.Button = Windows.Forms.MouseButtons.Right Then + If MsgBox("전체삭제를 하시겠습니까?", MsgBoxStyle.Information Or MsgBoxStyle.OkCancel, "확인") = MsgBoxResult.Ok Then + Dim dR() As DataRow = DSET.tbl_nangbangkiki.Select(Me.bs.Filter, "") + For i As Integer = dR.GetUpperBound(0) To 0 Step -1 + dR(i).Delete() + Next + DSET.tbl_nangbangkiki.AcceptChanges() + End If + End If + End Sub + + Private Sub SplitContainer1_Panel2_Paint(ByVal sender As System.Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles SplitContainer1.Panel2.Paint + + End Sub + + Private Sub 냉동기종류ComboBox_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 냉동기종류ComboBox.SelectedIndexChanged + Validate_Control() + End Sub + + Private Sub cmb_열생산연결방식_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles cmb_열생산연결방식.SelectedIndexChanged + Validate_Control() + End Sub + + Private Sub dv_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles dv.MouseUp + If Prj.UserAuthType = "ADMIN" OrElse Prj.UserAuthType = "BOTH" OrElse Prj.UserAuthType = "BOTH2" OrElse Prj.UserAuthType = "BOTH1" Then '//2011.03.08 추가 + If e.Button = Windows.Forms.MouseButtons.Right Then + Dim Frm_FilterA As New Frm_Filter + Frm_FilterA.ColumTitle = getColCaption(Me.Dt) + Frm_FilterA.ColumList = getColName(Me.Dt) + Frm_FilterA.Colorlist = "온수열생산기기,연결된시스템" + Frm_FilterA.Numfield = "" '//20100618 Color 리스트처럼 , 구분해서 필드들을 모두 넣으세요.(=, >= 등을 사용하기 위해서는 해당 항목을 추가 요망) + Frm_FilterA.Default_Filter = "code <> '0'" + + If Frm_FilterA.ShowDialog <> Windows.Forms.DialogResult.OK Then Return '//창떳을떄 확인아ㅣ고 취소눌르면 다음을 수행하지않는다는거에요. + Dim Filter As String = Frm_FilterA.tb_filter.Text '//값은 아까 그 텍박에 잇구요. + Try + Me.bs.Filter = Filter + + '//바꾸기값이 있으면 변경 20100618 + If Frm_FilterA.cmb_fieldc.SelectedIndex >= 0 AndAlso Frm_FilterA.cmb_fieldc.Text.ToLower <> "code" AndAlso _ + Frm_FilterA.tb_valuec.Text <> "" Then + Dim Drow() As DataRow = Me.Dt.Select(Filter) + For Each Dr As DataRow In Drow + Dr(Frm_FilterA.cmb_fieldc.Text) = Frm_FilterA.tb_valuec.Text + Next + MsgBox("바꾸기 완료", MsgBoxStyle.Information, "확인") + End If + + Catch ex As Exception + Me.bs.Filter = "" + End Try + End If + End If + End Sub + + Private Sub dv_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles dv.KeyDown + '//여기보시면 alt+d 누르면 한줄을 경고없이(falsE)삭제하도록 햇어요.. 사실원래 밋alt +d 인데.. ㅎㅎ 잘못해서 ctrl 됫다는 + If Prj.UserAuthType = "ADMIN" OrElse Prj.UserAuthType = "BOTH" OrElse Prj.UserAuthType = "BOTH2" OrElse Prj.UserAuthType = "BOTH1" Then '//2011.03.08 추가 + Select Case e.KeyCode + Case Keys.D + If e.Alt Then + Dbbase.DelCrow(Me.bs, False) + End If + Case Keys.C + If e.Control Then + Me.SrcDrv = Me.bs.Current + If Me.SrcDrv Is Nothing Then + MsgBox("저장할 ROW가 없습니다", MsgBoxStyle.Information, "확인") + Return + End If + ' My.Computer.Clipboard.SetData("ZDATA", Drv) + End If + Case Keys.V + If e.Control Then + If Me.SrcDrv Is Nothing Then Return + Me.bt_add.PerformClick() '//신규추가 + Dim NewDrv As DataRowView = Me.bs.Current + + For Each C As DataColumn In Me.Dt.Columns + If C.ColumnName.ToUpper = "CODE" Then + ElseIf C.ColumnName.ToUpper = "설명" Then + NewDrv(C.ColumnName) = SrcDrv(C.ColumnName) & "#1" + Else + NewDrv(C.ColumnName) = SrcDrv(C.ColumnName) + End If + Next + Me.bs.EndEdit() + bs.MoveLast() + End If + End Select + End If + End Sub + + Private Sub dv_CellContentClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles dv.CellContentClick + + End Sub +End Class \ No newline at end of file diff --git a/ArinWarev1/Forms/v20091231/Frm_v20091231_Nanbang.Designer.vb b/ArinWarev1/Forms/v20091231/Frm_v20091231_Nanbang.Designer.vb new file mode 100644 index 0000000..ed05d18 --- /dev/null +++ b/ArinWarev1/Forms/v20091231/Frm_v20091231_Nanbang.Designer.vb @@ -0,0 +1,1833 @@ + _ +Partial Class Frm_V20091231_Nanbang + Inherits MMM.FaderForm + + 'Form은 Dispose를 재정의하여 구성 요소 목록을 정리합니다. + _ + Protected Overrides Sub Dispose(ByVal disposing As Boolean) + Try + If disposing AndAlso components IsNot Nothing Then + components.Dispose() + End If + Finally + MyBase.Dispose(disposing) + End Try + End Sub + + 'Windows Form 디자이너에 필요합니다. + Private components As System.ComponentModel.IContainer + + '참고: 다음 프로시저는 Windows Form 디자이너에 필요합니다. + '수정하려면 Windows Form 디자이너를 사용하십시오. + '코드 편집기를 사용하여 수정하지 마십시오. + _ + Private Sub InitializeComponent() + Me.components = New System.ComponentModel.Container + Dim Label165 As System.Windows.Forms.Label + Dim Label166 As System.Windows.Forms.Label + Dim Label181 As System.Windows.Forms.Label + Dim Label185 As System.Windows.Forms.Label + Dim Label186 As System.Windows.Forms.Label + Dim Label188 As System.Windows.Forms.Label + Dim Label182 As System.Windows.Forms.Label + Dim Label180 As System.Windows.Forms.Label + Dim Label184 As System.Windows.Forms.Label + Dim Label190 As System.Windows.Forms.Label + Dim Label193 As System.Windows.Forms.Label + Dim Label192 As System.Windows.Forms.Label + Dim Label194 As System.Windows.Forms.Label + Dim Label195 As System.Windows.Forms.Label + Dim Label196 As System.Windows.Forms.Label + Dim Label2 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 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 Label1 As System.Windows.Forms.Label + Dim Label17 As System.Windows.Forms.Label + Dim Label16 As System.Windows.Forms.Label + Dim Label19 As System.Windows.Forms.Label + Dim Label20 As System.Windows.Forms.Label + Dim Label27 As System.Windows.Forms.Label + Dim Label28 As System.Windows.Forms.Label + Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(Frm_V20091231_Nanbang)) + Me.GroupBox2 = New System.Windows.Forms.GroupBox + Me.tb_보일러대수다수 = New Eco2Ar.MyTb + Me.bs = New System.Windows.Forms.BindingSource(Me.components) + Me.DS = New Eco2Ar.DS + Me.Label50 = New System.Windows.Forms.Label + Me.운전방식NCMB = New Eco2Ar.MyCmb + Me.PictureBox2 = New System.Windows.Forms.PictureBox + Me.GroupBox1 = New System.Windows.Forms.GroupBox + Me.열교환기정격출력NTb = New Eco2Ar.MyTb + Me.Label21 = New System.Windows.Forms.Label + Me.보일러정격출력NTb = New Eco2Ar.MyTb + Me.환수온도NTb1 = New Eco2Ar.MyTb + Me.급수온도NTb1 = New Eco2Ar.MyTb + Me.사용연료NCMB = New Eco2Ar.MyCmb + Me.열생산기기방식NCMB = New Eco2Ar.MyCmb + Me.PictureBox1 = New System.Windows.Forms.PictureBox + Me.GroupBox5 = New System.Windows.Forms.GroupBox + Me.cmb_히트펌프시스템종류 = New Eco2Ar.MyCmb + Me.tb_히트길이 = New Eco2Ar.MyTb + Me.cmb_히트사용연료 = New Eco2Ar.MyCmb + Me.tb_히트정격10 = New Eco2Ar.MyTb + Me.tb_히트정격7 = New Eco2Ar.MyTb + Me.tb_히트용량 = New Eco2Ar.MyTb + Me.PictureBox9 = New System.Windows.Forms.PictureBox + Me.Label189 = New System.Windows.Forms.Label + Me.GroupBox7 = New System.Windows.Forms.GroupBox + Me.축열탱크방식NCMB = New Eco2Ar.MyCmb + Me.MyTb1 = New Eco2Ar.MyTb + Me.축열제척NTb = New Eco2Ar.MyTb + Me.PictureBox10 = New System.Windows.Forms.PictureBox + Me.GroupBox8 = New System.Windows.Forms.GroupBox + Me.배관망유형ComboBox = New Eco2Ar.MyCmb + Me.펌프제어유형ComboBox = New Eco2Ar.MyCmb + Me.펌프동력NTb = New Eco2Ar.MyTb + Me.펌프교정계수ComboBox = New Eco2Ar.MyCmb + Me.PictureBox16 = New System.Windows.Forms.PictureBox + Me.GroupBox10 = New System.Windows.Forms.GroupBox + Me.분배시스템방식ComboBox = New Eco2Ar.MyCmb + Me.펌프동력급탕NTb = New Eco2Ar.MyTb + Me.펌프제어ComboBox = New Eco2Ar.MyCmb + Me.순환유무ComboBox = New Eco2Ar.MyCmb + Me.PictureBox11 = New System.Windows.Forms.PictureBox + Me.GroupBox9 = New System.Windows.Forms.GroupBox + Me.RadioButton2 = New System.Windows.Forms.RadioButton + Me.RadioButton1 = New System.Windows.Forms.RadioButton + Me.열공급층수NTb = New Eco2Ar.MyTb + Me.건물넓이NTb = New Eco2Ar.MyTb + Me.급탕배관길이NTB = New Eco2Ar.MyTb + Me.건물길이NTb = New Eco2Ar.MyTb + Me.층고NTb = New Eco2Ar.MyTb + Me.PictureBox12 = New System.Windows.Forms.PictureBox + Me.GroupBox39 = New System.Windows.Forms.GroupBox + Me.Label22 = New System.Windows.Forms.Label + Me.cmb_신재생 = New Eco2Ar.MyCmb + Me.신재생연결여부ComboBox = New Eco2Ar.MyCmb + Me.PictureBox17 = New System.Windows.Forms.PictureBox + Me.SplitContainer1 = New System.Windows.Forms.SplitContainer + Me.dv = New CEnergy.arindv + Me.DataGridViewTextBoxColumn1 = New System.Windows.Forms.DataGridViewTextBoxColumn + 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 + Me.bt_Del = New System.Windows.Forms.ToolStripButton + Me.bt_cancel = New System.Windows.Forms.ToolStripButton + Me.ToolStripSeparator1 = New System.Windows.Forms.ToolStripSeparator + Me.lbl_pos = New System.Windows.Forms.ToolStripLabel + Me.Label30 = New System.Windows.Forms.Label + Me.PictureBox6 = New System.Windows.Forms.PictureBox + Me.Label18 = New System.Windows.Forms.Label + Me.PictureBox15 = New System.Windows.Forms.PictureBox + Me.Label26 = New System.Windows.Forms.Label + Me.PictureBox14 = New System.Windows.Forms.PictureBox + Me.Label29 = New System.Windows.Forms.Label + Me.PictureBox5 = New System.Windows.Forms.PictureBox + Me.Label24 = New System.Windows.Forms.Label + Me.Label25 = New System.Windows.Forms.Label + Me.PictureBox3 = New System.Windows.Forms.PictureBox + Me.PictureBox13 = New System.Windows.Forms.PictureBox + Me.Label23 = New System.Windows.Forms.Label + Me.PictureBox4 = New System.Windows.Forms.PictureBox + Me.GroupBox4 = New System.Windows.Forms.GroupBox + Me.단열등급NCMB = New Eco2Ar.MyCmb + Me.지역난방방식NCMB = New Eco2Ar.MyCmb + Me.PictureBox7 = New System.Windows.Forms.PictureBox + Me.GroupBox3 = New System.Windows.Forms.GroupBox + Me.보일러방식NCMB = New Eco2Ar.MyCmb + Me.정격보일러효율NTb = New Eco2Ar.MyTb + Me.PictureBox8 = New System.Windows.Forms.PictureBox + Me.ToolStrip1 = New System.Windows.Forms.ToolStrip + Me.ToolStripLabel1 = New System.Windows.Forms.ToolStripLabel + Me.lbl_cnt1 = New System.Windows.Forms.ToolStripLabel + Me.ToolStripLabel3 = New System.Windows.Forms.ToolStripLabel + Me.lbl_cnt2 = New System.Windows.Forms.ToolStripLabel + Label165 = New System.Windows.Forms.Label + Label166 = New System.Windows.Forms.Label + Label181 = New System.Windows.Forms.Label + Label185 = New System.Windows.Forms.Label + Label186 = New System.Windows.Forms.Label + Label188 = New System.Windows.Forms.Label + Label182 = New System.Windows.Forms.Label + Label180 = New System.Windows.Forms.Label + Label184 = New System.Windows.Forms.Label + Label190 = New System.Windows.Forms.Label + Label193 = New System.Windows.Forms.Label + Label192 = New System.Windows.Forms.Label + Label194 = New System.Windows.Forms.Label + Label195 = New System.Windows.Forms.Label + Label196 = New System.Windows.Forms.Label + Label2 = 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 + 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 + Label1 = New System.Windows.Forms.Label + Label17 = New System.Windows.Forms.Label + Label16 = New System.Windows.Forms.Label + Label19 = New System.Windows.Forms.Label + Label20 = New System.Windows.Forms.Label + Label27 = New System.Windows.Forms.Label + Label28 = New System.Windows.Forms.Label + CType(Me.ErrProvider, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.bsmain, System.ComponentModel.ISupportInitialize).BeginInit() + Me.GroupBox2.SuspendLayout() + CType(Me.bs, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.DS, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.PictureBox2, System.ComponentModel.ISupportInitialize).BeginInit() + Me.GroupBox1.SuspendLayout() + CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit() + Me.GroupBox5.SuspendLayout() + CType(Me.PictureBox9, System.ComponentModel.ISupportInitialize).BeginInit() + Me.GroupBox7.SuspendLayout() + CType(Me.PictureBox10, System.ComponentModel.ISupportInitialize).BeginInit() + Me.GroupBox8.SuspendLayout() + CType(Me.PictureBox16, System.ComponentModel.ISupportInitialize).BeginInit() + Me.GroupBox10.SuspendLayout() + CType(Me.PictureBox11, System.ComponentModel.ISupportInitialize).BeginInit() + Me.GroupBox9.SuspendLayout() + CType(Me.PictureBox12, System.ComponentModel.ISupportInitialize).BeginInit() + Me.GroupBox39.SuspendLayout() + CType(Me.PictureBox17, System.ComponentModel.ISupportInitialize).BeginInit() + Me.SplitContainer1.Panel1.SuspendLayout() + Me.SplitContainer1.Panel2.SuspendLayout() + Me.SplitContainer1.SuspendLayout() + CType(Me.dv, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.bn, System.ComponentModel.ISupportInitialize).BeginInit() + Me.bn.SuspendLayout() + CType(Me.PictureBox6, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.PictureBox15, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.PictureBox14, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.PictureBox5, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.PictureBox3, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.PictureBox13, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.PictureBox4, System.ComponentModel.ISupportInitialize).BeginInit() + Me.GroupBox4.SuspendLayout() + CType(Me.PictureBox7, System.ComponentModel.ISupportInitialize).BeginInit() + Me.GroupBox3.SuspendLayout() + CType(Me.PictureBox8, System.ComponentModel.ISupportInitialize).BeginInit() + Me.ToolStrip1.SuspendLayout() + Me.SuspendLayout() + ' + 'Label165 + ' + Label165.AutoSize = True + Label165.BackColor = System.Drawing.Color.FromArgb(CType(CType(219, Byte), Integer), CType(CType(221, Byte), Integer), CType(CType(223, Byte), Integer)) + Label165.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label165.Location = New System.Drawing.Point(4, 44) + Label165.Name = "Label165" + Label165.Size = New System.Drawing.Size(55, 14) + Label165.TabIndex = 10 + Label165.Text = "사용연료:" + ' + 'Label166 + ' + Label166.AutoSize = True + Label166.BackColor = System.Drawing.Color.FromArgb(CType(CType(219, Byte), Integer), CType(CType(221, Byte), Integer), CType(CType(223, Byte), Integer)) + Label166.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label166.Location = New System.Drawing.Point(4, 17) + Label166.Name = "Label166" + Label166.Size = New System.Drawing.Size(102, 14) + Label166.TabIndex = 8 + Label166.Text = "열생산기기의 방식:" + Label166.TextAlign = System.Drawing.ContentAlignment.MiddleRight + ' + 'Label181 + ' + Label181.AutoSize = True + Label181.BackColor = System.Drawing.Color.FromArgb(CType(CType(219, Byte), Integer), CType(CType(221, Byte), Integer), CType(CType(223, Byte), Integer)) + Label181.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label181.Location = New System.Drawing.Point(195, 17) + Label181.Name = "Label181" + Label181.Size = New System.Drawing.Size(96, 14) + Label181.TabIndex = 10 + Label181.Text = "보일러-용량[kW]:" + Label181.TextAlign = System.Drawing.ContentAlignment.MiddleLeft + ' + 'Label185 + ' + Label185.AutoSize = True + Label185.BackColor = System.Drawing.Color.FromArgb(CType(CType(219, Byte), Integer), CType(CType(221, Byte), Integer), CType(CType(223, Byte), Integer)) + Label185.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label185.Location = New System.Drawing.Point(4, 66) + Label185.Name = "Label185" + Label185.Size = New System.Drawing.Size(71, 14) + Label185.TabIndex = 18 + Label185.Text = "급수온도[C]:" + ' + 'Label186 + ' + Label186.AutoSize = True + Label186.BackColor = System.Drawing.Color.FromArgb(CType(CType(219, Byte), Integer), CType(CType(221, Byte), Integer), CType(CType(223, Byte), Integer)) + Label186.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label186.Location = New System.Drawing.Point(4, 94) + Label186.Name = "Label186" + Label186.Size = New System.Drawing.Size(71, 14) + Label186.TabIndex = 20 + Label186.Text = "환수온도[C]:" + ' + 'Label188 + ' + Label188.BackColor = System.Drawing.Color.FromArgb(CType(CType(219, Byte), Integer), CType(CType(221, Byte), Integer), CType(CType(223, Byte), Integer)) + Label188.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label188.Location = New System.Drawing.Point(193, 74) + Label188.Name = "Label188" + Label188.Size = New System.Drawing.Size(99, 31) + Label188.TabIndex = 24 + Label188.Text = "지역난방 열교환기 정격용량[kW]:" + Label188.TextAlign = System.Drawing.ContentAlignment.MiddleCenter + ' + 'Label182 + ' + Label182.AutoSize = True + Label182.BackColor = System.Drawing.Color.FromArgb(CType(CType(219, Byte), Integer), CType(CType(221, Byte), Integer), CType(CType(223, Byte), Integer)) + Label182.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label182.Location = New System.Drawing.Point(6, 69) + Label182.Name = "Label182" + Label182.Size = New System.Drawing.Size(109, 28) + Label182.TabIndex = 20 + Label182.Text = " 보일러 대수:" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "(다수 보일러인 경우)" + Label182.TextAlign = System.Drawing.ContentAlignment.MiddleLeft + ' + 'Label180 + ' + Label180.AutoSize = True + Label180.BackColor = System.Drawing.Color.FromArgb(CType(CType(219, Byte), Integer), CType(CType(221, Byte), Integer), CType(CType(223, Byte), Integer)) + Label180.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label180.Location = New System.Drawing.Point(15, 35) + Label180.Name = "Label180" + Label180.Size = New System.Drawing.Size(76, 28) + Label180.TabIndex = 20 + Label180.Text = "난방생산기기 " & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & " 운전방식:" + ' + 'Label184 + ' + Label184.AutoSize = True + Label184.BackColor = System.Drawing.Color.FromArgb(CType(CType(243, Byte), Integer), CType(CType(244, Byte), Integer), CType(CType(246, Byte), Integer)) + Label184.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label184.Location = New System.Drawing.Point(4, 26) + Label184.Name = "Label184" + Label184.Size = New System.Drawing.Size(87, 14) + Label184.TabIndex = 125 + Label184.Text = "보일러효율[%]:" + ' + 'Label190 + ' + Label190.AutoSize = True + Label190.BackColor = System.Drawing.Color.FromArgb(CType(CType(243, Byte), Integer), CType(CType(244, Byte), Integer), CType(CType(246, Byte), Integer)) + Label190.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label190.Location = New System.Drawing.Point(4, 79) + Label190.Name = "Label190" + Label190.Size = New System.Drawing.Size(69, 14) + Label190.TabIndex = 125 + Label190.Text = "보일러 방식:" + Label190.TextAlign = System.Drawing.ContentAlignment.MiddleLeft + ' + 'Label193 + ' + Label193.AutoSize = True + Label193.BackColor = System.Drawing.Color.FromArgb(CType(CType(243, Byte), Integer), CType(CType(244, Byte), Integer), CType(CType(246, Byte), Integer)) + Label193.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label193.Location = New System.Drawing.Point(10, 52) + Label193.Name = "Label193" + Label193.Size = New System.Drawing.Size(91, 14) + Label193.TabIndex = 125 + Label193.Text = "기계실 단열등급:" + Label193.TextAlign = System.Drawing.ContentAlignment.MiddleLeft + ' + 'Label192 + ' + Label192.AutoSize = True + Label192.BackColor = System.Drawing.Color.FromArgb(CType(CType(243, Byte), Integer), CType(CType(244, Byte), Integer), CType(CType(246, Byte), Integer)) + Label192.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label192.Location = New System.Drawing.Point(21, 26) + Label192.Name = "Label192" + Label192.Size = New System.Drawing.Size(80, 14) + Label192.TabIndex = 125 + Label192.Text = "지역난방 방식:" + Label192.TextAlign = System.Drawing.ContentAlignment.MiddleLeft + ' + 'Label194 + ' + Label194.AutoSize = True + Label194.BackColor = System.Drawing.Color.FromArgb(CType(CType(219, Byte), Integer), CType(CType(221, Byte), Integer), CType(CType(223, Byte), Integer)) + Label194.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label194.Location = New System.Drawing.Point(5, 26) + Label194.Name = "Label194" + Label194.Size = New System.Drawing.Size(80, 14) + Label194.TabIndex = 125 + Label194.Text = "축열탱크 방식:" + Label194.TextAlign = System.Drawing.ContentAlignment.MiddleLeft + ' + 'Label195 + ' + Label195.AutoSize = True + Label195.BackColor = System.Drawing.Color.FromArgb(CType(CType(219, Byte), Integer), CType(CType(221, Byte), Integer), CType(CType(223, Byte), Integer)) + Label195.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label195.Location = New System.Drawing.Point(5, 87) + Label195.Name = "Label195" + Label195.Size = New System.Drawing.Size(100, 14) + Label195.TabIndex = 125 + Label195.Text = "펌프 정격동력[W]:" + Label195.TextAlign = System.Drawing.ContentAlignment.MiddleLeft + ' + 'Label196 + ' + Label196.AutoSize = True + Label196.BackColor = System.Drawing.Color.FromArgb(CType(CType(219, Byte), Integer), CType(CType(221, Byte), Integer), CType(CType(223, Byte), Integer)) + Label196.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label196.Location = New System.Drawing.Point(5, 59) + Label196.Name = "Label196" + Label196.Size = New System.Drawing.Size(102, 14) + Label196.TabIndex = 125 + Label196.Text = "축열탱크의 용량[l]:" + Label196.TextAlign = System.Drawing.ContentAlignment.MiddleLeft + ' + 'Label2 + ' + Label2.AutoSize = True + Label2.BackColor = System.Drawing.Color.FromArgb(CType(CType(243, Byte), Integer), CType(CType(244, Byte), Integer), CType(CType(246, Byte), Integer)) + Label2.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label2.Location = New System.Drawing.Point(7, 18) + Label2.Name = "Label2" + Label2.Size = New System.Drawing.Size(155, 14) + Label2.TabIndex = 8 + Label2.Text = "＊배관망-유형(이중배관고정):" + ' + 'Label3 + ' + Label3.AutoSize = True + Label3.BackColor = System.Drawing.Color.FromArgb(CType(CType(243, Byte), Integer), CType(CType(244, Byte), Integer), CType(CType(246, Byte), Integer)) + Label3.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label3.Location = New System.Drawing.Point(7, 96) + Label3.Name = "Label3" + Label3.Size = New System.Drawing.Size(163, 14) + Label3.TabIndex = 14 + Label3.Text = "＊펌프동력(다수는 동력합)[W]:" + ' + 'Label4 + ' + Label4.AutoSize = True + Label4.BackColor = System.Drawing.Color.FromArgb(CType(CType(243, Byte), Integer), CType(CType(244, Byte), Integer), CType(CType(246, Byte), Integer)) + Label4.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label4.Location = New System.Drawing.Point(7, 70) + Label4.Name = "Label4" + Label4.Size = New System.Drawing.Size(88, 14) + Label4.TabIndex = 12 + Label4.Text = "＊펌프제어유형:" + ' + 'Label5 + ' + 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, 44) + Label5.Name = "Label5" + Label5.Size = New System.Drawing.Size(144, 14) + Label5.TabIndex = 10 + Label5.Text = "＊펌프감소계수(야간,주말):" + ' + 'Label6 + ' + Label6.AutoSize = True + Label6.BackColor = System.Drawing.Color.FromArgb(CType(CType(219, Byte), Integer), CType(CType(221, Byte), Integer), CType(CType(223, Byte), Integer)) + Label6.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label6.Location = New System.Drawing.Point(7, 49) + Label6.Name = "Label6" + Label6.Size = New System.Drawing.Size(63, 14) + Label6.TabIndex = 18 + Label6.Text = "순환 유/무:" + ' + 'Label7 + ' + Label7.AutoSize = True + Label7.BackColor = System.Drawing.Color.FromArgb(CType(CType(219, Byte), Integer), CType(CType(221, Byte), Integer), CType(CType(223, Byte), Integer)) + Label7.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label7.Location = New System.Drawing.Point(7, 28) + Label7.Name = "Label7" + Label7.Size = New System.Drawing.Size(66, 14) + Label7.TabIndex = 16 + Label7.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(7, 96) + Label8.Name = "Label8" + Label8.Size = New System.Drawing.Size(78, 14) + Label8.TabIndex = 22 + Label8.Text = "펌프 동력[W]:" + ' + '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(7, 73) + Label9.Name = "Label9" + Label9.Size = New System.Drawing.Size(55, 14) + Label9.TabIndex = 20 + Label9.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, 34) + Label10.Name = "Label10" + Label10.Size = New System.Drawing.Size(52, 14) + Label10.TabIndex = 24 + Label10.Text = "길이[m]:" + ' + 'Label11 + ' + 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(107, 56) + Label11.Name = "Label11" + Label11.Size = New System.Drawing.Size(52, 14) + Label11.TabIndex = 30 + Label11.Text = "층고[m]:" + ' + 'Label12 + ' + Label12.AutoSize = True + Label12.BackColor = System.Drawing.Color.FromArgb(CType(CType(219, Byte), Integer), CType(CType(221, Byte), Integer), CType(CType(223, Byte), Integer)) + Label12.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label12.Location = New System.Drawing.Point(6, 56) + Label12.Name = "Label12" + Label12.Size = New System.Drawing.Size(52, 14) + Label12.TabIndex = 26 + Label12.Text = "너비[m]:" + ' + 'Label13 + ' + Label13.AutoSize = True + Label13.BackColor = System.Drawing.Color.FromArgb(CType(CType(219, Byte), Integer), CType(CType(221, Byte), Integer), CType(CType(223, Byte), Integer)) + Label13.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label13.Location = New System.Drawing.Point(123, 33) + Label13.Name = "Label13" + Label13.Size = New System.Drawing.Size(36, 14) + Label13.TabIndex = 28 + Label13.Text = "층 수:" + ' + 'Label14 + ' + Label14.AutoSize = True + Label14.BackColor = System.Drawing.Color.FromArgb(CType(CType(243, Byte), Integer), CType(CType(244, Byte), Integer), CType(CType(246, Byte), Integer)) + Label14.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label14.Location = New System.Drawing.Point(6, 40) + Label14.Name = "Label14" + Label14.Size = New System.Drawing.Size(134, 14) + Label14.TabIndex = 32 + Label14.Text = "-신재생 시스템 연결 여부:" + ' + 'Label15 + ' + Label15.AutoSize = True + Label15.BackColor = System.Drawing.Color.FromArgb(CType(CType(243, Byte), Integer), CType(CType(244, Byte), Integer), CType(CType(246, Byte), Integer)) + Label15.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label15.Location = New System.Drawing.Point(8, 65) + Label15.Name = "Label15" + Label15.Size = New System.Drawing.Size(84, 14) + Label15.TabIndex = 34 + Label15.Text = "-연결된 시스템:" + ' + 'Label1 + ' + Label1.AutoSize = True + Label1.BackColor = System.Drawing.Color.FromArgb(CType(CType(243, Byte), Integer), CType(CType(244, Byte), Integer), CType(CType(246, Byte), Integer)) + Label1.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label1.Location = New System.Drawing.Point(82, 21) + Label1.Name = "Label1" + Label1.Size = New System.Drawing.Size(58, 14) + Label1.TabIndex = 125 + Label1.Text = "사용연료 :" + Label1.TextAlign = System.Drawing.ContentAlignment.MiddleCenter + ' + 'Label17 + ' + Label17.AutoSize = True + Label17.BackColor = System.Drawing.Color.FromArgb(CType(CType(243, Byte), Integer), CType(CType(244, Byte), Integer), CType(CType(246, Byte), Integer)) + Label17.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label17.Location = New System.Drawing.Point(7, 38) + Label17.Name = "Label17" + Label17.Size = New System.Drawing.Size(147, 14) + Label17.TabIndex = 125 + Label17.Text = "난방용량(다수는 평균)[kW]:" + Label17.TextAlign = System.Drawing.ContentAlignment.MiddleLeft + ' + 'Label16 + ' + Label16.AutoSize = True + Label16.BackColor = System.Drawing.Color.FromArgb(CType(CType(243, Byte), Integer), CType(CType(244, Byte), Integer), CType(CType(246, Byte), Integer)) + Label16.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label16.Location = New System.Drawing.Point(7, 61) + Label16.Name = "Label16" + Label16.Size = New System.Drawing.Size(127, 14) + Label16.TabIndex = 125 + Label16.Text = "히트펌프난방COP(7도):" + Label16.TextAlign = System.Drawing.ContentAlignment.MiddleLeft + ' + 'Label19 + ' + Label19.AutoSize = True + Label19.BackColor = System.Drawing.Color.FromArgb(CType(CType(243, Byte), Integer), CType(CType(244, Byte), Integer), CType(CType(246, Byte), Integer)) + Label19.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label19.Location = New System.Drawing.Point(7, 84) + Label19.Name = "Label19" + Label19.Size = New System.Drawing.Size(138, 14) + Label19.TabIndex = 125 + Label19.Text = "히트펌프난방COP(-10도):" + Label19.TextAlign = System.Drawing.ContentAlignment.MiddleLeft + ' + 'Label20 + ' + Label20.AutoSize = True + Label20.BackColor = System.Drawing.Color.FromArgb(CType(CType(243, Byte), Integer), CType(CType(244, Byte), Integer), CType(CType(246, Byte), Integer)) + Label20.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label20.Location = New System.Drawing.Point(7, 107) + Label20.Name = "Label20" + Label20.Size = New System.Drawing.Size(154, 14) + Label20.TabIndex = 125 + Label20.Text = "실내외기의 최대배관길이[m]:" + Label20.TextAlign = System.Drawing.ContentAlignment.MiddleLeft + ' + 'Label27 + ' + Label27.AutoSize = True + Label27.BackColor = System.Drawing.Color.FromArgb(CType(CType(243, Byte), Integer), CType(CType(244, Byte), Integer), CType(CType(246, Byte), Integer)) + Label27.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label27.Location = New System.Drawing.Point(7, 130) + Label27.Name = "Label27" + Label27.Size = New System.Drawing.Size(69, 14) + Label27.TabIndex = 125 + Label27.Text = "시스템 종류:" + Label27.TextAlign = System.Drawing.ContentAlignment.MiddleLeft + ' + 'Label28 + ' + Label28.AutoSize = True + Label28.BackColor = System.Drawing.Color.FromArgb(CType(CType(219, Byte), Integer), CType(CType(221, Byte), Integer), CType(CType(223, Byte), Integer)) + Label28.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label28.Location = New System.Drawing.Point(8, 97) + Label28.Name = "Label28" + Label28.Size = New System.Drawing.Size(74, 14) + Label28.TabIndex = 24 + Label28.Text = "배관길이[m]:" + ' + 'GroupBox2 + ' + Me.GroupBox2.Controls.Add(Label182) + Me.GroupBox2.Controls.Add(Me.tb_보일러대수다수) + Me.GroupBox2.Controls.Add(Me.Label50) + Me.GroupBox2.Controls.Add(Label180) + Me.GroupBox2.Controls.Add(Me.운전방식NCMB) + Me.GroupBox2.Controls.Add(Me.PictureBox2) + Me.GroupBox2.Location = New System.Drawing.Point(387, 53) + Me.GroupBox2.Name = "GroupBox2" + Me.GroupBox2.Size = New System.Drawing.Size(206, 121) + Me.GroupBox2.TabIndex = 119 + Me.GroupBox2.TabStop = False + ' + 'tb_보일러대수다수 + ' + Me.tb_보일러대수다수.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bs, "보일러대수", True)) + Me.tb_보일러대수다수.Location = New System.Drawing.Point(116, 63) + Me.tb_보일러대수다수.Name = "tb_보일러대수다수" + Me.tb_보일러대수다수.NectControl = Nothing + Me.tb_보일러대수다수.Size = New System.Drawing.Size(76, 21) + Me.tb_보일러대수다수.TabIndex = 7 + Me.tb_보일러대수다수.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + ' + 'bs + ' + Me.bs.DataMember = "tbl_nanbangkiki" + Me.bs.DataSource = Me.DS + Me.bs.Filter = "code <> '0'" + ' + 'DS + ' + Me.DS.DataSetName = "DS" + Me.DS.SchemaSerializationMode = System.Data.SchemaSerializationMode.IncludeSchema + ' + 'Label50 + ' + Me.Label50.AutoSize = True + Me.Label50.BackColor = System.Drawing.Color.FromArgb(CType(CType(219, Byte), Integer), CType(CType(221, Byte), Integer), CType(CType(223, Byte), Integer)) + Me.Label50.ForeColor = System.Drawing.Color.DarkCyan + Me.Label50.Location = New System.Drawing.Point(5, 16) + Me.Label50.Name = "Label50" + Me.Label50.Size = New System.Drawing.Size(87, 14) + Me.Label50.TabIndex = 118 + Me.Label50.Text = "경계조건 표준치" + Me.Label50.TextAlign = System.Drawing.ContentAlignment.MiddleRight + ' + '운전방식NCMB + ' + Me.운전방식NCMB.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList + Me.운전방식NCMB.FormattingEnabled = True + Me.운전방식NCMB.Location = New System.Drawing.Point(116, 34) + Me.운전방식NCMB.Name = "운전방식NCMB" + Me.운전방식NCMB.NectControl = Nothing + Me.운전방식NCMB.Size = New System.Drawing.Size(76, 22) + Me.운전방식NCMB.TabIndex = 6 + ' + 'PictureBox2 + ' + Me.PictureBox2.BackColor = System.Drawing.Color.FromArgb(CType(CType(219, Byte), Integer), CType(CType(221, Byte), Integer), CType(CType(223, Byte), Integer)) + Me.PictureBox2.Location = New System.Drawing.Point(3, 9) + Me.PictureBox2.Name = "PictureBox2" + Me.PictureBox2.Size = New System.Drawing.Size(200, 109) + Me.PictureBox2.TabIndex = 119 + Me.PictureBox2.TabStop = False + ' + 'GroupBox1 + ' + Me.GroupBox1.Controls.Add(Me.열교환기정격출력NTb) + Me.GroupBox1.Controls.Add(Label185) + Me.GroupBox1.Controls.Add(Label188) + Me.GroupBox1.Controls.Add(Label186) + Me.GroupBox1.Controls.Add(Me.Label21) + Me.GroupBox1.Controls.Add(Label165) + Me.GroupBox1.Controls.Add(Label181) + Me.GroupBox1.Controls.Add(Me.보일러정격출력NTb) + Me.GroupBox1.Controls.Add(Me.환수온도NTb1) + Me.GroupBox1.Controls.Add(Label166) + Me.GroupBox1.Controls.Add(Me.급수온도NTb1) + Me.GroupBox1.Controls.Add(Me.사용연료NCMB) + Me.GroupBox1.Controls.Add(Me.열생산기기방식NCMB) + Me.GroupBox1.Controls.Add(Me.PictureBox1) + Me.GroupBox1.Location = New System.Drawing.Point(4, 53) + Me.GroupBox1.Name = "GroupBox1" + Me.GroupBox1.Size = New System.Drawing.Size(384, 121) + Me.GroupBox1.TabIndex = 2 + Me.GroupBox1.TabStop = False + ' + '열교환기정격출력NTb + ' + Me.열교환기정격출력NTb.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bs, "열교환기정격출력", True)) + Me.열교환기정격출력NTb.Location = New System.Drawing.Point(293, 79) + Me.열교환기정격출력NTb.Name = "열교환기정격출력NTb" + Me.열교환기정격출력NTb.NectControl = Nothing + Me.열교환기정격출력NTb.Size = New System.Drawing.Size(79, 21) + Me.열교환기정격출력NTb.TabIndex = 5 + Me.열교환기정격출력NTb.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + ' + 'Label21 + ' + Me.Label21.AutoSize = True + Me.Label21.BackColor = System.Drawing.Color.FromArgb(CType(CType(219, Byte), Integer), CType(CType(221, Byte), Integer), CType(CType(223, Byte), Integer)) + Me.Label21.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Me.Label21.Location = New System.Drawing.Point(190, 42) + Me.Label21.Name = "Label21" + Me.Label21.Size = New System.Drawing.Size(189, 14) + Me.Label21.TabIndex = 2 + Me.Label21.Text = "(※다수 보일러인 경우 평균정격용량)" + ' + '보일러정격출력NTb + ' + Me.보일러정격출력NTb.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bs, "보일러정격출력", True)) + Me.보일러정격출력NTb.Location = New System.Drawing.Point(293, 14) + Me.보일러정격출력NTb.Name = "보일러정격출력NTb" + Me.보일러정격출력NTb.NectControl = Nothing + Me.보일러정격출력NTb.Size = New System.Drawing.Size(79, 21) + Me.보일러정격출력NTb.TabIndex = 4 + Me.보일러정격출력NTb.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + ' + '환수온도NTb1 + ' + Me.환수온도NTb1.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bs, "환수온도", True)) + Me.환수온도NTb1.Location = New System.Drawing.Point(108, 91) + Me.환수온도NTb1.Name = "환수온도NTb1" + Me.환수온도NTb1.NectControl = Nothing + Me.환수온도NTb1.Size = New System.Drawing.Size(79, 21) + Me.환수온도NTb1.TabIndex = 3 + Me.환수온도NTb1.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + ' + '급수온도NTb1 + ' + Me.급수온도NTb1.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bs, "급수온도", True)) + Me.급수온도NTb1.Location = New System.Drawing.Point(108, 66) + Me.급수온도NTb1.Name = "급수온도NTb1" + Me.급수온도NTb1.NectControl = Nothing + Me.급수온도NTb1.Size = New System.Drawing.Size(79, 21) + Me.급수온도NTb1.TabIndex = 2 + Me.급수온도NTb1.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + ' + '사용연료NCMB + ' + Me.사용연료NCMB.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList + Me.사용연료NCMB.FormattingEnabled = True + Me.사용연료NCMB.Location = New System.Drawing.Point(108, 39) + Me.사용연료NCMB.Name = "사용연료NCMB" + Me.사용연료NCMB.NectControl = Nothing + Me.사용연료NCMB.Size = New System.Drawing.Size(79, 22) + Me.사용연료NCMB.TabIndex = 1 + ' + '열생산기기방식NCMB + ' + Me.열생산기기방식NCMB.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList + Me.열생산기기방식NCMB.FormattingEnabled = True + Me.열생산기기방식NCMB.Location = New System.Drawing.Point(108, 14) + Me.열생산기기방식NCMB.Name = "열생산기기방식NCMB" + Me.열생산기기방식NCMB.NectControl = Nothing + Me.열생산기기방식NCMB.Size = New System.Drawing.Size(79, 22) + Me.열생산기기방식NCMB.TabIndex = 0 + ' + 'PictureBox1 + ' + 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(3, 9) + Me.PictureBox1.Name = "PictureBox1" + Me.PictureBox1.Size = New System.Drawing.Size(378, 109) + Me.PictureBox1.TabIndex = 119 + Me.PictureBox1.TabStop = False + ' + 'GroupBox5 + ' + Me.GroupBox5.Controls.Add(Me.cmb_히트펌프시스템종류) + Me.GroupBox5.Controls.Add(Label1) + Me.GroupBox5.Controls.Add(Me.tb_히트길이) + Me.GroupBox5.Controls.Add(Me.cmb_히트사용연료) + Me.GroupBox5.Controls.Add(Label19) + Me.GroupBox5.Controls.Add(Me.tb_히트정격10) + Me.GroupBox5.Controls.Add(Me.tb_히트정격7) + Me.GroupBox5.Controls.Add(Me.tb_히트용량) + Me.GroupBox5.Controls.Add(Label17) + Me.GroupBox5.Controls.Add(Label27) + Me.GroupBox5.Controls.Add(Label20) + Me.GroupBox5.Controls.Add(Label16) + Me.GroupBox5.Controls.Add(Me.PictureBox9) + Me.GroupBox5.Location = New System.Drawing.Point(362, 203) + Me.GroupBox5.Name = "GroupBox5" + Me.GroupBox5.Size = New System.Drawing.Size(231, 155) + Me.GroupBox5.TabIndex = 2 + Me.GroupBox5.TabStop = False + ' + 'cmb_히트펌프시스템종류 + ' + 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(158, 127) + Me.cmb_히트펌프시스템종류.Name = "cmb_히트펌프시스템종류" + Me.cmb_히트펌프시스템종류.NectControl = Nothing + Me.cmb_히트펌프시스템종류.Size = New System.Drawing.Size(69, 22) + Me.cmb_히트펌프시스템종류.TabIndex = 17 + ' + 'tb_히트길이 + ' + Me.tb_히트길이.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bs, "히트배관길이", True)) + Me.tb_히트길이.Location = New System.Drawing.Point(158, 104) + Me.tb_히트길이.Name = "tb_히트길이" + Me.tb_히트길이.NectControl = Nothing + Me.tb_히트길이.Size = New System.Drawing.Size(69, 21) + Me.tb_히트길이.TabIndex = 16 + Me.tb_히트길이.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + ' + 'cmb_히트사용연료 + ' + 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(158, 15) + Me.cmb_히트사용연료.Name = "cmb_히트사용연료" + Me.cmb_히트사용연료.NectControl = Nothing + Me.cmb_히트사용연료.Size = New System.Drawing.Size(69, 22) + Me.cmb_히트사용연료.TabIndex = 12 + ' + 'tb_히트정격10 + ' + Me.tb_히트정격10.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bs, "히트난방정격10", True)) + Me.tb_히트정격10.Location = New System.Drawing.Point(158, 82) + Me.tb_히트정격10.Name = "tb_히트정격10" + Me.tb_히트정격10.NectControl = Nothing + Me.tb_히트정격10.Size = New System.Drawing.Size(69, 21) + Me.tb_히트정격10.TabIndex = 15 + Me.tb_히트정격10.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + ' + 'tb_히트정격7 + ' + Me.tb_히트정격7.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bs, "히트난방정격7", True)) + Me.tb_히트정격7.Location = New System.Drawing.Point(158, 60) + Me.tb_히트정격7.Name = "tb_히트정격7" + Me.tb_히트정격7.NectControl = Nothing + Me.tb_히트정격7.Size = New System.Drawing.Size(69, 21) + Me.tb_히트정격7.TabIndex = 14 + Me.tb_히트정격7.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(158, 38) + Me.tb_히트용량.Name = "tb_히트용량" + Me.tb_히트용량.NectControl = Nothing + Me.tb_히트용량.Size = New System.Drawing.Size(69, 21) + Me.tb_히트용량.TabIndex = 13 + Me.tb_히트용량.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + ' + 'PictureBox9 + ' + Me.PictureBox9.BackColor = System.Drawing.Color.FromArgb(CType(CType(243, Byte), Integer), CType(CType(244, Byte), Integer), CType(CType(246, Byte), Integer)) + Me.PictureBox9.Location = New System.Drawing.Point(2, 9) + Me.PictureBox9.Name = "PictureBox9" + Me.PictureBox9.Size = New System.Drawing.Size(227, 143) + Me.PictureBox9.TabIndex = 126 + Me.PictureBox9.TabStop = False + ' + 'Label189 + ' + Me.Label189.AutoSize = True + Me.Label189.BackColor = System.Drawing.Color.FromArgb(CType(CType(243, Byte), Integer), CType(CType(244, Byte), Integer), CType(CType(246, Byte), Integer)) + Me.Label189.ForeColor = System.Drawing.Color.DarkCyan + Me.Label189.Location = New System.Drawing.Point(6, 60) + Me.Label189.Name = "Label189" + Me.Label189.Size = New System.Drawing.Size(123, 14) + Me.Label189.TabIndex = 127 + Me.Label189.Text = "표준치에 대한 경계조건" + Me.Label189.TextAlign = System.Drawing.ContentAlignment.MiddleRight + ' + 'GroupBox7 + ' + Me.GroupBox7.Controls.Add(Me.축열탱크방식NCMB) + Me.GroupBox7.Controls.Add(Label194) + Me.GroupBox7.Controls.Add(Me.MyTb1) + Me.GroupBox7.Controls.Add(Me.축열제척NTb) + Me.GroupBox7.Controls.Add(Label195) + Me.GroupBox7.Controls.Add(Label196) + Me.GroupBox7.Controls.Add(Me.PictureBox10) + Me.GroupBox7.Location = New System.Drawing.Point(2, 390) + Me.GroupBox7.Name = "GroupBox7" + Me.GroupBox7.Size = New System.Drawing.Size(189, 123) + Me.GroupBox7.TabIndex = 126 + Me.GroupBox7.TabStop = False + ' + '축열탱크방식NCMB + ' + Me.축열탱크방식NCMB.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList + Me.축열탱크방식NCMB.FormattingEnabled = True + Me.축열탱크방식NCMB.Location = New System.Drawing.Point(109, 23) + Me.축열탱크방식NCMB.Name = "축열탱크방식NCMB" + Me.축열탱크방식NCMB.NectControl = Nothing + Me.축열탱크방식NCMB.Size = New System.Drawing.Size(74, 22) + Me.축열탱크방식NCMB.TabIndex = 18 + ' + 'MyTb1 + ' + Me.MyTb1.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bs, "펌프정격전력", True)) + Me.MyTb1.Location = New System.Drawing.Point(109, 84) + Me.MyTb1.Name = "MyTb1" + Me.MyTb1.NectControl = Nothing + Me.MyTb1.Size = New System.Drawing.Size(74, 21) + Me.MyTb1.TabIndex = 20 + Me.MyTb1.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + ' + '축열제척NTb + ' + Me.축열제척NTb.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bs, "축열제척", True)) + Me.축열제척NTb.Location = New System.Drawing.Point(109, 56) + Me.축열제척NTb.Name = "축열제척NTb" + Me.축열제척NTb.NectControl = Nothing + Me.축열제척NTb.Size = New System.Drawing.Size(74, 21) + Me.축열제척NTb.TabIndex = 19 + Me.축열제척NTb.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + ' + 'PictureBox10 + ' + Me.PictureBox10.BackColor = System.Drawing.Color.FromArgb(CType(CType(219, Byte), Integer), CType(CType(221, Byte), Integer), CType(CType(223, Byte), Integer)) + Me.PictureBox10.Location = New System.Drawing.Point(1, 9) + Me.PictureBox10.Name = "PictureBox10" + Me.PictureBox10.Size = New System.Drawing.Size(186, 111) + Me.PictureBox10.TabIndex = 126 + Me.PictureBox10.TabStop = False + ' + 'GroupBox8 + ' + Me.GroupBox8.Controls.Add(Label2) + Me.GroupBox8.Controls.Add(Me.배관망유형ComboBox) + Me.GroupBox8.Controls.Add(Me.펌프제어유형ComboBox) + Me.GroupBox8.Controls.Add(Label3) + Me.GroupBox8.Controls.Add(Me.펌프동력NTb) + Me.GroupBox8.Controls.Add(Me.펌프교정계수ComboBox) + Me.GroupBox8.Controls.Add(Label4) + Me.GroupBox8.Controls.Add(Label5) + Me.GroupBox8.Controls.Add(Me.PictureBox16) + Me.GroupBox8.Location = New System.Drawing.Point(2, 543) + Me.GroupBox8.Name = "GroupBox8" + Me.GroupBox8.Size = New System.Drawing.Size(305, 119) + Me.GroupBox8.TabIndex = 15 + Me.GroupBox8.TabStop = False + ' + '배관망유형ComboBox + ' + Me.배관망유형ComboBox.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList + Me.배관망유형ComboBox.FormattingEnabled = True + Me.배관망유형ComboBox.Location = New System.Drawing.Point(192, 15) + Me.배관망유형ComboBox.Name = "배관망유형ComboBox" + Me.배관망유형ComboBox.NectControl = Nothing + Me.배관망유형ComboBox.Size = New System.Drawing.Size(107, 22) + Me.배관망유형ComboBox.TabIndex = 30 + ' + '펌프제어유형ComboBox + ' + Me.펌프제어유형ComboBox.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList + Me.펌프제어유형ComboBox.FormattingEnabled = True + Me.펌프제어유형ComboBox.Location = New System.Drawing.Point(192, 67) + Me.펌프제어유형ComboBox.Name = "펌프제어유형ComboBox" + Me.펌프제어유형ComboBox.NectControl = Nothing + Me.펌프제어유형ComboBox.Size = New System.Drawing.Size(107, 22) + Me.펌프제어유형ComboBox.TabIndex = 32 + ' + '펌프동력NTb + ' + Me.펌프동력NTb.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bs, "펌프동력", True)) + Me.펌프동력NTb.Location = New System.Drawing.Point(192, 93) + Me.펌프동력NTb.Name = "펌프동력NTb" + Me.펌프동력NTb.NectControl = Nothing + Me.펌프동력NTb.Size = New System.Drawing.Size(107, 21) + Me.펌프동력NTb.TabIndex = 33 + Me.펌프동력NTb.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + ' + '펌프교정계수ComboBox + ' + Me.펌프교정계수ComboBox.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList + Me.펌프교정계수ComboBox.FormattingEnabled = True + Me.펌프교정계수ComboBox.Location = New System.Drawing.Point(192, 41) + Me.펌프교정계수ComboBox.Name = "펌프교정계수ComboBox" + Me.펌프교정계수ComboBox.NectControl = Nothing + Me.펌프교정계수ComboBox.Size = New System.Drawing.Size(107, 22) + Me.펌프교정계수ComboBox.TabIndex = 31 + ' + 'PictureBox16 + ' + Me.PictureBox16.BackColor = System.Drawing.Color.FromArgb(CType(CType(243, Byte), Integer), CType(CType(244, Byte), Integer), CType(CType(246, Byte), Integer)) + Me.PictureBox16.Location = New System.Drawing.Point(3, 9) + Me.PictureBox16.Name = "PictureBox16" + Me.PictureBox16.Size = New System.Drawing.Size(300, 106) + Me.PictureBox16.TabIndex = 126 + Me.PictureBox16.TabStop = False + ' + 'GroupBox10 + ' + Me.GroupBox10.Controls.Add(Label6) + Me.GroupBox10.Controls.Add(Me.분배시스템방식ComboBox) + Me.GroupBox10.Controls.Add(Label7) + Me.GroupBox10.Controls.Add(Me.펌프동력급탕NTb) + Me.GroupBox10.Controls.Add(Label8) + Me.GroupBox10.Controls.Add(Me.펌프제어ComboBox) + Me.GroupBox10.Controls.Add(Label9) + Me.GroupBox10.Controls.Add(Me.순환유무ComboBox) + Me.GroupBox10.Controls.Add(Me.PictureBox11) + Me.GroupBox10.Location = New System.Drawing.Point(193, 390) + Me.GroupBox10.Name = "GroupBox10" + Me.GroupBox10.Size = New System.Drawing.Size(184, 123) + Me.GroupBox10.TabIndex = 2 + Me.GroupBox10.TabStop = False + ' + '분배시스템방식ComboBox + ' + Me.분배시스템방식ComboBox.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList + Me.분배시스템방식ComboBox.FormattingEnabled = True + Me.분배시스템방식ComboBox.Location = New System.Drawing.Point(85, 23) + Me.분배시스템방식ComboBox.Name = "분배시스템방식ComboBox" + Me.분배시스템방식ComboBox.NectControl = Nothing + Me.분배시스템방식ComboBox.Size = New System.Drawing.Size(92, 22) + Me.분배시스템방식ComboBox.TabIndex = 21 + ' + '펌프동력급탕NTb + ' + Me.펌프동력급탕NTb.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bs, "펌프동력급탕", True)) + Me.펌프동력급탕NTb.Location = New System.Drawing.Point(85, 93) + Me.펌프동력급탕NTb.Name = "펌프동력급탕NTb" + Me.펌프동력급탕NTb.NectControl = Nothing + Me.펌프동력급탕NTb.Size = New System.Drawing.Size(92, 21) + Me.펌프동력급탕NTb.TabIndex = 24 + Me.펌프동력급탕NTb.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + ' + '펌프제어ComboBox + ' + Me.펌프제어ComboBox.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList + Me.펌프제어ComboBox.FormattingEnabled = True + Me.펌프제어ComboBox.Location = New System.Drawing.Point(85, 70) + Me.펌프제어ComboBox.Name = "펌프제어ComboBox" + Me.펌프제어ComboBox.NectControl = Nothing + Me.펌프제어ComboBox.Size = New System.Drawing.Size(92, 22) + Me.펌프제어ComboBox.TabIndex = 23 + ' + '순환유무ComboBox + ' + Me.순환유무ComboBox.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList + Me.순환유무ComboBox.FormattingEnabled = True + Me.순환유무ComboBox.Location = New System.Drawing.Point(85, 46) + Me.순환유무ComboBox.Name = "순환유무ComboBox" + Me.순환유무ComboBox.NectControl = Nothing + Me.순환유무ComboBox.Size = New System.Drawing.Size(92, 22) + Me.순환유무ComboBox.TabIndex = 22 + ' + 'PictureBox11 + ' + Me.PictureBox11.BackColor = System.Drawing.Color.FromArgb(CType(CType(219, Byte), Integer), CType(CType(221, Byte), Integer), CType(CType(223, Byte), Integer)) + Me.PictureBox11.Location = New System.Drawing.Point(0, 9) + Me.PictureBox11.Name = "PictureBox11" + Me.PictureBox11.Size = New System.Drawing.Size(182, 111) + Me.PictureBox11.TabIndex = 126 + Me.PictureBox11.TabStop = False + ' + 'GroupBox9 + ' + Me.GroupBox9.Controls.Add(Me.RadioButton2) + Me.GroupBox9.Controls.Add(Me.RadioButton1) + Me.GroupBox9.Controls.Add(Label28) + Me.GroupBox9.Controls.Add(Label10) + Me.GroupBox9.Controls.Add(Label11) + Me.GroupBox9.Controls.Add(Label12) + Me.GroupBox9.Controls.Add(Me.열공급층수NTb) + Me.GroupBox9.Controls.Add(Label13) + Me.GroupBox9.Controls.Add(Me.건물넓이NTb) + Me.GroupBox9.Controls.Add(Me.급탕배관길이NTB) + Me.GroupBox9.Controls.Add(Me.건물길이NTb) + Me.GroupBox9.Controls.Add(Me.층고NTb) + Me.GroupBox9.Controls.Add(Me.PictureBox12) + Me.GroupBox9.Location = New System.Drawing.Point(379, 390) + Me.GroupBox9.Name = "GroupBox9" + Me.GroupBox9.Size = New System.Drawing.Size(214, 123) + Me.GroupBox9.TabIndex = 119 + Me.GroupBox9.TabStop = False + ' + 'RadioButton2 + ' + Me.RadioButton2.AutoSize = True + Me.RadioButton2.BackColor = System.Drawing.Color.FromArgb(CType(CType(219, Byte), Integer), CType(CType(221, Byte), Integer), CType(CType(223, Byte), Integer)) + Me.RadioButton2.ForeColor = System.Drawing.Color.DarkCyan + Me.RadioButton2.Location = New System.Drawing.Point(6, 74) + Me.RadioButton2.Name = "RadioButton2" + Me.RadioButton2.Size = New System.Drawing.Size(58, 18) + Me.RadioButton2.TabIndex = 128 + Me.RadioButton2.Text = "입력치" + Me.RadioButton2.UseVisualStyleBackColor = False + ' + 'RadioButton1 + ' + Me.RadioButton1.AutoSize = True + Me.RadioButton1.BackColor = System.Drawing.Color.FromArgb(CType(CType(219, Byte), Integer), CType(CType(221, Byte), Integer), CType(CType(223, Byte), Integer)) + Me.RadioButton1.Checked = True + Me.RadioButton1.ForeColor = System.Drawing.Color.DarkCyan + Me.RadioButton1.Location = New System.Drawing.Point(6, 11) + Me.RadioButton1.Name = "RadioButton1" + Me.RadioButton1.Size = New System.Drawing.Size(105, 18) + Me.RadioButton1.TabIndex = 127 + Me.RadioButton1.TabStop = True + Me.RadioButton1.Text = "표준치 경계조건" + Me.RadioButton1.UseVisualStyleBackColor = False + ' + '열공급층수NTb + ' + Me.열공급층수NTb.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bs, "열공급층수", True)) + Me.열공급층수NTb.Location = New System.Drawing.Point(165, 30) + Me.열공급층수NTb.Name = "열공급층수NTb" + Me.열공급층수NTb.NectControl = Nothing + Me.열공급층수NTb.Size = New System.Drawing.Size(40, 21) + Me.열공급층수NTb.TabIndex = 27 + Me.열공급층수NTb.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + ' + '건물넓이NTb + ' + Me.건물넓이NTb.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bs, "건물넓이", True)) + Me.건물넓이NTb.Location = New System.Drawing.Point(61, 53) + Me.건물넓이NTb.Name = "건물넓이NTb" + Me.건물넓이NTb.NectControl = Nothing + Me.건물넓이NTb.Size = New System.Drawing.Size(40, 21) + Me.건물넓이NTb.TabIndex = 26 + Me.건물넓이NTb.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + ' + '급탕배관길이NTB + ' + Me.급탕배관길이NTB.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bs, "배관길이", True)) + Me.급탕배관길이NTB.Location = New System.Drawing.Point(89, 93) + Me.급탕배관길이NTB.Name = "급탕배관길이NTB" + Me.급탕배관길이NTB.NectControl = Nothing + Me.급탕배관길이NTB.Size = New System.Drawing.Size(40, 21) + Me.급탕배관길이NTB.TabIndex = 29 + Me.급탕배관길이NTB.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + ' + '건물길이NTb + ' + Me.건물길이NTb.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bs, "건물길이", True)) + Me.건물길이NTb.Location = New System.Drawing.Point(61, 30) + Me.건물길이NTb.Name = "건물길이NTb" + Me.건물길이NTb.NectControl = Nothing + Me.건물길이NTb.Size = New System.Drawing.Size(40, 21) + Me.건물길이NTb.TabIndex = 25 + Me.건물길이NTb.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + ' + '층고NTb + ' + Me.층고NTb.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bs, "층고", True)) + Me.층고NTb.Location = New System.Drawing.Point(165, 53) + Me.층고NTb.Name = "층고NTb" + Me.층고NTb.NectControl = Nothing + Me.층고NTb.Size = New System.Drawing.Size(40, 21) + Me.층고NTb.TabIndex = 28 + Me.층고NTb.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + ' + 'PictureBox12 + ' + Me.PictureBox12.BackColor = System.Drawing.Color.FromArgb(CType(CType(219, Byte), Integer), CType(CType(221, Byte), Integer), CType(CType(223, Byte), Integer)) + Me.PictureBox12.Location = New System.Drawing.Point(2, 9) + Me.PictureBox12.Name = "PictureBox12" + Me.PictureBox12.Size = New System.Drawing.Size(210, 111) + Me.PictureBox12.TabIndex = 126 + Me.PictureBox12.TabStop = False + ' + 'GroupBox39 + ' + Me.GroupBox39.Controls.Add(Me.Label22) + Me.GroupBox39.Controls.Add(Me.cmb_신재생) + Me.GroupBox39.Controls.Add(Me.신재생연결여부ComboBox) + Me.GroupBox39.Controls.Add(Label15) + Me.GroupBox39.Controls.Add(Label14) + Me.GroupBox39.Controls.Add(Me.PictureBox17) + Me.GroupBox39.Location = New System.Drawing.Point(314, 543) + Me.GroupBox39.Name = "GroupBox39" + Me.GroupBox39.Size = New System.Drawing.Size(277, 117) + Me.GroupBox39.TabIndex = 1 + Me.GroupBox39.TabStop = False + ' + 'Label22 + ' + Me.Label22.AutoSize = True + Me.Label22.BackColor = System.Drawing.Color.FromArgb(CType(CType(243, Byte), Integer), CType(CType(244, Byte), Integer), CType(CType(246, Byte), Integer)) + Me.Label22.Location = New System.Drawing.Point(8, 15) + Me.Label22.Name = "Label22" + Me.Label22.Size = New System.Drawing.Size(184, 14) + Me.Label22.TabIndex = 127 + Me.Label22.Text = "[신재생 및 열병합 시스템 연결 여부]" + ' + 'cmb_신재생 + ' + Me.cmb_신재생.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList + Me.cmb_신재생.FormattingEnabled = True + Me.cmb_신재생.Location = New System.Drawing.Point(154, 60) + Me.cmb_신재생.Name = "cmb_신재생" + Me.cmb_신재생.NectControl = Nothing + Me.cmb_신재생.Size = New System.Drawing.Size(88, 22) + Me.cmb_신재생.TabIndex = 35 + ' + '신재생연결여부ComboBox + ' + Me.신재생연결여부ComboBox.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList + Me.신재생연결여부ComboBox.FormattingEnabled = True + Me.신재생연결여부ComboBox.Location = New System.Drawing.Point(154, 35) + Me.신재생연결여부ComboBox.Name = "신재생연결여부ComboBox" + Me.신재생연결여부ComboBox.NectControl = Nothing + Me.신재생연결여부ComboBox.Size = New System.Drawing.Size(88, 22) + Me.신재생연결여부ComboBox.TabIndex = 34 + ' + 'PictureBox17 + ' + Me.PictureBox17.BackColor = System.Drawing.Color.FromArgb(CType(CType(243, Byte), Integer), CType(CType(244, Byte), Integer), CType(CType(246, Byte), Integer)) + Me.PictureBox17.Location = New System.Drawing.Point(2, 9) + Me.PictureBox17.Name = "PictureBox17" + Me.PictureBox17.Size = New System.Drawing.Size(271, 106) + Me.PictureBox17.TabIndex = 126 + Me.PictureBox17.TabStop = False + ' + '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, 30) + 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.AutoScroll = True + Me.SplitContainer1.Panel2.AutoScrollMinSize = New System.Drawing.Size(0, 565) + Me.SplitContainer1.Panel2.BackColor = System.Drawing.Color.White + Me.SplitContainer1.Panel2.Controls.Add(Me.Label30) + Me.SplitContainer1.Panel2.Controls.Add(Me.PictureBox6) + Me.SplitContainer1.Panel2.Controls.Add(Me.Label18) + Me.SplitContainer1.Panel2.Controls.Add(Me.PictureBox15) + Me.SplitContainer1.Panel2.Controls.Add(Me.Label26) + Me.SplitContainer1.Panel2.Controls.Add(Me.PictureBox14) + Me.SplitContainer1.Panel2.Controls.Add(Me.Label29) + Me.SplitContainer1.Panel2.Controls.Add(Me.PictureBox5) + Me.SplitContainer1.Panel2.Controls.Add(Me.Label24) + Me.SplitContainer1.Panel2.Controls.Add(Me.Label25) + Me.SplitContainer1.Panel2.Controls.Add(Me.PictureBox3) + Me.SplitContainer1.Panel2.Controls.Add(Me.PictureBox13) + Me.SplitContainer1.Panel2.Controls.Add(Me.Label23) + Me.SplitContainer1.Panel2.Controls.Add(Me.PictureBox4) + Me.SplitContainer1.Panel2.Controls.Add(Me.GroupBox4) + Me.SplitContainer1.Panel2.Controls.Add(Me.GroupBox3) + Me.SplitContainer1.Panel2.Controls.Add(Me.ToolStrip1) + Me.SplitContainer1.Panel2.Controls.Add(Me.GroupBox9) + Me.SplitContainer1.Panel2.Controls.Add(Me.GroupBox10) + Me.SplitContainer1.Panel2.Controls.Add(Me.GroupBox8) + Me.SplitContainer1.Panel2.Controls.Add(Me.GroupBox7) + Me.SplitContainer1.Panel2.Controls.Add(Me.GroupBox2) + Me.SplitContainer1.Panel2.Controls.Add(Me.GroupBox5) + Me.SplitContainer1.Panel2.Controls.Add(Me.GroupBox1) + Me.SplitContainer1.Panel2.Controls.Add(Me.GroupBox39) + Me.SplitContainer1.Size = New System.Drawing.Size(795, 535) + Me.SplitContainer1.SplitterDistance = 165 + Me.SplitContainer1.TabIndex = 129 + ' + 'dv + ' + Me.dv.A_DelCurrentCell = True + Me.dv.A_EnterToTab = True + 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.FromArgb(CType(CType(245, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(246, Byte), Integer)) + Me.dv.BorderStyle = System.Windows.Forms.BorderStyle.None + Me.dv.ColumnHeadersHeight = 30 + Me.dv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.DisableResizing + 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.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(163, 493) + Me.dv.TabIndex = 0 + ' + 'DataGridViewTextBoxColumn1 + ' + Me.DataGridViewTextBoxColumn1.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.Fill + Me.DataGridViewTextBoxColumn1.DataPropertyName = "설명" + Me.DataGridViewTextBoxColumn1.HeaderText = "설명" + Me.DataGridViewTextBoxColumn1.Name = "DataGridViewTextBoxColumn1" + ' + '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("나눔고딕 ExtraBold", 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.bn.Location = New System.Drawing.Point(0, 493) + 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(163, 40) + Me.bn.TabIndex = 1 + Me.bn.Text = "BindingNavigator1" + ' + 'lbl_count + ' + Me.lbl_count.Name = "lbl_count" + Me.lbl_count.Size = New System.Drawing.Size(27, 37) + 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, 37) + 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, 37) + 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, 37) + Me.bt_cancel.Text = "변경취소(&C)" + Me.bt_cancel.ToolTipText = "변경된 내용을 되돌립니다" + ' + 'ToolStripSeparator1 + ' + Me.ToolStripSeparator1.Name = "ToolStripSeparator1" + Me.ToolStripSeparator1.Size = New System.Drawing.Size(6, 40) + ' + 'lbl_pos + ' + Me.lbl_pos.Name = "lbl_pos" + Me.lbl_pos.Size = New System.Drawing.Size(14, 37) + Me.lbl_pos.Text = "0" + ' + 'Label30 + ' + Me.Label30.AutoSize = True + Me.Label30.BackColor = System.Drawing.Color.FromArgb(CType(CType(116, Byte), Integer), CType(CType(158, Byte), Integer), CType(CType(209, Byte), Integer)) + Me.Label30.ForeColor = System.Drawing.Color.White + Me.Label30.Location = New System.Drawing.Point(376, 189) + Me.Label30.Name = "Label30" + Me.Label30.Size = New System.Drawing.Size(51, 14) + Me.Label30.TabIndex = 170 + Me.Label30.Text = "히트펌프" + ' + 'PictureBox6 + ' + Me.PictureBox6.BackgroundImage = CType(resources.GetObject("PictureBox6.BackgroundImage"), System.Drawing.Image) + Me.PictureBox6.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch + Me.PictureBox6.Location = New System.Drawing.Point(363, 178) + Me.PictureBox6.Name = "PictureBox6" + Me.PictureBox6.Size = New System.Drawing.Size(134, 30) + Me.PictureBox6.TabIndex = 169 + Me.PictureBox6.TabStop = False + ' + 'Label18 + ' + Me.Label18.AutoSize = True + Me.Label18.BackColor = System.Drawing.Color.FromArgb(CType(CType(116, Byte), Integer), CType(CType(158, Byte), Integer), CType(CType(209, Byte), Integer)) + Me.Label18.ForeColor = System.Drawing.Color.White + Me.Label18.Location = New System.Drawing.Point(21, 528) + Me.Label18.Name = "Label18" + Me.Label18.Size = New System.Drawing.Size(51, 14) + Me.Label18.TabIndex = 170 + Me.Label18.Text = "분배난방" + ' + 'PictureBox15 + ' + Me.PictureBox15.BackgroundImage = CType(resources.GetObject("PictureBox15.BackgroundImage"), System.Drawing.Image) + Me.PictureBox15.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch + Me.PictureBox15.Location = New System.Drawing.Point(8, 517) + Me.PictureBox15.Name = "PictureBox15" + Me.PictureBox15.Size = New System.Drawing.Size(134, 30) + Me.PictureBox15.TabIndex = 169 + Me.PictureBox15.TabStop = False + ' + 'Label26 + ' + Me.Label26.AutoSize = True + Me.Label26.BackColor = System.Drawing.Color.FromArgb(CType(CType(116, Byte), Integer), CType(CType(158, Byte), Integer), CType(CType(209, Byte), Integer)) + Me.Label26.ForeColor = System.Drawing.Color.White + Me.Label26.Location = New System.Drawing.Point(210, 376) + Me.Label26.Name = "Label26" + Me.Label26.Size = New System.Drawing.Size(51, 14) + Me.Label26.TabIndex = 170 + Me.Label26.Text = "급탕분배" + ' + 'PictureBox14 + ' + Me.PictureBox14.BackgroundImage = CType(resources.GetObject("PictureBox14.BackgroundImage"), System.Drawing.Image) + Me.PictureBox14.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch + Me.PictureBox14.Location = New System.Drawing.Point(197, 365) + Me.PictureBox14.Name = "PictureBox14" + Me.PictureBox14.Size = New System.Drawing.Size(134, 30) + Me.PictureBox14.TabIndex = 169 + Me.PictureBox14.TabStop = False + ' + 'Label29 + ' + Me.Label29.AutoSize = True + Me.Label29.BackColor = System.Drawing.Color.FromArgb(CType(CType(116, Byte), Integer), CType(CType(158, Byte), Integer), CType(CType(209, Byte), Integer)) + Me.Label29.ForeColor = System.Drawing.Color.White + Me.Label29.Location = New System.Drawing.Point(194, 190) + Me.Label29.Name = "Label29" + Me.Label29.Size = New System.Drawing.Size(51, 14) + Me.Label29.TabIndex = 170 + Me.Label29.Text = "지역난방" + ' + 'PictureBox5 + ' + Me.PictureBox5.BackgroundImage = CType(resources.GetObject("PictureBox5.BackgroundImage"), System.Drawing.Image) + Me.PictureBox5.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch + Me.PictureBox5.Location = New System.Drawing.Point(181, 179) + Me.PictureBox5.Name = "PictureBox5" + Me.PictureBox5.Size = New System.Drawing.Size(134, 30) + Me.PictureBox5.TabIndex = 169 + Me.PictureBox5.TabStop = False + ' + 'Label24 + ' + Me.Label24.AutoSize = True + Me.Label24.BackColor = System.Drawing.Color.FromArgb(CType(CType(116, Byte), Integer), CType(CType(158, Byte), Integer), CType(CType(209, Byte), Integer)) + Me.Label24.ForeColor = System.Drawing.Color.White + Me.Label24.Location = New System.Drawing.Point(17, 377) + Me.Label24.Name = "Label24" + Me.Label24.Size = New System.Drawing.Size(73, 14) + Me.Label24.TabIndex = 170 + Me.Label24.Text = "급탕축열탱크" + ' + 'Label25 + ' + Me.Label25.AutoSize = True + Me.Label25.BackColor = System.Drawing.Color.FromArgb(CType(CType(116, Byte), Integer), CType(CType(158, Byte), Integer), CType(CType(209, Byte), Integer)) + Me.Label25.ForeColor = System.Drawing.Color.White + Me.Label25.Location = New System.Drawing.Point(17, 190) + Me.Label25.Name = "Label25" + Me.Label25.Size = New System.Drawing.Size(51, 14) + Me.Label25.TabIndex = 170 + Me.Label25.Text = "열원기기" + ' + 'PictureBox3 + ' + Me.PictureBox3.BackgroundImage = CType(resources.GetObject("PictureBox3.BackgroundImage"), System.Drawing.Image) + Me.PictureBox3.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch + Me.PictureBox3.Location = New System.Drawing.Point(4, 179) + Me.PictureBox3.Name = "PictureBox3" + Me.PictureBox3.Size = New System.Drawing.Size(134, 30) + Me.PictureBox3.TabIndex = 169 + Me.PictureBox3.TabStop = False + ' + 'PictureBox13 + ' + Me.PictureBox13.BackgroundImage = CType(resources.GetObject("PictureBox13.BackgroundImage"), System.Drawing.Image) + Me.PictureBox13.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch + Me.PictureBox13.Location = New System.Drawing.Point(4, 366) + Me.PictureBox13.Name = "PictureBox13" + Me.PictureBox13.Size = New System.Drawing.Size(134, 30) + Me.PictureBox13.TabIndex = 169 + Me.PictureBox13.TabStop = False + ' + 'Label23 + ' + Me.Label23.AutoSize = True + Me.Label23.BackColor = System.Drawing.Color.FromArgb(CType(CType(116, Byte), Integer), CType(CType(158, Byte), Integer), CType(CType(209, Byte), Integer)) + Me.Label23.ForeColor = System.Drawing.Color.White + Me.Label23.Location = New System.Drawing.Point(17, 38) + Me.Label23.Name = "Label23" + Me.Label23.Size = New System.Drawing.Size(62, 14) + Me.Label23.TabIndex = 170 + Me.Label23.Text = "일반데이터" + ' + 'PictureBox4 + ' + Me.PictureBox4.BackgroundImage = CType(resources.GetObject("PictureBox4.BackgroundImage"), System.Drawing.Image) + Me.PictureBox4.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch + Me.PictureBox4.Location = New System.Drawing.Point(4, 27) + Me.PictureBox4.Name = "PictureBox4" + Me.PictureBox4.Size = New System.Drawing.Size(134, 30) + Me.PictureBox4.TabIndex = 169 + Me.PictureBox4.TabStop = False + ' + 'GroupBox4 + ' + Me.GroupBox4.Controls.Add(Label193) + Me.GroupBox4.Controls.Add(Label192) + Me.GroupBox4.Controls.Add(Me.단열등급NCMB) + Me.GroupBox4.Controls.Add(Me.지역난방방식NCMB) + Me.GroupBox4.Controls.Add(Me.PictureBox7) + Me.GroupBox4.Location = New System.Drawing.Point(176, 204) + Me.GroupBox4.Name = "GroupBox4" + Me.GroupBox4.Size = New System.Drawing.Size(186, 154) + Me.GroupBox4.TabIndex = 162 + Me.GroupBox4.TabStop = False + ' + '단열등급NCMB + ' + Me.단열등급NCMB.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList + Me.단열등급NCMB.FormattingEnabled = True + Me.단열등급NCMB.Location = New System.Drawing.Point(103, 49) + Me.단열등급NCMB.Name = "단열등급NCMB" + Me.단열등급NCMB.NectControl = Nothing + Me.단열등급NCMB.Size = New System.Drawing.Size(76, 22) + Me.단열등급NCMB.TabIndex = 11 + ' + '지역난방방식NCMB + ' + Me.지역난방방식NCMB.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList + Me.지역난방방식NCMB.FormattingEnabled = True + Me.지역난방방식NCMB.Location = New System.Drawing.Point(103, 20) + Me.지역난방방식NCMB.Name = "지역난방방식NCMB" + Me.지역난방방식NCMB.NectControl = Nothing + Me.지역난방방식NCMB.Size = New System.Drawing.Size(76, 22) + Me.지역난방방식NCMB.TabIndex = 10 + ' + 'PictureBox7 + ' + Me.PictureBox7.BackColor = System.Drawing.Color.FromArgb(CType(CType(243, Byte), Integer), CType(CType(244, Byte), Integer), CType(CType(246, Byte), Integer)) + Me.PictureBox7.Location = New System.Drawing.Point(2, 8) + Me.PictureBox7.Name = "PictureBox7" + Me.PictureBox7.Size = New System.Drawing.Size(181, 143) + Me.PictureBox7.TabIndex = 126 + Me.PictureBox7.TabStop = False + ' + 'GroupBox3 + ' + Me.GroupBox3.Controls.Add(Label184) + Me.GroupBox3.Controls.Add(Me.Label189) + Me.GroupBox3.Controls.Add(Me.보일러방식NCMB) + Me.GroupBox3.Controls.Add(Label190) + Me.GroupBox3.Controls.Add(Me.정격보일러효율NTb) + Me.GroupBox3.Controls.Add(Me.PictureBox8) + Me.GroupBox3.Location = New System.Drawing.Point(2, 204) + Me.GroupBox3.Name = "GroupBox3" + Me.GroupBox3.Size = New System.Drawing.Size(174, 154) + Me.GroupBox3.TabIndex = 131 + Me.GroupBox3.TabStop = False + ' + '보일러방식NCMB + ' + Me.보일러방식NCMB.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList + Me.보일러방식NCMB.FormattingEnabled = True + Me.보일러방식NCMB.Location = New System.Drawing.Point(93, 76) + Me.보일러방식NCMB.Name = "보일러방식NCMB" + Me.보일러방식NCMB.NectControl = Nothing + Me.보일러방식NCMB.Size = New System.Drawing.Size(73, 22) + Me.보일러방식NCMB.TabIndex = 9 + ' + '정격보일러효율NTb + ' + Me.정격보일러효율NTb.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bs, "정격보일러효율", True)) + Me.정격보일러효율NTb.Location = New System.Drawing.Point(94, 23) + Me.정격보일러효율NTb.Name = "정격보일러효율NTb" + Me.정격보일러효율NTb.NectControl = Nothing + Me.정격보일러효율NTb.Size = New System.Drawing.Size(73, 21) + Me.정격보일러효율NTb.TabIndex = 8 + Me.정격보일러효율NTb.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + ' + 'PictureBox8 + ' + Me.PictureBox8.BackColor = System.Drawing.Color.FromArgb(CType(CType(243, Byte), Integer), CType(CType(244, Byte), Integer), CType(CType(246, Byte), Integer)) + Me.PictureBox8.Location = New System.Drawing.Point(2, 8) + Me.PictureBox8.Name = "PictureBox8" + Me.PictureBox8.Size = New System.Drawing.Size(170, 143) + Me.PictureBox8.TabIndex = 126 + Me.PictureBox8.TabStop = False + ' + 'ToolStrip1 + ' + Me.ToolStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToolStripLabel1, Me.lbl_cnt1, Me.ToolStripLabel3, Me.lbl_cnt2}) + Me.ToolStrip1.Location = New System.Drawing.Point(0, 0) + Me.ToolStrip1.Name = "ToolStrip1" + Me.ToolStrip1.Size = New System.Drawing.Size(607, 25) + Me.ToolStrip1.TabIndex = 130 + Me.ToolStrip1.Text = "ToolStrip1" + ' + 'ToolStripLabel1 + ' + Me.ToolStripLabel1.Name = "ToolStripLabel1" + Me.ToolStripLabel1.Size = New System.Drawing.Size(185, 22) + Me.ToolStripLabel1.Text = "난방생산기기로 적용된 입력존 수" + ' + 'lbl_cnt1 + ' + Me.lbl_cnt1.Name = "lbl_cnt1" + Me.lbl_cnt1.Size = New System.Drawing.Size(92, 22) + Me.lbl_cnt1.Text = "ToolStripLabel2" + ' + 'ToolStripLabel3 + ' + Me.ToolStripLabel3.Name = "ToolStripLabel3" + Me.ToolStripLabel3.Size = New System.Drawing.Size(185, 22) + Me.ToolStripLabel3.Text = "급탕생산기기로 적용된 입력존 수" + ' + 'lbl_cnt2 + ' + Me.lbl_cnt2.Name = "lbl_cnt2" + Me.lbl_cnt2.Size = New System.Drawing.Size(92, 22) + Me.lbl_cnt2.Text = "ToolStripLabel4" + ' + 'Frm_V20091231_Nanbang + ' + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.None + Me.AutoScroll = True + Me.AutoScrollMinSize = New System.Drawing.Size(0, 565) + Me.ClientSize = New System.Drawing.Size(795, 565) + Me.Controls.Add(Me.SplitContainer1) + Me.Font = New System.Drawing.Font("나눔고딕 ExtraBold", 8.999999!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.KeyPreview = True + Me.Name = "Frm_V20091231_Nanbang" + Me.ShowInTaskbar = False + Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen + Me.Text = "난방기기" + Me.Controls.SetChildIndex(Me.SplitContainer1, 0) + CType(Me.ErrProvider, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.bsmain, System.ComponentModel.ISupportInitialize).EndInit() + Me.GroupBox2.ResumeLayout(False) + Me.GroupBox2.PerformLayout() + CType(Me.bs, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.DS, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.PictureBox2, System.ComponentModel.ISupportInitialize).EndInit() + Me.GroupBox1.ResumeLayout(False) + Me.GroupBox1.PerformLayout() + CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).EndInit() + Me.GroupBox5.ResumeLayout(False) + Me.GroupBox5.PerformLayout() + CType(Me.PictureBox9, System.ComponentModel.ISupportInitialize).EndInit() + Me.GroupBox7.ResumeLayout(False) + Me.GroupBox7.PerformLayout() + CType(Me.PictureBox10, System.ComponentModel.ISupportInitialize).EndInit() + Me.GroupBox8.ResumeLayout(False) + Me.GroupBox8.PerformLayout() + CType(Me.PictureBox16, System.ComponentModel.ISupportInitialize).EndInit() + Me.GroupBox10.ResumeLayout(False) + Me.GroupBox10.PerformLayout() + CType(Me.PictureBox11, System.ComponentModel.ISupportInitialize).EndInit() + Me.GroupBox9.ResumeLayout(False) + Me.GroupBox9.PerformLayout() + CType(Me.PictureBox12, System.ComponentModel.ISupportInitialize).EndInit() + Me.GroupBox39.ResumeLayout(False) + Me.GroupBox39.PerformLayout() + CType(Me.PictureBox17, System.ComponentModel.ISupportInitialize).EndInit() + Me.SplitContainer1.Panel1.ResumeLayout(False) + Me.SplitContainer1.Panel2.ResumeLayout(False) + Me.SplitContainer1.Panel2.PerformLayout() + Me.SplitContainer1.ResumeLayout(False) + CType(Me.dv, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.bn, System.ComponentModel.ISupportInitialize).EndInit() + Me.bn.ResumeLayout(False) + Me.bn.PerformLayout() + CType(Me.PictureBox6, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.PictureBox15, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.PictureBox14, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.PictureBox5, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.PictureBox3, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.PictureBox13, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.PictureBox4, System.ComponentModel.ISupportInitialize).EndInit() + Me.GroupBox4.ResumeLayout(False) + Me.GroupBox4.PerformLayout() + CType(Me.PictureBox7, System.ComponentModel.ISupportInitialize).EndInit() + Me.GroupBox3.ResumeLayout(False) + Me.GroupBox3.PerformLayout() + CType(Me.PictureBox8, System.ComponentModel.ISupportInitialize).EndInit() + Me.ToolStrip1.ResumeLayout(False) + Me.ToolStrip1.PerformLayout() + Me.ResumeLayout(False) + + End Sub + Friend WithEvents 축열탱크방식NCMB As MyCmb + Friend WithEvents 단열등급NCMB As MyCmb + Friend WithEvents 지역난방방식NCMB As MyCmb + Friend WithEvents 보일러방식NCMB As MyCmb + Friend WithEvents 정격보일러효율NTb As MyTb + Friend WithEvents tb_보일러대수다수 As MyTb + Friend WithEvents 운전방식NCMB As MyCmb + Friend WithEvents 열교환기정격출력NTb As MyTb + Friend WithEvents 보일러정격출력NTb As MyTb + Friend WithEvents 환수온도NTb1 As MyTb + Friend WithEvents 급수온도NTb1 As MyTb + Friend WithEvents 사용연료NCMB As MyCmb + Friend WithEvents 열생산기기방식NCMB As MyCmb + Friend WithEvents 층고NTb As MyTb + Friend WithEvents 열공급층수NTb As MyTb + Friend WithEvents 건물넓이NTb As MyTb + Friend WithEvents 건물길이NTb As MyTb + Friend WithEvents 펌프동력급탕NTb As MyTb + Friend WithEvents 펌프동력NTb As MyTb + Friend WithEvents 축열제척NTb As MyTb + Public WithEvents DS As Eco2Ar.DS + Friend WithEvents bs As System.Windows.Forms.BindingSource + Friend WithEvents cmb_신재생 As Eco2Ar.MyCmb + Friend WithEvents 신재생연결여부ComboBox As Eco2Ar.MyCmb + Friend WithEvents 펌프제어ComboBox As Eco2Ar.MyCmb + Friend WithEvents 순환유무ComboBox As Eco2Ar.MyCmb + Friend WithEvents 분배시스템방식ComboBox As Eco2Ar.MyCmb + Friend WithEvents 펌프제어유형ComboBox As Eco2Ar.MyCmb + Friend WithEvents 펌프교정계수ComboBox As Eco2Ar.MyCmb + Friend WithEvents 배관망유형ComboBox As Eco2Ar.MyCmb + Friend WithEvents MyTb1 As Eco2Ar.MyTb + Friend WithEvents Label50 As System.Windows.Forms.Label + Friend WithEvents Label189 As System.Windows.Forms.Label + Friend WithEvents GroupBox39 As System.Windows.Forms.GroupBox + Friend WithEvents tb_히트용량 As Eco2Ar.MyTb + Friend WithEvents cmb_히트사용연료 As Eco2Ar.MyCmb + Friend WithEvents tb_히트정격10 As Eco2Ar.MyTb + Friend WithEvents tb_히트정격7 As Eco2Ar.MyTb + Friend WithEvents tb_히트길이 As Eco2Ar.MyTb + Friend WithEvents SplitContainer1 As System.Windows.Forms.SplitContainer + Friend WithEvents dv As CEnergy.arindv + Friend WithEvents bn As System.Windows.Forms.BindingNavigator + Friend WithEvents bt_add As System.Windows.Forms.ToolStripButton + Friend WithEvents bt_Del As System.Windows.Forms.ToolStripButton + Friend WithEvents bt_cancel As System.Windows.Forms.ToolStripButton + Friend WithEvents ToolStripSeparator1 As System.Windows.Forms.ToolStripSeparator + Friend WithEvents lbl_count As System.Windows.Forms.ToolStripLabel + Friend WithEvents lbl_pos As System.Windows.Forms.ToolStripLabel + Friend WithEvents GroupBox1 As System.Windows.Forms.GroupBox + Friend WithEvents GroupBox2 As System.Windows.Forms.GroupBox + Friend WithEvents GroupBox5 As System.Windows.Forms.GroupBox + Friend WithEvents GroupBox7 As System.Windows.Forms.GroupBox + Friend WithEvents GroupBox8 As System.Windows.Forms.GroupBox + Friend WithEvents GroupBox9 As System.Windows.Forms.GroupBox + Friend WithEvents GroupBox10 As System.Windows.Forms.GroupBox + Friend WithEvents Label21 As System.Windows.Forms.Label + Friend WithEvents ToolStrip1 As System.Windows.Forms.ToolStrip + Friend WithEvents ToolStripLabel1 As System.Windows.Forms.ToolStripLabel + Friend WithEvents lbl_cnt1 As System.Windows.Forms.ToolStripLabel + Friend WithEvents ToolStripLabel3 As System.Windows.Forms.ToolStripLabel + Friend WithEvents lbl_cnt2 As System.Windows.Forms.ToolStripLabel + Friend WithEvents GroupBox3 As System.Windows.Forms.GroupBox + Friend WithEvents GroupBox4 As System.Windows.Forms.GroupBox + Friend WithEvents Label23 As System.Windows.Forms.Label + Friend WithEvents PictureBox4 As System.Windows.Forms.PictureBox + Friend WithEvents PictureBox2 As System.Windows.Forms.PictureBox + Friend WithEvents PictureBox1 As System.Windows.Forms.PictureBox + Friend WithEvents Label30 As System.Windows.Forms.Label + Friend WithEvents PictureBox6 As System.Windows.Forms.PictureBox + Friend WithEvents Label29 As System.Windows.Forms.Label + Friend WithEvents PictureBox5 As System.Windows.Forms.PictureBox + Friend WithEvents Label25 As System.Windows.Forms.Label + Friend WithEvents PictureBox3 As System.Windows.Forms.PictureBox + Friend WithEvents PictureBox9 As System.Windows.Forms.PictureBox + Friend WithEvents PictureBox7 As System.Windows.Forms.PictureBox + Friend WithEvents PictureBox8 As System.Windows.Forms.PictureBox + Friend WithEvents PictureBox10 As System.Windows.Forms.PictureBox + Friend WithEvents PictureBox11 As System.Windows.Forms.PictureBox + Friend WithEvents PictureBox12 As System.Windows.Forms.PictureBox + Friend WithEvents Label26 As System.Windows.Forms.Label + Friend WithEvents PictureBox14 As System.Windows.Forms.PictureBox + Friend WithEvents Label24 As System.Windows.Forms.Label + Friend WithEvents PictureBox13 As System.Windows.Forms.PictureBox + Friend WithEvents PictureBox16 As System.Windows.Forms.PictureBox + Friend WithEvents Label22 As System.Windows.Forms.Label + Friend WithEvents PictureBox17 As System.Windows.Forms.PictureBox + Friend WithEvents Label18 As System.Windows.Forms.Label + Friend WithEvents PictureBox15 As System.Windows.Forms.PictureBox + Friend WithEvents cmb_히트펌프시스템종류 As Eco2Ar.MyCmb + Friend WithEvents RadioButton2 As System.Windows.Forms.RadioButton + Friend WithEvents RadioButton1 As System.Windows.Forms.RadioButton + Friend WithEvents 급탕배관길이NTB As Eco2Ar.MyTb + Friend WithEvents DataGridViewTextBoxColumn1 As System.Windows.Forms.DataGridViewTextBoxColumn +End Class diff --git a/ArinWarev1/Forms/v20091231/Frm_v20091231_Nanbang.resx b/ArinWarev1/Forms/v20091231/Frm_v20091231_Nanbang.resx new file mode 100644 index 0000000..f4feeb7 --- /dev/null +++ b/ArinWarev1/Forms/v20091231/Frm_v20091231_Nanbang.resx @@ -0,0 +1,1650 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + 109, 17 + + + 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 + + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + 222, 17 + + + 286, 17 + + + 353, 17 + + + + + /9j/4AAQSkZJRgABAgEASABIAAD/7gAOQWRvYmUAZAAAAAAB/+ED5kV4aWYAAE1NACoAAAAIAAcBEgAD + AAAAAQABAAABGgAFAAAAAQAAAGIBGwAFAAAAAQAAAGoBKAADAAAAAQACAAABMQACAAAAHAAAAHIBMgAC + AAAAFAAAAI6HaQAEAAAAAQAAAKIAAADCAEgAAAABAAAASAAAAAEAAEFkb2JlIFBob3Rvc2hvcCBDUzMg + V2luZG93cwAyMDEwOjA0OjE1IDIwOjMyOjA0AAACoAIABAAAAAEAAAA8oAMABAAAAAEAAAAMAAAAAAAA + AAYBAwADAAAAAQAGAAABGgAFAAAAAQAAARABGwAFAAAAAQAAARgBKAADAAAAAQACAAACAQAEAAAAAQAA + ASACAgAEAAAAAQAAAr4AAAAAAAAASAAAAAEAAABIAAAAAf/Y/+AAEEpGSUYAAQIAAEgASAAA/+0ADEFk + b2JlX0NNAAH/7gAOQWRvYmUAZIAAAAAB/9sAhAAMCAgICQgMCQkMEQsKCxEVDwwMDxUYExMVExMYEQwM + DAwMDBEMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMAQ0LCw0ODRAODhAUDg4OFBQODg4OFBEMDAwM + DBERDAwMDAwMEQwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAz/wAARCAAMADwDASIAAhEBAxEB/90A + BAAE/8QBPwAAAQUBAQEBAQEAAAAAAAAAAwABAgQFBgcICQoLAQABBQEBAQEBAQAAAAAAAAABAAIDBAUG + BwgJCgsQAAEEAQMCBAIFBwYIBQMMMwEAAhEDBCESMQVBUWETInGBMgYUkaGxQiMkFVLBYjM0coLRQwcl + klPw4fFjczUWorKDJkSTVGRFwqN0NhfSVeJl8rOEw9N14/NGJ5SkhbSVxNTk9KW1xdXl9VZmdoaWprbG + 1ub2N0dXZ3eHl6e3x9fn9xEAAgIBAgQEAwQFBgcHBgU1AQACEQMhMRIEQVFhcSITBTKBkRShsUIjwVLR + 8DMkYuFygpJDUxVjczTxJQYWorKDByY1wtJEk1SjF2RFVTZ0ZeLys4TD03Xj80aUpIW0lcTU5PSltcXV + 5fVWZnaGlqa2xtbm9ic3R1dnd4eXp7fH/9oADAMBAAIRAxEAPwDd/amR/pH/AOcf70v2pkf6R/8AnH+9 + UUlofq/Bpevxb37UyP8ASP8A84/3pftTI/0j/wDOP96opJfq/BXr8W9+1Mj/AEj/APOP96X7UyP9I/8A + zj/eqKSX6vwV6/F3ujdbuGS2i5xfU8HVxktIG76XyW99vo27p0XGdO2/ba930dZj+q5dX+qfZPL8VAeD + 341VVr/eZhx+0bu708n/2f/tCSBQaG90b3Nob3AgMy4wADhCSU0EJQAAAAAAEAAAAAAAAAAAAAAAAAAA + AAA4QklNBC8AAAAAAErgYgEASAAAAEgAAAAAAAAAAAAAANACAABAAgAAAAAAAAAAAAAYAwAAZAIAAAAB + wAMAALAEAAABAA8nAQBsbHVuAAAAAAAAAAAAADhCSU0D7QAAAAAAEABIAAAAAQACAEgAAAABAAI4QklN + BCYAAAAAAA4AAAAAAAAAAAAAP4AAADhCSU0EDQAAAAAABAAAAHg4QklNBBkAAAAAAAQAAAAeOEJJTQPz + AAAAAAAJAAAAAAAAAAABADhCSU0ECgAAAAAAAQAAOEJJTScQAAAAAAAKAAEAAAAAAAAAAjhCSU0D9QAA + AAAASAAvZmYAAQBsZmYABgAAAAAAAQAvZmYAAQChmZoABgAAAAAAAQAyAAAAAQBaAAAABgAAAAAAAQA1 + AAAAAQAtAAAABgAAAAAAAThCSU0D+AAAAAAAcAAA/////////////////////////////wPoAAAAAP// + //////////////////////////8D6AAAAAD/////////////////////////////A+gAAAAA//////// + /////////////////////wPoAAA4QklNBAAAAAAAAAIAAjhCSU0EAgAAAAAABgAAAAAAADhCSU0EMAAA + AAAAAwEBAQA4QklNBC0AAAAAAAYAAQAAAAM4QklNBAgAAAAAABAAAAABAAACQAAAAkAAAAAAOEJJTQQe + AAAAAAAEAAAAADhCSU0EGgAAAAADPwAAAAYAAAAAAAAAAAAAAAwAAAA8AAAABbs0yBwALQAxADIAAAAB + AAAAAAAAAAAAAAAAAAAAAAAAAAEAAAAAAAAAAAAAADwAAAAMAAAAAAAAAAAAAAAAAAAAAAEAAAAAAAAA + AAAAAAAAAAAAAAAAEAAAAAEAAAAAAABudWxsAAAAAgAAAAZib3VuZHNPYmpjAAAAAQAAAAAAAFJjdDEA + AAAEAAAAAFRvcCBsb25nAAAAAAAAAABMZWZ0bG9uZwAAAAAAAAAAQnRvbWxvbmcAAAAMAAAAAFJnaHRs + b25nAAAAPAAAAAZzbGljZXNWbExzAAAAAU9iamMAAAABAAAAAAAFc2xpY2UAAAASAAAAB3NsaWNlSURs + b25nAAAAAAAAAAdncm91cElEbG9uZwAAAAAAAAAGb3JpZ2luZW51bQAAAAxFU2xpY2VPcmlnaW4AAAAN + YXV0b0dlbmVyYXRlZAAAAABUeXBlZW51bQAAAApFU2xpY2VUeXBlAAAAAEltZyAAAAAGYm91bmRzT2Jq + YwAAAAEAAAAAAABSY3QxAAAABAAAAABUb3AgbG9uZwAAAAAAAAAATGVmdGxvbmcAAAAAAAAAAEJ0b21s + b25nAAAADAAAAABSZ2h0bG9uZwAAADwAAAADdXJsVEVYVAAAAAEAAAAAAABudWxsVEVYVAAAAAEAAAAA + AABNc2dlVEVYVAAAAAEAAAAAAAZhbHRUYWdURVhUAAAAAQAAAAAADmNlbGxUZXh0SXNIVE1MYm9vbAEA + AAAIY2VsbFRleHRURVhUAAAAAQAAAAAACWhvcnpBbGlnbmVudW0AAAAPRVNsaWNlSG9yekFsaWduAAAA + B2RlZmF1bHQAAAAJdmVydEFsaWduZW51bQAAAA9FU2xpY2VWZXJ0QWxpZ24AAAAHZGVmYXVsdAAAAAti + Z0NvbG9yVHlwZWVudW0AAAARRVNsaWNlQkdDb2xvclR5cGUAAAAATm9uZQAAAAl0b3BPdXRzZXRsb25n + AAAAAAAAAApsZWZ0T3V0c2V0bG9uZwAAAAAAAAAMYm90dG9tT3V0c2V0bG9uZwAAAAAAAAALcmlnaHRP + dXRzZXRsb25nAAAAAAA4QklNBCgAAAAAAAwAAAABP/AAAAAAAAA4QklNBBQAAAAAAAQAAAAEOEJJTQQM + AAAAAALaAAAAAQAAADwAAAAMAAAAtAAACHAAAAK+ABgAAf/Y/+AAEEpGSUYAAQIAAEgASAAA/+0ADEFk + b2JlX0NNAAH/7gAOQWRvYmUAZIAAAAAB/9sAhAAMCAgICQgMCQkMEQsKCxEVDwwMDxUYExMVExMYEQwM + DAwMDBEMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMAQ0LCw0ODRAODhAUDg4OFBQODg4OFBEMDAwM + DBERDAwMDAwMEQwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAz/wAARCAAMADwDASIAAhEBAxEB/90A + BAAE/8QBPwAAAQUBAQEBAQEAAAAAAAAAAwABAgQFBgcICQoLAQABBQEBAQEBAQAAAAAAAAABAAIDBAUG + BwgJCgsQAAEEAQMCBAIFBwYIBQMMMwEAAhEDBCESMQVBUWETInGBMgYUkaGxQiMkFVLBYjM0coLRQwcl + klPw4fFjczUWorKDJkSTVGRFwqN0NhfSVeJl8rOEw9N14/NGJ5SkhbSVxNTk9KW1xdXl9VZmdoaWprbG + 1ub2N0dXZ3eHl6e3x9fn9xEAAgIBAgQEAwQFBgcHBgU1AQACEQMhMRIEQVFhcSITBTKBkRShsUIjwVLR + 8DMkYuFygpJDUxVjczTxJQYWorKDByY1wtJEk1SjF2RFVTZ0ZeLys4TD03Xj80aUpIW0lcTU5PSltcXV + 5fVWZnaGlqa2xtbm9ic3R1dnd4eXp7fH/9oADAMBAAIRAxEAPwDd/amR/pH/AOcf70v2pkf6R/8AnH+9 + UUlofq/Bpevxb37UyP8ASP8A84/3pftTI/0j/wDOP96opJfq/BXr8W9+1Mj/AEj/APOP96X7UyP9I/8A + zj/eqKSX6vwV6/F3ujdbuGS2i5xfU8HVxktIG76XyW99vo27p0XGdO2/ba930dZj+q5dX+qfZPL8VAeD + 341VVr/eZhx+0bu708n/2ThCSU0EIQAAAAAAVQAAAAEBAAAADwBBAGQAbwBiAGUAIABQAGgAbwB0AG8A + cwBoAG8AcAAAABMAQQBkAG8AYgBlACAAUABoAG8AdABvAHMAaABvAHAAIABDAFMAMwAAAAEAOEJJTQQG + AAAAAAAHAAgAAQABAQD/4Q/MaHR0cDovL25zLmFkb2JlLmNvbS94YXAvMS4wLwA8P3hwYWNrZXQgYmVn + aW49Iu+7vyIgaWQ9Ilc1TTBNcENlaGlIenJlU3pOVGN6a2M5ZCI/Pg0KPHg6eG1wbWV0YSB4bWxuczp4 + PSJhZG9iZTpuczptZXRhLyIgeDp4bXB0az0iQWRvYmUgWE1QIENvcmUgNC4xLWMwMzYgNDYuMjc2NzIw + LCBNb24gRmViIDE5IDIwMDcgMjI6NDA6MDggICAgICAgICI+DQoJPHJkZjpSREYgeG1sbnM6cmRmPSJo + dHRwOi8vd3d3LnczLm9yZy8xOTk5LzAyLzIyLXJkZi1zeW50YXgtbnMjIj4NCgkJPHJkZjpEZXNjcmlw + dGlvbiByZGY6YWJvdXQ9IiIgeG1sbnM6ZGM9Imh0dHA6Ly9wdXJsLm9yZy9kYy9lbGVtZW50cy8xLjEv + IiB4bWxuczp4YXA9Imh0dHA6Ly9ucy5hZG9iZS5jb20veGFwLzEuMC8iIHhtbG5zOnhhcE1NPSJodHRw + Oi8vbnMuYWRvYmUuY29tL3hhcC8xLjAvbW0vIiB4bWxuczpzdFJlZj0iaHR0cDovL25zLmFkb2JlLmNv + bS94YXAvMS4wL3NUeXBlL1Jlc291cmNlUmVmIyIgeG1sbnM6cGhvdG9zaG9wPSJodHRwOi8vbnMuYWRv + YmUuY29tL3Bob3Rvc2hvcC8xLjAvIiB4bWxuczp0aWZmPSJodHRwOi8vbnMuYWRvYmUuY29tL3RpZmYv + MS4wLyIgeG1sbnM6ZXhpZj0iaHR0cDovL25zLmFkb2JlLmNvbS9leGlmLzEuMC8iIGRjOmZvcm1hdD0i + aW1hZ2UvanBlZyIgeGFwOkNyZWF0b3JUb29sPSJBZG9iZSBQaG90b3Nob3AgQ1MzIFdpbmRvd3MiIHhh + cDpDcmVhdGVEYXRlPSIyMDEwLTA0LTE1VDIwOjMyOjA0KzA5OjAwIiB4YXA6TW9kaWZ5RGF0ZT0iMjAx + MC0wNC0xNVQyMDozMjowNCswOTowMCIgeGFwOk1ldGFkYXRhRGF0ZT0iMjAxMC0wNC0xNVQyMDozMjow + NCswOTowMCIgeGFwTU06RG9jdW1lbnRJRD0idXVpZDpGRTRGOUVDQzgxNDhERjExQjQyNkI5NEQ4RDRD + ODAxNyIgeGFwTU06SW5zdGFuY2VJRD0idXVpZDpCNDE2RTc4MzgyNDhERjExQjQyNkI5NEQ4RDRDODAx + NyIgcGhvdG9zaG9wOkNvbG9yTW9kZT0iMyIgcGhvdG9zaG9wOklDQ1Byb2ZpbGU9InNSR0IgSUVDNjE5 + NjYtMi4xIiBwaG90b3Nob3A6SGlzdG9yeT0iIiB0aWZmOk9yaWVudGF0aW9uPSIxIiB0aWZmOlhSZXNv + bHV0aW9uPSI3MjAwMDAvMTAwMDAiIHRpZmY6WVJlc29sdXRpb249IjcyMDAwMC8xMDAwMCIgdGlmZjpS + ZXNvbHV0aW9uVW5pdD0iMiIgdGlmZjpOYXRpdmVEaWdlc3Q9IjI1NiwyNTcsMjU4LDI1OSwyNjIsMjc0 + LDI3NywyODQsNTMwLDUzMSwyODIsMjgzLDI5NiwzMDEsMzE4LDMxOSw1MjksNTMyLDMwNiwyNzAsMjcx + LDI3MiwzMDUsMzE1LDMzNDMyOzk4ODcxNzIxMUFCRjY2MTQxRDU3NEI3OUYzRjQ2QkFBIiBleGlmOlBp + eGVsWERpbWVuc2lvbj0iNjAiIGV4aWY6UGl4ZWxZRGltZW5zaW9uPSIxMiIgZXhpZjpDb2xvclNwYWNl + PSIxIiBleGlmOk5hdGl2ZURpZ2VzdD0iMzY4NjQsNDA5NjAsNDA5NjEsMzcxMjEsMzcxMjIsNDA5NjIs + NDA5NjMsMzc1MTAsNDA5NjQsMzY4NjcsMzY4NjgsMzM0MzQsMzM0MzcsMzQ4NTAsMzQ4NTIsMzQ4NTUs + MzQ4NTYsMzczNzcsMzczNzgsMzczNzksMzczODAsMzczODEsMzczODIsMzczODMsMzczODQsMzczODUs + MzczODYsMzczOTYsNDE0ODMsNDE0ODQsNDE0ODYsNDE0ODcsNDE0ODgsNDE0OTIsNDE0OTMsNDE0OTUs + NDE3MjgsNDE3MjksNDE3MzAsNDE5ODUsNDE5ODYsNDE5ODcsNDE5ODgsNDE5ODksNDE5OTAsNDE5OTEs + NDE5OTIsNDE5OTMsNDE5OTQsNDE5OTUsNDE5OTYsNDIwMTYsMCwyLDQsNSw2LDcsOCw5LDEwLDExLDEy + LDEzLDE0LDE1LDE2LDE3LDE4LDIwLDIyLDIzLDI0LDI1LDI2LDI3LDI4LDMwOzM1N0NDOEY1MDE4RURF + NDY2NjVCQkRFMUFEMkRCQkJBIj4NCgkJCTx4YXBNTTpEZXJpdmVkRnJvbSBzdFJlZjppbnN0YW5jZUlE + PSJ1dWlkOkY1NEY5RUNDODE0OERGMTFCNDI2Qjk0RDhENEM4MDE3IiBzdFJlZjpkb2N1bWVudElEPSJ1 + dWlkOkY1NEY5RUNDODE0OERGMTFCNDI2Qjk0RDhENEM4MDE3Ii8+DQoJCTwvcmRmOkRlc2NyaXB0aW9u + Pg0KCTwvcmRmOlJERj4NCjwveDp4bXBtZXRhPg0KICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgIAogICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgCiAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAKICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgIAogICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgCiAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAKICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgIAogICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgCiAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAKICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgIAogICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + CiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAKICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgIAogICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgCiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAKICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgIAogICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgCiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAKICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgIAogICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgCiAgICAgICAgICAgPD94cGFja2V0IGVuZD0ndyc/Pv/iDFhJQ0NfUFJPRklMRQABAQAA + DEhMaW5vAhAAAG1udHJSR0IgWFlaIAfOAAIACQAGADEAAGFjc3BNU0ZUAAAAAElFQyBzUkdCAAAAAAAA + AAAAAAAAAAD21gABAAAAANMtSFAgIAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAEWNwcnQAAAFQAAAAM2Rlc2MAAAGEAAAAbHd0cHQAAAHwAAAAFGJrcHQAAAIEAAAAFHJY + WVoAAAIYAAAAFGdYWVoAAAIsAAAAFGJYWVoAAAJAAAAAFGRtbmQAAAJUAAAAcGRtZGQAAALEAAAAiHZ1 + ZWQAAANMAAAAhnZpZXcAAAPUAAAAJGx1bWkAAAP4AAAAFG1lYXMAAAQMAAAAJHRlY2gAAAQwAAAADHJU + UkMAAAQ8AAAIDGdUUkMAAAQ8AAAIDGJUUkMAAAQ8AAAIDHRleHQAAAAAQ29weXJpZ2h0IChjKSAxOTk4 + IEhld2xldHQtUGFja2FyZCBDb21wYW55AABkZXNjAAAAAAAAABJzUkdCIElFQzYxOTY2LTIuMQAAAAAA + AAAAAAAAEnNSR0IgSUVDNjE5NjYtMi4xAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAABYWVogAAAAAAAA81EAAQAAAAEWzFhZWiAAAAAAAAAAAAAAAAAAAAAAWFlaIAAA + AAAAAG+iAAA49QAAA5BYWVogAAAAAAAAYpkAALeFAAAY2lhZWiAAAAAAAAAkoAAAD4QAALbPZGVzYwAA + AAAAAAAWSUVDIGh0dHA6Ly93d3cuaWVjLmNoAAAAAAAAAAAAAAAWSUVDIGh0dHA6Ly93d3cuaWVjLmNo + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAGRlc2MAAAAAAAAALklF + QyA2MTk2Ni0yLjEgRGVmYXVsdCBSR0IgY29sb3VyIHNwYWNlIC0gc1JHQgAAAAAAAAAAAAAALklFQyA2 + MTk2Ni0yLjEgRGVmYXVsdCBSR0IgY29sb3VyIHNwYWNlIC0gc1JHQgAAAAAAAAAAAAAAAAAAAAAAAAAA + AABkZXNjAAAAAAAAACxSZWZlcmVuY2UgVmlld2luZyBDb25kaXRpb24gaW4gSUVDNjE5NjYtMi4xAAAA + AAAAAAAAAAAsUmVmZXJlbmNlIFZpZXdpbmcgQ29uZGl0aW9uIGluIElFQzYxOTY2LTIuMQAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAdmlldwAAAAAAE6T+ABRfLgAQzxQAA+3MAAQTCwADXJ4AAAABWFlaIAAA + AAAATAlWAFAAAABXH+dtZWFzAAAAAAAAAAEAAAAAAAAAAAAAAAAAAAAAAAACjwAAAAJzaWcgAAAAAENS + VCBjdXJ2AAAAAAAABAAAAAAFAAoADwAUABkAHgAjACgALQAyADcAOwBAAEUASgBPAFQAWQBeAGMAaABt + AHIAdwB8AIEAhgCLAJAAlQCaAJ8ApACpAK4AsgC3ALwAwQDGAMsA0ADVANsA4ADlAOsA8AD2APsBAQEH + AQ0BEwEZAR8BJQErATIBOAE+AUUBTAFSAVkBYAFnAW4BdQF8AYMBiwGSAZoBoQGpAbEBuQHBAckB0QHZ + AeEB6QHyAfoCAwIMAhQCHQImAi8COAJBAksCVAJdAmcCcQJ6AoQCjgKYAqICrAK2AsECywLVAuAC6wL1 + AwADCwMWAyEDLQM4A0MDTwNaA2YDcgN+A4oDlgOiA64DugPHA9MD4APsA/kEBgQTBCAELQQ7BEgEVQRj + BHEEfgSMBJoEqAS2BMQE0wThBPAE/gUNBRwFKwU6BUkFWAVnBXcFhgWWBaYFtQXFBdUF5QX2BgYGFgYn + BjcGSAZZBmoGewaMBp0GrwbABtEG4wb1BwcHGQcrBz0HTwdhB3QHhgeZB6wHvwfSB+UH+AgLCB8IMghG + CFoIbgiCCJYIqgi+CNII5wj7CRAJJQk6CU8JZAl5CY8JpAm6Cc8J5Qn7ChEKJwo9ClQKagqBCpgKrgrF + CtwK8wsLCyILOQtRC2kLgAuYC7ALyAvhC/kMEgwqDEMMXAx1DI4MpwzADNkM8w0NDSYNQA1aDXQNjg2p + DcMN3g34DhMOLg5JDmQOfw6bDrYO0g7uDwkPJQ9BD14Peg+WD7MPzw/sEAkQJhBDEGEQfhCbELkQ1xD1 + ERMRMRFPEW0RjBGqEckR6BIHEiYSRRJkEoQSoxLDEuMTAxMjE0MTYxODE6QTxRPlFAYUJxRJFGoUixSt + FM4U8BUSFTQVVhV4FZsVvRXgFgMWJhZJFmwWjxayFtYW+hcdF0EXZReJF64X0hf3GBsYQBhlGIoYrxjV + GPoZIBlFGWsZkRm3Gd0aBBoqGlEadxqeGsUa7BsUGzsbYxuKG7Ib2hwCHCocUhx7HKMczBz1HR4dRx1w + HZkdwx3sHhYeQB5qHpQevh7pHxMfPh9pH5Qfvx/qIBUgQSBsIJggxCDwIRwhSCF1IaEhziH7IiciVSKC + Iq8i3SMKIzgjZiOUI8Ij8CQfJE0kfCSrJNolCSU4JWgllyXHJfcmJyZXJocmtyboJxgnSSd6J6sn3CgN + KD8ocSiiKNQpBik4KWspnSnQKgIqNSpoKpsqzysCKzYraSudK9EsBSw5LG4soizXLQwtQS12Last4S4W + Lkwugi63Lu4vJC9aL5Evxy/+MDUwbDCkMNsxEjFKMYIxujHyMioyYzKbMtQzDTNGM38zuDPxNCs0ZTSe + NNg1EzVNNYc1wjX9Njc2cjauNuk3JDdgN5w31zgUOFA4jDjIOQU5Qjl/Obw5+To2OnQ6sjrvOy07azuq + O+g8JzxlPKQ84z0iPWE9oT3gPiA+YD6gPuA/IT9hP6I/4kAjQGRApkDnQSlBakGsQe5CMEJyQrVC90M6 + Q31DwEQDREdEikTORRJFVUWaRd5GIkZnRqtG8Ec1R3tHwEgFSEtIkUjXSR1JY0mpSfBKN0p9SsRLDEtT + S5pL4kwqTHJMuk0CTUpNk03cTiVObk63TwBPSU+TT91QJ1BxULtRBlFQUZtR5lIxUnxSx1MTU19TqlP2 + VEJUj1TbVShVdVXCVg9WXFapVvdXRFeSV+BYL1h9WMtZGllpWbhaB1pWWqZa9VtFW5Vb5Vw1XIZc1l0n + XXhdyV4aXmxevV8PX2Ffs2AFYFdgqmD8YU9homH1YklinGLwY0Njl2PrZEBklGTpZT1lkmXnZj1mkmbo + Zz1nk2fpaD9olmjsaUNpmmnxakhqn2r3a09rp2v/bFdsr20IbWBtuW4SbmtuxG8eb3hv0XArcIZw4HE6 + cZVx8HJLcqZzAXNdc7h0FHRwdMx1KHWFdeF2Pnabdvh3VnezeBF4bnjMeSp5iXnnekZ6pXsEe2N7wnwh + fIF84X1BfaF+AX5ifsJ/I3+Ef+WAR4CogQqBa4HNgjCCkoL0g1eDuoQdhICE44VHhauGDoZyhteHO4ef + iASIaYjOiTOJmYn+imSKyoswi5aL/IxjjMqNMY2Yjf+OZo7OjzaPnpAGkG6Q1pE/kaiSEZJ6kuOTTZO2 + lCCUipT0lV+VyZY0lp+XCpd1l+CYTJi4mSSZkJn8mmia1ZtCm6+cHJyJnPedZJ3SnkCerp8dn4uf+qBp + oNihR6G2oiailqMGo3aj5qRWpMelOKWpphqmi6b9p26n4KhSqMSpN6mpqhyqj6sCq3Wr6axcrNCtRK24 + ri2uoa8Wr4uwALB1sOqxYLHWskuywrM4s660JbSctRO1irYBtnm28Ldot+C4WbjRuUq5wro7urW7Lrun + vCG8m70VvY++Cr6Evv+/er/1wHDA7MFnwePCX8Lbw1jD1MRRxM7FS8XIxkbGw8dBx7/IPci8yTrJuco4 + yrfLNsu2zDXMtc01zbXONs62zzfPuNA50LrRPNG+0j/SwdNE08bUSdTL1U7V0dZV1tjXXNfg2GTY6Nls + 2fHadtr724DcBdyK3RDdlt4c3qLfKd+v4DbgveFE4cziU+Lb42Pj6+Rz5PzlhOYN5pbnH+ep6DLovOlG + 6dDqW+rl63Dr++yG7RHtnO4o7rTvQO/M8Fjw5fFy8f/yjPMZ86f0NPTC9VD13vZt9vv3ivgZ+Kj5OPnH + +lf65/t3/Af8mP0p/br+S/7c/23////bAEMAAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEB + AQEBAQEBAQEBAQICAgICAgICAgICAwMDAwMDAwMDA//bAEMBAQEBAQEBAQEBAQICAQICAwMDAwMDAwMD + AwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDA//AABEIAAwAPAMBEQACEQEDEQH/ + xAAfAAABBQEBAQEBAQAAAAAAAAAAAQIDBAUGBwgJCgv/xAC1EAACAQMDAgQDBQUEBAAAAX0BAgMABBEF + EiExQQYTUWEHInEUMoGRoQgjQrHBFVLR8CQzYnKCCQoWFxgZGiUmJygpKjQ1Njc4OTpDREVGR0hJSlNU + VVZXWFlaY2RlZmdoaWpzdHV2d3h5eoOEhYaHiImKkpOUlZaXmJmaoqOkpaanqKmqsrO0tba3uLm6wsPE + xcbHyMnK0tPU1dbX2Nna4eLj5OXm5+jp6vHy8/T19vf4+fr/xAAfAQADAQEBAQEBAQEBAAAAAAAAAQID + BAUGBwgJCgv/xAC1EQACAQIEBAMEBwUEBAABAncAAQIDEQQFITEGEkFRB2FxEyIygQgUQpGhscEJIzNS + 8BVictEKFiQ04SXxFxgZGiYnKCkqNTY3ODk6Q0RFRkdISUpTVFVWV1hZWmNkZWZnaGlqc3R1dnd4eXqC + g4SFhoeIiYqSk5SVlpeYmZqio6Slpqeoqaqys7S1tre4ubrCw8TFxsfIycrS09TV1tfY2dri4+Tl5ufo + 6ery8/T19vf4+fr/2gAMAwEAAhEDEQA/AP1ZH7UPxEAA/wCEw8bnj/ob9f8A/k+v7U/1Nyj/AKF+G/8A + BUP/AJE/llcSZlZf7dX/APBk/wDMX/hqH4if9Df43/8ACv1//wCT6P8AU3Kf+hfhv/BUP/kQ/wBZcy/6 + Dq//AIMn/mH/AA1D8RP+hv8AG/8A4V+v/wDyfR/qblP/AEL8N/4Kh/8AIh/rLmX/AEHV/wDwZP8AzD/h + qH4if9Df43/8K/X/AP5Po/1Nyn/oX4b/AMFQ/wDkQ/1lzL/oOr/+DJ/5h/w1D8RP+hv8b/8AhX6//wDJ + 9H+puU/9C/Df+Cof/Ih/rLmX/QdX/wDBk/8AMT/hqH4if9Df43/8K/X/AP5Po/1Nyn/oX4b/AMFQ/wDk + Q/1kzL/oOr/+DJ/5n2R+xz+234zt/iRpnw+8a6vqXiDwZ4gs9baObXr+bUr/AMPajpmkX2tQ3FlqV2Zb + 57K7XT2t3tXkaJWkV4whVxJ+beJfAuU4Th/FZ/hKEKOMw8qd+SKjGcZzjTs4q0bpyUlJK7s073VvuuBO + LMxxGcYfJ8TWlVw1ZTtzu7hKMJTupPWzUWnFu2qatrf9aP8AhfXgv+zv7U89/sfm+V5207N+M43fSv50 + P2w/kwr/AEFP42CgAoAKACgAoA9s/Z0/s7/hcng3+1vP/s7Ov/avs2PP2f8ACL63t2buP9ZjP+zmvz7x + U/5IPPf+4H/qRRPsvD//AJK7KP8AuL/6ZqH7/wD/ABaT/hUfb7Ht/wBj7V9p8v8A9Cr+Oz+lz//Z + + + + + /9j/4AAQSkZJRgABAgEASABIAAD/7gAOQWRvYmUAZAAAAAAB/+ED5kV4aWYAAE1NACoAAAAIAAcBEgAD + AAAAAQABAAABGgAFAAAAAQAAAGIBGwAFAAAAAQAAAGoBKAADAAAAAQACAAABMQACAAAAHAAAAHIBMgAC + AAAAFAAAAI6HaQAEAAAAAQAAAKIAAADCAEgAAAABAAAASAAAAAEAAEFkb2JlIFBob3Rvc2hvcCBDUzMg + V2luZG93cwAyMDEwOjA0OjE1IDIwOjMyOjA0AAACoAIABAAAAAEAAAA8oAMABAAAAAEAAAAMAAAAAAAA + AAYBAwADAAAAAQAGAAABGgAFAAAAAQAAARABGwAFAAAAAQAAARgBKAADAAAAAQACAAACAQAEAAAAAQAA + ASACAgAEAAAAAQAAAr4AAAAAAAAASAAAAAEAAABIAAAAAf/Y/+AAEEpGSUYAAQIAAEgASAAA/+0ADEFk + b2JlX0NNAAH/7gAOQWRvYmUAZIAAAAAB/9sAhAAMCAgICQgMCQkMEQsKCxEVDwwMDxUYExMVExMYEQwM + DAwMDBEMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMAQ0LCw0ODRAODhAUDg4OFBQODg4OFBEMDAwM + DBERDAwMDAwMEQwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAz/wAARCAAMADwDASIAAhEBAxEB/90A + BAAE/8QBPwAAAQUBAQEBAQEAAAAAAAAAAwABAgQFBgcICQoLAQABBQEBAQEBAQAAAAAAAAABAAIDBAUG + BwgJCgsQAAEEAQMCBAIFBwYIBQMMMwEAAhEDBCESMQVBUWETInGBMgYUkaGxQiMkFVLBYjM0coLRQwcl + klPw4fFjczUWorKDJkSTVGRFwqN0NhfSVeJl8rOEw9N14/NGJ5SkhbSVxNTk9KW1xdXl9VZmdoaWprbG + 1ub2N0dXZ3eHl6e3x9fn9xEAAgIBAgQEAwQFBgcHBgU1AQACEQMhMRIEQVFhcSITBTKBkRShsUIjwVLR + 8DMkYuFygpJDUxVjczTxJQYWorKDByY1wtJEk1SjF2RFVTZ0ZeLys4TD03Xj80aUpIW0lcTU5PSltcXV + 5fVWZnaGlqa2xtbm9ic3R1dnd4eXp7fH/9oADAMBAAIRAxEAPwDd/amR/pH/AOcf70v2pkf6R/8AnH+9 + UUlofq/Bpevxb37UyP8ASP8A84/3pftTI/0j/wDOP96opJfq/BXr8W9+1Mj/AEj/APOP96X7UyP9I/8A + zj/eqKSX6vwV6/F3ujdbuGS2i5xfU8HVxktIG76XyW99vo27p0XGdO2/ba930dZj+q5dX+qfZPL8VAeD + 341VVr/eZhx+0bu708n/2f/tCSBQaG90b3Nob3AgMy4wADhCSU0EJQAAAAAAEAAAAAAAAAAAAAAAAAAA + AAA4QklNBC8AAAAAAErgYgEASAAAAEgAAAAAAAAAAAAAANACAABAAgAAAAAAAAAAAAAYAwAAZAIAAAAB + wAMAALAEAAABAA8nAQBsbHVuAAAAAAAAAAAAADhCSU0D7QAAAAAAEABIAAAAAQACAEgAAAABAAI4QklN + BCYAAAAAAA4AAAAAAAAAAAAAP4AAADhCSU0EDQAAAAAABAAAAHg4QklNBBkAAAAAAAQAAAAeOEJJTQPz + AAAAAAAJAAAAAAAAAAABADhCSU0ECgAAAAAAAQAAOEJJTScQAAAAAAAKAAEAAAAAAAAAAjhCSU0D9QAA + AAAASAAvZmYAAQBsZmYABgAAAAAAAQAvZmYAAQChmZoABgAAAAAAAQAyAAAAAQBaAAAABgAAAAAAAQA1 + AAAAAQAtAAAABgAAAAAAAThCSU0D+AAAAAAAcAAA/////////////////////////////wPoAAAAAP// + //////////////////////////8D6AAAAAD/////////////////////////////A+gAAAAA//////// + /////////////////////wPoAAA4QklNBAAAAAAAAAIAAjhCSU0EAgAAAAAABgAAAAAAADhCSU0EMAAA + AAAAAwEBAQA4QklNBC0AAAAAAAYAAQAAAAM4QklNBAgAAAAAABAAAAABAAACQAAAAkAAAAAAOEJJTQQe + AAAAAAAEAAAAADhCSU0EGgAAAAADPwAAAAYAAAAAAAAAAAAAAAwAAAA8AAAABbs0yBwALQAxADIAAAAB + AAAAAAAAAAAAAAAAAAAAAAAAAAEAAAAAAAAAAAAAADwAAAAMAAAAAAAAAAAAAAAAAAAAAAEAAAAAAAAA + AAAAAAAAAAAAAAAAEAAAAAEAAAAAAABudWxsAAAAAgAAAAZib3VuZHNPYmpjAAAAAQAAAAAAAFJjdDEA + AAAEAAAAAFRvcCBsb25nAAAAAAAAAABMZWZ0bG9uZwAAAAAAAAAAQnRvbWxvbmcAAAAMAAAAAFJnaHRs + b25nAAAAPAAAAAZzbGljZXNWbExzAAAAAU9iamMAAAABAAAAAAAFc2xpY2UAAAASAAAAB3NsaWNlSURs + b25nAAAAAAAAAAdncm91cElEbG9uZwAAAAAAAAAGb3JpZ2luZW51bQAAAAxFU2xpY2VPcmlnaW4AAAAN + YXV0b0dlbmVyYXRlZAAAAABUeXBlZW51bQAAAApFU2xpY2VUeXBlAAAAAEltZyAAAAAGYm91bmRzT2Jq + YwAAAAEAAAAAAABSY3QxAAAABAAAAABUb3AgbG9uZwAAAAAAAAAATGVmdGxvbmcAAAAAAAAAAEJ0b21s + b25nAAAADAAAAABSZ2h0bG9uZwAAADwAAAADdXJsVEVYVAAAAAEAAAAAAABudWxsVEVYVAAAAAEAAAAA + AABNc2dlVEVYVAAAAAEAAAAAAAZhbHRUYWdURVhUAAAAAQAAAAAADmNlbGxUZXh0SXNIVE1MYm9vbAEA + AAAIY2VsbFRleHRURVhUAAAAAQAAAAAACWhvcnpBbGlnbmVudW0AAAAPRVNsaWNlSG9yekFsaWduAAAA + B2RlZmF1bHQAAAAJdmVydEFsaWduZW51bQAAAA9FU2xpY2VWZXJ0QWxpZ24AAAAHZGVmYXVsdAAAAAti + Z0NvbG9yVHlwZWVudW0AAAARRVNsaWNlQkdDb2xvclR5cGUAAAAATm9uZQAAAAl0b3BPdXRzZXRsb25n + AAAAAAAAAApsZWZ0T3V0c2V0bG9uZwAAAAAAAAAMYm90dG9tT3V0c2V0bG9uZwAAAAAAAAALcmlnaHRP + dXRzZXRsb25nAAAAAAA4QklNBCgAAAAAAAwAAAABP/AAAAAAAAA4QklNBBQAAAAAAAQAAAAEOEJJTQQM + AAAAAALaAAAAAQAAADwAAAAMAAAAtAAACHAAAAK+ABgAAf/Y/+AAEEpGSUYAAQIAAEgASAAA/+0ADEFk + b2JlX0NNAAH/7gAOQWRvYmUAZIAAAAAB/9sAhAAMCAgICQgMCQkMEQsKCxEVDwwMDxUYExMVExMYEQwM + DAwMDBEMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMAQ0LCw0ODRAODhAUDg4OFBQODg4OFBEMDAwM + DBERDAwMDAwMEQwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAz/wAARCAAMADwDASIAAhEBAxEB/90A + BAAE/8QBPwAAAQUBAQEBAQEAAAAAAAAAAwABAgQFBgcICQoLAQABBQEBAQEBAQAAAAAAAAABAAIDBAUG + BwgJCgsQAAEEAQMCBAIFBwYIBQMMMwEAAhEDBCESMQVBUWETInGBMgYUkaGxQiMkFVLBYjM0coLRQwcl + klPw4fFjczUWorKDJkSTVGRFwqN0NhfSVeJl8rOEw9N14/NGJ5SkhbSVxNTk9KW1xdXl9VZmdoaWprbG + 1ub2N0dXZ3eHl6e3x9fn9xEAAgIBAgQEAwQFBgcHBgU1AQACEQMhMRIEQVFhcSITBTKBkRShsUIjwVLR + 8DMkYuFygpJDUxVjczTxJQYWorKDByY1wtJEk1SjF2RFVTZ0ZeLys4TD03Xj80aUpIW0lcTU5PSltcXV + 5fVWZnaGlqa2xtbm9ic3R1dnd4eXp7fH/9oADAMBAAIRAxEAPwDd/amR/pH/AOcf70v2pkf6R/8AnH+9 + UUlofq/Bpevxb37UyP8ASP8A84/3pftTI/0j/wDOP96opJfq/BXr8W9+1Mj/AEj/APOP96X7UyP9I/8A + zj/eqKSX6vwV6/F3ujdbuGS2i5xfU8HVxktIG76XyW99vo27p0XGdO2/ba930dZj+q5dX+qfZPL8VAeD + 341VVr/eZhx+0bu708n/2ThCSU0EIQAAAAAAVQAAAAEBAAAADwBBAGQAbwBiAGUAIABQAGgAbwB0AG8A + cwBoAG8AcAAAABMAQQBkAG8AYgBlACAAUABoAG8AdABvAHMAaABvAHAAIABDAFMAMwAAAAEAOEJJTQQG + AAAAAAAHAAgAAQABAQD/4Q/MaHR0cDovL25zLmFkb2JlLmNvbS94YXAvMS4wLwA8P3hwYWNrZXQgYmVn + aW49Iu+7vyIgaWQ9Ilc1TTBNcENlaGlIenJlU3pOVGN6a2M5ZCI/Pg0KPHg6eG1wbWV0YSB4bWxuczp4 + PSJhZG9iZTpuczptZXRhLyIgeDp4bXB0az0iQWRvYmUgWE1QIENvcmUgNC4xLWMwMzYgNDYuMjc2NzIw + LCBNb24gRmViIDE5IDIwMDcgMjI6NDA6MDggICAgICAgICI+DQoJPHJkZjpSREYgeG1sbnM6cmRmPSJo + dHRwOi8vd3d3LnczLm9yZy8xOTk5LzAyLzIyLXJkZi1zeW50YXgtbnMjIj4NCgkJPHJkZjpEZXNjcmlw + dGlvbiByZGY6YWJvdXQ9IiIgeG1sbnM6ZGM9Imh0dHA6Ly9wdXJsLm9yZy9kYy9lbGVtZW50cy8xLjEv + IiB4bWxuczp4YXA9Imh0dHA6Ly9ucy5hZG9iZS5jb20veGFwLzEuMC8iIHhtbG5zOnhhcE1NPSJodHRw + Oi8vbnMuYWRvYmUuY29tL3hhcC8xLjAvbW0vIiB4bWxuczpzdFJlZj0iaHR0cDovL25zLmFkb2JlLmNv + bS94YXAvMS4wL3NUeXBlL1Jlc291cmNlUmVmIyIgeG1sbnM6cGhvdG9zaG9wPSJodHRwOi8vbnMuYWRv + YmUuY29tL3Bob3Rvc2hvcC8xLjAvIiB4bWxuczp0aWZmPSJodHRwOi8vbnMuYWRvYmUuY29tL3RpZmYv + MS4wLyIgeG1sbnM6ZXhpZj0iaHR0cDovL25zLmFkb2JlLmNvbS9leGlmLzEuMC8iIGRjOmZvcm1hdD0i + aW1hZ2UvanBlZyIgeGFwOkNyZWF0b3JUb29sPSJBZG9iZSBQaG90b3Nob3AgQ1MzIFdpbmRvd3MiIHhh + cDpDcmVhdGVEYXRlPSIyMDEwLTA0LTE1VDIwOjMyOjA0KzA5OjAwIiB4YXA6TW9kaWZ5RGF0ZT0iMjAx + MC0wNC0xNVQyMDozMjowNCswOTowMCIgeGFwOk1ldGFkYXRhRGF0ZT0iMjAxMC0wNC0xNVQyMDozMjow + NCswOTowMCIgeGFwTU06RG9jdW1lbnRJRD0idXVpZDpGRTRGOUVDQzgxNDhERjExQjQyNkI5NEQ4RDRD + ODAxNyIgeGFwTU06SW5zdGFuY2VJRD0idXVpZDpCNDE2RTc4MzgyNDhERjExQjQyNkI5NEQ4RDRDODAx + NyIgcGhvdG9zaG9wOkNvbG9yTW9kZT0iMyIgcGhvdG9zaG9wOklDQ1Byb2ZpbGU9InNSR0IgSUVDNjE5 + NjYtMi4xIiBwaG90b3Nob3A6SGlzdG9yeT0iIiB0aWZmOk9yaWVudGF0aW9uPSIxIiB0aWZmOlhSZXNv + bHV0aW9uPSI3MjAwMDAvMTAwMDAiIHRpZmY6WVJlc29sdXRpb249IjcyMDAwMC8xMDAwMCIgdGlmZjpS + ZXNvbHV0aW9uVW5pdD0iMiIgdGlmZjpOYXRpdmVEaWdlc3Q9IjI1NiwyNTcsMjU4LDI1OSwyNjIsMjc0 + LDI3NywyODQsNTMwLDUzMSwyODIsMjgzLDI5NiwzMDEsMzE4LDMxOSw1MjksNTMyLDMwNiwyNzAsMjcx + LDI3MiwzMDUsMzE1LDMzNDMyOzk4ODcxNzIxMUFCRjY2MTQxRDU3NEI3OUYzRjQ2QkFBIiBleGlmOlBp + eGVsWERpbWVuc2lvbj0iNjAiIGV4aWY6UGl4ZWxZRGltZW5zaW9uPSIxMiIgZXhpZjpDb2xvclNwYWNl + PSIxIiBleGlmOk5hdGl2ZURpZ2VzdD0iMzY4NjQsNDA5NjAsNDA5NjEsMzcxMjEsMzcxMjIsNDA5NjIs + NDA5NjMsMzc1MTAsNDA5NjQsMzY4NjcsMzY4NjgsMzM0MzQsMzM0MzcsMzQ4NTAsMzQ4NTIsMzQ4NTUs + MzQ4NTYsMzczNzcsMzczNzgsMzczNzksMzczODAsMzczODEsMzczODIsMzczODMsMzczODQsMzczODUs + MzczODYsMzczOTYsNDE0ODMsNDE0ODQsNDE0ODYsNDE0ODcsNDE0ODgsNDE0OTIsNDE0OTMsNDE0OTUs + NDE3MjgsNDE3MjksNDE3MzAsNDE5ODUsNDE5ODYsNDE5ODcsNDE5ODgsNDE5ODksNDE5OTAsNDE5OTEs + NDE5OTIsNDE5OTMsNDE5OTQsNDE5OTUsNDE5OTYsNDIwMTYsMCwyLDQsNSw2LDcsOCw5LDEwLDExLDEy + LDEzLDE0LDE1LDE2LDE3LDE4LDIwLDIyLDIzLDI0LDI1LDI2LDI3LDI4LDMwOzM1N0NDOEY1MDE4RURF + NDY2NjVCQkRFMUFEMkRCQkJBIj4NCgkJCTx4YXBNTTpEZXJpdmVkRnJvbSBzdFJlZjppbnN0YW5jZUlE + PSJ1dWlkOkY1NEY5RUNDODE0OERGMTFCNDI2Qjk0RDhENEM4MDE3IiBzdFJlZjpkb2N1bWVudElEPSJ1 + dWlkOkY1NEY5RUNDODE0OERGMTFCNDI2Qjk0RDhENEM4MDE3Ii8+DQoJCTwvcmRmOkRlc2NyaXB0aW9u + Pg0KCTwvcmRmOlJERj4NCjwveDp4bXBtZXRhPg0KICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgIAogICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgCiAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAKICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgIAogICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgCiAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAKICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgIAogICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgCiAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAKICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgIAogICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + CiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAKICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgIAogICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgCiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAKICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgIAogICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgCiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAKICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgIAogICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgCiAgICAgICAgICAgPD94cGFja2V0IGVuZD0ndyc/Pv/iDFhJQ0NfUFJPRklMRQABAQAA + DEhMaW5vAhAAAG1udHJSR0IgWFlaIAfOAAIACQAGADEAAGFjc3BNU0ZUAAAAAElFQyBzUkdCAAAAAAAA + AAAAAAAAAAD21gABAAAAANMtSFAgIAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAEWNwcnQAAAFQAAAAM2Rlc2MAAAGEAAAAbHd0cHQAAAHwAAAAFGJrcHQAAAIEAAAAFHJY + WVoAAAIYAAAAFGdYWVoAAAIsAAAAFGJYWVoAAAJAAAAAFGRtbmQAAAJUAAAAcGRtZGQAAALEAAAAiHZ1 + ZWQAAANMAAAAhnZpZXcAAAPUAAAAJGx1bWkAAAP4AAAAFG1lYXMAAAQMAAAAJHRlY2gAAAQwAAAADHJU + UkMAAAQ8AAAIDGdUUkMAAAQ8AAAIDGJUUkMAAAQ8AAAIDHRleHQAAAAAQ29weXJpZ2h0IChjKSAxOTk4 + IEhld2xldHQtUGFja2FyZCBDb21wYW55AABkZXNjAAAAAAAAABJzUkdCIElFQzYxOTY2LTIuMQAAAAAA + AAAAAAAAEnNSR0IgSUVDNjE5NjYtMi4xAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAABYWVogAAAAAAAA81EAAQAAAAEWzFhZWiAAAAAAAAAAAAAAAAAAAAAAWFlaIAAA + AAAAAG+iAAA49QAAA5BYWVogAAAAAAAAYpkAALeFAAAY2lhZWiAAAAAAAAAkoAAAD4QAALbPZGVzYwAA + AAAAAAAWSUVDIGh0dHA6Ly93d3cuaWVjLmNoAAAAAAAAAAAAAAAWSUVDIGh0dHA6Ly93d3cuaWVjLmNo + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAGRlc2MAAAAAAAAALklF + QyA2MTk2Ni0yLjEgRGVmYXVsdCBSR0IgY29sb3VyIHNwYWNlIC0gc1JHQgAAAAAAAAAAAAAALklFQyA2 + MTk2Ni0yLjEgRGVmYXVsdCBSR0IgY29sb3VyIHNwYWNlIC0gc1JHQgAAAAAAAAAAAAAAAAAAAAAAAAAA + AABkZXNjAAAAAAAAACxSZWZlcmVuY2UgVmlld2luZyBDb25kaXRpb24gaW4gSUVDNjE5NjYtMi4xAAAA + AAAAAAAAAAAsUmVmZXJlbmNlIFZpZXdpbmcgQ29uZGl0aW9uIGluIElFQzYxOTY2LTIuMQAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAdmlldwAAAAAAE6T+ABRfLgAQzxQAA+3MAAQTCwADXJ4AAAABWFlaIAAA + AAAATAlWAFAAAABXH+dtZWFzAAAAAAAAAAEAAAAAAAAAAAAAAAAAAAAAAAACjwAAAAJzaWcgAAAAAENS + VCBjdXJ2AAAAAAAABAAAAAAFAAoADwAUABkAHgAjACgALQAyADcAOwBAAEUASgBPAFQAWQBeAGMAaABt + AHIAdwB8AIEAhgCLAJAAlQCaAJ8ApACpAK4AsgC3ALwAwQDGAMsA0ADVANsA4ADlAOsA8AD2APsBAQEH + AQ0BEwEZAR8BJQErATIBOAE+AUUBTAFSAVkBYAFnAW4BdQF8AYMBiwGSAZoBoQGpAbEBuQHBAckB0QHZ + AeEB6QHyAfoCAwIMAhQCHQImAi8COAJBAksCVAJdAmcCcQJ6AoQCjgKYAqICrAK2AsECywLVAuAC6wL1 + AwADCwMWAyEDLQM4A0MDTwNaA2YDcgN+A4oDlgOiA64DugPHA9MD4APsA/kEBgQTBCAELQQ7BEgEVQRj + BHEEfgSMBJoEqAS2BMQE0wThBPAE/gUNBRwFKwU6BUkFWAVnBXcFhgWWBaYFtQXFBdUF5QX2BgYGFgYn + BjcGSAZZBmoGewaMBp0GrwbABtEG4wb1BwcHGQcrBz0HTwdhB3QHhgeZB6wHvwfSB+UH+AgLCB8IMghG + CFoIbgiCCJYIqgi+CNII5wj7CRAJJQk6CU8JZAl5CY8JpAm6Cc8J5Qn7ChEKJwo9ClQKagqBCpgKrgrF + CtwK8wsLCyILOQtRC2kLgAuYC7ALyAvhC/kMEgwqDEMMXAx1DI4MpwzADNkM8w0NDSYNQA1aDXQNjg2p + DcMN3g34DhMOLg5JDmQOfw6bDrYO0g7uDwkPJQ9BD14Peg+WD7MPzw/sEAkQJhBDEGEQfhCbELkQ1xD1 + ERMRMRFPEW0RjBGqEckR6BIHEiYSRRJkEoQSoxLDEuMTAxMjE0MTYxODE6QTxRPlFAYUJxRJFGoUixSt + FM4U8BUSFTQVVhV4FZsVvRXgFgMWJhZJFmwWjxayFtYW+hcdF0EXZReJF64X0hf3GBsYQBhlGIoYrxjV + GPoZIBlFGWsZkRm3Gd0aBBoqGlEadxqeGsUa7BsUGzsbYxuKG7Ib2hwCHCocUhx7HKMczBz1HR4dRx1w + HZkdwx3sHhYeQB5qHpQevh7pHxMfPh9pH5Qfvx/qIBUgQSBsIJggxCDwIRwhSCF1IaEhziH7IiciVSKC + Iq8i3SMKIzgjZiOUI8Ij8CQfJE0kfCSrJNolCSU4JWgllyXHJfcmJyZXJocmtyboJxgnSSd6J6sn3CgN + KD8ocSiiKNQpBik4KWspnSnQKgIqNSpoKpsqzysCKzYraSudK9EsBSw5LG4soizXLQwtQS12Last4S4W + Lkwugi63Lu4vJC9aL5Evxy/+MDUwbDCkMNsxEjFKMYIxujHyMioyYzKbMtQzDTNGM38zuDPxNCs0ZTSe + NNg1EzVNNYc1wjX9Njc2cjauNuk3JDdgN5w31zgUOFA4jDjIOQU5Qjl/Obw5+To2OnQ6sjrvOy07azuq + O+g8JzxlPKQ84z0iPWE9oT3gPiA+YD6gPuA/IT9hP6I/4kAjQGRApkDnQSlBakGsQe5CMEJyQrVC90M6 + Q31DwEQDREdEikTORRJFVUWaRd5GIkZnRqtG8Ec1R3tHwEgFSEtIkUjXSR1JY0mpSfBKN0p9SsRLDEtT + S5pL4kwqTHJMuk0CTUpNk03cTiVObk63TwBPSU+TT91QJ1BxULtRBlFQUZtR5lIxUnxSx1MTU19TqlP2 + VEJUj1TbVShVdVXCVg9WXFapVvdXRFeSV+BYL1h9WMtZGllpWbhaB1pWWqZa9VtFW5Vb5Vw1XIZc1l0n + XXhdyV4aXmxevV8PX2Ffs2AFYFdgqmD8YU9homH1YklinGLwY0Njl2PrZEBklGTpZT1lkmXnZj1mkmbo + Zz1nk2fpaD9olmjsaUNpmmnxakhqn2r3a09rp2v/bFdsr20IbWBtuW4SbmtuxG8eb3hv0XArcIZw4HE6 + cZVx8HJLcqZzAXNdc7h0FHRwdMx1KHWFdeF2Pnabdvh3VnezeBF4bnjMeSp5iXnnekZ6pXsEe2N7wnwh + fIF84X1BfaF+AX5ifsJ/I3+Ef+WAR4CogQqBa4HNgjCCkoL0g1eDuoQdhICE44VHhauGDoZyhteHO4ef + iASIaYjOiTOJmYn+imSKyoswi5aL/IxjjMqNMY2Yjf+OZo7OjzaPnpAGkG6Q1pE/kaiSEZJ6kuOTTZO2 + lCCUipT0lV+VyZY0lp+XCpd1l+CYTJi4mSSZkJn8mmia1ZtCm6+cHJyJnPedZJ3SnkCerp8dn4uf+qBp + oNihR6G2oiailqMGo3aj5qRWpMelOKWpphqmi6b9p26n4KhSqMSpN6mpqhyqj6sCq3Wr6axcrNCtRK24 + ri2uoa8Wr4uwALB1sOqxYLHWskuywrM4s660JbSctRO1irYBtnm28Ldot+C4WbjRuUq5wro7urW7Lrun + vCG8m70VvY++Cr6Evv+/er/1wHDA7MFnwePCX8Lbw1jD1MRRxM7FS8XIxkbGw8dBx7/IPci8yTrJuco4 + yrfLNsu2zDXMtc01zbXONs62zzfPuNA50LrRPNG+0j/SwdNE08bUSdTL1U7V0dZV1tjXXNfg2GTY6Nls + 2fHadtr724DcBdyK3RDdlt4c3qLfKd+v4DbgveFE4cziU+Lb42Pj6+Rz5PzlhOYN5pbnH+ep6DLovOlG + 6dDqW+rl63Dr++yG7RHtnO4o7rTvQO/M8Fjw5fFy8f/yjPMZ86f0NPTC9VD13vZt9vv3ivgZ+Kj5OPnH + +lf65/t3/Af8mP0p/br+S/7c/23////bAEMAAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEB + AQEBAQEBAQEBAQICAgICAgICAgICAwMDAwMDAwMDA//bAEMBAQEBAQEBAQEBAQICAQICAwMDAwMDAwMD + AwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDA//AABEIAAwAPAMBEQACEQEDEQH/ + xAAfAAABBQEBAQEBAQAAAAAAAAAAAQIDBAUGBwgJCgv/xAC1EAACAQMDAgQDBQUEBAAAAX0BAgMABBEF + EiExQQYTUWEHInEUMoGRoQgjQrHBFVLR8CQzYnKCCQoWFxgZGiUmJygpKjQ1Njc4OTpDREVGR0hJSlNU + VVZXWFlaY2RlZmdoaWpzdHV2d3h5eoOEhYaHiImKkpOUlZaXmJmaoqOkpaanqKmqsrO0tba3uLm6wsPE + xcbHyMnK0tPU1dbX2Nna4eLj5OXm5+jp6vHy8/T19vf4+fr/xAAfAQADAQEBAQEBAQEBAAAAAAAAAQID + BAUGBwgJCgv/xAC1EQACAQIEBAMEBwUEBAABAncAAQIDEQQFITEGEkFRB2FxEyIygQgUQpGhscEJIzNS + 8BVictEKFiQ04SXxFxgZGiYnKCkqNTY3ODk6Q0RFRkdISUpTVFVWV1hZWmNkZWZnaGlqc3R1dnd4eXqC + g4SFhoeIiYqSk5SVlpeYmZqio6Slpqeoqaqys7S1tre4ubrCw8TFxsfIycrS09TV1tfY2dri4+Tl5ufo + 6ery8/T19vf4+fr/2gAMAwEAAhEDEQA/AP1ZH7UPxEAA/wCEw8bnj/ob9f8A/k+v7U/1Nyj/AKF+G/8A + BUP/AJE/llcSZlZf7dX/APBk/wDMX/hqH4if9Df43/8ACv1//wCT6P8AU3Kf+hfhv/BUP/kQ/wBZcy/6 + Dq//AIMn/mH/AA1D8RP+hv8AG/8A4V+v/wDyfR/qblP/AEL8N/4Kh/8AIh/rLmX/AEHV/wDwZP8AzD/h + qH4if9Df43/8K/X/AP5Po/1Nyn/oX4b/AMFQ/wDkQ/1lzL/oOr/+DJ/5h/w1D8RP+hv8b/8AhX6//wDJ + 9H+puU/9C/Df+Cof/Ih/rLmX/QdX/wDBk/8AMT/hqH4if9Df43/8K/X/AP5Po/1Nyn/oX4b/AMFQ/wDk + Q/1kzL/oOr/+DJ/5n2R+xz+234zt/iRpnw+8a6vqXiDwZ4gs9baObXr+bUr/AMPajpmkX2tQ3FlqV2Zb + 57K7XT2t3tXkaJWkV4whVxJ+beJfAuU4Th/FZ/hKEKOMw8qd+SKjGcZzjTs4q0bpyUlJK7s073VvuuBO + LMxxGcYfJ8TWlVw1ZTtzu7hKMJTupPWzUWnFu2qatrf9aP8AhfXgv+zv7U89/sfm+V5207N+M43fSv50 + P2w/kwr/AEFP42CgAoAKACgAoA9s/Z0/s7/hcng3+1vP/s7Ov/avs2PP2f8ACL63t2buP9ZjP+zmvz7x + U/5IPPf+4H/qRRPsvD//AJK7KP8AuL/6ZqH7/wD/ABaT/hUfb7Ht/wBj7V9p8v8A9Cr+Oz+lz//Z + + + + + /9j/4AAQSkZJRgABAgEASABIAAD/7gAOQWRvYmUAZAAAAAAB/+ED5kV4aWYAAE1NACoAAAAIAAcBEgAD + AAAAAQABAAABGgAFAAAAAQAAAGIBGwAFAAAAAQAAAGoBKAADAAAAAQACAAABMQACAAAAHAAAAHIBMgAC + AAAAFAAAAI6HaQAEAAAAAQAAAKIAAADCAEgAAAABAAAASAAAAAEAAEFkb2JlIFBob3Rvc2hvcCBDUzMg + V2luZG93cwAyMDEwOjA0OjE1IDIwOjMyOjA0AAACoAIABAAAAAEAAAA8oAMABAAAAAEAAAAMAAAAAAAA + AAYBAwADAAAAAQAGAAABGgAFAAAAAQAAARABGwAFAAAAAQAAARgBKAADAAAAAQACAAACAQAEAAAAAQAA + ASACAgAEAAAAAQAAAr4AAAAAAAAASAAAAAEAAABIAAAAAf/Y/+AAEEpGSUYAAQIAAEgASAAA/+0ADEFk + b2JlX0NNAAH/7gAOQWRvYmUAZIAAAAAB/9sAhAAMCAgICQgMCQkMEQsKCxEVDwwMDxUYExMVExMYEQwM + DAwMDBEMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMAQ0LCw0ODRAODhAUDg4OFBQODg4OFBEMDAwM + DBERDAwMDAwMEQwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAz/wAARCAAMADwDASIAAhEBAxEB/90A + BAAE/8QBPwAAAQUBAQEBAQEAAAAAAAAAAwABAgQFBgcICQoLAQABBQEBAQEBAQAAAAAAAAABAAIDBAUG + BwgJCgsQAAEEAQMCBAIFBwYIBQMMMwEAAhEDBCESMQVBUWETInGBMgYUkaGxQiMkFVLBYjM0coLRQwcl + klPw4fFjczUWorKDJkSTVGRFwqN0NhfSVeJl8rOEw9N14/NGJ5SkhbSVxNTk9KW1xdXl9VZmdoaWprbG + 1ub2N0dXZ3eHl6e3x9fn9xEAAgIBAgQEAwQFBgcHBgU1AQACEQMhMRIEQVFhcSITBTKBkRShsUIjwVLR + 8DMkYuFygpJDUxVjczTxJQYWorKDByY1wtJEk1SjF2RFVTZ0ZeLys4TD03Xj80aUpIW0lcTU5PSltcXV + 5fVWZnaGlqa2xtbm9ic3R1dnd4eXp7fH/9oADAMBAAIRAxEAPwDd/amR/pH/AOcf70v2pkf6R/8AnH+9 + UUlofq/Bpevxb37UyP8ASP8A84/3pftTI/0j/wDOP96opJfq/BXr8W9+1Mj/AEj/APOP96X7UyP9I/8A + zj/eqKSX6vwV6/F3ujdbuGS2i5xfU8HVxktIG76XyW99vo27p0XGdO2/ba930dZj+q5dX+qfZPL8VAeD + 341VVr/eZhx+0bu708n/2f/tCSBQaG90b3Nob3AgMy4wADhCSU0EJQAAAAAAEAAAAAAAAAAAAAAAAAAA + AAA4QklNBC8AAAAAAErgYgEASAAAAEgAAAAAAAAAAAAAANACAABAAgAAAAAAAAAAAAAYAwAAZAIAAAAB + wAMAALAEAAABAA8nAQBsbHVuAAAAAAAAAAAAADhCSU0D7QAAAAAAEABIAAAAAQACAEgAAAABAAI4QklN + BCYAAAAAAA4AAAAAAAAAAAAAP4AAADhCSU0EDQAAAAAABAAAAHg4QklNBBkAAAAAAAQAAAAeOEJJTQPz + AAAAAAAJAAAAAAAAAAABADhCSU0ECgAAAAAAAQAAOEJJTScQAAAAAAAKAAEAAAAAAAAAAjhCSU0D9QAA + AAAASAAvZmYAAQBsZmYABgAAAAAAAQAvZmYAAQChmZoABgAAAAAAAQAyAAAAAQBaAAAABgAAAAAAAQA1 + AAAAAQAtAAAABgAAAAAAAThCSU0D+AAAAAAAcAAA/////////////////////////////wPoAAAAAP// + //////////////////////////8D6AAAAAD/////////////////////////////A+gAAAAA//////// + /////////////////////wPoAAA4QklNBAAAAAAAAAIAAjhCSU0EAgAAAAAABgAAAAAAADhCSU0EMAAA + AAAAAwEBAQA4QklNBC0AAAAAAAYAAQAAAAM4QklNBAgAAAAAABAAAAABAAACQAAAAkAAAAAAOEJJTQQe + AAAAAAAEAAAAADhCSU0EGgAAAAADPwAAAAYAAAAAAAAAAAAAAAwAAAA8AAAABbs0yBwALQAxADIAAAAB + AAAAAAAAAAAAAAAAAAAAAAAAAAEAAAAAAAAAAAAAADwAAAAMAAAAAAAAAAAAAAAAAAAAAAEAAAAAAAAA + AAAAAAAAAAAAAAAAEAAAAAEAAAAAAABudWxsAAAAAgAAAAZib3VuZHNPYmpjAAAAAQAAAAAAAFJjdDEA + AAAEAAAAAFRvcCBsb25nAAAAAAAAAABMZWZ0bG9uZwAAAAAAAAAAQnRvbWxvbmcAAAAMAAAAAFJnaHRs + b25nAAAAPAAAAAZzbGljZXNWbExzAAAAAU9iamMAAAABAAAAAAAFc2xpY2UAAAASAAAAB3NsaWNlSURs + b25nAAAAAAAAAAdncm91cElEbG9uZwAAAAAAAAAGb3JpZ2luZW51bQAAAAxFU2xpY2VPcmlnaW4AAAAN + YXV0b0dlbmVyYXRlZAAAAABUeXBlZW51bQAAAApFU2xpY2VUeXBlAAAAAEltZyAAAAAGYm91bmRzT2Jq + YwAAAAEAAAAAAABSY3QxAAAABAAAAABUb3AgbG9uZwAAAAAAAAAATGVmdGxvbmcAAAAAAAAAAEJ0b21s + b25nAAAADAAAAABSZ2h0bG9uZwAAADwAAAADdXJsVEVYVAAAAAEAAAAAAABudWxsVEVYVAAAAAEAAAAA + AABNc2dlVEVYVAAAAAEAAAAAAAZhbHRUYWdURVhUAAAAAQAAAAAADmNlbGxUZXh0SXNIVE1MYm9vbAEA + AAAIY2VsbFRleHRURVhUAAAAAQAAAAAACWhvcnpBbGlnbmVudW0AAAAPRVNsaWNlSG9yekFsaWduAAAA + B2RlZmF1bHQAAAAJdmVydEFsaWduZW51bQAAAA9FU2xpY2VWZXJ0QWxpZ24AAAAHZGVmYXVsdAAAAAti + Z0NvbG9yVHlwZWVudW0AAAARRVNsaWNlQkdDb2xvclR5cGUAAAAATm9uZQAAAAl0b3BPdXRzZXRsb25n + AAAAAAAAAApsZWZ0T3V0c2V0bG9uZwAAAAAAAAAMYm90dG9tT3V0c2V0bG9uZwAAAAAAAAALcmlnaHRP + dXRzZXRsb25nAAAAAAA4QklNBCgAAAAAAAwAAAABP/AAAAAAAAA4QklNBBQAAAAAAAQAAAAEOEJJTQQM + AAAAAALaAAAAAQAAADwAAAAMAAAAtAAACHAAAAK+ABgAAf/Y/+AAEEpGSUYAAQIAAEgASAAA/+0ADEFk + b2JlX0NNAAH/7gAOQWRvYmUAZIAAAAAB/9sAhAAMCAgICQgMCQkMEQsKCxEVDwwMDxUYExMVExMYEQwM + DAwMDBEMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMAQ0LCw0ODRAODhAUDg4OFBQODg4OFBEMDAwM + DBERDAwMDAwMEQwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAz/wAARCAAMADwDASIAAhEBAxEB/90A + BAAE/8QBPwAAAQUBAQEBAQEAAAAAAAAAAwABAgQFBgcICQoLAQABBQEBAQEBAQAAAAAAAAABAAIDBAUG + BwgJCgsQAAEEAQMCBAIFBwYIBQMMMwEAAhEDBCESMQVBUWETInGBMgYUkaGxQiMkFVLBYjM0coLRQwcl + klPw4fFjczUWorKDJkSTVGRFwqN0NhfSVeJl8rOEw9N14/NGJ5SkhbSVxNTk9KW1xdXl9VZmdoaWprbG + 1ub2N0dXZ3eHl6e3x9fn9xEAAgIBAgQEAwQFBgcHBgU1AQACEQMhMRIEQVFhcSITBTKBkRShsUIjwVLR + 8DMkYuFygpJDUxVjczTxJQYWorKDByY1wtJEk1SjF2RFVTZ0ZeLys4TD03Xj80aUpIW0lcTU5PSltcXV + 5fVWZnaGlqa2xtbm9ic3R1dnd4eXp7fH/9oADAMBAAIRAxEAPwDd/amR/pH/AOcf70v2pkf6R/8AnH+9 + UUlofq/Bpevxb37UyP8ASP8A84/3pftTI/0j/wDOP96opJfq/BXr8W9+1Mj/AEj/APOP96X7UyP9I/8A + zj/eqKSX6vwV6/F3ujdbuGS2i5xfU8HVxktIG76XyW99vo27p0XGdO2/ba930dZj+q5dX+qfZPL8VAeD + 341VVr/eZhx+0bu708n/2ThCSU0EIQAAAAAAVQAAAAEBAAAADwBBAGQAbwBiAGUAIABQAGgAbwB0AG8A + cwBoAG8AcAAAABMAQQBkAG8AYgBlACAAUABoAG8AdABvAHMAaABvAHAAIABDAFMAMwAAAAEAOEJJTQQG + AAAAAAAHAAgAAQABAQD/4Q/MaHR0cDovL25zLmFkb2JlLmNvbS94YXAvMS4wLwA8P3hwYWNrZXQgYmVn + aW49Iu+7vyIgaWQ9Ilc1TTBNcENlaGlIenJlU3pOVGN6a2M5ZCI/Pg0KPHg6eG1wbWV0YSB4bWxuczp4 + PSJhZG9iZTpuczptZXRhLyIgeDp4bXB0az0iQWRvYmUgWE1QIENvcmUgNC4xLWMwMzYgNDYuMjc2NzIw + LCBNb24gRmViIDE5IDIwMDcgMjI6NDA6MDggICAgICAgICI+DQoJPHJkZjpSREYgeG1sbnM6cmRmPSJo + dHRwOi8vd3d3LnczLm9yZy8xOTk5LzAyLzIyLXJkZi1zeW50YXgtbnMjIj4NCgkJPHJkZjpEZXNjcmlw + dGlvbiByZGY6YWJvdXQ9IiIgeG1sbnM6ZGM9Imh0dHA6Ly9wdXJsLm9yZy9kYy9lbGVtZW50cy8xLjEv + IiB4bWxuczp4YXA9Imh0dHA6Ly9ucy5hZG9iZS5jb20veGFwLzEuMC8iIHhtbG5zOnhhcE1NPSJodHRw + Oi8vbnMuYWRvYmUuY29tL3hhcC8xLjAvbW0vIiB4bWxuczpzdFJlZj0iaHR0cDovL25zLmFkb2JlLmNv + bS94YXAvMS4wL3NUeXBlL1Jlc291cmNlUmVmIyIgeG1sbnM6cGhvdG9zaG9wPSJodHRwOi8vbnMuYWRv + YmUuY29tL3Bob3Rvc2hvcC8xLjAvIiB4bWxuczp0aWZmPSJodHRwOi8vbnMuYWRvYmUuY29tL3RpZmYv + MS4wLyIgeG1sbnM6ZXhpZj0iaHR0cDovL25zLmFkb2JlLmNvbS9leGlmLzEuMC8iIGRjOmZvcm1hdD0i + aW1hZ2UvanBlZyIgeGFwOkNyZWF0b3JUb29sPSJBZG9iZSBQaG90b3Nob3AgQ1MzIFdpbmRvd3MiIHhh + cDpDcmVhdGVEYXRlPSIyMDEwLTA0LTE1VDIwOjMyOjA0KzA5OjAwIiB4YXA6TW9kaWZ5RGF0ZT0iMjAx + MC0wNC0xNVQyMDozMjowNCswOTowMCIgeGFwOk1ldGFkYXRhRGF0ZT0iMjAxMC0wNC0xNVQyMDozMjow + NCswOTowMCIgeGFwTU06RG9jdW1lbnRJRD0idXVpZDpGRTRGOUVDQzgxNDhERjExQjQyNkI5NEQ4RDRD + ODAxNyIgeGFwTU06SW5zdGFuY2VJRD0idXVpZDpCNDE2RTc4MzgyNDhERjExQjQyNkI5NEQ4RDRDODAx + NyIgcGhvdG9zaG9wOkNvbG9yTW9kZT0iMyIgcGhvdG9zaG9wOklDQ1Byb2ZpbGU9InNSR0IgSUVDNjE5 + NjYtMi4xIiBwaG90b3Nob3A6SGlzdG9yeT0iIiB0aWZmOk9yaWVudGF0aW9uPSIxIiB0aWZmOlhSZXNv + bHV0aW9uPSI3MjAwMDAvMTAwMDAiIHRpZmY6WVJlc29sdXRpb249IjcyMDAwMC8xMDAwMCIgdGlmZjpS + ZXNvbHV0aW9uVW5pdD0iMiIgdGlmZjpOYXRpdmVEaWdlc3Q9IjI1NiwyNTcsMjU4LDI1OSwyNjIsMjc0 + LDI3NywyODQsNTMwLDUzMSwyODIsMjgzLDI5NiwzMDEsMzE4LDMxOSw1MjksNTMyLDMwNiwyNzAsMjcx + LDI3MiwzMDUsMzE1LDMzNDMyOzk4ODcxNzIxMUFCRjY2MTQxRDU3NEI3OUYzRjQ2QkFBIiBleGlmOlBp + eGVsWERpbWVuc2lvbj0iNjAiIGV4aWY6UGl4ZWxZRGltZW5zaW9uPSIxMiIgZXhpZjpDb2xvclNwYWNl + PSIxIiBleGlmOk5hdGl2ZURpZ2VzdD0iMzY4NjQsNDA5NjAsNDA5NjEsMzcxMjEsMzcxMjIsNDA5NjIs + NDA5NjMsMzc1MTAsNDA5NjQsMzY4NjcsMzY4NjgsMzM0MzQsMzM0MzcsMzQ4NTAsMzQ4NTIsMzQ4NTUs + MzQ4NTYsMzczNzcsMzczNzgsMzczNzksMzczODAsMzczODEsMzczODIsMzczODMsMzczODQsMzczODUs + MzczODYsMzczOTYsNDE0ODMsNDE0ODQsNDE0ODYsNDE0ODcsNDE0ODgsNDE0OTIsNDE0OTMsNDE0OTUs + NDE3MjgsNDE3MjksNDE3MzAsNDE5ODUsNDE5ODYsNDE5ODcsNDE5ODgsNDE5ODksNDE5OTAsNDE5OTEs + NDE5OTIsNDE5OTMsNDE5OTQsNDE5OTUsNDE5OTYsNDIwMTYsMCwyLDQsNSw2LDcsOCw5LDEwLDExLDEy + LDEzLDE0LDE1LDE2LDE3LDE4LDIwLDIyLDIzLDI0LDI1LDI2LDI3LDI4LDMwOzM1N0NDOEY1MDE4RURF + NDY2NjVCQkRFMUFEMkRCQkJBIj4NCgkJCTx4YXBNTTpEZXJpdmVkRnJvbSBzdFJlZjppbnN0YW5jZUlE + PSJ1dWlkOkY1NEY5RUNDODE0OERGMTFCNDI2Qjk0RDhENEM4MDE3IiBzdFJlZjpkb2N1bWVudElEPSJ1 + dWlkOkY1NEY5RUNDODE0OERGMTFCNDI2Qjk0RDhENEM4MDE3Ii8+DQoJCTwvcmRmOkRlc2NyaXB0aW9u + Pg0KCTwvcmRmOlJERj4NCjwveDp4bXBtZXRhPg0KICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgIAogICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgCiAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAKICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgIAogICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgCiAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAKICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgIAogICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgCiAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAKICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgIAogICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + CiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAKICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgIAogICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgCiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAKICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgIAogICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgCiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAKICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgIAogICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgCiAgICAgICAgICAgPD94cGFja2V0IGVuZD0ndyc/Pv/iDFhJQ0NfUFJPRklMRQABAQAA + DEhMaW5vAhAAAG1udHJSR0IgWFlaIAfOAAIACQAGADEAAGFjc3BNU0ZUAAAAAElFQyBzUkdCAAAAAAAA + AAAAAAAAAAD21gABAAAAANMtSFAgIAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAEWNwcnQAAAFQAAAAM2Rlc2MAAAGEAAAAbHd0cHQAAAHwAAAAFGJrcHQAAAIEAAAAFHJY + WVoAAAIYAAAAFGdYWVoAAAIsAAAAFGJYWVoAAAJAAAAAFGRtbmQAAAJUAAAAcGRtZGQAAALEAAAAiHZ1 + ZWQAAANMAAAAhnZpZXcAAAPUAAAAJGx1bWkAAAP4AAAAFG1lYXMAAAQMAAAAJHRlY2gAAAQwAAAADHJU + UkMAAAQ8AAAIDGdUUkMAAAQ8AAAIDGJUUkMAAAQ8AAAIDHRleHQAAAAAQ29weXJpZ2h0IChjKSAxOTk4 + IEhld2xldHQtUGFja2FyZCBDb21wYW55AABkZXNjAAAAAAAAABJzUkdCIElFQzYxOTY2LTIuMQAAAAAA + AAAAAAAAEnNSR0IgSUVDNjE5NjYtMi4xAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAABYWVogAAAAAAAA81EAAQAAAAEWzFhZWiAAAAAAAAAAAAAAAAAAAAAAWFlaIAAA + AAAAAG+iAAA49QAAA5BYWVogAAAAAAAAYpkAALeFAAAY2lhZWiAAAAAAAAAkoAAAD4QAALbPZGVzYwAA + AAAAAAAWSUVDIGh0dHA6Ly93d3cuaWVjLmNoAAAAAAAAAAAAAAAWSUVDIGh0dHA6Ly93d3cuaWVjLmNo + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAGRlc2MAAAAAAAAALklF + QyA2MTk2Ni0yLjEgRGVmYXVsdCBSR0IgY29sb3VyIHNwYWNlIC0gc1JHQgAAAAAAAAAAAAAALklFQyA2 + MTk2Ni0yLjEgRGVmYXVsdCBSR0IgY29sb3VyIHNwYWNlIC0gc1JHQgAAAAAAAAAAAAAAAAAAAAAAAAAA + AABkZXNjAAAAAAAAACxSZWZlcmVuY2UgVmlld2luZyBDb25kaXRpb24gaW4gSUVDNjE5NjYtMi4xAAAA + AAAAAAAAAAAsUmVmZXJlbmNlIFZpZXdpbmcgQ29uZGl0aW9uIGluIElFQzYxOTY2LTIuMQAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAdmlldwAAAAAAE6T+ABRfLgAQzxQAA+3MAAQTCwADXJ4AAAABWFlaIAAA + AAAATAlWAFAAAABXH+dtZWFzAAAAAAAAAAEAAAAAAAAAAAAAAAAAAAAAAAACjwAAAAJzaWcgAAAAAENS + VCBjdXJ2AAAAAAAABAAAAAAFAAoADwAUABkAHgAjACgALQAyADcAOwBAAEUASgBPAFQAWQBeAGMAaABt + AHIAdwB8AIEAhgCLAJAAlQCaAJ8ApACpAK4AsgC3ALwAwQDGAMsA0ADVANsA4ADlAOsA8AD2APsBAQEH + AQ0BEwEZAR8BJQErATIBOAE+AUUBTAFSAVkBYAFnAW4BdQF8AYMBiwGSAZoBoQGpAbEBuQHBAckB0QHZ + AeEB6QHyAfoCAwIMAhQCHQImAi8COAJBAksCVAJdAmcCcQJ6AoQCjgKYAqICrAK2AsECywLVAuAC6wL1 + AwADCwMWAyEDLQM4A0MDTwNaA2YDcgN+A4oDlgOiA64DugPHA9MD4APsA/kEBgQTBCAELQQ7BEgEVQRj + BHEEfgSMBJoEqAS2BMQE0wThBPAE/gUNBRwFKwU6BUkFWAVnBXcFhgWWBaYFtQXFBdUF5QX2BgYGFgYn + BjcGSAZZBmoGewaMBp0GrwbABtEG4wb1BwcHGQcrBz0HTwdhB3QHhgeZB6wHvwfSB+UH+AgLCB8IMghG + CFoIbgiCCJYIqgi+CNII5wj7CRAJJQk6CU8JZAl5CY8JpAm6Cc8J5Qn7ChEKJwo9ClQKagqBCpgKrgrF + CtwK8wsLCyILOQtRC2kLgAuYC7ALyAvhC/kMEgwqDEMMXAx1DI4MpwzADNkM8w0NDSYNQA1aDXQNjg2p + DcMN3g34DhMOLg5JDmQOfw6bDrYO0g7uDwkPJQ9BD14Peg+WD7MPzw/sEAkQJhBDEGEQfhCbELkQ1xD1 + ERMRMRFPEW0RjBGqEckR6BIHEiYSRRJkEoQSoxLDEuMTAxMjE0MTYxODE6QTxRPlFAYUJxRJFGoUixSt + FM4U8BUSFTQVVhV4FZsVvRXgFgMWJhZJFmwWjxayFtYW+hcdF0EXZReJF64X0hf3GBsYQBhlGIoYrxjV + GPoZIBlFGWsZkRm3Gd0aBBoqGlEadxqeGsUa7BsUGzsbYxuKG7Ib2hwCHCocUhx7HKMczBz1HR4dRx1w + HZkdwx3sHhYeQB5qHpQevh7pHxMfPh9pH5Qfvx/qIBUgQSBsIJggxCDwIRwhSCF1IaEhziH7IiciVSKC + Iq8i3SMKIzgjZiOUI8Ij8CQfJE0kfCSrJNolCSU4JWgllyXHJfcmJyZXJocmtyboJxgnSSd6J6sn3CgN + KD8ocSiiKNQpBik4KWspnSnQKgIqNSpoKpsqzysCKzYraSudK9EsBSw5LG4soizXLQwtQS12Last4S4W + Lkwugi63Lu4vJC9aL5Evxy/+MDUwbDCkMNsxEjFKMYIxujHyMioyYzKbMtQzDTNGM38zuDPxNCs0ZTSe + NNg1EzVNNYc1wjX9Njc2cjauNuk3JDdgN5w31zgUOFA4jDjIOQU5Qjl/Obw5+To2OnQ6sjrvOy07azuq + O+g8JzxlPKQ84z0iPWE9oT3gPiA+YD6gPuA/IT9hP6I/4kAjQGRApkDnQSlBakGsQe5CMEJyQrVC90M6 + Q31DwEQDREdEikTORRJFVUWaRd5GIkZnRqtG8Ec1R3tHwEgFSEtIkUjXSR1JY0mpSfBKN0p9SsRLDEtT + S5pL4kwqTHJMuk0CTUpNk03cTiVObk63TwBPSU+TT91QJ1BxULtRBlFQUZtR5lIxUnxSx1MTU19TqlP2 + VEJUj1TbVShVdVXCVg9WXFapVvdXRFeSV+BYL1h9WMtZGllpWbhaB1pWWqZa9VtFW5Vb5Vw1XIZc1l0n + XXhdyV4aXmxevV8PX2Ffs2AFYFdgqmD8YU9homH1YklinGLwY0Njl2PrZEBklGTpZT1lkmXnZj1mkmbo + Zz1nk2fpaD9olmjsaUNpmmnxakhqn2r3a09rp2v/bFdsr20IbWBtuW4SbmtuxG8eb3hv0XArcIZw4HE6 + cZVx8HJLcqZzAXNdc7h0FHRwdMx1KHWFdeF2Pnabdvh3VnezeBF4bnjMeSp5iXnnekZ6pXsEe2N7wnwh + fIF84X1BfaF+AX5ifsJ/I3+Ef+WAR4CogQqBa4HNgjCCkoL0g1eDuoQdhICE44VHhauGDoZyhteHO4ef + iASIaYjOiTOJmYn+imSKyoswi5aL/IxjjMqNMY2Yjf+OZo7OjzaPnpAGkG6Q1pE/kaiSEZJ6kuOTTZO2 + lCCUipT0lV+VyZY0lp+XCpd1l+CYTJi4mSSZkJn8mmia1ZtCm6+cHJyJnPedZJ3SnkCerp8dn4uf+qBp + oNihR6G2oiailqMGo3aj5qRWpMelOKWpphqmi6b9p26n4KhSqMSpN6mpqhyqj6sCq3Wr6axcrNCtRK24 + ri2uoa8Wr4uwALB1sOqxYLHWskuywrM4s660JbSctRO1irYBtnm28Ldot+C4WbjRuUq5wro7urW7Lrun + vCG8m70VvY++Cr6Evv+/er/1wHDA7MFnwePCX8Lbw1jD1MRRxM7FS8XIxkbGw8dBx7/IPci8yTrJuco4 + yrfLNsu2zDXMtc01zbXONs62zzfPuNA50LrRPNG+0j/SwdNE08bUSdTL1U7V0dZV1tjXXNfg2GTY6Nls + 2fHadtr724DcBdyK3RDdlt4c3qLfKd+v4DbgveFE4cziU+Lb42Pj6+Rz5PzlhOYN5pbnH+ep6DLovOlG + 6dDqW+rl63Dr++yG7RHtnO4o7rTvQO/M8Fjw5fFy8f/yjPMZ86f0NPTC9VD13vZt9vv3ivgZ+Kj5OPnH + +lf65/t3/Af8mP0p/br+S/7c/23////bAEMAAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEB + AQEBAQEBAQEBAQICAgICAgICAgICAwMDAwMDAwMDA//bAEMBAQEBAQEBAQEBAQICAQICAwMDAwMDAwMD + AwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDA//AABEIAAwAPAMBEQACEQEDEQH/ + xAAfAAABBQEBAQEBAQAAAAAAAAAAAQIDBAUGBwgJCgv/xAC1EAACAQMDAgQDBQUEBAAAAX0BAgMABBEF + EiExQQYTUWEHInEUMoGRoQgjQrHBFVLR8CQzYnKCCQoWFxgZGiUmJygpKjQ1Njc4OTpDREVGR0hJSlNU + VVZXWFlaY2RlZmdoaWpzdHV2d3h5eoOEhYaHiImKkpOUlZaXmJmaoqOkpaanqKmqsrO0tba3uLm6wsPE + xcbHyMnK0tPU1dbX2Nna4eLj5OXm5+jp6vHy8/T19vf4+fr/xAAfAQADAQEBAQEBAQEBAAAAAAAAAQID + BAUGBwgJCgv/xAC1EQACAQIEBAMEBwUEBAABAncAAQIDEQQFITEGEkFRB2FxEyIygQgUQpGhscEJIzNS + 8BVictEKFiQ04SXxFxgZGiYnKCkqNTY3ODk6Q0RFRkdISUpTVFVWV1hZWmNkZWZnaGlqc3R1dnd4eXqC + g4SFhoeIiYqSk5SVlpeYmZqio6Slpqeoqaqys7S1tre4ubrCw8TFxsfIycrS09TV1tfY2dri4+Tl5ufo + 6ery8/T19vf4+fr/2gAMAwEAAhEDEQA/AP1ZH7UPxEAA/wCEw8bnj/ob9f8A/k+v7U/1Nyj/AKF+G/8A + BUP/AJE/llcSZlZf7dX/APBk/wDMX/hqH4if9Df43/8ACv1//wCT6P8AU3Kf+hfhv/BUP/kQ/wBZcy/6 + Dq//AIMn/mH/AA1D8RP+hv8AG/8A4V+v/wDyfR/qblP/AEL8N/4Kh/8AIh/rLmX/AEHV/wDwZP8AzD/h + qH4if9Df43/8K/X/AP5Po/1Nyn/oX4b/AMFQ/wDkQ/1lzL/oOr/+DJ/5h/w1D8RP+hv8b/8AhX6//wDJ + 9H+puU/9C/Df+Cof/Ih/rLmX/QdX/wDBk/8AMT/hqH4if9Df43/8K/X/AP5Po/1Nyn/oX4b/AMFQ/wDk + Q/1kzL/oOr/+DJ/5n2R+xz+234zt/iRpnw+8a6vqXiDwZ4gs9baObXr+bUr/AMPajpmkX2tQ3FlqV2Zb + 57K7XT2t3tXkaJWkV4whVxJ+beJfAuU4Th/FZ/hKEKOMw8qd+SKjGcZzjTs4q0bpyUlJK7s073VvuuBO + LMxxGcYfJ8TWlVw1ZTtzu7hKMJTupPWzUWnFu2qatrf9aP8AhfXgv+zv7U89/sfm+V5207N+M43fSv50 + P2w/kwr/AEFP42CgAoAKACgAoA9s/Z0/s7/hcng3+1vP/s7Ov/avs2PP2f8ACL63t2buP9ZjP+zmvz7x + U/5IPPf+4H/qRRPsvD//AJK7KP8AuL/6ZqH7/wD/ABaT/hUfb7Ht/wBj7V9p8v8A9Cr+Oz+lz//Z + + + + + /9j/4AAQSkZJRgABAgEASABIAAD/7gAOQWRvYmUAZAAAAAAB/+ED5kV4aWYAAE1NACoAAAAIAAcBEgAD + AAAAAQABAAABGgAFAAAAAQAAAGIBGwAFAAAAAQAAAGoBKAADAAAAAQACAAABMQACAAAAHAAAAHIBMgAC + AAAAFAAAAI6HaQAEAAAAAQAAAKIAAADCAEgAAAABAAAASAAAAAEAAEFkb2JlIFBob3Rvc2hvcCBDUzMg + V2luZG93cwAyMDEwOjA0OjE1IDIwOjMyOjA0AAACoAIABAAAAAEAAAA8oAMABAAAAAEAAAAMAAAAAAAA + AAYBAwADAAAAAQAGAAABGgAFAAAAAQAAARABGwAFAAAAAQAAARgBKAADAAAAAQACAAACAQAEAAAAAQAA + ASACAgAEAAAAAQAAAr4AAAAAAAAASAAAAAEAAABIAAAAAf/Y/+AAEEpGSUYAAQIAAEgASAAA/+0ADEFk + b2JlX0NNAAH/7gAOQWRvYmUAZIAAAAAB/9sAhAAMCAgICQgMCQkMEQsKCxEVDwwMDxUYExMVExMYEQwM + DAwMDBEMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMAQ0LCw0ODRAODhAUDg4OFBQODg4OFBEMDAwM + DBERDAwMDAwMEQwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAz/wAARCAAMADwDASIAAhEBAxEB/90A + BAAE/8QBPwAAAQUBAQEBAQEAAAAAAAAAAwABAgQFBgcICQoLAQABBQEBAQEBAQAAAAAAAAABAAIDBAUG + BwgJCgsQAAEEAQMCBAIFBwYIBQMMMwEAAhEDBCESMQVBUWETInGBMgYUkaGxQiMkFVLBYjM0coLRQwcl + klPw4fFjczUWorKDJkSTVGRFwqN0NhfSVeJl8rOEw9N14/NGJ5SkhbSVxNTk9KW1xdXl9VZmdoaWprbG + 1ub2N0dXZ3eHl6e3x9fn9xEAAgIBAgQEAwQFBgcHBgU1AQACEQMhMRIEQVFhcSITBTKBkRShsUIjwVLR + 8DMkYuFygpJDUxVjczTxJQYWorKDByY1wtJEk1SjF2RFVTZ0ZeLys4TD03Xj80aUpIW0lcTU5PSltcXV + 5fVWZnaGlqa2xtbm9ic3R1dnd4eXp7fH/9oADAMBAAIRAxEAPwDd/amR/pH/AOcf70v2pkf6R/8AnH+9 + UUlofq/Bpevxb37UyP8ASP8A84/3pftTI/0j/wDOP96opJfq/BXr8W9+1Mj/AEj/APOP96X7UyP9I/8A + zj/eqKSX6vwV6/F3ujdbuGS2i5xfU8HVxktIG76XyW99vo27p0XGdO2/ba930dZj+q5dX+qfZPL8VAeD + 341VVr/eZhx+0bu708n/2f/tCSBQaG90b3Nob3AgMy4wADhCSU0EJQAAAAAAEAAAAAAAAAAAAAAAAAAA + AAA4QklNBC8AAAAAAErgYgEASAAAAEgAAAAAAAAAAAAAANACAABAAgAAAAAAAAAAAAAYAwAAZAIAAAAB + wAMAALAEAAABAA8nAQBsbHVuAAAAAAAAAAAAADhCSU0D7QAAAAAAEABIAAAAAQACAEgAAAABAAI4QklN + BCYAAAAAAA4AAAAAAAAAAAAAP4AAADhCSU0EDQAAAAAABAAAAHg4QklNBBkAAAAAAAQAAAAeOEJJTQPz + AAAAAAAJAAAAAAAAAAABADhCSU0ECgAAAAAAAQAAOEJJTScQAAAAAAAKAAEAAAAAAAAAAjhCSU0D9QAA + AAAASAAvZmYAAQBsZmYABgAAAAAAAQAvZmYAAQChmZoABgAAAAAAAQAyAAAAAQBaAAAABgAAAAAAAQA1 + AAAAAQAtAAAABgAAAAAAAThCSU0D+AAAAAAAcAAA/////////////////////////////wPoAAAAAP// + //////////////////////////8D6AAAAAD/////////////////////////////A+gAAAAA//////// + /////////////////////wPoAAA4QklNBAAAAAAAAAIAAjhCSU0EAgAAAAAABgAAAAAAADhCSU0EMAAA + AAAAAwEBAQA4QklNBC0AAAAAAAYAAQAAAAM4QklNBAgAAAAAABAAAAABAAACQAAAAkAAAAAAOEJJTQQe + AAAAAAAEAAAAADhCSU0EGgAAAAADPwAAAAYAAAAAAAAAAAAAAAwAAAA8AAAABbs0yBwALQAxADIAAAAB + AAAAAAAAAAAAAAAAAAAAAAAAAAEAAAAAAAAAAAAAADwAAAAMAAAAAAAAAAAAAAAAAAAAAAEAAAAAAAAA + AAAAAAAAAAAAAAAAEAAAAAEAAAAAAABudWxsAAAAAgAAAAZib3VuZHNPYmpjAAAAAQAAAAAAAFJjdDEA + AAAEAAAAAFRvcCBsb25nAAAAAAAAAABMZWZ0bG9uZwAAAAAAAAAAQnRvbWxvbmcAAAAMAAAAAFJnaHRs + b25nAAAAPAAAAAZzbGljZXNWbExzAAAAAU9iamMAAAABAAAAAAAFc2xpY2UAAAASAAAAB3NsaWNlSURs + b25nAAAAAAAAAAdncm91cElEbG9uZwAAAAAAAAAGb3JpZ2luZW51bQAAAAxFU2xpY2VPcmlnaW4AAAAN + YXV0b0dlbmVyYXRlZAAAAABUeXBlZW51bQAAAApFU2xpY2VUeXBlAAAAAEltZyAAAAAGYm91bmRzT2Jq + YwAAAAEAAAAAAABSY3QxAAAABAAAAABUb3AgbG9uZwAAAAAAAAAATGVmdGxvbmcAAAAAAAAAAEJ0b21s + b25nAAAADAAAAABSZ2h0bG9uZwAAADwAAAADdXJsVEVYVAAAAAEAAAAAAABudWxsVEVYVAAAAAEAAAAA + AABNc2dlVEVYVAAAAAEAAAAAAAZhbHRUYWdURVhUAAAAAQAAAAAADmNlbGxUZXh0SXNIVE1MYm9vbAEA + AAAIY2VsbFRleHRURVhUAAAAAQAAAAAACWhvcnpBbGlnbmVudW0AAAAPRVNsaWNlSG9yekFsaWduAAAA + B2RlZmF1bHQAAAAJdmVydEFsaWduZW51bQAAAA9FU2xpY2VWZXJ0QWxpZ24AAAAHZGVmYXVsdAAAAAti + Z0NvbG9yVHlwZWVudW0AAAARRVNsaWNlQkdDb2xvclR5cGUAAAAATm9uZQAAAAl0b3BPdXRzZXRsb25n + AAAAAAAAAApsZWZ0T3V0c2V0bG9uZwAAAAAAAAAMYm90dG9tT3V0c2V0bG9uZwAAAAAAAAALcmlnaHRP + dXRzZXRsb25nAAAAAAA4QklNBCgAAAAAAAwAAAABP/AAAAAAAAA4QklNBBQAAAAAAAQAAAAEOEJJTQQM + AAAAAALaAAAAAQAAADwAAAAMAAAAtAAACHAAAAK+ABgAAf/Y/+AAEEpGSUYAAQIAAEgASAAA/+0ADEFk + b2JlX0NNAAH/7gAOQWRvYmUAZIAAAAAB/9sAhAAMCAgICQgMCQkMEQsKCxEVDwwMDxUYExMVExMYEQwM + DAwMDBEMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMAQ0LCw0ODRAODhAUDg4OFBQODg4OFBEMDAwM + DBERDAwMDAwMEQwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAz/wAARCAAMADwDASIAAhEBAxEB/90A + BAAE/8QBPwAAAQUBAQEBAQEAAAAAAAAAAwABAgQFBgcICQoLAQABBQEBAQEBAQAAAAAAAAABAAIDBAUG + BwgJCgsQAAEEAQMCBAIFBwYIBQMMMwEAAhEDBCESMQVBUWETInGBMgYUkaGxQiMkFVLBYjM0coLRQwcl + klPw4fFjczUWorKDJkSTVGRFwqN0NhfSVeJl8rOEw9N14/NGJ5SkhbSVxNTk9KW1xdXl9VZmdoaWprbG + 1ub2N0dXZ3eHl6e3x9fn9xEAAgIBAgQEAwQFBgcHBgU1AQACEQMhMRIEQVFhcSITBTKBkRShsUIjwVLR + 8DMkYuFygpJDUxVjczTxJQYWorKDByY1wtJEk1SjF2RFVTZ0ZeLys4TD03Xj80aUpIW0lcTU5PSltcXV + 5fVWZnaGlqa2xtbm9ic3R1dnd4eXp7fH/9oADAMBAAIRAxEAPwDd/amR/pH/AOcf70v2pkf6R/8AnH+9 + UUlofq/Bpevxb37UyP8ASP8A84/3pftTI/0j/wDOP96opJfq/BXr8W9+1Mj/AEj/APOP96X7UyP9I/8A + zj/eqKSX6vwV6/F3ujdbuGS2i5xfU8HVxktIG76XyW99vo27p0XGdO2/ba930dZj+q5dX+qfZPL8VAeD + 341VVr/eZhx+0bu708n/2ThCSU0EIQAAAAAAVQAAAAEBAAAADwBBAGQAbwBiAGUAIABQAGgAbwB0AG8A + cwBoAG8AcAAAABMAQQBkAG8AYgBlACAAUABoAG8AdABvAHMAaABvAHAAIABDAFMAMwAAAAEAOEJJTQQG + AAAAAAAHAAgAAQABAQD/4Q/MaHR0cDovL25zLmFkb2JlLmNvbS94YXAvMS4wLwA8P3hwYWNrZXQgYmVn + aW49Iu+7vyIgaWQ9Ilc1TTBNcENlaGlIenJlU3pOVGN6a2M5ZCI/Pg0KPHg6eG1wbWV0YSB4bWxuczp4 + PSJhZG9iZTpuczptZXRhLyIgeDp4bXB0az0iQWRvYmUgWE1QIENvcmUgNC4xLWMwMzYgNDYuMjc2NzIw + LCBNb24gRmViIDE5IDIwMDcgMjI6NDA6MDggICAgICAgICI+DQoJPHJkZjpSREYgeG1sbnM6cmRmPSJo + dHRwOi8vd3d3LnczLm9yZy8xOTk5LzAyLzIyLXJkZi1zeW50YXgtbnMjIj4NCgkJPHJkZjpEZXNjcmlw + dGlvbiByZGY6YWJvdXQ9IiIgeG1sbnM6ZGM9Imh0dHA6Ly9wdXJsLm9yZy9kYy9lbGVtZW50cy8xLjEv + IiB4bWxuczp4YXA9Imh0dHA6Ly9ucy5hZG9iZS5jb20veGFwLzEuMC8iIHhtbG5zOnhhcE1NPSJodHRw + Oi8vbnMuYWRvYmUuY29tL3hhcC8xLjAvbW0vIiB4bWxuczpzdFJlZj0iaHR0cDovL25zLmFkb2JlLmNv + bS94YXAvMS4wL3NUeXBlL1Jlc291cmNlUmVmIyIgeG1sbnM6cGhvdG9zaG9wPSJodHRwOi8vbnMuYWRv + YmUuY29tL3Bob3Rvc2hvcC8xLjAvIiB4bWxuczp0aWZmPSJodHRwOi8vbnMuYWRvYmUuY29tL3RpZmYv + MS4wLyIgeG1sbnM6ZXhpZj0iaHR0cDovL25zLmFkb2JlLmNvbS9leGlmLzEuMC8iIGRjOmZvcm1hdD0i + aW1hZ2UvanBlZyIgeGFwOkNyZWF0b3JUb29sPSJBZG9iZSBQaG90b3Nob3AgQ1MzIFdpbmRvd3MiIHhh + cDpDcmVhdGVEYXRlPSIyMDEwLTA0LTE1VDIwOjMyOjA0KzA5OjAwIiB4YXA6TW9kaWZ5RGF0ZT0iMjAx + MC0wNC0xNVQyMDozMjowNCswOTowMCIgeGFwOk1ldGFkYXRhRGF0ZT0iMjAxMC0wNC0xNVQyMDozMjow + NCswOTowMCIgeGFwTU06RG9jdW1lbnRJRD0idXVpZDpGRTRGOUVDQzgxNDhERjExQjQyNkI5NEQ4RDRD + ODAxNyIgeGFwTU06SW5zdGFuY2VJRD0idXVpZDpCNDE2RTc4MzgyNDhERjExQjQyNkI5NEQ4RDRDODAx + NyIgcGhvdG9zaG9wOkNvbG9yTW9kZT0iMyIgcGhvdG9zaG9wOklDQ1Byb2ZpbGU9InNSR0IgSUVDNjE5 + NjYtMi4xIiBwaG90b3Nob3A6SGlzdG9yeT0iIiB0aWZmOk9yaWVudGF0aW9uPSIxIiB0aWZmOlhSZXNv + bHV0aW9uPSI3MjAwMDAvMTAwMDAiIHRpZmY6WVJlc29sdXRpb249IjcyMDAwMC8xMDAwMCIgdGlmZjpS + ZXNvbHV0aW9uVW5pdD0iMiIgdGlmZjpOYXRpdmVEaWdlc3Q9IjI1NiwyNTcsMjU4LDI1OSwyNjIsMjc0 + LDI3NywyODQsNTMwLDUzMSwyODIsMjgzLDI5NiwzMDEsMzE4LDMxOSw1MjksNTMyLDMwNiwyNzAsMjcx + LDI3MiwzMDUsMzE1LDMzNDMyOzk4ODcxNzIxMUFCRjY2MTQxRDU3NEI3OUYzRjQ2QkFBIiBleGlmOlBp + eGVsWERpbWVuc2lvbj0iNjAiIGV4aWY6UGl4ZWxZRGltZW5zaW9uPSIxMiIgZXhpZjpDb2xvclNwYWNl + PSIxIiBleGlmOk5hdGl2ZURpZ2VzdD0iMzY4NjQsNDA5NjAsNDA5NjEsMzcxMjEsMzcxMjIsNDA5NjIs + NDA5NjMsMzc1MTAsNDA5NjQsMzY4NjcsMzY4NjgsMzM0MzQsMzM0MzcsMzQ4NTAsMzQ4NTIsMzQ4NTUs + MzQ4NTYsMzczNzcsMzczNzgsMzczNzksMzczODAsMzczODEsMzczODIsMzczODMsMzczODQsMzczODUs + MzczODYsMzczOTYsNDE0ODMsNDE0ODQsNDE0ODYsNDE0ODcsNDE0ODgsNDE0OTIsNDE0OTMsNDE0OTUs + NDE3MjgsNDE3MjksNDE3MzAsNDE5ODUsNDE5ODYsNDE5ODcsNDE5ODgsNDE5ODksNDE5OTAsNDE5OTEs + NDE5OTIsNDE5OTMsNDE5OTQsNDE5OTUsNDE5OTYsNDIwMTYsMCwyLDQsNSw2LDcsOCw5LDEwLDExLDEy + LDEzLDE0LDE1LDE2LDE3LDE4LDIwLDIyLDIzLDI0LDI1LDI2LDI3LDI4LDMwOzM1N0NDOEY1MDE4RURF + NDY2NjVCQkRFMUFEMkRCQkJBIj4NCgkJCTx4YXBNTTpEZXJpdmVkRnJvbSBzdFJlZjppbnN0YW5jZUlE + PSJ1dWlkOkY1NEY5RUNDODE0OERGMTFCNDI2Qjk0RDhENEM4MDE3IiBzdFJlZjpkb2N1bWVudElEPSJ1 + dWlkOkY1NEY5RUNDODE0OERGMTFCNDI2Qjk0RDhENEM4MDE3Ii8+DQoJCTwvcmRmOkRlc2NyaXB0aW9u + Pg0KCTwvcmRmOlJERj4NCjwveDp4bXBtZXRhPg0KICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgIAogICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgCiAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAKICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgIAogICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgCiAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAKICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgIAogICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgCiAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAKICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgIAogICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + CiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAKICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgIAogICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgCiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAKICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgIAogICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgCiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAKICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgIAogICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgCiAgICAgICAgICAgPD94cGFja2V0IGVuZD0ndyc/Pv/iDFhJQ0NfUFJPRklMRQABAQAA + DEhMaW5vAhAAAG1udHJSR0IgWFlaIAfOAAIACQAGADEAAGFjc3BNU0ZUAAAAAElFQyBzUkdCAAAAAAAA + AAAAAAAAAAD21gABAAAAANMtSFAgIAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAEWNwcnQAAAFQAAAAM2Rlc2MAAAGEAAAAbHd0cHQAAAHwAAAAFGJrcHQAAAIEAAAAFHJY + WVoAAAIYAAAAFGdYWVoAAAIsAAAAFGJYWVoAAAJAAAAAFGRtbmQAAAJUAAAAcGRtZGQAAALEAAAAiHZ1 + ZWQAAANMAAAAhnZpZXcAAAPUAAAAJGx1bWkAAAP4AAAAFG1lYXMAAAQMAAAAJHRlY2gAAAQwAAAADHJU + UkMAAAQ8AAAIDGdUUkMAAAQ8AAAIDGJUUkMAAAQ8AAAIDHRleHQAAAAAQ29weXJpZ2h0IChjKSAxOTk4 + IEhld2xldHQtUGFja2FyZCBDb21wYW55AABkZXNjAAAAAAAAABJzUkdCIElFQzYxOTY2LTIuMQAAAAAA + AAAAAAAAEnNSR0IgSUVDNjE5NjYtMi4xAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAABYWVogAAAAAAAA81EAAQAAAAEWzFhZWiAAAAAAAAAAAAAAAAAAAAAAWFlaIAAA + AAAAAG+iAAA49QAAA5BYWVogAAAAAAAAYpkAALeFAAAY2lhZWiAAAAAAAAAkoAAAD4QAALbPZGVzYwAA + AAAAAAAWSUVDIGh0dHA6Ly93d3cuaWVjLmNoAAAAAAAAAAAAAAAWSUVDIGh0dHA6Ly93d3cuaWVjLmNo + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAGRlc2MAAAAAAAAALklF + QyA2MTk2Ni0yLjEgRGVmYXVsdCBSR0IgY29sb3VyIHNwYWNlIC0gc1JHQgAAAAAAAAAAAAAALklFQyA2 + MTk2Ni0yLjEgRGVmYXVsdCBSR0IgY29sb3VyIHNwYWNlIC0gc1JHQgAAAAAAAAAAAAAAAAAAAAAAAAAA + AABkZXNjAAAAAAAAACxSZWZlcmVuY2UgVmlld2luZyBDb25kaXRpb24gaW4gSUVDNjE5NjYtMi4xAAAA + AAAAAAAAAAAsUmVmZXJlbmNlIFZpZXdpbmcgQ29uZGl0aW9uIGluIElFQzYxOTY2LTIuMQAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAdmlldwAAAAAAE6T+ABRfLgAQzxQAA+3MAAQTCwADXJ4AAAABWFlaIAAA + AAAATAlWAFAAAABXH+dtZWFzAAAAAAAAAAEAAAAAAAAAAAAAAAAAAAAAAAACjwAAAAJzaWcgAAAAAENS + VCBjdXJ2AAAAAAAABAAAAAAFAAoADwAUABkAHgAjACgALQAyADcAOwBAAEUASgBPAFQAWQBeAGMAaABt + AHIAdwB8AIEAhgCLAJAAlQCaAJ8ApACpAK4AsgC3ALwAwQDGAMsA0ADVANsA4ADlAOsA8AD2APsBAQEH + AQ0BEwEZAR8BJQErATIBOAE+AUUBTAFSAVkBYAFnAW4BdQF8AYMBiwGSAZoBoQGpAbEBuQHBAckB0QHZ + AeEB6QHyAfoCAwIMAhQCHQImAi8COAJBAksCVAJdAmcCcQJ6AoQCjgKYAqICrAK2AsECywLVAuAC6wL1 + AwADCwMWAyEDLQM4A0MDTwNaA2YDcgN+A4oDlgOiA64DugPHA9MD4APsA/kEBgQTBCAELQQ7BEgEVQRj + BHEEfgSMBJoEqAS2BMQE0wThBPAE/gUNBRwFKwU6BUkFWAVnBXcFhgWWBaYFtQXFBdUF5QX2BgYGFgYn + BjcGSAZZBmoGewaMBp0GrwbABtEG4wb1BwcHGQcrBz0HTwdhB3QHhgeZB6wHvwfSB+UH+AgLCB8IMghG + CFoIbgiCCJYIqgi+CNII5wj7CRAJJQk6CU8JZAl5CY8JpAm6Cc8J5Qn7ChEKJwo9ClQKagqBCpgKrgrF + CtwK8wsLCyILOQtRC2kLgAuYC7ALyAvhC/kMEgwqDEMMXAx1DI4MpwzADNkM8w0NDSYNQA1aDXQNjg2p + DcMN3g34DhMOLg5JDmQOfw6bDrYO0g7uDwkPJQ9BD14Peg+WD7MPzw/sEAkQJhBDEGEQfhCbELkQ1xD1 + ERMRMRFPEW0RjBGqEckR6BIHEiYSRRJkEoQSoxLDEuMTAxMjE0MTYxODE6QTxRPlFAYUJxRJFGoUixSt + FM4U8BUSFTQVVhV4FZsVvRXgFgMWJhZJFmwWjxayFtYW+hcdF0EXZReJF64X0hf3GBsYQBhlGIoYrxjV + GPoZIBlFGWsZkRm3Gd0aBBoqGlEadxqeGsUa7BsUGzsbYxuKG7Ib2hwCHCocUhx7HKMczBz1HR4dRx1w + HZkdwx3sHhYeQB5qHpQevh7pHxMfPh9pH5Qfvx/qIBUgQSBsIJggxCDwIRwhSCF1IaEhziH7IiciVSKC + Iq8i3SMKIzgjZiOUI8Ij8CQfJE0kfCSrJNolCSU4JWgllyXHJfcmJyZXJocmtyboJxgnSSd6J6sn3CgN + KD8ocSiiKNQpBik4KWspnSnQKgIqNSpoKpsqzysCKzYraSudK9EsBSw5LG4soizXLQwtQS12Last4S4W + Lkwugi63Lu4vJC9aL5Evxy/+MDUwbDCkMNsxEjFKMYIxujHyMioyYzKbMtQzDTNGM38zuDPxNCs0ZTSe + NNg1EzVNNYc1wjX9Njc2cjauNuk3JDdgN5w31zgUOFA4jDjIOQU5Qjl/Obw5+To2OnQ6sjrvOy07azuq + O+g8JzxlPKQ84z0iPWE9oT3gPiA+YD6gPuA/IT9hP6I/4kAjQGRApkDnQSlBakGsQe5CMEJyQrVC90M6 + Q31DwEQDREdEikTORRJFVUWaRd5GIkZnRqtG8Ec1R3tHwEgFSEtIkUjXSR1JY0mpSfBKN0p9SsRLDEtT + S5pL4kwqTHJMuk0CTUpNk03cTiVObk63TwBPSU+TT91QJ1BxULtRBlFQUZtR5lIxUnxSx1MTU19TqlP2 + VEJUj1TbVShVdVXCVg9WXFapVvdXRFeSV+BYL1h9WMtZGllpWbhaB1pWWqZa9VtFW5Vb5Vw1XIZc1l0n + XXhdyV4aXmxevV8PX2Ffs2AFYFdgqmD8YU9homH1YklinGLwY0Njl2PrZEBklGTpZT1lkmXnZj1mkmbo + Zz1nk2fpaD9olmjsaUNpmmnxakhqn2r3a09rp2v/bFdsr20IbWBtuW4SbmtuxG8eb3hv0XArcIZw4HE6 + cZVx8HJLcqZzAXNdc7h0FHRwdMx1KHWFdeF2Pnabdvh3VnezeBF4bnjMeSp5iXnnekZ6pXsEe2N7wnwh + fIF84X1BfaF+AX5ifsJ/I3+Ef+WAR4CogQqBa4HNgjCCkoL0g1eDuoQdhICE44VHhauGDoZyhteHO4ef + iASIaYjOiTOJmYn+imSKyoswi5aL/IxjjMqNMY2Yjf+OZo7OjzaPnpAGkG6Q1pE/kaiSEZJ6kuOTTZO2 + lCCUipT0lV+VyZY0lp+XCpd1l+CYTJi4mSSZkJn8mmia1ZtCm6+cHJyJnPedZJ3SnkCerp8dn4uf+qBp + oNihR6G2oiailqMGo3aj5qRWpMelOKWpphqmi6b9p26n4KhSqMSpN6mpqhyqj6sCq3Wr6axcrNCtRK24 + ri2uoa8Wr4uwALB1sOqxYLHWskuywrM4s660JbSctRO1irYBtnm28Ldot+C4WbjRuUq5wro7urW7Lrun + vCG8m70VvY++Cr6Evv+/er/1wHDA7MFnwePCX8Lbw1jD1MRRxM7FS8XIxkbGw8dBx7/IPci8yTrJuco4 + yrfLNsu2zDXMtc01zbXONs62zzfPuNA50LrRPNG+0j/SwdNE08bUSdTL1U7V0dZV1tjXXNfg2GTY6Nls + 2fHadtr724DcBdyK3RDdlt4c3qLfKd+v4DbgveFE4cziU+Lb42Pj6+Rz5PzlhOYN5pbnH+ep6DLovOlG + 6dDqW+rl63Dr++yG7RHtnO4o7rTvQO/M8Fjw5fFy8f/yjPMZ86f0NPTC9VD13vZt9vv3ivgZ+Kj5OPnH + +lf65/t3/Af8mP0p/br+S/7c/23////bAEMAAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEB + AQEBAQEBAQEBAQICAgICAgICAgICAwMDAwMDAwMDA//bAEMBAQEBAQEBAQEBAQICAQICAwMDAwMDAwMD + AwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDA//AABEIAAwAPAMBEQACEQEDEQH/ + xAAfAAABBQEBAQEBAQAAAAAAAAAAAQIDBAUGBwgJCgv/xAC1EAACAQMDAgQDBQUEBAAAAX0BAgMABBEF + EiExQQYTUWEHInEUMoGRoQgjQrHBFVLR8CQzYnKCCQoWFxgZGiUmJygpKjQ1Njc4OTpDREVGR0hJSlNU + VVZXWFlaY2RlZmdoaWpzdHV2d3h5eoOEhYaHiImKkpOUlZaXmJmaoqOkpaanqKmqsrO0tba3uLm6wsPE + xcbHyMnK0tPU1dbX2Nna4eLj5OXm5+jp6vHy8/T19vf4+fr/xAAfAQADAQEBAQEBAQEBAAAAAAAAAQID + BAUGBwgJCgv/xAC1EQACAQIEBAMEBwUEBAABAncAAQIDEQQFITEGEkFRB2FxEyIygQgUQpGhscEJIzNS + 8BVictEKFiQ04SXxFxgZGiYnKCkqNTY3ODk6Q0RFRkdISUpTVFVWV1hZWmNkZWZnaGlqc3R1dnd4eXqC + g4SFhoeIiYqSk5SVlpeYmZqio6Slpqeoqaqys7S1tre4ubrCw8TFxsfIycrS09TV1tfY2dri4+Tl5ufo + 6ery8/T19vf4+fr/2gAMAwEAAhEDEQA/AP1ZH7UPxEAA/wCEw8bnj/ob9f8A/k+v7U/1Nyj/AKF+G/8A + BUP/AJE/llcSZlZf7dX/APBk/wDMX/hqH4if9Df43/8ACv1//wCT6P8AU3Kf+hfhv/BUP/kQ/wBZcy/6 + Dq//AIMn/mH/AA1D8RP+hv8AG/8A4V+v/wDyfR/qblP/AEL8N/4Kh/8AIh/rLmX/AEHV/wDwZP8AzD/h + qH4if9Df43/8K/X/AP5Po/1Nyn/oX4b/AMFQ/wDkQ/1lzL/oOr/+DJ/5h/w1D8RP+hv8b/8AhX6//wDJ + 9H+puU/9C/Df+Cof/Ih/rLmX/QdX/wDBk/8AMT/hqH4if9Df43/8K/X/AP5Po/1Nyn/oX4b/AMFQ/wDk + Q/1kzL/oOr/+DJ/5n2R+xz+234zt/iRpnw+8a6vqXiDwZ4gs9baObXr+bUr/AMPajpmkX2tQ3FlqV2Zb + 57K7XT2t3tXkaJWkV4whVxJ+beJfAuU4Th/FZ/hKEKOMw8qd+SKjGcZzjTs4q0bpyUlJK7s073VvuuBO + LMxxGcYfJ8TWlVw1ZTtzu7hKMJTupPWzUWnFu2qatrf9aP8AhfXgv+zv7U89/sfm+V5207N+M43fSv50 + P2w/kwr/AEFP42CgAoAKACgAoA9s/Z0/s7/hcng3+1vP/s7Ov/avs2PP2f8ACL63t2buP9ZjP+zmvz7x + U/5IPPf+4H/qRRPsvD//AJK7KP8AuL/6ZqH7/wD/ABaT/hUfb7Ht/wBj7V9p8v8A9Cr+Oz+lz//Z + + + + + /9j/4AAQSkZJRgABAgEASABIAAD/7gAOQWRvYmUAZAAAAAAB/+ED5kV4aWYAAE1NACoAAAAIAAcBEgAD + AAAAAQABAAABGgAFAAAAAQAAAGIBGwAFAAAAAQAAAGoBKAADAAAAAQACAAABMQACAAAAHAAAAHIBMgAC + AAAAFAAAAI6HaQAEAAAAAQAAAKIAAADCAEgAAAABAAAASAAAAAEAAEFkb2JlIFBob3Rvc2hvcCBDUzMg + V2luZG93cwAyMDEwOjA0OjE1IDIwOjMyOjA0AAACoAIABAAAAAEAAAA8oAMABAAAAAEAAAAMAAAAAAAA + AAYBAwADAAAAAQAGAAABGgAFAAAAAQAAARABGwAFAAAAAQAAARgBKAADAAAAAQACAAACAQAEAAAAAQAA + ASACAgAEAAAAAQAAAr4AAAAAAAAASAAAAAEAAABIAAAAAf/Y/+AAEEpGSUYAAQIAAEgASAAA/+0ADEFk + b2JlX0NNAAH/7gAOQWRvYmUAZIAAAAAB/9sAhAAMCAgICQgMCQkMEQsKCxEVDwwMDxUYExMVExMYEQwM + DAwMDBEMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMAQ0LCw0ODRAODhAUDg4OFBQODg4OFBEMDAwM + DBERDAwMDAwMEQwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAz/wAARCAAMADwDASIAAhEBAxEB/90A + BAAE/8QBPwAAAQUBAQEBAQEAAAAAAAAAAwABAgQFBgcICQoLAQABBQEBAQEBAQAAAAAAAAABAAIDBAUG + BwgJCgsQAAEEAQMCBAIFBwYIBQMMMwEAAhEDBCESMQVBUWETInGBMgYUkaGxQiMkFVLBYjM0coLRQwcl + klPw4fFjczUWorKDJkSTVGRFwqN0NhfSVeJl8rOEw9N14/NGJ5SkhbSVxNTk9KW1xdXl9VZmdoaWprbG + 1ub2N0dXZ3eHl6e3x9fn9xEAAgIBAgQEAwQFBgcHBgU1AQACEQMhMRIEQVFhcSITBTKBkRShsUIjwVLR + 8DMkYuFygpJDUxVjczTxJQYWorKDByY1wtJEk1SjF2RFVTZ0ZeLys4TD03Xj80aUpIW0lcTU5PSltcXV + 5fVWZnaGlqa2xtbm9ic3R1dnd4eXp7fH/9oADAMBAAIRAxEAPwDd/amR/pH/AOcf70v2pkf6R/8AnH+9 + UUlofq/Bpevxb37UyP8ASP8A84/3pftTI/0j/wDOP96opJfq/BXr8W9+1Mj/AEj/APOP96X7UyP9I/8A + zj/eqKSX6vwV6/F3ujdbuGS2i5xfU8HVxktIG76XyW99vo27p0XGdO2/ba930dZj+q5dX+qfZPL8VAeD + 341VVr/eZhx+0bu708n/2f/tCSBQaG90b3Nob3AgMy4wADhCSU0EJQAAAAAAEAAAAAAAAAAAAAAAAAAA + AAA4QklNBC8AAAAAAErgYgEASAAAAEgAAAAAAAAAAAAAANACAABAAgAAAAAAAAAAAAAYAwAAZAIAAAAB + wAMAALAEAAABAA8nAQBsbHVuAAAAAAAAAAAAADhCSU0D7QAAAAAAEABIAAAAAQACAEgAAAABAAI4QklN + BCYAAAAAAA4AAAAAAAAAAAAAP4AAADhCSU0EDQAAAAAABAAAAHg4QklNBBkAAAAAAAQAAAAeOEJJTQPz + AAAAAAAJAAAAAAAAAAABADhCSU0ECgAAAAAAAQAAOEJJTScQAAAAAAAKAAEAAAAAAAAAAjhCSU0D9QAA + AAAASAAvZmYAAQBsZmYABgAAAAAAAQAvZmYAAQChmZoABgAAAAAAAQAyAAAAAQBaAAAABgAAAAAAAQA1 + AAAAAQAtAAAABgAAAAAAAThCSU0D+AAAAAAAcAAA/////////////////////////////wPoAAAAAP// + //////////////////////////8D6AAAAAD/////////////////////////////A+gAAAAA//////// + /////////////////////wPoAAA4QklNBAAAAAAAAAIAAjhCSU0EAgAAAAAABgAAAAAAADhCSU0EMAAA + AAAAAwEBAQA4QklNBC0AAAAAAAYAAQAAAAM4QklNBAgAAAAAABAAAAABAAACQAAAAkAAAAAAOEJJTQQe + AAAAAAAEAAAAADhCSU0EGgAAAAADPwAAAAYAAAAAAAAAAAAAAAwAAAA8AAAABbs0yBwALQAxADIAAAAB + AAAAAAAAAAAAAAAAAAAAAAAAAAEAAAAAAAAAAAAAADwAAAAMAAAAAAAAAAAAAAAAAAAAAAEAAAAAAAAA + AAAAAAAAAAAAAAAAEAAAAAEAAAAAAABudWxsAAAAAgAAAAZib3VuZHNPYmpjAAAAAQAAAAAAAFJjdDEA + AAAEAAAAAFRvcCBsb25nAAAAAAAAAABMZWZ0bG9uZwAAAAAAAAAAQnRvbWxvbmcAAAAMAAAAAFJnaHRs + b25nAAAAPAAAAAZzbGljZXNWbExzAAAAAU9iamMAAAABAAAAAAAFc2xpY2UAAAASAAAAB3NsaWNlSURs + b25nAAAAAAAAAAdncm91cElEbG9uZwAAAAAAAAAGb3JpZ2luZW51bQAAAAxFU2xpY2VPcmlnaW4AAAAN + YXV0b0dlbmVyYXRlZAAAAABUeXBlZW51bQAAAApFU2xpY2VUeXBlAAAAAEltZyAAAAAGYm91bmRzT2Jq + YwAAAAEAAAAAAABSY3QxAAAABAAAAABUb3AgbG9uZwAAAAAAAAAATGVmdGxvbmcAAAAAAAAAAEJ0b21s + b25nAAAADAAAAABSZ2h0bG9uZwAAADwAAAADdXJsVEVYVAAAAAEAAAAAAABudWxsVEVYVAAAAAEAAAAA + AABNc2dlVEVYVAAAAAEAAAAAAAZhbHRUYWdURVhUAAAAAQAAAAAADmNlbGxUZXh0SXNIVE1MYm9vbAEA + AAAIY2VsbFRleHRURVhUAAAAAQAAAAAACWhvcnpBbGlnbmVudW0AAAAPRVNsaWNlSG9yekFsaWduAAAA + B2RlZmF1bHQAAAAJdmVydEFsaWduZW51bQAAAA9FU2xpY2VWZXJ0QWxpZ24AAAAHZGVmYXVsdAAAAAti + Z0NvbG9yVHlwZWVudW0AAAARRVNsaWNlQkdDb2xvclR5cGUAAAAATm9uZQAAAAl0b3BPdXRzZXRsb25n + AAAAAAAAAApsZWZ0T3V0c2V0bG9uZwAAAAAAAAAMYm90dG9tT3V0c2V0bG9uZwAAAAAAAAALcmlnaHRP + dXRzZXRsb25nAAAAAAA4QklNBCgAAAAAAAwAAAABP/AAAAAAAAA4QklNBBQAAAAAAAQAAAAEOEJJTQQM + AAAAAALaAAAAAQAAADwAAAAMAAAAtAAACHAAAAK+ABgAAf/Y/+AAEEpGSUYAAQIAAEgASAAA/+0ADEFk + b2JlX0NNAAH/7gAOQWRvYmUAZIAAAAAB/9sAhAAMCAgICQgMCQkMEQsKCxEVDwwMDxUYExMVExMYEQwM + DAwMDBEMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMAQ0LCw0ODRAODhAUDg4OFBQODg4OFBEMDAwM + DBERDAwMDAwMEQwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAz/wAARCAAMADwDASIAAhEBAxEB/90A + BAAE/8QBPwAAAQUBAQEBAQEAAAAAAAAAAwABAgQFBgcICQoLAQABBQEBAQEBAQAAAAAAAAABAAIDBAUG + BwgJCgsQAAEEAQMCBAIFBwYIBQMMMwEAAhEDBCESMQVBUWETInGBMgYUkaGxQiMkFVLBYjM0coLRQwcl + klPw4fFjczUWorKDJkSTVGRFwqN0NhfSVeJl8rOEw9N14/NGJ5SkhbSVxNTk9KW1xdXl9VZmdoaWprbG + 1ub2N0dXZ3eHl6e3x9fn9xEAAgIBAgQEAwQFBgcHBgU1AQACEQMhMRIEQVFhcSITBTKBkRShsUIjwVLR + 8DMkYuFygpJDUxVjczTxJQYWorKDByY1wtJEk1SjF2RFVTZ0ZeLys4TD03Xj80aUpIW0lcTU5PSltcXV + 5fVWZnaGlqa2xtbm9ic3R1dnd4eXp7fH/9oADAMBAAIRAxEAPwDd/amR/pH/AOcf70v2pkf6R/8AnH+9 + UUlofq/Bpevxb37UyP8ASP8A84/3pftTI/0j/wDOP96opJfq/BXr8W9+1Mj/AEj/APOP96X7UyP9I/8A + zj/eqKSX6vwV6/F3ujdbuGS2i5xfU8HVxktIG76XyW99vo27p0XGdO2/ba930dZj+q5dX+qfZPL8VAeD + 341VVr/eZhx+0bu708n/2ThCSU0EIQAAAAAAVQAAAAEBAAAADwBBAGQAbwBiAGUAIABQAGgAbwB0AG8A + cwBoAG8AcAAAABMAQQBkAG8AYgBlACAAUABoAG8AdABvAHMAaABvAHAAIABDAFMAMwAAAAEAOEJJTQQG + AAAAAAAHAAgAAQABAQD/4Q/MaHR0cDovL25zLmFkb2JlLmNvbS94YXAvMS4wLwA8P3hwYWNrZXQgYmVn + aW49Iu+7vyIgaWQ9Ilc1TTBNcENlaGlIenJlU3pOVGN6a2M5ZCI/Pg0KPHg6eG1wbWV0YSB4bWxuczp4 + PSJhZG9iZTpuczptZXRhLyIgeDp4bXB0az0iQWRvYmUgWE1QIENvcmUgNC4xLWMwMzYgNDYuMjc2NzIw + LCBNb24gRmViIDE5IDIwMDcgMjI6NDA6MDggICAgICAgICI+DQoJPHJkZjpSREYgeG1sbnM6cmRmPSJo + dHRwOi8vd3d3LnczLm9yZy8xOTk5LzAyLzIyLXJkZi1zeW50YXgtbnMjIj4NCgkJPHJkZjpEZXNjcmlw + dGlvbiByZGY6YWJvdXQ9IiIgeG1sbnM6ZGM9Imh0dHA6Ly9wdXJsLm9yZy9kYy9lbGVtZW50cy8xLjEv + IiB4bWxuczp4YXA9Imh0dHA6Ly9ucy5hZG9iZS5jb20veGFwLzEuMC8iIHhtbG5zOnhhcE1NPSJodHRw + Oi8vbnMuYWRvYmUuY29tL3hhcC8xLjAvbW0vIiB4bWxuczpzdFJlZj0iaHR0cDovL25zLmFkb2JlLmNv + bS94YXAvMS4wL3NUeXBlL1Jlc291cmNlUmVmIyIgeG1sbnM6cGhvdG9zaG9wPSJodHRwOi8vbnMuYWRv + YmUuY29tL3Bob3Rvc2hvcC8xLjAvIiB4bWxuczp0aWZmPSJodHRwOi8vbnMuYWRvYmUuY29tL3RpZmYv + MS4wLyIgeG1sbnM6ZXhpZj0iaHR0cDovL25zLmFkb2JlLmNvbS9leGlmLzEuMC8iIGRjOmZvcm1hdD0i + aW1hZ2UvanBlZyIgeGFwOkNyZWF0b3JUb29sPSJBZG9iZSBQaG90b3Nob3AgQ1MzIFdpbmRvd3MiIHhh + cDpDcmVhdGVEYXRlPSIyMDEwLTA0LTE1VDIwOjMyOjA0KzA5OjAwIiB4YXA6TW9kaWZ5RGF0ZT0iMjAx + MC0wNC0xNVQyMDozMjowNCswOTowMCIgeGFwOk1ldGFkYXRhRGF0ZT0iMjAxMC0wNC0xNVQyMDozMjow + NCswOTowMCIgeGFwTU06RG9jdW1lbnRJRD0idXVpZDpGRTRGOUVDQzgxNDhERjExQjQyNkI5NEQ4RDRD + ODAxNyIgeGFwTU06SW5zdGFuY2VJRD0idXVpZDpCNDE2RTc4MzgyNDhERjExQjQyNkI5NEQ4RDRDODAx + NyIgcGhvdG9zaG9wOkNvbG9yTW9kZT0iMyIgcGhvdG9zaG9wOklDQ1Byb2ZpbGU9InNSR0IgSUVDNjE5 + NjYtMi4xIiBwaG90b3Nob3A6SGlzdG9yeT0iIiB0aWZmOk9yaWVudGF0aW9uPSIxIiB0aWZmOlhSZXNv + bHV0aW9uPSI3MjAwMDAvMTAwMDAiIHRpZmY6WVJlc29sdXRpb249IjcyMDAwMC8xMDAwMCIgdGlmZjpS + ZXNvbHV0aW9uVW5pdD0iMiIgdGlmZjpOYXRpdmVEaWdlc3Q9IjI1NiwyNTcsMjU4LDI1OSwyNjIsMjc0 + LDI3NywyODQsNTMwLDUzMSwyODIsMjgzLDI5NiwzMDEsMzE4LDMxOSw1MjksNTMyLDMwNiwyNzAsMjcx + LDI3MiwzMDUsMzE1LDMzNDMyOzk4ODcxNzIxMUFCRjY2MTQxRDU3NEI3OUYzRjQ2QkFBIiBleGlmOlBp + eGVsWERpbWVuc2lvbj0iNjAiIGV4aWY6UGl4ZWxZRGltZW5zaW9uPSIxMiIgZXhpZjpDb2xvclNwYWNl + PSIxIiBleGlmOk5hdGl2ZURpZ2VzdD0iMzY4NjQsNDA5NjAsNDA5NjEsMzcxMjEsMzcxMjIsNDA5NjIs + NDA5NjMsMzc1MTAsNDA5NjQsMzY4NjcsMzY4NjgsMzM0MzQsMzM0MzcsMzQ4NTAsMzQ4NTIsMzQ4NTUs + MzQ4NTYsMzczNzcsMzczNzgsMzczNzksMzczODAsMzczODEsMzczODIsMzczODMsMzczODQsMzczODUs + MzczODYsMzczOTYsNDE0ODMsNDE0ODQsNDE0ODYsNDE0ODcsNDE0ODgsNDE0OTIsNDE0OTMsNDE0OTUs + NDE3MjgsNDE3MjksNDE3MzAsNDE5ODUsNDE5ODYsNDE5ODcsNDE5ODgsNDE5ODksNDE5OTAsNDE5OTEs + NDE5OTIsNDE5OTMsNDE5OTQsNDE5OTUsNDE5OTYsNDIwMTYsMCwyLDQsNSw2LDcsOCw5LDEwLDExLDEy + LDEzLDE0LDE1LDE2LDE3LDE4LDIwLDIyLDIzLDI0LDI1LDI2LDI3LDI4LDMwOzM1N0NDOEY1MDE4RURF + NDY2NjVCQkRFMUFEMkRCQkJBIj4NCgkJCTx4YXBNTTpEZXJpdmVkRnJvbSBzdFJlZjppbnN0YW5jZUlE + PSJ1dWlkOkY1NEY5RUNDODE0OERGMTFCNDI2Qjk0RDhENEM4MDE3IiBzdFJlZjpkb2N1bWVudElEPSJ1 + dWlkOkY1NEY5RUNDODE0OERGMTFCNDI2Qjk0RDhENEM4MDE3Ii8+DQoJCTwvcmRmOkRlc2NyaXB0aW9u + Pg0KCTwvcmRmOlJERj4NCjwveDp4bXBtZXRhPg0KICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgIAogICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgCiAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAKICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgIAogICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgCiAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAKICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgIAogICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgCiAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAKICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgIAogICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + CiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAKICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgIAogICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgCiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAKICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgIAogICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgCiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAKICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgIAogICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgCiAgICAgICAgICAgPD94cGFja2V0IGVuZD0ndyc/Pv/iDFhJQ0NfUFJPRklMRQABAQAA + DEhMaW5vAhAAAG1udHJSR0IgWFlaIAfOAAIACQAGADEAAGFjc3BNU0ZUAAAAAElFQyBzUkdCAAAAAAAA + AAAAAAAAAAD21gABAAAAANMtSFAgIAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAEWNwcnQAAAFQAAAAM2Rlc2MAAAGEAAAAbHd0cHQAAAHwAAAAFGJrcHQAAAIEAAAAFHJY + WVoAAAIYAAAAFGdYWVoAAAIsAAAAFGJYWVoAAAJAAAAAFGRtbmQAAAJUAAAAcGRtZGQAAALEAAAAiHZ1 + ZWQAAANMAAAAhnZpZXcAAAPUAAAAJGx1bWkAAAP4AAAAFG1lYXMAAAQMAAAAJHRlY2gAAAQwAAAADHJU + UkMAAAQ8AAAIDGdUUkMAAAQ8AAAIDGJUUkMAAAQ8AAAIDHRleHQAAAAAQ29weXJpZ2h0IChjKSAxOTk4 + IEhld2xldHQtUGFja2FyZCBDb21wYW55AABkZXNjAAAAAAAAABJzUkdCIElFQzYxOTY2LTIuMQAAAAAA + AAAAAAAAEnNSR0IgSUVDNjE5NjYtMi4xAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAABYWVogAAAAAAAA81EAAQAAAAEWzFhZWiAAAAAAAAAAAAAAAAAAAAAAWFlaIAAA + AAAAAG+iAAA49QAAA5BYWVogAAAAAAAAYpkAALeFAAAY2lhZWiAAAAAAAAAkoAAAD4QAALbPZGVzYwAA + AAAAAAAWSUVDIGh0dHA6Ly93d3cuaWVjLmNoAAAAAAAAAAAAAAAWSUVDIGh0dHA6Ly93d3cuaWVjLmNo + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAGRlc2MAAAAAAAAALklF + QyA2MTk2Ni0yLjEgRGVmYXVsdCBSR0IgY29sb3VyIHNwYWNlIC0gc1JHQgAAAAAAAAAAAAAALklFQyA2 + MTk2Ni0yLjEgRGVmYXVsdCBSR0IgY29sb3VyIHNwYWNlIC0gc1JHQgAAAAAAAAAAAAAAAAAAAAAAAAAA + AABkZXNjAAAAAAAAACxSZWZlcmVuY2UgVmlld2luZyBDb25kaXRpb24gaW4gSUVDNjE5NjYtMi4xAAAA + AAAAAAAAAAAsUmVmZXJlbmNlIFZpZXdpbmcgQ29uZGl0aW9uIGluIElFQzYxOTY2LTIuMQAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAdmlldwAAAAAAE6T+ABRfLgAQzxQAA+3MAAQTCwADXJ4AAAABWFlaIAAA + AAAATAlWAFAAAABXH+dtZWFzAAAAAAAAAAEAAAAAAAAAAAAAAAAAAAAAAAACjwAAAAJzaWcgAAAAAENS + VCBjdXJ2AAAAAAAABAAAAAAFAAoADwAUABkAHgAjACgALQAyADcAOwBAAEUASgBPAFQAWQBeAGMAaABt + AHIAdwB8AIEAhgCLAJAAlQCaAJ8ApACpAK4AsgC3ALwAwQDGAMsA0ADVANsA4ADlAOsA8AD2APsBAQEH + AQ0BEwEZAR8BJQErATIBOAE+AUUBTAFSAVkBYAFnAW4BdQF8AYMBiwGSAZoBoQGpAbEBuQHBAckB0QHZ + AeEB6QHyAfoCAwIMAhQCHQImAi8COAJBAksCVAJdAmcCcQJ6AoQCjgKYAqICrAK2AsECywLVAuAC6wL1 + AwADCwMWAyEDLQM4A0MDTwNaA2YDcgN+A4oDlgOiA64DugPHA9MD4APsA/kEBgQTBCAELQQ7BEgEVQRj + BHEEfgSMBJoEqAS2BMQE0wThBPAE/gUNBRwFKwU6BUkFWAVnBXcFhgWWBaYFtQXFBdUF5QX2BgYGFgYn + BjcGSAZZBmoGewaMBp0GrwbABtEG4wb1BwcHGQcrBz0HTwdhB3QHhgeZB6wHvwfSB+UH+AgLCB8IMghG + CFoIbgiCCJYIqgi+CNII5wj7CRAJJQk6CU8JZAl5CY8JpAm6Cc8J5Qn7ChEKJwo9ClQKagqBCpgKrgrF + CtwK8wsLCyILOQtRC2kLgAuYC7ALyAvhC/kMEgwqDEMMXAx1DI4MpwzADNkM8w0NDSYNQA1aDXQNjg2p + DcMN3g34DhMOLg5JDmQOfw6bDrYO0g7uDwkPJQ9BD14Peg+WD7MPzw/sEAkQJhBDEGEQfhCbELkQ1xD1 + ERMRMRFPEW0RjBGqEckR6BIHEiYSRRJkEoQSoxLDEuMTAxMjE0MTYxODE6QTxRPlFAYUJxRJFGoUixSt + FM4U8BUSFTQVVhV4FZsVvRXgFgMWJhZJFmwWjxayFtYW+hcdF0EXZReJF64X0hf3GBsYQBhlGIoYrxjV + GPoZIBlFGWsZkRm3Gd0aBBoqGlEadxqeGsUa7BsUGzsbYxuKG7Ib2hwCHCocUhx7HKMczBz1HR4dRx1w + HZkdwx3sHhYeQB5qHpQevh7pHxMfPh9pH5Qfvx/qIBUgQSBsIJggxCDwIRwhSCF1IaEhziH7IiciVSKC + Iq8i3SMKIzgjZiOUI8Ij8CQfJE0kfCSrJNolCSU4JWgllyXHJfcmJyZXJocmtyboJxgnSSd6J6sn3CgN + KD8ocSiiKNQpBik4KWspnSnQKgIqNSpoKpsqzysCKzYraSudK9EsBSw5LG4soizXLQwtQS12Last4S4W + Lkwugi63Lu4vJC9aL5Evxy/+MDUwbDCkMNsxEjFKMYIxujHyMioyYzKbMtQzDTNGM38zuDPxNCs0ZTSe + NNg1EzVNNYc1wjX9Njc2cjauNuk3JDdgN5w31zgUOFA4jDjIOQU5Qjl/Obw5+To2OnQ6sjrvOy07azuq + O+g8JzxlPKQ84z0iPWE9oT3gPiA+YD6gPuA/IT9hP6I/4kAjQGRApkDnQSlBakGsQe5CMEJyQrVC90M6 + Q31DwEQDREdEikTORRJFVUWaRd5GIkZnRqtG8Ec1R3tHwEgFSEtIkUjXSR1JY0mpSfBKN0p9SsRLDEtT + S5pL4kwqTHJMuk0CTUpNk03cTiVObk63TwBPSU+TT91QJ1BxULtRBlFQUZtR5lIxUnxSx1MTU19TqlP2 + VEJUj1TbVShVdVXCVg9WXFapVvdXRFeSV+BYL1h9WMtZGllpWbhaB1pWWqZa9VtFW5Vb5Vw1XIZc1l0n + XXhdyV4aXmxevV8PX2Ffs2AFYFdgqmD8YU9homH1YklinGLwY0Njl2PrZEBklGTpZT1lkmXnZj1mkmbo + Zz1nk2fpaD9olmjsaUNpmmnxakhqn2r3a09rp2v/bFdsr20IbWBtuW4SbmtuxG8eb3hv0XArcIZw4HE6 + cZVx8HJLcqZzAXNdc7h0FHRwdMx1KHWFdeF2Pnabdvh3VnezeBF4bnjMeSp5iXnnekZ6pXsEe2N7wnwh + fIF84X1BfaF+AX5ifsJ/I3+Ef+WAR4CogQqBa4HNgjCCkoL0g1eDuoQdhICE44VHhauGDoZyhteHO4ef + iASIaYjOiTOJmYn+imSKyoswi5aL/IxjjMqNMY2Yjf+OZo7OjzaPnpAGkG6Q1pE/kaiSEZJ6kuOTTZO2 + lCCUipT0lV+VyZY0lp+XCpd1l+CYTJi4mSSZkJn8mmia1ZtCm6+cHJyJnPedZJ3SnkCerp8dn4uf+qBp + oNihR6G2oiailqMGo3aj5qRWpMelOKWpphqmi6b9p26n4KhSqMSpN6mpqhyqj6sCq3Wr6axcrNCtRK24 + ri2uoa8Wr4uwALB1sOqxYLHWskuywrM4s660JbSctRO1irYBtnm28Ldot+C4WbjRuUq5wro7urW7Lrun + vCG8m70VvY++Cr6Evv+/er/1wHDA7MFnwePCX8Lbw1jD1MRRxM7FS8XIxkbGw8dBx7/IPci8yTrJuco4 + yrfLNsu2zDXMtc01zbXONs62zzfPuNA50LrRPNG+0j/SwdNE08bUSdTL1U7V0dZV1tjXXNfg2GTY6Nls + 2fHadtr724DcBdyK3RDdlt4c3qLfKd+v4DbgveFE4cziU+Lb42Pj6+Rz5PzlhOYN5pbnH+ep6DLovOlG + 6dDqW+rl63Dr++yG7RHtnO4o7rTvQO/M8Fjw5fFy8f/yjPMZ86f0NPTC9VD13vZt9vv3ivgZ+Kj5OPnH + +lf65/t3/Af8mP0p/br+S/7c/23////bAEMAAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEB + AQEBAQEBAQEBAQICAgICAgICAgICAwMDAwMDAwMDA//bAEMBAQEBAQEBAQEBAQICAQICAwMDAwMDAwMD + AwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDA//AABEIAAwAPAMBEQACEQEDEQH/ + xAAfAAABBQEBAQEBAQAAAAAAAAAAAQIDBAUGBwgJCgv/xAC1EAACAQMDAgQDBQUEBAAAAX0BAgMABBEF + EiExQQYTUWEHInEUMoGRoQgjQrHBFVLR8CQzYnKCCQoWFxgZGiUmJygpKjQ1Njc4OTpDREVGR0hJSlNU + VVZXWFlaY2RlZmdoaWpzdHV2d3h5eoOEhYaHiImKkpOUlZaXmJmaoqOkpaanqKmqsrO0tba3uLm6wsPE + xcbHyMnK0tPU1dbX2Nna4eLj5OXm5+jp6vHy8/T19vf4+fr/xAAfAQADAQEBAQEBAQEBAAAAAAAAAQID + BAUGBwgJCgv/xAC1EQACAQIEBAMEBwUEBAABAncAAQIDEQQFITEGEkFRB2FxEyIygQgUQpGhscEJIzNS + 8BVictEKFiQ04SXxFxgZGiYnKCkqNTY3ODk6Q0RFRkdISUpTVFVWV1hZWmNkZWZnaGlqc3R1dnd4eXqC + g4SFhoeIiYqSk5SVlpeYmZqio6Slpqeoqaqys7S1tre4ubrCw8TFxsfIycrS09TV1tfY2dri4+Tl5ufo + 6ery8/T19vf4+fr/2gAMAwEAAhEDEQA/AP1ZH7UPxEAA/wCEw8bnj/ob9f8A/k+v7U/1Nyj/AKF+G/8A + BUP/AJE/llcSZlZf7dX/APBk/wDMX/hqH4if9Df43/8ACv1//wCT6P8AU3Kf+hfhv/BUP/kQ/wBZcy/6 + Dq//AIMn/mH/AA1D8RP+hv8AG/8A4V+v/wDyfR/qblP/AEL8N/4Kh/8AIh/rLmX/AEHV/wDwZP8AzD/h + qH4if9Df43/8K/X/AP5Po/1Nyn/oX4b/AMFQ/wDkQ/1lzL/oOr/+DJ/5h/w1D8RP+hv8b/8AhX6//wDJ + 9H+puU/9C/Df+Cof/Ih/rLmX/QdX/wDBk/8AMT/hqH4if9Df43/8K/X/AP5Po/1Nyn/oX4b/AMFQ/wDk + Q/1kzL/oOr/+DJ/5n2R+xz+234zt/iRpnw+8a6vqXiDwZ4gs9baObXr+bUr/AMPajpmkX2tQ3FlqV2Zb + 57K7XT2t3tXkaJWkV4whVxJ+beJfAuU4Th/FZ/hKEKOMw8qd+SKjGcZzjTs4q0bpyUlJK7s073VvuuBO + LMxxGcYfJ8TWlVw1ZTtzu7hKMJTupPWzUWnFu2qatrf9aP8AhfXgv+zv7U89/sfm+V5207N+M43fSv50 + P2w/kwr/AEFP42CgAoAKACgAoA9s/Z0/s7/hcng3+1vP/s7Ov/avs2PP2f8ACL63t2buP9ZjP+zmvz7x + U/5IPPf+4H/qRRPsvD//AJK7KP8AuL/6ZqH7/wD/ABaT/hUfb7Ht/wBj7V9p8v8A9Cr+Oz+lz//Z + + + + + /9j/4AAQSkZJRgABAgEASABIAAD/7gAOQWRvYmUAZAAAAAAB/+ED5kV4aWYAAE1NACoAAAAIAAcBEgAD + AAAAAQABAAABGgAFAAAAAQAAAGIBGwAFAAAAAQAAAGoBKAADAAAAAQACAAABMQACAAAAHAAAAHIBMgAC + AAAAFAAAAI6HaQAEAAAAAQAAAKIAAADCAEgAAAABAAAASAAAAAEAAEFkb2JlIFBob3Rvc2hvcCBDUzMg + V2luZG93cwAyMDEwOjA0OjE1IDIwOjMyOjA0AAACoAIABAAAAAEAAAA8oAMABAAAAAEAAAAMAAAAAAAA + AAYBAwADAAAAAQAGAAABGgAFAAAAAQAAARABGwAFAAAAAQAAARgBKAADAAAAAQACAAACAQAEAAAAAQAA + ASACAgAEAAAAAQAAAr4AAAAAAAAASAAAAAEAAABIAAAAAf/Y/+AAEEpGSUYAAQIAAEgASAAA/+0ADEFk + b2JlX0NNAAH/7gAOQWRvYmUAZIAAAAAB/9sAhAAMCAgICQgMCQkMEQsKCxEVDwwMDxUYExMVExMYEQwM + DAwMDBEMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMAQ0LCw0ODRAODhAUDg4OFBQODg4OFBEMDAwM + DBERDAwMDAwMEQwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAz/wAARCAAMADwDASIAAhEBAxEB/90A + BAAE/8QBPwAAAQUBAQEBAQEAAAAAAAAAAwABAgQFBgcICQoLAQABBQEBAQEBAQAAAAAAAAABAAIDBAUG + BwgJCgsQAAEEAQMCBAIFBwYIBQMMMwEAAhEDBCESMQVBUWETInGBMgYUkaGxQiMkFVLBYjM0coLRQwcl + klPw4fFjczUWorKDJkSTVGRFwqN0NhfSVeJl8rOEw9N14/NGJ5SkhbSVxNTk9KW1xdXl9VZmdoaWprbG + 1ub2N0dXZ3eHl6e3x9fn9xEAAgIBAgQEAwQFBgcHBgU1AQACEQMhMRIEQVFhcSITBTKBkRShsUIjwVLR + 8DMkYuFygpJDUxVjczTxJQYWorKDByY1wtJEk1SjF2RFVTZ0ZeLys4TD03Xj80aUpIW0lcTU5PSltcXV + 5fVWZnaGlqa2xtbm9ic3R1dnd4eXp7fH/9oADAMBAAIRAxEAPwDd/amR/pH/AOcf70v2pkf6R/8AnH+9 + UUlofq/Bpevxb37UyP8ASP8A84/3pftTI/0j/wDOP96opJfq/BXr8W9+1Mj/AEj/APOP96X7UyP9I/8A + zj/eqKSX6vwV6/F3ujdbuGS2i5xfU8HVxktIG76XyW99vo27p0XGdO2/ba930dZj+q5dX+qfZPL8VAeD + 341VVr/eZhx+0bu708n/2f/tCSBQaG90b3Nob3AgMy4wADhCSU0EJQAAAAAAEAAAAAAAAAAAAAAAAAAA + AAA4QklNBC8AAAAAAErgYgEASAAAAEgAAAAAAAAAAAAAANACAABAAgAAAAAAAAAAAAAYAwAAZAIAAAAB + wAMAALAEAAABAA8nAQBsbHVuAAAAAAAAAAAAADhCSU0D7QAAAAAAEABIAAAAAQACAEgAAAABAAI4QklN + BCYAAAAAAA4AAAAAAAAAAAAAP4AAADhCSU0EDQAAAAAABAAAAHg4QklNBBkAAAAAAAQAAAAeOEJJTQPz + AAAAAAAJAAAAAAAAAAABADhCSU0ECgAAAAAAAQAAOEJJTScQAAAAAAAKAAEAAAAAAAAAAjhCSU0D9QAA + AAAASAAvZmYAAQBsZmYABgAAAAAAAQAvZmYAAQChmZoABgAAAAAAAQAyAAAAAQBaAAAABgAAAAAAAQA1 + AAAAAQAtAAAABgAAAAAAAThCSU0D+AAAAAAAcAAA/////////////////////////////wPoAAAAAP// + //////////////////////////8D6AAAAAD/////////////////////////////A+gAAAAA//////// + /////////////////////wPoAAA4QklNBAAAAAAAAAIAAjhCSU0EAgAAAAAABgAAAAAAADhCSU0EMAAA + AAAAAwEBAQA4QklNBC0AAAAAAAYAAQAAAAM4QklNBAgAAAAAABAAAAABAAACQAAAAkAAAAAAOEJJTQQe + AAAAAAAEAAAAADhCSU0EGgAAAAADPwAAAAYAAAAAAAAAAAAAAAwAAAA8AAAABbs0yBwALQAxADIAAAAB + AAAAAAAAAAAAAAAAAAAAAAAAAAEAAAAAAAAAAAAAADwAAAAMAAAAAAAAAAAAAAAAAAAAAAEAAAAAAAAA + AAAAAAAAAAAAAAAAEAAAAAEAAAAAAABudWxsAAAAAgAAAAZib3VuZHNPYmpjAAAAAQAAAAAAAFJjdDEA + AAAEAAAAAFRvcCBsb25nAAAAAAAAAABMZWZ0bG9uZwAAAAAAAAAAQnRvbWxvbmcAAAAMAAAAAFJnaHRs + b25nAAAAPAAAAAZzbGljZXNWbExzAAAAAU9iamMAAAABAAAAAAAFc2xpY2UAAAASAAAAB3NsaWNlSURs + b25nAAAAAAAAAAdncm91cElEbG9uZwAAAAAAAAAGb3JpZ2luZW51bQAAAAxFU2xpY2VPcmlnaW4AAAAN + YXV0b0dlbmVyYXRlZAAAAABUeXBlZW51bQAAAApFU2xpY2VUeXBlAAAAAEltZyAAAAAGYm91bmRzT2Jq + YwAAAAEAAAAAAABSY3QxAAAABAAAAABUb3AgbG9uZwAAAAAAAAAATGVmdGxvbmcAAAAAAAAAAEJ0b21s + b25nAAAADAAAAABSZ2h0bG9uZwAAADwAAAADdXJsVEVYVAAAAAEAAAAAAABudWxsVEVYVAAAAAEAAAAA + AABNc2dlVEVYVAAAAAEAAAAAAAZhbHRUYWdURVhUAAAAAQAAAAAADmNlbGxUZXh0SXNIVE1MYm9vbAEA + AAAIY2VsbFRleHRURVhUAAAAAQAAAAAACWhvcnpBbGlnbmVudW0AAAAPRVNsaWNlSG9yekFsaWduAAAA + B2RlZmF1bHQAAAAJdmVydEFsaWduZW51bQAAAA9FU2xpY2VWZXJ0QWxpZ24AAAAHZGVmYXVsdAAAAAti + Z0NvbG9yVHlwZWVudW0AAAARRVNsaWNlQkdDb2xvclR5cGUAAAAATm9uZQAAAAl0b3BPdXRzZXRsb25n + AAAAAAAAAApsZWZ0T3V0c2V0bG9uZwAAAAAAAAAMYm90dG9tT3V0c2V0bG9uZwAAAAAAAAALcmlnaHRP + dXRzZXRsb25nAAAAAAA4QklNBCgAAAAAAAwAAAABP/AAAAAAAAA4QklNBBQAAAAAAAQAAAAEOEJJTQQM + AAAAAALaAAAAAQAAADwAAAAMAAAAtAAACHAAAAK+ABgAAf/Y/+AAEEpGSUYAAQIAAEgASAAA/+0ADEFk + b2JlX0NNAAH/7gAOQWRvYmUAZIAAAAAB/9sAhAAMCAgICQgMCQkMEQsKCxEVDwwMDxUYExMVExMYEQwM + DAwMDBEMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMAQ0LCw0ODRAODhAUDg4OFBQODg4OFBEMDAwM + DBERDAwMDAwMEQwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAz/wAARCAAMADwDASIAAhEBAxEB/90A + BAAE/8QBPwAAAQUBAQEBAQEAAAAAAAAAAwABAgQFBgcICQoLAQABBQEBAQEBAQAAAAAAAAABAAIDBAUG + BwgJCgsQAAEEAQMCBAIFBwYIBQMMMwEAAhEDBCESMQVBUWETInGBMgYUkaGxQiMkFVLBYjM0coLRQwcl + klPw4fFjczUWorKDJkSTVGRFwqN0NhfSVeJl8rOEw9N14/NGJ5SkhbSVxNTk9KW1xdXl9VZmdoaWprbG + 1ub2N0dXZ3eHl6e3x9fn9xEAAgIBAgQEAwQFBgcHBgU1AQACEQMhMRIEQVFhcSITBTKBkRShsUIjwVLR + 8DMkYuFygpJDUxVjczTxJQYWorKDByY1wtJEk1SjF2RFVTZ0ZeLys4TD03Xj80aUpIW0lcTU5PSltcXV + 5fVWZnaGlqa2xtbm9ic3R1dnd4eXp7fH/9oADAMBAAIRAxEAPwDd/amR/pH/AOcf70v2pkf6R/8AnH+9 + UUlofq/Bpevxb37UyP8ASP8A84/3pftTI/0j/wDOP96opJfq/BXr8W9+1Mj/AEj/APOP96X7UyP9I/8A + zj/eqKSX6vwV6/F3ujdbuGS2i5xfU8HVxktIG76XyW99vo27p0XGdO2/ba930dZj+q5dX+qfZPL8VAeD + 341VVr/eZhx+0bu708n/2ThCSU0EIQAAAAAAVQAAAAEBAAAADwBBAGQAbwBiAGUAIABQAGgAbwB0AG8A + cwBoAG8AcAAAABMAQQBkAG8AYgBlACAAUABoAG8AdABvAHMAaABvAHAAIABDAFMAMwAAAAEAOEJJTQQG + AAAAAAAHAAgAAQABAQD/4Q/MaHR0cDovL25zLmFkb2JlLmNvbS94YXAvMS4wLwA8P3hwYWNrZXQgYmVn + aW49Iu+7vyIgaWQ9Ilc1TTBNcENlaGlIenJlU3pOVGN6a2M5ZCI/Pg0KPHg6eG1wbWV0YSB4bWxuczp4 + PSJhZG9iZTpuczptZXRhLyIgeDp4bXB0az0iQWRvYmUgWE1QIENvcmUgNC4xLWMwMzYgNDYuMjc2NzIw + LCBNb24gRmViIDE5IDIwMDcgMjI6NDA6MDggICAgICAgICI+DQoJPHJkZjpSREYgeG1sbnM6cmRmPSJo + dHRwOi8vd3d3LnczLm9yZy8xOTk5LzAyLzIyLXJkZi1zeW50YXgtbnMjIj4NCgkJPHJkZjpEZXNjcmlw + dGlvbiByZGY6YWJvdXQ9IiIgeG1sbnM6ZGM9Imh0dHA6Ly9wdXJsLm9yZy9kYy9lbGVtZW50cy8xLjEv + IiB4bWxuczp4YXA9Imh0dHA6Ly9ucy5hZG9iZS5jb20veGFwLzEuMC8iIHhtbG5zOnhhcE1NPSJodHRw + Oi8vbnMuYWRvYmUuY29tL3hhcC8xLjAvbW0vIiB4bWxuczpzdFJlZj0iaHR0cDovL25zLmFkb2JlLmNv + bS94YXAvMS4wL3NUeXBlL1Jlc291cmNlUmVmIyIgeG1sbnM6cGhvdG9zaG9wPSJodHRwOi8vbnMuYWRv + YmUuY29tL3Bob3Rvc2hvcC8xLjAvIiB4bWxuczp0aWZmPSJodHRwOi8vbnMuYWRvYmUuY29tL3RpZmYv + MS4wLyIgeG1sbnM6ZXhpZj0iaHR0cDovL25zLmFkb2JlLmNvbS9leGlmLzEuMC8iIGRjOmZvcm1hdD0i + aW1hZ2UvanBlZyIgeGFwOkNyZWF0b3JUb29sPSJBZG9iZSBQaG90b3Nob3AgQ1MzIFdpbmRvd3MiIHhh + cDpDcmVhdGVEYXRlPSIyMDEwLTA0LTE1VDIwOjMyOjA0KzA5OjAwIiB4YXA6TW9kaWZ5RGF0ZT0iMjAx + MC0wNC0xNVQyMDozMjowNCswOTowMCIgeGFwOk1ldGFkYXRhRGF0ZT0iMjAxMC0wNC0xNVQyMDozMjow + NCswOTowMCIgeGFwTU06RG9jdW1lbnRJRD0idXVpZDpGRTRGOUVDQzgxNDhERjExQjQyNkI5NEQ4RDRD + ODAxNyIgeGFwTU06SW5zdGFuY2VJRD0idXVpZDpCNDE2RTc4MzgyNDhERjExQjQyNkI5NEQ4RDRDODAx + NyIgcGhvdG9zaG9wOkNvbG9yTW9kZT0iMyIgcGhvdG9zaG9wOklDQ1Byb2ZpbGU9InNSR0IgSUVDNjE5 + NjYtMi4xIiBwaG90b3Nob3A6SGlzdG9yeT0iIiB0aWZmOk9yaWVudGF0aW9uPSIxIiB0aWZmOlhSZXNv + bHV0aW9uPSI3MjAwMDAvMTAwMDAiIHRpZmY6WVJlc29sdXRpb249IjcyMDAwMC8xMDAwMCIgdGlmZjpS + ZXNvbHV0aW9uVW5pdD0iMiIgdGlmZjpOYXRpdmVEaWdlc3Q9IjI1NiwyNTcsMjU4LDI1OSwyNjIsMjc0 + LDI3NywyODQsNTMwLDUzMSwyODIsMjgzLDI5NiwzMDEsMzE4LDMxOSw1MjksNTMyLDMwNiwyNzAsMjcx + LDI3MiwzMDUsMzE1LDMzNDMyOzk4ODcxNzIxMUFCRjY2MTQxRDU3NEI3OUYzRjQ2QkFBIiBleGlmOlBp + eGVsWERpbWVuc2lvbj0iNjAiIGV4aWY6UGl4ZWxZRGltZW5zaW9uPSIxMiIgZXhpZjpDb2xvclNwYWNl + PSIxIiBleGlmOk5hdGl2ZURpZ2VzdD0iMzY4NjQsNDA5NjAsNDA5NjEsMzcxMjEsMzcxMjIsNDA5NjIs + NDA5NjMsMzc1MTAsNDA5NjQsMzY4NjcsMzY4NjgsMzM0MzQsMzM0MzcsMzQ4NTAsMzQ4NTIsMzQ4NTUs + MzQ4NTYsMzczNzcsMzczNzgsMzczNzksMzczODAsMzczODEsMzczODIsMzczODMsMzczODQsMzczODUs + MzczODYsMzczOTYsNDE0ODMsNDE0ODQsNDE0ODYsNDE0ODcsNDE0ODgsNDE0OTIsNDE0OTMsNDE0OTUs + NDE3MjgsNDE3MjksNDE3MzAsNDE5ODUsNDE5ODYsNDE5ODcsNDE5ODgsNDE5ODksNDE5OTAsNDE5OTEs + NDE5OTIsNDE5OTMsNDE5OTQsNDE5OTUsNDE5OTYsNDIwMTYsMCwyLDQsNSw2LDcsOCw5LDEwLDExLDEy + LDEzLDE0LDE1LDE2LDE3LDE4LDIwLDIyLDIzLDI0LDI1LDI2LDI3LDI4LDMwOzM1N0NDOEY1MDE4RURF + NDY2NjVCQkRFMUFEMkRCQkJBIj4NCgkJCTx4YXBNTTpEZXJpdmVkRnJvbSBzdFJlZjppbnN0YW5jZUlE + PSJ1dWlkOkY1NEY5RUNDODE0OERGMTFCNDI2Qjk0RDhENEM4MDE3IiBzdFJlZjpkb2N1bWVudElEPSJ1 + dWlkOkY1NEY5RUNDODE0OERGMTFCNDI2Qjk0RDhENEM4MDE3Ii8+DQoJCTwvcmRmOkRlc2NyaXB0aW9u + Pg0KCTwvcmRmOlJERj4NCjwveDp4bXBtZXRhPg0KICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgIAogICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgCiAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAKICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgIAogICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgCiAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAKICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgIAogICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgCiAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAKICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgIAogICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + CiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAKICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgIAogICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgCiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAKICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgIAogICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgCiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAKICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgIAogICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgCiAgICAgICAgICAgPD94cGFja2V0IGVuZD0ndyc/Pv/iDFhJQ0NfUFJPRklMRQABAQAA + DEhMaW5vAhAAAG1udHJSR0IgWFlaIAfOAAIACQAGADEAAGFjc3BNU0ZUAAAAAElFQyBzUkdCAAAAAAAA + AAAAAAAAAAD21gABAAAAANMtSFAgIAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAEWNwcnQAAAFQAAAAM2Rlc2MAAAGEAAAAbHd0cHQAAAHwAAAAFGJrcHQAAAIEAAAAFHJY + WVoAAAIYAAAAFGdYWVoAAAIsAAAAFGJYWVoAAAJAAAAAFGRtbmQAAAJUAAAAcGRtZGQAAALEAAAAiHZ1 + ZWQAAANMAAAAhnZpZXcAAAPUAAAAJGx1bWkAAAP4AAAAFG1lYXMAAAQMAAAAJHRlY2gAAAQwAAAADHJU + UkMAAAQ8AAAIDGdUUkMAAAQ8AAAIDGJUUkMAAAQ8AAAIDHRleHQAAAAAQ29weXJpZ2h0IChjKSAxOTk4 + IEhld2xldHQtUGFja2FyZCBDb21wYW55AABkZXNjAAAAAAAAABJzUkdCIElFQzYxOTY2LTIuMQAAAAAA + AAAAAAAAEnNSR0IgSUVDNjE5NjYtMi4xAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAABYWVogAAAAAAAA81EAAQAAAAEWzFhZWiAAAAAAAAAAAAAAAAAAAAAAWFlaIAAA + AAAAAG+iAAA49QAAA5BYWVogAAAAAAAAYpkAALeFAAAY2lhZWiAAAAAAAAAkoAAAD4QAALbPZGVzYwAA + AAAAAAAWSUVDIGh0dHA6Ly93d3cuaWVjLmNoAAAAAAAAAAAAAAAWSUVDIGh0dHA6Ly93d3cuaWVjLmNo + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAGRlc2MAAAAAAAAALklF + QyA2MTk2Ni0yLjEgRGVmYXVsdCBSR0IgY29sb3VyIHNwYWNlIC0gc1JHQgAAAAAAAAAAAAAALklFQyA2 + MTk2Ni0yLjEgRGVmYXVsdCBSR0IgY29sb3VyIHNwYWNlIC0gc1JHQgAAAAAAAAAAAAAAAAAAAAAAAAAA + AABkZXNjAAAAAAAAACxSZWZlcmVuY2UgVmlld2luZyBDb25kaXRpb24gaW4gSUVDNjE5NjYtMi4xAAAA + AAAAAAAAAAAsUmVmZXJlbmNlIFZpZXdpbmcgQ29uZGl0aW9uIGluIElFQzYxOTY2LTIuMQAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAdmlldwAAAAAAE6T+ABRfLgAQzxQAA+3MAAQTCwADXJ4AAAABWFlaIAAA + AAAATAlWAFAAAABXH+dtZWFzAAAAAAAAAAEAAAAAAAAAAAAAAAAAAAAAAAACjwAAAAJzaWcgAAAAAENS + VCBjdXJ2AAAAAAAABAAAAAAFAAoADwAUABkAHgAjACgALQAyADcAOwBAAEUASgBPAFQAWQBeAGMAaABt + AHIAdwB8AIEAhgCLAJAAlQCaAJ8ApACpAK4AsgC3ALwAwQDGAMsA0ADVANsA4ADlAOsA8AD2APsBAQEH + AQ0BEwEZAR8BJQErATIBOAE+AUUBTAFSAVkBYAFnAW4BdQF8AYMBiwGSAZoBoQGpAbEBuQHBAckB0QHZ + AeEB6QHyAfoCAwIMAhQCHQImAi8COAJBAksCVAJdAmcCcQJ6AoQCjgKYAqICrAK2AsECywLVAuAC6wL1 + AwADCwMWAyEDLQM4A0MDTwNaA2YDcgN+A4oDlgOiA64DugPHA9MD4APsA/kEBgQTBCAELQQ7BEgEVQRj + BHEEfgSMBJoEqAS2BMQE0wThBPAE/gUNBRwFKwU6BUkFWAVnBXcFhgWWBaYFtQXFBdUF5QX2BgYGFgYn + BjcGSAZZBmoGewaMBp0GrwbABtEG4wb1BwcHGQcrBz0HTwdhB3QHhgeZB6wHvwfSB+UH+AgLCB8IMghG + CFoIbgiCCJYIqgi+CNII5wj7CRAJJQk6CU8JZAl5CY8JpAm6Cc8J5Qn7ChEKJwo9ClQKagqBCpgKrgrF + CtwK8wsLCyILOQtRC2kLgAuYC7ALyAvhC/kMEgwqDEMMXAx1DI4MpwzADNkM8w0NDSYNQA1aDXQNjg2p + DcMN3g34DhMOLg5JDmQOfw6bDrYO0g7uDwkPJQ9BD14Peg+WD7MPzw/sEAkQJhBDEGEQfhCbELkQ1xD1 + ERMRMRFPEW0RjBGqEckR6BIHEiYSRRJkEoQSoxLDEuMTAxMjE0MTYxODE6QTxRPlFAYUJxRJFGoUixSt + FM4U8BUSFTQVVhV4FZsVvRXgFgMWJhZJFmwWjxayFtYW+hcdF0EXZReJF64X0hf3GBsYQBhlGIoYrxjV + GPoZIBlFGWsZkRm3Gd0aBBoqGlEadxqeGsUa7BsUGzsbYxuKG7Ib2hwCHCocUhx7HKMczBz1HR4dRx1w + HZkdwx3sHhYeQB5qHpQevh7pHxMfPh9pH5Qfvx/qIBUgQSBsIJggxCDwIRwhSCF1IaEhziH7IiciVSKC + Iq8i3SMKIzgjZiOUI8Ij8CQfJE0kfCSrJNolCSU4JWgllyXHJfcmJyZXJocmtyboJxgnSSd6J6sn3CgN + KD8ocSiiKNQpBik4KWspnSnQKgIqNSpoKpsqzysCKzYraSudK9EsBSw5LG4soizXLQwtQS12Last4S4W + Lkwugi63Lu4vJC9aL5Evxy/+MDUwbDCkMNsxEjFKMYIxujHyMioyYzKbMtQzDTNGM38zuDPxNCs0ZTSe + NNg1EzVNNYc1wjX9Njc2cjauNuk3JDdgN5w31zgUOFA4jDjIOQU5Qjl/Obw5+To2OnQ6sjrvOy07azuq + O+g8JzxlPKQ84z0iPWE9oT3gPiA+YD6gPuA/IT9hP6I/4kAjQGRApkDnQSlBakGsQe5CMEJyQrVC90M6 + Q31DwEQDREdEikTORRJFVUWaRd5GIkZnRqtG8Ec1R3tHwEgFSEtIkUjXSR1JY0mpSfBKN0p9SsRLDEtT + S5pL4kwqTHJMuk0CTUpNk03cTiVObk63TwBPSU+TT91QJ1BxULtRBlFQUZtR5lIxUnxSx1MTU19TqlP2 + VEJUj1TbVShVdVXCVg9WXFapVvdXRFeSV+BYL1h9WMtZGllpWbhaB1pWWqZa9VtFW5Vb5Vw1XIZc1l0n + XXhdyV4aXmxevV8PX2Ffs2AFYFdgqmD8YU9homH1YklinGLwY0Njl2PrZEBklGTpZT1lkmXnZj1mkmbo + Zz1nk2fpaD9olmjsaUNpmmnxakhqn2r3a09rp2v/bFdsr20IbWBtuW4SbmtuxG8eb3hv0XArcIZw4HE6 + cZVx8HJLcqZzAXNdc7h0FHRwdMx1KHWFdeF2Pnabdvh3VnezeBF4bnjMeSp5iXnnekZ6pXsEe2N7wnwh + fIF84X1BfaF+AX5ifsJ/I3+Ef+WAR4CogQqBa4HNgjCCkoL0g1eDuoQdhICE44VHhauGDoZyhteHO4ef + iASIaYjOiTOJmYn+imSKyoswi5aL/IxjjMqNMY2Yjf+OZo7OjzaPnpAGkG6Q1pE/kaiSEZJ6kuOTTZO2 + lCCUipT0lV+VyZY0lp+XCpd1l+CYTJi4mSSZkJn8mmia1ZtCm6+cHJyJnPedZJ3SnkCerp8dn4uf+qBp + oNihR6G2oiailqMGo3aj5qRWpMelOKWpphqmi6b9p26n4KhSqMSpN6mpqhyqj6sCq3Wr6axcrNCtRK24 + ri2uoa8Wr4uwALB1sOqxYLHWskuywrM4s660JbSctRO1irYBtnm28Ldot+C4WbjRuUq5wro7urW7Lrun + vCG8m70VvY++Cr6Evv+/er/1wHDA7MFnwePCX8Lbw1jD1MRRxM7FS8XIxkbGw8dBx7/IPci8yTrJuco4 + yrfLNsu2zDXMtc01zbXONs62zzfPuNA50LrRPNG+0j/SwdNE08bUSdTL1U7V0dZV1tjXXNfg2GTY6Nls + 2fHadtr724DcBdyK3RDdlt4c3qLfKd+v4DbgveFE4cziU+Lb42Pj6+Rz5PzlhOYN5pbnH+ep6DLovOlG + 6dDqW+rl63Dr++yG7RHtnO4o7rTvQO/M8Fjw5fFy8f/yjPMZ86f0NPTC9VD13vZt9vv3ivgZ+Kj5OPnH + +lf65/t3/Af8mP0p/br+S/7c/23////bAEMAAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEB + AQEBAQEBAQEBAQICAgICAgICAgICAwMDAwMDAwMDA//bAEMBAQEBAQEBAQEBAQICAQICAwMDAwMDAwMD + AwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDA//AABEIAAwAPAMBEQACEQEDEQH/ + xAAfAAABBQEBAQEBAQAAAAAAAAAAAQIDBAUGBwgJCgv/xAC1EAACAQMDAgQDBQUEBAAAAX0BAgMABBEF + EiExQQYTUWEHInEUMoGRoQgjQrHBFVLR8CQzYnKCCQoWFxgZGiUmJygpKjQ1Njc4OTpDREVGR0hJSlNU + VVZXWFlaY2RlZmdoaWpzdHV2d3h5eoOEhYaHiImKkpOUlZaXmJmaoqOkpaanqKmqsrO0tba3uLm6wsPE + xcbHyMnK0tPU1dbX2Nna4eLj5OXm5+jp6vHy8/T19vf4+fr/xAAfAQADAQEBAQEBAQEBAAAAAAAAAQID + BAUGBwgJCgv/xAC1EQACAQIEBAMEBwUEBAABAncAAQIDEQQFITEGEkFRB2FxEyIygQgUQpGhscEJIzNS + 8BVictEKFiQ04SXxFxgZGiYnKCkqNTY3ODk6Q0RFRkdISUpTVFVWV1hZWmNkZWZnaGlqc3R1dnd4eXqC + g4SFhoeIiYqSk5SVlpeYmZqio6Slpqeoqaqys7S1tre4ubrCw8TFxsfIycrS09TV1tfY2dri4+Tl5ufo + 6ery8/T19vf4+fr/2gAMAwEAAhEDEQA/AP1ZH7UPxEAA/wCEw8bnj/ob9f8A/k+v7U/1Nyj/AKF+G/8A + BUP/AJE/llcSZlZf7dX/APBk/wDMX/hqH4if9Df43/8ACv1//wCT6P8AU3Kf+hfhv/BUP/kQ/wBZcy/6 + Dq//AIMn/mH/AA1D8RP+hv8AG/8A4V+v/wDyfR/qblP/AEL8N/4Kh/8AIh/rLmX/AEHV/wDwZP8AzD/h + qH4if9Df43/8K/X/AP5Po/1Nyn/oX4b/AMFQ/wDkQ/1lzL/oOr/+DJ/5h/w1D8RP+hv8b/8AhX6//wDJ + 9H+puU/9C/Df+Cof/Ih/rLmX/QdX/wDBk/8AMT/hqH4if9Df43/8K/X/AP5Po/1Nyn/oX4b/AMFQ/wDk + Q/1kzL/oOr/+DJ/5n2R+xz+234zt/iRpnw+8a6vqXiDwZ4gs9baObXr+bUr/AMPajpmkX2tQ3FlqV2Zb + 57K7XT2t3tXkaJWkV4whVxJ+beJfAuU4Th/FZ/hKEKOMw8qd+SKjGcZzjTs4q0bpyUlJK7s073VvuuBO + LMxxGcYfJ8TWlVw1ZTtzu7hKMJTupPWzUWnFu2qatrf9aP8AhfXgv+zv7U89/sfm+V5207N+M43fSv50 + P2w/kwr/AEFP42CgAoAKACgAoA9s/Z0/s7/hcng3+1vP/s7Ov/avs2PP2f8ACL63t2buP9ZjP+zmvz7x + U/5IPPf+4H/qRRPsvD//AJK7KP8AuL/6ZqH7/wD/ABaT/hUfb7Ht/wBj7V9p8v8A9Cr+Oz+lz//Z + + + + + /9j/4AAQSkZJRgABAgEASABIAAD/7gAOQWRvYmUAZAAAAAAB/+ED5kV4aWYAAE1NACoAAAAIAAcBEgAD + AAAAAQABAAABGgAFAAAAAQAAAGIBGwAFAAAAAQAAAGoBKAADAAAAAQACAAABMQACAAAAHAAAAHIBMgAC + AAAAFAAAAI6HaQAEAAAAAQAAAKIAAADCAEgAAAABAAAASAAAAAEAAEFkb2JlIFBob3Rvc2hvcCBDUzMg + V2luZG93cwAyMDEwOjA0OjE1IDIwOjMyOjA0AAACoAIABAAAAAEAAAA8oAMABAAAAAEAAAAMAAAAAAAA + AAYBAwADAAAAAQAGAAABGgAFAAAAAQAAARABGwAFAAAAAQAAARgBKAADAAAAAQACAAACAQAEAAAAAQAA + ASACAgAEAAAAAQAAAr4AAAAAAAAASAAAAAEAAABIAAAAAf/Y/+AAEEpGSUYAAQIAAEgASAAA/+0ADEFk + b2JlX0NNAAH/7gAOQWRvYmUAZIAAAAAB/9sAhAAMCAgICQgMCQkMEQsKCxEVDwwMDxUYExMVExMYEQwM + DAwMDBEMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMAQ0LCw0ODRAODhAUDg4OFBQODg4OFBEMDAwM + DBERDAwMDAwMEQwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAz/wAARCAAMADwDASIAAhEBAxEB/90A + BAAE/8QBPwAAAQUBAQEBAQEAAAAAAAAAAwABAgQFBgcICQoLAQABBQEBAQEBAQAAAAAAAAABAAIDBAUG + BwgJCgsQAAEEAQMCBAIFBwYIBQMMMwEAAhEDBCESMQVBUWETInGBMgYUkaGxQiMkFVLBYjM0coLRQwcl + klPw4fFjczUWorKDJkSTVGRFwqN0NhfSVeJl8rOEw9N14/NGJ5SkhbSVxNTk9KW1xdXl9VZmdoaWprbG + 1ub2N0dXZ3eHl6e3x9fn9xEAAgIBAgQEAwQFBgcHBgU1AQACEQMhMRIEQVFhcSITBTKBkRShsUIjwVLR + 8DMkYuFygpJDUxVjczTxJQYWorKDByY1wtJEk1SjF2RFVTZ0ZeLys4TD03Xj80aUpIW0lcTU5PSltcXV + 5fVWZnaGlqa2xtbm9ic3R1dnd4eXp7fH/9oADAMBAAIRAxEAPwDd/amR/pH/AOcf70v2pkf6R/8AnH+9 + UUlofq/Bpevxb37UyP8ASP8A84/3pftTI/0j/wDOP96opJfq/BXr8W9+1Mj/AEj/APOP96X7UyP9I/8A + zj/eqKSX6vwV6/F3ujdbuGS2i5xfU8HVxktIG76XyW99vo27p0XGdO2/ba930dZj+q5dX+qfZPL8VAeD + 341VVr/eZhx+0bu708n/2f/tCSBQaG90b3Nob3AgMy4wADhCSU0EJQAAAAAAEAAAAAAAAAAAAAAAAAAA + AAA4QklNBC8AAAAAAErgYgEASAAAAEgAAAAAAAAAAAAAANACAABAAgAAAAAAAAAAAAAYAwAAZAIAAAAB + wAMAALAEAAABAA8nAQBsbHVuAAAAAAAAAAAAADhCSU0D7QAAAAAAEABIAAAAAQACAEgAAAABAAI4QklN + BCYAAAAAAA4AAAAAAAAAAAAAP4AAADhCSU0EDQAAAAAABAAAAHg4QklNBBkAAAAAAAQAAAAeOEJJTQPz + AAAAAAAJAAAAAAAAAAABADhCSU0ECgAAAAAAAQAAOEJJTScQAAAAAAAKAAEAAAAAAAAAAjhCSU0D9QAA + AAAASAAvZmYAAQBsZmYABgAAAAAAAQAvZmYAAQChmZoABgAAAAAAAQAyAAAAAQBaAAAABgAAAAAAAQA1 + AAAAAQAtAAAABgAAAAAAAThCSU0D+AAAAAAAcAAA/////////////////////////////wPoAAAAAP// + //////////////////////////8D6AAAAAD/////////////////////////////A+gAAAAA//////// + /////////////////////wPoAAA4QklNBAAAAAAAAAIAAjhCSU0EAgAAAAAABgAAAAAAADhCSU0EMAAA + AAAAAwEBAQA4QklNBC0AAAAAAAYAAQAAAAM4QklNBAgAAAAAABAAAAABAAACQAAAAkAAAAAAOEJJTQQe + AAAAAAAEAAAAADhCSU0EGgAAAAADPwAAAAYAAAAAAAAAAAAAAAwAAAA8AAAABbs0yBwALQAxADIAAAAB + AAAAAAAAAAAAAAAAAAAAAAAAAAEAAAAAAAAAAAAAADwAAAAMAAAAAAAAAAAAAAAAAAAAAAEAAAAAAAAA + AAAAAAAAAAAAAAAAEAAAAAEAAAAAAABudWxsAAAAAgAAAAZib3VuZHNPYmpjAAAAAQAAAAAAAFJjdDEA + AAAEAAAAAFRvcCBsb25nAAAAAAAAAABMZWZ0bG9uZwAAAAAAAAAAQnRvbWxvbmcAAAAMAAAAAFJnaHRs + b25nAAAAPAAAAAZzbGljZXNWbExzAAAAAU9iamMAAAABAAAAAAAFc2xpY2UAAAASAAAAB3NsaWNlSURs + b25nAAAAAAAAAAdncm91cElEbG9uZwAAAAAAAAAGb3JpZ2luZW51bQAAAAxFU2xpY2VPcmlnaW4AAAAN + YXV0b0dlbmVyYXRlZAAAAABUeXBlZW51bQAAAApFU2xpY2VUeXBlAAAAAEltZyAAAAAGYm91bmRzT2Jq + YwAAAAEAAAAAAABSY3QxAAAABAAAAABUb3AgbG9uZwAAAAAAAAAATGVmdGxvbmcAAAAAAAAAAEJ0b21s + b25nAAAADAAAAABSZ2h0bG9uZwAAADwAAAADdXJsVEVYVAAAAAEAAAAAAABudWxsVEVYVAAAAAEAAAAA + AABNc2dlVEVYVAAAAAEAAAAAAAZhbHRUYWdURVhUAAAAAQAAAAAADmNlbGxUZXh0SXNIVE1MYm9vbAEA + AAAIY2VsbFRleHRURVhUAAAAAQAAAAAACWhvcnpBbGlnbmVudW0AAAAPRVNsaWNlSG9yekFsaWduAAAA + B2RlZmF1bHQAAAAJdmVydEFsaWduZW51bQAAAA9FU2xpY2VWZXJ0QWxpZ24AAAAHZGVmYXVsdAAAAAti + Z0NvbG9yVHlwZWVudW0AAAARRVNsaWNlQkdDb2xvclR5cGUAAAAATm9uZQAAAAl0b3BPdXRzZXRsb25n + AAAAAAAAAApsZWZ0T3V0c2V0bG9uZwAAAAAAAAAMYm90dG9tT3V0c2V0bG9uZwAAAAAAAAALcmlnaHRP + dXRzZXRsb25nAAAAAAA4QklNBCgAAAAAAAwAAAABP/AAAAAAAAA4QklNBBQAAAAAAAQAAAAEOEJJTQQM + AAAAAALaAAAAAQAAADwAAAAMAAAAtAAACHAAAAK+ABgAAf/Y/+AAEEpGSUYAAQIAAEgASAAA/+0ADEFk + b2JlX0NNAAH/7gAOQWRvYmUAZIAAAAAB/9sAhAAMCAgICQgMCQkMEQsKCxEVDwwMDxUYExMVExMYEQwM + DAwMDBEMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMAQ0LCw0ODRAODhAUDg4OFBQODg4OFBEMDAwM + DBERDAwMDAwMEQwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAz/wAARCAAMADwDASIAAhEBAxEB/90A + BAAE/8QBPwAAAQUBAQEBAQEAAAAAAAAAAwABAgQFBgcICQoLAQABBQEBAQEBAQAAAAAAAAABAAIDBAUG + BwgJCgsQAAEEAQMCBAIFBwYIBQMMMwEAAhEDBCESMQVBUWETInGBMgYUkaGxQiMkFVLBYjM0coLRQwcl + klPw4fFjczUWorKDJkSTVGRFwqN0NhfSVeJl8rOEw9N14/NGJ5SkhbSVxNTk9KW1xdXl9VZmdoaWprbG + 1ub2N0dXZ3eHl6e3x9fn9xEAAgIBAgQEAwQFBgcHBgU1AQACEQMhMRIEQVFhcSITBTKBkRShsUIjwVLR + 8DMkYuFygpJDUxVjczTxJQYWorKDByY1wtJEk1SjF2RFVTZ0ZeLys4TD03Xj80aUpIW0lcTU5PSltcXV + 5fVWZnaGlqa2xtbm9ic3R1dnd4eXp7fH/9oADAMBAAIRAxEAPwDd/amR/pH/AOcf70v2pkf6R/8AnH+9 + UUlofq/Bpevxb37UyP8ASP8A84/3pftTI/0j/wDOP96opJfq/BXr8W9+1Mj/AEj/APOP96X7UyP9I/8A + zj/eqKSX6vwV6/F3ujdbuGS2i5xfU8HVxktIG76XyW99vo27p0XGdO2/ba930dZj+q5dX+qfZPL8VAeD + 341VVr/eZhx+0bu708n/2ThCSU0EIQAAAAAAVQAAAAEBAAAADwBBAGQAbwBiAGUAIABQAGgAbwB0AG8A + cwBoAG8AcAAAABMAQQBkAG8AYgBlACAAUABoAG8AdABvAHMAaABvAHAAIABDAFMAMwAAAAEAOEJJTQQG + AAAAAAAHAAgAAQABAQD/4Q/MaHR0cDovL25zLmFkb2JlLmNvbS94YXAvMS4wLwA8P3hwYWNrZXQgYmVn + aW49Iu+7vyIgaWQ9Ilc1TTBNcENlaGlIenJlU3pOVGN6a2M5ZCI/Pg0KPHg6eG1wbWV0YSB4bWxuczp4 + PSJhZG9iZTpuczptZXRhLyIgeDp4bXB0az0iQWRvYmUgWE1QIENvcmUgNC4xLWMwMzYgNDYuMjc2NzIw + LCBNb24gRmViIDE5IDIwMDcgMjI6NDA6MDggICAgICAgICI+DQoJPHJkZjpSREYgeG1sbnM6cmRmPSJo + dHRwOi8vd3d3LnczLm9yZy8xOTk5LzAyLzIyLXJkZi1zeW50YXgtbnMjIj4NCgkJPHJkZjpEZXNjcmlw + dGlvbiByZGY6YWJvdXQ9IiIgeG1sbnM6ZGM9Imh0dHA6Ly9wdXJsLm9yZy9kYy9lbGVtZW50cy8xLjEv + IiB4bWxuczp4YXA9Imh0dHA6Ly9ucy5hZG9iZS5jb20veGFwLzEuMC8iIHhtbG5zOnhhcE1NPSJodHRw + Oi8vbnMuYWRvYmUuY29tL3hhcC8xLjAvbW0vIiB4bWxuczpzdFJlZj0iaHR0cDovL25zLmFkb2JlLmNv + bS94YXAvMS4wL3NUeXBlL1Jlc291cmNlUmVmIyIgeG1sbnM6cGhvdG9zaG9wPSJodHRwOi8vbnMuYWRv + YmUuY29tL3Bob3Rvc2hvcC8xLjAvIiB4bWxuczp0aWZmPSJodHRwOi8vbnMuYWRvYmUuY29tL3RpZmYv + MS4wLyIgeG1sbnM6ZXhpZj0iaHR0cDovL25zLmFkb2JlLmNvbS9leGlmLzEuMC8iIGRjOmZvcm1hdD0i + aW1hZ2UvanBlZyIgeGFwOkNyZWF0b3JUb29sPSJBZG9iZSBQaG90b3Nob3AgQ1MzIFdpbmRvd3MiIHhh + cDpDcmVhdGVEYXRlPSIyMDEwLTA0LTE1VDIwOjMyOjA0KzA5OjAwIiB4YXA6TW9kaWZ5RGF0ZT0iMjAx + MC0wNC0xNVQyMDozMjowNCswOTowMCIgeGFwOk1ldGFkYXRhRGF0ZT0iMjAxMC0wNC0xNVQyMDozMjow + NCswOTowMCIgeGFwTU06RG9jdW1lbnRJRD0idXVpZDpGRTRGOUVDQzgxNDhERjExQjQyNkI5NEQ4RDRD + ODAxNyIgeGFwTU06SW5zdGFuY2VJRD0idXVpZDpCNDE2RTc4MzgyNDhERjExQjQyNkI5NEQ4RDRDODAx + NyIgcGhvdG9zaG9wOkNvbG9yTW9kZT0iMyIgcGhvdG9zaG9wOklDQ1Byb2ZpbGU9InNSR0IgSUVDNjE5 + NjYtMi4xIiBwaG90b3Nob3A6SGlzdG9yeT0iIiB0aWZmOk9yaWVudGF0aW9uPSIxIiB0aWZmOlhSZXNv + bHV0aW9uPSI3MjAwMDAvMTAwMDAiIHRpZmY6WVJlc29sdXRpb249IjcyMDAwMC8xMDAwMCIgdGlmZjpS + ZXNvbHV0aW9uVW5pdD0iMiIgdGlmZjpOYXRpdmVEaWdlc3Q9IjI1NiwyNTcsMjU4LDI1OSwyNjIsMjc0 + LDI3NywyODQsNTMwLDUzMSwyODIsMjgzLDI5NiwzMDEsMzE4LDMxOSw1MjksNTMyLDMwNiwyNzAsMjcx + LDI3MiwzMDUsMzE1LDMzNDMyOzk4ODcxNzIxMUFCRjY2MTQxRDU3NEI3OUYzRjQ2QkFBIiBleGlmOlBp + eGVsWERpbWVuc2lvbj0iNjAiIGV4aWY6UGl4ZWxZRGltZW5zaW9uPSIxMiIgZXhpZjpDb2xvclNwYWNl + PSIxIiBleGlmOk5hdGl2ZURpZ2VzdD0iMzY4NjQsNDA5NjAsNDA5NjEsMzcxMjEsMzcxMjIsNDA5NjIs + NDA5NjMsMzc1MTAsNDA5NjQsMzY4NjcsMzY4NjgsMzM0MzQsMzM0MzcsMzQ4NTAsMzQ4NTIsMzQ4NTUs + MzQ4NTYsMzczNzcsMzczNzgsMzczNzksMzczODAsMzczODEsMzczODIsMzczODMsMzczODQsMzczODUs + MzczODYsMzczOTYsNDE0ODMsNDE0ODQsNDE0ODYsNDE0ODcsNDE0ODgsNDE0OTIsNDE0OTMsNDE0OTUs + NDE3MjgsNDE3MjksNDE3MzAsNDE5ODUsNDE5ODYsNDE5ODcsNDE5ODgsNDE5ODksNDE5OTAsNDE5OTEs + NDE5OTIsNDE5OTMsNDE5OTQsNDE5OTUsNDE5OTYsNDIwMTYsMCwyLDQsNSw2LDcsOCw5LDEwLDExLDEy + LDEzLDE0LDE1LDE2LDE3LDE4LDIwLDIyLDIzLDI0LDI1LDI2LDI3LDI4LDMwOzM1N0NDOEY1MDE4RURF + NDY2NjVCQkRFMUFEMkRCQkJBIj4NCgkJCTx4YXBNTTpEZXJpdmVkRnJvbSBzdFJlZjppbnN0YW5jZUlE + PSJ1dWlkOkY1NEY5RUNDODE0OERGMTFCNDI2Qjk0RDhENEM4MDE3IiBzdFJlZjpkb2N1bWVudElEPSJ1 + dWlkOkY1NEY5RUNDODE0OERGMTFCNDI2Qjk0RDhENEM4MDE3Ii8+DQoJCTwvcmRmOkRlc2NyaXB0aW9u + Pg0KCTwvcmRmOlJERj4NCjwveDp4bXBtZXRhPg0KICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgIAogICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgCiAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAKICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgIAogICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgCiAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAKICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgIAogICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgCiAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAKICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgIAogICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + CiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAKICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgIAogICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgCiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAKICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgIAogICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgCiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAKICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgIAogICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgCiAgICAgICAgICAgPD94cGFja2V0IGVuZD0ndyc/Pv/iDFhJQ0NfUFJPRklMRQABAQAA + DEhMaW5vAhAAAG1udHJSR0IgWFlaIAfOAAIACQAGADEAAGFjc3BNU0ZUAAAAAElFQyBzUkdCAAAAAAAA + AAAAAAAAAAD21gABAAAAANMtSFAgIAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAEWNwcnQAAAFQAAAAM2Rlc2MAAAGEAAAAbHd0cHQAAAHwAAAAFGJrcHQAAAIEAAAAFHJY + WVoAAAIYAAAAFGdYWVoAAAIsAAAAFGJYWVoAAAJAAAAAFGRtbmQAAAJUAAAAcGRtZGQAAALEAAAAiHZ1 + ZWQAAANMAAAAhnZpZXcAAAPUAAAAJGx1bWkAAAP4AAAAFG1lYXMAAAQMAAAAJHRlY2gAAAQwAAAADHJU + UkMAAAQ8AAAIDGdUUkMAAAQ8AAAIDGJUUkMAAAQ8AAAIDHRleHQAAAAAQ29weXJpZ2h0IChjKSAxOTk4 + IEhld2xldHQtUGFja2FyZCBDb21wYW55AABkZXNjAAAAAAAAABJzUkdCIElFQzYxOTY2LTIuMQAAAAAA + AAAAAAAAEnNSR0IgSUVDNjE5NjYtMi4xAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAABYWVogAAAAAAAA81EAAQAAAAEWzFhZWiAAAAAAAAAAAAAAAAAAAAAAWFlaIAAA + AAAAAG+iAAA49QAAA5BYWVogAAAAAAAAYpkAALeFAAAY2lhZWiAAAAAAAAAkoAAAD4QAALbPZGVzYwAA + AAAAAAAWSUVDIGh0dHA6Ly93d3cuaWVjLmNoAAAAAAAAAAAAAAAWSUVDIGh0dHA6Ly93d3cuaWVjLmNo + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAGRlc2MAAAAAAAAALklF + QyA2MTk2Ni0yLjEgRGVmYXVsdCBSR0IgY29sb3VyIHNwYWNlIC0gc1JHQgAAAAAAAAAAAAAALklFQyA2 + MTk2Ni0yLjEgRGVmYXVsdCBSR0IgY29sb3VyIHNwYWNlIC0gc1JHQgAAAAAAAAAAAAAAAAAAAAAAAAAA + AABkZXNjAAAAAAAAACxSZWZlcmVuY2UgVmlld2luZyBDb25kaXRpb24gaW4gSUVDNjE5NjYtMi4xAAAA + AAAAAAAAAAAsUmVmZXJlbmNlIFZpZXdpbmcgQ29uZGl0aW9uIGluIElFQzYxOTY2LTIuMQAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAdmlldwAAAAAAE6T+ABRfLgAQzxQAA+3MAAQTCwADXJ4AAAABWFlaIAAA + AAAATAlWAFAAAABXH+dtZWFzAAAAAAAAAAEAAAAAAAAAAAAAAAAAAAAAAAACjwAAAAJzaWcgAAAAAENS + VCBjdXJ2AAAAAAAABAAAAAAFAAoADwAUABkAHgAjACgALQAyADcAOwBAAEUASgBPAFQAWQBeAGMAaABt + AHIAdwB8AIEAhgCLAJAAlQCaAJ8ApACpAK4AsgC3ALwAwQDGAMsA0ADVANsA4ADlAOsA8AD2APsBAQEH + AQ0BEwEZAR8BJQErATIBOAE+AUUBTAFSAVkBYAFnAW4BdQF8AYMBiwGSAZoBoQGpAbEBuQHBAckB0QHZ + AeEB6QHyAfoCAwIMAhQCHQImAi8COAJBAksCVAJdAmcCcQJ6AoQCjgKYAqICrAK2AsECywLVAuAC6wL1 + AwADCwMWAyEDLQM4A0MDTwNaA2YDcgN+A4oDlgOiA64DugPHA9MD4APsA/kEBgQTBCAELQQ7BEgEVQRj + BHEEfgSMBJoEqAS2BMQE0wThBPAE/gUNBRwFKwU6BUkFWAVnBXcFhgWWBaYFtQXFBdUF5QX2BgYGFgYn + BjcGSAZZBmoGewaMBp0GrwbABtEG4wb1BwcHGQcrBz0HTwdhB3QHhgeZB6wHvwfSB+UH+AgLCB8IMghG + CFoIbgiCCJYIqgi+CNII5wj7CRAJJQk6CU8JZAl5CY8JpAm6Cc8J5Qn7ChEKJwo9ClQKagqBCpgKrgrF + CtwK8wsLCyILOQtRC2kLgAuYC7ALyAvhC/kMEgwqDEMMXAx1DI4MpwzADNkM8w0NDSYNQA1aDXQNjg2p + DcMN3g34DhMOLg5JDmQOfw6bDrYO0g7uDwkPJQ9BD14Peg+WD7MPzw/sEAkQJhBDEGEQfhCbELkQ1xD1 + ERMRMRFPEW0RjBGqEckR6BIHEiYSRRJkEoQSoxLDEuMTAxMjE0MTYxODE6QTxRPlFAYUJxRJFGoUixSt + FM4U8BUSFTQVVhV4FZsVvRXgFgMWJhZJFmwWjxayFtYW+hcdF0EXZReJF64X0hf3GBsYQBhlGIoYrxjV + GPoZIBlFGWsZkRm3Gd0aBBoqGlEadxqeGsUa7BsUGzsbYxuKG7Ib2hwCHCocUhx7HKMczBz1HR4dRx1w + HZkdwx3sHhYeQB5qHpQevh7pHxMfPh9pH5Qfvx/qIBUgQSBsIJggxCDwIRwhSCF1IaEhziH7IiciVSKC + Iq8i3SMKIzgjZiOUI8Ij8CQfJE0kfCSrJNolCSU4JWgllyXHJfcmJyZXJocmtyboJxgnSSd6J6sn3CgN + KD8ocSiiKNQpBik4KWspnSnQKgIqNSpoKpsqzysCKzYraSudK9EsBSw5LG4soizXLQwtQS12Last4S4W + Lkwugi63Lu4vJC9aL5Evxy/+MDUwbDCkMNsxEjFKMYIxujHyMioyYzKbMtQzDTNGM38zuDPxNCs0ZTSe + NNg1EzVNNYc1wjX9Njc2cjauNuk3JDdgN5w31zgUOFA4jDjIOQU5Qjl/Obw5+To2OnQ6sjrvOy07azuq + O+g8JzxlPKQ84z0iPWE9oT3gPiA+YD6gPuA/IT9hP6I/4kAjQGRApkDnQSlBakGsQe5CMEJyQrVC90M6 + Q31DwEQDREdEikTORRJFVUWaRd5GIkZnRqtG8Ec1R3tHwEgFSEtIkUjXSR1JY0mpSfBKN0p9SsRLDEtT + S5pL4kwqTHJMuk0CTUpNk03cTiVObk63TwBPSU+TT91QJ1BxULtRBlFQUZtR5lIxUnxSx1MTU19TqlP2 + VEJUj1TbVShVdVXCVg9WXFapVvdXRFeSV+BYL1h9WMtZGllpWbhaB1pWWqZa9VtFW5Vb5Vw1XIZc1l0n + XXhdyV4aXmxevV8PX2Ffs2AFYFdgqmD8YU9homH1YklinGLwY0Njl2PrZEBklGTpZT1lkmXnZj1mkmbo + Zz1nk2fpaD9olmjsaUNpmmnxakhqn2r3a09rp2v/bFdsr20IbWBtuW4SbmtuxG8eb3hv0XArcIZw4HE6 + cZVx8HJLcqZzAXNdc7h0FHRwdMx1KHWFdeF2Pnabdvh3VnezeBF4bnjMeSp5iXnnekZ6pXsEe2N7wnwh + fIF84X1BfaF+AX5ifsJ/I3+Ef+WAR4CogQqBa4HNgjCCkoL0g1eDuoQdhICE44VHhauGDoZyhteHO4ef + iASIaYjOiTOJmYn+imSKyoswi5aL/IxjjMqNMY2Yjf+OZo7OjzaPnpAGkG6Q1pE/kaiSEZJ6kuOTTZO2 + lCCUipT0lV+VyZY0lp+XCpd1l+CYTJi4mSSZkJn8mmia1ZtCm6+cHJyJnPedZJ3SnkCerp8dn4uf+qBp + oNihR6G2oiailqMGo3aj5qRWpMelOKWpphqmi6b9p26n4KhSqMSpN6mpqhyqj6sCq3Wr6axcrNCtRK24 + ri2uoa8Wr4uwALB1sOqxYLHWskuywrM4s660JbSctRO1irYBtnm28Ldot+C4WbjRuUq5wro7urW7Lrun + vCG8m70VvY++Cr6Evv+/er/1wHDA7MFnwePCX8Lbw1jD1MRRxM7FS8XIxkbGw8dBx7/IPci8yTrJuco4 + yrfLNsu2zDXMtc01zbXONs62zzfPuNA50LrRPNG+0j/SwdNE08bUSdTL1U7V0dZV1tjXXNfg2GTY6Nls + 2fHadtr724DcBdyK3RDdlt4c3qLfKd+v4DbgveFE4cziU+Lb42Pj6+Rz5PzlhOYN5pbnH+ep6DLovOlG + 6dDqW+rl63Dr++yG7RHtnO4o7rTvQO/M8Fjw5fFy8f/yjPMZ86f0NPTC9VD13vZt9vv3ivgZ+Kj5OPnH + +lf65/t3/Af8mP0p/br+S/7c/23////bAEMAAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEB + AQEBAQEBAQEBAQICAgICAgICAgICAwMDAwMDAwMDA//bAEMBAQEBAQEBAQEBAQICAQICAwMDAwMDAwMD + AwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDA//AABEIAAwAPAMBEQACEQEDEQH/ + xAAfAAABBQEBAQEBAQAAAAAAAAAAAQIDBAUGBwgJCgv/xAC1EAACAQMDAgQDBQUEBAAAAX0BAgMABBEF + EiExQQYTUWEHInEUMoGRoQgjQrHBFVLR8CQzYnKCCQoWFxgZGiUmJygpKjQ1Njc4OTpDREVGR0hJSlNU + VVZXWFlaY2RlZmdoaWpzdHV2d3h5eoOEhYaHiImKkpOUlZaXmJmaoqOkpaanqKmqsrO0tba3uLm6wsPE + xcbHyMnK0tPU1dbX2Nna4eLj5OXm5+jp6vHy8/T19vf4+fr/xAAfAQADAQEBAQEBAQEBAAAAAAAAAQID + BAUGBwgJCgv/xAC1EQACAQIEBAMEBwUEBAABAncAAQIDEQQFITEGEkFRB2FxEyIygQgUQpGhscEJIzNS + 8BVictEKFiQ04SXxFxgZGiYnKCkqNTY3ODk6Q0RFRkdISUpTVFVWV1hZWmNkZWZnaGlqc3R1dnd4eXqC + g4SFhoeIiYqSk5SVlpeYmZqio6Slpqeoqaqys7S1tre4ubrCw8TFxsfIycrS09TV1tfY2dri4+Tl5ufo + 6ery8/T19vf4+fr/2gAMAwEAAhEDEQA/AP1ZH7UPxEAA/wCEw8bnj/ob9f8A/k+v7U/1Nyj/AKF+G/8A + BUP/AJE/llcSZlZf7dX/APBk/wDMX/hqH4if9Df43/8ACv1//wCT6P8AU3Kf+hfhv/BUP/kQ/wBZcy/6 + Dq//AIMn/mH/AA1D8RP+hv8AG/8A4V+v/wDyfR/qblP/AEL8N/4Kh/8AIh/rLmX/AEHV/wDwZP8AzD/h + qH4if9Df43/8K/X/AP5Po/1Nyn/oX4b/AMFQ/wDkQ/1lzL/oOr/+DJ/5h/w1D8RP+hv8b/8AhX6//wDJ + 9H+puU/9C/Df+Cof/Ih/rLmX/QdX/wDBk/8AMT/hqH4if9Df43/8K/X/AP5Po/1Nyn/oX4b/AMFQ/wDk + Q/1kzL/oOr/+DJ/5n2R+xz+234zt/iRpnw+8a6vqXiDwZ4gs9baObXr+bUr/AMPajpmkX2tQ3FlqV2Zb + 57K7XT2t3tXkaJWkV4whVxJ+beJfAuU4Th/FZ/hKEKOMw8qd+SKjGcZzjTs4q0bpyUlJK7s073VvuuBO + LMxxGcYfJ8TWlVw1ZTtzu7hKMJTupPWzUWnFu2qatrf9aP8AhfXgv+zv7U89/sfm+V5207N+M43fSv50 + P2w/kwr/AEFP42CgAoAKACgAoA9s/Z0/s7/hcng3+1vP/s7Ov/avs2PP2f8ACL63t2buP9ZjP+zmvz7x + U/5IPPf+4H/qRRPsvD//AJK7KP8AuL/6ZqH7/wD/ABaT/hUfb7Ht/wBj7V9p8v8A9Cr+Oz+lz//Z + + + + 419, 17 + + + 44 + + \ No newline at end of file diff --git a/ArinWarev1/Forms/v20091231/Frm_v20091231_Nanbang.vb b/ArinWarev1/Forms/v20091231/Frm_v20091231_Nanbang.vb new file mode 100644 index 0000000..084bc51 --- /dev/null +++ b/ArinWarev1/Forms/v20091231/Frm_v20091231_Nanbang.vb @@ -0,0 +1,883 @@ +Public Class Frm_V20091231_Nanbang + Dim Dt As DataTable + Dim isCopy As Boolean = False + Dim Init As Boolean = False + Dim SrcDrv As DataRowView + Private Sub MdiMain_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load + MdiMain.Toggle_Menu_Color(MdiMain.E_MenuIdx.난방기기) + ' CEnergy.ARINCLASS.SaveLoad_FrmSetting(Me) + '//프로필 관련 + + '//공유데이터셋에 연결한다. + Me.bs.DataSource = DSET + Dt = DSET.tbl_nanbangkiki + '//난방기기 + AddHandler DSET.tbl_nanbangkiki.TableNewRow, AddressOf AddNewDataRow_nanbangkiki + '//콤보컨트롤 바인딩 + Binding_Zone() + + '//모든컨트롤의 cTrl_enter 를 추가합니다 + BindProperty(CType(Me.SplitContainer1.Panel2.Controls, Control.ControlCollection)) + + Me.bsmain = Me.bs + Me.Init = True + + Try + Me.bsmain.Position = CEnergy.ARINCLASS.Read_LastPos_Frm(Me) + Catch ex As Exception + Me.bsmain.MoveFirst() + End Try + + bs_CurrentChanged(sender, e) + Validate_Control() + End Sub +#Region "Control_Enter" + Private Sub BindProperty(ByVal Ctl As Control.ControlCollection) + For Each C As Control In Ctl + If C.Controls.Count > 1 Then + BindProperty(C.Controls) + Else + If C.GetType.ToString.ToUpper.IndexOf("MYTB") <> -1 Then + AddHandler CType(C, MyTb).KeyDown, AddressOf TextBOx_KeyDown + ElseIf C.GetType.ToString.ToUpper.IndexOf("MYCMB") <> -1 Then + AddHandler CType(C, MyCmb).KeyDown, AddressOf Cmd_KeyDown + End If + End If + Next + End Sub + + Private Sub TextBOx_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) + If e.KeyCode = Keys.Enter AndAlso e.Control Then + Try + Dim Field As String = (CType(sender, MyTb).DataBindings.Item("text").BindingMemberInfo.BindingField) + For Each Dr As DataRow In Dt.Select(Me.bs.Filter, "") + Dr(Field) = CType(sender, MyTb).Text + Next + Work_msg_timer("모든값이 변경되었습니다", 25) + Catch ex As Exception + + End Try + + End If + End Sub + Private Sub Cmd_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) + If e.KeyCode = Keys.Enter AndAlso e.Control Then + Try + Dim Field As String = (CType(sender, MyCmb).DataBindings.Item("selectedvalue").BindingMemberInfo.BindingField) + For Each Dr As DataRow In Dt.Select(Me.bs.Filter, "") + Dr(Field) = CType(sender, MyCmb).SelectedValue + Next + Work_msg_timer("모든값이 변경되었습니다", 25) + Catch ex As Exception + + End Try + End If + End Sub +#End Region +#Region "난방기기" + + Private Sub ToolStripButton48_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt_add.Click + If Not EndEdit(Me.bs) Then Return + Me.bs.AddNew() + INitRow(Me.Controls) + End Sub + + + Private Sub ToolStripButton49_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt_Del.Click + Dbbase.DelCrow(Me.bs, True) + End Sub + + Private Sub ToolStripButton51_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt_cancel.Click + If Not EndEdit(Me.bs) Then Return + Data_Cancel(DSET.tbl_profile, Nothing) + End Sub + + + Private Sub MdiMain_FormClosed(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosedEventArgs) Handles Me.FormClosed + CEnergy.ARINCLASS.SaveLoad_FrmSetting(Me, Me.bsmain.Position, True) + End Sub + + Private Sub MdiMain_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown + Select Case e.KeyCode + Case Keys.F12 + End Select + End Sub + + Private Function GetMaxCode(ByVal dt As DataTable) As String + Try + Dim Dr As DataRow = dt.Select("", "code desc")(0) + Return Format(CInt(Dr("code")) + 1, "0000") + Catch ex As Exception + Return "0001" + End Try + End Function + + Private Sub Cmb_DeleteVal(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) + If e.KeyCode = Keys.Delete Then + CType(sender, ComboBox).SelectedValue = "" + End If + End Sub + + Private Sub Binding_Zone() + + '//난방기기 + Dim bs_열생산기기방식NCMB As New BindingSource(DSET, "tbl_common") + bs_열생산기기방식NCMB.Filter = "gubun='1020'" + bs_열생산기기방식NCMB.Sort = "code" + Me.열생산기기방식NCMB.DataSource = bs_열생산기기방식NCMB + 열생산기기방식NCMB.DisplayMember = "name" + 열생산기기방식NCMB.ValueMember = "name" + Me.열생산기기방식NCMB.DataBindings.Add("selectedvalue", Me.bs, "열생산기기방식") + 'AddHandler 열생산기기방식NCMB.KeyDown, AddressOf Cmb_DeleteVal + + Dim bs_사용연료NCMB As New BindingSource(DSET, "tbl_common") + bs_사용연료NCMB.Filter = "gubun='1021'" + bs_사용연료NCMB.Sort = "code" + Me.사용연료NCMB.DataSource = bs_사용연료NCMB + 사용연료NCMB.DisplayMember = "name" + 사용연료NCMB.ValueMember = "name" + Me.사용연료NCMB.DataBindings.Add("selectedvalue", Me.bs, "사용연료") + 'AddHandler 사용연료NCMB.KeyDown, AddressOf Cmb_DeleteVal + + Dim bs_운전방식NCMB As New BindingSource(DSET, "tbl_common") + bs_운전방식NCMB.Filter = "gubun='1035'" + bs_운전방식NCMB.Sort = "code" + Me.운전방식NCMB.DataSource = bs_운전방식NCMB + 운전방식NCMB.DisplayMember = "name" + 운전방식NCMB.ValueMember = "name" + Me.운전방식NCMB.DataBindings.Add("selectedvalue", Me.bs, "운전방식") + 'AddHandler 운전방식NCMB.KeyDown, AddressOf Cmb_DeleteVal + + Dim bs_보일러방식NCMB As New BindingSource(DSET, "tbl_common") + bs_보일러방식NCMB.Filter = "gubun='1036'" + bs_보일러방식NCMB.Sort = "code" + Me.보일러방식NCMB.DataSource = bs_보일러방식NCMB + 보일러방식NCMB.DisplayMember = "name" + 보일러방식NCMB.ValueMember = "name" + Me.보일러방식NCMB.DataBindings.Add("selectedvalue", Me.bs, "보일러방식") + 'AddHandler 보일러방식NCMB.KeyDown, AddressOf Cmb_DeleteVal + + Dim bs_지역난방방식NCMB As New BindingSource(DSET, "tbl_common") + bs_지역난방방식NCMB.Filter = "gubun='1037'" + bs_지역난방방식NCMB.Sort = "code" + Me.지역난방방식NCMB.DataSource = bs_지역난방방식NCMB + 지역난방방식NCMB.DisplayMember = "name" + 지역난방방식NCMB.ValueMember = "name" + Me.지역난방방식NCMB.DataBindings.Add("selectedvalue", Me.bs, "지역난방방식") + 'AddHandler 지역난방방식NCMB.KeyDown, AddressOf Cmb_DeleteVal + + Dim bs_단열등급NCMB As New BindingSource(DSET, "tbl_common") + bs_단열등급NCMB.Filter = "gubun='1038'" + bs_단열등급NCMB.Sort = "code" + Me.단열등급NCMB.DataSource = bs_단열등급NCMB + 단열등급NCMB.DisplayMember = "name" + 단열등급NCMB.ValueMember = "name" + Me.단열등급NCMB.DataBindings.Add("selectedvalue", Me.bs, "단열등급") + 'AddHandler 단열등급NCMB.KeyDown, AddressOf Cmb_DeleteVal + + Dim bs_축열탱크방식NCMB As New BindingSource(DSET, "tbl_common") + bs_축열탱크방식NCMB.Filter = "gubun='1039'" + bs_축열탱크방식NCMB.Sort = "code" + Me.축열탱크방식NCMB.DataSource = bs_축열탱크방식NCMB + 축열탱크방식NCMB.DisplayMember = "name" + 축열탱크방식NCMB.ValueMember = "name" + Me.축열탱크방식NCMB.DataBindings.Add("selectedvalue", Me.bs, "축열탱크방식") + ' AddHandler 축열탱크방식NCMB.KeyDown, AddressOf Cmb_DeleteVal + + Dim bs_배관망유형ComboBox As New BindingSource(DSET, "tbl_common") + bs_배관망유형ComboBox.Filter = "gubun='1040'" + 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(DSET, "tbl_common") + bs_펌프교정계수ComboBox.Filter = "gubun='1002'" + 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(DSET, "tbl_common") + bs_펌프제어유형ComboBox.Filter = "gubun='1041'" + 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(DSET, "tbl_common") + bs_분배시스템방식ComboBox.Filter = "gubun='1042'" + 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(DSET, "tbl_common") + bs_순환유무ComboBox.Filter = "gubun='1032'" + 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(DSET, "tbl_common") + bs_펌프제어ComboBox.Filter = "gubun='1043'" + 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(DSET, "tbl_common") + bs_신재생연결여부ComboBox.Filter = "gubun='1044'" + 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_연결된시스템 As New BindingSource(DSET, "tbl_new") + bs_연결된시스템.Sort = "code" + Me.cmb_신재생.DataSource = bs_연결된시스템 + cmb_신재생.DisplayMember = "설명" + cmb_신재생.ValueMember = "code" + Me.cmb_신재생.DataBindings.Add("selectedvalue", Me.bs, "연결된시스템") + 'AddHandler 연결된시스템ComboBox.KeyDown, AddressOf Cmb_DeleteVal + + Dim bs_히트펌프연료 As New BindingSource(DSET, "tbl_common") + bs_히트펌프연료.Filter = "gubun='1086'" + bs_히트펌프연료.Sort = "code" + Me.cmb_히트사용연료.DataSource = bs_히트펌프연료 + cmb_히트사용연료.DisplayMember = "name" + cmb_히트사용연료.ValueMember = "name" + Me.cmb_히트사용연료.DataBindings.Add("selectedvalue", Me.bs, "히트연료") + + Dim bs_히트펌프종류 As New BindingSource(DSET, "tbl_common") + bs_히트펌프종류.Filter = "gubun='1087'" + bs_히트펌프종류.Sort = "code" + Me.cmb_히트펌프시스템종류.DataSource = bs_히트펌프종류 + cmb_히트펌프시스템종류.DisplayMember = "name" + cmb_히트펌프시스템종류.ValueMember = "name" + Me.cmb_히트펌프시스템종류.DataBindings.Add("selectedvalue", Me.bs, "히트펌프시스템종류") + 'AddHandler 신재생연결여부ComboBox.KeyDown, AddressOf Cmb_DeleteVal + End Sub + + Private Sub Binding_nanbangkiki() + + End Sub + Private Sub AddNewDataRow_nanbangkiki(ByVal sender As Object, ByVal e As System.Data.DataTableNewRowEventArgs) + e.Row.Item("code") = GetMaxCode(DSET.tbl_nanbangkiki) + End Sub +#End Region + + Private Sub 신재생연결여부ComboBox_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 신재생연결여부ComboBox.SelectedIndexChanged + Validate_Control() + End Sub + + Private Sub 축열탱크방식NCMB_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 축열탱크방식NCMB.SelectedIndexChanged + Validate_Control() + End Sub + + Private Sub 운전방식NCMB_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 운전방식NCMB.SelectedIndexChanged + Validate_Control() + End Sub + + Private Sub Validate_Control() + If Not Init Then Return + If isCopy Then Return + + Try + If Me.신재생연결여부ComboBox.SelectedIndex = 0 Then + cmb_신재생.Enabled = False + Else + cmb_신재생.Enabled = True + End If + Catch ex As Exception + + End Try + Try + If Me.축열탱크방식NCMB.SelectedIndex = 0 Then + 축열제척NTb.Enabled = False + MyTb1.Enabled = False + Else + 축열제척NTb.Enabled = True + MyTb1.Enabled = True + End If + Catch ex As Exception + + End Try + + + Try + If Me.운전방식NCMB.SelectedIndex = 0 Then + tb_보일러대수다수.Enabled = False + Else + tb_보일러대수다수.Enabled = True + End If + Catch ex As Exception + + End Try + + Try + Select Case Me.열생산기기방식NCMB.SelectedValue.ToString.Trim + Case "보일러" '//보일러 + 사용연료NCMB.Enabled = True + Me.급수온도NTb1.Enabled = True + Me.환수온도NTb1.Enabled = True + 보일러정격출력NTb.Enabled = True + 열교환기정격출력NTb.Enabled = False + 운전방식NCMB.Enabled = True + 정격보일러효율NTb.Enabled = True + 보일러방식NCMB.Enabled = True + 지역난방방식NCMB.Enabled = False + Me.단열등급NCMB.Enabled = False + '/// 2011. 1. 31 수정 + Me.배관망유형ComboBox.Enabled = True + Me.펌프교정계수ComboBox.Enabled = True + Me.펌프제어유형ComboBox.Enabled = True + Me.펌프동력NTb.Enabled = True + '// 2011. 1. 31 수정 + + Case "지역난방" '//지역난방 + 사용연료NCMB.Enabled = False + Me.급수온도NTb1.Enabled = True + Me.환수온도NTb1.Enabled = True + 보일러정격출력NTb.Enabled = False + 열교환기정격출력NTb.Enabled = True + 운전방식NCMB.Enabled = False + tb_보일러대수다수.Enabled = False + 정격보일러효율NTb.Enabled = True + 보일러방식NCMB.Enabled = False + 지역난방방식NCMB.Enabled = True + Me.단열등급NCMB.Enabled = True + '/// 2011. 1. 31 수정 + Me.배관망유형ComboBox.Enabled = True + Me.펌프교정계수ComboBox.Enabled = True + Me.펌프제어유형ComboBox.Enabled = True + Me.펌프동력NTb.Enabled = True + '// 2011. 1. 31 수정 + + Case "전기보일러" '//전기보일러 + 사용연료NCMB.Enabled = False + Me.급수온도NTb1.Enabled = True + Me.환수온도NTb1.Enabled = True + 보일러정격출력NTb.Enabled = True + 열교환기정격출력NTb.Enabled = False + 운전방식NCMB.Enabled = False + 정격보일러효율NTb.Enabled = True + 보일러방식NCMB.Enabled = False + 지역난방방식NCMB.Enabled = False + Me.단열등급NCMB.Enabled = False + '/// 2011. 1. 31 수정 + Me.배관망유형ComboBox.Enabled = True + Me.펌프교정계수ComboBox.Enabled = True + Me.펌프제어유형ComboBox.Enabled = True + Me.펌프동력NTb.Enabled = True + '// 2011. 1. 31 수정 + + + Case "히트펌프" '//히트펌프 + 사용연료NCMB.Enabled = False + Me.급수온도NTb1.Enabled = True + Me.환수온도NTb1.Enabled = True + 보일러정격출력NTb.Enabled = False + 열교환기정격출력NTb.Enabled = False + 운전방식NCMB.Enabled = False + 정격보일러효율NTb.Enabled = False + 보일러방식NCMB.Enabled = False + 지역난방방식NCMB.Enabled = False + Me.단열등급NCMB.Enabled = False + '/// 2011. 1. 31 수정 + Me.배관망유형ComboBox.Enabled = True + Me.펌프교정계수ComboBox.Enabled = True + Me.펌프제어유형ComboBox.Enabled = True + Me.펌프동력NTb.Enabled = True + '// 2011. 1. 31 수정 + + End Select + Me.bs.EndEdit() + Catch ex As Exception + + End Try + + Try + If Me.열생산기기방식NCMB.Text = "히트펌프" Then + cmb_히트사용연료.Enabled = True + tb_히트용량.Enabled = True + tb_히트정격7.Enabled = True + tb_히트정격10.Enabled = True + tb_히트길이.Enabled = True + cmb_히트펌프시스템종류.Enabled = True + Else + cmb_히트사용연료.Enabled = False + tb_히트용량.Enabled = False + tb_히트정격7.Enabled = False + tb_히트정격10.Enabled = False + tb_히트길이.Enabled = False + cmb_히트펌프시스템종류.Enabled = False + End If + Catch ex As Exception + + End Try + + If Me.분배시스템방식ComboBox.SelectedIndex >= 0 Then + Try + Select Case Me.분배시스템방식ComboBox.Text + Case "중앙식" + 순환유무ComboBox.Enabled = True + 펌프제어ComboBox.Enabled = True + 펌프동력급탕NTb.Enabled = True + 건물길이NTb.Enabled = True + 건물넓이NTb.Enabled = True + 열공급층수NTb.Enabled = True + 층고NTb.Enabled = True + Me.RadioButton1.Enabled = True + Me.RadioButton2.Enabled = True + If RadioButton2.Checked = True Then + Me.급탕배관길이NTB.Enabled = True + End If + Case "개별식" + 순환유무ComboBox.Enabled = False + 펌프제어ComboBox.Enabled = True + 펌프동력급탕NTb.Enabled = True + 건물길이NTb.Enabled = False + 건물넓이NTb.Enabled = False + 열공급층수NTb.Enabled = False + 층고NTb.Enabled = False + Me.급탕배관길이NTB.Enabled = False + Me.RadioButton1.Enabled = False + Me.RadioButton2.Enabled = False + End Select + Catch ex As Exception + + End Try + End If + + If Me.급탕배관길이NTB.Text <> "" AndAlso Me.급탕배관길이NTB.Text <> "0" Then '//배관길이 값을통해서 라디오버튼설정 + Me.RadioButton2.Checked = True + 건물길이NTb.Enabled = False + 건물넓이NTb.Enabled = False + 열공급층수NTb.Enabled = False + 층고NTb.Enabled = False + ElseIf Me.분배시스템방식ComboBox.Text = "중앙식" Then + Me.RadioButton1.Checked = True + 건물길이NTb.Enabled = True + 건물넓이NTb.Enabled = True + 열공급층수NTb.Enabled = True + 층고NTb.Enabled = True + + End If + + + + End Sub + + Private Sub 열생산기기방식NCMB_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles 열생산기기방식NCMB.KeyDown + If e.KeyCode = Keys.V And e.Control Then + isCopy = True + ' Clear_Control(Me.TabPage2) + + e.Handled = True + e.SuppressKeyPress = False + '//클립보드붙여넣기 + Dim CB() As String = My.Computer.Clipboard.GetText.Split(CChar(vbCrLf)) + If CB.GetUpperBound(0) <> 58 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() '//한줄추가 + + + Dim Cnt As Short = 0 + For i As Integer = 0 To CB.GetUpperBound(0) + Select Case i + Case 0 + CType(bs.Current, DataRowView)("설명") = CB(i).Split(CChar(vbTab))(ii).Trim + Case 0 + 8 '//사용프로필 앞에 두개를 숫자4자리로변환 '//뒷부분이 와존히 다른느낌 ^^;;어 아닌데.. 수정안된거예요.. + If CB(i).Split(CChar(vbTab))(ii).Trim = "" Then + Me.열생산기기방식NCMB.SelectedIndex = 0 + Else + Me.열생산기기방식NCMB.Text = CB(i).Split(CChar(vbTab))(ii).Trim + End If + + 'Me.열생산기기방식NCMB.Text = CStr(IIf( CB(i).Split(CChar(vbTab))(ii).Trim = "", "0", CB(i).Split(CChar(vbTab))(ii).Trim)) + Case 1 + 8 '//공란 + If CB(i).Split(CChar(vbTab))(ii).Trim = "" Then + Me.사용연료NCMB.SelectedIndex = 0 + Else + Me.사용연료NCMB.Text = CB(i).Split(CChar(vbTab))(ii).Trim + End If + + 'Me.사용연료NCMB.Text = CStr(IIf( CB(i).Split(CChar(vbTab))(ii).Trim = "", "0", CB(i).Split(CChar(vbTab))(ii).Trim)) + Case 2 + 8 '//면적 + Me.급수온도NTb1.Text = CB(i).Split(CChar(vbTab))(ii).Trim + Case 3 + 8 + Me.환수온도NTb1.Text = CB(i).Split(CChar(vbTab))(ii).Trim + Case 4 + 8 + Me.보일러정격출력NTb.Text = CB(i).Split(CChar(vbTab))(ii).Trim + Case 5 + 8 + Me.열교환기정격출력NTb.Text = CB(i).Split(CChar(vbTab))(ii).Trim + Case 6 + 8 + Case 15 + If CB(i).Split(CChar(vbTab))(ii).Trim = "" Then + Me.운전방식NCMB.SelectedIndex = 0 + Else + Me.운전방식NCMB.Text = CB(i).Split(CChar(vbTab))(ii).Trim + End If + + 'Me.운전방식NCMB.Text = CStr(IIf( CB(i).Split(CChar(vbTab))(ii).Trim = "", "0", CB(i).Split(CChar(vbTab))(ii).Trim)) + Case 8 + 8 + Me.tb_보일러대수다수.Text = CB(i).Split(CChar(vbTab))(ii).Trim + Case 11 + 8 + 'Me.TabControl12.SelectedIndex = 1 + Me.정격보일러효율NTb.Text = CB(i).Split(CChar(vbTab))(ii).Trim + Case 13 + 8 + If CB(i).Split(CChar(vbTab))(ii).Trim = "" Then + Me.보일러방식NCMB.SelectedIndex = 0 + Else + Me.보일러방식NCMB.Text = CB(i).Split(CChar(vbTab))(ii).Trim + End If + 'Me.보일러방식NCMB.Text = CStr(IIf( CB(i).Split(CChar(vbTab))(ii).Trim = "", "0", CB(i).Split(CChar(vbTab))(ii).Trim)) + Case 23 + If CB(i).Split(CChar(vbTab))(ii).Trim = "" Then + Me.지역난방방식NCMB.SelectedIndex = 0 + Else + Me.지역난방방식NCMB.Text = CB(i).Split(CChar(vbTab))(ii).Trim + End If + + 'Me.지역난방방식NCMB.Text = CStr(IIf( CB(i).Split(CChar(vbTab))(ii).Trim = "", "0", CB(i).Split(CChar(vbTab))(ii).Trim)) + Case 16 + 8 + If CB(i).Split(CChar(vbTab))(ii).Trim = "" Then + Me.단열등급NCMB.SelectedIndex = 0 + Else + Me.단열등급NCMB.Text = CB(i).Split(CChar(vbTab))(ii).Trim + End If + + 'Me.단열등급NCMB.Text = CStr(IIf( CB(i).Split(CChar(vbTab))(ii).Trim = "", "0", CB(i).Split(CChar(vbTab))(ii).Trim)) + + Case 25 '//히트펌프 + Case 26 '//사용연료 + If CB(i).Split(CChar(vbTab))(ii).Trim = "" Then + Me.cmb_히트사용연료.SelectedIndex = 0 + Else + Me.cmb_히트사용연료.Text = CB(i).Split(CChar(vbTab))(ii).Trim + End If + Case 27 + Me.tb_히트용량.Text = CB(i).Split(CChar(vbTab))(ii).Trim + Case 28 + Me.tb_히트정격7.Text = CB(i).Split(CChar(vbTab))(ii).Trim + Case 29 + Me.tb_히트정격10.Text = CB(i).Split(CChar(vbTab))(ii).Trim + Case 30 + Me.tb_히트길이.Text = CB(i).Split(CChar(vbTab))(ii).Trim + Case 31 + If CB(i).Split(CChar(vbTab))(ii).Trim = "" Then + Me.cmb_히트펌프시스템종류.SelectedIndex = 0 + Else + Me.cmb_히트펌프시스템종류.Text = CB(i).Split(CChar(vbTab))(ii).Trim + End If + + Case 19 + 8 + 6 + 1 + ' Me.TabControl12.SelectedIndex = 2 + If CB(i).Split(CChar(vbTab))(ii).Trim = "" Then + Me.축열탱크방식NCMB.SelectedIndex = 0 + Else + Me.축열탱크방식NCMB.Text = CB(i).Split(CChar(vbTab))(ii).Trim + End If + Case 20 + 8 + 6 + 1 + Me.축열제척NTb.Text = CB(i).Split(CChar(vbTab))(ii).Trim + Case 21 + 8 + 6 + 1 + Me.MyTb1.Text = CB(i).Split(CChar(vbTab))(ii).Trim + Case 24 + 8 + 6 + 1 + ' Me.TabControl12.SelectedIndex = 3 + If CB(i).Split(CChar(vbTab))(ii).Trim = "" Then + Me.배관망유형ComboBox.SelectedIndex = 0 + Else + Me.배관망유형ComboBox.Text = CB(i).Split(CChar(vbTab))(ii).Trim + End If + + ' Me.배관망유형ComboBox.Text = CStr(IIf( CB(i).Split(CChar(vbTab))(ii).Trim = "", "0", CB(i).Split(CChar(vbTab))(ii).Trim)) + Case 25 + 8 + 6 + 1 + If CB(i).Split(CChar(vbTab))(ii).Trim = "" Then + Me.펌프교정계수ComboBox.SelectedIndex = 0 + Else + Me.펌프교정계수ComboBox.Text = CB(i).Split(CChar(vbTab))(ii).Trim + End If + + ' Me.펌프교정계수ComboBox.Text = CStr(IIf( CB(i).Split(CChar(vbTab))(ii).Trim = "", "0", CB(i).Split(CChar(vbTab))(ii).Trim)) + Case 26 + 8 + 6 + 1 + If CB(i).Split(CChar(vbTab))(ii).Trim = "" Then + Me.펌프제어유형ComboBox.SelectedIndex = 0 + Else + Me.펌프제어유형ComboBox.Text = CB(i).Split(CChar(vbTab))(ii).Trim + End If + ' Me.펌프제어유형ComboBox.Text = CStr(IIf( CB(i).Split(CChar(vbTab))(ii).Trim = "", "0", CB(i).Split(CChar(vbTab))(ii).Trim)) + Case 27 + 8 + 6 + 1 + Me.펌프동력NTb.Text = CB(i).Split(CChar(vbTab))(ii).Trim + Case 30 + 8 + 6 + 1 '//33 + + If CB(i).Split(CChar(vbTab))(ii).Trim = "" Then + 'MsgBox("null") + Me.분배시스템방식ComboBox.SelectedIndex = 0 + Else + 'Dim iii As Short = 0 + + 'For Each C As DataRowView In Me.분배시스템방식ComboBox.Items + ' If C("name").ToString.Trim = CB(i).Split(CChar(vbTab))(ii).Trim Then + ' Me.분배시스템방식ComboBox.SelectedIndex = iii + ' End If + ' iii += 1 + 'Next + ' MsgBox(CB(i).Split(CChar(vbTab))(ii).Trim) + Me.분배시스템방식ComboBox.Text = CB(i).Split(CChar(vbTab))(ii).Trim + End If + + + 'Me.분배시스템방식ComboBox.Text = CStr(IIf( CB(i).Split(CChar(vbTab))(ii).Trim = "", "0", CB(i).Split(CChar(vbTab))(ii).Trim)) + Case 31 + 8 + 6 + 1 + If CB(i).Split(CChar(vbTab))(ii).Trim = "" Then + Me.순환유무ComboBox.SelectedIndex = 0 + Else + Me.순환유무ComboBox.Text = CB(i).Split(CChar(vbTab))(ii).Trim + End If + + 'Me.순환유무ComboBox.Text = CStr(IIf( CB(i).Split(CChar(vbTab))(ii).Trim = "", "0", CB(i).Split(CChar(vbTab))(ii).Trim)) + Case 32 + 8 + 6 + 1 + If CB(i).Split(CChar(vbTab))(ii).Trim = "" Then + Me.펌프제어ComboBox.SelectedIndex = 0 + Else + Me.펌프제어ComboBox.Text = CB(i).Split(CChar(vbTab))(ii).Trim + End If + + ' Me.펌프제어ComboBox.Text = CStr(IIf( CB(i).Split(CChar(vbTab))(ii).Trim = "", "0", CB(i).Split(CChar(vbTab))(ii).Trim)) + Case 33 + 8 + 6 + 1 + Me.펌프동력급탕NTb.Text = CB(i).Split(CChar(vbTab))(ii).Trim + Case 35 + 8 + 6 + 1 + Me.건물길이NTb.Text = CB(i).Split(CChar(vbTab))(ii).Trim + Case 36 + 8 + 6 + 1 + Me.건물넓이NTb.Text = CB(i).Split(CChar(vbTab))(ii).Trim + Case 37 + 8 + 6 + 1 + Me.열공급층수NTb.Text = CB(i).Split(CChar(vbTab))(ii).Trim + Case 38 + 8 + 6 + 1 + Me.층고NTb.Text = CB(i).Split(CChar(vbTab))(ii).Trim + Case 41 + 8 + 6 + 1 + If CB(i).Split(CChar(vbTab))(ii).Trim = "" Then + Me.신재생연결여부ComboBox.SelectedIndex = 0 + Else + Me.신재생연결여부ComboBox.Text = CB(i).Split(CChar(vbTab))(ii).Trim + End If + + ' Me.신재생연결여부ComboBox.Text = CStr(IIf( CB(i).Split(CChar(vbTab))(ii).Trim = "", "0", CB(i).Split(CChar(vbTab))(ii).Trim)) + Case 57 '42 + 8 + 6 + 1 + If CB(i).Split(CChar(vbTab))(ii).Trim = "" Then + Me.cmb_신재생.SelectedIndex = 0 + Else + Me.cmb_신재생.Text = CB(i).Split(CChar(vbTab))(ii).Trim + End If + + 'Me.연결된시스템ComboBox.Text = CStr(IIf( CB(i).Split(CChar(vbTab))(ii).Trim = "", "0", CB(i).Split(CChar(vbTab))(ii).Trim)) + End Select + Next + Next + + Me.bs.EndEdit() + isCopy = False + Me.Validate_Control() + End If + + End Sub + + Private Sub 열생산기기방식NCMB_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 열생산기기방식NCMB.SelectedIndexChanged + Validate_Control() + End Sub + + Private Sub bs_CurrentChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bs.CurrentChanged + If Not Init Then Return + Dim Drv As DataRowView = CType(bs.Current, DataRowView) + + Try + Dim DR() As DataRow = DSET.tbl_zone.Select("열생산난방생산기기='" & Drv("code").ToString & "' or 공조난방생산기기='" & Drv("code").ToString & "'") + Me.lbl_cnt1.Text = CStr(DR.GetUpperBound(0) + 1) + Catch ex As Exception + Me.lbl_cnt1.Text = "0" + End Try + + Try + Dim DR() As DataRow = DSET.tbl_zone.Select("열생산급탕생산기기='" & Drv("code").ToString & "'") + Me.lbl_cnt2.Text = CStr(DR.GetUpperBound(0) + 1) + Catch ex As Exception + Me.lbl_cnt2.Text = "0" + End Try + Me.bs.EndEdit() + 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 + If Me.bs.Position < Me.bs.Count Then Me.bs.Position += 1 + Else + If Me.bs.Position > 0 Then Me.bs.Position -= 1 + End If + Me.Validate() + My.Application.DoEvents() + End Sub + + + Private Sub bt_Del_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles bt_Del.MouseDown + If e.Button = Windows.Forms.MouseButtons.Right Then + If MsgBox("전체삭제를 하시겠습니까?", MsgBoxStyle.Information Or MsgBoxStyle.OkCancel, "확인") = MsgBoxResult.Ok Then + Dim dR() As DataRow = DSET.tbl_nanbangkiki.Select(Me.bs.Filter, "") + For i As Integer = dR.GetUpperBound(0) To 0 Step -1 + dR(i).Delete() + Next + DSET.tbl_nanbangkiki.AcceptChanges() + End If + End If + End Sub + + + Private Sub dv_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles dv.MouseUp + If Prj.UserAuthType = "ADMIN" OrElse Prj.UserAuthType = "BOTH" OrElse Prj.UserAuthType = "BOTH2" OrElse Prj.UserAuthType = "BOTH1" Then '//2011.03.08 추가 + If e.Button = Windows.Forms.MouseButtons.Right Then + Dim Frm_FilterA As New Frm_Filter + Frm_FilterA.ColumTitle = getColCaption(Me.Dt) + Frm_FilterA.ColumList = getColName(Me.Dt) + Frm_FilterA.Colorlist = "연결된시스템" + Frm_FilterA.Numfield = "" '//20100618 Color 리스트처럼 , 구분해서 필드들을 모두 넣으세요.(=, >= 등을 사용하기 위해서는 해당 항목을 추가 요망) + Frm_FilterA.Default_Filter = "code <> '0'" + If Frm_FilterA.ShowDialog <> Windows.Forms.DialogResult.OK Then Return '//창떳을떄 확인아ㅣ고 취소눌르면 다음을 수행하지않는다는거에요. + Dim Filter As String = Frm_FilterA.tb_filter.Text '//값은 아까 그 텍박에 잇구요. + Try + Me.bs.Filter = Filter + + '//바꾸기값이 있으면 변경 20100618 + If Frm_FilterA.cmb_fieldc.SelectedIndex >= 0 AndAlso Frm_FilterA.cmb_fieldc.Text.ToLower <> "code" AndAlso _ + Frm_FilterA.tb_valuec.Text <> "" Then + Dim Drow() As DataRow = Me.Dt.Select(Filter) + For Each Dr As DataRow In Drow + Dr(Frm_FilterA.cmb_fieldc.Text) = Frm_FilterA.tb_valuec.Text + Next + MsgBox("바꾸기 완료", MsgBoxStyle.Information, "확인") + End If + + Catch ex As Exception + Me.bs.Filter = "" + End Try + End If + End If + End Sub + + Private Sub dv_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles dv.KeyDown + '//여기보시면 alt+d 누르면 한줄을 경고없이(falsE)삭제하도록 햇어요.. 사실원래 밋alt +d 인데.. ㅎㅎ 잘못해서 ctrl 됫다는 + If Prj.UserAuthType = "ADMIN" OrElse Prj.UserAuthType = "BOTH" OrElse Prj.UserAuthType = "BOTH2" OrElse Prj.UserAuthType = "BOTH1" Then '//2011.03.08 추가 + Select Case e.KeyCode + Case Keys.D + If e.Alt Then + Dbbase.DelCrow(Me.bs, False) + End If + Case Keys.C + If e.Control Then + Me.SrcDrv = Me.bs.Current + If Me.SrcDrv Is Nothing Then + MsgBox("저장할 ROW가 없습니다", MsgBoxStyle.Information, "확인") + Return + End If + ' My.Computer.Clipboard.SetData("ZDATA", Drv) + End If + Case Keys.V + If e.Control Then + If Me.SrcDrv Is Nothing Then Return + Me.bt_add.PerformClick() '//신규추가 + Dim NewDrv As DataRowView = Me.bs.Current + + For Each C As DataColumn In Me.Dt.Columns + If C.ColumnName.ToUpper = "CODE" Then + ElseIf C.ColumnName.ToUpper = "설명" Then + NewDrv(C.ColumnName) = SrcDrv(C.ColumnName) & "#1" + Else + NewDrv(C.ColumnName) = SrcDrv(C.ColumnName) + End If + Next + Me.bs.EndEdit() + bs.MoveLast() + End If + End Select + End If + End Sub + + Private Sub lbl_cnt2_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles lbl_cnt2.TextChanged + + Try + If Me.lbl_cnt2.Text = "0" Then + GroupBox10.Enabled = False + GroupBox9.Enabled = False + Else + GroupBox10.Enabled = True + GroupBox9.Enabled = True + End If + Catch ex As Exception + + End Try + + End Sub + + Private Sub 분배시스템방식ComboBox_SelectedValueChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles 분배시스템방식ComboBox.SelectedValueChanged + Validate_Control() + End Sub + + Private Sub lbl_cnt1_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles lbl_cnt1.TextChanged + + Try + If Me.lbl_cnt1.Text = "0" Then + GroupBox8.Enabled = False + Else + GroupBox8.Enabled = True + End If + Catch ex As Exception + + End Try + + End Sub + + Private Sub 분배시스템방식ComboBox_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 분배시스템방식ComboBox.SelectedIndexChanged + + End Sub + + Private Sub 급탕배관길이NTB_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 급탕배관길이NTB.TextChanged + If Me.급탕배관길이NTB.Text <> "" AndAlso Me.급탕배관길이NTB.Text <> "0" Then '//배관길이에 값이 바뀌면 체크변경 + Me.RadioButton2.Checked = True + End If + End Sub + + Private Sub RadioButton2_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton2.CheckedChanged, RadioButton1.CheckedChanged + If Me.RadioButton2.Checked = False Then '//표준치로 선택되면 배관길이값을 지워버림 + Me.급탕배관길이NTB.Text = "" + Me.급탕배관길이NTB.Enabled = False + Me.건물길이NTb.Enabled = True + Me.건물넓이NTb.Enabled = True + Me.열공급층수NTb.Enabled = True + Me.층고NTb.Enabled = True + Else + Me.건물길이NTb.Enabled = False + Me.건물넓이NTb.Enabled = False + Me.열공급층수NTb.Enabled = False + Me.층고NTb.Enabled = False + Me.급탕배관길이NTB.Enabled = True + End If + End Sub + +End Class \ No newline at end of file diff --git a/ArinWarev1/Forms/v20091231/Frm_v20091231_New.Designer.vb b/ArinWarev1/Forms/v20091231/Frm_v20091231_New.Designer.vb new file mode 100644 index 0000000..4a895f2 --- /dev/null +++ b/ArinWarev1/Forms/v20091231/Frm_v20091231_New.Designer.vb @@ -0,0 +1,1340 @@ + _ +Partial Class Frm_V20091231_New + Inherits MMM.FaderForm + 'Form은 Dispose를 재정의하여 구성 요소 목록을 정리합니다. + _ + Protected Overrides Sub Dispose(ByVal disposing As Boolean) + Try + If disposing AndAlso components IsNot Nothing Then + components.Dispose() + End If + Finally + MyBase.Dispose(disposing) + End Try + End Sub + + 'Windows Form 디자이너에 필요합니다. + Private components As System.ComponentModel.IContainer + + '참고: 다음 프로시저는 Windows Form 디자이너에 필요합니다. + '수정하려면 Windows Form 디자이너를 사용하십시오. + '코드 편집기를 사용하여 수정하지 마십시오. + _ + 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 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 + Me.TableLayoutPanel1 = New System.Windows.Forms.TableLayoutPanel + Me.bs = New System.Windows.Forms.BindingSource(Me.components) + Me.DS = New Eco2Ar.DS + 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.태양열Panel = New System.Windows.Forms.Panel + Me.지열Panel = New System.Windows.Forms.Panel + Me.Label1 = New System.Windows.Forms.Label + Me.태양광Panel = New System.Windows.Forms.Panel + 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.bn = New System.Windows.Forms.BindingNavigator(Me.components) + Me.lbl_count = New System.Windows.Forms.ToolStripLabel + Me.bt_add = New System.Windows.Forms.ToolStripButton + Me.bt_Del = New System.Windows.Forms.ToolStripButton + Me.bt_cancel = New System.Windows.Forms.ToolStripButton + Me.ToolStripSeparator1 = New System.Windows.Forms.ToolStripSeparator + Me.lbl_pos = New System.Windows.Forms.ToolStripLabel + Me.GroupBox2 = New System.Windows.Forms.GroupBox + Me.열병합Panel = New System.Windows.Forms.Panel + Me.GroupBox1 = New System.Windows.Forms.GroupBox + Me.tb_지열팽창탱크체적 = New Eco2Ar.MyTb + Me.cmb_지열팽창설치여부 = New Eco2Ar.MyCmb + Me.cmb_열교환기설치여부 = New Eco2Ar.MyCmb + Me.tb_2차펌프용량 = New Eco2Ar.MyTb + Me.tb_1차펌프용량 = New Eco2Ar.MyTb + Me.tb_열성능비2 = New Eco2Ar.MyTb + Me.tb_열성능비 = New Eco2Ar.MyTb + Me.tb_지열펌프용량 = 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.tb_열생산효율 = New Eco2Ar.MyTb + Me.tb_발전효율 = New Eco2Ar.MyTb + Me.tb_축열탱크체적급 = New Eco2Ar.MyTb + Me.cmb_축열탱크설치장소 = New Eco2Ar.MyCmb + Me.tb_축열탱크체적난 = New Eco2Ar.MyTb + 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.기기종류ComboBox = New Eco2Ar.MyCmb + Me.cmb_가동연료 = New Eco2Ar.MyCmb + Me.NTb1 = New Eco2Ar.MyTb + Me.NTb2 = New Eco2Ar.MyTb + 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 + 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 + CType(Me.ErrProvider, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.bsmain, System.ComponentModel.ISupportInitialize).BeginInit() + Me.TableLayoutPanel1.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.태양광Panel.SuspendLayout() + Me.Panel6.SuspendLayout() + Me.SplitContainer1.Panel1.SuspendLayout() + Me.SplitContainer1.Panel2.SuspendLayout() + Me.SplitContainer1.SuspendLayout() + CType(Me.dv, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.bn, System.ComponentModel.ISupportInitialize).BeginInit() + Me.bn.SuspendLayout() + Me.GroupBox2.SuspendLayout() + Me.열병합Panel.SuspendLayout() + Me.GroupBox1.SuspendLayout() + Me.SuspendLayout() + ' + 'Label456 + ' + Label456.AutoSize = True + Label456.ForeColor = System.Drawing.Color.Black + Label456.Location = New System.Drawing.Point(60, 6) + Label456.Name = "Label456" + Label456.Size = New System.Drawing.Size(132, 14) + Label456.TabIndex = 38 + Label456.Text = "[태양열 시스템:축열탱크]" + ' + 'Label455 + ' + Label455.AutoSize = True + Label455.ForeColor = System.Drawing.Color.Black + Label455.Location = New System.Drawing.Point(82, 5) + Label455.Name = "Label455" + Label455.Size = New System.Drawing.Size(84, 14) + Label455.TabIndex = 38 + Label455.Text = "[태양열 시스템]" + ' + 'Label4 + ' + Label4.AutoSize = True + Label4.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label4.Location = New System.Drawing.Point(1, 28) + Label4.Name = "Label4" + Label4.Size = New System.Drawing.Size(157, 14) + Label4.TabIndex = 32 + Label4.Text = "태양열 축열탱크 체적(급탕)[l]:" + ' + 'Label6 + ' + Label6.AutoSize = True + Label6.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label6.Location = New System.Drawing.Point(1, 56) + Label6.Name = "Label6" + Label6.Size = New System.Drawing.Size(157, 14) + Label6.TabIndex = 34 + Label6.Text = "태양열 축열탱크 체적(난방)[l]:" + ' + 'Label7 + ' + Label7.AutoSize = True + Label7.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label7.Location = New System.Drawing.Point(3, 82) + Label7.Name = "Label7" + Label7.Size = New System.Drawing.Size(99, 14) + Label7.TabIndex = 36 + Label7.Text = "축열탱크설치장소:" + ' + 'Label8 + ' + Label8.AutoSize = True + Label8.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label8.Location = New System.Drawing.Point(6, 23) + Label8.Name = "Label8" + Label8.Size = New System.Drawing.Size(105, 14) + Label8.TabIndex = 8 + Label8.Text = "태양열 시스템 종류:" + ' + 'Label9 + ' + Label9.AutoSize = True + Label9.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label9.Location = New System.Drawing.Point(6, 47) + Label9.Name = "Label9" + Label9.Size = New System.Drawing.Size(66, 14) + Label9.TabIndex = 10 + Label9.Text = "집열기유형:" + ' + 'Label10 + ' + Label10.AutoSize = True + Label10.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label10.Location = New System.Drawing.Point(6, 71) + Label10.Name = "Label10" + Label10.Size = New System.Drawing.Size(92, 14) + Label10.TabIndex = 12 + Label10.Text = "집열판면적[m2]:" + ' + 'Label11 + ' + Label11.AutoSize = True + Label11.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label11.Location = New System.Drawing.Point(6, 94) + Label11.Name = "Label11" + Label11.Size = New System.Drawing.Size(66, 14) + Label11.TabIndex = 14 + Label11.Text = "집열판방위:" + ' + 'Label12 + ' + Label12.AutoSize = True + Label12.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label12.Location = New System.Drawing.Point(6, 118) + Label12.Name = "Label12" + Label12.Size = New System.Drawing.Size(130, 14) + Label12.TabIndex = 16 + Label12.Text = "솔라펌프의정격동력[W]:" + ' + 'Label13 + ' + Label13.AutoSize = True + Label13.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label13.Location = New System.Drawing.Point(6, 141) + Label13.Name = "Label13" + Label13.Size = New System.Drawing.Size(110, 14) + Label13.TabIndex = 18 + Label13.Text = "태양열시스템의성능:" + ' + 'Label14 + ' + Label14.AutoSize = True + Label14.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label14.Location = New System.Drawing.Point(6, 166) + Label14.Name = "Label14" + Label14.Size = New System.Drawing.Size(88, 14) + Label14.TabIndex = 20 + Label14.Text = "무손실효율계수:" + ' + 'Label15 + ' + Label15.AutoSize = True + Label15.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label15.Location = New System.Drawing.Point(3, 189) + Label15.Name = "Label15" + Label15.Size = New System.Drawing.Size(135, 14) + Label15.TabIndex = 22 + Label15.Text = "1차열손실계수[W/m2K]:" + ' + '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(142, 14) + Label16.TabIndex = 24 + Label16.Text = "2차열손실계수[W/m2K2]:" + ' + 'Label17 + ' + Label17.AutoSize = True + Label17.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label17.Location = New System.Drawing.Point(3, 29) + Label17.Name = "Label17" + Label17.Size = New System.Drawing.Size(114, 14) + Label17.TabIndex = 42 + Label17.Text = "태양광모듈면적[m2]:" + ' + 'Label18 + ' + Label18.AutoSize = True + Label18.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label18.Location = New System.Drawing.Point(3, 51) + Label18.Name = "Label18" + Label18.Size = New System.Drawing.Size(99, 14) + Label18.TabIndex = 44 + Label18.Text = "태양광모듈기울기:" + ' + 'Label19 + ' + Label19.AutoSize = True + Label19.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label19.Location = New System.Drawing.Point(3, 76) + Label19.Name = "Label19" + Label19.Size = New System.Drawing.Size(88, 14) + Label19.TabIndex = 46 + Label19.Text = "태양광모듈방위:" + ' + 'Label20 + ' + Label20.AutoSize = True + Label20.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label20.Location = New System.Drawing.Point(4, 100) + Label20.Name = "Label20" + Label20.Size = New System.Drawing.Size(88, 14) + Label20.TabIndex = 48 + Label20.Text = "태양광모듈종류:" + ' + 'Label21 + ' + Label21.AutoSize = True + Label21.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label21.Location = New System.Drawing.Point(3, 123) + Label21.Name = "Label21" + Label21.Size = New System.Drawing.Size(110, 14) + Label21.TabIndex = 50 + Label21.Text = "태양광모듈적용타입:" + ' + 'Label465 + ' + Label465.AutoSize = True + Label465.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label465.Location = New System.Drawing.Point(10, 46) + Label465.Name = "Label465" + Label465.Size = New System.Drawing.Size(95, 14) + Label465.TabIndex = 2 + Label465.Text = "-시스템 가동연료:" + ' + 'Label23 + ' + Label23.AutoSize = True + Label23.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label23.Location = New System.Drawing.Point(7, 48) + Label23.Name = "Label23" + Label23.Size = New System.Drawing.Size(113, 14) + Label23.TabIndex = 60 + Label23.Text = "열성능비(COP,난방):" + ' + 'Label24 + ' + Label24.AutoSize = True + Label24.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label24.Location = New System.Drawing.Point(7, 70) + Label24.Name = "Label24" + Label24.Size = New System.Drawing.Size(113, 14) + Label24.TabIndex = 62 + Label24.Text = "열성능비(COP,냉방):" + ' + 'Label25 + ' + Label25.AutoSize = True + Label25.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label25.Location = New System.Drawing.Point(7, 94) + Label25.Name = "Label25" + Label25.Size = New System.Drawing.Size(93, 14) + 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(79, 14) + 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(95, 14) + 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(90, 14) + Label459.TabIndex = 74 + Label459.Text = "열생산 효율[%]:" + ' + 'Label30 + ' + Label30.AutoSize = True + Label30.Location = New System.Drawing.Point(80, 40) + Label30.Name = "Label30" + Label30.Size = New System.Drawing.Size(0, 14) + Label30.TabIndex = 64 + ' + 'Label31 + ' + Label31.AutoSize = True + Label31.Location = New System.Drawing.Point(80, 51) + Label31.Name = "Label31" + Label31.Size = New System.Drawing.Size(0, 14) + Label31.TabIndex = 66 + ' + 'Label3 + ' + Label3.AutoSize = True + Label3.ForeColor = System.Drawing.Color.Black + Label3.Location = New System.Drawing.Point(71, 6) + Label3.Name = "Label3" + Label3.Size = New System.Drawing.Size(84, 14) + Label3.TabIndex = 38 + Label3.Text = "[태양광 시스템]" + ' + 'Label2 + ' + Label2.AutoSize = True + Label2.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label2.Location = New System.Drawing.Point(42, 24) + Label2.Name = "Label2" + Label2.Size = New System.Drawing.Size(59, 14) + Label2.TabIndex = 147 + Label2.Text = "-기기종류:" + ' + 'Label5 + ' + Label5.AutoSize = True + Label5.ForeColor = System.Drawing.Color.Black + Label5.Location = New System.Drawing.Point(69, 6) + Label5.Name = "Label5" + Label5.Size = New System.Drawing.Size(84, 14) + Label5.TabIndex = 38 + Label5.Text = "[열병합 시스템]" + ' + 'Label22 + ' + Label22.AutoSize = True + Label22.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label22.Location = New System.Drawing.Point(7, 24) + Label22.Name = "Label22" + Label22.Size = New System.Drawing.Size(125, 14) + Label22.TabIndex = 58 + Label22.Text = "지열히트펌프용량[kW]:" + ' + 'Label27 + ' + Label27.AutoSize = True + Label27.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label27.Location = New System.Drawing.Point(7, 187) + Label27.Name = "Label27" + Label27.Size = New System.Drawing.Size(110, 14) + Label27.TabIndex = 150 + Label27.Text = "지열팽창탱크체적[l]:" + ' + 'Label29 + ' + Label29.AutoSize = True + Label29.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label29.Location = New System.Drawing.Point(7, 164) + Label29.Name = "Label29" + Label29.Size = New System.Drawing.Size(121, 14) + Label29.TabIndex = 149 + Label29.Text = "지열팽창탱크설치여부:" + ' + 'Label28 + ' + Label28.AutoSize = True + Label28.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label28.Location = New System.Drawing.Point(7, 141) + Label28.Name = "Label28" + Label28.Size = New System.Drawing.Size(99, 14) + Label28.TabIndex = 148 + Label28.Text = "열교환기설치여부:" + ' + 'Label26 + ' + Label26.AutoSize = True + Label26.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label26.Location = New System.Drawing.Point(7, 116) + Label26.Name = "Label26" + Label26.Size = New System.Drawing.Size(93, 14) + Label26.TabIndex = 147 + Label26.Text = "2차펌프동력[W]:" + ' + 'TableLayoutPanel1 + ' + Me.TableLayoutPanel1.AutoScroll = True + Me.TableLayoutPanel1.ColumnCount = 2 + Me.TableLayoutPanel1.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Absolute, 126.0!)) + Me.TableLayoutPanel1.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Percent, 50.0!)) + Me.TableLayoutPanel1.Controls.Add(Me.NTb1, 1, 12) + Me.TableLayoutPanel1.Controls.Add(Me.NTb2, 1, 11) + Me.TableLayoutPanel1.Location = New System.Drawing.Point(0, 0) + Me.TableLayoutPanel1.Name = "TableLayoutPanel1" + Me.TableLayoutPanel1.RowCount = 13 + Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Absolute, 20.0!)) + Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Absolute, 20.0!)) + Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Absolute, 20.0!)) + Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Absolute, 20.0!)) + Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Absolute, 20.0!)) + Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Absolute, 20.0!)) + Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Absolute, 20.0!)) + Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Absolute, 20.0!)) + Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Absolute, 20.0!)) + Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Absolute, 20.0!)) + Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Absolute, 20.0!)) + Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Absolute, 20.0!)) + Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Absolute, 20.0!)) + Me.TableLayoutPanel1.Size = New System.Drawing.Size(200, 100) + Me.TableLayoutPanel1.TabIndex = 0 + ' + 'bs + ' + Me.bs.DataMember = "tbl_new" + Me.bs.DataSource = Me.DS + Me.bs.Filter = "code <> '0'" + ' + 'DS + ' + Me.DS.DataSetName = "DS" + Me.DS.SchemaSerializationMode = System.Data.SchemaSerializationMode.IncludeSchema + ' + '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(229, 90) + Me.tb_태양열_cnt2.Name = "tb_태양열_cnt2" + Me.tb_태양열_cnt2.ReadOnly = True + Me.tb_태양열_cnt2.Size = New System.Drawing.Size(43, 21) + Me.tb_태양열_cnt2.TabIndex = 117 + Me.tb_태양열_cnt2.Text = "0" + Me.tb_태양열_cnt2.TextAlign = System.Windows.Forms.HorizontalAlignment.Center + ' + '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(229, 68) + Me.tb_태양열_cnt1.Name = "tb_태양열_cnt1" + Me.tb_태양열_cnt1.ReadOnly = True + Me.tb_태양열_cnt1.Size = New System.Drawing.Size(43, 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(15, 72) + Me.Label163.Name = "Label163" + Me.Label163.Size = New System.Drawing.Size(206, 14) + 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(15, 92) + Me.Label164.Name = "Label164" + Me.Label164.Size = New System.Drawing.Size(206, 14) + Me.Label164.TabIndex = 118 + Me.Label164.Text = "-냉방생산기기와 열원기기로 연결된 수 : " + Me.Label164.TextAlign = System.Drawing.ContentAlignment.MiddleRight + ' + '축열탱크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(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 + ' + '태양열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(Label455) + Me.태양열Panel.Controls.Add(Me.cmb_태양열시스템종류) + Me.태양열Panel.Controls.Add(Me.cmb_집열기유형) + Me.태양열Panel.Controls.Add(Me.tb_집열판면적) + Me.태양열Panel.Controls.Add(Me.cmb_집열판방위) + Me.태양열Panel.Controls.Add(Label16) + Me.태양열Panel.Controls.Add(Me.tB_솔라펌프출력) + Me.태양열Panel.Controls.Add(Me.cmb_태양열시스템의성능) + Me.태양열Panel.Controls.Add(Label8) + Me.태양열Panel.Controls.Add(Me.tb_무손실효율계수) + Me.태양열Panel.Controls.Add(Label9) + Me.태양열Panel.Controls.Add(Label15) + Me.태양열Panel.Controls.Add(Label10) + Me.태양열Panel.Controls.Add(Label14) + Me.태양열Panel.Controls.Add(Me.tb_2차손실계수) + Me.태양열Panel.Controls.Add(Label13) + Me.태양열Panel.Controls.Add(Label11) + Me.태양열Panel.Controls.Add(Me.tb_1차손실계수) + Me.태양열Panel.Controls.Add(Label12) + Me.태양열Panel.Location = New System.Drawing.Point(7, 17) + Me.태양열Panel.Name = "태양열Panel" + Me.태양열Panel.Size = New System.Drawing.Size(266, 239) + Me.태양열Panel.TabIndex = 144 + ' + '지열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(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, 276) + Me.지열Panel.Name = "지열Panel" + Me.지열Panel.Size = New System.Drawing.Size(224, 215) + Me.지열Panel.TabIndex = 145 + ' + 'Label1 + ' + Me.Label1.AutoSize = True + Me.Label1.ForeColor = System.Drawing.Color.Black + Me.Label1.Location = New System.Drawing.Point(75, 2) + Me.Label1.Name = "Label1" + Me.Label1.Size = New System.Drawing.Size(73, 14) + Me.Label1.TabIndex = 142 + Me.Label1.Text = "[지열 시스템]" + ' + '태양광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(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(Label21) + Me.태양광Panel.Controls.Add(Me.tb_모듈면적) + Me.태양광Panel.Controls.Add(Label20) + Me.태양광Panel.Location = New System.Drawing.Point(9, 118) + Me.태양광Panel.Name = "태양광Panel" + Me.태양광Panel.Size = New System.Drawing.Size(224, 152) + Me.태양광Panel.TabIndex = 144 + ' + '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, 28) + Me.Panel6.Name = "Panel6" + Me.Panel6.Size = New System.Drawing.Size(770, 539) + 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(770, 539) + Me.SplitContainer1.SplitterDistance = 212 + Me.SplitContainer1.TabIndex = 150 + ' + 'dv + ' + Me.dv.A_DelCurrentCell = True + Me.dv.A_EnterToTab = True + 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.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.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, 500) + Me.dv.TabIndex = 0 + ' + 'DataGridViewTextBoxColumn1 + ' + Me.DataGridViewTextBoxColumn1.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.Fill + Me.DataGridViewTextBoxColumn1.DataPropertyName = "설명" + Me.DataGridViewTextBoxColumn1.HeaderText = "설명" + Me.DataGridViewTextBoxColumn1.Name = "DataGridViewTextBoxColumn1" + ' + '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("Microsoft Sans Serif", 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.bn.Location = New System.Drawing.Point(0, 500) + 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(29, 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 = "변경된 내용을 되돌립니다" + ' + '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(15, 34) + Me.lbl_pos.Text = "0" + ' + '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, 11) + Me.GroupBox2.Name = "GroupBox2" + Me.GroupBox2.Size = New System.Drawing.Size(245, 504) + 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(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(224, 100) + Me.열병합Panel.TabIndex = 145 + ' + 'GroupBox1 + ' + Me.GroupBox1.Controls.Add(Me.축열탱크Panel) + Me.GroupBox1.Controls.Add(Me.태양열Panel) + Me.GroupBox1.Location = New System.Drawing.Point(6, 112) + Me.GroupBox1.Name = "GroupBox1" + Me.GroupBox1.Size = New System.Drawing.Size(283, 403) + Me.GroupBox1.TabIndex = 149 + Me.GroupBox1.TabStop = False + ' + 'tb_지열팽창탱크체적 + ' + Me.tb_지열팽창탱크체적.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bs, "팽창탱크체적", True)) + Me.tb_지열팽창탱크체적.Location = New System.Drawing.Point(135, 184) + Me.tb_지열팽창탱크체적.Name = "tb_지열팽창탱크체적" + Me.tb_지열팽창탱크체적.NectControl = Nothing + Me.tb_지열팽창탱크체적.Size = New System.Drawing.Size(80, 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(135, 160) + Me.cmb_지열팽창설치여부.Name = "cmb_지열팽창설치여부" + Me.cmb_지열팽창설치여부.NectControl = Nothing + Me.cmb_지열팽창설치여부.Size = New System.Drawing.Size(80, 22) + Me.cmb_지열팽창설치여부.TabIndex = 145 + ' + 'cmb_열교환기설치여부 + ' + Me.cmb_열교환기설치여부.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList + Me.cmb_열교환기설치여부.FormattingEnabled = True + Me.cmb_열교환기설치여부.Location = New System.Drawing.Point(135, 136) + Me.cmb_열교환기설치여부.Name = "cmb_열교환기설치여부" + Me.cmb_열교환기설치여부.NectControl = Nothing + Me.cmb_열교환기설치여부.Size = New System.Drawing.Size(80, 22) + 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(135, 113) + Me.tb_2차펌프용량.Name = "tb_2차펌프용량" + Me.tb_2차펌프용량.NectControl = Nothing + Me.tb_2차펌프용량.Size = New System.Drawing.Size(80, 21) + Me.tb_2차펌프용량.TabIndex = 143 + Me.tb_2차펌프용량.TextAlign = System.Windows.Forms.HorizontalAlignment.Right + Me.tb_2차펌프용량.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(135, 90) + Me.tb_1차펌프용량.Name = "tb_1차펌프용량" + Me.tb_1차펌프용량.NectControl = Nothing + Me.tb_1차펌프용량.Size = New System.Drawing.Size(80, 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(135, 67) + Me.tb_열성능비2.Name = "tb_열성능비2" + Me.tb_열성능비2.NectControl = Nothing + Me.tb_열성능비2.Size = New System.Drawing.Size(80, 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(135, 44) + Me.tb_열성능비.Name = "tb_열성능비" + Me.tb_열성능비.NectControl = Nothing + Me.tb_열성능비.Size = New System.Drawing.Size(80, 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(135, 21) + Me.tb_지열펌프용량.Name = "tb_지열펌프용량" + Me.tb_지열펌프용량.NectControl = Nothing + Me.tb_지열펌프용량.Size = New System.Drawing.Size(80, 21) + Me.tb_지열펌프용량.TabIndex = 0 + 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(122, 97) + Me.cmb_모듈종류.Name = "cmb_모듈종류" + Me.cmb_모듈종류.NectControl = Nothing + Me.cmb_모듈종류.Size = New System.Drawing.Size(94, 22) + Me.cmb_모듈종류.TabIndex = 11 + ' + 'cmb_모듈방위 + ' + Me.cmb_모듈방위.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList + Me.cmb_모듈방위.FormattingEnabled = True + Me.cmb_모듈방위.Location = New System.Drawing.Point(122, 73) + Me.cmb_모듈방위.Name = "cmb_모듈방위" + Me.cmb_모듈방위.NectControl = Nothing + Me.cmb_모듈방위.Size = New System.Drawing.Size(94, 22) + Me.cmb_모듈방위.TabIndex = 10 + ' + 'cmb_모듈적용타입 + ' + Me.cmb_모듈적용타입.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList + Me.cmb_모듈적용타입.FormattingEnabled = True + Me.cmb_모듈적용타입.Location = New System.Drawing.Point(122, 121) + Me.cmb_모듈적용타입.Name = "cmb_모듈적용타입" + Me.cmb_모듈적용타입.NectControl = Nothing + Me.cmb_모듈적용타입.Size = New System.Drawing.Size(94, 22) + Me.cmb_모듈적용타입.TabIndex = 12 + ' + 'cmb_모듈기울기 + ' + Me.cmb_모듈기울기.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList + Me.cmb_모듈기울기.FormattingEnabled = True + Me.cmb_모듈기울기.Location = New System.Drawing.Point(122, 49) + Me.cmb_모듈기울기.Name = "cmb_모듈기울기" + Me.cmb_모듈기울기.NectControl = Nothing + Me.cmb_모듈기울기.Size = New System.Drawing.Size(94, 22) + Me.cmb_모듈기울기.TabIndex = 9 + ' + 'tb_모듈면적 + ' + Me.tb_모듈면적.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bs, "태양광모듈면적", True)) + Me.tb_모듈면적.Location = New System.Drawing.Point(122, 26) + Me.tb_모듈면적.Name = "tb_모듈면적" + Me.tb_모듈면적.NectControl = Nothing + Me.tb_모듈면적.Size = New System.Drawing.Size(94, 21) + Me.tb_모듈면적.TabIndex = 8 + 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(123, 26) + 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(123, 49) + 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(123, 72) + 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 + ' + 'tb_축열탱크체적급 + ' + Me.tb_축열탱크체적급.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bs, "축열탱크체적급탕", True)) + Me.tb_축열탱크체적급.Location = New System.Drawing.Point(163, 28) + Me.tb_축열탱크체적급.Name = "tb_축열탱크체적급" + Me.tb_축열탱크체적급.NectControl = Nothing + Me.tb_축열탱크체적급.Size = New System.Drawing.Size(89, 21) + Me.tb_축열탱크체적급.TabIndex = 9 + 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(163, 80) + Me.cmb_축열탱크설치장소.Name = "cmb_축열탱크설치장소" + Me.cmb_축열탱크설치장소.NectControl = Nothing + Me.cmb_축열탱크설치장소.Size = New System.Drawing.Size(89, 22) + 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(163, 54) + Me.tb_축열탱크체적난.Name = "tb_축열탱크체적난" + Me.tb_축열탱크체적난.NectControl = Nothing + Me.tb_축열탱크체적난.Size = New System.Drawing.Size(89, 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 + Me.cmb_태양열시스템종류.FormattingEnabled = True + Me.cmb_태양열시스템종류.Location = New System.Drawing.Point(161, 21) + Me.cmb_태양열시스템종류.Name = "cmb_태양열시스템종류" + Me.cmb_태양열시스템종류.NectControl = Nothing + Me.cmb_태양열시스템종류.Size = New System.Drawing.Size(95, 22) + Me.cmb_태양열시스템종류.TabIndex = 0 + ' + 'cmb_집열기유형 + ' + Me.cmb_집열기유형.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList + Me.cmb_집열기유형.FormattingEnabled = True + Me.cmb_집열기유형.Location = New System.Drawing.Point(161, 46) + Me.cmb_집열기유형.Name = "cmb_집열기유형" + Me.cmb_집열기유형.NectControl = Nothing + Me.cmb_집열기유형.Size = New System.Drawing.Size(95, 22) + Me.cmb_집열기유형.TabIndex = 1 + ' + 'tb_집열판면적 + ' + Me.tb_집열판면적.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bs, "집열판면적", True)) + Me.tb_집열판면적.Location = New System.Drawing.Point(161, 70) + Me.tb_집열판면적.Name = "tb_집열판면적" + Me.tb_집열판면적.NectControl = Nothing + Me.tb_집열판면적.Size = New System.Drawing.Size(95, 21) + Me.tb_집열판면적.TabIndex = 2 + 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(161, 93) + Me.cmb_집열판방위.Name = "cmb_집열판방위" + Me.cmb_집열판방위.NectControl = Nothing + Me.cmb_집열판방위.Size = New System.Drawing.Size(95, 22) + Me.cmb_집열판방위.TabIndex = 3 + ' + 'tB_솔라펌프출력 + ' + Me.tB_솔라펌프출력.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bs, "솔라펌프의정격출력", True)) + Me.tB_솔라펌프출력.Location = New System.Drawing.Point(161, 117) + Me.tB_솔라펌프출력.Name = "tB_솔라펌프출력" + Me.tB_솔라펌프출력.NectControl = Nothing + Me.tB_솔라펌프출력.Size = New System.Drawing.Size(95, 21) + Me.tB_솔라펌프출력.TabIndex = 4 + 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(161, 140) + Me.cmb_태양열시스템의성능.Name = "cmb_태양열시스템의성능" + Me.cmb_태양열시스템의성능.NectControl = Nothing + Me.cmb_태양열시스템의성능.Size = New System.Drawing.Size(95, 22) + Me.cmb_태양열시스템의성능.TabIndex = 5 + ' + 'tb_무손실효율계수 + ' + Me.tb_무손실효율계수.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bs, "무손실효율계수", True)) + Me.tb_무손실효율계수.Location = New System.Drawing.Point(161, 165) + Me.tb_무손실효율계수.Name = "tb_무손실효율계수" + Me.tb_무손실효율계수.NectControl = Nothing + Me.tb_무손실효율계수.Size = New System.Drawing.Size(95, 21) + Me.tb_무손실효율계수.TabIndex = 6 + 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, "열손실계수2차", True)) + Me.tb_2차손실계수.Location = New System.Drawing.Point(161, 212) + Me.tb_2차손실계수.Name = "tb_2차손실계수" + Me.tb_2차손실계수.NectControl = Nothing + Me.tb_2차손실계수.Size = New System.Drawing.Size(95, 21) + Me.tb_2차손실계수.TabIndex = 8 + Me.tb_2차손실계수.TextAlign = System.Windows.Forms.HorizontalAlignment.Right + Me.tb_2차손실계수.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(161, 189) + Me.tb_1차손실계수.Name = "tb_1차손실계수" + Me.tb_1차손실계수.NectControl = Nothing + Me.tb_1차손실계수.Size = New System.Drawing.Size(95, 21) + Me.tb_1차손실계수.TabIndex = 7 + Me.tb_1차손실계수.TextAlign = System.Windows.Forms.HorizontalAlignment.Right + Me.tb_1차손실계수.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + ' + '기기종류ComboBox + ' + Me.기기종류ComboBox.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList + Me.기기종류ComboBox.FormattingEnabled = True + Me.기기종류ComboBox.Location = New System.Drawing.Point(137, 20) + Me.기기종류ComboBox.Name = "기기종류ComboBox" + Me.기기종류ComboBox.NectControl = Nothing + Me.기기종류ComboBox.Size = New System.Drawing.Size(142, 22) + Me.기기종류ComboBox.TabIndex = 148 + ' + 'cmb_가동연료 + ' + Me.cmb_가동연료.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList + Me.cmb_가동연료.FormattingEnabled = True + Me.cmb_가동연료.Location = New System.Drawing.Point(137, 43) + Me.cmb_가동연료.Name = "cmb_가동연료" + Me.cmb_가동연료.NectControl = Nothing + Me.cmb_가동연료.Size = New System.Drawing.Size(142, 22) + Me.cmb_가동연료.TabIndex = 3 + ' + 'NTb1 + ' + Me.NTb1.Location = New System.Drawing.Point(129, 243) + Me.NTb1.Name = "NTb1" + Me.NTb1.NectControl = Nothing + Me.NTb1.Size = New System.Drawing.Size(68, 21) + Me.NTb1.TabIndex = 63 + Me.NTb1.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + ' + 'NTb2 + ' + Me.NTb2.Location = New System.Drawing.Point(129, 223) + Me.NTb2.Name = "NTb2" + Me.NTb2.NectControl = Nothing + Me.NTb2.Size = New System.Drawing.Size(68, 21) + Me.NTb2.TabIndex = 61 + Me.NTb2.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + ' + 'NTb3 + ' + Me.NTb3.Location = New System.Drawing.Point(129, 263) + Me.NTb3.Name = "NTb3" + Me.NTb3.NectControl = Nothing + Me.NTb3.Size = New System.Drawing.Size(97, 21) + Me.NTb3.TabIndex = 59 + Me.NTb3.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + ' + 'Frm_V20091231_New + ' + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.None + Me.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer)) + Me.ClientSize = New System.Drawing.Size(770, 567) + Me.Controls.Add(Me.Panel6) + Me.Font = New System.Drawing.Font("나눔고딕 ExtraBold", 8.999999!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.Name = "Frm_V20091231_New" + Me.ShowInTaskbar = False + Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen + Me.Text = "신재생 및 열병합 생산기기" + Me.Controls.SetChildIndex(Me.Panel6, 0) + CType(Me.ErrProvider, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.bsmain, System.ComponentModel.ISupportInitialize).EndInit() + Me.TableLayoutPanel1.ResumeLayout(False) + Me.TableLayoutPanel1.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.태양광Panel.ResumeLayout(False) + Me.태양광Panel.PerformLayout() + Me.Panel6.ResumeLayout(False) + Me.SplitContainer1.Panel1.ResumeLayout(False) + Me.SplitContainer1.Panel2.ResumeLayout(False) + Me.SplitContainer1.Panel2.PerformLayout() + Me.SplitContainer1.ResumeLayout(False) + CType(Me.dv, 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.열병합Panel.PerformLayout() + Me.GroupBox1.ResumeLayout(False) + Me.ResumeLayout(False) + + End Sub + Friend WithEvents tb_집열판면적 As MyTb + Friend WithEvents tB_솔라펌프출력 As MyTb + Friend WithEvents tb_무손실효율계수 As MyTb + Friend WithEvents tb_1차손실계수 As MyTb + Friend WithEvents tb_2차손실계수 As MyTb + Friend WithEvents tb_축열탱크체적급 As MyTb + Friend WithEvents tb_축열탱크체적난 As MyTb + Friend WithEvents tb_모듈면적 As MyTb + Public WithEvents DS As Eco2Ar.DS + Friend WithEvents bs As System.Windows.Forms.BindingSource + Friend WithEvents tb_발전효율 As MyTb + Friend WithEvents tb_열생산효율 As MyTb + Friend WithEvents tb_열생산능력 As MyTb + Friend WithEvents tb_지열펌프용량 As MyTb + Friend WithEvents tb_열성능비 As MyTb + Friend WithEvents tb_1차펌프용량 As MyTb + Friend WithEvents tb_열성능비2 As MyTb + Friend WithEvents TableLayoutPanel1 As System.Windows.Forms.TableLayoutPanel + Friend WithEvents NTb1 As MyTb + Friend WithEvents NTb2 As MyTb + Friend WithEvents NTb3 As MyTb + Friend WithEvents cmb_태양열시스템종류 As Eco2Ar.MyCmb + Friend WithEvents cmb_집열기유형 As Eco2Ar.MyCmb + Friend WithEvents cmb_집열판방위 As Eco2Ar.MyCmb + Friend WithEvents cmb_태양열시스템의성능 As Eco2Ar.MyCmb + Friend WithEvents cmb_축열탱크설치장소 As Eco2Ar.MyCmb + Friend WithEvents cmb_모듈기울기 As Eco2Ar.MyCmb + Friend WithEvents cmb_모듈적용타입 As Eco2Ar.MyCmb + Friend WithEvents cmb_모듈방위 As Eco2Ar.MyCmb + Friend WithEvents cmb_모듈종류 As Eco2Ar.MyCmb + Friend WithEvents cmb_가동연료 As Eco2Ar.MyCmb + Friend WithEvents tb_태양열_cnt2 As System.Windows.Forms.TextBox + Friend WithEvents tb_태양열_cnt1 As System.Windows.Forms.TextBox + Friend WithEvents Label163 As System.Windows.Forms.Label + Friend WithEvents Label164 As System.Windows.Forms.Label + Friend WithEvents 지열Panel As System.Windows.Forms.Panel + Friend WithEvents 태양광Panel As System.Windows.Forms.Panel + Friend WithEvents 태양열Panel As System.Windows.Forms.Panel + Friend WithEvents 축열탱크Panel As System.Windows.Forms.Panel + Friend WithEvents 기기종류ComboBox As Eco2Ar.MyCmb + Friend WithEvents Panel6 As System.Windows.Forms.Panel + Friend WithEvents SplitContainer1 As System.Windows.Forms.SplitContainer + Friend WithEvents dv As CEnergy.arindv + Friend WithEvents DataGridViewTextBoxColumn1 As System.Windows.Forms.DataGridViewTextBoxColumn + Friend WithEvents bn As System.Windows.Forms.BindingNavigator + Friend WithEvents bt_add As System.Windows.Forms.ToolStripButton + Friend WithEvents bt_Del As System.Windows.Forms.ToolStripButton + Friend WithEvents bt_cancel As System.Windows.Forms.ToolStripButton + Friend WithEvents ToolStripSeparator1 As System.Windows.Forms.ToolStripSeparator + Friend WithEvents 열병합Panel As System.Windows.Forms.Panel + Friend WithEvents tb_지열팽창탱크체적 As Eco2Ar.MyTb + 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 + Friend WithEvents GroupBox1 As System.Windows.Forms.GroupBox +End Class diff --git a/ArinWarev1/Forms/v20091231/Frm_v20091231_New.resx b/ArinWarev1/Forms/v20091231/Frm_v20091231_New.resx new file mode 100644 index 0000000..108e981 --- /dev/null +++ b/ArinWarev1/Forms/v20091231/Frm_v20091231_New.resx @@ -0,0 +1,246 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + 109, 17 + + + 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 + + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + 222, 17 + + + 286, 17 + + + 353, 17 + + + 40 + + \ No newline at end of file diff --git a/ArinWarev1/Forms/v20091231/Frm_v20091231_New.vb b/ArinWarev1/Forms/v20091231/Frm_v20091231_New.vb new file mode 100644 index 0000000..c9478bf --- /dev/null +++ b/ArinWarev1/Forms/v20091231/Frm_v20091231_New.vb @@ -0,0 +1,778 @@ +Public Class Frm_V20091231_New + Dim Dt As DataTable + Dim Init As Boolean = False + Dim SrcDrv As DataRowView + + Private Sub MdiMain_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load + MdiMain.Toggle_Menu_Color(MdiMain.E_MenuIdx.신재생기기) + 'CEnergy.ARINCLASS.SaveLoad_FrmSetting(Me) + '//프로필 관련 + + '//공유데이터셋에 연결한다. + Me.bs.DataSource = DSET + Dt = DSET.tbl_new + 'If Me.bs.Count < 1 Then + ' Me.bs.AddNew() + ' Dim DRv As DataRowView = bs.Current + ' DRv("code") = Me.GetMaxCode(DSET.tbl_new) + 'End If + + '//신재생 + AddHandler DSET.tbl_new.TableNewRow, AddressOf AddNewDataRow_new + + '//콤보컨트롤 바인딩 + Binding_Zone() + + '//모든컨트롤의 cTrl_enter 를 추가합니다 + BindProperty(CType(Me.SplitContainer1.Panel2.Controls, Control.ControlCollection)) + Me.bsmain = Me.bs + Me.Init = True + + Try + Me.bsmain.Position = CEnergy.ARINCLASS.Read_LastPos_Frm(Me) + Catch ex As Exception + Me.bsmain.MoveFirst() + End Try + + bs_CurrentChanged(sender, e) + Me.Validate_Control() + + End Sub + +#Region "Control_Enter" + Private Sub BindProperty(ByVal Ctl As Control.ControlCollection) + For Each C As Control In Ctl + If C.Controls.Count > 1 Then + BindProperty(C.Controls) + Else + If C.GetType.ToString.ToUpper.IndexOf("MYTB") <> -1 Then + AddHandler CType(C, MyTb).KeyDown, AddressOf TextBOx_KeyDown + ElseIf C.GetType.ToString.ToUpper.IndexOf("MYCMB") <> -1 Then + AddHandler CType(C, MyCmb).KeyDown, AddressOf Cmd_KeyDown + End If + End If + Next + End Sub + + Private Sub TextBOx_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) + If e.KeyCode = Keys.Enter AndAlso e.Control Then + Try + Dim Field As String = (CType(sender, MyTb).DataBindings.Item("text").BindingMemberInfo.BindingField) + For Each Dr As DataRow In Dt.Select(Me.bs.Filter, "") + Dr(Field) = CType(sender, MyTb).Text + Next + Work_msg_timer("모든값이 변경되었습니다", 25) + Catch ex As Exception + + End Try + + End If + End Sub + Private Sub Cmd_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) + If e.KeyCode = Keys.Enter AndAlso e.Control Then + Try + Dim Field As String = (CType(sender, MyCmb).DataBindings.Item("selectedvalue").BindingMemberInfo.BindingField) + For Each Dr As DataRow In Dt.Select(Me.bs.Filter, "") + Dr(Field) = CType(sender, MyCmb).SelectedValue + Next + Work_msg_timer("모든값이 변경되었습니다", 25) + Catch ex As Exception + + End Try + End If + End Sub +#End Region + +#Region "신재생" + Private Function GetMaxCode(ByVal dt As DataTable) As String + Try + Dim Dr As DataRow = dt.Select("", "code desc")(0) + Return Format(CInt(Dr("code")) + 1, "0000") + Catch ex As Exception + Return "0001" + End Try + End Function + Private Sub Cmb_DeleteVal(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) + If e.KeyCode = Keys.Delete Then + CType(sender, ComboBox).SelectedValue = "" + End If + End Sub + + Private Sub Binding_Zone() + + '//신재생 + Dim bs_기기종류ComboBox As New BindingSource(DSET, "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(DSET, "tbl_common") + bs_가동연료ComboBox.Filter = "gubun='1066'" + bs_가동연료ComboBox.Sort = "code" + Me.cmb_가동연료.DataSource = bs_가동연료ComboBox + cmb_가동연료.DisplayMember = "name" + cmb_가동연료.ValueMember = "name" + Me.cmb_가동연료.DataBindings.Add("selectedvalue", Me.bs, "가동연료") + 'AddHandler 지열가동연료ComboBox.KeyDown, AddressOf Cmb_DeleteVal + + Dim bs_태양열종류ComboBox As New BindingSource(DSET, "tbl_common") + bs_태양열종류ComboBox.Filter = "gubun='1057'" + bs_태양열종류ComboBox.Sort = "code" + Me.cmb_태양열시스템종류.DataSource = bs_태양열종류ComboBox + cmb_태양열시스템종류.DisplayMember = "name" + cmb_태양열시스템종류.ValueMember = "name" + Me.cmb_태양열시스템종류.DataBindings.Add("selectedvalue", Me.bs, "태양열종류") + 'AddHandler 태양열종류ComboBox.KeyDown, AddressOf Cmb_DeleteVal + + + Dim bs_집열기유형ComboBox As New BindingSource(DSET, "tbl_common") + bs_집열기유형ComboBox.Filter = "gubun='1058'" + bs_집열기유형ComboBox.Sort = "code" + Me.cmb_집열기유형.DataSource = bs_집열기유형ComboBox + cmb_집열기유형.DisplayMember = "name" + cmb_집열기유형.ValueMember = "name" + Me.cmb_집열기유형.DataBindings.Add("selectedvalue", Me.bs, "집열기유형") + 'AddHandler 집열기유형ComboBox.KeyDown, AddressOf Cmb_DeleteVal + + '집열기유형ComboBox + + Dim bs_집열판방위ComboBox As New BindingSource(DSET, "tbl_common") + bs_집열판방위ComboBox.Filter = "gubun='1059'" + bs_집열판방위ComboBox.Sort = "code" + Me.cmb_집열판방위.DataSource = bs_집열판방위ComboBox + cmb_집열판방위.DisplayMember = "name" + cmb_집열판방위.ValueMember = "name" + Me.cmb_집열판방위.DataBindings.Add("selectedvalue", Me.bs, "집열판방위") + 'AddHandler 집열판방위ComboBox.KeyDown, AddressOf Cmb_DeleteVal + + + Dim bs_태양열시스템의성능ComboBox As New BindingSource(DSET, "tbl_common") + bs_태양열시스템의성능ComboBox.Filter = "gubun='1060'" + bs_태양열시스템의성능ComboBox.Sort = "code" + Me.cmb_태양열시스템의성능.DataSource = bs_태양열시스템의성능ComboBox + cmb_태양열시스템의성능.DisplayMember = "name" + cmb_태양열시스템의성능.ValueMember = "name" + Me.cmb_태양열시스템의성능.DataBindings.Add("selectedvalue", Me.bs, "태양열시스템의성능") + 'AddHandler 태양열시스템의성능ComboBox.KeyDown, AddressOf Cmb_DeleteVal + + + Dim bs_축열탱크설치장소ComboBox As New BindingSource(DSET, "tbl_common") + bs_축열탱크설치장소ComboBox.Filter = "gubun='1061'" + bs_축열탱크설치장소ComboBox.Sort = "code" + Me.cmb_축열탱크설치장소.DataSource = bs_축열탱크설치장소ComboBox + cmb_축열탱크설치장소.DisplayMember = "name" + cmb_축열탱크설치장소.ValueMember = "name" + Me.cmb_축열탱크설치장소.DataBindings.Add("selectedvalue", Me.bs, "축열탱크설치장소") + 'AddHandler 축열탱크설치장소ComboBox.KeyDown, AddressOf Cmb_DeleteVal + + + Dim bs_태양광모듈기울기ComboBox As New BindingSource(DSET, "tbl_common") + bs_태양광모듈기울기ComboBox.Filter = "gubun='1062'" + bs_태양광모듈기울기ComboBox.Sort = "code" + Me.cmb_모듈기울기.DataSource = bs_태양광모듈기울기ComboBox + cmb_모듈기울기.DisplayMember = "name" + cmb_모듈기울기.ValueMember = "name" + Me.cmb_모듈기울기.DataBindings.Add("selectedvalue", Me.bs, "태양광모듈기울기") + 'AddHandler 태양광모듈기울기ComboBox.KeyDown, AddressOf Cmb_DeleteVal + + Dim bs_태양광모듈방위ComboBox As New BindingSource(DSET, "tbl_common") + bs_태양광모듈방위ComboBox.Filter = "gubun='1063'" + bs_태양광모듈방위ComboBox.Sort = "code" + Me.cmb_모듈방위.DataSource = bs_태양광모듈방위ComboBox + cmb_모듈방위.DisplayMember = "name" + cmb_모듈방위.ValueMember = "name" + Me.cmb_모듈방위.DataBindings.Add("selectedvalue", Me.bs, "태양광모듈방위") + 'AddHandler 태양광모듈방위ComboBox.KeyDown, AddressOf Cmb_DeleteVal + + + Dim bs_태양광모듈종류ComboBox As New BindingSource(DSET, "tbl_common") + bs_태양광모듈종류ComboBox.Filter = "gubun='1064'" + bs_태양광모듈종류ComboBox.Sort = "code" + Me.cmb_모듈종류.DataSource = bs_태양광모듈종류ComboBox + cmb_모듈종류.DisplayMember = "name" + cmb_모듈종류.ValueMember = "name" + Me.cmb_모듈종류.DataBindings.Add("selectedvalue", Me.bs, "태양광모듈종류") + 'AddHandler 태양광모듈종류ComboBox.KeyDown, AddressOf Cmb_DeleteVal + + + Dim bs_태양광모듈적용타입ComboBox As New BindingSource(DSET, "tbl_common") + bs_태양광모듈적용타입ComboBox.Filter = "gubun='1065'" + bs_태양광모듈적용타입ComboBox.Sort = "code" + Me.cmb_모듈적용타입.DataSource = bs_태양광모듈적용타입ComboBox + cmb_모듈적용타입.DisplayMember = "name" + cmb_모듈적용타입.ValueMember = "name" + Me.cmb_모듈적용타입.DataBindings.Add("selectedvalue", Me.bs, "태양광모듈적용타입") + 'AddHandler 태양광모듈적용타입ComboBox.KeyDown, AddressOf Cmb_DeleteVal + + + Dim bs_열교환기설치여부ComboBox As New BindingSource(DSET, "tbl_common") + bs_열교환기설치여부ComboBox.Filter = "gubun='1054'" + bs_열교환기설치여부ComboBox.Sort = "code" + Me.cmb_열교환기설치여부.DataSource = bs_열교환기설치여부ComboBox + cmb_열교환기설치여부.DisplayMember = "name" + cmb_열교환기설치여부.ValueMember = "name" + Me.cmb_열교환기설치여부.DataBindings.Add("selectedvalue", Me.bs, "열교환기설치여부") + 'AddHandler 열교환기설치여부ComboBox.KeyDown, AddressOf Cmb_DeleteVal + + Dim bs_팽창탱크설치여부ComboBox As New BindingSource(DSET, "tbl_common") + bs_팽창탱크설치여부ComboBox.Filter = "gubun='1054'" + bs_팽창탱크설치여부ComboBox.Sort = "code" + Me.cmb_지열팽창설치여부.DataSource = bs_팽창탱크설치여부ComboBox + cmb_지열팽창설치여부.DisplayMember = "name" + cmb_지열팽창설치여부.ValueMember = "name" + Me.cmb_지열팽창설치여부.DataBindings.Add("selectedvalue", Me.bs, "팽창탱크설치여부") + 'AddHandler 팽창탱크설치여부ComboBox.KeyDown, AddressOf Cmb_DeleteVal + + End Sub + + Private Sub MdiMain_FormClosed(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosedEventArgs) Handles Me.FormClosed + CEnergy.ARINCLASS.SaveLoad_FrmSetting(Me, Me.bsmain.Position, True) + End Sub + + Private Sub MdiMain_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown + Select Case e.KeyCode + Case Keys.F12 + End Select + End Sub + Private Sub ToolStripButton48_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt_add.Click + If Not EndEdit(Me.bs) Then Return + Me.bs.AddNew() + 'Dim DRv As DataRowView = bs.Current + 'DRv("code") = Me.GetMaxCode(DSET.tbl_new) + INitRow(Me.Controls) + End Sub + + + Private Sub ToolStripButton49_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt_Del.Click + Dbbase.DelCrow(Me.bs, True) + End Sub + + Private Sub ToolStripButton51_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt_cancel.Click + If Not EndEdit(Me.bs) Then Return + Data_Cancel(DSET.tbl_profile, Nothing) + End Sub + Private Sub Binding_new() + + End Sub + Private Sub AddNewDataRow_new(ByVal sender As Object, ByVal e As System.Data.DataTableNewRowEventArgs) + ' MsgBox("new") + e.Row.Item("code") = GetMaxCode(DSET.tbl_new) + End Sub +#End Region + + Private Sub 태양열종류ComboBox_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles cmb_태양열시스템종류.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 + Dim Cnt As Short = 0 + For i As Integer = 0 To CB.GetUpperBound(0) + Select Case i + Case 0 '//사용프로필 앞에 두개를 숫자4자로변환 + 'If CB(i).Trim = "" Then Me.태양열종류ComboBox.SelectedIndex = -1 + If CB(i).Trim = "" Then + Me.cmb_태양열시스템종류.SelectedIndex = 0 + Else + Me.cmb_태양열시스템종류.Text = CB(i).Trim + End If + ' Me.태양열종류ComboBox.Text = CStr(IIf(CB(i).Trim = "", "0", CB(i).Trim)) + Case 1 '//공란 + If CB(i).Trim = "" Then + Me.cmb_집열기유형.SelectedIndex = 0 + Else + Me.cmb_집열기유형.Text = CB(i).Trim + End If + 'Me.집열기유형ComboBox.Text = CStr(IIf(CB(i).Trim = "", "0", CB(i).Trim)) + Case 2 '//면적 + Me.tb_집열판면적.Text = CB(i).Trim + Case 3 + If CB(i).Trim = "" Then + Me.cmb_집열판방위.SelectedIndex = 0 + Else + Me.cmb_집열판방위.Text = CB(i).Trim + End If + 'Me.집열판방위ComboBox.Text = CStr(IIf(CB(i).Trim = "", "0", CB(i).Trim)) + Case 4 + Me.tB_솔라펌프출력.Text = CB(i).Trim + Case 5 + If CB(i).Trim = "" Then + Me.cmb_태양열시스템의성능.SelectedIndex = 0 + Else + Me.cmb_태양열시스템의성능.Text = CB(i).Trim + End If + + ' Me.태양열시스템의성능ComboBox.Text = CStr(IIf(CB(i).Trim = "", "0", CB(i).Trim)) + Case 6 + Me.tb_무손실효율계수.Text = CB(i).Trim + Case 7 + Me.tb_1차손실계수.Text = CB(i).Trim + Case 8 + Me.tb_2차손실계수.Text = CB(i).Trim + Case 9 + Case 10 + Me.tb_축열탱크체적급.Text = CB(i).Trim + Case 11 + Me.tb_축열탱크체적난.Text = CB(i).Trim + Case 12 + If CB(i).Trim = "" Then + Me.cmb_축열탱크설치장소.SelectedIndex = 0 + Else + Me.cmb_축열탱크설치장소.Text = CB(i).Trim + End If + + 'Me.축열탱크설치장소ComboBox.Text = CStr(IIf(CB(i).Trim = "", "0", CB(i).Trim)) + End Select + Next + Me.bs.EndEdit() + End If + End Sub + + + Private Sub 태양광모듈면적NTb_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles tb_모듈면적.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) < 3 Then + MsgBox("정상적인 데이터가 아닙니다") + Return + End If + Dim Cnt As Short = 0 + For i As Integer = 0 To CB.GetUpperBound(0) + Select Case i + Case 0 '//사용프로필 앞에 두개를 숫자4자로변환 + Me.tb_모듈면적.Text = CB(i).Trim + Case 1 '//공란 + If CB(i).Trim = "" Then Me.cmb_모듈기울기.SelectedIndex = -1 + Me.cmb_모듈기울기.Text = CB(i).Trim + Case 2 '//면적 + If CB(i).Trim = "" Then Me.cmb_모듈방위.SelectedIndex = -1 + Me.cmb_모듈방위.Text = CB(i).Trim + Case 3 + If CB(i).Trim = "" Then Me.cmb_모듈종류.SelectedIndex = -1 + Me.cmb_모듈종류.Text = CB(i).Trim + Case 4 + If CB(i).Trim = "" Then Me.cmb_모듈적용타입.SelectedIndex = -1 + Me.cmb_모듈적용타입.Text = CB(i).Trim + End Select + Next + Me.bs.EndEdit() + End If + End Sub + + Private Sub 지열가동연료ComboBox_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles cmb_가동연료.KeyDown, tb_지열펌프용량.KeyDown + + End Sub + + Private Sub bs_CurrentChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bs.CurrentChanged + '//존이 옴겨질떄 해당 존의 사용량을 표시 + If Not Init Then Return + Try + Dim Drv As DataRowView = CType(bs.Current, DataRowView) + Me.tb_태양열_cnt1.Text = CStr(DSET.tbl_nanbangkiki.Select("신재생연결여부='시스템연결' and 연결된시스템='" & Drv("Code").ToString & "'").GetUpperBound(0) + 1) + Me.tb_태양열_cnt2.Text = CStr(DSET.tbl_nangbangkiki.Select("신재생연결여부='시스템연결' and 연결된시스템='" & Drv("Code").ToString & "'").GetUpperBound(0) + 1) + Catch ex As Exception + Me.tb_태양열_cnt1.Text = ex.Message.ToString + Me.tb_태양열_cnt2.Text = ex.Message.ToString + End Try + Me.bs.EndEdit() + End Sub + + Private Sub 기기종류ComboBox_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles 기기종류ComboBox.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) < 2 Then + MsgBox("정상적인 데이터가 아닙니다") + 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() '//한줄추가 + + Dim Cnt As Short = 0 + For i As Integer = 0 To CB.GetUpperBound(0) + Select Case i + Case 0 + CType(bs.Current, DataRowView)("설명") = CB(i).Split(CChar(vbTab))(ii).Trim + Case 5 + If CB(i).Split(CChar(vbTab))(ii).Trim = "" Then + Me.기기종류ComboBox.SelectedIndex = 0 + Else + Me.기기종류ComboBox.Text = CB(i).Split(CChar(vbTab))(ii).Trim + End If + Case 6 + ' If CB(i).Split(CChar(vbTab))(ii).Trim = "" Then Me.열교가산치ComboBox.SelectedIndex = -1 + If CB(i).Split(CChar(vbTab))(ii).Trim = "" Then + Me.cmb_가동연료.SelectedIndex = 0 + Else + Me.cmb_가동연료.Text = CB(i).Split(CChar(vbTab))(ii).Trim + End If + 'Me.열교가산치ComboBox.Text = CStr(IIf( CB(i).Split(CChar(vbTab))(ii).Trim = "", "0", CB(i).Split(CChar(vbTab))(ii).Trim)) + + Case 9 + 'If CB(i).Split(CChar(vbTab))(ii).Trim = "" Then Me.cmb_냉난방방식.SelectedIndex = -1 + If CB(i).Split(CChar(vbTab))(ii).Trim = "" Then + Me.cmb_태양열시스템종류.SelectedIndex = 0 + Else + Me.cmb_태양열시스템종류.Text = CB(i).Split(CChar(vbTab))(ii).Trim + End If + 'Me.cmb_냉난방방식.Text = CStr(IIf( CB(i).Split(CChar(vbTab))(ii).Trim = "", "0", CB(i).Split(CChar(vbTab))(ii).Trim)) + Case 10 + 'If CB(i).Split(CChar(vbTab))(ii).Trim = "" Then Me.냉난방공조ComboBox.SelectedIndex = -1 + If CB(i).Split(CChar(vbTab))(ii).Trim = "" Then + Me.cmb_집열기유형.SelectedIndex = 0 + Else + Me.cmb_집열기유형.Text = CB(i).Split(CChar(vbTab))(ii).Trim + End If + Case 11 '//열생산지정 + ' Me.TabControl10.SelectedIndex = 1 + Me.tb_집열판면적.Text = CB(i).Split(CChar(vbTab))(ii).Trim + Case 12 + 'If CB(i).Split(CChar(vbTab))(ii).Trim = "" Then Me.냉난방공조ComboBox.SelectedIndex = -1 + If CB(i).Split(CChar(vbTab))(ii).Trim = "" Then + Me.cmb_집열판방위.SelectedIndex = 0 + Else + Me.cmb_집열판방위.Text = CB(i).Split(CChar(vbTab))(ii).Trim + End If + Case 13 '//열생산지정 + ' Me.TabControl10.SelectedIndex = 1 + Me.tB_솔라펌프출력.Text = CB(i).Split(CChar(vbTab))(ii).Trim + Case 14 + 'If CB(i).Split(CChar(vbTab))(ii).Trim = "" Then Me.냉난방공조ComboBox.SelectedIndex = -1 + If CB(i).Split(CChar(vbTab))(ii).Trim = "" Then + Me.cmb_태양열시스템의성능.SelectedIndex = 0 + Else + Me.cmb_태양열시스템의성능.Text = CB(i).Split(CChar(vbTab))(ii).Trim + End If + Case 15 '//열생산지정 + ' Me.TabControl10.SelectedIndex = 1 + Me.tb_무손실효율계수.Text = CB(i).Split(CChar(vbTab))(ii).Trim + Case 16 '//열생산지정 + Me.tb_1차손실계수.Text = CB(i).Split(CChar(vbTab))(ii).Trim + Case 17 '//열생산지정 + Me.tb_2차손실계수.Text = CB(i).Split(CChar(vbTab))(ii).Trim + Case 19 '//열생산지정 + Me.tb_축열탱크체적급.Text = CB(i).Split(CChar(vbTab))(ii).Trim + Case 20 '//열생산지정 + Me.tb_축열탱크체적난.Text = CB(i).Split(CChar(vbTab))(ii).Trim + Case 21 + 'If CB(i).Split(CChar(vbTab))(ii).Trim = "" Then Me.냉난방공조ComboBox.SelectedIndex = -1 + If CB(i).Split(CChar(vbTab))(ii).Trim = "" Then + Me.cmb_축열탱크설치장소.SelectedIndex = 0 + Else + Me.cmb_축열탱크설치장소.Text = CB(i).Split(CChar(vbTab))(ii).Trim + End If + Case 24 '//열생산지정 + Me.tb_모듈면적.Text = CB(i).Split(CChar(vbTab))(ii).Trim + Case 25 + If CB(i).Split(CChar(vbTab))(ii).Trim = "" Then + Me.cmb_모듈기울기.SelectedIndex = 0 + Else + Me.cmb_모듈기울기.Text = CB(i).Split(CChar(vbTab))(ii).Trim + End If + + Case 26 '//열생산지정 + If CB(i).Split(CChar(vbTab))(ii).Trim = "" Then + Me.cmb_모듈방위.SelectedIndex = 0 + Else + Me.cmb_모듈방위.Text = CB(i).Split(CChar(vbTab))(ii).Trim + End If + + Case 27 + If CB(i).Split(CChar(vbTab))(ii).Trim = "" Then + Me.cmb_모듈종류.SelectedIndex = 0 + Else + Me.cmb_모듈종류.Text = CB(i).Split(CChar(vbTab))(ii).Trim + End If + + Case 28 '//열생산지정 + If CB(i).Split(CChar(vbTab))(ii).Trim = "" Then + Me.cmb_모듈적용타입.SelectedIndex = 0 + Else + Me.cmb_모듈적용타입.Text = CB(i).Split(CChar(vbTab))(ii).Trim + End If + ' Me.cmb_모듈적용타입.Text = CB(i).Split(CChar(vbTab))(ii).Trim + Case 31 '//열생산지정 + Me.tb_지열펌프용량.Text = CB(i).Split(CChar(vbTab))(ii).Trim + Case 32 '//열생산지정 + Me.tb_열성능비.Text = CB(i).Split(CChar(vbTab))(ii).Trim + Case 33 '//열생산지정 + Me.tb_열성능비2.Text = CB(i).Split(CChar(vbTab))(ii).Trim + Case 34 '//열생산지정 + Me.tb_1차펌프용량.Text = CB(i).Split(CChar(vbTab))(ii).Trim + Case 35 '//열생산지정 + Me.tb_2차펌프용량.Text = CB(i).Split(CChar(vbTab))(ii).Trim + Case 36 + 'If CB(i).Split(CChar(vbTab))(ii).Trim = "" Then Me.냉난방공조ComboBox.SelectedIndex = -1 + If CB(i).Split(CChar(vbTab))(ii).Trim = "" Then + Me.cmb_열교환기설치여부.SelectedIndex = 0 + Else + Me.cmb_열교환기설치여부.Text = CB(i).Split(CChar(vbTab))(ii).Trim + End If + Case 37 + 'If CB(i).Split(CChar(vbTab))(ii).Trim = "" Then Me.냉난방공조ComboBox.SelectedIndex = -1 + If CB(i).Split(CChar(vbTab))(ii).Trim = "" Then + Me.cmb_지열팽창설치여부.SelectedIndex = 0 + Else + Me.cmb_지열팽창설치여부.Text = CB(i).Split(CChar(vbTab))(ii).Trim + End If + Case 38 '//열생산지정 + Me.tb_지열팽창탱크체적.Text = CB(i).Split(CChar(vbTab))(ii).Trim + Case 41 '//열생산지정 + Me.tb_열생산능력.Text = CB(i).Split(CChar(vbTab))(ii).Trim + Case 42 '//열생산지정 + Me.tb_열생산효율.Text = CB(i).Split(CChar(vbTab))(ii).Trim + Case 43 '//열생산지정 + Me.tb_발전효율.Text = CB(i).Split(CChar(vbTab))(ii).Trim + End Select + Next + Next + + Me.bs.EndEdit() + End If + End Sub + + Private Sub 기기종류ComboBox_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 기기종류ComboBox.SelectedIndexChanged + Validate_Control() + End Sub + + Private Sub Validate_Control() + If Not Init Then Return + Try + Select Case Me.기기종류ComboBox.Text + Case "태양열", "태양광" + Me.cmb_가동연료.SelectedIndex = 0 + Me.cmb_가동연료.Enabled = False + Case Else + Me.cmb_가동연료.Enabled = True + End Select + Catch ex As Exception + + End Try + + Try + Select Case Me.cmb_태양열시스템의성능.Text + Case "성능치" + Me.tb_무손실효율계수.Enabled = True + Me.tb_1차손실계수.Enabled = True + Me.tb_2차손실계수.Enabled = True + Case Else + Me.tb_무손실효율계수.Enabled = False + Me.tb_1차손실계수.Enabled = False + Me.tb_2차손실계수.Enabled = False + End Select + Catch ex As Exception + + End Try + + Try + If 기기종류ComboBox.Text = "태양열" Then + 태양열Panel.Enabled = True + 축열탱크Panel.Enabled = True + 열병합Panel.Enabled = False + 태양광Panel.Enabled = False + 지열Panel.Enabled = False + ElseIf 기기종류ComboBox.Text = "열병합" Then + 태양열Panel.Enabled = False + 축열탱크Panel.Enabled = False + 열병합Panel.Enabled = True + 태양광Panel.Enabled = False + 지열Panel.Enabled = False + ElseIf 기기종류ComboBox.Text = "태양광" Then + 태양열Panel.Enabled = False + 축열탱크Panel.Enabled = False + 열병합Panel.Enabled = False + 태양광Panel.Enabled = True + 지열Panel.Enabled = False + ElseIf 기기종류ComboBox.Text = "지열" Then + 태양열Panel.Enabled = False + 축열탱크Panel.Enabled = False + 열병합Panel.Enabled = False + 태양광Panel.Enabled = False + 지열Panel.Enabled = True + Else + 태양열Panel.Enabled = False + 축열탱크Panel.Enabled = False + 열병합Panel.Enabled = False + 태양광Panel.Enabled = False + 지열Panel.Enabled = False + End If + Catch ex As Exception + + End Try + + '//건기연 추가 (2010.04.07) + 'MsgBox(Me.cmb_가동연료.Text) + Try + Select Case Me.cmb_가동연료.Text + Case "전기" + Me.cmb_열교환기설치여부.Enabled = False + Case Else + Me.cmb_열교환기설치여부.Enabled = True + End Select + Catch ex As Exception + + End Try + + Try + + Select Case Me.cmb_모듈기울기.Text + Case "수평", "(없음)" + Me.cmb_모듈방위.Enabled = False + Case Else + Me.cmb_모듈방위.Enabled = True + End Select + + Catch ex As Exception + + End Try + + End Sub + + Private Sub ToolStripButton49_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) + If e.Button = Windows.Forms.MouseButtons.Right Then + If MsgBox("전체삭제를 하시겠습니까?", MsgBoxStyle.Information Or MsgBoxStyle.OkCancel, "확인") = MsgBoxResult.Ok Then + Dim dR() As DataRow = DSET.tbl_new.Select(Me.bs.Filter, "") + For i As Integer = dR.GetUpperBound(0) To 0 Step -1 + dR(i).Delete() + Next + DSET.tbl_new.AcceptChanges() + End If + End If + End Sub + + + Private Sub bt_Del_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles bt_Del.MouseDown + If e.Button = Windows.Forms.MouseButtons.Right Then + If MsgBox("전체삭제를 하시겠습니까?", MsgBoxStyle.Information Or MsgBoxStyle.OkCancel, "확인") = MsgBoxResult.Ok Then + Dim dR() As DataRow = DSET.tbl_new.Select(Me.bs.Filter, "") + For i As Integer = dR.GetUpperBound(0) To 0 Step -1 + dR(i).Delete() + Next + DSET.tbl_new.AcceptChanges() + End If + End If + End Sub + + + + Private Sub cmb_가동연료_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmb_가동연료.SelectedIndexChanged + If Me.cmb_가동연료.SelectedIndex <> -1 Then Me.Validate_Control() + End Sub + + Private Sub dv_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles dv.MouseUp + If Prj.UserAuthType = "ADMIN" OrElse Prj.UserAuthType = "BOTH" OrElse Prj.UserAuthType = "BOTH2" OrElse Prj.UserAuthType = "BOTH1" Then '//2011.03.08 추가 + If e.Button = Windows.Forms.MouseButtons.Right Then + Dim Frm_FilterA As New Frm_Filter + Frm_FilterA.ColumTitle = getColCaption(Me.Dt) + Frm_FilterA.ColumList = getColName(Me.Dt) + Frm_FilterA.Colorlist = "" + '//getfiled 며령으로 모든 필드명을 찾아서 + '//그것을 그 화면으로 보내는거에요 + '//그런데 여기서 어떤필드는 색을 달리하겟다라고할려면 해당 :::: 정보도 같이 넘겨줘야해요 + '//그부분 구현이 좀 매끄럽게 생각정리가안되네요 + + Frm_FilterA.Numfield = "" '//20100618 Color 리스트처럼 , 구분해서 필드들을 모두 넣으세요.(=, >= 등을 사용하기 위해서는 해당 항목을 추가 요망) + Frm_FilterA.Default_Filter = "code <> '0'" + If Frm_FilterA.ShowDialog <> Windows.Forms.DialogResult.OK Then Return '//창떳을떄 확인아ㅣ고 취소눌르면 다음을 수행하지않는다는거에요. + Dim Filter As String = Frm_FilterA.tb_filter.Text '//값은 아까 그 텍박에 잇구요. + Try + Me.bs.Filter = Filter + + '//바꾸기값이 있으면 변경 20100618 + If Frm_FilterA.cmb_fieldc.SelectedIndex >= 0 AndAlso Frm_FilterA.cmb_fieldc.Text.ToLower <> "code" AndAlso _ + Frm_FilterA.tb_valuec.Text <> "" Then + Dim Drow() As DataRow = Me.Dt.Select(Filter) + For Each Dr As DataRow In Drow + Dr(Frm_FilterA.cmb_fieldc.Text) = Frm_FilterA.tb_valuec.Text + Next + MsgBox("바꾸기 완료", MsgBoxStyle.Information, "확인") + End If + + Catch ex As Exception + Me.bs.Filter = "" + End Try + End If + End If + End Sub + + Private Sub dv_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles dv.KeyDown + '//여기보시면 alt+d 누르면 한줄을 경고없이(falsE)삭제하도록 햇어요.. 사실원래 밋alt +d 인데.. ㅎㅎ 잘못해서 ctrl 됫다는 + If Prj.UserAuthType = "ADMIN" OrElse Prj.UserAuthType = "BOTH" OrElse Prj.UserAuthType = "BOTH2" OrElse Prj.UserAuthType = "BOTH1" Then '//2011.03.08 추가 + Select Case e.KeyCode + Case Keys.D + If e.Alt Then + Dbbase.DelCrow(Me.bs, False) + End If + Case Keys.C + If e.Control Then + Me.SrcDrv = Me.bs.Current + If Me.SrcDrv Is Nothing Then + MsgBox("저장할 ROW가 없습니다", MsgBoxStyle.Information, "확인") + Return + End If + ' My.Computer.Clipboard.SetData("ZDATA", Drv) + End If + Case Keys.V + If e.Control Then + If SrcDrv Is Nothing Then Return + Me.bt_add.PerformClick() '//신규추가 + Dim NewDrv As DataRowView = Me.bs.Current + + For Each C As DataColumn In Me.Dt.Columns + If C.ColumnName.ToUpper = "CODE" Then + ElseIf C.ColumnName.ToUpper = "설명" Then + NewDrv(C.ColumnName) = SrcDrv(C.ColumnName) & "#1" + Else + NewDrv(C.ColumnName) = SrcDrv(C.ColumnName) + End If + Next + Me.bs.EndEdit() + bs.MoveLast() + End If + End Select + End If + 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 + Validate_Control() + End Sub + + Private Sub dv_CellContentClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles dv.CellContentClick + + End Sub + + Private Sub cmb_태양열시스템의성능_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmb_태양열시스템의성능.SelectedIndexChanged + Validate_Control() + End Sub +End Class \ No newline at end of file diff --git a/ArinWarev1/Forms/v20091231/Frm_v20091231_Report.Designer.vb b/ArinWarev1/Forms/v20091231/Frm_v20091231_Report.Designer.vb new file mode 100644 index 0000000..266ee9e --- /dev/null +++ b/ArinWarev1/Forms/v20091231/Frm_v20091231_Report.Designer.vb @@ -0,0 +1,113 @@ + _ +Partial Class Frm_v20091231_Report + Inherits CForm + + 'Form은 Dispose를 재정의하여 구성 요소 목록을 정리합니다. + _ + Protected Overrides Sub Dispose(ByVal disposing As Boolean) + Try + If disposing AndAlso components IsNot Nothing Then + components.Dispose() + End If + Finally + MyBase.Dispose(disposing) + End Try + End Sub + + 'Windows Form 디자이너에 필요합니다. + Private components As System.ComponentModel.IContainer + + '참고: 다음 프로시저는 Windows Form 디자이너에 필요합니다. + '수정하려면 Windows Form 디자이너를 사용하십시오. + '코드 편집기를 사용하여 수정하지 마십시오. + _ + Private Sub InitializeComponent() + Me.components = New System.ComponentModel.Container() + Dim ReportDataSource1 As Microsoft.Reporting.WinForms.ReportDataSource = New Microsoft.Reporting.WinForms.ReportDataSource() + Dim ReportDataSource2 As Microsoft.Reporting.WinForms.ReportDataSource = New Microsoft.Reporting.WinForms.ReportDataSource() + Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(Frm_v20091231_Report)) + Me.Graph_ReqBindingSource = New System.Windows.Forms.BindingSource(Me.components) + Me.DSR = New Eco2Ar.DSR() + Me.Graph_ReqUseBindingSource = New System.Windows.Forms.BindingSource(Me.components) + Me.StatusStrip1 = New System.Windows.Forms.StatusStrip() + Me.lb_msg = New System.Windows.Forms.ToolStripStatusLabel() + Me.ReportViewer1 = New Microsoft.Reporting.WinForms.ReportViewer() + CType(Me.Graph_ReqBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.DSR, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.Graph_ReqUseBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() + Me.StatusStrip1.SuspendLayout() + Me.SuspendLayout() + ' + 'Graph_ReqBindingSource + ' + Me.Graph_ReqBindingSource.DataMember = "Graph_Req" + Me.Graph_ReqBindingSource.DataSource = Me.DSR + ' + 'DSR + ' + Me.DSR.DataSetName = "DSR" + Me.DSR.SchemaSerializationMode = System.Data.SchemaSerializationMode.IncludeSchema + ' + 'Graph_ReqUseBindingSource + ' + Me.Graph_ReqUseBindingSource.DataMember = "Graph_ReqUse" + Me.Graph_ReqUseBindingSource.DataSource = Me.DSR + ' + 'StatusStrip1 + ' + Me.StatusStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.lb_msg}) + Me.StatusStrip1.Location = New System.Drawing.Point(0, 494) + Me.StatusStrip1.Name = "StatusStrip1" + Me.StatusStrip1.Size = New System.Drawing.Size(784, 22) + Me.StatusStrip1.TabIndex = 15 + Me.StatusStrip1.Text = "StatusStrip1" + ' + 'lb_msg + ' + Me.lb_msg.Name = "lb_msg" + Me.lb_msg.Size = New System.Drawing.Size(59, 17) + Me.lb_msg.Text = "<메세지>" + ' + 'ReportViewer1 + ' + Me.ReportViewer1.Dock = System.Windows.Forms.DockStyle.Fill + ReportDataSource1.Name = "DSR_Graph_Req" + ReportDataSource1.Value = Me.Graph_ReqBindingSource + ReportDataSource2.Name = "DSR_Graph_ReqUse" + ReportDataSource2.Value = Me.Graph_ReqUseBindingSource + Me.ReportViewer1.LocalReport.DataSources.Add(ReportDataSource1) + Me.ReportViewer1.LocalReport.DataSources.Add(ReportDataSource2) + Me.ReportViewer1.LocalReport.ReportEmbeddedResource = "Eco2Ar.Report_result.rdlc" + Me.ReportViewer1.Location = New System.Drawing.Point(0, 0) + Me.ReportViewer1.Name = "ReportViewer1" + Me.ReportViewer1.Size = New System.Drawing.Size(784, 494) + Me.ReportViewer1.TabIndex = 16 + ' + 'Frm_v20091231_Report + ' + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.None + Me.ClientSize = New System.Drawing.Size(784, 516) + Me.ControlBox = False + Me.Controls.Add(Me.ReportViewer1) + Me.Controls.Add(Me.StatusStrip1) + Me.Font = New System.Drawing.Font("나눔고딕", 8.999999!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon) + Me.Name = "Frm_v20091231_Report" + Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen + Me.Text = "결과그래프" + CType(Me.Graph_ReqBindingSource, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.DSR, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.Graph_ReqUseBindingSource, System.ComponentModel.ISupportInitialize).EndInit() + Me.StatusStrip1.ResumeLayout(False) + Me.StatusStrip1.PerformLayout() + Me.ResumeLayout(False) + Me.PerformLayout() + + End Sub + Friend WithEvents StatusStrip1 As System.Windows.Forms.StatusStrip + Friend WithEvents lb_msg As System.Windows.Forms.ToolStripStatusLabel + Friend WithEvents ReportViewer1 As Microsoft.Reporting.WinForms.ReportViewer + Friend WithEvents Graph_ReqBindingSource As System.Windows.Forms.BindingSource + Friend WithEvents DSR As Eco2Ar.DSR + Friend WithEvents Graph_ReqUseBindingSource As System.Windows.Forms.BindingSource +End Class diff --git a/ArinWarev1/Forms/v20091231/Frm_v20091231_Report.resx b/ArinWarev1/Forms/v20091231/Frm_v20091231_Report.resx new file mode 100644 index 0000000..ae68503 --- /dev/null +++ b/ArinWarev1/Forms/v20091231/Frm_v20091231_Report.resx @@ -0,0 +1,1577 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + 210, 17 + + + 135, 17 + + + 403, 17 + + + 17, 17 + + + + + AAABAAYAICAAAAEACACoCAAAZgAAABAQAAABAAgAaAUAAA4JAACAgAAAAQAgACgIAQB2DgAAMDAAAAEA + IACoJQAAnhYBACAgAAABACAAqBAAAEY8AQAQEAAAAQAgAGgEAADuTAEAKAAAACAAAABAAAAAAQAIAAAA + AAAAAAAAAAAAAAAAAAAAAQAAAAAAAP///wDM//8Amf//AGb//wAz//8AAP//AP/M/wDMzP8Amcz/AGbM + /wAzzP8AAMz/AP+Z/wDMmf8AmZn/AGaZ/wAzmf8AAJn/AP9m/wDMZv8AmWb/AGZm/wAzZv8AAGb/AP8z + /wDMM/8AmTP/AGYz/wAzM/8AADP/AP8A/wDMAP8AmQD/AGYA/wAzAP8AAAD/AP//zADM/8wAmf/MAGb/ + zAAz/8wAAP/MAP/MzADMzMwAmczMAGbMzAAzzMwAAMzMAP+ZzADMmcwAmZnMAGaZzAAzmcwAAJnMAP9m + zADMZswAmWbMAGZmzAAzZswAAGbMAP8zzADMM8wAmTPMAGYzzAAzM8wAADPMAP8AzADMAMwAmQDMAGYA + zAAzAMwAAADMAP//mQDM/5kAmf+ZAGb/mQAz/5kAAP+ZAP/MmQDMzJkAmcyZAGbMmQAzzJkAAMyZAP+Z + mQDMmZkAmZmZAGaZmQAzmZkAAJmZAP9mmQDMZpkAmWaZAGZmmQAzZpkAAGaZAP8zmQDMM5kAmTOZAGYz + mQAzM5kAADOZAP8AmQDMAJkAmQCZAGYAmQAzAJkAAACZAP//ZgDM/2YAmf9mAGb/ZgAz/2YAAP9mAP/M + ZgDMzGYAmcxmAGbMZgAzzGYAAMxmAP+ZZgDMmWYAmZlmAGaZZgAzmWYAAJlmAP9mZgDMZmYAmWZmAGZm + ZgAzZmYAAGZmAP8zZgDMM2YAmTNmAGYzZgAzM2YAADNmAP8AZgDMAGYAmQBmAGYAZgAzAGYAAABmAP// + MwDM/zMAmf8zAGb/MwAz/zMAAP8zAP/MMwDMzDMAmcwzAGbMMwAzzDMAAMwzAP+ZMwDMmTMAmZkzAGaZ + MwAzmTMAAJkzAP9mMwDMZjMAmWYzAGZmMwAzZjMAAGYzAP8zMwDMMzMAmTMzAGYzMwAzMzMAADMzAP8A + MwDMADMAmQAzAGYAMwAzADMAAAAzAP//AADM/wAAmf8AAGb/AAAz/wAAAP8AAP/MAADMzAAAmcwAAGbM + AAAzzAAAAMwAAP+ZAADMmQAAmZkAAGaZAAAzmQAAAJkAAP9mAADMZgAAmWYAAGZmAAAzZgAAAGYAAP8z + AADMMwAAmTMAAGYzAAAzMwAAADMAAP8AAADMAAAAmQAAAGYAAAAzAAAAAADuAAAA3QAAALsAAACqAAAA + iAAAAHcAAABVAAAARAAAACIAAAARAADuAAAA3QAAALsAAACqAAAAiAAAAHcAAABVAAAARAAAACIAAAAR + AADuAAAA3QAAALsAAACqAAAAiAAAAHcAAABVAAAARAAAACIAAAARAAAA7u7uAN3d3QC7u7sAqqqqAIiI + iAB3d3cAVVVVAERERAAiIiIAERERAAAAAAD///////////////////////////////////////////// + //////////////////7+/v/////////////////////////////////+/PgrK/YrK/j8/f////////// + ///////////////++vYA9ff4+Pj39gD2+f3/////////////////////+/b1+KurpKqrq6ysq/j19vv/ + //////////////////n196ukf6usrKysrKysrKsr9fn////////////////5AFakf6qsrKysrKysrKys + rKxWAPn/////////////+/VWf3+rrKysrKysrKysrKysrKxW9fv///////////72K6R/pP3+9PT09PT+ + /f2srKysrKz39v7/////////VvWkf6T9/YJYWFh8pqb9/vT9rKysrKv1Vv////////72VqOrgjQLCwsL + L1JSUlJ8pv30/aysrFb2/v//////+gCr+zQLCwsLCwspdnZ2dlJSUqb9/qysqwD7///////3K6svCwsL + CwsLCyl2dnZ2dnZSUnas/v2s9vj//////vb5WAsFCwsLCwsLBXZ2dnZ2dnZ2UlL8/qz3K//////+APsv + CwsLCwsLCwsFdnZ2dnZ2dnZ2Unys/Vb2//////0ArAsLCwsLCwsLCwtTdnZ2dnZ2dnz7q6v9+fX///// + /gCmKCgLCwsLCwsLC1N2dnZ2dnz7q6ulpaz69f//////9VFMKCgoLwsLCwsLL3Z2fPurq6urq6Wlq1b2 + //////71UVJ2UkwoKCgLCwspdvurq6urq6urpaWr9yv///////VRUnZ2dlJSKCgoLy92dnz7q6urq6ul + pav2+P//////9iZ2UnZ2dnZ2UigoUnZ2dnZ2fKWrq6Wr/AD8///////49XZ2UnZ2dnZ2dlJ2dnZ2dnZ2 + dnylpfz39v/////////1JnZ2dnZ2UykFU3Z2dnZ2dnZ2dnag+ACB//////////oAJlJSLwUFBQtSdnZ2 + dnZ2dnZ2TFEA+v////////////kACwUFCwsLC1JSdnZ2dnZSUlJ2JSv//////////////gALCwsLCwsL + dlJMTFJSUlJ2dnb1+P//////////////9vUJCwsLCwtTdnZ2UihSdnZ2dgD8////////////////+PX1 + CQsLCy92dnZ2dlJMTFJR9f7///////////////////f1AAECCXZ2dnZ2dnZ2Uib2//////////////// + //////+B9/b1JnZ2dnZ2dnYlAPj///////////////////////////kAAAAAAAAAAPaB//////////// + //////////////////r5+fr5+vv//////////////+AD//+AAP//AAB//gAAP/wAAB/4AAAP8AAAB/AA + AAfgAAAD4AAAA8AAAAHAAAABwAAAAYAAAAGAAAABgAAAAYAAAAGAAAABgAAAAYAAAAHAAAABwAAAA8AA + AAPgAAAH8AAAD/AAAA/4AAAP+AAAD/4AAB//gAAf/+AAP//8AH8oAAAAEAAAACAAAAABAAgAAAAAAAAA + AAAAAAAAAAAAAAABAAAAAAAA////AMz//wCZ//8AZv//ADP//wAA//8A/8z/AMzM/wCZzP8AZsz/ADPM + /wAAzP8A/5n/AMyZ/wCZmf8AZpn/ADOZ/wAAmf8A/2b/AMxm/wCZZv8AZmb/ADNm/wAAZv8A/zP/AMwz + /wCZM/8AZjP/ADMz/wAAM/8A/wD/AMwA/wCZAP8AZgD/ADMA/wAAAP8A///MAMz/zACZ/8wAZv/MADP/ + zAAA/8wA/8zMAMzMzACZzMwAZszMADPMzAAAzMwA/5nMAMyZzACZmcwAZpnMADOZzAAAmcwA/2bMAMxm + zACZZswAZmbMADNmzAAAZswA/zPMAMwzzACZM8wAZjPMADMzzAAAM8wA/wDMAMwAzACZAMwAZgDMADMA + zAAAAMwA//+ZAMz/mQCZ/5kAZv+ZADP/mQAA/5kA/8yZAMzMmQCZzJkAZsyZADPMmQAAzJkA/5mZAMyZ + mQCZmZkAZpmZADOZmQAAmZkA/2aZAMxmmQCZZpkAZmaZADNmmQAAZpkA/zOZAMwzmQCZM5kAZjOZADMz + mQAAM5kA/wCZAMwAmQCZAJkAZgCZADMAmQAAAJkA//9mAMz/ZgCZ/2YAZv9mADP/ZgAA/2YA/8xmAMzM + ZgCZzGYAZsxmADPMZgAAzGYA/5lmAMyZZgCZmWYAZplmADOZZgAAmWYA/2ZmAMxmZgCZZmYAZmZmADNm + ZgAAZmYA/zNmAMwzZgCZM2YAZjNmADMzZgAAM2YA/wBmAMwAZgCZAGYAZgBmADMAZgAAAGYA//8zAMz/ + MwCZ/zMAZv8zADP/MwAA/zMA/8wzAMzMMwCZzDMAZswzADPMMwAAzDMA/5kzAMyZMwCZmTMAZpkzADOZ + MwAAmTMA/2YzAMxmMwCZZjMAZmYzADNmMwAAZjMA/zMzAMwzMwCZMzMAZjMzADMzMwAAMzMA/wAzAMwA + MwCZADMAZgAzADMAMwAAADMA//8AAMz/AACZ/wAAZv8AADP/AAAA/wAA/8wAAMzMAACZzAAAZswAADPM + AAAAzAAA/5kAAMyZAACZmQAAZpkAADOZAAAAmQAA/2YAAMxmAACZZgAAZmYAADNmAAAAZgAA/zMAAMwz + AACZMwAAZjMAADMzAAAAMwAA/wAAAMwAAACZAAAAZgAAADMAAAAAAO4AAADdAAAAuwAAAKoAAACIAAAA + dwAAAFUAAABEAAAAIgAAABEAAO4AAADdAAAAuwAAAKoAAACIAAAAdwAAAFUAAABEAAAAIgAAABEAAO4A + AADdAAAAuwAAAKoAAACIAAAAdwAAAFUAAABEAAAAIgAAABEAAADu7u4A3d3dALu7uwCqqqoAiIiIAHd3 + dwBVVVUAREREACIiIgAREREAAAAAAP////////v6+vr9////////////Vvb19isrACv8////////9/ZV + q6ysrKxW9fz/////VvZ5q/7+/f2srFb2/v////VVV1g1UlJ8/f2s9/f///r1LgsLC1N2dlJ8/YH2//8r + LAsLCwsvdnZ2dlKs9f//KywLCwsLL3Z2dnyl/AD//ysmTCgLCy92gqurpYH2///3JlJ2UigvdnaCpaX5 + K///gfVRdnZTUnZ2dnZ79lb////3ASkFC1J2dnZSJvf//////wADCwtSUkxSdvX5//////+B9gACUnZ2 + UkwA/v////////+s9/X29vb19/////////////+B+vr6///////gA/LOwAHgA8ABwAGAAMABgACAAAAA + gAAAAAAAAAAAAAAAAAAAAAAAAAAAAIABAADAAYABwAHAAeADwAH4A+ADKAAAAIAAAAAAAQAAAQAgAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAQAAAAEAAAABAAAAAgAAAAIAAAACAAAAAgAA + AAEAAAABAAAAAQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAEAAAABAAAAAgAAAAMAAAAFAAAABwAA + AAgAAAAKAAAACwAAAA0AAAAPAAAAEAAAABAAAAAPAAAADgAAAAwAAAALAAAACQAAAAcAAAAGAAAABAAA + AAMAAAACAAAAAQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABAAAAAgAA + AAMAAAAGAAAACQAAAA0AAAARAAAAFgAAABwAAAAgAAAAJQAAACkAAAAtAAAAMQAAADUAAAA3AAAANwAA + ADYAAAAzAAAALwAAACsAAAAnAAAAIwAAAB4AAAAZAAAAFAAAAA8AAAAKAAAABwAAAAQAAAACAAAAAQAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAEAAAACAAAABQAAAAkAAAAPAAAAFgAAAB4AAAAnAAAAMAAAADkAAABDAAAASwAA + AFIAAABZAAAAXgAAAGIAAABnAAAAawAAAG0AAABuAAAAbAAAAGkAAABlAAAAYAAAAFwAAABWAAAATwAA + AEYAAAA9AAAANAAAACoAAAAhAAAAFwAAABAAAAAJAAAABQAAAAIAAAABAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAIAAAAFAAAACgAAABEAAAAaAAAAJgAA + ADMAAABAAAAATgAAAFoAAABlAAAAb09PT410c3Oin5+evKqqqcbLysnfysnI38nIx+Dc29rw7ezr/+3s + 6//t7Ov/09LR6MrJyODKycnfy8rJ3p6enb6hoJ+7Y2JimDo5OYIAAABpAAAAXgAAAFEAAABDAAAANAAA + ACcAAAAaAAAAEQAAAAoAAAAFAAAAAgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAQAA + AAMAAAAHAAAADgAAABgAAAAmAAAANgAAAEcAAABYAAAAZzk5OIOEg4Ortra1ztPS0uft7Ov/7ezr/+3s + 6//t7Ov/7ezr/+3s6//t7Ov/7ezr/+3s6//t7Ov/7ezr/+3s6//t7Ov/7ezr/+3s6//t7Ov/7ezr/+3s + 6//t7Ov/7ezr/+Xk4/fBwL/XoKCfu1BPT40AAABpAAAAWQAAAEcAAAA2AAAAJgAAABgAAAANAAAABgAA + AAIAAAABAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAQAAAAMAAAAIAAAAEQAAAB4AAAAvAAAAQwAAAFcAAABpTk5Oj6ur + qsXT0tHn7ezr/+3s6//t7Ov/7ezr/+3s6//t7Ov/7ezr/+3s6//t7Ov/7ezr/+3s6//t7Ov/7ezr/+3s + 6//t7Ov/7ezr/+3s6//t7Ov/7ezr/+3s6//t7Ov/7ezr/+3s6//t7Ov/7ezr/+3s6//t7Ov/7ezr/+Xk + 4/e3trbNdnZ1nwAAAGkAAABXAAAAQgAAAC4AAAAcAAAAEAAAAAgAAAADAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAQAAAAMAAAAIAAAAEQAA + ACAAAAA0AAAASwAAAGE5ODiEn56dvdzb2u/t7Ov/7ezr/+3s6//t7Ov/7ezr/+3s6//t7Ov/7ezr/+3s + 6//t7Ov/7ezr/+3s6//t7Ov/7ezr/+3s6//t7Ov/7ezr/+3s6//t7Ov/7ezr/+3s6//t7Ov/7ezr/+3s + 6//t7Ov/7ezr/+3s6//t7Ov/7ezr/+3s6//t7Ov/7ezr/+3s6//t7Ov/5eTj97i3tsxRUVCLAAAAXwAA + AEgAAAAyAAAAHwAAABAAAAAHAAAAAgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAIAAAAHAAAAEAAAACAAAAA0AAAATAAAAGVjY2KYwMDA1+3s6//t7Ov/7ezr/+3s + 6//t7Ov/7ezr/+3s6//t7Ov/7ezr/+3s6//t7Ov/2NLR/8O4uP+ZhYX/mYWF/29SUv9vUlL/b1JS/08r + K/9FHx//RR8f/0UfH/9aODj/b1JS/29SUv95X17/mYWF/6OSkf/DuLj/7ezr/+3s6//t7Ov/7ezr/+3s + 6//t7Ov/7ezr/+3s6//t7Ov/7ezr/+3s6//LysneiIeHpgAAAGQAAABKAAAAMQAAABwAAAAOAAAABQAA + AAEAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAEAAAAEAAAADQAAABwAAAAyAAAASwAA + AGWHhoao3t3c7u7t7P/t7Oz/7ezs/+3s6//t7Ov/7ezr/+3s6//t7Ov/7ezr/8O4uP+ZhYX/b1JS/08r + K/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0Uf + H/9FHx//RR8f/0UfH/9FHx//ZEVF/4Rra/+un57/4t/e/+3s6//t7Ov/7ezr/+3s6//t7Ov/7ezr/+3s + 6//t7Ov/3dzb7oeHhqYAAABhAAAARQAAACwAAAAYAAAACgAAAAMAAAABAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAACAAAACAAAABUAAAApAAAARQAAAGFjY2OX3t3c7u7t7P/u7ez/7u3s/+7t7P/t7Oz/7ezs/+3s + 7P/i397/rp+e/3lfXv9PKyv/RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0Uf + H/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0Uf + H/9FHx//ZEVF/6OSkf/i397/7ezr/+3s6//t7Ov/7ezr/+3s6//t7Ov/7ezr/97d3O5mZmWTAAAAWgAA + AD4AAAAjAAAAEQAAAAYAAAABAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABAAAABAAAAA0AAAAeAAAAOAAAAFY6OTmCzMvL3u7t + 7P/u7ez/7u3s/+7t7P/u7ez/7u3s/+7t7P/Dubj/hGxr/08rK/9FHx//RR8f/0UfH/9FHx//RR8f/0Uf + H/9FHx//RR8f/1YpJv9oNC3/i0k8/5NOQP+uXkv/rl5L/6VYR/+lWEf/pVhH/4tJPP+CQzj/aDQt/18u + Kv9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/95X17/w7i4/+3s + 6//t7Ov/7ezr/+3s6//t7Ov/7ezr/+3s6//NzMvcPDw8fAAAAE4AAAAwAAAAGAAAAAoAAAADAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAQAA + AAYAAAASAAAAKAAAAEYAAABloqGgu+7t7P/u7ez/7u3s/+7t7P/u7ez/7u3s/+7t7P+un5//ZEVF/0Uf + H/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9oNC3/i0k8/65eS//Rc1r/0XNa/9FzWv+uXkv/i0k8/2g0 + Lf9NJCL/RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0Uf + H/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//Wjg4/66fnv/t7Ov/7ezr/+3s6//t7Ov/7ezr/+3s + 6//l5OP2lpaVrwAAAF0AAAA9AAAAIQAAAA4AAAAEAAAAAQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAIAAAAJAAAAGAAAADIAAABSUlJSidXV1Obu7ez/7u3s/+7t + 7P/u7ez/7u3s/+7t7P+un5//Wjg4/0UfH/9FHx//RR8f/0UfH/9FHx//TSQi/3k+Nf+lWEf/0XNa/9Fz + Wv/Rc1r/yG1W/5xTQ/9wOTH/RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0Uf + H/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0Uf + H/9FHx//RR8f/1o4OP+un57/7ezr/+3s6//t7Ov/7ezr/+3s6//t7Ov/zczL3D49PXkAAABIAAAAKQAA + ABIAAAAGAAAAAQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAADAAAACwAA + AB0AAAA6AAAAXZaVlbDu7ez/7u3s/+7t7P/u7ez/7u3s/+7t7P/Dubj/ZEVF/0UfH/9FHx//RR8f/0Uf + H/9FHx//cDkx/6VYR//Rc1r/0XNa/9FzWv/Rc1r/rl5L/3k+Nf9FHx//RR8f/0UfH/9FHx//RR8f/0Uf + H/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0Uf + H/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9kRUX/w7i4/+3s + 6//t7Ov/7ezr/+3s6//t7Ov/5eTj9np5eZoAAABSAAAAMAAAABYAAAAHAAAAAQAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAwAAAAwAAAAhAAAAQSIiIm25uLfM7u3s/+7t7P/u7ez/7u3s/+7t + 7P/j4N//eV9f/0UfH/9FHx//RR8f/0UfH/9NJCL/gkM4/79oUv/Rc1r/0XNa/9FzWv/Rc1r/nFND/1Yp + Jv9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0Uf + H/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0Uf + H/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//jnh4/+Lf3v/t7Ov/7ezr/+3s6//t7Ov/7ezr/7Gw + r8AAAABZAAAANgAAABkAAAAIAAAAAgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAQAAAAOAAAAJAAA + AEYhICBy1tXV5e7t7P/u7ez/7u3s/+7t7P/u7ez/uayr/08rK/9FHx//RR8f/0UfH/9NJCL/i0k8/8ht + Vv/Rc1r/0XNa/9FzWv/Rc1r/nFND/1YpJv9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0Uf + H/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0Uf + H/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0Uf + H/9FHx//Tysr/8O4uP/t7Ov/7ezr/+3s6//t7Ov/7ezr/87NzNskJCRnAAAAOQAAABoAAAAJAAAAAgAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAADAAAADwAAACcAAABKVFRUhubl5fbu7e3/7u3s/+7t7P/u7ez/4+Df/3lf + X/9FHx//RR8f/0UfH/9FHx//i0k8/8htVv/Rc1r/0XNa/9FzWv/Rc1r/pVhH/1YpJv9FHx//RR8f/0Uf + H/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0Uf + H/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0Uf + H/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/454eP/t7Ov/7ezr/+3s + 6//t7Ov/7ezr/9bV1eQjIyNpAAAAOgAAABoAAAAJAAAAAgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAwAAAA0AAAAmAAAAS1JS + Uonm5eX27u3t/+7t7f/u7e3/7u3t/87Gxv9kRUX/RR8f/0UfH/9FHx//cDkx/79oUv/Rc1r/0XNa/9Fz + Wv/Rc1r/v2hS/2g0Lf9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0Uf + H/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0Uf + H/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0Uf + H/9FHx//RR8f/0UfH/9FHx//RR8f/2RFRf/i397/7ezr/+3s6//t7Ov/7ezr/97e3e1cW1t7AAAAOgAA + ABoAAAAJAAAAAQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAIAAAAMAAAAIwAAAEhTU1OI5+bl9u7t7f/u7e3/7u3t/+7t7f+5rKz/Tysr/0Uf + H/9FHx//TSQi/6VYR//Rc1r/0XNa/9FzWv/Rc1r/0XNa/4tJPP9NJCL/RR8f/0UfH/9FHx//RR8f/0Uf + H/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0Uf + H/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0Uf + H/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/08r + K//NxcT/7ezr/+3s6//t7Ov/7ezr/+bl5PVcW1t6AAAAOgAAABoAAAAIAAAAAQAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACAAAACgAAAB8AAABDVlVVhOfm + 5fbv7u3/7+7t/+7t7f/u7e3/rp+f/0UfH/9FHx//RR8f/3A5Mf/IbVb/0XNa/9FzWv/Rc1r/0XNa/79o + Uv9fLir/RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0Uf + H/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0Uf + H/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0Uf + H/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/08rK/+un57/7ezr/+3s6//t7Ov/7ezr/+bl + 5PVCQkFxAAAAOAAAABgAAAAGAAAAAQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAQAAAAcAAAAbAAAAPj8+Pnjn5uX27+7t/+/u7f/v7u3/7+7t/6+gn/9FHx//RR8f/0Uf + H/+cU0P/0XNa/9FzWv/Rc1r/0XNa/9FzWv+2Y07/TSQi/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0Uf + H/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0Uf + H/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0Uf + H/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0Uf + H/9FHx//RR8f/0UfH/+un57/7ezr/+3s6//t7Ov/7ezr/9fW1eQlJSVlAAAAMgAAABMAAAAFAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAFAAAAFQAAADYjIyNq19fW5e/u + 7f/v7u3/7+7t/+/u7f+voJ//RR8f/0UfH/9NJCL/tmNO/9FzWv/Rc1r/0XNa/9FzWv/Rc1r/tmNO/00k + Iv9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0Uf + H/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0Uf + H/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0Uf + H/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/+un57/7ezr/+3s + 6//t7Ov/7ezr/9jX1uMoKCddAAAAKwAAAA8AAAADAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAwAAABAAAAAtAAAAWNDPztvv7u3/7+7t/+/u7f/v7u3/r6Cf/0UfH/9FHx//Xy4q/79o + Uv/Rc1r/0XNa/9FzWv/Rc1r/0XNa/79oUv9NJCL/RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0Uf + H/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0Uf + H/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0Uf + H/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0Uf + H/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/+un57/7ezr/+3s6//t7Ov/7ezr/769vMYAAABLAAAAIwAA + AAsAAAACAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAEAAAAKAAAAIwAAAEynpqa27+7t/+/u + 7f/v7u3/7+7t/6+gn/9FHx//RR8f/18uKv/IbVb/0XNa/9FzWv/Rc1r/0XNa/9FzWv/Rc1r/Xy4q/0Uf + H/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0Uf + H/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0Uf + H/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0Uf + H/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0Uf + H//DuLj/7ezr/+3s6//t7Ov/7ezr/56dnKcAAABBAAAAGwAAAAcAAAABAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAABAAAABgAAABkAAAA/bGtrjO/u7f/v7u3/7+7t/+/u7f/Px8b/Tysr/0UfH/9fLir/yG1W/9Fz + Wv/Rc1r/0XNa/9FzWv/Rc1r/0XNa/4JDOP9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0Uf + H/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0Uf + H/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0Uf + H/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0Uf + H/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/08rK//NxcT/7ezr/+3s6//t7Ov/7ezr/1xb + W3sAAAA0AAAAEwAAAAQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAMAAAARAAAAMCUkJGbo5+b27+7t/+/u + 7f/v7u3/5OHg/08rK/9FHx//TSQi/7ZjTv/Rc1r/0XNa/9FzWv/Rc1r/0XNa/9FzWv+uXkv/RR8f/0Uf + H/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0Uf + H/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0Uf + H/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0Uf + H/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0Uf + H/9FHx//RR8f/2RFRf/i397/7ezr/+3s6//t7Ov/397e7CkoKFsAAAAnAAAADAAAAAIAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAABAAAACgAAACMAAABOyMfH0O/u7f/v7u3/7+7t/+/u7f9vUlL/RR8f/0UfH/+2Y07/0XNa/9Fz + Wv/Rc1r/0XNa/9FzWv/Rc1r/0XNa/18uKv9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0Uf + H/8zFxf/LxUV/yIPD/8iDw//EQcH/xEHB/8RBwf/EQcH/xEHB/8RBwf/EQcH/xEHB/8RBwf/EQcH/xEH + B/8ZCwv/Ig8P/yIPD/8zFxf/OBkZ/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0Uf + H/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0Uf + H/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/3lfXv/t7Ov/7ezr/+3s + 6//t7Ov/trW0ugAAAEIAAAAaAAAABgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAUAAAAWAAAAPICAgJTv7u7/7+7u/+/u + 7v/v7u3/moaG/0UfH/9FHx//k05A/9FzWv/Rc1r/0XNa/9FzWv/Rc1r/0XNa/9FzWv+cU0P/RR8f/0Uf + H/9FHx//RR8f/0UfH/8zFxf/Ig8P/xUJCf8IAwP/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAA + AP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wwF + Bf8VCQn/Ig8P/zMXF/9AHR3/RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0Uf + H/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0Uf + H/9FHx//RR8f/0UfH/9FHx//RR8f/6OSkf/t7Ov/7ezr/+3s6//t7Ov/c3NyggAAADEAAAAQAAAAAwAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAACAAAADAAAAConJydg4ODg7e/u7v/v7u7/7+7u/8/Hx/9FHx//RR8f/3A5Mf/Rc1r/0XNa/9Fz + Wv/Rc1r/0XNa/9FzWv/Rc1r/0XNa/1YpJv9FHx//PBsb/yYREf8VCQn/AAAA/wAAAP8AAAD/AAAA/wAA + AP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAA + AP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8MBQX/Hg0N/y8V + Ff9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0Uf + H/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//Tysr/9jS + 0f/t7Ov/7ezr/+3s6//g397rAAAASwAAACAAAAAIAAAAAQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAYAAAAaAAAAQ6qpqbLv7u7/7+7u/+/u + 7v/v7u7/ZEVF/0UfH/9NJCL/yG1W/9FzWv/Rc1r/0XNa/9FzWv/Rc1r/0XNa/9FzWv+gVkX/KxMT/wwF + Bf8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/FxMO/xcTDv8jHBX/LyYd/y8m + Hf8vJh3/LyYd/y8mHf8vJh3/LyYd/y8mHf8vJh3/HRcS/xcTDv8XEw7/AAAA/wAAAP8AAAD/AAAA/wAA + AP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8VCQn/KxMT/0AdHf9FHx//RR8f/0Uf + H/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0Uf + H/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//b1JS/+3s6//t7Ov/7ezr/+3s6/+urq2sAAAANwAA + ABMAAAAEAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAACAAAADgAAAC5ERERu6Ofn9u/u7v/v7u7/7+7u/6STk/9FHx//RR8f/6VYR//Rc1r/0XNa/9Fz + Wv/Rc1r/0XNa/9FzWv/OcFf/rltD/yUTDv8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8XEw7/KSEZ/zov + JP9GOSv/Xkw6/15MOv9eTDr/Xkw6/15MOv9eTDr/Xkw6/15MOv9eTDr/Xkw6/15MOv9eTDr/Xkw6/15M + Ov9eTDr/Xkw6/15MOv9eTDr/Xkw6/0Y5K/9ANCf/LyYd/x0XEv8LCQf/AAAA/wAAAP8AAAD/AAAA/wAA + AP8AAAD/AAAA/wAAAP8AAAD/AAAA/xUJCf8vFRX/RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0Uf + H/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0Uf + H/9FHx//rp+e/+3s6//t7Ov/7ezr/+bl5PUpKSlaAAAAJAAAAAkAAAABAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAYAAAAbAAAARsC/v8bv7u7/7+7u/+/u + 7v/k4eH/Tysr/0UfH/9wOTH/0XNa/9FzWv/Rc1r/0XNa/9FzWv/OcFf/olU//zweFP8AAAD/AAAA/wAA + AP8AAAD/EQ4K/y8mHf9GOSv/Xkw6/15MOv9eTDr/Xkw6/15MOv9eTDr/Xkw6/1hURv9GbWv/Rm1r/zSG + kP8vj5z/L4+c/y+PnP8vj5z/L4+c/ymnqP8iw5H/QI5T/0COU/9PbUb/T21G/09tRv9eTDr/Xkw6/15M + Ov9eTDr/Xkw6/15MOv9YRzb/Rjkr/y8mHf8XEw7/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAA + AP8IAwP/Ig8P/zwbG/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0Uf + H/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9PKyv/4t/e/+3s6//t7Ov/7ezr/62s + q64AAAA5AAAAEwAAAAMAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAACAAAADQAAAC1ERENv7+7u/+/u7v/v7u7/7+7u/495ef9FHx//TSQi/79oUv/Rc1r/0XNa/9Fz + Wv/PcVj/rltD/0gkGf8AAAD/AAAA/wAAAP8RDgr/NCog/1JCMv9eTDr/Xkw6/15MOv9eTDr/Xkw6/0xl + Xv80hpD/I5+1/xewzf8A0v//ANL//wDS//8A0v//ANL//wDS//8A0v//ANL//wDS//8A0v//Cera/yLQ + bf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8lx2n/Ma9g/zieWf9DhVD/T21G/15MOv9eTDr/Xkw6/15M + Ov9YRzb/QDQn/yMcFf8LCQf/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/xkLC/88Gxv/RR8f/0Uf + H/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0Uf + H/9FHx//RR8f/0UfH/+ZhYX/7ezr/+3s6//t7Ov/5uXk9SoqKlgAAAAhAAAACAAAAAEAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAUAAAAZAAAAQsHAwMXw7+7/8O/u/+/u + 7v/Z1NT/RR8f/0UfH/+LSTz/0XNa/9FzWv/Rc1r/yWpP/203J/8MBgT/AAAA/wUEA/8jHBX/UkIy/15M + Ov9eTDr/Xkw6/15MOv9SXFL/On6D/x2owf8FyfL/ANL//wDS//8A0v//ANL//wDS//8A0v//ANL//wDS + //8A0v//ANL//wDS//8A0v//ANL//wDW//8R5bv/I9iC/yPYgv8j2IL/I9iC/yLWfP8i0G3/ItBt/yLQ + bf8i0G3/ItBt/yLQbf8i0G3/ItBt/y23Y/88llb/S3VJ/1pUPf9eTDr/Xkw6/15MOv9MPS//KSEZ/wUE + A/8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8VCQn/PBsb/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0Uf + H/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/08rK//i397/7ezr/+3s + 6//t7Ov/r6+uqwAAADMAAAAQAAAAAgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAABAAAACwAAAChHR0dq8O/u//Dv7v/w7+7/8O/u/4VtbP9FHx//TSQi/8htVv/Rc1r/z3FY/6BS + PP8kEgz/AAAA/wUEA/8vJh3/WEc2/15MOv9eTDr/Xkw6/1hURv86foP/F7DN/wDS//8A0v//ANL//wDS + //8A0v//ANL//wDS//8A0v//ANL//wDS//8A0v//ANL//wDS//8A0v//ANL//wDS//8A0v//AN3//wrz + 6v8l6Kz/J/DB/yfwwf8n8MH/J/DB/yfwwf8n8MH/Juqx/yXorP8k4pz/JN6R/yPYgv8i0G3/ItBt/yLQ + bf8i0G3/ItBt/zSmXf9DhVD/VlxA/15MOv9eTDr/Xkw6/0A0J/8dFxL/AAAA/wAAAP8AAAD/AAAA/wAA + AP8AAAD/GQsL/zwbG/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0Uf + H/9FHx//RR8f/0UfH/9FHx//RR8f/5mFhf/t7Ov/7ezr/+3s6//n5uX1Li4tUQAAABwAAAAGAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAMAAAAUAAAAO62srLDw7+7/8O/u//Dv + 7v/a1dT/RR8f/0UfH/+LSTz/0XNa/81vVf95PSv/DAYE/wAAAP8jHBX/WEc2/15MOv9eTDr/Xkw6/1Jc + Uv8jn7X/Bcny/wDS//8A0v//ANL//wDS//8A0v//ANL//wDS//8A0v//ANL//wDS//8A0v//ANL//wDS + //8A0v//ANL//wDS//8A0v//ANL//wDS//8A5v//Ce3a/yLQbf8i0G3/ItBt/yLQbf8i0nL/I9iC/yPY + gv8k4Jf/JOKc/yXorP8m7rv/J/DB/yfwwf8m6rH/JOKc/yPah/8i0nL/ItBt/yLQbf8i0G3/Ma9g/0d9 + Tf9aVD3/Xkw6/15MOv9SQjL/LyYd/wUEA/8AAAD/AAAA/wAAAP8AAAD/BAEB/yIPD/9AHR3/RR8f/0Uf + H/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//Tysr/+Lf + 3v/t7Ov/7ezr/+3s6/+ZmJiTAAAAKwAAAAwAAAABAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAACAAAACEAAABQ6ejn9fDv7v/w7+7/8O/u/496ef9FHx//TSQi/8htVv/Ka1H/YDAh/wAA + AP8RDgr/Rjkr/15MOv9eTDr/Xkw6/1JcUv8jn7X/ANL//wDS//8A0v//ANL//wDS//8A0v//ANL//wDS + //8A0v//ANL//wDS//8A0v//ANL//wDS//8A0v//ANL//wDS//8A0v//ANL//wDS//8A0v//ANL//wDt + //8B9///ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0nL/I9iC/yTg + l/8l6Kz/J/DB/yfwwf8m6rH/JN6R/yLUd/8i0G3/ItBt/yXHaf84nln/VlxA/15MOv9eTDr/WEc2/y8m + Hf8LCQf/AAAA/wAAAP8AAAD/AAAA/wgDA/8zFxf/RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0Uf + H/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//o5KR/+3s6//t7Ov/7ezr/9rZ2OAAAAA9AAAAFQAA + AAMAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAIAAAAOAAAAMZaWlZjw7+7/8O/u//Dv + 7v/l4uH/Tywr/0UfH/+LSTz/ymtR/0gkGf8AAAD/KSEZ/1hHNv9eTDr/Xkw6/1hURv8vj5z/ANL//wDS + //8A0v//ANL//wDS//8A0v//ANL//wDS//8A0v//ANL//wDS//8A0v//ANL//wDS//8A0v//ANL//wDS + //8A0v//ANL//wDS//8A0v//ANL//wDS//8A0v//Aff//wH3//8f0nb/ItBt/yLQbf8i0G3/ItBt/yLQ + bf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/I9qH/yTinP8m7Lb/J/DB/ybq + sf8k3pH/ItJy/yLQbf8i0G3/Ma9g/09tRv9eTDr/Xkw6/15MOv8vJh3/BQQD/wAAAP8AAAD/AAAA/wAA + AP8eDQ3/QB0d/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0Uf + H/9aODj/7ezr/+3s6//t7Ov/7ezr/2hnZ2wAAAAgAAAABwAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAABAAAABgAAABDy8rKz/Dv7v/w7+7/8O/u/6+hoP9FHx//RR8f/7lhSv9UKh3/AAAA/zov + JP9eTDr/Xkw6/15MOv9GbWv/C8Hm/wDS//8A0v//ANL//wDS//8A0v//ANL//wDS//8A0v//ANL//wDS + //8A0v//ANL//wDS//8A0v//ANL//wDS//8A0v//ANL//wDS//8A0v//ANL//wDS//8A0v//ANL//wDY + //8B9///Aff//xnZkf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQ + bf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i1nz/JOKc/ybuu/8n8MH/JeSh/yPYgv8i0G3/ItBt/zGv + YP9PbUb/Xkw6/15MOv9YRzb/LyYd/wAAAP8AAAD/AAAA/wAAAP8MBQX/OBkZ/0UfH/9FHx//RR8f/0Uf + H/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH//DuLj/7ezr/+3s6//t7Ov/vby7swAA + AC4AAAAMAAAAAQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAIAAAAJEpJSWfw7+//8O/u//Dv + 7v/w7+7/ZUZF/0UfH/9vNiz/hEIu/wUEA/9MPS//Xkw6/15MOv9eTDr/KZeo/wDS//8A0v//ANL//wDS + //8A0v//ANL//wDS//8A0v//ANL//wDS//8A0v//ANL//wDS//8A0v//ANL//wDS//8A0v//ANL//wDS + //8A0v//ANL//wDS//8A0v//ANL//wDS//8A0v//AN///wH3//8B9///Fd6j/yLQbf8i0G3/ItBt/yLQ + bf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQ + bf8i0G3/ItBt/yPcjP8l6Kz/J/DB/yXorP8j2of/ItBt/yLQbf8xr2D/UmRD/15MOv9eTDr/UkIy/xcT + Dv8AAAD/AAAA/wAAAP8AAAD/KxMT/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0Uf + H/9FHx//RR8f/4Rra//t7Ov/7ezr/+3s6//h4N/qAAAAPAAAABMAAAADAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAgAAAA4AAAAypKOjovDv7//w7+//8O/v/9rV1P9FHx//OBkZ/3A3J/8RCgf/TD0v/15M + Ov9eTDr/WFRG/xG42v8A0v//ANL//wDS//8A0v//ANL//wDS//8A0v//ANL//wDS//8A0v//ANL//wDS + //8A0v//ANL//wDS//8A0v//ANL//wDS//8A0v//ANL//wDS//8A0v//ANL//wDb//8A2///ANv//wDb + //8A6f//Aff//wH3//8R47b/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQ + bf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8j2IL/Jeis/yfw + wf8m6rH/I9iC/yLQbf8i0G3/PJZW/1pUPf9eTDr/Xkw6/0A0J/8FBAP/AAAA/wAAAP8AAAD/GQsL/0Uf + H/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//Tysr/+3s6//t7Ov/7ezr/+3s + 6/9sbGtoAAAAHAAAAAUAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAEAAAAFgAAAEHc29vh8O/v//Dv + 7//w7+//moeH/0AdHf8UCQj/SCQZ/0w9L/9eTDr/Xkw6/0xlXv8RuNr/ANL//wDS//8A0v//ANL//wDS + //8A0v//ANL//wDS//8A0v//ANL//wDS//8A0v//ANL//wDS//8A2///AN///wDk//8A6f//AO3//wDt + //8B9///Aff//wH3//8B9///Aff//wH3//8B9///Aff//wH3//8B9///Aff//w3oyP8i0G3/ItBt/yLQ + bf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQ + bf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/I9iC/yXorP8n8MH/Jeis/yLUd/8i0G3/Jcdp/0t1 + Sf9eTDr/Xkw6/1hHNv8XEw7/AAAA/wAAAP8AAAD/EQcH/0AdHf9FHx//RR8f/0UfH/9FHx//RR8f/0Uf + H/9FHx//RR8f/0UfH/9FHx//w7i4/+3s6//t7Ov/7ezr/6qpqZsAAAAmAAAACQAAAAEAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAcAAAAgKioqWvDv7//w7+//8O/v//Dv7/9lRkb/Hg0N/wAAAP86LyT/Xkw6/15M + Ov9SXFL/Bcny/wDS//8A0v//ANL//wDS//8A0v//ANL//wDS//8A0v//ANL//wDS//8A2P//AOL//wDr + //8A8v//Aff//wD0//8A7f//AOn//wDk//8A4v//ANv//wDb//8A2///ANb//wDS//8A0v//ANL//wDb + //8A2///AOn//wH3//8B9///Ce3a/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQ + bf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQ + bf8i0G3/ItBt/yPYgv8m7Lb/J/DB/yTgl/8i0G3/ItBt/zieWf9aVD3/Xkw6/15MOv80KiD/AAAA/wAA + AP8AAAD/DAUF/0AdHf9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/+OeHj/7ezr/+3s + 6//t7Ov/1dTU0wAAADIAAAAOAAAAAgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABAAAACwAAACyZmZmV8O/v//Dv + 7//w7+//2tXV/zgZGf8AAAD/HRcS/15MOv9eTDr/WFRG/xG42v8A0v//ANL//wDS//8A0v//ANL//wDS + //8A0v//ANL//wDd//8A6f//APL//wD0//8A6///AOT//wDb//8A1P//ANL//wDS//8A0v//ANL//wDS + //8A0v//ANL//wDS//8A0v//ANL//wDS//8A0v//ANL//wDS//8A3///Aff//wH3//8D9PX/ItBt/yLQ + bf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQ + bf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8k3pH/Ju67/ybq + sf8i1nz/ItBt/ym/Zv9SZEP/Xkw6/15MOv9GOSv/BQQD/wAAAP8AAAD/DAUF/0AdHf9FHx//RR8f/0Uf + H/9FHx//RR8f/0UfH/9FHx//RR8f/2RFRf/t7Ov/7ezr/+3s6//t7Ov/AAAAPQAAABQAAAADAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAIAAAARAAAAOMTExMLw7+//8O/v//Dv7/+llJT/EQcH/wUEA/9YRzb/Xkw6/15M + Ov8XsM3/ANL//wDS//8A0v//ANL//wDS//8A0v//ANT//wDk//8A8v//APL//wDm//8A2P//ANL//wDS + //8A0v//ANL//wDS//8A0v//ANL//wDS//8A0v//ANL//wDS//8A0v//ANL//wDS//8A0v//ANL//wDS + //8A0v//ANL//wDb//8B9///Aff//wH3//8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQ + bf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQ + bf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i1Hf/Jeam/yfwwf8k3pH/ItBt/yXHaf9HfU3/Xkw6/15M + Ov9SQjL/EQ4K/wAAAP8AAAD/DAUF/0AdHf9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/+Lf + 3v/t7Ov/7ezr/+3s6/9ubW1mAAAAGgAAAAQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABAAAABgAAABF4+Li6/Dv + 7//w7+//8O/v/2lYWP8AAAD/LyYd/15MOv9eTDr/L4+c/wDS//8A0v//ANL//wDS//8A0v//ANT//wDm + //8A9P//AOn//wDY//8A0v//ANL//wDS//8A0v//ANL//wDS//8A0v//ANL//wDS//8A0v//ANL//wDS + //8A0v//ANL//wDS//8A0v//ANL//wDS//8A0v//ANL//wDS//8A0v//ANL//wH3//8B9///Aff//xnZ + kf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQ + bf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQ + bf8i0G3/JN6R/ybuu/8l5KH/ItJy/yLQbf88llb/Xkw6/15MOv9YRzb/EQ4K/wAAAP8AAAD/DAUF/0Uf + H/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//w7i4/+3s6//t7Ov/7ezr/66urZcAAAAhAAAABwAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAHAAAAIUxLS2Tw7+//8O/v//Dv7//w7+//JBgY/wUEA/9eTDr/Xkw6/0xl + Xv8A0v//ANL//wDS//8A0v//ANL//wDi//8A9P//AOT//wDU//8A0v//ANL//wDS//8A0v//ANL//wDS + //8A0v//ANL//wDS//8A0v//ANL//wDS//8A0v//ANL//wDS//8A0v//ANL//wDS//8A0v//ANL//wDS + //8A0v//ANL//wDS//8A0v//APD//wH3//8B9///GdmR/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQ + bf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQ + bf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItZ8/ybqsf8m6rH/ItJy/yLQ + bf84nln/Xkw6/15MOv9YRzb/EQ4K/wAAAP8AAAD/GQsL/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0Uf + H/+ZhYX/7ezr/+3s6//t7Ov/wL++sAAAACcAAAAJAAAAAQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAQAAAAsAAAArmpmZlPDv + 7//w7+//8O/v/8vGxv8AAAD/LyYd/15MOv9eTDr/F7DN/wDS//8A0v//ANL//wDW//8A8P//AOv//wDW + //8A0v//ANL//wDS//8A0v//ANL//wDS//8A0v//ANL//wDS//8A0v//ANL//wDS//8A0v//ANL//wDS + //8A0v//ANL//wDS//8A0v//ANL//wDS//8A0v//ANL//wDS//8A0v//ANL//wDS//8A6f//Aff//wH3 + //8R47b/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQ + bf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQ + bf8i0G3/ItBt/yLQbf8i0G3/ItJy/yXkof8m7Lb/ItZ8/yLQbf84nln/Xkw6/15MOv9YRzb/EQ4K/wAA + AP8AAAD/JhER/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/4Rra//t7Ov/7ezr/+3s6//X1tXSAAAALgAA + AAwAAAABAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAACAAAAEAAAADXGxcTB8O/v//Dv7//w7+//i4iI/wAAAP9SQjL/Xkw6/0ht + Yv8A0v//ANL//wDS//8A3f//APL//wDd//8A0v//ANL//wDS//8A0v//ANL//wDS//8A0v//ANL//wDS + //8A0v//ANL//wDS//8A0v//ANL//wDS//8A0v//ANL//wDS//8A0v//ANL//wDS//8A0v//ANL//wDS + //8A0v//ANL//wDS//8A0v//ANL//wDi//8B9///Aff//w/lv/8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQ + bf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQ + bf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yTi + nP8m7rv/ItZ8/yLQbf84nln/Xkw6/15MOv9YRzb/EQ4K/wAAAP8AAAD/OBkZ/0UfH/9FHx//RR8f/0Uf + H/9FHx//b1JS/+3s6//t7Ov/7ezr/+fm5vQAAAA0AAAADwAAAAIAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAMAAAAVAAAAQOTj + 4uvw7+//8O/v//Dv7/9LSkr/EQ4K/15MOv9eTDr/I6em/wDS//8A0v//AN///wDw//8A1P//ANL//wDS + //8A0v//ANL//wDS//8A0v//ANL//wDS//8A0v//ANL//wDS//8A0v//ANL//wDS//8A0v//ANL//wDS + //8A0v//ANL//wDS//8A0v//ANL//wDS//8A0v//ANL//wDS//8A0v//ANL//wDS//8A0v//ANv//wH3 + //8B9///Ce3a/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQ + bf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQ + bf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yPcjP8m7rv/ItR3/yLQbf84nln/Xkw6/15M + Ov9YRzb/BQQD/wAAAP8IAwP/QB0d/0UfH/9FHx//RR8f/0UfH/9FHx//7ezr/+3s6//t7Ov/7ezr/wAA + ADoAAAARAAAAAgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAABAAAABoAAABI8fDv//Hw7//x8O//8O/v/w8ODv8pIRn/Xkw6/1Zc + QP8K0dH/ANL//wDf//8A6f//ANL//wDS//8A0v//ANL//wDS//8A0v//ANL//wDS//8A0v//ANL//wDS + //8A0v//ANL//wDS//8A0v//ANL//wDS//8A0v//ANL//wDS//8A0v//ANL//wDS//8A0v//ANL//wDS + //8A0v//ANL//wDS//8A0v//ANL//wDS//8A0v//Aff//wH3//8F8uz/ItBt/yLQbf8i0G3/ItBt/yLQ + bf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQ + bf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQ + bf8i0G3/ItBt/yPcjP8m6rH/ItJy/yLQbf9PbUb/Xkw6/15MOv9MPS//AAAA/wAAAP8eDQ3/RR8f/0Uf + H/9FHx//RR8f/0UfH//t7Ov/7ezr/+3s6//t7Ov/dnZ1XwAAABQAAAADAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAGAAAAHoKC + gXXx8O//8fDv//Hw7//h4eD/AAAA/zovJP9eTDr/Q4VQ/wTR7P8A3///AOn//wDS//8A0v//ANL//wDS + //8A0v//ANL//wDS//8A0v//ANL//wDS//8A0v//ANL//wDS//8A0v//ANL//wDS//8A0v//ANL//wDS + //8A0v//ANL//wDS//8A0v//ANL//wDS//8A0v//ANL//wDS//8A0v//ANL//wDS//8A0v//ANL//wDS + //8A8P//Aff//wH3//8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQ + bf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQ + bf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yTinP8l6Kz/ItBt/1pU + Pf9eTDr/Xkw6/15MOv80KiD/AAAA/wAAAP84GRn/RR8f/0UfH/9FHx//RR8f/83FxP/t7Ov/7ezr/+3s + 6/+KioltAAAAFgAAAAMAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAYAAAAgk5KSgvHw7//x8O//8fDv/7S0s/8AAAD/Rjkr/15M + Ov8ur2n/ANj//wDm//8A0v//ANL//wDS//8A0v//ANL//wDS//8A0v//ANL//wDS//8A0v//ANL//wDS + //8A0v//ANL//wDS//8A0v//ANL//wDS//8A0v//ANL//wDS//8A0v//ANL//wDS//8A0v//ANL//wDS + //8A0v//ANL//wDS//8A0v//ANL//wDS//8A0v//ANL//wDp//8B9///Aff//x3Uf/8i0G3/ItBt/yLQ + bf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQ + bf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQ + bf8i0G3/ItBt/yLQbf8i0G3/ItBt/zDJkv9Hf1L/Xkw6/15MOv9eTDr/Xkw6/15MOv8XEw7/AAAA/xEH + B/9FHx//RR8f/0UfH/9FHx//w7i4/+3s6//t7Ov/7ezr/4mIiG4AAAAXAAAABAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABwAA + ACC9vLyi8fDv//Hw7//x8O//paWk/wAAAP9MPS//Xkw6/xnQkf8A6f//ANL//wDS//8A0v//ANL//wDS + //8A0v//ANL//wDS//8A0v//ANL//wDS//8A0v//ANL//wDS//8A0v//ANL//wDS//8A0v//ANL//wDS + //8A0v//ANL//wDS//8A0v//ANL//wDS//8A0v//ANL//wDS//8A0v//ANL//wDS//8A0v//ANL//wDS + //8A0v//AOL//wH3//8B9///GdmR/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQ + bf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQ + bf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/Jcdp/zyWVv9WXED/Xkw6/15M + Ov9eTDr/Xkw6/15MOv9eTDr/Xkw6/1JCMv8FBAP/AAAA/zMXF/9FHx//RR8f/0UfH//Dubj/7ezs/+3s + 6//t7Ov/qqmphAAAABcAAAAEAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAHAAAAIb28vKLx8PD/8fDv//Hw7/94eHf/AAAA/15M + Ov9SZEP/Edy2/wDW//8A0v//ANL//wDS//8A0v//ANL//wDS//8A0v//ANL//wDS//8A0v//ANL//wDS + //8A0v//ANL//wDS//8A0v//ANL//wDS//8A0v//ANL//wDS//8A0v//ANL//wDS//8A0v//ANL//wDS + //8A0v//ANL//wDS//8A0v//ANL//wDS//8A0v//ANL//wDS//8A2///Aff//wH3//8T4az/ItBt/yLQ + bf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQ + bf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQ + bf8i0G3/Ma9g/0d9Tf9eTDr/Xkw6/15MOv9eTDr/Xkw6/15MOv9eTDr/Xkw6/15MOv9eTDr/Xkw6/y8m + Hf8AAAD/EQcH/0UfH/9FHx//RR8f/8O5uP/t7Oz/7ezs/+3s7P/CwcGbAAAAFwAAAAQAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAcAAAAgvby8ovHw8P/x8PD/8fDw/3h4d/8AAAD/Xkw6/0d9Tf8g1oX/E+Hg/wTV9/8A0v//ANL//wDS + //8A0v//ANL//wDS//8A0v//ANL//wDS//8A0v//ANL//wDS//8A0v//ANL//wDS//8A0v//ANL//wDS + //8A0v//ANL//wDS//8A0v//ANL//wDS//8A0v//ANL//wDS//8A0v//ANL//wDS//8A0v//ANL//wDS + //8A0v//ANL//wDU//8B9///Aff//xHjtv8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQ + bf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQ + bf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8lx2n/PJZW/1ZcQP9eTDr/Xkw6/15MOv9eTDr/Xkw6/15M + Ov9eTDr/Xkw6/15MOv9eTDr/Xkw6/15MOv9eTDr/WEc2/wUEA/8AAAD/PBsb/0UfH/9FHx//w7m4/+7t + 7P/u7ez/7ezs/8LCwZsAAAAXAAAABAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABwAAACC+vb2h8fDw//Hw8P/x8PD/eHh4/wAA + AP9MPS//PJZW/yTekf8n8MH/J/DB/xrm1P8M2+v/ANL//wDS//8A0v//ANL//wDS//8A0v//ANL//wDS + //8A0v//ANL//wDS//8A0v//ANL//wDS//8A0v//ANL//wDS//8A0v//ANL//wDS//8A0v//ANL//wDS + //8A0v//ANL//wDS//8A0v//ANL//wDS//8A0v//ANL//wDS//8A0v//ANL//wDy//8B9///Ce3a/yLQ + bf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQ + bf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8xr2D/R31N/15M + Ov9eTDr/Xkw6/15MOv9eTDr/Xkw6/15MOv9eTDr/Xkw6/15MOv9eTDr/Xkw6/15MOv9eTDr/Xkw6/15M + Ov9eTDr/LyYd/wAAAP8eDQ3/RR8f/0UfH//Dubj/7u3s/+7t7P/u7ez/w8LBmwAAABcAAAAEAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAGAAAAH7++vqDx8PD/8fDw//Hw8P+WoZ3/AAAA/0Y5K/8xr2D/JeSh/yfwwf8n8MH/J/DB/yfw + wf8i7Mj/Ed/j/wLT+/8A0v//ANL//wDS//8A0v//ANL//wDS//8A0v//ANL//wDS//8A0v//ANL//wDS + //8A0v//ANL//wDS//8A0v//ANL//wDS//8A0v//ANL//wDS//8A0v//ANL//wDS//8A0v//ANL//wDS + //8A0v//ANL//wDS//8A0v//AOv//wH3//8J7dr/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQ + bf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQ + bf8i0G3/ItBt/yXHaf88llb/VlxA/15MOv9eTDr/Xkw6/15MOv9eTDr/Xkw6/15MOv9eTDr/Xkw6/15M + Ov9eTDr/Xkw6/15MOv9eTDr/Xkw6/15MOv9eTDr/Xkw6/15MOv9YRzb/BQQD/wgDA/9FHx//RR8f/8O5 + uP/u7ez/7u3s/+7t7P/DwsGbAAAAFwAAAAQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAUAAAAbt7a2kvHw8P/x8PD/8fDw/7S0 + tP8AAAD/Oi8k/yLQbf8m7Lb/J/DB/yfwwf8n8MH/J/DB/yfwwf8n8MH/J/DB/xjk2P8H1/P/ANL//wDS + //8A0v//ANL//wDS//8A0v//ANL//wDS//8A0v//ANL//wDS//8A0v//ANL//wDS//8A0v//ANL//wDS + //8A0v//ANL//wDS//8A0v//ANL//wDS//8A0v//ANL//wDS//8A0v//ANL//wDS//8A5P//Aff//wH3 + //8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQ + bf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/zGvYP9HfU3/Xkw6/15MOv9eTDr/Xkw6/15M + Ov9eTDr/Xkw6/15MOv9eTDr/Xkw6/15MOv9eTDr/Xkw6/15MOv9eTDr/Xkw6/15MOv9eTDr/Xkw6/15M + Ov9eTDr/Xkw6/15MOv8jHBX/AAAA/zgZGf9FHx//w7m4/+7t7P/u7ez/7u3s/8PDwpoAAAAXAAAABAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAwAAABaNjY1s8fDw//Hw8P/x8PD/w87K/wAAAP8aQib/ItJy/yfwwf8n8MH/J/DB/yfw + wf8n8MH/J/DB/yfwwf8n8MH/J/DB/yfwwf8f6sz/Dt3n/wLT+/8A0v//ANL//wDS//8A0v//ANL//wDS + //8A0v//ANL//wDS//8A0v//ANL//wDS//8A0v//ANL//wDS//8A0v//ANL//wDS//8A0v//ANL//wDS + //8A0v//ANL//wDS//8A0v//ANL//wDb//8B9///Aff//x/Sdv8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQ + bf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/Jcdp/zyW + Vv9WXED/Xkw6/15MOv9eTDr/Xkw6/15MOv9eTDr/Xkw6/15MOv9eTDr/Xkw6/15MOv9eTDr/Xkw6/15M + Ov9eTDr/Xkw6/15MOv9gTzn/Z1Y5/15MOv9eTDr/Xkw6/15MOv9eTDr/Xkw6/0A0J/8AAAD/Ig8P/0Uf + H//Dubj/7u3s/+7t7P/u7ez/rKyrgwAAABYAAAADAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACAAAAEWFhYU7x8PD/8fDw//Hw + 8P/x8PD/AAAA/w5bL/8j2IL/J/DB/yfwwf8n8MH/J/DB/yfwwf8n8MH/J/DB/yfwwf8n8MH/J/DB/yfw + wf8n8MH/JO7E/xXi3P8E1ff/ANL//wDS//8A0v//ANL//wDS//8A0v//ANL//wDS//8A0v//ANL//wDS + //8A0v//ANL//wDS//8A0v//ANL//wDS//8A0v//ANL//wDS//8A0v//ANL//wDS//8A0v//ANT//wH3 + //8B9///GdmR/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQ + bf8i0G3/ItBt/yLQbf8i0G3/Ma9g/0d9Tf9eTDr/Xkw6/15MOv9eTDr/Xkw6/15MOv9eTDr/Xkw6/15M + Ov9eTDr/Xkw6/15MOv9eTDr/Xkw6/15MOv9eTDr/Xkw6/15MOv9eTDr/Xkw6/15MOv9xYzj/X005/15M + Ov9eTDr/Xkw6/15MOv9eTDr/Xkw6/wAAAP8RBwf/RR8f/8O5uP/u7ez/7u3s/+7t7P+Ojo1qAAAAFAAA + AAMAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAEAAAAMAAAALuzr6/Px8PD/8fDw//Hw8P88PDz/FYJE/yTgl/8n8MH/J/DB/yfw + wf8n8MH/J/DB/yfwwf8n8MH/J/DB/yfwwf8n8MH/J/DB/yfwwf8n8MH/J/DB/yfwwf8d6ND/DNvr/wDS + //8A0v//ANL//wDS//8A0v//ANL//wDS//8A0v//ANL//wDS//8A0v//ANL//wDS//8A0v//ANL//wDS + //8A0v//ANL//wDS//8A0v//ANL//wDS//8A0v//APL//wH3//8V3qP/ItBt/yLQbf8i0G3/ItBt/yLQ + bf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8lx2n/PJZW/1ZcQP9eTDr/Xkw6/15M + Ov9eTDr/Xkw6/15MOv9eTDr/Xkw6/15MOv9eTDr/Xkw6/15MOv9eTDr/Xkw6/15MOv9eTDr/Xkw6/15M + Ov9eTDr/Xkw6/15MOv9eTDr/Xkw6/21eOP9lVTn/Xkw6/15MOv9eTDr/Xkw6/15MOv9eTDr/FxMO/wQB + Af9FHx//zsbF/+7t7P/u7ez/7u3s/5STkmYAAAARAAAAAgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAQAAAAkAAAAm3dzc0PHw + 8P/x8PD/8fDw/3iDf/8bqVj/ItBt/yTgl/8l5qb/J/DB/yfwwf8n8MH/J/DB/yfwwf8n8MH/J/DB/yfw + wf8n8MH/J/DB/yfwwf8n8MH/J/DB/yfwwf8n8MH/IuzI/xPh4P8E1ff/ANL//wDS//8A0v//ANL//wDS + //8A0v//ANL//wDS//8A0v//ANL//wDS//8A0v//ANL//wDS//8A0v//ANL//wDS//8A0v//ANL//wDS + //8A6///Aff//xHjtv8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQ + bf8xr2D/R31N/15MOv9eTDr/Xkw6/15MOv9eTDr/Xkw6/15MOv9eTDr/Xkw6/15MOv9eTDr/Xkw6/15M + Ov9eTDr/Xkw6/15MOv9eTDr/Xkw6/15MOv9eTDr/Xkw6/15MOv9eTDr/Xkw6/15MOv9eTDr/bV44/2xd + OP9eTDr/Xkw6/15MOv9eTDr/Xkw6/15MOv8vJh3/AAAA/0UfH//u7ez/7u3s/+7t7P/u7ez/goGBVwAA + AA8AAAACAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAABwAAACGwsLCX8fDw//Hw8P/x8PD/w8PD/yLQbf8i0G3/JOKc/yLQ + bf8i1Hf/JOCX/ybstv8n8MH/J/DB/yfwwf8n8MH/J/DB/yfwwf8n8MH/J/DB/yfwwf8n8MH/J/DB/yfw + wf8n8MH/J/DB/yfwwf8Y5Nj/Cdnv/wDS//8A0v//ANL//wDS//8A0v//ANL//wDS//8A0v//ANL//wDS + //8A0v//ANL//wDS//8A0v//ANL//wDS//8A0v//ANL//wDk//8B9///C+rR/yLQbf8i0G3/ItBt/yLQ + bf8i0G3/ItBt/yLQbf8i0G3/ItBt/yXHaf84nln/VlxA/15MOv9eTDr/Xkw6/15MOv9eTDr/Xkw6/15M + Ov9eTDr/Xkw6/15MOv9eTDr/Xkw6/15MOv9eTDr/Xkw6/15MOv9eTDr/Xkw6/15MOv9eTDr/Xkw6/15M + Ov9eTDr/Xkw6/15MOv9eTDr/Xkw6/15MOv9pWjj/cWM4/15MOv9eTDr/Xkw6/15MOv9eTDr/Xkw6/zov + JP8AAAD/MxcX/+7t7P/u7ez/7u3s/+7t7P8AAAAvAAAADAAAAAEAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAHAAAAIX59 + fXnx8PD/8fDw//Hw8P+96M//ItBt/yLQbf8n8MH/ItBt/yLQbf8i0G3/ItBt/yPah/8l5qb/J/DB/yfw + wf8n8MH/J/DB/yfwwf8n8MH/J/DB/yfwwf8n8MH/J/DB/yfwwf8n8MH/J/DB/yfwwf8n8MH/IuzI/w7d + 5/8C0/v/ANL//wDS//8A0v//ANL//wDS//8A0v//ANL//wDS//8A0v//ANL//wDS//8A0v//ANL//wDS + //8A0v//AN3//wH3//8J7dr/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/y23Y/9HfU3/WlQ9/15M + Ov9eTDr/Xkw6/15MOv9eTDr/Xkw6/15MOv9eTDr/Xkw6/15MOv9eTDr/Xkw6/15MOv9eTDr/Xkw6/15M + Ov9eTDr/Xkw6/15MOv9eTDr/Xkw6/15MOv9eTDr/Xkw6/15MOv9eTDr/Xkw6/15MOv9eTDr/Xkw6/2la + OP9zZTj/Xkw6/15MOv9eTDr/Xkw6/15MOv9eTDr/Rjkr/wAAAP9TPT3/7u3s/+7t7P/u7ez/7u3s/wAA + ACkAAAAKAAAAAQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAgAAAAlnp6ekfHw8P/x8PD/8fDw/5bitv8i0G3/ItBt/yfw + wf8i1nz/ItBt/yLQbf8i0G3/ItBt/yLQbf8i1Hf/JOKc/ybuu/8n8MH/J/DB/yfwwf8n8MH/J/DB/yfw + wf8n8MH/J/DB/yfwwf8n8MH/J/DB/yfwwf8n8MH/J/DB/yTuxP8Y5Nj/BNX3/wDS//8A0v//ANL//wDS + //8A0v//ANL//wDS//8A0v//ANL//wDS//8A0v//ANL//wDS//8A1v//Aff//wP09f8i0G3/ItBt/yLQ + bf8i0G3/Jcdp/zieWf9SZEP/Xkw6/15MOv9eTDr/Xkw6/15MOv9eTDr/Xkw6/15MOv9eTDr/Xkw6/15M + Ov9eTDr/Xkw6/15MOv9eTDr/Xkw6/15MOv9eTDr/Xkw6/15MOv9eTDr/Xkw6/15MOv9eTDr/Xkw6/15M + Ov9eTDr/Xkw6/15MOv9eTDr/Xkw6/15MOv9eTDr/bV44/3NlOP9eTDr/Xkw6/15MOv9eTDr/Xkw6/15M + Ov9GOSv/AAAA/15KSv/u7ez/7u3s/+7t7P/b2tnPAAAAIgAAAAcAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABAAAACgAA + ACm3tran8fDw//Hw8P/x8PD/ieCu/yLQbf8i0G3/Juy2/yTgl/8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQ + bf8i0G3/ItBt/yPcjP8l6Kz/J/DB/yfwwf8n8MH/J/DB/yfwwf8n8MH/J/DB/yfwwf8n8MH/J/DB/yfw + wf8n8MH/J/DB/yfwwf8n8MH/HejQ/w7d5/8A0v//ANL//wDS//8A0v//ANL//wDS//8A0v//ANL//wDS + //8A0v//ANL//wDS//8A9P//Aff//yLQbf8i0G3/Lbdj/0d9Tf9aVD3/Xkw6/15MOv9eTDr/Xkw6/15M + Ov9eTDr/Xkw6/15MOv9eTDr/Xkw6/15MOv9eTDr/Xkw6/15MOv9eTDr/Xkw6/15MOv9eTDr/Xkw6/15M + Ov9eTDr/Xkw6/15MOv9eTDr/Xkw6/15MOv9eTDr/Xkw6/15MOv9eTDr/Xkw6/15MOv9eTDr/Xkw6/15M + Ov9zZTj/cWM4/15MOv9eTDr/Xkw6/15MOv9eTDr/Xkw6/0Y5K/8AAAD/iH59/+7t7P/u7ez/7u3s/9fX + 1sEAAAAcAAAABQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAEAAAAKAAAAKra1tajx8PD/8fDw//Hw8P+J4K7/ItBt/yLQ + bf8k4pz/Juqx/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i1Hf/JOKc/ybu + u/8n8MH/J/DB/yfwwf8n8MH/J/DB/yfwwf8n8MH/J/DB/yfwwf8n8MH/J/DB/yfwwf8n8MH/J/DB/yTu + xP8T4eD/BNX3/wDS//8A0v//ANL//wDS//8A0v//ANL//wDS//8A0v//ANL//wDt//8B9///Fd6j/yLQ + bf80pl3/T21G/15MOv9eTDr/Xkw6/15MOv9eTDr/Xkw6/15MOv9eTDr/Xkw6/15MOv9eTDr/Xkw6/15M + Ov9eTDr/Xkw6/15MOv9eTDr/Xkw6/15MOv9eTDr/Xkw6/15MOv9eTDr/Xkw6/15MOv9eTDr/Xkw6/15M + Ov9eTDr/Xkw6/15MOv9eTDr/Xkw6/15MOv9eTDr/Y1I5/3NlOP9tXjj/Xkw6/15MOv9eTDr/Xkw6/15M + Ov9eTDr/Rjkr/wAAAP+dmJf/7u3s/+7t7P/u7ez/xMPDmgAAABYAAAADAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAQAA + AAoAAAAr29ra0vHw8P/x8PD/8fDw/2/cnv8i0G3/ItBt/yLUd/8n8MH/ItR3/yLQbf8i0G3/ItBt/yLQ + bf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yPcjP8l6Kz/J/DB/yfwwf8n8MH/J/DB/yfw + wf8n8MH/J/DB/yfwwf8n8MH/J/DB/yfwwf8n8MH/J/DB/yfwwf8n8MH/GubU/wnZ7/8A0v//ANL//wDS + //8A0v//ANL//wDS//8A0v//AOT//wH3//8Z2ZH/ItBt/yLQbf8i0G3/Jcdp/zieWf9WXED/Xkw6/15M + Ov9eTDr/Xkw6/15MOv9eTDr/Xkw6/15MOv9eTDr/Xkw6/15MOv9eTDr/Xkw6/15MOv9eTDr/Xkw6/15M + Ov9eTDr/Xkw6/15MOv9eTDr/Xkw6/15MOv9eTDr/Xkw6/15MOv9eTDr/Xkw6/15MOv9eTDr/Xkw6/15M + Ov9oWDn/c2U4/2hYOf9eTDr/Xkw6/15MOv9eTDr/Xkw6/15MOv9ANCf/AAAA/8XCwv/u7ez/7u3s/+7t + 7P+npqVxAAAAEQAAAAIAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABAAAACgAAACrc29rR8fDw//Hw8P/x8PD/ieCu/yLQ + bf8i0G3/ItBt/yXorP8k4pz/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQ + bf8i0G3/ItBt/yLQbf8i1Hf/JeSh/ybuu/8n8MH/J/DB/yfwwf8n8MH/J/DB/yfwwf8n8MH/J/DB/yfw + wf8n8MH/J/DB/yfwwf8n8MH/J/DB/yLsyP8R3+P/AtP7/wDS//8A0v//ANL//wDS//8A3f//Aff//x/S + dv8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8xr2D/S3VJ/15MOv9eTDr/Xkw6/15MOv9eTDr/Xkw6/15M + Ov9eTDr/Xkw6/15MOv9eTDr/Xkw6/15MOv9eTDr/Xkw6/15MOv9eTDr/Xkw6/15MOv9eTDr/Xkw6/15M + Ov9eTDr/Xkw6/15MOv9eTDr/Xkw6/15MOv9eTDr/Xkw6/21eOP9zZTj/ZFM5/15MOv9eTDr/Xkw6/15M + Ov9eTDr/Xkw6/y8mHf8AAAD/7u3t/+7t7f/u7ez/7u3s/2ppaUcAAAANAAAAAQAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAJAAAAJsTDw7Dy8fD/8vHw//Hw8P+J4K7/ItBt/yLQbf8i0G3/I9iC/ybuu/8i0nL/ItBt/yLQ + bf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItJy/yPc + jP8m6rH/J/DB/yfwwf8n8MH/J/DB/yfwwf8n8MH/J/DB/yfwwf8n8MH/J/DB/yfwwf8n8MH/J/DB/yfw + wf8n8MH/GOTY/wfX8/8A0v//ANL//wDW//8F8uz/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQ + bf8i0G3/Kb9m/0COU/9aVD3/Xkw6/15MOv9eTDr/Xkw6/15MOv9eTDr/Xkw6/15MOv9eTDr/Xkw6/15M + Ov9eTDr/Xkw6/15MOv9eTDr/Xkw6/15MOv9eTDr/Xkw6/15MOv9eTDr/Xkw6/15MOv9eTDr/Xkw6/15M + Ov9eTDr/c2U4/3NlOP9fTTn/Xkw6/15MOv9eTDr/Xkw6/15MOv9eTDr/HRcS/ywsLP/u7e3/7u3t/+7t + 7f/u7ez/AAAAJwAAAAkAAAABAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAcAAAAhvr29ovLx8f/y8fD/8vHw/4ff + r/8i0G3/ItBt/yLQbf8i0G3/Jeis/yTgl/8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQ + bf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i1nz/JeSh/ybuu/8n8MH/J/DB/yfw + wf8n8MH/J/DB/yfwwf8n8MH/J/DB/yfwwf8n8MH/J/DB/yfwwf8n8MH/J/DB/x/qzP8O3ef/ANL//w3m + yP8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf84nln/UmRD/15M + Ov9eTDr/Xkw6/15MOv9eTDr/Xkw6/15MOv9eTDr/Xkw6/15MOv9eTDr/Xkw6/15MOv9eTDr/Xkw6/15M + Ov9eTDr/Xkw6/15MOv9eTDr/Xkw6/15MOv9eTDr/Xkw6/2NSOf9zZTj/cGE4/15MOv9eTDr/Xkw6/15M + Ov9eTDr/Xkw6/15MOv8FBAP/WWRg/+7t7f/u7e3/7u3t/93c3M0AAAAeAAAABgAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAABQAAABvDwsKd8vHx//Lx8f/y8fH/vujP/yLQbf8i0G3/ItBt/yLQbf8i1Hf/Ju67/yLS + cv8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQ + bf8i0G3/ItBt/yLQbf8i0G3/ItJy/yPcjP8m6rH/J/DB/yfwwf8n8MH/J/DB/yfwwf8n8MH/J/DB/yfw + wf8n8MH/J/DB/yfwwf8n8MH/J/DB/yfwwf8j6LX/HdJ//yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQ + bf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/Lbdj/0d9Tf9eTDr/Xkw6/15MOv9eTDr/Xkw6/15M + Ov9eTDr/Xkw6/15MOv9eTDr/Xkw6/15MOv9eTDr/Xkw6/15MOv9eTDr/Xkw6/15MOv9eTDr/Xkw6/15M + Ov9eTDr/aFg5/3NlOP9sXTj/Xkw6/15MOv9eTDr/Xkw6/15MOv9eTDr/TD0v/wAAAP+ko6L/7u3t/+7t + 7f/u7e3/zs3NpQAAABYAAAADAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAADAAAAFZCPj2ry8fH/8vHx//Lx + 8f/V6+H/ItBt/yLQbf8i0G3/ItBt/yLQbf8k4Jf/Jeam/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQ + bf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQ + bf8j2IL/JeSh/yfwwf8n8MH/J/DB/yfwwf8n8MH/J/DB/yfwwf8n8MH/J/DB/yfwwf8n8MH/J/DB/yTg + l/8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQ + bf8i0G3/ItBt/yXHaf9AjlP/VlxA/15MOv9eTDr/Xkw6/15MOv9eTDr/Xkw6/15MOv9eTDr/Xkw6/15M + Ov9eTDr/Xkw6/15MOv9eTDr/Xkw6/15MOv9eTDr/Xkw6/15MOv9sXTj/c2U4/2hYOf9eTDr/Xkw6/15M + Ov9eTDr/Xkw6/15MOv8jHBX/AAAA/+Df3v/v7u3/7u3t/+7t7f+ura1sAAAADgAAAAIAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAIAAAAPPTw8P/Lx8f/y8fH/8vHx//Lx8f85037/ItBt/yLQbf8i0G3/ItBt/yLQ + bf8l6Kz/I9yM/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQ + bf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItJy/yTekf8m7Lb/J/DB/yfw + wf8n8MH/J/DB/yfwwf8n8MH/J/DB/yfwwf8n8MH/I9qH/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQ + bf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/NKZd/09t + Rv9eTDr/Xkw6/15MOv9eTDr/Xkw6/15MOv9eTDr/Xkw6/15MOv9eTDr/Xkw6/15MOv9eTDr/Xkw6/15M + Ov9eTDr/Xkw6/3FjOP9zZTj/Y1I5/15MOv9eTDr/Xkw6/15MOv9eTDr/WEc2/wUEA/9ZWVj/7+7t/+/u + 7f/v7u3/6+rp8gAAACMAAAAIAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAQAAAAkAAAAm5OPj2/Lx + 8f/y8fH/8vHx/2nZov8i0G3/ItBt/yLQbf8i0G3/ItBt/yLScv8m6rH/ItZ8/yLQbf8i0G3/ItBt/yLQ + bf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQ + bf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8j2IL/JeSh/yfwwf8n8MH/J/DB/yfwwf8n8MH/J/DB/yfw + wf8i1Hf/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQ + bf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/ym/Zv9HfU3/WlQ9/15MOv9eTDr/Xkw6/15M + Ov9eTDr/Xkw6/15MOv9eTDr/Xkw6/15MOv9eTDr/Xkw6/15MOv9hUDn/c2U4/3NlOP9fTTn/Xkw6/15M + Ov9eTDr/Xkw6/15MOv8vJh3/AAAA/7Oysf/v7u3/7+7t/+/u7f/X1tWwAAAAFgAAAAQAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAABQAAABrOzc2o8vHx//Lx8f/y8fH/uebS/yLQbf8i0G3/ItBt/yLQ + bf8i0G3/ItBt/yLWfP8m7Lb/ItJy/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQ + bf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQ + bf8i0G3/ItJy/yTekf8m7Lb/J/DB/yfwwf8n8MH/Ju67/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQ + bf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQ + bf8i0G3/ItBt/yLQbf8lx2n/OJ5Z/1ZcQP9eTDr/Xkw6/15MOv9eTDr/Xkw6/15MOv9eTDr/Xkw6/15M + Ov9eTDr/Xkw6/2dWOf9zZTj/cGE4/15MOv9eTDr/Xkw6/15MOv9eTDr/UkIy/wUEA/87Ozv/7+7t/+/u + 7f/v7u3/7+7t/6WkpFwAAAAMAAAAAQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACAAAAEISE + hFfy8fH/8vHx//Lx8f/y8fH/NdGB/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLWfP8m6rH/ItJy/yLQ + bf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQ + bf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8j2IL/Jeam/yfw + wf8l6Kz/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQ + bf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/zGv + YP9LdUn/Xkw6/15MOv9eTDr/Xkw6/15MOv9eTDr/Xkw6/15MOv9eTDr/bF04/3NlOP9rWzj/Xkw6/15M + Ov9eTDr/Xkw6/15MOv8dFxL/AAAA/7Oysf/v7u3/7+7t/+/u7f/l5OPYAAAAGgAAAAYAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAEAAAAJAAAAI+rp6eby8fH/8vHx//Lx8f+f4sL/ItBt/yLQ + bf8i0G3/ItBt/yLQbf8i0G3/ItBt/yPcjP8m6rH/ItJy/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQ + bf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQ + bf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8d1H//ItR3/yLWfP8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQ + bf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQ + bf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8pv2b/QI5T/1pUPf9eTDr/Xkw6/15M + Ov9eTDr/Xkw6/15MOv9xYzj/c2U4/2dWOf9eTDr/Xkw6/15MOv9eTDr/NCog/wAAAP9KVVH/7+7t/+/u + 7f/v7u3/7+7t/8HAwHYAAAANAAAAAgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAQAAAAUw8LCivLx8f/y8fH/8vHx//Lx8f830oD/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yPY + gv8l6Kz/ItJy/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQ + bf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/x3Uf/8T4az/B+/j/wfv + 4/8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQ + bf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQ + bf8i0G3/ItBt/yLQbf8i0G3/ItBt/zieWf9SZEP/Xkw6/15MOv9eTDr/YVA5/3NlOP9zZTj/Y1I5/15M + Ov9eTDr/Xkw6/0Y5K/8AAAD/Dg4O/+Df3v/v7u3/7+7t/+/u7f/i4eDKAAAAGAAAAAUAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAQAAAApPTk4w7u3t8vLx8f/y8fH/8vHx/6zk + yv8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLWfP8k4Jf/ItBt/yLQbf8i0G3/ItBt/yLQ + bf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQ + bf8i0G3/H9J2/xXeo/8L6tH/Aff//wH3//8B9///D+W//yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQ + bf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQ + bf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQ + bf8tt2P/R31N/15MOv9lVTn/c2U4/3NlOP9eTDr/Xkw6/15MOv9MPS//BQQD/wAAAP+kr6r/7+7t/+/u + 7f/v7u3/7+7t/6+vrlYAAAAKAAAAAQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAABAAAABTOzc2V8vHx//Lx8f/y8fH/8vHx/03Uk/8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQ + bf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQ + bf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/F9ya/w3oyP8B9///Aff//wH3//8B9///Aff//wH3 + //8V3qP/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQ + bf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQ + bf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/Jcdp/0COU/9fZz//bV44/15M + Ov9eTDr/TD0v/wUEA/8AAAD/d4J+/+/u7f/v7u3/7+7t/+/u7f/X1tWfAAAAEQAAAAMAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABAAAACQAAACDr6url8vHx//Lx + 8f/y8fH/4u7q/yrQeP8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQ + bf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8b14j/D+W//wP0 + 9f8B9///Aff//wH3//8B9///Aff//wH3//8B9///Aff//xvXiP8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQ + bf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQ + bf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQ + bf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf84nln/Xkw6/zovJP8FBAP/AAAA/1lZWf/v7u7/7+7u/+/u + 7f/v7u3/5uXk1mVkZCUAAAAGAAAAAQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAADAAAAD6WkpF3y8fH/8vHx//Lx8f/y8fH/u+fR/x/Pbv8i0G3/ItBt/yLQ + bf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQ + bf8i0G3/ItBt/x3Uf/8R47b/BfLs/wH3//8B9///Aff//wH3//8B9///Aff//wH3//8B9///Aff//wH3 + //8B9///ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQ + bf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQ + bf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQ + bf8jPib/AAAA/wAAAP9ZWVn/7+7u/+/u7v/v7u7/7+7u/+zr6/Gjo6JFAAAACQAAAAEAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAFAAAAFtXU + 1KLy8fH/8vHx//Lx8f/y8fH/kuC6/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQ + bf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/H9J2/xPhrP8H7+P/Aff//wH3//8B9///Aff//wH3 + //8B9///Aff//wH3//8B9///Aff//wH3//8B9///Aff//wnt2v8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQ + bf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQ + bf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQ + bf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/xN1Pf8AAAD/WWRh/+/u7v/v7u7/7+7u/+/u + 7v/v7u7/vr29ZAAAAAwAAAACAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAEAAAAIW1paKujn59fy8fH/8vHx//Lx8f/y8fH/Z9mk/yLQ + bf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8f0nb/Fd6j/wvq + 0f8B9///Aff//wH3//8B9///Aff//wH3//8B9///Aff//wH3//8B9///Aff//wH3//8B9///APT//wDp + //8A3f//DtG//yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQ + bf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQ + bf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItJy/yLS + cv8i0G3/EWg2/1mHeP/v7u7/7+7u/+/u7v/v7u7/7+7u/8bFxXMAAAAOAAAAAwAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAIAAAALnZycSe/u7vHy8fH/8vHx//Lx8f/y8fH/bduf/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQ + bf8i0G3/ItBt/yLQbf8X3Jr/DejI/wP09f8B9///Aff//wH3//8B9///Aff//wH3//8B9///Aff//wH3 + //8B9///Aff//wH3//8B9///AOv//wDf//8A0v//ANL//wDS//8V0KP/ItBt/yLQbf8i0G3/ItBt/yLQ + bf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQ + bf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQ + bf8i0G3/ItBt/yLQbf8i0G3/ItBt/yPYgv8m7Lb/ItJy/yLQbf9k1KL/7+7u/+/u7v/v7u7/7+7u/+/u + 7v/GxcVzAAAADwAAAAQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAMAAAAOrKurWfLx8f/y8fH/8vHx//Lx + 8f/y8fH/fd6m/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/xvXiP8P5b//A/T1/wH3//8B9///Aff//wH3 + //8B9///Aff//wH3//8B9///Aff//wH3//8B9///Aff//wH3//8A6///AN///wDU//8A0v//ANL//wDS + //8A0v//ANL//x3Qf/8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQ + bf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQ + bf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLUd/8l5qb/J/DB/ybs + tv8i0G3/ItBt/9br3f/w7+7/7+7u/+/u7v/v7u7/xsbGcgAAAA4AAAAEAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAQAAAAQx8bGdPLx8f/y8fH/8vHx//Lx8f/y8fH/pOS//yLQbf8Z0JH/CNHa/wvh + 0f8F8uz/Aff//wH3//8B9///Aff//wH3//8B9///Aff//wH3//8B9///Aff//wH3//8B9///Aff//wDw + //8A4v//ANT//wDS//8A0v//ANL//wDS//8A0v//ANL//wDS//8C0fX/ItBt/yLQbf8i0G3/ItBt/yLQ + bf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQ + bf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQ + bf8i0G3/ItBt/yLUd/8l5KH/J/DB/yfwwf8l6Kz/I9iC/yLQbf8u0XX/8O/u//Dv7v/w7+7/7+7u/7m4 + uHsAAAARAAAABAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAQAAAAQxcTEdfLx + 8f/y8fH/8vHx//Lx8f/y8fH/sebH/wLR9f8A0v//Aff//wH3//8B9///Aff//wH3//8B9///Aff//wH3 + //8B9///Aff//wH3//8B9///APD//wDi//8A1v//ANL//wDS//8A0v//ANL//wDS//8A0v//ANL//wDS + //8A0v//ANL//wjR2v8i0G3/ItR3/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQ + bf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQ + bf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLUd/8l5KH/J/DB/yfwwf8m7Lb/I9yM/yLQ + bf8i0G3/ItBt/1PWjv/w7+7/8O/u//Dv7v/n5uXnAAAAJQAAAAkAAAABAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAUAAAAVtLOzgOzr6/Ty8fH/8vHx//Lx8f/T7fL/ANL//wDY + //8B9///Aff//wH3//8B9///Aff//wH3//8B9///Aff//wH3//8A8v//AOT//wDW//8A0v//ANL//wDS + //8A0v//ANL//wDS//8A0v//ANL//wDS//8A0v//ANL//wDS//8A0v//EdG2/yTgl/8n8MH/Juqx/yPc + jP8i0nL/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQ + bf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yPa + h/8l5qb/J/DB/yfwwf8l6Kz/I9yM/yLQbf8i0G3/ItBt/yLQbf8i0G3/id+t//Dv7v/w7+7/8O/u/9nY + 18EAAAAcAAAABQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAgAA + AA8AAAA0sbCwrfLx8f/y8fH/8vHx/6bn9f8A0v//AN///wH3//8B9///Aff//wH3//8B9///Aff//wDy + //8A5v//ANj//wDS//8A0v//ANL//wDS//8A0v//ANL//wDS//8A0v//ANL//wDS//8A0v//ANL//wDS + //8A0v//ANL//wDS//8X0Jr/Jeam/yfwwf8n8MH/J/DB/ybuu/8k4pz/ItR3/yLQbf8i0G3/ItBt/yLQ + bf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQ + bf8i0G3/ItBt/yLQbf8i0G3/I9qH/yXkof8m7rv/J/DB/ybuu/8l5KH/ItZ8/yLQbf8i0G3/ItBt/yLQ + bf8i0G3/ItBt/yLQbf+t5Mb/8O/u//Dv7v/w7+7/x8bFmQAAABYAAAADAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACAAAAEQAAADjY19fW8vHx//Lx8f/y8fH/ad/4/wDS + //8A5v//Aff//wH3//8B9///APT//wDp//8A2P//ANL//wDS//8A0v//ANL//wDS//8A0v//ANL//wDS + //8A0v//ANL//wDS//8A0v//ANL//wDS//8A0v//ANL//wDS//8A0v//ANL//xPQrP8i0G3/ItR3/yTi + nP8m7rv/J/DB/yfwwf8n8MH/Jeis/yPcjP8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQ + bf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLUd/8j3Iz/JeSh/ybuu/8n8MH/Juy2/yXk + of8j2of/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/9Tp3//w7+7/8O/u//Dv + 7v+ZmJhjAAAAEAAAAAIAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAMAAAAUAAAAPezr6/Xy8fH/8vHx//Lx8f882fv/ANL//wDt//8A9P//AOn//wDd//8A0v//ANL//wDS + //8A0v//ANL//wDS//8A0v//ANL//wDS//8A0v//ANL//wDS//8A0v//ANL//wDS//8A0v//ANL//wDS + //8A0v//ANL//wDS//8A0v//CtHR/yLQbf8i0G3/ItBt/yLQbf8j3Iz/Jeis/yfwwf8n8MH/J/DB/ybu + u/8k4pz/ItR3/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8j2IL/JN6R/yXk + of8m7Lb/Juy2/yXorP8k4Jf/I9qH/yLUd/8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQ + bf8i0G3/ItBt/yLQbf8s0Hb/8O/u//Dv7v/w7+7/8O/u/0RDQzgAAAALAAAAAQAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAgAAABMAAAA88vHx//Lx8f/y8fH/8vHx/wDS + //8A0v//AN3//wDS//8A0v//ANL//wDS//8A0v//ANL//wDS//8A0v//ANL//wDS//8A0v//ANL//wDS + //8A0v//ANL//wDS//8A0v//ANL//wDS//8A0v//ANL//wDS//8A0v//ANL//wDS//8C0fX/ItBt/yLQ + bf8i0G3/ItBt/yLQbf8i0G3/ItZ8/yXkof8m7rv/J/DB/yfwwf8n8MH/Jeam/yPah/8i0G3/ItBt/yLQ + bf8i0nL/I9yM/yPYgv8k3pH/JOCX/yPcjP8j2IL/ItZ8/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQ + bf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/2LZlf/w7+//8O/u//Dv + 7v/o5+bmAAAAIgAAAAcAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAACAAAADgAAADDy8fH/8vHx//Lx8f/y8fH/Wtzy/wDS//8A0v//ANL//wDS//8A0v//ANL//wDS + //8A0v//ANL//wDS//8A0v//ANL//wDS//8A0v//ANL//wDS//8A0v//ANL//wDS//8A0v//ANL//wDS + //8A0v//ANL//wDS//8A0v//ANL//wDS//8b0Ij/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLS + cv8k3pH/Juy2/yfwwf8n8MH/J/DB/ybstv8k4Jf/ItR3/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQ + bf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQ + bf8i0G3/ItBt/yLQbf8i0G3/id+u//Dv7//w7+//8O/u/9PS0rQAAAAbAAAABQAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAIAAAAH+vq6uXy8fH/8vHx//Lx + 8f/y8fH/ed7Z/wDR9/8A0v//ANL//wDS//8A0v//ANL//wDS//8A0v//ANL//wDS//8A0v//ANL//wDS + //8A0v//ANL//wDS//8A0v//ANL//wDS//8A0v//ANL//wDS//8A0v//ANL//wDS//8A0v//ANL//xHR + tv8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/I9iC/yXmpv8n8MH/J/DB/yfw + wf8n8MH/Jeam/yPYgv8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQ + bf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf+8587/8O/v//Dv + 7//w7+//vr6+jAAAABQAAAADAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAMAAAAPuLi4aPLx8f/y8fH/8vHx//Lx8f/y8fH/tefd/x7T5v8A0v//ANL//wDS + //8A0v//ANL//wDS//8A0v//ANL//wDS//8A0v//ANL//wDS//8A0v//ANL//wDS//8A0v//ANL//wDS + //8A0v//ANL//wDS//8A0v//ANL//wDS//8A0v//CNHa/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQ + bf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLUd/8k4Jf/Ju67/yfwwf8n8MH/J/DB/ybstv8k3pH/ItJy/yLQ + bf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQ + bf8i0G3/ItBt/yLQbf8i0G3/ItBt/+Hr6P/w7+//8O/v//Dv7/+bm5tiAAAADwAAAAIAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAUAAAARxcTEdfLx + 8f/y8fH/8vHx//Lx8f/y8fH/4u7q/2nc2v8A0O//ANL//wDS//8A0v//ANL//wDS//8A0v//ANL//wDS + //8A0v//ANL//wDS//8A0v//ANL//wDS//8A0v//ANL//wDS//8A0v//ANL//wDS//8A0v//ANL//wDS + //8A0v//ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQ + bf8i0G3/I9yM/yXorP8n8MH/J/DB/yfwwf8n8MH/JeSh/yPYgv8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQ + bf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf850n7/8O/v//Dv + 7//w7+//8O/v/wAAACoAAAALAAAAAQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAQAAAAUAAAAPy8rKce/u7vHy8fH/8vHx//Lx8f/y8fH/8vHx/8Tp + 5P88193/ANH3/wDS//8A0v//ANL//wDS//8A0v//ANL//wDS//8A0v//ANL//wDS//8A0v//ANL//wDS + //8A0v//ANL//wDS//8A0v//ANL//wDS//8A0v//ANL//wDS//8Z0JH/ItBt/yLQbf8i0G3/ItBt/yLQ + bf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLWfP8l5KH/Ju67/yfw + wf8n8MH/J/DB/ybstv8k3pH/ItJy/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQ + bf8i0G3/ItBt/yLQbf8i0G3/ItBt/2DYlv/w7+//8O/v//Dv7//j4uLaAAAAIQAAAAcAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAMAAAAMqqmpQ+rp6dXy8fH/8vHx//Lx8f/y8fH/8vHx//Lx8f+15+X/PNjs/wDS//8A0v//ANL//wDS + //8A0v//ANL//wDS//8A0v//ANL//wDS//8A0v//ANL//wDS//8A0v//ANL//wDS//8A0v//ANL//wDS + //8A0v//ANL//xHRtv8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQ + bf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0nL/JN6R/ybstv8n8MH/J/DB/yfwwf8n8MH/JeSh/yPY + gv8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/leG2//Dv + 7//w7+//8O/v/9TT07MAAAAZAAAABAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAIAAAAHAAAAE9nY2I7y8fH/8vHx//Lx + 8f/y8fH/8vHx//Lx8f/y8fH/tefl/zzY7P8A0v//ANL//wDS//8A0v//ANL//wDS//8A0v//ANL//wDS + //8A0v//ANL//wDS//8A0v//ANL//wDS//8A0v//ANL//wDS//8A0v//CNHa/yLQbf8i0G3/ItBt/yLQ + bf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQ + bf8i0G3/ItBt/yPYgv8l5qb/J/DB/yfwwf8n8MH/J/DB/ybstv8k3pH/ItJy/yLQbf8i0G3/ItBt/yLQ + bf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf+8587/8O/v//Dv7//w7+//wL+/iwAAABMAAAADAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAEAAAAEAAAADJKRkTTo5+fG8vHx//Lx8f/y8fH/8vHx//Lx8f/y8fH/8vHx/9Ps + 6/9a3Or/D9P+/wDS//8A0v//ANL//wDS//8A0v//ANL//wDS//8A0v//ANL//wDS//8A0v//ANL//wDS + //8A0v//ANL//wDS//8A0v//ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQ + bf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i1Hf/JOCX/ybu + u/8n8MH/J/DB/yfwwf8n8MH/JeSh/yPah/8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt//Dv + 7//w7+//8O/v//Dv7/+Hh4dUAAAADgAAAAEAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACAAAABgAA + AA66ublS5+bmx/Lx8f/y8fH/8vHx//Lx8f/y8fH/8vHx//Lx8f/i7ur/l+X2/y3X9P8A0v//ANL//wDS + //8A0v//ANL//wDS//8A0v//ANL//wDS//8A0v//ANL//wDS//8A0v//ANL//wDS//8Z0JH/ItBt/yLQ + bf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQ + bf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yPcjP8l6Kz/J/DB/yfwwf8n8MH/J/DB/ybs + tv8k4pz/ItZ8/yLQbf8i0G3/ItBt/yLQbf9I1YX/8O/v//Dv7//w7+//8O/v/wAAACgAAAAKAAAAAQAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAgAAAAcAAAAR0M/Pb+vq6tXy8fH/8vHx//Lx + 8f/y8fH/8vHx//Lx8f/y8fH/8vHx/8Tq7P9p3un/HtX1/wDS//8A0v//ANL//wDS//8A0v//ANL//wDS + //8A0v//ANL//wDS//8A0v//ANL//xHRtv8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQ + bf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQ + bf8i0G3/ItBt/yLQbf8i1Hf/JeSh/ybuu/8n8MH/J/DB/yfwwf8n8MH/Juy2/yXorP8j2IL/ItBt/23b + n//w7+//8O/v//Dv7//e3d3OAAAAIAAAAAcAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAQAAAAMAAAAIAAAAELy7u1Hp6OjG8vHx//Lx8f/y8fH/8vHx//Lx8f/y8fH/8vHx//Lx + 8f/y8fH/xOrs/2ne6f8e1O7/ANL//wDS//8A0v//ANL//wDS//8A0v//ANL//wDS//8A0v//BtHj/yLQ + bf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQ + bf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItJy/yPc + jP8m7Lb/J/DB/yfwwf8n8MH/J/DB/yTgl/8i0G3/lOG3//Hw7//w7+//8O/v/83MzKcAAAAZAAAABAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAEAAAACAAAABgAA + AA2WlZUz4+Liqe/u7vHy8fH/8vHx//Lx8f/y8fH/8vHx//Lx8f/y8fH/8vHx//Lx8f/T7Ov/iOLo/0va + 6/8P0ef/ANL//wDS//8A0v//ANL//wDS//8A0v//H9B2/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQ + bf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQ + bf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8j2IL/JeSh/yfwwf8n8MH/JOCX/yLQ + bf+758//8fDv//Hw7//x8O//trW1fgAAABIAAAACAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAgAAAAUAAAAKdHR0IdHQ0G7r6urU8vHx//Lx + 8f/y8fH/8vHx//Lx8f/y8fH/8vHx//Lx8f/y8fH/8vHx//Lx8f/T6+P/l+Tn/3ng8P881+T/HtTu/wDR + 9/8X0Jr/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQ + bf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQ + bf8i0G3/ItBt/yLQbf8i0G3/ItR3/yTgl/8i0nL/ItBt//Hw7//x8O//8fDv//Hw7/+NjIxRAAAADAAA + AAEAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAEAAAADAAAABwAAAA2ZmJgy4eDgmu3s7OLy8fH/8vHx//Lx8f/y8fH/8vHx//Lx + 8f/y8fH/8vHx//Lx8f/y8fH/8vHx//Lx8f/y8fH/8vHx/5fit/8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQ + bf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQ + bf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yzR + dv+u5cj/8fDv//Hw7//x8O//8fDv/wAAACAAAAAHAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAgAA + AAQAAAAIAAAAD7OyskDc3NyL6+rq1PLx8f/y8fH/8vHx//Lx8f/y8fH/8vHx//Lx8f/y8fH/8vHx//Lx + 8f/y8fH/y+rY/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQ + bf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQ + bf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf9e2Jj/1evh//Hw8P/x8PD/8fDv//Hw7//h4eC7AAAAEwAA + AAMAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACAAAABAAAAAcAAAAMc3NzIdPT + 023k4+Oo7u3t4vLx8f/y8fH/8vHx//Lx8f/y8fH/8vHx//Lx8f/y8fH/L9J1/yLQbf8i0G3/ItBt/yLQ + bf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQ + bf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf9R1pD/uebS//Hw + 8P/x8PD/8fDw//Hw8P/x8PD/7u3t8ZGQkDQAAAAIAAAAAQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAEAAAADAAAABQAAAAkAAAANdHR0Ic7NzV3e3d2K5+bmt+rp + 6dby8fH/8vHx//Lx8f9j2pb/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQ + bf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQ + bf8i0G3/ItBt/yzRdv9r2qH/yOnY//Hw8P/x8PD/8fDw//Hw8P/x8PD/8fDw/+3s7OKwr69BAAAACQAA + AAIAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAQAAAAEAAAACAAAABAAAAAcAAAAKAAAAFgAAADTt7Ozz8vHx/5fit/8i0G3/ItBt/yLQ + bf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQ + bf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/KtB4/17YmP+d4cP/4e3p//Hw8P/x8PD/8fDw//Hw + 8P/x8PD/8fDw//Hw8P/e3t6bdnZ2IAAAAAcAAAABAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAEAAAAJAAAAI9jX18Py8fH/y+rY/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQ + bf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/Hc5w/yjQef9c2Jr/g96z/7bm + 0//x8PD/8fDw//Hw8P/x8PD/8fDw//Hw8P/x8PD/8fDw//Hw8P/p6OjFsrKyQAAAAAsAAAAEAAAAAQAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAQAAAAYvby8jvLx8f/y8fH/vujQ/67m + yf+H4LD/iuCv/03WlP9P1pL/VtiO/1bYjv9W2I7/KNB5/xnOc/8304D/VtiO/1HXkf9N1pT/TdaU/3jd + qf+B3rX/n+PC/7Xm1f/i7un/8fDw//Hw8P/x8PD/8fDw//Hw8P/x8PD/8fDw//Hw8P/x8PD/8fDw//Hw + 8P/p6OjFw8LCTgAAAAwAAAAFAAAAAQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAgAAAA6OjY1R8vHx//Lx8f/y8fH/8vHx//Lx8f/y8fH/8vHx//Lx8f/y8fH/8vHx//Lx + 8f/y8fH/8vHx//Lx8f/y8fH/8vHx//Lx8f/y8fH/8vHx//Lx8f/y8fH/8vHx//Lx8f/y8fD/8vHw//Hw + 8P/x8PD/8fDw//Hw8P/x8PD/8fDw/+/u7vDg39+ZnZycMAAAAAsAAAAFAAAAAQAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABgAAABjm5eXI8vHx//Lx + 8f/y8fH/8vHx//Lx8f/y8fH/8vHx//Lx8f/y8fH/8vHx//Lx8f/y8fH/8vHx//Lx8f/y8fH/8vHx//Lx + 8f/y8fH/8vHx//Lx8f/y8fH/8vHx//Lx8f/y8fD/8vHw//Lx8P/x8PD/7ezs4uTj46jPzs5cAAAADwAA + AAgAAAAEAAAAAQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAABAAAACWdnZyXr6urU8vHx//Lx8f/y8fH/8vHx//Lx8f/y8fH/8vHx//Lx + 8f/y8fH/8vHx//Lx8f/y8fH/8vHx//Lx8f/y8fH/8vHx//Lx8f/y8fH/8vHx//Lx8f/y8fH/8vHx/+zr + 69Tl5OSo29raerq5uD4AAAAOAAAACAAAAAQAAAACAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABAAAABgAA + AA7R0NBc397eidzb24vq6enF6unpxeno6Mbu7e3i8vHx//Lx8f/y8fH/8vHx//Lx8f/y8fH/8O/v8Ono + 6Mbq6enF6unpxeHg4Jnf3t6Jzc3NXcnIyEwAAAAQAAAADAAAAAgAAAAFAAAAAwAAAAEAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAgAAAAQAAAAGAAAABwAAAAkAAAAKAAAACwAA + AAwAAAAOAAAADwAAABAAAAAQAAAADwAAAA4AAAAMAAAACwAAAAoAAAAJAAAABwAAAAYAAAAEAAAAAwAA + AAIAAAABAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAEAAAABAAAAAQAAAAEAAAACAAAAAgAAAAIAAAACAAAAAQAA + AAEAAAABAAAAAQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAD///////////////////////////// + ///////////////////////4Af/////////////////8AAAD////////////////wAAAAD////////// + /////gAAAAAH//////////////gAAAAAAf/////////////AAAAAAAA/////////////AAAAAAAAH/// + /////////AAAAAAAAAf///////////gAAAAAAAAB///////////gAAAAAAAAAH//////////wAAAAAAA + AAA//////////wAAAAAAAAAAH/////////4AAAAAAAAAAAf////////8AAAAAAAAAAAD////////+AAA + AAAAAAAAAf////////AAAAAAAAAAAAD////////gAAAAAAAAAAAAf///////wAAAAAAAAAAAAD////// + /4AAAAAAAAAAAAAf//////8AAAAAAAAAAAAAD//////+AAAAAAAAAAAAAAf//////AAAAAAAAAAAAAAH + //////wAAAAAAAAAAAAAA//////4AAAAAAAAAAAAAAH/////8AAAAAAAAAAAAAAA/////+AAAAAAAAAA + AAAAAP/////gAAAAAAAAAAAAAAB/////wAAAAAAAAAAAAAAAf////8AAAAAAAAAAAAAAAD////+AAAAA + AAAAAAAAAAAf////gAAAAAAAAAAAAAAAH////wAAAAAAAAAAAAAAAA////8AAAAAAAAAAAAAAAAP///+ + AAAAAAAAAAAAAAAAB////gAAAAAAAAAAAAAAAAf///wAAAAAAAAAAAAAAAAH///8AAAAAAAAAAAAAAAA + A////AAAAAAAAAAAAAAAAAP///gAAAAAAAAAAAAAAAAD///4AAAAAAAAAAAAAAAAAf//+AAAAAAAAAAA + AAAAAAH///AAAAAAAAAAAAAAAAAB///wAAAAAAAAAAAAAAAAAP//8AAAAAAAAAAAAAAAAAD//+AAAAAA + AAAAAAAAAAAA///gAAAAAAAAAAAAAAAAAP//4AAAAAAAAAAAAAAAAAD//+AAAAAAAAAAAAAAAAAAf//A + AAAAAAAAAAAAAAAAAH//wAAAAAAAAAAAAAAAAAB//8AAAAAAAAAAAAAAAAAAf//AAAAAAAAAAAAAAAAA + AH//wAAAAAAAAAAAAAAAAAB//8AAAAAAAAAAAAAAAAAAf//AAAAAAAAAAAAAAAAAAH//wAAAAAAAAAAA + AAAAAAB//8AAAAAAAAAAAAAAAAAAf//AAAAAAAAAAAAAAAAAAH//wAAAAAAAAAAAAAAAAAB//8AAAAAA + AAAAAAAAAAAAf//AAAAAAAAAAAAAAAAAAH//wAAAAAAAAAAAAAAAAAB//8AAAAAAAAAAAAAAAAAAf//A + AAAAAAAAAAAAAAAAAH//4AAAAAAAAAAAAAAAAAB//+AAAAAAAAAAAAAAAAAAf//gAAAAAAAAAAAAAAAA + AP//wAAAAAAAAAAAAAAAAAD//8AAAAAAAAAAAAAAAAAA///AAAAAAAAAAAAAAAAAAP//wAAAAAAAAAAA + AAAAAAD//+AAAAAAAAAAAAAAAAAA///gAAAAAAAAAAAAAAAAAf//4AAAAAAAAAAAAAAAAAH//+AAAAAA + AAAAAAAAAAAB///gAAAAAAAAAAAAAAAAA///4AAAAAAAAAAAAAAAAAP///AAAAAAAAAAAAAAAAAD///w + AAAAAAAAAAAAAAAAB///8AAAAAAAAAAAAAAAAAf///gAAAAAAAAAAAAAAAAP///4AAAAAAAAAAAAAAAA + D////AAAAAAAAAAAAAAAAB////wAAAAAAAAAAAAAAAAf///+AAAAAAAAAAAAAAAAP////wAAAAAAAAAA + AAAAAH////8AAAAAAAAAAAAAAAD/////gAAAAAAAAAAAAAAB/////8AAAAAAAAAAAAAAA//////gAAAA + AAAAAAAAAAf/////8AAAAAAAAAAAAAAH//////gAAAAAAAAAAAAAD//////4AAAAAAAAAAAAAA////// + +AAAAAAAAAAAAAAP//////gAAAAAAAAAAAAAD//////4AAAAAAAAAAAAAB//////+AAAAAAAAAAAAAAf + //////wAAAAAAAAAAAAAH//////8AAAAAAAAAAAAAB///////gAAAAAAAAAAAAAf//////4AAAAAAAAA + AAAAP///////gAAAAAAAAAAAAD///////8AAAAAAAAAAAAA////////gAAAAAAAAAAAAP///////+AAA + AAAAAAAAAD////////4AAAAAAAAAAAB/////////AAAAAAAAAAAAf////////8AAAAAAAAAAAH////// + ///4AAAAAAAAAAB//////////gAAAAAAAAAA///////////AAAAAAAAAAP//////////+AAAAAAAAAD/ + //////////8AAAAAAAAB////////////4AAAAAAAA/////////////8AAAAAAAf/////////////gAAA + AAAf/////////////4AAAAAAf//////////////AAAAAAf//////////////wAAAAA////////////// + /+AAAAB////////////////4AAAH/////////////////8AD//////////////////////////////// + /////////////////////////////////////////////////////////////ygAAAAwAAAAYAAAAAEA + IAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAEAAAABAAAAAQAAAAEAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABAAAABQAA + AA8AAAAbAAAAKAAAADIAAAA6AAAAOgAAADIAAAAoAAAAGwAAAA4AAAAFAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAwAA + ABIAAAAwKCgoXX9+fpSko6K3w8LC1MvLyt7KycjgysnI4MvLyt63trbNpKOjt2xra4sAAABQAAAAKgAA + AA4AAAACAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAQAAAAZLi4uUJybm6jT09Ln7ezr/+3s6//t7Ov/zcXE/8O4uP/DuLj/w7i4/8O4uP/Y0tH/7ezr/+3s + 6//k4+L4tbSz0Gxsa4sAAAA+AAAAEQAAAAIAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAABAAAAEDQzM0isq6qw5uXk9+3s7P/NxcX/jnh4/2RFRf9FHx//RR8f/00kIv9oNC3/aDQt/00k + Iv9FHx//Tysr/3lfXv+un57/4t/e/+3s6//Kycjfb29uhwAAADAAAAAIAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAIAAAAcioqJiOfm5fXu7ez/rp+f/2RFRf9FHx//cDkx/5NOQP+uXkv/pVhH/4JD + OP9oNC3/aDQt/1YpJv9FHx//RR8f/0UfH/9FHx//RR8f/4Rra//Y0tH/7ezr/7q5uMosLCxVAAAADwAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAABAAAACy5uLe47u3s/87Gxf9kRUX/Vikm/5NOQP/IbVb/tmNO/3k+ + Nf9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9PKyv/mYWF/+3s + 6//c29rvX15edwAAABkAAAABAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAADQ0NDONXU1NXu7ez/pJKS/00kIv+LSTz/0XNa/79o + Uv95PjX/RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0Uf + H/9FHx//RR8f/2RFRf/i397/5eTj9lxbW3oAAAAZAAAAAQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAEAAAAj1tXU1e7t7f+EbGz/aDQt/79o + Uv/Rc1r/nFND/00kIv9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0Uf + H/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9PKyv/zcXE/+Xk4/ZdXFx5AAAAEQAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABfKycm77+7t/4Rs + bP95PjX/0XNa/9FzWv+cU0P/RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0Uf + H/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//Tysr/83FxP/l5OP3a2pqaQAA + AAoAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACq2s + rIPv7u3/moaG/3k+Nf/Rc1r/0XNa/7ZjTv9FHx//RR8f/0UfH/9FHx//RR8f/zwbG/8zFxf/MxcX/0Uf + H/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/1o4 + OP/i397/2NfW4wAAADYAAAADAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAACQUFBOurp6fTEurr/Xy4q/8htVv/Rc1r/0XNa/2MyK/8rExP/GQsL/xEHB/8AAAD/AAAA/wAA + AP8AAAD/AAAA/wAAAP8AAAD/CAMD/xEHB/8iDw//MxcX/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0Uf + H/9FHx//RR8f/0UfH/95X17/7ezr/6+vrqsAAAAWAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAARzczMue/u7v9aODj/tmNO/9FzWv/MblT/ikk2/wAAAP8XEw7/LyYd/0A0 + J/9GOSv/TD0v/0Zta/9Gb2v/R1s8/0Y5K/9GOSv/LyYd/yMcFf8RDgr/AAAA/wQBAf8ZCwv/MxcX/0Uf + H/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//uKur/+3s6/9WVVVXAAAAAwAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAFtbGxG7+7u/6STk/+LSTz/z3FY/5VNOf9BJhv/Oi8k/1JP + Qv86foP/I5+1/xG42v8A0v//ANL//wDS//8A3///I9iC/yPYgv8j2IL/Lblo/zSmXf9DhVD/TGA//zov + JP8dFxL/AAAA/wgDA/8rExP/RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//Wjg4/+3s6//CwcDCAAAAEwAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAjQz8638O/u/2M+PP/FalL/bDoq/0A0 + J/9SXFL/I5+1/wDS//8A0v//ANL//wDS//8A0v//ANL//wDS//8A5v//I9iC/yPah/8k4Jf/JOKc/yXm + pv8l5qb/JN6R/yrDcf9AjlP/SlM5/y8mHf8FBAP/EQcH/zgZGf9FHx//RR8f/0UfH/9FHx//RR8f/66f + nv/t7Ov/PDs7PgAAAAEAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAB3q6ej1r6Gg/34/ + M/9lOyv/WEc2/y+PnP8A0v//ANL//wDS//8A0v//ANL//wDS//8A0v//ANL//wDS//8A7f//HdR//yLQ + bf8i0G3/ItBt/yLQbf8i0G3/I9iC/yTinP8l6Kz/I9yM/zieWf9QVzz/KSEZ/wAAAP8iDw//RR8f/0Uf + H/9FHx//RR8f/2RFRf/t7Ov/oaCfjAAAAAcAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAq6t + rW3w7+//cVxc/3VDMf9YVEb/Ebja/wDS//8A0v//ANL//wDS//8A2///AN///wDk//8A5P//AOn//wDt + //8B9///GdmR/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0nL/I9yM/yXorP8j2of/QI5T/0w9 + L/8RDgr/FQkJ/0AdHf9FHx//RR8f/0UfH//Y0tH/zs3MyQAAABQAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAACNXU1LLl4uL/HREP/1hHNv8RuNr/ANL//wDU//8A3///AOn//wDp//8A3///ANv//wDU + //8A0v//ANL//wDS//8A8v//Fd6j/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLS + cv8k4Jf/Jeam/y25aP9UTzn/IxwV/wwFBf9AHR3/RR8f/0UfH/+jkpH/7ezr/wAAACcAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAE+fm5uatqKj/Oi8k/y+PnP8A0v//AOL//wDm//8A2P//ANL//wDS + //8A0v//ANL//wDS//8A0v//ANL//wDS//8A6///EeO2/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQ + bf8i0G3/ItBt/yLQbf8i0G3/ItZ8/yXmpv8mzXn/UmRD/yMcFf8VCQn/RR8f/0UfH/+Ea2v/7ezr/4WF + hFQAAAABAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAhYSDOfDv7/9paGj/VE85/wXL8v8A6f//ANv//wDS + //8A0v//ANL//wDS//8A0v//ANL//wDS//8A0v//ANL//wDS//8A5P//C+rR/yLQbf8i0G3/ItBt/yLQ + bf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLScv8l6Kz/Js15/1JkQ/8jHBX/Ig8P/0Uf + H/9vUlL/7ezr/4+OjmkAAAADAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAArq2tWPHw7/9TT0r/QX1o/wDk + //8A1P//ANL//wDS//8A0v//ANL//wDS//8A0v//ANL//wDS//8A0v//ANL//wDS//8A2///Ce3a/yLQ + bf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0nL/Jeam/0t1 + Sf9YRzb/FRAM/zwbG/9PKyv/7ezr/8vKyZQAAAAEAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAB2NfXfPHw + 7/9TT0r/LqiH/wDW//8A0v//ANL//wDS//8A0v//ANL//wDS//8A0v//ANL//wDS//8A0v//ANL//wDS + //8A1P//Aff//yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/ym/ + Zv9AjlP/VlxA/15MOv9eTDr/Rjkr/xkLC/9FHx//7ezs/8rJyZUAAAAEAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAA2tnZe/Hw8P9TT0r/K82L/x/qzP8O3ef/ANL//wDS//8A0v//ANL//wDS//8A0v//ANL//wDS + //8A0v//ANL//wDS//8A0v//APL//yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQ + bf80pl3/S3VJ/15MOv9eTDr/Xkw6/15MOv9eTDr/Xkw6/xsUEP9AHR3/7u3s/8vKyZUAAAAEAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAvr29UPHw8P9KUkr/JeSh/yfwwf8n8MH/JO7E/xXi3P8E1ff/ANL//wDS + //8A0v//ANL//wDS//8A0v//ANL//wDS//8A0v//AOv//xnZkf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQ + bf8pv2b/QI5T/1ZcQP9eTDr/Xkw6/15MOv9eTDr/Xkw6/2VVOf9fTTn/Xkw6/zovJP8vFRX/7u3s/83M + y5MAAAADAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAApqWlLvHw8P9xnYT/JOKc/ybstv8n8MH/J/DB/yfw + wf8n8MH/GubU/wzb6/8A0v//ANL//wDS//8A0v//ANL//wDS//8A0v//AOT//xfcmv8i0G3/ItBt/yLQ + bf8i0G3/NKZd/0t1Sf9eTDr/Xkw6/15MOv9eTDr/Xkw6/15MOv9eTDr/Xkw6/2RTOf9kUzn/Xkw6/1JC + Mv83KSn/7u3s/8jHxoQAAAACAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAFPHw8P+J4K7/JOCX/yLQ + bf8j3Iz/Jeis/yfwwf8n8MH/J/DB/yfwwf8i7Mj/Ed/j/wLT+/8A0v//ANL//wDS//8A0v//ANv//xHj + tv8i0G3/Kb9m/0COU/9WXED/Xkw6/15MOv9eTDr/Xkw6/15MOv9eTDr/Xkw6/15MOv9eTDr/Xkw6/2VV + Of9oWDn/Xkw6/15MOv9MQ0L/7u3s/6alpFsAAAABAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAF/Hw + 8P+J4K7/I9yM/yPah/8i0G3/ItBt/yLUd/8k4pz/Ju67/yfwwf8n8MH/J/DB/yfwwf8Y5Nj/Cdnv/wDS + //8A0v//ANT//w3oyP8lx2n/R31N/1pUPf9eTDr/Xkw6/15MOv9eTDr/Xkw6/15MOv9eTDr/Xkw6/15M + Ov9eTDr/Xkw6/2laOP9lVTn/Xkw6/15MOv9saWn/7u3s/4OCgjkAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAFPHw8P+J4K7/ItJy/yXmpv8i0G3/ItBt/yLQbf8i0G3/ItBt/yPcjP8l6Kz/J/DB/yfw + wf8n8MH/J/DB/x/qzP8O3ef/AtP7/wvo0f8i0G3/ItBt/yXHaf88llb/VlxA/15MOv9eTDr/Xkw6/15M + Ov9eTDr/Xkw6/15MOv9eTDr/Xkw6/29gOP9gTzn/Xkw6/1JCMv+FhYX/7u3s/wAAABUAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAC/Lx8f+X4rf/ItBt/yTekf8j2IL/ItBt/yLQbf8i0G3/ItBt/yLQ + bf8i0G3/ItR3/yTinP8m7rv/J/DB/yfwwf8n8MH/JO7E/x7Yj/8i0G3/ItBt/yLQbf8i0G3/ItBt/zGv + YP9LdUn/Xkw6/15MOv9eTDr/Xkw6/15MOv9eTDr/X005/3FjOP9eTDr/Xkw6/zovJP/BwcD/4uHhyQAA + AAgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABOrp6cXI6dn/ItBt/yLQbf8l5KH/ItJy/yLQ + bf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/I9yM/ybqsf8n8MH/J/DB/yLQbf8i0G3/ItBt/yLQ + bf8i0G3/ItBt/yLQbf8i0G3/Kb9m/0OFUP9aVD3/Xkw6/15MOv9eTDr/ZFM5/21eOP9eTDr/Xkw6/zhB + O//v7u3/0M/OgAAAAAEAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAN/e3nny8fH/VtiO/yLQ + bf8i0nL/JeSh/yLScv8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8g2IX/I9yM/yLQ + bf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/OJ5Z/1JkQ/9eTDr/aVo4/2hY + Of9eTDr/LyYd/7Oysf/r6unyh4eGHAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAALOy + shXw7+/wu+fR/yLQbf8i0G3/ItJy/yPYgv8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/Fd6j/wvq + 0f8H7+P/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQ + bf8xr2D/V4NI/2RTOf86LyT/WWRg/+/u7f/f3t2IAAAAAQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAADm5eV18vHx/3rdqP8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/GdmR/w3o + yP8D9PX/Aff//wH3//8N6Mj/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQ + bf8i0G3/ItBt/yLQbf8i0G3/ItBt/yZuPv9ZWVn/7+7u/+jn58QAAAAGAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAD7u3twfLx8f9w3J7/ItBt/yLQbf8i0G3/G9eI/w/l + v/8F8uz/Aff//wH3//8B9///APD//wDi//8T1az/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQ + bf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8j2IL/I9yM/1uygP/v7u7/6unp0qalpRYAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAysnJE/Dv79Dy8fH/ady5/wjW + 2v8H7+P/Aff//wH3//8B9///APL//wDk//8A1v//ANL//wDS//8Z0pb/ItR3/yLQbf8i0G3/ItBt/yLQ + bf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItZ8/yXkof8l6Kz/ItZ8/7znzf/n5uXnjYyMGwAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAHp6 + eh/y8fH/l+X2/wDi//8B9///APL//wDm//8A2P//ANL//wDS//8A0v//ANL//wDS//8k3pH/Ju67/yXk + of8j2IL/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItZ8/yTekf8l6Kz/JeSh/yPYgv8i0G3/ItBt/+Pt + 5f/V1NOzAAAABAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAABLy8fH/eeH4/wDb//8A2P//ANL//wDS//8A0v//ANL//wDS//8A0v//ANL//wDS + //8Z0JH/ItJy/yTekf8m7Lb/Juy2/yTekf8i0nL/I9qH/yPcjP8k3pH/I9yM/yPYgv8i0G3/ItBt/yLQ + bf8i0G3/O9N9//Dv7v/KyciEAAAAAQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAXx8PDv4u/x/zzZ8/8A0v//ANL//wDS//8A0v//ANL//wDS + //8A0v//ANL//wDS//8R0bb/ItBt/yLQbf8i0G3/I9iC/yXkof8n8MH/JeSh/yPYgv8i0G3/ItBt/yLQ + bf8i0G3/ItBt/yLQbf8i0G3/YNiW//Dv7/+5uLhSAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAADi4eEz8O/v4PLx8f+X5O7/HtX9/wDS + //8A0v//ANL//wDS//8A0v//ANL//wDS//8I0dr/ItBt/yLQbf8i0G3/ItBt/yLQbf8i1Hf/JOCX/ybs + tv8m7Lb/I9yM/yLScv8i0G3/ItBt/yLQbf8i0G3/ht6v//Dv7/8AAAAYAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA1tXVEu3s + 7JLy8fH/8vHx/5fl9v8e1fX/ANL//wDS//8A0v//ANL//wDS//8A0v//ItBt/yLQbf8i0G3/ItBt/yLQ + bf8i0G3/ItBt/yLQbf8j3Iz/Jeis/yfwwf8l5KH/I9iC/yLQbf8i0G3/vOfO/+Tj49kAAAAMAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAADf3t4i7u3tofLx8f/y8fH/xOvz/1rd8v8e1f3/ANL//wDS//8A0v//GdCR/yLQ + bf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLUd/8l5KH/Ju67/ybuu/8i1nz/8O/v/9va + 2q4AAAAFAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAOPi4iHu7e2B8O/v4PLx8f/y8fH/xOrs/4ji + 7/9p3vH/L9S0/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItJy/yPc + jP9W3Jj/8fDv/8nIyHIAAAABAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAebl + 5TLt7OyB7u3twfLx8f/y8fH/y+rY/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQ + bf8i0G3/LtJ1/4ngrv/k7uf/7+7u8Lq6uSkAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAHc29s07Ovr5C/Sdf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQ + bf8i0G3/OdN+/2DZl/+h48D/4e3p//Hw8P/t7OzB0dDQJAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAB6ejopPLx8f+76NH/vujQ/77o + 0P++6ND/vujQ/7fn1P/y8fH/8vHw//Hw8P/v7+/w7OvrouPi4kMAAAABAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAz87OEu3s + 7JHv7u7B7u3twe3s7MLt7OzD7u3twu/u7sHs6+uT7u3tgenp6EEAAAADAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAD///4f//8AAP//wAH///////8AAD//9fb//AAAD//////wAAAH/6us/+AAAAP/////wAAAAP/+/v+A + AAAAf/7//wAAAAB/NVL/AAAAAD/3//4AAAAAHwtT/AAAAAAf9v/8AAAAAA8LL/gAAAAAD/X/+AAAAAAH + Cy/4AAAAAAcA//AAAAAABwsv8AAAAAAH9v/wAAAAAAMoL/AAAAAAAyv/8AAAAAADU1LgAAAAAANW//AA + AAAAAwtS8AAAAAAD///wAAAAAAMLUvAAAAAAA///8AAAAAAHAlLwAAAAAAf///AAAAAAB/f18AAAAAAH + ///4AAAAAA//gfgAAAAAD////AAAAAAfAAD8AAAAAD/P//4AAAAAfw///wAAAAB/Df//AAAAAH/M//8A + AAAA/9zf/4AAAAD/7c//wAAAAP/tD//wAAAA/+4P//wAAAD/vg///wAAAf/tz///8AAD/+zP///4AAf/ + 0P////wAP/8O/////////+////////////8oAAAAIAAAAEAAAAABACAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACAAAABwAA + ABEAAAAaAAAAHQAAAB8AAAAdAAAAHAAAABIAAAAIAAAAAgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACAAAADQAA + ACEAAAAuAAAAOQYGBlAMDAxTERERVg8PD1UGBgZQAwMDTwAAAC4AAAAhAAAADgAAAAIAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABwAA + AB8AAAA1ExMTWEJCQnqioqK5x8fG3NLS0ujV1dXr09PT6dDQ0OOkpKS+SUlJgBsbG1wDAwNPAAAAIAAA + AAgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AA0AAAAxFhYWWX5+fp7h4eDx+/v7/+rm5v/Hvb3/uays/7eoqP+4qqr/w7i3/+Tf3//8/Pz/4eHh8oGB + gaQbGxtcAAAAMAAAAA0AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAANAwMDT1dXV3zZ2dnq9vX1/7Wop/9nPTr/eT41/5xTQ/+LSTz/aDQt/18uKv9FHx//RR8f/1Uy + Mv+zpKT/9fT0/9nZ2exZWVmAAwMDTwAAAA4AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAABwMDA06Kioqe9vb2/cq/v/9pOzb/pVhH/79oUv95PjX/RR8f/0UfH/9FHx//RR8f/0Uf + H/9FHx//RR8f/0UfH/9PKyv/z8bF//Ly8vyLi4ugAwMDTgAAAAgAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAEDAwNPiYiImvv7+/+tmZj/k05A/9FzWv+CQzj/RR8f/0UfH/9FHx//RR8f/0Uf + H/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//ppSU//v7+/+KioqeAwMDTwAAAAEAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAI1BQUHX29vX9r5ua/7ZjTv/Rc1r/eT41/0UfH/9FHx//RR8f/0Uf + H/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//p5WV//b29v1VVVV6AAAAIgAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAMMDAxT4+Pj8MzDw/+lWEf/0XNa/5hRQf8vFRX/Ig8P/xEH + B/8RBwf/EQcH/xEHB/8RBwf/Ig8P/ysTE/9AHR3/RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//ysDA/97d + 3e0RERFVAAAAAwAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAIJubm6Ty8fH/jFBF/85wV/+WTzr/NSMa/zQq + IP8vWlz/L4GM/y+PnP81kIH/QI5T/zNiO/81TTH/KSEZ/xEOCv8RBwf/KxMT/0UfH/9FHx//RR8f/0Uf + H/9PKyv/8u/v/5ubmqcAAAAfAAAAAAAAAAAAAAAAAAAAAAAAAAMRERFW5OTk8KuWlf+1YEn/fkw4/0Bo + Z/8dqMH/ANL//wDS//8A0v//ANL//xDk1P8k4pz/JOCX/yTinP8k4Jf/Naxs/zt0Rf8pIRn/DggH/y8V + Ff9FHx//RR8f/0UfH/+ij4//5OTk8QoKClEAAAACAAAAAAAAAAAAAAAAAAAAEnJycor5+fj/cTku/15O + QP8jn7X/ANL//wDS//8A0v//ANL//wDS//8A2///Cera/yLQbf8i0G3/ItBt/yLScv8j3Iz/JeSh/yvL + hv9BeEn/IxwV/xkLC/9FHx//RR8f/08rK//8/Pz/T09PdAAAAAsAAAAAAAAAAAAAAAAAAAAqw8PDztDL + y/9SOyz/Ebja/wDU//8A3///AOT//wDk//8A5P//AOL//wDf//8H7+P/ItBt/yLQbf8i0G3/ItBt/yLQ + bf8i0G3/I9iC/yXkof8xtXD/PDwr/xIKCf9AHR3/RR8f/+fj4/+pqamzAAAAHgAAAAAAAAAAAAAAAQoK + ClLk5OTyjouJ/y+PnP8A3f//AOb//wDW//8A0v//ANL//wDS//8A0v//ANL//wDt//8i0G3/ItBt/yLQ + bf8i0G3/ItBt/yLQbf8i0G3/ItBt/yTinP8vw4L/SEYy/x8QD/9FHx//xbm5/8vLy9cAAAAsAAAAAAAA + AAAAAAAEGRkZWvf39/1cU0v/CtTg/wDb//8A0v//ANL//wDS//8A0v//ANL//wDS//8A0v//AOb//x3U + f/8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yPcjP85pm7/QDQn/ysTE/+lkpL/4+Li7gMD + A08AAAAAAAAAAAAAAAQbGxtc/v7+/yM+Jv8H3vP/ANL//wDS//8A0v//ANL//wDS//8A0v//ANL//wDS + //8A4v//GdmR/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf80pl3/S3VJ/15MOv9eTDr/KyAZ/494 + eP/p6enzAwMDTwAAAAAAAAAAAAAAAxEREVb//v7/KGpJ/yfwwf8f6sz/Dt3n/wDS//8A0v//ANL//wDS + //8A0v//ANL//wDb//8T4az/ItBt/yLQbf8i0G3/ItBt/ym/Zv9AjlP/VlxA/15MOv9eTDr/YVA5/19N + Of9GOSv/hXR0/+jo6PMDAwNPAAAAAAAAAAAAAAABBgYGUOvq6vVzwpj/Jeis/ybuu/8n8MH/JO7E/xXi + 3P8E1ff/ANL//wDS//8A0v//ANL//xHjtv8i0G3/ItBt/zGvYP9LdUn/Xkw6/15MOv9eTDr/Xkw6/15M + Ov9jUjn/Y1I5/15MOv+jnp7/3Nvb5QAAADMAAAAAAAAAAAAAAAEKCgpS6urq9XfgpP8k4pz/ItJy/yPc + jP8m6rH/J/DB/yfwwf8a5tT/DNvr/wDS//8A0v//Ceba/yLQbf9PbUb/Xkw6/15MOv9eTDr/Xkw6/15M + Ov9eTDr/Xkw6/2VVOf9jUjn/Xkw6/7a1tf/Ly8vQAAAAKQAAAAAAAAAAAAAAAQYGBlDq6ur1eOCl/yTi + nP8i0nL/ItBt/yLQbf8j2IL/JeSh/yfwwf8n8MH/IuzI/xPh4P8J49//ItBt/yLQbf80pl3/T21G/15M + Ov9eTDr/Xkw6/15MOv9eTDr/a1s4/2BPOf9YRzb/5OTk/6enp6gAAAAbAAAAAAAAAAAAAAAAAAAAMtzc + 3OSq6cX/ItJy/yTinP8i0G3/ItBt/yLQbf8i0G3/ItJy/yTekf8m7Lb/J/DB/yTekf8i0G3/ItBt/yLQ + bf8i0G3/Kb9m/0OFUP9aVD3/Xkw6/15MOv9vYDj/Xkw6/0k+M//8/Pz/QUFBZQAAAAcAAAAAAAAAAAAA + AAAAAAAaqKiopvL59f8i0G3/ItZ8/yTgl/8i0G3/ItBt/yLQbf8i0G3/ItBt/x/Sdv8f3JT/ItR3/yLQ + bf8i0G3/ItBt/yLQbf8i0G3/ItBt/yXHaf84nln/WV9A/2xdOP9SQjL/uLe3/9vb2+IAAAAyAAAAAAAA + AAAAAAAAAAAAAAAAAAEDAwNO7u7u97Hryv8i0G3/ItBt/yLQbf8i0G3/ItBt/xfcmv8N6Mj/Aff//xPh + rP8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/NodM/6Wjof/5+fn+ZWVlcwAA + ABIAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAB9+fn6A+fn5/qXpwv8b0Ij/G9eI/w/lv/8D9PX/Aff//wDw + //8A3///G9KI/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItR3/yXmpv9e0Zf/+fn5/n9/ + f4IAAAAoAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACiCgoKI/Pz8/wLb9f8B9///APD//wDi + //8A1v//ANL//wDS//8k4Jf/JeSh/yLUd/8i0G3/ItBt/yLQbf8i0nL/I9qH/yTinP8l5KH/ItR3/8Du + 0//Ly8vPAAAAKQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAxYWFln+/v7/D9j+/wDW + //8A0v//ANL//wDS//8A0v//ANL//x3Qf/8j2IL/Jeam/yXorP8k4Jf/I9qH/yPcjP8j2IL/ItBt/yLQ + bf8i0G3/6Pfu/6ioqKcAAAAbAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAMNva + 2t/s+Pn/ceP8/wDS//8A0v//ANL//wDS//8A0v//E9Cs/yLQbf8i0G3/ItR3/yTgl/8m7Lb/JOKc/yLU + d/8i0G3/ItBt/yLQbf/8/f3/RUVFaQAAAAgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAARAAAAMKenp6H09PT74/f7/3Hj9v8A0v//ANL//wDS//8K0dH/ItBt/yLQbf8i0G3/ItBt/yLQ + bf8j3Iz/Jeis/yXorP8j3Iz/XNuW//X19fwKCgpSAAAAAQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAJAAAAEO1tbWv7u3t9/v9/f/R9Pv/juj2/2Dg9P8i0G3/ItBt/yLQ + bf8i0G3/ItBt/yLQbf8i0G3/ItZ8/yXkof+Z6sT/4uLi7AAAADcAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAB8AAAA/YmJicMDAwLzh4eHo7u7u+JDm + tP8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf851H//v+7T//z9/P+mpqahAAAAGQAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAKAAAAIgAA + ADWAgICD//////////////////////////////////////n5+f7a2trfYmJicAAAAC0AAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAC1wcHCQgYCApoCAgKeAf3+ngYCApnh4eJtYWFh6AAAASAAAADAAAAARAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAP/gA///gAD//wAAf/4AAD/8AAAf+AAAD/AAAAfwAAAH4AAAA+AA + AAPAAAABwAAAAcAAAAGAAAABgAAAAYAAAAGAAAABgAAAAYAAAAGAAAABwAAAAcAAAAPAAAAD4AAAB/AA + AA/wAAAP+AAAD/gAAA/+AAAf/4AAH//gAD///AB/KAAAABAAAAAgAAAAAQAgAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABAAAAA2AwMDR1paWoN+fn6vf39+t319fKwiIiJlAAAAPwAA + ACsAAAAFAAAAAAAAAAAAAAAAAAAAAAAAAAoAAAA+lZWUlODe3vPv6ej/5NLO/9fIxf/RyMj/+fj4/8jH + x9tDQ0NnAAAANAAAAAEAAAAAAAAAAAAAAAAAAAA8tLS0sejd3P/IkoX/eT41/0UfH/9FHx//RR8f/0wn + J/+mlJT/7Ovr+kpKSm0AAAAoAAAAAAAAAAAAAAAolJSUkevg3v/PiXb/Tici/yIPD/8iDw//KxMT/zgZ + Gf9FHx//RR8f/6KPj//k4uL1CgoKUQAAAAIAAAAAAAAARu/u7fvSmor/VICE/x2bsf8XsM3/LLyQ/zO/ + iv8pg1r/JDAg/zEYF/9FHx//w7e3/7W0tLcAAAAgAAAAD319fYHr5eP/HbTO/wDf//8A3f//AN///xnZ + kf8i0G3/ItZ8/yTgl/8un2z/KSQb/3JYWP/d3NzvAAAAOQAAACfKysrJlcTH/wDi//8A1P//ANL//wDS + //8R4bb/ItBt/yLQbf8i0G3/ItZ8/y/Hjf9GMzD/8vHx/QMDA04AAAAnysrKyYjTx/8H1/P/ANL//wDS + //8A0v//D9y//yLQbf8i0G3/Jcdp/zyWVv9XXkD/UkIy//7+/v8GBgZQAAAAJsrKysiR6cj/Jeam/x/q + zP8O3ef/ANL//wja2v8pv2b/R31N/15MOv9eTDr/Y1I5/3prVv/m5eX6AwMDTwAAACLAwMC7pO7N/yPY + gv8i1Hf/JOCX/yPquv8V5dH/ItBt/ym/Zv9HfU3/WlQ9/2dWOf+QhHj/1dTU6wAAADYAAAAKY2NjcO77 + 9P9S4J3/ItBt/yLQbf8V3qP/INiF/yLQbf8i0G3/ItBt/yXHaf9hnWT/3dvZ/5SUk5IAAAAXAAAAAAAA + AC20s7OtwPLs/w3oyP8C6fX/AN///yTekf8i0nL/ItBt/yLWfP8k3pH/pO/O/8DAwMIAAAAtAAAAAAAA + AAAAAAAAAAAASPX5+v536P//ANL//wDS//8g1ID/JOKc/yXorP8k4Jf/ItBt/9336f+BgICGAAAAEAAA + AAAAAAAAAAAAAAAAAChiYmJvz9nb3/b9/v+x8P7/Sdqw/yLQbf8i0G3/I9yM/0Xor//9//7/CgoKUgAA + AAEAAAAAAAAAAAAAAAAAAAAAAAAAEAAAADA7OztetLS0rery7vvV9eP/1fXj/9X14//0+Pb+uL67vQAA + AC0AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABQAAACRiYmJvfX19m319fZt9fX2aAAAASAAA + ACgAAAACAAAAAAAAAADgAzV7wAEAAMABAACAAMABgACAAAAAgAAAAAAAAAAAAAAAAAAAAAAAAAAAAIAB + AADAAYABwAHAAeADwAH4A+AD + + + \ No newline at end of file diff --git a/ArinWarev1/Forms/v20091231/Frm_v20091231_Report.vb b/ArinWarev1/Forms/v20091231/Frm_v20091231_Report.vb new file mode 100644 index 0000000..c0a106a --- /dev/null +++ b/ArinWarev1/Forms/v20091231/Frm_v20091231_Report.vb @@ -0,0 +1,284 @@ +Public Class Frm_v20091231_Report + +#Region "data Base 변경여부및 적용방법" + + '''변경된내용을적용한다. + Public Overrides Function AcceptChanged() As Boolean + + Return True + End Function + + '''변경된내용이있다면 취소한다. + Public Overrides Function RejectChanged() As Boolean + + Return True + End Function + + '''데이터에변형이있었는가? + Public Overrides Function HasChanged() As Boolean + Return False + End Function + +#End Region + + + Private Sub Frm_v20091231_Result_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load + Me.DSR.TReqUse.Merge(DSETR.TReqUse) + MakeGraphTable() + Me.ReportViewer1.ZoomMode = Microsoft.Reporting.WinForms.ZoomMode.PageWidth + Me.ReportViewer1.ZoomPercent = 100 + Me.ReportViewer1.RefreshReport() + End Sub + Private Sub MakeGraphTable() + If DSR.TReqUse.Rows.Count < 1 Then Return + + Dim Dr As DSR.Graph_ReqRow + For Gubun As Short = 0 To 1 + For mon As Short = 1 To 12 + If Gubun = 0 Then '//6번 + Dr = Me.DSR.Graph_Req.NewGraph_ReqRow + Dr.Gubun = "난방에너지요구량" + Dr.Mon = Format(mon, "0") & "월" + Dr.Req = Result.E요구량(mon).난방면적 + Me.DSR.Graph_Req.Rows.Add(Dr) + Else '//11번 + Dr = Me.DSR.Graph_Req.NewGraph_ReqRow + Dr.Gubun = "냉방에너지요구량" + Dr.Mon = Format(mon, "0") & "월" + Dr.Req = Result.E요구량(mon).냉방면적 + Me.DSR.Graph_Req.Rows.Add(Dr) + End If + Next + Next + + '//연간에너지요구량및소요량 + '//Graph_requse gubun,type, + ' 1차에너지소요량 에너지소요량 에너지요구량 + '신재생에너지(-57) + '난방에너지 106 91.87445415 56.14013248 + '냉방에너지 155.3678094 119.8832527 40.83005443 + '급탕에너지 42.6421498 14.21404993 14.6 + '조명에너지 144.2220948 48.07403159 73.08380082 + '환기에너지 61.68818331 20.56272777 + + Dim 신재생에너지 As Decimal + Dim 난방에너지 As Decimal + Dim 냉방에너지 As Decimal + Dim 급탕에너지 As Decimal + Dim 조명에너지 As Decimal + Dim 환기에너지 As Decimal + Dim 합계 As Decimal + + + Dim Dr2 As DSR.Graph_ReqUseRow + For Gubun As Short = 0 To 2 + Select Case Gubun + Case 0 '//1차에너지소요량 + + 신재생에너지 = 0 + Dr2 = Me.DSR.Graph_ReqUse.NewGraph_ReqUseRow + Dr2.Gubun = "1차소요량" + Dr2.type = "신재생에너지" + Dr2.Req = 신재생에너지 + Me.DSR.Graph_ReqUse.Rows.Add(Dr2) + + 난방에너지 = Result.일차E소요량(0).난방면적 + Dr2 = Me.DSR.Graph_ReqUse.NewGraph_ReqUseRow + Dr2.Gubun = "1차소요량" + Dr2.type = "난방에너지" + Dr2.Req = 난방에너지 + Me.DSR.Graph_ReqUse.Rows.Add(Dr2) + + 냉방에너지 = Result.일차E소요량(0).냉방면적 + Dr2 = Me.DSR.Graph_ReqUse.NewGraph_ReqUseRow + Dr2.Gubun = "1차소요량" + Dr2.type = "냉방에너지" + Dr2.Req = 냉방에너지 + Me.DSR.Graph_ReqUse.Rows.Add(Dr2) + + 급탕에너지 = Result.일차E소요량(0).급탕면적 + Dr2 = Me.DSR.Graph_ReqUse.NewGraph_ReqUseRow + Dr2.Gubun = "1차소요량" + Dr2.type = "급탕에너지" + Dr2.Req = 급탕에너지 + Me.DSR.Graph_ReqUse.Rows.Add(Dr2) + + 조명에너지 = Result.일차E소요량(0).조명면적 + Dr2 = Me.DSR.Graph_ReqUse.NewGraph_ReqUseRow + Dr2.Gubun = "1차소요량" + Dr2.type = "조명에너지" + Dr2.Req = 조명에너지 + Me.DSR.Graph_ReqUse.Rows.Add(Dr2) + + '계산결과!H92*3/계산결과!H27 + 환기에너지 = Result.일차E소요량(0).환기면적 + Dr2 = Me.DSR.Graph_ReqUse.NewGraph_ReqUseRow + Dr2.Gubun = "1차소요량" + Dr2.type = "환기에너지" + Dr2.Req = 환기에너지 + Me.DSR.Graph_ReqUse.Rows.Add(Dr2) + + Dr2 = Me.DSR.Graph_ReqUse.NewGraph_ReqUseRow + Dr2.Gubun = "1차소요량" + Dr2.type = "합계" + Dr2.Req = 난방에너지 + 냉방에너지 + 급탕에너지 + 조명에너지 + 환기에너지 + Me.DSR.Graph_ReqUse.Rows.Add(Dr2) + + + Case 1 '//에너지소요량 + + Dim Sum As Decimal = Result.생산E(0).태양광전력생산량 / (Result.일차E소요량(0).난방전력 + Result.일차E소요량(0).냉방전력 + Result.일차E소요량(0).급탕전력 + Result.일차E소요량(0).조명전력 + Result.일차E소요량(0).환기전력) + Dim 난방 As Decimal = Sum * Result.일차E소요량(0).난방전력 '//아마게산이안도잇으니 여기값들이 0이잇을거에요. + Dim 냉방 As Decimal = Sum * Result.일차E소요량(0).냉방전력 + Dim 조명 As Decimal = Sum * Result.일차E소요량(0).조명전력 + Dim 급탕 As Decimal = Sum * Result.일차E소요량(0).급탕전력 + Dim 환기 As Decimal = Sum * Result.일차E소요량(0).환기전력 + + + Dim 난방면적 As Decimal = 0 + Dim 냉방면적 As Decimal = 0 + Dim 조명면적 As Decimal = 0 + Dim 급탕면적 As Decimal = 0 + Dim 환기면적 As Decimal = 0 + If Result.사용면적.H <> 0 Then + 난방면적 = TOSG(IIf(난방 = 0, 0, 난방 / Result.사용면적.H)) + End If + If Result.사용면적.C <> 0 Then + 냉방면적 = TOSG(IIf(냉방 = 0, 0, 냉방 / Result.사용면적.C)) + End If + If Result.사용면적.L <> 0 Then + 조명면적 = TOSG(IIf(조명 = 0, 0, 조명 / Result.사용면적.L)) + End If + If Result.사용면적.W <> 0 Then + 급탕면적 = TOSG(IIf(급탕 = 0, 0, 급탕 / Result.사용면적.W)) + End If + If Result.사용면적.V <> 0 Then + 환기면적 = TOSG(IIf(환기 = 0, 0, 환기 / Result.사용면적.V)) + End If + + Dim 면적 As Decimal = 난방면적 + 냉방면적 + 조명면적 + 급탕면적 + 환기면적 + + '=-SUM(계산결과!G108:G109)-계산결과!F42-계산결과!F48-계산결과!F51-계산결과!F56-계산결과!F59 + + 'F42=IF($G$15=0,0,F38/$G$15) + 'f38=(G104)/(SUM(H76:S76)+SUM(H85:S85)+SUM(H93:S93)+SUM(H97:S97)+SUM(H101:S101))*SUM(H76:S76) + 'g15=난방면적 + + 'f48=IF($G$20=0,0,F44/$G$20) + 'f44=(G104)/(SUM(H76:S76)+SUM(H85:S85)+SUM(H93:S93)+SUM(H97:S97)+SUM(H101:S101))*SUM(H85:S85) + 'g20=냉방면적 + + + 신재생에너지 = -1 * (Result.생산E(0).면적당생산량태양열 + Result.생산E(0).면적당생산량지열) - 면적 + Dr2 = Me.DSR.Graph_ReqUse.NewGraph_ReqUseRow + Dr2.Gubun = "소요량" + Dr2.type = "신재생에너지" + Dr2.Req = 신재생에너지 + Me.DSR.Graph_ReqUse.Rows.Add(Dr2) + + 난방에너지 = Result.E소요량(0).난방면적 + Dr2 = Me.DSR.Graph_ReqUse.NewGraph_ReqUseRow + Dr2.Gubun = "소요량" + Dr2.type = "난방에너지" + Dr2.Req = 난방에너지 + Me.DSR.Graph_ReqUse.Rows.Add(Dr2) + + + 냉방에너지 = Result.E소요량(0).냉방면적 + Dr2 = Me.DSR.Graph_ReqUse.NewGraph_ReqUseRow + Dr2.Gubun = "소요량" + Dr2.type = "냉방에너지" + Dr2.Req = 냉방에너지 + Me.DSR.Graph_ReqUse.Rows.Add(Dr2) + + + 급탕에너지 = Result.E소요량(0).급탕면적 + Dr2 = Me.DSR.Graph_ReqUse.NewGraph_ReqUseRow + Dr2.Gubun = "소요량" + Dr2.type = "급탕에너지" + Dr2.Req = 급탕에너지 + Me.DSR.Graph_ReqUse.Rows.Add(Dr2) + + 조명에너지 = Result.E소요량(0).조명면적 + Dr2 = Me.DSR.Graph_ReqUse.NewGraph_ReqUseRow + Dr2.Gubun = "소요량" + Dr2.type = "조명에너지" + Dr2.Req = 조명에너지 + Me.DSR.Graph_ReqUse.Rows.Add(Dr2) + + 환기에너지 = Result.E소요량(0).환기면적 + Dr2 = Me.DSR.Graph_ReqUse.NewGraph_ReqUseRow + Dr2.Gubun = "소요량" + Dr2.type = "환기에너지" + Dr2.Req = 환기에너지 + Me.DSR.Graph_ReqUse.Rows.Add(Dr2) + + Dr2 = Me.DSR.Graph_ReqUse.NewGraph_ReqUseRow + Dr2.Gubun = "소요량" + Dr2.type = "합계" + Dr2.Req = 난방에너지 + 냉방에너지 + 급탕에너지 + 조명에너지 + 환기에너지 + Me.DSR.Graph_ReqUse.Rows.Add(Dr2) + + + Case 2 '//에너지요구량 + + + 신재생에너지 = 0 + Dr2 = Me.DSR.Graph_ReqUse.NewGraph_ReqUseRow + Dr2.Gubun = "요구량" + Dr2.type = "신재생에너지" + Dr2.Req = 신재생에너지 + Me.DSR.Graph_ReqUse.Rows.Add(Dr2) + + '계산결과!H14 + 난방에너지 = Result.E요구량(0).난방면적 + Dr2 = Me.DSR.Graph_ReqUse.NewGraph_ReqUseRow + Dr2.Gubun = "요구량" + Dr2.type = "난방에너지" + Dr2.Req = 난방에너지 + Me.DSR.Graph_ReqUse.Rows.Add(Dr2) + + 냉방에너지 = Result.E요구량(0).냉방면적 + Dr2 = Me.DSR.Graph_ReqUse.NewGraph_ReqUseRow + Dr2.Gubun = "요구량" + Dr2.type = "냉방에너지" + Dr2.Req = 냉방에너지 + Me.DSR.Graph_ReqUse.Rows.Add(Dr2) + + '계산결과!H25 + 급탕에너지 = Result.E요구량(0).급탕면적 + Dr2 = Me.DSR.Graph_ReqUse.NewGraph_ReqUseRow + Dr2.Gubun = "요구량" + Dr2.type = "급탕에너지" + Dr2.Req = 급탕에너지 + Me.DSR.Graph_ReqUse.Rows.Add(Dr2) + + '계산결과!H22 + 조명에너지 = Result.E요구량(0).조명면적 + Dr2 = Me.DSR.Graph_ReqUse.NewGraph_ReqUseRow + Dr2.Gubun = "요구량" + Dr2.type = "조명에너지" + Dr2.Req = 조명에너지 + Me.DSR.Graph_ReqUse.Rows.Add(Dr2) + + 환기에너지 = 0 + Dr2 = Me.DSR.Graph_ReqUse.NewGraph_ReqUseRow + Dr2.Gubun = "요구량" + Dr2.type = "환기에너지" + Dr2.Req = 환기에너지 + Me.DSR.Graph_ReqUse.Rows.Add(Dr2) + + Dr2 = Me.DSR.Graph_ReqUse.NewGraph_ReqUseRow + Dr2.Gubun = "요구량" + Dr2.type = "합계" + Dr2.Req = 난방에너지 + 냉방에너지 + 급탕에너지 + 조명에너지 + 환기에너지 + Me.DSR.Graph_ReqUse.Rows.Add(Dr2) + + + End Select + Next + + End Sub + + +End Class \ No newline at end of file diff --git a/ArinWarev1/Forms/v20091231/Frm_v20091231_Report_auth.Designer.vb b/ArinWarev1/Forms/v20091231/Frm_v20091231_Report_auth.Designer.vb new file mode 100644 index 0000000..f4c2440 --- /dev/null +++ b/ArinWarev1/Forms/v20091231/Frm_v20091231_Report_auth.Designer.vb @@ -0,0 +1,139 @@ + _ +Partial Class Frm_v20091231_Report_auth + Inherits CForm + + 'Form은 Dispose를 재정의하여 구성 요소 목록을 정리합니다. + _ + Protected Overrides Sub Dispose(ByVal disposing As Boolean) + Try + If disposing AndAlso components IsNot Nothing Then + components.Dispose() + End If + Finally + MyBase.Dispose(disposing) + End Try + End Sub + + 'Windows Form 디자이너에 필요합니다. + Private components As System.ComponentModel.IContainer + + '참고: 다음 프로시저는 Windows Form 디자이너에 필요합니다. + '수정하려면 Windows Form 디자이너를 사용하십시오. + '코드 편집기를 사용하여 수정하지 마십시오. + _ + Private Sub InitializeComponent() + Me.components = New System.ComponentModel.Container() + Dim ReportDataSource1 As Microsoft.Reporting.WinForms.ReportDataSource = New Microsoft.Reporting.WinForms.ReportDataSource() + Dim ReportDataSource2 As Microsoft.Reporting.WinForms.ReportDataSource = New Microsoft.Reporting.WinForms.ReportDataSource() + Dim ReportDataSource3 As Microsoft.Reporting.WinForms.ReportDataSource = New Microsoft.Reporting.WinForms.ReportDataSource() + Dim ReportDataSource4 As Microsoft.Reporting.WinForms.ReportDataSource = New Microsoft.Reporting.WinForms.ReportDataSource() + Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(Frm_v20091231_Report_auth)) + Me.Graph_ReqBindingSource = New System.Windows.Forms.BindingSource(Me.components) + Me.DSR = New Eco2Ar.DSR() + Me.Graph_ReqUseBindingSource = New System.Windows.Forms.BindingSource(Me.components) + Me.Graph_InfoBindingSource = New System.Windows.Forms.BindingSource(Me.components) + Me.GraphInfodataBindingSource = New System.Windows.Forms.BindingSource(Me.components) + Me.StatusStrip1 = New System.Windows.Forms.StatusStrip() + Me.lb_msg = New System.Windows.Forms.ToolStripStatusLabel() + Me.ReportViewer1 = New Microsoft.Reporting.WinForms.ReportViewer() + CType(Me.Graph_ReqBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.DSR, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.Graph_ReqUseBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.Graph_InfoBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.GraphInfodataBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() + Me.StatusStrip1.SuspendLayout() + Me.SuspendLayout() + ' + 'Graph_ReqBindingSource + ' + Me.Graph_ReqBindingSource.DataMember = "Graph_Req" + Me.Graph_ReqBindingSource.DataSource = Me.DSR + ' + 'DSR + ' + Me.DSR.DataSetName = "DSR" + Me.DSR.SchemaSerializationMode = System.Data.SchemaSerializationMode.IncludeSchema + ' + 'Graph_ReqUseBindingSource + ' + Me.Graph_ReqUseBindingSource.DataMember = "Graph_ReqUse" + Me.Graph_ReqUseBindingSource.DataSource = Me.DSR + ' + 'Graph_InfoBindingSource + ' + Me.Graph_InfoBindingSource.DataMember = "Graph_Info" + Me.Graph_InfoBindingSource.DataSource = Me.DSR + ' + 'GraphInfodataBindingSource + ' + Me.GraphInfodataBindingSource.DataMember = "Graph_Info_data" + Me.GraphInfodataBindingSource.DataSource = Me.DSR + ' + 'StatusStrip1 + ' + Me.StatusStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.lb_msg}) + Me.StatusStrip1.Location = New System.Drawing.Point(0, 494) + Me.StatusStrip1.Name = "StatusStrip1" + Me.StatusStrip1.Size = New System.Drawing.Size(784, 22) + Me.StatusStrip1.TabIndex = 15 + Me.StatusStrip1.Text = "StatusStrip1" + ' + 'lb_msg + ' + Me.lb_msg.Name = "lb_msg" + Me.lb_msg.Size = New System.Drawing.Size(59, 17) + Me.lb_msg.Text = "<메세지>" + ' + 'ReportViewer1 + ' + Me.ReportViewer1.Dock = System.Windows.Forms.DockStyle.Fill + ReportDataSource1.Name = "DSR_Graph_Req" + ReportDataSource1.Value = Me.Graph_ReqBindingSource + ReportDataSource2.Name = "DSR_Graph_ReqUse" + ReportDataSource2.Value = Me.Graph_ReqUseBindingSource + ReportDataSource3.Name = "DSR_Graph_Info" + ReportDataSource3.Value = Me.Graph_InfoBindingSource + ReportDataSource4.Name = "DSR_Graph_Info_data" + ReportDataSource4.Value = Me.GraphInfodataBindingSource + Me.ReportViewer1.LocalReport.DataSources.Add(ReportDataSource1) + Me.ReportViewer1.LocalReport.DataSources.Add(ReportDataSource2) + Me.ReportViewer1.LocalReport.DataSources.Add(ReportDataSource3) + Me.ReportViewer1.LocalReport.DataSources.Add(ReportDataSource4) + Me.ReportViewer1.LocalReport.ReportEmbeddedResource = "Eco2Ar.Report_result_auth.rdlc" + Me.ReportViewer1.Location = New System.Drawing.Point(0, 0) + Me.ReportViewer1.Name = "ReportViewer1" + Me.ReportViewer1.Size = New System.Drawing.Size(784, 494) + Me.ReportViewer1.TabIndex = 16 + ' + 'Frm_v20091231_Report_auth + ' + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.None + Me.ClientSize = New System.Drawing.Size(784, 516) + Me.ControlBox = False + Me.Controls.Add(Me.ReportViewer1) + Me.Controls.Add(Me.StatusStrip1) + Me.Font = New System.Drawing.Font("나눔고딕", 8.999999!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon) + Me.Name = "Frm_v20091231_Report_auth" + Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen + Me.Text = "결과그래프" + CType(Me.Graph_ReqBindingSource, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.DSR, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.Graph_ReqUseBindingSource, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.Graph_InfoBindingSource, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.GraphInfodataBindingSource, System.ComponentModel.ISupportInitialize).EndInit() + Me.StatusStrip1.ResumeLayout(False) + Me.StatusStrip1.PerformLayout() + Me.ResumeLayout(False) + Me.PerformLayout() + + End Sub + Friend WithEvents StatusStrip1 As System.Windows.Forms.StatusStrip + Friend WithEvents lb_msg As System.Windows.Forms.ToolStripStatusLabel + Friend WithEvents ReportViewer1 As Microsoft.Reporting.WinForms.ReportViewer + Friend WithEvents Graph_ReqBindingSource As System.Windows.Forms.BindingSource + Friend WithEvents DSR As Eco2Ar.DSR + Friend WithEvents Graph_ReqUseBindingSource As System.Windows.Forms.BindingSource + Friend WithEvents Graph_InfoBindingSource As System.Windows.Forms.BindingSource + Friend WithEvents GraphInfodataBindingSource As System.Windows.Forms.BindingSource +End Class diff --git a/ArinWarev1/Forms/v20091231/Frm_v20091231_Report_auth.resx b/ArinWarev1/Forms/v20091231/Frm_v20091231_Report_auth.resx new file mode 100644 index 0000000..f77a795 --- /dev/null +++ b/ArinWarev1/Forms/v20091231/Frm_v20091231_Report_auth.resx @@ -0,0 +1,1586 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + 415, 17 + + + 340, 17 + + + 608, 17 + + + 17, 56 + + + 210, 56 + + + 222, 17 + + + 158 + + + + + AAABAAYAICAAAAEACACoCAAAZgAAABAQAAABAAgAaAUAAA4JAACAgAAAAQAgACgIAQB2DgAAMDAAAAEA + IACoJQAAnhYBACAgAAABACAAqBAAAEY8AQAQEAAAAQAgAGgEAADuTAEAKAAAACAAAABAAAAAAQAIAAAA + AAAAAAAAAAAAAAAAAAAAAQAAAAAAAP///wDM//8Amf//AGb//wAz//8AAP//AP/M/wDMzP8Amcz/AGbM + /wAzzP8AAMz/AP+Z/wDMmf8AmZn/AGaZ/wAzmf8AAJn/AP9m/wDMZv8AmWb/AGZm/wAzZv8AAGb/AP8z + /wDMM/8AmTP/AGYz/wAzM/8AADP/AP8A/wDMAP8AmQD/AGYA/wAzAP8AAAD/AP//zADM/8wAmf/MAGb/ + zAAz/8wAAP/MAP/MzADMzMwAmczMAGbMzAAzzMwAAMzMAP+ZzADMmcwAmZnMAGaZzAAzmcwAAJnMAP9m + zADMZswAmWbMAGZmzAAzZswAAGbMAP8zzADMM8wAmTPMAGYzzAAzM8wAADPMAP8AzADMAMwAmQDMAGYA + zAAzAMwAAADMAP//mQDM/5kAmf+ZAGb/mQAz/5kAAP+ZAP/MmQDMzJkAmcyZAGbMmQAzzJkAAMyZAP+Z + mQDMmZkAmZmZAGaZmQAzmZkAAJmZAP9mmQDMZpkAmWaZAGZmmQAzZpkAAGaZAP8zmQDMM5kAmTOZAGYz + mQAzM5kAADOZAP8AmQDMAJkAmQCZAGYAmQAzAJkAAACZAP//ZgDM/2YAmf9mAGb/ZgAz/2YAAP9mAP/M + ZgDMzGYAmcxmAGbMZgAzzGYAAMxmAP+ZZgDMmWYAmZlmAGaZZgAzmWYAAJlmAP9mZgDMZmYAmWZmAGZm + ZgAzZmYAAGZmAP8zZgDMM2YAmTNmAGYzZgAzM2YAADNmAP8AZgDMAGYAmQBmAGYAZgAzAGYAAABmAP// + MwDM/zMAmf8zAGb/MwAz/zMAAP8zAP/MMwDMzDMAmcwzAGbMMwAzzDMAAMwzAP+ZMwDMmTMAmZkzAGaZ + MwAzmTMAAJkzAP9mMwDMZjMAmWYzAGZmMwAzZjMAAGYzAP8zMwDMMzMAmTMzAGYzMwAzMzMAADMzAP8A + MwDMADMAmQAzAGYAMwAzADMAAAAzAP//AADM/wAAmf8AAGb/AAAz/wAAAP8AAP/MAADMzAAAmcwAAGbM + AAAzzAAAAMwAAP+ZAADMmQAAmZkAAGaZAAAzmQAAAJkAAP9mAADMZgAAmWYAAGZmAAAzZgAAAGYAAP8z + AADMMwAAmTMAAGYzAAAzMwAAADMAAP8AAADMAAAAmQAAAGYAAAAzAAAAAADuAAAA3QAAALsAAACqAAAA + iAAAAHcAAABVAAAARAAAACIAAAARAADuAAAA3QAAALsAAACqAAAAiAAAAHcAAABVAAAARAAAACIAAAAR + AADuAAAA3QAAALsAAACqAAAAiAAAAHcAAABVAAAARAAAACIAAAARAAAA7u7uAN3d3QC7u7sAqqqqAIiI + iAB3d3cAVVVVAERERAAiIiIAERERAAAAAAD///////////////////////////////////////////// + //////////////////7+/v/////////////////////////////////+/PgrK/YrK/j8/f////////// + ///////////////++vYA9ff4+Pj39gD2+f3/////////////////////+/b1+KurpKqrq6ysq/j19vv/ + //////////////////n196ukf6usrKysrKysrKsr9fn////////////////5AFakf6qsrKysrKysrKys + rKxWAPn/////////////+/VWf3+rrKysrKysrKysrKysrKxW9fv///////////72K6R/pP3+9PT09PT+ + /f2srKysrKz39v7/////////VvWkf6T9/YJYWFh8pqb9/vT9rKysrKv1Vv////////72VqOrgjQLCwsL + L1JSUlJ8pv30/aysrFb2/v//////+gCr+zQLCwsLCwspdnZ2dlJSUqb9/qysqwD7///////3K6svCwsL + CwsLCyl2dnZ2dnZSUnas/v2s9vj//////vb5WAsFCwsLCwsLBXZ2dnZ2dnZ2UlL8/qz3K//////+APsv + CwsLCwsLCwsFdnZ2dnZ2dnZ2Unys/Vb2//////0ArAsLCwsLCwsLCwtTdnZ2dnZ2dnz7q6v9+fX///// + /gCmKCgLCwsLCwsLC1N2dnZ2dnz7q6ulpaz69f//////9VFMKCgoLwsLCwsLL3Z2fPurq6urq6Wlq1b2 + //////71UVJ2UkwoKCgLCwspdvurq6urq6urpaWr9yv///////VRUnZ2dlJSKCgoLy92dnz7q6urq6ul + pav2+P//////9iZ2UnZ2dnZ2UigoUnZ2dnZ2fKWrq6Wr/AD8///////49XZ2UnZ2dnZ2dlJ2dnZ2dnZ2 + dnylpfz39v/////////1JnZ2dnZ2UykFU3Z2dnZ2dnZ2dnag+ACB//////////oAJlJSLwUFBQtSdnZ2 + dnZ2dnZ2TFEA+v////////////kACwUFCwsLC1JSdnZ2dnZSUlJ2JSv//////////////gALCwsLCwsL + dlJMTFJSUlJ2dnb1+P//////////////9vUJCwsLCwtTdnZ2UihSdnZ2dgD8////////////////+PX1 + CQsLCy92dnZ2dlJMTFJR9f7///////////////////f1AAECCXZ2dnZ2dnZ2Uib2//////////////// + //////+B9/b1JnZ2dnZ2dnYlAPj///////////////////////////kAAAAAAAAAAPaB//////////// + //////////////////r5+fr5+vv//////////////+AD//+AAP//AAB//gAAP/wAAB/4AAAP8AAAB/AA + AAfgAAAD4AAAA8AAAAHAAAABwAAAAYAAAAGAAAABgAAAAYAAAAGAAAABgAAAAYAAAAHAAAABwAAAA8AA + AAPgAAAH8AAAD/AAAA/4AAAP+AAAD/4AAB//gAAf/+AAP//8AH8oAAAAEAAAACAAAAABAAgAAAAAAAAA + AAAAAAAAAAAAAAABAAAAAAAA////AMz//wCZ//8AZv//ADP//wAA//8A/8z/AMzM/wCZzP8AZsz/ADPM + /wAAzP8A/5n/AMyZ/wCZmf8AZpn/ADOZ/wAAmf8A/2b/AMxm/wCZZv8AZmb/ADNm/wAAZv8A/zP/AMwz + /wCZM/8AZjP/ADMz/wAAM/8A/wD/AMwA/wCZAP8AZgD/ADMA/wAAAP8A///MAMz/zACZ/8wAZv/MADP/ + zAAA/8wA/8zMAMzMzACZzMwAZszMADPMzAAAzMwA/5nMAMyZzACZmcwAZpnMADOZzAAAmcwA/2bMAMxm + zACZZswAZmbMADNmzAAAZswA/zPMAMwzzACZM8wAZjPMADMzzAAAM8wA/wDMAMwAzACZAMwAZgDMADMA + zAAAAMwA//+ZAMz/mQCZ/5kAZv+ZADP/mQAA/5kA/8yZAMzMmQCZzJkAZsyZADPMmQAAzJkA/5mZAMyZ + mQCZmZkAZpmZADOZmQAAmZkA/2aZAMxmmQCZZpkAZmaZADNmmQAAZpkA/zOZAMwzmQCZM5kAZjOZADMz + mQAAM5kA/wCZAMwAmQCZAJkAZgCZADMAmQAAAJkA//9mAMz/ZgCZ/2YAZv9mADP/ZgAA/2YA/8xmAMzM + ZgCZzGYAZsxmADPMZgAAzGYA/5lmAMyZZgCZmWYAZplmADOZZgAAmWYA/2ZmAMxmZgCZZmYAZmZmADNm + ZgAAZmYA/zNmAMwzZgCZM2YAZjNmADMzZgAAM2YA/wBmAMwAZgCZAGYAZgBmADMAZgAAAGYA//8zAMz/ + MwCZ/zMAZv8zADP/MwAA/zMA/8wzAMzMMwCZzDMAZswzADPMMwAAzDMA/5kzAMyZMwCZmTMAZpkzADOZ + MwAAmTMA/2YzAMxmMwCZZjMAZmYzADNmMwAAZjMA/zMzAMwzMwCZMzMAZjMzADMzMwAAMzMA/wAzAMwA + MwCZADMAZgAzADMAMwAAADMA//8AAMz/AACZ/wAAZv8AADP/AAAA/wAA/8wAAMzMAACZzAAAZswAADPM + AAAAzAAA/5kAAMyZAACZmQAAZpkAADOZAAAAmQAA/2YAAMxmAACZZgAAZmYAADNmAAAAZgAA/zMAAMwz + AACZMwAAZjMAADMzAAAAMwAA/wAAAMwAAACZAAAAZgAAADMAAAAAAO4AAADdAAAAuwAAAKoAAACIAAAA + dwAAAFUAAABEAAAAIgAAABEAAO4AAADdAAAAuwAAAKoAAACIAAAAdwAAAFUAAABEAAAAIgAAABEAAO4A + AADdAAAAuwAAAKoAAACIAAAAdwAAAFUAAABEAAAAIgAAABEAAADu7u4A3d3dALu7uwCqqqoAiIiIAHd3 + dwBVVVUAREREACIiIgAREREAAAAAAP////////v6+vr9////////////Vvb19isrACv8////////9/ZV + q6ysrKxW9fz/////VvZ5q/7+/f2srFb2/v////VVV1g1UlJ8/f2s9/f///r1LgsLC1N2dlJ8/YH2//8r + LAsLCwsvdnZ2dlKs9f//KywLCwsLL3Z2dnyl/AD//ysmTCgLCy92gqurpYH2///3JlJ2UigvdnaCpaX5 + K///gfVRdnZTUnZ2dnZ79lb////3ASkFC1J2dnZSJvf//////wADCwtSUkxSdvX5//////+B9gACUnZ2 + UkwA/v////////+s9/X29vb19/////////////+B+vr6///////gA/LOwAHgA8ABwAGAAMABgACAAAAA + gAAAAAAAAAAAAAAAAAAAAAAAAAAAAIABAADAAYABwAHAAeADwAH4A+ADKAAAAIAAAAAAAQAAAQAgAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAQAAAAEAAAABAAAAAgAAAAIAAAACAAAAAgAA + AAEAAAABAAAAAQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAEAAAABAAAAAgAAAAMAAAAFAAAABwAA + AAgAAAAKAAAACwAAAA0AAAAPAAAAEAAAABAAAAAPAAAADgAAAAwAAAALAAAACQAAAAcAAAAGAAAABAAA + AAMAAAACAAAAAQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABAAAAAgAA + AAMAAAAGAAAACQAAAA0AAAARAAAAFgAAABwAAAAgAAAAJQAAACkAAAAtAAAAMQAAADUAAAA3AAAANwAA + ADYAAAAzAAAALwAAACsAAAAnAAAAIwAAAB4AAAAZAAAAFAAAAA8AAAAKAAAABwAAAAQAAAACAAAAAQAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAEAAAACAAAABQAAAAkAAAAPAAAAFgAAAB4AAAAnAAAAMAAAADkAAABDAAAASwAA + AFIAAABZAAAAXgAAAGIAAABnAAAAawAAAG0AAABuAAAAbAAAAGkAAABlAAAAYAAAAFwAAABWAAAATwAA + AEYAAAA9AAAANAAAACoAAAAhAAAAFwAAABAAAAAJAAAABQAAAAIAAAABAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAIAAAAFAAAACgAAABEAAAAaAAAAJgAA + ADMAAABAAAAATgAAAFoAAABlAAAAb09PT410c3Oin5+evKqqqcbLysnfysnI38nIx+Dc29rw7ezr/+3s + 6//t7Ov/09LR6MrJyODKycnfy8rJ3p6enb6hoJ+7Y2JimDo5OYIAAABpAAAAXgAAAFEAAABDAAAANAAA + ACcAAAAaAAAAEQAAAAoAAAAFAAAAAgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAQAA + AAMAAAAHAAAADgAAABgAAAAmAAAANgAAAEcAAABYAAAAZzk5OIOEg4Ortra1ztPS0uft7Ov/7ezr/+3s + 6//t7Ov/7ezr/+3s6//t7Ov/7ezr/+3s6//t7Ov/7ezr/+3s6//t7Ov/7ezr/+3s6//t7Ov/7ezr/+3s + 6//t7Ov/7ezr/+Xk4/fBwL/XoKCfu1BPT40AAABpAAAAWQAAAEcAAAA2AAAAJgAAABgAAAANAAAABgAA + AAIAAAABAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAQAAAAMAAAAIAAAAEQAAAB4AAAAvAAAAQwAAAFcAAABpTk5Oj6ur + qsXT0tHn7ezr/+3s6//t7Ov/7ezr/+3s6//t7Ov/7ezr/+3s6//t7Ov/7ezr/+3s6//t7Ov/7ezr/+3s + 6//t7Ov/7ezr/+3s6//t7Ov/7ezr/+3s6//t7Ov/7ezr/+3s6//t7Ov/7ezr/+3s6//t7Ov/7ezr/+Xk + 4/e3trbNdnZ1nwAAAGkAAABXAAAAQgAAAC4AAAAcAAAAEAAAAAgAAAADAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAQAAAAMAAAAIAAAAEQAA + ACAAAAA0AAAASwAAAGE5ODiEn56dvdzb2u/t7Ov/7ezr/+3s6//t7Ov/7ezr/+3s6//t7Ov/7ezr/+3s + 6//t7Ov/7ezr/+3s6//t7Ov/7ezr/+3s6//t7Ov/7ezr/+3s6//t7Ov/7ezr/+3s6//t7Ov/7ezr/+3s + 6//t7Ov/7ezr/+3s6//t7Ov/7ezr/+3s6//t7Ov/7ezr/+3s6//t7Ov/5eTj97i3tsxRUVCLAAAAXwAA + AEgAAAAyAAAAHwAAABAAAAAHAAAAAgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAIAAAAHAAAAEAAAACAAAAA0AAAATAAAAGVjY2KYwMDA1+3s6//t7Ov/7ezr/+3s + 6//t7Ov/7ezr/+3s6//t7Ov/7ezr/+3s6//t7Ov/2NLR/8O4uP+ZhYX/mYWF/29SUv9vUlL/b1JS/08r + K/9FHx//RR8f/0UfH/9aODj/b1JS/29SUv95X17/mYWF/6OSkf/DuLj/7ezr/+3s6//t7Ov/7ezr/+3s + 6//t7Ov/7ezr/+3s6//t7Ov/7ezr/+3s6//LysneiIeHpgAAAGQAAABKAAAAMQAAABwAAAAOAAAABQAA + AAEAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAEAAAAEAAAADQAAABwAAAAyAAAASwAA + AGWHhoao3t3c7u7t7P/t7Oz/7ezs/+3s6//t7Ov/7ezr/+3s6//t7Ov/7ezr/8O4uP+ZhYX/b1JS/08r + K/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0Uf + H/9FHx//RR8f/0UfH/9FHx//ZEVF/4Rra/+un57/4t/e/+3s6//t7Ov/7ezr/+3s6//t7Ov/7ezr/+3s + 6//t7Ov/3dzb7oeHhqYAAABhAAAARQAAACwAAAAYAAAACgAAAAMAAAABAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAACAAAACAAAABUAAAApAAAARQAAAGFjY2OX3t3c7u7t7P/u7ez/7u3s/+7t7P/t7Oz/7ezs/+3s + 7P/i397/rp+e/3lfXv9PKyv/RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0Uf + H/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0Uf + H/9FHx//ZEVF/6OSkf/i397/7ezr/+3s6//t7Ov/7ezr/+3s6//t7Ov/7ezr/97d3O5mZmWTAAAAWgAA + AD4AAAAjAAAAEQAAAAYAAAABAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABAAAABAAAAA0AAAAeAAAAOAAAAFY6OTmCzMvL3u7t + 7P/u7ez/7u3s/+7t7P/u7ez/7u3s/+7t7P/Dubj/hGxr/08rK/9FHx//RR8f/0UfH/9FHx//RR8f/0Uf + H/9FHx//RR8f/1YpJv9oNC3/i0k8/5NOQP+uXkv/rl5L/6VYR/+lWEf/pVhH/4tJPP+CQzj/aDQt/18u + Kv9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/95X17/w7i4/+3s + 6//t7Ov/7ezr/+3s6//t7Ov/7ezr/+3s6//NzMvcPDw8fAAAAE4AAAAwAAAAGAAAAAoAAAADAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAQAA + AAYAAAASAAAAKAAAAEYAAABloqGgu+7t7P/u7ez/7u3s/+7t7P/u7ez/7u3s/+7t7P+un5//ZEVF/0Uf + H/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9oNC3/i0k8/65eS//Rc1r/0XNa/9FzWv+uXkv/i0k8/2g0 + Lf9NJCL/RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0Uf + H/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//Wjg4/66fnv/t7Ov/7ezr/+3s6//t7Ov/7ezr/+3s + 6//l5OP2lpaVrwAAAF0AAAA9AAAAIQAAAA4AAAAEAAAAAQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAIAAAAJAAAAGAAAADIAAABSUlJSidXV1Obu7ez/7u3s/+7t + 7P/u7ez/7u3s/+7t7P+un5//Wjg4/0UfH/9FHx//RR8f/0UfH/9FHx//TSQi/3k+Nf+lWEf/0XNa/9Fz + Wv/Rc1r/yG1W/5xTQ/9wOTH/RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0Uf + H/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0Uf + H/9FHx//RR8f/1o4OP+un57/7ezr/+3s6//t7Ov/7ezr/+3s6//t7Ov/zczL3D49PXkAAABIAAAAKQAA + ABIAAAAGAAAAAQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAADAAAACwAA + AB0AAAA6AAAAXZaVlbDu7ez/7u3s/+7t7P/u7ez/7u3s/+7t7P/Dubj/ZEVF/0UfH/9FHx//RR8f/0Uf + H/9FHx//cDkx/6VYR//Rc1r/0XNa/9FzWv/Rc1r/rl5L/3k+Nf9FHx//RR8f/0UfH/9FHx//RR8f/0Uf + H/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0Uf + H/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9kRUX/w7i4/+3s + 6//t7Ov/7ezr/+3s6//t7Ov/5eTj9np5eZoAAABSAAAAMAAAABYAAAAHAAAAAQAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAwAAAAwAAAAhAAAAQSIiIm25uLfM7u3s/+7t7P/u7ez/7u3s/+7t + 7P/j4N//eV9f/0UfH/9FHx//RR8f/0UfH/9NJCL/gkM4/79oUv/Rc1r/0XNa/9FzWv/Rc1r/nFND/1Yp + Jv9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0Uf + H/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0Uf + H/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//jnh4/+Lf3v/t7Ov/7ezr/+3s6//t7Ov/7ezr/7Gw + r8AAAABZAAAANgAAABkAAAAIAAAAAgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAQAAAAOAAAAJAAA + AEYhICBy1tXV5e7t7P/u7ez/7u3s/+7t7P/u7ez/uayr/08rK/9FHx//RR8f/0UfH/9NJCL/i0k8/8ht + Vv/Rc1r/0XNa/9FzWv/Rc1r/nFND/1YpJv9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0Uf + H/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0Uf + H/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0Uf + H/9FHx//Tysr/8O4uP/t7Ov/7ezr/+3s6//t7Ov/7ezr/87NzNskJCRnAAAAOQAAABoAAAAJAAAAAgAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAADAAAADwAAACcAAABKVFRUhubl5fbu7e3/7u3s/+7t7P/u7ez/4+Df/3lf + X/9FHx//RR8f/0UfH/9FHx//i0k8/8htVv/Rc1r/0XNa/9FzWv/Rc1r/pVhH/1YpJv9FHx//RR8f/0Uf + H/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0Uf + H/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0Uf + H/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/454eP/t7Ov/7ezr/+3s + 6//t7Ov/7ezr/9bV1eQjIyNpAAAAOgAAABoAAAAJAAAAAgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAwAAAA0AAAAmAAAAS1JS + Uonm5eX27u3t/+7t7f/u7e3/7u3t/87Gxv9kRUX/RR8f/0UfH/9FHx//cDkx/79oUv/Rc1r/0XNa/9Fz + Wv/Rc1r/v2hS/2g0Lf9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0Uf + H/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0Uf + H/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0Uf + H/9FHx//RR8f/0UfH/9FHx//RR8f/2RFRf/i397/7ezr/+3s6//t7Ov/7ezr/97e3e1cW1t7AAAAOgAA + ABoAAAAJAAAAAQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAIAAAAMAAAAIwAAAEhTU1OI5+bl9u7t7f/u7e3/7u3t/+7t7f+5rKz/Tysr/0Uf + H/9FHx//TSQi/6VYR//Rc1r/0XNa/9FzWv/Rc1r/0XNa/4tJPP9NJCL/RR8f/0UfH/9FHx//RR8f/0Uf + H/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0Uf + H/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0Uf + H/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/08r + K//NxcT/7ezr/+3s6//t7Ov/7ezr/+bl5PVcW1t6AAAAOgAAABoAAAAIAAAAAQAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACAAAACgAAAB8AAABDVlVVhOfm + 5fbv7u3/7+7t/+7t7f/u7e3/rp+f/0UfH/9FHx//RR8f/3A5Mf/IbVb/0XNa/9FzWv/Rc1r/0XNa/79o + Uv9fLir/RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0Uf + H/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0Uf + H/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0Uf + H/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/08rK/+un57/7ezr/+3s6//t7Ov/7ezr/+bl + 5PVCQkFxAAAAOAAAABgAAAAGAAAAAQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAQAAAAcAAAAbAAAAPj8+Pnjn5uX27+7t/+/u7f/v7u3/7+7t/6+gn/9FHx//RR8f/0Uf + H/+cU0P/0XNa/9FzWv/Rc1r/0XNa/9FzWv+2Y07/TSQi/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0Uf + H/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0Uf + H/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0Uf + H/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0Uf + H/9FHx//RR8f/0UfH/+un57/7ezr/+3s6//t7Ov/7ezr/9fW1eQlJSVlAAAAMgAAABMAAAAFAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAFAAAAFQAAADYjIyNq19fW5e/u + 7f/v7u3/7+7t/+/u7f+voJ//RR8f/0UfH/9NJCL/tmNO/9FzWv/Rc1r/0XNa/9FzWv/Rc1r/tmNO/00k + Iv9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0Uf + H/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0Uf + H/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0Uf + H/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/+un57/7ezr/+3s + 6//t7Ov/7ezr/9jX1uMoKCddAAAAKwAAAA8AAAADAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAwAAABAAAAAtAAAAWNDPztvv7u3/7+7t/+/u7f/v7u3/r6Cf/0UfH/9FHx//Xy4q/79o + Uv/Rc1r/0XNa/9FzWv/Rc1r/0XNa/79oUv9NJCL/RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0Uf + H/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0Uf + H/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0Uf + H/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0Uf + H/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/+un57/7ezr/+3s6//t7Ov/7ezr/769vMYAAABLAAAAIwAA + AAsAAAACAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAEAAAAKAAAAIwAAAEynpqa27+7t/+/u + 7f/v7u3/7+7t/6+gn/9FHx//RR8f/18uKv/IbVb/0XNa/9FzWv/Rc1r/0XNa/9FzWv/Rc1r/Xy4q/0Uf + H/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0Uf + H/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0Uf + H/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0Uf + H/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0Uf + H//DuLj/7ezr/+3s6//t7Ov/7ezr/56dnKcAAABBAAAAGwAAAAcAAAABAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAABAAAABgAAABkAAAA/bGtrjO/u7f/v7u3/7+7t/+/u7f/Px8b/Tysr/0UfH/9fLir/yG1W/9Fz + Wv/Rc1r/0XNa/9FzWv/Rc1r/0XNa/4JDOP9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0Uf + H/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0Uf + H/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0Uf + H/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0Uf + H/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/08rK//NxcT/7ezr/+3s6//t7Ov/7ezr/1xb + W3sAAAA0AAAAEwAAAAQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAMAAAARAAAAMCUkJGbo5+b27+7t/+/u + 7f/v7u3/5OHg/08rK/9FHx//TSQi/7ZjTv/Rc1r/0XNa/9FzWv/Rc1r/0XNa/9FzWv+uXkv/RR8f/0Uf + H/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0Uf + H/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0Uf + H/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0Uf + H/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0Uf + H/9FHx//RR8f/2RFRf/i397/7ezr/+3s6//t7Ov/397e7CkoKFsAAAAnAAAADAAAAAIAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAABAAAACgAAACMAAABOyMfH0O/u7f/v7u3/7+7t/+/u7f9vUlL/RR8f/0UfH/+2Y07/0XNa/9Fz + Wv/Rc1r/0XNa/9FzWv/Rc1r/0XNa/18uKv9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0Uf + H/8zFxf/LxUV/yIPD/8iDw//EQcH/xEHB/8RBwf/EQcH/xEHB/8RBwf/EQcH/xEHB/8RBwf/EQcH/xEH + B/8ZCwv/Ig8P/yIPD/8zFxf/OBkZ/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0Uf + H/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0Uf + H/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/3lfXv/t7Ov/7ezr/+3s + 6//t7Ov/trW0ugAAAEIAAAAaAAAABgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAUAAAAWAAAAPICAgJTv7u7/7+7u/+/u + 7v/v7u3/moaG/0UfH/9FHx//k05A/9FzWv/Rc1r/0XNa/9FzWv/Rc1r/0XNa/9FzWv+cU0P/RR8f/0Uf + H/9FHx//RR8f/0UfH/8zFxf/Ig8P/xUJCf8IAwP/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAA + AP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wwF + Bf8VCQn/Ig8P/zMXF/9AHR3/RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0Uf + H/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0Uf + H/9FHx//RR8f/0UfH/9FHx//RR8f/6OSkf/t7Ov/7ezr/+3s6//t7Ov/c3NyggAAADEAAAAQAAAAAwAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAACAAAADAAAAConJydg4ODg7e/u7v/v7u7/7+7u/8/Hx/9FHx//RR8f/3A5Mf/Rc1r/0XNa/9Fz + Wv/Rc1r/0XNa/9FzWv/Rc1r/0XNa/1YpJv9FHx//PBsb/yYREf8VCQn/AAAA/wAAAP8AAAD/AAAA/wAA + AP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAA + AP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8MBQX/Hg0N/y8V + Ff9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0Uf + H/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//Tysr/9jS + 0f/t7Ov/7ezr/+3s6//g397rAAAASwAAACAAAAAIAAAAAQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAYAAAAaAAAAQ6qpqbLv7u7/7+7u/+/u + 7v/v7u7/ZEVF/0UfH/9NJCL/yG1W/9FzWv/Rc1r/0XNa/9FzWv/Rc1r/0XNa/9FzWv+gVkX/KxMT/wwF + Bf8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/FxMO/xcTDv8jHBX/LyYd/y8m + Hf8vJh3/LyYd/y8mHf8vJh3/LyYd/y8mHf8vJh3/HRcS/xcTDv8XEw7/AAAA/wAAAP8AAAD/AAAA/wAA + AP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8VCQn/KxMT/0AdHf9FHx//RR8f/0Uf + H/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0Uf + H/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//b1JS/+3s6//t7Ov/7ezr/+3s6/+urq2sAAAANwAA + ABMAAAAEAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAACAAAADgAAAC5ERERu6Ofn9u/u7v/v7u7/7+7u/6STk/9FHx//RR8f/6VYR//Rc1r/0XNa/9Fz + Wv/Rc1r/0XNa/9FzWv/OcFf/rltD/yUTDv8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8XEw7/KSEZ/zov + JP9GOSv/Xkw6/15MOv9eTDr/Xkw6/15MOv9eTDr/Xkw6/15MOv9eTDr/Xkw6/15MOv9eTDr/Xkw6/15M + Ov9eTDr/Xkw6/15MOv9eTDr/Xkw6/0Y5K/9ANCf/LyYd/x0XEv8LCQf/AAAA/wAAAP8AAAD/AAAA/wAA + AP8AAAD/AAAA/wAAAP8AAAD/AAAA/xUJCf8vFRX/RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0Uf + H/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0Uf + H/9FHx//rp+e/+3s6//t7Ov/7ezr/+bl5PUpKSlaAAAAJAAAAAkAAAABAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAYAAAAbAAAARsC/v8bv7u7/7+7u/+/u + 7v/k4eH/Tysr/0UfH/9wOTH/0XNa/9FzWv/Rc1r/0XNa/9FzWv/OcFf/olU//zweFP8AAAD/AAAA/wAA + AP8AAAD/EQ4K/y8mHf9GOSv/Xkw6/15MOv9eTDr/Xkw6/15MOv9eTDr/Xkw6/1hURv9GbWv/Rm1r/zSG + kP8vj5z/L4+c/y+PnP8vj5z/L4+c/ymnqP8iw5H/QI5T/0COU/9PbUb/T21G/09tRv9eTDr/Xkw6/15M + Ov9eTDr/Xkw6/15MOv9YRzb/Rjkr/y8mHf8XEw7/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAA + AP8IAwP/Ig8P/zwbG/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0Uf + H/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9PKyv/4t/e/+3s6//t7Ov/7ezr/62s + q64AAAA5AAAAEwAAAAMAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAACAAAADQAAAC1ERENv7+7u/+/u7v/v7u7/7+7u/495ef9FHx//TSQi/79oUv/Rc1r/0XNa/9Fz + Wv/PcVj/rltD/0gkGf8AAAD/AAAA/wAAAP8RDgr/NCog/1JCMv9eTDr/Xkw6/15MOv9eTDr/Xkw6/0xl + Xv80hpD/I5+1/xewzf8A0v//ANL//wDS//8A0v//ANL//wDS//8A0v//ANL//wDS//8A0v//Cera/yLQ + bf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8lx2n/Ma9g/zieWf9DhVD/T21G/15MOv9eTDr/Xkw6/15M + Ov9YRzb/QDQn/yMcFf8LCQf/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/xkLC/88Gxv/RR8f/0Uf + H/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0Uf + H/9FHx//RR8f/0UfH/+ZhYX/7ezr/+3s6//t7Ov/5uXk9SoqKlgAAAAhAAAACAAAAAEAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAUAAAAZAAAAQsHAwMXw7+7/8O/u/+/u + 7v/Z1NT/RR8f/0UfH/+LSTz/0XNa/9FzWv/Rc1r/yWpP/203J/8MBgT/AAAA/wUEA/8jHBX/UkIy/15M + Ov9eTDr/Xkw6/15MOv9SXFL/On6D/x2owf8FyfL/ANL//wDS//8A0v//ANL//wDS//8A0v//ANL//wDS + //8A0v//ANL//wDS//8A0v//ANL//wDW//8R5bv/I9iC/yPYgv8j2IL/I9iC/yLWfP8i0G3/ItBt/yLQ + bf8i0G3/ItBt/yLQbf8i0G3/ItBt/y23Y/88llb/S3VJ/1pUPf9eTDr/Xkw6/15MOv9MPS//KSEZ/wUE + A/8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8VCQn/PBsb/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0Uf + H/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/08rK//i397/7ezr/+3s + 6//t7Ov/r6+uqwAAADMAAAAQAAAAAgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAABAAAACwAAAChHR0dq8O/u//Dv7v/w7+7/8O/u/4VtbP9FHx//TSQi/8htVv/Rc1r/z3FY/6BS + PP8kEgz/AAAA/wUEA/8vJh3/WEc2/15MOv9eTDr/Xkw6/1hURv86foP/F7DN/wDS//8A0v//ANL//wDS + //8A0v//ANL//wDS//8A0v//ANL//wDS//8A0v//ANL//wDS//8A0v//ANL//wDS//8A0v//AN3//wrz + 6v8l6Kz/J/DB/yfwwf8n8MH/J/DB/yfwwf8n8MH/Juqx/yXorP8k4pz/JN6R/yPYgv8i0G3/ItBt/yLQ + bf8i0G3/ItBt/zSmXf9DhVD/VlxA/15MOv9eTDr/Xkw6/0A0J/8dFxL/AAAA/wAAAP8AAAD/AAAA/wAA + AP8AAAD/GQsL/zwbG/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0Uf + H/9FHx//RR8f/0UfH/9FHx//RR8f/5mFhf/t7Ov/7ezr/+3s6//n5uX1Li4tUQAAABwAAAAGAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAMAAAAUAAAAO62srLDw7+7/8O/u//Dv + 7v/a1dT/RR8f/0UfH/+LSTz/0XNa/81vVf95PSv/DAYE/wAAAP8jHBX/WEc2/15MOv9eTDr/Xkw6/1Jc + Uv8jn7X/Bcny/wDS//8A0v//ANL//wDS//8A0v//ANL//wDS//8A0v//ANL//wDS//8A0v//ANL//wDS + //8A0v//ANL//wDS//8A0v//ANL//wDS//8A5v//Ce3a/yLQbf8i0G3/ItBt/yLQbf8i0nL/I9iC/yPY + gv8k4Jf/JOKc/yXorP8m7rv/J/DB/yfwwf8m6rH/JOKc/yPah/8i0nL/ItBt/yLQbf8i0G3/Ma9g/0d9 + Tf9aVD3/Xkw6/15MOv9SQjL/LyYd/wUEA/8AAAD/AAAA/wAAAP8AAAD/BAEB/yIPD/9AHR3/RR8f/0Uf + H/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//Tysr/+Lf + 3v/t7Ov/7ezr/+3s6/+ZmJiTAAAAKwAAAAwAAAABAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAACAAAACEAAABQ6ejn9fDv7v/w7+7/8O/u/496ef9FHx//TSQi/8htVv/Ka1H/YDAh/wAA + AP8RDgr/Rjkr/15MOv9eTDr/Xkw6/1JcUv8jn7X/ANL//wDS//8A0v//ANL//wDS//8A0v//ANL//wDS + //8A0v//ANL//wDS//8A0v//ANL//wDS//8A0v//ANL//wDS//8A0v//ANL//wDS//8A0v//ANL//wDt + //8B9///ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0nL/I9iC/yTg + l/8l6Kz/J/DB/yfwwf8m6rH/JN6R/yLUd/8i0G3/ItBt/yXHaf84nln/VlxA/15MOv9eTDr/WEc2/y8m + Hf8LCQf/AAAA/wAAAP8AAAD/AAAA/wgDA/8zFxf/RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0Uf + H/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//o5KR/+3s6//t7Ov/7ezr/9rZ2OAAAAA9AAAAFQAA + AAMAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAIAAAAOAAAAMZaWlZjw7+7/8O/u//Dv + 7v/l4uH/Tywr/0UfH/+LSTz/ymtR/0gkGf8AAAD/KSEZ/1hHNv9eTDr/Xkw6/1hURv8vj5z/ANL//wDS + //8A0v//ANL//wDS//8A0v//ANL//wDS//8A0v//ANL//wDS//8A0v//ANL//wDS//8A0v//ANL//wDS + //8A0v//ANL//wDS//8A0v//ANL//wDS//8A0v//Aff//wH3//8f0nb/ItBt/yLQbf8i0G3/ItBt/yLQ + bf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/I9qH/yTinP8m7Lb/J/DB/ybq + sf8k3pH/ItJy/yLQbf8i0G3/Ma9g/09tRv9eTDr/Xkw6/15MOv8vJh3/BQQD/wAAAP8AAAD/AAAA/wAA + AP8eDQ3/QB0d/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0Uf + H/9aODj/7ezr/+3s6//t7Ov/7ezr/2hnZ2wAAAAgAAAABwAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAABAAAABgAAABDy8rKz/Dv7v/w7+7/8O/u/6+hoP9FHx//RR8f/7lhSv9UKh3/AAAA/zov + JP9eTDr/Xkw6/15MOv9GbWv/C8Hm/wDS//8A0v//ANL//wDS//8A0v//ANL//wDS//8A0v//ANL//wDS + //8A0v//ANL//wDS//8A0v//ANL//wDS//8A0v//ANL//wDS//8A0v//ANL//wDS//8A0v//ANL//wDY + //8B9///Aff//xnZkf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQ + bf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i1nz/JOKc/ybuu/8n8MH/JeSh/yPYgv8i0G3/ItBt/zGv + YP9PbUb/Xkw6/15MOv9YRzb/LyYd/wAAAP8AAAD/AAAA/wAAAP8MBQX/OBkZ/0UfH/9FHx//RR8f/0Uf + H/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH//DuLj/7ezr/+3s6//t7Ov/vby7swAA + AC4AAAAMAAAAAQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAIAAAAJEpJSWfw7+//8O/u//Dv + 7v/w7+7/ZUZF/0UfH/9vNiz/hEIu/wUEA/9MPS//Xkw6/15MOv9eTDr/KZeo/wDS//8A0v//ANL//wDS + //8A0v//ANL//wDS//8A0v//ANL//wDS//8A0v//ANL//wDS//8A0v//ANL//wDS//8A0v//ANL//wDS + //8A0v//ANL//wDS//8A0v//ANL//wDS//8A0v//AN///wH3//8B9///Fd6j/yLQbf8i0G3/ItBt/yLQ + bf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQ + bf8i0G3/ItBt/yPcjP8l6Kz/J/DB/yXorP8j2of/ItBt/yLQbf8xr2D/UmRD/15MOv9eTDr/UkIy/xcT + Dv8AAAD/AAAA/wAAAP8AAAD/KxMT/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0Uf + H/9FHx//RR8f/4Rra//t7Ov/7ezr/+3s6//h4N/qAAAAPAAAABMAAAADAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAgAAAA4AAAAypKOjovDv7//w7+//8O/v/9rV1P9FHx//OBkZ/3A3J/8RCgf/TD0v/15M + Ov9eTDr/WFRG/xG42v8A0v//ANL//wDS//8A0v//ANL//wDS//8A0v//ANL//wDS//8A0v//ANL//wDS + //8A0v//ANL//wDS//8A0v//ANL//wDS//8A0v//ANL//wDS//8A0v//ANL//wDb//8A2///ANv//wDb + //8A6f//Aff//wH3//8R47b/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQ + bf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8j2IL/Jeis/yfw + wf8m6rH/I9iC/yLQbf8i0G3/PJZW/1pUPf9eTDr/Xkw6/0A0J/8FBAP/AAAA/wAAAP8AAAD/GQsL/0Uf + H/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//Tysr/+3s6//t7Ov/7ezr/+3s + 6/9sbGtoAAAAHAAAAAUAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAEAAAAFgAAAEHc29vh8O/v//Dv + 7//w7+//moeH/0AdHf8UCQj/SCQZ/0w9L/9eTDr/Xkw6/0xlXv8RuNr/ANL//wDS//8A0v//ANL//wDS + //8A0v//ANL//wDS//8A0v//ANL//wDS//8A0v//ANL//wDS//8A2///AN///wDk//8A6f//AO3//wDt + //8B9///Aff//wH3//8B9///Aff//wH3//8B9///Aff//wH3//8B9///Aff//w3oyP8i0G3/ItBt/yLQ + bf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQ + bf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/I9iC/yXorP8n8MH/Jeis/yLUd/8i0G3/Jcdp/0t1 + Sf9eTDr/Xkw6/1hHNv8XEw7/AAAA/wAAAP8AAAD/EQcH/0AdHf9FHx//RR8f/0UfH/9FHx//RR8f/0Uf + H/9FHx//RR8f/0UfH/9FHx//w7i4/+3s6//t7Ov/7ezr/6qpqZsAAAAmAAAACQAAAAEAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAcAAAAgKioqWvDv7//w7+//8O/v//Dv7/9lRkb/Hg0N/wAAAP86LyT/Xkw6/15M + Ov9SXFL/Bcny/wDS//8A0v//ANL//wDS//8A0v//ANL//wDS//8A0v//ANL//wDS//8A2P//AOL//wDr + //8A8v//Aff//wD0//8A7f//AOn//wDk//8A4v//ANv//wDb//8A2///ANb//wDS//8A0v//ANL//wDb + //8A2///AOn//wH3//8B9///Ce3a/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQ + bf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQ + bf8i0G3/ItBt/yPYgv8m7Lb/J/DB/yTgl/8i0G3/ItBt/zieWf9aVD3/Xkw6/15MOv80KiD/AAAA/wAA + AP8AAAD/DAUF/0AdHf9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/+OeHj/7ezr/+3s + 6//t7Ov/1dTU0wAAADIAAAAOAAAAAgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABAAAACwAAACyZmZmV8O/v//Dv + 7//w7+//2tXV/zgZGf8AAAD/HRcS/15MOv9eTDr/WFRG/xG42v8A0v//ANL//wDS//8A0v//ANL//wDS + //8A0v//ANL//wDd//8A6f//APL//wD0//8A6///AOT//wDb//8A1P//ANL//wDS//8A0v//ANL//wDS + //8A0v//ANL//wDS//8A0v//ANL//wDS//8A0v//ANL//wDS//8A3///Aff//wH3//8D9PX/ItBt/yLQ + bf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQ + bf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8k3pH/Ju67/ybq + sf8i1nz/ItBt/ym/Zv9SZEP/Xkw6/15MOv9GOSv/BQQD/wAAAP8AAAD/DAUF/0AdHf9FHx//RR8f/0Uf + H/9FHx//RR8f/0UfH/9FHx//RR8f/2RFRf/t7Ov/7ezr/+3s6//t7Ov/AAAAPQAAABQAAAADAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAIAAAARAAAAOMTExMLw7+//8O/v//Dv7/+llJT/EQcH/wUEA/9YRzb/Xkw6/15M + Ov8XsM3/ANL//wDS//8A0v//ANL//wDS//8A0v//ANT//wDk//8A8v//APL//wDm//8A2P//ANL//wDS + //8A0v//ANL//wDS//8A0v//ANL//wDS//8A0v//ANL//wDS//8A0v//ANL//wDS//8A0v//ANL//wDS + //8A0v//ANL//wDb//8B9///Aff//wH3//8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQ + bf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQ + bf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i1Hf/Jeam/yfwwf8k3pH/ItBt/yXHaf9HfU3/Xkw6/15M + Ov9SQjL/EQ4K/wAAAP8AAAD/DAUF/0AdHf9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/+Lf + 3v/t7Ov/7ezr/+3s6/9ubW1mAAAAGgAAAAQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABAAAABgAAABF4+Li6/Dv + 7//w7+//8O/v/2lYWP8AAAD/LyYd/15MOv9eTDr/L4+c/wDS//8A0v//ANL//wDS//8A0v//ANT//wDm + //8A9P//AOn//wDY//8A0v//ANL//wDS//8A0v//ANL//wDS//8A0v//ANL//wDS//8A0v//ANL//wDS + //8A0v//ANL//wDS//8A0v//ANL//wDS//8A0v//ANL//wDS//8A0v//ANL//wH3//8B9///Aff//xnZ + kf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQ + bf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQ + bf8i0G3/JN6R/ybuu/8l5KH/ItJy/yLQbf88llb/Xkw6/15MOv9YRzb/EQ4K/wAAAP8AAAD/DAUF/0Uf + H/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//w7i4/+3s6//t7Ov/7ezr/66urZcAAAAhAAAABwAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAHAAAAIUxLS2Tw7+//8O/v//Dv7//w7+//JBgY/wUEA/9eTDr/Xkw6/0xl + Xv8A0v//ANL//wDS//8A0v//ANL//wDi//8A9P//AOT//wDU//8A0v//ANL//wDS//8A0v//ANL//wDS + //8A0v//ANL//wDS//8A0v//ANL//wDS//8A0v//ANL//wDS//8A0v//ANL//wDS//8A0v//ANL//wDS + //8A0v//ANL//wDS//8A0v//APD//wH3//8B9///GdmR/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQ + bf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQ + bf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItZ8/ybqsf8m6rH/ItJy/yLQ + bf84nln/Xkw6/15MOv9YRzb/EQ4K/wAAAP8AAAD/GQsL/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0Uf + H/+ZhYX/7ezr/+3s6//t7Ov/wL++sAAAACcAAAAJAAAAAQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAQAAAAsAAAArmpmZlPDv + 7//w7+//8O/v/8vGxv8AAAD/LyYd/15MOv9eTDr/F7DN/wDS//8A0v//ANL//wDW//8A8P//AOv//wDW + //8A0v//ANL//wDS//8A0v//ANL//wDS//8A0v//ANL//wDS//8A0v//ANL//wDS//8A0v//ANL//wDS + //8A0v//ANL//wDS//8A0v//ANL//wDS//8A0v//ANL//wDS//8A0v//ANL//wDS//8A6f//Aff//wH3 + //8R47b/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQ + bf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQ + bf8i0G3/ItBt/yLQbf8i0G3/ItJy/yXkof8m7Lb/ItZ8/yLQbf84nln/Xkw6/15MOv9YRzb/EQ4K/wAA + AP8AAAD/JhER/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/4Rra//t7Ov/7ezr/+3s6//X1tXSAAAALgAA + AAwAAAABAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAACAAAAEAAAADXGxcTB8O/v//Dv7//w7+//i4iI/wAAAP9SQjL/Xkw6/0ht + Yv8A0v//ANL//wDS//8A3f//APL//wDd//8A0v//ANL//wDS//8A0v//ANL//wDS//8A0v//ANL//wDS + //8A0v//ANL//wDS//8A0v//ANL//wDS//8A0v//ANL//wDS//8A0v//ANL//wDS//8A0v//ANL//wDS + //8A0v//ANL//wDS//8A0v//ANL//wDi//8B9///Aff//w/lv/8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQ + bf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQ + bf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yTi + nP8m7rv/ItZ8/yLQbf84nln/Xkw6/15MOv9YRzb/EQ4K/wAAAP8AAAD/OBkZ/0UfH/9FHx//RR8f/0Uf + H/9FHx//b1JS/+3s6//t7Ov/7ezr/+fm5vQAAAA0AAAADwAAAAIAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAMAAAAVAAAAQOTj + 4uvw7+//8O/v//Dv7/9LSkr/EQ4K/15MOv9eTDr/I6em/wDS//8A0v//AN///wDw//8A1P//ANL//wDS + //8A0v//ANL//wDS//8A0v//ANL//wDS//8A0v//ANL//wDS//8A0v//ANL//wDS//8A0v//ANL//wDS + //8A0v//ANL//wDS//8A0v//ANL//wDS//8A0v//ANL//wDS//8A0v//ANL//wDS//8A0v//ANv//wH3 + //8B9///Ce3a/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQ + bf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQ + bf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yPcjP8m7rv/ItR3/yLQbf84nln/Xkw6/15M + Ov9YRzb/BQQD/wAAAP8IAwP/QB0d/0UfH/9FHx//RR8f/0UfH/9FHx//7ezr/+3s6//t7Ov/7ezr/wAA + ADoAAAARAAAAAgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAABAAAABoAAABI8fDv//Hw7//x8O//8O/v/w8ODv8pIRn/Xkw6/1Zc + QP8K0dH/ANL//wDf//8A6f//ANL//wDS//8A0v//ANL//wDS//8A0v//ANL//wDS//8A0v//ANL//wDS + //8A0v//ANL//wDS//8A0v//ANL//wDS//8A0v//ANL//wDS//8A0v//ANL//wDS//8A0v//ANL//wDS + //8A0v//ANL//wDS//8A0v//ANL//wDS//8A0v//Aff//wH3//8F8uz/ItBt/yLQbf8i0G3/ItBt/yLQ + bf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQ + bf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQ + bf8i0G3/ItBt/yPcjP8m6rH/ItJy/yLQbf9PbUb/Xkw6/15MOv9MPS//AAAA/wAAAP8eDQ3/RR8f/0Uf + H/9FHx//RR8f/0UfH//t7Ov/7ezr/+3s6//t7Ov/dnZ1XwAAABQAAAADAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAGAAAAHoKC + gXXx8O//8fDv//Hw7//h4eD/AAAA/zovJP9eTDr/Q4VQ/wTR7P8A3///AOn//wDS//8A0v//ANL//wDS + //8A0v//ANL//wDS//8A0v//ANL//wDS//8A0v//ANL//wDS//8A0v//ANL//wDS//8A0v//ANL//wDS + //8A0v//ANL//wDS//8A0v//ANL//wDS//8A0v//ANL//wDS//8A0v//ANL//wDS//8A0v//ANL//wDS + //8A8P//Aff//wH3//8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQ + bf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQ + bf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yTinP8l6Kz/ItBt/1pU + Pf9eTDr/Xkw6/15MOv80KiD/AAAA/wAAAP84GRn/RR8f/0UfH/9FHx//RR8f/83FxP/t7Ov/7ezr/+3s + 6/+KioltAAAAFgAAAAMAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAYAAAAgk5KSgvHw7//x8O//8fDv/7S0s/8AAAD/Rjkr/15M + Ov8ur2n/ANj//wDm//8A0v//ANL//wDS//8A0v//ANL//wDS//8A0v//ANL//wDS//8A0v//ANL//wDS + //8A0v//ANL//wDS//8A0v//ANL//wDS//8A0v//ANL//wDS//8A0v//ANL//wDS//8A0v//ANL//wDS + //8A0v//ANL//wDS//8A0v//ANL//wDS//8A0v//ANL//wDp//8B9///Aff//x3Uf/8i0G3/ItBt/yLQ + bf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQ + bf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQ + bf8i0G3/ItBt/yLQbf8i0G3/ItBt/zDJkv9Hf1L/Xkw6/15MOv9eTDr/Xkw6/15MOv8XEw7/AAAA/xEH + B/9FHx//RR8f/0UfH/9FHx//w7i4/+3s6//t7Ov/7ezr/4mIiG4AAAAXAAAABAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABwAA + ACC9vLyi8fDv//Hw7//x8O//paWk/wAAAP9MPS//Xkw6/xnQkf8A6f//ANL//wDS//8A0v//ANL//wDS + //8A0v//ANL//wDS//8A0v//ANL//wDS//8A0v//ANL//wDS//8A0v//ANL//wDS//8A0v//ANL//wDS + //8A0v//ANL//wDS//8A0v//ANL//wDS//8A0v//ANL//wDS//8A0v//ANL//wDS//8A0v//ANL//wDS + //8A0v//AOL//wH3//8B9///GdmR/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQ + bf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQ + bf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/Jcdp/zyWVv9WXED/Xkw6/15M + Ov9eTDr/Xkw6/15MOv9eTDr/Xkw6/1JCMv8FBAP/AAAA/zMXF/9FHx//RR8f/0UfH//Dubj/7ezs/+3s + 6//t7Ov/qqmphAAAABcAAAAEAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAHAAAAIb28vKLx8PD/8fDv//Hw7/94eHf/AAAA/15M + Ov9SZEP/Edy2/wDW//8A0v//ANL//wDS//8A0v//ANL//wDS//8A0v//ANL//wDS//8A0v//ANL//wDS + //8A0v//ANL//wDS//8A0v//ANL//wDS//8A0v//ANL//wDS//8A0v//ANL//wDS//8A0v//ANL//wDS + //8A0v//ANL//wDS//8A0v//ANL//wDS//8A0v//ANL//wDS//8A2///Aff//wH3//8T4az/ItBt/yLQ + bf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQ + bf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQ + bf8i0G3/Ma9g/0d9Tf9eTDr/Xkw6/15MOv9eTDr/Xkw6/15MOv9eTDr/Xkw6/15MOv9eTDr/Xkw6/y8m + Hf8AAAD/EQcH/0UfH/9FHx//RR8f/8O5uP/t7Oz/7ezs/+3s7P/CwcGbAAAAFwAAAAQAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAcAAAAgvby8ovHw8P/x8PD/8fDw/3h4d/8AAAD/Xkw6/0d9Tf8g1oX/E+Hg/wTV9/8A0v//ANL//wDS + //8A0v//ANL//wDS//8A0v//ANL//wDS//8A0v//ANL//wDS//8A0v//ANL//wDS//8A0v//ANL//wDS + //8A0v//ANL//wDS//8A0v//ANL//wDS//8A0v//ANL//wDS//8A0v//ANL//wDS//8A0v//ANL//wDS + //8A0v//ANL//wDU//8B9///Aff//xHjtv8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQ + bf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQ + bf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8lx2n/PJZW/1ZcQP9eTDr/Xkw6/15MOv9eTDr/Xkw6/15M + Ov9eTDr/Xkw6/15MOv9eTDr/Xkw6/15MOv9eTDr/WEc2/wUEA/8AAAD/PBsb/0UfH/9FHx//w7m4/+7t + 7P/u7ez/7ezs/8LCwZsAAAAXAAAABAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABwAAACC+vb2h8fDw//Hw8P/x8PD/eHh4/wAA + AP9MPS//PJZW/yTekf8n8MH/J/DB/xrm1P8M2+v/ANL//wDS//8A0v//ANL//wDS//8A0v//ANL//wDS + //8A0v//ANL//wDS//8A0v//ANL//wDS//8A0v//ANL//wDS//8A0v//ANL//wDS//8A0v//ANL//wDS + //8A0v//ANL//wDS//8A0v//ANL//wDS//8A0v//ANL//wDS//8A0v//ANL//wDy//8B9///Ce3a/yLQ + bf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQ + bf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8xr2D/R31N/15M + Ov9eTDr/Xkw6/15MOv9eTDr/Xkw6/15MOv9eTDr/Xkw6/15MOv9eTDr/Xkw6/15MOv9eTDr/Xkw6/15M + Ov9eTDr/LyYd/wAAAP8eDQ3/RR8f/0UfH//Dubj/7u3s/+7t7P/u7ez/w8LBmwAAABcAAAAEAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAGAAAAH7++vqDx8PD/8fDw//Hw8P+WoZ3/AAAA/0Y5K/8xr2D/JeSh/yfwwf8n8MH/J/DB/yfw + wf8i7Mj/Ed/j/wLT+/8A0v//ANL//wDS//8A0v//ANL//wDS//8A0v//ANL//wDS//8A0v//ANL//wDS + //8A0v//ANL//wDS//8A0v//ANL//wDS//8A0v//ANL//wDS//8A0v//ANL//wDS//8A0v//ANL//wDS + //8A0v//ANL//wDS//8A0v//AOv//wH3//8J7dr/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQ + bf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQ + bf8i0G3/ItBt/yXHaf88llb/VlxA/15MOv9eTDr/Xkw6/15MOv9eTDr/Xkw6/15MOv9eTDr/Xkw6/15M + Ov9eTDr/Xkw6/15MOv9eTDr/Xkw6/15MOv9eTDr/Xkw6/15MOv9YRzb/BQQD/wgDA/9FHx//RR8f/8O5 + uP/u7ez/7u3s/+7t7P/DwsGbAAAAFwAAAAQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAUAAAAbt7a2kvHw8P/x8PD/8fDw/7S0 + tP8AAAD/Oi8k/yLQbf8m7Lb/J/DB/yfwwf8n8MH/J/DB/yfwwf8n8MH/J/DB/xjk2P8H1/P/ANL//wDS + //8A0v//ANL//wDS//8A0v//ANL//wDS//8A0v//ANL//wDS//8A0v//ANL//wDS//8A0v//ANL//wDS + //8A0v//ANL//wDS//8A0v//ANL//wDS//8A0v//ANL//wDS//8A0v//ANL//wDS//8A5P//Aff//wH3 + //8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQ + bf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/zGvYP9HfU3/Xkw6/15MOv9eTDr/Xkw6/15M + Ov9eTDr/Xkw6/15MOv9eTDr/Xkw6/15MOv9eTDr/Xkw6/15MOv9eTDr/Xkw6/15MOv9eTDr/Xkw6/15M + Ov9eTDr/Xkw6/15MOv8jHBX/AAAA/zgZGf9FHx//w7m4/+7t7P/u7ez/7u3s/8PDwpoAAAAXAAAABAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAwAAABaNjY1s8fDw//Hw8P/x8PD/w87K/wAAAP8aQib/ItJy/yfwwf8n8MH/J/DB/yfw + wf8n8MH/J/DB/yfwwf8n8MH/J/DB/yfwwf8f6sz/Dt3n/wLT+/8A0v//ANL//wDS//8A0v//ANL//wDS + //8A0v//ANL//wDS//8A0v//ANL//wDS//8A0v//ANL//wDS//8A0v//ANL//wDS//8A0v//ANL//wDS + //8A0v//ANL//wDS//8A0v//ANL//wDb//8B9///Aff//x/Sdv8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQ + bf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/Jcdp/zyW + Vv9WXED/Xkw6/15MOv9eTDr/Xkw6/15MOv9eTDr/Xkw6/15MOv9eTDr/Xkw6/15MOv9eTDr/Xkw6/15M + Ov9eTDr/Xkw6/15MOv9gTzn/Z1Y5/15MOv9eTDr/Xkw6/15MOv9eTDr/Xkw6/0A0J/8AAAD/Ig8P/0Uf + H//Dubj/7u3s/+7t7P/u7ez/rKyrgwAAABYAAAADAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACAAAAEWFhYU7x8PD/8fDw//Hw + 8P/x8PD/AAAA/w5bL/8j2IL/J/DB/yfwwf8n8MH/J/DB/yfwwf8n8MH/J/DB/yfwwf8n8MH/J/DB/yfw + wf8n8MH/JO7E/xXi3P8E1ff/ANL//wDS//8A0v//ANL//wDS//8A0v//ANL//wDS//8A0v//ANL//wDS + //8A0v//ANL//wDS//8A0v//ANL//wDS//8A0v//ANL//wDS//8A0v//ANL//wDS//8A0v//ANT//wH3 + //8B9///GdmR/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQ + bf8i0G3/ItBt/yLQbf8i0G3/Ma9g/0d9Tf9eTDr/Xkw6/15MOv9eTDr/Xkw6/15MOv9eTDr/Xkw6/15M + Ov9eTDr/Xkw6/15MOv9eTDr/Xkw6/15MOv9eTDr/Xkw6/15MOv9eTDr/Xkw6/15MOv9xYzj/X005/15M + Ov9eTDr/Xkw6/15MOv9eTDr/Xkw6/wAAAP8RBwf/RR8f/8O5uP/u7ez/7u3s/+7t7P+Ojo1qAAAAFAAA + AAMAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAEAAAAMAAAALuzr6/Px8PD/8fDw//Hw8P88PDz/FYJE/yTgl/8n8MH/J/DB/yfw + wf8n8MH/J/DB/yfwwf8n8MH/J/DB/yfwwf8n8MH/J/DB/yfwwf8n8MH/J/DB/yfwwf8d6ND/DNvr/wDS + //8A0v//ANL//wDS//8A0v//ANL//wDS//8A0v//ANL//wDS//8A0v//ANL//wDS//8A0v//ANL//wDS + //8A0v//ANL//wDS//8A0v//ANL//wDS//8A0v//APL//wH3//8V3qP/ItBt/yLQbf8i0G3/ItBt/yLQ + bf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8lx2n/PJZW/1ZcQP9eTDr/Xkw6/15M + Ov9eTDr/Xkw6/15MOv9eTDr/Xkw6/15MOv9eTDr/Xkw6/15MOv9eTDr/Xkw6/15MOv9eTDr/Xkw6/15M + Ov9eTDr/Xkw6/15MOv9eTDr/Xkw6/21eOP9lVTn/Xkw6/15MOv9eTDr/Xkw6/15MOv9eTDr/FxMO/wQB + Af9FHx//zsbF/+7t7P/u7ez/7u3s/5STkmYAAAARAAAAAgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAQAAAAkAAAAm3dzc0PHw + 8P/x8PD/8fDw/3iDf/8bqVj/ItBt/yTgl/8l5qb/J/DB/yfwwf8n8MH/J/DB/yfwwf8n8MH/J/DB/yfw + wf8n8MH/J/DB/yfwwf8n8MH/J/DB/yfwwf8n8MH/IuzI/xPh4P8E1ff/ANL//wDS//8A0v//ANL//wDS + //8A0v//ANL//wDS//8A0v//ANL//wDS//8A0v//ANL//wDS//8A0v//ANL//wDS//8A0v//ANL//wDS + //8A6///Aff//xHjtv8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQ + bf8xr2D/R31N/15MOv9eTDr/Xkw6/15MOv9eTDr/Xkw6/15MOv9eTDr/Xkw6/15MOv9eTDr/Xkw6/15M + Ov9eTDr/Xkw6/15MOv9eTDr/Xkw6/15MOv9eTDr/Xkw6/15MOv9eTDr/Xkw6/15MOv9eTDr/bV44/2xd + OP9eTDr/Xkw6/15MOv9eTDr/Xkw6/15MOv8vJh3/AAAA/0UfH//u7ez/7u3s/+7t7P/u7ez/goGBVwAA + AA8AAAACAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAABwAAACGwsLCX8fDw//Hw8P/x8PD/w8PD/yLQbf8i0G3/JOKc/yLQ + bf8i1Hf/JOCX/ybstv8n8MH/J/DB/yfwwf8n8MH/J/DB/yfwwf8n8MH/J/DB/yfwwf8n8MH/J/DB/yfw + wf8n8MH/J/DB/yfwwf8Y5Nj/Cdnv/wDS//8A0v//ANL//wDS//8A0v//ANL//wDS//8A0v//ANL//wDS + //8A0v//ANL//wDS//8A0v//ANL//wDS//8A0v//ANL//wDk//8B9///C+rR/yLQbf8i0G3/ItBt/yLQ + bf8i0G3/ItBt/yLQbf8i0G3/ItBt/yXHaf84nln/VlxA/15MOv9eTDr/Xkw6/15MOv9eTDr/Xkw6/15M + Ov9eTDr/Xkw6/15MOv9eTDr/Xkw6/15MOv9eTDr/Xkw6/15MOv9eTDr/Xkw6/15MOv9eTDr/Xkw6/15M + Ov9eTDr/Xkw6/15MOv9eTDr/Xkw6/15MOv9pWjj/cWM4/15MOv9eTDr/Xkw6/15MOv9eTDr/Xkw6/zov + JP8AAAD/MxcX/+7t7P/u7ez/7u3s/+7t7P8AAAAvAAAADAAAAAEAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAHAAAAIX59 + fXnx8PD/8fDw//Hw8P+96M//ItBt/yLQbf8n8MH/ItBt/yLQbf8i0G3/ItBt/yPah/8l5qb/J/DB/yfw + wf8n8MH/J/DB/yfwwf8n8MH/J/DB/yfwwf8n8MH/J/DB/yfwwf8n8MH/J/DB/yfwwf8n8MH/IuzI/w7d + 5/8C0/v/ANL//wDS//8A0v//ANL//wDS//8A0v//ANL//wDS//8A0v//ANL//wDS//8A0v//ANL//wDS + //8A0v//AN3//wH3//8J7dr/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/y23Y/9HfU3/WlQ9/15M + Ov9eTDr/Xkw6/15MOv9eTDr/Xkw6/15MOv9eTDr/Xkw6/15MOv9eTDr/Xkw6/15MOv9eTDr/Xkw6/15M + Ov9eTDr/Xkw6/15MOv9eTDr/Xkw6/15MOv9eTDr/Xkw6/15MOv9eTDr/Xkw6/15MOv9eTDr/Xkw6/2la + OP9zZTj/Xkw6/15MOv9eTDr/Xkw6/15MOv9eTDr/Rjkr/wAAAP9TPT3/7u3s/+7t7P/u7ez/7u3s/wAA + ACkAAAAKAAAAAQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAgAAAAlnp6ekfHw8P/x8PD/8fDw/5bitv8i0G3/ItBt/yfw + wf8i1nz/ItBt/yLQbf8i0G3/ItBt/yLQbf8i1Hf/JOKc/ybuu/8n8MH/J/DB/yfwwf8n8MH/J/DB/yfw + wf8n8MH/J/DB/yfwwf8n8MH/J/DB/yfwwf8n8MH/J/DB/yTuxP8Y5Nj/BNX3/wDS//8A0v//ANL//wDS + //8A0v//ANL//wDS//8A0v//ANL//wDS//8A0v//ANL//wDS//8A1v//Aff//wP09f8i0G3/ItBt/yLQ + bf8i0G3/Jcdp/zieWf9SZEP/Xkw6/15MOv9eTDr/Xkw6/15MOv9eTDr/Xkw6/15MOv9eTDr/Xkw6/15M + Ov9eTDr/Xkw6/15MOv9eTDr/Xkw6/15MOv9eTDr/Xkw6/15MOv9eTDr/Xkw6/15MOv9eTDr/Xkw6/15M + Ov9eTDr/Xkw6/15MOv9eTDr/Xkw6/15MOv9eTDr/bV44/3NlOP9eTDr/Xkw6/15MOv9eTDr/Xkw6/15M + Ov9GOSv/AAAA/15KSv/u7ez/7u3s/+7t7P/b2tnPAAAAIgAAAAcAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABAAAACgAA + ACm3tran8fDw//Hw8P/x8PD/ieCu/yLQbf8i0G3/Juy2/yTgl/8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQ + bf8i0G3/ItBt/yPcjP8l6Kz/J/DB/yfwwf8n8MH/J/DB/yfwwf8n8MH/J/DB/yfwwf8n8MH/J/DB/yfw + wf8n8MH/J/DB/yfwwf8n8MH/HejQ/w7d5/8A0v//ANL//wDS//8A0v//ANL//wDS//8A0v//ANL//wDS + //8A0v//ANL//wDS//8A9P//Aff//yLQbf8i0G3/Lbdj/0d9Tf9aVD3/Xkw6/15MOv9eTDr/Xkw6/15M + Ov9eTDr/Xkw6/15MOv9eTDr/Xkw6/15MOv9eTDr/Xkw6/15MOv9eTDr/Xkw6/15MOv9eTDr/Xkw6/15M + Ov9eTDr/Xkw6/15MOv9eTDr/Xkw6/15MOv9eTDr/Xkw6/15MOv9eTDr/Xkw6/15MOv9eTDr/Xkw6/15M + Ov9zZTj/cWM4/15MOv9eTDr/Xkw6/15MOv9eTDr/Xkw6/0Y5K/8AAAD/iH59/+7t7P/u7ez/7u3s/9fX + 1sEAAAAcAAAABQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAEAAAAKAAAAKra1tajx8PD/8fDw//Hw8P+J4K7/ItBt/yLQ + bf8k4pz/Juqx/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i1Hf/JOKc/ybu + u/8n8MH/J/DB/yfwwf8n8MH/J/DB/yfwwf8n8MH/J/DB/yfwwf8n8MH/J/DB/yfwwf8n8MH/J/DB/yTu + xP8T4eD/BNX3/wDS//8A0v//ANL//wDS//8A0v//ANL//wDS//8A0v//ANL//wDt//8B9///Fd6j/yLQ + bf80pl3/T21G/15MOv9eTDr/Xkw6/15MOv9eTDr/Xkw6/15MOv9eTDr/Xkw6/15MOv9eTDr/Xkw6/15M + Ov9eTDr/Xkw6/15MOv9eTDr/Xkw6/15MOv9eTDr/Xkw6/15MOv9eTDr/Xkw6/15MOv9eTDr/Xkw6/15M + Ov9eTDr/Xkw6/15MOv9eTDr/Xkw6/15MOv9eTDr/Y1I5/3NlOP9tXjj/Xkw6/15MOv9eTDr/Xkw6/15M + Ov9eTDr/Rjkr/wAAAP+dmJf/7u3s/+7t7P/u7ez/xMPDmgAAABYAAAADAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAQAA + AAoAAAAr29ra0vHw8P/x8PD/8fDw/2/cnv8i0G3/ItBt/yLUd/8n8MH/ItR3/yLQbf8i0G3/ItBt/yLQ + bf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yPcjP8l6Kz/J/DB/yfwwf8n8MH/J/DB/yfw + wf8n8MH/J/DB/yfwwf8n8MH/J/DB/yfwwf8n8MH/J/DB/yfwwf8n8MH/GubU/wnZ7/8A0v//ANL//wDS + //8A0v//ANL//wDS//8A0v//AOT//wH3//8Z2ZH/ItBt/yLQbf8i0G3/Jcdp/zieWf9WXED/Xkw6/15M + Ov9eTDr/Xkw6/15MOv9eTDr/Xkw6/15MOv9eTDr/Xkw6/15MOv9eTDr/Xkw6/15MOv9eTDr/Xkw6/15M + Ov9eTDr/Xkw6/15MOv9eTDr/Xkw6/15MOv9eTDr/Xkw6/15MOv9eTDr/Xkw6/15MOv9eTDr/Xkw6/15M + Ov9oWDn/c2U4/2hYOf9eTDr/Xkw6/15MOv9eTDr/Xkw6/15MOv9ANCf/AAAA/8XCwv/u7ez/7u3s/+7t + 7P+npqVxAAAAEQAAAAIAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABAAAACgAAACrc29rR8fDw//Hw8P/x8PD/ieCu/yLQ + bf8i0G3/ItBt/yXorP8k4pz/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQ + bf8i0G3/ItBt/yLQbf8i1Hf/JeSh/ybuu/8n8MH/J/DB/yfwwf8n8MH/J/DB/yfwwf8n8MH/J/DB/yfw + wf8n8MH/J/DB/yfwwf8n8MH/J/DB/yLsyP8R3+P/AtP7/wDS//8A0v//ANL//wDS//8A3f//Aff//x/S + dv8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8xr2D/S3VJ/15MOv9eTDr/Xkw6/15MOv9eTDr/Xkw6/15M + Ov9eTDr/Xkw6/15MOv9eTDr/Xkw6/15MOv9eTDr/Xkw6/15MOv9eTDr/Xkw6/15MOv9eTDr/Xkw6/15M + Ov9eTDr/Xkw6/15MOv9eTDr/Xkw6/15MOv9eTDr/Xkw6/21eOP9zZTj/ZFM5/15MOv9eTDr/Xkw6/15M + Ov9eTDr/Xkw6/y8mHf8AAAD/7u3t/+7t7f/u7ez/7u3s/2ppaUcAAAANAAAAAQAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAJAAAAJsTDw7Dy8fD/8vHw//Hw8P+J4K7/ItBt/yLQbf8i0G3/I9iC/ybuu/8i0nL/ItBt/yLQ + bf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItJy/yPc + jP8m6rH/J/DB/yfwwf8n8MH/J/DB/yfwwf8n8MH/J/DB/yfwwf8n8MH/J/DB/yfwwf8n8MH/J/DB/yfw + wf8n8MH/GOTY/wfX8/8A0v//ANL//wDW//8F8uz/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQ + bf8i0G3/Kb9m/0COU/9aVD3/Xkw6/15MOv9eTDr/Xkw6/15MOv9eTDr/Xkw6/15MOv9eTDr/Xkw6/15M + Ov9eTDr/Xkw6/15MOv9eTDr/Xkw6/15MOv9eTDr/Xkw6/15MOv9eTDr/Xkw6/15MOv9eTDr/Xkw6/15M + Ov9eTDr/c2U4/3NlOP9fTTn/Xkw6/15MOv9eTDr/Xkw6/15MOv9eTDr/HRcS/ywsLP/u7e3/7u3t/+7t + 7f/u7ez/AAAAJwAAAAkAAAABAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAcAAAAhvr29ovLx8f/y8fD/8vHw/4ff + r/8i0G3/ItBt/yLQbf8i0G3/Jeis/yTgl/8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQ + bf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i1nz/JeSh/ybuu/8n8MH/J/DB/yfw + wf8n8MH/J/DB/yfwwf8n8MH/J/DB/yfwwf8n8MH/J/DB/yfwwf8n8MH/J/DB/x/qzP8O3ef/ANL//w3m + yP8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf84nln/UmRD/15M + Ov9eTDr/Xkw6/15MOv9eTDr/Xkw6/15MOv9eTDr/Xkw6/15MOv9eTDr/Xkw6/15MOv9eTDr/Xkw6/15M + Ov9eTDr/Xkw6/15MOv9eTDr/Xkw6/15MOv9eTDr/Xkw6/2NSOf9zZTj/cGE4/15MOv9eTDr/Xkw6/15M + Ov9eTDr/Xkw6/15MOv8FBAP/WWRg/+7t7f/u7e3/7u3t/93c3M0AAAAeAAAABgAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAABQAAABvDwsKd8vHx//Lx8f/y8fH/vujP/yLQbf8i0G3/ItBt/yLQbf8i1Hf/Ju67/yLS + cv8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQ + bf8i0G3/ItBt/yLQbf8i0G3/ItJy/yPcjP8m6rH/J/DB/yfwwf8n8MH/J/DB/yfwwf8n8MH/J/DB/yfw + wf8n8MH/J/DB/yfwwf8n8MH/J/DB/yfwwf8j6LX/HdJ//yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQ + bf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/Lbdj/0d9Tf9eTDr/Xkw6/15MOv9eTDr/Xkw6/15M + Ov9eTDr/Xkw6/15MOv9eTDr/Xkw6/15MOv9eTDr/Xkw6/15MOv9eTDr/Xkw6/15MOv9eTDr/Xkw6/15M + Ov9eTDr/aFg5/3NlOP9sXTj/Xkw6/15MOv9eTDr/Xkw6/15MOv9eTDr/TD0v/wAAAP+ko6L/7u3t/+7t + 7f/u7e3/zs3NpQAAABYAAAADAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAADAAAAFZCPj2ry8fH/8vHx//Lx + 8f/V6+H/ItBt/yLQbf8i0G3/ItBt/yLQbf8k4Jf/Jeam/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQ + bf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQ + bf8j2IL/JeSh/yfwwf8n8MH/J/DB/yfwwf8n8MH/J/DB/yfwwf8n8MH/J/DB/yfwwf8n8MH/J/DB/yTg + l/8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQ + bf8i0G3/ItBt/yXHaf9AjlP/VlxA/15MOv9eTDr/Xkw6/15MOv9eTDr/Xkw6/15MOv9eTDr/Xkw6/15M + Ov9eTDr/Xkw6/15MOv9eTDr/Xkw6/15MOv9eTDr/Xkw6/15MOv9sXTj/c2U4/2hYOf9eTDr/Xkw6/15M + Ov9eTDr/Xkw6/15MOv8jHBX/AAAA/+Df3v/v7u3/7u3t/+7t7f+ura1sAAAADgAAAAIAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAIAAAAPPTw8P/Lx8f/y8fH/8vHx//Lx8f85037/ItBt/yLQbf8i0G3/ItBt/yLQ + bf8l6Kz/I9yM/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQ + bf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItJy/yTekf8m7Lb/J/DB/yfw + wf8n8MH/J/DB/yfwwf8n8MH/J/DB/yfwwf8n8MH/I9qH/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQ + bf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/NKZd/09t + Rv9eTDr/Xkw6/15MOv9eTDr/Xkw6/15MOv9eTDr/Xkw6/15MOv9eTDr/Xkw6/15MOv9eTDr/Xkw6/15M + Ov9eTDr/Xkw6/3FjOP9zZTj/Y1I5/15MOv9eTDr/Xkw6/15MOv9eTDr/WEc2/wUEA/9ZWVj/7+7t/+/u + 7f/v7u3/6+rp8gAAACMAAAAIAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAQAAAAkAAAAm5OPj2/Lx + 8f/y8fH/8vHx/2nZov8i0G3/ItBt/yLQbf8i0G3/ItBt/yLScv8m6rH/ItZ8/yLQbf8i0G3/ItBt/yLQ + bf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQ + bf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8j2IL/JeSh/yfwwf8n8MH/J/DB/yfwwf8n8MH/J/DB/yfw + wf8i1Hf/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQ + bf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/ym/Zv9HfU3/WlQ9/15MOv9eTDr/Xkw6/15M + Ov9eTDr/Xkw6/15MOv9eTDr/Xkw6/15MOv9eTDr/Xkw6/15MOv9hUDn/c2U4/3NlOP9fTTn/Xkw6/15M + Ov9eTDr/Xkw6/15MOv8vJh3/AAAA/7Oysf/v7u3/7+7t/+/u7f/X1tWwAAAAFgAAAAQAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAABQAAABrOzc2o8vHx//Lx8f/y8fH/uebS/yLQbf8i0G3/ItBt/yLQ + bf8i0G3/ItBt/yLWfP8m7Lb/ItJy/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQ + bf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQ + bf8i0G3/ItJy/yTekf8m7Lb/J/DB/yfwwf8n8MH/Ju67/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQ + bf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQ + bf8i0G3/ItBt/yLQbf8lx2n/OJ5Z/1ZcQP9eTDr/Xkw6/15MOv9eTDr/Xkw6/15MOv9eTDr/Xkw6/15M + Ov9eTDr/Xkw6/2dWOf9zZTj/cGE4/15MOv9eTDr/Xkw6/15MOv9eTDr/UkIy/wUEA/87Ozv/7+7t/+/u + 7f/v7u3/7+7t/6WkpFwAAAAMAAAAAQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACAAAAEISE + hFfy8fH/8vHx//Lx8f/y8fH/NdGB/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLWfP8m6rH/ItJy/yLQ + bf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQ + bf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8j2IL/Jeam/yfw + wf8l6Kz/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQ + bf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/zGv + YP9LdUn/Xkw6/15MOv9eTDr/Xkw6/15MOv9eTDr/Xkw6/15MOv9eTDr/bF04/3NlOP9rWzj/Xkw6/15M + Ov9eTDr/Xkw6/15MOv8dFxL/AAAA/7Oysf/v7u3/7+7t/+/u7f/l5OPYAAAAGgAAAAYAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAEAAAAJAAAAI+rp6eby8fH/8vHx//Lx8f+f4sL/ItBt/yLQ + bf8i0G3/ItBt/yLQbf8i0G3/ItBt/yPcjP8m6rH/ItJy/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQ + bf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQ + bf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8d1H//ItR3/yLWfP8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQ + bf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQ + bf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8pv2b/QI5T/1pUPf9eTDr/Xkw6/15M + Ov9eTDr/Xkw6/15MOv9xYzj/c2U4/2dWOf9eTDr/Xkw6/15MOv9eTDr/NCog/wAAAP9KVVH/7+7t/+/u + 7f/v7u3/7+7t/8HAwHYAAAANAAAAAgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAQAAAAUw8LCivLx8f/y8fH/8vHx//Lx8f830oD/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yPY + gv8l6Kz/ItJy/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQ + bf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/x3Uf/8T4az/B+/j/wfv + 4/8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQ + bf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQ + bf8i0G3/ItBt/yLQbf8i0G3/ItBt/zieWf9SZEP/Xkw6/15MOv9eTDr/YVA5/3NlOP9zZTj/Y1I5/15M + Ov9eTDr/Xkw6/0Y5K/8AAAD/Dg4O/+Df3v/v7u3/7+7t/+/u7f/i4eDKAAAAGAAAAAUAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAQAAAApPTk4w7u3t8vLx8f/y8fH/8vHx/6zk + yv8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLWfP8k4Jf/ItBt/yLQbf8i0G3/ItBt/yLQ + bf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQ + bf8i0G3/H9J2/xXeo/8L6tH/Aff//wH3//8B9///D+W//yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQ + bf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQ + bf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQ + bf8tt2P/R31N/15MOv9lVTn/c2U4/3NlOP9eTDr/Xkw6/15MOv9MPS//BQQD/wAAAP+kr6r/7+7t/+/u + 7f/v7u3/7+7t/6+vrlYAAAAKAAAAAQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAABAAAABTOzc2V8vHx//Lx8f/y8fH/8vHx/03Uk/8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQ + bf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQ + bf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/F9ya/w3oyP8B9///Aff//wH3//8B9///Aff//wH3 + //8V3qP/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQ + bf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQ + bf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/Jcdp/0COU/9fZz//bV44/15M + Ov9eTDr/TD0v/wUEA/8AAAD/d4J+/+/u7f/v7u3/7+7t/+/u7f/X1tWfAAAAEQAAAAMAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABAAAACQAAACDr6url8vHx//Lx + 8f/y8fH/4u7q/yrQeP8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQ + bf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8b14j/D+W//wP0 + 9f8B9///Aff//wH3//8B9///Aff//wH3//8B9///Aff//xvXiP8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQ + bf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQ + bf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQ + bf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf84nln/Xkw6/zovJP8FBAP/AAAA/1lZWf/v7u7/7+7u/+/u + 7f/v7u3/5uXk1mVkZCUAAAAGAAAAAQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAADAAAAD6WkpF3y8fH/8vHx//Lx8f/y8fH/u+fR/x/Pbv8i0G3/ItBt/yLQ + bf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQ + bf8i0G3/ItBt/x3Uf/8R47b/BfLs/wH3//8B9///Aff//wH3//8B9///Aff//wH3//8B9///Aff//wH3 + //8B9///ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQ + bf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQ + bf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQ + bf8jPib/AAAA/wAAAP9ZWVn/7+7u/+/u7v/v7u7/7+7u/+zr6/Gjo6JFAAAACQAAAAEAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAFAAAAFtXU + 1KLy8fH/8vHx//Lx8f/y8fH/kuC6/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQ + bf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/H9J2/xPhrP8H7+P/Aff//wH3//8B9///Aff//wH3 + //8B9///Aff//wH3//8B9///Aff//wH3//8B9///Aff//wnt2v8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQ + bf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQ + bf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQ + bf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/xN1Pf8AAAD/WWRh/+/u7v/v7u7/7+7u/+/u + 7v/v7u7/vr29ZAAAAAwAAAACAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAEAAAAIW1paKujn59fy8fH/8vHx//Lx8f/y8fH/Z9mk/yLQ + bf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8f0nb/Fd6j/wvq + 0f8B9///Aff//wH3//8B9///Aff//wH3//8B9///Aff//wH3//8B9///Aff//wH3//8B9///APT//wDp + //8A3f//DtG//yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQ + bf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQ + bf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItJy/yLS + cv8i0G3/EWg2/1mHeP/v7u7/7+7u/+/u7v/v7u7/7+7u/8bFxXMAAAAOAAAAAwAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAIAAAALnZycSe/u7vHy8fH/8vHx//Lx8f/y8fH/bduf/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQ + bf8i0G3/ItBt/yLQbf8X3Jr/DejI/wP09f8B9///Aff//wH3//8B9///Aff//wH3//8B9///Aff//wH3 + //8B9///Aff//wH3//8B9///AOv//wDf//8A0v//ANL//wDS//8V0KP/ItBt/yLQbf8i0G3/ItBt/yLQ + bf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQ + bf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQ + bf8i0G3/ItBt/yLQbf8i0G3/ItBt/yPYgv8m7Lb/ItJy/yLQbf9k1KL/7+7u/+/u7v/v7u7/7+7u/+/u + 7v/GxcVzAAAADwAAAAQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAMAAAAOrKurWfLx8f/y8fH/8vHx//Lx + 8f/y8fH/fd6m/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/xvXiP8P5b//A/T1/wH3//8B9///Aff//wH3 + //8B9///Aff//wH3//8B9///Aff//wH3//8B9///Aff//wH3//8A6///AN///wDU//8A0v//ANL//wDS + //8A0v//ANL//x3Qf/8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQ + bf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQ + bf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLUd/8l5qb/J/DB/ybs + tv8i0G3/ItBt/9br3f/w7+7/7+7u/+/u7v/v7u7/xsbGcgAAAA4AAAAEAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAQAAAAQx8bGdPLx8f/y8fH/8vHx//Lx8f/y8fH/pOS//yLQbf8Z0JH/CNHa/wvh + 0f8F8uz/Aff//wH3//8B9///Aff//wH3//8B9///Aff//wH3//8B9///Aff//wH3//8B9///Aff//wDw + //8A4v//ANT//wDS//8A0v//ANL//wDS//8A0v//ANL//wDS//8C0fX/ItBt/yLQbf8i0G3/ItBt/yLQ + bf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQ + bf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQ + bf8i0G3/ItBt/yLUd/8l5KH/J/DB/yfwwf8l6Kz/I9iC/yLQbf8u0XX/8O/u//Dv7v/w7+7/7+7u/7m4 + uHsAAAARAAAABAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAQAAAAQxcTEdfLx + 8f/y8fH/8vHx//Lx8f/y8fH/sebH/wLR9f8A0v//Aff//wH3//8B9///Aff//wH3//8B9///Aff//wH3 + //8B9///Aff//wH3//8B9///APD//wDi//8A1v//ANL//wDS//8A0v//ANL//wDS//8A0v//ANL//wDS + //8A0v//ANL//wjR2v8i0G3/ItR3/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQ + bf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQ + bf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLUd/8l5KH/J/DB/yfwwf8m7Lb/I9yM/yLQ + bf8i0G3/ItBt/1PWjv/w7+7/8O/u//Dv7v/n5uXnAAAAJQAAAAkAAAABAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAUAAAAVtLOzgOzr6/Ty8fH/8vHx//Lx8f/T7fL/ANL//wDY + //8B9///Aff//wH3//8B9///Aff//wH3//8B9///Aff//wH3//8A8v//AOT//wDW//8A0v//ANL//wDS + //8A0v//ANL//wDS//8A0v//ANL//wDS//8A0v//ANL//wDS//8A0v//EdG2/yTgl/8n8MH/Juqx/yPc + jP8i0nL/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQ + bf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yPa + h/8l5qb/J/DB/yfwwf8l6Kz/I9yM/yLQbf8i0G3/ItBt/yLQbf8i0G3/id+t//Dv7v/w7+7/8O/u/9nY + 18EAAAAcAAAABQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAgAA + AA8AAAA0sbCwrfLx8f/y8fH/8vHx/6bn9f8A0v//AN///wH3//8B9///Aff//wH3//8B9///Aff//wDy + //8A5v//ANj//wDS//8A0v//ANL//wDS//8A0v//ANL//wDS//8A0v//ANL//wDS//8A0v//ANL//wDS + //8A0v//ANL//wDS//8X0Jr/Jeam/yfwwf8n8MH/J/DB/ybuu/8k4pz/ItR3/yLQbf8i0G3/ItBt/yLQ + bf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQ + bf8i0G3/ItBt/yLQbf8i0G3/I9qH/yXkof8m7rv/J/DB/ybuu/8l5KH/ItZ8/yLQbf8i0G3/ItBt/yLQ + bf8i0G3/ItBt/yLQbf+t5Mb/8O/u//Dv7v/w7+7/x8bFmQAAABYAAAADAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACAAAAEQAAADjY19fW8vHx//Lx8f/y8fH/ad/4/wDS + //8A5v//Aff//wH3//8B9///APT//wDp//8A2P//ANL//wDS//8A0v//ANL//wDS//8A0v//ANL//wDS + //8A0v//ANL//wDS//8A0v//ANL//wDS//8A0v//ANL//wDS//8A0v//ANL//xPQrP8i0G3/ItR3/yTi + nP8m7rv/J/DB/yfwwf8n8MH/Jeis/yPcjP8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQ + bf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLUd/8j3Iz/JeSh/ybuu/8n8MH/Juy2/yXk + of8j2of/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/9Tp3//w7+7/8O/u//Dv + 7v+ZmJhjAAAAEAAAAAIAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAMAAAAUAAAAPezr6/Xy8fH/8vHx//Lx8f882fv/ANL//wDt//8A9P//AOn//wDd//8A0v//ANL//wDS + //8A0v//ANL//wDS//8A0v//ANL//wDS//8A0v//ANL//wDS//8A0v//ANL//wDS//8A0v//ANL//wDS + //8A0v//ANL//wDS//8A0v//CtHR/yLQbf8i0G3/ItBt/yLQbf8j3Iz/Jeis/yfwwf8n8MH/J/DB/ybu + u/8k4pz/ItR3/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8j2IL/JN6R/yXk + of8m7Lb/Juy2/yXorP8k4Jf/I9qH/yLUd/8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQ + bf8i0G3/ItBt/yLQbf8s0Hb/8O/u//Dv7v/w7+7/8O/u/0RDQzgAAAALAAAAAQAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAgAAABMAAAA88vHx//Lx8f/y8fH/8vHx/wDS + //8A0v//AN3//wDS//8A0v//ANL//wDS//8A0v//ANL//wDS//8A0v//ANL//wDS//8A0v//ANL//wDS + //8A0v//ANL//wDS//8A0v//ANL//wDS//8A0v//ANL//wDS//8A0v//ANL//wDS//8C0fX/ItBt/yLQ + bf8i0G3/ItBt/yLQbf8i0G3/ItZ8/yXkof8m7rv/J/DB/yfwwf8n8MH/Jeam/yPah/8i0G3/ItBt/yLQ + bf8i0nL/I9yM/yPYgv8k3pH/JOCX/yPcjP8j2IL/ItZ8/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQ + bf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/2LZlf/w7+//8O/u//Dv + 7v/o5+bmAAAAIgAAAAcAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAACAAAADgAAADDy8fH/8vHx//Lx8f/y8fH/Wtzy/wDS//8A0v//ANL//wDS//8A0v//ANL//wDS + //8A0v//ANL//wDS//8A0v//ANL//wDS//8A0v//ANL//wDS//8A0v//ANL//wDS//8A0v//ANL//wDS + //8A0v//ANL//wDS//8A0v//ANL//wDS//8b0Ij/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLS + cv8k3pH/Juy2/yfwwf8n8MH/J/DB/ybstv8k4Jf/ItR3/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQ + bf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQ + bf8i0G3/ItBt/yLQbf8i0G3/id+u//Dv7//w7+//8O/u/9PS0rQAAAAbAAAABQAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAIAAAAH+vq6uXy8fH/8vHx//Lx + 8f/y8fH/ed7Z/wDR9/8A0v//ANL//wDS//8A0v//ANL//wDS//8A0v//ANL//wDS//8A0v//ANL//wDS + //8A0v//ANL//wDS//8A0v//ANL//wDS//8A0v//ANL//wDS//8A0v//ANL//wDS//8A0v//ANL//xHR + tv8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/I9iC/yXmpv8n8MH/J/DB/yfw + wf8n8MH/Jeam/yPYgv8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQ + bf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf+8587/8O/v//Dv + 7//w7+//vr6+jAAAABQAAAADAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAMAAAAPuLi4aPLx8f/y8fH/8vHx//Lx8f/y8fH/tefd/x7T5v8A0v//ANL//wDS + //8A0v//ANL//wDS//8A0v//ANL//wDS//8A0v//ANL//wDS//8A0v//ANL//wDS//8A0v//ANL//wDS + //8A0v//ANL//wDS//8A0v//ANL//wDS//8A0v//CNHa/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQ + bf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLUd/8k4Jf/Ju67/yfwwf8n8MH/J/DB/ybstv8k3pH/ItJy/yLQ + bf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQ + bf8i0G3/ItBt/yLQbf8i0G3/ItBt/+Hr6P/w7+//8O/v//Dv7/+bm5tiAAAADwAAAAIAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAUAAAARxcTEdfLx + 8f/y8fH/8vHx//Lx8f/y8fH/4u7q/2nc2v8A0O//ANL//wDS//8A0v//ANL//wDS//8A0v//ANL//wDS + //8A0v//ANL//wDS//8A0v//ANL//wDS//8A0v//ANL//wDS//8A0v//ANL//wDS//8A0v//ANL//wDS + //8A0v//ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQ + bf8i0G3/I9yM/yXorP8n8MH/J/DB/yfwwf8n8MH/JeSh/yPYgv8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQ + bf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf850n7/8O/v//Dv + 7//w7+//8O/v/wAAACoAAAALAAAAAQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAQAAAAUAAAAPy8rKce/u7vHy8fH/8vHx//Lx8f/y8fH/8vHx/8Tp + 5P88193/ANH3/wDS//8A0v//ANL//wDS//8A0v//ANL//wDS//8A0v//ANL//wDS//8A0v//ANL//wDS + //8A0v//ANL//wDS//8A0v//ANL//wDS//8A0v//ANL//wDS//8Z0JH/ItBt/yLQbf8i0G3/ItBt/yLQ + bf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLWfP8l5KH/Ju67/yfw + wf8n8MH/J/DB/ybstv8k3pH/ItJy/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQ + bf8i0G3/ItBt/yLQbf8i0G3/ItBt/2DYlv/w7+//8O/v//Dv7//j4uLaAAAAIQAAAAcAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAMAAAAMqqmpQ+rp6dXy8fH/8vHx//Lx8f/y8fH/8vHx//Lx8f+15+X/PNjs/wDS//8A0v//ANL//wDS + //8A0v//ANL//wDS//8A0v//ANL//wDS//8A0v//ANL//wDS//8A0v//ANL//wDS//8A0v//ANL//wDS + //8A0v//ANL//xHRtv8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQ + bf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0nL/JN6R/ybstv8n8MH/J/DB/yfwwf8n8MH/JeSh/yPY + gv8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/leG2//Dv + 7//w7+//8O/v/9TT07MAAAAZAAAABAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAIAAAAHAAAAE9nY2I7y8fH/8vHx//Lx + 8f/y8fH/8vHx//Lx8f/y8fH/tefl/zzY7P8A0v//ANL//wDS//8A0v//ANL//wDS//8A0v//ANL//wDS + //8A0v//ANL//wDS//8A0v//ANL//wDS//8A0v//ANL//wDS//8A0v//CNHa/yLQbf8i0G3/ItBt/yLQ + bf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQ + bf8i0G3/ItBt/yPYgv8l5qb/J/DB/yfwwf8n8MH/J/DB/ybstv8k3pH/ItJy/yLQbf8i0G3/ItBt/yLQ + bf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf+8587/8O/v//Dv7//w7+//wL+/iwAAABMAAAADAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAEAAAAEAAAADJKRkTTo5+fG8vHx//Lx8f/y8fH/8vHx//Lx8f/y8fH/8vHx/9Ps + 6/9a3Or/D9P+/wDS//8A0v//ANL//wDS//8A0v//ANL//wDS//8A0v//ANL//wDS//8A0v//ANL//wDS + //8A0v//ANL//wDS//8A0v//ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQ + bf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i1Hf/JOCX/ybu + u/8n8MH/J/DB/yfwwf8n8MH/JeSh/yPah/8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt//Dv + 7//w7+//8O/v//Dv7/+Hh4dUAAAADgAAAAEAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACAAAABgAA + AA66ublS5+bmx/Lx8f/y8fH/8vHx//Lx8f/y8fH/8vHx//Lx8f/i7ur/l+X2/y3X9P8A0v//ANL//wDS + //8A0v//ANL//wDS//8A0v//ANL//wDS//8A0v//ANL//wDS//8A0v//ANL//wDS//8Z0JH/ItBt/yLQ + bf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQ + bf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yPcjP8l6Kz/J/DB/yfwwf8n8MH/J/DB/ybs + tv8k4pz/ItZ8/yLQbf8i0G3/ItBt/yLQbf9I1YX/8O/v//Dv7//w7+//8O/v/wAAACgAAAAKAAAAAQAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAgAAAAcAAAAR0M/Pb+vq6tXy8fH/8vHx//Lx + 8f/y8fH/8vHx//Lx8f/y8fH/8vHx/8Tq7P9p3un/HtX1/wDS//8A0v//ANL//wDS//8A0v//ANL//wDS + //8A0v//ANL//wDS//8A0v//ANL//xHRtv8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQ + bf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQ + bf8i0G3/ItBt/yLQbf8i1Hf/JeSh/ybuu/8n8MH/J/DB/yfwwf8n8MH/Juy2/yXorP8j2IL/ItBt/23b + n//w7+//8O/v//Dv7//e3d3OAAAAIAAAAAcAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAQAAAAMAAAAIAAAAELy7u1Hp6OjG8vHx//Lx8f/y8fH/8vHx//Lx8f/y8fH/8vHx//Lx + 8f/y8fH/xOrs/2ne6f8e1O7/ANL//wDS//8A0v//ANL//wDS//8A0v//ANL//wDS//8A0v//BtHj/yLQ + bf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQ + bf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItJy/yPc + jP8m7Lb/J/DB/yfwwf8n8MH/J/DB/yTgl/8i0G3/lOG3//Hw7//w7+//8O/v/83MzKcAAAAZAAAABAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAEAAAACAAAABgAA + AA2WlZUz4+Liqe/u7vHy8fH/8vHx//Lx8f/y8fH/8vHx//Lx8f/y8fH/8vHx//Lx8f/T7Ov/iOLo/0va + 6/8P0ef/ANL//wDS//8A0v//ANL//wDS//8A0v//H9B2/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQ + bf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQ + bf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8j2IL/JeSh/yfwwf8n8MH/JOCX/yLQ + bf+758//8fDv//Hw7//x8O//trW1fgAAABIAAAACAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAgAAAAUAAAAKdHR0IdHQ0G7r6urU8vHx//Lx + 8f/y8fH/8vHx//Lx8f/y8fH/8vHx//Lx8f/y8fH/8vHx//Lx8f/T6+P/l+Tn/3ng8P881+T/HtTu/wDR + 9/8X0Jr/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQ + bf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQ + bf8i0G3/ItBt/yLQbf8i0G3/ItR3/yTgl/8i0nL/ItBt//Hw7//x8O//8fDv//Hw7/+NjIxRAAAADAAA + AAEAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAEAAAADAAAABwAAAA2ZmJgy4eDgmu3s7OLy8fH/8vHx//Lx8f/y8fH/8vHx//Lx + 8f/y8fH/8vHx//Lx8f/y8fH/8vHx//Lx8f/y8fH/8vHx/5fit/8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQ + bf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQ + bf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yzR + dv+u5cj/8fDv//Hw7//x8O//8fDv/wAAACAAAAAHAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAgAA + AAQAAAAIAAAAD7OyskDc3NyL6+rq1PLx8f/y8fH/8vHx//Lx8f/y8fH/8vHx//Lx8f/y8fH/8vHx//Lx + 8f/y8fH/y+rY/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQ + bf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQ + bf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf9e2Jj/1evh//Hw8P/x8PD/8fDv//Hw7//h4eC7AAAAEwAA + AAMAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACAAAABAAAAAcAAAAMc3NzIdPT + 023k4+Oo7u3t4vLx8f/y8fH/8vHx//Lx8f/y8fH/8vHx//Lx8f/y8fH/L9J1/yLQbf8i0G3/ItBt/yLQ + bf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQ + bf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf9R1pD/uebS//Hw + 8P/x8PD/8fDw//Hw8P/x8PD/7u3t8ZGQkDQAAAAIAAAAAQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAEAAAADAAAABQAAAAkAAAANdHR0Ic7NzV3e3d2K5+bmt+rp + 6dby8fH/8vHx//Lx8f9j2pb/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQ + bf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQ + bf8i0G3/ItBt/yzRdv9r2qH/yOnY//Hw8P/x8PD/8fDw//Hw8P/x8PD/8fDw/+3s7OKwr69BAAAACQAA + AAIAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAQAAAAEAAAACAAAABAAAAAcAAAAKAAAAFgAAADTt7Ozz8vHx/5fit/8i0G3/ItBt/yLQ + bf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQ + bf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/KtB4/17YmP+d4cP/4e3p//Hw8P/x8PD/8fDw//Hw + 8P/x8PD/8fDw//Hw8P/e3t6bdnZ2IAAAAAcAAAABAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAEAAAAJAAAAI9jX18Py8fH/y+rY/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQ + bf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/Hc5w/yjQef9c2Jr/g96z/7bm + 0//x8PD/8fDw//Hw8P/x8PD/8fDw//Hw8P/x8PD/8fDw//Hw8P/p6OjFsrKyQAAAAAsAAAAEAAAAAQAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAQAAAAYvby8jvLx8f/y8fH/vujQ/67m + yf+H4LD/iuCv/03WlP9P1pL/VtiO/1bYjv9W2I7/KNB5/xnOc/8304D/VtiO/1HXkf9N1pT/TdaU/3jd + qf+B3rX/n+PC/7Xm1f/i7un/8fDw//Hw8P/x8PD/8fDw//Hw8P/x8PD/8fDw//Hw8P/x8PD/8fDw//Hw + 8P/p6OjFw8LCTgAAAAwAAAAFAAAAAQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAgAAAA6OjY1R8vHx//Lx8f/y8fH/8vHx//Lx8f/y8fH/8vHx//Lx8f/y8fH/8vHx//Lx + 8f/y8fH/8vHx//Lx8f/y8fH/8vHx//Lx8f/y8fH/8vHx//Lx8f/y8fH/8vHx//Lx8f/y8fD/8vHw//Hw + 8P/x8PD/8fDw//Hw8P/x8PD/8fDw/+/u7vDg39+ZnZycMAAAAAsAAAAFAAAAAQAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABgAAABjm5eXI8vHx//Lx + 8f/y8fH/8vHx//Lx8f/y8fH/8vHx//Lx8f/y8fH/8vHx//Lx8f/y8fH/8vHx//Lx8f/y8fH/8vHx//Lx + 8f/y8fH/8vHx//Lx8f/y8fH/8vHx//Lx8f/y8fD/8vHw//Lx8P/x8PD/7ezs4uTj46jPzs5cAAAADwAA + AAgAAAAEAAAAAQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAABAAAACWdnZyXr6urU8vHx//Lx8f/y8fH/8vHx//Lx8f/y8fH/8vHx//Lx + 8f/y8fH/8vHx//Lx8f/y8fH/8vHx//Lx8f/y8fH/8vHx//Lx8f/y8fH/8vHx//Lx8f/y8fH/8vHx/+zr + 69Tl5OSo29raerq5uD4AAAAOAAAACAAAAAQAAAACAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABAAAABgAA + AA7R0NBc397eidzb24vq6enF6unpxeno6Mbu7e3i8vHx//Lx8f/y8fH/8vHx//Lx8f/y8fH/8O/v8Ono + 6Mbq6enF6unpxeHg4Jnf3t6Jzc3NXcnIyEwAAAAQAAAADAAAAAgAAAAFAAAAAwAAAAEAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAgAAAAQAAAAGAAAABwAAAAkAAAAKAAAACwAA + AAwAAAAOAAAADwAAABAAAAAQAAAADwAAAA4AAAAMAAAACwAAAAoAAAAJAAAABwAAAAYAAAAEAAAAAwAA + AAIAAAABAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAEAAAABAAAAAQAAAAEAAAACAAAAAgAAAAIAAAACAAAAAQAA + AAEAAAABAAAAAQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAD///////////////////////////// + ///////////////////////4Af/////////////////8AAAD////////////////wAAAAD////////// + /////gAAAAAH//////////////gAAAAAAf/////////////AAAAAAAA/////////////AAAAAAAAH/// + /////////AAAAAAAAAf///////////gAAAAAAAAB///////////gAAAAAAAAAH//////////wAAAAAAA + AAA//////////wAAAAAAAAAAH/////////4AAAAAAAAAAAf////////8AAAAAAAAAAAD////////+AAA + AAAAAAAAAf////////AAAAAAAAAAAAD////////gAAAAAAAAAAAAf///////wAAAAAAAAAAAAD////// + /4AAAAAAAAAAAAAf//////8AAAAAAAAAAAAAD//////+AAAAAAAAAAAAAAf//////AAAAAAAAAAAAAAH + //////wAAAAAAAAAAAAAA//////4AAAAAAAAAAAAAAH/////8AAAAAAAAAAAAAAA/////+AAAAAAAAAA + AAAAAP/////gAAAAAAAAAAAAAAB/////wAAAAAAAAAAAAAAAf////8AAAAAAAAAAAAAAAD////+AAAAA + AAAAAAAAAAAf////gAAAAAAAAAAAAAAAH////wAAAAAAAAAAAAAAAA////8AAAAAAAAAAAAAAAAP///+ + AAAAAAAAAAAAAAAAB////gAAAAAAAAAAAAAAAAf///wAAAAAAAAAAAAAAAAH///8AAAAAAAAAAAAAAAA + A////AAAAAAAAAAAAAAAAAP///gAAAAAAAAAAAAAAAAD///4AAAAAAAAAAAAAAAAAf//+AAAAAAAAAAA + AAAAAAH///AAAAAAAAAAAAAAAAAB///wAAAAAAAAAAAAAAAAAP//8AAAAAAAAAAAAAAAAAD//+AAAAAA + AAAAAAAAAAAA///gAAAAAAAAAAAAAAAAAP//4AAAAAAAAAAAAAAAAAD//+AAAAAAAAAAAAAAAAAAf//A + AAAAAAAAAAAAAAAAAH//wAAAAAAAAAAAAAAAAAB//8AAAAAAAAAAAAAAAAAAf//AAAAAAAAAAAAAAAAA + AH//wAAAAAAAAAAAAAAAAAB//8AAAAAAAAAAAAAAAAAAf//AAAAAAAAAAAAAAAAAAH//wAAAAAAAAAAA + AAAAAAB//8AAAAAAAAAAAAAAAAAAf//AAAAAAAAAAAAAAAAAAH//wAAAAAAAAAAAAAAAAAB//8AAAAAA + AAAAAAAAAAAAf//AAAAAAAAAAAAAAAAAAH//wAAAAAAAAAAAAAAAAAB//8AAAAAAAAAAAAAAAAAAf//A + AAAAAAAAAAAAAAAAAH//4AAAAAAAAAAAAAAAAAB//+AAAAAAAAAAAAAAAAAAf//gAAAAAAAAAAAAAAAA + AP//wAAAAAAAAAAAAAAAAAD//8AAAAAAAAAAAAAAAAAA///AAAAAAAAAAAAAAAAAAP//wAAAAAAAAAAA + AAAAAAD//+AAAAAAAAAAAAAAAAAA///gAAAAAAAAAAAAAAAAAf//4AAAAAAAAAAAAAAAAAH//+AAAAAA + AAAAAAAAAAAB///gAAAAAAAAAAAAAAAAA///4AAAAAAAAAAAAAAAAAP///AAAAAAAAAAAAAAAAAD///w + AAAAAAAAAAAAAAAAB///8AAAAAAAAAAAAAAAAAf///gAAAAAAAAAAAAAAAAP///4AAAAAAAAAAAAAAAA + D////AAAAAAAAAAAAAAAAB////wAAAAAAAAAAAAAAAAf///+AAAAAAAAAAAAAAAAP////wAAAAAAAAAA + AAAAAH////8AAAAAAAAAAAAAAAD/////gAAAAAAAAAAAAAAB/////8AAAAAAAAAAAAAAA//////gAAAA + AAAAAAAAAAf/////8AAAAAAAAAAAAAAH//////gAAAAAAAAAAAAAD//////4AAAAAAAAAAAAAA////// + +AAAAAAAAAAAAAAP//////gAAAAAAAAAAAAAD//////4AAAAAAAAAAAAAB//////+AAAAAAAAAAAAAAf + //////wAAAAAAAAAAAAAH//////8AAAAAAAAAAAAAB///////gAAAAAAAAAAAAAf//////4AAAAAAAAA + AAAAP///////gAAAAAAAAAAAAD///////8AAAAAAAAAAAAA////////gAAAAAAAAAAAAP///////+AAA + AAAAAAAAAD////////4AAAAAAAAAAAB/////////AAAAAAAAAAAAf////////8AAAAAAAAAAAH////// + ///4AAAAAAAAAAB//////////gAAAAAAAAAA///////////AAAAAAAAAAP//////////+AAAAAAAAAD/ + //////////8AAAAAAAAB////////////4AAAAAAAA/////////////8AAAAAAAf/////////////gAAA + AAAf/////////////4AAAAAAf//////////////AAAAAAf//////////////wAAAAA////////////// + /+AAAAB////////////////4AAAH/////////////////8AD//////////////////////////////// + /////////////////////////////////////////////////////////////ygAAAAwAAAAYAAAAAEA + IAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAEAAAABAAAAAQAAAAEAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABAAAABQAA + AA8AAAAbAAAAKAAAADIAAAA6AAAAOgAAADIAAAAoAAAAGwAAAA4AAAAFAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAwAA + ABIAAAAwKCgoXX9+fpSko6K3w8LC1MvLyt7KycjgysnI4MvLyt63trbNpKOjt2xra4sAAABQAAAAKgAA + AA4AAAACAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAQAAAAZLi4uUJybm6jT09Ln7ezr/+3s6//t7Ov/zcXE/8O4uP/DuLj/w7i4/8O4uP/Y0tH/7ezr/+3s + 6//k4+L4tbSz0Gxsa4sAAAA+AAAAEQAAAAIAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAABAAAAEDQzM0isq6qw5uXk9+3s7P/NxcX/jnh4/2RFRf9FHx//RR8f/00kIv9oNC3/aDQt/00k + Iv9FHx//Tysr/3lfXv+un57/4t/e/+3s6//Kycjfb29uhwAAADAAAAAIAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAIAAAAcioqJiOfm5fXu7ez/rp+f/2RFRf9FHx//cDkx/5NOQP+uXkv/pVhH/4JD + OP9oNC3/aDQt/1YpJv9FHx//RR8f/0UfH/9FHx//RR8f/4Rra//Y0tH/7ezr/7q5uMosLCxVAAAADwAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAABAAAACy5uLe47u3s/87Gxf9kRUX/Vikm/5NOQP/IbVb/tmNO/3k+ + Nf9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9PKyv/mYWF/+3s + 6//c29rvX15edwAAABkAAAABAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAADQ0NDONXU1NXu7ez/pJKS/00kIv+LSTz/0XNa/79o + Uv95PjX/RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0Uf + H/9FHx//RR8f/2RFRf/i397/5eTj9lxbW3oAAAAZAAAAAQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAEAAAAj1tXU1e7t7f+EbGz/aDQt/79o + Uv/Rc1r/nFND/00kIv9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0Uf + H/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9PKyv/zcXE/+Xk4/ZdXFx5AAAAEQAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABfKycm77+7t/4Rs + bP95PjX/0XNa/9FzWv+cU0P/RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0Uf + H/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//Tysr/83FxP/l5OP3a2pqaQAA + AAoAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACq2s + rIPv7u3/moaG/3k+Nf/Rc1r/0XNa/7ZjTv9FHx//RR8f/0UfH/9FHx//RR8f/zwbG/8zFxf/MxcX/0Uf + H/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/1o4 + OP/i397/2NfW4wAAADYAAAADAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAACQUFBOurp6fTEurr/Xy4q/8htVv/Rc1r/0XNa/2MyK/8rExP/GQsL/xEHB/8AAAD/AAAA/wAA + AP8AAAD/AAAA/wAAAP8AAAD/CAMD/xEHB/8iDw//MxcX/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0Uf + H/9FHx//RR8f/0UfH/95X17/7ezr/6+vrqsAAAAWAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAARzczMue/u7v9aODj/tmNO/9FzWv/MblT/ikk2/wAAAP8XEw7/LyYd/0A0 + J/9GOSv/TD0v/0Zta/9Gb2v/R1s8/0Y5K/9GOSv/LyYd/yMcFf8RDgr/AAAA/wQBAf8ZCwv/MxcX/0Uf + H/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//uKur/+3s6/9WVVVXAAAAAwAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAFtbGxG7+7u/6STk/+LSTz/z3FY/5VNOf9BJhv/Oi8k/1JP + Qv86foP/I5+1/xG42v8A0v//ANL//wDS//8A3///I9iC/yPYgv8j2IL/Lblo/zSmXf9DhVD/TGA//zov + JP8dFxL/AAAA/wgDA/8rExP/RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//Wjg4/+3s6//CwcDCAAAAEwAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAjQz8638O/u/2M+PP/FalL/bDoq/0A0 + J/9SXFL/I5+1/wDS//8A0v//ANL//wDS//8A0v//ANL//wDS//8A5v//I9iC/yPah/8k4Jf/JOKc/yXm + pv8l5qb/JN6R/yrDcf9AjlP/SlM5/y8mHf8FBAP/EQcH/zgZGf9FHx//RR8f/0UfH/9FHx//RR8f/66f + nv/t7Ov/PDs7PgAAAAEAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAB3q6ej1r6Gg/34/ + M/9lOyv/WEc2/y+PnP8A0v//ANL//wDS//8A0v//ANL//wDS//8A0v//ANL//wDS//8A7f//HdR//yLQ + bf8i0G3/ItBt/yLQbf8i0G3/I9iC/yTinP8l6Kz/I9yM/zieWf9QVzz/KSEZ/wAAAP8iDw//RR8f/0Uf + H/9FHx//RR8f/2RFRf/t7Ov/oaCfjAAAAAcAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAq6t + rW3w7+//cVxc/3VDMf9YVEb/Ebja/wDS//8A0v//ANL//wDS//8A2///AN///wDk//8A5P//AOn//wDt + //8B9///GdmR/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0nL/I9yM/yXorP8j2of/QI5T/0w9 + L/8RDgr/FQkJ/0AdHf9FHx//RR8f/0UfH//Y0tH/zs3MyQAAABQAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAACNXU1LLl4uL/HREP/1hHNv8RuNr/ANL//wDU//8A3///AOn//wDp//8A3///ANv//wDU + //8A0v//ANL//wDS//8A8v//Fd6j/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLS + cv8k4Jf/Jeam/y25aP9UTzn/IxwV/wwFBf9AHR3/RR8f/0UfH/+jkpH/7ezr/wAAACcAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAE+fm5uatqKj/Oi8k/y+PnP8A0v//AOL//wDm//8A2P//ANL//wDS + //8A0v//ANL//wDS//8A0v//ANL//wDS//8A6///EeO2/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQ + bf8i0G3/ItBt/yLQbf8i0G3/ItZ8/yXmpv8mzXn/UmRD/yMcFf8VCQn/RR8f/0UfH/+Ea2v/7ezr/4WF + hFQAAAABAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAhYSDOfDv7/9paGj/VE85/wXL8v8A6f//ANv//wDS + //8A0v//ANL//wDS//8A0v//ANL//wDS//8A0v//ANL//wDS//8A5P//C+rR/yLQbf8i0G3/ItBt/yLQ + bf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLScv8l6Kz/Js15/1JkQ/8jHBX/Ig8P/0Uf + H/9vUlL/7ezr/4+OjmkAAAADAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAArq2tWPHw7/9TT0r/QX1o/wDk + //8A1P//ANL//wDS//8A0v//ANL//wDS//8A0v//ANL//wDS//8A0v//ANL//wDS//8A2///Ce3a/yLQ + bf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0nL/Jeam/0t1 + Sf9YRzb/FRAM/zwbG/9PKyv/7ezr/8vKyZQAAAAEAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAB2NfXfPHw + 7/9TT0r/LqiH/wDW//8A0v//ANL//wDS//8A0v//ANL//wDS//8A0v//ANL//wDS//8A0v//ANL//wDS + //8A1P//Aff//yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/ym/ + Zv9AjlP/VlxA/15MOv9eTDr/Rjkr/xkLC/9FHx//7ezs/8rJyZUAAAAEAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAA2tnZe/Hw8P9TT0r/K82L/x/qzP8O3ef/ANL//wDS//8A0v//ANL//wDS//8A0v//ANL//wDS + //8A0v//ANL//wDS//8A0v//APL//yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQ + bf80pl3/S3VJ/15MOv9eTDr/Xkw6/15MOv9eTDr/Xkw6/xsUEP9AHR3/7u3s/8vKyZUAAAAEAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAvr29UPHw8P9KUkr/JeSh/yfwwf8n8MH/JO7E/xXi3P8E1ff/ANL//wDS + //8A0v//ANL//wDS//8A0v//ANL//wDS//8A0v//AOv//xnZkf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQ + bf8pv2b/QI5T/1ZcQP9eTDr/Xkw6/15MOv9eTDr/Xkw6/2VVOf9fTTn/Xkw6/zovJP8vFRX/7u3s/83M + y5MAAAADAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAApqWlLvHw8P9xnYT/JOKc/ybstv8n8MH/J/DB/yfw + wf8n8MH/GubU/wzb6/8A0v//ANL//wDS//8A0v//ANL//wDS//8A0v//AOT//xfcmv8i0G3/ItBt/yLQ + bf8i0G3/NKZd/0t1Sf9eTDr/Xkw6/15MOv9eTDr/Xkw6/15MOv9eTDr/Xkw6/2RTOf9kUzn/Xkw6/1JC + Mv83KSn/7u3s/8jHxoQAAAACAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAFPHw8P+J4K7/JOCX/yLQ + bf8j3Iz/Jeis/yfwwf8n8MH/J/DB/yfwwf8i7Mj/Ed/j/wLT+/8A0v//ANL//wDS//8A0v//ANv//xHj + tv8i0G3/Kb9m/0COU/9WXED/Xkw6/15MOv9eTDr/Xkw6/15MOv9eTDr/Xkw6/15MOv9eTDr/Xkw6/2VV + Of9oWDn/Xkw6/15MOv9MQ0L/7u3s/6alpFsAAAABAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAF/Hw + 8P+J4K7/I9yM/yPah/8i0G3/ItBt/yLUd/8k4pz/Ju67/yfwwf8n8MH/J/DB/yfwwf8Y5Nj/Cdnv/wDS + //8A0v//ANT//w3oyP8lx2n/R31N/1pUPf9eTDr/Xkw6/15MOv9eTDr/Xkw6/15MOv9eTDr/Xkw6/15M + Ov9eTDr/Xkw6/2laOP9lVTn/Xkw6/15MOv9saWn/7u3s/4OCgjkAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAFPHw8P+J4K7/ItJy/yXmpv8i0G3/ItBt/yLQbf8i0G3/ItBt/yPcjP8l6Kz/J/DB/yfw + wf8n8MH/J/DB/x/qzP8O3ef/AtP7/wvo0f8i0G3/ItBt/yXHaf88llb/VlxA/15MOv9eTDr/Xkw6/15M + Ov9eTDr/Xkw6/15MOv9eTDr/Xkw6/29gOP9gTzn/Xkw6/1JCMv+FhYX/7u3s/wAAABUAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAC/Lx8f+X4rf/ItBt/yTekf8j2IL/ItBt/yLQbf8i0G3/ItBt/yLQ + bf8i0G3/ItR3/yTinP8m7rv/J/DB/yfwwf8n8MH/JO7E/x7Yj/8i0G3/ItBt/yLQbf8i0G3/ItBt/zGv + YP9LdUn/Xkw6/15MOv9eTDr/Xkw6/15MOv9eTDr/X005/3FjOP9eTDr/Xkw6/zovJP/BwcD/4uHhyQAA + AAgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABOrp6cXI6dn/ItBt/yLQbf8l5KH/ItJy/yLQ + bf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/I9yM/ybqsf8n8MH/J/DB/yLQbf8i0G3/ItBt/yLQ + bf8i0G3/ItBt/yLQbf8i0G3/Kb9m/0OFUP9aVD3/Xkw6/15MOv9eTDr/ZFM5/21eOP9eTDr/Xkw6/zhB + O//v7u3/0M/OgAAAAAEAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAN/e3nny8fH/VtiO/yLQ + bf8i0nL/JeSh/yLScv8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8g2IX/I9yM/yLQ + bf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/OJ5Z/1JkQ/9eTDr/aVo4/2hY + Of9eTDr/LyYd/7Oysf/r6unyh4eGHAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAALOy + shXw7+/wu+fR/yLQbf8i0G3/ItJy/yPYgv8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/Fd6j/wvq + 0f8H7+P/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQ + bf8xr2D/V4NI/2RTOf86LyT/WWRg/+/u7f/f3t2IAAAAAQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAADm5eV18vHx/3rdqP8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/GdmR/w3o + yP8D9PX/Aff//wH3//8N6Mj/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQ + bf8i0G3/ItBt/yLQbf8i0G3/ItBt/yZuPv9ZWVn/7+7u/+jn58QAAAAGAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAD7u3twfLx8f9w3J7/ItBt/yLQbf8i0G3/G9eI/w/l + v/8F8uz/Aff//wH3//8B9///APD//wDi//8T1az/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQ + bf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8j2IL/I9yM/1uygP/v7u7/6unp0qalpRYAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAysnJE/Dv79Dy8fH/ady5/wjW + 2v8H7+P/Aff//wH3//8B9///APL//wDk//8A1v//ANL//wDS//8Z0pb/ItR3/yLQbf8i0G3/ItBt/yLQ + bf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItZ8/yXkof8l6Kz/ItZ8/7znzf/n5uXnjYyMGwAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAHp6 + eh/y8fH/l+X2/wDi//8B9///APL//wDm//8A2P//ANL//wDS//8A0v//ANL//wDS//8k3pH/Ju67/yXk + of8j2IL/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItZ8/yTekf8l6Kz/JeSh/yPYgv8i0G3/ItBt/+Pt + 5f/V1NOzAAAABAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAABLy8fH/eeH4/wDb//8A2P//ANL//wDS//8A0v//ANL//wDS//8A0v//ANL//wDS + //8Z0JH/ItJy/yTekf8m7Lb/Juy2/yTekf8i0nL/I9qH/yPcjP8k3pH/I9yM/yPYgv8i0G3/ItBt/yLQ + bf8i0G3/O9N9//Dv7v/KyciEAAAAAQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAXx8PDv4u/x/zzZ8/8A0v//ANL//wDS//8A0v//ANL//wDS + //8A0v//ANL//wDS//8R0bb/ItBt/yLQbf8i0G3/I9iC/yXkof8n8MH/JeSh/yPYgv8i0G3/ItBt/yLQ + bf8i0G3/ItBt/yLQbf8i0G3/YNiW//Dv7/+5uLhSAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAADi4eEz8O/v4PLx8f+X5O7/HtX9/wDS + //8A0v//ANL//wDS//8A0v//ANL//wDS//8I0dr/ItBt/yLQbf8i0G3/ItBt/yLQbf8i1Hf/JOCX/ybs + tv8m7Lb/I9yM/yLScv8i0G3/ItBt/yLQbf8i0G3/ht6v//Dv7/8AAAAYAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA1tXVEu3s + 7JLy8fH/8vHx/5fl9v8e1fX/ANL//wDS//8A0v//ANL//wDS//8A0v//ItBt/yLQbf8i0G3/ItBt/yLQ + bf8i0G3/ItBt/yLQbf8j3Iz/Jeis/yfwwf8l5KH/I9iC/yLQbf8i0G3/vOfO/+Tj49kAAAAMAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAADf3t4i7u3tofLx8f/y8fH/xOvz/1rd8v8e1f3/ANL//wDS//8A0v//GdCR/yLQ + bf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLUd/8l5KH/Ju67/ybuu/8i1nz/8O/v/9va + 2q4AAAAFAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAOPi4iHu7e2B8O/v4PLx8f/y8fH/xOrs/4ji + 7/9p3vH/L9S0/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItJy/yPc + jP9W3Jj/8fDv/8nIyHIAAAABAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAebl + 5TLt7OyB7u3twfLx8f/y8fH/y+rY/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQ + bf8i0G3/LtJ1/4ngrv/k7uf/7+7u8Lq6uSkAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAHc29s07Ovr5C/Sdf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQ + bf8i0G3/OdN+/2DZl/+h48D/4e3p//Hw8P/t7OzB0dDQJAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAB6ejopPLx8f+76NH/vujQ/77o + 0P++6ND/vujQ/7fn1P/y8fH/8vHw//Hw8P/v7+/w7OvrouPi4kMAAAABAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAz87OEu3s + 7JHv7u7B7u3twe3s7MLt7OzD7u3twu/u7sHs6+uT7u3tgenp6EEAAAADAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAD///4f//8AAP//wAH///////8AAD//9fb//AAAD//////wAAAH/6us/+AAAAP/////wAAAAP/+/v+A + AAAAf/7//wAAAAB/NVL/AAAAAD/3//4AAAAAHwtT/AAAAAAf9v/8AAAAAA8LL/gAAAAAD/X/+AAAAAAH + Cy/4AAAAAAcA//AAAAAABwsv8AAAAAAH9v/wAAAAAAMoL/AAAAAAAyv/8AAAAAADU1LgAAAAAANW//AA + AAAAAwtS8AAAAAAD///wAAAAAAMLUvAAAAAAA///8AAAAAAHAlLwAAAAAAf///AAAAAAB/f18AAAAAAH + ///4AAAAAA//gfgAAAAAD////AAAAAAfAAD8AAAAAD/P//4AAAAAfw///wAAAAB/Df//AAAAAH/M//8A + AAAA/9zf/4AAAAD/7c//wAAAAP/tD//wAAAA/+4P//wAAAD/vg///wAAAf/tz///8AAD/+zP///4AAf/ + 0P////wAP/8O/////////+////////////8oAAAAIAAAAEAAAAABACAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACAAAABwAA + ABEAAAAaAAAAHQAAAB8AAAAdAAAAHAAAABIAAAAIAAAAAgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACAAAADQAA + ACEAAAAuAAAAOQYGBlAMDAxTERERVg8PD1UGBgZQAwMDTwAAAC4AAAAhAAAADgAAAAIAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABwAA + AB8AAAA1ExMTWEJCQnqioqK5x8fG3NLS0ujV1dXr09PT6dDQ0OOkpKS+SUlJgBsbG1wDAwNPAAAAIAAA + AAgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AA0AAAAxFhYWWX5+fp7h4eDx+/v7/+rm5v/Hvb3/uays/7eoqP+4qqr/w7i3/+Tf3//8/Pz/4eHh8oGB + gaQbGxtcAAAAMAAAAA0AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAANAwMDT1dXV3zZ2dnq9vX1/7Wop/9nPTr/eT41/5xTQ/+LSTz/aDQt/18uKv9FHx//RR8f/1Uy + Mv+zpKT/9fT0/9nZ2exZWVmAAwMDTwAAAA4AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAABwMDA06Kioqe9vb2/cq/v/9pOzb/pVhH/79oUv95PjX/RR8f/0UfH/9FHx//RR8f/0Uf + H/9FHx//RR8f/0UfH/9PKyv/z8bF//Ly8vyLi4ugAwMDTgAAAAgAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAEDAwNPiYiImvv7+/+tmZj/k05A/9FzWv+CQzj/RR8f/0UfH/9FHx//RR8f/0Uf + H/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//ppSU//v7+/+KioqeAwMDTwAAAAEAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAI1BQUHX29vX9r5ua/7ZjTv/Rc1r/eT41/0UfH/9FHx//RR8f/0Uf + H/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//p5WV//b29v1VVVV6AAAAIgAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAMMDAxT4+Pj8MzDw/+lWEf/0XNa/5hRQf8vFRX/Ig8P/xEH + B/8RBwf/EQcH/xEHB/8RBwf/Ig8P/ysTE/9AHR3/RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//ysDA/97d + 3e0RERFVAAAAAwAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAIJubm6Ty8fH/jFBF/85wV/+WTzr/NSMa/zQq + IP8vWlz/L4GM/y+PnP81kIH/QI5T/zNiO/81TTH/KSEZ/xEOCv8RBwf/KxMT/0UfH/9FHx//RR8f/0Uf + H/9PKyv/8u/v/5ubmqcAAAAfAAAAAAAAAAAAAAAAAAAAAAAAAAMRERFW5OTk8KuWlf+1YEn/fkw4/0Bo + Z/8dqMH/ANL//wDS//8A0v//ANL//xDk1P8k4pz/JOCX/yTinP8k4Jf/Naxs/zt0Rf8pIRn/DggH/y8V + Ff9FHx//RR8f/0UfH/+ij4//5OTk8QoKClEAAAACAAAAAAAAAAAAAAAAAAAAEnJycor5+fj/cTku/15O + QP8jn7X/ANL//wDS//8A0v//ANL//wDS//8A2///Cera/yLQbf8i0G3/ItBt/yLScv8j3Iz/JeSh/yvL + hv9BeEn/IxwV/xkLC/9FHx//RR8f/08rK//8/Pz/T09PdAAAAAsAAAAAAAAAAAAAAAAAAAAqw8PDztDL + y/9SOyz/Ebja/wDU//8A3///AOT//wDk//8A5P//AOL//wDf//8H7+P/ItBt/yLQbf8i0G3/ItBt/yLQ + bf8i0G3/I9iC/yXkof8xtXD/PDwr/xIKCf9AHR3/RR8f/+fj4/+pqamzAAAAHgAAAAAAAAAAAAAAAQoK + ClLk5OTyjouJ/y+PnP8A3f//AOb//wDW//8A0v//ANL//wDS//8A0v//ANL//wDt//8i0G3/ItBt/yLQ + bf8i0G3/ItBt/yLQbf8i0G3/ItBt/yTinP8vw4L/SEYy/x8QD/9FHx//xbm5/8vLy9cAAAAsAAAAAAAA + AAAAAAAEGRkZWvf39/1cU0v/CtTg/wDb//8A0v//ANL//wDS//8A0v//ANL//wDS//8A0v//AOb//x3U + f/8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yPcjP85pm7/QDQn/ysTE/+lkpL/4+Li7gMD + A08AAAAAAAAAAAAAAAQbGxtc/v7+/yM+Jv8H3vP/ANL//wDS//8A0v//ANL//wDS//8A0v//ANL//wDS + //8A4v//GdmR/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf80pl3/S3VJ/15MOv9eTDr/KyAZ/494 + eP/p6enzAwMDTwAAAAAAAAAAAAAAAxEREVb//v7/KGpJ/yfwwf8f6sz/Dt3n/wDS//8A0v//ANL//wDS + //8A0v//ANL//wDb//8T4az/ItBt/yLQbf8i0G3/ItBt/ym/Zv9AjlP/VlxA/15MOv9eTDr/YVA5/19N + Of9GOSv/hXR0/+jo6PMDAwNPAAAAAAAAAAAAAAABBgYGUOvq6vVzwpj/Jeis/ybuu/8n8MH/JO7E/xXi + 3P8E1ff/ANL//wDS//8A0v//ANL//xHjtv8i0G3/ItBt/zGvYP9LdUn/Xkw6/15MOv9eTDr/Xkw6/15M + Ov9jUjn/Y1I5/15MOv+jnp7/3Nvb5QAAADMAAAAAAAAAAAAAAAEKCgpS6urq9XfgpP8k4pz/ItJy/yPc + jP8m6rH/J/DB/yfwwf8a5tT/DNvr/wDS//8A0v//Ceba/yLQbf9PbUb/Xkw6/15MOv9eTDr/Xkw6/15M + Ov9eTDr/Xkw6/2VVOf9jUjn/Xkw6/7a1tf/Ly8vQAAAAKQAAAAAAAAAAAAAAAQYGBlDq6ur1eOCl/yTi + nP8i0nL/ItBt/yLQbf8j2IL/JeSh/yfwwf8n8MH/IuzI/xPh4P8J49//ItBt/yLQbf80pl3/T21G/15M + Ov9eTDr/Xkw6/15MOv9eTDr/a1s4/2BPOf9YRzb/5OTk/6enp6gAAAAbAAAAAAAAAAAAAAAAAAAAMtzc + 3OSq6cX/ItJy/yTinP8i0G3/ItBt/yLQbf8i0G3/ItJy/yTekf8m7Lb/J/DB/yTekf8i0G3/ItBt/yLQ + bf8i0G3/Kb9m/0OFUP9aVD3/Xkw6/15MOv9vYDj/Xkw6/0k+M//8/Pz/QUFBZQAAAAcAAAAAAAAAAAAA + AAAAAAAaqKiopvL59f8i0G3/ItZ8/yTgl/8i0G3/ItBt/yLQbf8i0G3/ItBt/x/Sdv8f3JT/ItR3/yLQ + bf8i0G3/ItBt/yLQbf8i0G3/ItBt/yXHaf84nln/WV9A/2xdOP9SQjL/uLe3/9vb2+IAAAAyAAAAAAAA + AAAAAAAAAAAAAAAAAAEDAwNO7u7u97Hryv8i0G3/ItBt/yLQbf8i0G3/ItBt/xfcmv8N6Mj/Aff//xPh + rP8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/NodM/6Wjof/5+fn+ZWVlcwAA + ABIAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAB9+fn6A+fn5/qXpwv8b0Ij/G9eI/w/lv/8D9PX/Aff//wDw + //8A3///G9KI/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItR3/yXmpv9e0Zf/+fn5/n9/ + f4IAAAAoAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACiCgoKI/Pz8/wLb9f8B9///APD//wDi + //8A1v//ANL//wDS//8k4Jf/JeSh/yLUd/8i0G3/ItBt/yLQbf8i0nL/I9qH/yTinP8l5KH/ItR3/8Du + 0//Ly8vPAAAAKQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAxYWFln+/v7/D9j+/wDW + //8A0v//ANL//wDS//8A0v//ANL//x3Qf/8j2IL/Jeam/yXorP8k4Jf/I9qH/yPcjP8j2IL/ItBt/yLQ + bf8i0G3/6Pfu/6ioqKcAAAAbAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAMNva + 2t/s+Pn/ceP8/wDS//8A0v//ANL//wDS//8A0v//E9Cs/yLQbf8i0G3/ItR3/yTgl/8m7Lb/JOKc/yLU + d/8i0G3/ItBt/yLQbf/8/f3/RUVFaQAAAAgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAARAAAAMKenp6H09PT74/f7/3Hj9v8A0v//ANL//wDS//8K0dH/ItBt/yLQbf8i0G3/ItBt/yLQ + bf8j3Iz/Jeis/yXorP8j3Iz/XNuW//X19fwKCgpSAAAAAQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAJAAAAEO1tbWv7u3t9/v9/f/R9Pv/juj2/2Dg9P8i0G3/ItBt/yLQ + bf8i0G3/ItBt/yLQbf8i0G3/ItZ8/yXkof+Z6sT/4uLi7AAAADcAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAB8AAAA/YmJicMDAwLzh4eHo7u7u+JDm + tP8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf851H//v+7T//z9/P+mpqahAAAAGQAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAKAAAAIgAA + ADWAgICD//////////////////////////////////////n5+f7a2trfYmJicAAAAC0AAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAC1wcHCQgYCApoCAgKeAf3+ngYCApnh4eJtYWFh6AAAASAAAADAAAAARAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAP/gA///gAD//wAAf/4AAD/8AAAf+AAAD/AAAAfwAAAH4AAAA+AA + AAPAAAABwAAAAcAAAAGAAAABgAAAAYAAAAGAAAABgAAAAYAAAAGAAAABwAAAAcAAAAPAAAAD4AAAB/AA + AA/wAAAP+AAAD/gAAA/+AAAf/4AAH//gAD///AB/KAAAABAAAAAgAAAAAQAgAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABAAAAA2AwMDR1paWoN+fn6vf39+t319fKwiIiJlAAAAPwAA + ACsAAAAFAAAAAAAAAAAAAAAAAAAAAAAAAAoAAAA+lZWUlODe3vPv6ej/5NLO/9fIxf/RyMj/+fj4/8jH + x9tDQ0NnAAAANAAAAAEAAAAAAAAAAAAAAAAAAAA8tLS0sejd3P/IkoX/eT41/0UfH/9FHx//RR8f/0wn + J/+mlJT/7Ovr+kpKSm0AAAAoAAAAAAAAAAAAAAAolJSUkevg3v/PiXb/Tici/yIPD/8iDw//KxMT/zgZ + Gf9FHx//RR8f/6KPj//k4uL1CgoKUQAAAAIAAAAAAAAARu/u7fvSmor/VICE/x2bsf8XsM3/LLyQ/zO/ + iv8pg1r/JDAg/zEYF/9FHx//w7e3/7W0tLcAAAAgAAAAD319fYHr5eP/HbTO/wDf//8A3f//AN///xnZ + kf8i0G3/ItZ8/yTgl/8un2z/KSQb/3JYWP/d3NzvAAAAOQAAACfKysrJlcTH/wDi//8A1P//ANL//wDS + //8R4bb/ItBt/yLQbf8i0G3/ItZ8/y/Hjf9GMzD/8vHx/QMDA04AAAAnysrKyYjTx/8H1/P/ANL//wDS + //8A0v//D9y//yLQbf8i0G3/Jcdp/zyWVv9XXkD/UkIy//7+/v8GBgZQAAAAJsrKysiR6cj/Jeam/x/q + zP8O3ef/ANL//wja2v8pv2b/R31N/15MOv9eTDr/Y1I5/3prVv/m5eX6AwMDTwAAACLAwMC7pO7N/yPY + gv8i1Hf/JOCX/yPquv8V5dH/ItBt/ym/Zv9HfU3/WlQ9/2dWOf+QhHj/1dTU6wAAADYAAAAKY2NjcO77 + 9P9S4J3/ItBt/yLQbf8V3qP/INiF/yLQbf8i0G3/ItBt/yXHaf9hnWT/3dvZ/5SUk5IAAAAXAAAAAAAA + AC20s7OtwPLs/w3oyP8C6fX/AN///yTekf8i0nL/ItBt/yLWfP8k3pH/pO/O/8DAwMIAAAAtAAAAAAAA + AAAAAAAAAAAASPX5+v536P//ANL//wDS//8g1ID/JOKc/yXorP8k4Jf/ItBt/9336f+BgICGAAAAEAAA + AAAAAAAAAAAAAAAAAChiYmJvz9nb3/b9/v+x8P7/Sdqw/yLQbf8i0G3/I9yM/0Xor//9//7/CgoKUgAA + AAEAAAAAAAAAAAAAAAAAAAAAAAAAEAAAADA7OztetLS0rery7vvV9eP/1fXj/9X14//0+Pb+uL67vQAA + AC0AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABQAAACRiYmJvfX19m319fZt9fX2aAAAASAAA + ACgAAAACAAAAAAAAAADgAzV7wAEAAMABAACAAMABgACAAAAAgAAAAAAAAAAAAAAAAAAAAAAAAAAAAIAB + AADAAYABwAHAAeADwAH4A+AD + + + \ No newline at end of file diff --git a/ArinWarev1/Forms/v20091231/Frm_v20091231_Report_auth.vb b/ArinWarev1/Forms/v20091231/Frm_v20091231_Report_auth.vb new file mode 100644 index 0000000..bac783d --- /dev/null +++ b/ArinWarev1/Forms/v20091231/Frm_v20091231_Report_auth.vb @@ -0,0 +1,305 @@ +Public Class Frm_v20091231_Report_auth + +#Region "data Base 변경여부및 적용방법" + + '''변경된내용을적용한다. + Public Overrides Function AcceptChanged() As Boolean + + Return True + End Function + + '''변경된내용이있다면 취소한다. + Public Overrides Function RejectChanged() As Boolean + + Return True + End Function + + '''데이터에변형이있었는가? + Public Overrides Function HasChanged() As Boolean + Return False + End Function + + +#End Region + + + + Private Sub Frm_v20091231_Result_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load + Me.DSR.TReqUse.Merge(DSETR.TReqUse) + MakeInfoTable() + MakeGraphTable() + + + Me.ReportViewer1.ZoomMode = Microsoft.Reporting.WinForms.ZoomMode.PageWidth + Me.ReportViewer1.ZoomPercent = 100 + Me.ReportViewer1.RefreshReport() + + End Sub + Private Sub MakeInfoTable() + + '//일반정보확인 + Dim Dr As DSR.Graph_InfoRow = Me.DSR.Graph_Info.NewGraph_InfoRow + Dr.name = CType(DSET.tbl_Desc.Rows(0), DS.tbl_DescRow).buildname + Dr.year = CType(DSET.tbl_Desc.Rows(0), DS.tbl_DescRow).reqdate.Substring(0, 4) + Dr.juso = CType(DSET.tbl_Desc.Rows(0), DS.tbl_DescRow).buildaddr + Dr.chung = CType(DSET.tbl_Desc.Rows(0), DS.tbl_DescRow).builds1 & "/" & CType(DSET.tbl_Desc.Rows(0), DS.tbl_DescRow).builds2 + Dr.myoun = CType(DSET.tbl_Desc.Rows(0), DS.tbl_DescRow).buildm23 + Dr.ydo = "" '//용도는 딱히 필드가없다. + + Dr.i1 = "[인증번호]" + Dr.i2 = "[인증기관]" + Dr.i3 = "[운영기관]" + + Dr.co2 = 80 '//co2배출량값 + + Me.DSR.Graph_Info.AddGraph_InfoRow(Dr) + Me.DSR.Graph_Info.AcceptChanges() + + '//용도별 Co2 배출량 데이터 생성 + Dim Dr2 As DSR.Graph_Info_dataRow = Me.DSR.Graph_Info_data.NewGraph_Info_dataRow + Dr2.난방소요 = Result.E소요량(0).난방면적 + Dr2.급탕소요 = Result.E소요량(0).급탕면적 + Dr2.냉방소요 = Result.E소요량(0).냉방면적 + Dr2.조명소요 = Result.E소요량(0).조명면적 + Dr2.환기소요 = Result.E소요량(0).환기면적 + + Dr2.난방소요1 = Result.일차E소요량(0).난방면적 + Dr2.급탕소요1 = Result.일차E소요량(0).급탕면적 + Dr2.냉방소요1 = Result.일차E소요량(0).냉방면적 + Dr2.조명소요1 = Result.일차E소요량(0).조명면적 + Dr2.환기소요1 = Result.일차E소요량(0).환기면적 + + Dr2.난방co2 = Result.Co2발생량(0).난방면적 + Dr2.급탕co2 = Result.Co2발생량(0).급탕면적 + Dr2.냉방co2 = Result.Co2발생량(0).냉방면적 + Dr2.조명co2 = Result.Co2발생량(0).조명면적 + Dr2.환기co2 = Result.Co2발생량(0).환기면적 + + Me.DSR.Graph_Info_data.AddGraph_Info_dataRow(Dr2) + Me.DSR.Graph_Info_data.AcceptChanges() + + End Sub + Private Sub MakeGraphTable() + 'If DSR.TReqUse.Rows.Count < 1 Then Return + + 'Dim Dr As DSR.Graph_ReqRow + 'For Gubun As Short = 0 To 1 + ' For mon As Short = 1 To 12 + ' If Gubun = 0 Then '//6번 + ' Dr = Me.DSR.Graph_Req.NewGraph_ReqRow + ' Dr.Gubun = "난방에너지요구량" + ' Dr.Mon = Format(mon, "0") & "월" + ' Dr.Req = Ru(6, "M" & Format(mon, "00")) + ' Me.DSR.Graph_Req.Rows.Add(Dr) + ' Else '//11번 + ' Dr = Me.DSR.Graph_Req.NewGraph_ReqRow + ' Dr.Gubun = "냉방에너지요구량" + ' Dr.Mon = Format(mon, "0") & "월" + ' Dr.Req = Ru(11, "M" & Format(mon, "00")) + ' Me.DSR.Graph_Req.Rows.Add(Dr) + ' End If + ' Next + 'Next + + ''//연간에너지요구량및소요량 + ''//Graph_requse gubun,type, + '' 1차에너지소요량 에너지소요량 에너지요구량 + ''신재생에너지 (-57) + ''난방에너지 106 91.87445415 56.14013248 + ''냉방에너지 155.3678094 119.8832527 40.83005443 + ''급탕에너지 42.6421498 14.21404993 14.6 + ''조명에너지 144.2220948 48.07403159 73.08380082 + ''환기에너지 61.68818331 20.56272777 + + 'Dim 신재생에너지 as decimal + 'Dim 난방에너지 as decimal + 'Dim 냉방에너지 as decimal + 'Dim 급탕에너지 as decimal + 'Dim 조명에너지 as decimal + 'Dim 환기에너지 as decimal + + 'Dim Drow As DSR.TReqUseRow = CType(DSETR.TReqUse.Rows(56 - 1), DSR.TReqUseRow) + 'Dim L56 as decimal = Drow.M01 + Drow.M02 + Drow.M03 + Drow.M04 + Drow.M05 + Drow.M06 + Drow.M07 + Drow.M08 + Drow.M09 + Drow.M10 + Drow.M11 + Drow.M12 + 'Drow = CType(DSETR.TReqUse.Rows(57 - 1), DSR.TReqUseRow) + 'Dim L57 as decimal = Drow.M01 + Drow.M02 + Drow.M03 + Drow.M04 + Drow.M05 + Drow.M06 + Drow.M07 + Drow.M08 + Drow.M09 + Drow.M10 + Drow.M11 + Drow.M12 + + + 'Dim Dr2 As DSR.Graph_ReqUseRow + 'For Gubun As Short = 0 To 2 + ' Select Case Gubun + ' Case 0 '//1차에너지소요량 + + ' 신재생에너지 = 0 + ' Dr2 = Me.DSR.Graph_ReqUse.NewGraph_ReqUseRow + ' Dr2.Gubun = "1차에너지소요량" + ' Dr2.type = "신재생에너지" + ' Dr2.Req = 신재생에너지 + ' Me.DSR.Graph_ReqUse.Rows.Add(Dr2) + + ' '(SUM(계산결과!H72:H74)*1.1+계산결과!H75*0.88+계산결과!H76*3)/계산결과!H15 + ' 난방에너지 = CSng(((Ru(41) + Ru(42) + Ru(43)) * 1.1 + Ru(44) * 0.88 + Ru(45) * 3) / Ru(7)) + ' Dr2 = Me.DSR.Graph_ReqUse.NewGraph_ReqUseRow + ' Dr2.Gubun = "1차에너지소요량" + ' Dr2.type = "난방에너지" + ' Dr2.Req = 난방에너지 + ' Me.DSR.Graph_ReqUse.Rows.Add(Dr2) + + ' '(SUM(계산결과!H78:H80)*1.1+계산결과!H81*0.88+계산결과!H82*3)/계산결과!H20 + ' 냉방에너지 = CSng(((Ru(46) + Ru(47) + Ru(48)) * 1.1 + Ru(49) * 0.88 + Ru(50) * 3) / Ru(12)) + ' Dr2 = Me.DSR.Graph_ReqUse.NewGraph_ReqUseRow + ' Dr2.Gubun = "1차에너지소요량" + ' Dr2.type = "냉방에너지" + ' Dr2.Req = 냉방에너지 + ' Me.DSR.Graph_ReqUse.Rows.Add(Dr2) + + ' '(SUM(계산결과!H84:H86)*1.1+계산결과!H87*0.88+계산결과!H88*3)/계산결과!H26 + ' 급탕에너지 = CSng(((Ru(51) + Ru(52) + Ru(53)) * 1.1 + Ru(54) * 0.88 + Ru(55) * 3) / Ru(18)) + ' Dr2 = Me.DSR.Graph_ReqUse.NewGraph_ReqUseRow + ' Dr2.Gubun = "1차에너지소요량" + ' Dr2.type = "급탕에너지" + ' Dr2.Req = 급탕에너지 + ' Me.DSR.Graph_ReqUse.Rows.Add(Dr2) + + ' 'IF(SUM(D33:D35)=0,0,계산결과!H90*3/계산결과!H23) + ' 조명에너지 = CSng(IIf(난방에너지 + 냉방에너지 + 급탕에너지 = 0, 0, Ru(56) * 3 / Ru(15))) + ' Dr2 = Me.DSR.Graph_ReqUse.NewGraph_ReqUseRow + ' Dr2.Gubun = "1차에너지소요량" + ' Dr2.type = "조명에너지" + ' Dr2.Req = 조명에너지 + ' Me.DSR.Graph_ReqUse.Rows.Add(Dr2) + + ' '계산결과!H92*3/계산결과!H27 + ' 환기에너지 = Ru(57) * 3 / Ru(19) + ' Dr2 = Me.DSR.Graph_ReqUse.NewGraph_ReqUseRow + ' Dr2.Gubun = "1차에너지소요량" + ' Dr2.type = "환기에너지" + ' Dr2.Req = 환기에너지 + ' Me.DSR.Graph_ReqUse.Rows.Add(Dr2) + ' Case 1 '//에너지소요량 + + ' '=-(ru(62)+ru(63))-(IF(계산결과!H15<>0,(계산결과!H39+계산결과!H41-계산결과!G38)/계산결과!H15,0)+IF(계산결과!H20<>0,(계산결과!H45+계산결과!H47-계산결과!G44)/계산결과!H20,0)+IF(계산결과!H23<>0,(SUM(계산결과!I90:T90)-계산결과!G50)/계산결과!H23,0)+IF(계산결과!H26<>0,(계산결과!H54+계산결과!H55-계산결과!G53)/계산결과!H26,0)+IF(계산결과!H27<>0,(SUM(계산결과!I92:T92)-계산결과!G58)/계산결과!H27,0)) + + ' Dim PreData as decimal = 0 + ' Dim Ru7, Ru23, Ru25, Ru22G as decimal + ' Ru7 = Ru(7) + ' Ru23 = Ru(23) + ' Ru25 = Ru(25) + ' Ru22G = Ru(22, "COLG") + ' PreData += CSng(IIf(Ru(7) <> 0, (Ru(23) + Ru(25) - Ru(22, "COLG")) / Ru(7), 0)) + ' PreData += CSng(IIf(Ru(12) <> 0, (Ru(28) + Ru(29) - Ru(27, "COLG")) / Ru(12), 0)) + ' PreData += CSng(IIf(Ru(15) <> 0, (L56 - Ru(31, "COLG")) / Ru(15), 0)) + ' PreData += CSng(IIf(Ru(18) <> 0, (Ru(34) + Ru(35) - Ru(33, "COLG")) / Ru(18), 0)) + ' PreData += CSng(IIf(Ru(19) <> 0, (L57 - Ru(37, "COLG")) / Ru(19), 0)) + ' 'PreData = -1 * PreData + + ' 신재생에너지 = -(Ru(62) + Ru(63)) - PreData + ' 'MsgBox(신재생에너지) + + ' Dr2 = Me.DSR.Graph_ReqUse.NewGraph_ReqUseRow + ' Dr2.Gubun = "에너지소요량" + ' Dr2.type = "신재생에너지" + ' Dr2.Req = 신재생에너지 + + ' 'MsgBox(Dr2.Req) + ' Me.DSR.Graph_ReqUse.Rows.Add(Dr2) + + ' '계산결과!H42 + ' 난방에너지 = Ru(26) + ' Dr2 = Me.DSR.Graph_ReqUse.NewGraph_ReqUseRow + ' Dr2.Gubun = "에너지소요량" + ' Dr2.type = "난방에너지" + ' Dr2.Req = 난방에너지 + ' Me.DSR.Graph_ReqUse.Rows.Add(Dr2) + + ' '계산결과!H48() + ' 냉방에너지 = Ru(30) + ' Dr2 = Me.DSR.Graph_ReqUse.NewGraph_ReqUseRow + ' Dr2.Gubun = "에너지소요량" + ' Dr2.type = "냉방에너지" + ' Dr2.Req = 냉방에너지 + ' Me.DSR.Graph_ReqUse.Rows.Add(Dr2) + + ' '계산결과!H56 + ' 급탕에너지 = Ru(36) + ' Dr2 = Me.DSR.Graph_ReqUse.NewGraph_ReqUseRow + ' Dr2.Gubun = "에너지소요량" + ' Dr2.type = "급탕에너지" + ' Dr2.Req = 급탕에너지 + ' Me.DSR.Graph_ReqUse.Rows.Add(Dr2) + + ' '=IF(SUM(E33:E35)=0,0,계산결과!H51) '/난방+냉방+급탕 + ' If 난방에너지 + 냉방에너지 + 급탕에너지 = 0 Then + ' 조명에너지 = 0 + ' Else + ' 조명에너지 = Ru(32) + ' End If + + ' Dr2 = Me.DSR.Graph_ReqUse.NewGraph_ReqUseRow + ' Dr2.Gubun = "에너지소요량" + ' Dr2.type = "조명에너지" + ' Dr2.Req = 조명에너지 + ' Me.DSR.Graph_ReqUse.Rows.Add(Dr2) + + ' '계산결과!H59 + ' 환기에너지 = Ru(38) + ' Dr2 = Me.DSR.Graph_ReqUse.NewGraph_ReqUseRow + ' Dr2.Gubun = "에너지소요량" + ' Dr2.type = "환기에너지" + ' Dr2.Req = 환기에너지 + ' Me.DSR.Graph_ReqUse.Rows.Add(Dr2) + + ' Case 2 '//에너지요구량 + + + ' 신재생에너지 = 0 + ' Dr2 = Me.DSR.Graph_ReqUse.NewGraph_ReqUseRow + ' Dr2.Gubun = "에너지요구량" + ' Dr2.type = "신재생에너지" + ' Dr2.Req = 신재생에너지 + ' Me.DSR.Graph_ReqUse.Rows.Add(Dr2) + + ' '계산결과!H14 + ' 난방에너지 = Ru(6) + ' Dr2 = Me.DSR.Graph_ReqUse.NewGraph_ReqUseRow + ' Dr2.Gubun = "에너지요구량" + ' Dr2.type = "난방에너지" + ' Dr2.Req = 난방에너지 + ' Me.DSR.Graph_ReqUse.Rows.Add(Dr2) + + ' '계산결과!H19 + ' 냉방에너지 = Ru(11) + ' Dr2 = Me.DSR.Graph_ReqUse.NewGraph_ReqUseRow + ' Dr2.Gubun = "에너지요구량" + ' Dr2.type = "냉방에너지" + ' Dr2.Req = 냉방에너지 + ' Me.DSR.Graph_ReqUse.Rows.Add(Dr2) + + ' '계산결과!H25 + ' 급탕에너지 = Ru(17) + ' Dr2 = Me.DSR.Graph_ReqUse.NewGraph_ReqUseRow + ' Dr2.Gubun = "에너지요구량" + ' Dr2.type = "급탕에너지" + ' Dr2.Req = 급탕에너지 + ' Me.DSR.Graph_ReqUse.Rows.Add(Dr2) + + ' '계산결과!H22 + ' 조명에너지 = Ru(14) + ' Dr2 = Me.DSR.Graph_ReqUse.NewGraph_ReqUseRow + ' Dr2.Gubun = "에너지요구량" + ' Dr2.type = "조명에너지" + ' Dr2.Req = 조명에너지 + ' Me.DSR.Graph_ReqUse.Rows.Add(Dr2) + + ' 환기에너지 = 0 + ' Dr2 = Me.DSR.Graph_ReqUse.NewGraph_ReqUseRow + ' Dr2.Gubun = "에너지요구량" + ' Dr2.type = "환기에너지" + ' Dr2.Req = 환기에너지 + ' Me.DSR.Graph_ReqUse.Rows.Add(Dr2) + ' End Select + 'Next + + End Sub + + +End Class \ No newline at end of file diff --git a/ArinWarev1/Forms/v20091231/Frm_v20091231_ResultMax.Designer.vb b/ArinWarev1/Forms/v20091231/Frm_v20091231_ResultMax.Designer.vb new file mode 100644 index 0000000..88831ea --- /dev/null +++ b/ArinWarev1/Forms/v20091231/Frm_v20091231_ResultMax.Designer.vb @@ -0,0 +1,214 @@ + _ +Partial Class Frm_v20091231_ResultMax + Inherits CForm + 'Form은 Dispose를 재정의하여 구성 요소 목록을 정리합니다. + _ + Protected Overrides Sub Dispose(ByVal disposing As Boolean) + Try + If disposing AndAlso components IsNot Nothing Then + components.Dispose() + End If + Finally + MyBase.Dispose(disposing) + End Try + End Sub + + 'Windows Form 디자이너에 필요합니다. + Private components As System.ComponentModel.IContainer + + '참고: 다음 프로시저는 Windows Form 디자이너에 필요합니다. + '수정하려면 Windows Form 디자이너를 사용하십시오. + '코드 편집기를 사용하여 수정하지 마십시오. + _ + Private Sub InitializeComponent() + Me.components = New System.ComponentModel.Container() + Me.DSR = New Eco2Ar.DSR() + Me.bsㅡ = New System.Windows.Forms.BindingSource(Me.components) + Me.최대냉난방부하DataGridView = New System.Windows.Forms.DataGridView() + Me.DataGridViewTextBoxColumn1 = 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.DataGridViewTextBoxColumn9 = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.DataGridViewTextBoxColumn10 = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.DataGridViewTextBoxColumn11 = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.DataGridViewTextBoxColumn12 = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.StatusStrip1 = New System.Windows.Forms.StatusStrip() + Me.lb_msg = New System.Windows.Forms.ToolStripStatusLabel() + CType(Me.DSR, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.bsㅡ, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.최대냉난방부하DataGridView, System.ComponentModel.ISupportInitialize).BeginInit() + Me.StatusStrip1.SuspendLayout() + Me.SuspendLayout() + ' + 'DSR + ' + Me.DSR.DataSetName = "DSR" + Me.DSR.SchemaSerializationMode = System.Data.SchemaSerializationMode.IncludeSchema + ' + 'bsㅡ + ' + Me.bsㅡ.DataMember = "최대냉난방부하" + Me.bsㅡ.DataSource = Me.DSR + ' + '최대냉난방부하DataGridView + ' + Me.최대냉난방부하DataGridView.AllowUserToAddRows = False + Me.최대냉난방부하DataGridView.AllowUserToDeleteRows = False + Me.최대냉난방부하DataGridView.AutoGenerateColumns = False + Me.최대냉난방부하DataGridView.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.AllCells + Me.최대냉난방부하DataGridView.Columns.AddRange(New System.Windows.Forms.DataGridViewColumn() {Me.DataGridViewTextBoxColumn1, Me.DataGridViewTextBoxColumn3, Me.DataGridViewTextBoxColumn4, Me.DataGridViewTextBoxColumn5, Me.DataGridViewTextBoxColumn6, Me.DataGridViewTextBoxColumn7, Me.DataGridViewTextBoxColumn8, Me.DataGridViewTextBoxColumn9, Me.DataGridViewTextBoxColumn10, Me.DataGridViewTextBoxColumn11, Me.DataGridViewTextBoxColumn12}) + Me.최대냉난방부하DataGridView.DataSource = Me.bsㅡ + Me.최대냉난방부하DataGridView.Dock = System.Windows.Forms.DockStyle.Fill + Me.최대냉난방부하DataGridView.Location = New System.Drawing.Point(0, 0) + Me.최대냉난방부하DataGridView.Name = "최대냉난방부하DataGridView" + Me.최대냉난방부하DataGridView.ReadOnly = True + Me.최대냉난방부하DataGridView.RowHeadersVisible = False + Me.최대냉난방부하DataGridView.RowTemplate.Height = 23 + Me.최대냉난방부하DataGridView.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect + Me.최대냉난방부하DataGridView.Size = New System.Drawing.Size(898, 482) + Me.최대냉난방부하DataGridView.TabIndex = 1 + ' + 'DataGridViewTextBoxColumn1 + ' + Me.DataGridViewTextBoxColumn1.DataPropertyName = "Zone" + Me.DataGridViewTextBoxColumn1.HeaderText = "Zone" + Me.DataGridViewTextBoxColumn1.Name = "DataGridViewTextBoxColumn1" + Me.DataGridViewTextBoxColumn1.ReadOnly = True + Me.DataGridViewTextBoxColumn1.Width = 60 + ' + 'DataGridViewTextBoxColumn3 + ' + Me.DataGridViewTextBoxColumn3.DataPropertyName = "최대난방기기부하" + Me.DataGridViewTextBoxColumn3.HeaderText = "최대난방기기부하" + Me.DataGridViewTextBoxColumn3.Name = "DataGridViewTextBoxColumn3" + Me.DataGridViewTextBoxColumn3.ReadOnly = True + Me.DataGridViewTextBoxColumn3.Width = 120 + ' + 'DataGridViewTextBoxColumn4 + ' + Me.DataGridViewTextBoxColumn4.DataPropertyName = "최대난방실내부하" + Me.DataGridViewTextBoxColumn4.HeaderText = "최대난방실내부하" + Me.DataGridViewTextBoxColumn4.Name = "DataGridViewTextBoxColumn4" + Me.DataGridViewTextBoxColumn4.ReadOnly = True + Me.DataGridViewTextBoxColumn4.Width = 120 + ' + 'DataGridViewTextBoxColumn5 + ' + Me.DataGridViewTextBoxColumn5.DataPropertyName = "난방최대가동시간" + Me.DataGridViewTextBoxColumn5.HeaderText = "난방최대가동시간" + Me.DataGridViewTextBoxColumn5.Name = "DataGridViewTextBoxColumn5" + Me.DataGridViewTextBoxColumn5.ReadOnly = True + Me.DataGridViewTextBoxColumn5.Width = 120 + ' + 'DataGridViewTextBoxColumn6 + ' + Me.DataGridViewTextBoxColumn6.DataPropertyName = "최대가열성능" + Me.DataGridViewTextBoxColumn6.HeaderText = "최대가열성능" + Me.DataGridViewTextBoxColumn6.Name = "DataGridViewTextBoxColumn6" + Me.DataGridViewTextBoxColumn6.ReadOnly = True + Me.DataGridViewTextBoxColumn6.Width = 98 + ' + 'DataGridViewTextBoxColumn7 + ' + Me.DataGridViewTextBoxColumn7.DataPropertyName = "최대냉방기기부하" + Me.DataGridViewTextBoxColumn7.HeaderText = "최대냉방기기부하" + Me.DataGridViewTextBoxColumn7.Name = "DataGridViewTextBoxColumn7" + Me.DataGridViewTextBoxColumn7.ReadOnly = True + Me.DataGridViewTextBoxColumn7.Width = 120 + ' + 'DataGridViewTextBoxColumn8 + ' + Me.DataGridViewTextBoxColumn8.DataPropertyName = "최대냉방실내부하" + Me.DataGridViewTextBoxColumn8.HeaderText = "최대냉방실내부하" + Me.DataGridViewTextBoxColumn8.Name = "DataGridViewTextBoxColumn8" + Me.DataGridViewTextBoxColumn8.ReadOnly = True + Me.DataGridViewTextBoxColumn8.Width = 120 + ' + 'DataGridViewTextBoxColumn9 + ' + Me.DataGridViewTextBoxColumn9.DataPropertyName = "냉방최대가동시간" + Me.DataGridViewTextBoxColumn9.HeaderText = "냉방최대가동시간" + Me.DataGridViewTextBoxColumn9.Name = "DataGridViewTextBoxColumn9" + Me.DataGridViewTextBoxColumn9.ReadOnly = True + Me.DataGridViewTextBoxColumn9.Width = 120 + ' + 'DataGridViewTextBoxColumn10 + ' + Me.DataGridViewTextBoxColumn10.DataPropertyName = "최대냉각성능" + Me.DataGridViewTextBoxColumn10.HeaderText = "최대냉각성능" + Me.DataGridViewTextBoxColumn10.Name = "DataGridViewTextBoxColumn10" + Me.DataGridViewTextBoxColumn10.ReadOnly = True + Me.DataGridViewTextBoxColumn10.Width = 98 + ' + 'DataGridViewTextBoxColumn11 + ' + Me.DataGridViewTextBoxColumn11.DataPropertyName = "최대가습성능" + Me.DataGridViewTextBoxColumn11.HeaderText = "최대가습성능" + Me.DataGridViewTextBoxColumn11.Name = "DataGridViewTextBoxColumn11" + Me.DataGridViewTextBoxColumn11.ReadOnly = True + Me.DataGridViewTextBoxColumn11.Width = 98 + ' + 'DataGridViewTextBoxColumn12 + ' + Me.DataGridViewTextBoxColumn12.DataPropertyName = "공조풍량" + Me.DataGridViewTextBoxColumn12.HeaderText = "공조풍량" + Me.DataGridViewTextBoxColumn12.Name = "DataGridViewTextBoxColumn12" + Me.DataGridViewTextBoxColumn12.ReadOnly = True + Me.DataGridViewTextBoxColumn12.Width = 76 + ' + 'StatusStrip1 + ' + Me.StatusStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.lb_msg}) + Me.StatusStrip1.Location = New System.Drawing.Point(0, 482) + Me.StatusStrip1.Name = "StatusStrip1" + Me.StatusStrip1.Size = New System.Drawing.Size(898, 22) + Me.StatusStrip1.TabIndex = 15 + Me.StatusStrip1.Text = "StatusStrip1" + ' + 'lb_msg + ' + Me.lb_msg.Name = "lb_msg" + Me.lb_msg.Size = New System.Drawing.Size(59, 17) + Me.lb_msg.Text = "<메세지>" + ' + 'Frm_v20091231_ResultMax + ' + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.None + Me.ClientSize = New System.Drawing.Size(898, 504) + Me.ControlBox = False + Me.Controls.Add(Me.최대냉난방부하DataGridView) + Me.Controls.Add(Me.StatusStrip1) + Me.Font = New System.Drawing.Font("나눔고딕", 8.999999!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.Name = "Frm_v20091231_ResultMax" + Me.Text = "최대냉난방부하" + CType(Me.DSR, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.bsㅡ, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.최대냉난방부하DataGridView, System.ComponentModel.ISupportInitialize).EndInit() + Me.StatusStrip1.ResumeLayout(False) + Me.StatusStrip1.PerformLayout() + Me.ResumeLayout(False) + Me.PerformLayout() + + End Sub + Friend WithEvents DSR As Eco2Ar.DSR + Friend WithEvents bsㅡ As System.Windows.Forms.BindingSource + Friend WithEvents 최대냉난방부하DataGridView As System.Windows.Forms.DataGridView + Friend WithEvents DataGridViewTextBoxColumn1 As System.Windows.Forms.DataGridViewTextBoxColumn + Friend WithEvents DataGridViewTextBoxColumn2 As System.Windows.Forms.DataGridViewTextBoxColumn + Friend WithEvents DataGridViewTextBoxColumn3 As System.Windows.Forms.DataGridViewTextBoxColumn + Friend WithEvents DataGridViewTextBoxColumn4 As System.Windows.Forms.DataGridViewTextBoxColumn + Friend WithEvents DataGridViewTextBoxColumn5 As System.Windows.Forms.DataGridViewTextBoxColumn + Friend WithEvents DataGridViewTextBoxColumn6 As System.Windows.Forms.DataGridViewTextBoxColumn + Friend WithEvents DataGridViewTextBoxColumn7 As System.Windows.Forms.DataGridViewTextBoxColumn + Friend WithEvents DataGridViewTextBoxColumn8 As System.Windows.Forms.DataGridViewTextBoxColumn + Friend WithEvents DataGridViewTextBoxColumn9 As System.Windows.Forms.DataGridViewTextBoxColumn + Friend WithEvents DataGridViewTextBoxColumn10 As System.Windows.Forms.DataGridViewTextBoxColumn + Friend WithEvents DataGridViewTextBoxColumn11 As System.Windows.Forms.DataGridViewTextBoxColumn + Friend WithEvents DataGridViewTextBoxColumn12 As System.Windows.Forms.DataGridViewTextBoxColumn + Friend WithEvents StatusStrip1 As System.Windows.Forms.StatusStrip + Friend WithEvents lb_msg As System.Windows.Forms.ToolStripStatusLabel +End Class diff --git a/ArinWarev1/Forms/v20091231/Frm_v20091231_ResultMax.resx b/ArinWarev1/Forms/v20091231/Frm_v20091231_ResultMax.resx new file mode 100644 index 0000000..0491a54 --- /dev/null +++ b/ArinWarev1/Forms/v20091231/Frm_v20091231_ResultMax.resx @@ -0,0 +1,129 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + 109, 17 + + + 184, 17 + + + 248, 17 + + \ No newline at end of file diff --git a/ArinWarev1/Forms/v20091231/Frm_v20091231_ResultMax.vb b/ArinWarev1/Forms/v20091231/Frm_v20091231_ResultMax.vb new file mode 100644 index 0000000..f223c1f --- /dev/null +++ b/ArinWarev1/Forms/v20091231/Frm_v20091231_ResultMax.vb @@ -0,0 +1,30 @@ +Public Class Frm_v20091231_ResultMax + +#Region "data Base 변경여부및 적용방법" + + '''변경된내용을적용한다. + Public Overrides Function AcceptChanged() As Boolean + + Return True + End Function + + '''변경된내용이있다면 취소한다. + Public Overrides Function RejectChanged() As Boolean + + Return True + End Function + + '''데이터에변형이있었는가? + Public Overrides Function HasChanged() As Boolean + Return False + End Function + + + +#End Region + + + Private Sub Frm_v20091231_Result_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load + Me.bsㅡ.DataSource = DSETR + End Sub +End Class \ No newline at end of file diff --git a/ArinWarev1/Forms/v20091231/Frm_v20091231_ResultMon.Designer.vb b/ArinWarev1/Forms/v20091231/Frm_v20091231_ResultMon.Designer.vb new file mode 100644 index 0000000..4826396 --- /dev/null +++ b/ArinWarev1/Forms/v20091231/Frm_v20091231_ResultMon.Designer.vb @@ -0,0 +1,418 @@ + _ +Partial Class Frm_v20091231_ResultMon + Inherits CForm + + 'Form은 Dispose를 재정의하여 구성 요소 목록을 정리합니다. + _ + Protected Overrides Sub Dispose(ByVal disposing As Boolean) + Try + If disposing AndAlso components IsNot Nothing Then + components.Dispose() + End If + Finally + MyBase.Dispose(disposing) + End Try + End Sub + + 'Windows Form 디자이너에 필요합니다. + Private components As System.ComponentModel.IContainer + + '참고: 다음 프로시저는 Windows Form 디자이너에 필요합니다. + '수정하려면 Windows Form 디자이너를 사용하십시오. + '코드 편집기를 사용하여 수정하지 마십시오. + _ + Private Sub InitializeComponent() + Me.components = New System.ComponentModel.Container() + Me.DSR = New Eco2Ar.DSR() + Me.bs = New System.Windows.Forms.BindingSource(Me.components) + Me.dv01 = New System.Windows.Forms.DataGridView() + 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.DataGridViewTextBoxColumn9 = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.DataGridViewTextBoxColumn10 = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.DataGridViewTextBoxColumn11 = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.DataGridViewTextBoxColumn12 = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.DataGridViewTextBoxColumn13 = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.DataGridViewTextBoxColumn14 = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.존 = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.Zone = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.TabControl1 = New System.Windows.Forms.TabControl() + Me.TabPage1 = New System.Windows.Forms.TabPage() + Me.TabPage2 = New System.Windows.Forms.TabPage() + Me.TabPage3 = New System.Windows.Forms.TabPage() + Me.TabPage4 = New System.Windows.Forms.TabPage() + Me.TabPage5 = New System.Windows.Forms.TabPage() + Me.TabPage6 = New System.Windows.Forms.TabPage() + Me.TabPage7 = New System.Windows.Forms.TabPage() + Me.TabPage8 = New System.Windows.Forms.TabPage() + Me.TabPage9 = New System.Windows.Forms.TabPage() + Me.TabPage10 = New System.Windows.Forms.TabPage() + Me.TabPage11 = New System.Windows.Forms.TabPage() + Me.TabPage12 = New System.Windows.Forms.TabPage() + Me.StatusStrip1 = New System.Windows.Forms.StatusStrip() + Me.lb_msg = New System.Windows.Forms.ToolStripStatusLabel() + Me.bsz = New System.Windows.Forms.BindingSource(Me.components) + Me.DS = New Eco2Ar.DS() + CType(Me.DSR, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.bs, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.dv01, System.ComponentModel.ISupportInitialize).BeginInit() + Me.TabControl1.SuspendLayout() + Me.StatusStrip1.SuspendLayout() + CType(Me.bsz, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.DS, System.ComponentModel.ISupportInitialize).BeginInit() + Me.SuspendLayout() + ' + 'DSR + ' + Me.DSR.DataSetName = "DSR" + Me.DSR.SchemaSerializationMode = System.Data.SchemaSerializationMode.IncludeSchema + ' + 'bs + ' + Me.bs.DataMember = "월별에너지분석" + Me.bs.DataSource = Me.DSR + Me.bs.Filter = "월='M01'" + ' + 'dv01 + ' + Me.dv01.AllowUserToAddRows = False + Me.dv01.AllowUserToDeleteRows = False + Me.dv01.AllowUserToResizeRows = False + Me.dv01.AutoGenerateColumns = False + Me.dv01.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.AllCells + Me.dv01.Columns.AddRange(New System.Windows.Forms.DataGridViewColumn() {Me.DataGridViewTextBoxColumn4, Me.DataGridViewTextBoxColumn5, Me.DataGridViewTextBoxColumn6, Me.DataGridViewTextBoxColumn7, Me.DataGridViewTextBoxColumn8, Me.DataGridViewTextBoxColumn9, Me.DataGridViewTextBoxColumn10, Me.DataGridViewTextBoxColumn11, Me.DataGridViewTextBoxColumn12, Me.DataGridViewTextBoxColumn13, Me.DataGridViewTextBoxColumn14, Me.존, Me.Zone}) + Me.dv01.DataSource = Me.bs + Me.dv01.Dock = System.Windows.Forms.DockStyle.Fill + Me.dv01.Location = New System.Drawing.Point(0, 26) + Me.dv01.Name = "dv01" + Me.dv01.ReadOnly = True + Me.dv01.RowHeadersVisible = False + Me.dv01.RowTemplate.Height = 23 + Me.dv01.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect + Me.dv01.Size = New System.Drawing.Size(898, 456) + Me.dv01.TabIndex = 1 + ' + 'DataGridViewTextBoxColumn4 + ' + Me.DataGridViewTextBoxColumn4.DataPropertyName = "난방요구량열" + Me.DataGridViewTextBoxColumn4.HeaderText = "난방요구량열" + Me.DataGridViewTextBoxColumn4.Name = "DataGridViewTextBoxColumn4" + Me.DataGridViewTextBoxColumn4.ReadOnly = True + Me.DataGridViewTextBoxColumn4.Width = 98 + ' + 'DataGridViewTextBoxColumn5 + ' + Me.DataGridViewTextBoxColumn5.DataPropertyName = "난방요구량공조" + Me.DataGridViewTextBoxColumn5.HeaderText = "난방요구량공조" + Me.DataGridViewTextBoxColumn5.Name = "DataGridViewTextBoxColumn5" + Me.DataGridViewTextBoxColumn5.ReadOnly = True + Me.DataGridViewTextBoxColumn5.Width = 109 + ' + 'DataGridViewTextBoxColumn6 + ' + Me.DataGridViewTextBoxColumn6.DataPropertyName = "냉방요구량열" + Me.DataGridViewTextBoxColumn6.HeaderText = "냉방요구량열" + Me.DataGridViewTextBoxColumn6.Name = "DataGridViewTextBoxColumn6" + Me.DataGridViewTextBoxColumn6.ReadOnly = True + Me.DataGridViewTextBoxColumn6.Width = 98 + ' + 'DataGridViewTextBoxColumn7 + ' + Me.DataGridViewTextBoxColumn7.DataPropertyName = "냉방요구량공조" + Me.DataGridViewTextBoxColumn7.HeaderText = "냉방요구량공조" + Me.DataGridViewTextBoxColumn7.Name = "DataGridViewTextBoxColumn7" + Me.DataGridViewTextBoxColumn7.ReadOnly = True + Me.DataGridViewTextBoxColumn7.Width = 109 + ' + 'DataGridViewTextBoxColumn8 + ' + Me.DataGridViewTextBoxColumn8.DataPropertyName = "조명요구량" + Me.DataGridViewTextBoxColumn8.HeaderText = "조명요구량" + Me.DataGridViewTextBoxColumn8.Name = "DataGridViewTextBoxColumn8" + Me.DataGridViewTextBoxColumn8.ReadOnly = True + Me.DataGridViewTextBoxColumn8.Width = 87 + ' + 'DataGridViewTextBoxColumn9 + ' + Me.DataGridViewTextBoxColumn9.DataPropertyName = "급탕요구량" + Me.DataGridViewTextBoxColumn9.HeaderText = "급탕요구량" + Me.DataGridViewTextBoxColumn9.Name = "DataGridViewTextBoxColumn9" + Me.DataGridViewTextBoxColumn9.ReadOnly = True + Me.DataGridViewTextBoxColumn9.Width = 87 + ' + 'DataGridViewTextBoxColumn10 + ' + Me.DataGridViewTextBoxColumn10.DataPropertyName = "공조풍량" + Me.DataGridViewTextBoxColumn10.HeaderText = "공조풍량" + Me.DataGridViewTextBoxColumn10.Name = "DataGridViewTextBoxColumn10" + Me.DataGridViewTextBoxColumn10.ReadOnly = True + Me.DataGridViewTextBoxColumn10.Width = 76 + ' + 'DataGridViewTextBoxColumn11 + ' + Me.DataGridViewTextBoxColumn11.DataPropertyName = "공조요구량난방" + Me.DataGridViewTextBoxColumn11.HeaderText = "공조요구량난방" + Me.DataGridViewTextBoxColumn11.Name = "DataGridViewTextBoxColumn11" + Me.DataGridViewTextBoxColumn11.ReadOnly = True + Me.DataGridViewTextBoxColumn11.Width = 109 + ' + 'DataGridViewTextBoxColumn12 + ' + Me.DataGridViewTextBoxColumn12.DataPropertyName = "공조요구량냉방" + Me.DataGridViewTextBoxColumn12.HeaderText = "공조요구량냉방" + Me.DataGridViewTextBoxColumn12.Name = "DataGridViewTextBoxColumn12" + Me.DataGridViewTextBoxColumn12.ReadOnly = True + Me.DataGridViewTextBoxColumn12.Width = 109 + ' + 'DataGridViewTextBoxColumn13 + ' + Me.DataGridViewTextBoxColumn13.DataPropertyName = "공조요구량가습" + Me.DataGridViewTextBoxColumn13.HeaderText = "공조요구량가습" + Me.DataGridViewTextBoxColumn13.Name = "DataGridViewTextBoxColumn13" + Me.DataGridViewTextBoxColumn13.ReadOnly = True + Me.DataGridViewTextBoxColumn13.Width = 109 + ' + 'DataGridViewTextBoxColumn14 + ' + Me.DataGridViewTextBoxColumn14.DataPropertyName = "환기요구량" + Me.DataGridViewTextBoxColumn14.HeaderText = "환기요구량" + Me.DataGridViewTextBoxColumn14.Name = "DataGridViewTextBoxColumn14" + Me.DataGridViewTextBoxColumn14.ReadOnly = True + Me.DataGridViewTextBoxColumn14.Width = 87 + ' + '존 + ' + Me.존.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.None + Me.존.DataPropertyName = "존" + Me.존.FillWeight = 1.0! + Me.존.HeaderText = "존" + Me.존.MinimumWidth = 2 + Me.존.Name = "존" + Me.존.ReadOnly = True + Me.존.Width = 2 + ' + 'Zone + ' + Me.Zone.HeaderText = "Zone" + Me.Zone.Name = "Zone" + Me.Zone.ReadOnly = True + Me.Zone.Width = 60 + ' + 'TabControl1 + ' + Me.TabControl1.Controls.Add(Me.TabPage1) + Me.TabControl1.Controls.Add(Me.TabPage2) + Me.TabControl1.Controls.Add(Me.TabPage3) + Me.TabControl1.Controls.Add(Me.TabPage4) + Me.TabControl1.Controls.Add(Me.TabPage5) + Me.TabControl1.Controls.Add(Me.TabPage6) + Me.TabControl1.Controls.Add(Me.TabPage7) + Me.TabControl1.Controls.Add(Me.TabPage8) + Me.TabControl1.Controls.Add(Me.TabPage9) + Me.TabControl1.Controls.Add(Me.TabPage10) + Me.TabControl1.Controls.Add(Me.TabPage11) + Me.TabControl1.Controls.Add(Me.TabPage12) + Me.TabControl1.Dock = System.Windows.Forms.DockStyle.Top + Me.TabControl1.Location = New System.Drawing.Point(0, 0) + Me.TabControl1.Name = "TabControl1" + Me.TabControl1.SelectedIndex = 0 + Me.TabControl1.Size = New System.Drawing.Size(898, 26) + Me.TabControl1.TabIndex = 2 + ' + 'TabPage1 + ' + Me.TabPage1.Location = New System.Drawing.Point(4, 23) + Me.TabPage1.Name = "TabPage1" + Me.TabPage1.Padding = New System.Windows.Forms.Padding(3) + Me.TabPage1.Size = New System.Drawing.Size(890, 0) + Me.TabPage1.TabIndex = 0 + Me.TabPage1.Text = "01월" + Me.TabPage1.UseVisualStyleBackColor = True + ' + 'TabPage2 + ' + Me.TabPage2.Location = New System.Drawing.Point(4, 22) + Me.TabPage2.Name = "TabPage2" + Me.TabPage2.Padding = New System.Windows.Forms.Padding(3) + Me.TabPage2.Size = New System.Drawing.Size(890, 0) + Me.TabPage2.TabIndex = 1 + Me.TabPage2.Text = "02월" + Me.TabPage2.UseVisualStyleBackColor = True + ' + 'TabPage3 + ' + Me.TabPage3.Location = New System.Drawing.Point(4, 22) + Me.TabPage3.Name = "TabPage3" + Me.TabPage3.Size = New System.Drawing.Size(890, 0) + Me.TabPage3.TabIndex = 2 + Me.TabPage3.Text = "03월" + Me.TabPage3.UseVisualStyleBackColor = True + ' + 'TabPage4 + ' + Me.TabPage4.Location = New System.Drawing.Point(4, 22) + Me.TabPage4.Name = "TabPage4" + Me.TabPage4.Size = New System.Drawing.Size(890, 0) + Me.TabPage4.TabIndex = 3 + Me.TabPage4.Text = "04월" + Me.TabPage4.UseVisualStyleBackColor = True + ' + 'TabPage5 + ' + Me.TabPage5.Location = New System.Drawing.Point(4, 22) + Me.TabPage5.Name = "TabPage5" + Me.TabPage5.Size = New System.Drawing.Size(890, 0) + Me.TabPage5.TabIndex = 4 + Me.TabPage5.Text = "05월" + Me.TabPage5.UseVisualStyleBackColor = True + ' + 'TabPage6 + ' + Me.TabPage6.Location = New System.Drawing.Point(4, 22) + Me.TabPage6.Name = "TabPage6" + Me.TabPage6.Size = New System.Drawing.Size(890, 0) + Me.TabPage6.TabIndex = 5 + Me.TabPage6.Text = "06월" + Me.TabPage6.UseVisualStyleBackColor = True + ' + 'TabPage7 + ' + Me.TabPage7.Location = New System.Drawing.Point(4, 22) + Me.TabPage7.Name = "TabPage7" + Me.TabPage7.Size = New System.Drawing.Size(890, 0) + Me.TabPage7.TabIndex = 6 + Me.TabPage7.Text = "07월" + Me.TabPage7.UseVisualStyleBackColor = True + ' + 'TabPage8 + ' + Me.TabPage8.Location = New System.Drawing.Point(4, 22) + Me.TabPage8.Name = "TabPage8" + Me.TabPage8.Size = New System.Drawing.Size(890, 0) + Me.TabPage8.TabIndex = 7 + Me.TabPage8.Text = "08월" + Me.TabPage8.UseVisualStyleBackColor = True + ' + 'TabPage9 + ' + Me.TabPage9.Location = New System.Drawing.Point(4, 22) + Me.TabPage9.Name = "TabPage9" + Me.TabPage9.Size = New System.Drawing.Size(890, 0) + Me.TabPage9.TabIndex = 8 + Me.TabPage9.Text = "09월" + Me.TabPage9.UseVisualStyleBackColor = True + ' + 'TabPage10 + ' + Me.TabPage10.Location = New System.Drawing.Point(4, 22) + Me.TabPage10.Name = "TabPage10" + Me.TabPage10.Size = New System.Drawing.Size(890, 0) + Me.TabPage10.TabIndex = 9 + Me.TabPage10.Text = "10월" + Me.TabPage10.UseVisualStyleBackColor = True + ' + 'TabPage11 + ' + Me.TabPage11.Location = New System.Drawing.Point(4, 22) + Me.TabPage11.Name = "TabPage11" + Me.TabPage11.Size = New System.Drawing.Size(890, 0) + Me.TabPage11.TabIndex = 10 + Me.TabPage11.Text = "11월" + Me.TabPage11.UseVisualStyleBackColor = True + ' + 'TabPage12 + ' + Me.TabPage12.Location = New System.Drawing.Point(4, 22) + Me.TabPage12.Name = "TabPage12" + Me.TabPage12.Size = New System.Drawing.Size(890, 0) + Me.TabPage12.TabIndex = 11 + Me.TabPage12.Text = "12월" + Me.TabPage12.UseVisualStyleBackColor = True + ' + 'StatusStrip1 + ' + Me.StatusStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.lb_msg}) + Me.StatusStrip1.Location = New System.Drawing.Point(0, 482) + Me.StatusStrip1.Name = "StatusStrip1" + Me.StatusStrip1.Size = New System.Drawing.Size(898, 22) + Me.StatusStrip1.TabIndex = 15 + Me.StatusStrip1.Text = "StatusStrip1" + ' + 'lb_msg + ' + Me.lb_msg.Name = "lb_msg" + Me.lb_msg.Size = New System.Drawing.Size(59, 17) + Me.lb_msg.Text = "<메세지>" + ' + 'bsz + ' + Me.bsz.DataMember = "tbl_zone" + Me.bsz.DataSource = Me.DS + ' + 'DS + ' + Me.DS.DataSetName = "DS" + Me.DS.SchemaSerializationMode = System.Data.SchemaSerializationMode.IncludeSchema + ' + 'Frm_v20091231_ResultMon + ' + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.None + Me.ClientSize = New System.Drawing.Size(898, 504) + Me.ControlBox = False + Me.Controls.Add(Me.dv01) + Me.Controls.Add(Me.TabControl1) + Me.Controls.Add(Me.StatusStrip1) + Me.Font = New System.Drawing.Font("나눔고딕", 8.999999!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.Name = "Frm_v20091231_ResultMon" + Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen + Me.Text = "월별에너지요구량" + CType(Me.DSR, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.bs, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.dv01, System.ComponentModel.ISupportInitialize).EndInit() + Me.TabControl1.ResumeLayout(False) + Me.StatusStrip1.ResumeLayout(False) + Me.StatusStrip1.PerformLayout() + CType(Me.bsz, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.DS, System.ComponentModel.ISupportInitialize).EndInit() + Me.ResumeLayout(False) + Me.PerformLayout() + + End Sub + Friend WithEvents DSR As Eco2Ar.DSR + Friend WithEvents bs As System.Windows.Forms.BindingSource + Friend WithEvents dv01 As System.Windows.Forms.DataGridView + 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 TabPage3 As System.Windows.Forms.TabPage + Friend WithEvents TabPage4 As System.Windows.Forms.TabPage + Friend WithEvents TabPage5 As System.Windows.Forms.TabPage + Friend WithEvents TabPage6 As System.Windows.Forms.TabPage + Friend WithEvents TabPage7 As System.Windows.Forms.TabPage + Friend WithEvents TabPage8 As System.Windows.Forms.TabPage + Friend WithEvents TabPage9 As System.Windows.Forms.TabPage + Friend WithEvents TabPage10 As System.Windows.Forms.TabPage + Friend WithEvents TabPage11 As System.Windows.Forms.TabPage + Friend WithEvents TabPage12 As System.Windows.Forms.TabPage + Friend WithEvents bsz As System.Windows.Forms.BindingSource + Friend WithEvents DS As Eco2Ar.DS + Friend WithEvents StatusStrip1 As System.Windows.Forms.StatusStrip + Friend WithEvents lb_msg As System.Windows.Forms.ToolStripStatusLabel + Friend WithEvents Zone As System.Windows.Forms.DataGridViewTextBoxColumn + Friend WithEvents DataGridViewTextBoxColumn3 As System.Windows.Forms.DataGridViewTextBoxColumn + Friend WithEvents DataGridViewTextBoxColumn4 As System.Windows.Forms.DataGridViewTextBoxColumn + Friend WithEvents DataGridViewTextBoxColumn5 As System.Windows.Forms.DataGridViewTextBoxColumn + Friend WithEvents DataGridViewTextBoxColumn6 As System.Windows.Forms.DataGridViewTextBoxColumn + Friend WithEvents DataGridViewTextBoxColumn7 As System.Windows.Forms.DataGridViewTextBoxColumn + Friend WithEvents DataGridViewTextBoxColumn8 As System.Windows.Forms.DataGridViewTextBoxColumn + Friend WithEvents DataGridViewTextBoxColumn9 As System.Windows.Forms.DataGridViewTextBoxColumn + Friend WithEvents DataGridViewTextBoxColumn10 As System.Windows.Forms.DataGridViewTextBoxColumn + Friend WithEvents DataGridViewTextBoxColumn11 As System.Windows.Forms.DataGridViewTextBoxColumn + Friend WithEvents DataGridViewTextBoxColumn12 As System.Windows.Forms.DataGridViewTextBoxColumn + Friend WithEvents DataGridViewTextBoxColumn13 As System.Windows.Forms.DataGridViewTextBoxColumn + Friend WithEvents DataGridViewTextBoxColumn14 As System.Windows.Forms.DataGridViewTextBoxColumn + Friend WithEvents 존 As System.Windows.Forms.DataGridViewTextBoxColumn +End Class diff --git a/ArinWarev1/Forms/v20091231/Frm_v20091231_ResultMon.resx b/ArinWarev1/Forms/v20091231/Frm_v20091231_ResultMon.resx new file mode 100644 index 0000000..5f6ce36 --- /dev/null +++ b/ArinWarev1/Forms/v20091231/Frm_v20091231_ResultMon.resx @@ -0,0 +1,141 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + 109, 17 + + + 184, 17 + + + True + + + True + + + 385, 17 + + + 315, 17 + + + 248, 17 + + \ No newline at end of file diff --git a/ArinWarev1/Forms/v20091231/Frm_v20091231_ResultMon.vb b/ArinWarev1/Forms/v20091231/Frm_v20091231_ResultMon.vb new file mode 100644 index 0000000..cfe05fb --- /dev/null +++ b/ArinWarev1/Forms/v20091231/Frm_v20091231_ResultMon.vb @@ -0,0 +1,66 @@ +Public Class Frm_v20091231_ResultMon + +#Region "data Base 변경여부및 적용방법" + + '''변경된내용을적용한다. + Public Overrides Function AcceptChanged() As Boolean + + Return True + End Function + + '''변경된내용이있다면 취소한다. + Public Overrides Function RejectChanged() As Boolean + + Return True + End Function + + '''데이터에변형이있었는가? + Public Overrides Function HasChanged() As Boolean + Return False + End Function + + + +#End Region + + + + Private Sub Frm_v20091231_Result_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load + Me.bs.DataSource = DSETR + 'BindCmbBox() + End Sub + + ''' + ''' 각 그리드뷰의 1번째(존콤보박스) 데이터소스결정 (디자인타임에서 할당하면 Bs를 모두 생성해야하므로 코드에서 생성) + ''' + ''' + Private Sub BindCmbBox() + Dim bsz01 As New BindingSource(DSET, "tbl_zone") + Dim Col01 As DataGridViewComboBoxColumn = CType(Me.dv01.Columns(0), DataGridViewComboBoxColumn) : Col01.DataSource = bsz01 + End Sub + + Private Sub dv01_CellFormatting(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewCellFormattingEventArgs) Handles dv01.CellFormatting + Dim Code As String = Me.dv01.Rows(e.RowIndex).Cells("존").Value.ToString + If Code = "00" Then + Me.dv01.Rows(e.RowIndex).Cells("Zone").Value = "합계" + Me.dv01.Rows(e.RowIndex).DefaultCellStyle.BackColor = Color.Gainsboro + Else '//각존의 이름을 가져온다. + + Dim Dr As DS.tbl_zoneRow = CType(DSET.tbl_zone.Select("code='" & Code & "'")(0), Eco2Ar.DS.tbl_zoneRow) + Me.dv01.Rows(e.RowIndex).Cells("Zone").Value = Dr.설명 + Me.dv01.Rows(e.RowIndex).DefaultCellStyle.BackColor = Color.White + End If + End Sub + + Private Sub dv01_DataError(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewDataErrorEventArgs) Handles dv01.DataError + + End Sub + + Private Sub TabControl1_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles TabControl1.SelectedIndexChanged + Me.bs.Filter = "월='M" & Format(Me.TabControl1.SelectedIndex + 1, "00") & "'" + End Sub + + Private Sub dv01_CellContentClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles dv01.CellContentClick + + End Sub +End Class \ No newline at end of file diff --git a/ArinWarev1/Forms/v20091231/Frm_v20091231_ResultTotal.Designer.vb b/ArinWarev1/Forms/v20091231/Frm_v20091231_ResultTotal.Designer.vb new file mode 100644 index 0000000..bf820bc --- /dev/null +++ b/ArinWarev1/Forms/v20091231/Frm_v20091231_ResultTotal.Designer.vb @@ -0,0 +1,102 @@ + _ +Partial Class Frm_v20091231_ResultTotal + Inherits CForm + + 'Form은 Dispose를 재정의하여 구성 요소 목록을 정리합니다. + _ + Protected Overrides Sub Dispose(ByVal disposing As Boolean) + Try + If disposing AndAlso components IsNot Nothing Then + components.Dispose() + End If + Finally + MyBase.Dispose(disposing) + End Try + End Sub + + 'Windows Form 디자이너에 필요합니다. + Private components As System.ComponentModel.IContainer + + '참고: 다음 프로시저는 Windows Form 디자이너에 필요합니다. + '수정하려면 Windows Form 디자이너를 사용하십시오. + '코드 편집기를 사용하여 수정하지 마십시오. + _ + Private Sub InitializeComponent() + Me.components = New System.ComponentModel.Container() + Dim ReportDataSource1 As Microsoft.Reporting.WinForms.ReportDataSource = New Microsoft.Reporting.WinForms.ReportDataSource() + Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(Frm_v20091231_ResultTotal)) + Me.bs = New System.Windows.Forms.BindingSource(Me.components) + Me.DSR = New Eco2Ar.DSR() + Me.StatusStrip1 = New System.Windows.Forms.StatusStrip() + Me.lb_msg = New System.Windows.Forms.ToolStripStatusLabel() + Me.ReportViewer1 = New Microsoft.Reporting.WinForms.ReportViewer() + CType(Me.bs, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.DSR, System.ComponentModel.ISupportInitialize).BeginInit() + Me.StatusStrip1.SuspendLayout() + Me.SuspendLayout() + ' + 'bs + ' + Me.bs.DataMember = "TReqUse" + Me.bs.DataSource = Me.DSR + ' + 'DSR + ' + Me.DSR.DataSetName = "DSR" + Me.DSR.SchemaSerializationMode = System.Data.SchemaSerializationMode.IncludeSchema + ' + 'StatusStrip1 + ' + Me.StatusStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.lb_msg}) + Me.StatusStrip1.Location = New System.Drawing.Point(0, 494) + Me.StatusStrip1.Name = "StatusStrip1" + Me.StatusStrip1.Size = New System.Drawing.Size(784, 22) + Me.StatusStrip1.TabIndex = 14 + Me.StatusStrip1.Text = "StatusStrip1" + ' + 'lb_msg + ' + Me.lb_msg.Name = "lb_msg" + Me.lb_msg.Size = New System.Drawing.Size(59, 17) + Me.lb_msg.Text = "<메세지>" + ' + 'ReportViewer1 + ' + Me.ReportViewer1.Dock = System.Windows.Forms.DockStyle.Fill + ReportDataSource1.Name = "DSR_TReqUse" + ReportDataSource1.Value = Me.bs + Me.ReportViewer1.LocalReport.DataSources.Add(ReportDataSource1) + Me.ReportViewer1.LocalReport.ReportEmbeddedResource = "Eco2Ar.Report_total.rdlc" + Me.ReportViewer1.Location = New System.Drawing.Point(0, 0) + Me.ReportViewer1.Name = "ReportViewer1" + Me.ReportViewer1.Size = New System.Drawing.Size(784, 494) + Me.ReportViewer1.TabIndex = 17 + ' + 'Frm_v20091231_ResultTotal + ' + Me.AutoScaleDimensions = New System.Drawing.SizeF(7.0!, 14.0!) + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font + Me.ClientSize = New System.Drawing.Size(784, 516) + Me.ControlBox = False + Me.Controls.Add(Me.ReportViewer1) + Me.Controls.Add(Me.StatusStrip1) + Me.Font = New System.Drawing.Font("나눔고딕 ExtraBold", 8.999999!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon) + Me.Name = "Frm_v20091231_ResultTotal" + Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen + Me.Text = "계산결과(에너지요구량 및 소요량)" + CType(Me.bs, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.DSR, System.ComponentModel.ISupportInitialize).EndInit() + Me.StatusStrip1.ResumeLayout(False) + Me.StatusStrip1.PerformLayout() + Me.ResumeLayout(False) + Me.PerformLayout() + + End Sub + Friend WithEvents StatusStrip1 As System.Windows.Forms.StatusStrip + Friend WithEvents lb_msg As System.Windows.Forms.ToolStripStatusLabel + Friend WithEvents DSR As Eco2Ar.DSR + Friend WithEvents TOTALDataGridViewTextBoxColumn As System.Windows.Forms.DataGridViewTextBoxColumn + Friend WithEvents ReportViewer1 As Microsoft.Reporting.WinForms.ReportViewer + Friend WithEvents bs As System.Windows.Forms.BindingSource +End Class diff --git a/ArinWarev1/Forms/v20091231/Frm_v20091231_ResultTotal.resx b/ArinWarev1/Forms/v20091231/Frm_v20091231_ResultTotal.resx new file mode 100644 index 0000000..bc87b19 --- /dev/null +++ b/ArinWarev1/Forms/v20091231/Frm_v20091231_ResultTotal.resx @@ -0,0 +1,1574 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + 415, 17 + + + 340, 17 + + + 222, 17 + + + + + AAABAAYAICAAAAEACACoCAAAZgAAABAQAAABAAgAaAUAAA4JAACAgAAAAQAgACgIAQB2DgAAMDAAAAEA + IACoJQAAnhYBACAgAAABACAAqBAAAEY8AQAQEAAAAQAgAGgEAADuTAEAKAAAACAAAABAAAAAAQAIAAAA + AAAAAAAAAAAAAAAAAAAAAQAAAAAAAP///wDM//8Amf//AGb//wAz//8AAP//AP/M/wDMzP8Amcz/AGbM + /wAzzP8AAMz/AP+Z/wDMmf8AmZn/AGaZ/wAzmf8AAJn/AP9m/wDMZv8AmWb/AGZm/wAzZv8AAGb/AP8z + /wDMM/8AmTP/AGYz/wAzM/8AADP/AP8A/wDMAP8AmQD/AGYA/wAzAP8AAAD/AP//zADM/8wAmf/MAGb/ + zAAz/8wAAP/MAP/MzADMzMwAmczMAGbMzAAzzMwAAMzMAP+ZzADMmcwAmZnMAGaZzAAzmcwAAJnMAP9m + zADMZswAmWbMAGZmzAAzZswAAGbMAP8zzADMM8wAmTPMAGYzzAAzM8wAADPMAP8AzADMAMwAmQDMAGYA + zAAzAMwAAADMAP//mQDM/5kAmf+ZAGb/mQAz/5kAAP+ZAP/MmQDMzJkAmcyZAGbMmQAzzJkAAMyZAP+Z + mQDMmZkAmZmZAGaZmQAzmZkAAJmZAP9mmQDMZpkAmWaZAGZmmQAzZpkAAGaZAP8zmQDMM5kAmTOZAGYz + mQAzM5kAADOZAP8AmQDMAJkAmQCZAGYAmQAzAJkAAACZAP//ZgDM/2YAmf9mAGb/ZgAz/2YAAP9mAP/M + ZgDMzGYAmcxmAGbMZgAzzGYAAMxmAP+ZZgDMmWYAmZlmAGaZZgAzmWYAAJlmAP9mZgDMZmYAmWZmAGZm + ZgAzZmYAAGZmAP8zZgDMM2YAmTNmAGYzZgAzM2YAADNmAP8AZgDMAGYAmQBmAGYAZgAzAGYAAABmAP// + MwDM/zMAmf8zAGb/MwAz/zMAAP8zAP/MMwDMzDMAmcwzAGbMMwAzzDMAAMwzAP+ZMwDMmTMAmZkzAGaZ + MwAzmTMAAJkzAP9mMwDMZjMAmWYzAGZmMwAzZjMAAGYzAP8zMwDMMzMAmTMzAGYzMwAzMzMAADMzAP8A + MwDMADMAmQAzAGYAMwAzADMAAAAzAP//AADM/wAAmf8AAGb/AAAz/wAAAP8AAP/MAADMzAAAmcwAAGbM + AAAzzAAAAMwAAP+ZAADMmQAAmZkAAGaZAAAzmQAAAJkAAP9mAADMZgAAmWYAAGZmAAAzZgAAAGYAAP8z + AADMMwAAmTMAAGYzAAAzMwAAADMAAP8AAADMAAAAmQAAAGYAAAAzAAAAAADuAAAA3QAAALsAAACqAAAA + iAAAAHcAAABVAAAARAAAACIAAAARAADuAAAA3QAAALsAAACqAAAAiAAAAHcAAABVAAAARAAAACIAAAAR + AADuAAAA3QAAALsAAACqAAAAiAAAAHcAAABVAAAARAAAACIAAAARAAAA7u7uAN3d3QC7u7sAqqqqAIiI + iAB3d3cAVVVVAERERAAiIiIAERERAAAAAAD///////////////////////////////////////////// + //////////////////7+/v/////////////////////////////////+/PgrK/YrK/j8/f////////// + ///////////////++vYA9ff4+Pj39gD2+f3/////////////////////+/b1+KurpKqrq6ysq/j19vv/ + //////////////////n196ukf6usrKysrKysrKsr9fn////////////////5AFakf6qsrKysrKysrKys + rKxWAPn/////////////+/VWf3+rrKysrKysrKysrKysrKxW9fv///////////72K6R/pP3+9PT09PT+ + /f2srKysrKz39v7/////////VvWkf6T9/YJYWFh8pqb9/vT9rKysrKv1Vv////////72VqOrgjQLCwsL + L1JSUlJ8pv30/aysrFb2/v//////+gCr+zQLCwsLCwspdnZ2dlJSUqb9/qysqwD7///////3K6svCwsL + CwsLCyl2dnZ2dnZSUnas/v2s9vj//////vb5WAsFCwsLCwsLBXZ2dnZ2dnZ2UlL8/qz3K//////+APsv + CwsLCwsLCwsFdnZ2dnZ2dnZ2Unys/Vb2//////0ArAsLCwsLCwsLCwtTdnZ2dnZ2dnz7q6v9+fX///// + /gCmKCgLCwsLCwsLC1N2dnZ2dnz7q6ulpaz69f//////9VFMKCgoLwsLCwsLL3Z2fPurq6urq6Wlq1b2 + //////71UVJ2UkwoKCgLCwspdvurq6urq6urpaWr9yv///////VRUnZ2dlJSKCgoLy92dnz7q6urq6ul + pav2+P//////9iZ2UnZ2dnZ2UigoUnZ2dnZ2fKWrq6Wr/AD8///////49XZ2UnZ2dnZ2dlJ2dnZ2dnZ2 + dnylpfz39v/////////1JnZ2dnZ2UykFU3Z2dnZ2dnZ2dnag+ACB//////////oAJlJSLwUFBQtSdnZ2 + dnZ2dnZ2TFEA+v////////////kACwUFCwsLC1JSdnZ2dnZSUlJ2JSv//////////////gALCwsLCwsL + dlJMTFJSUlJ2dnb1+P//////////////9vUJCwsLCwtTdnZ2UihSdnZ2dgD8////////////////+PX1 + CQsLCy92dnZ2dlJMTFJR9f7///////////////////f1AAECCXZ2dnZ2dnZ2Uib2//////////////// + //////+B9/b1JnZ2dnZ2dnYlAPj///////////////////////////kAAAAAAAAAAPaB//////////// + //////////////////r5+fr5+vv//////////////+AD//+AAP//AAB//gAAP/wAAB/4AAAP8AAAB/AA + AAfgAAAD4AAAA8AAAAHAAAABwAAAAYAAAAGAAAABgAAAAYAAAAGAAAABgAAAAYAAAAHAAAABwAAAA8AA + AAPgAAAH8AAAD/AAAA/4AAAP+AAAD/4AAB//gAAf/+AAP//8AH8oAAAAEAAAACAAAAABAAgAAAAAAAAA + AAAAAAAAAAAAAAABAAAAAAAA////AMz//wCZ//8AZv//ADP//wAA//8A/8z/AMzM/wCZzP8AZsz/ADPM + /wAAzP8A/5n/AMyZ/wCZmf8AZpn/ADOZ/wAAmf8A/2b/AMxm/wCZZv8AZmb/ADNm/wAAZv8A/zP/AMwz + /wCZM/8AZjP/ADMz/wAAM/8A/wD/AMwA/wCZAP8AZgD/ADMA/wAAAP8A///MAMz/zACZ/8wAZv/MADP/ + zAAA/8wA/8zMAMzMzACZzMwAZszMADPMzAAAzMwA/5nMAMyZzACZmcwAZpnMADOZzAAAmcwA/2bMAMxm + zACZZswAZmbMADNmzAAAZswA/zPMAMwzzACZM8wAZjPMADMzzAAAM8wA/wDMAMwAzACZAMwAZgDMADMA + zAAAAMwA//+ZAMz/mQCZ/5kAZv+ZADP/mQAA/5kA/8yZAMzMmQCZzJkAZsyZADPMmQAAzJkA/5mZAMyZ + mQCZmZkAZpmZADOZmQAAmZkA/2aZAMxmmQCZZpkAZmaZADNmmQAAZpkA/zOZAMwzmQCZM5kAZjOZADMz + mQAAM5kA/wCZAMwAmQCZAJkAZgCZADMAmQAAAJkA//9mAMz/ZgCZ/2YAZv9mADP/ZgAA/2YA/8xmAMzM + ZgCZzGYAZsxmADPMZgAAzGYA/5lmAMyZZgCZmWYAZplmADOZZgAAmWYA/2ZmAMxmZgCZZmYAZmZmADNm + ZgAAZmYA/zNmAMwzZgCZM2YAZjNmADMzZgAAM2YA/wBmAMwAZgCZAGYAZgBmADMAZgAAAGYA//8zAMz/ + MwCZ/zMAZv8zADP/MwAA/zMA/8wzAMzMMwCZzDMAZswzADPMMwAAzDMA/5kzAMyZMwCZmTMAZpkzADOZ + MwAAmTMA/2YzAMxmMwCZZjMAZmYzADNmMwAAZjMA/zMzAMwzMwCZMzMAZjMzADMzMwAAMzMA/wAzAMwA + MwCZADMAZgAzADMAMwAAADMA//8AAMz/AACZ/wAAZv8AADP/AAAA/wAA/8wAAMzMAACZzAAAZswAADPM + AAAAzAAA/5kAAMyZAACZmQAAZpkAADOZAAAAmQAA/2YAAMxmAACZZgAAZmYAADNmAAAAZgAA/zMAAMwz + AACZMwAAZjMAADMzAAAAMwAA/wAAAMwAAACZAAAAZgAAADMAAAAAAO4AAADdAAAAuwAAAKoAAACIAAAA + dwAAAFUAAABEAAAAIgAAABEAAO4AAADdAAAAuwAAAKoAAACIAAAAdwAAAFUAAABEAAAAIgAAABEAAO4A + AADdAAAAuwAAAKoAAACIAAAAdwAAAFUAAABEAAAAIgAAABEAAADu7u4A3d3dALu7uwCqqqoAiIiIAHd3 + dwBVVVUAREREACIiIgAREREAAAAAAP////////v6+vr9////////////Vvb19isrACv8////////9/ZV + q6ysrKxW9fz/////VvZ5q/7+/f2srFb2/v////VVV1g1UlJ8/f2s9/f///r1LgsLC1N2dlJ8/YH2//8r + LAsLCwsvdnZ2dlKs9f//KywLCwsLL3Z2dnyl/AD//ysmTCgLCy92gqurpYH2///3JlJ2UigvdnaCpaX5 + K///gfVRdnZTUnZ2dnZ79lb////3ASkFC1J2dnZSJvf//////wADCwtSUkxSdvX5//////+B9gACUnZ2 + UkwA/v////////+s9/X29vb19/////////////+B+vr6///////gA/LOwAHgA8ABwAGAAMABgACAAAAA + gAAAAAAAAAAAAAAAAAAAAAAAAAAAAIABAADAAYABwAHAAeADwAH4A+ADKAAAAIAAAAAAAQAAAQAgAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAQAAAAEAAAABAAAAAgAAAAIAAAACAAAAAgAA + AAEAAAABAAAAAQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAEAAAABAAAAAgAAAAMAAAAFAAAABwAA + AAgAAAAKAAAACwAAAA0AAAAPAAAAEAAAABAAAAAPAAAADgAAAAwAAAALAAAACQAAAAcAAAAGAAAABAAA + AAMAAAACAAAAAQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABAAAAAgAA + AAMAAAAGAAAACQAAAA0AAAARAAAAFgAAABwAAAAgAAAAJQAAACkAAAAtAAAAMQAAADUAAAA3AAAANwAA + ADYAAAAzAAAALwAAACsAAAAnAAAAIwAAAB4AAAAZAAAAFAAAAA8AAAAKAAAABwAAAAQAAAACAAAAAQAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAEAAAACAAAABQAAAAkAAAAPAAAAFgAAAB4AAAAnAAAAMAAAADkAAABDAAAASwAA + AFIAAABZAAAAXgAAAGIAAABnAAAAawAAAG0AAABuAAAAbAAAAGkAAABlAAAAYAAAAFwAAABWAAAATwAA + AEYAAAA9AAAANAAAACoAAAAhAAAAFwAAABAAAAAJAAAABQAAAAIAAAABAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAIAAAAFAAAACgAAABEAAAAaAAAAJgAA + ADMAAABAAAAATgAAAFoAAABlAAAAb09PT410c3Oin5+evKqqqcbLysnfysnI38nIx+Dc29rw7ezr/+3s + 6//t7Ov/09LR6MrJyODKycnfy8rJ3p6enb6hoJ+7Y2JimDo5OYIAAABpAAAAXgAAAFEAAABDAAAANAAA + ACcAAAAaAAAAEQAAAAoAAAAFAAAAAgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAQAA + AAMAAAAHAAAADgAAABgAAAAmAAAANgAAAEcAAABYAAAAZzk5OIOEg4Ortra1ztPS0uft7Ov/7ezr/+3s + 6//t7Ov/7ezr/+3s6//t7Ov/7ezr/+3s6//t7Ov/7ezr/+3s6//t7Ov/7ezr/+3s6//t7Ov/7ezr/+3s + 6//t7Ov/7ezr/+Xk4/fBwL/XoKCfu1BPT40AAABpAAAAWQAAAEcAAAA2AAAAJgAAABgAAAANAAAABgAA + AAIAAAABAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAQAAAAMAAAAIAAAAEQAAAB4AAAAvAAAAQwAAAFcAAABpTk5Oj6ur + qsXT0tHn7ezr/+3s6//t7Ov/7ezr/+3s6//t7Ov/7ezr/+3s6//t7Ov/7ezr/+3s6//t7Ov/7ezr/+3s + 6//t7Ov/7ezr/+3s6//t7Ov/7ezr/+3s6//t7Ov/7ezr/+3s6//t7Ov/7ezr/+3s6//t7Ov/7ezr/+Xk + 4/e3trbNdnZ1nwAAAGkAAABXAAAAQgAAAC4AAAAcAAAAEAAAAAgAAAADAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAQAAAAMAAAAIAAAAEQAA + ACAAAAA0AAAASwAAAGE5ODiEn56dvdzb2u/t7Ov/7ezr/+3s6//t7Ov/7ezr/+3s6//t7Ov/7ezr/+3s + 6//t7Ov/7ezr/+3s6//t7Ov/7ezr/+3s6//t7Ov/7ezr/+3s6//t7Ov/7ezr/+3s6//t7Ov/7ezr/+3s + 6//t7Ov/7ezr/+3s6//t7Ov/7ezr/+3s6//t7Ov/7ezr/+3s6//t7Ov/5eTj97i3tsxRUVCLAAAAXwAA + AEgAAAAyAAAAHwAAABAAAAAHAAAAAgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAIAAAAHAAAAEAAAACAAAAA0AAAATAAAAGVjY2KYwMDA1+3s6//t7Ov/7ezr/+3s + 6//t7Ov/7ezr/+3s6//t7Ov/7ezr/+3s6//t7Ov/2NLR/8O4uP+ZhYX/mYWF/29SUv9vUlL/b1JS/08r + K/9FHx//RR8f/0UfH/9aODj/b1JS/29SUv95X17/mYWF/6OSkf/DuLj/7ezr/+3s6//t7Ov/7ezr/+3s + 6//t7Ov/7ezr/+3s6//t7Ov/7ezr/+3s6//LysneiIeHpgAAAGQAAABKAAAAMQAAABwAAAAOAAAABQAA + AAEAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAEAAAAEAAAADQAAABwAAAAyAAAASwAA + AGWHhoao3t3c7u7t7P/t7Oz/7ezs/+3s6//t7Ov/7ezr/+3s6//t7Ov/7ezr/8O4uP+ZhYX/b1JS/08r + K/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0Uf + H/9FHx//RR8f/0UfH/9FHx//ZEVF/4Rra/+un57/4t/e/+3s6//t7Ov/7ezr/+3s6//t7Ov/7ezr/+3s + 6//t7Ov/3dzb7oeHhqYAAABhAAAARQAAACwAAAAYAAAACgAAAAMAAAABAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAACAAAACAAAABUAAAApAAAARQAAAGFjY2OX3t3c7u7t7P/u7ez/7u3s/+7t7P/t7Oz/7ezs/+3s + 7P/i397/rp+e/3lfXv9PKyv/RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0Uf + H/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0Uf + H/9FHx//ZEVF/6OSkf/i397/7ezr/+3s6//t7Ov/7ezr/+3s6//t7Ov/7ezr/97d3O5mZmWTAAAAWgAA + AD4AAAAjAAAAEQAAAAYAAAABAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABAAAABAAAAA0AAAAeAAAAOAAAAFY6OTmCzMvL3u7t + 7P/u7ez/7u3s/+7t7P/u7ez/7u3s/+7t7P/Dubj/hGxr/08rK/9FHx//RR8f/0UfH/9FHx//RR8f/0Uf + H/9FHx//RR8f/1YpJv9oNC3/i0k8/5NOQP+uXkv/rl5L/6VYR/+lWEf/pVhH/4tJPP+CQzj/aDQt/18u + Kv9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/95X17/w7i4/+3s + 6//t7Ov/7ezr/+3s6//t7Ov/7ezr/+3s6//NzMvcPDw8fAAAAE4AAAAwAAAAGAAAAAoAAAADAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAQAA + AAYAAAASAAAAKAAAAEYAAABloqGgu+7t7P/u7ez/7u3s/+7t7P/u7ez/7u3s/+7t7P+un5//ZEVF/0Uf + H/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9oNC3/i0k8/65eS//Rc1r/0XNa/9FzWv+uXkv/i0k8/2g0 + Lf9NJCL/RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0Uf + H/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//Wjg4/66fnv/t7Ov/7ezr/+3s6//t7Ov/7ezr/+3s + 6//l5OP2lpaVrwAAAF0AAAA9AAAAIQAAAA4AAAAEAAAAAQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAIAAAAJAAAAGAAAADIAAABSUlJSidXV1Obu7ez/7u3s/+7t + 7P/u7ez/7u3s/+7t7P+un5//Wjg4/0UfH/9FHx//RR8f/0UfH/9FHx//TSQi/3k+Nf+lWEf/0XNa/9Fz + Wv/Rc1r/yG1W/5xTQ/9wOTH/RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0Uf + H/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0Uf + H/9FHx//RR8f/1o4OP+un57/7ezr/+3s6//t7Ov/7ezr/+3s6//t7Ov/zczL3D49PXkAAABIAAAAKQAA + ABIAAAAGAAAAAQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAADAAAACwAA + AB0AAAA6AAAAXZaVlbDu7ez/7u3s/+7t7P/u7ez/7u3s/+7t7P/Dubj/ZEVF/0UfH/9FHx//RR8f/0Uf + H/9FHx//cDkx/6VYR//Rc1r/0XNa/9FzWv/Rc1r/rl5L/3k+Nf9FHx//RR8f/0UfH/9FHx//RR8f/0Uf + H/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0Uf + H/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9kRUX/w7i4/+3s + 6//t7Ov/7ezr/+3s6//t7Ov/5eTj9np5eZoAAABSAAAAMAAAABYAAAAHAAAAAQAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAwAAAAwAAAAhAAAAQSIiIm25uLfM7u3s/+7t7P/u7ez/7u3s/+7t + 7P/j4N//eV9f/0UfH/9FHx//RR8f/0UfH/9NJCL/gkM4/79oUv/Rc1r/0XNa/9FzWv/Rc1r/nFND/1Yp + Jv9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0Uf + H/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0Uf + H/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//jnh4/+Lf3v/t7Ov/7ezr/+3s6//t7Ov/7ezr/7Gw + r8AAAABZAAAANgAAABkAAAAIAAAAAgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAQAAAAOAAAAJAAA + AEYhICBy1tXV5e7t7P/u7ez/7u3s/+7t7P/u7ez/uayr/08rK/9FHx//RR8f/0UfH/9NJCL/i0k8/8ht + Vv/Rc1r/0XNa/9FzWv/Rc1r/nFND/1YpJv9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0Uf + H/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0Uf + H/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0Uf + H/9FHx//Tysr/8O4uP/t7Ov/7ezr/+3s6//t7Ov/7ezr/87NzNskJCRnAAAAOQAAABoAAAAJAAAAAgAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAADAAAADwAAACcAAABKVFRUhubl5fbu7e3/7u3s/+7t7P/u7ez/4+Df/3lf + X/9FHx//RR8f/0UfH/9FHx//i0k8/8htVv/Rc1r/0XNa/9FzWv/Rc1r/pVhH/1YpJv9FHx//RR8f/0Uf + H/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0Uf + H/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0Uf + H/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/454eP/t7Ov/7ezr/+3s + 6//t7Ov/7ezr/9bV1eQjIyNpAAAAOgAAABoAAAAJAAAAAgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAwAAAA0AAAAmAAAAS1JS + Uonm5eX27u3t/+7t7f/u7e3/7u3t/87Gxv9kRUX/RR8f/0UfH/9FHx//cDkx/79oUv/Rc1r/0XNa/9Fz + Wv/Rc1r/v2hS/2g0Lf9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0Uf + H/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0Uf + H/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0Uf + H/9FHx//RR8f/0UfH/9FHx//RR8f/2RFRf/i397/7ezr/+3s6//t7Ov/7ezr/97e3e1cW1t7AAAAOgAA + ABoAAAAJAAAAAQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAIAAAAMAAAAIwAAAEhTU1OI5+bl9u7t7f/u7e3/7u3t/+7t7f+5rKz/Tysr/0Uf + H/9FHx//TSQi/6VYR//Rc1r/0XNa/9FzWv/Rc1r/0XNa/4tJPP9NJCL/RR8f/0UfH/9FHx//RR8f/0Uf + H/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0Uf + H/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0Uf + H/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/08r + K//NxcT/7ezr/+3s6//t7Ov/7ezr/+bl5PVcW1t6AAAAOgAAABoAAAAIAAAAAQAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACAAAACgAAAB8AAABDVlVVhOfm + 5fbv7u3/7+7t/+7t7f/u7e3/rp+f/0UfH/9FHx//RR8f/3A5Mf/IbVb/0XNa/9FzWv/Rc1r/0XNa/79o + Uv9fLir/RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0Uf + H/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0Uf + H/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0Uf + H/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/08rK/+un57/7ezr/+3s6//t7Ov/7ezr/+bl + 5PVCQkFxAAAAOAAAABgAAAAGAAAAAQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAQAAAAcAAAAbAAAAPj8+Pnjn5uX27+7t/+/u7f/v7u3/7+7t/6+gn/9FHx//RR8f/0Uf + H/+cU0P/0XNa/9FzWv/Rc1r/0XNa/9FzWv+2Y07/TSQi/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0Uf + H/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0Uf + H/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0Uf + H/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0Uf + H/9FHx//RR8f/0UfH/+un57/7ezr/+3s6//t7Ov/7ezr/9fW1eQlJSVlAAAAMgAAABMAAAAFAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAFAAAAFQAAADYjIyNq19fW5e/u + 7f/v7u3/7+7t/+/u7f+voJ//RR8f/0UfH/9NJCL/tmNO/9FzWv/Rc1r/0XNa/9FzWv/Rc1r/tmNO/00k + Iv9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0Uf + H/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0Uf + H/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0Uf + H/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/+un57/7ezr/+3s + 6//t7Ov/7ezr/9jX1uMoKCddAAAAKwAAAA8AAAADAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAwAAABAAAAAtAAAAWNDPztvv7u3/7+7t/+/u7f/v7u3/r6Cf/0UfH/9FHx//Xy4q/79o + Uv/Rc1r/0XNa/9FzWv/Rc1r/0XNa/79oUv9NJCL/RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0Uf + H/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0Uf + H/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0Uf + H/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0Uf + H/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/+un57/7ezr/+3s6//t7Ov/7ezr/769vMYAAABLAAAAIwAA + AAsAAAACAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAEAAAAKAAAAIwAAAEynpqa27+7t/+/u + 7f/v7u3/7+7t/6+gn/9FHx//RR8f/18uKv/IbVb/0XNa/9FzWv/Rc1r/0XNa/9FzWv/Rc1r/Xy4q/0Uf + H/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0Uf + H/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0Uf + H/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0Uf + H/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0Uf + H//DuLj/7ezr/+3s6//t7Ov/7ezr/56dnKcAAABBAAAAGwAAAAcAAAABAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAABAAAABgAAABkAAAA/bGtrjO/u7f/v7u3/7+7t/+/u7f/Px8b/Tysr/0UfH/9fLir/yG1W/9Fz + Wv/Rc1r/0XNa/9FzWv/Rc1r/0XNa/4JDOP9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0Uf + H/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0Uf + H/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0Uf + H/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0Uf + H/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/08rK//NxcT/7ezr/+3s6//t7Ov/7ezr/1xb + W3sAAAA0AAAAEwAAAAQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAMAAAARAAAAMCUkJGbo5+b27+7t/+/u + 7f/v7u3/5OHg/08rK/9FHx//TSQi/7ZjTv/Rc1r/0XNa/9FzWv/Rc1r/0XNa/9FzWv+uXkv/RR8f/0Uf + H/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0Uf + H/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0Uf + H/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0Uf + H/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0Uf + H/9FHx//RR8f/2RFRf/i397/7ezr/+3s6//t7Ov/397e7CkoKFsAAAAnAAAADAAAAAIAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAABAAAACgAAACMAAABOyMfH0O/u7f/v7u3/7+7t/+/u7f9vUlL/RR8f/0UfH/+2Y07/0XNa/9Fz + Wv/Rc1r/0XNa/9FzWv/Rc1r/0XNa/18uKv9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0Uf + H/8zFxf/LxUV/yIPD/8iDw//EQcH/xEHB/8RBwf/EQcH/xEHB/8RBwf/EQcH/xEHB/8RBwf/EQcH/xEH + B/8ZCwv/Ig8P/yIPD/8zFxf/OBkZ/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0Uf + H/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0Uf + H/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/3lfXv/t7Ov/7ezr/+3s + 6//t7Ov/trW0ugAAAEIAAAAaAAAABgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAUAAAAWAAAAPICAgJTv7u7/7+7u/+/u + 7v/v7u3/moaG/0UfH/9FHx//k05A/9FzWv/Rc1r/0XNa/9FzWv/Rc1r/0XNa/9FzWv+cU0P/RR8f/0Uf + H/9FHx//RR8f/0UfH/8zFxf/Ig8P/xUJCf8IAwP/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAA + AP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wwF + Bf8VCQn/Ig8P/zMXF/9AHR3/RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0Uf + H/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0Uf + H/9FHx//RR8f/0UfH/9FHx//RR8f/6OSkf/t7Ov/7ezr/+3s6//t7Ov/c3NyggAAADEAAAAQAAAAAwAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAACAAAADAAAAConJydg4ODg7e/u7v/v7u7/7+7u/8/Hx/9FHx//RR8f/3A5Mf/Rc1r/0XNa/9Fz + Wv/Rc1r/0XNa/9FzWv/Rc1r/0XNa/1YpJv9FHx//PBsb/yYREf8VCQn/AAAA/wAAAP8AAAD/AAAA/wAA + AP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAA + AP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8MBQX/Hg0N/y8V + Ff9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0Uf + H/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//Tysr/9jS + 0f/t7Ov/7ezr/+3s6//g397rAAAASwAAACAAAAAIAAAAAQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAYAAAAaAAAAQ6qpqbLv7u7/7+7u/+/u + 7v/v7u7/ZEVF/0UfH/9NJCL/yG1W/9FzWv/Rc1r/0XNa/9FzWv/Rc1r/0XNa/9FzWv+gVkX/KxMT/wwF + Bf8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/FxMO/xcTDv8jHBX/LyYd/y8m + Hf8vJh3/LyYd/y8mHf8vJh3/LyYd/y8mHf8vJh3/HRcS/xcTDv8XEw7/AAAA/wAAAP8AAAD/AAAA/wAA + AP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8VCQn/KxMT/0AdHf9FHx//RR8f/0Uf + H/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0Uf + H/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//b1JS/+3s6//t7Ov/7ezr/+3s6/+urq2sAAAANwAA + ABMAAAAEAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAACAAAADgAAAC5ERERu6Ofn9u/u7v/v7u7/7+7u/6STk/9FHx//RR8f/6VYR//Rc1r/0XNa/9Fz + Wv/Rc1r/0XNa/9FzWv/OcFf/rltD/yUTDv8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8XEw7/KSEZ/zov + JP9GOSv/Xkw6/15MOv9eTDr/Xkw6/15MOv9eTDr/Xkw6/15MOv9eTDr/Xkw6/15MOv9eTDr/Xkw6/15M + Ov9eTDr/Xkw6/15MOv9eTDr/Xkw6/0Y5K/9ANCf/LyYd/x0XEv8LCQf/AAAA/wAAAP8AAAD/AAAA/wAA + AP8AAAD/AAAA/wAAAP8AAAD/AAAA/xUJCf8vFRX/RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0Uf + H/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0Uf + H/9FHx//rp+e/+3s6//t7Ov/7ezr/+bl5PUpKSlaAAAAJAAAAAkAAAABAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAYAAAAbAAAARsC/v8bv7u7/7+7u/+/u + 7v/k4eH/Tysr/0UfH/9wOTH/0XNa/9FzWv/Rc1r/0XNa/9FzWv/OcFf/olU//zweFP8AAAD/AAAA/wAA + AP8AAAD/EQ4K/y8mHf9GOSv/Xkw6/15MOv9eTDr/Xkw6/15MOv9eTDr/Xkw6/1hURv9GbWv/Rm1r/zSG + kP8vj5z/L4+c/y+PnP8vj5z/L4+c/ymnqP8iw5H/QI5T/0COU/9PbUb/T21G/09tRv9eTDr/Xkw6/15M + Ov9eTDr/Xkw6/15MOv9YRzb/Rjkr/y8mHf8XEw7/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAA + AP8IAwP/Ig8P/zwbG/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0Uf + H/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9PKyv/4t/e/+3s6//t7Ov/7ezr/62s + q64AAAA5AAAAEwAAAAMAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAACAAAADQAAAC1ERENv7+7u/+/u7v/v7u7/7+7u/495ef9FHx//TSQi/79oUv/Rc1r/0XNa/9Fz + Wv/PcVj/rltD/0gkGf8AAAD/AAAA/wAAAP8RDgr/NCog/1JCMv9eTDr/Xkw6/15MOv9eTDr/Xkw6/0xl + Xv80hpD/I5+1/xewzf8A0v//ANL//wDS//8A0v//ANL//wDS//8A0v//ANL//wDS//8A0v//Cera/yLQ + bf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8lx2n/Ma9g/zieWf9DhVD/T21G/15MOv9eTDr/Xkw6/15M + Ov9YRzb/QDQn/yMcFf8LCQf/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/xkLC/88Gxv/RR8f/0Uf + H/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0Uf + H/9FHx//RR8f/0UfH/+ZhYX/7ezr/+3s6//t7Ov/5uXk9SoqKlgAAAAhAAAACAAAAAEAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAUAAAAZAAAAQsHAwMXw7+7/8O/u/+/u + 7v/Z1NT/RR8f/0UfH/+LSTz/0XNa/9FzWv/Rc1r/yWpP/203J/8MBgT/AAAA/wUEA/8jHBX/UkIy/15M + Ov9eTDr/Xkw6/15MOv9SXFL/On6D/x2owf8FyfL/ANL//wDS//8A0v//ANL//wDS//8A0v//ANL//wDS + //8A0v//ANL//wDS//8A0v//ANL//wDW//8R5bv/I9iC/yPYgv8j2IL/I9iC/yLWfP8i0G3/ItBt/yLQ + bf8i0G3/ItBt/yLQbf8i0G3/ItBt/y23Y/88llb/S3VJ/1pUPf9eTDr/Xkw6/15MOv9MPS//KSEZ/wUE + A/8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8VCQn/PBsb/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0Uf + H/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/08rK//i397/7ezr/+3s + 6//t7Ov/r6+uqwAAADMAAAAQAAAAAgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAABAAAACwAAAChHR0dq8O/u//Dv7v/w7+7/8O/u/4VtbP9FHx//TSQi/8htVv/Rc1r/z3FY/6BS + PP8kEgz/AAAA/wUEA/8vJh3/WEc2/15MOv9eTDr/Xkw6/1hURv86foP/F7DN/wDS//8A0v//ANL//wDS + //8A0v//ANL//wDS//8A0v//ANL//wDS//8A0v//ANL//wDS//8A0v//ANL//wDS//8A0v//AN3//wrz + 6v8l6Kz/J/DB/yfwwf8n8MH/J/DB/yfwwf8n8MH/Juqx/yXorP8k4pz/JN6R/yPYgv8i0G3/ItBt/yLQ + bf8i0G3/ItBt/zSmXf9DhVD/VlxA/15MOv9eTDr/Xkw6/0A0J/8dFxL/AAAA/wAAAP8AAAD/AAAA/wAA + AP8AAAD/GQsL/zwbG/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0Uf + H/9FHx//RR8f/0UfH/9FHx//RR8f/5mFhf/t7Ov/7ezr/+3s6//n5uX1Li4tUQAAABwAAAAGAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAMAAAAUAAAAO62srLDw7+7/8O/u//Dv + 7v/a1dT/RR8f/0UfH/+LSTz/0XNa/81vVf95PSv/DAYE/wAAAP8jHBX/WEc2/15MOv9eTDr/Xkw6/1Jc + Uv8jn7X/Bcny/wDS//8A0v//ANL//wDS//8A0v//ANL//wDS//8A0v//ANL//wDS//8A0v//ANL//wDS + //8A0v//ANL//wDS//8A0v//ANL//wDS//8A5v//Ce3a/yLQbf8i0G3/ItBt/yLQbf8i0nL/I9iC/yPY + gv8k4Jf/JOKc/yXorP8m7rv/J/DB/yfwwf8m6rH/JOKc/yPah/8i0nL/ItBt/yLQbf8i0G3/Ma9g/0d9 + Tf9aVD3/Xkw6/15MOv9SQjL/LyYd/wUEA/8AAAD/AAAA/wAAAP8AAAD/BAEB/yIPD/9AHR3/RR8f/0Uf + H/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//Tysr/+Lf + 3v/t7Ov/7ezr/+3s6/+ZmJiTAAAAKwAAAAwAAAABAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAACAAAACEAAABQ6ejn9fDv7v/w7+7/8O/u/496ef9FHx//TSQi/8htVv/Ka1H/YDAh/wAA + AP8RDgr/Rjkr/15MOv9eTDr/Xkw6/1JcUv8jn7X/ANL//wDS//8A0v//ANL//wDS//8A0v//ANL//wDS + //8A0v//ANL//wDS//8A0v//ANL//wDS//8A0v//ANL//wDS//8A0v//ANL//wDS//8A0v//ANL//wDt + //8B9///ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0nL/I9iC/yTg + l/8l6Kz/J/DB/yfwwf8m6rH/JN6R/yLUd/8i0G3/ItBt/yXHaf84nln/VlxA/15MOv9eTDr/WEc2/y8m + Hf8LCQf/AAAA/wAAAP8AAAD/AAAA/wgDA/8zFxf/RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0Uf + H/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//o5KR/+3s6//t7Ov/7ezr/9rZ2OAAAAA9AAAAFQAA + AAMAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAIAAAAOAAAAMZaWlZjw7+7/8O/u//Dv + 7v/l4uH/Tywr/0UfH/+LSTz/ymtR/0gkGf8AAAD/KSEZ/1hHNv9eTDr/Xkw6/1hURv8vj5z/ANL//wDS + //8A0v//ANL//wDS//8A0v//ANL//wDS//8A0v//ANL//wDS//8A0v//ANL//wDS//8A0v//ANL//wDS + //8A0v//ANL//wDS//8A0v//ANL//wDS//8A0v//Aff//wH3//8f0nb/ItBt/yLQbf8i0G3/ItBt/yLQ + bf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/I9qH/yTinP8m7Lb/J/DB/ybq + sf8k3pH/ItJy/yLQbf8i0G3/Ma9g/09tRv9eTDr/Xkw6/15MOv8vJh3/BQQD/wAAAP8AAAD/AAAA/wAA + AP8eDQ3/QB0d/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0Uf + H/9aODj/7ezr/+3s6//t7Ov/7ezr/2hnZ2wAAAAgAAAABwAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAABAAAABgAAABDy8rKz/Dv7v/w7+7/8O/u/6+hoP9FHx//RR8f/7lhSv9UKh3/AAAA/zov + JP9eTDr/Xkw6/15MOv9GbWv/C8Hm/wDS//8A0v//ANL//wDS//8A0v//ANL//wDS//8A0v//ANL//wDS + //8A0v//ANL//wDS//8A0v//ANL//wDS//8A0v//ANL//wDS//8A0v//ANL//wDS//8A0v//ANL//wDY + //8B9///Aff//xnZkf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQ + bf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i1nz/JOKc/ybuu/8n8MH/JeSh/yPYgv8i0G3/ItBt/zGv + YP9PbUb/Xkw6/15MOv9YRzb/LyYd/wAAAP8AAAD/AAAA/wAAAP8MBQX/OBkZ/0UfH/9FHx//RR8f/0Uf + H/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH//DuLj/7ezr/+3s6//t7Ov/vby7swAA + AC4AAAAMAAAAAQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAIAAAAJEpJSWfw7+//8O/u//Dv + 7v/w7+7/ZUZF/0UfH/9vNiz/hEIu/wUEA/9MPS//Xkw6/15MOv9eTDr/KZeo/wDS//8A0v//ANL//wDS + //8A0v//ANL//wDS//8A0v//ANL//wDS//8A0v//ANL//wDS//8A0v//ANL//wDS//8A0v//ANL//wDS + //8A0v//ANL//wDS//8A0v//ANL//wDS//8A0v//AN///wH3//8B9///Fd6j/yLQbf8i0G3/ItBt/yLQ + bf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQ + bf8i0G3/ItBt/yPcjP8l6Kz/J/DB/yXorP8j2of/ItBt/yLQbf8xr2D/UmRD/15MOv9eTDr/UkIy/xcT + Dv8AAAD/AAAA/wAAAP8AAAD/KxMT/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0Uf + H/9FHx//RR8f/4Rra//t7Ov/7ezr/+3s6//h4N/qAAAAPAAAABMAAAADAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAgAAAA4AAAAypKOjovDv7//w7+//8O/v/9rV1P9FHx//OBkZ/3A3J/8RCgf/TD0v/15M + Ov9eTDr/WFRG/xG42v8A0v//ANL//wDS//8A0v//ANL//wDS//8A0v//ANL//wDS//8A0v//ANL//wDS + //8A0v//ANL//wDS//8A0v//ANL//wDS//8A0v//ANL//wDS//8A0v//ANL//wDb//8A2///ANv//wDb + //8A6f//Aff//wH3//8R47b/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQ + bf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8j2IL/Jeis/yfw + wf8m6rH/I9iC/yLQbf8i0G3/PJZW/1pUPf9eTDr/Xkw6/0A0J/8FBAP/AAAA/wAAAP8AAAD/GQsL/0Uf + H/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//Tysr/+3s6//t7Ov/7ezr/+3s + 6/9sbGtoAAAAHAAAAAUAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAEAAAAFgAAAEHc29vh8O/v//Dv + 7//w7+//moeH/0AdHf8UCQj/SCQZ/0w9L/9eTDr/Xkw6/0xlXv8RuNr/ANL//wDS//8A0v//ANL//wDS + //8A0v//ANL//wDS//8A0v//ANL//wDS//8A0v//ANL//wDS//8A2///AN///wDk//8A6f//AO3//wDt + //8B9///Aff//wH3//8B9///Aff//wH3//8B9///Aff//wH3//8B9///Aff//w3oyP8i0G3/ItBt/yLQ + bf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQ + bf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/I9iC/yXorP8n8MH/Jeis/yLUd/8i0G3/Jcdp/0t1 + Sf9eTDr/Xkw6/1hHNv8XEw7/AAAA/wAAAP8AAAD/EQcH/0AdHf9FHx//RR8f/0UfH/9FHx//RR8f/0Uf + H/9FHx//RR8f/0UfH/9FHx//w7i4/+3s6//t7Ov/7ezr/6qpqZsAAAAmAAAACQAAAAEAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAcAAAAgKioqWvDv7//w7+//8O/v//Dv7/9lRkb/Hg0N/wAAAP86LyT/Xkw6/15M + Ov9SXFL/Bcny/wDS//8A0v//ANL//wDS//8A0v//ANL//wDS//8A0v//ANL//wDS//8A2P//AOL//wDr + //8A8v//Aff//wD0//8A7f//AOn//wDk//8A4v//ANv//wDb//8A2///ANb//wDS//8A0v//ANL//wDb + //8A2///AOn//wH3//8B9///Ce3a/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQ + bf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQ + bf8i0G3/ItBt/yPYgv8m7Lb/J/DB/yTgl/8i0G3/ItBt/zieWf9aVD3/Xkw6/15MOv80KiD/AAAA/wAA + AP8AAAD/DAUF/0AdHf9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/+OeHj/7ezr/+3s + 6//t7Ov/1dTU0wAAADIAAAAOAAAAAgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABAAAACwAAACyZmZmV8O/v//Dv + 7//w7+//2tXV/zgZGf8AAAD/HRcS/15MOv9eTDr/WFRG/xG42v8A0v//ANL//wDS//8A0v//ANL//wDS + //8A0v//ANL//wDd//8A6f//APL//wD0//8A6///AOT//wDb//8A1P//ANL//wDS//8A0v//ANL//wDS + //8A0v//ANL//wDS//8A0v//ANL//wDS//8A0v//ANL//wDS//8A3///Aff//wH3//8D9PX/ItBt/yLQ + bf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQ + bf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8k3pH/Ju67/ybq + sf8i1nz/ItBt/ym/Zv9SZEP/Xkw6/15MOv9GOSv/BQQD/wAAAP8AAAD/DAUF/0AdHf9FHx//RR8f/0Uf + H/9FHx//RR8f/0UfH/9FHx//RR8f/2RFRf/t7Ov/7ezr/+3s6//t7Ov/AAAAPQAAABQAAAADAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAIAAAARAAAAOMTExMLw7+//8O/v//Dv7/+llJT/EQcH/wUEA/9YRzb/Xkw6/15M + Ov8XsM3/ANL//wDS//8A0v//ANL//wDS//8A0v//ANT//wDk//8A8v//APL//wDm//8A2P//ANL//wDS + //8A0v//ANL//wDS//8A0v//ANL//wDS//8A0v//ANL//wDS//8A0v//ANL//wDS//8A0v//ANL//wDS + //8A0v//ANL//wDb//8B9///Aff//wH3//8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQ + bf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQ + bf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i1Hf/Jeam/yfwwf8k3pH/ItBt/yXHaf9HfU3/Xkw6/15M + Ov9SQjL/EQ4K/wAAAP8AAAD/DAUF/0AdHf9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/+Lf + 3v/t7Ov/7ezr/+3s6/9ubW1mAAAAGgAAAAQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABAAAABgAAABF4+Li6/Dv + 7//w7+//8O/v/2lYWP8AAAD/LyYd/15MOv9eTDr/L4+c/wDS//8A0v//ANL//wDS//8A0v//ANT//wDm + //8A9P//AOn//wDY//8A0v//ANL//wDS//8A0v//ANL//wDS//8A0v//ANL//wDS//8A0v//ANL//wDS + //8A0v//ANL//wDS//8A0v//ANL//wDS//8A0v//ANL//wDS//8A0v//ANL//wH3//8B9///Aff//xnZ + kf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQ + bf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQ + bf8i0G3/JN6R/ybuu/8l5KH/ItJy/yLQbf88llb/Xkw6/15MOv9YRzb/EQ4K/wAAAP8AAAD/DAUF/0Uf + H/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//w7i4/+3s6//t7Ov/7ezr/66urZcAAAAhAAAABwAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAHAAAAIUxLS2Tw7+//8O/v//Dv7//w7+//JBgY/wUEA/9eTDr/Xkw6/0xl + Xv8A0v//ANL//wDS//8A0v//ANL//wDi//8A9P//AOT//wDU//8A0v//ANL//wDS//8A0v//ANL//wDS + //8A0v//ANL//wDS//8A0v//ANL//wDS//8A0v//ANL//wDS//8A0v//ANL//wDS//8A0v//ANL//wDS + //8A0v//ANL//wDS//8A0v//APD//wH3//8B9///GdmR/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQ + bf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQ + bf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItZ8/ybqsf8m6rH/ItJy/yLQ + bf84nln/Xkw6/15MOv9YRzb/EQ4K/wAAAP8AAAD/GQsL/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0Uf + H/+ZhYX/7ezr/+3s6//t7Ov/wL++sAAAACcAAAAJAAAAAQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAQAAAAsAAAArmpmZlPDv + 7//w7+//8O/v/8vGxv8AAAD/LyYd/15MOv9eTDr/F7DN/wDS//8A0v//ANL//wDW//8A8P//AOv//wDW + //8A0v//ANL//wDS//8A0v//ANL//wDS//8A0v//ANL//wDS//8A0v//ANL//wDS//8A0v//ANL//wDS + //8A0v//ANL//wDS//8A0v//ANL//wDS//8A0v//ANL//wDS//8A0v//ANL//wDS//8A6f//Aff//wH3 + //8R47b/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQ + bf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQ + bf8i0G3/ItBt/yLQbf8i0G3/ItJy/yXkof8m7Lb/ItZ8/yLQbf84nln/Xkw6/15MOv9YRzb/EQ4K/wAA + AP8AAAD/JhER/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/4Rra//t7Ov/7ezr/+3s6//X1tXSAAAALgAA + AAwAAAABAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAACAAAAEAAAADXGxcTB8O/v//Dv7//w7+//i4iI/wAAAP9SQjL/Xkw6/0ht + Yv8A0v//ANL//wDS//8A3f//APL//wDd//8A0v//ANL//wDS//8A0v//ANL//wDS//8A0v//ANL//wDS + //8A0v//ANL//wDS//8A0v//ANL//wDS//8A0v//ANL//wDS//8A0v//ANL//wDS//8A0v//ANL//wDS + //8A0v//ANL//wDS//8A0v//ANL//wDi//8B9///Aff//w/lv/8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQ + bf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQ + bf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yTi + nP8m7rv/ItZ8/yLQbf84nln/Xkw6/15MOv9YRzb/EQ4K/wAAAP8AAAD/OBkZ/0UfH/9FHx//RR8f/0Uf + H/9FHx//b1JS/+3s6//t7Ov/7ezr/+fm5vQAAAA0AAAADwAAAAIAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAMAAAAVAAAAQOTj + 4uvw7+//8O/v//Dv7/9LSkr/EQ4K/15MOv9eTDr/I6em/wDS//8A0v//AN///wDw//8A1P//ANL//wDS + //8A0v//ANL//wDS//8A0v//ANL//wDS//8A0v//ANL//wDS//8A0v//ANL//wDS//8A0v//ANL//wDS + //8A0v//ANL//wDS//8A0v//ANL//wDS//8A0v//ANL//wDS//8A0v//ANL//wDS//8A0v//ANv//wH3 + //8B9///Ce3a/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQ + bf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQ + bf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yPcjP8m7rv/ItR3/yLQbf84nln/Xkw6/15M + Ov9YRzb/BQQD/wAAAP8IAwP/QB0d/0UfH/9FHx//RR8f/0UfH/9FHx//7ezr/+3s6//t7Ov/7ezr/wAA + ADoAAAARAAAAAgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAABAAAABoAAABI8fDv//Hw7//x8O//8O/v/w8ODv8pIRn/Xkw6/1Zc + QP8K0dH/ANL//wDf//8A6f//ANL//wDS//8A0v//ANL//wDS//8A0v//ANL//wDS//8A0v//ANL//wDS + //8A0v//ANL//wDS//8A0v//ANL//wDS//8A0v//ANL//wDS//8A0v//ANL//wDS//8A0v//ANL//wDS + //8A0v//ANL//wDS//8A0v//ANL//wDS//8A0v//Aff//wH3//8F8uz/ItBt/yLQbf8i0G3/ItBt/yLQ + bf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQ + bf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQ + bf8i0G3/ItBt/yPcjP8m6rH/ItJy/yLQbf9PbUb/Xkw6/15MOv9MPS//AAAA/wAAAP8eDQ3/RR8f/0Uf + H/9FHx//RR8f/0UfH//t7Ov/7ezr/+3s6//t7Ov/dnZ1XwAAABQAAAADAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAGAAAAHoKC + gXXx8O//8fDv//Hw7//h4eD/AAAA/zovJP9eTDr/Q4VQ/wTR7P8A3///AOn//wDS//8A0v//ANL//wDS + //8A0v//ANL//wDS//8A0v//ANL//wDS//8A0v//ANL//wDS//8A0v//ANL//wDS//8A0v//ANL//wDS + //8A0v//ANL//wDS//8A0v//ANL//wDS//8A0v//ANL//wDS//8A0v//ANL//wDS//8A0v//ANL//wDS + //8A8P//Aff//wH3//8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQ + bf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQ + bf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yTinP8l6Kz/ItBt/1pU + Pf9eTDr/Xkw6/15MOv80KiD/AAAA/wAAAP84GRn/RR8f/0UfH/9FHx//RR8f/83FxP/t7Ov/7ezr/+3s + 6/+KioltAAAAFgAAAAMAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAYAAAAgk5KSgvHw7//x8O//8fDv/7S0s/8AAAD/Rjkr/15M + Ov8ur2n/ANj//wDm//8A0v//ANL//wDS//8A0v//ANL//wDS//8A0v//ANL//wDS//8A0v//ANL//wDS + //8A0v//ANL//wDS//8A0v//ANL//wDS//8A0v//ANL//wDS//8A0v//ANL//wDS//8A0v//ANL//wDS + //8A0v//ANL//wDS//8A0v//ANL//wDS//8A0v//ANL//wDp//8B9///Aff//x3Uf/8i0G3/ItBt/yLQ + bf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQ + bf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQ + bf8i0G3/ItBt/yLQbf8i0G3/ItBt/zDJkv9Hf1L/Xkw6/15MOv9eTDr/Xkw6/15MOv8XEw7/AAAA/xEH + B/9FHx//RR8f/0UfH/9FHx//w7i4/+3s6//t7Ov/7ezr/4mIiG4AAAAXAAAABAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABwAA + ACC9vLyi8fDv//Hw7//x8O//paWk/wAAAP9MPS//Xkw6/xnQkf8A6f//ANL//wDS//8A0v//ANL//wDS + //8A0v//ANL//wDS//8A0v//ANL//wDS//8A0v//ANL//wDS//8A0v//ANL//wDS//8A0v//ANL//wDS + //8A0v//ANL//wDS//8A0v//ANL//wDS//8A0v//ANL//wDS//8A0v//ANL//wDS//8A0v//ANL//wDS + //8A0v//AOL//wH3//8B9///GdmR/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQ + bf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQ + bf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/Jcdp/zyWVv9WXED/Xkw6/15M + Ov9eTDr/Xkw6/15MOv9eTDr/Xkw6/1JCMv8FBAP/AAAA/zMXF/9FHx//RR8f/0UfH//Dubj/7ezs/+3s + 6//t7Ov/qqmphAAAABcAAAAEAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAHAAAAIb28vKLx8PD/8fDv//Hw7/94eHf/AAAA/15M + Ov9SZEP/Edy2/wDW//8A0v//ANL//wDS//8A0v//ANL//wDS//8A0v//ANL//wDS//8A0v//ANL//wDS + //8A0v//ANL//wDS//8A0v//ANL//wDS//8A0v//ANL//wDS//8A0v//ANL//wDS//8A0v//ANL//wDS + //8A0v//ANL//wDS//8A0v//ANL//wDS//8A0v//ANL//wDS//8A2///Aff//wH3//8T4az/ItBt/yLQ + bf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQ + bf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQ + bf8i0G3/Ma9g/0d9Tf9eTDr/Xkw6/15MOv9eTDr/Xkw6/15MOv9eTDr/Xkw6/15MOv9eTDr/Xkw6/y8m + Hf8AAAD/EQcH/0UfH/9FHx//RR8f/8O5uP/t7Oz/7ezs/+3s7P/CwcGbAAAAFwAAAAQAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAcAAAAgvby8ovHw8P/x8PD/8fDw/3h4d/8AAAD/Xkw6/0d9Tf8g1oX/E+Hg/wTV9/8A0v//ANL//wDS + //8A0v//ANL//wDS//8A0v//ANL//wDS//8A0v//ANL//wDS//8A0v//ANL//wDS//8A0v//ANL//wDS + //8A0v//ANL//wDS//8A0v//ANL//wDS//8A0v//ANL//wDS//8A0v//ANL//wDS//8A0v//ANL//wDS + //8A0v//ANL//wDU//8B9///Aff//xHjtv8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQ + bf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQ + bf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8lx2n/PJZW/1ZcQP9eTDr/Xkw6/15MOv9eTDr/Xkw6/15M + Ov9eTDr/Xkw6/15MOv9eTDr/Xkw6/15MOv9eTDr/WEc2/wUEA/8AAAD/PBsb/0UfH/9FHx//w7m4/+7t + 7P/u7ez/7ezs/8LCwZsAAAAXAAAABAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABwAAACC+vb2h8fDw//Hw8P/x8PD/eHh4/wAA + AP9MPS//PJZW/yTekf8n8MH/J/DB/xrm1P8M2+v/ANL//wDS//8A0v//ANL//wDS//8A0v//ANL//wDS + //8A0v//ANL//wDS//8A0v//ANL//wDS//8A0v//ANL//wDS//8A0v//ANL//wDS//8A0v//ANL//wDS + //8A0v//ANL//wDS//8A0v//ANL//wDS//8A0v//ANL//wDS//8A0v//ANL//wDy//8B9///Ce3a/yLQ + bf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQ + bf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8xr2D/R31N/15M + Ov9eTDr/Xkw6/15MOv9eTDr/Xkw6/15MOv9eTDr/Xkw6/15MOv9eTDr/Xkw6/15MOv9eTDr/Xkw6/15M + Ov9eTDr/LyYd/wAAAP8eDQ3/RR8f/0UfH//Dubj/7u3s/+7t7P/u7ez/w8LBmwAAABcAAAAEAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAGAAAAH7++vqDx8PD/8fDw//Hw8P+WoZ3/AAAA/0Y5K/8xr2D/JeSh/yfwwf8n8MH/J/DB/yfw + wf8i7Mj/Ed/j/wLT+/8A0v//ANL//wDS//8A0v//ANL//wDS//8A0v//ANL//wDS//8A0v//ANL//wDS + //8A0v//ANL//wDS//8A0v//ANL//wDS//8A0v//ANL//wDS//8A0v//ANL//wDS//8A0v//ANL//wDS + //8A0v//ANL//wDS//8A0v//AOv//wH3//8J7dr/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQ + bf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQ + bf8i0G3/ItBt/yXHaf88llb/VlxA/15MOv9eTDr/Xkw6/15MOv9eTDr/Xkw6/15MOv9eTDr/Xkw6/15M + Ov9eTDr/Xkw6/15MOv9eTDr/Xkw6/15MOv9eTDr/Xkw6/15MOv9YRzb/BQQD/wgDA/9FHx//RR8f/8O5 + uP/u7ez/7u3s/+7t7P/DwsGbAAAAFwAAAAQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAUAAAAbt7a2kvHw8P/x8PD/8fDw/7S0 + tP8AAAD/Oi8k/yLQbf8m7Lb/J/DB/yfwwf8n8MH/J/DB/yfwwf8n8MH/J/DB/xjk2P8H1/P/ANL//wDS + //8A0v//ANL//wDS//8A0v//ANL//wDS//8A0v//ANL//wDS//8A0v//ANL//wDS//8A0v//ANL//wDS + //8A0v//ANL//wDS//8A0v//ANL//wDS//8A0v//ANL//wDS//8A0v//ANL//wDS//8A5P//Aff//wH3 + //8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQ + bf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/zGvYP9HfU3/Xkw6/15MOv9eTDr/Xkw6/15M + Ov9eTDr/Xkw6/15MOv9eTDr/Xkw6/15MOv9eTDr/Xkw6/15MOv9eTDr/Xkw6/15MOv9eTDr/Xkw6/15M + Ov9eTDr/Xkw6/15MOv8jHBX/AAAA/zgZGf9FHx//w7m4/+7t7P/u7ez/7u3s/8PDwpoAAAAXAAAABAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAwAAABaNjY1s8fDw//Hw8P/x8PD/w87K/wAAAP8aQib/ItJy/yfwwf8n8MH/J/DB/yfw + wf8n8MH/J/DB/yfwwf8n8MH/J/DB/yfwwf8f6sz/Dt3n/wLT+/8A0v//ANL//wDS//8A0v//ANL//wDS + //8A0v//ANL//wDS//8A0v//ANL//wDS//8A0v//ANL//wDS//8A0v//ANL//wDS//8A0v//ANL//wDS + //8A0v//ANL//wDS//8A0v//ANL//wDb//8B9///Aff//x/Sdv8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQ + bf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/Jcdp/zyW + Vv9WXED/Xkw6/15MOv9eTDr/Xkw6/15MOv9eTDr/Xkw6/15MOv9eTDr/Xkw6/15MOv9eTDr/Xkw6/15M + Ov9eTDr/Xkw6/15MOv9gTzn/Z1Y5/15MOv9eTDr/Xkw6/15MOv9eTDr/Xkw6/0A0J/8AAAD/Ig8P/0Uf + H//Dubj/7u3s/+7t7P/u7ez/rKyrgwAAABYAAAADAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACAAAAEWFhYU7x8PD/8fDw//Hw + 8P/x8PD/AAAA/w5bL/8j2IL/J/DB/yfwwf8n8MH/J/DB/yfwwf8n8MH/J/DB/yfwwf8n8MH/J/DB/yfw + wf8n8MH/JO7E/xXi3P8E1ff/ANL//wDS//8A0v//ANL//wDS//8A0v//ANL//wDS//8A0v//ANL//wDS + //8A0v//ANL//wDS//8A0v//ANL//wDS//8A0v//ANL//wDS//8A0v//ANL//wDS//8A0v//ANT//wH3 + //8B9///GdmR/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQ + bf8i0G3/ItBt/yLQbf8i0G3/Ma9g/0d9Tf9eTDr/Xkw6/15MOv9eTDr/Xkw6/15MOv9eTDr/Xkw6/15M + Ov9eTDr/Xkw6/15MOv9eTDr/Xkw6/15MOv9eTDr/Xkw6/15MOv9eTDr/Xkw6/15MOv9xYzj/X005/15M + Ov9eTDr/Xkw6/15MOv9eTDr/Xkw6/wAAAP8RBwf/RR8f/8O5uP/u7ez/7u3s/+7t7P+Ojo1qAAAAFAAA + AAMAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAEAAAAMAAAALuzr6/Px8PD/8fDw//Hw8P88PDz/FYJE/yTgl/8n8MH/J/DB/yfw + wf8n8MH/J/DB/yfwwf8n8MH/J/DB/yfwwf8n8MH/J/DB/yfwwf8n8MH/J/DB/yfwwf8d6ND/DNvr/wDS + //8A0v//ANL//wDS//8A0v//ANL//wDS//8A0v//ANL//wDS//8A0v//ANL//wDS//8A0v//ANL//wDS + //8A0v//ANL//wDS//8A0v//ANL//wDS//8A0v//APL//wH3//8V3qP/ItBt/yLQbf8i0G3/ItBt/yLQ + bf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8lx2n/PJZW/1ZcQP9eTDr/Xkw6/15M + Ov9eTDr/Xkw6/15MOv9eTDr/Xkw6/15MOv9eTDr/Xkw6/15MOv9eTDr/Xkw6/15MOv9eTDr/Xkw6/15M + Ov9eTDr/Xkw6/15MOv9eTDr/Xkw6/21eOP9lVTn/Xkw6/15MOv9eTDr/Xkw6/15MOv9eTDr/FxMO/wQB + Af9FHx//zsbF/+7t7P/u7ez/7u3s/5STkmYAAAARAAAAAgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAQAAAAkAAAAm3dzc0PHw + 8P/x8PD/8fDw/3iDf/8bqVj/ItBt/yTgl/8l5qb/J/DB/yfwwf8n8MH/J/DB/yfwwf8n8MH/J/DB/yfw + wf8n8MH/J/DB/yfwwf8n8MH/J/DB/yfwwf8n8MH/IuzI/xPh4P8E1ff/ANL//wDS//8A0v//ANL//wDS + //8A0v//ANL//wDS//8A0v//ANL//wDS//8A0v//ANL//wDS//8A0v//ANL//wDS//8A0v//ANL//wDS + //8A6///Aff//xHjtv8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQ + bf8xr2D/R31N/15MOv9eTDr/Xkw6/15MOv9eTDr/Xkw6/15MOv9eTDr/Xkw6/15MOv9eTDr/Xkw6/15M + Ov9eTDr/Xkw6/15MOv9eTDr/Xkw6/15MOv9eTDr/Xkw6/15MOv9eTDr/Xkw6/15MOv9eTDr/bV44/2xd + OP9eTDr/Xkw6/15MOv9eTDr/Xkw6/15MOv8vJh3/AAAA/0UfH//u7ez/7u3s/+7t7P/u7ez/goGBVwAA + AA8AAAACAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAABwAAACGwsLCX8fDw//Hw8P/x8PD/w8PD/yLQbf8i0G3/JOKc/yLQ + bf8i1Hf/JOCX/ybstv8n8MH/J/DB/yfwwf8n8MH/J/DB/yfwwf8n8MH/J/DB/yfwwf8n8MH/J/DB/yfw + wf8n8MH/J/DB/yfwwf8Y5Nj/Cdnv/wDS//8A0v//ANL//wDS//8A0v//ANL//wDS//8A0v//ANL//wDS + //8A0v//ANL//wDS//8A0v//ANL//wDS//8A0v//ANL//wDk//8B9///C+rR/yLQbf8i0G3/ItBt/yLQ + bf8i0G3/ItBt/yLQbf8i0G3/ItBt/yXHaf84nln/VlxA/15MOv9eTDr/Xkw6/15MOv9eTDr/Xkw6/15M + Ov9eTDr/Xkw6/15MOv9eTDr/Xkw6/15MOv9eTDr/Xkw6/15MOv9eTDr/Xkw6/15MOv9eTDr/Xkw6/15M + Ov9eTDr/Xkw6/15MOv9eTDr/Xkw6/15MOv9pWjj/cWM4/15MOv9eTDr/Xkw6/15MOv9eTDr/Xkw6/zov + JP8AAAD/MxcX/+7t7P/u7ez/7u3s/+7t7P8AAAAvAAAADAAAAAEAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAHAAAAIX59 + fXnx8PD/8fDw//Hw8P+96M//ItBt/yLQbf8n8MH/ItBt/yLQbf8i0G3/ItBt/yPah/8l5qb/J/DB/yfw + wf8n8MH/J/DB/yfwwf8n8MH/J/DB/yfwwf8n8MH/J/DB/yfwwf8n8MH/J/DB/yfwwf8n8MH/IuzI/w7d + 5/8C0/v/ANL//wDS//8A0v//ANL//wDS//8A0v//ANL//wDS//8A0v//ANL//wDS//8A0v//ANL//wDS + //8A0v//AN3//wH3//8J7dr/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/y23Y/9HfU3/WlQ9/15M + Ov9eTDr/Xkw6/15MOv9eTDr/Xkw6/15MOv9eTDr/Xkw6/15MOv9eTDr/Xkw6/15MOv9eTDr/Xkw6/15M + Ov9eTDr/Xkw6/15MOv9eTDr/Xkw6/15MOv9eTDr/Xkw6/15MOv9eTDr/Xkw6/15MOv9eTDr/Xkw6/2la + OP9zZTj/Xkw6/15MOv9eTDr/Xkw6/15MOv9eTDr/Rjkr/wAAAP9TPT3/7u3s/+7t7P/u7ez/7u3s/wAA + ACkAAAAKAAAAAQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAgAAAAlnp6ekfHw8P/x8PD/8fDw/5bitv8i0G3/ItBt/yfw + wf8i1nz/ItBt/yLQbf8i0G3/ItBt/yLQbf8i1Hf/JOKc/ybuu/8n8MH/J/DB/yfwwf8n8MH/J/DB/yfw + wf8n8MH/J/DB/yfwwf8n8MH/J/DB/yfwwf8n8MH/J/DB/yTuxP8Y5Nj/BNX3/wDS//8A0v//ANL//wDS + //8A0v//ANL//wDS//8A0v//ANL//wDS//8A0v//ANL//wDS//8A1v//Aff//wP09f8i0G3/ItBt/yLQ + bf8i0G3/Jcdp/zieWf9SZEP/Xkw6/15MOv9eTDr/Xkw6/15MOv9eTDr/Xkw6/15MOv9eTDr/Xkw6/15M + Ov9eTDr/Xkw6/15MOv9eTDr/Xkw6/15MOv9eTDr/Xkw6/15MOv9eTDr/Xkw6/15MOv9eTDr/Xkw6/15M + Ov9eTDr/Xkw6/15MOv9eTDr/Xkw6/15MOv9eTDr/bV44/3NlOP9eTDr/Xkw6/15MOv9eTDr/Xkw6/15M + Ov9GOSv/AAAA/15KSv/u7ez/7u3s/+7t7P/b2tnPAAAAIgAAAAcAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABAAAACgAA + ACm3tran8fDw//Hw8P/x8PD/ieCu/yLQbf8i0G3/Juy2/yTgl/8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQ + bf8i0G3/ItBt/yPcjP8l6Kz/J/DB/yfwwf8n8MH/J/DB/yfwwf8n8MH/J/DB/yfwwf8n8MH/J/DB/yfw + wf8n8MH/J/DB/yfwwf8n8MH/HejQ/w7d5/8A0v//ANL//wDS//8A0v//ANL//wDS//8A0v//ANL//wDS + //8A0v//ANL//wDS//8A9P//Aff//yLQbf8i0G3/Lbdj/0d9Tf9aVD3/Xkw6/15MOv9eTDr/Xkw6/15M + Ov9eTDr/Xkw6/15MOv9eTDr/Xkw6/15MOv9eTDr/Xkw6/15MOv9eTDr/Xkw6/15MOv9eTDr/Xkw6/15M + Ov9eTDr/Xkw6/15MOv9eTDr/Xkw6/15MOv9eTDr/Xkw6/15MOv9eTDr/Xkw6/15MOv9eTDr/Xkw6/15M + Ov9zZTj/cWM4/15MOv9eTDr/Xkw6/15MOv9eTDr/Xkw6/0Y5K/8AAAD/iH59/+7t7P/u7ez/7u3s/9fX + 1sEAAAAcAAAABQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAEAAAAKAAAAKra1tajx8PD/8fDw//Hw8P+J4K7/ItBt/yLQ + bf8k4pz/Juqx/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i1Hf/JOKc/ybu + u/8n8MH/J/DB/yfwwf8n8MH/J/DB/yfwwf8n8MH/J/DB/yfwwf8n8MH/J/DB/yfwwf8n8MH/J/DB/yTu + xP8T4eD/BNX3/wDS//8A0v//ANL//wDS//8A0v//ANL//wDS//8A0v//ANL//wDt//8B9///Fd6j/yLQ + bf80pl3/T21G/15MOv9eTDr/Xkw6/15MOv9eTDr/Xkw6/15MOv9eTDr/Xkw6/15MOv9eTDr/Xkw6/15M + Ov9eTDr/Xkw6/15MOv9eTDr/Xkw6/15MOv9eTDr/Xkw6/15MOv9eTDr/Xkw6/15MOv9eTDr/Xkw6/15M + Ov9eTDr/Xkw6/15MOv9eTDr/Xkw6/15MOv9eTDr/Y1I5/3NlOP9tXjj/Xkw6/15MOv9eTDr/Xkw6/15M + Ov9eTDr/Rjkr/wAAAP+dmJf/7u3s/+7t7P/u7ez/xMPDmgAAABYAAAADAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAQAA + AAoAAAAr29ra0vHw8P/x8PD/8fDw/2/cnv8i0G3/ItBt/yLUd/8n8MH/ItR3/yLQbf8i0G3/ItBt/yLQ + bf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yPcjP8l6Kz/J/DB/yfwwf8n8MH/J/DB/yfw + wf8n8MH/J/DB/yfwwf8n8MH/J/DB/yfwwf8n8MH/J/DB/yfwwf8n8MH/GubU/wnZ7/8A0v//ANL//wDS + //8A0v//ANL//wDS//8A0v//AOT//wH3//8Z2ZH/ItBt/yLQbf8i0G3/Jcdp/zieWf9WXED/Xkw6/15M + Ov9eTDr/Xkw6/15MOv9eTDr/Xkw6/15MOv9eTDr/Xkw6/15MOv9eTDr/Xkw6/15MOv9eTDr/Xkw6/15M + Ov9eTDr/Xkw6/15MOv9eTDr/Xkw6/15MOv9eTDr/Xkw6/15MOv9eTDr/Xkw6/15MOv9eTDr/Xkw6/15M + Ov9oWDn/c2U4/2hYOf9eTDr/Xkw6/15MOv9eTDr/Xkw6/15MOv9ANCf/AAAA/8XCwv/u7ez/7u3s/+7t + 7P+npqVxAAAAEQAAAAIAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABAAAACgAAACrc29rR8fDw//Hw8P/x8PD/ieCu/yLQ + bf8i0G3/ItBt/yXorP8k4pz/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQ + bf8i0G3/ItBt/yLQbf8i1Hf/JeSh/ybuu/8n8MH/J/DB/yfwwf8n8MH/J/DB/yfwwf8n8MH/J/DB/yfw + wf8n8MH/J/DB/yfwwf8n8MH/J/DB/yLsyP8R3+P/AtP7/wDS//8A0v//ANL//wDS//8A3f//Aff//x/S + dv8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8xr2D/S3VJ/15MOv9eTDr/Xkw6/15MOv9eTDr/Xkw6/15M + Ov9eTDr/Xkw6/15MOv9eTDr/Xkw6/15MOv9eTDr/Xkw6/15MOv9eTDr/Xkw6/15MOv9eTDr/Xkw6/15M + Ov9eTDr/Xkw6/15MOv9eTDr/Xkw6/15MOv9eTDr/Xkw6/21eOP9zZTj/ZFM5/15MOv9eTDr/Xkw6/15M + Ov9eTDr/Xkw6/y8mHf8AAAD/7u3t/+7t7f/u7ez/7u3s/2ppaUcAAAANAAAAAQAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAJAAAAJsTDw7Dy8fD/8vHw//Hw8P+J4K7/ItBt/yLQbf8i0G3/I9iC/ybuu/8i0nL/ItBt/yLQ + bf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItJy/yPc + jP8m6rH/J/DB/yfwwf8n8MH/J/DB/yfwwf8n8MH/J/DB/yfwwf8n8MH/J/DB/yfwwf8n8MH/J/DB/yfw + wf8n8MH/GOTY/wfX8/8A0v//ANL//wDW//8F8uz/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQ + bf8i0G3/Kb9m/0COU/9aVD3/Xkw6/15MOv9eTDr/Xkw6/15MOv9eTDr/Xkw6/15MOv9eTDr/Xkw6/15M + Ov9eTDr/Xkw6/15MOv9eTDr/Xkw6/15MOv9eTDr/Xkw6/15MOv9eTDr/Xkw6/15MOv9eTDr/Xkw6/15M + Ov9eTDr/c2U4/3NlOP9fTTn/Xkw6/15MOv9eTDr/Xkw6/15MOv9eTDr/HRcS/ywsLP/u7e3/7u3t/+7t + 7f/u7ez/AAAAJwAAAAkAAAABAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAcAAAAhvr29ovLx8f/y8fD/8vHw/4ff + r/8i0G3/ItBt/yLQbf8i0G3/Jeis/yTgl/8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQ + bf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i1nz/JeSh/ybuu/8n8MH/J/DB/yfw + wf8n8MH/J/DB/yfwwf8n8MH/J/DB/yfwwf8n8MH/J/DB/yfwwf8n8MH/J/DB/x/qzP8O3ef/ANL//w3m + yP8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf84nln/UmRD/15M + Ov9eTDr/Xkw6/15MOv9eTDr/Xkw6/15MOv9eTDr/Xkw6/15MOv9eTDr/Xkw6/15MOv9eTDr/Xkw6/15M + Ov9eTDr/Xkw6/15MOv9eTDr/Xkw6/15MOv9eTDr/Xkw6/2NSOf9zZTj/cGE4/15MOv9eTDr/Xkw6/15M + Ov9eTDr/Xkw6/15MOv8FBAP/WWRg/+7t7f/u7e3/7u3t/93c3M0AAAAeAAAABgAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAABQAAABvDwsKd8vHx//Lx8f/y8fH/vujP/yLQbf8i0G3/ItBt/yLQbf8i1Hf/Ju67/yLS + cv8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQ + bf8i0G3/ItBt/yLQbf8i0G3/ItJy/yPcjP8m6rH/J/DB/yfwwf8n8MH/J/DB/yfwwf8n8MH/J/DB/yfw + wf8n8MH/J/DB/yfwwf8n8MH/J/DB/yfwwf8j6LX/HdJ//yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQ + bf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/Lbdj/0d9Tf9eTDr/Xkw6/15MOv9eTDr/Xkw6/15M + Ov9eTDr/Xkw6/15MOv9eTDr/Xkw6/15MOv9eTDr/Xkw6/15MOv9eTDr/Xkw6/15MOv9eTDr/Xkw6/15M + Ov9eTDr/aFg5/3NlOP9sXTj/Xkw6/15MOv9eTDr/Xkw6/15MOv9eTDr/TD0v/wAAAP+ko6L/7u3t/+7t + 7f/u7e3/zs3NpQAAABYAAAADAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAADAAAAFZCPj2ry8fH/8vHx//Lx + 8f/V6+H/ItBt/yLQbf8i0G3/ItBt/yLQbf8k4Jf/Jeam/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQ + bf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQ + bf8j2IL/JeSh/yfwwf8n8MH/J/DB/yfwwf8n8MH/J/DB/yfwwf8n8MH/J/DB/yfwwf8n8MH/J/DB/yTg + l/8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQ + bf8i0G3/ItBt/yXHaf9AjlP/VlxA/15MOv9eTDr/Xkw6/15MOv9eTDr/Xkw6/15MOv9eTDr/Xkw6/15M + Ov9eTDr/Xkw6/15MOv9eTDr/Xkw6/15MOv9eTDr/Xkw6/15MOv9sXTj/c2U4/2hYOf9eTDr/Xkw6/15M + Ov9eTDr/Xkw6/15MOv8jHBX/AAAA/+Df3v/v7u3/7u3t/+7t7f+ura1sAAAADgAAAAIAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAIAAAAPPTw8P/Lx8f/y8fH/8vHx//Lx8f85037/ItBt/yLQbf8i0G3/ItBt/yLQ + bf8l6Kz/I9yM/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQ + bf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItJy/yTekf8m7Lb/J/DB/yfw + wf8n8MH/J/DB/yfwwf8n8MH/J/DB/yfwwf8n8MH/I9qH/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQ + bf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/NKZd/09t + Rv9eTDr/Xkw6/15MOv9eTDr/Xkw6/15MOv9eTDr/Xkw6/15MOv9eTDr/Xkw6/15MOv9eTDr/Xkw6/15M + Ov9eTDr/Xkw6/3FjOP9zZTj/Y1I5/15MOv9eTDr/Xkw6/15MOv9eTDr/WEc2/wUEA/9ZWVj/7+7t/+/u + 7f/v7u3/6+rp8gAAACMAAAAIAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAQAAAAkAAAAm5OPj2/Lx + 8f/y8fH/8vHx/2nZov8i0G3/ItBt/yLQbf8i0G3/ItBt/yLScv8m6rH/ItZ8/yLQbf8i0G3/ItBt/yLQ + bf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQ + bf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8j2IL/JeSh/yfwwf8n8MH/J/DB/yfwwf8n8MH/J/DB/yfw + wf8i1Hf/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQ + bf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/ym/Zv9HfU3/WlQ9/15MOv9eTDr/Xkw6/15M + Ov9eTDr/Xkw6/15MOv9eTDr/Xkw6/15MOv9eTDr/Xkw6/15MOv9hUDn/c2U4/3NlOP9fTTn/Xkw6/15M + Ov9eTDr/Xkw6/15MOv8vJh3/AAAA/7Oysf/v7u3/7+7t/+/u7f/X1tWwAAAAFgAAAAQAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAABQAAABrOzc2o8vHx//Lx8f/y8fH/uebS/yLQbf8i0G3/ItBt/yLQ + bf8i0G3/ItBt/yLWfP8m7Lb/ItJy/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQ + bf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQ + bf8i0G3/ItJy/yTekf8m7Lb/J/DB/yfwwf8n8MH/Ju67/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQ + bf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQ + bf8i0G3/ItBt/yLQbf8lx2n/OJ5Z/1ZcQP9eTDr/Xkw6/15MOv9eTDr/Xkw6/15MOv9eTDr/Xkw6/15M + Ov9eTDr/Xkw6/2dWOf9zZTj/cGE4/15MOv9eTDr/Xkw6/15MOv9eTDr/UkIy/wUEA/87Ozv/7+7t/+/u + 7f/v7u3/7+7t/6WkpFwAAAAMAAAAAQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACAAAAEISE + hFfy8fH/8vHx//Lx8f/y8fH/NdGB/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLWfP8m6rH/ItJy/yLQ + bf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQ + bf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8j2IL/Jeam/yfw + wf8l6Kz/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQ + bf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/zGv + YP9LdUn/Xkw6/15MOv9eTDr/Xkw6/15MOv9eTDr/Xkw6/15MOv9eTDr/bF04/3NlOP9rWzj/Xkw6/15M + Ov9eTDr/Xkw6/15MOv8dFxL/AAAA/7Oysf/v7u3/7+7t/+/u7f/l5OPYAAAAGgAAAAYAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAEAAAAJAAAAI+rp6eby8fH/8vHx//Lx8f+f4sL/ItBt/yLQ + bf8i0G3/ItBt/yLQbf8i0G3/ItBt/yPcjP8m6rH/ItJy/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQ + bf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQ + bf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8d1H//ItR3/yLWfP8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQ + bf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQ + bf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8pv2b/QI5T/1pUPf9eTDr/Xkw6/15M + Ov9eTDr/Xkw6/15MOv9xYzj/c2U4/2dWOf9eTDr/Xkw6/15MOv9eTDr/NCog/wAAAP9KVVH/7+7t/+/u + 7f/v7u3/7+7t/8HAwHYAAAANAAAAAgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAQAAAAUw8LCivLx8f/y8fH/8vHx//Lx8f830oD/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yPY + gv8l6Kz/ItJy/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQ + bf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/x3Uf/8T4az/B+/j/wfv + 4/8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQ + bf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQ + bf8i0G3/ItBt/yLQbf8i0G3/ItBt/zieWf9SZEP/Xkw6/15MOv9eTDr/YVA5/3NlOP9zZTj/Y1I5/15M + Ov9eTDr/Xkw6/0Y5K/8AAAD/Dg4O/+Df3v/v7u3/7+7t/+/u7f/i4eDKAAAAGAAAAAUAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAQAAAApPTk4w7u3t8vLx8f/y8fH/8vHx/6zk + yv8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLWfP8k4Jf/ItBt/yLQbf8i0G3/ItBt/yLQ + bf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQ + bf8i0G3/H9J2/xXeo/8L6tH/Aff//wH3//8B9///D+W//yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQ + bf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQ + bf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQ + bf8tt2P/R31N/15MOv9lVTn/c2U4/3NlOP9eTDr/Xkw6/15MOv9MPS//BQQD/wAAAP+kr6r/7+7t/+/u + 7f/v7u3/7+7t/6+vrlYAAAAKAAAAAQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAABAAAABTOzc2V8vHx//Lx8f/y8fH/8vHx/03Uk/8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQ + bf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQ + bf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/F9ya/w3oyP8B9///Aff//wH3//8B9///Aff//wH3 + //8V3qP/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQ + bf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQ + bf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/Jcdp/0COU/9fZz//bV44/15M + Ov9eTDr/TD0v/wUEA/8AAAD/d4J+/+/u7f/v7u3/7+7t/+/u7f/X1tWfAAAAEQAAAAMAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABAAAACQAAACDr6url8vHx//Lx + 8f/y8fH/4u7q/yrQeP8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQ + bf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8b14j/D+W//wP0 + 9f8B9///Aff//wH3//8B9///Aff//wH3//8B9///Aff//xvXiP8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQ + bf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQ + bf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQ + bf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf84nln/Xkw6/zovJP8FBAP/AAAA/1lZWf/v7u7/7+7u/+/u + 7f/v7u3/5uXk1mVkZCUAAAAGAAAAAQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAADAAAAD6WkpF3y8fH/8vHx//Lx8f/y8fH/u+fR/x/Pbv8i0G3/ItBt/yLQ + bf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQ + bf8i0G3/ItBt/x3Uf/8R47b/BfLs/wH3//8B9///Aff//wH3//8B9///Aff//wH3//8B9///Aff//wH3 + //8B9///ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQ + bf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQ + bf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQ + bf8jPib/AAAA/wAAAP9ZWVn/7+7u/+/u7v/v7u7/7+7u/+zr6/Gjo6JFAAAACQAAAAEAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAFAAAAFtXU + 1KLy8fH/8vHx//Lx8f/y8fH/kuC6/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQ + bf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/H9J2/xPhrP8H7+P/Aff//wH3//8B9///Aff//wH3 + //8B9///Aff//wH3//8B9///Aff//wH3//8B9///Aff//wnt2v8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQ + bf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQ + bf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQ + bf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/xN1Pf8AAAD/WWRh/+/u7v/v7u7/7+7u/+/u + 7v/v7u7/vr29ZAAAAAwAAAACAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAEAAAAIW1paKujn59fy8fH/8vHx//Lx8f/y8fH/Z9mk/yLQ + bf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8f0nb/Fd6j/wvq + 0f8B9///Aff//wH3//8B9///Aff//wH3//8B9///Aff//wH3//8B9///Aff//wH3//8B9///APT//wDp + //8A3f//DtG//yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQ + bf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQ + bf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItJy/yLS + cv8i0G3/EWg2/1mHeP/v7u7/7+7u/+/u7v/v7u7/7+7u/8bFxXMAAAAOAAAAAwAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAIAAAALnZycSe/u7vHy8fH/8vHx//Lx8f/y8fH/bduf/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQ + bf8i0G3/ItBt/yLQbf8X3Jr/DejI/wP09f8B9///Aff//wH3//8B9///Aff//wH3//8B9///Aff//wH3 + //8B9///Aff//wH3//8B9///AOv//wDf//8A0v//ANL//wDS//8V0KP/ItBt/yLQbf8i0G3/ItBt/yLQ + bf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQ + bf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQ + bf8i0G3/ItBt/yLQbf8i0G3/ItBt/yPYgv8m7Lb/ItJy/yLQbf9k1KL/7+7u/+/u7v/v7u7/7+7u/+/u + 7v/GxcVzAAAADwAAAAQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAMAAAAOrKurWfLx8f/y8fH/8vHx//Lx + 8f/y8fH/fd6m/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/xvXiP8P5b//A/T1/wH3//8B9///Aff//wH3 + //8B9///Aff//wH3//8B9///Aff//wH3//8B9///Aff//wH3//8A6///AN///wDU//8A0v//ANL//wDS + //8A0v//ANL//x3Qf/8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQ + bf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQ + bf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLUd/8l5qb/J/DB/ybs + tv8i0G3/ItBt/9br3f/w7+7/7+7u/+/u7v/v7u7/xsbGcgAAAA4AAAAEAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAQAAAAQx8bGdPLx8f/y8fH/8vHx//Lx8f/y8fH/pOS//yLQbf8Z0JH/CNHa/wvh + 0f8F8uz/Aff//wH3//8B9///Aff//wH3//8B9///Aff//wH3//8B9///Aff//wH3//8B9///Aff//wDw + //8A4v//ANT//wDS//8A0v//ANL//wDS//8A0v//ANL//wDS//8C0fX/ItBt/yLQbf8i0G3/ItBt/yLQ + bf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQ + bf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQ + bf8i0G3/ItBt/yLUd/8l5KH/J/DB/yfwwf8l6Kz/I9iC/yLQbf8u0XX/8O/u//Dv7v/w7+7/7+7u/7m4 + uHsAAAARAAAABAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAQAAAAQxcTEdfLx + 8f/y8fH/8vHx//Lx8f/y8fH/sebH/wLR9f8A0v//Aff//wH3//8B9///Aff//wH3//8B9///Aff//wH3 + //8B9///Aff//wH3//8B9///APD//wDi//8A1v//ANL//wDS//8A0v//ANL//wDS//8A0v//ANL//wDS + //8A0v//ANL//wjR2v8i0G3/ItR3/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQ + bf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQ + bf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLUd/8l5KH/J/DB/yfwwf8m7Lb/I9yM/yLQ + bf8i0G3/ItBt/1PWjv/w7+7/8O/u//Dv7v/n5uXnAAAAJQAAAAkAAAABAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAUAAAAVtLOzgOzr6/Ty8fH/8vHx//Lx8f/T7fL/ANL//wDY + //8B9///Aff//wH3//8B9///Aff//wH3//8B9///Aff//wH3//8A8v//AOT//wDW//8A0v//ANL//wDS + //8A0v//ANL//wDS//8A0v//ANL//wDS//8A0v//ANL//wDS//8A0v//EdG2/yTgl/8n8MH/Juqx/yPc + jP8i0nL/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQ + bf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yPa + h/8l5qb/J/DB/yfwwf8l6Kz/I9yM/yLQbf8i0G3/ItBt/yLQbf8i0G3/id+t//Dv7v/w7+7/8O/u/9nY + 18EAAAAcAAAABQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAgAA + AA8AAAA0sbCwrfLx8f/y8fH/8vHx/6bn9f8A0v//AN///wH3//8B9///Aff//wH3//8B9///Aff//wDy + //8A5v//ANj//wDS//8A0v//ANL//wDS//8A0v//ANL//wDS//8A0v//ANL//wDS//8A0v//ANL//wDS + //8A0v//ANL//wDS//8X0Jr/Jeam/yfwwf8n8MH/J/DB/ybuu/8k4pz/ItR3/yLQbf8i0G3/ItBt/yLQ + bf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQ + bf8i0G3/ItBt/yLQbf8i0G3/I9qH/yXkof8m7rv/J/DB/ybuu/8l5KH/ItZ8/yLQbf8i0G3/ItBt/yLQ + bf8i0G3/ItBt/yLQbf+t5Mb/8O/u//Dv7v/w7+7/x8bFmQAAABYAAAADAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACAAAAEQAAADjY19fW8vHx//Lx8f/y8fH/ad/4/wDS + //8A5v//Aff//wH3//8B9///APT//wDp//8A2P//ANL//wDS//8A0v//ANL//wDS//8A0v//ANL//wDS + //8A0v//ANL//wDS//8A0v//ANL//wDS//8A0v//ANL//wDS//8A0v//ANL//xPQrP8i0G3/ItR3/yTi + nP8m7rv/J/DB/yfwwf8n8MH/Jeis/yPcjP8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQ + bf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLUd/8j3Iz/JeSh/ybuu/8n8MH/Juy2/yXk + of8j2of/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/9Tp3//w7+7/8O/u//Dv + 7v+ZmJhjAAAAEAAAAAIAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAMAAAAUAAAAPezr6/Xy8fH/8vHx//Lx8f882fv/ANL//wDt//8A9P//AOn//wDd//8A0v//ANL//wDS + //8A0v//ANL//wDS//8A0v//ANL//wDS//8A0v//ANL//wDS//8A0v//ANL//wDS//8A0v//ANL//wDS + //8A0v//ANL//wDS//8A0v//CtHR/yLQbf8i0G3/ItBt/yLQbf8j3Iz/Jeis/yfwwf8n8MH/J/DB/ybu + u/8k4pz/ItR3/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8j2IL/JN6R/yXk + of8m7Lb/Juy2/yXorP8k4Jf/I9qH/yLUd/8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQ + bf8i0G3/ItBt/yLQbf8s0Hb/8O/u//Dv7v/w7+7/8O/u/0RDQzgAAAALAAAAAQAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAgAAABMAAAA88vHx//Lx8f/y8fH/8vHx/wDS + //8A0v//AN3//wDS//8A0v//ANL//wDS//8A0v//ANL//wDS//8A0v//ANL//wDS//8A0v//ANL//wDS + //8A0v//ANL//wDS//8A0v//ANL//wDS//8A0v//ANL//wDS//8A0v//ANL//wDS//8C0fX/ItBt/yLQ + bf8i0G3/ItBt/yLQbf8i0G3/ItZ8/yXkof8m7rv/J/DB/yfwwf8n8MH/Jeam/yPah/8i0G3/ItBt/yLQ + bf8i0nL/I9yM/yPYgv8k3pH/JOCX/yPcjP8j2IL/ItZ8/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQ + bf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/2LZlf/w7+//8O/u//Dv + 7v/o5+bmAAAAIgAAAAcAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAACAAAADgAAADDy8fH/8vHx//Lx8f/y8fH/Wtzy/wDS//8A0v//ANL//wDS//8A0v//ANL//wDS + //8A0v//ANL//wDS//8A0v//ANL//wDS//8A0v//ANL//wDS//8A0v//ANL//wDS//8A0v//ANL//wDS + //8A0v//ANL//wDS//8A0v//ANL//wDS//8b0Ij/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLS + cv8k3pH/Juy2/yfwwf8n8MH/J/DB/ybstv8k4Jf/ItR3/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQ + bf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQ + bf8i0G3/ItBt/yLQbf8i0G3/id+u//Dv7//w7+//8O/u/9PS0rQAAAAbAAAABQAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAIAAAAH+vq6uXy8fH/8vHx//Lx + 8f/y8fH/ed7Z/wDR9/8A0v//ANL//wDS//8A0v//ANL//wDS//8A0v//ANL//wDS//8A0v//ANL//wDS + //8A0v//ANL//wDS//8A0v//ANL//wDS//8A0v//ANL//wDS//8A0v//ANL//wDS//8A0v//ANL//xHR + tv8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/I9iC/yXmpv8n8MH/J/DB/yfw + wf8n8MH/Jeam/yPYgv8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQ + bf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf+8587/8O/v//Dv + 7//w7+//vr6+jAAAABQAAAADAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAMAAAAPuLi4aPLx8f/y8fH/8vHx//Lx8f/y8fH/tefd/x7T5v8A0v//ANL//wDS + //8A0v//ANL//wDS//8A0v//ANL//wDS//8A0v//ANL//wDS//8A0v//ANL//wDS//8A0v//ANL//wDS + //8A0v//ANL//wDS//8A0v//ANL//wDS//8A0v//CNHa/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQ + bf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLUd/8k4Jf/Ju67/yfwwf8n8MH/J/DB/ybstv8k3pH/ItJy/yLQ + bf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQ + bf8i0G3/ItBt/yLQbf8i0G3/ItBt/+Hr6P/w7+//8O/v//Dv7/+bm5tiAAAADwAAAAIAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAUAAAARxcTEdfLx + 8f/y8fH/8vHx//Lx8f/y8fH/4u7q/2nc2v8A0O//ANL//wDS//8A0v//ANL//wDS//8A0v//ANL//wDS + //8A0v//ANL//wDS//8A0v//ANL//wDS//8A0v//ANL//wDS//8A0v//ANL//wDS//8A0v//ANL//wDS + //8A0v//ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQ + bf8i0G3/I9yM/yXorP8n8MH/J/DB/yfwwf8n8MH/JeSh/yPYgv8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQ + bf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf850n7/8O/v//Dv + 7//w7+//8O/v/wAAACoAAAALAAAAAQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAQAAAAUAAAAPy8rKce/u7vHy8fH/8vHx//Lx8f/y8fH/8vHx/8Tp + 5P88193/ANH3/wDS//8A0v//ANL//wDS//8A0v//ANL//wDS//8A0v//ANL//wDS//8A0v//ANL//wDS + //8A0v//ANL//wDS//8A0v//ANL//wDS//8A0v//ANL//wDS//8Z0JH/ItBt/yLQbf8i0G3/ItBt/yLQ + bf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLWfP8l5KH/Ju67/yfw + wf8n8MH/J/DB/ybstv8k3pH/ItJy/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQ + bf8i0G3/ItBt/yLQbf8i0G3/ItBt/2DYlv/w7+//8O/v//Dv7//j4uLaAAAAIQAAAAcAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAMAAAAMqqmpQ+rp6dXy8fH/8vHx//Lx8f/y8fH/8vHx//Lx8f+15+X/PNjs/wDS//8A0v//ANL//wDS + //8A0v//ANL//wDS//8A0v//ANL//wDS//8A0v//ANL//wDS//8A0v//ANL//wDS//8A0v//ANL//wDS + //8A0v//ANL//xHRtv8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQ + bf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0nL/JN6R/ybstv8n8MH/J/DB/yfwwf8n8MH/JeSh/yPY + gv8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/leG2//Dv + 7//w7+//8O/v/9TT07MAAAAZAAAABAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAIAAAAHAAAAE9nY2I7y8fH/8vHx//Lx + 8f/y8fH/8vHx//Lx8f/y8fH/tefl/zzY7P8A0v//ANL//wDS//8A0v//ANL//wDS//8A0v//ANL//wDS + //8A0v//ANL//wDS//8A0v//ANL//wDS//8A0v//ANL//wDS//8A0v//CNHa/yLQbf8i0G3/ItBt/yLQ + bf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQ + bf8i0G3/ItBt/yPYgv8l5qb/J/DB/yfwwf8n8MH/J/DB/ybstv8k3pH/ItJy/yLQbf8i0G3/ItBt/yLQ + bf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf+8587/8O/v//Dv7//w7+//wL+/iwAAABMAAAADAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAEAAAAEAAAADJKRkTTo5+fG8vHx//Lx8f/y8fH/8vHx//Lx8f/y8fH/8vHx/9Ps + 6/9a3Or/D9P+/wDS//8A0v//ANL//wDS//8A0v//ANL//wDS//8A0v//ANL//wDS//8A0v//ANL//wDS + //8A0v//ANL//wDS//8A0v//ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQ + bf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i1Hf/JOCX/ybu + u/8n8MH/J/DB/yfwwf8n8MH/JeSh/yPah/8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt//Dv + 7//w7+//8O/v//Dv7/+Hh4dUAAAADgAAAAEAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACAAAABgAA + AA66ublS5+bmx/Lx8f/y8fH/8vHx//Lx8f/y8fH/8vHx//Lx8f/i7ur/l+X2/y3X9P8A0v//ANL//wDS + //8A0v//ANL//wDS//8A0v//ANL//wDS//8A0v//ANL//wDS//8A0v//ANL//wDS//8Z0JH/ItBt/yLQ + bf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQ + bf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yPcjP8l6Kz/J/DB/yfwwf8n8MH/J/DB/ybs + tv8k4pz/ItZ8/yLQbf8i0G3/ItBt/yLQbf9I1YX/8O/v//Dv7//w7+//8O/v/wAAACgAAAAKAAAAAQAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAgAAAAcAAAAR0M/Pb+vq6tXy8fH/8vHx//Lx + 8f/y8fH/8vHx//Lx8f/y8fH/8vHx/8Tq7P9p3un/HtX1/wDS//8A0v//ANL//wDS//8A0v//ANL//wDS + //8A0v//ANL//wDS//8A0v//ANL//xHRtv8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQ + bf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQ + bf8i0G3/ItBt/yLQbf8i1Hf/JeSh/ybuu/8n8MH/J/DB/yfwwf8n8MH/Juy2/yXorP8j2IL/ItBt/23b + n//w7+//8O/v//Dv7//e3d3OAAAAIAAAAAcAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAQAAAAMAAAAIAAAAELy7u1Hp6OjG8vHx//Lx8f/y8fH/8vHx//Lx8f/y8fH/8vHx//Lx + 8f/y8fH/xOrs/2ne6f8e1O7/ANL//wDS//8A0v//ANL//wDS//8A0v//ANL//wDS//8A0v//BtHj/yLQ + bf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQ + bf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItJy/yPc + jP8m7Lb/J/DB/yfwwf8n8MH/J/DB/yTgl/8i0G3/lOG3//Hw7//w7+//8O/v/83MzKcAAAAZAAAABAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAEAAAACAAAABgAA + AA2WlZUz4+Liqe/u7vHy8fH/8vHx//Lx8f/y8fH/8vHx//Lx8f/y8fH/8vHx//Lx8f/T7Ov/iOLo/0va + 6/8P0ef/ANL//wDS//8A0v//ANL//wDS//8A0v//H9B2/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQ + bf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQ + bf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8j2IL/JeSh/yfwwf8n8MH/JOCX/yLQ + bf+758//8fDv//Hw7//x8O//trW1fgAAABIAAAACAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAgAAAAUAAAAKdHR0IdHQ0G7r6urU8vHx//Lx + 8f/y8fH/8vHx//Lx8f/y8fH/8vHx//Lx8f/y8fH/8vHx//Lx8f/T6+P/l+Tn/3ng8P881+T/HtTu/wDR + 9/8X0Jr/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQ + bf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQ + bf8i0G3/ItBt/yLQbf8i0G3/ItR3/yTgl/8i0nL/ItBt//Hw7//x8O//8fDv//Hw7/+NjIxRAAAADAAA + AAEAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAEAAAADAAAABwAAAA2ZmJgy4eDgmu3s7OLy8fH/8vHx//Lx8f/y8fH/8vHx//Lx + 8f/y8fH/8vHx//Lx8f/y8fH/8vHx//Lx8f/y8fH/8vHx/5fit/8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQ + bf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQ + bf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yzR + dv+u5cj/8fDv//Hw7//x8O//8fDv/wAAACAAAAAHAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAgAA + AAQAAAAIAAAAD7OyskDc3NyL6+rq1PLx8f/y8fH/8vHx//Lx8f/y8fH/8vHx//Lx8f/y8fH/8vHx//Lx + 8f/y8fH/y+rY/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQ + bf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQ + bf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf9e2Jj/1evh//Hw8P/x8PD/8fDv//Hw7//h4eC7AAAAEwAA + AAMAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACAAAABAAAAAcAAAAMc3NzIdPT + 023k4+Oo7u3t4vLx8f/y8fH/8vHx//Lx8f/y8fH/8vHx//Lx8f/y8fH/L9J1/yLQbf8i0G3/ItBt/yLQ + bf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQ + bf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf9R1pD/uebS//Hw + 8P/x8PD/8fDw//Hw8P/x8PD/7u3t8ZGQkDQAAAAIAAAAAQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAEAAAADAAAABQAAAAkAAAANdHR0Ic7NzV3e3d2K5+bmt+rp + 6dby8fH/8vHx//Lx8f9j2pb/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQ + bf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQ + bf8i0G3/ItBt/yzRdv9r2qH/yOnY//Hw8P/x8PD/8fDw//Hw8P/x8PD/8fDw/+3s7OKwr69BAAAACQAA + AAIAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAQAAAAEAAAACAAAABAAAAAcAAAAKAAAAFgAAADTt7Ozz8vHx/5fit/8i0G3/ItBt/yLQ + bf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQ + bf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/KtB4/17YmP+d4cP/4e3p//Hw8P/x8PD/8fDw//Hw + 8P/x8PD/8fDw//Hw8P/e3t6bdnZ2IAAAAAcAAAABAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAEAAAAJAAAAI9jX18Py8fH/y+rY/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQ + bf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/Hc5w/yjQef9c2Jr/g96z/7bm + 0//x8PD/8fDw//Hw8P/x8PD/8fDw//Hw8P/x8PD/8fDw//Hw8P/p6OjFsrKyQAAAAAsAAAAEAAAAAQAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAQAAAAYvby8jvLx8f/y8fH/vujQ/67m + yf+H4LD/iuCv/03WlP9P1pL/VtiO/1bYjv9W2I7/KNB5/xnOc/8304D/VtiO/1HXkf9N1pT/TdaU/3jd + qf+B3rX/n+PC/7Xm1f/i7un/8fDw//Hw8P/x8PD/8fDw//Hw8P/x8PD/8fDw//Hw8P/x8PD/8fDw//Hw + 8P/p6OjFw8LCTgAAAAwAAAAFAAAAAQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAgAAAA6OjY1R8vHx//Lx8f/y8fH/8vHx//Lx8f/y8fH/8vHx//Lx8f/y8fH/8vHx//Lx + 8f/y8fH/8vHx//Lx8f/y8fH/8vHx//Lx8f/y8fH/8vHx//Lx8f/y8fH/8vHx//Lx8f/y8fD/8vHw//Hw + 8P/x8PD/8fDw//Hw8P/x8PD/8fDw/+/u7vDg39+ZnZycMAAAAAsAAAAFAAAAAQAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABgAAABjm5eXI8vHx//Lx + 8f/y8fH/8vHx//Lx8f/y8fH/8vHx//Lx8f/y8fH/8vHx//Lx8f/y8fH/8vHx//Lx8f/y8fH/8vHx//Lx + 8f/y8fH/8vHx//Lx8f/y8fH/8vHx//Lx8f/y8fD/8vHw//Lx8P/x8PD/7ezs4uTj46jPzs5cAAAADwAA + AAgAAAAEAAAAAQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAABAAAACWdnZyXr6urU8vHx//Lx8f/y8fH/8vHx//Lx8f/y8fH/8vHx//Lx + 8f/y8fH/8vHx//Lx8f/y8fH/8vHx//Lx8f/y8fH/8vHx//Lx8f/y8fH/8vHx//Lx8f/y8fH/8vHx/+zr + 69Tl5OSo29raerq5uD4AAAAOAAAACAAAAAQAAAACAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABAAAABgAA + AA7R0NBc397eidzb24vq6enF6unpxeno6Mbu7e3i8vHx//Lx8f/y8fH/8vHx//Lx8f/y8fH/8O/v8Ono + 6Mbq6enF6unpxeHg4Jnf3t6Jzc3NXcnIyEwAAAAQAAAADAAAAAgAAAAFAAAAAwAAAAEAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAgAAAAQAAAAGAAAABwAAAAkAAAAKAAAACwAA + AAwAAAAOAAAADwAAABAAAAAQAAAADwAAAA4AAAAMAAAACwAAAAoAAAAJAAAABwAAAAYAAAAEAAAAAwAA + AAIAAAABAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAEAAAABAAAAAQAAAAEAAAACAAAAAgAAAAIAAAACAAAAAQAA + AAEAAAABAAAAAQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAD///////////////////////////// + ///////////////////////4Af/////////////////8AAAD////////////////wAAAAD////////// + /////gAAAAAH//////////////gAAAAAAf/////////////AAAAAAAA/////////////AAAAAAAAH/// + /////////AAAAAAAAAf///////////gAAAAAAAAB///////////gAAAAAAAAAH//////////wAAAAAAA + AAA//////////wAAAAAAAAAAH/////////4AAAAAAAAAAAf////////8AAAAAAAAAAAD////////+AAA + AAAAAAAAAf////////AAAAAAAAAAAAD////////gAAAAAAAAAAAAf///////wAAAAAAAAAAAAD////// + /4AAAAAAAAAAAAAf//////8AAAAAAAAAAAAAD//////+AAAAAAAAAAAAAAf//////AAAAAAAAAAAAAAH + //////wAAAAAAAAAAAAAA//////4AAAAAAAAAAAAAAH/////8AAAAAAAAAAAAAAA/////+AAAAAAAAAA + AAAAAP/////gAAAAAAAAAAAAAAB/////wAAAAAAAAAAAAAAAf////8AAAAAAAAAAAAAAAD////+AAAAA + AAAAAAAAAAAf////gAAAAAAAAAAAAAAAH////wAAAAAAAAAAAAAAAA////8AAAAAAAAAAAAAAAAP///+ + AAAAAAAAAAAAAAAAB////gAAAAAAAAAAAAAAAAf///wAAAAAAAAAAAAAAAAH///8AAAAAAAAAAAAAAAA + A////AAAAAAAAAAAAAAAAAP///gAAAAAAAAAAAAAAAAD///4AAAAAAAAAAAAAAAAAf//+AAAAAAAAAAA + AAAAAAH///AAAAAAAAAAAAAAAAAB///wAAAAAAAAAAAAAAAAAP//8AAAAAAAAAAAAAAAAAD//+AAAAAA + AAAAAAAAAAAA///gAAAAAAAAAAAAAAAAAP//4AAAAAAAAAAAAAAAAAD//+AAAAAAAAAAAAAAAAAAf//A + AAAAAAAAAAAAAAAAAH//wAAAAAAAAAAAAAAAAAB//8AAAAAAAAAAAAAAAAAAf//AAAAAAAAAAAAAAAAA + AH//wAAAAAAAAAAAAAAAAAB//8AAAAAAAAAAAAAAAAAAf//AAAAAAAAAAAAAAAAAAH//wAAAAAAAAAAA + AAAAAAB//8AAAAAAAAAAAAAAAAAAf//AAAAAAAAAAAAAAAAAAH//wAAAAAAAAAAAAAAAAAB//8AAAAAA + AAAAAAAAAAAAf//AAAAAAAAAAAAAAAAAAH//wAAAAAAAAAAAAAAAAAB//8AAAAAAAAAAAAAAAAAAf//A + AAAAAAAAAAAAAAAAAH//4AAAAAAAAAAAAAAAAAB//+AAAAAAAAAAAAAAAAAAf//gAAAAAAAAAAAAAAAA + AP//wAAAAAAAAAAAAAAAAAD//8AAAAAAAAAAAAAAAAAA///AAAAAAAAAAAAAAAAAAP//wAAAAAAAAAAA + AAAAAAD//+AAAAAAAAAAAAAAAAAA///gAAAAAAAAAAAAAAAAAf//4AAAAAAAAAAAAAAAAAH//+AAAAAA + AAAAAAAAAAAB///gAAAAAAAAAAAAAAAAA///4AAAAAAAAAAAAAAAAAP///AAAAAAAAAAAAAAAAAD///w + AAAAAAAAAAAAAAAAB///8AAAAAAAAAAAAAAAAAf///gAAAAAAAAAAAAAAAAP///4AAAAAAAAAAAAAAAA + D////AAAAAAAAAAAAAAAAB////wAAAAAAAAAAAAAAAAf///+AAAAAAAAAAAAAAAAP////wAAAAAAAAAA + AAAAAH////8AAAAAAAAAAAAAAAD/////gAAAAAAAAAAAAAAB/////8AAAAAAAAAAAAAAA//////gAAAA + AAAAAAAAAAf/////8AAAAAAAAAAAAAAH//////gAAAAAAAAAAAAAD//////4AAAAAAAAAAAAAA////// + +AAAAAAAAAAAAAAP//////gAAAAAAAAAAAAAD//////4AAAAAAAAAAAAAB//////+AAAAAAAAAAAAAAf + //////wAAAAAAAAAAAAAH//////8AAAAAAAAAAAAAB///////gAAAAAAAAAAAAAf//////4AAAAAAAAA + AAAAP///////gAAAAAAAAAAAAD///////8AAAAAAAAAAAAA////////gAAAAAAAAAAAAP///////+AAA + AAAAAAAAAD////////4AAAAAAAAAAAB/////////AAAAAAAAAAAAf////////8AAAAAAAAAAAH////// + ///4AAAAAAAAAAB//////////gAAAAAAAAAA///////////AAAAAAAAAAP//////////+AAAAAAAAAD/ + //////////8AAAAAAAAB////////////4AAAAAAAA/////////////8AAAAAAAf/////////////gAAA + AAAf/////////////4AAAAAAf//////////////AAAAAAf//////////////wAAAAA////////////// + /+AAAAB////////////////4AAAH/////////////////8AD//////////////////////////////// + /////////////////////////////////////////////////////////////ygAAAAwAAAAYAAAAAEA + IAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAEAAAABAAAAAQAAAAEAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABAAAABQAA + AA8AAAAbAAAAKAAAADIAAAA6AAAAOgAAADIAAAAoAAAAGwAAAA4AAAAFAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAwAA + ABIAAAAwKCgoXX9+fpSko6K3w8LC1MvLyt7KycjgysnI4MvLyt63trbNpKOjt2xra4sAAABQAAAAKgAA + AA4AAAACAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAQAAAAZLi4uUJybm6jT09Ln7ezr/+3s6//t7Ov/zcXE/8O4uP/DuLj/w7i4/8O4uP/Y0tH/7ezr/+3s + 6//k4+L4tbSz0Gxsa4sAAAA+AAAAEQAAAAIAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAABAAAAEDQzM0isq6qw5uXk9+3s7P/NxcX/jnh4/2RFRf9FHx//RR8f/00kIv9oNC3/aDQt/00k + Iv9FHx//Tysr/3lfXv+un57/4t/e/+3s6//Kycjfb29uhwAAADAAAAAIAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAIAAAAcioqJiOfm5fXu7ez/rp+f/2RFRf9FHx//cDkx/5NOQP+uXkv/pVhH/4JD + OP9oNC3/aDQt/1YpJv9FHx//RR8f/0UfH/9FHx//RR8f/4Rra//Y0tH/7ezr/7q5uMosLCxVAAAADwAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAABAAAACy5uLe47u3s/87Gxf9kRUX/Vikm/5NOQP/IbVb/tmNO/3k+ + Nf9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9PKyv/mYWF/+3s + 6//c29rvX15edwAAABkAAAABAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAADQ0NDONXU1NXu7ez/pJKS/00kIv+LSTz/0XNa/79o + Uv95PjX/RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0Uf + H/9FHx//RR8f/2RFRf/i397/5eTj9lxbW3oAAAAZAAAAAQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAEAAAAj1tXU1e7t7f+EbGz/aDQt/79o + Uv/Rc1r/nFND/00kIv9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0Uf + H/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9PKyv/zcXE/+Xk4/ZdXFx5AAAAEQAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABfKycm77+7t/4Rs + bP95PjX/0XNa/9FzWv+cU0P/RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0Uf + H/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//Tysr/83FxP/l5OP3a2pqaQAA + AAoAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACq2s + rIPv7u3/moaG/3k+Nf/Rc1r/0XNa/7ZjTv9FHx//RR8f/0UfH/9FHx//RR8f/zwbG/8zFxf/MxcX/0Uf + H/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/1o4 + OP/i397/2NfW4wAAADYAAAADAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAACQUFBOurp6fTEurr/Xy4q/8htVv/Rc1r/0XNa/2MyK/8rExP/GQsL/xEHB/8AAAD/AAAA/wAA + AP8AAAD/AAAA/wAAAP8AAAD/CAMD/xEHB/8iDw//MxcX/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0Uf + H/9FHx//RR8f/0UfH/95X17/7ezr/6+vrqsAAAAWAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAARzczMue/u7v9aODj/tmNO/9FzWv/MblT/ikk2/wAAAP8XEw7/LyYd/0A0 + J/9GOSv/TD0v/0Zta/9Gb2v/R1s8/0Y5K/9GOSv/LyYd/yMcFf8RDgr/AAAA/wQBAf8ZCwv/MxcX/0Uf + H/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//uKur/+3s6/9WVVVXAAAAAwAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAFtbGxG7+7u/6STk/+LSTz/z3FY/5VNOf9BJhv/Oi8k/1JP + Qv86foP/I5+1/xG42v8A0v//ANL//wDS//8A3///I9iC/yPYgv8j2IL/Lblo/zSmXf9DhVD/TGA//zov + JP8dFxL/AAAA/wgDA/8rExP/RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//Wjg4/+3s6//CwcDCAAAAEwAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAjQz8638O/u/2M+PP/FalL/bDoq/0A0 + J/9SXFL/I5+1/wDS//8A0v//ANL//wDS//8A0v//ANL//wDS//8A5v//I9iC/yPah/8k4Jf/JOKc/yXm + pv8l5qb/JN6R/yrDcf9AjlP/SlM5/y8mHf8FBAP/EQcH/zgZGf9FHx//RR8f/0UfH/9FHx//RR8f/66f + nv/t7Ov/PDs7PgAAAAEAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAB3q6ej1r6Gg/34/ + M/9lOyv/WEc2/y+PnP8A0v//ANL//wDS//8A0v//ANL//wDS//8A0v//ANL//wDS//8A7f//HdR//yLQ + bf8i0G3/ItBt/yLQbf8i0G3/I9iC/yTinP8l6Kz/I9yM/zieWf9QVzz/KSEZ/wAAAP8iDw//RR8f/0Uf + H/9FHx//RR8f/2RFRf/t7Ov/oaCfjAAAAAcAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAq6t + rW3w7+//cVxc/3VDMf9YVEb/Ebja/wDS//8A0v//ANL//wDS//8A2///AN///wDk//8A5P//AOn//wDt + //8B9///GdmR/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0nL/I9yM/yXorP8j2of/QI5T/0w9 + L/8RDgr/FQkJ/0AdHf9FHx//RR8f/0UfH//Y0tH/zs3MyQAAABQAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAACNXU1LLl4uL/HREP/1hHNv8RuNr/ANL//wDU//8A3///AOn//wDp//8A3///ANv//wDU + //8A0v//ANL//wDS//8A8v//Fd6j/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLS + cv8k4Jf/Jeam/y25aP9UTzn/IxwV/wwFBf9AHR3/RR8f/0UfH/+jkpH/7ezr/wAAACcAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAE+fm5uatqKj/Oi8k/y+PnP8A0v//AOL//wDm//8A2P//ANL//wDS + //8A0v//ANL//wDS//8A0v//ANL//wDS//8A6///EeO2/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQ + bf8i0G3/ItBt/yLQbf8i0G3/ItZ8/yXmpv8mzXn/UmRD/yMcFf8VCQn/RR8f/0UfH/+Ea2v/7ezr/4WF + hFQAAAABAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAhYSDOfDv7/9paGj/VE85/wXL8v8A6f//ANv//wDS + //8A0v//ANL//wDS//8A0v//ANL//wDS//8A0v//ANL//wDS//8A5P//C+rR/yLQbf8i0G3/ItBt/yLQ + bf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLScv8l6Kz/Js15/1JkQ/8jHBX/Ig8P/0Uf + H/9vUlL/7ezr/4+OjmkAAAADAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAArq2tWPHw7/9TT0r/QX1o/wDk + //8A1P//ANL//wDS//8A0v//ANL//wDS//8A0v//ANL//wDS//8A0v//ANL//wDS//8A2///Ce3a/yLQ + bf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0nL/Jeam/0t1 + Sf9YRzb/FRAM/zwbG/9PKyv/7ezr/8vKyZQAAAAEAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAB2NfXfPHw + 7/9TT0r/LqiH/wDW//8A0v//ANL//wDS//8A0v//ANL//wDS//8A0v//ANL//wDS//8A0v//ANL//wDS + //8A1P//Aff//yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/ym/ + Zv9AjlP/VlxA/15MOv9eTDr/Rjkr/xkLC/9FHx//7ezs/8rJyZUAAAAEAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAA2tnZe/Hw8P9TT0r/K82L/x/qzP8O3ef/ANL//wDS//8A0v//ANL//wDS//8A0v//ANL//wDS + //8A0v//ANL//wDS//8A0v//APL//yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQ + bf80pl3/S3VJ/15MOv9eTDr/Xkw6/15MOv9eTDr/Xkw6/xsUEP9AHR3/7u3s/8vKyZUAAAAEAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAvr29UPHw8P9KUkr/JeSh/yfwwf8n8MH/JO7E/xXi3P8E1ff/ANL//wDS + //8A0v//ANL//wDS//8A0v//ANL//wDS//8A0v//AOv//xnZkf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQ + bf8pv2b/QI5T/1ZcQP9eTDr/Xkw6/15MOv9eTDr/Xkw6/2VVOf9fTTn/Xkw6/zovJP8vFRX/7u3s/83M + y5MAAAADAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAApqWlLvHw8P9xnYT/JOKc/ybstv8n8MH/J/DB/yfw + wf8n8MH/GubU/wzb6/8A0v//ANL//wDS//8A0v//ANL//wDS//8A0v//AOT//xfcmv8i0G3/ItBt/yLQ + bf8i0G3/NKZd/0t1Sf9eTDr/Xkw6/15MOv9eTDr/Xkw6/15MOv9eTDr/Xkw6/2RTOf9kUzn/Xkw6/1JC + Mv83KSn/7u3s/8jHxoQAAAACAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAFPHw8P+J4K7/JOCX/yLQ + bf8j3Iz/Jeis/yfwwf8n8MH/J/DB/yfwwf8i7Mj/Ed/j/wLT+/8A0v//ANL//wDS//8A0v//ANv//xHj + tv8i0G3/Kb9m/0COU/9WXED/Xkw6/15MOv9eTDr/Xkw6/15MOv9eTDr/Xkw6/15MOv9eTDr/Xkw6/2VV + Of9oWDn/Xkw6/15MOv9MQ0L/7u3s/6alpFsAAAABAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAF/Hw + 8P+J4K7/I9yM/yPah/8i0G3/ItBt/yLUd/8k4pz/Ju67/yfwwf8n8MH/J/DB/yfwwf8Y5Nj/Cdnv/wDS + //8A0v//ANT//w3oyP8lx2n/R31N/1pUPf9eTDr/Xkw6/15MOv9eTDr/Xkw6/15MOv9eTDr/Xkw6/15M + Ov9eTDr/Xkw6/2laOP9lVTn/Xkw6/15MOv9saWn/7u3s/4OCgjkAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAFPHw8P+J4K7/ItJy/yXmpv8i0G3/ItBt/yLQbf8i0G3/ItBt/yPcjP8l6Kz/J/DB/yfw + wf8n8MH/J/DB/x/qzP8O3ef/AtP7/wvo0f8i0G3/ItBt/yXHaf88llb/VlxA/15MOv9eTDr/Xkw6/15M + Ov9eTDr/Xkw6/15MOv9eTDr/Xkw6/29gOP9gTzn/Xkw6/1JCMv+FhYX/7u3s/wAAABUAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAC/Lx8f+X4rf/ItBt/yTekf8j2IL/ItBt/yLQbf8i0G3/ItBt/yLQ + bf8i0G3/ItR3/yTinP8m7rv/J/DB/yfwwf8n8MH/JO7E/x7Yj/8i0G3/ItBt/yLQbf8i0G3/ItBt/zGv + YP9LdUn/Xkw6/15MOv9eTDr/Xkw6/15MOv9eTDr/X005/3FjOP9eTDr/Xkw6/zovJP/BwcD/4uHhyQAA + AAgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABOrp6cXI6dn/ItBt/yLQbf8l5KH/ItJy/yLQ + bf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/I9yM/ybqsf8n8MH/J/DB/yLQbf8i0G3/ItBt/yLQ + bf8i0G3/ItBt/yLQbf8i0G3/Kb9m/0OFUP9aVD3/Xkw6/15MOv9eTDr/ZFM5/21eOP9eTDr/Xkw6/zhB + O//v7u3/0M/OgAAAAAEAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAN/e3nny8fH/VtiO/yLQ + bf8i0nL/JeSh/yLScv8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8g2IX/I9yM/yLQ + bf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/OJ5Z/1JkQ/9eTDr/aVo4/2hY + Of9eTDr/LyYd/7Oysf/r6unyh4eGHAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAALOy + shXw7+/wu+fR/yLQbf8i0G3/ItJy/yPYgv8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/Fd6j/wvq + 0f8H7+P/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQ + bf8xr2D/V4NI/2RTOf86LyT/WWRg/+/u7f/f3t2IAAAAAQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAADm5eV18vHx/3rdqP8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/GdmR/w3o + yP8D9PX/Aff//wH3//8N6Mj/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQ + bf8i0G3/ItBt/yLQbf8i0G3/ItBt/yZuPv9ZWVn/7+7u/+jn58QAAAAGAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAD7u3twfLx8f9w3J7/ItBt/yLQbf8i0G3/G9eI/w/l + v/8F8uz/Aff//wH3//8B9///APD//wDi//8T1az/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQ + bf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8j2IL/I9yM/1uygP/v7u7/6unp0qalpRYAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAysnJE/Dv79Dy8fH/ady5/wjW + 2v8H7+P/Aff//wH3//8B9///APL//wDk//8A1v//ANL//wDS//8Z0pb/ItR3/yLQbf8i0G3/ItBt/yLQ + bf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItZ8/yXkof8l6Kz/ItZ8/7znzf/n5uXnjYyMGwAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAHp6 + eh/y8fH/l+X2/wDi//8B9///APL//wDm//8A2P//ANL//wDS//8A0v//ANL//wDS//8k3pH/Ju67/yXk + of8j2IL/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItZ8/yTekf8l6Kz/JeSh/yPYgv8i0G3/ItBt/+Pt + 5f/V1NOzAAAABAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAABLy8fH/eeH4/wDb//8A2P//ANL//wDS//8A0v//ANL//wDS//8A0v//ANL//wDS + //8Z0JH/ItJy/yTekf8m7Lb/Juy2/yTekf8i0nL/I9qH/yPcjP8k3pH/I9yM/yPYgv8i0G3/ItBt/yLQ + bf8i0G3/O9N9//Dv7v/KyciEAAAAAQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAXx8PDv4u/x/zzZ8/8A0v//ANL//wDS//8A0v//ANL//wDS + //8A0v//ANL//wDS//8R0bb/ItBt/yLQbf8i0G3/I9iC/yXkof8n8MH/JeSh/yPYgv8i0G3/ItBt/yLQ + bf8i0G3/ItBt/yLQbf8i0G3/YNiW//Dv7/+5uLhSAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAADi4eEz8O/v4PLx8f+X5O7/HtX9/wDS + //8A0v//ANL//wDS//8A0v//ANL//wDS//8I0dr/ItBt/yLQbf8i0G3/ItBt/yLQbf8i1Hf/JOCX/ybs + tv8m7Lb/I9yM/yLScv8i0G3/ItBt/yLQbf8i0G3/ht6v//Dv7/8AAAAYAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA1tXVEu3s + 7JLy8fH/8vHx/5fl9v8e1fX/ANL//wDS//8A0v//ANL//wDS//8A0v//ItBt/yLQbf8i0G3/ItBt/yLQ + bf8i0G3/ItBt/yLQbf8j3Iz/Jeis/yfwwf8l5KH/I9iC/yLQbf8i0G3/vOfO/+Tj49kAAAAMAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAADf3t4i7u3tofLx8f/y8fH/xOvz/1rd8v8e1f3/ANL//wDS//8A0v//GdCR/yLQ + bf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLUd/8l5KH/Ju67/ybuu/8i1nz/8O/v/9va + 2q4AAAAFAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAOPi4iHu7e2B8O/v4PLx8f/y8fH/xOrs/4ji + 7/9p3vH/L9S0/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItJy/yPc + jP9W3Jj/8fDv/8nIyHIAAAABAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAebl + 5TLt7OyB7u3twfLx8f/y8fH/y+rY/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQ + bf8i0G3/LtJ1/4ngrv/k7uf/7+7u8Lq6uSkAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAHc29s07Ovr5C/Sdf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQ + bf8i0G3/OdN+/2DZl/+h48D/4e3p//Hw8P/t7OzB0dDQJAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAB6ejopPLx8f+76NH/vujQ/77o + 0P++6ND/vujQ/7fn1P/y8fH/8vHw//Hw8P/v7+/w7OvrouPi4kMAAAABAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAz87OEu3s + 7JHv7u7B7u3twe3s7MLt7OzD7u3twu/u7sHs6+uT7u3tgenp6EEAAAADAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAD///4f//8AAP//wAH///////8AAD//9fb//AAAD//////wAAAH/6us/+AAAAP/////wAAAAP/+/v+A + AAAAf/7//wAAAAB/NVL/AAAAAD/3//4AAAAAHwtT/AAAAAAf9v/8AAAAAA8LL/gAAAAAD/X/+AAAAAAH + Cy/4AAAAAAcA//AAAAAABwsv8AAAAAAH9v/wAAAAAAMoL/AAAAAAAyv/8AAAAAADU1LgAAAAAANW//AA + AAAAAwtS8AAAAAAD///wAAAAAAMLUvAAAAAAA///8AAAAAAHAlLwAAAAAAf///AAAAAAB/f18AAAAAAH + ///4AAAAAA//gfgAAAAAD////AAAAAAfAAD8AAAAAD/P//4AAAAAfw///wAAAAB/Df//AAAAAH/M//8A + AAAA/9zf/4AAAAD/7c//wAAAAP/tD//wAAAA/+4P//wAAAD/vg///wAAAf/tz///8AAD/+zP///4AAf/ + 0P////wAP/8O/////////+////////////8oAAAAIAAAAEAAAAABACAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACAAAABwAA + ABEAAAAaAAAAHQAAAB8AAAAdAAAAHAAAABIAAAAIAAAAAgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACAAAADQAA + ACEAAAAuAAAAOQYGBlAMDAxTERERVg8PD1UGBgZQAwMDTwAAAC4AAAAhAAAADgAAAAIAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABwAA + AB8AAAA1ExMTWEJCQnqioqK5x8fG3NLS0ujV1dXr09PT6dDQ0OOkpKS+SUlJgBsbG1wDAwNPAAAAIAAA + AAgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AA0AAAAxFhYWWX5+fp7h4eDx+/v7/+rm5v/Hvb3/uays/7eoqP+4qqr/w7i3/+Tf3//8/Pz/4eHh8oGB + gaQbGxtcAAAAMAAAAA0AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAANAwMDT1dXV3zZ2dnq9vX1/7Wop/9nPTr/eT41/5xTQ/+LSTz/aDQt/18uKv9FHx//RR8f/1Uy + Mv+zpKT/9fT0/9nZ2exZWVmAAwMDTwAAAA4AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAABwMDA06Kioqe9vb2/cq/v/9pOzb/pVhH/79oUv95PjX/RR8f/0UfH/9FHx//RR8f/0Uf + H/9FHx//RR8f/0UfH/9PKyv/z8bF//Ly8vyLi4ugAwMDTgAAAAgAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAEDAwNPiYiImvv7+/+tmZj/k05A/9FzWv+CQzj/RR8f/0UfH/9FHx//RR8f/0Uf + H/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//ppSU//v7+/+KioqeAwMDTwAAAAEAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAI1BQUHX29vX9r5ua/7ZjTv/Rc1r/eT41/0UfH/9FHx//RR8f/0Uf + H/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//p5WV//b29v1VVVV6AAAAIgAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAMMDAxT4+Pj8MzDw/+lWEf/0XNa/5hRQf8vFRX/Ig8P/xEH + B/8RBwf/EQcH/xEHB/8RBwf/Ig8P/ysTE/9AHR3/RR8f/0UfH/9FHx//RR8f/0UfH/9FHx//ysDA/97d + 3e0RERFVAAAAAwAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAIJubm6Ty8fH/jFBF/85wV/+WTzr/NSMa/zQq + IP8vWlz/L4GM/y+PnP81kIH/QI5T/zNiO/81TTH/KSEZ/xEOCv8RBwf/KxMT/0UfH/9FHx//RR8f/0Uf + H/9PKyv/8u/v/5ubmqcAAAAfAAAAAAAAAAAAAAAAAAAAAAAAAAMRERFW5OTk8KuWlf+1YEn/fkw4/0Bo + Z/8dqMH/ANL//wDS//8A0v//ANL//xDk1P8k4pz/JOCX/yTinP8k4Jf/Naxs/zt0Rf8pIRn/DggH/y8V + Ff9FHx//RR8f/0UfH/+ij4//5OTk8QoKClEAAAACAAAAAAAAAAAAAAAAAAAAEnJycor5+fj/cTku/15O + QP8jn7X/ANL//wDS//8A0v//ANL//wDS//8A2///Cera/yLQbf8i0G3/ItBt/yLScv8j3Iz/JeSh/yvL + hv9BeEn/IxwV/xkLC/9FHx//RR8f/08rK//8/Pz/T09PdAAAAAsAAAAAAAAAAAAAAAAAAAAqw8PDztDL + y/9SOyz/Ebja/wDU//8A3///AOT//wDk//8A5P//AOL//wDf//8H7+P/ItBt/yLQbf8i0G3/ItBt/yLQ + bf8i0G3/I9iC/yXkof8xtXD/PDwr/xIKCf9AHR3/RR8f/+fj4/+pqamzAAAAHgAAAAAAAAAAAAAAAQoK + ClLk5OTyjouJ/y+PnP8A3f//AOb//wDW//8A0v//ANL//wDS//8A0v//ANL//wDt//8i0G3/ItBt/yLQ + bf8i0G3/ItBt/yLQbf8i0G3/ItBt/yTinP8vw4L/SEYy/x8QD/9FHx//xbm5/8vLy9cAAAAsAAAAAAAA + AAAAAAAEGRkZWvf39/1cU0v/CtTg/wDb//8A0v//ANL//wDS//8A0v//ANL//wDS//8A0v//AOb//x3U + f/8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yPcjP85pm7/QDQn/ysTE/+lkpL/4+Li7gMD + A08AAAAAAAAAAAAAAAQbGxtc/v7+/yM+Jv8H3vP/ANL//wDS//8A0v//ANL//wDS//8A0v//ANL//wDS + //8A4v//GdmR/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf80pl3/S3VJ/15MOv9eTDr/KyAZ/494 + eP/p6enzAwMDTwAAAAAAAAAAAAAAAxEREVb//v7/KGpJ/yfwwf8f6sz/Dt3n/wDS//8A0v//ANL//wDS + //8A0v//ANL//wDb//8T4az/ItBt/yLQbf8i0G3/ItBt/ym/Zv9AjlP/VlxA/15MOv9eTDr/YVA5/19N + Of9GOSv/hXR0/+jo6PMDAwNPAAAAAAAAAAAAAAABBgYGUOvq6vVzwpj/Jeis/ybuu/8n8MH/JO7E/xXi + 3P8E1ff/ANL//wDS//8A0v//ANL//xHjtv8i0G3/ItBt/zGvYP9LdUn/Xkw6/15MOv9eTDr/Xkw6/15M + Ov9jUjn/Y1I5/15MOv+jnp7/3Nvb5QAAADMAAAAAAAAAAAAAAAEKCgpS6urq9XfgpP8k4pz/ItJy/yPc + jP8m6rH/J/DB/yfwwf8a5tT/DNvr/wDS//8A0v//Ceba/yLQbf9PbUb/Xkw6/15MOv9eTDr/Xkw6/15M + Ov9eTDr/Xkw6/2VVOf9jUjn/Xkw6/7a1tf/Ly8vQAAAAKQAAAAAAAAAAAAAAAQYGBlDq6ur1eOCl/yTi + nP8i0nL/ItBt/yLQbf8j2IL/JeSh/yfwwf8n8MH/IuzI/xPh4P8J49//ItBt/yLQbf80pl3/T21G/15M + Ov9eTDr/Xkw6/15MOv9eTDr/a1s4/2BPOf9YRzb/5OTk/6enp6gAAAAbAAAAAAAAAAAAAAAAAAAAMtzc + 3OSq6cX/ItJy/yTinP8i0G3/ItBt/yLQbf8i0G3/ItJy/yTekf8m7Lb/J/DB/yTekf8i0G3/ItBt/yLQ + bf8i0G3/Kb9m/0OFUP9aVD3/Xkw6/15MOv9vYDj/Xkw6/0k+M//8/Pz/QUFBZQAAAAcAAAAAAAAAAAAA + AAAAAAAaqKiopvL59f8i0G3/ItZ8/yTgl/8i0G3/ItBt/yLQbf8i0G3/ItBt/x/Sdv8f3JT/ItR3/yLQ + bf8i0G3/ItBt/yLQbf8i0G3/ItBt/yXHaf84nln/WV9A/2xdOP9SQjL/uLe3/9vb2+IAAAAyAAAAAAAA + AAAAAAAAAAAAAAAAAAEDAwNO7u7u97Hryv8i0G3/ItBt/yLQbf8i0G3/ItBt/xfcmv8N6Mj/Aff//xPh + rP8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/NodM/6Wjof/5+fn+ZWVlcwAA + ABIAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAB9+fn6A+fn5/qXpwv8b0Ij/G9eI/w/lv/8D9PX/Aff//wDw + //8A3///G9KI/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf8i0G3/ItR3/yXmpv9e0Zf/+fn5/n9/ + f4IAAAAoAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACiCgoKI/Pz8/wLb9f8B9///APD//wDi + //8A1v//ANL//wDS//8k4Jf/JeSh/yLUd/8i0G3/ItBt/yLQbf8i0nL/I9qH/yTinP8l5KH/ItR3/8Du + 0//Ly8vPAAAAKQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAxYWFln+/v7/D9j+/wDW + //8A0v//ANL//wDS//8A0v//ANL//x3Qf/8j2IL/Jeam/yXorP8k4Jf/I9qH/yPcjP8j2IL/ItBt/yLQ + bf8i0G3/6Pfu/6ioqKcAAAAbAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAMNva + 2t/s+Pn/ceP8/wDS//8A0v//ANL//wDS//8A0v//E9Cs/yLQbf8i0G3/ItR3/yTgl/8m7Lb/JOKc/yLU + d/8i0G3/ItBt/yLQbf/8/f3/RUVFaQAAAAgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAARAAAAMKenp6H09PT74/f7/3Hj9v8A0v//ANL//wDS//8K0dH/ItBt/yLQbf8i0G3/ItBt/yLQ + bf8j3Iz/Jeis/yXorP8j3Iz/XNuW//X19fwKCgpSAAAAAQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAJAAAAEO1tbWv7u3t9/v9/f/R9Pv/juj2/2Dg9P8i0G3/ItBt/yLQ + bf8i0G3/ItBt/yLQbf8i0G3/ItZ8/yXkof+Z6sT/4uLi7AAAADcAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAB8AAAA/YmJicMDAwLzh4eHo7u7u+JDm + tP8i0G3/ItBt/yLQbf8i0G3/ItBt/yLQbf851H//v+7T//z9/P+mpqahAAAAGQAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAKAAAAIgAA + ADWAgICD//////////////////////////////////////n5+f7a2trfYmJicAAAAC0AAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAC1wcHCQgYCApoCAgKeAf3+ngYCApnh4eJtYWFh6AAAASAAAADAAAAARAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAP/gA///gAD//wAAf/4AAD/8AAAf+AAAD/AAAAfwAAAH4AAAA+AA + AAPAAAABwAAAAcAAAAGAAAABgAAAAYAAAAGAAAABgAAAAYAAAAGAAAABwAAAAcAAAAPAAAAD4AAAB/AA + AA/wAAAP+AAAD/gAAA/+AAAf/4AAH//gAD///AB/KAAAABAAAAAgAAAAAQAgAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABAAAAA2AwMDR1paWoN+fn6vf39+t319fKwiIiJlAAAAPwAA + ACsAAAAFAAAAAAAAAAAAAAAAAAAAAAAAAAoAAAA+lZWUlODe3vPv6ej/5NLO/9fIxf/RyMj/+fj4/8jH + x9tDQ0NnAAAANAAAAAEAAAAAAAAAAAAAAAAAAAA8tLS0sejd3P/IkoX/eT41/0UfH/9FHx//RR8f/0wn + J/+mlJT/7Ovr+kpKSm0AAAAoAAAAAAAAAAAAAAAolJSUkevg3v/PiXb/Tici/yIPD/8iDw//KxMT/zgZ + Gf9FHx//RR8f/6KPj//k4uL1CgoKUQAAAAIAAAAAAAAARu/u7fvSmor/VICE/x2bsf8XsM3/LLyQ/zO/ + iv8pg1r/JDAg/zEYF/9FHx//w7e3/7W0tLcAAAAgAAAAD319fYHr5eP/HbTO/wDf//8A3f//AN///xnZ + kf8i0G3/ItZ8/yTgl/8un2z/KSQb/3JYWP/d3NzvAAAAOQAAACfKysrJlcTH/wDi//8A1P//ANL//wDS + //8R4bb/ItBt/yLQbf8i0G3/ItZ8/y/Hjf9GMzD/8vHx/QMDA04AAAAnysrKyYjTx/8H1/P/ANL//wDS + //8A0v//D9y//yLQbf8i0G3/Jcdp/zyWVv9XXkD/UkIy//7+/v8GBgZQAAAAJsrKysiR6cj/Jeam/x/q + zP8O3ef/ANL//wja2v8pv2b/R31N/15MOv9eTDr/Y1I5/3prVv/m5eX6AwMDTwAAACLAwMC7pO7N/yPY + gv8i1Hf/JOCX/yPquv8V5dH/ItBt/ym/Zv9HfU3/WlQ9/2dWOf+QhHj/1dTU6wAAADYAAAAKY2NjcO77 + 9P9S4J3/ItBt/yLQbf8V3qP/INiF/yLQbf8i0G3/ItBt/yXHaf9hnWT/3dvZ/5SUk5IAAAAXAAAAAAAA + AC20s7OtwPLs/w3oyP8C6fX/AN///yTekf8i0nL/ItBt/yLWfP8k3pH/pO/O/8DAwMIAAAAtAAAAAAAA + AAAAAAAAAAAASPX5+v536P//ANL//wDS//8g1ID/JOKc/yXorP8k4Jf/ItBt/9336f+BgICGAAAAEAAA + AAAAAAAAAAAAAAAAAChiYmJvz9nb3/b9/v+x8P7/Sdqw/yLQbf8i0G3/I9yM/0Xor//9//7/CgoKUgAA + AAEAAAAAAAAAAAAAAAAAAAAAAAAAEAAAADA7OztetLS0rery7vvV9eP/1fXj/9X14//0+Pb+uL67vQAA + AC0AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABQAAACRiYmJvfX19m319fZt9fX2aAAAASAAA + ACgAAAACAAAAAAAAAADgAzV7wAEAAMABAACAAMABgACAAAAAgAAAAAAAAAAAAAAAAAAAAAAAAAAAAIAB + AADAAYABwAHAAeADwAH4A+AD + + + \ No newline at end of file diff --git a/ArinWarev1/Forms/v20091231/Frm_v20091231_ResultTotal.vb b/ArinWarev1/Forms/v20091231/Frm_v20091231_ResultTotal.vb new file mode 100644 index 0000000..cd3cba0 --- /dev/null +++ b/ArinWarev1/Forms/v20091231/Frm_v20091231_ResultTotal.vb @@ -0,0 +1,71 @@ +Public Class Frm_v20091231_ResultTotal + +#Region "data Base 변경여부및 적용방법" + + '''변경된내용을적용한다. + Public Overrides Function AcceptChanged() As Boolean + + Return True + End Function + + '''변경된내용이있다면 취소한다. + Public Overrides Function RejectChanged() As Boolean + + Return True + End Function + + '''데이터에변형이있었는가? + Public Overrides Function HasChanged() As Boolean + Return False + End Function + + +#End Region + + + + Private Sub Frm_v20091231_RepResult_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load + Me.bs.DataSource = DSETR.TReqUse + Me.DSR.TReqUse.Merge(DSETR.TReqUse) + + 'Dim Grp_요구량 As New ListViewGroup("grp_요구량", "에너지요구량") + 'Dim Grp_소요량 As New ListViewGroup("grp_소요량", "에너지소요량") + 'Dim A As ListViewItem + 'Dim Idx As Short = 0 + + 'Me.ListView1.Groups.Add(Grp_요구량) + 'Me.ListView1.Groups.Add(Grp_소요량) + + 'A = New ListViewItem(New String() {"에너지요구량", "단위", "기호", "", "합계", "01월", "02월", "03월", "04월", "05월", "06월", "07월", "08월", "09월", "10월", "11월", "12월"}, Grp_요구량) + 'Me.ListView1.Items.Add(A) + + 'Idx = 1 + 'A = New ListViewItem(New String() {"에너지요구량", "[kWh]", "Qb", "=", Ru(Idx).ToString, Ru(Idx, "M01").ToString, Ru(Idx, "M01").ToString, Ru(Idx, "M01").ToString, Ru(Idx, "M01").ToString, Ru(Idx, "M01").ToString, Ru(Idx, "M01").ToString, Ru(Idx, "M01").ToString, Ru(Idx, "M01").ToString, Ru(Idx, "M01").ToString, Ru(Idx, "M01").ToString, Ru(Idx, "M01").ToString, Ru(Idx, "M01").ToString}, Grp_요구량) + 'Me.ListView1.Items.Add(A) + + 'Idx = 2 + 'A = New ListViewItem(New String() {"에너지요구량-사용면적당", "[kWh/m²]", "Σ(Qb / Ab)", "=", Ru(Idx).ToString, Ru(Idx, "M01").ToString, Ru(Idx, "M01").ToString, Ru(Idx, "M01").ToString, Ru(Idx, "M01").ToString, Ru(Idx, "M01").ToString, Ru(Idx, "M01").ToString, Ru(Idx, "M01").ToString, Ru(Idx, "M01").ToString, Ru(Idx, "M01").ToString, Ru(Idx, "M01").ToString, Ru(Idx, "M01").ToString, Ru(Idx, "M01").ToString}, Grp_요구량) + 'Me.ListView1.Items.Add(A) + + 'A = New ListViewItem(New String() {"에너지요구량분석"}, Grp_요구량) + 'Me.ListView1.Items.Add(A) + + 'Idx = 3 + 'A = New ListViewItem(New String() {"난방에너지요구량", "[kWh]", "QH,b", "=", Ru(Idx).ToString, Ru(Idx, "M01").ToString, Ru(Idx, "M01").ToString, Ru(Idx, "M01").ToString, Ru(Idx, "M01").ToString, Ru(Idx, "M01").ToString, Ru(Idx, "M01").ToString, Ru(Idx, "M01").ToString, Ru(Idx, "M01").ToString, Ru(Idx, "M01").ToString, Ru(Idx, "M01").ToString, Ru(Idx, "M01").ToString, Ru(Idx, "M01").ToString}, Grp_요구량) + 'Me.ListView1.Items.Add(A) + + 'Idx = 4 + 'A = New ListViewItem(New String() {"난방에너지요구량(열)", "[kWh]", "Qh,b", "=", Ru(Idx).ToString, Ru(Idx, "M01").ToString, Ru(Idx, "M01").ToString, Ru(Idx, "M01").ToString, Ru(Idx, "M01").ToString, Ru(Idx, "M01").ToString, Ru(Idx, "M01").ToString, Ru(Idx, "M01").ToString, Ru(Idx, "M01").ToString, Ru(Idx, "M01").ToString, Ru(Idx, "M01").ToString, Ru(Idx, "M01").ToString, Ru(Idx, "M01").ToString}, Grp_요구량) + 'Me.ListView1.Items.Add(A) + + 'Idx = 5 + 'A = New ListViewItem(New String() {"난방에너지요구량(공조,환기)", "[kWh]", "Qh,b", "=", Ru(Idx).ToString, Ru(Idx, "M01").ToString, Ru(Idx, "M01").ToString, Ru(Idx, "M01").ToString, Ru(Idx, "M01").ToString, Ru(Idx, "M01").ToString, Ru(Idx, "M01").ToString, Ru(Idx, "M01").ToString, Ru(Idx, "M01").ToString, Ru(Idx, "M01").ToString, Ru(Idx, "M01").ToString, Ru(Idx, "M01").ToString, Ru(Idx, "M01").ToString}, Grp_요구량) + 'Me.ListView1.Items.Add(A) + + Me.ReportViewer1.ZoomMode = Microsoft.Reporting.WinForms.ZoomMode.PageWidth + Me.ReportViewer1.RefreshReport() + End Sub + +End Class + + diff --git a/ArinWarev1/Forms/v20091231/Frm_v20091231_Weather.Designer.vb b/ArinWarev1/Forms/v20091231/Frm_v20091231_Weather.Designer.vb new file mode 100644 index 0000000..d56b79d --- /dev/null +++ b/ArinWarev1/Forms/v20091231/Frm_v20091231_Weather.Designer.vb @@ -0,0 +1,3736 @@ + _ +Partial Class Frm_V20091231_Weather + Inherits CForm + + 'Form은 Dispose를 재정의하여 구성 요소 목록을 정리합니다. + _ + Protected Overrides Sub Dispose(ByVal disposing As Boolean) + Try + If disposing AndAlso components IsNot Nothing Then + components.Dispose() + End If + Finally + MyBase.Dispose(disposing) + End Try + End Sub + + 'Windows Form 디자이너에 필요합니다. + Private components As System.ComponentModel.IContainer + + '참고: 다음 프로시저는 Windows Form 디자이너에 필요합니다. + '수정하려면 Windows Form 디자이너를 사용하십시오. + '코드 편집기를 사용하여 수정하지 마십시오. + _ + 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 + Dim Label79 As System.Windows.Forms.Label + Dim Label80 As System.Windows.Forms.Label + Dim Label81 As System.Windows.Forms.Label + Dim Label82 As System.Windows.Forms.Label + Dim Label83 As System.Windows.Forms.Label + Dim Label84 As System.Windows.Forms.Label + Dim Label85 As System.Windows.Forms.Label + Dim Label86 As System.Windows.Forms.Label + Dim Label87 As System.Windows.Forms.Label + Dim Label90 As System.Windows.Forms.Label + Dim Label91 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 Label28 As System.Windows.Forms.Label + Dim Label29 As System.Windows.Forms.Label + Dim Label30 As System.Windows.Forms.Label + Dim Label31 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 Label35 As System.Windows.Forms.Label + Dim Label36 As System.Windows.Forms.Label + Dim Label37 As System.Windows.Forms.Label + Dim Label38 As System.Windows.Forms.Label + Dim Label92 As System.Windows.Forms.Label + Dim Label93 As System.Windows.Forms.Label + Dim Label94 As System.Windows.Forms.Label + Dim Label95 As System.Windows.Forms.Label + Dim Label96 As System.Windows.Forms.Label + Dim Label97 As System.Windows.Forms.Label + Dim Label98 As System.Windows.Forms.Label + Dim Label99 As System.Windows.Forms.Label + Dim Label100 As System.Windows.Forms.Label + Dim Label101 As System.Windows.Forms.Label + Dim Label40 As System.Windows.Forms.Label + Dim Label41 As System.Windows.Forms.Label + Dim Label42 As System.Windows.Forms.Label + Dim Label43 As System.Windows.Forms.Label + Dim Label44 As System.Windows.Forms.Label + Dim Label45 As System.Windows.Forms.Label + Dim Label46 As System.Windows.Forms.Label + Dim Label47 As System.Windows.Forms.Label + Dim Label48 As System.Windows.Forms.Label + Dim Label49 As System.Windows.Forms.Label + Dim Label50 As System.Windows.Forms.Label + Dim Label51 As System.Windows.Forms.Label + Dim Label52 As System.Windows.Forms.Label + Dim Label53 As System.Windows.Forms.Label + Dim Label54 As System.Windows.Forms.Label + Dim Label55 As System.Windows.Forms.Label + Dim Label56 As System.Windows.Forms.Label + Dim Label57 As System.Windows.Forms.Label + Dim Label58 As System.Windows.Forms.Label + Dim Label59 As System.Windows.Forms.Label + Dim Label60 As System.Windows.Forms.Label + Dim Label61 As System.Windows.Forms.Label + Dim Label62 As System.Windows.Forms.Label + Dim Label63 As System.Windows.Forms.Label + Dim Label1 As System.Windows.Forms.Label + Dim Label2 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 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 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.TabControl3 = New System.Windows.Forms.TabControl() + Me.TabPage1 = New System.Windows.Forms.TabPage() + Me.GroupBox2 = New System.Windows.Forms.GroupBox() + Me.Panel3 = New System.Windows.Forms.Panel() + Me.TableLayoutPanel7 = New System.Windows.Forms.TableLayoutPanel() + Me.tb_w12 = New Eco2Ar.MyTb() + Me.bs = New System.Windows.Forms.BindingSource(Me.components) + Me.DS = New Eco2Ar.DS() + Me.tb_w11 = New Eco2Ar.MyTb() + Me.tb_w10 = New Eco2Ar.MyTb() + Me.tb_w06 = New Eco2Ar.MyTb() + Me.tb_w09 = New Eco2Ar.MyTb() + Me.tb_w05 = New Eco2Ar.MyTb() + Me.tb_w04 = New Eco2Ar.MyTb() + Me.tb_w08 = New Eco2Ar.MyTb() + Me.tb_w01 = New Eco2Ar.MyTb() + 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() + Me.tb_v4 = New Eco2Ar.MyTb() + Me.tb_v2 = New Eco2Ar.MyTb() + Me.tb_v3 = New Eco2Ar.MyTb() + Me.tb_v7 = New Eco2Ar.MyTb() + Me.tb_v8 = New Eco2Ar.MyTb() + Me.tb_v9 = New Eco2Ar.MyTb() + 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() + Me.tb_t16 = New Eco2Ar.MyTb() + Me.tb_t15 = New Eco2Ar.MyTb() + Me.tb_t14 = New Eco2Ar.MyTb() + Me.tb_t2 = New Eco2Ar.MyTb() + Me.tb_t13 = New Eco2Ar.MyTb() + Me.tb_t6 = New Eco2Ar.MyTb() + Me.tb_t19 = New Eco2Ar.MyTb() + Me.tb_t5 = New Eco2Ar.MyTb() + Me.tb_t20 = New Eco2Ar.MyTb() + Me.tb_t4 = New Eco2Ar.MyTb() + Me.tb_t21 = New Eco2Ar.MyTb() + Me.tb_t3 = New Eco2Ar.MyTb() + Me.tb_t22 = New Eco2Ar.MyTb() + Me.tb_t23 = New Eco2Ar.MyTb() + Me.tb_t12 = New Eco2Ar.MyTb() + Me.tb_t24 = New Eco2Ar.MyTb() + Me.tb_t11 = New Eco2Ar.MyTb() + Me.tb_t10 = New Eco2Ar.MyTb() + 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() + Me.tb_s22 = New Eco2Ar.MyTb() + Me.tb_s11 = New Eco2Ar.MyTb() + Me.tb_s21 = New Eco2Ar.MyTb() + Me.tb_s1 = New Eco2Ar.MyTb() + Me.tb_s20 = New Eco2Ar.MyTb() + Me.tb_s10 = New Eco2Ar.MyTb() + Me.tb_s19 = New Eco2Ar.MyTb() + Me.tb_s3 = New Eco2Ar.MyTb() + Me.tb_s18 = New Eco2Ar.MyTb() + Me.tb_s9 = New Eco2Ar.MyTb() + Me.tb_s2 = New Eco2Ar.MyTb() + Me.tb_s17 = New Eco2Ar.MyTb() + Me.tb_s16 = New Eco2Ar.MyTb() + Me.tb_s8 = New Eco2Ar.MyTb() + Me.tb_s15 = New Eco2Ar.MyTb() + Me.tb_s14 = New Eco2Ar.MyTb() + Me.tb_s4 = New Eco2Ar.MyTb() + Me.tb_s13 = New Eco2Ar.MyTb() + 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() + Me.tb_c06 = New Eco2Ar.MyTb() + Me.tb_c10 = New Eco2Ar.MyTb() + Me.tb_c09 = New Eco2Ar.MyTb() + Me.tb_c05 = New Eco2Ar.MyTb() + Me.tb_c08 = New Eco2Ar.MyTb() + Me.tb_c04 = New Eco2Ar.MyTb() + 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.dv = New CEnergy.arindv() + Me.건물위치DataGridViewTextBoxColumn = New System.Windows.Forms.DataGridViewTextBoxColumn() + 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() + 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() + Label64 = New System.Windows.Forms.Label() + Label77 = New System.Windows.Forms.Label() + Label78 = New System.Windows.Forms.Label() + Label79 = New System.Windows.Forms.Label() + Label80 = New System.Windows.Forms.Label() + Label81 = New System.Windows.Forms.Label() + Label82 = New System.Windows.Forms.Label() + Label83 = New System.Windows.Forms.Label() + Label84 = New System.Windows.Forms.Label() + Label85 = New System.Windows.Forms.Label() + Label86 = New System.Windows.Forms.Label() + Label87 = New System.Windows.Forms.Label() + Label90 = New System.Windows.Forms.Label() + Label91 = New System.Windows.Forms.Label() + Label25 = New System.Windows.Forms.Label() + Label26 = New System.Windows.Forms.Label() + Label27 = New System.Windows.Forms.Label() + Label28 = New System.Windows.Forms.Label() + Label29 = New System.Windows.Forms.Label() + Label30 = New System.Windows.Forms.Label() + Label31 = New System.Windows.Forms.Label() + Label32 = New System.Windows.Forms.Label() + Label33 = New System.Windows.Forms.Label() + Label34 = New System.Windows.Forms.Label() + Label35 = New System.Windows.Forms.Label() + Label36 = New System.Windows.Forms.Label() + Label37 = New System.Windows.Forms.Label() + Label38 = New System.Windows.Forms.Label() + Label92 = New System.Windows.Forms.Label() + Label93 = New System.Windows.Forms.Label() + Label94 = New System.Windows.Forms.Label() + Label95 = New System.Windows.Forms.Label() + Label96 = New System.Windows.Forms.Label() + Label97 = New System.Windows.Forms.Label() + Label98 = New System.Windows.Forms.Label() + Label99 = New System.Windows.Forms.Label() + Label100 = New System.Windows.Forms.Label() + Label101 = New System.Windows.Forms.Label() + Label40 = New System.Windows.Forms.Label() + Label41 = New System.Windows.Forms.Label() + Label42 = New System.Windows.Forms.Label() + Label43 = New System.Windows.Forms.Label() + Label44 = New System.Windows.Forms.Label() + Label45 = New System.Windows.Forms.Label() + Label46 = New System.Windows.Forms.Label() + Label47 = New System.Windows.Forms.Label() + Label48 = New System.Windows.Forms.Label() + Label49 = New System.Windows.Forms.Label() + Label50 = New System.Windows.Forms.Label() + Label51 = New System.Windows.Forms.Label() + Label52 = New System.Windows.Forms.Label() + Label53 = New System.Windows.Forms.Label() + Label54 = New System.Windows.Forms.Label() + Label55 = New System.Windows.Forms.Label() + Label56 = New System.Windows.Forms.Label() + Label57 = New System.Windows.Forms.Label() + Label58 = New System.Windows.Forms.Label() + Label59 = New System.Windows.Forms.Label() + Label60 = New System.Windows.Forms.Label() + Label61 = New System.Windows.Forms.Label() + Label62 = New System.Windows.Forms.Label() + Label63 = New System.Windows.Forms.Label() + Label1 = New System.Windows.Forms.Label() + Label2 = 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() + 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() + CType(Me.bn_all,System.ComponentModel.ISupportInitialize).BeginInit + Me.bn_all.SuspendLayout + Me.TabControl3.SuspendLayout + Me.TabPage1.SuspendLayout + Me.GroupBox2.SuspendLayout + Me.Panel3.SuspendLayout + Me.TableLayoutPanel7.SuspendLayout + CType(Me.bs,System.ComponentModel.ISupportInitialize).BeginInit + CType(Me.DS,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 + Me.BindingNavigator1.SuspendLayout + 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 + Me.BindingNavigator4.SuspendLayout + 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 + Me.BindingNavigator5.SuspendLayout + 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 + CType(Me.dv,System.ComponentModel.ISupportInitialize).BeginInit + Me.StatusStrip1.SuspendLayout + Me.SuspendLayout + ' + 'Label39 + ' + Label39.AutoSize = true + Label39.Location = New System.Drawing.Point(15, 22) + Label39.Name = "Label39" + Label39.Size = New System.Drawing.Size(107, 14) + Label39.TabIndex = 120 + Label39.Text = "평균일사(최대부하):" + ' + 'Label247 + ' + Label247.Anchor = System.Windows.Forms.AnchorStyles.None + Label247.AutoSize = true + Label247.Location = New System.Drawing.Point(4, 315) + Label247.Name = "Label247" + Label247.Size = New System.Drawing.Size(88, 14) + Label247.TabIndex = 30 + Label247.Text = "평균일사(12월):" + ' + 'Label248 + ' + Label248.Anchor = System.Windows.Forms.AnchorStyles.None + Label248.AutoSize = true + Label248.Location = New System.Drawing.Point(4, 287) + Label248.Name = "Label248" + Label248.Size = New System.Drawing.Size(88, 14) + Label248.TabIndex = 28 + Label248.Text = "평균일사(11월):" + ' + 'Label249 + ' + Label249.Anchor = System.Windows.Forms.AnchorStyles.None + Label249.AutoSize = true + Label249.Location = New System.Drawing.Point(4, 259) + Label249.Name = "Label249" + Label249.Size = New System.Drawing.Size(88, 14) + Label249.TabIndex = 26 + Label249.Text = "평균일사(10월):" + ' + 'Label250 + ' + Label250.Anchor = System.Windows.Forms.AnchorStyles.None + Label250.AutoSize = true + Label250.Location = New System.Drawing.Point(7, 231) + Label250.Name = "Label250" + Label250.Size = New System.Drawing.Size(81, 14) + Label250.TabIndex = 24 + Label250.Text = "평균일사(9월):" + ' + 'Label251 + ' + Label251.Anchor = System.Windows.Forms.AnchorStyles.None + Label251.AutoSize = true + Label251.Location = New System.Drawing.Point(7, 147) + Label251.Name = "Label251" + Label251.Size = New System.Drawing.Size(81, 14) + Label251.TabIndex = 18 + Label251.Text = "평균일사(6월):" + ' + 'Label252 + ' + Label252.Anchor = System.Windows.Forms.AnchorStyles.None + Label252.AutoSize = true + Label252.Location = New System.Drawing.Point(7, 203) + Label252.Name = "Label252" + Label252.Size = New System.Drawing.Size(81, 14) + Label252.TabIndex = 22 + Label252.Text = "평균일사(8월):" + ' + 'Label253 + ' + Label253.Anchor = System.Windows.Forms.AnchorStyles.None + Label253.AutoSize = true + Label253.Location = New System.Drawing.Point(7, 119) + Label253.Name = "Label253" + Label253.Size = New System.Drawing.Size(81, 14) + Label253.TabIndex = 16 + Label253.Text = "평균일사(5월):" + ' + 'Label254 + ' + Label254.Anchor = System.Windows.Forms.AnchorStyles.None + Label254.AutoSize = true + Label254.Location = New System.Drawing.Point(7, 175) + Label254.Name = "Label254" + Label254.Size = New System.Drawing.Size(81, 14) + Label254.TabIndex = 20 + Label254.Text = "평균일사(7월):" + ' + 'Label255 + ' + Label255.Anchor = System.Windows.Forms.AnchorStyles.None + Label255.AutoSize = true + Label255.Location = New System.Drawing.Point(7, 91) + Label255.Name = "Label255" + Label255.Size = New System.Drawing.Size(81, 14) + Label255.TabIndex = 14 + Label255.Text = "평균일사(4월):" + ' + 'Label256 + ' + Label256.Anchor = System.Windows.Forms.AnchorStyles.None + Label256.AutoSize = true + Label256.Location = New System.Drawing.Point(7, 7) + Label256.Name = "Label256" + Label256.Size = New System.Drawing.Size(81, 14) + Label256.TabIndex = 8 + Label256.Text = "평균일사(1월):" + ' + 'Label257 + ' + Label257.Anchor = System.Windows.Forms.AnchorStyles.None + Label257.AutoSize = true + Label257.Location = New System.Drawing.Point(7, 63) + Label257.Name = "Label257" + Label257.Size = New System.Drawing.Size(81, 14) + Label257.TabIndex = 12 + Label257.Text = "평균일사(3월):" + ' + 'Label258 + ' + Label258.Anchor = System.Windows.Forms.AnchorStyles.None + Label258.AutoSize = true + Label258.Location = New System.Drawing.Point(7, 35) + Label258.Name = "Label258" + Label258.Size = New System.Drawing.Size(81, 14) + Label258.TabIndex = 10 + Label258.Text = "평균일사(2월):" + ' + 'Label64 + ' + Label64.Anchor = System.Windows.Forms.AnchorStyles.None + Label64.AutoSize = true + Label64.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label64.Location = New System.Drawing.Point(211, 147) + Label64.Name = "Label64" + Label64.Size = New System.Drawing.Size(88, 14) + Label64.TabIndex = 30 + Label64.Text = "외기온도(12월):" + ' + 'Label77 + ' + Label77.Anchor = System.Windows.Forms.AnchorStyles.None + Label77.AutoSize = true + Label77.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label77.Location = New System.Drawing.Point(211, 119) + Label77.Name = "Label77" + Label77.Size = New System.Drawing.Size(88, 14) + Label77.TabIndex = 28 + Label77.Text = "외기온도(11월):" + ' + 'Label78 + ' + Label78.Anchor = System.Windows.Forms.AnchorStyles.None + Label78.AutoSize = true + Label78.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label78.Location = New System.Drawing.Point(211, 91) + Label78.Name = "Label78" + Label78.Size = New System.Drawing.Size(88, 14) + Label78.TabIndex = 26 + Label78.Text = "외기온도(10월):" + ' + 'Label79 + ' + Label79.Anchor = System.Windows.Forms.AnchorStyles.None + Label79.AutoSize = true + Label79.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label79.Location = New System.Drawing.Point(214, 63) + Label79.Name = "Label79" + Label79.Size = New System.Drawing.Size(81, 14) + Label79.TabIndex = 24 + Label79.Text = "외기온도(9월):" + ' + 'Label80 + ' + Label80.Anchor = System.Windows.Forms.AnchorStyles.None + Label80.AutoSize = true + Label80.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label80.Location = New System.Drawing.Point(11, 147) + Label80.Name = "Label80" + Label80.Size = New System.Drawing.Size(81, 14) + Label80.TabIndex = 18 + Label80.Text = "외기온도(6월):" + ' + 'Label81 + ' + Label81.Anchor = System.Windows.Forms.AnchorStyles.None + Label81.AutoSize = true + Label81.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label81.Location = New System.Drawing.Point(214, 35) + Label81.Name = "Label81" + Label81.Size = New System.Drawing.Size(81, 14) + Label81.TabIndex = 22 + Label81.Text = "외기온도(8월):" + ' + 'Label82 + ' + Label82.Anchor = System.Windows.Forms.AnchorStyles.None + Label82.AutoSize = true + Label82.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label82.Location = New System.Drawing.Point(11, 119) + Label82.Name = "Label82" + Label82.Size = New System.Drawing.Size(81, 14) + Label82.TabIndex = 16 + Label82.Text = "외기온도(5월):" + ' + 'Label83 + ' + Label83.Anchor = System.Windows.Forms.AnchorStyles.None + Label83.AutoSize = true + Label83.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label83.Location = New System.Drawing.Point(214, 7) + Label83.Name = "Label83" + Label83.Size = New System.Drawing.Size(81, 14) + Label83.TabIndex = 20 + Label83.Text = "외기온도(7월):" + ' + 'Label84 + ' + Label84.Anchor = System.Windows.Forms.AnchorStyles.None + Label84.AutoSize = true + Label84.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label84.Location = New System.Drawing.Point(11, 91) + Label84.Name = "Label84" + Label84.Size = New System.Drawing.Size(81, 14) + Label84.TabIndex = 14 + Label84.Text = "외기온도(4월):" + ' + 'Label85 + ' + Label85.Anchor = System.Windows.Forms.AnchorStyles.None + Label85.AutoSize = true + Label85.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label85.Location = New System.Drawing.Point(11, 7) + Label85.Name = "Label85" + Label85.Size = New System.Drawing.Size(81, 14) + Label85.TabIndex = 8 + Label85.Text = "외기온도(1월):" + ' + 'Label86 + ' + Label86.Anchor = System.Windows.Forms.AnchorStyles.None + Label86.AutoSize = true + Label86.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label86.Location = New System.Drawing.Point(11, 63) + Label86.Name = "Label86" + Label86.Size = New System.Drawing.Size(81, 14) + Label86.TabIndex = 12 + Label86.Text = "외기온도(3월):" + ' + 'Label87 + ' + Label87.Anchor = System.Windows.Forms.AnchorStyles.None + Label87.AutoSize = true + Label87.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label87.Location = New System.Drawing.Point(11, 35) + Label87.Name = "Label87" + Label87.Size = New System.Drawing.Size(81, 14) + 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(96, 14) + 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(96, 14) + 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, 14) + 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, 14) + 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, 14) + 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, 14) + 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, 14) + 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, 14) + 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, 14) + 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, 14) + 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, 14) + 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, 14) + 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, 14) + 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, 14) + 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, 14) + 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, 14) + 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, 14) + 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, 14) + 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, 14) + 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, 14) + 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, 14) + 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, 14) + 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, 14) + 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, 14) + 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, 14) + 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, 14) + 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, 14) + 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, 14) + 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, 14) + 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, 14) + 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, 14) + 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, 14) + 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, 14) + 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, 14) + 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, 14) + 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, 14) + 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, 14) + 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, 14) + 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, 14) + 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, 14) + 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, 14) + 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, 14) + 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, 14) + 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, 14) + 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, 14) + 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, 14) + 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, 14) + 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, 14) + 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, 14) + 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, 14) + 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, 147) + Label1.Name = "Label1" + Label1.Size = New System.Drawing.Size(32, 14) + 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, 119) + Label2.Name = "Label2" + Label2.Size = New System.Drawing.Size(32, 14) + 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, 91) + Label3.Name = "Label3" + Label3.Size = New System.Drawing.Size(32, 14) + 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, 63) + Label4.Name = "Label4" + Label4.Size = New System.Drawing.Size(32, 14) + 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, 147) + Label5.Name = "Label5" + Label5.Size = New System.Drawing.Size(32, 14) + 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, 35) + Label6.Name = "Label6" + Label6.Size = New System.Drawing.Size(32, 14) + 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, 119) + Label7.Name = "Label7" + Label7.Size = New System.Drawing.Size(32, 14) + 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, 7) + Label8.Name = "Label8" + Label8.Size = New System.Drawing.Size(32, 14) + 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, 91) + Label9.Name = "Label9" + Label9.Size = New System.Drawing.Size(32, 14) + 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, 7) + Label10.Name = "Label10" + Label10.Size = New System.Drawing.Size(32, 14) + 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, 63) + Label11.Name = "Label11" + Label11.Size = New System.Drawing.Size(32, 14) + 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, 35) + Label12.Name = "Label12" + Label12.Size = New System.Drawing.Size(32, 14) + 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("나눔고딕 ExtraBold", 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.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(190, 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(188, 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(188, 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(188, 36) + Me.ToolStripButton51.Text = "변경취소(&C)" + ' + 'ToolStripSeparator28 + ' + Me.ToolStripSeparator28.Name = "ToolStripSeparator28" + Me.ToolStripSeparator28.Size = New System.Drawing.Size(188, 6) + ' + '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.Dock = System.Windows.Forms.DockStyle.Fill + Me.TabControl3.Location = New System.Drawing.Point(190, 0) + Me.TabControl3.Name = "TabControl3" + Me.TabControl3.SelectedIndex = 0 + Me.TabControl3.Size = New System.Drawing.Size(622, 533) + Me.TabControl3.TabIndex = 81 + ' + 'TabPage1 + ' + Me.TabPage1.Controls.Add(Me.GroupBox2) + Me.TabPage1.Controls.Add(Me.GroupBox1) + Me.TabPage1.Location = New System.Drawing.Point(4, 23) + Me.TabPage1.Name = "TabPage1" + Me.TabPage1.Size = New System.Drawing.Size(614, 506) + Me.TabPage1.TabIndex = 4 + Me.TabPage1.Text = "외기온도" + Me.TabPage1.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!)) + Me.TableLayoutPanel7.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Absolute, 102!)) + Me.TableLayoutPanel7.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Absolute, 96!)) + Me.TableLayoutPanel7.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Absolute, 132.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(437, 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.DS + Me.bs.Filter = "code <> '0'" + Me.bs.Sort = "" + ' + 'DS + ' + Me.DS.DataSetName = "DS" + Me.DS.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 + Me.Label88.ForeColor = System.Drawing.Color.DarkBlue + Me.Label88.Location = New System.Drawing.Point(9, 2) + Me.Label88.Name = "Label88" + Me.Label88.Size = New System.Drawing.Size(62, 14) + Me.Label88.TabIndex = 121 + Me.Label88.Text = "[온도 입력]" + ' + 'GroupBox1 + ' + Me.GroupBox1.Controls.Add(Me.Panel2) + Me.GroupBox1.Location = New System.Drawing.Point(89, 54) + Me.GroupBox1.Name = "GroupBox1" + Me.GroupBox1.Size = New System.Drawing.Size(436, 82) + Me.GroupBox1.TabIndex = 125 + Me.GroupBox1.TabStop = False + ' + 'Panel2 + ' + Me.Panel2.BackColor = System.Drawing.Color.FromArgb(CType(CType(219, Byte), Integer), CType(CType(221, Byte), Integer), CType(CType(223, Byte), Integer)) + Me.Panel2.Controls.Add(Me.Label89) + Me.Panel2.Controls.Add(Label90) + Me.Panel2.Controls.Add(Label91) + Me.Panel2.Controls.Add(Me.tb_wnan) + Me.Panel2.Controls.Add(Me.tb_wnaen) + Me.Panel2.Location = New System.Drawing.Point(2, 9) + Me.Panel2.Name = "Panel2" + Me.Panel2.Size = New System.Drawing.Size(432, 70) + Me.Panel2.TabIndex = 121 + ' + 'Label89 + ' + Me.Label89.AutoSize = True + Me.Label89.ForeColor = System.Drawing.Color.Black + Me.Label89.Location = New System.Drawing.Point(2, 3) + Me.Label89.Name = "Label89" + Me.Label89.Size = New System.Drawing.Size(133, 14) + Me.Label89.TabIndex = 120 + Me.Label89.Text = "[외기온도(최대부하관련)]" + ' + 'tb_wnan + ' + 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(112, 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(112, 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 + ' + 'TabPage8 + ' + Me.TabPage8.Controls.Add(Me.TableLayoutPanel4) + Me.TabPage8.Location = New System.Drawing.Point(4, 23) + Me.TabPage8.Margin = New System.Windows.Forms.Padding(0) + Me.TabPage8.Name = "TabPage8" + Me.TabPage8.Size = New System.Drawing.Size(614, 506) + Me.TabPage8.TabIndex = 1 + Me.TabPage8.Text = "평균일사" + Me.TabPage8.UseVisualStyleBackColor = True + ' + 'TableLayoutPanel4 + ' + Me.TableLayoutPanel4.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer)) + Me.TableLayoutPanel4.ColumnCount = 2 + Me.TableLayoutPanel4.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Absolute, 200.0!)) + Me.TableLayoutPanel4.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Percent, 100.0!)) + Me.TableLayoutPanel4.Controls.Add(Me.Arindv2, 0, 0) + Me.TableLayoutPanel4.Controls.Add(Me.Panel4, 1, 0) + Me.TableLayoutPanel4.Dock = System.Windows.Forms.DockStyle.Fill + Me.TableLayoutPanel4.Location = New System.Drawing.Point(0, 0) + Me.TableLayoutPanel4.Name = "TableLayoutPanel4" + Me.TableLayoutPanel4.RowCount = 1 + Me.TableLayoutPanel4.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Percent, 100.0!)) + Me.TableLayoutPanel4.Size = New System.Drawing.Size(614, 506) + Me.TableLayoutPanel4.TabIndex = 0 + ' + 'Arindv2 + ' + Me.Arindv2.A_DelCurrentCell = True + Me.Arindv2.A_EnterToTab = True + Me.Arindv2.AllowUserToAddRows = False + Me.Arindv2.AllowUserToResizeRows = False + Me.Arindv2.AutoGenerateColumns = False + Me.Arindv2.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.AllCells + Me.Arindv2.ColumnHeadersHeight = 30 + Me.Arindv2.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.DisableResizing + Me.Arindv2.Columns.AddRange(New System.Windows.Forms.DataGridViewColumn() {Me.설명DataGridViewTextBoxColumn, Me.code}) + Me.Arindv2.DataSource = Me.bsw_ilsa + Me.Arindv2.Dock = System.Windows.Forms.DockStyle.Fill + Me.Arindv2.Location = New System.Drawing.Point(0, 0) + Me.Arindv2.Margin = New System.Windows.Forms.Padding(0) + Me.Arindv2.Name = "Arindv2" + Me.Arindv2.RowHeadersVisible = False + Me.Arindv2.RowTemplate.Height = 23 + Me.Arindv2.Size = New System.Drawing.Size(200, 506) + Me.Arindv2.TabIndex = 4 + ' + '설명DataGridViewTextBoxColumn + ' + Me.설명DataGridViewTextBoxColumn.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.Fill + Me.설명DataGridViewTextBoxColumn.DataPropertyName = "설명" + Me.설명DataGridViewTextBoxColumn.HeaderText = "설명" + Me.설명DataGridViewTextBoxColumn.Name = "설명DataGridViewTextBoxColumn" + ' + 'code + ' + Me.code.DataPropertyName = "code" + Me.code.HeaderText = "code" + Me.code.Name = "code" + Me.code.Width = 59 + ' + 'bsw_ilsa + ' + Me.bsw_ilsa.DataMember = "weather_ilsa" + Me.bsw_ilsa.DataSource = Me.DS + ' + 'Panel4 + ' + Me.Panel4.AutoScroll = True + Me.Panel4.BackColor = System.Drawing.Color.White + Me.Panel4.Controls.Add(Label39) + Me.Panel4.Controls.Add(Me.TableLayoutPanel34) + Me.Panel4.Controls.Add(Me.BindingNavigator1) + Me.Panel4.Controls.Add(Me.tb_v0) + Me.Panel4.Dock = System.Windows.Forms.DockStyle.Fill + Me.Panel4.Location = New System.Drawing.Point(200, 0) + Me.Panel4.Margin = New System.Windows.Forms.Padding(0) + Me.Panel4.Name = "Panel4" + Me.Panel4.Size = New System.Drawing.Size(414, 506) + Me.Panel4.TabIndex = 5 + ' + 'TableLayoutPanel34 + ' + Me.TableLayoutPanel34.AutoSize = True + Me.TableLayoutPanel34.BackColor = System.Drawing.SystemColors.ButtonFace + Me.TableLayoutPanel34.CellBorderStyle = System.Windows.Forms.TableLayoutPanelCellBorderStyle.[Single] + Me.TableLayoutPanel34.ColumnCount = 2 + Me.TableLayoutPanel34.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle()) + Me.TableLayoutPanel34.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle()) + Me.TableLayoutPanel34.Controls.Add(Me.tb_v1, 1, 0) + Me.TableLayoutPanel34.Controls.Add(Me.tb_v6, 1, 5) + Me.TableLayoutPanel34.Controls.Add(Label251, 0, 5) + Me.TableLayoutPanel34.Controls.Add(Label253, 0, 4) + Me.TableLayoutPanel34.Controls.Add(Me.tb_v5, 1, 4) + Me.TableLayoutPanel34.Controls.Add(Label255, 0, 3) + Me.TableLayoutPanel34.Controls.Add(Label256, 0, 0) + Me.TableLayoutPanel34.Controls.Add(Label257, 0, 2) + Me.TableLayoutPanel34.Controls.Add(Me.tb_v4, 1, 3) + Me.TableLayoutPanel34.Controls.Add(Me.tb_v2, 1, 1) + Me.TableLayoutPanel34.Controls.Add(Label258, 0, 1) + Me.TableLayoutPanel34.Controls.Add(Me.tb_v3, 1, 2) + Me.TableLayoutPanel34.Controls.Add(Label254, 0, 6) + Me.TableLayoutPanel34.Controls.Add(Label252, 0, 7) + Me.TableLayoutPanel34.Controls.Add(Label250, 0, 8) + Me.TableLayoutPanel34.Controls.Add(Label249, 0, 9) + Me.TableLayoutPanel34.Controls.Add(Label248, 0, 10) + Me.TableLayoutPanel34.Controls.Add(Label247, 0, 11) + Me.TableLayoutPanel34.Controls.Add(Me.tb_v7, 1, 6) + Me.TableLayoutPanel34.Controls.Add(Me.tb_v8, 1, 7) + Me.TableLayoutPanel34.Controls.Add(Me.tb_v9, 1, 8) + Me.TableLayoutPanel34.Controls.Add(Me.tb_v10, 1, 9) + Me.TableLayoutPanel34.Controls.Add(Me.tb_v11, 1, 10) + Me.TableLayoutPanel34.Controls.Add(Me.tb_v12, 1, 11) + Me.TableLayoutPanel34.Location = New System.Drawing.Point(5, 45) + Me.TableLayoutPanel34.Name = "TableLayoutPanel34" + Me.TableLayoutPanel34.RowCount = 12 + Me.TableLayoutPanel34.RowStyles.Add(New System.Windows.Forms.RowStyle()) + Me.TableLayoutPanel34.RowStyles.Add(New System.Windows.Forms.RowStyle()) + Me.TableLayoutPanel34.RowStyles.Add(New System.Windows.Forms.RowStyle()) + Me.TableLayoutPanel34.RowStyles.Add(New System.Windows.Forms.RowStyle()) + Me.TableLayoutPanel34.RowStyles.Add(New System.Windows.Forms.RowStyle()) + Me.TableLayoutPanel34.RowStyles.Add(New System.Windows.Forms.RowStyle()) + Me.TableLayoutPanel34.RowStyles.Add(New System.Windows.Forms.RowStyle()) + Me.TableLayoutPanel34.RowStyles.Add(New System.Windows.Forms.RowStyle()) + Me.TableLayoutPanel34.RowStyles.Add(New System.Windows.Forms.RowStyle()) + Me.TableLayoutPanel34.RowStyles.Add(New System.Windows.Forms.RowStyle()) + Me.TableLayoutPanel34.RowStyles.Add(New System.Windows.Forms.RowStyle()) + Me.TableLayoutPanel34.RowStyles.Add(New System.Windows.Forms.RowStyle()) + Me.TableLayoutPanel34.Size = New System.Drawing.Size(432, 337) + Me.TableLayoutPanel34.TabIndex = 122 + ' + '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(99, 4) + Me.tb_v1.Name = "tb_v1" + Me.tb_v1.NectControl = Nothing + Me.tb_v1.Size = New System.Drawing.Size(329, 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(99, 144) + Me.tb_v6.Name = "tb_v6" + Me.tb_v6.NectControl = Nothing + Me.tb_v6.Size = New System.Drawing.Size(329, 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(99, 116) + Me.tb_v5.Name = "tb_v5" + Me.tb_v5.NectControl = Nothing + Me.tb_v5.Size = New System.Drawing.Size(329, 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(99, 88) + Me.tb_v4.Name = "tb_v4" + Me.tb_v4.NectControl = Nothing + Me.tb_v4.Size = New System.Drawing.Size(329, 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(99, 32) + Me.tb_v2.Name = "tb_v2" + Me.tb_v2.NectControl = Nothing + Me.tb_v2.Size = New System.Drawing.Size(329, 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(99, 60) + Me.tb_v3.Name = "tb_v3" + Me.tb_v3.NectControl = Nothing + Me.tb_v3.Size = New System.Drawing.Size(329, 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(99, 172) + Me.tb_v7.Name = "tb_v7" + Me.tb_v7.NectControl = Nothing + Me.tb_v7.Size = New System.Drawing.Size(329, 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(99, 200) + Me.tb_v8.Name = "tb_v8" + Me.tb_v8.NectControl = Nothing + Me.tb_v8.Size = New System.Drawing.Size(329, 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(99, 228) + Me.tb_v9.Name = "tb_v9" + Me.tb_v9.NectControl = Nothing + Me.tb_v9.Size = New System.Drawing.Size(329, 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(99, 256) + Me.tb_v10.Name = "tb_v10" + Me.tb_v10.NectControl = Nothing + Me.tb_v10.Size = New System.Drawing.Size(329, 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(99, 284) + Me.tb_v11.Name = "tb_v11" + Me.tb_v11.NectControl = Nothing + Me.tb_v11.Size = New System.Drawing.Size(329, 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(99, 312) + Me.tb_v12.Name = "tb_v12" + Me.tb_v12.NectControl = Nothing + Me.tb_v12.Size = New System.Drawing.Size(329, 21) + Me.tb_v12.TabIndex = 31 + Me.tb_v12.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + ' + 'BindingNavigator1 + ' + Me.BindingNavigator1.AddNewItem = Nothing + Me.BindingNavigator1.CountItem = Nothing + Me.BindingNavigator1.DeleteItem = Nothing + Me.BindingNavigator1.Dock = System.Windows.Forms.DockStyle.Bottom + Me.BindingNavigator1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToolStripButton9, Me.ToolStripButton10, Me.ToolStripButton11, Me.ToolStripButton12, Me.ToolStripSeparator10, Me.ToolStripButton14, Me.ToolStripButton15}) + Me.BindingNavigator1.Location = New System.Drawing.Point(0, 464) + Me.BindingNavigator1.MoveFirstItem = Me.ToolStripButton9 + Me.BindingNavigator1.MoveLastItem = Me.ToolStripButton12 + Me.BindingNavigator1.MoveNextItem = Me.ToolStripButton11 + Me.BindingNavigator1.MovePreviousItem = Me.ToolStripButton10 + Me.BindingNavigator1.Name = "BindingNavigator1" + Me.BindingNavigator1.PositionItem = Nothing + Me.BindingNavigator1.Size = New System.Drawing.Size(437, 25) + Me.BindingNavigator1.TabIndex = 26 + Me.BindingNavigator1.Text = "BindingNavigator1" + ' + 'ToolStripButton9 + ' + Me.ToolStripButton9.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.ToolStripButton9.Image = CType(resources.GetObject("ToolStripButton9.Image"), System.Drawing.Image) + Me.ToolStripButton9.Name = "ToolStripButton9" + Me.ToolStripButton9.RightToLeftAutoMirrorImage = True + Me.ToolStripButton9.Size = New System.Drawing.Size(23, 22) + Me.ToolStripButton9.Text = "처음으로 이동" + ' + 'ToolStripButton10 + ' + Me.ToolStripButton10.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.ToolStripButton10.Image = CType(resources.GetObject("ToolStripButton10.Image"), System.Drawing.Image) + Me.ToolStripButton10.Name = "ToolStripButton10" + Me.ToolStripButton10.RightToLeftAutoMirrorImage = True + Me.ToolStripButton10.Size = New System.Drawing.Size(23, 22) + Me.ToolStripButton10.Text = "이전으로 이동" + ' + 'ToolStripButton11 + ' + Me.ToolStripButton11.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.ToolStripButton11.Image = CType(resources.GetObject("ToolStripButton11.Image"), System.Drawing.Image) + Me.ToolStripButton11.Name = "ToolStripButton11" + Me.ToolStripButton11.RightToLeftAutoMirrorImage = True + Me.ToolStripButton11.Size = New System.Drawing.Size(23, 22) + Me.ToolStripButton11.Text = "다음으로 이동" + ' + 'ToolStripButton12 + ' + Me.ToolStripButton12.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.ToolStripButton12.Image = CType(resources.GetObject("ToolStripButton12.Image"), System.Drawing.Image) + Me.ToolStripButton12.Name = "ToolStripButton12" + Me.ToolStripButton12.RightToLeftAutoMirrorImage = True + Me.ToolStripButton12.Size = New System.Drawing.Size(23, 22) + Me.ToolStripButton12.Text = "마지막으로 이동" + ' + 'ToolStripSeparator10 + ' + Me.ToolStripSeparator10.Name = "ToolStripSeparator10" + Me.ToolStripSeparator10.Size = New System.Drawing.Size(6, 25) + ' + 'ToolStripButton14 + ' + Me.ToolStripButton14.Image = CType(resources.GetObject("ToolStripButton14.Image"), System.Drawing.Image) + Me.ToolStripButton14.Name = "ToolStripButton14" + Me.ToolStripButton14.RightToLeftAutoMirrorImage = True + Me.ToolStripButton14.Size = New System.Drawing.Size(67, 22) + Me.ToolStripButton14.Text = "추가(&A)" + ' + 'ToolStripButton15 + ' + Me.ToolStripButton15.Image = CType(resources.GetObject("ToolStripButton15.Image"), System.Drawing.Image) + Me.ToolStripButton15.Name = "ToolStripButton15" + Me.ToolStripButton15.RightToLeftAutoMirrorImage = True + 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(130, 19) + Me.tb_v0.Name = "tb_v0" + Me.tb_v0.NectControl = Nothing + Me.tb_v0.Size = New System.Drawing.Size(267, 21) + Me.tb_v0.TabIndex = 1 + Me.tb_v0.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + ' + 'TabPage9 + ' + Me.TabPage9.Controls.Add(Me.TableLayoutPanel5) + Me.TabPage9.Location = New System.Drawing.Point(4, 23) + Me.TabPage9.Name = "TabPage9" + Me.TabPage9.Size = New System.Drawing.Size(614, 506) + Me.TabPage9.TabIndex = 2 + Me.TabPage9.Text = "평균온도" + Me.TabPage9.UseVisualStyleBackColor = True + ' + 'TableLayoutPanel5 + ' + Me.TableLayoutPanel5.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer)) + Me.TableLayoutPanel5.ColumnCount = 2 + Me.TableLayoutPanel5.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Absolute, 200.0!)) + Me.TableLayoutPanel5.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Percent, 100.0!)) + Me.TableLayoutPanel5.Controls.Add(Me.Arindv3, 0, 0) + Me.TableLayoutPanel5.Controls.Add(Me.Panel7, 1, 0) + Me.TableLayoutPanel5.Dock = System.Windows.Forms.DockStyle.Fill + Me.TableLayoutPanel5.Location = New System.Drawing.Point(0, 0) + Me.TableLayoutPanel5.Name = "TableLayoutPanel5" + Me.TableLayoutPanel5.RowCount = 1 + Me.TableLayoutPanel5.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Percent, 100.0!)) + Me.TableLayoutPanel5.Size = New System.Drawing.Size(614, 506) + Me.TableLayoutPanel5.TabIndex = 1 + ' + 'Arindv3 + ' + Me.Arindv3.A_DelCurrentCell = True + Me.Arindv3.A_EnterToTab = True + Me.Arindv3.AllowUserToAddRows = False + Me.Arindv3.AllowUserToResizeRows = False + Me.Arindv3.AutoGenerateColumns = False + Me.Arindv3.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.AllCells + Me.Arindv3.ColumnHeadersHeight = 30 + Me.Arindv3.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.DisableResizing + Me.Arindv3.Columns.AddRange(New System.Windows.Forms.DataGridViewColumn() {Me.설명DataGridViewTextBoxColumn1, Me.DataGridViewTextBoxColumn9}) + Me.Arindv3.DataSource = Me.bsw_temp + Me.Arindv3.Dock = System.Windows.Forms.DockStyle.Fill + Me.Arindv3.Location = New System.Drawing.Point(0, 0) + Me.Arindv3.Margin = New System.Windows.Forms.Padding(0) + Me.Arindv3.Name = "Arindv3" + Me.Arindv3.RowHeadersVisible = False + Me.Arindv3.RowTemplate.Height = 23 + Me.Arindv3.Size = New System.Drawing.Size(200, 506) + Me.Arindv3.TabIndex = 4 + ' + '설명DataGridViewTextBoxColumn1 + ' + Me.설명DataGridViewTextBoxColumn1.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.Fill + Me.설명DataGridViewTextBoxColumn1.DataPropertyName = "설명" + Me.설명DataGridViewTextBoxColumn1.HeaderText = "설명" + Me.설명DataGridViewTextBoxColumn1.Name = "설명DataGridViewTextBoxColumn1" + ' + 'DataGridViewTextBoxColumn9 + ' + Me.DataGridViewTextBoxColumn9.DataPropertyName = "code" + Me.DataGridViewTextBoxColumn9.HeaderText = "code" + Me.DataGridViewTextBoxColumn9.Name = "DataGridViewTextBoxColumn9" + Me.DataGridViewTextBoxColumn9.Width = 59 + ' + 'bsw_temp + ' + Me.bsw_temp.DataMember = "weather_temp" + Me.bsw_temp.DataSource = Me.DS + ' + 'Panel7 + ' + Me.Panel7.AutoScroll = True + Me.Panel7.BackColor = System.Drawing.Color.White + Me.Panel7.Controls.Add(Me.TableLayoutPanel8) + Me.Panel7.Controls.Add(Me.BindingNavigator4) + Me.Panel7.Dock = System.Windows.Forms.DockStyle.Fill + Me.Panel7.Location = New System.Drawing.Point(200, 0) + Me.Panel7.Margin = New System.Windows.Forms.Padding(0) + Me.Panel7.Name = "Panel7" + Me.Panel7.Size = New System.Drawing.Size(414, 506) + Me.Panel7.TabIndex = 5 + ' + 'TableLayoutPanel8 + ' + Me.TableLayoutPanel8.AutoSize = True + Me.TableLayoutPanel8.BackColor = System.Drawing.SystemColors.ButtonFace + Me.TableLayoutPanel8.CellBorderStyle = System.Windows.Forms.TableLayoutPanelCellBorderStyle.[Single] + Me.TableLayoutPanel8.ColumnCount = 4 + Me.TableLayoutPanel8.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle()) + Me.TableLayoutPanel8.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle()) + Me.TableLayoutPanel8.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle()) + Me.TableLayoutPanel8.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle()) + Me.TableLayoutPanel8.Controls.Add(Label25, 0, 1) + Me.TableLayoutPanel8.Controls.Add(Label26, 0, 2) + Me.TableLayoutPanel8.Controls.Add(Label27, 0, 3) + Me.TableLayoutPanel8.Controls.Add(Label28, 0, 4) + Me.TableLayoutPanel8.Controls.Add(Label29, 0, 5) + Me.TableLayoutPanel8.Controls.Add(Label30, 0, 0) + Me.TableLayoutPanel8.Controls.Add(Label31, 2, 1) + Me.TableLayoutPanel8.Controls.Add(Me.tb_t18, 3, 5) + Me.TableLayoutPanel8.Controls.Add(Me.tb_t1, 1, 0) + Me.TableLayoutPanel8.Controls.Add(Me.tb_t17, 3, 4) + Me.TableLayoutPanel8.Controls.Add(Label32, 2, 2) + Me.TableLayoutPanel8.Controls.Add(Me.tb_t16, 3, 3) + Me.TableLayoutPanel8.Controls.Add(Label33, 2, 3) + Me.TableLayoutPanel8.Controls.Add(Label34, 2, 4) + Me.TableLayoutPanel8.Controls.Add(Me.tb_t15, 3, 2) + Me.TableLayoutPanel8.Controls.Add(Label35, 2, 5) + Me.TableLayoutPanel8.Controls.Add(Me.tb_t14, 3, 1) + Me.TableLayoutPanel8.Controls.Add(Me.tb_t2, 1, 1) + Me.TableLayoutPanel8.Controls.Add(Me.tb_t13, 3, 0) + Me.TableLayoutPanel8.Controls.Add(Me.tb_t6, 1, 5) + Me.TableLayoutPanel8.Controls.Add(Me.tb_t19, 3, 6) + Me.TableLayoutPanel8.Controls.Add(Me.tb_t5, 1, 4) + Me.TableLayoutPanel8.Controls.Add(Me.tb_t20, 3, 7) + Me.TableLayoutPanel8.Controls.Add(Me.tb_t4, 1, 3) + Me.TableLayoutPanel8.Controls.Add(Me.tb_t21, 3, 8) + Me.TableLayoutPanel8.Controls.Add(Me.tb_t3, 1, 2) + Me.TableLayoutPanel8.Controls.Add(Me.tb_t22, 3, 9) + Me.TableLayoutPanel8.Controls.Add(Label36, 2, 0) + Me.TableLayoutPanel8.Controls.Add(Me.tb_t23, 3, 10) + Me.TableLayoutPanel8.Controls.Add(Me.tb_t12, 1, 11) + Me.TableLayoutPanel8.Controls.Add(Me.tb_t24, 3, 11) + Me.TableLayoutPanel8.Controls.Add(Me.tb_t11, 1, 10) + Me.TableLayoutPanel8.Controls.Add(Me.tb_t10, 1, 9) + Me.TableLayoutPanel8.Controls.Add(Me.tb_t9, 1, 8) + Me.TableLayoutPanel8.Controls.Add(Me.tb_t8, 1, 7) + Me.TableLayoutPanel8.Controls.Add(Me.tb_t7, 1, 6) + Me.TableLayoutPanel8.Controls.Add(Label37, 0, 6) + Me.TableLayoutPanel8.Controls.Add(Label38, 0, 7) + Me.TableLayoutPanel8.Controls.Add(Label92, 0, 8) + Me.TableLayoutPanel8.Controls.Add(Label93, 0, 9) + Me.TableLayoutPanel8.Controls.Add(Label94, 0, 10) + Me.TableLayoutPanel8.Controls.Add(Label95, 0, 11) + Me.TableLayoutPanel8.Controls.Add(Label96, 2, 6) + Me.TableLayoutPanel8.Controls.Add(Label97, 2, 7) + Me.TableLayoutPanel8.Controls.Add(Label98, 2, 8) + Me.TableLayoutPanel8.Controls.Add(Label99, 2, 9) + Me.TableLayoutPanel8.Controls.Add(Label100, 2, 10) + Me.TableLayoutPanel8.Controls.Add(Label101, 2, 11) + Me.TableLayoutPanel8.Location = New System.Drawing.Point(82, 38) + Me.TableLayoutPanel8.Name = "TableLayoutPanel8" + Me.TableLayoutPanel8.RowCount = 12 + 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.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.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.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.TabIndex = 125 + ' + '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(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 + ' + '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(79, 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(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 + ' + '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(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 + ' + '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(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 + ' + '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(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 + ' + '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(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 + ' + '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(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 + ' + '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(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 + ' + '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(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 + ' + '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(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 + ' + '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(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 + ' + '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(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 + ' + '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 + ' + 'BindingNavigator4 + ' + Me.BindingNavigator4.AddNewItem = Nothing + Me.BindingNavigator4.CountItem = Nothing + Me.BindingNavigator4.DeleteItem = Nothing + Me.BindingNavigator4.Dock = System.Windows.Forms.DockStyle.Bottom + Me.BindingNavigator4.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToolStripButton25, Me.ToolStripButton26, Me.ToolStripButton27, Me.ToolStripButton28, Me.ToolStripSeparator11, Me.ToolStripButton29, Me.ToolStripButton30}) + Me.BindingNavigator4.Location = New System.Drawing.Point(0, 481) + Me.BindingNavigator4.MoveFirstItem = Me.ToolStripButton25 + Me.BindingNavigator4.MoveLastItem = Me.ToolStripButton28 + Me.BindingNavigator4.MoveNextItem = Me.ToolStripButton27 + Me.BindingNavigator4.MovePreviousItem = Me.ToolStripButton26 + Me.BindingNavigator4.Name = "BindingNavigator4" + Me.BindingNavigator4.PositionItem = Nothing + Me.BindingNavigator4.Size = New System.Drawing.Size(414, 25) + Me.BindingNavigator4.TabIndex = 26 + Me.BindingNavigator4.Text = "BindingNavigator4" + ' + 'ToolStripButton25 + ' + Me.ToolStripButton25.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.ToolStripButton25.Image = CType(resources.GetObject("ToolStripButton25.Image"), System.Drawing.Image) + Me.ToolStripButton25.Name = "ToolStripButton25" + Me.ToolStripButton25.RightToLeftAutoMirrorImage = True + Me.ToolStripButton25.Size = New System.Drawing.Size(23, 22) + Me.ToolStripButton25.Text = "처음으로 이동" + ' + 'ToolStripButton26 + ' + Me.ToolStripButton26.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.ToolStripButton26.Image = CType(resources.GetObject("ToolStripButton26.Image"), System.Drawing.Image) + Me.ToolStripButton26.Name = "ToolStripButton26" + Me.ToolStripButton26.RightToLeftAutoMirrorImage = True + Me.ToolStripButton26.Size = New System.Drawing.Size(23, 22) + Me.ToolStripButton26.Text = "이전으로 이동" + ' + 'ToolStripButton27 + ' + Me.ToolStripButton27.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.ToolStripButton27.Image = CType(resources.GetObject("ToolStripButton27.Image"), System.Drawing.Image) + Me.ToolStripButton27.Name = "ToolStripButton27" + Me.ToolStripButton27.RightToLeftAutoMirrorImage = True + Me.ToolStripButton27.Size = New System.Drawing.Size(23, 22) + Me.ToolStripButton27.Text = "다음으로 이동" + ' + 'ToolStripButton28 + ' + Me.ToolStripButton28.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.ToolStripButton28.Image = CType(resources.GetObject("ToolStripButton28.Image"), System.Drawing.Image) + Me.ToolStripButton28.Name = "ToolStripButton28" + Me.ToolStripButton28.RightToLeftAutoMirrorImage = True + Me.ToolStripButton28.Size = New System.Drawing.Size(23, 22) + Me.ToolStripButton28.Text = "마지막으로 이동" + ' + 'ToolStripSeparator11 + ' + Me.ToolStripSeparator11.Name = "ToolStripSeparator11" + Me.ToolStripSeparator11.Size = New System.Drawing.Size(6, 25) + ' + 'ToolStripButton29 + ' + Me.ToolStripButton29.Image = CType(resources.GetObject("ToolStripButton29.Image"), System.Drawing.Image) + Me.ToolStripButton29.Name = "ToolStripButton29" + Me.ToolStripButton29.RightToLeftAutoMirrorImage = True + Me.ToolStripButton29.Size = New System.Drawing.Size(67, 22) + Me.ToolStripButton29.Text = "추가(&A)" + ' + 'ToolStripButton30 + ' + Me.ToolStripButton30.Image = CType(resources.GetObject("ToolStripButton30.Image"), System.Drawing.Image) + Me.ToolStripButton30.Name = "ToolStripButton30" + Me.ToolStripButton30.RightToLeftAutoMirrorImage = True + Me.ToolStripButton30.Size = New System.Drawing.Size(68, 22) + Me.ToolStripButton30.Text = "삭제(&D)" + ' + 'TabPage10 + ' + Me.TabPage10.Controls.Add(Me.TableLayoutPanel6) + Me.TabPage10.Location = New System.Drawing.Point(4, 23) + Me.TabPage10.Name = "TabPage10" + Me.TabPage10.Size = New System.Drawing.Size(614, 506) + Me.TabPage10.TabIndex = 3 + Me.TabPage10.Text = "평균습도" + Me.TabPage10.UseVisualStyleBackColor = True + ' + 'TableLayoutPanel6 + ' + Me.TableLayoutPanel6.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer)) + Me.TableLayoutPanel6.ColumnCount = 2 + Me.TableLayoutPanel6.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Absolute, 200.0!)) + Me.TableLayoutPanel6.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Percent, 100.0!)) + Me.TableLayoutPanel6.Controls.Add(Me.Arindv4, 0, 0) + Me.TableLayoutPanel6.Controls.Add(Me.Panel8, 1, 0) + Me.TableLayoutPanel6.Dock = System.Windows.Forms.DockStyle.Fill + Me.TableLayoutPanel6.Location = New System.Drawing.Point(0, 0) + Me.TableLayoutPanel6.Name = "TableLayoutPanel6" + Me.TableLayoutPanel6.RowCount = 1 + Me.TableLayoutPanel6.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Percent, 100.0!)) + Me.TableLayoutPanel6.Size = New System.Drawing.Size(614, 506) + Me.TableLayoutPanel6.TabIndex = 1 + ' + 'Arindv4 + ' + Me.Arindv4.A_DelCurrentCell = True + Me.Arindv4.A_EnterToTab = True + Me.Arindv4.AllowUserToAddRows = False + Me.Arindv4.AllowUserToResizeRows = False + Me.Arindv4.AutoGenerateColumns = False + Me.Arindv4.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.AllCells + Me.Arindv4.ColumnHeadersHeight = 30 + Me.Arindv4.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.DisableResizing + Me.Arindv4.Columns.AddRange(New System.Windows.Forms.DataGridViewColumn() {Me.설명DataGridViewTextBoxColumn2, Me.DataGridViewTextBoxColumn10}) + Me.Arindv4.DataSource = Me.bsw_supdo + Me.Arindv4.Dock = System.Windows.Forms.DockStyle.Fill + Me.Arindv4.Location = New System.Drawing.Point(0, 0) + Me.Arindv4.Margin = New System.Windows.Forms.Padding(0) + Me.Arindv4.Name = "Arindv4" + Me.Arindv4.RowHeadersVisible = False + Me.Arindv4.RowTemplate.Height = 23 + Me.Arindv4.Size = New System.Drawing.Size(200, 506) + Me.Arindv4.TabIndex = 4 + ' + '설명DataGridViewTextBoxColumn2 + ' + Me.설명DataGridViewTextBoxColumn2.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.Fill + Me.설명DataGridViewTextBoxColumn2.DataPropertyName = "설명" + Me.설명DataGridViewTextBoxColumn2.HeaderText = "설명" + Me.설명DataGridViewTextBoxColumn2.Name = "설명DataGridViewTextBoxColumn2" + ' + 'DataGridViewTextBoxColumn10 + ' + Me.DataGridViewTextBoxColumn10.DataPropertyName = "code" + Me.DataGridViewTextBoxColumn10.HeaderText = "code" + Me.DataGridViewTextBoxColumn10.Name = "DataGridViewTextBoxColumn10" + Me.DataGridViewTextBoxColumn10.Width = 59 + ' + 'bsw_supdo + ' + Me.bsw_supdo.DataMember = "weather_supdo" + Me.bsw_supdo.DataSource = Me.DS + ' + 'Panel8 + ' + Me.Panel8.AutoScroll = True + Me.Panel8.BackColor = System.Drawing.Color.White + Me.Panel8.Controls.Add(Me.TableLayoutPanel9) + Me.Panel8.Controls.Add(Me.BindingNavigator5) + Me.Panel8.Dock = System.Windows.Forms.DockStyle.Fill + Me.Panel8.Location = New System.Drawing.Point(200, 0) + Me.Panel8.Margin = New System.Windows.Forms.Padding(0) + Me.Panel8.Name = "Panel8" + Me.Panel8.Size = New System.Drawing.Size(414, 506) + Me.Panel8.TabIndex = 0 + ' + 'TableLayoutPanel9 + ' + Me.TableLayoutPanel9.AutoSize = True + Me.TableLayoutPanel9.BackColor = System.Drawing.SystemColors.ButtonFace + Me.TableLayoutPanel9.CellBorderStyle = System.Windows.Forms.TableLayoutPanelCellBorderStyle.[Single] + Me.TableLayoutPanel9.ColumnCount = 4 + Me.TableLayoutPanel9.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle()) + Me.TableLayoutPanel9.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle()) + Me.TableLayoutPanel9.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle()) + Me.TableLayoutPanel9.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle()) + Me.TableLayoutPanel9.Controls.Add(Me.tb_s24, 3, 11) + Me.TableLayoutPanel9.Controls.Add(Label40, 0, 1) + Me.TableLayoutPanel9.Controls.Add(Me.tb_S12, 1, 11) + Me.TableLayoutPanel9.Controls.Add(Me.tb_s23, 3, 10) + Me.TableLayoutPanel9.Controls.Add(Label41, 0, 2) + Me.TableLayoutPanel9.Controls.Add(Label42, 0, 3) + Me.TableLayoutPanel9.Controls.Add(Label43, 0, 4) + Me.TableLayoutPanel9.Controls.Add(Me.tb_s22, 3, 9) + Me.TableLayoutPanel9.Controls.Add(Label44, 0, 5) + Me.TableLayoutPanel9.Controls.Add(Label45, 0, 0) + Me.TableLayoutPanel9.Controls.Add(Me.tb_s11, 1, 10) + Me.TableLayoutPanel9.Controls.Add(Me.tb_s21, 3, 8) + Me.TableLayoutPanel9.Controls.Add(Label46, 2, 1) + Me.TableLayoutPanel9.Controls.Add(Me.tb_s1, 1, 0) + Me.TableLayoutPanel9.Controls.Add(Me.tb_s20, 3, 7) + Me.TableLayoutPanel9.Controls.Add(Label47, 2, 2) + Me.TableLayoutPanel9.Controls.Add(Me.tb_s10, 1, 9) + Me.TableLayoutPanel9.Controls.Add(Label48, 2, 3) + Me.TableLayoutPanel9.Controls.Add(Me.tb_s19, 3, 6) + Me.TableLayoutPanel9.Controls.Add(Me.tb_s3, 1, 2) + Me.TableLayoutPanel9.Controls.Add(Me.tb_s18, 3, 5) + Me.TableLayoutPanel9.Controls.Add(Me.tb_s9, 1, 8) + Me.TableLayoutPanel9.Controls.Add(Me.tb_s2, 1, 1) + Me.TableLayoutPanel9.Controls.Add(Me.tb_s17, 3, 4) + Me.TableLayoutPanel9.Controls.Add(Label49, 2, 4) + Me.TableLayoutPanel9.Controls.Add(Label50, 2, 5) + Me.TableLayoutPanel9.Controls.Add(Me.tb_s16, 3, 3) + Me.TableLayoutPanel9.Controls.Add(Me.tb_s8, 1, 7) + Me.TableLayoutPanel9.Controls.Add(Me.tb_s15, 3, 2) + Me.TableLayoutPanel9.Controls.Add(Me.tb_s14, 3, 1) + Me.TableLayoutPanel9.Controls.Add(Label51, 2, 0) + Me.TableLayoutPanel9.Controls.Add(Me.tb_s4, 1, 3) + Me.TableLayoutPanel9.Controls.Add(Label52, 0, 6) + Me.TableLayoutPanel9.Controls.Add(Me.tb_s13, 3, 0) + Me.TableLayoutPanel9.Controls.Add(Label53, 0, 7) + Me.TableLayoutPanel9.Controls.Add(Label54, 0, 8) + Me.TableLayoutPanel9.Controls.Add(Label55, 0, 9) + Me.TableLayoutPanel9.Controls.Add(Label56, 0, 10) + Me.TableLayoutPanel9.Controls.Add(Label57, 0, 11) + Me.TableLayoutPanel9.Controls.Add(Me.tb_s7, 1, 6) + Me.TableLayoutPanel9.Controls.Add(Label58, 2, 6) + Me.TableLayoutPanel9.Controls.Add(Me.tb_s5, 1, 4) + Me.TableLayoutPanel9.Controls.Add(Me.tb_s6, 1, 5) + Me.TableLayoutPanel9.Controls.Add(Label59, 2, 7) + Me.TableLayoutPanel9.Controls.Add(Label60, 2, 8) + Me.TableLayoutPanel9.Controls.Add(Label61, 2, 9) + Me.TableLayoutPanel9.Controls.Add(Label62, 2, 10) + Me.TableLayoutPanel9.Controls.Add(Label63, 2, 11) + Me.TableLayoutPanel9.Location = New System.Drawing.Point(82, 38) + Me.TableLayoutPanel9.Name = "TableLayoutPanel9" + Me.TableLayoutPanel9.RowCount = 12 + 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.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.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.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.TabIndex = 127 + ' + '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(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 + ' + '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(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 + ' + '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(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 + ' + '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(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 + ' + '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(79, 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(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 + ' + '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(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 + ' + '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(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 + ' + '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(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 + ' + '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(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 + ' + '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(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 + ' + '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(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 + ' + '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(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 + ' + '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 + ' + 'BindingNavigator5 + ' + Me.BindingNavigator5.AddNewItem = Nothing + Me.BindingNavigator5.CountItem = Nothing + Me.BindingNavigator5.DeleteItem = Nothing + Me.BindingNavigator5.Dock = System.Windows.Forms.DockStyle.Bottom + Me.BindingNavigator5.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToolStripButton33, Me.ToolStripButton34, Me.ToolStripButton35, Me.ToolStripButton36, Me.ToolStripSeparator12, Me.ToolStripButton37, Me.ToolStripButton38}) + Me.BindingNavigator5.Location = New System.Drawing.Point(0, 481) + Me.BindingNavigator5.MoveFirstItem = Me.ToolStripButton33 + Me.BindingNavigator5.MoveLastItem = Me.ToolStripButton36 + Me.BindingNavigator5.MoveNextItem = Me.ToolStripButton35 + Me.BindingNavigator5.MovePreviousItem = Me.ToolStripButton34 + Me.BindingNavigator5.Name = "BindingNavigator5" + Me.BindingNavigator5.PositionItem = Nothing + Me.BindingNavigator5.Size = New System.Drawing.Size(414, 25) + Me.BindingNavigator5.TabIndex = 26 + Me.BindingNavigator5.Text = "BindingNavigator5" + ' + 'ToolStripButton33 + ' + Me.ToolStripButton33.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.ToolStripButton33.Image = CType(resources.GetObject("ToolStripButton33.Image"), System.Drawing.Image) + Me.ToolStripButton33.Name = "ToolStripButton33" + Me.ToolStripButton33.RightToLeftAutoMirrorImage = True + Me.ToolStripButton33.Size = New System.Drawing.Size(23, 22) + Me.ToolStripButton33.Text = "처음으로 이동" + ' + 'ToolStripButton34 + ' + Me.ToolStripButton34.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.ToolStripButton34.Image = CType(resources.GetObject("ToolStripButton34.Image"), System.Drawing.Image) + Me.ToolStripButton34.Name = "ToolStripButton34" + Me.ToolStripButton34.RightToLeftAutoMirrorImage = True + Me.ToolStripButton34.Size = New System.Drawing.Size(23, 22) + Me.ToolStripButton34.Text = "이전으로 이동" + ' + 'ToolStripButton35 + ' + Me.ToolStripButton35.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.ToolStripButton35.Image = CType(resources.GetObject("ToolStripButton35.Image"), System.Drawing.Image) + Me.ToolStripButton35.Name = "ToolStripButton35" + Me.ToolStripButton35.RightToLeftAutoMirrorImage = True + Me.ToolStripButton35.Size = New System.Drawing.Size(23, 22) + Me.ToolStripButton35.Text = "다음으로 이동" + ' + 'ToolStripButton36 + ' + Me.ToolStripButton36.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.ToolStripButton36.Image = CType(resources.GetObject("ToolStripButton36.Image"), System.Drawing.Image) + Me.ToolStripButton36.Name = "ToolStripButton36" + Me.ToolStripButton36.RightToLeftAutoMirrorImage = True + Me.ToolStripButton36.Size = New System.Drawing.Size(23, 22) + Me.ToolStripButton36.Text = "마지막으로 이동" + ' + 'ToolStripSeparator12 + ' + Me.ToolStripSeparator12.Name = "ToolStripSeparator12" + Me.ToolStripSeparator12.Size = New System.Drawing.Size(6, 25) + ' + 'ToolStripButton37 + ' + Me.ToolStripButton37.Image = CType(resources.GetObject("ToolStripButton37.Image"), System.Drawing.Image) + Me.ToolStripButton37.Name = "ToolStripButton37" + Me.ToolStripButton37.RightToLeftAutoMirrorImage = True + Me.ToolStripButton37.Size = New System.Drawing.Size(68, 22) + Me.ToolStripButton37.Text = "추가(&Q)" + ' + 'ToolStripButton38 + ' + Me.ToolStripButton38.Image = CType(resources.GetObject("ToolStripButton38.Image"), System.Drawing.Image) + Me.ToolStripButton38.Name = "ToolStripButton38" + Me.ToolStripButton38.RightToLeftAutoMirrorImage = True + Me.ToolStripButton38.Size = New System.Drawing.Size(70, 22) + Me.ToolStripButton38.Text = "삭제(&W)" + ' + 'TabPage2 + ' + Me.TabPage2.Controls.Add(Me.TableLayoutPanel2) + Me.TabPage2.Location = New System.Drawing.Point(4, 23) + Me.TabPage2.Name = "TabPage2" + Me.TabPage2.Size = New System.Drawing.Size(614, 506) + Me.TabPage2.TabIndex = 5 + Me.TabPage2.Text = "차양감소계수" + Me.TabPage2.UseVisualStyleBackColor = True + ' + 'TableLayoutPanel2 + ' + Me.TableLayoutPanel2.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer)) + Me.TableLayoutPanel2.ColumnCount = 2 + Me.TableLayoutPanel2.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Absolute, 200.0!)) + Me.TableLayoutPanel2.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Percent, 100.0!)) + Me.TableLayoutPanel2.Controls.Add(Me.Arindv1, 0, 0) + Me.TableLayoutPanel2.Controls.Add(Me.Panel1, 1, 0) + Me.TableLayoutPanel2.Dock = System.Windows.Forms.DockStyle.Fill + Me.TableLayoutPanel2.Location = New System.Drawing.Point(0, 0) + Me.TableLayoutPanel2.Name = "TableLayoutPanel2" + Me.TableLayoutPanel2.RowCount = 1 + Me.TableLayoutPanel2.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Percent, 100.0!)) + Me.TableLayoutPanel2.Size = New System.Drawing.Size(614, 506) + Me.TableLayoutPanel2.TabIndex = 1 + ' + 'Arindv1 + ' + Me.Arindv1.A_DelCurrentCell = True + Me.Arindv1.A_EnterToTab = True + Me.Arindv1.AllowUserToAddRows = False + Me.Arindv1.AllowUserToResizeRows = False + Me.Arindv1.AutoGenerateColumns = False + Me.Arindv1.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.AllCells + Me.Arindv1.ColumnHeadersHeight = 30 + Me.Arindv1.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.DisableResizing + Me.Arindv1.Columns.AddRange(New System.Windows.Forms.DataGridViewColumn() {Me.DataGridViewTextBoxColumn1, Me.DataGridViewTextBoxColumn11}) + Me.Arindv1.DataSource = Me.bsw_cha + Me.Arindv1.Dock = System.Windows.Forms.DockStyle.Fill + Me.Arindv1.Location = New System.Drawing.Point(0, 0) + Me.Arindv1.Margin = New System.Windows.Forms.Padding(0) + Me.Arindv1.Name = "Arindv1" + Me.Arindv1.RowHeadersVisible = False + Me.Arindv1.RowTemplate.Height = 23 + Me.Arindv1.Size = New System.Drawing.Size(200, 506) + Me.Arindv1.TabIndex = 4 + ' + 'DataGridViewTextBoxColumn1 + ' + Me.DataGridViewTextBoxColumn1.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.Fill + Me.DataGridViewTextBoxColumn1.DataPropertyName = "설명" + Me.DataGridViewTextBoxColumn1.HeaderText = "설명" + Me.DataGridViewTextBoxColumn1.Name = "DataGridViewTextBoxColumn1" + ' + 'DataGridViewTextBoxColumn11 + ' + Me.DataGridViewTextBoxColumn11.DataPropertyName = "code" + Me.DataGridViewTextBoxColumn11.HeaderText = "code" + Me.DataGridViewTextBoxColumn11.Name = "DataGridViewTextBoxColumn11" + Me.DataGridViewTextBoxColumn11.Width = 59 + ' + 'bsw_cha + ' + Me.bsw_cha.DataMember = "weather_cha" + Me.bsw_cha.DataSource = Me.DS + ' + 'Panel1 + ' + Me.Panel1.AutoScroll = True + Me.Panel1.BackColor = System.Drawing.Color.White + Me.Panel1.Controls.Add(Me.Button1) + Me.Panel1.Controls.Add(Me.TableLayoutPanel1) + Me.Panel1.Controls.Add(Me.BindingNavigator2) + Me.Panel1.Dock = System.Windows.Forms.DockStyle.Fill + Me.Panel1.Location = New System.Drawing.Point(200, 0) + Me.Panel1.Margin = New System.Windows.Forms.Padding(0) + Me.Panel1.Name = "Panel1" + Me.Panel1.Size = New System.Drawing.Size(414, 506) + Me.Panel1.TabIndex = 5 + ' + 'Button1 + ' + Me.Button1.Location = New System.Drawing.Point(89, 252) + Me.Button1.Name = "Button1" + Me.Button1.Size = New System.Drawing.Size(75, 23) + Me.Button1.TabIndex = 124 + Me.Button1.Text = "Button1" + Me.Button1.UseVisualStyleBackColor = True + ' + 'TableLayoutPanel1 + ' + Me.TableLayoutPanel1.AutoSize = True + Me.TableLayoutPanel1.BackColor = System.Drawing.SystemColors.ButtonFace + Me.TableLayoutPanel1.CellBorderStyle = System.Windows.Forms.TableLayoutPanelCellBorderStyle.[Single] + Me.TableLayoutPanel1.ColumnCount = 4 + Me.TableLayoutPanel1.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle()) + Me.TableLayoutPanel1.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle()) + Me.TableLayoutPanel1.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle()) + Me.TableLayoutPanel1.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle()) + Me.TableLayoutPanel1.Controls.Add(Me.tb_c12, 3, 5) + Me.TableLayoutPanel1.Controls.Add(Label1, 2, 5) + Me.TableLayoutPanel1.Controls.Add(Label2, 2, 4) + Me.TableLayoutPanel1.Controls.Add(Label3, 2, 3) + Me.TableLayoutPanel1.Controls.Add(Me.tb_c11, 3, 4) + Me.TableLayoutPanel1.Controls.Add(Me.tb_c01, 1, 0) + Me.TableLayoutPanel1.Controls.Add(Me.tb_c06, 1, 5) + Me.TableLayoutPanel1.Controls.Add(Me.tb_c10, 3, 3) + Me.TableLayoutPanel1.Controls.Add(Label4, 2, 2) + Me.TableLayoutPanel1.Controls.Add(Label5, 0, 5) + Me.TableLayoutPanel1.Controls.Add(Label6, 2, 1) + Me.TableLayoutPanel1.Controls.Add(Label7, 0, 4) + Me.TableLayoutPanel1.Controls.Add(Me.tb_c09, 3, 2) + Me.TableLayoutPanel1.Controls.Add(Me.tb_c05, 1, 4) + Me.TableLayoutPanel1.Controls.Add(Me.tb_c08, 3, 1) + Me.TableLayoutPanel1.Controls.Add(Label8, 2, 0) + Me.TableLayoutPanel1.Controls.Add(Label9, 0, 3) + Me.TableLayoutPanel1.Controls.Add(Label10, 0, 0) + Me.TableLayoutPanel1.Controls.Add(Label11, 0, 2) + Me.TableLayoutPanel1.Controls.Add(Me.tb_c04, 1, 3) + Me.TableLayoutPanel1.Controls.Add(Label12, 0, 1) + Me.TableLayoutPanel1.Controls.Add(Me.tb_c07, 3, 0) + Me.TableLayoutPanel1.Controls.Add(Me.tb_c02, 1, 1) + Me.TableLayoutPanel1.Controls.Add(Me.tb_c03, 1, 2) + Me.TableLayoutPanel1.Location = New System.Drawing.Point(82, 38) + Me.TableLayoutPanel1.Name = "TableLayoutPanel1" + Me.TableLayoutPanel1.RowCount = 6 + 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()) + 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()) + 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.TabIndex = 123 + ' + '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(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 + ' + '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(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 + ' + '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(79, 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(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 + ' + '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(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 + ' + '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(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 + ' + '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(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 + ' + '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 + ' + 'BindingNavigator2 + ' + Me.BindingNavigator2.AddNewItem = Nothing + Me.BindingNavigator2.BindingSource = Me.bsw_cha + Me.BindingNavigator2.CountItem = Nothing + Me.BindingNavigator2.DeleteItem = Nothing + Me.BindingNavigator2.Dock = System.Windows.Forms.DockStyle.Bottom + Me.BindingNavigator2.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToolStripButton1, Me.ToolStripButton2, Me.ToolStripButton3, Me.ToolStripButton4, Me.ToolStripSeparator1, Me.ToolStripButton5, Me.ToolStripButton6}) + Me.BindingNavigator2.Location = New System.Drawing.Point(0, 481) + Me.BindingNavigator2.MoveFirstItem = Me.ToolStripButton1 + Me.BindingNavigator2.MoveLastItem = Me.ToolStripButton4 + Me.BindingNavigator2.MoveNextItem = Me.ToolStripButton3 + Me.BindingNavigator2.MovePreviousItem = Me.ToolStripButton2 + Me.BindingNavigator2.Name = "BindingNavigator2" + Me.BindingNavigator2.PositionItem = Nothing + Me.BindingNavigator2.Size = New System.Drawing.Size(414, 25) + Me.BindingNavigator2.TabIndex = 26 + Me.BindingNavigator2.Text = "BindingNavigator2" + ' + 'ToolStripButton1 + ' + Me.ToolStripButton1.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.ToolStripButton1.Image = CType(resources.GetObject("ToolStripButton1.Image"), System.Drawing.Image) + Me.ToolStripButton1.Name = "ToolStripButton1" + Me.ToolStripButton1.RightToLeftAutoMirrorImage = True + Me.ToolStripButton1.Size = New System.Drawing.Size(23, 22) + Me.ToolStripButton1.Text = "처음으로 이동" + ' + 'ToolStripButton2 + ' + Me.ToolStripButton2.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.ToolStripButton2.Image = CType(resources.GetObject("ToolStripButton2.Image"), System.Drawing.Image) + Me.ToolStripButton2.Name = "ToolStripButton2" + Me.ToolStripButton2.RightToLeftAutoMirrorImage = True + Me.ToolStripButton2.Size = New System.Drawing.Size(23, 22) + Me.ToolStripButton2.Text = "이전으로 이동" + ' + 'ToolStripButton3 + ' + Me.ToolStripButton3.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.ToolStripButton3.Image = CType(resources.GetObject("ToolStripButton3.Image"), System.Drawing.Image) + Me.ToolStripButton3.Name = "ToolStripButton3" + Me.ToolStripButton3.RightToLeftAutoMirrorImage = True + Me.ToolStripButton3.Size = New System.Drawing.Size(23, 22) + Me.ToolStripButton3.Text = "다음으로 이동" + ' + 'ToolStripButton4 + ' + Me.ToolStripButton4.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.ToolStripButton4.Image = CType(resources.GetObject("ToolStripButton4.Image"), System.Drawing.Image) + Me.ToolStripButton4.Name = "ToolStripButton4" + Me.ToolStripButton4.RightToLeftAutoMirrorImage = True + Me.ToolStripButton4.Size = New System.Drawing.Size(23, 22) + Me.ToolStripButton4.Text = "마지막으로 이동" + ' + 'ToolStripSeparator1 + ' + Me.ToolStripSeparator1.Name = "ToolStripSeparator1" + Me.ToolStripSeparator1.Size = New System.Drawing.Size(6, 25) + ' + 'ToolStripButton5 + ' + Me.ToolStripButton5.Image = CType(resources.GetObject("ToolStripButton5.Image"), System.Drawing.Image) + Me.ToolStripButton5.Name = "ToolStripButton5" + Me.ToolStripButton5.RightToLeftAutoMirrorImage = True + Me.ToolStripButton5.Size = New System.Drawing.Size(67, 22) + Me.ToolStripButton5.Text = "추가(&A)" + ' + 'ToolStripButton6 + ' + Me.ToolStripButton6.Image = CType(resources.GetObject("ToolStripButton6.Image"), System.Drawing.Image) + Me.ToolStripButton6.Name = "ToolStripButton6" + Me.ToolStripButton6.RightToLeftAutoMirrorImage = True + Me.ToolStripButton6.Size = New System.Drawing.Size(68, 22) + Me.ToolStripButton6.Text = "삭제(&D)" + ' + 'dv + ' + Me.dv.A_DelCurrentCell = True + Me.dv.A_EnterToTab = True + Me.dv.AllowUserToAddRows = False + Me.dv.AllowUserToResizeRows = False + Me.dv.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _ + Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles) + Me.dv.AutoGenerateColumns = False + Me.dv.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.AllCells + Me.dv.BorderStyle = System.Windows.Forms.BorderStyle.None + Me.dv.CellBorderStyle = System.Windows.Forms.DataGridViewCellBorderStyle.SingleVertical + Me.dv.ColumnHeadersHeight = 30 + Me.dv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.DisableResizing + Me.dv.Columns.AddRange(New System.Windows.Forms.DataGridViewColumn() {Me.건물위치DataGridViewTextBoxColumn}) + Me.dv.DataSource = Me.bs + Me.dv.Location = New System.Drawing.Point(3, 133) + Me.dv.Margin = New System.Windows.Forms.Padding(0) + Me.dv.Name = "dv" + Me.dv.RowHeadersVisible = False + Me.dv.RowTemplate.Height = 23 + Me.dv.Size = New System.Drawing.Size(182, 398) + Me.dv.TabIndex = 3 + ' + '건물위치DataGridViewTextBoxColumn + ' + Me.건물위치DataGridViewTextBoxColumn.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.Fill + Me.건물위치DataGridViewTextBoxColumn.DataPropertyName = "건물위치" + Me.건물위치DataGridViewTextBoxColumn.HeaderText = "건물위치" + Me.건물위치DataGridViewTextBoxColumn.Name = "건물위치DataGridViewTextBoxColumn" + ' + '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(812, 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 = "<메세지>" + ' + 'DataGridViewTextBoxColumn2 + ' + Me.DataGridViewTextBoxColumn2.DataPropertyName = "code" + Me.DataGridViewTextBoxColumn2.HeaderText = "code" + Me.DataGridViewTextBoxColumn2.Name = "DataGridViewTextBoxColumn2" + Me.DataGridViewTextBoxColumn2.Width = 58 + ' + 'DataGridViewTextBoxColumn3 + ' + Me.DataGridViewTextBoxColumn3.DataPropertyName = "code" + Me.DataGridViewTextBoxColumn3.HeaderText = "code" + Me.DataGridViewTextBoxColumn3.Name = "DataGridViewTextBoxColumn3" + Me.DataGridViewTextBoxColumn3.Width = 58 + ' + 'DataGridViewTextBoxColumn4 + ' + Me.DataGridViewTextBoxColumn4.DataPropertyName = "code" + Me.DataGridViewTextBoxColumn4.HeaderText = "code" + Me.DataGridViewTextBoxColumn4.Name = "DataGridViewTextBoxColumn4" + Me.DataGridViewTextBoxColumn4.Width = 58 + ' + 'DataGridViewTextBoxColumn5 + ' + 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 + ' + 'Frm_V20091231_Weather + ' + Me.AutoScaleDimensions = New System.Drawing.SizeF(7.0!, 14.0!) + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font + Me.ClientSize = New System.Drawing.Size(812, 555) + Me.ControlBox = False + Me.Controls.Add(Me.TabControl3) + Me.Controls.Add(Me.dv) + Me.Controls.Add(Me.bn_all) + Me.Controls.Add(Me.StatusStrip1) + Me.Font = New System.Drawing.Font("나눔고딕 ExtraBold", 8.999999!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(129,Byte)) + Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.SizableToolWindow + Me.KeyPreview = true + 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 + Me.TabControl3.ResumeLayout(false) + Me.TabPage1.ResumeLayout(false) + Me.GroupBox2.ResumeLayout(false) + Me.Panel3.ResumeLayout(false) + Me.Panel3.PerformLayout + Me.TableLayoutPanel7.ResumeLayout(false) + Me.TableLayoutPanel7.PerformLayout + CType(Me.bs,System.ComponentModel.ISupportInitialize).EndInit + CType(Me.DS,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) + Me.TableLayoutPanel34.PerformLayout + CType(Me.BindingNavigator1,System.ComponentModel.ISupportInitialize).EndInit + Me.BindingNavigator1.ResumeLayout(false) + Me.BindingNavigator1.PerformLayout + 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) + Me.TableLayoutPanel8.PerformLayout + CType(Me.BindingNavigator4,System.ComponentModel.ISupportInitialize).EndInit + Me.BindingNavigator4.ResumeLayout(false) + Me.BindingNavigator4.PerformLayout + 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) + Me.TableLayoutPanel9.PerformLayout + CType(Me.BindingNavigator5,System.ComponentModel.ISupportInitialize).EndInit + Me.BindingNavigator5.ResumeLayout(false) + Me.BindingNavigator5.PerformLayout + 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) + Me.TableLayoutPanel1.PerformLayout + CType(Me.BindingNavigator2,System.ComponentModel.ISupportInitialize).EndInit + Me.BindingNavigator2.ResumeLayout(false) + Me.BindingNavigator2.PerformLayout + CType(Me.dv,System.ComponentModel.ISupportInitialize).EndInit + Me.StatusStrip1.ResumeLayout(false) + Me.StatusStrip1.PerformLayout + Me.ResumeLayout(false) + Me.PerformLayout + +End Sub + Friend WithEvents bn_all As System.Windows.Forms.BindingNavigator + Friend WithEvents ToolStripButton48 As System.Windows.Forms.ToolStripButton + Friend WithEvents ToolStripButton49 As System.Windows.Forms.ToolStripButton + Friend WithEvents ToolStripSeparator28 As System.Windows.Forms.ToolStripSeparator + Friend WithEvents ToolStripButton51 As System.Windows.Forms.ToolStripButton + Friend WithEvents TabControl3 As System.Windows.Forms.TabControl + Friend WithEvents tb_wnaen As MyTb + Friend WithEvents tb_wnan As MyTb + Friend WithEvents TabPage8 As System.Windows.Forms.TabPage + Friend WithEvents Arindv2 As CEnergy.arindv + Friend WithEvents BindingNavigator1 As System.Windows.Forms.BindingNavigator + Friend WithEvents ToolStripButton9 As System.Windows.Forms.ToolStripButton + Friend WithEvents ToolStripButton10 As System.Windows.Forms.ToolStripButton + Friend WithEvents ToolStripButton11 As System.Windows.Forms.ToolStripButton + Friend WithEvents ToolStripButton12 As System.Windows.Forms.ToolStripButton + Friend WithEvents ToolStripSeparator10 As System.Windows.Forms.ToolStripSeparator + Friend WithEvents ToolStripButton14 As System.Windows.Forms.ToolStripButton + Friend WithEvents ToolStripButton15 As System.Windows.Forms.ToolStripButton + Friend WithEvents TabPage9 As System.Windows.Forms.TabPage + Friend WithEvents TableLayoutPanel5 As System.Windows.Forms.TableLayoutPanel + Friend WithEvents Arindv3 As CEnergy.arindv + Friend WithEvents Panel7 As System.Windows.Forms.Panel + Friend WithEvents BindingNavigator4 As System.Windows.Forms.BindingNavigator + Friend WithEvents ToolStripButton25 As System.Windows.Forms.ToolStripButton + Friend WithEvents ToolStripButton26 As System.Windows.Forms.ToolStripButton + Friend WithEvents ToolStripButton27 As System.Windows.Forms.ToolStripButton + Friend WithEvents ToolStripButton28 As System.Windows.Forms.ToolStripButton + Friend WithEvents ToolStripSeparator11 As System.Windows.Forms.ToolStripSeparator + Friend WithEvents ToolStripButton29 As System.Windows.Forms.ToolStripButton + Friend WithEvents ToolStripButton30 As System.Windows.Forms.ToolStripButton + Friend WithEvents TabPage10 As System.Windows.Forms.TabPage + Friend WithEvents TableLayoutPanel6 As System.Windows.Forms.TableLayoutPanel + Friend WithEvents Arindv4 As CEnergy.arindv + Friend WithEvents Panel8 As System.Windows.Forms.Panel + Friend WithEvents BindingNavigator5 As System.Windows.Forms.BindingNavigator + Friend WithEvents ToolStripButton33 As System.Windows.Forms.ToolStripButton + Friend WithEvents ToolStripButton34 As System.Windows.Forms.ToolStripButton + Friend WithEvents ToolStripButton35 As System.Windows.Forms.ToolStripButton + Friend WithEvents ToolStripButton36 As System.Windows.Forms.ToolStripButton + Friend WithEvents ToolStripSeparator12 As System.Windows.Forms.ToolStripSeparator + Friend WithEvents ToolStripButton37 As System.Windows.Forms.ToolStripButton + Friend WithEvents ToolStripButton38 As System.Windows.Forms.ToolStripButton + Friend WithEvents dv As CEnergy.arindv + Public WithEvents DS As Eco2Ar.DS + Friend WithEvents bs As System.Windows.Forms.BindingSource + Friend WithEvents bsw_ilsa As System.Windows.Forms.BindingSource + Friend WithEvents bsw_temp As System.Windows.Forms.BindingSource + Friend WithEvents bsw_supdo As System.Windows.Forms.BindingSource + Friend WithEvents tb_w02 As MyTb + Friend WithEvents tb_w01 As MyTb + Friend WithEvents tb_w09 As MyTb + Friend WithEvents tb_w08 As MyTb + Friend WithEvents tb_w07 As MyTb + Friend WithEvents tb_w06 As MyTb + Friend WithEvents tb_w05 As MyTb + Friend WithEvents tb_w04 As MyTb + Friend WithEvents tb_w03 As MyTb + Friend WithEvents tb_w12 As MyTb + Friend WithEvents tb_w11 As MyTb + Friend WithEvents tb_w10 As MyTb + Friend WithEvents TableLayoutPanel4 As System.Windows.Forms.TableLayoutPanel + Friend WithEvents Panel4 As System.Windows.Forms.Panel + Friend WithEvents tb_v0 As MyTb + Friend WithEvents tb_v6 As MyTb + Friend WithEvents tb_v1 As MyTb + Friend WithEvents tb_v5 As MyTb + Friend WithEvents tb_v2 As MyTb + Friend WithEvents tb_v4 As MyTb + Friend WithEvents tb_v3 As MyTb + Friend WithEvents tb_v11 As MyTb + Friend WithEvents tb_v10 As MyTb + Friend WithEvents tb_v9 As MyTb + Friend WithEvents tb_v8 As MyTb + Friend WithEvents tb_v7 As MyTb + Friend WithEvents tb_t16 As MyTb + Friend WithEvents tb_t15 As MyTb + Friend WithEvents tb_t14 As MyTb + Friend WithEvents tb_t13 As MyTb + Friend WithEvents tb_t12 As MyTb + Friend WithEvents tb_t1 As MyTb + Friend WithEvents tb_t11 As MyTb + Friend WithEvents tb_t2 As MyTb + Friend WithEvents tb_t10 As MyTb + Friend WithEvents tb_t3 As MyTb + Friend WithEvents tb_t9 As MyTb + Friend WithEvents tb_t4 As MyTb + Friend WithEvents tb_t8 As MyTb + Friend WithEvents tb_t5 As MyTb + Friend WithEvents tb_t7 As MyTb + Friend WithEvents tb_t6 As MyTb + Friend WithEvents tb_t18 As MyTb + Friend WithEvents tb_t17 As MyTb + Friend WithEvents tb_s23 As MyTb + Friend WithEvents tb_S12 As MyTb + Friend WithEvents tb_s22 As MyTb + Friend WithEvents tb_s21 As MyTb + Friend WithEvents tb_s20 As MyTb + Friend WithEvents tb_s19 As MyTb + Friend WithEvents tb_s1 As MyTb + Friend WithEvents tb_s18 As MyTb + Friend WithEvents tb_s17 As MyTb + Friend WithEvents tb_s11 As MyTb + Friend WithEvents tb_s16 As MyTb + Friend WithEvents tb_s15 As MyTb + Friend WithEvents tb_s14 As MyTb + Friend WithEvents tb_s13 As MyTb + Friend WithEvents tb_s2 As MyTb + Friend WithEvents tb_s10 As MyTb + Friend WithEvents tb_s3 As MyTb + Friend WithEvents tb_s9 As MyTb + Friend WithEvents tb_s4 As MyTb + Friend WithEvents tb_s8 As MyTb + Friend WithEvents tb_s5 As MyTb + Friend WithEvents tb_s7 As MyTb + Friend WithEvents tb_s6 As MyTb + Friend WithEvents 건물위치DataGridViewTextBoxColumn As System.Windows.Forms.DataGridViewTextBoxColumn + Friend WithEvents StatusStrip1 As System.Windows.Forms.StatusStrip + Friend WithEvents lb_msg As System.Windows.Forms.ToolStripStatusLabel + Friend WithEvents TabPage1 As System.Windows.Forms.TabPage + Friend WithEvents TableLayoutPanel34 As System.Windows.Forms.TableLayoutPanel + Friend WithEvents tb_v12 As MyTb + Friend WithEvents tb_s24 As MyTb + Friend WithEvents tb_t24 As MyTb + Friend WithEvents tb_t23 As MyTb + Friend WithEvents tb_t22 As MyTb + Friend WithEvents tb_t21 As MyTb + Friend WithEvents tb_t20 As MyTb + Friend WithEvents tb_t19 As MyTb + Friend WithEvents TabPage2 As System.Windows.Forms.TabPage + Friend WithEvents TableLayoutPanel2 As System.Windows.Forms.TableLayoutPanel + Friend WithEvents Arindv1 As CEnergy.arindv + Friend WithEvents Panel1 As System.Windows.Forms.Panel + Friend WithEvents tb_c12 As MyTb + Friend WithEvents tb_c11 As MyTb + Friend WithEvents tb_c01 As MyTb + Friend WithEvents tb_c06 As MyTb + Friend WithEvents tb_c10 As MyTb + Friend WithEvents tb_c09 As MyTb + Friend WithEvents tb_c05 As MyTb + Friend WithEvents tb_c08 As MyTb + Friend WithEvents tb_c04 As MyTb + Friend WithEvents tb_c02 As MyTb + Friend WithEvents tb_c07 As MyTb + Friend WithEvents tb_c03 As MyTb + Friend WithEvents BindingNavigator2 As System.Windows.Forms.BindingNavigator + Friend WithEvents ToolStripButton1 As System.Windows.Forms.ToolStripButton + Friend WithEvents ToolStripButton2 As System.Windows.Forms.ToolStripButton + Friend WithEvents ToolStripButton3 As System.Windows.Forms.ToolStripButton + Friend WithEvents ToolStripButton4 As System.Windows.Forms.ToolStripButton + Friend WithEvents ToolStripSeparator1 As System.Windows.Forms.ToolStripSeparator + Friend WithEvents ToolStripButton5 As System.Windows.Forms.ToolStripButton + Friend WithEvents ToolStripButton6 As System.Windows.Forms.ToolStripButton + Friend WithEvents bsw_cha As System.Windows.Forms.BindingSource + Friend WithEvents GroupBox2 As System.Windows.Forms.GroupBox + Friend WithEvents Panel3 As System.Windows.Forms.Panel + Friend WithEvents TableLayoutPanel7 As System.Windows.Forms.TableLayoutPanel + Friend WithEvents Label88 As System.Windows.Forms.Label + Friend WithEvents GroupBox1 As System.Windows.Forms.GroupBox + Friend WithEvents Panel2 As System.Windows.Forms.Panel + Friend WithEvents Label89 As System.Windows.Forms.Label + Friend WithEvents TableLayoutPanel8 As System.Windows.Forms.TableLayoutPanel + Friend WithEvents TableLayoutPanel9 As System.Windows.Forms.TableLayoutPanel + Friend WithEvents TableLayoutPanel1 As System.Windows.Forms.TableLayoutPanel + Friend WithEvents 설명DataGridViewTextBoxColumn As System.Windows.Forms.DataGridViewTextBoxColumn + Friend WithEvents code As System.Windows.Forms.DataGridViewTextBoxColumn + Friend WithEvents DataGridViewTextBoxColumn2 As System.Windows.Forms.DataGridViewTextBoxColumn + Friend WithEvents DataGridViewTextBoxColumn3 As System.Windows.Forms.DataGridViewTextBoxColumn + Friend WithEvents DataGridViewTextBoxColumn4 As System.Windows.Forms.DataGridViewTextBoxColumn + Friend WithEvents DataGridViewTextBoxColumn5 As System.Windows.Forms.DataGridViewTextBoxColumn + Friend WithEvents DataGridViewTextBoxColumn6 As System.Windows.Forms.DataGridViewTextBoxColumn + Friend WithEvents DataGridViewTextBoxColumn7 As System.Windows.Forms.DataGridViewTextBoxColumn + Friend WithEvents 설명DataGridViewTextBoxColumn1 As System.Windows.Forms.DataGridViewTextBoxColumn + Friend WithEvents DataGridViewTextBoxColumn9 As System.Windows.Forms.DataGridViewTextBoxColumn + Friend WithEvents 설명DataGridViewTextBoxColumn2 As System.Windows.Forms.DataGridViewTextBoxColumn + Friend WithEvents DataGridViewTextBoxColumn10 As System.Windows.Forms.DataGridViewTextBoxColumn + Friend WithEvents DataGridViewTextBoxColumn8 As System.Windows.Forms.DataGridViewTextBoxColumn + Friend WithEvents DataGridViewTextBoxColumn1 As System.Windows.Forms.DataGridViewTextBoxColumn + Friend WithEvents DataGridViewTextBoxColumn11 As System.Windows.Forms.DataGridViewTextBoxColumn + Friend WithEvents Button1 As System.Windows.Forms.Button +End Class diff --git a/ArinWarev1/Forms/v20091231/Frm_v20091231_Weather.resx b/ArinWarev1/Forms/v20091231/Frm_v20091231_Weather.resx new file mode 100644 index 0000000..e409477 --- /dev/null +++ b/ArinWarev1/Forms/v20091231/Frm_v20091231_Weather.resx @@ -0,0 +1,709 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=2.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 + + + 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 + + + 497, 17 + + + 17, 17 + + + 329, 56 + + + True + + + 81, 17 + + + 581, 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 + + + 178, 17 + + + 17, 56 + + + + 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 + + + 286, 17 + + + 173, 56 + + + + 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 + + + 399, 17 + + + 514, 56 + + + + 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== + + + + 396, 56 + + + 83 + + \ No newline at end of file diff --git a/ArinWarev1/Forms/v20091231/Frm_v20091231_Weather.vb b/ArinWarev1/Forms/v20091231/Frm_v20091231_Weather.vb new file mode 100644 index 0000000..a653c4d --- /dev/null +++ b/ArinWarev1/Forms/v20091231/Frm_v20091231_Weather.vb @@ -0,0 +1,677 @@ +Public Class Frm_V20091231_Weather +#Region "data Base 변경여부및 적용방법" + + '''변경된내용을적용한다. + Public Overrides Function AcceptChanged() As Boolean + bs.EndEdit() + Dim BaseDS As DataSet = CType(bs.DataSource, DataSet) + Dim BaseDT As DataTable = BaseDS.Tables(bs.DataMember) + BaseDT.AcceptChanges() + Return True + End Function + + '''변경된내용이있다면 취소한다. + Public Overrides Function RejectChanged() As Boolean + Dim BaseDS As DataSet = CType(bs.DataSource, DataSet) + Dim BaseDT As DataTable = BaseDS.Tables(bs.DataMember) + BaseDT.RejectChanges() + Return True + End Function + + '''데이터에변형이있었는가? + Public Overrides Function HasChanged() As Boolean + bs.EndEdit() + Dim BaseDS As DataSet = CType(bs.DataSource, DataSet) + Dim BaseDT As DataTable = BaseDS.Tables(bs.DataMember) + Dim ChangeDT As DataTable = BaseDT.GetChanges + If Not ChangeDT Is Nothing Then Return True + Return False + End Function + + '''기본데이터테이블을 반환합니다. + Public Function DT() As DataTable + Dim BaseDS As DataSet = CType(bs.DataSource, DataSet) + Return BaseDS.Tables(bs.DataMember) + End Function + + +#End Region + + + + Private Sub MdiMain_FormClosed(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosedEventArgs) Handles Me.FormClosed + CEnergy.ARINCLASS.SaveLoad_FrmSetting(Me, Me.bs.Position, True) + End Sub + + Private Sub MdiMain_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown + Select Case e.KeyCode + Case Keys.F12 + End Select + End Sub + + Private Sub MdiMain_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load + 'MdiMain.Toggle_Menu_Color(MdiMain.E_MenuIdx.기상데이터) + 'CEnergy.ARINCLASS.SaveLoad_FrmSetting(Me) + '//Weatehr + AddHandler DSET.tbl_weather.TableNewRow, AddressOf AddNewDataRow_Weather + + AddHandler DSET.weather_ilsa.TableNewRow, AddressOf AddNewDataRow_Weatherilsa + AddHandler DSET.weather_supdo.TableNewRow, AddressOf AddNewDataRow_Weathersupdo + AddHandler DSET.weather_temp.TableNewRow, AddressOf AddNewDataRow_Weathertemp + AddHandler DSET.weather_cha.TableNewRow, AddressOf AddNewDataRow_WeatherCha + + Me.bs.DataSource = DSET + Me.bsw_ilsa.DataSource = DSET + Me.bsw_supdo.DataSource = DSET + Me.bsw_temp.DataSource = DSET + Me.bsw_cha.DataSource = DSET + + '//콤보컨트롤 바인딩 + Me.bn_all.BindingSource = Me.bs + Me.bs = Me.bs + + Try + Me.bs.Position = CEnergy.ARINCLASS.Read_LastPos_Frm(Me) + Catch ex As Exception + Me.bs.MoveFirst() + End Try + + End Sub + +#Region "Weather 관련" + Private Sub AddNewDataRow_Weather(ByVal sender As Object, ByVal e As System.Data.DataTableNewRowEventArgs) + e.Row.Item("code") = GetMaxCode(DSET.tbl_weather) + End Sub + Private Sub AddNewDataRow_Weatherilsa(ByVal sender As Object, ByVal e As System.Data.DataTableNewRowEventArgs) + e.Row.Item("pcode") = CType(bs.Current, DataRowView)("code") + + '//일사데이터는 0001로부터하게한다 + Dim Newcode As String + Try + Dim Dr As DataRow = DSET.weather_ilsa.Select("pcode='" & e.Row.Item("pcode").ToString & "'", "code desc")(0) + Newcode = Format(CInt(Dr("code")) + 1, "0000") + Catch ex As Exception + Newcode = "0001" + End Try + + e.Row.Item("code") = Newcode + End Sub + Private Sub AddNewDataRow_Weathertemp(ByVal sender As Object, ByVal e As System.Data.DataTableNewRowEventArgs) + e.Row.Item("pcode") = CType(bs.Current, DataRowView)("code") + e.Row.Item("code") = GetMaxCode(DSET.weather_temp) + End Sub + Private Sub AddNewDataRow_Weathersupdo(ByVal sender As Object, ByVal e As System.Data.DataTableNewRowEventArgs) + e.Row.Item("pcode") = CType(bs.Current, DataRowView)("code") + e.Row.Item("code") = GetMaxCode(DSET.weather_supdo) + End Sub + Private Sub AddNewDataRow_WeatherCha(ByVal sender As Object, ByVal e As System.Data.DataTableNewRowEventArgs) + e.Row.Item("pcode") = CType(bs.Current, DataRowView)("code") + e.Row.Item("code") = GetMaxCode(DSET.weather_cha) + End Sub + Private Function GetMaxCode(ByVal dt As DataTable) As String + Try + Dim Dr As DataRow = dt.Select("", "code desc")(0) + Return Format(CInt(Dr("code")) + 1, "0000") + Catch ex As Exception + Return "0001" + End Try + End Function + + Private Sub bt_add_weather_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) + If Not EndEdit(Me.bs) Then Return + Me.bs.AddNew() + End Sub + + Private Sub bt_Del_weather_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) + Dbbase.DelCrow(Me.bs, True) + 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 + Check_Modify(Me.DS.tbl_weather) + Check_Modify(Me.DS.weather_ilsa, False) + Check_Modify(Me.DS.weather_supdo, False) + Check_Modify(Me.DS.weather_temp, False) + Check_Modify(Me.DS.weather_cha, False) + + End Sub + + Private Sub bs_CurrentChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bs.CurrentChanged + Dim pcode As String = CType(bs.Current, DataRowView)("code").ToString + Me.bsw_ilsa.Filter = "pcode='" & pcode & "'" + Me.bsw_temp.Filter = "pcode='" & pcode & "'" + Me.bsw_supdo.Filter = "pcode='" & pcode & "'" + Me.bsw_cha.Filter = "pcode='" & pcode & "'" + + If DSET.weather_temp.Select("pcode='" & pcode & "'").GetUpperBound(0) = -1 Then + For i As Integer = 1 To 12 + 'MsgBox(i) + Dim Dr As DS.weather_tempRow = DSET.weather_temp.Newweather_tempRow + Dr.code = Format(i, "0000") + Dr.설명 = Format(i, "00") & "월" + DSET.weather_temp.Addweather_tempRow(Dr) + Next + Else + 'MsgBox(Me.bsw_temp.Count) + End If + If DSET.weather_supdo.Select("pcode='" & pcode & "'").GetUpperBound(0) = -1 Then + For i As Integer = 1 To 12 + Dim Dr As DS.weather_supdoRow = DSET.weather_supdo.Newweather_supdoRow + Dr.code = Format(i, "0000") + Dr.설명 = Format(i, "00") & "월" + DSET.weather_supdo.Addweather_supdoRow(Dr) + Next + Else + 'MsgBox(Me.bsw_supdo.Count) + End If + Me.DS.weather_temp.AcceptChanges() + Me.DS.weather_supdo.AcceptChanges() + End Sub + + + + Private Sub ToolStripButton14_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton14.Click + If Not EndEdit(Me.bsw_ilsa) Then Return + Me.bsw_ilsa.AddNew() + End Sub + + Private Sub ToolStripButton15_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton15.Click + Dbbase.DelCrow(Me.bsw_ilsa, True) + End Sub + + Private Sub ToolStripButton29_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton29.Click + If Not EndEdit(Me.bsw_temp) Then Return + Me.bsw_temp.AddNew() + End Sub + + Private Sub ToolStripButton30_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton30.Click + Dbbase.DelCrow(Me.bsw_temp, True) + End Sub + + Private Sub ToolStripButton37_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton37.Click + If Not EndEdit(Me.bsw_supdo) Then Return + Me.bsw_supdo.AddNew() + End Sub + + Private Sub ToolStripButton38_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton38.Click + Dbbase.DelCrow(Me.bsw_supdo, True) + End Sub + + Private Sub ToolStripButton6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton6.Click + Dbbase.DelCrow(Me.bsw_cha, True) + End Sub + + Private Sub ToolStripButton5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton5.Click + If Not EndEdit(Me.bsw_cha) Then Return + Me.bsw_cha.AddNew() + End Sub + +#End Region + + + Private Sub ToolStripButton48_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton48.Click + If Prj.Opened = False Then + MsgBox("먼저 파일을 불러오세요", MsgBoxStyle.Information, "확인") + Return + End If + If Not EndEdit(Me.bs) Then Return + Me.bs.AddNew() + End Sub + + Private Sub ToolStripButton49_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton49.Click + If Prj.Opened = False Then + MsgBox("먼저 파일을 불러오세요", MsgBoxStyle.Information, "확인") + Return + End If + Dbbase.DelCrow(Me.bs, True) + End Sub + + Private Sub ToolStripButton51_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton51.Click + If Prj.Opened = False Then + MsgBox("먼저 파일을 불러오세요", MsgBoxStyle.Information, "확인") + Return + End If + + If MsgBox("변경된 내용을 취소하시겠습니까?", MsgBoxStyle.Information Or MsgBoxStyle.OkCancel, "변경취소") <> MsgBoxResult.Ok Then Return + + DSET.tbl_weather.RejectChanges() + DSET.weather_cha.RejectChanges() + DSET.weather_ilsa.RejectChanges() + DSET.weather_supdo.RejectChanges() + DSET.weather_temp.RejectChanges() + + End Sub + + Private Sub tb_t1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles tb_t1.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)) + ' Dim Cnt As Short = 0 + ' For i As Integer = 0 To CB.GetUpperBound(0) + ' If CB(i).Trim <> "" Then + ' If Cnt <> 0 Then + ' Dim Ctl As TextBox = CType(Me.TableLayoutPanel3.Controls(Me.TableLayoutPanel3.Controls.IndexOfKey("tb_t" & CStr(Cnt + 1))), TextBox) + ' Ctl.Text = CB(i).Trim + ' End If + ' Cnt = CShort(Cnt + 1) + ' End If + ' Next + + 'End If + 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) < 23 Then + MsgBox("붙여넣기가 호환되는 데이터가 아닙니다.", MsgBoxStyle.Information, "확인") + Return + End If + + + For ii As Integer = 0 To CType(CB(0).Split(CChar(vbTab)), String()).GetUpperBound(0) + + Dim Cnt As Short = 0 + For i As Integer = 0 To CB.GetUpperBound(0) + Select Case i + Case 0 + '//Me.tb_t1.Text = CB(i).Split(CChar(vbTab))(ii).Trim + Case 1 + Me.tb_t2.Text = CB(i).Split(CChar(vbTab))(ii).Trim + Case 2 + Me.tb_t3.Text = CB(i).Split(CChar(vbTab))(ii).Trim + Case 3 + Me.tb_t4.Text = CB(i).Split(CChar(vbTab))(ii).Trim + Case 4 + Me.tb_t5.Text = CB(i).Split(CChar(vbTab))(ii).Trim + Case 5 + Me.tb_t6.Text = CB(i).Split(CChar(vbTab))(ii).Trim + Case 6 + Me.tb_t7.Text = CB(i).Split(CChar(vbTab))(ii).Trim + Case 7 + Me.tb_t8.Text = CB(i).Split(CChar(vbTab))(ii).Trim + Case 8 + Me.tb_t9.Text = CB(i).Split(CChar(vbTab))(ii).Trim + Case 9 + Me.tb_t10.Text = CB(i).Split(CChar(vbTab))(ii).Trim + Case 10 + Me.tb_t11.Text = CB(i).Split(CChar(vbTab))(ii).Trim + Case 11 + Me.tb_t12.Text = CB(i).Split(CChar(vbTab))(ii).Trim + Case 12 + Me.tb_t13.Text = CB(i).Split(CChar(vbTab))(ii).Trim + Case 13 + Me.tb_t14.Text = CB(i).Split(CChar(vbTab))(ii).Trim + Case 14 + Me.tb_t15.Text = CB(i).Split(CChar(vbTab))(ii).Trim + Case 15 + Me.tb_t16.Text = CB(i).Split(CChar(vbTab))(ii).Trim + Case 16 + Me.tb_t17.Text = CB(i).Split(CChar(vbTab))(ii).Trim + Case 17 + Me.tb_t18.Text = CB(i).Split(CChar(vbTab))(ii).Trim + Case 18 + Me.tb_t19.Text = CB(i).Split(CChar(vbTab))(ii).Trim + Case 19 + Me.tb_t20.Text = CB(i).Split(CChar(vbTab))(ii).Trim + Case 20 + Me.tb_t21.Text = CB(i).Split(CChar(vbTab))(ii).Trim + Case 21 + Me.tb_t22.Text = CB(i).Split(CChar(vbTab))(ii).Trim + Case 22 + Me.tb_t23.Text = CB(i).Split(CChar(vbTab))(ii).Trim + Case 23 + Me.tb_t24.Text = CB(i).Split(CChar(vbTab))(ii).Trim + + End Select + Next + '//If bsw_temp.Position < bsw_temp.Count Then bsw_temp.Position += 1 '//위치이동 + Next + Me.bsw_temp.EndEdit() + End If + + End Sub + + + Private Sub tb_s1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles tb_s1.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)) + ' Dim Cnt As Short = 0 + ' For i As Integer = 0 To CB.GetUpperBound(0) + ' If CB(i).Trim <> "" Then + ' If Cnt <> 0 Then + ' Dim Ctl As TextBox = CType(Me.TableLayoutPanel7.Controls(Me.TableLayoutPanel7.Controls.IndexOfKey("tb_s" & CStr(Cnt + 1))), TextBox) + ' Ctl.Text = CB(i).Trim + ' End If + ' Cnt = CShort(Cnt + 1) + ' End If + ' Next + + 'End If + 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) < 23 Then + MsgBox("붙여넣기가 호환되는 데이터가 아닙니다.", MsgBoxStyle.Information, "확인") + Return + End If + + + For ii As Integer = 0 To CType(CB(0).Split(CChar(vbTab)), String()).GetUpperBound(0) + + Dim Cnt As Short = 0 + For i As Integer = 0 To CB.GetUpperBound(0) + Select Case i + Case 0 + '//Me.tb_s1.Text = CB(i).Split(CChar(vbTab))(ii).Trim + Case 1 + Me.tb_s2.Text = CB(i).Split(CChar(vbTab))(ii).Trim + Case 2 + Me.tb_s3.Text = CB(i).Split(CChar(vbTab))(ii).Trim + Case 3 + Me.tb_s4.Text = CB(i).Split(CChar(vbTab))(ii).Trim + Case 4 + Me.tb_s5.Text = CB(i).Split(CChar(vbTab))(ii).Trim + Case 5 + Me.tb_s6.Text = CB(i).Split(CChar(vbTab))(ii).Trim + Case 6 + Me.tb_s7.Text = CB(i).Split(CChar(vbTab))(ii).Trim + Case 7 + Me.tb_s8.Text = CB(i).Split(CChar(vbTab))(ii).Trim + Case 8 + Me.tb_s9.Text = CB(i).Split(CChar(vbTab))(ii).Trim + Case 9 + Me.tb_s10.Text = CB(i).Split(CChar(vbTab))(ii).Trim + Case 10 + Me.tb_s11.Text = CB(i).Split(CChar(vbTab))(ii).Trim + Case 11 + Me.tb_S12.Text = CB(i).Split(CChar(vbTab))(ii).Trim + Case 12 + Me.tb_s13.Text = CB(i).Split(CChar(vbTab))(ii).Trim + Case 13 + Me.tb_s14.Text = CB(i).Split(CChar(vbTab))(ii).Trim + Case 14 + Me.tb_s15.Text = CB(i).Split(CChar(vbTab))(ii).Trim + Case 15 + Me.tb_s16.Text = CB(i).Split(CChar(vbTab))(ii).Trim + Case 16 + Me.tb_s17.Text = CB(i).Split(CChar(vbTab))(ii).Trim + Case 17 + Me.tb_s18.Text = CB(i).Split(CChar(vbTab))(ii).Trim + Case 18 + Me.tb_s19.Text = CB(i).Split(CChar(vbTab))(ii).Trim + Case 19 + Me.tb_s20.Text = CB(i).Split(CChar(vbTab))(ii).Trim + Case 20 + Me.tb_s21.Text = CB(i).Split(CChar(vbTab))(ii).Trim + Case 21 + Me.tb_s22.Text = CB(i).Split(CChar(vbTab))(ii).Trim + Case 22 + Me.tb_s23.Text = CB(i).Split(CChar(vbTab))(ii).Trim + Case 23 + Me.tb_s24.Text = CB(i).Split(CChar(vbTab))(ii).Trim + + End Select + Next + '//If bsw_supdo.Position < bsw_supdo.Count Then bsw_supdo.Position += 1 '//위치이동 + Next + Me.bsw_supdo.EndEdit() + End If + + End Sub + + Private Sub tb_v0_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles tb_v0.KeyDown + 'If e.KeyCode = Keys.V And e.Control Then + ' '//클립보드붙여넣기 + ' Dim CB() As String = My.Computer.Clipboard.GetText.Split(CChar(vbCrLf)) + ' Dim Cnt As Short = 0 + ' For i As Integer = 0 To CB.GetUpperBound(0) + ' If CB(i).Trim <> "" Then + ' If Cnt <> 0 Then + ' Dim Ctl As TextBox = CType(Me.TableLayoutPanel2.Controls(Me.TableLayoutPanel2.Controls.IndexOfKey("tb_v" & CStr(Cnt))), TextBox) + ' Ctl.Text = CB(i).Trim + ' End If + ' Cnt = CShort(Cnt + 1) + ' End If + ' Next + ' e.Handled = True + ' e.SuppressKeyPress = False + 'End If + + + Dim CB() As String = My.Computer.Clipboard.GetText.Split(CChar(vbCrLf)) + If CB.GetUpperBound(0) < 12 Then + MsgBox("붙여넣기가 호환되는 데이터가 아닙니다.", MsgBoxStyle.Information, "확인") + Return + End If + + If e.KeyCode = Keys.V And e.Control Then + + e.Handled = True + e.SuppressKeyPress = False + '//클립보드붙여넣기 + 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 = 0 To CB.GetUpperBound(0) + Select Case i + Case 0 '///조명은 신규기록하지않으므로.. 쓰지않게한다. + '//Me.tb_v0.Text = CB(i).Split(CChar(vbTab))(ii).Trim + Case 1 '///조명은 신규기록하지않으므로.. 쓰지않게한다. + Me.tb_v1.Text = CB(i).Split(CChar(vbTab))(ii).Trim + Case 2 '///조명은 신규기록하지않으므로.. 쓰지않게한다. + Me.tb_v2.Text = CB(i).Split(CChar(vbTab))(ii).Trim + Case 3 '///조명은 신규기록하지않으므로.. 쓰지않게한다. + Me.tb_v3.Text = CB(i).Split(CChar(vbTab))(ii).Trim + Case 4 '///조명은 신규기록하지않으므로.. 쓰지않게한다. + Me.tb_v4.Text = CB(i).Split(CChar(vbTab))(ii).Trim + Case 5 '///조명은 신규기록하지않으므로.. 쓰지않게한다. + Me.tb_v5.Text = CB(i).Split(CChar(vbTab))(ii).Trim + Case 6 '///조명은 신규기록하지않으므로.. 쓰지않게한다. + Me.tb_v6.Text = CB(i).Split(CChar(vbTab))(ii).Trim + Case 7 '///조명은 신규기록하지않으므로.. 쓰지않게한다. + Me.tb_v7.Text = CB(i).Split(CChar(vbTab))(ii).Trim + Case 8 '///조명은 신규기록하지않으므로.. 쓰지않게한다. + Me.tb_v8.Text = CB(i).Split(CChar(vbTab))(ii).Trim + Case 9 '///조명은 신규기록하지않으므로.. 쓰지않게한다. + Me.tb_v9.Text = CB(i).Split(CChar(vbTab))(ii).Trim + Case 10 '///조명은 신규기록하지않으므로.. 쓰지않게한다. + Me.tb_v10.Text = CB(i).Split(CChar(vbTab))(ii).Trim + Case 11 '///조명은 신규기록하지않으므로.. 쓰지않게한다. + Me.tb_v11.Text = CB(i).Split(CChar(vbTab))(ii).Trim + Case 12 '///조명은 신규기록하지않으므로.. 쓰지않게한다. + Me.tb_v12.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_ilsa.EndEdit() + End If + + + 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 + If Me.bs.Position < Me.bs.Count Then Me.bs.Position += 1 + Else + If Me.bs.Position > 0 Then Me.bs.Position -= 1 + End If + Me.Validate() + My.Application.DoEvents() + End Sub + + Private Sub NTb4_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles tb_c01.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) < 11 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 = 0 To CB.GetUpperBound(0) + Select Case i + Case 0 '///조명은 신규기록하지않으므로.. 쓰지않게한다. + '//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 '///조명은 신규기록하지않으므로.. 쓰지않게한다. + Me.tb_c03.Text = CB(i).Split(CChar(vbTab))(ii).Trim + Case 3 '///조명은 신규기록하지않으므로.. 쓰지않게한다. + Me.tb_c04.Text = CB(i).Split(CChar(vbTab))(ii).Trim + Case 4 '///조명은 신규기록하지않으므로.. 쓰지않게한다. + Me.tb_c05.Text = CB(i).Split(CChar(vbTab))(ii).Trim + Case 5 '///조명은 신규기록하지않으므로.. 쓰지않게한다. + Me.tb_c06.Text = CB(i).Split(CChar(vbTab))(ii).Trim + Case 6 '///조명은 신규기록하지않으므로.. 쓰지않게한다. + Me.tb_c07.Text = CB(i).Split(CChar(vbTab))(ii).Trim + Case 7 '///조명은 신규기록하지않으므로.. 쓰지않게한다. + Me.tb_c08.Text = CB(i).Split(CChar(vbTab))(ii).Trim + Case 8 '///조명은 신규기록하지않으므로.. 쓰지않게한다. + Me.tb_c09.Text = CB(i).Split(CChar(vbTab))(ii).Trim + Case 9 '///조명은 신규기록하지않으므로.. 쓰지않게한다. + 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 '///조명은 신규기록하지않으므로.. 쓰지않게한다. + Me.tb_c12.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_cha.EndEdit() + End If + End Sub + + + Private Sub dv_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles dv.MouseUp + If e.Button = Windows.Forms.MouseButtons.Right Then + Dim Frm_FilterA As New Frm_Filter + Frm_FilterA.ColumTitle = getColCaption(Me.Dt) + Frm_FilterA.ColumList = getColName(Me.Dt) + Frm_FilterA.Colorlist = "" + If Frm_FilterA.ShowDialog <> Windows.Forms.DialogResult.OK Then Return '//창떳을떄 확인아ㅣ고 취소눌르면 다음을 수행하지않는다는거에요. + Dim Filter As String = Frm_FilterA.tb_filter.Text '//값은 아까 그 텍박에 잇구요. + Try + Me.bs.Filter = Filter + Catch ex As Exception + Me.bs.Filter = "" + End Try + End If + End Sub + + Private Sub 외기온도_난방기_NTb_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles tb_wnan.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) < 14 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 = 0 To CB.GetUpperBound(0) + Select Case i + Case 0 '///조명은 신규기록하지않으므로.. 쓰지않게한다. + 'Me.tb_wnan.Text = CB(i).Split(CChar(vbTab))(ii).Trim + 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 '///조명은 신규기록하지않으므로.. 쓰지않게한다. + Me.tb_w02.Text = CB(i).Split(CChar(vbTab))(ii).Trim + Case 5 '///조명은 신규기록하지않으므로.. 쓰지않게한다. + Me.tb_w03.Text = CB(i).Split(CChar(vbTab))(ii).Trim + Case 6 '///조명은 신규기록하지않으므로.. 쓰지않게한다. + Me.tb_w04.Text = CB(i).Split(CChar(vbTab))(ii).Trim + Case 7 '///조명은 신규기록하지않으므로.. 쓰지않게한다. + Me.tb_w05.Text = CB(i).Split(CChar(vbTab))(ii).Trim + Case 8 '///조명은 신규기록하지않으므로.. 쓰지않게한다. + Me.tb_w06.Text = CB(i).Split(CChar(vbTab))(ii).Trim + Case 9 '///조명은 신규기록하지않으므로.. 쓰지않게한다. + Me.tb_w07.Text = CB(i).Split(CChar(vbTab))(ii).Trim + Case 10 '///조명은 신규기록하지않으므로.. 쓰지않게한다. + Me.tb_w08.Text = CB(i).Split(CChar(vbTab))(ii).Trim + Case 11 '///조명은 신규기록하지않으므로.. 쓰지않게한다. + Me.tb_w09.Text = CB(i).Split(CChar(vbTab))(ii).Trim + Case 12 '///조명은 신규기록하지않으므로.. 쓰지않게한다. + Me.tb_w10.Text = CB(i).Split(CChar(vbTab))(ii).Trim + Case 13 '///조명은 신규기록하지않으므로.. 쓰지않게한다. + Me.tb_w11.Text = CB(i).Split(CChar(vbTab))(ii).Trim + Case 14 '///조명은 신규기록하지않으므로.. 쓰지않게한다. + 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 '//위치이동 + Next + Me.bsw_cha.EndEdit() + End If + End Sub + + + Private Sub Arindv2_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Arindv2.KeyDown + If e.KeyCode = Keys.C AndAlso e.Control Then + + My.Computer.Clipboard.SetData("ILSAROW", Me.Arindv2.SelectedRows) + ElseIf e.KeyCode = Keys.V AndAlso e.Control Then + Dim A As DataGridViewSelectedRowCollection = My.Computer.Clipboard.GetData("ILSAROW") + For i As Integer = 1 To A.Count + Me.ToolStripButton14.PerformClick() '//한줄추가하고 + Dim Drv As DataRowView = Me.bsw_ilsa.Current + Drv("설명") = A(i).Cells(0).Value + Next + End If + End Sub + + Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click + + For Each drp As DS.tbl_weatherRow In DSET.tbl_weather.Rows + Dim i As Integer = 0 + For Each dr As DS.weather_chaRow In DSET.weather_cha.Select("pcode='" & drp.code & "'") + i += 1 + dr.code = Format(i, "0000") + Next + Next + + 'For j As Integer = 1 To DSET.weather_cha.Select(Me.bsw_cha.Filter).Length + ' DSET.weather_cha.Select(Me.bsw_cha.Filter)(j - 1)("code") = Format(j, "0000") + 'Next + DS.weather_cha.AcceptChanges() '//이건 변경내역을 반영하게삳는겁니다. + End Sub +End Class \ No newline at end of file diff --git a/ArinWarev1/Forms/v20091231/Frm_v20091231_YK.Designer.vb b/ArinWarev1/Forms/v20091231/Frm_v20091231_YK.Designer.vb new file mode 100644 index 0000000..05fdea3 --- /dev/null +++ b/ArinWarev1/Forms/v20091231/Frm_v20091231_YK.Designer.vb @@ -0,0 +1,747 @@ + _ +Partial Class Frm_V20091231_YK + Inherits MMM.FaderForm + + 'Form은 Dispose를 재정의하여 구성 요소 목록을 정리합니다. + _ + Protected Overrides Sub Dispose(ByVal disposing As Boolean) + Try + If disposing AndAlso components IsNot Nothing Then + components.Dispose() + End If + Finally + MyBase.Dispose(disposing) + End Try + End Sub + + 'Windows Form 디자이너에 필요합니다. + Private components As System.ComponentModel.IContainer + + '참고: 다음 프로시저는 Windows Form 디자이너에 필요합니다. + '수정하려면 Windows Form 디자이너를 사용하십시오. + '코드 편집기를 사용하여 수정하지 마십시오. + _ + Private Sub InitializeComponent() + Me.components = New System.ComponentModel.Container + Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(Frm_V20091231_YK)) + Dim DataGridViewCellStyle6 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle + Dim DataGridViewCellStyle4 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle + Dim DataGridViewCellStyle5 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle + 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 + Me.bt_Del = New System.Windows.Forms.ToolStripButton + Me.bt_cancel = New System.Windows.Forms.ToolStripButton + Me.ToolStripSeparator1 = New System.Windows.Forms.ToolStripSeparator + Me.lbl_pos = New System.Windows.Forms.ToolStripLabel + Me.Label15 = New System.Windows.Forms.Label + Me.PictureBox4 = New System.Windows.Forms.PictureBox + Me.GroupBox1 = New System.Windows.Forms.GroupBox + Me.NTb_창호세부설명 = New System.Windows.Forms.TextBox + Me.NTb_일사에너지투과율 = New System.Windows.Forms.TextBox + Me.NTb_창호열관류율 = New System.Windows.Forms.TextBox + Me.lbl_창호세부설명 = New System.Windows.Forms.Label + Me.Panel2 = New System.Windows.Forms.Panel + Me.UserControl11 = New mn.UserControl1 + Me.lbl_일사에너지투과율 = New System.Windows.Forms.Label + Me.cmb_열전도율 = New System.Windows.Forms.ComboBox + Me.bs_detail = New System.Windows.Forms.BindingSource(Me.components) + Me.lbl_창호열관류율 = New System.Windows.Forms.Label + Me.Label1 = New System.Windows.Forms.Label + Me.btn_후경색 = New System.Windows.Forms.Button + Me.btn_전경색 = New System.Windows.Forms.Button + Me.열관류율NTb = New Eco2Ar.MyTb + Me.TextBox7 = New System.Windows.Forms.TextBox + Me.cmb_재료 = New System.Windows.Forms.ComboBox + Me.Panel1 = New System.Windows.Forms.Panel + Me.arindv1 = New System.Windows.Forms.DataGridView + Me.code = New System.Windows.Forms.DataGridViewTextBoxColumn + Me.재료명 = New System.Windows.Forms.DataGridViewTextBoxColumn + Me.열전도율 = New System.Windows.Forms.DataGridViewTextBoxColumn + Me.두께 = New System.Windows.Forms.DataGridViewTextBoxColumn + Me.구분 = New System.Windows.Forms.DataGridViewTextBoxColumn + Me.전경색 = New System.Windows.Forms.DataGridViewTextBoxColumn + Me.후경색 = New System.Windows.Forms.DataGridViewTextBoxColumn + Me.열저항 = New System.Windows.Forms.DataGridViewTextBoxColumn + Me.전경 = New System.Windows.Forms.DataGridViewButtonColumn + Me.Column1 = New System.Windows.Forms.DataGridViewButtonColumn + Me.bn_detail = New System.Windows.Forms.BindingNavigator(Me.components) + Me.ToolStripLabel1 = New System.Windows.Forms.ToolStripLabel + Me.ToolStripButton1 = New System.Windows.Forms.ToolStripButton + Me.ToolStripButton2 = New System.Windows.Forms.ToolStripButton + Me.ToolStripSeparator2 = New System.Windows.Forms.ToolStripSeparator + Me.ToolStripLabel2 = New System.Windows.Forms.ToolStripLabel + Me.ToolStripButton3 = New System.Windows.Forms.ToolStripButton + Me.cmb_형태 = New Eco2Ar.MyCmb + Me.bs_gubun = New System.Windows.Forms.BindingSource(Me.components) + Me.bS_재료 = New System.Windows.Forms.BindingSource(Me.components) + CType(Me.ErrProvider, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.bsmain, 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() + CType(Me.PictureBox4, System.ComponentModel.ISupportInitialize).BeginInit() + Me.GroupBox1.SuspendLayout() + Me.Panel2.SuspendLayout() + CType(Me.bs_detail, System.ComponentModel.ISupportInitialize).BeginInit() + Me.Panel1.SuspendLayout() + CType(Me.arindv1, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.bn_detail, System.ComponentModel.ISupportInitialize).BeginInit() + Me.bn_detail.SuspendLayout() + CType(Me.bs_gubun, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.bS_재료, System.ComponentModel.ISupportInitialize).BeginInit() + Me.SuspendLayout() + ' + '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, 30) + 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.BackColor = System.Drawing.Color.White + Me.SplitContainer1.Panel2.Controls.Add(Me.Label15) + Me.SplitContainer1.Panel2.Controls.Add(Me.PictureBox4) + Me.SplitContainer1.Panel2.Controls.Add(Me.GroupBox1) + Me.SplitContainer1.Size = New System.Drawing.Size(759, 535) + Me.SplitContainer1.SplitterDistance = 138 + Me.SplitContainer1.TabIndex = 125 + ' + 'dv + ' + Me.dv.A_DelCurrentCell = True + Me.dv.A_EnterToTab = True + 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.FromArgb(CType(CType(245, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(246, Byte), Integer)) + Me.dv.BorderStyle = System.Windows.Forms.BorderStyle.None + Me.dv.ColumnHeadersHeight = 30 + Me.dv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.DisableResizing + 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.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(136, 493) + Me.dv.TabIndex = 0 + ' + 'DataGridViewTextBoxColumn1 + ' + Me.DataGridViewTextBoxColumn1.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.Fill + Me.DataGridViewTextBoxColumn1.DataPropertyName = "설명" + Me.DataGridViewTextBoxColumn1.HeaderText = "설명" + Me.DataGridViewTextBoxColumn1.Name = "DataGridViewTextBoxColumn1" + ' + 'bs + ' + Me.bs.DataMember = "tbl_yk" + Me.bs.DataSource = Me.DS + Me.bs.Filter = "code <> '0'" + ' + 'DS + ' + 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("Microsoft Sans Serif", 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.bn.Location = New System.Drawing.Point(0, 493) + 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(136, 40) + Me.bn.TabIndex = 1 + Me.bn.Text = "BindingNavigator1" + ' + 'lbl_count + ' + Me.lbl_count.Name = "lbl_count" + Me.lbl_count.Size = New System.Drawing.Size(29, 37) + 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, 37) + 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, 37) + 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, 37) + 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, 40) + ' + 'lbl_pos + ' + Me.lbl_pos.Name = "lbl_pos" + Me.lbl_pos.Size = New System.Drawing.Size(15, 37) + Me.lbl_pos.Text = "0" + ' + 'Label15 + ' + Me.Label15.AutoSize = True + Me.Label15.BackColor = System.Drawing.Color.FromArgb(CType(CType(116, Byte), Integer), CType(CType(158, Byte), Integer), CType(CType(209, Byte), Integer)) + Me.Label15.ForeColor = System.Drawing.Color.White + Me.Label15.Location = New System.Drawing.Point(35, 30) + Me.Label15.Name = "Label15" + Me.Label15.Size = New System.Drawing.Size(51, 14) + Me.Label15.TabIndex = 152 + Me.Label15.Text = "열관류율" + ' + 'PictureBox4 + ' + Me.PictureBox4.BackgroundImage = CType(resources.GetObject("PictureBox4.BackgroundImage"), System.Drawing.Image) + Me.PictureBox4.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch + Me.PictureBox4.Location = New System.Drawing.Point(15, 23) + Me.PictureBox4.Name = "PictureBox4" + Me.PictureBox4.Size = New System.Drawing.Size(131, 30) + Me.PictureBox4.TabIndex = 151 + Me.PictureBox4.TabStop = False + ' + 'GroupBox1 + ' + Me.GroupBox1.Controls.Add(Me.NTb_창호세부설명) + Me.GroupBox1.Controls.Add(Me.NTb_일사에너지투과율) + Me.GroupBox1.Controls.Add(Me.NTb_창호열관류율) + Me.GroupBox1.Controls.Add(Me.lbl_창호세부설명) + Me.GroupBox1.Controls.Add(Me.Panel2) + Me.GroupBox1.Controls.Add(Me.lbl_일사에너지투과율) + Me.GroupBox1.Controls.Add(Me.cmb_열전도율) + Me.GroupBox1.Controls.Add(Me.lbl_창호열관류율) + Me.GroupBox1.Controls.Add(Me.Label1) + Me.GroupBox1.Controls.Add(Me.btn_후경색) + Me.GroupBox1.Controls.Add(Me.btn_전경색) + Me.GroupBox1.Controls.Add(Me.열관류율NTb) + Me.GroupBox1.Controls.Add(Me.TextBox7) + Me.GroupBox1.Controls.Add(Me.cmb_재료) + Me.GroupBox1.Controls.Add(Me.Panel1) + Me.GroupBox1.Controls.Add(Me.cmb_형태) + Me.GroupBox1.Location = New System.Drawing.Point(3, 5) + Me.GroupBox1.Name = "GroupBox1" + Me.GroupBox1.Size = New System.Drawing.Size(606, 525) + Me.GroupBox1.TabIndex = 148 + Me.GroupBox1.TabStop = False + ' + 'NTb_창호세부설명 + ' + Me.NTb_창호세부설명.BackColor = System.Drawing.Color.White + Me.NTb_창호세부설명.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bs, "창호세부설명", True)) + Me.NTb_창호세부설명.Location = New System.Drawing.Point(84, 494) + Me.NTb_창호세부설명.Name = "NTb_창호세부설명" + Me.NTb_창호세부설명.Size = New System.Drawing.Size(297, 21) + Me.NTb_창호세부설명.TabIndex = 2 + ' + 'NTb_일사에너지투과율 + ' + Me.NTb_일사에너지투과율.BackColor = System.Drawing.Color.White + Me.NTb_일사에너지투과율.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bs, "일사에너지투과율", True)) + Me.NTb_일사에너지투과율.Location = New System.Drawing.Point(114, 466) + Me.NTb_일사에너지투과율.Name = "NTb_일사에너지투과율" + Me.NTb_일사에너지투과율.Size = New System.Drawing.Size(44, 21) + Me.NTb_일사에너지투과율.TabIndex = 1 + ' + 'NTb_창호열관류율 + ' + Me.NTb_창호열관류율.BackColor = System.Drawing.Color.White + Me.NTb_창호열관류율.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bs, "창호열관류율", True)) + Me.NTb_창호열관류율.Location = New System.Drawing.Point(84, 438) + Me.NTb_창호열관류율.Name = "NTb_창호열관류율" + Me.NTb_창호열관류율.Size = New System.Drawing.Size(74, 21) + Me.NTb_창호열관류율.TabIndex = 0 + ' + 'lbl_창호세부설명 + ' + Me.lbl_창호세부설명.AutoSize = True + Me.lbl_창호세부설명.ForeColor = System.Drawing.Color.Black + Me.lbl_창호세부설명.Location = New System.Drawing.Point(3, 497) + Me.lbl_창호세부설명.Name = "lbl_창호세부설명" + Me.lbl_창호세부설명.Size = New System.Drawing.Size(80, 14) + Me.lbl_창호세부설명.TabIndex = 153 + Me.lbl_창호세부설명.Text = "창호세부설명 :" + ' + 'Panel2 + ' + Me.Panel2.Controls.Add(Me.UserControl11) + Me.Panel2.Location = New System.Drawing.Point(6, 63) + Me.Panel2.Name = "Panel2" + Me.Panel2.Size = New System.Drawing.Size(152, 152) + Me.Panel2.TabIndex = 161 + ' + 'UserControl11 + ' + Me.UserControl11.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.UserControl11.Dock = System.Windows.Forms.DockStyle.Fill + Me.UserControl11.Location = New System.Drawing.Point(0, 0) + Me.UserControl11.MaxSize = 150.0! + Me.UserControl11.Name = "UserControl11" + Me.UserControl11.Size = New System.Drawing.Size(152, 152) + Me.UserControl11.TabIndex = 132 + Me.UserControl11.Vertical = False + ' + 'lbl_일사에너지투과율 + ' + Me.lbl_일사에너지투과율.AutoSize = True + Me.lbl_일사에너지투과율.ForeColor = System.Drawing.Color.Black + Me.lbl_일사에너지투과율.Location = New System.Drawing.Point(3, 469) + Me.lbl_일사에너지투과율.Name = "lbl_일사에너지투과율" + Me.lbl_일사에너지투과율.Size = New System.Drawing.Size(111, 14) + Me.lbl_일사에너지투과율.TabIndex = 153 + Me.lbl_일사에너지투과율.Text = "일사에너지투과율[-]:" + ' + 'cmb_열전도율 + ' + Me.cmb_열전도율.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bs_detail, "열전도율", True)) + Me.cmb_열전도율.FormattingEnabled = True + Me.cmb_열전도율.Location = New System.Drawing.Point(407, 33) + Me.cmb_열전도율.Name = "cmb_열전도율" + Me.cmb_열전도율.Size = New System.Drawing.Size(75, 22) + Me.cmb_열전도율.TabIndex = 160 + Me.cmb_열전도율.TabStop = False + ' + 'bs_detail + ' + Me.bs_detail.DataMember = "tbl_ykdetail" + Me.bs_detail.DataSource = Me.DS + Me.bs_detail.Filter = "code <> '0'" + ' + 'lbl_창호열관류율 + ' + Me.lbl_창호열관류율.AutoSize = True + Me.lbl_창호열관류율.ForeColor = System.Drawing.Color.Black + Me.lbl_창호열관류율.Location = New System.Drawing.Point(3, 441) + Me.lbl_창호열관류율.Name = "lbl_창호열관류율" + Me.lbl_창호열관류율.Size = New System.Drawing.Size(80, 14) + Me.lbl_창호열관류율.TabIndex = 153 + Me.lbl_창호열관류율.Text = "창호열관류율 :" + ' + 'Label1 + ' + Me.Label1.AutoSize = True + Me.Label1.Location = New System.Drawing.Point(410, 497) + Me.Label1.Name = "Label1" + Me.Label1.Size = New System.Drawing.Size(95, 14) + Me.Label1.TabIndex = 153 + Me.Label1.Text = "열관류율(W/㎡K)" + ' + 'btn_후경색 + ' + Me.btn_후경색.Location = New System.Drawing.Point(565, 33) + Me.btn_후경색.Name = "btn_후경색" + Me.btn_후경색.Size = New System.Drawing.Size(31, 21) + Me.btn_후경색.TabIndex = 159 + Me.btn_후경색.TabStop = False + Me.btn_후경색.UseVisualStyleBackColor = True + Me.btn_후경색.Visible = False + ' + 'btn_전경색 + ' + Me.btn_전경색.Location = New System.Drawing.Point(528, 33) + Me.btn_전경색.Name = "btn_전경색" + Me.btn_전경색.Size = New System.Drawing.Size(31, 21) + Me.btn_전경색.TabIndex = 159 + Me.btn_전경색.TabStop = False + Me.btn_전경색.UseVisualStyleBackColor = True + Me.btn_전경색.Visible = False + ' + '열관류율NTb + ' + Me.열관류율NTb.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer)) + Me.열관류율NTb.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bs, "열관류율", True)) + Me.열관류율NTb.Location = New System.Drawing.Point(513, 494) + Me.열관류율NTb.Name = "열관류율NTb" + Me.열관류율NTb.NectControl = Nothing + Me.열관류율NTb.Size = New System.Drawing.Size(83, 21) + Me.열관류율NTb.TabIndex = 3 + Me.열관류율NTb.TabStop = False + Me.열관류율NTb.TextAlign = System.Windows.Forms.HorizontalAlignment.Right + Me.열관류율NTb.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + ' + 'TextBox7 + ' + Me.TextBox7.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bs_detail, "code", True)) + Me.TextBox7.Enabled = False + Me.TextBox7.Location = New System.Drawing.Point(168, 33) + Me.TextBox7.Name = "TextBox7" + Me.TextBox7.Size = New System.Drawing.Size(36, 21) + Me.TextBox7.TabIndex = 157 + Me.TextBox7.TabStop = False + ' + 'cmb_재료 + ' + Me.cmb_재료.FormattingEnabled = True + Me.cmb_재료.Location = New System.Drawing.Point(210, 33) + Me.cmb_재료.Name = "cmb_재료" + Me.cmb_재료.Size = New System.Drawing.Size(191, 22) + Me.cmb_재료.TabIndex = 156 + Me.cmb_재료.TabStop = False + ' + 'Panel1 + ' + Me.Panel1.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.Panel1.Controls.Add(Me.arindv1) + Me.Panel1.Controls.Add(Me.bn_detail) + Me.Panel1.Location = New System.Drawing.Point(168, 61) + Me.Panel1.Name = "Panel1" + Me.Panel1.Size = New System.Drawing.Size(429, 417) + Me.Panel1.TabIndex = 154 + ' + 'arindv1 + ' + Me.arindv1.AllowUserToAddRows = False + Me.arindv1.AutoGenerateColumns = False + Me.arindv1.ColumnHeadersHeight = 40 + Me.arindv1.Columns.AddRange(New System.Windows.Forms.DataGridViewColumn() {Me.code, Me.재료명, Me.열전도율, Me.두께, Me.구분, Me.전경색, Me.후경색, Me.열저항, Me.전경, Me.Column1}) + Me.arindv1.DataSource = Me.bs_detail + DataGridViewCellStyle6.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleRight + DataGridViewCellStyle6.BackColor = System.Drawing.SystemColors.Window + DataGridViewCellStyle6.Font = New System.Drawing.Font("나눔고딕 ExtraBold", 8.999999!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + DataGridViewCellStyle6.ForeColor = System.Drawing.SystemColors.ControlText + DataGridViewCellStyle6.SelectionBackColor = System.Drawing.SystemColors.Highlight + DataGridViewCellStyle6.SelectionForeColor = System.Drawing.SystemColors.HighlightText + DataGridViewCellStyle6.WrapMode = System.Windows.Forms.DataGridViewTriState.[False] + Me.arindv1.DefaultCellStyle = DataGridViewCellStyle6 + Me.arindv1.Dock = System.Windows.Forms.DockStyle.Fill + Me.arindv1.Location = New System.Drawing.Point(0, 0) + Me.arindv1.Name = "arindv1" + Me.arindv1.RowHeadersVisible = False + Me.arindv1.RowHeadersWidth = 20 + Me.arindv1.RowTemplate.Height = 23 + Me.arindv1.Size = New System.Drawing.Size(427, 375) + Me.arindv1.TabIndex = 157 + ' + 'code + ' + Me.code.DataPropertyName = "code" + Me.code.HeaderText = "번호" + Me.code.Name = "code" + Me.code.ReadOnly = True + Me.code.Resizable = System.Windows.Forms.DataGridViewTriState.[False] + Me.code.Width = 39 + ' + '재료명 + ' + Me.재료명.DataPropertyName = "설명" + DataGridViewCellStyle4.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft + Me.재료명.DefaultCellStyle = DataGridViewCellStyle4 + Me.재료명.HeaderText = "재료명" + Me.재료명.Name = "재료명" + Me.재료명.ReadOnly = True + Me.재료명.Resizable = System.Windows.Forms.DataGridViewTriState.[False] + Me.재료명.Width = 200 + ' + '열전도율 + ' + Me.열전도율.DataPropertyName = "열전도율" + Me.열전도율.HeaderText = "열전도율 (W/mK)" + Me.열전도율.Name = "열전도율" + Me.열전도율.ReadOnly = True + Me.열전도율.Resizable = System.Windows.Forms.DataGridViewTriState.[False] + Me.열전도율.Width = 70 + ' + '두께 + ' + Me.두께.DataPropertyName = "두께" + Me.두께.HeaderText = "두께 (mm)" + Me.두께.Name = "두께" + Me.두께.Resizable = System.Windows.Forms.DataGridViewTriState.[False] + Me.두께.Width = 45 + ' + '구분 + ' + Me.구분.DataPropertyName = "구분" + Me.구분.HeaderText = "구분" + Me.구분.Name = "구분" + Me.구분.Resizable = System.Windows.Forms.DataGridViewTriState.[False] + Me.구분.Visible = False + Me.구분.Width = 35 + ' + '전경색 + ' + Me.전경색.DataPropertyName = "전경색" + Me.전경색.HeaderText = "전경색" + Me.전경색.Name = "전경색" + Me.전경색.Visible = False + Me.전경색.Width = 65 + ' + '후경색 + ' + Me.후경색.DataPropertyName = "후경색" + Me.후경색.HeaderText = "후경색" + Me.후경색.Name = "후경색" + Me.후경색.Visible = False + Me.후경색.Width = 65 + ' + '열저항 + ' + Me.열저항.DataPropertyName = "열저항" + Me.열저항.HeaderText = " 열저항 (㎡K/W)" + Me.열저항.Name = "열저항" + Me.열저항.ReadOnly = True + Me.열저항.Resizable = System.Windows.Forms.DataGridViewTriState.[False] + Me.열저항.Width = 70 + ' + '전경 + ' + DataGridViewCellStyle5.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleCenter + DataGridViewCellStyle5.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer)) + DataGridViewCellStyle5.ForeColor = System.Drawing.Color.Purple + Me.전경.DefaultCellStyle = DataGridViewCellStyle5 + Me.전경.HeaderText = "전경" + Me.전경.Name = "전경" + Me.전경.Resizable = System.Windows.Forms.DataGridViewTriState.[False] + Me.전경.Text = "TEst2" + Me.전경.Visible = False + Me.전경.Width = 35 + ' + 'Column1 + ' + Me.Column1.HeaderText = "배경" + Me.Column1.Name = "Column1" + Me.Column1.Resizable = System.Windows.Forms.DataGridViewTriState.[False] + Me.Column1.Visible = False + Me.Column1.Width = 35 + ' + 'bn_detail + ' + Me.bn_detail.AddNewItem = Nothing + Me.bn_detail.AutoSize = False + Me.bn_detail.BindingSource = Me.bs_detail + Me.bn_detail.CountItem = Me.ToolStripLabel1 + Me.bn_detail.DeleteItem = Nothing + Me.bn_detail.Dock = System.Windows.Forms.DockStyle.Bottom + Me.bn_detail.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.999999!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.bn_detail.GripStyle = System.Windows.Forms.ToolStripGripStyle.Hidden + Me.bn_detail.ImageScalingSize = New System.Drawing.Size(20, 20) + Me.bn_detail.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToolStripButton1, Me.ToolStripButton2, Me.ToolStripSeparator2, Me.ToolStripLabel2, Me.ToolStripLabel1, Me.ToolStripButton3}) + Me.bn_detail.Location = New System.Drawing.Point(0, 375) + Me.bn_detail.MoveFirstItem = Nothing + Me.bn_detail.MoveLastItem = Nothing + Me.bn_detail.MoveNextItem = Nothing + Me.bn_detail.MovePreviousItem = Nothing + Me.bn_detail.Name = "bn_detail" + Me.bn_detail.PositionItem = Me.ToolStripLabel2 + Me.bn_detail.Size = New System.Drawing.Size(427, 40) + Me.bn_detail.TabIndex = 2 + Me.bn_detail.Text = "BindingNavigator1" + ' + 'ToolStripLabel1 + ' + Me.ToolStripLabel1.Name = "ToolStripLabel1" + Me.ToolStripLabel1.Size = New System.Drawing.Size(29, 37) + Me.ToolStripLabel1.Text = "/{0}" + ' + 'ToolStripButton1 + ' + Me.ToolStripButton1.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.ToolStripButton1.Image = Global.Eco2Ar.My.Resources.Resources.new_32 + Me.ToolStripButton1.Name = "ToolStripButton1" + Me.ToolStripButton1.RightToLeftAutoMirrorImage = True + Me.ToolStripButton1.Size = New System.Drawing.Size(24, 37) + Me.ToolStripButton1.Text = "신규추가(&A)" + Me.ToolStripButton1.ToolTipText = "새로운 프로필을 추가합니다" + ' + 'ToolStripButton2 + ' + Me.ToolStripButton2.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.ToolStripButton2.Image = Global.Eco2Ar.My.Resources.Resources.remov_32 + Me.ToolStripButton2.Name = "ToolStripButton2" + Me.ToolStripButton2.RightToLeftAutoMirrorImage = True + Me.ToolStripButton2.Size = New System.Drawing.Size(24, 37) + Me.ToolStripButton2.Text = "선택삭제(&D)" + Me.ToolStripButton2.ToolTipText = "선택된 프로필을 삭제합니다" + ' + 'ToolStripSeparator2 + ' + Me.ToolStripSeparator2.Name = "ToolStripSeparator2" + Me.ToolStripSeparator2.Size = New System.Drawing.Size(6, 40) + ' + 'ToolStripLabel2 + ' + Me.ToolStripLabel2.Name = "ToolStripLabel2" + Me.ToolStripLabel2.Size = New System.Drawing.Size(15, 37) + Me.ToolStripLabel2.Text = "0" + ' + 'ToolStripButton3 + ' + Me.ToolStripButton3.Alignment = System.Windows.Forms.ToolStripItemAlignment.Right + Me.ToolStripButton3.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Text + Me.ToolStripButton3.Image = CType(resources.GetObject("ToolStripButton3.Image"), System.Drawing.Image) + Me.ToolStripButton3.ImageTransparentColor = System.Drawing.Color.Magenta + Me.ToolStripButton3.Name = "ToolStripButton3" + Me.ToolStripButton3.Size = New System.Drawing.Size(89, 37) + Me.ToolStripButton3.Text = "구분그림보기" + Me.ToolStripButton3.Visible = False + ' + 'cmb_형태 + ' + Me.cmb_형태.DropDownStyle = System.Windows.Forms.ComboBoxStyle.Simple + Me.cmb_형태.FormattingEnabled = True + Me.cmb_형태.Location = New System.Drawing.Point(6, 225) + Me.cmb_형태.Name = "cmb_형태" + Me.cmb_형태.NectControl = Nothing + Me.cmb_형태.Size = New System.Drawing.Size(152, 204) + Me.cmb_형태.TabIndex = 131 + ' + 'bs_gubun + ' + Me.bs_gubun.DataMember = "tbl_common" + Me.bs_gubun.DataSource = Me.DS + ' + 'bS_재료 + ' + Me.bS_재료.DataMember = "tbl_common" + Me.bS_재료.DataSource = Me.DS + ' + 'Frm_V20091231_YK + ' + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.None + Me.ClientSize = New System.Drawing.Size(759, 565) + Me.Controls.Add(Me.SplitContainer1) + Me.Font = New System.Drawing.Font("나눔고딕 ExtraBold", 8.999999!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.KeyPreview = True + Me.Name = "Frm_V20091231_YK" + Me.ShowInTaskbar = False + Me.StartPosition = System.Windows.Forms.FormStartPosition.Manual + Me.Text = "열관류율" + Me.Controls.SetChildIndex(Me.SplitContainer1, 0) + CType(Me.ErrProvider, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.bsmain, System.ComponentModel.ISupportInitialize).EndInit() + Me.SplitContainer1.Panel1.ResumeLayout(False) + Me.SplitContainer1.Panel2.ResumeLayout(False) + Me.SplitContainer1.Panel2.PerformLayout() + 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() + CType(Me.PictureBox4, System.ComponentModel.ISupportInitialize).EndInit() + Me.GroupBox1.ResumeLayout(False) + Me.GroupBox1.PerformLayout() + Me.Panel2.ResumeLayout(False) + CType(Me.bs_detail, System.ComponentModel.ISupportInitialize).EndInit() + Me.Panel1.ResumeLayout(False) + CType(Me.arindv1, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.bn_detail, System.ComponentModel.ISupportInitialize).EndInit() + Me.bn_detail.ResumeLayout(False) + Me.bn_detail.PerformLayout() + CType(Me.bs_gubun, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.bS_재료, System.ComponentModel.ISupportInitialize).EndInit() + Me.ResumeLayout(False) + + End Sub + Public WithEvents DS As Eco2Ar.DS + Friend WithEvents bs As System.Windows.Forms.BindingSource + Friend WithEvents SplitContainer1 As System.Windows.Forms.SplitContainer + Friend WithEvents bn As System.Windows.Forms.BindingNavigator + Friend WithEvents bt_add As System.Windows.Forms.ToolStripButton + Friend WithEvents bt_Del As System.Windows.Forms.ToolStripButton + Friend WithEvents bt_cancel As System.Windows.Forms.ToolStripButton + Friend WithEvents ToolStripSeparator1 As System.Windows.Forms.ToolStripSeparator + Friend WithEvents dv As CEnergy.arindv + Friend WithEvents DataGridViewTextBoxColumn1 As System.Windows.Forms.DataGridViewTextBoxColumn + Friend WithEvents lbl_count As System.Windows.Forms.ToolStripLabel + Friend WithEvents lbl_pos As System.Windows.Forms.ToolStripLabel + Friend WithEvents Label15 As System.Windows.Forms.Label + Friend WithEvents PictureBox4 As System.Windows.Forms.PictureBox + Friend WithEvents bS_재료 As System.Windows.Forms.BindingSource + Friend WithEvents bs_detail As System.Windows.Forms.BindingSource + Friend WithEvents bs_gubun As System.Windows.Forms.BindingSource + Friend WithEvents GroupBox1 As System.Windows.Forms.GroupBox + Friend WithEvents Label1 As System.Windows.Forms.Label + Friend WithEvents btn_후경색 As System.Windows.Forms.Button + Friend WithEvents btn_전경색 As System.Windows.Forms.Button + Friend WithEvents 열관류율NTb As Eco2Ar.MyTb + Friend WithEvents TextBox7 As System.Windows.Forms.TextBox + Friend WithEvents cmb_재료 As System.Windows.Forms.ComboBox + Friend WithEvents Panel1 As System.Windows.Forms.Panel + Friend WithEvents arindv1 As System.Windows.Forms.DataGridView + Friend WithEvents bn_detail As System.Windows.Forms.BindingNavigator + Friend WithEvents ToolStripLabel1 As System.Windows.Forms.ToolStripLabel + Friend WithEvents ToolStripButton1 As System.Windows.Forms.ToolStripButton + Friend WithEvents ToolStripButton2 As System.Windows.Forms.ToolStripButton + Friend WithEvents ToolStripSeparator2 As System.Windows.Forms.ToolStripSeparator + Friend WithEvents ToolStripLabel2 As System.Windows.Forms.ToolStripLabel + Friend WithEvents ToolStripButton3 As System.Windows.Forms.ToolStripButton + Friend WithEvents UserControl11 As mn.UserControl1 + Friend WithEvents cmb_형태 As Eco2Ar.MyCmb + Friend WithEvents cmb_열전도율 As System.Windows.Forms.ComboBox + Friend WithEvents Panel2 As System.Windows.Forms.Panel + Friend WithEvents NTb_창호열관류율 As System.Windows.Forms.TextBox + Friend WithEvents lbl_창호열관류율 As System.Windows.Forms.Label + Friend WithEvents NTb_창호세부설명 As System.Windows.Forms.TextBox + Friend WithEvents NTb_일사에너지투과율 As System.Windows.Forms.TextBox + Friend WithEvents lbl_창호세부설명 As System.Windows.Forms.Label + Friend WithEvents lbl_일사에너지투과율 As System.Windows.Forms.Label + Friend WithEvents code 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 구분 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 전경 As System.Windows.Forms.DataGridViewButtonColumn + Friend WithEvents Column1 As System.Windows.Forms.DataGridViewButtonColumn +End Class diff --git a/ArinWarev1/Forms/v20091231/Frm_v20091231_YK.resx b/ArinWarev1/Forms/v20091231/Frm_v20091231_YK.resx new file mode 100644 index 0000000..9919ca9 --- /dev/null +++ b/ArinWarev1/Forms/v20091231/Frm_v20091231_YK.resx @@ -0,0 +1,390 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + 109, 17 + + + 17, 17 + + + 222, 17 + + + 353, 17 + + + 222, 17 + + + 286, 17 + + + + + /9j/4AAQSkZJRgABAgEASABIAAD/7gAOQWRvYmUAZAAAAAAB/+ED5kV4aWYAAE1NACoAAAAIAAcBEgAD + AAAAAQABAAABGgAFAAAAAQAAAGIBGwAFAAAAAQAAAGoBKAADAAAAAQACAAABMQACAAAAHAAAAHIBMgAC + AAAAFAAAAI6HaQAEAAAAAQAAAKIAAADCAEgAAAABAAAASAAAAAEAAEFkb2JlIFBob3Rvc2hvcCBDUzMg + V2luZG93cwAyMDEwOjA0OjE1IDIwOjMyOjA0AAACoAIABAAAAAEAAAA8oAMABAAAAAEAAAAMAAAAAAAA + AAYBAwADAAAAAQAGAAABGgAFAAAAAQAAARABGwAFAAAAAQAAARgBKAADAAAAAQACAAACAQAEAAAAAQAA + ASACAgAEAAAAAQAAAr4AAAAAAAAASAAAAAEAAABIAAAAAf/Y/+AAEEpGSUYAAQIAAEgASAAA/+0ADEFk + b2JlX0NNAAH/7gAOQWRvYmUAZIAAAAAB/9sAhAAMCAgICQgMCQkMEQsKCxEVDwwMDxUYExMVExMYEQwM + DAwMDBEMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMAQ0LCw0ODRAODhAUDg4OFBQODg4OFBEMDAwM + DBERDAwMDAwMEQwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAz/wAARCAAMADwDASIAAhEBAxEB/90A + BAAE/8QBPwAAAQUBAQEBAQEAAAAAAAAAAwABAgQFBgcICQoLAQABBQEBAQEBAQAAAAAAAAABAAIDBAUG + BwgJCgsQAAEEAQMCBAIFBwYIBQMMMwEAAhEDBCESMQVBUWETInGBMgYUkaGxQiMkFVLBYjM0coLRQwcl + klPw4fFjczUWorKDJkSTVGRFwqN0NhfSVeJl8rOEw9N14/NGJ5SkhbSVxNTk9KW1xdXl9VZmdoaWprbG + 1ub2N0dXZ3eHl6e3x9fn9xEAAgIBAgQEAwQFBgcHBgU1AQACEQMhMRIEQVFhcSITBTKBkRShsUIjwVLR + 8DMkYuFygpJDUxVjczTxJQYWorKDByY1wtJEk1SjF2RFVTZ0ZeLys4TD03Xj80aUpIW0lcTU5PSltcXV + 5fVWZnaGlqa2xtbm9ic3R1dnd4eXp7fH/9oADAMBAAIRAxEAPwDd/amR/pH/AOcf70v2pkf6R/8AnH+9 + UUlofq/Bpevxb37UyP8ASP8A84/3pftTI/0j/wDOP96opJfq/BXr8W9+1Mj/AEj/APOP96X7UyP9I/8A + zj/eqKSX6vwV6/F3ujdbuGS2i5xfU8HVxktIG76XyW99vo27p0XGdO2/ba930dZj+q5dX+qfZPL8VAeD + 341VVr/eZhx+0bu708n/2f/tCSBQaG90b3Nob3AgMy4wADhCSU0EJQAAAAAAEAAAAAAAAAAAAAAAAAAA + AAA4QklNBC8AAAAAAErgYgEASAAAAEgAAAAAAAAAAAAAANACAABAAgAAAAAAAAAAAAAYAwAAZAIAAAAB + wAMAALAEAAABAA8nAQBsbHVuAAAAAAAAAAAAADhCSU0D7QAAAAAAEABIAAAAAQACAEgAAAABAAI4QklN + BCYAAAAAAA4AAAAAAAAAAAAAP4AAADhCSU0EDQAAAAAABAAAAHg4QklNBBkAAAAAAAQAAAAeOEJJTQPz + AAAAAAAJAAAAAAAAAAABADhCSU0ECgAAAAAAAQAAOEJJTScQAAAAAAAKAAEAAAAAAAAAAjhCSU0D9QAA + AAAASAAvZmYAAQBsZmYABgAAAAAAAQAvZmYAAQChmZoABgAAAAAAAQAyAAAAAQBaAAAABgAAAAAAAQA1 + AAAAAQAtAAAABgAAAAAAAThCSU0D+AAAAAAAcAAA/////////////////////////////wPoAAAAAP// + //////////////////////////8D6AAAAAD/////////////////////////////A+gAAAAA//////// + /////////////////////wPoAAA4QklNBAAAAAAAAAIAAjhCSU0EAgAAAAAABgAAAAAAADhCSU0EMAAA + AAAAAwEBAQA4QklNBC0AAAAAAAYAAQAAAAM4QklNBAgAAAAAABAAAAABAAACQAAAAkAAAAAAOEJJTQQe + AAAAAAAEAAAAADhCSU0EGgAAAAADPwAAAAYAAAAAAAAAAAAAAAwAAAA8AAAABbs0yBwALQAxADIAAAAB + AAAAAAAAAAAAAAAAAAAAAAAAAAEAAAAAAAAAAAAAADwAAAAMAAAAAAAAAAAAAAAAAAAAAAEAAAAAAAAA + AAAAAAAAAAAAAAAAEAAAAAEAAAAAAABudWxsAAAAAgAAAAZib3VuZHNPYmpjAAAAAQAAAAAAAFJjdDEA + AAAEAAAAAFRvcCBsb25nAAAAAAAAAABMZWZ0bG9uZwAAAAAAAAAAQnRvbWxvbmcAAAAMAAAAAFJnaHRs + b25nAAAAPAAAAAZzbGljZXNWbExzAAAAAU9iamMAAAABAAAAAAAFc2xpY2UAAAASAAAAB3NsaWNlSURs + b25nAAAAAAAAAAdncm91cElEbG9uZwAAAAAAAAAGb3JpZ2luZW51bQAAAAxFU2xpY2VPcmlnaW4AAAAN + YXV0b0dlbmVyYXRlZAAAAABUeXBlZW51bQAAAApFU2xpY2VUeXBlAAAAAEltZyAAAAAGYm91bmRzT2Jq + YwAAAAEAAAAAAABSY3QxAAAABAAAAABUb3AgbG9uZwAAAAAAAAAATGVmdGxvbmcAAAAAAAAAAEJ0b21s + b25nAAAADAAAAABSZ2h0bG9uZwAAADwAAAADdXJsVEVYVAAAAAEAAAAAAABudWxsVEVYVAAAAAEAAAAA + AABNc2dlVEVYVAAAAAEAAAAAAAZhbHRUYWdURVhUAAAAAQAAAAAADmNlbGxUZXh0SXNIVE1MYm9vbAEA + AAAIY2VsbFRleHRURVhUAAAAAQAAAAAACWhvcnpBbGlnbmVudW0AAAAPRVNsaWNlSG9yekFsaWduAAAA + B2RlZmF1bHQAAAAJdmVydEFsaWduZW51bQAAAA9FU2xpY2VWZXJ0QWxpZ24AAAAHZGVmYXVsdAAAAAti + Z0NvbG9yVHlwZWVudW0AAAARRVNsaWNlQkdDb2xvclR5cGUAAAAATm9uZQAAAAl0b3BPdXRzZXRsb25n + AAAAAAAAAApsZWZ0T3V0c2V0bG9uZwAAAAAAAAAMYm90dG9tT3V0c2V0bG9uZwAAAAAAAAALcmlnaHRP + dXRzZXRsb25nAAAAAAA4QklNBCgAAAAAAAwAAAABP/AAAAAAAAA4QklNBBQAAAAAAAQAAAAEOEJJTQQM + AAAAAALaAAAAAQAAADwAAAAMAAAAtAAACHAAAAK+ABgAAf/Y/+AAEEpGSUYAAQIAAEgASAAA/+0ADEFk + b2JlX0NNAAH/7gAOQWRvYmUAZIAAAAAB/9sAhAAMCAgICQgMCQkMEQsKCxEVDwwMDxUYExMVExMYEQwM + DAwMDBEMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMAQ0LCw0ODRAODhAUDg4OFBQODg4OFBEMDAwM + DBERDAwMDAwMEQwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAz/wAARCAAMADwDASIAAhEBAxEB/90A + BAAE/8QBPwAAAQUBAQEBAQEAAAAAAAAAAwABAgQFBgcICQoLAQABBQEBAQEBAQAAAAAAAAABAAIDBAUG + BwgJCgsQAAEEAQMCBAIFBwYIBQMMMwEAAhEDBCESMQVBUWETInGBMgYUkaGxQiMkFVLBYjM0coLRQwcl + klPw4fFjczUWorKDJkSTVGRFwqN0NhfSVeJl8rOEw9N14/NGJ5SkhbSVxNTk9KW1xdXl9VZmdoaWprbG + 1ub2N0dXZ3eHl6e3x9fn9xEAAgIBAgQEAwQFBgcHBgU1AQACEQMhMRIEQVFhcSITBTKBkRShsUIjwVLR + 8DMkYuFygpJDUxVjczTxJQYWorKDByY1wtJEk1SjF2RFVTZ0ZeLys4TD03Xj80aUpIW0lcTU5PSltcXV + 5fVWZnaGlqa2xtbm9ic3R1dnd4eXp7fH/9oADAMBAAIRAxEAPwDd/amR/pH/AOcf70v2pkf6R/8AnH+9 + UUlofq/Bpevxb37UyP8ASP8A84/3pftTI/0j/wDOP96opJfq/BXr8W9+1Mj/AEj/APOP96X7UyP9I/8A + zj/eqKSX6vwV6/F3ujdbuGS2i5xfU8HVxktIG76XyW99vo27p0XGdO2/ba930dZj+q5dX+qfZPL8VAeD + 341VVr/eZhx+0bu708n/2ThCSU0EIQAAAAAAVQAAAAEBAAAADwBBAGQAbwBiAGUAIABQAGgAbwB0AG8A + cwBoAG8AcAAAABMAQQBkAG8AYgBlACAAUABoAG8AdABvAHMAaABvAHAAIABDAFMAMwAAAAEAOEJJTQQG + AAAAAAAHAAgAAQABAQD/4Q/MaHR0cDovL25zLmFkb2JlLmNvbS94YXAvMS4wLwA8P3hwYWNrZXQgYmVn + aW49Iu+7vyIgaWQ9Ilc1TTBNcENlaGlIenJlU3pOVGN6a2M5ZCI/Pg0KPHg6eG1wbWV0YSB4bWxuczp4 + PSJhZG9iZTpuczptZXRhLyIgeDp4bXB0az0iQWRvYmUgWE1QIENvcmUgNC4xLWMwMzYgNDYuMjc2NzIw + LCBNb24gRmViIDE5IDIwMDcgMjI6NDA6MDggICAgICAgICI+DQoJPHJkZjpSREYgeG1sbnM6cmRmPSJo + dHRwOi8vd3d3LnczLm9yZy8xOTk5LzAyLzIyLXJkZi1zeW50YXgtbnMjIj4NCgkJPHJkZjpEZXNjcmlw + dGlvbiByZGY6YWJvdXQ9IiIgeG1sbnM6ZGM9Imh0dHA6Ly9wdXJsLm9yZy9kYy9lbGVtZW50cy8xLjEv + IiB4bWxuczp4YXA9Imh0dHA6Ly9ucy5hZG9iZS5jb20veGFwLzEuMC8iIHhtbG5zOnhhcE1NPSJodHRw + Oi8vbnMuYWRvYmUuY29tL3hhcC8xLjAvbW0vIiB4bWxuczpzdFJlZj0iaHR0cDovL25zLmFkb2JlLmNv + bS94YXAvMS4wL3NUeXBlL1Jlc291cmNlUmVmIyIgeG1sbnM6cGhvdG9zaG9wPSJodHRwOi8vbnMuYWRv + YmUuY29tL3Bob3Rvc2hvcC8xLjAvIiB4bWxuczp0aWZmPSJodHRwOi8vbnMuYWRvYmUuY29tL3RpZmYv + MS4wLyIgeG1sbnM6ZXhpZj0iaHR0cDovL25zLmFkb2JlLmNvbS9leGlmLzEuMC8iIGRjOmZvcm1hdD0i + aW1hZ2UvanBlZyIgeGFwOkNyZWF0b3JUb29sPSJBZG9iZSBQaG90b3Nob3AgQ1MzIFdpbmRvd3MiIHhh + cDpDcmVhdGVEYXRlPSIyMDEwLTA0LTE1VDIwOjMyOjA0KzA5OjAwIiB4YXA6TW9kaWZ5RGF0ZT0iMjAx + MC0wNC0xNVQyMDozMjowNCswOTowMCIgeGFwOk1ldGFkYXRhRGF0ZT0iMjAxMC0wNC0xNVQyMDozMjow + NCswOTowMCIgeGFwTU06RG9jdW1lbnRJRD0idXVpZDpGRTRGOUVDQzgxNDhERjExQjQyNkI5NEQ4RDRD + ODAxNyIgeGFwTU06SW5zdGFuY2VJRD0idXVpZDpCNDE2RTc4MzgyNDhERjExQjQyNkI5NEQ4RDRDODAx + NyIgcGhvdG9zaG9wOkNvbG9yTW9kZT0iMyIgcGhvdG9zaG9wOklDQ1Byb2ZpbGU9InNSR0IgSUVDNjE5 + NjYtMi4xIiBwaG90b3Nob3A6SGlzdG9yeT0iIiB0aWZmOk9yaWVudGF0aW9uPSIxIiB0aWZmOlhSZXNv + bHV0aW9uPSI3MjAwMDAvMTAwMDAiIHRpZmY6WVJlc29sdXRpb249IjcyMDAwMC8xMDAwMCIgdGlmZjpS + ZXNvbHV0aW9uVW5pdD0iMiIgdGlmZjpOYXRpdmVEaWdlc3Q9IjI1NiwyNTcsMjU4LDI1OSwyNjIsMjc0 + LDI3NywyODQsNTMwLDUzMSwyODIsMjgzLDI5NiwzMDEsMzE4LDMxOSw1MjksNTMyLDMwNiwyNzAsMjcx + LDI3MiwzMDUsMzE1LDMzNDMyOzk4ODcxNzIxMUFCRjY2MTQxRDU3NEI3OUYzRjQ2QkFBIiBleGlmOlBp + eGVsWERpbWVuc2lvbj0iNjAiIGV4aWY6UGl4ZWxZRGltZW5zaW9uPSIxMiIgZXhpZjpDb2xvclNwYWNl + PSIxIiBleGlmOk5hdGl2ZURpZ2VzdD0iMzY4NjQsNDA5NjAsNDA5NjEsMzcxMjEsMzcxMjIsNDA5NjIs + NDA5NjMsMzc1MTAsNDA5NjQsMzY4NjcsMzY4NjgsMzM0MzQsMzM0MzcsMzQ4NTAsMzQ4NTIsMzQ4NTUs + MzQ4NTYsMzczNzcsMzczNzgsMzczNzksMzczODAsMzczODEsMzczODIsMzczODMsMzczODQsMzczODUs + MzczODYsMzczOTYsNDE0ODMsNDE0ODQsNDE0ODYsNDE0ODcsNDE0ODgsNDE0OTIsNDE0OTMsNDE0OTUs + NDE3MjgsNDE3MjksNDE3MzAsNDE5ODUsNDE5ODYsNDE5ODcsNDE5ODgsNDE5ODksNDE5OTAsNDE5OTEs + NDE5OTIsNDE5OTMsNDE5OTQsNDE5OTUsNDE5OTYsNDIwMTYsMCwyLDQsNSw2LDcsOCw5LDEwLDExLDEy + LDEzLDE0LDE1LDE2LDE3LDE4LDIwLDIyLDIzLDI0LDI1LDI2LDI3LDI4LDMwOzM1N0NDOEY1MDE4RURF + NDY2NjVCQkRFMUFEMkRCQkJBIj4NCgkJCTx4YXBNTTpEZXJpdmVkRnJvbSBzdFJlZjppbnN0YW5jZUlE + PSJ1dWlkOkY1NEY5RUNDODE0OERGMTFCNDI2Qjk0RDhENEM4MDE3IiBzdFJlZjpkb2N1bWVudElEPSJ1 + dWlkOkY1NEY5RUNDODE0OERGMTFCNDI2Qjk0RDhENEM4MDE3Ii8+DQoJCTwvcmRmOkRlc2NyaXB0aW9u + Pg0KCTwvcmRmOlJERj4NCjwveDp4bXBtZXRhPg0KICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgIAogICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgCiAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAKICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgIAogICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgCiAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAKICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgIAogICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgCiAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAKICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgIAogICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + CiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAKICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgIAogICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgCiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAKICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgIAogICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgCiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAKICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgIAogICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgCiAgICAgICAgICAgPD94cGFja2V0IGVuZD0ndyc/Pv/iDFhJQ0NfUFJPRklMRQABAQAA + DEhMaW5vAhAAAG1udHJSR0IgWFlaIAfOAAIACQAGADEAAGFjc3BNU0ZUAAAAAElFQyBzUkdCAAAAAAAA + AAAAAAAAAAD21gABAAAAANMtSFAgIAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAEWNwcnQAAAFQAAAAM2Rlc2MAAAGEAAAAbHd0cHQAAAHwAAAAFGJrcHQAAAIEAAAAFHJY + WVoAAAIYAAAAFGdYWVoAAAIsAAAAFGJYWVoAAAJAAAAAFGRtbmQAAAJUAAAAcGRtZGQAAALEAAAAiHZ1 + ZWQAAANMAAAAhnZpZXcAAAPUAAAAJGx1bWkAAAP4AAAAFG1lYXMAAAQMAAAAJHRlY2gAAAQwAAAADHJU + UkMAAAQ8AAAIDGdUUkMAAAQ8AAAIDGJUUkMAAAQ8AAAIDHRleHQAAAAAQ29weXJpZ2h0IChjKSAxOTk4 + IEhld2xldHQtUGFja2FyZCBDb21wYW55AABkZXNjAAAAAAAAABJzUkdCIElFQzYxOTY2LTIuMQAAAAAA + AAAAAAAAEnNSR0IgSUVDNjE5NjYtMi4xAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAABYWVogAAAAAAAA81EAAQAAAAEWzFhZWiAAAAAAAAAAAAAAAAAAAAAAWFlaIAAA + AAAAAG+iAAA49QAAA5BYWVogAAAAAAAAYpkAALeFAAAY2lhZWiAAAAAAAAAkoAAAD4QAALbPZGVzYwAA + AAAAAAAWSUVDIGh0dHA6Ly93d3cuaWVjLmNoAAAAAAAAAAAAAAAWSUVDIGh0dHA6Ly93d3cuaWVjLmNo + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAGRlc2MAAAAAAAAALklF + QyA2MTk2Ni0yLjEgRGVmYXVsdCBSR0IgY29sb3VyIHNwYWNlIC0gc1JHQgAAAAAAAAAAAAAALklFQyA2 + MTk2Ni0yLjEgRGVmYXVsdCBSR0IgY29sb3VyIHNwYWNlIC0gc1JHQgAAAAAAAAAAAAAAAAAAAAAAAAAA + AABkZXNjAAAAAAAAACxSZWZlcmVuY2UgVmlld2luZyBDb25kaXRpb24gaW4gSUVDNjE5NjYtMi4xAAAA + AAAAAAAAAAAsUmVmZXJlbmNlIFZpZXdpbmcgQ29uZGl0aW9uIGluIElFQzYxOTY2LTIuMQAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAdmlldwAAAAAAE6T+ABRfLgAQzxQAA+3MAAQTCwADXJ4AAAABWFlaIAAA + AAAATAlWAFAAAABXH+dtZWFzAAAAAAAAAAEAAAAAAAAAAAAAAAAAAAAAAAACjwAAAAJzaWcgAAAAAENS + VCBjdXJ2AAAAAAAABAAAAAAFAAoADwAUABkAHgAjACgALQAyADcAOwBAAEUASgBPAFQAWQBeAGMAaABt + AHIAdwB8AIEAhgCLAJAAlQCaAJ8ApACpAK4AsgC3ALwAwQDGAMsA0ADVANsA4ADlAOsA8AD2APsBAQEH + AQ0BEwEZAR8BJQErATIBOAE+AUUBTAFSAVkBYAFnAW4BdQF8AYMBiwGSAZoBoQGpAbEBuQHBAckB0QHZ + AeEB6QHyAfoCAwIMAhQCHQImAi8COAJBAksCVAJdAmcCcQJ6AoQCjgKYAqICrAK2AsECywLVAuAC6wL1 + AwADCwMWAyEDLQM4A0MDTwNaA2YDcgN+A4oDlgOiA64DugPHA9MD4APsA/kEBgQTBCAELQQ7BEgEVQRj + BHEEfgSMBJoEqAS2BMQE0wThBPAE/gUNBRwFKwU6BUkFWAVnBXcFhgWWBaYFtQXFBdUF5QX2BgYGFgYn + BjcGSAZZBmoGewaMBp0GrwbABtEG4wb1BwcHGQcrBz0HTwdhB3QHhgeZB6wHvwfSB+UH+AgLCB8IMghG + CFoIbgiCCJYIqgi+CNII5wj7CRAJJQk6CU8JZAl5CY8JpAm6Cc8J5Qn7ChEKJwo9ClQKagqBCpgKrgrF + CtwK8wsLCyILOQtRC2kLgAuYC7ALyAvhC/kMEgwqDEMMXAx1DI4MpwzADNkM8w0NDSYNQA1aDXQNjg2p + DcMN3g34DhMOLg5JDmQOfw6bDrYO0g7uDwkPJQ9BD14Peg+WD7MPzw/sEAkQJhBDEGEQfhCbELkQ1xD1 + ERMRMRFPEW0RjBGqEckR6BIHEiYSRRJkEoQSoxLDEuMTAxMjE0MTYxODE6QTxRPlFAYUJxRJFGoUixSt + FM4U8BUSFTQVVhV4FZsVvRXgFgMWJhZJFmwWjxayFtYW+hcdF0EXZReJF64X0hf3GBsYQBhlGIoYrxjV + GPoZIBlFGWsZkRm3Gd0aBBoqGlEadxqeGsUa7BsUGzsbYxuKG7Ib2hwCHCocUhx7HKMczBz1HR4dRx1w + HZkdwx3sHhYeQB5qHpQevh7pHxMfPh9pH5Qfvx/qIBUgQSBsIJggxCDwIRwhSCF1IaEhziH7IiciVSKC + Iq8i3SMKIzgjZiOUI8Ij8CQfJE0kfCSrJNolCSU4JWgllyXHJfcmJyZXJocmtyboJxgnSSd6J6sn3CgN + KD8ocSiiKNQpBik4KWspnSnQKgIqNSpoKpsqzysCKzYraSudK9EsBSw5LG4soizXLQwtQS12Last4S4W + Lkwugi63Lu4vJC9aL5Evxy/+MDUwbDCkMNsxEjFKMYIxujHyMioyYzKbMtQzDTNGM38zuDPxNCs0ZTSe + NNg1EzVNNYc1wjX9Njc2cjauNuk3JDdgN5w31zgUOFA4jDjIOQU5Qjl/Obw5+To2OnQ6sjrvOy07azuq + O+g8JzxlPKQ84z0iPWE9oT3gPiA+YD6gPuA/IT9hP6I/4kAjQGRApkDnQSlBakGsQe5CMEJyQrVC90M6 + Q31DwEQDREdEikTORRJFVUWaRd5GIkZnRqtG8Ec1R3tHwEgFSEtIkUjXSR1JY0mpSfBKN0p9SsRLDEtT + S5pL4kwqTHJMuk0CTUpNk03cTiVObk63TwBPSU+TT91QJ1BxULtRBlFQUZtR5lIxUnxSx1MTU19TqlP2 + VEJUj1TbVShVdVXCVg9WXFapVvdXRFeSV+BYL1h9WMtZGllpWbhaB1pWWqZa9VtFW5Vb5Vw1XIZc1l0n + XXhdyV4aXmxevV8PX2Ffs2AFYFdgqmD8YU9homH1YklinGLwY0Njl2PrZEBklGTpZT1lkmXnZj1mkmbo + Zz1nk2fpaD9olmjsaUNpmmnxakhqn2r3a09rp2v/bFdsr20IbWBtuW4SbmtuxG8eb3hv0XArcIZw4HE6 + cZVx8HJLcqZzAXNdc7h0FHRwdMx1KHWFdeF2Pnabdvh3VnezeBF4bnjMeSp5iXnnekZ6pXsEe2N7wnwh + fIF84X1BfaF+AX5ifsJ/I3+Ef+WAR4CogQqBa4HNgjCCkoL0g1eDuoQdhICE44VHhauGDoZyhteHO4ef + iASIaYjOiTOJmYn+imSKyoswi5aL/IxjjMqNMY2Yjf+OZo7OjzaPnpAGkG6Q1pE/kaiSEZJ6kuOTTZO2 + lCCUipT0lV+VyZY0lp+XCpd1l+CYTJi4mSSZkJn8mmia1ZtCm6+cHJyJnPedZJ3SnkCerp8dn4uf+qBp + oNihR6G2oiailqMGo3aj5qRWpMelOKWpphqmi6b9p26n4KhSqMSpN6mpqhyqj6sCq3Wr6axcrNCtRK24 + ri2uoa8Wr4uwALB1sOqxYLHWskuywrM4s660JbSctRO1irYBtnm28Ldot+C4WbjRuUq5wro7urW7Lrun + vCG8m70VvY++Cr6Evv+/er/1wHDA7MFnwePCX8Lbw1jD1MRRxM7FS8XIxkbGw8dBx7/IPci8yTrJuco4 + yrfLNsu2zDXMtc01zbXONs62zzfPuNA50LrRPNG+0j/SwdNE08bUSdTL1U7V0dZV1tjXXNfg2GTY6Nls + 2fHadtr724DcBdyK3RDdlt4c3qLfKd+v4DbgveFE4cziU+Lb42Pj6+Rz5PzlhOYN5pbnH+ep6DLovOlG + 6dDqW+rl63Dr++yG7RHtnO4o7rTvQO/M8Fjw5fFy8f/yjPMZ86f0NPTC9VD13vZt9vv3ivgZ+Kj5OPnH + +lf65/t3/Af8mP0p/br+S/7c/23////bAEMAAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEB + AQEBAQEBAQEBAQICAgICAgICAgICAwMDAwMDAwMDA//bAEMBAQEBAQEBAQEBAQICAQICAwMDAwMDAwMD + AwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDA//AABEIAAwAPAMBEQACEQEDEQH/ + xAAfAAABBQEBAQEBAQAAAAAAAAAAAQIDBAUGBwgJCgv/xAC1EAACAQMDAgQDBQUEBAAAAX0BAgMABBEF + EiExQQYTUWEHInEUMoGRoQgjQrHBFVLR8CQzYnKCCQoWFxgZGiUmJygpKjQ1Njc4OTpDREVGR0hJSlNU + VVZXWFlaY2RlZmdoaWpzdHV2d3h5eoOEhYaHiImKkpOUlZaXmJmaoqOkpaanqKmqsrO0tba3uLm6wsPE + xcbHyMnK0tPU1dbX2Nna4eLj5OXm5+jp6vHy8/T19vf4+fr/xAAfAQADAQEBAQEBAQEBAAAAAAAAAQID + BAUGBwgJCgv/xAC1EQACAQIEBAMEBwUEBAABAncAAQIDEQQFITEGEkFRB2FxEyIygQgUQpGhscEJIzNS + 8BVictEKFiQ04SXxFxgZGiYnKCkqNTY3ODk6Q0RFRkdISUpTVFVWV1hZWmNkZWZnaGlqc3R1dnd4eXqC + g4SFhoeIiYqSk5SVlpeYmZqio6Slpqeoqaqys7S1tre4ubrCw8TFxsfIycrS09TV1tfY2dri4+Tl5ufo + 6ery8/T19vf4+fr/2gAMAwEAAhEDEQA/AP1ZH7UPxEAA/wCEw8bnj/ob9f8A/k+v7U/1Nyj/AKF+G/8A + BUP/AJE/llcSZlZf7dX/APBk/wDMX/hqH4if9Df43/8ACv1//wCT6P8AU3Kf+hfhv/BUP/kQ/wBZcy/6 + Dq//AIMn/mH/AA1D8RP+hv8AG/8A4V+v/wDyfR/qblP/AEL8N/4Kh/8AIh/rLmX/AEHV/wDwZP8AzD/h + qH4if9Df43/8K/X/AP5Po/1Nyn/oX4b/AMFQ/wDkQ/1lzL/oOr/+DJ/5h/w1D8RP+hv8b/8AhX6//wDJ + 9H+puU/9C/Df+Cof/Ih/rLmX/QdX/wDBk/8AMT/hqH4if9Df43/8K/X/AP5Po/1Nyn/oX4b/AMFQ/wDk + Q/1kzL/oOr/+DJ/5n2R+xz+234zt/iRpnw+8a6vqXiDwZ4gs9baObXr+bUr/AMPajpmkX2tQ3FlqV2Zb + 57K7XT2t3tXkaJWkV4whVxJ+beJfAuU4Th/FZ/hKEKOMw8qd+SKjGcZzjTs4q0bpyUlJK7s073VvuuBO + LMxxGcYfJ8TWlVw1ZTtzu7hKMJTupPWzUWnFu2qatrf9aP8AhfXgv+zv7U89/sfm+V5207N+M43fSv50 + P2w/kwr/AEFP42CgAoAKACgAoA9s/Z0/s7/hcng3+1vP/s7Ov/avs2PP2f8ACL63t2buP9ZjP+zmvz7x + U/5IPPf+4H/qRRPsvD//AJK7KP8AuL/6ZqH7/wD/ABaT/hUfb7Ht/wBj7V9p8v8A9Cr+Oz+lz//Z + + + + 286, 17 + + + 419, 17 + + + 419, 17 + + + 615, 17 + + + True + + + True + + + True + + + True + + + 615, 17 + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8 + YQUAAAAgY0hSTQAAeiYAAICEAAD6AAAAgOgAAHUwAADqYAAAOpgAABdwnLpRPAAAAgxJREFUOE+lkvtL + U2EYx+0PEbtpFwnBKPGKiJImGP0gYhIYs1E5GF5gIxkpA00JRSmMEF0ohMh+GaRWYlqabMVcNdS2QpaI + VqiDIYhk397vA6fXhCjyhYdzeM/5fp7vczkAdeL2cwho7v/wWzT1zcN+Pwhr51uY2/y41PQaF+wzKKiZ + QvaN58g0jyLd5KEUcQbg+84P/Cm2tncQjW3j68YWIqubCC3FcOJc478BAuGoZM6zvoRnakXEruEIjhc4 + /g5gZop9c+voGAyLbQIfeBZxLL9BA1jzXvuGbWamuKh+GmmVbswE19A59FEBbmoAG7YbsLtm2mZmiml9 + cvabNDwpz6YB7LYBoMXCumkJr7LOmnnHzBQ/9X2Bo2cOibm1GsBREbAQiYmw/8lnuCeWkVzcgnZlnw1j + 3HV/wuNXK6i/9x5Hc6wawDlTXHbLJ+LZUBQPRyKwdQdxutwl1h+NLXHh5Ht1ewBHsiwawCW57HyDAfWR + dvl0uhZQ1eqX8aVc7EKLqrum651ATLf9OJx5XQM4KmY0xPzZ0hFAiQJnXB0WwME0E3IsL5B17ZlADqWb + NYDrOepdlcysmTWWOrxqbceRWtaLk0VO1XW72D5Vckd2gMBfq8zdpmUG62NJvKM4+XyziDk24xmfWoGE + s1c0gHPmbrPTpHNJKOCo2G1mZs20zcwUJ5yp1AB5+8/zEwgF5GMVDxh4AAAAAElFTkSuQmCC + + + + 717, 17 + + + 519, 17 + + + 46 + + \ No newline at end of file diff --git a/ArinWarev1/Forms/v20091231/Frm_v20091231_YK.vb b/ArinWarev1/Forms/v20091231/Frm_v20091231_YK.vb new file mode 100644 index 0000000..522cfba --- /dev/null +++ b/ArinWarev1/Forms/v20091231/Frm_v20091231_YK.vb @@ -0,0 +1,730 @@ +Public Class Frm_V20091231_YK + Dim DT As DataTable + Dim init As Boolean = False + Dim pcode As String + Dim UserCommin As Boolean = False + Dim SrcDrv As DataRowView + + Private Sub Frm_V20091231_YK_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing + Me.bs.EndEdit() + Me.bs_detail.EndEdit() + + End Sub + Private Sub MdiMain_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load + 'TODO: 이 코드는 데이터를 'DS.tbl_common' 테이블에 로드합니다. 필요한 경우 이 코드를 이동하거나 제거할 수 있습니다. + MdiMain.Toggle_Menu_Color(MdiMain.E_MenuIdx.열관류율) + 'CEnergy.ARINCLASS.SaveLoad_FrmSetting(Me) + '//프로필 관련 + + '//공유데이터셋에 연결한다. + Me.bs.DataSource = DSET + Me.bs_detail.DataSource = DSET + Me.bs_gubun.DataSource = DSET + Me.bS_재료.DataSource = DSET + + bS_재료.Filter = "gubun='1089'" + bS_재료.Sort = "code" + + DT = DSET.tbl_yk + + '//냉방분배 + AddHandler DSET.tbl_yk.TableNewRow, AddressOf AddNewDataRow_bunbae + AddHandler DSET.tbl_ykdetail.TableNewRow, AddressOf AddNewDataRow_Weatherilsa + + '//모든컨트롤의 cTrl_enter 를 추가합니다 + BindProperty(CType(Me.SplitContainer1.Panel2.Controls, Control.ControlCollection)) + + '//콤보컨트롤 바인딩 + Binding_Zone() + Me.bsmain = Me.bs + + Try + Me.bsmain.Position = CEnergy.ARINCLASS.Read_LastPos_Frm(Me) + Catch ex As Exception + Me.bsmain.MoveFirst() + End Try + + refresh_Image() + Me.init = True + + 'Try '//열전도갱신 + + Me.cmb_열전도율.Items.Clear() + + Try + Dim Dr As DS.tbl_commonRow = DSET.tbl_common.Select("gubun='1089' and name='" & Me.cmb_재료.Text & "'")(0) + Me.cmb_열전도율.Items.Add(Dr.valn1) + Catch ex As Exception + 'MsgBox("1. " & ex.Message.ToString) + End Try + + End Sub +#Region "Control_Enter" + Private Sub BindProperty(ByVal Ctl As Control.ControlCollection) + For Each C As Control In Ctl + If C.Controls.Count > 1 Then + BindProperty(C.Controls) + Else + If C.GetType.ToString.ToUpper.IndexOf("MYTB") <> -1 Then + AddHandler CType(C, MyTb).KeyDown, AddressOf TextBOx_KeyDown + ElseIf C.GetType.ToString.ToUpper.IndexOf("MYCMB") <> -1 Then + AddHandler CType(C, MyCmb).KeyDown, AddressOf Cmd_KeyDown + End If + End If + Next + End Sub + + Private Sub TextBOx_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) + If e.KeyCode = Keys.Enter AndAlso e.Control Then + Try + Dim Field As String = (CType(sender, MyTb).DataBindings.Item("text").BindingMemberInfo.BindingField) + For Each Dr As DataRow In DT.Select(Me.bs.Filter, "") + Dr(Field) = CType(sender, MyTb).Text + Next + Work_msg_timer("모든값이 변경되었습니다", 25) + Catch ex As Exception + + End Try + + End If + End Sub + Private Sub Cmd_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) + If e.KeyCode = Keys.Enter AndAlso e.Control Then + Try + Dim Field As String = (CType(sender, MyCmb).DataBindings.Item("selectedvalue").BindingMemberInfo.BindingField) + For Each Dr As DataRow In DT.Select(Me.bs.Filter, "") + Dr(Field) = CType(sender, MyCmb).SelectedValue + Next + Work_msg_timer("모든값이 변경되었습니다", 25) + Catch ex As Exception + + End Try + End If + End Sub +#End Region + +#Region "기본" + Private Sub MdiMain_FormClosed(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosedEventArgs) Handles Me.FormClosed + CEnergy.ARINCLASS.SaveLoad_FrmSetting(Me, Me.bsmain.Position, True) + End Sub + Private Function GetMaxCode(ByVal dt As DataTable) As String + Try + Dim Dr As DataRow = dt.Select("", "code desc")(0) + Return Format(CInt(Dr("code")) + 1, "0000") + Catch ex As Exception + ' MsgBox(ex.Message.ToString) + Return "0001" + End Try + End Function + Private Sub Cmb_DeleteVal(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) + If e.KeyCode = Keys.Delete Then + CType(sender, ComboBox).SelectedValue = "" + End If + End Sub + Private Sub AddNewDataRow_bunbae(ByVal sender As Object, ByVal e As System.Data.DataTableNewRowEventArgs) + e.Row.Item("code") = GetMaxCode(DSET.tbl_yk) + ' MsgBox("22") + End Sub + Private Sub AddNewDataRow_Weatherilsa(ByVal sender As Object, ByVal e As System.Data.DataTableNewRowEventArgs) + + Dim NewCode As String + Try + Dim Dr As DataRow = DSET.tbl_ykdetail.Select("pcode = '" & Me.pcode & "'", "code desc")(0) + NewCode = Format(CInt(Dr("code")) + 1, "0000") + Catch ex As Exception + NewCode = ("0001") + End Try + + Try + e.Row.Item("pcode") = Me.pcode ' CType(bs.Current, DataRowView)("code") + e.Row.Item("code") = NewCode + 'MsgBox(e.Row.Item("code").ToString) + + Catch ex As Exception + MsgBox("부모코드없음 선택다시") + End Try + + End Sub + + Private Sub ToolStripButton48_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt_add.Click + If Not EndEdit(Me.bs) Then Return + Me.bs.AddNew() + Me.bs.EndEdit() + INitRow(Me.Controls) + End Sub + + + Private Sub ToolStripButton49_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt_Del.Click + Dbbase.DelCrow(Me.bs, True) + End Sub + + Private Sub ToolStripButton51_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt_cancel.Click + If Not EndEdit(Me.bs) Then Return + Data_Cancel(DSET.tbl_profile, Nothing) + End Sub + + Private Sub Binding_Zone() + + Dim bs_형태 As New BindingSource(DSET, "tbl_common") + bs_형태.Filter = "gubun='1088'" + bs_형태.Sort = "code" + Me.cmb_형태.DataSource = bs_형태 + cmb_형태.DisplayMember = "name" + cmb_형태.ValueMember = "code" + Me.cmb_형태.DataBindings.Add("selectedvalue", Me.bs, "면형태") + AddHandler cmb_형태.KeyDown, AddressOf Cmb_DeleteVal + + 'Me.bS_재료.DataSource = DSET.tbl_common + bS_재료.Filter = "gubun='1089'" + bS_재료.Sort = "code" + + Me.cmb_재료.DataSource = bS_재료 + cmb_재료.DisplayMember = "name" + cmb_재료.ValueMember = "name" + Me.cmb_재료.DataBindings.Add("text", Me.bs_detail, "설명") + AddHandler cmb_재료.KeyDown, AddressOf Cmb_DeleteVal + Me.cmb_재료.Text = "" + + 'Me.bs_gubun.DataSource = DSET.tbl_common + bs_gubun.Filter = "gubun='1090'" + bs_gubun.Sort = "code" + + 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 + If Me.bs.Position < Me.bs.Count Then Me.bs.Position += 1 + Else + If Me.bs.Position > 0 Then Me.bs.Position -= 1 + End If + Me.Validate() + My.Application.DoEvents() + End Sub +#End Region + + Private Sub bt_Del_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles bt_Del.MouseDown + If e.Button = Windows.Forms.MouseButtons.Right Then + If MsgBox("전체삭제를 하시겠습니까?", MsgBoxStyle.Information Or MsgBoxStyle.OkCancel, "확인") = MsgBoxResult.Ok Then + Dim dR() As DataRow = DSET.tbl_yk.Select(Me.bs.Filter, "") + For i As Integer = dR.GetUpperBound(0) To 0 Step -1 + dR(i).Delete() + Next + DSET.tbl_yk.AcceptChanges() + End If + End If + End Sub + + + Private Sub dv_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles dv.MouseUp + If Prj.UserAuthType = "ADMIN" OrElse Prj.UserAuthType = "BOTH" OrElse Prj.UserAuthType = "BOTH2" OrElse Prj.UserAuthType = "BOTH1" Then '//2011.03.08 추가 + If e.Button = Windows.Forms.MouseButtons.Right Then + Dim Frm_FilterA As New Frm_Filter + Frm_FilterA.ColumTitle = getColCaption(Me.DT) + Frm_FilterA.ColumList = getColName(Me.DT) + Frm_FilterA.Colorlist = "" + + Frm_FilterA.Numfield = "" '//20100618 Color 리스트처럼 , 구분해서 필드들을 모두 넣으세요.(=, >= 등을 사용하기 위해서는 해당 항목을 추가 요망) + If Frm_FilterA.ShowDialog <> Windows.Forms.DialogResult.OK Then Return '//창떳을떄 확인아ㅣ고 취소눌르면 다음을 수행하지않는다는거에요. + Dim Filter As String = Frm_FilterA.tb_filter.Text '//값은 아까 그 텍박에 잇구요. + Try + Me.bs.Filter = Filter + + '//바꾸기값이 있으면 변경 20100618 + If Frm_FilterA.cmb_fieldc.SelectedIndex >= 0 AndAlso Frm_FilterA.cmb_fieldc.Text.ToLower <> "code" AndAlso _ + Frm_FilterA.tb_valuec.Text <> "" Then + Dim Drow() As DataRow = Me.DT.Select(Filter) + For Each Dr As DataRow In Drow + Dr(Frm_FilterA.cmb_fieldc.Text) = Frm_FilterA.tb_valuec.Text + Next + MsgBox("바꾸기 완료", MsgBoxStyle.Information, "확인") + End If + + Catch ex As Exception + Me.bs.Filter = "" + 'MsgBox("2. " & ex.Message.ToString) + End Try + End If + End If + + End Sub + + Private Sub dv_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles dv.KeyDown + '//여기보시면 alt+d 누르면 한줄을 경고없이(falsE)삭제하도록 햇어요. + If Prj.UserAuthType = "ADMIN" OrElse Prj.UserAuthType = "BOTH" OrElse Prj.UserAuthType = "BOTH2" OrElse Prj.UserAuthType = "BOTH1" Then '//2011.03.08 추가 + Select Case e.KeyCode + Case Keys.D + If e.Alt Then + Dbbase.DelCrow(Me.bs, False) + End If + Case Keys.C + If e.Control Then + Me.SrcDrv = Me.bs.Current + If Me.SrcDrv Is Nothing Then + MsgBox("저장할 ROW가 없습니다", MsgBoxStyle.Information, "확인") + Return + End If + ' My.Computer.Clipboard.SetData("ZDATA", Drv) + End If + Case Keys.V + If e.Control Then + If Me.SrcDrv Is Nothing Then Return + Me.bt_add.PerformClick() '//신규추가 + Dim NewDrv As DataRowView = Me.bs.Current + + For Each C As DataColumn In Me.DT.Columns + If C.ColumnName.ToUpper = "CODE" Then + ElseIf C.ColumnName.ToUpper = "설명" Then + NewDrv(C.ColumnName) = SrcDrv(C.ColumnName) & "#1" + Else + NewDrv(C.ColumnName) = SrcDrv(C.ColumnName) + End If + Next + + '//하위데이터복제 + Dim src_pcode As String = SrcDrv("code").ToString + Dim new_pcode As String = NewDrv("code").ToString + + + For Each Drow2 As DS.tbl_ykdetailRow In DSET.tbl_ykdetail.Select("pcode='" & src_pcode & "'") + Dim Newrow As DS.tbl_ykdetailRow = DSET.tbl_ykdetail.Newtbl_ykdetailRow + For Each C As DataColumn In DSET.tbl_ykdetail.Columns + Newrow(C.ColumnName) = Drow2(C.ColumnName) + Next + Newrow.pcode = new_pcode + DSET.tbl_ykdetail.Addtbl_ykdetailRow(Newrow) + Next + + Me.bs.EndEdit() + Me.bs_detail.EndEdit() + Me.refresh_Image() + + bs.MoveLast() + End If + End Select + End If + End Sub + + Private Sub bs_CurrentChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bs.CurrentChanged + Try + pcode = CType(bs.Current, DataRowView)("code").ToString + Me.bs_detail.Filter = "pcode='" & pcode & "'" + Me.refresh_Image() + Catch ex As Exception + 'MsgBox("3. " & ex.Message.ToString) + End Try + Me.bs.EndEdit() + End Sub + + Private Sub refresh_Image() + ' MsgBox(Me.UserControl11.Vertical) + + Dim width As Decimal = 0 '//뭘고치던 여기 함수가 실행되므로 이곳에서 뭔가 작업하시는게 좋을것 같구요..어떤것을들 더하시려구요? + Dim R_value As Decimal = 0 + + For Each Dr As DS.tbl_ykdetailRow In DSET.tbl_ykdetail.Select(Me.bs_detail.Filter, "") '//세부내역중 두께를 합치는 루틴입니다. + 'Try + If Dr.설명 = "공기층" Then + Dr.열전도율 = "" + If TOSG(Dr.두께) > 10.0 Then + Dr.열저항 = TOST(0.086) + R_value += 0.086 + Else + Dr.열저항 = TOST(TOSG(Dr.두께) * 0.0086) + R_value = R_value + TOSG(Dr.두께) * 0.0086 + End If + Else '//여기아래 추가하신거에요? + + If Dr.설명.IndexOf("열전달저항") <> -1 Then + Dr.두께 = "" + Dr.열전도율 = "" + Select Case Dr.설명 + Case "실내열전달저항(벽체)" + Dr.열저항 = TOST(0.11) + R_value += 0.11 + Case "실외열전달저항(벽체,간접)" + Dr.열저항 = TOST(0.11) + R_value += 0.11 + Case "실외열전달저항(벽체,직접)" + Dr.열저항 = TOST(0.043) + R_value += 0.043 + Case "실내열전달저항(바닥)" + Dr.열저항 = TOST(0.086) + R_value += 0.086 + Case "실외열전달저항(바닥,간접)" + Dr.열저항 = TOST(0.15) + R_value += 0.15 + Case "실외열전달저항(바닥,직접)" + Dr.열저항 = TOST(0.043) + R_value += 0.043 + Case "실내열전달저항(지붕)" + Dr.열저항 = TOST(0.086) + R_value += 0.086 + Case "실외열전달저항(지붕,간접)" + Dr.열저항 = TOST(0.086) + R_value += 0.086 + Case "실외열전달저항(지붕,직접)" + Dr.열저항 = TOST(0.043) + R_value += 0.043 + + End Select + + Else + If Dr.열전도율 <> "" AndAlso TOSG(Dr.열전도율) <> 0 Then + Dr.열저항 = TOSG(Math.Round(TOSG(Dr.두께) / 1000 / TOSG(Dr.열전도율), 4)).ToString + R_value += TOSG(Dr.열저항) '//여부분에서는 나올수잇겟군요.?예 + End If + + End If + + End If + + + If Dr.설명.IndexOf("열전달저항") = -1 Then + width += TOSG(Dr.두께) + End If + Next + + Try + If cmb_형태.Text = "외부창" OrElse cmb_형태.Text = "내부창" Then + Me.열관류율NTb.Text = Me.NTb_창호열관류율.Text + Else + Me.열관류율NTb.Text = CSng(Math.Round(1 / R_value, 3)).ToString + End If + Catch ex As Exception + Me.열관류율NTb.Text = "" + 'MsgBox("4. " & ex.Message.ToString) + End Try + + ' Me.MyTb1.Text = width.ToString("N2") + Me.UserControl11.MaxSize = width + 'MsgBox(width) + + ' Me.Label1.Text = Me.UserControl11.Width + + '// 0.51 : me.wid = x : ? + + ' Me.UserControl11.Vertical = True + Dim FT(Me.arindv1.RowCount - 1) As mn.UserControl1.SM + For i As Integer = 0 To Me.arindv1.RowCount - 1 + '//아까 열표시해서 검정색 선택해보니 검정은 값이 0 이 나오더라구요 + '//실재로 0값이 근데 표시가안됫어요 그러므로 + + Try + FT(i).BColor = Color.FromArgb(Me.arindv1.Rows(i).Cells("후경색").Value) + + Catch ex As Exception + FT(i).BColor = Color.FromName("white") + 'MsgBox("5. " & ex.Message.ToString) + End Try + Try + If Me.arindv1.Rows(i).Cells("전경색").Value = "0" Then + FT(i).FColor = Color.Black + Else + FT(i).FColor = Color.FromArgb(Me.arindv1.Rows(i).Cells("전경색").Value) + End If + + Catch ex As Exception + FT(i).FColor = Color.FromName("black") + ' MsgBox("6. " & ex.Message.ToString) + End Try + ' FT(i).Style= + Try + FT(i).Style = Val(Me.arindv1.Rows(i).Cells("구분").Value) + Catch ex As Exception + FT(i).Style = Drawing2D.HatchStyle.Cross + 'MsgBox("7. " & ex.Message.ToString) + End Try + + + + Try + FT(i).Width = Me.arindv1.Rows(i).Cells("두께").Value + Catch ex As Exception + 'MsgBox("8. " & ex.Message.ToString) + End Try + + + Next + Me.UserControl11.M1FillType = FT + End Sub + + Private Sub arindv1_CellFormatting(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewCellFormattingEventArgs) Handles arindv1.CellFormatting + Try + Me.arindv1.Rows(e.RowIndex).DefaultCellStyle.BackColor = Color.FromArgb(Me.arindv1.Rows(e.RowIndex).Cells("후경색").Value) + ' Me.arindv1.Rows(e.RowIndex).DefaultCellStyle.ForeColor = Color.FromName(Me.arindv1.Rows(e.RowIndex).Cells("전경색").Value) + Catch ex As Exception + Me.arindv1.Rows(e.RowIndex).DefaultCellStyle.BackColor = Color.White + 'MsgBox("9. " & ex.Message.ToString) + End Try + + End Sub + + + Private Sub Arindv1_CellValidated(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles arindv1.CellValidated + refresh_Image() + End Sub + + Private Sub Arindv1_DataError(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewDataErrorEventArgs) + + End Sub + + Private Sub Arindv1_RowValidated(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) + refresh_Image() + End Sub + + Private Sub ToolStripButton1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton1.Click + 'Try + Me.bs_detail.AddNew() + Me.bs_detail.EndEdit() + refresh_Image() + 'Catch ex As Exception + ' MsgBox(ex.Message.ToString) + + ' MsgBox("상위코드 선택하세요", MsgBoxStyle.Critical, "확인") + 'End Try + + End Sub + + Private Sub ToolStripButton2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton2.Click + If Me.bs_detail.Count > 0 Then Me.bs_detail.RemoveCurrent() + End Sub + + Private Sub arindv1_CellContentClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles arindv1.CellContentClick + Select Case e.ColumnIndex + Case 8 '//전경 + Dim Cd As New ColorDialog + Cd.Color = Color.FromName(Me.arindv1.Rows(e.RowIndex).Cells("전경색").Value) + If Cd.ShowDialog <> Windows.Forms.DialogResult.OK Then Return + Me.arindv1.Rows(e.RowIndex).Cells("전경색").Value = Cd.Color.ToArgb + Me.btn_전경색.BackColor = Cd.Color + Me.bs_detail.EndEdit() + refresh_Image() + Case 9 '//배경 + Dim Cd As New ColorDialog + Cd.Color = Color.FromName(Me.arindv1.Rows(e.RowIndex).Cells("후경색").Value) + If Cd.ShowDialog <> Windows.Forms.DialogResult.OK Then Return + Me.arindv1.Rows(e.RowIndex).Cells("후경색").Value = Cd.Color.ToArgb + Me.btn_후경색.BackColor = Cd.Color + Me.bs_detail.EndEdit() + refresh_Image() + End Select + End Sub + + Private Sub arindv1_DataError1(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewDataErrorEventArgs) Handles arindv1.DataError + + End Sub + + Private Sub cmb_형태_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmb_형태.SelectedIndexChanged + If cmb_형태.Text = "외벽(지붕)" OrElse cmb_형태.Text = "외벽(바닥)" OrElse cmb_형태.Text = "내벽(지붕)" OrElse cmb_형태.Text = "내벽(바닥)" Then + Me.UserControl11.Vertical = False + Else + Me.UserControl11.Vertical = True + End If + Me.refresh_Image() + If cmb_형태.Text = "외부창" OrElse cmb_형태.Text = "내부창" Then + Me.NTb_창호열관류율.Visible = True + Me.NTb_일사에너지투과율.Visible = True + Me.NTb_창호세부설명.Visible = True + Me.lbl_창호열관류율.ForeColor = Color.Black + Me.lbl_일사에너지투과율.ForeColor = Color.Black + Me.lbl_창호세부설명.ForeColor = Color.Black + Else + Me.NTb_창호열관류율.Visible = False + Me.NTb_일사에너지투과율.Visible = False + Me.NTb_창호세부설명.Visible = False + Me.lbl_창호열관류율.ForeColor = Color.LightGray + Me.lbl_일사에너지투과율.ForeColor = Color.LightGray + Me.lbl_창호세부설명.ForeColor = Color.LightGray + + End If + + End Sub + + Private Sub ToolStripButton3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton3.Click + Dim Drv As DataRowView = Me.bs_detail.Current + Dim 전경 As String + Try + 전경 = Drv("전경색").ToString + Catch ex As Exception + 'MsgBox("10. " & ex.Message.ToString) + End Try + Dim 후경 As String + Try + 후경 = Drv("후경색").ToString + Catch ex As Exception + 'MsgBox("11. " & ex.Message.ToString) + End Try + Dim A As New Frm_DisplayGubun(전경, 후경) + A.Show() + End Sub + + Private Sub SplitContainer1_Panel2_Paint(ByVal sender As System.Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles SplitContainer1.Panel2.Paint + + End Sub + + Private Sub bs_detail_CurrentChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bs_detail.CurrentChanged + Try + Dim Drv As DataRowView = CType(Me.bs_detail.Current, DataRowView) + Me.btn_전경색.BackColor = Color.FromArgb(Drv("전경색").ToString) + Me.btn_후경색.BackColor = Color.FromArgb(Drv("후경색").ToString) + Catch ex As Exception + Me.btn_전경색.BackColor = Color.White + Me.btn_후경색.BackColor = Color.White + 'MsgBox("12. " & ex.Message.ToString) + End Try + + Dim Fil As String = "gubun='1089' and name='" & Me.cmb_재료.Text & "'" + ' Try '//열전도갱신 + + Me.cmb_열전도율.Items.Clear() + Try + Dim Dr As DS.tbl_commonRow = DSET.tbl_common.Select(Fil)(0) + Me.cmb_열전도율.Items.Add(Dr.valn1) + Catch ex As Exception + ' MsgBox("13. " & ex.Message.ToString & vbCrLf & Fil) + End Try + + + + + Me.bs_detail.EndEdit() + Me.refresh_Image() + End Sub + + Private Sub btn_전경색_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_전경색.Click + + Try + Dim Cd As New ColorDialog + + If Cd.ShowDialog <> Windows.Forms.DialogResult.OK Then Return + Me.btn_전경색.BackColor = Cd.Color + + Dim Drv As DataRowView = Me.bs_detail.Current + Drv("전경색") = Cd.Color.ToArgb + + Catch ex As Exception + Me.btn_전경색.BackColor = Color.White + 'MsgBox("14. " & ex.Message.ToString) + End Try + Me.bs_detail.EndEdit() + Me.refresh_Image() + + End Sub + + Private Sub cmb_재료_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmb_재료.SelectedIndexChanged + If Me.bs_detail.Count < 1 Then Return '// ep데이터가없을경우 무시 + + + + Dim 재료코드 As String + If Me.cmb_재료.SelectedIndex >= 0 Then + If UserCommin = False Then + 'UserCommin = True + Return + End If + + 'MsgBox(Me.cmb_재료.Text) + + '//여기가 재로를 선택하는 순간이에요 + + '//해당열전도율가져오기 + Try + Dim Dr As DS.tbl_commonRow = DSET.tbl_common.Select(bS_재료.Filter & " and name='" & Me.cmb_재료.Text & "'")(0) + 재료코드 = Dr.code + Me.cmb_열전도율.Items.Clear() + Try '// 20110210 Try문 추가 (열전달저항 관련 Null 값에 의한 재료코드에러수정) + Me.cmb_열전도율.Items.Add(Dr.valn1) + Catch ex As Exception + + End Try + + 'Me.tb_열전도.Text = Dr.valn1 + ' MsgBox(Dr.valn1) + + Catch ex As Exception + 'MsgBox(ex.Message.ToString) + 'MsgBox("15. " & ex.Message.ToString) + End Try + + '//색및 패턴명 가져오기 + Dim DetailDrv As DataRowView = Me.bs_detail.Current + DetailDrv("설명") = Me.cmb_재료.Text + Dim Er As Boolean = False + + Dim Dr2() As DS.tbl_commonRow = DSET.tbl_common.Select("gubun='1090' and code='" & 재료코드 & "'") + If Dr2.GetUpperBound(0) = -1 Then + DetailDrv("전경색") = Color.Blue.ToArgb + DetailDrv("후경색") = Color.White.ToArgb '//디비에 해당설ㅈㅇ이 없을경우 행하는 코드들 + DetailDrv("구분") = "5" + Me.btn_전경색.BackColor = Color.FromArgb(DetailDrv("전경색")) + Me.btn_후경색.BackColor = Color.FromArgb(DetailDrv("후경색")) + Else '//디비에 있을경우 + Try + DetailDrv("전경색") = Dr2(0)("name").ToString.Split(",")(0) + Catch ex As Exception + DetailDrv("전경색") = Color.Black.ToArgb + 'MsgBox("16. " & ex.Message.ToString) + End Try + Try + DetailDrv("후경색") = Dr2(0)("name").ToString.Split(",")(1) + Catch ex As Exception + DetailDrv("후경색") = Color.White.ToArgb + ' MsgBox("17. " & ex.Message.ToString) + End Try + DetailDrv("구분") = CInt(Dr2(0)("valn1")) + Me.btn_후경색.BackColor = Color.FromArgb(DetailDrv("후경색")) + Me.btn_전경색.BackColor = Color.FromArgb(DetailDrv("전경색")) + End If + + + + + Me.bs_detail.EndEdit() + Me.refresh_Image() + UserCommin = False + End If + End Sub + + Private Sub btn_후경색_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_후경색.Click + + Try + Dim Cd As New ColorDialog + + If Cd.ShowDialog <> Windows.Forms.DialogResult.OK Then Return + Me.btn_후경색.BackColor = Cd.Color + + Dim Drv As DataRowView = Me.bs_detail.Current + Drv("후경색") = Cd.Color.ToArgb + + Catch ex As Exception + Me.btn_후경색.BackColor = Color.White + 'MsgBox("18. " & ex.Message.ToString) + End Try + Me.bs_detail.EndEdit() + Me.refresh_Image() + + End Sub + + Private Sub cmb_열전도율_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmb_열전도율.SelectedIndexChanged + Me.bs_detail.EndEdit() + Me.refresh_Image() + End Sub + + Private Sub cmb_열전도율_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles cmb_열전도율.TextChanged + Me.bs_detail.EndEdit() + Me.refresh_Image() + End Sub + + Private Sub cmb_재료_SelectionChangeCommitted(ByVal sender As Object, ByVal e As System.EventArgs) Handles cmb_재료.SelectionChangeCommitted + Me.UserCommin = True + End Sub + + Private Sub NTb_창호열관류율_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NTb_창호열관류율.TextChanged + If cmb_형태.Text = "외부창" OrElse cmb_형태.Text = "내부창" Then + Me.열관류율NTb.Text = Me.NTb_창호열관류율.Text + End If + End Sub + + Private Sub dv_CellContentClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles dv.CellContentClick + + End Sub +End Class diff --git a/ArinWarev1/Forms/v20091231/Frm_v20091231_Zone.Designer.vb b/ArinWarev1/Forms/v20091231/Frm_v20091231_Zone.Designer.vb new file mode 100644 index 0000000..b9b691d --- /dev/null +++ b/ArinWarev1/Forms/v20091231/Frm_v20091231_Zone.Designer.vb @@ -0,0 +1,1744 @@ + _ +Partial Class Frm_V20091231_Zone + Inherits MMM.FaderForm + 'Form은 Dispose를 재정의하여 구성 요소 목록을 정리합니다. + _ + Protected Overrides Sub Dispose(ByVal disposing As Boolean) + Try + If disposing AndAlso components IsNot Nothing Then + components.Dispose() + End If + Finally + MyBase.Dispose(disposing) + End Try + End Sub + + 'Windows Form 디자이너에 필요합니다. + Private components As System.ComponentModel.IContainer + + '참고: 다음 프로시저는 Windows Form 디자이너에 필요합니다. + '수정하려면 Windows Form 디자이너를 사용하십시오. + '코드 편집기를 사용하여 수정하지 마십시오. + _ + Private Sub InitializeComponent() + Me.components = New System.ComponentModel.Container() + 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 Label8 As System.Windows.Forms.Label + Dim Label9 As System.Windows.Forms.Label + Dim Label42 As System.Windows.Forms.Label + Dim Label41 As System.Windows.Forms.Label + Dim Label43 As System.Windows.Forms.Label + Dim Label44 As System.Windows.Forms.Label + Dim Label45 As System.Windows.Forms.Label + Dim Label47 As System.Windows.Forms.Label + Dim Label46 As System.Windows.Forms.Label + Dim Label37 As System.Windows.Forms.Label + Dim Label35 As System.Windows.Forms.Label + Dim Label33 As System.Windows.Forms.Label + Dim Label32 As System.Windows.Forms.Label + Dim Label36 As System.Windows.Forms.Label + Dim Label39 As System.Windows.Forms.Label + Dim Label38 As System.Windows.Forms.Label + Dim Label40 As System.Windows.Forms.Label + Dim 순실체적Label As System.Windows.Forms.Label + Dim 천장고Label As System.Windows.Forms.Label + Dim Label1 As System.Windows.Forms.Label + Dim Label2 As System.Windows.Forms.Label + Dim 냉난방방식Label As System.Windows.Forms.Label + Dim 침기율Label As System.Windows.Forms.Label + Dim 열교가산치Label As System.Windows.Forms.Label + Dim 열저장능력Label As System.Windows.Forms.Label + Dim 주말운전방식Label As System.Windows.Forms.Label + Dim 야간운전방식Label As System.Windows.Forms.Label + Dim 외기부하처리여부Label As System.Windows.Forms.Label + Dim 냉난방공조Label As System.Windows.Forms.Label + Dim Label10 As System.Windows.Forms.Label + Dim Label11 As System.Windows.Forms.Label + Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(Frm_V20091231_Zone)) + 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.ToolStripLabel1 = New System.Windows.Forms.ToolStripLabel() + Me.bt_add = New System.Windows.Forms.ToolStripButton() + Me.bt_Del = New System.Windows.Forms.ToolStripButton() + Me.bt_cancel = New System.Windows.Forms.ToolStripButton() + Me.ToolStripSeparator1 = New System.Windows.Forms.ToolStripSeparator() + Me.lbl_pos = New System.Windows.Forms.ToolStripLabel() + Me.ToolStrip1 = New System.Windows.Forms.ToolStrip() + Me.ToolStripLabel2 = New System.Windows.Forms.ToolStripLabel() + Me.ToolStripLabel3 = New System.Windows.Forms.ToolStripLabel() + Me.ToolStripLabel4 = New System.Windows.Forms.ToolStripLabel() + Me.ToolStripLabel5 = New System.Windows.Forms.ToolStripLabel() + Me.ToolStripLabel6 = New System.Windows.Forms.ToolStripLabel() + Me.ToolStripLabel7 = New System.Windows.Forms.ToolStripLabel() + Me.ToolStripLabel8 = New System.Windows.Forms.ToolStripLabel() + Me.ToolStripLabel9 = New System.Windows.Forms.ToolStripLabel() + Me.ToolStripLabel10 = New System.Windows.Forms.ToolStripLabel() + Me.ToolStripLabel11 = New System.Windows.Forms.ToolStripLabel() + Me.Label17 = New System.Windows.Forms.Label() + Me.Label15 = New System.Windows.Forms.Label() + Me.PictureBox3 = New System.Windows.Forms.PictureBox() + Me.PictureBox1 = New System.Windows.Forms.PictureBox() + Me.GroupBox8 = New System.Windows.Forms.GroupBox() + Me.냉난방공조ComboBox = New Eco2Ar.MyCmb() + Me.외기부하처리여부ComboBox = New Eco2Ar.MyCmb() + Me.야간운전방식ComboBox = New Eco2Ar.MyCmb() + Me.주말운전방식ComboBox = New Eco2Ar.MyCmb() + Me.냉난방열공급시스템ComboBox = New Eco2Ar.MyCmb() + Me.PictureBox8 = New System.Windows.Forms.PictureBox() + Me.GroupBox7 = New System.Windows.Forms.GroupBox() + Me.열교가산치ComboBox = New Eco2Ar.MyCmb() + Me.열저장능력ComboBox = New Eco2Ar.MyCmb() + Me.침기율NTb = New Eco2Ar.MyTb() + Me.cmb_냉난방방식 = New Eco2Ar.MyCmb() + Me.PictureBox7 = New System.Windows.Forms.PictureBox() + Me.GroupBox6 = New System.Windows.Forms.GroupBox() + Me.tb_조명계산치 = New Eco2Ar.MyTb() + Me.tb_점등시간 = New Eco2Ar.MyTb() + Me.tb_조명입력치 = New Eco2Ar.MyTb() + Me.보수율NTb = New Eco2Ar.MyTb() + Me.인공광원ComboBox = New Eco2Ar.MyCmb() + Me.조명방식ComboBox = New Eco2Ar.MyCmb() + Me.조명기기효율NTb = New Eco2Ar.MyTb() + Me.tb_조명률 = New Eco2Ar.MyTb() + Me.PictureBox11 = New System.Windows.Forms.PictureBox() + Me.GroupBox5 = New System.Windows.Forms.GroupBox() + Me.실지수NTb1 = New Eco2Ar.MyTb() + Me.천장고NTB1 = New Eco2Ar.MyTb() + Me.조명부하산출방법ComboBox = New Eco2Ar.MyCmb() + Me.요구조도NTb1 = New Eco2Ar.MyTb() + Me.작업면높이NTb1 = New Eco2Ar.MyTb() + Me.실깊이NTb = New Eco2Ar.MyTb() + Me.실너비NTb = New Eco2Ar.MyTb() + Me.PictureBox6 = New System.Windows.Forms.PictureBox() + Me.GroupBox4 = New System.Windows.Forms.GroupBox() + Me.순실체적NTb = New Eco2Ar.MyTb() + Me.면적NTb = New Eco2Ar.MyTb() + Me.천장고NTb = New Eco2Ar.MyTb() + Me.cmb_profile = New Eco2Ar.MyCmb() + Me.PictureBox5 = New System.Windows.Forms.PictureBox() + Me.GroupBox3 = New System.Windows.Forms.GroupBox() + Me.Label14 = New System.Windows.Forms.Label() + Me.cmb_공조냉방생산 = New Eco2Ar.MyCmb() + Me.cmb_공조난방생산 = New Eco2Ar.MyCmb() + Me.cmb_공조가습생산 = New Eco2Ar.MyCmb() + Me.PictureBox10 = New System.Windows.Forms.PictureBox() + Me.GroupBox2 = New System.Windows.Forms.GroupBox() + Me.Label13 = New System.Windows.Forms.Label() + Me.cmb_열생산지정1 = New Eco2Ar.MyCmb() + Me.cmb_열생산지정3 = New Eco2Ar.MyCmb() + Me.cmb_열생산급탕기기 = New Eco2Ar.MyCmb() + Me.PictureBox9 = New System.Windows.Forms.PictureBox() + Me.난방공급시스템GroupBox = New System.Windows.Forms.GroupBox() + Me.Label12 = New System.Windows.Forms.Label() + Me.냉난방공조처리시스템ComboBox = New Eco2Ar.MyCmb() + Me.냉난방열공급시스템수NTb = New Eco2Ar.MyTb() + Me.PictureBox4 = New System.Windows.Forms.PictureBox() + Me.ToolTip1 = New System.Windows.Forms.ToolTip(Me.components) + 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() + Label8 = New System.Windows.Forms.Label() + Label9 = New System.Windows.Forms.Label() + Label42 = New System.Windows.Forms.Label() + Label41 = New System.Windows.Forms.Label() + Label43 = New System.Windows.Forms.Label() + Label44 = New System.Windows.Forms.Label() + Label45 = New System.Windows.Forms.Label() + Label47 = New System.Windows.Forms.Label() + Label46 = New System.Windows.Forms.Label() + Label37 = New System.Windows.Forms.Label() + Label35 = New System.Windows.Forms.Label() + Label33 = New System.Windows.Forms.Label() + Label32 = New System.Windows.Forms.Label() + Label36 = New System.Windows.Forms.Label() + Label39 = New System.Windows.Forms.Label() + Label38 = New System.Windows.Forms.Label() + Label40 = New System.Windows.Forms.Label() + 순실체적Label = New System.Windows.Forms.Label() + 천장고Label = New System.Windows.Forms.Label() + Label1 = New System.Windows.Forms.Label() + Label2 = New System.Windows.Forms.Label() + 냉난방방식Label = New System.Windows.Forms.Label() + 침기율Label = New System.Windows.Forms.Label() + 열교가산치Label = New System.Windows.Forms.Label() + 열저장능력Label = New System.Windows.Forms.Label() + 주말운전방식Label = New System.Windows.Forms.Label() + 야간운전방식Label = New System.Windows.Forms.Label() + 외기부하처리여부Label = New System.Windows.Forms.Label() + 냉난방공조Label = New System.Windows.Forms.Label() + Label10 = New System.Windows.Forms.Label() + Label11 = New System.Windows.Forms.Label() + CType(Me.ErrProvider, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.bsmain, 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.ToolStrip1.SuspendLayout() + CType(Me.PictureBox3, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit() + Me.GroupBox8.SuspendLayout() + CType(Me.PictureBox8, System.ComponentModel.ISupportInitialize).BeginInit() + Me.GroupBox7.SuspendLayout() + CType(Me.PictureBox7, System.ComponentModel.ISupportInitialize).BeginInit() + Me.GroupBox6.SuspendLayout() + CType(Me.PictureBox11, System.ComponentModel.ISupportInitialize).BeginInit() + Me.GroupBox5.SuspendLayout() + CType(Me.PictureBox6, System.ComponentModel.ISupportInitialize).BeginInit() + Me.GroupBox4.SuspendLayout() + CType(Me.PictureBox5, System.ComponentModel.ISupportInitialize).BeginInit() + Me.GroupBox3.SuspendLayout() + CType(Me.PictureBox10, System.ComponentModel.ISupportInitialize).BeginInit() + Me.GroupBox2.SuspendLayout() + CType(Me.PictureBox9, System.ComponentModel.ISupportInitialize).BeginInit() + Me.난방공급시스템GroupBox.SuspendLayout() + CType(Me.PictureBox4, System.ComponentModel.ISupportInitialize).BeginInit() + Me.SuspendLayout() + ' + 'Label3 + ' + Label3.AutoSize = True + Label3.BackColor = System.Drawing.Color.FromArgb(CType(CType(243, Byte), Integer), CType(CType(244, Byte), Integer), CType(CType(246, Byte), Integer)) + Label3.Font = New System.Drawing.Font("나눔고딕 ExtraBold", 8.999999!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Label3.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label3.Location = New System.Drawing.Point(4, 63) + Label3.Name = "Label3" + Label3.Size = New System.Drawing.Size(88, 14) + Label3.TabIndex = 34 + Label3.Text = "열공급시스템수:" + ' + 'Label4 + ' + Label4.AutoSize = True + Label4.BackColor = System.Drawing.Color.FromArgb(CType(CType(243, Byte), Integer), CType(CType(244, Byte), Integer), CType(CType(246, Byte), Integer)) + Label4.Font = New System.Drawing.Font("나눔고딕 ExtraBold", 8.999999!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Label4.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label4.Location = New System.Drawing.Point(4, 36) + Label4.Name = "Label4" + Label4.Size = New System.Drawing.Size(86, 14) + Label4.TabIndex = 32 + Label4.Text = "열공급시스템 :" + ' + 'Label5 + ' + 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.Font = New System.Drawing.Font("나눔고딕 ExtraBold", 8.999999!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Label5.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label5.Location = New System.Drawing.Point(4, 90) + Label5.Name = "Label5" + Label5.Size = New System.Drawing.Size(88, 14) + Label5.TabIndex = 36 + Label5.Text = "공조처리시스템:" + ' + 'Label6 + ' + 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.Font = New System.Drawing.Font("나눔고딕 ExtraBold", 8.999999!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Label6.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label6.Location = New System.Drawing.Point(6, 31) + Label6.Name = "Label6" + Label6.Size = New System.Drawing.Size(88, 14) + Label6.TabIndex = 38 + Label6.Text = "열난방생산기기:" + ' + 'Label7 + ' + 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.Font = New System.Drawing.Font("나눔고딕 ExtraBold", 8.999999!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Label7.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label7.Location = New System.Drawing.Point(3, 85) + Label7.Name = "Label7" + Label7.Size = New System.Drawing.Size(99, 14) + Label7.TabIndex = 44 + Label7.Text = "공조가습생산기기:" + ' + 'Label8 + ' + Label8.AutoSize = True + Label8.BackColor = System.Drawing.Color.FromArgb(CType(CType(243, Byte), Integer), CType(CType(244, Byte), Integer), CType(CType(246, Byte), Integer)) + Label8.Font = New System.Drawing.Font("나눔고딕 ExtraBold", 8.999999!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Label8.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label8.Location = New System.Drawing.Point(6, 58) + Label8.Name = "Label8" + Label8.Size = New System.Drawing.Size(88, 14) + Label8.TabIndex = 40 + Label8.Text = "열급탕생산기기:" + ' + 'Label9 + ' + Label9.AutoSize = True + Label9.BackColor = System.Drawing.Color.FromArgb(CType(CType(243, Byte), Integer), CType(CType(244, Byte), Integer), CType(CType(246, Byte), Integer)) + Label9.Font = New System.Drawing.Font("나눔고딕 ExtraBold", 8.999999!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Label9.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label9.Location = New System.Drawing.Point(6, 85) + Label9.Name = "Label9" + Label9.Size = New System.Drawing.Size(88, 14) + Label9.TabIndex = 42 + Label9.Text = "열냉방생산기기:" + ' + 'Label42 + ' + Label42.AutoSize = True + Label42.BackColor = System.Drawing.Color.FromArgb(CType(CType(219, Byte), Integer), CType(CType(221, Byte), Integer), CType(CType(223, Byte), Integer)) + Label42.Font = New System.Drawing.Font("나눔고딕 ExtraBold", 8.999999!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Label42.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label42.Location = New System.Drawing.Point(9, 167) + Label42.Name = "Label42" + Label42.Size = New System.Drawing.Size(44, 14) + Label42.TabIndex = 93 + Label42.Text = "실지수:" + Label42.TextAlign = System.Drawing.ContentAlignment.MiddleRight + ' + 'Label41 + ' + Label41.AutoSize = True + Label41.BackColor = System.Drawing.Color.FromArgb(CType(CType(219, Byte), Integer), CType(CType(221, Byte), Integer), CType(CType(223, Byte), Integer)) + Label41.Font = New System.Drawing.Font("나눔고딕 ExtraBold", 8.999999!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Label41.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label41.Location = New System.Drawing.Point(9, 17) + Label41.Name = "Label41" + Label41.Size = New System.Drawing.Size(99, 14) + Label41.TabIndex = 106 + Label41.Text = "조명부하산출방법:" + Label41.TextAlign = System.Drawing.ContentAlignment.MiddleRight + ' + 'Label43 + ' + Label43.AutoSize = True + Label43.BackColor = System.Drawing.Color.FromArgb(CType(CType(219, Byte), Integer), CType(CType(221, Byte), Integer), CType(CType(223, Byte), Integer)) + Label43.Font = New System.Drawing.Font("나눔고딕 ExtraBold", 8.999999!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Label43.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label43.Location = New System.Drawing.Point(9, 142) + Label43.Name = "Label43" + Label43.Size = New System.Drawing.Size(63, 14) + Label43.TabIndex = 91 + Label43.Text = "실너비[m]:" + Label43.TextAlign = System.Drawing.ContentAlignment.MiddleRight + ' + 'Label44 + ' + Label44.AutoSize = True + Label44.BackColor = System.Drawing.Color.FromArgb(CType(CType(219, Byte), Integer), CType(CType(221, Byte), Integer), CType(CType(223, Byte), Integer)) + Label44.Font = New System.Drawing.Font("나눔고딕 ExtraBold", 8.999999!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Label44.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label44.Location = New System.Drawing.Point(9, 117) + Label44.Name = "Label44" + Label44.Size = New System.Drawing.Size(63, 14) + Label44.TabIndex = 89 + Label44.Text = "실깊이[m]:" + Label44.TextAlign = System.Drawing.ContentAlignment.MiddleRight + ' + 'Label45 + ' + Label45.AutoSize = True + Label45.BackColor = System.Drawing.Color.FromArgb(CType(CType(219, Byte), Integer), CType(CType(221, Byte), Integer), CType(CType(223, Byte), Integer)) + Label45.Font = New System.Drawing.Font("나눔고딕 ExtraBold", 8.999999!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Label45.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label45.Location = New System.Drawing.Point(9, 92) + Label45.Name = "Label45" + Label45.Size = New System.Drawing.Size(85, 14) + Label45.TabIndex = 87 + Label45.Text = "작업면높이[m]:" + Label45.TextAlign = System.Drawing.ContentAlignment.MiddleRight + ' + 'Label47 + ' + Label47.AutoSize = True + Label47.BackColor = System.Drawing.Color.FromArgb(CType(CType(219, Byte), Integer), CType(CType(221, Byte), Integer), CType(CType(223, Byte), Integer)) + Label47.Font = New System.Drawing.Font("나눔고딕 ExtraBold", 8.999999!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Label47.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label47.Location = New System.Drawing.Point(9, 67) + Label47.Name = "Label47" + Label47.Size = New System.Drawing.Size(63, 14) + Label47.TabIndex = 85 + Label47.Text = "천장고[m]:" + Label47.TextAlign = System.Drawing.ContentAlignment.MiddleRight + ' + 'Label46 + ' + Label46.AutoSize = True + Label46.BackColor = System.Drawing.Color.FromArgb(CType(CType(219, Byte), Integer), CType(CType(221, Byte), Integer), CType(CType(223, Byte), Integer)) + Label46.Font = New System.Drawing.Font("나눔고딕 ExtraBold", 8.999999!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Label46.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label46.Location = New System.Drawing.Point(9, 42) + Label46.Name = "Label46" + Label46.Size = New System.Drawing.Size(72, 14) + Label46.TabIndex = 84 + Label46.Text = "요구조도[lx]:" + Label46.TextAlign = System.Drawing.ContentAlignment.MiddleRight + ' + 'Label37 + ' + Label37.AutoSize = True + Label37.BackColor = System.Drawing.Color.FromArgb(CType(CType(219, Byte), Integer), CType(CType(221, Byte), Integer), CType(CType(223, Byte), Integer)) + Label37.Font = New System.Drawing.Font("나눔고딕 ExtraBold", 8.999999!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Label37.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label37.Location = New System.Drawing.Point(216, 67) + Label37.Name = "Label37" + Label37.Size = New System.Drawing.Size(70, 14) + Label37.TabIndex = 75 + Label37.Text = "점등시간[h]:" + Label37.TextAlign = System.Drawing.ContentAlignment.MiddleRight + ' + 'Label35 + ' + Label35.AutoSize = True + Label35.BackColor = System.Drawing.Color.FromArgb(CType(CType(219, Byte), Integer), CType(CType(221, Byte), Integer), CType(CType(223, Byte), Integer)) + Label35.Font = New System.Drawing.Font("나눔고딕 ExtraBold", 8.999999!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Label35.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label35.Location = New System.Drawing.Point(13, 78) + Label35.Name = "Label35" + Label35.Size = New System.Drawing.Size(44, 14) + Label35.TabIndex = 74 + Label35.Text = "보수율:" + Label35.TextAlign = System.Drawing.ContentAlignment.MiddleRight + ' + 'Label33 + ' + Label33.AutoSize = True + Label33.BackColor = System.Drawing.Color.FromArgb(CType(CType(219, Byte), Integer), CType(CType(221, Byte), Integer), CType(CType(223, Byte), Integer)) + Label33.Font = New System.Drawing.Font("나눔고딕 ExtraBold", 8.999999!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Label33.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label33.Location = New System.Drawing.Point(13, 49) + Label33.Name = "Label33" + Label33.Size = New System.Drawing.Size(55, 14) + Label33.TabIndex = 67 + Label33.Text = "인공광원:" + Label33.TextAlign = System.Drawing.ContentAlignment.MiddleRight + ' + 'Label32 + ' + Label32.AutoSize = True + Label32.BackColor = System.Drawing.Color.FromArgb(CType(CType(219, Byte), Integer), CType(CType(221, Byte), Integer), CType(CType(223, Byte), Integer)) + Label32.Font = New System.Drawing.Font("나눔고딕 ExtraBold", 8.999999!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Label32.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label32.Location = New System.Drawing.Point(13, 20) + Label32.Name = "Label32" + Label32.Size = New System.Drawing.Size(55, 14) + Label32.TabIndex = 65 + Label32.Text = "조명방식:" + Label32.TextAlign = System.Drawing.ContentAlignment.MiddleRight + ' + 'Label36 + ' + Label36.AutoSize = True + Label36.BackColor = System.Drawing.Color.FromArgb(CType(CType(219, Byte), Integer), CType(CType(221, Byte), Integer), CType(CType(223, Byte), Integer)) + Label36.Font = New System.Drawing.Font("나눔고딕 ExtraBold", 8.999999!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Label36.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label36.Location = New System.Drawing.Point(205, 20) + Label36.Name = "Label36" + Label36.Size = New System.Drawing.Size(142, 14) + Label36.TabIndex = 79 + Label36.Text = "조명에너지부하율[W/m2]:" + Label36.TextAlign = System.Drawing.ContentAlignment.MiddleRight + ' + 'Label39 + ' + Label39.AutoSize = True + Label39.BackColor = System.Drawing.Color.FromArgb(CType(CType(219, Byte), Integer), CType(CType(221, Byte), Integer), CType(CType(223, Byte), Integer)) + Label39.Font = New System.Drawing.Font("나눔고딕 ExtraBold", 8.999999!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Label39.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label39.Location = New System.Drawing.Point(13, 136) + Label39.Name = "Label39" + Label39.Size = New System.Drawing.Size(77, 14) + Label39.TabIndex = 76 + Label39.Text = "조명기기효율:" + Label39.TextAlign = System.Drawing.ContentAlignment.MiddleRight + ' + 'Label38 + ' + Label38.AutoSize = True + Label38.BackColor = System.Drawing.Color.FromArgb(CType(CType(219, Byte), Integer), CType(CType(221, Byte), Integer), CType(CType(223, Byte), Integer)) + Label38.Font = New System.Drawing.Font("나눔고딕 ExtraBold", 8.999999!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Label38.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label38.Location = New System.Drawing.Point(216, 117) + Label38.Name = "Label38" + Label38.Size = New System.Drawing.Size(132, 14) + Label38.TabIndex = 78 + Label38.Text = "조명에너지부하율계산치:" + Label38.TextAlign = System.Drawing.ContentAlignment.MiddleRight + ' + 'Label40 + ' + Label40.AutoSize = True + Label40.BackColor = System.Drawing.Color.FromArgb(CType(CType(219, Byte), Integer), CType(CType(221, Byte), Integer), CType(CType(223, Byte), Integer)) + Label40.Font = New System.Drawing.Font("나눔고딕 ExtraBold", 8.999999!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Label40.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label40.Location = New System.Drawing.Point(13, 107) + Label40.Name = "Label40" + Label40.Size = New System.Drawing.Size(44, 14) + Label40.TabIndex = 77 + Label40.Text = "조명률:" + Label40.TextAlign = System.Drawing.ContentAlignment.MiddleRight + ' + '순실체적Label + ' + 순실체적Label.Anchor = System.Windows.Forms.AnchorStyles.None + 순실체적Label.AutoSize = True + 순실체적Label.BackColor = System.Drawing.Color.FromArgb(CType(CType(219, Byte), Integer), CType(CType(221, Byte), Integer), CType(CType(223, Byte), Integer)) + 순실체적Label.ForeColor = System.Drawing.SystemColors.ControlDarkDark + 순실체적Label.Location = New System.Drawing.Point(5, 107) + 순실체적Label.Name = "순실체적Label" + 순실체적Label.Size = New System.Drawing.Size(70, 14) + 순실체적Label.TabIndex = 22 + 순실체적Label.Text = "실체적[m3]:" + ' + '천장고Label + ' + 천장고Label.Anchor = System.Windows.Forms.AnchorStyles.None + 천장고Label.AutoSize = True + 천장고Label.BackColor = System.Drawing.Color.FromArgb(CType(CType(219, Byte), Integer), CType(CType(221, Byte), Integer), CType(CType(223, Byte), Integer)) + 천장고Label.ForeColor = System.Drawing.SystemColors.ControlDarkDark + 천장고Label.Location = New System.Drawing.Point(5, 78) + 천장고Label.Name = "천장고Label" + 천장고Label.Size = New System.Drawing.Size(69, 14) + 천장고Label.TabIndex = 21 + 천장고Label.Text = "천 장 고[m]:" + ' + 'Label1 + ' + Label1.Anchor = System.Windows.Forms.AnchorStyles.None + 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(5, 49) + Label1.Name = "Label1" + Label1.Size = New System.Drawing.Size(68, 14) + Label1.TabIndex = 23 + Label1.Text = "면 적[m2]:" + ' + 'Label2 + ' + Label2.Anchor = System.Windows.Forms.AnchorStyles.None + Label2.AutoSize = True + Label2.BackColor = System.Drawing.Color.FromArgb(CType(CType(219, Byte), Integer), CType(CType(221, Byte), Integer), CType(CType(223, Byte), Integer)) + Label2.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label2.Location = New System.Drawing.Point(5, 20) + Label2.Name = "Label2" + Label2.Size = New System.Drawing.Size(66, 14) + Label2.TabIndex = 20 + Label2.Text = "사용프로필:" + Label2.TextAlign = System.Drawing.ContentAlignment.MiddleRight + ' + '냉난방방식Label + ' + 냉난방방식Label.AutoSize = True + 냉난방방식Label.BackColor = System.Drawing.Color.FromArgb(CType(CType(219, Byte), Integer), CType(CType(221, Byte), Integer), CType(CType(223, Byte), Integer)) + 냉난방방식Label.ForeColor = System.Drawing.SystemColors.ControlDarkDark + 냉난방방식Label.Location = New System.Drawing.Point(5, 107) + 냉난방방식Label.Name = "냉난방방식Label" + 냉난방방식Label.Size = New System.Drawing.Size(66, 14) + 냉난방방식Label.TabIndex = 33 + 냉난방방식Label.Text = "냉난방방식:" + ' + '침기율Label + ' + 침기율Label.AutoSize = True + 침기율Label.BackColor = System.Drawing.Color.FromArgb(CType(CType(219, Byte), Integer), CType(CType(221, Byte), Integer), CType(CType(223, Byte), Integer)) + 침기율Label.ForeColor = System.Drawing.SystemColors.ControlDarkDark + 침기율Label.Location = New System.Drawing.Point(5, 78) + 침기율Label.Name = "침기율Label" + 침기율Label.Size = New System.Drawing.Size(71, 14) + 침기율Label.TabIndex = 32 + 침기율Label.Text = "침기율[1/h]:" + ' + '열교가산치Label + ' + 열교가산치Label.AutoSize = True + 열교가산치Label.BackColor = System.Drawing.Color.FromArgb(CType(CType(219, Byte), Integer), CType(CType(221, Byte), Integer), CType(CType(223, Byte), Integer)) + 열교가산치Label.ForeColor = System.Drawing.SystemColors.ControlDarkDark + 열교가산치Label.Location = New System.Drawing.Point(5, 49) + 열교가산치Label.Name = "열교가산치Label" + 열교가산치Label.Size = New System.Drawing.Size(66, 14) + 열교가산치Label.TabIndex = 31 + 열교가산치Label.Text = "열교가산치:" + ' + '열저장능력Label + ' + 열저장능력Label.AutoSize = True + 열저장능력Label.BackColor = System.Drawing.Color.FromArgb(CType(CType(219, Byte), Integer), CType(CType(221, Byte), Integer), CType(CType(223, Byte), Integer)) + 열저장능력Label.ForeColor = System.Drawing.SystemColors.ControlDarkDark + 열저장능력Label.Location = New System.Drawing.Point(5, 20) + 열저장능력Label.Name = "열저장능력Label" + 열저장능력Label.Size = New System.Drawing.Size(66, 14) + 열저장능력Label.TabIndex = 30 + 열저장능력Label.Text = "열저장능력:" + ' + '주말운전방식Label + ' + 주말운전방식Label.AutoSize = True + 주말운전방식Label.BackColor = System.Drawing.Color.FromArgb(CType(CType(219, Byte), Integer), CType(CType(221, Byte), Integer), CType(CType(223, Byte), Integer)) + 주말운전방식Label.ForeColor = System.Drawing.SystemColors.ControlDarkDark + 주말운전방식Label.Location = New System.Drawing.Point(5, 107) + 주말운전방식Label.Name = "주말운전방식Label" + 주말운전방식Label.Size = New System.Drawing.Size(77, 14) + 주말운전방식Label.TabIndex = 38 + 주말운전방식Label.Text = "주말운전방식:" + ' + '야간운전방식Label + ' + 야간운전방식Label.AutoSize = True + 야간운전방식Label.BackColor = System.Drawing.Color.FromArgb(CType(CType(219, Byte), Integer), CType(CType(221, Byte), Integer), CType(CType(223, Byte), Integer)) + 야간운전방식Label.ForeColor = System.Drawing.SystemColors.ControlDarkDark + 야간운전방식Label.Location = New System.Drawing.Point(5, 78) + 야간운전방식Label.Name = "야간운전방식Label" + 야간운전방식Label.Size = New System.Drawing.Size(77, 14) + 야간운전방식Label.TabIndex = 37 + 야간운전방식Label.Text = "야간운전방식:" + ' + '외기부하처리여부Label + ' + 외기부하처리여부Label.AutoSize = True + 외기부하처리여부Label.BackColor = System.Drawing.Color.FromArgb(CType(CType(219, Byte), Integer), CType(CType(221, Byte), Integer), CType(CType(223, Byte), Integer)) + 외기부하처리여부Label.ForeColor = System.Drawing.SystemColors.ControlDarkDark + 외기부하처리여부Label.Location = New System.Drawing.Point(5, 49) + 외기부하처리여부Label.Name = "외기부하처리여부Label" + 외기부하처리여부Label.Size = New System.Drawing.Size(77, 14) + 외기부하처리여부Label.TabIndex = 36 + 외기부하처리여부Label.Text = "외기부하처리:" + ' + '냉난방공조Label + ' + 냉난방공조Label.AutoSize = True + 냉난방공조Label.BackColor = System.Drawing.Color.FromArgb(CType(CType(219, Byte), Integer), CType(CType(221, Byte), Integer), CType(CType(223, Byte), Integer)) + 냉난방공조Label.ForeColor = System.Drawing.SystemColors.ControlDarkDark + 냉난방공조Label.Location = New System.Drawing.Point(5, 20) + 냉난방공조Label.Name = "냉난방공조Label" + 냉난방공조Label.Size = New System.Drawing.Size(66, 14) + 냉난방공조Label.TabIndex = 35 + 냉난방공조Label.Text = "냉난방공조:" + ' + 'Label10 + ' + Label10.AutoSize = True + Label10.BackColor = System.Drawing.Color.FromArgb(CType(CType(243, Byte), Integer), CType(CType(244, Byte), Integer), CType(CType(246, Byte), Integer)) + Label10.Font = New System.Drawing.Font("나눔고딕 ExtraBold", 8.999999!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Label10.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label10.Location = New System.Drawing.Point(3, 31) + Label10.Name = "Label10" + Label10.Size = New System.Drawing.Size(99, 14) + Label10.TabIndex = 44 + Label10.Text = "공조난방생산기기:" + ' + 'Label11 + ' + Label11.AutoSize = True + Label11.BackColor = System.Drawing.Color.FromArgb(CType(CType(243, Byte), Integer), CType(CType(244, Byte), Integer), CType(CType(246, Byte), Integer)) + Label11.Font = New System.Drawing.Font("나눔고딕 ExtraBold", 8.999999!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Label11.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label11.Location = New System.Drawing.Point(3, 58) + Label11.Name = "Label11" + Label11.Size = New System.Drawing.Size(99, 14) + Label11.TabIndex = 44 + Label11.Text = "공조냉방생산기기:" + ' + '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, 30) + 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.AllowDrop = True + Me.SplitContainer1.Panel2.AutoScroll = True + Me.SplitContainer1.Panel2.Controls.Add(Me.ToolStrip1) + Me.SplitContainer1.Panel2.Controls.Add(Me.Label17) + Me.SplitContainer1.Panel2.Controls.Add(Me.Label15) + Me.SplitContainer1.Panel2.Controls.Add(Me.PictureBox3) + Me.SplitContainer1.Panel2.Controls.Add(Me.PictureBox1) + Me.SplitContainer1.Panel2.Controls.Add(Me.GroupBox8) + Me.SplitContainer1.Panel2.Controls.Add(Me.GroupBox7) + Me.SplitContainer1.Panel2.Controls.Add(Me.GroupBox6) + Me.SplitContainer1.Panel2.Controls.Add(Me.GroupBox5) + Me.SplitContainer1.Panel2.Controls.Add(Me.GroupBox4) + Me.SplitContainer1.Panel2.Controls.Add(Me.GroupBox3) + Me.SplitContainer1.Panel2.Controls.Add(Me.GroupBox2) + Me.SplitContainer1.Panel2.Controls.Add(Me.난방공급시스템GroupBox) + Me.SplitContainer1.Size = New System.Drawing.Size(795, 535) + Me.SplitContainer1.SplitterDistance = 212 + Me.SplitContainer1.TabIndex = 151 + ' + 'dv + ' + Me.dv.A_DelCurrentCell = True + Me.dv.A_EnterToTab = True + 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.FromArgb(CType(CType(245, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(246, Byte), Integer)) + Me.dv.BorderStyle = System.Windows.Forms.BorderStyle.None + Me.dv.ColumnHeadersHeight = 30 + Me.dv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.DisableResizing + 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.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, 493) + Me.dv.TabIndex = 0 + ' + 'DataGridViewTextBoxColumn1 + ' + Me.DataGridViewTextBoxColumn1.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.Fill + Me.DataGridViewTextBoxColumn1.DataPropertyName = "설명" + Me.DataGridViewTextBoxColumn1.HeaderText = "설명" + Me.DataGridViewTextBoxColumn1.Name = "DataGridViewTextBoxColumn1" + ' + 'bs + ' + Me.bs.DataMember = "tbl_zone" + Me.bs.DataSource = Me.DS + Me.bs.Filter = "code <> '0'" + ' + 'DS + ' + 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.ToolStripLabel1 + Me.bn.DeleteItem = Nothing + Me.bn.Dock = System.Windows.Forms.DockStyle.Bottom + Me.bn.Font = New System.Drawing.Font("나눔고딕 ExtraBold", 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.ToolStripLabel1}) + Me.bn.Location = New System.Drawing.Point(0, 493) + 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, 40) + Me.bn.TabIndex = 1 + Me.bn.Text = "BindingNavigator1" + ' + 'ToolStripLabel1 + ' + Me.ToolStripLabel1.Name = "ToolStripLabel1" + Me.ToolStripLabel1.Size = New System.Drawing.Size(27, 37) + Me.ToolStripLabel1.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, 37) + 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, 37) + 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, 37) + Me.bt_cancel.Text = "변경취소(&C)" + Me.bt_cancel.ToolTipText = "변경된 내용을 되돌립니다" + ' + 'ToolStripSeparator1 + ' + Me.ToolStripSeparator1.Name = "ToolStripSeparator1" + Me.ToolStripSeparator1.Size = New System.Drawing.Size(6, 40) + ' + 'lbl_pos + ' + Me.lbl_pos.Name = "lbl_pos" + Me.lbl_pos.Size = New System.Drawing.Size(14, 37) + Me.lbl_pos.Text = "0" + ' + 'ToolStrip1 + ' + Me.ToolStrip1.Dock = System.Windows.Forms.DockStyle.Bottom + Me.ToolStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToolStripLabel2, Me.ToolStripLabel3, Me.ToolStripLabel4, Me.ToolStripLabel5, Me.ToolStripLabel6, Me.ToolStripLabel7, Me.ToolStripLabel8, Me.ToolStripLabel9, Me.ToolStripLabel10, Me.ToolStripLabel11}) + Me.ToolStrip1.Location = New System.Drawing.Point(0, 508) + Me.ToolStrip1.Name = "ToolStrip1" + Me.ToolStrip1.Size = New System.Drawing.Size(577, 25) + Me.ToolStrip1.TabIndex = 91 + Me.ToolStrip1.Text = "ToolStrip1" + ' + 'ToolStripLabel2 + ' + Me.ToolStripLabel2.Font = New System.Drawing.Font("나눔고딕 ExtraBold", 8.999999!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.ToolStripLabel2.Name = "ToolStripLabel2" + Me.ToolStripLabel2.Size = New System.Drawing.Size(33, 22) + Me.ToolStripLabel2.Text = "외벽:" + ' + 'ToolStripLabel3 + ' + Me.ToolStripLabel3.Font = New System.Drawing.Font("나눔고딕 ExtraBold", 8.999999!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.ToolStripLabel3.Name = "ToolStripLabel3" + Me.ToolStripLabel3.Size = New System.Drawing.Size(93, 22) + Me.ToolStripLabel3.Text = "ToolStripLabel3" + ' + 'ToolStripLabel4 + ' + Me.ToolStripLabel4.Font = New System.Drawing.Font("나눔고딕 ExtraBold", 8.999999!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.ToolStripLabel4.Name = "ToolStripLabel4" + Me.ToolStripLabel4.Size = New System.Drawing.Size(36, 22) + Me.ToolStripLabel4.Text = " 내벽:" + ' + 'ToolStripLabel5 + ' + Me.ToolStripLabel5.Font = New System.Drawing.Font("나눔고딕 ExtraBold", 8.999999!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.ToolStripLabel5.Name = "ToolStripLabel5" + Me.ToolStripLabel5.Size = New System.Drawing.Size(93, 22) + Me.ToolStripLabel5.Text = "ToolStripLabel5" + ' + 'ToolStripLabel6 + ' + Me.ToolStripLabel6.Font = New System.Drawing.Font("나눔고딕 ExtraBold", 8.999999!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.ToolStripLabel6.Name = "ToolStripLabel6" + Me.ToolStripLabel6.Size = New System.Drawing.Size(47, 22) + Me.ToolStripLabel6.Text = " 외부창:" + ' + 'ToolStripLabel7 + ' + Me.ToolStripLabel7.Font = New System.Drawing.Font("나눔고딕 ExtraBold", 8.999999!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.ToolStripLabel7.Name = "ToolStripLabel7" + Me.ToolStripLabel7.Size = New System.Drawing.Size(93, 22) + Me.ToolStripLabel7.Text = "ToolStripLabel7" + ' + 'ToolStripLabel8 + ' + Me.ToolStripLabel8.Font = New System.Drawing.Font("나눔고딕 ExtraBold", 8.999999!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.ToolStripLabel8.Name = "ToolStripLabel8" + Me.ToolStripLabel8.Size = New System.Drawing.Size(47, 22) + Me.ToolStripLabel8.Text = " 내부창:" + ' + 'ToolStripLabel9 + ' + Me.ToolStripLabel9.Font = New System.Drawing.Font("나눔고딕 ExtraBold", 8.999999!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.ToolStripLabel9.Name = "ToolStripLabel9" + Me.ToolStripLabel9.Size = New System.Drawing.Size(93, 22) + Me.ToolStripLabel9.Text = "ToolStripLabel9" + ' + 'ToolStripLabel10 + ' + Me.ToolStripLabel10.Font = New System.Drawing.Font("나눔고딕 ExtraBold", 8.999999!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.ToolStripLabel10.Name = "ToolStripLabel10" + Me.ToolStripLabel10.Size = New System.Drawing.Size(36, 14) + Me.ToolStripLabel10.Text = " 간벽:" + ' + 'ToolStripLabel11 + ' + Me.ToolStripLabel11.Font = New System.Drawing.Font("나눔고딕 ExtraBold", 8.999999!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.ToolStripLabel11.Name = "ToolStripLabel11" + Me.ToolStripLabel11.Size = New System.Drawing.Size(100, 14) + Me.ToolStripLabel11.Text = "ToolStripLabel11" + ' + 'Label17 + ' + Me.Label17.AutoSize = True + Me.Label17.BackColor = System.Drawing.Color.FromArgb(CType(CType(116, Byte), Integer), CType(CType(158, Byte), Integer), CType(CType(209, Byte), Integer)) + Me.Label17.ForeColor = System.Drawing.Color.White + Me.Label17.Location = New System.Drawing.Point(34, 289) + Me.Label17.Name = "Label17" + Me.Label17.Size = New System.Drawing.Size(56, 14) + Me.Label17.TabIndex = 90 + Me.Label17.Text = "조 명" + ' + 'Label15 + ' + Me.Label15.AutoSize = True + Me.Label15.BackColor = System.Drawing.Color.FromArgb(CType(CType(116, Byte), Integer), CType(CType(158, Byte), Integer), CType(CType(209, Byte), Integer)) + Me.Label15.ForeColor = System.Drawing.Color.White + Me.Label15.Location = New System.Drawing.Point(34, 14) + Me.Label15.Name = "Label15" + Me.Label15.Size = New System.Drawing.Size(62, 14) + Me.Label15.TabIndex = 90 + Me.Label15.Text = "일반데이터" + ' + 'PictureBox3 + ' + Me.PictureBox3.BackgroundImage = CType(resources.GetObject("PictureBox3.BackgroundImage"), System.Drawing.Image) + Me.PictureBox3.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch + Me.PictureBox3.Location = New System.Drawing.Point(15, 277) + Me.PictureBox3.Name = "PictureBox3" + Me.PictureBox3.Size = New System.Drawing.Size(131, 30) + Me.PictureBox3.TabIndex = 83 + Me.PictureBox3.TabStop = False + ' + 'PictureBox1 + ' + Me.PictureBox1.BackgroundImage = CType(resources.GetObject("PictureBox1.BackgroundImage"), System.Drawing.Image) + Me.PictureBox1.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch + Me.PictureBox1.Location = New System.Drawing.Point(15, 3) + Me.PictureBox1.Name = "PictureBox1" + Me.PictureBox1.Size = New System.Drawing.Size(131, 30) + Me.PictureBox1.TabIndex = 83 + Me.PictureBox1.TabStop = False + ' + 'GroupBox8 + ' + Me.GroupBox8.BackColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer)) + Me.GroupBox8.Controls.Add(주말운전방식Label) + Me.GroupBox8.Controls.Add(외기부하처리여부Label) + Me.GroupBox8.Controls.Add(야간운전방식Label) + Me.GroupBox8.Controls.Add(Me.냉난방공조ComboBox) + Me.GroupBox8.Controls.Add(Me.외기부하처리여부ComboBox) + Me.GroupBox8.Controls.Add(냉난방공조Label) + Me.GroupBox8.Controls.Add(Me.야간운전방식ComboBox) + Me.GroupBox8.Controls.Add(Me.주말운전방식ComboBox) + Me.GroupBox8.Controls.Add(Me.PictureBox8) + Me.GroupBox8.Location = New System.Drawing.Point(388, 27) + Me.GroupBox8.Name = "GroupBox8" + Me.GroupBox8.Size = New System.Drawing.Size(180, 132) + Me.GroupBox8.TabIndex = 89 + Me.GroupBox8.TabStop = False + ' + '냉난방공조ComboBox + ' + Me.냉난방공조ComboBox.DisplayMember = "code" + Me.냉난방공조ComboBox.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList + Me.냉난방공조ComboBox.Font = New System.Drawing.Font("나눔고딕 ExtraBold", 8.999999!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.냉난방공조ComboBox.FormattingEnabled = True + Me.냉난방공조ComboBox.Location = New System.Drawing.Point(83, 16) + Me.냉난방공조ComboBox.Name = "냉난방공조ComboBox" + Me.냉난방공조ComboBox.NectControl = Nothing + Me.냉난방공조ComboBox.Size = New System.Drawing.Size(80, 22) + Me.냉난방공조ComboBox.TabIndex = 8 + Me.냉난방공조ComboBox.ValueMember = "code" + ' + '외기부하처리여부ComboBox + ' + Me.외기부하처리여부ComboBox.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList + Me.외기부하처리여부ComboBox.FormattingEnabled = True + Me.외기부하처리여부ComboBox.Location = New System.Drawing.Point(83, 45) + Me.외기부하처리여부ComboBox.Name = "외기부하처리여부ComboBox" + Me.외기부하처리여부ComboBox.NectControl = Nothing + Me.외기부하처리여부ComboBox.Size = New System.Drawing.Size(80, 22) + Me.외기부하처리여부ComboBox.TabIndex = 9 + ' + '야간운전방식ComboBox + ' + Me.야간운전방식ComboBox.DisplayMember = "code" + Me.야간운전방식ComboBox.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList + Me.야간운전방식ComboBox.FormattingEnabled = True + Me.야간운전방식ComboBox.Location = New System.Drawing.Point(83, 74) + Me.야간운전방식ComboBox.Name = "야간운전방식ComboBox" + Me.야간운전방식ComboBox.NectControl = Nothing + Me.야간운전방식ComboBox.Size = New System.Drawing.Size(80, 22) + Me.야간운전방식ComboBox.TabIndex = 10 + Me.야간운전방식ComboBox.ValueMember = "code" + ' + '주말운전방식ComboBox + ' + Me.주말운전방식ComboBox.DisplayMember = "code" + Me.주말운전방식ComboBox.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList + Me.주말운전방식ComboBox.FormattingEnabled = True + Me.주말운전방식ComboBox.Location = New System.Drawing.Point(83, 103) + Me.주말운전방식ComboBox.Name = "주말운전방식ComboBox" + Me.주말운전방식ComboBox.NectControl = Me.냉난방열공급시스템ComboBox + Me.주말운전방식ComboBox.Size = New System.Drawing.Size(80, 22) + Me.주말운전방식ComboBox.TabIndex = 11 + Me.주말운전방식ComboBox.ValueMember = "code" + ' + '냉난방열공급시스템ComboBox + ' + Me.냉난방열공급시스템ComboBox.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList + Me.냉난방열공급시스템ComboBox.Font = New System.Drawing.Font("나눔고딕 ExtraBold", 8.999999!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.냉난방열공급시스템ComboBox.FormattingEnabled = True + Me.냉난방열공급시스템ComboBox.Location = New System.Drawing.Point(95, 29) + Me.냉난방열공급시스템ComboBox.Name = "냉난방열공급시스템ComboBox" + Me.냉난방열공급시스템ComboBox.NectControl = Nothing + Me.냉난방열공급시스템ComboBox.Size = New System.Drawing.Size(74, 22) + Me.냉난방열공급시스템ComboBox.TabIndex = 12 + ' + 'PictureBox8 + ' + Me.PictureBox8.BackColor = System.Drawing.Color.FromArgb(CType(CType(219, Byte), Integer), CType(CType(221, Byte), Integer), CType(CType(223, Byte), Integer)) + Me.PictureBox8.Location = New System.Drawing.Point(0, 9) + Me.PictureBox8.Name = "PictureBox8" + Me.PictureBox8.Size = New System.Drawing.Size(180, 120) + Me.PictureBox8.TabIndex = 37 + Me.PictureBox8.TabStop = False + ' + 'GroupBox7 + ' + Me.GroupBox7.BackColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer)) + Me.GroupBox7.Controls.Add(침기율Label) + Me.GroupBox7.Controls.Add(Me.열교가산치ComboBox) + Me.GroupBox7.Controls.Add(Me.열저장능력ComboBox) + Me.GroupBox7.Controls.Add(Me.침기율NTb) + Me.GroupBox7.Controls.Add(냉난방방식Label) + Me.GroupBox7.Controls.Add(Me.cmb_냉난방방식) + Me.GroupBox7.Controls.Add(열저장능력Label) + Me.GroupBox7.Controls.Add(열교가산치Label) + Me.GroupBox7.Controls.Add(Me.PictureBox7) + Me.GroupBox7.Location = New System.Drawing.Point(207, 27) + Me.GroupBox7.Name = "GroupBox7" + Me.GroupBox7.Size = New System.Drawing.Size(181, 132) + Me.GroupBox7.TabIndex = 88 + Me.GroupBox7.TabStop = False + ' + '열교가산치ComboBox + ' + Me.열교가산치ComboBox.DisplayMember = "code" + Me.열교가산치ComboBox.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList + Me.열교가산치ComboBox.FormattingEnabled = True + Me.열교가산치ComboBox.Location = New System.Drawing.Point(77, 45) + Me.열교가산치ComboBox.Name = "열교가산치ComboBox" + Me.열교가산치ComboBox.NectControl = Nothing + Me.열교가산치ComboBox.Size = New System.Drawing.Size(84, 22) + Me.열교가산치ComboBox.TabIndex = 5 + Me.열교가산치ComboBox.ValueMember = "code" + ' + '열저장능력ComboBox + ' + Me.열저장능력ComboBox.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList + Me.열저장능력ComboBox.FormattingEnabled = True + Me.열저장능력ComboBox.Items.AddRange(New Object() {"130", "90", "50"}) + Me.열저장능력ComboBox.Location = New System.Drawing.Point(77, 16) + Me.열저장능력ComboBox.Name = "열저장능력ComboBox" + Me.열저장능력ComboBox.NectControl = Nothing + Me.열저장능력ComboBox.Size = New System.Drawing.Size(84, 22) + Me.열저장능력ComboBox.TabIndex = 4 + ' + '침기율NTb + ' + Me.침기율NTb.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bs, "침기율", True)) + Me.침기율NTb.Location = New System.Drawing.Point(77, 74) + Me.침기율NTb.Name = "침기율NTb" + Me.침기율NTb.NectControl = Nothing + Me.침기율NTb.Size = New System.Drawing.Size(84, 21) + Me.침기율NTb.TabIndex = 6 + Me.침기율NTb.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(77, 103) + Me.cmb_냉난방방식.Name = "cmb_냉난방방식" + Me.cmb_냉난방방식.NectControl = Nothing + Me.cmb_냉난방방식.Size = New System.Drawing.Size(84, 22) + Me.cmb_냉난방방식.TabIndex = 7 + ' + 'PictureBox7 + ' + Me.PictureBox7.BackColor = System.Drawing.Color.FromArgb(CType(CType(219, Byte), Integer), CType(CType(221, Byte), Integer), CType(CType(223, Byte), Integer)) + Me.PictureBox7.Location = New System.Drawing.Point(1, 9) + Me.PictureBox7.Name = "PictureBox7" + Me.PictureBox7.Size = New System.Drawing.Size(177, 120) + Me.PictureBox7.TabIndex = 37 + Me.PictureBox7.TabStop = False + ' + 'GroupBox6 + ' + Me.GroupBox6.Controls.Add(Me.tb_조명계산치) + Me.GroupBox6.Controls.Add(Me.tb_점등시간) + Me.GroupBox6.Controls.Add(Me.tb_조명입력치) + Me.GroupBox6.Controls.Add(Label35) + Me.GroupBox6.Controls.Add(Me.보수율NTb) + Me.GroupBox6.Controls.Add(Label36) + Me.GroupBox6.Controls.Add(Me.인공광원ComboBox) + Me.GroupBox6.Controls.Add(Label33) + Me.GroupBox6.Controls.Add(Label40) + Me.GroupBox6.Controls.Add(Me.조명방식ComboBox) + Me.GroupBox6.Controls.Add(Label38) + Me.GroupBox6.Controls.Add(Me.조명기기효율NTb) + Me.GroupBox6.Controls.Add(Label32) + Me.GroupBox6.Controls.Add(Me.tb_조명률) + Me.GroupBox6.Controls.Add(Label37) + Me.GroupBox6.Controls.Add(Label39) + Me.GroupBox6.Controls.Add(Me.PictureBox11) + Me.GroupBox6.Location = New System.Drawing.Point(215, 303) + Me.GroupBox6.Name = "GroupBox6" + Me.GroupBox6.Size = New System.Drawing.Size(353, 192) + Me.GroupBox6.TabIndex = 87 + Me.GroupBox6.TabStop = False + ' + 'tb_조명계산치 + ' + Me.tb_조명계산치.BackColor = System.Drawing.Color.DarkGray + Me.tb_조명계산치.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bs, "조명에너지부하율계산치", True)) + Me.tb_조명계산치.Font = New System.Drawing.Font("나눔고딕 ExtraBold", 8.999999!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.tb_조명계산치.Location = New System.Drawing.Point(241, 139) + Me.tb_조명계산치.Margin = New System.Windows.Forms.Padding(0) + Me.tb_조명계산치.Name = "tb_조명계산치" + Me.tb_조명계산치.NectControl = Nothing + Me.tb_조명계산치.ReadOnly = True + Me.tb_조명계산치.Size = New System.Drawing.Size(100, 21) + Me.tb_조명계산치.TabIndex = 35 + Me.tb_조명계산치.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + ' + 'tb_점등시간 + ' + Me.tb_점등시간.BackColor = System.Drawing.Color.DarkGray + Me.tb_점등시간.Font = New System.Drawing.Font("나눔고딕 ExtraBold", 8.999999!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.tb_점등시간.Location = New System.Drawing.Point(241, 85) + Me.tb_점등시간.Margin = New System.Windows.Forms.Padding(0) + Me.tb_점등시간.Name = "tb_점등시간" + Me.tb_점등시간.NectControl = Nothing + Me.tb_점등시간.ReadOnly = True + Me.tb_점등시간.Size = New System.Drawing.Size(100, 21) + Me.tb_점등시간.TabIndex = 34 + Me.tb_점등시간.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + ' + 'tb_조명입력치 + ' + Me.tb_조명입력치.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bs, "조명에너지부하율입력치", True)) + Me.tb_조명입력치.Font = New System.Drawing.Font("나눔고딕 ExtraBold", 8.999999!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.tb_조명입력치.Location = New System.Drawing.Point(241, 39) + Me.tb_조명입력치.Margin = New System.Windows.Forms.Padding(0) + Me.tb_조명입력치.Name = "tb_조명입력치" + Me.tb_조명입력치.NectControl = Nothing + Me.tb_조명입력치.Size = New System.Drawing.Size(100, 21) + Me.tb_조명입력치.TabIndex = 33 + Me.tb_조명입력치.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + ' + '보수율NTb + ' + Me.보수율NTb.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bs, "보수율", True)) + Me.보수율NTb.Font = New System.Drawing.Font("나눔고딕 ExtraBold", 8.999999!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.보수율NTb.Location = New System.Drawing.Point(91, 77) + Me.보수율NTb.Margin = New System.Windows.Forms.Padding(0) + Me.보수율NTb.Name = "보수율NTb" + Me.보수율NTb.NectControl = Nothing + Me.보수율NTb.Size = New System.Drawing.Size(100, 21) + Me.보수율NTb.TabIndex = 30 + Me.보수율NTb.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + ' + '인공광원ComboBox + ' + Me.인공광원ComboBox.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList + Me.인공광원ComboBox.Font = New System.Drawing.Font("나눔고딕 ExtraBold", 8.999999!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.인공광원ComboBox.FormattingEnabled = True + Me.인공광원ComboBox.Location = New System.Drawing.Point(91, 49) + Me.인공광원ComboBox.Margin = New System.Windows.Forms.Padding(0) + Me.인공광원ComboBox.Name = "인공광원ComboBox" + Me.인공광원ComboBox.NectControl = Nothing + Me.인공광원ComboBox.Size = New System.Drawing.Size(100, 22) + Me.인공광원ComboBox.TabIndex = 29 + ' + '조명방식ComboBox + ' + Me.조명방식ComboBox.DisplayMember = "code" + Me.조명방식ComboBox.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList + Me.조명방식ComboBox.Font = New System.Drawing.Font("나눔고딕 ExtraBold", 8.999999!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.조명방식ComboBox.FormattingEnabled = True + Me.조명방식ComboBox.Location = New System.Drawing.Point(91, 19) + Me.조명방식ComboBox.Margin = New System.Windows.Forms.Padding(0) + Me.조명방식ComboBox.Name = "조명방식ComboBox" + Me.조명방식ComboBox.NectControl = Nothing + Me.조명방식ComboBox.Size = New System.Drawing.Size(100, 22) + Me.조명방식ComboBox.TabIndex = 28 + Me.조명방식ComboBox.ValueMember = "code" + ' + '조명기기효율NTb + ' + Me.조명기기효율NTb.BackColor = System.Drawing.Color.DarkGray + Me.조명기기효율NTb.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bs, "조명기기효율", True)) + Me.조명기기효율NTb.Font = New System.Drawing.Font("나눔고딕 ExtraBold", 8.999999!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.조명기기효율NTb.Location = New System.Drawing.Point(91, 134) + Me.조명기기효율NTb.Margin = New System.Windows.Forms.Padding(0) + Me.조명기기효율NTb.Name = "조명기기효율NTb" + Me.조명기기효율NTb.NectControl = Nothing + Me.조명기기효율NTb.ReadOnly = True + Me.조명기기효율NTb.Size = New System.Drawing.Size(100, 21) + Me.조명기기효율NTb.TabIndex = 32 + Me.조명기기효율NTb.TabStop = False + Me.조명기기효율NTb.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + ' + 'tb_조명률 + ' + Me.tb_조명률.BackColor = System.Drawing.Color.DarkGray + Me.tb_조명률.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bs, "조명률", True)) + Me.tb_조명률.Font = New System.Drawing.Font("나눔고딕 ExtraBold", 8.999999!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.tb_조명률.Location = New System.Drawing.Point(91, 105) + Me.tb_조명률.Margin = New System.Windows.Forms.Padding(0) + Me.tb_조명률.Name = "tb_조명률" + Me.tb_조명률.NectControl = Nothing + Me.tb_조명률.ReadOnly = True + Me.tb_조명률.Size = New System.Drawing.Size(100, 21) + Me.tb_조명률.TabIndex = 31 + Me.tb_조명률.TabStop = False + Me.tb_조명률.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + ' + 'PictureBox11 + ' + Me.PictureBox11.BackColor = System.Drawing.Color.FromArgb(CType(CType(219, Byte), Integer), CType(CType(221, Byte), Integer), CType(CType(223, Byte), Integer)) + Me.PictureBox11.Location = New System.Drawing.Point(2, 9) + Me.PictureBox11.Name = "PictureBox11" + Me.PictureBox11.Size = New System.Drawing.Size(348, 180) + Me.PictureBox11.TabIndex = 37 + Me.PictureBox11.TabStop = False + ' + 'GroupBox5 + ' + Me.GroupBox5.Controls.Add(Me.실지수NTb1) + Me.GroupBox5.Controls.Add(Me.천장고NTB1) + Me.GroupBox5.Controls.Add(Label41) + Me.GroupBox5.Controls.Add(Me.조명부하산출방법ComboBox) + Me.GroupBox5.Controls.Add(Me.요구조도NTb1) + Me.GroupBox5.Controls.Add(Label42) + Me.GroupBox5.Controls.Add(Me.작업면높이NTb1) + Me.GroupBox5.Controls.Add(Label43) + Me.GroupBox5.Controls.Add(Me.실깊이NTb) + Me.GroupBox5.Controls.Add(Label44) + Me.GroupBox5.Controls.Add(Me.실너비NTb) + Me.GroupBox5.Controls.Add(Label45) + Me.GroupBox5.Controls.Add(Label46) + Me.GroupBox5.Controls.Add(Label47) + Me.GroupBox5.Controls.Add(Me.PictureBox6) + Me.GroupBox5.Location = New System.Drawing.Point(7, 303) + Me.GroupBox5.Name = "GroupBox5" + Me.GroupBox5.Size = New System.Drawing.Size(209, 192) + Me.GroupBox5.TabIndex = 86 + Me.GroupBox5.TabStop = False + ' + '실지수NTb1 + ' + Me.실지수NTb1.BackColor = System.Drawing.Color.DarkGray + Me.실지수NTb1.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bs, "실지수", True)) + Me.실지수NTb1.Font = New System.Drawing.Font("나눔고딕 ExtraBold", 8.999999!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.실지수NTb1.Location = New System.Drawing.Point(128, 165) + Me.실지수NTb1.Margin = New System.Windows.Forms.Padding(0) + Me.실지수NTb1.Name = "실지수NTb1" + Me.실지수NTb1.NectControl = Nothing + Me.실지수NTb1.ReadOnly = True + Me.실지수NTb1.Size = New System.Drawing.Size(74, 21) + Me.실지수NTb1.TabIndex = 27 + Me.실지수NTb1.TabStop = False + Me.실지수NTb1.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + ' + '천장고NTB1 + ' + Me.천장고NTB1.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bs, "천장고", True)) + Me.천장고NTB1.Font = New System.Drawing.Font("나눔고딕 ExtraBold", 8.999999!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.천장고NTB1.Location = New System.Drawing.Point(128, 67) + Me.천장고NTB1.Margin = New System.Windows.Forms.Padding(0) + Me.천장고NTB1.Name = "천장고NTB1" + Me.천장고NTB1.NectControl = Nothing + Me.천장고NTB1.Size = New System.Drawing.Size(74, 21) + Me.천장고NTB1.TabIndex = 23 + Me.천장고NTB1.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + ' + '조명부하산출방법ComboBox + ' + Me.조명부하산출방법ComboBox.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList + Me.조명부하산출방법ComboBox.Font = New System.Drawing.Font("나눔고딕 ExtraBold", 8.999999!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.조명부하산출방법ComboBox.FormattingEnabled = True + Me.조명부하산출방법ComboBox.Location = New System.Drawing.Point(128, 17) + Me.조명부하산출방법ComboBox.Margin = New System.Windows.Forms.Padding(0) + Me.조명부하산출방법ComboBox.Name = "조명부하산출방법ComboBox" + Me.조명부하산출방법ComboBox.NectControl = Nothing + Me.조명부하산출방법ComboBox.Size = New System.Drawing.Size(74, 22) + Me.조명부하산출방법ComboBox.TabIndex = 21 + ' + '요구조도NTb1 + ' + Me.요구조도NTb1.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bs, "요구조도", True)) + Me.요구조도NTb1.Font = New System.Drawing.Font("나눔고딕 ExtraBold", 8.999999!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.요구조도NTb1.Location = New System.Drawing.Point(128, 42) + Me.요구조도NTb1.Margin = New System.Windows.Forms.Padding(0) + Me.요구조도NTb1.Name = "요구조도NTb1" + Me.요구조도NTb1.NectControl = Nothing + Me.요구조도NTb1.Size = New System.Drawing.Size(74, 21) + Me.요구조도NTb1.TabIndex = 22 + Me.요구조도NTb1.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + ' + '작업면높이NTb1 + ' + Me.작업면높이NTb1.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bs, "작업면높이", True)) + Me.작업면높이NTb1.Font = New System.Drawing.Font("나눔고딕 ExtraBold", 8.999999!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.작업면높이NTb1.Location = New System.Drawing.Point(128, 92) + Me.작업면높이NTb1.Margin = New System.Windows.Forms.Padding(0) + Me.작업면높이NTb1.Name = "작업면높이NTb1" + Me.작업면높이NTb1.NectControl = Nothing + Me.작업면높이NTb1.Size = New System.Drawing.Size(74, 21) + Me.작업면높이NTb1.TabIndex = 24 + Me.작업면높이NTb1.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + ' + '실깊이NTb + ' + Me.실깊이NTb.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bs, "실깊이", True)) + Me.실깊이NTb.Font = New System.Drawing.Font("나눔고딕 ExtraBold", 8.999999!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.실깊이NTb.Location = New System.Drawing.Point(128, 117) + Me.실깊이NTb.Margin = New System.Windows.Forms.Padding(0) + Me.실깊이NTb.Name = "실깊이NTb" + Me.실깊이NTb.NectControl = Nothing + Me.실깊이NTb.Size = New System.Drawing.Size(74, 21) + Me.실깊이NTb.TabIndex = 25 + Me.실깊이NTb.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + ' + '실너비NTb + ' + Me.실너비NTb.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bs, "실너비", True)) + Me.실너비NTb.Font = New System.Drawing.Font("나눔고딕 ExtraBold", 8.999999!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.실너비NTb.Location = New System.Drawing.Point(128, 142) + Me.실너비NTb.Margin = New System.Windows.Forms.Padding(0) + Me.실너비NTb.Name = "실너비NTb" + Me.실너비NTb.NectControl = Nothing + Me.실너비NTb.Size = New System.Drawing.Size(74, 21) + Me.실너비NTb.TabIndex = 26 + Me.실너비NTb.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + ' + 'PictureBox6 + ' + Me.PictureBox6.BackColor = System.Drawing.Color.FromArgb(CType(CType(219, Byte), Integer), CType(CType(221, Byte), Integer), CType(CType(223, Byte), Integer)) + Me.PictureBox6.Location = New System.Drawing.Point(2, 9) + Me.PictureBox6.Name = "PictureBox6" + Me.PictureBox6.Size = New System.Drawing.Size(205, 180) + Me.PictureBox6.TabIndex = 37 + Me.PictureBox6.TabStop = False + ' + 'GroupBox4 + ' + Me.GroupBox4.BackColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer)) + Me.GroupBox4.Controls.Add(Me.순실체적NTb) + Me.GroupBox4.Controls.Add(Me.면적NTb) + Me.GroupBox4.Controls.Add(Me.천장고NTb) + Me.GroupBox4.Controls.Add(순실체적Label) + Me.GroupBox4.Controls.Add(천장고Label) + Me.GroupBox4.Controls.Add(Label1) + Me.GroupBox4.Controls.Add(Label2) + Me.GroupBox4.Controls.Add(Me.cmb_profile) + Me.GroupBox4.Controls.Add(Me.PictureBox5) + Me.GroupBox4.Location = New System.Drawing.Point(8, 27) + Me.GroupBox4.Name = "GroupBox4" + Me.GroupBox4.Size = New System.Drawing.Size(200, 132) + Me.GroupBox4.TabIndex = 82 + Me.GroupBox4.TabStop = False + ' + '순실체적NTb + ' + Me.순실체적NTb.BackColor = System.Drawing.Color.DarkGray + Me.순실체적NTb.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bs, "순실체적", True)) + Me.순실체적NTb.Location = New System.Drawing.Point(71, 103) + Me.순실체적NTb.Name = "순실체적NTb" + Me.순실체적NTb.NectControl = Nothing + Me.순실체적NTb.ReadOnly = True + Me.순실체적NTb.Size = New System.Drawing.Size(122, 21) + Me.순실체적NTb.TabIndex = 3 + Me.순실체적NTb.TabStop = False + Me.순실체적NTb.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + ' + '면적NTb + ' + Me.면적NTb.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bs, "면적", True)) + Me.면적NTb.Location = New System.Drawing.Point(71, 45) + Me.면적NTb.Name = "면적NTb" + Me.면적NTb.NectControl = Nothing + Me.면적NTb.Size = New System.Drawing.Size(122, 21) + Me.면적NTb.TabIndex = 1 + Me.면적NTb.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + ' + '천장고NTb + ' + Me.천장고NTb.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bs, "천장고p", True)) + Me.천장고NTb.Location = New System.Drawing.Point(71, 74) + Me.천장고NTb.Name = "천장고NTb" + Me.천장고NTb.NectControl = Nothing + Me.천장고NTb.Size = New System.Drawing.Size(122, 21) + Me.천장고NTb.TabIndex = 2 + Me.천장고NTb.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + ' + 'cmb_profile + ' + Me.cmb_profile.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList + Me.cmb_profile.FormattingEnabled = True + Me.cmb_profile.Location = New System.Drawing.Point(71, 16) + Me.cmb_profile.Name = "cmb_profile" + Me.cmb_profile.NectControl = Nothing + Me.cmb_profile.Size = New System.Drawing.Size(122, 22) + Me.cmb_profile.TabIndex = 0 + ' + 'PictureBox5 + ' + Me.PictureBox5.BackColor = System.Drawing.Color.FromArgb(CType(CType(219, Byte), Integer), CType(CType(221, Byte), Integer), CType(CType(223, Byte), Integer)) + Me.PictureBox5.Location = New System.Drawing.Point(2, 9) + Me.PictureBox5.Name = "PictureBox5" + Me.PictureBox5.Size = New System.Drawing.Size(195, 120) + Me.PictureBox5.TabIndex = 37 + Me.PictureBox5.TabStop = False + ' + 'GroupBox3 + ' + Me.GroupBox3.BackColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer)) + Me.GroupBox3.Controls.Add(Me.Label14) + Me.GroupBox3.Controls.Add(Me.cmb_공조냉방생산) + Me.GroupBox3.Controls.Add(Me.cmb_공조난방생산) + Me.GroupBox3.Controls.Add(Me.cmb_공조가습생산) + Me.GroupBox3.Controls.Add(Label11) + Me.GroupBox3.Controls.Add(Label10) + Me.GroupBox3.Controls.Add(Label7) + Me.GroupBox3.Controls.Add(Me.PictureBox10) + Me.GroupBox3.Location = New System.Drawing.Point(372, 155) + Me.GroupBox3.Name = "GroupBox3" + Me.GroupBox3.Size = New System.Drawing.Size(196, 118) + Me.GroupBox3.TabIndex = 37 + Me.GroupBox3.TabStop = False + ' + 'Label14 + ' + Me.Label14.AutoSize = True + Me.Label14.BackColor = System.Drawing.Color.FromArgb(CType(CType(243, Byte), Integer), CType(CType(244, Byte), Integer), CType(CType(246, Byte), Integer)) + Me.Label14.Location = New System.Drawing.Point(7, 11) + Me.Label14.Name = "Label14" + Me.Label14.Size = New System.Drawing.Size(59, 14) + Me.Label14.TabIndex = 90 + Me.Label14.Text = "[공조처리]" + ' + 'cmb_공조냉방생산 + ' + Me.cmb_공조냉방생산.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList + Me.cmb_공조냉방생산.Font = New System.Drawing.Font("나눔고딕 ExtraBold", 8.999999!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.cmb_공조냉방생산.FormattingEnabled = True + Me.cmb_공조냉방생산.Location = New System.Drawing.Point(102, 55) + Me.cmb_공조냉방생산.Name = "cmb_공조냉방생산" + Me.cmb_공조냉방생산.NectControl = Nothing + Me.cmb_공조냉방생산.Size = New System.Drawing.Size(84, 22) + Me.cmb_공조냉방생산.TabIndex = 19 + ' + 'cmb_공조난방생산 + ' + Me.cmb_공조난방생산.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList + Me.cmb_공조난방생산.Font = New System.Drawing.Font("나눔고딕 ExtraBold", 8.999999!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.cmb_공조난방생산.FormattingEnabled = True + Me.cmb_공조난방생산.Location = New System.Drawing.Point(102, 29) + Me.cmb_공조난방생산.Name = "cmb_공조난방생산" + Me.cmb_공조난방생산.NectControl = Nothing + Me.cmb_공조난방생산.Size = New System.Drawing.Size(84, 22) + Me.cmb_공조난방생산.TabIndex = 18 + ' + 'cmb_공조가습생산 + ' + Me.cmb_공조가습생산.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList + Me.cmb_공조가습생산.Font = New System.Drawing.Font("나눔고딕 ExtraBold", 8.999999!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.cmb_공조가습생산.FormattingEnabled = True + Me.cmb_공조가습생산.Location = New System.Drawing.Point(102, 82) + Me.cmb_공조가습생산.Name = "cmb_공조가습생산" + Me.cmb_공조가습생산.NectControl = Nothing + Me.cmb_공조가습생산.Size = New System.Drawing.Size(84, 22) + Me.cmb_공조가습생산.TabIndex = 20 + ' + 'PictureBox10 + ' + Me.PictureBox10.BackColor = System.Drawing.Color.FromArgb(CType(CType(243, Byte), Integer), CType(CType(244, Byte), Integer), CType(CType(246, Byte), Integer)) + Me.PictureBox10.Location = New System.Drawing.Point(0, 9) + Me.PictureBox10.Name = "PictureBox10" + Me.PictureBox10.Size = New System.Drawing.Size(194, 106) + Me.PictureBox10.TabIndex = 37 + Me.PictureBox10.TabStop = False + ' + 'GroupBox2 + ' + Me.GroupBox2.BackColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer)) + Me.GroupBox2.Controls.Add(Label6) + Me.GroupBox2.Controls.Add(Me.Label13) + Me.GroupBox2.Controls.Add(Me.cmb_열생산지정1) + Me.GroupBox2.Controls.Add(Me.cmb_열생산지정3) + Me.GroupBox2.Controls.Add(Label8) + Me.GroupBox2.Controls.Add(Me.cmb_열생산급탕기기) + Me.GroupBox2.Controls.Add(Label9) + Me.GroupBox2.Controls.Add(Me.PictureBox9) + Me.GroupBox2.Location = New System.Drawing.Point(186, 155) + Me.GroupBox2.Name = "GroupBox2" + Me.GroupBox2.Size = New System.Drawing.Size(184, 118) + Me.GroupBox2.TabIndex = 37 + Me.GroupBox2.TabStop = False + ' + 'Label13 + ' + Me.Label13.AutoSize = True + Me.Label13.BackColor = System.Drawing.Color.FromArgb(CType(CType(243, Byte), Integer), CType(CType(244, Byte), Integer), CType(CType(246, Byte), Integer)) + Me.Label13.Location = New System.Drawing.Point(8, 11) + Me.Label13.Name = "Label13" + Me.Label13.Size = New System.Drawing.Size(48, 14) + Me.Label13.TabIndex = 90 + Me.Label13.Text = "[열생산]" + ' + 'cmb_열생산지정1 + ' + Me.cmb_열생산지정1.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList + Me.cmb_열생산지정1.Font = New System.Drawing.Font("나눔고딕 ExtraBold", 8.999999!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.cmb_열생산지정1.FormattingEnabled = True + Me.cmb_열생산지정1.Location = New System.Drawing.Point(96, 28) + Me.cmb_열생산지정1.Name = "cmb_열생산지정1" + Me.cmb_열생산지정1.NectControl = Nothing + Me.cmb_열생산지정1.Size = New System.Drawing.Size(84, 22) + Me.cmb_열생산지정1.TabIndex = 15 + ' + 'cmb_열생산지정3 + ' + Me.cmb_열생산지정3.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList + Me.cmb_열생산지정3.Font = New System.Drawing.Font("나눔고딕 ExtraBold", 8.999999!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.cmb_열생산지정3.FormattingEnabled = True + Me.cmb_열생산지정3.Location = New System.Drawing.Point(96, 82) + Me.cmb_열생산지정3.Name = "cmb_열생산지정3" + Me.cmb_열생산지정3.NectControl = Nothing + Me.cmb_열생산지정3.Size = New System.Drawing.Size(84, 22) + Me.cmb_열생산지정3.TabIndex = 17 + ' + 'cmb_열생산급탕기기 + ' + Me.cmb_열생산급탕기기.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList + Me.cmb_열생산급탕기기.Font = New System.Drawing.Font("나눔고딕 ExtraBold", 8.999999!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.cmb_열생산급탕기기.FormattingEnabled = True + Me.cmb_열생산급탕기기.Location = New System.Drawing.Point(96, 55) + Me.cmb_열생산급탕기기.Name = "cmb_열생산급탕기기" + Me.cmb_열생산급탕기기.NectControl = Nothing + Me.cmb_열생산급탕기기.Size = New System.Drawing.Size(84, 22) + Me.cmb_열생산급탕기기.TabIndex = 16 + ' + 'PictureBox9 + ' + Me.PictureBox9.BackColor = System.Drawing.Color.FromArgb(CType(CType(243, Byte), Integer), CType(CType(244, Byte), Integer), CType(CType(246, Byte), Integer)) + Me.PictureBox9.Location = New System.Drawing.Point(2, 9) + Me.PictureBox9.Name = "PictureBox9" + Me.PictureBox9.Size = New System.Drawing.Size(182, 106) + Me.PictureBox9.TabIndex = 37 + Me.PictureBox9.TabStop = False + ' + '난방공급시스템GroupBox + ' + Me.난방공급시스템GroupBox.BackColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer)) + Me.난방공급시스템GroupBox.Controls.Add(Me.Label12) + Me.난방공급시스템GroupBox.Controls.Add(Label3) + Me.난방공급시스템GroupBox.Controls.Add(Me.냉난방열공급시스템ComboBox) + Me.난방공급시스템GroupBox.Controls.Add(Me.냉난방공조처리시스템ComboBox) + Me.난방공급시스템GroupBox.Controls.Add(Label4) + Me.난방공급시스템GroupBox.Controls.Add(Me.냉난방열공급시스템수NTb) + Me.난방공급시스템GroupBox.Controls.Add(Label5) + Me.난방공급시스템GroupBox.Controls.Add(Me.PictureBox4) + Me.난방공급시스템GroupBox.Location = New System.Drawing.Point(7, 155) + Me.난방공급시스템GroupBox.Name = "난방공급시스템GroupBox" + Me.난방공급시스템GroupBox.Size = New System.Drawing.Size(178, 118) + Me.난방공급시스템GroupBox.TabIndex = 8 + Me.난방공급시스템GroupBox.TabStop = False + ' + 'Label12 + ' + Me.Label12.AutoSize = True + Me.Label12.BackColor = System.Drawing.Color.FromArgb(CType(CType(243, Byte), Integer), CType(CType(244, Byte), Integer), CType(CType(246, Byte), Integer)) + Me.Label12.Location = New System.Drawing.Point(12, 12) + Me.Label12.Name = "Label12" + Me.Label12.Size = New System.Drawing.Size(92, 14) + Me.Label12.TabIndex = 90 + Me.Label12.Text = "[난방공급시스템]" + ' + '냉난방공조처리시스템ComboBox + ' + Me.냉난방공조처리시스템ComboBox.DisplayMember = "code" + Me.냉난방공조처리시스템ComboBox.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList + Me.냉난방공조처리시스템ComboBox.Font = New System.Drawing.Font("나눔고딕 ExtraBold", 8.999999!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.냉난방공조처리시스템ComboBox.FormattingEnabled = True + Me.냉난방공조처리시스템ComboBox.Location = New System.Drawing.Point(96, 86) + Me.냉난방공조처리시스템ComboBox.Name = "냉난방공조처리시스템ComboBox" + Me.냉난방공조처리시스템ComboBox.NectControl = Me.cmb_열생산지정1 + Me.냉난방공조처리시스템ComboBox.Size = New System.Drawing.Size(74, 22) + Me.냉난방공조처리시스템ComboBox.TabIndex = 14 + Me.냉난방공조처리시스템ComboBox.ValueMember = "code" + ' + '냉난방열공급시스템수NTb + ' + Me.냉난방열공급시스템수NTb.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bs, "냉난방열공급시스템수", True)) + Me.냉난방열공급시스템수NTb.Font = New System.Drawing.Font("나눔고딕 ExtraBold", 8.999999!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.냉난방열공급시스템수NTb.Location = New System.Drawing.Point(96, 58) + Me.냉난방열공급시스템수NTb.Name = "냉난방열공급시스템수NTb" + Me.냉난방열공급시스템수NTb.NectControl = Nothing + Me.냉난방열공급시스템수NTb.Size = New System.Drawing.Size(74, 21) + Me.냉난방열공급시스템수NTb.TabIndex = 13 + Me.냉난방열공급시스템수NTb.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + ' + 'PictureBox4 + ' + Me.PictureBox4.BackColor = System.Drawing.Color.FromArgb(CType(CType(243, Byte), Integer), CType(CType(244, Byte), Integer), CType(CType(246, Byte), Integer)) + Me.PictureBox4.Location = New System.Drawing.Point(2, 9) + Me.PictureBox4.Name = "PictureBox4" + Me.PictureBox4.Size = New System.Drawing.Size(175, 106) + Me.PictureBox4.TabIndex = 37 + Me.PictureBox4.TabStop = False + ' + 'Frm_V20091231_Zone + ' + Me.AutoScaleDimensions = New System.Drawing.SizeF(7.0!, 14.0!) + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font + Me.AutoScroll = True + Me.AutoSize = True + Me.BackColor = System.Drawing.Color.White + Me.ClientSize = New System.Drawing.Size(795, 565) + Me.Controls.Add(Me.SplitContainer1) + Me.Font = New System.Drawing.Font("나눔고딕 ExtraBold", 8.999999!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.KeyPreview = True + Me.Name = "Frm_V20091231_Zone" + Me.ShowInTaskbar = False + Me.StartPosition = System.Windows.Forms.FormStartPosition.Manual + Me.Text = "입력존" + Me.Controls.SetChildIndex(Me.SplitContainer1, 0) + CType(Me.ErrProvider, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.bsmain, System.ComponentModel.ISupportInitialize).EndInit() + Me.SplitContainer1.Panel1.ResumeLayout(False) + Me.SplitContainer1.Panel2.ResumeLayout(False) + Me.SplitContainer1.Panel2.PerformLayout() + 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.ToolStrip1.ResumeLayout(False) + Me.ToolStrip1.PerformLayout() + CType(Me.PictureBox3, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).EndInit() + Me.GroupBox8.ResumeLayout(False) + Me.GroupBox8.PerformLayout() + CType(Me.PictureBox8, System.ComponentModel.ISupportInitialize).EndInit() + Me.GroupBox7.ResumeLayout(False) + Me.GroupBox7.PerformLayout() + CType(Me.PictureBox7, System.ComponentModel.ISupportInitialize).EndInit() + Me.GroupBox6.ResumeLayout(False) + Me.GroupBox6.PerformLayout() + CType(Me.PictureBox11, System.ComponentModel.ISupportInitialize).EndInit() + Me.GroupBox5.ResumeLayout(False) + Me.GroupBox5.PerformLayout() + CType(Me.PictureBox6, System.ComponentModel.ISupportInitialize).EndInit() + Me.GroupBox4.ResumeLayout(False) + Me.GroupBox4.PerformLayout() + CType(Me.PictureBox5, System.ComponentModel.ISupportInitialize).EndInit() + Me.GroupBox3.ResumeLayout(False) + Me.GroupBox3.PerformLayout() + CType(Me.PictureBox10, System.ComponentModel.ISupportInitialize).EndInit() + Me.GroupBox2.ResumeLayout(False) + Me.GroupBox2.PerformLayout() + CType(Me.PictureBox9, System.ComponentModel.ISupportInitialize).EndInit() + Me.난방공급시스템GroupBox.ResumeLayout(False) + Me.난방공급시스템GroupBox.PerformLayout() + CType(Me.PictureBox4, System.ComponentModel.ISupportInitialize).EndInit() + Me.ResumeLayout(False) + + End Sub + Friend WithEvents cmb_공조가습생산 As MyCmb + Friend WithEvents 면적NTb As MyTb + Friend WithEvents cmb_열생산지정3 As MyCmb + Friend WithEvents 천장고NTb As MyTb + Friend WithEvents cmb_열생산급탕기기 As MyCmb + Friend WithEvents 순실체적NTb As MyTb + Friend WithEvents cmb_열생산지정1 As MyCmb + Friend WithEvents 열저장능력ComboBox As MyCmb + Friend WithEvents 냉난방공조처리시스템ComboBox As MyCmb + Friend WithEvents 열교가산치ComboBox As MyCmb + Friend WithEvents 냉난방열공급시스템수NTb As MyTb + Friend WithEvents 침기율NTb As MyTb + Friend WithEvents 냉난방열공급시스템ComboBox As MyCmb + Friend WithEvents 냉난방공조ComboBox As MyCmb + Friend WithEvents 외기부하처리여부ComboBox As MyCmb + Friend WithEvents 주말운전방식ComboBox As MyCmb + Friend WithEvents 야간운전방식ComboBox As MyCmb + Friend WithEvents 조명부하산출방법ComboBox As MyCmb + Friend WithEvents 인공광원ComboBox As MyCmb + Friend WithEvents 조명방식ComboBox As MyCmb + Friend WithEvents tb_조명률 As MyTb + Friend WithEvents 조명기기효율NTb As MyTb + Friend WithEvents 보수율NTb As MyTb + Friend WithEvents 실너비NTb As MyTb + Friend WithEvents 실깊이NTb As MyTb + Friend WithEvents 작업면높이NTb1 As MyTb + Friend WithEvents 요구조도NTb1 As MyTb + Friend WithEvents bs As System.Windows.Forms.BindingSource + Public WithEvents DS As Eco2Ar.DS + Friend WithEvents cmb_profile As Eco2Ar.MyCmb + Friend WithEvents cmb_냉난방방식 As Eco2Ar.MyCmb + Friend WithEvents 천장고NTB1 As Eco2Ar.MyTb + Friend WithEvents SplitContainer1 As System.Windows.Forms.SplitContainer + Friend WithEvents dv As CEnergy.arindv + Friend WithEvents bn As System.Windows.Forms.BindingNavigator + Friend WithEvents bt_add As System.Windows.Forms.ToolStripButton + Friend WithEvents bt_Del As System.Windows.Forms.ToolStripButton + Friend WithEvents bt_cancel As System.Windows.Forms.ToolStripButton + Friend WithEvents ToolStripSeparator1 As System.Windows.Forms.ToolStripSeparator + Friend WithEvents 난방공급시스템GroupBox As System.Windows.Forms.GroupBox + Friend WithEvents GroupBox3 As System.Windows.Forms.GroupBox + Friend WithEvents GroupBox2 As System.Windows.Forms.GroupBox + Friend WithEvents ToolStripLabel1 As System.Windows.Forms.ToolStripLabel + Friend WithEvents lbl_pos As System.Windows.Forms.ToolStripLabel + Friend WithEvents GroupBox4 As System.Windows.Forms.GroupBox + Friend WithEvents GroupBox6 As System.Windows.Forms.GroupBox + Friend WithEvents GroupBox5 As System.Windows.Forms.GroupBox + Friend WithEvents 실지수NTb1 As Eco2Ar.MyTb + Friend WithEvents GroupBox8 As System.Windows.Forms.GroupBox + Friend WithEvents GroupBox7 As System.Windows.Forms.GroupBox + Friend WithEvents DataGridViewTextBoxColumn1 As System.Windows.Forms.DataGridViewTextBoxColumn + Friend WithEvents tb_조명계산치 As Eco2Ar.MyTb + Friend WithEvents tb_점등시간 As Eco2Ar.MyTb + Friend WithEvents tb_조명입력치 As Eco2Ar.MyTb + Friend WithEvents ToolTip1 As System.Windows.Forms.ToolTip + Friend WithEvents PictureBox1 As System.Windows.Forms.PictureBox + Friend WithEvents PictureBox3 As System.Windows.Forms.PictureBox + Friend WithEvents PictureBox4 As System.Windows.Forms.PictureBox + Friend WithEvents PictureBox5 As System.Windows.Forms.PictureBox + Friend WithEvents Label12 As System.Windows.Forms.Label + Friend WithEvents PictureBox6 As System.Windows.Forms.PictureBox + Friend WithEvents PictureBox8 As System.Windows.Forms.PictureBox + Friend WithEvents PictureBox7 As System.Windows.Forms.PictureBox + Friend WithEvents PictureBox10 As System.Windows.Forms.PictureBox + Friend WithEvents PictureBox9 As System.Windows.Forms.PictureBox + Friend WithEvents PictureBox11 As System.Windows.Forms.PictureBox + Friend WithEvents Label14 As System.Windows.Forms.Label + Friend WithEvents Label13 As System.Windows.Forms.Label + Friend WithEvents Label17 As System.Windows.Forms.Label + Friend WithEvents Label15 As System.Windows.Forms.Label + Friend WithEvents ToolStrip1 As System.Windows.Forms.ToolStrip + Friend WithEvents ToolStripLabel2 As System.Windows.Forms.ToolStripLabel + Friend WithEvents ToolStripLabel3 As System.Windows.Forms.ToolStripLabel + Friend WithEvents ToolStripLabel4 As System.Windows.Forms.ToolStripLabel + Friend WithEvents ToolStripLabel5 As System.Windows.Forms.ToolStripLabel + Friend WithEvents ToolStripLabel6 As System.Windows.Forms.ToolStripLabel + Friend WithEvents ToolStripLabel7 As System.Windows.Forms.ToolStripLabel + Friend WithEvents ToolStripLabel8 As System.Windows.Forms.ToolStripLabel + Friend WithEvents ToolStripLabel9 As System.Windows.Forms.ToolStripLabel + Friend WithEvents ToolStripLabel10 As System.Windows.Forms.ToolStripLabel + Friend WithEvents ToolStripLabel11 As System.Windows.Forms.ToolStripLabel + Friend WithEvents cmb_공조냉방생산 As Eco2Ar.MyCmb + Friend WithEvents cmb_공조난방생산 As Eco2Ar.MyCmb +End Class diff --git a/ArinWarev1/Forms/v20091231/Frm_v20091231_Zone.resx b/ArinWarev1/Forms/v20091231/Frm_v20091231_Zone.resx new file mode 100644 index 0000000..6b5c2a8 --- /dev/null +++ b/ArinWarev1/Forms/v20091231/Frm_v20091231_Zone.resx @@ -0,0 +1,441 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + 109, 17 + + + 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 + + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + 222, 17 + + + 286, 17 + + + 353, 17 + + + 519, 17 + + + + + /9j/4AAQSkZJRgABAgEASABIAAD/7gAOQWRvYmUAZAAAAAAB/+ED5kV4aWYAAE1NACoAAAAIAAcBEgAD + AAAAAQABAAABGgAFAAAAAQAAAGIBGwAFAAAAAQAAAGoBKAADAAAAAQACAAABMQACAAAAHAAAAHIBMgAC + AAAAFAAAAI6HaQAEAAAAAQAAAKIAAADCAEgAAAABAAAASAAAAAEAAEFkb2JlIFBob3Rvc2hvcCBDUzMg + V2luZG93cwAyMDEwOjA0OjE1IDIwOjMyOjA0AAACoAIABAAAAAEAAAA8oAMABAAAAAEAAAAMAAAAAAAA + AAYBAwADAAAAAQAGAAABGgAFAAAAAQAAARABGwAFAAAAAQAAARgBKAADAAAAAQACAAACAQAEAAAAAQAA + ASACAgAEAAAAAQAAAr4AAAAAAAAASAAAAAEAAABIAAAAAf/Y/+AAEEpGSUYAAQIAAEgASAAA/+0ADEFk + b2JlX0NNAAH/7gAOQWRvYmUAZIAAAAAB/9sAhAAMCAgICQgMCQkMEQsKCxEVDwwMDxUYExMVExMYEQwM + DAwMDBEMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMAQ0LCw0ODRAODhAUDg4OFBQODg4OFBEMDAwM + DBERDAwMDAwMEQwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAz/wAARCAAMADwDASIAAhEBAxEB/90A + BAAE/8QBPwAAAQUBAQEBAQEAAAAAAAAAAwABAgQFBgcICQoLAQABBQEBAQEBAQAAAAAAAAABAAIDBAUG + BwgJCgsQAAEEAQMCBAIFBwYIBQMMMwEAAhEDBCESMQVBUWETInGBMgYUkaGxQiMkFVLBYjM0coLRQwcl + klPw4fFjczUWorKDJkSTVGRFwqN0NhfSVeJl8rOEw9N14/NGJ5SkhbSVxNTk9KW1xdXl9VZmdoaWprbG + 1ub2N0dXZ3eHl6e3x9fn9xEAAgIBAgQEAwQFBgcHBgU1AQACEQMhMRIEQVFhcSITBTKBkRShsUIjwVLR + 8DMkYuFygpJDUxVjczTxJQYWorKDByY1wtJEk1SjF2RFVTZ0ZeLys4TD03Xj80aUpIW0lcTU5PSltcXV + 5fVWZnaGlqa2xtbm9ic3R1dnd4eXp7fH/9oADAMBAAIRAxEAPwDd/amR/pH/AOcf70v2pkf6R/8AnH+9 + UUlofq/Bpevxb37UyP8ASP8A84/3pftTI/0j/wDOP96opJfq/BXr8W9+1Mj/AEj/APOP96X7UyP9I/8A + zj/eqKSX6vwV6/F3ujdbuGS2i5xfU8HVxktIG76XyW99vo27p0XGdO2/ba930dZj+q5dX+qfZPL8VAeD + 341VVr/eZhx+0bu708n/2f/iDFhJQ0NfUFJPRklMRQABAQAADEhMaW5vAhAAAG1udHJSR0IgWFlaIAfO + AAIACQAGADEAAGFjc3BNU0ZUAAAAAElFQyBzUkdCAAAAAAAAAAAAAAAAAAD21gABAAAAANMtSFAgIAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAEWNwcnQAAAFQAAAAM2Rl + c2MAAAGEAAAAbHd0cHQAAAHwAAAAFGJrcHQAAAIEAAAAFHJYWVoAAAIYAAAAFGdYWVoAAAIsAAAAFGJY + WVoAAAJAAAAAFGRtbmQAAAJUAAAAcGRtZGQAAALEAAAAiHZ1ZWQAAANMAAAAhnZpZXcAAAPUAAAAJGx1 + bWkAAAP4AAAAFG1lYXMAAAQMAAAAJHRlY2gAAAQwAAAADHJUUkMAAAQ8AAAIDGdUUkMAAAQ8AAAIDGJU + UkMAAAQ8AAAIDHRleHQAAAAAQ29weXJpZ2h0IChjKSAxOTk4IEhld2xldHQtUGFja2FyZCBDb21wYW55 + AABkZXNjAAAAAAAAABJzUkdCIElFQzYxOTY2LTIuMQAAAAAAAAAAAAAAEnNSR0IgSUVDNjE5NjYtMi4x + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABYWVogAAAAAAAA + 81EAAQAAAAEWzFhZWiAAAAAAAAAAAAAAAAAAAAAAWFlaIAAAAAAAAG+iAAA49QAAA5BYWVogAAAAAAAA + YpkAALeFAAAY2lhZWiAAAAAAAAAkoAAAD4QAALbPZGVzYwAAAAAAAAAWSUVDIGh0dHA6Ly93d3cuaWVj + LmNoAAAAAAAAAAAAAAAWSUVDIGh0dHA6Ly93d3cuaWVjLmNoAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAGRlc2MAAAAAAAAALklFQyA2MTk2Ni0yLjEgRGVmYXVsdCBSR0Ig + Y29sb3VyIHNwYWNlIC0gc1JHQgAAAAAAAAAAAAAALklFQyA2MTk2Ni0yLjEgRGVmYXVsdCBSR0IgY29s + b3VyIHNwYWNlIC0gc1JHQgAAAAAAAAAAAAAAAAAAAAAAAAAAAABkZXNjAAAAAAAAACxSZWZlcmVuY2Ug + Vmlld2luZyBDb25kaXRpb24gaW4gSUVDNjE5NjYtMi4xAAAAAAAAAAAAAAAsUmVmZXJlbmNlIFZpZXdp + bmcgQ29uZGl0aW9uIGluIElFQzYxOTY2LTIuMQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAdmlldwAA + AAAAE6T+ABRfLgAQzxQAA+3MAAQTCwADXJ4AAAABWFlaIAAAAAAATAlWAFAAAABXH+dtZWFzAAAAAAAA + AAEAAAAAAAAAAAAAAAAAAAAAAAACjwAAAAJzaWcgAAAAAENSVCBjdXJ2AAAAAAAABAAAAAAFAAoADwAU + ABkAHgAjACgALQAyADcAOwBAAEUASgBPAFQAWQBeAGMAaABtAHIAdwB8AIEAhgCLAJAAlQCaAJ8ApACp + AK4AsgC3ALwAwQDGAMsA0ADVANsA4ADlAOsA8AD2APsBAQEHAQ0BEwEZAR8BJQErATIBOAE+AUUBTAFS + AVkBYAFnAW4BdQF8AYMBiwGSAZoBoQGpAbEBuQHBAckB0QHZAeEB6QHyAfoCAwIMAhQCHQImAi8COAJB + AksCVAJdAmcCcQJ6AoQCjgKYAqICrAK2AsECywLVAuAC6wL1AwADCwMWAyEDLQM4A0MDTwNaA2YDcgN+ + A4oDlgOiA64DugPHA9MD4APsA/kEBgQTBCAELQQ7BEgEVQRjBHEEfgSMBJoEqAS2BMQE0wThBPAE/gUN + BRwFKwU6BUkFWAVnBXcFhgWWBaYFtQXFBdUF5QX2BgYGFgYnBjcGSAZZBmoGewaMBp0GrwbABtEG4wb1 + BwcHGQcrBz0HTwdhB3QHhgeZB6wHvwfSB+UH+AgLCB8IMghGCFoIbgiCCJYIqgi+CNII5wj7CRAJJQk6 + CU8JZAl5CY8JpAm6Cc8J5Qn7ChEKJwo9ClQKagqBCpgKrgrFCtwK8wsLCyILOQtRC2kLgAuYC7ALyAvh + C/kMEgwqDEMMXAx1DI4MpwzADNkM8w0NDSYNQA1aDXQNjg2pDcMN3g34DhMOLg5JDmQOfw6bDrYO0g7u + DwkPJQ9BD14Peg+WD7MPzw/sEAkQJhBDEGEQfhCbELkQ1xD1ERMRMRFPEW0RjBGqEckR6BIHEiYSRRJk + EoQSoxLDEuMTAxMjE0MTYxODE6QTxRPlFAYUJxRJFGoUixStFM4U8BUSFTQVVhV4FZsVvRXgFgMWJhZJ + FmwWjxayFtYW+hcdF0EXZReJF64X0hf3GBsYQBhlGIoYrxjVGPoZIBlFGWsZkRm3Gd0aBBoqGlEadxqe + GsUa7BsUGzsbYxuKG7Ib2hwCHCocUhx7HKMczBz1HR4dRx1wHZkdwx3sHhYeQB5qHpQevh7pHxMfPh9p + H5Qfvx/qIBUgQSBsIJggxCDwIRwhSCF1IaEhziH7IiciVSKCIq8i3SMKIzgjZiOUI8Ij8CQfJE0kfCSr + JNolCSU4JWgllyXHJfcmJyZXJocmtyboJxgnSSd6J6sn3CgNKD8ocSiiKNQpBik4KWspnSnQKgIqNSpo + KpsqzysCKzYraSudK9EsBSw5LG4soizXLQwtQS12Last4S4WLkwugi63Lu4vJC9aL5Evxy/+MDUwbDCk + MNsxEjFKMYIxujHyMioyYzKbMtQzDTNGM38zuDPxNCs0ZTSeNNg1EzVNNYc1wjX9Njc2cjauNuk3JDdg + N5w31zgUOFA4jDjIOQU5Qjl/Obw5+To2OnQ6sjrvOy07azuqO+g8JzxlPKQ84z0iPWE9oT3gPiA+YD6g + PuA/IT9hP6I/4kAjQGRApkDnQSlBakGsQe5CMEJyQrVC90M6Q31DwEQDREdEikTORRJFVUWaRd5GIkZn + RqtG8Ec1R3tHwEgFSEtIkUjXSR1JY0mpSfBKN0p9SsRLDEtTS5pL4kwqTHJMuk0CTUpNk03cTiVObk63 + TwBPSU+TT91QJ1BxULtRBlFQUZtR5lIxUnxSx1MTU19TqlP2VEJUj1TbVShVdVXCVg9WXFapVvdXRFeS + V+BYL1h9WMtZGllpWbhaB1pWWqZa9VtFW5Vb5Vw1XIZc1l0nXXhdyV4aXmxevV8PX2Ffs2AFYFdgqmD8 + YU9homH1YklinGLwY0Njl2PrZEBklGTpZT1lkmXnZj1mkmboZz1nk2fpaD9olmjsaUNpmmnxakhqn2r3 + a09rp2v/bFdsr20IbWBtuW4SbmtuxG8eb3hv0XArcIZw4HE6cZVx8HJLcqZzAXNdc7h0FHRwdMx1KHWF + deF2Pnabdvh3VnezeBF4bnjMeSp5iXnnekZ6pXsEe2N7wnwhfIF84X1BfaF+AX5ifsJ/I3+Ef+WAR4Co + gQqBa4HNgjCCkoL0g1eDuoQdhICE44VHhauGDoZyhteHO4efiASIaYjOiTOJmYn+imSKyoswi5aL/Ixj + jMqNMY2Yjf+OZo7OjzaPnpAGkG6Q1pE/kaiSEZJ6kuOTTZO2lCCUipT0lV+VyZY0lp+XCpd1l+CYTJi4 + mSSZkJn8mmia1ZtCm6+cHJyJnPedZJ3SnkCerp8dn4uf+qBpoNihR6G2oiailqMGo3aj5qRWpMelOKWp + phqmi6b9p26n4KhSqMSpN6mpqhyqj6sCq3Wr6axcrNCtRK24ri2uoa8Wr4uwALB1sOqxYLHWskuywrM4 + s660JbSctRO1irYBtnm28Ldot+C4WbjRuUq5wro7urW7LrunvCG8m70VvY++Cr6Evv+/er/1wHDA7MFn + wePCX8Lbw1jD1MRRxM7FS8XIxkbGw8dBx7/IPci8yTrJuco4yrfLNsu2zDXMtc01zbXONs62zzfPuNA5 + 0LrRPNG+0j/SwdNE08bUSdTL1U7V0dZV1tjXXNfg2GTY6Nls2fHadtr724DcBdyK3RDdlt4c3qLfKd+v + 4DbgveFE4cziU+Lb42Pj6+Rz5PzlhOYN5pbnH+ep6DLovOlG6dDqW+rl63Dr++yG7RHtnO4o7rTvQO/M + 8Fjw5fFy8f/yjPMZ86f0NPTC9VD13vZt9vv3ivgZ+Kj5OPnH+lf65/t3/Af8mP0p/br+S/7c/23////b + AEMAAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQICAgICAgICAgICAwMD + AwMDAwMDA//bAEMBAQEBAQEBAQEBAQICAQICAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMD + AwMDAwMDAwMDAwMDAwMDA//AABEIAAwAPAMBEQACEQEDEQH/xAAfAAABBQEBAQEBAQAAAAAAAAAAAQID + BAUGBwgJCgv/xAC1EAACAQMDAgQDBQUEBAAAAX0BAgMABBEFEiExQQYTUWEHInEUMoGRoQgjQrHBFVLR + 8CQzYnKCCQoWFxgZGiUmJygpKjQ1Njc4OTpDREVGR0hJSlNUVVZXWFlaY2RlZmdoaWpzdHV2d3h5eoOE + hYaHiImKkpOUlZaXmJmaoqOkpaanqKmqsrO0tba3uLm6wsPExcbHyMnK0tPU1dbX2Nna4eLj5OXm5+jp + 6vHy8/T19vf4+fr/xAAfAQADAQEBAQEBAQEBAAAAAAAAAQIDBAUGBwgJCgv/xAC1EQACAQIEBAMEBwUE + BAABAncAAQIDEQQFITEGEkFRB2FxEyIygQgUQpGhscEJIzNS8BVictEKFiQ04SXxFxgZGiYnKCkqNTY3 + ODk6Q0RFRkdISUpTVFVWV1hZWmNkZWZnaGlqc3R1dnd4eXqCg4SFhoeIiYqSk5SVlpeYmZqio6Slpqeo + qaqys7S1tre4ubrCw8TFxsfIycrS09TV1tfY2dri4+Tl5ufo6ery8/T19vf4+fr/2gAMAwEAAhEDEQA/ + AP1ZH7UPxEAA/wCEw8bnj/ob9f8A/k+v7U/1Nyj/AKF+G/8ABUP/AJE/llcSZlZf7dX/APBk/wDMX/hq + H4if9Df43/8ACv1//wCT6P8AU3Kf+hfhv/BUP/kQ/wBZcy/6Dq//AIMn/mH/AA1D8RP+hv8AG/8A4V+v + /wDyfR/qblP/AEL8N/4Kh/8AIh/rLmX/AEHV/wDwZP8AzD/hqH4if9Df43/8K/X/AP5Po/1Nyn/oX4b/ + AMFQ/wDkQ/1lzL/oOr/+DJ/5h/w1D8RP+hv8b/8AhX6//wDJ9H+puU/9C/Df+Cof/Ih/rLmX/QdX/wDB + k/8AMT/hqH4if9Df43/8K/X/AP5Po/1Nyn/oX4b/AMFQ/wDkQ/1kzL/oOr/+DJ/5n2R+xz+234zt/iRp + nw+8a6vqXiDwZ4gs9baObXr+bUr/AMPajpmkX2tQ3FlqV2Zb57K7XT2t3tXkaJWkV4whVxJ+beJfAuU4 + Th/FZ/hKEKOMw8qd+SKjGcZzjTs4q0bpyUlJK7s073VvuuBOLMxxGcYfJ8TWlVw1ZTtzu7hKMJTupPWz + UWnFu2qatrf9aP8AhfXgv+zv7U89/sfm+V5207N+M43fSv50P2w/kwr/AEFP42CgAoAKACgAoA9s/Z0/ + s7/hcng3+1vP/s7Ov/avs2PP2f8ACL63t2buP9ZjP+zmvz7xU/5IPPf+4H/qRRPsvD//AJK7KP8AuL/6 + ZqH7/wD/ABaT/hUfb7Ht/wBj7V9p8v8A9Cr+Oz+lz//Z + + + + + /9j/4AAQSkZJRgABAgEASABIAAD/7gAOQWRvYmUAZAAAAAAB/+ED5kV4aWYAAE1NACoAAAAIAAcBEgAD + AAAAAQABAAABGgAFAAAAAQAAAGIBGwAFAAAAAQAAAGoBKAADAAAAAQACAAABMQACAAAAHAAAAHIBMgAC + AAAAFAAAAI6HaQAEAAAAAQAAAKIAAADCAEgAAAABAAAASAAAAAEAAEFkb2JlIFBob3Rvc2hvcCBDUzMg + V2luZG93cwAyMDEwOjA0OjE1IDIwOjMyOjA0AAACoAIABAAAAAEAAAA8oAMABAAAAAEAAAAMAAAAAAAA + AAYBAwADAAAAAQAGAAABGgAFAAAAAQAAARABGwAFAAAAAQAAARgBKAADAAAAAQACAAACAQAEAAAAAQAA + ASACAgAEAAAAAQAAAr4AAAAAAAAASAAAAAEAAABIAAAAAf/Y/+AAEEpGSUYAAQIAAEgASAAA/+0ADEFk + b2JlX0NNAAH/7gAOQWRvYmUAZIAAAAAB/9sAhAAMCAgICQgMCQkMEQsKCxEVDwwMDxUYExMVExMYEQwM + DAwMDBEMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMAQ0LCw0ODRAODhAUDg4OFBQODg4OFBEMDAwM + DBERDAwMDAwMEQwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAz/wAARCAAMADwDASIAAhEBAxEB/90A + BAAE/8QBPwAAAQUBAQEBAQEAAAAAAAAAAwABAgQFBgcICQoLAQABBQEBAQEBAQAAAAAAAAABAAIDBAUG + BwgJCgsQAAEEAQMCBAIFBwYIBQMMMwEAAhEDBCESMQVBUWETInGBMgYUkaGxQiMkFVLBYjM0coLRQwcl + klPw4fFjczUWorKDJkSTVGRFwqN0NhfSVeJl8rOEw9N14/NGJ5SkhbSVxNTk9KW1xdXl9VZmdoaWprbG + 1ub2N0dXZ3eHl6e3x9fn9xEAAgIBAgQEAwQFBgcHBgU1AQACEQMhMRIEQVFhcSITBTKBkRShsUIjwVLR + 8DMkYuFygpJDUxVjczTxJQYWorKDByY1wtJEk1SjF2RFVTZ0ZeLys4TD03Xj80aUpIW0lcTU5PSltcXV + 5fVWZnaGlqa2xtbm9ic3R1dnd4eXp7fH/9oADAMBAAIRAxEAPwDd/amR/pH/AOcf70v2pkf6R/8AnH+9 + UUlofq/Bpevxb37UyP8ASP8A84/3pftTI/0j/wDOP96opJfq/BXr8W9+1Mj/AEj/APOP96X7UyP9I/8A + zj/eqKSX6vwV6/F3ujdbuGS2i5xfU8HVxktIG76XyW99vo27p0XGdO2/ba930dZj+q5dX+qfZPL8VAeD + 341VVr/eZhx+0bu708n/2f/iDFhJQ0NfUFJPRklMRQABAQAADEhMaW5vAhAAAG1udHJSR0IgWFlaIAfO + AAIACQAGADEAAGFjc3BNU0ZUAAAAAElFQyBzUkdCAAAAAAAAAAAAAAAAAAD21gABAAAAANMtSFAgIAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAEWNwcnQAAAFQAAAAM2Rl + c2MAAAGEAAAAbHd0cHQAAAHwAAAAFGJrcHQAAAIEAAAAFHJYWVoAAAIYAAAAFGdYWVoAAAIsAAAAFGJY + WVoAAAJAAAAAFGRtbmQAAAJUAAAAcGRtZGQAAALEAAAAiHZ1ZWQAAANMAAAAhnZpZXcAAAPUAAAAJGx1 + bWkAAAP4AAAAFG1lYXMAAAQMAAAAJHRlY2gAAAQwAAAADHJUUkMAAAQ8AAAIDGdUUkMAAAQ8AAAIDGJU + UkMAAAQ8AAAIDHRleHQAAAAAQ29weXJpZ2h0IChjKSAxOTk4IEhld2xldHQtUGFja2FyZCBDb21wYW55 + AABkZXNjAAAAAAAAABJzUkdCIElFQzYxOTY2LTIuMQAAAAAAAAAAAAAAEnNSR0IgSUVDNjE5NjYtMi4x + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABYWVogAAAAAAAA + 81EAAQAAAAEWzFhZWiAAAAAAAAAAAAAAAAAAAAAAWFlaIAAAAAAAAG+iAAA49QAAA5BYWVogAAAAAAAA + YpkAALeFAAAY2lhZWiAAAAAAAAAkoAAAD4QAALbPZGVzYwAAAAAAAAAWSUVDIGh0dHA6Ly93d3cuaWVj + LmNoAAAAAAAAAAAAAAAWSUVDIGh0dHA6Ly93d3cuaWVjLmNoAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAGRlc2MAAAAAAAAALklFQyA2MTk2Ni0yLjEgRGVmYXVsdCBSR0Ig + Y29sb3VyIHNwYWNlIC0gc1JHQgAAAAAAAAAAAAAALklFQyA2MTk2Ni0yLjEgRGVmYXVsdCBSR0IgY29s + b3VyIHNwYWNlIC0gc1JHQgAAAAAAAAAAAAAAAAAAAAAAAAAAAABkZXNjAAAAAAAAACxSZWZlcmVuY2Ug + Vmlld2luZyBDb25kaXRpb24gaW4gSUVDNjE5NjYtMi4xAAAAAAAAAAAAAAAsUmVmZXJlbmNlIFZpZXdp + bmcgQ29uZGl0aW9uIGluIElFQzYxOTY2LTIuMQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAdmlldwAA + AAAAE6T+ABRfLgAQzxQAA+3MAAQTCwADXJ4AAAABWFlaIAAAAAAATAlWAFAAAABXH+dtZWFzAAAAAAAA + AAEAAAAAAAAAAAAAAAAAAAAAAAACjwAAAAJzaWcgAAAAAENSVCBjdXJ2AAAAAAAABAAAAAAFAAoADwAU + ABkAHgAjACgALQAyADcAOwBAAEUASgBPAFQAWQBeAGMAaABtAHIAdwB8AIEAhgCLAJAAlQCaAJ8ApACp + AK4AsgC3ALwAwQDGAMsA0ADVANsA4ADlAOsA8AD2APsBAQEHAQ0BEwEZAR8BJQErATIBOAE+AUUBTAFS + AVkBYAFnAW4BdQF8AYMBiwGSAZoBoQGpAbEBuQHBAckB0QHZAeEB6QHyAfoCAwIMAhQCHQImAi8COAJB + AksCVAJdAmcCcQJ6AoQCjgKYAqICrAK2AsECywLVAuAC6wL1AwADCwMWAyEDLQM4A0MDTwNaA2YDcgN+ + A4oDlgOiA64DugPHA9MD4APsA/kEBgQTBCAELQQ7BEgEVQRjBHEEfgSMBJoEqAS2BMQE0wThBPAE/gUN + BRwFKwU6BUkFWAVnBXcFhgWWBaYFtQXFBdUF5QX2BgYGFgYnBjcGSAZZBmoGewaMBp0GrwbABtEG4wb1 + BwcHGQcrBz0HTwdhB3QHhgeZB6wHvwfSB+UH+AgLCB8IMghGCFoIbgiCCJYIqgi+CNII5wj7CRAJJQk6 + CU8JZAl5CY8JpAm6Cc8J5Qn7ChEKJwo9ClQKagqBCpgKrgrFCtwK8wsLCyILOQtRC2kLgAuYC7ALyAvh + C/kMEgwqDEMMXAx1DI4MpwzADNkM8w0NDSYNQA1aDXQNjg2pDcMN3g34DhMOLg5JDmQOfw6bDrYO0g7u + DwkPJQ9BD14Peg+WD7MPzw/sEAkQJhBDEGEQfhCbELkQ1xD1ERMRMRFPEW0RjBGqEckR6BIHEiYSRRJk + EoQSoxLDEuMTAxMjE0MTYxODE6QTxRPlFAYUJxRJFGoUixStFM4U8BUSFTQVVhV4FZsVvRXgFgMWJhZJ + FmwWjxayFtYW+hcdF0EXZReJF64X0hf3GBsYQBhlGIoYrxjVGPoZIBlFGWsZkRm3Gd0aBBoqGlEadxqe + GsUa7BsUGzsbYxuKG7Ib2hwCHCocUhx7HKMczBz1HR4dRx1wHZkdwx3sHhYeQB5qHpQevh7pHxMfPh9p + H5Qfvx/qIBUgQSBsIJggxCDwIRwhSCF1IaEhziH7IiciVSKCIq8i3SMKIzgjZiOUI8Ij8CQfJE0kfCSr + JNolCSU4JWgllyXHJfcmJyZXJocmtyboJxgnSSd6J6sn3CgNKD8ocSiiKNQpBik4KWspnSnQKgIqNSpo + KpsqzysCKzYraSudK9EsBSw5LG4soizXLQwtQS12Last4S4WLkwugi63Lu4vJC9aL5Evxy/+MDUwbDCk + MNsxEjFKMYIxujHyMioyYzKbMtQzDTNGM38zuDPxNCs0ZTSeNNg1EzVNNYc1wjX9Njc2cjauNuk3JDdg + N5w31zgUOFA4jDjIOQU5Qjl/Obw5+To2OnQ6sjrvOy07azuqO+g8JzxlPKQ84z0iPWE9oT3gPiA+YD6g + PuA/IT9hP6I/4kAjQGRApkDnQSlBakGsQe5CMEJyQrVC90M6Q31DwEQDREdEikTORRJFVUWaRd5GIkZn + RqtG8Ec1R3tHwEgFSEtIkUjXSR1JY0mpSfBKN0p9SsRLDEtTS5pL4kwqTHJMuk0CTUpNk03cTiVObk63 + TwBPSU+TT91QJ1BxULtRBlFQUZtR5lIxUnxSx1MTU19TqlP2VEJUj1TbVShVdVXCVg9WXFapVvdXRFeS + V+BYL1h9WMtZGllpWbhaB1pWWqZa9VtFW5Vb5Vw1XIZc1l0nXXhdyV4aXmxevV8PX2Ffs2AFYFdgqmD8 + YU9homH1YklinGLwY0Njl2PrZEBklGTpZT1lkmXnZj1mkmboZz1nk2fpaD9olmjsaUNpmmnxakhqn2r3 + a09rp2v/bFdsr20IbWBtuW4SbmtuxG8eb3hv0XArcIZw4HE6cZVx8HJLcqZzAXNdc7h0FHRwdMx1KHWF + deF2Pnabdvh3VnezeBF4bnjMeSp5iXnnekZ6pXsEe2N7wnwhfIF84X1BfaF+AX5ifsJ/I3+Ef+WAR4Co + gQqBa4HNgjCCkoL0g1eDuoQdhICE44VHhauGDoZyhteHO4efiASIaYjOiTOJmYn+imSKyoswi5aL/Ixj + jMqNMY2Yjf+OZo7OjzaPnpAGkG6Q1pE/kaiSEZJ6kuOTTZO2lCCUipT0lV+VyZY0lp+XCpd1l+CYTJi4 + mSSZkJn8mmia1ZtCm6+cHJyJnPedZJ3SnkCerp8dn4uf+qBpoNihR6G2oiailqMGo3aj5qRWpMelOKWp + phqmi6b9p26n4KhSqMSpN6mpqhyqj6sCq3Wr6axcrNCtRK24ri2uoa8Wr4uwALB1sOqxYLHWskuywrM4 + s660JbSctRO1irYBtnm28Ldot+C4WbjRuUq5wro7urW7LrunvCG8m70VvY++Cr6Evv+/er/1wHDA7MFn + wePCX8Lbw1jD1MRRxM7FS8XIxkbGw8dBx7/IPci8yTrJuco4yrfLNsu2zDXMtc01zbXONs62zzfPuNA5 + 0LrRPNG+0j/SwdNE08bUSdTL1U7V0dZV1tjXXNfg2GTY6Nls2fHadtr724DcBdyK3RDdlt4c3qLfKd+v + 4DbgveFE4cziU+Lb42Pj6+Rz5PzlhOYN5pbnH+ep6DLovOlG6dDqW+rl63Dr++yG7RHtnO4o7rTvQO/M + 8Fjw5fFy8f/yjPMZ86f0NPTC9VD13vZt9vv3ivgZ+Kj5OPnH+lf65/t3/Af8mP0p/br+S/7c/23////b + AEMAAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQICAgICAgICAgICAwMD + AwMDAwMDA//bAEMBAQEBAQEBAQEBAQICAQICAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMD + AwMDAwMDAwMDAwMDAwMDA//AABEIAAwAPAMBEQACEQEDEQH/xAAfAAABBQEBAQEBAQAAAAAAAAAAAQID + BAUGBwgJCgv/xAC1EAACAQMDAgQDBQUEBAAAAX0BAgMABBEFEiExQQYTUWEHInEUMoGRoQgjQrHBFVLR + 8CQzYnKCCQoWFxgZGiUmJygpKjQ1Njc4OTpDREVGR0hJSlNUVVZXWFlaY2RlZmdoaWpzdHV2d3h5eoOE + hYaHiImKkpOUlZaXmJmaoqOkpaanqKmqsrO0tba3uLm6wsPExcbHyMnK0tPU1dbX2Nna4eLj5OXm5+jp + 6vHy8/T19vf4+fr/xAAfAQADAQEBAQEBAQEBAAAAAAAAAQIDBAUGBwgJCgv/xAC1EQACAQIEBAMEBwUE + BAABAncAAQIDEQQFITEGEkFRB2FxEyIygQgUQpGhscEJIzNS8BVictEKFiQ04SXxFxgZGiYnKCkqNTY3 + ODk6Q0RFRkdISUpTVFVWV1hZWmNkZWZnaGlqc3R1dnd4eXqCg4SFhoeIiYqSk5SVlpeYmZqio6Slpqeo + qaqys7S1tre4ubrCw8TFxsfIycrS09TV1tfY2dri4+Tl5ufo6ery8/T19vf4+fr/2gAMAwEAAhEDEQA/ + AP1ZH7UPxEAA/wCEw8bnj/ob9f8A/k+v7U/1Nyj/AKF+G/8ABUP/AJE/llcSZlZf7dX/APBk/wDMX/hq + H4if9Df43/8ACv1//wCT6P8AU3Kf+hfhv/BUP/kQ/wBZcy/6Dq//AIMn/mH/AA1D8RP+hv8AG/8A4V+v + /wDyfR/qblP/AEL8N/4Kh/8AIh/rLmX/AEHV/wDwZP8AzD/hqH4if9Df43/8K/X/AP5Po/1Nyn/oX4b/ + AMFQ/wDkQ/1lzL/oOr/+DJ/5h/w1D8RP+hv8b/8AhX6//wDJ9H+puU/9C/Df+Cof/Ih/rLmX/QdX/wDB + k/8AMT/hqH4if9Df43/8K/X/AP5Po/1Nyn/oX4b/AMFQ/wDkQ/1kzL/oOr/+DJ/5n2R+xz+234zt/iRp + nw+8a6vqXiDwZ4gs9baObXr+bUr/AMPajpmkX2tQ3FlqV2Zb57K7XT2t3tXkaJWkV4whVxJ+beJfAuU4 + Th/FZ/hKEKOMw8qd+SKjGcZzjTs4q0bpyUlJK7s073VvuuBOLMxxGcYfJ8TWlVw1ZTtzu7hKMJTupPWz + UWnFu2qatrf9aP8AhfXgv+zv7U89/sfm+V5207N+M43fSv50P2w/kwr/AEFP42CgAoAKACgAoA9s/Z0/ + s7/hcng3+1vP/s7Ov/avs2PP2f8ACL63t2buP9ZjP+zmvz7xU/5IPPf+4H/qRRPsvD//AJK7KP8AuL/6 + ZqH7/wD/ABaT/hUfb7Ht/wBj7V9p8v8A9Cr+Oz+lz//Z + + + + 419, 17 + + + 62 + + \ No newline at end of file diff --git a/ArinWarev1/Forms/v20091231/Frm_v20091231_Zone.vb b/ArinWarev1/Forms/v20091231/Frm_v20091231_Zone.vb new file mode 100644 index 0000000..34250a1 --- /dev/null +++ b/ArinWarev1/Forms/v20091231/Frm_v20091231_Zone.vb @@ -0,0 +1,1176 @@ +Public Class Frm_V20091231_Zone + Dim Dt As DataTable + Dim isCopy As Boolean = False + Dim Init As Boolean = False '//validate가 true일경우에만 동작하도록한다. 프로그램초기화중에는 작동하지않도록 + Dim SrcDrv As DataRowView + + Private Sub MdiMain_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load + Me.Init = False + MdiMain.Toggle_Menu_Color(MdiMain.E_MenuIdx.입력존) + '//공유데이터셋에 연결한다. + Dt = DSET.tbl_zone + Me.bs.DataSource = DSET + + '//Zone + AddHandler DSET.tbl_zone.TableNewRow, AddressOf AddNewDataRow_Zone + AddHandler DSET.tbl_zone.ColumnChanged, AddressOf AddNewDataRow_Zone_Changed + + '//모든컨트롤의 cTrl_enter 를 추가합니다 + BindProperty(CType(Me.SplitContainer1.Panel2.Controls, Control.ControlCollection)) + + '//콤보컨트롤 바인딩 + Binding_Zone() + Me.bsmain = Me.bs + + + Try + Me.bsmain.Position = CEnergy.ARINCLASS.Read_LastPos_Frm(Me) + Catch ex As Exception + Me.bsmain.MoveFirst() + End Try + Me.Init = True + bs_CurrentChanged(sender, e) + Validate_Control() + ZONE_Control() + + End Sub + Private Sub MdiMain_FormClosed(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosedEventArgs) Handles Me.FormClosed + CEnergy.ARINCLASS.SaveLoad_FrmSetting(Me, Me.bsmain.Position, True) + End Sub + +#Region "Control_Enter" + Private Sub BindProperty(ByVal Ctl As Control.ControlCollection) + For Each C As Control In Ctl + If C.Controls.Count > 1 Then + BindProperty(C.Controls) + Else + If C.GetType.ToString.ToUpper.IndexOf("MYTB") <> -1 Then + AddHandler CType(C, MyTb).KeyDown, AddressOf TextBOx_KeyDown + ElseIf C.GetType.ToString.ToUpper.IndexOf("MYCMB") <> -1 Then + AddHandler CType(C, MyCmb).KeyDown, AddressOf Cmd_KeyDown + AddHandler CType(C, MyCmb).MouseHover, AddressOf ComboBox_MouseHover + End If + End If + Next + End Sub + + + Private Sub TextBOx_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) + If e.KeyCode = Keys.Enter AndAlso e.Control Then + Try + Dim Field As String = (CType(sender, MyTb).DataBindings.Item("text").BindingMemberInfo.BindingField) + For Each Dr As DataRow In Dt.Select(Me.bs.Filter, "") + Dr(Field) = CType(sender, MyTb).Text + Next + Work_msg_timer("모든값이 변경되었습니다", 25) + Catch ex As Exception + + End Try + + End If + End Sub + Private Sub Cmd_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) + If e.KeyCode = Keys.Enter AndAlso e.Control Then + Try + Dim Field As String = (CType(sender, MyCmb).DataBindings.Item("selectedvalue").BindingMemberInfo.BindingField) + For Each Dr As DataRow In Dt.Select(Me.bs.Filter, "") 'Dt.rows + Dr(Field) = CType(sender, MyCmb).SelectedValue + Next + Work_msg_timer("모든값이 변경되었습니다", 25) + Catch ex As Exception + + End Try + End If + End Sub + + Private Sub ComboBox_MouseHover(ByVal sender As Object, ByVal e As System.EventArgs) + '//공백의 경우 에러가 나서 우선 막아둠. + Try + Me.ToolTip1.SetToolTip(CType(sender, ComboBox), CType(sender, ComboBox).DataBindings("selectedvalue").BindingMemberInfo.BindingMember & vbCrLf & CType(sender, ComboBox).SelectedValue.ToString) + Catch ex As Exception + + End Try + + End Sub + + +#End Region + +#Region "ComboxBox Binding" + Private Sub MdiMain_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown + Select Case e.KeyCode + Case Keys.F12 + End Select + End Sub + Private Sub Cmb_DeleteVal(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) + If e.KeyCode = Keys.Delete Then + CType(sender, ComboBox).SelectedValue = "" + End If + End Sub + Private Sub Binding_Zone() + Dim bs_cmb_profile As New BindingSource(DSET, "tbl_profile") + bs_cmb_profile.Sort = "code" + cmb_profile.DataSource = bs_cmb_profile + cmb_profile.DisplayMember = "설명" + cmb_profile.ValueMember = "code" + Me.cmb_profile.DataBindings.Add("selectedvalue", Me.bs, "프로필") + 'AddHandler cmb_profile.KeyDown, AddressOf Cmb_DeleteVal + + Dim bs_cmb_kongkub As New BindingSource(DSET, "tbl_kongkub") + bs_cmb_kongkub.Sort = "code" + 냉난방열공급시스템ComboBox.DataSource = bs_cmb_kongkub + 냉난방열공급시스템ComboBox.DisplayMember = "설명" + 냉난방열공급시스템ComboBox.ValueMember = "code" + Me.냉난방열공급시스템ComboBox.DataBindings.Add("selectedvalue", Me.bs, "냉난방열공급시스템") + 'AddHandler 냉난방열공급시스템ComboBox.KeyDown, AddressOf Cmb_DeleteVal + + Dim bs_cmb_열저장능력 As New BindingSource(DSET, "tbl_common") + bs_cmb_열저장능력.Filter = "gubun='1023'" + bs_cmb_열저장능력.Sort = "code" + 열저장능력ComboBox.DataSource = bs_cmb_열저장능력 + 열저장능력ComboBox.DisplayMember = "name" + 열저장능력ComboBox.ValueMember = "name" + Me.열저장능력ComboBox.DataBindings.Add("selectedvalue", Me.bs, "열저장능력") + 'AddHandler 열저장능력ComboBox.KeyDown, AddressOf Cmb_DeleteVal + + Dim bs_cmb_열교가산치 As New BindingSource(DSET, "tbl_common") + bs_cmb_열교가산치.Filter = "gubun='1022'" + bs_cmb_열교가산치.Sort = "code" + 열교가산치ComboBox.DataSource = bs_cmb_열교가산치 + 열교가산치ComboBox.DisplayMember = "name" + 열교가산치ComboBox.ValueMember = "name" + Me.열교가산치ComboBox.DataBindings.Add("selectedvalue", Me.bs, "열교가산치") + 'AddHandler 열교가산치ComboBox.KeyDown, AddressOf Cmb_DeleteVal + + Dim bs_cmb_주말운전방식 As New BindingSource(DSET, "tbl_common") + bs_cmb_주말운전방식.Filter = "gubun='1002'" + bs_cmb_주말운전방식.Sort = "code" + 주말운전방식ComboBox.DataSource = bs_cmb_주말운전방식 + 주말운전방식ComboBox.DisplayMember = "name" + 주말운전방식ComboBox.ValueMember = "name" + Me.주말운전방식ComboBox.DataBindings.Add("selectedvalue", Me.bs, "주말운전방식") + 'AddHandler 주말운전방식ComboBox.KeyDown, AddressOf Cmb_DeleteVal + + Dim bs_cmb_야간운전방식 As New BindingSource(DSET, "tbl_common") + bs_cmb_야간운전방식.Filter = "gubun='1002'" + bs_cmb_야간운전방식.Sort = "code" + 야간운전방식ComboBox.DataSource = bs_cmb_야간운전방식 + 야간운전방식ComboBox.DisplayMember = "name" + 야간운전방식ComboBox.ValueMember = "name" + Me.야간운전방식ComboBox.DataBindings.Add("selectedvalue", Me.bs, "야간운전방식") + 'AddHandler 야간운전방식ComboBox.KeyDown, AddressOf Cmb_DeleteVal + + Dim bs_cmb_외기처리여부 As New BindingSource(DSET, "tbl_common") + bs_cmb_외기처리여부.Filter = "gubun='1054'" + bs_cmb_외기처리여부.Sort = "code" + 외기부하처리여부ComboBox.DataSource = bs_cmb_외기처리여부 + 외기부하처리여부ComboBox.DisplayMember = "name" + 외기부하처리여부ComboBox.ValueMember = "name" + Me.외기부하처리여부ComboBox.DataBindings.Add("selectedvalue", Me.bs, "외기부하처리여부") + 'AddHandler 외기부하처리여부ComboBox.KeyDown, AddressOf Cmb_DeleteVal + + Dim bs_cmb_냉난방공조 As New BindingSource(DSET, "tbl_common") + bs_cmb_냉난방공조.Filter = "gubun='1001'" + bs_cmb_냉난방공조.Sort = "code" + 냉난방공조ComboBox.DataSource = bs_cmb_냉난방공조 + 냉난방공조ComboBox.DisplayMember = "name" + 냉난방공조ComboBox.ValueMember = "name" + Me.냉난방공조ComboBox.DataBindings.Add("selectedvalue", Me.bs, "냉난방공조") + 'AddHandler 냉난방공조ComboBox.KeyDown, AddressOf Cmb_DeleteVal + + Dim bs_cmb_냉난방방식 As New BindingSource(DSET, "tbl_common") + bs_cmb_냉난방방식.Filter = "gubun='1000'" + bs_cmb_냉난방방식.Sort = "code" + cmb_냉난방방식.DataSource = bs_cmb_냉난방방식 + cmb_냉난방방식.DisplayMember = "name" + cmb_냉난방방식.ValueMember = "name" + Me.cmb_냉난방방식.DataBindings.Add("selectedvalue", Me.bs, "냉난방방식") + 'AddHandler cmb_냉난방방식.KeyDown, AddressOf Cmb_DeleteVal + + + Dim bs_cmb_공조처리 As New BindingSource(DSET, "tbl_kongjo") + bs_cmb_공조처리.Sort = "code" + 냉난방공조처리시스템ComboBox.DataSource = bs_cmb_공조처리 + 냉난방공조처리시스템ComboBox.DisplayMember = "설명" + 냉난방공조처리시스템ComboBox.ValueMember = "code" + Me.냉난방공조처리시스템ComboBox.DataBindings.Add("selectedvalue", Me.bs, "냉난방공조처리시스템") + + + 'AddHandler 냉난방공조처리시스템ComboBox.KeyDown, AddressOf Cmb_DeleteVal + + Dim bs_cmb_난방기기 As New BindingSource(DSET, "tbl_nanbangkiki") + bs_cmb_난방기기.Sort = "code" + cmb_열생산지정1.DataSource = bs_cmb_난방기기 + cmb_열생산지정1.DisplayMember = "설명" + cmb_열생산지정1.ValueMember = "code" + Me.cmb_열생산지정1.DataBindings.Add("selectedvalue", Me.bs, "열생산난방생산기기") + 'AddHandler cmb_열생산지정1.KeyDown, AddressOf Cmb_DeleteVal + + + '//공조추가 101105 + Dim bs_cmb_공조난방기기 As New BindingSource(DSET, "tbl_nanbangkiki") + bs_cmb_공조난방기기.Sort = "code" + cmb_공조난방생산.DataSource = bs_cmb_공조난방기기 + cmb_공조난방생산.DisplayMember = "설명" + cmb_공조난방생산.ValueMember = "code" + Me.cmb_공조난방생산.DataBindings.Add("selectedvalue", Me.bs, "공조난방생산기기") + + Dim bs_cmb_공조냉방기기 As New BindingSource(DSET, "tbl_nangbangkiki") + bs_cmb_공조냉방기기.Sort = "code" + cmb_공조냉방생산.DataSource = bs_cmb_공조냉방기기 + cmb_공조냉방생산.DisplayMember = "설명" + cmb_공조냉방생산.ValueMember = "code" + Me.cmb_공조냉방생산.DataBindings.Add("selectedvalue", Me.bs, "공조냉방생산기기") + '//공조추가 101105 + + Dim bs_cmb_급탕기기 As New BindingSource(DSET, "tbl_nanbangkiki") + bs_cmb_급탕기기.Sort = "code" + cmb_열생산급탕기기.DataSource = bs_cmb_급탕기기 + cmb_열생산급탕기기.DisplayMember = "설명" + cmb_열생산급탕기기.ValueMember = "code" + Me.cmb_열생산급탕기기.DataBindings.Add("selectedvalue", Me.bs, "열생산급탕생산기기") + 'AddHandler cmb_열생산지정2.KeyDown, AddressOf Cmb_DeleteVal + + Dim bs_cmb_냉방기기 As New BindingSource(DSET, "tbl_nangbangkiki") + bs_cmb_냉방기기.Sort = "code" + cmb_열생산지정3.DataSource = bs_cmb_냉방기기 + cmb_열생산지정3.DisplayMember = "설명" + cmb_열생산지정3.ValueMember = "code" + Me.cmb_열생산지정3.DataBindings.Add("selectedvalue", Me.bs, "열생산냉방생산기기") + 'AddHandler cmb_열생산지정3.KeyDown, AddressOf Cmb_DeleteVal + + Dim bs_cmb_가습기기 As New BindingSource(DSET, "tbl_nanbangkiki") + bs_cmb_가습기기.Sort = "code" + cmb_공조가습생산.DataSource = bs_cmb_가습기기 + cmb_공조가습생산.DisplayMember = "설명" + cmb_공조가습생산.ValueMember = "code" + Me.cmb_공조가습생산.DataBindings.Add("selectedvalue", Me.bs, "열생산가습생산기기") + 'AddHandler cmb_열생산지정4.KeyDown, AddressOf Cmb_DeleteVal + + + + 'Dim bs_cmb_냉방공조분배 As New BindingSource(DSET, "tbl_bunbae") + 'bs_cmb_냉방공조분배.Sort = "code" + '냉난방공조분배시스템ComboBox.DataSource = bs_cmb_냉방공조분배 + '냉난방공조분배시스템ComboBox.DisplayMember = "설명" + '냉난방공조분배시스템ComboBox.ValueMember = "code" + 'Me.냉난방공조분배시스템ComboBox.DataBindings.Add("selectedvalue", Me.bs, "냉난방공조분배시스템") + ''AddHandler 냉난방공조분배시스템ComboBox.KeyDown, AddressOf Cmb_DeleteVal + + 'Dim bs_cmb_냉방분배 As New BindingSource(DSET, "tbl_bunbae") + 'bs_cmb_냉방분배.Sort = "code" + '냉난방분배시스템ComboBox.DataSource = bs_cmb_냉방분배 + '냉난방분배시스템ComboBox.DisplayMember = "설명" + '냉난방분배시스템ComboBox.ValueMember = "code" + 'Me.냉난방분배시스템ComboBox.DataBindings.Add("selectedvalue", Me.bs, "냉난방분배시스템") + ''AddHandler 냉난방분배시스템ComboBox.KeyDown, AddressOf Cmb_DeleteVal + + Dim bs_cmb_조명부하산출방법 As New BindingSource(DSET, "tbl_common") + bs_cmb_조명부하산출방법.Sort = "code" + bs_cmb_조명부하산출방법.Filter = "gubun='1031'" + 조명부하산출방법ComboBox.DataSource = bs_cmb_조명부하산출방법 + 조명부하산출방법ComboBox.DisplayMember = "name" + 조명부하산출방법ComboBox.ValueMember = "name" + Me.조명부하산출방법ComboBox.DataBindings.Add("selectedvalue", Me.bs, "조명부하산출방법") + 'AddHandler 조명부하산출방법ComboBox.KeyDown, AddressOf Cmb_DeleteVal + + Dim bs_cmb_인공광원 As New BindingSource(DSET, "tbl_common") + bs_cmb_인공광원.Sort = "code" + bs_cmb_인공광원.Filter = "gubun='1024'" + Me.인공광원ComboBox.DataSource = bs_cmb_인공광원 + 인공광원ComboBox.DisplayMember = "name" + 인공광원ComboBox.ValueMember = "name" + Me.인공광원ComboBox.DataBindings.Add("selectedvalue", Me.bs, "인공광원") + 'AddHandler 인공광원ComboBox.KeyDown, AddressOf Cmb_DeleteVal + + Dim bs_cmb_조명방식 As New BindingSource(DSET, "tbl_common") + bs_cmb_조명방식.Sort = "code" + bs_cmb_조명방식.Filter = "gubun='1025'" + Me.조명방식ComboBox.DataSource = bs_cmb_조명방식 + 조명방식ComboBox.DisplayMember = "name" + 조명방식ComboBox.ValueMember = "name" + Me.조명방식ComboBox.DataBindings.Add("selectedvalue", Me.bs, "조명방식") + 'AddHandler 조명방식ComboBox.KeyDown, AddressOf Cmb_DeleteVal + + End Sub + + Private Sub AddNewDataRow_Zone(ByVal sender As Object, ByVal e As System.Data.DataTableNewRowEventArgs) + '//모든화면에는 이와같은게 잇습니다. 이게 신규생성할떄의 명령이에요. + ''//아래엔 코드값만새로 만들어주는루틴만잇어요 + e.Row.Item("code") = GetMaxCode(DSET.tbl_zone, DSET.tbl_myoun) + e.Row.Item("조명부하산출방법") = "입력치" + e.Row.Item("설명") = "신규이름" + '//위처럼 데이터를 넣어주면 기본값이 되요.. 계산치 + End Sub + + Private Function GetMaxCode(ByVal dt As DataTable, ByVal dt_myoun As DataTable) As String + Try + Dim Dr As DataRow = dt.Select("", "code desc")(0) + Dim Dr_myoun As DataRow = dt_myoun.Select("", "존분류 desc")(0) + If Dr("code") >= Dr_myoun("존분류") Then + Return Format(CInt(Dr("code")) + 1, "0000") + Else + Return Format(CInt(Dr_myoun("존분류")) + 1, "0000") + End If + + Catch ex As Exception + Return "0001" + End Try + End Function + Private Sub ToolStripButton48_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt_add.Click + If Not EndEdit(Me.bs) Then Return + Me.bs.AddNew() + INitRow(Me.Controls) + End Sub + + + Private Sub ToolStripButton49_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt_Del.Click + Del_ZoneMyoun(True) + 'Dbbase.DelCrow(Me.bs, True) + End Sub + + Private Sub ToolStripButton51_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt_cancel.Click + If Not EndEdit(Me.bs) Then Return + Data_Cancel(DSET.tbl_profile, Nothing) + 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 + If Me.bs.Position < Me.bs.Count Then Me.bs.Position += 1 + Else + If Me.bs.Position > 0 Then Me.bs.Position -= 1 + End If + Me.Validate() + My.Application.DoEvents() + End Sub + +#End Region + + Private Sub AddNewDataRow_Zone_Changed(ByVal sender As Object, ByVal e As System.Data.DataColumnChangeEventArgs) + '//값이바뀐다면 조명의실지수값을 재계산한다. + ' If isCopy Then Return + Select Case e.Column.Caption.Trim + Case "면적", "천장고p" '//순실체적 + Try + Me.순실체적NTb.Text = Val(e.Row("면적")) * Val(e.Row("천장고p")) + Catch ex As Exception + Me.순실체적NTb.Text = 0 + 'e.Row("순실체적") = 0 + End Try + Me.bs.EndEdit() + Case "실깊이", "실너비", "천장고", "작업면높이" + If Me.조명부하산출방법ComboBox.Text = "계산치" Then + Try + Dim 실깊이 As Decimal = TOSG(e.Row("실깊이")) + Dim 실너비 As Decimal = TOSG(e.Row("실너비")) + Dim 천장고 As Decimal = TOSG(e.Row("천장고")) + Dim 작업면높이 As Decimal = TOSG(e.Row("작업면높이")) + e.Row("실지수") = 실깊이 * 실너비 / ((천장고 - 작업면높이) * (실깊이 + 실너비)) + Catch ex As Exception + e.Row("실지수") = 0 + End Try + End If + Me.bs.EndEdit() + Case "조명방식", "인공광원", "실지수" + 'MsgBox("2") + If Me.조명부하산출방법ComboBox.Text = "계산치" Then + Dim 조명방식 As String = TOST(e.Row("조명방식")) + Dim 인공광원 As String = TOST(e.Row("인공광원")) + Select Case 인공광원.Trim + Case "형광등" + e.Row("조명기기효율") = 65 + Case "백열등" + e.Row("조명기기효율") = 15 + Case "할로겐등" + e.Row("조명기기효율") = 21 + Case "고압수은등" + e.Row("조명기기효율") = 52 + Case "메탈할라이드등" + e.Row("조명기기효율") = 72 + Case "고압나트륨등" + e.Row("조명기기효율") = 108 + Case Else + e.Row("조명기기효율") = 0 + End Select + Try + If e.Row("실지수").ToString <> "" AndAlso e.Row("실지수").ToString <> "NaN" Then + Dim 실지수 As Decimal = TOSG(e.Row("실지수")) + If 조명방식 = "직접" Then '//직접 + e.Row("조명률") = TOSG(IIf(인공광원 = "백열등", TOSG(78 - 32 / (실지수 + 0.47)), TOSG(70 - 38 / (실지수 + 0.35)))) * 0.01 + Else '//간접 + e.Row("조명률") = (52 - 60 / (실지수 + 1.02)) * 0.01 + End If + Else + e.Row("조명률") = 0 + End If + + Catch ex As Exception + e.Row("조명률") = 0 + End Try + + End If + Me.bs.EndEdit() + Case "보수율", "조명기기효율", "조명률", "요구조도" + If Me.조명부하산출방법ComboBox.Text = "계산치" Then + Try + Dim 보수율 As Decimal = TOSG(e.Row("보수율")) + Dim 효율 As Decimal = TOSG(e.Row("조명기기효율")) + Dim 조명률 As Decimal = TOSG(e.Row("조명률")) + Dim 요구조도 As Decimal = TOSG(e.Row("요구조도")) + e.Row("조명에너지부하율계산치") = 요구조도 / (조명률 * 보수율 * 효율) + Catch ex As Exception + e.Row("조명에너지부하율계산치") = 0 + End Try + End If + Me.bs.EndEdit() + End Select + + + End Sub + + Private Sub 조명부하산출방법ComboBox_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles 조명부하산출방법ComboBox.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)) + 'MsgBox(CB.GetUpperBound(0)) + If CB.GetUpperBound(0) <> 19 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() '//한줄추가 + + Dim Cnt As Short = 0 + For i As Integer = 0 To CB.GetUpperBound(0) + Select Case i + Case 0 '///조명은 신규기록하지않으므로.. 쓰지않게한다. + 'CType(bs.Current, DataRowView)("설명") = CB(i).Split(CChar(vbTab))(ii).Trim + Case 0 + 2 + If CB(i).Split(CChar(vbTab))(ii).Trim = "" Then + Me.조명부하산출방법ComboBox.SelectedIndex = 0 + Else + Me.조명부하산출방법ComboBox.Text = CB(i).Split(CChar(vbTab))(ii).Trim + End If + 'Me.조명부하산출방법ComboBox.Text = CB(i).Split(CChar(vbTab))(ii).Trim + Case 1 + 2 + Me.요구조도NTb1.Text = CB(i).Split(CChar(vbTab))(ii).Trim + Case 2 + 2 + Me.천장고NTB1.Text = CB(i).Split(CChar(vbTab))(ii).Trim + Case 3 + 2 + Me.작업면높이NTb1.Text = CB(i).Split(CChar(vbTab))(ii).Trim + Case 4 + 2 + Me.실깊이NTb.Text = CB(i).Split(CChar(vbTab))(ii).Trim + Case 5 + 2 + Me.실너비NTb.Text = CB(i).Split(CChar(vbTab))(ii).Trim + Case 6 '//실지수넘어감 + Case 7 + 2 + Case 8 + 2 + Case 9 + 2 + If CB(i).Split(CChar(vbTab))(ii).Trim = "" Then + Me.조명방식ComboBox.SelectedIndex = 0 + Else + Me.조명방식ComboBox.Text = CB(i).Split(CChar(vbTab))(ii).Trim + End If + ' Me.조명방식ComboBox.Text = CB(i).Split(CChar(vbTab))(ii).Trim + Case 10 + 2 + If CB(i).Split(CChar(vbTab))(ii).Trim = "" Then + Me.인공광원ComboBox.SelectedIndex = 0 + Else + Me.인공광원ComboBox.Text = CB(i).Split(CChar(vbTab))(ii).Trim + End If + 'Me.인공광원ComboBox.Text = CB(i).Split(CChar(vbTab))(ii).Trim + Case 11 + 2 + Me.보수율NTb.Text = CB(i).Split(CChar(vbTab))(ii).Trim + Case 12 + 2 + Me.tb_점등시간.Text = CB(i).Split(CChar(vbTab))(ii).Trim + Case 13 + 2 + ' Me.조명기기효율NTb.Text = CB(i).Split(CChar(vbTab))(ii).Trim + Case 14 + 2 + 'Me.조명률NTb.Text = CB(i).Split(CChar(vbTab))(ii).Trim + Case 15 + 2 + 'me.조명에너지부하율계산치NTb.Text= CB(i).Split(CChar(vbTab))(ii).Trim + Case 16 + 2 + Me.tb_조명입력치.Text = CB(i).Split(CChar(vbTab))(ii).Trim + End Select + Next + If bs.Position < bs.Count Then bs.Position += 1 '//위치이동 + Next + Me.bs.EndEdit() + + End If + End Sub + + Private Sub 조명부하산출방법ComboBox_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 조명부하산출방법ComboBox.SelectedIndexChanged + Validate_Control() + End Sub + + Private Sub Validate_Control() + If Not Init Then Return + If isCopy Then Return + + + ' If Me.TabControl2.SelectedIndex = 1 Then '//조명부하의경우 탭컨트롤이 1일때 행한다. + Try + If Me.조명부하산출방법ComboBox.Text = "계산치" Then '//계산치 + Me.요구조도NTb1.Enabled = True + Me.천장고NTB1.Enabled = True + Me.작업면높이NTb1.Enabled = True + Me.실깊이NTb.Enabled = True + Me.실너비NTb.Enabled = True + Me.실지수NTb1.Enabled = True + Me.조명방식ComboBox.Enabled = True + Me.인공광원ComboBox.Enabled = True + Me.보수율NTb.Enabled = True + 'Me.점등시간NTb.Enabled = False + Me.조명기기효율NTb.Enabled = True + Me.tb_조명률.Enabled = True + Me.tb_조명계산치.Enabled = True + Me.tb_조명입력치.Enabled = False + Else + Me.요구조도NTb1.Enabled = False + Me.천장고NTB1.Enabled = False + Me.작업면높이NTb1.Enabled = False + Me.실깊이NTb.Enabled = False + Me.실너비NTb.Enabled = False + Me.실지수NTb1.Enabled = False + + Me.조명방식ComboBox.SelectedIndex = 0 + Me.인공광원ComboBox.SelectedIndex = 0 + Me.조명방식ComboBox.Enabled = False + Me.인공광원ComboBox.Enabled = False + + Me.보수율NTb.Enabled = False + 'Me.점등시간NTb.Enabled = False + Me.조명기기효율NTb.Enabled = False + Me.tb_조명률.Enabled = False + Me.tb_조명계산치.Enabled = False + Me.tb_조명입력치.Enabled = True + 'Me.점등시간TextBox.Enabled = True + End If + + + Catch ex As Exception + + End Try + Try + Select Case Me.cmb_profile.SelectedIndex + Case 0, 6, 8, 9, 11 + Me.cmb_열생산급탕기기.SelectedIndex = 0 + Me.cmb_열생산급탕기기.Enabled = False + Case Else + Me.cmb_열생산급탕기기.Enabled = True + End Select + + Catch ex As Exception + ' MsgBox(ex.Message.ToString, MsgBoxStyle.Critical) + End Try + + ' End If + Show_점등시간() + Me.bs.EndEdit() + End Sub + + Private Sub 인공광원ComboBox_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 인공광원ComboBox.SelectedIndexChanged + Try + Me.조명기기효율NTb.Text = CStr(CType(Me.인공광원ComboBox.SelectedItem, DataRowView)("valn1")) + Me.bs.EndEdit() + Catch ex As Exception + Me.조명기기효율NTb.Text = "0.0" + End Try + + End Sub + + Private Sub 조명방식ComboBox_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 조명방식ComboBox.SelectedIndexChanged + Me.bs.EndEdit() + End Sub + + Private Sub cmb_profile_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles cmb_profile.KeyDown + If e.KeyCode = Keys.V And e.Control Then + isCopy = True + e.Handled = True + e.SuppressKeyPress = False + '//클립보드붙여넣기 + Dim CB() As String = My.Computer.Clipboard.GetText.Split(CChar(vbCrLf)) + If CB.GetUpperBound(0) <> 35 Then + MsgBox("정상적인 데이터가 아닙니다") + 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() '//한줄추가 + + Dim Cnt As Short = 0 + For i As Integer = 0 To CB.GetUpperBound(0) + Select Case i + Case 0 + CType(bs.Current, DataRowView)("설명") = CB(i).Split(CChar(vbTab))(ii).Trim + Case 0 + 3 '//사용프로필 앞에 두개를 숫자4자리로변환 + Me.cmb_profile.Text = CStr(IIf(CB(i).Split(CChar(vbTab))(ii).Trim = "", "0", CB(i).Split(CChar(vbTab))(ii).Trim)) + Case 1 + 3 '//공란 + Case 2 + 3 '//면적 + Me.면적NTb.Text = CB(i).Split(CChar(vbTab))(ii).Trim + Case 3 + 3 + Me.천장고NTb.Text = CB(i).Split(CChar(vbTab))(ii).Trim + Case 4 + 3 + 'Me.순실체적NTb.Text = CB(i).Split(CChar(vbTab))(ii).Trim + Case 5 + 3 + 'If CB(i).Split(CChar(vbTab))(ii).Trim = "" Then Me.열저장능력ComboBox.SelectedIndex = -1 + If CB(i).Split(CChar(vbTab))(ii).Trim = "" Then + Me.열저장능력ComboBox.SelectedIndex = 0 + Else + Me.열저장능력ComboBox.Text = CB(i).Split(CChar(vbTab))(ii).Trim + End If + + Case 6 + 3 + ' If CB(i).Split(CChar(vbTab))(ii).Trim = "" Then Me.열교가산치ComboBox.SelectedIndex = -1 + If CB(i).Split(CChar(vbTab))(ii).Trim = "" Then + Me.열교가산치ComboBox.SelectedIndex = 0 + Else + Me.열교가산치ComboBox.Text = CB(i).Split(CChar(vbTab))(ii).Trim + End If + 'Me.열교가산치ComboBox.Text = CStr(IIf( CB(i).Split(CChar(vbTab))(ii).Trim = "", "0", CB(i).Split(CChar(vbTab))(ii).Trim)) + Case 7 + 3 + Me.침기율NTb.Text = CB(i).Split(CChar(vbTab))(ii).Trim + Case 8 + 3 + 'If CB(i).Split(CChar(vbTab))(ii).Trim = "" Then Me.cmb_냉난방방식.SelectedIndex = -1 + If CB(i).Split(CChar(vbTab))(ii).Trim = "" Then + Me.cmb_냉난방방식.SelectedIndex = 0 + Else + Me.cmb_냉난방방식.Text = CB(i).Split(CChar(vbTab))(ii).Trim + End If + 'Me.cmb_냉난방방식.Text = CStr(IIf( CB(i).Split(CChar(vbTab))(ii).Trim = "", "0", CB(i).Split(CChar(vbTab))(ii).Trim)) + Case 9 + 3 + 'If CB(i).Split(CChar(vbTab))(ii).Trim = "" Then Me.냉난방공조ComboBox.SelectedIndex = -1 + If CB(i).Split(CChar(vbTab))(ii).Trim = "" Then + Me.냉난방공조ComboBox.SelectedIndex = 0 + Else + Me.냉난방공조ComboBox.Text = CB(i).Split(CChar(vbTab))(ii).Trim + End If + 'Me.냉난방공조ComboBox.Text = CStr(IIf( CB(i).Split(CChar(vbTab))(ii).Trim = "", "0", CB(i).Split(CChar(vbTab))(ii).Trim)) + Case 10 + 3 + ' If CB(i).Split(CChar(vbTab))(ii).Trim = "" Then Me.외기부하처리여부ComboBox.SelectedIndex = -1 + If CB(i).Split(CChar(vbTab))(ii).Trim = "" Then + Me.외기부하처리여부ComboBox.SelectedIndex = 0 + Else + Me.외기부하처리여부ComboBox.Text = CB(i).Split(CChar(vbTab))(ii).Trim + End If + 'Me.외기부하처리여부ComboBox.Text = CStr(IIf( CB(i).Split(CChar(vbTab))(ii).Trim = "", "0", CB(i).Split(CChar(vbTab))(ii).Trim)) + Case 11 + 3 '//지역사용안함 + Case 12 + 3 '//야간운전방식 + 'If CB(i).Split(CChar(vbTab))(ii).Trim = "" Then Me.야간운전방식ComboBox.SelectedIndex = -1 + If CB(i).Split(CChar(vbTab))(ii).Trim = "" Then + Me.야간운전방식ComboBox.SelectedIndex = 0 + Else + Me.야간운전방식ComboBox.Text = CB(i).Split(CChar(vbTab))(ii).Trim + End If + 'Me.야간운전방식ComboBox.Text = CStr(IIf( CB(i).Split(CChar(vbTab))(ii).Trim = "", "0", CB(i).Split(CChar(vbTab))(ii).Trim)) + Case 13 + 3 '//주말운전방식 + ' If CB(i).Split(CChar(vbTab))(ii).Trim = "" Then Me.주말운전방식ComboBox.SelectedIndex = -1 + If CB(i).Split(CChar(vbTab))(ii).Trim = "" Then + Me.주말운전방식ComboBox.SelectedIndex = 0 + Else + Me.주말운전방식ComboBox.Text = CB(i).Split(CChar(vbTab))(ii).Trim + End If + 'Me.주말운전방식ComboBox.Text = CStr(IIf( CB(i).Split(CChar(vbTab))(ii).Trim = "", "0", CB(i).Split(CChar(vbTab))(ii).Trim)) + Case 16 + 3 '//일급탕요구량 + 'Me.급탕요구량NTb.Text = CB(i).Split(CChar(vbTab))(ii).Trim + Case 17 + 3 + Case 18 + 3 + Case 19 + 3 '//난방공급시스템-1 + ' Me.TabControl10.SelectedIndex = 0 + ' If CB(i).Split(CChar(vbTab))(ii).Trim = "" Then Me.냉난방열공급시스템ComboBox.SelectedIndex = -1 + If CB(i).Split(CChar(vbTab))(ii).Trim = "" Then + Me.냉난방열공급시스템ComboBox.SelectedIndex = 0 + Else + Me.냉난방열공급시스템ComboBox.Text = CB(i).Split(CChar(vbTab))(ii).Trim + End If + + + Case 20 + 3 '// + Me.냉난방열공급시스템수NTb.Text = CB(i).Split(CChar(vbTab))(ii).Trim + Case 21 + 3 + ' If CB(i).Split(CChar(vbTab))(ii).Trim = "" Then Me.냉난방공조처리시스템ComboBox.SelectedIndex = -1 + If CB(i).Split(CChar(vbTab))(ii).Trim = "" Then + Me.냉난방공조처리시스템ComboBox.SelectedIndex = 0 + Else + Me.냉난방공조처리시스템ComboBox.Text = CB(i).Split(CChar(vbTab))(ii).Trim + End If + 'Me.냉난방공조처리시스템ComboBox.Text = CStr(IIf( CB(i).Split(CChar(vbTab))(ii).Trim = "", "0", CB(i).Split(CChar(vbTab))(ii).Trim)) + Case 24 + 3 '//열생산지정 + ' Me.TabControl10.SelectedIndex = 1 + Me.cmb_열생산지정1.Text = CB(i).Split(CChar(vbTab))(ii).Trim + Case 25 + 3 + Me.cmb_열생산급탕기기.Text = CB(i).Split(CChar(vbTab))(ii).Trim + Case 26 + 3 + Me.cmb_열생산지정3.Text = CB(i).Split(CChar(vbTab))(ii).Trim + Case 27 + 3 + Me.cmb_공조가습생산.Text = CB(i).Split(CChar(vbTab))(ii).Trim + Case 30 + 3 + 'Me.TabControl10.SelectedIndex = 2 + 'If CB(i).Split(CChar(vbTab))(ii).Trim = "" Then Me.냉난방공조분배시스템ComboBox.SelectedIndex = -1 + If CB(i).Split(CChar(vbTab))(ii).Trim = "" Then + 'Me.냉난방공조분배시스템ComboBox.SelectedIndex = 0 + Else + 'Me.냉난방공조분배시스템ComboBox.Text = CB(i).Split(CChar(vbTab))(ii).Trim + End If + ' Me.냉난방공조분배시스템ComboBox.Text = CStr(IIf( CB(i).Split(CChar(vbTab))(ii).Trim = "", "0", CB(i).Split(CChar(vbTab))(ii).Trim)) + Case 31 + 3 + 'If CB(i).Split(CChar(vbTab))(ii).Trim = "" Then Me.냉난방분배시스템ComboBox.SelectedIndex = -1 + If CB(i).Split(CChar(vbTab))(ii).Trim = "" Then + 'Me.냉난방분배시스템ComboBox.SelectedIndex = 0 + Else + 'Me.냉난방분배시스템ComboBox.Text = CB(i).Split(CChar(vbTab))(ii).Trim + End If + 'Me.냉난방분배시스템ComboBox.Text = CStr(IIf(CB(i).Trim = "", "0", CB(i).Trim)) + End Select + Next + Next + + Me.bs.EndEdit() + isCopy = False + Me.Validate_Control() + ' AddNewDataRow_Zone_Changed(Nothing, Nothing) + End If + End Sub + + Private Sub Show_점등시간() + Try + If cmb_profile.SelectedIndex > 0 Then '//뭔가선택되면 + Dim Drv As DataRowView = CType(Me.bs.Current, DataRowView) + + Dim DRProf As DS.tbl_profileRow = CType(DSET.tbl_profile.Select("code='" & Drv("프로필").ToString & "'")(0), DS.tbl_profileRow) + Me.tb_점등시간.Text = DRProf.일일사용시간 + 'MsgBox("선택프로필코드=" & Drv("프로필").ToString, MsgBoxStyle.Information, DRProf.일일사용시간) + Else + Me.tb_점등시간.Text = "없음" + End If + Catch ex As Exception + Me.tb_점등시간.Text = ex.Message.ToString + End Try + End Sub + + Private Sub cmb_profile_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles cmb_profile.MouseUp + If Me.cmb_profile.SelectedIndex < 0 Then Return + If e.Button = Windows.Forms.MouseButtons.Right Then + '//냉난방공조처리시스템 + Me.bs.Filter = "프로필='" & cmb_profile.SelectedValue.ToString & "'" + + + End If + End Sub + + Private Sub cmb_profile_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmb_profile.SelectedIndexChanged + Me.Validate_Control() + + End Sub + + + Private Sub bt_Del_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles bt_Del.MouseDown + If e.Button = Windows.Forms.MouseButtons.Right Then + If MsgBox("전체삭제를 하시겠습니까?", MsgBoxStyle.Information Or MsgBoxStyle.OkCancel, "확인") = MsgBoxResult.Ok Then + 'DSET.tbl_zone.Clear() + Dim dR() As DataRow = DSET.tbl_zone.Select(Me.bs.Filter, "") + For i As Integer = dR.GetUpperBound(0) To 0 Step -1 + dR(i).Delete() + Next + DSET.tbl_zone.AcceptChanges() + End If + End If + End Sub + + Private Sub bs_CurrentChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bs.CurrentChanged + + '//이존이 어떠한 면들한테 쓰엿는지 그거죠?'/종류가 몇가지요? 내벽 외벽 같은거 + '//입력면은 존분류값이 존이죠? ? 외벽, 외부창, 내벽, 내부창, 간벽 5가지 + + If Not Init Then Return + Dim Drv As DataRowView = CType(bs.Current, DataRowView) + If Drv Is Nothing Then Return + + + Dim Zonecode As String = Drv("code") + If Zonecode = "0" Then Return + + Show_점등시간() + + Dim cnt1, cnt2, cnt3, cnt4, cnt5 As Integer + cnt1 = 0 : cnt2 = 0 : cnt3 = 0 : cnt4 = 0 : cnt5 = 0 + + + Dim DR() As DataRow = DSET.tbl_myoun.Select("code <> '0' and 존분류='" & Drv("code").ToString & "' and 건축부위방식='외벽'") + If DR.GetUpperBound(0) <> -1 Then cnt1 = (DR.GetUpperBound(0) + 1) + + DR = DSET.tbl_myoun.Select("code <> '0' and 존분류='" & Drv("code").ToString & "' and 건축부위방식='외부창'") + If DR.GetUpperBound(0) <> -1 Then cnt2 = (DR.GetUpperBound(0) + 1) + + DR = DSET.tbl_myoun.Select("code <> '0' and 존분류='" & Drv("code").ToString & "' and 건축부위방식='내벽'") + If DR.GetUpperBound(0) <> -1 Then cnt3 = (DR.GetUpperBound(0) + 1) + + DR = DSET.tbl_myoun.Select("code <> '0' and 존분류='" & Drv("code").ToString & "' and 건축부위방식='내부창'") + If DR.GetUpperBound(0) <> -1 Then cnt4 = (DR.GetUpperBound(0) + 1) + + DR = DSET.tbl_myoun.Select("code <> '0' and 존분류='" & Drv("code").ToString & "' and 건축부위방식='간벽'") + If DR.GetUpperBound(0) <> -1 Then cnt5 = (DR.GetUpperBound(0) + 1) + + '//각각순서대로 변수에 해당값이 들어갓어요 + '//화면에 표시할 컨트롤 만드시다음에 컨트롤.text = cnt1 식으로 연결만 해주시면됩니다. + Me.ToolStripLabel3.Text = cnt1.ToString + If cnt1 > 0 Then + Me.ToolStripLabel2.ForeColor = Color.Purple + Me.ToolStripLabel3.ForeColor = Color.Purple + Else + Me.ToolStripLabel2.ForeColor = Color.LightGray + Me.ToolStripLabel3.ForeColor = Color.LightGray + End If + + Me.ToolStripLabel5.Text = cnt3.ToString + If cnt3 > 0 Then + Me.ToolStripLabel4.ForeColor = Color.Purple + Me.ToolStripLabel5.ForeColor = Color.Purple + Else + Me.ToolStripLabel4.ForeColor = Color.LightGray + Me.ToolStripLabel5.ForeColor = Color.LightGray + End If + + Me.ToolStripLabel7.Text = cnt2.ToString + If cnt2 > 0 Then + Me.ToolStripLabel6.ForeColor = Color.Purple + Me.ToolStripLabel7.ForeColor = Color.Purple + Else + Me.ToolStripLabel6.ForeColor = Color.LightGray + Me.ToolStripLabel7.ForeColor = Color.LightGray + End If + + Me.ToolStripLabel9.Text = cnt4.ToString + If cnt4 > 0 Then + Me.ToolStripLabel8.ForeColor = Color.Purple + Me.ToolStripLabel9.ForeColor = Color.Purple + Else + Me.ToolStripLabel8.ForeColor = Color.LightGray + Me.ToolStripLabel9.ForeColor = Color.LightGray + End If + + Me.ToolStripLabel11.Text = cnt5.ToString + If cnt5 > 0 Then + Me.ToolStripLabel10.ForeColor = Color.Purple + Me.ToolStripLabel11.ForeColor = Color.Purple + Else + Me.ToolStripLabel10.ForeColor = Color.LightGray + Me.ToolStripLabel11.ForeColor = Color.LightGray + End If + + Me.Validate_Control() + + Me.bs.EndEdit() + End Sub + + + + Private Sub 냉난방공조처리시스템ComboBox_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles 냉난방공조처리시스템ComboBox.MouseUp + If e.Button = Windows.Forms.MouseButtons.Right Then + '//냉난방공조처리시스템 + Me.bs.Filter = "냉난방공조처리시스템='" & 냉난방공조처리시스템ComboBox.SelectedValue.ToString & "'" + + + End If + End Sub + + + Private Sub 냉난방공조ComboBox_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 냉난방공조ComboBox.SelectedIndexChanged + ZONE_Control() + End Sub + + Private Sub ZONE_Control() '//건기연 추가(2010.04.07) + If Me.Init = False Then Return + Try + If Me.냉난방공조ComboBox.SelectedIndex = 4 Then + 외기부하처리여부ComboBox.Enabled = True + 냉난방공조처리시스템ComboBox.Enabled = True + Else + 외기부하처리여부ComboBox.Enabled = False + If Me.냉난방공조ComboBox.SelectedIndex = 0 Then + 냉난방공조처리시스템ComboBox.Enabled = False + 냉난방공조처리시스템ComboBox.SelectedIndex = 0 + Else + 냉난방공조처리시스템ComboBox.Enabled = True + End If + End If + Catch ex As Exception + + End Try + Try + Select Case Me.냉난방공조ComboBox.SelectedIndex + Case 0, 4 + If Me.냉난방공조ComboBox.SelectedIndex = 4 AndAlso Me.외기부하처리여부ComboBox.Enabled AndAlso Me.외기부하처리여부ComboBox.Text = "예" Then + Me.cmb_공조난방생산.Enabled = True + Me.cmb_공조가습생산.Enabled = True + Me.cmb_공조냉방생산.Enabled = True + 'Me.cmb_공조난방생산.BackColor = Nothing + 'Me.cmb_공조냉방생산.BackColor = Nothing + 'Me.cmb_공조가습생산.BackColor = Nothing + 'Me.cmb_공조난방생산.ForeColor = Nothing + 'Me.cmb_공조냉방생산.ForeColor = Nothing + 'Me.cmb_공조가습생산.ForeColor = Nothing + 'Me.cmb_공조난방생산.Font = New Font(Me.cmb_공조난방생산.Font, FontStyle.Regular) + 'Me.cmb_공조냉방생산.Font = New Font(Me.cmb_공조난방생산.Font, FontStyle.Regular) + 'Me.cmb_공조가습생산.Font = New Font(Me.cmb_공조난방생산.Font, FontStyle.Regular) + + Else + Me.cmb_공조난방생산.Enabled = False + Me.cmb_공조가습생산.Enabled = False + Me.cmb_공조냉방생산.Enabled = False + 'Me.cmb_공조난방생산.BackColor = Color.LightGray + 'Me.cmb_공조냉방생산.BackColor = Color.LightGray + 'Me.cmb_공조가습생산.BackColor = Color.LightGray + 'If Me.cmb_공조난방생산.SelectedIndex <> 0 Then + ' Me.cmb_공조난방생산.ForeColor = Color.Red + ' Me.cmb_공조난방생산.Font = New Font(Me.cmb_공조난방생산.Font, FontStyle.Strikeout) + 'End If + 'If Me.cmb_공조가습생산.SelectedIndex <> 0 Then + ' Me.cmb_공조가습생산.ForeColor = Color.Red + ' Me.cmb_공조가습생산.Font = New Font(Me.cmb_공조난방생산.Font, FontStyle.Strikeout) + 'End If + 'If Me.cmb_공조냉방생산.SelectedIndex <> 0 Then + ' Me.cmb_공조냉방생산.ForeColor = Color.Red + ' Me.cmb_공조냉방생산.Font = New Font(Me.cmb_공조난방생산.Font, FontStyle.Strikeout) + 'End If + + End If + Me.cmb_냉난방방식.ForeColor = Nothing + 'Me.cmb_냉난방방식.Font = New Font(Me.cmb_냉난방방식.Font, FontStyle.Regular) + Me.ErrProvider.SetError(Me.cmb_냉난방방식, "") + Case 1 + If Me.외기부하처리여부ComboBox.Enabled AndAlso Me.외기부하처리여부ComboBox.Text = "예" Then + Me.cmb_공조난방생산.Enabled = True + Me.cmb_공조가습생산.Enabled = True + Else + Me.cmb_공조난방생산.Enabled = False + Me.cmb_공조가습생산.Enabled = False + End If + Me.cmb_공조냉방생산.Enabled = True + If Me.cmb_냉난방방식.SelectedIndex = 0 OrElse Me.cmb_냉난방방식.SelectedIndex = 2 Then + Me.cmb_냉난방방식.ForeColor = Nothing + 'Me.cmb_냉난방방식.Font = New Font(Me.cmb_냉난방방식.Font, FontStyle.Regular) + Me.ErrProvider.SetError(Me.cmb_냉난방방식, "") + Else + Me.cmb_냉난방방식.ForeColor = Color.Red + 'Me.cmb_냉난방방식.Font = New Font(Me.cmb_냉난방방식.Font, FontStyle.Strikeout) + Me.ErrProvider.SetError(Me.cmb_냉난방방식, "이건 안된다구요") + End If + Case 2 + If Me.외기부하처리여부ComboBox.Enabled AndAlso Me.외기부하처리여부ComboBox.Text = "예" Then + Me.cmb_공조냉방생산.Enabled = True + Else + Me.cmb_공조냉방생산.Enabled = False + End If + Me.cmb_공조난방생산.Enabled = True + Me.cmb_공조가습생산.Enabled = True + If Me.cmb_냉난방방식.SelectedIndex = 0 OrElse Me.cmb_냉난방방식.SelectedIndex = 1 Then + Me.cmb_냉난방방식.ForeColor = Nothing + 'Me.cmb_냉난방방식.Font = New Font(Me.cmb_냉난방방식.Font, FontStyle.Regular) + Me.ErrProvider.SetError(Me.cmb_냉난방방식, "") + Else + Me.cmb_냉난방방식.ForeColor = Color.Red + 'Me.cmb_냉난방방식.Font = New Font(Me.cmb_냉난방방식.Font, FontStyle.Strikeout) + Me.ErrProvider.SetError(Me.cmb_냉난방방식, "이건 안된다구요") + End If + Case 3 + Me.cmb_공조난방생산.Enabled = True + Me.cmb_공조가습생산.Enabled = True + Me.cmb_공조냉방생산.Enabled = True + If Me.cmb_냉난방방식.SelectedIndex = 0 Then + Me.cmb_냉난방방식.ForeColor = Nothing + 'Me.cmb_냉난방방식.Font = New Font(Me.cmb_냉난방방식.Font, FontStyle.Regular) + Me.ErrProvider.SetError(Me.cmb_냉난방방식, "") + Else + Me.cmb_냉난방방식.ForeColor = Color.Red + 'Me.cmb_냉난방방식.Font = New Font(Me.cmb_냉난방방식.Font, FontStyle.Strikeout) + Me.ErrProvider.SetError(Me.cmb_냉난방방식, "이건 안된다구요") + End If + + Case Else + + End Select + Catch ex As Exception + + End Try + + Try + Select Case Me.cmb_냉난방방식.SelectedIndex + Case 0 + Me.냉난방공조ComboBox.ForeColor = Nothing + Me.ErrProvider.SetError(Me.냉난방공조ComboBox, "") + Me.cmb_열생산지정1.Enabled = False + Me.cmb_열생산지정3.Enabled = False + Case 1 + Me.cmb_열생산지정1.Enabled = False + Me.cmb_열생산지정3.Enabled = True + If Me.냉난방공조ComboBox.SelectedIndex = 0 OrElse Me.냉난방공조ComboBox.SelectedIndex = 2 OrElse Me.냉난방공조ComboBox.SelectedIndex = 4 Then + Me.냉난방공조ComboBox.ForeColor = Nothing + Me.ErrProvider.SetError(Me.냉난방공조ComboBox, "") + Else + Me.냉난방공조ComboBox.ForeColor = Color.Red + Me.ErrProvider.SetError(Me.냉난방공조ComboBox, "이건 안된다구요") + End If + Case 2 + Me.cmb_열생산지정1.Enabled = True + Me.cmb_열생산지정3.Enabled = False + If Me.냉난방공조ComboBox.SelectedIndex = 0 OrElse Me.냉난방공조ComboBox.SelectedIndex = 1 OrElse Me.냉난방공조ComboBox.SelectedIndex = 4 Then + Me.냉난방공조ComboBox.ForeColor = Nothing + Me.ErrProvider.SetError(Me.냉난방공조ComboBox, "") + Else + Me.냉난방공조ComboBox.ForeColor = Color.Red + Me.ErrProvider.SetError(Me.냉난방공조ComboBox, "이건 안된다구요") + End If + Case 3 + Me.cmb_열생산지정1.Enabled = True + Me.cmb_열생산지정3.Enabled = True + If Me.냉난방공조ComboBox.SelectedIndex = 0 OrElse Me.냉난방공조ComboBox.SelectedIndex = 4 Then + Me.냉난방공조ComboBox.ForeColor = Nothing + Me.ErrProvider.SetError(Me.냉난방공조ComboBox, "") + Else + Me.냉난방공조ComboBox.ForeColor = Color.Red + Me.ErrProvider.SetError(Me.냉난방공조ComboBox, "이건 안된다구요") + End If + + Case Else + + End Select + Catch ex As Exception + + End Try + + Try + If Me.cmb_냉난방방식.SelectedIndex = 0 Then + Me.냉난방열공급시스템ComboBox.Enabled = False + Me.냉난방열공급시스템수NTb.Enabled = False + '냉난방분배시스템ComboBox.SelectedIndex = 0 + 'Me.냉난방열공급시스템수NTb.Text = "0" '// 2010.11.29 수정 + Else + Me.냉난방열공급시스템ComboBox.Enabled = True + Me.냉난방열공급시스템수NTb.Enabled = True + + End If + Catch ex As Exception + + End Try + bs.EndEdit() + End Sub + + Private Sub cmb_냉난방방식_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmb_냉난방방식.SelectedIndexChanged + ZONE_Control() + End Sub + + Private Sub 면적NTb_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles 면적NTb.TextChanged + 순실체적NTb.Text = TOST(TOSG(면적NTb.Text) * TOSG(천장고NTb.Text)) + End Sub + + Private Sub 천장고NTb_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles 천장고NTb.TextChanged + 순실체적NTb.Text = TOST(TOSG(면적NTb.Text) * TOSG(천장고NTb.Text)) + End Sub + + Private Sub 순실체적NTb_MouseHover(ByVal sender As Object, ByVal e As System.EventArgs) Handles 순실체적NTb.MouseHover + 순실체적NTb.Text = TOST(TOSG(면적NTb.Text) * TOSG(천장고NTb.Text)) + End Sub + + Private Sub dv_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles dv.KeyDown + '//여기보시면 alt+d 누르면 한줄을 경고없이(falsE)삭제하도록 햇어요.. 사실원래 밋alt +d 인데.. ㅎㅎ 잘못해서 ctrl 됫다는 + If Prj.UserAuthType = "ADMIN" OrElse Prj.UserAuthType = "BOTH" OrElse Prj.UserAuthType = "BOTH2" OrElse Prj.UserAuthType = "BOTH1" Then '//2011.03.08 추가 + Select Case e.KeyCode + Case Keys.D + If e.Alt Then + Del_ZoneMyoun(False) + 'Dbbase.DelCrow(Me.bs, False) + End If + Case Keys.C + If e.Control Then + Me.SrcDrv = Me.bs.Current + If Me.SrcDrv Is Nothing Then + MsgBox("저장할 ROW가 없습니다", MsgBoxStyle.Information, "확인") + Return + End If + ' My.Computer.Clipboard.SetData("ZDATA", Drv) + End If + Case Keys.V + If e.Control Then + If SrcDrv Is Nothing Then Return + Me.bt_add.PerformClick() '//신규추가 + Dim NewDrv As DataRowView = Me.bs.Current + + For Each C As DataColumn In Me.Dt.Columns + If C.ColumnName.ToUpper = "CODE" Then + ElseIf C.ColumnName.ToUpper = "설명" Then + NewDrv(C.ColumnName) = SrcDrv(C.ColumnName) & "#1" + Else + NewDrv(C.ColumnName) = SrcDrv(C.ColumnName) + End If + Next + Me.bs.EndEdit() + bs.MoveLast() + End If + End Select + End If + End Sub + + Private Sub dv_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles dv.MouseUp + If Prj.UserAuthType = "ADMIN" OrElse Prj.UserAuthType = "BOTH" OrElse Prj.UserAuthType = "BOTH2" OrElse Prj.UserAuthType = "BOTH1" Then '//2011.03.08 추가 + If e.Button = Windows.Forms.MouseButtons.Right Then + Dim Frm_FilterA As New Frm_Filter + Frm_FilterA.ColumTitle = getColCaption(Me.Dt) + Frm_FilterA.ColumList = getColName(Me.Dt) + Frm_FilterA.Colorlist = "프로필,냉난방열공급시스템,냉난방공조처리시스템,열생산난방생산기기,열생산급탕생산기기,열생산냉방생산기기," & _ + "공조가습생산기기,공조냉방생산기기,공조난방생산기기" + Frm_FilterA.Numfield = "" '//20100618 Color 리스트처럼 , 구분해서 필드들을 모두 넣으세요.(=, >= 등을 사용하기 위해서는 해당 항목을 추가 요망) + Frm_FilterA.Default_Filter = "code <> '0'" + If Frm_FilterA.ShowDialog <> Windows.Forms.DialogResult.OK Then Return '//창떳을떄 확인아ㅣ고 취소눌르면 다음을 수행하지않는다는거에요. + Dim Filter As String = Frm_FilterA.tb_filter.Text '//값은 아까 그 텍박에 잇구요. + Try + Me.bs.Filter = Filter + + '//바꾸기값이 있으면 변경 20100618 + If Frm_FilterA.cmb_fieldc.SelectedIndex >= 0 AndAlso Frm_FilterA.cmb_fieldc.Text.ToLower <> "code" AndAlso _ + Frm_FilterA.tb_valuec.Text <> "" Then + Dim Drow() As DataRow = Me.Dt.Select(Filter) + For Each Dr As DataRow In Drow + Dr(Frm_FilterA.cmb_fieldc.Text) = Frm_FilterA.tb_valuec.Text + Next + MsgBox("바꾸기 완료", MsgBoxStyle.Information, "확인") + End If + + Catch ex As Exception + Me.bs.Filter = "" + End Try + End If + End If + End Sub + + + 'Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) + ' CType(Me.bs.Current, DataRowView)("공조난방생산기기") = DBNull.Value + ' CType(Me.bs.Current, DataRowView)("공조냉방생산기기") = DBNull.Value + ' If MsgBox("sdf", MsgBoxStyle.OkCancel) = MsgBoxResult.Ok Then + ' Me.bs.EndEdit() + ' Me.bsmain.EndEdit() + ' End If + 'End Sub + + Private Sub 외기부하처리여부ComboBox_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 외기부하처리여부ComboBox.SelectedIndexChanged + ZONE_Control() + End Sub + Private Sub Del_ZoneMyoun(ByVal prompt As Boolean) + If prompt Then + If MsgBox("선택된 줄을 삭제하시겠습니까?", MsgBoxStyle.OkCancel Or MsgBoxStyle.Information, "삭제확인") <> MsgBoxResult.Ok Then Return + End If + Dim Drv As DataRowView = CType(bs.Current, DataRowView) + If Drv Is Nothing Then Return + Dim DR() As DataRow = DSET.tbl_myoun.Select("code <> '0' and 존분류='" & Drv("code").ToString & "'") + If DR.GetUpperBound(0) <> -1 Then + For i As Integer = DR.GetUpperBound(0) To 0 Step -1 + DR(i).Delete() + Next + End If + Me.bs.RemoveCurrent() + End Sub +End Class \ No newline at end of file diff --git a/ArinWarev1/Forms/v20091231/Frm_v20091231_buha.Designer.vb b/ArinWarev1/Forms/v20091231/Frm_v20091231_buha.Designer.vb new file mode 100644 index 0000000..3dbe9d0 --- /dev/null +++ b/ArinWarev1/Forms/v20091231/Frm_v20091231_buha.Designer.vb @@ -0,0 +1,352 @@ + _ +Partial Class Frm_V20091231_buha + Inherits CForm + 'Form은 Dispose를 재정의하여 구성 요소 목록을 정리합니다. + _ + Protected Overrides Sub Dispose(ByVal disposing As Boolean) + Try + If disposing AndAlso components IsNot Nothing Then + components.Dispose() + End If + Finally + MyBase.Dispose(disposing) + End Try + End Sub + + 'Windows Form 디자이너에 필요합니다. + Private components As System.ComponentModel.IContainer + + '참고: 다음 프로시저는 Windows Form 디자이너에 필요합니다. + '수정하려면 Windows Form 디자이너를 사용하십시오. + '코드 편집기를 사용하여 수정하지 마십시오. + _ + Private Sub InitializeComponent() + Me.components = New System.ComponentModel.Container() + Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(Frm_V20091231_buha)) + Dim DataGridViewCellStyle1 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Me.bn_all = New System.Windows.Forms.BindingNavigator(Me.components) + Me.bs = New System.Windows.Forms.BindingSource(Me.components) + Me.DS = New Eco2Ar.DS() + Me.ToolStripLabel6 = New System.Windows.Forms.ToolStripLabel() + Me.ToolStripButton44 = New System.Windows.Forms.ToolStripButton() + Me.ToolStripButton45 = New System.Windows.Forms.ToolStripButton() + Me.ToolStripSeparator25 = New System.Windows.Forms.ToolStripSeparator() + Me.ToolStripTextBox6 = New System.Windows.Forms.ToolStripTextBox() + Me.ToolStripSeparator26 = New System.Windows.Forms.ToolStripSeparator() + Me.ToolStripButton46 = New System.Windows.Forms.ToolStripButton() + Me.ToolStripButton47 = New System.Windows.Forms.ToolStripButton() + Me.ToolStripSeparator27 = New System.Windows.Forms.ToolStripSeparator() + Me.ToolStripButton48 = New System.Windows.Forms.ToolStripButton() + Me.ToolStripButton49 = New System.Windows.Forms.ToolStripButton() + Me.ToolStripSeparator28 = New System.Windows.Forms.ToolStripSeparator() + Me.ToolStripButton51 = New System.Windows.Forms.ToolStripButton() + Me.Arindv9 = New CEnergy.arindv() + Me.CodeDataGridViewTextBoxColumn = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.설명 = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.n01 = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.n02 = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.n03 = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.n04 = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.n05 = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.n06 = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.n07 = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.n08 = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.n09 = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.n10 = New System.Windows.Forms.DataGridViewTextBoxColumn() + CType(Me.bn_all, System.ComponentModel.ISupportInitialize).BeginInit() + Me.bn_all.SuspendLayout() + CType(Me.bs, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.DS, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.Arindv9, System.ComponentModel.ISupportInitialize).BeginInit() + Me.SuspendLayout() + ' + 'bn_all + ' + Me.bn_all.AddNewItem = Nothing + Me.bn_all.BindingSource = Me.bs + Me.bn_all.CountItem = Me.ToolStripLabel6 + Me.bn_all.DeleteItem = Nothing + 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.ToolStripButton51}) + Me.bn_all.Location = New System.Drawing.Point(0, 384) + 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(654, 25) + Me.bn_all.TabIndex = 7 + Me.bn_all.Text = "BindingNavigator1" + ' + 'bs + ' + Me.bs.DataMember = "tbl_buha" + Me.bs.DataSource = Me.DS + Me.bs.Filter = "code <> '0'" + ' + 'DS + ' + Me.DS.DataSetName = "DS" + Me.DS.SchemaSerializationMode = System.Data.SchemaSerializationMode.IncludeSchema + ' + 'ToolStripLabel6 + ' + Me.ToolStripLabel6.Name = "ToolStripLabel6" + Me.ToolStripLabel6.Size = New System.Drawing.Size(27, 22) + Me.ToolStripLabel6.Text = "/{0}" + Me.ToolStripLabel6.ToolTipText = "전체 항목 수" + ' + 'ToolStripButton44 + ' + Me.ToolStripButton44.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.ToolStripButton44.Image = CType(resources.GetObject("ToolStripButton44.Image"), System.Drawing.Image) + Me.ToolStripButton44.Name = "ToolStripButton44" + Me.ToolStripButton44.RightToLeftAutoMirrorImage = True + Me.ToolStripButton44.Size = New System.Drawing.Size(23, 22) + Me.ToolStripButton44.Text = "처음으로 이동" + ' + 'ToolStripButton45 + ' + Me.ToolStripButton45.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.ToolStripButton45.Image = CType(resources.GetObject("ToolStripButton45.Image"), System.Drawing.Image) + Me.ToolStripButton45.Name = "ToolStripButton45" + Me.ToolStripButton45.RightToLeftAutoMirrorImage = True + Me.ToolStripButton45.Size = New System.Drawing.Size(23, 22) + Me.ToolStripButton45.Text = "이전으로 이동" + ' + 'ToolStripSeparator25 + ' + Me.ToolStripSeparator25.Name = "ToolStripSeparator25" + Me.ToolStripSeparator25.Size = New System.Drawing.Size(6, 25) + ' + 'ToolStripTextBox6 + ' + Me.ToolStripTextBox6.AccessibleName = "위치" + Me.ToolStripTextBox6.AutoSize = False + Me.ToolStripTextBox6.Name = "ToolStripTextBox6" + Me.ToolStripTextBox6.Size = New System.Drawing.Size(50, 21) + Me.ToolStripTextBox6.Text = "0" + Me.ToolStripTextBox6.ToolTipText = "현재 위치" + ' + 'ToolStripSeparator26 + ' + Me.ToolStripSeparator26.Name = "ToolStripSeparator26" + Me.ToolStripSeparator26.Size = New System.Drawing.Size(6, 25) + ' + 'ToolStripButton46 + ' + Me.ToolStripButton46.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.ToolStripButton46.Image = CType(resources.GetObject("ToolStripButton46.Image"), System.Drawing.Image) + Me.ToolStripButton46.Name = "ToolStripButton46" + Me.ToolStripButton46.RightToLeftAutoMirrorImage = True + Me.ToolStripButton46.Size = New System.Drawing.Size(23, 22) + Me.ToolStripButton46.Text = "다음으로 이동" + ' + 'ToolStripButton47 + ' + Me.ToolStripButton47.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.ToolStripButton47.Image = CType(resources.GetObject("ToolStripButton47.Image"), System.Drawing.Image) + Me.ToolStripButton47.Name = "ToolStripButton47" + Me.ToolStripButton47.RightToLeftAutoMirrorImage = True + Me.ToolStripButton47.Size = New System.Drawing.Size(23, 22) + Me.ToolStripButton47.Text = "마지막으로 이동" + ' + 'ToolStripSeparator27 + ' + Me.ToolStripSeparator27.Name = "ToolStripSeparator27" + Me.ToolStripSeparator27.Size = New System.Drawing.Size(6, 25) + ' + 'ToolStripButton48 + ' + Me.ToolStripButton48.Image = CType(resources.GetObject("ToolStripButton48.Image"), System.Drawing.Image) + Me.ToolStripButton48.Name = "ToolStripButton48" + Me.ToolStripButton48.RightToLeftAutoMirrorImage = True + Me.ToolStripButton48.Size = New System.Drawing.Size(66, 22) + Me.ToolStripButton48.Text = "추가(&A)" + ' + 'ToolStripButton49 + ' + Me.ToolStripButton49.Image = CType(resources.GetObject("ToolStripButton49.Image"), System.Drawing.Image) + Me.ToolStripButton49.Name = "ToolStripButton49" + Me.ToolStripButton49.RightToLeftAutoMirrorImage = True + Me.ToolStripButton49.Size = New System.Drawing.Size(66, 22) + Me.ToolStripButton49.Text = "삭제(&D)" + ' + 'ToolStripSeparator28 + ' + Me.ToolStripSeparator28.Name = "ToolStripSeparator28" + Me.ToolStripSeparator28.Size = New System.Drawing.Size(6, 25) + ' + 'ToolStripButton51 + ' + Me.ToolStripButton51.Image = CType(resources.GetObject("ToolStripButton51.Image"), System.Drawing.Image) + Me.ToolStripButton51.ImageTransparentColor = System.Drawing.Color.Magenta + Me.ToolStripButton51.Name = "ToolStripButton51" + Me.ToolStripButton51.Size = New System.Drawing.Size(65, 22) + Me.ToolStripButton51.Text = "취소(&C)" + ' + 'Arindv9 + ' + Me.Arindv9.A_DelCurrentCell = True + Me.Arindv9.A_EnterToTab = True + Me.Arindv9.AllowUserToAddRows = False + Me.Arindv9.AllowUserToResizeRows = False + Me.Arindv9.AutoGenerateColumns = False + Me.Arindv9.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.AllCells + Me.Arindv9.BorderStyle = System.Windows.Forms.BorderStyle.None + Me.Arindv9.ColumnHeadersHeight = 30 + Me.Arindv9.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.DisableResizing + Me.Arindv9.Columns.AddRange(New System.Windows.Forms.DataGridViewColumn() {Me.CodeDataGridViewTextBoxColumn, Me.설명, Me.n01, Me.n02, Me.n03, Me.n04, Me.n05, Me.n06, Me.n07, Me.n08, Me.n09, Me.n10}) + Me.Arindv9.DataSource = Me.bs + Me.Arindv9.Dock = System.Windows.Forms.DockStyle.Fill + Me.Arindv9.Location = New System.Drawing.Point(0, 0) + Me.Arindv9.Margin = New System.Windows.Forms.Padding(0) + Me.Arindv9.Name = "Arindv9" + Me.Arindv9.RowHeadersVisible = False + Me.Arindv9.RowTemplate.Height = 23 + Me.Arindv9.Size = New System.Drawing.Size(654, 384) + Me.Arindv9.TabIndex = 0 + ' + 'CodeDataGridViewTextBoxColumn + ' + Me.CodeDataGridViewTextBoxColumn.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.AllCells + Me.CodeDataGridViewTextBoxColumn.DataPropertyName = "code" + DataGridViewCellStyle1.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleCenter + DataGridViewCellStyle1.BackColor = System.Drawing.Color.FromArgb(CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer)) + Me.CodeDataGridViewTextBoxColumn.DefaultCellStyle = DataGridViewCellStyle1 + Me.CodeDataGridViewTextBoxColumn.HeaderText = "구분" + Me.CodeDataGridViewTextBoxColumn.Name = "CodeDataGridViewTextBoxColumn" + Me.CodeDataGridViewTextBoxColumn.Resizable = System.Windows.Forms.DataGridViewTriState.[False] + Me.CodeDataGridViewTextBoxColumn.Width = 54 + ' + '설명 + ' + Me.설명.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.Fill + Me.설명.DataPropertyName = "설명" + Me.설명.HeaderText = "설명" + Me.설명.Name = "설명" + ' + 'n01 + ' + Me.n01.DataPropertyName = "n01" + Me.n01.HeaderText = "0.1" + Me.n01.Name = "n01" + Me.n01.Width = 50 + ' + 'n02 + ' + Me.n02.DataPropertyName = "n02" + Me.n02.HeaderText = "0.2" + Me.n02.Name = "n02" + Me.n02.Width = 50 + ' + 'n03 + ' + Me.n03.DataPropertyName = "n03" + Me.n03.HeaderText = "0.3" + Me.n03.Name = "n03" + Me.n03.Width = 50 + ' + 'n04 + ' + Me.n04.DataPropertyName = "n04" + Me.n04.HeaderText = "0.4" + Me.n04.Name = "n04" + Me.n04.Width = 50 + ' + 'n05 + ' + Me.n05.DataPropertyName = "n05" + Me.n05.HeaderText = "0.5" + Me.n05.Name = "n05" + Me.n05.Width = 50 + ' + 'n06 + ' + Me.n06.DataPropertyName = "n06" + Me.n06.HeaderText = "0.6" + Me.n06.Name = "n06" + Me.n06.Width = 50 + ' + 'n07 + ' + Me.n07.DataPropertyName = "n07" + Me.n07.HeaderText = "0.7" + Me.n07.Name = "n07" + Me.n07.Width = 50 + ' + 'n08 + ' + Me.n08.DataPropertyName = "n08" + Me.n08.HeaderText = "0.8" + Me.n08.Name = "n08" + Me.n08.Width = 50 + ' + 'n09 + ' + Me.n09.DataPropertyName = "n09" + Me.n09.HeaderText = "0.9" + Me.n09.Name = "n09" + Me.n09.Width = 50 + ' + 'n10 + ' + Me.n10.DataPropertyName = "n10" + Me.n10.HeaderText = "1.0" + Me.n10.Name = "n10" + Me.n10.Width = 50 + ' + 'Frm_V20091231_buha + ' + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.None + Me.ClientSize = New System.Drawing.Size(654, 409) + Me.ControlBox = False + Me.Controls.Add(Me.Arindv9) + Me.Controls.Add(Me.bn_all) + Me.Font = New System.Drawing.Font("나눔고딕 ExtraBold", 8.999999!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.Name = "Frm_V20091231_buha" + Me.ShowInTaskbar = False + 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.DS, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.Arindv9, System.ComponentModel.ISupportInitialize).EndInit() + Me.ResumeLayout(False) + Me.PerformLayout() + + End Sub + Friend WithEvents bn_all As System.Windows.Forms.BindingNavigator + Friend WithEvents ToolStripLabel6 As System.Windows.Forms.ToolStripLabel + Friend WithEvents ToolStripButton44 As System.Windows.Forms.ToolStripButton + Friend WithEvents ToolStripButton45 As System.Windows.Forms.ToolStripButton + Friend WithEvents ToolStripSeparator25 As System.Windows.Forms.ToolStripSeparator + Friend WithEvents ToolStripTextBox6 As System.Windows.Forms.ToolStripTextBox + Friend WithEvents ToolStripSeparator26 As System.Windows.Forms.ToolStripSeparator + Friend WithEvents ToolStripButton46 As System.Windows.Forms.ToolStripButton + Friend WithEvents ToolStripButton47 As System.Windows.Forms.ToolStripButton + Friend WithEvents ToolStripSeparator27 As System.Windows.Forms.ToolStripSeparator + Friend WithEvents ToolStripButton48 As System.Windows.Forms.ToolStripButton + Friend WithEvents ToolStripButton49 As System.Windows.Forms.ToolStripButton + Friend WithEvents ToolStripSeparator28 As System.Windows.Forms.ToolStripSeparator + Friend WithEvents ToolStripButton51 As System.Windows.Forms.ToolStripButton + Friend WithEvents Arindv9 As CEnergy.arindv + Public WithEvents DS As Eco2Ar.DS + Friend WithEvents bs As System.Windows.Forms.BindingSource + Friend WithEvents CodeDataGridViewTextBoxColumn As System.Windows.Forms.DataGridViewTextBoxColumn + Friend WithEvents 설명 As System.Windows.Forms.DataGridViewTextBoxColumn + Friend WithEvents n01 As System.Windows.Forms.DataGridViewTextBoxColumn + Friend WithEvents n02 As System.Windows.Forms.DataGridViewTextBoxColumn + Friend WithEvents n03 As System.Windows.Forms.DataGridViewTextBoxColumn + Friend WithEvents n04 As System.Windows.Forms.DataGridViewTextBoxColumn + Friend WithEvents n05 As System.Windows.Forms.DataGridViewTextBoxColumn + Friend WithEvents n06 As System.Windows.Forms.DataGridViewTextBoxColumn + Friend WithEvents n07 As System.Windows.Forms.DataGridViewTextBoxColumn + Friend WithEvents n08 As System.Windows.Forms.DataGridViewTextBoxColumn + Friend WithEvents n09 As System.Windows.Forms.DataGridViewTextBoxColumn + Friend WithEvents n10 As System.Windows.Forms.DataGridViewTextBoxColumn +End Class diff --git a/ArinWarev1/Forms/v20091231/Frm_v20091231_buha.resx b/ArinWarev1/Forms/v20091231/Frm_v20091231_buha.resx new file mode 100644 index 0000000..169aa18 --- /dev/null +++ b/ArinWarev1/Forms/v20091231/Frm_v20091231_buha.resx @@ -0,0 +1,252 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + 286, 17 + + + 222, 17 + + + 370, 17 + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAACBjSFJNAAB6 + JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAAACXBIWXMAAA64AAAOuAFqQfVbAAABKklE + 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 + JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAAACXBIWXMAAA64AAAOuAFqQfVbAAAAtklE + 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 + JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAAACXBIWXMAAA64AAAOuAFqQfVbAAAAo0lE + 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 + JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAAACXBIWXMAAA64AAAOuAFqQfVbAAABLElE + 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 + JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAAACXBIWXMAAA64AAAOuAFqQfVbAAABSklE + 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 + JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAAACXBIWXMAAA64AAAOuAFqQfVbAAABb0lE + QVQ4T7WQTSjDYRzHd1XeSu3iglo5IJO8hGQypLHIhMjMJAcOi4R2cXAg5UIOuEgOJCXlROI0b/Pamlp/ + LVLaBf+4PB9jqLW/seJ7eep5vt/P7/v8VH8iXCfQbQTHDh9XkYmVeURnFcKsh631sBC8HliaCfawtgC9 + JkS7HtFRAXMTipC3hsJcBiM9oe+cOgKQumxEYwHYmoJMYsiKMOXCpD1sQxWL04jK1HcQw1Zwn8FYfwDq + Pz9s4YXHBc3FgS8ZsxD1edDX8rvwp9jf9VfOQxjSoUYbYfhGgsZCyElA1sbzoI2F2uxf1r+5BlM+FCXi + sxjg4uh9uXdpfsjy7A8LvL+DVh2PJUm4S9Px7W1/BRi14dTEIJ8cKEN4eYZBC+iSOU5T49tYDTHelmcg + tVUje69DIexuIueqcaZEIXU1gPykOGlHE4fsdCgApkaQUqNx6zNBulKu6Zds74bzQwXApRPGB+Bw79vw + P0ilegWKIwMchCbSyQAAAABJRU5ErkJggg== + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8 + YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAJ2SURBVDhPjVNdSJNhFH5bXdmFRFFeREQXRfQDJRlWZLra + mrOIDCEqQmrlTKkoIaHZoEKK1sAVS1dYiJCaCZUkKCRL20WmrXJ61U0UXhSMuen+n97n3adkdtGBw3u+ + c57nOed83/uJv+2BEIZGIRzy9MkzSNdi5gwabL65hVgt/Y4ETn51XEfkvRfpnz+UM2aONWKI1WgZY0IW + WwKXK5D8/A742A/0tQKvmjLOeOSNqhFD7BwRqgYuWgC/F8nuZnwqP4y2lSvgWajDQPFuTD26AXS6gF4p + 5H8LYslRZG3nyaSvB4nO+/CZC9jB6RFi/TUhFsnY/qGsGOl2Z0ak5wkSvtdqHfVOZOAYr6lAqr0B/qMm + RZaeRXF51vlK9iDW/wLpLjeij+uBZw1IyUbjlyzEOjiBb6L2FFLuWrTlLAU7z5AH9+1ArLcDqZcPMWY5 + QkJwrPwgkhI7cdUCcgkMTtVbkbh7Hh6dDtrYdQOF2xDtbpWTuRA4YcY9IX7JvfOer8pBUmIjt6qUoBKI + 2E4icdMCb/4GJu2DBVsw3dWMZMttjJbpFVlOlktxNolLLDlKgGN8LzcibjuGUPUBDOlzMd3RiITHjtFD + u2bJXIvrtS3LltjjIGdmBcdw4SbELpQgWmVC3G1D3HUFo+a8OWSJy5LuHCnajFhNKcghd/Yzhq1GRCsN + iFabELLuV+NxZzW27EzywNY1iMgm4Uoj65nPSOOlGMpfi+g5TUSCvug3onN5Npp0C/B0yWIM71yHyNm9 + qk7s7EWiyQd1lVkIn8mA/uVhi16RiSVHo2eMCapyNHb7VrododNFyhkzxxox88h/mvZO/vN3FuI3yXDJ + RlfZIFMAAAAASUVORK5CYII= + + + + True + + + True + + + True + + + True + + + True + + + True + + + True + + + True + + + True + + + True + + + True + + + 38 + + \ No newline at end of file diff --git a/ArinWarev1/Forms/v20091231/Frm_v20091231_buha.vb b/ArinWarev1/Forms/v20091231/Frm_v20091231_buha.vb new file mode 100644 index 0000000..b2a7c74 --- /dev/null +++ b/ArinWarev1/Forms/v20091231/Frm_v20091231_buha.vb @@ -0,0 +1,130 @@ +Public Class Frm_V20091231_buha + +#Region "data Base 변경여부및 적용방법" + + '''변경된내용을적용한다. + Public Overrides Function AcceptChanged() As Boolean + bs.EndEdit() + Dim BaseDS As DataSet = CType(bs.DataSource, DataSet) + Dim BaseDT As DataTable = BaseDS.Tables(bs.DataMember) + BaseDT.AcceptChanges() + Return True + End Function + + '''변경된내용이있다면 취소한다. + Public Overrides Function RejectChanged() As Boolean + Dim BaseDS As DataSet = CType(bs.DataSource, DataSet) + Dim BaseDT As DataTable = BaseDS.Tables(bs.DataMember) + BaseDT.RejectChanges() + Return True + End Function + + '''데이터에변형이있었는가? + Public Overrides Function HasChanged() As Boolean + bs.EndEdit() + Dim BaseDS As DataSet = CType(bs.DataSource, DataSet) + Dim BaseDT As DataTable = BaseDS.Tables(bs.DataMember) + Dim ChangeDT As DataTable = BaseDT.GetChanges + If Not ChangeDT Is Nothing Then Return True + Return False + End Function + + '''기본데이터테이블을 반환합니다. + Public Function DT() As DataTable + Dim BaseDS As DataSet = CType(bs.DataSource, DataSet) + Return BaseDS.Tables(bs.DataMember) + End Function + + +#End Region + + + + Private Sub MdiMain_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown + Select Case e.KeyCode + Case Keys.F12 + End Select + End Sub + + Private Sub MdiMain_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load + 'MdiMain.Toggle_Menu_Color(MdiMain.E_MenuIdx.부분부하율) + 'CEnergy.ARINCLASS.SaveLoad_FrmSetting(Me) + '//프로필 관련 + + '//공유데이터셋에 연결한다. + Me.bs.DataSource = DSET + + '//냉방기기 + AddHandler DSET.tbl_buha.TableNewRow, AddressOf AddNewDataRow_nangbangkiki + + '//콤보컨트롤 바인딩 + Binding_Zone() + + Try + Me.bs.Position = CEnergy.ARINCLASS.Read_LastPos_Frm(Me) + Catch ex As Exception + Me.bs.MoveFirst() + End Try + End Sub + + +#Region "냉방기기" + Private Sub MdiMain_FormClosed(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosedEventArgs) Handles Me.FormClosed + CEnergy.ARINCLASS.SaveLoad_FrmSetting(Me, Me.bs.Position, True) + End Sub + Private Function GetMaxCode(ByVal dt As DataTable) As String + Try + Dim Dr As DataRow = dt.Select("", "code desc")(0) + Return Format(CInt(Dr("code")) + 1, "0000") + Catch ex As Exception + Return "0001" + End Try + End Function + + Private Sub Cmb_DeleteVal(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) + If e.KeyCode = Keys.Delete Then + CType(sender, ComboBox).SelectedValue = "" + End If + End Sub + + Private Sub Binding_Zone() + '//냉동기기 + 'Dim bs_냉동기방식ComboBox As New BindingSource(DSET, "tbl_common") + 'bs_냉동기방식ComboBox.Filter = "gubun='1046'" + 'Me.냉동기방식ComboBox.DataSource = bs_냉동기방식ComboBox + '냉동기방식ComboBox.DisplayMember = "name" + '냉동기방식ComboBox.ValueMember = "code" + 'Me.냉동기방식ComboBox.DataBindings.Add("text", Me.bs, "냉동기방식") + 'AddHandler 냉동기방식ComboBox.KeyDown, AddressOf Cmb_DeleteVal + + End Sub + Private Sub AddNewDataRow_nangbangkiki(ByVal sender As Object, ByVal e As System.Data.DataTableNewRowEventArgs) + e.Row.Item("code") = GetMaxCode(DSET.tbl_buha) + End Sub + Private Sub ToolStripButton48_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton48.Click + + If Not EndEdit(Me.bs) Then Return + Me.bs.AddNew() + + End Sub + Private Sub ToolStripButton49_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton49.Click + + DbBase.DelCrow(Me.bs, True) + + End Sub + + Private Sub ToolStripButton51_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton51.Click + + If Not EndEdit(Me.bs) Then Return + Data_Cancel(DSET.tbl_buha, Nothing) + + End Sub +#End Region + Private Sub bs_CurrentChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bs.CurrentChanged + Me.bs.EndEdit() + End Sub + + Private Sub Arindv9_CellContentClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles Arindv9.CellContentClick + + End Sub +End Class \ No newline at end of file diff --git a/ArinWarev1/Forms/v20091231/Frm_v20091231_kongjo.Designer.vb b/ArinWarev1/Forms/v20091231/Frm_v20091231_kongjo.Designer.vb new file mode 100644 index 0000000..6588ef8 --- /dev/null +++ b/ArinWarev1/Forms/v20091231/Frm_v20091231_kongjo.Designer.vb @@ -0,0 +1,906 @@ + _ +Partial Class Frm_V20091231_Kongjo + Inherits MMM.FaderForm + + 'Form은 Dispose를 재정의하여 구성 요소 목록을 정리합니다. + _ + Protected Overrides Sub Dispose(ByVal disposing As Boolean) + Try + If disposing AndAlso components IsNot Nothing Then + components.Dispose() + End If + Finally + MyBase.Dispose(disposing) + End Try + End Sub + + 'Windows Form 디자이너에 필요합니다. + Private components As System.ComponentModel.IContainer + + '참고: 다음 프로시저는 Windows Form 디자이너에 필요합니다. + '수정하려면 Windows Form 디자이너를 사용하십시오. + '코드 편집기를 사용하여 수정하지 마십시오. + _ + 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 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 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 resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(Frm_V20091231_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 + 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 + Me.bt_Del = New System.Windows.Forms.ToolStripButton + Me.bt_cancel = New System.Windows.Forms.ToolStripButton + Me.ToolStripSeparator1 = New System.Windows.Forms.ToolStripSeparator + Me.lbl_pos = New System.Windows.Forms.ToolStripLabel + Me.Label15 = New System.Windows.Forms.Label + Me.PictureBox4 = New System.Windows.Forms.PictureBox + Me.GroupBox2 = New System.Windows.Forms.GroupBox + Me.PictureBox2 = New System.Windows.Forms.PictureBox + Me.GroupBox1 = New System.Windows.Forms.GroupBox + Me.PictureBox1 = New System.Windows.Forms.PictureBox + Me.Panel1 = New System.Windows.Forms.Panel + Me.TextBox1 = New System.Windows.Forms.TextBox + Me.Label2 = New System.Windows.Forms.Label + Me.Tb_배기팬동력 = New Eco2Ar.MyTb + Me.Tb_급기팬동력 = New Eco2Ar.MyTb + Me.Tb_배기팬효율 = New Eco2Ar.MyTb + Me.Tb_배기풍량 = New Eco2Ar.MyTb + Me.Tb_급기팬효율 = New Eco2Ar.MyTb + Me.Tb_배기팬압력손실 = New Eco2Ar.MyTb + Me.Tb_급기풍량 = New Eco2Ar.MyTb + Me.Tb_급기팬압력손실 = New Eco2Ar.MyTb + Me.Cmb_팬효율산출방식 = New Eco2Ar.MyCmb + Me.tb_13 = New Eco2Ar.MyTb + Me.열교환기유형ComboBox = New Eco2Ar.MyCmb + Me.공조방식NCMB = New Eco2Ar.MyCmb + Me.리턴공기혼합여부ComboBox = New Eco2Ar.MyCmb + Me.가습기유형ComboBox = New Eco2Ar.MyCmb + Me.tb_08 = New Eco2Ar.MyTb + Me.tb_01 = New Eco2Ar.MyTb + Me.외기냉방제어유무ComboBox = New Eco2Ar.MyCmb + Me.tb_02 = New Eco2Ar.MyTb + Me.tb_03 = New Eco2Ar.MyTb + 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 + Label176 = New System.Windows.Forms.Label + Label167 = New System.Windows.Forms.Label + Label168 = New System.Windows.Forms.Label + Label1 = 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 + CType(Me.ErrProvider, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.bsmain, 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() + CType(Me.PictureBox4, System.ComponentModel.ISupportInitialize).BeginInit() + Me.GroupBox2.SuspendLayout() + CType(Me.PictureBox2, System.ComponentModel.ISupportInitialize).BeginInit() + Me.GroupBox1.SuspendLayout() + CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit() + Me.Panel1.SuspendLayout() + Me.SuspendLayout() + ' + '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(120, 28) + 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(55, 14) + 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(120, 28) + 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(128, 14) + 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(105, 14) + 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(69, 14) + 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(105, 14) + 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(12, 267) + Label179.Name = "Label179" + Label179.Size = New System.Drawing.Size(81, 14) + 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(12, 239) + Label178.Name = "Label178" + Label178.Size = New System.Drawing.Size(81, 14) + 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(12, 210) + Label177.Name = "Label177" + Label177.Size = New System.Drawing.Size(113, 14) + Label177.TabIndex = 10 + Label177.Text = "배기팬 압력손실[Pa]:" + Label177.TextAlign = System.Drawing.ContentAlignment.MiddleCenter + ' + 'Label176 + ' + Label176.AutoSize = True + Label176.BackColor = System.Drawing.Color.FromArgb(CType(CType(243, Byte), Integer), CType(CType(244, Byte), Integer), CType(CType(246, Byte), Integer)) + Label176.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label176.Location = New System.Drawing.Point(12, 182) + Label176.Name = "Label176" + Label176.Size = New System.Drawing.Size(113, 14) + Label176.TabIndex = 10 + Label176.Text = "급기팬 압력손실[Pa]:" + Label176.TextAlign = System.Drawing.ContentAlignment.MiddleCenter + ' + '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(93, 14) + Label167.TabIndex = 10 + Label167.Text = "열회수율(난방)[-]" + ' + '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(80, 14) + Label168.TabIndex = 10 + Label168.Text = "열교환기 유형:" + ' + 'Label1 + ' + 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(93, 14) + Label1.TabIndex = 14 + Label1.Text = "열회수율(냉방)[-]" + ' + 'Label3 + ' + Label3.AutoSize = True + Label3.BackColor = System.Drawing.Color.FromArgb(CType(CType(243, Byte), Integer), CType(CType(244, Byte), Integer), CType(CType(246, Byte), Integer)) + Label3.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label3.Location = New System.Drawing.Point(12, 27) + Label3.Name = "Label3" + Label3.Size = New System.Drawing.Size(91, 14) + Label3.TabIndex = 8 + Label3.Text = "팬효율 산출방식:" + Label3.TextAlign = System.Drawing.ContentAlignment.MiddleRight + ' + 'Label4 + ' + Label4.AutoSize = True + Label4.BackColor = System.Drawing.Color.FromArgb(CType(CType(243, Byte), Integer), CType(CType(244, Byte), Integer), CType(CType(246, Byte), Integer)) + Label4.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label4.Location = New System.Drawing.Point(12, 153) + Label4.Name = "Label4" + Label4.Size = New System.Drawing.Size(95, 14) + Label4.TabIndex = 10 + Label4.Text = "배기팬 동력[kW]:" + Label4.TextAlign = System.Drawing.ContentAlignment.MiddleCenter + ' + 'Label5 + ' + 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(12, 125) + Label5.Name = "Label5" + Label5.Size = New System.Drawing.Size(95, 14) + Label5.TabIndex = 10 + Label5.Text = "급기팬 동력[kW]:" + Label5.TextAlign = System.Drawing.ContentAlignment.MiddleCenter + ' + 'Label6 + ' + 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(12, 96) + Label6.Name = "Label6" + Label6.Size = New System.Drawing.Size(95, 14) + Label6.TabIndex = 10 + Label6.Text = "배기 풍량[CMH]:" + Label6.TextAlign = System.Drawing.ContentAlignment.MiddleCenter + ' + 'Label7 + ' + 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(12, 68) + Label7.Name = "Label7" + Label7.Size = New System.Drawing.Size(95, 14) + Label7.TabIndex = 10 + Label7.Text = "급기 풍량[CMH]:" + Label7.TextAlign = System.Drawing.ContentAlignment.MiddleCenter + ' + '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(328, 5) + Me.tb_zone_cnt.Name = "tb_zone_cnt" + Me.tb_zone_cnt.Size = New System.Drawing.Size(40, 21) + Me.tb_zone_cnt.TabIndex = 1 + Me.tb_zone_cnt.Text = "0" + Me.tb_zone_cnt.TextAlign = System.Windows.Forms.HorizontalAlignment.Center + ' + '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(228, 8) + Me.Label48.Name = "Label48" + Me.Label48.Size = New System.Drawing.Size(94, 14) + Me.Label48.TabIndex = 0 + Me.Label48.Text = "적용된 입력존 수:" + Me.Label48.TextAlign = System.Drawing.ContentAlignment.MiddleRight + ' + '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, 30) + 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.BackColor = System.Drawing.Color.White + Me.SplitContainer1.Panel2.Controls.Add(Me.Label15) + Me.SplitContainer1.Panel2.Controls.Add(Me.PictureBox4) + Me.SplitContainer1.Panel2.Controls.Add(Me.GroupBox2) + Me.SplitContainer1.Panel2.Controls.Add(Me.GroupBox1) + Me.SplitContainer1.Panel2.Controls.Add(Me.Panel1) + Me.SplitContainer1.Size = New System.Drawing.Size(795, 535) + Me.SplitContainer1.SplitterDistance = 209 + Me.SplitContainer1.TabIndex = 127 + ' + 'dv + ' + Me.dv.A_DelCurrentCell = True + Me.dv.A_EnterToTab = True + 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.FromArgb(CType(CType(245, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(246, Byte), Integer)) + Me.dv.BorderStyle = System.Windows.Forms.BorderStyle.None + Me.dv.ColumnHeadersHeight = 30 + Me.dv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.DisableResizing + Me.dv.Columns.AddRange(New System.Windows.Forms.DataGridViewColumn() {Me.DataGridViewTextBoxColumn1}) + Me.dv.DataSource = Me.bs + Me.dv.Location = New System.Drawing.Point(0, 0) + Me.dv.Margin = New System.Windows.Forms.Padding(3, 5, 3, 5) + 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, 493) + Me.dv.TabIndex = 0 + ' + 'DataGridViewTextBoxColumn1 + ' + Me.DataGridViewTextBoxColumn1.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.Fill + Me.DataGridViewTextBoxColumn1.DataPropertyName = "설명" + Me.DataGridViewTextBoxColumn1.HeaderText = "설명" + Me.DataGridViewTextBoxColumn1.Name = "DataGridViewTextBoxColumn1" + ' + 'bs + ' + Me.bs.DataMember = "tbl_kongjo" + Me.bs.DataSource = Me.DS + Me.bs.Filter = "code <> '0'" + ' + 'DS + ' + 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("나눔고딕 ExtraBold", 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.bn.Location = New System.Drawing.Point(0, 493) + 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(207, 40) + Me.bn.TabIndex = 1 + Me.bn.Text = "BindingNavigator1" + ' + 'lbl_count + ' + Me.lbl_count.Name = "lbl_count" + Me.lbl_count.Size = New System.Drawing.Size(27, 37) + 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, 37) + 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, 37) + 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, 37) + Me.bt_cancel.Text = "변경취소(&C)" + Me.bt_cancel.ToolTipText = "변경된 내용을 되돌립니다" + ' + 'ToolStripSeparator1 + ' + Me.ToolStripSeparator1.Name = "ToolStripSeparator1" + Me.ToolStripSeparator1.Size = New System.Drawing.Size(6, 40) + ' + 'lbl_pos + ' + Me.lbl_pos.Name = "lbl_pos" + Me.lbl_pos.Size = New System.Drawing.Size(14, 37) + Me.lbl_pos.Text = "0" + ' + 'Label15 + ' + Me.Label15.AutoSize = True + Me.Label15.BackColor = System.Drawing.Color.FromArgb(CType(CType(116, Byte), Integer), CType(CType(158, Byte), Integer), CType(CType(209, Byte), Integer)) + Me.Label15.ForeColor = System.Drawing.Color.White + Me.Label15.Location = New System.Drawing.Point(39, 54) + Me.Label15.Name = "Label15" + Me.Label15.Size = New System.Drawing.Size(51, 14) + Me.Label15.TabIndex = 154 + Me.Label15.Text = "공조처리" + ' + 'PictureBox4 + ' + Me.PictureBox4.BackgroundImage = CType(resources.GetObject("PictureBox4.BackgroundImage"), System.Drawing.Image) + Me.PictureBox4.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch + Me.PictureBox4.Location = New System.Drawing.Point(20, 43) + Me.PictureBox4.Name = "PictureBox4" + Me.PictureBox4.Size = New System.Drawing.Size(131, 30) + Me.PictureBox4.TabIndex = 153 + Me.PictureBox4.TabStop = False + ' + 'GroupBox2 + ' + Me.GroupBox2.Controls.Add(Me.Tb_배기팬동력) + Me.GroupBox2.Controls.Add(Me.Tb_급기팬동력) + Me.GroupBox2.Controls.Add(Me.Tb_배기팬효율) + Me.GroupBox2.Controls.Add(Me.Tb_배기풍량) + Me.GroupBox2.Controls.Add(Me.Tb_급기팬효율) + Me.GroupBox2.Controls.Add(Label7) + Me.GroupBox2.Controls.Add(Me.Tb_배기팬압력손실) + Me.GroupBox2.Controls.Add(Me.Tb_급기풍량) + Me.GroupBox2.Controls.Add(Label176) + Me.GroupBox2.Controls.Add(Label6) + Me.GroupBox2.Controls.Add(Me.Tb_급기팬압력손실) + Me.GroupBox2.Controls.Add(Label177) + Me.GroupBox2.Controls.Add(Label5) + Me.GroupBox2.Controls.Add(Label3) + Me.GroupBox2.Controls.Add(Label4) + Me.GroupBox2.Controls.Add(Label178) + Me.GroupBox2.Controls.Add(Label179) + Me.GroupBox2.Controls.Add(Me.Cmb_팬효율산출방식) + Me.GroupBox2.Controls.Add(Me.PictureBox2) + Me.GroupBox2.Location = New System.Drawing.Point(285, 71) + Me.GroupBox2.Name = "GroupBox2" + Me.GroupBox2.Size = New System.Drawing.Size(270, 322) + Me.GroupBox2.TabIndex = 5 + Me.GroupBox2.TabStop = False + ' + 'PictureBox2 + ' + Me.PictureBox2.BackColor = System.Drawing.Color.FromArgb(CType(CType(243, Byte), Integer), CType(CType(244, Byte), Integer), CType(CType(246, Byte), Integer)) + Me.PictureBox2.Location = New System.Drawing.Point(0, 9) + Me.PictureBox2.Name = "PictureBox2" + Me.PictureBox2.Size = New System.Drawing.Size(268, 309) + Me.PictureBox2.TabIndex = 11 + Me.PictureBox2.TabStop = False + ' + 'GroupBox1 + ' + 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(Label175) + Me.GroupBox1.Controls.Add(Label170) + Me.GroupBox1.Controls.Add(Label168) + Me.GroupBox1.Controls.Add(Label173) + Me.GroupBox1.Controls.Add(Label172) + Me.GroupBox1.Controls.Add(Label167) + Me.GroupBox1.Controls.Add(Me.공조방식NCMB) + Me.GroupBox1.Controls.Add(Label171) + Me.GroupBox1.Controls.Add(Me.리턴공기혼합여부ComboBox) + Me.GroupBox1.Controls.Add(Me.가습기유형ComboBox) + Me.GroupBox1.Controls.Add(Me.tb_08) + Me.GroupBox1.Controls.Add(Me.tb_01) + Me.GroupBox1.Controls.Add(Me.외기냉방제어유무ComboBox) + Me.GroupBox1.Controls.Add(Me.tb_02) + Me.GroupBox1.Controls.Add(Me.tb_03) + Me.GroupBox1.Controls.Add(Me.PictureBox1) + Me.GroupBox1.Location = New System.Drawing.Point(20, 71) + Me.GroupBox1.Name = "GroupBox1" + Me.GroupBox1.Size = New System.Drawing.Size(268, 322) + Me.GroupBox1.TabIndex = 5 + Me.GroupBox1.TabStop = False + ' + 'PictureBox1 + ' + 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(263, 309) + Me.PictureBox1.TabIndex = 11 + Me.PictureBox1.TabStop = False + ' + 'Panel1 + ' + Me.Panel1.BackColor = System.Drawing.Color.FromArgb(CType(CType(243, Byte), Integer), CType(CType(244, Byte), Integer), CType(CType(246, Byte), Integer)) + Me.Panel1.Controls.Add(Me.TextBox1) + Me.Panel1.Controls.Add(Me.tb_zone_cnt) + Me.Panel1.Controls.Add(Me.Label2) + Me.Panel1.Controls.Add(Me.Label48) + Me.Panel1.Dock = System.Windows.Forms.DockStyle.Top + Me.Panel1.Location = New System.Drawing.Point(0, 0) + Me.Panel1.Name = "Panel1" + Me.Panel1.Size = New System.Drawing.Size(580, 30) + Me.Panel1.TabIndex = 4 + ' + 'TextBox1 + ' + Me.TextBox1.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.TextBox1.BackColor = System.Drawing.SystemColors.GrayText + Me.TextBox1.ForeColor = System.Drawing.Color.White + Me.TextBox1.Location = New System.Drawing.Point(495, 5) + Me.TextBox1.Name = "TextBox1" + Me.TextBox1.Size = New System.Drawing.Size(74, 21) + Me.TextBox1.TabIndex = 1 + Me.TextBox1.Text = "0" + Me.TextBox1.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) + Me.Label2.AutoSize = True + Me.Label2.ForeColor = System.Drawing.Color.DarkCyan + Me.Label2.Location = New System.Drawing.Point(383, 8) + Me.Label2.Name = "Label2" + Me.Label2.Size = New System.Drawing.Size(106, 14) + Me.Label2.TabIndex = 0 + Me.Label2.Text = "적용된 면적합(m2):" + Me.Label2.TextAlign = System.Drawing.ContentAlignment.MiddleRight + ' + 'Tb_배기팬동력 + ' + Me.Tb_배기팬동력.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bs, "배기팬동력", True)) + Me.Tb_배기팬동력.Location = New System.Drawing.Point(145, 150) + Me.Tb_배기팬동력.Name = "Tb_배기팬동력" + Me.Tb_배기팬동력.NectControl = Nothing + Me.Tb_배기팬동력.Size = New System.Drawing.Size(119, 21) + Me.Tb_배기팬동력.TabIndex = 14 + 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(145, 122) + 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_배기팬효율 + ' + Me.Tb_배기팬효율.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bs, "총효율배기팬", True)) + Me.Tb_배기팬효율.Location = New System.Drawing.Point(145, 264) + Me.Tb_배기팬효율.Name = "Tb_배기팬효율" + Me.Tb_배기팬효율.NectControl = Nothing + Me.Tb_배기팬효율.Size = New System.Drawing.Size(119, 21) + Me.Tb_배기팬효율.TabIndex = 18 + 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(145, 94) + 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 + ' + 'Tb_급기팬효율 + ' + Me.Tb_급기팬효율.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bs, "총효율급기팬", True)) + Me.Tb_급기팬효율.Location = New System.Drawing.Point(145, 236) + Me.Tb_급기팬효율.Name = "Tb_급기팬효율" + Me.Tb_급기팬효율.NectControl = Nothing + Me.Tb_급기팬효율.Size = New System.Drawing.Size(119, 21) + Me.Tb_급기팬효율.TabIndex = 17 + 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(145, 208) + Me.Tb_배기팬압력손실.Name = "Tb_배기팬압력손실" + Me.Tb_배기팬압력손실.NectControl = Nothing + Me.Tb_배기팬압력손실.Size = New System.Drawing.Size(119, 21) + Me.Tb_배기팬압력손실.TabIndex = 16 + 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(145, 66) + Me.Tb_급기풍량.Name = "Tb_급기풍량" + Me.Tb_급기풍량.NectControl = Nothing + Me.Tb_급기풍량.Size = New System.Drawing.Size(119, 21) + Me.Tb_급기풍량.TabIndex = 11 + 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(145, 180) + Me.Tb_급기팬압력손실.Name = "Tb_급기팬압력손실" + Me.Tb_급기팬압력손실.NectControl = Nothing + Me.Tb_급기팬압력손실.Size = New System.Drawing.Size(119, 21) + Me.Tb_급기팬압력손실.TabIndex = 15 + Me.Tb_급기팬압력손실.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + ' + 'Cmb_팬효율산출방식 + ' + 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(145, 24) + Me.Cmb_팬효율산출방식.Name = "Cmb_팬효율산출방식" + Me.Cmb_팬효율산출방식.NectControl = Nothing + Me.Cmb_팬효율산출방식.Size = New System.Drawing.Size(119, 22) + Me.Cmb_팬효율산출방식.TabIndex = 10 + ' + 'tb_13 + ' + Me.tb_13.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bs, "열회수율냉", True)) + Me.tb_13.Location = New System.Drawing.Point(140, 276) + Me.tb_13.Name = "tb_13" + Me.tb_13.NectControl = Nothing + Me.tb_13.Size = New System.Drawing.Size(119, 21) + Me.tb_13.TabIndex = 9 + Me.tb_13.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + ' + '열교환기유형ComboBox + ' + Me.열교환기유형ComboBox.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList + Me.열교환기유형ComboBox.FormattingEnabled = True + Me.열교환기유형ComboBox.Location = New System.Drawing.Point(140, 223) + Me.열교환기유형ComboBox.Name = "열교환기유형ComboBox" + Me.열교환기유형ComboBox.NectControl = Nothing + Me.열교환기유형ComboBox.Size = New System.Drawing.Size(119, 22) + Me.열교환기유형ComboBox.TabIndex = 7 + ' + '공조방식NCMB + ' + Me.공조방식NCMB.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList + Me.공조방식NCMB.FormattingEnabled = True + Me.공조방식NCMB.Location = New System.Drawing.Point(140, 24) + Me.공조방식NCMB.Name = "공조방식NCMB" + Me.공조방식NCMB.NectControl = Nothing + Me.공조방식NCMB.Size = New System.Drawing.Size(119, 22) + Me.공조방식NCMB.TabIndex = 0 + ' + '리턴공기혼합여부ComboBox + ' + Me.리턴공기혼합여부ComboBox.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList + Me.리턴공기혼합여부ComboBox.FormattingEnabled = True + Me.리턴공기혼합여부ComboBox.Location = New System.Drawing.Point(140, 135) + Me.리턴공기혼합여부ComboBox.Name = "리턴공기혼합여부ComboBox" + Me.리턴공기혼합여부ComboBox.NectControl = Nothing + Me.리턴공기혼합여부ComboBox.Size = New System.Drawing.Size(119, 22) + Me.리턴공기혼합여부ComboBox.TabIndex = 4 + ' + '가습기유형ComboBox + ' + Me.가습기유형ComboBox.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList + Me.가습기유형ComboBox.FormattingEnabled = True + Me.가습기유형ComboBox.Location = New System.Drawing.Point(140, 163) + Me.가습기유형ComboBox.Name = "가습기유형ComboBox" + Me.가습기유형ComboBox.NectControl = Nothing + Me.가습기유형ComboBox.Size = New System.Drawing.Size(119, 22) + Me.가습기유형ComboBox.TabIndex = 5 + ' + 'tb_08 + ' + Me.tb_08.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bs, "열회수율", True)) + Me.tb_08.Location = New System.Drawing.Point(140, 250) + Me.tb_08.Name = "tb_08" + Me.tb_08.NectControl = Nothing + Me.tb_08.Size = New System.Drawing.Size(119, 21) + Me.tb_08.TabIndex = 8 + Me.tb_08.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + ' + 'tb_01 + ' + Me.tb_01.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bs, "설정치난방", True)) + Me.tb_01.Location = New System.Drawing.Point(140, 51) + Me.tb_01.Name = "tb_01" + Me.tb_01.NectControl = Nothing + Me.tb_01.Size = New System.Drawing.Size(119, 21) + Me.tb_01.TabIndex = 1 + Me.tb_01.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + ' + '외기냉방제어유무ComboBox + ' + Me.외기냉방제어유무ComboBox.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList + Me.외기냉방제어유무ComboBox.FormattingEnabled = True + Me.외기냉방제어유무ComboBox.Location = New System.Drawing.Point(140, 194) + Me.외기냉방제어유무ComboBox.Name = "외기냉방제어유무ComboBox" + Me.외기냉방제어유무ComboBox.NectControl = Nothing + Me.외기냉방제어유무ComboBox.Size = New System.Drawing.Size(119, 22) + Me.외기냉방제어유무ComboBox.TabIndex = 6 + ' + 'tb_02 + ' + Me.tb_02.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bs, "설정치냉방", True)) + Me.tb_02.Location = New System.Drawing.Point(140, 79) + Me.tb_02.Name = "tb_02" + Me.tb_02.NectControl = Nothing + Me.tb_02.Size = New System.Drawing.Size(119, 21) + Me.tb_02.TabIndex = 2 + Me.tb_02.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + ' + 'tb_03 + ' + Me.tb_03.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bs, "최대풍량", True)) + Me.tb_03.Location = New System.Drawing.Point(140, 107) + Me.tb_03.Name = "tb_03" + Me.tb_03.NectControl = Nothing + Me.tb_03.Size = New System.Drawing.Size(119, 21) + Me.tb_03.TabIndex = 3 + Me.tb_03.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + ' + 'Frm_V20091231_Kongjo + ' + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.None + Me.ClientSize = New System.Drawing.Size(795, 565) + Me.Controls.Add(Me.SplitContainer1) + Me.Font = New System.Drawing.Font("나눔고딕 ExtraBold", 8.999999!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.KeyPreview = True + Me.Name = "Frm_V20091231_Kongjo" + Me.ShowInTaskbar = False + Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen + Me.Text = "공조처리시스템" + Me.Controls.SetChildIndex(Me.SplitContainer1, 0) + CType(Me.ErrProvider, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.bsmain, System.ComponentModel.ISupportInitialize).EndInit() + Me.SplitContainer1.Panel1.ResumeLayout(False) + Me.SplitContainer1.Panel2.ResumeLayout(False) + Me.SplitContainer1.Panel2.PerformLayout() + 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() + CType(Me.PictureBox4, System.ComponentModel.ISupportInitialize).EndInit() + Me.GroupBox2.ResumeLayout(False) + Me.GroupBox2.PerformLayout() + CType(Me.PictureBox2, System.ComponentModel.ISupportInitialize).EndInit() + Me.GroupBox1.ResumeLayout(False) + Me.GroupBox1.PerformLayout() + CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).EndInit() + Me.Panel1.ResumeLayout(False) + Me.Panel1.PerformLayout() + Me.ResumeLayout(False) + + End Sub + Friend WithEvents 공조방식NCMB As MyCmb + Friend WithEvents 열교환기유형ComboBox As MyCmb + Friend WithEvents 외기냉방제어유무ComboBox As MyCmb + Friend WithEvents 가습기유형ComboBox As MyCmb + Friend WithEvents 리턴공기혼합여부ComboBox As MyCmb + Friend WithEvents Tb_배기팬효율 As MyTb + Friend WithEvents Tb_급기팬효율 As MyTb + Friend WithEvents Tb_배기팬압력손실 As MyTb + Friend WithEvents Tb_급기팬압력손실 As MyTb + Friend WithEvents tb_08 As MyTb + Friend WithEvents tb_03 As MyTb + Friend WithEvents tb_02 As MyTb + Friend WithEvents tb_01 As MyTb + Public WithEvents DS As Eco2Ar.DS + Friend WithEvents bs As System.Windows.Forms.BindingSource + Friend WithEvents tb_zone_cnt As System.Windows.Forms.TextBox + Friend WithEvents Label48 As System.Windows.Forms.Label + Friend WithEvents SplitContainer1 As System.Windows.Forms.SplitContainer + Friend WithEvents dv As CEnergy.arindv + Friend WithEvents DataGridViewTextBoxColumn1 As System.Windows.Forms.DataGridViewTextBoxColumn + Friend WithEvents bn As System.Windows.Forms.BindingNavigator + Friend WithEvents bt_add As System.Windows.Forms.ToolStripButton + Friend WithEvents bt_Del As System.Windows.Forms.ToolStripButton + Friend WithEvents bt_cancel As System.Windows.Forms.ToolStripButton + Friend WithEvents ToolStripSeparator1 As System.Windows.Forms.ToolStripSeparator + Friend WithEvents Panel1 As System.Windows.Forms.Panel + 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 + Friend WithEvents GroupBox1 As System.Windows.Forms.GroupBox + Friend WithEvents Label15 As System.Windows.Forms.Label + Friend WithEvents PictureBox4 As System.Windows.Forms.PictureBox + Friend WithEvents PictureBox1 As System.Windows.Forms.PictureBox + Friend WithEvents PictureBox2 As System.Windows.Forms.PictureBox + Friend WithEvents tb_13 As Eco2Ar.MyTb + Friend WithEvents TextBox1 As System.Windows.Forms.TextBox + Friend WithEvents Label2 As System.Windows.Forms.Label + Friend WithEvents Tb_배기팬동력 As Eco2Ar.MyTb + Friend WithEvents Tb_급기팬동력 As Eco2Ar.MyTb + Friend WithEvents Tb_배기풍량 As Eco2Ar.MyTb + Friend WithEvents Tb_급기풍량 As Eco2Ar.MyTb + Friend WithEvents Cmb_팬효율산출방식 As Eco2Ar.MyCmb +End Class diff --git a/ArinWarev1/Forms/v20091231/Frm_v20091231_kongjo.resx b/ArinWarev1/Forms/v20091231/Frm_v20091231_kongjo.resx new file mode 100644 index 0000000..21414bc --- /dev/null +++ b/ArinWarev1/Forms/v20091231/Frm_v20091231_kongjo.resx @@ -0,0 +1,396 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + 109, 17 + + + 17, 17 + + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + 222, 17 + + + 286, 17 + + + 353, 17 + + + + + /9j/4AAQSkZJRgABAgEASABIAAD/7gAOQWRvYmUAZAAAAAAB/+ED5kV4aWYAAE1NACoAAAAIAAcBEgAD + AAAAAQABAAABGgAFAAAAAQAAAGIBGwAFAAAAAQAAAGoBKAADAAAAAQACAAABMQACAAAAHAAAAHIBMgAC + AAAAFAAAAI6HaQAEAAAAAQAAAKIAAADCAEgAAAABAAAASAAAAAEAAEFkb2JlIFBob3Rvc2hvcCBDUzMg + V2luZG93cwAyMDEwOjA0OjE1IDIwOjMyOjA0AAACoAIABAAAAAEAAAA8oAMABAAAAAEAAAAMAAAAAAAA + AAYBAwADAAAAAQAGAAABGgAFAAAAAQAAARABGwAFAAAAAQAAARgBKAADAAAAAQACAAACAQAEAAAAAQAA + ASACAgAEAAAAAQAAAr4AAAAAAAAASAAAAAEAAABIAAAAAf/Y/+AAEEpGSUYAAQIAAEgASAAA/+0ADEFk + b2JlX0NNAAH/7gAOQWRvYmUAZIAAAAAB/9sAhAAMCAgICQgMCQkMEQsKCxEVDwwMDxUYExMVExMYEQwM + DAwMDBEMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMAQ0LCw0ODRAODhAUDg4OFBQODg4OFBEMDAwM + DBERDAwMDAwMEQwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAz/wAARCAAMADwDASIAAhEBAxEB/90A + BAAE/8QBPwAAAQUBAQEBAQEAAAAAAAAAAwABAgQFBgcICQoLAQABBQEBAQEBAQAAAAAAAAABAAIDBAUG + BwgJCgsQAAEEAQMCBAIFBwYIBQMMMwEAAhEDBCESMQVBUWETInGBMgYUkaGxQiMkFVLBYjM0coLRQwcl + klPw4fFjczUWorKDJkSTVGRFwqN0NhfSVeJl8rOEw9N14/NGJ5SkhbSVxNTk9KW1xdXl9VZmdoaWprbG + 1ub2N0dXZ3eHl6e3x9fn9xEAAgIBAgQEAwQFBgcHBgU1AQACEQMhMRIEQVFhcSITBTKBkRShsUIjwVLR + 8DMkYuFygpJDUxVjczTxJQYWorKDByY1wtJEk1SjF2RFVTZ0ZeLys4TD03Xj80aUpIW0lcTU5PSltcXV + 5fVWZnaGlqa2xtbm9ic3R1dnd4eXp7fH/9oADAMBAAIRAxEAPwDd/amR/pH/AOcf70v2pkf6R/8AnH+9 + UUlofq/Bpevxb37UyP8ASP8A84/3pftTI/0j/wDOP96opJfq/BXr8W9+1Mj/AEj/APOP96X7UyP9I/8A + zj/eqKSX6vwV6/F3ujdbuGS2i5xfU8HVxktIG76XyW99vo27p0XGdO2/ba930dZj+q5dX+qfZPL8VAeD + 341VVr/eZhx+0bu708n/2f/tCSBQaG90b3Nob3AgMy4wADhCSU0EJQAAAAAAEAAAAAAAAAAAAAAAAAAA + AAA4QklNBC8AAAAAAErgYgEASAAAAEgAAAAAAAAAAAAAANACAABAAgAAAAAAAAAAAAAYAwAAZAIAAAAB + wAMAALAEAAABAA8nAQBsbHVuAAAAAAAAAAAAADhCSU0D7QAAAAAAEABIAAAAAQACAEgAAAABAAI4QklN + BCYAAAAAAA4AAAAAAAAAAAAAP4AAADhCSU0EDQAAAAAABAAAAHg4QklNBBkAAAAAAAQAAAAeOEJJTQPz + AAAAAAAJAAAAAAAAAAABADhCSU0ECgAAAAAAAQAAOEJJTScQAAAAAAAKAAEAAAAAAAAAAjhCSU0D9QAA + AAAASAAvZmYAAQBsZmYABgAAAAAAAQAvZmYAAQChmZoABgAAAAAAAQAyAAAAAQBaAAAABgAAAAAAAQA1 + AAAAAQAtAAAABgAAAAAAAThCSU0D+AAAAAAAcAAA/////////////////////////////wPoAAAAAP// + //////////////////////////8D6AAAAAD/////////////////////////////A+gAAAAA//////// + /////////////////////wPoAAA4QklNBAAAAAAAAAIAAjhCSU0EAgAAAAAABgAAAAAAADhCSU0EMAAA + AAAAAwEBAQA4QklNBC0AAAAAAAYAAQAAAAM4QklNBAgAAAAAABAAAAABAAACQAAAAkAAAAAAOEJJTQQe + AAAAAAAEAAAAADhCSU0EGgAAAAADPwAAAAYAAAAAAAAAAAAAAAwAAAA8AAAABbs0yBwALQAxADIAAAAB + AAAAAAAAAAAAAAAAAAAAAAAAAAEAAAAAAAAAAAAAADwAAAAMAAAAAAAAAAAAAAAAAAAAAAEAAAAAAAAA + AAAAAAAAAAAAAAAAEAAAAAEAAAAAAABudWxsAAAAAgAAAAZib3VuZHNPYmpjAAAAAQAAAAAAAFJjdDEA + AAAEAAAAAFRvcCBsb25nAAAAAAAAAABMZWZ0bG9uZwAAAAAAAAAAQnRvbWxvbmcAAAAMAAAAAFJnaHRs + b25nAAAAPAAAAAZzbGljZXNWbExzAAAAAU9iamMAAAABAAAAAAAFc2xpY2UAAAASAAAAB3NsaWNlSURs + b25nAAAAAAAAAAdncm91cElEbG9uZwAAAAAAAAAGb3JpZ2luZW51bQAAAAxFU2xpY2VPcmlnaW4AAAAN + YXV0b0dlbmVyYXRlZAAAAABUeXBlZW51bQAAAApFU2xpY2VUeXBlAAAAAEltZyAAAAAGYm91bmRzT2Jq + YwAAAAEAAAAAAABSY3QxAAAABAAAAABUb3AgbG9uZwAAAAAAAAAATGVmdGxvbmcAAAAAAAAAAEJ0b21s + b25nAAAADAAAAABSZ2h0bG9uZwAAADwAAAADdXJsVEVYVAAAAAEAAAAAAABudWxsVEVYVAAAAAEAAAAA + AABNc2dlVEVYVAAAAAEAAAAAAAZhbHRUYWdURVhUAAAAAQAAAAAADmNlbGxUZXh0SXNIVE1MYm9vbAEA + AAAIY2VsbFRleHRURVhUAAAAAQAAAAAACWhvcnpBbGlnbmVudW0AAAAPRVNsaWNlSG9yekFsaWduAAAA + B2RlZmF1bHQAAAAJdmVydEFsaWduZW51bQAAAA9FU2xpY2VWZXJ0QWxpZ24AAAAHZGVmYXVsdAAAAAti + Z0NvbG9yVHlwZWVudW0AAAARRVNsaWNlQkdDb2xvclR5cGUAAAAATm9uZQAAAAl0b3BPdXRzZXRsb25n + AAAAAAAAAApsZWZ0T3V0c2V0bG9uZwAAAAAAAAAMYm90dG9tT3V0c2V0bG9uZwAAAAAAAAALcmlnaHRP + dXRzZXRsb25nAAAAAAA4QklNBCgAAAAAAAwAAAABP/AAAAAAAAA4QklNBBQAAAAAAAQAAAAEOEJJTQQM + AAAAAALaAAAAAQAAADwAAAAMAAAAtAAACHAAAAK+ABgAAf/Y/+AAEEpGSUYAAQIAAEgASAAA/+0ADEFk + b2JlX0NNAAH/7gAOQWRvYmUAZIAAAAAB/9sAhAAMCAgICQgMCQkMEQsKCxEVDwwMDxUYExMVExMYEQwM + DAwMDBEMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMAQ0LCw0ODRAODhAUDg4OFBQODg4OFBEMDAwM + DBERDAwMDAwMEQwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAz/wAARCAAMADwDASIAAhEBAxEB/90A + BAAE/8QBPwAAAQUBAQEBAQEAAAAAAAAAAwABAgQFBgcICQoLAQABBQEBAQEBAQAAAAAAAAABAAIDBAUG + BwgJCgsQAAEEAQMCBAIFBwYIBQMMMwEAAhEDBCESMQVBUWETInGBMgYUkaGxQiMkFVLBYjM0coLRQwcl + klPw4fFjczUWorKDJkSTVGRFwqN0NhfSVeJl8rOEw9N14/NGJ5SkhbSVxNTk9KW1xdXl9VZmdoaWprbG + 1ub2N0dXZ3eHl6e3x9fn9xEAAgIBAgQEAwQFBgcHBgU1AQACEQMhMRIEQVFhcSITBTKBkRShsUIjwVLR + 8DMkYuFygpJDUxVjczTxJQYWorKDByY1wtJEk1SjF2RFVTZ0ZeLys4TD03Xj80aUpIW0lcTU5PSltcXV + 5fVWZnaGlqa2xtbm9ic3R1dnd4eXp7fH/9oADAMBAAIRAxEAPwDd/amR/pH/AOcf70v2pkf6R/8AnH+9 + UUlofq/Bpevxb37UyP8ASP8A84/3pftTI/0j/wDOP96opJfq/BXr8W9+1Mj/AEj/APOP96X7UyP9I/8A + zj/eqKSX6vwV6/F3ujdbuGS2i5xfU8HVxktIG76XyW99vo27p0XGdO2/ba930dZj+q5dX+qfZPL8VAeD + 341VVr/eZhx+0bu708n/2ThCSU0EIQAAAAAAVQAAAAEBAAAADwBBAGQAbwBiAGUAIABQAGgAbwB0AG8A + cwBoAG8AcAAAABMAQQBkAG8AYgBlACAAUABoAG8AdABvAHMAaABvAHAAIABDAFMAMwAAAAEAOEJJTQQG + AAAAAAAHAAgAAQABAQD/4Q/MaHR0cDovL25zLmFkb2JlLmNvbS94YXAvMS4wLwA8P3hwYWNrZXQgYmVn + aW49Iu+7vyIgaWQ9Ilc1TTBNcENlaGlIenJlU3pOVGN6a2M5ZCI/Pg0KPHg6eG1wbWV0YSB4bWxuczp4 + PSJhZG9iZTpuczptZXRhLyIgeDp4bXB0az0iQWRvYmUgWE1QIENvcmUgNC4xLWMwMzYgNDYuMjc2NzIw + LCBNb24gRmViIDE5IDIwMDcgMjI6NDA6MDggICAgICAgICI+DQoJPHJkZjpSREYgeG1sbnM6cmRmPSJo + dHRwOi8vd3d3LnczLm9yZy8xOTk5LzAyLzIyLXJkZi1zeW50YXgtbnMjIj4NCgkJPHJkZjpEZXNjcmlw + dGlvbiByZGY6YWJvdXQ9IiIgeG1sbnM6ZGM9Imh0dHA6Ly9wdXJsLm9yZy9kYy9lbGVtZW50cy8xLjEv + IiB4bWxuczp4YXA9Imh0dHA6Ly9ucy5hZG9iZS5jb20veGFwLzEuMC8iIHhtbG5zOnhhcE1NPSJodHRw + Oi8vbnMuYWRvYmUuY29tL3hhcC8xLjAvbW0vIiB4bWxuczpzdFJlZj0iaHR0cDovL25zLmFkb2JlLmNv + bS94YXAvMS4wL3NUeXBlL1Jlc291cmNlUmVmIyIgeG1sbnM6cGhvdG9zaG9wPSJodHRwOi8vbnMuYWRv + YmUuY29tL3Bob3Rvc2hvcC8xLjAvIiB4bWxuczp0aWZmPSJodHRwOi8vbnMuYWRvYmUuY29tL3RpZmYv + MS4wLyIgeG1sbnM6ZXhpZj0iaHR0cDovL25zLmFkb2JlLmNvbS9leGlmLzEuMC8iIGRjOmZvcm1hdD0i + aW1hZ2UvanBlZyIgeGFwOkNyZWF0b3JUb29sPSJBZG9iZSBQaG90b3Nob3AgQ1MzIFdpbmRvd3MiIHhh + cDpDcmVhdGVEYXRlPSIyMDEwLTA0LTE1VDIwOjMyOjA0KzA5OjAwIiB4YXA6TW9kaWZ5RGF0ZT0iMjAx + MC0wNC0xNVQyMDozMjowNCswOTowMCIgeGFwOk1ldGFkYXRhRGF0ZT0iMjAxMC0wNC0xNVQyMDozMjow + NCswOTowMCIgeGFwTU06RG9jdW1lbnRJRD0idXVpZDpGRTRGOUVDQzgxNDhERjExQjQyNkI5NEQ4RDRD + ODAxNyIgeGFwTU06SW5zdGFuY2VJRD0idXVpZDpCNDE2RTc4MzgyNDhERjExQjQyNkI5NEQ4RDRDODAx + NyIgcGhvdG9zaG9wOkNvbG9yTW9kZT0iMyIgcGhvdG9zaG9wOklDQ1Byb2ZpbGU9InNSR0IgSUVDNjE5 + NjYtMi4xIiBwaG90b3Nob3A6SGlzdG9yeT0iIiB0aWZmOk9yaWVudGF0aW9uPSIxIiB0aWZmOlhSZXNv + bHV0aW9uPSI3MjAwMDAvMTAwMDAiIHRpZmY6WVJlc29sdXRpb249IjcyMDAwMC8xMDAwMCIgdGlmZjpS + ZXNvbHV0aW9uVW5pdD0iMiIgdGlmZjpOYXRpdmVEaWdlc3Q9IjI1NiwyNTcsMjU4LDI1OSwyNjIsMjc0 + LDI3NywyODQsNTMwLDUzMSwyODIsMjgzLDI5NiwzMDEsMzE4LDMxOSw1MjksNTMyLDMwNiwyNzAsMjcx + LDI3MiwzMDUsMzE1LDMzNDMyOzk4ODcxNzIxMUFCRjY2MTQxRDU3NEI3OUYzRjQ2QkFBIiBleGlmOlBp + eGVsWERpbWVuc2lvbj0iNjAiIGV4aWY6UGl4ZWxZRGltZW5zaW9uPSIxMiIgZXhpZjpDb2xvclNwYWNl + PSIxIiBleGlmOk5hdGl2ZURpZ2VzdD0iMzY4NjQsNDA5NjAsNDA5NjEsMzcxMjEsMzcxMjIsNDA5NjIs + NDA5NjMsMzc1MTAsNDA5NjQsMzY4NjcsMzY4NjgsMzM0MzQsMzM0MzcsMzQ4NTAsMzQ4NTIsMzQ4NTUs + MzQ4NTYsMzczNzcsMzczNzgsMzczNzksMzczODAsMzczODEsMzczODIsMzczODMsMzczODQsMzczODUs + MzczODYsMzczOTYsNDE0ODMsNDE0ODQsNDE0ODYsNDE0ODcsNDE0ODgsNDE0OTIsNDE0OTMsNDE0OTUs + NDE3MjgsNDE3MjksNDE3MzAsNDE5ODUsNDE5ODYsNDE5ODcsNDE5ODgsNDE5ODksNDE5OTAsNDE5OTEs + NDE5OTIsNDE5OTMsNDE5OTQsNDE5OTUsNDE5OTYsNDIwMTYsMCwyLDQsNSw2LDcsOCw5LDEwLDExLDEy + LDEzLDE0LDE1LDE2LDE3LDE4LDIwLDIyLDIzLDI0LDI1LDI2LDI3LDI4LDMwOzM1N0NDOEY1MDE4RURF + NDY2NjVCQkRFMUFEMkRCQkJBIj4NCgkJCTx4YXBNTTpEZXJpdmVkRnJvbSBzdFJlZjppbnN0YW5jZUlE + PSJ1dWlkOkY1NEY5RUNDODE0OERGMTFCNDI2Qjk0RDhENEM4MDE3IiBzdFJlZjpkb2N1bWVudElEPSJ1 + dWlkOkY1NEY5RUNDODE0OERGMTFCNDI2Qjk0RDhENEM4MDE3Ii8+DQoJCTwvcmRmOkRlc2NyaXB0aW9u + Pg0KCTwvcmRmOlJERj4NCjwveDp4bXBtZXRhPg0KICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgIAogICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgCiAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAKICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgIAogICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgCiAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAKICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgIAogICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgCiAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAKICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgIAogICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + CiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAKICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgIAogICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgCiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAKICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgIAogICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgCiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAKICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgIAogICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgCiAgICAgICAgICAgPD94cGFja2V0IGVuZD0ndyc/Pv/iDFhJQ0NfUFJPRklMRQABAQAA + DEhMaW5vAhAAAG1udHJSR0IgWFlaIAfOAAIACQAGADEAAGFjc3BNU0ZUAAAAAElFQyBzUkdCAAAAAAAA + AAAAAAAAAAD21gABAAAAANMtSFAgIAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAEWNwcnQAAAFQAAAAM2Rlc2MAAAGEAAAAbHd0cHQAAAHwAAAAFGJrcHQAAAIEAAAAFHJY + WVoAAAIYAAAAFGdYWVoAAAIsAAAAFGJYWVoAAAJAAAAAFGRtbmQAAAJUAAAAcGRtZGQAAALEAAAAiHZ1 + ZWQAAANMAAAAhnZpZXcAAAPUAAAAJGx1bWkAAAP4AAAAFG1lYXMAAAQMAAAAJHRlY2gAAAQwAAAADHJU + UkMAAAQ8AAAIDGdUUkMAAAQ8AAAIDGJUUkMAAAQ8AAAIDHRleHQAAAAAQ29weXJpZ2h0IChjKSAxOTk4 + IEhld2xldHQtUGFja2FyZCBDb21wYW55AABkZXNjAAAAAAAAABJzUkdCIElFQzYxOTY2LTIuMQAAAAAA + AAAAAAAAEnNSR0IgSUVDNjE5NjYtMi4xAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAABYWVogAAAAAAAA81EAAQAAAAEWzFhZWiAAAAAAAAAAAAAAAAAAAAAAWFlaIAAA + AAAAAG+iAAA49QAAA5BYWVogAAAAAAAAYpkAALeFAAAY2lhZWiAAAAAAAAAkoAAAD4QAALbPZGVzYwAA + AAAAAAAWSUVDIGh0dHA6Ly93d3cuaWVjLmNoAAAAAAAAAAAAAAAWSUVDIGh0dHA6Ly93d3cuaWVjLmNo + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAGRlc2MAAAAAAAAALklF + QyA2MTk2Ni0yLjEgRGVmYXVsdCBSR0IgY29sb3VyIHNwYWNlIC0gc1JHQgAAAAAAAAAAAAAALklFQyA2 + MTk2Ni0yLjEgRGVmYXVsdCBSR0IgY29sb3VyIHNwYWNlIC0gc1JHQgAAAAAAAAAAAAAAAAAAAAAAAAAA + AABkZXNjAAAAAAAAACxSZWZlcmVuY2UgVmlld2luZyBDb25kaXRpb24gaW4gSUVDNjE5NjYtMi4xAAAA + AAAAAAAAAAAsUmVmZXJlbmNlIFZpZXdpbmcgQ29uZGl0aW9uIGluIElFQzYxOTY2LTIuMQAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAdmlldwAAAAAAE6T+ABRfLgAQzxQAA+3MAAQTCwADXJ4AAAABWFlaIAAA + AAAATAlWAFAAAABXH+dtZWFzAAAAAAAAAAEAAAAAAAAAAAAAAAAAAAAAAAACjwAAAAJzaWcgAAAAAENS + VCBjdXJ2AAAAAAAABAAAAAAFAAoADwAUABkAHgAjACgALQAyADcAOwBAAEUASgBPAFQAWQBeAGMAaABt + AHIAdwB8AIEAhgCLAJAAlQCaAJ8ApACpAK4AsgC3ALwAwQDGAMsA0ADVANsA4ADlAOsA8AD2APsBAQEH + AQ0BEwEZAR8BJQErATIBOAE+AUUBTAFSAVkBYAFnAW4BdQF8AYMBiwGSAZoBoQGpAbEBuQHBAckB0QHZ + AeEB6QHyAfoCAwIMAhQCHQImAi8COAJBAksCVAJdAmcCcQJ6AoQCjgKYAqICrAK2AsECywLVAuAC6wL1 + AwADCwMWAyEDLQM4A0MDTwNaA2YDcgN+A4oDlgOiA64DugPHA9MD4APsA/kEBgQTBCAELQQ7BEgEVQRj + BHEEfgSMBJoEqAS2BMQE0wThBPAE/gUNBRwFKwU6BUkFWAVnBXcFhgWWBaYFtQXFBdUF5QX2BgYGFgYn + BjcGSAZZBmoGewaMBp0GrwbABtEG4wb1BwcHGQcrBz0HTwdhB3QHhgeZB6wHvwfSB+UH+AgLCB8IMghG + CFoIbgiCCJYIqgi+CNII5wj7CRAJJQk6CU8JZAl5CY8JpAm6Cc8J5Qn7ChEKJwo9ClQKagqBCpgKrgrF + CtwK8wsLCyILOQtRC2kLgAuYC7ALyAvhC/kMEgwqDEMMXAx1DI4MpwzADNkM8w0NDSYNQA1aDXQNjg2p + DcMN3g34DhMOLg5JDmQOfw6bDrYO0g7uDwkPJQ9BD14Peg+WD7MPzw/sEAkQJhBDEGEQfhCbELkQ1xD1 + ERMRMRFPEW0RjBGqEckR6BIHEiYSRRJkEoQSoxLDEuMTAxMjE0MTYxODE6QTxRPlFAYUJxRJFGoUixSt + FM4U8BUSFTQVVhV4FZsVvRXgFgMWJhZJFmwWjxayFtYW+hcdF0EXZReJF64X0hf3GBsYQBhlGIoYrxjV + GPoZIBlFGWsZkRm3Gd0aBBoqGlEadxqeGsUa7BsUGzsbYxuKG7Ib2hwCHCocUhx7HKMczBz1HR4dRx1w + HZkdwx3sHhYeQB5qHpQevh7pHxMfPh9pH5Qfvx/qIBUgQSBsIJggxCDwIRwhSCF1IaEhziH7IiciVSKC + Iq8i3SMKIzgjZiOUI8Ij8CQfJE0kfCSrJNolCSU4JWgllyXHJfcmJyZXJocmtyboJxgnSSd6J6sn3CgN + KD8ocSiiKNQpBik4KWspnSnQKgIqNSpoKpsqzysCKzYraSudK9EsBSw5LG4soizXLQwtQS12Last4S4W + Lkwugi63Lu4vJC9aL5Evxy/+MDUwbDCkMNsxEjFKMYIxujHyMioyYzKbMtQzDTNGM38zuDPxNCs0ZTSe + NNg1EzVNNYc1wjX9Njc2cjauNuk3JDdgN5w31zgUOFA4jDjIOQU5Qjl/Obw5+To2OnQ6sjrvOy07azuq + O+g8JzxlPKQ84z0iPWE9oT3gPiA+YD6gPuA/IT9hP6I/4kAjQGRApkDnQSlBakGsQe5CMEJyQrVC90M6 + Q31DwEQDREdEikTORRJFVUWaRd5GIkZnRqtG8Ec1R3tHwEgFSEtIkUjXSR1JY0mpSfBKN0p9SsRLDEtT + S5pL4kwqTHJMuk0CTUpNk03cTiVObk63TwBPSU+TT91QJ1BxULtRBlFQUZtR5lIxUnxSx1MTU19TqlP2 + VEJUj1TbVShVdVXCVg9WXFapVvdXRFeSV+BYL1h9WMtZGllpWbhaB1pWWqZa9VtFW5Vb5Vw1XIZc1l0n + XXhdyV4aXmxevV8PX2Ffs2AFYFdgqmD8YU9homH1YklinGLwY0Njl2PrZEBklGTpZT1lkmXnZj1mkmbo + Zz1nk2fpaD9olmjsaUNpmmnxakhqn2r3a09rp2v/bFdsr20IbWBtuW4SbmtuxG8eb3hv0XArcIZw4HE6 + cZVx8HJLcqZzAXNdc7h0FHRwdMx1KHWFdeF2Pnabdvh3VnezeBF4bnjMeSp5iXnnekZ6pXsEe2N7wnwh + fIF84X1BfaF+AX5ifsJ/I3+Ef+WAR4CogQqBa4HNgjCCkoL0g1eDuoQdhICE44VHhauGDoZyhteHO4ef + iASIaYjOiTOJmYn+imSKyoswi5aL/IxjjMqNMY2Yjf+OZo7OjzaPnpAGkG6Q1pE/kaiSEZJ6kuOTTZO2 + lCCUipT0lV+VyZY0lp+XCpd1l+CYTJi4mSSZkJn8mmia1ZtCm6+cHJyJnPedZJ3SnkCerp8dn4uf+qBp + oNihR6G2oiailqMGo3aj5qRWpMelOKWpphqmi6b9p26n4KhSqMSpN6mpqhyqj6sCq3Wr6axcrNCtRK24 + ri2uoa8Wr4uwALB1sOqxYLHWskuywrM4s660JbSctRO1irYBtnm28Ldot+C4WbjRuUq5wro7urW7Lrun + vCG8m70VvY++Cr6Evv+/er/1wHDA7MFnwePCX8Lbw1jD1MRRxM7FS8XIxkbGw8dBx7/IPci8yTrJuco4 + yrfLNsu2zDXMtc01zbXONs62zzfPuNA50LrRPNG+0j/SwdNE08bUSdTL1U7V0dZV1tjXXNfg2GTY6Nls + 2fHadtr724DcBdyK3RDdlt4c3qLfKd+v4DbgveFE4cziU+Lb42Pj6+Rz5PzlhOYN5pbnH+ep6DLovOlG + 6dDqW+rl63Dr++yG7RHtnO4o7rTvQO/M8Fjw5fFy8f/yjPMZ86f0NPTC9VD13vZt9vv3ivgZ+Kj5OPnH + +lf65/t3/Af8mP0p/br+S/7c/23////bAEMAAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEB + AQEBAQEBAQEBAQICAgICAgICAgICAwMDAwMDAwMDA//bAEMBAQEBAQEBAQEBAQICAQICAwMDAwMDAwMD + AwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDA//AABEIAAwAPAMBEQACEQEDEQH/ + xAAfAAABBQEBAQEBAQAAAAAAAAAAAQIDBAUGBwgJCgv/xAC1EAACAQMDAgQDBQUEBAAAAX0BAgMABBEF + EiExQQYTUWEHInEUMoGRoQgjQrHBFVLR8CQzYnKCCQoWFxgZGiUmJygpKjQ1Njc4OTpDREVGR0hJSlNU + VVZXWFlaY2RlZmdoaWpzdHV2d3h5eoOEhYaHiImKkpOUlZaXmJmaoqOkpaanqKmqsrO0tba3uLm6wsPE + xcbHyMnK0tPU1dbX2Nna4eLj5OXm5+jp6vHy8/T19vf4+fr/xAAfAQADAQEBAQEBAQEBAAAAAAAAAQID + BAUGBwgJCgv/xAC1EQACAQIEBAMEBwUEBAABAncAAQIDEQQFITEGEkFRB2FxEyIygQgUQpGhscEJIzNS + 8BVictEKFiQ04SXxFxgZGiYnKCkqNTY3ODk6Q0RFRkdISUpTVFVWV1hZWmNkZWZnaGlqc3R1dnd4eXqC + g4SFhoeIiYqSk5SVlpeYmZqio6Slpqeoqaqys7S1tre4ubrCw8TFxsfIycrS09TV1tfY2dri4+Tl5ufo + 6ery8/T19vf4+fr/2gAMAwEAAhEDEQA/AP1ZH7UPxEAA/wCEw8bnj/ob9f8A/k+v7U/1Nyj/AKF+G/8A + BUP/AJE/llcSZlZf7dX/APBk/wDMX/hqH4if9Df43/8ACv1//wCT6P8AU3Kf+hfhv/BUP/kQ/wBZcy/6 + Dq//AIMn/mH/AA1D8RP+hv8AG/8A4V+v/wDyfR/qblP/AEL8N/4Kh/8AIh/rLmX/AEHV/wDwZP8AzD/h + qH4if9Df43/8K/X/AP5Po/1Nyn/oX4b/AMFQ/wDkQ/1lzL/oOr/+DJ/5h/w1D8RP+hv8b/8AhX6//wDJ + 9H+puU/9C/Df+Cof/Ih/rLmX/QdX/wDBk/8AMT/hqH4if9Df43/8K/X/AP5Po/1Nyn/oX4b/AMFQ/wDk + Q/1kzL/oOr/+DJ/5n2R+xz+234zt/iRpnw+8a6vqXiDwZ4gs9baObXr+bUr/AMPajpmkX2tQ3FlqV2Zb + 57K7XT2t3tXkaJWkV4whVxJ+beJfAuU4Th/FZ/hKEKOMw8qd+SKjGcZzjTs4q0bpyUlJK7s073VvuuBO + LMxxGcYfJ8TWlVw1ZTtzu7hKMJTupPWzUWnFu2qatrf9aP8AhfXgv+zv7U89/sfm+V5207N+M43fSv50 + P2w/kwr/AEFP42CgAoAKACgAoA9s/Z0/s7/hcng3+1vP/s7Ov/avs2PP2f8ACL63t2buP9ZjP+zmvz7x + U/5IPPf+4H/qRRPsvD//AJK7KP8AuL/6ZqH7/wD/ABaT/hUfb7Ht/wBj7V9p8v8A9Cr+Oz+lz//Z + + + + 45 + + \ No newline at end of file diff --git a/ArinWarev1/Forms/v20091231/Frm_v20091231_kongjo.vb b/ArinWarev1/Forms/v20091231/Frm_v20091231_kongjo.vb new file mode 100644 index 0000000..a6a7d5c --- /dev/null +++ b/ArinWarev1/Forms/v20091231/Frm_v20091231_kongjo.vb @@ -0,0 +1,458 @@ +Public Class Frm_V20091231_Kongjo + + Dim Init As Boolean = False + Dim DT As DataTable + Dim SrcDrv As DataRowView + + Private Sub MdiMain_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load + MdiMain.Toggle_Menu_Color(MdiMain.E_MenuIdx.공조처리) + 'CEnergy.ARINCLASS.SaveLoad_FrmSetting(Me) + '//프로필 관련 + + '//공유데이터셋에 연결한다. + Me.bs.DataSource = DSET + Dt = DSET.tbl_kongjo + '//공조처리 + AddHandler DSET.tbl_kongjo.TableNewRow, AddressOf AddNewDataRow_kongjo + + '//콤보컨트롤 바인딩 + Binding_Zone() + + '//모든컨트롤의 cTrl_enter 를 추가합니다 + BindProperty(CType(Me.SplitContainer1.Panel2.Controls, Control.ControlCollection)) + + ' Binding_Zone() + Me.bsmain = Me.bs + Me.Init = True + + Try + Me.bsmain.Position = CEnergy.ARINCLASS.Read_LastPos_Frm(Me) + Catch ex As Exception + Me.bsmain.MoveFirst() + End Try + + bs_CurrentChanged(sender, e) + Validate_Control() + + + End Sub +#Region "Control_Enter" + Private Sub BindProperty(ByVal Ctl As Control.ControlCollection) + For Each C As Control In Ctl + If C.Controls.Count > 1 Then + BindProperty(C.Controls) + Else + If C.GetType.ToString.ToUpper.IndexOf("MYTB") <> -1 Then + AddHandler CType(C, MyTb).KeyDown, AddressOf TextBOx_KeyDown + ElseIf C.GetType.ToString.ToUpper.IndexOf("MYCMB") <> -1 Then + AddHandler CType(C, MyCmb).KeyDown, AddressOf Cmd_KeyDown + End If + End If + Next + End Sub + + + Private Sub TextBOx_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) + If e.KeyCode = Keys.Enter AndAlso e.Control Then + Try + Dim Field As String = (CType(sender, MyTb).DataBindings.Item("text").BindingMemberInfo.BindingField) + For Each Dr As DataRow In DT.Select(Me.bs.Filter, "") + Dr(Field) = CType(sender, MyTb).Text + Next + Work_msg_timer("모든값이 변경되었습니다", 25) + Catch ex As Exception + + End Try + + End If + End Sub + Private Sub Cmd_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) + If e.KeyCode = Keys.Enter AndAlso e.Control Then + Try + Dim Field As String = (CType(sender, MyCmb).DataBindings.Item("selectedvalue").BindingMemberInfo.BindingField) + For Each Dr As DataRow In DT.Select(Me.bs.Filter, "") + Dr(Field) = CType(sender, MyCmb).SelectedValue + Next + Work_msg_timer("모든값이 변경되었습니다", 25) + Catch ex As Exception + + End Try + End If + End Sub +#End Region + + +#Region "공조처리시스템" + + Private Function GetMaxCode(ByVal dt As DataTable) As String + Try + Dim Dr As DataRow = dt.Select("", "code desc")(0) + Return Format(CInt(Dr("code")) + 1, "0000") + Catch ex As Exception + Return "0001" + End Try + End Function + + Private Sub MdiMain_FormClosed(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosedEventArgs) Handles Me.FormClosed + CEnergy.ARINCLASS.SaveLoad_FrmSetting(Me, Me.bsmain.Position, True) + End Sub + + Private Sub MdiMain_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown + Select Case e.KeyCode + Case Keys.F12 + End Select + End Sub + Private Sub AddNewDataRow_kongjo(ByVal sender As Object, ByVal e As System.Data.DataTableNewRowEventArgs) + e.Row.Item("code") = GetMaxCode(DSET.tbl_kongjo) + e.Row.Item("팬효율산출방식") = "계산치" + End Sub + Private Sub ToolStripButton48_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt_add.Click + If Not EndEdit(Me.bs) Then Return + Me.bs.AddNew() + INitRow(Me.Controls) + End Sub + + Private Sub ToolStripButton49_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt_Del.Click + Dbbase.DelCrow(Me.bs, True) + End Sub + + Private Sub ToolStripButton51_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt_cancel.Click + If Not EndEdit(Me.bs) Then Return + Data_Cancel(DSET.tbl_profile, Nothing) + End Sub + + + Private Sub Cmb_DeleteVal(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) + If e.KeyCode = Keys.Delete Then + CType(sender, ComboBox).SelectedValue = "" + End If + End Sub + + Private Sub Binding_Zone() + Dim bs_cmb_공조방식 As New BindingSource(DSET, "tbl_common") + bs_cmb_공조방식.Filter = "gubun='1026'" + bs_cmb_공조방식.Sort = "code" + Me.공조방식NCMB.DataSource = bs_cmb_공조방식 + 공조방식NCMB.DisplayMember = "name" + 공조방식NCMB.ValueMember = "name" + Me.공조방식NCMB.DataBindings.Add("selectedvalue", Me.bs, "공조방식") + AddHandler 공조방식NCMB.KeyDown, AddressOf Cmb_DeleteVal + + Dim bs_cmb_리턴공기혼합여부ComboBox As New BindingSource(DSET, "tbl_common") + bs_cmb_리턴공기혼합여부ComboBox.Filter = "gubun='1054'" + bs_cmb_리턴공기혼합여부ComboBox.Sort = "code" + Me.리턴공기혼합여부ComboBox.DataSource = bs_cmb_리턴공기혼합여부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(DSET, "tbl_common") + bs_가습기유형ComboBox.Filter = "gubun='1015'" + 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(DSET, "tbl_common") + bs_외기냉방제어유무ComboBox.Filter = "gubun='1032'" + 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(DSET, "tbl_common") + bs_열교환기유형ComboBox.Filter = "gubun='1016'" + 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_Cmb_팬효율산출방식 As New BindingSource(DSET, "tbl_common") + bs_Cmb_팬효율산출방식.Sort = "code" + bs_Cmb_팬효율산출방식.Filter = "gubun='1031'" + Cmb_팬효율산출방식.DataSource = bs_Cmb_팬효율산출방식 + Cmb_팬효율산출방식.DisplayMember = "name" + Cmb_팬효율산출방식.ValueMember = "name" + Me.Cmb_팬효율산출방식.DataBindings.Add("selectedvalue", 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 + If Me.bs.Position < Me.bs.Count Then Me.bs.Position += 1 + Else + If Me.bs.Position > 0 Then Me.bs.Position -= 1 + End If + Me.Validate() + My.Application.DoEvents() + End Sub +#End Region + + Private Sub 열교환기유형ComboBox_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 열교환기유형ComboBox.SelectedIndexChanged + Validate_Control() + End Sub + Private Sub Validate_Control() + If Not Init Then Return + Try + If Me.열교환기유형ComboBox.SelectedIndex = 0 Or Me.열교환기유형ComboBox.SelectedIndex = 1 Then '//사용안함 + Me.tb_08.Enabled = False + Me.tb_13.Enabled = False + Else + Me.tb_08.Enabled = True + Me.tb_13.Enabled = True + End If + bs.EndEdit() + Catch ex As Exception + + End Try + Try + If Me.Cmb_팬효율산출방식.SelectedIndex = 0 Then + Me.Tb_급기풍량.Enabled = True + Me.Tb_배기풍량.Enabled = True + Me.Tb_급기팬동력.Enabled = True + Me.Tb_배기팬동력.Enabled = True + Else + Me.Tb_급기풍량.Enabled = False + Me.Tb_배기풍량.Enabled = False + Me.Tb_급기팬동력.Enabled = False + Me.Tb_배기팬동력.Enabled = False + End If + Catch ex As Exception + + End Try + + End Sub + + Private Sub bs_CurrentChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bs.CurrentChanged + '//존에 적용된수를 구한다ㅏ.(존수만 구했으니깐 단순히 해당 데이터의 배열갯수만 보여줬습니다. 면적을 구하려면 + If Not Init Then Return + Try + Dim Drv As DataRowView = CType(bs.Current, DataRowView) + Dim DR() As DS.tbl_zoneRow = DSET.tbl_zone.Select("냉난방공조처리시스템='" & Drv("code").ToString & "'") + If DR.GetUpperBound(0) = -1 Then '//해당되는 데이터가없을경우 + Me.tb_zone_cnt.Text = "0" + Me.TextBox1.Text = "0" + Else + Me.tb_zone_cnt.Text = CStr(DR.GetUpperBound(0) + 1) + Dim 면적 As Decimal = 0 + For Each drow As DS.tbl_zoneRow In DR + Try + 면적 += TOSG(drow.면적) + Catch ex As Exception + + End Try + Next + Me.TextBox1.Text = TOST(면적) + End If + + Catch ex As Exception + + End Try + + Me.bs.EndEdit() + + '// 며면적에 들어왓어요 표시하고싶으신곳에하세요 + + + End Sub + + Private Sub 공조방식NCMB_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles 공조방식NCMB.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) <> 17 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() '//한줄추가 + + Dim Cnt As Short = 0 + For i As Integer = 0 To CB.GetUpperBound(0) + Select Case i + Case 0 + CType(Me.bs.Current, DataRowView)("설명") = CB(i).Split(CChar(vbTab))(ii).Trim + Case 0 + 3 '//사용프로필 앞에 두개를 숫자4자리로변환 + If CB(i).Split(CChar(vbTab))(ii).Trim = "" Then + Me.공조방식NCMB.SelectedIndex = 0 + Else + Me.공조방식NCMB.Text = CB(i).Split(CChar(vbTab))(ii).Trim + End If + 'Me.공조방식NCMB.Text = CB(i).Split(CChar(vbTab))(ii).Trim + Case 1 + 3 '//공란 + Me.tb_01.Text = CB(i).Split(CChar(vbTab))(ii).Trim + Case 2 + 3 '//면적 + Me.tb_02.Text = CB(i).Split(CChar(vbTab))(ii).Trim + Case 3 + 3 + Me.tb_03.Text = CB(i).Split(CChar(vbTab))(ii).Trim + Case 4 + 3 + If CB(i).Split(CChar(vbTab))(ii).Trim = "" Then + Me.리턴공기혼합여부ComboBox.SelectedIndex = 0 + Else + Me.리턴공기혼합여부ComboBox.Text = CB(i).Split(CChar(vbTab))(ii).Trim + End If + ' Me.리턴공기혼합여부ComboBox.Text = CStr(IIf(CB(i).Split(CChar(vbTab))(ii).Trim = "", "0", CB(i).Split(CChar(vbTab))(ii).Trim )) + Case 5 + 3 + If CB(i).Split(CChar(vbTab))(ii).Trim = "" Then + Me.가습기유형ComboBox.SelectedIndex = 0 + Else + Me.가습기유형ComboBox.Text = CB(i).Split(CChar(vbTab))(ii).Trim + End If + 'Me.가습기유형ComboBox.Text = CStr(IIf(CB(i).Split(CChar(vbTab))(ii).Trim = "", "0", CB(i).Split(CChar(vbTab))(ii).Trim )) + Case 6 + 3 + If CB(i).Split(CChar(vbTab))(ii).Trim = "" Then + Me.외기냉방제어유무ComboBox.SelectedIndex = 0 + Else + Me.외기냉방제어유무ComboBox.Text = CB(i).Split(CChar(vbTab))(ii).Trim + End If + ' Me.외기냉방제어유무ComboBox.Text = CStr(IIf(CB(i).Split(CChar(vbTab))(ii).Trim = "", "0", CB(i).Split(CChar(vbTab))(ii).Trim )) + Case 7 + 3 + If CB(i).Split(CChar(vbTab))(ii).Trim = "" Then + Me.열교환기유형ComboBox.SelectedIndex = 0 + Else + Me.열교환기유형ComboBox.Text = CB(i).Split(CChar(vbTab))(ii).Trim + End If + ' Me.열교환기유형ComboBox.Text = CStr(IIf(CB(i).Split(CChar(vbTab))(ii).Trim = "", "0", CB(i).Split(CChar(vbTab))(ii).Trim )) + Case 8 + 3 + Me.tb_08.Text = CB(i).Split(CChar(vbTab))(ii).Trim + Case 8 + 3 + 1 + Me.tb_13.Text = CB(i).Split(CChar(vbTab))(ii).Trim + Case 9 + 3 + 1 + Me.Tb_급기팬압력손실.Text = CB(i).Split(CChar(vbTab))(ii).Trim + Case 10 + 3 + 1 + Me.Tb_배기팬압력손실.Text = CB(i).Split(CChar(vbTab))(ii).Trim + Case 11 + 3 + 1 + Me.Tb_급기팬효율.Text = CB(i).Split(CChar(vbTab))(ii).Trim + Case 12 + 3 + 1 + Me.Tb_배기팬효율.Text = CB(i).Split(CChar(vbTab))(ii).Trim + End Select + Next + Next + + Me.bs.EndEdit() + End If + End Sub + + Private Sub bt_Del_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles bt_Del.MouseDown + If e.Button = Windows.Forms.MouseButtons.Right Then + If MsgBox("전체삭제를 하시겠습니까?", MsgBoxStyle.Information Or MsgBoxStyle.OkCancel, "확인") = MsgBoxResult.Ok Then + Dim dR() As DataRow = DSET.tbl_kongjo.Select(Me.bs.Filter, "") + For i As Integer = dR.GetUpperBound(0) To 0 Step -1 + dR(i).Delete() + Next + DSET.tbl_kongjo.AcceptChanges() + End If + End If + End Sub + + + Private Sub dv_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles dv.MouseUp + If Prj.UserAuthType = "ADMIN" OrElse Prj.UserAuthType = "BOTH" OrElse Prj.UserAuthType = "BOTH2" OrElse Prj.UserAuthType = "BOTH1" Then '//2011.03.08 추가 + If e.Button = Windows.Forms.MouseButtons.Right Then + Dim Frm_FilterA As New Frm_Filter + Frm_FilterA.ColumTitle = getColCaption(Me.DT) + Frm_FilterA.ColumList = getColName(Me.DT) + Frm_FilterA.Colorlist = "" + Frm_FilterA.Numfield = "" '//20100618 Color 리스트처럼 , 구분해서 필드들을 모두 넣으세요.(=, >= 등을 사용하기 위해서는 해당 항목을 추가 요망) + Frm_FilterA.Default_Filter = "code <> '0'" + + If Frm_FilterA.ShowDialog <> Windows.Forms.DialogResult.OK Then Return '//창떳을떄 확인아ㅣ고 취소눌르면 다음을 수행하지않는다는거에요. + Dim Filter As String = Frm_FilterA.tb_filter.Text '//값은 아까 그 텍박에 잇구요. + Try + Me.bs.Filter = Filter + + '//바꾸기값이 있으면 변경 20100618 + If Frm_FilterA.cmb_fieldc.SelectedIndex >= 0 AndAlso Frm_FilterA.cmb_fieldc.Text.ToLower <> "code" AndAlso _ + Frm_FilterA.tb_valuec.Text <> "" Then + Dim Drow() As DataRow = Me.DT.Select(Filter) + For Each Dr As DataRow In Drow + Dr(Frm_FilterA.cmb_fieldc.Text) = Frm_FilterA.tb_valuec.Text + Next + MsgBox("바꾸기 완료", MsgBoxStyle.Information, "확인") + End If + + Catch ex As Exception + Me.bs.Filter = "" + End Try + End If + End If + End Sub + + Private Sub dv_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles dv.KeyDown + '//여기보시면 alt+d 누르면 한줄을 경고없이(falsE)삭제하도록 햇어요.. 사실원래 밋alt +d 인데.. ㅎㅎ 잘못해서 ctrl 됫다는 + If Prj.UserAuthType = "ADMIN" OrElse Prj.UserAuthType = "BOTH" OrElse Prj.UserAuthType = "BOTH2" OrElse Prj.UserAuthType = "BOTH1" Then '//2011.03.08 추가 + Select Case e.KeyCode + Case Keys.D + If e.Alt Then + Dbbase.DelCrow(Me.bs, False) + End If + Case Keys.C + If e.Control Then + Me.SrcDrv = Me.bs.Current + If Me.SrcDrv Is Nothing Then + MsgBox("저장할 ROW가 없습니다", MsgBoxStyle.Information, "확인") + Return + End If + ' My.Computer.Clipboard.SetData("ZDATA", Drv) + End If + Case Keys.V + If e.Control Then + If Me.SrcDrv Is Nothing Then Return + Me.bt_add.PerformClick() '//신규추가 + Dim NewDrv As DataRowView = Me.bs.Current + + For Each C As DataColumn In Me.DT.Columns + If C.ColumnName.ToUpper = "CODE" Then + ElseIf C.ColumnName.ToUpper = "설명" Then + NewDrv(C.ColumnName) = SrcDrv(C.ColumnName) & "#1" + Else + NewDrv(C.ColumnName) = SrcDrv(C.ColumnName) + End If + Next + Me.bs.EndEdit() + bs.MoveLast() + End If + End Select + End If + End Sub + + Private Sub Cmb_팬효율산출방식_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Cmb_팬효율산출방식.SelectedIndexChanged + Validate_Control() + End Sub + + Private Sub Tb_급기풍량_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Tb_급기풍량.TextChanged, Tb_급기팬압력손실.TextChanged, Tb_급기팬동력.TextChanged + If Me.Cmb_팬효율산출방식.Text = "계산치" AndAlso Me.Tb_급기팬동력.Text <> "" AndAlso Me.Tb_급기팬동력.Text <> "0" AndAlso Me.Tb_급기팬동력.Text <> "0." Then + Dim 효율 As Decimal + Try + 효율 = Math.Round(TOSG(Tb_급기풍량.Text) * (TOSG(Tb_급기팬압력손실.Text) / 9.8) / (TOSG(Tb_급기팬동력.Text) * 102 * 3600), 3) + Me.Tb_급기팬효율.Text = TOSG(효율).ToString + Catch ex As Exception + + End Try + End If + End Sub + + Private Sub Tb_배기풍량_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Tb_배기풍량.TextChanged, Tb_배기팬압력손실.TextChanged, Tb_배기팬동력.TextChanged + If Me.Cmb_팬효율산출방식.Text = "계산치" AndAlso Me.Tb_배기팬동력.Text <> "" AndAlso Me.Tb_배기팬동력.Text <> "0" AndAlso Me.Tb_배기팬동력.Text <> "0." Then + Dim 효율 As Decimal + Try + 효율 = Math.Round(TOSG(Tb_배기풍량.Text) * (TOSG(Tb_배기팬압력손실.Text) / 9.8) / (TOSG(Tb_배기팬동력.Text) * 102 * 3600), 3) + Me.Tb_배기팬효율.Text = TOSG(효율).ToString + Catch ex As Exception + + End Try + End If + End Sub + + +End Class \ No newline at end of file diff --git a/ArinWarev1/Forms/v20091231/Frm_v20091231_kongkub.Designer.vb b/ArinWarev1/Forms/v20091231/Frm_v20091231_kongkub.Designer.vb new file mode 100644 index 0000000..bedd59c --- /dev/null +++ b/ArinWarev1/Forms/v20091231/Frm_v20091231_kongkub.Designer.vb @@ -0,0 +1,903 @@ + _ +Partial Class Frm_v20091231_kongkub + Inherits MMM.FaderForm + + 'Form은 Dispose를 재정의하여 구성 요소 목록을 정리합니다. + _ + Protected Overrides Sub Dispose(ByVal disposing As Boolean) + Try + If disposing AndAlso components IsNot Nothing Then + components.Dispose() + End If + Finally + MyBase.Dispose(disposing) + End Try + End Sub + + 'Windows Form 디자이너에 필요합니다. + Private components As System.ComponentModel.IContainer + + '참고: 다음 프로시저는 Windows Form 디자이너에 필요합니다. + '수정하려면 Windows Form 디자이너를 사용하십시오. + '코드 편집기를 사용하여 수정하지 마십시오. + _ + Private Sub InitializeComponent() + Me.components = New System.ComponentModel.Container + Dim Label1 As System.Windows.Forms.Label + Dim Label2 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 Label8 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 Label17 As System.Windows.Forms.Label + Dim Label18 As System.Windows.Forms.Label + Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(Frm_v20091231_kongkub)) + Me.bs = New System.Windows.Forms.BindingSource(Me.components) + Me.DS = New Eco2Ar.DS + Me.전기난방GroupBox = New System.Windows.Forms.GroupBox + Me.Label16 = New System.Windows.Forms.Label + Me.전기난방제어ComboBox = New Eco2Ar.MyCmb + Me.전기난방PictureBox = New System.Windows.Forms.PictureBox + Me.바닥난방열GroupBox = New System.Windows.Forms.GroupBox + Me.Label20 = New System.Windows.Forms.Label + Me.바닥난방열제어ComboBox = New Eco2Ar.MyCmb + Me.바닥난방열건축부위ComboBox = New Eco2Ar.MyCmb + Me.바닥난방열PictureBox = New System.Windows.Forms.PictureBox + Me.바닥난방전기GroupBox = New System.Windows.Forms.GroupBox + Me.Label19 = New System.Windows.Forms.Label + Me.바닥난방전기제어ComboBox = New Eco2Ar.MyCmb + Me.바닥난방전기건축부위ComboBox = New Eco2Ar.MyCmb + Me.바닥난방전기PictureBox = New System.Windows.Forms.PictureBox + Me.GroupBox28 = New System.Windows.Forms.GroupBox + Me.열공급시스템ComboBox = New Eco2Ar.MyCmb + Me.열공급생산기기ComboBox = New Eco2Ar.MyCmb + Me.PictureBox1 = New System.Windows.Forms.PictureBox + Me.노출형방열기GroupBox = New System.Windows.Forms.GroupBox + Me.Label10 = New System.Windows.Forms.Label + Me.노출형제어ComboBox = New Eco2Ar.MyCmb + Me.노출형방열기PictureBox = New System.Windows.Forms.PictureBox + Me.GroupBox3 = New System.Windows.Forms.GroupBox + Me.추가펌프수NTb = New Eco2Ar.MyTb + Me.팬송풍기수NTb = New Eco2Ar.MyTb + Me.펌프정격전력NTb = New Eco2Ar.MyTb + Me.제어기의정격전력NTb = New Eco2Ar.MyTb + Me.팬송풍기정격전력NTb = New Eco2Ar.MyTb + Me.PictureBox8 = New System.Windows.Forms.PictureBox + Me.Label201 = New System.Windows.Forms.Label + Me.tb_zone_cnt = New System.Windows.Forms.TextBox + Me.SplitContainer1 = New System.Windows.Forms.SplitContainer + Me.dv = New CEnergy.arindv + Me.DataGridViewTextBoxColumn1 = New System.Windows.Forms.DataGridViewTextBoxColumn + 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 + Me.bt_Del = New System.Windows.Forms.ToolStripButton + Me.bt_cancel = New System.Windows.Forms.ToolStripButton + Me.ToolStripSeparator1 = New System.Windows.Forms.ToolStripSeparator + Me.lbl_pos = New System.Windows.Forms.ToolStripLabel + Me.Label9 = New System.Windows.Forms.Label + Me.PictureBox2 = New System.Windows.Forms.PictureBox + Me.Label11 = New System.Windows.Forms.Label + Me.PictureBox4 = New System.Windows.Forms.PictureBox + Me.Panel1 = New System.Windows.Forms.Panel + Label1 = New System.Windows.Forms.Label + Label2 = 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 + Label8 = New System.Windows.Forms.Label + Label13 = New System.Windows.Forms.Label + Label14 = New System.Windows.Forms.Label + Label15 = New System.Windows.Forms.Label + Label17 = New System.Windows.Forms.Label + Label18 = New System.Windows.Forms.Label + CType(Me.ErrProvider, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.bsmain, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.bs, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.DS, System.ComponentModel.ISupportInitialize).BeginInit() + Me.전기난방GroupBox.SuspendLayout() + CType(Me.전기난방PictureBox, System.ComponentModel.ISupportInitialize).BeginInit() + Me.바닥난방열GroupBox.SuspendLayout() + CType(Me.바닥난방열PictureBox, System.ComponentModel.ISupportInitialize).BeginInit() + Me.바닥난방전기GroupBox.SuspendLayout() + CType(Me.바닥난방전기PictureBox, System.ComponentModel.ISupportInitialize).BeginInit() + Me.GroupBox28.SuspendLayout() + CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit() + Me.노출형방열기GroupBox.SuspendLayout() + CType(Me.노출형방열기PictureBox, System.ComponentModel.ISupportInitialize).BeginInit() + Me.GroupBox3.SuspendLayout() + CType(Me.PictureBox8, System.ComponentModel.ISupportInitialize).BeginInit() + Me.SplitContainer1.Panel1.SuspendLayout() + Me.SplitContainer1.Panel2.SuspendLayout() + Me.SplitContainer1.SuspendLayout() + CType(Me.dv, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.bn, System.ComponentModel.ISupportInitialize).BeginInit() + Me.bn.SuspendLayout() + CType(Me.PictureBox2, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.PictureBox4, System.ComponentModel.ISupportInitialize).BeginInit() + Me.Panel1.SuspendLayout() + Me.SuspendLayout() + ' + 'Label1 + ' + Label1.AutoSize = True + Label1.BackColor = System.Drawing.Color.FromArgb(CType(CType(243, Byte), Integer), CType(CType(244, Byte), Integer), CType(CType(246, Byte), Integer)) + Label1.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label1.Location = New System.Drawing.Point(19, 37) + Label1.Name = "Label1" + Label1.Size = New System.Drawing.Size(81, 14) + Label1.TabIndex = 0 + Label1.Text = "실내온도-제어:" + ' + 'Label2 + ' + Label2.AutoSize = True + Label2.BackColor = System.Drawing.Color.FromArgb(CType(CType(219, Byte), Integer), CType(CType(221, Byte), Integer), CType(CType(223, Byte), Integer)) + Label2.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label2.Location = New System.Drawing.Point(6, 37) + Label2.Name = "Label2" + Label2.Size = New System.Drawing.Size(81, 14) + Label2.TabIndex = 0 + Label2.Text = "실내온도-제어:" + ' + 'Label3 + ' + Label3.AutoSize = True + Label3.BackColor = System.Drawing.Color.FromArgb(CType(CType(219, Byte), Integer), CType(CType(221, Byte), Integer), CType(CType(223, Byte), Integer)) + Label3.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label3.Location = New System.Drawing.Point(6, 64) + Label3.Name = "Label3" + Label3.Size = New System.Drawing.Size(106, 28) + Label3.TabIndex = 2 + Label3.Text = "건축부위=바닥난방 " & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "시스템:" + Label3.TextAlign = System.Drawing.ContentAlignment.MiddleCenter + ' + 'Label4 + ' + Label4.AutoSize = True + Label4.BackColor = System.Drawing.Color.FromArgb(CType(CType(219, Byte), Integer), CType(CType(221, Byte), Integer), CType(CType(223, Byte), Integer)) + Label4.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label4.Location = New System.Drawing.Point(18, 42) + Label4.Name = "Label4" + Label4.Size = New System.Drawing.Size(81, 14) + Label4.TabIndex = 0 + Label4.Text = "실내온도-제어:" + ' + 'Label5 + ' + Label5.AutoSize = True + Label5.BackColor = System.Drawing.Color.FromArgb(CType(CType(219, Byte), Integer), CType(CType(221, Byte), Integer), CType(CType(223, Byte), Integer)) + Label5.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label5.Location = New System.Drawing.Point(18, 71) + Label5.Name = "Label5" + Label5.Size = New System.Drawing.Size(55, 14) + Label5.TabIndex = 2 + Label5.Text = "건축부위:" + ' + 'Label6 + ' + Label6.AutoSize = True + Label6.BackColor = System.Drawing.Color.FromArgb(CType(CType(219, Byte), Integer), CType(CType(221, Byte), Integer), CType(CType(223, Byte), Integer)) + Label6.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label6.Location = New System.Drawing.Point(4, 21) + Label6.Name = "Label6" + Label6.Size = New System.Drawing.Size(92, 14) + Label6.TabIndex = 0 + Label6.Text = "1.열공급-시스템:" + ' + 'Label7 + ' + Label7.AutoSize = True + Label7.BackColor = System.Drawing.Color.FromArgb(CType(CType(219, Byte), Integer), CType(CType(221, Byte), Integer), CType(CType(223, Byte), Integer)) + Label7.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label7.Location = New System.Drawing.Point(248, 21) + Label7.Name = "Label7" + Label7.Size = New System.Drawing.Size(103, 14) + Label7.TabIndex = 2 + Label7.Text = "2.열공급-생산기기:" + ' + 'Label8 + ' + Label8.AutoSize = True + Label8.BackColor = System.Drawing.Color.FromArgb(CType(CType(243, Byte), Integer), CType(CType(244, Byte), Integer), CType(CType(246, Byte), Integer)) + Label8.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label8.Location = New System.Drawing.Point(7, 37) + Label8.Name = "Label8" + Label8.Size = New System.Drawing.Size(81, 14) + Label8.TabIndex = 0 + Label8.Text = "실내온도-제어:" + ' + 'Label13 + ' + Label13.AutoSize = True + Label13.BackColor = System.Drawing.Color.FromArgb(CType(CType(219, Byte), Integer), CType(CType(221, Byte), Integer), CType(CType(223, Byte), Integer)) + Label13.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label13.Location = New System.Drawing.Point(16, 119) + Label13.Name = "Label13" + Label13.Size = New System.Drawing.Size(83, 14) + Label13.TabIndex = 8 + Label13.Text = "5.추가 펌프 수:" + ' + 'Label14 + ' + Label14.AutoSize = True + Label14.BackColor = System.Drawing.Color.FromArgb(CType(CType(219, Byte), Integer), CType(CType(221, Byte), Integer), CType(CType(223, Byte), Integer)) + Label14.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label14.Location = New System.Drawing.Point(16, 19) + Label14.Name = "Label14" + Label14.Size = New System.Drawing.Size(135, 14) + Label14.TabIndex = 0 + Label14.Text = "1.제어기의 정격전력[W]:" + ' + 'Label15 + ' + Label15.AutoSize = True + Label15.BackColor = System.Drawing.Color.FromArgb(CType(CType(219, Byte), Integer), CType(CType(221, Byte), Integer), CType(CType(223, Byte), Integer)) + Label15.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label15.Location = New System.Drawing.Point(16, 94) + Label15.Name = "Label15" + Label15.Size = New System.Drawing.Size(85, 14) + Label15.TabIndex = 6 + Label15.Text = "4.팬/송풍기 수:" + ' + 'Label17 + ' + Label17.AutoSize = True + Label17.BackColor = System.Drawing.Color.FromArgb(CType(CType(219, Byte), Integer), CType(CType(221, Byte), Integer), CType(CType(223, Byte), Integer)) + Label17.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label17.Location = New System.Drawing.Point(16, 69) + Label17.Name = "Label17" + Label17.Size = New System.Drawing.Size(113, 14) + Label17.TabIndex = 4 + Label17.Text = "3.펌프 정격전력[W]:" + ' + 'Label18 + ' + Label18.AutoSize = True + Label18.BackColor = System.Drawing.Color.FromArgb(CType(CType(219, Byte), Integer), CType(CType(221, Byte), Integer), CType(CType(223, Byte), Integer)) + Label18.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label18.Location = New System.Drawing.Point(16, 44) + Label18.Name = "Label18" + Label18.Size = New System.Drawing.Size(140, 14) + Label18.TabIndex = 2 + Label18.Text = "2.팬/송풍기 정격전력[W]:" + ' + 'bs + ' + Me.bs.DataMember = "tbl_kongkub" + Me.bs.DataSource = Me.DS + Me.bs.Filter = "code <> '0'" + ' + 'DS + ' + Me.DS.DataSetName = "DS" + Me.DS.SchemaSerializationMode = System.Data.SchemaSerializationMode.IncludeSchema + ' + '전기난방GroupBox + ' + Me.전기난방GroupBox.Controls.Add(Me.Label16) + Me.전기난방GroupBox.Controls.Add(Label1) + Me.전기난방GroupBox.Controls.Add(Me.전기난방제어ComboBox) + Me.전기난방GroupBox.Controls.Add(Me.전기난방PictureBox) + Me.전기난방GroupBox.Location = New System.Drawing.Point(284, 115) + Me.전기난방GroupBox.Name = "전기난방GroupBox" + Me.전기난방GroupBox.Size = New System.Drawing.Size(236, 66) + Me.전기난방GroupBox.TabIndex = 3 + Me.전기난방GroupBox.TabStop = False + ' + 'Label16 + ' + Me.Label16.AutoSize = True + Me.Label16.BackColor = System.Drawing.Color.FromArgb(CType(CType(243, Byte), Integer), CType(CType(244, Byte), Integer), CType(CType(246, Byte), Integer)) + Me.Label16.Location = New System.Drawing.Point(6, 16) + Me.Label16.Name = "Label16" + Me.Label16.Size = New System.Drawing.Size(114, 14) + Me.Label16.TabIndex = 10 + Me.Label16.Text = "공급시스템=전기난방" + ' + '전기난방제어ComboBox + ' + Me.전기난방제어ComboBox.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList + Me.전기난방제어ComboBox.FormattingEnabled = True + Me.전기난방제어ComboBox.Location = New System.Drawing.Point(115, 33) + Me.전기난방제어ComboBox.Name = "전기난방제어ComboBox" + Me.전기난방제어ComboBox.NectControl = Nothing + Me.전기난방제어ComboBox.Size = New System.Drawing.Size(110, 22) + Me.전기난방제어ComboBox.TabIndex = 1 + ' + '전기난방PictureBox + ' + Me.전기난방PictureBox.BackColor = System.Drawing.Color.FromArgb(CType(CType(243, Byte), Integer), CType(CType(244, Byte), Integer), CType(CType(246, Byte), Integer)) + Me.전기난방PictureBox.Location = New System.Drawing.Point(1, 9) + Me.전기난방PictureBox.Name = "전기난방PictureBox" + Me.전기난방PictureBox.Size = New System.Drawing.Size(233, 54) + Me.전기난방PictureBox.TabIndex = 2 + Me.전기난방PictureBox.TabStop = False + ' + '바닥난방열GroupBox + ' + Me.바닥난방열GroupBox.Controls.Add(Me.Label20) + Me.바닥난방열GroupBox.Controls.Add(Label2) + Me.바닥난방열GroupBox.Controls.Add(Label3) + Me.바닥난방열GroupBox.Controls.Add(Me.바닥난방열제어ComboBox) + Me.바닥난방열GroupBox.Controls.Add(Me.바닥난방열건축부위ComboBox) + Me.바닥난방열GroupBox.Controls.Add(Me.바닥난방열PictureBox) + Me.바닥난방열GroupBox.Location = New System.Drawing.Point(43, 182) + Me.바닥난방열GroupBox.Name = "바닥난방열GroupBox" + Me.바닥난방열GroupBox.Size = New System.Drawing.Size(236, 101) + Me.바닥난방열GroupBox.TabIndex = 4 + Me.바닥난방열GroupBox.TabStop = False + ' + 'Label20 + ' + Me.Label20.AutoSize = True + Me.Label20.BackColor = System.Drawing.Color.FromArgb(CType(CType(219, Byte), Integer), CType(CType(221, Byte), Integer), CType(CType(223, Byte), Integer)) + Me.Label20.Location = New System.Drawing.Point(6, 17) + Me.Label20.Name = "Label20" + Me.Label20.Size = New System.Drawing.Size(133, 14) + Me.Label20.TabIndex = 10 + Me.Label20.Text = "공급시스템=바닥난방(열)" + ' + '바닥난방열제어ComboBox + ' + Me.바닥난방열제어ComboBox.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList + Me.바닥난방열제어ComboBox.FormattingEnabled = True + Me.바닥난방열제어ComboBox.Location = New System.Drawing.Point(112, 37) + Me.바닥난방열제어ComboBox.Name = "바닥난방열제어ComboBox" + Me.바닥난방열제어ComboBox.NectControl = Nothing + Me.바닥난방열제어ComboBox.Size = New System.Drawing.Size(117, 22) + Me.바닥난방열제어ComboBox.TabIndex = 1 + ' + '바닥난방열건축부위ComboBox + ' + Me.바닥난방열건축부위ComboBox.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList + Me.바닥난방열건축부위ComboBox.FormattingEnabled = True + Me.바닥난방열건축부위ComboBox.Location = New System.Drawing.Point(112, 66) + Me.바닥난방열건축부위ComboBox.Name = "바닥난방열건축부위ComboBox" + Me.바닥난방열건축부위ComboBox.NectControl = Nothing + Me.바닥난방열건축부위ComboBox.Size = New System.Drawing.Size(117, 22) + Me.바닥난방열건축부위ComboBox.TabIndex = 3 + ' + '바닥난방열PictureBox + ' + Me.바닥난방열PictureBox.BackColor = System.Drawing.Color.FromArgb(CType(CType(219, Byte), Integer), CType(CType(221, Byte), Integer), CType(CType(223, Byte), Integer)) + Me.바닥난방열PictureBox.Location = New System.Drawing.Point(3, 9) + Me.바닥난방열PictureBox.Name = "바닥난방열PictureBox" + Me.바닥난방열PictureBox.Size = New System.Drawing.Size(230, 88) + Me.바닥난방열PictureBox.TabIndex = 11 + Me.바닥난방열PictureBox.TabStop = False + ' + '바닥난방전기GroupBox + ' + Me.바닥난방전기GroupBox.Controls.Add(Me.Label19) + Me.바닥난방전기GroupBox.Controls.Add(Label4) + Me.바닥난방전기GroupBox.Controls.Add(Label5) + Me.바닥난방전기GroupBox.Controls.Add(Me.바닥난방전기제어ComboBox) + Me.바닥난방전기GroupBox.Controls.Add(Me.바닥난방전기건축부위ComboBox) + Me.바닥난방전기GroupBox.Controls.Add(Me.바닥난방전기PictureBox) + Me.바닥난방전기GroupBox.Location = New System.Drawing.Point(285, 182) + Me.바닥난방전기GroupBox.Name = "바닥난방전기GroupBox" + Me.바닥난방전기GroupBox.Size = New System.Drawing.Size(236, 101) + Me.바닥난방전기GroupBox.TabIndex = 5 + Me.바닥난방전기GroupBox.TabStop = False + ' + 'Label19 + ' + Me.Label19.AutoSize = True + Me.Label19.BackColor = System.Drawing.Color.FromArgb(CType(CType(219, Byte), Integer), CType(CType(221, Byte), Integer), CType(CType(223, Byte), Integer)) + Me.Label19.Location = New System.Drawing.Point(6, 17) + Me.Label19.Name = "Label19" + Me.Label19.Size = New System.Drawing.Size(144, 14) + Me.Label19.TabIndex = 10 + Me.Label19.Text = "공급시스템=바닥난방(전기)" + ' + '바닥난방전기제어ComboBox + ' + Me.바닥난방전기제어ComboBox.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList + Me.바닥난방전기제어ComboBox.FormattingEnabled = True + Me.바닥난방전기제어ComboBox.Location = New System.Drawing.Point(114, 38) + Me.바닥난방전기제어ComboBox.Name = "바닥난방전기제어ComboBox" + Me.바닥난방전기제어ComboBox.NectControl = Nothing + Me.바닥난방전기제어ComboBox.Size = New System.Drawing.Size(110, 22) + Me.바닥난방전기제어ComboBox.TabIndex = 1 + ' + '바닥난방전기건축부위ComboBox + ' + Me.바닥난방전기건축부위ComboBox.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList + Me.바닥난방전기건축부위ComboBox.FormattingEnabled = True + Me.바닥난방전기건축부위ComboBox.Location = New System.Drawing.Point(114, 65) + Me.바닥난방전기건축부위ComboBox.Name = "바닥난방전기건축부위ComboBox" + Me.바닥난방전기건축부위ComboBox.NectControl = Nothing + Me.바닥난방전기건축부위ComboBox.Size = New System.Drawing.Size(110, 22) + Me.바닥난방전기건축부위ComboBox.TabIndex = 3 + ' + '바닥난방전기PictureBox + ' + Me.바닥난방전기PictureBox.BackColor = System.Drawing.Color.FromArgb(CType(CType(219, Byte), Integer), CType(CType(221, Byte), Integer), CType(CType(223, Byte), Integer)) + Me.바닥난방전기PictureBox.Location = New System.Drawing.Point(2, 9) + Me.바닥난방전기PictureBox.Name = "바닥난방전기PictureBox" + Me.바닥난방전기PictureBox.Size = New System.Drawing.Size(232, 88) + Me.바닥난방전기PictureBox.TabIndex = 11 + Me.바닥난방전기PictureBox.TabStop = False + ' + 'GroupBox28 + ' + Me.GroupBox28.Controls.Add(Label6) + Me.GroupBox28.Controls.Add(Me.열공급시스템ComboBox) + Me.GroupBox28.Controls.Add(Label7) + Me.GroupBox28.Controls.Add(Me.열공급생산기기ComboBox) + Me.GroupBox28.Controls.Add(Me.PictureBox1) + Me.GroupBox28.Location = New System.Drawing.Point(42, 66) + Me.GroupBox28.Name = "GroupBox28" + Me.GroupBox28.Size = New System.Drawing.Size(478, 47) + Me.GroupBox28.TabIndex = 1 + Me.GroupBox28.TabStop = False + ' + '열공급시스템ComboBox + ' + Me.열공급시스템ComboBox.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList + Me.열공급시스템ComboBox.FormattingEnabled = True + Me.열공급시스템ComboBox.Location = New System.Drawing.Point(113, 17) + Me.열공급시스템ComboBox.Name = "열공급시스템ComboBox" + Me.열공급시스템ComboBox.NectControl = Nothing + Me.열공급시스템ComboBox.Size = New System.Drawing.Size(117, 22) + Me.열공급시스템ComboBox.TabIndex = 1 + ' + '열공급생산기기ComboBox + ' + Me.열공급생산기기ComboBox.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList + Me.열공급생산기기ComboBox.FormattingEnabled = True + Me.열공급생산기기ComboBox.Location = New System.Drawing.Point(357, 18) + Me.열공급생산기기ComboBox.Name = "열공급생산기기ComboBox" + Me.열공급생산기기ComboBox.NectControl = Nothing + Me.열공급생산기기ComboBox.Size = New System.Drawing.Size(110, 22) + Me.열공급생산기기ComboBox.TabIndex = 3 + ' + 'PictureBox1 + ' + 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(475, 35) + Me.PictureBox1.TabIndex = 4 + Me.PictureBox1.TabStop = False + ' + '노출형방열기GroupBox + ' + Me.노출형방열기GroupBox.Controls.Add(Me.Label10) + Me.노출형방열기GroupBox.Controls.Add(Label8) + Me.노출형방열기GroupBox.Controls.Add(Me.노출형제어ComboBox) + Me.노출형방열기GroupBox.Controls.Add(Me.노출형방열기PictureBox) + Me.노출형방열기GroupBox.Location = New System.Drawing.Point(42, 115) + Me.노출형방열기GroupBox.Name = "노출형방열기GroupBox" + Me.노출형방열기GroupBox.Size = New System.Drawing.Size(236, 66) + Me.노출형방열기GroupBox.TabIndex = 2 + Me.노출형방열기GroupBox.TabStop = False + ' + 'Label10 + ' + Me.Label10.AutoSize = True + Me.Label10.BackColor = System.Drawing.Color.FromArgb(CType(CType(243, Byte), Integer), CType(CType(244, Byte), Integer), CType(CType(246, Byte), Integer)) + Me.Label10.Location = New System.Drawing.Point(7, 16) + Me.Label10.Name = "Label10" + Me.Label10.Size = New System.Drawing.Size(155, 14) + Me.Label10.TabIndex = 10 + Me.Label10.Text = "공급시스템=노출형방열기(열)" + ' + '노출형제어ComboBox + ' + Me.노출형제어ComboBox.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList + Me.노출형제어ComboBox.FormattingEnabled = True + Me.노출형제어ComboBox.Location = New System.Drawing.Point(115, 33) + Me.노출형제어ComboBox.Name = "노출형제어ComboBox" + Me.노출형제어ComboBox.NectControl = Nothing + Me.노출형제어ComboBox.Size = New System.Drawing.Size(117, 22) + Me.노출형제어ComboBox.TabIndex = 1 + ' + '노출형방열기PictureBox + ' + Me.노출형방열기PictureBox.BackColor = System.Drawing.Color.FromArgb(CType(CType(243, Byte), Integer), CType(CType(244, Byte), Integer), CType(CType(246, Byte), Integer)) + Me.노출형방열기PictureBox.Location = New System.Drawing.Point(1, 9) + Me.노출형방열기PictureBox.Name = "노출형방열기PictureBox" + Me.노출형방열기PictureBox.Size = New System.Drawing.Size(233, 54) + Me.노출형방열기PictureBox.TabIndex = 2 + Me.노출형방열기PictureBox.TabStop = False + ' + 'GroupBox3 + ' + Me.GroupBox3.Controls.Add(Me.추가펌프수NTb) + Me.GroupBox3.Controls.Add(Label13) + Me.GroupBox3.Controls.Add(Label14) + Me.GroupBox3.Controls.Add(Label15) + Me.GroupBox3.Controls.Add(Label17) + Me.GroupBox3.Controls.Add(Me.팬송풍기수NTb) + Me.GroupBox3.Controls.Add(Label18) + Me.GroupBox3.Controls.Add(Me.펌프정격전력NTb) + Me.GroupBox3.Controls.Add(Me.제어기의정격전력NTb) + Me.GroupBox3.Controls.Add(Me.팬송풍기정격전력NTb) + Me.GroupBox3.Controls.Add(Me.PictureBox8) + Me.GroupBox3.Location = New System.Drawing.Point(42, 343) + Me.GroupBox3.Name = "GroupBox3" + Me.GroupBox3.Size = New System.Drawing.Size(478, 147) + Me.GroupBox3.TabIndex = 1 + Me.GroupBox3.TabStop = False + ' + '추가펌프수NTb + ' + Me.추가펌프수NTb.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bs, "추가펌프수", True)) + Me.추가펌프수NTb.Location = New System.Drawing.Point(193, 114) + Me.추가펌프수NTb.Name = "추가펌프수NTb" + Me.추가펌프수NTb.NectControl = Nothing + Me.추가펌프수NTb.Size = New System.Drawing.Size(70, 21) + Me.추가펌프수NTb.TabIndex = 9 + Me.추가펌프수NTb.TextAlign = System.Windows.Forms.HorizontalAlignment.Right + Me.추가펌프수NTb.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + ' + '팬송풍기수NTb + ' + Me.팬송풍기수NTb.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bs, "팬송풍기수", True)) + Me.팬송풍기수NTb.Location = New System.Drawing.Point(193, 90) + Me.팬송풍기수NTb.Name = "팬송풍기수NTb" + Me.팬송풍기수NTb.NectControl = Nothing + Me.팬송풍기수NTb.Size = New System.Drawing.Size(70, 21) + Me.팬송풍기수NTb.TabIndex = 7 + Me.팬송풍기수NTb.TextAlign = System.Windows.Forms.HorizontalAlignment.Right + Me.팬송풍기수NTb.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + ' + '펌프정격전력NTb + ' + Me.펌프정격전력NTb.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bs, "펌프정격전력", True)) + Me.펌프정격전력NTb.Location = New System.Drawing.Point(193, 66) + Me.펌프정격전력NTb.Name = "펌프정격전력NTb" + Me.펌프정격전력NTb.NectControl = Nothing + Me.펌프정격전력NTb.Size = New System.Drawing.Size(70, 21) + Me.펌프정격전력NTb.TabIndex = 5 + Me.펌프정격전력NTb.TextAlign = System.Windows.Forms.HorizontalAlignment.Right + Me.펌프정격전력NTb.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + ' + '제어기의정격전력NTb + ' + Me.제어기의정격전력NTb.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bs, "제어기의정격전력", True)) + Me.제어기의정격전력NTb.Location = New System.Drawing.Point(193, 18) + Me.제어기의정격전력NTb.Name = "제어기의정격전력NTb" + Me.제어기의정격전력NTb.NectControl = Nothing + Me.제어기의정격전력NTb.Size = New System.Drawing.Size(70, 21) + Me.제어기의정격전력NTb.TabIndex = 1 + Me.제어기의정격전력NTb.TextAlign = System.Windows.Forms.HorizontalAlignment.Right + Me.제어기의정격전력NTb.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + ' + '팬송풍기정격전력NTb + ' + Me.팬송풍기정격전력NTb.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bs, "팬송풍기정격전력", True)) + Me.팬송풍기정격전력NTb.Location = New System.Drawing.Point(193, 42) + Me.팬송풍기정격전력NTb.Name = "팬송풍기정격전력NTb" + Me.팬송풍기정격전력NTb.NectControl = Nothing + Me.팬송풍기정격전력NTb.Size = New System.Drawing.Size(70, 21) + Me.팬송풍기정격전력NTb.TabIndex = 3 + Me.팬송풍기정격전력NTb.TextAlign = System.Windows.Forms.HorizontalAlignment.Right + Me.팬송풍기정격전력NTb.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + ' + 'PictureBox8 + ' + Me.PictureBox8.BackColor = System.Drawing.Color.FromArgb(CType(CType(219, Byte), Integer), CType(CType(221, Byte), Integer), CType(CType(223, Byte), Integer)) + Me.PictureBox8.Location = New System.Drawing.Point(2, 9) + Me.PictureBox8.Name = "PictureBox8" + Me.PictureBox8.Size = New System.Drawing.Size(473, 135) + Me.PictureBox8.TabIndex = 4 + Me.PictureBox8.TabStop = False + ' + 'Label201 + ' + Me.Label201.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.Label201.AutoSize = True + Me.Label201.ForeColor = System.Drawing.Color.DarkCyan + Me.Label201.Location = New System.Drawing.Point(374, 9) + Me.Label201.Name = "Label201" + Me.Label201.Size = New System.Drawing.Size(94, 14) + Me.Label201.TabIndex = 1 + Me.Label201.Text = "적용된 입력존 수:" + Me.Label201.TextAlign = System.Drawing.ContentAlignment.MiddleRight + ' + '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(473, 5) + Me.tb_zone_cnt.Name = "tb_zone_cnt" + Me.tb_zone_cnt.ReadOnly = True + Me.tb_zone_cnt.Size = New System.Drawing.Size(87, 21) + Me.tb_zone_cnt.TabIndex = 2 + Me.tb_zone_cnt.TabStop = False + Me.tb_zone_cnt.Text = "0" + Me.tb_zone_cnt.TextAlign = System.Windows.Forms.HorizontalAlignment.Center + ' + '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, 30) + 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.BackColor = System.Drawing.Color.White + Me.SplitContainer1.Panel2.Controls.Add(Me.Label9) + Me.SplitContainer1.Panel2.Controls.Add(Me.PictureBox2) + Me.SplitContainer1.Panel2.Controls.Add(Me.Label11) + Me.SplitContainer1.Panel2.Controls.Add(Me.PictureBox4) + Me.SplitContainer1.Panel2.Controls.Add(Me.전기난방GroupBox) + Me.SplitContainer1.Panel2.Controls.Add(Me.GroupBox3) + Me.SplitContainer1.Panel2.Controls.Add(Me.바닥난방열GroupBox) + Me.SplitContainer1.Panel2.Controls.Add(Me.바닥난방전기GroupBox) + Me.SplitContainer1.Panel2.Controls.Add(Me.GroupBox28) + Me.SplitContainer1.Panel2.Controls.Add(Me.Panel1) + Me.SplitContainer1.Panel2.Controls.Add(Me.노출형방열기GroupBox) + Me.SplitContainer1.Size = New System.Drawing.Size(795, 535) + Me.SplitContainer1.SplitterDistance = 224 + Me.SplitContainer1.TabIndex = 127 + ' + 'dv + ' + Me.dv.A_DelCurrentCell = True + Me.dv.A_EnterToTab = True + 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.FromArgb(CType(CType(245, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(246, Byte), Integer)) + Me.dv.BorderStyle = System.Windows.Forms.BorderStyle.None + Me.dv.ColumnHeadersHeight = 30 + Me.dv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.DisableResizing + 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.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(222, 493) + Me.dv.TabIndex = 0 + ' + 'DataGridViewTextBoxColumn1 + ' + Me.DataGridViewTextBoxColumn1.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.Fill + Me.DataGridViewTextBoxColumn1.DataPropertyName = "설명" + Me.DataGridViewTextBoxColumn1.HeaderText = "설명" + Me.DataGridViewTextBoxColumn1.Name = "DataGridViewTextBoxColumn1" + ' + '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("나눔고딕 ExtraBold", 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.bn.Location = New System.Drawing.Point(0, 493) + 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(222, 40) + Me.bn.TabIndex = 1 + Me.bn.Text = "BindingNavigator1" + ' + 'lbl_count + ' + Me.lbl_count.Name = "lbl_count" + Me.lbl_count.Size = New System.Drawing.Size(27, 37) + 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, 37) + 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, 37) + 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, 37) + Me.bt_cancel.Text = "변경취소(&C)" + Me.bt_cancel.ToolTipText = "변경된 내용을 되돌립니다" + ' + 'ToolStripSeparator1 + ' + Me.ToolStripSeparator1.Name = "ToolStripSeparator1" + Me.ToolStripSeparator1.Size = New System.Drawing.Size(6, 40) + ' + 'lbl_pos + ' + Me.lbl_pos.Name = "lbl_pos" + Me.lbl_pos.Size = New System.Drawing.Size(14, 37) + Me.lbl_pos.Text = "0" + ' + 'Label9 + ' + Me.Label9.AutoSize = True + Me.Label9.BackColor = System.Drawing.Color.FromArgb(CType(CType(116, Byte), Integer), CType(CType(158, Byte), Integer), CType(CType(209, Byte), Integer)) + Me.Label9.ForeColor = System.Drawing.Color.White + Me.Label9.Location = New System.Drawing.Point(29, 326) + Me.Label9.Name = "Label9" + Me.Label9.Size = New System.Drawing.Size(113, 14) + Me.Label9.TabIndex = 162 + Me.Label9.Text = "열공급-시스템 특성치" + ' + 'PictureBox2 + ' + Me.PictureBox2.BackgroundImage = CType(resources.GetObject("PictureBox2.BackgroundImage"), System.Drawing.Image) + Me.PictureBox2.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch + Me.PictureBox2.Location = New System.Drawing.Point(26, 315) + Me.PictureBox2.Name = "PictureBox2" + Me.PictureBox2.Size = New System.Drawing.Size(131, 30) + Me.PictureBox2.TabIndex = 161 + Me.PictureBox2.TabStop = False + ' + 'Label11 + ' + Me.Label11.AutoSize = True + Me.Label11.BackColor = System.Drawing.Color.FromArgb(CType(CType(116, Byte), Integer), CType(CType(158, Byte), Integer), CType(CType(209, Byte), Integer)) + Me.Label11.ForeColor = System.Drawing.Color.White + Me.Label11.Location = New System.Drawing.Point(39, 49) + Me.Label11.Name = "Label11" + Me.Label11.Size = New System.Drawing.Size(87, 14) + Me.Label11.TabIndex = 162 + Me.Label11.Text = "공급과 제어난방" + ' + 'PictureBox4 + ' + Me.PictureBox4.BackgroundImage = CType(resources.GetObject("PictureBox4.BackgroundImage"), System.Drawing.Image) + Me.PictureBox4.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch + Me.PictureBox4.Location = New System.Drawing.Point(26, 38) + Me.PictureBox4.Name = "PictureBox4" + Me.PictureBox4.Size = New System.Drawing.Size(131, 30) + Me.PictureBox4.TabIndex = 161 + Me.PictureBox4.TabStop = False + ' + 'Panel1 + ' + Me.Panel1.BackColor = System.Drawing.Color.FromArgb(CType(CType(243, Byte), Integer), CType(CType(244, Byte), Integer), CType(CType(246, Byte), Integer)) + Me.Panel1.Controls.Add(Me.tb_zone_cnt) + Me.Panel1.Controls.Add(Me.Label201) + Me.Panel1.Dock = System.Windows.Forms.DockStyle.Top + Me.Panel1.Location = New System.Drawing.Point(0, 0) + Me.Panel1.Name = "Panel1" + Me.Panel1.Size = New System.Drawing.Size(565, 30) + Me.Panel1.TabIndex = 5 + ' + 'Frm_v20091231_kongkub + ' + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.None + Me.ClientSize = New System.Drawing.Size(795, 565) + Me.Controls.Add(Me.SplitContainer1) + Me.Font = New System.Drawing.Font("나눔고딕 ExtraBold", 8.999999!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.KeyPreview = True + Me.Name = "Frm_v20091231_kongkub" + Me.ShowInTaskbar = False + Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen + Me.Text = "난방공급시스템" + Me.Controls.SetChildIndex(Me.SplitContainer1, 0) + CType(Me.ErrProvider, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.bsmain, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.bs, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.DS, System.ComponentModel.ISupportInitialize).EndInit() + Me.전기난방GroupBox.ResumeLayout(False) + Me.전기난방GroupBox.PerformLayout() + CType(Me.전기난방PictureBox, System.ComponentModel.ISupportInitialize).EndInit() + Me.바닥난방열GroupBox.ResumeLayout(False) + Me.바닥난방열GroupBox.PerformLayout() + CType(Me.바닥난방열PictureBox, System.ComponentModel.ISupportInitialize).EndInit() + Me.바닥난방전기GroupBox.ResumeLayout(False) + Me.바닥난방전기GroupBox.PerformLayout() + CType(Me.바닥난방전기PictureBox, System.ComponentModel.ISupportInitialize).EndInit() + Me.GroupBox28.ResumeLayout(False) + Me.GroupBox28.PerformLayout() + CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).EndInit() + Me.노출형방열기GroupBox.ResumeLayout(False) + Me.노출형방열기GroupBox.PerformLayout() + CType(Me.노출형방열기PictureBox, System.ComponentModel.ISupportInitialize).EndInit() + Me.GroupBox3.ResumeLayout(False) + Me.GroupBox3.PerformLayout() + CType(Me.PictureBox8, System.ComponentModel.ISupportInitialize).EndInit() + Me.SplitContainer1.Panel1.ResumeLayout(False) + Me.SplitContainer1.Panel2.ResumeLayout(False) + Me.SplitContainer1.Panel2.PerformLayout() + Me.SplitContainer1.ResumeLayout(False) + CType(Me.dv, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.bn, System.ComponentModel.ISupportInitialize).EndInit() + Me.bn.ResumeLayout(False) + Me.bn.PerformLayout() + CType(Me.PictureBox2, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.PictureBox4, System.ComponentModel.ISupportInitialize).EndInit() + Me.Panel1.ResumeLayout(False) + Me.Panel1.PerformLayout() + Me.ResumeLayout(False) + + End Sub + Friend WithEvents 추가펌프수NTb As MyTb + Friend WithEvents 팬송풍기수NTb As MyTb + Friend WithEvents 펌프정격전력NTb As MyTb + Friend WithEvents 팬송풍기정격전력NTb As MyTb + Friend WithEvents 제어기의정격전력NTb As MyTb + Public WithEvents DS As Eco2Ar.DS + Friend WithEvents bs As System.Windows.Forms.BindingSource + Friend WithEvents 전기난방제어ComboBox As Eco2Ar.MyCmb + Friend WithEvents 바닥난방전기건축부위ComboBox As Eco2Ar.MyCmb + Friend WithEvents 바닥난방전기제어ComboBox As Eco2Ar.MyCmb + Friend WithEvents 바닥난방열건축부위ComboBox As Eco2Ar.MyCmb + Friend WithEvents 바닥난방열제어ComboBox As Eco2Ar.MyCmb + Friend WithEvents 노출형제어ComboBox As Eco2Ar.MyCmb + Friend WithEvents 열공급생산기기ComboBox As Eco2Ar.MyCmb + Friend WithEvents 열공급시스템ComboBox As Eco2Ar.MyCmb + Friend WithEvents 전기난방GroupBox As System.Windows.Forms.GroupBox + Friend WithEvents 바닥난방열GroupBox As System.Windows.Forms.GroupBox + Friend WithEvents 바닥난방전기GroupBox As System.Windows.Forms.GroupBox + Friend WithEvents GroupBox28 As System.Windows.Forms.GroupBox + Friend WithEvents 노출형방열기GroupBox As System.Windows.Forms.GroupBox + Friend WithEvents GroupBox3 As System.Windows.Forms.GroupBox + Friend WithEvents Label201 As System.Windows.Forms.Label + Friend WithEvents tb_zone_cnt As System.Windows.Forms.TextBox + Friend WithEvents SplitContainer1 As System.Windows.Forms.SplitContainer + Friend WithEvents dv As CEnergy.arindv + Friend WithEvents DataGridViewTextBoxColumn1 As System.Windows.Forms.DataGridViewTextBoxColumn + Friend WithEvents bn As System.Windows.Forms.BindingNavigator + Friend WithEvents bt_add As System.Windows.Forms.ToolStripButton + Friend WithEvents bt_Del As System.Windows.Forms.ToolStripButton + Friend WithEvents bt_cancel As System.Windows.Forms.ToolStripButton + Friend WithEvents ToolStripSeparator1 As System.Windows.Forms.ToolStripSeparator + Friend WithEvents Panel1 As System.Windows.Forms.Panel + Friend WithEvents lbl_count As System.Windows.Forms.ToolStripLabel + Friend WithEvents lbl_pos As System.Windows.Forms.ToolStripLabel + Friend WithEvents PictureBox1 As System.Windows.Forms.PictureBox + Friend WithEvents Label9 As System.Windows.Forms.Label + Friend WithEvents PictureBox2 As System.Windows.Forms.PictureBox + Friend WithEvents Label11 As System.Windows.Forms.Label + Friend WithEvents PictureBox4 As System.Windows.Forms.PictureBox + Friend WithEvents 노출형방열기PictureBox As System.Windows.Forms.PictureBox + Friend WithEvents Label16 As System.Windows.Forms.Label + Friend WithEvents 전기난방PictureBox As System.Windows.Forms.PictureBox + Friend WithEvents Label10 As System.Windows.Forms.Label + Friend WithEvents Label20 As System.Windows.Forms.Label + Friend WithEvents 바닥난방열PictureBox As System.Windows.Forms.PictureBox + Friend WithEvents Label19 As System.Windows.Forms.Label + Friend WithEvents 바닥난방전기PictureBox As System.Windows.Forms.PictureBox + Friend WithEvents PictureBox8 As System.Windows.Forms.PictureBox +End Class diff --git a/ArinWarev1/Forms/v20091231/Frm_v20091231_kongkub.resx b/ArinWarev1/Forms/v20091231/Frm_v20091231_kongkub.resx new file mode 100644 index 0000000..e69563b --- /dev/null +++ b/ArinWarev1/Forms/v20091231/Frm_v20091231_kongkub.resx @@ -0,0 +1,578 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + 109, 17 + + + 17, 17 + + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + 222, 17 + + + 286, 17 + + + 353, 17 + + + + + /9j/4AAQSkZJRgABAgEASABIAAD/7gAOQWRvYmUAZAAAAAAB/+ED5kV4aWYAAE1NACoAAAAIAAcBEgAD + AAAAAQABAAABGgAFAAAAAQAAAGIBGwAFAAAAAQAAAGoBKAADAAAAAQACAAABMQACAAAAHAAAAHIBMgAC + AAAAFAAAAI6HaQAEAAAAAQAAAKIAAADCAEgAAAABAAAASAAAAAEAAEFkb2JlIFBob3Rvc2hvcCBDUzMg + V2luZG93cwAyMDEwOjA0OjE1IDIwOjMyOjA0AAACoAIABAAAAAEAAAA8oAMABAAAAAEAAAAMAAAAAAAA + AAYBAwADAAAAAQAGAAABGgAFAAAAAQAAARABGwAFAAAAAQAAARgBKAADAAAAAQACAAACAQAEAAAAAQAA + ASACAgAEAAAAAQAAAr4AAAAAAAAASAAAAAEAAABIAAAAAf/Y/+AAEEpGSUYAAQIAAEgASAAA/+0ADEFk + b2JlX0NNAAH/7gAOQWRvYmUAZIAAAAAB/9sAhAAMCAgICQgMCQkMEQsKCxEVDwwMDxUYExMVExMYEQwM + DAwMDBEMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMAQ0LCw0ODRAODhAUDg4OFBQODg4OFBEMDAwM + DBERDAwMDAwMEQwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAz/wAARCAAMADwDASIAAhEBAxEB/90A + BAAE/8QBPwAAAQUBAQEBAQEAAAAAAAAAAwABAgQFBgcICQoLAQABBQEBAQEBAQAAAAAAAAABAAIDBAUG + BwgJCgsQAAEEAQMCBAIFBwYIBQMMMwEAAhEDBCESMQVBUWETInGBMgYUkaGxQiMkFVLBYjM0coLRQwcl + klPw4fFjczUWorKDJkSTVGRFwqN0NhfSVeJl8rOEw9N14/NGJ5SkhbSVxNTk9KW1xdXl9VZmdoaWprbG + 1ub2N0dXZ3eHl6e3x9fn9xEAAgIBAgQEAwQFBgcHBgU1AQACEQMhMRIEQVFhcSITBTKBkRShsUIjwVLR + 8DMkYuFygpJDUxVjczTxJQYWorKDByY1wtJEk1SjF2RFVTZ0ZeLys4TD03Xj80aUpIW0lcTU5PSltcXV + 5fVWZnaGlqa2xtbm9ic3R1dnd4eXp7fH/9oADAMBAAIRAxEAPwDd/amR/pH/AOcf70v2pkf6R/8AnH+9 + UUlofq/Bpevxb37UyP8ASP8A84/3pftTI/0j/wDOP96opJfq/BXr8W9+1Mj/AEj/APOP96X7UyP9I/8A + zj/eqKSX6vwV6/F3ujdbuGS2i5xfU8HVxktIG76XyW99vo27p0XGdO2/ba930dZj+q5dX+qfZPL8VAeD + 341VVr/eZhx+0bu708n/2f/tCSBQaG90b3Nob3AgMy4wADhCSU0EJQAAAAAAEAAAAAAAAAAAAAAAAAAA + AAA4QklNBC8AAAAAAErgYgEASAAAAEgAAAAAAAAAAAAAANACAABAAgAAAAAAAAAAAAAYAwAAZAIAAAAB + wAMAALAEAAABAA8nAQBsbHVuAAAAAAAAAAAAADhCSU0D7QAAAAAAEABIAAAAAQACAEgAAAABAAI4QklN + BCYAAAAAAA4AAAAAAAAAAAAAP4AAADhCSU0EDQAAAAAABAAAAHg4QklNBBkAAAAAAAQAAAAeOEJJTQPz + AAAAAAAJAAAAAAAAAAABADhCSU0ECgAAAAAAAQAAOEJJTScQAAAAAAAKAAEAAAAAAAAAAjhCSU0D9QAA + AAAASAAvZmYAAQBsZmYABgAAAAAAAQAvZmYAAQChmZoABgAAAAAAAQAyAAAAAQBaAAAABgAAAAAAAQA1 + AAAAAQAtAAAABgAAAAAAAThCSU0D+AAAAAAAcAAA/////////////////////////////wPoAAAAAP// + //////////////////////////8D6AAAAAD/////////////////////////////A+gAAAAA//////// + /////////////////////wPoAAA4QklNBAAAAAAAAAIAAjhCSU0EAgAAAAAABgAAAAAAADhCSU0EMAAA + AAAAAwEBAQA4QklNBC0AAAAAAAYAAQAAAAM4QklNBAgAAAAAABAAAAABAAACQAAAAkAAAAAAOEJJTQQe + AAAAAAAEAAAAADhCSU0EGgAAAAADPwAAAAYAAAAAAAAAAAAAAAwAAAA8AAAABbs0yBwALQAxADIAAAAB + AAAAAAAAAAAAAAAAAAAAAAAAAAEAAAAAAAAAAAAAADwAAAAMAAAAAAAAAAAAAAAAAAAAAAEAAAAAAAAA + AAAAAAAAAAAAAAAAEAAAAAEAAAAAAABudWxsAAAAAgAAAAZib3VuZHNPYmpjAAAAAQAAAAAAAFJjdDEA + AAAEAAAAAFRvcCBsb25nAAAAAAAAAABMZWZ0bG9uZwAAAAAAAAAAQnRvbWxvbmcAAAAMAAAAAFJnaHRs + b25nAAAAPAAAAAZzbGljZXNWbExzAAAAAU9iamMAAAABAAAAAAAFc2xpY2UAAAASAAAAB3NsaWNlSURs + b25nAAAAAAAAAAdncm91cElEbG9uZwAAAAAAAAAGb3JpZ2luZW51bQAAAAxFU2xpY2VPcmlnaW4AAAAN + YXV0b0dlbmVyYXRlZAAAAABUeXBlZW51bQAAAApFU2xpY2VUeXBlAAAAAEltZyAAAAAGYm91bmRzT2Jq + YwAAAAEAAAAAAABSY3QxAAAABAAAAABUb3AgbG9uZwAAAAAAAAAATGVmdGxvbmcAAAAAAAAAAEJ0b21s + b25nAAAADAAAAABSZ2h0bG9uZwAAADwAAAADdXJsVEVYVAAAAAEAAAAAAABudWxsVEVYVAAAAAEAAAAA + AABNc2dlVEVYVAAAAAEAAAAAAAZhbHRUYWdURVhUAAAAAQAAAAAADmNlbGxUZXh0SXNIVE1MYm9vbAEA + AAAIY2VsbFRleHRURVhUAAAAAQAAAAAACWhvcnpBbGlnbmVudW0AAAAPRVNsaWNlSG9yekFsaWduAAAA + B2RlZmF1bHQAAAAJdmVydEFsaWduZW51bQAAAA9FU2xpY2VWZXJ0QWxpZ24AAAAHZGVmYXVsdAAAAAti + Z0NvbG9yVHlwZWVudW0AAAARRVNsaWNlQkdDb2xvclR5cGUAAAAATm9uZQAAAAl0b3BPdXRzZXRsb25n + AAAAAAAAAApsZWZ0T3V0c2V0bG9uZwAAAAAAAAAMYm90dG9tT3V0c2V0bG9uZwAAAAAAAAALcmlnaHRP + dXRzZXRsb25nAAAAAAA4QklNBCgAAAAAAAwAAAABP/AAAAAAAAA4QklNBBQAAAAAAAQAAAAEOEJJTQQM + AAAAAALaAAAAAQAAADwAAAAMAAAAtAAACHAAAAK+ABgAAf/Y/+AAEEpGSUYAAQIAAEgASAAA/+0ADEFk + b2JlX0NNAAH/7gAOQWRvYmUAZIAAAAAB/9sAhAAMCAgICQgMCQkMEQsKCxEVDwwMDxUYExMVExMYEQwM + DAwMDBEMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMAQ0LCw0ODRAODhAUDg4OFBQODg4OFBEMDAwM + DBERDAwMDAwMEQwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAz/wAARCAAMADwDASIAAhEBAxEB/90A + BAAE/8QBPwAAAQUBAQEBAQEAAAAAAAAAAwABAgQFBgcICQoLAQABBQEBAQEBAQAAAAAAAAABAAIDBAUG + BwgJCgsQAAEEAQMCBAIFBwYIBQMMMwEAAhEDBCESMQVBUWETInGBMgYUkaGxQiMkFVLBYjM0coLRQwcl + klPw4fFjczUWorKDJkSTVGRFwqN0NhfSVeJl8rOEw9N14/NGJ5SkhbSVxNTk9KW1xdXl9VZmdoaWprbG + 1ub2N0dXZ3eHl6e3x9fn9xEAAgIBAgQEAwQFBgcHBgU1AQACEQMhMRIEQVFhcSITBTKBkRShsUIjwVLR + 8DMkYuFygpJDUxVjczTxJQYWorKDByY1wtJEk1SjF2RFVTZ0ZeLys4TD03Xj80aUpIW0lcTU5PSltcXV + 5fVWZnaGlqa2xtbm9ic3R1dnd4eXp7fH/9oADAMBAAIRAxEAPwDd/amR/pH/AOcf70v2pkf6R/8AnH+9 + UUlofq/Bpevxb37UyP8ASP8A84/3pftTI/0j/wDOP96opJfq/BXr8W9+1Mj/AEj/APOP96X7UyP9I/8A + zj/eqKSX6vwV6/F3ujdbuGS2i5xfU8HVxktIG76XyW99vo27p0XGdO2/ba930dZj+q5dX+qfZPL8VAeD + 341VVr/eZhx+0bu708n/2ThCSU0EIQAAAAAAVQAAAAEBAAAADwBBAGQAbwBiAGUAIABQAGgAbwB0AG8A + cwBoAG8AcAAAABMAQQBkAG8AYgBlACAAUABoAG8AdABvAHMAaABvAHAAIABDAFMAMwAAAAEAOEJJTQQG + AAAAAAAHAAgAAQABAQD/4Q/MaHR0cDovL25zLmFkb2JlLmNvbS94YXAvMS4wLwA8P3hwYWNrZXQgYmVn + aW49Iu+7vyIgaWQ9Ilc1TTBNcENlaGlIenJlU3pOVGN6a2M5ZCI/Pg0KPHg6eG1wbWV0YSB4bWxuczp4 + PSJhZG9iZTpuczptZXRhLyIgeDp4bXB0az0iQWRvYmUgWE1QIENvcmUgNC4xLWMwMzYgNDYuMjc2NzIw + LCBNb24gRmViIDE5IDIwMDcgMjI6NDA6MDggICAgICAgICI+DQoJPHJkZjpSREYgeG1sbnM6cmRmPSJo + dHRwOi8vd3d3LnczLm9yZy8xOTk5LzAyLzIyLXJkZi1zeW50YXgtbnMjIj4NCgkJPHJkZjpEZXNjcmlw + dGlvbiByZGY6YWJvdXQ9IiIgeG1sbnM6ZGM9Imh0dHA6Ly9wdXJsLm9yZy9kYy9lbGVtZW50cy8xLjEv + IiB4bWxuczp4YXA9Imh0dHA6Ly9ucy5hZG9iZS5jb20veGFwLzEuMC8iIHhtbG5zOnhhcE1NPSJodHRw + Oi8vbnMuYWRvYmUuY29tL3hhcC8xLjAvbW0vIiB4bWxuczpzdFJlZj0iaHR0cDovL25zLmFkb2JlLmNv + bS94YXAvMS4wL3NUeXBlL1Jlc291cmNlUmVmIyIgeG1sbnM6cGhvdG9zaG9wPSJodHRwOi8vbnMuYWRv + YmUuY29tL3Bob3Rvc2hvcC8xLjAvIiB4bWxuczp0aWZmPSJodHRwOi8vbnMuYWRvYmUuY29tL3RpZmYv + MS4wLyIgeG1sbnM6ZXhpZj0iaHR0cDovL25zLmFkb2JlLmNvbS9leGlmLzEuMC8iIGRjOmZvcm1hdD0i + aW1hZ2UvanBlZyIgeGFwOkNyZWF0b3JUb29sPSJBZG9iZSBQaG90b3Nob3AgQ1MzIFdpbmRvd3MiIHhh + cDpDcmVhdGVEYXRlPSIyMDEwLTA0LTE1VDIwOjMyOjA0KzA5OjAwIiB4YXA6TW9kaWZ5RGF0ZT0iMjAx + MC0wNC0xNVQyMDozMjowNCswOTowMCIgeGFwOk1ldGFkYXRhRGF0ZT0iMjAxMC0wNC0xNVQyMDozMjow + NCswOTowMCIgeGFwTU06RG9jdW1lbnRJRD0idXVpZDpGRTRGOUVDQzgxNDhERjExQjQyNkI5NEQ4RDRD + ODAxNyIgeGFwTU06SW5zdGFuY2VJRD0idXVpZDpCNDE2RTc4MzgyNDhERjExQjQyNkI5NEQ4RDRDODAx + NyIgcGhvdG9zaG9wOkNvbG9yTW9kZT0iMyIgcGhvdG9zaG9wOklDQ1Byb2ZpbGU9InNSR0IgSUVDNjE5 + NjYtMi4xIiBwaG90b3Nob3A6SGlzdG9yeT0iIiB0aWZmOk9yaWVudGF0aW9uPSIxIiB0aWZmOlhSZXNv + bHV0aW9uPSI3MjAwMDAvMTAwMDAiIHRpZmY6WVJlc29sdXRpb249IjcyMDAwMC8xMDAwMCIgdGlmZjpS + ZXNvbHV0aW9uVW5pdD0iMiIgdGlmZjpOYXRpdmVEaWdlc3Q9IjI1NiwyNTcsMjU4LDI1OSwyNjIsMjc0 + LDI3NywyODQsNTMwLDUzMSwyODIsMjgzLDI5NiwzMDEsMzE4LDMxOSw1MjksNTMyLDMwNiwyNzAsMjcx + LDI3MiwzMDUsMzE1LDMzNDMyOzk4ODcxNzIxMUFCRjY2MTQxRDU3NEI3OUYzRjQ2QkFBIiBleGlmOlBp + eGVsWERpbWVuc2lvbj0iNjAiIGV4aWY6UGl4ZWxZRGltZW5zaW9uPSIxMiIgZXhpZjpDb2xvclNwYWNl + PSIxIiBleGlmOk5hdGl2ZURpZ2VzdD0iMzY4NjQsNDA5NjAsNDA5NjEsMzcxMjEsMzcxMjIsNDA5NjIs + NDA5NjMsMzc1MTAsNDA5NjQsMzY4NjcsMzY4NjgsMzM0MzQsMzM0MzcsMzQ4NTAsMzQ4NTIsMzQ4NTUs + MzQ4NTYsMzczNzcsMzczNzgsMzczNzksMzczODAsMzczODEsMzczODIsMzczODMsMzczODQsMzczODUs + MzczODYsMzczOTYsNDE0ODMsNDE0ODQsNDE0ODYsNDE0ODcsNDE0ODgsNDE0OTIsNDE0OTMsNDE0OTUs + NDE3MjgsNDE3MjksNDE3MzAsNDE5ODUsNDE5ODYsNDE5ODcsNDE5ODgsNDE5ODksNDE5OTAsNDE5OTEs + NDE5OTIsNDE5OTMsNDE5OTQsNDE5OTUsNDE5OTYsNDIwMTYsMCwyLDQsNSw2LDcsOCw5LDEwLDExLDEy + LDEzLDE0LDE1LDE2LDE3LDE4LDIwLDIyLDIzLDI0LDI1LDI2LDI3LDI4LDMwOzM1N0NDOEY1MDE4RURF + NDY2NjVCQkRFMUFEMkRCQkJBIj4NCgkJCTx4YXBNTTpEZXJpdmVkRnJvbSBzdFJlZjppbnN0YW5jZUlE + PSJ1dWlkOkY1NEY5RUNDODE0OERGMTFCNDI2Qjk0RDhENEM4MDE3IiBzdFJlZjpkb2N1bWVudElEPSJ1 + dWlkOkY1NEY5RUNDODE0OERGMTFCNDI2Qjk0RDhENEM4MDE3Ii8+DQoJCTwvcmRmOkRlc2NyaXB0aW9u + Pg0KCTwvcmRmOlJERj4NCjwveDp4bXBtZXRhPg0KICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgIAogICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgCiAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAKICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgIAogICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgCiAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAKICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgIAogICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgCiAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAKICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgIAogICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + CiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAKICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgIAogICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgCiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAKICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgIAogICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgCiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAKICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgIAogICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgCiAgICAgICAgICAgPD94cGFja2V0IGVuZD0ndyc/Pv/iDFhJQ0NfUFJPRklMRQABAQAA + DEhMaW5vAhAAAG1udHJSR0IgWFlaIAfOAAIACQAGADEAAGFjc3BNU0ZUAAAAAElFQyBzUkdCAAAAAAAA + AAAAAAAAAAD21gABAAAAANMtSFAgIAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAEWNwcnQAAAFQAAAAM2Rlc2MAAAGEAAAAbHd0cHQAAAHwAAAAFGJrcHQAAAIEAAAAFHJY + WVoAAAIYAAAAFGdYWVoAAAIsAAAAFGJYWVoAAAJAAAAAFGRtbmQAAAJUAAAAcGRtZGQAAALEAAAAiHZ1 + ZWQAAANMAAAAhnZpZXcAAAPUAAAAJGx1bWkAAAP4AAAAFG1lYXMAAAQMAAAAJHRlY2gAAAQwAAAADHJU + UkMAAAQ8AAAIDGdUUkMAAAQ8AAAIDGJUUkMAAAQ8AAAIDHRleHQAAAAAQ29weXJpZ2h0IChjKSAxOTk4 + IEhld2xldHQtUGFja2FyZCBDb21wYW55AABkZXNjAAAAAAAAABJzUkdCIElFQzYxOTY2LTIuMQAAAAAA + AAAAAAAAEnNSR0IgSUVDNjE5NjYtMi4xAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAABYWVogAAAAAAAA81EAAQAAAAEWzFhZWiAAAAAAAAAAAAAAAAAAAAAAWFlaIAAA + AAAAAG+iAAA49QAAA5BYWVogAAAAAAAAYpkAALeFAAAY2lhZWiAAAAAAAAAkoAAAD4QAALbPZGVzYwAA + AAAAAAAWSUVDIGh0dHA6Ly93d3cuaWVjLmNoAAAAAAAAAAAAAAAWSUVDIGh0dHA6Ly93d3cuaWVjLmNo + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAGRlc2MAAAAAAAAALklF + QyA2MTk2Ni0yLjEgRGVmYXVsdCBSR0IgY29sb3VyIHNwYWNlIC0gc1JHQgAAAAAAAAAAAAAALklFQyA2 + MTk2Ni0yLjEgRGVmYXVsdCBSR0IgY29sb3VyIHNwYWNlIC0gc1JHQgAAAAAAAAAAAAAAAAAAAAAAAAAA + AABkZXNjAAAAAAAAACxSZWZlcmVuY2UgVmlld2luZyBDb25kaXRpb24gaW4gSUVDNjE5NjYtMi4xAAAA + AAAAAAAAAAAsUmVmZXJlbmNlIFZpZXdpbmcgQ29uZGl0aW9uIGluIElFQzYxOTY2LTIuMQAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAdmlldwAAAAAAE6T+ABRfLgAQzxQAA+3MAAQTCwADXJ4AAAABWFlaIAAA + AAAATAlWAFAAAABXH+dtZWFzAAAAAAAAAAEAAAAAAAAAAAAAAAAAAAAAAAACjwAAAAJzaWcgAAAAAENS + VCBjdXJ2AAAAAAAABAAAAAAFAAoADwAUABkAHgAjACgALQAyADcAOwBAAEUASgBPAFQAWQBeAGMAaABt + AHIAdwB8AIEAhgCLAJAAlQCaAJ8ApACpAK4AsgC3ALwAwQDGAMsA0ADVANsA4ADlAOsA8AD2APsBAQEH + AQ0BEwEZAR8BJQErATIBOAE+AUUBTAFSAVkBYAFnAW4BdQF8AYMBiwGSAZoBoQGpAbEBuQHBAckB0QHZ + AeEB6QHyAfoCAwIMAhQCHQImAi8COAJBAksCVAJdAmcCcQJ6AoQCjgKYAqICrAK2AsECywLVAuAC6wL1 + AwADCwMWAyEDLQM4A0MDTwNaA2YDcgN+A4oDlgOiA64DugPHA9MD4APsA/kEBgQTBCAELQQ7BEgEVQRj + BHEEfgSMBJoEqAS2BMQE0wThBPAE/gUNBRwFKwU6BUkFWAVnBXcFhgWWBaYFtQXFBdUF5QX2BgYGFgYn + BjcGSAZZBmoGewaMBp0GrwbABtEG4wb1BwcHGQcrBz0HTwdhB3QHhgeZB6wHvwfSB+UH+AgLCB8IMghG + CFoIbgiCCJYIqgi+CNII5wj7CRAJJQk6CU8JZAl5CY8JpAm6Cc8J5Qn7ChEKJwo9ClQKagqBCpgKrgrF + CtwK8wsLCyILOQtRC2kLgAuYC7ALyAvhC/kMEgwqDEMMXAx1DI4MpwzADNkM8w0NDSYNQA1aDXQNjg2p + DcMN3g34DhMOLg5JDmQOfw6bDrYO0g7uDwkPJQ9BD14Peg+WD7MPzw/sEAkQJhBDEGEQfhCbELkQ1xD1 + ERMRMRFPEW0RjBGqEckR6BIHEiYSRRJkEoQSoxLDEuMTAxMjE0MTYxODE6QTxRPlFAYUJxRJFGoUixSt + FM4U8BUSFTQVVhV4FZsVvRXgFgMWJhZJFmwWjxayFtYW+hcdF0EXZReJF64X0hf3GBsYQBhlGIoYrxjV + GPoZIBlFGWsZkRm3Gd0aBBoqGlEadxqeGsUa7BsUGzsbYxuKG7Ib2hwCHCocUhx7HKMczBz1HR4dRx1w + HZkdwx3sHhYeQB5qHpQevh7pHxMfPh9pH5Qfvx/qIBUgQSBsIJggxCDwIRwhSCF1IaEhziH7IiciVSKC + Iq8i3SMKIzgjZiOUI8Ij8CQfJE0kfCSrJNolCSU4JWgllyXHJfcmJyZXJocmtyboJxgnSSd6J6sn3CgN + KD8ocSiiKNQpBik4KWspnSnQKgIqNSpoKpsqzysCKzYraSudK9EsBSw5LG4soizXLQwtQS12Last4S4W + Lkwugi63Lu4vJC9aL5Evxy/+MDUwbDCkMNsxEjFKMYIxujHyMioyYzKbMtQzDTNGM38zuDPxNCs0ZTSe + NNg1EzVNNYc1wjX9Njc2cjauNuk3JDdgN5w31zgUOFA4jDjIOQU5Qjl/Obw5+To2OnQ6sjrvOy07azuq + O+g8JzxlPKQ84z0iPWE9oT3gPiA+YD6gPuA/IT9hP6I/4kAjQGRApkDnQSlBakGsQe5CMEJyQrVC90M6 + Q31DwEQDREdEikTORRJFVUWaRd5GIkZnRqtG8Ec1R3tHwEgFSEtIkUjXSR1JY0mpSfBKN0p9SsRLDEtT + S5pL4kwqTHJMuk0CTUpNk03cTiVObk63TwBPSU+TT91QJ1BxULtRBlFQUZtR5lIxUnxSx1MTU19TqlP2 + VEJUj1TbVShVdVXCVg9WXFapVvdXRFeSV+BYL1h9WMtZGllpWbhaB1pWWqZa9VtFW5Vb5Vw1XIZc1l0n + XXhdyV4aXmxevV8PX2Ffs2AFYFdgqmD8YU9homH1YklinGLwY0Njl2PrZEBklGTpZT1lkmXnZj1mkmbo + Zz1nk2fpaD9olmjsaUNpmmnxakhqn2r3a09rp2v/bFdsr20IbWBtuW4SbmtuxG8eb3hv0XArcIZw4HE6 + cZVx8HJLcqZzAXNdc7h0FHRwdMx1KHWFdeF2Pnabdvh3VnezeBF4bnjMeSp5iXnnekZ6pXsEe2N7wnwh + fIF84X1BfaF+AX5ifsJ/I3+Ef+WAR4CogQqBa4HNgjCCkoL0g1eDuoQdhICE44VHhauGDoZyhteHO4ef + iASIaYjOiTOJmYn+imSKyoswi5aL/IxjjMqNMY2Yjf+OZo7OjzaPnpAGkG6Q1pE/kaiSEZJ6kuOTTZO2 + lCCUipT0lV+VyZY0lp+XCpd1l+CYTJi4mSSZkJn8mmia1ZtCm6+cHJyJnPedZJ3SnkCerp8dn4uf+qBp + oNihR6G2oiailqMGo3aj5qRWpMelOKWpphqmi6b9p26n4KhSqMSpN6mpqhyqj6sCq3Wr6axcrNCtRK24 + ri2uoa8Wr4uwALB1sOqxYLHWskuywrM4s660JbSctRO1irYBtnm28Ldot+C4WbjRuUq5wro7urW7Lrun + vCG8m70VvY++Cr6Evv+/er/1wHDA7MFnwePCX8Lbw1jD1MRRxM7FS8XIxkbGw8dBx7/IPci8yTrJuco4 + yrfLNsu2zDXMtc01zbXONs62zzfPuNA50LrRPNG+0j/SwdNE08bUSdTL1U7V0dZV1tjXXNfg2GTY6Nls + 2fHadtr724DcBdyK3RDdlt4c3qLfKd+v4DbgveFE4cziU+Lb42Pj6+Rz5PzlhOYN5pbnH+ep6DLovOlG + 6dDqW+rl63Dr++yG7RHtnO4o7rTvQO/M8Fjw5fFy8f/yjPMZ86f0NPTC9VD13vZt9vv3ivgZ+Kj5OPnH + +lf65/t3/Af8mP0p/br+S/7c/23////bAEMAAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEB + AQEBAQEBAQEBAQICAgICAgICAgICAwMDAwMDAwMDA//bAEMBAQEBAQEBAQEBAQICAQICAwMDAwMDAwMD + AwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDA//AABEIAAwAPAMBEQACEQEDEQH/ + xAAfAAABBQEBAQEBAQAAAAAAAAAAAQIDBAUGBwgJCgv/xAC1EAACAQMDAgQDBQUEBAAAAX0BAgMABBEF + EiExQQYTUWEHInEUMoGRoQgjQrHBFVLR8CQzYnKCCQoWFxgZGiUmJygpKjQ1Njc4OTpDREVGR0hJSlNU + VVZXWFlaY2RlZmdoaWpzdHV2d3h5eoOEhYaHiImKkpOUlZaXmJmaoqOkpaanqKmqsrO0tba3uLm6wsPE + xcbHyMnK0tPU1dbX2Nna4eLj5OXm5+jp6vHy8/T19vf4+fr/xAAfAQADAQEBAQEBAQEBAAAAAAAAAQID + BAUGBwgJCgv/xAC1EQACAQIEBAMEBwUEBAABAncAAQIDEQQFITEGEkFRB2FxEyIygQgUQpGhscEJIzNS + 8BVictEKFiQ04SXxFxgZGiYnKCkqNTY3ODk6Q0RFRkdISUpTVFVWV1hZWmNkZWZnaGlqc3R1dnd4eXqC + g4SFhoeIiYqSk5SVlpeYmZqio6Slpqeoqaqys7S1tre4ubrCw8TFxsfIycrS09TV1tfY2dri4+Tl5ufo + 6ery8/T19vf4+fr/2gAMAwEAAhEDEQA/AP1ZH7UPxEAA/wCEw8bnj/ob9f8A/k+v7U/1Nyj/AKF+G/8A + BUP/AJE/llcSZlZf7dX/APBk/wDMX/hqH4if9Df43/8ACv1//wCT6P8AU3Kf+hfhv/BUP/kQ/wBZcy/6 + Dq//AIMn/mH/AA1D8RP+hv8AG/8A4V+v/wDyfR/qblP/AEL8N/4Kh/8AIh/rLmX/AEHV/wDwZP8AzD/h + qH4if9Df43/8K/X/AP5Po/1Nyn/oX4b/AMFQ/wDkQ/1lzL/oOr/+DJ/5h/w1D8RP+hv8b/8AhX6//wDJ + 9H+puU/9C/Df+Cof/Ih/rLmX/QdX/wDBk/8AMT/hqH4if9Df43/8K/X/AP5Po/1Nyn/oX4b/AMFQ/wDk + Q/1kzL/oOr/+DJ/5n2R+xz+234zt/iRpnw+8a6vqXiDwZ4gs9baObXr+bUr/AMPajpmkX2tQ3FlqV2Zb + 57K7XT2t3tXkaJWkV4whVxJ+beJfAuU4Th/FZ/hKEKOMw8qd+SKjGcZzjTs4q0bpyUlJK7s073VvuuBO + LMxxGcYfJ8TWlVw1ZTtzu7hKMJTupPWzUWnFu2qatrf9aP8AhfXgv+zv7U89/sfm+V5207N+M43fSv50 + P2w/kwr/AEFP42CgAoAKACgAoA9s/Z0/s7/hcng3+1vP/s7Ov/avs2PP2f8ACL63t2buP9ZjP+zmvz7x + U/5IPPf+4H/qRRPsvD//AJK7KP8AuL/6ZqH7/wD/ABaT/hUfb7Ht/wBj7V9p8v8A9Cr+Oz+lz//Z + + + + + /9j/4AAQSkZJRgABAgEASABIAAD/7gAOQWRvYmUAZAAAAAAB/+ED5kV4aWYAAE1NACoAAAAIAAcBEgAD + AAAAAQABAAABGgAFAAAAAQAAAGIBGwAFAAAAAQAAAGoBKAADAAAAAQACAAABMQACAAAAHAAAAHIBMgAC + AAAAFAAAAI6HaQAEAAAAAQAAAKIAAADCAEgAAAABAAAASAAAAAEAAEFkb2JlIFBob3Rvc2hvcCBDUzMg + V2luZG93cwAyMDEwOjA0OjE1IDIwOjMyOjA0AAACoAIABAAAAAEAAAA8oAMABAAAAAEAAAAMAAAAAAAA + AAYBAwADAAAAAQAGAAABGgAFAAAAAQAAARABGwAFAAAAAQAAARgBKAADAAAAAQACAAACAQAEAAAAAQAA + ASACAgAEAAAAAQAAAr4AAAAAAAAASAAAAAEAAABIAAAAAf/Y/+AAEEpGSUYAAQIAAEgASAAA/+0ADEFk + b2JlX0NNAAH/7gAOQWRvYmUAZIAAAAAB/9sAhAAMCAgICQgMCQkMEQsKCxEVDwwMDxUYExMVExMYEQwM + DAwMDBEMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMAQ0LCw0ODRAODhAUDg4OFBQODg4OFBEMDAwM + DBERDAwMDAwMEQwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAz/wAARCAAMADwDASIAAhEBAxEB/90A + BAAE/8QBPwAAAQUBAQEBAQEAAAAAAAAAAwABAgQFBgcICQoLAQABBQEBAQEBAQAAAAAAAAABAAIDBAUG + BwgJCgsQAAEEAQMCBAIFBwYIBQMMMwEAAhEDBCESMQVBUWETInGBMgYUkaGxQiMkFVLBYjM0coLRQwcl + klPw4fFjczUWorKDJkSTVGRFwqN0NhfSVeJl8rOEw9N14/NGJ5SkhbSVxNTk9KW1xdXl9VZmdoaWprbG + 1ub2N0dXZ3eHl6e3x9fn9xEAAgIBAgQEAwQFBgcHBgU1AQACEQMhMRIEQVFhcSITBTKBkRShsUIjwVLR + 8DMkYuFygpJDUxVjczTxJQYWorKDByY1wtJEk1SjF2RFVTZ0ZeLys4TD03Xj80aUpIW0lcTU5PSltcXV + 5fVWZnaGlqa2xtbm9ic3R1dnd4eXp7fH/9oADAMBAAIRAxEAPwDd/amR/pH/AOcf70v2pkf6R/8AnH+9 + UUlofq/Bpevxb37UyP8ASP8A84/3pftTI/0j/wDOP96opJfq/BXr8W9+1Mj/AEj/APOP96X7UyP9I/8A + zj/eqKSX6vwV6/F3ujdbuGS2i5xfU8HVxktIG76XyW99vo27p0XGdO2/ba930dZj+q5dX+qfZPL8VAeD + 341VVr/eZhx+0bu708n/2f/tCSBQaG90b3Nob3AgMy4wADhCSU0EJQAAAAAAEAAAAAAAAAAAAAAAAAAA + AAA4QklNBC8AAAAAAErgYgEASAAAAEgAAAAAAAAAAAAAANACAABAAgAAAAAAAAAAAAAYAwAAZAIAAAAB + wAMAALAEAAABAA8nAQBsbHVuAAAAAAAAAAAAADhCSU0D7QAAAAAAEABIAAAAAQACAEgAAAABAAI4QklN + BCYAAAAAAA4AAAAAAAAAAAAAP4AAADhCSU0EDQAAAAAABAAAAHg4QklNBBkAAAAAAAQAAAAeOEJJTQPz + AAAAAAAJAAAAAAAAAAABADhCSU0ECgAAAAAAAQAAOEJJTScQAAAAAAAKAAEAAAAAAAAAAjhCSU0D9QAA + AAAASAAvZmYAAQBsZmYABgAAAAAAAQAvZmYAAQChmZoABgAAAAAAAQAyAAAAAQBaAAAABgAAAAAAAQA1 + AAAAAQAtAAAABgAAAAAAAThCSU0D+AAAAAAAcAAA/////////////////////////////wPoAAAAAP// + //////////////////////////8D6AAAAAD/////////////////////////////A+gAAAAA//////// + /////////////////////wPoAAA4QklNBAAAAAAAAAIAAjhCSU0EAgAAAAAABgAAAAAAADhCSU0EMAAA + AAAAAwEBAQA4QklNBC0AAAAAAAYAAQAAAAM4QklNBAgAAAAAABAAAAABAAACQAAAAkAAAAAAOEJJTQQe + AAAAAAAEAAAAADhCSU0EGgAAAAADPwAAAAYAAAAAAAAAAAAAAAwAAAA8AAAABbs0yBwALQAxADIAAAAB + AAAAAAAAAAAAAAAAAAAAAAAAAAEAAAAAAAAAAAAAADwAAAAMAAAAAAAAAAAAAAAAAAAAAAEAAAAAAAAA + AAAAAAAAAAAAAAAAEAAAAAEAAAAAAABudWxsAAAAAgAAAAZib3VuZHNPYmpjAAAAAQAAAAAAAFJjdDEA + AAAEAAAAAFRvcCBsb25nAAAAAAAAAABMZWZ0bG9uZwAAAAAAAAAAQnRvbWxvbmcAAAAMAAAAAFJnaHRs + b25nAAAAPAAAAAZzbGljZXNWbExzAAAAAU9iamMAAAABAAAAAAAFc2xpY2UAAAASAAAAB3NsaWNlSURs + b25nAAAAAAAAAAdncm91cElEbG9uZwAAAAAAAAAGb3JpZ2luZW51bQAAAAxFU2xpY2VPcmlnaW4AAAAN + YXV0b0dlbmVyYXRlZAAAAABUeXBlZW51bQAAAApFU2xpY2VUeXBlAAAAAEltZyAAAAAGYm91bmRzT2Jq + YwAAAAEAAAAAAABSY3QxAAAABAAAAABUb3AgbG9uZwAAAAAAAAAATGVmdGxvbmcAAAAAAAAAAEJ0b21s + b25nAAAADAAAAABSZ2h0bG9uZwAAADwAAAADdXJsVEVYVAAAAAEAAAAAAABudWxsVEVYVAAAAAEAAAAA + AABNc2dlVEVYVAAAAAEAAAAAAAZhbHRUYWdURVhUAAAAAQAAAAAADmNlbGxUZXh0SXNIVE1MYm9vbAEA + AAAIY2VsbFRleHRURVhUAAAAAQAAAAAACWhvcnpBbGlnbmVudW0AAAAPRVNsaWNlSG9yekFsaWduAAAA + B2RlZmF1bHQAAAAJdmVydEFsaWduZW51bQAAAA9FU2xpY2VWZXJ0QWxpZ24AAAAHZGVmYXVsdAAAAAti + Z0NvbG9yVHlwZWVudW0AAAARRVNsaWNlQkdDb2xvclR5cGUAAAAATm9uZQAAAAl0b3BPdXRzZXRsb25n + AAAAAAAAAApsZWZ0T3V0c2V0bG9uZwAAAAAAAAAMYm90dG9tT3V0c2V0bG9uZwAAAAAAAAALcmlnaHRP + dXRzZXRsb25nAAAAAAA4QklNBCgAAAAAAAwAAAABP/AAAAAAAAA4QklNBBQAAAAAAAQAAAAEOEJJTQQM + AAAAAALaAAAAAQAAADwAAAAMAAAAtAAACHAAAAK+ABgAAf/Y/+AAEEpGSUYAAQIAAEgASAAA/+0ADEFk + b2JlX0NNAAH/7gAOQWRvYmUAZIAAAAAB/9sAhAAMCAgICQgMCQkMEQsKCxEVDwwMDxUYExMVExMYEQwM + DAwMDBEMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMAQ0LCw0ODRAODhAUDg4OFBQODg4OFBEMDAwM + DBERDAwMDAwMEQwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAz/wAARCAAMADwDASIAAhEBAxEB/90A + BAAE/8QBPwAAAQUBAQEBAQEAAAAAAAAAAwABAgQFBgcICQoLAQABBQEBAQEBAQAAAAAAAAABAAIDBAUG + BwgJCgsQAAEEAQMCBAIFBwYIBQMMMwEAAhEDBCESMQVBUWETInGBMgYUkaGxQiMkFVLBYjM0coLRQwcl + klPw4fFjczUWorKDJkSTVGRFwqN0NhfSVeJl8rOEw9N14/NGJ5SkhbSVxNTk9KW1xdXl9VZmdoaWprbG + 1ub2N0dXZ3eHl6e3x9fn9xEAAgIBAgQEAwQFBgcHBgU1AQACEQMhMRIEQVFhcSITBTKBkRShsUIjwVLR + 8DMkYuFygpJDUxVjczTxJQYWorKDByY1wtJEk1SjF2RFVTZ0ZeLys4TD03Xj80aUpIW0lcTU5PSltcXV + 5fVWZnaGlqa2xtbm9ic3R1dnd4eXp7fH/9oADAMBAAIRAxEAPwDd/amR/pH/AOcf70v2pkf6R/8AnH+9 + UUlofq/Bpevxb37UyP8ASP8A84/3pftTI/0j/wDOP96opJfq/BXr8W9+1Mj/AEj/APOP96X7UyP9I/8A + zj/eqKSX6vwV6/F3ujdbuGS2i5xfU8HVxktIG76XyW99vo27p0XGdO2/ba930dZj+q5dX+qfZPL8VAeD + 341VVr/eZhx+0bu708n/2ThCSU0EIQAAAAAAVQAAAAEBAAAADwBBAGQAbwBiAGUAIABQAGgAbwB0AG8A + cwBoAG8AcAAAABMAQQBkAG8AYgBlACAAUABoAG8AdABvAHMAaABvAHAAIABDAFMAMwAAAAEAOEJJTQQG + AAAAAAAHAAgAAQABAQD/4Q/MaHR0cDovL25zLmFkb2JlLmNvbS94YXAvMS4wLwA8P3hwYWNrZXQgYmVn + aW49Iu+7vyIgaWQ9Ilc1TTBNcENlaGlIenJlU3pOVGN6a2M5ZCI/Pg0KPHg6eG1wbWV0YSB4bWxuczp4 + PSJhZG9iZTpuczptZXRhLyIgeDp4bXB0az0iQWRvYmUgWE1QIENvcmUgNC4xLWMwMzYgNDYuMjc2NzIw + LCBNb24gRmViIDE5IDIwMDcgMjI6NDA6MDggICAgICAgICI+DQoJPHJkZjpSREYgeG1sbnM6cmRmPSJo + dHRwOi8vd3d3LnczLm9yZy8xOTk5LzAyLzIyLXJkZi1zeW50YXgtbnMjIj4NCgkJPHJkZjpEZXNjcmlw + dGlvbiByZGY6YWJvdXQ9IiIgeG1sbnM6ZGM9Imh0dHA6Ly9wdXJsLm9yZy9kYy9lbGVtZW50cy8xLjEv + IiB4bWxuczp4YXA9Imh0dHA6Ly9ucy5hZG9iZS5jb20veGFwLzEuMC8iIHhtbG5zOnhhcE1NPSJodHRw + Oi8vbnMuYWRvYmUuY29tL3hhcC8xLjAvbW0vIiB4bWxuczpzdFJlZj0iaHR0cDovL25zLmFkb2JlLmNv + bS94YXAvMS4wL3NUeXBlL1Jlc291cmNlUmVmIyIgeG1sbnM6cGhvdG9zaG9wPSJodHRwOi8vbnMuYWRv + YmUuY29tL3Bob3Rvc2hvcC8xLjAvIiB4bWxuczp0aWZmPSJodHRwOi8vbnMuYWRvYmUuY29tL3RpZmYv + MS4wLyIgeG1sbnM6ZXhpZj0iaHR0cDovL25zLmFkb2JlLmNvbS9leGlmLzEuMC8iIGRjOmZvcm1hdD0i + aW1hZ2UvanBlZyIgeGFwOkNyZWF0b3JUb29sPSJBZG9iZSBQaG90b3Nob3AgQ1MzIFdpbmRvd3MiIHhh + cDpDcmVhdGVEYXRlPSIyMDEwLTA0LTE1VDIwOjMyOjA0KzA5OjAwIiB4YXA6TW9kaWZ5RGF0ZT0iMjAx + MC0wNC0xNVQyMDozMjowNCswOTowMCIgeGFwOk1ldGFkYXRhRGF0ZT0iMjAxMC0wNC0xNVQyMDozMjow + NCswOTowMCIgeGFwTU06RG9jdW1lbnRJRD0idXVpZDpGRTRGOUVDQzgxNDhERjExQjQyNkI5NEQ4RDRD + ODAxNyIgeGFwTU06SW5zdGFuY2VJRD0idXVpZDpCNDE2RTc4MzgyNDhERjExQjQyNkI5NEQ4RDRDODAx + NyIgcGhvdG9zaG9wOkNvbG9yTW9kZT0iMyIgcGhvdG9zaG9wOklDQ1Byb2ZpbGU9InNSR0IgSUVDNjE5 + NjYtMi4xIiBwaG90b3Nob3A6SGlzdG9yeT0iIiB0aWZmOk9yaWVudGF0aW9uPSIxIiB0aWZmOlhSZXNv + bHV0aW9uPSI3MjAwMDAvMTAwMDAiIHRpZmY6WVJlc29sdXRpb249IjcyMDAwMC8xMDAwMCIgdGlmZjpS + ZXNvbHV0aW9uVW5pdD0iMiIgdGlmZjpOYXRpdmVEaWdlc3Q9IjI1NiwyNTcsMjU4LDI1OSwyNjIsMjc0 + LDI3NywyODQsNTMwLDUzMSwyODIsMjgzLDI5NiwzMDEsMzE4LDMxOSw1MjksNTMyLDMwNiwyNzAsMjcx + LDI3MiwzMDUsMzE1LDMzNDMyOzk4ODcxNzIxMUFCRjY2MTQxRDU3NEI3OUYzRjQ2QkFBIiBleGlmOlBp + eGVsWERpbWVuc2lvbj0iNjAiIGV4aWY6UGl4ZWxZRGltZW5zaW9uPSIxMiIgZXhpZjpDb2xvclNwYWNl + PSIxIiBleGlmOk5hdGl2ZURpZ2VzdD0iMzY4NjQsNDA5NjAsNDA5NjEsMzcxMjEsMzcxMjIsNDA5NjIs + NDA5NjMsMzc1MTAsNDA5NjQsMzY4NjcsMzY4NjgsMzM0MzQsMzM0MzcsMzQ4NTAsMzQ4NTIsMzQ4NTUs + MzQ4NTYsMzczNzcsMzczNzgsMzczNzksMzczODAsMzczODEsMzczODIsMzczODMsMzczODQsMzczODUs + MzczODYsMzczOTYsNDE0ODMsNDE0ODQsNDE0ODYsNDE0ODcsNDE0ODgsNDE0OTIsNDE0OTMsNDE0OTUs + NDE3MjgsNDE3MjksNDE3MzAsNDE5ODUsNDE5ODYsNDE5ODcsNDE5ODgsNDE5ODksNDE5OTAsNDE5OTEs + NDE5OTIsNDE5OTMsNDE5OTQsNDE5OTUsNDE5OTYsNDIwMTYsMCwyLDQsNSw2LDcsOCw5LDEwLDExLDEy + LDEzLDE0LDE1LDE2LDE3LDE4LDIwLDIyLDIzLDI0LDI1LDI2LDI3LDI4LDMwOzM1N0NDOEY1MDE4RURF + NDY2NjVCQkRFMUFEMkRCQkJBIj4NCgkJCTx4YXBNTTpEZXJpdmVkRnJvbSBzdFJlZjppbnN0YW5jZUlE + PSJ1dWlkOkY1NEY5RUNDODE0OERGMTFCNDI2Qjk0RDhENEM4MDE3IiBzdFJlZjpkb2N1bWVudElEPSJ1 + dWlkOkY1NEY5RUNDODE0OERGMTFCNDI2Qjk0RDhENEM4MDE3Ii8+DQoJCTwvcmRmOkRlc2NyaXB0aW9u + Pg0KCTwvcmRmOlJERj4NCjwveDp4bXBtZXRhPg0KICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgIAogICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgCiAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAKICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgIAogICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgCiAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAKICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgIAogICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgCiAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAKICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgIAogICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + CiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAKICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgIAogICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgCiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAKICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgIAogICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgCiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAKICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgIAogICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgCiAgICAgICAgICAgPD94cGFja2V0IGVuZD0ndyc/Pv/iDFhJQ0NfUFJPRklMRQABAQAA + DEhMaW5vAhAAAG1udHJSR0IgWFlaIAfOAAIACQAGADEAAGFjc3BNU0ZUAAAAAElFQyBzUkdCAAAAAAAA + AAAAAAAAAAD21gABAAAAANMtSFAgIAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAEWNwcnQAAAFQAAAAM2Rlc2MAAAGEAAAAbHd0cHQAAAHwAAAAFGJrcHQAAAIEAAAAFHJY + WVoAAAIYAAAAFGdYWVoAAAIsAAAAFGJYWVoAAAJAAAAAFGRtbmQAAAJUAAAAcGRtZGQAAALEAAAAiHZ1 + ZWQAAANMAAAAhnZpZXcAAAPUAAAAJGx1bWkAAAP4AAAAFG1lYXMAAAQMAAAAJHRlY2gAAAQwAAAADHJU + UkMAAAQ8AAAIDGdUUkMAAAQ8AAAIDGJUUkMAAAQ8AAAIDHRleHQAAAAAQ29weXJpZ2h0IChjKSAxOTk4 + IEhld2xldHQtUGFja2FyZCBDb21wYW55AABkZXNjAAAAAAAAABJzUkdCIElFQzYxOTY2LTIuMQAAAAAA + AAAAAAAAEnNSR0IgSUVDNjE5NjYtMi4xAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAABYWVogAAAAAAAA81EAAQAAAAEWzFhZWiAAAAAAAAAAAAAAAAAAAAAAWFlaIAAA + AAAAAG+iAAA49QAAA5BYWVogAAAAAAAAYpkAALeFAAAY2lhZWiAAAAAAAAAkoAAAD4QAALbPZGVzYwAA + AAAAAAAWSUVDIGh0dHA6Ly93d3cuaWVjLmNoAAAAAAAAAAAAAAAWSUVDIGh0dHA6Ly93d3cuaWVjLmNo + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAGRlc2MAAAAAAAAALklF + QyA2MTk2Ni0yLjEgRGVmYXVsdCBSR0IgY29sb3VyIHNwYWNlIC0gc1JHQgAAAAAAAAAAAAAALklFQyA2 + MTk2Ni0yLjEgRGVmYXVsdCBSR0IgY29sb3VyIHNwYWNlIC0gc1JHQgAAAAAAAAAAAAAAAAAAAAAAAAAA + AABkZXNjAAAAAAAAACxSZWZlcmVuY2UgVmlld2luZyBDb25kaXRpb24gaW4gSUVDNjE5NjYtMi4xAAAA + AAAAAAAAAAAsUmVmZXJlbmNlIFZpZXdpbmcgQ29uZGl0aW9uIGluIElFQzYxOTY2LTIuMQAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAdmlldwAAAAAAE6T+ABRfLgAQzxQAA+3MAAQTCwADXJ4AAAABWFlaIAAA + AAAATAlWAFAAAABXH+dtZWFzAAAAAAAAAAEAAAAAAAAAAAAAAAAAAAAAAAACjwAAAAJzaWcgAAAAAENS + VCBjdXJ2AAAAAAAABAAAAAAFAAoADwAUABkAHgAjACgALQAyADcAOwBAAEUASgBPAFQAWQBeAGMAaABt + AHIAdwB8AIEAhgCLAJAAlQCaAJ8ApACpAK4AsgC3ALwAwQDGAMsA0ADVANsA4ADlAOsA8AD2APsBAQEH + AQ0BEwEZAR8BJQErATIBOAE+AUUBTAFSAVkBYAFnAW4BdQF8AYMBiwGSAZoBoQGpAbEBuQHBAckB0QHZ + AeEB6QHyAfoCAwIMAhQCHQImAi8COAJBAksCVAJdAmcCcQJ6AoQCjgKYAqICrAK2AsECywLVAuAC6wL1 + AwADCwMWAyEDLQM4A0MDTwNaA2YDcgN+A4oDlgOiA64DugPHA9MD4APsA/kEBgQTBCAELQQ7BEgEVQRj + BHEEfgSMBJoEqAS2BMQE0wThBPAE/gUNBRwFKwU6BUkFWAVnBXcFhgWWBaYFtQXFBdUF5QX2BgYGFgYn + BjcGSAZZBmoGewaMBp0GrwbABtEG4wb1BwcHGQcrBz0HTwdhB3QHhgeZB6wHvwfSB+UH+AgLCB8IMghG + CFoIbgiCCJYIqgi+CNII5wj7CRAJJQk6CU8JZAl5CY8JpAm6Cc8J5Qn7ChEKJwo9ClQKagqBCpgKrgrF + CtwK8wsLCyILOQtRC2kLgAuYC7ALyAvhC/kMEgwqDEMMXAx1DI4MpwzADNkM8w0NDSYNQA1aDXQNjg2p + DcMN3g34DhMOLg5JDmQOfw6bDrYO0g7uDwkPJQ9BD14Peg+WD7MPzw/sEAkQJhBDEGEQfhCbELkQ1xD1 + ERMRMRFPEW0RjBGqEckR6BIHEiYSRRJkEoQSoxLDEuMTAxMjE0MTYxODE6QTxRPlFAYUJxRJFGoUixSt + FM4U8BUSFTQVVhV4FZsVvRXgFgMWJhZJFmwWjxayFtYW+hcdF0EXZReJF64X0hf3GBsYQBhlGIoYrxjV + GPoZIBlFGWsZkRm3Gd0aBBoqGlEadxqeGsUa7BsUGzsbYxuKG7Ib2hwCHCocUhx7HKMczBz1HR4dRx1w + HZkdwx3sHhYeQB5qHpQevh7pHxMfPh9pH5Qfvx/qIBUgQSBsIJggxCDwIRwhSCF1IaEhziH7IiciVSKC + Iq8i3SMKIzgjZiOUI8Ij8CQfJE0kfCSrJNolCSU4JWgllyXHJfcmJyZXJocmtyboJxgnSSd6J6sn3CgN + KD8ocSiiKNQpBik4KWspnSnQKgIqNSpoKpsqzysCKzYraSudK9EsBSw5LG4soizXLQwtQS12Last4S4W + Lkwugi63Lu4vJC9aL5Evxy/+MDUwbDCkMNsxEjFKMYIxujHyMioyYzKbMtQzDTNGM38zuDPxNCs0ZTSe + NNg1EzVNNYc1wjX9Njc2cjauNuk3JDdgN5w31zgUOFA4jDjIOQU5Qjl/Obw5+To2OnQ6sjrvOy07azuq + O+g8JzxlPKQ84z0iPWE9oT3gPiA+YD6gPuA/IT9hP6I/4kAjQGRApkDnQSlBakGsQe5CMEJyQrVC90M6 + Q31DwEQDREdEikTORRJFVUWaRd5GIkZnRqtG8Ec1R3tHwEgFSEtIkUjXSR1JY0mpSfBKN0p9SsRLDEtT + S5pL4kwqTHJMuk0CTUpNk03cTiVObk63TwBPSU+TT91QJ1BxULtRBlFQUZtR5lIxUnxSx1MTU19TqlP2 + VEJUj1TbVShVdVXCVg9WXFapVvdXRFeSV+BYL1h9WMtZGllpWbhaB1pWWqZa9VtFW5Vb5Vw1XIZc1l0n + XXhdyV4aXmxevV8PX2Ffs2AFYFdgqmD8YU9homH1YklinGLwY0Njl2PrZEBklGTpZT1lkmXnZj1mkmbo + Zz1nk2fpaD9olmjsaUNpmmnxakhqn2r3a09rp2v/bFdsr20IbWBtuW4SbmtuxG8eb3hv0XArcIZw4HE6 + cZVx8HJLcqZzAXNdc7h0FHRwdMx1KHWFdeF2Pnabdvh3VnezeBF4bnjMeSp5iXnnekZ6pXsEe2N7wnwh + fIF84X1BfaF+AX5ifsJ/I3+Ef+WAR4CogQqBa4HNgjCCkoL0g1eDuoQdhICE44VHhauGDoZyhteHO4ef + iASIaYjOiTOJmYn+imSKyoswi5aL/IxjjMqNMY2Yjf+OZo7OjzaPnpAGkG6Q1pE/kaiSEZJ6kuOTTZO2 + lCCUipT0lV+VyZY0lp+XCpd1l+CYTJi4mSSZkJn8mmia1ZtCm6+cHJyJnPedZJ3SnkCerp8dn4uf+qBp + oNihR6G2oiailqMGo3aj5qRWpMelOKWpphqmi6b9p26n4KhSqMSpN6mpqhyqj6sCq3Wr6axcrNCtRK24 + ri2uoa8Wr4uwALB1sOqxYLHWskuywrM4s660JbSctRO1irYBtnm28Ldot+C4WbjRuUq5wro7urW7Lrun + vCG8m70VvY++Cr6Evv+/er/1wHDA7MFnwePCX8Lbw1jD1MRRxM7FS8XIxkbGw8dBx7/IPci8yTrJuco4 + yrfLNsu2zDXMtc01zbXONs62zzfPuNA50LrRPNG+0j/SwdNE08bUSdTL1U7V0dZV1tjXXNfg2GTY6Nls + 2fHadtr724DcBdyK3RDdlt4c3qLfKd+v4DbgveFE4cziU+Lb42Pj6+Rz5PzlhOYN5pbnH+ep6DLovOlG + 6dDqW+rl63Dr++yG7RHtnO4o7rTvQO/M8Fjw5fFy8f/yjPMZ86f0NPTC9VD13vZt9vv3ivgZ+Kj5OPnH + +lf65/t3/Af8mP0p/br+S/7c/23////bAEMAAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEB + AQEBAQEBAQEBAQICAgICAgICAgICAwMDAwMDAwMDA//bAEMBAQEBAQEBAQEBAQICAQICAwMDAwMDAwMD + AwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDA//AABEIAAwAPAMBEQACEQEDEQH/ + xAAfAAABBQEBAQEBAQAAAAAAAAAAAQIDBAUGBwgJCgv/xAC1EAACAQMDAgQDBQUEBAAAAX0BAgMABBEF + EiExQQYTUWEHInEUMoGRoQgjQrHBFVLR8CQzYnKCCQoWFxgZGiUmJygpKjQ1Njc4OTpDREVGR0hJSlNU + VVZXWFlaY2RlZmdoaWpzdHV2d3h5eoOEhYaHiImKkpOUlZaXmJmaoqOkpaanqKmqsrO0tba3uLm6wsPE + xcbHyMnK0tPU1dbX2Nna4eLj5OXm5+jp6vHy8/T19vf4+fr/xAAfAQADAQEBAQEBAQEBAAAAAAAAAQID + BAUGBwgJCgv/xAC1EQACAQIEBAMEBwUEBAABAncAAQIDEQQFITEGEkFRB2FxEyIygQgUQpGhscEJIzNS + 8BVictEKFiQ04SXxFxgZGiYnKCkqNTY3ODk6Q0RFRkdISUpTVFVWV1hZWmNkZWZnaGlqc3R1dnd4eXqC + g4SFhoeIiYqSk5SVlpeYmZqio6Slpqeoqaqys7S1tre4ubrCw8TFxsfIycrS09TV1tfY2dri4+Tl5ufo + 6ery8/T19vf4+fr/2gAMAwEAAhEDEQA/AP1ZH7UPxEAA/wCEw8bnj/ob9f8A/k+v7U/1Nyj/AKF+G/8A + BUP/AJE/llcSZlZf7dX/APBk/wDMX/hqH4if9Df43/8ACv1//wCT6P8AU3Kf+hfhv/BUP/kQ/wBZcy/6 + Dq//AIMn/mH/AA1D8RP+hv8AG/8A4V+v/wDyfR/qblP/AEL8N/4Kh/8AIh/rLmX/AEHV/wDwZP8AzD/h + qH4if9Df43/8K/X/AP5Po/1Nyn/oX4b/AMFQ/wDkQ/1lzL/oOr/+DJ/5h/w1D8RP+hv8b/8AhX6//wDJ + 9H+puU/9C/Df+Cof/Ih/rLmX/QdX/wDBk/8AMT/hqH4if9Df43/8K/X/AP5Po/1Nyn/oX4b/AMFQ/wDk + Q/1kzL/oOr/+DJ/5n2R+xz+234zt/iRpnw+8a6vqXiDwZ4gs9baObXr+bUr/AMPajpmkX2tQ3FlqV2Zb + 57K7XT2t3tXkaJWkV4whVxJ+beJfAuU4Th/FZ/hKEKOMw8qd+SKjGcZzjTs4q0bpyUlJK7s073VvuuBO + LMxxGcYfJ8TWlVw1ZTtzu7hKMJTupPWzUWnFu2qatrf9aP8AhfXgv+zv7U89/sfm+V5207N+M43fSv50 + P2w/kwr/AEFP42CgAoAKACgAoA9s/Z0/s7/hcng3+1vP/s7Ov/avs2PP2f8ACL63t2buP9ZjP+zmvz7x + U/5IPPf+4H/qRRPsvD//AJK7KP8AuL/6ZqH7/wD/ABaT/hUfb7Ht/wBj7V9p8v8A9Cr+Oz+lz//Z + + + + 44 + + \ No newline at end of file diff --git a/ArinWarev1/Forms/v20091231/Frm_v20091231_kongkub.vb b/ArinWarev1/Forms/v20091231/Frm_v20091231_kongkub.vb new file mode 100644 index 0000000..cb0f91f --- /dev/null +++ b/ArinWarev1/Forms/v20091231/Frm_v20091231_kongkub.vb @@ -0,0 +1,459 @@ +Public Class Frm_v20091231_kongkub + + Dim dt As DataTable + Dim Init As Boolean = False + Dim SrcDrv As DataRowView + + Private Sub MdiMain_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load + MdiMain.Toggle_Menu_Color(MdiMain.E_MenuIdx.난방공급시스템) + 'CEnergy.ARINCLASS.SaveLoad_FrmSetting(Me) + '//프로필 관련 + + '//공유데이터셋에 연결한다. + Me.bs.DataSource = DSET + Dt = DSET.tbl_kongkub + + + '//난방공급시스템 + AddHandler DSET.tbl_kongkub.TableNewRow, AddressOf AddNewDataRow_kongkub + + '//모든컨트롤의 cTrl_enter 를 추가합니다 + BindProperty(CType(Me.SplitContainer1.Panel2.Controls, Control.ControlCollection)) + + '//콤보컨트롤 바인딩 + Binding_Zone() + + Me.bsmain = Me.bs + Me.Init = True + + Try + Me.bsmain.Position = CEnergy.ARINCLASS.Read_LastPos_Frm(Me) + Catch ex As Exception + Me.bsmain.MoveFirst() + End Try + + bs_CurrentChanged(sender, e) + Validate_control() + + End Sub +#Region "Control_Enter" + Private Sub BindProperty(ByVal Ctl As Control.ControlCollection) + For Each C As Control In Ctl + If C.Controls.Count > 1 Then + BindProperty(C.Controls) + Else + If C.GetType.ToString.ToUpper.IndexOf("MYTB") <> -1 Then + AddHandler CType(C, MyTb).KeyDown, AddressOf TextBOx_KeyDown + ElseIf C.GetType.ToString.ToUpper.IndexOf("MYCMB") <> -1 Then + AddHandler CType(C, MyCmb).KeyDown, AddressOf Cmd_KeyDown + End If + End If + Next + End Sub + + + Private Sub TextBOx_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) + If e.KeyCode = Keys.Enter AndAlso e.Control Then + Try + Dim Field As String = (CType(sender, MyTb).DataBindings.Item("text").BindingMemberInfo.BindingField) + For Each Dr As DataRow In dt.Select(Me.bs.Filter, "") + Dr(Field) = CType(sender, MyTb).Text + Next + Work_msg_timer("모든값이 변경되었습니다", 25) + Catch ex As Exception + + End Try + + End If + End Sub + Private Sub Cmd_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) + If e.KeyCode = Keys.Enter AndAlso e.Control Then + Try + Dim Field As String = (CType(sender, MyCmb).DataBindings.Item("selectedvalue").BindingMemberInfo.BindingField) + For Each Dr As DataRow In dt.Select(Me.bs.Filter, "") + Dr(Field) = CType(sender, MyCmb).SelectedValue + Next + Work_msg_timer("모든값이 변경되었습니다", 25) + Catch ex As Exception + + End Try + End If + End Sub +#End Region +#Region "난방공급시스템" + + Private Function GetMaxCode(ByVal dt As DataTable) As String + Try + Dim Dr As DataRow = dt.Select("", "code desc")(0) + Return Format(CInt(Dr("code")) + 1, "0000") + Catch ex As Exception + Return "0001" + End Try + End Function + + Private Sub Cmb_DeleteVal(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) + If e.KeyCode = Keys.Delete Then + CType(sender, ComboBox).SelectedValue = "" + End If + End Sub + + Private Sub ToolStripButton48_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt_add.Click + If Not EndEdit(Me.bs) Then Return + Me.bs.AddNew() + INitRow(Me.Controls) + End Sub + + + Private Sub ToolStripButton49_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt_Del.Click + Dbbase.DelCrow(Me.bs, True) + End Sub + + Private Sub ToolStripButton51_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt_cancel.Click + If Not EndEdit(Me.bs) Then Return + Data_Cancel(DSET.tbl_profile, Nothing) + End Sub + + Private Sub Binding_Zone() + + '//난방공급 시스템 + Dim bs_열공급시스템ComboBox As New BindingSource(DSET, "tbl_common") + bs_열공급시스템ComboBox.Filter = "gubun='1045'" + 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(DSET, "tbl_nanbangkiki") + Me.열공급생산기기ComboBox.DataSource = bs_열공급생산기기ComboBox + bs_열공급생산기기ComboBox.Sort = "code" + 열공급생산기기ComboBox.DisplayMember = "설명" + 열공급생산기기ComboBox.ValueMember = "code" + Me.열공급생산기기ComboBox.DataBindings.Add("selectedvalue", Me.bs, "열공급생산기기") + ' AddHandler 열공급생산기기ComboBox.KeyDown, AddressOf Cmb_DeleteVal + + Dim bs_노출형제어ComboBox As New BindingSource(DSET, "tbl_common") + bs_노출형제어ComboBox.Filter = "gubun='1033'" '//비제어,onoff제어,pi제어 + 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(DSET, "tbl_common") + bs_바닥난방열제어ComboBox.Filter = "gubun='1033'" + 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(DSET, "tbl_common") + bs_바닥난방열건축부위ComboBox.Filter = "gubun='1034'" + 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(DSET, "tbl_common") + bs_바닥난방전기제어ComboBox.Filter = "gubun='1033'" '//습식,건식,반건식 + 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(DSET, "tbl_common") + bs_바닥난방전기건축부위ComboBox.Filter = "gubun='1034'" + 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(DSET, "tbl_common") + bs_전기난방제어ComboBox.Filter = "gubun='1033'" + 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 + 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 + If Me.bs.Position < Me.bs.Count Then Me.bs.Position += 1 + Else + If Me.bs.Position > 0 Then Me.bs.Position -= 1 + End If + Me.Validate() + My.Application.DoEvents() + End Sub + Private Sub MdiMain_FormClosed(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosedEventArgs) Handles Me.FormClosed + CEnergy.ARINCLASS.SaveLoad_FrmSetting(Me, Me.bsmain.Position, True) + End Sub + + Private Sub MdiMain_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown + Select Case e.KeyCode + Case Keys.F12 + End Select + End Sub + Private Sub AddNewDataRow_kongkub(ByVal sender As Object, ByVal e As System.Data.DataTableNewRowEventArgs) + e.Row.Item("code") = GetMaxCode(DSET.tbl_kongkub) + End Sub + +#End Region + + Private Sub bs_CurrentChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bs.CurrentChanged + If Not Init Then Return + Try + Dim Drv As DataRowView = CType(bs.Current, DataRowView) + Dim DR() As DataRow = DSET.tbl_zone.Select("냉난방열공급시스템='" & Drv("code").ToString & "'") + Me.tb_zone_cnt.Text = CStr(DR.GetUpperBound(0) + 1) + Catch ex As Exception + Me.tb_zone_cnt.Text = "0" + End Try + Me.bs.EndEdit() + + End Sub + + Private Sub 열공급시스템ComboBox_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles 열공급시스템ComboBox.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) <> 21 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() '//한줄추가 + + Dim Cnt As Short = 0 + For i As Integer = 0 To CB.GetUpperBound(0) + Select Case i + Case 0 + CType(bs.Current, DataRowView)("설명") = CB(i).Split(CChar(vbTab))(ii).Trim + Case 0 + 3 '//사용프로필 앞에 두개를 숫자4자로변환 + If CB(i).Split(CChar(vbTab))(ii).Trim = "" Then + Me.열공급시스템ComboBox.SelectedIndex = 0 + Else + Me.열공급시스템ComboBox.Text = CB(i).Split(CChar(vbTab))(ii).Trim + End If + 'Me.열공급시스템ComboBox.Text = CStr(IIf( CB(i).Split(CChar(vbTab))(ii).Trim = "", "0", CB(i).Split(CChar(vbTab))(ii).Trim)) + Case 1 + 3 '//공란 + If CB(i).Split(CChar(vbTab))(ii).Trim = "" Then + Me.열공급생산기기ComboBox.SelectedIndex = 0 + Else + Me.열공급생산기기ComboBox.Text = CB(i).Split(CChar(vbTab))(ii).Trim + End If + 'Me.열공급생산기기ComboBox.Text = CStr(IIf( CB(i).Split(CChar(vbTab))(ii).Trim = "", "0", CB(i).Split(CChar(vbTab))(ii).Trim)) + Case 3 + 3 '//면적 + If CB(i).Split(CChar(vbTab))(ii).Trim = "" Then + Me.노출형제어ComboBox.SelectedIndex = 0 + Else + Me.노출형제어ComboBox.Text = CB(i).Split(CChar(vbTab))(ii).Trim + End If + ' Me.노출형제어ComboBox.Text = CStr(IIf( CB(i).Split(CChar(vbTab))(ii).Trim = "", "0", CB(i).Split(CChar(vbTab))(ii).Trim)) + Case 5 + 3 + If CB(i).Split(CChar(vbTab))(ii).Trim = "" Then + Me.바닥난방열제어ComboBox.SelectedIndex = 0 + Else + Me.바닥난방열제어ComboBox.Text = CB(i).Split(CChar(vbTab))(ii).Trim + End If + ' Me.바닥난방열제어ComboBox.Text = CStr(IIf( CB(i).Split(CChar(vbTab))(ii).Trim = "", "0", CB(i).Split(CChar(vbTab))(ii).Trim)) + Case 6 + 3 + If CB(i).Split(CChar(vbTab))(ii).Trim = "" Then + Me.바닥난방열건축부위ComboBox.SelectedIndex = 0 + Else + Me.바닥난방열건축부위ComboBox.Text = CB(i).Split(CChar(vbTab))(ii).Trim + End If + ' Me.바닥난방열건축부위ComboBox.Text = CStr(IIf( CB(i).Split(CChar(vbTab))(ii).Trim = "", "0", CB(i).Split(CChar(vbTab))(ii).Trim)) + Case 8 + 3 + If CB(i).Split(CChar(vbTab))(ii).Trim = "" Then + Me.바닥난방전기제어ComboBox.SelectedIndex = 0 + Else + Me.바닥난방전기제어ComboBox.Text = CB(i).Split(CChar(vbTab))(ii).Trim + End If + 'Me.바닥난방전기제어ComboBox.Text = CStr(IIf( CB(i).Split(CChar(vbTab))(ii).Trim = "", "0", CB(i).Split(CChar(vbTab))(ii).Trim)) + Case 9 + 3 + If CB(i).Split(CChar(vbTab))(ii).Trim = "" Then + Me.바닥난방전기건축부위ComboBox.SelectedIndex = 0 + Else + Me.바닥난방전기건축부위ComboBox.Text = CB(i).Split(CChar(vbTab))(ii).Trim + End If + ' Me.바닥난방전기건축부위ComboBox.Text = CStr(IIf( CB(i).Split(CChar(vbTab))(ii).Trim = "", "0", CB(i).Split(CChar(vbTab))(ii).Trim)) + Case 11 + 3 + If CB(i).Split(CChar(vbTab))(ii).Trim = "" Then + Me.전기난방제어ComboBox.SelectedIndex = 0 + Else + Me.전기난방제어ComboBox.Text = CB(i).Split(CChar(vbTab))(ii).Trim + End If + 'Me.전기난방제어ComboBox.Text = CStr(IIf( CB(i).Split(CChar(vbTab))(ii).Trim = "", "0", CB(i).Split(CChar(vbTab))(ii).Trim)) + Case 13 + 3 + 'Me.TabControl18.SelectedIndex = 1 + Me.제어기의정격전력NTb.Text = CB(i).Split(CChar(vbTab))(ii).Trim + Case 14 + 3 + Me.팬송풍기정격전력NTb.Text = CB(i).Split(CChar(vbTab))(ii).Trim + Case 15 + 3 + Me.펌프정격전력NTb.Text = CB(i).Split(CChar(vbTab))(ii).Trim + Case 16 + 3 + Me.팬송풍기수NTb.Text = CB(i).Split(CChar(vbTab))(ii).Trim + Case 17 + 3 + Me.추가펌프수NTb.Text = CB(i).Split(CChar(vbTab))(ii).Trim + + End Select + Next + Next + + Me.bs.EndEdit() + End If + End Sub + + + Private Sub bt_Del_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles bt_Del.MouseDown + If e.Button = Windows.Forms.MouseButtons.Right Then + If MsgBox("전체삭제를 하시겠습니까?", MsgBoxStyle.Information Or MsgBoxStyle.OkCancel, "확인") = MsgBoxResult.Ok Then + Dim dR() As DataRow = DSET.tbl_kongkub.Select(Me.bs.Filter, "") + For i As Integer = dR.GetUpperBound(0) To 0 Step -1 + dR(i).Delete() + Next + DSET.tbl_kongkub.AcceptChanges() + End If + End If + End Sub + + Private Sub 열공급시스템ComboBox_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 열공급시스템ComboBox.SelectedIndexChanged + VALIDATE_CONTROL() + End Sub + + Private Sub Validate_control() + If Not Init Then Return + Try + Select Case 열공급시스템ComboBox.Text + Case "노출형방열기(열)" + 열공급생산기기ComboBox.Enabled = True + 노출형방열기GroupBox.Enabled = True + 바닥난방열GroupBox.Enabled = False + 전기난방GroupBox.Enabled = False + 바닥난방전기GroupBox.Enabled = False + + Case "바닥난방(열)" + 열공급생산기기ComboBox.Enabled = True + 노출형방열기GroupBox.Enabled = False + 바닥난방열GroupBox.Enabled = True + 전기난방GroupBox.Enabled = False + 바닥난방전기GroupBox.Enabled = False + + Case "전기난방" + 열공급생산기기ComboBox.Enabled = False + 노출형방열기GroupBox.Enabled = False + 바닥난방열GroupBox.Enabled = False + 전기난방GroupBox.Enabled = True + 바닥난방전기GroupBox.Enabled = False + + Case "바닥난방(전기)" + 열공급생산기기ComboBox.Enabled = False + 노출형방열기GroupBox.Enabled = False + 바닥난방열GroupBox.Enabled = False + 전기난방GroupBox.Enabled = False + 바닥난방전기GroupBox.Enabled = True + + Case Else + 열공급생산기기ComboBox.Enabled = False + 노출형방열기GroupBox.Enabled = False + 바닥난방열GroupBox.Enabled = False + 전기난방GroupBox.Enabled = False + 바닥난방전기GroupBox.Enabled = False + + End Select + Catch ex As Exception + + End Try + End Sub + + Private Sub dv_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles dv.MouseUp + If Prj.UserAuthType = "ADMIN" OrElse Prj.UserAuthType = "BOTH" OrElse Prj.UserAuthType = "BOTH2" OrElse Prj.UserAuthType = "BOTH1" Then '//2011.03.08 추가 + If e.Button = Windows.Forms.MouseButtons.Right Then + Dim Frm_FilterA As New Frm_Filter + Frm_FilterA.ColumTitle = getColCaption(Me.dt) + Frm_FilterA.ColumList = getColName(Me.dt) + Frm_FilterA.Colorlist = "열공급생산기기" + Frm_FilterA.Numfield = "" '//20100618 Color 리스트처럼 , 구분해서 필드들을 모두 넣으세요.(=, >= 등을 사용하기 위해서는 해당 항목을 추가 요망) + Frm_FilterA.Default_Filter = "code <> '0'" + + If Frm_FilterA.ShowDialog <> Windows.Forms.DialogResult.OK Then Return '//창떳을떄 확인아ㅣ고 취소눌르면 다음을 수행하지않는다는거에요. + Dim Filter As String = Frm_FilterA.tb_filter.Text '//값은 아까 그 텍박에 잇구요. + Try + Me.bs.Filter = Filter + + '//바꾸기값이 있으면 변경 20100618 + If Frm_FilterA.cmb_fieldc.SelectedIndex >= 0 AndAlso Frm_FilterA.cmb_fieldc.Text.ToLower <> "code" AndAlso _ + Frm_FilterA.tb_valuec.Text <> "" Then + Dim Drow() As DataRow = Me.dt.Select(Filter) + For Each Dr As DataRow In Drow + Dr(Frm_FilterA.cmb_fieldc.Text) = Frm_FilterA.tb_valuec.Text + Next + MsgBox("바꾸기 완료", MsgBoxStyle.Information, "확인") + End If + + Catch ex As Exception + Me.bs.Filter = "" + End Try + End If + End If + End Sub + Private Sub dv_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles dv.KeyDown + '//여기보시면 alt+d 누르면 한줄을 경고없이(falsE)삭제하도록 햇어요.. 사실원래 밋alt +d 인데.. ㅎㅎ 잘못해서 ctrl 됫다는 + If Prj.UserAuthType = "ADMIN" OrElse Prj.UserAuthType = "BOTH" OrElse Prj.UserAuthType = "BOTH2" OrElse Prj.UserAuthType = "BOTH1" Then '//2011.03.08 추가 + Select Case e.KeyCode + Case Keys.D + If e.Alt Then + Dbbase.DelCrow(Me.bs, False) + End If + Case Keys.C + If e.Control Then + Me.SrcDrv = Me.bs.Current + If Me.SrcDrv Is Nothing Then + MsgBox("저장할 ROW가 없습니다", MsgBoxStyle.Information, "확인") + Return + End If + ' My.Computer.Clipboard.SetData("ZDATA", Drv) + End If + Case Keys.V + If e.Control Then + If Me.SrcDrv Is Nothing Then Return + Me.bt_add.PerformClick() '//신규추가 + Dim NewDrv As DataRowView = Me.bs.Current + + For Each C As DataColumn In Me.dt.Columns + If C.ColumnName.ToUpper = "CODE" Then + ElseIf C.ColumnName.ToUpper = "설명" Then + NewDrv(C.ColumnName) = SrcDrv(C.ColumnName) & "#1" + Else + NewDrv(C.ColumnName) = SrcDrv(C.ColumnName) + End If + Next + Me.bs.EndEdit() + bs.MoveLast() + End If + End Select + End If + End Sub + + Private Sub dv_CellContentClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles dv.CellContentClick + + End Sub +End Class \ No newline at end of file diff --git a/ArinWarev1/Forms/v20091231/Frm_v20091231_nBunbae.Designer.vb b/ArinWarev1/Forms/v20091231/Frm_v20091231_nBunbae.Designer.vb new file mode 100644 index 0000000..58410fe --- /dev/null +++ b/ArinWarev1/Forms/v20091231/Frm_v20091231_nBunbae.Designer.vb @@ -0,0 +1,693 @@ + _ +Partial Class Frm_V20091231_nBunbae + Inherits MMM.FaderForm + + 'Form은 Dispose를 재정의하여 구성 요소 목록을 정리합니다. + _ + Protected Overrides Sub Dispose(ByVal disposing As Boolean) + Try + If disposing AndAlso components IsNot Nothing Then + components.Dispose() + End If + Finally + MyBase.Dispose(disposing) + End Try + End Sub + + 'Windows Form 디자이너에 필요합니다. + Private components As System.ComponentModel.IContainer + + '참고: 다음 프로시저는 Windows Form 디자이너에 필요합니다. + '수정하려면 Windows Form 디자이너를 사용하십시오. + '코드 편집기를 사용하여 수정하지 마십시오. + _ + Private Sub InitializeComponent() + Me.components = New System.ComponentModel.Container + Dim Label11 As System.Windows.Forms.Label + Dim Label10 As System.Windows.Forms.Label + Dim Label9 As System.Windows.Forms.Label + Dim Label8 As System.Windows.Forms.Label + Dim Label6 As System.Windows.Forms.Label + Dim Label18 As System.Windows.Forms.Label + Dim Label17 As System.Windows.Forms.Label + Dim Label16 As System.Windows.Forms.Label + Dim Label15 As System.Windows.Forms.Label + Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(Frm_V20091231_nBunbae)) + Me.bs = New System.Windows.Forms.BindingSource(Me.components) + Me.DS = New Eco2Ar.DS + Me.Label1 = New System.Windows.Forms.Label + Me.Label19 = New System.Windows.Forms.Label + Me.Label225 = New System.Windows.Forms.Label + Me.SplitContainer1 = New System.Windows.Forms.SplitContainer + Me.dv = New CEnergy.arindv + Me.DataGridViewTextBoxColumn1 = New System.Windows.Forms.DataGridViewTextBoxColumn + 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 + Me.bt_Del = New System.Windows.Forms.ToolStripButton + Me.bt_cancel = New System.Windows.Forms.ToolStripButton + Me.ToolStripSeparator1 = New System.Windows.Forms.ToolStripSeparator + Me.lbl_pos = New System.Windows.Forms.ToolStripLabel + Me.Label23 = New System.Windows.Forms.Label + Me.PictureBox4 = New System.Windows.Forms.PictureBox + Me.난방분배표준치GroupBox = New System.Windows.Forms.GroupBox + Me.건물길이xMyTb = New Eco2Ar.MyTb + Me.층고MyTb = New Eco2Ar.MyTb + Me.Label2 = New System.Windows.Forms.Label + Me.cmb_지관연결관장소 = New Eco2Ar.MyCmb + Me.층수MyTb = New Eco2Ar.MyTb + Me.건물길이yMyTb = New Eco2Ar.MyTb + Me.난방분배표준치PictureBox = New System.Windows.Forms.PictureBox + Me.열분배GroupBox = New System.Windows.Forms.GroupBox + Me.열관류율MyTb = New Eco2Ar.MyTb + Me.배관구간길이MyTb = New Eco2Ar.MyTb + Me.Label222 = New System.Windows.Forms.Label + Me.cmb_배관설치장소 = New Eco2Ar.MyCmb + Me.cmb_배관구간방식 = New Eco2Ar.MyCmb + Me.열분배PictureBox = New System.Windows.Forms.PictureBox + Me.GroupBox1 = New System.Windows.Forms.GroupBox + Me.cmb_배관망유형 = New Eco2Ar.MyCmb + Me.cmb_표준치적용 = New Eco2Ar.MyCmb + Me.cmb_생산기기구분 = New Eco2Ar.MyCmb + Me.PictureBox1 = New System.Windows.Forms.PictureBox + Label11 = New System.Windows.Forms.Label + Label10 = New System.Windows.Forms.Label + Label9 = New System.Windows.Forms.Label + Label8 = New System.Windows.Forms.Label + Label6 = New System.Windows.Forms.Label + Label18 = New System.Windows.Forms.Label + Label17 = New System.Windows.Forms.Label + Label16 = New System.Windows.Forms.Label + Label15 = New System.Windows.Forms.Label + CType(Me.ErrProvider, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.bsmain, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.bs, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.DS, System.ComponentModel.ISupportInitialize).BeginInit() + Me.SplitContainer1.Panel1.SuspendLayout() + Me.SplitContainer1.Panel2.SuspendLayout() + Me.SplitContainer1.SuspendLayout() + CType(Me.dv, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.bn, System.ComponentModel.ISupportInitialize).BeginInit() + Me.bn.SuspendLayout() + CType(Me.PictureBox4, System.ComponentModel.ISupportInitialize).BeginInit() + Me.난방분배표준치GroupBox.SuspendLayout() + CType(Me.난방분배표준치PictureBox, System.ComponentModel.ISupportInitialize).BeginInit() + Me.열분배GroupBox.SuspendLayout() + CType(Me.열분배PictureBox, System.ComponentModel.ISupportInitialize).BeginInit() + Me.GroupBox1.SuspendLayout() + CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit() + Me.SuspendLayout() + ' + 'Label11 + ' + Label11.AutoSize = True + Label11.BackColor = System.Drawing.Color.FromArgb(CType(CType(243, Byte), Integer), CType(CType(244, Byte), Integer), CType(CType(246, Byte), Integer)) + Label11.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label11.Location = New System.Drawing.Point(9, 42) + Label11.Name = "Label11" + Label11.Size = New System.Drawing.Size(101, 14) + Label11.TabIndex = 125 + Label11.Text = "건물길이(x축)[m]:" + ' + 'Label10 + ' + Label10.AutoSize = True + Label10.BackColor = System.Drawing.Color.FromArgb(CType(CType(243, Byte), Integer), CType(CType(244, Byte), Integer), CType(CType(246, Byte), Integer)) + Label10.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label10.Location = New System.Drawing.Point(9, 66) + Label10.Name = "Label10" + Label10.Size = New System.Drawing.Size(101, 14) + Label10.TabIndex = 126 + Label10.Text = "건물너비(y축)[m]:" + ' + 'Label9 + ' + Label9.AutoSize = True + Label9.BackColor = System.Drawing.Color.FromArgb(CType(CType(243, Byte), Integer), CType(CType(244, Byte), Integer), CType(CType(246, Byte), Integer)) + Label9.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label9.Location = New System.Drawing.Point(9, 90) + Label9.Name = "Label9" + Label9.Size = New System.Drawing.Size(105, 14) + Label9.TabIndex = 127 + Label9.Text = "난방을하는 층의 수:" + ' + 'Label8 + ' + Label8.AutoSize = True + Label8.BackColor = System.Drawing.Color.FromArgb(CType(CType(243, Byte), Integer), CType(CType(244, Byte), Integer), CType(CType(246, Byte), Integer)) + Label8.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label8.Location = New System.Drawing.Point(9, 112) + Label8.Name = "Label8" + Label8.Size = New System.Drawing.Size(87, 14) + Label8.TabIndex = 128 + Label8.Text = "층 고[m]:" + ' + 'Label6 + ' + Label6.AutoSize = True + Label6.BackColor = System.Drawing.Color.FromArgb(CType(CType(243, Byte), Integer), CType(CType(244, Byte), Integer), CType(CType(246, Byte), Integer)) + Label6.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label6.Location = New System.Drawing.Point(9, 138) + Label6.Name = "Label6" + Label6.Size = New System.Drawing.Size(93, 14) + Label6.TabIndex = 129 + Label6.Text = "지관/연결관장소:" + ' + 'Label18 + ' + Label18.AutoSize = True + Label18.BackColor = System.Drawing.Color.FromArgb(CType(CType(243, Byte), Integer), CType(CType(244, Byte), Integer), CType(CType(246, Byte), Integer)) + Label18.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label18.Location = New System.Drawing.Point(9, 126) + Label18.Name = "Label18" + Label18.Size = New System.Drawing.Size(77, 14) + Label18.TabIndex = 24 + Label18.Text = "배관설치장소:" + ' + 'Label17 + ' + Label17.AutoSize = True + Label17.BackColor = System.Drawing.Color.FromArgb(CType(CType(243, Byte), Integer), CType(CType(244, Byte), Integer), CType(CType(246, Byte), Integer)) + Label17.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label17.Location = New System.Drawing.Point(9, 99) + Label17.Name = "Label17" + Label17.Size = New System.Drawing.Size(184, 14) + Label17.TabIndex = 23 + Label17.Text = "단위길이 배관의 열관류율[W/mK]:" + ' + 'Label16 + ' + Label16.AutoSize = True + Label16.BackColor = System.Drawing.Color.FromArgb(CType(CType(243, Byte), Integer), CType(CType(244, Byte), Integer), CType(CType(246, Byte), Integer)) + Label16.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label16.Location = New System.Drawing.Point(9, 71) + Label16.Name = "Label16" + Label16.Size = New System.Drawing.Size(98, 14) + Label16.TabIndex = 22 + Label16.Text = "배관구간길이[m]:" + ' + 'Label15 + ' + Label15.AutoSize = True + Label15.BackColor = System.Drawing.Color.FromArgb(CType(CType(243, Byte), Integer), CType(CType(244, Byte), Integer), CType(CType(246, Byte), Integer)) + Label15.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label15.Location = New System.Drawing.Point(9, 45) + Label15.Name = "Label15" + Label15.Size = New System.Drawing.Size(77, 14) + Label15.TabIndex = 17 + Label15.Text = "배관구간방식:" + ' + 'bs + ' + Me.bs.DataMember = "tbl_nbunbae" + Me.bs.DataSource = Me.DS + Me.bs.Filter = "code <> '0'" + ' + 'DS + ' + Me.DS.DataSetName = "DS" + Me.DS.SchemaSerializationMode = System.Data.SchemaSerializationMode.IncludeSchema + ' + 'Label1 + ' + Me.Label1.AutoSize = True + Me.Label1.BackColor = System.Drawing.Color.FromArgb(CType(CType(219, Byte), Integer), CType(CType(221, Byte), Integer), CType(CType(223, Byte), Integer)) + Me.Label1.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Me.Label1.Location = New System.Drawing.Point(327, 18) + Me.Label1.Name = "Label1" + Me.Label1.Size = New System.Drawing.Size(83, 14) + Me.Label1.TabIndex = 121 + Me.Label1.Text = "2. 배관망 유형:" + Me.Label1.TextAlign = System.Drawing.ContentAlignment.MiddleLeft + ' + 'Label19 + ' + Me.Label19.AutoSize = True + Me.Label19.BackColor = System.Drawing.Color.FromArgb(CType(CType(219, Byte), Integer), CType(CType(221, Byte), Integer), CType(CType(223, Byte), Integer)) + Me.Label19.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Me.Label19.Location = New System.Drawing.Point(8, 18) + Me.Label19.Name = "Label19" + Me.Label19.Size = New System.Drawing.Size(94, 14) + Me.Label19.TabIndex = 119 + Me.Label19.Text = "0. 생산기기 구분:" + Me.Label19.TextAlign = System.Drawing.ContentAlignment.MiddleLeft + ' + 'Label225 + ' + Me.Label225.AutoSize = True + Me.Label225.BackColor = System.Drawing.Color.FromArgb(CType(CType(219, Byte), Integer), CType(CType(221, Byte), Integer), CType(CType(223, Byte), Integer)) + Me.Label225.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Me.Label225.Location = New System.Drawing.Point(8, 43) + Me.Label225.Name = "Label225" + Me.Label225.Size = New System.Drawing.Size(196, 14) + Me.Label225.TabIndex = 119 + Me.Label225.Text = "1.각 배관손실산출 또는 표준치 적용+:" + Me.Label225.TextAlign = System.Drawing.ContentAlignment.MiddleLeft + ' + '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, 30) + 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.BackColor = System.Drawing.Color.White + Me.SplitContainer1.Panel2.Controls.Add(Me.Label23) + Me.SplitContainer1.Panel2.Controls.Add(Me.PictureBox4) + Me.SplitContainer1.Panel2.Controls.Add(Me.난방분배표준치GroupBox) + Me.SplitContainer1.Panel2.Controls.Add(Me.열분배GroupBox) + Me.SplitContainer1.Panel2.Controls.Add(Me.GroupBox1) + Me.SplitContainer1.Size = New System.Drawing.Size(795, 535) + Me.SplitContainer1.SplitterDistance = 214 + Me.SplitContainer1.TabIndex = 126 + ' + 'dv + ' + Me.dv.A_DelCurrentCell = True + Me.dv.A_EnterToTab = True + 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.FromArgb(CType(CType(245, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(246, Byte), Integer)) + Me.dv.BorderStyle = System.Windows.Forms.BorderStyle.None + Me.dv.ColumnHeadersHeight = 30 + Me.dv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.DisableResizing + Me.dv.Columns.AddRange(New System.Windows.Forms.DataGridViewColumn() {Me.DataGridViewTextBoxColumn1}) + Me.dv.DataSource = Me.bs + Me.dv.Location = New System.Drawing.Point(0, 0) + Me.dv.Margin = New System.Windows.Forms.Padding(3, 5, 3, 5) + 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, 488) + 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.Resizable = System.Windows.Forms.DataGridViewTriState.[False] + ' + '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("나눔고딕 ExtraBold", 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.bn.Location = New System.Drawing.Point(0, 493) + 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(212, 40) + Me.bn.TabIndex = 1 + Me.bn.Text = "BindingNavigator1" + ' + 'lbl_count + ' + Me.lbl_count.Name = "lbl_count" + Me.lbl_count.Size = New System.Drawing.Size(27, 37) + 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, 37) + 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, 37) + 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, 37) + Me.bt_cancel.Text = "변경취소(&C)" + Me.bt_cancel.ToolTipText = "변경된 내용을 되돌립니다" + ' + 'ToolStripSeparator1 + ' + Me.ToolStripSeparator1.Name = "ToolStripSeparator1" + Me.ToolStripSeparator1.Size = New System.Drawing.Size(6, 40) + ' + 'lbl_pos + ' + Me.lbl_pos.Name = "lbl_pos" + Me.lbl_pos.Size = New System.Drawing.Size(14, 37) + Me.lbl_pos.Text = "0" + ' + 'Label23 + ' + Me.Label23.AutoSize = True + Me.Label23.BackColor = System.Drawing.Color.FromArgb(CType(CType(116, Byte), Integer), CType(CType(158, Byte), Integer), CType(CType(209, Byte), Integer)) + Me.Label23.ForeColor = System.Drawing.Color.White + Me.Label23.Location = New System.Drawing.Point(24, 35) + Me.Label23.Name = "Label23" + Me.Label23.Size = New System.Drawing.Size(51, 14) + Me.Label23.TabIndex = 172 + Me.Label23.Text = "난방분배" + ' + 'PictureBox4 + ' + Me.PictureBox4.BackgroundImage = CType(resources.GetObject("PictureBox4.BackgroundImage"), System.Drawing.Image) + Me.PictureBox4.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch + Me.PictureBox4.Location = New System.Drawing.Point(11, 24) + Me.PictureBox4.Name = "PictureBox4" + Me.PictureBox4.Size = New System.Drawing.Size(134, 30) + Me.PictureBox4.TabIndex = 171 + Me.PictureBox4.TabStop = False + ' + '난방분배표준치GroupBox + ' + Me.난방분배표준치GroupBox.Controls.Add(Me.건물길이xMyTb) + Me.난방분배표준치GroupBox.Controls.Add(Me.층고MyTb) + Me.난방분배표준치GroupBox.Controls.Add(Me.Label2) + Me.난방분배표준치GroupBox.Controls.Add(Me.cmb_지관연결관장소) + Me.난방분배표준치GroupBox.Controls.Add(Label6) + Me.난방분배표준치GroupBox.Controls.Add(Me.층수MyTb) + Me.난방분배표준치GroupBox.Controls.Add(Label8) + Me.난방분배표준치GroupBox.Controls.Add(Label9) + Me.난방분배표준치GroupBox.Controls.Add(Me.건물길이yMyTb) + Me.난방분배표준치GroupBox.Controls.Add(Label10) + Me.난방분배표준치GroupBox.Controls.Add(Label11) + Me.난방분배표준치GroupBox.Controls.Add(Me.난방분배표준치PictureBox) + Me.난방분배표준치GroupBox.Location = New System.Drawing.Point(335, 139) + Me.난방분배표준치GroupBox.Name = "난방분배표준치GroupBox" + Me.난방분배표준치GroupBox.Size = New System.Drawing.Size(215, 171) + Me.난방분배표준치GroupBox.TabIndex = 132 + Me.난방분배표준치GroupBox.TabStop = False + ' + '건물길이xMyTb + ' + Me.건물길이xMyTb.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bs, "건물길이x", True)) + Me.건물길이xMyTb.Location = New System.Drawing.Point(128, 39) + Me.건물길이xMyTb.Name = "건물길이xMyTb" + Me.건물길이xMyTb.NectControl = Nothing + Me.건물길이xMyTb.Size = New System.Drawing.Size(80, 21) + Me.건물길이xMyTb.TabIndex = 0 + Me.건물길이xMyTb.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + ' + '층고MyTb + ' + Me.층고MyTb.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bs, "층고", True)) + Me.층고MyTb.Location = New System.Drawing.Point(128, 110) + Me.층고MyTb.Name = "층고MyTb" + Me.층고MyTb.NectControl = Nothing + Me.층고MyTb.Size = New System.Drawing.Size(80, 21) + Me.층고MyTb.TabIndex = 3 + Me.층고MyTb.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + ' + 'Label2 + ' + Me.Label2.AutoSize = True + Me.Label2.BackColor = System.Drawing.Color.FromArgb(CType(CType(243, Byte), Integer), CType(CType(244, Byte), Integer), CType(CType(246, Byte), Integer)) + Me.Label2.Font = New System.Drawing.Font("돋움체", 9.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label2.ForeColor = System.Drawing.Color.Black + Me.Label2.Location = New System.Drawing.Point(10, 15) + Me.Label2.Name = "Label2" + Me.Label2.Size = New System.Drawing.Size(110, 12) + Me.Label2.TabIndex = 122 + Me.Label2.Text = "[표준치경계조건]" + ' + 'cmb_지관연결관장소 + ' + Me.cmb_지관연결관장소.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList + Me.cmb_지관연결관장소.FormattingEnabled = True + Me.cmb_지관연결관장소.Location = New System.Drawing.Point(128, 134) + Me.cmb_지관연결관장소.Name = "cmb_지관연결관장소" + Me.cmb_지관연결관장소.NectControl = Nothing + Me.cmb_지관연결관장소.Size = New System.Drawing.Size(80, 22) + Me.cmb_지관연결관장소.TabIndex = 4 + ' + '층수MyTb + ' + Me.층수MyTb.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bs, "층수", True)) + Me.층수MyTb.Location = New System.Drawing.Point(128, 87) + Me.층수MyTb.Name = "층수MyTb" + Me.층수MyTb.NectControl = Nothing + Me.층수MyTb.Size = New System.Drawing.Size(80, 21) + Me.층수MyTb.TabIndex = 2 + Me.층수MyTb.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + ' + '건물길이yMyTb + ' + Me.건물길이yMyTb.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bs, "건물길이y", True)) + Me.건물길이yMyTb.Location = New System.Drawing.Point(128, 63) + Me.건물길이yMyTb.Name = "건물길이yMyTb" + Me.건물길이yMyTb.NectControl = Nothing + Me.건물길이yMyTb.Size = New System.Drawing.Size(80, 21) + Me.건물길이yMyTb.TabIndex = 1 + Me.건물길이yMyTb.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + ' + '난방분배표준치PictureBox + ' + Me.난방분배표준치PictureBox.BackColor = System.Drawing.Color.FromArgb(CType(CType(243, Byte), Integer), CType(CType(244, Byte), Integer), CType(CType(246, Byte), Integer)) + Me.난방분배표준치PictureBox.Location = New System.Drawing.Point(2, 9) + Me.난방분배표준치PictureBox.Name = "난방분배표준치PictureBox" + Me.난방분배표준치PictureBox.Size = New System.Drawing.Size(210, 158) + Me.난방분배표준치PictureBox.TabIndex = 25 + Me.난방분배표준치PictureBox.TabStop = False + ' + '열분배GroupBox + ' + Me.열분배GroupBox.Controls.Add(Me.열관류율MyTb) + Me.열분배GroupBox.Controls.Add(Me.배관구간길이MyTb) + Me.열분배GroupBox.Controls.Add(Me.Label222) + Me.열분배GroupBox.Controls.Add(Me.cmb_배관설치장소) + Me.열분배GroupBox.Controls.Add(Label15) + Me.열분배GroupBox.Controls.Add(Label16) + Me.열분배GroupBox.Controls.Add(Label17) + Me.열분배GroupBox.Controls.Add(Label18) + Me.열분배GroupBox.Controls.Add(Me.cmb_배관구간방식) + Me.열분배GroupBox.Controls.Add(Me.열분배PictureBox) + Me.열분배GroupBox.Location = New System.Drawing.Point(15, 140) + Me.열분배GroupBox.Name = "열분배GroupBox" + Me.열분배GroupBox.Size = New System.Drawing.Size(322, 170) + Me.열분배GroupBox.TabIndex = 131 + Me.열분배GroupBox.TabStop = False + ' + '열관류율MyTb + ' + Me.열관류율MyTb.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bs, "열관류율", True)) + Me.열관류율MyTb.Location = New System.Drawing.Point(193, 99) + Me.열관류율MyTb.Name = "열관류율MyTb" + Me.열관류율MyTb.NectControl = Nothing + Me.열관류율MyTb.Size = New System.Drawing.Size(112, 21) + Me.열관류율MyTb.TabIndex = 2 + Me.열관류율MyTb.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + ' + '배관구간길이MyTb + ' + Me.배관구간길이MyTb.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bs, "배관구간길이", True)) + Me.배관구간길이MyTb.Location = New System.Drawing.Point(193, 71) + Me.배관구간길이MyTb.Name = "배관구간길이MyTb" + Me.배관구간길이MyTb.NectControl = Nothing + Me.배관구간길이MyTb.Size = New System.Drawing.Size(112, 21) + Me.배관구간길이MyTb.TabIndex = 1 + Me.배관구간길이MyTb.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + ' + 'Label222 + ' + Me.Label222.AutoSize = True + Me.Label222.BackColor = System.Drawing.Color.FromArgb(CType(CType(243, Byte), Integer), CType(CType(244, Byte), Integer), CType(CType(246, Byte), Integer)) + Me.Label222.Font = New System.Drawing.Font("돋움체", 9.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label222.ForeColor = System.Drawing.Color.Black + Me.Label222.Location = New System.Drawing.Point(10, 15) + Me.Label222.Name = "Label222" + Me.Label222.Size = New System.Drawing.Size(198, 12) + Me.Label222.TabIndex = 0 + Me.Label222.Text = "[입력 - 열분배 (난방과 급탕)]" + ' + 'cmb_배관설치장소 + ' + Me.cmb_배관설치장소.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList + Me.cmb_배관설치장소.FormattingEnabled = True + Me.cmb_배관설치장소.Location = New System.Drawing.Point(193, 126) + Me.cmb_배관설치장소.Name = "cmb_배관설치장소" + Me.cmb_배관설치장소.NectControl = Nothing + Me.cmb_배관설치장소.Size = New System.Drawing.Size(112, 22) + Me.cmb_배관설치장소.TabIndex = 3 + ' + 'cmb_배관구간방식 + ' + Me.cmb_배관구간방식.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList + Me.cmb_배관구간방식.FormattingEnabled = True + Me.cmb_배관구간방식.Location = New System.Drawing.Point(193, 41) + Me.cmb_배관구간방식.Name = "cmb_배관구간방식" + Me.cmb_배관구간방식.NectControl = Nothing + Me.cmb_배관구간방식.Size = New System.Drawing.Size(112, 22) + Me.cmb_배관구간방식.TabIndex = 0 + ' + '열분배PictureBox + ' + Me.열분배PictureBox.BackColor = System.Drawing.Color.FromArgb(CType(CType(243, Byte), Integer), CType(CType(244, Byte), Integer), CType(CType(246, Byte), Integer)) + Me.열분배PictureBox.Location = New System.Drawing.Point(2, 9) + Me.열분배PictureBox.Name = "열분배PictureBox" + Me.열분배PictureBox.Size = New System.Drawing.Size(317, 157) + Me.열분배PictureBox.TabIndex = 25 + Me.열분배PictureBox.TabStop = False + ' + 'GroupBox1 + ' + Me.GroupBox1.Controls.Add(Me.cmb_배관망유형) + Me.GroupBox1.Controls.Add(Me.Label1) + Me.GroupBox1.Controls.Add(Me.cmb_표준치적용) + Me.GroupBox1.Controls.Add(Me.Label19) + Me.GroupBox1.Controls.Add(Me.Label225) + Me.GroupBox1.Controls.Add(Me.cmb_생산기기구분) + Me.GroupBox1.Controls.Add(Me.PictureBox1) + Me.GroupBox1.Location = New System.Drawing.Point(15, 52) + Me.GroupBox1.Name = "GroupBox1" + Me.GroupBox1.Size = New System.Drawing.Size(534, 70) + Me.GroupBox1.TabIndex = 130 + Me.GroupBox1.TabStop = False + ' + '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(412, 14) + Me.cmb_배관망유형.Name = "cmb_배관망유형" + Me.cmb_배관망유형.NectControl = Nothing + Me.cmb_배관망유형.Size = New System.Drawing.Size(100, 22) + Me.cmb_배관망유형.TabIndex = 120 + ' + 'cmb_표준치적용 + ' + Me.cmb_표준치적용.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList + Me.cmb_표준치적용.FormattingEnabled = True + Me.cmb_표준치적용.Location = New System.Drawing.Point(205, 39) + Me.cmb_표준치적용.Name = "cmb_표준치적용" + Me.cmb_표준치적용.NectControl = Nothing + Me.cmb_표준치적용.Size = New System.Drawing.Size(100, 22) + Me.cmb_표준치적용.TabIndex = 1 + ' + 'cmb_생산기기구분 + ' + Me.cmb_생산기기구분.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList + Me.cmb_생산기기구분.FormattingEnabled = True + Me.cmb_생산기기구분.Location = New System.Drawing.Point(205, 14) + Me.cmb_생산기기구분.Name = "cmb_생산기기구분" + Me.cmb_생산기기구분.NectControl = Nothing + Me.cmb_생산기기구분.Size = New System.Drawing.Size(100, 22) + Me.cmb_생산기기구분.TabIndex = 0 + ' + 'PictureBox1 + ' + 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, 8) + Me.PictureBox1.Name = "PictureBox1" + Me.PictureBox1.Size = New System.Drawing.Size(531, 59) + Me.PictureBox1.TabIndex = 122 + Me.PictureBox1.TabStop = False + ' + 'Frm_V20091231_nBunbae + ' + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.None + Me.ClientSize = New System.Drawing.Size(795, 565) + Me.Controls.Add(Me.SplitContainer1) + Me.Font = New System.Drawing.Font("나눔고딕 ExtraBold", 8.999999!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.KeyPreview = True + Me.Name = "Frm_V20091231_nBunbae" + Me.ShowInTaskbar = False + Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen + Me.Text = "난방분배시스템" + Me.Controls.SetChildIndex(Me.SplitContainer1, 0) + CType(Me.ErrProvider, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.bsmain, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.bs, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.DS, System.ComponentModel.ISupportInitialize).EndInit() + Me.SplitContainer1.Panel1.ResumeLayout(False) + Me.SplitContainer1.Panel2.ResumeLayout(False) + Me.SplitContainer1.Panel2.PerformLayout() + Me.SplitContainer1.ResumeLayout(False) + CType(Me.dv, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.bn, System.ComponentModel.ISupportInitialize).EndInit() + Me.bn.ResumeLayout(False) + Me.bn.PerformLayout() + CType(Me.PictureBox4, System.ComponentModel.ISupportInitialize).EndInit() + Me.난방분배표준치GroupBox.ResumeLayout(False) + Me.난방분배표준치GroupBox.PerformLayout() + CType(Me.난방분배표준치PictureBox, System.ComponentModel.ISupportInitialize).EndInit() + Me.열분배GroupBox.ResumeLayout(False) + Me.열분배GroupBox.PerformLayout() + CType(Me.열분배PictureBox, System.ComponentModel.ISupportInitialize).EndInit() + Me.GroupBox1.ResumeLayout(False) + Me.GroupBox1.PerformLayout() + CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).EndInit() + Me.ResumeLayout(False) + + End Sub + Public WithEvents DS As Eco2Ar.DS + Friend WithEvents bs As System.Windows.Forms.BindingSource + Friend WithEvents cmb_생산기기구분 As Eco2Ar.MyCmb + Friend WithEvents Label225 As System.Windows.Forms.Label + Friend WithEvents cmb_표준치적용 As Eco2Ar.MyCmb + Friend WithEvents Label19 As System.Windows.Forms.Label + Friend WithEvents 건물길이xMyTb As Eco2Ar.MyTb + Friend WithEvents 층고MyTb As Eco2Ar.MyTb + Friend WithEvents cmb_지관연결관장소 As Eco2Ar.MyCmb + Friend WithEvents 층수MyTb As Eco2Ar.MyTb + Friend WithEvents 건물길이yMyTb As Eco2Ar.MyTb + Friend WithEvents cmb_배관망유형 As Eco2Ar.MyCmb + Friend WithEvents Label1 As System.Windows.Forms.Label + Friend WithEvents SplitContainer1 As System.Windows.Forms.SplitContainer + Friend WithEvents bn As System.Windows.Forms.BindingNavigator + Friend WithEvents bt_add As System.Windows.Forms.ToolStripButton + Friend WithEvents bt_Del As System.Windows.Forms.ToolStripButton + Friend WithEvents bt_cancel As System.Windows.Forms.ToolStripButton + Friend WithEvents ToolStripSeparator1 As System.Windows.Forms.ToolStripSeparator + Friend WithEvents dv As CEnergy.arindv + Friend WithEvents Label2 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 난방분배표준치GroupBox As System.Windows.Forms.GroupBox + Friend WithEvents GroupBox1 As System.Windows.Forms.GroupBox + Friend WithEvents DataGridViewTextBoxColumn1 As System.Windows.Forms.DataGridViewTextBoxColumn + Friend WithEvents Label23 As System.Windows.Forms.Label + Friend WithEvents PictureBox4 As System.Windows.Forms.PictureBox + Friend WithEvents 난방분배표준치PictureBox As System.Windows.Forms.PictureBox + Friend WithEvents PictureBox1 As System.Windows.Forms.PictureBox + Friend WithEvents 열분배GroupBox As System.Windows.Forms.GroupBox + Friend WithEvents 열관류율MyTb As Eco2Ar.MyTb + Friend WithEvents 배관구간길이MyTb As Eco2Ar.MyTb + Friend WithEvents Label222 As System.Windows.Forms.Label + Friend WithEvents cmb_배관설치장소 As Eco2Ar.MyCmb + Friend WithEvents cmb_배관구간방식 As Eco2Ar.MyCmb + Friend WithEvents 열분배PictureBox As System.Windows.Forms.PictureBox +End Class diff --git a/ArinWarev1/Forms/v20091231/Frm_v20091231_nBunbae.resx b/ArinWarev1/Forms/v20091231/Frm_v20091231_nBunbae.resx new file mode 100644 index 0000000..459c47c --- /dev/null +++ b/ArinWarev1/Forms/v20091231/Frm_v20091231_nBunbae.resx @@ -0,0 +1,366 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + 109, 17 + + + 17, 17 + + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + 222, 17 + + + 286, 17 + + + 353, 17 + + + + + /9j/4AAQSkZJRgABAgEASABIAAD/7gAOQWRvYmUAZAAAAAAB/+ED5kV4aWYAAE1NACoAAAAIAAcBEgAD + AAAAAQABAAABGgAFAAAAAQAAAGIBGwAFAAAAAQAAAGoBKAADAAAAAQACAAABMQACAAAAHAAAAHIBMgAC + AAAAFAAAAI6HaQAEAAAAAQAAAKIAAADCAEgAAAABAAAASAAAAAEAAEFkb2JlIFBob3Rvc2hvcCBDUzMg + V2luZG93cwAyMDEwOjA0OjE1IDIwOjMyOjA0AAACoAIABAAAAAEAAAA8oAMABAAAAAEAAAAMAAAAAAAA + AAYBAwADAAAAAQAGAAABGgAFAAAAAQAAARABGwAFAAAAAQAAARgBKAADAAAAAQACAAACAQAEAAAAAQAA + ASACAgAEAAAAAQAAAr4AAAAAAAAASAAAAAEAAABIAAAAAf/Y/+AAEEpGSUYAAQIAAEgASAAA/+0ADEFk + b2JlX0NNAAH/7gAOQWRvYmUAZIAAAAAB/9sAhAAMCAgICQgMCQkMEQsKCxEVDwwMDxUYExMVExMYEQwM + DAwMDBEMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMAQ0LCw0ODRAODhAUDg4OFBQODg4OFBEMDAwM + DBERDAwMDAwMEQwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAz/wAARCAAMADwDASIAAhEBAxEB/90A + BAAE/8QBPwAAAQUBAQEBAQEAAAAAAAAAAwABAgQFBgcICQoLAQABBQEBAQEBAQAAAAAAAAABAAIDBAUG + BwgJCgsQAAEEAQMCBAIFBwYIBQMMMwEAAhEDBCESMQVBUWETInGBMgYUkaGxQiMkFVLBYjM0coLRQwcl + klPw4fFjczUWorKDJkSTVGRFwqN0NhfSVeJl8rOEw9N14/NGJ5SkhbSVxNTk9KW1xdXl9VZmdoaWprbG + 1ub2N0dXZ3eHl6e3x9fn9xEAAgIBAgQEAwQFBgcHBgU1AQACEQMhMRIEQVFhcSITBTKBkRShsUIjwVLR + 8DMkYuFygpJDUxVjczTxJQYWorKDByY1wtJEk1SjF2RFVTZ0ZeLys4TD03Xj80aUpIW0lcTU5PSltcXV + 5fVWZnaGlqa2xtbm9ic3R1dnd4eXp7fH/9oADAMBAAIRAxEAPwDd/amR/pH/AOcf70v2pkf6R/8AnH+9 + UUlofq/Bpevxb37UyP8ASP8A84/3pftTI/0j/wDOP96opJfq/BXr8W9+1Mj/AEj/APOP96X7UyP9I/8A + zj/eqKSX6vwV6/F3ujdbuGS2i5xfU8HVxktIG76XyW99vo27p0XGdO2/ba930dZj+q5dX+qfZPL8VAeD + 341VVr/eZhx+0bu708n/2f/tCSBQaG90b3Nob3AgMy4wADhCSU0EJQAAAAAAEAAAAAAAAAAAAAAAAAAA + AAA4QklNBC8AAAAAAErgYgEASAAAAEgAAAAAAAAAAAAAANACAABAAgAAAAAAAAAAAAAYAwAAZAIAAAAB + wAMAALAEAAABAA8nAQBsbHVuAAAAAAAAAAAAADhCSU0D7QAAAAAAEABIAAAAAQACAEgAAAABAAI4QklN + BCYAAAAAAA4AAAAAAAAAAAAAP4AAADhCSU0EDQAAAAAABAAAAHg4QklNBBkAAAAAAAQAAAAeOEJJTQPz + AAAAAAAJAAAAAAAAAAABADhCSU0ECgAAAAAAAQAAOEJJTScQAAAAAAAKAAEAAAAAAAAAAjhCSU0D9QAA + AAAASAAvZmYAAQBsZmYABgAAAAAAAQAvZmYAAQChmZoABgAAAAAAAQAyAAAAAQBaAAAABgAAAAAAAQA1 + AAAAAQAtAAAABgAAAAAAAThCSU0D+AAAAAAAcAAA/////////////////////////////wPoAAAAAP// + //////////////////////////8D6AAAAAD/////////////////////////////A+gAAAAA//////// + /////////////////////wPoAAA4QklNBAAAAAAAAAIAAjhCSU0EAgAAAAAABgAAAAAAADhCSU0EMAAA + AAAAAwEBAQA4QklNBC0AAAAAAAYAAQAAAAM4QklNBAgAAAAAABAAAAABAAACQAAAAkAAAAAAOEJJTQQe + AAAAAAAEAAAAADhCSU0EGgAAAAADPwAAAAYAAAAAAAAAAAAAAAwAAAA8AAAABbs0yBwALQAxADIAAAAB + AAAAAAAAAAAAAAAAAAAAAAAAAAEAAAAAAAAAAAAAADwAAAAMAAAAAAAAAAAAAAAAAAAAAAEAAAAAAAAA + AAAAAAAAAAAAAAAAEAAAAAEAAAAAAABudWxsAAAAAgAAAAZib3VuZHNPYmpjAAAAAQAAAAAAAFJjdDEA + AAAEAAAAAFRvcCBsb25nAAAAAAAAAABMZWZ0bG9uZwAAAAAAAAAAQnRvbWxvbmcAAAAMAAAAAFJnaHRs + b25nAAAAPAAAAAZzbGljZXNWbExzAAAAAU9iamMAAAABAAAAAAAFc2xpY2UAAAASAAAAB3NsaWNlSURs + b25nAAAAAAAAAAdncm91cElEbG9uZwAAAAAAAAAGb3JpZ2luZW51bQAAAAxFU2xpY2VPcmlnaW4AAAAN + YXV0b0dlbmVyYXRlZAAAAABUeXBlZW51bQAAAApFU2xpY2VUeXBlAAAAAEltZyAAAAAGYm91bmRzT2Jq + YwAAAAEAAAAAAABSY3QxAAAABAAAAABUb3AgbG9uZwAAAAAAAAAATGVmdGxvbmcAAAAAAAAAAEJ0b21s + b25nAAAADAAAAABSZ2h0bG9uZwAAADwAAAADdXJsVEVYVAAAAAEAAAAAAABudWxsVEVYVAAAAAEAAAAA + AABNc2dlVEVYVAAAAAEAAAAAAAZhbHRUYWdURVhUAAAAAQAAAAAADmNlbGxUZXh0SXNIVE1MYm9vbAEA + AAAIY2VsbFRleHRURVhUAAAAAQAAAAAACWhvcnpBbGlnbmVudW0AAAAPRVNsaWNlSG9yekFsaWduAAAA + B2RlZmF1bHQAAAAJdmVydEFsaWduZW51bQAAAA9FU2xpY2VWZXJ0QWxpZ24AAAAHZGVmYXVsdAAAAAti + Z0NvbG9yVHlwZWVudW0AAAARRVNsaWNlQkdDb2xvclR5cGUAAAAATm9uZQAAAAl0b3BPdXRzZXRsb25n + AAAAAAAAAApsZWZ0T3V0c2V0bG9uZwAAAAAAAAAMYm90dG9tT3V0c2V0bG9uZwAAAAAAAAALcmlnaHRP + dXRzZXRsb25nAAAAAAA4QklNBCgAAAAAAAwAAAABP/AAAAAAAAA4QklNBBQAAAAAAAQAAAAEOEJJTQQM + AAAAAALaAAAAAQAAADwAAAAMAAAAtAAACHAAAAK+ABgAAf/Y/+AAEEpGSUYAAQIAAEgASAAA/+0ADEFk + b2JlX0NNAAH/7gAOQWRvYmUAZIAAAAAB/9sAhAAMCAgICQgMCQkMEQsKCxEVDwwMDxUYExMVExMYEQwM + DAwMDBEMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMAQ0LCw0ODRAODhAUDg4OFBQODg4OFBEMDAwM + DBERDAwMDAwMEQwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAz/wAARCAAMADwDASIAAhEBAxEB/90A + BAAE/8QBPwAAAQUBAQEBAQEAAAAAAAAAAwABAgQFBgcICQoLAQABBQEBAQEBAQAAAAAAAAABAAIDBAUG + BwgJCgsQAAEEAQMCBAIFBwYIBQMMMwEAAhEDBCESMQVBUWETInGBMgYUkaGxQiMkFVLBYjM0coLRQwcl + klPw4fFjczUWorKDJkSTVGRFwqN0NhfSVeJl8rOEw9N14/NGJ5SkhbSVxNTk9KW1xdXl9VZmdoaWprbG + 1ub2N0dXZ3eHl6e3x9fn9xEAAgIBAgQEAwQFBgcHBgU1AQACEQMhMRIEQVFhcSITBTKBkRShsUIjwVLR + 8DMkYuFygpJDUxVjczTxJQYWorKDByY1wtJEk1SjF2RFVTZ0ZeLys4TD03Xj80aUpIW0lcTU5PSltcXV + 5fVWZnaGlqa2xtbm9ic3R1dnd4eXp7fH/9oADAMBAAIRAxEAPwDd/amR/pH/AOcf70v2pkf6R/8AnH+9 + UUlofq/Bpevxb37UyP8ASP8A84/3pftTI/0j/wDOP96opJfq/BXr8W9+1Mj/AEj/APOP96X7UyP9I/8A + zj/eqKSX6vwV6/F3ujdbuGS2i5xfU8HVxktIG76XyW99vo27p0XGdO2/ba930dZj+q5dX+qfZPL8VAeD + 341VVr/eZhx+0bu708n/2ThCSU0EIQAAAAAAVQAAAAEBAAAADwBBAGQAbwBiAGUAIABQAGgAbwB0AG8A + cwBoAG8AcAAAABMAQQBkAG8AYgBlACAAUABoAG8AdABvAHMAaABvAHAAIABDAFMAMwAAAAEAOEJJTQQG + AAAAAAAHAAgAAQABAQD/4Q/MaHR0cDovL25zLmFkb2JlLmNvbS94YXAvMS4wLwA8P3hwYWNrZXQgYmVn + aW49Iu+7vyIgaWQ9Ilc1TTBNcENlaGlIenJlU3pOVGN6a2M5ZCI/Pg0KPHg6eG1wbWV0YSB4bWxuczp4 + PSJhZG9iZTpuczptZXRhLyIgeDp4bXB0az0iQWRvYmUgWE1QIENvcmUgNC4xLWMwMzYgNDYuMjc2NzIw + LCBNb24gRmViIDE5IDIwMDcgMjI6NDA6MDggICAgICAgICI+DQoJPHJkZjpSREYgeG1sbnM6cmRmPSJo + dHRwOi8vd3d3LnczLm9yZy8xOTk5LzAyLzIyLXJkZi1zeW50YXgtbnMjIj4NCgkJPHJkZjpEZXNjcmlw + dGlvbiByZGY6YWJvdXQ9IiIgeG1sbnM6ZGM9Imh0dHA6Ly9wdXJsLm9yZy9kYy9lbGVtZW50cy8xLjEv + IiB4bWxuczp4YXA9Imh0dHA6Ly9ucy5hZG9iZS5jb20veGFwLzEuMC8iIHhtbG5zOnhhcE1NPSJodHRw + Oi8vbnMuYWRvYmUuY29tL3hhcC8xLjAvbW0vIiB4bWxuczpzdFJlZj0iaHR0cDovL25zLmFkb2JlLmNv + bS94YXAvMS4wL3NUeXBlL1Jlc291cmNlUmVmIyIgeG1sbnM6cGhvdG9zaG9wPSJodHRwOi8vbnMuYWRv + YmUuY29tL3Bob3Rvc2hvcC8xLjAvIiB4bWxuczp0aWZmPSJodHRwOi8vbnMuYWRvYmUuY29tL3RpZmYv + MS4wLyIgeG1sbnM6ZXhpZj0iaHR0cDovL25zLmFkb2JlLmNvbS9leGlmLzEuMC8iIGRjOmZvcm1hdD0i + aW1hZ2UvanBlZyIgeGFwOkNyZWF0b3JUb29sPSJBZG9iZSBQaG90b3Nob3AgQ1MzIFdpbmRvd3MiIHhh + cDpDcmVhdGVEYXRlPSIyMDEwLTA0LTE1VDIwOjMyOjA0KzA5OjAwIiB4YXA6TW9kaWZ5RGF0ZT0iMjAx + MC0wNC0xNVQyMDozMjowNCswOTowMCIgeGFwOk1ldGFkYXRhRGF0ZT0iMjAxMC0wNC0xNVQyMDozMjow + NCswOTowMCIgeGFwTU06RG9jdW1lbnRJRD0idXVpZDpGRTRGOUVDQzgxNDhERjExQjQyNkI5NEQ4RDRD + ODAxNyIgeGFwTU06SW5zdGFuY2VJRD0idXVpZDpCNDE2RTc4MzgyNDhERjExQjQyNkI5NEQ4RDRDODAx + NyIgcGhvdG9zaG9wOkNvbG9yTW9kZT0iMyIgcGhvdG9zaG9wOklDQ1Byb2ZpbGU9InNSR0IgSUVDNjE5 + NjYtMi4xIiBwaG90b3Nob3A6SGlzdG9yeT0iIiB0aWZmOk9yaWVudGF0aW9uPSIxIiB0aWZmOlhSZXNv + bHV0aW9uPSI3MjAwMDAvMTAwMDAiIHRpZmY6WVJlc29sdXRpb249IjcyMDAwMC8xMDAwMCIgdGlmZjpS + ZXNvbHV0aW9uVW5pdD0iMiIgdGlmZjpOYXRpdmVEaWdlc3Q9IjI1NiwyNTcsMjU4LDI1OSwyNjIsMjc0 + LDI3NywyODQsNTMwLDUzMSwyODIsMjgzLDI5NiwzMDEsMzE4LDMxOSw1MjksNTMyLDMwNiwyNzAsMjcx + LDI3MiwzMDUsMzE1LDMzNDMyOzk4ODcxNzIxMUFCRjY2MTQxRDU3NEI3OUYzRjQ2QkFBIiBleGlmOlBp + eGVsWERpbWVuc2lvbj0iNjAiIGV4aWY6UGl4ZWxZRGltZW5zaW9uPSIxMiIgZXhpZjpDb2xvclNwYWNl + PSIxIiBleGlmOk5hdGl2ZURpZ2VzdD0iMzY4NjQsNDA5NjAsNDA5NjEsMzcxMjEsMzcxMjIsNDA5NjIs + NDA5NjMsMzc1MTAsNDA5NjQsMzY4NjcsMzY4NjgsMzM0MzQsMzM0MzcsMzQ4NTAsMzQ4NTIsMzQ4NTUs + MzQ4NTYsMzczNzcsMzczNzgsMzczNzksMzczODAsMzczODEsMzczODIsMzczODMsMzczODQsMzczODUs + MzczODYsMzczOTYsNDE0ODMsNDE0ODQsNDE0ODYsNDE0ODcsNDE0ODgsNDE0OTIsNDE0OTMsNDE0OTUs + NDE3MjgsNDE3MjksNDE3MzAsNDE5ODUsNDE5ODYsNDE5ODcsNDE5ODgsNDE5ODksNDE5OTAsNDE5OTEs + NDE5OTIsNDE5OTMsNDE5OTQsNDE5OTUsNDE5OTYsNDIwMTYsMCwyLDQsNSw2LDcsOCw5LDEwLDExLDEy + LDEzLDE0LDE1LDE2LDE3LDE4LDIwLDIyLDIzLDI0LDI1LDI2LDI3LDI4LDMwOzM1N0NDOEY1MDE4RURF + NDY2NjVCQkRFMUFEMkRCQkJBIj4NCgkJCTx4YXBNTTpEZXJpdmVkRnJvbSBzdFJlZjppbnN0YW5jZUlE + PSJ1dWlkOkY1NEY5RUNDODE0OERGMTFCNDI2Qjk0RDhENEM4MDE3IiBzdFJlZjpkb2N1bWVudElEPSJ1 + dWlkOkY1NEY5RUNDODE0OERGMTFCNDI2Qjk0RDhENEM4MDE3Ii8+DQoJCTwvcmRmOkRlc2NyaXB0aW9u + Pg0KCTwvcmRmOlJERj4NCjwveDp4bXBtZXRhPg0KICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgIAogICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgCiAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAKICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgIAogICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgCiAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAKICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgIAogICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgCiAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAKICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgIAogICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + CiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAKICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgIAogICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgCiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAKICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgIAogICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgCiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAKICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgIAogICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgCiAgICAgICAgICAgPD94cGFja2V0IGVuZD0ndyc/Pv/iDFhJQ0NfUFJPRklMRQABAQAA + DEhMaW5vAhAAAG1udHJSR0IgWFlaIAfOAAIACQAGADEAAGFjc3BNU0ZUAAAAAElFQyBzUkdCAAAAAAAA + AAAAAAAAAAD21gABAAAAANMtSFAgIAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAEWNwcnQAAAFQAAAAM2Rlc2MAAAGEAAAAbHd0cHQAAAHwAAAAFGJrcHQAAAIEAAAAFHJY + WVoAAAIYAAAAFGdYWVoAAAIsAAAAFGJYWVoAAAJAAAAAFGRtbmQAAAJUAAAAcGRtZGQAAALEAAAAiHZ1 + ZWQAAANMAAAAhnZpZXcAAAPUAAAAJGx1bWkAAAP4AAAAFG1lYXMAAAQMAAAAJHRlY2gAAAQwAAAADHJU + UkMAAAQ8AAAIDGdUUkMAAAQ8AAAIDGJUUkMAAAQ8AAAIDHRleHQAAAAAQ29weXJpZ2h0IChjKSAxOTk4 + IEhld2xldHQtUGFja2FyZCBDb21wYW55AABkZXNjAAAAAAAAABJzUkdCIElFQzYxOTY2LTIuMQAAAAAA + AAAAAAAAEnNSR0IgSUVDNjE5NjYtMi4xAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAABYWVogAAAAAAAA81EAAQAAAAEWzFhZWiAAAAAAAAAAAAAAAAAAAAAAWFlaIAAA + AAAAAG+iAAA49QAAA5BYWVogAAAAAAAAYpkAALeFAAAY2lhZWiAAAAAAAAAkoAAAD4QAALbPZGVzYwAA + AAAAAAAWSUVDIGh0dHA6Ly93d3cuaWVjLmNoAAAAAAAAAAAAAAAWSUVDIGh0dHA6Ly93d3cuaWVjLmNo + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAGRlc2MAAAAAAAAALklF + QyA2MTk2Ni0yLjEgRGVmYXVsdCBSR0IgY29sb3VyIHNwYWNlIC0gc1JHQgAAAAAAAAAAAAAALklFQyA2 + MTk2Ni0yLjEgRGVmYXVsdCBSR0IgY29sb3VyIHNwYWNlIC0gc1JHQgAAAAAAAAAAAAAAAAAAAAAAAAAA + AABkZXNjAAAAAAAAACxSZWZlcmVuY2UgVmlld2luZyBDb25kaXRpb24gaW4gSUVDNjE5NjYtMi4xAAAA + AAAAAAAAAAAsUmVmZXJlbmNlIFZpZXdpbmcgQ29uZGl0aW9uIGluIElFQzYxOTY2LTIuMQAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAdmlldwAAAAAAE6T+ABRfLgAQzxQAA+3MAAQTCwADXJ4AAAABWFlaIAAA + AAAATAlWAFAAAABXH+dtZWFzAAAAAAAAAAEAAAAAAAAAAAAAAAAAAAAAAAACjwAAAAJzaWcgAAAAAENS + VCBjdXJ2AAAAAAAABAAAAAAFAAoADwAUABkAHgAjACgALQAyADcAOwBAAEUASgBPAFQAWQBeAGMAaABt + AHIAdwB8AIEAhgCLAJAAlQCaAJ8ApACpAK4AsgC3ALwAwQDGAMsA0ADVANsA4ADlAOsA8AD2APsBAQEH + AQ0BEwEZAR8BJQErATIBOAE+AUUBTAFSAVkBYAFnAW4BdQF8AYMBiwGSAZoBoQGpAbEBuQHBAckB0QHZ + AeEB6QHyAfoCAwIMAhQCHQImAi8COAJBAksCVAJdAmcCcQJ6AoQCjgKYAqICrAK2AsECywLVAuAC6wL1 + AwADCwMWAyEDLQM4A0MDTwNaA2YDcgN+A4oDlgOiA64DugPHA9MD4APsA/kEBgQTBCAELQQ7BEgEVQRj + BHEEfgSMBJoEqAS2BMQE0wThBPAE/gUNBRwFKwU6BUkFWAVnBXcFhgWWBaYFtQXFBdUF5QX2BgYGFgYn + BjcGSAZZBmoGewaMBp0GrwbABtEG4wb1BwcHGQcrBz0HTwdhB3QHhgeZB6wHvwfSB+UH+AgLCB8IMghG + CFoIbgiCCJYIqgi+CNII5wj7CRAJJQk6CU8JZAl5CY8JpAm6Cc8J5Qn7ChEKJwo9ClQKagqBCpgKrgrF + CtwK8wsLCyILOQtRC2kLgAuYC7ALyAvhC/kMEgwqDEMMXAx1DI4MpwzADNkM8w0NDSYNQA1aDXQNjg2p + DcMN3g34DhMOLg5JDmQOfw6bDrYO0g7uDwkPJQ9BD14Peg+WD7MPzw/sEAkQJhBDEGEQfhCbELkQ1xD1 + ERMRMRFPEW0RjBGqEckR6BIHEiYSRRJkEoQSoxLDEuMTAxMjE0MTYxODE6QTxRPlFAYUJxRJFGoUixSt + FM4U8BUSFTQVVhV4FZsVvRXgFgMWJhZJFmwWjxayFtYW+hcdF0EXZReJF64X0hf3GBsYQBhlGIoYrxjV + GPoZIBlFGWsZkRm3Gd0aBBoqGlEadxqeGsUa7BsUGzsbYxuKG7Ib2hwCHCocUhx7HKMczBz1HR4dRx1w + HZkdwx3sHhYeQB5qHpQevh7pHxMfPh9pH5Qfvx/qIBUgQSBsIJggxCDwIRwhSCF1IaEhziH7IiciVSKC + Iq8i3SMKIzgjZiOUI8Ij8CQfJE0kfCSrJNolCSU4JWgllyXHJfcmJyZXJocmtyboJxgnSSd6J6sn3CgN + KD8ocSiiKNQpBik4KWspnSnQKgIqNSpoKpsqzysCKzYraSudK9EsBSw5LG4soizXLQwtQS12Last4S4W + Lkwugi63Lu4vJC9aL5Evxy/+MDUwbDCkMNsxEjFKMYIxujHyMioyYzKbMtQzDTNGM38zuDPxNCs0ZTSe + NNg1EzVNNYc1wjX9Njc2cjauNuk3JDdgN5w31zgUOFA4jDjIOQU5Qjl/Obw5+To2OnQ6sjrvOy07azuq + O+g8JzxlPKQ84z0iPWE9oT3gPiA+YD6gPuA/IT9hP6I/4kAjQGRApkDnQSlBakGsQe5CMEJyQrVC90M6 + Q31DwEQDREdEikTORRJFVUWaRd5GIkZnRqtG8Ec1R3tHwEgFSEtIkUjXSR1JY0mpSfBKN0p9SsRLDEtT + S5pL4kwqTHJMuk0CTUpNk03cTiVObk63TwBPSU+TT91QJ1BxULtRBlFQUZtR5lIxUnxSx1MTU19TqlP2 + VEJUj1TbVShVdVXCVg9WXFapVvdXRFeSV+BYL1h9WMtZGllpWbhaB1pWWqZa9VtFW5Vb5Vw1XIZc1l0n + XXhdyV4aXmxevV8PX2Ffs2AFYFdgqmD8YU9homH1YklinGLwY0Njl2PrZEBklGTpZT1lkmXnZj1mkmbo + Zz1nk2fpaD9olmjsaUNpmmnxakhqn2r3a09rp2v/bFdsr20IbWBtuW4SbmtuxG8eb3hv0XArcIZw4HE6 + cZVx8HJLcqZzAXNdc7h0FHRwdMx1KHWFdeF2Pnabdvh3VnezeBF4bnjMeSp5iXnnekZ6pXsEe2N7wnwh + fIF84X1BfaF+AX5ifsJ/I3+Ef+WAR4CogQqBa4HNgjCCkoL0g1eDuoQdhICE44VHhauGDoZyhteHO4ef + iASIaYjOiTOJmYn+imSKyoswi5aL/IxjjMqNMY2Yjf+OZo7OjzaPnpAGkG6Q1pE/kaiSEZJ6kuOTTZO2 + lCCUipT0lV+VyZY0lp+XCpd1l+CYTJi4mSSZkJn8mmia1ZtCm6+cHJyJnPedZJ3SnkCerp8dn4uf+qBp + oNihR6G2oiailqMGo3aj5qRWpMelOKWpphqmi6b9p26n4KhSqMSpN6mpqhyqj6sCq3Wr6axcrNCtRK24 + ri2uoa8Wr4uwALB1sOqxYLHWskuywrM4s660JbSctRO1irYBtnm28Ldot+C4WbjRuUq5wro7urW7Lrun + vCG8m70VvY++Cr6Evv+/er/1wHDA7MFnwePCX8Lbw1jD1MRRxM7FS8XIxkbGw8dBx7/IPci8yTrJuco4 + yrfLNsu2zDXMtc01zbXONs62zzfPuNA50LrRPNG+0j/SwdNE08bUSdTL1U7V0dZV1tjXXNfg2GTY6Nls + 2fHadtr724DcBdyK3RDdlt4c3qLfKd+v4DbgveFE4cziU+Lb42Pj6+Rz5PzlhOYN5pbnH+ep6DLovOlG + 6dDqW+rl63Dr++yG7RHtnO4o7rTvQO/M8Fjw5fFy8f/yjPMZ86f0NPTC9VD13vZt9vv3ivgZ+Kj5OPnH + +lf65/t3/Af8mP0p/br+S/7c/23////bAEMAAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEB + AQEBAQEBAQEBAQICAgICAgICAgICAwMDAwMDAwMDA//bAEMBAQEBAQEBAQEBAQICAQICAwMDAwMDAwMD + AwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDA//AABEIAAwAPAMBEQACEQEDEQH/ + xAAfAAABBQEBAQEBAQAAAAAAAAAAAQIDBAUGBwgJCgv/xAC1EAACAQMDAgQDBQUEBAAAAX0BAgMABBEF + EiExQQYTUWEHInEUMoGRoQgjQrHBFVLR8CQzYnKCCQoWFxgZGiUmJygpKjQ1Njc4OTpDREVGR0hJSlNU + VVZXWFlaY2RlZmdoaWpzdHV2d3h5eoOEhYaHiImKkpOUlZaXmJmaoqOkpaanqKmqsrO0tba3uLm6wsPE + xcbHyMnK0tPU1dbX2Nna4eLj5OXm5+jp6vHy8/T19vf4+fr/xAAfAQADAQEBAQEBAQEBAAAAAAAAAQID + BAUGBwgJCgv/xAC1EQACAQIEBAMEBwUEBAABAncAAQIDEQQFITEGEkFRB2FxEyIygQgUQpGhscEJIzNS + 8BVictEKFiQ04SXxFxgZGiYnKCkqNTY3ODk6Q0RFRkdISUpTVFVWV1hZWmNkZWZnaGlqc3R1dnd4eXqC + g4SFhoeIiYqSk5SVlpeYmZqio6Slpqeoqaqys7S1tre4ubrCw8TFxsfIycrS09TV1tfY2dri4+Tl5ufo + 6ery8/T19vf4+fr/2gAMAwEAAhEDEQA/AP1ZH7UPxEAA/wCEw8bnj/ob9f8A/k+v7U/1Nyj/AKF+G/8A + BUP/AJE/llcSZlZf7dX/APBk/wDMX/hqH4if9Df43/8ACv1//wCT6P8AU3Kf+hfhv/BUP/kQ/wBZcy/6 + Dq//AIMn/mH/AA1D8RP+hv8AG/8A4V+v/wDyfR/qblP/AEL8N/4Kh/8AIh/rLmX/AEHV/wDwZP8AzD/h + qH4if9Df43/8K/X/AP5Po/1Nyn/oX4b/AMFQ/wDkQ/1lzL/oOr/+DJ/5h/w1D8RP+hv8b/8AhX6//wDJ + 9H+puU/9C/Df+Cof/Ih/rLmX/QdX/wDBk/8AMT/hqH4if9Df43/8K/X/AP5Po/1Nyn/oX4b/AMFQ/wDk + Q/1kzL/oOr/+DJ/5n2R+xz+234zt/iRpnw+8a6vqXiDwZ4gs9baObXr+bUr/AMPajpmkX2tQ3FlqV2Zb + 57K7XT2t3tXkaJWkV4whVxJ+beJfAuU4Th/FZ/hKEKOMw8qd+SKjGcZzjTs4q0bpyUlJK7s073VvuuBO + LMxxGcYfJ8TWlVw1ZTtzu7hKMJTupPWzUWnFu2qatrf9aP8AhfXgv+zv7U89/sfm+V5207N+M43fSv50 + P2w/kwr/AEFP42CgAoAKACgAoA9s/Z0/s7/hcng3+1vP/s7Ov/avs2PP2f8ACL63t2buP9ZjP+zmvz7x + U/5IPPf+4H/qRRPsvD//AJK7KP8AuL/6ZqH7/wD/ABaT/hUfb7Ht/wBj7V9p8v8A9Cr+Oz+lz//Z + + + + 46 + + \ No newline at end of file diff --git a/ArinWarev1/Forms/v20091231/Frm_v20091231_nBunbae.vb b/ArinWarev1/Forms/v20091231/Frm_v20091231_nBunbae.vb new file mode 100644 index 0000000..9049c61 --- /dev/null +++ b/ArinWarev1/Forms/v20091231/Frm_v20091231_nBunbae.vb @@ -0,0 +1,456 @@ +Public Class Frm_V20091231_nBunbae + + Dim Dt As DataTable + Dim Init As Boolean = False + Dim SrcDrv As DataRowView + + Private Sub MdiMain_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load + MdiMain.Toggle_Menu_Color(MdiMain.E_MenuIdx.난방분배시스템) + ' CEnergy.ARINCLASS.SaveLoad_FrmSetting(Me) + '//프로필 관련 + + '//공유데이터셋에 연결한다. + Me.bs.DataSource = DSET + Dt = DSET.tbl_nbunbae + '//냉방분배 + AddHandler DSET.tbl_nbunbae.TableNewRow, AddressOf AddNewDataRow_bunbae + + '//모든컨트롤의 cTrl_enter 를 추가합니다 + BindProperty(CType(Me.SplitContainer1.Panel2.Controls, Control.ControlCollection)) + + Binding_Zone() + Me.bsmain = Me.bs + Me.Init = True + + Try + Me.bsmain.Position = CEnergy.ARINCLASS.Read_LastPos_Frm(Me) + Catch ex As Exception + Me.bsmain.MoveFirst() + End Try + + bs_CurrentChanged(sender, e) + Validate_Control() + + End Sub + +#Region "Control_Enter" + Private Sub BindProperty(ByVal Ctl As Control.ControlCollection) + For Each C As Control In Ctl + If C.Controls.Count > 1 Then + BindProperty(C.Controls) + Else + If C.GetType.ToString.ToUpper.IndexOf("MYTB") <> -1 Then + AddHandler CType(C, MyTb).KeyDown, AddressOf TextBOx_KeyDown + ElseIf C.GetType.ToString.ToUpper.IndexOf("MYCMB") <> -1 Then + AddHandler CType(C, MyCmb).KeyDown, AddressOf Cmd_KeyDown + End If + End If + Next + End Sub + + + Private Sub TextBOx_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) + If e.KeyCode = Keys.Enter AndAlso e.Control Then + Try + Dim Field As String = (CType(sender, MyTb).DataBindings.Item("text").BindingMemberInfo.BindingField) + For Each Dr As DataRow In Dt.Select(Me.bs.Filter, "") + Dr(Field) = CType(sender, MyTb).Text + Next + Work_msg_timer("모든값이 변경되었습니다", 25) + Catch ex As Exception + + End Try + + End If + End Sub + Private Sub Cmd_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) + If e.KeyCode = Keys.Enter AndAlso e.Control Then + Try + Dim Field As String = (CType(sender, MyCmb).DataBindings.Item("selectedvalue").BindingMemberInfo.BindingField) + For Each Dr As DataRow In Dt.Select(Me.bs.Filter, "") + Dr(Field) = CType(sender, MyCmb).SelectedValue + Next + Work_msg_timer("모든값이 변경되었습니다", 25) + Catch ex As Exception + + End Try + End If + End Sub + +#End Region +#Region "냉방분배기기" + + Private Sub MdiMain_FormClosed(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosedEventArgs) Handles Me.FormClosed + CEnergy.ARINCLASS.SaveLoad_FrmSetting(Me, Me.bsmain.Position, True) + End Sub + + Private Sub MdiMain_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown + Select Case e.KeyCode + Case Keys.F12 + End Select + End Sub + Private Sub ToolStripButton48_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt_add.Click + If Not EndEdit(Me.bs) Then Return + Me.bs.AddNew() + INitRow(Me.Controls) + End Sub + + + Private Sub ToolStripButton49_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt_Del.Click + Dbbase.DelCrow(Me.bs, True) + End Sub + + Private Sub ToolStripButton51_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt_cancel.Click + If Not EndEdit(Me.bs) Then Return + Data_Cancel(DSET.tbl_profile, Nothing) + End Sub + + Private Function GetMaxCode(ByVal dt As DataTable) As String + Try + Dim Dr As DataRow = dt.Select("", "code desc")(0) + Return Format(CInt(Dr("code")) + 1, "0000") + Catch ex As Exception + Return "0001" + End Try + End Function + + Private Sub Binding_Zone() + + '//냉방분배시스템 + Dim bs_생산기기구분 As New BindingSource(DSET, "tbl_nanbangkiki") + bs_생산기기구분.Sort = "code" + Me.cmb_생산기기구분.DataSource = bs_생산기기구분 + cmb_생산기기구분.DisplayMember = "설명" + cmb_생산기기구분.ValueMember = "code" + Me.cmb_생산기기구분.DataBindings.Add("selectedvalue", Me.bs, "생산기기구분") + 'AddHandler cmb_생산기기구분.KeyDown, AddressOf Cmb_DeleteVal + + Dim bs_표준치적용 As New BindingSource(DSET, "tbl_common") + bs_표준치적용.Filter = "gubun='1080'" + bs_표준치적용.Sort = "code" + Me.cmb_표준치적용.DataSource = bs_표준치적용 + cmb_표준치적용.DisplayMember = "name" + cmb_표준치적용.ValueMember = "name" + Me.cmb_표준치적용.DataBindings.Add("selectedvalue", Me.bs, "표준치적용") + 'AddHandler cmb_표준치적용.KeyDown, AddressOf Cmb_DeleteVal + + Dim bs_배관망유형 As New BindingSource(DSET, "tbl_common") + bs_배관망유형.Filter = "gubun='1084'" + bs_배관망유형.Sort = "code" + Me.cmb_배관망유형.DataSource = bs_배관망유형 + cmb_배관망유형.DisplayMember = "name" + cmb_배관망유형.ValueMember = "name" + Me.cmb_배관망유형.DataBindings.Add("selectedvalue", Me.bs, "배관망유형") + 'AddHandler cmb_표준치적용.KeyDown, AddressOf Cmb_DeleteVal + + + Dim bs_배관구간방식 As New BindingSource(DSET, "tbl_common") + bs_배관구간방식.Filter = "gubun='1081'" + bs_배관구간방식.Sort = "code" + Me.cmb_배관구간방식.DataSource = bs_배관구간방식 + cmb_배관구간방식.DisplayMember = "name" + cmb_배관구간방식.ValueMember = "name" + Me.cmb_배관구간방식.DataBindings.Add("selectedvalue", Me.bs, "배관구간방식") + 'AddHandler cmb_배관구간방식.KeyDown, AddressOf Cmb_DeleteVal + + Dim bs_배관설치장소 As New BindingSource(DSET, "tbl_common") + bs_배관설치장소.Filter = "gubun='1082'" + bs_배관설치장소.Sort = "code" + Me.cmb_배관설치장소.DataSource = bs_배관설치장소 + cmb_배관설치장소.DisplayMember = "name" + cmb_배관설치장소.ValueMember = "name" + Me.cmb_배관설치장소.DataBindings.Add("selectedvalue", Me.bs, "배관설치장소") + 'AddHandler cmb_배관설치장소.KeyDown, AddressOf Cmb_DeleteVal + + Dim bs_지관연결관장소 As New BindingSource(DSET, "tbl_common") + bs_지관연결관장소.Filter = "gubun='1083'" + bs_지관연결관장소.Sort = "code" + Me.cmb_지관연결관장소.DataSource = bs_지관연결관장소 + cmb_지관연결관장소.DisplayMember = "name" + cmb_지관연결관장소.ValueMember = "name" + Me.cmb_지관연결관장소.DataBindings.Add("selectedvalue", Me.bs, "지관장소") + 'AddHandler cmb_지관연결관장소.KeyDown, AddressOf Cmb_DeleteVal + + 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 + If Me.bs.Position < Me.bs.Count Then Me.bs.Position += 1 + Else + If Me.bs.Position > 0 Then Me.bs.Position -= 1 + End If + Me.Validate() + My.Application.DoEvents() + End Sub + + Private Sub AddNewDataRow_bunbae(ByVal sender As Object, ByVal e As System.Data.DataTableNewRowEventArgs) + e.Row.Item("code") = GetMaxCode(DSET.tbl_nbunbae) + End Sub +#End Region + + Private Sub 냉동기ComboBox_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles cmb_생산기기구분.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) <> 17 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() '//한줄추가 + + Dim Cnt As Short = 0 + For i As Integer = 0 To CB.GetUpperBound(0) + Select Case i + Case 0 + CType(bs.Current, DataRowView)("설명") = CB(i).Split(CChar(vbTab))(ii).Trim + Case 0 + 2 '//사용프로필 앞에 두개를 숫자4자로변환 + If CB(i).Split(CChar(vbTab))(ii).Trim = "" Then + Me.cmb_생산기기구분.SelectedIndex = 0 + Else + Me.cmb_생산기기구분.Text = CB(i).Split(CChar(vbTab))(ii).Trim + End If + + 'Me.cmb_생산기기구분.Text = CStr(IIf( CB(i).Split(CChar(vbTab))(ii).Trim = "", "0", CB(i).Split(CChar(vbTab))(ii).Trim)) + Case 1 + 2 '//공란 + If CB(i).Split(CChar(vbTab))(ii).Trim = "" Then + Me.cmb_표준치적용.SelectedIndex = 0 + Else + Me.cmb_표준치적용.Text = CB(i).Split(CChar(vbTab))(ii).Trim + End If + Case 2 + 2 + If CB(i).Split(CChar(vbTab))(ii).Trim = "" Then + Me.cmb_배관망유형.SelectedIndex = 0 + Else + Me.cmb_배관망유형.Text = CB(i).Split(CChar(vbTab))(ii).Trim + End If + ' Me.cmb_표준치적용.Text = CStr(IIf( CB(i).Split(CChar(vbTab))(ii).Trim = "", "0", CB(i).Split(CChar(vbTab))(ii).Trim)) + Case 3 + 2 + 2 + If CB(i).Split(CChar(vbTab))(ii).Trim = "" Then + Me.cmb_배관구간방식.SelectedIndex = 0 + Else + Me.cmb_배관구간방식.Text = CB(i).Split(CChar(vbTab))(ii).Trim + End If + + 'Me.cmb_배관구간방식.Text = CStr(IIf( CB(i).Split(CChar(vbTab))(ii).Trim = "", "0", CB(i).Split(CChar(vbTab))(ii).Trim)) + Case 4 + 2 + 2 + Me.배관구간길이MyTb.Text = CB(i).Split(CChar(vbTab))(ii).Trim + Case 5 + 2 + 2 + Me.열관류율MyTb.Text = CB(i).Split(CChar(vbTab))(ii).Trim + Case 6 + 2 + 2 + If CB(i).Split(CChar(vbTab))(ii).Trim = "" Then + Me.cmb_배관설치장소.SelectedIndex = 0 + Else + Me.cmb_배관설치장소.Text = CB(i).Split(CChar(vbTab))(ii).Trim + End If + + 'Me.cmb_배관설치장소.Text = CStr(IIf( CB(i).Split(CChar(vbTab))(ii).Trim = "", "0", CB(i).Split(CChar(vbTab))(ii).Trim)) + Case 8 + 2 + 2 + Me.건물길이xMyTb.Text = CB(i).Split(CChar(vbTab))(ii).Trim + Case 9 + 2 + 2 + Me.건물길이yMyTb.Text = CB(i).Split(CChar(vbTab))(ii).Trim + Case 10 + 2 + 2 + Me.층수MyTb.Text = CB(i).Split(CChar(vbTab))(ii).Trim + Case 11 + 2 + 2 + Me.층고MyTb.Text = CB(i).Split(CChar(vbTab))(ii).Trim + Case 12 + 2 + 2 + If CB(i).Split(CChar(vbTab))(ii).Trim = "" Then + Me.cmb_지관연결관장소.SelectedIndex = 0 + Else + Me.cmb_지관연결관장소.Text = CB(i).Split(CChar(vbTab))(ii).Trim + End If + + 'Me.cmb_지관연결관장소.Text = CStr(IIf(CB(i).Trim = "", "0", CB(i).Trim)) + End Select + Next + Next + + Me.bs.EndEdit() + End If + End Sub + + Private Sub Validate_Control() + If Not Init Then Return + 'Try + ' If Me.조명부하산출방법ComboBox.SelectedValue.ToString = "0001" Then '//계산치 + ' Me.요구조도NTb1.Enabled = True + ' Me.천장고NTB1.Enabled = True + ' Me.작업면높이NTb1.Enabled = True + ' Me.실깊이NTb.Enabled = True + ' Me.실너비NTb.Enabled = True + ' Me.실지수NTb1.Enabled = True + ' Me.조명방식ComboBox.Enabled = True + ' Me.인공광원ComboBox.Enabled = True + ' Me.보수율NTb.Enabled = True + ' 'Me.점등시간NTb.Enabled = False + ' Me.조명기기효율NTb.Enabled = True + ' Me.조명률NTb.Enabled = True + ' Me.조명에너지부하율계산치NTb.Enabled = True + ' Me.조명에너지부하율입력치NTb.Enabled = False + ' Else + ' Me.요구조도NTb1.Enabled = False + ' Me.천장고NTB1.Enabled = False + ' Me.작업면높이NTb1.Enabled = False + ' Me.실깊이NTb.Enabled = False + ' Me.실너비NTb.Enabled = False + ' Me.실지수NTb1.Enabled = False + ' Me.조명방식ComboBox.Enabled = False + ' Me.인공광원ComboBox.Enabled = False + ' Me.보수율NTb.Enabled = False + ' 'Me.점등시간NTb.Enabled = False + ' Me.조명기기효율NTb.Enabled = False + ' Me.조명률NTb.Enabled = False + ' Me.조명에너지부하율계산치NTb.Enabled = False + ' Me.조명에너지부하율입력치NTb.Enabled = True + ' 'Me.점등시간TextBox.Enabled = True + ' End If + ' Me.bs.EndEdit() + 'Catch ex As Exception + + 'End Try + + Try + If Me.cmb_표준치적용.Text = "상세입력" Then + 열분배GroupBox.Enabled = True + 난방분배표준치GroupBox.Enabled = False + 열분배PictureBox.Enabled = True + 난방분배표준치PictureBox.Enabled = False + If Me.cmb_배관망유형.Text = "급탕" Then + cmb_배관구간방식.Enabled = False + 배관구간길이MyTb.Enabled = True + 열관류율MyTb.Enabled = True + cmb_배관설치장소.Enabled = False + ElseIf Me.cmb_배관망유형.Text = "난방" Then + cmb_배관구간방식.Enabled = True + 배관구간길이MyTb.Enabled = True + 열관류율MyTb.Enabled = True + cmb_배관설치장소.Enabled = True + Else + cmb_배관구간방식.Enabled = False + 배관구간길이MyTb.Enabled = False + 열관류율MyTb.Enabled = False + cmb_배관설치장소.Enabled = False + End If + + ElseIf Me.cmb_표준치적용.Text = "표준치조건" Then + 열분배GroupBox.Enabled = False + 열분배PictureBox.Enabled = False + If Me.cmb_배관망유형.Text = "급탕" Then + 난방분배표준치GroupBox.Enabled = False + 난방분배표준치PictureBox.Enabled = False + Else + 난방분배표준치GroupBox.Enabled = True + 난방분배표준치PictureBox.Enabled = True + End If + End If + Catch ex As Exception + + End Try + End Sub + + Private Sub SplitContainer1_Panel1_Paint(ByVal sender As System.Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles SplitContainer1.Panel1.Paint + + End Sub + + Private Sub bt_Del_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles bt_Del.MouseDown + If e.Button = Windows.Forms.MouseButtons.Right Then + If MsgBox("전체삭제를 하시겠습니까?", MsgBoxStyle.Information Or MsgBoxStyle.OkCancel, "확인") = MsgBoxResult.Ok Then + Dim dR() As DataRow = DSET.tbl_nbunbae.Select(Me.bs.Filter, "") + For i As Integer = dR.GetUpperBound(0) To 0 Step -1 + dR(i).Delete() + Next + DSET.tbl_nbunbae.AcceptChanges() + End If + End If + End Sub + + Private Sub cmb_배관망유형_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmb_배관망유형.SelectedIndexChanged + Validate_Control() + End Sub + + Private Sub cmb_표준치적용_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmb_표준치적용.SelectedIndexChanged + Validate_Control() + End Sub + + Private Sub dv_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles dv.MouseUp + If Prj.UserAuthType = "ADMIN" OrElse Prj.UserAuthType = "BOTH" OrElse Prj.UserAuthType = "BOTH2" OrElse Prj.UserAuthType = "BOTH1" Then '//2011.03.08 추가 + If e.Button = Windows.Forms.MouseButtons.Right Then + Dim Frm_FilterA As New Frm_Filter + Frm_FilterA.ColumTitle = getColCaption(Me.Dt) + Frm_FilterA.ColumList = getColName(Me.Dt) + Frm_FilterA.Colorlist = "생산기기구분" + Frm_FilterA.Numfield = "" '//20100618 Color 리스트처럼 , 구분해서 필드들을 모두 넣으세요.(=, >= 등을 사용하기 위해서는 해당 항목을 추가 요망) + Frm_FilterA.Default_Filter = "code <> '0'" + + If Frm_FilterA.ShowDialog <> Windows.Forms.DialogResult.OK Then Return '//창떳을떄 확인아ㅣ고 취소눌르면 다음을 수행하지않는다는거에요. + Dim Filter As String = Frm_FilterA.tb_filter.Text '//값은 아까 그 텍박에 잇구요. + Try + Me.bs.Filter = Filter + + '//바꾸기값이 있으면 변경 20100618 + If Frm_FilterA.cmb_fieldc.SelectedIndex >= 0 AndAlso Frm_FilterA.cmb_fieldc.Text.ToLower <> "code" AndAlso _ + Frm_FilterA.tb_valuec.Text <> "" Then + Dim Drow() As DataRow = Me.Dt.Select(Filter) + For Each Dr As DataRow In Drow + Dr(Frm_FilterA.cmb_fieldc.Text) = Frm_FilterA.tb_valuec.Text + Next + MsgBox("바꾸기 완료", MsgBoxStyle.Information, "확인") + End If + + Catch ex As Exception + Me.bs.Filter = "" + End Try + End If + End If + End Sub + + Private Sub dv_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles dv.KeyDown + '//여기보시면 alt+d 누르면 한줄을 경고없이(falsE)삭제하도록 햇어요.. 사실원래 밋alt +d 인데.. ㅎㅎ 잘못해서 ctrl 됫다는 + If Prj.UserAuthType = "ADMIN" OrElse Prj.UserAuthType = "BOTH" OrElse Prj.UserAuthType = "BOTH2" OrElse Prj.UserAuthType = "BOTH1" Then '//2011.03.08 추가 + Select Case e.KeyCode + Case Keys.D + If e.Alt Then + Dbbase.DelCrow(Me.bs, False) + End If + Case Keys.C + If e.Control Then + Me.SrcDrv = Me.bs.Current + If Me.SrcDrv Is Nothing Then + MsgBox("저장할 ROW가 없습니다", MsgBoxStyle.Information, "확인") + Return + End If + ' My.Computer.Clipboard.SetData("ZDATA", Drv) + End If + Case Keys.V + If e.Control Then + If Me.SrcDrv Is Nothing Then Return + Me.bt_add.PerformClick() '//신규추가 + Dim NewDrv As DataRowView = Me.bs.Current + + For Each C As DataColumn In Me.Dt.Columns + If C.ColumnName.ToUpper = "CODE" Then + ElseIf C.ColumnName.ToUpper = "설명" Then + NewDrv(C.ColumnName) = SrcDrv(C.ColumnName) & "#1" + Else + NewDrv(C.ColumnName) = SrcDrv(C.ColumnName) + End If + Next + Me.bs.EndEdit() + bs.MoveLast() + End If + End Select + End If + End Sub + + Private Sub bs_CurrentChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles bs.CurrentChanged + If Not Init Then Return + Me.bs.EndEdit() + End Sub + + Private Sub dv_CellContentClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles dv.CellContentClick + + End Sub +End Class \ No newline at end of file diff --git a/ArinWarev1/Forms/v20091231/Frm_v20091231_profile.Designer.vb b/ArinWarev1/Forms/v20091231/Frm_v20091231_profile.Designer.vb new file mode 100644 index 0000000..d298729 --- /dev/null +++ b/ArinWarev1/Forms/v20091231/Frm_v20091231_profile.Designer.vb @@ -0,0 +1,1311 @@ + _ +Partial Class Frm_V20091231_Profile + Inherits CForm + + 'Form은 Dispose를 재정의하여 구성 요소 목록을 정리합니다. + _ + Protected Overrides Sub Dispose(ByVal disposing As Boolean) + Try + If disposing AndAlso components IsNot Nothing Then + components.Dispose() + End If + Finally + MyBase.Dispose(disposing) + End Try + End Sub + + 'Windows Form 디자이너에 필요합니다. + Private components As System.ComponentModel.IContainer + + '참고: 다음 프로시저는 Windows Form 디자이너에 필요합니다. + '수정하려면 Windows Form 디자이너를 사용하십시오. + '코드 편집기를 사용하여 수정하지 마십시오. + _ + Private Sub InitializeComponent() + Me.components = New System.ComponentModel.Container() + Dim Label43 As System.Windows.Forms.Label + Dim Label44 As System.Windows.Forms.Label + Dim Label55 As System.Windows.Forms.Label + Dim Label58 As System.Windows.Forms.Label + Dim Label59 As System.Windows.Forms.Label + Dim Label60 As System.Windows.Forms.Label + Dim Label56 As System.Windows.Forms.Label + Dim Label57 As System.Windows.Forms.Label + Dim Label37 As System.Windows.Forms.Label + Dim Label108 As System.Windows.Forms.Label + Dim Label112 As System.Windows.Forms.Label + Dim Label111 As System.Windows.Forms.Label + Dim Label110 As System.Windows.Forms.Label + Dim Label27 As System.Windows.Forms.Label + Dim Label28 As System.Windows.Forms.Label + Dim Label1 As System.Windows.Forms.Label + Dim Label30 As System.Windows.Forms.Label + Dim Label2 As System.Windows.Forms.Label + Dim Label3 As System.Windows.Forms.Label + Dim Label4 As System.Windows.Forms.Label + Dim Label34 As System.Windows.Forms.Label + Dim Label35 As System.Windows.Forms.Label + Dim Label5 As System.Windows.Forms.Label + Dim Label6 As System.Windows.Forms.Label + Dim Label38 As System.Windows.Forms.Label + Dim Label8 As System.Windows.Forms.Label + Me.dv = New CEnergy.arindv() + Me.설명DataGridViewTextBoxColumn = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.bs = New System.Windows.Forms.BindingSource(Me.components) + Me.DS = New Eco2Ar.DS() + Me.bn_all = New System.Windows.Forms.BindingNavigator(Me.components) + Me.lbl_count = New System.Windows.Forms.ToolStripLabel() + Me.bt_add = New System.Windows.Forms.ToolStripButton() + Me.bt_Del = New System.Windows.Forms.ToolStripButton() + Me.bt_cancel = New System.Windows.Forms.ToolStripButton() + Me.ToolStripSeparator1 = New System.Windows.Forms.ToolStripSeparator() + Me.lbl_pos = New System.Windows.Forms.ToolStripLabel() + Me.TableLayoutPanel2 = New System.Windows.Forms.TableLayoutPanel() + Me.NTb1 = New Eco2Ar.MyTb() + Me.TableLayoutPanel33 = New System.Windows.Forms.TableLayoutPanel() + Me.tb_tm5 = New Eco2Ar.MyTb() + Me.tb_tm1 = New Eco2Ar.MyTb() + Me.tb_tm2 = New Eco2Ar.MyTb() + Me.tb_tm3 = New Eco2Ar.MyTb() + Me.tb_tm4 = New Eco2Ar.MyTb() + Me.tb_tm12 = New Eco2Ar.MyTb() + Me.tb_tm11 = New Eco2Ar.MyTb() + Me.tB_tm10 = New Eco2Ar.MyTb() + Me.tb_tm9 = New Eco2Ar.MyTb() + Me.tb_tm8 = New Eco2Ar.MyTb() + Me.tb_tm7 = New Eco2Ar.MyTb() + Me.tb_tm6 = New Eco2Ar.MyTb() + Me.Panel37 = New System.Windows.Forms.Panel() + Me.Label123 = New System.Windows.Forms.Label() + Me.tB_t22 = New Eco2Ar.MyTb() + Me.tb_t23 = New Eco2Ar.MyTb() + Me.tb_t24 = New Eco2Ar.MyTb() + Me.tb_t25 = New Eco2Ar.MyTb() + Me.Panel36 = New System.Windows.Forms.Panel() + Me.tb_t20 = New Eco2Ar.MyTb() + Me.Label106 = New System.Windows.Forms.Label() + Me.tb_t21 = New Eco2Ar.MyTb() + Me.Label7 = New System.Windows.Forms.Label() + Me.Panel33 = New System.Windows.Forms.Panel() + Me.tb_t2 = New Eco2Ar.MyTb() + Me.Label10 = New System.Windows.Forms.Label() + Me.tb_t3 = New Eco2Ar.MyTb() + Me.tb_t1 = New Eco2Ar.MyTb() + Me.Panel35 = New System.Windows.Forms.Panel() + Me.tb_t18 = New Eco2Ar.MyTb() + Me.Label97 = New System.Windows.Forms.Label() + Me.Panel1 = New System.Windows.Forms.Panel() + Me.SplitContainer1 = New System.Windows.Forms.SplitContainer() + Me.GroupBox5 = New System.Windows.Forms.GroupBox() + Me.Panel3 = New System.Windows.Forms.Panel() + Me.Label11 = New System.Windows.Forms.Label() + Me.tb_t7 = New Eco2Ar.MyTb() + Me.tb_t6 = New Eco2Ar.MyTb() + Me.tb_t5 = New Eco2Ar.MyTb() + Me.tb_t4 = New Eco2Ar.MyTb() + Me.Panel2 = New System.Windows.Forms.Panel() + Me.tb_일급탕요구량 = New Eco2Ar.MyTb() + Me.Label12 = New System.Windows.Forms.Label() + Me.PictureBox1 = New System.Windows.Forms.PictureBox() + Me.GroupBox3 = New System.Windows.Forms.GroupBox() + Me.PictureBox2 = New System.Windows.Forms.PictureBox() + Me.GroupBox2 = New System.Windows.Forms.GroupBox() + Me.PictureBox3 = New System.Windows.Forms.PictureBox() + Me.NTb2 = New Eco2Ar.MyTb() + Label43 = New System.Windows.Forms.Label() + Label44 = New System.Windows.Forms.Label() + Label55 = New System.Windows.Forms.Label() + Label58 = New System.Windows.Forms.Label() + Label59 = New System.Windows.Forms.Label() + Label60 = New System.Windows.Forms.Label() + Label56 = New System.Windows.Forms.Label() + Label57 = New System.Windows.Forms.Label() + Label37 = New System.Windows.Forms.Label() + Label108 = New System.Windows.Forms.Label() + Label112 = New System.Windows.Forms.Label() + Label111 = New System.Windows.Forms.Label() + Label110 = New System.Windows.Forms.Label() + Label27 = New System.Windows.Forms.Label() + Label28 = New System.Windows.Forms.Label() + Label1 = New System.Windows.Forms.Label() + Label30 = New System.Windows.Forms.Label() + Label2 = New System.Windows.Forms.Label() + Label3 = New System.Windows.Forms.Label() + Label4 = New System.Windows.Forms.Label() + Label34 = New System.Windows.Forms.Label() + Label35 = New System.Windows.Forms.Label() + Label5 = New System.Windows.Forms.Label() + Label6 = New System.Windows.Forms.Label() + Label38 = New System.Windows.Forms.Label() + Label8 = New System.Windows.Forms.Label() + CType(Me.dv, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.bs, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.DS, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.bn_all, System.ComponentModel.ISupportInitialize).BeginInit() + Me.bn_all.SuspendLayout() + Me.TableLayoutPanel2.SuspendLayout() + Me.TableLayoutPanel33.SuspendLayout() + Me.Panel37.SuspendLayout() + Me.Panel36.SuspendLayout() + Me.Panel33.SuspendLayout() + Me.Panel35.SuspendLayout() + Me.Panel1.SuspendLayout() + Me.SplitContainer1.Panel1.SuspendLayout() + Me.SplitContainer1.Panel2.SuspendLayout() + Me.SplitContainer1.SuspendLayout() + Me.GroupBox5.SuspendLayout() + Me.Panel3.SuspendLayout() + Me.Panel2.SuspendLayout() + CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit() + Me.GroupBox3.SuspendLayout() + CType(Me.PictureBox2, System.ComponentModel.ISupportInitialize).BeginInit() + Me.GroupBox2.SuspendLayout() + CType(Me.PictureBox3, System.ComponentModel.ISupportInitialize).BeginInit() + Me.SuspendLayout() + ' + 'Label43 + ' + Label43.AutoSize = True + Label43.BackColor = System.Drawing.Color.FromArgb(CType(CType(247, Byte), Integer), CType(CType(251, Byte), Integer), CType(CType(255, Byte), Integer)) + Label43.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label43.Location = New System.Drawing.Point(6, 30) + Label43.Name = "Label43" + Label43.Size = New System.Drawing.Size(29, 14) + Label43.TabIndex = 10 + Label43.Text = "사람" + ' + 'Label44 + ' + Label44.AutoSize = True + Label44.BackColor = System.Drawing.Color.FromArgb(CType(CType(247, Byte), Integer), CType(CType(251, Byte), Integer), CType(CType(255, Byte), Integer)) + Label44.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label44.Location = New System.Drawing.Point(6, 52) + Label44.Name = "Label44" + Label44.Size = New System.Drawing.Size(73, 14) + Label44.TabIndex = 8 + Label44.Text = "작업보조기기" + Label44.TextAlign = System.Drawing.ContentAlignment.MiddleCenter + ' + 'Label55 + ' + Label55.AutoSize = True + Label55.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label55.Location = New System.Drawing.Point(15, 24) + Label55.Name = "Label55" + Label55.Size = New System.Drawing.Size(51, 14) + Label55.TabIndex = 10 + Label55.Text = "시작시간" + Label55.TextAlign = System.Drawing.ContentAlignment.MiddleLeft + ' + 'Label58 + ' + Label58.AutoSize = True + Label58.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label58.Location = New System.Drawing.Point(15, 69) + Label58.Name = "Label58" + Label58.Size = New System.Drawing.Size(76, 14) + Label58.TabIndex = 10 + Label58.Text = "일일 사용기간" + Label58.TextAlign = System.Drawing.ContentAlignment.MiddleLeft + ' + 'Label59 + ' + Label59.AutoSize = True + Label59.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label59.Location = New System.Drawing.Point(15, 47) + Label59.Name = "Label59" + Label59.Size = New System.Drawing.Size(51, 14) + Label59.TabIndex = 8 + Label59.Text = "종료시간" + Label59.TextAlign = System.Drawing.ContentAlignment.MiddleLeft + ' + 'Label60 + ' + Label60.AutoSize = True + Label60.BackColor = System.Drawing.Color.Transparent + Label60.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label60.Location = New System.Drawing.Point(15, 71) + Label60.Name = "Label60" + Label60.Size = New System.Drawing.Size(101, 14) + Label60.TabIndex = 16 + Label60.Text = "일일 운전시간 난방" + ' + 'Label56 + ' + Label56.AutoSize = True + Label56.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label56.Location = New System.Drawing.Point(15, 49) + Label56.Name = "Label56" + Label56.Size = New System.Drawing.Size(76, 14) + Label56.TabIndex = 14 + Label56.Text = "운전 종료시간" + ' + 'Label57 + ' + Label57.AutoSize = True + Label57.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label57.Location = New System.Drawing.Point(15, 27) + Label57.Name = "Label57" + Label57.Size = New System.Drawing.Size(76, 14) + Label57.TabIndex = 12 + Label57.Text = "운전 시작시간" + ' + 'Label37 + ' + Label37.AutoSize = True + Label37.BackColor = System.Drawing.Color.FromArgb(CType(CType(247, Byte), Integer), CType(CType(251, Byte), Integer), CType(CType(255, Byte), Integer)) + Label37.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label37.Location = New System.Drawing.Point(3, 35) + Label37.Name = "Label37" + Label37.Size = New System.Drawing.Size(87, 14) + Label37.TabIndex = 10 + Label37.Text = "최소도입 외기량" + ' + 'Label108 + ' + Label108.AutoSize = True + Label108.BackColor = System.Drawing.Color.FromArgb(CType(CType(247, Byte), Integer), CType(CType(251, Byte), Integer), CType(CType(255, Byte), Integer)) + Label108.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label108.Location = New System.Drawing.Point(5, 26) + Label108.Name = "Label108" + Label108.Size = New System.Drawing.Size(73, 14) + Label108.TabIndex = 10 + Label108.Text = "난방설정온도" + ' + 'Label112 + ' + Label112.AutoSize = True + Label112.BackColor = System.Drawing.Color.FromArgb(CType(CType(247, Byte), Integer), CType(CType(251, Byte), Integer), CType(CType(255, Byte), Integer)) + Label112.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label112.Location = New System.Drawing.Point(5, 45) + Label112.Name = "Label112" + Label112.Size = New System.Drawing.Size(73, 14) + Label112.TabIndex = 8 + Label112.Text = "냉방설정온도" + ' + 'Label111 + ' + Label111.AutoSize = True + Label111.BackColor = System.Drawing.Color.FromArgb(CType(CType(247, Byte), Integer), CType(CType(251, Byte), Integer), CType(CType(255, Byte), Integer)) + Label111.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label111.Location = New System.Drawing.Point(5, 64) + Label111.Name = "Label111" + Label111.Size = New System.Drawing.Size(95, 28) + Label111.TabIndex = 10 + Label111.Text = "야간최저허용온도" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "(4→10)" + Label111.TextAlign = System.Drawing.ContentAlignment.MiddleCenter + ' + 'Label110 + ' + Label110.AutoSize = True + Label110.BackColor = System.Drawing.Color.FromArgb(CType(CType(247, Byte), Integer), CType(CType(251, Byte), Integer), CType(CType(255, Byte), Integer)) + Label110.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label110.Location = New System.Drawing.Point(5, 97) + Label110.Name = "Label110" + Label110.Size = New System.Drawing.Size(95, 28) + Label110.TabIndex = 12 + Label110.Text = "주말최저허용온도" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "(4→10)" + Label110.TextAlign = System.Drawing.ContentAlignment.MiddleCenter + ' + 'Label27 + ' + Label27.Anchor = System.Windows.Forms.AnchorStyles.None + Label27.AutoSize = True + Label27.Location = New System.Drawing.Point(266, 87) + Label27.Name = "Label27" + Label27.Size = New System.Drawing.Size(32, 14) + Label27.TabIndex = 30 + Label27.Text = "12월" + ' + 'Label28 + ' + Label28.Anchor = System.Windows.Forms.AnchorStyles.None + Label28.AutoSize = True + Label28.Location = New System.Drawing.Point(266, 60) + Label28.Name = "Label28" + Label28.Size = New System.Drawing.Size(32, 14) + Label28.TabIndex = 28 + Label28.Text = "11월" + ' + 'Label1 + ' + Label1.Anchor = System.Windows.Forms.AnchorStyles.None + Label1.AutoSize = True + Label1.Location = New System.Drawing.Point(266, 33) + Label1.Name = "Label1" + Label1.Size = New System.Drawing.Size(32, 14) + Label1.TabIndex = 26 + Label1.Text = "10월" + ' + 'Label30 + ' + Label30.Anchor = System.Windows.Forms.AnchorStyles.None + Label30.AutoSize = True + Label30.Location = New System.Drawing.Point(266, 6) + Label30.Name = "Label30" + Label30.Size = New System.Drawing.Size(32, 14) + Label30.TabIndex = 24 + Label30.Text = "09월" + ' + 'Label2 + ' + Label2.Anchor = System.Windows.Forms.AnchorStyles.None + Label2.AutoSize = True + Label2.Location = New System.Drawing.Point(133, 33) + Label2.Name = "Label2" + Label2.Size = New System.Drawing.Size(32, 14) + Label2.TabIndex = 18 + Label2.Text = "06월" + ' + 'Label3 + ' + Label3.Anchor = System.Windows.Forms.AnchorStyles.None + Label3.AutoSize = True + Label3.Location = New System.Drawing.Point(133, 87) + Label3.Name = "Label3" + Label3.Size = New System.Drawing.Size(32, 14) + Label3.TabIndex = 22 + Label3.Text = "08월" + ' + 'Label4 + ' + Label4.Anchor = System.Windows.Forms.AnchorStyles.None + Label4.AutoSize = True + Label4.Location = New System.Drawing.Point(133, 6) + Label4.Name = "Label4" + Label4.Size = New System.Drawing.Size(32, 14) + Label4.TabIndex = 16 + Label4.Text = "05월" + ' + 'Label34 + ' + Label34.Anchor = System.Windows.Forms.AnchorStyles.None + Label34.AutoSize = True + Label34.Location = New System.Drawing.Point(133, 60) + Label34.Name = "Label34" + Label34.Size = New System.Drawing.Size(32, 14) + Label34.TabIndex = 20 + Label34.Text = "07월" + ' + 'Label35 + ' + Label35.Anchor = System.Windows.Forms.AnchorStyles.None + Label35.AutoSize = True + Label35.Location = New System.Drawing.Point(3, 87) + Label35.Name = "Label35" + Label35.Size = New System.Drawing.Size(32, 14) + Label35.TabIndex = 14 + Label35.Text = "04월" + ' + 'Label5 + ' + Label5.Anchor = System.Windows.Forms.AnchorStyles.None + Label5.AutoSize = True + Label5.Location = New System.Drawing.Point(3, 6) + Label5.Name = "Label5" + Label5.Size = New System.Drawing.Size(32, 14) + Label5.TabIndex = 8 + Label5.Text = "01월" + ' + 'Label6 + ' + Label6.Anchor = System.Windows.Forms.AnchorStyles.None + Label6.AutoSize = True + Label6.Location = New System.Drawing.Point(3, 60) + Label6.Name = "Label6" + Label6.Size = New System.Drawing.Size(32, 14) + Label6.TabIndex = 12 + Label6.Text = "03월" + ' + 'Label38 + ' + Label38.Anchor = System.Windows.Forms.AnchorStyles.None + Label38.AutoSize = True + Label38.Location = New System.Drawing.Point(3, 33) + Label38.Name = "Label38" + Label38.Size = New System.Drawing.Size(32, 14) + Label38.TabIndex = 10 + Label38.Text = "02월" + ' + 'Label8 + ' + Label8.AutoSize = True + Label8.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label8.Location = New System.Drawing.Point(15, 96) + Label8.Name = "Label8" + Label8.Size = New System.Drawing.Size(73, 14) + Label8.TabIndex = 14 + Label8.Text = "일일운전시간" + ' + 'dv + ' + Me.dv.A_DelCurrentCell = True + Me.dv.A_EnterToTab = True + 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.FromArgb(CType(CType(245, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(246, Byte), Integer)) + Me.dv.ColumnHeadersHeight = 30 + Me.dv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.DisableResizing + Me.dv.Columns.AddRange(New System.Windows.Forms.DataGridViewColumn() {Me.설명DataGridViewTextBoxColumn}) + Me.dv.DataSource = Me.bs + Me.dv.Dock = System.Windows.Forms.DockStyle.Top + Me.dv.Location = New System.Drawing.Point(0, 0) + Me.dv.Margin = New System.Windows.Forms.Padding(3, 5, 3, 5) + 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, 489) + Me.dv.TabIndex = 0 + ' + '설명DataGridViewTextBoxColumn + ' + Me.설명DataGridViewTextBoxColumn.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.Fill + Me.설명DataGridViewTextBoxColumn.DataPropertyName = "설명" + Me.설명DataGridViewTextBoxColumn.HeaderText = "설명" + Me.설명DataGridViewTextBoxColumn.Name = "설명DataGridViewTextBoxColumn" + ' + 'bs + ' + Me.bs.DataMember = "tbl_profile" + Me.bs.DataSource = Me.DS + Me.bs.Filter = "code <> '0'" + ' + 'DS + ' + Me.DS.DataSetName = "DS" + Me.DS.SchemaSerializationMode = System.Data.SchemaSerializationMode.IncludeSchema + ' + 'bn_all + ' + Me.bn_all.AddNewItem = Nothing + Me.bn_all.AutoSize = False + Me.bn_all.BindingSource = Me.bs + Me.bn_all.CountItem = Me.lbl_count + Me.bn_all.DeleteItem = Nothing + Me.bn_all.Dock = System.Windows.Forms.DockStyle.Bottom + Me.bn_all.Font = New System.Drawing.Font("나눔고딕 ExtraBold", 8.999999!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.bn_all.ImageScalingSize = New System.Drawing.Size(20, 20) + Me.bn_all.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.bn_all.Location = New System.Drawing.Point(0, 492) + 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 = Me.lbl_pos + Me.bn_all.Size = New System.Drawing.Size(210, 42) + Me.bn_all.TabIndex = 1 + Me.bn_all.Text = "BindingNavigator1" + ' + 'lbl_count + ' + Me.lbl_count.Name = "lbl_count" + Me.lbl_count.Size = New System.Drawing.Size(27, 39) + 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, 39) + 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, 39) + 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, 39) + Me.bt_cancel.Text = "변경취소(&C)" + Me.bt_cancel.ToolTipText = "변경된 내용을 되돌립니다" + ' + 'ToolStripSeparator1 + ' + Me.ToolStripSeparator1.Name = "ToolStripSeparator1" + Me.ToolStripSeparator1.Size = New System.Drawing.Size(6, 42) + ' + 'lbl_pos + ' + Me.lbl_pos.Name = "lbl_pos" + Me.lbl_pos.Size = New System.Drawing.Size(14, 39) + Me.lbl_pos.Text = "0" + ' + 'TableLayoutPanel2 + ' + Me.TableLayoutPanel2.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _ + Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.TableLayoutPanel2.ColumnCount = 6 + Me.TableLayoutPanel2.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Absolute, 100.0!)) + Me.TableLayoutPanel2.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Percent, 31.11806!)) + Me.TableLayoutPanel2.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Absolute, 100.0!)) + Me.TableLayoutPanel2.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Percent, 31.11806!)) + Me.TableLayoutPanel2.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Absolute, 100.0!)) + Me.TableLayoutPanel2.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Percent, 37.76388!)) + Me.TableLayoutPanel2.Controls.Add(Me.NTb1, 1, 0) + Me.TableLayoutPanel2.Location = New System.Drawing.Point(0, 0) + Me.TableLayoutPanel2.Name = "TableLayoutPanel2" + Me.TableLayoutPanel2.RowCount = 1 + Me.TableLayoutPanel2.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Absolute, 20.0!)) + Me.TableLayoutPanel2.Size = New System.Drawing.Size(200, 100) + Me.TableLayoutPanel2.TabIndex = 0 + ' + 'NTb1 + ' + Me.NTb1.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.NTb1.Dock = System.Windows.Forms.DockStyle.Fill + Me.NTb1.Location = New System.Drawing.Point(103, 3) + Me.NTb1.Name = "NTb1" + Me.NTb1.NectControl = Nothing + Me.NTb1.Size = New System.Drawing.Size(1, 21) + Me.NTb1.TabIndex = 3 + Me.NTb1.TextAlign = System.Windows.Forms.HorizontalAlignment.Right + Me.NTb1.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + ' + 'TableLayoutPanel33 + ' + Me.TableLayoutPanel33.AutoSize = True + Me.TableLayoutPanel33.BackColor = System.Drawing.Color.FromArgb(CType(CType(241, Byte), Integer), CType(CType(248, Byte), Integer), CType(CType(254, Byte), Integer)) + Me.TableLayoutPanel33.ColumnCount = 6 + Me.TableLayoutPanel33.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle()) + Me.TableLayoutPanel33.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle()) + Me.TableLayoutPanel33.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle()) + Me.TableLayoutPanel33.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle()) + Me.TableLayoutPanel33.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle()) + Me.TableLayoutPanel33.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle()) + Me.TableLayoutPanel33.Controls.Add(Label2, 2, 1) + Me.TableLayoutPanel33.Controls.Add(Label35, 0, 3) + Me.TableLayoutPanel33.Controls.Add(Label5, 0, 0) + Me.TableLayoutPanel33.Controls.Add(Label6, 0, 2) + Me.TableLayoutPanel33.Controls.Add(Me.tb_tm5, 3, 0) + Me.TableLayoutPanel33.Controls.Add(Label38, 0, 1) + Me.TableLayoutPanel33.Controls.Add(Me.tb_tm1, 1, 0) + Me.TableLayoutPanel33.Controls.Add(Me.tb_tm2, 1, 1) + Me.TableLayoutPanel33.Controls.Add(Me.tb_tm3, 1, 2) + Me.TableLayoutPanel33.Controls.Add(Me.tb_tm4, 1, 3) + Me.TableLayoutPanel33.Controls.Add(Me.tb_tm12, 5, 3) + Me.TableLayoutPanel33.Controls.Add(Label27, 4, 3) + Me.TableLayoutPanel33.Controls.Add(Me.tb_tm11, 5, 2) + Me.TableLayoutPanel33.Controls.Add(Label28, 4, 2) + Me.TableLayoutPanel33.Controls.Add(Me.tB_tm10, 5, 1) + Me.TableLayoutPanel33.Controls.Add(Label1, 4, 1) + Me.TableLayoutPanel33.Controls.Add(Me.tb_tm9, 5, 0) + Me.TableLayoutPanel33.Controls.Add(Label30, 4, 0) + Me.TableLayoutPanel33.Controls.Add(Me.tb_tm8, 3, 3) + Me.TableLayoutPanel33.Controls.Add(Label3, 2, 3) + Me.TableLayoutPanel33.Controls.Add(Label34, 2, 2) + Me.TableLayoutPanel33.Controls.Add(Me.tb_tm7, 3, 2) + Me.TableLayoutPanel33.Controls.Add(Me.tb_tm6, 3, 1) + Me.TableLayoutPanel33.Controls.Add(Label4, 2, 0) + Me.TableLayoutPanel33.Location = New System.Drawing.Point(61, 40) + Me.TableLayoutPanel33.Name = "TableLayoutPanel33" + Me.TableLayoutPanel33.RowCount = 4 + Me.TableLayoutPanel33.RowStyles.Add(New System.Windows.Forms.RowStyle()) + Me.TableLayoutPanel33.RowStyles.Add(New System.Windows.Forms.RowStyle()) + Me.TableLayoutPanel33.RowStyles.Add(New System.Windows.Forms.RowStyle()) + Me.TableLayoutPanel33.RowStyles.Add(New System.Windows.Forms.RowStyle()) + Me.TableLayoutPanel33.Size = New System.Drawing.Size(401, 108) + Me.TableLayoutPanel33.TabIndex = 123 + ' + 'tb_tm5 + ' + Me.tb_tm5.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.tb_tm5.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bs, "day05", True)) + Me.tb_tm5.Location = New System.Drawing.Point(171, 3) + Me.tb_tm5.Name = "tb_tm5" + Me.tb_tm5.NectControl = Nothing + Me.tb_tm5.Size = New System.Drawing.Size(89, 21) + Me.tb_tm5.TabIndex = 4 + Me.tb_tm5.TextAlign = System.Windows.Forms.HorizontalAlignment.Right + Me.tb_tm5.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + ' + 'tb_tm1 + ' + Me.tb_tm1.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.tb_tm1.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bs, "day01", True)) + Me.tb_tm1.Location = New System.Drawing.Point(41, 3) + Me.tb_tm1.Name = "tb_tm1" + Me.tb_tm1.NectControl = Nothing + Me.tb_tm1.Size = New System.Drawing.Size(86, 21) + Me.tb_tm1.TabIndex = 0 + Me.tb_tm1.TextAlign = System.Windows.Forms.HorizontalAlignment.Right + Me.tb_tm1.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + ' + 'tb_tm2 + ' + Me.tb_tm2.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.tb_tm2.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bs, "day02", True)) + Me.tb_tm2.Location = New System.Drawing.Point(41, 30) + Me.tb_tm2.Name = "tb_tm2" + Me.tb_tm2.NectControl = Nothing + Me.tb_tm2.Size = New System.Drawing.Size(86, 21) + Me.tb_tm2.TabIndex = 1 + Me.tb_tm2.TextAlign = System.Windows.Forms.HorizontalAlignment.Right + Me.tb_tm2.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + ' + 'tb_tm3 + ' + Me.tb_tm3.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.tb_tm3.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bs, "day03", True)) + Me.tb_tm3.Location = New System.Drawing.Point(41, 57) + Me.tb_tm3.Name = "tb_tm3" + Me.tb_tm3.NectControl = Nothing + Me.tb_tm3.Size = New System.Drawing.Size(86, 21) + Me.tb_tm3.TabIndex = 2 + Me.tb_tm3.TextAlign = System.Windows.Forms.HorizontalAlignment.Right + Me.tb_tm3.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + ' + 'tb_tm4 + ' + Me.tb_tm4.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.tb_tm4.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bs, "day04", True)) + Me.tb_tm4.Location = New System.Drawing.Point(41, 84) + Me.tb_tm4.Name = "tb_tm4" + Me.tb_tm4.NectControl = Nothing + Me.tb_tm4.Size = New System.Drawing.Size(86, 21) + Me.tb_tm4.TabIndex = 3 + Me.tb_tm4.TextAlign = System.Windows.Forms.HorizontalAlignment.Right + Me.tb_tm4.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + ' + 'tb_tm12 + ' + Me.tb_tm12.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.tb_tm12.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bs, "day12", True)) + Me.tb_tm12.Location = New System.Drawing.Point(304, 84) + Me.tb_tm12.Name = "tb_tm12" + Me.tb_tm12.NectControl = Nothing + Me.tb_tm12.Size = New System.Drawing.Size(89, 21) + Me.tb_tm12.TabIndex = 11 + Me.tb_tm12.TextAlign = System.Windows.Forms.HorizontalAlignment.Right + Me.tb_tm12.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + ' + 'tb_tm11 + ' + Me.tb_tm11.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.tb_tm11.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bs, "day11", True)) + Me.tb_tm11.Location = New System.Drawing.Point(304, 57) + Me.tb_tm11.Name = "tb_tm11" + Me.tb_tm11.NectControl = Nothing + Me.tb_tm11.Size = New System.Drawing.Size(89, 21) + Me.tb_tm11.TabIndex = 10 + Me.tb_tm11.TextAlign = System.Windows.Forms.HorizontalAlignment.Right + Me.tb_tm11.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + ' + 'tB_tm10 + ' + Me.tB_tm10.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.tB_tm10.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bs, "day10", True)) + Me.tB_tm10.Location = New System.Drawing.Point(304, 30) + Me.tB_tm10.Name = "tB_tm10" + Me.tB_tm10.NectControl = Nothing + Me.tB_tm10.Size = New System.Drawing.Size(89, 21) + Me.tB_tm10.TabIndex = 9 + Me.tB_tm10.TextAlign = System.Windows.Forms.HorizontalAlignment.Right + Me.tB_tm10.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + ' + 'tb_tm9 + ' + Me.tb_tm9.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.tb_tm9.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bs, "day09", True)) + Me.tb_tm9.Location = New System.Drawing.Point(304, 3) + Me.tb_tm9.Name = "tb_tm9" + Me.tb_tm9.NectControl = Nothing + Me.tb_tm9.Size = New System.Drawing.Size(89, 21) + Me.tb_tm9.TabIndex = 8 + Me.tb_tm9.TextAlign = System.Windows.Forms.HorizontalAlignment.Right + Me.tb_tm9.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + ' + 'tb_tm8 + ' + Me.tb_tm8.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.tb_tm8.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bs, "day08", True)) + Me.tb_tm8.Location = New System.Drawing.Point(171, 84) + Me.tb_tm8.Name = "tb_tm8" + Me.tb_tm8.NectControl = Nothing + Me.tb_tm8.Size = New System.Drawing.Size(89, 21) + Me.tb_tm8.TabIndex = 7 + Me.tb_tm8.TextAlign = System.Windows.Forms.HorizontalAlignment.Right + Me.tb_tm8.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + ' + 'tb_tm7 + ' + Me.tb_tm7.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.tb_tm7.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bs, "day07", True)) + Me.tb_tm7.Location = New System.Drawing.Point(171, 57) + Me.tb_tm7.Name = "tb_tm7" + Me.tb_tm7.NectControl = Nothing + Me.tb_tm7.Size = New System.Drawing.Size(89, 21) + Me.tb_tm7.TabIndex = 6 + Me.tb_tm7.TextAlign = System.Windows.Forms.HorizontalAlignment.Right + Me.tb_tm7.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + ' + 'tb_tm6 + ' + Me.tb_tm6.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.tb_tm6.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bs, "day06", True)) + Me.tb_tm6.Location = New System.Drawing.Point(171, 30) + Me.tb_tm6.Name = "tb_tm6" + Me.tb_tm6.NectControl = Nothing + Me.tb_tm6.Size = New System.Drawing.Size(89, 21) + Me.tb_tm6.TabIndex = 5 + Me.tb_tm6.TextAlign = System.Windows.Forms.HorizontalAlignment.Right + Me.tb_tm6.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + ' + 'Panel37 + ' + Me.Panel37.BackColor = System.Drawing.Color.FromArgb(CType(CType(249, Byte), Integer), CType(CType(252, Byte), Integer), CType(CType(255, Byte), Integer)) + Me.Panel37.Controls.Add(Label108) + Me.Panel37.Controls.Add(Label112) + Me.Panel37.Controls.Add(Label111) + Me.Panel37.Controls.Add(Me.Label123) + Me.Panel37.Controls.Add(Label110) + Me.Panel37.Controls.Add(Me.tB_t22) + Me.Panel37.Controls.Add(Me.tb_t23) + Me.Panel37.Controls.Add(Me.tb_t24) + Me.Panel37.Controls.Add(Me.tb_t25) + Me.Panel37.Location = New System.Drawing.Point(21, 214) + Me.Panel37.Name = "Panel37" + Me.Panel37.Size = New System.Drawing.Size(213, 130) + Me.Panel37.TabIndex = 1 + ' + 'Label123 + ' + Me.Label123.AutoSize = True + Me.Label123.ForeColor = System.Drawing.Color.Black + Me.Label123.Location = New System.Drawing.Point(3, 5) + Me.Label123.Name = "Label123" + Me.Label123.Size = New System.Drawing.Size(81, 14) + Me.Label123.TabIndex = 74 + Me.Label123.Text = "[실내공기온도]" + ' + 'tB_t22 + ' + Me.tB_t22.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bs, "난방설정온도", True)) + Me.tB_t22.Location = New System.Drawing.Point(126, 25) + Me.tB_t22.Name = "tB_t22" + Me.tB_t22.NectControl = Nothing + Me.tB_t22.Size = New System.Drawing.Size(64, 21) + Me.tB_t22.TabIndex = 0 + Me.tB_t22.TextAlign = System.Windows.Forms.HorizontalAlignment.Right + Me.tB_t22.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + ' + 'tb_t23 + ' + Me.tb_t23.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bs, "냉방설정온도", True)) + Me.tb_t23.Location = New System.Drawing.Point(126, 49) + Me.tb_t23.Name = "tb_t23" + Me.tb_t23.NectControl = Nothing + Me.tb_t23.Size = New System.Drawing.Size(64, 21) + Me.tb_t23.TabIndex = 1 + Me.tb_t23.TextAlign = System.Windows.Forms.HorizontalAlignment.Right + Me.tb_t23.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + ' + 'tb_t24 + ' + Me.tb_t24.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bs, "야간최저허용온도", True)) + Me.tb_t24.Location = New System.Drawing.Point(126, 73) + Me.tb_t24.Name = "tb_t24" + Me.tb_t24.NectControl = Nothing + Me.tb_t24.Size = New System.Drawing.Size(64, 21) + Me.tb_t24.TabIndex = 2 + Me.tb_t24.TextAlign = System.Windows.Forms.HorizontalAlignment.Right + Me.tb_t24.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + ' + 'tb_t25 + ' + Me.tb_t25.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bs, "주말최저허용온도", True)) + Me.tb_t25.Location = New System.Drawing.Point(126, 97) + Me.tb_t25.Name = "tb_t25" + Me.tb_t25.NectControl = Nothing + Me.tb_t25.Size = New System.Drawing.Size(64, 21) + Me.tb_t25.TabIndex = 3 + Me.tb_t25.TextAlign = System.Windows.Forms.HorizontalAlignment.Right + Me.tb_t25.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + ' + 'Panel36 + ' + Me.Panel36.BackColor = System.Drawing.Color.FromArgb(CType(CType(247, Byte), Integer), CType(CType(251, Byte), Integer), CType(CType(255, Byte), Integer)) + Me.Panel36.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.Panel36.Controls.Add(Label43) + Me.Panel36.Controls.Add(Label44) + Me.Panel36.Controls.Add(Me.tb_t20) + Me.Panel36.Controls.Add(Me.Label106) + Me.Panel36.Controls.Add(Me.tb_t21) + Me.Panel36.Location = New System.Drawing.Point(21, 121) + Me.Panel36.Name = "Panel36" + Me.Panel36.Size = New System.Drawing.Size(213, 77) + Me.Panel36.TabIndex = 3 + ' + 'tb_t20 + ' + Me.tb_t20.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bs, "사람", True)) + Me.tb_t20.Location = New System.Drawing.Point(126, 23) + Me.tb_t20.Name = "tb_t20" + Me.tb_t20.NectControl = Nothing + Me.tb_t20.Size = New System.Drawing.Size(64, 21) + Me.tb_t20.TabIndex = 0 + Me.tb_t20.TextAlign = System.Windows.Forms.HorizontalAlignment.Right + Me.tb_t20.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + ' + 'Label106 + ' + Me.Label106.AutoSize = True + Me.Label106.ForeColor = System.Drawing.Color.Black + Me.Label106.Location = New System.Drawing.Point(3, 10) + Me.Label106.Name = "Label106" + Me.Label106.Size = New System.Drawing.Size(59, 14) + Me.Label106.TabIndex = 76 + Me.Label106.Text = "[열발열원]" + ' + 'tb_t21 + ' + Me.tb_t21.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bs, "작업보조기기", True)) + Me.tb_t21.Location = New System.Drawing.Point(126, 49) + Me.tb_t21.Name = "tb_t21" + Me.tb_t21.NectControl = Nothing + Me.tb_t21.Size = New System.Drawing.Size(64, 21) + Me.tb_t21.TabIndex = 1 + Me.tb_t21.TextAlign = System.Windows.Forms.HorizontalAlignment.Right + Me.tb_t21.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + ' + 'Label7 + ' + Me.Label7.AutoSize = True + Me.Label7.BackColor = System.Drawing.Color.FromArgb(CType(CType(243, Byte), Integer), CType(CType(244, Byte), Integer), CType(CType(246, Byte), Integer)) + Me.Label7.ForeColor = System.Drawing.Color.Black + Me.Label7.Location = New System.Drawing.Point(24, 14) + Me.Label7.Name = "Label7" + Me.Label7.Size = New System.Drawing.Size(81, 14) + Me.Label7.TabIndex = 74 + Me.Label7.Text = "[월간사용일수]" + ' + 'Panel33 + ' + Me.Panel33.BackColor = System.Drawing.Color.FromArgb(CType(CType(247, Byte), Integer), CType(CType(251, Byte), Integer), CType(CType(255, Byte), Integer)) + Me.Panel33.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.Panel33.Controls.Add(Label55) + Me.Panel33.Controls.Add(Label58) + Me.Panel33.Controls.Add(Me.tb_t2) + Me.Panel33.Controls.Add(Me.Label10) + Me.Panel33.Controls.Add(Label59) + Me.Panel33.Controls.Add(Me.tb_t3) + Me.Panel33.Controls.Add(Me.tb_t1) + Me.Panel33.Location = New System.Drawing.Point(20, 31) + Me.Panel33.Name = "Panel33" + Me.Panel33.Size = New System.Drawing.Size(213, 97) + Me.Panel33.TabIndex = 0 + ' + 'tb_t2 + ' + Me.tb_t2.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bs, "사용종료시간", True)) + Me.tb_t2.Location = New System.Drawing.Point(122, 44) + Me.tb_t2.Name = "tb_t2" + Me.tb_t2.NectControl = Nothing + Me.tb_t2.Size = New System.Drawing.Size(68, 21) + Me.tb_t2.TabIndex = 1 + Me.tb_t2.TextAlign = System.Windows.Forms.HorizontalAlignment.Right + Me.tb_t2.TextFormat = Eco2Ar.MyTb.ETFormat.TimeHHMM + ' + 'Label10 + ' + Me.Label10.AutoSize = True + Me.Label10.ForeColor = System.Drawing.Color.Black + Me.Label10.Location = New System.Drawing.Point(3, 2) + Me.Label10.Name = "Label10" + Me.Label10.Size = New System.Drawing.Size(59, 14) + Me.Label10.TabIndex = 74 + Me.Label10.Text = "[사용시간]" + ' + 'tb_t3 + ' + Me.tb_t3.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bs, "일일사용시간", True)) + Me.tb_t3.Location = New System.Drawing.Point(122, 68) + Me.tb_t3.Name = "tb_t3" + Me.tb_t3.NectControl = Nothing + Me.tb_t3.Size = New System.Drawing.Size(68, 21) + Me.tb_t3.TabIndex = 2 + Me.tb_t3.TextAlign = System.Windows.Forms.HorizontalAlignment.Right + Me.tb_t3.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + ' + 'tb_t1 + ' + Me.tb_t1.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bs, "사용시작시간", True)) + Me.tb_t1.Location = New System.Drawing.Point(122, 19) + Me.tb_t1.Name = "tb_t1" + Me.tb_t1.NectControl = Nothing + Me.tb_t1.Size = New System.Drawing.Size(68, 21) + Me.tb_t1.TabIndex = 0 + Me.tb_t1.TextAlign = System.Windows.Forms.HorizontalAlignment.Right + Me.tb_t1.TextFormat = Eco2Ar.MyTb.ETFormat.TimeHHMM + ' + 'Panel35 + ' + Me.Panel35.BackColor = System.Drawing.Color.FromArgb(CType(CType(247, Byte), Integer), CType(CType(251, Byte), Integer), CType(CType(255, Byte), Integer)) + Me.Panel35.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.Panel35.Controls.Add(Label37) + Me.Panel35.Controls.Add(Me.tb_t18) + Me.Panel35.Controls.Add(Me.Label97) + Me.Panel35.Location = New System.Drawing.Point(21, 31) + Me.Panel35.Name = "Panel35" + Me.Panel35.Size = New System.Drawing.Size(213, 74) + Me.Panel35.TabIndex = 2 + ' + 'tb_t18 + ' + Me.tb_t18.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bs, "최소도입외기량", True)) + Me.tb_t18.Location = New System.Drawing.Point(126, 32) + Me.tb_t18.Name = "tb_t18" + Me.tb_t18.NectControl = Nothing + Me.tb_t18.Size = New System.Drawing.Size(64, 21) + Me.tb_t18.TabIndex = 0 + Me.tb_t18.TextAlign = System.Windows.Forms.HorizontalAlignment.Right + Me.tb_t18.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + ' + 'Label97 + ' + Me.Label97.AutoSize = True + Me.Label97.ForeColor = System.Drawing.Color.Black + Me.Label97.Location = New System.Drawing.Point(3, 2) + Me.Label97.Name = "Label97" + Me.Label97.Size = New System.Drawing.Size(59, 14) + Me.Label97.TabIndex = 74 + Me.Label97.Text = "[실내기후]" + ' + 'Panel1 + ' + Me.Panel1.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.Panel1.Controls.Add(Me.SplitContainer1) + Me.Panel1.Dock = System.Windows.Forms.DockStyle.Fill + Me.Panel1.Location = New System.Drawing.Point(0, 0) + Me.Panel1.Name = "Panel1" + Me.Panel1.Size = New System.Drawing.Size(795, 565) + Me.Panel1.TabIndex = 3 + ' + 'SplitContainer1 + ' + 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.bn_all) + Me.SplitContainer1.Panel1.Controls.Add(Me.dv) + ' + 'SplitContainer1.Panel2 + ' + Me.SplitContainer1.Panel2.Controls.Add(Me.GroupBox5) + Me.SplitContainer1.Panel2.Controls.Add(Me.GroupBox3) + Me.SplitContainer1.Panel2.Controls.Add(Me.GroupBox2) + Me.SplitContainer1.Size = New System.Drawing.Size(794, 534) + Me.SplitContainer1.SplitterDistance = 210 + Me.SplitContainer1.TabIndex = 124 + ' + 'GroupBox5 + ' + Me.GroupBox5.Controls.Add(Me.Panel3) + Me.GroupBox5.Controls.Add(Me.Panel2) + Me.GroupBox5.Controls.Add(Me.Panel33) + Me.GroupBox5.Controls.Add(Me.PictureBox1) + Me.GroupBox5.Location = New System.Drawing.Point(22, 5) + Me.GroupBox5.Name = "GroupBox5" + Me.GroupBox5.Size = New System.Drawing.Size(255, 350) + Me.GroupBox5.TabIndex = 126 + Me.GroupBox5.TabStop = False + ' + 'Panel3 + ' + Me.Panel3.BackColor = System.Drawing.Color.FromArgb(CType(CType(247, Byte), Integer), CType(CType(251, Byte), Integer), CType(CType(255, Byte), Integer)) + Me.Panel3.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.Panel3.Controls.Add(Label60) + Me.Panel3.Controls.Add(Label57) + Me.Panel3.Controls.Add(Me.Label11) + Me.Panel3.Controls.Add(Label8) + Me.Panel3.Controls.Add(Label56) + Me.Panel3.Controls.Add(Me.tb_t7) + Me.Panel3.Controls.Add(Me.tb_t6) + Me.Panel3.Controls.Add(Me.tb_t5) + Me.Panel3.Controls.Add(Me.tb_t4) + Me.Panel3.Location = New System.Drawing.Point(20, 145) + Me.Panel3.Name = "Panel3" + Me.Panel3.Size = New System.Drawing.Size(213, 132) + Me.Panel3.TabIndex = 127 + ' + 'Label11 + ' + Me.Label11.AutoSize = True + Me.Label11.ForeColor = System.Drawing.Color.Black + Me.Label11.Location = New System.Drawing.Point(3, 5) + Me.Label11.Name = "Label11" + Me.Label11.Size = New System.Drawing.Size(59, 14) + Me.Label11.TabIndex = 74 + Me.Label11.Text = "[운전시간]" + ' + 'tb_t7 + ' + Me.tb_t7.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bs, "일일운전시간", True)) + Me.tb_t7.Location = New System.Drawing.Point(122, 93) + Me.tb_t7.Name = "tb_t7" + Me.tb_t7.NectControl = Nothing + Me.tb_t7.Size = New System.Drawing.Size(68, 21) + Me.tb_t7.TabIndex = 2 + Me.tb_t7.TextAlign = System.Windows.Forms.HorizontalAlignment.Right + Me.tb_t7.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + ' + 'tb_t6 + ' + Me.tb_t6.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bs, "운전시간난방", True)) + Me.tb_t6.Location = New System.Drawing.Point(122, 68) + Me.tb_t6.Name = "tb_t6" + Me.tb_t6.NectControl = Nothing + Me.tb_t6.Size = New System.Drawing.Size(68, 21) + Me.tb_t6.TabIndex = 2 + Me.tb_t6.TextAlign = System.Windows.Forms.HorizontalAlignment.Right + Me.tb_t6.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + ' + 'tb_t5 + ' + Me.tb_t5.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bs, "운전종료시간", True)) + Me.tb_t5.Location = New System.Drawing.Point(122, 44) + Me.tb_t5.Name = "tb_t5" + Me.tb_t5.NectControl = Nothing + Me.tb_t5.Size = New System.Drawing.Size(68, 21) + Me.tb_t5.TabIndex = 1 + Me.tb_t5.TextAlign = System.Windows.Forms.HorizontalAlignment.Right + Me.tb_t5.TextFormat = Eco2Ar.MyTb.ETFormat.TimeHHMM + ' + 'tb_t4 + ' + Me.tb_t4.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bs, "운전시작시간", True)) + Me.tb_t4.Location = New System.Drawing.Point(122, 20) + Me.tb_t4.Name = "tb_t4" + Me.tb_t4.NectControl = Nothing + Me.tb_t4.Size = New System.Drawing.Size(68, 21) + Me.tb_t4.TabIndex = 0 + Me.tb_t4.TextAlign = System.Windows.Forms.HorizontalAlignment.Right + Me.tb_t4.TextFormat = Eco2Ar.MyTb.ETFormat.TimeHHMM + ' + 'Panel2 + ' + Me.Panel2.BackColor = System.Drawing.Color.FromArgb(CType(CType(247, Byte), Integer), CType(CType(251, Byte), Integer), CType(CType(255, Byte), Integer)) + Me.Panel2.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.Panel2.Controls.Add(Me.tb_일급탕요구량) + Me.Panel2.Controls.Add(Me.Label12) + Me.Panel2.Location = New System.Drawing.Point(20, 283) + Me.Panel2.Name = "Panel2" + Me.Panel2.Size = New System.Drawing.Size(213, 46) + Me.Panel2.TabIndex = 1 + ' + 'tb_일급탕요구량 + ' + Me.tb_일급탕요구량.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bs, "일일급탕요구량", True)) + Me.tb_일급탕요구량.Location = New System.Drawing.Point(122, 11) + Me.tb_일급탕요구량.Name = "tb_일급탕요구량" + Me.tb_일급탕요구량.NectControl = Nothing + Me.tb_일급탕요구량.Size = New System.Drawing.Size(68, 21) + Me.tb_일급탕요구량.TabIndex = 11 + Me.tb_일급탕요구량.TextAlign = System.Windows.Forms.HorizontalAlignment.Right + Me.tb_일급탕요구량.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + ' + 'Label12 + ' + Me.Label12.AutoSize = True + Me.Label12.ForeColor = System.Drawing.Color.Black + Me.Label12.Location = New System.Drawing.Point(3, 12) + Me.Label12.Name = "Label12" + Me.Label12.Size = New System.Drawing.Size(92, 14) + Me.Label12.TabIndex = 74 + Me.Label12.Text = "[일일급탕요구량]" + ' + 'PictureBox1 + ' + 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(2, 9) + Me.PictureBox1.Name = "PictureBox1" + Me.PictureBox1.Size = New System.Drawing.Size(251, 337) + Me.PictureBox1.TabIndex = 128 + Me.PictureBox1.TabStop = False + ' + 'GroupBox3 + ' + Me.GroupBox3.Controls.Add(Me.Panel35) + Me.GroupBox3.Controls.Add(Me.Panel37) + Me.GroupBox3.Controls.Add(Me.Panel36) + Me.GroupBox3.Controls.Add(Me.PictureBox2) + Me.GroupBox3.Location = New System.Drawing.Point(293, 5) + Me.GroupBox3.Name = "GroupBox3" + Me.GroupBox3.Size = New System.Drawing.Size(255, 350) + Me.GroupBox3.TabIndex = 125 + Me.GroupBox3.TabStop = False + ' + 'PictureBox2 + ' + Me.PictureBox2.BackColor = System.Drawing.Color.FromArgb(CType(CType(219, Byte), Integer), CType(CType(221, Byte), Integer), CType(CType(223, Byte), Integer)) + Me.PictureBox2.Location = New System.Drawing.Point(1, 9) + Me.PictureBox2.Name = "PictureBox2" + Me.PictureBox2.Size = New System.Drawing.Size(252, 337) + Me.PictureBox2.TabIndex = 128 + Me.PictureBox2.TabStop = False + ' + 'GroupBox2 + ' + Me.GroupBox2.Controls.Add(Me.TableLayoutPanel33) + Me.GroupBox2.Controls.Add(Me.Label7) + Me.GroupBox2.Controls.Add(Me.PictureBox3) + Me.GroupBox2.Location = New System.Drawing.Point(22, 357) + Me.GroupBox2.Name = "GroupBox2" + Me.GroupBox2.Size = New System.Drawing.Size(526, 169) + Me.GroupBox2.TabIndex = 124 + Me.GroupBox2.TabStop = False + ' + 'PictureBox3 + ' + Me.PictureBox3.BackColor = System.Drawing.Color.FromArgb(CType(CType(243, Byte), Integer), CType(CType(244, Byte), Integer), CType(CType(246, Byte), Integer)) + Me.PictureBox3.Location = New System.Drawing.Point(2, 9) + Me.PictureBox3.Name = "PictureBox3" + Me.PictureBox3.Size = New System.Drawing.Size(522, 158) + Me.PictureBox3.TabIndex = 124 + Me.PictureBox3.TabStop = False + ' + 'NTb2 + ' + Me.NTb2.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.NTb2.Dock = System.Windows.Forms.DockStyle.Fill + Me.NTb2.Location = New System.Drawing.Point(175, 11) + Me.NTb2.Name = "NTb2" + Me.NTb2.NectControl = Nothing + Me.NTb2.Size = New System.Drawing.Size(1, 21) + Me.NTb2.TabIndex = 29 + Me.NTb2.TextAlign = System.Windows.Forms.HorizontalAlignment.Right + Me.NTb2.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + ' + 'Frm_V20091231_Profile + ' + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.None + Me.BackColor = System.Drawing.Color.White + Me.ClientSize = New System.Drawing.Size(795, 565) + Me.ControlBox = False + Me.Controls.Add(Me.Panel1) + Me.Font = New System.Drawing.Font("나눔고딕 ExtraBold", 8.999999!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.KeyPreview = True + Me.Name = "Frm_V20091231_Profile" + Me.ShowIcon = False + Me.ShowInTaskbar = False + Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen + Me.Text = "설정프로필" + CType(Me.dv, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.bs, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.DS, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.bn_all, System.ComponentModel.ISupportInitialize).EndInit() + Me.bn_all.ResumeLayout(False) + Me.bn_all.PerformLayout() + Me.TableLayoutPanel2.ResumeLayout(False) + Me.TableLayoutPanel2.PerformLayout() + Me.TableLayoutPanel33.ResumeLayout(False) + Me.TableLayoutPanel33.PerformLayout() + Me.Panel37.ResumeLayout(False) + Me.Panel37.PerformLayout() + Me.Panel36.ResumeLayout(False) + Me.Panel36.PerformLayout() + Me.Panel33.ResumeLayout(False) + Me.Panel33.PerformLayout() + Me.Panel35.ResumeLayout(False) + Me.Panel35.PerformLayout() + Me.Panel1.ResumeLayout(False) + Me.SplitContainer1.Panel1.ResumeLayout(False) + Me.SplitContainer1.Panel2.ResumeLayout(False) + Me.SplitContainer1.ResumeLayout(False) + Me.GroupBox5.ResumeLayout(False) + Me.Panel3.ResumeLayout(False) + Me.Panel3.PerformLayout() + Me.Panel2.ResumeLayout(False) + Me.Panel2.PerformLayout() + CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).EndInit() + Me.GroupBox3.ResumeLayout(False) + CType(Me.PictureBox2, System.ComponentModel.ISupportInitialize).EndInit() + Me.GroupBox2.ResumeLayout(False) + Me.GroupBox2.PerformLayout() + CType(Me.PictureBox3, System.ComponentModel.ISupportInitialize).EndInit() + Me.ResumeLayout(False) + + End Sub + Friend WithEvents bn_all As System.Windows.Forms.BindingNavigator + Friend WithEvents bt_add As System.Windows.Forms.ToolStripButton + Friend WithEvents bt_Del As System.Windows.Forms.ToolStripButton + Friend WithEvents bt_cancel As System.Windows.Forms.ToolStripButton + Friend WithEvents dv As CEnergy.arindv + Public WithEvents DS As Eco2Ar.DS + Friend WithEvents bs As System.Windows.Forms.BindingSource + Friend WithEvents NTb2 As MyTb + Friend WithEvents NTb1 As MyTb + Friend WithEvents TableLayoutPanel2 As System.Windows.Forms.TableLayoutPanel + Friend WithEvents tb_t6 As MyTb + Friend WithEvents tb_t5 As MyTb + Friend WithEvents tb_t4 As MyTb + Friend WithEvents tb_t3 As MyTb + Friend WithEvents tb_t2 As MyTb + Friend WithEvents tb_t1 As MyTb + Friend WithEvents tb_t25 As MyTb + Friend WithEvents tb_t24 As MyTb + Friend WithEvents tb_t23 As MyTb + Friend WithEvents tB_t22 As MyTb + Friend WithEvents tb_t21 As MyTb + Friend WithEvents tb_t20 As MyTb + Friend WithEvents tb_t18 As MyTb + Friend WithEvents Panel36 As System.Windows.Forms.Panel + Friend WithEvents Panel33 As System.Windows.Forms.Panel + Friend WithEvents Label106 As System.Windows.Forms.Label + Friend WithEvents Panel35 As System.Windows.Forms.Panel + Friend WithEvents Label97 As System.Windows.Forms.Label + Friend WithEvents Panel37 As System.Windows.Forms.Panel + Friend WithEvents Label123 As System.Windows.Forms.Label + Friend WithEvents ToolStripSeparator1 As System.Windows.Forms.ToolStripSeparator + Friend WithEvents TableLayoutPanel33 As System.Windows.Forms.TableLayoutPanel + Friend WithEvents tb_tm12 As MyTb + Friend WithEvents tb_tm11 As MyTb + Friend WithEvents tB_tm10 As MyTb + Friend WithEvents tb_tm9 As MyTb + Friend WithEvents tb_tm1 As MyTb + Friend WithEvents tb_tm8 As MyTb + Friend WithEvents tb_tm2 As MyTb + Friend WithEvents tb_tm3 As MyTb + Friend WithEvents tb_tm4 As MyTb + Friend WithEvents tb_tm7 As MyTb + Friend WithEvents tb_tm5 As MyTb + Friend WithEvents tb_tm6 As MyTb + Friend WithEvents Label7 As System.Windows.Forms.Label + Friend WithEvents tb_일급탕요구량 As Eco2Ar.MyTb + Friend WithEvents Panel1 As System.Windows.Forms.Panel + Friend WithEvents SplitContainer1 As System.Windows.Forms.SplitContainer + Friend WithEvents lbl_pos As System.Windows.Forms.ToolStripLabel + Friend WithEvents lbl_count As System.Windows.Forms.ToolStripLabel + Friend WithEvents GroupBox5 As System.Windows.Forms.GroupBox + Friend WithEvents Panel2 As System.Windows.Forms.Panel + Friend WithEvents GroupBox3 As System.Windows.Forms.GroupBox + Friend WithEvents GroupBox2 As System.Windows.Forms.GroupBox + Friend WithEvents Panel3 As System.Windows.Forms.Panel + Friend WithEvents Label12 As System.Windows.Forms.Label + Friend WithEvents Label11 As System.Windows.Forms.Label + Friend WithEvents Label10 As System.Windows.Forms.Label + Friend WithEvents PictureBox1 As System.Windows.Forms.PictureBox + Friend WithEvents PictureBox2 As System.Windows.Forms.PictureBox + Friend WithEvents PictureBox3 As System.Windows.Forms.PictureBox + Friend WithEvents 설명DataGridViewTextBoxColumn As System.Windows.Forms.DataGridViewTextBoxColumn + Friend WithEvents tb_t7 As Eco2Ar.MyTb +End Class diff --git a/ArinWarev1/Forms/v20091231/Frm_v20091231_profile.resx b/ArinWarev1/Forms/v20091231/Frm_v20091231_profile.resx new file mode 100644 index 0000000..c6b4de8 --- /dev/null +++ b/ArinWarev1/Forms/v20091231/Frm_v20091231_profile.resx @@ -0,0 +1,210 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=2.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 + + + False + + + False + + + False + + + False + + + False + + + False + + + 222, 17 + + + 370, 17 + + + 286, 17 + + + 40 + + \ No newline at end of file diff --git a/ArinWarev1/Forms/v20091231/Frm_v20091231_profile.vb b/ArinWarev1/Forms/v20091231/Frm_v20091231_profile.vb new file mode 100644 index 0000000..e0f8523 --- /dev/null +++ b/ArinWarev1/Forms/v20091231/Frm_v20091231_profile.vb @@ -0,0 +1,385 @@ +Public Class Frm_V20091231_Profile + Dim Init As Boolean = False + Dim SrcDrv As DataRowView + +#Region "data Base 변경여부및 적용방법" + + '''변경된내용을적용한다. + Public Overrides Function AcceptChanged() As Boolean + bs.EndEdit() + Dim BaseDS As DataSet = CType(bs.DataSource, DataSet) + Dim BaseDT As DataTable = BaseDS.Tables(bs.DataMember) + BaseDT.AcceptChanges() + Return True + End Function + + '''변경된내용이있다면 취소한다. + Public Overrides Function RejectChanged() As Boolean + Dim BaseDS As DataSet = CType(bs.DataSource, DataSet) + Dim BaseDT As DataTable = BaseDS.Tables(bs.DataMember) + BaseDT.RejectChanges() + Return True + End Function + + '''데이터에변형이있었는가? + Public Overrides Function HasChanged() As Boolean + bs.EndEdit() + Dim BaseDS As DataSet = CType(bs.DataSource, DataSet) + Dim BaseDT As DataTable = BaseDS.Tables(bs.DataMember) + Dim ChangeDT As DataTable = BaseDT.GetChanges + If Not ChangeDT Is Nothing Then Return True + Return False + End Function + + '''기본데이터테이블을 반환합니다. + Public Function DT() As DataTable + Dim BaseDS As DataSet = CType(bs.DataSource, DataSet) + Return BaseDS.Tables(bs.DataMember) + End Function + + +#End Region + + + + Private Sub MdiMain_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load + 'MdiMain.Toggle_Menu_Color(MdiMain.E_MenuIdx.설정프로필) + 'CEnergy.ARINCLASS.SaveLoad_FrmSetting(Me) + '//공유데이터셋에 연결한다. + Me.bs.DataSource = DSET + + AddHandler DSET.tbl_profile.TableNewRow, AddressOf AddNewDataRow_Profile + + '//모든컨트롤의 cTrl_enter 를 추가합니다 + BindProperty(CType(Me.SplitContainer1.Panel2.Controls, Control.ControlCollection)) + Me.Init = True + + Try + Me.bs.Position = CEnergy.ARINCLASS.Read_LastPos_Frm(Me) + Catch ex As Exception + Me.bs.MoveFirst() + End Try + + If Prj.UserAuthType = "ADMIN" OrElse Prj.UserAuthType = "BOTH2" Then '//2010.11.22 추가 + Me.SplitContainer1.Panel2.Enabled = True + Me.bn_all.Visible = True + Else + Me.SplitContainer1.Panel2.Enabled = False + Me.bn_all.Visible = False + End If + + End Sub + +#Region "Control_Enter" + Private Sub BindProperty(ByVal Ctl As Control.ControlCollection) + For Each C As Control In Ctl + If C.Controls.Count > 1 Then + BindProperty(C.Controls) + Else + If C.GetType.ToString.ToUpper.IndexOf("MYTB") <> -1 Then + AddHandler CType(C, MyTb).KeyDown, AddressOf TextBOx_KeyDown + ElseIf C.GetType.ToString.ToUpper.IndexOf("MYCMB") <> -1 Then + AddHandler CType(C, MyCmb).KeyDown, AddressOf Cmd_KeyDown + End If + End If + Next + End Sub + + + Private Sub TextBOx_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) + If e.KeyCode = Keys.Enter AndAlso e.Control Then + Try + Dim Field As String = (CType(sender, MyTb).DataBindings.Item("text").BindingMemberInfo.BindingField) + For Each Dr As DataRow In DT.Select(Me.bs.Filter, "") + Dr(Field) = CType(sender, MyTb).Text + Next + Work_msg_timer("모든값이 변경되었습니다", 25) + Catch ex As Exception + + End Try + + End If + End Sub + Private Sub Cmd_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) + If e.KeyCode = Keys.Enter AndAlso e.Control Then + Try + Dim Field As String = (CType(sender, MyCmb).DataBindings.Item("selectedvalue").BindingMemberInfo.BindingField) + For Each Dr As DataRow In DT.Select(Me.bs.Filter, "") + Dr(Field) = CType(sender, MyCmb).SelectedValue + Next + Work_msg_timer("모든값이 변경되었습니다", 25) + Catch ex As Exception + + End Try + End If + End Sub +#End Region + +#Region "기본" + + Private Sub MdiMain_FormClosed(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosedEventArgs) Handles Me.FormClosed + CEnergy.ARINCLASS.SaveLoad_FrmSetting(Me, Me.bs.Position, True) + End Sub + + Private Sub AddNewDataRow_Profile(ByVal sender As Object, ByVal e As System.Data.DataTableNewRowEventArgs) + e.Row.Item("code") = GetMaxCode(DSET.tbl_profile) + End Sub + Private Function GetMaxCode(ByVal dt As DataTable) As String + Try + Dim Dr As DataRow = dt.Select("", "code desc")(0) + Return Format(CInt(Dr("code")) + 1, "0000") + Catch ex As Exception + Return "0001" + End Try + End Function + Private Sub ToolStripButton48_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt_add.Click + If Not EndEdit(Me.bs) Then Return + Me.bs.AddNew() + INitRow(Me.Controls) + End Sub + + + Private Sub ToolStripButton49_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt_Del.Click + Dbbase.DelCrow(Me.bs, True) + End Sub + + Private Sub ToolStripButton51_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt_cancel.Click + If Not EndEdit(Me.bs) Then Return + Data_Cancel(DSET.tbl_profile, Nothing) + 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 + If Me.bs.Position < Me.bs.Count Then Me.bs.Position += 1 + Else + If Me.bs.Position > 0 Then Me.bs.Position -= 1 + End If + Me.Validate() + My.Application.DoEvents() + End Sub +#End Region + + + Private Sub 사용시작시간NTb_GotFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles tb_t1.GotFocus + CType(sender, TextBox).SelectAll() + End Sub + + Private Sub tb_t1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles tb_t1.KeyDown + If Prj.UserAuthType = "ADMIN" OrElse Prj.UserAuthType = "BOTH" OrElse Prj.UserAuthType = "BOTH2" OrElse Prj.UserAuthType = "BOTH1" Then '//2011.03.08 추가 + If e.KeyCode = Keys.V And e.Control Then + + e.Handled = True + e.SuppressKeyPress = True + '//클립보드붙여넣기 + Dim CB() As String = My.Computer.Clipboard.GetText.Split(CChar(vbCrLf)) + If CB.GetUpperBound(0) <> 59 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() '//한줄추가 + + Dim Cnt As Short = 0 + For i As Integer = 0 To CB.GetUpperBound(0) + Select Case i + Case 0 + CType(Me.bs.Current, DataRowView)("설명") = CB(i).Split(CChar(vbTab))(ii).Trim + Case 0 + 1 + Me.tb_일급탕요구량.Text = CB(i).Split(CChar(vbTab))(ii).Trim + Case 1 + 1 '//공란 + Case 2 + 1 '//면적 + Me.tb_t1.Text = CB(i).Split(CChar(vbTab))(ii).Trim + Case 3 + 1 + Me.tb_t2.Text = CB(i).Split(CChar(vbTab))(ii).Trim + Case 4 + 1 + Me.tb_t3.Text = CB(i).Split(CChar(vbTab))(ii).Trim + Case 5 + 1 + Me.tb_t4.Text = CB(i).Split(CChar(vbTab))(ii).Trim + Case 6 + 1 + Me.tb_t5.Text = CB(i).Split(CChar(vbTab))(ii).Trim + Case 7 + 1 + Me.tb_t6.Text = CB(i).Split(CChar(vbTab))(ii).Trim + Case 8 + 1 + ' Me.tb_t7.Text = CB(i).Trim + Case 9 + ' Me.tb_t8.Text = CB(i).Trim + Case 10 + ' Me.tb_t9.Text = CB(i).Trim + Case 11 + ' Me.tb_t10.Text = CB(i).Trim + Case 12 + ' Me.tb_공냉난시간.Text = CB(i).Trim + + Case 13 + 1 + Case 14 + 1 + + Case 15 '//요구조도 + ' Me.tb_t12.Text = CB(i).Trim + Case 16 + 'Me.tb_t13.Text = CB(i).Trim + Case 17 + 'Me.tb_t14.Text = CB(i).Trim + Case 18 + 'Me.tb_t15.Text = CB(i).Trim + Case 19 + 'Me.tb_t16.Text = CB(i).Trim + Case 20 '//부분운전계수 + 'Me.tb_t17.Text = CB(i).Trim + + Case 21 + Case 22 + + Case 23 + 1 '//최소도입외기량 + Me.tb_t18.Text = CB(i).Split(CChar(vbTab))(ii).Trim + Case 24 + ' Me.tb_t19.Text = CB(i).Trim + + Case 25 + Case 26 + + Case 27 + 1 + Me.tb_t20.Text = CB(i).Split(CChar(vbTab))(ii).Trim + Case 28 + 1 '//작업보조기기 + Me.tb_t21.Text = CB(i).Split(CChar(vbTab))(ii).Trim + + Case 29 + Case 30 + + Case 31 + 1 '//실내공기온도 + 'Me.TabControl11.SelectedIndex = 1 + Me.tB_t22.Text = CB(i).Split(CChar(vbTab))(ii).Trim + Case 32 + 1 + Me.tb_t23.Text = CB(i).Split(CChar(vbTab))(ii).Trim + Case 33 + 1 + Me.tb_t24.Text = CB(i).Split(CChar(vbTab))(ii).Trim + Case 34 + 1 + Me.tb_t25.Text = CB(i).Split(CChar(vbTab))(ii).Trim + Case 35 + 1 + ' Me.tb_t26.Text = CB(i).Trim + Case 36 '//최소설정온도 냉방 + 'Me.tb_t27.Text = CB(i).Trim + + Case 37 + Case 38 + + Case 39 + ' Me.tb_t28.Text = CB(i).Trim + Case 40 + 'Me.tb_t29.Text = CB(i).Trim + Case 41 + ' Me.tb_t30.Text = CB(i).Trim + Case 42 + ' Me.tb_t31.Text = CB(i).Trim + Case 43 + ' Me.tb_t32.Text = CB(i).Trim + + Case 44 + Case 45 + Case 46 + + Case 40 + 7 + 1 + Me.tb_tm1.Text = CB(i).Split(CChar(vbTab))(ii).Trim + Case 41 + 7 + 1 + Me.tb_tm2.Text = CB(i).Split(CChar(vbTab))(ii).Trim + Case 42 + 7 + 1 + Me.tb_tm3.Text = CB(i).Split(CChar(vbTab))(ii).Trim + Case 43 + 7 + 1 + Me.tb_tm4.Text = CB(i).Split(CChar(vbTab))(ii).Trim + Case 44 + 7 + 1 + Me.tb_tm5.Text = CB(i).Split(CChar(vbTab))(ii).Trim + Case 45 + 7 + 1 + Me.tb_tm6.Text = CB(i).Split(CChar(vbTab))(ii).Trim + Case 46 + 7 + 1 + Me.tb_tm7.Text = CB(i).Split(CChar(vbTab))(ii).Trim + Case 47 + 7 + 1 + Me.tb_tm8.Text = CB(i).Split(CChar(vbTab))(ii).Trim + Case 48 + 7 + 1 + Me.tb_tm9.Text = CB(i).Split(CChar(vbTab))(ii).Trim + Case 49 + 7 + 1 + Me.tB_tm10.Text = CB(i).Split(CChar(vbTab))(ii).Trim + Case 50 + 7 + 1 + Me.tb_tm11.Text = CB(i).Split(CChar(vbTab))(ii).Trim + Case 51 + 7 + 1 + Me.tb_tm12.Text = CB(i).Split(CChar(vbTab))(ii).Trim + End Select + Next + If bs.Position < bs.Count Then bs.Position += 1 '//위치이동 + Next + Me.bs.EndEdit() + End If + End If + End Sub + + + Private Sub bt_Del_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles bt_Del.MouseDown + If Prj.UserAuthType = "ADMIN" OrElse Prj.UserAuthType = "BOTH" OrElse Prj.UserAuthType = "BOTH2" OrElse Prj.UserAuthType = "BOTH1" Then '//2011.03.08 추가 + If e.Button = Windows.Forms.MouseButtons.Right Then + If MsgBox("전체삭제를 하시겠습니까?", MsgBoxStyle.Information Or MsgBoxStyle.OkCancel, "확인") = MsgBoxResult.Ok Then + Dim dR() As DataRow = DSET.tbl_profile.Select(Me.bs.Filter, "") + For i As Integer = dR.GetUpperBound(0) To 0 Step -1 + dR(i).Delete() + Next + DSET.tbl_profile.AcceptChanges() + End If + End If + End If + End Sub + + + Private Sub dv_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles dv.MouseUp + If Prj.UserAuthType = "ADMIN" OrElse Prj.UserAuthType = "BOTH" OrElse Prj.UserAuthType = "BOTH2" OrElse Prj.UserAuthType = "BOTH1" Then '//2011.03.08 추가 + If e.Button = Windows.Forms.MouseButtons.Right Then + Dim Frm_FilterA As New Frm_Filter + Frm_FilterA.ColumTitle = getColCaption(Me.DT) + Frm_FilterA.ColumList = getColName(Me.DT) + Frm_FilterA.Colorlist = "" + If Frm_FilterA.ShowDialog <> Windows.Forms.DialogResult.OK Then Return '//창떳을떄 확인아ㅣ고 취소눌르면 다음을 수행하지않는다는거에요. + Dim Filter As String = Frm_FilterA.tb_filter.Text '//값은 아까 그 텍박에 잇구요. + Try + Me.bs.Filter = Filter + Catch ex As Exception + Me.bs.Filter = "" + End Try + End If + End If + End Sub + Private Sub dv_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles dv.KeyDown + '//여기보시면 alt+d 누르면 한줄을 경고없이(falsE)삭제하도록 햇어요.. 사실원래 밋alt +d 인데.. ㅎㅎ 잘못해서 ctrl 됫다는 + If Prj.UserAuthType = "ADMIN" OrElse Prj.UserAuthType = "BOTH" OrElse Prj.UserAuthType = "BOTH2" OrElse Prj.UserAuthType = "BOTH1" Then '//2011.03.08 추가 + Select Case e.KeyCode + Case Keys.D + If e.Alt Then + Dbbase.DelCrow(Me.bs, False) + End If + Case Keys.C + If e.Control Then + Me.SrcDrv = Me.bs.Current + If Me.SrcDrv Is Nothing Then + MsgBox("저장할 ROW가 없습니다", MsgBoxStyle.Information, "확인") + Return + End If + ' My.Computer.Clipboard.SetData("ZDATA", Drv) + End If + Case Keys.V + If e.Control Then + If Me.SrcDrv Is Nothing Then Return + Me.bt_add.PerformClick() '//신규추가 + Dim NewDrv As DataRowView = Me.bs.Current + + For Each C As DataColumn In Me.DT.Columns + If C.ColumnName.ToUpper = "CODE" Then + ElseIf C.ColumnName.ToUpper = "설명" Then + NewDrv(C.ColumnName) = SrcDrv(C.ColumnName) & "#1" + Else + NewDrv(C.ColumnName) = SrcDrv(C.ColumnName) + End If + Next + Me.bs.EndEdit() + bs.MoveLast() + End If + End Select + End If + End Sub + + +End Class diff --git a/ArinWarev1/Forms/v20091231/ReadMe.txt b/ArinWarev1/Forms/v20091231/ReadMe.txt new file mode 100644 index 0000000..1cea01a --- /dev/null +++ b/ArinWarev1/Forms/v20091231/ReadMe.txt @@ -0,0 +1,4 @@ +⺻(20091231) Դϴ + ÿ ش +α׷ũ ش ° ؾմϴ +α׷ũ Select case ǾǷ case ϼϸ˴ϴ. \ No newline at end of file diff --git a/ArinWarev1/Forms/v20091231/Report_result.rdlc b/ArinWarev1/Forms/v20091231/Report_result.rdlc new file mode 100644 index 0000000..f7c7349 --- /dev/null +++ b/ArinWarev1/Forms/v20091231/Report_result.rdlc @@ -0,0 +1,573 @@ + + + + + 86b9a4cd-3b18-499f-bc7b-ae4126af8be2 + + SQL + Data Source=ms0501.gabiadb.com;Initial Catalog=eco2;Persist Security Info=True;User ID=raytrace;Password=arin + + + + 29.7cm + true + 21cm + 0.25cm + true + 1cm + 1cm + 1.5cm + 5ec02dd0-720b-446d-9ac5-21bd03e4b31f + 21cm + + + + + Gubun + System.String + + + Mon + System.String + + + Req + System.Single + + + + DummyDataSource + + true + + + DSR + Graph_Req + + + + + + Gubun + System.String + + + type + System.String + + + Req + System.Single + + + + DummyDataSource + + true + + + DSR + Graph_ReqUse + + + + + 19cm + + 1cm + + + + + 2.2cm + + + 2 + DSR_Graph_ReqUse + + + 2.53968cm + + + + =Fields!Gubun.Value + + + + + =Fields!Gubun.Value + Descending + + + + + Gubun + + true + =Fields!Gubun.Value + + + + + + 19cm + + + 0.63492cm + + + + =Fields!type.Value + + + + + type + + true + =Fields!type.Value + + + + + + 4.73968cm + + + + textbox1 + + true + + + + + + + + 0.63492cm + + + + + Req + + true + =Sum(Fields!Req.Value) + + + + + + + 1.26984cm + 0.5cm + + + + true + + TopRight + Row + + + + + <Style /> + <Position>Near</Position> + + + + + + + + + Outside + true + true + + + 1 + DSR_Graph_ReqUse + + + + + true + Orthographic + Real + Cylinder + + 0 + + + + + + =Fields!type.Value + + + + =Fields!type.Value + NotEqual + + 합계 + + + + + + + + + 9.5cm + Stacked + + + + <Style /> + + + + + true + + + Outside + 100 + 50 + true + true + true + + + Bar + 18.25cm + + + + + + =Fields!Gubun.Value + + + + + + + Pastel + + + + + + + =Sum(Fields!Req.Value) + + + + + =Fields!Req.Value + Top + + + + 6pt + + + + + + + + <Caption>연간 에너지 요구량 및 소요량[kWh/㎡]</Caption> + <Style> + <FontFamily>나눔고딕</FontFamily> + </Style> + + 9cm + 0.25cm + + + + + BottomCenter + Row + + + + + <MajorGridLines> + <Style> + <BorderStyle> + <Default>Solid</Default> + </BorderStyle> + </Style> + </MajorGridLines> + <MinorGridLines> + <Style> + <BorderStyle> + <Default>Solid</Default> + </BorderStyle> + </Style> + </MinorGridLines> + <MajorTickMarks>Outside</MajorTickMarks> + <Min>0</Min> + <Margin>true</Margin> + <Visible>true</Visible> + </Axis> + </CategoryAxis> + <DataSetName>DSR_Graph_Req</DataSetName> + <PlotArea> + <Style> + <BackgroundColor>White</BackgroundColor> + <BackgroundGradientType>LeftRight</BackgroundGradientType> + <BorderColor> + <Default>DimGray</Default> + </BorderColor> + <BorderStyle> + <Default>Solid</Default> + </BorderStyle> + </Style> + </PlotArea> + <ThreeDProperties> + <Enabled>true</Enabled> + <ProjectionMode>Orthographic</ProjectionMode> + <Shading>Real</Shading> + <WallThickness>1</WallThickness> + <DrawingStyle>Cylinder</DrawingStyle> + </ThreeDProperties> + <PointWidth>0</PointWidth> + <SeriesGroupings> + <SeriesGrouping> + <DynamicSeries> + <Grouping Name="chart1_SeriesGroup1"> + <GroupExpressions> + <GroupExpression>=Fields!Gubun.Value</GroupExpression> + </GroupExpressions> + </Grouping> + <Sorting> + <SortBy> + <SortExpression>=Fields!Gubun.Value</SortExpression> + <Direction>Descending</Direction> + </SortBy> + </Sorting> + <Label>=Fields!Gubun.Value</Label> + </DynamicSeries> + </SeriesGrouping> + </SeriesGroupings> + <Top>0.25cm</Top> + <Subtype>Plain</Subtype> + <ValueAxis> + <Axis> + <Title /> + <MajorGridLines> + <ShowGridLines>true</ShowGridLines> + <Style> + <BorderStyle> + <Default>Solid</Default> + </BorderStyle> + </Style> + </MajorGridLines> + <MinorGridLines> + <Style> + <BorderStyle> + <Default>Solid</Default> + </BorderStyle> + </Style> + </MinorGridLines> + <MajorTickMarks>Outside</MajorTickMarks> + <Min>0</Min> + <MajorInterval>2</MajorInterval> + <Interlaced>true</Interlaced> + <Margin>true</Margin> + <Visible>true</Visible> + <Scalar>true</Scalar> + </Axis> + </ValueAxis> + <Type>Column</Type> + <Width>18.25cm</Width> + <CategoryGroupings> + <CategoryGrouping> + <DynamicCategories> + <Grouping Name="chart1_CategoryGroup1"> + <GroupExpressions> + <GroupExpression>=Fields!Mon.Value</GroupExpression> + </GroupExpressions> + </Grouping> + <Label>=Fields!Mon.Value</Label> + </DynamicCategories> + </CategoryGrouping> + </CategoryGroupings> + <Palette>Excel</Palette> + <ChartData> + <ChartSeries> + <DataPoints> + <DataPoint> + <DataValues> + <DataValue> + <Value>=Sum(Fields!Req.Value)</Value> + </DataValue> + </DataValues> + <DataLabel> + <Style> + <FontFamily>나눔고딕</FontFamily> + <FontWeight>700</FontWeight> + </Style> + <Value>=Fields!Req.Value</Value> + <Position>Top</Position> + <Rotation>60</Rotation> + </DataLabel> + <Style /> + <Marker> + <Size>6pt</Size> + </Marker> + </DataPoint> + </DataPoints> + </ChartSeries> + </ChartData> + <Style> + <BackgroundColor>White</BackgroundColor> + <BorderColor> + <Default>Gray</Default> + </BorderColor> + <BorderStyle> + <Default>Solid</Default> + </BorderStyle> + <FontFamily>나눔고딕</FontFamily> + <FontWeight>700</FontWeight> + </Style> + <Title> + <Caption>월별 냉난방 에너지 요구량 [kWh/(m²a)]</Caption> + + 9cm + 0.25cm + + + 24cm + + ko-KR + 1.5cm + 29.7cm + \ No newline at end of file diff --git a/ArinWarev1/Forms/v20091231/Report_result_auth.rdlc b/ArinWarev1/Forms/v20091231/Report_result_auth.rdlc new file mode 100644 index 0000000..4553c84 --- /dev/null +++ b/ArinWarev1/Forms/v20091231/Report_result_auth.rdlc @@ -0,0 +1,2291 @@ + + + + + 86b9a4cd-3b18-499f-bc7b-ae4126af8be2 + + SQL + + + + + 29.7cm + 에너지효율등급 인증서 + + + Integer + + + 50 + + + true + co2수치를 입력하세요 + + + String + + + 4 + + + true + Report_Parameter_1 + + + true + 21cm + 0.07cm + true + 1cm + 5ec02dd0-720b-446d-9ac5-21bd03e4b31f + + + image/jpeg + /9j/4AAQSkZJRgABAgEAlgCWAAD/4Q33RXhpZgAATU0AKgAAAAgABwESAAMAAAABAAEAAAEaAAUAAAABAAAAYgEbAAUAAAABAAAAagEoAAMAAAABAAIAAAExAAIAAAAcAAAAcgEyAAIAAAAUAAAAjodpAAQAAAABAAAApAAAANAAFuNgAAAnEAAW42AAACcQQWRvYmUgUGhvdG9zaG9wIENTMyBXaW5kb3dzADIwMTA6MDE6MjAgMTQ6MjA6MDgAAAAAA6ABAAMAAAAB//8AAKACAAQAAAABAAABi6ADAAQAAAABAAACbQAAAAAAAAAGAQMAAwAAAAEABgAAARoABQAAAAEAAAEeARsABQAAAAEAAAEmASgAAwAAAAEAAgAAAgEABAAAAAEAAAEuAgIABAAAAAEAAAzBAAAAAAAAAEgAAAABAAAASAAAAAH/2P/gABBKRklGAAECAABIAEgAAP/tAAxBZG9iZV9DTQAC/+4ADkFkb2JlAGSAAAAAAf/bAIQADAgICAkIDAkJDBELCgsRFQ8MDA8VGBMTFRMTGBEMDAwMDAwRDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAENCwsNDg0QDg4QFA4ODhQUDg4ODhQRDAwMDAwREQwMDAwMDBEMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwM/8AAEQgAoABmAwEiAAIRAQMRAf/dAAQAB//EAT8AAAEFAQEBAQEBAAAAAAAAAAMAAQIEBQYHCAkKCwEAAQUBAQEBAQEAAAAAAAAAAQACAwQFBgcICQoLEAABBAEDAgQCBQcGCAUDDDMBAAIRAwQhEjEFQVFhEyJxgTIGFJGhsUIjJBVSwWIzNHKC0UMHJZJT8OHxY3M1FqKygyZEk1RkRcKjdDYX0lXiZfKzhMPTdePzRieUpIW0lcTU5PSltcXV5fVWZnaGlqa2xtbm9jdHV2d3h5ent8fX5/cRAAICAQIEBAMEBQYHBwYF +NQEAAhEDITESBEFRYXEiEwUygZEUobFCI8FS0fAzJGLhcoKSQ1MVY3M08SUGFqKygwcmNcLSRJNUoxdkRVU2dGXi8rOEw9N14/NGlKSFtJXE1OT0pbXF1eX1VmZ2hpamtsbW5vYnN0dXZ3eHl6e3x//aAAwDAQACEQMRAD8A9VSSSSUxe9lbHWWODWMBc5x0AA1c4pMeyxjXsIcxwDmuGoIOoIQ8ypt2JdS53pi1jmF57bhs3dvFYL/q+7Jtx35uTj2enTXRYWscHBlTrC8Yb3XOdi/b6rfs+f8AT9Wj9H/xaoqekULbaqKn3XPbVVU0vsseQ1rWtG573vd7Wsa1czd9Vn20llvUW5BeWvtZY0tY97mWMznOay72MyMh9OZTUz+iX4lHpq+ei4g6bkYdd7GXZF7sr7RtDibBd9rxftDXv3ZTadlFFm+39PTX/gUaPZVtt3XeksZW+zJbW22S3eHMO1rvSdY9r2tdVT6rm1+tb+i3q+sDK6XmZX2h7szGZZ1DGGHmRWXAVtdea342+3+d9PMvY/1/Vp9T0rdn6O2nKL1DpQzOnnEOSzS8XBjiX1PYw/o8a5lj3PdX6ez1Pf8A0n9P6f8AgEqPZVu0o12NsrbY2drhI3AtMHxY8Nc1c+36p4jstmUy9r7KnB+5zTY8lr8OzHL7rLn2PsoqwbqK7bP0n65d/wAN9og76p3ydmRXMY8OfWXk2Y7fRbkWNse/f+j/AJvDf+qMs/WqvRzf1lBT0ddjbG72zEke4Fp0O36Lw1ykubyvqi/IfaftLB6rLm+ua3G5ouZkUfZ2W+s39T/WftD6f+5Nb7fU/S1/ZbOL9XBidTpy8d9ddFRuikVjRlpe/wCz0S5zMb9NZ61l1Hpvu/mrf0fp+ilO2kkkkp//0PVUkkklPO/4wQD9T+ogiRtr5/42peMelV+437gvaPr+J+qHUR/Jr/8APtS8c9Mrofgp/o8/9of+hBo85KpjWvSh9Kr9xv3BL0q +v3G/cEb0yl6ZWpfi1uPxQ+lV+437gl6VX7jfuCN6ZS9MpWe6uPxe//wAULWtHVtoA1x+BHa9eirz3/FK0tHVvM4/5L16EuX+Kf7sy/wCB/wCk4Ojy5vFH6/mpJJJUmZSSSSSn/9H1VDtvpoaHXWNqa5za2l5DQXvIrqrG78+yx2ytiIszq/SLOoW4trLzX9luqtFTmtcw7LqMh9nubvZkehRbj1WNd7GZNySmh9cMnFzPqp1H7NdXeGFtdhrcHhr22Vb637Cdtjf3F5Z9nXouZ0XJ6b9WOp15Dq3er6IaKy5w/Rurr3M9Tb9mof8A4DptX6v0/wDmqLbGLjfQW/8ABj/R5f7Q/wDQg43xXLwZoj+oD/zpOZ9nS+zrT9BL0Fp25/3hzPs6X2dafoJeglavvD0/+K+vYOp+Zo/Jcu7XHf4vK9n7Q8zT+S1diuZ+J/7ry/4P/pOLv8hLi5bGe/F/05KSSSVNtKSSSSU//9L1VJJJJTlfWhu7oOWPJv8A1bFwPoHwXoX1gbu6Pkt8Q3/qmrj/ALOtj4Zk4cMh/XP/AEYOJ8WxmWeJ/wBWP+lNzfQKXoLS+zpfZ/JXvec72C5voHwS9BaX2fyS+z+SXvK9guv9RmbPt3mavyWLqlz31Sr2fa/M1/keuhWHz8uLmZn+7/0IvQ/Do8PK4x24v+nJSSSSqttSSSSSn//T9VWT105LbMKyh1r9lwLsaptwFsw0CzIxPbjtr/nP1z9Tt+hf/patZJJTzOI/qNmB1JmfXZ6m5rnW2eq1u8ve2zGx6sj9H6OMyunZkYn6tkev/hL6r77anorp+picG34D8oWFtV3lJ8OMj+t+xp81i4pg/wBVq+il6KtbUtqs+74tf7v4NX0UvRVraltS93xV7Hg3vq8zb9o8yz/vy2Vl9EEev/Z/78tRZ3MG8sj5f9Fv8vHhxRHa/wDpKSSSUTKpJJJJT//U9VSSWL12jqlmfgW4dIyKqt5Nb49MXF+M6m67dZ +XtbXjszNl9deRbRY/2UW/zViU6HU/6Db8B+ULD3IuLi9UxendT/aUOttvba2xtjrGuBrxm2OrbYG/Z6W3stZVj/wCD/wDBrau5OjMxFLTG0u5Lchbktyd7pR7YS7ktyFuS3Je6Ve2HX6KZ9f8As/8AflqLJ6CZ9f4s/wC/LWTCbNrgKFKSSSQSpJJJJT//1fVUkkklNPq5jptx8h/1TVze9dF1sx0u8+Q/6pq5beglPuS3IG9LelSk+5Lcgb0t6VKt3/q8Z+0fFn5HLYWH9WXT9p+LPyOW4ihSSSSSlJJJJKf/1vVVR6lnZOHZiimll7cm5lLg6wseNzhudTW2m1t3o44yMmzdbT+joV5Dsx6bLarrGB1lBJqcfzS4em5zf5Wx2xJTi5nUbsvpfUmW1Nqdi2NqLqrPVY4/o3keo6uj9LXv2X17Nlb/APC/znp896i6LqnTsPpf1cycfDa6uloaWsc99ke5n0fXfZt/e/r/AKRcl6qSm36iXqKp6qXqpKbfqJeoqnqpeqkp6r6qO3fa/I1/keugXM/Ux277b5Gv8j10ySlJJJJKUkkkkp//1/VUklSz+rY2BkYuNc17rMx+yvYJA91dW58lv+Evq9tfqW/4b0/s9GRbUlNf60mOg5Z/kt/6ti4HeV2HWOr4vUfq7nPpD6wxtTotG0ursdXZj5DNT+ivr+hu/Sf4O6uq5j61xXq1/vt+8JKS70t5QvVr/fb94S9Wv99v3hJSXeUt5QvVr/fb94S9Wv8Afb94SU9d9RnT9u+NX5LF1S5L6hua77ftIOtXBntYutSUpJJJJSkkkklP/9D1VZ3UuiY3UsnGyLrLGOxDLGsLYPurs/PY99bv0P8AO47qb/T9Sv1VopJKc7B6RjdOx7WNc/J3Na2by0xXU3bj4/sZWz0qf5bfV/PtssWTT9YsB9Vd92IKKfs1OVbuodP6SnNyraq/VbR/NtwPbcz1vU/mvT/wi6YgEEESDoQVWt6bg2VGr +0K2j0/SYRWwlrA2yljWNsY+vbXXfcxjNnp/pbf9I9JTkftrFbmV1WdNdVU4+lcHMqL6rDZRQw3ena+r0H/bKv5h970bp/WOmdQux6qMC0DJY61lllTGM9JrKLm5G5z/AH12/baGM9L1LvU9l9VPpWK30/ofT8Gj0WVttO82F9jGTuL23DayquqmrZZVU5jaaq/fUy3+e/SKxj9PwcUg42PXSW7g0saAQH7DY1sfRa/0qvb/AMFX/o0lOY3Pbb6f2fAoeMqx9eGXvDNwq9T17ciKLPQb+h/QV1/ab7PU/TVY36f0p/tTo46W7qb8fbU2qu0sNQLyLQPRYzbNdj3vd6fss9P+X6X6RXH9H6VZ6m/Eqd6zhZbLB7njd+kd/L/SWe7/AISxF+xYfpW0+jX6V4i6vaNrxtFUPZ9F36Jja/6iSnHs+s2DiGGdPyQ4g72trrYQ5rci81O9S6r3ehhZFrLP6NZX6fo32evT6hXfWbGq9UWVXWlgse01sDQ8Mvfh+nULLd1r6dvqZVv8xi0/rGZ9j9WtaI6b0/aG/ZqiGiBLGnTa+n84f6G66r/i7bf9Iov6T0x5LnYtRLmlpOwDRzvVf/n2H1HJKaTPrFjers2PuYbK2utra0Mqbe8Y+I65zrnes2+7ez1cVtv+ks9Kn9JZHD+tOHlnHH2fIoOU5oYbhW0AWMqvodY/1nM/Ttv200bvtVj67v1f9EtD9l9M31WfZKd+OZpcGNBYTt/m9Pb9Bn+YkOl9NBrcMWkGktNUMaNuwNZVtgf4JrGen/o9iSm0kkkkp//Z/+0dDFBob3Rvc2hvcCAzLjAAOEJJTQQlAAAAAAAQAAAAAAAAAAAAAAAAAAAAADhCSU0ELwAAAAAASkQAAQBIAAAASAAAAAAAAAAAAAAA0AIAAEACAAAAAAAAAAAAABgDAABkAgAAAAHAAwAAsAQAAAEADycBADMALgBwAHMAZAAAAHMAOEJJTQPtAAAAAAAQAJYAAAAB +AAIAlgAAAAEAAjhCSU0EJgAAAAAADgAAAAAAAAAAAAA/gAAAOEJJTQQNAAAAAAAEAAAAeDhCSU0EGQAAAAAABAAAAB44QklNA/MAAAAAAAkAAAAAAAAAAAEAOEJJTQQKAAAAAAABAAA4QklNJxAAAAAAAAoAAQAAAAAAAAACOEJJTQP1AAAAAABIAC9mZgABAGxmZgAGAAAAAAABAC9mZgABAKGZmgAGAAAAAAABADIAAAABAFoAAAAGAAAAAAABADUAAAABAC0AAAAGAAAAAAABOEJJTQP4AAAAAABwAAD/////////////////////////////A+gAAAAA/////////////////////////////wPoAAAAAP////////////////////////////8D6AAAAAD/////////////////////////////A+gAADhCSU0EAAAAAAAAAgAPOEJJTQQCAAAAAAAuAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAADhCSU0EMAAAAAAAFwEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBADhCSU0ELQAAAAAABgABAAAALjhCSU0ECAAAAAAAZQAAAAEAAAJAAAACQAAAABH//+2gAAAAAAoBAAAHoAEAABRtAQAAIVIBAAAsdQEAADnSAQAARiABAABNmQEAAFiZAf////oAAAALDAAAAB2DAAAAKJIAAAA7HAAAAEKuAAAATawAADhCSU0EHgAAAAAABAAAAAA4QklNBBoAAAAAA0kAAAAGAAAAAAAAAAAAAAJtAAABiwAAAArHdMCw1lTQxMGMADW08a4JAC0AMwAAAAEAAAAAAAAAAAAAAAAAAAAAAAAAAQAAAAAAAAAAAAABiwAAAm0AAAAAAAAAAAAAAAAAAAAAAQAAAAAAAAAAAAAAAAAAAAAAAAAQAAAAAQAAAAAAAG51bGwAAAACAAAABmJvdW5 +kc09iamMAAAABAAAAAAAAUmN0MQAAAAQAAAAAVG9wIGxvbmcAAAAAAAAAAExlZnRsb25nAAAAAAAAAABCdG9tbG9uZwAAAm0AAAAAUmdodGxvbmcAAAGLAAAABnNsaWNlc1ZsTHMAAAABT2JqYwAAAAEAAAAAAAVzbGljZQAAABIAAAAHc2xpY2VJRGxvbmcAAAAAAAAAB2dyb3VwSURsb25nAAAAAAAAAAZvcmlnaW5lbnVtAAAADEVTbGljZU9yaWdpbgAAAA1hdXRvR2VuZXJhdGVkAAAAAFR5cGVlbnVtAAAACkVTbGljZVR5cGUAAAAASW1nIAAAAAZib3VuZHNPYmpjAAAAAQAAAAAAAFJjdDEAAAAEAAAAAFRvcCBsb25nAAAAAAAAAABMZWZ0bG9uZwAAAAAAAAAAQnRvbWxvbmcAAAJtAAAAAFJnaHRsb25nAAABiwAAAAN1cmxURVhUAAAAAQAAAAAAAG51bGxURVhUAAAAAQAAAAAAAE1zZ2VURVhUAAAAAQAAAAAABmFsdFRhZ1RFWFQAAAABAAAAAAAOY2VsbFRleHRJc0hUTUxib29sAQAAAAhjZWxsVGV4dFRFWFQAAAABAAAAAAAJaG9yekFsaWduZW51bQAAAA9FU2xpY2VIb3J6QWxpZ24AAAAHZGVmYXVsdAAAAAl2ZXJ0QWxpZ25lbnVtAAAAD0VTbGljZVZlcnRBbGlnbgAAAAdkZWZhdWx0AAAAC2JnQ29sb3JUeXBlZW51bQAAABFFU2xpY2VCR0NvbG9yVHlwZQAAAABOb25lAAAACXRvcE91dHNldGxvbmcAAAAAAAAACmxlZnRPdXRzZXRsb25nAAAAAAAAAAxib3R0b21PdXRzZXRsb25nAAAAAAAAAAtyaWdodE91dHNldGxvbmcAAAAAADhCSU0EKAAAAAAADAAAAAE/8AAAAAAAADhCSU0EEQAAAAAAAQEAOEJJTQQUAAAAAAAEAAAANT +hCSU0EDAAAAAAM3QAAAAEAAABmAAAAoAAAATQAAMCAAAAMwQAYAAH/2P/gABBKRklGAAECAABIAEgAAP/tAAxBZG9iZV9DTQAC/+4ADkFkb2JlAGSAAAAAAf/bAIQADAgICAkIDAkJDBELCgsRFQ8MDA8VGBMTFRMTGBEMDAwMDAwRDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAENCwsNDg0QDg4QFA4ODhQUDg4ODhQRDAwMDAwREQwMDAwMDBEMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwM/8AAEQgAoABmAwEiAAIRAQMRAf/dAAQAB//EAT8AAAEFAQEBAQEBAAAAAAAAAAMAAQIEBQYHCAkKCwEAAQUBAQEBAQEAAAAAAAAAAQACAwQFBgcICQoLEAABBAEDAgQCBQcGCAUDDDMBAAIRAwQhEjEFQVFhEyJxgTIGFJGhsUIjJBVSwWIzNHKC0UMHJZJT8OHxY3M1FqKygyZEk1RkRcKjdDYX0lXiZfKzhMPTdePzRieUpIW0lcTU5PSltcXV5fVWZnaGlqa2xtbm9jdHV2d3h5ent8fX5/cRAAICAQIEBAMEBQYHBwYFNQEAAhEDITESBEFRYXEiEwUygZEUobFCI8FS0fAzJGLhcoKSQ1MVY3M08SUGFqKygwcmNcLSRJNUoxdkRVU2dGXi8rOEw9N14/NGlKSFtJXE1OT0pbXF1eX1VmZ2hpamtsbW5vYnN0dXZ3eHl6e3x//aAAwDAQACEQMRAD8A9VSSSSUxe9lbHWWODWMBc5x0AA1c4pMeyxjXsIcxwDmuGoIOoIQ8ypt2JdS53pi1jmF57bhs3dvFYL/q+7Jtx35uTj2enTXRYWscHBlTrC8Yb3XOdi/b6rfs+f8AT9Wj9H/xaoqekULbaqKn3XPbVVU0vsseQ1rWtG573vd7Wsa1czd9Vn20llvUW5BeWvtZY0tY97mWMznOay72MyMh9OZTUz+iX +4lHpq+ei4g6bkYdd7GXZF7sr7RtDibBd9rxftDXv3ZTadlFFm+39PTX/gUaPZVtt3XeksZW+zJbW22S3eHMO1rvSdY9r2tdVT6rm1+tb+i3q+sDK6XmZX2h7szGZZ1DGGHmRWXAVtdea342+3+d9PMvY/1/Vp9T0rdn6O2nKL1DpQzOnnEOSzS8XBjiX1PYw/o8a5lj3PdX6ez1Pf8A0n9P6f8AgEqPZVu0o12NsrbY2drhI3AtMHxY8Nc1c+36p4jstmUy9r7KnB+5zTY8lr8OzHL7rLn2PsoqwbqK7bP0n65d/wAN9og76p3ydmRXMY8OfWXk2Y7fRbkWNse/f+j/AJvDf+qMs/WqvRzf1lBT0ddjbG72zEke4Fp0O36Lw1ykubyvqi/IfaftLB6rLm+ua3G5ouZkUfZ2W+s39T/WftD6f+5Nb7fU/S1/ZbOL9XBidTpy8d9ddFRuikVjRlpe/wCz0S5zMb9NZ61l1Hpvu/mrf0fp+ilO2kkkkp//0PVUkkklPO/4wQD9T+ogiRtr5/42peMelV+437gvaPr+J+qHUR/Jr/8APtS8c9Mrofgp/o8/9of+hBo85KpjWvSh9Kr9xv3BL0qv3G/cEb0yl6ZWpfi1uPxQ+lV+437gl6VX7jfuCN6ZS9MpWe6uPxe//wAULWtHVtoA1x+BHa9eirz3/FK0tHVvM4/5L16EuX+Kf7sy/wCB/wCk4Ojy5vFH6/mpJJJUmZSSSSSn/9H1VDtvpoaHXWNqa5za2l5DQXvIrqrG78+yx2ytiIszq/SLOoW4trLzX9luqtFTmtcw7LqMh9nubvZkehRbj1WNd7GZNySmh9cMnFzPqp1H7NdXeGFtdhrcHhr22Vb637Cdtjf3F5Z9nXouZ0XJ6b9WOp15Dq3er6IaKy5w/Rurr3M9Tb9mof8A4DptX6v0/wDmqLbGLjfQW/8ABj/R5f7Q/wDQg43xXLwZoj+oD/zpOZ9nS+zrT9BL0Fp25/3h +zPs6X2dafoJeglavvD0/+K+vYOp+Zo/Jcu7XHf4vK9n7Q8zT+S1diuZ+J/7ry/4P/pOLv8hLi5bGe/F/05KSSSVNtKSSSSU//9L1VJJJJTlfWhu7oOWPJv8A1bFwPoHwXoX1gbu6Pkt8Q3/qmrj/ALOtj4Zk4cMh/XP/AEYOJ8WxmWeJ/wBWP+lNzfQKXoLS+zpfZ/JXvec72C5voHwS9BaX2fyS+z+SXvK9guv9RmbPt3mavyWLqlz31Sr2fa/M1/keuhWHz8uLmZn+7/0IvQ/Do8PK4x24v+nJSSSSqttSSSSSn//T9VWT105LbMKyh1r9lwLsaptwFsw0CzIxPbjtr/nP1z9Tt+hf/patZJJTzOI/qNmB1JmfXZ6m5rnW2eq1u8ve2zGx6sj9H6OMyunZkYn6tkev/hL6r77anorp+picG34D8oWFtV3lJ8OMj+t+xp81i4pg/wBVq+il6KtbUtqs+74tf7v4NX0UvRVraltS93xV7Hg3vq8zb9o8yz/vy2Vl9EEev/Z/78tRZ3MG8sj5f9Fv8vHhxRHa/wDpKSSSUTKpJJJJT//U9VSSWL12jqlmfgW4dIyKqt5Nb49MXF+M6m67dZXtbXjszNl9deRbRY/2UW/zViU6HU/6Db8B+ULD3IuLi9UxendT/aUOttvba2xtjrGuBrxm2OrbYG/Z6W3stZVj/wCD/wDBrau5OjMxFLTG0u5Lchbktyd7pR7YS7ktyFuS3Je6Ve2HX6KZ9f8As/8AflqLJ6CZ9f4s/wC/LWTCbNrgKFKSSSQSpJJJJT//1fVUkkklNPq5jptx8h/1TVze9dF1sx0u8+Q/6pq5beglPuS3IG9LelSk+5Lcgb0t6VKt3/q8Z+0fFn5HLYWH9WXT9p+LPyOW4ihSSSSSlJJJJKf/1vVVR6lnZOHZiimll7cm5lLg6wseNzhudTW2m1t3o44yMmzdbT+joV5Dsx6bLarrGB1lBJqcfzS4em5zf5Wx2xJ +Ti5nUbsvpfUmW1Nqdi2NqLqrPVY4/o3keo6uj9LXv2X17Nlb/APC/znp896i6LqnTsPpf1cycfDa6uloaWsc99ke5n0fXfZt/e/r/AKRcl6qSm36iXqKp6qXqpKbfqJeoqnqpeqkp6r6qO3fa/I1/keugXM/Ux277b5Gv8j10ySlJJJJKUkkkkp//1/VUklSz+rY2BkYuNc17rMx+yvYJA91dW58lv+Evq9tfqW/4b0/s9GRbUlNf60mOg5Z/kt/6ti4HeV2HWOr4vUfq7nPpD6wxtTotG0ursdXZj5DNT+ivr+hu/Sf4O6uq5j61xXq1/vt+8JKS70t5QvVr/fb94S9Wv99v3hJSXeUt5QvVr/fb94S9Wv8Afb94SU9d9RnT9u+NX5LF1S5L6hua77ftIOtXBntYutSUpJJJJSkkkklP/9D1VZ3UuiY3UsnGyLrLGOxDLGsLYPurs/PY99bv0P8AO47qb/T9Sv1VopJKc7B6RjdOx7WNc/J3Na2by0xXU3bj4/sZWz0qf5bfV/PtssWTT9YsB9Vd92IKKfs1OVbuodP6SnNyraq/VbR/NtwPbcz1vU/mvT/wi6YgEEESDoQVWt6bg2VGr0K2j0/SYRWwlrA2yljWNsY+vbXXfcxjNnp/pbf9I9JTkftrFbmV1WdNdVU4+lcHMqL6rDZRQw3ena+r0H/bKv5h970bp/WOmdQux6qMC0DJY61lllTGM9JrKLm5G5z/AH12/baGM9L1LvU9l9VPpWK30/ofT8Gj0WVttO82F9jGTuL23DayquqmrZZVU5jaaq/fUy3+e/SKxj9PwcUg42PXSW7g0saAQH7DY1sfRa/0qvb/AMFX/o0lOY3Pbb6f2fAoeMqx9eGXvDNwq9T17ciKLPQb+h/QV1/ab7PU/TVY36f0p/tTo46W7qb8fbU2qu0sNQLyLQPRYzbNdj3vd6fss9P+X6X6RXH9H6VZ6m/Eqd6zhZbLB7njd+kd/L/SWe7/AI +SxF+xYfpW0+jX6V4i6vaNrxtFUPZ9F36Jja/6iSnHs+s2DiGGdPyQ4g72trrYQ5rci81O9S6r3ehhZFrLP6NZX6fo32evT6hXfWbGq9UWVXWlgse01sDQ8Mvfh+nULLd1r6dvqZVv8xi0/rGZ9j9WtaI6b0/aG/ZqiGiBLGnTa+n84f6G66r/i7bf9Iov6T0x5LnYtRLmlpOwDRzvVf/n2H1HJKaTPrFjers2PuYbK2utra0Mqbe8Y+I65zrnes2+7ez1cVtv+ks9Kn9JZHD+tOHlnHH2fIoOU5oYbhW0AWMqvodY/1nM/Ttv200bvtVj67v1f9EtD9l9M31WfZKd+OZpcGNBYTt/m9Pb9Bn+YkOl9NBrcMWkGktNUMaNuwNZVtgf4JrGen/o9iSm0kkkkp//ZADhCSU0EIQAAAAAAVQAAAAEBAAAADwBBAGQAbwBiAGUAIABQAGgAbwB0AG8AcwBoAG8AcAAAABMAQQBkAG8AYgBlACAAUABoAG8AdABvAHMAaABvAHAAIABDAFMAMwAAAAEAOEJJTQ+gAAAAAASCbW9wdAAAAAMAAAABAAAAAAAAAAcAAAABAQAAAAABAAD//////////wAAADwAAAAB/////wAAAAAAAAAAAAAAAAAAAAEAAAAA/////wAAAAAE/////wAAAAD/////AAAAAP////8AAAAA/////wAAAAAAAAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/A +AAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAA +AP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAAAAAAAAAAAAAAAAAAA4QklND6EAAAAABKRtc2V0AAAAAAAAABAAAAABAAAAAAAEbnVsbAAAAAMAAAAHVmVyc2lvbmxvbmcAAAAAAAAADEhUTUxTZXR0aW5nc09iamMAAAABAAAAAAAEbnVsbAAAABAAAAAPSW5jbHVkZUNvbW1lbnRzYm9vbAEAAAAQR29MaXZlQ29tcGF0aWJsZWJvb2wAAAAAEVNwYWNlcnNFbXB0eUNlbGxzbG9uZwAAAAAAAAANVERXaWR0aEhlaWdodGxvbmcAAAABAAAADEltYWdlTWFwVHlwZWxvbmcAAAAAAAAAEEltYWdlTWFwTG9jYXRpb25sb25nAAAAAgAAAAtMaW5lRW5kaW5nc2xvbmcAAAABAAAAElF1b3RlQWxsQXR0cmlidXRlc2Jvb2wAAAAADUF0dHJpYnV0ZUNhc2Vsb25nAAAAAAAAAAZJbmRlbnRsb25n/////wAAAAdUYWdDYXNlbG9uZwAAAAAAAAASRmlsZVNhdmluZ1NldHRpbmdzT2JqYwAAAAEAAAAAAARudWxsAAAACAAAABBJbmNsdWRlQ29weXJpZ2h0Ym9vbAEAAAARTmFtZUNvbXBhdGliaWxpdHlPYmpjAAAAAQAAAAAABG51bGwAAAADAAAADU5hbWVDb21wYXRNYWNib29sAQAAABFOYW1lQ29tcGF0V2luZG93c2Jvb2wBAAAADk5hbWVDb21wYXRVTklYYm9vbAEAAAAYU2F2aW5nRmlsZU5hbWVDb21wb25lbnRzVmxMcwAAAAlsb25nAAAAAWxvbmcAAAAUbG9uZwAAAAJsb25nAAAAE2xvbmcAAAAGbG9uZwAAABhsb25nAAAAGGxvbmcAAAAYbG9uZwAAABYAAAAXU2xpY2VGaWxlTmFtZUN +vbXBvbmVudHNWbExzAAAABmxvbmcAAAAAbG9uZwAAABNsb25nAAAACWxvbmcAAAAYbG9uZwAAABhsb25nAAAAGAAAAA5Db3B5QmFja2dyb3VuZGJvb2wBAAAAEVVzZUltYWdlU3ViZm9sZGVyYm9vbAEAAAASSW1hZ2VTdWJmb2xkZXJOYW1lVEVYVAAAAAcAaQBtAGEAZwBlAHMAAAAAABlEdXBsaWNhdGVGaWxlTmFtZUJlaGF2aW9ybG9uZwAAAAEAAAAPU3BhY2Vyc1ZlcnRpY2FsbG9uZwAAAAEAAAARU3BhY2Vyc0hvcml6b250YWxsb25nAAAAAQAAAAxTdHlsZXNGb3JtYXRsb25nAAAAAAAAAAZVc2VDU1Nib29sAAAAABZIVE1MQmFja2dyb3VuZFNldHRpbmdzT2JqYwAAAAEAAAAAAARudWxsAAAABgAAABRVc2VJbWFnZUFzQmFja2dyb3VuZGJvb2wAAAAAFEJhY2tncm91bmRDb2xvclN0YXRlbG9uZwAAAAEAAAASQmFja2dyb3VuZENvbG9yUmVkbG9uZwAAAP8AAAAUQmFja2dyb3VuZENvbG9yR3JlZW5sb25nAAAA/wAAABNCYWNrZ3JvdW5kQ29sb3JCbHVlbG9uZwAAAP8AAAATQmFja2dyb3VuZEltYWdlUGF0aFRFWFQAAAABAAA4QklNBAYAAAAAAAcABAAAAAEBAP/hDxJodHRwOi8vbnMuYWRvYmUuY29tL3hhcC8xLjAvADw/eHBhY2tldCBiZWdpbj0i77u/IiBpZD0iVzVNME1wQ2VoaUh6cmVTek5UY3prYzlkIj8+IDx4OnhtcG1ldGEgeG1sbnM6eD0iYWRvYmU6bnM6bWV0YS8iIHg6eG1wdGs9IkFkb2JlIFhNUCBDb3JlIDQuMS1jMDM2IDQ2LjI3NjcyMCwgTW9uIEZlYiAxOSAyMDA3IDIyOjQwOjA4ICAgICAgICAiPiA8cm +RmOlJERiB4bWxuczpyZGY9Imh0dHA6Ly93d3cudzMub3JnLzE5OTkvMDIvMjItcmRmLXN5bnRheC1ucyMiPiA8cmRmOkRlc2NyaXB0aW9uIHJkZjphYm91dD0iIiB4bWxuczp4YXA9Imh0dHA6Ly9ucy5hZG9iZS5jb20veGFwLzEuMC8iIHhtbG5zOmRjPSJodHRwOi8vcHVybC5vcmcvZGMvZWxlbWVudHMvMS4xLyIgeG1sbnM6cGhvdG9zaG9wPSJodHRwOi8vbnMuYWRvYmUuY29tL3Bob3Rvc2hvcC8xLjAvIiB4bWxuczp4YXBNTT0iaHR0cDovL25zLmFkb2JlLmNvbS94YXAvMS4wL21tLyIgeG1sbnM6dGlmZj0iaHR0cDovL25zLmFkb2JlLmNvbS90aWZmLzEuMC8iIHhtbG5zOmV4aWY9Imh0dHA6Ly9ucy5hZG9iZS5jb20vZXhpZi8xLjAvIiB4YXA6Q3JlYXRlRGF0ZT0iMjAxMC0wMS0yMFQxNDoyMDowOCswOTowMCIgeGFwOk1vZGlmeURhdGU9IjIwMTAtMDEtMjBUMTQ6MjA6MDgrMDk6MDAiIHhhcDpNZXRhZGF0YURhdGU9IjIwMTAtMDEtMjBUMTQ6MjA6MDgrMDk6MDAiIHhhcDpDcmVhdG9yVG9vbD0iQWRvYmUgUGhvdG9zaG9wIENTMyBXaW5kb3dzIiBkYzpmb3JtYXQ9ImltYWdlL2pwZWciIHBob3Rvc2hvcDpDb2xvck1vZGU9IjMiIHBob3Rvc2hvcDpIaXN0b3J5PSIiIHhhcE1NOkluc3RhbmNlSUQ9InV1aWQ6MzE2QUUyNTc4MzA1REYxMTlGNkJCQjRBQ0I1OUI2RTIiIHhhcE1NOkRvY3VtZW50SUQ9InV1aWQ6MzA2QUUyNTc4MzA1REYxMTlGNkJCQjRBQ0I1OUI2RTIiIHRpZmY6T3JpZW50YXRpb249IjEiIHRpZmY6W +FJlc29sdXRpb249IjE1MDAwMDAvMTAwMDAiIHRpZmY6WVJlc29sdXRpb249IjE1MDAwMDAvMTAwMDAiIHRpZmY6UmVzb2x1dGlvblVuaXQ9IjIiIHRpZmY6TmF0aXZlRGlnZXN0PSIyNTYsMjU3LDI1OCwyNTksMjYyLDI3NCwyNzcsMjg0LDUzMCw1MzEsMjgyLDI4MywyOTYsMzAxLDMxOCwzMTksNTI5LDUzMiwzMDYsMjcwLDI3MSwyNzIsMzA1LDMxNSwzMzQzMjs1NUJEQUZEMkU1OTQ3OUIwRjAyODlBMzZDOTdFQ0VDNSIgZXhpZjpQaXhlbFhEaW1lbnNpb249IjM5NSIgZXhpZjpQaXhlbFlEaW1lbnNpb249IjYyMSIgZXhpZjpDb2xvclNwYWNlPSItMSIgZXhpZjpOYXRpdmVEaWdlc3Q9IjM2ODY0LDQwOTYwLDQwOTYxLDM3MTIxLDM3MTIyLDQwOTYyLDQwOTYzLDM3NTEwLDQwOTY0LDM2ODY3LDM2ODY4LDMzNDM0LDMzNDM3LDM0ODUwLDM0ODUyLDM0ODU1LDM0ODU2LDM3Mzc3LDM3Mzc4LDM3Mzc5LDM3MzgwLDM3MzgxLDM3MzgyLDM3MzgzLDM3Mzg0LDM3Mzg1LDM3Mzg2LDM3Mzk2LDQxNDgzLDQxNDg0LDQxNDg2LDQxNDg3LDQxNDg4LDQxNDkyLDQxNDkzLDQxNDk1LDQxNzI4LDQxNzI5LDQxNzMwLDQxOTg1LDQxOTg2LDQxOTg3LDQxOTg4LDQxOTg5LDQxOTkwLDQxOTkxLDQxOTkyLDQxOTkzLDQxOTk0LDQxOTk1LDQxOTk2LDQyMDE2LDAsMiw0LDUsNiw3LDgsOSwxMCwxMSwxMiwxMywxNCwxNSwxNiwxNywxOCwyMCwyMiwyMywyNCwyNSwyNiwyNywyOCwzMDs3OUU4MkUxNTVBMTcwQkM0NjIwRTFDRTc0OTI4QkNEMiI+ +IDx4YXBNTTpEZXJpdmVkRnJvbSByZGY6cGFyc2VUeXBlPSJSZXNvdXJjZSIvPiA8L3JkZjpEZXNjcmlwdGlvbj4gPC9yZGY6UkRGPiA8L3g6eG1wbWV0YT4gICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICA +gICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgIC +AgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICA8P3hwYWNrZXQgZW5kPSJ3Ij8+/+4ADkFkb2JlAGQAAAAAAf/bAIQABgQEBAUEBgUFBgkGBQYJCwgGBggLDAoKCwoKDBAMDAwMDAwQDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAEHBwcND +A0YEBAYFA4ODhQUDg4ODhQRDAwMDAwREQwMDAwMDBEMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwM/8AAEQgCbQGLAwERAAIRAQMRAf/dAAQAMv/EAaIAAAAHAQEBAQEAAAAAAAAAAAQFAwIGAQAHCAkKCwEAAgIDAQEBAQEAAAAAAAAAAQACAwQFBgcICQoLEAACAQMDAgQCBgcDBAIGAnMBAgMRBAAFIRIxQVEGE2EicYEUMpGhBxWxQiPBUtHhMxZi8CRygvElQzRTkqKyY3PCNUQnk6OzNhdUZHTD0uIIJoMJChgZhJRFRqS0VtNVKBry4/PE1OT0ZXWFlaW1xdXl9WZ2hpamtsbW5vY3R1dnd4eXp7fH1+f3OEhYaHiImKi4yNjo+Ck5SVlpeYmZqbnJ2en5KjpKWmp6ipqqusra6voRAAICAQIDBQUEBQYECAMDbQEAAhEDBCESMUEFURNhIgZxgZEyobHwFMHR4SNCFVJicvEzJDRDghaSUyWiY7LCB3PSNeJEgxdUkwgJChgZJjZFGidkdFU38qOzwygp0+PzhJSktMTU5PRldYWVpbXF1eX1RlZmdoaWprbG1ub2R1dnd4eXp7fH1+f3OEhYaHiImKi4yNjo+DlJWWl5iZmpucnZ6fkqOkpaanqKmqq6ytrq+v/aAAwDAQACEQMRAD8A9U4q7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FX/0PVOKuxV2KuxV2KuxV2KuxV2KuxV2KuxV2KuxV2KuxV2KuxV2KuxV2KuxV2KuxV2KuxV2KuxV2KuxV2KuxV2KuxV2KuxV2KuxV2KuxV2KuxV2KuxV2KuxV2KuxV2KuxV/9H1TirsVdirsVdirsVdirsVdirsVdirsVdirsVdirsVdirsVdir +sVdirsVdirsVdirsVdirsVdirsVdirsVdirsVdirsVdirsVdirsVdirsVdirsVdirsVdirsVdirsVf/S9U4q7FXYq7FXYq7FXYq7FXYq7FXYq8383+bvMOn/AJ0+QPLdnd+loutw6o+p2npxN6rW1q0kJ9RlMicHFf3bpy/axV6Riq2SSOJDJIwSNd2diAAPcnFXRyRyoJI2DxturqQQR7EYquxV2KuxVTmuLeBQ08qRKx4hnYKCT2374qqYqtkmhiAMrrGGIVSxAqx6AV74quxViP5n/mNpvkLy2dUuIXvb+5kW10nS4T+9urqTZI12Jp3duLcV/mfgjKsRtPJ3596/CNR1vzxF5XmmHJNE0qwguI4K9Fe4mYvI4H2viZP5GxVlOhz+Y/Jvk/Vr/wDMHzBFrS6a810uqxWyWrGySJCqvDHRPW9QS0CFuXKP4uWKsH8uXn51/mbZ/wCILXWY/IflW7q2kWsNpHeahcQV+CWZ5jxiD/aX0/tL+xw/eOq1rXmT81vyolt9U81apH5z8iySpBqGoLapa6hYeoQqSskNY5ouRoa/GzfD+7+Hkq9ot7iC5t4ri3kWWCZFkilQ1VkYVVgR1BBxVUxV2Kqb3FukqQvKiyyfYjLAM1PAdTiqpiqx54Y3RJJFR5DSNWIBYjsAeuKumnggT1J5Fij6c3YKKn3OKr8VYz5D8qa35bsb+31bzFdeY5bu9mu4bi8Xi0EUtOMCfFJ8CU8VT/fccf2cVZF9Yt/W9D1U9cjkIuQ508ePWmKr2ZVUsxCqoqzHYADucVaimhmjEkLrJG32XQhlNDTYjFWN+TvKmt6Fe67cal5iutdi1a9a7soLpaLZRMSfQi+J/gFR9n00+H4Y1+LFWRT3NvboHnlSFCaBpGCivWlTiqpiriQoLMaAbknoBiq2KaGaMSQuskbfZdCGU0NNiMVamnhgjMk0ixRjq7kKBX3OKrwQwDKag7gjoRirsVdirsVdir//0/VOKux +V2KuxV2KuxV2KuxV2KuxV2KvH/P8A/wCtGflZ/wAw+tf9QT4q9gxV4L5T8qWX5x+YvMnmfzo81/5d0zVJtJ8ueXhNJFaolpQPcyJGyF5ZeY+0f9+K3KP0uCrereV7P8oPzG8o3nlGSaz8r+a9QXRdY0BpZJbcT3G0E8QkZ2R+Z+Lf4ePFfgdlxVPPy8C+Wfzs89+Uj+7tNbWDzPpce4qZv3N4QOhrPTp/J/wKrC/Jet6mPzwtPPc8zPoPn651XQ7A/wC61g0z01snp/NcPbycf9Zv5mxVmGjzxaz+efm/zVcAvpnkjTItHs2G6meVTdXbKP8AfkY/ct/rYq8j8s+dfyG82pc+Zvzf1l9Q8yahLL6GkPHqbWum2ociOCD6tH6dSoDs/Nv+RnqMyr0b/nHPzdo9x5l82eUvLeqzaz5N076ve+XJ7gTB7eKdeM1r/pCrL6cclBFt/M/+7MVYv/zjr+UHl7zl+Wun6r5u9bULe1nuI9CsVnlhhtgsxZ5+MTJzneYvVpOSemka8MVfT+KvFPzQKXX/ADkJ+Ven3x/3HRjULqJTspukhLRnfYsskUPH/m7FXteKvHf+cs7i5i/JXU1hJCTXNpHPSv8Ad+urb07c1TFXrGlQWNvpdnBYU+oxQRpacenpKgEdPbjTFWL/AJzw2kv5S+cFuqekNIvHXl09RIWaL6fVCUxVIfytj863f5S+SE0y+tbJTpcf1u7vIJLqXiqoLZIY1lgSjR8uUkjtxVUVY/j5oqyzyJ5g1PWNOvk1RYTqGk39xplxcWwZYJ2tiP30aMztGG5cXjMknpyq6c2xVCfm55yuPJn5b675ktgrXdjABacxyUTzyLBEzDuqySqxGKvnfRb7/nFO60NJvOXmK51rzfeos2qa7LHq4uFuWAY+iUiEaLC3wx/C32fj5L8OKsi0XzhfeZf+cV/OP1y+fVH0ZrzSodUlDCS5gh9KWGV+fx8jFMi/H8fw/H8WKsj8u/8AOPvlDz +L+XOlXnmI3F/5ovtMtpYtZe4mV7Vmt1MEduiMsSQ23wqq+n8fHk/JsVSX8lPy90z80PIVr5m/MiSbzHcMG0/S4Zp50jtra1pCWURunK4mdGeWdvjb4MVZb/wA46vfafb+cPKEtzJd2HlbXLix0mWdi8i2h3jiJNPsU5f6zt+zirH/yrPmQfkp59Plnl+nxq+snTuArJ6tEp6YP+7P99/5fHFUu/Kfyn/zj35o0/TYpOY/MG29KXUvr91cwar+kI6NK3CRwso9QHZEdOH958WKpt+e8mnr+Y3ltfPouz+VZtH9f0PW+qjVfVYIb30KP6fp+l6X+Vz/Y9XFXoX5XeUPyx0a0vNV/L4wnTNY9Izm1uXubcvAHoVDvJ6clJaSr8P2V5LirBfyj1qLQrL85dblXnFpfmXWr2RPFbdWlI2r1C4qp/lv+T/l/z55YtfO/5jrJ5j1/zDGbtVmnmS3tLeViYoLaON0CKE4n/J+yv+Uqi/IVldfl5+clz+XdndT3PlDWNLOraJa3EjTGylilMckEbOS3pFQzb/8AFf7fqMyqQeUvy9sfOf5ufmbb69NLN5btNStnm0aOR4Y7q5aJvTe4aMo7xwKrcIuXBnk5P9jFU08v+WbP8tvz+07y/wCWGktvK/mvS7i4uNHaR5Ioru1q3qx8yxHJVC/a/bk/Y9NUVSPzOnki4/OjX7X85/WGmyC3XyU1280WlCDh++KvEURZuf23lPHlz/yMVe5eRfK/lfy15ei0/wAr/wDHEkdri0CzNcRhZd/3cjM7NH3X42xVkGKuxV2KuxV//9T1TirsVdirsVdirsVdirsVdirsVdirxb84JtY0j83fIHmu38v6trum6PBqgvk0eze8lU3MHoxig4oKs9fjkX4VbFWS+X/zl/TOs2ml/wCBvN2m/W39P69qGlehaxbE8pZfVbgu3XjirENIuPM35PeZPMFlcaBqOv8AkbXL+XVtNv8ASIfrU1nNcU9WCeAUYR1Ve +D14/tfE8j8FUWP8Rfmr558t6nJoN9oHkryrcnU0l1aIW91fXyACD07clmSKJv3nqN9pf5WxVZ/zkJonnC21Ly/5w8m2FzqGs28V9o1xBaRvK/o6hbOsMrhAWWO3mHqc/sqzLyxVH/mH+X15pn5PaJYaBbveax5Il03UNMhto2klmnsWVZeCL8TNKjTPx4/G2Kpv+THla9tPy7dtftng1jzRcXmra3bSKUkWXUHJ9N1YB1dYfTRlf4lbFWEeRPNXmf8AKPTG8jeafLOr6ppemzTfoLX9HtjeRT20sjSqsoUqY5FLt8P+x48U5uq9V8i+bdY8z213fXnl2+8u2aSKlhFqirFdzLSrSPACxhFaKFY4qxL/AJxk0bWNG/KDS7DV7G406+jnuzJaXcTwSqGuHZSY5ArDkDUbYq9UxV55+c35cal5u0vTdR8v3K2Xm7y1ci/0G6fZC4oZIHO9Em4J/skTn8HPFUksPz61azgFp5s8geY7HXY/hlh0+yN7aysNq28ysA4Y/wCx/wCLHxVP4Yrn80/y/wBb0zzLoF35bs9Td7Wztrzj9b9FUjkhunj/AN1SLccuMTf75/ysVYf5U89+fvy50qDyr568rarrFvpai203zNocH16Ke2TaH10BV4nVaR1f43/aT/djqqfmnUfPf5w26eV9I0DUPK/ky5kRtd1zWIxbXM9vGwf0bW3JZv3hH94fhb9vh8Suqzbzvrd55dsdJ8s+X7O9tIJ4vQOrWWnXmox6faQKqAJHaw3HK5ZfgtkkHpJ/ey8uCxSqp95Gi0G38uW9noVvd22nWpaNVv7a7tLhnJ5ySOt7HDPI0ru0jzMv7yRn+LFUP+Z3k0ec/IWteWRIsUuo2/G3kf7CzxsssJalTxEsacqYq888t/nT5j0PR7bQvN/kbzE3mXT4ktnbTLI3ltdmMcBLDMrhfj48n/ZVv2sVT38wZfMvmj8iddebQrmx1rULKcRaEo+sXQHrEQqViDVleEJI +0a/YZuH7OKsy8jW9xbeSvL9vcRPDcQ6bZxzQyKUdHSBAyspoVZSKMpxVg3/OMmjaxo35QaXYavY3GnX0c92ZLS7ieCVQ1w7KTHIFYcgajbFV/wCTmj6vp/mr8yZ7+xuLSG+1+SexlnieNZ4ippJEzgCRP8tPhxVLPyej8y+VPy380Xcug3k+oxa3qN3a6S8bwT3MTOnExCRatzXl6bceL4qxL8zdSi/NTToNO8t+QdbsvOy3Nu1tr2o2P6PGnenKpkaW75Fj8CMqxf7NP3karir1Lzv+Y0vlXUodL1bytq2u6PdWaPJq+mWgvIjOWdJIZ4RT0/hVHXduXq8ePwcsVYr+S3lu9j8/eafNWm+X7nyl5O1aGCKy0a8QW0k1zGavci0BP1dAOSqv7Xq/B+1xVV/yq8n309v+a2la3Y3NlZeYPMWrLC08TxetaXYMfrQ+oAJI2VvgdeSNiqWeSfPPmr8sdDi8lecfK2sakuj8rfSdd0W0N5bXdsGJiBoy+lKqHhwb9lfj+L7Sqe+Q9G80eZvzKvPzL8w6VNoVnDp66T5a0e74/WxCz+rLc3CKT6MjMSixn4uLMrfYR3VV/wAqdH1ex/Mb8zru9sbi1tb/AFK1ksLiaJ4450WFwzQuwCyKpO7JirvNGj6vN/zkD5K1SGxuJdMtNN1GO6vkidoInkRgiySgcEZ/2VZvixVZ5w/M/TYb/UfLPmjyBrmq2YkKWsltpw1GzvYyBxaMkqPU+Ljwp8P8+Krv+cefKmv+XPKWpR6nZyaTZ6hqt1faLoUz+pLY2MxX0oXapo2xJT/Zt+8d8VepYq7FXYq7FX//1fVOKuxV2KuxV2KuxV2KuxV2KuxV2KuxV2KuxV2KuxV2KuxV2KuxV2KuxV2KuxV2KuxV2KuxV2KuxV2KuxV2KuxV2KuxV2KuxV2KuxV2KuxV2KuxV2KuxV2KuxV2KuxV/9b1TirsVdirsVdirsVdirsVdirsVSbzj5q0/wAqeXL +vX9Rjmls7L0/VjtwrSn1ZViXiHaNftSCvx/ZzJ0ellqMoxxril/O/ojia8uUQiZHo8z/6Gp/L3/q36t/yJtv+yjN3/oW1P87H85/8Q4f8pY+6X2frd/0NT+Xv/Vv1b/kTbf8AZRj/AKFtT/Ox/Of/ABC/ylj7pfZ+t3/Q1P5e/wDVv1b/AJE23/ZRj/oW1P8AOx/Of/EL/KWPul9n63f9DU/l7/1b9W/5E23/AGUY/wChbU/zsfzn/wAQv8pY+6X2frd/0NT+Xv8A1b9W/wCRNt/2UY/6FtT/ADsfzn/xC/ylj7pfZ+t3/Q1P5e/9W/Vv+RNt/wBlGP8AoW1P87H85/8AEL/KWPul9n63f9DU/l7/ANW/Vv8AkTbf9lGP+hbU/wA7H85/8Qv8pY+6X2frd/0NT+Xv/Vv1b/kTbf8AZRj/AKFtT/Ox/Of/ABC/ylj7pfZ+t3/Q1P5e/wDVv1b/AJE23/ZRj/oW1P8AOx/Of/EL/KWPul9n63f9DU/l7/1b9W/5E23/AGUY/wChbU/zsfzn/wAQv8pY+6X2frd/0NT+Xv8A1b9W/wCRNt/2UY/6FtT/ADsfzn/xC/ylj7pfZ+t3/Q1P5e/9W/Vv+RNt/wBlGP8AoW1P87H85/8AEL/KWPul9n63f9DU/l7/ANW/Vv8AkTbf9lGP+hbU/wA7H85/8Qv8pY+6X2frd/0NT+Xv/Vv1b/kTbf8AZRj/AKFtT/Ox/Of/ABC/ylj7pfZ+t3/Q1P5e/wDVv1b/AJE23/ZRj/oW1P8AOx/Of/EL/KWPul9n63f9DU/l7/1b9W/5E23/AGUY/wChbU/zsfzn/wAQv8pY+6X2frd/0NT+Xv8A1b9W/wCRNt/2UY/6FtT/ADsfzn/xC/ylj7pfZ+t3/Q1P5e/9W/Vv+RNt/wBlGP8AoW1P87H85/8AEL/KWPul9n63f9DU/l7/ANW/Vv8AkTbf9lGP+hbU/wA7H85/8Qv8pY+6X2frd/0NT+Xv/V +v1b/kTbf8AZRj/AKFtT/Ox/Of/ABC/ylj7pfZ+t3/Q1P5e/wDVv1b/AJE23/ZRj/oW1P8AOx/Of/EL/KWPul9n60w8v/8AOR3kjXdbsdHs7HU0ur+ZLeF5YrdYw0jcQWKzs3HfsrZVqPZ3PixmcpY6gOLnL/iGUNfCUgAJb/jveq5oHOdirsVdirsVdirsVdirsVdirsVdirsVdirsVdirsVf/1/VOKuxV2KuxV2KuxV2KuxV2KuxV55/zkD/5KLXv+jT/AKjYc3HYH+OQ/wA//pnNxNd/dH4f7p8a56S8+7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYqyz8qP/Jk+W/8AtoQf8nBmv7V/xbJ/Uk36b+8j733Dnlz0jsVdirsVdirsVdirsVdirsVdirsVdirsVdirsVdir//Q9U4q7FXYq7FXYq7FXYq7FXYq7FXnn/OQP/kote/6NP8AqNhzcdgf45D/AD/+mc3E1390fh/unxrnpLz7sVdirsVdirsVdirsVdirsVdirsVdirsVdirsVdirsVdirsVdirLPyo/8mT5b/wC2hB/ycGa/tX/Fsn9STfpv7yPvfcOeXPSOxV2KuxV2KuxV2KuxV2KuxV2KuxV2KuxV2KuxV2Kv/9H1TirsVdirsVdirsVdirsVdirsVeef85A/+Si17/o0/wCo2HNx2B/jkP8AP/6ZzcTXf3R+H+6fGuekvPuxV2KuxV2KuxV2KuxV2KuxV2KuxV2KuxV2KuxV2KuxV2KuxV2Kss/Kj/yZPlv/ALaEH/JwZr+1f8Wyf1JN+m/vI+99w55c9I7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq//0vVOKuxV2KuxV2KuxV2KuxV2KuxV55/zkD/5KLXv+jT/AKjYc3HYH+OQ/wA//pnNxNd/dH4f7p8a56S8+7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXY +q7FXYqyz8qP/Jk+W/8AtoQf8nBmv7V/xbJ/Uk36b+8j733Dnlz0jsVdirsVdirsVdirsVdirsVdirsVdirsVdirsVdir//T9U4q7FXYq7FXYq7FXYq7FXYq7FXnn/OQP/kote/6NP8AqNhzcdgf45D/AD/+mc3E1390fh/unxrnpLzzsUuxQ6mKuxV2KXYodTFXUxV1MVdil2Kupih1MVdil1MUOpirsUuxV1MUOpirLPyo/wDJk+W/+2hb/wDJwZr+1f8AFsn9STfpv7yPvfcOeXPSuxV2KuxV2KuxV2KuxV2KuxV2KuxV2KuxV2KuxV2Kv//U9U4q7FXYq7FXYq7FXYq7FXYq7FXnv/OQAr+UevD/AJhP+o2HNx2B/jkP8/8A6ZzcTX/3Mvh/unxxxz0l5y3ccVt3DFbdwxW3ccVt3HFbdxxW3ccVt3DFbdwxW3cMVt3DFbdxxW3ccVt3DFbdwxW3cMVt3DFbdwxW3ccVt3HFbZX+VK/8hH8uH/tYQf8AJwZr+1f8Wyf1JORpT+8j7329nlz0zsVdirsVdirsVdirsVdirsVdirsVdirsVdirsVdir//V9U4q7FXYq7FXYq7FXYq7FXYq7FXn/wCfgr+Uuuj/AJhP+oyHNx2B/jkP8/8A6ZzcPtD+5l8P90Hx5wz0h5m2+GK27hitu4YrbuGK27hitu4YrbuGK27hitu4YrbuGK27hitu4YrbuGK27hitu4YrbuGK27hitu4DFbd6eK27hitsq/KtKfmN5cP/AC/wf8TGYHav+LZP6knI0h/ex/rPtjPLnqnYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FX/1vVOKuxV2KuxV2KuxV2KuxV2KuxVgP58iv5Ua4P+YX/qMhzcdgf45D/P/wCmc3B7R/uJfD/dB8hcM9IeWt3p4rbvTxTxO9PFHE3wwLbXDCtt+mMC27hhW2uGK27hitu4YrbuGK27hitu4YrbfDFbdwxW +2vTxW2+GBbd6eFba4YrbvTxTxMp/K5KfmJ5eP/L/AAf8TGa/tX/Fsn9STkaM/vY/1n2lnl71zsVdirsVdirsVdirsVdirsVdirsVdirsVdirsVdir//X9U4q7FXYq7FXYq7FXYq7FXYq7FWB/noK/lXrY/5hf+oyHNx2D/jkP87/AKZycDtP+4l/m/7qL5J9PPR3kuJv0xivE708V4mvTxXid6eK8TfpjFeJ3pjFeJ3p4rxO9PFeJr08V4m/TxXia9PFeJ3p4rxN+nivE70xivE70xivE708V4nemMV4nenivE708V4mvTxXiZR+WMdPzC8vn/l+g/4mMwO1P8Wyf1JOVoj++j/WD7Kzy97J2KuxV2KuxV2KuxV2KuxV2KuxV2KuxV2KuxV2KuxV/9D1TirsVdirsVdirsVdirsVdirsVYL+eAr+V2tD/mF/6i4c3HYP+OQ/zv8ApnJ1/ap/weX+b/u4vlH0s9GeN4nenja8TvSxXid6WK8TvTxteJ3pYrxO9LG14nelivE70sbXid6WK8TvTxXid6WNrxO9PFeJ3p4rxO9LG14nenivE70sbXid6WNrxO9LFeJ3pYrxO9LFeJk35aR08/6Af+X6D/iYzA7U/wAWyf1JOXoZfvof1g+ws8we3dirsVdirsVdirsVdirsVdirsVdirsVdirsVdirsVf/R9U4q7FXYq7FXYq7FXYq7FVN7i3jkSOSVEkk/u0ZgGangD1xVUxVhH51iv5ZayP8AmG/6i4s2/YP+OQ/zv+mcnW9r/wCLS/zf93F8sennozxPE4R4rxO9PFeJ3p4rxO9PCvE708C8TvTxXid6eK8TjHivE708K8TvTwLxOMeK8TvTxXid6eK8TvTxXid6eK8TvTxXid6eK8TvTxXid6eFeJ3p7YF4mSflulPPmgn/AJfYf+JjMDtT/Fsn9STmdnn9/D+sH11nmL3jsVdirsVdirsVdirsVdirsVdirsVdirsVdirsVdi +r/9L1TirsVdirsVdirsVeDfnvq1/5ytvMvlHR5Wj0LyrpV1qvmu+Q/DJdRWzzWOnqR1IlRbi4/wAlFT7XwsqzX8sbq+tPyG0G6sIvXvrfQUltIOvOVLflGn+yYAYq86/Kz8pvy089flvH5v8AN0smt+YNUWeXWNbuLuWOS1ljd6ooV1jgFutG+JOP7X9zwTFWcf8AON2r61qf5YW8mp3Ut/Hb3d1a6ZqE9fUuLKGTjDIxbdv2kH+piqefnMK/lrrA/wCYb/qKizb9hf43D/O/6ZydX2z/AIrP/N/3cXzB6eejPC2708C8TvTxXid6eK8TvTxXid6eK8TvTxXid6eK2708V4nenivE708V4nenivE708V4nenivE708V4nenivE708V4nenivE708V4nenivE708V4mRfl0lPPOh/8xkP/ABMZgdqf4tk/qSc3s4/4RD+sH1lnmT6C7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq/wD/0/VOKuxV2KuxV2KsL/ODztqXk7yJfatpNnJfavIVttNhijaYLPKDxkkVQT6cShpG/m48P2sVeMQ/mB5E8vfkvr/le1ttan1fU9M1BtS1O4065QXOo3lu4lnlkdfhQuftN9iJfixVmf5Rfmn5fs/ySS8aC7A8oaNbvfiWB4UlYRNxW3kccZeTRceS/CvJMVYfZfkD5h8+aLc+cLnU4PLN35lWLUIfLNhFINNaM/vYvr6iRTNLKhX1WVU4N8XFm+HFXqv5J+c7jX/Ll3pWoaZBo+teVrp9H1KwtBxtVeAAK9uo+zEw+ylfh4/y8cVTH84hX8udXH/MP/1FRZt+wv8AG4f53/TOTqu2/wDFZ/5v+7i+ZvTz0S3gOJ3p4rxO9PFeJ3p4rxO9PFbd6eNrxO9PFeJ3p4rxO9PG14nenivE708V4nenivE708V4nenivE708V4nen7YrxO9PG14nemcV4nenivE708V4nenja8TIfy9Sn +nfRD/y+Q/8TGYPan+LZP6knO7NP+EQ/rxfVWeZPozsVdirsVdirsVdirsVdirsVdirsVdirsVdirsVdir/AP/U9U4q7FXYq7FXYq7FUl876Jda95L1/Q7N447vVdNu7K3eYkRrJcQPEhcqGYIGb4uKt/q4qkmh/l4v/Ko7PyFrzpLTSl0y+ltmYryEfAvEzqjfC3xJyT/Y4qw7Q/L3/OSHljS4fLWmXvlzV9Mso1t9N1jUBdxXCQIOKLLFFVWZEAC7v/lyPirM/wArfy8fyXo96t7fnVde1m7k1LW9TZQgluZuvBB9iNP2V/1vs/YVVf8Am6K/l5qw/wCYf/qJizbdhf43D/O/6ZydT27/AIpP/N/6aRfNvDPRHzy3enitu4YrbuGK27hitu4e2K270xitu9PFbdwxW3cMVt3DG1t3DFbd6eK270xitu4YrbuGK2708Vt3DFbd6eK27hitu4YrbIPICU86aL/zFxf8TGYHaf8Ai0/6knO7MP8AhMP68X1Fnmj6W7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq//V9U4q7FXYq7FXYq7FXYq7FXYq7FWI/m0K/l9qo/5h/wDqJjzbdhf43D/O/wCmcnUdvf4nP/N/6aRfOfDPQ3zi3cMbW3cMbW3cMVt3DG1t3DFbdwxtbdwxW3cMVt3DG1t3DFbdwxW3cMVt3DFbdwxtbdwxtbdwxW3cMbW3cMVt3DFbdwxW0+8hp/zuWjf8xcX/ABIZgdp/4tP+pJz+yz/hOP8ArxfTmeavp7sVdirsVdirsVdirsVdirsVdirsVdirsVdirsVdir//1vVOKuxV2KuxV2KuxV2KuxV2KuxVif5rCvkHVB/xg/6iY823Yf8AjcP87/cSdP2//ic/8z/ppB88cM9Bt82dwxtXcMbV3DG0u4Y2h3AY2ruAxtXcMbS7gMbQ7hjaXcMbQ7hjaXcBjaHcMbVxTG1dwxtXcBjau4Y2ruGNpdwGN +od6eNqnvkVKecNH/wCYuL/iQzA7TP8Ag8/6knYdlf4zj/rxfS2ebvqLsVdirsVdirsVdirsVdirsVdirsVdirsVdirsVdir/9f1TirsVdirsVdirsVdirsVdirsVYp+aYr5D1Mf8YP+oiPNr2J/jUP87/cSdP29/ic/83/ppF8/+nnfW+cU708bWncMbWnenja0708bWnenja070xja07hja0708bWnenja07hja07hja0708bWncMbWnenja0708bWnenja0708bWnenja0708bWnenja0nnkdKebtIP8Ay9Rf8SGYPaR/wef9Quf2UP8ACcf9eL6Pzzp9QdirsVdirsVdirsVdirsVdirsVdirsVdirsVdirsVf/Q9U4q7FXYq7FXYq7FXYq7FXYq7FWL/mcK+R9SH/GD/qIjzadjf41D/O/3EnUdu/4pP/N/6aReCennd2+dU708bWnenja0708bWnenja0708bWnenja0708bWnenja0708bWnenja0708bWnenja0708bWnenja0708bWm/Txtaa9PG1p3p42tO9PG1p3p42tJ35Kjp5s0k/8AL1F/xIZhdon/AAef9Uuf2WP8Jx/14vojPPX012KuxV2KuxV2KuxV2KuxV2KuxV2KuxV2KuxV2KuxV//R9U4q7FXYq7FXYq7FXYq7FXYq7FWM/mUK+StRH/GH/k/Hmz7H/wAZj/nf7iTqe3P8Un/m/wC7i8M9PO3t8+pr0/bG1pv08bWnenjaKd6eNpp3p42tNenjaKb4Y2mncMbWnenja016eNrTvTxtFO9PG00708bWnenja036eNrTvTxtaa9PG1pv08bWnenja0708bWk58mpTzTpR/5eY/8AiQzD7QP7if8AVLndmD/CYf14voDOBfSXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FX/9L1TirsVdirsVdirsVdirsVdirsVY3+Yor5N1Af8Yf+T6Zsuyf8 +Zj/nf7iTqu2h/gs/83/dxeJ+nnaW8Fwu9PG14Xenja8LvT9sbXhd6ftja8LvTxteF3p42vC70sbXhd6eNrwu9PG14WvTxteFv08bXhd6eNrwtenja8Lfp42vC16ftja8Lfp42vC708bXhd6eNrwu9PG14Xenja8Kb+UEp5n0w/8ALxH/AMSGYmvP7if9Uub2bH/CIf1w95zhH0V2KuxV2KuxV2KuxV2KuxV2KuxV2KuxV2KuxV2KuxV//9P1TirsVdirsVdirsVdirsVdirsVY9+YIr5Qvx/xh/5PJmw7K/xiP8Anf7iTrO2P8Wn/m/7uLxn087G3huF3p42vC708bXhd6eNrwu9M42vC70zja8LvTxteF3p42vC708bXhd6eNrwu9PG14Xenja8LvTxteF3p+2Nrwu9PG14Xenja8LvTxteFxjxteF3p42vC708bXhd6eNrwpt5TSnmXTT/AMvEf/EhmLrj+5n/AFS5nZw/fw/rB7jnEPoDsVdirsVdirsVdirsVdirsVdirsVdirsVdirsVdir/9T1TirsVdirsVdirsVdirsVdirsVSDz4K+VL4f8Yv8Ak8mZ/Zn+MR/zv9zJ1va4/wAGl/m/7uLyD08663i+Fv08bXha9PG14W/TxteFr0/uxteF3p42vC36eNrwtenja8LvT9sbXhd6ftja8LvTxteFv08bXhd6eNrwtcMbXhb9PG14Xenja8LvT9sbXha9P2xteF3p42vC36eNrwu9PG14U08rJTzFp3/GeP8A4kMxdaf3Mv6pczQR/fw/rB7TnGPdOxV2KuxV2KuxV2KuxV2KuxV2KuxV2KuxV2KuxV2Kv//V9U4q7FXYq7FXYq7FXYq7FXYq7FUi88Cvle9H/GL/AJPJmd2b/fx+P+5Lr+1P8Xl/m/7qLyj086u3kOF3p42vC708bXhd6eC14WvTw2vC36eNrwu9PG14Xenja8LvTxteFr08bXhd6eNrwt+nja8LvTx +teFr08bXhb9PG14Xenja8LvTxteF3p42vC16eNrwt+nja8LvTxteFM/LKU1/Tz/xen/EsxdYf3Uv6rlaEfvo/1g9hzkHtXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FX//W9U4q7FXYq7FXYq7FXmurf85H/kxpGq3mlah5h9C/0+eW1vIfqd8/CaFzHIvJIGRuLqRyVmXFWVeSvPvlPzvpUuq+WL79IWEE7Wss3pTQ0mREkZeM6RP9iVDy48fixVDedvzQ8jeSRAPMmqJaXF1va2iJJNcS70qsUSu9OXw8iOHLFVTyN+Y3lLzxZ3N15dunuEspBDdpLBNA8chHIKVlVK1X4vh5YqivOgr5avB/xj/5Opmb2d/fx+P+5Lg9pD9xL4f7oPL/AE86e3lOFr08bXhdwxteF3p42nhd6eNrwu4Y2vC708bXhdwxteF3DG14XenjaOF3p42nhdwxteF3DG14XcMbXhd6eNo4Xenja8LvTxtPC708bXhdwxteF3p42jhd6eNp4Uy8uJTXbE/8XJ+vMfVn91L+q5Ojj+9j/WetZyb17sVdirsVdirsVdirsVdirsVdirsVdirsVdirsVdir//X9U4q7FXYq7FXYq7FXzr+VP5peQPKPmb8yNO8yazDpt5debdSmgjlWQ8ozKU5clVlUclP2mxV9AWGqaZqOnxalYXcN3p86epDdwuskTp/MrqSpGKvnf8ALX8xvyz0+XVPzR886rDb6/5nvrhNGWRJLie30u3f0YY4oYVlkjTkjq8vBPU4f62Kve/K/mjyx5n00ax5dvoNRspjwa4gO/JP2JAQHR1B+xIFbFVvnAV8uXY/4x/8nVzM0H99H4/7kuF2h/cy+H+6DzThnSW81TuGNrwu4Y2tO4Y2tO4Y2vC7hja07hja8LuGNrTuGNrwu4Y2vC7hja8LuGNrwu4Y2vC7hja07hja07gcbXhdwxtab4Y2vC1wxteF3DG14XcMbWkw8v +r/ALm7L/jMn68o1R/dS9zkaQfvY/1nqmcs9U7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq//0PVOKuxV2KuxV2KuxVAXXl/QbuKWG6021uIrjl68csEbq/M1bmGUhuRNWrirx78ibC2tvMX5o+WdFfj5TstRji0kKTJFDPNFILuOOrHaJliXjiq3/nEzQ9Gs/wAvbisCf4ht766sNYZ6NNEYpDxg3+JIuLc/T+x6jyP9pmxVF/l1ZWOl/wDOQXn/AE7QFSLRXsrG51G3hFIYtRfsAPhVnRpZHH83LFXqHmwV8v3Q/wCMf/Jxcy9D/fD4/wC5cTXf3J+H+6edcM6K3nuFrhja8LfDG14XcMbRwtFMbTwu4Y2vC7hja8LfDG14XcMbXha4HG0cLfDG08LuGNo4XcMbTTuGNrwtcMbXhb4HG14XcMbRwu4Y2nha4Y2vC7hja8LfHG14UdoKU1qzP/FqfryjVH93L3N+lH7yPvenZzL0rsVdirsVdirsVdirsVdirsVdirsVdirsVdirsVdir//R9U4q7FXYq7FXYq7FXkzf84+RAS2lv558022izMS+lx36iNVY1MaN6dUi7cP5cVZ/5P8AJvlzyfocOieX7RbOwiJcqCWeSRvtSSO1WeRqbs3+r9hVXFWI+ZPyP0bUvMV15i0XW9X8q6rqNBqj6NciCO6Ir8csZVh6v+Wv+tx5tyxVkvkX8v8Ay55J0qTT9GjkZriRp76+uX9a6uZm6yTykAu3/C/5OKo7zUK6Ddf88/8Ak4uZWi/vR8f9y4us/uj+P4nn3DOgt0VO4Y2tO442tO442tO442tO4Y2tO442tO4Y2tO442tO4Y2tO442tO442tO442tO442tO442tO4Y2tO4Y2tO4Y2tO4Y2tO4Y2tO4Y2tI7Q1pq9p/xlX9eUak/u5e5u04/eR970jOcehdirsVdirsVdirsVdirsVdirsVdirsVdirsVdirsVf/9L1TirsV +dirsVdirsVdirsVdirsVSvzOK6Hc/7D/k4uZWi/vR8f9y42r/uz+OrAuOb23TU7jjaKdxxtNO442inccbWnccbWncRja07jjaadxGNop3HG007jjaKdxxtNO442inccbWnccbTTuONop3EY2tO442tO4jG1p3HG1p3HG00jdFH+5a0/4yr+vKdQf3cvc26cese96JnPO9dirsVdirsVdirsVdirsVdirsVdirsVdirsVdirsVf/0/VOKuxV2KuxV2KuxV2KuxV2KuxVLPMv/HEuf9h/ycXMnSf3g/HRo1P92WC0zdW6mnUxteFqmNrTqY2tOpja06mNrwupja06mNrTqY2tOpja06mNrTqY2tOpja06mNrTqY2tOpja06mNrTqY2tOpja06mNrTqY2tI3Rh/uVtP+Mq/rynUH0H3NuEese96Dmidw7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq//1PVOKuxV2KuxV2KuxV2KuxV2KuxVLfMn/HFuP9h/ycXL9L/eBpz/AEFg1M29utp1MeJNOpja8LqY8SKdTHiWnUx4k06mNop1MbTTqY2inUx4k06mNrTqY2inUx4k06mNop1MbTTqY2inUx4k06mPEinUx4k06mNop1MeJNIzRx/uUtf+Mi/ryrMfQfczxD1Bn+aZ2jsVdirsVdirsVdirsVdirsVdirsVdirsVdirsVdir//1fVOKuxV2KuxV2KuxV2KuxV2KuxVLfMn/HFuP9h/ycXLtP8AWGrN9JYPTNnxODTqYOJadTDxLTqYOJabpjxLTVMeJadTHiWm6Y8S01THiWnUw8S06mPEtOpg4lp1MeJadTHiWnUx4lp1MeJadTHiWnUw8S07BxLTqY8S06mPEtIzR/8AjqWv/GRf15XlPpLPGPUGfZq3YOxV2KuxV2KuxV2KuxV2KuxV2KuxV2KuxV2KuxV2Kv8A/9b1TirsVdirsVdirsVdirsVdirsVS3zJ/xx +bj/Yf8nFy3D9Qa8v0sIzOtxOFrG14XVxtadjxLwurja8LdcbWmq42tN1xteF2PEtOxtadja01XHiXhbx4lp2PEtNVx4lp2PEvC3jxLTVcbWm8eJacceJaarja8KM0f8A46lr/wAZF/XkMh9JZwG4Z9mvcx2KuxV2KuxV2KuxV2KuxV2KuxV2KuxV2KuxV2KuxV//1/VOKuxV2KuxV2KuxV2KuxV2KuxVLPMn/HFuf9h/ycXJ4/qYZOTB65l8Tj06uPEtOrjxLTq48S06uPEtOrja06uNrTq42tOrjxLTq48S06uPEtOrja06uNrTq42tOrjxLTq42tOrja06uPEtOrjxLTq42tOrja0jNGP+5S1/4yL+vIzOxZRG7P8AMNyXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FX/9D1TirsVdirsVdirsVdirsVdirsVSzzL/xxLn/Yf8nFyUObGXJglcvtqp1cbWnVw2tOrja07lja06uNrTq42tN1xtaarja06uNrTq42tOrjaKdXG006uNrTq4LRTq4bTTq4LWnVw2tOrgtadXDa06uC0UjdGP8AuVtf+Mq/rwSOzKI3eg5jtzsVdirsVdirsVdirsVdirsVdirsVdirsVdirsVdir//0fVOKuxV2KuxV2KuxVTnuLeBOc8qRJWnJ2CivhU4qqAhgGU1B3BHQjFXYq7FUr8z/wDHDuf9h/ycXDHmiXJgdcttrp3LBaadXDa07lgtadXG1p3LG0U6uNpp1cbWnVw2tO5Y2tOrgtadXG1p1cNrTq4LWnVxtFO5YbWnE4LTTq4bWnVwWincsbTTuVMbWkbop/3LWn/GVf14CdkgPQ8rZuxV2KuxV2KuxV2KuxV2KuxV2KuxV2KuxV2KuxV2Kv8A/9L1TirsVdirsVdiqW+Zdes/L/l7Utcvf95dMtpbuYDYlYUL8R/lNTiuKvHvIP5Rab5/0iDz3+ZqSa3q+vILux0+SWWO0sb +OX4oIoY42TcxcWZm/m/n5SOq9d8qeVdE8qaBbaBocBttKszKbaBneUoJpWmYc5Czkc5GpybFXg/5/arfeetN80adpkpTyl5Ht3m1e6Q0F3rFKRWqkfajsw3qT/wDF3FGX7DYq9v8Ay+/5QLy1/wBsqy/6h0xVFeaP+OFc/wCw/wCTi4QpYDXDbF1cbWnVxtXVxtXVxtXVxtXVxtadXG1p1cbWnVxtadXG007G0U6uNrTq42rq42tOrja06uNrTq42rq42tOrja06uNrSO0Q/7l7T/AIyr+vElL0XIpdirsVdirsVdirsVdirsVdirsVdirsVdirsVdirsVf/T9U4q7FXYq7FXYq87/wCch0uG/JbzWIK8/qik0NPgEyGT/hA2KsU8r/kD5P8ANHkrRtX80z3mo69eafbTW2oxXc8S2KPCjRQ2USv6SRQpxVfUjkZ+PqP9rFWM2H5r+dvL/wCUnmDRy11rHmnRdeuvK1lq6xvcMscQ/wB65eAZ2aBOfGqszN6PLn8eKoPzF+YH5e6R+ReqeStEs9Z9V7J42vLvTriITXMrBpZ5pXFFMj8mq32fs4q9l/JjzjpfmPyPpkdjDdRNpdlZ2lwbqB4AzrbqCYuf94m321+HFWT+af8Ajg3X/PP/AJOLirz+uNrTVcVbritOrirq42rVcVp1cVdXFW64LVquFXVxtXVxtabrja06uK06uKurgWmq4VbrgtaarhVuuC1pxOFUdoZ/3MWn/GVf14q9HxV2KuxV2KuxV2KuxV2KuxV2KuxV2KuxV2KuxV2KuxV//9T1TirsVdirsVdiqE1fSrHV9KvNKv4hNY38MltdRHo0UqlHH0qcVeQ6L5P/AOcgvKWljyp5c1PQtQ0C3rDpGr6mLgX1rbknirxxgxStEppF9pf5v3f7tVWffln5AtPI3lePR4rh767llkvNU1CXZ7m8noZZSO1aBVH8iry5N8WKqn5m+WL/AM0+Qdc8vafJFFe6nbNBBJ +cFliDEg1corsBt+yjYqmnlbS7jSfLOkaXcMj3FhZW9rM0ZJQvDEsbFSQp41X4ariqzzV/xwLr/AJ5/8nFxV57XIpdXFW64q1XFLq4odiluuKtVxQ6uKW64q1XFXVxV2Nq7G0Oril1cbQ6uKW64q1XG1dXFXVxVH6Ef9zFn/wAZU/Xih6TkkOxV2KuxV2KuxV2KuxV2KuxV2KuxV2KuxV2KuxV2Kv8A/9X1TirsVdirsVdirsVdirsVdirsVSnzX/xwLr/nn/ycXAUh53XIpdXFXVxV1cVdXFXVxV3LFXVxV1cVdXG1dyxVwOKt1xVquKurirq4q6uKurirq4q6uKuriqP0I/7mLP8A4yp+vCpel5Ji7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq/wD/1vVOKuxV2KuxV2KuxV2KuxV2KuxVKPNv/KP3X/PP/k4uApDzquRS1XFXVxV1cVbrirVcVdXFXVxV1cVdXFXVxV1cVbrirVcVdXFXVxV1cVdXFW6jFWq4q6uKphoJ/wBzNn/xlT9eIV6bk2LsVdirsVdirsVdirsVdirsVdirsVdirsVdirsVdir/AP/X9U4q7FXYq7FXYq7FXYq7FXYq7FUo83f8o9d/88/+Tq4CkPNq5FLdcVdyxV1cVaril1cUOrirdcVdXFXVxV1cVariluuKurih3LFXVxV3LFXVxV1cVdXFXVxVMNAb/c1ZD/i5P14hXp+TYuxV2KuxV2KuxV2KuxV2KuxV2KuxV2KuxV2KuxV2Kv8A/9D1TirsVdirsVdirsVdirsVdirsVSfzf/yjt3/zz/5OrgKQ81rgS6uBXVxVquKt1xV1cVarhVuuKurirVcCt1wq1XArdcKurgV1cKurirq4FarirdcKurirq4FTDy+f9zVl/wAZk/XhCvUskxdirsVdirsVdirsVdirsVdirsVdirsVdirsVdirsVf/0fVOKuxV2KuxV2KuxV2KuxV2KuxVJ +vOP/KOXf/PP/k6uAqHmXLAydXFXVxV1cVdyxV1cVdXfFDq4pdyxV3LfFXcjirq4q7ka4q7liruWKurirq4q6uKurirq4q7liqY+Xj/ucsR/xcn68UPVckh2KuxV2KuxV2KuxV2KuxV2KuxV2KuxV2KuxV2KuxV//9L1TirsVdirsVdirsVdirsVdirsVSXzn/yjV5/zz/5Opiry+uBLuWKu5HFbdyxV3LAruWFXcsVdywK7lhV1cVdyxV1cVdyxV3LFXBsVdyxV3LFXcsCu5YVdyxV1TiqZeXD/ALnLH/jMn68VesYUOxV2KuxV2KuxV2KuxV2KuxV2KuxV2KuxV2KuxV2Kv//T9U4q7FXYq7FXYq7FXYq7FXYq7FUk86/8ozef88v+TqYq8t5HAl1cVdU4q1XFW64q7lirq4q7lirq4q7lirq4q1yxVvlirq4q7liruWKu5Yq7lirq4q7liruWKpj5bP8AuesP+MyfrxV65hQ7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq//9T1TirsVdirsVdirsVdirsVdirsVSPzv/yjF7/zy/5OpiryrliruWKu5Yq7liruWKuLYq7liruWBXcsKurgV3LFXcsKu5Yq7liruWKu5Yq7lXFXcsVdywK7liri2K2mXlpv9z9gP+L0/XhV6/irsVdirsVdirsVdirsVdirsVdirsVdirsVdirsVdir/9X1TirsVdirsVdirsVdirsVdirsVSLzx/yi17/zy/5PJiryfliruWKu5Yq7liruWKu5Yq7liruWKuriruWKu5Yq7liruWKu5Yq7liruWKu5Yq7liruWKu5Yq7liqZ+WW/52DT/+M6f8SxV7FirsVdirsVdirsVdirsVdirsVdirsVdirsVdirsVdir/AP/W9U4q7FXYq7FXYq7FXYq7FXYq7FUh89GnlW+/55f8nkxV5JyxV3LFXcsVdyxV3LFXcsVdyxV3LFXcsVdyGKu5 +4q7liruWKu5DFXcsVdyxV3LFXcsVdyxV3LFXcsVTTyw3/Ow6f/xnT/iWKvZcVdirsVdirsVdirsVdirsVdirsVdirsVdirsVdirsVf/X9U4q7FXYq7FXYqk/mz/F/wChJv8ACP6P/TnJPQ/S3r/VOPIepz+r/va8K8OP7WKvPL28/wCcnbKznvLqTyLDa20bzTyt+l6JHGpZmPsqiuKpn+WHn7zpr35US+dPMGmQyajJHdXenaXpkcsbTwQKfSRVlkncy3Dxv6bfyPF8H8yqVyXv/OT89q2rQ2HlmzCj1I/Lsr3MtyygV9N7lWWD1j0UoyxfzYqy/wDK38wLfz55PttejtmsrkvJbX9ix5GC5hPGSOtBUdGXb7LYqjvPv/KJ33/PL/k8mKvIOWKu5Yq7lih3LFLXLFW+WKu5Yq7liruWKu5Yq7lirg2Ku5Yq7liruWKu54q7liruWKu5Yq7kMVdyxVNPKzf87Fp3/GeP/iWKvasVdirsVdirsVdirsVdirsVdirsVdirsVdirsVdirsVf//Q9U4q7FXYq7FXYq7FXlf/ADkDqd3c6DpfkPS5OGr+d71NNUr9qOyQiS9mp/KkVEf/ACJMVel6Xptnpem2mm2UYis7KGO3toh0WOJQiL9CjFWP/mP+YGmeSfLzajcqbnULhvq+j6XEC013dvtHDGi1Y1b7bfsr/scVS38lPJOo+UPIdtY6swbWr6abUtWC04rc3bc2RaVH7teCHf4mVmxVOvP5p5Rv/wDnl/yeTFXjnLFXcsVdyxVvlirQbFXcsVdyxVvliruQxVrliruWKt8sVa5Yq3yxV3LFXcsVa5ffiruWKu5Yq3yxVrliqbeVG/52PTf+YiP/AIkMVe3Yq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq//R9U4q7FXYq7FXYq7FXkHkvj51/OvzH5wP7zSPKSf4c0JuqNdH47+Ve3JS3o8gfiifFXoPnzzlpnkvyjq +XmfU1kks9OjVniiFXd5HWKNF/15XReR+FftYq+efIn5w/lTf+Yj5//MTzKknmghk0fRo7S/ltdIt2/YjKwFJLlx/ezj/YYq+ivKHnLy35w0ZNa8uXn17THd4luPTlhq8Zow4TJG+3+riqH/ML/lD7/wD54/8AJ9MVeMc8VdyxV3PFXc8VdzxV3LFXc8VdzOKu5Yq7niruWKu5nFXcsVdzxV3LFXcsVdyxV3LFXcq4q7lirueKpt5Sb/nZdN/5iI/+JDFXueKuxV2KuxV2KuxV2KuxV2KuxV2KuxV2KuxV2KuxV2Kv/9L1TirsVdirsVdirsVdirsVdirsVY3+Ypp5N1D/AJ4/8n0xV4pyxV3M4q7liruZxV3PFXcziruWKu54q7kcVdyxV3I4q7nirueKu54q4PirueKu54q7nirueKu54q7niqb+UWr5n0z/AJiI/wDiQxV7xirsVdirsVdirsVdirsVdirsVdirsVdirsVdirsVdir/AP/T9U4q7FXYq7FXYq7FXYq7FXYq7FWNfmQaeS9R/wCeP/J+PFXh4fFXcsVdzxV3LFXc8VcHxVxbFXc8VdzxV3LFXcsVdyxVwbFXcsVdyxV3PFXcsVcWxV3PFXc8VdzxVOPJ7f8AO0aX/wAxMf8AxIYq99xV2KuxV2KuxV2KuxV2KuxV2KuxV2KuxV2KuxV2KuxV/9T1TirsVdirsVdirsVdirsVdirsVYz+ZZp5J1H/AJ4/8n48VeF8sVdyxVrkMVb5Yq7niruWKu5Yq7lirueKtchiruWKt8hirueKu5Yq7n44q1zxV3MYq3yxV3LFXc8VdyxVOfJrf87VpX/MTH/xIYq+gcVdirsVdirsVdirsVdirsVdirsVdirsVdirsVdirsVf/9X1TirsVdirsVdirsVdirsVdirsVYv+Zv8Ayg+pf88P+oiPFXg4bFXFsVdyxVxbFW+QxVrliruWKu5Yq3yGKtcsVdyxV3LFXcsVdyGKu5 +Yq3yxVrkMVb5Yq1yxV3LFXcsVTryW3/O16V/zEx/8AEhir6GxV2KuxV2KuxV2KuxV2KuxV2KuxV2KuxV2KuxV2KuxV/9b1TirsVdirsVdirsVdirsVdirsVYt+Z/8Ayg2p/wDPD/qIjxV4JyxV3LFXVxV1cVdXFXcsVdUYq7lirq4q6pxV3LFXFsVdyxV1cVdXFXcsVdyGKu5Yq6uKu5Yq6uKp35Kavm3Sf+YmL/iQxV9E4q7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq//1/VOKuxV2KuxV2KuxV2KuxV2KuxViv5o/wDKC6n/AM8P+oiPFXgPLFXcsVdXFXVxV1cVdXFXVxV1cVdXFXVxV1cVdXFXcsVdXFXcsVdXFXVxV1cVdXFXVxV1aYqnfkg/87dpP/MVF/xIYq+jcVdirsVdirsVdirsVdirsVdirsVdirsVdirsVdirsVf/0PVOKuxV2KuxV2KuxV2KuxV2KuxViv5pf8oJqf8Azw/6iI8VfP8Airq4q7FXYq7FXYq7FXYq7FXYq7FXYq7FXVxV2KuxV2KuxV1cVdirsVTzyQf+du0j/mKi/wCJDFX0dirsVdirsVdirsVdirsVdirsVdirsVdirsVdirsVdir/AP/R9U4q7FXYq7FXYq7FXYq7FXYq7FWK/ml/ygmp/wDPD/qIjxV8/wCKuxV2KuxV2KuxV2KuxV2KuxV2KuxV2KuxV2KuxV2KuxV2KuxV2Kp35I/5S7SP+YqL/iQxV9H4q7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq//S9U4q7FXYq7FXYq7FXYq7FXYq7FWK/ml/ygmp/wDPD/qIjxV8/wCKuxV2KuxV2KuxV2KuxV2KuxV2KuxV2KuxV2KuxV2KuxV2KuxV2Kp35I/5S7SP+YqL/iQxV9H4q7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq//T9U4q7FXYq7FXYqsnn +gt4JLieRYoIVaSWVyFVUUVZmJ2AAGKvJpP+ckfLzxTalp3lrzBqfli2ZhceZLWxrZhU2eRS7o7RR/7sfivH+XFXpWi+ZNE1vQbbX9Nu0m0i6h+sRXdeCemK8i3KnDhQ8+X2OPxYq82uP+ckfLfGe/07y9r2reWbSR47rzJZ2XOxX0zR3VmdWaNP234rxxV6doet6VrukWmr6Tcpd6dexiW2uI/ssjfPcEdGVviVvhbFUi/NL/lBNT/54f8AURHir5/xV2KuxV2KuxV2KuxV2KuxV2KuxV2KuxV2KuxV2KuxV2KuxV2KuxVO/JH/ACl2kf8AMVF/xIYq+j8VdirsVdirsVdirsVdirsVdirsVdirsVdirsVdirsVf//U9U4q7FXYq7FXYqknnfy/J5j8na3oEU31eXVbG4tI596K00bIpalTxqfj/wAnFXiHl78+NI8m+SIPIWsaRInnzRII9Hi0ONUe3upVT0o5frAPoCKT4Xn5tz+J/hfFVTzToWr/AJY/84l3eh3M3+5cwC3uTE1URtRvB60SsP2VhleMkfbb/WxV7j5c8vWOi+WNP0CGGMWdjaR2npAVRlRAjVB+1z3LcvtftYq8z/5xp5WOhebPLNa2/lvzLqOn2YqSqwKykKtd/wC8Mjf7LFWb/ml/ygmp/wDPD/qIjxV8/wCKuxV2KuxV2KuxV2KuxV2KuxV2KuxV2KuxV2KuxV2KuxV2KuxV2Kp35I/5S7SP+YqL/iQxV9H4q7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq//V9U4q7FXYq7FXYqwP89da13Rfyl8yanoTOmpwWyiKWI0eNJJUjmlUj7LRQtJJy/Z44qlflD8tvyfufyrtbSOxsL7QbyzSe91OQIZJZDHWS4kuD8ccynl8XNfQ+z8HHjiry3TtN1rzV/zix5r0yKabUbfSNQuR5cupKySXGnafPFMpHd/hFxGg/wAlUX7OKvffLXnzy/rHkW08 +3/XYo9LktFubu4ZgFhYIDMklPsvE1VZf5sVYX/zjfaTy+U9b8zzxNEfN2u3+s26yDi31eZwsdV6blHf/AFW/lxV6pc2trdQNb3UKTwPTnFKodGoaiqsCDuMVQX+GPLX/AFabP/pHi/5pxV3+GfLf/Vps/wDpHi/5pxV3+GfLf/Vps/8ApHi/5pxV3+GfLf8A1abP/pHi/wCacVd/hny3/wBWmz/6R4v+acVd/hny3/1abP8A6R4v+acVd/hny3/1abP/AKR4v+acVd/hny3/ANWmz/6R4v8AmnFXf4Z8t/8AVps/+keL/mnFXf4Z8t/9Wmz/AOkeL/mnFXf4Z8t/9Wmz/wCkeL/mnFXf4Z8t/wDVps/+keL/AJpxV3+GfLf/AFabP/pHi/5pxV3+GfLf/Vps/wDpHi/5pxV3+GfLf/Vps/8ApHi/5pxV3+GfLf8A1abP/pHi/wCacVd/hny3/wBWmz/6R4v+acVd/hny3/1abP8A6R4v+acVd/hny3/1abP/AKR4v+acVd/hny3/ANWmz/6R4v8AmnFXf4Z8t/8AVps/+keL/mnFV0Pl7QIZkmh0y0imjPKORII1ZSO4IWoxVMMVdirsVdirsVdirsVdirsVdirsVdirsVdirsVdirsVf//W9U4q7FXYq7FXYqsnghnhkgnjWWCVSksTgMrKwoysp2KkdRirzOX/AJxp/JmS9e5OhFI5H9WSyjurpLUuN6+isoSn+R9j/JxV6Np2mafpunwadp9tHa2Fsgit7WFQkaIooFVRsBirz+5/5x0/J241Z9Sk8voHlkE0tok9wlo0gNeRtlkEP+w4en/kYq9GgghghjggjWKCJQkUSAKqqooqqo2CgdBiq/FWN+cfPmj+VLjQYNRhuJX8w6lBpFkbdUYJPcmiNLzePjEP2inNv8jFWSYqxzTvPekX/nfV/J0MNwup6LbwXV1M6oIGS5AKCNg5csK/FyjTFVnlrzZrOreZPMOk3vl270m +z0aaOKw1W4P7m/VwSzw1Vdlp+y0v2viZH/d4qybFXYqw2w8/TXX5ran5GNmqw6fpkWpLfcyWcyyKnpmPjQAcvtcsVZlirsVdirsVdirsVUp7q1t+PrzJFz2TmwWp9qnFVXFVN7q2SVYXlRZn+xGzAM3yB3OKqmKuxV2KuxV2KuxV2KuxVjPmXzZrOk+ZfL2k2Xl271Wy1iWSO/wBVtz+5sFQLxeb4W2bkftNF9n4PUb4MVZNirsVdirGfOPmzWdBvtBt9O8u3euxateraXtxaGi2URpW4l+FvhFf2jEnw/wB79lWVZNirsVdirsVdirsVdirsVdirsVf/1/VOKuxV2KuxV2KuxV2KuxV2KuxV2KvFv+cldSsdLk/LrU7+UQWNj5rsLm7nIJCRQkvI5Cgn4VUnYYqyD/oY/wDJL/qabf8A5FXP/VLFWLflX5p0DzR+fnnjWNBvFvtNm0zTliuUV1DGNQrCjhW2YU6YqzjyF571fzD5y88aJew28dr5avYLWweFXWR0ljZ2MxZ3Vmqu3BY8VYyPzD/M7zv5g1az/La20u08vaHcNY3Ov6v60gubqP8AvI7aOH9hCftN9peL8vi4Yq35Y/NT8wpfzZsvy/8ANGj2NhcDTpby9ubUyyRzsrH0prSRnBWBwOLRzReqsiP8eKsd1rW/Mmnf85K63a+WNOj1HXdR0C2gtRcuY7SALIHe4unQF/RjC04xj1JHdEX7WKsgsPzC/NDyx+YOi+WPzDttLudN8zmSLSNY0gTRrHcoAfRmSYn7VVVNv2+XN/jSNVP/AMxfzG1vS9e03yb5O0+HVfOWrRtcol27JaWdoh4m6uinxlC4KKiFWb/W4JIqkkfnz80vJ3mLRLD8xYNKvND8wXS6da61pHrxm2vJQfSjuI59mSUiisvHj8bs3w8MVXefvzY85aL+a1n5F8v6Va6nNqmjC809JfUR/rjXEsZM0ofglrFBC80n7v1G48Fk+NcVZ15GXz4ujO +nndtOfWVnfjJpPq/VmgKqU/vgH5hi6t8OKpT+b3nPVPLHleEaIiP5j1y9t9G0ISCqLd3bELI43+GJFeTcceSry+HFUp0z/AJx7/Lz6sZPMtq/mjXJ1rqGs6nJLJNLIftFBz4wpUngkf2P5mxVB+exceRvKHl38v/ILtp9/5g1A6ZpdxK7TNZ28rvcXMymQszegjcY6n4FZf5MVRtr/AM45flMunm31DSDqt7KAbvVr2ed72aSgrI0wdWRjT/dfDFUL+Xeral5V86eYPy61nUZb/TtLso9a8v6hePzuF0129KWKZzvILaUcEf8Ak/2CqqzLSPzC8t6pqNvp8P1u3nvVZ9Oa9srqzjugil3+rvcRxrIVQepwHx+l+8VfT+LFWSYq838+fmL5mi8123kXyHp9tqHmma3+u393fs62NhaluKyT+n+8d3P2Y0+L7LfFyxVAaZ59/Mjy15x0by3+YttplxZ+Y3eDSNc0j1kRbpFDCC4imqQZK8Y2T/hvj9NVS8w/ml59j/Nq9/L/AMuaVZXsp06G8srm5MsaQM7ASzXbq55QIp4rHDF6ryunx4qk9/8Am9+avkvzHD5Y846NYa1qetxf86tPoplijnujIsfoTifkY1Tnzkl/3Wn8/L4VUZqP5g/nD5J1/QZPPlvol15Z1+9i02S40n6wkllcz19Pl65/eR7MWPH/AHW3938PqKss87+fNY0L8xPIflu0ht5LHzRLqEeoSSq5lQWcMckfolXVVqZDz5pJ/scVSfzF5/8AP+r/AJg6n5G8g2+mwXOhW8E+tatrBmaNWukEkUUEMNGZuDKWdvh+1/L8arJNG1vzlonk3V9W/MJLD63oy3Fy0uj+qYprO3gE3qBJvjWYkSqyfZ+H4cVYToXmj/nIbzTolr5s0S18t2mk3yfWLDRbtrt7l7dvsepcR0jWV1+zRVT7PP8AaXFWWfmP571fyzr3kvT7CG3lh8x6smnXzTq7MkTCpaIo6BX/ANcOv ++TiqF/Mb8y9Z0fX9L8m+UNNi1jzlrEb3EcVy5jtbS1SoNzcsvxFCysqopXnxb4ufppIqxvXfPf52fl9DFrvnWy0bW/KnqImqT6ILmK6s1kYIJeE/wAMkSsy/wCU37TR/axVPvzm/NS98j+VtB8waPDDqFvqmq2lpMGR5S9ncQyzM1uqPF++YRL6XLkvxfYxVj/mzzp/zkH5d0aXzndaRoX6AtFE975eSS4bUIbWtWL3G0DTRg/vPTXgv7KSYqyfzx+btton5e6P5p0ez/SNx5lks7bQbWRvTRp9QjMkXrN+wqIrc/8AKXh8P2sVXeVx+e8Wv2h80N5duNBuOf15dNF2lzbMImaP0zMeEqerwjfl8XH4sVeg4q7FXYq7FX//0PVOKuxV2KuxV2KuxV2KuxV2KuxV2KvHv+chUR9T/LFHUMjecNNDKRUEF6EEHFXq36H0n/lit/8AkUn9MVeVeS4IYP8AnJDz5HDGsUY0rTKIgCgVRewxVf8Ak7/5M/8ANn/tq2n/ACZfFUJ/zixf29v5GvPKt1II/MegaleQ6taOaTcmlLCUq3xcGrw5/wAyYqh5vMWlat/zlZpltp863P6L0G5tbuWMhkWcyNI0XIbco1ZOf8rNw+0uKploYH/Q0PmQ9/8ADdrv/wA90xVv88f+Uw/Kz/wJI/8AiIxVif5geXrS5/5yPgi1nzFqvli113REi0jU9JvBYtLcQTfHaPKyuCrf3nD/AH56X7TYqyXU/wAhfK4udNXX/Pvmi+UXkMthYanq0U8UtzE3JAsUkPxt/qfFx5Yqvv1U/wDOWOnEgEr5PYqT2P1+UVH0HFXsOKvLf+cgLa8ttD8vea7aCS6j8o65aavqEEQ5MbKPklwVHXkiuGr+yvJmxV6No+s6VrWmW2qaVdR3un3aCS3uYW5I6n+P8yn4lb7WKvMPzuuVsLnyZ5/g/wBM0rytqzjV2t/3vp2typtZ5aLWv1d14utfhb/hVXqdjqNhf2MO +oWVxHcWNxGJYLmJg0bxsKhlYbFaYq8t8mXMHmz88fMfm/TWE+haNpMXlm3vkIaG5uDcfXLj0mGzrC3GNmHw/F8OKsgWX/Gvm3TL2zHLyv5XuZbmPUO17qXoyWoW3P7VtbJNN6k1eEtxxjj5rFJirOsVfOGu+VbW+/wCck/MFhq/mfWfK769p9lcaFNpF79Q+siCJYJIGcpIJCHjeRI/h/bxVmDfkX5Xt/Mfl+fWPPPmXVL6yv4r/AEbTtW1SK5SS5s6z/DFJDyaiRv6np8W9Pn8S4q3oYH/Q0PmQ9/8ADdrv/wA90xVb+bAB/Oz8n6/8tGs/9Q0GKr/+cmf+UP8AL/8A4Emmf8SfFVn5sf8Ak7fyg/5iNZ/6hoMVTjzl+Veg+afMs2v6Dr1z5d87WCJa3WpaZKrNxKB44ry3Jo6lGR1VvTZ04fFx44qgvyp88atrumeb9E88T2V63lW5ksdR1uELHZ3VsY2LvKNo0ZFV/X48UVf2ftYqxbzb5Q1r8ofLN15t/L3zO8fl2yK3EnlXVGF1YSRyuKpaykiWIuW5IEbnJ/v3FU0/NfUv0pq/5O6l6LW/17W7W59B/tR+tEr8G6brypiq+91C18t/85Ord60y21l5l0BbHSL6UhY/rEFwrvb822Vm48qV+J3iX7T4qn//ADkLrumab+VGu2t06teavbtYaZZj4pZ7ichEWJBVnZC3P4RirC/zc0q70n8svym0m9+K7sNe8vWl0TvWSG0ljeu5/aU4q9S/Nj/yVnnL/th6l/1ByYqw/wAo+WPKHmn8hfJ/l/zRw+p6hYWcdqGl9GQ3KxF4/QaoPrBVdlVftLz+Fk5YqlMV353/ACv89+VfLc/mOTzX5X8zXDWUFpqIU6naFVFJVmX4polqvqM44qvw8E+3ir3DFXYq7FXYq//R9U4q7FXYq7FXYq7FXYq7FXYq7FXYqk/mDyj5e8wzaXNrFp9ak0a8i1LTW9SWP0rqA1jk/dsnPj/JJzj +/AMnFU4xVKLPyl5fs/Mt/5mtrThreqRRQX136kh9SOAUjX0yxiXiB1RFxV2j+UvL+japq2qabaehf65Kk+qzepI/qyRqVVuLsyJQHpGqYq8081aB/zjd5u1+9v9Zv9Nh17T5ZLTVJVvzp1xzgYxyJOokhL8SnD1GX7K/DJxxVI/yzsvLGt/nS+p+RbOK38jeUNHbSobu3UiC4vriYyyem7D97RGbnJVm5Kr8mSVMVezweUvL8Hmi580xWnHXry2SyuLz1JDygjYMqemW9IUYfaVOf+Virtc8peX9dvNKvNVtPrFzolyL3TJPUkT0p1FA9I2VX/wBWTmn+Tiqj5w8jeU/OOmDTPMumxajZq3ONZOSvG9Kco5EKyRtTujLirHvKv5E/lh5Y1WHV9N0gvqlttbXl3PPdPEKUHpiZ3RKVNGVeX+VirJn8o+Xn82R+bWtK+YIrP9Gx3vqS7WpkMvp+ny9H+8Zm5+n6n+ViqcYq0yqylWAZWFGU7gg9jirzq7/5x8/Kqe6mni0qWwS5bldWlhd3VnbSn/KhglSMCm3wKmKsy0Tyt5e0PQIvL2l2MVvosCPFHYULx8JWZpFYOW582dy/Ply5Yqwuf/nHj8p5ZZCulTQWkx5T6bb3t5DZuTua28cqxgf5Kqqf5OKs1g8s6Db+Xm8u2lmlnozQPa/U7XlbhYpFKuEaIo6MQx/eIyycvj5c8VSzRPy78t6JLavpsmpxpZKEtraTV9VntlRV4Kv1aa5kgZFX7KNHxXFWTYqx3zr+Xnk3ztYJY+Z9Mj1CGIloHYtHLEWpUxyxlJErQcqNxb9rFUp8ofkr+W/lLVRq+j6VTV1VkTULmaa5mRWBUhGmdxHVSy1QK3H4cVZDB5S8vweaLnzTFacdevLZLK4vPUkPKCNgyp6Zb0hRh9pU5/5WKtat5R8vatrej65qFp6+qaA0z6TcepKnotcqqSngjKknNUX+9V+P7OKt+ZvKXl/zPZ29nrlp9btrW5 +ivYI/Uki4zwEmN6xMjHjX7LfB/k4q1q3lHy9q2t6PrmoWnr6poDTPpNx6kqei1yqpKeCMqSc1Rf71X4/s4qxrzZ+Rv5aeatdk17VtMc6vOqJc3dvc3Fu0qRqEVZBFIitRVVa8eXwrirINI8ieUNH8szeWNM0qC10G4jkiubFAeMqzLwl9ViS8jOnws7sz8cVYjpf8Azjj+T2m30V3DoXrCB/Ut7W5uLm4to2rWogmkeNv9mr4qzTXPKXl/XbzSrzVbT6xc6Jci90yT1JE9KdRQPSNlV/8AVk5p/k4qt81+TfK/m3SzpXmPTotSsS3NYpagq4BHJHUrJG1DTkjK2Ksa8rfkV+V/lnVY9W03R/U1OCn1a6u5prtoadPSE7usZX9llXn/AJWKsm8y+UfL3maGxh1u0+tx6beRalZL6ksfp3UAYRyfumTlx5t8D8o/5lxVHatpdhq+lXmlahF69hqEEtreQ8mTnDMhjkXkhV15IxHJWVsVY9rH5W+Q9Y8oWfk/UdLWfy9p4jFjZmWYGIwqUjZZQ/rclRmXkZP2vixVC+Tvya/LryjqP6U0bS6arxKLqFzLLdTorChEbzs/p1BKn0+PJcVZrirsVdirsVf/0vVOKuxV2KuxV2KuxV2KuxV2KuxV2KuxV2KuxV2KsZ1j8sfy61m9N9qvlnTLy9YlpLma0haRyd6u3Hk/+z5Yqnunabp2mWcdlptrDZWcIpFbW8axRIPBUQKq/QMVROKuxV2KuxV2KuxV2KuxV2KuxV2KuxV2KuxV2KuxV2KuxV2KuxV2KuxV2KuxV2KuxV2KuxV2KuxV2KuxV2Kv/9P1TirsVdirsVdirsVdirsVdirsVdirsVdirsVdirsVdirsVdirsVdirsVdirsVdirsVdirsVdirsVdirsVdirsVdirsVdirsVdirsVdirsVdirsVdirsVdirsVdirsVf/U9U4q7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7F +XYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FX/2Q== + + + image/png + iVBORw0KGgoAAAANSUhEUgAAAQAAAADYCAIAAACLCqrHAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAACisSURBVHhe7Z1ndBNH2/cxkPfb+358nvs8J+dJoQZjW92Q3JBCCBCI6b0F4waEUBJ6772G4EYNNWBTQq8mYMC2JJvea8BgSig2Cdgqfn/yECHgDkmEZK2lWfaY1Wpndvba//8qM6O5yhXLTUoggCVQLoCfXT66lECxJIAEQUBLwDMEsL202f/Y+MZ5rHBJi3aKBvPXarWKxxLnnY13vUxc+ernEpVQm8IfPzCb5xkCCBxYLJbCwkInaJwv3hU9SpayE/f79++fM2fOo0ePTp48OXny5AsXLly5csWVADzagwcP+BZY/+XTOZWDkp89YNvmGQIINdm2bdt27do5NWhRUVHnzp379+//d1CikBfAU5w9e7ZRo0Y5OTn379//6KOPDhw4sGvXruXLl79gAc6cOTN37lzxsK9u/NWrVy9evPiXlylEAoHWDM8QAKnxgtu0aVO3bt1z585xDOhPnz6t0+m++eYboVnhw+PHj4VfwRlsBRsnOcZ0PHnyhL8voISPnKcUXwkvQpyhoNNXoQY+imq5TFQlPor6OcNHUbmoRNTjrEHUySZUNYjv3bs3BW/fvl2/fn0qEdWKb51P4TwpnkU0Ujw4m3g6UWrmzJlLly6lYKBhq0w8r8cIwNNCgKSkpIEDBwqIDx8+fNKkSQMGDOB4xYoVERERzZs3x0oArN9+++3DDz/s2bMn4Dh69GiLFi34qlOnTr/++quTAxykp6dTim+5sqCg4Ouvvx46dGiHDh0++OCDjIwM7rJ+/fomTZo0a9ZsyJAhAG7UqFH9+vXr0qXLpUuX+vTpQ9n27ds3aNDg+PHjlLp8+TJF9uzZM2PGDAFNwYGVK1d+8cUXXDx+/PibN29+8sknVapUwXBFRkb+61// +4i8WYPr06cB63bp1n3/+Oe1JTk6G3tyL4vhLFOdkr1698Jri4+P79u3btWtXGrlmzZrDhw+rVCqDwYBPVSYAEWiN9DABTp06BRTy8vLu3LkD1oHOt99+e/369YYNG967dw/YLVmyZPTo0b///vu777577do1UNWqVasjR47k5+fjbeNpOAkA4gElqOViWLRjxw5QtWDBAirZsGEDILt7927Tpk1zc3Mpy1cQCUQCbkC5fft24IjS5SuYBgHmzZuXmJjI7dDufHQGKjj3cI/W4tNDYNz9Q4cOQR7K0uBPP/2UKzdt2gS1bt26BZd4NGFbuF23bt0ePnwIA3kQoE+pffv2QRUemUYeO3aM5lHP7Nmzly1bJoNgZVLLYwQQLhCqd/Hixd999x04WLt2bVpaGi4QShezINQtF7Rs2RKHoU6dOpwBxDVq1CByQFWjyHEVnGICmnwFi/gKJIFpUA52KQW2UMzZ2dmwiG8pDgrNZjNqG33MBWPHjsU4iDvGxsYSraLauYy/hCV4O04XCMgGBweLu6Dd8ewhAKaGghAAF4iDLVu2QICDBw9CHqcfJQhAwPDee++J9mMH9u7dy4NjKMSj0WyeFN0PAahHmQgI8FZ5hgBCoQIjoj1ix88++ww7gE4FEKjDEydOAHoBOxT54MGDnQTgZL169VCuwnV2dZTRyihgnCXheaNTnQSABoDvl19+wUQI51t48FgAQQA8salTp3KG80S0NIBr4uLiZs2ahffijAG4EpNFs0Vx7sJXggAcQABUvpMAxDbYCueVkJA23LhxQ8QJXCaCDUyQIADtF80jVsbuSQIok2meIYBQqChCFDwHODNTpkzhAN0PAXj3gwYNwjUfM2ZM69atcRjwavBMRMiIC47qnTBhAk6La28JpdCdMIdAAkSivAUBKCK0L3glzMC5nzhxInYGl0lYAAoSS9CBA9O4e+3atYXPs3HjxtDQUMgmtLhoMwAV7j6VcD2eDJoeZ4avnAT +YvHkzbhtnhg0b1rFjR54C514QgMag8nkoHhmvjPCGjykpKdTPMRYAwuAH8oCpqanKRECAt8qTBABbQoUDIzYQA9BFXMt5vAWj0YhTLvCH7y76jsAQ3g5BLaGCq5rkK3QqTjlxpPC8gRR45TyoQr+KalHhWVlZ4iNeh7hA6G90ObTBFhFIcIZbwDGBezZxdzb0NybCZDLRVO5CDdTDtxThvlzAs2DWhIngKeghhWyU4qZcRiPPnz9PI2ke13CleHbOi+LUAwOxVwEONWU+vmcIoKhnA3MYGSJXwIovRGjBGWwLah4GKqqpsjE+l4B/EoDwA18c/4e/Qg0nJCTgmaCVfS5x2QBFScAzBLAVW4rtjl4OHAv+8/GOi4XjIf7anh7z0bGX+Fie2h0Pa+eR+f8vBoMV9cplY1wl4BkCWIoYYbVb8O3tlkDai3hYfHyCCYmqMioBDxHAWvTEAQUIgM4NlN3B+CI7JJA9/GUU/TTbMwQotBRN2Tzr25S+g1K/HZQ6IED2/in952ybXWgtdDhVciubEvAMAVCC1UfUrBhbsXxsUODsQbHldeM10v0pm8h/2mpJAPcZKwlQpqEvGi8JIAngBzB2/xEkASQB3EePH5SUBJAE8AMYu/8IkgCSAO6jxw9KSgJIAvgBjN1/BEkASQD30eMHJSUBJAH8AMbuP4IkgCSA++jxg5KSAJIAfgBj9x9BEkASwH30+EHJ0iNAhdjy5eOC3op6Ux0Too5Rhca+9/+i/2/52PJMKOBvWZxBJKdCSAI8lcDfmQxXMari/4l+Y+j3Qx7cu1eQn//w4V19b32F7uWD4ipUlATwAyiVzUcoPQuA+g/qWe7NuP9Rdw/rM+qrR/fza0fWqtCufIXoim/Eue+H+NB0SAtQNjH/XKtLjwAVYipUiH0jKLpcUOegVgMiHuUXGNrpgpoGVYzkfDkf4tjtW0sCSAL8AxdI4Cwoply5qKD2g1v+ll/wflt9UJOgCt1AvySAH2 +CpTD5C6VmAZ4o2rmKH4a0LIEA7SYAyCRp/arQvCBBbvt2wVvn5BbUkAfwJSmXzWXxBgLig9liAgge12odLF6hswsZ/Wi0J4H4HlAyC/YAHkgCSAH4AY/cfwQcEqBhTofnoiIL7+eEd9BU/f6NitwrlZC+Q+29QlnwtCfiAAMyJeDfm7bYDWv13w/8KiihfPjIoqGwupiJdoNeCnjIK+4AA5Xs4EF+hQ/kKoN8xEhzEGJnbo1E+LCgJoAwMv1YrfEAALIBjCa3IoApdyweh/mPKVYiTk+Fe6y3Kwm5LwAcEQGc7VD4zI0oUP+iXBHD7/cmCrykB3xAgKLYCe/nYigL9kgCv+RZlcbcl4BsClPwMoKzGvs6oQ8YAbsNOOQV9RQD3e999GPW+cGtJAOXg2O2WSAK4T0VJALdhp5yCDgI4syaSz9CZp1GcJKmWSOooLhP5gMWBSLQotr/zizDlaG5PtUQSQDk4drsl5QSagf5PP/1EUnVSKZIGlDNkqCbXdPfu3cePHy/yfpKdNyYmJioqKj09XRSRBJD5AdxGnkIKPiUA+D558iSJb0kkSlZnEvGSYHTcuHHkviV99KJFi8iMS75R8t2ePn2aBO4i+68kgCSAQnDsdjMcBHAaAZS6yCxNgus2bdqQ2xlNf+bMGTKhk0c6Li5OuEA9evQgL7TrLckL9t7IkDcCLkNMkH6sttBeaHfkSBK5Ir2yW4utRfbCklR8Mhuf21D/zwWfWQDStffv3/+zzz47ePAgBGjZsiVJz+EG+d8jIiJIsjtlyhTBlgkTJqxbt87VAlhsliY/NAubGxI6LyRsXmiA7MHzQvTzDU1++CJieUTjlU28t0csbTb74JwiEr1KAngY/yUZYoQFwOkntTrIbtq0KaDn77179wQBmjdvvmbNGicBcI0IGJzhckkQbG22qrU+UatN1OgStQGyh8drDAkaXYJGn6gPTzB4b9cl6cbvG22zOjokPA2AQK/vWS+Q0xdq2 +7YtTMACXL58GZRnZ2fj/OACERCLa4iDjx075voyrHZr81WtDQFGAE2iXpuoh/YGaJ/kzT1BOy5trEXqfy+w1UEAUE6Mu3z58hMnTmABcHgePnzIR3x90N+1a9e0tDTsA+c3lWzt27d//Pjx80GwtcXqNnrUYZJOL3dPS0CboB2/b4x0f7yA/xIXiNi3qKho7dq1Q4YMmTVrVl5eHpQoLCz88ccfhw4dumvXLi4A7levXqVLlL5RnCIRDbv0AkkCeJH5kgDegL6o86kFcA5yuQ51MQom+vvFSefGeU7yVxKgdMydJIB3CfD6tRMESxfIe2SQBHh9iP5ZDZ6aCyQJIF0g76HUizVLAngRuJ6yCdICeI8BkgCSAN5DVxmoWRJAEqAMwNR7TZQEkATwHrrKQM2lSIAEfXhiuC5Jq0pWaxJ178+qrZ8dbpivVy1U6xLCdYk6MYHCU36zP9UjYwDvMakUCZCkVyep9Im6D6fUGZ40MO3gtp8Pbh+/fPzHEz7UJ6khhiTAn5FWEsAvCJCoUS0M+2DWB/Grv8u7c2vxuiWLVyfn5uamHd5ZZ0ItLdMopAX4kzkUkgD+QIDwRL06OaTF1JZkyBs2Z3DV2BqVu1XqNLhN/v0HX8/to5oWpksocYESy4BTXsr+lSSAPxBAH2/QJml6zeq1YUfKv3u8/3bk25X6vls7VoMRmL1wRo1BNTRz1doEnYH5lZ6eTFbWK5QE8AcCGBJ12gUh4bMMmhG6aj2rVulfSTtB02fm1/cf3u81rHuluMqq6WH8nKCsg9Ub7ZcE8AcC4NvoEujq0eHthIwJrjklLHpKt5u5uWu3/BjcsXrlHpVV01SaRLUuWbpAL0pAEsAfCGBI0hocXr5OG6/RzjFETet6Pffqum0ptbvr3+ryZvVvq2nmqPhZiTc0aFmvUxLAHwigTzTw60FdfIjh+1q95/e4e/P2ynUrtdEhb0W+XbVPZfVEgmBHRxA/LyzrePV4+yUB/IEA +hkSDJllTa977fRN7592+sXDlQk1syDuRb9foUb3mxFDd91pNslqbKIPg/+ABSgL4AwF0yfxkPvTLWd3u37+btm9nz9HRUSMio0dGxkyOipjaSBvPWJhGTy9QkrQAMgbwHuBfrLn0RoIZB6Cnf0LiiBs3b+L9X79+zfHvxpXcq9fGLRqtnqHSxRMhEAPI2RCSAP5IAGIATZIqfEq4oXdocNv3akTUCG5XXdW5pqpzSM0e7703+j3NHI2WXiBJgJeGQaQL5D1ClJ4FIDTEAujjdcETa1TrV7VSj7eqffVO5a8rVe5Tqfo31YLHBGsdBHAsLuLxILKsVygJ4CcE4EXqE/Ta7zTqWWGq6SHqaTVVM0LDOJgRqp2j1c13uEDSArxMV0kAfyAASwZpHNPd9DqHL+SY/OwYGuMMgwMJYkk5RxAs5wJJAngP7i/XXLou0B/e7bP1s/6Y+lai+GX4+59HwaUF8B4lSpUAZd0X91X7JQEkAQJ6gpAkgHcJIJa8fXnjrs6TrpmRnKvHOZslF8byqnGQBPAiAZyLInJAhhhyAgh8O1dEFKsgipMPHjwgN4xYKlSuDepV0LtWLgngRQJQNYBmmzdvXnR0dMOGDePj48F3VlaWSqUiM4BYLR24c54sSZwhPwCL6crVoSUBvIfLUqv5aX4ACEAmPFCOgq9Xrx4ZYiDA2LFjncqeJaNZHp1F0kkf1rhxY1IHPJ8foKjFqta15xtKejnl7mEJqJLU49JGFzuSEno3QYat2GK3FVttz9IflhoQfXWjZ6tDo9Tv3r27ZcsWEiWBe7LlkRfj0KFD+EVg/eeffx44cKAICQYNGsSa6a4tttqLmm1uqlkZplkV6vgrd49KoNZSQ999fbIf5Jjyzeb8HC/t2fnZ2fmZxwvOPnlS6Cs4lv59n3aDovvPnz/fuXPn8PBwOMBHfqo7c+ZMMgaQNJJseSTOmDFjhiDA5MmTU1NTn3OBbLaWR1vqTDqdUaMzauXuWQl +ozGHqbLXWGI549Vne2nVGlcEU1u5klyfFv5c+EH11x+dSJIF78oLhAl2/ft0ZCi9YsICsGSSGGTVqlOgLGj58+M6dO10JYLFbmp1spjbptSat3D0uAbVZr3HI1qA261Re28PMGn1GeIfT7V27N3yFy1K771MXCJ8H554nJzEMYe6lS5dELxD9P3PmzCE+vnjxYqtWrbiGM2RQ5eNzFqDY1vJYC96N1qTx+OuXFZaWBDQQrNOJjiVZXwNle0qA/Pz8Xr16kf+UjiDSIkGDPXv2DBgwAHef2JecSEQIxABEBT179pw4caLoGH02DiAJ4A+mL4AJAJpBOSHvuXPnwDofoQQZ8tg4EO4Q6p/kkKdOnYIeEEBagNJSzKXmVQYqAV7f2tmkBZAW4PVh5IsaPDQZThJAEsAX8H39e0oClJqDofwbSRfIXUJJF8gv4gFJAEkAf/Bk3DY1kgCSAJIAATgO4C7sn5X7Oy6QzjGcqdMbNWHmUH2mIXzb+7W216510KA1qzUmjcao1Rj5K8fR3Nbfr19QWgB3qfB3CMAkFo05NMyob7a28YLNSUePms3HMpO3JnyyvpE+K5QhZEkAXwcSkgDeJIDWpAvJCa27qe6erO0Xfjk/dfnYyUvGnD13Zvu+VN06vSpTxeuXFsCnHJAE8CYBNCZmieqbrYg4c/ZMpylt351Q6e2xlTqPb3E7707j2Z/W3FlTm6XRMeXL+PqmXNbgngQkAbxJAPCtzVHrD2hrLdFVnxX8v5MqVU2o3HpGxO2bt5qNiai6qrr6oBorIQngOyMgCeBNAuiNar0ZJ0ev3qOuuap6g4S6Axb0zT5t/mn72srDqlZeWFX9M9GwloDYdwhwT3H6TSlJAG8SQGPkJx0atUkTmhmiOqAatmJoXt7N/IcPx0waWGl0lerLqmv3a7RmHRyQBPCRBCQBvEkAXqrarNKYaoUZa9P1WXdb7fAEw+iFY27fudV1evvgtcG6Qxq9jAF8yX9JAG +8SQGfU6U3qT1d/WG/xB7pDtdQZYWFbQ4Jnhuzau2VByvyQJSG6/Vp+VOkj5SfNDhKQBPAmAQwmvS5DO+WnqdeuXmq0vKHqsI6o9/3lhvSsn+PXzKsyt1rYDsdogNYssegrCUgCeJMAJWPAYU2WNcjNy912YEvbxHYdF7dbumvhzdwbzcZFvDu9cuimEC1xggyCfeYFSQJ4kwAas1pHL9DhsM7zOx4ypf96407e7bsZxoNfTulQeUzlt79/J3RnqIauUp+9fl/pXeXcVxLAmwTQZjmm/aiz9OqtweqZoZ8O/6TuyDohI0MrjX+r0tR331sVrNnvmBHkGAqQHPCNBCQBvEoARoIdy0Zoww6pgreGVVlctcrsSpVnVamUUDkkJVi1P0SXhf+jHHUYgC2RBPAyAQS+HZPeMtSqfWFh20JCt4Wp9oZp6QBF93PeMRAWgMhTyCNLApQKAbADesEERgb++Ov4aNaqsh1/pR3wkQQkAUqFAD56u5JXfykBSQBJgIB2wCQBJAEkAQL5J5Ei78sLuZLEsnDivPNYfJRLI/qXOxfwFgBYkyKAhdEF0DnYv3+/+AjcWRHxyJEjJpOJNBkvpkiSC2P5g+kIeAIUFBSwBHTHjh1B/MmTJ1kWl1QA9evXP3HiBItFjxkz5quvvvr666979+4NGaQF8C/1H8CT4YTPA+jnzp0L4gUBwPrBgwc5v3379n79+l29erVly5bgnq84IGuYKwGe2CxtjjRTmw2s+1AylCv3sigBZuOqOx7tarE+YYV0L+6ArdhitVuK7UXuRp0eK+dYGlGkAkDNA3r+dujQgYWgMQWsF815kmWQG2/Hjh3Dhg0TrhHrp2/bts2VAEVWy5ZHbdY80Kwu0K0u0Mq9LEpgFS8uX5tS8NGZoqgzthgv7taYM/ZOp63RD2xpHgOyuxU9zQ9A/tMvv/zy9u3bZ86c6dSpEwnzWrRoQcpUUE6OMAiwevXqV6RIIlnAMVurbKvOaKtls +oXLvWxKwJBlVeVY9Jk2TVax1nu70WYw2sOz7Jo82zp3ceuxck9TJJEHyWAw4Nx36dKlWrVqP/74Y9OmTeEDBCAIJiXM5s2bhQXgzODBg/fu3ftcDGC3HbG3Ndq0RrtO7mVUAiabPsNaK9vGG9R7dTfZtQ4O2Grftq3xGJDdreipBSA1GJnwrl27RjZIUiTxkWBX+DnLli2bPn06jlCTJk2IksmgikGAFc8Hwdbj9uZZXhacV9+KrLz0JGCDYAZTsf6OLcVd3HqsXLkXeveJbnGBiAouXLjQqFEj/KL27dvjBXEGF4h+ISJgzMVLKZIkAbyrNUsPnaWgxRRFAEEloc6dZBAHgJ782K6DX4QKGAHxlbQAfgXKUsC98xYKJMBrWhSyi0sXSPLh70pAEuDvSqo01ZK8V6lJQBJAEiCgJSAJENCvv9QUrWJvJAkgCRDQEpAECOjXr1jFXGoNC3QCOEYBtRk23d7btRbvbJBirp/J0CBj7zZdlmOQXHao+7sEAp0ATJewfpBpUa3Y1rvoyeP1W6cduG/ItDCPSKLf36EvtFuAE8Bk12dZDBtO1Dtz5pjd9mRVyoyVRtXe+xomh/wxiyYwcBCwti5QCRCeVfLkWdZaGY8Nqdun3Lj2y80bNxb9MHPiysqbrqlxgUp0g9cnY0kvy8cSCFQC6E328BJ8h6060OzmjevzF4y8ePFC8qJpIxf+78bLKmbhGm3iAmkB/FoCAUoAmwEdD8rTbn64/1BqRtaOYbM/vHTxwsIlM8YsfXfDpbA/CODX715yO3BjAAcBDCZr6PJt0Xdu3Zmc0Hjo/LBLF88vWTZrwsqqGy5rsmwak72WtAD+bwAD1ALY6eg0/HTy45OnD6dumj1tZZVRCYZLF84vXTF98upq6y+pM60aoyRAIJiIwCQAnf05Vt2P24bcuXtn/oLRc5J6zVvcLzf32s4dqZPiG66/oM208oMyfinHX+kF+bUEApMAWXaDuTB89eZhZ8+f +4Wc3586ePnfm9JMn+Xdu3l26ctIyc82Dj9US+gEhgcAkQKZNbyoO230jfN5G9YCpwf0nVh88JfzyxfPJi2b2HP5uQlrVtPtaRxws1b/fSyAwCYB7k2ENP1So33hFMz+t6sytlaZvqDk5oW2fsXX6z/yf5AM10u47+ogkAfxfAoFJALNNl21932hTHXqs3XffsOdu2K5bYetP10jYWy0hLXjLtZCMQoF+OSHCrwOAwO0GdbHsJfPeHHv677qdd0J33dWnP1Y5RoL93vrLB5QEcEW5gwZWXabFofMkAQKF/4HpAv3nt2urzeCAgL4kgCTAay7O4EZxx8JYr7/JVSECBbseceGkBZBwCWgJSAIE9Ov3iBIt05UolgCuKZKcuZLEynBiLUSxJpw4kCvDSRq7KQHFEgBYsyRodnY2B6yPS2qMrVu38pe1QYE7a6Zv2LBh7dq1Ytl0rnHJESZXhvP3znsP2hzFEoAEYV988QUZYsB3ZmYmKQISEhKSk5NZIbSoqIj0GVOnTp05cyYZNFgjWloAN/WfB5FURqtSGgGcKZLGjRsH4sE3Z4xGIx+djtDFixfbtWuHI4TWZ71oEsk8lyHGXnTC0ibTyu+59Ex6k7uUwCskAEhMzIy062/Y1uFJeHEvtthIxGQttBT/aS6mZymSyAwwfPjw06dPQwAcfQjAYuiTJk3KyMjgIymSSJInPJ+RI0du2rTJlQCsFf343IAnR6OKjnQrOip3KYG/ksCR7kU5X1pyeluPDPTifnSQ9fiAoqPDrL+f/7O+/qcJMvDyyQ2Tn59PiiSRJO/hw4dZWVkEAI0bNz58+PC6detIkyFsBYn0UlNTXQlgsRdZTg2xZPeymuPkLiXwFxIwxdhyullNPW3ZsRZTtPd2qznWltW9yBxneXTlVQQAyuS8+Oijj7p37966detKlSqRIsnZ4cMxrv/u3bu//fZb4RF988036enprgSw26yWkyNsxuhidlOs3KUEXiWBrB7 +F5phiU1Sx6Su7KdZ7u9UUbTfFWI3RtkeX/8IC0MNDBPzrr7+i9eEAH8mGjcfP1qdPn5UrV968ebNBgwb0/2AZyJUk0oc9q9RusZ4aaTOBfh5MEkBKQBESsAN9c5QVjr3aAjj79Tkg2EXB4/Tj/NALxEZuPLKm8hWJIokKSJ9K3+gLKZKKJQEk7ZUngb9LANcUSc6xMBCPHWATfr/Y6P18/PjxywNhkgDS7ilQAv+AAK87H05aAOXpPwUispSbJAmgCE+0lN+6vJ1TApIAkgABLQFJgIB+/dIUSAJIAgS0BCQBAvr1SwugLALYzNE2U4zdFGXPjrGaujNsbDPFWk09LKYom7EHx3YGrh0XSNRKCXhGAsoigN0Ya8txzJUwre+1bf3329cl7Vi3aPea+buXjbu7v7sNYpQQQOotKQFPSUBZBCjO6mU90q3YGLN1xaiCe/czDuzLSN956OCuTSlJJ9Z++Xt6V0kAT714WY+QgMIIYIqzGZmZFLN9XWLmgV0LRkUkDauTPPrjFRM+P7yo6Z2dHS1ZscVGz9g+iQApAeURwBhlN8X9ntHr552pG1bHzxz0WeKoz3YnRBxcEHF2basH+7pas2KwD/LNSQl4SgJKswDdrca4q9uiTh3PSd+zJydrf/bhtI3Lphxe2/VRemRRZlRJACDnk0ob6DEJKI0AcXZTZOayyHv3fj1/7tTK5fM3py7Nu5OXnb7zWErkk4wYmltsZgK3x57fU4pE1lNGJaAsAthMcfxAIW9vl41JMd8Pbzq1j+H7wXXiJ/d/+ODB2u/7XN/e1ZoZ5SCAWRJASsAzElAYAYw9ikyRVzZ2zVzaJm1hxMaZDXYnNlsxqcX13Nw1C6cdXNz00f7u8vc0ZVTXKrPZyiJAcVZPa3a3HUvHHz681bwi6tetne/t67JrcXTe7VtJ0/tvmt3gzu4udjNekGfYr8xXIltVmhJQFgHsph4MA+ekxJw9e3zX5sSdi3rtXjU4J3PXla +sXpw/4fMP0T/N2dLQ7gmBJACkBz0hAWQTgF8P08/yW2X1DfL9zJ4/eukEAfOv0ceP8yVELR3yyJ/7z+2mdpQsk+e9BCSiLAICb+T8WU1ze9vbrZrWKH9dp3uj284c1WTKiTsrkeqdS2jw5TAwA9eM8KAJZVSBLQGkEYKDXMdT15GDkL1s6H1jQeMPM+inTP9sxr/7JNa3zf/6S+XAl60p4xvzJeqQEFEkAxzowMU8yuv+678tr2zpe3drh1u5Ovx2KZPEWuzmGKXHSC5LA9ZQElEcAF+1uz4qxZbFwF+NfDADHOLr/IYC5u4yDPfX6ZT2KJoB8PVIC3paAJIAMJwJaApIAAf36va1flV//PyaASH8kFoHj+OW0SCIrDF+xybVBlY+AAG/hPyYAa6B/X7Lt3LkTrLMk6KpVq0iTQdIksWQiCZTIGMBS0iykLgkQ4PBS/uP/MwIA6M6dO7MYOrkwjh49Sk4kVkUfMWIEiTNYOf3y5cssH80C0Xv37p0yZQpLRrvmCJNrgyofDQHYwn9MgJiYGLHuOeBmHdz69evzl+P4+Pj58+ezOjQ5MnCBUP///ve/RboksdlshdbjI0iLYMmOtpjlLiWgCAkU5rA8ekyRqbv11fkBBIiFBSBHBqmQcnNzf/nlF5KCiYWg0foDBgwYPXo0xkHQg1x6N27ccBLAYiu0HB/mGMPiR71ylxJQhgTsxjh7ZmSRsddfZIhx4hj1f+3ataVLl3bq1IlEAfwVMfH+/fv79+8/ZMiQffv2CdefvAEw5JkFsDyx3NhZeG2d9VqK9ZdUuUsJKEIC11JsuQByvaUw91UZYpzfie6dwsJCvV4PGT799FOh7wkM5s6di/+zYsUKPhIe4B1x2bOCxUX2YodLBDnkLiWgGAmgrflntRU/y2n9AhMcSfKcLtDVq1fx7zdv3kwaGIDetWtXfB6YgCk4derU8ePHUfyk09uzZ090dPRzQfDr5heQ5aUEfCOBZwQA0L179 +wb0PXr0uHTpErqfv4QEnKEzVBiHJUuWkEOyV69e+D+SAL55Y/KuHpXAMwKIES76/l1zInEGh8dpIvgKz0eMgrmOAziLeLRtpVSZc+xP9AS88GiuFvK5oY8/aZ3UC6X02jx0m+cI4HadAkMQw+0afFiQZpP4PikpiQMsG8N8JEvG8XN9HJ7u3r17pMp8NQcEeYQ0fPhE8tZ/XwIeIwBvncCAKOLv31shV5L79eOPP96wYUNBQQFZwdevX5+cnLxlyxbRBexsJJEP/WN/SQDBIhLOKuTpZDNeLQHPEEDAok2bNoQNL/gML3tKToeKA1dl6ep+OEuJA1evzOmivHCNq58mirzCpXH9FvUfFxfHGRQ8OZIF7p1unvNKcf5lB+nlB+zXrx8dx842SAgqWQKeIYB4QlcCAAucClJqs6WmpqIR+/bty/BZly5dwBZuBh1KfGTOhdCywnMgH33Tpk05P2PGDC6bMGECU486dOjwySefZGZmciYjI4OC1MmoHOEK05ZGjRrVsmXLs2fPUqRhw4a0geG8I0eOfPXVV+fOnaPaY8eOTZw40UkPBrAZ1+MuVMJcD4bzSH78zjvv0DwKvvnmm8T933333U8//UR7Dhw4QOWNGjWaN28eFiAxMZGTVAhPKE4R2kBLJk+e3LZtWxrJpCnmU1WtWrVu3brLly//s3BCyYAItLZ5iwBAsFu3bjgVONOff/45yMZBAnycIQc9Myk44CNZh53anblGYJFuVlAFjvGmGH0Du1wGHGNjY0lSDxyvX79OXB4VFZWTkzN27FiGqAHl4cOH4Qk1P3jwgMrhCfSDHlTOwDaIdxKAuzRr1uzWrVtE86CW8T5hAbgLZBAWYPbs2T/88AMtpOX0/0I8poTgGkFIKqQN4iS3puaePXtOmzaN2tasWcMUKS6g2UygEnNpZTCgcEZ5ngDilaMs1Wo1iha0MayWl5cHAQDxoUOHuAAnm/PYAXDjJACorVGjBuebN28OiE0m +E74EyAZGAA71fPLkyWrVqnEBGyoWUo0fP14462hoahN+C7qfUjji7du3hw+MacAo52vIysqqXr26qIS7GI1GCEDPL5VAADEAMmfOHPQ3VoUaBIj5i2qHAPAZc0EL2erVq0cHMQSA7VyANcN6CAJgOiQBFA590TzPEECAWChU4Svj9qB6xXnxMwP+4sbUqlVLTKVmuhF8ECMMogj4RvELtAnYQQDwysHp06chwJUrVzARqH9xARsE2Lp1KzUwRM20bYE5tDhcohRWYuXKlcxddVXDcAmUU8T5awdcGhEDCAJwgAVYtmwZIQED3pBHtJAoGQJgCoiYeQTOUAMXMyqCLUKUECAyMpLzNBsCiFLSAiicBp4hgHjTEACvAKcFDUqnIWDFP2Ya6axZs1DnABSfBP8eJ2TkyJELFy4kHsCxFmXZQDaamME4dDnzjkAeSALKXAABuJgD6mfK6qJFi4YNG0ZcgQu0bds2zoNdbAKTNQgJVCoVpZA7/gnKXkQCztcAarkLapu7DB06FK8JCwAVucYZBDPvAxeIKwcPHsxXeFNMBhEuEPfC4cEy0IZBgwZh2SAAFoDi0EBYAMwRB9g6SQCFo9+TFgCFB0zxPdjMZjPvHg7wwxo20Pno0SPgiLbGheArlC4eBcrYVd9TA243uhOvht4kLuMvPgzXUFzgmJghPT2dkABTw/VM3aMTU+AM+G7atIn5GsQe8I0zeEH4YELTO98EpaiNXhpmfPAjB77iozBcUI4RAEEnggQxLQou0R6aDW+5nThJ/Rs3bsRkiUZSA7fDLPCDIfEU27dv51gSIFAI4MPnFC4WNADTxMe7du3iVzt8RDcPHDiQuUwShT58O8q/tWdcIB8+p7AhGAp+vIYrj490/vx5zuCH4MrjVgn/yoctlLdWsgTKPAGEghf9PyWB8dNOG3Hs3JT8DmTbfCiBMk+AF2T3grIXH6UF8CHCFH5rfyOAwsUtm6c0CUgCKO2NyPaUqgQkAUp +V3PJmSpPA/wd4kuj5svUxCgAAAABJRU5ErkJggg== + + + image/png + iVBORw0KGgoAAAANSUhEUgAAAI8AAADhCAIAAAB+/3HuAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAACluSURBVHhe7Z0JdBTHue9H+OXe845x8nLOu2/JS+5zcvPuO+cm5x372r7eN7CJd0jiBa/YGBsvMY6XxA5gvOM9wTjGGwYbL2A2LWjfJRBoGSEWI4l9kdh3hCRAMz3vN/11l1rd0zMjrJEZ9fT5nznVVd/3VXX966sqjaa+9oVSV/L0gC95mppqaSjFVjINghRbKbaSqQeSqa0p30qxlUw9kExtTflWii2zBzRNIymf6lK3tnxbt0XXFWElQyIYDFpVSAcCAT7V5UZL9GYoLaxxOR9E7EtjTpw4EZ18a11x1ms1mFjfokELFixYtmyZlSprF0dpsVsvKxXo4erq6srPz7/77rt/97vf3XXXXfv37ydzxYoVjz766M0330x+WVmZEKnotPW46m41AqxVq+qeeOKJ3NxcqpNSsWbV3bFjx+WXXw6jqsj21E6qJMc2CKLwnXC2XnnllfT0dGsLpJcj9p2tH0UsYifKWKZ06tSp995779atW9va2hobG/msrq6++OKL+Txy5MjatWtvvPFGRowIOzvCyaKNCdXF7e3tuI6VeEWbyjx69Kh6LtsD2jhW7e+VhyWWLdr00ksvLVy4UHXT8ePHv/nmm6eeeur111/fvXv3vn37uJUWz5gx4/Dhw6Rhl6KDBw++++67Tz75ZHFxMZnNzc1ZWVmvvfZaSUmJ4m/z5s2XXXbZoUOH1DCnj37/+98XFhaq3mlqarr00kvpaCVjde4lS5b86U9/ojG0BN1Zs2aVl5c//fTTc+bMYQRMnDjx5ZdfPnDgACo41pYtW44dO/b555/jZ7NnzyZz5cqVEyZMQAyfhk4egUxk5s6dS8snT568c+dOchoaGoqKiv72t79hecOGDeTs3bv37bffph9q +a2vjJ6xf2aJZ9Msf//jH1atXT58+/be//S2Nvvbaa5le6JozzzyzoqKis7Pz+uuv5/OBBx74+OOPeU7EVq1alZ2dffbZZ0M8DCm2uH3sscfUUKC76dnzzz+fMa64YXzgatinB7/88kucT9YztOip4cOH+/3+L7744r777kP9kksuefXVV8kZNmzYiBEjli9fPn78eNpMEQwtXbr0q6++kvZDM5YvvPDCmpqayspKyIawK6+8EstvvfUWwshg9pprruHpIBjLzMnz58+/6qqrGDo0G2p5Oh4t5jSjHrBf2WL0DRkypKOjQyZ3nICZ6qGHHmKZYVDTTS+++CJDD54Ykueccw5PS/+yAk2ZMmXRokWPPPKIdTajX+gFetO6POzZs+e8886T1V4oobNYTjZt2sS6Qtdgh3whjOGPZ1AFHffrX/8a4zRv165dlDLwp02bRg6E0R5yIKCqqgq/p9k0kiLYYmQwYnAmGSgwIUYgj3pJs5quW7eOp3vzzTe5lcYwYnAy8UjrbB99h0JpYtmiR5hJ1EzI5MaYNVatYHDUqFEMwIyMDJ5k3LhxMDRy5MgPPviAGW/9+vUMW9iCDx4VMXzrueeesw5DjLN/wTWtCzsdR3cgL75FESThW/QsungG40MaQBELHs377LPPqALOyMQanU6C8TFz5kwSEDxmzBh6CmrxJ7QKCgrgAA+jFGrh+4orroASun7o0KFUihvBh9QyevRoLPAU77//vuTAKKUMWYYITaVJp4pvKbZU3915550sKjwzg/26665jyZHJELbI5POGG24gh05nsaELeJLt27fzePgEg1HsqJkQsVtuueXDDz8UMjZu3Ij7wjG9ycon4x3f/eijj0izcuTl5TG6xbHIYWQwAtDFDhMsmTRJxjtLJiySg9+PHTtWHJGZEN9llmb/AiUMPtomUx9VUBdsoctGNCcnR1oOkTQeU3iqjJ6rr76aiZqhSRofpcZTaE/43nvv0e9M31yMTTq +U/mVvzWrEw/MAdB9rBms4j8fm7cEHH5S/bOhZHgzJO+64A/7YXDA72XwLdVh5+OGH4fvWW2+FJCSZBiGMXrj99tvhnsWPHHoHMXyIEaB8kU0Ns+tNN92EIioYpyXiWzjWvHnzSLBJefbZZ0mwXWI9YybAJpPhO++8A83Uctttt/GXQ2trKyOPsUiT2IzQGFqOWZY0eS7cSx4WYYYU1ugBBPDUU4Ut5182ksODOZtodRq15NCh1mXJbWZnYmEIi5Z80kfWWmxOabWJo9DvStfajIjtpy7cS4qoBXVl3KpLy+HGWpG1eeTbBGIuWglft+JpQUom/h5I7C4j/nakJOPpgYSwpQVCgWB7sIvpJaiFkglBLcC+u0szJsZ4erA/ZRLDVnjvc+Lg4aOtezt27O1MImzf27F997HN7EmPt/cnDXHWlRC2GKEngp2T3t0y6Jz6087xJxPOrf3BWQ2DL/Z/u/FInD3Yn2IJYUsLaQEt8Jf3W9LOqfOd408qLB90Ts3pl9Y3bfaMb6XYSpDDpXzL5vop30qmyTDFVoqtPpoZUzNhaiZM7Qn7yJlsZlK+lfKtlG+lfKtf/spO7QlTe8I+crXUumVbt+oH/XvN6ZfUN21KffOUBE5Wb3xPmGLLuvCknVsviLkaxZRUAk7JmLqO2pefdk7t4EuXe+lbXX7cowXG8x38efW+85brIKEDegQqJ/6ETbf7VqqIWosSjlF7w6Bza8+4vKHZQ9/B62xN+GC77/zlvvMbkgorB/1H3eArVzRt7uijnUFfmknMLsNkK+2iFWkXrQS+C1ckCVYNusA/eMjKpi2eYUv/kVhgwkc7fJesMHDpCp+Blb5LbVBFbgk3FZUfxbhTV3Jc6rpkVdolDYOvXt281fgNWl+6xne2lRDfMtj6eKfvspUGLl/lSwpc9m3a5SsHX/Ott9gKal0Tpu/yXbnawJBvfUmBKxvThqwefF1jo7d8i13GzD2+YY0Grm70GVjju3qN76 +o1aUN1kFYy8SfEVPzySBoqVKdDtcc0YrTnqibfsG8H39jY5Dm2Ptvju6bZwLXNPsE1TQZ+0+QD4VtTJv6EYao3ikYDmnzXNupQ7TGNSHt+05x2bePgEc1N27yzboUXrsCEWft8168zcON6n0DlfIdE2g3rQa9MmSprfdc3h3HjOpf2YLl58O/WNXqILX6jGwqM/3Kvb/g63006RqwXpA03YORL6U3rVH63gLuKyNgsRDTiNOuWY1gbvmHQ8LVn3LapufXYd97B9b2BRO0JYWvCV/t9v98oSDPhu3mjAbPIkFH5ZiKaisjYLHDrMNKLHMPa5tNu3vDDO7Y2tR7v+87+zhYTydbXB9Ju2+zTQULgG2nCLBIB38gtRtFtW3w6ulXMHEPSpmi9VcZdE9Siw9XIltNu3fTDu1u8xRbr1vhvDvru2GJis+8OgS2H2206thpFt2/1CZSkM+fOLT6Aik2y27iqxZbArFRHvmqSJXHn1rQ7Ng8e3dq03Uu+Fd5lzD3ku2ebgVHbfAJ7TovvHoGSbPGN0hElxyhySCqVaAm9OtUee6J10D3bznhwR9OOgcuWOhNozMz6Ae0J8w+n3b/dJxhjIkJOq+9+oCRbfWN0RMkxbDoklYprQupC0dKkHumdg+5vHfzI7gHLVoQzoOEdfNf4jCO+sTsNPLijO60yT8XErrSxOwaP29O8M0bEpu+8YzgZA32zy5Aj8qp+Ti3A1oSstrRHd/sEj+wyEirnFE3sSXt01+An9g0otuCG2DoSFkbO3xPPibADcvY7fB6SmTC7Pe3xvb7H94UxzkzI7SmLcfvTHt8z+E8HmncNFN+CkszMzF/+8pcS14WIR0QeKC0tJRYBAQrCfqYfYJ2Q0+57ar/vyQPJhCcOpj21d/D4QwOHLSJ8EPSBiFLClgTOItoA3iYhLWALTMjr9D1zyPfnw0mFI2l/PjB44pHm3d3BE05mhUmMTu/WLQkMQdAc4lkRxUXYIuYHkTwIh +UbMDyL+hGOH6O41ofCYb8IR3/g2HSSiQ8QiSkYpimm2twJH08YfGvx8e9OeJGdLqCJ0I5GN8KRJkyYRkIkc4uMQVoXwRQSNITKMvuPQ2So+5pvU5pt0VAeJmHCTjN+CvYq0SUcFcdQuuu1pk46c8XJn054eYT4T4yq9ttoL34IGYrBccMEFRNshpt9FF12ESxFYB5IWL16MSxFgiug8+kwYZmtiyQnfy0cNvNThi46X210lDSPtMSzErCIugc60l9rPmHyscW/yswURxEmCIaJsEoiOqFZE5yEQmMRbJIYTgYt0D4SwwISKE77J7b7JHTo6Y0HEOnyvgs4wDBUzv9vIMd/k4zpI6GIi361iqeu1Yz5B7AaYpiYfO+OtzsZ9Sc5W959TeiwwZkKi0JEgcttvfvMbpkdiokrsMC3I0tU1obLL98Yx3xvHe4W0N44L4tc6CRU342lvHEt788QZUzqbBhJbUEJkOAmxCWFE1qyrqyNYn4RQ5C+uMFtLAmlvn/C93QXSTMhtNLzT5dPhroLN4zoM4yIfhrtlsaYE3IzT4LR3AoOnHm/cP4B8y/7FoOl3xrdQeoTi8VUB35QuE6QFQR2qKGKOEpaEMuKWUPJKQGpRsBpUDYhk/N2uQVMCp79/omlfhJDJvd4V9LVCL3YZ8Vetf/MUHL804HsPBHtC870HrJnOHJvKSdyKTYW4q/t7YNDUwOkfdTUd8BJbzIcTqrVB74fSbJgWTAtDM/M1/TaY9r7Kcag4jcTMMWqRuizVUa9RnUst02hz8PRPAk0HPcNW2LU0bXxN0PdhyAHN9yEIpX1gQL+1wlCxCETOcQpY6opsUxcwGmAKK0mjlkHTtMEzAk0HerwfIv55JaGSCZkJYSvsW7XaoI9DaZ9EBkUCERg03YCStwmEZWwqPW/dKoqe76z3tI9DP/zMY74FWxPrtP/0aShOnPZpSBCnfF+J2eodNCP0g+mhH83yElvhIyaaNtEf/IcZoX+Y +2QP/+FnIBpuAulViTgE3CzGNR7EptfzgM+0fZ2o//irQfMgzM6GwNWm5dvrnoeTCf55Fg7V/+jqwzktshd+f80KD9sMvQsmFwV9qP/pC+x9zYMsze0L9e8LQKw2BH3+l/Zekwo++0n78RfAnc4Me8q3wnlALvboy+N9ma/+UVPivc7T/Plv73/OD673kW7ClvbYq+JM52k/mhMD/nKMJ5Dac840Bm4CSTEyClgjs7VGt+l/faL9cGFh/2DO7jKB+xuStVdrP5mn/LJhrwsyhSGAT6M5XKi6J+CW7a58b+mcD9vYYzaA987VfwdapGAQ5Me8IErbe/jb0iwWhf3HBLxaGBDaBny8ICdwUVT7G45TsNjU/9C8Ct1YtoEna/0sPbDjiMd/62xrtX9O1/5seAv9qwnZLvi3n/6SHBEoFIyasmeF0HJKuumJfalfQbWr/nuUptvgSPtQ1dU3gVxnarzJC3xH/lq4JYtpxSsavK8b/DWRq5y0Kbmzzjm/xa8JQ19+bgmdnhc7OTCaclRk6Kyt0cU5w8xHP/L0V/hVNKPBhU/A/shmnyYfLcwOb2zzEFv/tD37cFLwoR4uJC7M1EFOs3wRwrKvyYctDMyG+FZy+VrsiNxQHEItTMh5r30nm8tzQ5XnaNQWBLd7xrUD4VzTBGesYpNpVeTryQ+6g1BSzSA5VabHghNOmknGrLpaRoXmhq/ODN5YEtx31jm/pv8v4bIN2bWHopHFNwXdSP8l6C0LXFQR/Vxpo8c5MGP4VTTAwa0NoeJGJ4tBwNygZSZhiNxVqon5ToR2GWafBKNXZanGTLAr9tih4a2mg1Tt7Qv38ljZ7ffDmYi0mfl8cAhYx0gKnbpSisLCY0q05UKLdDEybFsmetZRotxRro8qCrUc9syfUf6GmzdkQvL00FAMloZE6bge6sNyGc2y6Zn6EIlOyW1cMWtHTmmstZdSr3V8ebG33FlvBuRu1UeWhUWXJhHvKQ3dXaGMrgzv +aB9BvdeWUsbwrWi5rWv//ViBjY/CB8tADFWGMKdME91eEwBgyKdIxRqDng9HlmkBugRIz8stNU6akMm6YKu82YlPpljTbo6pTkg+UBceF2Rooe8LwmZ+el7z9m5/FW34HH8jcFHykMiR4uEITPFQZEjxc0QMq/yFkBA5JVWSYMiWVcWWz20gEGaMlNiNK5ZEK7YklsDVQZsIXX3xx2LBhvMmdk1vCGu9Vv//++3mF+tNPPy3Ht4iCnLU5OG6xNm5xKIxKA49VaoJxPdGdL/KLQxEkzSLDmu02XIVpVhVFkOluTNiOXZIGa39aGtw5YNi65557vv32W+OAgj4Njhw5Us4C8QZ6OXbMrJ+7uevpxcGnF2vgqSWnCEJPLRG4tofW/mVpcNdAYmvVqlVqxeLwHWf6mQnVAsa6xdcZeVuDz1RpBpZoz5wCeLYqJIjamOBzy4J7BgxbHOK//vrrOWtMHAY86euvv7733ntxOI4ef/jhh8ZMGAoWbAtOWBYSTKwysTQ0sa/x3NKQIKZlp6QjRxtfpb1QHdzXMVDWrba2tiNHjnCkdciQIRzinzZt2ogRIw4ePLhv376hQ4fu2LGD+OLB0InircEXl/HkoTCWmpDb6tDzywzYbm35hnokFVX04rKQQOVEMWKrzqaL4gtVwck1wb0DxrfUfp1QDEVFRQsXLnz++eflkCSHkQnOEI4GHzpR2qJNrg69quOVZQbk1pmjBJySbioq35mIYsStPUZ+uKnBN2qD+weMbxEwiOmOT3yrtbWVDSGJvXv34lVMhpwY18/0nyhvCb5VExK8Xq0JVM6b1ZpActRtd4JMHW4qKv+NmpDAKSkWlBF1q2pRuqro9ZrgO3WwNVD+3rrvvvvYrBPLpLKyUv7SInAGKxk5S5Ys4Zazx0TlWrIt8HaN9nZNKInw1+rQm7XBqX5tX+dAYQs+Ojo6wjFn2KnrW0E+jx07duLECflGIxD+orCrqiU4pU6bUhsKo86E3D +rhFIgnJ6Zxm5EoNvWiqbWhv9YF/+4P7u8cKLsMtXdXC5iQpI4FClvLWrT36rS/14WceK8upCCl1hxJR1S0SbrJRNGd6g8BZd/WjPfrQu/6gx/VBw8MGLZiHtaELSIw1LRoH9SF3DDNHxKIgLq15UdUtypGqcJZ9L4/JJhmNsxW3YeMknptul87MGBmwvjZ+sgf/NgFjF+BCKhbW35Edauim/3IilSkQ5U6q/ugPjCzPnjQO2yFp8VgwN8SmF4fnO7vgU/9wYiwiUW8tSkqGadBZ5Etx01ghj/wiT8wa3nXwQGzJ4zpW+GfEwaDDS1dM+u7Zvp74PP6gOAzf5dA3dokbbdK3poQGWeRM9/NuGqPCHzuP8Hnl8uPHxowf2/Fz9as+hNf+HuCHB2z/Abk1i5m09JvlYoklIot31kUzbjZHpH5yn8c9dkNxw57Z5chZ0xWtXR+7T/2tZ/Pzjl1xwz4j8/RMbvumOBr/3FAwhTonIN8JCiV2f5OgRh35ot6t4DZgNnh9oSh2iMWVAt1s8fnNnQe8hpbq1va6bJv/B1gbp0r7AIIu0EZ0QVEsYdxh6JNxqniEGifW9c5f3n7oc6B8p/+mDOh+BZsza1vn1d/FMz3t7lhXn0bsJQi7AYlFhYQyz2N2xVtMlKXtTqHwJH5/o70hrYjnUkeqTUmSRaB8DajseXIAv/hhf5DfQRMHemJkzCujERuFQ3O8B/IXHHIc2w1tRxJ9x/I8O/rI+zPqDvQA/79vbZcZxpxaVW6f3+mf29Ww34vspVZvy+rfo8Vmf7dAlt+HLd7s+hHHZl1e0CW37DcC5vKgn+PrRlym+Hfs6hud3bD3qMdAyV6f8wpMXw0Mqg1tRxYVLdrUd3OMGp3C7L9u8Ig38gxBIx8KTVk9mTX9YAyYphSpaaKTSCuW2le3U6pdJF/V17t9rz6PW2d3mMrp3Z7Tm1rD9S15gh65ufWbRcYpUqsrrW7yMWUq4BNPvqtXmN23fb82 +pb8+p1e9K3c2pbc2m06tpqQW3tOXl2LQC/iExgqeXXbBBYjylo4YdHtke8m3zNftSecyKltKazdWujffrRj4L5/yz43hv950tXcsju/dmN+7aZI2Jxfu1UHCZvAFrMoouJ3zFT1Su2gp8Eaat9Q4t/moZmQZUvYKqjZ4I71BTXAKSD5EYuiWIu/SNmPUEth9caCmrWldZvbOj3mW2tbdhdWNzuwtrAakN9kwiljyxEVBWupsiaZEWWs8qrSyLUXVa+jVWW16492euYNuvp/kYMbtu0sWrbGgcaiZWBNYbUBF4HG4mVrBLq8FVabhjXTiCHmbtzeHlWLShQsayyraTza4T22ipeuKl66sgeqVheHsapo6UqBi8DqkmWrBLq8FabNKrNIGTHFXI07qlO1SKJ0GQ1bXVbzbXu7Z978bvjW1h3FVSuKqxpASTdWllSBFcVLDUiRiOmSIgCUlsoxdM2iFW6SxUsbBBYjCHffWqqzyjSUoFW1orx65cBhy3pewfb7GdkchtnSAhu2tBRX+QUlSxyoqi8R6EXRJA1dJJfrMFQi2LTXolSWU1ExtSypM+DWsKo6WlK+bHlbx0DxLdvxOudXG4qtkiU1gtLFMRCHZG3p4jodJGIb1GWUSl3Zkh5artUtqS5ZXFtR5T/a0RHzK5v+F+hFPHj1w7TDhw9/9NFHzz77bGFhofKzlStXzpo1y/QtvnsKbty8rWTxslJBpRNLSysFelE0SaVbXVoJlpXpiGTTmSkqYa0wKpYacKsu3NTqyqra9oHBFj/05JDdu+++y0uBli9fLhRyKpI3b3EEz/xVYfg1QZs2bSmtXFJaWdXnKKuoAn1uVgxiuWJJ9dFknwnlN7n8mpp326mDrMLWa6+9NnPmzOHDh9vYKitfnAiUly8GibO8ePHSAeJbHGOdOnXqX/7ylxdeeIE3RkJbQ0PDH/7wh5aWFmFLv8K/Udu4cVN5eUV5eaUOEjERliwrqygrKwcWeacF +W47cRqvFYVM1xq6L5OLFS/jpeP8vSzFr7MW6Fd7oadrYsWNHjRrFKvXpp5/y3kiOrt5yyy1QxQET2LKe7OfFhNJHOmJehmRpaRmvTuayKNiMqFtlNnYtDpvKfARd5g+eK2bf9b9A79iCDA5GpqenMyVyRuHKK6/k1ZG893PcuHFjxoz5xS9+MWXKFEWYzlaJiZhsQU9YWLq1J1tiRPFnSFpyYtfizpZdF8mBwJacUfjiiy9effVV2OIkJMe2OLy1adMmiKmpqeHwlsyNMhtu2LChrKSorKQwjNKiHlD5qkjESgrLS4oEpSXFJgpLS8JQFmy35SXFJpSuqBhGupth1mK0ynIrNqWWyorSjvaj/e86MWvsnW/BAVME51ZHjx7NgS3OHUuADAnCQL7cdrNVXFheXABKSwyUldIdOit6fnlJgeSQkJyKkkKB3teCnrqlFIVzDFOlCBeZULqiYhKgqpNKI8FaS2VFSUd7W8y+63+BXrCl/rRiBebQMe9/t65SeBtv0xWeZIUL+1ZRQVlRPigpNmB0SrGRX1acb3R9cVgMqK4sKS400VO3pECsqf4tL8k3YNKgqispzgOlxXliPAqsLawoL25vPxUDwveCrV4OpeCm9Wsj9A4dJ1B9p3L6MOE0LjlRqrBwWVHmRbaaSwvz7CjKLRWoIpXThwmnccmJUoWpUlaYV1FW5EHfSkK2CnJLC3LLSwvbj3prJtQ2rm0qKcwRqEHdnVOQU2qBM1/luCWUulPArSgOleySguyykoKjHmSruCBboDq0Oyc/u8QCZ77KcUt0q5tjIqaROFQWFecvYu/jRbaK8he5oThvkRVKTGVG0ZWibnVzTMQ0EodKVnF+VilstXlqJtSC65sbVfcV5mUJZHQX52fberbIFIhGcE9WbHxz223TyZ+eg4A0I8KYyM0qAnlgUWlhfntbkv+91bsdvM6WIkklwj2iw8ghkZMZhsoxaXPq2nKUKbvNOCw4VbpzcrNKCvK +OepEtONBRkJspMLnR6QkjsyBHhxIwVUwBw0IPIz1lnF1vt5bX3QApikCwDBq9McX5uR6bCUPBdc1r8rMzBQU5WTYYRRaepB+VSoRETka+wDRrN25Sbtc1a8nPsbenu4VK12DLUzOhzlbeogyBs+uNomyTAJMJpRIhkZ2eJzDN2o27GTFrycu2t6e7hd1DIaMoL8drvqWttbDlygHd1xO5izJssOjCk8DodAdtDIswcrPSBd0CUotDsVvSbEZudkZhXrbX2Ao1Na3JMXtNdYpbImdRerYLYur2oQANphl5uVlH2w73blfVL9KJ+1Y3zFZ25sKc+JCdtXCRC+K00CdiNJhm5OZktnmQrUU8fMaCMEjYkEFRuJQOCvdR5sIsF+hiOpQF2213vl6XaVPMWiF1OfOR6c73IFv8f6uxsTEzY2FMZGUuADHF+kQgKzNdEMUapTnZWd7yLWErI32BIH3hfEGknHkZ6fOUQFRJw5r0tdWszbhTQNXr1h4rf9mLMtuOeGndgq01a9bEw4FT5vvNWbhwflZWBmG5+2Xf0LtKErXLgC3ex7BwwbxEYMGCeeAkLItiFF2K5s+fm5Gx8IjXfAu2Fsyf6wZbX8cjqWToUOBUUTbdrIliRF1RkVIvsrV69er58+YlAvP06yQsi2IUXb1wbno6vuWxmRC25ibh9c033/A+Ai+yxZMn3TVnzpz58+dz6ql3G4B+kU7ULoPG81t5njwZL9jylm8JW7OT82Lt8qJv8bKnZLxYbT3H1ooVK75KtouxRZO9yBan8L5Mzou11lu+xXcZsMXxoWS8WG05gdEvu7zeVdKLPaGc3+JAOPsldckbnXg2jnB1dnbK6SA5ZsIZ8s+T82IyTHrfggOOZ40fP54DrFy8Qfeiiy6CG8738w5J3qDLUcktW7ZY2fosjovj5VxxCPafCPP3APEtIYNPQmbMmDEDx+Islxyymz59+jvvvKOOcOFbCLhdQhLXSQi4KSqbMY2rSi +NKEviD12D2bpLqF+lezITW9hw/fpwAGbt375ZJT96c9sknn0ChYqu+vp6T5Ml4MX8PHLbgY9myZU888YQ4mTrJypsIOdkPc8Ir4U/gz+3CEeWKKeCUdFNUkjGNq0ojGmfOHThsQQ8BTjgWLidWuXin7u23306IC+FP8nk568ful+ovN5GYAiiKjLIQj0qUJqkipseBwxYnjtlW8KJIiGHF4tw4sYQyMjIUTzI9whYTY9JdvGCbVW3gsCXPIxMgbLGAEZqGt7FWVVUxEwpnXNXV1UTTSMaL6ZH3APfLvqF3lZzMLoN/gsjxfaqCrZcsFzsLmRu5YIvXjNuu981L5UuGU/J7zGFKHDhsxRwPQiQ7kb8n4cXQYfb2EFuyy1i6dOl75kUgL7mi5KgiSSgVp66bgFMl/hxr7Uz13mILwljG+JrD7SIilFwioLo1ioqtSFlwJpxGbDLRa2ES9hZb+BZs/c1xqV5TJbZ+dMtHzGnNLcfJn00yugDz9/79+2NO+P0vcDK7jHhaCVvsEv+anBezorfYglHY4mtD2/W2ebnlxyPgNBszR8zGFBMBpmXPsbV48WLV9TETbzkup4oSiWlNCZyECrrMk55jq6Ki4s24rzccl1NVicRt9c14zDqtscgRfTGeCb+fZRK4bvG14evmRa+pdH8mFFtSqe3WrSWstt7yLXYZsEUsa7noFz4nT56scqxFUup2qT6NIqNqEWGbcZUTpymWLi/6FvSoi/iuXNacUzbN0rV3795+nuXiqS6BMyFxj4Uh6/WKy+WUVDlODTdhJRnFWjxFrGSe8y3YetlxubHllFQ5ThU3YSUZxVrMIozAlhd9y/r1vKTdOsspqXKcKm7CSjKKtZhFsMVmxFtsMQsTWJ0XM8il+kjlnMoJNimeZovXaMh1KpMkbaORbH+8yJYiKbkSXmSrpKTkefNSbKmcRCT6pBaMsG/0nG9Z2UoENwmymWIrQR2bELMpthLSrYkzmpoJE9e3f +W85xVbf92niLKbYSlzf9r3lFFt936eJs5hiK3F92/eWU2z1fZ8mzmKKrcT1bd9bTrHV932aOIspthLXt31vOcVW3/dp4ix6iy05v7V161ZOu3L6OLkujnRyDYQ3v8fzuxx1GFlOcSXdpU4LnoItT9RvnlSME3lm1QVJlPAQW4okN9ok5JDT/1T0lJPoLKdbSM5JmHKqSLgCdao6ok23h+qTBmAkUb4l7ePZWAAIXq3I27Vr17Zt23hyzrup4CjWhyFY1MSJE6N3itvDO7mxjZXv0muY8vv9hC6IYgQZzkkkLupQwtkiWhdBoRRbnDDnV+Y8FZEAiXJgHfiSJurXkCFDTo4tdOnQyspK+T89J9jXrl3L4QnGh+rik3Y1msT7CLAWnS3i2BCSIp5hcRItSThbGzZsuOWWW1TrCdQobDEAT5w4wdRB3A36tLW1lbhsOBaBUoYOHUq/82INfjArcwsXAgSUQoCHpDu4Nm/ejBEVCILbUaNG8RN2TjYSTAbjf/7zn5988knCKYwZM4bAezLx8gmLqj1ifOfOnbRBjDMZUDvVYZAijrQ2NTWRSRH5XNRI7cijJd5MABGIpOWkGYJiE2vr16/ftGkTUZbI55MiQrMx06COEYk9x60KkBCT48SyRfX41q233qpWFAI1wha3N910E7MijzR27Nh77rln9OjRl156aWYmr1Jqu/jii4l189hjj5177rk8LU/FIXviqTz44IN33nknjyq3t912Gz9ZVMvJXXfdRQ/K1AdVOTk5zz33nNzSU7SBWB4k6Fmr45LmTPiIESMefvhhRhWs4BzXXnvtuHHjLrvsMv6ku/vuu6mUi2YQt5Cf8dLpSCJAs8nMz88fPnz4448/jh2sXX311VBCLWQ+8MADhOi57777eEzadv7555PDkOLZqYjYqFT01FNP8duCOP0ssWzRCNj66U9/Svu4brzxRgiQOGvCVlFR0aOPPip9CmGwhYedddZZ9Cw5dA3BgBjC +1113nYRpe/bZZ1EhngUB9oQnGQd00MiRI9UtOYShwieklHwcLisrC89mKib8oBrF27dvp1vFdQjml5eXh1/Sg9ziXj/72c/ghqrhgCYx1PgZL5MtczvEiw8xqmi2uDhaSPIIkyZNwo5k8oCYZWI4++yzJYAPNRIsnzN9Ms1II2M6VsJ3GcIW0boY7Fw8IcsVTaRi2GKXwcPTd9JivkFgDce3WLfkAYgTyBFgIjn8/Oc/ZxhyEQKRsQxbRLVQT4g6jMpIF1PSR0zCkhYHwrjMbKirrsH4mWeeSaxFriuuuAJG8S0xDkkXXHCBTJs4U0tLC75Fg3GUCRMm0H6Ip5QZW/y+ubkZrauuuoqZjcbgTNxSIwYhhllR5hisPfTQQ4R+YaAQcYmLP8ZPFbas6xZt4gmVb8EWiwo/tZS1hAdmkLIwsG7xSIotHpvuUOsTwjgcQRJUj1OE+rBhw2BCxKSPYFrIoxTHZa/BcIEqvETp0tfMqOQjKQsMimIcrQsvvBBTNrbEPuQxeoiijhgeU1hYyARAEWzhW0yM+JOMFaZTXt7gZAtFLixccsklPPX371u01bbLgC0GGo/BbMBMyPhi/NI7jFkmScWW1bfoRGY55kAmomeeeYb9Hmwx/K3bPCrKzs6m33NzczHCjMfkxrAlyhS7OFxB5hw8jN6ha9RYpr9YmdiM4De4I/0ubAnHsMWUQBq3gB6ZCfEhTjaQZlSxE6ExxFzjyBcDgiqYCZkeqIUZgmhYHIplamGiVmwhw1LNd3L4OhUhc8MNN1Dv988WY5Cm4+lqB8+XhzJBMRXI1gjCaDEzEqG96Gv6iGAAMqfhDUykpOl6OEBs1apV3JLJ7kP1uFCLPH3HasFkS8BYepkuKCgoIJwlUUjFfRctWkQfEYzKuiekGUyAKIpxWiiVIg/TsjjxCHCMWZYfEthBXjaNCEMwOfI4RAmRvS6NJ4YoXiXbSKZHjIjr0wC2u8zerAKwbvtLJgptid1lyER +km5RVJgnWABpNgtmJPRjMyfNI7/PMignJUbekrb5lFZO0uqx2ZBDI5KYGkNRorVfpytbGeamGWVsladVIdavUpXb1dNISyYnHsRK+y4jYCCFPPjmMzZrEXMF2EceK0m4b69YR4BwQqgpbQtXrZFoxFLPjYkpaBWxDRzXARnPMSkUgsb4VTyNgiGWZUSwPEI+KZ2W+f7Zk+FvnEM+SEfPBv3+2YjYxJaB6IMVWMg2GFFsptpKpB5KprSnfSrGVTD2QTG1N+VYysfX/AWgPLTYaWTg/AAAAAElFTkSuQmCC + + + 21cm + + + + + Gubun + System.String + + + Mon + System.String + + + Req + System.Single + + + + DummyDataSource + + true + + + DSR + Graph_Req + + + + + + Gubun + System.String + + + type + System.String + + + Req + System.Single + + + + DummyDataSource + + true + + + DSR + Graph_ReqUse + + + + + + name + System.String + + + year + System.String + + + juso + System.String + + + chung + System.String + + + myoun + System.String + + + ydo + System.String + + + i1 + System.String + + + i2 + System.String + + + i3 + System.String + + + co2 + System.Int16 + + + grade + System.String + + + + DummyDataSource + + true + + + DSR + Graph_Info + + + + + + 난방소요 + System.Single + + + 급탕소요 + System.Single + + + 냉방소요 + System.Single + + + 조명소요 + System.Single + + + 환기소요 + System.Single + + + 난방소요1 + System.Single + + + 급탕소요1 + System.Single + + + 냉방소요1 + System.Single + + + 조명소요1 + System.Single + + + 환기소요1 + System.Single + + + 난방co2 + System.Single + + + 급탕co2 + System.Single + + + 냉방co2 + System.Single + + + 조명co2 + System.Single + + + 환기co2 + System.Single + + + + DummyDataSource + + true + + + DSR + Graph_Info_data + + + + 만든이? + + 18.82698cm + + 1cm + + + + + 4.48cm + 21 + 8.33cm + 1.40212cm + + 0.50265cm + + + textbox72 + 7.42cm + 3.15cm + + 20 + true + 14.7cm + 0.63cm + =Parameters!p_co2.Value + + + textbox66 + 23.17cm + 5.74cm + + 19 + true + 6.3cm + 0.91cm + 년 월 일 + + + + textbox9 + NoOutput + 6.58cm + 9.17cm + + 18 + true + 0.7cm + 에너지효율등급 + + + 17 + NoOutput + DSR_Graph_Info + 2.03cm + 9.20117cm +
    + + + + + + + textbox7 + + 17 + true + 건축물명 + + + + + + + textbox8 + + 16 + true + : + + + + + + + name + + 15 + true + =Fields!name.Value + + + + + 0.6cm + + + + + + + textbox22 + + 14 + true + 준공연도 + + + + + + + textbox23 + + 13 + true + : + + + + + + + year + + 12 + true + =Fields!year.Value + + + + + 0.6cm + + + + + + + textbox19 + + 11 + true + 주소 + + + + + + + textbox20 + + 10 + true + : + + + + + + + juso + + 9 + true + =Fields!juso.Value + + + + + 0.6cm + + + + + + + textbox16 + + 8 + true + 층수 + + + + + + + textbox17 + + 7 + true + : + + + + + + + chung + + 6 + true + =Fields!chung.Value + + + + + 0.6cm + + + + + + + textbox13 + + 5 + true + 연면적 + + + + + + + textbox14 + + 4 + true + : + + + + + + + myoun + + 3 + true + =Fields!myoun.Value + + + + + 0.6cm + + + + + + + textbox10 + + 2 + true + 주용도 + + + + + + + textbox11 + + 1 + true + : + + + + + + + ydo + + true + =Fields!ydo.Value + + + + + 0.6cm + + +
    + +
    + + + + + 3 + + + textbox4 + + 18 + true + 건축물 개요 + + + + + 0.7cm + + +
    + + + 2.48117cm + + + 0.28cm + + + 6.44cm + + + 4.3cm +
    + + Fit + 7.49cm + 5.18cm + image/png + Embedded + + 16 + 0.21cm + 7cm + ID11 + + + Fit + 7.56cm + 4.97cm + image/png + Embedded + + 15 + 7.56cm + 6.86cm + ID22 + + + textbox1 + NoOutput + 0.63cm + 13cm + + AttributeNormal + 14 + true + 2.66cm + 1cm + 업무용건축물 에너지효율등급 인증서 + + + 13 + NoOutput + DSR_Graph_Info + 2.03cm + 9.24673cm +
    + + + + + + + + 17 + true + 인증번호 + + + + + + + + 16 + true + : + + + + + + + + 15 + true + =Fields!i1.Value + + + + + 0.6cm + + + + + + + + 14 + true + 인증기관 + + + + + + + + 13 + true + : + + + + + + + + 12 + true + =Fields!i2.Value + + + + + 0.6cm + + + + + + + + 11 + true + 운영기관 + + + + + + + + 10 + true + : + + + + + + + + 9 + true + =Fields!i3.Value + + + + + 0.6cm + + + + + + + textbox40 + + 8 + true + + + + + + + + textbox34 + + 7 + true + + + + + + + + + 6 + true + + + + + + 0.6cm + + + + + + + textbox30 + + 5 + true + + + + + + + + textbox37 + + 4 + true + + + + + + + + + 3 + true + + + + + + 0.6cm + + + + + + + textbox33 + + 2 + true + + + + + + + + textbox36 + + 1 + true + + + + + + + + + true + + + + + + 0.6cm + + +
    + +
    + + + + + 3 + + + + 18 + true + 인증 개요 + + + + + 0.7cm + + +
    + + + 3.15673cm + + + 0.35cm + + + 5.74cm + + + 4.3cm + 9.31cm +
    + + NoOutput + 6.58cm + 9.17cm + + 12 + true + 9.31cm + 0.7cm + CO2 배출량 + + + 14.84cm + 18.2cm + + 11 + true + 0.14cm + 0.7cm + 용도별 CO2 배출량 + + + 10 + DSR_Graph_Info_data + 15.89cm + 18.27cm +
    + + + + + + + + 23 + true + 난방 + + + + + + + 난방소요 + + 22 + true + =Fields!난방소요.Value + + + + + + + 난방소요1 + + 21 + true + =Fields!난방소요1.Value + + + + + + + 난방co2 + + 20 + true + =Fields!난방co2.Value + + + + + 0.6cm + + + + + + + + 19 + true + 급탕 + + + + + + + 급탕소요 + + 18 + true + =Fields!급탕소요.Value + + + + + + + 급탕소요1 + + 17 + true + =Fields!급탕소요1.Value + + + + + + + 급탕co2 + + 16 + true + =Fields!급탕co2.Value + + + + + 0.6cm + + + + + + + + 15 + true + 냉방 + + + + + + + 냉방소요 + + 14 + true + =Fields!냉방소요.Value + + + + + + + 냉방소요1 + + 13 + true + =Fields!냉방소요1.Value + + + + + + + 냉방co2 + + 12 + true + =Fields!냉방co2.Value + + + + + 0.6cm + + + + + + + + 11 + true + 조명 + + + + + + + 조명소요 + + 10 + true + =Fields!조명소요.Value + + + + + + + 조명소요1 + + 9 + true + =Fields!조명소요1.Value + + + + + + + 조명co2 + + 8 + true + =Fields!조명co2.Value + + + + + 0.6cm + + + + + + + + 7 + true + 환기 + + + + + + + 환기소요 + + 6 + true + =Fields!환기소요.Value + + + + + + + 환기소요1 + + 5 + true + =Fields!환기소요1.Value + + + + + + + 환기co2 + + 4 + true + =Fields!환기co2.Value + + + + + 0.6cm + + + + + + + + 3 + true + 합계 + + + + + + + textbox50 + + 2 + true + + + + + + + + textbox51 + + 1 + true + + + + + + + + textbox64 + + true + + + + + + 0.6cm + + +
    + +
    + + + + + + + + 27 + true + 구분 + + + + + + + textbox56 + + 26 + true + 단위면적당 에너지소요량 +(kWh/㎡년) + + + + + + + + + textbox57 + + 25 + true + 단위면적당 1차 에너지소요량 +(kWh㎡년) + + + + + + + textbox58 + + 24 + true + 단위면적당 CO2 배출량 +(kg㎡년) + + + + + 1.26cm + + +
    + + + 2.31cm + + + 5.46cm + + + 5.25cm + + + 5.25cm + + + 4.86cm + 0.21cm +
    + + 9 + DSR_Graph_Info + 21cm + 18.21743cm +
    + + + + + + + + 5 + true + 단위면적당 에너지소요량 + + + + + + + + 4 + true + 해당 건축물에 설치된 난방, 냉방, 급탕, 조명, 환기시스템에서 소요되는 단위면적당 에너지량 + + + + + + 0.6cm + + + + + + + + 3 + true + 단위면적당 1차에너지소요량 + + + + + + + + + 2 + true + 에너지소요량에 연료의 채취, 가공, 운송, 변환, 공급 과정 등의 손실을 포함한 단위면적당 에너지량 + + + + + + 0.6cm + + + + + + + + 1 + true + 단위면적당 CO2배출량 + + + + + + + + + true + 에너지소요량에서 산출한 단위면적당 이산화탄소 배출량 + + + + + + 0.6cm + + +
    + + + + 4.27cm + + + 13.94743cm + + + 1.8cm + 0.14cm +
    + + 24.43cm + 10.5cm + + 8 + true + 4.13cm + 1.05cm + 인 증 기 관 의 장 + + + + + + 13.09cm + 7 + 8.68cm + 1.87831cm + + 0.34392cm + + + 12.95cm + 6 + 9.45cm + 1.87831cm + + 0.34392cm + + + 13.02cm + 5 + 9.87cm + 1.87831cm + + 0.34392cm + + + 13.09cm + 4 + 8.19cm + 1.87831cm + + 0.34392cm + + + 13.02cm + 3 + 10.57cm + 1.87831cm + + 0.34392cm + + + 13.02cm + 2 + 11.2cm + 1.87831cm + + 0.34392cm + + + 13.02cm + 1 + 11.83cm + 1.87831cm + + 0.34392cm + + + 13.09cm + + =iif(Parameters!p_co2.Value >= 80,true,false) + + 12.81cm + 1.87831cm + + 0.34392cm + +     + 0.21cm + +     +     + 26.6cm + + ko-KR + 1cm + 29.7cm +     \ No newline at end of file diff --git a/ArinWarev1/Forms/v20091231/Report_total.rdlc b/ArinWarev1/Forms/v20091231/Report_total.rdlc new file mode 100644 index 0000000..cfe208c --- /dev/null +++ b/ArinWarev1/Forms/v20091231/Report_total.rdlc @@ -0,0 +1,5880 @@ + + + + + 2cf61f60-7667-4987-b5a6-ca66bdab8fbb + + SQL + Data Source=ms0501.gabiadb.com;Initial Catalog=eco2;Persist Security Info=True;User ID=raytrace;Password=arin + + + + 21cm + true + 29.7cm + 0.067cm + true + 1cm + 1cm + + true + + + textbox1 + 0.335cm + 15.41cm + + true + 6.432cm + 에너지 요구량 및 소요량 + + + 1.072cm + true + + 2cm + de861d81-a116-467e-9d9a-a15050ac4b88 + 29.7cm + + + + + Code + System.String + + + Desc + System.String + + + LT + System.String + + + GRP + System.String + + + UNIT + System.String + + + SIGN + System.String + + + EQ + System.String + + + CT + System.String + + + M00 + System.Single + + + M01 + System.Single + + + M02 + System.Single + + + M03 + System.Single + + + M04 + System.Single + + + M05 + System.Single + + + M06 + System.Single + + + M07 + System.Single + + + M08 + System.Single + + + M09 + System.Single + + + M10 + System.Single + + + M11 + System.Single + + + M12 + System.Single + + + COLG + System.Single + + + F + System.String + + + + DummyDataSource + + true + + + DSR + TReqUse + + + + 25.199cm + + 1cm + + + 7 + DSR_TReqUse + + + =Fields!GRP.Value + Equal + + 100 + + + + 0.134cm +
    + + + + + + + Desc + + 16 + =Fields!Desc.Value + + + + + + + UNIT + + 15 + =Fields!UNIT.Value + + + + + + + SIGN + + 14 + =Fields!SIGN.Value + + + + + + + EQ + + 13 + =Fields!EQ.Value + + + + + + + M00 + + 12 + =Fields!M00.Value + + + + + + + M01 + + 11 + =Fields!M01.Value + + + + + + + M02_1 + + 10 + =Fields!M02.Value + + + + + + + M03 + + 9 + =Fields!M03.Value + + + + + + + M04 + + 8 + =Fields!M04.Value + + + + + + + M05 + + 7 + =Fields!M05.Value + + + + + + + M06 + + 6 + =Fields!M06.Value + + + + + + + M07 + + 5 + =Fields!M07.Value + + + + + + + M08 + + 4 + =Fields!M08.Value + + + + + + + M09 + + 3 + =Fields!M09.Value + + + + + + + + 3 + =Fields!M10.Value + + + + + + + M11 + + 1 + =Fields!M11.Value + + + + + + + M12 + + =Fields!M12.Value + + + + + 0.536cm + + +
    + +
    + + + + + + + textbox2 + + 33 + true + 에너지요구량 + + + + + + + textbox3 + + 32 + true + [단위] + + + + + + + textbox4 + + 31 + true + [기호] + + + + + + + textbox5 + + 30 + true + + + + + + + + textbox11 + + 29 + true + 합계 + + + + + + + textbox14 + + 28 + true + 01월 + + + + + + + textbox17 + + 27 + true + 02월 + + + + + + + textbox20 + + 26 + true + 03월 + + + + + + + textbox23 + + 25 + true + 04월 + + + + + + + textbox26 + + 24 + true + 05월 + + + + + + + textbox29 + + 23 + true + 06월 + + + + + + + textbox32 + + 22 + true + 07월 + + + + + + + textbox35 + + 21 + true + 08월 + + + + + + + textbox38 + + 20 + true + 09월 + + + + + + + textbox44 + + 19 + true + 10월 + + + + + + + textbox41 + + 18 + true + 11월 + + + + + + + textbox47 + + 17 + true + 12월 + + + + + 0.603cm + + +
    + + + 3.015cm + + + 1.742cm + + + 1.742cm + + + 0.3cm + + + 1.6cm + + + 1.4cm + + + 1.4cm + + + 1.4cm + + + 1.4cm + + + 1.4cm + + + 1.4cm + + + 1.4cm + + + 1.4cm + + + 1.4cm + + + 1.4cm + + + 1.4cm + + + 1.4cm + + + 1.139cm +
    + + 6 + DSR_TReqUse + + + =Fields!GRP.Value + Equal + + 110 + + + + 1.541cm +
    + + + + + + + + 16 + =Fields!Desc.Value + + + + + + + + 15 + =Fields!UNIT.Value + + + + + + + + 14 + =Fields!SIGN.Value + + + + + + + + 13 + =Fields!EQ.Value + + + + + + + + 12 + =Fields!M00.Value + + + + + + + + 11 + =Fields!M01.Value + + + + + + + + 10 + =Fields!M02.Value + + + + + + + + 9 + =Fields!M03.Value + + + + + + + + 8 + =Fields!M04.Value + + + + + + + + 7 + =Fields!M05.Value + + + + + + + + 6 + =Fields!M06.Value + + + + + + + + 5 + =Fields!M07.Value + + + + + + + + 4 + =Fields!M08.Value + + + + + + + + 3 + =Fields!M09.Value + + + + + + + + 3 + =Fields!M10.Value + + + + + + + + 1 + =Fields!M11.Value + + + + + + + + =Fields!M12.Value + + + + + 0.536cm + + +
    + +
    + + + + + 17 + + + textbox124 + + true + 에너지요구량 분석 + + + + + 0.63492cm + + +
    + + + 3.015cm + + + 1.742cm + + + 1.742cm + + + 0.3cm + + + 1.6cm + + + 1.4cm + + + 1.4cm + + + 1.4cm + + + 1.4cm + + + 1.4cm + + + 1.4cm + + + 1.4cm + + + 1.4cm + + + 1.4cm + + + 1.4cm + + + 1.4cm + + + 1.4cm + + + 1.17092cm +
    + + 5 + DSR_TReqUse + + + =Fields!GRP.Value + Equal + + 200 + + + + 2.948cm +
    + + + + + + + + 16 + =Fields!Desc.Value + + + + + + + + 15 + =Fields!UNIT.Value + + + + + + + + 14 + =Fields!SIGN.Value + + + + + + + + 13 + =Fields!EQ.Value + + + + + + + + 12 + =Fields!M00.Value + + + + + + + + 11 + =Fields!M01.Value + + + + + + + + 10 + =Fields!M02.Value + + + + + + + + 9 + =Fields!M03.Value + + + + + + + + 8 + =Fields!M04.Value + + + + + + + + 7 + =Fields!M05.Value + + + + + + + + 6 + =Fields!M06.Value + + + + + + + + 5 + =Fields!M07.Value + + + + + + + + 4 + =Fields!M08.Value + + + + + + + + 3 + =Fields!M09.Value + + + + + + + + 2 + =Fields!M10.Value + + + + + + + + 1 + =Fields!M11.Value + + + + + + + + =Fields!M12.Value + + + + + 0.536cm + + +
    + +
    + + + + + + + + 33 + true + 에너지소요량 + + + + + + + + 32 + true + [단위] + + + + + + + + 31 + true + [기호] + + + + + + + + 30 + true + + + + + + + + + 29 + true + 합계 + + + + + + + + 28 + true + 01월 + + + + + + + + 27 + true + 02월 + + + + + + + + 26 + true + 03월 + + + + + + + + 25 + true + 04월 + + + + + + + + 24 + true + 05월 + + + + + + + + 23 + true + 06월 + + + + + + + + 22 + true + 07월 + + + + + + + + 21 + true + 08월 + + + + + + + + 20 + true + 09월 + + + + + + + + 19 + true + 10월 + + + + + + + + 18 + true + 11월 + + + + + + + + 17 + true + 12월 + + + + + 0.603cm + + +
    + + + 3.015cm + + + 1.742cm + + + 1.742cm + + + 0.3cm + + + 1.6cm + + + 1.4cm + + + 1.4cm + + + 1.4cm + + + 1.4cm + + + 1.4cm + + + 1.4cm + + + 1.4cm + + + 1.4cm + + + 1.4cm + + + 1.4cm + + + 1.4cm + + + 1.4cm + + + 1.139cm +
    + + 4 + DSR_TReqUse + + + =Fields!GRP.Value + Equal + + 210 + + + + 4.288cm +
    + + + + + + + + 16 + =Fields!Desc.Value + + + + + + + + 15 + =Fields!UNIT.Value + + + + + + + + 14 + =Fields!SIGN.Value + + + + + + + + 13 + =Fields!EQ.Value + + + + + + + + 12 + =Fields!M00.Value + + + + + + + + 11 + =Fields!M01.Value + + + + + + + + 10 + =Fields!M02.Value + + + + + + + + 9 + =Fields!M03.Value + + + + + + + + 8 + =Fields!M04.Value + + + + + + + + 7 + =Fields!M05.Value + + + + + + + + 6 + =Fields!M06.Value + + + + + + + + 5 + =Fields!M07.Value + + + + + + + + 4 + =Fields!M08.Value + + + + + + + + 3 + =Fields!M09.Value + + + + + + + + 2 + =Fields!M10.Value + + + + + + + + 1 + =Fields!M11.Value + + + + + + + + =Fields!M12.Value + + + + + 0.536cm + + +
    + +
    + + + + + 17 + + + textbox53 + + true + 에너지 소요량 분석 + + + + + 0.63492cm + + +
    + + + 3.015cm + + + 1.742cm + + + 1.742cm + + + 0.3cm + + + 1.6cm + + + 1.4cm + + + 1.4cm + + + 1.4cm + + + 1.4cm + + + 1.4cm + + + 1.4cm + + + 1.4cm + + + 1.4cm + + + 1.4cm + + + 1.4cm + + + 1.4cm + + + 1.4cm + + + 1.17092cm +
    + + 3 + DSR_TReqUse + + + =Fields!GRP.Value + Equal + + 400 + + + + 8.509cm +
    + + + + + + + + 16 + =Fields!Desc.Value + + + + + + + + 15 + =Fields!UNIT.Value + + + + + + + + 14 + =Fields!SIGN.Value + + + + + + + + 13 + =Fields!EQ.Value + + + + + + + + 12 + =Fields!M00.Value + + + + + + + + 11 + =Fields!M01.Value + + + + + + + + 10 + =Fields!M02.Value + + + + + + + + 9 + =Fields!M03.Value + + + + + + + + 8 + =Fields!M04.Value + + + + + + + + 7 + =Fields!M05.Value + + + + + + + + 6 + =Fields!M06.Value + + + + + + + + 5 + =Fields!M07.Value + + + + + + + + 4 + =Fields!M08.Value + + + + + + + + 3 + =Fields!M09.Value + + + + + + + + 2 + =Fields!M10.Value + + + + + + + + 1 + =Fields!M11.Value + + + + + + + + =Fields!M12.Value + + + + + 0.536cm + + +
    + +
    + + + + + + + + 32 + true + 연간 CO2 발생량 + + + + + + + + 31 + true + [단위] + + + + + 2 + + + + 30 + true + [CO2배출계수] + + + + + + + + 29 + true + 합계 + + + + + + + + 28 + true + 01월 + + + + + + + + 27 + true + 02월 + + + + + + + + 26 + true + 03월 + + + + + + + + 25 + true + 04월 + + + + + + + + 24 + true + 05월 + + + + + + + + 23 + true + 06월 + + + + + + + + 22 + true + 07월 + + + + + + + + 21 + true + 08월 + + + + + + + + 20 + true + 09월 + + + + + + + + 19 + true + 10월 + + + + + + + + 18 + true + 11월 + + + + + + + + 17 + true + 12월 + + + + + 0.603cm + + +
    + + + 3.015cm + + + 1.742cm + + + 1.742cm + + + 0.3cm + + + 1.6cm + + + 1.4cm + + + 1.4cm + + + 1.4cm + + + 1.4cm + + + 1.4cm + + + 1.4cm + + + 1.4cm + + + 1.4cm + + + 1.4cm + + + 1.4cm + + + 1.4cm + + + 1.4cm + + + 1.139cm +
    + + 2 + DSR_TReqUse + + + =Fields!GRP.Value + Equal + + 300 + + + + 5.628cm +
    + + + + + + + + 16 + =Fields!Desc.Value + + + + + + + + 15 + =Fields!UNIT.Value + + + + + + + + 14 + =Fields!SIGN.Value + + + + + + + + 13 + =Fields!EQ.Value + + + + + + + + 12 + =Fields!M00.Value + + + + + + + + 11 + =Fields!M01.Value + + + + + + + + 10 + =Fields!M02.Value + + + + + + + + 9 + =Fields!M03.Value + + + + + + + + 8 + =Fields!M04.Value + + + + + + + + 7 + =Fields!M05.Value + + + + + + + + 6 + =Fields!M06.Value + + + + + + + + 5 + =Fields!M07.Value + + + + + + + + 4 + =Fields!M08.Value + + + + + + + + 3 + =Fields!M09.Value + + + + + + + + 2 + =Fields!M10.Value + + + + + + + + 1 + =Fields!M11.Value + + + + + + + + =Fields!M12.Value + + + + + 0.536cm + + +
    + +
    + + + + + + + + 33 + true + 1차에너지 소요량 + + + + + + + + 32 + true + [단위] + + + + + + + + 31 + true + [변환계수] + + + + + + + + 30 + true + + + + + + + + + 29 + true + 합계 + + + + + + + + 28 + true + 01월 + + + + + + + + 27 + true + 02월 + + + + + + + + 26 + true + 03월 + + + + + + + + 25 + true + 04월 + + + + + + + + 24 + true + 05월 + + + + + + + + 23 + true + 06월 + + + + + + + + 22 + true + 07월 + + + + + + + + 21 + true + 08월 + + + + + + + + 20 + true + 09월 + + + + + + + + 19 + true + 10월 + + + + + + + + 18 + true + 11월 + + + + + + + + 17 + true + 12월 + + + + + 0.603cm + + +
    + + + 3.015cm + + + 1.742cm + + + 1.742cm + + + 0.3cm + + + 1.6cm + + + 1.4cm + + + 1.4cm + + + 1.4cm + + + 1.4cm + + + 1.4cm + + + 1.4cm + + + 1.4cm + + + 1.4cm + + + 1.4cm + + + 1.4cm + + + 1.4cm + + + 1.4cm + + + 1.139cm +
    + + 1 + DSR_TReqUse + + + =Fields!GRP.Value + Equal + + 310 + + + + 7.035cm +
    + + + + + + + + 16 + =Fields!Desc.Value + + + + + + + + 15 + =Fields!UNIT.Value + + + + + + + + 14 + =Fields!SIGN.Value + + + + + + + + 13 + =Fields!EQ.Value + + + + + + + + 12 + =Fields!M00.Value + + + + + + + + 11 + =Fields!M01.Value + + + + + + + + 10 + =Fields!M02.Value + + + + + + + + 9 + =Fields!M03.Value + + + + + + + + 8 + =Fields!M04.Value + + + + + + + + 7 + =Fields!M05.Value + + + + + + + + 6 + =Fields!M06.Value + + + + + + + + 5 + =Fields!M07.Value + + + + + + + + 4 + =Fields!M08.Value + + + + + + + + 3 + =Fields!M09.Value + + + + + + + + 2 + =Fields!M10.Value + + + + + + + + 1 + =Fields!M11.Value + + + + + + + + =Fields!M12.Value + + + + + 0.536cm + + +
    + +
    + + + + + 17 + + + textbox71 + + true + 열원별에너지소요량 + + + + + 0.63492cm + + +
    + + + 3.015cm + + + 1.742cm + + + 1.742cm + + + 0.3cm + + + 1.6cm + + + 1.4cm + + + 1.4cm + + + 1.4cm + + + 1.4cm + + + 1.4cm + + + 1.4cm + + + 1.4cm + + + 1.4cm + + + 1.4cm + + + 1.4cm + + + 1.4cm + + + 1.4cm + + + 1.17092cm +
    + + DSR_TReqUse + + + =Fields!GRP.Value + Equal + + 410 + + + + 9.916cm +
    + + + + + + + + 16 + =Fields!Desc.Value + + + + + + + + 15 + =Fields!UNIT.Value + + + + + + + + 14 + =Fields!SIGN.Value + + + + + + + + 13 + =Fields!EQ.Value + + + + + + + + 12 + =Fields!M00.Value + + + + + + + + 11 + =Fields!M01.Value + + + + + + + + 10 + =Fields!M02.Value + + + + + + + + 9 + =Fields!M03.Value + + + + + + + + 8 + =Fields!M04.Value + + + + + + + + 7 + =Fields!M05.Value + + + + + + + + 6 + =Fields!M06.Value + + + + + + + + 5 + =Fields!M07.Value + + + + + + + + 4 + =Fields!M08.Value + + + + + + + + 3 + =Fields!M09.Value + + + + + + + + 2 + =Fields!M10.Value + + + + + + + + 1 + =Fields!M11.Value + + + + + + + + =Fields!M12.Value + + + + + 0.536cm + + +
    + +
    + + + + + 17 + + + textbox123 + + true + 열원별 Co2 발생량 + + + + + 0.63492cm + + +
    + + + 3.015cm + + + 1.742cm + + + 1.742cm + + + 0.3cm + + + 1.6cm + + + 1.4cm + + + 1.4cm + + + 1.4cm + + + 1.4cm + + + 1.4cm + + + 1.4cm + + + 1.4cm + + + 1.4cm + + + 1.4cm + + + 1.4cm + + + 1.4cm + + + 1.4cm + + + 1.17092cm +
    +     + 12.596cm + + ko-KR + 2cm + 21cm +     \ No newline at end of file diff --git a/ArinWarev1/Forms_Basic/Frm_About.Designer.vb b/ArinWarev1/Forms_Basic/Frm_About.Designer.vb new file mode 100644 index 0000000..c6c3af1 --- /dev/null +++ b/ArinWarev1/Forms_Basic/Frm_About.Designer.vb @@ -0,0 +1,120 @@ + _ +Partial Class Frm_About + Inherits CForm + + 'Form은 Dispose를 재정의하여 구성 요소 목록을 정리합니다. + _ + Protected Overrides Sub Dispose(ByVal disposing As Boolean) + Try + If disposing AndAlso components IsNot Nothing Then + components.Dispose() + End If + Finally + MyBase.Dispose(disposing) + End Try + End Sub + + 'Windows Form 디자이너에 필요합니다. + Private components As System.ComponentModel.IContainer + + '참고: 다음 프로시저는 Windows Form 디자이너에 필요합니다. + '수정하려면 Windows Form 디자이너를 사용하십시오. + '코드 편집기를 사용하여 수정하지 마십시오. + _ + Private Sub InitializeComponent() + Me.Label6 = New System.Windows.Forms.Label() + Me.Label1 = New System.Windows.Forms.Label() + Me.Label2 = New System.Windows.Forms.Label() + Me.Label3 = New System.Windows.Forms.Label() + Me.PictureBox1 = New System.Windows.Forms.PictureBox() + CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit() + Me.SuspendLayout() + ' + 'Label6 + ' + Me.Label6.AutoSize = True + Me.Label6.Font = New System.Drawing.Font("돋움", 10.0!, System.Drawing.FontStyle.Bold) + Me.Label6.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Me.Label6.Location = New System.Drawing.Point(15, 16) + Me.Label6.Name = "Label6" + Me.Label6.Size = New System.Drawing.Size(123, 14) + Me.Label6.TabIndex = 3 + Me.Label6.Text = "[ECO2 만든 이]" + ' + 'Label1 + ' + Me.Label1.AutoSize = True + Me.Label1.BackColor = System.Drawing.Color.Transparent + Me.Label1.Font = New System.Drawing.Font("돋움", 8.999999!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.Label1.Location = New System.Drawing.Point(15, 49) + Me.Label1.Name = "Label1" + Me.Label1.Size = New System.Drawing.Size(130, 12) + Me.Label1.TabIndex = 0 + Me.Label1.Text = "Main Coder(Y.K.H)" + ' + 'Label2 + ' + Me.Label2.AutoSize = True + Me.Label2.BackColor = System.Drawing.Color.Transparent + Me.Label2.Font = New System.Drawing.Font("돋움", 8.999999!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.Label2.Location = New System.Drawing.Point(15, 69) + Me.Label2.Name = "Label2" + Me.Label2.Size = New System.Drawing.Size(112, 12) + Me.Label2.TabIndex = 1 + Me.Label2.Text = "Sub Coder(Arin)" + ' + 'Label3 + ' + Me.Label3.AutoSize = True + Me.Label3.BackColor = System.Drawing.Color.Transparent + Me.Label3.Font = New System.Drawing.Font("돋움", 8.999999!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.Label3.Location = New System.Drawing.Point(15, 89) + Me.Label3.Name = "Label3" + Me.Label3.Size = New System.Drawing.Size(121, 12) + Me.Label3.TabIndex = 1 + Me.Label3.Text = "UI Design(Yoojm)" + ' + 'PictureBox1 + ' + Me.PictureBox1.BackColor = System.Drawing.Color.Transparent + Me.PictureBox1.BackgroundImage = Global.Eco2Ar.My.Resources.Resources.ECO2 + Me.PictureBox1.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch + Me.PictureBox1.Location = New System.Drawing.Point(178, 8) + Me.PictureBox1.Name = "PictureBox1" + Me.PictureBox1.Size = New System.Drawing.Size(106, 102) + Me.PictureBox1.TabIndex = 2 + Me.PictureBox1.TabStop = False + ' + 'Frm_About + ' + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.None + Me.ClientSize = New System.Drawing.Size(296, 119) + Me.Controls.Add(Me.Label6) + Me.Controls.Add(Me.Label1) + Me.Controls.Add(Me.Label2) + Me.Controls.Add(Me.PictureBox1) + Me.Controls.Add(Me.Label3) + Me.Font = New System.Drawing.Font("돋움", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedToolWindow + Me.KeyPreview = True + Me.MaximizeBox = False + Me.MinimizeBox = False + Me.Name = "Frm_About" + Me.ShowInTaskbar = False + Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen + Me.Text = "프로그램정보" + CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).EndInit() + Me.ResumeLayout(False) + Me.PerformLayout() + + End Sub + Friend WithEvents Label6 As System.Windows.Forms.Label + Friend WithEvents Label1 As System.Windows.Forms.Label + Friend WithEvents Label2 As System.Windows.Forms.Label + Friend WithEvents Label3 As System.Windows.Forms.Label + Friend WithEvents PictureBox1 As System.Windows.Forms.PictureBox + + Private Sub Frm_About_Activated(sender As Object, e As System.EventArgs) Handles Me.Activated + + End Sub +End Class diff --git a/ArinWarev1/Forms_Basic/Frm_About.resx b/ArinWarev1/Forms_Basic/Frm_About.resx new file mode 100644 index 0000000..19dc0dd --- /dev/null +++ b/ArinWarev1/Forms_Basic/Frm_About.resx @@ -0,0 +1,120 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + \ No newline at end of file diff --git a/ArinWarev1/Forms_Basic/Frm_About.vb b/ArinWarev1/Forms_Basic/Frm_About.vb new file mode 100644 index 0000000..7cd7ecd --- /dev/null +++ b/ArinWarev1/Forms_Basic/Frm_About.vb @@ -0,0 +1,27 @@ +Public NotInheritable Class Frm_About + +#Region "Default Infomation 편집마지마세요" + Public Overrides Function AcceptChanged() As Boolean + + End Function + Public Overrides Function RejectChanged() As Boolean + + End Function + Public Overrides Function HasChanged() As Boolean + + End Function + + Private Sub Frm_About_KeyDown(sender As Object, e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown + If e.KeyCode = Keys.F1 Then MsgBox("Support by skykkumi : '01~12'", MsgBoxStyle.Information, "Message") '// + e.Handled = True + End Sub +#End Region + + Private Sub LinkLabel1_LinkClicked(sender As System.Object, e As System.Windows.Forms.LinkLabelLinkClickedEventArgs) + Process.Start("http://hangeul.naver.com/share.nhn") + End Sub + + Private Sub Frm_About_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load + + End Sub +End Class diff --git a/ArinWarev1/Forms_Basic/Frm_Calc.Designer.vb b/ArinWarev1/Forms_Basic/Frm_Calc.Designer.vb new file mode 100644 index 0000000..5367844 --- /dev/null +++ b/ArinWarev1/Forms_Basic/Frm_Calc.Designer.vb @@ -0,0 +1,128 @@ + _ +Partial Class Frm_Calc + Inherits CForm + + 'Form은 Dispose를 재정의하여 구성 요소 목록을 정리합니다. + _ + Protected Overrides Sub Dispose(ByVal disposing As Boolean) + Try + If disposing AndAlso components IsNot Nothing Then + components.Dispose() + End If + Finally + MyBase.Dispose(disposing) + End Try + End Sub + + 'Windows Form 디자이너에 필요합니다. + Private components As System.ComponentModel.IContainer + + '참고: 다음 프로시저는 Windows Form 디자이너에 필요합니다. + '수정하려면 Windows Form 디자이너를 사용하십시오. + '코드 편집기를 사용하여 수정하지 마십시오. + _ + Private Sub InitializeComponent() + Me.Button1 = New System.Windows.Forms.Button() + Me.Button2 = New System.Windows.Forms.Button() + Me.Button3 = New System.Windows.Forms.Button() + Me.Panel1 = New System.Windows.Forms.Panel() + Me.bt_설계개선안 = New System.Windows.Forms.Button() + Me.bt_cancel = New System.Windows.Forms.Button() + Me.Panel1.SuspendLayout() + Me.SuspendLayout() + ' + 'Button1 + ' + Me.Button1.BackColor = System.Drawing.SystemColors.Control + Me.Button1.Location = New System.Drawing.Point(11, 11) + Me.Button1.Name = "Button1" + Me.Button1.Size = New System.Drawing.Size(137, 31) + Me.Button1.TabIndex = 3 + Me.Button1.Text = "요구량" + Me.Button1.UseVisualStyleBackColor = False + ' + 'Button2 + ' + Me.Button2.ForeColor = System.Drawing.Color.Silver + Me.Button2.Location = New System.Drawing.Point(40, 174) + Me.Button2.Name = "Button2" + Me.Button2.Size = New System.Drawing.Size(137, 31) + Me.Button2.TabIndex = 4 + Me.Button2.Text = "소요량" + Me.Button2.UseVisualStyleBackColor = True + Me.Button2.Visible = False + ' + 'Button3 + ' + Me.Button3.BackColor = System.Drawing.SystemColors.Control + Me.Button3.Location = New System.Drawing.Point(11, 48) + Me.Button3.Name = "Button3" + Me.Button3.Size = New System.Drawing.Size(137, 31) + Me.Button3.TabIndex = 5 + Me.Button3.Text = "요구량+소요량" + Me.Button3.UseVisualStyleBackColor = False + ' + 'Panel1 + ' + Me.Panel1.BackColor = System.Drawing.Color.White + Me.Panel1.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.Panel1.Controls.Add(Me.bt_cancel) + Me.Panel1.Controls.Add(Me.bt_설계개선안) + Me.Panel1.Controls.Add(Me.Button1) + Me.Panel1.Controls.Add(Me.Button2) + Me.Panel1.Controls.Add(Me.Button3) + Me.Panel1.Dock = System.Windows.Forms.DockStyle.Fill + Me.Panel1.Location = New System.Drawing.Point(0, 0) + Me.Panel1.Name = "Panel1" + Me.Panel1.Size = New System.Drawing.Size(160, 164) + Me.Panel1.TabIndex = 7 + ' + 'bt_설계개선안 + ' + Me.bt_설계개선안.BackColor = System.Drawing.SystemColors.Control + Me.bt_설계개선안.Location = New System.Drawing.Point(11, 85) + Me.bt_설계개선안.Name = "bt_설계개선안" + Me.bt_설계개선안.Size = New System.Drawing.Size(137, 31) + Me.bt_설계개선안.TabIndex = 8 + Me.bt_설계개선안.Text = "설계개선안" + Me.bt_설계개선안.UseVisualStyleBackColor = False + ' + 'bt_cancel + ' + Me.bt_cancel.BackColor = System.Drawing.SystemColors.Control + Me.bt_cancel.ForeColor = System.Drawing.Color.Red + Me.bt_cancel.Location = New System.Drawing.Point(11, 122) + Me.bt_cancel.Name = "bt_cancel" + Me.bt_cancel.Size = New System.Drawing.Size(137, 31) + Me.bt_cancel.TabIndex = 9 + Me.bt_cancel.Text = "취 소" + Me.bt_cancel.UseVisualStyleBackColor = False + ' + 'Frm_Calc + ' + Me.AutoScaleDimensions = New System.Drawing.SizeF(9.0!, 15.0!) + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font + Me.BackColor = System.Drawing.SystemColors.AppWorkspace + Me.ClientSize = New System.Drawing.Size(160, 164) + Me.Controls.Add(Me.Panel1) + Me.Font = New System.Drawing.Font("돋움", 11.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedDialog + Me.KeyPreview = True + Me.Margin = New System.Windows.Forms.Padding(4) + Me.MaximizeBox = False + Me.MinimizeBox = False + Me.Name = "Frm_Calc" + Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen + Me.Text = "계산" + Me.TransparencyKey = System.Drawing.SystemColors.AppWorkspace + Me.Panel1.ResumeLayout(False) + Me.ResumeLayout(False) + + End Sub + Friend WithEvents Button1 As System.Windows.Forms.Button + Friend WithEvents Button2 As System.Windows.Forms.Button + Friend WithEvents Button3 As System.Windows.Forms.Button + Friend WithEvents Panel1 As System.Windows.Forms.Panel + Friend WithEvents bt_설계개선안 As System.Windows.Forms.Button + Friend WithEvents bt_cancel As System.Windows.Forms.Button +End Class diff --git a/ArinWarev1/Forms_Basic/Frm_Calc.resx b/ArinWarev1/Forms_Basic/Frm_Calc.resx new file mode 100644 index 0000000..19dc0dd --- /dev/null +++ b/ArinWarev1/Forms_Basic/Frm_Calc.resx @@ -0,0 +1,120 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + \ No newline at end of file diff --git a/ArinWarev1/Forms_Basic/Frm_Calc.vb b/ArinWarev1/Forms_Basic/Frm_Calc.vb new file mode 100644 index 0000000..266bfbc --- /dev/null +++ b/ArinWarev1/Forms_Basic/Frm_Calc.vb @@ -0,0 +1,60 @@ +Public Class Frm_Calc + Public Type As Calculator.ECalc + Public Overrides Function AcceptChanged() As Boolean + + End Function + Public Overrides Function RejectChanged() As Boolean + + End Function + Public Overrides Function HasChanged() As Boolean + + End Function + Private Sub Frm_Calc_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown + If e.KeyCode = Keys.Escape Then + Me.DialogResult = Windows.Forms.DialogResult.Cancel + End If + End Sub + + Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click + Type = Calculator.ECalc.REq + Me.DialogResult = Windows.Forms.DialogResult.OK + End Sub + + Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click + Type = Calculator.ECalc.Use + Me.DialogResult = Windows.Forms.DialogResult.OK + End Sub + + Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click + Type = Calculator.ECalc.All + Me.DialogResult = Windows.Forms.DialogResult.OK + End Sub + + Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) + Me.Close() + End Sub + + Private Sub bt_설계개선안_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt_설계개선안.Click + Select Case Prj.UserAuthType + Case "ADMIN", "BOTH1" '// 우선 제한된 사용자만 설계개선안 검토 가능 + Type = Calculator.ECalc.설계개선안 + Me.DialogResult = Windows.Forms.DialogResult.OK + Case Else + + End Select + + End Sub + + Private Sub Frm_Calc_Load(sender As Object, e As System.EventArgs) Handles Me.Load + Select Case Prj.UserAuthType + Case "ADMIN", "BOTH1" '//제한된 사용자만 가능 + bt_설계개선안.Visible = True + Case Else + bt_설계개선안.Visible = False + End Select + End Sub + + Private Sub bt_cancel_Click(sender As System.Object, e As System.EventArgs) Handles bt_cancel.Click + Me.DialogResult = Windows.Forms.DialogResult.Cancel + End Sub +End Class \ No newline at end of file diff --git a/ArinWarev1/Forms_Basic/Frm_Common.Designer.vb b/ArinWarev1/Forms_Basic/Frm_Common.Designer.vb new file mode 100644 index 0000000..32cbe10 --- /dev/null +++ b/ArinWarev1/Forms_Basic/Frm_Common.Designer.vb @@ -0,0 +1,273 @@ + _ +Partial Class Frm_Common + Inherits CForm + + 'Form은 Dispose를 재정의하여 구성 요소 목록을 정리합니다. + _ + Protected Overrides Sub Dispose(ByVal disposing As Boolean) + Try + If disposing AndAlso components IsNot Nothing Then + components.Dispose() + End If + Finally + MyBase.Dispose(disposing) + End Try + End Sub + + 'Windows Form 디자이너에 필요합니다. + Private components As System.ComponentModel.IContainer + + '참고: 다음 프로시저는 Windows Form 디자이너에 필요합니다. + '수정하려면 Windows Form 디자이너를 사용하십시오. + '코드 편집기를 사용하여 수정하지 마십시오. + _ + Private Sub InitializeComponent() + Me.components = New System.ComponentModel.Container() + Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(Frm_Common)) + Me.DS = New Eco2Ar.DS() + Me.Tbl_commonBindingSource = New System.Windows.Forms.BindingSource(Me.components) + Me.Tbl_commonTableAdapter = New Eco2Ar.DSTableAdapters.tbl_commonTableAdapter() + Me.Tbl_commonBindingNavigator = New System.Windows.Forms.BindingNavigator(Me.components) + Me.BindingNavigatorAddNewItem = New System.Windows.Forms.ToolStripButton() + Me.BindingNavigatorCountItem = New System.Windows.Forms.ToolStripLabel() + Me.BindingNavigatorDeleteItem = New System.Windows.Forms.ToolStripButton() + Me.BindingNavigatorMoveFirstItem = New System.Windows.Forms.ToolStripButton() + Me.BindingNavigatorMovePreviousItem = New System.Windows.Forms.ToolStripButton() + Me.BindingNavigatorSeparator = New System.Windows.Forms.ToolStripSeparator() + Me.BindingNavigatorPositionItem = New System.Windows.Forms.ToolStripTextBox() + Me.BindingNavigatorSeparator1 = New System.Windows.Forms.ToolStripSeparator() + Me.BindingNavigatorMoveNextItem = New System.Windows.Forms.ToolStripButton() + Me.BindingNavigatorMoveLastItem = New System.Windows.Forms.ToolStripButton() + Me.BindingNavigatorSeparator2 = New System.Windows.Forms.ToolStripSeparator() + Me.Tbl_commonBindingNavigatorSaveItem = New System.Windows.Forms.ToolStripButton() + Me.Tbl_commonDataGridView = New System.Windows.Forms.DataGridView() + Me.DataGridViewTextBoxColumn1 = New System.Windows.Forms.DataGridViewTextBoxColumn() + 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() + CType(Me.DS, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.Tbl_commonBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.Tbl_commonBindingNavigator, System.ComponentModel.ISupportInitialize).BeginInit() + Me.Tbl_commonBindingNavigator.SuspendLayout() + CType(Me.Tbl_commonDataGridView, System.ComponentModel.ISupportInitialize).BeginInit() + Me.SuspendLayout() + ' + 'DS + ' + Me.DS.DataSetName = "DS" + Me.DS.SchemaSerializationMode = System.Data.SchemaSerializationMode.IncludeSchema + ' + 'Tbl_commonBindingSource + ' + Me.Tbl_commonBindingSource.DataMember = "tbl_common" + Me.Tbl_commonBindingSource.DataSource = Me.DS + ' + 'Tbl_commonTableAdapter + ' + Me.Tbl_commonTableAdapter.ClearBeforeFill = True + ' + 'Tbl_commonBindingNavigator + ' + Me.Tbl_commonBindingNavigator.AddNewItem = Me.BindingNavigatorAddNewItem + Me.Tbl_commonBindingNavigator.BindingSource = Me.Tbl_commonBindingSource + Me.Tbl_commonBindingNavigator.CountItem = Me.BindingNavigatorCountItem + Me.Tbl_commonBindingNavigator.DeleteItem = Me.BindingNavigatorDeleteItem + Me.Tbl_commonBindingNavigator.Font = New System.Drawing.Font("돋움", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.Tbl_commonBindingNavigator.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.BindingNavigatorMoveFirstItem, Me.BindingNavigatorMovePreviousItem, Me.BindingNavigatorSeparator, Me.BindingNavigatorPositionItem, Me.BindingNavigatorCountItem, Me.BindingNavigatorSeparator1, Me.BindingNavigatorMoveNextItem, Me.BindingNavigatorMoveLastItem, Me.BindingNavigatorSeparator2, Me.BindingNavigatorAddNewItem, Me.BindingNavigatorDeleteItem, Me.Tbl_commonBindingNavigatorSaveItem}) + Me.Tbl_commonBindingNavigator.Location = New System.Drawing.Point(0, 0) + Me.Tbl_commonBindingNavigator.MoveFirstItem = Me.BindingNavigatorMoveFirstItem + Me.Tbl_commonBindingNavigator.MoveLastItem = Me.BindingNavigatorMoveLastItem + Me.Tbl_commonBindingNavigator.MoveNextItem = Me.BindingNavigatorMoveNextItem + Me.Tbl_commonBindingNavigator.MovePreviousItem = Me.BindingNavigatorMovePreviousItem + Me.Tbl_commonBindingNavigator.Name = "Tbl_commonBindingNavigator" + Me.Tbl_commonBindingNavigator.PositionItem = Me.BindingNavigatorPositionItem + Me.Tbl_commonBindingNavigator.Size = New System.Drawing.Size(791, 25) + Me.Tbl_commonBindingNavigator.TabIndex = 3 + Me.Tbl_commonBindingNavigator.Text = "BindingNavigator1" + ' + 'BindingNavigatorAddNewItem + ' + Me.BindingNavigatorAddNewItem.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.BindingNavigatorAddNewItem.Image = CType(resources.GetObject("BindingNavigatorAddNewItem.Image"), System.Drawing.Image) + Me.BindingNavigatorAddNewItem.Name = "BindingNavigatorAddNewItem" + Me.BindingNavigatorAddNewItem.RightToLeftAutoMirrorImage = True + Me.BindingNavigatorAddNewItem.Size = New System.Drawing.Size(23, 22) + Me.BindingNavigatorAddNewItem.Text = "새로 추가" + ' + 'BindingNavigatorCountItem + ' + Me.BindingNavigatorCountItem.Name = "BindingNavigatorCountItem" + Me.BindingNavigatorCountItem.Size = New System.Drawing.Size(29, 22) + Me.BindingNavigatorCountItem.Text = "/{0}" + Me.BindingNavigatorCountItem.ToolTipText = "전체 항목 수" + ' + 'BindingNavigatorDeleteItem + ' + Me.BindingNavigatorDeleteItem.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.BindingNavigatorDeleteItem.Image = CType(resources.GetObject("BindingNavigatorDeleteItem.Image"), System.Drawing.Image) + Me.BindingNavigatorDeleteItem.Name = "BindingNavigatorDeleteItem" + Me.BindingNavigatorDeleteItem.RightToLeftAutoMirrorImage = True + Me.BindingNavigatorDeleteItem.Size = New System.Drawing.Size(23, 22) + Me.BindingNavigatorDeleteItem.Text = "삭제" + ' + 'BindingNavigatorMoveFirstItem + ' + Me.BindingNavigatorMoveFirstItem.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.BindingNavigatorMoveFirstItem.Image = CType(resources.GetObject("BindingNavigatorMoveFirstItem.Image"), System.Drawing.Image) + Me.BindingNavigatorMoveFirstItem.Name = "BindingNavigatorMoveFirstItem" + Me.BindingNavigatorMoveFirstItem.RightToLeftAutoMirrorImage = True + Me.BindingNavigatorMoveFirstItem.Size = New System.Drawing.Size(23, 22) + Me.BindingNavigatorMoveFirstItem.Text = "처음으로 이동" + ' + 'BindingNavigatorMovePreviousItem + ' + Me.BindingNavigatorMovePreviousItem.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.BindingNavigatorMovePreviousItem.Image = CType(resources.GetObject("BindingNavigatorMovePreviousItem.Image"), System.Drawing.Image) + Me.BindingNavigatorMovePreviousItem.Name = "BindingNavigatorMovePreviousItem" + Me.BindingNavigatorMovePreviousItem.RightToLeftAutoMirrorImage = True + Me.BindingNavigatorMovePreviousItem.Size = New System.Drawing.Size(23, 22) + Me.BindingNavigatorMovePreviousItem.Text = "이전으로 이동" + ' + 'BindingNavigatorSeparator + ' + Me.BindingNavigatorSeparator.Name = "BindingNavigatorSeparator" + Me.BindingNavigatorSeparator.Size = New System.Drawing.Size(6, 25) + ' + 'BindingNavigatorPositionItem + ' + Me.BindingNavigatorPositionItem.AccessibleName = "위치" + Me.BindingNavigatorPositionItem.AutoSize = False + Me.BindingNavigatorPositionItem.Name = "BindingNavigatorPositionItem" + Me.BindingNavigatorPositionItem.Size = New System.Drawing.Size(50, 23) + Me.BindingNavigatorPositionItem.Text = "0" + Me.BindingNavigatorPositionItem.ToolTipText = "현재 위치" + ' + 'BindingNavigatorSeparator1 + ' + Me.BindingNavigatorSeparator1.Name = "BindingNavigatorSeparator1" + Me.BindingNavigatorSeparator1.Size = New System.Drawing.Size(6, 25) + ' + 'BindingNavigatorMoveNextItem + ' + Me.BindingNavigatorMoveNextItem.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.BindingNavigatorMoveNextItem.Image = CType(resources.GetObject("BindingNavigatorMoveNextItem.Image"), System.Drawing.Image) + Me.BindingNavigatorMoveNextItem.Name = "BindingNavigatorMoveNextItem" + Me.BindingNavigatorMoveNextItem.RightToLeftAutoMirrorImage = True + Me.BindingNavigatorMoveNextItem.Size = New System.Drawing.Size(23, 22) + Me.BindingNavigatorMoveNextItem.Text = "다음으로 이동" + ' + 'BindingNavigatorMoveLastItem + ' + Me.BindingNavigatorMoveLastItem.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.BindingNavigatorMoveLastItem.Image = CType(resources.GetObject("BindingNavigatorMoveLastItem.Image"), System.Drawing.Image) + Me.BindingNavigatorMoveLastItem.Name = "BindingNavigatorMoveLastItem" + Me.BindingNavigatorMoveLastItem.RightToLeftAutoMirrorImage = True + Me.BindingNavigatorMoveLastItem.Size = New System.Drawing.Size(23, 22) + Me.BindingNavigatorMoveLastItem.Text = "마지막으로 이동" + ' + 'BindingNavigatorSeparator2 + ' + Me.BindingNavigatorSeparator2.Name = "BindingNavigatorSeparator2" + Me.BindingNavigatorSeparator2.Size = New System.Drawing.Size(6, 25) + ' + 'Tbl_commonBindingNavigatorSaveItem + ' + Me.Tbl_commonBindingNavigatorSaveItem.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.Tbl_commonBindingNavigatorSaveItem.Image = CType(resources.GetObject("Tbl_commonBindingNavigatorSaveItem.Image"), System.Drawing.Image) + Me.Tbl_commonBindingNavigatorSaveItem.Name = "Tbl_commonBindingNavigatorSaveItem" + Me.Tbl_commonBindingNavigatorSaveItem.Size = New System.Drawing.Size(23, 22) + Me.Tbl_commonBindingNavigatorSaveItem.Text = "데이터 저장" + ' + 'Tbl_commonDataGridView + ' + Me.Tbl_commonDataGridView.AutoGenerateColumns = False + Me.Tbl_commonDataGridView.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize + Me.Tbl_commonDataGridView.Columns.AddRange(New System.Windows.Forms.DataGridViewColumn() {Me.DataGridViewTextBoxColumn1, Me.DataGridViewTextBoxColumn2, Me.DataGridViewTextBoxColumn3, Me.DataGridViewTextBoxColumn4, Me.DataGridViewTextBoxColumn5}) + Me.Tbl_commonDataGridView.DataSource = Me.Tbl_commonBindingSource + Me.Tbl_commonDataGridView.Dock = System.Windows.Forms.DockStyle.Fill + Me.Tbl_commonDataGridView.Location = New System.Drawing.Point(0, 25) + Me.Tbl_commonDataGridView.Name = "Tbl_commonDataGridView" + Me.Tbl_commonDataGridView.RowTemplate.Height = 23 + Me.Tbl_commonDataGridView.Size = New System.Drawing.Size(791, 455) + Me.Tbl_commonDataGridView.TabIndex = 3 + ' + 'DataGridViewTextBoxColumn1 + ' + Me.DataGridViewTextBoxColumn1.DataPropertyName = "gubun" + Me.DataGridViewTextBoxColumn1.HeaderText = "gubun" + Me.DataGridViewTextBoxColumn1.Name = "DataGridViewTextBoxColumn1" + ' + 'DataGridViewTextBoxColumn2 + ' + Me.DataGridViewTextBoxColumn2.DataPropertyName = "code" + Me.DataGridViewTextBoxColumn2.HeaderText = "code" + Me.DataGridViewTextBoxColumn2.Name = "DataGridViewTextBoxColumn2" + ' + 'DataGridViewTextBoxColumn3 + ' + Me.DataGridViewTextBoxColumn3.DataPropertyName = "name" + Me.DataGridViewTextBoxColumn3.HeaderText = "name" + Me.DataGridViewTextBoxColumn3.Name = "DataGridViewTextBoxColumn3" + ' + 'DataGridViewTextBoxColumn4 + ' + Me.DataGridViewTextBoxColumn4.DataPropertyName = "valn1" + Me.DataGridViewTextBoxColumn4.HeaderText = "valn1" + Me.DataGridViewTextBoxColumn4.Name = "DataGridViewTextBoxColumn4" + ' + 'DataGridViewTextBoxColumn5 + ' + Me.DataGridViewTextBoxColumn5.DataPropertyName = "codename" + Me.DataGridViewTextBoxColumn5.HeaderText = "codename" + Me.DataGridViewTextBoxColumn5.Name = "DataGridViewTextBoxColumn5" + Me.DataGridViewTextBoxColumn5.ReadOnly = True + ' + 'Frm_Common + ' + Me.AutoScaleDimensions = New System.Drawing.SizeF(7.0!, 12.0!) + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font + Me.ClientSize = New System.Drawing.Size(791, 480) + Me.Controls.Add(Me.Tbl_commonDataGridView) + Me.Controls.Add(Me.Tbl_commonBindingNavigator) + Me.Font = New System.Drawing.Font("돋움", 8.999999!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.SizableToolWindow + Me.KeyPreview = True + Me.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4) + Me.Name = "Frm_Common" + Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen + Me.Text = "공용코드관리" + CType(Me.DS, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.Tbl_commonBindingSource, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.Tbl_commonBindingNavigator, System.ComponentModel.ISupportInitialize).EndInit() + Me.Tbl_commonBindingNavigator.ResumeLayout(False) + Me.Tbl_commonBindingNavigator.PerformLayout() + CType(Me.Tbl_commonDataGridView, System.ComponentModel.ISupportInitialize).EndInit() + Me.ResumeLayout(False) + Me.PerformLayout() + + End Sub + Friend WithEvents CidDataGridViewTextBoxColumn As System.Windows.Forms.DataGridViewTextBoxColumn + Friend WithEvents DS As Eco2Ar.DS + Friend WithEvents Tbl_commonBindingSource As System.Windows.Forms.BindingSource + Friend WithEvents Tbl_commonTableAdapter As Eco2Ar.DSTableAdapters.tbl_commonTableAdapter + Friend WithEvents Tbl_commonBindingNavigator As System.Windows.Forms.BindingNavigator + Friend WithEvents BindingNavigatorAddNewItem As System.Windows.Forms.ToolStripButton + Friend WithEvents BindingNavigatorCountItem As System.Windows.Forms.ToolStripLabel + Friend WithEvents BindingNavigatorDeleteItem As System.Windows.Forms.ToolStripButton + Friend WithEvents BindingNavigatorMoveFirstItem As System.Windows.Forms.ToolStripButton + Friend WithEvents BindingNavigatorMovePreviousItem As System.Windows.Forms.ToolStripButton + Friend WithEvents BindingNavigatorSeparator As System.Windows.Forms.ToolStripSeparator + Friend WithEvents BindingNavigatorPositionItem As System.Windows.Forms.ToolStripTextBox + Friend WithEvents BindingNavigatorSeparator1 As System.Windows.Forms.ToolStripSeparator + Friend WithEvents BindingNavigatorMoveNextItem As System.Windows.Forms.ToolStripButton + Friend WithEvents BindingNavigatorMoveLastItem As System.Windows.Forms.ToolStripButton + Friend WithEvents BindingNavigatorSeparator2 As System.Windows.Forms.ToolStripSeparator + Friend WithEvents Tbl_commonBindingNavigatorSaveItem As System.Windows.Forms.ToolStripButton + Friend WithEvents Tbl_commonDataGridView As System.Windows.Forms.DataGridView + Friend WithEvents DataGridViewTextBoxColumn1 As System.Windows.Forms.DataGridViewTextBoxColumn + Friend WithEvents DataGridViewTextBoxColumn2 As System.Windows.Forms.DataGridViewTextBoxColumn + Friend WithEvents DataGridViewTextBoxColumn3 As System.Windows.Forms.DataGridViewTextBoxColumn + Friend WithEvents DataGridViewTextBoxColumn4 As System.Windows.Forms.DataGridViewTextBoxColumn + Friend WithEvents DataGridViewTextBoxColumn5 As System.Windows.Forms.DataGridViewTextBoxColumn +End Class diff --git a/ArinWarev1/Forms_Basic/Frm_Common.resx b/ArinWarev1/Forms_Basic/Frm_Common.resx new file mode 100644 index 0000000..c5cb43e --- /dev/null +++ b/ArinWarev1/Forms_Basic/Frm_Common.resx @@ -0,0 +1,212 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + 17, 17 + + + 84, 17 + + + 288, 17 + + + 486, 17 + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO + wgAADsIBFShKgAAAAUpJREFUOE9jGLzg7gL2/7fmcf6/Oofr/8UZvP+hwsSD60CNfx41/v/zsOH/yckC + pBtwfjov3ICDPSKkG3B8kiBQc93/Pw+q/u9oFydswKWZPP/PTuX7fxKo8Ui/0P993SJAzeX//94r+r++ + Qeb/qhq5/0srFf/PL1X+P6tIFdPAU0B//nlYD9RUC8SV///cKwHivP9/72b+/3sn+f/f23H//92MAOKQ + /5NyNDENONQrDHbu3/ulQI0FQI3ZQI2pQI0J///digZqDPv/70bQ/3/X/f53peliGrCzXeL/lmap/+vA + zpX/v6RC8f/fWzFAjeH/p+Zp/J+QpfW/O0P3f3uq/v/mREPCYTIb6E+Qc//dCPjfk6FDWAM6APnz3w1/ + IPb735qsT7oB3em6YP+CcH2cEekGtCQZ/G+IN/xfE2v8vzLahHQD6AQYGAAkI9iedfyIaQAAAABJRU5E + rkJggg== + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO + wgAADsIBFShKgAAAAW9JREFUOE+1kE0ow2Ecx3dV3krt4oJaOSCTvIRkMqSxyITIzCQHDouEdnFwIOVC + DrhIDiQl5UTiNG/z2ppafy1S2gX/uDwfY6i1v7Hie3nqeb7fz+/7/FR/Ilwn0G0Exw4fV5GJlXlEZxXC + rIet9bAQvB5Ymgn2sLYAvSZEux7RUQFzE4qQt4bCXAYjPaHvnDoCkLpsRGMB2JqCTGLIijDlwqQ9bEMV + i9OIytR3EMNWcJ/BWH8A6j8/bOGFxwXNxYEvGbMQ9XnQ1/K78KfY3/VXzkMY0qFGG2H4RoLGQshJQNbG + 86CNhdrsX9a/uQZTPhQl4rMY4OLofbl3aX7I8uwPC7y/g1YdjyVJuEvT8e1tfwUYteHUxCCfHChDeHmG + QQvokjlOU+PbWA0x3pZnILVVI3uvQyHsbiLnqnGmRCF1NYD8pDhpRxOH7HQoAKZGkFKjceszQbpSrumX + bO+G80MFwKUTxgfgcO/b8D9IpXoFiiMDHIQm0skAAAAASUVORK5CYII= + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO + wgAADsIBFShKgAAAASpJREFUOE9jGDygcNbz/00Lnv/PnPj4P1QIA4S3P8Apx5A789n/VUfe/8elKL77 + wf/ghmu4DciY8vT/wn0fsCqK73n4f+n+///9qy/gNiCh58n/aVveYyiKaL8P1pw56/9/r9ITuA2I7Hr0 + v3f1BxRFoa33wJpb1wFt7/z73yX/AG4DApsf/q+b/w6uKLjl7v9Fe///7wBqzpjz879d3c//9hnbcRvg + UXX/f/60NyiK7Ipv/0+f8/u/f9e3/zqF7/5bJKzHbYB96d3/2ZNfYyjSTzn/36ToxX+VrE//jSOX4TbA + Iu/O/9T+11gVGSSd+C+b9vW/bvA83AYYZt3+H9byEqci/dTL/zV8p+E2QCftxn+/6od4Fal4TMBtgFPu + lf8gBXgVDULAwAAA8HbAq6XlmnAAAAAASUVORK5CYII= + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO + wgAADsIBFShKgAAAALZJREFUOE9jGDogvP3BfyiTdBDf/eB/cMM18gyI73n4f+n+///9qy+QbkBE+32w + 5sxZ//97lZ4gzYDQ1ntgza3rgLZ3/v3vkn+AeAOCW+7+X7T3//8OoOaMOT//29X9/G+fsZ00F9gV3/6f + Puf3f/+ub/91Ct/9t0hYT3oY6Kec/29S9OK/Stan/8aRy0g3AAQMkk78l037+l83eB55BoCAfurl/xq+ + 08g3AARUPCZQZsBgBQwMANAUYJgEulBVAAAAAElFTkSuQmCC + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO + wgAADsIBFShKgAAAAKNJREFUOE9jGHygcNbz/1AmeSB35rP/Cd33yDckY8rT//P2//6f0HWHPEMSep78 + n73v1//OrX//u5VeJt2QyK5H/6ds+/W/ZOnf/wnT//63yT1LmiGBzQ//t659D9ZsXPLlv3T0tf/GkcuI + N8Sj6v7/krnv4JoVXXpIc4F96d3/gS3PyNMMAhZ5d/7bFFwhTzMIGGbdJl8zCOik3SBf81AEDAwAoH5f + oAc0QjgAAAAASUVORK5CYII= + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO + wgAADsIBFShKgAAAASxJREFUOE9jGFygcNbz/1AmBgDJNS14/j9z4mOcahhyZz77n9B9D6sCkNyqI+// + h7c/wG1AxpSn/+ft//0/oesOhiKQ3MJ9H/4HN1zDbUBCz5P/s/f9+t+59e9/t9LLKApBctO2vP/vX30B + twGRXY/+T9n263/J0r//E6b//W+TexauGCTXu/rDf6/SE7gNCGx++L917XuwZuOSL/+lo6/9N45cBtYA + kqub/+6/S/4B3AZ4VN3/XzL3HVyzoksPXDFILn/am//2GdtxG2Bfevd/YMszDM0gAJLLnvz6v0XCetwG + WOTd+W9TcAVDMwiA5FL7X8O9hBUYZt3GqhkEQHJhLS//6wbPw22ATtoNnJIgOb/qh/81fKfhNgAfcMq9 + 8l/FYwIYQ4UGBWBgAAC+0b+zuQxOnAAAAABJRU5ErkJggg== + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO + wgAADsIBFShKgAAAAi9JREFUOE+tkt1L01EYx3//QvfdBF10W1NjOBerwa9cQ1k2DCvCXn6RZmm6TBMV + K9Oo+QbZCpdOWq0m4aQiX8AUKRFlKlmauaIlDjXFJoLB1/Oc/fK4ii6iB56bw/l8znlepP8Sz5+FQelr + XUKLdxEP3fNoagzhrmMadbVfYL8VwPXySZSWjKOw4C3yckdw/pwfKi5JBHZ1ArU1K/hbLK+swpTahUOp + T3mquCR5nyxwQWXFN/Xq70FwaH4ZuywvoNEosB70CIH7wRwXlJZ8Va9Hx0/4Y3ABMWYfCi5N4YClWQic + DTNccNH2QUVEbISHJ0LYJnuRkz2G5CSnENTfDnJB1tkRFYvEr3CfP4jNBjcUZQBms0MIaqo/c4FyakBF + /wx39n/CpvhGHD7yComJdUJwo3IKHe1gowSOHX8D69Fe3m1qGNVM36aXI3A3UqwvIct2IbhSNoE2H9gO + AM2uH2zu31F+bZY3lRpGNWdm+Nfh/cmtMBorhOBy4Rg8j4D7zlW2OGGY0rKj0pJuQ9qZogicxOB9HhgM + ZUJgyxtlMFBdFeYvE0TnMToZg+9nMDo5CyX3KvaYWjis2+2CXl8kBLSWjjtY/zYJCD6dfxPvAnMITC/i + QrEdsQYXg5sQm3APuvh8IcjMGGJ1L3F4q9GDLTtkPG7rga+9Dx3d/eh9PYi9Zis0+gbEMXi7th5abU60 + 4OSJHr6etGG0JDRnGhV1mxpGNdOrlATvjMsSgn8PSVoDbGg6a0b5NXsAAAAASUVORK5CYII= + + + \ No newline at end of file diff --git a/ArinWarev1/Forms_Basic/Frm_Common.vb b/ArinWarev1/Forms_Basic/Frm_Common.vb new file mode 100644 index 0000000..30685fb --- /dev/null +++ b/ArinWarev1/Forms_Basic/Frm_Common.vb @@ -0,0 +1,24 @@ +Public Class Frm_Common + Dim viewTag As String = "common" + Dim ViewFile As String = "\View_Config\Common_" + Dim ViewOutFile As String = "\ExcelOut\공용코드.xls" + Public Overrides Function AcceptChanged() As Boolean + + End Function + Public Overrides Function RejectChanged() As Boolean + + End Function + Public Overrides Function HasChanged() As Boolean + + End Function + Private Sub Tbl_commonBindingNavigatorSaveItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Tbl_commonBindingNavigatorSaveItem.Click + Me.Validate() + Me.Tbl_commonBindingSource.EndEdit() + Me.Tbl_commonTableAdapter.Update(Me.DS.tbl_common) + End Sub + + Private Sub Frm_Common_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load + 'TODO: 이 코드는 데이터를 'DS.tbl_common' 테이블에 로드합니다. 필요한 경우 이 코드를 이동하거나 제거할 수 있습니다. + Me.Tbl_commonTableAdapter.Fill(Me.DS.tbl_common) + End Sub +End Class \ No newline at end of file diff --git a/ArinWarev1/Forms_Basic/Frm_DisplayGubun.Designer.vb b/ArinWarev1/Forms_Basic/Frm_DisplayGubun.Designer.vb new file mode 100644 index 0000000..02b2e52 --- /dev/null +++ b/ArinWarev1/Forms_Basic/Frm_DisplayGubun.Designer.vb @@ -0,0 +1,38 @@ + _ +Partial Class Frm_DisplayGubun + Inherits System.Windows.Forms.Form + + 'Form은 Dispose를 재정의하여 구성 요소 목록을 정리합니다. + _ + Protected Overrides Sub Dispose(ByVal disposing As Boolean) + Try + If disposing AndAlso components IsNot Nothing Then + components.Dispose() + End If + Finally + MyBase.Dispose(disposing) + End Try + End Sub + + 'Windows Form 디자이너에 필요합니다. + Private components As System.ComponentModel.IContainer + + '참고: 다음 프로시저는 Windows Form 디자이너에 필요합니다. + '수정하려면 Windows Form 디자이너를 사용하십시오. + '코드 편집기를 사용하여 수정하지 마십시오. + _ + Private Sub InitializeComponent() + Me.SuspendLayout() + ' + 'Frm_DisplayGubun + ' + Me.AutoScaleDimensions = New System.Drawing.SizeF(7.0!, 12.0!) + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font + Me.ClientSize = New System.Drawing.Size(604, 427) + Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedDialog + Me.Name = "Frm_DisplayGubun" + Me.Text = "구분표시" + Me.ResumeLayout(False) + + End Sub +End Class diff --git a/ArinWarev1/Forms_Basic/Frm_DisplayGubun.resx b/ArinWarev1/Forms_Basic/Frm_DisplayGubun.resx new file mode 100644 index 0000000..19dc0dd --- /dev/null +++ b/ArinWarev1/Forms_Basic/Frm_DisplayGubun.resx @@ -0,0 +1,120 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + \ No newline at end of file diff --git a/ArinWarev1/Forms_Basic/Frm_DisplayGubun.vb b/ArinWarev1/Forms_Basic/Frm_DisplayGubun.vb new file mode 100644 index 0000000..d5711b8 --- /dev/null +++ b/ArinWarev1/Forms_Basic/Frm_DisplayGubun.vb @@ -0,0 +1,60 @@ +Public Class Frm_DisplayGubun + + Dim Fc As Color = Color.Black + Dim Bc As Color = Color.White + + Public Sub New() + + ' 이 호출은 Windows Form 디자이너에 필요합니다. + InitializeComponent() + + ' InitializeComponent() 호출 뒤에 초기화 코드를 추가하십시오. + + End Sub + Public Sub New(ByVal vfc As String, ByVal vfb As String) + InitializeComponent() + Try + Me.Fc = Color.FromArgb(vfc) + Catch ex As Exception + Me.Fc = Color.Black + End Try + Try + Me.Bc = Color.FromArgb(vfb) + Catch ex As Exception + Me.Bc = Color.White + End Try + + End Sub + Private Sub Frm_DisplayGubun_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load + + Me.Width = 555 + Me.Height = 362 + End Sub + + Private Sub Frm_DisplayGubun_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles Me.Paint + Dim x, y As Decimal + x = 0 + y = 0 + Dim G As Graphics = e.Graphics + For i As Integer = 0 To 100 + If i <> 0 AndAlso i Mod 10 = 0 Then + x = 0 + y += 55 + ElseIf i <> 0 Then + x += 55 + End If + + Try + Dim B As New System.Drawing.Drawing2D.HatchBrush(i, Me.Fc, Me.Bc) + G.FillRectangle(B, New Rectangle(x, y, 50, 50)) + G.DrawString(i.ToString, Me.Font, New SolidBrush(Color.White), x, y) + Catch ex As Exception + + End Try + + + Next + G.Dispose() + End Sub + +End Class \ No newline at end of file diff --git a/ArinWarev1/Forms_Basic/Frm_FileInfo.Designer.vb b/ArinWarev1/Forms_Basic/Frm_FileInfo.Designer.vb new file mode 100644 index 0000000..d91e981 --- /dev/null +++ b/ArinWarev1/Forms_Basic/Frm_FileInfo.Designer.vb @@ -0,0 +1,278 @@ + _ +Partial Class Frm_FileInfo + Inherits CForm + + 'Form은 Dispose를 재정의하여 구성 요소 목록을 정리합니다. + _ + Protected Overrides Sub Dispose(ByVal disposing As Boolean) + Try + If disposing AndAlso components IsNot Nothing Then + components.Dispose() + End If + Finally + MyBase.Dispose(disposing) + End Try + End Sub + + 'Windows Form 디자이너에 필요합니다. + Private components As System.ComponentModel.IContainer + + '참고: 다음 프로시저는 Windows Form 디자이너에 필요합니다. + '수정하려면 Windows Form 디자이너를 사용하십시오. + '코드 편집기를 사용하여 수정하지 마십시오. + _ + Private Sub InitializeComponent() + Me.Panel1 = New System.Windows.Forms.Panel() + Me.Button1 = New System.Windows.Forms.Button() + Me.Label10 = New System.Windows.Forms.Label() + Me.Label9 = New System.Windows.Forms.Label() + Me.tb_password = New System.Windows.Forms.TextBox() + Me.Label8 = New System.Windows.Forms.Label() + Me.tb_Edittime = New System.Windows.Forms.TextBox() + Me.Label7 = New System.Windows.Forms.Label() + Me.cmb_ft = New System.Windows.Forms.ComboBox() + Me.Label6 = New System.Windows.Forms.Label() + Me.tb_ui = New System.Windows.Forms.TextBox() + Me.Label5 = New System.Windows.Forms.Label() + Me.tb_lg = New System.Windows.Forms.TextBox() + Me.Label4 = New System.Windows.Forms.Label() + Me.tb_maketime = New System.Windows.Forms.TextBox() + Me.Label3 = New System.Windows.Forms.Label() + Me.tb_desc = New System.Windows.Forms.TextBox() + Me.Label2 = New System.Windows.Forms.Label() + Me.tb_name = New System.Windows.Forms.TextBox() + Me.Label1 = New System.Windows.Forms.Label() + Me.Panel1.SuspendLayout() + Me.SuspendLayout() + ' + 'Panel1 + ' + Me.Panel1.BackColor = System.Drawing.Color.White + Me.Panel1.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.Panel1.Controls.Add(Me.Button1) + Me.Panel1.Controls.Add(Me.Label10) + Me.Panel1.Controls.Add(Me.Label9) + Me.Panel1.Controls.Add(Me.tb_password) + Me.Panel1.Controls.Add(Me.Label8) + Me.Panel1.Controls.Add(Me.tb_Edittime) + Me.Panel1.Controls.Add(Me.Label7) + Me.Panel1.Controls.Add(Me.cmb_ft) + Me.Panel1.Controls.Add(Me.Label6) + Me.Panel1.Controls.Add(Me.tb_ui) + Me.Panel1.Controls.Add(Me.Label5) + Me.Panel1.Controls.Add(Me.tb_lg) + Me.Panel1.Controls.Add(Me.Label4) + Me.Panel1.Controls.Add(Me.tb_maketime) + Me.Panel1.Controls.Add(Me.Label3) + Me.Panel1.Controls.Add(Me.tb_desc) + Me.Panel1.Controls.Add(Me.Label2) + Me.Panel1.Controls.Add(Me.tb_name) + Me.Panel1.Controls.Add(Me.Label1) + Me.Panel1.Dock = System.Windows.Forms.DockStyle.Fill + Me.Panel1.Location = New System.Drawing.Point(0, 0) + Me.Panel1.Name = "Panel1" + Me.Panel1.Size = New System.Drawing.Size(398, 320) + Me.Panel1.TabIndex = 0 + ' + 'Button1 + ' + Me.Button1.Location = New System.Drawing.Point(106, 229) + Me.Button1.Name = "Button1" + Me.Button1.Size = New System.Drawing.Size(278, 36) + Me.Button1.TabIndex = 17 + Me.Button1.Text = "변경완료" + Me.Button1.UseVisualStyleBackColor = True + ' + 'Label10 + ' + Me.Label10.AutoSize = True + Me.Label10.Location = New System.Drawing.Point(21, 278) + Me.Label10.Name = "Label10" + Me.Label10.Size = New System.Drawing.Size(298, 12) + Me.Label10.TabIndex = 16 + Me.Label10.Text = "* 암호는 저장파일형태가 01 이상이 되어야합니다" + ' + 'Label9 + ' + Me.Label9.AutoSize = True + Me.Label9.Location = New System.Drawing.Point(21, 295) + Me.Label9.Name = "Label9" + Me.Label9.Size = New System.Drawing.Size(232, 12) + Me.Label9.TabIndex = 16 + Me.Label9.Text = "* 버젼 변경은 현재 허용되지 않습니다" + ' + 'tb_password + ' + Me.tb_password.Location = New System.Drawing.Point(106, 173) + Me.tb_password.Name = "tb_password" + Me.tb_password.PasswordChar = Global.Microsoft.VisualBasic.ChrW(42) + Me.tb_password.Size = New System.Drawing.Size(279, 21) + Me.tb_password.TabIndex = 15 + ' + 'Label8 + ' + Me.Label8.AutoSize = True + Me.Label8.ForeColor = System.Drawing.Color.Blue + Me.Label8.Location = New System.Drawing.Point(69, 176) + Me.Label8.Name = "Label8" + Me.Label8.Size = New System.Drawing.Size(31, 12) + Me.Label8.TabIndex = 14 + Me.Label8.Text = "암호" + ' + 'tb_Edittime + ' + Me.tb_Edittime.Location = New System.Drawing.Point(106, 92) + Me.tb_Edittime.Name = "tb_Edittime" + Me.tb_Edittime.ReadOnly = True + Me.tb_Edittime.Size = New System.Drawing.Size(279, 21) + Me.tb_Edittime.TabIndex = 13 + ' + 'Label7 + ' + Me.Label7.AutoSize = True + Me.Label7.Location = New System.Drawing.Point(17, 95) + Me.Label7.Name = "Label7" + Me.Label7.Size = New System.Drawing.Size(83, 12) + Me.Label7.TabIndex = 12 + Me.Label7.Text = "최종수정시간" + ' + 'cmb_ft + ' + Me.cmb_ft.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList + Me.cmb_ft.FormattingEnabled = True + Me.cmb_ft.Items.AddRange(New Object() {"00 [기본파일형태]", "01 [암호설정가능]"}) + Me.cmb_ft.Location = New System.Drawing.Point(106, 201) + Me.cmb_ft.Name = "cmb_ft" + Me.cmb_ft.Size = New System.Drawing.Size(279, 20) + Me.cmb_ft.TabIndex = 11 + ' + 'Label6 + ' + Me.Label6.AutoSize = True + Me.Label6.Location = New System.Drawing.Point(17, 204) + Me.Label6.Name = "Label6" + Me.Label6.Size = New System.Drawing.Size(83, 12) + Me.Label6.TabIndex = 10 + Me.Label6.Text = "저장파일형태" + ' + 'tb_ui + ' + Me.tb_ui.Location = New System.Drawing.Point(106, 146) + Me.tb_ui.Name = "tb_ui" + Me.tb_ui.ReadOnly = True + Me.tb_ui.Size = New System.Drawing.Size(279, 21) + Me.tb_ui.TabIndex = 9 + ' + 'Label5 + ' + Me.Label5.AutoSize = True + Me.Label5.Location = New System.Drawing.Point(82, 152) + Me.Label5.Name = "Label5" + Me.Label5.Size = New System.Drawing.Size(18, 12) + Me.Label5.TabIndex = 8 + Me.Label5.Text = "UI" + ' + 'tb_lg + ' + Me.tb_lg.Location = New System.Drawing.Point(106, 119) + Me.tb_lg.Name = "tb_lg" + Me.tb_lg.ReadOnly = True + Me.tb_lg.Size = New System.Drawing.Size(279, 21) + Me.tb_lg.TabIndex = 7 + ' + 'Label4 + ' + Me.Label4.AutoSize = True + Me.Label4.Location = New System.Drawing.Point(77, 124) + Me.Label4.Name = "Label4" + Me.Label4.Size = New System.Drawing.Size(23, 12) + Me.Label4.TabIndex = 6 + Me.Label4.Text = "LG" + ' + 'tb_maketime + ' + Me.tb_maketime.Location = New System.Drawing.Point(106, 65) + Me.tb_maketime.Name = "tb_maketime" + Me.tb_maketime.ReadOnly = True + Me.tb_maketime.Size = New System.Drawing.Size(279, 21) + Me.tb_maketime.TabIndex = 5 + ' + 'Label3 + ' + Me.Label3.AutoSize = True + Me.Label3.Location = New System.Drawing.Point(43, 70) + Me.Label3.Name = "Label3" + Me.Label3.Size = New System.Drawing.Size(57, 12) + Me.Label3.TabIndex = 4 + Me.Label3.Text = "생성시간" + ' + 'tb_desc + ' + Me.tb_desc.Location = New System.Drawing.Point(106, 38) + Me.tb_desc.Name = "tb_desc" + Me.tb_desc.Size = New System.Drawing.Size(279, 21) + Me.tb_desc.TabIndex = 3 + ' + 'Label2 + ' + Me.Label2.AutoSize = True + Me.Label2.Location = New System.Drawing.Point(25, 44) + Me.Label2.Name = "Label2" + Me.Label2.Size = New System.Drawing.Size(75, 12) + Me.Label2.TabIndex = 2 + Me.Label2.Text = "템플릿 설명" + ' + 'tb_name + ' + Me.tb_name.Location = New System.Drawing.Point(106, 11) + Me.tb_name.Name = "tb_name" + Me.tb_name.Size = New System.Drawing.Size(279, 21) + Me.tb_name.TabIndex = 1 + ' + 'Label1 + ' + Me.Label1.AutoSize = True + Me.Label1.Location = New System.Drawing.Point(25, 15) + Me.Label1.Name = "Label1" + Me.Label1.Size = New System.Drawing.Size(75, 12) + Me.Label1.TabIndex = 0 + Me.Label1.Text = "템플릿 이름" + ' + 'Frm_FileInfo + ' + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.None + Me.ClientSize = New System.Drawing.Size(398, 320) + Me.Controls.Add(Me.Panel1) + Me.Font = New System.Drawing.Font("돋움", 8.999999!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedToolWindow + Me.MaximizeBox = False + Me.MinimizeBox = False + Me.Name = "Frm_FileInfo" + Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen + Me.Text = "템플릿 정보" + Me.Panel1.ResumeLayout(False) + Me.Panel1.PerformLayout() + Me.ResumeLayout(False) + + End Sub + Friend WithEvents Panel1 As System.Windows.Forms.Panel + Friend WithEvents Label1 As System.Windows.Forms.Label + Friend WithEvents tb_name As System.Windows.Forms.TextBox + Friend WithEvents tb_desc As System.Windows.Forms.TextBox + Friend WithEvents Label2 As System.Windows.Forms.Label + Friend WithEvents tb_ui As System.Windows.Forms.TextBox + Friend WithEvents Label5 As System.Windows.Forms.Label + Friend WithEvents tb_lg As System.Windows.Forms.TextBox + Friend WithEvents Label4 As System.Windows.Forms.Label + Friend WithEvents tb_maketime As System.Windows.Forms.TextBox + Friend WithEvents Label3 As System.Windows.Forms.Label + Friend WithEvents Label6 As System.Windows.Forms.Label + Friend WithEvents cmb_ft As System.Windows.Forms.ComboBox + Friend WithEvents tb_Edittime As System.Windows.Forms.TextBox + Friend WithEvents Label7 As System.Windows.Forms.Label + Friend WithEvents tb_password As System.Windows.Forms.TextBox + Friend WithEvents Label8 As System.Windows.Forms.Label + Friend WithEvents Label10 As System.Windows.Forms.Label + Friend WithEvents Label9 As System.Windows.Forms.Label + Friend WithEvents Button1 As System.Windows.Forms.Button +End Class diff --git a/ArinWarev1/Forms_Basic/Frm_FileInfo.resx b/ArinWarev1/Forms_Basic/Frm_FileInfo.resx new file mode 100644 index 0000000..19dc0dd --- /dev/null +++ b/ArinWarev1/Forms_Basic/Frm_FileInfo.resx @@ -0,0 +1,120 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + \ No newline at end of file diff --git a/ArinWarev1/Forms_Basic/Frm_FileInfo.vb b/ArinWarev1/Forms_Basic/Frm_FileInfo.vb new file mode 100644 index 0000000..8db0af0 --- /dev/null +++ b/ArinWarev1/Forms_Basic/Frm_FileInfo.vb @@ -0,0 +1,45 @@ +Public Class Frm_FileInfo + + Private Sub Frm_FileInfo_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load + + Me.tb_name.Text = Prj.Name + Me.tb_desc.Text = Prj.Desc + Me.tb_maketime.Text = Prj.MakeTime + Me.tb_Edittime.Text = Prj.EditTime + Me.tb_lg.Text = Prj.LGVersino + Me.tb_ui.Text = Prj.UIVersion + Me.cmb_ft.SelectedIndex = CInt(Prj.SFType) + Select Case Me.cmb_ft.SelectedIndex + Case 1 + Me.tb_password.Text = Prj.Password + Case Else + Me.tb_password.Text = "" + End Select + If Me.cmb_ft.SelectedIndex = -1 Then Me.cmb_ft.SelectedIndex = 1 + End Sub + + Private Sub cmb_ft_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmb_ft.SelectedIndexChanged + Select Case Me.cmb_ft.SelectedIndex + Case 0 + Me.tb_password.Text = "" + Me.tb_password.Enabled = False + Case 1 + Me.cmb_ft.Enabled = True + Case Else + Me.tb_password.Text = "" + Me.tb_password.Enabled = False + End Select + End Sub + + Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click + + Prj.Name = Me.tb_name.Text + Prj.Desc = Me.tb_desc.Text + Prj.MakeTime = Me.tb_maketime.Text + Prj.EditTime = Me.tb_Edittime.Text + Prj.LGVersino = Me.tb_lg.Text + Prj.UIVersion = Me.tb_ui.Text + Prj.SFType = Format(Me.cmb_ft.SelectedIndex, "00") + Me.DialogResult = Windows.Forms.DialogResult.OK + End Sub +End Class \ No newline at end of file diff --git a/ArinWarev1/Forms_Basic/Frm_Filter.Designer.vb b/ArinWarev1/Forms_Basic/Frm_Filter.Designer.vb new file mode 100644 index 0000000..cf194a6 --- /dev/null +++ b/ArinWarev1/Forms_Basic/Frm_Filter.Designer.vb @@ -0,0 +1,386 @@ + _ +Partial Class Frm_Filter + Inherits System.Windows.Forms.Form + + 'Form은 Dispose를 재정의하여 구성 요소 목록을 정리합니다. + _ + Protected Overrides Sub Dispose(ByVal disposing As Boolean) + Try + If disposing AndAlso components IsNot Nothing Then + components.Dispose() + End If + Finally + MyBase.Dispose(disposing) + End Try + End Sub + + 'Windows Form 디자이너에 필요합니다. + Private components As System.ComponentModel.IContainer + + '참고: 다음 프로시저는 Windows Form 디자이너에 필요합니다. + '수정하려면 Windows Form 디자이너를 사용하십시오. + '코드 편집기를 사용하여 수정하지 마십시오. + _ + Private Sub InitializeComponent() + Me.TableLayoutPanel1 = New System.Windows.Forms.TableLayoutPanel() + Me.OK_Button = New System.Windows.Forms.Button() + Me.Cancel_Button = New System.Windows.Forms.Button() + Me.tb_filter = New System.Windows.Forms.TextBox() + Me.cmb_field1 = New System.Windows.Forms.ComboBox() + Me.cmb_field2 = New System.Windows.Forms.ComboBox() + Me.cmb_field3 = New System.Windows.Forms.ComboBox() + Me.cmb_field4 = New System.Windows.Forms.ComboBox() + Me.cmb_j1 = New System.Windows.Forms.ComboBox() + Me.cmb_j2 = New System.Windows.Forms.ComboBox() + Me.cmb_j3 = New System.Windows.Forms.ComboBox() + Me.cmb_cond1 = New System.Windows.Forms.ComboBox() + Me.cmb_cond2 = New System.Windows.Forms.ComboBox() + Me.cmb_cond3 = New System.Windows.Forms.ComboBox() + Me.cmb_cond4 = New System.Windows.Forms.ComboBox() + Me.tb_s1 = New System.Windows.Forms.TextBox() + Me.tb_s2 = New System.Windows.Forms.TextBox() + Me.tb_s3 = New System.Windows.Forms.TextBox() + Me.tb_s4 = New System.Windows.Forms.TextBox() + Me.GroupBox1 = New System.Windows.Forms.GroupBox() + Me.GroupBox2 = New System.Windows.Forms.GroupBox() + Me.Label1 = New System.Windows.Forms.Label() + Me.Label2 = New System.Windows.Forms.Label() + Me.GroupBox3 = New System.Windows.Forms.GroupBox() + Me.Label4 = New System.Windows.Forms.Label() + Me.tb_valuec = New System.Windows.Forms.TextBox() + Me.cmb_fieldc = New System.Windows.Forms.ComboBox() + Me.Label3 = New System.Windows.Forms.Label() + Me.TableLayoutPanel1.SuspendLayout() + Me.GroupBox1.SuspendLayout() + Me.GroupBox2.SuspendLayout() + Me.GroupBox3.SuspendLayout() + Me.SuspendLayout() + ' + 'TableLayoutPanel1 + ' + Me.TableLayoutPanel1.ColumnCount = 2 + Me.TableLayoutPanel1.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Percent, 50.0!)) + Me.TableLayoutPanel1.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Percent, 50.0!)) + Me.TableLayoutPanel1.Controls.Add(Me.OK_Button, 0, 0) + Me.TableLayoutPanel1.Controls.Add(Me.Cancel_Button, 1, 0) + Me.TableLayoutPanel1.Location = New System.Drawing.Point(229, 252) + Me.TableLayoutPanel1.Name = "TableLayoutPanel1" + Me.TableLayoutPanel1.RowCount = 1 + Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Percent, 50.0!)) + Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Absolute, 27.0!)) + Me.TableLayoutPanel1.Size = New System.Drawing.Size(170, 27) + Me.TableLayoutPanel1.TabIndex = 0 + ' + 'OK_Button + ' + Me.OK_Button.Anchor = System.Windows.Forms.AnchorStyles.None + Me.OK_Button.Location = New System.Drawing.Point(3, 3) + Me.OK_Button.Name = "OK_Button" + Me.OK_Button.Size = New System.Drawing.Size(78, 21) + Me.OK_Button.TabIndex = 0 + Me.OK_Button.Text = "확인" + ' + 'Cancel_Button + ' + Me.Cancel_Button.Anchor = System.Windows.Forms.AnchorStyles.None + Me.Cancel_Button.DialogResult = System.Windows.Forms.DialogResult.Cancel + Me.Cancel_Button.Location = New System.Drawing.Point(88, 3) + Me.Cancel_Button.Name = "Cancel_Button" + Me.Cancel_Button.Size = New System.Drawing.Size(78, 21) + Me.Cancel_Button.TabIndex = 1 + Me.Cancel_Button.Text = "취소" + ' + 'tb_filter + ' + Me.tb_filter.Location = New System.Drawing.Point(22, 20) + Me.tb_filter.Multiline = True + Me.tb_filter.Name = "tb_filter" + Me.tb_filter.Size = New System.Drawing.Size(361, 60) + Me.tb_filter.TabIndex = 1 + ' + 'cmb_field1 + ' + Me.cmb_field1.FormattingEnabled = True + Me.cmb_field1.Location = New System.Drawing.Point(73, 23) + Me.cmb_field1.Name = "cmb_field1" + Me.cmb_field1.Size = New System.Drawing.Size(138, 20) + Me.cmb_field1.TabIndex = 3 + ' + 'cmb_field2 + ' + Me.cmb_field2.FormattingEnabled = True + Me.cmb_field2.Location = New System.Drawing.Point(73, 49) + Me.cmb_field2.Name = "cmb_field2" + Me.cmb_field2.Size = New System.Drawing.Size(138, 20) + Me.cmb_field2.TabIndex = 4 + ' + 'cmb_field3 + ' + Me.cmb_field3.FormattingEnabled = True + Me.cmb_field3.Location = New System.Drawing.Point(73, 75) + Me.cmb_field3.Name = "cmb_field3" + Me.cmb_field3.Size = New System.Drawing.Size(138, 20) + Me.cmb_field3.TabIndex = 5 + ' + 'cmb_field4 + ' + Me.cmb_field4.FormattingEnabled = True + Me.cmb_field4.Location = New System.Drawing.Point(73, 101) + Me.cmb_field4.Name = "cmb_field4" + Me.cmb_field4.Size = New System.Drawing.Size(138, 20) + Me.cmb_field4.TabIndex = 6 + ' + 'cmb_j1 + ' + Me.cmb_j1.FormattingEnabled = True + Me.cmb_j1.Items.AddRange(New Object() {"AND", "OR"}) + Me.cmb_j1.Location = New System.Drawing.Point(6, 49) + Me.cmb_j1.Name = "cmb_j1" + Me.cmb_j1.Size = New System.Drawing.Size(61, 20) + Me.cmb_j1.TabIndex = 7 + ' + 'cmb_j2 + ' + Me.cmb_j2.FormattingEnabled = True + Me.cmb_j2.Items.AddRange(New Object() {"AND", "OR"}) + Me.cmb_j2.Location = New System.Drawing.Point(6, 75) + Me.cmb_j2.Name = "cmb_j2" + Me.cmb_j2.Size = New System.Drawing.Size(61, 20) + Me.cmb_j2.TabIndex = 8 + ' + 'cmb_j3 + ' + Me.cmb_j3.FormattingEnabled = True + Me.cmb_j3.Items.AddRange(New Object() {"AND", "OR"}) + Me.cmb_j3.Location = New System.Drawing.Point(6, 101) + Me.cmb_j3.Name = "cmb_j3" + Me.cmb_j3.Size = New System.Drawing.Size(61, 20) + Me.cmb_j3.TabIndex = 9 + ' + 'cmb_cond1 + ' + Me.cmb_cond1.FormattingEnabled = True + Me.cmb_cond1.Items.AddRange(New Object() {"Like", "<>", "=", "<=", ">="}) + Me.cmb_cond1.Location = New System.Drawing.Point(217, 23) + Me.cmb_cond1.Name = "cmb_cond1" + Me.cmb_cond1.Size = New System.Drawing.Size(51, 20) + Me.cmb_cond1.TabIndex = 11 + ' + 'cmb_cond2 + ' + Me.cmb_cond2.FormattingEnabled = True + Me.cmb_cond2.Items.AddRange(New Object() {"Like", "<>", "=", "<=", ">="}) + Me.cmb_cond2.Location = New System.Drawing.Point(217, 49) + Me.cmb_cond2.Name = "cmb_cond2" + Me.cmb_cond2.Size = New System.Drawing.Size(51, 20) + Me.cmb_cond2.TabIndex = 12 + ' + 'cmb_cond3 + ' + Me.cmb_cond3.FormattingEnabled = True + Me.cmb_cond3.Items.AddRange(New Object() {"Like", "<>", "=", "<=", ">="}) + Me.cmb_cond3.Location = New System.Drawing.Point(217, 75) + Me.cmb_cond3.Name = "cmb_cond3" + Me.cmb_cond3.Size = New System.Drawing.Size(51, 20) + Me.cmb_cond3.TabIndex = 13 + ' + 'cmb_cond4 + ' + Me.cmb_cond4.FormattingEnabled = True + Me.cmb_cond4.Items.AddRange(New Object() {"Like", "<>", "=", "<=", ">="}) + Me.cmb_cond4.Location = New System.Drawing.Point(217, 101) + Me.cmb_cond4.Name = "cmb_cond4" + Me.cmb_cond4.Size = New System.Drawing.Size(51, 20) + Me.cmb_cond4.TabIndex = 14 + ' + 'tb_s1 + ' + Me.tb_s1.Location = New System.Drawing.Point(274, 22) + Me.tb_s1.Name = "tb_s1" + Me.tb_s1.Size = New System.Drawing.Size(109, 21) + Me.tb_s1.TabIndex = 15 + ' + 'tb_s2 + ' + Me.tb_s2.Location = New System.Drawing.Point(274, 49) + Me.tb_s2.Name = "tb_s2" + Me.tb_s2.Size = New System.Drawing.Size(109, 21) + Me.tb_s2.TabIndex = 16 + ' + 'tb_s3 + ' + Me.tb_s3.Location = New System.Drawing.Point(274, 76) + Me.tb_s3.Name = "tb_s3" + Me.tb_s3.Size = New System.Drawing.Size(109, 21) + Me.tb_s3.TabIndex = 17 + ' + 'tb_s4 + ' + Me.tb_s4.Location = New System.Drawing.Point(274, 103) + Me.tb_s4.Name = "tb_s4" + Me.tb_s4.Size = New System.Drawing.Size(109, 21) + Me.tb_s4.TabIndex = 18 + ' + 'GroupBox1 + ' + Me.GroupBox1.Controls.Add(Me.cmb_field1) + Me.GroupBox1.Controls.Add(Me.cmb_field2) + Me.GroupBox1.Controls.Add(Me.tb_s4) + Me.GroupBox1.Controls.Add(Me.cmb_field3) + Me.GroupBox1.Controls.Add(Me.tb_s3) + Me.GroupBox1.Controls.Add(Me.cmb_field4) + Me.GroupBox1.Controls.Add(Me.tb_s2) + Me.GroupBox1.Controls.Add(Me.cmb_j1) + Me.GroupBox1.Controls.Add(Me.tb_s1) + Me.GroupBox1.Controls.Add(Me.cmb_j2) + Me.GroupBox1.Controls.Add(Me.cmb_cond4) + Me.GroupBox1.Controls.Add(Me.cmb_j3) + Me.GroupBox1.Controls.Add(Me.cmb_cond3) + Me.GroupBox1.Controls.Add(Me.cmb_cond1) + Me.GroupBox1.Controls.Add(Me.cmb_cond2) + Me.GroupBox1.Location = New System.Drawing.Point(10, 12) + Me.GroupBox1.Name = "GroupBox1" + Me.GroupBox1.Size = New System.Drawing.Size(389, 135) + Me.GroupBox1.TabIndex = 0 + Me.GroupBox1.TabStop = False + Me.GroupBox1.Text = "조건" + ' + 'GroupBox2 + ' + Me.GroupBox2.Controls.Add(Me.tb_filter) + Me.GroupBox2.Location = New System.Drawing.Point(10, 153) + Me.GroupBox2.Name = "GroupBox2" + Me.GroupBox2.Size = New System.Drawing.Size(389, 93) + Me.GroupBox2.TabIndex = 1 + Me.GroupBox2.TabStop = False + Me.GroupBox2.Text = "Filter" + ' + 'Label1 + ' + Me.Label1.AutoSize = True + Me.Label1.BackColor = System.Drawing.Color.LightGreen + Me.Label1.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.Label1.ForeColor = System.Drawing.SystemColors.ControlText + Me.Label1.Location = New System.Drawing.Point(12, 261) + Me.Label1.Name = "Label1" + Me.Label1.Size = New System.Drawing.Size(31, 14) + Me.Label1.TabIndex = 22 + Me.Label1.Text = "0001" + ' + 'Label2 + ' + Me.Label2.AutoSize = True + Me.Label2.Location = New System.Drawing.Point(49, 261) + Me.Label2.Name = "Label2" + Me.Label2.Size = New System.Drawing.Size(101, 12) + Me.Label2.TabIndex = 23 + Me.Label2.Text = ": 코드로 입력요망" + ' + 'GroupBox3 + ' + Me.GroupBox3.Controls.Add(Me.Label4) + Me.GroupBox3.Controls.Add(Me.tb_valuec) + Me.GroupBox3.Controls.Add(Me.cmb_fieldc) + Me.GroupBox3.Location = New System.Drawing.Point(10, 285) + Me.GroupBox3.Name = "GroupBox3" + Me.GroupBox3.Size = New System.Drawing.Size(389, 51) + Me.GroupBox3.TabIndex = 2 + Me.GroupBox3.TabStop = False + Me.GroupBox3.Text = "바꾸기" + ' + 'Label4 + ' + Me.Label4.AutoSize = True + Me.Label4.Location = New System.Drawing.Point(198, 22) + Me.Label4.Name = "Label4" + Me.Label4.Size = New System.Drawing.Size(41, 12) + Me.Label4.TabIndex = 1 + Me.Label4.Text = "변경값" + ' + 'tb_valuec + ' + Me.tb_valuec.Location = New System.Drawing.Point(245, 19) + Me.tb_valuec.Name = "tb_valuec" + Me.tb_valuec.Size = New System.Drawing.Size(138, 21) + Me.tb_valuec.TabIndex = 2 + Me.tb_valuec.TextAlign = System.Windows.Forms.HorizontalAlignment.Center + ' + 'cmb_fieldc + ' + Me.cmb_fieldc.FormattingEnabled = True + Me.cmb_fieldc.Location = New System.Drawing.Point(22, 19) + Me.cmb_fieldc.Name = "cmb_fieldc" + Me.cmb_fieldc.Size = New System.Drawing.Size(156, 20) + Me.cmb_fieldc.TabIndex = 0 + ' + 'Label3 + ' + Me.Label3.AutoSize = True + Me.Label3.Location = New System.Drawing.Point(12, 339) + Me.Label3.Name = "Label3" + Me.Label3.Size = New System.Drawing.Size(353, 12) + Me.Label3.TabIndex = 24 + Me.Label3.Text = "바꾸기 값이 설정되어있으면 확인시에 해당 필드값이 변경됩니다" + ' + 'Frm_Filter + ' + Me.AcceptButton = Me.OK_Button + Me.AutoScaleDimensions = New System.Drawing.SizeF(7.0!, 12.0!) + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font + Me.CancelButton = Me.Cancel_Button + Me.ClientSize = New System.Drawing.Size(411, 360) + Me.Controls.Add(Me.Label3) + Me.Controls.Add(Me.GroupBox3) + Me.Controls.Add(Me.Label2) + Me.Controls.Add(Me.Label1) + Me.Controls.Add(Me.GroupBox2) + Me.Controls.Add(Me.GroupBox1) + Me.Controls.Add(Me.TableLayoutPanel1) + Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedToolWindow + Me.MaximizeBox = False + Me.MinimizeBox = False + Me.Name = "Frm_Filter" + Me.ShowInTaskbar = False + Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterParent + Me.Text = "검색조건" + Me.TableLayoutPanel1.ResumeLayout(False) + Me.GroupBox1.ResumeLayout(False) + Me.GroupBox1.PerformLayout() + Me.GroupBox2.ResumeLayout(False) + Me.GroupBox2.PerformLayout() + Me.GroupBox3.ResumeLayout(False) + Me.GroupBox3.PerformLayout() + Me.ResumeLayout(False) + Me.PerformLayout() + + End Sub + Friend WithEvents TableLayoutPanel1 As System.Windows.Forms.TableLayoutPanel + Friend WithEvents OK_Button As System.Windows.Forms.Button + Friend WithEvents Cancel_Button As System.Windows.Forms.Button + Friend WithEvents tb_filter As System.Windows.Forms.TextBox + Friend WithEvents cmb_field1 As System.Windows.Forms.ComboBox + Friend WithEvents cmb_field2 As System.Windows.Forms.ComboBox + Friend WithEvents cmb_field3 As System.Windows.Forms.ComboBox + Friend WithEvents cmb_field4 As System.Windows.Forms.ComboBox + Friend WithEvents cmb_j1 As System.Windows.Forms.ComboBox + Friend WithEvents cmb_j2 As System.Windows.Forms.ComboBox + Friend WithEvents cmb_j3 As System.Windows.Forms.ComboBox + Friend WithEvents cmb_cond1 As System.Windows.Forms.ComboBox + Friend WithEvents cmb_cond2 As System.Windows.Forms.ComboBox + Friend WithEvents cmb_cond3 As System.Windows.Forms.ComboBox + Friend WithEvents cmb_cond4 As System.Windows.Forms.ComboBox + Friend WithEvents tb_s1 As System.Windows.Forms.TextBox + Friend WithEvents tb_s2 As System.Windows.Forms.TextBox + Friend WithEvents tb_s3 As System.Windows.Forms.TextBox + Friend WithEvents tb_s4 As System.Windows.Forms.TextBox + Friend WithEvents GroupBox1 As System.Windows.Forms.GroupBox + Friend WithEvents GroupBox2 As System.Windows.Forms.GroupBox + Friend WithEvents Label1 As System.Windows.Forms.Label + Friend WithEvents Label2 As System.Windows.Forms.Label + Friend WithEvents GroupBox3 As System.Windows.Forms.GroupBox + Friend WithEvents cmb_fieldc As System.Windows.Forms.ComboBox + Friend WithEvents Label3 As System.Windows.Forms.Label + Friend WithEvents Label4 As System.Windows.Forms.Label + Friend WithEvents tb_valuec As System.Windows.Forms.TextBox + +End Class diff --git a/ArinWarev1/Forms_Basic/Frm_Filter.resx b/ArinWarev1/Forms_Basic/Frm_Filter.resx new file mode 100644 index 0000000..19dc0dd --- /dev/null +++ b/ArinWarev1/Forms_Basic/Frm_Filter.resx @@ -0,0 +1,120 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + \ No newline at end of file diff --git a/ArinWarev1/Forms_Basic/Frm_Filter.vb b/ArinWarev1/Forms_Basic/Frm_Filter.vb new file mode 100644 index 0000000..3b1a499 --- /dev/null +++ b/ArinWarev1/Forms_Basic/Frm_Filter.vb @@ -0,0 +1,253 @@ +Imports System.Windows.Forms + +Public Class Frm_Filter + Public ColumList() As String '//필드네임 + Public ColumTitle() As String '//필드제목줄 + Public Colorlist As String + Public Numfield As String '//숫자필드일경우 + Public Default_Filter As String '//기본값 code <> '0' + + Private Sub Frm_Filter_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load + Init_combo() + + End Sub + + Private Sub Init_combo() '//콤보박스목록을 생성 + Dim CmbJ As String() = {"AND", "OR"} + Dim CmbCond As String() = {"LIKE", "=", "<>", "<=", ">="} + + + '//clear + Me.cmb_j1.Items.Clear() + Me.cmb_j2.Items.Clear() + Me.cmb_j3.Items.Clear() + 'Me.cmb_j4.Items.Clear() + + Me.cmb_cond1.Items.Clear() + Me.cmb_cond2.Items.Clear() + Me.cmb_cond3.Items.Clear() + Me.cmb_cond4.Items.Clear() + + Me.cmb_field1.Items.Clear() + Me.cmb_field2.Items.Clear() + Me.cmb_field3.Items.Clear() + Me.cmb_field4.Items.Clear() + Me.cmb_fieldc.Items.Clear() + + '/set + Me.cmb_j1.Items.AddRange(CmbJ) + Me.cmb_j2.Items.AddRange(CmbJ) + Me.cmb_j3.Items.AddRange(CmbJ) + + + Me.cmb_cond1.Items.AddRange(CmbCond) + Me.cmb_cond2.Items.AddRange(CmbCond) + Me.cmb_cond3.Items.AddRange(CmbCond) + Me.cmb_cond4.Items.AddRange(CmbCond) + + + Try '//필드선택 콤보박승 필드명 넣기 + Me.cmb_field1.Items.AddRange(ColumTitle) + Me.cmb_field2.Items.AddRange(ColumTitle) + Me.cmb_field3.Items.AddRange(ColumTitle) + Me.cmb_field4.Items.AddRange(ColumTitle) + Me.cmb_fieldc.Items.AddRange(ColumTitle) + Catch ex As Exception + MsgBox("필드목록이 없거나 매개변수값이 없습니다", MsgBoxStyle.Critical, "확인") + End Try + + 'Me.cmb_j1.SelectedIndex = 0 + 'Me.cmb_j2.SelectedIndex = 0 + 'Me.cmb_j3.SelectedIndex = 0 + + + 'Me.cmb_cond1.SelectedIndex = 0 + 'Me.cmb_cond2.SelectedIndex = 0 + 'Me.cmb_cond3.SelectedIndex = 0 + 'Me.cmb_cond4.SelectedIndex = 0 + + AddHandler Me.cmb_j1.SelectedIndexChanged, AddressOf event_comboselectindex + AddHandler Me.cmb_j2.SelectedIndexChanged, AddressOf event_comboselectindex + AddHandler Me.cmb_j3.SelectedIndexChanged, AddressOf event_comboselectindex + + AddHandler Me.cmb_cond1.SelectedIndexChanged, AddressOf event_comboselectindex + AddHandler Me.cmb_cond2.SelectedIndexChanged, AddressOf event_comboselectindex + AddHandler Me.cmb_cond3.SelectedIndexChanged, AddressOf event_comboselectindex + AddHandler Me.cmb_cond4.SelectedIndexChanged, AddressOf event_comboselectindex + + AddHandler Me.cmb_field1.SelectedIndexChanged, AddressOf event_comboselectindex + AddHandler Me.cmb_field2.SelectedIndexChanged, AddressOf event_comboselectindex + AddHandler Me.cmb_field3.SelectedIndexChanged, AddressOf event_comboselectindex + AddHandler Me.cmb_field4.SelectedIndexChanged, AddressOf event_comboselectindex + + AddHandler Me.tb_s1.TextChanged, AddressOf event_textboxchange + AddHandler Me.tb_s2.TextChanged, AddressOf event_textboxchange + AddHandler Me.tb_s3.TextChanged, AddressOf event_textboxchange + AddHandler Me.tb_s4.TextChanged, AddressOf event_textboxchange + + + End Sub + + Private Function IsnumField(ByVal v_Fname As String) As Boolean + '//숫자필드목록에서 해당 필드가 잇는지 확인한다. + If Me.Numfield.IndexOf(v_Fname) = -1 Then '//해당필드가 숫자목록에 잇으면 True + Return False + Else + Return True + End If + End Function + Private Sub MakeWhreState() + '//콤보박스값을 가지고 Textbox1 을 생성 + Dim NewStat As New System.Text.StringBuilder() + If Me.cmb_field1.SelectedIndex <> -1 And Me.tb_s1.Text <> "" Then + If cmb_cond1.Text.ToUpper = "LIKE" Then + NewStat.Append(Space(1) + Me.ColumList(Me.cmb_field1.SelectedIndex).ToString + Space(1) + cmb_cond1.Text + Space(1) + "'%" + tb_s1.Text + "%'") + Else + '//숫자필드이면 + If IsnumField(Me.cmb_field1.Text) Then + NewStat.Append(Space(1) + "convert(isnull(" & Me.ColumList(Me.cmb_field1.SelectedIndex).ToString & ",'0'),'System.Single')" + Space(1) + cmb_cond1.Text + Space(1) + tb_s1.Text) + Else + NewStat.Append(Space(1) + Me.ColumList(Me.cmb_field1.SelectedIndex).ToString + Space(1) + cmb_cond1.Text + Space(1) + "'" + tb_s1.Text + "'") + End If + + End If + + End If + If Me.cmb_field2.SelectedIndex <> -1 And Me.tb_s2.Text <> "" Then + If cmb_cond2.Text.ToUpper = "LIKE" Then + NewStat.Append(Space(1) + Me.cmb_j1.Text + Space(1) + Me.ColumList(Me.cmb_field2.SelectedIndex).ToString + Space(1) + cmb_cond2.Text + Space(1) + "'%" + tb_s2.Text + "%'") + Else + If IsnumField(Me.cmb_field1.Text) Then + NewStat.Append(Space(1) + Me.cmb_j1.Text + Space(1) + "convert(isnull(" & Me.ColumList(Me.cmb_field2.SelectedIndex).ToString & ",'0'),'System.Single')" + Space(1) + cmb_cond2.Text + Space(1) + tb_s2.Text) + Else + NewStat.Append(Space(1) + Me.cmb_j1.Text + Space(1) + Me.ColumList(Me.cmb_field2.SelectedIndex).ToString + Space(1) + cmb_cond2.Text + Space(1) + "'" + tb_s2.Text + "'") + End If + + End If + + End If + If Me.cmb_field3.SelectedIndex <> -1 And Me.tb_s3.Text <> "" Then + If cmb_cond3.Text.ToUpper = "LIKE" Then + NewStat.Append(Space(1) + Me.cmb_j2.Text + Space(1) + Me.ColumList(Me.cmb_field3.SelectedIndex).ToString + Space(1) + cmb_cond3.Text + Space(1) + "'%" + tb_s3.Text + "%'") + Else + If IsnumField(Me.cmb_field1.Text) Then + NewStat.Append(Space(1) + Me.cmb_j2.Text + Space(1) + "convert(isnull(" & Me.ColumList(Me.cmb_field3.SelectedIndex).ToString & ",'0'),'System.Single')" + Space(1) + cmb_cond3.Text + Space(1) + tb_s3.Text) + Else + NewStat.Append(Space(1) + Me.cmb_j2.Text + Space(1) + Me.ColumList(Me.cmb_field3.SelectedIndex).ToString + Space(1) + cmb_cond3.Text + Space(1) + "'" + tb_s3.Text + "'") + End If + + End If + + End If + If Me.cmb_field4.SelectedIndex <> -1 And Me.tb_s4.Text <> "" Then + If cmb_cond3.Text.ToUpper = "LIKE" Then + NewStat.Append(Space(1) + Me.cmb_j3.Text + Space(1) + Me.ColumList(Me.cmb_field4.SelectedIndex).ToString + Space(1) + cmb_cond4.Text + Space(1) + "'%" + tb_s4.Text + "%'") + Else + If IsnumField(Me.cmb_field1.Text) Then + NewStat.Append(Space(1) + Me.cmb_j3.Text + Space(1) + "convert(isnull(" & Me.ColumList(Me.cmb_field4.SelectedIndex).ToString & ",'0'),'System.Single')" + Space(1) + cmb_cond4.Text + Space(1) + tb_s4.Text) + Else + NewStat.Append(Space(1) + Me.cmb_j3.Text + Space(1) + Me.ColumList(Me.cmb_field4.SelectedIndex).ToString + Space(1) + cmb_cond4.Text + Space(1) + "'" + tb_s4.Text + "'") + End If + + End If + + End If + If NewStat.ToString.Trim = "" Then + Me.tb_filter.Text = Default_Filter + Else + Me.tb_filter.Text = Default_Filter & " and " + NewStat.ToString + End If + + + End Sub + + Private Sub OK_Button_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OK_Button.Click + If Me.tb_filter.Text = "" Then Me.tb_filter.Text = Default_Filter + Me.DialogResult = System.Windows.Forms.DialogResult.OK + Me.Close() + End Sub + + Private Sub Cancel_Button_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Cancel_Button.Click + Me.DialogResult = System.Windows.Forms.DialogResult.Cancel + Me.Close() + End Sub + + + Private Sub event_textboxchange(ByVal sender As System.Object, ByVal e As System.EventArgs) + Me.MakeWhreState() + End Sub + + Private Sub event_comboselectindex(ByVal sender As System.Object, ByVal e As System.EventArgs) + Me.MakeWhreState() + End Sub + + Private Sub cmb_field1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmb_field1.SelectedIndexChanged + + Dim Find As Boolean = False + For Each C As String In Me.Colorlist.Split(",") + If C.ToUpper = Me.ColumList(Me.cmb_field1.SelectedIndex).ToUpper Then ' Me.cmb_field1.Text.ToUpper Then + Find = True + Exit For + End If + Next + + If Find Then + + Me.tb_s1.BackColor = Color.LightGreen + Else + Me.tb_s1.BackColor = Color.White + End If + End Sub + + Private Sub cmb_field2_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmb_field2.SelectedIndexChanged + + Dim Find As Boolean = False + For Each C As String In Me.Colorlist.Split(",") + If C.ToUpper = Me.ColumList(Me.cmb_field2.SelectedIndex).ToUpper Then + Find = True + Exit For + End If + Next + + If Find Then + Me.tb_s2.BackColor = Color.LightGreen + Else + Me.tb_s2.BackColor = Color.White + End If + End Sub + + Private Sub cmb_field3_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmb_field3.SelectedIndexChanged + Dim Find As Boolean = False + For Each C As String In Me.Colorlist.Split(",") + If C.ToUpper = Me.ColumList(Me.cmb_field3.SelectedIndex).ToUpper Then + Find = True + Exit For + End If + Next + If Find Then + Me.tb_s3.BackColor = Color.LightGreen + Else + Me.tb_s3.BackColor = Color.White + End If + End Sub + + Private Sub cmb_field4_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmb_field4.SelectedIndexChanged + Dim Find As Boolean = False + For Each C As String In Me.Colorlist.Split(",") + If C.ToUpper = Me.ColumList(Me.cmb_field4.SelectedIndex).ToUpper Then + Find = True + Exit For + End If + Next + If Find Then + Me.tb_s4.BackColor = Color.LightGreen + Else + Me.tb_s4.BackColor = Color.White + End If + End Sub + + Private Sub cmb_cond1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmb_cond1.SelectedIndexChanged + + End Sub +End Class + diff --git a/ArinWarev1/Forms_Basic/Frm_Intro.Designer.vb b/ArinWarev1/Forms_Basic/Frm_Intro.Designer.vb new file mode 100644 index 0000000..bfe1bde --- /dev/null +++ b/ArinWarev1/Forms_Basic/Frm_Intro.Designer.vb @@ -0,0 +1,175 @@ + _ +Partial Class Frm_Intro + Inherits CForm + + 'Form은 Dispose를 재정의하여 구성 요소 목록을 정리합니다. + _ + Protected Overrides Sub Dispose(ByVal disposing As Boolean) + Try + If disposing AndAlso components IsNot Nothing Then + components.Dispose() + End If + Finally + MyBase.Dispose(disposing) + End Try + End Sub + + 'Windows Form 디자이너에 필요합니다. + Private components As System.ComponentModel.IContainer + + '참고: 다음 프로시저는 Windows Form 디자이너에 필요합니다. + '수정하려면 Windows Form 디자이너를 사용하십시오. + '코드 편집기를 사용하여 수정하지 마십시오. + _ + Private Sub InitializeComponent() + Me.components = New System.ComponentModel.Container() + Me.Button1 = New System.Windows.Forms.Button() + Me.Label3 = New System.Windows.Forms.Label() + Me.Label2 = New System.Windows.Forms.Label() + Me.tb_id = New System.Windows.Forms.TextBox() + Me.tb_pw = New System.Windows.Forms.TextBox() + Me.chk_id = New System.Windows.Forms.CheckBox() + Me.chk_pass = New System.Windows.Forms.CheckBox() + Me.ToolTip1 = New System.Windows.Forms.ToolTip(Me.components) + Me.StatusStrip1 = New System.Windows.Forms.StatusStrip() + Me.lbl_ip = New System.Windows.Forms.ToolStripStatusLabel() + Me.StatusStrip1.SuspendLayout() + Me.SuspendLayout() + ' + 'Button1 + ' + Me.Button1.BackColor = System.Drawing.Color.White + Me.Button1.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch + Me.Button1.Location = New System.Drawing.Point(404, 25) + Me.Button1.Name = "Button1" + Me.Button1.Size = New System.Drawing.Size(61, 63) + Me.Button1.TabIndex = 11 + Me.Button1.Text = "LOGIN" + Me.Button1.UseVisualStyleBackColor = False + ' + 'Label3 + ' + Me.Label3.AutoSize = True + Me.Label3.BackColor = System.Drawing.Color.White + Me.Label3.Font = New System.Drawing.Font("돋움", 14.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.Label3.Location = New System.Drawing.Point(42, 64) + Me.Label3.Name = "Label3" + Me.Label3.Size = New System.Drawing.Size(117, 19) + Me.Label3.TabIndex = 12 + Me.Label3.Text = "PASSWORD :" + ' + 'Label2 + ' + Me.Label2.AutoSize = True + Me.Label2.BackColor = System.Drawing.Color.White + Me.Label2.Font = New System.Drawing.Font("돋움", 14.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.Label2.Location = New System.Drawing.Point(42, 30) + Me.Label2.Name = "Label2" + Me.Label2.Size = New System.Drawing.Size(36, 19) + Me.Label2.TabIndex = 12 + Me.Label2.Text = "ID :" + ' + 'tb_id + ' + Me.tb_id.BackColor = System.Drawing.Color.White + Me.tb_id.Font = New System.Drawing.Font("돋움", 14.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.tb_id.Location = New System.Drawing.Point(165, 25) + Me.tb_id.MaxLength = 10 + Me.tb_id.Name = "tb_id" + Me.tb_id.Size = New System.Drawing.Size(233, 29) + Me.tb_id.TabIndex = 1 + Me.tb_id.TextAlign = System.Windows.Forms.HorizontalAlignment.Center + Me.ToolTip1.SetToolTip(Me.tb_id, "ID를 입력하세요") + ' + 'tb_pw + ' + Me.tb_pw.BackColor = System.Drawing.Color.White + Me.tb_pw.Font = New System.Drawing.Font("돋움", 14.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.tb_pw.Location = New System.Drawing.Point(165, 59) + Me.tb_pw.MaxLength = 10 + Me.tb_pw.Name = "tb_pw" + Me.tb_pw.PasswordChar = Global.Microsoft.VisualBasic.ChrW(42) + Me.tb_pw.Size = New System.Drawing.Size(233, 29) + Me.tb_pw.TabIndex = 3 + Me.tb_pw.TextAlign = System.Windows.Forms.HorizontalAlignment.Center + Me.ToolTip1.SetToolTip(Me.tb_pw, "암호를 입력하세요") + ' + 'chk_id + ' + Me.chk_id.AutoSize = True + Me.chk_id.BackColor = System.Drawing.Color.Transparent + Me.chk_id.Location = New System.Drawing.Point(21, 32) + Me.chk_id.Name = "chk_id" + Me.chk_id.Size = New System.Drawing.Size(15, 14) + Me.chk_id.TabIndex = 7 + Me.ToolTip1.SetToolTip(Me.chk_id, "사용자 ID를 저장합니다") + Me.chk_id.UseVisualStyleBackColor = False + ' + 'chk_pass + ' + Me.chk_pass.AutoSize = True + Me.chk_pass.BackColor = System.Drawing.Color.Transparent + Me.chk_pass.Location = New System.Drawing.Point(21, 66) + Me.chk_pass.Name = "chk_pass" + Me.chk_pass.Size = New System.Drawing.Size(15, 14) + Me.chk_pass.TabIndex = 8 + Me.ToolTip1.SetToolTip(Me.chk_pass, "사용자 암호를 저장합니다") + Me.chk_pass.UseVisualStyleBackColor = False + ' + 'StatusStrip1 + ' + Me.StatusStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.lbl_ip}) + Me.StatusStrip1.Location = New System.Drawing.Point(0, 98) + Me.StatusStrip1.Name = "StatusStrip1" + Me.StatusStrip1.Size = New System.Drawing.Size(478, 22) + Me.StatusStrip1.TabIndex = 16 + Me.StatusStrip1.Text = "StatusStrip1" + ' + 'lbl_ip + ' + Me.lbl_ip.BackColor = System.Drawing.Color.Transparent + Me.lbl_ip.Name = "lbl_ip" + Me.lbl_ip.Size = New System.Drawing.Size(25, 17) + Me.lbl_ip.Text = "[IP]" + ' + 'Frm_Intro + ' + Me.AutoScaleDimensions = New System.Drawing.SizeF(7.0!, 12.0!) + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font + Me.BackColor = System.Drawing.Color.White + Me.ClientSize = New System.Drawing.Size(478, 120) + Me.Controls.Add(Me.StatusStrip1) + Me.Controls.Add(Me.Button1) + Me.Controls.Add(Me.Label3) + Me.Controls.Add(Me.Label2) + Me.Controls.Add(Me.tb_id) + Me.Controls.Add(Me.tb_pw) + Me.Controls.Add(Me.chk_pass) + Me.Controls.Add(Me.chk_id) + Me.Font = New System.Drawing.Font("돋움", 8.999999!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedToolWindow + Me.MaximizeBox = False + Me.MinimizeBox = False + Me.Name = "Frm_Intro" + Me.ShowIcon = False + Me.ShowInTaskbar = False + Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen + Me.Text = "사용자확인" + Me.TransparencyKey = System.Drawing.SystemColors.AppWorkspace + Me.StatusStrip1.ResumeLayout(False) + Me.StatusStrip1.PerformLayout() + Me.ResumeLayout(False) + Me.PerformLayout() + + End Sub + Friend WithEvents chk_id As System.Windows.Forms.CheckBox + Friend WithEvents chk_pass As System.Windows.Forms.CheckBox + Friend WithEvents tb_id As System.Windows.Forms.TextBox + Friend WithEvents tb_pw As System.Windows.Forms.TextBox + Friend WithEvents ToolTip1 As System.Windows.Forms.ToolTip + Friend WithEvents Label3 As System.Windows.Forms.Label + Friend WithEvents Label2 As System.Windows.Forms.Label + Friend WithEvents Button1 As System.Windows.Forms.Button + Friend WithEvents StatusStrip1 As System.Windows.Forms.StatusStrip + Friend WithEvents lbl_ip As System.Windows.Forms.ToolStripStatusLabel +End Class diff --git a/ArinWarev1/Forms_Basic/Frm_Intro.resx b/ArinWarev1/Forms_Basic/Frm_Intro.resx new file mode 100644 index 0000000..55935b7 --- /dev/null +++ b/ArinWarev1/Forms_Basic/Frm_Intro.resx @@ -0,0 +1,126 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + 222, 17 + + + 322, 17 + + \ No newline at end of file diff --git a/ArinWarev1/Forms_Basic/Frm_Intro.vb b/ArinWarev1/Forms_Basic/Frm_Intro.vb new file mode 100644 index 0000000..2fa3008 --- /dev/null +++ b/ArinWarev1/Forms_Basic/Frm_Intro.vb @@ -0,0 +1,215 @@ +Public Class Frm_Intro + Public Overrides Function AcceptChanged() As Boolean + + End Function + Public Overrides Function RejectChanged() As Boolean + + End Function + Public Overrides Function HasChanged() As Boolean + + End Function + Private Sub Save_SEtting() + Myini.Write("user", "chkid", Me.chk_id.Checked) + Myini.Write("user", "chkpass", Me.chk_pass.Checked) + If Me.chk_id.Checked Then + Myini.Write("user", "id", Me.tb_id.Text) + Else + Myini.Write("user", "id", "") + End If + If Me.chk_pass.Checked Then + Myini.Write("user", "pass", Me.tb_pw.Text) + Else + Myini.Write("user", "pass", "") + End If + + End Sub + Private Sub Frm_Login_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown + Select Case e.KeyCode + Case Keys.Escape + Me.Close() + End Select + End Sub + + Private Sub Frm_Login_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load + 'TODO: 이 코드는 데이터를 'DS.C2600' 테이블에 로드합니다. 필요한 경우 이 코드를 이동하거나 제거할 수 있습니다. + ' Uselov = New Lov.ModLov(My.Settings.CS, "") + + Me.lbl_ip.Text = "현재 IP:" & Prj.CUrIP & "/MAC:" & Prj.CUrMac & " 컴퓨터에서 접속하였습니다." + My.Application.DoEvents() + '//지정된 정보를 가져옵니다. + + Try + Me.chk_id.Checked = CBool(Myini.Read("user", "chkid", CStr(True))) + Me.chk_pass.Checked = CBool(Myini.Read("user", "chkpass", CStr(True))) + Catch ex As Exception + Me.chk_id.Checked = False + Me.chk_pass.Checked = False + End Try + + If Me.chk_id.Checked Then Me.tb_id.Text = Myini.Read("user", "id", "") + If Me.chk_pass.Checked Then Me.tb_pw.Text = Myini.Read("user", "pass", "") + + End Sub + + Private Function GetLevel(ByVal Dcode As String) As Short + 'im DR() As DataRow = Me.DS.tbl_user.Select("uid='" & Dcode & "'") + 'If DR Is Nothing Then Return 0 '//일반사원 반환 + 'Try + ' Return CShort(DR(0)("level")) + 'Catch ex As Exception + ' Return 0 + 'End Try + End Function + + Private Sub tb_pw_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles tb_pw.KeyDown + If e.KeyCode = Keys.Enter Then + '//지정된 id 와 비번으로 해당 계정이 존재하는지 확인한다. + + login() + ElseIf e.KeyCode = Keys.Escape Then + Me.DialogResult = Windows.Forms.DialogResult.Cancel + End If + End Sub + + Private Sub tb_id_GotFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles tb_id.GotFocus, tb_pw.GotFocus + CType(sender, TextBox).Focus() + CType(sender, TextBox).SelectAll() + End Sub + + Private Sub tB_id_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles tb_id.KeyDown + Select Case e.KeyCode + Case Keys.Enter + Me.tb_pw.Focus() + Case Keys.Escape + Me.DialogResult = Windows.Forms.DialogResult.Cancel + End Select + End Sub + + Private Sub login() + Prj.Admin = False + Dim UseriNfo As ArinLogin.ArinLOgin.User_Info + If tb_id.Text.StartsWith("guest") Then + UseriNfo = New ArinLogin.ArinLOgin.User_Info() + UseriNfo.authtype = "IP" + UseriNfo.name = tb_id.Text + 'ElseIf tb_id.Text.StartsWith("user") Then + ' UseriNfo = New ArinLogin.ArinLOgin.User_Info() + ' UseriNfo.authtype = "IP" + ' UseriNfo.name = tb_id.Text + Else + Work_msg("서버 응답을 기다리는중") + Dim L As New ArinLogin.ArinLOgin + pLog.Add(String.Format("Login Try ID = {0}", tb_id.Text)) + UseriNfo = L.Check_user("eco_user", Me.tb_id.Text, Me.tb_pw.Text) + Work_msg("") + If UseriNfo.name = "" Then + MsgBox("존재하지 않는계정이거나 비밀번호오류입니다", MsgBoxStyle.Critical, "확인") + Return + End If + End If + + Select Case UseriNfo.authtype + Case "IP" + If Me.tb_id.Text.ToLower() <> "guest" Then 'AndAlso Not Me.tb_id.Text.ToLower().StartsWith("user") Then + If Prj.CUrIP.ToUpper <> UseriNfo.authip.ToUpper Then + MsgBox("로그인사용자와 현재컴퓨터의 IP가 일치하지않습니다", MsgBoxStyle.Critical, "확인") + Return + End If + Else + Try + Dim userPass As String + Dim userMAC As String + Dim userIP As String + userMAC = Prj.CUrMac.GetHashCode + userIP = Prj.CUrIP.GetHashCode + userPass = userIP + userMAC + userPass = userPass.GetHashCode + If CLng(userPass) < 0 Then + userPass = (CLng(userPass) * -1).ToString + End If + 'If Me.tb_pw.Text <> userPass Then + ' MsgBox("존재하지 않는계정이거나 비밀번호오류입니다", MsgBoxStyle.Critical, "확인") + ' End + 'End If + Catch ex As Exception + MsgBox("존재하지 않는계정이거나 비밀번호오류입니다", MsgBoxStyle.Critical, "확인") + End + End Try + End If + Case "MAC" '//MAC인증일경우 현재MAC과 비교한다. + If Prj.CUrMac.ToUpper <> UseriNfo.authmac.ToUpper Then + MsgBox("로그인사용자와 현재컴퓨터의 MAC이 일치하지않습니다", MsgBoxStyle.Critical, "확인") + Return + End If + Case "BOTH", "BOTH1", "BOTH2" '// BOTH1, BOTH2 는 기존 일반사용자와 다른 권한 부여하기 위해 만듬. BOTH1은 가져오기 가능, BOTH2는 가져오기 + 프로파일 수정가능 2010.11.22 --- BOTH0 은 일반유저로 설정 + If Prj.CUrIP.ToUpper <> UseriNfo.authip.ToUpper OrElse Prj.CUrMac.ToUpper <> UseriNfo.authmac.ToUpper Then + MsgBox("로그인사용자의 IP 또는 MAC이 일치하지 않습니다", MsgBoxStyle.Critical, "확인") + Return + End If + Case "ADMIN" + Prj.Admin = True + Case "BOTH0" + + Case Else + Return + End Select + + pLog.Add(String.Format("Login OK ID={0}", Me.tb_id.Text)) + + Prj.LoginTime = Format(Now, "yyyy-MM-dd HH:mi:ss") + Prj.UserId = Me.tb_id.Text + Prj.UserPass = Me.tb_pw.Text + If Me.tb_id.Text.ToLower() = "guest" Then + Prj.UserAuthType = "BOTH0" + 'ElseIf Me.tb_id.Text.ToLower().StartsWith("user") Then + ' Prj.UserAuthType = "BOTH" + Else + Prj.UserAuthType = UseriNfo.authtype + End If + + Save_SEtting() + + Me.DialogResult = Windows.Forms.DialogResult.OK + End Sub + 'Private Sub LinkLabel1_LinkClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs) Handles LinkLabel1.LinkClicked + ' Dim LF As New Frm_user("") + ' If LF.ShowDialog = Windows.Forms.DialogResult.OK Then + ' Me.tB_id.Text = LF.UID + ' Me.tb_pw.Text = "" + ' Me.tb_pw.Focus() + ' Else + ' Me.tB_id.Text = "" + ' Me.tb_pw.Text = "" + ' Me.tB_id.Focus() + ' End If + 'End Sub + Private Sub Frm_Intro_SizeChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.SizeChanged + + End Sub + + + Private Sub lbl_ip_LinkClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs) + Dim Str As New System.Text.StringBuilder + Str.AppendLine("### 다음내용을 관리자에게 메일로 보내주세요 ###") + Str.AppendLine("ip : " & Prj.CUrIP) + Str.AppendLine("mac : " & Prj.CUrMac) + 'Str.AppendLine("lg : " & Prj.LGVersino) + 'Str.AppendLine("ui : " & Prj.UIVersion) + My.Computer.FileSystem.WriteAllText("c:\address.txt", Str.ToString, False) + Shell("notepad c:\address.txt", AppWinStyle.NormalFocus) + End Sub + + + + Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click + login() + End Sub + + Private Sub Label1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) + End + End Sub + + Private Sub btn_end_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) + End + End Sub +End Class \ No newline at end of file diff --git a/ArinWarev1/Forms_Basic/Frm_Login.Designer.vb b/ArinWarev1/Forms_Basic/Frm_Login.Designer.vb new file mode 100644 index 0000000..d8aef3a --- /dev/null +++ b/ArinWarev1/Forms_Basic/Frm_Login.Designer.vb @@ -0,0 +1,173 @@ + _ +Partial Class Frm_Login + Inherits CForm + + 'Form은 Dispose를 재정의하여 구성 요소 목록을 정리합니다. + _ + Protected Overrides Sub Dispose(ByVal disposing As Boolean) + Try + If disposing AndAlso components IsNot Nothing Then + components.Dispose() + End If + Finally + MyBase.Dispose(disposing) + End Try + End Sub + + 'Windows Form 디자이너에 필요합니다. + Private components As System.ComponentModel.IContainer + + '참고: 다음 프로시저는 Windows Form 디자이너에 필요합니다. + '수정하려면 Windows Form 디자이너를 사용하십시오. + '코드 편집기를 사용하여 수정하지 마십시오. + _ + Private Sub InitializeComponent() + Me.components = New System.ComponentModel.Container() + Me.ToolTip1 = New System.Windows.Forms.ToolTip(Me.components) + Me.StatusStrip1 = New System.Windows.Forms.StatusStrip() + Me.lbl_ip = New System.Windows.Forms.ToolStripStatusLabel() + Me.Button1 = New System.Windows.Forms.Button() + Me.Label3 = New System.Windows.Forms.Label() + Me.Label2 = New System.Windows.Forms.Label() + Me.tb_id = New System.Windows.Forms.TextBox() + Me.tb_pw = New System.Windows.Forms.TextBox() + Me.chk_pass = New System.Windows.Forms.CheckBox() + Me.chk_id = New System.Windows.Forms.CheckBox() + Me.StatusStrip1.SuspendLayout() + Me.SuspendLayout() + ' + 'StatusStrip1 + ' + Me.StatusStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.lbl_ip}) + Me.StatusStrip1.Location = New System.Drawing.Point(0, 101) + Me.StatusStrip1.Name = "StatusStrip1" + Me.StatusStrip1.Size = New System.Drawing.Size(371, 22) + Me.StatusStrip1.TabIndex = 16 + Me.StatusStrip1.Text = "StatusStrip1" + ' + 'lbl_ip + ' + Me.lbl_ip.Name = "lbl_ip" + Me.lbl_ip.Size = New System.Drawing.Size(25, 17) + Me.lbl_ip.Text = "[IP]" + ' + 'Button1 + ' + Me.Button1.BackColor = System.Drawing.Color.White + Me.Button1.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch + Me.Button1.Location = New System.Drawing.Point(288, 17) + Me.Button1.Name = "Button1" + Me.Button1.Size = New System.Drawing.Size(67, 67) + Me.Button1.TabIndex = 11 + Me.Button1.Text = "LOGIN" + Me.Button1.UseVisualStyleBackColor = False + ' + 'Label3 + ' + Me.Label3.AutoSize = True + Me.Label3.BackColor = System.Drawing.Color.White + Me.Label3.Font = New System.Drawing.Font("굴림", 14.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.Label3.Location = New System.Drawing.Point(36, 60) + Me.Label3.Name = "Label3" + Me.Label3.Size = New System.Drawing.Size(116, 19) + Me.Label3.TabIndex = 12 + Me.Label3.Text = "PASSWORD :" + ' + 'Label2 + ' + Me.Label2.AutoSize = True + Me.Label2.BackColor = System.Drawing.Color.White + Me.Label2.Font = New System.Drawing.Font("굴림", 14.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.Label2.Location = New System.Drawing.Point(36, 22) + Me.Label2.Name = "Label2" + Me.Label2.Size = New System.Drawing.Size(35, 19) + Me.Label2.TabIndex = 12 + Me.Label2.Text = "ID :" + ' + 'tb_id + ' + Me.tb_id.BackColor = System.Drawing.Color.White + Me.tb_id.Font = New System.Drawing.Font("굴림", 14.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.tb_id.Location = New System.Drawing.Point(157, 17) + Me.tb_id.MaxLength = 10 + Me.tb_id.Name = "tb_id" + Me.tb_id.Size = New System.Drawing.Size(116, 29) + Me.tb_id.TabIndex = 1 + Me.tb_id.TextAlign = System.Windows.Forms.HorizontalAlignment.Center + Me.ToolTip1.SetToolTip(Me.tb_id, "ID를 입력하세요") + ' + 'tb_pw + ' + Me.tb_pw.BackColor = System.Drawing.Color.White + Me.tb_pw.Font = New System.Drawing.Font("굴림", 14.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.tb_pw.Location = New System.Drawing.Point(157, 55) + Me.tb_pw.MaxLength = 10 + Me.tb_pw.Name = "tb_pw" + Me.tb_pw.PasswordChar = Global.Microsoft.VisualBasic.ChrW(42) + Me.tb_pw.Size = New System.Drawing.Size(116, 29) + Me.tb_pw.TabIndex = 3 + Me.tb_pw.TextAlign = System.Windows.Forms.HorizontalAlignment.Center + Me.ToolTip1.SetToolTip(Me.tb_pw, "암호를 입력하세요") + ' + 'chk_pass + ' + Me.chk_pass.AutoSize = True + Me.chk_pass.BackColor = System.Drawing.Color.Transparent + Me.chk_pass.Location = New System.Drawing.Point(15, 62) + Me.chk_pass.Name = "chk_pass" + Me.chk_pass.Size = New System.Drawing.Size(15, 14) + Me.chk_pass.TabIndex = 8 + Me.ToolTip1.SetToolTip(Me.chk_pass, "사용자 암호를 저장합니다") + Me.chk_pass.UseVisualStyleBackColor = False + ' + 'chk_id + ' + Me.chk_id.AutoSize = True + Me.chk_id.BackColor = System.Drawing.Color.Transparent + Me.chk_id.Location = New System.Drawing.Point(15, 24) + Me.chk_id.Name = "chk_id" + Me.chk_id.Size = New System.Drawing.Size(15, 14) + Me.chk_id.TabIndex = 7 + Me.ToolTip1.SetToolTip(Me.chk_id, "사용자 ID를 저장합니다") + Me.chk_id.UseVisualStyleBackColor = False + ' + 'Frm_Login + ' + Me.AutoScaleDimensions = New System.Drawing.SizeF(7.0!, 12.0!) + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font + Me.BackColor = System.Drawing.Color.White + Me.ClientSize = New System.Drawing.Size(371, 123) + Me.Controls.Add(Me.StatusStrip1) + Me.Controls.Add(Me.Button1) + Me.Controls.Add(Me.Label3) + Me.Controls.Add(Me.Label2) + Me.Controls.Add(Me.tb_id) + Me.Controls.Add(Me.tb_pw) + Me.Controls.Add(Me.chk_pass) + Me.Controls.Add(Me.chk_id) + Me.Font = New System.Drawing.Font("굴림", 8.999999!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.MaximizeBox = False + Me.MinimizeBox = False + Me.Name = "Frm_Login" + Me.ShowIcon = False + Me.ShowInTaskbar = False + Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen + Me.Text = "사용자확인" + Me.TransparencyKey = System.Drawing.SystemColors.AppWorkspace + Me.StatusStrip1.ResumeLayout(False) + Me.StatusStrip1.PerformLayout() + Me.ResumeLayout(False) + Me.PerformLayout() + + End Sub + Friend WithEvents chk_id As System.Windows.Forms.CheckBox + Friend WithEvents chk_pass As System.Windows.Forms.CheckBox + Friend WithEvents tb_id As System.Windows.Forms.TextBox + Friend WithEvents tb_pw As System.Windows.Forms.TextBox + Friend WithEvents ToolTip1 As System.Windows.Forms.ToolTip + Friend WithEvents Label3 As System.Windows.Forms.Label + Friend WithEvents Label2 As System.Windows.Forms.Label + Friend WithEvents Button1 As System.Windows.Forms.Button + Friend WithEvents StatusStrip1 As System.Windows.Forms.StatusStrip + Friend WithEvents lbl_ip As System.Windows.Forms.ToolStripStatusLabel +End Class diff --git a/ArinWarev1/Forms_Basic/Frm_Login.resx b/ArinWarev1/Forms_Basic/Frm_Login.resx new file mode 100644 index 0000000..e695229 --- /dev/null +++ b/ArinWarev1/Forms_Basic/Frm_Login.resx @@ -0,0 +1,126 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + 222, 17 + + + 322, 17 + + \ No newline at end of file diff --git a/ArinWarev1/Forms_Basic/Frm_Login.vb b/ArinWarev1/Forms_Basic/Frm_Login.vb new file mode 100644 index 0000000..7036bfa --- /dev/null +++ b/ArinWarev1/Forms_Basic/Frm_Login.vb @@ -0,0 +1,204 @@ +Public Class Frm_Login + Public Overrides Function AcceptChanged() As Boolean + + End Function + Public Overrides Function RejectChanged() As Boolean + + End Function + Public Overrides Function HasChanged() As Boolean + + End Function + Private Sub Save_SEtting() + Myini.Write("user", "chkid", Me.chk_id.Checked) + Myini.Write("user", "chkpass", Me.chk_pass.Checked) + If Me.chk_id.Checked Then + Myini.Write("user", "id", Me.tb_id.Text) + Else + Myini.Write("user", "id", "") + End If + If Me.chk_pass.Checked Then + Myini.Write("user", "pass", Me.tb_pw.Text) + Else + Myini.Write("user", "pass", "") + End If + + End Sub + Private Sub Frm_Login_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown + Select Case e.KeyCode + Case Keys.Escape + Me.Close() + End Select + End Sub + + Private Sub Frm_Login_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load + 'TODO: 이 코드는 데이터를 'DS.C2600' 테이블에 로드합니다. 필요한 경우 이 코드를 이동하거나 제거할 수 있습니다. + ' Uselov = New Lov.ModLov(My.Settings.CS, "") + + Me.lbl_ip.Text = "현재 IP:" & Prj.CUrIP & "/MAC:" & Prj.CUrMac & " 컴퓨터에서 접속하였습니다." + My.Application.DoEvents() + '//지정된 정보를 가져옵니다. + + Try + Me.chk_id.Checked = CBool(Myini.Read("user", "chkid", CStr(True))) + Me.chk_pass.Checked = CBool(Myini.Read("user", "chkpass", CStr(True))) + Catch ex As Exception + Me.chk_id.Checked = False + Me.chk_pass.Checked = False + End Try + + If Me.chk_id.Checked Then Me.tb_id.Text = Myini.Read("user", "id", "") + If Me.chk_pass.Checked Then Me.tb_pw.Text = Myini.Read("user", "pass", "") + + End Sub + + Private Function GetLevel(ByVal Dcode As String) As Short + 'im DR() As DataRow = Me.DS.tbl_user.Select("uid='" & Dcode & "'") + 'If DR Is Nothing Then Return 0 '//일반사원 반환 + 'Try + ' Return CShort(DR(0)("level")) + 'Catch ex As Exception + ' Return 0 + 'End Try + End Function + + Private Sub tb_pw_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles tb_pw.KeyDown + If e.KeyCode = Keys.Enter Then + '//지정된 id 와 비번으로 해당 계정이 존재하는지 확인한다. + + login() + ElseIf e.KeyCode = Keys.Escape Then + Me.DialogResult = Windows.Forms.DialogResult.Cancel + End If + End Sub + + Private Sub tb_id_GotFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles tb_id.GotFocus, tb_pw.GotFocus + CType(sender, TextBox).Focus() + CType(sender, TextBox).SelectAll() + End Sub + + Private Sub tB_id_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles tb_id.KeyDown + Select Case e.KeyCode + Case Keys.Enter + Me.tb_pw.Focus() + Case Keys.Escape + Me.DialogResult = Windows.Forms.DialogResult.Cancel + End Select + End Sub + Private Sub login() + Work_msg("서버 응답을 기다리는중") + Dim L As New ArinLogin.ArinLOgin + Dim UseriNfo As ArinLogin.ArinLOgin.User_Info = L.Check_user("eco_user", Me.tb_id.Text, Me.tb_pw.Text) + Work_msg("") + + Prj.Admin = False + If UseriNfo.name = "" Then + If Me.tb_id.Text = "guest" Then + UseriNfo.authtype = "IP" + + Else + MsgBox("존재하지 않는계정이거나 비밀번호오류입니다", MsgBoxStyle.Critical, "확인") + Return + End If + + End If + Select Case UseriNfo.authtype + Case "IP" + If Me.tb_id.Text <> "guest" Then + If Prj.CUrIP.ToUpper <> UseriNfo.authip.ToUpper Then + MsgBox("로그인사용자와 현재컴퓨터의 IP가 일치하지않습니다", MsgBoxStyle.Critical, "확인") + Return + End If + Else + Try + Dim userPass As String + Dim userMAC As String + Dim userIP As String + userMAC = Prj.CUrMac.GetHashCode + userIP = Prj.CUrIP.GetHashCode + userPass = userIP + userMAC + userPass = userPass.GetHashCode + If CLng(userPass) < 0 Then + userPass = (CLng(userPass) * -1).ToString + End If + If Me.tb_pw.Text <> userPass Then + MsgBox("존재하지 않는계정이거나 비밀번호오류입니다", MsgBoxStyle.Critical, "확인") + End + End If + Catch ex As Exception + MsgBox("존재하지 않는계정이거나 비밀번호오류입니다", MsgBoxStyle.Critical, "확인") + End + End Try + End If + Case "MAC" '//MAC인증일경우 현재MAC과 비교한다. + If Prj.CUrMac.ToUpper <> UseriNfo.authmac.ToUpper Then + MsgBox("로그인사용자와 현재컴퓨터의 MAC이 일치하지않습니다", MsgBoxStyle.Critical, "확인") + Return + End If + Case "BOTH", "BOTH1", "BOTH2" '// BOTH1, BOTH2 는 기존 일반사용자와 다른 권한 부여하기 위해 만듬. BOTH1은 가져오기 가능, BOTH2는 가져오기 + 프로파일 수정가능 2010.11.22 --- BOTH0 은 일반유저로 설정 + If Prj.CUrIP.ToUpper <> UseriNfo.authip.ToUpper OrElse Prj.CUrMac.ToUpper <> UseriNfo.authmac.ToUpper Then + MsgBox("로그인사용자의 IP 또는 MAC이 일치하지 않습니다", MsgBoxStyle.Critical, "확인") + Return + End If + Case "ADMIN" + Prj.Admin = True + Case "BOTH0" + + Case Else + Return + + End Select + Prj.LoginTime = Format(Now, "yyyy-MM-dd HH:mi:ss") + Prj.UserId = Me.tb_id.Text + Prj.UserPass = Me.tb_pw.Text + If Me.tb_id.Text = "guest" Then + Prj.UserAuthType = "BOTH0" + Else + Prj.UserAuthType = UseriNfo.authtype + End If + + Save_SEtting() + + Me.DialogResult = Windows.Forms.DialogResult.OK + End Sub + 'Private Sub LinkLabel1_LinkClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs) Handles LinkLabel1.LinkClicked + ' Dim LF As New Frm_user("") + ' If LF.ShowDialog = Windows.Forms.DialogResult.OK Then + ' Me.tB_id.Text = LF.UID + ' Me.tb_pw.Text = "" + ' Me.tb_pw.Focus() + ' Else + ' Me.tB_id.Text = "" + ' Me.tb_pw.Text = "" + ' Me.tB_id.Focus() + ' End If + 'End Sub + Private Sub Frm_Intro_SizeChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.SizeChanged + + End Sub + + + Private Sub lbl_ip_LinkClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs) + Dim Str As New System.Text.StringBuilder + Str.AppendLine("### 다음내용을 관리자에게 메일로 보내주세요 ###") + Str.AppendLine("ip : " & Prj.CUrIP) + Str.AppendLine("mac : " & Prj.CUrMac) + 'Str.AppendLine("lg : " & Prj.LGVersino) + 'Str.AppendLine("ui : " & Prj.UIVersion) + My.Computer.FileSystem.WriteAllText("c:\address.txt", Str.ToString, False) + Shell("notepad c:\address.txt", AppWinStyle.NormalFocus) + End Sub + + + + Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click + login() + End Sub + + Private Sub Label1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) + End + End Sub + + Private Sub btn_end_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) + End + End Sub +End Class \ No newline at end of file diff --git a/ArinWarev1/Forms_Basic/Frm_RepResult_Admin.Designer.vb b/ArinWarev1/Forms_Basic/Frm_RepResult_Admin.Designer.vb new file mode 100644 index 0000000..383491b --- /dev/null +++ b/ArinWarev1/Forms_Basic/Frm_RepResult_Admin.Designer.vb @@ -0,0 +1,1607 @@ + _ +Partial Class Frm_RepResult_Admin + Inherits CForm + + 'Form은 Dispose를 재정의하여 구성 요소 목록을 정리합니다. + _ + Protected Overrides Sub Dispose(ByVal disposing As Boolean) + Try + If disposing AndAlso components IsNot Nothing Then + components.Dispose() + End If + Finally + MyBase.Dispose(disposing) + End Try + End Sub + + 'Windows Form 디자이너에 필요합니다. + Private components As System.ComponentModel.IContainer + + '참고: 다음 프로시저는 Windows Form 디자이너에 필요합니다. + '수정하려면 Windows Form 디자이너를 사용하십시오. + '코드 편집기를 사용하여 수정하지 마십시오. + _ + Private Sub InitializeComponent() + Me.components = New System.ComponentModel.Container() + Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(Frm_RepResult_Admin)) + Me.DSR = New Eco2Ar.DSR() + Me.ToolStripButton49 = New System.Windows.Forms.ToolStripButton() + Me.ToolStripButton44 = New System.Windows.Forms.ToolStripButton() + Me.ToolStripButton48 = New System.Windows.Forms.ToolStripButton() + Me.ToolStripButton50 = New System.Windows.Forms.ToolStripButton() + Me.ToolStripButton45 = New System.Windows.Forms.ToolStripButton() + Me.ToolStripButton47 = New System.Windows.Forms.ToolStripButton() + Me.ToolStripButton46 = New System.Windows.Forms.ToolStripButton() + Me.ToolStripSeparator26 = New System.Windows.Forms.ToolStripSeparator() + Me.ToolStripTextBox6 = New System.Windows.Forms.ToolStripTextBox() + Me.ToolStripSeparator27 = New System.Windows.Forms.ToolStripSeparator() + Me.bn_all = New System.Windows.Forms.BindingNavigator(Me.components) + Me.ToolStripLabel6 = New System.Windows.Forms.ToolStripLabel() + Me.ToolStripSeparator25 = New System.Windows.Forms.ToolStripSeparator() + Me.ToolStripSeparator28 = New System.Windows.Forms.ToolStripSeparator() + Me.ToolStripButton51 = New System.Windows.Forms.ToolStripButton() + Me.StatusStrip1 = New System.Windows.Forms.StatusStrip() + Me.lb_msg = New System.Windows.Forms.ToolStripStatusLabel() + Me.bsmain = New System.Windows.Forms.BindingSource(Me.components) + Me.DataGridView1 = New Eco2Ar.ArinDv() + Me.CodeDataGridViewTextBoxColumn = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.DescDataGridViewTextBoxColumn = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.GRPDataGridViewTextBoxColumn = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.UNITDataGridViewTextBoxColumn = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.SIGNDataGridViewTextBoxColumn = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.EQDataGridViewTextBoxColumn = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.F = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.M00 = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.M01DataGridViewTextBoxColumn = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.M02DataGridViewTextBoxColumn = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.M03DataGridViewTextBoxColumn = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.M04DataGridViewTextBoxColumn = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.M05DataGridViewTextBoxColumn = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.M06DataGridViewTextBoxColumn = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.M07DataGridViewTextBoxColumn = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.M08DataGridViewTextBoxColumn = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.M09DataGridViewTextBoxColumn = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.M10DataGridViewTextBoxColumn = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.M11DataGridViewTextBoxColumn = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.M12DataGridViewTextBoxColumn = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.TabControl1 = New System.Windows.Forms.TabControl() + Me.TabPage1 = New System.Windows.Forms.TabPage() + Me.TabPage2 = New System.Windows.Forms.TabPage() + Me.DataGridView2 = New Eco2Ar.ArinDv() + Me.ZoneDataGridViewTextBoxColumn = 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.냉방최대가동시간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_max = New System.Windows.Forms.BindingSource(Me.components) + Me.TabPage3 = New System.Windows.Forms.TabPage() + Me.DataGridView3 = New Eco2Ar.ArinDv() + Me.HDataGridViewTextBoxColumn = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.CDataGridViewTextBoxColumn = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.LDataGridViewTextBoxColumn = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.WDataGridViewTextBoxColumn = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.VDataGridViewTextBoxColumn = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.bs_면적 = New System.Windows.Forms.BindingSource(Me.components) + Me.TabPage5 = New System.Windows.Forms.TabPage() + Me.DataGridView5 = New Eco2Ar.ArinDv() + Me.MonDataGridViewTextBoxColumn1 = 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_소요량 = New System.Windows.Forms.BindingSource(Me.components) + Me.TabPage6 = New System.Windows.Forms.TabPage() + Me.DataGridView6 = New Eco2Ar.ArinDv() + Me.MonDataGridViewTextBoxColumn2 = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.난방등유DataGridViewTextBoxColumn1 = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.난방LNGDataGridViewTextBoxColumn1 = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.난방LPGDataGridViewTextBoxColumn1 = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.난방지역DataGridViewTextBoxColumn1 = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.난방전력DataGridViewTextBoxColumn1 = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.냉방등유DataGridViewTextBoxColumn1 = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.냉방LNGDataGridViewTextBoxColumn1 = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.냉방LPGDataGridViewTextBoxColumn1 = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.냉방지역DataGridViewTextBoxColumn1 = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.냉방지역2DataGridViewTextBoxColumn = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.냉방전력DataGridViewTextBoxColumn1 = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.급탕등유DataGridViewTextBoxColumn1 = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.급탕LNGDataGridViewTextBoxColumn1 = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.급탕LPGDataGridViewTextBoxColumn1 = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.급탕지역DataGridViewTextBoxColumn1 = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.급탕전력DataGridViewTextBoxColumn1 = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.bs_1차소요량 = New System.Windows.Forms.BindingSource(Me.components) + Me.TabPage7 = New System.Windows.Forms.TabPage() + Me.TabControl2 = New System.Windows.Forms.TabControl() + Me.TabPage9 = New System.Windows.Forms.TabPage() + Me.DataGridView7 = New Eco2Ar.ArinDv() + Me.TabPage10 = New System.Windows.Forms.TabPage() + Me.DataGridView9 = New Eco2Ar.ArinDv() + Me.TabPage11 = New System.Windows.Forms.TabPage() + Me.DataGridView10 = New Eco2Ar.ArinDv() + Me.TabPage12 = New System.Windows.Forms.TabPage() + Me.DataGridView11 = New Eco2Ar.ArinDv() + Me.TabPage13 = New System.Windows.Forms.TabPage() + Me.DataGridView12 = New Eco2Ar.ArinDv() + Me.TabPage14 = New System.Windows.Forms.TabPage() + Me.DataGridView13 = New Eco2Ar.ArinDv() + Me.TabPage15 = New System.Windows.Forms.TabPage() + Me.DataGridView14 = New Eco2Ar.ArinDv() + Me.TabPage16 = New System.Windows.Forms.TabPage() + Me.DataGridView15 = New Eco2Ar.ArinDv() + Me.TabPage17 = New System.Windows.Forms.TabPage() + Me.DataGridView16 = New Eco2Ar.ArinDv() + Me.TabPage18 = New System.Windows.Forms.TabPage() + Me.DataGridView17 = New Eco2Ar.ArinDv() + Me.TabPage19 = New System.Windows.Forms.TabPage() + Me.DataGridView18 = New Eco2Ar.ArinDv() + Me.TabPage20 = New System.Windows.Forms.TabPage() + Me.DataGridView19 = New Eco2Ar.ArinDv() + Me.TabPage8 = New System.Windows.Forms.TabPage() + Me.DataGridView8 = New Eco2Ar.ArinDv() + Me.MonDataGridViewTextBoxColumn3 = 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() + Me.StatusStrip1.SuspendLayout() + CType(Me.bsmain, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.DataGridView1, System.ComponentModel.ISupportInitialize).BeginInit() + Me.TabControl1.SuspendLayout() + Me.TabPage1.SuspendLayout() + Me.TabPage2.SuspendLayout() + CType(Me.DataGridView2, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.bs_max, System.ComponentModel.ISupportInitialize).BeginInit() + Me.TabPage3.SuspendLayout() + CType(Me.DataGridView3, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.bs_면적, System.ComponentModel.ISupportInitialize).BeginInit() + Me.TabPage5.SuspendLayout() + CType(Me.DataGridView5, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.bs_소요량, System.ComponentModel.ISupportInitialize).BeginInit() + Me.TabPage6.SuspendLayout() + CType(Me.DataGridView6, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.bs_1차소요량, System.ComponentModel.ISupportInitialize).BeginInit() + Me.TabPage7.SuspendLayout() + Me.TabControl2.SuspendLayout() + Me.TabPage9.SuspendLayout() + CType(Me.DataGridView7, System.ComponentModel.ISupportInitialize).BeginInit() + Me.TabPage10.SuspendLayout() + CType(Me.DataGridView9, System.ComponentModel.ISupportInitialize).BeginInit() + Me.TabPage11.SuspendLayout() + CType(Me.DataGridView10, System.ComponentModel.ISupportInitialize).BeginInit() + Me.TabPage12.SuspendLayout() + CType(Me.DataGridView11, System.ComponentModel.ISupportInitialize).BeginInit() + Me.TabPage13.SuspendLayout() + CType(Me.DataGridView12, System.ComponentModel.ISupportInitialize).BeginInit() + Me.TabPage14.SuspendLayout() + CType(Me.DataGridView13, System.ComponentModel.ISupportInitialize).BeginInit() + Me.TabPage15.SuspendLayout() + CType(Me.DataGridView14, System.ComponentModel.ISupportInitialize).BeginInit() + Me.TabPage16.SuspendLayout() + CType(Me.DataGridView15, System.ComponentModel.ISupportInitialize).BeginInit() + Me.TabPage17.SuspendLayout() + CType(Me.DataGridView16, System.ComponentModel.ISupportInitialize).BeginInit() + Me.TabPage18.SuspendLayout() + CType(Me.DataGridView17, System.ComponentModel.ISupportInitialize).BeginInit() + Me.TabPage19.SuspendLayout() + CType(Me.DataGridView18, System.ComponentModel.ISupportInitialize).BeginInit() + Me.TabPage20.SuspendLayout() + CType(Me.DataGridView19, System.ComponentModel.ISupportInitialize).BeginInit() + Me.TabPage8.SuspendLayout() + CType(Me.DataGridView8, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.bs_생산E, System.ComponentModel.ISupportInitialize).BeginInit() + Me.SuspendLayout() + ' + 'DSR + ' + Me.DSR.DataSetName = "DSR" + Me.DSR.SchemaSerializationMode = System.Data.SchemaSerializationMode.IncludeSchema + ' + 'ToolStripButton49 + ' + Me.ToolStripButton49.Image = CType(resources.GetObject("ToolStripButton49.Image"), System.Drawing.Image) + Me.ToolStripButton49.Name = "ToolStripButton49" + Me.ToolStripButton49.RightToLeftAutoMirrorImage = True + Me.ToolStripButton49.Size = New System.Drawing.Size(67, 22) + Me.ToolStripButton49.Text = "삭제(&D)" + ' + 'ToolStripButton44 + ' + Me.ToolStripButton44.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.ToolStripButton44.Image = CType(resources.GetObject("ToolStripButton44.Image"), System.Drawing.Image) + Me.ToolStripButton44.Name = "ToolStripButton44" + Me.ToolStripButton44.RightToLeftAutoMirrorImage = True + Me.ToolStripButton44.Size = New System.Drawing.Size(23, 22) + Me.ToolStripButton44.Text = "처음으로 이동" + ' + 'ToolStripButton48 + ' + Me.ToolStripButton48.Image = CType(resources.GetObject("ToolStripButton48.Image"), System.Drawing.Image) + Me.ToolStripButton48.Name = "ToolStripButton48" + Me.ToolStripButton48.RightToLeftAutoMirrorImage = True + Me.ToolStripButton48.Size = New System.Drawing.Size(67, 22) + Me.ToolStripButton48.Text = "추가(&A)" + ' + 'ToolStripButton50 + ' + Me.ToolStripButton50.Image = CType(resources.GetObject("ToolStripButton50.Image"), System.Drawing.Image) + Me.ToolStripButton50.Name = "ToolStripButton50" + Me.ToolStripButton50.Size = New System.Drawing.Size(67, 22) + Me.ToolStripButton50.Text = "저장(&S)" + ' + 'ToolStripButton45 + ' + Me.ToolStripButton45.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.ToolStripButton45.Image = CType(resources.GetObject("ToolStripButton45.Image"), System.Drawing.Image) + Me.ToolStripButton45.Name = "ToolStripButton45" + Me.ToolStripButton45.RightToLeftAutoMirrorImage = True + Me.ToolStripButton45.Size = New System.Drawing.Size(23, 22) + Me.ToolStripButton45.Text = "이전으로 이동" + ' + 'ToolStripButton47 + ' + Me.ToolStripButton47.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.ToolStripButton47.Image = CType(resources.GetObject("ToolStripButton47.Image"), System.Drawing.Image) + Me.ToolStripButton47.Name = "ToolStripButton47" + Me.ToolStripButton47.RightToLeftAutoMirrorImage = True + Me.ToolStripButton47.Size = New System.Drawing.Size(23, 22) + Me.ToolStripButton47.Text = "마지막으로 이동" + ' + 'ToolStripButton46 + ' + Me.ToolStripButton46.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.ToolStripButton46.Image = CType(resources.GetObject("ToolStripButton46.Image"), System.Drawing.Image) + Me.ToolStripButton46.Name = "ToolStripButton46" + Me.ToolStripButton46.RightToLeftAutoMirrorImage = True + Me.ToolStripButton46.Size = New System.Drawing.Size(23, 22) + Me.ToolStripButton46.Text = "다음으로 이동" + ' + 'ToolStripSeparator26 + ' + Me.ToolStripSeparator26.Name = "ToolStripSeparator26" + Me.ToolStripSeparator26.Size = New System.Drawing.Size(6, 25) + ' + 'ToolStripTextBox6 + ' + Me.ToolStripTextBox6.AccessibleName = "위치" + Me.ToolStripTextBox6.AutoSize = False + Me.ToolStripTextBox6.Name = "ToolStripTextBox6" + Me.ToolStripTextBox6.Size = New System.Drawing.Size(57, 23) + Me.ToolStripTextBox6.Text = "0" + Me.ToolStripTextBox6.ToolTipText = "현재 위치" + ' + 'ToolStripSeparator27 + ' + Me.ToolStripSeparator27.Name = "ToolStripSeparator27" + Me.ToolStripSeparator27.Size = New System.Drawing.Size(6, 25) + ' + 'bn_all + ' + Me.bn_all.AddNewItem = Nothing + Me.bn_all.CountItem = Me.ToolStripLabel6 + Me.bn_all.DeleteItem = Nothing + 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.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.TabIndex = 13 + Me.bn_all.Text = "BindingNavigator1" + ' + 'ToolStripLabel6 + ' + Me.ToolStripLabel6.Name = "ToolStripLabel6" + Me.ToolStripLabel6.Size = New System.Drawing.Size(29, 22) + Me.ToolStripLabel6.Text = "/{0}" + Me.ToolStripLabel6.ToolTipText = "전체 항목 수" + ' + 'ToolStripSeparator25 + ' + Me.ToolStripSeparator25.Name = "ToolStripSeparator25" + Me.ToolStripSeparator25.Size = New System.Drawing.Size(6, 25) + ' + 'ToolStripSeparator28 + ' + Me.ToolStripSeparator28.Name = "ToolStripSeparator28" + Me.ToolStripSeparator28.Size = New System.Drawing.Size(6, 25) + ' + 'ToolStripButton51 + ' + Me.ToolStripButton51.Image = CType(resources.GetObject("ToolStripButton51.Image"), System.Drawing.Image) + Me.ToolStripButton51.ImageTransparentColor = System.Drawing.Color.Magenta + Me.ToolStripButton51.Name = "ToolStripButton51" + Me.ToolStripButton51.Size = New System.Drawing.Size(68, 22) + Me.ToolStripButton51.Text = "취소(&C)" + ' + 'StatusStrip1 + ' + 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.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.TabIndex = 14 + Me.StatusStrip1.Text = "StatusStrip1" + ' + 'lb_msg + ' + Me.lb_msg.Name = "lb_msg" + Me.lb_msg.Size = New System.Drawing.Size(57, 17) + Me.lb_msg.Text = "<메세지>" + ' + 'bsmain + ' + Me.bsmain.DataMember = "TReqUse" + Me.bsmain.DataSource = Me.DSR + ' + 'DataGridView1 + ' + Me.DataGridView1.AllowUserToAddRows = False + Me.DataGridView1.AllowUserToDeleteRows = False + Me.DataGridView1.AllowUserToResizeRows = False + Me.DataGridView1.AutoGenerateColumns = False + Me.DataGridView1.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.AllCells + Me.DataGridView1.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize + Me.DataGridView1.Columns.AddRange(New System.Windows.Forms.DataGridViewColumn() {Me.CodeDataGridViewTextBoxColumn, Me.DescDataGridViewTextBoxColumn, Me.GRPDataGridViewTextBoxColumn, Me.UNITDataGridViewTextBoxColumn, Me.SIGNDataGridViewTextBoxColumn, Me.EQDataGridViewTextBoxColumn, Me.F, Me.M00, Me.M01DataGridViewTextBoxColumn, Me.M02DataGridViewTextBoxColumn, Me.M03DataGridViewTextBoxColumn, Me.M04DataGridViewTextBoxColumn, Me.M05DataGridViewTextBoxColumn, Me.M06DataGridViewTextBoxColumn, Me.M07DataGridViewTextBoxColumn, Me.M08DataGridViewTextBoxColumn, Me.M09DataGridViewTextBoxColumn, Me.M10DataGridViewTextBoxColumn, Me.M11DataGridViewTextBoxColumn, Me.M12DataGridViewTextBoxColumn}) + Me.DataGridView1.DataSource = Me.bsmain + Me.DataGridView1.Dock = System.Windows.Forms.DockStyle.Fill + Me.DataGridView1.Location = New System.Drawing.Point(3, 3) + Me.DataGridView1.Name = "DataGridView1" + Me.DataGridView1.ReadOnly = True + Me.DataGridView1.RowHeadersVisible = False + Me.DataGridView1.RowTemplate.Height = 23 + Me.DataGridView1.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect + Me.DataGridView1.Size = New System.Drawing.Size(813, 414) + Me.DataGridView1.TabIndex = 15 + ' + 'CodeDataGridViewTextBoxColumn + ' + Me.CodeDataGridViewTextBoxColumn.DataPropertyName = "Code" + Me.CodeDataGridViewTextBoxColumn.HeaderText = "Code" + Me.CodeDataGridViewTextBoxColumn.Name = "CodeDataGridViewTextBoxColumn" + Me.CodeDataGridViewTextBoxColumn.ReadOnly = True + Me.CodeDataGridViewTextBoxColumn.Width = 64 + ' + 'DescDataGridViewTextBoxColumn + ' + Me.DescDataGridViewTextBoxColumn.DataPropertyName = "Desc" + Me.DescDataGridViewTextBoxColumn.HeaderText = "Desc" + Me.DescDataGridViewTextBoxColumn.Name = "DescDataGridViewTextBoxColumn" + Me.DescDataGridViewTextBoxColumn.ReadOnly = True + Me.DescDataGridViewTextBoxColumn.Width = 63 + ' + 'GRPDataGridViewTextBoxColumn + ' + Me.GRPDataGridViewTextBoxColumn.DataPropertyName = "GRP" + Me.GRPDataGridViewTextBoxColumn.HeaderText = "GRP" + Me.GRPDataGridViewTextBoxColumn.Name = "GRPDataGridViewTextBoxColumn" + Me.GRPDataGridViewTextBoxColumn.ReadOnly = True + Me.GRPDataGridViewTextBoxColumn.Width = 58 + ' + 'UNITDataGridViewTextBoxColumn + ' + Me.UNITDataGridViewTextBoxColumn.DataPropertyName = "UNIT" + Me.UNITDataGridViewTextBoxColumn.HeaderText = "UNIT" + Me.UNITDataGridViewTextBoxColumn.Name = "UNITDataGridViewTextBoxColumn" + Me.UNITDataGridViewTextBoxColumn.ReadOnly = True + Me.UNITDataGridViewTextBoxColumn.Width = 62 + ' + 'SIGNDataGridViewTextBoxColumn + ' + Me.SIGNDataGridViewTextBoxColumn.DataPropertyName = "SIGN" + Me.SIGNDataGridViewTextBoxColumn.HeaderText = "SIGN" + Me.SIGNDataGridViewTextBoxColumn.Name = "SIGNDataGridViewTextBoxColumn" + Me.SIGNDataGridViewTextBoxColumn.ReadOnly = True + Me.SIGNDataGridViewTextBoxColumn.Width = 63 + ' + 'EQDataGridViewTextBoxColumn + ' + Me.EQDataGridViewTextBoxColumn.DataPropertyName = "EQ" + Me.EQDataGridViewTextBoxColumn.HeaderText = "EQ" + Me.EQDataGridViewTextBoxColumn.Name = "EQDataGridViewTextBoxColumn" + Me.EQDataGridViewTextBoxColumn.ReadOnly = True + Me.EQDataGridViewTextBoxColumn.Width = 49 + ' + 'F + ' + Me.F.DataPropertyName = "F" + Me.F.HeaderText = "F" + Me.F.Name = "F" + Me.F.ReadOnly = True + Me.F.Width = 38 + ' + 'M00 + ' + Me.M00.DataPropertyName = "M00" + Me.M00.HeaderText = "TOTAL" + Me.M00.Name = "M00" + Me.M00.ReadOnly = True + Me.M00.Width = 75 + ' + 'M01DataGridViewTextBoxColumn + ' + Me.M01DataGridViewTextBoxColumn.DataPropertyName = "M01" + Me.M01DataGridViewTextBoxColumn.HeaderText = "M01" + Me.M01DataGridViewTextBoxColumn.Name = "M01DataGridViewTextBoxColumn" + Me.M01DataGridViewTextBoxColumn.ReadOnly = True + Me.M01DataGridViewTextBoxColumn.Width = 56 + ' + 'M02DataGridViewTextBoxColumn + ' + Me.M02DataGridViewTextBoxColumn.DataPropertyName = "M02" + Me.M02DataGridViewTextBoxColumn.HeaderText = "M02" + Me.M02DataGridViewTextBoxColumn.Name = "M02DataGridViewTextBoxColumn" + Me.M02DataGridViewTextBoxColumn.ReadOnly = True + Me.M02DataGridViewTextBoxColumn.Width = 56 + ' + 'M03DataGridViewTextBoxColumn + ' + Me.M03DataGridViewTextBoxColumn.DataPropertyName = "M03" + Me.M03DataGridViewTextBoxColumn.HeaderText = "M03" + Me.M03DataGridViewTextBoxColumn.Name = "M03DataGridViewTextBoxColumn" + Me.M03DataGridViewTextBoxColumn.ReadOnly = True + Me.M03DataGridViewTextBoxColumn.Width = 56 + ' + 'M04DataGridViewTextBoxColumn + ' + Me.M04DataGridViewTextBoxColumn.DataPropertyName = "M04" + Me.M04DataGridViewTextBoxColumn.HeaderText = "M04" + Me.M04DataGridViewTextBoxColumn.Name = "M04DataGridViewTextBoxColumn" + Me.M04DataGridViewTextBoxColumn.ReadOnly = True + Me.M04DataGridViewTextBoxColumn.Width = 56 + ' + 'M05DataGridViewTextBoxColumn + ' + Me.M05DataGridViewTextBoxColumn.DataPropertyName = "M05" + Me.M05DataGridViewTextBoxColumn.HeaderText = "M05" + Me.M05DataGridViewTextBoxColumn.Name = "M05DataGridViewTextBoxColumn" + Me.M05DataGridViewTextBoxColumn.ReadOnly = True + Me.M05DataGridViewTextBoxColumn.Width = 56 + ' + 'M06DataGridViewTextBoxColumn + ' + Me.M06DataGridViewTextBoxColumn.DataPropertyName = "M06" + Me.M06DataGridViewTextBoxColumn.HeaderText = "M06" + Me.M06DataGridViewTextBoxColumn.Name = "M06DataGridViewTextBoxColumn" + Me.M06DataGridViewTextBoxColumn.ReadOnly = True + Me.M06DataGridViewTextBoxColumn.Width = 56 + ' + 'M07DataGridViewTextBoxColumn + ' + Me.M07DataGridViewTextBoxColumn.DataPropertyName = "M07" + Me.M07DataGridViewTextBoxColumn.HeaderText = "M07" + Me.M07DataGridViewTextBoxColumn.Name = "M07DataGridViewTextBoxColumn" + Me.M07DataGridViewTextBoxColumn.ReadOnly = True + Me.M07DataGridViewTextBoxColumn.Width = 56 + ' + 'M08DataGridViewTextBoxColumn + ' + Me.M08DataGridViewTextBoxColumn.DataPropertyName = "M08" + Me.M08DataGridViewTextBoxColumn.HeaderText = "M08" + Me.M08DataGridViewTextBoxColumn.Name = "M08DataGridViewTextBoxColumn" + Me.M08DataGridViewTextBoxColumn.ReadOnly = True + Me.M08DataGridViewTextBoxColumn.Width = 56 + ' + 'M09DataGridViewTextBoxColumn + ' + Me.M09DataGridViewTextBoxColumn.DataPropertyName = "M09" + Me.M09DataGridViewTextBoxColumn.HeaderText = "M09" + Me.M09DataGridViewTextBoxColumn.Name = "M09DataGridViewTextBoxColumn" + Me.M09DataGridViewTextBoxColumn.ReadOnly = True + Me.M09DataGridViewTextBoxColumn.Width = 56 + ' + 'M10DataGridViewTextBoxColumn + ' + Me.M10DataGridViewTextBoxColumn.DataPropertyName = "M10" + Me.M10DataGridViewTextBoxColumn.HeaderText = "M10" + Me.M10DataGridViewTextBoxColumn.Name = "M10DataGridViewTextBoxColumn" + Me.M10DataGridViewTextBoxColumn.ReadOnly = True + Me.M10DataGridViewTextBoxColumn.Width = 56 + ' + 'M11DataGridViewTextBoxColumn + ' + Me.M11DataGridViewTextBoxColumn.DataPropertyName = "M11" + Me.M11DataGridViewTextBoxColumn.HeaderText = "M11" + Me.M11DataGridViewTextBoxColumn.Name = "M11DataGridViewTextBoxColumn" + Me.M11DataGridViewTextBoxColumn.ReadOnly = True + Me.M11DataGridViewTextBoxColumn.Width = 56 + ' + 'M12DataGridViewTextBoxColumn + ' + Me.M12DataGridViewTextBoxColumn.DataPropertyName = "M12" + Me.M12DataGridViewTextBoxColumn.HeaderText = "M12" + Me.M12DataGridViewTextBoxColumn.Name = "M12DataGridViewTextBoxColumn" + Me.M12DataGridViewTextBoxColumn.ReadOnly = True + Me.M12DataGridViewTextBoxColumn.Width = 56 + ' + 'TabControl1 + ' + Me.TabControl1.Controls.Add(Me.TabPage1) + Me.TabControl1.Controls.Add(Me.TabPage2) + Me.TabControl1.Controls.Add(Me.TabPage3) + Me.TabControl1.Controls.Add(Me.TabPage5) + Me.TabControl1.Controls.Add(Me.TabPage6) + Me.TabControl1.Controls.Add(Me.TabPage7) + Me.TabControl1.Controls.Add(Me.TabPage8) + 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(827, 446) + Me.TabControl1.TabIndex = 16 + ' + 'TabPage1 + ' + Me.TabPage1.Controls.Add(Me.DataGridView1) + Me.TabPage1.Location = New System.Drawing.Point(4, 22) + Me.TabPage1.Name = "TabPage1" + Me.TabPage1.Padding = New System.Windows.Forms.Padding(3) + Me.TabPage1.Size = New System.Drawing.Size(819, 420) + Me.TabPage1.TabIndex = 0 + Me.TabPage1.Text = "계산결과" + Me.TabPage1.UseVisualStyleBackColor = True + ' + 'TabPage2 + ' + Me.TabPage2.Controls.Add(Me.DataGridView2) + Me.TabPage2.Location = New System.Drawing.Point(4, 22) + Me.TabPage2.Name = "TabPage2" + Me.TabPage2.Padding = New System.Windows.Forms.Padding(3) + Me.TabPage2.Size = New System.Drawing.Size(819, 420) + Me.TabPage2.TabIndex = 1 + Me.TabPage2.Text = "최대냉난방" + Me.TabPage2.UseVisualStyleBackColor = True + ' + 'DataGridView2 + ' + Me.DataGridView2.AllowUserToAddRows = False + Me.DataGridView2.AllowUserToDeleteRows = False + Me.DataGridView2.AllowUserToResizeRows = False + Me.DataGridView2.AutoGenerateColumns = False + Me.DataGridView2.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.AllCells + Me.DataGridView2.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize + Me.DataGridView2.Columns.AddRange(New System.Windows.Forms.DataGridViewColumn() {Me.ZoneDataGridViewTextBoxColumn, Me.최대난방기기부하DataGridViewTextBoxColumn, Me.최대난방실내부하DataGridViewTextBoxColumn, Me.난방최대가동시간DataGridViewTextBoxColumn, Me.최대가열성능DataGridViewTextBoxColumn, Me.최대냉방기기부하DataGridViewTextBoxColumn, Me.최대냉방실내부하DataGridViewTextBoxColumn, Me.냉방최대가동시간DataGridViewTextBoxColumn, Me.최대냉각성능DataGridViewTextBoxColumn, Me.최대가습성능DataGridViewTextBoxColumn, Me.공조풍량DataGridViewTextBoxColumn}) + Me.DataGridView2.DataSource = Me.bs_max + Me.DataGridView2.Dock = System.Windows.Forms.DockStyle.Fill + Me.DataGridView2.Location = New System.Drawing.Point(3, 3) + Me.DataGridView2.Name = "DataGridView2" + Me.DataGridView2.ReadOnly = True + Me.DataGridView2.RowHeadersVisible = False + Me.DataGridView2.RowTemplate.Height = 23 + Me.DataGridView2.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect + Me.DataGridView2.Size = New System.Drawing.Size(813, 414) + Me.DataGridView2.TabIndex = 16 + ' + 'ZoneDataGridViewTextBoxColumn + ' + Me.ZoneDataGridViewTextBoxColumn.DataPropertyName = "Zone" + Me.ZoneDataGridViewTextBoxColumn.HeaderText = "Zone" + Me.ZoneDataGridViewTextBoxColumn.Name = "ZoneDataGridViewTextBoxColumn" + Me.ZoneDataGridViewTextBoxColumn.ReadOnly = True + Me.ZoneDataGridViewTextBoxColumn.Width = 63 + ' + '최대난방기기부하DataGridViewTextBoxColumn + ' + Me.최대난방기기부하DataGridViewTextBoxColumn.DataPropertyName = "최대난방기기부하" + Me.최대난방기기부하DataGridViewTextBoxColumn.HeaderText = "최대난방기기부하" + Me.최대난방기기부하DataGridViewTextBoxColumn.Name = "최대난방기기부하DataGridViewTextBoxColumn" + Me.최대난방기기부하DataGridViewTextBoxColumn.ReadOnly = True + Me.최대난방기기부하DataGridViewTextBoxColumn.Width = 87 + ' + '최대난방실내부하DataGridViewTextBoxColumn + ' + Me.최대난방실내부하DataGridViewTextBoxColumn.DataPropertyName = "최대난방실내부하" + Me.최대난방실내부하DataGridViewTextBoxColumn.HeaderText = "최대난방실내부하" + Me.최대난방실내부하DataGridViewTextBoxColumn.Name = "최대난방실내부하DataGridViewTextBoxColumn" + Me.최대난방실내부하DataGridViewTextBoxColumn.ReadOnly = True + Me.최대난방실내부하DataGridViewTextBoxColumn.Width = 87 + ' + '난방최대가동시간DataGridViewTextBoxColumn + ' + Me.난방최대가동시간DataGridViewTextBoxColumn.DataPropertyName = "난방최대가동시간" + Me.난방최대가동시간DataGridViewTextBoxColumn.HeaderText = "난방최대가동시간" + Me.난방최대가동시간DataGridViewTextBoxColumn.Name = "난방최대가동시간DataGridViewTextBoxColumn" + Me.난방최대가동시간DataGridViewTextBoxColumn.ReadOnly = True + Me.난방최대가동시간DataGridViewTextBoxColumn.Width = 87 + ' + '최대가열성능DataGridViewTextBoxColumn + ' + Me.최대가열성능DataGridViewTextBoxColumn.DataPropertyName = "최대가열성능" + Me.최대가열성능DataGridViewTextBoxColumn.HeaderText = "최대가열성능" + Me.최대가열성능DataGridViewTextBoxColumn.Name = "최대가열성능DataGridViewTextBoxColumn" + Me.최대가열성능DataGridViewTextBoxColumn.ReadOnly = True + Me.최대가열성능DataGridViewTextBoxColumn.Width = 76 + ' + '최대냉방기기부하DataGridViewTextBoxColumn + ' + Me.최대냉방기기부하DataGridViewTextBoxColumn.DataPropertyName = "최대냉방기기부하" + Me.최대냉방기기부하DataGridViewTextBoxColumn.HeaderText = "최대냉방기기부하" + Me.최대냉방기기부하DataGridViewTextBoxColumn.Name = "최대냉방기기부하DataGridViewTextBoxColumn" + Me.최대냉방기기부하DataGridViewTextBoxColumn.ReadOnly = True + Me.최대냉방기기부하DataGridViewTextBoxColumn.Width = 87 + ' + '최대냉방실내부하DataGridViewTextBoxColumn + ' + Me.최대냉방실내부하DataGridViewTextBoxColumn.DataPropertyName = "최대냉방실내부하" + Me.최대냉방실내부하DataGridViewTextBoxColumn.HeaderText = "최대냉방실내부하" + Me.최대냉방실내부하DataGridViewTextBoxColumn.Name = "최대냉방실내부하DataGridViewTextBoxColumn" + Me.최대냉방실내부하DataGridViewTextBoxColumn.ReadOnly = True + Me.최대냉방실내부하DataGridViewTextBoxColumn.Width = 87 + ' + '냉방최대가동시간DataGridViewTextBoxColumn + ' + Me.냉방최대가동시간DataGridViewTextBoxColumn.DataPropertyName = "냉방최대가동시간" + Me.냉방최대가동시간DataGridViewTextBoxColumn.HeaderText = "냉방최대가동시간" + Me.냉방최대가동시간DataGridViewTextBoxColumn.Name = "냉방최대가동시간DataGridViewTextBoxColumn" + Me.냉방최대가동시간DataGridViewTextBoxColumn.ReadOnly = True + Me.냉방최대가동시간DataGridViewTextBoxColumn.Width = 87 + ' + '최대냉각성능DataGridViewTextBoxColumn + ' + Me.최대냉각성능DataGridViewTextBoxColumn.DataPropertyName = "최대냉각성능" + Me.최대냉각성능DataGridViewTextBoxColumn.HeaderText = "최대냉각성능" + Me.최대냉각성능DataGridViewTextBoxColumn.Name = "최대냉각성능DataGridViewTextBoxColumn" + Me.최대냉각성능DataGridViewTextBoxColumn.ReadOnly = True + Me.최대냉각성능DataGridViewTextBoxColumn.Width = 76 + ' + '최대가습성능DataGridViewTextBoxColumn + ' + Me.최대가습성능DataGridViewTextBoxColumn.DataPropertyName = "최대가습성능" + Me.최대가습성능DataGridViewTextBoxColumn.HeaderText = "최대가습성능" + Me.최대가습성능DataGridViewTextBoxColumn.Name = "최대가습성능DataGridViewTextBoxColumn" + Me.최대가습성능DataGridViewTextBoxColumn.ReadOnly = True + Me.최대가습성능DataGridViewTextBoxColumn.Width = 76 + ' + '공조풍량DataGridViewTextBoxColumn + ' + Me.공조풍량DataGridViewTextBoxColumn.DataPropertyName = "공조풍량" + Me.공조풍량DataGridViewTextBoxColumn.HeaderText = "공조풍량" + Me.공조풍량DataGridViewTextBoxColumn.Name = "공조풍량DataGridViewTextBoxColumn" + Me.공조풍량DataGridViewTextBoxColumn.ReadOnly = True + Me.공조풍량DataGridViewTextBoxColumn.Width = 64 + ' + 'bs_max + ' + Me.bs_max.DataMember = "최대냉난방부하" + Me.bs_max.DataSource = Me.DSR + ' + 'TabPage3 + ' + Me.TabPage3.Controls.Add(Me.DataGridView3) + Me.TabPage3.Location = New System.Drawing.Point(4, 22) + Me.TabPage3.Name = "TabPage3" + Me.TabPage3.Size = New System.Drawing.Size(819, 420) + Me.TabPage3.TabIndex = 2 + Me.TabPage3.Text = "사용면적" + Me.TabPage3.UseVisualStyleBackColor = True + ' + 'DataGridView3 + ' + Me.DataGridView3.AllowUserToAddRows = False + Me.DataGridView3.AllowUserToDeleteRows = False + Me.DataGridView3.AllowUserToResizeRows = False + Me.DataGridView3.AutoGenerateColumns = False + Me.DataGridView3.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.AllCells + Me.DataGridView3.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize + Me.DataGridView3.Columns.AddRange(New System.Windows.Forms.DataGridViewColumn() {Me.HDataGridViewTextBoxColumn, Me.CDataGridViewTextBoxColumn, Me.LDataGridViewTextBoxColumn, Me.WDataGridViewTextBoxColumn, Me.VDataGridViewTextBoxColumn}) + Me.DataGridView3.DataSource = Me.bs_면적 + Me.DataGridView3.Dock = System.Windows.Forms.DockStyle.Fill + Me.DataGridView3.Location = New System.Drawing.Point(0, 0) + Me.DataGridView3.Name = "DataGridView3" + Me.DataGridView3.ReadOnly = True + Me.DataGridView3.RowHeadersVisible = False + Me.DataGridView3.RowTemplate.Height = 23 + Me.DataGridView3.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect + Me.DataGridView3.Size = New System.Drawing.Size(819, 420) + Me.DataGridView3.TabIndex = 16 + ' + 'HDataGridViewTextBoxColumn + ' + Me.HDataGridViewTextBoxColumn.DataPropertyName = "H" + Me.HDataGridViewTextBoxColumn.HeaderText = "H" + Me.HDataGridViewTextBoxColumn.Name = "HDataGridViewTextBoxColumn" + Me.HDataGridViewTextBoxColumn.ReadOnly = True + Me.HDataGridViewTextBoxColumn.Width = 39 + ' + 'CDataGridViewTextBoxColumn + ' + Me.CDataGridViewTextBoxColumn.DataPropertyName = "C" + Me.CDataGridViewTextBoxColumn.HeaderText = "C" + Me.CDataGridViewTextBoxColumn.Name = "CDataGridViewTextBoxColumn" + Me.CDataGridViewTextBoxColumn.ReadOnly = True + Me.CDataGridViewTextBoxColumn.Width = 40 + ' + 'LDataGridViewTextBoxColumn + ' + Me.LDataGridViewTextBoxColumn.DataPropertyName = "L" + Me.LDataGridViewTextBoxColumn.HeaderText = "L" + Me.LDataGridViewTextBoxColumn.Name = "LDataGridViewTextBoxColumn" + Me.LDataGridViewTextBoxColumn.ReadOnly = True + Me.LDataGridViewTextBoxColumn.Width = 38 + ' + 'WDataGridViewTextBoxColumn + ' + Me.WDataGridViewTextBoxColumn.DataPropertyName = "W" + Me.WDataGridViewTextBoxColumn.HeaderText = "W" + Me.WDataGridViewTextBoxColumn.Name = "WDataGridViewTextBoxColumn" + Me.WDataGridViewTextBoxColumn.ReadOnly = True + Me.WDataGridViewTextBoxColumn.Width = 41 + ' + 'VDataGridViewTextBoxColumn + ' + Me.VDataGridViewTextBoxColumn.DataPropertyName = "V" + Me.VDataGridViewTextBoxColumn.HeaderText = "V" + Me.VDataGridViewTextBoxColumn.Name = "VDataGridViewTextBoxColumn" + Me.VDataGridViewTextBoxColumn.ReadOnly = True + Me.VDataGridViewTextBoxColumn.Width = 39 + ' + 'bs_면적 + ' + Me.bs_면적.DataMember = "사용면적" + Me.bs_면적.DataSource = Me.DSR + ' + 'TabPage5 + ' + Me.TabPage5.Controls.Add(Me.DataGridView5) + Me.TabPage5.Location = New System.Drawing.Point(4, 22) + Me.TabPage5.Name = "TabPage5" + Me.TabPage5.Size = New System.Drawing.Size(819, 420) + Me.TabPage5.TabIndex = 4 + Me.TabPage5.Text = "에너지소요량" + Me.TabPage5.UseVisualStyleBackColor = True + ' + 'DataGridView5 + ' + Me.DataGridView5.AllowUserToAddRows = False + Me.DataGridView5.AllowUserToDeleteRows = False + Me.DataGridView5.AllowUserToResizeRows = False + Me.DataGridView5.AutoGenerateColumns = False + Me.DataGridView5.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.AllCells + Me.DataGridView5.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize + Me.DataGridView5.Columns.AddRange(New System.Windows.Forms.DataGridViewColumn() {Me.MonDataGridViewTextBoxColumn1, Me.난방에너지소요량DataGridViewTextBoxColumn, Me.난방보조에너지소요량DataGridViewTextBoxColumn, Me.냉방에너지소요량DataGridViewTextBoxColumn, Me.냉방보조에너지소요량DataGridViewTextBoxColumn, Me.급탕에너지소요량DataGridViewTextBoxColumn, Me.급탕보조에너지소요량DataGridViewTextBoxColumn}) + Me.DataGridView5.DataSource = Me.bs_소요량 + Me.DataGridView5.Dock = System.Windows.Forms.DockStyle.Fill + Me.DataGridView5.Location = New System.Drawing.Point(0, 0) + Me.DataGridView5.Name = "DataGridView5" + Me.DataGridView5.ReadOnly = True + Me.DataGridView5.RowHeadersVisible = False + Me.DataGridView5.RowTemplate.Height = 23 + Me.DataGridView5.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect + Me.DataGridView5.Size = New System.Drawing.Size(819, 420) + Me.DataGridView5.TabIndex = 16 + ' + 'MonDataGridViewTextBoxColumn1 + ' + Me.MonDataGridViewTextBoxColumn1.DataPropertyName = "mon" + Me.MonDataGridViewTextBoxColumn1.HeaderText = "mon" + Me.MonDataGridViewTextBoxColumn1.Name = "MonDataGridViewTextBoxColumn1" + Me.MonDataGridViewTextBoxColumn1.ReadOnly = True + Me.MonDataGridViewTextBoxColumn1.Width = 58 + ' + '난방에너지소요량DataGridViewTextBoxColumn + ' + Me.난방에너지소요량DataGridViewTextBoxColumn.DataPropertyName = "난방에너지소요량" + Me.난방에너지소요량DataGridViewTextBoxColumn.HeaderText = "난방에너지소요량" + Me.난방에너지소요량DataGridViewTextBoxColumn.Name = "난방에너지소요량DataGridViewTextBoxColumn" + Me.난방에너지소요량DataGridViewTextBoxColumn.ReadOnly = True + Me.난방에너지소요량DataGridViewTextBoxColumn.Width = 87 + ' + '난방보조에너지소요량DataGridViewTextBoxColumn + ' + Me.난방보조에너지소요량DataGridViewTextBoxColumn.DataPropertyName = "난방보조에너지소요량" + Me.난방보조에너지소요량DataGridViewTextBoxColumn.HeaderText = "난방보조에너지소요량" + Me.난방보조에너지소요량DataGridViewTextBoxColumn.Name = "난방보조에너지소요량DataGridViewTextBoxColumn" + Me.난방보조에너지소요량DataGridViewTextBoxColumn.ReadOnly = True + Me.난방보조에너지소요량DataGridViewTextBoxColumn.Width = 99 + ' + '냉방에너지소요량DataGridViewTextBoxColumn + ' + Me.냉방에너지소요량DataGridViewTextBoxColumn.DataPropertyName = "냉방에너지소요량" + Me.냉방에너지소요량DataGridViewTextBoxColumn.HeaderText = "냉방에너지소요량" + Me.냉방에너지소요량DataGridViewTextBoxColumn.Name = "냉방에너지소요량DataGridViewTextBoxColumn" + Me.냉방에너지소요량DataGridViewTextBoxColumn.ReadOnly = True + Me.냉방에너지소요량DataGridViewTextBoxColumn.Width = 87 + ' + '냉방보조에너지소요량DataGridViewTextBoxColumn + ' + Me.냉방보조에너지소요량DataGridViewTextBoxColumn.DataPropertyName = "냉방보조에너지소요량" + Me.냉방보조에너지소요량DataGridViewTextBoxColumn.HeaderText = "냉방보조에너지소요량" + Me.냉방보조에너지소요량DataGridViewTextBoxColumn.Name = "냉방보조에너지소요량DataGridViewTextBoxColumn" + Me.냉방보조에너지소요량DataGridViewTextBoxColumn.ReadOnly = True + Me.냉방보조에너지소요량DataGridViewTextBoxColumn.Width = 99 + ' + '급탕에너지소요량DataGridViewTextBoxColumn + ' + Me.급탕에너지소요량DataGridViewTextBoxColumn.DataPropertyName = "급탕에너지소요량" + Me.급탕에너지소요량DataGridViewTextBoxColumn.HeaderText = "급탕에너지소요량" + Me.급탕에너지소요량DataGridViewTextBoxColumn.Name = "급탕에너지소요량DataGridViewTextBoxColumn" + Me.급탕에너지소요량DataGridViewTextBoxColumn.ReadOnly = True + Me.급탕에너지소요량DataGridViewTextBoxColumn.Width = 87 + ' + '급탕보조에너지소요량DataGridViewTextBoxColumn + ' + Me.급탕보조에너지소요량DataGridViewTextBoxColumn.DataPropertyName = "급탕보조에너지소요량" + Me.급탕보조에너지소요량DataGridViewTextBoxColumn.HeaderText = "급탕보조에너지소요량" + Me.급탕보조에너지소요량DataGridViewTextBoxColumn.Name = "급탕보조에너지소요량DataGridViewTextBoxColumn" + Me.급탕보조에너지소요량DataGridViewTextBoxColumn.ReadOnly = True + Me.급탕보조에너지소요량DataGridViewTextBoxColumn.Width = 99 + ' + 'bs_소요량 + ' + Me.bs_소요량.DataMember = "에너지소요량" + Me.bs_소요량.DataSource = Me.DSR + ' + 'TabPage6 + ' + Me.TabPage6.Controls.Add(Me.DataGridView6) + Me.TabPage6.Location = New System.Drawing.Point(4, 22) + Me.TabPage6.Name = "TabPage6" + Me.TabPage6.Size = New System.Drawing.Size(819, 420) + Me.TabPage6.TabIndex = 5 + Me.TabPage6.Text = "1차에너지소요량" + Me.TabPage6.UseVisualStyleBackColor = True + ' + 'DataGridView6 + ' + Me.DataGridView6.AllowUserToAddRows = False + Me.DataGridView6.AllowUserToDeleteRows = False + Me.DataGridView6.AllowUserToResizeRows = False + Me.DataGridView6.AutoGenerateColumns = False + Me.DataGridView6.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.AllCells + Me.DataGridView6.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize + Me.DataGridView6.Columns.AddRange(New System.Windows.Forms.DataGridViewColumn() {Me.MonDataGridViewTextBoxColumn2, Me.난방등유DataGridViewTextBoxColumn1, Me.난방LNGDataGridViewTextBoxColumn1, Me.난방LPGDataGridViewTextBoxColumn1, Me.난방지역DataGridViewTextBoxColumn1, Me.난방전력DataGridViewTextBoxColumn1, Me.냉방등유DataGridViewTextBoxColumn1, Me.냉방LNGDataGridViewTextBoxColumn1, Me.냉방LPGDataGridViewTextBoxColumn1, Me.냉방지역DataGridViewTextBoxColumn1, Me.냉방지역2DataGridViewTextBoxColumn, Me.냉방전력DataGridViewTextBoxColumn1, Me.급탕등유DataGridViewTextBoxColumn1, Me.급탕LNGDataGridViewTextBoxColumn1, Me.급탕LPGDataGridViewTextBoxColumn1, Me.급탕지역DataGridViewTextBoxColumn1, Me.급탕전력DataGridViewTextBoxColumn1}) + Me.DataGridView6.DataSource = Me.bs_1차소요량 + Me.DataGridView6.Dock = System.Windows.Forms.DockStyle.Fill + Me.DataGridView6.Location = New System.Drawing.Point(0, 0) + Me.DataGridView6.Name = "DataGridView6" + Me.DataGridView6.ReadOnly = True + Me.DataGridView6.RowHeadersVisible = False + Me.DataGridView6.RowTemplate.Height = 23 + Me.DataGridView6.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect + Me.DataGridView6.Size = New System.Drawing.Size(819, 420) + Me.DataGridView6.TabIndex = 16 + ' + 'MonDataGridViewTextBoxColumn2 + ' + Me.MonDataGridViewTextBoxColumn2.DataPropertyName = "mon" + Me.MonDataGridViewTextBoxColumn2.HeaderText = "mon" + Me.MonDataGridViewTextBoxColumn2.Name = "MonDataGridViewTextBoxColumn2" + Me.MonDataGridViewTextBoxColumn2.ReadOnly = True + Me.MonDataGridViewTextBoxColumn2.Width = 58 + ' + '난방등유DataGridViewTextBoxColumn1 + ' + Me.난방등유DataGridViewTextBoxColumn1.DataPropertyName = "난방등유" + Me.난방등유DataGridViewTextBoxColumn1.HeaderText = "난방등유" + Me.난방등유DataGridViewTextBoxColumn1.Name = "난방등유DataGridViewTextBoxColumn1" + Me.난방등유DataGridViewTextBoxColumn1.ReadOnly = True + Me.난방등유DataGridViewTextBoxColumn1.Width = 82 + ' + '난방LNGDataGridViewTextBoxColumn1 + ' + Me.난방LNGDataGridViewTextBoxColumn1.DataPropertyName = "난방LNG" + Me.난방LNGDataGridViewTextBoxColumn1.HeaderText = "난방LNG" + Me.난방LNGDataGridViewTextBoxColumn1.Name = "난방LNGDataGridViewTextBoxColumn1" + Me.난방LNGDataGridViewTextBoxColumn1.ReadOnly = True + Me.난방LNGDataGridViewTextBoxColumn1.Width = 84 + ' + '난방LPGDataGridViewTextBoxColumn1 + ' + Me.난방LPGDataGridViewTextBoxColumn1.DataPropertyName = "난방LPG" + Me.난방LPGDataGridViewTextBoxColumn1.HeaderText = "난방LPG" + Me.난방LPGDataGridViewTextBoxColumn1.Name = "난방LPGDataGridViewTextBoxColumn1" + Me.난방LPGDataGridViewTextBoxColumn1.ReadOnly = True + Me.난방LPGDataGridViewTextBoxColumn1.Width = 83 + ' + '난방지역DataGridViewTextBoxColumn1 + ' + Me.난방지역DataGridViewTextBoxColumn1.DataPropertyName = "난방지역" + Me.난방지역DataGridViewTextBoxColumn1.HeaderText = "난방지역" + Me.난방지역DataGridViewTextBoxColumn1.Name = "난방지역DataGridViewTextBoxColumn1" + Me.난방지역DataGridViewTextBoxColumn1.ReadOnly = True + Me.난방지역DataGridViewTextBoxColumn1.Width = 82 + ' + '난방전력DataGridViewTextBoxColumn1 + ' + Me.난방전력DataGridViewTextBoxColumn1.DataPropertyName = "난방전력" + Me.난방전력DataGridViewTextBoxColumn1.HeaderText = "난방전력" + Me.난방전력DataGridViewTextBoxColumn1.Name = "난방전력DataGridViewTextBoxColumn1" + Me.난방전력DataGridViewTextBoxColumn1.ReadOnly = True + Me.난방전력DataGridViewTextBoxColumn1.Width = 82 + ' + '냉방등유DataGridViewTextBoxColumn1 + ' + Me.냉방등유DataGridViewTextBoxColumn1.DataPropertyName = "냉방등유" + Me.냉방등유DataGridViewTextBoxColumn1.HeaderText = "냉방등유" + Me.냉방등유DataGridViewTextBoxColumn1.Name = "냉방등유DataGridViewTextBoxColumn1" + Me.냉방등유DataGridViewTextBoxColumn1.ReadOnly = True + Me.냉방등유DataGridViewTextBoxColumn1.Width = 82 + ' + '냉방LNGDataGridViewTextBoxColumn1 + ' + Me.냉방LNGDataGridViewTextBoxColumn1.DataPropertyName = "냉방LNG" + Me.냉방LNGDataGridViewTextBoxColumn1.HeaderText = "냉방LNG" + Me.냉방LNGDataGridViewTextBoxColumn1.Name = "냉방LNGDataGridViewTextBoxColumn1" + Me.냉방LNGDataGridViewTextBoxColumn1.ReadOnly = True + Me.냉방LNGDataGridViewTextBoxColumn1.Width = 84 + ' + '냉방LPGDataGridViewTextBoxColumn1 + ' + Me.냉방LPGDataGridViewTextBoxColumn1.DataPropertyName = "냉방LPG" + Me.냉방LPGDataGridViewTextBoxColumn1.HeaderText = "냉방LPG" + Me.냉방LPGDataGridViewTextBoxColumn1.Name = "냉방LPGDataGridViewTextBoxColumn1" + Me.냉방LPGDataGridViewTextBoxColumn1.ReadOnly = True + Me.냉방LPGDataGridViewTextBoxColumn1.Width = 83 + ' + '냉방지역DataGridViewTextBoxColumn1 + ' + Me.냉방지역DataGridViewTextBoxColumn1.DataPropertyName = "냉방지역" + Me.냉방지역DataGridViewTextBoxColumn1.HeaderText = "냉방지역" + Me.냉방지역DataGridViewTextBoxColumn1.Name = "냉방지역DataGridViewTextBoxColumn1" + Me.냉방지역DataGridViewTextBoxColumn1.ReadOnly = True + Me.냉방지역DataGridViewTextBoxColumn1.Width = 82 + ' + '냉방지역2DataGridViewTextBoxColumn + ' + Me.냉방지역2DataGridViewTextBoxColumn.DataPropertyName = "냉방지역2" + Me.냉방지역2DataGridViewTextBoxColumn.HeaderText = "냉방지역2" + Me.냉방지역2DataGridViewTextBoxColumn.Name = "냉방지역2DataGridViewTextBoxColumn" + Me.냉방지역2DataGridViewTextBoxColumn.ReadOnly = True + Me.냉방지역2DataGridViewTextBoxColumn.Width = 89 + ' + '냉방전력DataGridViewTextBoxColumn1 + ' + Me.냉방전력DataGridViewTextBoxColumn1.DataPropertyName = "냉방전력" + Me.냉방전력DataGridViewTextBoxColumn1.HeaderText = "냉방전력" + Me.냉방전력DataGridViewTextBoxColumn1.Name = "냉방전력DataGridViewTextBoxColumn1" + Me.냉방전력DataGridViewTextBoxColumn1.ReadOnly = True + Me.냉방전력DataGridViewTextBoxColumn1.Width = 82 + ' + '급탕등유DataGridViewTextBoxColumn1 + ' + Me.급탕등유DataGridViewTextBoxColumn1.DataPropertyName = "급탕등유" + Me.급탕등유DataGridViewTextBoxColumn1.HeaderText = "급탕등유" + Me.급탕등유DataGridViewTextBoxColumn1.Name = "급탕등유DataGridViewTextBoxColumn1" + Me.급탕등유DataGridViewTextBoxColumn1.ReadOnly = True + Me.급탕등유DataGridViewTextBoxColumn1.Width = 82 + ' + '급탕LNGDataGridViewTextBoxColumn1 + ' + Me.급탕LNGDataGridViewTextBoxColumn1.DataPropertyName = "급탕LNG" + Me.급탕LNGDataGridViewTextBoxColumn1.HeaderText = "급탕LNG" + Me.급탕LNGDataGridViewTextBoxColumn1.Name = "급탕LNGDataGridViewTextBoxColumn1" + Me.급탕LNGDataGridViewTextBoxColumn1.ReadOnly = True + Me.급탕LNGDataGridViewTextBoxColumn1.Width = 84 + ' + '급탕LPGDataGridViewTextBoxColumn1 + ' + Me.급탕LPGDataGridViewTextBoxColumn1.DataPropertyName = "급탕LPG" + Me.급탕LPGDataGridViewTextBoxColumn1.HeaderText = "급탕LPG" + Me.급탕LPGDataGridViewTextBoxColumn1.Name = "급탕LPGDataGridViewTextBoxColumn1" + Me.급탕LPGDataGridViewTextBoxColumn1.ReadOnly = True + Me.급탕LPGDataGridViewTextBoxColumn1.Width = 83 + ' + '급탕지역DataGridViewTextBoxColumn1 + ' + Me.급탕지역DataGridViewTextBoxColumn1.DataPropertyName = "급탕지역" + Me.급탕지역DataGridViewTextBoxColumn1.HeaderText = "급탕지역" + Me.급탕지역DataGridViewTextBoxColumn1.Name = "급탕지역DataGridViewTextBoxColumn1" + Me.급탕지역DataGridViewTextBoxColumn1.ReadOnly = True + Me.급탕지역DataGridViewTextBoxColumn1.Width = 82 + ' + '급탕전력DataGridViewTextBoxColumn1 + ' + Me.급탕전력DataGridViewTextBoxColumn1.DataPropertyName = "급탕전력" + Me.급탕전력DataGridViewTextBoxColumn1.HeaderText = "급탕전력" + Me.급탕전력DataGridViewTextBoxColumn1.Name = "급탕전력DataGridViewTextBoxColumn1" + Me.급탕전력DataGridViewTextBoxColumn1.ReadOnly = True + Me.급탕전력DataGridViewTextBoxColumn1.Width = 82 + ' + 'bs_1차소요량 + ' + Me.bs_1차소요량.DataMember = "에너지소요량1" + Me.bs_1차소요량.DataSource = Me.DSR + ' + 'TabPage7 + ' + Me.TabPage7.Controls.Add(Me.TabControl2) + Me.TabPage7.Location = New System.Drawing.Point(4, 22) + Me.TabPage7.Name = "TabPage7" + Me.TabPage7.Size = New System.Drawing.Size(819, 420) + Me.TabPage7.TabIndex = 6 + Me.TabPage7.Text = "에너지분석" + Me.TabPage7.UseVisualStyleBackColor = True + ' + 'TabControl2 + ' + Me.TabControl2.Appearance = System.Windows.Forms.TabAppearance.FlatButtons + Me.TabControl2.Controls.Add(Me.TabPage9) + Me.TabControl2.Controls.Add(Me.TabPage10) + Me.TabControl2.Controls.Add(Me.TabPage11) + Me.TabControl2.Controls.Add(Me.TabPage12) + Me.TabControl2.Controls.Add(Me.TabPage13) + Me.TabControl2.Controls.Add(Me.TabPage14) + Me.TabControl2.Controls.Add(Me.TabPage15) + Me.TabControl2.Controls.Add(Me.TabPage16) + Me.TabControl2.Controls.Add(Me.TabPage17) + Me.TabControl2.Controls.Add(Me.TabPage18) + Me.TabControl2.Controls.Add(Me.TabPage19) + Me.TabControl2.Controls.Add(Me.TabPage20) + Me.TabControl2.Dock = System.Windows.Forms.DockStyle.Fill + Me.TabControl2.Location = New System.Drawing.Point(0, 0) + Me.TabControl2.Name = "TabControl2" + Me.TabControl2.SelectedIndex = 0 + Me.TabControl2.Size = New System.Drawing.Size(819, 420) + Me.TabControl2.TabIndex = 0 + ' + 'TabPage9 + ' + Me.TabPage9.Controls.Add(Me.DataGridView7) + Me.TabPage9.Location = New System.Drawing.Point(4, 25) + Me.TabPage9.Name = "TabPage9" + Me.TabPage9.Padding = New System.Windows.Forms.Padding(3) + Me.TabPage9.Size = New System.Drawing.Size(811, 391) + Me.TabPage9.TabIndex = 0 + Me.TabPage9.Text = "01" + Me.TabPage9.UseVisualStyleBackColor = True + ' + 'DataGridView7 + ' + Me.DataGridView7.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize + Me.DataGridView7.Dock = System.Windows.Forms.DockStyle.Fill + Me.DataGridView7.Location = New System.Drawing.Point(3, 3) + Me.DataGridView7.Name = "DataGridView7" + Me.DataGridView7.RowTemplate.Height = 23 + Me.DataGridView7.Size = New System.Drawing.Size(805, 385) + Me.DataGridView7.TabIndex = 0 + ' + 'TabPage10 + ' + Me.TabPage10.Controls.Add(Me.DataGridView9) + 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.TabIndex = 1 + Me.TabPage10.Text = "02" + Me.TabPage10.UseVisualStyleBackColor = True + ' + 'DataGridView9 + ' + Me.DataGridView9.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize + Me.DataGridView9.Dock = System.Windows.Forms.DockStyle.Fill + 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.TabIndex = 1 + ' + 'TabPage11 + ' + 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.TabIndex = 2 + Me.TabPage11.Text = "03" + Me.TabPage11.UseVisualStyleBackColor = True + ' + 'DataGridView10 + ' + Me.DataGridView10.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize + Me.DataGridView10.Dock = System.Windows.Forms.DockStyle.Fill + 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.TabIndex = 1 + ' + 'TabPage12 + ' + 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.TabIndex = 3 + Me.TabPage12.Text = "04" + Me.TabPage12.UseVisualStyleBackColor = True + ' + 'DataGridView11 + ' + Me.DataGridView11.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize + Me.DataGridView11.Dock = System.Windows.Forms.DockStyle.Fill + 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.TabIndex = 1 + ' + 'TabPage13 + ' + 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.TabIndex = 4 + Me.TabPage13.Text = "05" + Me.TabPage13.UseVisualStyleBackColor = True + ' + 'DataGridView12 + ' + Me.DataGridView12.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize + Me.DataGridView12.Dock = System.Windows.Forms.DockStyle.Fill + 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.TabIndex = 1 + ' + 'TabPage14 + ' + 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.TabIndex = 5 + Me.TabPage14.Text = "06" + Me.TabPage14.UseVisualStyleBackColor = True + ' + 'DataGridView13 + ' + Me.DataGridView13.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize + Me.DataGridView13.Dock = System.Windows.Forms.DockStyle.Fill + 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.TabIndex = 1 + ' + 'TabPage15 + ' + 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.TabIndex = 6 + Me.TabPage15.Text = "07" + Me.TabPage15.UseVisualStyleBackColor = True + ' + 'DataGridView14 + ' + Me.DataGridView14.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize + Me.DataGridView14.Dock = System.Windows.Forms.DockStyle.Fill + 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.TabIndex = 1 + ' + 'TabPage16 + ' + 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.TabIndex = 7 + Me.TabPage16.Text = "08" + Me.TabPage16.UseVisualStyleBackColor = True + ' + 'DataGridView15 + ' + Me.DataGridView15.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize + Me.DataGridView15.Dock = System.Windows.Forms.DockStyle.Fill + 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.TabIndex = 1 + ' + 'TabPage17 + ' + 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.TabIndex = 8 + Me.TabPage17.Text = "09" + Me.TabPage17.UseVisualStyleBackColor = True + ' + 'DataGridView16 + ' + Me.DataGridView16.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize + Me.DataGridView16.Dock = System.Windows.Forms.DockStyle.Fill + 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.TabIndex = 1 + ' + 'TabPage18 + ' + 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.TabIndex = 9 + Me.TabPage18.Text = "10" + Me.TabPage18.UseVisualStyleBackColor = True + ' + 'DataGridView17 + ' + Me.DataGridView17.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize + Me.DataGridView17.Dock = System.Windows.Forms.DockStyle.Fill + 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.TabIndex = 1 + ' + 'TabPage19 + ' + 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.TabIndex = 10 + Me.TabPage19.Text = "11" + Me.TabPage19.UseVisualStyleBackColor = True + ' + 'DataGridView18 + ' + Me.DataGridView18.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize + Me.DataGridView18.Dock = System.Windows.Forms.DockStyle.Fill + 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.TabIndex = 1 + ' + 'TabPage20 + ' + 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.TabIndex = 11 + Me.TabPage20.Text = "12" + Me.TabPage20.UseVisualStyleBackColor = True + ' + 'DataGridView19 + ' + Me.DataGridView19.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize + Me.DataGridView19.Dock = System.Windows.Forms.DockStyle.Fill + 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.TabIndex = 1 + ' + 'TabPage8 + ' + 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.TabIndex = 7 + Me.TabPage8.Text = "생산에너지" + Me.TabPage8.UseVisualStyleBackColor = True + ' + 'DataGridView8 + ' + Me.DataGridView8.AllowUserToAddRows = False + Me.DataGridView8.AllowUserToDeleteRows = False + Me.DataGridView8.AllowUserToResizeRows = False + 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.DataSource = Me.bs_생산E + Me.DataGridView8.Dock = System.Windows.Forms.DockStyle.Fill + Me.DataGridView8.Location = New System.Drawing.Point(0, 0) + Me.DataGridView8.Name = "DataGridView8" + Me.DataGridView8.ReadOnly = True + 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.TabIndex = 16 + ' + 'MonDataGridViewTextBoxColumn3 + ' + Me.MonDataGridViewTextBoxColumn3.DataPropertyName = "mon" + Me.MonDataGridViewTextBoxColumn3.HeaderText = "mon" + Me.MonDataGridViewTextBoxColumn3.Name = "MonDataGridViewTextBoxColumn3" + Me.MonDataGridViewTextBoxColumn3.ReadOnly = True + Me.MonDataGridViewTextBoxColumn3.Width = 58 + ' + '전력태양광DataGridViewTextBoxColumn + ' + Me.전력태양광DataGridViewTextBoxColumn.DataPropertyName = "전력태양광" + Me.전력태양광DataGridViewTextBoxColumn.HeaderText = "전력태양광" + Me.전력태양광DataGridViewTextBoxColumn.Name = "전력태양광DataGridViewTextBoxColumn" + Me.전력태양광DataGridViewTextBoxColumn.ReadOnly = True + Me.전력태양광DataGridViewTextBoxColumn.Width = 76 + ' + '전력열병합DataGridViewTextBoxColumn + ' + Me.전력열병합DataGridViewTextBoxColumn.DataPropertyName = "전력열병합" + Me.전력열병합DataGridViewTextBoxColumn.HeaderText = "전력열병합" + Me.전력열병합DataGridViewTextBoxColumn.Name = "전력열병합DataGridViewTextBoxColumn" + Me.전력열병합DataGridViewTextBoxColumn.ReadOnly = True + Me.전력열병합DataGridViewTextBoxColumn.Width = 76 + ' + '생산량태양열DataGridViewTextBoxColumn + ' + Me.생산량태양열DataGridViewTextBoxColumn.DataPropertyName = "생산량태양열" + Me.생산량태양열DataGridViewTextBoxColumn.HeaderText = "생산량태양열" + Me.생산량태양열DataGridViewTextBoxColumn.Name = "생산량태양열DataGridViewTextBoxColumn" + Me.생산량태양열DataGridViewTextBoxColumn.ReadOnly = True + Me.생산량태양열DataGridViewTextBoxColumn.Width = 76 + ' + '생산량지열DataGridViewTextBoxColumn + ' + Me.생산량지열DataGridViewTextBoxColumn.DataPropertyName = "생산량지열" + Me.생산량지열DataGridViewTextBoxColumn.HeaderText = "생산량지열" + Me.생산량지열DataGridViewTextBoxColumn.Name = "생산량지열DataGridViewTextBoxColumn" + Me.생산량지열DataGridViewTextBoxColumn.ReadOnly = True + Me.생산량지열DataGridViewTextBoxColumn.Width = 76 + ' + '면적당생산량태양열DataGridViewTextBoxColumn + ' + Me.면적당생산량태양열DataGridViewTextBoxColumn.DataPropertyName = "면적당생산량태양열" + Me.면적당생산량태양열DataGridViewTextBoxColumn.HeaderText = "면적당생산량태양열" + Me.면적당생산량태양열DataGridViewTextBoxColumn.Name = "면적당생산량태양열DataGridViewTextBoxColumn" + Me.면적당생산량태양열DataGridViewTextBoxColumn.ReadOnly = True + Me.면적당생산량태양열DataGridViewTextBoxColumn.Width = 99 + ' + '면적당생산량지열DataGridViewTextBoxColumn + ' + Me.면적당생산량지열DataGridViewTextBoxColumn.DataPropertyName = "면적당생산량지열" + Me.면적당생산량지열DataGridViewTextBoxColumn.HeaderText = "면적당생산량지열" + Me.면적당생산량지열DataGridViewTextBoxColumn.Name = "면적당생산량지열DataGridViewTextBoxColumn" + 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.Controls.Add(Me.TabControl1) + Me.Controls.Add(Me.bn_all) + Me.Controls.Add(Me.StatusStrip1) + Me.Font = New System.Drawing.Font("돋움", 9.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedDialog + Me.Name = "Frm_RepResult_Admin" + Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen + Me.Text = "계산결과 데이터" + CType(Me.DSR, 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.bsmain, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.DataGridView1, System.ComponentModel.ISupportInitialize).EndInit() + Me.TabControl1.ResumeLayout(False) + Me.TabPage1.ResumeLayout(False) + Me.TabPage2.ResumeLayout(False) + CType(Me.DataGridView2, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.bs_max, System.ComponentModel.ISupportInitialize).EndInit() + Me.TabPage3.ResumeLayout(False) + CType(Me.DataGridView3, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.bs_면적, System.ComponentModel.ISupportInitialize).EndInit() + Me.TabPage5.ResumeLayout(False) + CType(Me.DataGridView5, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.bs_소요량, System.ComponentModel.ISupportInitialize).EndInit() + Me.TabPage6.ResumeLayout(False) + CType(Me.DataGridView6, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.bs_1차소요량, System.ComponentModel.ISupportInitialize).EndInit() + Me.TabPage7.ResumeLayout(False) + Me.TabControl2.ResumeLayout(False) + Me.TabPage9.ResumeLayout(False) + CType(Me.DataGridView7, System.ComponentModel.ISupportInitialize).EndInit() + Me.TabPage10.ResumeLayout(False) + CType(Me.DataGridView9, System.ComponentModel.ISupportInitialize).EndInit() + Me.TabPage11.ResumeLayout(False) + CType(Me.DataGridView10, System.ComponentModel.ISupportInitialize).EndInit() + Me.TabPage12.ResumeLayout(False) + CType(Me.DataGridView11, System.ComponentModel.ISupportInitialize).EndInit() + Me.TabPage13.ResumeLayout(False) + CType(Me.DataGridView12, System.ComponentModel.ISupportInitialize).EndInit() + Me.TabPage14.ResumeLayout(False) + CType(Me.DataGridView13, System.ComponentModel.ISupportInitialize).EndInit() + Me.TabPage15.ResumeLayout(False) + CType(Me.DataGridView14, System.ComponentModel.ISupportInitialize).EndInit() + Me.TabPage16.ResumeLayout(False) + CType(Me.DataGridView15, System.ComponentModel.ISupportInitialize).EndInit() + Me.TabPage17.ResumeLayout(False) + CType(Me.DataGridView16, System.ComponentModel.ISupportInitialize).EndInit() + Me.TabPage18.ResumeLayout(False) + CType(Me.DataGridView17, System.ComponentModel.ISupportInitialize).EndInit() + Me.TabPage19.ResumeLayout(False) + CType(Me.DataGridView18, System.ComponentModel.ISupportInitialize).EndInit() + Me.TabPage20.ResumeLayout(False) + CType(Me.DataGridView19, System.ComponentModel.ISupportInitialize).EndInit() + Me.TabPage8.ResumeLayout(False) + CType(Me.DataGridView8, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.bs_생산E, System.ComponentModel.ISupportInitialize).EndInit() + Me.ResumeLayout(False) + Me.PerformLayout() + + End Sub + Friend WithEvents ToolStripButton49 As System.Windows.Forms.ToolStripButton + Friend WithEvents ToolStripButton44 As System.Windows.Forms.ToolStripButton + Friend WithEvents ToolStripButton48 As System.Windows.Forms.ToolStripButton + Friend WithEvents ToolStripButton50 As System.Windows.Forms.ToolStripButton + Friend WithEvents ToolStripButton45 As System.Windows.Forms.ToolStripButton + Friend WithEvents ToolStripButton47 As System.Windows.Forms.ToolStripButton + Friend WithEvents ToolStripButton46 As System.Windows.Forms.ToolStripButton + Friend WithEvents ToolStripSeparator26 As System.Windows.Forms.ToolStripSeparator + Friend WithEvents ToolStripTextBox6 As System.Windows.Forms.ToolStripTextBox + Friend WithEvents ToolStripSeparator27 As System.Windows.Forms.ToolStripSeparator + Friend WithEvents bn_all As System.Windows.Forms.BindingNavigator + Friend WithEvents ToolStripLabel6 As System.Windows.Forms.ToolStripLabel + Friend WithEvents ToolStripSeparator25 As System.Windows.Forms.ToolStripSeparator + Friend WithEvents ToolStripSeparator28 As System.Windows.Forms.ToolStripSeparator + Friend WithEvents ToolStripButton51 As System.Windows.Forms.ToolStripButton + Friend WithEvents StatusStrip1 As System.Windows.Forms.StatusStrip + Friend WithEvents lb_msg As System.Windows.Forms.ToolStripStatusLabel + Friend WithEvents DSR As Eco2Ar.DSR + Friend WithEvents bsmain As System.Windows.Forms.BindingSource + Friend WithEvents DataGridView1 As ArinDv + Friend WithEvents TOTALDataGridViewTextBoxColumn As System.Windows.Forms.DataGridViewTextBoxColumn + Friend WithEvents LTDataGridViewTextBoxColumn As System.Windows.Forms.DataGridViewTextBoxColumn + 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 DataGridView2 As ArinDv + Friend WithEvents bs_max As System.Windows.Forms.BindingSource + Friend WithEvents 최대냉난방부하DataGridViewTextBoxColumn As System.Windows.Forms.DataGridViewTextBoxColumn + Friend WithEvents TabPage3 As System.Windows.Forms.TabPage + Friend WithEvents TabPage5 As System.Windows.Forms.TabPage + Friend WithEvents TabPage6 As System.Windows.Forms.TabPage + Friend WithEvents TabPage7 As System.Windows.Forms.TabPage + Friend WithEvents TabPage8 As System.Windows.Forms.TabPage + Friend WithEvents bs_면적 As System.Windows.Forms.BindingSource + Friend WithEvents bs_소요량 As System.Windows.Forms.BindingSource + Friend WithEvents bs_1차소요량 As System.Windows.Forms.BindingSource + Friend WithEvents bs_생산E As System.Windows.Forms.BindingSource + Friend WithEvents DataGridView3 As ArinDv + Friend WithEvents DataGridView5 As ArinDv + Friend WithEvents DataGridView6 As ArinDv + Friend WithEvents DataGridView8 As ArinDv + Friend WithEvents TabControl2 As System.Windows.Forms.TabControl + Friend WithEvents TabPage9 As System.Windows.Forms.TabPage + Friend WithEvents TabPage10 As System.Windows.Forms.TabPage + Friend WithEvents TabPage11 As System.Windows.Forms.TabPage + Friend WithEvents TabPage12 As System.Windows.Forms.TabPage + Friend WithEvents TabPage13 As System.Windows.Forms.TabPage + Friend WithEvents TabPage14 As System.Windows.Forms.TabPage + Friend WithEvents TabPage15 As System.Windows.Forms.TabPage + Friend WithEvents TabPage16 As System.Windows.Forms.TabPage + Friend WithEvents TabPage17 As System.Windows.Forms.TabPage + Friend WithEvents TabPage18 As System.Windows.Forms.TabPage + Friend WithEvents TabPage19 As System.Windows.Forms.TabPage + Friend WithEvents TabPage20 As System.Windows.Forms.TabPage + Friend WithEvents DataGridView7 As ArinDv + Friend WithEvents DataGridView9 As ArinDv + Friend WithEvents DataGridView10 As ArinDv + Friend WithEvents DataGridView11 As ArinDv + Friend WithEvents DataGridView12 As ArinDv + Friend WithEvents DataGridView13 As ArinDv + Friend WithEvents DataGridView14 As ArinDv + Friend WithEvents DataGridView15 As ArinDv + Friend WithEvents DataGridView16 As ArinDv + Friend WithEvents DataGridView17 As ArinDv + Friend WithEvents DataGridView18 As ArinDv + Friend WithEvents DataGridView19 As ArinDv + Friend WithEvents HDataGridViewTextBoxColumn As System.Windows.Forms.DataGridViewTextBoxColumn + Friend WithEvents CDataGridViewTextBoxColumn As System.Windows.Forms.DataGridViewTextBoxColumn + Friend WithEvents LDataGridViewTextBoxColumn As System.Windows.Forms.DataGridViewTextBoxColumn + Friend WithEvents WDataGridViewTextBoxColumn As System.Windows.Forms.DataGridViewTextBoxColumn + Friend WithEvents VDataGridViewTextBoxColumn As System.Windows.Forms.DataGridViewTextBoxColumn + Friend WithEvents ZoneDataGridViewTextBoxColumn 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 최대가습성능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 MonDataGridViewTextBoxColumn1 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 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 + Friend WithEvents 냉방면적DataGridViewTextBoxColumn1 As System.Windows.Forms.DataGridViewTextBoxColumn + Friend WithEvents 급탕면적DataGridViewTextBoxColumn1 As System.Windows.Forms.DataGridViewTextBoxColumn + Friend WithEvents 조명소요량DataGridViewTextBoxColumn As System.Windows.Forms.DataGridViewTextBoxColumn + Friend WithEvents 조명전력DataGridViewTextBoxColumn1 As System.Windows.Forms.DataGridViewTextBoxColumn + Friend WithEvents 조명면적DataGridViewTextBoxColumn1 As System.Windows.Forms.DataGridViewTextBoxColumn + Friend WithEvents 환기소요량DataGridViewTextBoxColumn As System.Windows.Forms.DataGridViewTextBoxColumn + Friend WithEvents 환기전력DataGridViewTextBoxColumn1 As System.Windows.Forms.DataGridViewTextBoxColumn + Friend WithEvents 환기면적DataGridViewTextBoxColumn1 As System.Windows.Forms.DataGridViewTextBoxColumn + Friend WithEvents MonDataGridViewTextBoxColumn2 As System.Windows.Forms.DataGridViewTextBoxColumn + Friend WithEvents 난방등유DataGridViewTextBoxColumn1 As System.Windows.Forms.DataGridViewTextBoxColumn + Friend WithEvents 난방LNGDataGridViewTextBoxColumn1 As System.Windows.Forms.DataGridViewTextBoxColumn + Friend WithEvents 난방LPGDataGridViewTextBoxColumn1 As System.Windows.Forms.DataGridViewTextBoxColumn + Friend WithEvents 난방지역DataGridViewTextBoxColumn1 As System.Windows.Forms.DataGridViewTextBoxColumn + Friend WithEvents 난방전력DataGridViewTextBoxColumn1 As System.Windows.Forms.DataGridViewTextBoxColumn + Friend WithEvents 냉방등유DataGridViewTextBoxColumn1 As System.Windows.Forms.DataGridViewTextBoxColumn + Friend WithEvents 냉방LNGDataGridViewTextBoxColumn1 As System.Windows.Forms.DataGridViewTextBoxColumn + Friend WithEvents 냉방LPGDataGridViewTextBoxColumn1 As System.Windows.Forms.DataGridViewTextBoxColumn + Friend WithEvents 냉방지역DataGridViewTextBoxColumn1 As System.Windows.Forms.DataGridViewTextBoxColumn + Friend WithEvents 냉방지역2DataGridViewTextBoxColumn As System.Windows.Forms.DataGridViewTextBoxColumn + Friend WithEvents 냉방전력DataGridViewTextBoxColumn1 As System.Windows.Forms.DataGridViewTextBoxColumn + Friend WithEvents 급탕등유DataGridViewTextBoxColumn1 As System.Windows.Forms.DataGridViewTextBoxColumn + Friend WithEvents 급탕LNGDataGridViewTextBoxColumn1 As System.Windows.Forms.DataGridViewTextBoxColumn + Friend WithEvents 급탕LPGDataGridViewTextBoxColumn1 As System.Windows.Forms.DataGridViewTextBoxColumn + Friend WithEvents 급탕지역DataGridViewTextBoxColumn1 As System.Windows.Forms.DataGridViewTextBoxColumn + Friend WithEvents 급탕전력DataGridViewTextBoxColumn1 As System.Windows.Forms.DataGridViewTextBoxColumn + Friend WithEvents CodeDataGridViewTextBoxColumn As System.Windows.Forms.DataGridViewTextBoxColumn + Friend WithEvents DescDataGridViewTextBoxColumn As System.Windows.Forms.DataGridViewTextBoxColumn + Friend WithEvents GRPDataGridViewTextBoxColumn As System.Windows.Forms.DataGridViewTextBoxColumn + Friend WithEvents UNITDataGridViewTextBoxColumn As System.Windows.Forms.DataGridViewTextBoxColumn + Friend WithEvents SIGNDataGridViewTextBoxColumn As System.Windows.Forms.DataGridViewTextBoxColumn + Friend WithEvents EQDataGridViewTextBoxColumn As System.Windows.Forms.DataGridViewTextBoxColumn + Friend WithEvents F As System.Windows.Forms.DataGridViewTextBoxColumn + Friend WithEvents M00 As System.Windows.Forms.DataGridViewTextBoxColumn + Friend WithEvents M01DataGridViewTextBoxColumn As System.Windows.Forms.DataGridViewTextBoxColumn + Friend WithEvents M02DataGridViewTextBoxColumn As System.Windows.Forms.DataGridViewTextBoxColumn + Friend WithEvents M03DataGridViewTextBoxColumn As System.Windows.Forms.DataGridViewTextBoxColumn + Friend WithEvents M04DataGridViewTextBoxColumn As System.Windows.Forms.DataGridViewTextBoxColumn + Friend WithEvents M05DataGridViewTextBoxColumn As System.Windows.Forms.DataGridViewTextBoxColumn + Friend WithEvents M06DataGridViewTextBoxColumn As System.Windows.Forms.DataGridViewTextBoxColumn + Friend WithEvents M07DataGridViewTextBoxColumn As System.Windows.Forms.DataGridViewTextBoxColumn + Friend WithEvents M08DataGridViewTextBoxColumn As System.Windows.Forms.DataGridViewTextBoxColumn + Friend WithEvents M09DataGridViewTextBoxColumn As System.Windows.Forms.DataGridViewTextBoxColumn + Friend WithEvents M10DataGridViewTextBoxColumn As System.Windows.Forms.DataGridViewTextBoxColumn + Friend WithEvents M11DataGridViewTextBoxColumn As System.Windows.Forms.DataGridViewTextBoxColumn + Friend WithEvents M12DataGridViewTextBoxColumn 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 new file mode 100644 index 0000000..fe0eb8d --- /dev/null +++ b/ArinWarev1/Forms_Basic/Frm_RepResult_Admin.resx @@ -0,0 +1,256 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + 647, 17 + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAACBjSFJNAAB6 + JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAAACXBIWXMAAA60AAAOtAGxNnosAAABb0lE + QVQ4T7WQTSjDYRzHd1XeSu3iglo5IJO8hGQypLHIhMjMJAcOi4R2cXAg5UIOuEgOJCXlROI0b/Pamlp/ + LVLaBf+4PB9jqLW/seJ7eep5vt/P7/v8VH8iXCfQbQTHDh9XkYmVeURnFcKsh631sBC8HliaCfawtgC9 + JkS7HtFRAXMTipC3hsJcBiM9oe+cOgKQumxEYwHYmoJMYsiKMOXCpD1sQxWL04jK1HcQw1Zwn8FYfwDq + Pz9s4YXHBc3FgS8ZsxD1edDX8rvwp9jf9VfOQxjSoUYbYfhGgsZCyElA1sbzoI2F2uxf1r+5BlM+FCXi + sxjg4uh9uXdpfsjy7A8LvL+DVh2PJUm4S9Px7W1/BRi14dTEIJ8cKEN4eYZBC+iSOU5T49tYDTHelmcg + tVUje69DIexuIueqcaZEIXU1gPykOGlHE4fsdCgApkaQUqNx6zNBulKu6Zds74bzQwXApRPGB+Bw79vw + P0ilegWKIwMchCbSyQAAAABJRU5ErkJggg== + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAACBjSFJNAAB6 + JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAAACXBIWXMAAA60AAAOtAGxNnosAAABKklE + 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 + JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAAACXBIWXMAAA60AAAOtAGxNnosAAABSklE + 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 + JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAAACXBIWXMAAA60AAAOtAGxNnosAAACL0lE + QVQ4T62S3UvTURjHf/9C990EXXRbU2M4F6vBr1xDWTYMK8JefpFmabpMExUr06j5BtkKl05arSbhpCJf + wBQpEWUqWZq5oiUONcUmgsHX85z98riKLqIHnpvD+XzOeV6k/xLPn4VB6WtdQot3EQ/d82hqDOGuYxp1 + tV9gvxXA9fJJlJaMo7DgLfJyR3D+nB8qLkkEdnUCtTUr+Fssr6zClNqFQ6lPeaq4JHmfLHBBZcU39erv + QXBofhm7LC+g0SiwHvQIgfvBHBeUlnxVr0fHT/hjcAExZh8KLk3hgKVZCJwNM1xw0fZBRURshIcnQtgm + e5GTPYbkJKcQ1N8OckHW2REVi8SvcJ8/iM0GNxRlAGazQwhqqj9zgXJqQEX/DHf2f8Km+EYcPvIKiYl1 + QnCjcgod7WCjBI4dfwPr0V7ebWoY1UzfppcjcDdSrC8hy3YhuFI2gTYf2A4Aza4fbO7fUX5tljeVGkY1 + Z2b41+H9ya0wGiuE4HLhGDyPgPvOVbY4YZjSsqPSkm5D2pmiCJzE4H0eGAxlQmDLG2UwUF0V5i8TROcx + OhmD72cwOjkLJfcq9phaOKzb7YJeXyQEtJaOO1j/NgkIPp1/E+8CcwhML+JCsR2xBheDmxCbcA+6+Hwh + yMwYYnUvcXir0YMtO2Q8buuBr70PHd396H09iL1mKzT6BsQxeLu2HlptTrTg5Ikevp60YbQkNGcaFXWb + GkY106uUBO+MyxKCfw9JWgNsaDprRvk1ewAAAABJRU5ErkJggg== + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAACBjSFJNAAB6 + JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAAACXBIWXMAAA60AAAOtAGxNnosAAAAtklE + 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 + JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAAACXBIWXMAAA60AAAOtAGxNnosAAABLElE + 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 + JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAAACXBIWXMAAA60AAAOtAGxNnosAAAAo0lE + 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== + + + + 445, 17 + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8 + YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAJ2SURBVDhPjVNdSJNhFH5bXdmFRFFeREQXRfQDJRlWZLra + mrOIDCEqQmrlTKkoIaHZoEKK1sAVS1dYiJCaCZUkKCRL20WmrXJ61U0UXhSMuen+n97n3adkdtGBw3u+ + c57nOed83/uJv+2BEIZGIRzy9MkzSNdi5gwabL65hVgt/Y4ETn51XEfkvRfpnz+UM2aONWKI1WgZY0IW + WwKXK5D8/A742A/0tQKvmjLOeOSNqhFD7BwRqgYuWgC/F8nuZnwqP4y2lSvgWajDQPFuTD26AXS6gF4p + 5H8LYslRZG3nyaSvB4nO+/CZC9jB6RFi/TUhFsnY/qGsGOl2Z0ak5wkSvtdqHfVOZOAYr6lAqr0B/qMm + RZaeRXF51vlK9iDW/wLpLjeij+uBZw1IyUbjlyzEOjiBb6L2FFLuWrTlLAU7z5AH9+1ArLcDqZcPMWY5 + QkJwrPwgkhI7cdUCcgkMTtVbkbh7Hh6dDtrYdQOF2xDtbpWTuRA4YcY9IX7JvfOer8pBUmIjt6qUoBKI + 2E4icdMCb/4GJu2DBVsw3dWMZMttjJbpFVlOlktxNolLLDlKgGN8LzcibjuGUPUBDOlzMd3RiITHjtFD + u2bJXIvrtS3LltjjIGdmBcdw4SbELpQgWmVC3G1D3HUFo+a8OWSJy5LuHCnajFhNKcghd/Yzhq1GRCsN + iFabELLuV+NxZzW27EzywNY1iMgm4Uoj65nPSOOlGMpfi+g5TUSCvug3onN5Npp0C/B0yWIM71yHyNm9 + qk7s7EWiyQd1lVkIn8mA/uVhi16RiSVHo2eMCapyNHb7VrododNFyhkzxxox88h/mvZO/vN3FuI3yXDJ + RlfZIFMAAAAASUVORK5CYII= + + + + 529, 17 + + + 722, 17 + + + True + + + True + + + 17, 56 + + + 17, 17 + + + 111, 17 + + + 218, 17 + + + 344, 17 + + \ No newline at end of file diff --git a/ArinWarev1/Forms_Basic/Frm_RepResult_Admin.vb b/ArinWarev1/Forms_Basic/Frm_RepResult_Admin.vb new file mode 100644 index 0000000..f880372 --- /dev/null +++ b/ArinWarev1/Forms_Basic/Frm_RepResult_Admin.vb @@ -0,0 +1,58 @@ +Public Class Frm_RepResult_Admin + Public Overrides Function AcceptChanged() As Boolean + + End Function + Public Overrides Function RejectChanged() As Boolean + + End Function + Public Overrides Function HasChanged() As Boolean + + End Function + Private Sub DataGridView1_CellFormatting(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewCellFormattingEventArgs) Handles DataGridView1.CellFormatting + Select Case Me.DataGridView1.Rows(e.RowIndex).Cells(2).Value.ToString + Case "MT" + Me.DataGridView1.Rows(e.RowIndex).DefaultCellStyle.ForeColor = Color.Green + Case "TT" + Me.DataGridView1.Rows(e.RowIndex).DefaultCellStyle.ForeColor = Color.Blue + Case "ST" + Me.DataGridView1.Rows(e.RowIndex).DefaultCellStyle.ForeColor = Color.Tomato + Case "SL" + Me.DataGridView1.Rows(e.RowIndex).DefaultCellStyle.ForeColor = Color.DarkMagenta + Case Else + Me.DataGridView1.Rows(e.RowIndex).DefaultCellStyle.ForeColor = Color.Black + End Select + + End Sub + + Private Sub Frm_RepResult_Admin_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load + Me.bsmain.DataSource = DSETR1 + Me.bs_1차소요량.DataSource = DSETR1 + Me.bs_max.DataSource = DSETR1 + Me.bs_면적.DataSource = DSETR1 + Me.bs_생산E.DataSource = DSETR1 + Me.bs_소요량.DataSource = DSETR1 + + Dim dv() As DataGridView = New DataGridView() {Me.DataGridView7, _ + Me.DataGridView9, _ + Me.DataGridView10, _ + Me.DataGridView11, _ + Me.DataGridView12, _ + Me.DataGridView13, _ + Me.DataGridView14, _ + Me.DataGridView15, _ + Me.DataGridView16, _ + Me.DataGridView17, _ + Me.DataGridView18, _ + Me.DataGridView19} + For i As Integer = 1 To 12 + Dim Bs As New BindingSource + Bs.DataSource = DSETR1 + Bs.DataMember = "월별에너지분석" + Bs.Filter = "월='M" & Format(i, "00") & "'" + dv(i - 1).DataSource = Bs + Next + ' Me.bs.DataSource = DSETR + End Sub + +End Class + diff --git a/ArinWarev1/Forms_Basic/Frm_Warning.Designer.vb b/ArinWarev1/Forms_Basic/Frm_Warning.Designer.vb new file mode 100644 index 0000000..36bd323 --- /dev/null +++ b/ArinWarev1/Forms_Basic/Frm_Warning.Designer.vb @@ -0,0 +1,84 @@ + _ +Partial Class Frm_Warning + Inherits CForm + + 'Form은 Dispose를 재정의하여 구성 요소 목록을 정리합니다. + _ + Protected Overrides Sub Dispose(ByVal disposing As Boolean) + Try + If disposing AndAlso components IsNot Nothing Then + components.Dispose() + End If + Finally + MyBase.Dispose(disposing) + End Try + End Sub + + 'Windows Form 디자이너에 필요합니다. + Private components As System.ComponentModel.IContainer + + '참고: 다음 프로시저는 Windows Form 디자이너에 필요합니다. + '수정하려면 Windows Form 디자이너를 사용하십시오. + '코드 편집기를 사용하여 수정하지 마십시오. + _ + Private Sub InitializeComponent() + Me.components = New System.ComponentModel.Container() + Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(Frm_Warning)) + Me.Panel1 = New System.Windows.Forms.Panel() + Me.Label1 = New System.Windows.Forms.Label() + Me.Timer1 = New System.Windows.Forms.Timer(Me.components) + Me.Panel1.SuspendLayout() + Me.SuspendLayout() + ' + 'Panel1 + ' + Me.Panel1.BackColor = System.Drawing.Color.White + Me.Panel1.BackgroundImage = CType(resources.GetObject("Panel1.BackgroundImage"), System.Drawing.Image) + Me.Panel1.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Center + Me.Panel1.Controls.Add(Me.Label1) + Me.Panel1.Dock = System.Windows.Forms.DockStyle.Fill + Me.Panel1.Location = New System.Drawing.Point(0, 0) + Me.Panel1.Margin = New System.Windows.Forms.Padding(4) + Me.Panel1.Name = "Panel1" + Me.Panel1.Size = New System.Drawing.Size(273, 146) + Me.Panel1.TabIndex = 0 + ' + 'Label1 + ' + Me.Label1.BackColor = System.Drawing.Color.Transparent + Me.Label1.Font = New System.Drawing.Font("돋움", 9.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.Label1.Location = New System.Drawing.Point(2, 108) + Me.Label1.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0) + Me.Label1.Name = "Label1" + Me.Label1.Size = New System.Drawing.Size(270, 28) + Me.Label1.TabIndex = 0 + Me.Label1.Text = "잠시만 기다려주세요" + Me.Label1.TextAlign = System.Drawing.ContentAlignment.MiddleCenter + ' + 'Timer1 + ' + Me.Timer1.Interval = 20 + ' + 'Frm_Warning + ' + Me.AutoScaleDimensions = New System.Drawing.SizeF(9.0!, 15.0!) + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font + Me.BackColor = System.Drawing.SystemColors.AppWorkspace + Me.ClientSize = New System.Drawing.Size(273, 146) + Me.ControlBox = False + Me.Controls.Add(Me.Panel1) + Me.Font = New System.Drawing.Font("돋움", 11.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedToolWindow + Me.Margin = New System.Windows.Forms.Padding(4) + Me.Name = "Frm_Warning" + Me.StartPosition = System.Windows.Forms.FormStartPosition.Manual + Me.Text = "알림메세지" + Me.TopMost = True + Me.Panel1.ResumeLayout(False) + Me.ResumeLayout(False) + + End Sub + Friend WithEvents Panel1 As System.Windows.Forms.Panel + Friend WithEvents Label1 As System.Windows.Forms.Label + Friend WithEvents Timer1 As System.Windows.Forms.Timer +End Class diff --git a/ArinWarev1/Forms_Basic/Frm_Warning.resx b/ArinWarev1/Forms_Basic/Frm_Warning.resx new file mode 100644 index 0000000..f274735 --- /dev/null +++ b/ArinWarev1/Forms_Basic/Frm_Warning.resx @@ -0,0 +1,176 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + + + iVBORw0KGgoAAAANSUhEUgAAAEAAAABACAYAAACqaXHeAAAABGdBTUEAALGPC/xhBQAAACBjSFJNAAB6 + JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAAACXBIWXMAAAsMAAALDAE/QCLIAAAKo0lE + QVR4XuXZCXBU9R0HcKzXKLCbOyG7icnGHMRAIQnhChC0gBQUaUGoM3Xa2tPOdDpTZ1oPjoBYFeQqgaqQ + GAiQO+QSSAiHCArFoxWqtoooZEM2m919b3ffe7ub5Nfff5OQfdlfyJ7UNsx8xt3v/t///a/3/7+MowBg + RCNDxrhPHXR8/bTP+fosoH7zB9WfoZDhrcDXz3yYr58OfF0OcOWaRVSZW4EMgw1n6Ttc9SRzt/kS9Eht + wFWliyyjygYbGQYb3zDzBcvxJfgR/3V1gqVlMfDVqX9mv91qZBhMONNjuIoHHN3mC9DDVoDwBXQZm8FU + ntbNfqOuCSYyDCa+YXqdcO4pcHz5LEgn0tB46Lq+C4T3fwZ8TXoLdU0wkWGwmMrTk7jKCd0O3R6QTmf1 + DUAa2C4sAoe+BLjK9B5jiVpDXRssZBgsfG3Wv8RPngH7xZ9gx1NlHFfWAvuNr06/Sl0bLGQYDFzt1EV8 + 3dSeLu02kE6muw2A7ex06NIXAV87BbiyBLZDkvUEGhkGmvPYq8zgbf9e51zu0vEUkv3TXwMrw1WkCrfq + WCTDQMOXnTWWYw/3OC4/jx1NHtqpDOjSbgdL83zcD5JfpuoKNDIMJJxJBR5xdseVV8B2ZhrdcRf2j36I + +8ErYCpL7mLXUnUGEhkGEl+bXWc9s7LHfunnILXc70Z0y5LB8dUasJ5ZAXxV6jGqzkAiw0AxVTyQxlWk + dzm+3gDiyQxnZz0hvZ8HjqubcC9IY8diClV3oJBhoHDVEz8XP/wF2D54DMRjSV6xf/pbYNdylanfUHUH + ChkGAleT+Sgu/277F3/EWU2Wdc7cqIG2fQnwWUGcE/vMN2hkZaRTk4GtHL5mco/pYPwPqHsEAhn6Czev + 23HjM9ku/g6k92Zjh1jnBnzx1zhYuTAFJmZNgAlo+YJk+Gyn2q2c7eMVwOowld1vMe5V3U7dy19k6C+u + ZnK+pWlut/3iUyA2J7ppXBUD47OzZWqfi3Ev24LvBriCzEfycBA0G6l7+YsM/WHcqw4xlSZLtk9/j298 + E7EjCW6a1o6DzDlzYOq8eTB1/nzn58bVbADk5QQknfse2D9/BowHNA7DW6oQ6p7+IEN/4MZXaz21uMf2 + wVIQm7AjhI+2qiFv6VKZD7eqyLJiUyJuiE+D5cRiMB1MCvixSIa+MpWmpnPlqXb7pd/gM4xHWtN9pMu7 + 42DOkiUyLKPKMtLpKbgK/gDG/UndnYXjxlP39hUZ+oqrGP+Z8N4ykM7OwYbHD+mrwjiY/cgjMiyjyvaz + fbwShLPLwViSeIW6t6/I0BdcecZSXP52299/DOJRnLmj2PAhfF0UB7mLFslcwYwqe0PLeOe7gfFgereh + MHY51QZfkKG3DMWqO40HkgzS31bgxjcJG8w6M7Rvit0HgGVUWVe2c/NBPP8EGArjzPpd0XdSbfEWGXrL + VJa+ztyQ47CdXwTiETzPh3FtbxzMXLhQ5ipmVFmZowlg/8eTwFVn9XQWqgJyLJKhNwxFseHGfYmCdGEZ + Hl248R3B3XwYrSVqmLFggQzLqLKDSadz8NX6CdC/rrJ1/CUynGqTN8jQG6aDqYcsR3O7xXdzQTis8oh2 + vxqm4TuAK5ZRZd2pQbrwGJgbZvZ0vqlqotrkDTL0lKE4YYJxr0aSzj8CwpE4bFysR64fVMHUhx6SaTvA + OkeXH4xtiLYPHgf9G2pHx/aICVTbPEWGnjIWa/5pPTarRzw+EYS3sXFvj/NIe6kKpsydK9OOg0KVHYp0 + Jg8szXmg3xV7mWqbp8jQE4aipGXG/cmSdDYPGxTjFV1ZLGTn5cmwjCo7JDxqpfOL8UTQdOl3RD5BtdET + ZDgcPILu6tyt1gsnZmFDkkBoxAZ5QV8eC1mzZ8t0YEaVvRnxRCYIJ+aCviCa022OuItq63DIcDiG3Qnr + TKVpNvFkFjYk2mudleNgcm6uTGcFLm2i7E31PQrG/and+p3Rm6i2DocMb0a3LTKqY2eMRTwxtXdTaozy + mqEqBibNmCHDMqrscMTmFBDfmQW6HdFS+5aIKKrNN0OGN6PfqarmKtO6xOZUEBqwET4wVUXDd6dNkzGy + ASDKekI8mQ18ZTrod8Z4fSyS4VA6tsZO7tgeYxVbcNdnM9AQ6ROuJgom5OTIcNW+1yccxrfIk1OgoyDG + ptsWMZlq+1DIcCi6rVEXzdUpPeyGQn2Ez/iaSMjIzpZhGVXWU2xFmutwFeyK/pJq+1DIkNK+Mepx/Q58 + 9pvuxxuG+8V8KALSMzNlWEaV9Rh7FFoyoHO3yo7H4pNUHyhkOJj2xZC7214O01nqEnHp4+5LNcALlreT + YfykSTKWxmSyrFcOx4MV68G/EYy6LRF3U30ZjAwHa3spLL/z9WhRaMS3tbowv1kPJ0PaxIkyVhwUqqx3 + wvEPJg2YilXdnTsjN1N9GYwMXbXmh8RoN4RwlrpYsOINrHgjfwkt0yAlI0OGZVRZrzVEo3i2CgRcBTFU + n1yRoStc/pWGPeEOZ+drQwNCfOf78KdfDQwC+8wyqqxPGmKAK8E3zoKIo1SfXJFhv2urlJnaDUrOeoi4 + iR+E5kwQ330UxPdWgnj2cez8w/j8JpFlfYMroT4SV0G42L4lPJvqWz8yZLDzt2nXKT/hSkKwwv9NfGko + 6LaHf9m+Ofw2qo8MGTKta5Qr2zcpcPaxskNKP/XV4dI4C2YNL0VBzfpoPAIHcie3633XuSsMX47Cfkr1 + kSHD1tWKe7TrFO3mMqykRgmW6l7sM3UTb1mwnqeWqOE+jcZpxYI44Fn9RFl/mSuUoNsSZmzfFHYP1Ve3 + gNHmK17U71BarYcUYKkaC+bKsc7/su/+6W1U/YsREJ+QILP/ucgbv9PXes5SPYB9N7wZ2tWxLWwb1Ve3 + oHW1UqVdrzRaqvo6X9ErEAMg4O4sHkmBqvVJoFKrZQqf1Th/ExrwuCWu9Ub/pPVPHBsI3dYwa/umcNXg + /sq+MLjxHTLuVjjYRXzpmD7Y+Rqs3F84u1JLDp75s2DJg0kQGxvrNG9GIvDNs0A6ju8CbD+grvUCa7u5 + HAegD/tuKg7BQQh1+3+Lsi84+zltG5Qma81YZ8e5A6OdzBVjsGI2CP5jM2w/sxiEM8uhKH8WvLEqF8yn + l4H97KP4mh1HXuMLc3n/5I0Bc1lv+/ExEHQbw6e79vnGh2svKG7T5isvcfvwYuwwtx8732dw5X7Ds9p2 + ag44zq0Ax/kfge2dBzHDFy2qrI8slQMT2D+J/AEFtL8Wevn6qwPH4o0B0K5VPql7TeGcfVPJaDDtu7cX + fmYXswpJVf36njdX1b2srgY1NFhY21wn0TmReH99QYitfXPoL2UD0LpKMVq7VqEzl/UufWPxvf8deweY + XPVNBoeT4TSoYze4zLhsEvvwpTiZ5bgKNoYZ8a/b0QMDsEbxqn6HQmCzZnzrXjAUfTuRg+YltjoMryu7 + dZtCCpwDcO15RXxrvsLEOs9GzrDnnm8vYlC81f+4Xn85lG/bEBo/SrtGUWR4c2xX/3PDH8RBKMSb/R9i + J0P/HmHco+zUrg8tGKVdrbiIwVXpeCqewyMD9reDDYJ2fcj7o2Ym3LH03NNqGIlyE+9YOgr/adDCEUpz + 4z1gpCLDkYQMRxIyHEnIcOSAUf8Bg2gMXEGUQa0AAAAASUVORK5CYII= + + + + 222, 17 + + \ No newline at end of file diff --git a/ArinWarev1/Forms_Basic/Frm_Warning.vb b/ArinWarev1/Forms_Basic/Frm_Warning.vb new file mode 100644 index 0000000..001bf30 --- /dev/null +++ b/ArinWarev1/Forms_Basic/Frm_Warning.vb @@ -0,0 +1,24 @@ +Public Class Frm_Warning + Public Term As Decimal = 0 + Public Second As Decimal = 0 + Dim Perc As Decimal + Public Overrides Function AcceptChanged() As Boolean + + End Function + Public Overrides Function RejectChanged() As Boolean + + End Function + Public Overrides Function HasChanged() As Boolean + + End Function + Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick + Second -= TOSG(Me.Timer1.Interval / 100) '//타이머를 증가 + If Second < 0 Then + Me.Timer1.Enabled = False + Me.Dispose() + Else + Perc = TOSG(1 * Second / Term) + Me.Opacity = Perc + End If + End Sub +End Class \ No newline at end of file diff --git a/ArinWarev1/Forms_Basic/Frm_Work.Designer.vb b/ArinWarev1/Forms_Basic/Frm_Work.Designer.vb new file mode 100644 index 0000000..20a5b23 --- /dev/null +++ b/ArinWarev1/Forms_Basic/Frm_Work.Designer.vb @@ -0,0 +1,94 @@ + _ +Partial Class Frm_Work + Inherits CForm + + 'Form은 Dispose를 재정의하여 구성 요소 목록을 정리합니다. + _ + Protected Overrides Sub Dispose(ByVal disposing As Boolean) + Try + If disposing AndAlso components IsNot Nothing Then + components.Dispose() + End If + Finally + MyBase.Dispose(disposing) + End Try + End Sub + + 'Windows Form 디자이너에 필요합니다. + Private components As System.ComponentModel.IContainer + + '참고: 다음 프로시저는 Windows Form 디자이너에 필요합니다. + '수정하려면 Windows Form 디자이너를 사용하십시오. + '코드 편집기를 사용하여 수정하지 마십시오. + _ + Private Sub InitializeComponent() + Me.components = New System.ComponentModel.Container() + Me.Panel1 = New System.Windows.Forms.Panel() + Me.Label1 = New System.Windows.Forms.Label() + Me.ProgressBar1 = New System.Windows.Forms.ProgressBar() + Me.Timer1 = New System.Windows.Forms.Timer(Me.components) + Me.Panel1.SuspendLayout() + Me.SuspendLayout() + ' + 'Panel1 + ' + Me.Panel1.BackColor = System.Drawing.Color.White + Me.Panel1.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Center + Me.Panel1.Controls.Add(Me.Label1) + Me.Panel1.Controls.Add(Me.ProgressBar1) + Me.Panel1.Dock = System.Windows.Forms.DockStyle.Fill + Me.Panel1.Location = New System.Drawing.Point(0, 0) + Me.Panel1.Margin = New System.Windows.Forms.Padding(4) + Me.Panel1.Name = "Panel1" + Me.Panel1.Size = New System.Drawing.Size(318, 96) + Me.Panel1.TabIndex = 0 + ' + 'Label1 + ' + Me.Label1.BackColor = System.Drawing.Color.Transparent + Me.Label1.Dock = System.Windows.Forms.DockStyle.Fill + Me.Label1.Font = New System.Drawing.Font("돋움", 9.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.Label1.Location = New System.Drawing.Point(0, 0) + Me.Label1.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0) + Me.Label1.Name = "Label1" + Me.Label1.Size = New System.Drawing.Size(318, 78) + Me.Label1.TabIndex = 0 + Me.Label1.Text = "잠시만 기다려주세요" + Me.Label1.TextAlign = System.Drawing.ContentAlignment.MiddleCenter + ' + 'ProgressBar1 + ' + Me.ProgressBar1.Dock = System.Windows.Forms.DockStyle.Bottom + Me.ProgressBar1.Location = New System.Drawing.Point(0, 78) + Me.ProgressBar1.Name = "ProgressBar1" + Me.ProgressBar1.Size = New System.Drawing.Size(318, 18) + Me.ProgressBar1.TabIndex = 1 + ' + 'Timer1 + ' + Me.Timer1.Interval = 1000 + ' + 'Frm_Work + ' + Me.AutoScaleDimensions = New System.Drawing.SizeF(9.0!, 15.0!) + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font + Me.BackColor = System.Drawing.SystemColors.AppWorkspace + Me.ClientSize = New System.Drawing.Size(318, 96) + Me.ControlBox = False + Me.Controls.Add(Me.Panel1) + Me.Font = New System.Drawing.Font("돋움", 11.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedToolWindow + Me.Margin = New System.Windows.Forms.Padding(4) + Me.Name = "Frm_Work" + Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen + Me.Text = "알림메세지" + Me.TransparencyKey = System.Drawing.SystemColors.AppWorkspace + Me.Panel1.ResumeLayout(False) + Me.ResumeLayout(False) + + End Sub + Friend WithEvents Panel1 As System.Windows.Forms.Panel + Friend WithEvents Label1 As System.Windows.Forms.Label + Friend WithEvents ProgressBar1 As System.Windows.Forms.ProgressBar + Friend WithEvents Timer1 As System.Windows.Forms.Timer +End Class diff --git a/ArinWarev1/Forms_Basic/Frm_Work.resx b/ArinWarev1/Forms_Basic/Frm_Work.resx new file mode 100644 index 0000000..2ae5b54 --- /dev/null +++ b/ArinWarev1/Forms_Basic/Frm_Work.resx @@ -0,0 +1,123 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + 109, 17 + + \ No newline at end of file diff --git a/ArinWarev1/Forms_Basic/Frm_Work.vb b/ArinWarev1/Forms_Basic/Frm_Work.vb new file mode 100644 index 0000000..91a251f --- /dev/null +++ b/ArinWarev1/Forms_Basic/Frm_Work.vb @@ -0,0 +1,32 @@ +Public Class Frm_Work + + Public Sub New() + + ' 이 호출은 디자이너에 필요합니다. + InitializeComponent() + + ' InitializeComponent() 호출 뒤에 초기화 코드를 추가하십시오. + + End Sub + + + Public Sub New(title As String) + + ' 이 호출은 디자이너에 필요합니다. + InitializeComponent() + Me.Text = title + + ' InitializeComponent() 호출 뒤에 초기화 코드를 추가하십시오. + + End Sub + + Public Overrides Function AcceptChanged() As Boolean + + End Function + Public Overrides Function RejectChanged() As Boolean + + End Function + Public Overrides Function HasChanged() As Boolean + + End Function +End Class \ No newline at end of file diff --git a/ArinWarev1/Forms_Basic/Frm_import.Designer.vb b/ArinWarev1/Forms_Basic/Frm_import.Designer.vb new file mode 100644 index 0000000..53377a7 --- /dev/null +++ b/ArinWarev1/Forms_Basic/Frm_import.Designer.vb @@ -0,0 +1,173 @@ + _ +Partial Class Frm_Import + Inherits System.Windows.Forms.Form + + 'Form은 Dispose를 재정의하여 구성 요소 목록을 정리합니다. + _ + Protected Overrides Sub Dispose(ByVal disposing As Boolean) + Try + If disposing AndAlso components IsNot Nothing Then + components.Dispose() + End If + Finally + MyBase.Dispose(disposing) + End Try + End Sub + + 'Windows Form 디자이너에 필요합니다. + Private components As System.ComponentModel.IContainer + + '참고: 다음 프로시저는 Windows Form 디자이너에 필요합니다. + '수정하려면 Windows Form 디자이너를 사용하십시오. + '코드 편집기를 사용하여 수정하지 마십시오. + _ + Private Sub InitializeComponent() + Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(Frm_Import)) + Me.chk_deldata = New System.Windows.Forms.CheckBox() + Me.ListView1 = New System.Windows.Forms.ListView() + Me.ColumnHeader1 = CType(New System.Windows.Forms.ColumnHeader(), System.Windows.Forms.ColumnHeader) + Me.ColumnHeader2 = CType(New System.Windows.Forms.ColumnHeader(), System.Windows.Forms.ColumnHeader) + Me.ColumnHeader3 = CType(New System.Windows.Forms.ColumnHeader(), System.Windows.Forms.ColumnHeader) + Me.tb_file = New System.Windows.Forms.TextBox() + Me.rado = New System.Windows.Forms.RadioButton() + Me.radi = New System.Windows.Forms.RadioButton() + Me.Button2 = New System.Windows.Forms.Button() + Me.Button1 = New System.Windows.Forms.Button() + Me.Panel1 = New System.Windows.Forms.Panel() + Me.Label2 = New System.Windows.Forms.Label() + Me.Label1 = New System.Windows.Forms.Label() + Me.PictureBox1 = New System.Windows.Forms.PictureBox() + Me.Panel1.SuspendLayout() + CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit() + Me.SuspendLayout() + ' + 'chk_deldata + ' + resources.ApplyResources(Me.chk_deldata, "chk_deldata") + Me.chk_deldata.Checked = True + Me.chk_deldata.CheckState = System.Windows.Forms.CheckState.Checked + Me.chk_deldata.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(64, Byte), Integer)) + Me.chk_deldata.Name = "chk_deldata" + Me.chk_deldata.UseVisualStyleBackColor = True + ' + 'ListView1 + ' + Me.ListView1.Activation = System.Windows.Forms.ItemActivation.OneClick + Me.ListView1.CheckBoxes = True + Me.ListView1.Columns.AddRange(New System.Windows.Forms.ColumnHeader() {Me.ColumnHeader1, Me.ColumnHeader2, Me.ColumnHeader3}) + Me.ListView1.FullRowSelect = True + Me.ListView1.HeaderStyle = System.Windows.Forms.ColumnHeaderStyle.None + Me.ListView1.HotTracking = True + Me.ListView1.HoverSelection = True + resources.ApplyResources(Me.ListView1, "ListView1") + Me.ListView1.Name = "ListView1" + Me.ListView1.UseCompatibleStateImageBehavior = False + Me.ListView1.View = System.Windows.Forms.View.Details + ' + 'ColumnHeader1 + ' + resources.ApplyResources(Me.ColumnHeader1, "ColumnHeader1") + ' + 'ColumnHeader2 + ' + resources.ApplyResources(Me.ColumnHeader2, "ColumnHeader2") + ' + 'ColumnHeader3 + ' + resources.ApplyResources(Me.ColumnHeader3, "ColumnHeader3") + ' + 'tb_file + ' + Me.tb_file.BackColor = System.Drawing.Color.FromArgb(CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer)) + resources.ApplyResources(Me.tb_file, "tb_file") + Me.tb_file.Name = "tb_file" + ' + 'rado + ' + resources.ApplyResources(Me.rado, "rado") + Me.rado.BackColor = System.Drawing.Color.Transparent + Me.rado.Checked = True + Me.rado.Name = "rado" + Me.rado.TabStop = True + Me.rado.UseVisualStyleBackColor = False + ' + 'radi + ' + resources.ApplyResources(Me.radi, "radi") + Me.radi.BackColor = System.Drawing.Color.Transparent + Me.radi.Name = "radi" + Me.radi.UseVisualStyleBackColor = False + ' + 'Button2 + ' + resources.ApplyResources(Me.Button2, "Button2") + Me.Button2.Name = "Button2" + Me.Button2.UseVisualStyleBackColor = True + ' + 'Button1 + ' + resources.ApplyResources(Me.Button1, "Button1") + Me.Button1.Name = "Button1" + Me.Button1.UseVisualStyleBackColor = True + ' + 'Panel1 + ' + Me.Panel1.BackColor = System.Drawing.Color.Transparent + resources.ApplyResources(Me.Panel1, "Panel1") + Me.Panel1.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.Panel1.Controls.Add(Me.chk_deldata) + Me.Panel1.Controls.Add(Me.ListView1) + Me.Panel1.Controls.Add(Me.tb_file) + Me.Panel1.Controls.Add(Me.rado) + Me.Panel1.Controls.Add(Me.radi) + Me.Panel1.Controls.Add(Me.Button2) + Me.Panel1.Controls.Add(Me.Button1) + Me.Panel1.Controls.Add(Me.Label2) + Me.Panel1.Controls.Add(Me.Label1) + Me.Panel1.Controls.Add(Me.PictureBox1) + Me.Panel1.Name = "Panel1" + ' + 'Label2 + ' + resources.ApplyResources(Me.Label2, "Label2") + Me.Label2.Name = "Label2" + ' + 'Label1 + ' + resources.ApplyResources(Me.Label1, "Label1") + Me.Label1.Name = "Label1" + ' + 'PictureBox1 + ' + resources.ApplyResources(Me.PictureBox1, "PictureBox1") + Me.PictureBox1.Name = "PictureBox1" + Me.PictureBox1.TabStop = False + ' + 'Frm_Import + ' + resources.ApplyResources(Me, "$this") + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font + Me.BackColor = System.Drawing.SystemColors.AppWorkspace + Me.Controls.Add(Me.Panel1) + Me.Name = "Frm_Import" + Me.Panel1.ResumeLayout(False) + Me.Panel1.PerformLayout() + CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).EndInit() + Me.ResumeLayout(False) + + End Sub + Friend WithEvents chk_deldata As System.Windows.Forms.CheckBox + Friend WithEvents ListView1 As System.Windows.Forms.ListView + Friend WithEvents ColumnHeader1 As System.Windows.Forms.ColumnHeader + Friend WithEvents ColumnHeader2 As System.Windows.Forms.ColumnHeader + Friend WithEvents ColumnHeader3 As System.Windows.Forms.ColumnHeader + Friend WithEvents tb_file As System.Windows.Forms.TextBox + Friend WithEvents rado As System.Windows.Forms.RadioButton + Friend WithEvents radi As System.Windows.Forms.RadioButton + Friend WithEvents Button2 As System.Windows.Forms.Button + Friend WithEvents Button1 As System.Windows.Forms.Button + Friend WithEvents Panel1 As System.Windows.Forms.Panel + Friend WithEvents Label2 As System.Windows.Forms.Label + Friend WithEvents Label1 As System.Windows.Forms.Label + Friend WithEvents PictureBox1 As System.Windows.Forms.PictureBox +End Class diff --git a/ArinWarev1/Forms_Basic/Frm_import.resx b/ArinWarev1/Forms_Basic/Frm_import.resx new file mode 100644 index 0000000..e1e0e89 --- /dev/null +++ b/ArinWarev1/Forms_Basic/Frm_import.resx @@ -0,0 +1,531 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + + True + + + + NoControl + + + + 216, 61 + + + 218, 17 + + + 11 + + + 가져오는영역의 데이터 초기화 + + + False + + + chk_deldata + + + System.Windows.Forms.CheckBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + Panel1 + + + 0 + + + 255 + + + 66 + + + 0 + + + 16, 131 + + + 434, 265 + + + 10 + + + ListView1 + + + System.Windows.Forms.ListView, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + Panel1 + + + 1 + + + 16, 105 + + + 433, 22 + + + 8 + + + tb_file + + + System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + Panel1 + + + 2 + + + True + + + NoControl + + + 114, 60 + + + 81, 17 + + + 7 + + + 내보내기 + + + rado + + + System.Windows.Forms.RadioButton, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + Panel1 + + + 3 + + + True + + + NoControl + + + 13, 60 + + + 81, 17 + + + 6 + + + 가져오기 + + + radi + + + System.Windows.Forms.RadioButton, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + Panel1 + + + 4 + + + False + + + NoControl + + + 11, 402 + + + 439, 29 + + + 3 + + + 실행 + + + Button2 + + + System.Windows.Forms.Button, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + Panel1 + + + 5 + + + NoControl + + + 13, 81 + + + 437, 22 + + + 3 + + + 파일선택 + + + Button1 + + + System.Windows.Forms.Button, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + Panel1 + + + 6 + + + Center + + + True + + + NoControl + + + 86, 34 + + + 157, 13 + + + 1 + + + 해당 파일을 선택하세요 + + + Label2 + + + System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + Panel1 + + + 7 + + + True + + + NoControl + + + 86, 12 + + + 173, 13 + + + 1 + + + 데이터 내보내기/가져오기 + + + MiddleCenter + + + Label1 + + + System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + Panel1 + + + 8 + + + + iVBORw0KGgoAAAANSUhEUgAAADAAAAAwCAYAAABXAvmHAAAABGdBTUEAALGPC/xhBQAAACBjSFJNAAB6 + JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAAACXBIWXMAAAr/AAAK/wE0YpqCAAAI90lE + QVRoQ9XYCUxUdx4H8DeA14iCFypyiYhFIiynojZrbOw2XrFm12q9jdtQrdq1caubaDet7tqtSvGoVahS + QERuFVBBLQoedNfuJjTZ0qQcYodjhhmGN/cAv/393zDDvJnfALZ2U0g+ecPv/Y/v/13zgAOAIY0sDiVk + 8QUa34va90KQRab9LPdzeXRkhRg7smaY2WeHfQOiMlHIIkMN+jzURQuT+PJ1wHQWxaVTbfpDZaKQRYYa + 9DmMU6X7duM4wg9+7mE1hzb9wm6DQhYZatDBUhcmVOq+PgTdirvQrXwAun8egs7CuBqqrStUJgpZZKhB + B0OZ6hmuygzo6WorA+O9cEF3+2NQZQaCMsU9gupDoTJRyCJDDToY6pw5MuN3F8D4cKFtAabq34GxNg3U + OeFKqg+FykQhiww16EA6ssPeUOfH93Q1ngVjxWwwVITZdMmyQV0wF9TZwdupvo6oTBSyyFCDDmCYKsNf + b3p6DQOHi8IbvnoJDPciwdRUCqoMPxNr69DXCZWJQhYZatD+qPOikjTla8FUs9MSmGCuPYSP1bWgzg27 + SI1hj8pEIYsMNWg/JqrSfLrMz/Ix6Cyxu2Lm5jJQpU3qZn0cxhChMlHIIkMN6greuBW66vd7jI9fxZCh + oCsPBXnODGjOCEbToS07GLRlM4V9pn+tAV31fryhw76hxrKiMlHIIkMNSlGmjI7E67rbXPcZGO5gSKTI + DYH7x2bA4cQw+DBxNhQfmQktWaGgv23Zb36aiffCtB7lefdopzE/s2ypTBSyyDgN7Kh3oo6s4CZDzSd4 + s0ZguBDQlYVA/eczYf6iWJgdHy+ISIiD2tMhoL01Q2hjvD8PDN8mQcelILloPDtUJgpZZGwD9wO/nNar + 86K7zd/uBcNtDNerKW0WxL7yCixYtkwQv2QJ1J7Do2/Xxlx7GPDG7+nImJLoGP6XXQCbwLIdjjejxvhd + MujLg0Vk6aHw21WrYNHrr9s0peElZN/uziwwfX+O3dAGNpYw7hkLBaIyUcgiYwvqqPcIdVyemcTfXNFt + rF6BgaaLNGeGwssrV4qwmmM745ONwN9YDqpLAReswRWnLahMFLLIWIPa2IVHPsqL40ym/34E+rIgJy2X + ZsKC5ctFWE3cLlBg+j4JlF94dylOcT7W8L/MAhA7QmzbkRl4W3t/S4+hItoWxF7b5RCnBbCa/hbud2Co + fBm097biK7ff14qTOAdz6gUswBpWtGXOSaOVaZNNpn8nYoAAkhyf+wmvvSbCak5tb/oLTDX7QJnq091+ + xj1e/inHMVQmCllkhOvRyu7UKi9OqtM9eguPNAbqDeBIcWU6zMUnjz1Wo9oKymeB7tEOfN2e2CJPwgUg + KhOFLDLWUylg4XGrTJmwoSMr1GR8uBQn9nNJmRsEcYsXiyhz8Lq/gfudTBMYq/8AyvQQfMUYk9j2yYtY + QDKGtl6Tls8j2896qg2PNtsmpeiQMi8QYhYtElHmBeA+X9fY4h9vB8VJT13bx9xIKhOFLDIKPI1tJyyn + U4HXpOLzicfUeTFm/Z1IOkBpH1W+P0QtXCiiyvfDfVP7pa9IgI7L0T2KU+NSqUwUssiw8G3HbXzlyVK9 + vnIpObEjdaEfRCYkiKgL8OyUTBmQoWo1tP5jlKn5I86XyuWILDKtH3M28uSxpZ2F8V26G4HkpI46C31h + Dr4D2essxMWVTB7YrRB8U50LbcfGPKRyOSKLTOsRjmu2iG1N8tTp78bSE1oV9+GLpkJ4TIwIX4SLK/YZ + FP1X86HlyGiz7APJfCqbPbLI4Cnkmj/kJK1HR9byhXPIiVzRXJ0MYVFRIpqrbN8ksesu4EHozIsE2Qcj + njX9mZNQ+azIIiM7yHGyv3psaD0+Vqu7GdT/hPZKsW1ZLETHRcCsCIuwyAisxeCZwvvg+sTBuYF/DP1t + bNePB4fvpPJZkUXmxwOcVHbQvZ1nTw9qAgfaaxMsivFpUrkCSk4vgT1b58GuLfMg8++LQX9/KWhxgbZ2 + /Rov6Mz1g6f73PmG3ZyUysiQRebZAcnRthMj9fQEjiwTWulu4pvng9/jc30Lwu+NqlWgLQ10aie42r+W + oyN6mvZ7pFAZGbLYsJfzb9wn4TX5437CpNgH1aRMhLdW+8OmFQFQ+Ske+d76cynyBj7XCxr2uBnrEjl/ + KqtTgWnaK7muOC3tEgYp9AZNgTcO5jC4KzgpszAuAPyDggSzXwqEluy+fQNic+Z7gbZgLP7uBfLkUdD4 + J7cqKqtToX4HN//pe248G0Rb4AWanLGgwaNATkTyAkWON/gF+MM0/z5PzuDZwX39KuwjzJszBrR5uAjM + 0fium6l+p2SRY17RLxhe0rhLUqtKHS0MqLkyBvjsMXg0LEeCZDepoBi/7G79Bta8GgRTfX0FC6L9QV2C + ryAlM7ANjjUImjyc+7InaBA7E8rzUqjf6fasbrv4sSpewNuSrU0HPHh2KbDV85mjgc/CAYgJXLo6QXji + KO+shLN/mQcn3osD2Y1lwpNJe20KtsGjaq/ANf4Szp8hxUWwA+oNTe97mOt3ue22z2wXnvOs3yFp78TQ + umuTgE+XQueX2PkKWwAOOMhJGd11/GPl0XowPHkXDN+g6m34/RBq14Yd1T4aF/gslmGUgM+RgjrLG+oT + JfwP2zhP5wW8IznefGSYTo9vk3wmdryAHa0ujrTDfkdphN7JBGnY9tJ4vAzwW/VL/MykY91RhguZCOdT + f2HB+utKp4DssEdPwx7JBdECGt7hghp2S3j+ihT/IAmwdEwZ8YIM//nODxcWoMGzoC32g/pdEsMPf+SC + bAto3CvJl58c3m24HYI3LZ6uDFxx6ohfDf4iSscF5I4S/ikmTxoGdW9zaX1nYK/kP5o8qei/yL92Tfvd + MDouAH98ctZwW6q2uSkebnWXVW12lz3YhNuNCLeVG9ybqze5N1Sux89vonV22+dh16dinbu8Yi2y3/YS + 2qHHljmbq9i8GyweYCaWrXKzmyJnNbeFZWcLiEIxaGOvTWgzYg22oe3Iuu//jc3NMrAsLBPLZt3HMkcJ + l9BQRhaHErI4dAD3P/ArbcVv17aEAAAAAElFTkSuQmCC + + + + NoControl + + + 14, 10 + + + 48, 48 + + + AutoSize + + + 0 + + + PictureBox1 + + + System.Windows.Forms.PictureBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + Panel1 + + + 9 + + + Fill + + + 0, 0 + + + 5, 3, 5, 3 + + + 455, 434 + + + 1 + + + Panel1 + + + System.Windows.Forms.Panel, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + $this + + + 0 + + + True + + + 8, 13 + + + 455, 434 + + + 돋움, 9.75pt, style=Bold + + + CenterScreen + + + 데이터관리 + + + ColumnHeader1 + + + System.Windows.Forms.ColumnHeader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + ColumnHeader2 + + + System.Windows.Forms.ColumnHeader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + ColumnHeader3 + + + System.Windows.Forms.ColumnHeader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + Frm_Import + + + System.Windows.Forms.Form, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + \ No newline at end of file diff --git a/ArinWarev1/Forms_Basic/Frm_import.sr-Cyrl-CS.resx b/ArinWarev1/Forms_Basic/Frm_import.sr-Cyrl-CS.resx new file mode 100644 index 0000000..b974cf9 --- /dev/null +++ b/ArinWarev1/Forms_Basic/Frm_import.sr-Cyrl-CS.resx @@ -0,0 +1,209 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + + + iVBORw0KGgoAAAANSUhEUgAAADAAAAAwCAYAAABXAvmHAAAABGdBTUEAALGOfPtRkwAAACBjSFJNAACH + DwAAjA8AAP1SAACBQAAAfXkAAOmLAAA85QAAGcxzPIV3AAAKOWlDQ1BQaG90b3Nob3AgSUNDIHByb2Zp + bGUAAEjHnZZ3VFTXFofPvXd6oc0wAlKG3rvAANJ7k15FYZgZYCgDDjM0sSGiAhFFRJoiSFDEgNFQJFZE + sRAUVLAHJAgoMRhFVCxvRtaLrqy89/Ly++Osb+2z97n77L3PWhcAkqcvl5cGSwGQyhPwgzyc6RGRUXTs + AIABHmCAKQBMVka6X7B7CBDJy82FniFyAl8EAfB6WLwCcNPQM4BOB/+fpFnpfIHomAARm7M5GSwRF4g4 + JUuQLrbPipgalyxmGCVmvihBEcuJOWGRDT77LLKjmNmpPLaIxTmns1PZYu4V8bZMIUfEiK+ICzO5nCwR + 3xKxRoowlSviN+LYVA4zAwAUSWwXcFiJIjYRMYkfEuQi4uUA4EgJX3HcVyzgZAvEl3JJS8/hcxMSBXQd + li7d1NqaQffkZKVwBALDACYrmcln013SUtOZvBwAFu/8WTLi2tJFRbY0tba0NDQzMv2qUP91829K3NtF + ehn4uWcQrf+L7a/80hoAYMyJarPziy2uCoDOLQDI3fti0zgAgKSobx3Xv7oPTTwviQJBuo2xcVZWlhGX + wzISF/QP/U+Hv6GvvmckPu6P8tBdOfFMYYqALq4bKy0lTcinZ6QzWRy64Z+H+B8H/nUeBkGceA6fwxNF + hImmjMtLELWbx+YKuGk8Opf3n5r4D8P+pMW5FonS+BFQY4yA1HUqQH7tBygKESDR+8Vd/6NvvvgwIH55 + 4SqTi3P/7zf9Z8Gl4iWDm/A5ziUohM4S8jMX98TPEqABAUgCKpAHykAd6ABDYAasgC1wBG7AG/iDEBAJ + VgMWSASpgA+yQB7YBApBMdgJ9oBqUAcaQTNoBcdBJzgFzoNL4Bq4AW6D+2AUTIBnYBa8BgsQBGEhMkSB + 5CEVSBPSh8wgBmQPuUG+UBAUCcVCCRAPEkJ50GaoGCqDqqF6qBn6HjoJnYeuQIPQXWgMmoZ+h97BCEyC + qbASrAUbwwzYCfaBQ+BVcAK8Bs6FC+AdcCXcAB+FO+Dz8DX4NjwKP4PnEIAQERqiihgiDMQF8UeikHiE + j6xHipAKpAFpRbqRPuQmMorMIG9RGBQFRUcZomxRnqhQFAu1BrUeVYKqRh1GdaB6UTdRY6hZ1Ec0Ga2I + 1kfboL3QEegEdBa6EF2BbkK3oy+ib6Mn0K8xGAwNo42xwnhiIjFJmLWYEsw+TBvmHGYQM46Zw2Kx8lh9 + rB3WH8vECrCF2CrsUexZ7BB2AvsGR8Sp4Mxw7rgoHA+Xj6vAHcGdwQ3hJnELeCm8Jt4G749n43PwpfhG + fDf+On4Cv0CQJmgT7AghhCTCJkIloZVwkfCA8JJIJKoRrYmBRC5xI7GSeIx4mThGfEuSIemRXEjRJCFp + B+kQ6RzpLuklmUzWIjuSo8gC8g5yM/kC+RH5jQRFwkjCS4ItsUGiRqJDYkjiuSReUlPSSXK1ZK5kheQJ + yeuSM1J4KS0pFymm1HqpGqmTUiNSc9IUaVNpf+lU6RLpI9JXpKdksDJaMm4ybJkCmYMyF2TGKQhFneJC + YVE2UxopFykTVAxVm+pFTaIWU7+jDlBnZWVkl8mGyWbL1sielh2lITQtmhcthVZKO04bpr1borTEaQln + yfYlrUuGlszLLZVzlOPIFcm1yd2WeydPl3eTT5bfJd8p/1ABpaCnEKiQpbBf4aLCzFLqUtulrKVFS48v + vacIK+opBimuVTyo2K84p6Ss5KGUrlSldEFpRpmm7KicpFyufEZ5WoWiYq/CVSlXOavylC5Ld6Kn0Cvp + vfRZVUVVT1Whar3qgOqCmrZaqFq+WpvaQ3WCOkM9Xr1cvUd9VkNFw08jT6NF454mXpOhmai5V7NPc15L + Wytca6tWp9aUtpy2l3audov2Ax2yjoPOGp0GnVu6GF2GbrLuPt0berCehV6iXo3edX1Y31Kfq79Pf9AA + bWBtwDNoMBgxJBk6GWYathiOGdGMfI3yjTqNnhtrGEcZ7zLuM/5oYmGSYtJoct9UxtTbNN+02/R3Mz0z + llmN2S1zsrm7+QbzLvMXy/SXcZbtX3bHgmLhZ7HVosfig6WVJd+y1XLaSsMq1qrWaoRBZQQwShiXrdHW + ztYbrE9Zv7WxtBHYHLf5zdbQNtn2iO3Ucu3lnOWNy8ft1OyYdvV2o/Z0+1j7A/ajDqoOTIcGh8eO6o5s + xybHSSddpySno07PnU2c+c7tzvMuNi7rXM65Iq4erkWuA24ybqFu1W6P3NXcE9xb3Gc9LDzWepzzRHv6 + eO7yHPFS8mJ5NXvNelt5r/Pu9SH5BPtU+zz21fPl+3b7wX7efrv9HqzQXMFb0ekP/L38d/s/DNAOWBPw + YyAmMCCwJvBJkGlQXlBfMCU4JvhI8OsQ55DSkPuhOqHC0J4wybDosOaw+XDX8LLw0QjjiHUR1yIVIrmR + XVHYqLCopqi5lW4r96yciLaILoweXqW9KnvVldUKq1NWn46RjGHGnIhFx4bHHol9z/RnNjDn4rziauNm + WS6svaxnbEd2OXuaY8cp40zG28WXxU8l2CXsTphOdEisSJzhunCruS+SPJPqkuaT/ZMPJX9KCU9pS8Wl + xqae5Mnwknm9acpp2WmD6frphemja2zW7Fkzy/fhN2VAGasyugRU0c9Uv1BHuEU4lmmfWZP5Jiss60S2 + dDYvuz9HL2d7zmSue+63a1FrWWt78lTzNuWNrXNaV78eWh+3vmeD+oaCDRMbPTYe3kTYlLzpp3yT/LL8 + V5vDN3cXKBVsLBjf4rGlpVCikF84stV2a9021DbutoHt5turtn8sYhddLTYprih+X8IqufqN6TeV33za + Eb9joNSydP9OzE7ezuFdDrsOl0mX5ZaN7/bb3VFOLy8qf7UnZs+VimUVdXsJe4V7Ryt9K7uqNKp2Vr2v + Tqy+XeNc01arWLu9dn4fe9/Qfsf9rXVKdcV17w5wD9yp96jvaNBqqDiIOZh58EljWGPft4xvm5sUmoqb + PhziHRo9HHS4t9mqufmI4pHSFrhF2DJ9NProje9cv+tqNWytb6O1FR8Dx4THnn4f+/3wcZ/jPScYJ1p/ + 0Pyhtp3SXtQBdeR0zHYmdo52RXYNnvQ+2dNt293+o9GPh06pnqo5LXu69AzhTMGZT2dzz86dSz83cz7h + /HhPTM/9CxEXbvUG9g5c9Ll4+ZL7pQt9Tn1nL9tdPnXF5srJq4yrndcsr3X0W/S3/2TxU/uA5UDHdavr + XTesb3QPLh88M+QwdP6m681Lt7xuXbu94vbgcOjwnZHokdE77DtTd1PuvriXeW/h/sYH6AdFD6UeVjxS + fNTws+7PbaOWo6fHXMf6Hwc/vj/OGn/2S8Yv7ycKnpCfVEyqTDZPmU2dmnafvvF05dOJZ+nPFmYKf5X+ + tfa5zvMffnP8rX82YnbiBf/Fp99LXsq/PPRq2aueuYC5R69TXy/MF72Rf3P4LeNt37vwd5MLWe+x7ys/ + 6H7o/ujz8cGn1E+f/gUDmPP8usTo0wAAAAlwSFlzAAALEAAACxABrSO9dQAACM9JREFUaEPtmQlQVEca + x98AAo6ciqjccgYpYTkVJbWUKbMprzLWxuh6oeWmUKNmSbnRrdJsJbprNirBI0YhQrhEbpRDQQ0KHmTX + 7FaRqg1bFQ4xwzHDHLy5B/j26zeH82AGhiCCVaHqV92vX/f7/v/+ut/0DBQAUK8yr7R4MvGTbWA2BiFM + WhyzD+67SFETxEacH6gS5wdo8Dk2432WpaYnzYCkPCGVrtsMhP7y2OxXzYCrKNtjEGeR+cP6EBpwHY+J + Kc2ApCy+Qf7dMRgU3IVB4QOQ//MY9JfFNr8SBoQZDmGiXJ+hgd5aUN0LYxjsewyiXF8QpluHW2piyjIg + KVzMU/14BVQPEwwG1E2/A1VLFkgKw4TT2oC4IPRdSUnc0EDHRVDVLwJlfaiBAV4BSEqXgKTAf7clJqYi + AzNEOd4K9dPrKDqMJV757WugvBcB6s5qEOV4qdHAjLFMvHQDkuLIVGndJlA37wNGsAk0LcfwtboJJEWh + mdPNgJsoy31A86wEhYewuYvXRmi6akGUNXcQDbiNZuKlZgA3br286aMh1eM3UWwwyOuCgV8YAF05/shC + 6C3wB1ltEHNP/a+NIG86jBs69PtpYUCYPisC1/WgpvVLUN5BkYigKBDunwqA48mh8EnyIqg8EQTd+cGg + uK29r3mai3vBc0h42TpqhIkvtUeYyc+ALpA4379T2fw5btpwFBcI8tpAaPsqCJYlxsCiuDiG8PhYaDkf + CLJbAUwf1f2loPwhFcR5fnyDAfI8IybfAM4SfjhtkRRHDWp+SAHlbRSnozMrBGLeeAOWr17NELdyJbRc + wtk36qNpOQ648YfEOfOTjYXr65NnQDfzGMgWN6NU9WMaKOr8WfCyg+G369dD4ttvG+jMwiVk3O9OCKj/ + d4lsaCV5FiP8ghYBMnEDeqHDj9W6NIuvBqXSN9cOqprWorCFLLpyg+H1detYkLbh/VRPtgFdswZEeT5X + 9MIF59EA8mIMGK9LYuT5tbsw01Wt/u+noKj1G0F3XhAsX7OGBWlj9/XFa1/MQioIv3YZEJyj3PXiJ8cA + iiepJSbEub63ZfeThpT1UYyI4fReDRxhgLQpbmHfYSgbXgfZvZ145Pb6TnAWYxDOvYAM6MWySmLgEjdK + mDVPrf53MorxMQkf3/vxb73FgrSN6H/TGxSIuvkQCDPcB/suWMfxv6AowoSXEBFuQLcuSWqFmXNb5Y/e + w1lHQToBw0vBtYWwBN88xpA2c/0VdSEgf7QXj9tu3fxUNIBM3IAulSSdzNrEUpg+Z6s4P1itergKxXiZ + RVjkB7ErVrAQFuJeqcExI/DENk9QNb0DwuxAPGI4Jvd+/iIMpOnWIzGirdv3XXSQKB/tYAKaQ473hMW+ + EJ2YyEJY7APyGg/zkAl5vBsEZx3kvZ9R9hPPAKax94w2nQJck4Kv3E5JiqM1ijsRpkVUozgdohJviExI + YCEq8cL7C0ZFUR8P4qtRQ4JzrhkTNkDE95424MFP4yoUDavGFEFESsq8ICI+noWk1BPkVfPHRNm4AXr+ + MVPd9SnlYYkJs5ul5zOK0sNPc6ruL4sbkNf4jimAiOwv84DFeAYypr8MZ79q3tjcCsST6hLoPeX4cGIG + TlBUl5aYnlQHueJuzOjBK1GcDrp8AYRFR7Ogy3H2K90tQvHtMug+MUvD+5izbCwTZjOAKaS6PqE4PSft + W+iyxRYF1guUVsyD0MhIFtIKIn4umxt4bQqciP7iCOB9bPes888UZzQTZg3wjlIU7682W3tOO8nkN/20 + gc0FNG6vxr61MRAVGw4h4VpCI8KxLRoziPvghptl1OCXob85Dfx81HbfLzLw8xGKyztq3UeTt4cFQWXX + 5wBD5QJQNKyFqvMr4eDOpbA/aSnk/n0FKO6vAhkaNfTT9zdZzsZ+s6G/yAueHrKm2w9QXHMmzGbg2RHO + yd4z9orxBCRBCfKbePJ88Ht8rych+LnRuB5k1b7MvRFUYNsodJ+0G+o8bJM+LgPtKZR3xyEOLS1x/QVB + cUyFKzSnu8F7G7xh+1ofaPgCZx7bxk25C9BFztB+0ErVmkx5mzJhMgOdKZwbgvPcASZgmQtIS11AVm6h + AAwqQxJifcDbz49h0Wu+0F2A43X3xixJzBJnkJU64Rhn4KfNhI4/WTVaZKBtL7Xs6YdWNBEuK3UGaaET + SHEWxgxqEOcMgkIX8PLxBk/v5zy5gEsFxYxKGd7XwcQtdARZMZpAHR0fWKnb9nESh5tgZQDFczr2c1pE + GbOYQNJrjkAXOOJsaGfCJEZBmeCV+GF36zew8U0/WODhwbA8yhskVXgEqQpAgfgsC5AWY+yrDiBFSCaE + l7nQts/qWetu9muVbWAPZ2fnERuaLB3ins6dBXQ+PsCCgIY+FXOYN47wzjq4+JelcObDWODVrGbeTLLr + 8/FZOKvGlOK1Geg8jJ/DRRNkQl2g8yMbTdt+qwPGWTAYaNtDObTt5fT1o2j59blAZ3Oh/xscfI0YsDwo + ESO/gV90Hm0B5ZMPQPk90rQLz1DBRkLJrD5HinVT0PlEw0wGupALknwXaEvm0D/tohz0Jp4beJ9zuuvE + DLkCT5R0Lg68ggP1ZNpDvwFsz0SyTKALxgTNwjF5s3EZ4KfqN1gnZGP7cHKwzRS5JI49SL7WQsbLq+cD + 77jNUPtBzhWWgfb3Kb/2AxyavsbFLyk+2oHpdi8IW3zOBLlsyxiQYhZklV7Qtp+j/OmPlB8xwWSgI4VT + wj9rO6i8HYibFtOVg44z7KYNdKYdLmk0UDST+XGMnzoDWvdQWQYD7Smc/0iLuaxfkY1/UZ6O9c7DVuT/ + hxT5cy/cSCU17rISPNxpzWvcYc17sB3LbQiWDVutu5q2W7c3bMH6H5DNRiWpW4p+LPav32zNr9+EGJek + jjAxkMfamF2NJO5WLQ9QE9HWsMNKULiBSiLaiYFIJBrZpmM7ljsQ0mEXstvonr7PyypJbKKBaCGaiDZ9 + bKI50uKfL8b6YjFV9381MFUzr4/7f/ArbcXZ8eUKAAAAAElFTkSuQmCC + + + \ No newline at end of file diff --git a/ArinWarev1/Forms_Basic/Frm_import.vb b/ArinWarev1/Forms_Basic/Frm_import.vb new file mode 100644 index 0000000..d718724 --- /dev/null +++ b/ArinWarev1/Forms_Basic/Frm_import.vb @@ -0,0 +1,715 @@ +Public Class Frm_Import + + + Dim RecordCount As Long + Dim TableList As DataTable + Dim IsExcel As Boolean = False + + Private Sub Frm_Import_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load + '//테이블목록 추가 + Add_Tablelist() + Me.Button2.Enabled = False '//실행버튼 사용불가 + Me.IsExcel = False + End Sub + + Private Sub Add_Tablelist() + Dim TabName As String + Dim TabDesc As String = "" + Dim Sort As String = "" + + Me.TableList = New DataTable + Me.TableList.Columns.Add("Desc") + Me.TableList.Columns.Add("Name") + Me.TableList.Columns.Add("Sort") + Me.TableList.Columns.Add("Cnt") + + For Each Dt As DataTable In DSET1.Tables + TabName = Dt.TableName + TabDesc = "" + Select Case TabName.ToUpper + 'Case "TBL_BUHA" + 'TabDesc = "부하" + 'Sort = "00" + Case "TBL_BUNBAE" + TabDesc = "냉방분배" + Sort = "00" + 'Case "TBL_COMMON" + 'TabDesc = "공용코드" + 'Sort = "00" + Case "TBL_DESC" + TabDesc = "건물개요" + Sort = "00" + Case "TBL_KONGJO" + TabDesc = "공조" + Sort = "00" + Case "TBL_KONGKUB" + TabDesc = "난방공급" + Sort = "00" + Case "TBL_MYOUN" + TabDesc = "입력면" + Sort = "00" + Case "TBL_NANBANGKIKI" + TabDesc = "난방기기" + Sort = "00" + Case "TBL_NANGBANGKIKI" + TabDesc = "냉방기기" + Sort = "00" + Case "TBL_NBUNBAE" + TabDesc = "난방분배" + Sort = "00" + Case "TBL_NEW" + TabDesc = "신재생및열병합" + Sort = "00" + 'Case "TBL_PROFILE" + ' TabDesc = "프로필" + ' Sort = "00" + Case "TBL_ZONE" + TabDesc = "입력존" + Sort = "00" + Case "TBL_YK" + TabDesc = "열관류율(목록)" + Sort = "00" + Case "TBL_YKDETAIL" + TabDesc = "*열관류율(내역)" + Sort = "00" + 'Case "TBL_WEATHER" + ' TabDesc = "기상데이터(목록)" + ' Sort = "00" + 'Case "WEATHER_CHA" + 'TabDesc = "*기상데이터(차양)" + 'Sort = "00" + 'Case "WEATHER_ILSA" + ' TabDesc = "*기상데이터(일사)" + ' Sort = "00" + 'Case "WEATHER_SUPDO" + 'TabDesc = "*기상데이터(습도)" + 'Sort = "00" + 'Case "WEATHER_ILSA" + 'TabDesc = "*기상데이터(일사)" + 'Sort = "00" + End Select + If TabDesc <> "" Then Me.TableList.Rows.Add(New String() {TabDesc, TabName, Sort}) + + Next + End Sub + + Private Sub Frm_Import_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown + If e.KeyCode = Keys.Escape Then + Me.DialogResult = Windows.Forms.DialogResult.Cancel + End If + End Sub + + Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click + If radi.Checked Then + File_Open() + Me.Button2.Enabled = True + Else + '//내보내기 기능 + File_Save() + Me.Button2.Enabled = True + End If + End Sub + + Private Sub File_Open() + Dim Od As New OpenFileDialog + Od.FileName = "c:\out.txt" + Od.Filter = "탭으로 분리된 텍스트파일(*.txt)|*.txt|Ms Excel(*.xls)|*.xls" + Od.FilterIndex = 0 + If Od.ShowDialog <> Windows.Forms.DialogResult.OK Then Return + Me.tb_file.Text = Od.FileName + Me.IsExcel = IIf(Od.FilterIndex = 1, False, True) + + + '//테이블리스트의 데이터갯수 초기화 + For Each Dr As DataRow In Me.TableList.Rows + Dr("cnt") = 0 + Next + Me.TableList.AcceptChanges() + + '//혹시 연속으로 열경우를 대비해서 초기화한다. + Select Case Od.FilterIndex + Case 1 '//텍스트파일 + Dim Table As String + Dim BUf As String = My.Computer.FileSystem.ReadAllText(Me.tb_file.Text, System.Text.Encoding.Default) + For Each B As String In BUf.Split(CChar(vbCrLf)) + If B.Trim <> "" AndAlso B.Trim.Substring(0, 1) <> "#" Then + Table = B.Split(CChar(vbTab))(0) + + '//해당 테이블 이름을 테이블 리스트에 찾아서 카운터를 누적시킨다. + Dim DR() As DataRow = Me.TableList.Select("name='" & Table.Trim & "'") + If DR.GetUpperBound(0) = 0 Then + Try + DR(0)("cnt") = Val(DR(0)("cnt")) + 1 + Catch ex As Exception + DR(0)("cnt") = 1 + End Try + End If + End If + Next + Case 2 + '//엑셀데이터에서 정보를 얻어와야한다. + Dim xlApp As Excel.Application = New Excel.Application ' CreateObject("Excel.Application") + Dim xlBook As Excel.Workbook = xlApp.Workbooks.Open(Me.tb_file.Text) + Dim xlSheet1 As Excel.Worksheet = xlBook.Worksheets(1) '//첫번째 시트로고정 + + Dim Rng As Excel.Range = xlSheet1.Range("A1") '//Offset으로사용할것이므로 0,0셀을 선택한다 + + '//줄과 열의 갯수를 가져옵니다. + Dim rowCount As String = Rng.Offset(0, 4).Value '//줄수를 입력(나중에 불러올때 가져올범위를 대략 판단) + Dim ColCount As String = Rng.Offset(0, 5).Value + + If rowCount.Trim = "" OrElse rowCount = "0" Then + Dim V As String = InputBox("전체줄의 갯수를 입력하세요", "데이터갯수입력", 1000) + If V = "" Then + MsgBox("불러올 줄수를 확인할 수 없습니다", MsgBoxStyle.Critical, "확인") + Return + End If + If IsNumeric(V) = False Then + MsgBox("숫자만 입력가능합니다", MsgBoxStyle.Critical, "확인") + Return + End If + rowCount = V + End If + If rowCount.Trim = "" OrElse rowCount = "0" Then + ColCount = 60 '//60개를 넘지는 않으므로(아마두?) + End If + + '//범위가 지정되었으므로 데이터를 확인한다. + '//데이터의 시작줄은 항상 5번이다. + Dim Tabname As String = "" + Dim 열 As New ArrayList + Dim z_cnt As Integer = 0 + For r As Integer = 5 To rowCount + Try + Tabname = Rng.Offset(r, 0).Value.ToString.Trim '//0번째열은 항상 테이블 이름이 오도록한다 + Catch ex As Exception + Tabname = "" + End Try + + If Tabname = "" OrElse Tabname.Trim.ToUpper = "TABLE" Then '//이건 테이블을 제목줄이다 + + Else '//테이블이름으로 판단하고 해당 리스트를 찾아서 값을 누적시킴 + '//해당 테이블 이름을 테이블 리스트에 찾아서 카운터를 누적시킨다. + Dim DR() As DataRow = Me.TableList.Select("name='" & Tabname & "'") + If DR.GetUpperBound(0) = 0 Then + Try + DR(0)("cnt") = Val(DR(0)("cnt")) + 1 + Catch ex As Exception + DR(0)("cnt") = 1 + End Try + End If + End If + Next + + '//Dispos Excel Object + xlBook.Close() + xlApp.Application.Quit() + xlApp.Quit() + xlApp = Nothing + xlBook = Nothing + xlSheet1 = Nothing + End Select + + + Me.ListView1.Items.Clear() '//리스트뷰클리어 + Dim lv As ListViewItem + For Each dr As DataRow In Me.TableList.Select("", "sort") '//정렬시켜서 가져옴 + If DSET1.Tables(dr("name").ToString).Rows.Count > 0 Then + lv = Me.ListView1.Items.Add(dr("desc").ToString) '//테이블설명 + lv.SubItems.Add(dr("cnt").ToString) '//레코드숫자 + lv.SubItems.Add(dr("name").ToString) '//테이블이름 + End If + Next + + End Sub + Private Sub File_Save() + DSET1.AcceptChanges() + DSETR1.AcceptChanges() + + Dim sd As New SaveFileDialog + sd.FileName = "c:\out.txt" + sd.Filter = "탭으로 분리된 텍스트파일(*.txt)|*.txt|Ms Excel(*.xls)|*.xls" + sd.FilterIndex = 0 + If sd.ShowDialog <> Windows.Forms.DialogResult.OK Then Return + Me.tb_file.Text = sd.FileName + + Me.IsExcel = IIf(sd.FilterIndex = 1, False, True) + + Me.ListView1.Items.Clear() '//기존의 목록제거 + Dim Lv As ListViewItem + For Each dr As DataRow In Me.TableList.Select("", "sort") '//정렬시켜서 가져옴 + If DSET1.Tables(dr("name")).Rows.Count > 0 Then + Lv = Me.ListView1.Items.Add(dr("desc")) '//테이블설명 + Lv.SubItems.Add(DSET1.Tables(dr("name")).Rows.Count) '//레코드숫자 + Lv.SubItems.Add(dr("name")) '//테이블이름 + End If + Next + End Sub + + Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click + If MsgBox("실행하시겠습니까?", MsgBoxStyle.Information Or MsgBoxStyle.OkCancel, "확인") <> MsgBoxResult.Ok Then Return + + If Me.radi.Checked Then + If My.Computer.FileSystem.FileExists(Me.tb_file.Text) = False Then + MsgBox("해당파일이 존재하지않아서 가져올 수 없습니다", MsgBoxStyle.Critical, "확인") + Me.Button2.Enabled = False + Return + End If + If Me.IsExcel Then + InPutXls() + Else + INput() + End If + Else + If Me.IsExcel Then + OutputXLS() + Else + OutPut() + End If + End If + End Sub + + Private Function Get_Listview(ByVal Tabname As String) As ListViewItem + Dim Tname As String + Dim R As ListViewItem = Nothing + For Each Lv As ListViewItem In Me.ListView1.Items + Tname = Lv.SubItems(2).Text + If Tname.ToUpper.Trim = Tabname.ToUpper.Trim Then + R = Lv + Exit For + End If + Next + Return R + End Function + Private Sub InPutXls() + + '//가져오는 영역의 데이터 클리어 + Work_msg("저장영역 데이터확인중...") + For Each Lview As ListViewItem In Me.ListView1.Items + If Lview.Checked And Me.chk_deldata.Checked Then ' '//삭제명령이 잇엇다면 삭제를 한다. + Work_msg("데이터 삭제중(" & Lview.SubItems(2).Text & ")") + If DSET1.Tables(Lview.SubItems(2).Text).Columns.IndexOf("code") <> -1 Then '//코드가잇는 개체라면 코드빼고 삭제 + For Each Dr As DataRow In DSET1.Tables(Lview.SubItems(2).Text).Select("Code<>'0'") + Dr.Delete() + Next + Else + For Each Dr As DataRow In DSET1.Tables(Lview.SubItems(2).Text).Rows + Dr.Delete() + Next + End If + + End If + Next + DSET1.AcceptChanges() + + + Dim NullCnt As Int16 = 0 + Dim mytext1 As String = vbNullString + + Dim xlApp As Excel.Application = New Excel.Application ' CreateObject("Excel.Application") + Dim xlBook As Excel.Workbook = xlApp.Workbooks.Open(Me.tb_file.Text) + Dim xlSheet1 As Excel.Worksheet = xlBook.Worksheets(1) '//첫번째 시트로고정 + + Dim Rng As Excel.Range = xlSheet1.Range("A1") '//Offset으로사용할것이므로 0,0셀을 선택한다 + + '//줄과 열의 갯수를 가져옵니다. + Dim rowCount As String = Rng.Offset(0, 4).Value '//줄수를 입력(나중에 불러올때 가져올범위를 대략 판단) + Dim ColCount As String = Rng.Offset(0, 5).Value + + If rowCount.Trim = "" OrElse rowCount = "0" Then + Dim V As String = InputBox("전체줄의 갯수를 입력하세요", "데이터갯수입력", 1000) + If V = "" Then + MsgBox("불러올 줄수를 확인할 수 없습니다", MsgBoxStyle.Critical, "확인") + Return + End If + If IsNumeric(V) = False Then + MsgBox("숫자만 입력가능합니다", MsgBoxStyle.Critical, "확인") + Return + End If + rowCount = V + End If + If rowCount.Trim = "" OrElse rowCount = "0" Then + ColCount = 60 '//60개를 넘지는 않으므로 + End If + + '//범위가 지정되었으므로 데이터를 확인한다. + '//데이터의 시작줄은 항상 5번이다. + Dim Tabname As String = "" + Dim lv As ListViewItem + Dim 열 As New ArrayList + Dim z_cnt As Integer = 0 + For r As Integer = 5 To rowCount + Try + Tabname = Rng.Offset(r, 0).Value.ToString '//0번째열은 항상 테이블 이름이 오도록한다 + Catch ex As Exception + Tabname = "" + End Try + + If Tabname.Trim.ToUpper = "TABLE" Then '//이건 테이블을 제목줄이다 + 열 = New ArrayList '//열제목을 이곳에 모두 넣는다. + For c As Integer = 1 To ColCount + Try + If Rng.Offset(r, c).Value.ToString.Trim <> "" AndAlso Rng.Offset(r, c).Value.ToString.Trim <> "0" Then '//열제목이있다 + 열.Add(Rng.Offset(r, c).Value.ToString.Trim) + End If + Catch ex As Exception + + End Try + + Next + Else + If 열.Count > 0 AndAlso Tabname.Trim <> "" Then '//열제목이 설정되어잇어야 돌아가도록 + lv = Get_Listview(Tabname) + If lv.Checked Then '//가져오기설정과 테이블이름이 잇어야함 + Work_msg("가져오는중(" & Tabname & ")") + Dim Dr As DataRow = DSET1.Tables(Tabname).NewRow + Dr("code") = Format(DSET1.Tables(Tabname).Rows.Count, "0000") + For c As Integer = 1 To 열.Count + Try + Dr(열.Item(c - 1).ToString) = Rng.Offset(r, c).Value + Catch ex As Exception + Dr(열.Item(c - 1).ToString) = DBNull.Value + End Try + + Next + Try + DSET1.Tables(Tabname).Rows.Add(Dr) + DSET1.Tables(Tabname).AcceptChanges() + z_cnt += 1 + Catch ex As Exception + + End Try + End If + End If + End If + Next + Work_msg("") + + '//Dispos Excel Object + xlBook.Close() + xlApp.Application.Quit() + xlApp = Nothing + xlBook = Nothing + xlSheet1 = Nothing + + MsgBox("가져오기완료", MsgBoxStyle.Information, "확인") + Me.Close() + + ' Process.Start(Me.tb_file.Text) + 'Shell(Me.tb_file.Text, AppWinStyle.NormalFocus) + End Sub + Private Sub INput() '//텍스트파일 가져오기 + Dim BUf As String = My.Computer.FileSystem.ReadAllText(Me.tb_file.Text, System.Text.Encoding.Default) + Dim Table As String + + + Dim 열 As String = "" + + For Each Lview As ListViewItem In Me.ListView1.Items + If Lview.Checked And Me.chk_deldata.Checked Then ' '//삭제명령이 잇엇다면 삭제를 한다. + + + Dim TAblename As String = Lview.SubItems(2).Text + If DSET1.Tables(TAblename).Columns.IndexOf("code") <> -1 Then '//코드가잇는 개체라면 코드빼고 삭제 + For Each Dr As DataRow In DSET1.Tables(Lview.SubItems(2).Text).Select("Code<>'0'") + Dr.Delete() + Next + Else + For Each Dr As DataRow In DSET1.Tables(Lview.SubItems(2).Text).Rows + Dr.Delete() + Next + End If + End If + Next + DSET1.AcceptChanges() + + Dim Lv As ListViewItem + Dim z_cnt As Integer = 0 + Dim e_cnt As Integer = 0 + For Each B As String In BUf.Split(CChar(vbCrLf)) '//데이터를 실제로 가져온다 + If B.Trim <> "" AndAlso B.Trim.Substring(0, 1) <> "#" Then '//주석데이터도제거 + Table = B.Split(CChar(vbTab))(0).Trim + Select Case Table.ToUpper + Case "TABLE" + 열 = B.Trim + Case Else + '//해당테이블명이 리뷰에 있는지확인하고 그것의 사용체크가되어있는지확인 + Lv = Get_Listview(Table) + If Not Lv Is Nothing Then + If Lv.Checked Then '//사용여부확인 + Dim Dr As DataRow = DSET1.Tables(Table).NewRow + Dr("code") = Format(DSET1.Tables(Table).Rows.Count, "0000") + For i As Integer = 1 To B.Split(CChar(vbTab)).GetUpperBound(0) + Try + Dr(열.Split(CChar(vbTab))(i)) = B.Split(CChar(vbTab))(i) + Catch ex As Exception + Dr(열.Split(CChar(vbTab))(i)) = DBNull.Value + End Try + Next + Try + DSET1.Tables(Table).Rows.Add(Dr) + DSET1.Tables(Table).AcceptChanges() + z_cnt += 1 + 'Catch sqlex As SqlClient.SqlException + ' MsgBox(sqlex.ErrorCode) + Catch ex As Exception + ' MsgBox(ex.Message.ToString) + + If ex.Message.ToString.IndexOf("고유 값") <> -1 Then + z_cnt += 1 + Else + e_cnt += 1 + End If + End Try + End If + End If + + End Select + End If + Next + + DSET1.AcceptChanges() + ' MsgBox(DSET1.tbl_zone.Rows.Count) + + Dim M As New System.Text.StringBuilder + M.AppendLine(z_cnt & "개의 데이터가 추가됨") + M.AppendLine(e_cnt & "개의 오류발생") + MsgBox(M.ToString, MsgBoxStyle.Information, "OK") + End Sub + + + '//텍스트파일 내보내기 + Private Sub OutPut() + + Work_msg("기본정보생성중...") + + Dim Wb As New System.Text.StringBuilder + Wb.AppendLine("#### ECO2 Data ####") + Wb.AppendLine("#### Export Time : " & Format(Now, "yyyy-MM-dd HH:mm:ss") & " ####") + Wb.AppendLine("#### Export by Eco2 ####") + + + Dim Tabname As String = "" + For Each lv As ListViewItem In Me.ListView1.Items + If lv.Checked Then '//체크된것만 내보낸다 + Tabname = lv.SubItems(2).Text + Work_msg("내보내는중(" & Tabname & ")") + + Wb.Append("table") '/////////////////////// + For Each C As System.Data.DataColumn In DSET1.Tables(Tabname).Columns + Wb.Append(vbTab & C.ColumnName) + Next + Wb.Append(vbCrLf) + For Each C As DataRow In DSET1.Tables(Tabname).Rows + Wb.Append(Tabname) + For i As Integer = 0 To DSET1.Tables(Tabname).Columns.Count - 1 + + 'If (Tabname.ToUpper = "TBL_MYOUN") Then + ' If DSET1.Tables(Tabname).Columns(i).ColumnName.ToUpper.Trim = "열관류율" Then + ' If CSng(C(i)) = 0 Then '//링크값사용 + ' Dim Dr As DS.tbl_ykRow = DSET1.tbl_yk.Select("code='" & C("열관류율2") & "'")(0) + ' Wb.Append(vbTab & Dr("열관류율").ToString) + ' Else '//입력값사용 + ' Wb.Append(vbTab & C(i).ToString) + ' End If + ' Else + ' Wb.Append(vbTab & C(i).ToString) + ' End If + 'Else + ' Wb.Append(vbTab & C(i).ToString) + 'End If + Wb.Append(vbTab & C(i).ToString) + + Next + Wb.Append(vbCrLf) + Next + End If + Next + Work_msg("") + My.Computer.FileSystem.WriteAllText(Me.tb_file.Text, Wb.ToString, False, System.Text.Encoding.Default) + If MsgBox("내보내기 완료" & vbCrLf & "파일을 확인하시겠습니까?", _ + vbInformation Or vbOK, "확인") = MsgBoxResult.Ok Then + Process.Start(Me.tb_file.Text) + End If + Me.Close() + End Sub + + Private Sub OutputXLS() + + Dim NullCnt As Int16 = 0 + Dim mytext1 As String = vbNullString + + Dim xlApp As Excel.Application = New Excel.Application ' CreateObject("Excel.Application") + xlApp.DisplayAlerts = False + xlApp.Visible = False + xlApp.ReferenceStyle = Excel.XlReferenceStyle.xlA1 + Dim xlBook As Excel.Workbook = xlApp.Workbooks.Add + Dim xlSheet1 As Excel.Worksheet = xlBook.Worksheets.Add + + + Work_msg("데이터수 확인중...") + '//전체데이터갯수를 가지고 배열을 정의한다. + Dim Rcnt As Integer = 0 + Dim Ccnt As Integer = 0 + Dim TabName As String = "" + For Each Lv As ListViewItem In Me.ListView1.Items + If Lv.Checked Then + TabName = Lv.SubItems(2).Text + Rcnt += DSET1.Tables(TabName).Rows.Count + If DSET1.Tables(TabName).Columns.Count > Ccnt Then Ccnt = DSET1.Tables(TabName).Columns.Count + End If + Next + + '//제목줄 5줄을포함 + 'If Ccnt < 5 Then Ccnt = 5 + Work_msg("저장영역할당....") + Dim saRet(Rcnt + 50, 52) As String '//여유잇게 할당 + For i As Integer = 0 To Rcnt + 10 - 1 + For j As Integer = 0 To Ccnt + 5 - 1 + saRet(i, j) = "" + Next + Next + + Dim Rng As Excel.Range = xlSheet1.Range("A1") '//Offset으로사용할것이므로 0,0셀을 선택한다 + + + Work_msg("기본정보를 내보냅니다....") + '//export title (제목내보내기) + 'Rng.Offset(0, 0).Value = "#### ECO2 Data ####" + 'Rng.Offset(1, 0).Value = ("#### Export Time : " & Format(Now, "yyyy-MM-dd HH:mm:ss") & " ####") + 'Rng.Offset(2, 0).Value = ("#### Export by Eco2 ####") + + saRet(0, 0) = "#### ECO2 Data ####" + saRet(1, 0) = ("#### Export Time : " & Format(Now, "yyyy-MM-dd HH:mm:ss") & " ####") + saRet(2, 0) = ("#### Export by Eco2 ####") + + + '//Export SUbTitle(부가적인정보내보내기) + 'Rng.Offset(0, 4).Value = Rcnt + 4 '//줄수를 입력(나중에 불러올때 가져올범위를 대략 판단) + 'Rng.Offset(0, 5).Value = Ccnt - 1 '//열수를 입력 + + saRet(0, 4) = Rcnt + 4 '//줄수를 입력(나중에 불러올때 가져올범위를 대략 판단) + saRet(0, 5) = Ccnt - 1 '//열수를 입력 + + Dim RowIndex As Integer = 5 + Dim ColIndex As Integer = 0 + + For Each Lv As ListViewItem In Me.ListView1.Items + If Lv.Checked Then + TabName = Lv.SubItems(2).Text + Work_msg("내보내는중(" & TabName & ")") + 'Set_ArrayData(Rng, RowIndex, DSET1.Tables(TabName)) + Set_ArrayData(saRet, RowIndex, DSET1.Tables(TabName)) + End If + Next + + Try + My.Computer.FileSystem.DeleteFile(Me.tb_file.Text) '//대상파일이 존재하면 삭제해버림 + Catch ex As Exception + End Try + + xlSheet1.Range("A1:AZ" & CStr(Rcnt + 10).ToString).Value = saRet + 'xlApp.Visible = True + + xlBook.Saved = True + 'xlSheet1.SaveAs(Me.tb_file.Text) + xlSheet1.SaveAs(Me.tb_file.Text, _ + Excel.XlFileFormat.xlExcel7, _ + Nothing, Nothing, Nothing, Nothing, _ + Nothing, Nothing, Nothing, Nothing) + xlBook.Close() + xlApp.Application.Quit() + xlApp = Nothing + xlBook = Nothing + xlSheet1 = Nothing + + Work_msg("") + If MsgBox("내보내기 완료" & vbCrLf & "파일을 확인하시겠습니까?", _ + vbInformation Or vbOK, "확인") = MsgBoxResult.Ok Then + Process.Start(Me.tb_file.Text) + End If + Me.Close() + + ' Process.Start(Me.tb_file.Text) + 'Shell(Me.tb_file.Text, AppWinStyle.NormalFocus) + End Sub + + Private Sub Set_ArrayData(ByRef Rng As Excel.Range, ByRef RowIndex As Integer, ByVal Dt As DataTable) + RowIndex += 1 + Rng.Offset(RowIndex, 0).Value = "table" '//테이블컬럼명을 내보낸다 + '//Export ColumnData + For i As Integer = 0 To Dt.Columns.Count - 1 + Rng.Offset(RowIndex, i + 1).Value2 = Dt.Columns(i).ColumnName.ToString + Next + '//Export RowData + For Each C As DataRow In Dt.Rows + RowIndex += 1 ': ReDim Preserve saRet(RowIndex, 255) + Rng.Offset(RowIndex, 0).Value = Dt.TableName + For i As Integer = 0 To Dt.Columns.Count - 1 + Rng.Offset(RowIndex, i + 1).Value2 = C(i).ToString + Next + Next + End Sub + Private Sub Set_ArrayData(ByRef Rng(,) As String, ByRef RowIndex As Integer, ByVal Dt As DataTable) + RowIndex += 1 + Rng(RowIndex, 0) = "table" '//테이블컬럼명을 내보낸다 + '//Export ColumnData + For i As Integer = 0 To Dt.Columns.Count - 1 + Rng(RowIndex, i + 1) = Dt.Columns(i).ColumnName.ToString + Next + '//Export RowData + For Each C As DataRow In Dt.Rows + RowIndex += 1 ': ReDim Preserve saRet(RowIndex, 255) + Rng(RowIndex, 0) = Dt.TableName + For i As Integer = 0 To Dt.Columns.Count - 1 + Rng(RowIndex, i + 1) = C(i).ToString + Next + Next + End Sub + + + Private Sub Label3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) + '//d요부분만 추가됫어요 + Me.Close() + End Sub + + Private Sub Panel1_Paint(ByVal sender As System.Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles Panel1.Paint + Dim a As Graphics = e.Graphics + Dim b As New Drawing2D.LinearGradientBrush(New Rectangle(0, 0, Me.Width, 500), Color.WhiteSmoke, _ + Color.DarkGray, Drawing2D.LinearGradientMode.Vertical) + a.FillRectangle(b, 0, 0, Me.Width, Me.Height) + 'a.FillRectangle(b, Me.Width, 0, Me.Width, 30) + b.Dispose() + a.Dispose() + End Sub + + + Private Sub PictureBox1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox1.Click + Dim xlApp As Excel.Application + Dim xlBook As Excel.Workbook + Dim xlSheet1 As Excel.Worksheet + + + xlApp = New Excel.Application ' CreateObject("Excel.Application") + xlBook = xlApp.Workbooks.Open("c:\out.xls") + xlSheet1 = xlBook.Worksheets(1) '//첫번째 시트로고정 + + Dim Rng As Excel.Range = xlSheet1.Range("A1") '//Offset으로사용할것이므로 0,0셀을 선택한다 + xlApp.Visible = True + MsgBox("가져오기완료", MsgBoxStyle.Information, "확인") + + '//Dispos Excel Object + 'xlBook.displayalerts = False + xlBook.Saved = True + xlBook.Close() + xlApp.Application.Quit() + xlApp = Nothing + xlBook = Nothing + xlSheet1 = Nothing + + + Me.Close() + + ' Process.Start(M + End Sub +End Class \ No newline at end of file diff --git a/ArinWarev1/Forms_Input/Frm_Bunbae.Designer.vb b/ArinWarev1/Forms_Input/Frm_Bunbae.Designer.vb new file mode 100644 index 0000000..077e394 --- /dev/null +++ b/ArinWarev1/Forms_Input/Frm_Bunbae.Designer.vb @@ -0,0 +1,959 @@ + _ +Partial Class Frm_Bunbae + Inherits CForm + + 'Form은 Dispose를 재정의하여 구성 요소 목록을 정리합니다. + _ + Protected Overrides Sub Dispose(ByVal disposing As Boolean) + Try + If disposing AndAlso components IsNot Nothing Then + components.Dispose() + End If + Finally + MyBase.Dispose(disposing) + End Try + End Sub + + 'Windows Form 디자이너에 필요합니다. + Private components As System.ComponentModel.IContainer + + '참고: 다음 프로시저는 Windows Form 디자이너에 필요합니다. + '수정하려면 Windows Form 디자이너를 사용하십시오. + '코드 편집기를 사용하여 수정하지 마십시오. + _ + Private Sub InitializeComponent() + Me.components = New System.ComponentModel.Container() + Dim Label1 As System.Windows.Forms.Label + Dim Label2 As System.Windows.Forms.Label + Dim Label3 As System.Windows.Forms.Label + Dim Label4 As System.Windows.Forms.Label + Dim Label19 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 Label25 As System.Windows.Forms.Label + Dim Label26 As System.Windows.Forms.Label + Dim Label27 As System.Windows.Forms.Label + Dim Label28 As System.Windows.Forms.Label + Dim Label29 As System.Windows.Forms.Label + Dim Label30 As System.Windows.Forms.Label + Dim Label31 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 resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(Frm_Bunbae)) + Me.bs = New System.Windows.Forms.BindingSource(Me.components) + Me.DS = New Eco2Ar.DS() + Me.GroupBox2 = New System.Windows.Forms.GroupBox() + Me.설정점에서의온도차NTb = New Eco2Ar.MyTb() + Me.Label6 = New System.Windows.Forms.Label() + Me.제어밸브압력손실NTb = New Eco2Ar.MyTb() + Me.펌프동력NTb1 = New Eco2Ar.MyTb() + Me.사용기기압력손실NTb = New Eco2Ar.MyTb() + Me.개별저항비율NTb = New Eco2Ar.MyTb() + Me.생산기기압력손실NTb = New Eco2Ar.MyTb() + Me.배관의압력손실NTb = New Eco2Ar.MyTb() + Me.공급범위의길이NTb = New Eco2Ar.MyTb() + Me.공급범위의넓이NTb = New Eco2Ar.MyTb() + Me.층고NTb1 = New Eco2Ar.MyTb() + Me.펌프운전제어유무ComboBox = New Eco2Ar.MyCmb() + Me.열층의수NTb = New Eco2Ar.MyTb() + Me.급수온도NTb = New Eco2Ar.MyTb() + Me.환수온도NTb = New Eco2Ar.MyTb() + Me.PictureBox3 = New System.Windows.Forms.PictureBox() + Me.GroupBox3 = New System.Windows.Forms.GroupBox() + Me.Label7 = New System.Windows.Forms.Label() + Me.냉매의점도NTb = New Eco2Ar.MyTb() + Me.냉매방식ComboBox = New Eco2Ar.MyCmb() + Me.냉매의밀도NTb = New Eco2Ar.MyTb() + Me.냉매의비열NTb = New Eco2Ar.MyTb() + Me.PictureBox2 = New System.Windows.Forms.PictureBox() + Me.SplitContainer1 = New System.Windows.Forms.SplitContainer() + Me.dv = New CEnergy.arindv() + 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() + Me.bt_Del = New System.Windows.Forms.ToolStripButton() + Me.bt_cancel = New System.Windows.Forms.ToolStripButton() + Me.ToolStripSeparator1 = New System.Windows.Forms.ToolStripSeparator() + Me.lbl_pos = New System.Windows.Forms.ToolStripLabel() + Me.ToolStripSeparator2 = New System.Windows.Forms.ToolStripSeparator() + Me.lb_code = New System.Windows.Forms.ToolStripLabel() + Me.Label8 = New System.Windows.Forms.Label() + Me.PictureBox5 = New System.Windows.Forms.PictureBox() + Me.Label15 = New System.Windows.Forms.Label() + Me.PictureBox4 = New System.Windows.Forms.PictureBox() + Me.GroupBox4 = New System.Windows.Forms.GroupBox() + Me.GroupBox1 = New System.Windows.Forms.GroupBox() + Me.Label21 = New System.Windows.Forms.Label() + Me.냉동기ComboBox = New Eco2Ar.MyCmb() + Me.PictureBox1 = New System.Windows.Forms.PictureBox() + Me.DataGridViewTextBoxColumn1 = New System.Windows.Forms.DataGridViewTextBoxColumn() + Label1 = New System.Windows.Forms.Label() + Label2 = New System.Windows.Forms.Label() + Label3 = New System.Windows.Forms.Label() + Label4 = New System.Windows.Forms.Label() + Label19 = New System.Windows.Forms.Label() + Label22 = New System.Windows.Forms.Label() + Label23 = New System.Windows.Forms.Label() + Label24 = New System.Windows.Forms.Label() + Label25 = New System.Windows.Forms.Label() + Label26 = New System.Windows.Forms.Label() + Label27 = New System.Windows.Forms.Label() + Label28 = New System.Windows.Forms.Label() + Label29 = New System.Windows.Forms.Label() + Label30 = New System.Windows.Forms.Label() + Label31 = New System.Windows.Forms.Label() + Label32 = New System.Windows.Forms.Label() + Label33 = New System.Windows.Forms.Label() + Label34 = New System.Windows.Forms.Label() + CType(Me.bs, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.DS, System.ComponentModel.ISupportInitialize).BeginInit() + Me.GroupBox2.SuspendLayout() + CType(Me.PictureBox3, System.ComponentModel.ISupportInitialize).BeginInit() + Me.GroupBox3.SuspendLayout() + CType(Me.PictureBox2, System.ComponentModel.ISupportInitialize).BeginInit() + 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.bn, System.ComponentModel.ISupportInitialize).BeginInit() + Me.bn.SuspendLayout() + CType(Me.PictureBox5, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.PictureBox4, System.ComponentModel.ISupportInitialize).BeginInit() + Me.GroupBox4.SuspendLayout() + Me.GroupBox1.SuspendLayout() + CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit() + Me.SuspendLayout() + ' + 'Label1 + ' + Label1.AutoSize = True + Label1.BackColor = System.Drawing.Color.FromArgb(CType(CType(243, Byte), Integer), CType(CType(244, Byte), Integer), CType(CType(246, Byte), Integer)) + Label1.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label1.Location = New System.Drawing.Point(22, 42) + Label1.Name = "Label1" + Label1.Size = New System.Drawing.Size(92, 12) + Label1.TabIndex = 149 + Label1.Text = "1.사용된 방식:" + ' + 'Label2 + ' + Label2.AutoSize = True + Label2.BackColor = System.Drawing.Color.FromArgb(CType(CType(243, Byte), Integer), CType(CType(244, Byte), Integer), CType(CType(246, Byte), Integer)) + Label2.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label2.Location = New System.Drawing.Point(285, 42) + Label2.Name = "Label2" + Label2.Size = New System.Drawing.Size(93, 12) + Label2.TabIndex = 150 + Label2.Text = "2. 비 열:" + ' + 'Label3 + ' + Label3.AutoSize = True + Label3.BackColor = System.Drawing.Color.FromArgb(CType(CType(243, Byte), Integer), CType(CType(244, Byte), Integer), CType(CType(246, Byte), Integer)) + Label3.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label3.Location = New System.Drawing.Point(22, 71) + Label3.Name = "Label3" + Label3.Size = New System.Drawing.Size(93, 12) + Label3.TabIndex = 151 + Label3.Text = "3. 밀 도:" + ' + 'Label4 + ' + Label4.AutoSize = True + Label4.BackColor = System.Drawing.Color.FromArgb(CType(CType(243, Byte), Integer), CType(CType(244, Byte), Integer), CType(CType(246, Byte), Integer)) + Label4.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label4.Location = New System.Drawing.Point(285, 71) + Label4.Name = "Label4" + Label4.Size = New System.Drawing.Size(93, 12) + Label4.TabIndex = 152 + Label4.Text = "4. 점 도:" + ' + 'Label19 + ' + Label19.AutoSize = True + Label19.BackColor = System.Drawing.Color.FromArgb(CType(CType(219, Byte), Integer), CType(CType(221, Byte), Integer), CType(CType(223, Byte), Integer)) + Label19.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label19.Location = New System.Drawing.Point(10, 45) + Label19.Name = "Label19" + Label19.Size = New System.Drawing.Size(149, 12) + Label19.TabIndex = 132 + Label19.Text = "1.펌프운전의 제어 유무:" + ' + 'Label22 + ' + Label22.AutoSize = True + Label22.BackColor = System.Drawing.Color.FromArgb(CType(CType(219, Byte), Integer), CType(CType(221, Byte), Integer), CType(CType(223, Byte), Integer)) + Label22.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label22.Location = New System.Drawing.Point(277, 210) + Label22.Name = "Label22" + Label22.Size = New System.Drawing.Size(176, 12) + Label22.TabIndex = 145 + Label22.Text = "14.제어밸브 압력손실[kPa]:" + ' + 'Label23 + ' + Label23.AutoSize = True + Label23.BackColor = System.Drawing.Color.FromArgb(CType(CType(219, Byte), Integer), CType(CType(221, Byte), Integer), CType(CType(223, Byte), Integer)) + Label23.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label23.Location = New System.Drawing.Point(10, 72) + Label23.Name = "Label23" + Label23.Size = New System.Drawing.Size(113, 12) + Label23.TabIndex = 133 + Label23.Text = "2.급 수 온 도[C]:" + ' + 'Label24 + ' + Label24.AutoSize = True + Label24.BackColor = System.Drawing.Color.FromArgb(CType(CType(219, Byte), Integer), CType(CType(221, Byte), Integer), CType(CType(223, Byte), Integer)) + Label24.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label24.Location = New System.Drawing.Point(277, 181) + Label24.Name = "Label24" + Label24.Size = New System.Drawing.Size(176, 12) + Label24.TabIndex = 144 + Label24.Text = "13.사용기기 압력손실[kPa]:" + ' + 'Label25 + ' + Label25.AutoSize = True + Label25.BackColor = System.Drawing.Color.FromArgb(CType(CType(219, Byte), Integer), CType(CType(221, Byte), Integer), CType(CType(223, Byte), Integer)) + Label25.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label25.Location = New System.Drawing.Point(10, 98) + Label25.Name = "Label25" + Label25.Size = New System.Drawing.Size(113, 12) + Label25.TabIndex = 134 + Label25.Text = "3.환 수 온 도[C]:" + ' + 'Label26 + ' + Label26.AutoSize = True + Label26.BackColor = System.Drawing.Color.FromArgb(CType(CType(219, Byte), Integer), CType(CType(221, Byte), Integer), CType(CType(223, Byte), Integer)) + Label26.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label26.Location = New System.Drawing.Point(276, 153) + Label26.Name = "Label26" + Label26.Size = New System.Drawing.Size(176, 12) + Label26.TabIndex = 143 + Label26.Text = "12.생산기기 압력손실[kPa]:" + ' + 'Label27 + ' + Label27.AutoSize = True + Label27.BackColor = System.Drawing.Color.FromArgb(CType(CType(219, Byte), Integer), CType(CType(221, Byte), Integer), CType(CType(223, Byte), Integer)) + Label27.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label27.Location = New System.Drawing.Point(10, 124) + Label27.Name = "Label27" + Label27.Size = New System.Drawing.Size(144, 12) + Label27.TabIndex = 135 + Label27.Text = "4.설정점에서의 온도차:" + ' + 'Label28 + ' + Label28.AutoSize = True + Label28.BackColor = System.Drawing.Color.FromArgb(CType(CType(219, Byte), Integer), CType(CType(221, Byte), Integer), CType(CType(223, Byte), Integer)) + Label28.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label28.Location = New System.Drawing.Point(278, 125) + Label28.Name = "Label28" + Label28.Size = New System.Drawing.Size(169, 12) + Label28.TabIndex = 142 + Label28.Text = "11.층 고[m]:" + ' + 'Label29 + ' + Label29.AutoSize = True + Label29.BackColor = System.Drawing.Color.FromArgb(CType(CType(219, Byte), Integer), CType(CType(221, Byte), Integer), CType(CType(223, Byte), Integer)) + Label29.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label29.Location = New System.Drawing.Point(276, 98) + Label29.Name = "Label29" + Label29.Size = New System.Drawing.Size(161, 12) + Label29.TabIndex = 141 + Label29.Text = "10.열을 공급하는 층의 수:" + ' + 'Label30 + ' + Label30.AutoSize = True + Label30.BackColor = System.Drawing.Color.FromArgb(CType(CType(219, Byte), Integer), CType(CType(221, Byte), Integer), CType(CType(223, Byte), Integer)) + Label30.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label30.Location = New System.Drawing.Point(285, 70) + Label30.Name = "Label30" + Label30.Size = New System.Drawing.Size(142, 12) + Label30.TabIndex = 140 + Label30.Text = "9.공급범위의 너비[m]:" + ' + 'Label31 + ' + Label31.AutoSize = True + Label31.BackColor = System.Drawing.Color.FromArgb(CType(CType(219, Byte), Integer), CType(CType(221, Byte), Integer), CType(CType(223, Byte), Integer)) + Label31.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label31.Location = New System.Drawing.Point(285, 42) + Label31.Name = "Label31" + Label31.Size = New System.Drawing.Size(142, 12) + Label31.TabIndex = 139 + Label31.Text = "8.공급범위의 길이[m]:" + ' + 'Label32 + ' + Label32.AutoSize = True + Label32.BackColor = System.Drawing.Color.FromArgb(CType(CType(219, Byte), Integer), CType(CType(221, Byte), Integer), CType(CType(223, Byte), Integer)) + Label32.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label32.Location = New System.Drawing.Point(10, 206) + Label32.Name = "Label32" + Label32.Size = New System.Drawing.Size(114, 12) + Label32.TabIndex = 138 + Label32.Text = "7.펌 프 동 력[W]:" + ' + 'Label33 + ' + Label33.AutoSize = True + Label33.BackColor = System.Drawing.Color.FromArgb(CType(CType(219, Byte), Integer), CType(CType(221, Byte), Integer), CType(CType(223, Byte), Integer)) + Label33.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label33.Location = New System.Drawing.Point(10, 178) + Label33.Name = "Label33" + Label33.Size = New System.Drawing.Size(126, 12) + Label33.TabIndex = 137 + Label33.Text = "6.개별저항 비율[-]:" + ' + 'Label34 + ' + Label34.AutoSize = True + Label34.BackColor = System.Drawing.Color.FromArgb(CType(CType(219, Byte), Integer), CType(CType(221, Byte), Integer), CType(CType(223, Byte), Integer)) + Label34.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label34.Location = New System.Drawing.Point(10, 150) + Label34.Name = "Label34" + Label34.Size = New System.Drawing.Size(160, 12) + Label34.TabIndex = 136 + Label34.Text = "5.배관 압력손실[kPa/m]:" + ' + 'bs + ' + Me.bs.DataMember = "tbl_bunbae" + Me.bs.DataSource = Me.DS + Me.bs.Filter = "code <> '0'" + ' + 'DS + ' + Me.DS.DataSetName = "DS" + Me.DS.SchemaSerializationMode = System.Data.SchemaSerializationMode.IncludeSchema + ' + 'GroupBox2 + ' + Me.GroupBox2.Controls.Add(Me.설정점에서의온도차NTb) + Me.GroupBox2.Controls.Add(Me.Label6) + Me.GroupBox2.Controls.Add(Label19) + Me.GroupBox2.Controls.Add(Label22) + Me.GroupBox2.Controls.Add(Label23) + Me.GroupBox2.Controls.Add(Label24) + Me.GroupBox2.Controls.Add(Label25) + Me.GroupBox2.Controls.Add(Label26) + Me.GroupBox2.Controls.Add(Label27) + Me.GroupBox2.Controls.Add(Label28) + Me.GroupBox2.Controls.Add(Label29) + Me.GroupBox2.Controls.Add(Label30) + Me.GroupBox2.Controls.Add(Label31) + Me.GroupBox2.Controls.Add(Label32) + Me.GroupBox2.Controls.Add(Label33) + Me.GroupBox2.Controls.Add(Label34) + Me.GroupBox2.Controls.Add(Me.제어밸브압력손실NTb) + Me.GroupBox2.Controls.Add(Me.펌프동력NTb1) + Me.GroupBox2.Controls.Add(Me.사용기기압력손실NTb) + Me.GroupBox2.Controls.Add(Me.개별저항비율NTb) + Me.GroupBox2.Controls.Add(Me.생산기기압력손실NTb) + Me.GroupBox2.Controls.Add(Me.배관의압력손실NTb) + Me.GroupBox2.Controls.Add(Me.공급범위의길이NTb) + Me.GroupBox2.Controls.Add(Me.공급범위의넓이NTb) + Me.GroupBox2.Controls.Add(Me.층고NTb1) + Me.GroupBox2.Controls.Add(Me.펌프운전제어유무ComboBox) + Me.GroupBox2.Controls.Add(Me.열층의수NTb) + Me.GroupBox2.Controls.Add(Me.급수온도NTb) + Me.GroupBox2.Controls.Add(Me.환수온도NTb) + Me.GroupBox2.Controls.Add(Me.PictureBox3) + Me.GroupBox2.Location = New System.Drawing.Point(10, 123) + Me.GroupBox2.Name = "GroupBox2" + Me.GroupBox2.Size = New System.Drawing.Size(562, 238) + Me.GroupBox2.TabIndex = 143 + Me.GroupBox2.TabStop = False + ' + '설정점에서의온도차NTb + ' + Me.설정점에서의온도차NTb.BackColor = System.Drawing.Color.DarkGray + Me.설정점에서의온도차NTb.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bs, "설정점에서의온도차", True)) + Me.설정점에서의온도차NTb.Location = New System.Drawing.Point(175, 118) + Me.설정점에서의온도차NTb.Name = "설정점에서의온도차NTb" + Me.설정점에서의온도차NTb.NectControl = Nothing + Me.설정점에서의온도차NTb.Size = New System.Drawing.Size(87, 21) + Me.설정점에서의온도차NTb.TabIndex = 8 + Me.설정점에서의온도차NTb.TabStop = False + Me.설정점에서의온도차NTb.TextAlign = System.Windows.Forms.HorizontalAlignment.Right + Me.설정점에서의온도차NTb.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + ' + 'Label6 + ' + Me.Label6.AutoSize = True + Me.Label6.BackColor = System.Drawing.Color.FromArgb(CType(CType(219, Byte), Integer), CType(CType(221, Byte), Integer), CType(CType(223, Byte), Integer)) + Me.Label6.Location = New System.Drawing.Point(10, 17) + Me.Label6.Name = "Label6" + Me.Label6.Size = New System.Drawing.Size(71, 12) + Me.Label6.TabIndex = 153 + Me.Label6.Text = "[기타정보]" + ' + '제어밸브압력손실NTb + ' + Me.제어밸브압력손실NTb.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bs, "제어밸브압력손실", True)) + Me.제어밸브압력손실NTb.Location = New System.Drawing.Point(463, 206) + Me.제어밸브압력손실NTb.Name = "제어밸브압력손실NTb" + Me.제어밸브압력손실NTb.NectControl = Nothing + Me.제어밸브압력손실NTb.Size = New System.Drawing.Size(75, 21) + Me.제어밸브압력손실NTb.TabIndex = 18 + Me.제어밸브압력손실NTb.TextAlign = System.Windows.Forms.HorizontalAlignment.Right + Me.제어밸브압력손실NTb.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + ' + '펌프동력NTb1 + ' + Me.펌프동력NTb1.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bs, "펌프동력", True)) + Me.펌프동력NTb1.Location = New System.Drawing.Point(175, 202) + Me.펌프동력NTb1.Name = "펌프동력NTb1" + Me.펌프동력NTb1.NectControl = Nothing + Me.펌프동력NTb1.Size = New System.Drawing.Size(87, 21) + Me.펌프동력NTb1.TabIndex = 11 + Me.펌프동력NTb1.TextAlign = System.Windows.Forms.HorizontalAlignment.Right + Me.펌프동력NTb1.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + ' + '사용기기압력손실NTb + ' + Me.사용기기압력손실NTb.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bs, "사용기기압력손실", True)) + Me.사용기기압력손실NTb.Location = New System.Drawing.Point(463, 178) + Me.사용기기압력손실NTb.Name = "사용기기압력손실NTb" + Me.사용기기압력손실NTb.NectControl = Nothing + Me.사용기기압력손실NTb.Size = New System.Drawing.Size(75, 21) + Me.사용기기압력손실NTb.TabIndex = 17 + Me.사용기기압력손실NTb.TextAlign = System.Windows.Forms.HorizontalAlignment.Right + Me.사용기기압력손실NTb.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + ' + '개별저항비율NTb + ' + Me.개별저항비율NTb.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bs, "개별저항비율", True)) + Me.개별저항비율NTb.Location = New System.Drawing.Point(175, 174) + Me.개별저항비율NTb.Name = "개별저항비율NTb" + Me.개별저항비율NTb.NectControl = Nothing + Me.개별저항비율NTb.Size = New System.Drawing.Size(87, 21) + Me.개별저항비율NTb.TabIndex = 10 + Me.개별저항비율NTb.TextAlign = System.Windows.Forms.HorizontalAlignment.Right + Me.개별저항비율NTb.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + ' + '생산기기압력손실NTb + ' + Me.생산기기압력손실NTb.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bs, "생산기기압력손실", True)) + Me.생산기기압력손실NTb.Location = New System.Drawing.Point(463, 150) + Me.생산기기압력손실NTb.Name = "생산기기압력손실NTb" + Me.생산기기압력손실NTb.NectControl = Nothing + Me.생산기기압력손실NTb.Size = New System.Drawing.Size(75, 21) + Me.생산기기압력손실NTb.TabIndex = 16 + Me.생산기기압력손실NTb.TextAlign = System.Windows.Forms.HorizontalAlignment.Right + Me.생산기기압력손실NTb.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + ' + '배관의압력손실NTb + ' + Me.배관의압력손실NTb.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bs, "배관의압력손실", True)) + Me.배관의압력손실NTb.Location = New System.Drawing.Point(175, 146) + Me.배관의압력손실NTb.Name = "배관의압력손실NTb" + Me.배관의압력손실NTb.NectControl = Nothing + Me.배관의압력손실NTb.Size = New System.Drawing.Size(87, 21) + Me.배관의압력손실NTb.TabIndex = 9 + Me.배관의압력손실NTb.TextAlign = System.Windows.Forms.HorizontalAlignment.Right + Me.배관의압력손실NTb.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + ' + '공급범위의길이NTb + ' + Me.공급범위의길이NTb.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bs, "공급범위의길이", True)) + Me.공급범위의길이NTb.Location = New System.Drawing.Point(463, 38) + Me.공급범위의길이NTb.Name = "공급범위의길이NTb" + Me.공급범위의길이NTb.NectControl = Nothing + Me.공급범위의길이NTb.Size = New System.Drawing.Size(75, 21) + Me.공급범위의길이NTb.TabIndex = 12 + Me.공급범위의길이NTb.TextAlign = System.Windows.Forms.HorizontalAlignment.Right + Me.공급범위의길이NTb.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + ' + '공급범위의넓이NTb + ' + Me.공급범위의넓이NTb.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bs, "공급범위의넓이", True)) + Me.공급범위의넓이NTb.Location = New System.Drawing.Point(463, 66) + Me.공급범위의넓이NTb.Name = "공급범위의넓이NTb" + Me.공급범위의넓이NTb.NectControl = Nothing + Me.공급범위의넓이NTb.Size = New System.Drawing.Size(75, 21) + Me.공급범위의넓이NTb.TabIndex = 13 + Me.공급범위의넓이NTb.TextAlign = System.Windows.Forms.HorizontalAlignment.Right + Me.공급범위의넓이NTb.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + ' + '층고NTb1 + ' + Me.층고NTb1.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bs, "층고", True)) + Me.층고NTb1.Location = New System.Drawing.Point(463, 122) + Me.층고NTb1.Name = "층고NTb1" + Me.층고NTb1.NectControl = Nothing + Me.층고NTb1.Size = New System.Drawing.Size(75, 21) + Me.층고NTb1.TabIndex = 15 + Me.층고NTb1.TextAlign = System.Windows.Forms.HorizontalAlignment.Right + Me.층고NTb1.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + ' + '펌프운전제어유무ComboBox + ' + Me.펌프운전제어유무ComboBox.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList + Me.펌프운전제어유무ComboBox.FormattingEnabled = True + Me.펌프운전제어유무ComboBox.Location = New System.Drawing.Point(175, 38) + Me.펌프운전제어유무ComboBox.Name = "펌프운전제어유무ComboBox" + Me.펌프운전제어유무ComboBox.NectControl = Nothing + Me.펌프운전제어유무ComboBox.Size = New System.Drawing.Size(87, 20) + Me.펌프운전제어유무ComboBox.TabIndex = 5 + ' + '열층의수NTb + ' + Me.열층의수NTb.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bs, "열층의수", True)) + Me.열층의수NTb.Location = New System.Drawing.Point(463, 94) + Me.열층의수NTb.Name = "열층의수NTb" + Me.열층의수NTb.NectControl = Nothing + Me.열층의수NTb.Size = New System.Drawing.Size(75, 21) + Me.열층의수NTb.TabIndex = 14 + Me.열층의수NTb.TextAlign = System.Windows.Forms.HorizontalAlignment.Right + Me.열층의수NTb.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + ' + '급수온도NTb + ' + Me.급수온도NTb.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bs, "급수온도", True)) + Me.급수온도NTb.Location = New System.Drawing.Point(175, 66) + Me.급수온도NTb.Name = "급수온도NTb" + Me.급수온도NTb.NectControl = Nothing + Me.급수온도NTb.Size = New System.Drawing.Size(87, 21) + Me.급수온도NTb.TabIndex = 6 + Me.급수온도NTb.TextAlign = System.Windows.Forms.HorizontalAlignment.Right + Me.급수온도NTb.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + ' + '환수온도NTb + ' + Me.환수온도NTb.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bs, "환수온도", True)) + Me.환수온도NTb.Location = New System.Drawing.Point(175, 92) + Me.환수온도NTb.Name = "환수온도NTb" + Me.환수온도NTb.NectControl = Nothing + Me.환수온도NTb.Size = New System.Drawing.Size(87, 21) + Me.환수온도NTb.TabIndex = 7 + Me.환수온도NTb.TextAlign = System.Windows.Forms.HorizontalAlignment.Right + Me.환수온도NTb.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + ' + 'PictureBox3 + ' + Me.PictureBox3.BackColor = System.Drawing.Color.FromArgb(CType(CType(219, Byte), Integer), CType(CType(221, Byte), Integer), CType(CType(223, Byte), Integer)) + Me.PictureBox3.Location = New System.Drawing.Point(2, 10) + Me.PictureBox3.Name = "PictureBox3" + Me.PictureBox3.Size = New System.Drawing.Size(556, 224) + Me.PictureBox3.TabIndex = 124 + Me.PictureBox3.TabStop = False + ' + 'GroupBox3 + ' + Me.GroupBox3.Controls.Add(Me.Label7) + Me.GroupBox3.Controls.Add(Label1) + Me.GroupBox3.Controls.Add(Label2) + Me.GroupBox3.Controls.Add(Me.냉매의점도NTb) + Me.GroupBox3.Controls.Add(Label3) + Me.GroupBox3.Controls.Add(Me.냉매방식ComboBox) + Me.GroupBox3.Controls.Add(Label4) + Me.GroupBox3.Controls.Add(Me.냉매의밀도NTb) + Me.GroupBox3.Controls.Add(Me.냉매의비열NTb) + Me.GroupBox3.Controls.Add(Me.PictureBox2) + Me.GroupBox3.Location = New System.Drawing.Point(10, 20) + Me.GroupBox3.Name = "GroupBox3" + Me.GroupBox3.Size = New System.Drawing.Size(562, 97) + Me.GroupBox3.TabIndex = 143 + Me.GroupBox3.TabStop = False + ' + 'Label7 + ' + Me.Label7.AutoSize = True + Me.Label7.BackColor = System.Drawing.Color.FromArgb(CType(CType(243, Byte), Integer), CType(CType(244, Byte), Integer), CType(CType(246, Byte), Integer)) + Me.Label7.Location = New System.Drawing.Point(6, 17) + Me.Label7.Name = "Label7" + Me.Label7.Size = New System.Drawing.Size(71, 12) + Me.Label7.TabIndex = 153 + Me.Label7.Text = "[냉매설정]" + ' + '냉매의점도NTb + ' + Me.냉매의점도NTb.BackColor = System.Drawing.Color.FromArgb(CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer)) + Me.냉매의점도NTb.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bs, "냉매의점도", True)) + Me.냉매의점도NTb.Enabled = False + Me.냉매의점도NTb.Location = New System.Drawing.Point(421, 67) + Me.냉매의점도NTb.Name = "냉매의점도NTb" + Me.냉매의점도NTb.NectControl = Nothing + Me.냉매의점도NTb.Size = New System.Drawing.Size(85, 21) + Me.냉매의점도NTb.TabIndex = 4 + Me.냉매의점도NTb.TextAlign = System.Windows.Forms.HorizontalAlignment.Right + Me.냉매의점도NTb.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + ' + '냉매방식ComboBox + ' + Me.냉매방식ComboBox.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList + Me.냉매방식ComboBox.FormattingEnabled = True + Me.냉매방식ComboBox.Location = New System.Drawing.Point(175, 37) + Me.냉매방식ComboBox.Name = "냉매방식ComboBox" + Me.냉매방식ComboBox.NectControl = Nothing + Me.냉매방식ComboBox.Size = New System.Drawing.Size(85, 20) + Me.냉매방식ComboBox.TabIndex = 1 + ' + '냉매의밀도NTb + ' + Me.냉매의밀도NTb.BackColor = System.Drawing.Color.FromArgb(CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer)) + Me.냉매의밀도NTb.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bs, "냉매의밀도", True)) + Me.냉매의밀도NTb.Enabled = False + Me.냉매의밀도NTb.Location = New System.Drawing.Point(175, 67) + Me.냉매의밀도NTb.Name = "냉매의밀도NTb" + Me.냉매의밀도NTb.NectControl = Nothing + Me.냉매의밀도NTb.Size = New System.Drawing.Size(85, 21) + Me.냉매의밀도NTb.TabIndex = 3 + Me.냉매의밀도NTb.TextAlign = System.Windows.Forms.HorizontalAlignment.Right + Me.냉매의밀도NTb.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + ' + '냉매의비열NTb + ' + Me.냉매의비열NTb.BackColor = System.Drawing.Color.FromArgb(CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer)) + Me.냉매의비열NTb.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bs, "냉매의비열", True)) + Me.냉매의비열NTb.Enabled = False + Me.냉매의비열NTb.Location = New System.Drawing.Point(421, 40) + Me.냉매의비열NTb.Name = "냉매의비열NTb" + Me.냉매의비열NTb.NectControl = Nothing + Me.냉매의비열NTb.Size = New System.Drawing.Size(85, 21) + Me.냉매의비열NTb.TabIndex = 2 + Me.냉매의비열NTb.TextAlign = System.Windows.Forms.HorizontalAlignment.Right + Me.냉매의비열NTb.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + ' + 'PictureBox2 + ' + Me.PictureBox2.BackColor = System.Drawing.Color.FromArgb(CType(CType(243, Byte), Integer), CType(CType(244, Byte), Integer), CType(CType(246, Byte), Integer)) + Me.PictureBox2.Location = New System.Drawing.Point(2, 10) + Me.PictureBox2.Name = "PictureBox2" + Me.PictureBox2.Size = New System.Drawing.Size(556, 83) + Me.PictureBox2.TabIndex = 154 + Me.PictureBox2.TabStop = False + ' + '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.BackColor = System.Drawing.Color.White + Me.SplitContainer1.Panel2.Controls.Add(Me.Label8) + Me.SplitContainer1.Panel2.Controls.Add(Me.PictureBox5) + Me.SplitContainer1.Panel2.Controls.Add(Me.Label15) + Me.SplitContainer1.Panel2.Controls.Add(Me.PictureBox4) + Me.SplitContainer1.Panel2.Controls.Add(Me.GroupBox4) + Me.SplitContainer1.Panel2.Controls.Add(Me.GroupBox1) + Me.SplitContainer1.Size = New System.Drawing.Size(818, 574) + Me.SplitContainer1.SplitterDistance = 212 + Me.SplitContainer1.TabIndex = 125 + ' + '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.FromArgb(CType(CType(245, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(246, Byte), Integer)) + 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, 532) + Me.dv.TabIndex = 0 + ' + '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("돋움", 9.0!, 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, 532) + 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, 40) + Me.bn.TabIndex = 1 + Me.bn.Text = "BindingNavigator1" + ' + 'lbl_count + ' + Me.lbl_count.Font = New System.Drawing.Font("돋움", 8.0!, System.Drawing.FontStyle.Bold) + Me.lbl_count.Name = "lbl_count" + Me.lbl_count.Size = New System.Drawing.Size(27, 37) + 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, 37) + 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, 37) + 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, 37) + 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, 40) + ' + 'lbl_pos + ' + Me.lbl_pos.Font = New System.Drawing.Font("돋움", 8.0!, System.Drawing.FontStyle.Bold) + Me.lbl_pos.Name = "lbl_pos" + Me.lbl_pos.Size = New System.Drawing.Size(12, 37) + Me.lbl_pos.Text = "0" + ' + 'ToolStripSeparator2 + ' + Me.ToolStripSeparator2.Name = "ToolStripSeparator2" + Me.ToolStripSeparator2.Size = New System.Drawing.Size(6, 40) + ' + 'lb_code + ' + Me.lb_code.Name = "lb_code" + Me.lb_code.Size = New System.Drawing.Size(47, 37) + Me.lb_code.Text = "[0000]" + ' + 'Label8 + ' + Me.Label8.AutoSize = True + Me.Label8.BackColor = System.Drawing.Color.FromArgb(CType(CType(116, Byte), Integer), CType(CType(158, Byte), Integer), CType(CType(209, Byte), Integer)) + Me.Label8.ForeColor = System.Drawing.Color.White + Me.Label8.Location = New System.Drawing.Point(35, 152) + Me.Label8.Name = "Label8" + Me.Label8.Size = New System.Drawing.Size(57, 12) + Me.Label8.TabIndex = 152 + Me.Label8.Text = "분배범위" + ' + 'PictureBox5 + ' + Me.PictureBox5.BackgroundImage = CType(resources.GetObject("PictureBox5.BackgroundImage"), System.Drawing.Image) + Me.PictureBox5.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch + Me.PictureBox5.Location = New System.Drawing.Point(16, 141) + Me.PictureBox5.Name = "PictureBox5" + Me.PictureBox5.Size = New System.Drawing.Size(131, 30) + Me.PictureBox5.TabIndex = 151 + Me.PictureBox5.TabStop = False + ' + 'Label15 + ' + Me.Label15.AutoSize = True + Me.Label15.BackColor = System.Drawing.Color.FromArgb(CType(CType(116, Byte), Integer), CType(CType(158, Byte), Integer), CType(CType(209, Byte), Integer)) + Me.Label15.ForeColor = System.Drawing.Color.White + Me.Label15.Location = New System.Drawing.Point(35, 33) + Me.Label15.Name = "Label15" + Me.Label15.Size = New System.Drawing.Size(88, 12) + Me.Label15.TabIndex = 152 + Me.Label15.Text = "분배범위 냉방" + ' + 'PictureBox4 + ' + Me.PictureBox4.BackgroundImage = CType(resources.GetObject("PictureBox4.BackgroundImage"), System.Drawing.Image) + Me.PictureBox4.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch + Me.PictureBox4.Location = New System.Drawing.Point(16, 22) + Me.PictureBox4.Name = "PictureBox4" + Me.PictureBox4.Size = New System.Drawing.Size(131, 30) + Me.PictureBox4.TabIndex = 151 + Me.PictureBox4.TabStop = False + ' + 'GroupBox4 + ' + Me.GroupBox4.Controls.Add(Me.GroupBox2) + Me.GroupBox4.Controls.Add(Me.GroupBox3) + Me.GroupBox4.Location = New System.Drawing.Point(15, 169) + Me.GroupBox4.Name = "GroupBox4" + Me.GroupBox4.Size = New System.Drawing.Size(574, 367) + Me.GroupBox4.TabIndex = 150 + Me.GroupBox4.TabStop = False + ' + 'GroupBox1 + ' + Me.GroupBox1.Controls.Add(Me.Label21) + Me.GroupBox1.Controls.Add(Me.냉동기ComboBox) + Me.GroupBox1.Controls.Add(Me.PictureBox1) + Me.GroupBox1.Location = New System.Drawing.Point(15, 50) + Me.GroupBox1.Name = "GroupBox1" + Me.GroupBox1.Size = New System.Drawing.Size(574, 52) + Me.GroupBox1.TabIndex = 148 + Me.GroupBox1.TabStop = False + ' + 'Label21 + ' + Me.Label21.AutoSize = True + Me.Label21.BackColor = System.Drawing.Color.FromArgb(CType(CType(219, Byte), Integer), CType(CType(221, Byte), Integer), CType(CType(223, Byte), Integer)) + Me.Label21.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Me.Label21.Location = New System.Drawing.Point(20, 22) + Me.Label21.Name = "Label21" + Me.Label21.Size = New System.Drawing.Size(82, 12) + Me.Label21.TabIndex = 122 + Me.Label21.Text = "＊냉 동 기:" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) + Me.Label21.TextAlign = System.Drawing.ContentAlignment.MiddleLeft + ' + '냉동기ComboBox + ' + Me.냉동기ComboBox.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList + Me.냉동기ComboBox.FormattingEnabled = True + Me.냉동기ComboBox.Location = New System.Drawing.Point(104, 19) + Me.냉동기ComboBox.Name = "냉동기ComboBox" + Me.냉동기ComboBox.NectControl = Nothing + Me.냉동기ComboBox.Size = New System.Drawing.Size(215, 20) + Me.냉동기ComboBox.TabIndex = 0 + ' + 'PictureBox1 + ' + 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(571, 40) + Me.PictureBox1.TabIndex = 124 + Me.PictureBox1.TabStop = False + ' + 'DataGridViewTextBoxColumn1 + ' + Me.DataGridViewTextBoxColumn1.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.Fill + Me.DataGridViewTextBoxColumn1.DataPropertyName = "설명" + Me.DataGridViewTextBoxColumn1.HeaderText = "설명" + Me.DataGridViewTextBoxColumn1.Name = "DataGridViewTextBoxColumn1" + Me.DataGridViewTextBoxColumn1.SortMode = System.Windows.Forms.DataGridViewColumnSortMode.Programmatic + ' + 'Frm_Bunbae + ' + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.None + Me.ClientSize = New System.Drawing.Size(818, 574) + Me.ControlBox = False + Me.Controls.Add(Me.SplitContainer1) + Me.Font = New System.Drawing.Font("돋움", 9.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.KeyPreview = True + Me.Name = "Frm_Bunbae" + Me.ShowInTaskbar = False + Me.StartPosition = System.Windows.Forms.FormStartPosition.Manual + Me.Text = "냉방분배시스템" + CType(Me.bs, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.DS, System.ComponentModel.ISupportInitialize).EndInit() + Me.GroupBox2.ResumeLayout(False) + Me.GroupBox2.PerformLayout() + CType(Me.PictureBox3, System.ComponentModel.ISupportInitialize).EndInit() + Me.GroupBox3.ResumeLayout(False) + Me.GroupBox3.PerformLayout() + CType(Me.PictureBox2, System.ComponentModel.ISupportInitialize).EndInit() + Me.SplitContainer1.Panel1.ResumeLayout(False) + Me.SplitContainer1.Panel2.ResumeLayout(False) + Me.SplitContainer1.Panel2.PerformLayout() + CType(Me.SplitContainer1, System.ComponentModel.ISupportInitialize).EndInit() + Me.SplitContainer1.ResumeLayout(False) + CType(Me.dv, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.bn, System.ComponentModel.ISupportInitialize).EndInit() + Me.bn.ResumeLayout(False) + Me.bn.PerformLayout() + CType(Me.PictureBox5, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.PictureBox4, System.ComponentModel.ISupportInitialize).EndInit() + Me.GroupBox4.ResumeLayout(False) + Me.GroupBox1.ResumeLayout(False) + Me.GroupBox1.PerformLayout() + CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).EndInit() + Me.ResumeLayout(False) + + End Sub + Friend WithEvents 제어밸브압력손실NTb As MyTb + Friend WithEvents 사용기기압력손실NTb As MyTb + Friend WithEvents 생산기기압력손실NTb As MyTb + Friend WithEvents 층고NTb1 As MyTb + Friend WithEvents 열층의수NTb As MyTb + Friend WithEvents 공급범위의넓이NTb As MyTb + Friend WithEvents 공급범위의길이NTb As MyTb + Friend WithEvents 펌프동력NTb1 As MyTb + Friend WithEvents 개별저항비율NTb As MyTb + Friend WithEvents 배관의압력손실NTb As MyTb + Friend WithEvents 냉매의점도NTb As MyTb + Friend WithEvents 냉매의밀도NTb As MyTb + Friend WithEvents 냉매의비열NTb As MyTb + Friend WithEvents 설정점에서의온도차NTb As MyTb + Friend WithEvents 환수온도NTb As MyTb + Friend WithEvents 급수온도NTb As MyTb + Public WithEvents DS As Eco2Ar.DS + Friend WithEvents bs As System.Windows.Forms.BindingSource + Friend WithEvents 펌프운전제어유무ComboBox As Eco2Ar.MyCmb + Friend WithEvents 냉매방식ComboBox As Eco2Ar.MyCmb + Friend WithEvents 냉동기ComboBox As Eco2Ar.MyCmb + Friend WithEvents GroupBox2 As System.Windows.Forms.GroupBox + Friend WithEvents GroupBox3 As System.Windows.Forms.GroupBox + Friend WithEvents SplitContainer1 As System.Windows.Forms.SplitContainer + Friend WithEvents bn As System.Windows.Forms.BindingNavigator + Friend WithEvents bt_add As System.Windows.Forms.ToolStripButton + Friend WithEvents bt_Del As System.Windows.Forms.ToolStripButton + Friend WithEvents bt_cancel As System.Windows.Forms.ToolStripButton + Friend WithEvents ToolStripSeparator1 As System.Windows.Forms.ToolStripSeparator + Friend WithEvents dv As CEnergy.arindv + Friend WithEvents lbl_count As System.Windows.Forms.ToolStripLabel + Friend WithEvents lbl_pos As System.Windows.Forms.ToolStripLabel + Friend WithEvents GroupBox4 As System.Windows.Forms.GroupBox + Friend WithEvents GroupBox1 As System.Windows.Forms.GroupBox + Friend WithEvents Label21 As System.Windows.Forms.Label + Friend WithEvents Label6 As System.Windows.Forms.Label + Friend WithEvents Label7 As System.Windows.Forms.Label + Friend WithEvents PictureBox1 As System.Windows.Forms.PictureBox + Friend WithEvents PictureBox3 As System.Windows.Forms.PictureBox + Friend WithEvents PictureBox2 As System.Windows.Forms.PictureBox + Friend WithEvents Label15 As System.Windows.Forms.Label + Friend WithEvents PictureBox4 As System.Windows.Forms.PictureBox + Friend WithEvents Label8 As System.Windows.Forms.Label + Friend WithEvents PictureBox5 As System.Windows.Forms.PictureBox + Friend WithEvents ToolStripSeparator2 As System.Windows.Forms.ToolStripSeparator + Friend WithEvents lb_code As System.Windows.Forms.ToolStripLabel + Friend WithEvents DataGridViewTextBoxColumn1 As System.Windows.Forms.DataGridViewTextBoxColumn +End Class diff --git a/ArinWarev1/Forms_Input/Frm_Bunbae.resx b/ArinWarev1/Forms_Input/Frm_Bunbae.resx new file mode 100644 index 0000000..50eaba9 --- /dev/null +++ b/ArinWarev1/Forms_Input/Frm_Bunbae.resx @@ -0,0 +1,375 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + 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 + + + 222, 17 + + + 286, 17 + + + 353, 17 + + + + + /9j/4AAQSkZJRgABAgEASABIAAD/7gAOQWRvYmUAZAAAAAAB/+ED5kV4aWYAAE1NACoAAAAIAAcBEgAD + AAAAAQABAAABGgAFAAAAAQAAAGIBGwAFAAAAAQAAAGoBKAADAAAAAQACAAABMQACAAAAHAAAAHIBMgAC + AAAAFAAAAI6HaQAEAAAAAQAAAKIAAADCAEgAAAABAAAASAAAAAEAAEFkb2JlIFBob3Rvc2hvcCBDUzMg + V2luZG93cwAyMDEwOjA0OjE1IDIwOjMyOjA0AAACoAIABAAAAAEAAAA8oAMABAAAAAEAAAAMAAAAAAAA + AAYBAwADAAAAAQAGAAABGgAFAAAAAQAAARABGwAFAAAAAQAAARgBKAADAAAAAQACAAACAQAEAAAAAQAA + ASACAgAEAAAAAQAAAr4AAAAAAAAASAAAAAEAAABIAAAAAf/Y/+AAEEpGSUYAAQIAAEgASAAA/+0ADEFk + b2JlX0NNAAH/7gAOQWRvYmUAZIAAAAAB/9sAhAAMCAgICQgMCQkMEQsKCxEVDwwMDxUYExMVExMYEQwM + DAwMDBEMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMAQ0LCw0ODRAODhAUDg4OFBQODg4OFBEMDAwM + DBERDAwMDAwMEQwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAz/wAARCAAMADwDASIAAhEBAxEB/90A + BAAE/8QBPwAAAQUBAQEBAQEAAAAAAAAAAwABAgQFBgcICQoLAQABBQEBAQEBAQAAAAAAAAABAAIDBAUG + BwgJCgsQAAEEAQMCBAIFBwYIBQMMMwEAAhEDBCESMQVBUWETInGBMgYUkaGxQiMkFVLBYjM0coLRQwcl + klPw4fFjczUWorKDJkSTVGRFwqN0NhfSVeJl8rOEw9N14/NGJ5SkhbSVxNTk9KW1xdXl9VZmdoaWprbG + 1ub2N0dXZ3eHl6e3x9fn9xEAAgIBAgQEAwQFBgcHBgU1AQACEQMhMRIEQVFhcSITBTKBkRShsUIjwVLR + 8DMkYuFygpJDUxVjczTxJQYWorKDByY1wtJEk1SjF2RFVTZ0ZeLys4TD03Xj80aUpIW0lcTU5PSltcXV + 5fVWZnaGlqa2xtbm9ic3R1dnd4eXp7fH/9oADAMBAAIRAxEAPwDd/amR/pH/AOcf70v2pkf6R/8AnH+9 + UUlofq/Bpevxb37UyP8ASP8A84/3pftTI/0j/wDOP96opJfq/BXr8W9+1Mj/AEj/APOP96X7UyP9I/8A + zj/eqKSX6vwV6/F3ujdbuGS2i5xfU8HVxktIG76XyW99vo27p0XGdO2/ba930dZj+q5dX+qfZPL8VAeD + 341VVr/eZhx+0bu708n/2f/iDFhJQ0NfUFJPRklMRQABAQAADEhMaW5vAhAAAG1udHJSR0IgWFlaIAfO + AAIACQAGADEAAGFjc3BNU0ZUAAAAAElFQyBzUkdCAAAAAAAAAAAAAAAAAAD21gABAAAAANMtSFAgIAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAEWNwcnQAAAFQAAAAM2Rl + c2MAAAGEAAAAbHd0cHQAAAHwAAAAFGJrcHQAAAIEAAAAFHJYWVoAAAIYAAAAFGdYWVoAAAIsAAAAFGJY + WVoAAAJAAAAAFGRtbmQAAAJUAAAAcGRtZGQAAALEAAAAiHZ1ZWQAAANMAAAAhnZpZXcAAAPUAAAAJGx1 + bWkAAAP4AAAAFG1lYXMAAAQMAAAAJHRlY2gAAAQwAAAADHJUUkMAAAQ8AAAIDGdUUkMAAAQ8AAAIDGJU + UkMAAAQ8AAAIDHRleHQAAAAAQ29weXJpZ2h0IChjKSAxOTk4IEhld2xldHQtUGFja2FyZCBDb21wYW55 + AABkZXNjAAAAAAAAABJzUkdCIElFQzYxOTY2LTIuMQAAAAAAAAAAAAAAEnNSR0IgSUVDNjE5NjYtMi4x + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABYWVogAAAAAAAA + 81EAAQAAAAEWzFhZWiAAAAAAAAAAAAAAAAAAAAAAWFlaIAAAAAAAAG+iAAA49QAAA5BYWVogAAAAAAAA + YpkAALeFAAAY2lhZWiAAAAAAAAAkoAAAD4QAALbPZGVzYwAAAAAAAAAWSUVDIGh0dHA6Ly93d3cuaWVj + LmNoAAAAAAAAAAAAAAAWSUVDIGh0dHA6Ly93d3cuaWVjLmNoAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAGRlc2MAAAAAAAAALklFQyA2MTk2Ni0yLjEgRGVmYXVsdCBSR0Ig + Y29sb3VyIHNwYWNlIC0gc1JHQgAAAAAAAAAAAAAALklFQyA2MTk2Ni0yLjEgRGVmYXVsdCBSR0IgY29s + b3VyIHNwYWNlIC0gc1JHQgAAAAAAAAAAAAAAAAAAAAAAAAAAAABkZXNjAAAAAAAAACxSZWZlcmVuY2Ug + Vmlld2luZyBDb25kaXRpb24gaW4gSUVDNjE5NjYtMi4xAAAAAAAAAAAAAAAsUmVmZXJlbmNlIFZpZXdp + bmcgQ29uZGl0aW9uIGluIElFQzYxOTY2LTIuMQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAdmlldwAA + AAAAE6T+ABRfLgAQzxQAA+3MAAQTCwADXJ4AAAABWFlaIAAAAAAATAlWAFAAAABXH+dtZWFzAAAAAAAA + AAEAAAAAAAAAAAAAAAAAAAAAAAACjwAAAAJzaWcgAAAAAENSVCBjdXJ2AAAAAAAABAAAAAAFAAoADwAU + ABkAHgAjACgALQAyADcAOwBAAEUASgBPAFQAWQBeAGMAaABtAHIAdwB8AIEAhgCLAJAAlQCaAJ8ApACp + AK4AsgC3ALwAwQDGAMsA0ADVANsA4ADlAOsA8AD2APsBAQEHAQ0BEwEZAR8BJQErATIBOAE+AUUBTAFS + AVkBYAFnAW4BdQF8AYMBiwGSAZoBoQGpAbEBuQHBAckB0QHZAeEB6QHyAfoCAwIMAhQCHQImAi8COAJB + AksCVAJdAmcCcQJ6AoQCjgKYAqICrAK2AsECywLVAuAC6wL1AwADCwMWAyEDLQM4A0MDTwNaA2YDcgN+ + A4oDlgOiA64DugPHA9MD4APsA/kEBgQTBCAELQQ7BEgEVQRjBHEEfgSMBJoEqAS2BMQE0wThBPAE/gUN + BRwFKwU6BUkFWAVnBXcFhgWWBaYFtQXFBdUF5QX2BgYGFgYnBjcGSAZZBmoGewaMBp0GrwbABtEG4wb1 + BwcHGQcrBz0HTwdhB3QHhgeZB6wHvwfSB+UH+AgLCB8IMghGCFoIbgiCCJYIqgi+CNII5wj7CRAJJQk6 + CU8JZAl5CY8JpAm6Cc8J5Qn7ChEKJwo9ClQKagqBCpgKrgrFCtwK8wsLCyILOQtRC2kLgAuYC7ALyAvh + C/kMEgwqDEMMXAx1DI4MpwzADNkM8w0NDSYNQA1aDXQNjg2pDcMN3g34DhMOLg5JDmQOfw6bDrYO0g7u + DwkPJQ9BD14Peg+WD7MPzw/sEAkQJhBDEGEQfhCbELkQ1xD1ERMRMRFPEW0RjBGqEckR6BIHEiYSRRJk + EoQSoxLDEuMTAxMjE0MTYxODE6QTxRPlFAYUJxRJFGoUixStFM4U8BUSFTQVVhV4FZsVvRXgFgMWJhZJ + FmwWjxayFtYW+hcdF0EXZReJF64X0hf3GBsYQBhlGIoYrxjVGPoZIBlFGWsZkRm3Gd0aBBoqGlEadxqe + GsUa7BsUGzsbYxuKG7Ib2hwCHCocUhx7HKMczBz1HR4dRx1wHZkdwx3sHhYeQB5qHpQevh7pHxMfPh9p + H5Qfvx/qIBUgQSBsIJggxCDwIRwhSCF1IaEhziH7IiciVSKCIq8i3SMKIzgjZiOUI8Ij8CQfJE0kfCSr + JNolCSU4JWgllyXHJfcmJyZXJocmtyboJxgnSSd6J6sn3CgNKD8ocSiiKNQpBik4KWspnSnQKgIqNSpo + KpsqzysCKzYraSudK9EsBSw5LG4soizXLQwtQS12Last4S4WLkwugi63Lu4vJC9aL5Evxy/+MDUwbDCk + MNsxEjFKMYIxujHyMioyYzKbMtQzDTNGM38zuDPxNCs0ZTSeNNg1EzVNNYc1wjX9Njc2cjauNuk3JDdg + N5w31zgUOFA4jDjIOQU5Qjl/Obw5+To2OnQ6sjrvOy07azuqO+g8JzxlPKQ84z0iPWE9oT3gPiA+YD6g + PuA/IT9hP6I/4kAjQGRApkDnQSlBakGsQe5CMEJyQrVC90M6Q31DwEQDREdEikTORRJFVUWaRd5GIkZn + RqtG8Ec1R3tHwEgFSEtIkUjXSR1JY0mpSfBKN0p9SsRLDEtTS5pL4kwqTHJMuk0CTUpNk03cTiVObk63 + TwBPSU+TT91QJ1BxULtRBlFQUZtR5lIxUnxSx1MTU19TqlP2VEJUj1TbVShVdVXCVg9WXFapVvdXRFeS + V+BYL1h9WMtZGllpWbhaB1pWWqZa9VtFW5Vb5Vw1XIZc1l0nXXhdyV4aXmxevV8PX2Ffs2AFYFdgqmD8 + YU9homH1YklinGLwY0Njl2PrZEBklGTpZT1lkmXnZj1mkmboZz1nk2fpaD9olmjsaUNpmmnxakhqn2r3 + a09rp2v/bFdsr20IbWBtuW4SbmtuxG8eb3hv0XArcIZw4HE6cZVx8HJLcqZzAXNdc7h0FHRwdMx1KHWF + deF2Pnabdvh3VnezeBF4bnjMeSp5iXnnekZ6pXsEe2N7wnwhfIF84X1BfaF+AX5ifsJ/I3+Ef+WAR4Co + gQqBa4HNgjCCkoL0g1eDuoQdhICE44VHhauGDoZyhteHO4efiASIaYjOiTOJmYn+imSKyoswi5aL/Ixj + jMqNMY2Yjf+OZo7OjzaPnpAGkG6Q1pE/kaiSEZJ6kuOTTZO2lCCUipT0lV+VyZY0lp+XCpd1l+CYTJi4 + mSSZkJn8mmia1ZtCm6+cHJyJnPedZJ3SnkCerp8dn4uf+qBpoNihR6G2oiailqMGo3aj5qRWpMelOKWp + phqmi6b9p26n4KhSqMSpN6mpqhyqj6sCq3Wr6axcrNCtRK24ri2uoa8Wr4uwALB1sOqxYLHWskuywrM4 + s660JbSctRO1irYBtnm28Ldot+C4WbjRuUq5wro7urW7LrunvCG8m70VvY++Cr6Evv+/er/1wHDA7MFn + wePCX8Lbw1jD1MRRxM7FS8XIxkbGw8dBx7/IPci8yTrJuco4yrfLNsu2zDXMtc01zbXONs62zzfPuNA5 + 0LrRPNG+0j/SwdNE08bUSdTL1U7V0dZV1tjXXNfg2GTY6Nls2fHadtr724DcBdyK3RDdlt4c3qLfKd+v + 4DbgveFE4cziU+Lb42Pj6+Rz5PzlhOYN5pbnH+ep6DLovOlG6dDqW+rl63Dr++yG7RHtnO4o7rTvQO/M + 8Fjw5fFy8f/yjPMZ86f0NPTC9VD13vZt9vv3ivgZ+Kj5OPnH+lf65/t3/Af8mP0p/br+S/7c/23////b + AEMAAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQICAgICAgICAgICAwMD + AwMDAwMDA//bAEMBAQEBAQEBAQEBAQICAQICAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMD + AwMDAwMDAwMDAwMDAwMDA//AABEIAAwAPAMBEQACEQEDEQH/xAAfAAABBQEBAQEBAQAAAAAAAAAAAQID + BAUGBwgJCgv/xAC1EAACAQMDAgQDBQUEBAAAAX0BAgMABBEFEiExQQYTUWEHInEUMoGRoQgjQrHBFVLR + 8CQzYnKCCQoWFxgZGiUmJygpKjQ1Njc4OTpDREVGR0hJSlNUVVZXWFlaY2RlZmdoaWpzdHV2d3h5eoOE + hYaHiImKkpOUlZaXmJmaoqOkpaanqKmqsrO0tba3uLm6wsPExcbHyMnK0tPU1dbX2Nna4eLj5OXm5+jp + 6vHy8/T19vf4+fr/xAAfAQADAQEBAQEBAQEBAAAAAAAAAQIDBAUGBwgJCgv/xAC1EQACAQIEBAMEBwUE + BAABAncAAQIDEQQFITEGEkFRB2FxEyIygQgUQpGhscEJIzNS8BVictEKFiQ04SXxFxgZGiYnKCkqNTY3 + ODk6Q0RFRkdISUpTVFVWV1hZWmNkZWZnaGlqc3R1dnd4eXqCg4SFhoeIiYqSk5SVlpeYmZqio6Slpqeo + qaqys7S1tre4ubrCw8TFxsfIycrS09TV1tfY2dri4+Tl5ufo6ery8/T19vf4+fr/2gAMAwEAAhEDEQA/ + AP1ZH7UPxEAA/wCEw8bnj/ob9f8A/k+v7U/1Nyj/AKF+G/8ABUP/AJE/llcSZlZf7dX/APBk/wDMX/hq + H4if9Df43/8ACv1//wCT6P8AU3Kf+hfhv/BUP/kQ/wBZcy/6Dq//AIMn/mH/AA1D8RP+hv8AG/8A4V+v + /wDyfR/qblP/AEL8N/4Kh/8AIh/rLmX/AEHV/wDwZP8AzD/hqH4if9Df43/8K/X/AP5Po/1Nyn/oX4b/ + AMFQ/wDkQ/1lzL/oOr/+DJ/5h/w1D8RP+hv8b/8AhX6//wDJ9H+puU/9C/Df+Cof/Ih/rLmX/QdX/wDB + k/8AMT/hqH4if9Df43/8K/X/AP5Po/1Nyn/oX4b/AMFQ/wDkQ/1kzL/oOr/+DJ/5n2R+xz+234zt/iRp + nw+8a6vqXiDwZ4gs9baObXr+bUr/AMPajpmkX2tQ3FlqV2Zb57K7XT2t3tXkaJWkV4whVxJ+beJfAuU4 + Th/FZ/hKEKOMw8qd+SKjGcZzjTs4q0bpyUlJK7s073VvuuBOLMxxGcYfJ8TWlVw1ZTtzu7hKMJTupPWz + UWnFu2qatrf9aP8AhfXgv+zv7U89/sfm+V5207N+M43fSv50P2w/kwr/AEFP42CgAoAKACgAoA9s/Z0/ + s7/hcng3+1vP/s7Ov/avs2PP2f8ACL63t2buP9ZjP+zmvz7xU/5IPPf+4H/qRRPsvD//AJK7KP8AuL/6 + ZqH7/wD/ABaT/hUfb7Ht/wBj7V9p8v8A9Cr+Oz+lz//Z + + + + + /9j/4AAQSkZJRgABAgEASABIAAD/7gAOQWRvYmUAZAAAAAAB/+ED5kV4aWYAAE1NACoAAAAIAAcBEgAD + AAAAAQABAAABGgAFAAAAAQAAAGIBGwAFAAAAAQAAAGoBKAADAAAAAQACAAABMQACAAAAHAAAAHIBMgAC + AAAAFAAAAI6HaQAEAAAAAQAAAKIAAADCAEgAAAABAAAASAAAAAEAAEFkb2JlIFBob3Rvc2hvcCBDUzMg + V2luZG93cwAyMDEwOjA0OjE1IDIwOjMyOjA0AAACoAIABAAAAAEAAAA8oAMABAAAAAEAAAAMAAAAAAAA + AAYBAwADAAAAAQAGAAABGgAFAAAAAQAAARABGwAFAAAAAQAAARgBKAADAAAAAQACAAACAQAEAAAAAQAA + ASACAgAEAAAAAQAAAr4AAAAAAAAASAAAAAEAAABIAAAAAf/Y/+AAEEpGSUYAAQIAAEgASAAA/+0ADEFk + b2JlX0NNAAH/7gAOQWRvYmUAZIAAAAAB/9sAhAAMCAgICQgMCQkMEQsKCxEVDwwMDxUYExMVExMYEQwM + DAwMDBEMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMAQ0LCw0ODRAODhAUDg4OFBQODg4OFBEMDAwM + DBERDAwMDAwMEQwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAz/wAARCAAMADwDASIAAhEBAxEB/90A + BAAE/8QBPwAAAQUBAQEBAQEAAAAAAAAAAwABAgQFBgcICQoLAQABBQEBAQEBAQAAAAAAAAABAAIDBAUG + BwgJCgsQAAEEAQMCBAIFBwYIBQMMMwEAAhEDBCESMQVBUWETInGBMgYUkaGxQiMkFVLBYjM0coLRQwcl + klPw4fFjczUWorKDJkSTVGRFwqN0NhfSVeJl8rOEw9N14/NGJ5SkhbSVxNTk9KW1xdXl9VZmdoaWprbG + 1ub2N0dXZ3eHl6e3x9fn9xEAAgIBAgQEAwQFBgcHBgU1AQACEQMhMRIEQVFhcSITBTKBkRShsUIjwVLR + 8DMkYuFygpJDUxVjczTxJQYWorKDByY1wtJEk1SjF2RFVTZ0ZeLys4TD03Xj80aUpIW0lcTU5PSltcXV + 5fVWZnaGlqa2xtbm9ic3R1dnd4eXp7fH/9oADAMBAAIRAxEAPwDd/amR/pH/AOcf70v2pkf6R/8AnH+9 + UUlofq/Bpevxb37UyP8ASP8A84/3pftTI/0j/wDOP96opJfq/BXr8W9+1Mj/AEj/APOP96X7UyP9I/8A + zj/eqKSX6vwV6/F3ujdbuGS2i5xfU8HVxktIG76XyW99vo27p0XGdO2/ba930dZj+q5dX+qfZPL8VAeD + 341VVr/eZhx+0bu708n/2f/iDFhJQ0NfUFJPRklMRQABAQAADEhMaW5vAhAAAG1udHJSR0IgWFlaIAfO + AAIACQAGADEAAGFjc3BNU0ZUAAAAAElFQyBzUkdCAAAAAAAAAAAAAAAAAAD21gABAAAAANMtSFAgIAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAEWNwcnQAAAFQAAAAM2Rl + c2MAAAGEAAAAbHd0cHQAAAHwAAAAFGJrcHQAAAIEAAAAFHJYWVoAAAIYAAAAFGdYWVoAAAIsAAAAFGJY + WVoAAAJAAAAAFGRtbmQAAAJUAAAAcGRtZGQAAALEAAAAiHZ1ZWQAAANMAAAAhnZpZXcAAAPUAAAAJGx1 + bWkAAAP4AAAAFG1lYXMAAAQMAAAAJHRlY2gAAAQwAAAADHJUUkMAAAQ8AAAIDGdUUkMAAAQ8AAAIDGJU + UkMAAAQ8AAAIDHRleHQAAAAAQ29weXJpZ2h0IChjKSAxOTk4IEhld2xldHQtUGFja2FyZCBDb21wYW55 + AABkZXNjAAAAAAAAABJzUkdCIElFQzYxOTY2LTIuMQAAAAAAAAAAAAAAEnNSR0IgSUVDNjE5NjYtMi4x + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABYWVogAAAAAAAA + 81EAAQAAAAEWzFhZWiAAAAAAAAAAAAAAAAAAAAAAWFlaIAAAAAAAAG+iAAA49QAAA5BYWVogAAAAAAAA + YpkAALeFAAAY2lhZWiAAAAAAAAAkoAAAD4QAALbPZGVzYwAAAAAAAAAWSUVDIGh0dHA6Ly93d3cuaWVj + LmNoAAAAAAAAAAAAAAAWSUVDIGh0dHA6Ly93d3cuaWVjLmNoAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAGRlc2MAAAAAAAAALklFQyA2MTk2Ni0yLjEgRGVmYXVsdCBSR0Ig + Y29sb3VyIHNwYWNlIC0gc1JHQgAAAAAAAAAAAAAALklFQyA2MTk2Ni0yLjEgRGVmYXVsdCBSR0IgY29s + b3VyIHNwYWNlIC0gc1JHQgAAAAAAAAAAAAAAAAAAAAAAAAAAAABkZXNjAAAAAAAAACxSZWZlcmVuY2Ug + Vmlld2luZyBDb25kaXRpb24gaW4gSUVDNjE5NjYtMi4xAAAAAAAAAAAAAAAsUmVmZXJlbmNlIFZpZXdp + bmcgQ29uZGl0aW9uIGluIElFQzYxOTY2LTIuMQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAdmlldwAA + AAAAE6T+ABRfLgAQzxQAA+3MAAQTCwADXJ4AAAABWFlaIAAAAAAATAlWAFAAAABXH+dtZWFzAAAAAAAA + AAEAAAAAAAAAAAAAAAAAAAAAAAACjwAAAAJzaWcgAAAAAENSVCBjdXJ2AAAAAAAABAAAAAAFAAoADwAU + ABkAHgAjACgALQAyADcAOwBAAEUASgBPAFQAWQBeAGMAaABtAHIAdwB8AIEAhgCLAJAAlQCaAJ8ApACp + AK4AsgC3ALwAwQDGAMsA0ADVANsA4ADlAOsA8AD2APsBAQEHAQ0BEwEZAR8BJQErATIBOAE+AUUBTAFS + AVkBYAFnAW4BdQF8AYMBiwGSAZoBoQGpAbEBuQHBAckB0QHZAeEB6QHyAfoCAwIMAhQCHQImAi8COAJB + AksCVAJdAmcCcQJ6AoQCjgKYAqICrAK2AsECywLVAuAC6wL1AwADCwMWAyEDLQM4A0MDTwNaA2YDcgN+ + A4oDlgOiA64DugPHA9MD4APsA/kEBgQTBCAELQQ7BEgEVQRjBHEEfgSMBJoEqAS2BMQE0wThBPAE/gUN + BRwFKwU6BUkFWAVnBXcFhgWWBaYFtQXFBdUF5QX2BgYGFgYnBjcGSAZZBmoGewaMBp0GrwbABtEG4wb1 + BwcHGQcrBz0HTwdhB3QHhgeZB6wHvwfSB+UH+AgLCB8IMghGCFoIbgiCCJYIqgi+CNII5wj7CRAJJQk6 + CU8JZAl5CY8JpAm6Cc8J5Qn7ChEKJwo9ClQKagqBCpgKrgrFCtwK8wsLCyILOQtRC2kLgAuYC7ALyAvh + C/kMEgwqDEMMXAx1DI4MpwzADNkM8w0NDSYNQA1aDXQNjg2pDcMN3g34DhMOLg5JDmQOfw6bDrYO0g7u + DwkPJQ9BD14Peg+WD7MPzw/sEAkQJhBDEGEQfhCbELkQ1xD1ERMRMRFPEW0RjBGqEckR6BIHEiYSRRJk + EoQSoxLDEuMTAxMjE0MTYxODE6QTxRPlFAYUJxRJFGoUixStFM4U8BUSFTQVVhV4FZsVvRXgFgMWJhZJ + FmwWjxayFtYW+hcdF0EXZReJF64X0hf3GBsYQBhlGIoYrxjVGPoZIBlFGWsZkRm3Gd0aBBoqGlEadxqe + GsUa7BsUGzsbYxuKG7Ib2hwCHCocUhx7HKMczBz1HR4dRx1wHZkdwx3sHhYeQB5qHpQevh7pHxMfPh9p + H5Qfvx/qIBUgQSBsIJggxCDwIRwhSCF1IaEhziH7IiciVSKCIq8i3SMKIzgjZiOUI8Ij8CQfJE0kfCSr + JNolCSU4JWgllyXHJfcmJyZXJocmtyboJxgnSSd6J6sn3CgNKD8ocSiiKNQpBik4KWspnSnQKgIqNSpo + KpsqzysCKzYraSudK9EsBSw5LG4soizXLQwtQS12Last4S4WLkwugi63Lu4vJC9aL5Evxy/+MDUwbDCk + MNsxEjFKMYIxujHyMioyYzKbMtQzDTNGM38zuDPxNCs0ZTSeNNg1EzVNNYc1wjX9Njc2cjauNuk3JDdg + N5w31zgUOFA4jDjIOQU5Qjl/Obw5+To2OnQ6sjrvOy07azuqO+g8JzxlPKQ84z0iPWE9oT3gPiA+YD6g + PuA/IT9hP6I/4kAjQGRApkDnQSlBakGsQe5CMEJyQrVC90M6Q31DwEQDREdEikTORRJFVUWaRd5GIkZn + RqtG8Ec1R3tHwEgFSEtIkUjXSR1JY0mpSfBKN0p9SsRLDEtTS5pL4kwqTHJMuk0CTUpNk03cTiVObk63 + TwBPSU+TT91QJ1BxULtRBlFQUZtR5lIxUnxSx1MTU19TqlP2VEJUj1TbVShVdVXCVg9WXFapVvdXRFeS + V+BYL1h9WMtZGllpWbhaB1pWWqZa9VtFW5Vb5Vw1XIZc1l0nXXhdyV4aXmxevV8PX2Ffs2AFYFdgqmD8 + YU9homH1YklinGLwY0Njl2PrZEBklGTpZT1lkmXnZj1mkmboZz1nk2fpaD9olmjsaUNpmmnxakhqn2r3 + a09rp2v/bFdsr20IbWBtuW4SbmtuxG8eb3hv0XArcIZw4HE6cZVx8HJLcqZzAXNdc7h0FHRwdMx1KHWF + deF2Pnabdvh3VnezeBF4bnjMeSp5iXnnekZ6pXsEe2N7wnwhfIF84X1BfaF+AX5ifsJ/I3+Ef+WAR4Co + gQqBa4HNgjCCkoL0g1eDuoQdhICE44VHhauGDoZyhteHO4efiASIaYjOiTOJmYn+imSKyoswi5aL/Ixj + jMqNMY2Yjf+OZo7OjzaPnpAGkG6Q1pE/kaiSEZJ6kuOTTZO2lCCUipT0lV+VyZY0lp+XCpd1l+CYTJi4 + mSSZkJn8mmia1ZtCm6+cHJyJnPedZJ3SnkCerp8dn4uf+qBpoNihR6G2oiailqMGo3aj5qRWpMelOKWp + phqmi6b9p26n4KhSqMSpN6mpqhyqj6sCq3Wr6axcrNCtRK24ri2uoa8Wr4uwALB1sOqxYLHWskuywrM4 + s660JbSctRO1irYBtnm28Ldot+C4WbjRuUq5wro7urW7LrunvCG8m70VvY++Cr6Evv+/er/1wHDA7MFn + wePCX8Lbw1jD1MRRxM7FS8XIxkbGw8dBx7/IPci8yTrJuco4yrfLNsu2zDXMtc01zbXONs62zzfPuNA5 + 0LrRPNG+0j/SwdNE08bUSdTL1U7V0dZV1tjXXNfg2GTY6Nls2fHadtr724DcBdyK3RDdlt4c3qLfKd+v + 4DbgveFE4cziU+Lb42Pj6+Rz5PzlhOYN5pbnH+ep6DLovOlG6dDqW+rl63Dr++yG7RHtnO4o7rTvQO/M + 8Fjw5fFy8f/yjPMZ86f0NPTC9VD13vZt9vv3ivgZ+Kj5OPnH+lf65/t3/Af8mP0p/br+S/7c/23////b + AEMAAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQICAgICAgICAgICAwMD + AwMDAwMDA//bAEMBAQEBAQEBAQEBAQICAQICAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMD + AwMDAwMDAwMDAwMDAwMDA//AABEIAAwAPAMBEQACEQEDEQH/xAAfAAABBQEBAQEBAQAAAAAAAAAAAQID + BAUGBwgJCgv/xAC1EAACAQMDAgQDBQUEBAAAAX0BAgMABBEFEiExQQYTUWEHInEUMoGRoQgjQrHBFVLR + 8CQzYnKCCQoWFxgZGiUmJygpKjQ1Njc4OTpDREVGR0hJSlNUVVZXWFlaY2RlZmdoaWpzdHV2d3h5eoOE + hYaHiImKkpOUlZaXmJmaoqOkpaanqKmqsrO0tba3uLm6wsPExcbHyMnK0tPU1dbX2Nna4eLj5OXm5+jp + 6vHy8/T19vf4+fr/xAAfAQADAQEBAQEBAQEBAAAAAAAAAQIDBAUGBwgJCgv/xAC1EQACAQIEBAMEBwUE + BAABAncAAQIDEQQFITEGEkFRB2FxEyIygQgUQpGhscEJIzNS8BVictEKFiQ04SXxFxgZGiYnKCkqNTY3 + ODk6Q0RFRkdISUpTVFVWV1hZWmNkZWZnaGlqc3R1dnd4eXqCg4SFhoeIiYqSk5SVlpeYmZqio6Slpqeo + qaqys7S1tre4ubrCw8TFxsfIycrS09TV1tfY2dri4+Tl5ufo6ery8/T19vf4+fr/2gAMAwEAAhEDEQA/ + AP1ZH7UPxEAA/wCEw8bnj/ob9f8A/k+v7U/1Nyj/AKF+G/8ABUP/AJE/llcSZlZf7dX/APBk/wDMX/hq + H4if9Df43/8ACv1//wCT6P8AU3Kf+hfhv/BUP/kQ/wBZcy/6Dq//AIMn/mH/AA1D8RP+hv8AG/8A4V+v + /wDyfR/qblP/AEL8N/4Kh/8AIh/rLmX/AEHV/wDwZP8AzD/hqH4if9Df43/8K/X/AP5Po/1Nyn/oX4b/ + AMFQ/wDkQ/1lzL/oOr/+DJ/5h/w1D8RP+hv8b/8AhX6//wDJ9H+puU/9C/Df+Cof/Ih/rLmX/QdX/wDB + k/8AMT/hqH4if9Df43/8K/X/AP5Po/1Nyn/oX4b/AMFQ/wDkQ/1kzL/oOr/+DJ/5n2R+xz+234zt/iRp + nw+8a6vqXiDwZ4gs9baObXr+bUr/AMPajpmkX2tQ3FlqV2Zb57K7XT2t3tXkaJWkV4whVxJ+beJfAuU4 + Th/FZ/hKEKOMw8qd+SKjGcZzjTs4q0bpyUlJK7s073VvuuBOLMxxGcYfJ8TWlVw1ZTtzu7hKMJTupPWz + UWnFu2qatrf9aP8AhfXgv+zv7U89/sfm+V5207N+M43fSv50P2w/kwr/AEFP42CgAoAKACgAoA9s/Z0/ + s7/hcng3+1vP/s7Ov/avs2PP2f8ACL63t2buP9ZjP+zmvz7xU/5IPPf+4H/qRRPsvD//AJK7KP8AuL/6 + ZqH7/wD/ABaT/hUfb7Ht/wBj7V9p8v8A9Cr+Oz+lz//Z + + + + 46 + + \ No newline at end of file diff --git a/ArinWarev1/Forms_Input/Frm_Bunbae.vb b/ArinWarev1/Forms_Input/Frm_Bunbae.vb new file mode 100644 index 0000000..d9b2a4a --- /dev/null +++ b/ArinWarev1/Forms_Input/Frm_Bunbae.vb @@ -0,0 +1,496 @@ +Public Class Frm_Bunbae + Dim Init As Boolean = False + Dim SrcDrv As DataRowView + + + + Public Sub New(_opentime) + + ' 이 호출은 디자이너에 필요합니다. + InitializeComponent() + OpenTime = _opentime + + ' InitializeComponent() 호출 뒤에 초기화 코드를 추가하십시오. + + End Sub + +#Region "data Base 변경여부및 적용방법" + + '''변경된내용을적용한다. + Public Overrides Function AcceptChanged() As Boolean + bs.EndEdit() + Dim BaseDS As DataSet = CType(bs.DataSource, DataSet) + Dim BaseDT As DataTable = BaseDS.Tables(bs.DataMember) + BaseDT.AcceptChanges() + Return True + End Function + + '''변경된내용이있다면 취소한다. + Public Overrides Function RejectChanged() As Boolean + Dim BaseDS As DataSet = CType(bs.DataSource, DataSet) + Dim BaseDT As DataTable = BaseDS.Tables(bs.DataMember) + BaseDT.RejectChanges() + Return True + End Function + + '''데이터에변형이있었는가? + Public Overrides Function HasChanged() As Boolean + bs.EndEdit() + Dim BaseDS As DataSet = CType(bs.DataSource, DataSet) + Dim BaseDT As DataTable = BaseDS.Tables(bs.DataMember) + Dim ChangeDT As DataTable = BaseDT.GetChanges + If Not ChangeDT Is Nothing Then Return True + Return False + End Function + + '''기본데이터테이블을 반환합니다. + Public Function DT() As DataTable + Dim BaseDS As DataSet = CType(bs.DataSource, DataSet) + Return BaseDS.Tables(bs.DataMember) + End Function + + +#End Region + + Private Sub ShowHistory() + Dim drv As DataRowView = Me.bs.Current + Dim f As New Frm_History("tbl_bunbae", drv("code").ToString) + If f.ShowDialog = DialogResult.OK Then + drv(f.colname) = f.val + Me.Validate() + Me.bs.EndEdit() + My.Application.DoEvents() + MsgBox("값이 변경되었습니다", MsgBoxStyle.Information, "확인") + End If + End Sub + Private Sub AddNewDataRow_Zone_Changed2(ByVal sender As Object, ByVal e As System.Data.DataColumnChangeEventArgs) + Dim oval As String = e.Row(e.Column.ColumnName).ToString + Dim nval As String = e.ProposedValue.ToString + If oval <> nval Then + Dim newdr As DS2.historyRow = DSHistory.history.NewhistoryRow + newdr.time = Now.ToString("yyyy-MM-dd HH:mm:ss") + newdr.tablename = "tbl_bunbae" + newdr.ovalue = oval + newdr.nvalue = nval + newdr.column = e.Column.ColumnName + newdr.code = e.Row("code").ToString + DSHistory.history.AddhistoryRow(newdr) + DSHistory.history.AcceptChanges() + End If + End Sub + Private Sub MdiMain_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load + + Me.Show() + My.Application.DoEvents() + 'Work_msg_timer("잠시만 기다려주세요") + + + '//공유데이터셋에 연결한다. + Me.bs.DataSource = DSET1 + + '//냉방분배 + AddHandler DSET1.tbl_bunbae.TableNewRow, AddressOf AddNewDataRow_bunbae + AddHandler DSET1.tbl_bunbae.ColumnChanging, AddressOf AddNewDataRow_Zone_Changed2 + + '//모든컨트롤의 cTrl_enter 를 추가합니다 + BindProperty(CType(Me.SplitContainer1.Panel2.Controls, Control.ControlCollection)) + + '//콤보컨트롤 바인딩 + Binding_Zone() + + Me.bs.Filter = "code <> '0'" + Me.Init = True + + Try + Me.bs.Position = CEnergy.ARINCLASS.Read_LastPos_Frm(Me) + Catch ex As Exception + Me.bs.MoveFirst() + End Try + + bs_CurrentChanged(sender, e) + + AddDebug("▲ Form Load") + End Sub +#Region "Control_Enter" + Private Sub BindProperty(ByVal Ctl As Control.ControlCollection) + For Each C As Control In Ctl + If C.Controls.Count > 1 Then + BindProperty(C.Controls) + Else + If C.GetType.ToString.ToUpper.IndexOf("MYTB") <> -1 Then + AddHandler CType(C, MyTb).KeyDown, AddressOf TextBOx_KeyDown + ElseIf C.GetType.ToString.ToUpper.IndexOf("MYCMB") <> -1 Then + AddHandler CType(C, MyCmb).KeyDown, AddressOf Cmd_KeyDown + End If + End If + Next + End Sub + + Private Sub TextBOx_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) + If e.KeyCode = Keys.Enter AndAlso e.Control Then + Try + Dim Field As String = (CType(sender, MyTb).DataBindings.Item("text").BindingMemberInfo.BindingField) + For Each Dr As DataRow In DT.Select(Me.bs.Filter, "") + Dr(Field) = CType(sender, MyTb).Text + Next + Work_msg_timer("모든값이 변경되었습니다", 25) + Catch ex As Exception + + End Try + + End If + End Sub + Private Sub Cmd_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) + If e.KeyCode = Keys.Enter AndAlso e.Control Then + Try + Dim Field As String = (CType(sender, MyCmb).DataBindings.Item("selectedvalue").BindingMemberInfo.BindingField) + For Each Dr As DataRow In DT.Select(Me.bs.Filter, "") + Dr(Field) = CType(sender, MyCmb).SelectedValue + Next + Work_msg_timer("모든값이 변경되었습니다", 25) + Catch ex As Exception + + End Try + End If + End Sub +#End Region + Private Sub 냉동기ComboBox_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles 냉동기ComboBox.KeyDown + Dim drv As DataRowView = Me.bs.Current + If drv Is Nothing Then Return + + 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) <> 25 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 + If Me.bs.Position >= 0 AndAlso Me.bs.Position < Me.bs.Count - 1 Then + Me.bs.Position += 1 + Else + Me.bt_add.PerformClick() '//한줄추가 + End If + End If + + Dim Cnt As Short = 0 + For i As Integer = 0 To CB.GetUpperBound(0) + Select Case i + Case 0 + CType(bs.Current, DataRowView)("설명") = CB(i).Split(CChar(vbTab))(ii).Trim + Case 0 + 2 '//사용프로필 앞에 두개를 숫자4자로변환 + If CB(i).Split(CChar(vbTab))(ii).Trim = "" Then + Me.냉동기ComboBox.SelectedIndex = 0 + Else + Me.냉동기ComboBox.Text = CB(i).Split(CChar(vbTab))(ii).Trim + End If + ' Me.냉동기ComboBox.Text = CStr(IIf(CB(i).Split(CChar(vbTab))(ii).Trim = "", "0", CB(i).Split(CChar(vbTab))(ii).Trim)) + Case 3 + 2 '//공란 + If CB(i).Split(CChar(vbTab))(ii).Trim = "" Then + Me.냉매방식ComboBox.SelectedIndex = 0 + Else + Me.냉매방식ComboBox.Text = CB(i).Split(CChar(vbTab))(ii).Trim + End If + ' Me.냉매방식ComboBox.Text = CStr(IIf(CB(i).Split(CChar(vbTab))(ii).Trim = "", "0", CB(i).Split(CChar(vbTab))(ii).Trim)) + Case 4 + 2 + If CB(i).Split(CChar(vbTab))(ii).Trim = "" Then + Me.펌프운전제어유무ComboBox.SelectedIndex = 0 + Else + Me.펌프운전제어유무ComboBox.Text = CB(i).Split(CChar(vbTab))(ii).Trim + End If + 'Me.펌프운전제어유무ComboBox.Text = CStr(IIf(CB(i).Split(CChar(vbTab))(ii).Trim = "", "0", CB(i).Split(CChar(vbTab))(ii).Trim)) + Case 5 + 2 + Me.급수온도NTb.Text = CB(i).Split(CChar(vbTab))(ii).Trim + Case 6 + 2 + Me.환수온도NTb.Text = CB(i).Split(CChar(vbTab))(ii).Trim + Case 7 + 2 + Me.설정점에서의온도차NTb.Text = CB(i).Split(CChar(vbTab))(ii).Trim + Case 8 + 2 + Me.냉매의비열NTb.Text = CB(i).Split(CChar(vbTab))(ii).Trim + Case 9 + 2 + Me.냉매의밀도NTb.Text = CB(i).Split(CChar(vbTab))(ii).Trim + Case 10 + 2 + Me.냉매의점도NTb.Text = CB(i).Split(CChar(vbTab))(ii).Trim + Case 11 + 2 + Me.배관의압력손실NTb.Text = CB(i).Split(CChar(vbTab))(ii).Trim + Case 12 + 2 + Me.개별저항비율NTb.Text = CB(i).Split(CChar(vbTab))(ii).Trim + Case 13 + 2 + Me.펌프동력NTb1.Text = CB(i).Split(CChar(vbTab))(ii).Trim + Case 15 + 2 + Me.공급범위의길이NTb.Text = CB(i).Split(CChar(vbTab))(ii).Trim + Case 16 + 2 + Me.공급범위의넓이NTb.Text = CB(i).Split(CChar(vbTab))(ii).Trim + Case 17 + 2 + Me.열층의수NTb.Text = CB(i).Split(CChar(vbTab))(ii).Trim + Case 18 + 2 + Me.층고NTb1.Text = CB(i).Split(CChar(vbTab))(ii).Trim + Case 20 + 2 + Me.생산기기압력손실NTb.Text = CB(i).Split(CChar(vbTab))(ii).Trim + Case 21 + 2 + Me.사용기기압력손실NTb.Text = CB(i).Split(CChar(vbTab))(ii).Trim + Case 22 + 2 + Me.제어밸브압력손실NTb.Text = CB(i).Split(CChar(vbTab))(ii).Trim + End Select + Next + Next + + Me.bs.EndEdit() + End If + End Sub + +#Region "기본" + Private Sub MdiMain_FormClosed(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosedEventArgs) Handles Me.FormClosed + CEnergy.ARINCLASS.SaveLoad_FrmSetting(Me, Me.bs.Position, True) + End Sub + Private Function GetMaxCode(ByVal dt As DataTable) As String + Try + Dim Dr As DataRow = dt.Select("", "code desc")(0) + Return Format(CInt(Dr("code")) + 1, "0000") + Catch ex As Exception + Return "0001" + End Try + End Function + + Private Sub AddNewDataRow_bunbae(ByVal sender As Object, ByVal e As System.Data.DataTableNewRowEventArgs) + e.Row.Item("code") = GetMaxCode(DSET1.tbl_bunbae) + e.Row.Item("설명") = "신규데이터" + End Sub + +#Region "제어버튼" + Private Sub ToolStripButton48_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt_add.Click + If Not EndEdit(Me.bs) Then Return + Me.bs.AddNew() + INitRow(Me.Controls) + MdiMain.RefreshMenuList(TreeTag) + End Sub + + + Private Sub ToolStripButton49_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt_Del.Click + Dbbase.DelCrow(Me.bs, True) + MdiMain.RefreshMenuList(TreeTag) + End Sub + + Private Sub ToolStripButton51_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt_cancel.Click + If Not EndEdit(Me.bs) Then Return + Data_Cancel(DSET1.tbl_profile, Nothing) + MdiMain.RefreshMenuList(TreeTag) + End Sub +#End Region + + Private Sub Binding_Zone() + + '//냉방분배시스템 + Dim bs_냉동기ComboBox As New BindingSource(DSET1, "tbl_nangbangkiki") + Me.냉동기ComboBox.DataSource = bs_냉동기ComboBox + bs_냉동기ComboBox.Sort = "code" + 냉동기ComboBox.DisplayMember = "설명" + 냉동기ComboBox.ValueMember = "code" + 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='1055'" + 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='1056'" + 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 + + 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 + If Me.bs.Position < Me.bs.Count Then Me.bs.Position += 1 + Else + If Me.bs.Position > 0 Then Me.bs.Position -= 1 + End If + Me.Validate() + My.Application.DoEvents() + End Sub +#End Region + + Private Sub bt_Del_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles bt_Del.MouseDown + + If e.Button = Windows.Forms.MouseButtons.Right Then + If MsgBox("전체삭제를 하시겠습니까?", MsgBoxStyle.Information Or MsgBoxStyle.OkCancel, "확인") = MsgBoxResult.Ok Then + Dim dR() As DataRow = DSET1.tbl_bunbae.Select(Me.bs.Filter, "") + For i As Integer = dR.GetUpperBound(0) To 0 Step -1 + dR(i).Delete() + Next + + DSET1.tbl_bunbae.AcceptChanges() + End If + End If + End Sub + + Private Sub 냉매방식ComboBox_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 냉매방식ComboBox.SelectedIndexChanged + Dim drv As DataRowView = Me.bs.Current + If drv Is Nothing Then Return + + If Me.냉매방식ComboBox.SelectedIndex < 0 Then Return + If Me.냉매방식ComboBox.Text.IndexOf("DataRow") <> -1 Then Return + If String.IsNullOrWhiteSpace(Me.냉매방식ComboBox.Text) Then Return + + Try + Select Case Me.냉매방식ComboBox.Text + Case "물" + Me.냉매의비열NTb.Text = "4.18" + Me.냉매의밀도NTb.Text = "1000" + Me.냉매의점도NTb.Text = "1" + Case "40%글리콜" + Me.냉매의비열NTb.Text = "3.5" + Me.냉매의밀도NTb.Text = "1070" + Me.냉매의점도NTb.Text = "4.4" + Case "40%글루콜" '디비에 글루콜로 명기되어 임시로 쓰임 디비 수정시 삭제 필요 + Me.냉매의비열NTb.Text = "3.5" + Me.냉매의밀도NTb.Text = "1070" + Me.냉매의점도NTb.Text = "4.4" + Case "(없음)" + Me.냉매의비열NTb.Text = "" + Me.냉매의밀도NTb.Text = "" + Me.냉매의점도NTb.Text = "" + Case Else + MsgBox("알수없는 냉매방식(" + 냉매방식ComboBox.Text + ") 입니다", MsgBoxStyle.Critical, "확인") + Me.냉매의비열NTb.Text = "" + Me.냉매의밀도NTb.Text = "" + Me.냉매의점도NTb.Text = "" + End Select + bs.EndEdit() + Catch ex As Exception + MsgBox(ex.Message, MsgBoxStyle.Critical, "확인") + End Try + End Sub + + Private Sub 급수온도NTb_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles 급수온도NTb.TextChanged + Dim drv As DataRowView = Me.bs.Current + If drv Is Nothing Then Return + + Try + Me.설정점에서의온도차NTb.Text = TOST(TOSG(Me.환수온도NTb.Text) - TOSG(Me.급수온도NTb.Text)) + Catch ex As Exception + + End Try + + End Sub + + Private Sub 환수온도NTb_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles 환수온도NTb.TextChanged + Dim drv As DataRowView = Me.bs.Current + If drv Is Nothing Then Return + + Try + Me.설정점에서의온도차NTb.Text = TOST(TOSG(Me.환수온도NTb.Text) - TOSG(Me.급수온도NTb.Text)) + Catch ex As Exception + + End Try + + End Sub + + + Private Sub dv_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles dv.MouseUp + If Prj.UserAuthType = "ADMIN" OrElse Prj.UserAuthType = "BOTH" OrElse Prj.UserAuthType = "BOTH2" OrElse Prj.UserAuthType = "BOTH1" Then '//2011.03.08 추가 + If e.Button = Windows.Forms.MouseButtons.Right Then + Dim Frm_FilterA As New Frm_Filter + Frm_FilterA.ColumTitle = getColCaption(Me.DT) + Frm_FilterA.ColumList = getColName(Me.DT) + Frm_FilterA.Colorlist = "냉동기" + Frm_FilterA.Numfield = "" '//20100618 Color 리스트처럼 , 구분해서 필드들을 모두 넣으세요. + Frm_FilterA.Default_Filter = "code <> '0'" + + If Frm_FilterA.ShowDialog <> Windows.Forms.DialogResult.OK Then Return '//창떳을떄 확인아ㅣ고 취소눌르면 다음을 수행하지않는다는거에요. + Dim Filter As String = Frm_FilterA.tb_filter.Text '//값은 아까 그 텍박에 잇구요. + Try + Me.bs.Filter = Filter + + '//바꾸기값이 있으면 변경 20100618 + If Frm_FilterA.cmb_fieldc.SelectedIndex >= 0 AndAlso Frm_FilterA.cmb_fieldc.Text.ToLower <> "code" AndAlso _ + Frm_FilterA.tb_valuec.Text <> "" Then + Dim Drow() As DataRow = Me.DT.Select(Filter) + For Each Dr As DataRow In Drow + Dr(Frm_FilterA.cmb_fieldc.Text) = Frm_FilterA.tb_valuec.Text + Next + MsgBox("바꾸기 완료", MsgBoxStyle.Information, "확인") + End If + + Catch ex As Exception + Me.bs.Filter = "" + End Try + End If + End If + End Sub + + Private Sub dv_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles dv.KeyDown + '//여기보시면 alt+d 누르면 한줄을 경고없이(falsE)삭제하도록 햇어요.. 사실원래 밋alt +d 인데.. ㅎㅎ 잘못해서 ctrl 됫다는 + If Prj.UserAuthType = "ADMIN" OrElse Prj.UserAuthType = "BOTH" OrElse Prj.UserAuthType = "BOTH2" OrElse Prj.UserAuthType = "BOTH1" Then '//2011.03.08 추가 + Select Case e.KeyCode + Case Keys.D + If e.Alt Then + Dbbase.DelCrow(Me.bs, False) + End If + Case Keys.C + If e.Control Then + Me.SrcDrv = Me.bs.Current + If Me.SrcDrv Is Nothing Then + MsgBox("저장할 ROW가 없습니다", MsgBoxStyle.Information, "확인") + Return + End If + ' My.Computer.Clipboard.SetData("ZDATA", Drv) + End If + Case Keys.V + If e.Control Then + If Me.SrcDrv Is Nothing Then Return + Me.bt_add.PerformClick() '//신규추가 + Dim NewDrv As DataRowView = Me.bs.Current + + For Each C As DataColumn In Me.DT.Columns + If C.ColumnName.ToUpper = "CODE" Then + ElseIf C.ColumnName.ToUpper = "설명" Then + NewDrv(C.ColumnName) = SrcDrv(C.ColumnName) & "#1" + Else + NewDrv(C.ColumnName) = SrcDrv(C.ColumnName) + End If + Next + Me.bs.EndEdit() + bs.MoveLast() + End If + End Select + End If + End Sub + + Private Sub bs_CurrentChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bs.CurrentChanged + If Not Init Then Return + Dim drv As DataRowView = Me.bs.Current + If drv Is Nothing Then Return + Me.lb_code.Text = "[" + drv("code").ToString + "]" + Me.bs.EndEdit() + End Sub + + Private Sub SplitContainer1_Panel2_Paint(sender As System.Object, e As System.Windows.Forms.PaintEventArgs) Handles SplitContainer1.Panel2.Paint + + End Sub + + Private Sub dv_CellContentClick(sender As System.Object, e As System.Windows.Forms.DataGridViewCellEventArgs) Handles dv.CellContentClick + + End Sub + + Private Sub Frm_Bunbae_KeyDown(sender As System.Object, e As System.Windows.Forms.KeyEventArgs) Handles MyBase.KeyDown + Select Case e.KeyCode + Case Keys.F12 + ShowHistory() + End Select + End Sub +End Class \ No newline at end of file diff --git a/ArinWarev1/Forms_Input/Frm_Desc.Designer.vb b/ArinWarev1/Forms_Input/Frm_Desc.Designer.vb new file mode 100644 index 0000000..93b1be2 --- /dev/null +++ b/ArinWarev1/Forms_Input/Frm_Desc.Designer.vb @@ -0,0 +1,1575 @@ + _ +Partial Class Frm_Desc + Inherits CForm + + 'Form은 Dispose를 재정의하여 구성 요소 목록을 정리합니다. + _ + Protected Overrides Sub Dispose(ByVal disposing As Boolean) + Try + If disposing AndAlso components IsNot Nothing Then + components.Dispose() + End If + Finally + MyBase.Dispose(disposing) + End Try + End Sub + + 'Windows Form 디자이너에 필요합니다. + Private components As System.ComponentModel.IContainer + + '참고: 다음 프로시저는 Windows Form 디자이너에 필요합니다. + '수정하려면 Windows Form 디자이너를 사용하십시오. + '코드 편집기를 사용하여 수정하지 마십시오. + _ + Private Sub InitializeComponent() + Me.components = New System.ComponentModel.Container() + Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(Frm_Desc)) + Me.TableLayoutPanel3 = New System.Windows.Forms.TableLayoutPanel() + Me.Label6 = New System.Windows.Forms.Label() + Me.TableLayoutPanel4 = New System.Windows.Forms.TableLayoutPanel() + Me.Label7 = New System.Windows.Forms.Label() + Me.MyTb1 = New Eco2Ar.MyTb() + Me.bs = New System.Windows.Forms.BindingSource(Me.components) + Me.DS = New Eco2Ar.DS() + Me.MyTb2 = New Eco2Ar.MyTb() + Me.Label8 = New System.Windows.Forms.Label() + Me.TableLayoutPanel5 = New System.Windows.Forms.TableLayoutPanel() + Me.Label9 = New System.Windows.Forms.Label() + Me.GroupBox4 = New System.Windows.Forms.GroupBox() + Me.Panel5 = New System.Windows.Forms.Panel() + Me.DateTimePicker3 = New System.Windows.Forms.DateTimePicker() + Me.Label13 = New System.Windows.Forms.Label() + Me.MyTb6 = New Eco2Ar.MyTb() + Me.GroupBox6 = New System.Windows.Forms.GroupBox() + Me.Panel9 = New System.Windows.Forms.Panel() + Me.DateTimePicker4 = New System.Windows.Forms.DateTimePicker() + Me.Label16 = New System.Windows.Forms.Label() + Me.Label17 = New System.Windows.Forms.Label() + Me.LinkLabel3 = New System.Windows.Forms.LinkLabel() + Me.PictureBox4 = New System.Windows.Forms.PictureBox() + Me.LinkLabel2 = New System.Windows.Forms.LinkLabel() + Me.Label18 = New System.Windows.Forms.Label() + Me.LinkLabel1 = New System.Windows.Forms.LinkLabel() + Me.PictureBox5 = New System.Windows.Forms.PictureBox() + Me.Label11 = New System.Windows.Forms.Label() + Me.Label5 = New System.Windows.Forms.Label() + Me.Label3 = New System.Windows.Forms.Label() + Me.Label22 = New System.Windows.Forms.Label() + Me.GroupBox1 = New System.Windows.Forms.GroupBox() + Me.Panel1 = New System.Windows.Forms.Panel() + Me.MyTb9 = New Eco2Ar.MyTb() + Me.Label44 = New System.Windows.Forms.Label() + Me.cmb_주거용건축물 = New Eco2Ar.MyCmb() + Me.Label43 = New System.Windows.Forms.Label() + Me.Label23 = New System.Windows.Forms.Label() + Me.TextBox77 = New Eco2Ar.MyTb() + Me.Label27 = New System.Windows.Forms.Label() + Me.Label28 = New System.Windows.Forms.Label() + Me.TextBox76 = New Eco2Ar.MyTb() + Me.Panel3 = New System.Windows.Forms.Panel() + Me.Label19 = New System.Windows.Forms.Label() + Me.MyTb7 = New Eco2Ar.MyTb() + Me.Label29 = New System.Windows.Forms.Label() + Me.Label30 = New System.Windows.Forms.Label() + Me.Label32 = New System.Windows.Forms.Label() + Me.TextBox79 = New Eco2Ar.MyTb() + Me.Label33 = New System.Windows.Forms.Label() + Me.TextBox75 = New Eco2Ar.MyTb() + Me.Label34 = New System.Windows.Forms.Label() + Me.TextBox72 = New Eco2Ar.MyTb() + Me.TextBox73 = New Eco2Ar.MyTb() + Me.TextBox71 = New Eco2Ar.MyTb() + Me.Label35 = New System.Windows.Forms.Label() + Me.cmb_location = New Eco2Ar.MyCmb() + Me.Label40 = New System.Windows.Forms.Label() + Me.Label41 = New System.Windows.Forms.Label() + Me.GroupBox5 = New System.Windows.Forms.GroupBox() + Me.Panel7 = New System.Windows.Forms.Panel() + Me.CheckBox1 = New System.Windows.Forms.CheckBox() + Me.TextBox88 = New Eco2Ar.MyTb() + Me.Label36 = New System.Windows.Forms.Label() + Me.Label37 = New System.Windows.Forms.Label() + Me.TextBox70 = New Eco2Ar.MyTb() + Me.TextBox87 = New Eco2Ar.MyTb() + Me.TextBox69 = New Eco2Ar.MyTb() + Me.Label20 = New System.Windows.Forms.Label() + Me.Label25 = New System.Windows.Forms.Label() + Me.Panel8 = New System.Windows.Forms.Panel() + Me.cmb_인증기관 = New Eco2Ar.MyCmb() + Me.Label42 = New System.Windows.Forms.Label() + Me.tb_인증수수료입금액 = New Eco2Ar.MyTb() + Me.Label24 = New System.Windows.Forms.Label() + Me.Label21 = New System.Windows.Forms.Label() + Me.TextBox90 = New Eco2Ar.MyTb() + Me.TextBox49 = New Eco2Ar.MyTb() + Me.Label38 = New System.Windows.Forms.Label() + Me.Label39 = New System.Windows.Forms.Label() + Me.TextBox89 = New Eco2Ar.MyTb() + Me.Label26 = New System.Windows.Forms.Label() + Me.Label31 = New System.Windows.Forms.Label() + Me.Label12 = New System.Windows.Forms.Label() + Me.TextBox50 = New Eco2Ar.MyTb() + Me.TextBox48 = New Eco2Ar.MyTb() + Me.Label14 = New System.Windows.Forms.Label() + Me.TextBox86 = New Eco2Ar.MyTb() + Me.GroupBox2 = New System.Windows.Forms.GroupBox() + Me.Panel4 = New System.Windows.Forms.Panel() + Me.DateTimePicker2 = New System.Windows.Forms.DateTimePicker() + Me.Label4 = New System.Windows.Forms.Label() + Me.GroupBox3 = New System.Windows.Forms.GroupBox() + Me.Panel6 = New System.Windows.Forms.Panel() + Me.DateTimePicker1 = New System.Windows.Forms.DateTimePicker() + Me.Label10 = New System.Windows.Forms.Label() + Me.Label2 = New System.Windows.Forms.Label() + Me.Label1 = New System.Windows.Forms.Label() + Me.PictureBox2 = New System.Windows.Forms.PictureBox() + Me.PictureBox3 = New System.Windows.Forms.PictureBox() + Me.Label15 = New System.Windows.Forms.Label() + Me.PictureBox1 = New System.Windows.Forms.PictureBox() + Me.ToolTip1 = New System.Windows.Forms.ToolTip(Me.components) + Me.MyTb3 = New Eco2Ar.MyTb() + Me.DateTimePicker5 = New System.Windows.Forms.DateTimePicker() + Me.GroupBox7 = New System.Windows.Forms.GroupBox() + Me.Panel2 = New System.Windows.Forms.Panel() + Me.Label45 = New System.Windows.Forms.Label() + Me.PictureBox6 = New System.Windows.Forms.PictureBox() + Me.Label46 = New System.Windows.Forms.Label() + Me.GroupBox8 = New System.Windows.Forms.GroupBox() + Me.Panel10 = New System.Windows.Forms.Panel() + Me.PictureBox7 = New System.Windows.Forms.PictureBox() + Me.Label47 = New System.Windows.Forms.Label() + Me.TableLayoutPanel3.SuspendLayout() + Me.TableLayoutPanel4.SuspendLayout() + CType(Me.bs, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.DS, System.ComponentModel.ISupportInitialize).BeginInit() + Me.TableLayoutPanel5.SuspendLayout() + Me.GroupBox4.SuspendLayout() + Me.Panel5.SuspendLayout() + Me.GroupBox6.SuspendLayout() + Me.Panel9.SuspendLayout() + CType(Me.PictureBox4, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.PictureBox5, System.ComponentModel.ISupportInitialize).BeginInit() + Me.GroupBox1.SuspendLayout() + Me.Panel1.SuspendLayout() + Me.Panel3.SuspendLayout() + Me.GroupBox5.SuspendLayout() + Me.Panel7.SuspendLayout() + Me.Panel8.SuspendLayout() + Me.GroupBox2.SuspendLayout() + Me.Panel4.SuspendLayout() + Me.GroupBox3.SuspendLayout() + Me.Panel6.SuspendLayout() + CType(Me.PictureBox2, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.PictureBox3, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit() + Me.GroupBox7.SuspendLayout() + Me.Panel2.SuspendLayout() + CType(Me.PictureBox6, System.ComponentModel.ISupportInitialize).BeginInit() + Me.GroupBox8.SuspendLayout() + Me.Panel10.SuspendLayout() + CType(Me.PictureBox7, System.ComponentModel.ISupportInitialize).BeginInit() + Me.SuspendLayout() + ' + 'TableLayoutPanel3 + ' + Me.TableLayoutPanel3.BackColor = System.Drawing.SystemColors.ButtonFace + Me.TableLayoutPanel3.CellBorderStyle = System.Windows.Forms.TableLayoutPanelCellBorderStyle.[Single] + Me.TableLayoutPanel3.ColumnCount = 2 + Me.TableLayoutPanel3.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Percent, 39.44099!)) + Me.TableLayoutPanel3.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Percent, 60.55901!)) + Me.TableLayoutPanel3.Controls.Add(Me.Label6, 0, 0) + Me.TableLayoutPanel3.Location = New System.Drawing.Point(0, 0) + Me.TableLayoutPanel3.Name = "TableLayoutPanel3" + Me.TableLayoutPanel3.RowCount = 1 + Me.TableLayoutPanel3.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Absolute, 20.0!)) + Me.TableLayoutPanel3.Size = New System.Drawing.Size(200, 100) + Me.TableLayoutPanel3.TabIndex = 0 + ' + 'Label6 + ' + Me.Label6.Anchor = System.Windows.Forms.AnchorStyles.None + Me.Label6.AutoSize = True + Me.Label6.Location = New System.Drawing.Point(23, 44) + Me.Label6.Name = "Label6" + Me.Label6.Size = New System.Drawing.Size(33, 12) + Me.Label6.TabIndex = 131 + Me.Label6.Text = "규 모" + ' + 'TableLayoutPanel4 + ' + Me.TableLayoutPanel4.CellBorderStyle = System.Windows.Forms.TableLayoutPanelCellBorderStyle.[Single] + Me.TableLayoutPanel4.ColumnCount = 2 + Me.TableLayoutPanel4.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Percent, 52.35294!)) + Me.TableLayoutPanel4.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Percent, 47.64706!)) + Me.TableLayoutPanel4.Controls.Add(Me.Label7, 0, 1) + Me.TableLayoutPanel4.Controls.Add(Me.MyTb1, 1, 1) + Me.TableLayoutPanel4.Controls.Add(Me.MyTb2, 1, 0) + Me.TableLayoutPanel4.Controls.Add(Me.Label8, 0, 0) + Me.TableLayoutPanel4.Location = New System.Drawing.Point(71, 4) + Me.TableLayoutPanel4.Name = "TableLayoutPanel4" + Me.TableLayoutPanel4.RowCount = 2 + Me.TableLayoutPanel4.RowStyles.Add(New System.Windows.Forms.RowStyle()) + Me.TableLayoutPanel4.RowStyles.Add(New System.Windows.Forms.RowStyle()) + Me.TableLayoutPanel4.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Absolute, 20.0!)) + Me.TableLayoutPanel4.Size = New System.Drawing.Size(96, 16) + Me.TableLayoutPanel4.TabIndex = 130 + ' + 'Label7 + ' + Me.Label7.Anchor = System.Windows.Forms.AnchorStyles.None + Me.Label7.AutoSize = True + Me.Label7.Location = New System.Drawing.Point(6, 30) + Me.Label7.Name = "Label7" + Me.Label7.Size = New System.Drawing.Size(38, 24) + Me.Label7.TabIndex = 0 + Me.Label7.Text = "지 상(층수)" + ' + 'MyTb1 + ' + Me.MyTb1.Anchor = System.Windows.Forms.AnchorStyles.Left + Me.MyTb1.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bs, "builds2", True)) + Me.MyTb1.Location = New System.Drawing.Point(53, 32) + Me.MyTb1.Name = "MyTb1" + Me.MyTb1.NectControl = Nothing + Me.MyTb1.Size = New System.Drawing.Size(39, 21) + Me.MyTb1.TabIndex = 1 + Me.MyTb1.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + ' + 'bs + ' + Me.bs.DataMember = "tbl_Desc" + Me.bs.DataSource = Me.DS + ' + 'DS + ' + Me.DS.DataSetName = "DS" + Me.DS.SchemaSerializationMode = System.Data.SchemaSerializationMode.IncludeSchema + ' + 'MyTb2 + ' + Me.MyTb2.Anchor = System.Windows.Forms.AnchorStyles.Left + Me.MyTb2.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bs, "builds1", True)) + Me.MyTb2.Location = New System.Drawing.Point(53, 4) + Me.MyTb2.Name = "MyTb2" + Me.MyTb2.NectControl = Nothing + Me.MyTb2.Size = New System.Drawing.Size(39, 21) + Me.MyTb2.TabIndex = 1 + Me.MyTb2.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + ' + 'Label8 + ' + Me.Label8.Anchor = System.Windows.Forms.AnchorStyles.None + Me.Label8.AutoSize = True + Me.Label8.Location = New System.Drawing.Point(6, 2) + Me.Label8.Name = "Label8" + Me.Label8.Size = New System.Drawing.Size(38, 24) + Me.Label8.TabIndex = 0 + Me.Label8.Text = "지 하(층수)" + ' + 'TableLayoutPanel5 + ' + Me.TableLayoutPanel5.BackColor = System.Drawing.SystemColors.ButtonFace + Me.TableLayoutPanel5.CellBorderStyle = System.Windows.Forms.TableLayoutPanelCellBorderStyle.[Single] + Me.TableLayoutPanel5.ColumnCount = 2 + Me.TableLayoutPanel5.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Absolute, 200.0!)) + Me.TableLayoutPanel5.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle()) + Me.TableLayoutPanel5.Controls.Add(Me.Label9, 0, 0) + Me.TableLayoutPanel5.Location = New System.Drawing.Point(0, 0) + Me.TableLayoutPanel5.Name = "TableLayoutPanel5" + Me.TableLayoutPanel5.RowCount = 1 + Me.TableLayoutPanel5.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Absolute, 20.0!)) + Me.TableLayoutPanel5.Size = New System.Drawing.Size(200, 100) + Me.TableLayoutPanel5.TabIndex = 0 + ' + 'Label9 + ' + Me.Label9.Anchor = System.Windows.Forms.AnchorStyles.None + Me.Label9.AutoSize = True + Me.Label9.Location = New System.Drawing.Point(80, 38) + Me.Label9.Name = "Label9" + Me.Label9.Size = New System.Drawing.Size(41, 24) + Me.Label9.TabIndex = 0 + Me.Label9.Text = "소재지" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & " 주 소 " + ' + 'GroupBox4 + ' + Me.GroupBox4.Controls.Add(Me.Panel5) + Me.GroupBox4.Location = New System.Drawing.Point(281, 111) + Me.GroupBox4.Name = "GroupBox4" + Me.GroupBox4.Size = New System.Drawing.Size(260, 45) + Me.GroupBox4.TabIndex = 176 + Me.GroupBox4.TabStop = False + ' + 'Panel5 + ' + Me.Panel5.BackColor = System.Drawing.Color.FromArgb(CType(CType(219, Byte), Integer), CType(CType(221, Byte), Integer), CType(CType(223, Byte), Integer)) + Me.Panel5.Controls.Add(Me.DateTimePicker3) + Me.Panel5.Controls.Add(Me.Label13) + Me.Panel5.Location = New System.Drawing.Point(2, 9) + Me.Panel5.Name = "Panel5" + Me.Panel5.Size = New System.Drawing.Size(256, 33) + Me.Panel5.TabIndex = 174 + ' + 'DateTimePicker3 + ' + Me.DateTimePicker3.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bs, "injungdate", True)) + Me.DateTimePicker3.Location = New System.Drawing.Point(68, 6) + Me.DateTimePicker3.Name = "DateTimePicker3" + Me.DateTimePicker3.Size = New System.Drawing.Size(186, 21) + Me.DateTimePicker3.TabIndex = 0 + ' + 'Label13 + ' + Me.Label13.AutoSize = True + Me.Label13.BackColor = System.Drawing.Color.FromArgb(CType(CType(219, Byte), Integer), CType(CType(221, Byte), Integer), CType(CType(223, Byte), Integer)) + Me.Label13.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Me.Label13.Location = New System.Drawing.Point(4, 10) + Me.Label13.Name = "Label13" + Me.Label13.Size = New System.Drawing.Size(62, 12) + Me.Label13.TabIndex = 0 + Me.Label13.Text = "날짜 선택" + ' + 'MyTb6 + ' + Me.MyTb6.BackColor = System.Drawing.SystemColors.Control + Me.MyTb6.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bs, "priod", True)) + Me.MyTb6.Location = New System.Drawing.Point(171, 8) + Me.MyTb6.Name = "MyTb6" + Me.MyTb6.NectControl = Nothing + Me.MyTb6.ReadOnly = True + Me.MyTb6.Size = New System.Drawing.Size(50, 21) + Me.MyTb6.TabIndex = 7 + Me.MyTb6.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + ' + 'GroupBox6 + ' + Me.GroupBox6.Controls.Add(Me.Panel9) + Me.GroupBox6.Location = New System.Drawing.Point(12, 111) + Me.GroupBox6.Name = "GroupBox6" + Me.GroupBox6.Size = New System.Drawing.Size(260, 45) + Me.GroupBox6.TabIndex = 175 + Me.GroupBox6.TabStop = False + ' + 'Panel9 + ' + Me.Panel9.BackColor = System.Drawing.Color.FromArgb(CType(CType(219, Byte), Integer), CType(CType(221, Byte), Integer), CType(CType(223, Byte), Integer)) + Me.Panel9.Controls.Add(Me.DateTimePicker4) + Me.Panel9.Controls.Add(Me.Label16) + Me.Panel9.Location = New System.Drawing.Point(2, 9) + Me.Panel9.Name = "Panel9" + Me.Panel9.Size = New System.Drawing.Size(256, 33) + Me.Panel9.TabIndex = 174 + ' + 'DateTimePicker4 + ' + Me.DateTimePicker4.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bs, "jubsudate", True)) + Me.DateTimePicker4.Location = New System.Drawing.Point(68, 6) + Me.DateTimePicker4.Name = "DateTimePicker4" + Me.DateTimePicker4.Size = New System.Drawing.Size(186, 21) + Me.DateTimePicker4.TabIndex = 0 + ' + 'Label16 + ' + Me.Label16.AutoSize = True + Me.Label16.BackColor = System.Drawing.Color.FromArgb(CType(CType(219, Byte), Integer), CType(CType(221, Byte), Integer), CType(CType(223, Byte), Integer)) + Me.Label16.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Me.Label16.Location = New System.Drawing.Point(4, 10) + Me.Label16.Name = "Label16" + Me.Label16.Size = New System.Drawing.Size(62, 12) + Me.Label16.TabIndex = 0 + Me.Label16.Text = "날짜 선택" + ' + 'Label17 + ' + Me.Label17.AutoSize = True + Me.Label17.BackColor = System.Drawing.Color.FromArgb(CType(CType(116, Byte), Integer), CType(CType(158, Byte), Integer), CType(CType(209, Byte), Integer)) + Me.Label17.ForeColor = System.Drawing.Color.White + Me.Label17.Location = New System.Drawing.Point(289, 96) + Me.Label17.Name = "Label17" + Me.Label17.Size = New System.Drawing.Size(70, 12) + Me.Label17.TabIndex = 179 + Me.Label17.Text = "인증발급일" + ' + 'LinkLabel3 + ' + Me.LinkLabel3.AutoSize = True + Me.LinkLabel3.Location = New System.Drawing.Point(413, 551) + Me.LinkLabel3.Name = "LinkLabel3" + Me.LinkLabel3.Size = New System.Drawing.Size(210, 12) + Me.LinkLabel3.TabIndex = 177 + Me.LinkLabel3.TabStop = True + Me.LinkLabel3.Text = "표준프로파일 서버로부터 가져오기" + ' + 'PictureBox4 + ' + Me.PictureBox4.BackgroundImage = CType(resources.GetObject("PictureBox4.BackgroundImage"), System.Drawing.Image) + Me.PictureBox4.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch + Me.PictureBox4.Location = New System.Drawing.Point(281, 87) + Me.PictureBox4.Name = "PictureBox4" + Me.PictureBox4.Size = New System.Drawing.Size(131, 30) + Me.PictureBox4.TabIndex = 177 + Me.PictureBox4.TabStop = False + ' + 'LinkLabel2 + ' + Me.LinkLabel2.AutoSize = True + Me.LinkLabel2.Location = New System.Drawing.Point(203, 551) + Me.LinkLabel2.Name = "LinkLabel2" + Me.LinkLabel2.Size = New System.Drawing.Size(197, 12) + Me.LinkLabel2.TabIndex = 177 + Me.LinkLabel2.TabStop = True + Me.LinkLabel2.Text = "기상데이터 서버로부터 가져오기" + Me.ToolTip1.SetToolTip(Me.LinkLabel2, "기상관련데이터를 서버로부터 가져옵니다") + ' + 'Label18 + ' + Me.Label18.AutoSize = True + Me.Label18.BackColor = System.Drawing.Color.FromArgb(CType(CType(116, Byte), Integer), CType(CType(158, Byte), Integer), CType(CType(209, Byte), Integer)) + Me.Label18.ForeColor = System.Drawing.Color.White + Me.Label18.Location = New System.Drawing.Point(24, 94) + Me.Label18.Name = "Label18" + Me.Label18.Size = New System.Drawing.Size(44, 12) + Me.Label18.TabIndex = 180 + Me.Label18.Text = "접수일" + ' + 'LinkLabel1 + ' + Me.LinkLabel1.AutoSize = True + Me.LinkLabel1.Location = New System.Drawing.Point(15, 551) + Me.LinkLabel1.Name = "LinkLabel1" + Me.LinkLabel1.Size = New System.Drawing.Size(184, 12) + Me.LinkLabel1.TabIndex = 176 + Me.LinkLabel1.TabStop = True + Me.LinkLabel1.Text = "공용코드 서버로부터 가져오기" + Me.ToolTip1.SetToolTip(Me.LinkLabel1, "공용코드의 데이터를 서버에서 가져옵니다.") + ' + 'PictureBox5 + ' + Me.PictureBox5.BackgroundImage = CType(resources.GetObject("PictureBox5.BackgroundImage"), System.Drawing.Image) + Me.PictureBox5.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch + Me.PictureBox5.Location = New System.Drawing.Point(12, 87) + Me.PictureBox5.Name = "PictureBox5" + Me.PictureBox5.Size = New System.Drawing.Size(131, 30) + Me.PictureBox5.TabIndex = 178 + Me.PictureBox5.TabStop = False + ' + 'Label11 + ' + Me.Label11.AutoSize = True + Me.Label11.BackColor = System.Drawing.Color.Transparent + Me.Label11.Location = New System.Drawing.Point(226, 12) + Me.Label11.Name = "Label11" + Me.Label11.Size = New System.Drawing.Size(18, 12) + Me.Label11.TabIndex = 170 + Me.Label11.Text = "년" + ' + 'Label5 + ' + Me.Label5.AutoSize = True + Me.Label5.BackColor = System.Drawing.Color.Transparent + Me.Label5.Location = New System.Drawing.Point(5, 12) + Me.Label5.Name = "Label5" + Me.Label5.Size = New System.Drawing.Size(119, 12) + Me.Label5.TabIndex = 170 + Me.Label5.Text = "준공 이후 경과년수" + ' + 'Label3 + ' + Me.Label3.AutoSize = True + Me.Label3.BackColor = System.Drawing.Color.White + Me.Label3.Location = New System.Drawing.Point(12, 197) + Me.Label3.Name = "Label3" + Me.Label3.Size = New System.Drawing.Size(58, 12) + Me.Label3.TabIndex = 170 + Me.Label3.Text = "[신청인]" + ' + 'Label22 + ' + Me.Label22.AutoSize = True + Me.Label22.BackColor = System.Drawing.Color.White + Me.Label22.Location = New System.Drawing.Point(12, 360) + Me.Label22.Name = "Label22" + Me.Label22.Size = New System.Drawing.Size(71, 12) + Me.Label22.TabIndex = 170 + Me.Label22.Text = "[신청건물]" + ' + 'GroupBox1 + ' + Me.GroupBox1.Controls.Add(Me.Panel1) + Me.GroupBox1.Controls.Add(Me.Panel3) + Me.GroupBox1.Location = New System.Drawing.Point(11, 370) + Me.GroupBox1.Name = "GroupBox1" + Me.GroupBox1.Size = New System.Drawing.Size(800, 174) + Me.GroupBox1.TabIndex = 175 + Me.GroupBox1.TabStop = False + ' + 'Panel1 + ' + Me.Panel1.BackColor = System.Drawing.Color.FromArgb(CType(CType(219, Byte), Integer), CType(CType(221, Byte), Integer), CType(CType(223, Byte), Integer)) + Me.Panel1.Controls.Add(Me.MyTb9) + Me.Panel1.Controls.Add(Me.Label44) + Me.Panel1.Controls.Add(Me.cmb_주거용건축물) + Me.Panel1.Controls.Add(Me.Label43) + Me.Panel1.Controls.Add(Me.Label23) + Me.Panel1.Controls.Add(Me.TextBox77) + Me.Panel1.Controls.Add(Me.Label27) + Me.Panel1.Controls.Add(Me.Label28) + Me.Panel1.Controls.Add(Me.TextBox76) + Me.Panel1.Location = New System.Drawing.Point(514, 9) + Me.Panel1.Name = "Panel1" + Me.Panel1.Size = New System.Drawing.Size(284, 162) + Me.Panel1.TabIndex = 6 + ' + 'MyTb9 + ' + Me.MyTb9.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bs, "주조명", True)) + Me.MyTb9.Location = New System.Drawing.Point(83, 55) + Me.MyTb9.Name = "MyTb9" + Me.MyTb9.NectControl = Nothing + Me.MyTb9.Size = New System.Drawing.Size(197, 21) + Me.MyTb9.TabIndex = 189 + Me.MyTb9.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + ' + 'Label44 + ' + Me.Label44.AutoSize = True + Me.Label44.BackColor = System.Drawing.Color.Transparent + Me.Label44.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Me.Label44.Location = New System.Drawing.Point(5, 59) + Me.Label44.Name = "Label44" + Me.Label44.Size = New System.Drawing.Size(70, 12) + Me.Label44.TabIndex = 190 + Me.Label44.Text = "주조명광원" + ' + 'cmb_주거용건축물 + ' + 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(83, 28) + Me.cmb_주거용건축물.Name = "cmb_주거용건축물" + Me.cmb_주거용건축물.NectControl = Nothing + Me.cmb_주거용건축물.Size = New System.Drawing.Size(197, 20) + Me.cmb_주거용건축물.TabIndex = 174 + ' + 'Label43 + ' + Me.Label43.AutoSize = True + Me.Label43.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Me.Label43.Location = New System.Drawing.Point(5, 34) + Me.Label43.Name = "Label43" + Me.Label43.Size = New System.Drawing.Size(57, 12) + Me.Label43.TabIndex = 175 + Me.Label43.Text = "건물용도" + Me.Label43.TextAlign = System.Drawing.ContentAlignment.MiddleCenter + ' + 'Label23 + ' + Me.Label23.AutoSize = True + Me.Label23.ForeColor = System.Drawing.Color.DarkBlue + Me.Label23.Location = New System.Drawing.Point(7, 6) + Me.Label23.Name = "Label23" + Me.Label23.Size = New System.Drawing.Size(94, 12) + Me.Label23.TabIndex = 75 + Me.Label23.Text = "[용도 및 규모]" + ' + 'TextBox77 + ' + Me.TextBox77.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bs, "builds2", True)) + Me.TextBox77.Location = New System.Drawing.Point(83, 111) + Me.TextBox77.Name = "TextBox77" + Me.TextBox77.NectControl = Nothing + Me.TextBox77.Size = New System.Drawing.Size(79, 21) + Me.TextBox77.TabIndex = 18 + Me.TextBox77.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + ' + 'Label27 + ' + Me.Label27.AutoSize = True + Me.Label27.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Me.Label27.Location = New System.Drawing.Point(5, 86) + Me.Label27.Name = "Label27" + Me.Label27.Size = New System.Drawing.Size(74, 12) + Me.Label27.TabIndex = 0 + Me.Label27.Text = "지 하(층수)" + ' + 'Label28 + ' + Me.Label28.AutoSize = True + Me.Label28.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Me.Label28.Location = New System.Drawing.Point(5, 115) + Me.Label28.Name = "Label28" + Me.Label28.Size = New System.Drawing.Size(74, 12) + Me.Label28.TabIndex = 2 + Me.Label28.Text = "지 상(층수)" + ' + 'TextBox76 + ' + Me.TextBox76.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bs, "builds1", True)) + Me.TextBox76.Location = New System.Drawing.Point(83, 82) + Me.TextBox76.Name = "TextBox76" + Me.TextBox76.NectControl = Nothing + Me.TextBox76.Size = New System.Drawing.Size(79, 21) + Me.TextBox76.TabIndex = 17 + Me.TextBox76.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + ' + 'Panel3 + ' + Me.Panel3.BackColor = System.Drawing.Color.FromArgb(CType(CType(219, Byte), Integer), CType(CType(221, Byte), Integer), CType(CType(223, Byte), Integer)) + Me.Panel3.Controls.Add(Me.Label19) + Me.Panel3.Controls.Add(Me.MyTb7) + Me.Panel3.Controls.Add(Me.Label29) + Me.Panel3.Controls.Add(Me.Label30) + Me.Panel3.Controls.Add(Me.Label32) + Me.Panel3.Controls.Add(Me.TextBox79) + Me.Panel3.Controls.Add(Me.Label33) + Me.Panel3.Controls.Add(Me.TextBox75) + Me.Panel3.Controls.Add(Me.Label34) + Me.Panel3.Controls.Add(Me.TextBox72) + Me.Panel3.Controls.Add(Me.TextBox73) + Me.Panel3.Controls.Add(Me.TextBox71) + Me.Panel3.Controls.Add(Me.Label35) + Me.Panel3.Controls.Add(Me.cmb_location) + Me.Panel3.Controls.Add(Me.Label40) + Me.Panel3.Controls.Add(Me.Label41) + Me.Panel3.Location = New System.Drawing.Point(1, 9) + Me.Panel3.Name = "Panel3" + Me.Panel3.Size = New System.Drawing.Size(507, 162) + Me.Panel3.TabIndex = 5 + ' + 'Label19 + ' + Me.Label19.AutoSize = True + Me.Label19.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Me.Label19.Location = New System.Drawing.Point(45, 75) + Me.Label19.Name = "Label19" + Me.Label19.Size = New System.Drawing.Size(31, 12) + Me.Label19.TabIndex = 76 + Me.Label19.Text = "구조" + ' + 'MyTb7 + ' + Me.MyTb7.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bs, "gujo", True)) + Me.MyTb7.Location = New System.Drawing.Point(81, 72) + Me.MyTb7.Name = "MyTb7" + Me.MyTb7.NectControl = Nothing + Me.MyTb7.Size = New System.Drawing.Size(416, 21) + Me.MyTb7.TabIndex = 77 + Me.MyTb7.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + ' + 'Label29 + ' + Me.Label29.AutoSize = True + Me.Label29.ForeColor = System.Drawing.Color.DarkBlue + Me.Label29.Location = New System.Drawing.Point(1, 6) + Me.Label29.Name = "Label29" + Me.Label29.Size = New System.Drawing.Size(55, 12) + Me.Label29.TabIndex = 75 + Me.Label29.Text = "[정 보]" + ' + 'Label30 + ' + Me.Label30.AutoSize = True + Me.Label30.ForeColor = System.Drawing.Color.DarkBlue + Me.Label30.Location = New System.Drawing.Point(1, 97) + Me.Label30.Name = "Label30" + Me.Label30.Size = New System.Drawing.Size(55, 12) + Me.Label30.TabIndex = 75 + Me.Label30.Text = "[면 적]" + ' + 'Label32 + ' + Me.Label32.AutoSize = True + Me.Label32.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Me.Label32.Location = New System.Drawing.Point(6, 116) + Me.Label32.Name = "Label32" + Me.Label32.Size = New System.Drawing.Size(82, 12) + Me.Label32.TabIndex = 0 + Me.Label32.Text = "대지면적(㎡)" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) + Me.Label32.TextAlign = System.Drawing.ContentAlignment.MiddleCenter + ' + 'TextBox79 + ' + Me.TextBox79.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bs, "buildm23", True)) + Me.TextBox79.Location = New System.Drawing.Point(322, 112) + Me.TextBox79.Name = "TextBox79" + Me.TextBox79.NectControl = Nothing + Me.TextBox79.Size = New System.Drawing.Size(175, 21) + Me.TextBox79.TabIndex = 16 + Me.TextBox79.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + ' + 'Label33 + ' + Me.Label33.AutoSize = True + Me.Label33.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Me.Label33.Location = New System.Drawing.Point(1, 51) + Me.Label33.Name = "Label33" + Me.Label33.Size = New System.Drawing.Size(75, 12) + Me.Label33.TabIndex = 0 + Me.Label33.Text = "소재지 주소" + ' + 'TextBox75 + ' + Me.TextBox75.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bs, "buildm22", True)) + Me.TextBox75.Location = New System.Drawing.Point(94, 136) + Me.TextBox75.Name = "TextBox75" + Me.TextBox75.NectControl = Nothing + Me.TextBox75.Size = New System.Drawing.Size(136, 21) + Me.TextBox75.TabIndex = 15 + Me.TextBox75.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + ' + 'Label34 + ' + Me.Label34.AutoSize = True + Me.Label34.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Me.Label34.Location = New System.Drawing.Point(6, 139) + Me.Label34.Name = "Label34" + Me.Label34.Size = New System.Drawing.Size(82, 12) + Me.Label34.TabIndex = 2 + Me.Label34.Text = "건축면적(㎡)" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) + Me.Label34.TextAlign = System.Drawing.ContentAlignment.MiddleCenter + ' + 'TextBox72 + ' + Me.TextBox72.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bs, "buildname", True)) + Me.TextBox72.Location = New System.Drawing.Point(81, 24) + Me.TextBox72.Name = "TextBox72" + Me.TextBox72.NectControl = Nothing + Me.TextBox72.Size = New System.Drawing.Size(256, 21) + Me.TextBox72.TabIndex = 11 + Me.TextBox72.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + ' + 'TextBox73 + ' + Me.TextBox73.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bs, "buildm21", True)) + Me.TextBox73.Location = New System.Drawing.Point(94, 113) + Me.TextBox73.Name = "TextBox73" + Me.TextBox73.NectControl = Nothing + Me.TextBox73.Size = New System.Drawing.Size(136, 21) + Me.TextBox73.TabIndex = 14 + Me.TextBox73.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + ' + 'TextBox71 + ' + Me.TextBox71.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bs, "buildaddr", True)) + Me.TextBox71.Location = New System.Drawing.Point(81, 48) + Me.TextBox71.Name = "TextBox71" + Me.TextBox71.NectControl = Nothing + Me.TextBox71.Size = New System.Drawing.Size(416, 21) + Me.TextBox71.TabIndex = 13 + Me.TextBox71.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + ' + 'Label35 + ' + Me.Label35.AutoSize = True + Me.Label35.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Me.Label35.Location = New System.Drawing.Point(248, 116) + Me.Label35.Name = "Label35" + Me.Label35.Size = New System.Drawing.Size(69, 12) + Me.Label35.TabIndex = 4 + Me.Label35.Text = "연면적(㎡)" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) + Me.Label35.TextAlign = System.Drawing.ContentAlignment.MiddleCenter + ' + 'cmb_location + ' + Me.cmb_location.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList + Me.cmb_location.FormattingEnabled = True + Me.cmb_location.Items.AddRange(New Object() {"서울", "인천", "경기", "강원", "대구", "대전", "충남", "충북", "광주", "전남", "전북", "부산", "울산", "경북", "경남", "제주"}) + Me.cmb_location.Location = New System.Drawing.Point(403, 25) + Me.cmb_location.Name = "cmb_location" + Me.cmb_location.NectControl = Nothing + Me.cmb_location.Size = New System.Drawing.Size(94, 20) + Me.cmb_location.TabIndex = 12 + ' + 'Label40 + ' + Me.Label40.AutoSize = True + Me.Label40.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Me.Label40.Location = New System.Drawing.Point(32, 27) + Me.Label40.Name = "Label40" + Me.Label40.Size = New System.Drawing.Size(44, 12) + Me.Label40.TabIndex = 0 + Me.Label40.Text = "건물명" + ' + 'Label41 + ' + Me.Label41.AutoSize = True + Me.Label41.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Me.Label41.Location = New System.Drawing.Point(366, 29) + Me.Label41.Name = "Label41" + Me.Label41.Size = New System.Drawing.Size(31, 12) + Me.Label41.TabIndex = 2 + Me.Label41.Text = "지역" + ' + 'GroupBox5 + ' + Me.GroupBox5.Controls.Add(Me.Panel7) + Me.GroupBox5.Controls.Add(Me.Panel8) + Me.GroupBox5.Location = New System.Drawing.Point(12, 207) + Me.GroupBox5.Name = "GroupBox5" + Me.GroupBox5.Size = New System.Drawing.Size(799, 147) + Me.GroupBox5.TabIndex = 174 + Me.GroupBox5.TabStop = False + ' + 'Panel7 + ' + Me.Panel7.BackColor = System.Drawing.Color.FromArgb(CType(CType(243, Byte), Integer), CType(CType(244, Byte), Integer), CType(CType(246, Byte), Integer)) + Me.Panel7.Controls.Add(Me.CheckBox1) + Me.Panel7.Controls.Add(Me.TextBox88) + Me.Panel7.Controls.Add(Me.Label36) + Me.Panel7.Controls.Add(Me.Label37) + Me.Panel7.Controls.Add(Me.TextBox70) + Me.Panel7.Controls.Add(Me.TextBox87) + Me.Panel7.Controls.Add(Me.TextBox69) + Me.Panel7.Controls.Add(Me.Label20) + Me.Panel7.Controls.Add(Me.Label25) + Me.Panel7.Location = New System.Drawing.Point(2, 9) + Me.Panel7.Name = "Panel7" + Me.Panel7.Size = New System.Drawing.Size(795, 66) + Me.Panel7.TabIndex = 0 + ' + 'CheckBox1 + ' + Me.CheckBox1.AutoSize = True + Me.CheckBox1.Location = New System.Drawing.Point(415, 13) + Me.CheckBox1.Name = "CheckBox1" + Me.CheckBox1.Size = New System.Drawing.Size(76, 16) + Me.CheckBox1.TabIndex = 9 + Me.CheckBox1.Text = "공공기관" + Me.CheckBox1.UseVisualStyleBackColor = True + ' + 'TextBox88 + ' + Me.TextBox88.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bs, "pname", True)) + Me.TextBox88.Location = New System.Drawing.Point(594, 37) + Me.TextBox88.Name = "TextBox88" + Me.TextBox88.NectControl = Nothing + Me.TextBox88.Size = New System.Drawing.Size(195, 21) + Me.TextBox88.TabIndex = 8 + Me.TextBox88.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + ' + 'Label36 + ' + Me.Label36.AutoSize = True + Me.Label36.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Me.Label36.Location = New System.Drawing.Point(506, 15) + Me.Label36.Name = "Label36" + Me.Label36.Size = New System.Drawing.Size(83, 12) + Me.Label36.TabIndex = 0 + Me.Label36.Text = "법인등록번호" + ' + 'Label37 + ' + Me.Label37.AutoSize = True + Me.Label37.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Me.Label37.Location = New System.Drawing.Point(514, 41) + Me.Label37.Name = "Label37" + Me.Label37.Size = New System.Drawing.Size(75, 12) + Me.Label37.TabIndex = 2 + Me.Label37.Text = "대표자 성명" + ' + 'TextBox70 + ' + Me.TextBox70.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bs, "addr", True)) + Me.TextBox70.Location = New System.Drawing.Point(53, 37) + Me.TextBox70.Name = "TextBox70" + Me.TextBox70.NectControl = Nothing + Me.TextBox70.Size = New System.Drawing.Size(442, 21) + Me.TextBox70.TabIndex = 2 + Me.TextBox70.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + ' + 'TextBox87 + ' + Me.TextBox87.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bs, "dungno", True)) + Me.TextBox87.Location = New System.Drawing.Point(594, 11) + Me.TextBox87.Name = "TextBox87" + Me.TextBox87.NectControl = Nothing + Me.TextBox87.Size = New System.Drawing.Size(195, 21) + Me.TextBox87.TabIndex = 7 + Me.TextBox87.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + ' + 'TextBox69 + ' + Me.TextBox69.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bs, "cname", True)) + Me.TextBox69.Location = New System.Drawing.Point(53, 11) + Me.TextBox69.Name = "TextBox69" + Me.TextBox69.NectControl = Nothing + Me.TextBox69.Size = New System.Drawing.Size(355, 21) + Me.TextBox69.TabIndex = 1 + Me.TextBox69.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + ' + 'Label20 + ' + Me.Label20.AutoSize = True + Me.Label20.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Me.Label20.Location = New System.Drawing.Point(5, 15) + Me.Label20.Name = "Label20" + Me.Label20.Size = New System.Drawing.Size(44, 12) + Me.Label20.TabIndex = 0 + Me.Label20.Text = "업체명" + ' + 'Label25 + ' + Me.Label25.AutoSize = True + Me.Label25.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Me.Label25.Location = New System.Drawing.Point(8, 41) + Me.Label25.Name = "Label25" + Me.Label25.Size = New System.Drawing.Size(41, 12) + Me.Label25.TabIndex = 2 + Me.Label25.Text = "주 소 " + ' + 'Panel8 + ' + Me.Panel8.BackColor = System.Drawing.Color.FromArgb(CType(CType(243, Byte), Integer), CType(CType(244, Byte), Integer), CType(CType(246, Byte), Integer)) + Me.Panel8.Controls.Add(Me.cmb_인증기관) + Me.Panel8.Controls.Add(Me.Label42) + Me.Panel8.Controls.Add(Me.tb_인증수수료입금액) + Me.Panel8.Controls.Add(Me.Label24) + Me.Panel8.Controls.Add(Me.Label21) + Me.Panel8.Controls.Add(Me.TextBox90) + Me.Panel8.Controls.Add(Me.TextBox49) + Me.Panel8.Controls.Add(Me.Label38) + Me.Panel8.Controls.Add(Me.Label39) + Me.Panel8.Controls.Add(Me.TextBox89) + Me.Panel8.Controls.Add(Me.Label26) + Me.Panel8.Controls.Add(Me.Label31) + Me.Panel8.Controls.Add(Me.Label12) + Me.Panel8.Controls.Add(Me.TextBox50) + Me.Panel8.Controls.Add(Me.TextBox48) + Me.Panel8.Controls.Add(Me.Label14) + Me.Panel8.Controls.Add(Me.TextBox86) + Me.Panel8.Location = New System.Drawing.Point(2, 81) + Me.Panel8.Name = "Panel8" + Me.Panel8.Size = New System.Drawing.Size(795, 63) + Me.Panel8.TabIndex = 0 + ' + 'cmb_인증기관 + ' + 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(594, 8) + Me.cmb_인증기관.Name = "cmb_인증기관" + Me.cmb_인증기관.NectControl = Nothing + Me.cmb_인증기관.Size = New System.Drawing.Size(195, 20) + Me.cmb_인증기관.TabIndex = 191 + ' + 'Label42 + ' + Me.Label42.AutoSize = True + Me.Label42.BackColor = System.Drawing.Color.Transparent + Me.Label42.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Me.Label42.Location = New System.Drawing.Point(506, 11) + Me.Label42.Name = "Label42" + Me.Label42.Size = New System.Drawing.Size(57, 12) + Me.Label42.TabIndex = 188 + Me.Label42.Text = "인증기관" + ' + 'tb_인증수수료입금액 + ' + Me.tb_인증수수료입금액.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bs, "용도수수료입금액", True)) + Me.tb_인증수수료입금액.Location = New System.Drawing.Point(595, 36) + Me.tb_인증수수료입금액.Name = "tb_인증수수료입금액" + Me.tb_인증수수료입금액.NectControl = Nothing + Me.tb_인증수수료입금액.Size = New System.Drawing.Size(163, 21) + Me.tb_인증수수료입금액.TabIndex = 182 + Me.tb_인증수수료입금액.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + ' + 'Label24 + ' + Me.Label24.AutoSize = True + Me.Label24.BackColor = System.Drawing.Color.Transparent + Me.Label24.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Me.Label24.Location = New System.Drawing.Point(761, 39) + Me.Label24.Name = "Label24" + Me.Label24.Size = New System.Drawing.Size(18, 12) + Me.Label24.TabIndex = 183 + Me.Label24.Text = "원" + ' + 'Label21 + ' + Me.Label21.AutoSize = True + Me.Label21.BackColor = System.Drawing.Color.Transparent + Me.Label21.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Me.Label21.Location = New System.Drawing.Point(506, 39) + Me.Label21.Name = "Label21" + Me.Label21.Size = New System.Drawing.Size(83, 12) + Me.Label21.TabIndex = 183 + Me.Label21.Text = "수수료입금액" + ' + 'TextBox90 + ' + Me.TextBox90.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bs, "email", True)) + Me.TextBox90.Location = New System.Drawing.Point(368, 35) + Me.TextBox90.Name = "TextBox90" + Me.TextBox90.NectControl = Nothing + Me.TextBox90.Size = New System.Drawing.Size(127, 21) + Me.TextBox90.TabIndex = 10 + Me.TextBox90.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + ' + 'TextBox49 + ' + Me.TextBox49.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bs, "dept", True)) + Me.TextBox49.Location = New System.Drawing.Point(201, 8) + Me.TextBox49.Name = "TextBox49" + Me.TextBox49.NectControl = Nothing + Me.TextBox49.Size = New System.Drawing.Size(104, 21) + Me.TextBox49.TabIndex = 4 + Me.TextBox49.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + ' + 'Label38 + ' + Me.Label38.AutoSize = True + Me.Label38.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Me.Label38.Location = New System.Drawing.Point(315, 39) + Me.Label38.Name = "Label38" + Me.Label38.Size = New System.Drawing.Size(47, 12) + Me.Label38.TabIndex = 6 + Me.Label38.Text = "E-mail" + ' + 'Label39 + ' + Me.Label39.AutoSize = True + Me.Label39.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Me.Label39.Location = New System.Drawing.Point(328, 12) + Me.Label39.Name = "Label39" + Me.Label39.Size = New System.Drawing.Size(36, 12) + Me.Label39.TabIndex = 4 + Me.Label39.Text = "직 위" + ' + 'TextBox89 + ' + Me.TextBox89.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bs, "grade", True)) + Me.TextBox89.Location = New System.Drawing.Point(368, 8) + Me.TextBox89.Name = "TextBox89" + Me.TextBox89.NectControl = Nothing + Me.TextBox89.Size = New System.Drawing.Size(127, 21) + Me.TextBox89.TabIndex = 9 + Me.TextBox89.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + ' + 'Label26 + ' + Me.Label26.AutoSize = True + Me.Label26.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Me.Label26.Location = New System.Drawing.Point(10, 12) + Me.Label26.Name = "Label26" + Me.Label26.Size = New System.Drawing.Size(36, 12) + Me.Label26.TabIndex = 0 + Me.Label26.Text = "성 명" + ' + 'Label31 + ' + Me.Label31.AutoSize = True + Me.Label31.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Me.Label31.Location = New System.Drawing.Point(11, 39) + Me.Label31.Name = "Label31" + Me.Label31.Size = New System.Drawing.Size(30, 12) + Me.Label31.TabIndex = 4 + Me.Label31.Text = "TEL" + ' + 'Label12 + ' + Me.Label12.AutoSize = True + Me.Label12.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Me.Label12.Location = New System.Drawing.Point(163, 12) + Me.Label12.Name = "Label12" + Me.Label12.Size = New System.Drawing.Size(36, 12) + Me.Label12.TabIndex = 2 + Me.Label12.Text = "부 서" + ' + 'TextBox50 + ' + Me.TextBox50.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bs, "tel", True)) + Me.TextBox50.Location = New System.Drawing.Point(53, 35) + Me.TextBox50.Name = "TextBox50" + Me.TextBox50.NectControl = Nothing + Me.TextBox50.Size = New System.Drawing.Size(104, 21) + Me.TextBox50.TabIndex = 5 + Me.TextBox50.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + ' + 'TextBox48 + ' + Me.TextBox48.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bs, "name", True)) + Me.TextBox48.Location = New System.Drawing.Point(53, 8) + Me.TextBox48.Name = "TextBox48" + Me.TextBox48.NectControl = Nothing + Me.TextBox48.Size = New System.Drawing.Size(104, 21) + Me.TextBox48.TabIndex = 3 + Me.TextBox48.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + ' + 'Label14 + ' + Me.Label14.AutoSize = True + Me.Label14.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Me.Label14.Location = New System.Drawing.Point(165, 39) + Me.Label14.Name = "Label14" + Me.Label14.Size = New System.Drawing.Size(31, 12) + Me.Label14.TabIndex = 5 + Me.Label14.Text = "FAX" + ' + 'TextBox86 + ' + Me.TextBox86.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bs, "fax", True)) + Me.TextBox86.Location = New System.Drawing.Point(201, 35) + Me.TextBox86.Name = "TextBox86" + Me.TextBox86.NectControl = Nothing + Me.TextBox86.Size = New System.Drawing.Size(104, 21) + Me.TextBox86.TabIndex = 6 + Me.TextBox86.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + ' + 'GroupBox2 + ' + Me.GroupBox2.Controls.Add(Me.Panel4) + Me.GroupBox2.Location = New System.Drawing.Point(281, 39) + Me.GroupBox2.Name = "GroupBox2" + Me.GroupBox2.Size = New System.Drawing.Size(260, 45) + Me.GroupBox2.TabIndex = 162 + Me.GroupBox2.TabStop = False + ' + 'Panel4 + ' + Me.Panel4.BackColor = System.Drawing.Color.FromArgb(CType(CType(219, Byte), Integer), CType(CType(221, Byte), Integer), CType(CType(223, Byte), Integer)) + Me.Panel4.Controls.Add(Me.DateTimePicker2) + Me.Panel4.Controls.Add(Me.Label4) + Me.Panel4.Location = New System.Drawing.Point(2, 9) + Me.Panel4.Name = "Panel4" + Me.Panel4.Size = New System.Drawing.Size(256, 33) + Me.Panel4.TabIndex = 174 + ' + 'DateTimePicker2 + ' + Me.DateTimePicker2.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bs, "existdate", True)) + Me.DateTimePicker2.Location = New System.Drawing.Point(68, 6) + Me.DateTimePicker2.Name = "DateTimePicker2" + Me.DateTimePicker2.Size = New System.Drawing.Size(186, 21) + Me.DateTimePicker2.TabIndex = 0 + ' + 'Label4 + ' + Me.Label4.AutoSize = True + Me.Label4.BackColor = System.Drawing.Color.FromArgb(CType(CType(219, Byte), Integer), CType(CType(221, Byte), Integer), CType(CType(223, Byte), Integer)) + Me.Label4.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Me.Label4.Location = New System.Drawing.Point(4, 10) + Me.Label4.Name = "Label4" + Me.Label4.Size = New System.Drawing.Size(62, 12) + Me.Label4.TabIndex = 0 + Me.Label4.Text = "날짜 선택" + ' + 'GroupBox3 + ' + Me.GroupBox3.Controls.Add(Me.Panel6) + Me.GroupBox3.Location = New System.Drawing.Point(12, 39) + Me.GroupBox3.Name = "GroupBox3" + Me.GroupBox3.Size = New System.Drawing.Size(260, 45) + Me.GroupBox3.TabIndex = 162 + Me.GroupBox3.TabStop = False + ' + 'Panel6 + ' + Me.Panel6.BackColor = System.Drawing.Color.FromArgb(CType(CType(219, Byte), Integer), CType(CType(221, Byte), Integer), CType(CType(223, Byte), Integer)) + Me.Panel6.Controls.Add(Me.DateTimePicker1) + Me.Panel6.Controls.Add(Me.Label10) + Me.Panel6.Location = New System.Drawing.Point(2, 9) + Me.Panel6.Name = "Panel6" + Me.Panel6.Size = New System.Drawing.Size(256, 33) + Me.Panel6.TabIndex = 174 + ' + 'DateTimePicker1 + ' + Me.DateTimePicker1.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bs, "reqdate", True)) + Me.DateTimePicker1.Location = New System.Drawing.Point(68, 6) + Me.DateTimePicker1.Name = "DateTimePicker1" + Me.DateTimePicker1.Size = New System.Drawing.Size(186, 21) + Me.DateTimePicker1.TabIndex = 0 + ' + 'Label10 + ' + Me.Label10.AutoSize = True + Me.Label10.BackColor = System.Drawing.Color.FromArgb(CType(CType(219, Byte), Integer), CType(CType(221, Byte), Integer), CType(CType(223, Byte), Integer)) + Me.Label10.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Me.Label10.Location = New System.Drawing.Point(4, 10) + Me.Label10.Name = "Label10" + Me.Label10.Size = New System.Drawing.Size(62, 12) + Me.Label10.TabIndex = 0 + Me.Label10.Text = "날짜 선택" + ' + 'Label2 + ' + Me.Label2.AutoSize = True + Me.Label2.BackColor = System.Drawing.Color.FromArgb(CType(CType(116, Byte), Integer), CType(CType(158, Byte), Integer), CType(CType(209, Byte), Integer)) + Me.Label2.ForeColor = System.Drawing.Color.White + Me.Label2.Location = New System.Drawing.Point(24, 172) + Me.Label2.Name = "Label2" + Me.Label2.Size = New System.Drawing.Size(88, 12) + Me.Label2.TabIndex = 173 + Me.Label2.Text = "건물정보 입력" + ' + 'Label1 + ' + Me.Label1.AutoSize = True + Me.Label1.BackColor = System.Drawing.Color.FromArgb(CType(CType(116, Byte), Integer), CType(CType(158, Byte), Integer), CType(CType(209, Byte), Integer)) + Me.Label1.ForeColor = System.Drawing.Color.White + Me.Label1.Location = New System.Drawing.Point(289, 24) + Me.Label1.Name = "Label1" + Me.Label1.Size = New System.Drawing.Size(57, 12) + Me.Label1.TabIndex = 171 + Me.Label1.Text = "준공일자" + ' + 'PictureBox2 + ' + Me.PictureBox2.BackgroundImage = CType(resources.GetObject("PictureBox2.BackgroundImage"), System.Drawing.Image) + Me.PictureBox2.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch + Me.PictureBox2.Location = New System.Drawing.Point(14, 162) + Me.PictureBox2.Name = "PictureBox2" + Me.PictureBox2.Size = New System.Drawing.Size(131, 30) + Me.PictureBox2.TabIndex = 172 + Me.PictureBox2.TabStop = False + ' + 'PictureBox3 + ' + Me.PictureBox3.BackgroundImage = CType(resources.GetObject("PictureBox3.BackgroundImage"), System.Drawing.Image) + Me.PictureBox3.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch + Me.PictureBox3.Location = New System.Drawing.Point(282, 15) + Me.PictureBox3.Name = "PictureBox3" + Me.PictureBox3.Size = New System.Drawing.Size(131, 30) + Me.PictureBox3.TabIndex = 170 + Me.PictureBox3.TabStop = False + ' + 'Label15 + ' + Me.Label15.AutoSize = True + Me.Label15.BackColor = System.Drawing.Color.FromArgb(CType(CType(116, Byte), Integer), CType(CType(158, Byte), Integer), CType(CType(209, Byte), Integer)) + Me.Label15.ForeColor = System.Drawing.Color.White + Me.Label15.Location = New System.Drawing.Point(24, 24) + Me.Label15.Name = "Label15" + Me.Label15.Size = New System.Drawing.Size(57, 12) + Me.Label15.TabIndex = 171 + Me.Label15.Text = "신청일자" + ' + 'PictureBox1 + ' + Me.PictureBox1.BackgroundImage = CType(resources.GetObject("PictureBox1.BackgroundImage"), System.Drawing.Image) + Me.PictureBox1.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch + Me.PictureBox1.Location = New System.Drawing.Point(12, 15) + Me.PictureBox1.Name = "PictureBox1" + Me.PictureBox1.Size = New System.Drawing.Size(131, 30) + Me.PictureBox1.TabIndex = 170 + Me.PictureBox1.TabStop = False + ' + 'MyTb3 + ' + Me.MyTb3.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bs, "buildaddr", True)) + Me.MyTb3.Location = New System.Drawing.Point(205, 4) + Me.MyTb3.Name = "MyTb3" + Me.MyTb3.NectControl = Nothing + Me.MyTb3.Size = New System.Drawing.Size(187, 21) + Me.MyTb3.TabIndex = 1 + Me.MyTb3.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + ' + 'DateTimePicker5 + ' + Me.DateTimePicker5.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bs, "용도수수료입금일", True)) + Me.DateTimePicker5.Location = New System.Drawing.Point(68, 6) + Me.DateTimePicker5.Name = "DateTimePicker5" + Me.DateTimePicker5.Size = New System.Drawing.Size(186, 21) + Me.DateTimePicker5.TabIndex = 186 + ' + 'GroupBox7 + ' + Me.GroupBox7.Controls.Add(Me.Panel2) + Me.GroupBox7.Location = New System.Drawing.Point(549, 111) + Me.GroupBox7.Name = "GroupBox7" + Me.GroupBox7.Size = New System.Drawing.Size(260, 45) + Me.GroupBox7.TabIndex = 176 + Me.GroupBox7.TabStop = False + ' + 'Panel2 + ' + Me.Panel2.BackColor = System.Drawing.Color.FromArgb(CType(CType(219, Byte), Integer), CType(CType(221, Byte), Integer), CType(CType(223, Byte), Integer)) + Me.Panel2.Controls.Add(Me.DateTimePicker5) + Me.Panel2.Controls.Add(Me.Label45) + Me.Panel2.Location = New System.Drawing.Point(2, 9) + Me.Panel2.Name = "Panel2" + Me.Panel2.Size = New System.Drawing.Size(256, 33) + Me.Panel2.TabIndex = 174 + ' + 'Label45 + ' + Me.Label45.AutoSize = True + Me.Label45.BackColor = System.Drawing.Color.FromArgb(CType(CType(219, Byte), Integer), CType(CType(221, Byte), Integer), CType(CType(223, Byte), Integer)) + Me.Label45.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Me.Label45.Location = New System.Drawing.Point(4, 10) + Me.Label45.Name = "Label45" + Me.Label45.Size = New System.Drawing.Size(62, 12) + Me.Label45.TabIndex = 0 + Me.Label45.Text = "날짜 선택" + ' + 'PictureBox6 + ' + Me.PictureBox6.BackgroundImage = CType(resources.GetObject("PictureBox6.BackgroundImage"), System.Drawing.Image) + Me.PictureBox6.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch + Me.PictureBox6.Location = New System.Drawing.Point(549, 87) + Me.PictureBox6.Name = "PictureBox6" + Me.PictureBox6.Size = New System.Drawing.Size(131, 30) + Me.PictureBox6.TabIndex = 177 + Me.PictureBox6.TabStop = False + ' + 'Label46 + ' + Me.Label46.AutoSize = True + Me.Label46.BackColor = System.Drawing.Color.FromArgb(CType(CType(116, Byte), Integer), CType(CType(158, Byte), Integer), CType(CType(209, Byte), Integer)) + Me.Label46.ForeColor = System.Drawing.Color.White + Me.Label46.Location = New System.Drawing.Point(557, 96) + Me.Label46.Name = "Label46" + Me.Label46.Size = New System.Drawing.Size(83, 12) + Me.Label46.TabIndex = 179 + Me.Label46.Text = "수수료입금일" + ' + 'GroupBox8 + ' + Me.GroupBox8.Controls.Add(Me.Panel10) + Me.GroupBox8.Location = New System.Drawing.Point(549, 39) + Me.GroupBox8.Name = "GroupBox8" + Me.GroupBox8.Size = New System.Drawing.Size(260, 45) + Me.GroupBox8.TabIndex = 176 + Me.GroupBox8.TabStop = False + ' + 'Panel10 + ' + Me.Panel10.BackColor = System.Drawing.Color.FromArgb(CType(CType(219, Byte), Integer), CType(CType(221, Byte), Integer), CType(CType(223, Byte), Integer)) + Me.Panel10.Controls.Add(Me.Label5) + Me.Panel10.Controls.Add(Me.Label11) + Me.Panel10.Controls.Add(Me.MyTb6) + Me.Panel10.Location = New System.Drawing.Point(2, 9) + Me.Panel10.Name = "Panel10" + Me.Panel10.Size = New System.Drawing.Size(256, 33) + Me.Panel10.TabIndex = 174 + ' + 'PictureBox7 + ' + Me.PictureBox7.BackgroundImage = CType(resources.GetObject("PictureBox7.BackgroundImage"), System.Drawing.Image) + Me.PictureBox7.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch + Me.PictureBox7.Location = New System.Drawing.Point(549, 15) + Me.PictureBox7.Name = "PictureBox7" + Me.PictureBox7.Size = New System.Drawing.Size(131, 30) + Me.PictureBox7.TabIndex = 177 + Me.PictureBox7.TabStop = False + ' + 'Label47 + ' + Me.Label47.AutoSize = True + Me.Label47.BackColor = System.Drawing.Color.FromArgb(CType(CType(116, Byte), Integer), CType(CType(158, Byte), Integer), CType(CType(209, Byte), Integer)) + Me.Label47.ForeColor = System.Drawing.Color.White + Me.Label47.Location = New System.Drawing.Point(557, 24) + Me.Label47.Name = "Label47" + Me.Label47.Size = New System.Drawing.Size(57, 12) + Me.Label47.TabIndex = 179 + Me.Label47.Text = "경과년수" + ' + 'Frm_Desc + ' + Me.AutoScaleDimensions = New System.Drawing.SizeF(8.0!, 12.0!) + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font + Me.BackColor = System.Drawing.Color.White + Me.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch + Me.ClientSize = New System.Drawing.Size(818, 574) + Me.ControlBox = False + Me.Controls.Add(Me.Label22) + Me.Controls.Add(Me.Label3) + Me.Controls.Add(Me.Label2) + Me.Controls.Add(Me.PictureBox2) + Me.Controls.Add(Me.Label15) + Me.Controls.Add(Me.PictureBox1) + Me.Controls.Add(Me.Label18) + Me.Controls.Add(Me.PictureBox5) + Me.Controls.Add(Me.Label47) + Me.Controls.Add(Me.Label46) + Me.Controls.Add(Me.PictureBox7) + Me.Controls.Add(Me.Label17) + Me.Controls.Add(Me.PictureBox6) + Me.Controls.Add(Me.PictureBox4) + Me.Controls.Add(Me.Label1) + Me.Controls.Add(Me.GroupBox8) + Me.Controls.Add(Me.PictureBox3) + Me.Controls.Add(Me.GroupBox7) + Me.Controls.Add(Me.GroupBox1) + Me.Controls.Add(Me.GroupBox4) + Me.Controls.Add(Me.GroupBox6) + Me.Controls.Add(Me.GroupBox5) + Me.Controls.Add(Me.GroupBox2) + Me.Controls.Add(Me.LinkLabel1) + Me.Controls.Add(Me.LinkLabel3) + Me.Controls.Add(Me.GroupBox3) + Me.Controls.Add(Me.LinkLabel2) + Me.Font = New System.Drawing.Font("돋움", 8.999999!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.KeyPreview = True + Me.Name = "Frm_Desc" + Me.Opacity = 0.8R + Me.Padding = New System.Windows.Forms.Padding(30) + Me.ShowIcon = False + Me.ShowInTaskbar = False + Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen + Me.Text = "건물개요" + Me.TopMost = True + Me.TableLayoutPanel3.ResumeLayout(False) + Me.TableLayoutPanel3.PerformLayout() + Me.TableLayoutPanel4.ResumeLayout(False) + Me.TableLayoutPanel4.PerformLayout() + CType(Me.bs, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.DS, System.ComponentModel.ISupportInitialize).EndInit() + Me.TableLayoutPanel5.ResumeLayout(False) + Me.TableLayoutPanel5.PerformLayout() + Me.GroupBox4.ResumeLayout(False) + Me.Panel5.ResumeLayout(False) + Me.Panel5.PerformLayout() + Me.GroupBox6.ResumeLayout(False) + Me.Panel9.ResumeLayout(False) + Me.Panel9.PerformLayout() + CType(Me.PictureBox4, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.PictureBox5, System.ComponentModel.ISupportInitialize).EndInit() + Me.GroupBox1.ResumeLayout(False) + Me.Panel1.ResumeLayout(False) + Me.Panel1.PerformLayout() + Me.Panel3.ResumeLayout(False) + Me.Panel3.PerformLayout() + Me.GroupBox5.ResumeLayout(False) + Me.Panel7.ResumeLayout(False) + Me.Panel7.PerformLayout() + Me.Panel8.ResumeLayout(False) + Me.Panel8.PerformLayout() + Me.GroupBox2.ResumeLayout(False) + Me.Panel4.ResumeLayout(False) + Me.Panel4.PerformLayout() + Me.GroupBox3.ResumeLayout(False) + Me.Panel6.ResumeLayout(False) + Me.Panel6.PerformLayout() + CType(Me.PictureBox2, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.PictureBox3, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).EndInit() + Me.GroupBox7.ResumeLayout(False) + Me.Panel2.ResumeLayout(False) + Me.Panel2.PerformLayout() + CType(Me.PictureBox6, System.ComponentModel.ISupportInitialize).EndInit() + Me.GroupBox8.ResumeLayout(False) + Me.Panel10.ResumeLayout(False) + Me.Panel10.PerformLayout() + CType(Me.PictureBox7, System.ComponentModel.ISupportInitialize).EndInit() + Me.ResumeLayout(False) + Me.PerformLayout() + + End Sub + Friend WithEvents bs As System.Windows.Forms.BindingSource + Public WithEvents DS As Eco2Ar.DS + Friend WithEvents TableLayoutPanel3 As System.Windows.Forms.TableLayoutPanel + Friend WithEvents Label6 As System.Windows.Forms.Label + Friend WithEvents TableLayoutPanel4 As System.Windows.Forms.TableLayoutPanel + Friend WithEvents Label7 As System.Windows.Forms.Label + Friend WithEvents MyTb1 As Eco2Ar.MyTb + Friend WithEvents MyTb2 As Eco2Ar.MyTb + Friend WithEvents Label8 As System.Windows.Forms.Label + Friend WithEvents TableLayoutPanel5 As System.Windows.Forms.TableLayoutPanel + Friend WithEvents Label9 As System.Windows.Forms.Label + Friend WithEvents MyTb3 As Eco2Ar.MyTb + Friend WithEvents TextBox77 As Eco2Ar.MyTb + Friend WithEvents TextBox76 As Eco2Ar.MyTb + Friend WithEvents TextBox79 As Eco2Ar.MyTb + Friend WithEvents TextBox75 As Eco2Ar.MyTb + Friend WithEvents TextBox73 As Eco2Ar.MyTb + Friend WithEvents DateTimePicker1 As System.Windows.Forms.DateTimePicker + Friend WithEvents cmb_location As Eco2Ar.MyCmb + Friend WithEvents TextBox72 As Eco2Ar.MyTb + Friend WithEvents TextBox70 As Eco2Ar.MyTb + Friend WithEvents TextBox69 As Eco2Ar.MyTb + Friend WithEvents TextBox71 As Eco2Ar.MyTb + Friend WithEvents TextBox48 As Eco2Ar.MyTb + Friend WithEvents TextBox49 As Eco2Ar.MyTb + Friend WithEvents TextBox86 As Eco2Ar.MyTb + Friend WithEvents TextBox50 As Eco2Ar.MyTb + Friend WithEvents TextBox88 As Eco2Ar.MyTb + Friend WithEvents TextBox87 As Eco2Ar.MyTb + Friend WithEvents TextBox90 As Eco2Ar.MyTb + Friend WithEvents TextBox89 As Eco2Ar.MyTb + Friend WithEvents GroupBox3 As System.Windows.Forms.GroupBox + Friend WithEvents GroupBox1 As System.Windows.Forms.GroupBox + Friend WithEvents Label22 As System.Windows.Forms.Label + Friend WithEvents Panel1 As System.Windows.Forms.Panel + Friend WithEvents Label23 As System.Windows.Forms.Label + Friend WithEvents Label27 As System.Windows.Forms.Label + Friend WithEvents Label28 As System.Windows.Forms.Label + Friend WithEvents Panel3 As System.Windows.Forms.Panel + Friend WithEvents Label29 As System.Windows.Forms.Label + Friend WithEvents Label30 As System.Windows.Forms.Label + Friend WithEvents Label32 As System.Windows.Forms.Label + Friend WithEvents Label33 As System.Windows.Forms.Label + Friend WithEvents Label34 As System.Windows.Forms.Label + Friend WithEvents Label35 As System.Windows.Forms.Label + Friend WithEvents Label40 As System.Windows.Forms.Label + Friend WithEvents Label41 As System.Windows.Forms.Label + Friend WithEvents GroupBox5 As System.Windows.Forms.GroupBox + Friend WithEvents Label3 As System.Windows.Forms.Label + Friend WithEvents Panel7 As System.Windows.Forms.Panel + Friend WithEvents Label12 As System.Windows.Forms.Label + Friend WithEvents Label14 As System.Windows.Forms.Label + Friend WithEvents Label20 As System.Windows.Forms.Label + Friend WithEvents Label25 As System.Windows.Forms.Label + Friend WithEvents Label26 As System.Windows.Forms.Label + Friend WithEvents Label31 As System.Windows.Forms.Label + Friend WithEvents Panel8 As System.Windows.Forms.Panel + Friend WithEvents Label36 As System.Windows.Forms.Label + Friend WithEvents Label37 As System.Windows.Forms.Label + Friend WithEvents Label38 As System.Windows.Forms.Label + Friend WithEvents Label39 As System.Windows.Forms.Label + Friend WithEvents Panel6 As System.Windows.Forms.Panel + Friend WithEvents Label10 As System.Windows.Forms.Label + Friend WithEvents Label2 As System.Windows.Forms.Label + Friend WithEvents PictureBox2 As System.Windows.Forms.PictureBox + Friend WithEvents Label15 As System.Windows.Forms.Label + Friend WithEvents PictureBox1 As System.Windows.Forms.PictureBox + Friend WithEvents LinkLabel2 As System.Windows.Forms.LinkLabel + Friend WithEvents LinkLabel1 As System.Windows.Forms.LinkLabel + Friend WithEvents ToolTip1 As System.Windows.Forms.ToolTip + Friend WithEvents LinkLabel3 As System.Windows.Forms.LinkLabel + Friend WithEvents MyTb6 As Eco2Ar.MyTb + Friend WithEvents Label5 As System.Windows.Forms.Label + Friend WithEvents GroupBox2 As System.Windows.Forms.GroupBox + Friend WithEvents Panel4 As System.Windows.Forms.Panel + Friend WithEvents DateTimePicker2 As System.Windows.Forms.DateTimePicker + Friend WithEvents Label4 As System.Windows.Forms.Label + Friend WithEvents Label1 As System.Windows.Forms.Label + Friend WithEvents PictureBox3 As System.Windows.Forms.PictureBox + Friend WithEvents Label11 As System.Windows.Forms.Label + Friend WithEvents GroupBox4 As System.Windows.Forms.GroupBox + Friend WithEvents Panel5 As System.Windows.Forms.Panel + Friend WithEvents DateTimePicker3 As System.Windows.Forms.DateTimePicker + Friend WithEvents Label13 As System.Windows.Forms.Label + Friend WithEvents GroupBox6 As System.Windows.Forms.GroupBox + Friend WithEvents Panel9 As System.Windows.Forms.Panel + Friend WithEvents DateTimePicker4 As System.Windows.Forms.DateTimePicker + Friend WithEvents Label16 As System.Windows.Forms.Label + Friend WithEvents Label17 As System.Windows.Forms.Label + Friend WithEvents PictureBox4 As System.Windows.Forms.PictureBox + Friend WithEvents Label18 As System.Windows.Forms.Label + Friend WithEvents PictureBox5 As System.Windows.Forms.PictureBox + Friend WithEvents Label19 As System.Windows.Forms.Label + Friend WithEvents MyTb7 As Eco2Ar.MyTb + Friend WithEvents tb_인증수수료입금액 As Eco2Ar.MyTb + Friend WithEvents Label21 As System.Windows.Forms.Label + Friend WithEvents Label43 As System.Windows.Forms.Label + Friend WithEvents cmb_주거용건축물 As Eco2Ar.MyCmb + Friend WithEvents DateTimePicker5 As System.Windows.Forms.DateTimePicker + Friend WithEvents Label42 As System.Windows.Forms.Label + Friend WithEvents Label44 As System.Windows.Forms.Label + Friend WithEvents MyTb9 As Eco2Ar.MyTb + Friend WithEvents GroupBox7 As System.Windows.Forms.GroupBox + Friend WithEvents Panel2 As System.Windows.Forms.Panel + Friend WithEvents Label45 As System.Windows.Forms.Label + Friend WithEvents PictureBox6 As System.Windows.Forms.PictureBox + Friend WithEvents Label46 As System.Windows.Forms.Label + Friend WithEvents GroupBox8 As System.Windows.Forms.GroupBox + Friend WithEvents Panel10 As System.Windows.Forms.Panel + Friend WithEvents PictureBox7 As System.Windows.Forms.PictureBox + Friend WithEvents Label47 As System.Windows.Forms.Label + Friend WithEvents Label24 As System.Windows.Forms.Label + Friend WithEvents cmb_인증기관 As Eco2Ar.MyCmb + Friend WithEvents CheckBox1 As System.Windows.Forms.CheckBox +End Class diff --git a/ArinWarev1/Forms_Input/Frm_Desc.resx b/ArinWarev1/Forms_Input/Frm_Desc.resx new file mode 100644 index 0000000..dc38f7e --- /dev/null +++ b/ArinWarev1/Forms_Input/Frm_Desc.resx @@ -0,0 +1,791 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + 17, 17 + + + 81, 17 + + + + + /9j/4AAQSkZJRgABAgEASABIAAD/7gAOQWRvYmUAZAAAAAAB/+ED5kV4aWYAAE1NACoAAAAIAAcBEgAD + AAAAAQABAAABGgAFAAAAAQAAAGIBGwAFAAAAAQAAAGoBKAADAAAAAQACAAABMQACAAAAHAAAAHIBMgAC + AAAAFAAAAI6HaQAEAAAAAQAAAKIAAADCAEgAAAABAAAASAAAAAEAAEFkb2JlIFBob3Rvc2hvcCBDUzMg + V2luZG93cwAyMDEwOjA0OjE1IDIwOjMyOjA0AAACoAIABAAAAAEAAAA8oAMABAAAAAEAAAAMAAAAAAAA + AAYBAwADAAAAAQAGAAABGgAFAAAAAQAAARABGwAFAAAAAQAAARgBKAADAAAAAQACAAACAQAEAAAAAQAA + ASACAgAEAAAAAQAAAr4AAAAAAAAASAAAAAEAAABIAAAAAf/Y/+AAEEpGSUYAAQIAAEgASAAA/+0ADEFk + b2JlX0NNAAH/7gAOQWRvYmUAZIAAAAAB/9sAhAAMCAgICQgMCQkMEQsKCxEVDwwMDxUYExMVExMYEQwM + DAwMDBEMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMAQ0LCw0ODRAODhAUDg4OFBQODg4OFBEMDAwM + DBERDAwMDAwMEQwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAz/wAARCAAMADwDASIAAhEBAxEB/90A + BAAE/8QBPwAAAQUBAQEBAQEAAAAAAAAAAwABAgQFBgcICQoLAQABBQEBAQEBAQAAAAAAAAABAAIDBAUG + BwgJCgsQAAEEAQMCBAIFBwYIBQMMMwEAAhEDBCESMQVBUWETInGBMgYUkaGxQiMkFVLBYjM0coLRQwcl + klPw4fFjczUWorKDJkSTVGRFwqN0NhfSVeJl8rOEw9N14/NGJ5SkhbSVxNTk9KW1xdXl9VZmdoaWprbG + 1ub2N0dXZ3eHl6e3x9fn9xEAAgIBAgQEAwQFBgcHBgU1AQACEQMhMRIEQVFhcSITBTKBkRShsUIjwVLR + 8DMkYuFygpJDUxVjczTxJQYWorKDByY1wtJEk1SjF2RFVTZ0ZeLys4TD03Xj80aUpIW0lcTU5PSltcXV + 5fVWZnaGlqa2xtbm9ic3R1dnd4eXp7fH/9oADAMBAAIRAxEAPwDd/amR/pH/AOcf70v2pkf6R/8AnH+9 + UUlofq/Bpevxb37UyP8ASP8A84/3pftTI/0j/wDOP96opJfq/BXr8W9+1Mj/AEj/APOP96X7UyP9I/8A + zj/eqKSX6vwV6/F3ujdbuGS2i5xfU8HVxktIG76XyW99vo27p0XGdO2/ba930dZj+q5dX+qfZPL8VAeD + 341VVr/eZhx+0bu708n/2f/iDFhJQ0NfUFJPRklMRQABAQAADEhMaW5vAhAAAG1udHJSR0IgWFlaIAfO + AAIACQAGADEAAGFjc3BNU0ZUAAAAAElFQyBzUkdCAAAAAAAAAAAAAAAAAAD21gABAAAAANMtSFAgIAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAEWNwcnQAAAFQAAAAM2Rl + c2MAAAGEAAAAbHd0cHQAAAHwAAAAFGJrcHQAAAIEAAAAFHJYWVoAAAIYAAAAFGdYWVoAAAIsAAAAFGJY + WVoAAAJAAAAAFGRtbmQAAAJUAAAAcGRtZGQAAALEAAAAiHZ1ZWQAAANMAAAAhnZpZXcAAAPUAAAAJGx1 + bWkAAAP4AAAAFG1lYXMAAAQMAAAAJHRlY2gAAAQwAAAADHJUUkMAAAQ8AAAIDGdUUkMAAAQ8AAAIDGJU + UkMAAAQ8AAAIDHRleHQAAAAAQ29weXJpZ2h0IChjKSAxOTk4IEhld2xldHQtUGFja2FyZCBDb21wYW55 + AABkZXNjAAAAAAAAABJzUkdCIElFQzYxOTY2LTIuMQAAAAAAAAAAAAAAEnNSR0IgSUVDNjE5NjYtMi4x + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABYWVogAAAAAAAA + 81EAAQAAAAEWzFhZWiAAAAAAAAAAAAAAAAAAAAAAWFlaIAAAAAAAAG+iAAA49QAAA5BYWVogAAAAAAAA + YpkAALeFAAAY2lhZWiAAAAAAAAAkoAAAD4QAALbPZGVzYwAAAAAAAAAWSUVDIGh0dHA6Ly93d3cuaWVj + LmNoAAAAAAAAAAAAAAAWSUVDIGh0dHA6Ly93d3cuaWVjLmNoAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAGRlc2MAAAAAAAAALklFQyA2MTk2Ni0yLjEgRGVmYXVsdCBSR0Ig + Y29sb3VyIHNwYWNlIC0gc1JHQgAAAAAAAAAAAAAALklFQyA2MTk2Ni0yLjEgRGVmYXVsdCBSR0IgY29s + b3VyIHNwYWNlIC0gc1JHQgAAAAAAAAAAAAAAAAAAAAAAAAAAAABkZXNjAAAAAAAAACxSZWZlcmVuY2Ug + Vmlld2luZyBDb25kaXRpb24gaW4gSUVDNjE5NjYtMi4xAAAAAAAAAAAAAAAsUmVmZXJlbmNlIFZpZXdp + bmcgQ29uZGl0aW9uIGluIElFQzYxOTY2LTIuMQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAdmlldwAA + AAAAE6T+ABRfLgAQzxQAA+3MAAQTCwADXJ4AAAABWFlaIAAAAAAATAlWAFAAAABXH+dtZWFzAAAAAAAA + AAEAAAAAAAAAAAAAAAAAAAAAAAACjwAAAAJzaWcgAAAAAENSVCBjdXJ2AAAAAAAABAAAAAAFAAoADwAU + ABkAHgAjACgALQAyADcAOwBAAEUASgBPAFQAWQBeAGMAaABtAHIAdwB8AIEAhgCLAJAAlQCaAJ8ApACp + AK4AsgC3ALwAwQDGAMsA0ADVANsA4ADlAOsA8AD2APsBAQEHAQ0BEwEZAR8BJQErATIBOAE+AUUBTAFS + AVkBYAFnAW4BdQF8AYMBiwGSAZoBoQGpAbEBuQHBAckB0QHZAeEB6QHyAfoCAwIMAhQCHQImAi8COAJB + AksCVAJdAmcCcQJ6AoQCjgKYAqICrAK2AsECywLVAuAC6wL1AwADCwMWAyEDLQM4A0MDTwNaA2YDcgN+ + A4oDlgOiA64DugPHA9MD4APsA/kEBgQTBCAELQQ7BEgEVQRjBHEEfgSMBJoEqAS2BMQE0wThBPAE/gUN + BRwFKwU6BUkFWAVnBXcFhgWWBaYFtQXFBdUF5QX2BgYGFgYnBjcGSAZZBmoGewaMBp0GrwbABtEG4wb1 + BwcHGQcrBz0HTwdhB3QHhgeZB6wHvwfSB+UH+AgLCB8IMghGCFoIbgiCCJYIqgi+CNII5wj7CRAJJQk6 + CU8JZAl5CY8JpAm6Cc8J5Qn7ChEKJwo9ClQKagqBCpgKrgrFCtwK8wsLCyILOQtRC2kLgAuYC7ALyAvh + C/kMEgwqDEMMXAx1DI4MpwzADNkM8w0NDSYNQA1aDXQNjg2pDcMN3g34DhMOLg5JDmQOfw6bDrYO0g7u + DwkPJQ9BD14Peg+WD7MPzw/sEAkQJhBDEGEQfhCbELkQ1xD1ERMRMRFPEW0RjBGqEckR6BIHEiYSRRJk + EoQSoxLDEuMTAxMjE0MTYxODE6QTxRPlFAYUJxRJFGoUixStFM4U8BUSFTQVVhV4FZsVvRXgFgMWJhZJ + FmwWjxayFtYW+hcdF0EXZReJF64X0hf3GBsYQBhlGIoYrxjVGPoZIBlFGWsZkRm3Gd0aBBoqGlEadxqe + GsUa7BsUGzsbYxuKG7Ib2hwCHCocUhx7HKMczBz1HR4dRx1wHZkdwx3sHhYeQB5qHpQevh7pHxMfPh9p + H5Qfvx/qIBUgQSBsIJggxCDwIRwhSCF1IaEhziH7IiciVSKCIq8i3SMKIzgjZiOUI8Ij8CQfJE0kfCSr + JNolCSU4JWgllyXHJfcmJyZXJocmtyboJxgnSSd6J6sn3CgNKD8ocSiiKNQpBik4KWspnSnQKgIqNSpo + KpsqzysCKzYraSudK9EsBSw5LG4soizXLQwtQS12Last4S4WLkwugi63Lu4vJC9aL5Evxy/+MDUwbDCk + MNsxEjFKMYIxujHyMioyYzKbMtQzDTNGM38zuDPxNCs0ZTSeNNg1EzVNNYc1wjX9Njc2cjauNuk3JDdg + N5w31zgUOFA4jDjIOQU5Qjl/Obw5+To2OnQ6sjrvOy07azuqO+g8JzxlPKQ84z0iPWE9oT3gPiA+YD6g + PuA/IT9hP6I/4kAjQGRApkDnQSlBakGsQe5CMEJyQrVC90M6Q31DwEQDREdEikTORRJFVUWaRd5GIkZn + RqtG8Ec1R3tHwEgFSEtIkUjXSR1JY0mpSfBKN0p9SsRLDEtTS5pL4kwqTHJMuk0CTUpNk03cTiVObk63 + TwBPSU+TT91QJ1BxULtRBlFQUZtR5lIxUnxSx1MTU19TqlP2VEJUj1TbVShVdVXCVg9WXFapVvdXRFeS + V+BYL1h9WMtZGllpWbhaB1pWWqZa9VtFW5Vb5Vw1XIZc1l0nXXhdyV4aXmxevV8PX2Ffs2AFYFdgqmD8 + YU9homH1YklinGLwY0Njl2PrZEBklGTpZT1lkmXnZj1mkmboZz1nk2fpaD9olmjsaUNpmmnxakhqn2r3 + a09rp2v/bFdsr20IbWBtuW4SbmtuxG8eb3hv0XArcIZw4HE6cZVx8HJLcqZzAXNdc7h0FHRwdMx1KHWF + deF2Pnabdvh3VnezeBF4bnjMeSp5iXnnekZ6pXsEe2N7wnwhfIF84X1BfaF+AX5ifsJ/I3+Ef+WAR4Co + gQqBa4HNgjCCkoL0g1eDuoQdhICE44VHhauGDoZyhteHO4efiASIaYjOiTOJmYn+imSKyoswi5aL/Ixj + jMqNMY2Yjf+OZo7OjzaPnpAGkG6Q1pE/kaiSEZJ6kuOTTZO2lCCUipT0lV+VyZY0lp+XCpd1l+CYTJi4 + mSSZkJn8mmia1ZtCm6+cHJyJnPedZJ3SnkCerp8dn4uf+qBpoNihR6G2oiailqMGo3aj5qRWpMelOKWp + phqmi6b9p26n4KhSqMSpN6mpqhyqj6sCq3Wr6axcrNCtRK24ri2uoa8Wr4uwALB1sOqxYLHWskuywrM4 + s660JbSctRO1irYBtnm28Ldot+C4WbjRuUq5wro7urW7LrunvCG8m70VvY++Cr6Evv+/er/1wHDA7MFn + wePCX8Lbw1jD1MRRxM7FS8XIxkbGw8dBx7/IPci8yTrJuco4yrfLNsu2zDXMtc01zbXONs62zzfPuNA5 + 0LrRPNG+0j/SwdNE08bUSdTL1U7V0dZV1tjXXNfg2GTY6Nls2fHadtr724DcBdyK3RDdlt4c3qLfKd+v + 4DbgveFE4cziU+Lb42Pj6+Rz5PzlhOYN5pbnH+ep6DLovOlG6dDqW+rl63Dr++yG7RHtnO4o7rTvQO/M + 8Fjw5fFy8f/yjPMZ86f0NPTC9VD13vZt9vv3ivgZ+Kj5OPnH+lf65/t3/Af8mP0p/br+S/7c/23////b + AEMAAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQICAgICAgICAgICAwMD + AwMDAwMDA//bAEMBAQEBAQEBAQEBAQICAQICAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMD + AwMDAwMDAwMDAwMDAwMDA//AABEIAAwAPAMBEQACEQEDEQH/xAAfAAABBQEBAQEBAQAAAAAAAAAAAQID + BAUGBwgJCgv/xAC1EAACAQMDAgQDBQUEBAAAAX0BAgMABBEFEiExQQYTUWEHInEUMoGRoQgjQrHBFVLR + 8CQzYnKCCQoWFxgZGiUmJygpKjQ1Njc4OTpDREVGR0hJSlNUVVZXWFlaY2RlZmdoaWpzdHV2d3h5eoOE + hYaHiImKkpOUlZaXmJmaoqOkpaanqKmqsrO0tba3uLm6wsPExcbHyMnK0tPU1dbX2Nna4eLj5OXm5+jp + 6vHy8/T19vf4+fr/xAAfAQADAQEBAQEBAQEBAAAAAAAAAQIDBAUGBwgJCgv/xAC1EQACAQIEBAMEBwUE + BAABAncAAQIDEQQFITEGEkFRB2FxEyIygQgUQpGhscEJIzNS8BVictEKFiQ04SXxFxgZGiYnKCkqNTY3 + ODk6Q0RFRkdISUpTVFVWV1hZWmNkZWZnaGlqc3R1dnd4eXqCg4SFhoeIiYqSk5SVlpeYmZqio6Slpqeo + qaqys7S1tre4ubrCw8TFxsfIycrS09TV1tfY2dri4+Tl5ufo6ery8/T19vf4+fr/2gAMAwEAAhEDEQA/ + AP1ZH7UPxEAA/wCEw8bnj/ob9f8A/k+v7U/1Nyj/AKF+G/8ABUP/AJE/llcSZlZf7dX/APBk/wDMX/hq + H4if9Df43/8ACv1//wCT6P8AU3Kf+hfhv/BUP/kQ/wBZcy/6Dq//AIMn/mH/AA1D8RP+hv8AG/8A4V+v + /wDyfR/qblP/AEL8N/4Kh/8AIh/rLmX/AEHV/wDwZP8AzD/hqH4if9Df43/8K/X/AP5Po/1Nyn/oX4b/ + AMFQ/wDkQ/1lzL/oOr/+DJ/5h/w1D8RP+hv8b/8AhX6//wDJ9H+puU/9C/Df+Cof/Ih/rLmX/QdX/wDB + k/8AMT/hqH4if9Df43/8K/X/AP5Po/1Nyn/oX4b/AMFQ/wDkQ/1kzL/oOr/+DJ/5n2R+xz+234zt/iRp + nw+8a6vqXiDwZ4gs9baObXr+bUr/AMPajpmkX2tQ3FlqV2Zb57K7XT2t3tXkaJWkV4whVxJ+beJfAuU4 + Th/FZ/hKEKOMw8qd+SKjGcZzjTs4q0bpyUlJK7s073VvuuBOLMxxGcYfJ8TWlVw1ZTtzu7hKMJTupPWz + UWnFu2qatrf9aP8AhfXgv+zv7U89/sfm+V5207N+M43fSv50P2w/kwr/AEFP42CgAoAKACgAoA9s/Z0/ + s7/hcng3+1vP/s7Ov/avs2PP2f8ACL63t2buP9ZjP+zmvz7xU/5IPPf+4H/qRRPsvD//AJK7KP8AuL/6 + ZqH7/wD/ABaT/hUfb7Ht/wBj7V9p8v8A9Cr+Oz+lz//Z + + + + 148, 17 + + + + /9j/4AAQSkZJRgABAgEASABIAAD/7gAOQWRvYmUAZAAAAAAB/+ED5kV4aWYAAE1NACoAAAAIAAcBEgAD + AAAAAQABAAABGgAFAAAAAQAAAGIBGwAFAAAAAQAAAGoBKAADAAAAAQACAAABMQACAAAAHAAAAHIBMgAC + AAAAFAAAAI6HaQAEAAAAAQAAAKIAAADCAEgAAAABAAAASAAAAAEAAEFkb2JlIFBob3Rvc2hvcCBDUzMg + V2luZG93cwAyMDEwOjA0OjE1IDIwOjMyOjA0AAACoAIABAAAAAEAAAA8oAMABAAAAAEAAAAMAAAAAAAA + AAYBAwADAAAAAQAGAAABGgAFAAAAAQAAARABGwAFAAAAAQAAARgBKAADAAAAAQACAAACAQAEAAAAAQAA + ASACAgAEAAAAAQAAAr4AAAAAAAAASAAAAAEAAABIAAAAAf/Y/+AAEEpGSUYAAQIAAEgASAAA/+0ADEFk + b2JlX0NNAAH/7gAOQWRvYmUAZIAAAAAB/9sAhAAMCAgICQgMCQkMEQsKCxEVDwwMDxUYExMVExMYEQwM + DAwMDBEMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMAQ0LCw0ODRAODhAUDg4OFBQODg4OFBEMDAwM + DBERDAwMDAwMEQwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAz/wAARCAAMADwDASIAAhEBAxEB/90A + BAAE/8QBPwAAAQUBAQEBAQEAAAAAAAAAAwABAgQFBgcICQoLAQABBQEBAQEBAQAAAAAAAAABAAIDBAUG + BwgJCgsQAAEEAQMCBAIFBwYIBQMMMwEAAhEDBCESMQVBUWETInGBMgYUkaGxQiMkFVLBYjM0coLRQwcl + klPw4fFjczUWorKDJkSTVGRFwqN0NhfSVeJl8rOEw9N14/NGJ5SkhbSVxNTk9KW1xdXl9VZmdoaWprbG + 1ub2N0dXZ3eHl6e3x9fn9xEAAgIBAgQEAwQFBgcHBgU1AQACEQMhMRIEQVFhcSITBTKBkRShsUIjwVLR + 8DMkYuFygpJDUxVjczTxJQYWorKDByY1wtJEk1SjF2RFVTZ0ZeLys4TD03Xj80aUpIW0lcTU5PSltcXV + 5fVWZnaGlqa2xtbm9ic3R1dnd4eXp7fH/9oADAMBAAIRAxEAPwDd/amR/pH/AOcf70v2pkf6R/8AnH+9 + UUlofq/Bpevxb37UyP8ASP8A84/3pftTI/0j/wDOP96opJfq/BXr8W9+1Mj/AEj/APOP96X7UyP9I/8A + zj/eqKSX6vwV6/F3ujdbuGS2i5xfU8HVxktIG76XyW99vo27p0XGdO2/ba930dZj+q5dX+qfZPL8VAeD + 341VVr/eZhx+0bu708n/2f/iDFhJQ0NfUFJPRklMRQABAQAADEhMaW5vAhAAAG1udHJSR0IgWFlaIAfO + AAIACQAGADEAAGFjc3BNU0ZUAAAAAElFQyBzUkdCAAAAAAAAAAAAAAAAAAD21gABAAAAANMtSFAgIAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAEWNwcnQAAAFQAAAAM2Rl + c2MAAAGEAAAAbHd0cHQAAAHwAAAAFGJrcHQAAAIEAAAAFHJYWVoAAAIYAAAAFGdYWVoAAAIsAAAAFGJY + WVoAAAJAAAAAFGRtbmQAAAJUAAAAcGRtZGQAAALEAAAAiHZ1ZWQAAANMAAAAhnZpZXcAAAPUAAAAJGx1 + bWkAAAP4AAAAFG1lYXMAAAQMAAAAJHRlY2gAAAQwAAAADHJUUkMAAAQ8AAAIDGdUUkMAAAQ8AAAIDGJU + UkMAAAQ8AAAIDHRleHQAAAAAQ29weXJpZ2h0IChjKSAxOTk4IEhld2xldHQtUGFja2FyZCBDb21wYW55 + AABkZXNjAAAAAAAAABJzUkdCIElFQzYxOTY2LTIuMQAAAAAAAAAAAAAAEnNSR0IgSUVDNjE5NjYtMi4x + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABYWVogAAAAAAAA + 81EAAQAAAAEWzFhZWiAAAAAAAAAAAAAAAAAAAAAAWFlaIAAAAAAAAG+iAAA49QAAA5BYWVogAAAAAAAA + YpkAALeFAAAY2lhZWiAAAAAAAAAkoAAAD4QAALbPZGVzYwAAAAAAAAAWSUVDIGh0dHA6Ly93d3cuaWVj + LmNoAAAAAAAAAAAAAAAWSUVDIGh0dHA6Ly93d3cuaWVjLmNoAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAGRlc2MAAAAAAAAALklFQyA2MTk2Ni0yLjEgRGVmYXVsdCBSR0Ig + Y29sb3VyIHNwYWNlIC0gc1JHQgAAAAAAAAAAAAAALklFQyA2MTk2Ni0yLjEgRGVmYXVsdCBSR0IgY29s + b3VyIHNwYWNlIC0gc1JHQgAAAAAAAAAAAAAAAAAAAAAAAAAAAABkZXNjAAAAAAAAACxSZWZlcmVuY2Ug + Vmlld2luZyBDb25kaXRpb24gaW4gSUVDNjE5NjYtMi4xAAAAAAAAAAAAAAAsUmVmZXJlbmNlIFZpZXdp + bmcgQ29uZGl0aW9uIGluIElFQzYxOTY2LTIuMQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAdmlldwAA + AAAAE6T+ABRfLgAQzxQAA+3MAAQTCwADXJ4AAAABWFlaIAAAAAAATAlWAFAAAABXH+dtZWFzAAAAAAAA + AAEAAAAAAAAAAAAAAAAAAAAAAAACjwAAAAJzaWcgAAAAAENSVCBjdXJ2AAAAAAAABAAAAAAFAAoADwAU + ABkAHgAjACgALQAyADcAOwBAAEUASgBPAFQAWQBeAGMAaABtAHIAdwB8AIEAhgCLAJAAlQCaAJ8ApACp + AK4AsgC3ALwAwQDGAMsA0ADVANsA4ADlAOsA8AD2APsBAQEHAQ0BEwEZAR8BJQErATIBOAE+AUUBTAFS + AVkBYAFnAW4BdQF8AYMBiwGSAZoBoQGpAbEBuQHBAckB0QHZAeEB6QHyAfoCAwIMAhQCHQImAi8COAJB + AksCVAJdAmcCcQJ6AoQCjgKYAqICrAK2AsECywLVAuAC6wL1AwADCwMWAyEDLQM4A0MDTwNaA2YDcgN+ + A4oDlgOiA64DugPHA9MD4APsA/kEBgQTBCAELQQ7BEgEVQRjBHEEfgSMBJoEqAS2BMQE0wThBPAE/gUN + BRwFKwU6BUkFWAVnBXcFhgWWBaYFtQXFBdUF5QX2BgYGFgYnBjcGSAZZBmoGewaMBp0GrwbABtEG4wb1 + BwcHGQcrBz0HTwdhB3QHhgeZB6wHvwfSB+UH+AgLCB8IMghGCFoIbgiCCJYIqgi+CNII5wj7CRAJJQk6 + CU8JZAl5CY8JpAm6Cc8J5Qn7ChEKJwo9ClQKagqBCpgKrgrFCtwK8wsLCyILOQtRC2kLgAuYC7ALyAvh + C/kMEgwqDEMMXAx1DI4MpwzADNkM8w0NDSYNQA1aDXQNjg2pDcMN3g34DhMOLg5JDmQOfw6bDrYO0g7u + DwkPJQ9BD14Peg+WD7MPzw/sEAkQJhBDEGEQfhCbELkQ1xD1ERMRMRFPEW0RjBGqEckR6BIHEiYSRRJk + EoQSoxLDEuMTAxMjE0MTYxODE6QTxRPlFAYUJxRJFGoUixStFM4U8BUSFTQVVhV4FZsVvRXgFgMWJhZJ + FmwWjxayFtYW+hcdF0EXZReJF64X0hf3GBsYQBhlGIoYrxjVGPoZIBlFGWsZkRm3Gd0aBBoqGlEadxqe + GsUa7BsUGzsbYxuKG7Ib2hwCHCocUhx7HKMczBz1HR4dRx1wHZkdwx3sHhYeQB5qHpQevh7pHxMfPh9p + H5Qfvx/qIBUgQSBsIJggxCDwIRwhSCF1IaEhziH7IiciVSKCIq8i3SMKIzgjZiOUI8Ij8CQfJE0kfCSr + JNolCSU4JWgllyXHJfcmJyZXJocmtyboJxgnSSd6J6sn3CgNKD8ocSiiKNQpBik4KWspnSnQKgIqNSpo + KpsqzysCKzYraSudK9EsBSw5LG4soizXLQwtQS12Last4S4WLkwugi63Lu4vJC9aL5Evxy/+MDUwbDCk + MNsxEjFKMYIxujHyMioyYzKbMtQzDTNGM38zuDPxNCs0ZTSeNNg1EzVNNYc1wjX9Njc2cjauNuk3JDdg + N5w31zgUOFA4jDjIOQU5Qjl/Obw5+To2OnQ6sjrvOy07azuqO+g8JzxlPKQ84z0iPWE9oT3gPiA+YD6g + PuA/IT9hP6I/4kAjQGRApkDnQSlBakGsQe5CMEJyQrVC90M6Q31DwEQDREdEikTORRJFVUWaRd5GIkZn + RqtG8Ec1R3tHwEgFSEtIkUjXSR1JY0mpSfBKN0p9SsRLDEtTS5pL4kwqTHJMuk0CTUpNk03cTiVObk63 + TwBPSU+TT91QJ1BxULtRBlFQUZtR5lIxUnxSx1MTU19TqlP2VEJUj1TbVShVdVXCVg9WXFapVvdXRFeS + V+BYL1h9WMtZGllpWbhaB1pWWqZa9VtFW5Vb5Vw1XIZc1l0nXXhdyV4aXmxevV8PX2Ffs2AFYFdgqmD8 + YU9homH1YklinGLwY0Njl2PrZEBklGTpZT1lkmXnZj1mkmboZz1nk2fpaD9olmjsaUNpmmnxakhqn2r3 + a09rp2v/bFdsr20IbWBtuW4SbmtuxG8eb3hv0XArcIZw4HE6cZVx8HJLcqZzAXNdc7h0FHRwdMx1KHWF + deF2Pnabdvh3VnezeBF4bnjMeSp5iXnnekZ6pXsEe2N7wnwhfIF84X1BfaF+AX5ifsJ/I3+Ef+WAR4Co + gQqBa4HNgjCCkoL0g1eDuoQdhICE44VHhauGDoZyhteHO4efiASIaYjOiTOJmYn+imSKyoswi5aL/Ixj + jMqNMY2Yjf+OZo7OjzaPnpAGkG6Q1pE/kaiSEZJ6kuOTTZO2lCCUipT0lV+VyZY0lp+XCpd1l+CYTJi4 + mSSZkJn8mmia1ZtCm6+cHJyJnPedZJ3SnkCerp8dn4uf+qBpoNihR6G2oiailqMGo3aj5qRWpMelOKWp + phqmi6b9p26n4KhSqMSpN6mpqhyqj6sCq3Wr6axcrNCtRK24ri2uoa8Wr4uwALB1sOqxYLHWskuywrM4 + s660JbSctRO1irYBtnm28Ldot+C4WbjRuUq5wro7urW7LrunvCG8m70VvY++Cr6Evv+/er/1wHDA7MFn + wePCX8Lbw1jD1MRRxM7FS8XIxkbGw8dBx7/IPci8yTrJuco4yrfLNsu2zDXMtc01zbXONs62zzfPuNA5 + 0LrRPNG+0j/SwdNE08bUSdTL1U7V0dZV1tjXXNfg2GTY6Nls2fHadtr724DcBdyK3RDdlt4c3qLfKd+v + 4DbgveFE4cziU+Lb42Pj6+Rz5PzlhOYN5pbnH+ep6DLovOlG6dDqW+rl63Dr++yG7RHtnO4o7rTvQO/M + 8Fjw5fFy8f/yjPMZ86f0NPTC9VD13vZt9vv3ivgZ+Kj5OPnH+lf65/t3/Af8mP0p/br+S/7c/23////b + AEMAAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQICAgICAgICAgICAwMD + AwMDAwMDA//bAEMBAQEBAQEBAQEBAQICAQICAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMD + AwMDAwMDAwMDAwMDAwMDA//AABEIAAwAPAMBEQACEQEDEQH/xAAfAAABBQEBAQEBAQAAAAAAAAAAAQID + BAUGBwgJCgv/xAC1EAACAQMDAgQDBQUEBAAAAX0BAgMABBEFEiExQQYTUWEHInEUMoGRoQgjQrHBFVLR + 8CQzYnKCCQoWFxgZGiUmJygpKjQ1Njc4OTpDREVGR0hJSlNUVVZXWFlaY2RlZmdoaWpzdHV2d3h5eoOE + hYaHiImKkpOUlZaXmJmaoqOkpaanqKmqsrO0tba3uLm6wsPExcbHyMnK0tPU1dbX2Nna4eLj5OXm5+jp + 6vHy8/T19vf4+fr/xAAfAQADAQEBAQEBAQEBAAAAAAAAAQIDBAUGBwgJCgv/xAC1EQACAQIEBAMEBwUE + BAABAncAAQIDEQQFITEGEkFRB2FxEyIygQgUQpGhscEJIzNS8BVictEKFiQ04SXxFxgZGiYnKCkqNTY3 + ODk6Q0RFRkdISUpTVFVWV1hZWmNkZWZnaGlqc3R1dnd4eXqCg4SFhoeIiYqSk5SVlpeYmZqio6Slpqeo + qaqys7S1tre4ubrCw8TFxsfIycrS09TV1tfY2dri4+Tl5ufo6ery8/T19vf4+fr/2gAMAwEAAhEDEQA/ + AP1ZH7UPxEAA/wCEw8bnj/ob9f8A/k+v7U/1Nyj/AKF+G/8ABUP/AJE/llcSZlZf7dX/APBk/wDMX/hq + H4if9Df43/8ACv1//wCT6P8AU3Kf+hfhv/BUP/kQ/wBZcy/6Dq//AIMn/mH/AA1D8RP+hv8AG/8A4V+v + /wDyfR/qblP/AEL8N/4Kh/8AIh/rLmX/AEHV/wDwZP8AzD/hqH4if9Df43/8K/X/AP5Po/1Nyn/oX4b/ + AMFQ/wDkQ/1lzL/oOr/+DJ/5h/w1D8RP+hv8b/8AhX6//wDJ9H+puU/9C/Df+Cof/Ih/rLmX/QdX/wDB + k/8AMT/hqH4if9Df43/8K/X/AP5Po/1Nyn/oX4b/AMFQ/wDkQ/1kzL/oOr/+DJ/5n2R+xz+234zt/iRp + nw+8a6vqXiDwZ4gs9baObXr+bUr/AMPajpmkX2tQ3FlqV2Zb57K7XT2t3tXkaJWkV4whVxJ+beJfAuU4 + Th/FZ/hKEKOMw8qd+SKjGcZzjTs4q0bpyUlJK7s073VvuuBOLMxxGcYfJ8TWlVw1ZTtzu7hKMJTupPWz + UWnFu2qatrf9aP8AhfXgv+zv7U89/sfm+V5207N+M43fSv50P2w/kwr/AEFP42CgAoAKACgAoA9s/Z0/ + s7/hcng3+1vP/s7Ov/avs2PP2f8ACL63t2buP9ZjP+zmvz7xU/5IPPf+4H/qRRPsvD//AJK7KP8AuL/6 + ZqH7/wD/ABaT/hUfb7Ht/wBj7V9p8v8A9Cr+Oz+lz//Z + + + + + /9j/4AAQSkZJRgABAgEASABIAAD/7gAOQWRvYmUAZAAAAAAB/+ED5kV4aWYAAE1NACoAAAAIAAcBEgAD + AAAAAQABAAABGgAFAAAAAQAAAGIBGwAFAAAAAQAAAGoBKAADAAAAAQACAAABMQACAAAAHAAAAHIBMgAC + AAAAFAAAAI6HaQAEAAAAAQAAAKIAAADCAEgAAAABAAAASAAAAAEAAEFkb2JlIFBob3Rvc2hvcCBDUzMg + V2luZG93cwAyMDEwOjA0OjE1IDIwOjMyOjA0AAACoAIABAAAAAEAAAA8oAMABAAAAAEAAAAMAAAAAAAA + AAYBAwADAAAAAQAGAAABGgAFAAAAAQAAARABGwAFAAAAAQAAARgBKAADAAAAAQACAAACAQAEAAAAAQAA + ASACAgAEAAAAAQAAAr4AAAAAAAAASAAAAAEAAABIAAAAAf/Y/+AAEEpGSUYAAQIAAEgASAAA/+0ADEFk + b2JlX0NNAAH/7gAOQWRvYmUAZIAAAAAB/9sAhAAMCAgICQgMCQkMEQsKCxEVDwwMDxUYExMVExMYEQwM + DAwMDBEMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMAQ0LCw0ODRAODhAUDg4OFBQODg4OFBEMDAwM + DBERDAwMDAwMEQwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAz/wAARCAAMADwDASIAAhEBAxEB/90A + BAAE/8QBPwAAAQUBAQEBAQEAAAAAAAAAAwABAgQFBgcICQoLAQABBQEBAQEBAQAAAAAAAAABAAIDBAUG + BwgJCgsQAAEEAQMCBAIFBwYIBQMMMwEAAhEDBCESMQVBUWETInGBMgYUkaGxQiMkFVLBYjM0coLRQwcl + klPw4fFjczUWorKDJkSTVGRFwqN0NhfSVeJl8rOEw9N14/NGJ5SkhbSVxNTk9KW1xdXl9VZmdoaWprbG + 1ub2N0dXZ3eHl6e3x9fn9xEAAgIBAgQEAwQFBgcHBgU1AQACEQMhMRIEQVFhcSITBTKBkRShsUIjwVLR + 8DMkYuFygpJDUxVjczTxJQYWorKDByY1wtJEk1SjF2RFVTZ0ZeLys4TD03Xj80aUpIW0lcTU5PSltcXV + 5fVWZnaGlqa2xtbm9ic3R1dnd4eXp7fH/9oADAMBAAIRAxEAPwDd/amR/pH/AOcf70v2pkf6R/8AnH+9 + UUlofq/Bpevxb37UyP8ASP8A84/3pftTI/0j/wDOP96opJfq/BXr8W9+1Mj/AEj/APOP96X7UyP9I/8A + zj/eqKSX6vwV6/F3ujdbuGS2i5xfU8HVxktIG76XyW99vo27p0XGdO2/ba930dZj+q5dX+qfZPL8VAeD + 341VVr/eZhx+0bu708n/2f/iDFhJQ0NfUFJPRklMRQABAQAADEhMaW5vAhAAAG1udHJSR0IgWFlaIAfO + AAIACQAGADEAAGFjc3BNU0ZUAAAAAElFQyBzUkdCAAAAAAAAAAAAAAAAAAD21gABAAAAANMtSFAgIAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAEWNwcnQAAAFQAAAAM2Rl + c2MAAAGEAAAAbHd0cHQAAAHwAAAAFGJrcHQAAAIEAAAAFHJYWVoAAAIYAAAAFGdYWVoAAAIsAAAAFGJY + WVoAAAJAAAAAFGRtbmQAAAJUAAAAcGRtZGQAAALEAAAAiHZ1ZWQAAANMAAAAhnZpZXcAAAPUAAAAJGx1 + bWkAAAP4AAAAFG1lYXMAAAQMAAAAJHRlY2gAAAQwAAAADHJUUkMAAAQ8AAAIDGdUUkMAAAQ8AAAIDGJU + UkMAAAQ8AAAIDHRleHQAAAAAQ29weXJpZ2h0IChjKSAxOTk4IEhld2xldHQtUGFja2FyZCBDb21wYW55 + AABkZXNjAAAAAAAAABJzUkdCIElFQzYxOTY2LTIuMQAAAAAAAAAAAAAAEnNSR0IgSUVDNjE5NjYtMi4x + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABYWVogAAAAAAAA + 81EAAQAAAAEWzFhZWiAAAAAAAAAAAAAAAAAAAAAAWFlaIAAAAAAAAG+iAAA49QAAA5BYWVogAAAAAAAA + YpkAALeFAAAY2lhZWiAAAAAAAAAkoAAAD4QAALbPZGVzYwAAAAAAAAAWSUVDIGh0dHA6Ly93d3cuaWVj + LmNoAAAAAAAAAAAAAAAWSUVDIGh0dHA6Ly93d3cuaWVjLmNoAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAGRlc2MAAAAAAAAALklFQyA2MTk2Ni0yLjEgRGVmYXVsdCBSR0Ig + Y29sb3VyIHNwYWNlIC0gc1JHQgAAAAAAAAAAAAAALklFQyA2MTk2Ni0yLjEgRGVmYXVsdCBSR0IgY29s + b3VyIHNwYWNlIC0gc1JHQgAAAAAAAAAAAAAAAAAAAAAAAAAAAABkZXNjAAAAAAAAACxSZWZlcmVuY2Ug + Vmlld2luZyBDb25kaXRpb24gaW4gSUVDNjE5NjYtMi4xAAAAAAAAAAAAAAAsUmVmZXJlbmNlIFZpZXdp + bmcgQ29uZGl0aW9uIGluIElFQzYxOTY2LTIuMQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAdmlldwAA + AAAAE6T+ABRfLgAQzxQAA+3MAAQTCwADXJ4AAAABWFlaIAAAAAAATAlWAFAAAABXH+dtZWFzAAAAAAAA + AAEAAAAAAAAAAAAAAAAAAAAAAAACjwAAAAJzaWcgAAAAAENSVCBjdXJ2AAAAAAAABAAAAAAFAAoADwAU + ABkAHgAjACgALQAyADcAOwBAAEUASgBPAFQAWQBeAGMAaABtAHIAdwB8AIEAhgCLAJAAlQCaAJ8ApACp + AK4AsgC3ALwAwQDGAMsA0ADVANsA4ADlAOsA8AD2APsBAQEHAQ0BEwEZAR8BJQErATIBOAE+AUUBTAFS + AVkBYAFnAW4BdQF8AYMBiwGSAZoBoQGpAbEBuQHBAckB0QHZAeEB6QHyAfoCAwIMAhQCHQImAi8COAJB + AksCVAJdAmcCcQJ6AoQCjgKYAqICrAK2AsECywLVAuAC6wL1AwADCwMWAyEDLQM4A0MDTwNaA2YDcgN+ + A4oDlgOiA64DugPHA9MD4APsA/kEBgQTBCAELQQ7BEgEVQRjBHEEfgSMBJoEqAS2BMQE0wThBPAE/gUN + BRwFKwU6BUkFWAVnBXcFhgWWBaYFtQXFBdUF5QX2BgYGFgYnBjcGSAZZBmoGewaMBp0GrwbABtEG4wb1 + BwcHGQcrBz0HTwdhB3QHhgeZB6wHvwfSB+UH+AgLCB8IMghGCFoIbgiCCJYIqgi+CNII5wj7CRAJJQk6 + CU8JZAl5CY8JpAm6Cc8J5Qn7ChEKJwo9ClQKagqBCpgKrgrFCtwK8wsLCyILOQtRC2kLgAuYC7ALyAvh + C/kMEgwqDEMMXAx1DI4MpwzADNkM8w0NDSYNQA1aDXQNjg2pDcMN3g34DhMOLg5JDmQOfw6bDrYO0g7u + DwkPJQ9BD14Peg+WD7MPzw/sEAkQJhBDEGEQfhCbELkQ1xD1ERMRMRFPEW0RjBGqEckR6BIHEiYSRRJk + EoQSoxLDEuMTAxMjE0MTYxODE6QTxRPlFAYUJxRJFGoUixStFM4U8BUSFTQVVhV4FZsVvRXgFgMWJhZJ + FmwWjxayFtYW+hcdF0EXZReJF64X0hf3GBsYQBhlGIoYrxjVGPoZIBlFGWsZkRm3Gd0aBBoqGlEadxqe + GsUa7BsUGzsbYxuKG7Ib2hwCHCocUhx7HKMczBz1HR4dRx1wHZkdwx3sHhYeQB5qHpQevh7pHxMfPh9p + H5Qfvx/qIBUgQSBsIJggxCDwIRwhSCF1IaEhziH7IiciVSKCIq8i3SMKIzgjZiOUI8Ij8CQfJE0kfCSr + JNolCSU4JWgllyXHJfcmJyZXJocmtyboJxgnSSd6J6sn3CgNKD8ocSiiKNQpBik4KWspnSnQKgIqNSpo + KpsqzysCKzYraSudK9EsBSw5LG4soizXLQwtQS12Last4S4WLkwugi63Lu4vJC9aL5Evxy/+MDUwbDCk + MNsxEjFKMYIxujHyMioyYzKbMtQzDTNGM38zuDPxNCs0ZTSeNNg1EzVNNYc1wjX9Njc2cjauNuk3JDdg + N5w31zgUOFA4jDjIOQU5Qjl/Obw5+To2OnQ6sjrvOy07azuqO+g8JzxlPKQ84z0iPWE9oT3gPiA+YD6g + PuA/IT9hP6I/4kAjQGRApkDnQSlBakGsQe5CMEJyQrVC90M6Q31DwEQDREdEikTORRJFVUWaRd5GIkZn + RqtG8Ec1R3tHwEgFSEtIkUjXSR1JY0mpSfBKN0p9SsRLDEtTS5pL4kwqTHJMuk0CTUpNk03cTiVObk63 + TwBPSU+TT91QJ1BxULtRBlFQUZtR5lIxUnxSx1MTU19TqlP2VEJUj1TbVShVdVXCVg9WXFapVvdXRFeS + V+BYL1h9WMtZGllpWbhaB1pWWqZa9VtFW5Vb5Vw1XIZc1l0nXXhdyV4aXmxevV8PX2Ffs2AFYFdgqmD8 + YU9homH1YklinGLwY0Njl2PrZEBklGTpZT1lkmXnZj1mkmboZz1nk2fpaD9olmjsaUNpmmnxakhqn2r3 + a09rp2v/bFdsr20IbWBtuW4SbmtuxG8eb3hv0XArcIZw4HE6cZVx8HJLcqZzAXNdc7h0FHRwdMx1KHWF + deF2Pnabdvh3VnezeBF4bnjMeSp5iXnnekZ6pXsEe2N7wnwhfIF84X1BfaF+AX5ifsJ/I3+Ef+WAR4Co + gQqBa4HNgjCCkoL0g1eDuoQdhICE44VHhauGDoZyhteHO4efiASIaYjOiTOJmYn+imSKyoswi5aL/Ixj + jMqNMY2Yjf+OZo7OjzaPnpAGkG6Q1pE/kaiSEZJ6kuOTTZO2lCCUipT0lV+VyZY0lp+XCpd1l+CYTJi4 + mSSZkJn8mmia1ZtCm6+cHJyJnPedZJ3SnkCerp8dn4uf+qBpoNihR6G2oiailqMGo3aj5qRWpMelOKWp + phqmi6b9p26n4KhSqMSpN6mpqhyqj6sCq3Wr6axcrNCtRK24ri2uoa8Wr4uwALB1sOqxYLHWskuywrM4 + s660JbSctRO1irYBtnm28Ldot+C4WbjRuUq5wro7urW7LrunvCG8m70VvY++Cr6Evv+/er/1wHDA7MFn + wePCX8Lbw1jD1MRRxM7FS8XIxkbGw8dBx7/IPci8yTrJuco4yrfLNsu2zDXMtc01zbXONs62zzfPuNA5 + 0LrRPNG+0j/SwdNE08bUSdTL1U7V0dZV1tjXXNfg2GTY6Nls2fHadtr724DcBdyK3RDdlt4c3qLfKd+v + 4DbgveFE4cziU+Lb42Pj6+Rz5PzlhOYN5pbnH+ep6DLovOlG6dDqW+rl63Dr++yG7RHtnO4o7rTvQO/M + 8Fjw5fFy8f/yjPMZ86f0NPTC9VD13vZt9vv3ivgZ+Kj5OPnH+lf65/t3/Af8mP0p/br+S/7c/23////b + AEMAAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQICAgICAgICAgICAwMD + AwMDAwMDA//bAEMBAQEBAQEBAQEBAQICAQICAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMD + AwMDAwMDAwMDAwMDAwMDA//AABEIAAwAPAMBEQACEQEDEQH/xAAfAAABBQEBAQEBAQAAAAAAAAAAAQID + BAUGBwgJCgv/xAC1EAACAQMDAgQDBQUEBAAAAX0BAgMABBEFEiExQQYTUWEHInEUMoGRoQgjQrHBFVLR + 8CQzYnKCCQoWFxgZGiUmJygpKjQ1Njc4OTpDREVGR0hJSlNUVVZXWFlaY2RlZmdoaWpzdHV2d3h5eoOE + hYaHiImKkpOUlZaXmJmaoqOkpaanqKmqsrO0tba3uLm6wsPExcbHyMnK0tPU1dbX2Nna4eLj5OXm5+jp + 6vHy8/T19vf4+fr/xAAfAQADAQEBAQEBAQEBAAAAAAAAAQIDBAUGBwgJCgv/xAC1EQACAQIEBAMEBwUE + BAABAncAAQIDEQQFITEGEkFRB2FxEyIygQgUQpGhscEJIzNS8BVictEKFiQ04SXxFxgZGiYnKCkqNTY3 + ODk6Q0RFRkdISUpTVFVWV1hZWmNkZWZnaGlqc3R1dnd4eXqCg4SFhoeIiYqSk5SVlpeYmZqio6Slpqeo + qaqys7S1tre4ubrCw8TFxsfIycrS09TV1tfY2dri4+Tl5ufo6ery8/T19vf4+fr/2gAMAwEAAhEDEQA/ + AP1ZH7UPxEAA/wCEw8bnj/ob9f8A/k+v7U/1Nyj/AKF+G/8ABUP/AJE/llcSZlZf7dX/APBk/wDMX/hq + H4if9Df43/8ACv1//wCT6P8AU3Kf+hfhv/BUP/kQ/wBZcy/6Dq//AIMn/mH/AA1D8RP+hv8AG/8A4V+v + /wDyfR/qblP/AEL8N/4Kh/8AIh/rLmX/AEHV/wDwZP8AzD/hqH4if9Df43/8K/X/AP5Po/1Nyn/oX4b/ + AMFQ/wDkQ/1lzL/oOr/+DJ/5h/w1D8RP+hv8b/8AhX6//wDJ9H+puU/9C/Df+Cof/Ih/rLmX/QdX/wDB + k/8AMT/hqH4if9Df43/8K/X/AP5Po/1Nyn/oX4b/AMFQ/wDkQ/1kzL/oOr/+DJ/5n2R+xz+234zt/iRp + nw+8a6vqXiDwZ4gs9baObXr+bUr/AMPajpmkX2tQ3FlqV2Zb57K7XT2t3tXkaJWkV4whVxJ+beJfAuU4 + Th/FZ/hKEKOMw8qd+SKjGcZzjTs4q0bpyUlJK7s073VvuuBOLMxxGcYfJ8TWlVw1ZTtzu7hKMJTupPWz + UWnFu2qatrf9aP8AhfXgv+zv7U89/sfm+V5207N+M43fSv50P2w/kwr/AEFP42CgAoAKACgAoA9s/Z0/ + s7/hcng3+1vP/s7Ov/avs2PP2f8ACL63t2buP9ZjP+zmvz7xU/5IPPf+4H/qRRPsvD//AJK7KP8AuL/6 + ZqH7/wD/ABaT/hUfb7Ht/wBj7V9p8v8A9Cr+Oz+lz//Z + + + + + /9j/4AAQSkZJRgABAgEASABIAAD/7gAOQWRvYmUAZAAAAAAB/+ED5kV4aWYAAE1NACoAAAAIAAcBEgAD + AAAAAQABAAABGgAFAAAAAQAAAGIBGwAFAAAAAQAAAGoBKAADAAAAAQACAAABMQACAAAAHAAAAHIBMgAC + AAAAFAAAAI6HaQAEAAAAAQAAAKIAAADCAEgAAAABAAAASAAAAAEAAEFkb2JlIFBob3Rvc2hvcCBDUzMg + V2luZG93cwAyMDEwOjA0OjE1IDIwOjMyOjA0AAACoAIABAAAAAEAAAA8oAMABAAAAAEAAAAMAAAAAAAA + AAYBAwADAAAAAQAGAAABGgAFAAAAAQAAARABGwAFAAAAAQAAARgBKAADAAAAAQACAAACAQAEAAAAAQAA + ASACAgAEAAAAAQAAAr4AAAAAAAAASAAAAAEAAABIAAAAAf/Y/+AAEEpGSUYAAQIAAEgASAAA/+0ADEFk + b2JlX0NNAAH/7gAOQWRvYmUAZIAAAAAB/9sAhAAMCAgICQgMCQkMEQsKCxEVDwwMDxUYExMVExMYEQwM + DAwMDBEMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMAQ0LCw0ODRAODhAUDg4OFBQODg4OFBEMDAwM + DBERDAwMDAwMEQwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAz/wAARCAAMADwDASIAAhEBAxEB/90A + BAAE/8QBPwAAAQUBAQEBAQEAAAAAAAAAAwABAgQFBgcICQoLAQABBQEBAQEBAQAAAAAAAAABAAIDBAUG + BwgJCgsQAAEEAQMCBAIFBwYIBQMMMwEAAhEDBCESMQVBUWETInGBMgYUkaGxQiMkFVLBYjM0coLRQwcl + klPw4fFjczUWorKDJkSTVGRFwqN0NhfSVeJl8rOEw9N14/NGJ5SkhbSVxNTk9KW1xdXl9VZmdoaWprbG + 1ub2N0dXZ3eHl6e3x9fn9xEAAgIBAgQEAwQFBgcHBgU1AQACEQMhMRIEQVFhcSITBTKBkRShsUIjwVLR + 8DMkYuFygpJDUxVjczTxJQYWorKDByY1wtJEk1SjF2RFVTZ0ZeLys4TD03Xj80aUpIW0lcTU5PSltcXV + 5fVWZnaGlqa2xtbm9ic3R1dnd4eXp7fH/9oADAMBAAIRAxEAPwDd/amR/pH/AOcf70v2pkf6R/8AnH+9 + UUlofq/Bpevxb37UyP8ASP8A84/3pftTI/0j/wDOP96opJfq/BXr8W9+1Mj/AEj/APOP96X7UyP9I/8A + zj/eqKSX6vwV6/F3ujdbuGS2i5xfU8HVxktIG76XyW99vo27p0XGdO2/ba930dZj+q5dX+qfZPL8VAeD + 341VVr/eZhx+0bu708n/2f/iDFhJQ0NfUFJPRklMRQABAQAADEhMaW5vAhAAAG1udHJSR0IgWFlaIAfO + AAIACQAGADEAAGFjc3BNU0ZUAAAAAElFQyBzUkdCAAAAAAAAAAAAAAAAAAD21gABAAAAANMtSFAgIAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAEWNwcnQAAAFQAAAAM2Rl + c2MAAAGEAAAAbHd0cHQAAAHwAAAAFGJrcHQAAAIEAAAAFHJYWVoAAAIYAAAAFGdYWVoAAAIsAAAAFGJY + WVoAAAJAAAAAFGRtbmQAAAJUAAAAcGRtZGQAAALEAAAAiHZ1ZWQAAANMAAAAhnZpZXcAAAPUAAAAJGx1 + bWkAAAP4AAAAFG1lYXMAAAQMAAAAJHRlY2gAAAQwAAAADHJUUkMAAAQ8AAAIDGdUUkMAAAQ8AAAIDGJU + UkMAAAQ8AAAIDHRleHQAAAAAQ29weXJpZ2h0IChjKSAxOTk4IEhld2xldHQtUGFja2FyZCBDb21wYW55 + AABkZXNjAAAAAAAAABJzUkdCIElFQzYxOTY2LTIuMQAAAAAAAAAAAAAAEnNSR0IgSUVDNjE5NjYtMi4x + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABYWVogAAAAAAAA + 81EAAQAAAAEWzFhZWiAAAAAAAAAAAAAAAAAAAAAAWFlaIAAAAAAAAG+iAAA49QAAA5BYWVogAAAAAAAA + YpkAALeFAAAY2lhZWiAAAAAAAAAkoAAAD4QAALbPZGVzYwAAAAAAAAAWSUVDIGh0dHA6Ly93d3cuaWVj + LmNoAAAAAAAAAAAAAAAWSUVDIGh0dHA6Ly93d3cuaWVjLmNoAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAGRlc2MAAAAAAAAALklFQyA2MTk2Ni0yLjEgRGVmYXVsdCBSR0Ig + Y29sb3VyIHNwYWNlIC0gc1JHQgAAAAAAAAAAAAAALklFQyA2MTk2Ni0yLjEgRGVmYXVsdCBSR0IgY29s + b3VyIHNwYWNlIC0gc1JHQgAAAAAAAAAAAAAAAAAAAAAAAAAAAABkZXNjAAAAAAAAACxSZWZlcmVuY2Ug + Vmlld2luZyBDb25kaXRpb24gaW4gSUVDNjE5NjYtMi4xAAAAAAAAAAAAAAAsUmVmZXJlbmNlIFZpZXdp + bmcgQ29uZGl0aW9uIGluIElFQzYxOTY2LTIuMQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAdmlldwAA + AAAAE6T+ABRfLgAQzxQAA+3MAAQTCwADXJ4AAAABWFlaIAAAAAAATAlWAFAAAABXH+dtZWFzAAAAAAAA + AAEAAAAAAAAAAAAAAAAAAAAAAAACjwAAAAJzaWcgAAAAAENSVCBjdXJ2AAAAAAAABAAAAAAFAAoADwAU + ABkAHgAjACgALQAyADcAOwBAAEUASgBPAFQAWQBeAGMAaABtAHIAdwB8AIEAhgCLAJAAlQCaAJ8ApACp + AK4AsgC3ALwAwQDGAMsA0ADVANsA4ADlAOsA8AD2APsBAQEHAQ0BEwEZAR8BJQErATIBOAE+AUUBTAFS + AVkBYAFnAW4BdQF8AYMBiwGSAZoBoQGpAbEBuQHBAckB0QHZAeEB6QHyAfoCAwIMAhQCHQImAi8COAJB + AksCVAJdAmcCcQJ6AoQCjgKYAqICrAK2AsECywLVAuAC6wL1AwADCwMWAyEDLQM4A0MDTwNaA2YDcgN+ + A4oDlgOiA64DugPHA9MD4APsA/kEBgQTBCAELQQ7BEgEVQRjBHEEfgSMBJoEqAS2BMQE0wThBPAE/gUN + BRwFKwU6BUkFWAVnBXcFhgWWBaYFtQXFBdUF5QX2BgYGFgYnBjcGSAZZBmoGewaMBp0GrwbABtEG4wb1 + BwcHGQcrBz0HTwdhB3QHhgeZB6wHvwfSB+UH+AgLCB8IMghGCFoIbgiCCJYIqgi+CNII5wj7CRAJJQk6 + CU8JZAl5CY8JpAm6Cc8J5Qn7ChEKJwo9ClQKagqBCpgKrgrFCtwK8wsLCyILOQtRC2kLgAuYC7ALyAvh + C/kMEgwqDEMMXAx1DI4MpwzADNkM8w0NDSYNQA1aDXQNjg2pDcMN3g34DhMOLg5JDmQOfw6bDrYO0g7u + DwkPJQ9BD14Peg+WD7MPzw/sEAkQJhBDEGEQfhCbELkQ1xD1ERMRMRFPEW0RjBGqEckR6BIHEiYSRRJk + EoQSoxLDEuMTAxMjE0MTYxODE6QTxRPlFAYUJxRJFGoUixStFM4U8BUSFTQVVhV4FZsVvRXgFgMWJhZJ + FmwWjxayFtYW+hcdF0EXZReJF64X0hf3GBsYQBhlGIoYrxjVGPoZIBlFGWsZkRm3Gd0aBBoqGlEadxqe + GsUa7BsUGzsbYxuKG7Ib2hwCHCocUhx7HKMczBz1HR4dRx1wHZkdwx3sHhYeQB5qHpQevh7pHxMfPh9p + H5Qfvx/qIBUgQSBsIJggxCDwIRwhSCF1IaEhziH7IiciVSKCIq8i3SMKIzgjZiOUI8Ij8CQfJE0kfCSr + JNolCSU4JWgllyXHJfcmJyZXJocmtyboJxgnSSd6J6sn3CgNKD8ocSiiKNQpBik4KWspnSnQKgIqNSpo + KpsqzysCKzYraSudK9EsBSw5LG4soizXLQwtQS12Last4S4WLkwugi63Lu4vJC9aL5Evxy/+MDUwbDCk + MNsxEjFKMYIxujHyMioyYzKbMtQzDTNGM38zuDPxNCs0ZTSeNNg1EzVNNYc1wjX9Njc2cjauNuk3JDdg + N5w31zgUOFA4jDjIOQU5Qjl/Obw5+To2OnQ6sjrvOy07azuqO+g8JzxlPKQ84z0iPWE9oT3gPiA+YD6g + PuA/IT9hP6I/4kAjQGRApkDnQSlBakGsQe5CMEJyQrVC90M6Q31DwEQDREdEikTORRJFVUWaRd5GIkZn + RqtG8Ec1R3tHwEgFSEtIkUjXSR1JY0mpSfBKN0p9SsRLDEtTS5pL4kwqTHJMuk0CTUpNk03cTiVObk63 + TwBPSU+TT91QJ1BxULtRBlFQUZtR5lIxUnxSx1MTU19TqlP2VEJUj1TbVShVdVXCVg9WXFapVvdXRFeS + V+BYL1h9WMtZGllpWbhaB1pWWqZa9VtFW5Vb5Vw1XIZc1l0nXXhdyV4aXmxevV8PX2Ffs2AFYFdgqmD8 + YU9homH1YklinGLwY0Njl2PrZEBklGTpZT1lkmXnZj1mkmboZz1nk2fpaD9olmjsaUNpmmnxakhqn2r3 + a09rp2v/bFdsr20IbWBtuW4SbmtuxG8eb3hv0XArcIZw4HE6cZVx8HJLcqZzAXNdc7h0FHRwdMx1KHWF + deF2Pnabdvh3VnezeBF4bnjMeSp5iXnnekZ6pXsEe2N7wnwhfIF84X1BfaF+AX5ifsJ/I3+Ef+WAR4Co + gQqBa4HNgjCCkoL0g1eDuoQdhICE44VHhauGDoZyhteHO4efiASIaYjOiTOJmYn+imSKyoswi5aL/Ixj + jMqNMY2Yjf+OZo7OjzaPnpAGkG6Q1pE/kaiSEZJ6kuOTTZO2lCCUipT0lV+VyZY0lp+XCpd1l+CYTJi4 + mSSZkJn8mmia1ZtCm6+cHJyJnPedZJ3SnkCerp8dn4uf+qBpoNihR6G2oiailqMGo3aj5qRWpMelOKWp + phqmi6b9p26n4KhSqMSpN6mpqhyqj6sCq3Wr6axcrNCtRK24ri2uoa8Wr4uwALB1sOqxYLHWskuywrM4 + s660JbSctRO1irYBtnm28Ldot+C4WbjRuUq5wro7urW7LrunvCG8m70VvY++Cr6Evv+/er/1wHDA7MFn + wePCX8Lbw1jD1MRRxM7FS8XIxkbGw8dBx7/IPci8yTrJuco4yrfLNsu2zDXMtc01zbXONs62zzfPuNA5 + 0LrRPNG+0j/SwdNE08bUSdTL1U7V0dZV1tjXXNfg2GTY6Nls2fHadtr724DcBdyK3RDdlt4c3qLfKd+v + 4DbgveFE4cziU+Lb42Pj6+Rz5PzlhOYN5pbnH+ep6DLovOlG6dDqW+rl63Dr++yG7RHtnO4o7rTvQO/M + 8Fjw5fFy8f/yjPMZ86f0NPTC9VD13vZt9vv3ivgZ+Kj5OPnH+lf65/t3/Af8mP0p/br+S/7c/23////b + AEMAAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQICAgICAgICAgICAwMD + AwMDAwMDA//bAEMBAQEBAQEBAQEBAQICAQICAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMD + AwMDAwMDAwMDAwMDAwMDA//AABEIAAwAPAMBEQACEQEDEQH/xAAfAAABBQEBAQEBAQAAAAAAAAAAAQID + BAUGBwgJCgv/xAC1EAACAQMDAgQDBQUEBAAAAX0BAgMABBEFEiExQQYTUWEHInEUMoGRoQgjQrHBFVLR + 8CQzYnKCCQoWFxgZGiUmJygpKjQ1Njc4OTpDREVGR0hJSlNUVVZXWFlaY2RlZmdoaWpzdHV2d3h5eoOE + hYaHiImKkpOUlZaXmJmaoqOkpaanqKmqsrO0tba3uLm6wsPExcbHyMnK0tPU1dbX2Nna4eLj5OXm5+jp + 6vHy8/T19vf4+fr/xAAfAQADAQEBAQEBAQEBAAAAAAAAAQIDBAUGBwgJCgv/xAC1EQACAQIEBAMEBwUE + BAABAncAAQIDEQQFITEGEkFRB2FxEyIygQgUQpGhscEJIzNS8BVictEKFiQ04SXxFxgZGiYnKCkqNTY3 + ODk6Q0RFRkdISUpTVFVWV1hZWmNkZWZnaGlqc3R1dnd4eXqCg4SFhoeIiYqSk5SVlpeYmZqio6Slpqeo + qaqys7S1tre4ubrCw8TFxsfIycrS09TV1tfY2dri4+Tl5ufo6ery8/T19vf4+fr/2gAMAwEAAhEDEQA/ + AP1ZH7UPxEAA/wCEw8bnj/ob9f8A/k+v7U/1Nyj/AKF+G/8ABUP/AJE/llcSZlZf7dX/APBk/wDMX/hq + H4if9Df43/8ACv1//wCT6P8AU3Kf+hfhv/BUP/kQ/wBZcy/6Dq//AIMn/mH/AA1D8RP+hv8AG/8A4V+v + /wDyfR/qblP/AEL8N/4Kh/8AIh/rLmX/AEHV/wDwZP8AzD/hqH4if9Df43/8K/X/AP5Po/1Nyn/oX4b/ + AMFQ/wDkQ/1lzL/oOr/+DJ/5h/w1D8RP+hv8b/8AhX6//wDJ9H+puU/9C/Df+Cof/Ih/rLmX/QdX/wDB + k/8AMT/hqH4if9Df43/8K/X/AP5Po/1Nyn/oX4b/AMFQ/wDkQ/1kzL/oOr/+DJ/5n2R+xz+234zt/iRp + nw+8a6vqXiDwZ4gs9baObXr+bUr/AMPajpmkX2tQ3FlqV2Zb57K7XT2t3tXkaJWkV4whVxJ+beJfAuU4 + Th/FZ/hKEKOMw8qd+SKjGcZzjTs4q0bpyUlJK7s073VvuuBOLMxxGcYfJ8TWlVw1ZTtzu7hKMJTupPWz + UWnFu2qatrf9aP8AhfXgv+zv7U89/sfm+V5207N+M43fSv50P2w/kwr/AEFP42CgAoAKACgAoA9s/Z0/ + s7/hcng3+1vP/s7Ov/avs2PP2f8ACL63t2buP9ZjP+zmvz7xU/5IPPf+4H/qRRPsvD//AJK7KP8AuL/6 + ZqH7/wD/ABaT/hUfb7Ht/wBj7V9p8v8A9Cr+Oz+lz//Z + + + + + /9j/4AAQSkZJRgABAgEASABIAAD/7gAOQWRvYmUAZAAAAAAB/+ED5kV4aWYAAE1NACoAAAAIAAcBEgAD + AAAAAQABAAABGgAFAAAAAQAAAGIBGwAFAAAAAQAAAGoBKAADAAAAAQACAAABMQACAAAAHAAAAHIBMgAC + AAAAFAAAAI6HaQAEAAAAAQAAAKIAAADCAEgAAAABAAAASAAAAAEAAEFkb2JlIFBob3Rvc2hvcCBDUzMg + V2luZG93cwAyMDEwOjA0OjE1IDIwOjMyOjA0AAACoAIABAAAAAEAAAA8oAMABAAAAAEAAAAMAAAAAAAA + AAYBAwADAAAAAQAGAAABGgAFAAAAAQAAARABGwAFAAAAAQAAARgBKAADAAAAAQACAAACAQAEAAAAAQAA + ASACAgAEAAAAAQAAAr4AAAAAAAAASAAAAAEAAABIAAAAAf/Y/+AAEEpGSUYAAQIAAEgASAAA/+0ADEFk + b2JlX0NNAAH/7gAOQWRvYmUAZIAAAAAB/9sAhAAMCAgICQgMCQkMEQsKCxEVDwwMDxUYExMVExMYEQwM + DAwMDBEMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMAQ0LCw0ODRAODhAUDg4OFBQODg4OFBEMDAwM + DBERDAwMDAwMEQwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAz/wAARCAAMADwDASIAAhEBAxEB/90A + BAAE/8QBPwAAAQUBAQEBAQEAAAAAAAAAAwABAgQFBgcICQoLAQABBQEBAQEBAQAAAAAAAAABAAIDBAUG + BwgJCgsQAAEEAQMCBAIFBwYIBQMMMwEAAhEDBCESMQVBUWETInGBMgYUkaGxQiMkFVLBYjM0coLRQwcl + klPw4fFjczUWorKDJkSTVGRFwqN0NhfSVeJl8rOEw9N14/NGJ5SkhbSVxNTk9KW1xdXl9VZmdoaWprbG + 1ub2N0dXZ3eHl6e3x9fn9xEAAgIBAgQEAwQFBgcHBgU1AQACEQMhMRIEQVFhcSITBTKBkRShsUIjwVLR + 8DMkYuFygpJDUxVjczTxJQYWorKDByY1wtJEk1SjF2RFVTZ0ZeLys4TD03Xj80aUpIW0lcTU5PSltcXV + 5fVWZnaGlqa2xtbm9ic3R1dnd4eXp7fH/9oADAMBAAIRAxEAPwDd/amR/pH/AOcf70v2pkf6R/8AnH+9 + UUlofq/Bpevxb37UyP8ASP8A84/3pftTI/0j/wDOP96opJfq/BXr8W9+1Mj/AEj/APOP96X7UyP9I/8A + zj/eqKSX6vwV6/F3ujdbuGS2i5xfU8HVxktIG76XyW99vo27p0XGdO2/ba930dZj+q5dX+qfZPL8VAeD + 341VVr/eZhx+0bu708n/2f/iDFhJQ0NfUFJPRklMRQABAQAADEhMaW5vAhAAAG1udHJSR0IgWFlaIAfO + AAIACQAGADEAAGFjc3BNU0ZUAAAAAElFQyBzUkdCAAAAAAAAAAAAAAAAAAD21gABAAAAANMtSFAgIAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAEWNwcnQAAAFQAAAAM2Rl + c2MAAAGEAAAAbHd0cHQAAAHwAAAAFGJrcHQAAAIEAAAAFHJYWVoAAAIYAAAAFGdYWVoAAAIsAAAAFGJY + WVoAAAJAAAAAFGRtbmQAAAJUAAAAcGRtZGQAAALEAAAAiHZ1ZWQAAANMAAAAhnZpZXcAAAPUAAAAJGx1 + bWkAAAP4AAAAFG1lYXMAAAQMAAAAJHRlY2gAAAQwAAAADHJUUkMAAAQ8AAAIDGdUUkMAAAQ8AAAIDGJU + UkMAAAQ8AAAIDHRleHQAAAAAQ29weXJpZ2h0IChjKSAxOTk4IEhld2xldHQtUGFja2FyZCBDb21wYW55 + AABkZXNjAAAAAAAAABJzUkdCIElFQzYxOTY2LTIuMQAAAAAAAAAAAAAAEnNSR0IgSUVDNjE5NjYtMi4x + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABYWVogAAAAAAAA + 81EAAQAAAAEWzFhZWiAAAAAAAAAAAAAAAAAAAAAAWFlaIAAAAAAAAG+iAAA49QAAA5BYWVogAAAAAAAA + YpkAALeFAAAY2lhZWiAAAAAAAAAkoAAAD4QAALbPZGVzYwAAAAAAAAAWSUVDIGh0dHA6Ly93d3cuaWVj + LmNoAAAAAAAAAAAAAAAWSUVDIGh0dHA6Ly93d3cuaWVjLmNoAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAGRlc2MAAAAAAAAALklFQyA2MTk2Ni0yLjEgRGVmYXVsdCBSR0Ig + Y29sb3VyIHNwYWNlIC0gc1JHQgAAAAAAAAAAAAAALklFQyA2MTk2Ni0yLjEgRGVmYXVsdCBSR0IgY29s + b3VyIHNwYWNlIC0gc1JHQgAAAAAAAAAAAAAAAAAAAAAAAAAAAABkZXNjAAAAAAAAACxSZWZlcmVuY2Ug + Vmlld2luZyBDb25kaXRpb24gaW4gSUVDNjE5NjYtMi4xAAAAAAAAAAAAAAAsUmVmZXJlbmNlIFZpZXdp + bmcgQ29uZGl0aW9uIGluIElFQzYxOTY2LTIuMQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAdmlldwAA + AAAAE6T+ABRfLgAQzxQAA+3MAAQTCwADXJ4AAAABWFlaIAAAAAAATAlWAFAAAABXH+dtZWFzAAAAAAAA + AAEAAAAAAAAAAAAAAAAAAAAAAAACjwAAAAJzaWcgAAAAAENSVCBjdXJ2AAAAAAAABAAAAAAFAAoADwAU + ABkAHgAjACgALQAyADcAOwBAAEUASgBPAFQAWQBeAGMAaABtAHIAdwB8AIEAhgCLAJAAlQCaAJ8ApACp + AK4AsgC3ALwAwQDGAMsA0ADVANsA4ADlAOsA8AD2APsBAQEHAQ0BEwEZAR8BJQErATIBOAE+AUUBTAFS + AVkBYAFnAW4BdQF8AYMBiwGSAZoBoQGpAbEBuQHBAckB0QHZAeEB6QHyAfoCAwIMAhQCHQImAi8COAJB + AksCVAJdAmcCcQJ6AoQCjgKYAqICrAK2AsECywLVAuAC6wL1AwADCwMWAyEDLQM4A0MDTwNaA2YDcgN+ + A4oDlgOiA64DugPHA9MD4APsA/kEBgQTBCAELQQ7BEgEVQRjBHEEfgSMBJoEqAS2BMQE0wThBPAE/gUN + BRwFKwU6BUkFWAVnBXcFhgWWBaYFtQXFBdUF5QX2BgYGFgYnBjcGSAZZBmoGewaMBp0GrwbABtEG4wb1 + BwcHGQcrBz0HTwdhB3QHhgeZB6wHvwfSB+UH+AgLCB8IMghGCFoIbgiCCJYIqgi+CNII5wj7CRAJJQk6 + CU8JZAl5CY8JpAm6Cc8J5Qn7ChEKJwo9ClQKagqBCpgKrgrFCtwK8wsLCyILOQtRC2kLgAuYC7ALyAvh + C/kMEgwqDEMMXAx1DI4MpwzADNkM8w0NDSYNQA1aDXQNjg2pDcMN3g34DhMOLg5JDmQOfw6bDrYO0g7u + DwkPJQ9BD14Peg+WD7MPzw/sEAkQJhBDEGEQfhCbELkQ1xD1ERMRMRFPEW0RjBGqEckR6BIHEiYSRRJk + EoQSoxLDEuMTAxMjE0MTYxODE6QTxRPlFAYUJxRJFGoUixStFM4U8BUSFTQVVhV4FZsVvRXgFgMWJhZJ + FmwWjxayFtYW+hcdF0EXZReJF64X0hf3GBsYQBhlGIoYrxjVGPoZIBlFGWsZkRm3Gd0aBBoqGlEadxqe + GsUa7BsUGzsbYxuKG7Ib2hwCHCocUhx7HKMczBz1HR4dRx1wHZkdwx3sHhYeQB5qHpQevh7pHxMfPh9p + H5Qfvx/qIBUgQSBsIJggxCDwIRwhSCF1IaEhziH7IiciVSKCIq8i3SMKIzgjZiOUI8Ij8CQfJE0kfCSr + JNolCSU4JWgllyXHJfcmJyZXJocmtyboJxgnSSd6J6sn3CgNKD8ocSiiKNQpBik4KWspnSnQKgIqNSpo + KpsqzysCKzYraSudK9EsBSw5LG4soizXLQwtQS12Last4S4WLkwugi63Lu4vJC9aL5Evxy/+MDUwbDCk + MNsxEjFKMYIxujHyMioyYzKbMtQzDTNGM38zuDPxNCs0ZTSeNNg1EzVNNYc1wjX9Njc2cjauNuk3JDdg + N5w31zgUOFA4jDjIOQU5Qjl/Obw5+To2OnQ6sjrvOy07azuqO+g8JzxlPKQ84z0iPWE9oT3gPiA+YD6g + PuA/IT9hP6I/4kAjQGRApkDnQSlBakGsQe5CMEJyQrVC90M6Q31DwEQDREdEikTORRJFVUWaRd5GIkZn + RqtG8Ec1R3tHwEgFSEtIkUjXSR1JY0mpSfBKN0p9SsRLDEtTS5pL4kwqTHJMuk0CTUpNk03cTiVObk63 + TwBPSU+TT91QJ1BxULtRBlFQUZtR5lIxUnxSx1MTU19TqlP2VEJUj1TbVShVdVXCVg9WXFapVvdXRFeS + V+BYL1h9WMtZGllpWbhaB1pWWqZa9VtFW5Vb5Vw1XIZc1l0nXXhdyV4aXmxevV8PX2Ffs2AFYFdgqmD8 + YU9homH1YklinGLwY0Njl2PrZEBklGTpZT1lkmXnZj1mkmboZz1nk2fpaD9olmjsaUNpmmnxakhqn2r3 + a09rp2v/bFdsr20IbWBtuW4SbmtuxG8eb3hv0XArcIZw4HE6cZVx8HJLcqZzAXNdc7h0FHRwdMx1KHWF + deF2Pnabdvh3VnezeBF4bnjMeSp5iXnnekZ6pXsEe2N7wnwhfIF84X1BfaF+AX5ifsJ/I3+Ef+WAR4Co + gQqBa4HNgjCCkoL0g1eDuoQdhICE44VHhauGDoZyhteHO4efiASIaYjOiTOJmYn+imSKyoswi5aL/Ixj + jMqNMY2Yjf+OZo7OjzaPnpAGkG6Q1pE/kaiSEZJ6kuOTTZO2lCCUipT0lV+VyZY0lp+XCpd1l+CYTJi4 + mSSZkJn8mmia1ZtCm6+cHJyJnPedZJ3SnkCerp8dn4uf+qBpoNihR6G2oiailqMGo3aj5qRWpMelOKWp + phqmi6b9p26n4KhSqMSpN6mpqhyqj6sCq3Wr6axcrNCtRK24ri2uoa8Wr4uwALB1sOqxYLHWskuywrM4 + s660JbSctRO1irYBtnm28Ldot+C4WbjRuUq5wro7urW7LrunvCG8m70VvY++Cr6Evv+/er/1wHDA7MFn + wePCX8Lbw1jD1MRRxM7FS8XIxkbGw8dBx7/IPci8yTrJuco4yrfLNsu2zDXMtc01zbXONs62zzfPuNA5 + 0LrRPNG+0j/SwdNE08bUSdTL1U7V0dZV1tjXXNfg2GTY6Nls2fHadtr724DcBdyK3RDdlt4c3qLfKd+v + 4DbgveFE4cziU+Lb42Pj6+Rz5PzlhOYN5pbnH+ep6DLovOlG6dDqW+rl63Dr++yG7RHtnO4o7rTvQO/M + 8Fjw5fFy8f/yjPMZ86f0NPTC9VD13vZt9vv3ivgZ+Kj5OPnH+lf65/t3/Af8mP0p/br+S/7c/23////b + AEMAAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQICAgICAgICAgICAwMD + AwMDAwMDA//bAEMBAQEBAQEBAQEBAQICAQICAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMD + AwMDAwMDAwMDAwMDAwMDA//AABEIAAwAPAMBEQACEQEDEQH/xAAfAAABBQEBAQEBAQAAAAAAAAAAAQID + BAUGBwgJCgv/xAC1EAACAQMDAgQDBQUEBAAAAX0BAgMABBEFEiExQQYTUWEHInEUMoGRoQgjQrHBFVLR + 8CQzYnKCCQoWFxgZGiUmJygpKjQ1Njc4OTpDREVGR0hJSlNUVVZXWFlaY2RlZmdoaWpzdHV2d3h5eoOE + hYaHiImKkpOUlZaXmJmaoqOkpaanqKmqsrO0tba3uLm6wsPExcbHyMnK0tPU1dbX2Nna4eLj5OXm5+jp + 6vHy8/T19vf4+fr/xAAfAQADAQEBAQEBAQEBAAAAAAAAAQIDBAUGBwgJCgv/xAC1EQACAQIEBAMEBwUE + BAABAncAAQIDEQQFITEGEkFRB2FxEyIygQgUQpGhscEJIzNS8BVictEKFiQ04SXxFxgZGiYnKCkqNTY3 + ODk6Q0RFRkdISUpTVFVWV1hZWmNkZWZnaGlqc3R1dnd4eXqCg4SFhoeIiYqSk5SVlpeYmZqio6Slpqeo + qaqys7S1tre4ubrCw8TFxsfIycrS09TV1tfY2dri4+Tl5ufo6ery8/T19vf4+fr/2gAMAwEAAhEDEQA/ + AP1ZH7UPxEAA/wCEw8bnj/ob9f8A/k+v7U/1Nyj/AKF+G/8ABUP/AJE/llcSZlZf7dX/APBk/wDMX/hq + H4if9Df43/8ACv1//wCT6P8AU3Kf+hfhv/BUP/kQ/wBZcy/6Dq//AIMn/mH/AA1D8RP+hv8AG/8A4V+v + /wDyfR/qblP/AEL8N/4Kh/8AIh/rLmX/AEHV/wDwZP8AzD/hqH4if9Df43/8K/X/AP5Po/1Nyn/oX4b/ + AMFQ/wDkQ/1lzL/oOr/+DJ/5h/w1D8RP+hv8b/8AhX6//wDJ9H+puU/9C/Df+Cof/Ih/rLmX/QdX/wDB + k/8AMT/hqH4if9Df43/8K/X/AP5Po/1Nyn/oX4b/AMFQ/wDkQ/1kzL/oOr/+DJ/5n2R+xz+234zt/iRp + nw+8a6vqXiDwZ4gs9baObXr+bUr/AMPajpmkX2tQ3FlqV2Zb57K7XT2t3tXkaJWkV4whVxJ+beJfAuU4 + Th/FZ/hKEKOMw8qd+SKjGcZzjTs4q0bpyUlJK7s073VvuuBOLMxxGcYfJ8TWlVw1ZTtzu7hKMJTupPWz + UWnFu2qatrf9aP8AhfXgv+zv7U89/sfm+V5207N+M43fSv50P2w/kwr/AEFP42CgAoAKACgAoA9s/Z0/ + s7/hcng3+1vP/s7Ov/avs2PP2f8ACL63t2buP9ZjP+zmvz7xU/5IPPf+4H/qRRPsvD//AJK7KP8AuL/6 + ZqH7/wD/ABaT/hUfb7Ht/wBj7V9p8v8A9Cr+Oz+lz//Z + + + + + /9j/4AAQSkZJRgABAgEASABIAAD/7gAOQWRvYmUAZAAAAAAB/+ED5kV4aWYAAE1NACoAAAAIAAcBEgAD + AAAAAQABAAABGgAFAAAAAQAAAGIBGwAFAAAAAQAAAGoBKAADAAAAAQACAAABMQACAAAAHAAAAHIBMgAC + AAAAFAAAAI6HaQAEAAAAAQAAAKIAAADCAEgAAAABAAAASAAAAAEAAEFkb2JlIFBob3Rvc2hvcCBDUzMg + V2luZG93cwAyMDEwOjA0OjE1IDIwOjMyOjA0AAACoAIABAAAAAEAAAA8oAMABAAAAAEAAAAMAAAAAAAA + AAYBAwADAAAAAQAGAAABGgAFAAAAAQAAARABGwAFAAAAAQAAARgBKAADAAAAAQACAAACAQAEAAAAAQAA + ASACAgAEAAAAAQAAAr4AAAAAAAAASAAAAAEAAABIAAAAAf/Y/+AAEEpGSUYAAQIAAEgASAAA/+0ADEFk + b2JlX0NNAAH/7gAOQWRvYmUAZIAAAAAB/9sAhAAMCAgICQgMCQkMEQsKCxEVDwwMDxUYExMVExMYEQwM + DAwMDBEMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMAQ0LCw0ODRAODhAUDg4OFBQODg4OFBEMDAwM + DBERDAwMDAwMEQwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAz/wAARCAAMADwDASIAAhEBAxEB/90A + BAAE/8QBPwAAAQUBAQEBAQEAAAAAAAAAAwABAgQFBgcICQoLAQABBQEBAQEBAQAAAAAAAAABAAIDBAUG + BwgJCgsQAAEEAQMCBAIFBwYIBQMMMwEAAhEDBCESMQVBUWETInGBMgYUkaGxQiMkFVLBYjM0coLRQwcl + klPw4fFjczUWorKDJkSTVGRFwqN0NhfSVeJl8rOEw9N14/NGJ5SkhbSVxNTk9KW1xdXl9VZmdoaWprbG + 1ub2N0dXZ3eHl6e3x9fn9xEAAgIBAgQEAwQFBgcHBgU1AQACEQMhMRIEQVFhcSITBTKBkRShsUIjwVLR + 8DMkYuFygpJDUxVjczTxJQYWorKDByY1wtJEk1SjF2RFVTZ0ZeLys4TD03Xj80aUpIW0lcTU5PSltcXV + 5fVWZnaGlqa2xtbm9ic3R1dnd4eXp7fH/9oADAMBAAIRAxEAPwDd/amR/pH/AOcf70v2pkf6R/8AnH+9 + UUlofq/Bpevxb37UyP8ASP8A84/3pftTI/0j/wDOP96opJfq/BXr8W9+1Mj/AEj/APOP96X7UyP9I/8A + zj/eqKSX6vwV6/F3ujdbuGS2i5xfU8HVxktIG76XyW99vo27p0XGdO2/ba930dZj+q5dX+qfZPL8VAeD + 341VVr/eZhx+0bu708n/2f/iDFhJQ0NfUFJPRklMRQABAQAADEhMaW5vAhAAAG1udHJSR0IgWFlaIAfO + AAIACQAGADEAAGFjc3BNU0ZUAAAAAElFQyBzUkdCAAAAAAAAAAAAAAAAAAD21gABAAAAANMtSFAgIAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAEWNwcnQAAAFQAAAAM2Rl + c2MAAAGEAAAAbHd0cHQAAAHwAAAAFGJrcHQAAAIEAAAAFHJYWVoAAAIYAAAAFGdYWVoAAAIsAAAAFGJY + WVoAAAJAAAAAFGRtbmQAAAJUAAAAcGRtZGQAAALEAAAAiHZ1ZWQAAANMAAAAhnZpZXcAAAPUAAAAJGx1 + bWkAAAP4AAAAFG1lYXMAAAQMAAAAJHRlY2gAAAQwAAAADHJUUkMAAAQ8AAAIDGdUUkMAAAQ8AAAIDGJU + UkMAAAQ8AAAIDHRleHQAAAAAQ29weXJpZ2h0IChjKSAxOTk4IEhld2xldHQtUGFja2FyZCBDb21wYW55 + AABkZXNjAAAAAAAAABJzUkdCIElFQzYxOTY2LTIuMQAAAAAAAAAAAAAAEnNSR0IgSUVDNjE5NjYtMi4x + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABYWVogAAAAAAAA + 81EAAQAAAAEWzFhZWiAAAAAAAAAAAAAAAAAAAAAAWFlaIAAAAAAAAG+iAAA49QAAA5BYWVogAAAAAAAA + YpkAALeFAAAY2lhZWiAAAAAAAAAkoAAAD4QAALbPZGVzYwAAAAAAAAAWSUVDIGh0dHA6Ly93d3cuaWVj + LmNoAAAAAAAAAAAAAAAWSUVDIGh0dHA6Ly93d3cuaWVjLmNoAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAGRlc2MAAAAAAAAALklFQyA2MTk2Ni0yLjEgRGVmYXVsdCBSR0Ig + Y29sb3VyIHNwYWNlIC0gc1JHQgAAAAAAAAAAAAAALklFQyA2MTk2Ni0yLjEgRGVmYXVsdCBSR0IgY29s + b3VyIHNwYWNlIC0gc1JHQgAAAAAAAAAAAAAAAAAAAAAAAAAAAABkZXNjAAAAAAAAACxSZWZlcmVuY2Ug + Vmlld2luZyBDb25kaXRpb24gaW4gSUVDNjE5NjYtMi4xAAAAAAAAAAAAAAAsUmVmZXJlbmNlIFZpZXdp + bmcgQ29uZGl0aW9uIGluIElFQzYxOTY2LTIuMQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAdmlldwAA + AAAAE6T+ABRfLgAQzxQAA+3MAAQTCwADXJ4AAAABWFlaIAAAAAAATAlWAFAAAABXH+dtZWFzAAAAAAAA + AAEAAAAAAAAAAAAAAAAAAAAAAAACjwAAAAJzaWcgAAAAAENSVCBjdXJ2AAAAAAAABAAAAAAFAAoADwAU + ABkAHgAjACgALQAyADcAOwBAAEUASgBPAFQAWQBeAGMAaABtAHIAdwB8AIEAhgCLAJAAlQCaAJ8ApACp + AK4AsgC3ALwAwQDGAMsA0ADVANsA4ADlAOsA8AD2APsBAQEHAQ0BEwEZAR8BJQErATIBOAE+AUUBTAFS + AVkBYAFnAW4BdQF8AYMBiwGSAZoBoQGpAbEBuQHBAckB0QHZAeEB6QHyAfoCAwIMAhQCHQImAi8COAJB + AksCVAJdAmcCcQJ6AoQCjgKYAqICrAK2AsECywLVAuAC6wL1AwADCwMWAyEDLQM4A0MDTwNaA2YDcgN+ + A4oDlgOiA64DugPHA9MD4APsA/kEBgQTBCAELQQ7BEgEVQRjBHEEfgSMBJoEqAS2BMQE0wThBPAE/gUN + BRwFKwU6BUkFWAVnBXcFhgWWBaYFtQXFBdUF5QX2BgYGFgYnBjcGSAZZBmoGewaMBp0GrwbABtEG4wb1 + BwcHGQcrBz0HTwdhB3QHhgeZB6wHvwfSB+UH+AgLCB8IMghGCFoIbgiCCJYIqgi+CNII5wj7CRAJJQk6 + CU8JZAl5CY8JpAm6Cc8J5Qn7ChEKJwo9ClQKagqBCpgKrgrFCtwK8wsLCyILOQtRC2kLgAuYC7ALyAvh + C/kMEgwqDEMMXAx1DI4MpwzADNkM8w0NDSYNQA1aDXQNjg2pDcMN3g34DhMOLg5JDmQOfw6bDrYO0g7u + DwkPJQ9BD14Peg+WD7MPzw/sEAkQJhBDEGEQfhCbELkQ1xD1ERMRMRFPEW0RjBGqEckR6BIHEiYSRRJk + EoQSoxLDEuMTAxMjE0MTYxODE6QTxRPlFAYUJxRJFGoUixStFM4U8BUSFTQVVhV4FZsVvRXgFgMWJhZJ + FmwWjxayFtYW+hcdF0EXZReJF64X0hf3GBsYQBhlGIoYrxjVGPoZIBlFGWsZkRm3Gd0aBBoqGlEadxqe + GsUa7BsUGzsbYxuKG7Ib2hwCHCocUhx7HKMczBz1HR4dRx1wHZkdwx3sHhYeQB5qHpQevh7pHxMfPh9p + H5Qfvx/qIBUgQSBsIJggxCDwIRwhSCF1IaEhziH7IiciVSKCIq8i3SMKIzgjZiOUI8Ij8CQfJE0kfCSr + JNolCSU4JWgllyXHJfcmJyZXJocmtyboJxgnSSd6J6sn3CgNKD8ocSiiKNQpBik4KWspnSnQKgIqNSpo + KpsqzysCKzYraSudK9EsBSw5LG4soizXLQwtQS12Last4S4WLkwugi63Lu4vJC9aL5Evxy/+MDUwbDCk + MNsxEjFKMYIxujHyMioyYzKbMtQzDTNGM38zuDPxNCs0ZTSeNNg1EzVNNYc1wjX9Njc2cjauNuk3JDdg + N5w31zgUOFA4jDjIOQU5Qjl/Obw5+To2OnQ6sjrvOy07azuqO+g8JzxlPKQ84z0iPWE9oT3gPiA+YD6g + PuA/IT9hP6I/4kAjQGRApkDnQSlBakGsQe5CMEJyQrVC90M6Q31DwEQDREdEikTORRJFVUWaRd5GIkZn + RqtG8Ec1R3tHwEgFSEtIkUjXSR1JY0mpSfBKN0p9SsRLDEtTS5pL4kwqTHJMuk0CTUpNk03cTiVObk63 + TwBPSU+TT91QJ1BxULtRBlFQUZtR5lIxUnxSx1MTU19TqlP2VEJUj1TbVShVdVXCVg9WXFapVvdXRFeS + V+BYL1h9WMtZGllpWbhaB1pWWqZa9VtFW5Vb5Vw1XIZc1l0nXXhdyV4aXmxevV8PX2Ffs2AFYFdgqmD8 + YU9homH1YklinGLwY0Njl2PrZEBklGTpZT1lkmXnZj1mkmboZz1nk2fpaD9olmjsaUNpmmnxakhqn2r3 + a09rp2v/bFdsr20IbWBtuW4SbmtuxG8eb3hv0XArcIZw4HE6cZVx8HJLcqZzAXNdc7h0FHRwdMx1KHWF + deF2Pnabdvh3VnezeBF4bnjMeSp5iXnnekZ6pXsEe2N7wnwhfIF84X1BfaF+AX5ifsJ/I3+Ef+WAR4Co + gQqBa4HNgjCCkoL0g1eDuoQdhICE44VHhauGDoZyhteHO4efiASIaYjOiTOJmYn+imSKyoswi5aL/Ixj + jMqNMY2Yjf+OZo7OjzaPnpAGkG6Q1pE/kaiSEZJ6kuOTTZO2lCCUipT0lV+VyZY0lp+XCpd1l+CYTJi4 + mSSZkJn8mmia1ZtCm6+cHJyJnPedZJ3SnkCerp8dn4uf+qBpoNihR6G2oiailqMGo3aj5qRWpMelOKWp + phqmi6b9p26n4KhSqMSpN6mpqhyqj6sCq3Wr6axcrNCtRK24ri2uoa8Wr4uwALB1sOqxYLHWskuywrM4 + s660JbSctRO1irYBtnm28Ldot+C4WbjRuUq5wro7urW7LrunvCG8m70VvY++Cr6Evv+/er/1wHDA7MFn + wePCX8Lbw1jD1MRRxM7FS8XIxkbGw8dBx7/IPci8yTrJuco4yrfLNsu2zDXMtc01zbXONs62zzfPuNA5 + 0LrRPNG+0j/SwdNE08bUSdTL1U7V0dZV1tjXXNfg2GTY6Nls2fHadtr724DcBdyK3RDdlt4c3qLfKd+v + 4DbgveFE4cziU+Lb42Pj6+Rz5PzlhOYN5pbnH+ep6DLovOlG6dDqW+rl63Dr++yG7RHtnO4o7rTvQO/M + 8Fjw5fFy8f/yjPMZ86f0NPTC9VD13vZt9vv3ivgZ+Kj5OPnH+lf65/t3/Af8mP0p/br+S/7c/23////b + AEMAAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQICAgICAgICAgICAwMD + AwMDAwMDA//bAEMBAQEBAQEBAQEBAQICAQICAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMD + AwMDAwMDAwMDAwMDAwMDA//AABEIAAwAPAMBEQACEQEDEQH/xAAfAAABBQEBAQEBAQAAAAAAAAAAAQID + BAUGBwgJCgv/xAC1EAACAQMDAgQDBQUEBAAAAX0BAgMABBEFEiExQQYTUWEHInEUMoGRoQgjQrHBFVLR + 8CQzYnKCCQoWFxgZGiUmJygpKjQ1Njc4OTpDREVGR0hJSlNUVVZXWFlaY2RlZmdoaWpzdHV2d3h5eoOE + hYaHiImKkpOUlZaXmJmaoqOkpaanqKmqsrO0tba3uLm6wsPExcbHyMnK0tPU1dbX2Nna4eLj5OXm5+jp + 6vHy8/T19vf4+fr/xAAfAQADAQEBAQEBAQEBAAAAAAAAAQIDBAUGBwgJCgv/xAC1EQACAQIEBAMEBwUE + BAABAncAAQIDEQQFITEGEkFRB2FxEyIygQgUQpGhscEJIzNS8BVictEKFiQ04SXxFxgZGiYnKCkqNTY3 + ODk6Q0RFRkdISUpTVFVWV1hZWmNkZWZnaGlqc3R1dnd4eXqCg4SFhoeIiYqSk5SVlpeYmZqio6Slpqeo + qaqys7S1tre4ubrCw8TFxsfIycrS09TV1tfY2dri4+Tl5ufo6ery8/T19vf4+fr/2gAMAwEAAhEDEQA/ + AP1ZH7UPxEAA/wCEw8bnj/ob9f8A/k+v7U/1Nyj/AKF+G/8ABUP/AJE/llcSZlZf7dX/APBk/wDMX/hq + H4if9Df43/8ACv1//wCT6P8AU3Kf+hfhv/BUP/kQ/wBZcy/6Dq//AIMn/mH/AA1D8RP+hv8AG/8A4V+v + /wDyfR/qblP/AEL8N/4Kh/8AIh/rLmX/AEHV/wDwZP8AzD/hqH4if9Df43/8K/X/AP5Po/1Nyn/oX4b/ + AMFQ/wDkQ/1lzL/oOr/+DJ/5h/w1D8RP+hv8b/8AhX6//wDJ9H+puU/9C/Df+Cof/Ih/rLmX/QdX/wDB + k/8AMT/hqH4if9Df43/8K/X/AP5Po/1Nyn/oX4b/AMFQ/wDkQ/1kzL/oOr/+DJ/5n2R+xz+234zt/iRp + nw+8a6vqXiDwZ4gs9baObXr+bUr/AMPajpmkX2tQ3FlqV2Zb57K7XT2t3tXkaJWkV4whVxJ+beJfAuU4 + Th/FZ/hKEKOMw8qd+SKjGcZzjTs4q0bpyUlJK7s073VvuuBOLMxxGcYfJ8TWlVw1ZTtzu7hKMJTupPWz + UWnFu2qatrf9aP8AhfXgv+zv7U89/sfm+V5207N+M43fSv50P2w/kwr/AEFP42CgAoAKACgAoA9s/Z0/ + s7/hcng3+1vP/s7Ov/avs2PP2f8ACL63t2buP9ZjP+zmvz7xU/5IPPf+4H/qRRPsvD//AJK7KP8AuL/6 + ZqH7/wD/ABaT/hUfb7Ht/wBj7V9p8v8A9Cr+Oz+lz//Z + + + + + /9j/4AAQSkZJRgABAgEASABIAAD/7gAOQWRvYmUAZAAAAAAB/+ED5kV4aWYAAE1NACoAAAAIAAcBEgAD + AAAAAQABAAABGgAFAAAAAQAAAGIBGwAFAAAAAQAAAGoBKAADAAAAAQACAAABMQACAAAAHAAAAHIBMgAC + AAAAFAAAAI6HaQAEAAAAAQAAAKIAAADCAEgAAAABAAAASAAAAAEAAEFkb2JlIFBob3Rvc2hvcCBDUzMg + V2luZG93cwAyMDEwOjA0OjE1IDIwOjMyOjA0AAACoAIABAAAAAEAAAA8oAMABAAAAAEAAAAMAAAAAAAA + AAYBAwADAAAAAQAGAAABGgAFAAAAAQAAARABGwAFAAAAAQAAARgBKAADAAAAAQACAAACAQAEAAAAAQAA + ASACAgAEAAAAAQAAAr4AAAAAAAAASAAAAAEAAABIAAAAAf/Y/+AAEEpGSUYAAQIAAEgASAAA/+0ADEFk + b2JlX0NNAAH/7gAOQWRvYmUAZIAAAAAB/9sAhAAMCAgICQgMCQkMEQsKCxEVDwwMDxUYExMVExMYEQwM + DAwMDBEMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMAQ0LCw0ODRAODhAUDg4OFBQODg4OFBEMDAwM + DBERDAwMDAwMEQwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAz/wAARCAAMADwDASIAAhEBAxEB/90A + BAAE/8QBPwAAAQUBAQEBAQEAAAAAAAAAAwABAgQFBgcICQoLAQABBQEBAQEBAQAAAAAAAAABAAIDBAUG + BwgJCgsQAAEEAQMCBAIFBwYIBQMMMwEAAhEDBCESMQVBUWETInGBMgYUkaGxQiMkFVLBYjM0coLRQwcl + klPw4fFjczUWorKDJkSTVGRFwqN0NhfSVeJl8rOEw9N14/NGJ5SkhbSVxNTk9KW1xdXl9VZmdoaWprbG + 1ub2N0dXZ3eHl6e3x9fn9xEAAgIBAgQEAwQFBgcHBgU1AQACEQMhMRIEQVFhcSITBTKBkRShsUIjwVLR + 8DMkYuFygpJDUxVjczTxJQYWorKDByY1wtJEk1SjF2RFVTZ0ZeLys4TD03Xj80aUpIW0lcTU5PSltcXV + 5fVWZnaGlqa2xtbm9ic3R1dnd4eXp7fH/9oADAMBAAIRAxEAPwDd/amR/pH/AOcf70v2pkf6R/8AnH+9 + UUlofq/Bpevxb37UyP8ASP8A84/3pftTI/0j/wDOP96opJfq/BXr8W9+1Mj/AEj/APOP96X7UyP9I/8A + zj/eqKSX6vwV6/F3ujdbuGS2i5xfU8HVxktIG76XyW99vo27p0XGdO2/ba930dZj+q5dX+qfZPL8VAeD + 341VVr/eZhx+0bu708n/2f/iDFhJQ0NfUFJPRklMRQABAQAADEhMaW5vAhAAAG1udHJSR0IgWFlaIAfO + AAIACQAGADEAAGFjc3BNU0ZUAAAAAElFQyBzUkdCAAAAAAAAAAAAAAAAAAD21gABAAAAANMtSFAgIAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAEWNwcnQAAAFQAAAAM2Rl + c2MAAAGEAAAAbHd0cHQAAAHwAAAAFGJrcHQAAAIEAAAAFHJYWVoAAAIYAAAAFGdYWVoAAAIsAAAAFGJY + WVoAAAJAAAAAFGRtbmQAAAJUAAAAcGRtZGQAAALEAAAAiHZ1ZWQAAANMAAAAhnZpZXcAAAPUAAAAJGx1 + bWkAAAP4AAAAFG1lYXMAAAQMAAAAJHRlY2gAAAQwAAAADHJUUkMAAAQ8AAAIDGdUUkMAAAQ8AAAIDGJU + UkMAAAQ8AAAIDHRleHQAAAAAQ29weXJpZ2h0IChjKSAxOTk4IEhld2xldHQtUGFja2FyZCBDb21wYW55 + AABkZXNjAAAAAAAAABJzUkdCIElFQzYxOTY2LTIuMQAAAAAAAAAAAAAAEnNSR0IgSUVDNjE5NjYtMi4x + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABYWVogAAAAAAAA + 81EAAQAAAAEWzFhZWiAAAAAAAAAAAAAAAAAAAAAAWFlaIAAAAAAAAG+iAAA49QAAA5BYWVogAAAAAAAA + YpkAALeFAAAY2lhZWiAAAAAAAAAkoAAAD4QAALbPZGVzYwAAAAAAAAAWSUVDIGh0dHA6Ly93d3cuaWVj + LmNoAAAAAAAAAAAAAAAWSUVDIGh0dHA6Ly93d3cuaWVjLmNoAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAGRlc2MAAAAAAAAALklFQyA2MTk2Ni0yLjEgRGVmYXVsdCBSR0Ig + Y29sb3VyIHNwYWNlIC0gc1JHQgAAAAAAAAAAAAAALklFQyA2MTk2Ni0yLjEgRGVmYXVsdCBSR0IgY29s + b3VyIHNwYWNlIC0gc1JHQgAAAAAAAAAAAAAAAAAAAAAAAAAAAABkZXNjAAAAAAAAACxSZWZlcmVuY2Ug + Vmlld2luZyBDb25kaXRpb24gaW4gSUVDNjE5NjYtMi4xAAAAAAAAAAAAAAAsUmVmZXJlbmNlIFZpZXdp + bmcgQ29uZGl0aW9uIGluIElFQzYxOTY2LTIuMQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAdmlldwAA + AAAAE6T+ABRfLgAQzxQAA+3MAAQTCwADXJ4AAAABWFlaIAAAAAAATAlWAFAAAABXH+dtZWFzAAAAAAAA + AAEAAAAAAAAAAAAAAAAAAAAAAAACjwAAAAJzaWcgAAAAAENSVCBjdXJ2AAAAAAAABAAAAAAFAAoADwAU + ABkAHgAjACgALQAyADcAOwBAAEUASgBPAFQAWQBeAGMAaABtAHIAdwB8AIEAhgCLAJAAlQCaAJ8ApACp + AK4AsgC3ALwAwQDGAMsA0ADVANsA4ADlAOsA8AD2APsBAQEHAQ0BEwEZAR8BJQErATIBOAE+AUUBTAFS + AVkBYAFnAW4BdQF8AYMBiwGSAZoBoQGpAbEBuQHBAckB0QHZAeEB6QHyAfoCAwIMAhQCHQImAi8COAJB + AksCVAJdAmcCcQJ6AoQCjgKYAqICrAK2AsECywLVAuAC6wL1AwADCwMWAyEDLQM4A0MDTwNaA2YDcgN+ + A4oDlgOiA64DugPHA9MD4APsA/kEBgQTBCAELQQ7BEgEVQRjBHEEfgSMBJoEqAS2BMQE0wThBPAE/gUN + BRwFKwU6BUkFWAVnBXcFhgWWBaYFtQXFBdUF5QX2BgYGFgYnBjcGSAZZBmoGewaMBp0GrwbABtEG4wb1 + BwcHGQcrBz0HTwdhB3QHhgeZB6wHvwfSB+UH+AgLCB8IMghGCFoIbgiCCJYIqgi+CNII5wj7CRAJJQk6 + CU8JZAl5CY8JpAm6Cc8J5Qn7ChEKJwo9ClQKagqBCpgKrgrFCtwK8wsLCyILOQtRC2kLgAuYC7ALyAvh + C/kMEgwqDEMMXAx1DI4MpwzADNkM8w0NDSYNQA1aDXQNjg2pDcMN3g34DhMOLg5JDmQOfw6bDrYO0g7u + DwkPJQ9BD14Peg+WD7MPzw/sEAkQJhBDEGEQfhCbELkQ1xD1ERMRMRFPEW0RjBGqEckR6BIHEiYSRRJk + EoQSoxLDEuMTAxMjE0MTYxODE6QTxRPlFAYUJxRJFGoUixStFM4U8BUSFTQVVhV4FZsVvRXgFgMWJhZJ + FmwWjxayFtYW+hcdF0EXZReJF64X0hf3GBsYQBhlGIoYrxjVGPoZIBlFGWsZkRm3Gd0aBBoqGlEadxqe + GsUa7BsUGzsbYxuKG7Ib2hwCHCocUhx7HKMczBz1HR4dRx1wHZkdwx3sHhYeQB5qHpQevh7pHxMfPh9p + H5Qfvx/qIBUgQSBsIJggxCDwIRwhSCF1IaEhziH7IiciVSKCIq8i3SMKIzgjZiOUI8Ij8CQfJE0kfCSr + JNolCSU4JWgllyXHJfcmJyZXJocmtyboJxgnSSd6J6sn3CgNKD8ocSiiKNQpBik4KWspnSnQKgIqNSpo + KpsqzysCKzYraSudK9EsBSw5LG4soizXLQwtQS12Last4S4WLkwugi63Lu4vJC9aL5Evxy/+MDUwbDCk + MNsxEjFKMYIxujHyMioyYzKbMtQzDTNGM38zuDPxNCs0ZTSeNNg1EzVNNYc1wjX9Njc2cjauNuk3JDdg + N5w31zgUOFA4jDjIOQU5Qjl/Obw5+To2OnQ6sjrvOy07azuqO+g8JzxlPKQ84z0iPWE9oT3gPiA+YD6g + PuA/IT9hP6I/4kAjQGRApkDnQSlBakGsQe5CMEJyQrVC90M6Q31DwEQDREdEikTORRJFVUWaRd5GIkZn + RqtG8Ec1R3tHwEgFSEtIkUjXSR1JY0mpSfBKN0p9SsRLDEtTS5pL4kwqTHJMuk0CTUpNk03cTiVObk63 + TwBPSU+TT91QJ1BxULtRBlFQUZtR5lIxUnxSx1MTU19TqlP2VEJUj1TbVShVdVXCVg9WXFapVvdXRFeS + V+BYL1h9WMtZGllpWbhaB1pWWqZa9VtFW5Vb5Vw1XIZc1l0nXXhdyV4aXmxevV8PX2Ffs2AFYFdgqmD8 + YU9homH1YklinGLwY0Njl2PrZEBklGTpZT1lkmXnZj1mkmboZz1nk2fpaD9olmjsaUNpmmnxakhqn2r3 + a09rp2v/bFdsr20IbWBtuW4SbmtuxG8eb3hv0XArcIZw4HE6cZVx8HJLcqZzAXNdc7h0FHRwdMx1KHWF + deF2Pnabdvh3VnezeBF4bnjMeSp5iXnnekZ6pXsEe2N7wnwhfIF84X1BfaF+AX5ifsJ/I3+Ef+WAR4Co + gQqBa4HNgjCCkoL0g1eDuoQdhICE44VHhauGDoZyhteHO4efiASIaYjOiTOJmYn+imSKyoswi5aL/Ixj + jMqNMY2Yjf+OZo7OjzaPnpAGkG6Q1pE/kaiSEZJ6kuOTTZO2lCCUipT0lV+VyZY0lp+XCpd1l+CYTJi4 + mSSZkJn8mmia1ZtCm6+cHJyJnPedZJ3SnkCerp8dn4uf+qBpoNihR6G2oiailqMGo3aj5qRWpMelOKWp + phqmi6b9p26n4KhSqMSpN6mpqhyqj6sCq3Wr6axcrNCtRK24ri2uoa8Wr4uwALB1sOqxYLHWskuywrM4 + s660JbSctRO1irYBtnm28Ldot+C4WbjRuUq5wro7urW7LrunvCG8m70VvY++Cr6Evv+/er/1wHDA7MFn + wePCX8Lbw1jD1MRRxM7FS8XIxkbGw8dBx7/IPci8yTrJuco4yrfLNsu2zDXMtc01zbXONs62zzfPuNA5 + 0LrRPNG+0j/SwdNE08bUSdTL1U7V0dZV1tjXXNfg2GTY6Nls2fHadtr724DcBdyK3RDdlt4c3qLfKd+v + 4DbgveFE4cziU+Lb42Pj6+Rz5PzlhOYN5pbnH+ep6DLovOlG6dDqW+rl63Dr++yG7RHtnO4o7rTvQO/M + 8Fjw5fFy8f/yjPMZ86f0NPTC9VD13vZt9vv3ivgZ+Kj5OPnH+lf65/t3/Af8mP0p/br+S/7c/23////b + AEMAAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQICAgICAgICAgICAwMD + AwMDAwMDA//bAEMBAQEBAQEBAQEBAQICAQICAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMD + AwMDAwMDAwMDAwMDAwMDA//AABEIAAwAPAMBEQACEQEDEQH/xAAfAAABBQEBAQEBAQAAAAAAAAAAAQID + BAUGBwgJCgv/xAC1EAACAQMDAgQDBQUEBAAAAX0BAgMABBEFEiExQQYTUWEHInEUMoGRoQgjQrHBFVLR + 8CQzYnKCCQoWFxgZGiUmJygpKjQ1Njc4OTpDREVGR0hJSlNUVVZXWFlaY2RlZmdoaWpzdHV2d3h5eoOE + hYaHiImKkpOUlZaXmJmaoqOkpaanqKmqsrO0tba3uLm6wsPExcbHyMnK0tPU1dbX2Nna4eLj5OXm5+jp + 6vHy8/T19vf4+fr/xAAfAQADAQEBAQEBAQEBAAAAAAAAAQIDBAUGBwgJCgv/xAC1EQACAQIEBAMEBwUE + BAABAncAAQIDEQQFITEGEkFRB2FxEyIygQgUQpGhscEJIzNS8BVictEKFiQ04SXxFxgZGiYnKCkqNTY3 + ODk6Q0RFRkdISUpTVFVWV1hZWmNkZWZnaGlqc3R1dnd4eXqCg4SFhoeIiYqSk5SVlpeYmZqio6Slpqeo + qaqys7S1tre4ubrCw8TFxsfIycrS09TV1tfY2dri4+Tl5ufo6ery8/T19vf4+fr/2gAMAwEAAhEDEQA/ + AP1ZH7UPxEAA/wCEw8bnj/ob9f8A/k+v7U/1Nyj/AKF+G/8ABUP/AJE/llcSZlZf7dX/APBk/wDMX/hq + H4if9Df43/8ACv1//wCT6P8AU3Kf+hfhv/BUP/kQ/wBZcy/6Dq//AIMn/mH/AA1D8RP+hv8AG/8A4V+v + /wDyfR/qblP/AEL8N/4Kh/8AIh/rLmX/AEHV/wDwZP8AzD/hqH4if9Df43/8K/X/AP5Po/1Nyn/oX4b/ + AMFQ/wDkQ/1lzL/oOr/+DJ/5h/w1D8RP+hv8b/8AhX6//wDJ9H+puU/9C/Df+Cof/Ih/rLmX/QdX/wDB + k/8AMT/hqH4if9Df43/8K/X/AP5Po/1Nyn/oX4b/AMFQ/wDkQ/1kzL/oOr/+DJ/5n2R+xz+234zt/iRp + nw+8a6vqXiDwZ4gs9baObXr+bUr/AMPajpmkX2tQ3FlqV2Zb57K7XT2t3tXkaJWkV4whVxJ+beJfAuU4 + Th/FZ/hKEKOMw8qd+SKjGcZzjTs4q0bpyUlJK7s073VvuuBOLMxxGcYfJ8TWlVw1ZTtzu7hKMJTupPWz + UWnFu2qatrf9aP8AhfXgv+zv7U89/sfm+V5207N+M43fSv50P2w/kwr/AEFP42CgAoAKACgAoA9s/Z0/ + s7/hcng3+1vP/s7Ov/avs2PP2f8ACL63t2buP9ZjP+zmvz7xU/5IPPf+4H/qRRPsvD//AJK7KP8AuL/6 + ZqH7/wD/ABaT/hUfb7Ht/wBj7V9p8v8A9Cr+Oz+lz//Z + + + + 45 + + \ No newline at end of file diff --git a/ArinWarev1/Forms_Input/Frm_Desc.vb b/ArinWarev1/Forms_Input/Frm_Desc.vb new file mode 100644 index 0000000..ff3cec2 --- /dev/null +++ b/ArinWarev1/Forms_Input/Frm_Desc.vb @@ -0,0 +1,322 @@ +Public Class Frm_Desc +#Region "data Base 변경여부및 적용방법" + + '''변경된내용을적용한다. + Public Overrides Function AcceptChanged() As Boolean + bs.EndEdit() + Dim BaseDS As DataSet = CType(bs.DataSource, DataSet) + Dim BaseDT As DataTable = BaseDS.Tables(bs.DataMember) + BaseDT.AcceptChanges() + Return True + End Function + + '''변경된내용이있다면 취소한다. + Public Overrides Function RejectChanged() As Boolean + Dim BaseDS As DataSet = CType(bs.DataSource, DataSet) + Dim BaseDT As DataTable = BaseDS.Tables(bs.DataMember) + BaseDT.RejectChanges() + Return True + End Function + + '''데이터에변형이있었는가? + Public Overrides Function HasChanged() As Boolean + bs.EndEdit() + Dim BaseDS As DataSet = CType(bs.DataSource, DataSet) + Dim BaseDT As DataTable = BaseDS.Tables(bs.DataMember) + Dim ChangeDT As DataTable = BaseDT.GetChanges + If Not ChangeDT Is Nothing Then Return True + Return False + End Function + + '''기본데이터테이블을 반환합니다. + Public Function DT() As DataTable + Dim BaseDS As DataSet = CType(bs.DataSource, DataSet) + Return BaseDS.Tables(bs.DataMember) + End Function + + +#End Region + + + Public Sub New(_opentime) + + ' 이 호출은 디자이너에 필요합니다. + InitializeComponent() + OpenTime = _opentime + + ' InitializeComponent() 호출 뒤에 초기화 코드를 추가하십시오. + + End Sub + Private Sub MdiMain_FormClosed(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosedEventArgs) Handles Me.FormClosed + CEnergy.ARINCLASS.SaveLoad_FrmSetting(Me, Me.bs.Position, True) + End Sub + Private Sub ShowHistory() + Dim drv As DataRowView = Me.bs.Current + Dim f As New Frm_History("tbl_Desc", "") + If f.ShowDialog = DialogResult.OK Then + drv(f.colname) = f.val + Me.Validate() + Me.bs.EndEdit() + My.Application.DoEvents() + MsgBox("값이 변경되었습니다", MsgBoxStyle.Information, "확인") + End If + End Sub + Private Sub AddNewDataRow_Zone_Changed2(ByVal sender As Object, ByVal e As System.Data.DataColumnChangeEventArgs) + Dim oval As String = e.Row(e.Column.ColumnName).ToString + Dim nval As String = e.ProposedValue.ToString + If oval <> nval Then + Dim newdr As DS2.historyRow = DSHistory.history.NewhistoryRow + newdr.time = Now.ToString("yyyy-MM-dd HH:mm:ss") + newdr.tablename = "tbl_Desc" + newdr.ovalue = oval + newdr.nvalue = nval + newdr.column = e.Column.ColumnName + newdr.code = "" + DSHistory.history.AddhistoryRow(newdr) + DSHistory.history.AcceptChanges() + End If + End Sub + Private Sub MdiMain_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown + Select Case e.KeyCode + Case Keys.F12 + ShowHistory() + End Select + End Sub + + Private Sub MdiMain_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load + + + Me.Show() + My.Application.DoEvents() + ' Work_msg_timer("잠시만 기다려주세요") + + + Me.LinkLabel1.Visible = False + Me.LinkLabel2.Visible = False + Me.LinkLabel3.Visible = False + + 'MdiMain.Toggle_Menu_Color(MdiMain.E_MenuIdx.건물개요) + 'CEnergy.ARINCLASS.SaveLoad_FrmSetting(Me) + '//프로필 관련 + + '//공유데이터셋에 연결한다. + Me.bs.DataSource = DSET1 + If Me.bs.Count = 0 Then bs.AddNew() + bs.EndEdit() + + '//Zone + Binding_Zone() + + Try + Me.bs.Position = CEnergy.ARINCLASS.Read_LastPos_Frm(Me) + Catch ex As Exception + Me.bs.MoveFirst() + End Try + + If Not (Prj.UserId.ToLower() = "guest" OrElse Prj.UserAuthType = "ADMIN" OrElse Prj.UserAuthType = "BOTH" OrElse Prj.UserAuthType = "BOTH2" OrElse Prj.UserAuthType = "BOTH1") Then '//2011.03.08 추가 + 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 + Try + VersionInfo = L.Get_LastVersion("C") '//버젼을 가져오는데 eco 버젼만 가져오게 바꺼야겟죵 ^^ 구분자를 넣도록 합시닷! + If VersionInfo.Ver <> "0" AndAlso (CInt(VersionInfo.Ver) > CInt(MyVersion)) Then '//0은 없거나 관리안함의 뜻이므로 넘어간다. + Dim Lc As String = Me.cmb_location.SelectedValue + Read_CommonCode() + Me.cmb_location.SelectedValue = Lc + Me.bs.EndEdit() + End If + Catch ex As Exception + MsgBox("공용코드 에러" & ex.Message.ToString) + 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 + Try + + VersionInfo = L.Get_LastVersion("P") '//버젼을 가져오는데 eco 버젼만 가져오게 바꺼야겟죵 ^^ 구분자를 넣도록 합시닷! + If VersionInfo.Ver <> "0" AndAlso (CInt(VersionInfo.Ver) > CInt(MyVersion)) Then '//0은 없거나 관리안함의 뜻이므로 넘어간다. + Dim Lp As String = Me.cmb_location.SelectedValue + Read_ProfileData() + Me.cmb_location.SelectedValue = Lp + Me.bs.EndEdit() + End If + Catch ex As Exception + MsgBox("표준프로파일 에러" & ex.Message.ToString) + End Try + + '/기상데이터버젼확인 + Try + MyVersion = DSET1.tbl_Desc.Rows(0)("versionw").ToString + If MyVersion = "" Then MyVersion = "20100101" + Catch ex As Exception + MyVersion = "20100101" + End Try + Try + 'MyVersion = DSET1.tbl_Desc.Rows(0)("versionw").ToString + VersionInfo = L.Get_LastVersion("W") '//버젼을 가져오는데 eco 버젼만 가져오게 바꺼야겟죵 ^^ 구분자를 넣도록 합시닷! + If VersionInfo.Ver <> "0" AndAlso (CInt(VersionInfo.Ver) > CInt(MyVersion)) Then '//0은 없거나 관리안함의 뜻이므로 넘어간다. + Dim Lw As String = Me.cmb_location.SelectedValue + Read_WeatherData() + Me.cmb_location.SelectedValue = Lw + Me.bs.EndEdit() + End If + Catch ex As Exception + + End Try + Else + Me.LinkLabel1.Visible = True + Me.LinkLabel2.Visible = True + Me.LinkLabel3.Visible = True + + End If + + AddHandler DSET1.tbl_Desc.ColumnChanging, AddressOf AddNewDataRow_Zone_Changed2 + + AddDebug("▲ Form Load") + End Sub + + Private Sub Binding_Zone() + Dim bs_cmb_공조방식 As New BindingSource(DSET1, "tbl_weather") + bs_cmb_공조방식.Filter = "" + Me.cmb_location.DataSource = bs_cmb_공조방식 + cmb_location.DisplayMember = "건물위치" + cmb_location.ValueMember = "code" + Me.cmb_location.DataBindings.Add("selectedvalue", Me.bs, "buildarea") + + Dim bs_cmb_인증기관 As New BindingSource(DSET1, "tbl_common") + bs_cmb_인증기관.Filter = "gubun='1100'" + bs_cmb_인증기관.Sort = "code" + cmb_인증기관.DataSource = bs_cmb_인증기관 + cmb_인증기관.DisplayMember = "name" + cmb_인증기관.ValueMember = "name" + Me.cmb_인증기관.DataBindings.Add("selectedvalue", Me.bs, "인증기관") + + + Dim bs_cmb_건물용도 As New BindingSource(DSET1, "tbl_common") + bs_cmb_건물용도.Filter = "gubun='1201'" + bs_cmb_건물용도.Sort = "code" + cmb_주거용건축물.DataSource = bs_cmb_건물용도 + cmb_주거용건축물.DisplayMember = "name" + cmb_주거용건축물.ValueMember = "valn1" + Me.cmb_주거용건축물.DataBindings.Add("selectedvalue", Me.bs, "isjugo") + + 'Dim DT주거용 As New DataTable + 'DT주거용.Columns.Add("name") + 'DT주거용.Columns.Add("value") + 'DT주거용.Rows.Add(New String() {"주거용건축물(단독주택)", "1"}) + 'DT주거용.Rows.Add(New String() {"주거용건축물(공동주택)", "2"}) + 'DT주거용.Rows.Add(New String() {"비주거용(제1종근린생활시설)", "11"}) + 'DT주거용.Rows.Add(New String() {"비주거용(제2종근린생활시설)", "12"}) + 'DT주거용.Rows.Add(New String() {"비주거용(문화및집회시설)", "13"}) + 'DT주거용.Rows.Add(New String() {"비주거용(종교시설)", "14"}) + 'DT주거용.Rows.Add(New String() {"비주거용(판매시설)", "15"}) + 'DT주거용.Rows.Add(New String() {"비주거용(의료시설)", "16"}) + 'DT주거용.Rows.Add(New String() {"비주거용(교육연구시설)", "17"}) + 'DT주거용.Rows.Add(New String() {"비주거용(노유자시설)", "18"}) + 'DT주거용.Rows.Add(New String() {"비주거용(수련시설)", "19"}) + 'DT주거용.Rows.Add(New String() {"비주거용(운동시설)", "20"}) + 'DT주거용.Rows.Add(New String() {"비주거용(업무시설)", "21"}) + 'DT주거용.Rows.Add(New String() {"비주거용(숙박시설)", "22"}) + 'DT주거용.Rows.Add(New String() {"비주거용(위락시설)", "23"}) + 'DT주거용.Rows.Add(New String() {"비주거용(고장물품제조가공이용시설)", "24"}) + 'DT주거용.Rows.Add(New String() {"비주거용(창고시설)", "25"}) + 'DT주거용.Rows.Add(New String() {"비주거용(위험물처리장)", "26"}) + 'DT주거용.Rows.Add(New String() {"비주거용(자동차관리시설)", "27"}) + 'DT주거용.Rows.Add(New String() {"비주거용(동물및식물관련시설)", "28"}) + 'DT주거용.Rows.Add(New String() {"비주거용(분뇨및쓰레기처리시설)", "29"}) + 'DT주거용.Rows.Add(New String() {"비주거용(교정및군사시설)", "30"}) + 'DT주거용.Rows.Add(New String() {"비주거용(방송통신시설)", "31"}) + 'DT주거용.Rows.Add(New String() {"비주거용(발전시설발전소)", "32"}) + 'DT주거용.Rows.Add(New String() {"비주거용(묘지관리시설)", "33"}) + 'DT주거용.Rows.Add(New String() {"비주거용(관광휴계시설)", "34"}) + 'DT주거용.Rows.Add(New String() {"비주거용(장례식장)", "35"}) + + 'Me.cmb_주거용건축물.DataSource = DT주거용 + 'Me.cmb_주거용건축물.DisplayMember = "name" + 'Me.cmb_주거용건축물.ValueMember = "value" + 'Me.cmb_주거용건축물.DataBindings.Add("selectedvalue", Me.bs, "isjugo") + + 'AddHandler cmb_location.KeyDown, AddressOf Cmb_DeleteVal + End Sub + + + Private Sub LinkLabel1_LinkClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs) Handles LinkLabel1.LinkClicked + Dim L As String = Me.cmb_location.SelectedValue + If MsgBox("공용코드값을 서버로부터 가져오시겠습니까?", MsgBoxStyle.Information Or MsgBoxStyle.OkCancel, "확인") = MsgBoxResult.Ok Then Read_CommonCode() + Me.cmb_location.SelectedValue = L + Me.bs.EndEdit() + End Sub + + Private Sub LinkLabel2_LinkClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs) Handles LinkLabel2.LinkClicked + Dim L As String = Me.cmb_location.SelectedValue + If MsgBox("기상데이터값을 서버로부터 가져오시겠습니까?", MsgBoxStyle.Information Or MsgBoxStyle.OkCancel, "확인") = MsgBoxResult.Ok Then Read_WeatherData() + Me.cmb_location.SelectedValue = L + Me.bs.EndEdit() + End Sub + Private Sub LinkLabel3_LinkClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs) Handles LinkLabel3.LinkClicked '//2010.12.06 추가 + Dim L As String = Me.cmb_location.SelectedValue + If MsgBox("표준프로파일값을 서버로부터 가져오시겠습니까?", MsgBoxStyle.Information Or MsgBoxStyle.OkCancel, "확인") = MsgBoxResult.Ok Then Read_ProfileData() + Me.cmb_location.SelectedValue = L + Me.bs.EndEdit() + End Sub + + Private Sub bs_CurrentChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bs.CurrentChanged + Me.bs.EndEdit() + Dim drv As DataRowView = Me.bs.Current + If drv Is Nothing Then Return + If drv("공공").ToString = "" Then drv("공공") = "1" + If drv("공공").ToString = "1" Then + Me.CheckBox1.Checked = True + Else + Me.CheckBox1.Checked = False + End If + End Sub + + Private Sub DateTimePicker1_ValueChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DateTimePicker1.ValueChanged, DateTimePicker2.ValueChanged + '//준공이후 경과년수계산 + Dim datetime1 As String = Format(Me.DateTimePicker1.Value, "yyyy") + Dim datetime2 As String = Format(Me.DateTimePicker2.Value, "yyyy") + Dim datetime3 As String = Format(Me.DateTimePicker1.Value, "MM") + Dim datetime4 As String = Format(Me.DateTimePicker2.Value, "MM") + Dim priod As Single + Try + If TOSG(datetime3) - TOSG(datetime4) >= 0 Then + priod = Math.Round(TOSG(datetime1) - TOSG(datetime2) + (TOSG(datetime3) - TOSG(datetime4)) / 12, 1) + Else + priod = Math.Round(TOSG(datetime1) - TOSG(datetime2) - (TOSG(datetime4) - TOSG(datetime3)) / 12, 1) + End If + + Catch ex As Exception + priod = 0 + End Try + If priod < 0 Then priod = 0 + MyTb6.Text = CStr(priod) + Me.bs.EndEdit() + End Sub + + Private Sub cmb_location_SelectedIndexChanged(sender As System.Object, e As System.EventArgs) Handles cmb_location.SelectedIndexChanged + + End Sub + + Private Sub CheckBox1_Click(sender As Object, e As System.EventArgs) Handles CheckBox1.Click + Dim drv As DataRowView = Me.bs.Current + If drv Is Nothing Then Return + drv("공공") = IIf(Me.CheckBox1.Checked, "1", "0") + End Sub + + Private Sub CheckBox1_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles CheckBox1.CheckedChanged + + End Sub +End Class \ No newline at end of file diff --git a/ArinWarev1/Forms_Input/Frm_NaengBang.Designer.vb b/ArinWarev1/Forms_Input/Frm_NaengBang.Designer.vb new file mode 100644 index 0000000..013e7a0 --- /dev/null +++ b/ArinWarev1/Forms_Input/Frm_NaengBang.Designer.vb @@ -0,0 +1,1004 @@ + _ +Partial Class Frm_NaengBang + Inherits CForm + + 'Form은 Dispose를 재정의하여 구성 요소 목록을 정리합니다. + _ + Protected Overrides Sub Dispose(ByVal disposing As Boolean) + Try + If disposing AndAlso components IsNot Nothing Then + components.Dispose() + End If + Finally + MyBase.Dispose(disposing) + End Try + End Sub + + 'Windows Form 디자이너에 필요합니다. + Private components As System.ComponentModel.IContainer + + '참고: 다음 프로시저는 Windows Form 디자이너에 필요합니다. + '수정하려면 Windows Form 디자이너를 사용하십시오. + '코드 편집기를 사용하여 수정하지 마십시오. + _ + Private Sub InitializeComponent() + Me.components = New System.ComponentModel.Container() + Dim Label215 As System.Windows.Forms.Label + Dim Label216 As System.Windows.Forms.Label + Dim Label1 As System.Windows.Forms.Label + Dim Label2 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 Label8 As System.Windows.Forms.Label + Dim 냉동기종류Label 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 resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(Frm_NaengBang)) + Me.GroupBox18 = New System.Windows.Forms.GroupBox() + Me.Label17 = New System.Windows.Forms.Label() + Me.cmb_신재생 = New Eco2Ar.MyCmb() + Me.신재생연결여부ComboBox1 = New Eco2Ar.MyCmb() + Me.tb_zone_cnt = New System.Windows.Forms.TextBox() + Me.Label47 = New System.Windows.Forms.Label() + Me.PictureBox2 = New System.Windows.Forms.PictureBox() + Me.GroupBox11 = New System.Windows.Forms.GroupBox() + Me.Label9 = New System.Windows.Forms.Label() + Me.열성능비NTb = New Eco2Ar.MyTb() + Me.bs = New System.Windows.Forms.BindingSource(Me.components) + Me.DS = New Eco2Ar.DS() + Me.냉동기용량NTb = New Eco2Ar.MyTb() + Me.냉동기방식ComboBox = New Eco2Ar.MyCmb() + Me.PictureBox1 = New System.Windows.Forms.PictureBox() + Me.Label214 = New System.Windows.Forms.Label() + Me.GroupBox19 = New System.Windows.Forms.GroupBox() + Me.cmb_열생산연결방식 = New Eco2Ar.MyCmb() + Me.cmb_사용연료 = New Eco2Ar.MyCmb() + Me.온수열생산기기ComboBox = New Eco2Ar.MyCmb() + Me.Label213 = New System.Windows.Forms.Label() + Me.Label212 = New System.Windows.Forms.Label() + Me.Label210 = New System.Windows.Forms.Label() + Me.압축기제어방식ComboBox = New Eco2Ar.MyCmb() + Me.냉동기압축방식ComboBox = New Eco2Ar.MyCmb() + Me.냉동기종류ComboBox = New Eco2Ar.MyCmb() + Me.냉동기설비시스템ComboBox = New Eco2Ar.MyCmb() + Me.제어방식ComboBox = New Eco2Ar.MyCmb() + Me.PictureBox3 = New System.Windows.Forms.PictureBox() + Me.재냉각기GroupBox = New System.Windows.Forms.GroupBox() + Me.증발식건식냉각기ComboBox = New Eco2Ar.MyCmb() + Me.증발식냉각기ComboBox = New Eco2Ar.MyCmb() + Me.보조방음기유무ComboBox = New Eco2Ar.MyCmb() + Me.냉각수토출온도NTb = New Eco2Ar.MyTb() + Me.Label18 = New System.Windows.Forms.Label() + Me.PictureBox5 = New System.Windows.Forms.PictureBox() + Me.SplitContainer1 = New System.Windows.Forms.SplitContainer() + Me.dv = New CEnergy.arindv() + 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() + Me.bt_Del = New System.Windows.Forms.ToolStripButton() + Me.bt_cancel = New System.Windows.Forms.ToolStripButton() + Me.ToolStripSeparator1 = New System.Windows.Forms.ToolStripSeparator() + Me.lbl_pos = New System.Windows.Forms.ToolStripLabel() + Me.ToolStripSeparator2 = New System.Windows.Forms.ToolStripSeparator() + Me.lb_code = New System.Windows.Forms.ToolStripLabel() + Me.chk_헤더적용 = New System.Windows.Forms.CheckBox() + Me.chk_개별기기적용 = New System.Windows.Forms.CheckBox() + Me.Label16 = New System.Windows.Forms.Label() + Me.PictureBox4 = New System.Windows.Forms.PictureBox() + Me.DataGridViewTextBoxColumn1 = New System.Windows.Forms.DataGridViewTextBoxColumn() + Label215 = New System.Windows.Forms.Label() + Label216 = New System.Windows.Forms.Label() + Label1 = New System.Windows.Forms.Label() + Label2 = 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() + Label8 = New System.Windows.Forms.Label() + 냉동기종류Label = 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() + Me.GroupBox18.SuspendLayout() + CType(Me.PictureBox2, System.ComponentModel.ISupportInitialize).BeginInit() + Me.GroupBox11.SuspendLayout() + CType(Me.bs, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.DS, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit() + Me.GroupBox19.SuspendLayout() + CType(Me.PictureBox3, System.ComponentModel.ISupportInitialize).BeginInit() + Me.재냉각기GroupBox.SuspendLayout() + CType(Me.PictureBox5, System.ComponentModel.ISupportInitialize).BeginInit() + 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.bn, System.ComponentModel.ISupportInitialize).BeginInit() + Me.bn.SuspendLayout() + CType(Me.PictureBox4, System.ComponentModel.ISupportInitialize).BeginInit() + Me.SuspendLayout() + ' + 'Label215 + ' + Label215.AutoSize = True + Label215.BackColor = System.Drawing.Color.FromArgb(CType(CType(219, Byte), Integer), CType(CType(221, Byte), Integer), CType(CType(223, Byte), Integer)) + Label215.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label215.Location = New System.Drawing.Point(6, 38) + Label215.Name = "Label215" + Label215.Size = New System.Drawing.Size(162, 12) + Label215.TabIndex = 0 + Label215.Text = "-신재생 시스템 연결 여부:" + ' + 'Label216 + ' + Label216.AutoSize = True + Label216.BackColor = System.Drawing.Color.FromArgb(CType(CType(219, Byte), Integer), CType(CType(221, Byte), Integer), CType(CType(223, Byte), Integer)) + Label216.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label216.Location = New System.Drawing.Point(6, 64) + Label216.Name = "Label216" + Label216.Size = New System.Drawing.Size(100, 12) + Label216.TabIndex = 2 + Label216.Text = "-연결된 시스템:" + ' + 'Label1 + ' + 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(8, 32) + Label1.Name = "Label1" + Label1.Size = New System.Drawing.Size(80, 12) + Label1.TabIndex = 0 + Label1.Text = "냉동기 방식:" + ' + 'Label2 + ' + Label2.AutoSize = True + Label2.BackColor = System.Drawing.Color.FromArgb(CType(CType(219, Byte), Integer), CType(CType(221, Byte), Integer), CType(CType(223, Byte), Integer)) + Label2.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label2.Location = New System.Drawing.Point(8, 57) + Label2.Name = "Label2" + Label2.Size = New System.Drawing.Size(130, 12) + Label2.TabIndex = 2 + Label2.Text = "냉동기 총 용량[kW]:" + ' + 'Label3 + ' + Label3.AutoSize = True + Label3.BackColor = System.Drawing.Color.FromArgb(CType(CType(219, Byte), Integer), CType(CType(221, Byte), Integer), CType(CType(223, Byte), Integer)) + Label3.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label3.Location = New System.Drawing.Point(8, 83) + Label3.Name = "Label3" + Label3.Size = New System.Drawing.Size(217, 12) + Label3.TabIndex = 4 + Label3.Text = "정격냉열성능지수; 열성능비(COP):" + ' + 'Label4 + ' + Label4.AutoSize = True + Label4.BackColor = System.Drawing.Color.FromArgb(CType(CType(243, Byte), Integer), CType(CType(244, Byte), Integer), CType(CType(246, Byte), Integer)) + Label4.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label4.Location = New System.Drawing.Point(7, 298) + Label4.Name = "Label4" + Label4.Size = New System.Drawing.Size(87, 12) + Label4.TabIndex = 159 + Label4.Text = "2. 열생산기기" + ' + 'Label5 + ' + 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, 110) + Label5.Name = "Label5" + Label5.Size = New System.Drawing.Size(191, 12) + Label5.TabIndex = 150 + Label5.Text = "왕복동/스크롤압축기 제어방식:" + ' + 'Label6 + ' + 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, 88) + Label6.Name = "Label6" + Label6.Size = New System.Drawing.Size(106, 12) + Label6.TabIndex = 148 + Label6.Text = "냉동기 압축방식:" + ' + 'Label7 + ' + 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, 172) + Label7.Name = "Label7" + Label7.Size = New System.Drawing.Size(119, 12) + Label7.TabIndex = 152 + Label7.Text = "냉동기 설비시스템:" + ' + 'Label8 + ' + Label8.AutoSize = True + Label8.BackColor = System.Drawing.Color.FromArgb(CType(CType(243, Byte), Integer), CType(CType(244, Byte), Integer), CType(CType(246, Byte), Integer)) + Label8.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label8.Location = New System.Drawing.Point(7, 195) + Label8.Name = "Label8" + Label8.Size = New System.Drawing.Size(62, 12) + Label8.TabIndex = 154 + Label8.Text = "제어방식:" + ' + '냉동기종류Label + ' + 냉동기종류Label.AutoSize = True + 냉동기종류Label.BackColor = System.Drawing.Color.FromArgb(CType(CType(243, Byte), Integer), CType(CType(244, Byte), Integer), CType(CType(246, Byte), Integer)) + 냉동기종류Label.ForeColor = System.Drawing.SystemColors.ControlDarkDark + 냉동기종류Label.Location = New System.Drawing.Point(6, 40) + 냉동기종류Label.Name = "냉동기종류Label" + 냉동기종류Label.Size = New System.Drawing.Size(137, 12) + 냉동기종류Label.TabIndex = 146 + 냉동기종류Label.Text = "＊압축식 냉동기 종류:" + ' + 'Label10 + ' + Label10.AutoSize = True + Label10.BackColor = System.Drawing.Color.FromArgb(CType(CType(243, Byte), Integer), CType(CType(244, Byte), Integer), CType(CType(246, Byte), Integer)) + Label10.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label10.Location = New System.Drawing.Point(6, 39) + Label10.Name = "Label10" + Label10.Size = New System.Drawing.Size(150, 12) + Label10.TabIndex = 22 + Label10.Text = "증발식 또는 건식냉각기:" + ' + 'Label11 + ' + Label11.AutoSize = True + Label11.BackColor = System.Drawing.Color.FromArgb(CType(CType(243, Byte), Integer), CType(CType(244, Byte), Integer), CType(CType(246, Byte), Integer)) + Label11.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label11.Location = New System.Drawing.Point(6, 112) + Label11.Name = "Label11" + Label11.Size = New System.Drawing.Size(135, 12) + Label11.TabIndex = 28 + Label11.Text = "냉각탑 출구 온도[C]:" + ' + 'Label12 + ' + Label12.AutoSize = True + Label12.BackColor = System.Drawing.Color.FromArgb(CType(CType(243, Byte), Integer), CType(CType(244, Byte), Integer), CType(CType(246, Byte), Integer)) + Label12.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label12.Location = New System.Drawing.Point(6, 87) + Label12.Name = "Label12" + Label12.Size = New System.Drawing.Size(176, 12) + Label12.TabIndex = 26 + Label12.Text = "재냉각기의 보조방음기 유무:" + ' + 'Label13 + ' + Label13.AutoSize = True + Label13.BackColor = System.Drawing.Color.FromArgb(CType(CType(243, Byte), Integer), CType(CType(244, Byte), Integer), CType(CType(246, Byte), Integer)) + Label13.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label13.Location = New System.Drawing.Point(6, 63) + Label13.Name = "Label13" + Label13.Size = New System.Drawing.Size(209, 12) + Label13.TabIndex = 24 + Label13.Text = "증발식냉각기(폐쇄형,개방형순환):" + ' + 'Label14 + ' + Label14.AutoSize = True + Label14.BackColor = System.Drawing.Color.FromArgb(CType(CType(243, Byte), Integer), CType(CType(244, Byte), Integer), CType(CType(246, Byte), Integer)) + Label14.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label14.Location = New System.Drawing.Point(7, 272) + Label14.Name = "Label14" + Label14.Size = New System.Drawing.Size(74, 12) + Label14.TabIndex = 163 + Label14.Text = "1. 사용연료" + ' + 'Label15 + ' + Label15.AutoSize = True + Label15.BackColor = System.Drawing.Color.FromArgb(CType(CType(243, Byte), Integer), CType(CType(244, Byte), Integer), CType(CType(246, Byte), Integer)) + Label15.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label15.Location = New System.Drawing.Point(7, 246) + Label15.Name = "Label15" + Label15.Size = New System.Drawing.Size(118, 12) + Label15.TabIndex = 165 + Label15.Text = "0. 열생산 연결방식" + ' + 'GroupBox18 + ' + Me.GroupBox18.BackColor = System.Drawing.Color.White + Me.GroupBox18.Controls.Add(Me.Label17) + Me.GroupBox18.Controls.Add(Me.cmb_신재생) + Me.GroupBox18.Controls.Add(Me.신재생연결여부ComboBox1) + Me.GroupBox18.Controls.Add(Label216) + Me.GroupBox18.Controls.Add(Label215) + Me.GroupBox18.Controls.Add(Me.tb_zone_cnt) + Me.GroupBox18.Controls.Add(Me.Label47) + Me.GroupBox18.Controls.Add(Me.PictureBox2) + Me.GroupBox18.Location = New System.Drawing.Point(319, 50) + Me.GroupBox18.Name = "GroupBox18" + Me.GroupBox18.Size = New System.Drawing.Size(298, 120) + Me.GroupBox18.TabIndex = 1 + Me.GroupBox18.TabStop = False + ' + 'Label17 + ' + Me.Label17.AutoSize = True + Me.Label17.BackColor = System.Drawing.Color.FromArgb(CType(CType(219, Byte), Integer), CType(CType(221, Byte), Integer), CType(CType(223, Byte), Integer)) + Me.Label17.Location = New System.Drawing.Point(2, 13) + Me.Label17.Name = "Label17" + Me.Label17.Size = New System.Drawing.Size(221, 12) + Me.Label17.TabIndex = 170 + Me.Label17.Text = "[신재생 및 열병합 시스템 연결여부]" + ' + 'cmb_신재생 + ' + Me.cmb_신재생.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList + Me.cmb_신재생.FormattingEnabled = True + Me.cmb_신재생.Location = New System.Drawing.Point(174, 58) + Me.cmb_신재생.Name = "cmb_신재생" + Me.cmb_신재생.NectControl = Nothing + Me.cmb_신재생.Size = New System.Drawing.Size(115, 20) + Me.cmb_신재생.TabIndex = 3 + ' + '신재생연결여부ComboBox1 + ' + Me.신재생연결여부ComboBox1.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList + Me.신재생연결여부ComboBox1.FormattingEnabled = True + Me.신재생연결여부ComboBox1.Location = New System.Drawing.Point(174, 30) + Me.신재생연결여부ComboBox1.Name = "신재생연결여부ComboBox1" + Me.신재생연결여부ComboBox1.NectControl = Nothing + Me.신재생연결여부ComboBox1.Size = New System.Drawing.Size(115, 20) + Me.신재생연결여부ComboBox1.TabIndex = 1 + ' + 'tb_zone_cnt + ' + 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(233, 83) + Me.tb_zone_cnt.Name = "tb_zone_cnt" + Me.tb_zone_cnt.Size = New System.Drawing.Size(56, 21) + Me.tb_zone_cnt.TabIndex = 1 + Me.tb_zone_cnt.Text = "0" + Me.tb_zone_cnt.TextAlign = System.Windows.Forms.HorizontalAlignment.Center + ' + 'Label47 + ' + Me.Label47.AutoSize = True + Me.Label47.BackColor = System.Drawing.Color.FromArgb(CType(CType(219, Byte), Integer), CType(CType(221, Byte), Integer), CType(CType(223, Byte), Integer)) + Me.Label47.ForeColor = System.Drawing.Color.DarkCyan + Me.Label47.Location = New System.Drawing.Point(6, 88) + Me.Label47.Name = "Label47" + Me.Label47.Size = New System.Drawing.Size(224, 12) + Me.Label47.TabIndex = 0 + Me.Label47.Text = "-냉방생산기기로 적용된 입력존 수 : " + Me.Label47.TextAlign = System.Drawing.ContentAlignment.MiddleRight + ' + 'PictureBox2 + ' + Me.PictureBox2.BackColor = System.Drawing.Color.FromArgb(CType(CType(219, Byte), Integer), CType(CType(221, Byte), Integer), CType(CType(223, Byte), Integer)) + Me.PictureBox2.Location = New System.Drawing.Point(1, 9) + Me.PictureBox2.Name = "PictureBox2" + Me.PictureBox2.Size = New System.Drawing.Size(294, 108) + Me.PictureBox2.TabIndex = 169 + Me.PictureBox2.TabStop = False + ' + 'GroupBox11 + ' + Me.GroupBox11.BackColor = System.Drawing.Color.White + Me.GroupBox11.Controls.Add(Me.Label9) + Me.GroupBox11.Controls.Add(Label1) + Me.GroupBox11.Controls.Add(Me.열성능비NTb) + Me.GroupBox11.Controls.Add(Label2) + Me.GroupBox11.Controls.Add(Me.냉동기용량NTb) + Me.GroupBox11.Controls.Add(Label3) + Me.GroupBox11.Controls.Add(Me.냉동기방식ComboBox) + Me.GroupBox11.Controls.Add(Me.PictureBox1) + Me.GroupBox11.Location = New System.Drawing.Point(6, 50) + Me.GroupBox11.Name = "GroupBox11" + Me.GroupBox11.Size = New System.Drawing.Size(309, 120) + Me.GroupBox11.TabIndex = 0 + Me.GroupBox11.TabStop = False + ' + 'Label9 + ' + Me.Label9.AutoSize = True + Me.Label9.BackColor = System.Drawing.Color.FromArgb(CType(CType(219, Byte), Integer), CType(CType(221, Byte), Integer), CType(CType(223, Byte), Integer)) + Me.Label9.Location = New System.Drawing.Point(6, 13) + Me.Label9.Name = "Label9" + Me.Label9.Size = New System.Drawing.Size(84, 12) + Me.Label9.TabIndex = 170 + Me.Label9.Text = "[일반데이터]" + ' + '열성능비NTb + ' + Me.열성능비NTb.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bs, "열성능비", True)) + Me.열성능비NTb.Location = New System.Drawing.Point(225, 78) + Me.열성능비NTb.Name = "열성능비NTb" + Me.열성능비NTb.NectControl = Nothing + Me.열성능비NTb.Size = New System.Drawing.Size(76, 21) + Me.열성능비NTb.TabIndex = 5 + Me.열성능비NTb.TextAlign = System.Windows.Forms.HorizontalAlignment.Right + Me.열성능비NTb.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + ' + 'bs + ' + Me.bs.DataMember = "tbl_nangbangkiki" + Me.bs.DataSource = Me.DS + Me.bs.Filter = "code <> '0'" + ' + 'DS + ' + Me.DS.DataSetName = "DS" + Me.DS.SchemaSerializationMode = System.Data.SchemaSerializationMode.IncludeSchema + ' + '냉동기용량NTb + ' + Me.냉동기용량NTb.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bs, "냉동기용량", True)) + Me.냉동기용량NTb.Location = New System.Drawing.Point(225, 53) + Me.냉동기용량NTb.Name = "냉동기용량NTb" + Me.냉동기용량NTb.NectControl = Nothing + Me.냉동기용량NTb.Size = New System.Drawing.Size(76, 21) + Me.냉동기용량NTb.TabIndex = 3 + Me.냉동기용량NTb.TextAlign = System.Windows.Forms.HorizontalAlignment.Right + Me.냉동기용량NTb.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + ' + '냉동기방식ComboBox + ' + Me.냉동기방식ComboBox.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList + Me.냉동기방식ComboBox.FormattingEnabled = True + Me.냉동기방식ComboBox.Location = New System.Drawing.Point(225, 29) + Me.냉동기방식ComboBox.Name = "냉동기방식ComboBox" + Me.냉동기방식ComboBox.NectControl = Nothing + Me.냉동기방식ComboBox.Size = New System.Drawing.Size(76, 20) + Me.냉동기방식ComboBox.TabIndex = 1 + ' + 'PictureBox1 + ' + 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(2, 9) + Me.PictureBox1.Name = "PictureBox1" + Me.PictureBox1.Size = New System.Drawing.Size(304, 108) + Me.PictureBox1.TabIndex = 169 + Me.PictureBox1.TabStop = False + ' + 'Label214 + ' + Me.Label214.AutoSize = True + Me.Label214.BackColor = System.Drawing.Color.FromArgb(CType(CType(243, Byte), Integer), CType(CType(244, Byte), Integer), CType(CType(246, Byte), Integer)) + Me.Label214.ForeColor = System.Drawing.Color.Black + Me.Label214.Location = New System.Drawing.Point(11, 222) + Me.Label214.Name = "Label214" + Me.Label214.Size = New System.Drawing.Size(102, 12) + Me.Label214.TabIndex = 161 + Me.Label214.Text = "[흡수식 냉동기]" + ' + 'GroupBox19 + ' + Me.GroupBox19.BackColor = System.Drawing.Color.White + Me.GroupBox19.Controls.Add(Label15) + Me.GroupBox19.Controls.Add(Me.cmb_열생산연결방식) + Me.GroupBox19.Controls.Add(Label14) + Me.GroupBox19.Controls.Add(Me.cmb_사용연료) + Me.GroupBox19.Controls.Add(Label4) + Me.GroupBox19.Controls.Add(Me.Label214) + Me.GroupBox19.Controls.Add(Me.온수열생산기기ComboBox) + Me.GroupBox19.Controls.Add(Me.Label213) + Me.GroupBox19.Controls.Add(Label5) + Me.GroupBox19.Controls.Add(Label6) + Me.GroupBox19.Controls.Add(Me.Label212) + Me.GroupBox19.Controls.Add(Label7) + Me.GroupBox19.Controls.Add(Me.Label210) + Me.GroupBox19.Controls.Add(Me.압축기제어방식ComboBox) + Me.GroupBox19.Controls.Add(Label8) + Me.GroupBox19.Controls.Add(냉동기종류Label) + Me.GroupBox19.Controls.Add(Me.냉동기압축방식ComboBox) + Me.GroupBox19.Controls.Add(Me.냉동기종류ComboBox) + Me.GroupBox19.Controls.Add(Me.냉동기설비시스템ComboBox) + Me.GroupBox19.Controls.Add(Me.제어방식ComboBox) + Me.GroupBox19.Controls.Add(Me.PictureBox3) + Me.GroupBox19.Location = New System.Drawing.Point(6, 173) + Me.GroupBox19.Name = "GroupBox19" + Me.GroupBox19.Size = New System.Drawing.Size(309, 337) + Me.GroupBox19.TabIndex = 0 + Me.GroupBox19.TabStop = False + ' + 'cmb_열생산연결방식 + ' + 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(202, 242) + Me.cmb_열생산연결방식.Name = "cmb_열생산연결방식" + Me.cmb_열생산연결방식.NectControl = Nothing + Me.cmb_열생산연결방식.Size = New System.Drawing.Size(97, 20) + Me.cmb_열생산연결방식.TabIndex = 164 + ' + 'cmb_사용연료 + ' + 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(202, 268) + Me.cmb_사용연료.Name = "cmb_사용연료" + Me.cmb_사용연료.NectControl = Nothing + Me.cmb_사용연료.Size = New System.Drawing.Size(97, 20) + Me.cmb_사용연료.TabIndex = 162 + ' + '온수열생산기기ComboBox + ' + Me.온수열생산기기ComboBox.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList + Me.온수열생산기기ComboBox.FormattingEnabled = True + Me.온수열생산기기ComboBox.Location = New System.Drawing.Point(202, 294) + Me.온수열생산기기ComboBox.Name = "온수열생산기기ComboBox" + Me.온수열생산기기ComboBox.NectControl = Nothing + Me.온수열생산기기ComboBox.Size = New System.Drawing.Size(97, 20) + Me.온수열생산기기ComboBox.TabIndex = 0 + ' + 'Label213 + ' + Me.Label213.AutoSize = True + Me.Label213.BackColor = System.Drawing.Color.FromArgb(CType(CType(243, Byte), Integer), CType(CType(244, Byte), Integer), CType(CType(246, Byte), Integer)) + Me.Label213.ForeColor = System.Drawing.Color.Black + Me.Label213.Location = New System.Drawing.Point(11, 20) + Me.Label213.Name = "Label213" + Me.Label213.Size = New System.Drawing.Size(102, 12) + Me.Label213.TabIndex = 158 + Me.Label213.Text = "[압축식 냉동기]" + ' + 'Label212 + ' + Me.Label212.AutoSize = True + Me.Label212.BackColor = System.Drawing.Color.FromArgb(CType(CType(243, Byte), Integer), CType(CType(244, Byte), Integer), CType(CType(246, Byte), Integer)) + Me.Label212.ForeColor = System.Drawing.Color.DarkCyan + Me.Label212.Location = New System.Drawing.Point(7, 147) + Me.Label212.Name = "Label212" + Me.Label212.Size = New System.Drawing.Size(206, 12) + Me.Label212.TabIndex = 156 + Me.Label212.Text = "실내공조시스템(=공기냉각에어콘)" + Me.Label212.TextAlign = System.Drawing.ContentAlignment.MiddleRight + ' + 'Label210 + ' + Me.Label210.AutoSize = True + Me.Label210.BackColor = System.Drawing.Color.FromArgb(CType(CType(243, Byte), Integer), CType(CType(244, Byte), Integer), CType(CType(246, Byte), Integer)) + Me.Label210.ForeColor = System.Drawing.Color.DarkCyan + Me.Label210.Location = New System.Drawing.Point(7, 66) + Me.Label210.Name = "Label210" + Me.Label210.Size = New System.Drawing.Size(220, 12) + Me.Label210.TabIndex = 157 + Me.Label210.Text = "수냉각 또는 공기냉각 압축식 냉동기" + Me.Label210.TextAlign = System.Drawing.ContentAlignment.MiddleRight + ' + '압축기제어방식ComboBox + ' + Me.압축기제어방식ComboBox.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList + Me.압축기제어방식ComboBox.FormattingEnabled = True + Me.압축기제어방식ComboBox.Location = New System.Drawing.Point(202, 105) + Me.압축기제어방식ComboBox.Name = "압축기제어방식ComboBox" + Me.압축기제어방식ComboBox.NectControl = Nothing + Me.압축기제어방식ComboBox.Size = New System.Drawing.Size(97, 20) + Me.압축기제어방식ComboBox.TabIndex = 2 + ' + '냉동기압축방식ComboBox + ' + Me.냉동기압축방식ComboBox.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList + Me.냉동기압축방식ComboBox.FormattingEnabled = True + Me.냉동기압축방식ComboBox.Location = New System.Drawing.Point(202, 81) + Me.냉동기압축방식ComboBox.Name = "냉동기압축방식ComboBox" + Me.냉동기압축방식ComboBox.NectControl = Nothing + Me.냉동기압축방식ComboBox.Size = New System.Drawing.Size(97, 20) + Me.냉동기압축방식ComboBox.TabIndex = 1 + ' + '냉동기종류ComboBox + ' + Me.냉동기종류ComboBox.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList + Me.냉동기종류ComboBox.FormattingEnabled = True + Me.냉동기종류ComboBox.Location = New System.Drawing.Point(202, 34) + Me.냉동기종류ComboBox.Name = "냉동기종류ComboBox" + Me.냉동기종류ComboBox.NectControl = Nothing + Me.냉동기종류ComboBox.Size = New System.Drawing.Size(97, 20) + Me.냉동기종류ComboBox.TabIndex = 0 + ' + '냉동기설비시스템ComboBox + ' + Me.냉동기설비시스템ComboBox.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList + Me.냉동기설비시스템ComboBox.FormattingEnabled = True + Me.냉동기설비시스템ComboBox.Location = New System.Drawing.Point(202, 168) + Me.냉동기설비시스템ComboBox.Name = "냉동기설비시스템ComboBox" + Me.냉동기설비시스템ComboBox.NectControl = Nothing + Me.냉동기설비시스템ComboBox.Size = New System.Drawing.Size(97, 20) + Me.냉동기설비시스템ComboBox.TabIndex = 3 + ' + '제어방식ComboBox + ' + Me.제어방식ComboBox.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList + Me.제어방식ComboBox.FormattingEnabled = True + Me.제어방식ComboBox.Location = New System.Drawing.Point(202, 191) + Me.제어방식ComboBox.Name = "제어방식ComboBox" + Me.제어방식ComboBox.NectControl = Nothing + Me.제어방식ComboBox.Size = New System.Drawing.Size(97, 20) + Me.제어방식ComboBox.TabIndex = 4 + ' + 'PictureBox3 + ' + Me.PictureBox3.BackColor = System.Drawing.Color.FromArgb(CType(CType(243, Byte), Integer), CType(CType(244, Byte), Integer), CType(CType(246, Byte), Integer)) + Me.PictureBox3.Location = New System.Drawing.Point(1, 9) + Me.PictureBox3.Name = "PictureBox3" + Me.PictureBox3.Size = New System.Drawing.Size(305, 325) + Me.PictureBox3.TabIndex = 169 + Me.PictureBox3.TabStop = False + ' + '재냉각기GroupBox + ' + Me.재냉각기GroupBox.BackColor = System.Drawing.Color.White + Me.재냉각기GroupBox.Controls.Add(Label10) + Me.재냉각기GroupBox.Controls.Add(Me.증발식건식냉각기ComboBox) + Me.재냉각기GroupBox.Controls.Add(Me.증발식냉각기ComboBox) + Me.재냉각기GroupBox.Controls.Add(Label11) + Me.재냉각기GroupBox.Controls.Add(Me.보조방음기유무ComboBox) + Me.재냉각기GroupBox.Controls.Add(Me.냉각수토출온도NTb) + Me.재냉각기GroupBox.Controls.Add(Label12) + Me.재냉각기GroupBox.Controls.Add(Me.Label18) + Me.재냉각기GroupBox.Controls.Add(Label13) + Me.재냉각기GroupBox.Controls.Add(Me.PictureBox5) + Me.재냉각기GroupBox.Location = New System.Drawing.Point(318, 173) + Me.재냉각기GroupBox.Name = "재냉각기GroupBox" + Me.재냉각기GroupBox.Size = New System.Drawing.Size(299, 337) + Me.재냉각기GroupBox.TabIndex = 31 + Me.재냉각기GroupBox.TabStop = False + ' + '증발식건식냉각기ComboBox + ' + Me.증발식건식냉각기ComboBox.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList + Me.증발식건식냉각기ComboBox.FormattingEnabled = True + Me.증발식건식냉각기ComboBox.Location = New System.Drawing.Point(216, 36) + Me.증발식건식냉각기ComboBox.Name = "증발식건식냉각기ComboBox" + Me.증발식건식냉각기ComboBox.NectControl = Nothing + Me.증발식건식냉각기ComboBox.Size = New System.Drawing.Size(74, 20) + Me.증발식건식냉각기ComboBox.TabIndex = 0 + ' + '증발식냉각기ComboBox + ' + Me.증발식냉각기ComboBox.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList + Me.증발식냉각기ComboBox.FormattingEnabled = True + Me.증발식냉각기ComboBox.Location = New System.Drawing.Point(216, 60) + Me.증발식냉각기ComboBox.Name = "증발식냉각기ComboBox" + Me.증발식냉각기ComboBox.NectControl = Nothing + Me.증발식냉각기ComboBox.Size = New System.Drawing.Size(74, 20) + Me.증발식냉각기ComboBox.TabIndex = 1 + ' + '보조방음기유무ComboBox + ' + Me.보조방음기유무ComboBox.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList + Me.보조방음기유무ComboBox.FormattingEnabled = True + Me.보조방음기유무ComboBox.Location = New System.Drawing.Point(216, 84) + Me.보조방음기유무ComboBox.Name = "보조방음기유무ComboBox" + Me.보조방음기유무ComboBox.NectControl = Nothing + Me.보조방음기유무ComboBox.Size = New System.Drawing.Size(74, 20) + Me.보조방음기유무ComboBox.TabIndex = 2 + ' + '냉각수토출온도NTb + ' + Me.냉각수토출온도NTb.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bs, "냉각탑입구온도", True)) + Me.냉각수토출온도NTb.Location = New System.Drawing.Point(216, 109) + Me.냉각수토출온도NTb.Name = "냉각수토출온도NTb" + Me.냉각수토출온도NTb.NectControl = Nothing + Me.냉각수토출온도NTb.Size = New System.Drawing.Size(74, 21) + Me.냉각수토출온도NTb.TabIndex = 3 + Me.냉각수토출온도NTb.TextAlign = System.Windows.Forms.HorizontalAlignment.Right + Me.냉각수토출온도NTb.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + ' + 'Label18 + ' + Me.Label18.AutoSize = True + Me.Label18.BackColor = System.Drawing.Color.FromArgb(CType(CType(243, Byte), Integer), CType(CType(244, Byte), Integer), CType(CType(246, Byte), Integer)) + Me.Label18.ForeColor = System.Drawing.Color.Black + Me.Label18.Location = New System.Drawing.Point(6, 20) + Me.Label18.Name = "Label18" + Me.Label18.Size = New System.Drawing.Size(122, 12) + Me.Label18.TabIndex = 158 + Me.Label18.Text = "[재냉각기(냉각탑)]" + ' + 'PictureBox5 + ' + Me.PictureBox5.BackColor = System.Drawing.Color.FromArgb(CType(CType(243, Byte), Integer), CType(CType(244, Byte), Integer), CType(CType(246, Byte), Integer)) + Me.PictureBox5.Location = New System.Drawing.Point(2, 9) + Me.PictureBox5.Name = "PictureBox5" + Me.PictureBox5.Size = New System.Drawing.Size(294, 325) + Me.PictureBox5.TabIndex = 169 + Me.PictureBox5.TabStop = False + ' + '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.BackColor = System.Drawing.Color.White + Me.SplitContainer1.Panel2.Controls.Add(Me.chk_헤더적용) + Me.SplitContainer1.Panel2.Controls.Add(Me.chk_개별기기적용) + Me.SplitContainer1.Panel2.Controls.Add(Me.Label16) + Me.SplitContainer1.Panel2.Controls.Add(Me.PictureBox4) + Me.SplitContainer1.Panel2.Controls.Add(Me.재냉각기GroupBox) + Me.SplitContainer1.Panel2.Controls.Add(Me.GroupBox11) + Me.SplitContainer1.Panel2.Controls.Add(Me.GroupBox19) + Me.SplitContainer1.Panel2.Controls.Add(Me.GroupBox18) + Me.SplitContainer1.Size = New System.Drawing.Size(818, 574) + Me.SplitContainer1.SplitterDistance = 187 + Me.SplitContainer1.TabIndex = 128 + ' + '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.FromArgb(CType(CType(245, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(246, Byte), Integer)) + 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(185, 532) + Me.dv.TabIndex = 0 + ' + '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, 532) + 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(185, 40) + 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, 37) + 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, 37) + 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, 37) + 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, 37) + 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, 40) + ' + 'lbl_pos + ' + Me.lbl_pos.Name = "lbl_pos" + Me.lbl_pos.Size = New System.Drawing.Size(12, 37) + Me.lbl_pos.Text = "0" + ' + 'ToolStripSeparator2 + ' + Me.ToolStripSeparator2.Name = "ToolStripSeparator2" + Me.ToolStripSeparator2.Size = New System.Drawing.Size(6, 40) + ' + 'lb_code + ' + Me.lb_code.Name = "lb_code" + Me.lb_code.Size = New System.Drawing.Size(47, 37) + Me.lb_code.Text = "[0000]" + ' + 'chk_헤더적용 + ' + Me.chk_헤더적용.AutoSize = True + Me.chk_헤더적용.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Me.bs, "헤더적용", True)) + Me.chk_헤더적용.Location = New System.Drawing.Point(532, 30) + Me.chk_헤더적용.Name = "chk_헤더적용" + Me.chk_헤더적용.Size = New System.Drawing.Size(76, 16) + Me.chk_헤더적용.TabIndex = 174 + Me.chk_헤더적용.Tag = "헤더적용" + Me.chk_헤더적용.Text = "헤더적용" + Me.chk_헤더적용.UseVisualStyleBackColor = True + ' + 'chk_개별기기적용 + ' + Me.chk_개별기기적용.AutoSize = True + Me.chk_개별기기적용.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Me.bs, "개별기기적용", True)) + Me.chk_개별기기적용.Location = New System.Drawing.Point(411, 30) + Me.chk_개별기기적용.Name = "chk_개별기기적용" + Me.chk_개별기기적용.Size = New System.Drawing.Size(102, 16) + Me.chk_개별기기적용.TabIndex = 173 + Me.chk_개별기기적용.Tag = "개별기기적용" + Me.chk_개별기기적용.Text = "개별기기적용" + Me.chk_개별기기적용.UseVisualStyleBackColor = True + ' + 'Label16 + ' + Me.Label16.AutoSize = True + Me.Label16.BackColor = System.Drawing.Color.FromArgb(CType(CType(116, Byte), Integer), CType(CType(158, Byte), Integer), CType(CType(209, Byte), Integer)) + Me.Label16.ForeColor = System.Drawing.Color.White + Me.Label16.Location = New System.Drawing.Point(28, 30) + Me.Label16.Name = "Label16" + Me.Label16.Size = New System.Drawing.Size(57, 12) + Me.Label16.TabIndex = 168 + Me.Label16.Text = "냉방기기" + ' + 'PictureBox4 + ' + Me.PictureBox4.BackgroundImage = CType(resources.GetObject("PictureBox4.BackgroundImage"), System.Drawing.Image) + Me.PictureBox4.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch + Me.PictureBox4.Location = New System.Drawing.Point(15, 19) + Me.PictureBox4.Name = "PictureBox4" + Me.PictureBox4.Size = New System.Drawing.Size(134, 30) + Me.PictureBox4.TabIndex = 167 + Me.PictureBox4.TabStop = False + ' + 'DataGridViewTextBoxColumn1 + ' + Me.DataGridViewTextBoxColumn1.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.Fill + Me.DataGridViewTextBoxColumn1.DataPropertyName = "설명" + Me.DataGridViewTextBoxColumn1.HeaderText = "설명" + Me.DataGridViewTextBoxColumn1.Name = "DataGridViewTextBoxColumn1" + Me.DataGridViewTextBoxColumn1.SortMode = System.Windows.Forms.DataGridViewColumnSortMode.Programmatic + ' + 'Frm_NaengBang + ' + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.None + Me.ClientSize = New System.Drawing.Size(818, 574) + Me.ControlBox = False + Me.Controls.Add(Me.SplitContainer1) + Me.Font = New System.Drawing.Font("돋움", 9.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.KeyPreview = True + Me.Name = "Frm_NaengBang" + Me.ShowInTaskbar = False + Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen + Me.Text = "냉방기기" + Me.GroupBox18.ResumeLayout(False) + Me.GroupBox18.PerformLayout() + CType(Me.PictureBox2, System.ComponentModel.ISupportInitialize).EndInit() + Me.GroupBox11.ResumeLayout(False) + Me.GroupBox11.PerformLayout() + CType(Me.bs, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.DS, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).EndInit() + Me.GroupBox19.ResumeLayout(False) + Me.GroupBox19.PerformLayout() + CType(Me.PictureBox3, System.ComponentModel.ISupportInitialize).EndInit() + Me.재냉각기GroupBox.ResumeLayout(False) + Me.재냉각기GroupBox.PerformLayout() + CType(Me.PictureBox5, System.ComponentModel.ISupportInitialize).EndInit() + Me.SplitContainer1.Panel1.ResumeLayout(False) + Me.SplitContainer1.Panel2.ResumeLayout(False) + Me.SplitContainer1.Panel2.PerformLayout() + CType(Me.SplitContainer1, System.ComponentModel.ISupportInitialize).EndInit() + Me.SplitContainer1.ResumeLayout(False) + CType(Me.dv, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.bn, System.ComponentModel.ISupportInitialize).EndInit() + Me.bn.ResumeLayout(False) + Me.bn.PerformLayout() + CType(Me.PictureBox4, System.ComponentModel.ISupportInitialize).EndInit() + Me.ResumeLayout(False) + + End Sub + Friend WithEvents 냉각수토출온도NTb As MyTb + Friend WithEvents 열성능비NTb As MyTb + Friend WithEvents 냉동기용량NTb As MyTb + Public WithEvents DS As Eco2Ar.DS + Friend WithEvents bs As System.Windows.Forms.BindingSource + Friend WithEvents cmb_신재생 As Eco2Ar.MyCmb + Friend WithEvents 신재생연결여부ComboBox1 As Eco2Ar.MyCmb + Friend WithEvents 보조방음기유무ComboBox As Eco2Ar.MyCmb + Friend WithEvents 증발식냉각기ComboBox As Eco2Ar.MyCmb + Friend WithEvents 증발식건식냉각기ComboBox As Eco2Ar.MyCmb + Friend WithEvents 온수열생산기기ComboBox As Eco2Ar.MyCmb + Friend WithEvents 제어방식ComboBox As Eco2Ar.MyCmb + Friend WithEvents 냉동기설비시스템ComboBox As Eco2Ar.MyCmb + Friend WithEvents 압축기제어방식ComboBox As Eco2Ar.MyCmb + Friend WithEvents 냉동기압축방식ComboBox As Eco2Ar.MyCmb + Friend WithEvents 냉동기종류ComboBox As Eco2Ar.MyCmb + Friend WithEvents 냉동기방식ComboBox As Eco2Ar.MyCmb + Friend WithEvents GroupBox18 As System.Windows.Forms.GroupBox + Friend WithEvents GroupBox11 As System.Windows.Forms.GroupBox + Friend WithEvents Label214 As System.Windows.Forms.Label + Friend WithEvents GroupBox19 As System.Windows.Forms.GroupBox + Friend WithEvents Label212 As System.Windows.Forms.Label + Friend WithEvents Label210 As System.Windows.Forms.Label + Friend WithEvents 재냉각기GroupBox As System.Windows.Forms.GroupBox + Friend WithEvents tb_zone_cnt As System.Windows.Forms.TextBox + Friend WithEvents Label47 As System.Windows.Forms.Label + Friend WithEvents SplitContainer1 As System.Windows.Forms.SplitContainer + Friend WithEvents dv As CEnergy.arindv + Friend WithEvents bn As System.Windows.Forms.BindingNavigator + Friend WithEvents bt_add As System.Windows.Forms.ToolStripButton + Friend WithEvents bt_Del As System.Windows.Forms.ToolStripButton + Friend WithEvents bt_cancel As System.Windows.Forms.ToolStripButton + Friend WithEvents ToolStripSeparator1 As System.Windows.Forms.ToolStripSeparator + Friend WithEvents lbl_count As System.Windows.Forms.ToolStripLabel + Friend WithEvents lbl_pos As System.Windows.Forms.ToolStripLabel + Friend WithEvents Label213 As System.Windows.Forms.Label + Friend WithEvents cmb_열생산연결방식 As Eco2Ar.MyCmb + Friend WithEvents cmb_사용연료 As Eco2Ar.MyCmb + Friend WithEvents Label17 As System.Windows.Forms.Label + Friend WithEvents PictureBox2 As System.Windows.Forms.PictureBox + Friend WithEvents Label9 As System.Windows.Forms.Label + Friend WithEvents PictureBox1 As System.Windows.Forms.PictureBox + Friend WithEvents PictureBox3 As System.Windows.Forms.PictureBox + Friend WithEvents Label16 As System.Windows.Forms.Label + Friend WithEvents PictureBox4 As System.Windows.Forms.PictureBox + Friend WithEvents Label18 As System.Windows.Forms.Label + Friend WithEvents chk_헤더적용 As System.Windows.Forms.CheckBox + Friend WithEvents chk_개별기기적용 As System.Windows.Forms.CheckBox + Friend WithEvents PictureBox5 As System.Windows.Forms.PictureBox + Friend WithEvents ToolStripSeparator2 As System.Windows.Forms.ToolStripSeparator + Friend WithEvents lb_code As System.Windows.Forms.ToolStripLabel + Friend WithEvents DataGridViewTextBoxColumn1 As System.Windows.Forms.DataGridViewTextBoxColumn +End Class diff --git a/ArinWarev1/Forms_Input/Frm_NaengBang.resx b/ArinWarev1/Forms_Input/Frm_NaengBang.resx new file mode 100644 index 0000000..5133cf6 --- /dev/null +++ b/ArinWarev1/Forms_Input/Frm_NaengBang.resx @@ -0,0 +1,278 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + 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 + + + 17, 17 + + + 81, 17 + + + 148, 17 + + + + + /9j/4AAQSkZJRgABAgEASABIAAD/7gAOQWRvYmUAZAAAAAAB/+ED5kV4aWYAAE1NACoAAAAIAAcBEgAD + AAAAAQABAAABGgAFAAAAAQAAAGIBGwAFAAAAAQAAAGoBKAADAAAAAQACAAABMQACAAAAHAAAAHIBMgAC + AAAAFAAAAI6HaQAEAAAAAQAAAKIAAADCAEgAAAABAAAASAAAAAEAAEFkb2JlIFBob3Rvc2hvcCBDUzMg + V2luZG93cwAyMDEwOjA0OjE1IDIwOjMyOjA0AAACoAIABAAAAAEAAAA8oAMABAAAAAEAAAAMAAAAAAAA + AAYBAwADAAAAAQAGAAABGgAFAAAAAQAAARABGwAFAAAAAQAAARgBKAADAAAAAQACAAACAQAEAAAAAQAA + ASACAgAEAAAAAQAAAr4AAAAAAAAASAAAAAEAAABIAAAAAf/Y/+AAEEpGSUYAAQIAAEgASAAA/+0ADEFk + b2JlX0NNAAH/7gAOQWRvYmUAZIAAAAAB/9sAhAAMCAgICQgMCQkMEQsKCxEVDwwMDxUYExMVExMYEQwM + DAwMDBEMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMAQ0LCw0ODRAODhAUDg4OFBQODg4OFBEMDAwM + DBERDAwMDAwMEQwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAz/wAARCAAMADwDASIAAhEBAxEB/90A + BAAE/8QBPwAAAQUBAQEBAQEAAAAAAAAAAwABAgQFBgcICQoLAQABBQEBAQEBAQAAAAAAAAABAAIDBAUG + BwgJCgsQAAEEAQMCBAIFBwYIBQMMMwEAAhEDBCESMQVBUWETInGBMgYUkaGxQiMkFVLBYjM0coLRQwcl + klPw4fFjczUWorKDJkSTVGRFwqN0NhfSVeJl8rOEw9N14/NGJ5SkhbSVxNTk9KW1xdXl9VZmdoaWprbG + 1ub2N0dXZ3eHl6e3x9fn9xEAAgIBAgQEAwQFBgcHBgU1AQACEQMhMRIEQVFhcSITBTKBkRShsUIjwVLR + 8DMkYuFygpJDUxVjczTxJQYWorKDByY1wtJEk1SjF2RFVTZ0ZeLys4TD03Xj80aUpIW0lcTU5PSltcXV + 5fVWZnaGlqa2xtbm9ic3R1dnd4eXp7fH/9oADAMBAAIRAxEAPwDd/amR/pH/AOcf70v2pkf6R/8AnH+9 + UUlofq/Bpevxb37UyP8ASP8A84/3pftTI/0j/wDOP96opJfq/BXr8W9+1Mj/AEj/APOP96X7UyP9I/8A + zj/eqKSX6vwV6/F3ujdbuGS2i5xfU8HVxktIG76XyW99vo27p0XGdO2/ba930dZj+q5dX+qfZPL8VAeD + 341VVr/eZhx+0bu708n/2f/iDFhJQ0NfUFJPRklMRQABAQAADEhMaW5vAhAAAG1udHJSR0IgWFlaIAfO + AAIACQAGADEAAGFjc3BNU0ZUAAAAAElFQyBzUkdCAAAAAAAAAAAAAAAAAAD21gABAAAAANMtSFAgIAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAEWNwcnQAAAFQAAAAM2Rl + c2MAAAGEAAAAbHd0cHQAAAHwAAAAFGJrcHQAAAIEAAAAFHJYWVoAAAIYAAAAFGdYWVoAAAIsAAAAFGJY + WVoAAAJAAAAAFGRtbmQAAAJUAAAAcGRtZGQAAALEAAAAiHZ1ZWQAAANMAAAAhnZpZXcAAAPUAAAAJGx1 + bWkAAAP4AAAAFG1lYXMAAAQMAAAAJHRlY2gAAAQwAAAADHJUUkMAAAQ8AAAIDGdUUkMAAAQ8AAAIDGJU + UkMAAAQ8AAAIDHRleHQAAAAAQ29weXJpZ2h0IChjKSAxOTk4IEhld2xldHQtUGFja2FyZCBDb21wYW55 + AABkZXNjAAAAAAAAABJzUkdCIElFQzYxOTY2LTIuMQAAAAAAAAAAAAAAEnNSR0IgSUVDNjE5NjYtMi4x + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABYWVogAAAAAAAA + 81EAAQAAAAEWzFhZWiAAAAAAAAAAAAAAAAAAAAAAWFlaIAAAAAAAAG+iAAA49QAAA5BYWVogAAAAAAAA + YpkAALeFAAAY2lhZWiAAAAAAAAAkoAAAD4QAALbPZGVzYwAAAAAAAAAWSUVDIGh0dHA6Ly93d3cuaWVj + LmNoAAAAAAAAAAAAAAAWSUVDIGh0dHA6Ly93d3cuaWVjLmNoAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAGRlc2MAAAAAAAAALklFQyA2MTk2Ni0yLjEgRGVmYXVsdCBSR0Ig + Y29sb3VyIHNwYWNlIC0gc1JHQgAAAAAAAAAAAAAALklFQyA2MTk2Ni0yLjEgRGVmYXVsdCBSR0IgY29s + b3VyIHNwYWNlIC0gc1JHQgAAAAAAAAAAAAAAAAAAAAAAAAAAAABkZXNjAAAAAAAAACxSZWZlcmVuY2Ug + Vmlld2luZyBDb25kaXRpb24gaW4gSUVDNjE5NjYtMi4xAAAAAAAAAAAAAAAsUmVmZXJlbmNlIFZpZXdp + bmcgQ29uZGl0aW9uIGluIElFQzYxOTY2LTIuMQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAdmlldwAA + AAAAE6T+ABRfLgAQzxQAA+3MAAQTCwADXJ4AAAABWFlaIAAAAAAATAlWAFAAAABXH+dtZWFzAAAAAAAA + AAEAAAAAAAAAAAAAAAAAAAAAAAACjwAAAAJzaWcgAAAAAENSVCBjdXJ2AAAAAAAABAAAAAAFAAoADwAU + ABkAHgAjACgALQAyADcAOwBAAEUASgBPAFQAWQBeAGMAaABtAHIAdwB8AIEAhgCLAJAAlQCaAJ8ApACp + AK4AsgC3ALwAwQDGAMsA0ADVANsA4ADlAOsA8AD2APsBAQEHAQ0BEwEZAR8BJQErATIBOAE+AUUBTAFS + AVkBYAFnAW4BdQF8AYMBiwGSAZoBoQGpAbEBuQHBAckB0QHZAeEB6QHyAfoCAwIMAhQCHQImAi8COAJB + AksCVAJdAmcCcQJ6AoQCjgKYAqICrAK2AsECywLVAuAC6wL1AwADCwMWAyEDLQM4A0MDTwNaA2YDcgN+ + A4oDlgOiA64DugPHA9MD4APsA/kEBgQTBCAELQQ7BEgEVQRjBHEEfgSMBJoEqAS2BMQE0wThBPAE/gUN + BRwFKwU6BUkFWAVnBXcFhgWWBaYFtQXFBdUF5QX2BgYGFgYnBjcGSAZZBmoGewaMBp0GrwbABtEG4wb1 + BwcHGQcrBz0HTwdhB3QHhgeZB6wHvwfSB+UH+AgLCB8IMghGCFoIbgiCCJYIqgi+CNII5wj7CRAJJQk6 + CU8JZAl5CY8JpAm6Cc8J5Qn7ChEKJwo9ClQKagqBCpgKrgrFCtwK8wsLCyILOQtRC2kLgAuYC7ALyAvh + C/kMEgwqDEMMXAx1DI4MpwzADNkM8w0NDSYNQA1aDXQNjg2pDcMN3g34DhMOLg5JDmQOfw6bDrYO0g7u + DwkPJQ9BD14Peg+WD7MPzw/sEAkQJhBDEGEQfhCbELkQ1xD1ERMRMRFPEW0RjBGqEckR6BIHEiYSRRJk + EoQSoxLDEuMTAxMjE0MTYxODE6QTxRPlFAYUJxRJFGoUixStFM4U8BUSFTQVVhV4FZsVvRXgFgMWJhZJ + FmwWjxayFtYW+hcdF0EXZReJF64X0hf3GBsYQBhlGIoYrxjVGPoZIBlFGWsZkRm3Gd0aBBoqGlEadxqe + GsUa7BsUGzsbYxuKG7Ib2hwCHCocUhx7HKMczBz1HR4dRx1wHZkdwx3sHhYeQB5qHpQevh7pHxMfPh9p + H5Qfvx/qIBUgQSBsIJggxCDwIRwhSCF1IaEhziH7IiciVSKCIq8i3SMKIzgjZiOUI8Ij8CQfJE0kfCSr + JNolCSU4JWgllyXHJfcmJyZXJocmtyboJxgnSSd6J6sn3CgNKD8ocSiiKNQpBik4KWspnSnQKgIqNSpo + KpsqzysCKzYraSudK9EsBSw5LG4soizXLQwtQS12Last4S4WLkwugi63Lu4vJC9aL5Evxy/+MDUwbDCk + MNsxEjFKMYIxujHyMioyYzKbMtQzDTNGM38zuDPxNCs0ZTSeNNg1EzVNNYc1wjX9Njc2cjauNuk3JDdg + N5w31zgUOFA4jDjIOQU5Qjl/Obw5+To2OnQ6sjrvOy07azuqO+g8JzxlPKQ84z0iPWE9oT3gPiA+YD6g + PuA/IT9hP6I/4kAjQGRApkDnQSlBakGsQe5CMEJyQrVC90M6Q31DwEQDREdEikTORRJFVUWaRd5GIkZn + RqtG8Ec1R3tHwEgFSEtIkUjXSR1JY0mpSfBKN0p9SsRLDEtTS5pL4kwqTHJMuk0CTUpNk03cTiVObk63 + TwBPSU+TT91QJ1BxULtRBlFQUZtR5lIxUnxSx1MTU19TqlP2VEJUj1TbVShVdVXCVg9WXFapVvdXRFeS + V+BYL1h9WMtZGllpWbhaB1pWWqZa9VtFW5Vb5Vw1XIZc1l0nXXhdyV4aXmxevV8PX2Ffs2AFYFdgqmD8 + YU9homH1YklinGLwY0Njl2PrZEBklGTpZT1lkmXnZj1mkmboZz1nk2fpaD9olmjsaUNpmmnxakhqn2r3 + a09rp2v/bFdsr20IbWBtuW4SbmtuxG8eb3hv0XArcIZw4HE6cZVx8HJLcqZzAXNdc7h0FHRwdMx1KHWF + deF2Pnabdvh3VnezeBF4bnjMeSp5iXnnekZ6pXsEe2N7wnwhfIF84X1BfaF+AX5ifsJ/I3+Ef+WAR4Co + gQqBa4HNgjCCkoL0g1eDuoQdhICE44VHhauGDoZyhteHO4efiASIaYjOiTOJmYn+imSKyoswi5aL/Ixj + jMqNMY2Yjf+OZo7OjzaPnpAGkG6Q1pE/kaiSEZJ6kuOTTZO2lCCUipT0lV+VyZY0lp+XCpd1l+CYTJi4 + mSSZkJn8mmia1ZtCm6+cHJyJnPedZJ3SnkCerp8dn4uf+qBpoNihR6G2oiailqMGo3aj5qRWpMelOKWp + phqmi6b9p26n4KhSqMSpN6mpqhyqj6sCq3Wr6axcrNCtRK24ri2uoa8Wr4uwALB1sOqxYLHWskuywrM4 + s660JbSctRO1irYBtnm28Ldot+C4WbjRuUq5wro7urW7LrunvCG8m70VvY++Cr6Evv+/er/1wHDA7MFn + wePCX8Lbw1jD1MRRxM7FS8XIxkbGw8dBx7/IPci8yTrJuco4yrfLNsu2zDXMtc01zbXONs62zzfPuNA5 + 0LrRPNG+0j/SwdNE08bUSdTL1U7V0dZV1tjXXNfg2GTY6Nls2fHadtr724DcBdyK3RDdlt4c3qLfKd+v + 4DbgveFE4cziU+Lb42Pj6+Rz5PzlhOYN5pbnH+ep6DLovOlG6dDqW+rl63Dr++yG7RHtnO4o7rTvQO/M + 8Fjw5fFy8f/yjPMZ86f0NPTC9VD13vZt9vv3ivgZ+Kj5OPnH+lf65/t3/Af8mP0p/br+S/7c/23////b + AEMAAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQICAgICAgICAgICAwMD + AwMDAwMDA//bAEMBAQEBAQEBAQEBAQICAQICAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMD + AwMDAwMDAwMDAwMDAwMDA//AABEIAAwAPAMBEQACEQEDEQH/xAAfAAABBQEBAQEBAQAAAAAAAAAAAQID + BAUGBwgJCgv/xAC1EAACAQMDAgQDBQUEBAAAAX0BAgMABBEFEiExQQYTUWEHInEUMoGRoQgjQrHBFVLR + 8CQzYnKCCQoWFxgZGiUmJygpKjQ1Njc4OTpDREVGR0hJSlNUVVZXWFlaY2RlZmdoaWpzdHV2d3h5eoOE + hYaHiImKkpOUlZaXmJmaoqOkpaanqKmqsrO0tba3uLm6wsPExcbHyMnK0tPU1dbX2Nna4eLj5OXm5+jp + 6vHy8/T19vf4+fr/xAAfAQADAQEBAQEBAQEBAAAAAAAAAQIDBAUGBwgJCgv/xAC1EQACAQIEBAMEBwUE + BAABAncAAQIDEQQFITEGEkFRB2FxEyIygQgUQpGhscEJIzNS8BVictEKFiQ04SXxFxgZGiYnKCkqNTY3 + ODk6Q0RFRkdISUpTVFVWV1hZWmNkZWZnaGlqc3R1dnd4eXqCg4SFhoeIiYqSk5SVlpeYmZqio6Slpqeo + qaqys7S1tre4ubrCw8TFxsfIycrS09TV1tfY2dri4+Tl5ufo6ery8/T19vf4+fr/2gAMAwEAAhEDEQA/ + AP1ZH7UPxEAA/wCEw8bnj/ob9f8A/k+v7U/1Nyj/AKF+G/8ABUP/AJE/llcSZlZf7dX/APBk/wDMX/hq + H4if9Df43/8ACv1//wCT6P8AU3Kf+hfhv/BUP/kQ/wBZcy/6Dq//AIMn/mH/AA1D8RP+hv8AG/8A4V+v + /wDyfR/qblP/AEL8N/4Kh/8AIh/rLmX/AEHV/wDwZP8AzD/hqH4if9Df43/8K/X/AP5Po/1Nyn/oX4b/ + AMFQ/wDkQ/1lzL/oOr/+DJ/5h/w1D8RP+hv8b/8AhX6//wDJ9H+puU/9C/Df+Cof/Ih/rLmX/QdX/wDB + k/8AMT/hqH4if9Df43/8K/X/AP5Po/1Nyn/oX4b/AMFQ/wDkQ/1kzL/oOr/+DJ/5n2R+xz+234zt/iRp + nw+8a6vqXiDwZ4gs9baObXr+bUr/AMPajpmkX2tQ3FlqV2Zb57K7XT2t3tXkaJWkV4whVxJ+beJfAuU4 + Th/FZ/hKEKOMw8qd+SKjGcZzjTs4q0bpyUlJK7s073VvuuBOLMxxGcYfJ8TWlVw1ZTtzu7hKMJTupPWz + UWnFu2qatrf9aP8AhfXgv+zv7U89/sfm+V5207N+M43fSv50P2w/kwr/AEFP42CgAoAKACgAoA9s/Z0/ + s7/hcng3+1vP/s7Ov/avs2PP2f8ACL63t2buP9ZjP+zmvz7xU/5IPPf+4H/qRRPsvD//AJK7KP8AuL/6 + ZqH7/wD/ABaT/hUfb7Ht/wBj7V9p8v8A9Cr+Oz+lz//Z + + + + 39 + + \ No newline at end of file diff --git a/ArinWarev1/Forms_Input/Frm_NaengBang.vb b/ArinWarev1/Forms_Input/Frm_NaengBang.vb new file mode 100644 index 0000000..c682b32 --- /dev/null +++ b/ArinWarev1/Forms_Input/Frm_NaengBang.vb @@ -0,0 +1,810 @@ +Public Class Frm_NaengBang + + Dim Init As Boolean = False + Dim SrcDrv As DataRowView + + + + Public Sub New(_opentime) + + ' 이 호출은 디자이너에 필요합니다. + InitializeComponent() + OpenTime = _opentime + + ' InitializeComponent() 호출 뒤에 초기화 코드를 추가하십시오. + + + End Sub +#Region "data Base 변경여부및 적용방법" + + '''변경된내용을적용한다. + Public Overrides Function AcceptChanged() As Boolean + bs.EndEdit() + Dim BaseDS As DataSet = CType(bs.DataSource, DataSet) + Dim BaseDT As DataTable = BaseDS.Tables(bs.DataMember) + BaseDT.AcceptChanges() + Return True + End Function + + '''변경된내용이있다면 취소한다. + Public Overrides Function RejectChanged() As Boolean + Dim BaseDS As DataSet = CType(bs.DataSource, DataSet) + Dim BaseDT As DataTable = BaseDS.Tables(bs.DataMember) + BaseDT.RejectChanges() + Return True + End Function + + '''데이터에변형이있었는가? + Public Overrides Function HasChanged() As Boolean + bs.EndEdit() + Dim BaseDS As DataSet = CType(bs.DataSource, DataSet) + Dim BaseDT As DataTable = BaseDS.Tables(bs.DataMember) + Dim ChangeDT As DataTable = BaseDT.GetChanges + If Not ChangeDT Is Nothing Then Return True + Return False + End Function + + '''기본데이터테이블을 반환합니다. + Public Function DT() As DataTable + Dim BaseDS As DataSet = CType(bs.DataSource, DataSet) + Return BaseDS.Tables(bs.DataMember) + End Function + + +#End Region + + Private Sub ShowHistory() + Dim drv As DataRowView = Me.bs.Current + Dim f As New Frm_History("tbl_nangbangkiki", drv("code").ToString) + If f.ShowDialog = DialogResult.OK Then + drv(f.colname) = f.val + Me.Validate() + Me.bs.EndEdit() + My.Application.DoEvents() + MsgBox("값이 변경되었습니다", MsgBoxStyle.Information, "확인") + End If + End Sub + Private Sub AddNewDataRow_Zone_Changed2(ByVal sender As Object, ByVal e As System.Data.DataColumnChangeEventArgs) + Dim oval As String = e.Row(e.Column.ColumnName).ToString + Dim nval As String = e.ProposedValue.ToString + If oval <> nval Then + Dim newdr As DS2.historyRow = DSHistory.history.NewhistoryRow + newdr.time = Now.ToString("yyyy-MM-dd HH:mm:ss") + newdr.tablename = "tbl_nangbangkiki" + newdr.ovalue = oval + newdr.nvalue = nval + newdr.column = e.Column.ColumnName + newdr.code = e.Row("code").ToString + DSHistory.history.AddhistoryRow(newdr) + DSHistory.history.AcceptChanges() + End If + End Sub + Private Sub MdiMain_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load + + Me.Show() + My.Application.DoEvents() + 'Work_msg_timer("잠시만 기다려주세요") + + '//프로필 관련 + + '//공유데이터셋에 연결한다. + Me.bs.DataSource = DSET1 + + '//냉방기기 + AddHandler DSET1.tbl_nangbangkiki.TableNewRow, AddressOf AddNewDataRow_nangbangkiki + AddHandler DSET1.tbl_nangbangkiki.ColumnChanging, AddressOf AddNewDataRow_Zone_Changed2 + + '//콤보컨트롤 바인딩 + Binding_Zone() + + '//모든컨트롤의 cTrl_enter 를 추가합니다 + BindProperty(CType(Me.SplitContainer1.Panel2.Controls, Control.ControlCollection)) + + + + + Me.bs.Filter = "code <> '0'" + If Me.Parameter <> "" Then Me.bs.Filter &= " and 냉동기방식 ='" + Me.Parameter + "'" + 'Me.lb_grpname.Text = Me.Parameter + + + Me.Init = True + + Try + Me.bs.Position = CEnergy.ARINCLASS.Read_LastPos_Frm(Me) + Catch ex As Exception + Me.bs.MoveFirst() + End Try + + bs_CurrentChanged(sender, e) + Validate_Control() + AddDebug("▲ Form Load") + End Sub +#Region "Control_Enter" + Private Sub BindProperty(ByVal Ctl As Control.ControlCollection) + For Each C As Control In Ctl + If C.Controls.Count > 1 Then + BindProperty(C.Controls) + Else + If C.GetType.ToString.ToUpper.IndexOf("MYTB") <> -1 Then + AddHandler CType(C, MyTb).KeyDown, AddressOf TextBOx_KeyDown + ElseIf C.GetType.ToString.ToUpper.IndexOf("MYCMB") <> -1 Then + AddHandler CType(C, MyCmb).KeyDown, AddressOf Cmd_KeyDown + End If + End If + Next + End Sub + + + Private Sub TextBOx_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) + If e.KeyCode = Keys.Enter AndAlso e.Control Then + Try + Dim Field As String = (CType(sender, MyTb).DataBindings.Item("text").BindingMemberInfo.BindingField) + For Each Dr As DataRow In Dt.Select(Me.bs.Filter, "") + Dr(Field) = CType(sender, MyTb).Text + Next + Work_msg_timer("모든값이 변경되었습니다", 25) + Catch ex As Exception + + End Try + + End If + End Sub + Private Sub Cmd_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) + If e.KeyCode = Keys.Enter AndAlso e.Control Then + Try + Dim Field As String = (CType(sender, MyCmb).DataBindings.Item("selectedvalue").BindingMemberInfo.BindingField) + For Each Dr As DataRow In Dt.Select(Me.bs.Filter, "") + Dr(Field) = CType(sender, MyCmb).SelectedValue + Next + Work_msg_timer("모든값이 변경되었습니다", 25) + Catch ex As Exception + + End Try + End If + End Sub +#End Region +#Region "냉방기기" + Private Sub MdiMain_FormClosed(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosedEventArgs) Handles Me.FormClosed + CEnergy.ARINCLASS.SaveLoad_FrmSetting(Me, Me.bs.Position, True) + End Sub + + Private Sub MdiMain_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown + Select Case e.KeyCode + Case Keys.F12 + ShowHistory() + End Select + End Sub + Private Function GetMaxCode(ByVal dt As DataTable) As String + Try + Dim Dr As DataRow = dt.Select("", "code desc")(0) + Return Format(CInt(Dr("code")) + 1, "0000") + Catch ex As Exception + Return "0001" + End Try + End Function + +#Region "제어버튼" + Private Sub ToolStripButton48_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt_add.Click + If Not EndEdit(Me.bs) Then Return + Me.bs.AddNew() + INitRow(Me.Controls) + MdiMain.RefreshMenuList(TreeTag) + End Sub + + Private Sub ToolStripButton49_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt_Del.Click + Dbbase.DelCrow(Me.bs, True) + MdiMain.RefreshMenuList(TreeTag) + End Sub + + Private Sub ToolStripButton51_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt_cancel.Click + If Not EndEdit(Me.bs) Then Return + Data_Cancel(DSET1.tbl_profile, Nothing) + MdiMain.RefreshMenuList(TreeTag) + End Sub +#End Region + + Private Sub Binding_Zone() + '//냉동기기 + Dim bs_냉동기방식ComboBox As New BindingSource(DSET1, "tbl_common") + bs_냉동기방식ComboBox.Filter = "gubun='1046'" + 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='1047'" + 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='1048'" + 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='1049'" + 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='1050'" + 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='1051'" + 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_열생산연결방식 As New BindingSource(DSET1, "tbl_common") + bs_열생산연결방식.Filter = "gubun='1085'" + bs_열생산연결방식.Sort = "code" + Me.cmb_열생산연결방식.DataSource = bs_열생산연결방식 + cmb_열생산연결방식.DisplayMember = "name" + cmb_열생산연결방식.ValueMember = "name" + Me.cmb_열생산연결방식.DataBindings.Add("selectedvalue", Me.bs, "열생산연결방식") + + Dim bs_사용연료 As New BindingSource(DSET1, "tbl_common") + bs_사용연료.Filter = "gubun='1086'" + bs_사용연료.Sort = "code" + Me.cmb_사용연료.DataSource = bs_사용연료 + cmb_사용연료.DisplayMember = "name" + cmb_사용연료.ValueMember = "name" + Me.cmb_사용연료.DataBindings.Add("selectedvalue", Me.bs, "사용연료") + 'AddHandler 온수열생산기기ComboBox.KeyDown, AddressOf Cmb_DeleteVal + + + Dim bs_온수열생산기기ComboBox As New BindingSource(DSET1, "tbl_nanbangkiki") + bs_온수열생산기기ComboBox.Sort = "code" + Me.온수열생산기기ComboBox.DataSource = bs_온수열생산기기ComboBox + 온수열생산기기ComboBox.DisplayMember = "설명" + 온수열생산기기ComboBox.ValueMember = "code" + 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='1052'" + 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='1053'" + 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='1054'" '//예 아니오 아직 결정안됨 + 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_신재생연결여부ComboBox1 As New BindingSource(DSET1, "tbl_common") + bs_신재생연결여부ComboBox1.Filter = "gubun='1044'" + bs_신재생연결여부ComboBox1.Sort = "code" + Me.신재생연결여부ComboBox1.DataSource = bs_신재생연결여부ComboBox1 + 신재생연결여부ComboBox1.DisplayMember = "name" + 신재생연결여부ComboBox1.ValueMember = "name" + Me.신재생연결여부ComboBox1.DataBindings.Add("selectedvalue", Me.bs, "신재생연결여부") + 'AddHandler 신재생연결여부ComboBox1.KeyDown, AddressOf Cmb_DeleteVal + + Dim bs_연결된시스템ComboBox1 As New BindingSource(DSET1, "tbl_new") + bs_연결된시스템ComboBox1.Sort = "code" + Me.cmb_신재생.DataSource = bs_연결된시스템ComboBox1 + cmb_신재생.DisplayMember = "설명" + cmb_신재생.ValueMember = "code" + Me.cmb_신재생.DataBindings.Add("selectedvalue", Me.bs, "연결된시스템") + 'AddHandler cmb_신재생.KeyDown, AddressOf Cmb_DeleteVal + End Sub + + Private Sub AddNewDataRow_nangbangkiki(ByVal sender As Object, ByVal e As System.Data.DataTableNewRowEventArgs) + e.Row.Item("code") = GetMaxCode(DSET1.tbl_nangbangkiki) + e.Row.Item("설명") = "신규데이터" + 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 + If Me.bs.Position < Me.bs.Count Then Me.bs.Position += 1 + Else + If Me.bs.Position > 0 Then Me.bs.Position -= 1 + End If + Me.Validate() + My.Application.DoEvents() + End Sub +#End Region + + Private Sub 신재생연결여부ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 신재생연결여부ComboBox1.SelectedIndexChanged + Try + If Me.신재생연결여부ComboBox1.SelectedIndex = 0 Then '//신재생연결없음 + cmb_신재생.Enabled = False + Else + cmb_신재생.Enabled = True + End If + Catch ex As Exception + + End Try + End Sub + + Private Sub 냉동기방식ComboBox_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles 냉동기방식ComboBox.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) <> 32 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() '//한줄추가 + + Dim Cnt As Short = 0 + For i As Integer = 0 To CB.GetUpperBound(0) + Select Case i + Case 0 + CType(bs.Current, DataRowView)("설명") = CB(i).Split(CChar(vbTab))(ii).Trim + Case 0 + 5 '//사용프로필 앞에 두개를 숫자4자로변환 + If CB(i).Split(CChar(vbTab))(ii).Trim = "" Then + Me.냉동기방식ComboBox.SelectedIndex = 0 + Else + Me.냉동기방식ComboBox.Text = CB(i).Split(CChar(vbTab))(ii).Trim + End If + + 'Me.냉동기방식ComboBox.Text = CStr(IIf( CB(i).Split(CChar(vbTab))(ii).Trim = "", "0", CB(i).Split(CChar(vbTab))(ii).Trim)) + Case 1 + 5 + Me.냉동기용량NTb.Text = CB(i).Split(CChar(vbTab))(ii).Trim + Case 2 + 5 + Me.열성능비NTb.Text = CB(i).Split(CChar(vbTab))(ii).Trim + Case 5 + 5 + ' Me.TabControl13.SelectedIndex = 1 + If CB(i).Split(CChar(vbTab))(ii).Trim = "" Then + Me.냉동기종류ComboBox.SelectedIndex = 0 + Else + Me.냉동기종류ComboBox.Text = CB(i).Split(CChar(vbTab))(ii).Trim + End If + + 'Me.냉동기종류ComboBox.Text = CStr(IIf( CB(i).Split(CChar(vbTab))(ii).Trim = "", "0", CB(i).Split(CChar(vbTab))(ii).Trim)) + Case 7 + 5 + If CB(i).Split(CChar(vbTab))(ii).Trim = "" Then + Me.냉동기압축방식ComboBox.SelectedIndex = 0 + Else + Me.냉동기압축방식ComboBox.Text = CB(i).Split(CChar(vbTab))(ii).Trim + End If + + + 'Me.냉동기압축방식ComboBox.Text = CStr(IIf( CB(i).Split(CChar(vbTab))(ii).Trim = "", "0", CB(i).Split(CChar(vbTab))(ii).Trim)) + Case 13 + If CB(i).Split(CChar(vbTab))(ii).Trim = "" Then + Me.압축기제어방식ComboBox.SelectedIndex = 0 + Else + Me.압축기제어방식ComboBox.Text = CB(i).Split(CChar(vbTab))(ii).Trim + End If + + + 'Me.압축기제어방식ComboBox.Text = CStr(IIf( CB(i).Split(CChar(vbTab))(ii).Trim = "", "0", CB(i).Split(CChar(vbTab))(ii).Trim)) + Case 10 + 5 + If CB(i).Split(CChar(vbTab))(ii).Trim = "" Then + Me.냉동기설비시스템ComboBox.SelectedIndex = 0 + Else + Me.냉동기설비시스템ComboBox.Text = CB(i).Split(CChar(vbTab))(ii).Trim + End If + + + 'Me.냉동기설비시스템ComboBox.Text = CStr(IIf( CB(i).Split(CChar(vbTab))(ii).Trim = "", "0", CB(i).Split(CChar(vbTab))(ii).Trim)) + Case 11 + 5 + If CB(i).Split(CChar(vbTab))(ii).Trim = "" Then + Me.제어방식ComboBox.SelectedIndex = 0 + Else + Me.제어방식ComboBox.Text = CB(i).Split(CChar(vbTab))(ii).Trim + End If + + 'Me.제어방식ComboBox.Text = CStr(IIf( CB(i).Split(CChar(vbTab))(ii).Trim = "", "0", CB(i).Split(CChar(vbTab))(ii).Trim)) + Case 14 + 5 '//열생산연결방식 + If CB(i).Split(CChar(vbTab))(ii).Trim = "" Then + Me.cmb_열생산연결방식.SelectedIndex = 0 + Else + Me.cmb_열생산연결방식.Text = CB(i).Split(CChar(vbTab))(ii).Trim + End If + Case 14 + 5 + 1 '//사용연로 + If CB(i).Split(CChar(vbTab))(ii).Trim = "" Then + Me.cmb_사용연료.SelectedIndex = 0 + Else + Me.cmb_사용연료.Text = CB(i).Split(CChar(vbTab))(ii).Trim + End If + Case 14 + 5 + 2 + If CB(i).Split(CChar(vbTab))(ii).Trim = "" Then + Me.온수열생산기기ComboBox.SelectedIndex = 0 + Else + Me.온수열생산기기ComboBox.Text = CB(i).Split(CChar(vbTab))(ii).Trim + End If + + ' Me.온수열생산기기ComboBox.Text = CStr(IIf( CB(i).Split(CChar(vbTab))(ii).Trim = "", "0", CB(i).Split(CChar(vbTab))(ii).Trim)) + Case 24 + ' Me.TabControl13.SelectedIndex = 2 + If CB(i).Split(CChar(vbTab))(ii).Trim = "" Then + Me.증발식건식냉각기ComboBox.SelectedIndex = 0 + Else + Me.증발식건식냉각기ComboBox.Text = CB(i).Split(CChar(vbTab))(ii).Trim + End If + + + ' Me.증발식건식냉각기ComboBox.Text = CStr(IIf( CB(i).Split(CChar(vbTab))(ii).Trim = "", "0", CB(i).Split(CChar(vbTab))(ii).Trim)) + Case 25 + If CB(i).Split(CChar(vbTab))(ii).Trim = "" Then + Me.증발식냉각기ComboBox.SelectedIndex = 0 + Else + Me.증발식냉각기ComboBox.Text = CB(i).Split(CChar(vbTab))(ii).Trim + End If + + 'Me.증발식냉각기ComboBox.Text = CStr(IIf( CB(i).Split(CChar(vbTab))(ii).Trim = "", "0", CB(i).Split(CChar(vbTab))(ii).Trim)) + Case 26 + If CB(i).Split(CChar(vbTab))(ii).Trim = "" Then + Me.보조방음기유무ComboBox.SelectedIndex = 0 + Else + Me.보조방음기유무ComboBox.Text = CB(i).Split(CChar(vbTab))(ii).Trim + End If + + 'Me.보조방음기유무ComboBox.Text = CStr(IIf( CB(i).Split(CChar(vbTab))(ii).Trim = "", "0", CB(i).Split(CChar(vbTab))(ii).Trim)) + Case 27 + Me.냉각수토출온도NTb.Text = CB(i).Split(CChar(vbTab))(ii).Trim + Case 30 + If CB(i).Split(CChar(vbTab))(ii).Trim = "" Then + Me.신재생연결여부ComboBox1.SelectedIndex = 0 + Else + Me.신재생연결여부ComboBox1.Text = CB(i).Split(CChar(vbTab))(ii).Trim + End If + 'Me.신재생연결여부ComboBox1.Text = CStr(IIf( CB(i).Split(CChar(vbTab))(ii).Trim = "", "0", CB(i).Split(CChar(vbTab))(ii).Trim)) + Case 31 + If CB(i).Split(CChar(vbTab))(ii).Trim = "" Then + Me.cmb_신재생.SelectedIndex = 0 + Else + Me.cmb_신재생.Text = CB(i).Split(CChar(vbTab))(ii).Trim + End If + + 'Me.연결된시스템ComboBox1.Text = CStr(IIf(CB(i).Trim = "", "0", CB(i).Trim)) + End Select + Next + Next + + Me.bs.EndEdit() + End If + End Sub + + Private Sub Validate_Control() + If Not Init Then Return + '//오류 냉동기방식 오류 + Try + Dim V As String = CStr(CType(Me.bs.Current, DataRowView)("설명")) + Select Case Me.냉동기방식ComboBox.SelectedValue.ToString.Trim + Case "압축식", "압축식(LNG)" '//압축식 + 'Select Case V + ' Case "냉동기A", "냉동기B" + ' 냉동기종류ComboBox.Enabled = True + ' 냉동기압축방식ComboBox.Enabled = True + + ' 압축기제어방식ComboBox.Enabled = False + ' 냉동기설비시스템ComboBox.Enabled = False + ' 제어방식ComboBox.Enabled = False + ' 온수열생산기기ComboBox.Enabled = False + ' 증발식건식냉각기ComboBox.Enabled = False + ' 증발식냉각기ComboBox.Enabled = False + ' 보조방음기유무ComboBox.Enabled = False + ' 냉각수토출온도NTb.Enabled = False + ' Case "냉동기C" + ' 냉동기종류ComboBox.Enabled = True + ' 냉동기압축방식ComboBox.Enabled = True + + ' 압축기제어방식ComboBox.Enabled = False + ' 냉동기설비시스템ComboBox.Enabled = False + ' 제어방식ComboBox.Enabled = False + ' 온수열생산기기ComboBox.Enabled = False + ' 증발식건식냉각기ComboBox.Enabled = True + ' 증발식냉각기ComboBox.Enabled = True + ' 보조방음기유무ComboBox.Enabled = True + ' 냉각수토출온도NTb.Enabled = True + 'End Select + + '//건기연 수정 2010.04.07 + 냉동기종류ComboBox.Enabled = True + 냉동기압축방식ComboBox.Enabled = True + + Case "흡수식" '//흡수식 + 'Select Case V + ' Case "냉동기A", "냉동기C" + ' 냉동기종류ComboBox.Enabled = False + ' '냉동기종류Label.Enabled = False + ' 냉동기압축방식ComboBox.Enabled = False + ' 압축기제어방식ComboBox.Enabled = False + ' 냉동기설비시스템ComboBox.Enabled = False + ' 제어방식ComboBox.Enabled = False + + ' 온수열생산기기ComboBox.Enabled = True + ' 증발식건식냉각기ComboBox.Enabled = True + ' 증발식냉각기ComboBox.Enabled = True + ' 보조방음기유무ComboBox.Enabled = True + ' 냉각수토출온도NTb.Enabled = True + ' Case "냉동기B" + ' 냉동기종류ComboBox.Enabled = False + ' 냉동기압축방식ComboBox.Enabled = False + ' 압축기제어방식ComboBox.Enabled = False + ' 냉동기설비시스템ComboBox.Enabled = False + ' 제어방식ComboBox.Enabled = False + + ' 온수열생산기기ComboBox.Enabled = True + ' 증발식건식냉각기ComboBox.Enabled = True + ' 증발식냉각기ComboBox.Enabled = False + ' 보조방음기유무ComboBox.Enabled = False + ' 냉각수토출온도NTb.Enabled = True + 'End Select + + 냉동기종류ComboBox.Enabled = False + 냉동기압축방식ComboBox.Enabled = False + + Case "지역냉방" '//지역냉방 + 'Select Case V + ' Case "냉동기A", "냉동기B", "냉동기C" + ' 냉동기종류ComboBox.Enabled = False + ' 냉동기압축방식ComboBox.Enabled = False + ' 압축기제어방식ComboBox.Enabled = False + ' 냉동기설비시스템ComboBox.Enabled = False + ' 제어방식ComboBox.Enabled = False + ' 온수열생산기기ComboBox.Enabled = False + ' 증발식건식냉각기ComboBox.Enabled = False + ' 증발식냉각기ComboBox.Enabled = False + ' 보조방음기유무ComboBox.Enabled = False + ' 냉각수토출온도NTb.Enabled = False + 'End Select + + + 냉동기종류ComboBox.Enabled = False + 냉동기압축방식ComboBox.Enabled = False + End Select + Catch ex As Exception + + End Try + Try + If Me.냉동기압축방식ComboBox.Text = "왕복동/스크롤 압축기" Then + Me.압축기제어방식ComboBox.Enabled = True + Else + Me.압축기제어방식ComboBox.SelectedIndex = 0 '//없음으로 설정하고 + Me.압축기제어방식ComboBox.Enabled = False + End If + Catch ex As Exception + + End Try + + Try + If Me.냉동기방식ComboBox.Text = "흡수식" Then + Me.cmb_열생산연결방식.Enabled = True + Me.압축기제어방식ComboBox.Enabled = False + Me.냉동기설비시스템ComboBox.Enabled = False + Me.제어방식ComboBox.Enabled = False + Try + If Me.cmb_열생산연결방식.Text = "직화식" Then + Me.cmb_사용연료.Enabled = True + Me.온수열생산기기ComboBox.Enabled = False + Else + If Me.cmb_열생산연결방식.Text = "외부연결" Then + Me.cmb_사용연료.Enabled = False + Me.온수열생산기기ComboBox.Enabled = True + Else + Me.cmb_사용연료.Enabled = False + Me.온수열생산기기ComboBox.Enabled = False + End If + End If + Catch ex As Exception + End Try + Me.재냉각기GroupBox.Enabled = True + Else + Me.cmb_열생산연결방식.Enabled = False + Me.cmb_사용연료.Enabled = False + Me.온수열생산기기ComboBox.Enabled = False + + If Me.냉동기방식ComboBox.Text = "압축식" Or Me.냉동기방식ComboBox.Text = "압축식(LNG)" Then + Select Case Me.냉동기종류ComboBox.Text + Case "수냉식" + Me.재냉각기GroupBox.Enabled = True + Me.냉동기압축방식ComboBox.Enabled = True + Me.냉동기설비시스템ComboBox.Enabled = False + Me.제어방식ComboBox.Enabled = False + Case "공냉식" + Me.재냉각기GroupBox.Enabled = False + Me.냉동기압축방식ComboBox.Enabled = True + Me.냉동기설비시스템ComboBox.Enabled = False + Me.제어방식ComboBox.Enabled = False + Case "실내공조시스템" + Me.냉동기압축방식ComboBox.Enabled = False + Me.냉동기설비시스템ComboBox.Enabled = True + Me.제어방식ComboBox.Enabled = True + Me.압축기제어방식ComboBox.Enabled = False + Me.재냉각기GroupBox.Enabled = False + Case Else + + End Select + Else + Me.냉동기압축방식ComboBox.Enabled = False + Me.냉동기설비시스템ComboBox.Enabled = False + Me.제어방식ComboBox.Enabled = False + Me.압축기제어방식ComboBox.Enabled = False + Me.재냉각기GroupBox.Enabled = False + End If + End If + Catch ex As Exception + + End Try + Me.bs.EndEdit() + End Sub + + Private Sub bs_CurrentChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bs.CurrentChanged + If Not Init Then Return + + Dim drv As DataRowView = Me.bs.Current + If drv Is Nothing Then Return + Me.lb_code.Text = "[" + drv("code").ToString + "]" + + If Drv Is Nothing Then Return + Dim DR() As DS.tbl_zoneRow = DSET1.tbl_zone.Select("열생산냉방생산기기='" & Drv("code").ToString & "' or 공조냉방생산기기='" & Drv("code").ToString & "'") '//2010.12.02 수정 + Dim cnt As Integer = 0 + For Each drow As DS.tbl_zoneRow In DR + Dim 입력존수문자 As Integer = drow.입력존의수 + If IsNumeric(입력존수문자) = False Then 입력존수문자 = "1" + cnt += CInt(입력존수문자) + Next + Me.tb_zone_cnt.Text = cnt.ToString() + Me.bs.EndEdit() + End Sub + + Private Sub 냉동기방식ComboBox_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 냉동기방식ComboBox.SelectedIndexChanged + Validate_Control() + End Sub + + Private Sub 냉동기압축방식ComboBox_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 냉동기압축방식ComboBox.SelectedIndexChanged + Validate_Control() + End Sub + + + Private Sub bt_Del_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles bt_Del.MouseDown + If e.Button = Windows.Forms.MouseButtons.Right Then + If MsgBox("전체삭제를 하시겠습니까?", MsgBoxStyle.Information Or MsgBoxStyle.OkCancel, "확인") = MsgBoxResult.Ok Then + Dim dR() As DataRow = DSET1.tbl_nangbangkiki.Select(Me.bs.Filter, "") + For i As Integer = dR.GetUpperBound(0) To 0 Step -1 + dR(i).Delete() + Next + DSET1.tbl_nangbangkiki.AcceptChanges() + End If + End If + End Sub + + Private Sub SplitContainer1_Panel2_Paint(ByVal sender As System.Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles SplitContainer1.Panel2.Paint + + End Sub + + Private Sub 냉동기종류ComboBox_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 냉동기종류ComboBox.SelectedIndexChanged + Validate_Control() + End Sub + + Private Sub cmb_열생산연결방식_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles cmb_열생산연결방식.SelectedIndexChanged + Validate_Control() + End Sub + + Private Sub dv_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles dv.MouseUp + If Prj.UserAuthType = "ADMIN" OrElse Prj.UserAuthType = "BOTH" OrElse Prj.UserAuthType = "BOTH2" OrElse Prj.UserAuthType = "BOTH1" Then '//2011.03.08 추가 + If e.Button = Windows.Forms.MouseButtons.Right Then + Dim Frm_FilterA As New Frm_Filter + Frm_FilterA.ColumTitle = getColCaption(Me.Dt) + Frm_FilterA.ColumList = getColName(Me.Dt) + Frm_FilterA.Colorlist = "온수열생산기기,연결된시스템" + Frm_FilterA.Numfield = "" '//20100618 Color 리스트처럼 , 구분해서 필드들을 모두 넣으세요.(=, >= 등을 사용하기 위해서는 해당 항목을 추가 요망) + Frm_FilterA.Default_Filter = "code <> '0'" + + If Frm_FilterA.ShowDialog <> Windows.Forms.DialogResult.OK Then Return '//창떳을떄 확인아ㅣ고 취소눌르면 다음을 수행하지않는다는거에요. + Dim Filter As String = Frm_FilterA.tb_filter.Text '//값은 아까 그 텍박에 잇구요. + Try + Me.bs.Filter = Filter + + '//바꾸기값이 있으면 변경 20100618 + If Frm_FilterA.cmb_fieldc.SelectedIndex >= 0 AndAlso Frm_FilterA.cmb_fieldc.Text.ToLower <> "code" AndAlso _ + Frm_FilterA.tb_valuec.Text <> "" Then + Dim Drow() As DataRow = Me.Dt.Select(Filter) + For Each Dr As DataRow In Drow + Dr(Frm_FilterA.cmb_fieldc.Text) = Frm_FilterA.tb_valuec.Text + Next + MsgBox("바꾸기 완료", MsgBoxStyle.Information, "확인") + End If + + Catch ex As Exception + Me.bs.Filter = "" + End Try + End If + End If + End Sub + + Private Sub dv_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles dv.KeyDown + '//여기보시면 alt+d 누르면 한줄을 경고없이(falsE)삭제하도록 햇어요.. 사실원래 밋alt +d 인데.. ㅎㅎ 잘못해서 ctrl 됫다는 + If Prj.UserAuthType = "ADMIN" OrElse Prj.UserAuthType = "BOTH" OrElse Prj.UserAuthType = "BOTH2" OrElse Prj.UserAuthType = "BOTH1" Then '//2011.03.08 추가 + Select Case e.KeyCode + Case Keys.D + If e.Alt Then + Dbbase.DelCrow(Me.bs, False) + End If + Case Keys.C + If e.Control Then + Me.SrcDrv = Me.bs.Current + If Me.SrcDrv Is Nothing Then + MsgBox("저장할 ROW가 없습니다", MsgBoxStyle.Information, "확인") + Return + End If + ' My.Computer.Clipboard.SetData("ZDATA", Drv) + End If + Case Keys.V + If e.Control Then + If Me.SrcDrv Is Nothing Then Return + Me.bt_add.PerformClick() '//신규추가 + Dim NewDrv As DataRowView = Me.bs.Current + + For Each C As DataColumn In Me.Dt.Columns + If C.ColumnName.ToUpper = "CODE" Then + ElseIf C.ColumnName.ToUpper = "설명" Then + NewDrv(C.ColumnName) = SrcDrv(C.ColumnName) & "#1" + Else + NewDrv(C.ColumnName) = SrcDrv(C.ColumnName) + End If + Next + Me.bs.EndEdit() + bs.MoveLast() + End If + End Select + End If + End Sub + + Private Sub dv_CellContentClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles dv.CellContentClick + + End Sub + + Private Sub chk_헤더적용_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles chk_헤더적용.CheckedChanged + If Me.chk_헤더적용.Checked = True AndAlso Me.chk_개별기기적용.Checked = True Then + MsgBox("개별기기와 헤더가 모두 체크되었습니다. 둘 중 하나만 체크하시기 바랍니다.", MsgBoxStyle.Information, "확인") + End If + End Sub + + Private Sub chk_개별기기적용_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles chk_개별기기적용.CheckedChanged + If Me.chk_개별기기적용.Checked = True AndAlso Me.chk_헤더적용.Checked = True Then + MsgBox("개별기기와 헤더가 모두 체크되었습니다. 둘 중 하나만 체크하시기 바랍니다.", MsgBoxStyle.Information, "확인") + End If + End Sub +End Class \ No newline at end of file diff --git a/ArinWarev1/Forms_Input/Frm_Nanbang.Designer.vb b/ArinWarev1/Forms_Input/Frm_Nanbang.Designer.vb new file mode 100644 index 0000000..517d972 --- /dev/null +++ b/ArinWarev1/Forms_Input/Frm_Nanbang.Designer.vb @@ -0,0 +1,1896 @@ + _ +Partial Class Frm_Nanbang + Inherits CForm + + 'Form은 Dispose를 재정의하여 구성 요소 목록을 정리합니다. + _ + Protected Overrides Sub Dispose(ByVal disposing As Boolean) + Try + If disposing AndAlso components IsNot Nothing Then + components.Dispose() + End If + Finally + MyBase.Dispose(disposing) + End Try + End Sub + + 'Windows Form 디자이너에 필요합니다. + Private components As System.ComponentModel.IContainer + + '참고: 다음 프로시저는 Windows Form 디자이너에 필요합니다. + '수정하려면 Windows Form 디자이너를 사용하십시오. + '코드 편집기를 사용하여 수정하지 마십시오. + _ + Private Sub InitializeComponent() + Me.components = New System.ComponentModel.Container() + Dim Label165 As System.Windows.Forms.Label + Dim Label166 As System.Windows.Forms.Label + Dim Label181 As System.Windows.Forms.Label + Dim Label185 As System.Windows.Forms.Label + Dim Label186 As System.Windows.Forms.Label + Dim Label188 As System.Windows.Forms.Label + Dim Label184 As System.Windows.Forms.Label + Dim Label190 As System.Windows.Forms.Label + Dim Label193 As System.Windows.Forms.Label + Dim Label192 As System.Windows.Forms.Label + Dim Label194 As System.Windows.Forms.Label + Dim Label195 As System.Windows.Forms.Label + Dim Label196 As System.Windows.Forms.Label + Dim Label2 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 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 Label1 As System.Windows.Forms.Label + Dim Label17 As System.Windows.Forms.Label + Dim Label16 As System.Windows.Forms.Label + Dim Label19 As System.Windows.Forms.Label + Dim Label20 As System.Windows.Forms.Label + Dim Label27 As System.Windows.Forms.Label + Dim Label28 As System.Windows.Forms.Label + Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(Frm_Nanbang)) + Me.Label182 = New System.Windows.Forms.Label() + Me.Label180 = New System.Windows.Forms.Label() + Me.GroupBox2 = New System.Windows.Forms.GroupBox() + Me.tb_보일러대수다수 = New Eco2Ar.MyTb() + Me.bs = New System.Windows.Forms.BindingSource(Me.components) + Me.DS = New Eco2Ar.DS() + Me.Label50 = New System.Windows.Forms.Label() + Me.운전방식NCMB = New Eco2Ar.MyCmb() + Me.PictureBox2 = New System.Windows.Forms.PictureBox() + Me.GroupBox1 = New System.Windows.Forms.GroupBox() + Me.열교환기정격출력NTb = New Eco2Ar.MyTb() + Me.Label23 = New System.Windows.Forms.Label() + Me.Label21 = New System.Windows.Forms.Label() + Me.보일러정격출력NTb = New Eco2Ar.MyTb() + Me.환수온도NTb1 = New Eco2Ar.MyTb() + Me.급수온도NTb1 = New Eco2Ar.MyTb() + Me.사용연료NCMB = New Eco2Ar.MyCmb() + Me.열생산기기방식NCMB = New Eco2Ar.MyCmb() + Me.PictureBox1 = New System.Windows.Forms.PictureBox() + Me.GroupBox5 = New System.Windows.Forms.GroupBox() + Me.cmb_히트펌프시스템종류 = New Eco2Ar.MyCmb() + Me.tb_히트길이 = New Eco2Ar.MyTb() + Me.cmb_히트사용연료 = New Eco2Ar.MyCmb() + Me.tb_히트정격10 = New Eco2Ar.MyTb() + Me.tb_히트정격7 = New Eco2Ar.MyTb() + Me.tb_히트용량 = New Eco2Ar.MyTb() + Me.PictureBox9 = New System.Windows.Forms.PictureBox() + Me.Label189 = New System.Windows.Forms.Label() + Me.GroupBox7 = New System.Windows.Forms.GroupBox() + Me.축열탱크방식NCMB = New Eco2Ar.MyCmb() + Me.MyTb1 = New Eco2Ar.MyTb() + Me.축열제척NTb = New Eco2Ar.MyTb() + Me.PictureBox10 = New System.Windows.Forms.PictureBox() + Me.GroupBox8 = New System.Windows.Forms.GroupBox() + Me.배관망유형ComboBox = New Eco2Ar.MyCmb() + Me.펌프제어유형ComboBox = New Eco2Ar.MyCmb() + Me.펌프동력NTb = New Eco2Ar.MyTb() + Me.펌프교정계수ComboBox = New Eco2Ar.MyCmb() + Me.PictureBox16 = New System.Windows.Forms.PictureBox() + Me.GroupBox10 = New System.Windows.Forms.GroupBox() + Me.분배시스템방식ComboBox = New Eco2Ar.MyCmb() + Me.펌프동력급탕NTb = New Eco2Ar.MyTb() + Me.펌프제어ComboBox = New Eco2Ar.MyCmb() + Me.순환유무ComboBox = New Eco2Ar.MyCmb() + Me.PictureBox11 = New System.Windows.Forms.PictureBox() + Me.GroupBox9 = New System.Windows.Forms.GroupBox() + Me.RadioButton2 = New System.Windows.Forms.RadioButton() + Me.RadioButton1 = New System.Windows.Forms.RadioButton() + Me.열공급층수NTb = New Eco2Ar.MyTb() + Me.건물넓이NTb = New Eco2Ar.MyTb() + Me.급탕배관길이NTB = New Eco2Ar.MyTb() + Me.건물길이NTb = New Eco2Ar.MyTb() + Me.층고NTb = New Eco2Ar.MyTb() + Me.PictureBox12 = New System.Windows.Forms.PictureBox() + Me.GroupBox39 = New System.Windows.Forms.GroupBox() + Me.Label22 = New System.Windows.Forms.Label() + Me.cmb_신재생 = New Eco2Ar.MyCmb() + Me.신재생연결여부ComboBox = New Eco2Ar.MyCmb() + Me.PictureBox17 = New System.Windows.Forms.PictureBox() + Me.SplitContainer1 = New System.Windows.Forms.SplitContainer() + Me.dv = New CEnergy.arindv() + 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() + Me.bt_Del = New System.Windows.Forms.ToolStripButton() + Me.bt_cancel = New System.Windows.Forms.ToolStripButton() + Me.ToolStripSeparator1 = New System.Windows.Forms.ToolStripSeparator() + Me.lbl_pos = New System.Windows.Forms.ToolStripLabel() + Me.ToolStripSeparator2 = New System.Windows.Forms.ToolStripSeparator() + Me.lb_code = New System.Windows.Forms.ToolStripLabel() + Me.chk_헤더적용 = New System.Windows.Forms.CheckBox() + Me.chk_개별기기적용 = New System.Windows.Forms.CheckBox() + Me.Label30 = New System.Windows.Forms.Label() + Me.PictureBox6 = New System.Windows.Forms.PictureBox() + Me.Label18 = New System.Windows.Forms.Label() + Me.PictureBox15 = New System.Windows.Forms.PictureBox() + Me.Label29 = New System.Windows.Forms.Label() + Me.PictureBox5 = New System.Windows.Forms.PictureBox() + Me.Label31 = New System.Windows.Forms.Label() + Me.Label25 = New System.Windows.Forms.Label() + Me.PictureBox4 = New System.Windows.Forms.PictureBox() + Me.PictureBox3 = New System.Windows.Forms.PictureBox() + Me.GroupBox4 = New System.Windows.Forms.GroupBox() + Me.단열등급NCMB = New Eco2Ar.MyCmb() + Me.지역난방방식NCMB = New Eco2Ar.MyCmb() + Me.PictureBox7 = New System.Windows.Forms.PictureBox() + Me.GroupBox3 = New System.Windows.Forms.GroupBox() + Me.보일러방식NCMB = New Eco2Ar.MyCmb() + Me.정격보일러효율NTb = New Eco2Ar.MyTb() + Me.PictureBox8 = New System.Windows.Forms.PictureBox() + Me.ToolStrip1 = New System.Windows.Forms.ToolStrip() + Me.ToolStripLabel1 = New System.Windows.Forms.ToolStripLabel() + Me.lbl_cnt1 = New System.Windows.Forms.ToolStripLabel() + Me.ToolStripLabel3 = New System.Windows.Forms.ToolStripLabel() + Me.lbl_cnt2 = New System.Windows.Forms.ToolStripLabel() + Me.Label26 = New System.Windows.Forms.Label() + Me.PictureBox14 = New System.Windows.Forms.PictureBox() + Me.Label24 = New System.Windows.Forms.Label() + Me.PictureBox13 = New System.Windows.Forms.PictureBox() + Me.설명DataGridViewTextBoxColumn = New System.Windows.Forms.DataGridViewTextBoxColumn() + Label165 = New System.Windows.Forms.Label() + Label166 = New System.Windows.Forms.Label() + Label181 = New System.Windows.Forms.Label() + Label185 = New System.Windows.Forms.Label() + Label186 = New System.Windows.Forms.Label() + Label188 = New System.Windows.Forms.Label() + Label184 = New System.Windows.Forms.Label() + Label190 = New System.Windows.Forms.Label() + Label193 = New System.Windows.Forms.Label() + Label192 = New System.Windows.Forms.Label() + Label194 = New System.Windows.Forms.Label() + Label195 = New System.Windows.Forms.Label() + Label196 = New System.Windows.Forms.Label() + Label2 = 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() + 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() + Label1 = New System.Windows.Forms.Label() + Label17 = New System.Windows.Forms.Label() + Label16 = New System.Windows.Forms.Label() + Label19 = New System.Windows.Forms.Label() + Label20 = New System.Windows.Forms.Label() + Label27 = New System.Windows.Forms.Label() + Label28 = New System.Windows.Forms.Label() + Me.GroupBox2.SuspendLayout() + CType(Me.bs, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.DS, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.PictureBox2, System.ComponentModel.ISupportInitialize).BeginInit() + Me.GroupBox1.SuspendLayout() + CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit() + Me.GroupBox5.SuspendLayout() + CType(Me.PictureBox9, System.ComponentModel.ISupportInitialize).BeginInit() + Me.GroupBox7.SuspendLayout() + CType(Me.PictureBox10, System.ComponentModel.ISupportInitialize).BeginInit() + Me.GroupBox8.SuspendLayout() + CType(Me.PictureBox16, System.ComponentModel.ISupportInitialize).BeginInit() + Me.GroupBox10.SuspendLayout() + CType(Me.PictureBox11, System.ComponentModel.ISupportInitialize).BeginInit() + Me.GroupBox9.SuspendLayout() + CType(Me.PictureBox12, System.ComponentModel.ISupportInitialize).BeginInit() + Me.GroupBox39.SuspendLayout() + CType(Me.PictureBox17, System.ComponentModel.ISupportInitialize).BeginInit() + 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.bn, System.ComponentModel.ISupportInitialize).BeginInit() + Me.bn.SuspendLayout() + CType(Me.PictureBox6, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.PictureBox15, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.PictureBox5, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.PictureBox4, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.PictureBox3, System.ComponentModel.ISupportInitialize).BeginInit() + Me.GroupBox4.SuspendLayout() + CType(Me.PictureBox7, System.ComponentModel.ISupportInitialize).BeginInit() + Me.GroupBox3.SuspendLayout() + CType(Me.PictureBox8, System.ComponentModel.ISupportInitialize).BeginInit() + Me.ToolStrip1.SuspendLayout() + CType(Me.PictureBox14, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.PictureBox13, System.ComponentModel.ISupportInitialize).BeginInit() + Me.SuspendLayout() + ' + 'Label165 + ' + Label165.AutoSize = True + Label165.BackColor = System.Drawing.Color.FromArgb(CType(CType(219, Byte), Integer), CType(CType(221, Byte), Integer), CType(CType(223, Byte), Integer)) + Label165.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label165.Location = New System.Drawing.Point(4, 44) + Label165.Name = "Label165" + Label165.Size = New System.Drawing.Size(62, 12) + Label165.TabIndex = 10 + Label165.Text = "사용연료:" + ' + 'Label166 + ' + Label166.AutoSize = True + Label166.BackColor = System.Drawing.Color.FromArgb(CType(CType(219, Byte), Integer), CType(CType(221, Byte), Integer), CType(CType(223, Byte), Integer)) + Label166.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label166.Location = New System.Drawing.Point(4, 17) + Label166.Name = "Label166" + Label166.Size = New System.Drawing.Size(119, 12) + Label166.TabIndex = 8 + Label166.Text = "열생산기기의 방식:" + Label166.TextAlign = System.Drawing.ContentAlignment.MiddleRight + ' + 'Label181 + ' + Label181.AutoSize = True + Label181.BackColor = System.Drawing.Color.FromArgb(CType(CType(219, Byte), Integer), CType(CType(221, Byte), Integer), CType(CType(223, Byte), Integer)) + Label181.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label181.Location = New System.Drawing.Point(215, 17) + Label181.Name = "Label181" + Label181.Size = New System.Drawing.Size(114, 12) + Label181.TabIndex = 10 + Label181.Text = "보일러-용량[kW]:" + Label181.TextAlign = System.Drawing.ContentAlignment.MiddleLeft + ' + 'Label185 + ' + Label185.AutoSize = True + Label185.BackColor = System.Drawing.Color.FromArgb(CType(CType(219, Byte), Integer), CType(CType(221, Byte), Integer), CType(CType(223, Byte), Integer)) + Label185.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label185.Location = New System.Drawing.Point(4, 66) + Label185.Name = "Label185" + Label185.Size = New System.Drawing.Size(86, 12) + Label185.TabIndex = 18 + Label185.Text = "급수온도[C]:" + ' + 'Label186 + ' + Label186.AutoSize = True + Label186.BackColor = System.Drawing.Color.FromArgb(CType(CType(219, Byte), Integer), CType(CType(221, Byte), Integer), CType(CType(223, Byte), Integer)) + Label186.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label186.Location = New System.Drawing.Point(4, 92) + Label186.Name = "Label186" + Label186.Size = New System.Drawing.Size(86, 12) + Label186.TabIndex = 20 + Label186.Text = "환수온도[C]:" + ' + 'Label188 + ' + Label188.BackColor = System.Drawing.Color.FromArgb(CType(CType(219, Byte), Integer), CType(CType(221, Byte), Integer), CType(CType(223, Byte), Integer)) + Label188.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label188.Location = New System.Drawing.Point(209, 76) + Label188.Name = "Label188" + Label188.Size = New System.Drawing.Size(120, 31) + Label188.TabIndex = 24 + Label188.Text = "지역난방 열교환기 정격용량[kW]:" + Label188.TextAlign = System.Drawing.ContentAlignment.MiddleCenter + ' + 'Label184 + ' + Label184.AutoSize = True + Label184.BackColor = System.Drawing.Color.FromArgb(CType(CType(243, Byte), Integer), CType(CType(244, Byte), Integer), CType(CType(246, Byte), Integer)) + Label184.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label184.Location = New System.Drawing.Point(6, 16) + Label184.Name = "Label184" + Label184.Size = New System.Drawing.Size(101, 12) + Label184.TabIndex = 125 + Label184.Text = "보일러효율[%]:" + ' + 'Label190 + ' + Label190.AutoSize = True + Label190.BackColor = System.Drawing.Color.FromArgb(CType(CType(243, Byte), Integer), CType(CType(244, Byte), Integer), CType(CType(246, Byte), Integer)) + Label190.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label190.Location = New System.Drawing.Point(6, 65) + Label190.Name = "Label190" + Label190.Size = New System.Drawing.Size(80, 12) + Label190.TabIndex = 125 + Label190.Text = "보일러 방식:" + Label190.TextAlign = System.Drawing.ContentAlignment.MiddleLeft + ' + 'Label193 + ' + Label193.AutoSize = True + Label193.BackColor = System.Drawing.Color.FromArgb(CType(CType(243, Byte), Integer), CType(CType(244, Byte), Integer), CType(CType(246, Byte), Integer)) + Label193.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label193.Location = New System.Drawing.Point(6, 52) + Label193.Name = "Label193" + Label193.Size = New System.Drawing.Size(106, 12) + Label193.TabIndex = 125 + Label193.Text = "기계실 단열등급:" + Label193.TextAlign = System.Drawing.ContentAlignment.MiddleLeft + ' + 'Label192 + ' + Label192.AutoSize = True + Label192.BackColor = System.Drawing.Color.FromArgb(CType(CType(243, Byte), Integer), CType(CType(244, Byte), Integer), CType(CType(246, Byte), Integer)) + Label192.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label192.Location = New System.Drawing.Point(17, 26) + Label192.Name = "Label192" + Label192.Size = New System.Drawing.Size(93, 12) + Label192.TabIndex = 125 + Label192.Text = "지역난방 방식:" + Label192.TextAlign = System.Drawing.ContentAlignment.MiddleLeft + ' + 'Label194 + ' + Label194.AutoSize = True + Label194.BackColor = System.Drawing.Color.FromArgb(CType(CType(219, Byte), Integer), CType(CType(221, Byte), Integer), CType(CType(223, Byte), Integer)) + Label194.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label194.Location = New System.Drawing.Point(5, 21) + Label194.Name = "Label194" + Label194.Size = New System.Drawing.Size(88, 12) + Label194.TabIndex = 125 + Label194.Text = "축열탱크방식:" + Label194.TextAlign = System.Drawing.ContentAlignment.MiddleLeft + ' + 'Label195 + ' + Label195.AutoSize = True + Label195.BackColor = System.Drawing.Color.FromArgb(CType(CType(219, Byte), Integer), CType(CType(221, Byte), Integer), CType(CType(223, Byte), Integer)) + Label195.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label195.Location = New System.Drawing.Point(5, 82) + Label195.Name = "Label195" + Label195.Size = New System.Drawing.Size(118, 12) + Label195.TabIndex = 125 + Label195.Text = "펌프 정격동력[W]:" + Label195.TextAlign = System.Drawing.ContentAlignment.MiddleLeft + ' + 'Label196 + ' + Label196.AutoSize = True + Label196.BackColor = System.Drawing.Color.FromArgb(CType(CType(219, Byte), Integer), CType(CType(221, Byte), Integer), CType(CType(223, Byte), Integer)) + Label196.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label196.Location = New System.Drawing.Point(5, 54) + Label196.Name = "Label196" + Label196.Size = New System.Drawing.Size(111, 12) + Label196.TabIndex = 125 + Label196.Text = "축열탱크 용량[l]:" + Label196.TextAlign = System.Drawing.ContentAlignment.MiddleLeft + ' + 'Label2 + ' + Label2.AutoSize = True + Label2.BackColor = System.Drawing.Color.FromArgb(CType(CType(243, Byte), Integer), CType(CType(244, Byte), Integer), CType(CType(246, Byte), Integer)) + Label2.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label2.Location = New System.Drawing.Point(7, 16) + Label2.Name = "Label2" + Label2.Size = New System.Drawing.Size(185, 12) + Label2.TabIndex = 8 + Label2.Text = "＊배관망-유형(이중배관고정):" + ' + 'Label3 + ' + Label3.AutoSize = True + Label3.BackColor = System.Drawing.Color.FromArgb(CType(CType(243, Byte), Integer), CType(CType(244, Byte), Integer), CType(CType(246, Byte), Integer)) + Label3.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label3.Location = New System.Drawing.Point(7, 94) + Label3.Name = "Label3" + Label3.Size = New System.Drawing.Size(195, 12) + Label3.TabIndex = 14 + Label3.Text = "＊펌프동력(다수는 동력합)[W]:" + ' + 'Label4 + ' + Label4.AutoSize = True + Label4.BackColor = System.Drawing.Color.FromArgb(CType(CType(243, Byte), Integer), CType(CType(244, Byte), Integer), CType(CType(246, Byte), Integer)) + Label4.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label4.Location = New System.Drawing.Point(7, 68) + Label4.Name = "Label4" + Label4.Size = New System.Drawing.Size(101, 12) + Label4.TabIndex = 12 + Label4.Text = "＊펌프제어유형:" + ' + 'Label5 + ' + 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, 42) + Label5.Name = "Label5" + Label5.Size = New System.Drawing.Size(170, 12) + Label5.TabIndex = 10 + Label5.Text = "＊펌프감소계수(야간,주말):" + ' + 'Label6 + ' + Label6.AutoSize = True + Label6.BackColor = System.Drawing.Color.FromArgb(CType(CType(219, Byte), Integer), CType(CType(221, Byte), Integer), CType(CType(223, Byte), Integer)) + Label6.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label6.Location = New System.Drawing.Point(7, 38) + Label6.Name = "Label6" + Label6.Size = New System.Drawing.Size(74, 12) + Label6.TabIndex = 18 + Label6.Text = "순환 유/무:" + ' + 'Label7 + ' + Label7.AutoSize = True + Label7.BackColor = System.Drawing.Color.FromArgb(CType(CType(219, Byte), Integer), CType(CType(221, Byte), Integer), CType(CType(223, Byte), Integer)) + Label7.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label7.Location = New System.Drawing.Point(7, 17) + Label7.Name = "Label7" + Label7.Size = New System.Drawing.Size(75, 12) + Label7.TabIndex = 16 + Label7.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(7, 85) + Label8.Name = "Label8" + Label8.Size = New System.Drawing.Size(87, 12) + Label8.TabIndex = 22 + Label8.Text = "펌프동력[W]:" + ' + '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(7, 62) + Label9.Name = "Label9" + Label9.Size = New System.Drawing.Size(62, 12) + Label9.TabIndex = 20 + Label9.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, 34) + Label10.Name = "Label10" + Label10.Size = New System.Drawing.Size(60, 12) + Label10.TabIndex = 24 + Label10.Text = "길이[m]:" + ' + 'Label11 + ' + 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(117, 57) + Label11.Name = "Label11" + Label11.Size = New System.Drawing.Size(60, 12) + Label11.TabIndex = 30 + Label11.Text = "층고[m]:" + ' + 'Label12 + ' + Label12.AutoSize = True + Label12.BackColor = System.Drawing.Color.FromArgb(CType(CType(219, Byte), Integer), CType(CType(221, Byte), Integer), CType(CType(223, Byte), Integer)) + Label12.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label12.Location = New System.Drawing.Point(6, 56) + Label12.Name = "Label12" + Label12.Size = New System.Drawing.Size(60, 12) + Label12.TabIndex = 26 + Label12.Text = "너비[m]:" + ' + 'Label13 + ' + Label13.AutoSize = True + Label13.BackColor = System.Drawing.Color.FromArgb(CType(CType(219, Byte), Integer), CType(CType(221, Byte), Integer), CType(CType(223, Byte), Integer)) + Label13.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label13.Location = New System.Drawing.Point(138, 35) + Label13.Name = "Label13" + Label13.Size = New System.Drawing.Size(41, 12) + Label13.TabIndex = 28 + Label13.Text = "층 수:" + ' + 'Label14 + ' + Label14.AutoSize = True + Label14.BackColor = System.Drawing.Color.FromArgb(CType(CType(243, Byte), Integer), CType(CType(244, Byte), Integer), CType(CType(246, Byte), Integer)) + Label14.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label14.Location = New System.Drawing.Point(6, 35) + Label14.Name = "Label14" + Label14.Size = New System.Drawing.Size(162, 12) + Label14.TabIndex = 32 + Label14.Text = "-신재생 시스템 연결 여부:" + ' + 'Label15 + ' + Label15.AutoSize = True + Label15.BackColor = System.Drawing.Color.FromArgb(CType(CType(243, Byte), Integer), CType(CType(244, Byte), Integer), CType(CType(246, Byte), Integer)) + Label15.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label15.Location = New System.Drawing.Point(8, 60) + Label15.Name = "Label15" + Label15.Size = New System.Drawing.Size(100, 12) + Label15.TabIndex = 34 + Label15.Text = "-연결된 시스템:" + ' + 'Label1 + ' + Label1.AutoSize = True + Label1.BackColor = System.Drawing.Color.FromArgb(CType(CType(243, Byte), Integer), CType(CType(244, Byte), Integer), CType(CType(246, Byte), Integer)) + Label1.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label1.Location = New System.Drawing.Point(7, 15) + Label1.Name = "Label1" + Label1.Size = New System.Drawing.Size(67, 12) + Label1.TabIndex = 125 + Label1.Text = "사용연료 :" + Label1.TextAlign = System.Drawing.ContentAlignment.MiddleCenter + ' + 'Label17 + ' + Label17.AutoSize = True + Label17.BackColor = System.Drawing.Color.FromArgb(CType(CType(243, Byte), Integer), CType(CType(244, Byte), Integer), CType(CType(246, Byte), Integer)) + Label17.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label17.Location = New System.Drawing.Point(7, 38) + Label17.Name = "Label17" + Label17.Size = New System.Drawing.Size(176, 12) + Label17.TabIndex = 125 + Label17.Text = "난방용량(다수는 평균)[kW]:" + Label17.TextAlign = System.Drawing.ContentAlignment.MiddleLeft + ' + 'Label16 + ' + Label16.AutoSize = True + Label16.BackColor = System.Drawing.Color.FromArgb(CType(CType(243, Byte), Integer), CType(CType(244, Byte), Integer), CType(CType(246, Byte), Integer)) + Label16.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label16.Location = New System.Drawing.Point(7, 60) + Label16.Name = "Label16" + Label16.Size = New System.Drawing.Size(149, 12) + Label16.TabIndex = 125 + Label16.Text = "히트펌프난방COP(7도):" + Label16.TextAlign = System.Drawing.ContentAlignment.MiddleLeft + ' + 'Label19 + ' + Label19.AutoSize = True + Label19.BackColor = System.Drawing.Color.FromArgb(CType(CType(243, Byte), Integer), CType(CType(244, Byte), Integer), CType(CType(246, Byte), Integer)) + Label19.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label19.Location = New System.Drawing.Point(7, 82) + Label19.Name = "Label19" + Label19.Size = New System.Drawing.Size(163, 12) + Label19.TabIndex = 125 + Label19.Text = "히트펌프난방COP(-15도):" + Label19.TextAlign = System.Drawing.ContentAlignment.MiddleLeft + ' + 'Label20 + ' + Label20.AutoSize = True + Label20.BackColor = System.Drawing.Color.FromArgb(CType(CType(243, Byte), Integer), CType(CType(244, Byte), Integer), CType(CType(246, Byte), Integer)) + Label20.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label20.Location = New System.Drawing.Point(7, 104) + Label20.Name = "Label20" + Label20.Size = New System.Drawing.Size(182, 12) + Label20.TabIndex = 125 + Label20.Text = "실내외기의 최대배관길이[m]:" + Label20.TextAlign = System.Drawing.ContentAlignment.MiddleLeft + ' + 'Label27 + ' + Label27.AutoSize = True + Label27.BackColor = System.Drawing.Color.FromArgb(CType(CType(243, Byte), Integer), CType(CType(244, Byte), Integer), CType(CType(246, Byte), Integer)) + Label27.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label27.Location = New System.Drawing.Point(7, 127) + Label27.Name = "Label27" + Label27.Size = New System.Drawing.Size(80, 12) + Label27.TabIndex = 125 + Label27.Text = "시스템 종류:" + Label27.TextAlign = System.Drawing.ContentAlignment.MiddleLeft + ' + 'Label28 + ' + Label28.AutoSize = True + Label28.BackColor = System.Drawing.Color.FromArgb(CType(CType(219, Byte), Integer), CType(CType(221, Byte), Integer), CType(CType(223, Byte), Integer)) + Label28.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label28.Location = New System.Drawing.Point(91, 84) + Label28.Name = "Label28" + Label28.Size = New System.Drawing.Size(86, 12) + Label28.TabIndex = 24 + Label28.Text = "배관길이[m]:" + ' + 'Label182 + ' + Me.Label182.AutoSize = True + Me.Label182.BackColor = System.Drawing.Color.FromArgb(CType(CType(219, Byte), Integer), CType(CType(221, Byte), Integer), CType(CType(223, Byte), Integer)) + Me.Label182.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Me.Label182.Location = New System.Drawing.Point(7, 69) + Me.Label182.Name = "Label182" + Me.Label182.Size = New System.Drawing.Size(131, 24) + Me.Label182.TabIndex = 20 + Me.Label182.Text = " 보일러 대수:" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "(다수 보일러인 경우)" + Me.Label182.TextAlign = System.Drawing.ContentAlignment.MiddleLeft + ' + 'Label180 + ' + Me.Label180.AutoSize = True + Me.Label180.BackColor = System.Drawing.Color.FromArgb(CType(CType(219, Byte), Integer), CType(CType(221, Byte), Integer), CType(CType(223, Byte), Integer)) + Me.Label180.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Me.Label180.Location = New System.Drawing.Point(15, 35) + Me.Label180.Name = "Label180" + Me.Label180.Size = New System.Drawing.Size(88, 24) + Me.Label180.TabIndex = 20 + Me.Label180.Text = "난방생산기기 " & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & " 운전방식:" + ' + 'GroupBox2 + ' + Me.GroupBox2.Controls.Add(Me.Label182) + Me.GroupBox2.Controls.Add(Me.tb_보일러대수다수) + Me.GroupBox2.Controls.Add(Me.Label50) + Me.GroupBox2.Controls.Add(Me.Label180) + Me.GroupBox2.Controls.Add(Me.운전방식NCMB) + Me.GroupBox2.Controls.Add(Me.PictureBox2) + Me.GroupBox2.Location = New System.Drawing.Point(411, 57) + Me.GroupBox2.Name = "GroupBox2" + Me.GroupBox2.Size = New System.Drawing.Size(230, 114) + Me.GroupBox2.TabIndex = 119 + Me.GroupBox2.TabStop = False + ' + 'tb_보일러대수다수 + ' + Me.tb_보일러대수다수.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bs, "보일러대수", True)) + Me.tb_보일러대수다수.Location = New System.Drawing.Point(144, 63) + Me.tb_보일러대수다수.Name = "tb_보일러대수다수" + Me.tb_보일러대수다수.NectControl = Nothing + Me.tb_보일러대수다수.Size = New System.Drawing.Size(70, 21) + Me.tb_보일러대수다수.TabIndex = 7 + Me.tb_보일러대수다수.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + ' + 'bs + ' + Me.bs.DataMember = "tbl_nanbangkiki" + Me.bs.DataSource = Me.DS + Me.bs.Filter = "code <> '0'" + ' + 'DS + ' + Me.DS.DataSetName = "DS" + Me.DS.SchemaSerializationMode = System.Data.SchemaSerializationMode.IncludeSchema + ' + 'Label50 + ' + Me.Label50.AutoSize = True + Me.Label50.BackColor = System.Drawing.Color.FromArgb(CType(CType(219, Byte), Integer), CType(CType(221, Byte), Integer), CType(CType(223, Byte), Integer)) + Me.Label50.ForeColor = System.Drawing.Color.DarkCyan + Me.Label50.Location = New System.Drawing.Point(12, 16) + Me.Label50.Name = "Label50" + Me.Label50.Size = New System.Drawing.Size(101, 12) + Me.Label50.TabIndex = 118 + Me.Label50.Text = "경계조건 표준치" + Me.Label50.TextAlign = System.Drawing.ContentAlignment.MiddleRight + ' + '운전방식NCMB + ' + Me.운전방식NCMB.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList + Me.운전방식NCMB.FormattingEnabled = True + Me.운전방식NCMB.Location = New System.Drawing.Point(123, 34) + Me.운전방식NCMB.Name = "운전방식NCMB" + Me.운전방식NCMB.NectControl = Nothing + Me.운전방식NCMB.Size = New System.Drawing.Size(90, 20) + Me.운전방식NCMB.TabIndex = 6 + ' + 'PictureBox2 + ' + Me.PictureBox2.BackColor = System.Drawing.Color.FromArgb(CType(CType(219, Byte), Integer), CType(CType(221, Byte), Integer), CType(CType(223, Byte), Integer)) + Me.PictureBox2.Location = New System.Drawing.Point(2, 9) + Me.PictureBox2.Name = "PictureBox2" + Me.PictureBox2.Size = New System.Drawing.Size(225, 102) + Me.PictureBox2.TabIndex = 119 + Me.PictureBox2.TabStop = False + ' + 'GroupBox1 + ' + Me.GroupBox1.Controls.Add(Me.열교환기정격출력NTb) + Me.GroupBox1.Controls.Add(Label185) + Me.GroupBox1.Controls.Add(Label188) + Me.GroupBox1.Controls.Add(Label186) + Me.GroupBox1.Controls.Add(Me.Label23) + Me.GroupBox1.Controls.Add(Me.Label21) + Me.GroupBox1.Controls.Add(Label165) + Me.GroupBox1.Controls.Add(Label181) + Me.GroupBox1.Controls.Add(Me.보일러정격출력NTb) + Me.GroupBox1.Controls.Add(Me.환수온도NTb1) + Me.GroupBox1.Controls.Add(Label166) + Me.GroupBox1.Controls.Add(Me.급수온도NTb1) + Me.GroupBox1.Controls.Add(Me.사용연료NCMB) + Me.GroupBox1.Controls.Add(Me.열생산기기방식NCMB) + Me.GroupBox1.Controls.Add(Me.PictureBox1) + Me.GroupBox1.Location = New System.Drawing.Point(6, 57) + Me.GroupBox1.Name = "GroupBox1" + Me.GroupBox1.Size = New System.Drawing.Size(404, 114) + Me.GroupBox1.TabIndex = 2 + Me.GroupBox1.TabStop = False + ' + '열교환기정격출력NTb + ' + Me.열교환기정격출력NTb.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bs, "열교환기정격출력", True)) + Me.열교환기정격출력NTb.Location = New System.Drawing.Point(335, 79) + Me.열교환기정격출력NTb.Name = "열교환기정격출력NTb" + Me.열교환기정격출력NTb.NectControl = Nothing + Me.열교환기정격출력NTb.Size = New System.Drawing.Size(62, 21) + Me.열교환기정격출력NTb.TabIndex = 5 + Me.열교환기정격출력NTb.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + ' + 'Label23 + ' + Me.Label23.AutoSize = True + Me.Label23.BackColor = System.Drawing.Color.FromArgb(CType(CType(219, Byte), Integer), CType(CType(221, Byte), Integer), CType(CType(223, Byte), Integer)) + Me.Label23.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Me.Label23.Location = New System.Drawing.Point(226, 57) + Me.Label23.Name = "Label23" + Me.Label23.Size = New System.Drawing.Size(94, 12) + Me.Label23.TabIndex = 2 + Me.Label23.Text = " 평균정격용량)" + ' + 'Label21 + ' + Me.Label21.AutoSize = True + Me.Label21.BackColor = System.Drawing.Color.FromArgb(CType(CType(219, Byte), Integer), CType(CType(221, Byte), Integer), CType(CType(223, Byte), Integer)) + Me.Label21.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Me.Label21.Location = New System.Drawing.Point(214, 42) + Me.Label21.Name = "Label21" + Me.Label21.Size = New System.Drawing.Size(138, 12) + Me.Label21.TabIndex = 2 + Me.Label21.Text = "(※다수 보일러인 경우" + ' + '보일러정격출력NTb + ' + Me.보일러정격출력NTb.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bs, "보일러정격출력", True)) + Me.보일러정격출력NTb.Location = New System.Drawing.Point(336, 14) + Me.보일러정격출력NTb.Name = "보일러정격출력NTb" + Me.보일러정격출력NTb.NectControl = Nothing + Me.보일러정격출력NTb.Size = New System.Drawing.Size(62, 21) + Me.보일러정격출력NTb.TabIndex = 4 + Me.보일러정격출력NTb.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + ' + '환수온도NTb1 + ' + Me.환수온도NTb1.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bs, "환수온도", True)) + Me.환수온도NTb1.Location = New System.Drawing.Point(125, 87) + Me.환수온도NTb1.Name = "환수온도NTb1" + Me.환수온도NTb1.NectControl = Nothing + Me.환수온도NTb1.Size = New System.Drawing.Size(79, 21) + Me.환수온도NTb1.TabIndex = 3 + Me.환수온도NTb1.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + ' + '급수온도NTb1 + ' + Me.급수온도NTb1.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bs, "급수온도", True)) + Me.급수온도NTb1.Location = New System.Drawing.Point(125, 63) + Me.급수온도NTb1.Name = "급수온도NTb1" + Me.급수온도NTb1.NectControl = Nothing + Me.급수온도NTb1.Size = New System.Drawing.Size(79, 21) + Me.급수온도NTb1.TabIndex = 2 + Me.급수온도NTb1.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + ' + '사용연료NCMB + ' + Me.사용연료NCMB.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList + Me.사용연료NCMB.FormattingEnabled = True + Me.사용연료NCMB.Location = New System.Drawing.Point(125, 39) + Me.사용연료NCMB.Name = "사용연료NCMB" + Me.사용연료NCMB.NectControl = Nothing + Me.사용연료NCMB.Size = New System.Drawing.Size(79, 20) + Me.사용연료NCMB.TabIndex = 1 + ' + '열생산기기방식NCMB + ' + Me.열생산기기방식NCMB.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList + Me.열생산기기방식NCMB.FormattingEnabled = True + Me.열생산기기방식NCMB.Location = New System.Drawing.Point(125, 14) + Me.열생산기기방식NCMB.Name = "열생산기기방식NCMB" + Me.열생산기기방식NCMB.NectControl = Nothing + Me.열생산기기방식NCMB.Size = New System.Drawing.Size(79, 20) + Me.열생산기기방식NCMB.TabIndex = 0 + ' + 'PictureBox1 + ' + 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(3, 9) + Me.PictureBox1.Name = "PictureBox1" + Me.PictureBox1.Size = New System.Drawing.Size(398, 102) + Me.PictureBox1.TabIndex = 119 + Me.PictureBox1.TabStop = False + ' + 'GroupBox5 + ' + Me.GroupBox5.Controls.Add(Me.cmb_히트펌프시스템종류) + Me.GroupBox5.Controls.Add(Label1) + Me.GroupBox5.Controls.Add(Me.tb_히트길이) + Me.GroupBox5.Controls.Add(Me.cmb_히트사용연료) + Me.GroupBox5.Controls.Add(Label19) + Me.GroupBox5.Controls.Add(Me.tb_히트정격10) + Me.GroupBox5.Controls.Add(Me.tb_히트정격7) + Me.GroupBox5.Controls.Add(Me.tb_히트용량) + Me.GroupBox5.Controls.Add(Label17) + Me.GroupBox5.Controls.Add(Label27) + Me.GroupBox5.Controls.Add(Label20) + Me.GroupBox5.Controls.Add(Label16) + Me.GroupBox5.Controls.Add(Me.PictureBox9) + Me.GroupBox5.Location = New System.Drawing.Point(390, 198) + Me.GroupBox5.Name = "GroupBox5" + Me.GroupBox5.Size = New System.Drawing.Size(250, 152) + Me.GroupBox5.TabIndex = 2 + Me.GroupBox5.TabStop = False + ' + 'cmb_히트펌프시스템종류 + ' + 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(146, 124) + Me.cmb_히트펌프시스템종류.Name = "cmb_히트펌프시스템종류" + Me.cmb_히트펌프시스템종류.NectControl = Nothing + Me.cmb_히트펌프시스템종류.Size = New System.Drawing.Size(94, 20) + Me.cmb_히트펌프시스템종류.TabIndex = 17 + ' + 'tb_히트길이 + ' + Me.tb_히트길이.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bs, "히트배관길이", True)) + Me.tb_히트길이.Location = New System.Drawing.Point(189, 101) + Me.tb_히트길이.Name = "tb_히트길이" + Me.tb_히트길이.NectControl = Nothing + Me.tb_히트길이.Size = New System.Drawing.Size(51, 21) + Me.tb_히트길이.TabIndex = 16 + Me.tb_히트길이.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + ' + 'cmb_히트사용연료 + ' + 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(146, 12) + Me.cmb_히트사용연료.Name = "cmb_히트사용연료" + Me.cmb_히트사용연료.NectControl = Nothing + Me.cmb_히트사용연료.Size = New System.Drawing.Size(94, 20) + Me.cmb_히트사용연료.TabIndex = 12 + ' + 'tb_히트정격10 + ' + Me.tb_히트정격10.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bs, "히트난방정격10", True)) + Me.tb_히트정격10.Location = New System.Drawing.Point(189, 79) + Me.tb_히트정격10.Name = "tb_히트정격10" + Me.tb_히트정격10.NectControl = Nothing + Me.tb_히트정격10.Size = New System.Drawing.Size(51, 21) + Me.tb_히트정격10.TabIndex = 15 + Me.tb_히트정격10.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + ' + 'tb_히트정격7 + ' + Me.tb_히트정격7.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bs, "히트난방정격7", True)) + Me.tb_히트정격7.Location = New System.Drawing.Point(189, 57) + Me.tb_히트정격7.Name = "tb_히트정격7" + Me.tb_히트정격7.NectControl = Nothing + Me.tb_히트정격7.Size = New System.Drawing.Size(51, 21) + Me.tb_히트정격7.TabIndex = 14 + Me.tb_히트정격7.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(189, 35) + Me.tb_히트용량.Name = "tb_히트용량" + Me.tb_히트용량.NectControl = Nothing + Me.tb_히트용량.Size = New System.Drawing.Size(51, 21) + Me.tb_히트용량.TabIndex = 13 + Me.tb_히트용량.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + ' + 'PictureBox9 + ' + Me.PictureBox9.BackColor = System.Drawing.Color.FromArgb(CType(CType(243, Byte), Integer), CType(CType(244, Byte), Integer), CType(CType(246, Byte), Integer)) + Me.PictureBox9.Location = New System.Drawing.Point(2, 9) + Me.PictureBox9.Name = "PictureBox9" + Me.PictureBox9.Size = New System.Drawing.Size(245, 140) + Me.PictureBox9.TabIndex = 126 + Me.PictureBox9.TabStop = False + ' + 'Label189 + ' + Me.Label189.AutoSize = True + Me.Label189.BackColor = System.Drawing.Color.FromArgb(CType(CType(243, Byte), Integer), CType(CType(244, Byte), Integer), CType(CType(246, Byte), Integer)) + Me.Label189.ForeColor = System.Drawing.Color.DarkCyan + Me.Label189.Location = New System.Drawing.Point(6, 46) + Me.Label189.Name = "Label189" + Me.Label189.Size = New System.Drawing.Size(145, 12) + Me.Label189.TabIndex = 127 + Me.Label189.Text = "표준치에 대한 경계조건" + Me.Label189.TextAlign = System.Drawing.ContentAlignment.MiddleRight + ' + 'GroupBox7 + ' + Me.GroupBox7.Controls.Add(Me.축열탱크방식NCMB) + Me.GroupBox7.Controls.Add(Label194) + Me.GroupBox7.Controls.Add(Me.MyTb1) + Me.GroupBox7.Controls.Add(Me.축열제척NTb) + Me.GroupBox7.Controls.Add(Label195) + Me.GroupBox7.Controls.Add(Label196) + Me.GroupBox7.Controls.Add(Me.PictureBox10) + Me.GroupBox7.Location = New System.Drawing.Point(4, 346) + Me.GroupBox7.Name = "GroupBox7" + Me.GroupBox7.Size = New System.Drawing.Size(202, 110) + Me.GroupBox7.TabIndex = 126 + Me.GroupBox7.TabStop = False + ' + '축열탱크방식NCMB + ' + Me.축열탱크방식NCMB.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList + Me.축열탱크방식NCMB.FormattingEnabled = True + Me.축열탱크방식NCMB.Location = New System.Drawing.Point(93, 18) + Me.축열탱크방식NCMB.Name = "축열탱크방식NCMB" + Me.축열탱크방식NCMB.NectControl = Nothing + Me.축열탱크방식NCMB.Size = New System.Drawing.Size(100, 20) + Me.축열탱크방식NCMB.TabIndex = 18 + ' + 'MyTb1 + ' + Me.MyTb1.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bs, "펌프정격전력", True)) + Me.MyTb1.Location = New System.Drawing.Point(119, 79) + Me.MyTb1.Name = "MyTb1" + Me.MyTb1.NectControl = Nothing + Me.MyTb1.Size = New System.Drawing.Size(74, 21) + Me.MyTb1.TabIndex = 20 + Me.MyTb1.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + ' + '축열제척NTb + ' + Me.축열제척NTb.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bs, "축열제척", True)) + Me.축열제척NTb.Location = New System.Drawing.Point(119, 51) + Me.축열제척NTb.Name = "축열제척NTb" + Me.축열제척NTb.NectControl = Nothing + Me.축열제척NTb.Size = New System.Drawing.Size(74, 21) + Me.축열제척NTb.TabIndex = 19 + Me.축열제척NTb.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + ' + 'PictureBox10 + ' + Me.PictureBox10.BackColor = System.Drawing.Color.FromArgb(CType(CType(219, Byte), Integer), CType(CType(221, Byte), Integer), CType(CType(223, Byte), Integer)) + Me.PictureBox10.Location = New System.Drawing.Point(1, 9) + Me.PictureBox10.Name = "PictureBox10" + Me.PictureBox10.Size = New System.Drawing.Size(196, 98) + Me.PictureBox10.TabIndex = 126 + Me.PictureBox10.TabStop = False + ' + 'GroupBox8 + ' + Me.GroupBox8.Controls.Add(Label2) + Me.GroupBox8.Controls.Add(Me.배관망유형ComboBox) + Me.GroupBox8.Controls.Add(Me.펌프제어유형ComboBox) + Me.GroupBox8.Controls.Add(Label3) + Me.GroupBox8.Controls.Add(Me.펌프동력NTb) + Me.GroupBox8.Controls.Add(Me.펌프교정계수ComboBox) + Me.GroupBox8.Controls.Add(Label4) + Me.GroupBox8.Controls.Add(Label5) + Me.GroupBox8.Controls.Add(Me.PictureBox16) + Me.GroupBox8.Location = New System.Drawing.Point(4, 451) + Me.GroupBox8.Name = "GroupBox8" + Me.GroupBox8.Size = New System.Drawing.Size(342, 118) + Me.GroupBox8.TabIndex = 15 + Me.GroupBox8.TabStop = False + ' + '배관망유형ComboBox + ' + Me.배관망유형ComboBox.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList + Me.배관망유형ComboBox.FormattingEnabled = True + Me.배관망유형ComboBox.Location = New System.Drawing.Point(217, 13) + Me.배관망유형ComboBox.Name = "배관망유형ComboBox" + Me.배관망유형ComboBox.NectControl = Nothing + Me.배관망유형ComboBox.Size = New System.Drawing.Size(107, 20) + Me.배관망유형ComboBox.TabIndex = 30 + ' + '펌프제어유형ComboBox + ' + Me.펌프제어유형ComboBox.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList + Me.펌프제어유형ComboBox.FormattingEnabled = True + Me.펌프제어유형ComboBox.Location = New System.Drawing.Point(217, 65) + Me.펌프제어유형ComboBox.Name = "펌프제어유형ComboBox" + Me.펌프제어유형ComboBox.NectControl = Nothing + Me.펌프제어유형ComboBox.Size = New System.Drawing.Size(107, 20) + Me.펌프제어유형ComboBox.TabIndex = 32 + ' + '펌프동력NTb + ' + Me.펌프동력NTb.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bs, "펌프동력", True)) + Me.펌프동력NTb.Location = New System.Drawing.Point(217, 91) + Me.펌프동력NTb.Name = "펌프동력NTb" + Me.펌프동력NTb.NectControl = Nothing + Me.펌프동력NTb.Size = New System.Drawing.Size(107, 21) + Me.펌프동력NTb.TabIndex = 33 + Me.펌프동력NTb.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + ' + '펌프교정계수ComboBox + ' + Me.펌프교정계수ComboBox.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList + Me.펌프교정계수ComboBox.FormattingEnabled = True + Me.펌프교정계수ComboBox.Location = New System.Drawing.Point(217, 39) + Me.펌프교정계수ComboBox.Name = "펌프교정계수ComboBox" + Me.펌프교정계수ComboBox.NectControl = Nothing + Me.펌프교정계수ComboBox.Size = New System.Drawing.Size(107, 20) + Me.펌프교정계수ComboBox.TabIndex = 31 + ' + 'PictureBox16 + ' + Me.PictureBox16.BackColor = System.Drawing.Color.FromArgb(CType(CType(243, Byte), Integer), CType(CType(244, Byte), Integer), CType(CType(246, Byte), Integer)) + Me.PictureBox16.Location = New System.Drawing.Point(3, 9) + Me.PictureBox16.Name = "PictureBox16" + Me.PictureBox16.Size = New System.Drawing.Size(337, 106) + Me.PictureBox16.TabIndex = 126 + Me.PictureBox16.TabStop = False + ' + 'GroupBox10 + ' + Me.GroupBox10.Controls.Add(Label6) + Me.GroupBox10.Controls.Add(Me.분배시스템방식ComboBox) + Me.GroupBox10.Controls.Add(Label7) + Me.GroupBox10.Controls.Add(Me.펌프동력급탕NTb) + Me.GroupBox10.Controls.Add(Label8) + Me.GroupBox10.Controls.Add(Me.펌프제어ComboBox) + Me.GroupBox10.Controls.Add(Label9) + Me.GroupBox10.Controls.Add(Me.순환유무ComboBox) + Me.GroupBox10.Controls.Add(Me.PictureBox11) + Me.GroupBox10.Location = New System.Drawing.Point(207, 346) + Me.GroupBox10.Name = "GroupBox10" + Me.GroupBox10.Size = New System.Drawing.Size(194, 110) + Me.GroupBox10.TabIndex = 2 + Me.GroupBox10.TabStop = False + ' + '분배시스템방식ComboBox + ' + Me.분배시스템방식ComboBox.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList + Me.분배시스템방식ComboBox.FormattingEnabled = True + Me.분배시스템방식ComboBox.Location = New System.Drawing.Point(94, 12) + Me.분배시스템방식ComboBox.Name = "분배시스템방식ComboBox" + Me.분배시스템방식ComboBox.NectControl = Nothing + Me.분배시스템방식ComboBox.Size = New System.Drawing.Size(92, 20) + Me.분배시스템방식ComboBox.TabIndex = 21 + ' + '펌프동력급탕NTb + ' + Me.펌프동력급탕NTb.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bs, "펌프동력급탕", True)) + Me.펌프동력급탕NTb.Location = New System.Drawing.Point(94, 82) + Me.펌프동력급탕NTb.Name = "펌프동력급탕NTb" + Me.펌프동력급탕NTb.NectControl = Nothing + Me.펌프동력급탕NTb.Size = New System.Drawing.Size(92, 21) + Me.펌프동력급탕NTb.TabIndex = 24 + Me.펌프동력급탕NTb.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + ' + '펌프제어ComboBox + ' + Me.펌프제어ComboBox.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList + Me.펌프제어ComboBox.FormattingEnabled = True + Me.펌프제어ComboBox.Location = New System.Drawing.Point(94, 59) + Me.펌프제어ComboBox.Name = "펌프제어ComboBox" + Me.펌프제어ComboBox.NectControl = Nothing + Me.펌프제어ComboBox.Size = New System.Drawing.Size(92, 20) + Me.펌프제어ComboBox.TabIndex = 23 + ' + '순환유무ComboBox + ' + Me.순환유무ComboBox.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList + Me.순환유무ComboBox.FormattingEnabled = True + Me.순환유무ComboBox.Location = New System.Drawing.Point(94, 35) + Me.순환유무ComboBox.Name = "순환유무ComboBox" + Me.순환유무ComboBox.NectControl = Nothing + Me.순환유무ComboBox.Size = New System.Drawing.Size(92, 20) + Me.순환유무ComboBox.TabIndex = 22 + ' + 'PictureBox11 + ' + Me.PictureBox11.BackColor = System.Drawing.Color.FromArgb(CType(CType(219, Byte), Integer), CType(CType(221, Byte), Integer), CType(CType(223, Byte), Integer)) + Me.PictureBox11.Location = New System.Drawing.Point(0, 9) + Me.PictureBox11.Name = "PictureBox11" + Me.PictureBox11.Size = New System.Drawing.Size(190, 98) + Me.PictureBox11.TabIndex = 126 + Me.PictureBox11.TabStop = False + ' + 'GroupBox9 + ' + Me.GroupBox9.Controls.Add(Me.RadioButton2) + Me.GroupBox9.Controls.Add(Me.RadioButton1) + Me.GroupBox9.Controls.Add(Label28) + Me.GroupBox9.Controls.Add(Label10) + Me.GroupBox9.Controls.Add(Label11) + Me.GroupBox9.Controls.Add(Label12) + Me.GroupBox9.Controls.Add(Me.열공급층수NTb) + Me.GroupBox9.Controls.Add(Label13) + Me.GroupBox9.Controls.Add(Me.건물넓이NTb) + Me.GroupBox9.Controls.Add(Me.급탕배관길이NTB) + Me.GroupBox9.Controls.Add(Me.건물길이NTb) + Me.GroupBox9.Controls.Add(Me.층고NTb) + Me.GroupBox9.Controls.Add(Me.PictureBox12) + Me.GroupBox9.Location = New System.Drawing.Point(403, 346) + Me.GroupBox9.Name = "GroupBox9" + Me.GroupBox9.Size = New System.Drawing.Size(237, 110) + Me.GroupBox9.TabIndex = 119 + Me.GroupBox9.TabStop = False + ' + 'RadioButton2 + ' + Me.RadioButton2.AutoSize = True + Me.RadioButton2.BackColor = System.Drawing.Color.FromArgb(CType(CType(219, Byte), Integer), CType(CType(221, Byte), Integer), CType(CType(223, Byte), Integer)) + Me.RadioButton2.ForeColor = System.Drawing.Color.DarkCyan + Me.RadioButton2.Location = New System.Drawing.Point(6, 81) + Me.RadioButton2.Name = "RadioButton2" + Me.RadioButton2.Size = New System.Drawing.Size(62, 16) + Me.RadioButton2.TabIndex = 128 + Me.RadioButton2.Text = "입력치" + Me.RadioButton2.UseVisualStyleBackColor = False + ' + 'RadioButton1 + ' + Me.RadioButton1.AutoSize = True + Me.RadioButton1.BackColor = System.Drawing.Color.FromArgb(CType(CType(219, Byte), Integer), CType(CType(221, Byte), Integer), CType(CType(223, Byte), Integer)) + Me.RadioButton1.Checked = True + Me.RadioButton1.ForeColor = System.Drawing.Color.DarkCyan + Me.RadioButton1.Location = New System.Drawing.Point(6, 11) + Me.RadioButton1.Name = "RadioButton1" + Me.RadioButton1.Size = New System.Drawing.Size(119, 16) + Me.RadioButton1.TabIndex = 127 + Me.RadioButton1.TabStop = True + Me.RadioButton1.Text = "표준치 경계조건" + Me.RadioButton1.UseVisualStyleBackColor = False + ' + '열공급층수NTb + ' + Me.열공급층수NTb.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bs, "열공급층수", True)) + Me.열공급층수NTb.Location = New System.Drawing.Point(182, 30) + Me.열공급층수NTb.Name = "열공급층수NTb" + Me.열공급층수NTb.NectControl = Nothing + Me.열공급층수NTb.Size = New System.Drawing.Size(35, 21) + Me.열공급층수NTb.TabIndex = 27 + Me.열공급층수NTb.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + ' + '건물넓이NTb + ' + Me.건물넓이NTb.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bs, "건물넓이", True)) + Me.건물넓이NTb.Location = New System.Drawing.Point(70, 53) + Me.건물넓이NTb.Name = "건물넓이NTb" + Me.건물넓이NTb.NectControl = Nothing + Me.건물넓이NTb.Size = New System.Drawing.Size(40, 21) + Me.건물넓이NTb.TabIndex = 26 + Me.건물넓이NTb.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + ' + '급탕배관길이NTB + ' + Me.급탕배관길이NTB.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bs, "배관길이", True)) + Me.급탕배관길이NTB.Location = New System.Drawing.Point(182, 80) + Me.급탕배관길이NTB.Name = "급탕배관길이NTB" + Me.급탕배관길이NTB.NectControl = Nothing + Me.급탕배관길이NTB.Size = New System.Drawing.Size(35, 21) + Me.급탕배관길이NTB.TabIndex = 29 + Me.급탕배관길이NTB.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + ' + '건물길이NTb + ' + Me.건물길이NTb.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bs, "건물길이", True)) + Me.건물길이NTb.Location = New System.Drawing.Point(70, 30) + Me.건물길이NTb.Name = "건물길이NTb" + Me.건물길이NTb.NectControl = Nothing + Me.건물길이NTb.Size = New System.Drawing.Size(40, 21) + Me.건물길이NTb.TabIndex = 25 + Me.건물길이NTb.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + ' + '층고NTb + ' + Me.층고NTb.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bs, "층고", True)) + Me.층고NTb.Location = New System.Drawing.Point(182, 53) + Me.층고NTb.Name = "층고NTb" + Me.층고NTb.NectControl = Nothing + Me.층고NTb.Size = New System.Drawing.Size(35, 21) + Me.층고NTb.TabIndex = 28 + Me.층고NTb.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + ' + 'PictureBox12 + ' + Me.PictureBox12.BackColor = System.Drawing.Color.FromArgb(CType(CType(219, Byte), Integer), CType(CType(221, Byte), Integer), CType(CType(223, Byte), Integer)) + Me.PictureBox12.Location = New System.Drawing.Point(2, 9) + Me.PictureBox12.Name = "PictureBox12" + Me.PictureBox12.Size = New System.Drawing.Size(232, 98) + Me.PictureBox12.TabIndex = 126 + Me.PictureBox12.TabStop = False + ' + 'GroupBox39 + ' + Me.GroupBox39.Controls.Add(Me.Label22) + Me.GroupBox39.Controls.Add(Me.cmb_신재생) + Me.GroupBox39.Controls.Add(Me.신재생연결여부ComboBox) + Me.GroupBox39.Controls.Add(Label15) + Me.GroupBox39.Controls.Add(Label14) + Me.GroupBox39.Controls.Add(Me.PictureBox17) + Me.GroupBox39.Location = New System.Drawing.Point(350, 484) + Me.GroupBox39.Name = "GroupBox39" + Me.GroupBox39.Size = New System.Drawing.Size(290, 85) + Me.GroupBox39.TabIndex = 1 + Me.GroupBox39.TabStop = False + ' + 'Label22 + ' + Me.Label22.AutoSize = True + Me.Label22.BackColor = System.Drawing.Color.FromArgb(CType(CType(243, Byte), Integer), CType(CType(244, Byte), Integer), CType(CType(246, Byte), Integer)) + Me.Label22.Location = New System.Drawing.Point(8, 13) + Me.Label22.Name = "Label22" + Me.Label22.Size = New System.Drawing.Size(226, 12) + Me.Label22.TabIndex = 127 + Me.Label22.Text = "[신재생 및 열병합 시스템 연결 여부]" + ' + 'cmb_신재생 + ' + Me.cmb_신재생.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList + Me.cmb_신재생.FormattingEnabled = True + Me.cmb_신재생.Location = New System.Drawing.Point(172, 55) + Me.cmb_신재생.Name = "cmb_신재생" + Me.cmb_신재생.NectControl = Nothing + Me.cmb_신재생.Size = New System.Drawing.Size(112, 20) + Me.cmb_신재생.TabIndex = 35 + ' + '신재생연결여부ComboBox + ' + Me.신재생연결여부ComboBox.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList + Me.신재생연결여부ComboBox.FormattingEnabled = True + Me.신재생연결여부ComboBox.Location = New System.Drawing.Point(172, 30) + Me.신재생연결여부ComboBox.Name = "신재생연결여부ComboBox" + Me.신재생연결여부ComboBox.NectControl = Nothing + Me.신재생연결여부ComboBox.Size = New System.Drawing.Size(112, 20) + Me.신재생연결여부ComboBox.TabIndex = 34 + ' + 'PictureBox17 + ' + Me.PictureBox17.BackColor = System.Drawing.Color.FromArgb(CType(CType(243, Byte), Integer), CType(CType(244, Byte), Integer), CType(CType(246, Byte), Integer)) + Me.PictureBox17.Location = New System.Drawing.Point(2, 9) + Me.PictureBox17.Name = "PictureBox17" + Me.PictureBox17.Size = New System.Drawing.Size(286, 73) + Me.PictureBox17.TabIndex = 126 + Me.PictureBox17.TabStop = False + ' + '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.AutoScroll = True + Me.SplitContainer1.Panel2.AutoScrollMinSize = New System.Drawing.Size(0, 530) + Me.SplitContainer1.Panel2.BackColor = System.Drawing.Color.White + Me.SplitContainer1.Panel2.Controls.Add(Me.chk_헤더적용) + Me.SplitContainer1.Panel2.Controls.Add(Me.chk_개별기기적용) + Me.SplitContainer1.Panel2.Controls.Add(Me.Label30) + Me.SplitContainer1.Panel2.Controls.Add(Me.PictureBox6) + Me.SplitContainer1.Panel2.Controls.Add(Me.Label18) + Me.SplitContainer1.Panel2.Controls.Add(Me.PictureBox15) + Me.SplitContainer1.Panel2.Controls.Add(Me.Label29) + Me.SplitContainer1.Panel2.Controls.Add(Me.PictureBox5) + Me.SplitContainer1.Panel2.Controls.Add(Me.Label31) + Me.SplitContainer1.Panel2.Controls.Add(Me.Label25) + Me.SplitContainer1.Panel2.Controls.Add(Me.PictureBox4) + Me.SplitContainer1.Panel2.Controls.Add(Me.PictureBox3) + Me.SplitContainer1.Panel2.Controls.Add(Me.GroupBox4) + Me.SplitContainer1.Panel2.Controls.Add(Me.GroupBox3) + Me.SplitContainer1.Panel2.Controls.Add(Me.ToolStrip1) + Me.SplitContainer1.Panel2.Controls.Add(Me.GroupBox2) + Me.SplitContainer1.Panel2.Controls.Add(Me.GroupBox5) + Me.SplitContainer1.Panel2.Controls.Add(Me.GroupBox1) + Me.SplitContainer1.Panel2.Controls.Add(Me.GroupBox39) + Me.SplitContainer1.Panel2.Controls.Add(Me.Label26) + Me.SplitContainer1.Panel2.Controls.Add(Me.PictureBox14) + Me.SplitContainer1.Panel2.Controls.Add(Me.Label24) + Me.SplitContainer1.Panel2.Controls.Add(Me.PictureBox13) + Me.SplitContainer1.Panel2.Controls.Add(Me.GroupBox10) + Me.SplitContainer1.Panel2.Controls.Add(Me.GroupBox7) + Me.SplitContainer1.Panel2.Controls.Add(Me.GroupBox9) + Me.SplitContainer1.Panel2.Controls.Add(Me.GroupBox8) + Me.SplitContainer1.Size = New System.Drawing.Size(818, 574) + Me.SplitContainer1.SplitterDistance = 165 + Me.SplitContainer1.TabIndex = 129 + ' + '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.FromArgb(CType(CType(245, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(246, Byte), Integer)) + Me.dv.BorderStyle = System.Windows.Forms.BorderStyle.None + Me.dv.ColumnHeadersHeight = 30 + Me.dv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.DisableResizing + Me.dv.ColumnHeadersVisible = False + Me.dv.Columns.AddRange(New System.Windows.Forms.DataGridViewColumn() {Me.설명DataGridViewTextBoxColumn}) + Me.dv.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(163, 532) + Me.dv.TabIndex = 0 + ' + '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, 532) + 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(163, 40) + 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, 37) + 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, 37) + 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, 37) + 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, 37) + 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, 40) + ' + 'lbl_pos + ' + Me.lbl_pos.Name = "lbl_pos" + Me.lbl_pos.Size = New System.Drawing.Size(12, 37) + Me.lbl_pos.Text = "0" + ' + 'ToolStripSeparator2 + ' + Me.ToolStripSeparator2.Name = "ToolStripSeparator2" + Me.ToolStripSeparator2.Size = New System.Drawing.Size(6, 40) + ' + 'lb_code + ' + Me.lb_code.Name = "lb_code" + Me.lb_code.Size = New System.Drawing.Size(47, 37) + Me.lb_code.Text = "[0000]" + ' + 'chk_헤더적용 + ' + Me.chk_헤더적용.AutoSize = True + Me.chk_헤더적용.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Me.bs, "헤더적용", True)) + Me.chk_헤더적용.Location = New System.Drawing.Point(549, 44) + Me.chk_헤더적용.Name = "chk_헤더적용" + Me.chk_헤더적용.Size = New System.Drawing.Size(76, 16) + Me.chk_헤더적용.TabIndex = 172 + Me.chk_헤더적용.Tag = "헤더적용" + Me.chk_헤더적용.Text = "헤더적용" + Me.chk_헤더적용.UseVisualStyleBackColor = True + ' + 'chk_개별기기적용 + ' + Me.chk_개별기기적용.AutoSize = True + Me.chk_개별기기적용.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Me.bs, "개별기기적용", True)) + Me.chk_개별기기적용.Location = New System.Drawing.Point(429, 44) + Me.chk_개별기기적용.Name = "chk_개별기기적용" + Me.chk_개별기기적용.Size = New System.Drawing.Size(102, 16) + Me.chk_개별기기적용.TabIndex = 171 + Me.chk_개별기기적용.Tag = "개별기기적용" + Me.chk_개별기기적용.Text = "개별기기적용" + Me.chk_개별기기적용.UseVisualStyleBackColor = True + ' + 'Label30 + ' + Me.Label30.AutoSize = True + Me.Label30.BackColor = System.Drawing.Color.FromArgb(CType(CType(116, Byte), Integer), CType(CType(158, Byte), Integer), CType(CType(209, Byte), Integer)) + Me.Label30.ForeColor = System.Drawing.Color.White + Me.Label30.Location = New System.Drawing.Point(404, 184) + Me.Label30.Name = "Label30" + Me.Label30.Size = New System.Drawing.Size(57, 12) + Me.Label30.TabIndex = 170 + Me.Label30.Text = "히트펌프" + ' + 'PictureBox6 + ' + Me.PictureBox6.BackgroundImage = CType(resources.GetObject("PictureBox6.BackgroundImage"), System.Drawing.Image) + Me.PictureBox6.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch + Me.PictureBox6.Location = New System.Drawing.Point(391, 173) + Me.PictureBox6.Name = "PictureBox6" + Me.PictureBox6.Size = New System.Drawing.Size(134, 30) + Me.PictureBox6.TabIndex = 169 + Me.PictureBox6.TabStop = False + ' + 'Label18 + ' + Me.Label18.AutoSize = True + Me.Label18.BackColor = System.Drawing.Color.FromArgb(CType(CType(116, Byte), Integer), CType(CType(158, Byte), Integer), CType(CType(209, Byte), Integer)) + Me.Label18.ForeColor = System.Drawing.Color.White + Me.Label18.Location = New System.Drawing.Point(368, 469) + Me.Label18.Name = "Label18" + Me.Label18.Size = New System.Drawing.Size(44, 12) + Me.Label18.TabIndex = 170 + Me.Label18.Text = "신재생" + ' + 'PictureBox15 + ' + Me.PictureBox15.BackgroundImage = CType(resources.GetObject("PictureBox15.BackgroundImage"), System.Drawing.Image) + Me.PictureBox15.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch + Me.PictureBox15.Location = New System.Drawing.Point(355, 458) + Me.PictureBox15.Name = "PictureBox15" + Me.PictureBox15.Size = New System.Drawing.Size(134, 30) + Me.PictureBox15.TabIndex = 169 + Me.PictureBox15.TabStop = False + ' + 'Label29 + ' + Me.Label29.AutoSize = True + Me.Label29.BackColor = System.Drawing.Color.FromArgb(CType(CType(116, Byte), Integer), CType(CType(158, Byte), Integer), CType(CType(209, Byte), Integer)) + Me.Label29.ForeColor = System.Drawing.Color.White + Me.Label29.Location = New System.Drawing.Point(207, 185) + Me.Label29.Name = "Label29" + Me.Label29.Size = New System.Drawing.Size(57, 12) + Me.Label29.TabIndex = 170 + Me.Label29.Text = "지역난방" + ' + 'PictureBox5 + ' + Me.PictureBox5.BackgroundImage = CType(resources.GetObject("PictureBox5.BackgroundImage"), System.Drawing.Image) + Me.PictureBox5.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch + Me.PictureBox5.Location = New System.Drawing.Point(194, 174) + Me.PictureBox5.Name = "PictureBox5" + Me.PictureBox5.Size = New System.Drawing.Size(134, 30) + Me.PictureBox5.TabIndex = 169 + Me.PictureBox5.TabStop = False + ' + 'Label31 + ' + Me.Label31.AutoSize = True + Me.Label31.BackColor = System.Drawing.Color.FromArgb(CType(CType(116, Byte), Integer), CType(CType(158, Byte), Integer), CType(CType(209, Byte), Integer)) + Me.Label31.ForeColor = System.Drawing.Color.White + Me.Label31.Location = New System.Drawing.Point(13, 41) + Me.Label31.Name = "Label31" + Me.Label31.Size = New System.Drawing.Size(106, 12) + Me.Label31.TabIndex = 170 + Me.Label31.Text = "난방 및 급탕기기" + ' + 'Label25 + ' + Me.Label25.AutoSize = True + Me.Label25.BackColor = System.Drawing.Color.FromArgb(CType(CType(116, Byte), Integer), CType(CType(158, Byte), Integer), CType(CType(209, Byte), Integer)) + Me.Label25.ForeColor = System.Drawing.Color.White + Me.Label25.Location = New System.Drawing.Point(19, 185) + Me.Label25.Name = "Label25" + Me.Label25.Size = New System.Drawing.Size(57, 12) + Me.Label25.TabIndex = 170 + Me.Label25.Text = "열원기기" + ' + 'PictureBox4 + ' + Me.PictureBox4.BackgroundImage = CType(resources.GetObject("PictureBox4.BackgroundImage"), System.Drawing.Image) + Me.PictureBox4.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch + Me.PictureBox4.Location = New System.Drawing.Point(7, 30) + Me.PictureBox4.Name = "PictureBox4" + Me.PictureBox4.Size = New System.Drawing.Size(134, 30) + Me.PictureBox4.TabIndex = 169 + Me.PictureBox4.TabStop = False + ' + 'PictureBox3 + ' + Me.PictureBox3.BackgroundImage = CType(resources.GetObject("PictureBox3.BackgroundImage"), System.Drawing.Image) + Me.PictureBox3.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch + Me.PictureBox3.Location = New System.Drawing.Point(6, 174) + Me.PictureBox3.Name = "PictureBox3" + Me.PictureBox3.Size = New System.Drawing.Size(134, 30) + Me.PictureBox3.TabIndex = 169 + Me.PictureBox3.TabStop = False + ' + 'GroupBox4 + ' + Me.GroupBox4.Controls.Add(Label193) + Me.GroupBox4.Controls.Add(Label192) + Me.GroupBox4.Controls.Add(Me.단열등급NCMB) + Me.GroupBox4.Controls.Add(Me.지역난방방식NCMB) + Me.GroupBox4.Controls.Add(Me.PictureBox7) + Me.GroupBox4.Location = New System.Drawing.Point(189, 199) + Me.GroupBox4.Name = "GroupBox4" + Me.GroupBox4.Size = New System.Drawing.Size(198, 81) + Me.GroupBox4.TabIndex = 162 + Me.GroupBox4.TabStop = False + ' + '단열등급NCMB + ' + Me.단열등급NCMB.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList + Me.단열등급NCMB.FormattingEnabled = True + Me.단열등급NCMB.Location = New System.Drawing.Point(116, 49) + Me.단열등급NCMB.Name = "단열등급NCMB" + Me.단열등급NCMB.NectControl = Nothing + Me.단열등급NCMB.Size = New System.Drawing.Size(76, 20) + Me.단열등급NCMB.TabIndex = 11 + ' + '지역난방방식NCMB + ' + Me.지역난방방식NCMB.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList + Me.지역난방방식NCMB.FormattingEnabled = True + Me.지역난방방식NCMB.Location = New System.Drawing.Point(116, 20) + Me.지역난방방식NCMB.Name = "지역난방방식NCMB" + Me.지역난방방식NCMB.NectControl = Nothing + Me.지역난방방식NCMB.Size = New System.Drawing.Size(76, 20) + Me.지역난방방식NCMB.TabIndex = 10 + ' + 'PictureBox7 + ' + Me.PictureBox7.BackColor = System.Drawing.Color.FromArgb(CType(CType(243, Byte), Integer), CType(CType(244, Byte), Integer), CType(CType(246, Byte), Integer)) + Me.PictureBox7.Location = New System.Drawing.Point(2, 8) + Me.PictureBox7.Name = "PictureBox7" + Me.PictureBox7.Size = New System.Drawing.Size(194, 73) + Me.PictureBox7.TabIndex = 126 + Me.PictureBox7.TabStop = False + ' + 'GroupBox3 + ' + Me.GroupBox3.Controls.Add(Label184) + Me.GroupBox3.Controls.Add(Me.Label189) + Me.GroupBox3.Controls.Add(Me.보일러방식NCMB) + Me.GroupBox3.Controls.Add(Label190) + Me.GroupBox3.Controls.Add(Me.정격보일러효율NTb) + Me.GroupBox3.Controls.Add(Me.PictureBox8) + Me.GroupBox3.Location = New System.Drawing.Point(4, 199) + Me.GroupBox3.Name = "GroupBox3" + Me.GroupBox3.Size = New System.Drawing.Size(182, 114) + Me.GroupBox3.TabIndex = 131 + Me.GroupBox3.TabStop = False + ' + '보일러방식NCMB + ' + Me.보일러방식NCMB.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList + Me.보일러방식NCMB.FormattingEnabled = True + Me.보일러방식NCMB.Location = New System.Drawing.Point(10, 83) + Me.보일러방식NCMB.Name = "보일러방식NCMB" + Me.보일러방식NCMB.NectControl = Nothing + Me.보일러방식NCMB.Size = New System.Drawing.Size(155, 20) + Me.보일러방식NCMB.TabIndex = 9 + ' + '정격보일러효율NTb + ' + Me.정격보일러효율NTb.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bs, "정격보일러효율", True)) + Me.정격보일러효율NTb.Location = New System.Drawing.Point(111, 13) + Me.정격보일러효율NTb.Name = "정격보일러효율NTb" + Me.정격보일러효율NTb.NectControl = Nothing + Me.정격보일러효율NTb.Size = New System.Drawing.Size(65, 21) + Me.정격보일러효율NTb.TabIndex = 8 + Me.정격보일러효율NTb.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + ' + 'PictureBox8 + ' + Me.PictureBox8.BackColor = System.Drawing.Color.FromArgb(CType(CType(243, Byte), Integer), CType(CType(244, Byte), Integer), CType(CType(246, Byte), Integer)) + Me.PictureBox8.Location = New System.Drawing.Point(2, 8) + Me.PictureBox8.Name = "PictureBox8" + Me.PictureBox8.Size = New System.Drawing.Size(177, 103) + Me.PictureBox8.TabIndex = 126 + Me.PictureBox8.TabStop = False + ' + 'ToolStrip1 + ' + Me.ToolStrip1.Font = New System.Drawing.Font("돋움", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.ToolStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToolStripLabel1, Me.lbl_cnt1, Me.ToolStripLabel3, Me.lbl_cnt2}) + Me.ToolStrip1.Location = New System.Drawing.Point(0, 0) + Me.ToolStrip1.Name = "ToolStrip1" + Me.ToolStrip1.Size = New System.Drawing.Size(647, 25) + Me.ToolStrip1.TabIndex = 130 + Me.ToolStrip1.Text = "ToolStrip1" + ' + 'ToolStripLabel1 + ' + Me.ToolStripLabel1.Name = "ToolStripLabel1" + Me.ToolStripLabel1.Size = New System.Drawing.Size(161, 22) + Me.ToolStripLabel1.Text = "난방기기로 연결된 입력존 수" + ' + 'lbl_cnt1 + ' + Me.lbl_cnt1.Name = "lbl_cnt1" + Me.lbl_cnt1.Size = New System.Drawing.Size(11, 22) + Me.lbl_cnt1.Text = "0" + ' + 'ToolStripLabel3 + ' + Me.ToolStripLabel3.Name = "ToolStripLabel3" + Me.ToolStripLabel3.Size = New System.Drawing.Size(161, 22) + Me.ToolStripLabel3.Text = "급탕기기로 연결된 입력존 수" + ' + 'lbl_cnt2 + ' + Me.lbl_cnt2.Name = "lbl_cnt2" + Me.lbl_cnt2.Size = New System.Drawing.Size(11, 22) + Me.lbl_cnt2.Text = "0" + ' + 'Label26 + ' + Me.Label26.AutoSize = True + Me.Label26.BackColor = System.Drawing.Color.FromArgb(CType(CType(116, Byte), Integer), CType(CType(158, Byte), Integer), CType(CType(209, Byte), Integer)) + Me.Label26.ForeColor = System.Drawing.Color.White + Me.Label26.Location = New System.Drawing.Point(212, 332) + Me.Label26.Name = "Label26" + Me.Label26.Size = New System.Drawing.Size(57, 12) + Me.Label26.TabIndex = 170 + Me.Label26.Text = "급탕분배" + ' + 'PictureBox14 + ' + Me.PictureBox14.BackgroundImage = CType(resources.GetObject("PictureBox14.BackgroundImage"), System.Drawing.Image) + Me.PictureBox14.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch + Me.PictureBox14.Location = New System.Drawing.Point(199, 321) + Me.PictureBox14.Name = "PictureBox14" + Me.PictureBox14.Size = New System.Drawing.Size(134, 30) + Me.PictureBox14.TabIndex = 169 + Me.PictureBox14.TabStop = False + ' + 'Label24 + ' + Me.Label24.AutoSize = True + Me.Label24.BackColor = System.Drawing.Color.FromArgb(CType(CType(116, Byte), Integer), CType(CType(158, Byte), Integer), CType(CType(209, Byte), Integer)) + Me.Label24.ForeColor = System.Drawing.Color.White + Me.Label24.Location = New System.Drawing.Point(19, 333) + Me.Label24.Name = "Label24" + Me.Label24.Size = New System.Drawing.Size(83, 12) + Me.Label24.TabIndex = 170 + Me.Label24.Text = "급탕축열탱크" + ' + 'PictureBox13 + ' + Me.PictureBox13.BackgroundImage = CType(resources.GetObject("PictureBox13.BackgroundImage"), System.Drawing.Image) + Me.PictureBox13.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch + Me.PictureBox13.Location = New System.Drawing.Point(6, 322) + Me.PictureBox13.Name = "PictureBox13" + Me.PictureBox13.Size = New System.Drawing.Size(134, 30) + Me.PictureBox13.TabIndex = 169 + Me.PictureBox13.TabStop = False + ' + '설명DataGridViewTextBoxColumn + ' + Me.설명DataGridViewTextBoxColumn.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.Fill + Me.설명DataGridViewTextBoxColumn.DataPropertyName = "설명" + Me.설명DataGridViewTextBoxColumn.HeaderText = "설명" + Me.설명DataGridViewTextBoxColumn.Name = "설명DataGridViewTextBoxColumn" + Me.설명DataGridViewTextBoxColumn.SortMode = System.Windows.Forms.DataGridViewColumnSortMode.Programmatic + ' + 'Frm_Nanbang + ' + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.None + Me.AutoScroll = True + Me.AutoScrollMinSize = New System.Drawing.Size(0, 540) + Me.ClientSize = New System.Drawing.Size(818, 574) + Me.ControlBox = False + Me.Controls.Add(Me.SplitContainer1) + Me.Font = New System.Drawing.Font("돋움", 8.999999!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.KeyPreview = True + Me.Name = "Frm_Nanbang" + Me.ShowInTaskbar = False + Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen + Me.Text = "난방기기" + Me.GroupBox2.ResumeLayout(False) + Me.GroupBox2.PerformLayout() + CType(Me.bs, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.DS, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.PictureBox2, System.ComponentModel.ISupportInitialize).EndInit() + Me.GroupBox1.ResumeLayout(False) + Me.GroupBox1.PerformLayout() + CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).EndInit() + Me.GroupBox5.ResumeLayout(False) + Me.GroupBox5.PerformLayout() + CType(Me.PictureBox9, System.ComponentModel.ISupportInitialize).EndInit() + Me.GroupBox7.ResumeLayout(False) + Me.GroupBox7.PerformLayout() + CType(Me.PictureBox10, System.ComponentModel.ISupportInitialize).EndInit() + Me.GroupBox8.ResumeLayout(False) + Me.GroupBox8.PerformLayout() + CType(Me.PictureBox16, System.ComponentModel.ISupportInitialize).EndInit() + Me.GroupBox10.ResumeLayout(False) + Me.GroupBox10.PerformLayout() + CType(Me.PictureBox11, System.ComponentModel.ISupportInitialize).EndInit() + Me.GroupBox9.ResumeLayout(False) + Me.GroupBox9.PerformLayout() + CType(Me.PictureBox12, System.ComponentModel.ISupportInitialize).EndInit() + Me.GroupBox39.ResumeLayout(False) + Me.GroupBox39.PerformLayout() + CType(Me.PictureBox17, System.ComponentModel.ISupportInitialize).EndInit() + Me.SplitContainer1.Panel1.ResumeLayout(False) + Me.SplitContainer1.Panel2.ResumeLayout(False) + Me.SplitContainer1.Panel2.PerformLayout() + CType(Me.SplitContainer1, System.ComponentModel.ISupportInitialize).EndInit() + Me.SplitContainer1.ResumeLayout(False) + CType(Me.dv, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.bn, System.ComponentModel.ISupportInitialize).EndInit() + Me.bn.ResumeLayout(False) + Me.bn.PerformLayout() + CType(Me.PictureBox6, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.PictureBox15, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.PictureBox5, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.PictureBox4, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.PictureBox3, System.ComponentModel.ISupportInitialize).EndInit() + Me.GroupBox4.ResumeLayout(False) + Me.GroupBox4.PerformLayout() + CType(Me.PictureBox7, System.ComponentModel.ISupportInitialize).EndInit() + Me.GroupBox3.ResumeLayout(False) + Me.GroupBox3.PerformLayout() + CType(Me.PictureBox8, System.ComponentModel.ISupportInitialize).EndInit() + Me.ToolStrip1.ResumeLayout(False) + Me.ToolStrip1.PerformLayout() + CType(Me.PictureBox14, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.PictureBox13, System.ComponentModel.ISupportInitialize).EndInit() + Me.ResumeLayout(False) + + End Sub + Friend WithEvents 축열탱크방식NCMB As MyCmb + Friend WithEvents 단열등급NCMB As MyCmb + Friend WithEvents 지역난방방식NCMB As MyCmb + Friend WithEvents 보일러방식NCMB As MyCmb + Friend WithEvents 정격보일러효율NTb As MyTb + Friend WithEvents tb_보일러대수다수 As MyTb + Friend WithEvents 운전방식NCMB As MyCmb + Friend WithEvents 열교환기정격출력NTb As MyTb + Friend WithEvents 보일러정격출력NTb As MyTb + Friend WithEvents 환수온도NTb1 As MyTb + Friend WithEvents 급수온도NTb1 As MyTb + Friend WithEvents 사용연료NCMB As MyCmb + Friend WithEvents 열생산기기방식NCMB As MyCmb + Friend WithEvents 층고NTb As MyTb + Friend WithEvents 열공급층수NTb As MyTb + Friend WithEvents 건물넓이NTb As MyTb + Friend WithEvents 건물길이NTb As MyTb + Friend WithEvents 펌프동력급탕NTb As MyTb + Friend WithEvents 펌프동력NTb As MyTb + Friend WithEvents 축열제척NTb As MyTb + Friend WithEvents bs As System.Windows.Forms.BindingSource + Friend WithEvents cmb_신재생 As Eco2Ar.MyCmb + Friend WithEvents 신재생연결여부ComboBox As Eco2Ar.MyCmb + Friend WithEvents 펌프제어ComboBox As Eco2Ar.MyCmb + Friend WithEvents 순환유무ComboBox As Eco2Ar.MyCmb + Friend WithEvents 분배시스템방식ComboBox As Eco2Ar.MyCmb + Friend WithEvents 펌프제어유형ComboBox As Eco2Ar.MyCmb + Friend WithEvents 펌프교정계수ComboBox As Eco2Ar.MyCmb + Friend WithEvents 배관망유형ComboBox As Eco2Ar.MyCmb + Friend WithEvents MyTb1 As Eco2Ar.MyTb + Friend WithEvents Label50 As System.Windows.Forms.Label + Friend WithEvents Label189 As System.Windows.Forms.Label + Friend WithEvents GroupBox39 As System.Windows.Forms.GroupBox + Friend WithEvents tb_히트용량 As Eco2Ar.MyTb + Friend WithEvents cmb_히트사용연료 As Eco2Ar.MyCmb + Friend WithEvents tb_히트정격10 As Eco2Ar.MyTb + Friend WithEvents tb_히트정격7 As Eco2Ar.MyTb + Friend WithEvents tb_히트길이 As Eco2Ar.MyTb + Friend WithEvents SplitContainer1 As System.Windows.Forms.SplitContainer + Friend WithEvents dv As CEnergy.arindv + Friend WithEvents bn As System.Windows.Forms.BindingNavigator + Friend WithEvents bt_add As System.Windows.Forms.ToolStripButton + Friend WithEvents bt_Del As System.Windows.Forms.ToolStripButton + Friend WithEvents bt_cancel As System.Windows.Forms.ToolStripButton + Friend WithEvents ToolStripSeparator1 As System.Windows.Forms.ToolStripSeparator + Friend WithEvents lbl_count As System.Windows.Forms.ToolStripLabel + Friend WithEvents lbl_pos As System.Windows.Forms.ToolStripLabel + Friend WithEvents GroupBox1 As System.Windows.Forms.GroupBox + Friend WithEvents GroupBox2 As System.Windows.Forms.GroupBox + Friend WithEvents GroupBox5 As System.Windows.Forms.GroupBox + Friend WithEvents GroupBox7 As System.Windows.Forms.GroupBox + Friend WithEvents GroupBox8 As System.Windows.Forms.GroupBox + Friend WithEvents GroupBox9 As System.Windows.Forms.GroupBox + Friend WithEvents GroupBox10 As System.Windows.Forms.GroupBox + Friend WithEvents Label21 As System.Windows.Forms.Label + Friend WithEvents ToolStrip1 As System.Windows.Forms.ToolStrip + Friend WithEvents ToolStripLabel1 As System.Windows.Forms.ToolStripLabel + Friend WithEvents lbl_cnt1 As System.Windows.Forms.ToolStripLabel + Friend WithEvents ToolStripLabel3 As System.Windows.Forms.ToolStripLabel + Friend WithEvents lbl_cnt2 As System.Windows.Forms.ToolStripLabel + Friend WithEvents GroupBox3 As System.Windows.Forms.GroupBox + Friend WithEvents GroupBox4 As System.Windows.Forms.GroupBox + Friend WithEvents PictureBox2 As System.Windows.Forms.PictureBox + Friend WithEvents PictureBox1 As System.Windows.Forms.PictureBox + Friend WithEvents Label30 As System.Windows.Forms.Label + Friend WithEvents PictureBox6 As System.Windows.Forms.PictureBox + Friend WithEvents Label29 As System.Windows.Forms.Label + Friend WithEvents PictureBox5 As System.Windows.Forms.PictureBox + Friend WithEvents Label25 As System.Windows.Forms.Label + Friend WithEvents PictureBox3 As System.Windows.Forms.PictureBox + Friend WithEvents PictureBox9 As System.Windows.Forms.PictureBox + Friend WithEvents PictureBox7 As System.Windows.Forms.PictureBox + Friend WithEvents PictureBox8 As System.Windows.Forms.PictureBox + Friend WithEvents PictureBox10 As System.Windows.Forms.PictureBox + Friend WithEvents PictureBox11 As System.Windows.Forms.PictureBox + Friend WithEvents PictureBox12 As System.Windows.Forms.PictureBox + Friend WithEvents Label26 As System.Windows.Forms.Label + Friend WithEvents PictureBox14 As System.Windows.Forms.PictureBox + Friend WithEvents Label24 As System.Windows.Forms.Label + Friend WithEvents PictureBox13 As System.Windows.Forms.PictureBox + Friend WithEvents PictureBox16 As System.Windows.Forms.PictureBox + Friend WithEvents Label22 As System.Windows.Forms.Label + Friend WithEvents PictureBox17 As System.Windows.Forms.PictureBox + Friend WithEvents Label18 As System.Windows.Forms.Label + Friend WithEvents PictureBox15 As System.Windows.Forms.PictureBox + Friend WithEvents cmb_히트펌프시스템종류 As Eco2Ar.MyCmb + Friend WithEvents RadioButton2 As System.Windows.Forms.RadioButton + Friend WithEvents RadioButton1 As System.Windows.Forms.RadioButton + Friend WithEvents 급탕배관길이NTB As Eco2Ar.MyTb + Friend WithEvents DataGridViewTextBoxColumn1 As System.Windows.Forms.DataGridViewTextBoxColumn + Friend WithEvents Label23 As System.Windows.Forms.Label + Friend WithEvents Label182 As System.Windows.Forms.Label + Friend WithEvents Label180 As System.Windows.Forms.Label + Friend WithEvents chk_개별기기적용 As System.Windows.Forms.CheckBox + Friend WithEvents chk_헤더적용 As System.Windows.Forms.CheckBox + Friend WithEvents DS As Eco2Ar.DS + Friend WithEvents Label31 As System.Windows.Forms.Label + Friend WithEvents PictureBox4 As System.Windows.Forms.PictureBox + Friend WithEvents ToolStripSeparator2 As System.Windows.Forms.ToolStripSeparator + Friend WithEvents lb_code As System.Windows.Forms.ToolStripLabel + Friend WithEvents 설명DataGridViewTextBoxColumn As System.Windows.Forms.DataGridViewTextBoxColumn +End Class diff --git a/ArinWarev1/Forms_Input/Frm_Nanbang.resx b/ArinWarev1/Forms_Input/Frm_Nanbang.resx new file mode 100644 index 0000000..d941b37 --- /dev/null +++ b/ArinWarev1/Forms_Input/Frm_Nanbang.resx @@ -0,0 +1,896 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + 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 + + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + 17, 17 + + + 256, 17 + + + 81, 17 + + + + + /9j/4AAQSkZJRgABAgEASABIAAD/7gAOQWRvYmUAZAAAAAAB/+ED5kV4aWYAAE1NACoAAAAIAAcBEgAD + AAAAAQABAAABGgAFAAAAAQAAAGIBGwAFAAAAAQAAAGoBKAADAAAAAQACAAABMQACAAAAHAAAAHIBMgAC + AAAAFAAAAI6HaQAEAAAAAQAAAKIAAADCAEgAAAABAAAASAAAAAEAAEFkb2JlIFBob3Rvc2hvcCBDUzMg + V2luZG93cwAyMDEwOjA0OjE1IDIwOjMyOjA0AAACoAIABAAAAAEAAAA8oAMABAAAAAEAAAAMAAAAAAAA + AAYBAwADAAAAAQAGAAABGgAFAAAAAQAAARABGwAFAAAAAQAAARgBKAADAAAAAQACAAACAQAEAAAAAQAA + ASACAgAEAAAAAQAAAr4AAAAAAAAASAAAAAEAAABIAAAAAf/Y/+AAEEpGSUYAAQIAAEgASAAA/+0ADEFk + b2JlX0NNAAH/7gAOQWRvYmUAZIAAAAAB/9sAhAAMCAgICQgMCQkMEQsKCxEVDwwMDxUYExMVExMYEQwM + DAwMDBEMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMAQ0LCw0ODRAODhAUDg4OFBQODg4OFBEMDAwM + DBERDAwMDAwMEQwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAz/wAARCAAMADwDASIAAhEBAxEB/90A + BAAE/8QBPwAAAQUBAQEBAQEAAAAAAAAAAwABAgQFBgcICQoLAQABBQEBAQEBAQAAAAAAAAABAAIDBAUG + BwgJCgsQAAEEAQMCBAIFBwYIBQMMMwEAAhEDBCESMQVBUWETInGBMgYUkaGxQiMkFVLBYjM0coLRQwcl + klPw4fFjczUWorKDJkSTVGRFwqN0NhfSVeJl8rOEw9N14/NGJ5SkhbSVxNTk9KW1xdXl9VZmdoaWprbG + 1ub2N0dXZ3eHl6e3x9fn9xEAAgIBAgQEAwQFBgcHBgU1AQACEQMhMRIEQVFhcSITBTKBkRShsUIjwVLR + 8DMkYuFygpJDUxVjczTxJQYWorKDByY1wtJEk1SjF2RFVTZ0ZeLys4TD03Xj80aUpIW0lcTU5PSltcXV + 5fVWZnaGlqa2xtbm9ic3R1dnd4eXp7fH/9oADAMBAAIRAxEAPwDd/amR/pH/AOcf70v2pkf6R/8AnH+9 + UUlofq/Bpevxb37UyP8ASP8A84/3pftTI/0j/wDOP96opJfq/BXr8W9+1Mj/AEj/APOP96X7UyP9I/8A + zj/eqKSX6vwV6/F3ujdbuGS2i5xfU8HVxktIG76XyW99vo27p0XGdO2/ba930dZj+q5dX+qfZPL8VAeD + 341VVr/eZhx+0bu708n/2f/iDFhJQ0NfUFJPRklMRQABAQAADEhMaW5vAhAAAG1udHJSR0IgWFlaIAfO + AAIACQAGADEAAGFjc3BNU0ZUAAAAAElFQyBzUkdCAAAAAAAAAAAAAAAAAAD21gABAAAAANMtSFAgIAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAEWNwcnQAAAFQAAAAM2Rl + c2MAAAGEAAAAbHd0cHQAAAHwAAAAFGJrcHQAAAIEAAAAFHJYWVoAAAIYAAAAFGdYWVoAAAIsAAAAFGJY + WVoAAAJAAAAAFGRtbmQAAAJUAAAAcGRtZGQAAALEAAAAiHZ1ZWQAAANMAAAAhnZpZXcAAAPUAAAAJGx1 + bWkAAAP4AAAAFG1lYXMAAAQMAAAAJHRlY2gAAAQwAAAADHJUUkMAAAQ8AAAIDGdUUkMAAAQ8AAAIDGJU + UkMAAAQ8AAAIDHRleHQAAAAAQ29weXJpZ2h0IChjKSAxOTk4IEhld2xldHQtUGFja2FyZCBDb21wYW55 + AABkZXNjAAAAAAAAABJzUkdCIElFQzYxOTY2LTIuMQAAAAAAAAAAAAAAEnNSR0IgSUVDNjE5NjYtMi4x + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABYWVogAAAAAAAA + 81EAAQAAAAEWzFhZWiAAAAAAAAAAAAAAAAAAAAAAWFlaIAAAAAAAAG+iAAA49QAAA5BYWVogAAAAAAAA + YpkAALeFAAAY2lhZWiAAAAAAAAAkoAAAD4QAALbPZGVzYwAAAAAAAAAWSUVDIGh0dHA6Ly93d3cuaWVj + LmNoAAAAAAAAAAAAAAAWSUVDIGh0dHA6Ly93d3cuaWVjLmNoAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAGRlc2MAAAAAAAAALklFQyA2MTk2Ni0yLjEgRGVmYXVsdCBSR0Ig + Y29sb3VyIHNwYWNlIC0gc1JHQgAAAAAAAAAAAAAALklFQyA2MTk2Ni0yLjEgRGVmYXVsdCBSR0IgY29s + b3VyIHNwYWNlIC0gc1JHQgAAAAAAAAAAAAAAAAAAAAAAAAAAAABkZXNjAAAAAAAAACxSZWZlcmVuY2Ug + Vmlld2luZyBDb25kaXRpb24gaW4gSUVDNjE5NjYtMi4xAAAAAAAAAAAAAAAsUmVmZXJlbmNlIFZpZXdp + bmcgQ29uZGl0aW9uIGluIElFQzYxOTY2LTIuMQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAdmlldwAA + AAAAE6T+ABRfLgAQzxQAA+3MAAQTCwADXJ4AAAABWFlaIAAAAAAATAlWAFAAAABXH+dtZWFzAAAAAAAA + AAEAAAAAAAAAAAAAAAAAAAAAAAACjwAAAAJzaWcgAAAAAENSVCBjdXJ2AAAAAAAABAAAAAAFAAoADwAU + ABkAHgAjACgALQAyADcAOwBAAEUASgBPAFQAWQBeAGMAaABtAHIAdwB8AIEAhgCLAJAAlQCaAJ8ApACp + AK4AsgC3ALwAwQDGAMsA0ADVANsA4ADlAOsA8AD2APsBAQEHAQ0BEwEZAR8BJQErATIBOAE+AUUBTAFS + AVkBYAFnAW4BdQF8AYMBiwGSAZoBoQGpAbEBuQHBAckB0QHZAeEB6QHyAfoCAwIMAhQCHQImAi8COAJB + AksCVAJdAmcCcQJ6AoQCjgKYAqICrAK2AsECywLVAuAC6wL1AwADCwMWAyEDLQM4A0MDTwNaA2YDcgN+ + A4oDlgOiA64DugPHA9MD4APsA/kEBgQTBCAELQQ7BEgEVQRjBHEEfgSMBJoEqAS2BMQE0wThBPAE/gUN + BRwFKwU6BUkFWAVnBXcFhgWWBaYFtQXFBdUF5QX2BgYGFgYnBjcGSAZZBmoGewaMBp0GrwbABtEG4wb1 + BwcHGQcrBz0HTwdhB3QHhgeZB6wHvwfSB+UH+AgLCB8IMghGCFoIbgiCCJYIqgi+CNII5wj7CRAJJQk6 + CU8JZAl5CY8JpAm6Cc8J5Qn7ChEKJwo9ClQKagqBCpgKrgrFCtwK8wsLCyILOQtRC2kLgAuYC7ALyAvh + C/kMEgwqDEMMXAx1DI4MpwzADNkM8w0NDSYNQA1aDXQNjg2pDcMN3g34DhMOLg5JDmQOfw6bDrYO0g7u + DwkPJQ9BD14Peg+WD7MPzw/sEAkQJhBDEGEQfhCbELkQ1xD1ERMRMRFPEW0RjBGqEckR6BIHEiYSRRJk + EoQSoxLDEuMTAxMjE0MTYxODE6QTxRPlFAYUJxRJFGoUixStFM4U8BUSFTQVVhV4FZsVvRXgFgMWJhZJ + FmwWjxayFtYW+hcdF0EXZReJF64X0hf3GBsYQBhlGIoYrxjVGPoZIBlFGWsZkRm3Gd0aBBoqGlEadxqe + GsUa7BsUGzsbYxuKG7Ib2hwCHCocUhx7HKMczBz1HR4dRx1wHZkdwx3sHhYeQB5qHpQevh7pHxMfPh9p + H5Qfvx/qIBUgQSBsIJggxCDwIRwhSCF1IaEhziH7IiciVSKCIq8i3SMKIzgjZiOUI8Ij8CQfJE0kfCSr + JNolCSU4JWgllyXHJfcmJyZXJocmtyboJxgnSSd6J6sn3CgNKD8ocSiiKNQpBik4KWspnSnQKgIqNSpo + KpsqzysCKzYraSudK9EsBSw5LG4soizXLQwtQS12Last4S4WLkwugi63Lu4vJC9aL5Evxy/+MDUwbDCk + MNsxEjFKMYIxujHyMioyYzKbMtQzDTNGM38zuDPxNCs0ZTSeNNg1EzVNNYc1wjX9Njc2cjauNuk3JDdg + N5w31zgUOFA4jDjIOQU5Qjl/Obw5+To2OnQ6sjrvOy07azuqO+g8JzxlPKQ84z0iPWE9oT3gPiA+YD6g + PuA/IT9hP6I/4kAjQGRApkDnQSlBakGsQe5CMEJyQrVC90M6Q31DwEQDREdEikTORRJFVUWaRd5GIkZn + RqtG8Ec1R3tHwEgFSEtIkUjXSR1JY0mpSfBKN0p9SsRLDEtTS5pL4kwqTHJMuk0CTUpNk03cTiVObk63 + TwBPSU+TT91QJ1BxULtRBlFQUZtR5lIxUnxSx1MTU19TqlP2VEJUj1TbVShVdVXCVg9WXFapVvdXRFeS + V+BYL1h9WMtZGllpWbhaB1pWWqZa9VtFW5Vb5Vw1XIZc1l0nXXhdyV4aXmxevV8PX2Ffs2AFYFdgqmD8 + YU9homH1YklinGLwY0Njl2PrZEBklGTpZT1lkmXnZj1mkmboZz1nk2fpaD9olmjsaUNpmmnxakhqn2r3 + a09rp2v/bFdsr20IbWBtuW4SbmtuxG8eb3hv0XArcIZw4HE6cZVx8HJLcqZzAXNdc7h0FHRwdMx1KHWF + deF2Pnabdvh3VnezeBF4bnjMeSp5iXnnekZ6pXsEe2N7wnwhfIF84X1BfaF+AX5ifsJ/I3+Ef+WAR4Co + gQqBa4HNgjCCkoL0g1eDuoQdhICE44VHhauGDoZyhteHO4efiASIaYjOiTOJmYn+imSKyoswi5aL/Ixj + jMqNMY2Yjf+OZo7OjzaPnpAGkG6Q1pE/kaiSEZJ6kuOTTZO2lCCUipT0lV+VyZY0lp+XCpd1l+CYTJi4 + mSSZkJn8mmia1ZtCm6+cHJyJnPedZJ3SnkCerp8dn4uf+qBpoNihR6G2oiailqMGo3aj5qRWpMelOKWp + phqmi6b9p26n4KhSqMSpN6mpqhyqj6sCq3Wr6axcrNCtRK24ri2uoa8Wr4uwALB1sOqxYLHWskuywrM4 + s660JbSctRO1irYBtnm28Ldot+C4WbjRuUq5wro7urW7LrunvCG8m70VvY++Cr6Evv+/er/1wHDA7MFn + wePCX8Lbw1jD1MRRxM7FS8XIxkbGw8dBx7/IPci8yTrJuco4yrfLNsu2zDXMtc01zbXONs62zzfPuNA5 + 0LrRPNG+0j/SwdNE08bUSdTL1U7V0dZV1tjXXNfg2GTY6Nls2fHadtr724DcBdyK3RDdlt4c3qLfKd+v + 4DbgveFE4cziU+Lb42Pj6+Rz5PzlhOYN5pbnH+ep6DLovOlG6dDqW+rl63Dr++yG7RHtnO4o7rTvQO/M + 8Fjw5fFy8f/yjPMZ86f0NPTC9VD13vZt9vv3ivgZ+Kj5OPnH+lf65/t3/Af8mP0p/br+S/7c/23////b + AEMAAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQICAgICAgICAgICAwMD + AwMDAwMDA//bAEMBAQEBAQEBAQEBAQICAQICAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMD + AwMDAwMDAwMDAwMDAwMDA//AABEIAAwAPAMBEQACEQEDEQH/xAAfAAABBQEBAQEBAQAAAAAAAAAAAQID + BAUGBwgJCgv/xAC1EAACAQMDAgQDBQUEBAAAAX0BAgMABBEFEiExQQYTUWEHInEUMoGRoQgjQrHBFVLR + 8CQzYnKCCQoWFxgZGiUmJygpKjQ1Njc4OTpDREVGR0hJSlNUVVZXWFlaY2RlZmdoaWpzdHV2d3h5eoOE + hYaHiImKkpOUlZaXmJmaoqOkpaanqKmqsrO0tba3uLm6wsPExcbHyMnK0tPU1dbX2Nna4eLj5OXm5+jp + 6vHy8/T19vf4+fr/xAAfAQADAQEBAQEBAQEBAAAAAAAAAQIDBAUGBwgJCgv/xAC1EQACAQIEBAMEBwUE + BAABAncAAQIDEQQFITEGEkFRB2FxEyIygQgUQpGhscEJIzNS8BVictEKFiQ04SXxFxgZGiYnKCkqNTY3 + ODk6Q0RFRkdISUpTVFVWV1hZWmNkZWZnaGlqc3R1dnd4eXqCg4SFhoeIiYqSk5SVlpeYmZqio6Slpqeo + qaqys7S1tre4ubrCw8TFxsfIycrS09TV1tfY2dri4+Tl5ufo6ery8/T19vf4+fr/2gAMAwEAAhEDEQA/ + AP1ZH7UPxEAA/wCEw8bnj/ob9f8A/k+v7U/1Nyj/AKF+G/8ABUP/AJE/llcSZlZf7dX/APBk/wDMX/hq + H4if9Df43/8ACv1//wCT6P8AU3Kf+hfhv/BUP/kQ/wBZcy/6Dq//AIMn/mH/AA1D8RP+hv8AG/8A4V+v + /wDyfR/qblP/AEL8N/4Kh/8AIh/rLmX/AEHV/wDwZP8AzD/hqH4if9Df43/8K/X/AP5Po/1Nyn/oX4b/ + AMFQ/wDkQ/1lzL/oOr/+DJ/5h/w1D8RP+hv8b/8AhX6//wDJ9H+puU/9C/Df+Cof/Ih/rLmX/QdX/wDB + k/8AMT/hqH4if9Df43/8K/X/AP5Po/1Nyn/oX4b/AMFQ/wDkQ/1kzL/oOr/+DJ/5n2R+xz+234zt/iRp + nw+8a6vqXiDwZ4gs9baObXr+bUr/AMPajpmkX2tQ3FlqV2Zb57K7XT2t3tXkaJWkV4whVxJ+beJfAuU4 + Th/FZ/hKEKOMw8qd+SKjGcZzjTs4q0bpyUlJK7s073VvuuBOLMxxGcYfJ8TWlVw1ZTtzu7hKMJTupPWz + UWnFu2qatrf9aP8AhfXgv+zv7U89/sfm+V5207N+M43fSv50P2w/kwr/AEFP42CgAoAKACgAoA9s/Z0/ + s7/hcng3+1vP/s7Ov/avs2PP2f8ACL63t2buP9ZjP+zmvz7xU/5IPPf+4H/qRRPsvD//AJK7KP8AuL/6 + ZqH7/wD/ABaT/hUfb7Ht/wBj7V9p8v8A9Cr+Oz+lz//Z + + + + + /9j/4AAQSkZJRgABAgEASABIAAD/7gAOQWRvYmUAZAAAAAAB/+ED5kV4aWYAAE1NACoAAAAIAAcBEgAD + AAAAAQABAAABGgAFAAAAAQAAAGIBGwAFAAAAAQAAAGoBKAADAAAAAQACAAABMQACAAAAHAAAAHIBMgAC + AAAAFAAAAI6HaQAEAAAAAQAAAKIAAADCAEgAAAABAAAASAAAAAEAAEFkb2JlIFBob3Rvc2hvcCBDUzMg + V2luZG93cwAyMDEwOjA0OjE1IDIwOjMyOjA0AAACoAIABAAAAAEAAAA8oAMABAAAAAEAAAAMAAAAAAAA + AAYBAwADAAAAAQAGAAABGgAFAAAAAQAAARABGwAFAAAAAQAAARgBKAADAAAAAQACAAACAQAEAAAAAQAA + ASACAgAEAAAAAQAAAr4AAAAAAAAASAAAAAEAAABIAAAAAf/Y/+AAEEpGSUYAAQIAAEgASAAA/+0ADEFk + b2JlX0NNAAH/7gAOQWRvYmUAZIAAAAAB/9sAhAAMCAgICQgMCQkMEQsKCxEVDwwMDxUYExMVExMYEQwM + DAwMDBEMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMAQ0LCw0ODRAODhAUDg4OFBQODg4OFBEMDAwM + DBERDAwMDAwMEQwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAz/wAARCAAMADwDASIAAhEBAxEB/90A + BAAE/8QBPwAAAQUBAQEBAQEAAAAAAAAAAwABAgQFBgcICQoLAQABBQEBAQEBAQAAAAAAAAABAAIDBAUG + BwgJCgsQAAEEAQMCBAIFBwYIBQMMMwEAAhEDBCESMQVBUWETInGBMgYUkaGxQiMkFVLBYjM0coLRQwcl + klPw4fFjczUWorKDJkSTVGRFwqN0NhfSVeJl8rOEw9N14/NGJ5SkhbSVxNTk9KW1xdXl9VZmdoaWprbG + 1ub2N0dXZ3eHl6e3x9fn9xEAAgIBAgQEAwQFBgcHBgU1AQACEQMhMRIEQVFhcSITBTKBkRShsUIjwVLR + 8DMkYuFygpJDUxVjczTxJQYWorKDByY1wtJEk1SjF2RFVTZ0ZeLys4TD03Xj80aUpIW0lcTU5PSltcXV + 5fVWZnaGlqa2xtbm9ic3R1dnd4eXp7fH/9oADAMBAAIRAxEAPwDd/amR/pH/AOcf70v2pkf6R/8AnH+9 + UUlofq/Bpevxb37UyP8ASP8A84/3pftTI/0j/wDOP96opJfq/BXr8W9+1Mj/AEj/APOP96X7UyP9I/8A + zj/eqKSX6vwV6/F3ujdbuGS2i5xfU8HVxktIG76XyW99vo27p0XGdO2/ba930dZj+q5dX+qfZPL8VAeD + 341VVr/eZhx+0bu708n/2f/iDFhJQ0NfUFJPRklMRQABAQAADEhMaW5vAhAAAG1udHJSR0IgWFlaIAfO + AAIACQAGADEAAGFjc3BNU0ZUAAAAAElFQyBzUkdCAAAAAAAAAAAAAAAAAAD21gABAAAAANMtSFAgIAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAEWNwcnQAAAFQAAAAM2Rl + c2MAAAGEAAAAbHd0cHQAAAHwAAAAFGJrcHQAAAIEAAAAFHJYWVoAAAIYAAAAFGdYWVoAAAIsAAAAFGJY + WVoAAAJAAAAAFGRtbmQAAAJUAAAAcGRtZGQAAALEAAAAiHZ1ZWQAAANMAAAAhnZpZXcAAAPUAAAAJGx1 + bWkAAAP4AAAAFG1lYXMAAAQMAAAAJHRlY2gAAAQwAAAADHJUUkMAAAQ8AAAIDGdUUkMAAAQ8AAAIDGJU + UkMAAAQ8AAAIDHRleHQAAAAAQ29weXJpZ2h0IChjKSAxOTk4IEhld2xldHQtUGFja2FyZCBDb21wYW55 + AABkZXNjAAAAAAAAABJzUkdCIElFQzYxOTY2LTIuMQAAAAAAAAAAAAAAEnNSR0IgSUVDNjE5NjYtMi4x + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABYWVogAAAAAAAA + 81EAAQAAAAEWzFhZWiAAAAAAAAAAAAAAAAAAAAAAWFlaIAAAAAAAAG+iAAA49QAAA5BYWVogAAAAAAAA + YpkAALeFAAAY2lhZWiAAAAAAAAAkoAAAD4QAALbPZGVzYwAAAAAAAAAWSUVDIGh0dHA6Ly93d3cuaWVj + LmNoAAAAAAAAAAAAAAAWSUVDIGh0dHA6Ly93d3cuaWVjLmNoAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAGRlc2MAAAAAAAAALklFQyA2MTk2Ni0yLjEgRGVmYXVsdCBSR0Ig + Y29sb3VyIHNwYWNlIC0gc1JHQgAAAAAAAAAAAAAALklFQyA2MTk2Ni0yLjEgRGVmYXVsdCBSR0IgY29s + b3VyIHNwYWNlIC0gc1JHQgAAAAAAAAAAAAAAAAAAAAAAAAAAAABkZXNjAAAAAAAAACxSZWZlcmVuY2Ug + Vmlld2luZyBDb25kaXRpb24gaW4gSUVDNjE5NjYtMi4xAAAAAAAAAAAAAAAsUmVmZXJlbmNlIFZpZXdp + bmcgQ29uZGl0aW9uIGluIElFQzYxOTY2LTIuMQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAdmlldwAA + AAAAE6T+ABRfLgAQzxQAA+3MAAQTCwADXJ4AAAABWFlaIAAAAAAATAlWAFAAAABXH+dtZWFzAAAAAAAA + AAEAAAAAAAAAAAAAAAAAAAAAAAACjwAAAAJzaWcgAAAAAENSVCBjdXJ2AAAAAAAABAAAAAAFAAoADwAU + ABkAHgAjACgALQAyADcAOwBAAEUASgBPAFQAWQBeAGMAaABtAHIAdwB8AIEAhgCLAJAAlQCaAJ8ApACp + AK4AsgC3ALwAwQDGAMsA0ADVANsA4ADlAOsA8AD2APsBAQEHAQ0BEwEZAR8BJQErATIBOAE+AUUBTAFS + AVkBYAFnAW4BdQF8AYMBiwGSAZoBoQGpAbEBuQHBAckB0QHZAeEB6QHyAfoCAwIMAhQCHQImAi8COAJB + AksCVAJdAmcCcQJ6AoQCjgKYAqICrAK2AsECywLVAuAC6wL1AwADCwMWAyEDLQM4A0MDTwNaA2YDcgN+ + A4oDlgOiA64DugPHA9MD4APsA/kEBgQTBCAELQQ7BEgEVQRjBHEEfgSMBJoEqAS2BMQE0wThBPAE/gUN + BRwFKwU6BUkFWAVnBXcFhgWWBaYFtQXFBdUF5QX2BgYGFgYnBjcGSAZZBmoGewaMBp0GrwbABtEG4wb1 + BwcHGQcrBz0HTwdhB3QHhgeZB6wHvwfSB+UH+AgLCB8IMghGCFoIbgiCCJYIqgi+CNII5wj7CRAJJQk6 + CU8JZAl5CY8JpAm6Cc8J5Qn7ChEKJwo9ClQKagqBCpgKrgrFCtwK8wsLCyILOQtRC2kLgAuYC7ALyAvh + C/kMEgwqDEMMXAx1DI4MpwzADNkM8w0NDSYNQA1aDXQNjg2pDcMN3g34DhMOLg5JDmQOfw6bDrYO0g7u + DwkPJQ9BD14Peg+WD7MPzw/sEAkQJhBDEGEQfhCbELkQ1xD1ERMRMRFPEW0RjBGqEckR6BIHEiYSRRJk + EoQSoxLDEuMTAxMjE0MTYxODE6QTxRPlFAYUJxRJFGoUixStFM4U8BUSFTQVVhV4FZsVvRXgFgMWJhZJ + FmwWjxayFtYW+hcdF0EXZReJF64X0hf3GBsYQBhlGIoYrxjVGPoZIBlFGWsZkRm3Gd0aBBoqGlEadxqe + GsUa7BsUGzsbYxuKG7Ib2hwCHCocUhx7HKMczBz1HR4dRx1wHZkdwx3sHhYeQB5qHpQevh7pHxMfPh9p + H5Qfvx/qIBUgQSBsIJggxCDwIRwhSCF1IaEhziH7IiciVSKCIq8i3SMKIzgjZiOUI8Ij8CQfJE0kfCSr + JNolCSU4JWgllyXHJfcmJyZXJocmtyboJxgnSSd6J6sn3CgNKD8ocSiiKNQpBik4KWspnSnQKgIqNSpo + KpsqzysCKzYraSudK9EsBSw5LG4soizXLQwtQS12Last4S4WLkwugi63Lu4vJC9aL5Evxy/+MDUwbDCk + MNsxEjFKMYIxujHyMioyYzKbMtQzDTNGM38zuDPxNCs0ZTSeNNg1EzVNNYc1wjX9Njc2cjauNuk3JDdg + N5w31zgUOFA4jDjIOQU5Qjl/Obw5+To2OnQ6sjrvOy07azuqO+g8JzxlPKQ84z0iPWE9oT3gPiA+YD6g + PuA/IT9hP6I/4kAjQGRApkDnQSlBakGsQe5CMEJyQrVC90M6Q31DwEQDREdEikTORRJFVUWaRd5GIkZn + RqtG8Ec1R3tHwEgFSEtIkUjXSR1JY0mpSfBKN0p9SsRLDEtTS5pL4kwqTHJMuk0CTUpNk03cTiVObk63 + TwBPSU+TT91QJ1BxULtRBlFQUZtR5lIxUnxSx1MTU19TqlP2VEJUj1TbVShVdVXCVg9WXFapVvdXRFeS + V+BYL1h9WMtZGllpWbhaB1pWWqZa9VtFW5Vb5Vw1XIZc1l0nXXhdyV4aXmxevV8PX2Ffs2AFYFdgqmD8 + YU9homH1YklinGLwY0Njl2PrZEBklGTpZT1lkmXnZj1mkmboZz1nk2fpaD9olmjsaUNpmmnxakhqn2r3 + a09rp2v/bFdsr20IbWBtuW4SbmtuxG8eb3hv0XArcIZw4HE6cZVx8HJLcqZzAXNdc7h0FHRwdMx1KHWF + deF2Pnabdvh3VnezeBF4bnjMeSp5iXnnekZ6pXsEe2N7wnwhfIF84X1BfaF+AX5ifsJ/I3+Ef+WAR4Co + gQqBa4HNgjCCkoL0g1eDuoQdhICE44VHhauGDoZyhteHO4efiASIaYjOiTOJmYn+imSKyoswi5aL/Ixj + jMqNMY2Yjf+OZo7OjzaPnpAGkG6Q1pE/kaiSEZJ6kuOTTZO2lCCUipT0lV+VyZY0lp+XCpd1l+CYTJi4 + mSSZkJn8mmia1ZtCm6+cHJyJnPedZJ3SnkCerp8dn4uf+qBpoNihR6G2oiailqMGo3aj5qRWpMelOKWp + phqmi6b9p26n4KhSqMSpN6mpqhyqj6sCq3Wr6axcrNCtRK24ri2uoa8Wr4uwALB1sOqxYLHWskuywrM4 + s660JbSctRO1irYBtnm28Ldot+C4WbjRuUq5wro7urW7LrunvCG8m70VvY++Cr6Evv+/er/1wHDA7MFn + wePCX8Lbw1jD1MRRxM7FS8XIxkbGw8dBx7/IPci8yTrJuco4yrfLNsu2zDXMtc01zbXONs62zzfPuNA5 + 0LrRPNG+0j/SwdNE08bUSdTL1U7V0dZV1tjXXNfg2GTY6Nls2fHadtr724DcBdyK3RDdlt4c3qLfKd+v + 4DbgveFE4cziU+Lb42Pj6+Rz5PzlhOYN5pbnH+ep6DLovOlG6dDqW+rl63Dr++yG7RHtnO4o7rTvQO/M + 8Fjw5fFy8f/yjPMZ86f0NPTC9VD13vZt9vv3ivgZ+Kj5OPnH+lf65/t3/Af8mP0p/br+S/7c/23////b + AEMAAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQICAgICAgICAgICAwMD + AwMDAwMDA//bAEMBAQEBAQEBAQEBAQICAQICAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMD + AwMDAwMDAwMDAwMDAwMDA//AABEIAAwAPAMBEQACEQEDEQH/xAAfAAABBQEBAQEBAQAAAAAAAAAAAQID + BAUGBwgJCgv/xAC1EAACAQMDAgQDBQUEBAAAAX0BAgMABBEFEiExQQYTUWEHInEUMoGRoQgjQrHBFVLR + 8CQzYnKCCQoWFxgZGiUmJygpKjQ1Njc4OTpDREVGR0hJSlNUVVZXWFlaY2RlZmdoaWpzdHV2d3h5eoOE + hYaHiImKkpOUlZaXmJmaoqOkpaanqKmqsrO0tba3uLm6wsPExcbHyMnK0tPU1dbX2Nna4eLj5OXm5+jp + 6vHy8/T19vf4+fr/xAAfAQADAQEBAQEBAQEBAAAAAAAAAQIDBAUGBwgJCgv/xAC1EQACAQIEBAMEBwUE + BAABAncAAQIDEQQFITEGEkFRB2FxEyIygQgUQpGhscEJIzNS8BVictEKFiQ04SXxFxgZGiYnKCkqNTY3 + ODk6Q0RFRkdISUpTVFVWV1hZWmNkZWZnaGlqc3R1dnd4eXqCg4SFhoeIiYqSk5SVlpeYmZqio6Slpqeo + qaqys7S1tre4ubrCw8TFxsfIycrS09TV1tfY2dri4+Tl5ufo6ery8/T19vf4+fr/2gAMAwEAAhEDEQA/ + AP1ZH7UPxEAA/wCEw8bnj/ob9f8A/k+v7U/1Nyj/AKF+G/8ABUP/AJE/llcSZlZf7dX/APBk/wDMX/hq + H4if9Df43/8ACv1//wCT6P8AU3Kf+hfhv/BUP/kQ/wBZcy/6Dq//AIMn/mH/AA1D8RP+hv8AG/8A4V+v + /wDyfR/qblP/AEL8N/4Kh/8AIh/rLmX/AEHV/wDwZP8AzD/hqH4if9Df43/8K/X/AP5Po/1Nyn/oX4b/ + AMFQ/wDkQ/1lzL/oOr/+DJ/5h/w1D8RP+hv8b/8AhX6//wDJ9H+puU/9C/Df+Cof/Ih/rLmX/QdX/wDB + k/8AMT/hqH4if9Df43/8K/X/AP5Po/1Nyn/oX4b/AMFQ/wDkQ/1kzL/oOr/+DJ/5n2R+xz+234zt/iRp + nw+8a6vqXiDwZ4gs9baObXr+bUr/AMPajpmkX2tQ3FlqV2Zb57K7XT2t3tXkaJWkV4whVxJ+beJfAuU4 + Th/FZ/hKEKOMw8qd+SKjGcZzjTs4q0bpyUlJK7s073VvuuBOLMxxGcYfJ8TWlVw1ZTtzu7hKMJTupPWz + UWnFu2qatrf9aP8AhfXgv+zv7U89/sfm+V5207N+M43fSv50P2w/kwr/AEFP42CgAoAKACgAoA9s/Z0/ + s7/hcng3+1vP/s7Ov/avs2PP2f8ACL63t2buP9ZjP+zmvz7xU/5IPPf+4H/qRRPsvD//AJK7KP8AuL/6 + ZqH7/wD/ABaT/hUfb7Ht/wBj7V9p8v8A9Cr+Oz+lz//Z + + + + + /9j/4AAQSkZJRgABAgEASABIAAD/7gAOQWRvYmUAZAAAAAAB/+ED5kV4aWYAAE1NACoAAAAIAAcBEgAD + AAAAAQABAAABGgAFAAAAAQAAAGIBGwAFAAAAAQAAAGoBKAADAAAAAQACAAABMQACAAAAHAAAAHIBMgAC + AAAAFAAAAI6HaQAEAAAAAQAAAKIAAADCAEgAAAABAAAASAAAAAEAAEFkb2JlIFBob3Rvc2hvcCBDUzMg + V2luZG93cwAyMDEwOjA0OjE1IDIwOjMyOjA0AAACoAIABAAAAAEAAAA8oAMABAAAAAEAAAAMAAAAAAAA + AAYBAwADAAAAAQAGAAABGgAFAAAAAQAAARABGwAFAAAAAQAAARgBKAADAAAAAQACAAACAQAEAAAAAQAA + ASACAgAEAAAAAQAAAr4AAAAAAAAASAAAAAEAAABIAAAAAf/Y/+AAEEpGSUYAAQIAAEgASAAA/+0ADEFk + b2JlX0NNAAH/7gAOQWRvYmUAZIAAAAAB/9sAhAAMCAgICQgMCQkMEQsKCxEVDwwMDxUYExMVExMYEQwM + DAwMDBEMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMAQ0LCw0ODRAODhAUDg4OFBQODg4OFBEMDAwM + DBERDAwMDAwMEQwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAz/wAARCAAMADwDASIAAhEBAxEB/90A + BAAE/8QBPwAAAQUBAQEBAQEAAAAAAAAAAwABAgQFBgcICQoLAQABBQEBAQEBAQAAAAAAAAABAAIDBAUG + BwgJCgsQAAEEAQMCBAIFBwYIBQMMMwEAAhEDBCESMQVBUWETInGBMgYUkaGxQiMkFVLBYjM0coLRQwcl + klPw4fFjczUWorKDJkSTVGRFwqN0NhfSVeJl8rOEw9N14/NGJ5SkhbSVxNTk9KW1xdXl9VZmdoaWprbG + 1ub2N0dXZ3eHl6e3x9fn9xEAAgIBAgQEAwQFBgcHBgU1AQACEQMhMRIEQVFhcSITBTKBkRShsUIjwVLR + 8DMkYuFygpJDUxVjczTxJQYWorKDByY1wtJEk1SjF2RFVTZ0ZeLys4TD03Xj80aUpIW0lcTU5PSltcXV + 5fVWZnaGlqa2xtbm9ic3R1dnd4eXp7fH/9oADAMBAAIRAxEAPwDd/amR/pH/AOcf70v2pkf6R/8AnH+9 + UUlofq/Bpevxb37UyP8ASP8A84/3pftTI/0j/wDOP96opJfq/BXr8W9+1Mj/AEj/APOP96X7UyP9I/8A + zj/eqKSX6vwV6/F3ujdbuGS2i5xfU8HVxktIG76XyW99vo27p0XGdO2/ba930dZj+q5dX+qfZPL8VAeD + 341VVr/eZhx+0bu708n/2f/iDFhJQ0NfUFJPRklMRQABAQAADEhMaW5vAhAAAG1udHJSR0IgWFlaIAfO + AAIACQAGADEAAGFjc3BNU0ZUAAAAAElFQyBzUkdCAAAAAAAAAAAAAAAAAAD21gABAAAAANMtSFAgIAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAEWNwcnQAAAFQAAAAM2Rl + c2MAAAGEAAAAbHd0cHQAAAHwAAAAFGJrcHQAAAIEAAAAFHJYWVoAAAIYAAAAFGdYWVoAAAIsAAAAFGJY + WVoAAAJAAAAAFGRtbmQAAAJUAAAAcGRtZGQAAALEAAAAiHZ1ZWQAAANMAAAAhnZpZXcAAAPUAAAAJGx1 + bWkAAAP4AAAAFG1lYXMAAAQMAAAAJHRlY2gAAAQwAAAADHJUUkMAAAQ8AAAIDGdUUkMAAAQ8AAAIDGJU + UkMAAAQ8AAAIDHRleHQAAAAAQ29weXJpZ2h0IChjKSAxOTk4IEhld2xldHQtUGFja2FyZCBDb21wYW55 + AABkZXNjAAAAAAAAABJzUkdCIElFQzYxOTY2LTIuMQAAAAAAAAAAAAAAEnNSR0IgSUVDNjE5NjYtMi4x + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABYWVogAAAAAAAA + 81EAAQAAAAEWzFhZWiAAAAAAAAAAAAAAAAAAAAAAWFlaIAAAAAAAAG+iAAA49QAAA5BYWVogAAAAAAAA + YpkAALeFAAAY2lhZWiAAAAAAAAAkoAAAD4QAALbPZGVzYwAAAAAAAAAWSUVDIGh0dHA6Ly93d3cuaWVj + LmNoAAAAAAAAAAAAAAAWSUVDIGh0dHA6Ly93d3cuaWVjLmNoAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAGRlc2MAAAAAAAAALklFQyA2MTk2Ni0yLjEgRGVmYXVsdCBSR0Ig + Y29sb3VyIHNwYWNlIC0gc1JHQgAAAAAAAAAAAAAALklFQyA2MTk2Ni0yLjEgRGVmYXVsdCBSR0IgY29s + b3VyIHNwYWNlIC0gc1JHQgAAAAAAAAAAAAAAAAAAAAAAAAAAAABkZXNjAAAAAAAAACxSZWZlcmVuY2Ug + Vmlld2luZyBDb25kaXRpb24gaW4gSUVDNjE5NjYtMi4xAAAAAAAAAAAAAAAsUmVmZXJlbmNlIFZpZXdp + bmcgQ29uZGl0aW9uIGluIElFQzYxOTY2LTIuMQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAdmlldwAA + AAAAE6T+ABRfLgAQzxQAA+3MAAQTCwADXJ4AAAABWFlaIAAAAAAATAlWAFAAAABXH+dtZWFzAAAAAAAA + AAEAAAAAAAAAAAAAAAAAAAAAAAACjwAAAAJzaWcgAAAAAENSVCBjdXJ2AAAAAAAABAAAAAAFAAoADwAU + ABkAHgAjACgALQAyADcAOwBAAEUASgBPAFQAWQBeAGMAaABtAHIAdwB8AIEAhgCLAJAAlQCaAJ8ApACp + AK4AsgC3ALwAwQDGAMsA0ADVANsA4ADlAOsA8AD2APsBAQEHAQ0BEwEZAR8BJQErATIBOAE+AUUBTAFS + AVkBYAFnAW4BdQF8AYMBiwGSAZoBoQGpAbEBuQHBAckB0QHZAeEB6QHyAfoCAwIMAhQCHQImAi8COAJB + AksCVAJdAmcCcQJ6AoQCjgKYAqICrAK2AsECywLVAuAC6wL1AwADCwMWAyEDLQM4A0MDTwNaA2YDcgN+ + A4oDlgOiA64DugPHA9MD4APsA/kEBgQTBCAELQQ7BEgEVQRjBHEEfgSMBJoEqAS2BMQE0wThBPAE/gUN + BRwFKwU6BUkFWAVnBXcFhgWWBaYFtQXFBdUF5QX2BgYGFgYnBjcGSAZZBmoGewaMBp0GrwbABtEG4wb1 + BwcHGQcrBz0HTwdhB3QHhgeZB6wHvwfSB+UH+AgLCB8IMghGCFoIbgiCCJYIqgi+CNII5wj7CRAJJQk6 + CU8JZAl5CY8JpAm6Cc8J5Qn7ChEKJwo9ClQKagqBCpgKrgrFCtwK8wsLCyILOQtRC2kLgAuYC7ALyAvh + C/kMEgwqDEMMXAx1DI4MpwzADNkM8w0NDSYNQA1aDXQNjg2pDcMN3g34DhMOLg5JDmQOfw6bDrYO0g7u + DwkPJQ9BD14Peg+WD7MPzw/sEAkQJhBDEGEQfhCbELkQ1xD1ERMRMRFPEW0RjBGqEckR6BIHEiYSRRJk + EoQSoxLDEuMTAxMjE0MTYxODE6QTxRPlFAYUJxRJFGoUixStFM4U8BUSFTQVVhV4FZsVvRXgFgMWJhZJ + FmwWjxayFtYW+hcdF0EXZReJF64X0hf3GBsYQBhlGIoYrxjVGPoZIBlFGWsZkRm3Gd0aBBoqGlEadxqe + GsUa7BsUGzsbYxuKG7Ib2hwCHCocUhx7HKMczBz1HR4dRx1wHZkdwx3sHhYeQB5qHpQevh7pHxMfPh9p + H5Qfvx/qIBUgQSBsIJggxCDwIRwhSCF1IaEhziH7IiciVSKCIq8i3SMKIzgjZiOUI8Ij8CQfJE0kfCSr + JNolCSU4JWgllyXHJfcmJyZXJocmtyboJxgnSSd6J6sn3CgNKD8ocSiiKNQpBik4KWspnSnQKgIqNSpo + KpsqzysCKzYraSudK9EsBSw5LG4soizXLQwtQS12Last4S4WLkwugi63Lu4vJC9aL5Evxy/+MDUwbDCk + MNsxEjFKMYIxujHyMioyYzKbMtQzDTNGM38zuDPxNCs0ZTSeNNg1EzVNNYc1wjX9Njc2cjauNuk3JDdg + N5w31zgUOFA4jDjIOQU5Qjl/Obw5+To2OnQ6sjrvOy07azuqO+g8JzxlPKQ84z0iPWE9oT3gPiA+YD6g + PuA/IT9hP6I/4kAjQGRApkDnQSlBakGsQe5CMEJyQrVC90M6Q31DwEQDREdEikTORRJFVUWaRd5GIkZn + RqtG8Ec1R3tHwEgFSEtIkUjXSR1JY0mpSfBKN0p9SsRLDEtTS5pL4kwqTHJMuk0CTUpNk03cTiVObk63 + TwBPSU+TT91QJ1BxULtRBlFQUZtR5lIxUnxSx1MTU19TqlP2VEJUj1TbVShVdVXCVg9WXFapVvdXRFeS + V+BYL1h9WMtZGllpWbhaB1pWWqZa9VtFW5Vb5Vw1XIZc1l0nXXhdyV4aXmxevV8PX2Ffs2AFYFdgqmD8 + YU9homH1YklinGLwY0Njl2PrZEBklGTpZT1lkmXnZj1mkmboZz1nk2fpaD9olmjsaUNpmmnxakhqn2r3 + a09rp2v/bFdsr20IbWBtuW4SbmtuxG8eb3hv0XArcIZw4HE6cZVx8HJLcqZzAXNdc7h0FHRwdMx1KHWF + deF2Pnabdvh3VnezeBF4bnjMeSp5iXnnekZ6pXsEe2N7wnwhfIF84X1BfaF+AX5ifsJ/I3+Ef+WAR4Co + gQqBa4HNgjCCkoL0g1eDuoQdhICE44VHhauGDoZyhteHO4efiASIaYjOiTOJmYn+imSKyoswi5aL/Ixj + jMqNMY2Yjf+OZo7OjzaPnpAGkG6Q1pE/kaiSEZJ6kuOTTZO2lCCUipT0lV+VyZY0lp+XCpd1l+CYTJi4 + mSSZkJn8mmia1ZtCm6+cHJyJnPedZJ3SnkCerp8dn4uf+qBpoNihR6G2oiailqMGo3aj5qRWpMelOKWp + phqmi6b9p26n4KhSqMSpN6mpqhyqj6sCq3Wr6axcrNCtRK24ri2uoa8Wr4uwALB1sOqxYLHWskuywrM4 + s660JbSctRO1irYBtnm28Ldot+C4WbjRuUq5wro7urW7LrunvCG8m70VvY++Cr6Evv+/er/1wHDA7MFn + wePCX8Lbw1jD1MRRxM7FS8XIxkbGw8dBx7/IPci8yTrJuco4yrfLNsu2zDXMtc01zbXONs62zzfPuNA5 + 0LrRPNG+0j/SwdNE08bUSdTL1U7V0dZV1tjXXNfg2GTY6Nls2fHadtr724DcBdyK3RDdlt4c3qLfKd+v + 4DbgveFE4cziU+Lb42Pj6+Rz5PzlhOYN5pbnH+ep6DLovOlG6dDqW+rl63Dr++yG7RHtnO4o7rTvQO/M + 8Fjw5fFy8f/yjPMZ86f0NPTC9VD13vZt9vv3ivgZ+Kj5OPnH+lf65/t3/Af8mP0p/br+S/7c/23////b + AEMAAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQICAgICAgICAgICAwMD + AwMDAwMDA//bAEMBAQEBAQEBAQEBAQICAQICAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMD + AwMDAwMDAwMDAwMDAwMDA//AABEIAAwAPAMBEQACEQEDEQH/xAAfAAABBQEBAQEBAQAAAAAAAAAAAQID + BAUGBwgJCgv/xAC1EAACAQMDAgQDBQUEBAAAAX0BAgMABBEFEiExQQYTUWEHInEUMoGRoQgjQrHBFVLR + 8CQzYnKCCQoWFxgZGiUmJygpKjQ1Njc4OTpDREVGR0hJSlNUVVZXWFlaY2RlZmdoaWpzdHV2d3h5eoOE + hYaHiImKkpOUlZaXmJmaoqOkpaanqKmqsrO0tba3uLm6wsPExcbHyMnK0tPU1dbX2Nna4eLj5OXm5+jp + 6vHy8/T19vf4+fr/xAAfAQADAQEBAQEBAQEBAAAAAAAAAQIDBAUGBwgJCgv/xAC1EQACAQIEBAMEBwUE + BAABAncAAQIDEQQFITEGEkFRB2FxEyIygQgUQpGhscEJIzNS8BVictEKFiQ04SXxFxgZGiYnKCkqNTY3 + ODk6Q0RFRkdISUpTVFVWV1hZWmNkZWZnaGlqc3R1dnd4eXqCg4SFhoeIiYqSk5SVlpeYmZqio6Slpqeo + qaqys7S1tre4ubrCw8TFxsfIycrS09TV1tfY2dri4+Tl5ufo6ery8/T19vf4+fr/2gAMAwEAAhEDEQA/ + AP1ZH7UPxEAA/wCEw8bnj/ob9f8A/k+v7U/1Nyj/AKF+G/8ABUP/AJE/llcSZlZf7dX/APBk/wDMX/hq + H4if9Df43/8ACv1//wCT6P8AU3Kf+hfhv/BUP/kQ/wBZcy/6Dq//AIMn/mH/AA1D8RP+hv8AG/8A4V+v + /wDyfR/qblP/AEL8N/4Kh/8AIh/rLmX/AEHV/wDwZP8AzD/hqH4if9Df43/8K/X/AP5Po/1Nyn/oX4b/ + AMFQ/wDkQ/1lzL/oOr/+DJ/5h/w1D8RP+hv8b/8AhX6//wDJ9H+puU/9C/Df+Cof/Ih/rLmX/QdX/wDB + k/8AMT/hqH4if9Df43/8K/X/AP5Po/1Nyn/oX4b/AMFQ/wDkQ/1kzL/oOr/+DJ/5n2R+xz+234zt/iRp + nw+8a6vqXiDwZ4gs9baObXr+bUr/AMPajpmkX2tQ3FlqV2Zb57K7XT2t3tXkaJWkV4whVxJ+beJfAuU4 + Th/FZ/hKEKOMw8qd+SKjGcZzjTs4q0bpyUlJK7s073VvuuBOLMxxGcYfJ8TWlVw1ZTtzu7hKMJTupPWz + UWnFu2qatrf9aP8AhfXgv+zv7U89/sfm+V5207N+M43fSv50P2w/kwr/AEFP42CgAoAKACgAoA9s/Z0/ + s7/hcng3+1vP/s7Ov/avs2PP2f8ACL63t2buP9ZjP+zmvz7xU/5IPPf+4H/qRRPsvD//AJK7KP8AuL/6 + ZqH7/wD/ABaT/hUfb7Ht/wBj7V9p8v8A9Cr+Oz+lz//Z + + + + + /9j/4AAQSkZJRgABAgEASABIAAD/7gAOQWRvYmUAZAAAAAAB/+ED5kV4aWYAAE1NACoAAAAIAAcBEgAD + AAAAAQABAAABGgAFAAAAAQAAAGIBGwAFAAAAAQAAAGoBKAADAAAAAQACAAABMQACAAAAHAAAAHIBMgAC + AAAAFAAAAI6HaQAEAAAAAQAAAKIAAADCAEgAAAABAAAASAAAAAEAAEFkb2JlIFBob3Rvc2hvcCBDUzMg + V2luZG93cwAyMDEwOjA0OjE1IDIwOjMyOjA0AAACoAIABAAAAAEAAAA8oAMABAAAAAEAAAAMAAAAAAAA + AAYBAwADAAAAAQAGAAABGgAFAAAAAQAAARABGwAFAAAAAQAAARgBKAADAAAAAQACAAACAQAEAAAAAQAA + ASACAgAEAAAAAQAAAr4AAAAAAAAASAAAAAEAAABIAAAAAf/Y/+AAEEpGSUYAAQIAAEgASAAA/+0ADEFk + b2JlX0NNAAH/7gAOQWRvYmUAZIAAAAAB/9sAhAAMCAgICQgMCQkMEQsKCxEVDwwMDxUYExMVExMYEQwM + DAwMDBEMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMAQ0LCw0ODRAODhAUDg4OFBQODg4OFBEMDAwM + DBERDAwMDAwMEQwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAz/wAARCAAMADwDASIAAhEBAxEB/90A + BAAE/8QBPwAAAQUBAQEBAQEAAAAAAAAAAwABAgQFBgcICQoLAQABBQEBAQEBAQAAAAAAAAABAAIDBAUG + BwgJCgsQAAEEAQMCBAIFBwYIBQMMMwEAAhEDBCESMQVBUWETInGBMgYUkaGxQiMkFVLBYjM0coLRQwcl + klPw4fFjczUWorKDJkSTVGRFwqN0NhfSVeJl8rOEw9N14/NGJ5SkhbSVxNTk9KW1xdXl9VZmdoaWprbG + 1ub2N0dXZ3eHl6e3x9fn9xEAAgIBAgQEAwQFBgcHBgU1AQACEQMhMRIEQVFhcSITBTKBkRShsUIjwVLR + 8DMkYuFygpJDUxVjczTxJQYWorKDByY1wtJEk1SjF2RFVTZ0ZeLys4TD03Xj80aUpIW0lcTU5PSltcXV + 5fVWZnaGlqa2xtbm9ic3R1dnd4eXp7fH/9oADAMBAAIRAxEAPwDd/amR/pH/AOcf70v2pkf6R/8AnH+9 + UUlofq/Bpevxb37UyP8ASP8A84/3pftTI/0j/wDOP96opJfq/BXr8W9+1Mj/AEj/APOP96X7UyP9I/8A + zj/eqKSX6vwV6/F3ujdbuGS2i5xfU8HVxktIG76XyW99vo27p0XGdO2/ba930dZj+q5dX+qfZPL8VAeD + 341VVr/eZhx+0bu708n/2f/iDFhJQ0NfUFJPRklMRQABAQAADEhMaW5vAhAAAG1udHJSR0IgWFlaIAfO + AAIACQAGADEAAGFjc3BNU0ZUAAAAAElFQyBzUkdCAAAAAAAAAAAAAAAAAAD21gABAAAAANMtSFAgIAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAEWNwcnQAAAFQAAAAM2Rl + c2MAAAGEAAAAbHd0cHQAAAHwAAAAFGJrcHQAAAIEAAAAFHJYWVoAAAIYAAAAFGdYWVoAAAIsAAAAFGJY + WVoAAAJAAAAAFGRtbmQAAAJUAAAAcGRtZGQAAALEAAAAiHZ1ZWQAAANMAAAAhnZpZXcAAAPUAAAAJGx1 + bWkAAAP4AAAAFG1lYXMAAAQMAAAAJHRlY2gAAAQwAAAADHJUUkMAAAQ8AAAIDGdUUkMAAAQ8AAAIDGJU + UkMAAAQ8AAAIDHRleHQAAAAAQ29weXJpZ2h0IChjKSAxOTk4IEhld2xldHQtUGFja2FyZCBDb21wYW55 + AABkZXNjAAAAAAAAABJzUkdCIElFQzYxOTY2LTIuMQAAAAAAAAAAAAAAEnNSR0IgSUVDNjE5NjYtMi4x + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABYWVogAAAAAAAA + 81EAAQAAAAEWzFhZWiAAAAAAAAAAAAAAAAAAAAAAWFlaIAAAAAAAAG+iAAA49QAAA5BYWVogAAAAAAAA + YpkAALeFAAAY2lhZWiAAAAAAAAAkoAAAD4QAALbPZGVzYwAAAAAAAAAWSUVDIGh0dHA6Ly93d3cuaWVj + LmNoAAAAAAAAAAAAAAAWSUVDIGh0dHA6Ly93d3cuaWVjLmNoAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAGRlc2MAAAAAAAAALklFQyA2MTk2Ni0yLjEgRGVmYXVsdCBSR0Ig + Y29sb3VyIHNwYWNlIC0gc1JHQgAAAAAAAAAAAAAALklFQyA2MTk2Ni0yLjEgRGVmYXVsdCBSR0IgY29s + b3VyIHNwYWNlIC0gc1JHQgAAAAAAAAAAAAAAAAAAAAAAAAAAAABkZXNjAAAAAAAAACxSZWZlcmVuY2Ug + Vmlld2luZyBDb25kaXRpb24gaW4gSUVDNjE5NjYtMi4xAAAAAAAAAAAAAAAsUmVmZXJlbmNlIFZpZXdp + bmcgQ29uZGl0aW9uIGluIElFQzYxOTY2LTIuMQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAdmlldwAA + AAAAE6T+ABRfLgAQzxQAA+3MAAQTCwADXJ4AAAABWFlaIAAAAAAATAlWAFAAAABXH+dtZWFzAAAAAAAA + AAEAAAAAAAAAAAAAAAAAAAAAAAACjwAAAAJzaWcgAAAAAENSVCBjdXJ2AAAAAAAABAAAAAAFAAoADwAU + ABkAHgAjACgALQAyADcAOwBAAEUASgBPAFQAWQBeAGMAaABtAHIAdwB8AIEAhgCLAJAAlQCaAJ8ApACp + AK4AsgC3ALwAwQDGAMsA0ADVANsA4ADlAOsA8AD2APsBAQEHAQ0BEwEZAR8BJQErATIBOAE+AUUBTAFS + AVkBYAFnAW4BdQF8AYMBiwGSAZoBoQGpAbEBuQHBAckB0QHZAeEB6QHyAfoCAwIMAhQCHQImAi8COAJB + AksCVAJdAmcCcQJ6AoQCjgKYAqICrAK2AsECywLVAuAC6wL1AwADCwMWAyEDLQM4A0MDTwNaA2YDcgN+ + A4oDlgOiA64DugPHA9MD4APsA/kEBgQTBCAELQQ7BEgEVQRjBHEEfgSMBJoEqAS2BMQE0wThBPAE/gUN + BRwFKwU6BUkFWAVnBXcFhgWWBaYFtQXFBdUF5QX2BgYGFgYnBjcGSAZZBmoGewaMBp0GrwbABtEG4wb1 + BwcHGQcrBz0HTwdhB3QHhgeZB6wHvwfSB+UH+AgLCB8IMghGCFoIbgiCCJYIqgi+CNII5wj7CRAJJQk6 + CU8JZAl5CY8JpAm6Cc8J5Qn7ChEKJwo9ClQKagqBCpgKrgrFCtwK8wsLCyILOQtRC2kLgAuYC7ALyAvh + C/kMEgwqDEMMXAx1DI4MpwzADNkM8w0NDSYNQA1aDXQNjg2pDcMN3g34DhMOLg5JDmQOfw6bDrYO0g7u + DwkPJQ9BD14Peg+WD7MPzw/sEAkQJhBDEGEQfhCbELkQ1xD1ERMRMRFPEW0RjBGqEckR6BIHEiYSRRJk + EoQSoxLDEuMTAxMjE0MTYxODE6QTxRPlFAYUJxRJFGoUixStFM4U8BUSFTQVVhV4FZsVvRXgFgMWJhZJ + FmwWjxayFtYW+hcdF0EXZReJF64X0hf3GBsYQBhlGIoYrxjVGPoZIBlFGWsZkRm3Gd0aBBoqGlEadxqe + GsUa7BsUGzsbYxuKG7Ib2hwCHCocUhx7HKMczBz1HR4dRx1wHZkdwx3sHhYeQB5qHpQevh7pHxMfPh9p + H5Qfvx/qIBUgQSBsIJggxCDwIRwhSCF1IaEhziH7IiciVSKCIq8i3SMKIzgjZiOUI8Ij8CQfJE0kfCSr + JNolCSU4JWgllyXHJfcmJyZXJocmtyboJxgnSSd6J6sn3CgNKD8ocSiiKNQpBik4KWspnSnQKgIqNSpo + KpsqzysCKzYraSudK9EsBSw5LG4soizXLQwtQS12Last4S4WLkwugi63Lu4vJC9aL5Evxy/+MDUwbDCk + MNsxEjFKMYIxujHyMioyYzKbMtQzDTNGM38zuDPxNCs0ZTSeNNg1EzVNNYc1wjX9Njc2cjauNuk3JDdg + N5w31zgUOFA4jDjIOQU5Qjl/Obw5+To2OnQ6sjrvOy07azuqO+g8JzxlPKQ84z0iPWE9oT3gPiA+YD6g + PuA/IT9hP6I/4kAjQGRApkDnQSlBakGsQe5CMEJyQrVC90M6Q31DwEQDREdEikTORRJFVUWaRd5GIkZn + RqtG8Ec1R3tHwEgFSEtIkUjXSR1JY0mpSfBKN0p9SsRLDEtTS5pL4kwqTHJMuk0CTUpNk03cTiVObk63 + TwBPSU+TT91QJ1BxULtRBlFQUZtR5lIxUnxSx1MTU19TqlP2VEJUj1TbVShVdVXCVg9WXFapVvdXRFeS + V+BYL1h9WMtZGllpWbhaB1pWWqZa9VtFW5Vb5Vw1XIZc1l0nXXhdyV4aXmxevV8PX2Ffs2AFYFdgqmD8 + YU9homH1YklinGLwY0Njl2PrZEBklGTpZT1lkmXnZj1mkmboZz1nk2fpaD9olmjsaUNpmmnxakhqn2r3 + a09rp2v/bFdsr20IbWBtuW4SbmtuxG8eb3hv0XArcIZw4HE6cZVx8HJLcqZzAXNdc7h0FHRwdMx1KHWF + deF2Pnabdvh3VnezeBF4bnjMeSp5iXnnekZ6pXsEe2N7wnwhfIF84X1BfaF+AX5ifsJ/I3+Ef+WAR4Co + gQqBa4HNgjCCkoL0g1eDuoQdhICE44VHhauGDoZyhteHO4efiASIaYjOiTOJmYn+imSKyoswi5aL/Ixj + jMqNMY2Yjf+OZo7OjzaPnpAGkG6Q1pE/kaiSEZJ6kuOTTZO2lCCUipT0lV+VyZY0lp+XCpd1l+CYTJi4 + mSSZkJn8mmia1ZtCm6+cHJyJnPedZJ3SnkCerp8dn4uf+qBpoNihR6G2oiailqMGo3aj5qRWpMelOKWp + phqmi6b9p26n4KhSqMSpN6mpqhyqj6sCq3Wr6axcrNCtRK24ri2uoa8Wr4uwALB1sOqxYLHWskuywrM4 + s660JbSctRO1irYBtnm28Ldot+C4WbjRuUq5wro7urW7LrunvCG8m70VvY++Cr6Evv+/er/1wHDA7MFn + wePCX8Lbw1jD1MRRxM7FS8XIxkbGw8dBx7/IPci8yTrJuco4yrfLNsu2zDXMtc01zbXONs62zzfPuNA5 + 0LrRPNG+0j/SwdNE08bUSdTL1U7V0dZV1tjXXNfg2GTY6Nls2fHadtr724DcBdyK3RDdlt4c3qLfKd+v + 4DbgveFE4cziU+Lb42Pj6+Rz5PzlhOYN5pbnH+ep6DLovOlG6dDqW+rl63Dr++yG7RHtnO4o7rTvQO/M + 8Fjw5fFy8f/yjPMZ86f0NPTC9VD13vZt9vv3ivgZ+Kj5OPnH+lf65/t3/Af8mP0p/br+S/7c/23////b + AEMAAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQICAgICAgICAgICAwMD + AwMDAwMDA//bAEMBAQEBAQEBAQEBAQICAQICAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMD + AwMDAwMDAwMDAwMDAwMDA//AABEIAAwAPAMBEQACEQEDEQH/xAAfAAABBQEBAQEBAQAAAAAAAAAAAQID + BAUGBwgJCgv/xAC1EAACAQMDAgQDBQUEBAAAAX0BAgMABBEFEiExQQYTUWEHInEUMoGRoQgjQrHBFVLR + 8CQzYnKCCQoWFxgZGiUmJygpKjQ1Njc4OTpDREVGR0hJSlNUVVZXWFlaY2RlZmdoaWpzdHV2d3h5eoOE + hYaHiImKkpOUlZaXmJmaoqOkpaanqKmqsrO0tba3uLm6wsPExcbHyMnK0tPU1dbX2Nna4eLj5OXm5+jp + 6vHy8/T19vf4+fr/xAAfAQADAQEBAQEBAQEBAAAAAAAAAQIDBAUGBwgJCgv/xAC1EQACAQIEBAMEBwUE + BAABAncAAQIDEQQFITEGEkFRB2FxEyIygQgUQpGhscEJIzNS8BVictEKFiQ04SXxFxgZGiYnKCkqNTY3 + ODk6Q0RFRkdISUpTVFVWV1hZWmNkZWZnaGlqc3R1dnd4eXqCg4SFhoeIiYqSk5SVlpeYmZqio6Slpqeo + qaqys7S1tre4ubrCw8TFxsfIycrS09TV1tfY2dri4+Tl5ufo6ery8/T19vf4+fr/2gAMAwEAAhEDEQA/ + AP1ZH7UPxEAA/wCEw8bnj/ob9f8A/k+v7U/1Nyj/AKF+G/8ABUP/AJE/llcSZlZf7dX/APBk/wDMX/hq + H4if9Df43/8ACv1//wCT6P8AU3Kf+hfhv/BUP/kQ/wBZcy/6Dq//AIMn/mH/AA1D8RP+hv8AG/8A4V+v + /wDyfR/qblP/AEL8N/4Kh/8AIh/rLmX/AEHV/wDwZP8AzD/hqH4if9Df43/8K/X/AP5Po/1Nyn/oX4b/ + AMFQ/wDkQ/1lzL/oOr/+DJ/5h/w1D8RP+hv8b/8AhX6//wDJ9H+puU/9C/Df+Cof/Ih/rLmX/QdX/wDB + k/8AMT/hqH4if9Df43/8K/X/AP5Po/1Nyn/oX4b/AMFQ/wDkQ/1kzL/oOr/+DJ/5n2R+xz+234zt/iRp + nw+8a6vqXiDwZ4gs9baObXr+bUr/AMPajpmkX2tQ3FlqV2Zb57K7XT2t3tXkaJWkV4whVxJ+beJfAuU4 + Th/FZ/hKEKOMw8qd+SKjGcZzjTs4q0bpyUlJK7s073VvuuBOLMxxGcYfJ8TWlVw1ZTtzu7hKMJTupPWz + UWnFu2qatrf9aP8AhfXgv+zv7U89/sfm+V5207N+M43fSv50P2w/kwr/AEFP42CgAoAKACgAoA9s/Z0/ + s7/hcng3+1vP/s7Ov/avs2PP2f8ACL63t2buP9ZjP+zmvz7xU/5IPPf+4H/qRRPsvD//AJK7KP8AuL/6 + ZqH7/wD/ABaT/hUfb7Ht/wBj7V9p8v8A9Cr+Oz+lz//Z + + + + + /9j/4AAQSkZJRgABAgEASABIAAD/7gAOQWRvYmUAZAAAAAAB/+ED5kV4aWYAAE1NACoAAAAIAAcBEgAD + AAAAAQABAAABGgAFAAAAAQAAAGIBGwAFAAAAAQAAAGoBKAADAAAAAQACAAABMQACAAAAHAAAAHIBMgAC + AAAAFAAAAI6HaQAEAAAAAQAAAKIAAADCAEgAAAABAAAASAAAAAEAAEFkb2JlIFBob3Rvc2hvcCBDUzMg + V2luZG93cwAyMDEwOjA0OjE1IDIwOjMyOjA0AAACoAIABAAAAAEAAAA8oAMABAAAAAEAAAAMAAAAAAAA + AAYBAwADAAAAAQAGAAABGgAFAAAAAQAAARABGwAFAAAAAQAAARgBKAADAAAAAQACAAACAQAEAAAAAQAA + ASACAgAEAAAAAQAAAr4AAAAAAAAASAAAAAEAAABIAAAAAf/Y/+AAEEpGSUYAAQIAAEgASAAA/+0ADEFk + b2JlX0NNAAH/7gAOQWRvYmUAZIAAAAAB/9sAhAAMCAgICQgMCQkMEQsKCxEVDwwMDxUYExMVExMYEQwM + DAwMDBEMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMAQ0LCw0ODRAODhAUDg4OFBQODg4OFBEMDAwM + DBERDAwMDAwMEQwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAz/wAARCAAMADwDASIAAhEBAxEB/90A + BAAE/8QBPwAAAQUBAQEBAQEAAAAAAAAAAwABAgQFBgcICQoLAQABBQEBAQEBAQAAAAAAAAABAAIDBAUG + BwgJCgsQAAEEAQMCBAIFBwYIBQMMMwEAAhEDBCESMQVBUWETInGBMgYUkaGxQiMkFVLBYjM0coLRQwcl + klPw4fFjczUWorKDJkSTVGRFwqN0NhfSVeJl8rOEw9N14/NGJ5SkhbSVxNTk9KW1xdXl9VZmdoaWprbG + 1ub2N0dXZ3eHl6e3x9fn9xEAAgIBAgQEAwQFBgcHBgU1AQACEQMhMRIEQVFhcSITBTKBkRShsUIjwVLR + 8DMkYuFygpJDUxVjczTxJQYWorKDByY1wtJEk1SjF2RFVTZ0ZeLys4TD03Xj80aUpIW0lcTU5PSltcXV + 5fVWZnaGlqa2xtbm9ic3R1dnd4eXp7fH/9oADAMBAAIRAxEAPwDd/amR/pH/AOcf70v2pkf6R/8AnH+9 + UUlofq/Bpevxb37UyP8ASP8A84/3pftTI/0j/wDOP96opJfq/BXr8W9+1Mj/AEj/APOP96X7UyP9I/8A + zj/eqKSX6vwV6/F3ujdbuGS2i5xfU8HVxktIG76XyW99vo27p0XGdO2/ba930dZj+q5dX+qfZPL8VAeD + 341VVr/eZhx+0bu708n/2f/iDFhJQ0NfUFJPRklMRQABAQAADEhMaW5vAhAAAG1udHJSR0IgWFlaIAfO + AAIACQAGADEAAGFjc3BNU0ZUAAAAAElFQyBzUkdCAAAAAAAAAAAAAAAAAAD21gABAAAAANMtSFAgIAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAEWNwcnQAAAFQAAAAM2Rl + c2MAAAGEAAAAbHd0cHQAAAHwAAAAFGJrcHQAAAIEAAAAFHJYWVoAAAIYAAAAFGdYWVoAAAIsAAAAFGJY + WVoAAAJAAAAAFGRtbmQAAAJUAAAAcGRtZGQAAALEAAAAiHZ1ZWQAAANMAAAAhnZpZXcAAAPUAAAAJGx1 + bWkAAAP4AAAAFG1lYXMAAAQMAAAAJHRlY2gAAAQwAAAADHJUUkMAAAQ8AAAIDGdUUkMAAAQ8AAAIDGJU + UkMAAAQ8AAAIDHRleHQAAAAAQ29weXJpZ2h0IChjKSAxOTk4IEhld2xldHQtUGFja2FyZCBDb21wYW55 + AABkZXNjAAAAAAAAABJzUkdCIElFQzYxOTY2LTIuMQAAAAAAAAAAAAAAEnNSR0IgSUVDNjE5NjYtMi4x + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABYWVogAAAAAAAA + 81EAAQAAAAEWzFhZWiAAAAAAAAAAAAAAAAAAAAAAWFlaIAAAAAAAAG+iAAA49QAAA5BYWVogAAAAAAAA + YpkAALeFAAAY2lhZWiAAAAAAAAAkoAAAD4QAALbPZGVzYwAAAAAAAAAWSUVDIGh0dHA6Ly93d3cuaWVj + LmNoAAAAAAAAAAAAAAAWSUVDIGh0dHA6Ly93d3cuaWVjLmNoAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAGRlc2MAAAAAAAAALklFQyA2MTk2Ni0yLjEgRGVmYXVsdCBSR0Ig + Y29sb3VyIHNwYWNlIC0gc1JHQgAAAAAAAAAAAAAALklFQyA2MTk2Ni0yLjEgRGVmYXVsdCBSR0IgY29s + b3VyIHNwYWNlIC0gc1JHQgAAAAAAAAAAAAAAAAAAAAAAAAAAAABkZXNjAAAAAAAAACxSZWZlcmVuY2Ug + Vmlld2luZyBDb25kaXRpb24gaW4gSUVDNjE5NjYtMi4xAAAAAAAAAAAAAAAsUmVmZXJlbmNlIFZpZXdp + bmcgQ29uZGl0aW9uIGluIElFQzYxOTY2LTIuMQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAdmlldwAA + AAAAE6T+ABRfLgAQzxQAA+3MAAQTCwADXJ4AAAABWFlaIAAAAAAATAlWAFAAAABXH+dtZWFzAAAAAAAA + AAEAAAAAAAAAAAAAAAAAAAAAAAACjwAAAAJzaWcgAAAAAENSVCBjdXJ2AAAAAAAABAAAAAAFAAoADwAU + ABkAHgAjACgALQAyADcAOwBAAEUASgBPAFQAWQBeAGMAaABtAHIAdwB8AIEAhgCLAJAAlQCaAJ8ApACp + AK4AsgC3ALwAwQDGAMsA0ADVANsA4ADlAOsA8AD2APsBAQEHAQ0BEwEZAR8BJQErATIBOAE+AUUBTAFS + AVkBYAFnAW4BdQF8AYMBiwGSAZoBoQGpAbEBuQHBAckB0QHZAeEB6QHyAfoCAwIMAhQCHQImAi8COAJB + AksCVAJdAmcCcQJ6AoQCjgKYAqICrAK2AsECywLVAuAC6wL1AwADCwMWAyEDLQM4A0MDTwNaA2YDcgN+ + A4oDlgOiA64DugPHA9MD4APsA/kEBgQTBCAELQQ7BEgEVQRjBHEEfgSMBJoEqAS2BMQE0wThBPAE/gUN + BRwFKwU6BUkFWAVnBXcFhgWWBaYFtQXFBdUF5QX2BgYGFgYnBjcGSAZZBmoGewaMBp0GrwbABtEG4wb1 + BwcHGQcrBz0HTwdhB3QHhgeZB6wHvwfSB+UH+AgLCB8IMghGCFoIbgiCCJYIqgi+CNII5wj7CRAJJQk6 + CU8JZAl5CY8JpAm6Cc8J5Qn7ChEKJwo9ClQKagqBCpgKrgrFCtwK8wsLCyILOQtRC2kLgAuYC7ALyAvh + C/kMEgwqDEMMXAx1DI4MpwzADNkM8w0NDSYNQA1aDXQNjg2pDcMN3g34DhMOLg5JDmQOfw6bDrYO0g7u + DwkPJQ9BD14Peg+WD7MPzw/sEAkQJhBDEGEQfhCbELkQ1xD1ERMRMRFPEW0RjBGqEckR6BIHEiYSRRJk + EoQSoxLDEuMTAxMjE0MTYxODE6QTxRPlFAYUJxRJFGoUixStFM4U8BUSFTQVVhV4FZsVvRXgFgMWJhZJ + FmwWjxayFtYW+hcdF0EXZReJF64X0hf3GBsYQBhlGIoYrxjVGPoZIBlFGWsZkRm3Gd0aBBoqGlEadxqe + GsUa7BsUGzsbYxuKG7Ib2hwCHCocUhx7HKMczBz1HR4dRx1wHZkdwx3sHhYeQB5qHpQevh7pHxMfPh9p + H5Qfvx/qIBUgQSBsIJggxCDwIRwhSCF1IaEhziH7IiciVSKCIq8i3SMKIzgjZiOUI8Ij8CQfJE0kfCSr + JNolCSU4JWgllyXHJfcmJyZXJocmtyboJxgnSSd6J6sn3CgNKD8ocSiiKNQpBik4KWspnSnQKgIqNSpo + KpsqzysCKzYraSudK9EsBSw5LG4soizXLQwtQS12Last4S4WLkwugi63Lu4vJC9aL5Evxy/+MDUwbDCk + MNsxEjFKMYIxujHyMioyYzKbMtQzDTNGM38zuDPxNCs0ZTSeNNg1EzVNNYc1wjX9Njc2cjauNuk3JDdg + N5w31zgUOFA4jDjIOQU5Qjl/Obw5+To2OnQ6sjrvOy07azuqO+g8JzxlPKQ84z0iPWE9oT3gPiA+YD6g + PuA/IT9hP6I/4kAjQGRApkDnQSlBakGsQe5CMEJyQrVC90M6Q31DwEQDREdEikTORRJFVUWaRd5GIkZn + RqtG8Ec1R3tHwEgFSEtIkUjXSR1JY0mpSfBKN0p9SsRLDEtTS5pL4kwqTHJMuk0CTUpNk03cTiVObk63 + TwBPSU+TT91QJ1BxULtRBlFQUZtR5lIxUnxSx1MTU19TqlP2VEJUj1TbVShVdVXCVg9WXFapVvdXRFeS + V+BYL1h9WMtZGllpWbhaB1pWWqZa9VtFW5Vb5Vw1XIZc1l0nXXhdyV4aXmxevV8PX2Ffs2AFYFdgqmD8 + YU9homH1YklinGLwY0Njl2PrZEBklGTpZT1lkmXnZj1mkmboZz1nk2fpaD9olmjsaUNpmmnxakhqn2r3 + a09rp2v/bFdsr20IbWBtuW4SbmtuxG8eb3hv0XArcIZw4HE6cZVx8HJLcqZzAXNdc7h0FHRwdMx1KHWF + deF2Pnabdvh3VnezeBF4bnjMeSp5iXnnekZ6pXsEe2N7wnwhfIF84X1BfaF+AX5ifsJ/I3+Ef+WAR4Co + gQqBa4HNgjCCkoL0g1eDuoQdhICE44VHhauGDoZyhteHO4efiASIaYjOiTOJmYn+imSKyoswi5aL/Ixj + jMqNMY2Yjf+OZo7OjzaPnpAGkG6Q1pE/kaiSEZJ6kuOTTZO2lCCUipT0lV+VyZY0lp+XCpd1l+CYTJi4 + mSSZkJn8mmia1ZtCm6+cHJyJnPedZJ3SnkCerp8dn4uf+qBpoNihR6G2oiailqMGo3aj5qRWpMelOKWp + phqmi6b9p26n4KhSqMSpN6mpqhyqj6sCq3Wr6axcrNCtRK24ri2uoa8Wr4uwALB1sOqxYLHWskuywrM4 + s660JbSctRO1irYBtnm28Ldot+C4WbjRuUq5wro7urW7LrunvCG8m70VvY++Cr6Evv+/er/1wHDA7MFn + wePCX8Lbw1jD1MRRxM7FS8XIxkbGw8dBx7/IPci8yTrJuco4yrfLNsu2zDXMtc01zbXONs62zzfPuNA5 + 0LrRPNG+0j/SwdNE08bUSdTL1U7V0dZV1tjXXNfg2GTY6Nls2fHadtr724DcBdyK3RDdlt4c3qLfKd+v + 4DbgveFE4cziU+Lb42Pj6+Rz5PzlhOYN5pbnH+ep6DLovOlG6dDqW+rl63Dr++yG7RHtnO4o7rTvQO/M + 8Fjw5fFy8f/yjPMZ86f0NPTC9VD13vZt9vv3ivgZ+Kj5OPnH+lf65/t3/Af8mP0p/br+S/7c/23////b + AEMAAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQICAgICAgICAgICAwMD + AwMDAwMDA//bAEMBAQEBAQEBAQEBAQICAQICAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMD + AwMDAwMDAwMDAwMDAwMDA//AABEIAAwAPAMBEQACEQEDEQH/xAAfAAABBQEBAQEBAQAAAAAAAAAAAQID + BAUGBwgJCgv/xAC1EAACAQMDAgQDBQUEBAAAAX0BAgMABBEFEiExQQYTUWEHInEUMoGRoQgjQrHBFVLR + 8CQzYnKCCQoWFxgZGiUmJygpKjQ1Njc4OTpDREVGR0hJSlNUVVZXWFlaY2RlZmdoaWpzdHV2d3h5eoOE + hYaHiImKkpOUlZaXmJmaoqOkpaanqKmqsrO0tba3uLm6wsPExcbHyMnK0tPU1dbX2Nna4eLj5OXm5+jp + 6vHy8/T19vf4+fr/xAAfAQADAQEBAQEBAQEBAAAAAAAAAQIDBAUGBwgJCgv/xAC1EQACAQIEBAMEBwUE + BAABAncAAQIDEQQFITEGEkFRB2FxEyIygQgUQpGhscEJIzNS8BVictEKFiQ04SXxFxgZGiYnKCkqNTY3 + ODk6Q0RFRkdISUpTVFVWV1hZWmNkZWZnaGlqc3R1dnd4eXqCg4SFhoeIiYqSk5SVlpeYmZqio6Slpqeo + qaqys7S1tre4ubrCw8TFxsfIycrS09TV1tfY2dri4+Tl5ufo6ery8/T19vf4+fr/2gAMAwEAAhEDEQA/ + AP1ZH7UPxEAA/wCEw8bnj/ob9f8A/k+v7U/1Nyj/AKF+G/8ABUP/AJE/llcSZlZf7dX/APBk/wDMX/hq + H4if9Df43/8ACv1//wCT6P8AU3Kf+hfhv/BUP/kQ/wBZcy/6Dq//AIMn/mH/AA1D8RP+hv8AG/8A4V+v + /wDyfR/qblP/AEL8N/4Kh/8AIh/rLmX/AEHV/wDwZP8AzD/hqH4if9Df43/8K/X/AP5Po/1Nyn/oX4b/ + AMFQ/wDkQ/1lzL/oOr/+DJ/5h/w1D8RP+hv8b/8AhX6//wDJ9H+puU/9C/Df+Cof/Ih/rLmX/QdX/wDB + k/8AMT/hqH4if9Df43/8K/X/AP5Po/1Nyn/oX4b/AMFQ/wDkQ/1kzL/oOr/+DJ/5n2R+xz+234zt/iRp + nw+8a6vqXiDwZ4gs9baObXr+bUr/AMPajpmkX2tQ3FlqV2Zb57K7XT2t3tXkaJWkV4whVxJ+beJfAuU4 + Th/FZ/hKEKOMw8qd+SKjGcZzjTs4q0bpyUlJK7s073VvuuBOLMxxGcYfJ8TWlVw1ZTtzu7hKMJTupPWz + UWnFu2qatrf9aP8AhfXgv+zv7U89/sfm+V5207N+M43fSv50P2w/kwr/AEFP42CgAoAKACgAoA9s/Z0/ + s7/hcng3+1vP/s7Ov/avs2PP2f8ACL63t2buP9ZjP+zmvz7xU/5IPPf+4H/qRRPsvD//AJK7KP8AuL/6 + ZqH7/wD/ABaT/hUfb7Ht/wBj7V9p8v8A9Cr+Oz+lz//Z + + + + 147, 17 + + + + /9j/4AAQSkZJRgABAgEASABIAAD/7gAOQWRvYmUAZAAAAAAB/+ED5kV4aWYAAE1NACoAAAAIAAcBEgAD + AAAAAQABAAABGgAFAAAAAQAAAGIBGwAFAAAAAQAAAGoBKAADAAAAAQACAAABMQACAAAAHAAAAHIBMgAC + AAAAFAAAAI6HaQAEAAAAAQAAAKIAAADCAEgAAAABAAAASAAAAAEAAEFkb2JlIFBob3Rvc2hvcCBDUzMg + V2luZG93cwAyMDEwOjA0OjE1IDIwOjMyOjA0AAACoAIABAAAAAEAAAA8oAMABAAAAAEAAAAMAAAAAAAA + AAYBAwADAAAAAQAGAAABGgAFAAAAAQAAARABGwAFAAAAAQAAARgBKAADAAAAAQACAAACAQAEAAAAAQAA + ASACAgAEAAAAAQAAAr4AAAAAAAAASAAAAAEAAABIAAAAAf/Y/+AAEEpGSUYAAQIAAEgASAAA/+0ADEFk + b2JlX0NNAAH/7gAOQWRvYmUAZIAAAAAB/9sAhAAMCAgICQgMCQkMEQsKCxEVDwwMDxUYExMVExMYEQwM + DAwMDBEMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMAQ0LCw0ODRAODhAUDg4OFBQODg4OFBEMDAwM + DBERDAwMDAwMEQwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAz/wAARCAAMADwDASIAAhEBAxEB/90A + BAAE/8QBPwAAAQUBAQEBAQEAAAAAAAAAAwABAgQFBgcICQoLAQABBQEBAQEBAQAAAAAAAAABAAIDBAUG + BwgJCgsQAAEEAQMCBAIFBwYIBQMMMwEAAhEDBCESMQVBUWETInGBMgYUkaGxQiMkFVLBYjM0coLRQwcl + klPw4fFjczUWorKDJkSTVGRFwqN0NhfSVeJl8rOEw9N14/NGJ5SkhbSVxNTk9KW1xdXl9VZmdoaWprbG + 1ub2N0dXZ3eHl6e3x9fn9xEAAgIBAgQEAwQFBgcHBgU1AQACEQMhMRIEQVFhcSITBTKBkRShsUIjwVLR + 8DMkYuFygpJDUxVjczTxJQYWorKDByY1wtJEk1SjF2RFVTZ0ZeLys4TD03Xj80aUpIW0lcTU5PSltcXV + 5fVWZnaGlqa2xtbm9ic3R1dnd4eXp7fH/9oADAMBAAIRAxEAPwDd/amR/pH/AOcf70v2pkf6R/8AnH+9 + UUlofq/Bpevxb37UyP8ASP8A84/3pftTI/0j/wDOP96opJfq/BXr8W9+1Mj/AEj/APOP96X7UyP9I/8A + zj/eqKSX6vwV6/F3ujdbuGS2i5xfU8HVxktIG76XyW99vo27p0XGdO2/ba930dZj+q5dX+qfZPL8VAeD + 341VVr/eZhx+0bu708n/2f/iDFhJQ0NfUFJPRklMRQABAQAADEhMaW5vAhAAAG1udHJSR0IgWFlaIAfO + AAIACQAGADEAAGFjc3BNU0ZUAAAAAElFQyBzUkdCAAAAAAAAAAAAAAAAAAD21gABAAAAANMtSFAgIAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAEWNwcnQAAAFQAAAAM2Rl + c2MAAAGEAAAAbHd0cHQAAAHwAAAAFGJrcHQAAAIEAAAAFHJYWVoAAAIYAAAAFGdYWVoAAAIsAAAAFGJY + WVoAAAJAAAAAFGRtbmQAAAJUAAAAcGRtZGQAAALEAAAAiHZ1ZWQAAANMAAAAhnZpZXcAAAPUAAAAJGx1 + bWkAAAP4AAAAFG1lYXMAAAQMAAAAJHRlY2gAAAQwAAAADHJUUkMAAAQ8AAAIDGdUUkMAAAQ8AAAIDGJU + UkMAAAQ8AAAIDHRleHQAAAAAQ29weXJpZ2h0IChjKSAxOTk4IEhld2xldHQtUGFja2FyZCBDb21wYW55 + AABkZXNjAAAAAAAAABJzUkdCIElFQzYxOTY2LTIuMQAAAAAAAAAAAAAAEnNSR0IgSUVDNjE5NjYtMi4x + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABYWVogAAAAAAAA + 81EAAQAAAAEWzFhZWiAAAAAAAAAAAAAAAAAAAAAAWFlaIAAAAAAAAG+iAAA49QAAA5BYWVogAAAAAAAA + YpkAALeFAAAY2lhZWiAAAAAAAAAkoAAAD4QAALbPZGVzYwAAAAAAAAAWSUVDIGh0dHA6Ly93d3cuaWVj + LmNoAAAAAAAAAAAAAAAWSUVDIGh0dHA6Ly93d3cuaWVjLmNoAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAGRlc2MAAAAAAAAALklFQyA2MTk2Ni0yLjEgRGVmYXVsdCBSR0Ig + Y29sb3VyIHNwYWNlIC0gc1JHQgAAAAAAAAAAAAAALklFQyA2MTk2Ni0yLjEgRGVmYXVsdCBSR0IgY29s + b3VyIHNwYWNlIC0gc1JHQgAAAAAAAAAAAAAAAAAAAAAAAAAAAABkZXNjAAAAAAAAACxSZWZlcmVuY2Ug + Vmlld2luZyBDb25kaXRpb24gaW4gSUVDNjE5NjYtMi4xAAAAAAAAAAAAAAAsUmVmZXJlbmNlIFZpZXdp + bmcgQ29uZGl0aW9uIGluIElFQzYxOTY2LTIuMQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAdmlldwAA + AAAAE6T+ABRfLgAQzxQAA+3MAAQTCwADXJ4AAAABWFlaIAAAAAAATAlWAFAAAABXH+dtZWFzAAAAAAAA + AAEAAAAAAAAAAAAAAAAAAAAAAAACjwAAAAJzaWcgAAAAAENSVCBjdXJ2AAAAAAAABAAAAAAFAAoADwAU + ABkAHgAjACgALQAyADcAOwBAAEUASgBPAFQAWQBeAGMAaABtAHIAdwB8AIEAhgCLAJAAlQCaAJ8ApACp + AK4AsgC3ALwAwQDGAMsA0ADVANsA4ADlAOsA8AD2APsBAQEHAQ0BEwEZAR8BJQErATIBOAE+AUUBTAFS + AVkBYAFnAW4BdQF8AYMBiwGSAZoBoQGpAbEBuQHBAckB0QHZAeEB6QHyAfoCAwIMAhQCHQImAi8COAJB + AksCVAJdAmcCcQJ6AoQCjgKYAqICrAK2AsECywLVAuAC6wL1AwADCwMWAyEDLQM4A0MDTwNaA2YDcgN+ + A4oDlgOiA64DugPHA9MD4APsA/kEBgQTBCAELQQ7BEgEVQRjBHEEfgSMBJoEqAS2BMQE0wThBPAE/gUN + BRwFKwU6BUkFWAVnBXcFhgWWBaYFtQXFBdUF5QX2BgYGFgYnBjcGSAZZBmoGewaMBp0GrwbABtEG4wb1 + BwcHGQcrBz0HTwdhB3QHhgeZB6wHvwfSB+UH+AgLCB8IMghGCFoIbgiCCJYIqgi+CNII5wj7CRAJJQk6 + CU8JZAl5CY8JpAm6Cc8J5Qn7ChEKJwo9ClQKagqBCpgKrgrFCtwK8wsLCyILOQtRC2kLgAuYC7ALyAvh + C/kMEgwqDEMMXAx1DI4MpwzADNkM8w0NDSYNQA1aDXQNjg2pDcMN3g34DhMOLg5JDmQOfw6bDrYO0g7u + DwkPJQ9BD14Peg+WD7MPzw/sEAkQJhBDEGEQfhCbELkQ1xD1ERMRMRFPEW0RjBGqEckR6BIHEiYSRRJk + EoQSoxLDEuMTAxMjE0MTYxODE6QTxRPlFAYUJxRJFGoUixStFM4U8BUSFTQVVhV4FZsVvRXgFgMWJhZJ + FmwWjxayFtYW+hcdF0EXZReJF64X0hf3GBsYQBhlGIoYrxjVGPoZIBlFGWsZkRm3Gd0aBBoqGlEadxqe + GsUa7BsUGzsbYxuKG7Ib2hwCHCocUhx7HKMczBz1HR4dRx1wHZkdwx3sHhYeQB5qHpQevh7pHxMfPh9p + H5Qfvx/qIBUgQSBsIJggxCDwIRwhSCF1IaEhziH7IiciVSKCIq8i3SMKIzgjZiOUI8Ij8CQfJE0kfCSr + JNolCSU4JWgllyXHJfcmJyZXJocmtyboJxgnSSd6J6sn3CgNKD8ocSiiKNQpBik4KWspnSnQKgIqNSpo + KpsqzysCKzYraSudK9EsBSw5LG4soizXLQwtQS12Last4S4WLkwugi63Lu4vJC9aL5Evxy/+MDUwbDCk + MNsxEjFKMYIxujHyMioyYzKbMtQzDTNGM38zuDPxNCs0ZTSeNNg1EzVNNYc1wjX9Njc2cjauNuk3JDdg + N5w31zgUOFA4jDjIOQU5Qjl/Obw5+To2OnQ6sjrvOy07azuqO+g8JzxlPKQ84z0iPWE9oT3gPiA+YD6g + PuA/IT9hP6I/4kAjQGRApkDnQSlBakGsQe5CMEJyQrVC90M6Q31DwEQDREdEikTORRJFVUWaRd5GIkZn + RqtG8Ec1R3tHwEgFSEtIkUjXSR1JY0mpSfBKN0p9SsRLDEtTS5pL4kwqTHJMuk0CTUpNk03cTiVObk63 + TwBPSU+TT91QJ1BxULtRBlFQUZtR5lIxUnxSx1MTU19TqlP2VEJUj1TbVShVdVXCVg9WXFapVvdXRFeS + V+BYL1h9WMtZGllpWbhaB1pWWqZa9VtFW5Vb5Vw1XIZc1l0nXXhdyV4aXmxevV8PX2Ffs2AFYFdgqmD8 + YU9homH1YklinGLwY0Njl2PrZEBklGTpZT1lkmXnZj1mkmboZz1nk2fpaD9olmjsaUNpmmnxakhqn2r3 + a09rp2v/bFdsr20IbWBtuW4SbmtuxG8eb3hv0XArcIZw4HE6cZVx8HJLcqZzAXNdc7h0FHRwdMx1KHWF + deF2Pnabdvh3VnezeBF4bnjMeSp5iXnnekZ6pXsEe2N7wnwhfIF84X1BfaF+AX5ifsJ/I3+Ef+WAR4Co + gQqBa4HNgjCCkoL0g1eDuoQdhICE44VHhauGDoZyhteHO4efiASIaYjOiTOJmYn+imSKyoswi5aL/Ixj + jMqNMY2Yjf+OZo7OjzaPnpAGkG6Q1pE/kaiSEZJ6kuOTTZO2lCCUipT0lV+VyZY0lp+XCpd1l+CYTJi4 + mSSZkJn8mmia1ZtCm6+cHJyJnPedZJ3SnkCerp8dn4uf+qBpoNihR6G2oiailqMGo3aj5qRWpMelOKWp + phqmi6b9p26n4KhSqMSpN6mpqhyqj6sCq3Wr6axcrNCtRK24ri2uoa8Wr4uwALB1sOqxYLHWskuywrM4 + s660JbSctRO1irYBtnm28Ldot+C4WbjRuUq5wro7urW7LrunvCG8m70VvY++Cr6Evv+/er/1wHDA7MFn + wePCX8Lbw1jD1MRRxM7FS8XIxkbGw8dBx7/IPci8yTrJuco4yrfLNsu2zDXMtc01zbXONs62zzfPuNA5 + 0LrRPNG+0j/SwdNE08bUSdTL1U7V0dZV1tjXXNfg2GTY6Nls2fHadtr724DcBdyK3RDdlt4c3qLfKd+v + 4DbgveFE4cziU+Lb42Pj6+Rz5PzlhOYN5pbnH+ep6DLovOlG6dDqW+rl63Dr++yG7RHtnO4o7rTvQO/M + 8Fjw5fFy8f/yjPMZ86f0NPTC9VD13vZt9vv3ivgZ+Kj5OPnH+lf65/t3/Af8mP0p/br+S/7c/23////b + AEMAAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQICAgICAgICAgICAwMD + AwMDAwMDA//bAEMBAQEBAQEBAQEBAQICAQICAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMD + AwMDAwMDAwMDAwMDAwMDA//AABEIAAwAPAMBEQACEQEDEQH/xAAfAAABBQEBAQEBAQAAAAAAAAAAAQID + BAUGBwgJCgv/xAC1EAACAQMDAgQDBQUEBAAAAX0BAgMABBEFEiExQQYTUWEHInEUMoGRoQgjQrHBFVLR + 8CQzYnKCCQoWFxgZGiUmJygpKjQ1Njc4OTpDREVGR0hJSlNUVVZXWFlaY2RlZmdoaWpzdHV2d3h5eoOE + hYaHiImKkpOUlZaXmJmaoqOkpaanqKmqsrO0tba3uLm6wsPExcbHyMnK0tPU1dbX2Nna4eLj5OXm5+jp + 6vHy8/T19vf4+fr/xAAfAQADAQEBAQEBAQEBAAAAAAAAAQIDBAUGBwgJCgv/xAC1EQACAQIEBAMEBwUE + BAABAncAAQIDEQQFITEGEkFRB2FxEyIygQgUQpGhscEJIzNS8BVictEKFiQ04SXxFxgZGiYnKCkqNTY3 + ODk6Q0RFRkdISUpTVFVWV1hZWmNkZWZnaGlqc3R1dnd4eXqCg4SFhoeIiYqSk5SVlpeYmZqio6Slpqeo + qaqys7S1tre4ubrCw8TFxsfIycrS09TV1tfY2dri4+Tl5ufo6ery8/T19vf4+fr/2gAMAwEAAhEDEQA/ + AP1ZH7UPxEAA/wCEw8bnj/ob9f8A/k+v7U/1Nyj/AKF+G/8ABUP/AJE/llcSZlZf7dX/APBk/wDMX/hq + H4if9Df43/8ACv1//wCT6P8AU3Kf+hfhv/BUP/kQ/wBZcy/6Dq//AIMn/mH/AA1D8RP+hv8AG/8A4V+v + /wDyfR/qblP/AEL8N/4Kh/8AIh/rLmX/AEHV/wDwZP8AzD/hqH4if9Df43/8K/X/AP5Po/1Nyn/oX4b/ + AMFQ/wDkQ/1lzL/oOr/+DJ/5h/w1D8RP+hv8b/8AhX6//wDJ9H+puU/9C/Df+Cof/Ih/rLmX/QdX/wDB + k/8AMT/hqH4if9Df43/8K/X/AP5Po/1Nyn/oX4b/AMFQ/wDkQ/1kzL/oOr/+DJ/5n2R+xz+234zt/iRp + nw+8a6vqXiDwZ4gs9baObXr+bUr/AMPajpmkX2tQ3FlqV2Zb57K7XT2t3tXkaJWkV4whVxJ+beJfAuU4 + Th/FZ/hKEKOMw8qd+SKjGcZzjTs4q0bpyUlJK7s073VvuuBOLMxxGcYfJ8TWlVw1ZTtzu7hKMJTupPWz + UWnFu2qatrf9aP8AhfXgv+zv7U89/sfm+V5207N+M43fSv50P2w/kwr/AEFP42CgAoAKACgAoA9s/Z0/ + s7/hcng3+1vP/s7Ov/avs2PP2f8ACL63t2buP9ZjP+zmvz7xU/5IPPf+4H/qRRPsvD//AJK7KP8AuL/6 + ZqH7/wD/ABaT/hUfb7Ht/wBj7V9p8v8A9Cr+Oz+lz//Z + + + + + /9j/4AAQSkZJRgABAgEASABIAAD/7gAOQWRvYmUAZAAAAAAB/+ED5kV4aWYAAE1NACoAAAAIAAcBEgAD + AAAAAQABAAABGgAFAAAAAQAAAGIBGwAFAAAAAQAAAGoBKAADAAAAAQACAAABMQACAAAAHAAAAHIBMgAC + AAAAFAAAAI6HaQAEAAAAAQAAAKIAAADCAEgAAAABAAAASAAAAAEAAEFkb2JlIFBob3Rvc2hvcCBDUzMg + V2luZG93cwAyMDEwOjA0OjE1IDIwOjMyOjA0AAACoAIABAAAAAEAAAA8oAMABAAAAAEAAAAMAAAAAAAA + AAYBAwADAAAAAQAGAAABGgAFAAAAAQAAARABGwAFAAAAAQAAARgBKAADAAAAAQACAAACAQAEAAAAAQAA + ASACAgAEAAAAAQAAAr4AAAAAAAAASAAAAAEAAABIAAAAAf/Y/+AAEEpGSUYAAQIAAEgASAAA/+0ADEFk + b2JlX0NNAAH/7gAOQWRvYmUAZIAAAAAB/9sAhAAMCAgICQgMCQkMEQsKCxEVDwwMDxUYExMVExMYEQwM + DAwMDBEMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMAQ0LCw0ODRAODhAUDg4OFBQODg4OFBEMDAwM + DBERDAwMDAwMEQwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAz/wAARCAAMADwDASIAAhEBAxEB/90A + BAAE/8QBPwAAAQUBAQEBAQEAAAAAAAAAAwABAgQFBgcICQoLAQABBQEBAQEBAQAAAAAAAAABAAIDBAUG + BwgJCgsQAAEEAQMCBAIFBwYIBQMMMwEAAhEDBCESMQVBUWETInGBMgYUkaGxQiMkFVLBYjM0coLRQwcl + klPw4fFjczUWorKDJkSTVGRFwqN0NhfSVeJl8rOEw9N14/NGJ5SkhbSVxNTk9KW1xdXl9VZmdoaWprbG + 1ub2N0dXZ3eHl6e3x9fn9xEAAgIBAgQEAwQFBgcHBgU1AQACEQMhMRIEQVFhcSITBTKBkRShsUIjwVLR + 8DMkYuFygpJDUxVjczTxJQYWorKDByY1wtJEk1SjF2RFVTZ0ZeLys4TD03Xj80aUpIW0lcTU5PSltcXV + 5fVWZnaGlqa2xtbm9ic3R1dnd4eXp7fH/9oADAMBAAIRAxEAPwDd/amR/pH/AOcf70v2pkf6R/8AnH+9 + UUlofq/Bpevxb37UyP8ASP8A84/3pftTI/0j/wDOP96opJfq/BXr8W9+1Mj/AEj/APOP96X7UyP9I/8A + zj/eqKSX6vwV6/F3ujdbuGS2i5xfU8HVxktIG76XyW99vo27p0XGdO2/ba930dZj+q5dX+qfZPL8VAeD + 341VVr/eZhx+0bu708n/2f/iDFhJQ0NfUFJPRklMRQABAQAADEhMaW5vAhAAAG1udHJSR0IgWFlaIAfO + AAIACQAGADEAAGFjc3BNU0ZUAAAAAElFQyBzUkdCAAAAAAAAAAAAAAAAAAD21gABAAAAANMtSFAgIAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAEWNwcnQAAAFQAAAAM2Rl + c2MAAAGEAAAAbHd0cHQAAAHwAAAAFGJrcHQAAAIEAAAAFHJYWVoAAAIYAAAAFGdYWVoAAAIsAAAAFGJY + WVoAAAJAAAAAFGRtbmQAAAJUAAAAcGRtZGQAAALEAAAAiHZ1ZWQAAANMAAAAhnZpZXcAAAPUAAAAJGx1 + bWkAAAP4AAAAFG1lYXMAAAQMAAAAJHRlY2gAAAQwAAAADHJUUkMAAAQ8AAAIDGdUUkMAAAQ8AAAIDGJU + UkMAAAQ8AAAIDHRleHQAAAAAQ29weXJpZ2h0IChjKSAxOTk4IEhld2xldHQtUGFja2FyZCBDb21wYW55 + AABkZXNjAAAAAAAAABJzUkdCIElFQzYxOTY2LTIuMQAAAAAAAAAAAAAAEnNSR0IgSUVDNjE5NjYtMi4x + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABYWVogAAAAAAAA + 81EAAQAAAAEWzFhZWiAAAAAAAAAAAAAAAAAAAAAAWFlaIAAAAAAAAG+iAAA49QAAA5BYWVogAAAAAAAA + YpkAALeFAAAY2lhZWiAAAAAAAAAkoAAAD4QAALbPZGVzYwAAAAAAAAAWSUVDIGh0dHA6Ly93d3cuaWVj + LmNoAAAAAAAAAAAAAAAWSUVDIGh0dHA6Ly93d3cuaWVjLmNoAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAGRlc2MAAAAAAAAALklFQyA2MTk2Ni0yLjEgRGVmYXVsdCBSR0Ig + Y29sb3VyIHNwYWNlIC0gc1JHQgAAAAAAAAAAAAAALklFQyA2MTk2Ni0yLjEgRGVmYXVsdCBSR0IgY29s + b3VyIHNwYWNlIC0gc1JHQgAAAAAAAAAAAAAAAAAAAAAAAAAAAABkZXNjAAAAAAAAACxSZWZlcmVuY2Ug + Vmlld2luZyBDb25kaXRpb24gaW4gSUVDNjE5NjYtMi4xAAAAAAAAAAAAAAAsUmVmZXJlbmNlIFZpZXdp + bmcgQ29uZGl0aW9uIGluIElFQzYxOTY2LTIuMQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAdmlldwAA + AAAAE6T+ABRfLgAQzxQAA+3MAAQTCwADXJ4AAAABWFlaIAAAAAAATAlWAFAAAABXH+dtZWFzAAAAAAAA + AAEAAAAAAAAAAAAAAAAAAAAAAAACjwAAAAJzaWcgAAAAAENSVCBjdXJ2AAAAAAAABAAAAAAFAAoADwAU + ABkAHgAjACgALQAyADcAOwBAAEUASgBPAFQAWQBeAGMAaABtAHIAdwB8AIEAhgCLAJAAlQCaAJ8ApACp + AK4AsgC3ALwAwQDGAMsA0ADVANsA4ADlAOsA8AD2APsBAQEHAQ0BEwEZAR8BJQErATIBOAE+AUUBTAFS + AVkBYAFnAW4BdQF8AYMBiwGSAZoBoQGpAbEBuQHBAckB0QHZAeEB6QHyAfoCAwIMAhQCHQImAi8COAJB + AksCVAJdAmcCcQJ6AoQCjgKYAqICrAK2AsECywLVAuAC6wL1AwADCwMWAyEDLQM4A0MDTwNaA2YDcgN+ + A4oDlgOiA64DugPHA9MD4APsA/kEBgQTBCAELQQ7BEgEVQRjBHEEfgSMBJoEqAS2BMQE0wThBPAE/gUN + BRwFKwU6BUkFWAVnBXcFhgWWBaYFtQXFBdUF5QX2BgYGFgYnBjcGSAZZBmoGewaMBp0GrwbABtEG4wb1 + BwcHGQcrBz0HTwdhB3QHhgeZB6wHvwfSB+UH+AgLCB8IMghGCFoIbgiCCJYIqgi+CNII5wj7CRAJJQk6 + CU8JZAl5CY8JpAm6Cc8J5Qn7ChEKJwo9ClQKagqBCpgKrgrFCtwK8wsLCyILOQtRC2kLgAuYC7ALyAvh + C/kMEgwqDEMMXAx1DI4MpwzADNkM8w0NDSYNQA1aDXQNjg2pDcMN3g34DhMOLg5JDmQOfw6bDrYO0g7u + DwkPJQ9BD14Peg+WD7MPzw/sEAkQJhBDEGEQfhCbELkQ1xD1ERMRMRFPEW0RjBGqEckR6BIHEiYSRRJk + EoQSoxLDEuMTAxMjE0MTYxODE6QTxRPlFAYUJxRJFGoUixStFM4U8BUSFTQVVhV4FZsVvRXgFgMWJhZJ + FmwWjxayFtYW+hcdF0EXZReJF64X0hf3GBsYQBhlGIoYrxjVGPoZIBlFGWsZkRm3Gd0aBBoqGlEadxqe + GsUa7BsUGzsbYxuKG7Ib2hwCHCocUhx7HKMczBz1HR4dRx1wHZkdwx3sHhYeQB5qHpQevh7pHxMfPh9p + H5Qfvx/qIBUgQSBsIJggxCDwIRwhSCF1IaEhziH7IiciVSKCIq8i3SMKIzgjZiOUI8Ij8CQfJE0kfCSr + JNolCSU4JWgllyXHJfcmJyZXJocmtyboJxgnSSd6J6sn3CgNKD8ocSiiKNQpBik4KWspnSnQKgIqNSpo + KpsqzysCKzYraSudK9EsBSw5LG4soizXLQwtQS12Last4S4WLkwugi63Lu4vJC9aL5Evxy/+MDUwbDCk + MNsxEjFKMYIxujHyMioyYzKbMtQzDTNGM38zuDPxNCs0ZTSeNNg1EzVNNYc1wjX9Njc2cjauNuk3JDdg + N5w31zgUOFA4jDjIOQU5Qjl/Obw5+To2OnQ6sjrvOy07azuqO+g8JzxlPKQ84z0iPWE9oT3gPiA+YD6g + PuA/IT9hP6I/4kAjQGRApkDnQSlBakGsQe5CMEJyQrVC90M6Q31DwEQDREdEikTORRJFVUWaRd5GIkZn + RqtG8Ec1R3tHwEgFSEtIkUjXSR1JY0mpSfBKN0p9SsRLDEtTS5pL4kwqTHJMuk0CTUpNk03cTiVObk63 + TwBPSU+TT91QJ1BxULtRBlFQUZtR5lIxUnxSx1MTU19TqlP2VEJUj1TbVShVdVXCVg9WXFapVvdXRFeS + V+BYL1h9WMtZGllpWbhaB1pWWqZa9VtFW5Vb5Vw1XIZc1l0nXXhdyV4aXmxevV8PX2Ffs2AFYFdgqmD8 + YU9homH1YklinGLwY0Njl2PrZEBklGTpZT1lkmXnZj1mkmboZz1nk2fpaD9olmjsaUNpmmnxakhqn2r3 + a09rp2v/bFdsr20IbWBtuW4SbmtuxG8eb3hv0XArcIZw4HE6cZVx8HJLcqZzAXNdc7h0FHRwdMx1KHWF + deF2Pnabdvh3VnezeBF4bnjMeSp5iXnnekZ6pXsEe2N7wnwhfIF84X1BfaF+AX5ifsJ/I3+Ef+WAR4Co + gQqBa4HNgjCCkoL0g1eDuoQdhICE44VHhauGDoZyhteHO4efiASIaYjOiTOJmYn+imSKyoswi5aL/Ixj + jMqNMY2Yjf+OZo7OjzaPnpAGkG6Q1pE/kaiSEZJ6kuOTTZO2lCCUipT0lV+VyZY0lp+XCpd1l+CYTJi4 + mSSZkJn8mmia1ZtCm6+cHJyJnPedZJ3SnkCerp8dn4uf+qBpoNihR6G2oiailqMGo3aj5qRWpMelOKWp + phqmi6b9p26n4KhSqMSpN6mpqhyqj6sCq3Wr6axcrNCtRK24ri2uoa8Wr4uwALB1sOqxYLHWskuywrM4 + s660JbSctRO1irYBtnm28Ldot+C4WbjRuUq5wro7urW7LrunvCG8m70VvY++Cr6Evv+/er/1wHDA7MFn + wePCX8Lbw1jD1MRRxM7FS8XIxkbGw8dBx7/IPci8yTrJuco4yrfLNsu2zDXMtc01zbXONs62zzfPuNA5 + 0LrRPNG+0j/SwdNE08bUSdTL1U7V0dZV1tjXXNfg2GTY6Nls2fHadtr724DcBdyK3RDdlt4c3qLfKd+v + 4DbgveFE4cziU+Lb42Pj6+Rz5PzlhOYN5pbnH+ep6DLovOlG6dDqW+rl63Dr++yG7RHtnO4o7rTvQO/M + 8Fjw5fFy8f/yjPMZ86f0NPTC9VD13vZt9vv3ivgZ+Kj5OPnH+lf65/t3/Af8mP0p/br+S/7c/23////b + AEMAAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQICAgICAgICAgICAwMD + AwMDAwMDA//bAEMBAQEBAQEBAQEBAQICAQICAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMD + AwMDAwMDAwMDAwMDAwMDA//AABEIAAwAPAMBEQACEQEDEQH/xAAfAAABBQEBAQEBAQAAAAAAAAAAAQID + BAUGBwgJCgv/xAC1EAACAQMDAgQDBQUEBAAAAX0BAgMABBEFEiExQQYTUWEHInEUMoGRoQgjQrHBFVLR + 8CQzYnKCCQoWFxgZGiUmJygpKjQ1Njc4OTpDREVGR0hJSlNUVVZXWFlaY2RlZmdoaWpzdHV2d3h5eoOE + hYaHiImKkpOUlZaXmJmaoqOkpaanqKmqsrO0tba3uLm6wsPExcbHyMnK0tPU1dbX2Nna4eLj5OXm5+jp + 6vHy8/T19vf4+fr/xAAfAQADAQEBAQEBAQEBAAAAAAAAAQIDBAUGBwgJCgv/xAC1EQACAQIEBAMEBwUE + BAABAncAAQIDEQQFITEGEkFRB2FxEyIygQgUQpGhscEJIzNS8BVictEKFiQ04SXxFxgZGiYnKCkqNTY3 + ODk6Q0RFRkdISUpTVFVWV1hZWmNkZWZnaGlqc3R1dnd4eXqCg4SFhoeIiYqSk5SVlpeYmZqio6Slpqeo + qaqys7S1tre4ubrCw8TFxsfIycrS09TV1tfY2dri4+Tl5ufo6ery8/T19vf4+fr/2gAMAwEAAhEDEQA/ + AP1ZH7UPxEAA/wCEw8bnj/ob9f8A/k+v7U/1Nyj/AKF+G/8ABUP/AJE/llcSZlZf7dX/APBk/wDMX/hq + H4if9Df43/8ACv1//wCT6P8AU3Kf+hfhv/BUP/kQ/wBZcy/6Dq//AIMn/mH/AA1D8RP+hv8AG/8A4V+v + /wDyfR/qblP/AEL8N/4Kh/8AIh/rLmX/AEHV/wDwZP8AzD/hqH4if9Df43/8K/X/AP5Po/1Nyn/oX4b/ + AMFQ/wDkQ/1lzL/oOr/+DJ/5h/w1D8RP+hv8b/8AhX6//wDJ9H+puU/9C/Df+Cof/Ih/rLmX/QdX/wDB + k/8AMT/hqH4if9Df43/8K/X/AP5Po/1Nyn/oX4b/AMFQ/wDkQ/1kzL/oOr/+DJ/5n2R+xz+234zt/iRp + nw+8a6vqXiDwZ4gs9baObXr+bUr/AMPajpmkX2tQ3FlqV2Zb57K7XT2t3tXkaJWkV4whVxJ+beJfAuU4 + Th/FZ/hKEKOMw8qd+SKjGcZzjTs4q0bpyUlJK7s073VvuuBOLMxxGcYfJ8TWlVw1ZTtzu7hKMJTupPWz + UWnFu2qatrf9aP8AhfXgv+zv7U89/sfm+V5207N+M43fSv50P2w/kwr/AEFP42CgAoAKACgAoA9s/Z0/ + s7/hcng3+1vP/s7Ov/avs2PP2f8ACL63t2buP9ZjP+zmvz7xU/5IPPf+4H/qRRPsvD//AJK7KP8AuL/6 + ZqH7/wD/ABaT/hUfb7Ht/wBj7V9p8v8A9Cr+Oz+lz//Z + + + + 44 + + \ No newline at end of file diff --git a/ArinWarev1/Forms_Input/Frm_Nanbang.vb b/ArinWarev1/Forms_Input/Frm_Nanbang.vb new file mode 100644 index 0000000..a663d74 --- /dev/null +++ b/ArinWarev1/Forms_Input/Frm_Nanbang.vb @@ -0,0 +1,1058 @@ +Public Class Frm_Nanbang + Dim isCopy As Boolean = False + Dim Init As Boolean = False + Dim SrcDrv As DataRowView + + + Public Sub New(_opentime) + + ' 이 호출은 디자이너에 필요합니다. + InitializeComponent() + OpenTime = _opentime + + ' InitializeComponent() 호출 뒤에 초기화 코드를 추가하십시오. + + End Sub + +#Region "data Base 변경여부및 적용방법" + + '''변경된내용을적용한다. + Public Overrides Function AcceptChanged() As Boolean + bs.EndEdit() + Dim BaseDS As DataSet = CType(bs.DataSource, DataSet) + Dim BaseDT As DataTable = BaseDS.Tables(bs.DataMember) + BaseDT.AcceptChanges() + Return True + End Function + + '''변경된내용이있다면 취소한다. + Public Overrides Function RejectChanged() As Boolean + Dim BaseDS As DataSet = CType(bs.DataSource, DataSet) + Dim BaseDT As DataTable = BaseDS.Tables(bs.DataMember) + BaseDT.RejectChanges() + Return True + End Function + + '''데이터에변형이있었는가? + Public Overrides Function HasChanged() As Boolean + bs.EndEdit() + Dim BaseDS As DataSet = CType(bs.DataSource, DataSet) + Dim BaseDT As DataTable = BaseDS.Tables(bs.DataMember) + Dim ChangeDT As DataTable = BaseDT.GetChanges + If Not ChangeDT Is Nothing Then Return True + Return False + End Function + + '''기본데이터테이블을 반환합니다. + Public Function DT() As DataTable + Dim BaseDS As DataSet = CType(bs.DataSource, DataSet) + Return BaseDS.Tables(bs.DataMember) + End Function + + +#End Region + Private Sub ShowHistory() + Dim drv As DataRowView = Me.bs.Current + Dim f As New Frm_History("tbl_nanbangkiki", drv("code").ToString) + If f.ShowDialog = DialogResult.OK Then + drv(f.colname) = f.val + Me.Validate() + Me.bs.EndEdit() + My.Application.DoEvents() + MsgBox("값이 변경되었습니다", MsgBoxStyle.Information, "확인") + End If + End Sub + Private Sub AddNewDataRow_Zone_Changed2(ByVal sender As Object, ByVal e As System.Data.DataColumnChangeEventArgs) + Dim oval As String = e.Row(e.Column.ColumnName).ToString + Dim nval As String = e.ProposedValue.ToString + If oval <> nval Then + Dim newdr As DS2.historyRow = DSHistory.history.NewhistoryRow + newdr.time = Now.ToString("yyyy-MM-dd HH:mm:ss") + newdr.tablename = "tbl_nanbangkiki" + newdr.ovalue = oval + newdr.nvalue = nval + newdr.column = e.Column.ColumnName + newdr.code = e.Row("code").ToString + DSHistory.history.AddhistoryRow(newdr) + DSHistory.history.AcceptChanges() + End If + End Sub + Private Sub MdiMain_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load + + Me.Show() + My.Application.DoEvents() + 'Work_msg_timer("잠시만 기다려주세요") + + + '//공유데이터셋에 연결한다. + Me.bs.DataSource = DSET1 + '//난방기기 + AddHandler DSET1.tbl_nanbangkiki.TableNewRow, AddressOf AddNewDataRow_nanbangkiki + AddHandler DSET1.tbl_nanbangkiki.ColumnChanging, AddressOf AddNewDataRow_Zone_Changed2 + + + + '//콤보컨트롤 바인딩 + Binding_Zone() + Binding_Check() + + Me.bs.Filter = "code <> '0'" + If Me.Parameter <> "" Then Me.bs.Filter &= " and 열생산기기방식 ='" + Me.Parameter + "'" + ' Me.lb_grpname.Text = Me.Parameter + + '//모든컨트롤의 cTrl_enter 를 추가합니다 + BindProperty(CType(Me.SplitContainer1.Panel2.Controls, Control.ControlCollection)) + + Me.Init = True + + Try + Me.bs.Position = CEnergy.ARINCLASS.Read_LastPos_Frm(Me) + Catch ex As Exception + Me.bs.MoveFirst() + End Try + + bs_CurrentChanged(sender, e) + Validate_Control() + AddDebug("▲ Form Load") + End Sub +#Region "Control_Enter" + Private Sub BindProperty(ByVal Ctl As Control.ControlCollection) + For Each C As Control In Ctl + If C.Controls.Count > 1 Then + BindProperty(C.Controls) + Else + If C.GetType.ToString.ToUpper.IndexOf("MYTB") <> -1 Then + AddHandler CType(C, MyTb).KeyDown, AddressOf TextBOx_KeyDown + ElseIf C.GetType.ToString.ToUpper.IndexOf("MYCMB") <> -1 Then + AddHandler CType(C, MyCmb).KeyDown, AddressOf Cmd_KeyDown + End If + End If + Next + End Sub + + Private Sub TextBOx_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) + If e.KeyCode = Keys.Enter AndAlso e.Control Then + Try + Dim Field As String = (CType(sender, MyTb).DataBindings.Item("text").BindingMemberInfo.BindingField) + For Each Dr As DataRow In Dt.Select(Me.bs.Filter, "") + Dr(Field) = CType(sender, MyTb).Text + Next + Work_msg_timer("모든값이 변경되었습니다", 25) + Catch ex As Exception + + End Try + + End If + End Sub + Private Sub Cmd_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) + If e.KeyCode = Keys.Enter AndAlso e.Control Then + Try + Dim Field As String = (CType(sender, MyCmb).DataBindings.Item("selectedvalue").BindingMemberInfo.BindingField) + For Each Dr As DataRow In Dt.Select(Me.bs.Filter, "") + Dr(Field) = CType(sender, MyCmb).SelectedValue + Next + Work_msg_timer("모든값이 변경되었습니다", 25) + Catch ex As Exception + + End Try + End If + End Sub +#End Region +#Region "난방기기" + +#Region "제어버튼" + Private Sub ToolStripButton48_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt_add.Click + If Not EndEdit(Me.bs) Then Return + Me.bs.AddNew() + INitRow(Me.Controls) + MdiMain.RefreshMenuList(TreeTag) + End Sub + + + Private Sub ToolStripButton49_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt_Del.Click + Dbbase.DelCrow(Me.bs, True) + MdiMain.RefreshMenuList(TreeTag) + End Sub + + Private Sub ToolStripButton51_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt_cancel.Click + If Not EndEdit(Me.bs) Then Return + Data_Cancel(DSET1.tbl_profile, Nothing) + MdiMain.RefreshMenuList(TreeTag) + End Sub +#End Region + + + + Private Sub MdiMain_FormClosed(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosedEventArgs) Handles Me.FormClosed + CEnergy.ARINCLASS.SaveLoad_FrmSetting(Me, Me.bs.Position, True) + End Sub + + Private Sub MdiMain_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown + Select Case e.KeyCode + Case Keys.F12 + ShowHistory() + End Select + End Sub + + Private Function GetMaxCode(ByVal dt As DataTable) As String + Try + Dim Dr As DataRow = dt.Select("", "code desc")(0) + Return Format(CInt(Dr("code")) + 1, "0000") + Catch ex As Exception + Return "0001" + End Try + End Function + + Private Sub Cmb_DeleteVal(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) + If e.KeyCode = Keys.Delete Then + CType(sender, ComboBox).SelectedValue = "" + End If + End Sub + +#Region "체크박스용" + + + '//체크박스용바인딩(130818) + Private Sub Binding_Check() + + ''//난방기기 + 'Dim bs_열생산기기방식NCMB As New BindingSource(DSET, "tbl_common") + 'bs_열생산기기방식NCMB.Filter = "gubun='1020'" + 'bs_열생산기기방식NCMB.Sort = "code" + 'Me.열생산기기방식NCMB.DataSource = bs_열생산기기방식NCMB + '열생산기기방식NCMB.DisplayMember = "name" + '열생산기기방식NCMB.ValueMember = "name" + 'Me.열생산기기방식NCMB.DataBindings.Add("selectedvalue", Me.bs, "열생산기기방식") + ''AddHandler 열생산기기방식NCMB.KeyDown, AddressOf Cmb_DeleteVal + + + End Sub + + + +#End Region + + + + Private Sub Binding_Zone() + + '//난방기기 + Dim bs_열생산기기방식NCMB As New BindingSource(DSET1, "tbl_common") + bs_열생산기기방식NCMB.Filter = "gubun='1020'" + bs_열생산기기방식NCMB.Sort = "code" + Me.열생산기기방식NCMB.DataSource = bs_열생산기기방식NCMB + 열생산기기방식NCMB.DisplayMember = "name" + 열생산기기방식NCMB.ValueMember = "name" + Me.열생산기기방식NCMB.DataBindings.Add("selectedvalue", Me.bs, "열생산기기방식") + 'AddHandler 열생산기기방식NCMB.KeyDown, AddressOf Cmb_DeleteVal + + Dim bs_사용연료NCMB As New BindingSource(DSET1, "tbl_common") + bs_사용연료NCMB.Filter = "gubun='1021'" + bs_사용연료NCMB.Sort = "code" + Me.사용연료NCMB.DataSource = bs_사용연료NCMB + 사용연료NCMB.DisplayMember = "name" + 사용연료NCMB.ValueMember = "name" + Me.사용연료NCMB.DataBindings.Add("selectedvalue", Me.bs, "사용연료") + 'AddHandler 사용연료NCMB.KeyDown, AddressOf Cmb_DeleteVal + + Dim bs_운전방식NCMB As New BindingSource(DSET1, "tbl_common") + bs_운전방식NCMB.Filter = "gubun='1035'" + bs_운전방식NCMB.Sort = "code" + Me.운전방식NCMB.DataSource = bs_운전방식NCMB + 운전방식NCMB.DisplayMember = "name" + 운전방식NCMB.ValueMember = "name" + Me.운전방식NCMB.DataBindings.Add("selectedvalue", Me.bs, "운전방식") + 'AddHandler 운전방식NCMB.KeyDown, AddressOf Cmb_DeleteVal + + Dim bs_보일러방식NCMB As New BindingSource(DSET1, "tbl_common") + bs_보일러방식NCMB.Filter = "gubun='1036'" + bs_보일러방식NCMB.Sort = "code" + Me.보일러방식NCMB.DataSource = bs_보일러방식NCMB + 보일러방식NCMB.DisplayMember = "name" + 보일러방식NCMB.ValueMember = "name" + Me.보일러방식NCMB.DataBindings.Add("selectedvalue", Me.bs, "보일러방식") + 'AddHandler 보일러방식NCMB.KeyDown, AddressOf Cmb_DeleteVal + + Dim bs_지역난방방식NCMB As New BindingSource(DSET1, "tbl_common") + bs_지역난방방식NCMB.Filter = "gubun='1037'" + bs_지역난방방식NCMB.Sort = "code" + Me.지역난방방식NCMB.DataSource = bs_지역난방방식NCMB + 지역난방방식NCMB.DisplayMember = "name" + 지역난방방식NCMB.ValueMember = "name" + Me.지역난방방식NCMB.DataBindings.Add("selectedvalue", Me.bs, "지역난방방식") + 'AddHandler 지역난방방식NCMB.KeyDown, AddressOf Cmb_DeleteVal + + Dim bs_단열등급NCMB As New BindingSource(DSET1, "tbl_common") + bs_단열등급NCMB.Filter = "gubun='1038'" + bs_단열등급NCMB.Sort = "code" + Me.단열등급NCMB.DataSource = bs_단열등급NCMB + 단열등급NCMB.DisplayMember = "name" + 단열등급NCMB.ValueMember = "name" + Me.단열등급NCMB.DataBindings.Add("selectedvalue", Me.bs, "단열등급") + 'AddHandler 단열등급NCMB.KeyDown, AddressOf Cmb_DeleteVal + + Dim bs_축열탱크방식NCMB As New BindingSource(DSET1, "tbl_common") + bs_축열탱크방식NCMB.Filter = "gubun='1039'" + bs_축열탱크방식NCMB.Sort = "code" + Me.축열탱크방식NCMB.DataSource = bs_축열탱크방식NCMB + 축열탱크방식NCMB.DisplayMember = "name" + 축열탱크방식NCMB.ValueMember = "name" + Me.축열탱크방식NCMB.DataBindings.Add("selectedvalue", Me.bs, "축열탱크방식") + ' AddHandler 축열탱크방식NCMB.KeyDown, AddressOf Cmb_DeleteVal + + Dim bs_배관망유형ComboBox As New BindingSource(DSET1, "tbl_common") + bs_배관망유형ComboBox.Filter = "gubun='1040'" + 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='1002'" + 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='1041'" + 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='1042'" + 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='1032'" + 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='1043'" + 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='1044'" + 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_연결된시스템 As New BindingSource(DSET1, "tbl_new") + bs_연결된시스템.Sort = "code" + Me.cmb_신재생.DataSource = bs_연결된시스템 + cmb_신재생.DisplayMember = "설명" + cmb_신재생.ValueMember = "code" + Me.cmb_신재생.DataBindings.Add("selectedvalue", Me.bs, "연결된시스템") + 'AddHandler 연결된시스템ComboBox.KeyDown, AddressOf Cmb_DeleteVal + + Dim bs_히트펌프연료 As New BindingSource(DSET1, "tbl_common") + bs_히트펌프연료.Filter = "gubun='1086'" + bs_히트펌프연료.Sort = "code" + Me.cmb_히트사용연료.DataSource = bs_히트펌프연료 + cmb_히트사용연료.DisplayMember = "name" + cmb_히트사용연료.ValueMember = "name" + Me.cmb_히트사용연료.DataBindings.Add("selectedvalue", Me.bs, "히트연료") + + Dim bs_히트펌프종류 As New BindingSource(DSET1, "tbl_common") + bs_히트펌프종류.Filter = "gubun='1087'" + bs_히트펌프종류.Sort = "code" + Me.cmb_히트펌프시스템종류.DataSource = bs_히트펌프종류 + cmb_히트펌프시스템종류.DisplayMember = "name" + cmb_히트펌프시스템종류.ValueMember = "name" + Me.cmb_히트펌프시스템종류.DataBindings.Add("selectedvalue", Me.bs, "히트펌프시스템종류") + 'AddHandler 신재생연결여부ComboBox.KeyDown, AddressOf Cmb_DeleteVal + End Sub + + Private Sub Binding_nanbangkiki() + + End Sub + Private Sub AddNewDataRow_nanbangkiki(ByVal sender As Object, ByVal e As System.Data.DataTableNewRowEventArgs) + e.Row.Item("code") = GetMaxCode(DSET1.tbl_nanbangkiki) + e.Row.Item("설명") = "신규데이터" + End Sub +#End Region + + Private Sub 신재생연결여부ComboBox_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 신재생연결여부ComboBox.SelectedIndexChanged + Validate_Control() + End Sub + + Private Sub 축열탱크방식NCMB_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 축열탱크방식NCMB.SelectedIndexChanged + Validate_Control() + End Sub + + Private Sub 운전방식NCMB_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 운전방식NCMB.SelectedIndexChanged + Validate_Control() + End Sub + + Private Sub Validate_Control() + If Not Init Then Return + If isCopy Then Return + + Try + If Me.신재생연결여부ComboBox.SelectedIndex = 0 Then + cmb_신재생.Enabled = False + Else + cmb_신재생.Enabled = True + End If + Catch ex As Exception + + End Try + Try + If Me.축열탱크방식NCMB.SelectedIndex = 0 Then + 축열제척NTb.Enabled = False + MyTb1.Enabled = False + Else + 축열제척NTb.Enabled = True + MyTb1.Enabled = True + End If + Catch ex As Exception + + End Try + + + Try + If Me.운전방식NCMB.SelectedIndex = 0 Then + tb_보일러대수다수.Enabled = False + Else + tb_보일러대수다수.Enabled = True + End If + Catch ex As Exception + + End Try + + Try + Select Case Me.열생산기기방식NCMB.SelectedValue.ToString.Trim + Case "보일러" '//보일러 + Me.PictureBox2.BackColor = Color.FromArgb(219, 221, 223) + Me.Label50.BackColor = Color.FromArgb(219, 221, 223) + Me.Label180.BackColor = Color.FromArgb(219, 221, 223) + Me.Label182.BackColor = Color.FromArgb(219, 221, 223) + 사용연료NCMB.Enabled = True + Me.급수온도NTb1.Enabled = True + Me.환수온도NTb1.Enabled = True + 보일러정격출력NTb.Enabled = True + 열교환기정격출력NTb.Enabled = False + 운전방식NCMB.Enabled = True + Me.tb_보일러대수다수.Enabled = True + + 정격보일러효율NTb.Enabled = True + 보일러방식NCMB.Enabled = True + 지역난방방식NCMB.Enabled = False + Me.단열등급NCMB.Enabled = False + '/// 2011. 1. 31 수정 + Me.배관망유형ComboBox.Enabled = True + Me.펌프교정계수ComboBox.Enabled = True + Me.펌프제어유형ComboBox.Enabled = True + Me.펌프동력NTb.Enabled = True + '// 2011. 1. 31 수정 + + Case "지역난방" '//지역난방 + Me.PictureBox2.BackColor = Color.FromArgb(219, 221, 223) + Me.Label50.BackColor = Color.FromArgb(219, 221, 223) + Me.Label180.BackColor = Color.FromArgb(219, 221, 223) + Me.Label182.BackColor = Color.FromArgb(219, 221, 223) + 사용연료NCMB.Enabled = False + Me.급수온도NTb1.Enabled = True + Me.환수온도NTb1.Enabled = True + 보일러정격출력NTb.Enabled = False + 열교환기정격출력NTb.Enabled = True + + 운전방식NCMB.Enabled = False + Me.tb_보일러대수다수.Enabled = False + + tb_보일러대수다수.Enabled = False + 정격보일러효율NTb.Enabled = True + 보일러방식NCMB.Enabled = False + 지역난방방식NCMB.Enabled = True + Me.단열등급NCMB.Enabled = True + '/// 2011. 1. 31 수정 + Me.배관망유형ComboBox.Enabled = True + Me.펌프교정계수ComboBox.Enabled = True + Me.펌프제어유형ComboBox.Enabled = True + Me.펌프동력NTb.Enabled = True + '// 2011. 1. 31 수정 + + Case "전기보일러" '//전기보일러 + Me.PictureBox2.BackColor = Color.FromArgb(219, 221, 223) + Me.Label50.BackColor = Color.FromArgb(219, 221, 223) + Me.Label180.BackColor = Color.FromArgb(219, 221, 223) + Me.Label182.BackColor = Color.FromArgb(219, 221, 223) + 사용연료NCMB.Enabled = False + Me.급수온도NTb1.Enabled = True + Me.환수온도NTb1.Enabled = True + 보일러정격출력NTb.Enabled = True + 열교환기정격출력NTb.Enabled = False + 운전방식NCMB.Enabled = False + Me.tb_보일러대수다수.Enabled = False + + 정격보일러효율NTb.Enabled = True + 보일러방식NCMB.Enabled = False + + 지역난방방식NCMB.Enabled = False + Me.단열등급NCMB.Enabled = False + '/// 2011. 1. 31 수정 + Me.배관망유형ComboBox.Enabled = True + Me.펌프교정계수ComboBox.Enabled = True + Me.펌프제어유형ComboBox.Enabled = True + Me.펌프동력NTb.Enabled = True + '// 2011. 1. 31 수정 + + + Case "히트펌프" '//히트펌프 + Me.PictureBox2.BackColor = Color.FromArgb(243, 244, 246) + Me.Label50.BackColor = Color.FromArgb(243, 244, 246) + Me.Label180.BackColor = Color.FromArgb(243, 244, 246) + Me.Label182.BackColor = Color.FromArgb(243, 244, 246) + 사용연료NCMB.Enabled = False + Me.급수온도NTb1.Enabled = True + Me.환수온도NTb1.Enabled = True + 보일러정격출력NTb.Enabled = False + 열교환기정격출력NTb.Enabled = False + + 운전방식NCMB.Enabled = False + Me.tb_보일러대수다수.Enabled = False + + 정격보일러효율NTb.Enabled = False + 보일러방식NCMB.Enabled = False + 지역난방방식NCMB.Enabled = False + Me.단열등급NCMB.Enabled = False + '/// 2011. 1. 31 수정 + Me.배관망유형ComboBox.Enabled = True + Me.펌프교정계수ComboBox.Enabled = True + Me.펌프제어유형ComboBox.Enabled = True + Me.펌프동력NTb.Enabled = True + '// 2011. 1. 31 수정 + + End Select + Me.bs.EndEdit() + Catch ex As Exception + + End Try + + Try + If Me.열생산기기방식NCMB.Text = "히트펌프" Then + cmb_히트사용연료.Enabled = True + tb_히트용량.Enabled = True + tb_히트정격7.Enabled = True + tb_히트정격10.Enabled = True + tb_히트길이.Enabled = True + cmb_히트펌프시스템종류.Enabled = True + Else + cmb_히트사용연료.Enabled = False + tb_히트용량.Enabled = False + tb_히트정격7.Enabled = False + tb_히트정격10.Enabled = False + tb_히트길이.Enabled = False + cmb_히트펌프시스템종류.Enabled = False + End If + Catch ex As Exception + + End Try + + If Me.분배시스템방식ComboBox.SelectedIndex >= 0 Then + Try + Select Case Me.분배시스템방식ComboBox.Text + Case "중앙식" + 순환유무ComboBox.Enabled = True + 펌프제어ComboBox.Enabled = True + 펌프동력급탕NTb.Enabled = True + 건물길이NTb.Enabled = True + 건물넓이NTb.Enabled = True + 열공급층수NTb.Enabled = True + 층고NTb.Enabled = True + Me.RadioButton1.Enabled = True + Me.RadioButton2.Enabled = True + If RadioButton2.Checked = True Then + Me.급탕배관길이NTB.Enabled = True + End If + Case "개별식" + 순환유무ComboBox.Enabled = False + 펌프제어ComboBox.Enabled = True + 펌프동력급탕NTb.Enabled = True + 건물길이NTb.Enabled = False + 건물넓이NTb.Enabled = False + 열공급층수NTb.Enabled = False + 층고NTb.Enabled = False + Me.급탕배관길이NTB.Enabled = False + Me.RadioButton1.Enabled = False + Me.RadioButton2.Enabled = False + End Select + Catch ex As Exception + + End Try + End If + + If Me.급탕배관길이NTB.Text <> "" AndAlso Me.급탕배관길이NTB.Text <> "0" Then '//배관길이 값을통해서 라디오버튼설정 + Me.RadioButton2.Checked = True + 건물길이NTb.Enabled = False + 건물넓이NTb.Enabled = False + 열공급층수NTb.Enabled = False + 층고NTb.Enabled = False + ElseIf Me.분배시스템방식ComboBox.Text = "중앙식" Then + Me.RadioButton1.Checked = True + 건물길이NTb.Enabled = True + 건물넓이NTb.Enabled = True + 열공급층수NTb.Enabled = True + 층고NTb.Enabled = True + + End If + + + + End Sub + + Private Sub 열생산기기방식NCMB_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles 열생산기기방식NCMB.KeyDown + If e.KeyCode = Keys.V And e.Control Then + isCopy = True + ' Clear_Control(Me.TabPage2) + + e.Handled = True + e.SuppressKeyPress = False + '//클립보드붙여넣기 + Dim CB() As String = My.Computer.Clipboard.GetText.Split(CChar(vbCrLf)) + If CB.GetUpperBound(0) <> 58 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() '//한줄추가 + + + Dim Cnt As Short = 0 + For i As Integer = 0 To CB.GetUpperBound(0) + Select Case i + Case 0 + CType(bs.Current, DataRowView)("설명") = CB(i).Split(CChar(vbTab))(ii).Trim + Case 0 + 8 '//사용프로필 앞에 두개를 숫자4자리로변환 '//뒷부분이 와존히 다른느낌 ^^;;어 아닌데.. 수정안된거예요.. + If CB(i).Split(CChar(vbTab))(ii).Trim = "" Then + Me.열생산기기방식NCMB.SelectedIndex = 0 + Else + Me.열생산기기방식NCMB.Text = CB(i).Split(CChar(vbTab))(ii).Trim + End If + + 'Me.열생산기기방식NCMB.Text = CStr(IIf( CB(i).Split(CChar(vbTab))(ii).Trim = "", "0", CB(i).Split(CChar(vbTab))(ii).Trim)) + Case 1 + 8 '//공란 + If CB(i).Split(CChar(vbTab))(ii).Trim = "" Then + Me.사용연료NCMB.SelectedIndex = 0 + Else + Me.사용연료NCMB.Text = CB(i).Split(CChar(vbTab))(ii).Trim + End If + + 'Me.사용연료NCMB.Text = CStr(IIf( CB(i).Split(CChar(vbTab))(ii).Trim = "", "0", CB(i).Split(CChar(vbTab))(ii).Trim)) + Case 2 + 8 '//면적 + Me.급수온도NTb1.Text = CB(i).Split(CChar(vbTab))(ii).Trim + Case 3 + 8 + Me.환수온도NTb1.Text = CB(i).Split(CChar(vbTab))(ii).Trim + Case 4 + 8 + Me.보일러정격출력NTb.Text = CB(i).Split(CChar(vbTab))(ii).Trim + Case 5 + 8 + Me.열교환기정격출력NTb.Text = CB(i).Split(CChar(vbTab))(ii).Trim + Case 6 + 8 + Case 15 + If CB(i).Split(CChar(vbTab))(ii).Trim = "" Then + Me.운전방식NCMB.SelectedIndex = 0 + Else + Me.운전방식NCMB.Text = CB(i).Split(CChar(vbTab))(ii).Trim + End If + + 'Me.운전방식NCMB.Text = CStr(IIf( CB(i).Split(CChar(vbTab))(ii).Trim = "", "0", CB(i).Split(CChar(vbTab))(ii).Trim)) + Case 8 + 8 + Me.tb_보일러대수다수.Text = CB(i).Split(CChar(vbTab))(ii).Trim + Case 11 + 8 + 'Me.TabControl12.SelectedIndex = 1 + Me.정격보일러효율NTb.Text = CB(i).Split(CChar(vbTab))(ii).Trim + Case 13 + 8 + If CB(i).Split(CChar(vbTab))(ii).Trim = "" Then + Me.보일러방식NCMB.SelectedIndex = 0 + Else + Me.보일러방식NCMB.Text = CB(i).Split(CChar(vbTab))(ii).Trim + End If + 'Me.보일러방식NCMB.Text = CStr(IIf( CB(i).Split(CChar(vbTab))(ii).Trim = "", "0", CB(i).Split(CChar(vbTab))(ii).Trim)) + Case 23 + If CB(i).Split(CChar(vbTab))(ii).Trim = "" Then + Me.지역난방방식NCMB.SelectedIndex = 0 + Else + Me.지역난방방식NCMB.Text = CB(i).Split(CChar(vbTab))(ii).Trim + End If + + 'Me.지역난방방식NCMB.Text = CStr(IIf( CB(i).Split(CChar(vbTab))(ii).Trim = "", "0", CB(i).Split(CChar(vbTab))(ii).Trim)) + Case 16 + 8 + If CB(i).Split(CChar(vbTab))(ii).Trim = "" Then + Me.단열등급NCMB.SelectedIndex = 0 + Else + Me.단열등급NCMB.Text = CB(i).Split(CChar(vbTab))(ii).Trim + End If + + 'Me.단열등급NCMB.Text = CStr(IIf( CB(i).Split(CChar(vbTab))(ii).Trim = "", "0", CB(i).Split(CChar(vbTab))(ii).Trim)) + + Case 25 '//히트펌프 + Case 26 '//사용연료 + If CB(i).Split(CChar(vbTab))(ii).Trim = "" Then + Me.cmb_히트사용연료.SelectedIndex = 0 + Else + Me.cmb_히트사용연료.Text = CB(i).Split(CChar(vbTab))(ii).Trim + End If + Case 27 + Me.tb_히트용량.Text = CB(i).Split(CChar(vbTab))(ii).Trim + Case 28 + Me.tb_히트정격7.Text = CB(i).Split(CChar(vbTab))(ii).Trim + Case 29 + Me.tb_히트정격10.Text = CB(i).Split(CChar(vbTab))(ii).Trim + Case 30 + Me.tb_히트길이.Text = CB(i).Split(CChar(vbTab))(ii).Trim + Case 31 + If CB(i).Split(CChar(vbTab))(ii).Trim = "" Then + Me.cmb_히트펌프시스템종류.SelectedIndex = 0 + Else + Me.cmb_히트펌프시스템종류.Text = CB(i).Split(CChar(vbTab))(ii).Trim + End If + + Case 19 + 8 + 6 + 1 + ' Me.TabControl12.SelectedIndex = 2 + If CB(i).Split(CChar(vbTab))(ii).Trim = "" Then + Me.축열탱크방식NCMB.SelectedIndex = 0 + Else + Me.축열탱크방식NCMB.Text = CB(i).Split(CChar(vbTab))(ii).Trim + End If + Case 20 + 8 + 6 + 1 + Me.축열제척NTb.Text = CB(i).Split(CChar(vbTab))(ii).Trim + Case 21 + 8 + 6 + 1 + Me.MyTb1.Text = CB(i).Split(CChar(vbTab))(ii).Trim + Case 24 + 8 + 6 + 1 + ' Me.TabControl12.SelectedIndex = 3 + If CB(i).Split(CChar(vbTab))(ii).Trim = "" Then + Me.배관망유형ComboBox.SelectedIndex = 0 + Else + Me.배관망유형ComboBox.Text = CB(i).Split(CChar(vbTab))(ii).Trim + End If + + ' Me.배관망유형ComboBox.Text = CStr(IIf( CB(i).Split(CChar(vbTab))(ii).Trim = "", "0", CB(i).Split(CChar(vbTab))(ii).Trim)) + Case 25 + 8 + 6 + 1 + If CB(i).Split(CChar(vbTab))(ii).Trim = "" Then + Me.펌프교정계수ComboBox.SelectedIndex = 0 + Else + Me.펌프교정계수ComboBox.Text = CB(i).Split(CChar(vbTab))(ii).Trim + End If + + ' Me.펌프교정계수ComboBox.Text = CStr(IIf( CB(i).Split(CChar(vbTab))(ii).Trim = "", "0", CB(i).Split(CChar(vbTab))(ii).Trim)) + Case 26 + 8 + 6 + 1 + If CB(i).Split(CChar(vbTab))(ii).Trim = "" Then + Me.펌프제어유형ComboBox.SelectedIndex = 0 + Else + Me.펌프제어유형ComboBox.Text = CB(i).Split(CChar(vbTab))(ii).Trim + End If + ' Me.펌프제어유형ComboBox.Text = CStr(IIf( CB(i).Split(CChar(vbTab))(ii).Trim = "", "0", CB(i).Split(CChar(vbTab))(ii).Trim)) + Case 27 + 8 + 6 + 1 + Me.펌프동력NTb.Text = CB(i).Split(CChar(vbTab))(ii).Trim + Case 30 + 8 + 6 + 1 '//33 + + If CB(i).Split(CChar(vbTab))(ii).Trim = "" Then + 'MsgBox("null") + Me.분배시스템방식ComboBox.SelectedIndex = 0 + Else + 'Dim iii As Short = 0 + + 'For Each C As DataRowView In Me.분배시스템방식ComboBox.Items + ' If C("name").ToString.Trim = CB(i).Split(CChar(vbTab))(ii).Trim Then + ' Me.분배시스템방식ComboBox.SelectedIndex = iii + ' End If + ' iii += 1 + 'Next + ' MsgBox(CB(i).Split(CChar(vbTab))(ii).Trim) + Me.분배시스템방식ComboBox.Text = CB(i).Split(CChar(vbTab))(ii).Trim + End If + + + 'Me.분배시스템방식ComboBox.Text = CStr(IIf( CB(i).Split(CChar(vbTab))(ii).Trim = "", "0", CB(i).Split(CChar(vbTab))(ii).Trim)) + Case 31 + 8 + 6 + 1 + If CB(i).Split(CChar(vbTab))(ii).Trim = "" Then + Me.순환유무ComboBox.SelectedIndex = 0 + Else + Me.순환유무ComboBox.Text = CB(i).Split(CChar(vbTab))(ii).Trim + End If + + 'Me.순환유무ComboBox.Text = CStr(IIf( CB(i).Split(CChar(vbTab))(ii).Trim = "", "0", CB(i).Split(CChar(vbTab))(ii).Trim)) + Case 32 + 8 + 6 + 1 + If CB(i).Split(CChar(vbTab))(ii).Trim = "" Then + Me.펌프제어ComboBox.SelectedIndex = 0 + Else + Me.펌프제어ComboBox.Text = CB(i).Split(CChar(vbTab))(ii).Trim + End If + + ' Me.펌프제어ComboBox.Text = CStr(IIf( CB(i).Split(CChar(vbTab))(ii).Trim = "", "0", CB(i).Split(CChar(vbTab))(ii).Trim)) + Case 33 + 8 + 6 + 1 + Me.펌프동력급탕NTb.Text = CB(i).Split(CChar(vbTab))(ii).Trim + Case 35 + 8 + 6 + 1 + Me.건물길이NTb.Text = CB(i).Split(CChar(vbTab))(ii).Trim + Case 36 + 8 + 6 + 1 + Me.건물넓이NTb.Text = CB(i).Split(CChar(vbTab))(ii).Trim + Case 37 + 8 + 6 + 1 + Me.열공급층수NTb.Text = CB(i).Split(CChar(vbTab))(ii).Trim + Case 38 + 8 + 6 + 1 + Me.층고NTb.Text = CB(i).Split(CChar(vbTab))(ii).Trim + Case 41 + 8 + 6 + 1 + If CB(i).Split(CChar(vbTab))(ii).Trim = "" Then + Me.신재생연결여부ComboBox.SelectedIndex = 0 + Else + Me.신재생연결여부ComboBox.Text = CB(i).Split(CChar(vbTab))(ii).Trim + End If + + ' Me.신재생연결여부ComboBox.Text = CStr(IIf( CB(i).Split(CChar(vbTab))(ii).Trim = "", "0", CB(i).Split(CChar(vbTab))(ii).Trim)) + Case 57 '42 + 8 + 6 + 1 + If CB(i).Split(CChar(vbTab))(ii).Trim = "" Then + Me.cmb_신재생.SelectedIndex = 0 + Else + Me.cmb_신재생.Text = CB(i).Split(CChar(vbTab))(ii).Trim + End If + + 'Me.연결된시스템ComboBox.Text = CStr(IIf( CB(i).Split(CChar(vbTab))(ii).Trim = "", "0", CB(i).Split(CChar(vbTab))(ii).Trim)) + End Select + Next + Next + + Me.bs.EndEdit() + isCopy = False + Me.Validate_Control() + End If + + End Sub + + Private Sub 열생산기기방식NCMB_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 열생산기기방식NCMB.SelectedIndexChanged + Validate_Control() + End Sub + + Private Sub bs_CurrentChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bs.CurrentChanged + If Not Init Then Return + Dim drv As DataRowView = Me.bs.Current + If drv Is Nothing Then Return + Me.lb_code.Text = "[" + drv("code").ToString + "]" + + + Dim DR() As DS.tbl_zoneRow = DSET1.tbl_zone.Select("code <> '0' and 열생산난방생산기기='" & Drv("code").ToString & "' or 공조난방생산기기='" & Drv("code").ToString & "'") + Dim cnt As Integer = 0 + For Each drow As DS.tbl_zoneRow In DR + Dim 입력존수문자 As Integer = drow.입력존의수 + If IsNumeric(입력존수문자) = False Then 입력존수문자 = "1" + cnt += CInt(입력존수문자) + Next + Me.lbl_cnt1.Text = cnt + + DR = DSET1.tbl_zone.Select("code <> '0' and 열생산급탕생산기기='" & Drv("code").ToString & "'") + cnt = 0 + For Each drow As DS.tbl_zoneRow In DR + Dim 입력존수문자 As Integer = drow.입력존의수 + If IsNumeric(입력존수문자) = False Then 입력존수문자 = "1" + cnt += CInt(입력존수문자) + Next + Me.lbl_cnt2.Text = cnt + + + Me.bs.EndEdit() + 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 + If Me.bs.Position < Me.bs.Count Then Me.bs.Position += 1 + Else + If Me.bs.Position > 0 Then Me.bs.Position -= 1 + End If + Me.Validate() + My.Application.DoEvents() + End Sub + + + Private Sub bt_Del_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles bt_Del.MouseDown + If e.Button = Windows.Forms.MouseButtons.Right Then + If MsgBox("전체삭제를 하시겠습니까?", MsgBoxStyle.Information Or MsgBoxStyle.OkCancel, "확인") = MsgBoxResult.Ok Then + Dim dR() As DataRow = DSET1.tbl_nanbangkiki.Select(Me.bs.Filter, "") + For i As Integer = dR.GetUpperBound(0) To 0 Step -1 + dR(i).Delete() + Next + DSET1.tbl_nanbangkiki.AcceptChanges() + End If + End If + End Sub + + + Private Sub dv_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles dv.MouseUp + If Prj.UserAuthType = "ADMIN" OrElse Prj.UserAuthType = "BOTH" OrElse Prj.UserAuthType = "BOTH2" OrElse Prj.UserAuthType = "BOTH1" Then '//2011.03.08 추가 + If e.Button = Windows.Forms.MouseButtons.Right Then + Dim Frm_FilterA As New Frm_Filter + Frm_FilterA.ColumTitle = getColCaption(Me.Dt) + Frm_FilterA.ColumList = getColName(Me.Dt) + Frm_FilterA.Colorlist = "연결된시스템" + Frm_FilterA.Numfield = "" '//20100618 Color 리스트처럼 , 구분해서 필드들을 모두 넣으세요.(=, >= 등을 사용하기 위해서는 해당 항목을 추가 요망) + Frm_FilterA.Default_Filter = "code <> '0'" + If Frm_FilterA.ShowDialog <> Windows.Forms.DialogResult.OK Then Return '//창떳을떄 확인아ㅣ고 취소눌르면 다음을 수행하지않는다는거에요. + Dim Filter As String = Frm_FilterA.tb_filter.Text '//값은 아까 그 텍박에 잇구요. + Try + Me.bs.Filter = Filter + + '//바꾸기값이 있으면 변경 20100618 + If Frm_FilterA.cmb_fieldc.SelectedIndex >= 0 AndAlso Frm_FilterA.cmb_fieldc.Text.ToLower <> "code" AndAlso _ + Frm_FilterA.tb_valuec.Text <> "" Then + Dim Drow() As DataRow = Me.Dt.Select(Filter) + For Each Dr As DataRow In Drow + Dr(Frm_FilterA.cmb_fieldc.Text) = Frm_FilterA.tb_valuec.Text + Next + MsgBox("바꾸기 완료", MsgBoxStyle.Information, "확인") + End If + + Catch ex As Exception + Me.bs.Filter = "" + End Try + End If + End If + End Sub + + Private Sub dv_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles dv.KeyDown + '//여기보시면 alt+d 누르면 한줄을 경고없이(falsE)삭제하도록 햇어요.. 사실원래 밋alt +d 인데.. ㅎㅎ 잘못해서 ctrl 됫다는 + If Prj.UserAuthType = "ADMIN" OrElse Prj.UserAuthType = "BOTH" OrElse Prj.UserAuthType = "BOTH2" OrElse Prj.UserAuthType = "BOTH1" Then '//2011.03.08 추가 + Select Case e.KeyCode + Case Keys.D + If e.Alt Then + Dbbase.DelCrow(Me.bs, False) + End If + Case Keys.C + If e.Control Then + Me.SrcDrv = Me.bs.Current + If Me.SrcDrv Is Nothing Then + MsgBox("저장할 ROW가 없습니다", MsgBoxStyle.Information, "확인") + Return + End If + ' My.Computer.Clipboard.SetData("ZDATA", Drv) + End If + Case Keys.V + If e.Control Then + If Me.SrcDrv Is Nothing Then Return + Me.bt_add.PerformClick() '//신규추가 + Dim NewDrv As DataRowView = Me.bs.Current + + For Each C As DataColumn In Me.Dt.Columns + If C.ColumnName.ToUpper = "CODE" Then + ElseIf C.ColumnName.ToUpper = "설명" Then + NewDrv(C.ColumnName) = SrcDrv(C.ColumnName) & "#1" + Else + NewDrv(C.ColumnName) = SrcDrv(C.ColumnName) + End If + Next + Me.bs.EndEdit() + bs.MoveLast() + End If + End Select + End If + End Sub + + Private Sub lbl_cnt2_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles lbl_cnt2.TextChanged + + Try + If Me.lbl_cnt2.Text = "0" Then + GroupBox10.Enabled = False + GroupBox9.Enabled = False + Else + GroupBox10.Enabled = True + GroupBox9.Enabled = True + End If + Catch ex As Exception + + End Try + + End Sub + + Private Sub 분배시스템방식ComboBox_SelectedValueChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles 분배시스템방식ComboBox.SelectedValueChanged + Validate_Control() + End Sub + + Private Sub lbl_cnt1_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles lbl_cnt1.TextChanged + + Try + If Me.lbl_cnt1.Text = "0" Then + GroupBox8.Enabled = False + Else + GroupBox8.Enabled = True + End If + Catch ex As Exception + + End Try + + End Sub + + Private Sub 분배시스템방식ComboBox_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 분배시스템방식ComboBox.SelectedIndexChanged + + End Sub + + Private Sub 급탕배관길이NTB_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 급탕배관길이NTB.TextChanged + If Me.급탕배관길이NTB.Text <> "" AndAlso Me.급탕배관길이NTB.Text <> "0" Then '//배관길이에 값이 바뀌면 체크변경 + Me.RadioButton2.Checked = True + End If + End Sub + + Private Sub RadioButton2_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton2.CheckedChanged, RadioButton1.CheckedChanged + If Me.RadioButton2.Checked = False Then '//표준치로 선택되면 배관길이값을 지워버림 '==2014.06.19 수정 배관길이값을 지우는 것을 안함 + If Me.급탕배관길이NTB.Text <> "" AndAlso Me.급탕배관길이NTB.Text <> "0" Then '//배관길이에 값이 바뀌면 체크변경 '==2014.06.25 배관길이 값이 있으면 선택 변경을 못하게 수정 + MsgBox("배관길이 값을 삭제하시기 바랍니다.", MsgBoxStyle.Information, "확인") + Me.RadioButton2.Checked = True + Else + 'Me.급탕배관길이NTB.Text = "" + Me.급탕배관길이NTB.Enabled = False + Me.건물길이NTb.Enabled = True + Me.건물넓이NTb.Enabled = True + Me.열공급층수NTb.Enabled = True + Me.층고NTb.Enabled = True + + End If + Else + Me.건물길이NTb.Enabled = False + Me.건물넓이NTb.Enabled = False + Me.열공급층수NTb.Enabled = False + Me.층고NTb.Enabled = False + Me.급탕배관길이NTB.Enabled = True + End If + End Sub + + + Private Sub lbl_cnt2_Click(sender As System.Object, e As System.EventArgs) Handles lbl_cnt2.Click + + End Sub + + Private Sub chk_헤더적용_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles chk_헤더적용.CheckedChanged + If Me.chk_헤더적용.Checked = True AndAlso Me.chk_개별기기적용.Checked = True Then + MsgBox("개별기기와 헤더가 모두 체크되었습니다. 둘 중 하나만 체크하시기 바랍니다.", MsgBoxStyle.Information, "확인") + End If + End Sub + + Private Sub chk_개별기기적용_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles chk_개별기기적용.CheckedChanged + If Me.chk_개별기기적용.Checked = True AndAlso Me.chk_헤더적용.Checked = True Then + MsgBox("개별기기와 헤더가 모두 체크되었습니다. 둘 중 하나만 체크하시기 바랍니다.", MsgBoxStyle.Information, "확인") + End If + End Sub +End Class \ No newline at end of file diff --git a/ArinWarev1/Forms_Input/Frm_New.Designer.vb b/ArinWarev1/Forms_Input/Frm_New.Designer.vb new file mode 100644 index 0000000..46b1e17 --- /dev/null +++ b/ArinWarev1/Forms_Input/Frm_New.Designer.vb @@ -0,0 +1,1456 @@ + _ +Partial Class Frm_New + Inherits CForm + 'Form은 Dispose를 재정의하여 구성 요소 목록을 정리합니다. + _ + Protected Overrides Sub Dispose(ByVal disposing As Boolean) + Try + If disposing AndAlso components IsNot Nothing Then + components.Dispose() + End If + Finally + MyBase.Dispose(disposing) + End Try + End Sub + + 'Windows Form 디자이너에 필요합니다. + Private components As System.ComponentModel.IContainer + + '참고: 다음 프로시저는 Windows Form 디자이너에 필요합니다. + '수정하려면 Windows Form 디자이너를 사용하십시오. + '코드 편집기를 사용하여 수정하지 마십시오. + _ + 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 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 + 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.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.bn = New System.Windows.Forms.BindingNavigator(Me.components) + Me.lbl_count = New System.Windows.Forms.ToolStripLabel() + Me.bt_add = New System.Windows.Forms.ToolStripButton() + Me.bt_Del = New System.Windows.Forms.ToolStripButton() + Me.bt_cancel = New System.Windows.Forms.ToolStripButton() + Me.ToolStripSeparator1 = New System.Windows.Forms.ToolStripSeparator() + Me.lbl_pos = New System.Windows.Forms.ToolStripLabel() + 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.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.기기종류ComboBox = New Eco2Ar.MyCmb() + 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() + 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() + 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.bn, System.ComponentModel.ISupportInitialize).BeginInit() + Me.bn.SuspendLayout() + Me.GroupBox2.SuspendLayout() + Me.열병합Panel.SuspendLayout() + Me.GroupBox1.SuspendLayout() + Me.SuspendLayout() + ' + '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 = "[태양열 시스템:축열탱크]" + ' + '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 = "[태양열 시스템]" + ' + '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]:" + ' + '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]:" + ' + '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 = "축열탱크설치장소:" + ' + '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 = "집열기유형:" + ' + '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 = "집열판면적[㎡]:" + ' + '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]:" + ' + '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 = "태양열시스템의성능:" + ' + '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 = "무손실효율계수:" + ' + '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]:" + ' + '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]:" + ' + 'Label17 + ' + Label17.AutoSize = True + Label17.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label17.Location = New System.Drawing.Point(10, 52) + Label17.Name = "Label17" + Label17.Size = New System.Drawing.Size(128, 12) + Label17.TabIndex = 42 + Label17.Text = "태양광모듈면적[㎡]:" + ' + 'Label18 + ' + Label18.AutoSize = True + Label18.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label18.Location = New System.Drawing.Point(10, 74) + Label18.Name = "Label18" + Label18.Size = New System.Drawing.Size(114, 12) + Label18.TabIndex = 44 + Label18.Text = "태양광모듈기울기:" + ' + 'Label19 + ' + Label19.AutoSize = True + Label19.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label19.Location = New System.Drawing.Point(10, 99) + Label19.Name = "Label19" + Label19.Size = New System.Drawing.Size(101, 12) + Label19.TabIndex = 46 + Label19.Text = "태양광모듈방위:" + ' + 'Label20 + ' + 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 = "태양광모듈종류:" + ' + 'Label21 + ' + Label21.AutoSize = True + Label21.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label21.Location = New System.Drawing.Point(10, 146) + Label21.Name = "Label21" + Label21.Size = New System.Drawing.Size(127, 12) + Label21.TabIndex = 50 + Label21.Text = "태양광모듈적용타입:" + ' + 'Label465 + ' + 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 = "-기기종류:" + ' + 'Label5 + ' + Label5.AutoSize = True + Label5.ForeColor = System.Drawing.Color.Black + Label5.Location = New System.Drawing.Point(10, 5) + Label5.Name = "Label5" + Label5.Size = New System.Drawing.Size(102, 12) + Label5.TabIndex = 38 + Label5.Text = "[열병합 시스템]" + ' + 'Label22 + ' + 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]:" + ' + 'Label27 + ' + 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]:" + ' + 'Label29 + ' + 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 = "지열팽창탱크설치여부:" + ' + 'Label28 + ' + 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 = "열교환기설치여부:" + ' + 'Label26 + ' + 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]:" + ' + 'Label32 + ' + 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 = "태양광모듈효율[-]:" + ' + 'Label33 + ' + 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 + ' + '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]:" + ' + 'TableLayoutPanel1 + ' + Me.TableLayoutPanel1.AutoScroll = True + Me.TableLayoutPanel1.ColumnCount = 2 + Me.TableLayoutPanel1.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Absolute, 126.0!)) + Me.TableLayoutPanel1.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Percent, 50.0!)) + Me.TableLayoutPanel1.Controls.Add(Me.NTb1, 1, 12) + Me.TableLayoutPanel1.Controls.Add(Me.NTb2, 1, 11) + Me.TableLayoutPanel1.Location = New System.Drawing.Point(0, 0) + Me.TableLayoutPanel1.Name = "TableLayoutPanel1" + Me.TableLayoutPanel1.RowCount = 13 + Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Absolute, 20.0!)) + Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Absolute, 20.0!)) + Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Absolute, 20.0!)) + Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Absolute, 20.0!)) + Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Absolute, 20.0!)) + Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Absolute, 20.0!)) + Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Absolute, 20.0!)) + Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Absolute, 20.0!)) + Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Absolute, 20.0!)) + Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Absolute, 20.0!)) + Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Absolute, 20.0!)) + Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Absolute, 20.0!)) + Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Absolute, 20.0!)) + Me.TableLayoutPanel1.Size = New System.Drawing.Size(200, 100) + Me.TableLayoutPanel1.TabIndex = 0 + ' + 'NTb1 + ' + Me.NTb1.Location = New System.Drawing.Point(129, 243) + Me.NTb1.Name = "NTb1" + Me.NTb1.NectControl = Nothing + Me.NTb1.Size = New System.Drawing.Size(68, 21) + Me.NTb1.TabIndex = 63 + Me.NTb1.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + ' + 'NTb2 + ' + Me.NTb2.Location = New System.Drawing.Point(129, 223) + Me.NTb2.Name = "NTb2" + Me.NTb2.NectControl = Nothing + Me.NTb2.Size = New System.Drawing.Size(68, 21) + Me.NTb2.TabIndex = 61 + Me.NTb2.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + ' + '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(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 + ' + '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(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 + ' + 'Label163 + ' + 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 + ' + 'Label164 + ' + 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 + ' + '축열탱크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(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 + ' + 'tb_축열탱크체적급 + ' + 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 + ' + 'bs + ' + Me.bs.DataMember = "tbl_new" + Me.bs.DataSource = Me.DS + Me.bs.Filter = "code <> '0'" + ' + 'DS + ' + Me.DS.DataSetName = "DS" + Me.DS.SchemaSerializationMode = System.Data.SchemaSerializationMode.IncludeSchema + ' + 'cmb_축열탱크설치장소 + ' + Me.cmb_축열탱크설치장소.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList + Me.cmb_축열탱크설치장소.FormattingEnabled = True + 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_축열탱크설치장소.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)) + Me.태양열Panel.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.태양열Panel.Controls.Add(Label455) + Me.태양열Panel.Controls.Add(Me.cmb_태양열시스템종류) + Me.태양열Panel.Controls.Add(Me.cmb_집열기유형) + Me.태양열Panel.Controls.Add(Me.tb_집열판면적) + Me.태양열Panel.Controls.Add(Me.cmb_집열판방위) + Me.태양열Panel.Controls.Add(Label16) + Me.태양열Panel.Controls.Add(Me.tB_솔라펌프출력) + Me.태양열Panel.Controls.Add(Me.cmb_태양열시스템의성능) + Me.태양열Panel.Controls.Add(Label8) + Me.태양열Panel.Controls.Add(Me.tb_무손실효율계수) + Me.태양열Panel.Controls.Add(Label9) + Me.태양열Panel.Controls.Add(Label15) + Me.태양열Panel.Controls.Add(Label10) + Me.태양열Panel.Controls.Add(Label14) + Me.태양열Panel.Controls.Add(Me.tb_2차손실계수) + Me.태양열Panel.Controls.Add(Label13) + Me.태양열Panel.Controls.Add(Label11) + Me.태양열Panel.Controls.Add(Me.tb_1차손실계수) + Me.태양열Panel.Controls.Add(Label12) + Me.태양열Panel.Location = New System.Drawing.Point(7, 17) + Me.태양열Panel.Name = "태양열Panel" + Me.태양열Panel.Size = New System.Drawing.Size(266, 239) + Me.태양열Panel.TabIndex = 144 + ' + 'cmb_태양열시스템종류 + ' + Me.cmb_태양열시스템종류.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList + Me.cmb_태양열시스템종류.FormattingEnabled = True + Me.cmb_태양열시스템종류.Location = New System.Drawing.Point(169, 21) + Me.cmb_태양열시스템종류.Name = "cmb_태양열시스템종류" + Me.cmb_태양열시스템종류.NectControl = Nothing + Me.cmb_태양열시스템종류.Size = New System.Drawing.Size(88, 20) + Me.cmb_태양열시스템종류.TabIndex = 0 + ' + 'cmb_집열기유형 + ' + Me.cmb_집열기유형.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList + Me.cmb_집열기유형.FormattingEnabled = True + Me.cmb_집열기유형.Location = New System.Drawing.Point(169, 46) + Me.cmb_집열기유형.Name = "cmb_집열기유형" + Me.cmb_집열기유형.NectControl = Nothing + Me.cmb_집열기유형.Size = New System.Drawing.Size(88, 20) + Me.cmb_집열기유형.TabIndex = 1 + ' + 'tb_집열판면적 + ' + Me.tb_집열판면적.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bs, "집열판면적", True)) + Me.tb_집열판면적.Location = New System.Drawing.Point(169, 70) + Me.tb_집열판면적.Name = "tb_집열판면적" + Me.tb_집열판면적.NectControl = Nothing + Me.tb_집열판면적.Size = New System.Drawing.Size(88, 21) + Me.tb_집열판면적.TabIndex = 2 + 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(169, 93) + Me.cmb_집열판방위.Name = "cmb_집열판방위" + Me.cmb_집열판방위.NectControl = Nothing + Me.cmb_집열판방위.Size = New System.Drawing.Size(88, 20) + Me.cmb_집열판방위.TabIndex = 3 + ' + 'tB_솔라펌프출력 + ' + Me.tB_솔라펌프출력.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bs, "솔라펌프의정격출력", True)) + Me.tB_솔라펌프출력.Location = New System.Drawing.Point(169, 117) + Me.tB_솔라펌프출력.Name = "tB_솔라펌프출력" + Me.tB_솔라펌프출력.NectControl = Nothing + Me.tB_솔라펌프출력.Size = New System.Drawing.Size(88, 21) + Me.tB_솔라펌프출력.TabIndex = 4 + 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(169, 140) + Me.cmb_태양열시스템의성능.Name = "cmb_태양열시스템의성능" + Me.cmb_태양열시스템의성능.NectControl = Nothing + Me.cmb_태양열시스템의성능.Size = New System.Drawing.Size(88, 20) + Me.cmb_태양열시스템의성능.TabIndex = 5 + ' + 'tb_무손실효율계수 + ' + Me.tb_무손실효율계수.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bs, "무손실효율계수", True)) + Me.tb_무손실효율계수.Location = New System.Drawing.Point(169, 165) + Me.tb_무손실효율계수.Name = "tb_무손실효율계수" + Me.tb_무손실효율계수.NectControl = Nothing + Me.tb_무손실효율계수.Size = New System.Drawing.Size(88, 21) + Me.tb_무손실효율계수.TabIndex = 6 + 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, "열손실계수2차", True)) + Me.tb_2차손실계수.Location = New System.Drawing.Point(169, 212) + Me.tb_2차손실계수.Name = "tb_2차손실계수" + Me.tb_2차손실계수.NectControl = Nothing + Me.tb_2차손실계수.Size = New System.Drawing.Size(88, 21) + Me.tb_2차손실계수.TabIndex = 8 + Me.tb_2차손실계수.TextAlign = System.Windows.Forms.HorizontalAlignment.Right + Me.tb_2차손실계수.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(169, 189) + Me.tb_1차손실계수.Name = "tb_1차손실계수" + Me.tb_1차손실계수.NectControl = Nothing + Me.tb_1차손실계수.Size = New System.Drawing.Size(88, 21) + Me.tb_1차손실계수.TabIndex = 7 + 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(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 + ' + '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(115, 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 + ' + '기기종류ComboBox + ' + Me.기기종류ComboBox.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList + Me.기기종류ComboBox.FormattingEnabled = True + Me.기기종류ComboBox.Location = New System.Drawing.Point(146, 22) + Me.기기종류ComboBox.Name = "기기종류ComboBox" + Me.기기종류ComboBox.NectControl = Nothing + Me.기기종류ComboBox.Size = New System.Drawing.Size(142, 20) + Me.기기종류ComboBox.TabIndex = 148 + ' + 'cmb_가동연료 + ' + Me.cmb_가동연료.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList + Me.cmb_가동연료.FormattingEnabled = True + Me.cmb_가동연료.Location = New System.Drawing.Point(146, 45) + Me.cmb_가동연료.Name = "cmb_가동연료" + Me.cmb_가동연료.NectControl = Nothing + Me.cmb_가동연료.Size = New System.Drawing.Size(142, 20) + Me.cmb_가동연료.TabIndex = 3 + ' + 'NTb3 + ' + Me.NTb3.Location = New System.Drawing.Point(129, 263) + Me.NTb3.Name = "NTb3" + Me.NTb3.NectControl = Nothing + Me.NTb3.Size = New System.Drawing.Size(97, 21) + Me.NTb3.TabIndex = 59 + Me.NTb3.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + ' + 'Frm_New + ' + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.None + Me.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer)) + Me.ClientSize = New System.Drawing.Size(818, 574) + Me.ControlBox = False + Me.Controls.Add(Me.Panel6) + Me.Font = New System.Drawing.Font("돋움", 8.999999!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.Name = "Frm_New" + Me.ShowInTaskbar = False + Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen + 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) + Me.SplitContainer1.Panel2.PerformLayout() + CType(Me.SplitContainer1, System.ComponentModel.ISupportInitialize).EndInit() + Me.SplitContainer1.ResumeLayout(False) + CType(Me.dv, 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.열병합Panel.PerformLayout() + Me.GroupBox1.ResumeLayout(False) + Me.ResumeLayout(False) + + End Sub + Friend WithEvents tb_집열판면적 As MyTb + Friend WithEvents tB_솔라펌프출력 As MyTb + Friend WithEvents tb_무손실효율계수 As MyTb + Friend WithEvents tb_1차손실계수 As MyTb + Friend WithEvents tb_2차손실계수 As MyTb + Friend WithEvents tb_축열탱크체적급 As MyTb + Friend WithEvents tb_축열탱크체적난 As MyTb + Friend WithEvents tb_모듈면적 As MyTb + Public WithEvents DS As Eco2Ar.DS + Friend WithEvents bs As System.Windows.Forms.BindingSource + Friend WithEvents tb_발전효율 As MyTb + Friend WithEvents tb_열생산효율 As MyTb + Friend WithEvents tb_열생산능력 As MyTb + Friend WithEvents tb_지열펌프용량 As MyTb + Friend WithEvents tb_열성능비 As MyTb + Friend WithEvents tb_1차펌프용량 As MyTb + Friend WithEvents tb_열성능비2 As MyTb + Friend WithEvents TableLayoutPanel1 As System.Windows.Forms.TableLayoutPanel + Friend WithEvents NTb1 As MyTb + Friend WithEvents NTb2 As MyTb + Friend WithEvents NTb3 As MyTb + Friend WithEvents cmb_태양열시스템종류 As Eco2Ar.MyCmb + Friend WithEvents cmb_집열기유형 As Eco2Ar.MyCmb + Friend WithEvents cmb_집열판방위 As Eco2Ar.MyCmb + Friend WithEvents cmb_태양열시스템의성능 As Eco2Ar.MyCmb + Friend WithEvents cmb_축열탱크설치장소 As Eco2Ar.MyCmb + Friend WithEvents cmb_모듈기울기 As Eco2Ar.MyCmb + Friend WithEvents cmb_모듈적용타입 As Eco2Ar.MyCmb + Friend WithEvents cmb_모듈방위 As Eco2Ar.MyCmb + Friend WithEvents cmb_모듈종류 As Eco2Ar.MyCmb + Friend WithEvents cmb_가동연료 As Eco2Ar.MyCmb + Friend WithEvents tb_태양열_cnt2 As System.Windows.Forms.TextBox + Friend WithEvents tb_태양열_cnt1 As System.Windows.Forms.TextBox + Friend WithEvents Label163 As System.Windows.Forms.Label + Friend WithEvents Label164 As System.Windows.Forms.Label + Friend WithEvents 지열Panel As System.Windows.Forms.Panel + Friend WithEvents 태양광Panel As System.Windows.Forms.Panel + Friend WithEvents 태양열Panel As System.Windows.Forms.Panel + Friend WithEvents 축열탱크Panel As System.Windows.Forms.Panel + Friend WithEvents 기기종류ComboBox As Eco2Ar.MyCmb + Friend WithEvents Panel6 As System.Windows.Forms.Panel + Friend WithEvents SplitContainer1 As System.Windows.Forms.SplitContainer + Friend WithEvents dv As CEnergy.arindv + Friend WithEvents bn As System.Windows.Forms.BindingNavigator + Friend WithEvents bt_add As System.Windows.Forms.ToolStripButton + Friend WithEvents bt_Del As System.Windows.Forms.ToolStripButton + Friend WithEvents bt_cancel As System.Windows.Forms.ToolStripButton + Friend WithEvents ToolStripSeparator1 As System.Windows.Forms.ToolStripSeparator + Friend WithEvents 열병합Panel As System.Windows.Forms.Panel + Friend WithEvents tb_지열팽창탱크체적 As Eco2Ar.MyTb + 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 + Friend WithEvents GroupBox1 As System.Windows.Forms.GroupBox + Friend WithEvents tb_모듈효율 As Eco2Ar.MyTb + Friend WithEvents MyTb1 As Eco2Ar.MyTb + Friend WithEvents chk_개별기기적용 As System.Windows.Forms.CheckBox + Friend WithEvents ToolStripSeparator2 As System.Windows.Forms.ToolStripSeparator + Friend WithEvents lb_code As System.Windows.Forms.ToolStripLabel + Friend WithEvents MyTb2 As Eco2Ar.MyTb + Friend WithEvents DataGridViewTextBoxColumn1 As System.Windows.Forms.DataGridViewTextBoxColumn +End Class diff --git a/ArinWarev1/Forms_Input/Frm_New.resx b/ArinWarev1/Forms_Input/Frm_New.resx new file mode 100644 index 0000000..7aca07e --- /dev/null +++ b/ArinWarev1/Forms_Input/Frm_New.resx @@ -0,0 +1,252 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + 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 + + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + 222, 17 + + + 286, 17 + + + 286, 17 + + + 353, 17 + + + 40 + + \ No newline at end of file diff --git a/ArinWarev1/Forms_Input/Frm_New.vb b/ArinWarev1/Forms_Input/Frm_New.vb new file mode 100644 index 0000000..879c14f --- /dev/null +++ b/ArinWarev1/Forms_Input/Frm_New.vb @@ -0,0 +1,890 @@ +Public Class Frm_New + Dim Init As Boolean = False + Dim SrcDrv As DataRowView + +#Region "data Base 변경여부및 적용방법" + + '''변경된내용을적용한다. + Public Overrides Function AcceptChanged() As Boolean + bs.EndEdit() + Dim BaseDS As DataSet = CType(bs.DataSource, DataSet) + Dim BaseDT As DataTable = BaseDS.Tables(bs.DataMember) + BaseDT.AcceptChanges() + Return True + End Function + + '''변경된내용이있다면 취소한다. + Public Overrides Function RejectChanged() As Boolean + Dim BaseDS As DataSet = CType(bs.DataSource, DataSet) + Dim BaseDT As DataTable = BaseDS.Tables(bs.DataMember) + BaseDT.RejectChanges() + Return True + End Function + + '''데이터에변형이있었는가? + Public Overrides Function HasChanged() As Boolean + bs.EndEdit() + Dim BaseDS As DataSet = CType(bs.DataSource, DataSet) + Dim BaseDT As DataTable = BaseDS.Tables(bs.DataMember) + Dim ChangeDT As DataTable = BaseDT.GetChanges + If Not ChangeDT Is Nothing Then Return True + Return False + End Function + + '''기본데이터테이블을 반환합니다. + Public Function DT() As DataTable + Dim BaseDS As DataSet = CType(bs.DataSource, DataSet) + Return BaseDS.Tables(bs.DataMember) + End Function + + +#End Region + + + Public Sub New(_opentime) + + ' 이 호출은 디자이너에 필요합니다. + InitializeComponent() + OpenTime = _opentime + + ' InitializeComponent() 호출 뒤에 초기화 코드를 추가하십시오. + + + End Sub + Private Sub AddNewDataRow_Zone_Changed2(ByVal sender As Object, ByVal e As System.Data.DataColumnChangeEventArgs) + Dim oval As String = e.Row(e.Column.ColumnName).ToString + Dim nval As String = e.ProposedValue.ToString + If oval <> nval Then + Dim newdr As DS2.historyRow = DSHistory.history.NewhistoryRow + newdr.time = Now.ToString("yyyy-MM-dd HH:mm:ss") + newdr.tablename = "tbl_new" + newdr.ovalue = oval + newdr.nvalue = nval + newdr.column = e.Column.ColumnName + newdr.code = e.Row("code").ToString + DSHistory.history.AddhistoryRow(newdr) + DSHistory.history.AcceptChanges() + End If + End Sub + Private Sub ShowHistory() + Dim drv As DataRowView = Me.bs.Current + Dim f As New Frm_History("tbl_new", drv("code").ToString) + If f.ShowDialog = DialogResult.OK Then + drv(f.colname) = f.val + Me.Validate() + Me.bs.EndEdit() + My.Application.DoEvents() + MsgBox("값이 변경되었습니다", MsgBoxStyle.Information, "확인") + End If + End Sub + Private Sub MdiMain_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load + + Me.Show() + My.Application.DoEvents() + 'Work_msg_timer("잠시만 기다려주세요") + + 'CEnergy.ARINCLASS.SaveLoad_FrmSetting(Me) + '//프로필 관련 + + '//공유데이터셋에 연결한다. + Me.bs.DataSource = DSET1 + 'If Me.bs.Count < 1 Then + ' Me.bs.AddNew() + ' Dim DRv As DataRowView = bs.Current + ' DRv("code") = Me.GetMaxCode(DSET1.tbl_new) + 'End If + + '//신재생 + AddHandler DSET1.tbl_new.TableNewRow, AddressOf AddNewDataRow_new + AddHandler DSET1.tbl_new.ColumnChanging, AddressOf AddNewDataRow_Zone_Changed2 + + '//콤보컨트롤 바인딩 + Binding_Zone() + + '//모든컨트롤의 cTrl_enter 를 추가합니다 + BindProperty(CType(Me.SplitContainer1.Panel2.Controls, Control.ControlCollection)) + + Me.bs.Filter = "code <> '0'" + If Me.Parameter <> "" Then Me.bs.Filter &= " and 기기종류 ='" + Me.Parameter + "'" + ' Me.lb_grpname.Text = Me.Parameter + + + Me.Init = True + + + Try + Me.bs.Position = CEnergy.ARINCLASS.Read_LastPos_Frm(Me) + Catch ex As Exception + Me.bs.MoveFirst() + End Try + + bs_CurrentChanged(sender, e) + Me.Validate_Control() + AddDebug("▲ Form Load") + End Sub + +#Region "Control_Enter" + Private Sub BindProperty(ByVal Ctl As Control.ControlCollection) + For Each C As Control In Ctl + If C.Controls.Count > 1 Then + BindProperty(C.Controls) + Else + If C.GetType.ToString.ToUpper.IndexOf("MYTB") <> -1 Then + AddHandler CType(C, MyTb).KeyDown, AddressOf TextBOx_KeyDown + ElseIf C.GetType.ToString.ToUpper.IndexOf("MYCMB") <> -1 Then + AddHandler CType(C, MyCmb).KeyDown, AddressOf Cmd_KeyDown + End If + End If + Next + End Sub + + Private Sub TextBOx_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) + If e.KeyCode = Keys.Enter AndAlso e.Control Then + Try + Dim Field As String = (CType(sender, MyTb).DataBindings.Item("text").BindingMemberInfo.BindingField) + For Each Dr As DataRow In Dt.Select(Me.bs.Filter, "") + Dr(Field) = CType(sender, MyTb).Text + Next + Work_msg_timer("모든값이 변경되었습니다", 25) + Catch ex As Exception + + End Try + + End If + End Sub + Private Sub Cmd_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) + If e.KeyCode = Keys.Enter AndAlso e.Control Then + Try + Dim Field As String = (CType(sender, MyCmb).DataBindings.Item("selectedvalue").BindingMemberInfo.BindingField) + For Each Dr As DataRow In Dt.Select(Me.bs.Filter, "") + Dr(Field) = CType(sender, MyCmb).SelectedValue + Next + Work_msg_timer("모든값이 변경되었습니다", 25) + Catch ex As Exception + + End Try + End If + End Sub +#End Region + +#Region "신재생" + Private Function GetMaxCode(ByVal dt As DataTable) As String + Try + Dim Dr As DataRow = dt.Select("", "code desc")(0) + Return Format(CInt(Dr("code")) + 1, "0000") + Catch ex As Exception + Return "0001" + End Try + End Function + Private Sub Cmb_DeleteVal(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) + If e.KeyCode = Keys.Delete Then + CType(sender, ComboBox).SelectedValue = "" + End If + End Sub + + 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='1066'" + bs_가동연료ComboBox.Sort = "code" + Me.cmb_가동연료.DataSource = bs_가동연료ComboBox + cmb_가동연료.DisplayMember = "name" + cmb_가동연료.ValueMember = "name" + Me.cmb_가동연료.DataBindings.Add("selectedvalue", Me.bs, "가동연료") + 'AddHandler 지열가동연료ComboBox.KeyDown, AddressOf Cmb_DeleteVal + + Dim bs_태양열종류ComboBox As New BindingSource(DSET1, "tbl_common") + bs_태양열종류ComboBox.Filter = "gubun='1057'" + bs_태양열종류ComboBox.Sort = "code" + Me.cmb_태양열시스템종류.DataSource = bs_태양열종류ComboBox + cmb_태양열시스템종류.DisplayMember = "name" + cmb_태양열시스템종류.ValueMember = "name" + Me.cmb_태양열시스템종류.DataBindings.Add("selectedvalue", Me.bs, "태양열종류") + 'AddHandler 태양열종류ComboBox.KeyDown, AddressOf Cmb_DeleteVal + + + Dim bs_집열기유형ComboBox As New BindingSource(DSET1, "tbl_common") + bs_집열기유형ComboBox.Filter = "gubun='1058'" + bs_집열기유형ComboBox.Sort = "code" + Me.cmb_집열기유형.DataSource = bs_집열기유형ComboBox + cmb_집열기유형.DisplayMember = "name" + cmb_집열기유형.ValueMember = "name" + Me.cmb_집열기유형.DataBindings.Add("selectedvalue", Me.bs, "집열기유형") + 'AddHandler 집열기유형ComboBox.KeyDown, AddressOf Cmb_DeleteVal + + '집열기유형ComboBox + + Dim bs_집열판방위ComboBox As New BindingSource(DSET1, "tbl_common") + bs_집열판방위ComboBox.Filter = "gubun='1059'" + bs_집열판방위ComboBox.Sort = "code" + Me.cmb_집열판방위.DataSource = bs_집열판방위ComboBox + cmb_집열판방위.DisplayMember = "name" + cmb_집열판방위.ValueMember = "name" + Me.cmb_집열판방위.DataBindings.Add("selectedvalue", Me.bs, "집열판방위") + 'AddHandler 집열판방위ComboBox.KeyDown, AddressOf Cmb_DeleteVal + + + Dim bs_태양열시스템의성능ComboBox As New BindingSource(DSET1, "tbl_common") + bs_태양열시스템의성능ComboBox.Filter = "gubun='1060'" + bs_태양열시스템의성능ComboBox.Sort = "code" + Me.cmb_태양열시스템의성능.DataSource = bs_태양열시스템의성능ComboBox + cmb_태양열시스템의성능.DisplayMember = "name" + cmb_태양열시스템의성능.ValueMember = "name" + Me.cmb_태양열시스템의성능.DataBindings.Add("selectedvalue", Me.bs, "태양열시스템의성능") + 'AddHandler 태양열시스템의성능ComboBox.KeyDown, AddressOf Cmb_DeleteVal + + + Dim bs_축열탱크설치장소ComboBox As New BindingSource(DSET1, "tbl_common") + bs_축열탱크설치장소ComboBox.Filter = "gubun='1061'" + bs_축열탱크설치장소ComboBox.Sort = "code" + Me.cmb_축열탱크설치장소.DataSource = bs_축열탱크설치장소ComboBox + cmb_축열탱크설치장소.DisplayMember = "name" + cmb_축열탱크설치장소.ValueMember = "name" + Me.cmb_축열탱크설치장소.DataBindings.Add("selectedvalue", Me.bs, "축열탱크설치장소") + 'AddHandler 축열탱크설치장소ComboBox.KeyDown, AddressOf Cmb_DeleteVal + + + Dim bs_태양광모듈기울기ComboBox As New BindingSource(DSET1, "tbl_common") + bs_태양광모듈기울기ComboBox.Filter = "gubun='1062'" + bs_태양광모듈기울기ComboBox.Sort = "code" + Me.cmb_모듈기울기.DataSource = bs_태양광모듈기울기ComboBox + cmb_모듈기울기.DisplayMember = "name" + cmb_모듈기울기.ValueMember = "name" + Me.cmb_모듈기울기.DataBindings.Add("selectedvalue", Me.bs, "태양광모듈기울기") + 'AddHandler 태양광모듈기울기ComboBox.KeyDown, AddressOf Cmb_DeleteVal + + Dim bs_태양광모듈방위ComboBox As New BindingSource(DSET1, "tbl_common") + bs_태양광모듈방위ComboBox.Filter = "gubun='1063'" + bs_태양광모듈방위ComboBox.Sort = "code" + Me.cmb_모듈방위.DataSource = bs_태양광모듈방위ComboBox + cmb_모듈방위.DisplayMember = "name" + cmb_모듈방위.ValueMember = "name" + Me.cmb_모듈방위.DataBindings.Add("selectedvalue", Me.bs, "태양광모듈방위") + 'AddHandler 태양광모듈방위ComboBox.KeyDown, AddressOf Cmb_DeleteVal + + + Dim bs_태양광모듈종류ComboBox As New BindingSource(DSET1, "tbl_common") + bs_태양광모듈종류ComboBox.Filter = "gubun='1064'" + bs_태양광모듈종류ComboBox.Sort = "code" + Me.cmb_모듈종류.DataSource = bs_태양광모듈종류ComboBox + cmb_모듈종류.DisplayMember = "name" + cmb_모듈종류.ValueMember = "name" + Me.cmb_모듈종류.DataBindings.Add("selectedvalue", Me.bs, "태양광모듈종류") + 'AddHandler 태양광모듈종류ComboBox.KeyDown, AddressOf Cmb_DeleteVal + + + Dim bs_태양광모듈적용타입ComboBox As New BindingSource(DSET1, "tbl_common") + bs_태양광모듈적용타입ComboBox.Filter = "gubun='1065'" + bs_태양광모듈적용타입ComboBox.Sort = "code" + Me.cmb_모듈적용타입.DataSource = bs_태양광모듈적용타입ComboBox + cmb_모듈적용타입.DisplayMember = "name" + cmb_모듈적용타입.ValueMember = "name" + Me.cmb_모듈적용타입.DataBindings.Add("selectedvalue", Me.bs, "태양광모듈적용타입") + 'AddHandler 태양광모듈적용타입ComboBox.KeyDown, AddressOf Cmb_DeleteVal + + + Dim bs_열교환기설치여부ComboBox As New BindingSource(DSET1, "tbl_common") + bs_열교환기설치여부ComboBox.Filter = "gubun='1054'" + bs_열교환기설치여부ComboBox.Sort = "code" + Me.cmb_열교환기설치여부.DataSource = bs_열교환기설치여부ComboBox + cmb_열교환기설치여부.DisplayMember = "name" + cmb_열교환기설치여부.ValueMember = "name" + Me.cmb_열교환기설치여부.DataBindings.Add("selectedvalue", Me.bs, "열교환기설치여부") + 'AddHandler 열교환기설치여부ComboBox.KeyDown, AddressOf Cmb_DeleteVal + + Dim bs_팽창탱크설치여부ComboBox As New BindingSource(DSET1, "tbl_common") + bs_팽창탱크설치여부ComboBox.Filter = "gubun='1054'" + bs_팽창탱크설치여부ComboBox.Sort = "code" + Me.cmb_지열팽창설치여부.DataSource = bs_팽창탱크설치여부ComboBox + cmb_지열팽창설치여부.DisplayMember = "name" + cmb_지열팽창설치여부.ValueMember = "name" + Me.cmb_지열팽창설치여부.DataBindings.Add("selectedvalue", Me.bs, "팽창탱크설치여부") + 'AddHandler 팽창탱크설치여부ComboBox.KeyDown, AddressOf Cmb_DeleteVal + + End Sub + + Private Sub MdiMain_FormClosed(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosedEventArgs) Handles Me.FormClosed + CEnergy.ARINCLASS.SaveLoad_FrmSetting(Me, Me.bs.Position, True) + End Sub + + Private Sub MdiMain_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown + Select Case e.KeyCode + Case Keys.F12 + ShowHistory() + End Select + End Sub + +#Region "제어버튼" + Private Sub ToolStripButton48_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt_add.Click + If Not EndEdit(Me.bs) Then Return + Me.bs.AddNew() + 'Dim DRv As DataRowView = bs.Current + 'DRv("code") = Me.GetMaxCode(DSET1.tbl_new) + INitRow(Me.Controls) + MdiMain.RefreshMenuList(TreeTag) + End Sub + + + Private Sub ToolStripButton49_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt_Del.Click + Dbbase.DelCrow(Me.bs, True) + MdiMain.RefreshMenuList(TreeTag) + End Sub + + Private Sub ToolStripButton51_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt_cancel.Click + If Not EndEdit(Me.bs) Then Return + Data_Cancel(DSET1.tbl_profile, Nothing) + MdiMain.RefreshMenuList(TreeTag) + End Sub +#End Region + + Private Sub AddNewDataRow_new(ByVal sender As Object, ByVal e As System.Data.DataTableNewRowEventArgs) + ' MsgBox("new") + e.Row.Item("code") = GetMaxCode(DSET1.tbl_new) + e.Row.Item("설명") = "신규데이터" + End Sub +#End Region + + Private Sub 태양열종류ComboBox_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles cmb_태양열시스템종류.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 + Dim Cnt As Short = 0 + For i As Integer = 0 To CB.GetUpperBound(0) + Select Case i + Case 0 '//사용프로필 앞에 두개를 숫자4자로변환 + 'If CB(i).Trim = "" Then Me.태양열종류ComboBox.SelectedIndex = -1 + If CB(i).Trim = "" Then + Me.cmb_태양열시스템종류.SelectedIndex = 0 + Else + Me.cmb_태양열시스템종류.Text = CB(i).Trim + End If + ' Me.태양열종류ComboBox.Text = CStr(IIf(CB(i).Trim = "", "0", CB(i).Trim)) + Case 1 '//공란 + If CB(i).Trim = "" Then + Me.cmb_집열기유형.SelectedIndex = 0 + Else + Me.cmb_집열기유형.Text = CB(i).Trim + End If + 'Me.집열기유형ComboBox.Text = CStr(IIf(CB(i).Trim = "", "0", CB(i).Trim)) + Case 2 '//면적 + Me.tb_집열판면적.Text = CB(i).Trim + Case 3 + If CB(i).Trim = "" Then + Me.cmb_집열판방위.SelectedIndex = 0 + Else + Me.cmb_집열판방위.Text = CB(i).Trim + End If + 'Me.집열판방위ComboBox.Text = CStr(IIf(CB(i).Trim = "", "0", CB(i).Trim)) + Case 4 + Me.tB_솔라펌프출력.Text = CB(i).Trim + Case 5 + If CB(i).Trim = "" Then + Me.cmb_태양열시스템의성능.SelectedIndex = 0 + Else + Me.cmb_태양열시스템의성능.Text = CB(i).Trim + End If + + ' Me.태양열시스템의성능ComboBox.Text = CStr(IIf(CB(i).Trim = "", "0", CB(i).Trim)) + Case 6 + Me.tb_무손실효율계수.Text = CB(i).Trim + Case 7 + Me.tb_1차손실계수.Text = CB(i).Trim + Case 8 + Me.tb_2차손실계수.Text = CB(i).Trim + Case 9 + Case 10 + Me.tb_축열탱크체적급.Text = CB(i).Trim + Case 11 + Me.tb_축열탱크체적난.Text = CB(i).Trim + Case 12 + If CB(i).Trim = "" Then + Me.cmb_축열탱크설치장소.SelectedIndex = 0 + Else + Me.cmb_축열탱크설치장소.Text = CB(i).Trim + End If + + 'Me.축열탱크설치장소ComboBox.Text = CStr(IIf(CB(i).Trim = "", "0", CB(i).Trim)) + End Select + Next + Me.bs.EndEdit() + End If + End Sub + + + Private Sub 태양광모듈면적NTb_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles tb_모듈면적.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) < 3 Then + MsgBox("정상적인 데이터가 아닙니다") + Return + End If + Dim Cnt As Short = 0 + For i As Integer = 0 To CB.GetUpperBound(0) + Select Case i + Case 0 '//사용프로필 앞에 두개를 숫자4자로변환 + Me.tb_모듈면적.Text = CB(i).Trim + Case 1 '//공란 + If CB(i).Trim = "" Then Me.cmb_모듈기울기.SelectedIndex = -1 + Me.cmb_모듈기울기.Text = CB(i).Trim + Case 2 '//면적 + If CB(i).Trim = "" Then Me.cmb_모듈방위.SelectedIndex = -1 + Me.cmb_모듈방위.Text = CB(i).Trim + Case 3 + If CB(i).Trim = "" Then Me.cmb_모듈종류.SelectedIndex = -1 + Me.cmb_모듈종류.Text = CB(i).Trim + Case 4 + If CB(i).Trim = "" Then Me.cmb_모듈적용타입.SelectedIndex = -1 + Me.cmb_모듈적용타입.Text = CB(i).Trim + End Select + Next + Me.bs.EndEdit() + End If + End Sub + + Private Sub 지열가동연료ComboBox_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles cmb_가동연료.KeyDown, tb_지열펌프용량.KeyDown + + End Sub + + Private Sub bs_CurrentChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bs.CurrentChanged + '//존이 옴겨질떄 해당 존의 사용량을 표시 + If Not Init Then Return + Try + Dim Drv As DataRowView = CType(bs.Current, DataRowView) + Me.tb_태양열_cnt1.Text = CStr(DSET1.tbl_nanbangkiki.Select("신재생연결여부='시스템연결' and 연결된시스템='" & Drv("Code").ToString & "'").GetUpperBound(0) + 1) + Me.tb_태양열_cnt2.Text = CStr(DSET1.tbl_nangbangkiki.Select("신재생연결여부='시스템연결' and 연결된시스템='" & Drv("Code").ToString & "'").GetUpperBound(0) + 1) + Catch ex As Exception + Me.tb_태양열_cnt1.Text = ex.Message.ToString + Me.tb_태양열_cnt2.Text = ex.Message.ToString + End Try + + Dim drv2 As DataRowView = Me.bs.Current + If drv2 Is Nothing Then Return + Me.lb_code.Text = "[" + drv2("code").ToString + "]" + + Me.bs.EndEdit() + End Sub + + Private Sub 기기종류ComboBox_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles 기기종류ComboBox.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) < 2 Then + MsgBox("정상적인 데이터가 아닙니다") + 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() '//한줄추가 + + Dim Cnt As Short = 0 + For i As Integer = 0 To CB.GetUpperBound(0) + Select Case i + Case 0 + CType(bs.Current, DataRowView)("설명") = CB(i).Split(CChar(vbTab))(ii).Trim + Case 5 + If CB(i).Split(CChar(vbTab))(ii).Trim = "" Then + Me.기기종류ComboBox.SelectedIndex = 0 + Else + Me.기기종류ComboBox.Text = CB(i).Split(CChar(vbTab))(ii).Trim + End If + Case 6 + ' If CB(i).Split(CChar(vbTab))(ii).Trim = "" Then Me.열교가산치ComboBox.SelectedIndex = -1 + If CB(i).Split(CChar(vbTab))(ii).Trim = "" Then + Me.cmb_가동연료.SelectedIndex = 0 + Else + Me.cmb_가동연료.Text = CB(i).Split(CChar(vbTab))(ii).Trim + End If + 'Me.열교가산치ComboBox.Text = CStr(IIf( CB(i).Split(CChar(vbTab))(ii).Trim = "", "0", CB(i).Split(CChar(vbTab))(ii).Trim)) + + Case 9 + 'If CB(i).Split(CChar(vbTab))(ii).Trim = "" Then Me.cmb_냉난방방식.SelectedIndex = -1 + If CB(i).Split(CChar(vbTab))(ii).Trim = "" Then + Me.cmb_태양열시스템종류.SelectedIndex = 0 + Else + Me.cmb_태양열시스템종류.Text = CB(i).Split(CChar(vbTab))(ii).Trim + End If + 'Me.cmb_냉난방방식.Text = CStr(IIf( CB(i).Split(CChar(vbTab))(ii).Trim = "", "0", CB(i).Split(CChar(vbTab))(ii).Trim)) + Case 10 + 'If CB(i).Split(CChar(vbTab))(ii).Trim = "" Then Me.냉난방공조ComboBox.SelectedIndex = -1 + If CB(i).Split(CChar(vbTab))(ii).Trim = "" Then + Me.cmb_집열기유형.SelectedIndex = 0 + Else + Me.cmb_집열기유형.Text = CB(i).Split(CChar(vbTab))(ii).Trim + End If + Case 11 '//열생산지정 + ' Me.TabControl10.SelectedIndex = 1 + Me.tb_집열판면적.Text = CB(i).Split(CChar(vbTab))(ii).Trim + Case 12 + 'If CB(i).Split(CChar(vbTab))(ii).Trim = "" Then Me.냉난방공조ComboBox.SelectedIndex = -1 + If CB(i).Split(CChar(vbTab))(ii).Trim = "" Then + Me.cmb_집열판방위.SelectedIndex = 0 + Else + Me.cmb_집열판방위.Text = CB(i).Split(CChar(vbTab))(ii).Trim + End If + Case 13 '//열생산지정 + ' Me.TabControl10.SelectedIndex = 1 + Me.tB_솔라펌프출력.Text = CB(i).Split(CChar(vbTab))(ii).Trim + Case 14 + 'If CB(i).Split(CChar(vbTab))(ii).Trim = "" Then Me.냉난방공조ComboBox.SelectedIndex = -1 + If CB(i).Split(CChar(vbTab))(ii).Trim = "" Then + Me.cmb_태양열시스템의성능.SelectedIndex = 0 + Else + Me.cmb_태양열시스템의성능.Text = CB(i).Split(CChar(vbTab))(ii).Trim + End If + Case 15 '//열생산지정 + ' Me.TabControl10.SelectedIndex = 1 + Me.tb_무손실효율계수.Text = CB(i).Split(CChar(vbTab))(ii).Trim + Case 16 '//열생산지정 + Me.tb_1차손실계수.Text = CB(i).Split(CChar(vbTab))(ii).Trim + Case 17 '//열생산지정 + Me.tb_2차손실계수.Text = CB(i).Split(CChar(vbTab))(ii).Trim + Case 19 '//열생산지정 + Me.tb_축열탱크체적급.Text = CB(i).Split(CChar(vbTab))(ii).Trim + Case 20 '//열생산지정 + Me.tb_축열탱크체적난.Text = CB(i).Split(CChar(vbTab))(ii).Trim + Case 21 + 'If CB(i).Split(CChar(vbTab))(ii).Trim = "" Then Me.냉난방공조ComboBox.SelectedIndex = -1 + If CB(i).Split(CChar(vbTab))(ii).Trim = "" Then + Me.cmb_축열탱크설치장소.SelectedIndex = 0 + Else + Me.cmb_축열탱크설치장소.Text = CB(i).Split(CChar(vbTab))(ii).Trim + End If + Case 24 '//열생산지정 + Me.tb_모듈면적.Text = CB(i).Split(CChar(vbTab))(ii).Trim + Case 25 + If CB(i).Split(CChar(vbTab))(ii).Trim = "" Then + Me.cmb_모듈기울기.SelectedIndex = 0 + Else + Me.cmb_모듈기울기.Text = CB(i).Split(CChar(vbTab))(ii).Trim + End If + + Case 26 '//열생산지정 + If CB(i).Split(CChar(vbTab))(ii).Trim = "" Then + Me.cmb_모듈방위.SelectedIndex = 0 + Else + Me.cmb_모듈방위.Text = CB(i).Split(CChar(vbTab))(ii).Trim + End If + + Case 27 + If CB(i).Split(CChar(vbTab))(ii).Trim = "" Then + Me.cmb_모듈종류.SelectedIndex = 0 + Else + Me.cmb_모듈종류.Text = CB(i).Split(CChar(vbTab))(ii).Trim + End If + + Case 28 '//열생산지정 + If CB(i).Split(CChar(vbTab))(ii).Trim = "" Then + Me.cmb_모듈적용타입.SelectedIndex = 0 + Else + Me.cmb_모듈적용타입.Text = CB(i).Split(CChar(vbTab))(ii).Trim + End If + ' Me.cmb_모듈적용타입.Text = CB(i).Split(CChar(vbTab))(ii).Trim + Case 31 '//열생산지정 + Me.tb_지열펌프용량.Text = CB(i).Split(CChar(vbTab))(ii).Trim + Case 32 '//열생산지정 + Me.tb_열성능비.Text = CB(i).Split(CChar(vbTab))(ii).Trim + Case 33 '//열생산지정 + Me.tb_열성능비2.Text = CB(i).Split(CChar(vbTab))(ii).Trim + Case 34 '//열생산지정 + Me.tb_1차펌프용량.Text = CB(i).Split(CChar(vbTab))(ii).Trim + Case 35 '//열생산지정 + Me.tb_2차펌프용량.Text = CB(i).Split(CChar(vbTab))(ii).Trim + Case 36 + 'If CB(i).Split(CChar(vbTab))(ii).Trim = "" Then Me.냉난방공조ComboBox.SelectedIndex = -1 + If CB(i).Split(CChar(vbTab))(ii).Trim = "" Then + Me.cmb_열교환기설치여부.SelectedIndex = 0 + Else + Me.cmb_열교환기설치여부.Text = CB(i).Split(CChar(vbTab))(ii).Trim + End If + Case 37 + 'If CB(i).Split(CChar(vbTab))(ii).Trim = "" Then Me.냉난방공조ComboBox.SelectedIndex = -1 + If CB(i).Split(CChar(vbTab))(ii).Trim = "" Then + Me.cmb_지열팽창설치여부.SelectedIndex = 0 + Else + Me.cmb_지열팽창설치여부.Text = CB(i).Split(CChar(vbTab))(ii).Trim + End If + Case 38 '//열생산지정 + Me.tb_지열팽창탱크체적.Text = CB(i).Split(CChar(vbTab))(ii).Trim + Case 41 '//열생산지정 + Me.tb_열생산능력.Text = CB(i).Split(CChar(vbTab))(ii).Trim + Case 42 '//열생산지정 + Me.tb_열생산효율.Text = CB(i).Split(CChar(vbTab))(ii).Trim + Case 43 '//열생산지정 + Me.tb_발전효율.Text = CB(i).Split(CChar(vbTab))(ii).Trim + End Select + Next + Next + + Me.bs.EndEdit() + End If + End Sub + + Private Sub 기기종류ComboBox_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 기기종류ComboBox.SelectedIndexChanged + Validate_Control() + End Sub + + Private Sub Validate_Control() + If Not Init Then Return + Try + Select Case Me.기기종류ComboBox.Text + Case "태양열", "태양광" + Me.cmb_가동연료.SelectedIndex = 0 + Me.cmb_가동연료.Enabled = False + Case Else + Me.cmb_가동연료.Enabled = True + End Select + Catch ex As Exception + + End Try + + Try + Select Case Me.cmb_태양열시스템의성능.Text + Case "성능치" + Me.tb_무손실효율계수.Enabled = True + Me.tb_1차손실계수.Enabled = True + Me.tb_2차손실계수.Enabled = True + Case Else + Me.tb_무손실효율계수.Enabled = False + Me.tb_1차손실계수.Enabled = False + Me.tb_2차손실계수.Enabled = False + End Select + Catch ex As Exception + + End Try + + Try + If 기기종류ComboBox.Text = "태양열" Then + 태양열Panel.Enabled = True + 축열탱크Panel.Enabled = True + 열병합Panel.Enabled = False + 태양광Panel.Enabled = False + 지열Panel.Enabled = False + ElseIf 기기종류ComboBox.Text = "열병합" Then + 태양열Panel.Enabled = False + 축열탱크Panel.Enabled = False + 열병합Panel.Enabled = True + 태양광Panel.Enabled = False + 지열Panel.Enabled = False + ElseIf 기기종류ComboBox.Text = "태양광" Then + 태양열Panel.Enabled = False + 축열탱크Panel.Enabled = False + 열병합Panel.Enabled = False + 태양광Panel.Enabled = True + 지열Panel.Enabled = False + ElseIf 기기종류ComboBox.Text = "지열" Then + 태양열Panel.Enabled = False + 축열탱크Panel.Enabled = False + 열병합Panel.Enabled = False + 태양광Panel.Enabled = False + 지열Panel.Enabled = True + Else + 태양열Panel.Enabled = False + 축열탱크Panel.Enabled = False + 열병합Panel.Enabled = False + 태양광Panel.Enabled = False + 지열Panel.Enabled = False + End If + Catch ex As Exception + + End Try + + '//건기연 추가 (2010.04.07) + 'MsgBox(Me.cmb_가동연료.Text) + Try + Select Case Me.cmb_가동연료.Text + Case "전기" + Me.cmb_열교환기설치여부.Enabled = False + Case Else + Me.cmb_열교환기설치여부.Enabled = True + End Select + Catch ex As Exception + + End Try + + Try + + Select Case Me.cmb_모듈기울기.Text + Case "수평", "(없음)" + Me.cmb_모듈방위.Enabled = False + Case Else + Me.cmb_모듈방위.Enabled = True + End Select + + Catch ex As Exception + + End Try + + 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 ToolStripButton49_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) + If e.Button = Windows.Forms.MouseButtons.Right Then + If MsgBox("전체삭제를 하시겠습니까?", MsgBoxStyle.Information Or MsgBoxStyle.OkCancel, "확인") = MsgBoxResult.Ok Then + Dim dR() As DataRow = DSET1.tbl_new.Select(Me.bs.Filter, "") + For i As Integer = dR.GetUpperBound(0) To 0 Step -1 + dR(i).Delete() + Next + DSET1.tbl_new.AcceptChanges() + End If + End If + End Sub + + + Private Sub bt_Del_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles bt_Del.MouseDown + If e.Button = Windows.Forms.MouseButtons.Right Then + If MsgBox("전체삭제를 하시겠습니까?", MsgBoxStyle.Information Or MsgBoxStyle.OkCancel, "확인") = MsgBoxResult.Ok Then + Dim dR() As DataRow = DSET1.tbl_new.Select(Me.bs.Filter, "") + For i As Integer = dR.GetUpperBound(0) To 0 Step -1 + dR(i).Delete() + Next + DSET1.tbl_new.AcceptChanges() + End If + End If + End Sub + + + + Private Sub cmb_가동연료_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmb_가동연료.SelectedIndexChanged + If Me.cmb_가동연료.SelectedIndex <> -1 Then Me.Validate_Control() + End Sub + + Private Sub dv_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles dv.MouseUp + If Prj.UserAuthType = "ADMIN" OrElse Prj.UserAuthType = "BOTH" OrElse Prj.UserAuthType = "BOTH2" OrElse Prj.UserAuthType = "BOTH1" Then '//2011.03.08 추가 + If e.Button = Windows.Forms.MouseButtons.Right Then + Dim Frm_FilterA As New Frm_Filter + Frm_FilterA.ColumTitle = getColCaption(Me.Dt) + Frm_FilterA.ColumList = getColName(Me.Dt) + Frm_FilterA.Colorlist = "" + '//getfiled 며령으로 모든 필드명을 찾아서 + '//그것을 그 화면으로 보내는거에요 + '//그런데 여기서 어떤필드는 색을 달리하겟다라고할려면 해당 :::: 정보도 같이 넘겨줘야해요 + '//그부분 구현이 좀 매끄럽게 생각정리가안되네요 + + Frm_FilterA.Numfield = "" '//20100618 Color 리스트처럼 , 구분해서 필드들을 모두 넣으세요.(=, >= 등을 사용하기 위해서는 해당 항목을 추가 요망) + Frm_FilterA.Default_Filter = "code <> '0'" + If Frm_FilterA.ShowDialog <> Windows.Forms.DialogResult.OK Then Return '//창떳을떄 확인아ㅣ고 취소눌르면 다음을 수행하지않는다는거에요. + Dim Filter As String = Frm_FilterA.tb_filter.Text '//값은 아까 그 텍박에 잇구요. + Try + Me.bs.Filter = Filter + + '//바꾸기값이 있으면 변경 20100618 + If Frm_FilterA.cmb_fieldc.SelectedIndex >= 0 AndAlso Frm_FilterA.cmb_fieldc.Text.ToLower <> "code" AndAlso _ + Frm_FilterA.tb_valuec.Text <> "" Then + Dim Drow() As DataRow = Me.Dt.Select(Filter) + For Each Dr As DataRow In Drow + Dr(Frm_FilterA.cmb_fieldc.Text) = Frm_FilterA.tb_valuec.Text + Next + MsgBox("바꾸기 완료", MsgBoxStyle.Information, "확인") + End If + + Catch ex As Exception + Me.bs.Filter = "" + End Try + End If + End If + End Sub + + Private Sub dv_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles dv.KeyDown + '//여기보시면 alt+d 누르면 한줄을 경고없이(falsE)삭제하도록 햇어요.. 사실원래 밋alt +d 인데.. ㅎㅎ 잘못해서 ctrl 됫다는 + If Prj.UserAuthType = "ADMIN" OrElse Prj.UserAuthType = "BOTH" OrElse Prj.UserAuthType = "BOTH2" OrElse Prj.UserAuthType = "BOTH1" Then '//2011.03.08 추가 + Select Case e.KeyCode + Case Keys.D + If e.Alt Then + Dbbase.DelCrow(Me.bs, False) + End If + Case Keys.C + If e.Control Then + Me.SrcDrv = Me.bs.Current + If Me.SrcDrv Is Nothing Then + MsgBox("저장할 ROW가 없습니다", MsgBoxStyle.Information, "확인") + Return + End If + ' My.Computer.Clipboard.SetData("ZDATA", Drv) + End If + Case Keys.V + If e.Control Then + If SrcDrv Is Nothing Then Return + Me.bt_add.PerformClick() '//신규추가 + Dim NewDrv As DataRowView = Me.bs.Current + + For Each C As DataColumn In Me.Dt.Columns + If C.ColumnName.ToUpper = "CODE" Then + ElseIf C.ColumnName.ToUpper = "설명" Then + NewDrv(C.ColumnName) = SrcDrv(C.ColumnName) & "#1" + Else + NewDrv(C.ColumnName) = SrcDrv(C.ColumnName) + End If + Next + Me.bs.EndEdit() + bs.MoveLast() + End If + End Select + End If + 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 + Validate_Control() + End Sub + + Private Sub dv_CellContentClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles dv.CellContentClick + + End Sub + + Private Sub cmb_태양열시스템의성능_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmb_태양열시스템의성능.SelectedIndexChanged + Validate_Control() + End Sub + + Private Sub cmb_모듈종류_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmb_모듈종류.SelectedIndexChanged + Validate_Control() + End Sub + + +End Class \ No newline at end of file diff --git a/ArinWarev1/Forms_Input/Frm_YK.Designer.vb b/ArinWarev1/Forms_Input/Frm_YK.Designer.vb new file mode 100644 index 0000000..8c17583 --- /dev/null +++ b/ArinWarev1/Forms_Input/Frm_YK.Designer.vb @@ -0,0 +1,896 @@ + _ +Partial Class Frm_YK + Inherits CForm + + 'Form은 Dispose를 재정의하여 구성 요소 목록을 정리합니다. + _ + Protected Overrides Sub Dispose(ByVal disposing As Boolean) + Try + If disposing AndAlso components IsNot Nothing Then + components.Dispose() + End If + Finally + MyBase.Dispose(disposing) + End Try + End Sub + + 'Windows Form 디자이너에 필요합니다. + Private components As System.ComponentModel.IContainer + + '참고: 다음 프로시저는 Windows Form 디자이너에 필요합니다. + '수정하려면 Windows Form 디자이너를 사용하십시오. + '코드 편집기를 사용하여 수정하지 마십시오. + _ + Private Sub InitializeComponent() + Me.components = New System.ComponentModel.Container() + Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(Frm_YK)) + Dim DataGridViewCellStyle3 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle1 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle2 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Me.SplitContainer1 = New System.Windows.Forms.SplitContainer() + Me.dv = New CEnergy.arindv() + Me.Column2 = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.DataGridViewTextBoxColumn1 = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.bs = New System.Windows.Forms.BindingSource(Me.components) + Me.DS = New Eco2Ar.DS() + 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() + Me.bt_Del = New System.Windows.Forms.ToolStripButton() + Me.bt_cancel = New System.Windows.Forms.ToolStripButton() + Me.ToolStripSeparator1 = New System.Windows.Forms.ToolStripSeparator() + Me.lbl_pos = New System.Windows.Forms.ToolStripLabel() + Me.lb_code = New System.Windows.Forms.ToolStripLabel() + Me.MyCmb1 = New Eco2Ar.MyCmb() + Me.Label15 = New System.Windows.Forms.Label() + Me.PictureBox4 = New System.Windows.Forms.PictureBox() + Me.GroupBox1 = New System.Windows.Forms.GroupBox() + Me.tb_투과율 = New Eco2Ar.MyTb() + Me.Label4 = New System.Windows.Forms.Label() + Me.tb_발코니투과율 = New System.Windows.Forms.TextBox() + Me.Label3 = New System.Windows.Forms.Label() + Me.tb_발코니열관류율 = New System.Windows.Forms.TextBox() + Me.Label2 = New System.Windows.Forms.Label() + Me.chk_발코니여부 = New System.Windows.Forms.CheckBox() + Me.NTb_창호세부설명 = New System.Windows.Forms.TextBox() + Me.NTb_일사에너지투과율 = New System.Windows.Forms.TextBox() + Me.NTb_창호열관류율 = New System.Windows.Forms.TextBox() + Me.lbl_창호세부설명 = New System.Windows.Forms.Label() + Me.Panel2 = New System.Windows.Forms.Panel() + Me.UserControl11 = New Eco2Ar.YkCtl() + Me.lbl_일사에너지투과율 = New System.Windows.Forms.Label() + Me.cmb_열전도율 = New System.Windows.Forms.ComboBox() + Me.bs_detail = New System.Windows.Forms.BindingSource(Me.components) + Me.lbl_창호열관류율 = New System.Windows.Forms.Label() + Me.Label1 = New System.Windows.Forms.Label() + Me.btn_후경색 = New System.Windows.Forms.Button() + Me.btn_전경색 = New System.Windows.Forms.Button() + Me.열관류율NTb = New Eco2Ar.MyTb() + Me.TextBox7 = New System.Windows.Forms.TextBox() + Me.cmb_재료 = New System.Windows.Forms.ComboBox() + Me.Panel1 = New System.Windows.Forms.Panel() + Me.arindv1 = New System.Windows.Forms.DataGridView() + Me.bn_detail = New System.Windows.Forms.BindingNavigator(Me.components) + Me.ToolStripLabel1 = New System.Windows.Forms.ToolStripLabel() + Me.btj_add = New System.Windows.Forms.ToolStripButton() + Me.btj_del = New System.Windows.Forms.ToolStripButton() + Me.ToolStripSeparator2 = New System.Windows.Forms.ToolStripSeparator() + Me.ToolStripLabel2 = New System.Windows.Forms.ToolStripLabel() + Me.btj_showimg = New System.Windows.Forms.ToolStripButton() + Me.cmb_형태 = New Eco2Ar.MyCmb() + Me.bs_gubun = New System.Windows.Forms.BindingSource(Me.components) + Me.bS_재료 = New System.Windows.Forms.BindingSource(Me.components) + Me.커스텀 = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.code = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.재료명 = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.열전도율 = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.두께 = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.구분 = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.전경색 = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.후경색 = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.열저항 = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.전경 = New System.Windows.Forms.DataGridViewButtonColumn() + Me.Column1 = New System.Windows.Forms.DataGridViewButtonColumn() + 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() + CType(Me.PictureBox4, System.ComponentModel.ISupportInitialize).BeginInit() + Me.GroupBox1.SuspendLayout() + Me.Panel2.SuspendLayout() + CType(Me.bs_detail, System.ComponentModel.ISupportInitialize).BeginInit() + Me.Panel1.SuspendLayout() + CType(Me.arindv1, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.bn_detail, System.ComponentModel.ISupportInitialize).BeginInit() + Me.bn_detail.SuspendLayout() + CType(Me.bs_gubun, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.bS_재료, System.ComponentModel.ISupportInitialize).BeginInit() + Me.SuspendLayout() + ' + '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) + Me.SplitContainer1.Panel1.Controls.Add(Me.MyCmb1) + ' + 'SplitContainer1.Panel2 + ' + Me.SplitContainer1.Panel2.BackColor = System.Drawing.Color.White + Me.SplitContainer1.Panel2.Controls.Add(Me.Label15) + Me.SplitContainer1.Panel2.Controls.Add(Me.PictureBox4) + Me.SplitContainer1.Panel2.Controls.Add(Me.GroupBox1) + Me.SplitContainer1.Size = New System.Drawing.Size(818, 574) + Me.SplitContainer1.SplitterDistance = 158 + Me.SplitContainer1.TabIndex = 125 + ' + '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.FromArgb(CType(CType(245, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(246, Byte), Integer)) + 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.Column2, 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(156, 532) + Me.dv.TabIndex = 0 + ' + 'Column2 + ' + Me.Column2.DataPropertyName = "code" + Me.Column2.HeaderText = "Column2" + Me.Column2.Name = "Column2" + Me.Column2.Visible = False + Me.Column2.Width = 5 + ' + 'DataGridViewTextBoxColumn1 + ' + Me.DataGridViewTextBoxColumn1.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.Fill + Me.DataGridViewTextBoxColumn1.DataPropertyName = "설명" + Me.DataGridViewTextBoxColumn1.HeaderText = "설명" + Me.DataGridViewTextBoxColumn1.Name = "DataGridViewTextBoxColumn1" + ' + 'bs + ' + Me.bs.DataMember = "tbl_yk" + Me.bs.DataSource = Me.DS + Me.bs.Filter = "code <> '0'" + ' + 'DS + ' + 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.lb_code}) + Me.bn.Location = New System.Drawing.Point(0, 532) + 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(156, 40) + 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, 37) + 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, 37) + 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, 37) + 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, 37) + 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, 40) + ' + 'lbl_pos + ' + Me.lbl_pos.Name = "lbl_pos" + Me.lbl_pos.Size = New System.Drawing.Size(12, 37) + Me.lbl_pos.Text = "0" + ' + 'lb_code + ' + Me.lb_code.Name = "lb_code" + Me.lb_code.Size = New System.Drawing.Size(33, 37) + Me.lb_code.Text = "0000" + ' + 'MyCmb1 + ' + Me.MyCmb1.DropDownStyle = System.Windows.Forms.ComboBoxStyle.Simple + Me.MyCmb1.FormattingEnabled = True + Me.MyCmb1.Location = New System.Drawing.Point(332, 294) + Me.MyCmb1.Name = "MyCmb1" + Me.MyCmb1.NectControl = Nothing + Me.MyCmb1.Size = New System.Drawing.Size(152, 204) + Me.MyCmb1.TabIndex = 131 + ' + 'Label15 + ' + Me.Label15.AutoSize = True + Me.Label15.BackColor = System.Drawing.Color.FromArgb(CType(CType(116, Byte), Integer), CType(CType(158, Byte), Integer), CType(CType(209, Byte), Integer)) + Me.Label15.ForeColor = System.Drawing.Color.White + Me.Label15.Location = New System.Drawing.Point(61, 36) + Me.Label15.Name = "Label15" + Me.Label15.Size = New System.Drawing.Size(57, 12) + Me.Label15.TabIndex = 152 + Me.Label15.Text = "열관류율" + ' + 'PictureBox4 + ' + Me.PictureBox4.BackgroundImage = CType(resources.GetObject("PictureBox4.BackgroundImage"), System.Drawing.Image) + Me.PictureBox4.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch + Me.PictureBox4.Location = New System.Drawing.Point(41, 29) + Me.PictureBox4.Name = "PictureBox4" + Me.PictureBox4.Size = New System.Drawing.Size(131, 30) + Me.PictureBox4.TabIndex = 151 + Me.PictureBox4.TabStop = False + ' + 'GroupBox1 + ' + Me.GroupBox1.Controls.Add(Me.tb_투과율) + Me.GroupBox1.Controls.Add(Me.Label4) + Me.GroupBox1.Controls.Add(Me.tb_발코니투과율) + Me.GroupBox1.Controls.Add(Me.Label3) + Me.GroupBox1.Controls.Add(Me.tb_발코니열관류율) + Me.GroupBox1.Controls.Add(Me.Label2) + Me.GroupBox1.Controls.Add(Me.chk_발코니여부) + Me.GroupBox1.Controls.Add(Me.NTb_창호세부설명) + Me.GroupBox1.Controls.Add(Me.NTb_일사에너지투과율) + Me.GroupBox1.Controls.Add(Me.NTb_창호열관류율) + Me.GroupBox1.Controls.Add(Me.lbl_창호세부설명) + Me.GroupBox1.Controls.Add(Me.Panel2) + Me.GroupBox1.Controls.Add(Me.lbl_일사에너지투과율) + Me.GroupBox1.Controls.Add(Me.cmb_열전도율) + Me.GroupBox1.Controls.Add(Me.lbl_창호열관류율) + Me.GroupBox1.Controls.Add(Me.Label1) + Me.GroupBox1.Controls.Add(Me.btn_후경색) + Me.GroupBox1.Controls.Add(Me.btn_전경색) + Me.GroupBox1.Controls.Add(Me.열관류율NTb) + Me.GroupBox1.Controls.Add(Me.TextBox7) + Me.GroupBox1.Controls.Add(Me.cmb_재료) + Me.GroupBox1.Controls.Add(Me.Panel1) + Me.GroupBox1.Controls.Add(Me.cmb_형태) + Me.GroupBox1.Location = New System.Drawing.Point(3, 11) + Me.GroupBox1.Name = "GroupBox1" + Me.GroupBox1.Size = New System.Drawing.Size(648, 536) + Me.GroupBox1.TabIndex = 148 + Me.GroupBox1.TabStop = False + ' + 'tb_투과율 + ' + Me.tb_투과율.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer)) + Me.tb_투과율.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bs, "투과율", True)) + Me.tb_투과율.Location = New System.Drawing.Point(568, 464) + Me.tb_투과율.Name = "tb_투과율" + Me.tb_투과율.NectControl = Nothing + Me.tb_투과율.Size = New System.Drawing.Size(63, 21) + Me.tb_투과율.TabIndex = 169 + Me.tb_투과율.TabStop = False + Me.tb_투과율.TextAlign = System.Windows.Forms.HorizontalAlignment.Right + Me.tb_투과율.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + ' + 'Label4 + ' + Me.Label4.AutoSize = True + Me.Label4.ForeColor = System.Drawing.Color.Black + Me.Label4.Location = New System.Drawing.Point(492, 467) + Me.Label4.Name = "Label4" + Me.Label4.Size = New System.Drawing.Size(70, 12) + Me.Label4.TabIndex = 168 + Me.Label4.Text = "투과율[-]:" + ' + 'tb_발코니투과율 + ' + Me.tb_발코니투과율.BackColor = System.Drawing.Color.White + Me.tb_발코니투과율.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bs, "발코니투과율", True)) + Me.tb_발코니투과율.Enabled = False + Me.tb_발코니투과율.Location = New System.Drawing.Point(406, 464) + Me.tb_발코니투과율.Name = "tb_발코니투과율" + Me.tb_발코니투과율.Size = New System.Drawing.Size(62, 21) + Me.tb_발코니투과율.TabIndex = 165 + ' + 'Label3 + ' + Me.Label3.AutoSize = True + Me.Label3.Enabled = False + Me.Label3.ForeColor = System.Drawing.Color.Black + Me.Label3.Location = New System.Drawing.Point(291, 467) + Me.Label3.Name = "Label3" + Me.Label3.Size = New System.Drawing.Size(109, 12) + Me.Label3.TabIndex = 166 + Me.Label3.Text = "발코니투과율[-]:" + ' + 'tb_발코니열관류율 + ' + Me.tb_발코니열관류율.BackColor = System.Drawing.Color.White + Me.tb_발코니열관류율.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bs, "발코니창호열관류율", True)) + Me.tb_발코니열관류율.Enabled = False + Me.tb_발코니열관류율.Location = New System.Drawing.Point(219, 464) + Me.tb_발코니열관류율.Name = "tb_발코니열관류율" + Me.tb_발코니열관류율.Size = New System.Drawing.Size(66, 21) + Me.tb_발코니열관류율.TabIndex = 163 + ' + 'Label2 + ' + Me.Label2.AutoSize = True + Me.Label2.Enabled = False + Me.Label2.ForeColor = System.Drawing.Color.Black + Me.Label2.Location = New System.Drawing.Point(112, 467) + Me.Label2.Name = "Label2" + Me.Label2.Size = New System.Drawing.Size(101, 12) + Me.Label2.TabIndex = 164 + Me.Label2.Text = "발코니열관류율:" + ' + 'chk_발코니여부 + ' + Me.chk_발코니여부.AutoSize = True + Me.chk_발코니여부.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Me.bs, "발코니창호여부", True)) + Me.chk_발코니여부.Location = New System.Drawing.Point(17, 466) + Me.chk_발코니여부.Name = "chk_발코니여부" + Me.chk_발코니여부.Size = New System.Drawing.Size(89, 16) + Me.chk_발코니여부.TabIndex = 162 + Me.chk_발코니여부.Text = "발코니여부" + Me.chk_발코니여부.UseVisualStyleBackColor = True + ' + 'NTb_창호세부설명 + ' + Me.NTb_창호세부설명.BackColor = System.Drawing.Color.White + Me.NTb_창호세부설명.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bs, "창호세부설명", True)) + Me.NTb_창호세부설명.Location = New System.Drawing.Point(110, 491) + Me.NTb_창호세부설명.Name = "NTb_창호세부설명" + Me.NTb_창호세부설명.Size = New System.Drawing.Size(340, 21) + Me.NTb_창호세부설명.TabIndex = 2 + ' + 'NTb_일사에너지투과율 + ' + Me.NTb_일사에너지투과율.BackColor = System.Drawing.Color.White + Me.NTb_일사에너지투과율.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bs, "일사에너지투과율", True)) + Me.NTb_일사에너지투과율.Location = New System.Drawing.Point(345, 435) + Me.NTb_일사에너지투과율.Name = "NTb_일사에너지투과율" + Me.NTb_일사에너지투과율.Size = New System.Drawing.Size(55, 21) + Me.NTb_일사에너지투과율.TabIndex = 1 + ' + 'NTb_창호열관류율 + ' + Me.NTb_창호열관류율.BackColor = System.Drawing.Color.White + Me.NTb_창호열관류율.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bs, "창호열관류율", True)) + Me.NTb_창호열관류율.Location = New System.Drawing.Point(115, 435) + Me.NTb_창호열관류율.Name = "NTb_창호열관류율" + Me.NTb_창호열관류율.Size = New System.Drawing.Size(74, 21) + Me.NTb_창호열관류율.TabIndex = 0 + ' + 'lbl_창호세부설명 + ' + Me.lbl_창호세부설명.AutoSize = True + Me.lbl_창호세부설명.ForeColor = System.Drawing.Color.Black + Me.lbl_창호세부설명.Location = New System.Drawing.Point(14, 494) + Me.lbl_창호세부설명.Name = "lbl_창호세부설명" + Me.lbl_창호세부설명.Size = New System.Drawing.Size(93, 12) + Me.lbl_창호세부설명.TabIndex = 153 + Me.lbl_창호세부설명.Text = "창호세부설명 :" + ' + 'Panel2 + ' + Me.Panel2.Controls.Add(Me.UserControl11) + Me.Panel2.Location = New System.Drawing.Point(22, 63) + Me.Panel2.Name = "Panel2" + Me.Panel2.Size = New System.Drawing.Size(152, 152) + Me.Panel2.TabIndex = 161 + ' + 'UserControl11 + ' + Me.UserControl11.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.UserControl11.Dock = System.Windows.Forms.DockStyle.Fill + Me.UserControl11.Location = New System.Drawing.Point(0, 0) + Me.UserControl11.MaxSize = 150.0! + Me.UserControl11.Name = "UserControl11" + Me.UserControl11.Size = New System.Drawing.Size(152, 152) + Me.UserControl11.TabIndex = 132 + Me.UserControl11.Vertical = False + ' + 'lbl_일사에너지투과율 + ' + Me.lbl_일사에너지투과율.AutoSize = True + Me.lbl_일사에너지투과율.ForeColor = System.Drawing.Color.Black + Me.lbl_일사에너지투과율.Location = New System.Drawing.Point(206, 438) + Me.lbl_일사에너지투과율.Name = "lbl_일사에너지투과율" + Me.lbl_일사에너지투과율.Size = New System.Drawing.Size(135, 12) + Me.lbl_일사에너지투과율.TabIndex = 153 + Me.lbl_일사에너지투과율.Text = "일사에너지투과율[-]:" + ' + 'cmb_열전도율 + ' + Me.cmb_열전도율.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bs_detail, "열전도율", True)) + Me.cmb_열전도율.FormattingEnabled = True + Me.cmb_열전도율.Location = New System.Drawing.Point(442, 33) + Me.cmb_열전도율.Name = "cmb_열전도율" + Me.cmb_열전도율.Size = New System.Drawing.Size(75, 20) + Me.cmb_열전도율.TabIndex = 160 + Me.cmb_열전도율.TabStop = False + ' + 'bs_detail + ' + Me.bs_detail.DataMember = "tbl_ykdetail" + Me.bs_detail.DataSource = Me.DS + Me.bs_detail.Filter = "code <> '0'" + ' + 'lbl_창호열관류율 + ' + Me.lbl_창호열관류율.AutoSize = True + Me.lbl_창호열관류율.ForeColor = System.Drawing.Color.Black + Me.lbl_창호열관류율.Location = New System.Drawing.Point(16, 438) + Me.lbl_창호열관류율.Name = "lbl_창호열관류율" + Me.lbl_창호열관류율.Size = New System.Drawing.Size(88, 12) + Me.lbl_창호열관류율.TabIndex = 153 + Me.lbl_창호열관류율.Text = "창호열관류율:" + ' + 'Label1 + ' + Me.Label1.AutoSize = True + Me.Label1.Location = New System.Drawing.Point(456, 494) + Me.Label1.Name = "Label1" + Me.Label1.Size = New System.Drawing.Size(113, 12) + Me.Label1.TabIndex = 153 + Me.Label1.Text = "열관류율(W/㎡K):" + ' + 'btn_후경색 + ' + Me.btn_후경색.Location = New System.Drawing.Point(600, 33) + Me.btn_후경색.Name = "btn_후경색" + Me.btn_후경색.Size = New System.Drawing.Size(31, 21) + Me.btn_후경색.TabIndex = 159 + Me.btn_후경색.TabStop = False + Me.btn_후경색.UseVisualStyleBackColor = True + Me.btn_후경색.Visible = False + ' + 'btn_전경색 + ' + Me.btn_전경색.Location = New System.Drawing.Point(563, 33) + Me.btn_전경색.Name = "btn_전경색" + Me.btn_전경색.Size = New System.Drawing.Size(31, 21) + Me.btn_전경색.TabIndex = 159 + Me.btn_전경색.TabStop = False + Me.btn_전경색.UseVisualStyleBackColor = True + Me.btn_전경색.Visible = False + ' + '열관류율NTb + ' + Me.열관류율NTb.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer)) + Me.열관류율NTb.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bs, "열관류율", True)) + Me.열관류율NTb.Location = New System.Drawing.Point(569, 491) + Me.열관류율NTb.Name = "열관류율NTb" + Me.열관류율NTb.NectControl = Nothing + Me.열관류율NTb.Size = New System.Drawing.Size(62, 21) + Me.열관류율NTb.TabIndex = 3 + Me.열관류율NTb.TabStop = False + Me.열관류율NTb.TextAlign = System.Windows.Forms.HorizontalAlignment.Right + Me.열관류율NTb.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + ' + 'TextBox7 + ' + Me.TextBox7.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bs_detail, "code", True)) + Me.TextBox7.Enabled = False + Me.TextBox7.Location = New System.Drawing.Point(203, 33) + Me.TextBox7.Name = "TextBox7" + Me.TextBox7.Size = New System.Drawing.Size(36, 21) + Me.TextBox7.TabIndex = 157 + Me.TextBox7.TabStop = False + ' + 'cmb_재료 + ' + Me.cmb_재료.FormattingEnabled = True + Me.cmb_재료.Location = New System.Drawing.Point(245, 33) + Me.cmb_재료.Name = "cmb_재료" + Me.cmb_재료.Size = New System.Drawing.Size(191, 20) + Me.cmb_재료.TabIndex = 156 + Me.cmb_재료.TabStop = False + ' + 'Panel1 + ' + Me.Panel1.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.Panel1.Controls.Add(Me.arindv1) + Me.Panel1.Controls.Add(Me.bn_detail) + Me.Panel1.Location = New System.Drawing.Point(203, 61) + Me.Panel1.Name = "Panel1" + Me.Panel1.Size = New System.Drawing.Size(429, 368) + Me.Panel1.TabIndex = 154 + ' + 'arindv1 + ' + Me.arindv1.AllowUserToAddRows = False + Me.arindv1.AllowUserToResizeRows = False + Me.arindv1.AutoGenerateColumns = False + Me.arindv1.ColumnHeadersHeight = 40 + Me.arindv1.Columns.AddRange(New System.Windows.Forms.DataGridViewColumn() {Me.커스텀, Me.code, Me.재료명, Me.열전도율, Me.두께, Me.구분, Me.전경색, Me.후경색, Me.열저항, Me.전경, Me.Column1}) + Me.arindv1.DataSource = Me.bs_detail + DataGridViewCellStyle3.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleRight + DataGridViewCellStyle3.BackColor = System.Drawing.SystemColors.Window + DataGridViewCellStyle3.Font = New System.Drawing.Font("돋움", 8.999999!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + DataGridViewCellStyle3.ForeColor = System.Drawing.SystemColors.ControlText + DataGridViewCellStyle3.SelectionBackColor = System.Drawing.SystemColors.Highlight + DataGridViewCellStyle3.SelectionForeColor = System.Drawing.SystemColors.HighlightText + DataGridViewCellStyle3.WrapMode = System.Windows.Forms.DataGridViewTriState.[False] + Me.arindv1.DefaultCellStyle = DataGridViewCellStyle3 + Me.arindv1.Dock = System.Windows.Forms.DockStyle.Fill + Me.arindv1.Location = New System.Drawing.Point(0, 0) + Me.arindv1.MultiSelect = False + Me.arindv1.Name = "arindv1" + Me.arindv1.RowHeadersVisible = False + Me.arindv1.RowHeadersWidth = 20 + Me.arindv1.RowTemplate.Height = 23 + Me.arindv1.Size = New System.Drawing.Size(427, 326) + Me.arindv1.TabIndex = 157 + ' + 'bn_detail + ' + Me.bn_detail.AddNewItem = Nothing + Me.bn_detail.AutoSize = False + Me.bn_detail.BindingSource = Me.bs_detail + Me.bn_detail.CountItem = Me.ToolStripLabel1 + Me.bn_detail.DeleteItem = Nothing + Me.bn_detail.Dock = System.Windows.Forms.DockStyle.Bottom + Me.bn_detail.Font = New System.Drawing.Font("돋움", 8.999999!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.bn_detail.GripStyle = System.Windows.Forms.ToolStripGripStyle.Hidden + Me.bn_detail.ImageScalingSize = New System.Drawing.Size(20, 20) + Me.bn_detail.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.btj_add, Me.btj_del, Me.ToolStripSeparator2, Me.ToolStripLabel2, Me.ToolStripLabel1, Me.btj_showimg}) + Me.bn_detail.Location = New System.Drawing.Point(0, 326) + Me.bn_detail.MoveFirstItem = Nothing + Me.bn_detail.MoveLastItem = Nothing + Me.bn_detail.MoveNextItem = Nothing + Me.bn_detail.MovePreviousItem = Nothing + Me.bn_detail.Name = "bn_detail" + Me.bn_detail.PositionItem = Me.ToolStripLabel2 + Me.bn_detail.Size = New System.Drawing.Size(427, 40) + Me.bn_detail.TabIndex = 2 + Me.bn_detail.Text = "BindingNavigator1" + ' + 'ToolStripLabel1 + ' + Me.ToolStripLabel1.Name = "ToolStripLabel1" + Me.ToolStripLabel1.Size = New System.Drawing.Size(33, 37) + Me.ToolStripLabel1.Text = "/{0}" + ' + 'btj_add + ' + Me.btj_add.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.btj_add.Image = Global.Eco2Ar.My.Resources.Resources.new_32 + Me.btj_add.Name = "btj_add" + Me.btj_add.RightToLeftAutoMirrorImage = True + Me.btj_add.Size = New System.Drawing.Size(24, 37) + Me.btj_add.Text = "신규추가(&A)" + Me.btj_add.ToolTipText = "새로운 프로필을 추가합니다" + ' + 'btj_del + ' + Me.btj_del.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.btj_del.Image = Global.Eco2Ar.My.Resources.Resources.remov_32 + Me.btj_del.Name = "btj_del" + Me.btj_del.RightToLeftAutoMirrorImage = True + Me.btj_del.Size = New System.Drawing.Size(24, 37) + Me.btj_del.Text = "선택삭제(&D)" + Me.btj_del.ToolTipText = "선택된 프로필을 삭제합니다" + ' + 'ToolStripSeparator2 + ' + Me.ToolStripSeparator2.Name = "ToolStripSeparator2" + Me.ToolStripSeparator2.Size = New System.Drawing.Size(6, 40) + ' + 'ToolStripLabel2 + ' + Me.ToolStripLabel2.Name = "ToolStripLabel2" + Me.ToolStripLabel2.Size = New System.Drawing.Size(12, 37) + Me.ToolStripLabel2.Text = "0" + ' + 'btj_showimg + ' + Me.btj_showimg.Alignment = System.Windows.Forms.ToolStripItemAlignment.Right + Me.btj_showimg.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Text + Me.btj_showimg.Image = CType(resources.GetObject("btj_showimg.Image"), System.Drawing.Image) + Me.btj_showimg.ImageTransparentColor = System.Drawing.Color.Magenta + Me.btj_showimg.Name = "btj_showimg" + Me.btj_showimg.Size = New System.Drawing.Size(87, 37) + Me.btj_showimg.Text = "구분그림보기" + Me.btj_showimg.Visible = False + ' + 'cmb_형태 + ' + Me.cmb_형태.DropDownStyle = System.Windows.Forms.ComboBoxStyle.Simple + Me.cmb_형태.FormattingEnabled = True + Me.cmb_형태.Location = New System.Drawing.Point(22, 225) + Me.cmb_형태.Name = "cmb_형태" + Me.cmb_형태.NectControl = Nothing + Me.cmb_형태.Size = New System.Drawing.Size(152, 204) + Me.cmb_형태.TabIndex = 131 + ' + 'bs_gubun + ' + Me.bs_gubun.DataMember = "tbl_common" + Me.bs_gubun.DataSource = Me.DS + ' + 'bS_재료 + ' + Me.bS_재료.DataMember = "tbl_common" + Me.bS_재료.DataSource = Me.DS + ' + '커스텀 + ' + Me.커스텀.DataPropertyName = "커스텀" + Me.커스텀.HeaderText = "커스텀" + Me.커스텀.Name = "커스텀" + Me.커스텀.SortMode = System.Windows.Forms.DataGridViewColumnSortMode.Programmatic + Me.커스텀.Visible = False + ' + 'code + ' + Me.code.DataPropertyName = "code" + Me.code.HeaderText = "번호" + Me.code.Name = "code" + Me.code.ReadOnly = True + Me.code.Resizable = System.Windows.Forms.DataGridViewTriState.[False] + Me.code.SortMode = System.Windows.Forms.DataGridViewColumnSortMode.Programmatic + Me.code.Width = 39 + ' + '재료명 + ' + Me.재료명.DataPropertyName = "설명" + DataGridViewCellStyle1.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft + Me.재료명.DefaultCellStyle = DataGridViewCellStyle1 + Me.재료명.HeaderText = "재료명" + Me.재료명.Name = "재료명" + Me.재료명.ReadOnly = True + Me.재료명.Resizable = System.Windows.Forms.DataGridViewTriState.[False] + Me.재료명.SortMode = System.Windows.Forms.DataGridViewColumnSortMode.Programmatic + Me.재료명.Width = 200 + ' + '열전도율 + ' + Me.열전도율.DataPropertyName = "열전도율" + Me.열전도율.HeaderText = "열전도율 (W/mK)" + Me.열전도율.Name = "열전도율" + Me.열전도율.ReadOnly = True + Me.열전도율.Resizable = System.Windows.Forms.DataGridViewTriState.[False] + Me.열전도율.SortMode = System.Windows.Forms.DataGridViewColumnSortMode.Programmatic + Me.열전도율.Width = 70 + ' + '두께 + ' + Me.두께.DataPropertyName = "두께" + Me.두께.HeaderText = "두께 (mm)" + Me.두께.Name = "두께" + Me.두께.Resizable = System.Windows.Forms.DataGridViewTriState.[False] + Me.두께.SortMode = System.Windows.Forms.DataGridViewColumnSortMode.Programmatic + Me.두께.Width = 45 + ' + '구분 + ' + Me.구분.DataPropertyName = "구분" + Me.구분.HeaderText = "구분" + Me.구분.Name = "구분" + Me.구분.Resizable = System.Windows.Forms.DataGridViewTriState.[False] + Me.구분.SortMode = System.Windows.Forms.DataGridViewColumnSortMode.Programmatic + Me.구분.Visible = False + Me.구분.Width = 35 + ' + '전경색 + ' + Me.전경색.DataPropertyName = "전경색" + Me.전경색.HeaderText = "전경색" + Me.전경색.Name = "전경색" + Me.전경색.SortMode = System.Windows.Forms.DataGridViewColumnSortMode.Programmatic + Me.전경색.Visible = False + Me.전경색.Width = 65 + ' + '후경색 + ' + Me.후경색.DataPropertyName = "후경색" + Me.후경색.HeaderText = "후경색" + Me.후경색.Name = "후경색" + Me.후경색.SortMode = System.Windows.Forms.DataGridViewColumnSortMode.Programmatic + Me.후경색.Visible = False + Me.후경색.Width = 65 + ' + '열저항 + ' + Me.열저항.DataPropertyName = "열저항" + Me.열저항.HeaderText = " 열저항 (㎡K/W)" + Me.열저항.Name = "열저항" + Me.열저항.ReadOnly = True + Me.열저항.Resizable = System.Windows.Forms.DataGridViewTriState.[False] + Me.열저항.SortMode = System.Windows.Forms.DataGridViewColumnSortMode.Programmatic + Me.열저항.Width = 70 + ' + '전경 + ' + DataGridViewCellStyle2.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleCenter + DataGridViewCellStyle2.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer)) + DataGridViewCellStyle2.ForeColor = System.Drawing.Color.Purple + Me.전경.DefaultCellStyle = DataGridViewCellStyle2 + Me.전경.HeaderText = "전경" + Me.전경.Name = "전경" + Me.전경.Resizable = System.Windows.Forms.DataGridViewTriState.[False] + Me.전경.SortMode = System.Windows.Forms.DataGridViewColumnSortMode.Automatic + Me.전경.Text = "TEst2" + Me.전경.Visible = False + Me.전경.Width = 35 + ' + 'Column1 + ' + Me.Column1.HeaderText = "배경" + Me.Column1.Name = "Column1" + Me.Column1.Resizable = System.Windows.Forms.DataGridViewTriState.[False] + Me.Column1.Visible = False + Me.Column1.Width = 35 + ' + 'Frm_YK + ' + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.None + Me.ClientSize = New System.Drawing.Size(818, 574) + Me.ControlBox = False + Me.Controls.Add(Me.SplitContainer1) + Me.Font = New System.Drawing.Font("돋움", 8.999999!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.KeyPreview = True + Me.Name = "Frm_YK" + Me.ShowInTaskbar = False + Me.StartPosition = System.Windows.Forms.FormStartPosition.Manual + Me.Text = "열관류율" + Me.SplitContainer1.Panel1.ResumeLayout(False) + Me.SplitContainer1.Panel2.ResumeLayout(False) + Me.SplitContainer1.Panel2.PerformLayout() + 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() + CType(Me.PictureBox4, System.ComponentModel.ISupportInitialize).EndInit() + Me.GroupBox1.ResumeLayout(False) + Me.GroupBox1.PerformLayout() + Me.Panel2.ResumeLayout(False) + CType(Me.bs_detail, System.ComponentModel.ISupportInitialize).EndInit() + Me.Panel1.ResumeLayout(False) + CType(Me.arindv1, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.bn_detail, System.ComponentModel.ISupportInitialize).EndInit() + Me.bn_detail.ResumeLayout(False) + Me.bn_detail.PerformLayout() + CType(Me.bs_gubun, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.bS_재료, System.ComponentModel.ISupportInitialize).EndInit() + Me.ResumeLayout(False) + + End Sub + Public WithEvents DS As Eco2Ar.DS + Friend WithEvents bs As System.Windows.Forms.BindingSource + Friend WithEvents SplitContainer1 As System.Windows.Forms.SplitContainer + Friend WithEvents bn As System.Windows.Forms.BindingNavigator + Friend WithEvents bt_add As System.Windows.Forms.ToolStripButton + Friend WithEvents bt_Del As System.Windows.Forms.ToolStripButton + Friend WithEvents bt_cancel As System.Windows.Forms.ToolStripButton + Friend WithEvents ToolStripSeparator1 As System.Windows.Forms.ToolStripSeparator + Friend WithEvents dv As CEnergy.arindv + Friend WithEvents lbl_count As System.Windows.Forms.ToolStripLabel + Friend WithEvents lbl_pos As System.Windows.Forms.ToolStripLabel + Friend WithEvents Label15 As System.Windows.Forms.Label + Friend WithEvents PictureBox4 As System.Windows.Forms.PictureBox + Friend WithEvents bS_재료 As System.Windows.Forms.BindingSource + Friend WithEvents bs_detail As System.Windows.Forms.BindingSource + Friend WithEvents bs_gubun As System.Windows.Forms.BindingSource + Friend WithEvents GroupBox1 As System.Windows.Forms.GroupBox + Friend WithEvents Label1 As System.Windows.Forms.Label + Friend WithEvents btn_후경색 As System.Windows.Forms.Button + Friend WithEvents btn_전경색 As System.Windows.Forms.Button + Friend WithEvents 열관류율NTb As Eco2Ar.MyTb + Friend WithEvents TextBox7 As System.Windows.Forms.TextBox + Friend WithEvents cmb_재료 As System.Windows.Forms.ComboBox + Friend WithEvents Panel1 As System.Windows.Forms.Panel + Friend WithEvents arindv1 As System.Windows.Forms.DataGridView + Friend WithEvents bn_detail As System.Windows.Forms.BindingNavigator + Friend WithEvents ToolStripLabel1 As System.Windows.Forms.ToolStripLabel + Friend WithEvents btj_add As System.Windows.Forms.ToolStripButton + Friend WithEvents btj_del As System.Windows.Forms.ToolStripButton + Friend WithEvents ToolStripSeparator2 As System.Windows.Forms.ToolStripSeparator + Friend WithEvents ToolStripLabel2 As System.Windows.Forms.ToolStripLabel + Friend WithEvents btj_showimg As System.Windows.Forms.ToolStripButton + Friend WithEvents UserControl11 As YkCtl + Friend WithEvents cmb_형태 As Eco2Ar.MyCmb + Friend WithEvents cmb_열전도율 As System.Windows.Forms.ComboBox + Friend WithEvents Panel2 As System.Windows.Forms.Panel + Friend WithEvents NTb_창호열관류율 As System.Windows.Forms.TextBox + Friend WithEvents lbl_창호열관류율 As System.Windows.Forms.Label + Friend WithEvents NTb_창호세부설명 As System.Windows.Forms.TextBox + Friend WithEvents NTb_일사에너지투과율 As System.Windows.Forms.TextBox + Friend WithEvents lbl_창호세부설명 As System.Windows.Forms.Label + Friend WithEvents lbl_일사에너지투과율 As System.Windows.Forms.Label + Friend WithEvents MyCmb1 As Eco2Ar.MyCmb + Friend WithEvents chk_발코니여부 As System.Windows.Forms.CheckBox + Friend WithEvents tb_발코니투과율 As System.Windows.Forms.TextBox + Friend WithEvents Label3 As System.Windows.Forms.Label + Friend WithEvents tb_발코니열관류율 As System.Windows.Forms.TextBox + Friend WithEvents Label2 As System.Windows.Forms.Label + Friend WithEvents Label4 As System.Windows.Forms.Label + Friend WithEvents tb_투과율 As Eco2Ar.MyTb + Friend WithEvents Column2 As System.Windows.Forms.DataGridViewTextBoxColumn + Friend WithEvents DataGridViewTextBoxColumn1 As System.Windows.Forms.DataGridViewTextBoxColumn + Friend WithEvents lb_code As System.Windows.Forms.ToolStripLabel + Friend WithEvents 커스텀 As System.Windows.Forms.DataGridViewTextBoxColumn + Friend WithEvents code 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 구분 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 전경 As System.Windows.Forms.DataGridViewButtonColumn + Friend WithEvents Column1 As System.Windows.Forms.DataGridViewButtonColumn +End Class diff --git a/ArinWarev1/Forms_Input/Frm_YK.resx b/ArinWarev1/Forms_Input/Frm_YK.resx new file mode 100644 index 0000000..84fe1d6 --- /dev/null +++ b/ArinWarev1/Forms_Input/Frm_YK.resx @@ -0,0 +1,272 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + True + + + 17, 17 + + + 81, 17 + + + 148, 17 + + + + + /9j/4AAQSkZJRgABAgEASABIAAD/7gAOQWRvYmUAZAAAAAAB/+ED5kV4aWYAAE1NACoAAAAIAAcBEgAD + AAAAAQABAAABGgAFAAAAAQAAAGIBGwAFAAAAAQAAAGoBKAADAAAAAQACAAABMQACAAAAHAAAAHIBMgAC + AAAAFAAAAI6HaQAEAAAAAQAAAKIAAADCAEgAAAABAAAASAAAAAEAAEFkb2JlIFBob3Rvc2hvcCBDUzMg + V2luZG93cwAyMDEwOjA0OjE1IDIwOjMyOjA0AAACoAIABAAAAAEAAAA8oAMABAAAAAEAAAAMAAAAAAAA + AAYBAwADAAAAAQAGAAABGgAFAAAAAQAAARABGwAFAAAAAQAAARgBKAADAAAAAQACAAACAQAEAAAAAQAA + ASACAgAEAAAAAQAAAr4AAAAAAAAASAAAAAEAAABIAAAAAf/Y/+AAEEpGSUYAAQIAAEgASAAA/+0ADEFk + b2JlX0NNAAH/7gAOQWRvYmUAZIAAAAAB/9sAhAAMCAgICQgMCQkMEQsKCxEVDwwMDxUYExMVExMYEQwM + DAwMDBEMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMAQ0LCw0ODRAODhAUDg4OFBQODg4OFBEMDAwM + DBERDAwMDAwMEQwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAz/wAARCAAMADwDASIAAhEBAxEB/90A + BAAE/8QBPwAAAQUBAQEBAQEAAAAAAAAAAwABAgQFBgcICQoLAQABBQEBAQEBAQAAAAAAAAABAAIDBAUG + BwgJCgsQAAEEAQMCBAIFBwYIBQMMMwEAAhEDBCESMQVBUWETInGBMgYUkaGxQiMkFVLBYjM0coLRQwcl + klPw4fFjczUWorKDJkSTVGRFwqN0NhfSVeJl8rOEw9N14/NGJ5SkhbSVxNTk9KW1xdXl9VZmdoaWprbG + 1ub2N0dXZ3eHl6e3x9fn9xEAAgIBAgQEAwQFBgcHBgU1AQACEQMhMRIEQVFhcSITBTKBkRShsUIjwVLR + 8DMkYuFygpJDUxVjczTxJQYWorKDByY1wtJEk1SjF2RFVTZ0ZeLys4TD03Xj80aUpIW0lcTU5PSltcXV + 5fVWZnaGlqa2xtbm9ic3R1dnd4eXp7fH/9oADAMBAAIRAxEAPwDd/amR/pH/AOcf70v2pkf6R/8AnH+9 + UUlofq/Bpevxb37UyP8ASP8A84/3pftTI/0j/wDOP96opJfq/BXr8W9+1Mj/AEj/APOP96X7UyP9I/8A + zj/eqKSX6vwV6/F3ujdbuGS2i5xfU8HVxktIG76XyW99vo27p0XGdO2/ba930dZj+q5dX+qfZPL8VAeD + 341VVr/eZhx+0bu708n/2f/iDFhJQ0NfUFJPRklMRQABAQAADEhMaW5vAhAAAG1udHJSR0IgWFlaIAfO + AAIACQAGADEAAGFjc3BNU0ZUAAAAAElFQyBzUkdCAAAAAAAAAAAAAAAAAAD21gABAAAAANMtSFAgIAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAEWNwcnQAAAFQAAAAM2Rl + c2MAAAGEAAAAbHd0cHQAAAHwAAAAFGJrcHQAAAIEAAAAFHJYWVoAAAIYAAAAFGdYWVoAAAIsAAAAFGJY + WVoAAAJAAAAAFGRtbmQAAAJUAAAAcGRtZGQAAALEAAAAiHZ1ZWQAAANMAAAAhnZpZXcAAAPUAAAAJGx1 + bWkAAAP4AAAAFG1lYXMAAAQMAAAAJHRlY2gAAAQwAAAADHJUUkMAAAQ8AAAIDGdUUkMAAAQ8AAAIDGJU + UkMAAAQ8AAAIDHRleHQAAAAAQ29weXJpZ2h0IChjKSAxOTk4IEhld2xldHQtUGFja2FyZCBDb21wYW55 + AABkZXNjAAAAAAAAABJzUkdCIElFQzYxOTY2LTIuMQAAAAAAAAAAAAAAEnNSR0IgSUVDNjE5NjYtMi4x + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABYWVogAAAAAAAA + 81EAAQAAAAEWzFhZWiAAAAAAAAAAAAAAAAAAAAAAWFlaIAAAAAAAAG+iAAA49QAAA5BYWVogAAAAAAAA + YpkAALeFAAAY2lhZWiAAAAAAAAAkoAAAD4QAALbPZGVzYwAAAAAAAAAWSUVDIGh0dHA6Ly93d3cuaWVj + LmNoAAAAAAAAAAAAAAAWSUVDIGh0dHA6Ly93d3cuaWVjLmNoAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAGRlc2MAAAAAAAAALklFQyA2MTk2Ni0yLjEgRGVmYXVsdCBSR0Ig + Y29sb3VyIHNwYWNlIC0gc1JHQgAAAAAAAAAAAAAALklFQyA2MTk2Ni0yLjEgRGVmYXVsdCBSR0IgY29s + b3VyIHNwYWNlIC0gc1JHQgAAAAAAAAAAAAAAAAAAAAAAAAAAAABkZXNjAAAAAAAAACxSZWZlcmVuY2Ug + Vmlld2luZyBDb25kaXRpb24gaW4gSUVDNjE5NjYtMi4xAAAAAAAAAAAAAAAsUmVmZXJlbmNlIFZpZXdp + bmcgQ29uZGl0aW9uIGluIElFQzYxOTY2LTIuMQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAdmlldwAA + AAAAE6T+ABRfLgAQzxQAA+3MAAQTCwADXJ4AAAABWFlaIAAAAAAATAlWAFAAAABXH+dtZWFzAAAAAAAA + AAEAAAAAAAAAAAAAAAAAAAAAAAACjwAAAAJzaWcgAAAAAENSVCBjdXJ2AAAAAAAABAAAAAAFAAoADwAU + ABkAHgAjACgALQAyADcAOwBAAEUASgBPAFQAWQBeAGMAaABtAHIAdwB8AIEAhgCLAJAAlQCaAJ8ApACp + AK4AsgC3ALwAwQDGAMsA0ADVANsA4ADlAOsA8AD2APsBAQEHAQ0BEwEZAR8BJQErATIBOAE+AUUBTAFS + AVkBYAFnAW4BdQF8AYMBiwGSAZoBoQGpAbEBuQHBAckB0QHZAeEB6QHyAfoCAwIMAhQCHQImAi8COAJB + AksCVAJdAmcCcQJ6AoQCjgKYAqICrAK2AsECywLVAuAC6wL1AwADCwMWAyEDLQM4A0MDTwNaA2YDcgN+ + A4oDlgOiA64DugPHA9MD4APsA/kEBgQTBCAELQQ7BEgEVQRjBHEEfgSMBJoEqAS2BMQE0wThBPAE/gUN + BRwFKwU6BUkFWAVnBXcFhgWWBaYFtQXFBdUF5QX2BgYGFgYnBjcGSAZZBmoGewaMBp0GrwbABtEG4wb1 + BwcHGQcrBz0HTwdhB3QHhgeZB6wHvwfSB+UH+AgLCB8IMghGCFoIbgiCCJYIqgi+CNII5wj7CRAJJQk6 + CU8JZAl5CY8JpAm6Cc8J5Qn7ChEKJwo9ClQKagqBCpgKrgrFCtwK8wsLCyILOQtRC2kLgAuYC7ALyAvh + C/kMEgwqDEMMXAx1DI4MpwzADNkM8w0NDSYNQA1aDXQNjg2pDcMN3g34DhMOLg5JDmQOfw6bDrYO0g7u + DwkPJQ9BD14Peg+WD7MPzw/sEAkQJhBDEGEQfhCbELkQ1xD1ERMRMRFPEW0RjBGqEckR6BIHEiYSRRJk + EoQSoxLDEuMTAxMjE0MTYxODE6QTxRPlFAYUJxRJFGoUixStFM4U8BUSFTQVVhV4FZsVvRXgFgMWJhZJ + FmwWjxayFtYW+hcdF0EXZReJF64X0hf3GBsYQBhlGIoYrxjVGPoZIBlFGWsZkRm3Gd0aBBoqGlEadxqe + GsUa7BsUGzsbYxuKG7Ib2hwCHCocUhx7HKMczBz1HR4dRx1wHZkdwx3sHhYeQB5qHpQevh7pHxMfPh9p + H5Qfvx/qIBUgQSBsIJggxCDwIRwhSCF1IaEhziH7IiciVSKCIq8i3SMKIzgjZiOUI8Ij8CQfJE0kfCSr + JNolCSU4JWgllyXHJfcmJyZXJocmtyboJxgnSSd6J6sn3CgNKD8ocSiiKNQpBik4KWspnSnQKgIqNSpo + KpsqzysCKzYraSudK9EsBSw5LG4soizXLQwtQS12Last4S4WLkwugi63Lu4vJC9aL5Evxy/+MDUwbDCk + MNsxEjFKMYIxujHyMioyYzKbMtQzDTNGM38zuDPxNCs0ZTSeNNg1EzVNNYc1wjX9Njc2cjauNuk3JDdg + N5w31zgUOFA4jDjIOQU5Qjl/Obw5+To2OnQ6sjrvOy07azuqO+g8JzxlPKQ84z0iPWE9oT3gPiA+YD6g + PuA/IT9hP6I/4kAjQGRApkDnQSlBakGsQe5CMEJyQrVC90M6Q31DwEQDREdEikTORRJFVUWaRd5GIkZn + RqtG8Ec1R3tHwEgFSEtIkUjXSR1JY0mpSfBKN0p9SsRLDEtTS5pL4kwqTHJMuk0CTUpNk03cTiVObk63 + TwBPSU+TT91QJ1BxULtRBlFQUZtR5lIxUnxSx1MTU19TqlP2VEJUj1TbVShVdVXCVg9WXFapVvdXRFeS + V+BYL1h9WMtZGllpWbhaB1pWWqZa9VtFW5Vb5Vw1XIZc1l0nXXhdyV4aXmxevV8PX2Ffs2AFYFdgqmD8 + YU9homH1YklinGLwY0Njl2PrZEBklGTpZT1lkmXnZj1mkmboZz1nk2fpaD9olmjsaUNpmmnxakhqn2r3 + a09rp2v/bFdsr20IbWBtuW4SbmtuxG8eb3hv0XArcIZw4HE6cZVx8HJLcqZzAXNdc7h0FHRwdMx1KHWF + deF2Pnabdvh3VnezeBF4bnjMeSp5iXnnekZ6pXsEe2N7wnwhfIF84X1BfaF+AX5ifsJ/I3+Ef+WAR4Co + gQqBa4HNgjCCkoL0g1eDuoQdhICE44VHhauGDoZyhteHO4efiASIaYjOiTOJmYn+imSKyoswi5aL/Ixj + jMqNMY2Yjf+OZo7OjzaPnpAGkG6Q1pE/kaiSEZJ6kuOTTZO2lCCUipT0lV+VyZY0lp+XCpd1l+CYTJi4 + mSSZkJn8mmia1ZtCm6+cHJyJnPedZJ3SnkCerp8dn4uf+qBpoNihR6G2oiailqMGo3aj5qRWpMelOKWp + phqmi6b9p26n4KhSqMSpN6mpqhyqj6sCq3Wr6axcrNCtRK24ri2uoa8Wr4uwALB1sOqxYLHWskuywrM4 + s660JbSctRO1irYBtnm28Ldot+C4WbjRuUq5wro7urW7LrunvCG8m70VvY++Cr6Evv+/er/1wHDA7MFn + wePCX8Lbw1jD1MRRxM7FS8XIxkbGw8dBx7/IPci8yTrJuco4yrfLNsu2zDXMtc01zbXONs62zzfPuNA5 + 0LrRPNG+0j/SwdNE08bUSdTL1U7V0dZV1tjXXNfg2GTY6Nls2fHadtr724DcBdyK3RDdlt4c3qLfKd+v + 4DbgveFE4cziU+Lb42Pj6+Rz5PzlhOYN5pbnH+ep6DLovOlG6dDqW+rl63Dr++yG7RHtnO4o7rTvQO/M + 8Fjw5fFy8f/yjPMZ86f0NPTC9VD13vZt9vv3ivgZ+Kj5OPnH+lf65/t3/Af8mP0p/br+S/7c/23////b + AEMAAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQICAgICAgICAgICAwMD + AwMDAwMDA//bAEMBAQEBAQEBAQEBAQICAQICAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMD + AwMDAwMDAwMDAwMDAwMDA//AABEIAAwAPAMBEQACEQEDEQH/xAAfAAABBQEBAQEBAQAAAAAAAAAAAQID + BAUGBwgJCgv/xAC1EAACAQMDAgQDBQUEBAAAAX0BAgMABBEFEiExQQYTUWEHInEUMoGRoQgjQrHBFVLR + 8CQzYnKCCQoWFxgZGiUmJygpKjQ1Njc4OTpDREVGR0hJSlNUVVZXWFlaY2RlZmdoaWpzdHV2d3h5eoOE + hYaHiImKkpOUlZaXmJmaoqOkpaanqKmqsrO0tba3uLm6wsPExcbHyMnK0tPU1dbX2Nna4eLj5OXm5+jp + 6vHy8/T19vf4+fr/xAAfAQADAQEBAQEBAQEBAAAAAAAAAQIDBAUGBwgJCgv/xAC1EQACAQIEBAMEBwUE + BAABAncAAQIDEQQFITEGEkFRB2FxEyIygQgUQpGhscEJIzNS8BVictEKFiQ04SXxFxgZGiYnKCkqNTY3 + ODk6Q0RFRkdISUpTVFVWV1hZWmNkZWZnaGlqc3R1dnd4eXqCg4SFhoeIiYqSk5SVlpeYmZqio6Slpqeo + qaqys7S1tre4ubrCw8TFxsfIycrS09TV1tfY2dri4+Tl5ufo6ery8/T19vf4+fr/2gAMAwEAAhEDEQA/ + AP1ZH7UPxEAA/wCEw8bnj/ob9f8A/k+v7U/1Nyj/AKF+G/8ABUP/AJE/llcSZlZf7dX/APBk/wDMX/hq + H4if9Df43/8ACv1//wCT6P8AU3Kf+hfhv/BUP/kQ/wBZcy/6Dq//AIMn/mH/AA1D8RP+hv8AG/8A4V+v + /wDyfR/qblP/AEL8N/4Kh/8AIh/rLmX/AEHV/wDwZP8AzD/hqH4if9Df43/8K/X/AP5Po/1Nyn/oX4b/ + AMFQ/wDkQ/1lzL/oOr/+DJ/5h/w1D8RP+hv8b/8AhX6//wDJ9H+puU/9C/Df+Cof/Ih/rLmX/QdX/wDB + k/8AMT/hqH4if9Df43/8K/X/AP5Po/1Nyn/oX4b/AMFQ/wDkQ/1kzL/oOr/+DJ/5n2R+xz+234zt/iRp + nw+8a6vqXiDwZ4gs9baObXr+bUr/AMPajpmkX2tQ3FlqV2Zb57K7XT2t3tXkaJWkV4whVxJ+beJfAuU4 + Th/FZ/hKEKOMw8qd+SKjGcZzjTs4q0bpyUlJK7s073VvuuBOLMxxGcYfJ8TWlVw1ZTtzu7hKMJTupPWz + UWnFu2qatrf9aP8AhfXgv+zv7U89/sfm+V5207N+M43fSv50P2w/kwr/AEFP42CgAoAKACgAoA9s/Z0/ + s7/hcng3+1vP/s7Ov/avs2PP2f8ACL63t2buP9ZjP+zmvz7xU/5IPPf+4H/qRRPsvD//AJK7KP8AuL/6 + ZqH7/wD/ABaT/hUfb7Ht/wBj7V9p8v8A9Cr+Oz+lz//Z + + + + 214, 17 + + + True + + + True + + + True + + + True + + + True + + + 410, 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== + + + + 512, 17 + + + 314, 17 + + + 46 + + \ No newline at end of file diff --git a/ArinWarev1/Forms_Input/Frm_YK.vb b/ArinWarev1/Forms_Input/Frm_YK.vb new file mode 100644 index 0000000..c8007fe --- /dev/null +++ b/ArinWarev1/Forms_Input/Frm_YK.vb @@ -0,0 +1,1172 @@ +Public Class Frm_YK + + Dim init As Boolean = False + Dim pcode As String + Dim UserCommin As Boolean = False + Dim SrcDrv As DataRowView + Dim keyUp1 As Boolean = False '//열전도율 사용자가 수정하려할시를 나타냄(110618) + + + Public Sub New(_opentime) + + ' 이 호출은 디자이너에 필요합니다. + InitializeComponent() + OpenTime = _opentime + + ' InitializeComponent() 호출 뒤에 초기화 코드를 추가하십시오. + + End Sub +#Region "data Base 변경여부및 적용방법" + + '''변경된내용을적용한다. + Public Overrides Function AcceptChanged() As Boolean + bs.EndEdit() + Dim BaseDS As DataSet = CType(bs.DataSource, DataSet) + Dim BaseDT As DataTable = BaseDS.Tables(bs.DataMember) + BaseDT.AcceptChanges() + + '// 입력면데이터중에 열관류율을 사용한 데이터 업데이트(131009) + For Each dr As DS.tbl_myounRow In DSET1.tbl_myoun.Select("열관류율2 <> '0'") + Dim ykcode As String = dr.열관류율2 + Dim ykrow() As DS.tbl_ykRow = DSET1.tbl_yk.Select("code='" + ykcode + "'") + If ykrow.Length = 1 Then + dr.투과율 = ykrow(0).투과율 + End If + dr.AcceptChanges() + Next + + Update_열관류율_140409() + + Return True + End Function + + '''변경된내용이있다면 취소한다. + Public Overrides Function RejectChanged() As Boolean + Dim BaseDS As DataSet = CType(bs.DataSource, DataSet) + Dim BaseDT As DataTable = BaseDS.Tables(bs.DataMember) + BaseDT.RejectChanges() + Return True + End Function + + '''데이터에변형이있었는가? + Public Overrides Function HasChanged() As Boolean + bs.EndEdit() + Dim BaseDS As DataSet = CType(bs.DataSource, DataSet) + Dim BaseDT As DataTable = BaseDS.Tables(bs.DataMember) + Dim ChangeDT As DataTable = BaseDT.GetChanges + If Not ChangeDT Is Nothing Then Return True + Return False + End Function + + '''기본데이터테이블을 반환합니다. + Public Function DT() As DataTable + Dim BaseDS As DataSet = CType(bs.DataSource, DataSet) + Return BaseDS.Tables(bs.DataMember) + End Function + + +#End Region + + Private Sub ColumChange_YK_Detail(ByVal sender As Object, ByVal e As System.Data.DataColumnChangeEventArgs) + Dim oval As String = e.Row(e.Column.ColumnName).ToString + Dim nval As String = e.ProposedValue.ToString + If oval <> nval Then + Dim newdr As DS2.historyRow = DSHistory.history.NewhistoryRow + newdr.time = Now.ToString("yyyy-MM-dd HH:mm:ss") + newdr.tablename = "tbl_yk" + newdr.ovalue = oval + newdr.nvalue = nval + newdr.column = e.Column.ColumnName + newdr.code = e.Row("code").ToString + DSHistory.history.AddhistoryRow(newdr) + DSHistory.history.AcceptChanges() + End If + End Sub + + Private Sub Update_열관류율_140409() + Me.Validate() + Me.dv.EndEdit() + Me.arindv1.EndEdit() + Me.bs.EndEdit() + + '//열관류율이 링크된 모든면의 건축부위 데이터를 열관류율 화면의 건축부위 데이터로 갱신 + For Each Drow As DS.tbl_myounRow In DSET1.tbl_myoun + + If Drow.RowState = DataRowState.Deleted OrElse Drow.RowState = DataRowState.Detached Then Continue For + +#If DEBUG Then + If Drow.code = "0009" Then + MsgBox("test") + End If +#End If + + If Drow.열관류율2 <> "0" Then + Try '==========================================2014.04.17 열관류율 삭제시 코드번호가 남아 오류 발생하는 현상을 try 안으로 넣음 + Dim Dr As DS.tbl_ykRow = DSET1.tbl_yk.Select("code='" & Drow.열관류율2.ToString & "'")(0) + Drow.건축부위방식 = Dr.면형태 '// 링크된 열관류율에서 면형태를 가져옴.. + Select Case Dr.면형태 + Case "외벽(벽체)", "0" + Drow.건축부위방식 = "외벽" + Case "외벽(지붕)", "0001" + Drow.건축부위방식 = "외벽" + 'Drow.방위 = "수평" + Case "외벽(바닥)", "0002" + Drow.건축부위방식 = "외벽" + 'Drow.방위 = "일사없음" + Case "내벽(벽체)", "0003", "지중벽", "0009" + Drow.건축부위방식 = "내벽" + Drow.방위 = "일사없음" + Case "내벽(지붕)", "0004" + Drow.건축부위방식 = "내벽" + Drow.방위 = "일사없음" + Case "내벽(바닥)", "0005" + Drow.건축부위방식 = "내벽" + Drow.방위 = "일사없음" + Case "간벽", "0006" + Drow.건축부위방식 = "간벽" + Drow.방위 = "일사없음" + Case "외부창", "0007" + Drow.건축부위방식 = "외부창" + 'Drow.투과율 = Dr.일사에너지투과율 + Case "내부창", "0008" + Drow.건축부위방식 = "내부창" + 'Drow.투과율 = Dr.일사에너지투과율 + Case Else + MsgBox("모르는값 " & Dr("면형태").ToString & "/" & Dr.면형태) + End Select + + Catch ex As Exception + + End Try + End If + + Next + + End Sub + + Private Sub Frm_V20091231_YK_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing + Me.bs.EndEdit() + Me.bs_detail.EndEdit() + + Me.Update_열관류율_140409() + End Sub + Private Sub MdiMain_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load + + Me.Show() + My.Application.DoEvents() + ' Work_msg_timer("잠시만 기다려주세요") + + 'MdiMain.Toggle_Menu_Color(MdiMain.E_MenuIdx.열관류율) + 'CEnergy.ARINCLASS.SaveLoad_FrmSetting(Me) + '//프로필 관련 + '//공유데이터셋에 연결한다. + + Me.bs.DataSource = DSET1 + Me.bs_detail.DataSource = DSET1 + Me.bs_gubun.DataSource = DSET1 + Me.bS_재료.DataSource = DSET1 + + bS_재료.Filter = "gubun='1089'" + bS_재료.Sort = "code" + + '//냉방분배 + AddHandler DSET1.tbl_yk.TableNewRow, AddressOf addNewDataRow_YK + AddHandler DSET1.tbl_ykdetail.TableNewRow, AddressOf AddNewDataRow_YK_Detail + AddHandler DSET1.tbl_ykdetail.ColumnChanging, AddressOf ColumChange_YK_Detail + + '//모든컨트롤의 cTrl_enter 를 추가합니다 + BindProperty(CType(Me.SplitContainer1.Panel2.Controls, Control.ControlCollection)) + + '//콤보컨트롤 바인딩 + Binding_Zone() + + + Me.bs.Filter = "code <> '0'" + If Me.Parameter <> "" Then Me.bs.Filter &= " and 면형태 ='" + Me.Parameter + "'" + ' Me.lb_grpname.Text = Get_CName("1088", Me.Parameter) + + Try + Me.bs.Position = CEnergy.ARINCLASS.Read_LastPos_Frm(Me) + Catch ex As Exception + Me.bs.MoveFirst() + End Try + + refresh_Image() + Me.init = True + + 'Try '//열전도갱신 + + Me.cmb_열전도율.Items.Clear() + Dim 재료명 As String = "" + If Me.bs_detail.Count > 0 Then '//현재선택된 개체의 열전도율을 가져온다. + Dim Drv As DataRowView = Me.bs_detail.Current + 재료명 = Drv("설명").ToString + Else + If Me.cmb_재료.Items.Count > 0 AndAlso Me.cmb_재료.SelectedIndex >= 0 Then 재료명 = CType(Me.cmb_재료.Items(Me.cmb_재료.SelectedIndex), DataRowView)("name").ToString + End If + Dim Filter = "gubun='1089' and name='" & 재료명 & "'" + Dim Drow() As DS.tbl_commonRow = DSET1.tbl_common.Select(Filter) + Try + If Drow.GetUpperBound(0) <> -1 Then Me.cmb_열전도율.Items.Add(Drow(0).valn1) + Catch ex As Exception + + End Try + + + + 'Me.cmb_열전도율.Items.Clear() + 'Dim Fil As String = "gubun='1089' and name='" & Me.cmb_재료.Text & "'" + 'Try + ' If Me.cmb_재료.Text <> "" Then + ' Dim Dr As DS.tbl_commonRow = DSET1.tbl_common.Select(Fil)(0) + ' 'Dim Dr As DS.tbl_commonRow = DSET1.tbl_common.Select("gubun='1089' and name='" & Me.cmb_재료.Text & "'")(0) + ' If Me.cmb_재료.Text.IndexOf("공기층") = -1 Then + ' Me.cmb_열전도율.Items.Add(Dr.valn1) + ' End If + ' End If + 'Catch ex As Exception + ' 'MsgBox("1. " & ex.Message.ToString) + 'End Try + + AddDebug("▲ Form Load") + + End Sub +#Region "Control_Enter" + Private Sub BindProperty(ByVal Ctl As Control.ControlCollection) + For Each C As Control In Ctl + If C.Controls.Count > 1 Then + BindProperty(C.Controls) + Else + If C.GetType.ToString.ToUpper.IndexOf("MYTB") <> -1 Then + AddHandler CType(C, MyTb).KeyDown, AddressOf TextBOx_KeyDown + ElseIf C.GetType.ToString.ToUpper.IndexOf("MYCMB") <> -1 Then + AddHandler CType(C, MyCmb).KeyDown, AddressOf Cmd_KeyDown + End If + End If + Next + End Sub + + Private Sub TextBOx_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) + If e.KeyCode = Keys.Enter AndAlso e.Control Then + Try + Dim Field As String = (CType(sender, MyTb).DataBindings.Item("text").BindingMemberInfo.BindingField) + For Each Dr As DataRow In DT.Select(Me.bs.Filter, "") + Dr(Field) = CType(sender, MyTb).Text + Next + Work_msg_timer("모든값이 변경되었습니다", 25) + Catch ex As Exception + + End Try + + End If + End Sub + Private Sub Cmd_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) + If e.KeyCode = Keys.Enter AndAlso e.Control Then + Try + Dim Field As String = (CType(sender, MyCmb).DataBindings.Item("selectedvalue").BindingMemberInfo.BindingField) + For Each Dr As DataRow In DT.Select(Me.bs.Filter, "") + Dr(Field) = CType(sender, MyCmb).SelectedValue + Next + Work_msg_timer("모든값이 변경되었습니다", 25) + Catch ex As Exception + + End Try + End If + End Sub +#End Region + +#Region "기본" + Private Sub MdiMain_FormClosed(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosedEventArgs) Handles Me.FormClosed + CEnergy.ARINCLASS.SaveLoad_FrmSetting(Me, Me.bs.Position, True) + End Sub + Private Function GetMaxCode(ByVal dt As DataTable) As String + + Dim Drow() As DataRow = dt.Select("", "code desc") + If Drow.GetUpperBound(0) = -1 Then Return "0001" '//데이터가 없을경위 최소 0001으로 반환 2011-05-06(a) + + '//데이터가있을경우 해당 데이터+1로 반환 + Return Format(CInt(Drow(0)("code")) + 1, "0000") + + 'Try + ' Dim Dr As DataRow = dt.Select("", "code desc")(0) + ' Dim Dr_ykdetail As DataRow = dt_ykdetail.Select("", "code desc")(0) + ' If Dr("code") >= Dr_ykdetail("code") Then + + ' Else + ' Return Format(CInt(Dr_ykdetail("code")) + 1, "0000") + ' End If + + 'Catch ex As Exception + ' MsgBox(ex.Message.ToString) + ' Return "0001" + 'End Try + End Function + Private Sub Cmb_DeleteVal(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) + If e.KeyCode = Keys.Delete Then + CType(sender, ComboBox).SelectedValue = "" + End If + End Sub + Private Sub addNewDataRow_YK(ByVal sender As Object, ByVal e As System.Data.DataTableNewRowEventArgs) + e.Row.Item("code") = GetMaxCode(DSET1.tbl_yk) + e.Row.Item("설명") = "신규데이터" + End Sub + Private Sub AddNewDataRow_YK_Detail(ByVal sender As Object, ByVal e As System.Data.DataTableNewRowEventArgs) + + Dim NewCode As String + Try + Dim Dr As DataRow = DSET1.tbl_ykdetail.Select("pcode = '" & Me.pcode & "'", "code desc")(0) + NewCode = Format(CInt(Dr("code")) + 1, "0000") + Catch ex As Exception + NewCode = ("0001") + End Try + + Try + e.Row.Item("pcode") = Me.pcode ' CType(bs.Current, DataRowView)("code") + e.Row.Item("code") = NewCode + ' bs_detail.Position = bs_detail.Count + 'MsgBox(e.Row.Item("code").ToString) + + Catch ex As Exception + MsgBox("부모코드없음 선택다시") + End Try + + End Sub + + Private Sub bt_add_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt_add.Click + If Not EndEdit(Me.bs) Then Return + Me.bs.AddNew() + Me.bs.EndEdit() + INitRow(Me.Controls) + 'ToolStripButton1.PerformClick() '//2011.04.20 열관류율 생성시 세부 레이어를 기본적으로 추가 + End Sub + + + Private Sub bt_Del_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt_Del.Click + 'Dbbase.DelCrow(Me.bs, True) + Del_YKdetail(True) + End Sub + + Private Sub ToolStripButton51_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt_cancel.Click + If Not EndEdit(Me.bs) Then Return + Data_Cancel(DSET1.tbl_profile, Nothing) + End Sub + + Private Sub Binding_Zone() + + Dim bs_형태 As New BindingSource(DSET1, "tbl_common") + bs_형태.Filter = "gubun='1088'" + bs_형태.Sort = "code" + Me.cmb_형태.DataSource = bs_형태 + cmb_형태.DisplayMember = "name" + cmb_형태.ValueMember = "code" + Me.cmb_형태.DataBindings.Add("selectedvalue", Me.bs, "면형태") + AddHandler cmb_형태.KeyDown, AddressOf Cmb_DeleteVal + + 'Me.bS_재료.DataSource = DSET1.tbl_common + bS_재료.Filter = "gubun='1089'" + bS_재료.Sort = "code" + + Me.cmb_재료.DataSource = bS_재료 + cmb_재료.DisplayMember = "name" + cmb_재료.ValueMember = "name" + Me.cmb_재료.DataBindings.Add("text", Me.bs_detail, "설명") + AddHandler cmb_재료.KeyDown, AddressOf Cmb_DeleteVal + 'Me.cmb_재료.Text = "" + + 'Me.bs_gubun.DataSource = DSET1.tbl_common + bs_gubun.Filter = "gubun='1090'" + bs_gubun.Sort = "code" + + 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 + If Me.bs.Position < Me.bs.Count Then Me.bs.Position += 1 + Else + If Me.bs.Position > 0 Then Me.bs.Position -= 1 + End If + Me.Validate() + My.Application.DoEvents() + End Sub +#End Region + + Private Sub bt_Del_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles bt_Del.MouseDown + If e.Button = Windows.Forms.MouseButtons.Right Then + If MsgBox("전체삭제를 하시겠습니까?", MsgBoxStyle.Information Or MsgBoxStyle.OkCancel, "확인") = MsgBoxResult.Ok Then + Dim dR() As DataRow = DSET1.tbl_yk.Select(Me.bs.Filter, "") + For i As Integer = dR.GetUpperBound(0) To 0 Step -1 + dR(i).Delete() + Next + DSET1.tbl_yk.AcceptChanges() + End If + End If + End Sub + + Private Sub dv_DataError(sender As Object, e As System.Windows.Forms.DataGridViewDataErrorEventArgs) Handles dv.DataError + + End Sub + + + Private Sub dv_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles dv.MouseUp + If Prj.UserAuthType = "ADMIN" OrElse Prj.UserAuthType = "BOTH" OrElse Prj.UserAuthType = "BOTH2" OrElse Prj.UserAuthType = "BOTH1" Then '//2011.03.08 추가 + If e.Button = Windows.Forms.MouseButtons.Right Then + Dim Frm_FilterA As New Frm_Filter + Frm_FilterA.ColumTitle = getColCaption(Me.DT) + Frm_FilterA.ColumList = getColName(Me.DT) + Frm_FilterA.Colorlist = "" + Frm_FilterA.Default_Filter = "code <> '0'" + Frm_FilterA.Numfield = "" '//20100618 Color 리스트처럼 , 구분해서 필드들을 모두 넣으세요.(=, >= 등을 사용하기 위해서는 해당 항목을 추가 요망) + If Frm_FilterA.ShowDialog <> Windows.Forms.DialogResult.OK Then Return '//창떳을떄 확인아ㅣ고 취소눌르면 다음을 수행하지않는다는거에요. + Dim Filter As String = Frm_FilterA.tb_filter.Text '//값은 아까 그 텍박에 잇구요. + Try + Me.bs.Filter = Filter + + '//바꾸기값이 있으면 변경 20100618 + If Frm_FilterA.cmb_fieldc.SelectedIndex >= 0 AndAlso Frm_FilterA.cmb_fieldc.Text.ToLower <> "code" AndAlso _ + Frm_FilterA.tb_valuec.Text <> "" Then + Dim Drow() As DataRow = Me.DT.Select(Filter) + For Each Dr As DataRow In Drow + Dr(Frm_FilterA.cmb_fieldc.Text) = Frm_FilterA.tb_valuec.Text + Next + MsgBox("바꾸기 완료", MsgBoxStyle.Information, "확인") + End If + + Catch ex As Exception + Me.bs.Filter = "" + 'MsgBox("2. " & ex.Message.ToString) + End Try + End If + End If + + End Sub + + Private Sub dv_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles dv.KeyDown + '//여기보시면 alt+d 누르면 한줄을 경고없이(falsE)삭제하도록 햇어요. + If Prj.UserAuthType = "ADMIN" OrElse Prj.UserAuthType = "BOTH" OrElse Prj.UserAuthType = "BOTH2" OrElse Prj.UserAuthType = "BOTH1" Then '//2011.03.08 추가 + Select Case e.KeyCode + Case Keys.D + If e.Alt Then + 'Dbbase.DelCrow(Me.bs, False) + Del_YKdetail(False) + + End If + Case Keys.C + If e.Control Then + Me.SrcDrv = Me.bs.Current + If Me.SrcDrv Is Nothing Then + MsgBox("저장할 ROW가 없습니다", MsgBoxStyle.Information, "확인") + Return + End If + ' My.Computer.Clipboard.SetData("ZDATA", Drv) + End If + Case Keys.V + If e.Control Then + If Me.SrcDrv Is Nothing Then Return + Me.bt_add.PerformClick() '//신규추가 + Dim NewDrv As DataRowView = Me.bs.Current + + For Each C As DataColumn In Me.DT.Columns + If C.ColumnName.ToUpper = "CODE" Then + ElseIf C.ColumnName.ToUpper = "설명" Then + NewDrv(C.ColumnName) = SrcDrv(C.ColumnName) & "#1" + Else + NewDrv(C.ColumnName) = SrcDrv(C.ColumnName) + End If + Next + + '//하위데이터복제 + Dim src_pcode As String = SrcDrv("code").ToString + Dim new_pcode As String = NewDrv("code").ToString + + + For Each Drow2 As DS.tbl_ykdetailRow In DSET1.tbl_ykdetail.Select("pcode='" & src_pcode & "'") + Dim Newrow As DS.tbl_ykdetailRow = DSET1.tbl_ykdetail.Newtbl_ykdetailRow + For Each C As DataColumn In DSET1.tbl_ykdetail.Columns + Newrow(C.ColumnName) = Drow2(C.ColumnName) + Next + Newrow.pcode = new_pcode + DSET1.tbl_ykdetail.Addtbl_ykdetailRow(Newrow) + Next + + Me.bs.EndEdit() + Me.bs_detail.EndEdit() + Me.refresh_Image() + + bs.MoveLast() + End If + End Select + End If + End Sub + + Private Sub bs_CurrentChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bs.CurrentChanged + Try + pcode = CType(bs.Current, DataRowView)("code").ToString + Me.bs_detail.Filter = "pcode='" & pcode & "'" + DSET1.tbl_ykdetail.AcceptChanges() + Me.refresh_Image() + + Me.lb_code.Text = "[" + pcode + "]" + + My.Application.DoEvents() + + '//해당데이터의 열관류율이상여부를 체크한다. + For Each dr As DS.tbl_ykdetailRow In DSET1.tbl_ykdetail.Select(Me.bs_detail.Filter) + Dim CUrvalue As String = dr.열전도율 + If CUrvalue <> "" Then + Dim Drs() As DS.tbl_commonRow = DSET1.tbl_common.Select("gubun='1089' and name='" & dr.설명 & "' and valn1='" & CUrvalue.Trim & "'") + If Drs.GetUpperBound(0) = -1 Then '//일치하는것이 없다면 + dr.커스텀 = "Y" + Else + dr.커스텀 = "N" + End If + End If + Next + DS.tbl_ykdetail.AcceptChanges() + My.Application.DoEvents() + + Catch ex As Exception + 'MsgBox("3. " & ex.Message.ToString) + End Try + Me.bs.EndEdit() + End Sub + + Private Sub refresh_Image() + ' MsgBox(Me.UserControl11.Vertical) + + Dim width As Decimal = 0 '//뭘고치던 여기 함수가 실행되므로 이곳에서 뭔가 작업하시는게 좋을것 같구요..어떤것을들 더하시려구요? + Dim R_value As Decimal = 0 + + For Each Dr As DS.tbl_ykdetailRow In DSET1.tbl_ykdetail.Select(Me.bs_detail.Filter, "") '//세부내역중 두께를 합치는 루틴입니다. + 'Try + If Dr.설명 = "공기층" Then + Dr.열전도율 = "" + If TOSG(Dr.두께) > 10.0 Then + Dr.열저항 = TOST(0.086) + R_value += 0.086 + Else + Dr.열저항 = TOST(TOSG(Dr.두께) * 0.0086) + R_value = R_value + TOSG(Dr.두께) * 0.0086 + End If + Else '//여기아래 추가하신거에요? + + If Dr.설명.IndexOf("열전달저항") <> -1 Then + Dr.두께 = "" + Dr.열전도율 = "" + Select Case Dr.설명 + Case "실내열전달저항(벽체)" + Dr.열저항 = TOST(0.11) + R_value += 0.11 + Case "실외열전달저항(벽체,간접)" + Dr.열저항 = TOST(0.11) + R_value += 0.11 + Case "실외열전달저항(벽체,직접)" + Dr.열저항 = TOST(0.043) + R_value += 0.043 + Case "실내열전달저항(바닥)" + Dr.열저항 = TOST(0.086) + R_value += 0.086 + Case "실외열전달저항(바닥,간접)" + Dr.열저항 = TOST(0.15) + R_value += 0.15 + Case "실외열전달저항(바닥,직접)" + Dr.열저항 = TOST(0.043) + R_value += 0.043 + Case "실내열전달저항(지붕)" + Dr.열저항 = TOST(0.086) + R_value += 0.086 + Case "실외열전달저항(지붕,간접)" + Dr.열저항 = TOST(0.086) + R_value += 0.086 + Case "실외열전달저항(지붕,직접)" + Dr.열저항 = TOST(0.043) + R_value += 0.043 + + End Select + + Else + If Dr.열전도율 <> "" AndAlso TOSG(Dr.열전도율) <> 0 Then + Dr.열저항 = TOSG(Math.Round(TOSG(Dr.두께) / 1000 / TOSG(Dr.열전도율), 4)).ToString + R_value += TOSG(Dr.열저항) '//여부분에서는 나올수잇겟군요.?예 + End If + + End If + + End If + + + If Dr.설명.IndexOf("열전달저항") = -1 Then + width += TOSG(Dr.두께) + End If + Next + + 'Try + ' If TOSG(Me.NTb_창호열관류율.Text) = 0.0F OrElse TOSG(Me.tb_발코니열관류율.Text) = 0.0F Then + ' Me.열관류율NTb.Text = "" + ' Me.tb_투과율.Text = "" + ' Else + ' If cmb_형태.Text = "외부창" OrElse cmb_형태.Text = "내부창" Then + ' If Me.chk_발코니여부.Checked Then + ' Me.열관류율NTb.Text = Math.Round((1 / ((1 / TOSG(Me.NTb_창호열관류율.Text)) + (1 / TOSG(Me.tb_발코니열관류율.Text)) * 0.5)), 3) + ' Me.tb_투과율.Text = Math.Round(TOSG(tb_발코니투과율.Text) * TOSG(NTb_일사에너지투과율.Text), 3) + ' Else + ' Me.열관류율NTb.Text = Me.NTb_창호열관류율.Text + ' Me.tb_투과율.Text = NTb_일사에너지투과율.Text + ' End If + ' Else + ' Me.열관류율NTb.Text = CSng(Math.Round(1 / R_value, 3)).ToString + ' Me.tb_투과율.Text = "" + ' End If + ' End If + 'Catch ex As Exception + ' Me.열관류율NTb.Text = "" + ' Me.tb_투과율.Text = "" + 'End Try + + Try + + If cmb_형태.Text = "외부창" OrElse cmb_형태.Text = "내부창" Then + If Me.chk_발코니여부.Checked Then + Me.열관류율NTb.Text = Math.Round((1 / ((1 / TOSG(Me.NTb_창호열관류율.Text)) + (1 / TOSG(Me.tb_발코니열관류율.Text)) * 0.5)), 3) + Me.tb_투과율.Text = Math.Round(TOSG(tb_발코니투과율.Text) * TOSG(NTb_일사에너지투과율.Text), 3) + Else + Me.열관류율NTb.Text = Me.NTb_창호열관류율.Text + Me.tb_투과율.Text = NTb_일사에너지투과율.Text + End If + Else + Me.열관류율NTb.Text = CSng(Math.Round(1 / R_value, 3)).ToString + Me.tb_투과율.Text = "" + End If + Catch ex As Exception + Me.열관류율NTb.Text = "" + Me.tb_투과율.Text = "" + End Try + + + + + + + + + + ' Me.MyTb1.Text = width.ToString("N2") + Me.UserControl11.MaxSize = width + 'MsgBox(width) + + ' Me.Label1.Text = Me.UserControl11.Width + + '// 0.51 : me.wid = x : ? + + ' Me.UserControl11.Vertical = True + Dim FT(Me.arindv1.RowCount - 1) As YkCtl.SM + For i As Integer = 0 To Me.arindv1.RowCount - 1 + '//아까 열표시해서 검정색 선택해보니 검정은 값이 0 이 나오더라구요 + '//실재로 0값이 근데 표시가안됫어요 그러므로 + + Try + FT(i).BColor = Color.FromArgb(Me.arindv1.Rows(i).Cells("후경색").Value) + + Catch ex As Exception + FT(i).BColor = Color.FromName("white") + 'MsgBox("5. " & ex.Message.ToString) + End Try + 'Try + ' If Me.arindv1.Rows(i).Cells("전경색").Value = "0" Then + ' FT(i).FColor = Color.Black + ' Else + ' FT(i).FColor = Color.FromArgb(Me.arindv1.Rows(i).Cells("전경색").Value) + ' End If + + 'Catch ex As Exception + ' FT(i).FColor = Color.FromName("black") + ' 'MsgBox("6. " & ex.Message.ToString) + 'End Try + ' FT(i).Style= + Try + FT(i).Style = Val(Me.arindv1.Rows(i).Cells("구분").Value) + Catch ex As Exception + FT(i).Style = Drawing2D.HatchStyle.Cross + 'MsgBox("7. " & ex.Message.ToString) + End Try + + + + Try + If Me.arindv1.Rows(i).Cells("두께").Value <> "" Then + FT(i).Width = Me.arindv1.Rows(i).Cells("두께").Value + End If + Catch ex As Exception + 'MsgBox("8. " & ex.Message.ToString) + End Try + + + Next + Me.UserControl11.M1FillType = FT + + End Sub + + + + Private Sub arindv1_CellFormatting(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewCellFormattingEventArgs) Handles arindv1.CellFormatting + Try + Me.arindv1.Rows(e.RowIndex).DefaultCellStyle.BackColor = Color.FromArgb(Me.arindv1.Rows(e.RowIndex).Cells("후경색").Value) + ' Me.arindv1.Rows(e.RowIndex).DefaultCellStyle.ForeColor = Color.FromName(Me.arindv1.Rows(e.RowIndex).Cells("전경색").Value) + Catch ex As Exception + Me.arindv1.Rows(e.RowIndex).DefaultCellStyle.BackColor = Color.White + 'MsgBox("9. " & ex.Message.ToString) + End Try + + Try + If Me.arindv1.Rows(e.RowIndex).Cells("커스텀").Value = "Y" Then + Me.arindv1.Rows(e.RowIndex).DefaultCellStyle.ForeColor = Color.Magenta + Else + Me.arindv1.Rows(e.RowIndex).DefaultCellStyle.ForeColor = Color.Black + End If + Catch ex As Exception + Me.arindv1.Rows(e.RowIndex).Cells("커스텀").Value = "N" + End Try + + Me.bs_detail.EndEdit() + + End Sub + + + Private Sub Arindv1_CellValidated(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles arindv1.CellValidated + refresh_Image() + End Sub + + Private Sub Arindv1_DataError(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewDataErrorEventArgs) + + End Sub + + Private Sub Arindv1_RowValidated(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) + refresh_Image() + End Sub + + Private Sub ToolStripButton1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btj_add.Click + + '//재료쪽 추가 + + Dim newdr As DS.tbl_ykdetailRow = DSET1.tbl_ykdetail.Newtbl_ykdetailRow + DSET1.tbl_ykdetail.Addtbl_ykdetailRow(newdr) + EndEdit(bs_detail) + bs_detail.Position = bs_detail.Count - 1 + + arindv1.Rows(bs_detail.Count - 1).Cells(2).Selected = True + + + + 'Try + 'Me.bs_detail.AddNew() + 'Me.bs_detail.EndEdit() + 'refresh_Image() + 'Catch ex As Exception + ' MsgBox(ex.Message.ToString) + + ' MsgBox("상위코드 선택하세요", MsgBoxStyle.Critical, "확인") + 'End Try + + End Sub + + Private Sub ToolStripButton2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btj_del.Click + If Me.bs_detail.Count > 0 Then + Me.bs_detail.RemoveCurrent() + Me.bs_detail.EndEdit() + End If + End Sub + + Private Sub arindv1_CellContentClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles arindv1.CellContentClick + Select Case e.ColumnIndex + Case 8 '//전경 + Dim Cd As New ColorDialog + Cd.Color = Color.FromName(Me.arindv1.Rows(e.RowIndex).Cells("전경색").Value) + If Cd.ShowDialog <> Windows.Forms.DialogResult.OK Then Return + Me.arindv1.Rows(e.RowIndex).Cells("전경색").Value = Cd.Color.ToArgb + Me.btn_전경색.BackColor = Cd.Color + Me.bs_detail.EndEdit() + refresh_Image() + Case 9 '//배경 + Dim Cd As New ColorDialog + Cd.Color = Color.FromName(Me.arindv1.Rows(e.RowIndex).Cells("후경색").Value) + If Cd.ShowDialog <> Windows.Forms.DialogResult.OK Then Return + Me.arindv1.Rows(e.RowIndex).Cells("후경색").Value = Cd.Color.ToArgb + Me.btn_후경색.BackColor = Cd.Color + Me.bs_detail.EndEdit() + refresh_Image() + End Select + End Sub + + Private Sub arindv1_DataError1(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewDataErrorEventArgs) Handles arindv1.DataError + + End Sub + + Private Sub cmb_형태_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmb_형태.SelectedIndexChanged, MyCmb1.SelectedIndexChanged + If cmb_형태.Text = "외벽(지붕)" OrElse cmb_형태.Text = "외벽(바닥)" OrElse cmb_형태.Text = "내벽(지붕)" OrElse cmb_형태.Text = "내벽(바닥)" Then + Me.UserControl11.Vertical = False + Else + Me.UserControl11.Vertical = True + End If + Me.refresh_Image() + + If cmb_형태.Text = "외부창" OrElse cmb_형태.Text = "내부창" Then + Me.NTb_창호열관류율.Visible = True + Me.NTb_일사에너지투과율.Visible = True + Me.NTb_창호세부설명.Visible = True + Me.lbl_창호열관류율.Enabled = True + Me.lbl_일사에너지투과율.Enabled = True + Me.lbl_창호세부설명.Enabled = True + Me.chk_발코니여부.Enabled = True + Me.tb_투과율.Enabled = True + Me.Label4.Enabled = True + Me.tb_발코니투과율.Visible = True + Me.tb_발코니열관류율.Visible = True + + Else + Me.NTb_창호열관류율.Visible = False + Me.NTb_일사에너지투과율.Visible = False + Me.NTb_창호세부설명.Visible = False + Me.lbl_창호열관류율.Enabled = False + Me.lbl_일사에너지투과율.Enabled = False + Me.lbl_창호세부설명.Enabled = False + Me.chk_발코니여부.Enabled = False + Me.tb_투과율.Enabled = False + Me.Label4.Enabled = False + Me.tb_발코니투과율.Visible = False + Me.tb_발코니열관류율.Visible = False + End If + + End Sub + + Private Sub ToolStripButton3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btj_showimg.Click + Dim Drv As DataRowView = Me.bs_detail.Current + Dim 전경 As String = "" + Dim 후경 As String = "" + Try + 전경 = Drv("전경색").ToString + Catch ex As Exception + + End Try + + Try + 후경 = Drv("후경색").ToString + Catch ex As Exception + + End Try + Dim A As New Frm_DisplayGubun(전경, 후경) + A.Show() + End Sub + + Private Sub btn_전경색_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_전경색.Click + Try + Dim Cd As New ColorDialog + If Cd.ShowDialog <> Windows.Forms.DialogResult.OK Then Return + Me.btn_전경색.BackColor = Cd.Color + + Dim Drv As DataRowView = Me.bs_detail.Current + Drv("전경색") = Cd.Color.ToArgb + + Catch ex As Exception + Me.btn_전경색.BackColor = Color.White + 'MsgBox("14. " & ex.Message.ToString) + End Try + Me.bs_detail.EndEdit() + Me.refresh_Image() + + End Sub + + Private Sub cmb_재료_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmb_재료.SelectedIndexChanged + + cmb_재료_Changed() + + End Sub + + Private Sub btn_후경색_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_후경색.Click + + Try + Dim Cd As New ColorDialog + + If Cd.ShowDialog <> Windows.Forms.DialogResult.OK Then Return + Me.btn_후경색.BackColor = Cd.Color + + Dim Drv As DataRowView = Me.bs_detail.Current + Drv("후경색") = Cd.Color.ToArgb + + Catch ex As Exception + Me.btn_후경색.BackColor = Color.White + 'MsgBox("18. " & ex.Message.ToString) + End Try + Me.bs_detail.EndEdit() + Me.refresh_Image() + + End Sub + + Private Sub cmb_열전도율_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmb_열전도율.SelectedIndexChanged + If Not init Then Return + Dim Drv As DataRowView = Me.bs_detail.Current + If Drv Is Nothing Then Return + Drv("커스텀") = "N" + Drv("열전도율") = Me.cmb_열전도율.Items(Me.cmb_열전도율.SelectedIndex) + Me.bs_detail.EndEdit() + Me.refresh_Image() + End Sub + + 'Private Sub cmb_열전도율_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles cmb_열전도율.TextChanged + ' Me.bs_detail.EndEdit() + ' Me.refresh_Image() + + ' 'Try + ' ' If Me.cmb_열전도율.SelectedIndex = -1 Then + ' ' Me.arindv1.CurrentRow.DefaultCellStyle.ForeColor = Color.FromArgb(Color.Red.ToArgb) + ' ' Else + ' ' Me.arindv1.CurrentRow.DefaultCellStyle.ForeColor = Color.FromArgb(Color.Black.ToArgb) + ' ' End If + ' 'Catch ex As Exception + ' ' MsgBox(ex.Message.ToString) + ' 'End Try + + 'End Sub + + Private Sub cmb_재료_SelectionChangeCommitted(ByVal sender As Object, ByVal e As System.EventArgs) Handles cmb_재료.SelectionChangeCommitted + If Not init Then Return + Me.UserCommin = True + End Sub + + Private Sub NTb_창호열관류율_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NTb_창호열관류율.TextChanged + If Not init Then Return + If cmb_형태.Text = "외부창" OrElse cmb_형태.Text = "내부창" Then + Me.열관류율NTb.Text = Me.NTb_창호열관류율.Text + End If + End Sub + + Private Sub Del_YKdetail(ByVal prompt As Boolean) + If prompt Then + If MsgBox("선택된 줄을 삭제하시겠습니까?", MsgBoxStyle.OkCancel Or MsgBoxStyle.Information, "삭제확인") <> MsgBoxResult.Ok Then Return + End If + Dim Drv As DataRowView = CType(bs.Current, DataRowView) + If Drv Is Nothing Then Return + + '//버그수정 140417 제거 부모코드가 삭제되어야하는데.. 자식코드매칭 오류 ( code -> pcode 로변경) + Dim DR() As DataRow = DSET1.tbl_ykdetail.Select("code <> '0' and pcode='" & Drv("code").ToString & "'") + If DR.GetUpperBound(0) <> -1 Then + For i As Integer = DR.GetUpperBound(0) To 0 Step -1 + DR(i).Delete() + Next + End If + Me.bs.RemoveCurrent() + + End Sub + + Private Sub cmb_열전도율_KeyUp(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles cmb_열전도율.KeyUp + Me.keyUp1 = True + If Not init Then Return + 'If e.KeyCode = Keys.Enter Then + Me.bs_detail.EndEdit() + Dim CUrvalue As String = Me.cmb_열전도율.Text + Dim Find As Boolean = False + For i As Integer = 0 To Me.cmb_열전도율.Items.Count - 1 + If Me.cmb_열전도율.Items(i).ToString = CUrvalue Then Find = True + Next + Dim Drv As DataRowView = Me.bs_detail.Current + If Drv Is Nothing Then Return + If Find = False Then '//찾지못하였다면 + Drv("커스텀") = "Y" + Else + Drv("커스텀") = "N" + End If + Me.refresh_Image() + Me.keyUp1 = False + 'End If + End Sub + + Private Sub bs_detail_CurrentChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bs_detail.CurrentChanged + If Not init Then Return + Dim Drv As DataRowView = CType(Me.bs_detail.Current, DataRowView) + If Drv Is Nothing Then Return '//선택된아이템이없으면 빠져나감 + Try + Me.btn_전경색.BackColor = Color.FromArgb(Drv("전경색").ToString) + Me.btn_후경색.BackColor = Color.FromArgb(Drv("후경색").ToString) + Catch ex As Exception + Me.btn_전경색.BackColor = Color.White + Me.btn_후경색.BackColor = Color.White + 'MsgBox("12. " & ex.Message.ToString) + End Try + + + '//열전도율목록을 갱신 + Me.cmb_열전도율.Items.Clear() + If Me.cmb_재료.Text <> "" Then + Dim Fil As String = "gubun='1089' and name='" & Me.cmb_재료.Text & "'" + Dim Drow() As DS.tbl_commonRow = DSET1.tbl_common.Select(Fil) + Try + If Drow.GetUpperBound(0) = 0 Then Me.cmb_열전도율.Items.Add(Drow(0).valn1) + Catch ex As Exception + + End Try + End If + + '//현재선택된 열전도율이 비정상(*?) 체크 + Dim CUrvalue As String = Drv("열전도율").ToString + If CUrvalue <> "" Then + Dim Dr() As DS.tbl_commonRow = DSET1.tbl_common.Select("gubun='1089' and name='" & Me.cmb_재료.Text & "' and valn1='" & CUrvalue.Trim & "'") + If Dr.GetUpperBound(0) = -1 Then '//일치하는것이 없다면 + Drv("커스텀") = "Y" + Else + Drv("커스텀") = "N" + End If + End If + + + Me.bs_detail.EndEdit() + Me.arindv1.Refresh() + Me.refresh_Image() + End Sub + + + Private Sub cmb_재료_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles cmb_재료.TextChanged + cmb_재료_Changed() + End Sub + + Private Sub cmb_재료_Changed() + If Not init Then Return + If Me.bs_detail.Count < 1 Then Return '// ep데이터가없을경우 무시 + If Me.cmb_재료.SelectedIndex < 0 Then Return + + Dim 재료코드 As String = "" + + '//선택된재료명 + Dim 재료명 As String = CType(Me.cmb_재료.Items(Me.cmb_재료.SelectedIndex), DataRowView)("name") + + If UserCommin = False Then + 'UserCommin = True + Return + End If + + '//해당열전도율가져오기 + Try + Dim Dr As DS.tbl_commonRow = DSET1.tbl_common.Select(bS_재료.Filter & " and name='" & 재료명 & "'")(0) + 재료코드 = Dr.code + Me.cmb_열전도율.Items.Clear() + Try '// 20110210 Try문 추가 (열전달저항 관련 Null 값에 의한 재료코드에러수정) + Me.cmb_열전도율.Items.Add(Dr.valn1) + Me.cmb_열전도율.Text = Dr.valn1 + Catch ex As Exception + Dim Drv As DataRowView = CType(Me.bs_detail.Current, DataRowView) + Drv("커스텀") = "N" + End Try + + 'Me.tb_열전도.Text = Dr.valn1 + ' MsgBox(Dr.valn1) + + Catch ex As Exception + 'MsgBox(ex.Message.ToString) + 'MsgBox("15. " & ex.Message.ToString) + End Try + + '//색및 패턴명 가져오기 + Dim DetailDrv As DataRowView = Me.bs_detail.Current + DetailDrv("설명") = 재료명 + Dim Er As Boolean = False + + Dim Dr2() As DS.tbl_commonRow = DSET1.tbl_common.Select("gubun='1090' and code='" & 재료코드 & "'") + If Dr2.GetUpperBound(0) = -1 Then + DetailDrv("전경색") = Color.Blue.ToArgb + DetailDrv("후경색") = Color.White.ToArgb '//디비에 해당설ㅈㅇ이 없을경우 행하는 코드들 + DetailDrv("구분") = "5" + Me.btn_전경색.BackColor = Color.FromArgb(DetailDrv("전경색")) + Me.btn_후경색.BackColor = Color.FromArgb(DetailDrv("후경색")) + Else '//디비에 있을경우 + Try + DetailDrv("전경색") = Dr2(0)("name").ToString.Split(",")(0) + Catch ex As Exception + DetailDrv("전경색") = Color.Black.ToArgb + 'MsgBox("16. " & ex.Message.ToString) + End Try + Try + DetailDrv("후경색") = Dr2(0)("name").ToString.Split(",")(1) + Catch ex As Exception + DetailDrv("후경색") = Color.White.ToArgb + ' MsgBox("17. " & ex.Message.ToString) + End Try + + DetailDrv("구분") = CInt(Dr2(0)("valn1")) + Me.btn_후경색.BackColor = Color.FromArgb(DetailDrv("후경색")) + Me.btn_전경색.BackColor = Color.FromArgb(DetailDrv("전경색")) + End If + + Me.bs_detail.EndEdit() + Me.refresh_Image() + UserCommin = False + + End Sub + + Private Sub bs_detail_CurrentItemChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles bs_detail.CurrentItemChanged + '//2011 06 18 : 아이템이동시 열전도율의 콤보박스가 생성되지않는현상 제거 + + If Not Me.init OrElse Me.keyUp1 Then Return + If Me.cmb_재료.Text.Trim = "" Then Return + If Me.cmb_열전도율.Items.Count = 0 Then Return + + '//해당열전도율가져오기 + Dim Drow() As DS.tbl_commonRow = DSET1.tbl_common.Select(bS_재료.Filter & " and name='" & Me.cmb_재료.Text & "'") + + Dim temp_item As String + Try + temp_item = Me.cmb_열전도율.Items(0) + Catch ex As Exception + temp_item = "" + End Try + + If Drow.GetUpperBound(0) = 0 AndAlso Drow(0).valn1.ToString <> temp_item Then + Me.cmb_열전도율.Items.Clear() + Me.cmb_열전도율.Items.Add(Drow(0).valn1) + End If + + End Sub + + Private Sub CheckBox1_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles chk_발코니여부.CheckedChanged + refresh_Image() + + Me.tb_발코니열관류율.Enabled = chk_발코니여부.Checked + Me.tb_발코니투과율.Enabled = chk_발코니여부.Checked + Me.Label2.Enabled = chk_발코니여부.Checked + Me.Label3.Enabled = chk_발코니여부.Checked + End Sub + + Private Sub tb_발코니열관류율_TextChanged(sender As System.Object, e As System.EventArgs) Handles tb_발코니열관류율.TextChanged, tb_발코니투과율.TextChanged + refresh_Image() + End Sub + + Private Sub chk_발코니여부_EnabledChanged(sender As Object, e As System.EventArgs) Handles chk_발코니여부.EnabledChanged + refresh_Image() + If chk_발코니여부.Enabled = False Then + Me.tb_발코니열관류율.Enabled = chk_발코니여부.Enabled + Me.tb_발코니투과율.Enabled = chk_발코니여부.Enabled + Me.Label2.Enabled = chk_발코니여부.Enabled + Me.Label3.Enabled = chk_발코니여부.Enabled + Else + CheckBox1_CheckedChanged(sender, e) + End If + End Sub + + Private Sub NTb_일사에너지투과율_TextChanged(sender As System.Object, e As System.EventArgs) Handles NTb_일사에너지투과율.TextChanged + refresh_Image() + End Sub + + Private Sub Frm_YK_KeyDown(sender As System.Object, e As System.Windows.Forms.KeyEventArgs) Handles MyBase.KeyDown + Select Case e.KeyCode + Case Keys.F12 + ShowHistory() + End Select + + End Sub + Private Sub ShowHistory() + Dim drv As DataRowView = Me.bs.Current + Dim f As New Frm_History("tbl_yk", drv("code").ToString) + If f.ShowDialog = DialogResult.OK Then + drv(f.colname) = f.val + Me.Validate() + Me.bs.EndEdit() + My.Application.DoEvents() + MsgBox("값이 변경되었습니다", MsgBoxStyle.Information, "확인") + End If + End Sub +End Class diff --git a/ArinWarev1/Forms_Input/Frm_Zone.Designer.vb b/ArinWarev1/Forms_Input/Frm_Zone.Designer.vb new file mode 100644 index 0000000..1864160 --- /dev/null +++ b/ArinWarev1/Forms_Input/Frm_Zone.Designer.vb @@ -0,0 +1,1874 @@ + _ +Partial Class Frm_Zone + Inherits CForm + 'Form은 Dispose를 재정의하여 구성 요소 목록을 정리합니다. + _ + Protected Overrides Sub Dispose(ByVal disposing As Boolean) + Try + If disposing AndAlso components IsNot Nothing Then + components.Dispose() + End If + Finally + MyBase.Dispose(disposing) + End Try + End Sub + + 'Windows Form 디자이너에 필요합니다. + Private components As System.ComponentModel.IContainer + + '참고: 다음 프로시저는 Windows Form 디자이너에 필요합니다. + '수정하려면 Windows Form 디자이너를 사용하십시오. + '코드 편집기를 사용하여 수정하지 마십시오. + _ + Private Sub InitializeComponent() + Me.components = New System.ComponentModel.Container() + Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(Frm_Zone)) + Dim Label16 As System.Windows.Forms.Label + Dim 주말운전방식Label As System.Windows.Forms.Label + Dim 외기부하처리여부Label As System.Windows.Forms.Label + Dim 야간운전방식Label As System.Windows.Forms.Label + Dim 냉난방공조Label As System.Windows.Forms.Label + Dim 침기율Label As System.Windows.Forms.Label + Dim 냉난방방식Label As System.Windows.Forms.Label + Dim 열저장능력Label As System.Windows.Forms.Label + Dim 열교가산치Label As System.Windows.Forms.Label + Dim Label35 As System.Windows.Forms.Label + Dim Label36 As System.Windows.Forms.Label + Dim Label33 As System.Windows.Forms.Label + Dim Label40 As System.Windows.Forms.Label + Dim Label38 As System.Windows.Forms.Label + Dim Label32 As System.Windows.Forms.Label + Dim Label37 As System.Windows.Forms.Label + Dim Label39 As System.Windows.Forms.Label + Dim Label41 As System.Windows.Forms.Label + Dim Label42 As System.Windows.Forms.Label + Dim Label43 As System.Windows.Forms.Label + Dim Label44 As System.Windows.Forms.Label + Dim Label45 As System.Windows.Forms.Label + Dim Label46 As System.Windows.Forms.Label + Dim Label47 As System.Windows.Forms.Label + Dim 순실체적Label As System.Windows.Forms.Label + Dim 천장고Label As System.Windows.Forms.Label + Dim Label1 As System.Windows.Forms.Label + Dim Label2 As System.Windows.Forms.Label + Dim Label11 As System.Windows.Forms.Label + Dim Label10 As System.Windows.Forms.Label + Dim Label7 As System.Windows.Forms.Label + Dim Label6 As System.Windows.Forms.Label + Dim Label8 As System.Windows.Forms.Label + Dim Label9 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 DataGridViewCellStyle1 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Me.bs = New System.Windows.Forms.BindingSource(Me.components) + Me.DS = New Eco2Ar.DS() + Me.ToolTip1 = New System.Windows.Forms.ToolTip(Me.components) + Me.SplitContainer1 = New System.Windows.Forms.SplitContainer() + Me.dv = New CEnergy.arindv() + Me.lb_grpname = New System.Windows.Forms.Label() + Me.bn = New System.Windows.Forms.BindingNavigator(Me.components) + Me.ToolStripLabel1 = New System.Windows.Forms.ToolStripLabel() + Me.bt_add = New System.Windows.Forms.ToolStripButton() + Me.bt_Del = New System.Windows.Forms.ToolStripButton() + Me.bt_copy = New System.Windows.Forms.ToolStripButton() + Me.bt_cancel = New System.Windows.Forms.ToolStripButton() + Me.ToolStripSeparator1 = New System.Windows.Forms.ToolStripSeparator() + Me.lbl_pos = New System.Windows.Forms.ToolStripLabel() + Me.ToolStrip1 = New System.Windows.Forms.ToolStrip() + Me.ToolStripLabel2 = New System.Windows.Forms.ToolStripLabel() + Me.lb_외벽 = New System.Windows.Forms.ToolStripLabel() + Me.ToolStripLabel4 = New System.Windows.Forms.ToolStripLabel() + Me.lb_내벽 = New System.Windows.Forms.ToolStripLabel() + Me.ToolStripLabel6 = New System.Windows.Forms.ToolStripLabel() + Me.lb_외부창 = New System.Windows.Forms.ToolStripLabel() + Me.ToolStripLabel8 = New System.Windows.Forms.ToolStripLabel() + Me.lb_내부창 = New System.Windows.Forms.ToolStripLabel() + Me.ToolStripLabel10 = New System.Windows.Forms.ToolStripLabel() + Me.lb_간벽 = New System.Windows.Forms.ToolStripLabel() + Me.ToolStripLabel3 = New System.Windows.Forms.ToolStripLabel() + Me.lb_면적합 = New System.Windows.Forms.ToolStripLabel() + Me.ToolStripLabel5 = New System.Windows.Forms.ToolStripLabel() + Me.lb_전체존수 = New System.Windows.Forms.ToolStripLabel() + Me.Label17 = New System.Windows.Forms.Label() + Me.Label15 = New System.Windows.Forms.Label() + Me.입력존의수NTb = New Eco2Ar.MyTb() + Me.PictureBox3 = New System.Windows.Forms.PictureBox() + Me.PictureBox1 = New System.Windows.Forms.PictureBox() + Me.GroupBox8 = New System.Windows.Forms.GroupBox() + Me.냉난방공조ComboBox = New Eco2Ar.MyCmb() + Me.외기부하처리여부ComboBox = New Eco2Ar.MyCmb() + Me.야간운전방식ComboBox = New Eco2Ar.MyCmb() + Me.주말운전방식ComboBox = New Eco2Ar.MyCmb() + Me.냉난방열공급시스템ComboBox = New Eco2Ar.MyCmb() + Me.PictureBox8 = New System.Windows.Forms.PictureBox() + Me.GroupBox7 = New System.Windows.Forms.GroupBox() + Me.열교가산치ComboBox = New Eco2Ar.MyCmb() + Me.열저장능력ComboBox = New Eco2Ar.MyCmb() + Me.침기율NTb = New Eco2Ar.MyTb() + Me.cmb_냉난방방식 = New Eco2Ar.MyCmb() + Me.PictureBox7 = New System.Windows.Forms.PictureBox() + Me.GroupBox6 = New System.Windows.Forms.GroupBox() + Me.tb_조명계산치 = New Eco2Ar.MyTb() + Me.tb_점등시간 = New Eco2Ar.MyTb() + Me.tb_조명입력치 = New Eco2Ar.MyTb() + Me.보수율NTb = New Eco2Ar.MyTb() + Me.인공광원ComboBox = New Eco2Ar.MyCmb() + Me.조명방식ComboBox = New Eco2Ar.MyCmb() + Me.조명기기효율NTb = New Eco2Ar.MyTb() + Me.tb_조명률 = New Eco2Ar.MyTb() + Me.PictureBox11 = New System.Windows.Forms.PictureBox() + Me.GroupBox5 = New System.Windows.Forms.GroupBox() + Me.실지수NTb1 = New Eco2Ar.MyTb() + Me.천장고NTB1 = New Eco2Ar.MyTb() + Me.조명부하산출방법ComboBox = New Eco2Ar.MyCmb() + Me.요구조도NTb1 = New Eco2Ar.MyTb() + Me.작업면높이NTb1 = New Eco2Ar.MyTb() + Me.실깊이NTb = New Eco2Ar.MyTb() + Me.실너비NTb = New Eco2Ar.MyTb() + Me.PictureBox6 = New System.Windows.Forms.PictureBox() + Me.GroupBox4 = New System.Windows.Forms.GroupBox() + Me.순실체적NTb = New Eco2Ar.MyTb() + Me.면적NTb = New Eco2Ar.MyTb() + Me.천장고NTb = New Eco2Ar.MyTb() + Me.cmb_profile = New Eco2Ar.MyCmb() + Me.PictureBox5 = New System.Windows.Forms.PictureBox() + Me.GroupBox3 = New System.Windows.Forms.GroupBox() + Me.Label14 = New System.Windows.Forms.Label() + Me.cmb_공조냉방생산 = New Eco2Ar.MyCmb() + Me.cmb_공조난방생산 = New Eco2Ar.MyCmb() + Me.cmb_공조가습생산 = New Eco2Ar.MyCmb() + Me.PictureBox10 = New System.Windows.Forms.PictureBox() + Me.GroupBox2 = New System.Windows.Forms.GroupBox() + Me.Label13 = New System.Windows.Forms.Label() + Me.cmb_열생산지정1 = New Eco2Ar.MyCmb() + Me.cmb_열생산지정3 = New Eco2Ar.MyCmb() + Me.cmb_열생산급탕기기 = New Eco2Ar.MyCmb() + Me.PictureBox9 = New System.Windows.Forms.PictureBox() + Me.난방공급시스템GroupBox = New System.Windows.Forms.GroupBox() + Me.Label12 = New System.Windows.Forms.Label() + Me.냉난방공조처리시스템ComboBox = New Eco2Ar.MyCmb() + Me.냉난방열공급시스템수NTb = New Eco2Ar.MyTb() + Me.PictureBox4 = New System.Windows.Forms.PictureBox() + Me.ErrProvider = New System.Windows.Forms.ErrorProvider(Me.components) + Me.sortkey = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.DataGridViewTextBoxColumn1 = New System.Windows.Forms.DataGridViewTextBoxColumn() + Label16 = New System.Windows.Forms.Label() + 주말운전방식Label = New System.Windows.Forms.Label() + 외기부하처리여부Label = New System.Windows.Forms.Label() + 야간운전방식Label = New System.Windows.Forms.Label() + 냉난방공조Label = New System.Windows.Forms.Label() + 침기율Label = New System.Windows.Forms.Label() + 냉난방방식Label = New System.Windows.Forms.Label() + 열저장능력Label = New System.Windows.Forms.Label() + 열교가산치Label = New System.Windows.Forms.Label() + Label35 = New System.Windows.Forms.Label() + Label36 = New System.Windows.Forms.Label() + Label33 = New System.Windows.Forms.Label() + Label40 = New System.Windows.Forms.Label() + Label38 = New System.Windows.Forms.Label() + Label32 = New System.Windows.Forms.Label() + Label37 = New System.Windows.Forms.Label() + Label39 = New System.Windows.Forms.Label() + Label41 = New System.Windows.Forms.Label() + Label42 = New System.Windows.Forms.Label() + Label43 = New System.Windows.Forms.Label() + Label44 = New System.Windows.Forms.Label() + Label45 = New System.Windows.Forms.Label() + Label46 = New System.Windows.Forms.Label() + Label47 = New System.Windows.Forms.Label() + 순실체적Label = New System.Windows.Forms.Label() + 천장고Label = New System.Windows.Forms.Label() + Label1 = New System.Windows.Forms.Label() + Label2 = New System.Windows.Forms.Label() + Label11 = New System.Windows.Forms.Label() + Label10 = New System.Windows.Forms.Label() + Label7 = New System.Windows.Forms.Label() + Label6 = New System.Windows.Forms.Label() + Label8 = New System.Windows.Forms.Label() + Label9 = New System.Windows.Forms.Label() + Label3 = New System.Windows.Forms.Label() + Label4 = New System.Windows.Forms.Label() + Label5 = New System.Windows.Forms.Label() + CType(Me.bs, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.DS, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.SplitContainer1, System.ComponentModel.ISupportInitialize).BeginInit() + Me.SplitContainer1.Panel1.SuspendLayout() + Me.SplitContainer1.Panel2.SuspendLayout() + Me.SplitContainer1.SuspendLayout() + CType(Me.dv, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.bn, System.ComponentModel.ISupportInitialize).BeginInit() + Me.bn.SuspendLayout() + Me.ToolStrip1.SuspendLayout() + CType(Me.PictureBox3, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit() + Me.GroupBox8.SuspendLayout() + CType(Me.PictureBox8, System.ComponentModel.ISupportInitialize).BeginInit() + Me.GroupBox7.SuspendLayout() + CType(Me.PictureBox7, System.ComponentModel.ISupportInitialize).BeginInit() + Me.GroupBox6.SuspendLayout() + CType(Me.PictureBox11, System.ComponentModel.ISupportInitialize).BeginInit() + Me.GroupBox5.SuspendLayout() + CType(Me.PictureBox6, System.ComponentModel.ISupportInitialize).BeginInit() + Me.GroupBox4.SuspendLayout() + CType(Me.PictureBox5, System.ComponentModel.ISupportInitialize).BeginInit() + Me.GroupBox3.SuspendLayout() + CType(Me.PictureBox10, System.ComponentModel.ISupportInitialize).BeginInit() + Me.GroupBox2.SuspendLayout() + CType(Me.PictureBox9, System.ComponentModel.ISupportInitialize).BeginInit() + Me.난방공급시스템GroupBox.SuspendLayout() + CType(Me.PictureBox4, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.ErrProvider, System.ComponentModel.ISupportInitialize).BeginInit() + Me.SuspendLayout() + ' + 'bs + ' + Me.bs.DataMember = "tbl_zone" + Me.bs.DataSource = Me.DS + Me.bs.Filter = "code <> '0'" + Me.bs.Sort = "sortkey,설명" + ' + 'DS + ' + Me.DS.DataSetName = "DS" + Me.DS.SchemaSerializationMode = System.Data.SchemaSerializationMode.IncludeSchema + ' + '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.lb_grpname) + Me.SplitContainer1.Panel1.Controls.Add(Me.bn) + ' + 'SplitContainer1.Panel2 + ' + Me.SplitContainer1.Panel2.AllowDrop = True + Me.SplitContainer1.Panel2.AutoScroll = True + Me.SplitContainer1.Panel2.Controls.Add(Me.ToolStrip1) + Me.SplitContainer1.Panel2.Controls.Add(Me.Label17) + Me.SplitContainer1.Panel2.Controls.Add(Me.Label15) + Me.SplitContainer1.Panel2.Controls.Add(Me.입력존의수NTb) + Me.SplitContainer1.Panel2.Controls.Add(Me.PictureBox3) + Me.SplitContainer1.Panel2.Controls.Add(Me.PictureBox1) + Me.SplitContainer1.Panel2.Controls.Add(Label16) + Me.SplitContainer1.Panel2.Controls.Add(Me.GroupBox8) + Me.SplitContainer1.Panel2.Controls.Add(Me.GroupBox7) + Me.SplitContainer1.Panel2.Controls.Add(Me.GroupBox6) + Me.SplitContainer1.Panel2.Controls.Add(Me.GroupBox5) + Me.SplitContainer1.Panel2.Controls.Add(Me.GroupBox4) + Me.SplitContainer1.Panel2.Controls.Add(Me.GroupBox3) + Me.SplitContainer1.Panel2.Controls.Add(Me.GroupBox2) + Me.SplitContainer1.Panel2.Controls.Add(Me.난방공급시스템GroupBox) + Me.SplitContainer1.Size = New System.Drawing.Size(818, 574) + Me.SplitContainer1.SplitterDistance = 212 + Me.SplitContainer1.TabIndex = 151 + ' + '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.BackgroundColor = System.Drawing.Color.FromArgb(CType(CType(245, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(246, Byte), Integer)) + Me.dv.BorderStyle = System.Windows.Forms.BorderStyle.None + Me.dv.ColumnHeadersHeight = 30 + Me.dv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.DisableResizing + Me.dv.Columns.AddRange(New System.Windows.Forms.DataGridViewColumn() {Me.sortkey, Me.DataGridViewTextBoxColumn1}) + Me.dv.DataSource = Me.bs + Me.dv.Dock = System.Windows.Forms.DockStyle.Fill + Me.dv.Location = New System.Drawing.Point(0, 26) + 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, 506) + Me.dv.TabIndex = 0 + ' + 'lb_grpname + ' + Me.lb_grpname.BackColor = System.Drawing.Color.LightSkyBlue + Me.lb_grpname.Dock = System.Windows.Forms.DockStyle.Top + Me.lb_grpname.ForeColor = System.Drawing.SystemColors.HotTrack + Me.lb_grpname.Location = New System.Drawing.Point(0, 0) + Me.lb_grpname.Name = "lb_grpname" + Me.lb_grpname.Size = New System.Drawing.Size(210, 26) + Me.lb_grpname.TabIndex = 94 + Me.lb_grpname.Text = "그룹 :" + Me.lb_grpname.TextAlign = System.Drawing.ContentAlignment.MiddleCenter + ' + 'bn + ' + Me.bn.AddNewItem = Nothing + Me.bn.AutoSize = False + Me.bn.BindingSource = Me.bs + Me.bn.CountItem = Me.ToolStripLabel1 + 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_copy, Me.bt_cancel, Me.ToolStripSeparator1, Me.lbl_pos, Me.ToolStripLabel1}) + Me.bn.Location = New System.Drawing.Point(0, 532) + 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, 40) + Me.bn.TabIndex = 1 + Me.bn.Text = "BindingNavigator1" + ' + 'ToolStripLabel1 + ' + Me.ToolStripLabel1.Name = "ToolStripLabel1" + Me.ToolStripLabel1.Size = New System.Drawing.Size(33, 37) + Me.ToolStripLabel1.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, 37) + Me.bt_add.Text = "&A" + Me.bt_add.ToolTipText = "새로운 데이터를 추가합니다.(단축키 Alt+A)" + ' + '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, 37) + Me.bt_Del.Text = "선택삭제(&D)" + Me.bt_Del.ToolTipText = "선택된 데이터를 삭제합니다" + ' + 'bt_copy + ' + Me.bt_copy.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.bt_copy.Image = Global.Eco2Ar.My.Resources.Resources.page_copy + Me.bt_copy.ImageTransparentColor = System.Drawing.Color.Magenta + Me.bt_copy.Name = "bt_copy" + Me.bt_copy.Size = New System.Drawing.Size(24, 37) + Me.bt_copy.Text = "선택복사" + Me.bt_copy.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, 37) + 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, 40) + ' + 'lbl_pos + ' + Me.lbl_pos.Name = "lbl_pos" + Me.lbl_pos.Size = New System.Drawing.Size(12, 37) + Me.lbl_pos.Text = "0" + ' + 'ToolStrip1 + ' + Me.ToolStrip1.Dock = System.Windows.Forms.DockStyle.Bottom + Me.ToolStrip1.Font = New System.Drawing.Font("돋움", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.ToolStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToolStripLabel2, Me.lb_외벽, Me.ToolStripLabel4, Me.lb_내벽, Me.ToolStripLabel6, Me.lb_외부창, Me.ToolStripLabel8, Me.lb_내부창, Me.ToolStripLabel10, Me.lb_간벽, Me.ToolStripLabel3, Me.lb_면적합, Me.ToolStripLabel5, Me.lb_전체존수}) + Me.ToolStrip1.Location = New System.Drawing.Point(0, 547) + Me.ToolStrip1.Name = "ToolStrip1" + Me.ToolStrip1.Size = New System.Drawing.Size(600, 25) + Me.ToolStrip1.TabIndex = 91 + Me.ToolStrip1.Text = "ToolStrip1" + ' + 'ToolStripLabel2 + ' + Me.ToolStripLabel2.Font = New System.Drawing.Font("돋움", 8.999999!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.ToolStripLabel2.ForeColor = System.Drawing.Color.LightGray + Me.ToolStripLabel2.Name = "ToolStripLabel2" + Me.ToolStripLabel2.Size = New System.Drawing.Size(36, 22) + Me.ToolStripLabel2.Text = "외벽:" + ' + 'lb_외벽 + ' + Me.lb_외벽.Font = New System.Drawing.Font("돋움", 8.999999!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.lb_외벽.ForeColor = System.Drawing.Color.LightGray + Me.lb_외벽.Name = "lb_외벽" + Me.lb_외벽.Size = New System.Drawing.Size(12, 22) + Me.lb_외벽.Text = "0" + ' + 'ToolStripLabel4 + ' + Me.ToolStripLabel4.Font = New System.Drawing.Font("돋움", 8.999999!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.ToolStripLabel4.ForeColor = System.Drawing.Color.LightGray + Me.ToolStripLabel4.Name = "ToolStripLabel4" + Me.ToolStripLabel4.Size = New System.Drawing.Size(41, 22) + Me.ToolStripLabel4.Text = " 내벽:" + ' + 'lb_내벽 + ' + Me.lb_내벽.Font = New System.Drawing.Font("돋움", 8.999999!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.lb_내벽.ForeColor = System.Drawing.Color.LightGray + Me.lb_내벽.Name = "lb_내벽" + Me.lb_내벽.Size = New System.Drawing.Size(12, 22) + Me.lb_내벽.Text = "0" + ' + 'ToolStripLabel6 + ' + Me.ToolStripLabel6.Font = New System.Drawing.Font("돋움", 8.999999!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.ToolStripLabel6.ForeColor = System.Drawing.Color.LightGray + Me.ToolStripLabel6.Name = "ToolStripLabel6" + Me.ToolStripLabel6.Size = New System.Drawing.Size(54, 22) + Me.ToolStripLabel6.Text = " 외부창:" + ' + 'lb_외부창 + ' + Me.lb_외부창.Font = New System.Drawing.Font("돋움", 8.999999!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.lb_외부창.ForeColor = System.Drawing.Color.LightGray + Me.lb_외부창.Name = "lb_외부창" + Me.lb_외부창.Size = New System.Drawing.Size(12, 22) + Me.lb_외부창.Text = "0" + ' + 'ToolStripLabel8 + ' + Me.ToolStripLabel8.Font = New System.Drawing.Font("돋움", 8.999999!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.ToolStripLabel8.ForeColor = System.Drawing.Color.LightGray + Me.ToolStripLabel8.Name = "ToolStripLabel8" + Me.ToolStripLabel8.Size = New System.Drawing.Size(54, 22) + Me.ToolStripLabel8.Text = " 내부창:" + ' + 'lb_내부창 + ' + Me.lb_내부창.Font = New System.Drawing.Font("돋움", 8.999999!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.lb_내부창.ForeColor = System.Drawing.Color.LightGray + Me.lb_내부창.Name = "lb_내부창" + Me.lb_내부창.Size = New System.Drawing.Size(12, 22) + Me.lb_내부창.Text = "0" + ' + 'ToolStripLabel10 + ' + Me.ToolStripLabel10.Font = New System.Drawing.Font("돋움", 8.999999!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.ToolStripLabel10.ForeColor = System.Drawing.Color.LightGray + Me.ToolStripLabel10.Name = "ToolStripLabel10" + Me.ToolStripLabel10.Size = New System.Drawing.Size(41, 22) + Me.ToolStripLabel10.Text = " 간벽:" + ' + 'lb_간벽 + ' + Me.lb_간벽.Font = New System.Drawing.Font("돋움", 8.999999!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.lb_간벽.ForeColor = System.Drawing.Color.LightGray + Me.lb_간벽.Name = "lb_간벽" + Me.lb_간벽.Size = New System.Drawing.Size(12, 22) + Me.lb_간벽.Text = "0" + ' + 'ToolStripLabel3 + ' + Me.ToolStripLabel3.Font = New System.Drawing.Font("돋움", 8.999999!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.ToolStripLabel3.ForeColor = System.Drawing.Color.MidnightBlue + Me.ToolStripLabel3.Name = "ToolStripLabel3" + Me.ToolStripLabel3.Size = New System.Drawing.Size(67, 22) + Me.ToolStripLabel3.Text = " 전체면적:" + ' + 'lb_면적합 + ' + Me.lb_면적합.Font = New System.Drawing.Font("돋움", 8.999999!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.lb_면적합.ForeColor = System.Drawing.Color.MidnightBlue + Me.lb_면적합.Name = "lb_면적합" + Me.lb_면적합.Size = New System.Drawing.Size(12, 22) + Me.lb_면적합.Text = "0" + ' + 'ToolStripLabel5 + ' + Me.ToolStripLabel5.Font = New System.Drawing.Font("돋움", 8.999999!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.ToolStripLabel5.ForeColor = System.Drawing.Color.MidnightBlue + Me.ToolStripLabel5.Name = "ToolStripLabel5" + Me.ToolStripLabel5.Size = New System.Drawing.Size(67, 22) + Me.ToolStripLabel5.Text = " 전체존수:" + ' + 'lb_전체존수 + ' + Me.lb_전체존수.Font = New System.Drawing.Font("돋움", 8.999999!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.lb_전체존수.ForeColor = System.Drawing.Color.MidnightBlue + Me.lb_전체존수.Name = "lb_전체존수" + Me.lb_전체존수.Size = New System.Drawing.Size(12, 22) + Me.lb_전체존수.Text = "0" + ' + 'Label17 + ' + Me.Label17.AutoSize = True + Me.Label17.BackColor = System.Drawing.Color.FromArgb(CType(CType(116, Byte), Integer), CType(CType(158, Byte), Integer), CType(CType(209, Byte), Integer)) + Me.Label17.ForeColor = System.Drawing.Color.White + Me.Label17.Location = New System.Drawing.Point(34, 320) + Me.Label17.Name = "Label17" + Me.Label17.Size = New System.Drawing.Size(76, 12) + Me.Label17.TabIndex = 90 + Me.Label17.Text = "조 명" + ' + 'Label15 + ' + Me.Label15.AutoSize = True + Me.Label15.BackColor = System.Drawing.Color.FromArgb(CType(CType(116, Byte), Integer), CType(CType(158, Byte), Integer), CType(CType(209, Byte), Integer)) + Me.Label15.ForeColor = System.Drawing.Color.White + Me.Label15.Location = New System.Drawing.Point(34, 19) + Me.Label15.Name = "Label15" + Me.Label15.Size = New System.Drawing.Size(70, 12) + Me.Label15.TabIndex = 90 + Me.Label15.Text = "일반데이터" + ' + '입력존의수NTb + ' + Me.입력존의수NTb.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bs, "입력존의수", True)) + Me.입력존의수NTb.Location = New System.Drawing.Point(509, 14) + Me.입력존의수NTb.Name = "입력존의수NTb" + Me.입력존의수NTb.NectControl = Nothing + Me.입력존의수NTb.Size = New System.Drawing.Size(80, 21) + Me.입력존의수NTb.TabIndex = 6 + Me.입력존의수NTb.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + ' + 'PictureBox3 + ' + Me.PictureBox3.BackgroundImage = CType(resources.GetObject("PictureBox3.BackgroundImage"), System.Drawing.Image) + Me.PictureBox3.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch + Me.PictureBox3.Location = New System.Drawing.Point(15, 308) + Me.PictureBox3.Name = "PictureBox3" + Me.PictureBox3.Size = New System.Drawing.Size(131, 30) + Me.PictureBox3.TabIndex = 83 + Me.PictureBox3.TabStop = False + ' + 'PictureBox1 + ' + Me.PictureBox1.BackgroundImage = CType(resources.GetObject("PictureBox1.BackgroundImage"), System.Drawing.Image) + Me.PictureBox1.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch + Me.PictureBox1.Location = New System.Drawing.Point(15, 8) + Me.PictureBox1.Name = "PictureBox1" + Me.PictureBox1.Size = New System.Drawing.Size(131, 30) + Me.PictureBox1.TabIndex = 83 + Me.PictureBox1.TabStop = False + ' + 'Label16 + ' + Label16.AutoSize = True + Label16.BackColor = System.Drawing.Color.White + Label16.ForeColor = System.Drawing.SystemColors.HotTrack + Label16.Location = New System.Drawing.Point(420, 17) + Label16.Name = "Label16" + Label16.Size = New System.Drawing.Size(85, 12) + Label16.TabIndex = 35 + Label16.Text = "입력존의 수 :" + ' + 'GroupBox8 + ' + Me.GroupBox8.BackColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer)) + Me.GroupBox8.Controls.Add(주말운전방식Label) + Me.GroupBox8.Controls.Add(외기부하처리여부Label) + Me.GroupBox8.Controls.Add(야간운전방식Label) + Me.GroupBox8.Controls.Add(Me.냉난방공조ComboBox) + Me.GroupBox8.Controls.Add(Me.외기부하처리여부ComboBox) + Me.GroupBox8.Controls.Add(냉난방공조Label) + Me.GroupBox8.Controls.Add(Me.야간운전방식ComboBox) + Me.GroupBox8.Controls.Add(Me.주말운전방식ComboBox) + Me.GroupBox8.Controls.Add(Me.PictureBox8) + Me.GroupBox8.Location = New System.Drawing.Point(411, 32) + Me.GroupBox8.Name = "GroupBox8" + Me.GroupBox8.Size = New System.Drawing.Size(182, 132) + Me.GroupBox8.TabIndex = 89 + Me.GroupBox8.TabStop = False + ' + '주말운전방식Label + ' + 주말운전방식Label.AutoSize = True + 주말운전방식Label.BackColor = System.Drawing.Color.FromArgb(CType(CType(219, Byte), Integer), CType(CType(221, Byte), Integer), CType(CType(223, Byte), Integer)) + 주말운전방식Label.ForeColor = System.Drawing.SystemColors.ControlDarkDark + 주말운전방식Label.Location = New System.Drawing.Point(5, 107) + 주말운전방식Label.Name = "주말운전방식Label" + 주말운전방식Label.Size = New System.Drawing.Size(88, 12) + 주말운전방식Label.TabIndex = 38 + 주말운전방식Label.Text = "주말운전방식:" + ' + '외기부하처리여부Label + ' + 외기부하처리여부Label.AutoSize = True + 외기부하처리여부Label.BackColor = System.Drawing.Color.FromArgb(CType(CType(219, Byte), Integer), CType(CType(221, Byte), Integer), CType(CType(223, Byte), Integer)) + 외기부하처리여부Label.ForeColor = System.Drawing.SystemColors.ControlDarkDark + 외기부하처리여부Label.Location = New System.Drawing.Point(5, 49) + 외기부하처리여부Label.Name = "외기부하처리여부Label" + 외기부하처리여부Label.Size = New System.Drawing.Size(88, 12) + 외기부하처리여부Label.TabIndex = 36 + 외기부하처리여부Label.Text = "외기부하처리:" + ' + '야간운전방식Label + ' + 야간운전방식Label.AutoSize = True + 야간운전방식Label.BackColor = System.Drawing.Color.FromArgb(CType(CType(219, Byte), Integer), CType(CType(221, Byte), Integer), CType(CType(223, Byte), Integer)) + 야간운전방식Label.ForeColor = System.Drawing.SystemColors.ControlDarkDark + 야간운전방식Label.Location = New System.Drawing.Point(5, 78) + 야간운전방식Label.Name = "야간운전방식Label" + 야간운전방식Label.Size = New System.Drawing.Size(88, 12) + 야간운전방식Label.TabIndex = 37 + 야간운전방식Label.Text = "야간운전방식:" + ' + '냉난방공조ComboBox + ' + Me.냉난방공조ComboBox.DisplayMember = "code" + Me.냉난방공조ComboBox.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList + Me.냉난방공조ComboBox.Font = New System.Drawing.Font("돋움", 8.999999!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.냉난방공조ComboBox.FormattingEnabled = True + Me.냉난방공조ComboBox.Location = New System.Drawing.Point(95, 16) + Me.냉난방공조ComboBox.Name = "냉난방공조ComboBox" + Me.냉난방공조ComboBox.NectControl = Nothing + Me.냉난방공조ComboBox.Size = New System.Drawing.Size(79, 20) + Me.냉난방공조ComboBox.TabIndex = 8 + Me.냉난방공조ComboBox.ValueMember = "code" + ' + '외기부하처리여부ComboBox + ' + Me.외기부하처리여부ComboBox.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList + Me.외기부하처리여부ComboBox.FormattingEnabled = True + Me.외기부하처리여부ComboBox.Location = New System.Drawing.Point(95, 45) + Me.외기부하처리여부ComboBox.Name = "외기부하처리여부ComboBox" + Me.외기부하처리여부ComboBox.NectControl = Nothing + Me.외기부하처리여부ComboBox.Size = New System.Drawing.Size(79, 20) + Me.외기부하처리여부ComboBox.TabIndex = 9 + ' + '냉난방공조Label + ' + 냉난방공조Label.AutoSize = True + 냉난방공조Label.BackColor = System.Drawing.Color.FromArgb(CType(CType(219, Byte), Integer), CType(CType(221, Byte), Integer), CType(CType(223, Byte), Integer)) + 냉난방공조Label.ForeColor = System.Drawing.SystemColors.ControlDarkDark + 냉난방공조Label.Location = New System.Drawing.Point(5, 20) + 냉난방공조Label.Name = "냉난방공조Label" + 냉난방공조Label.Size = New System.Drawing.Size(75, 12) + 냉난방공조Label.TabIndex = 35 + 냉난방공조Label.Text = "냉난방공조:" + ' + '야간운전방식ComboBox + ' + Me.야간운전방식ComboBox.DisplayMember = "code" + Me.야간운전방식ComboBox.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList + Me.야간운전방식ComboBox.FormattingEnabled = True + Me.야간운전방식ComboBox.Location = New System.Drawing.Point(95, 74) + Me.야간운전방식ComboBox.Name = "야간운전방식ComboBox" + Me.야간운전방식ComboBox.NectControl = Nothing + Me.야간운전방식ComboBox.Size = New System.Drawing.Size(79, 20) + Me.야간운전방식ComboBox.TabIndex = 10 + Me.야간운전방식ComboBox.ValueMember = "code" + ' + '주말운전방식ComboBox + ' + Me.주말운전방식ComboBox.DisplayMember = "code" + Me.주말운전방식ComboBox.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList + Me.주말운전방식ComboBox.FormattingEnabled = True + Me.주말운전방식ComboBox.Location = New System.Drawing.Point(95, 103) + Me.주말운전방식ComboBox.Name = "주말운전방식ComboBox" + Me.주말운전방식ComboBox.NectControl = Me.냉난방열공급시스템ComboBox + Me.주말운전방식ComboBox.Size = New System.Drawing.Size(79, 20) + Me.주말운전방식ComboBox.TabIndex = 11 + Me.주말운전방식ComboBox.ValueMember = "code" + ' + '냉난방열공급시스템ComboBox + ' + Me.냉난방열공급시스템ComboBox.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList + Me.냉난방열공급시스템ComboBox.Font = New System.Drawing.Font("돋움", 8.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.냉난방열공급시스템ComboBox.FormattingEnabled = True + Me.냉난방열공급시스템ComboBox.Location = New System.Drawing.Point(95, 31) + Me.냉난방열공급시스템ComboBox.Name = "냉난방열공급시스템ComboBox" + Me.냉난방열공급시스템ComboBox.NectControl = Nothing + Me.냉난방열공급시스템ComboBox.Size = New System.Drawing.Size(85, 19) + Me.냉난방열공급시스템ComboBox.TabIndex = 12 + ' + 'PictureBox8 + ' + Me.PictureBox8.BackColor = System.Drawing.Color.FromArgb(CType(CType(219, Byte), Integer), CType(CType(221, Byte), Integer), CType(CType(223, Byte), Integer)) + Me.PictureBox8.Location = New System.Drawing.Point(0, 9) + Me.PictureBox8.Name = "PictureBox8" + Me.PictureBox8.Size = New System.Drawing.Size(180, 120) + Me.PictureBox8.TabIndex = 37 + Me.PictureBox8.TabStop = False + ' + 'GroupBox7 + ' + Me.GroupBox7.BackColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer)) + Me.GroupBox7.Controls.Add(침기율Label) + Me.GroupBox7.Controls.Add(Me.열교가산치ComboBox) + Me.GroupBox7.Controls.Add(Me.열저장능력ComboBox) + Me.GroupBox7.Controls.Add(Me.침기율NTb) + Me.GroupBox7.Controls.Add(냉난방방식Label) + Me.GroupBox7.Controls.Add(Me.cmb_냉난방방식) + Me.GroupBox7.Controls.Add(열저장능력Label) + Me.GroupBox7.Controls.Add(열교가산치Label) + Me.GroupBox7.Controls.Add(Me.PictureBox7) + Me.GroupBox7.Location = New System.Drawing.Point(230, 32) + Me.GroupBox7.Name = "GroupBox7" + Me.GroupBox7.Size = New System.Drawing.Size(181, 132) + Me.GroupBox7.TabIndex = 88 + Me.GroupBox7.TabStop = False + ' + '침기율Label + ' + 침기율Label.AutoSize = True + 침기율Label.BackColor = System.Drawing.Color.FromArgb(CType(CType(219, Byte), Integer), CType(CType(221, Byte), Integer), CType(CType(223, Byte), Integer)) + 침기율Label.ForeColor = System.Drawing.SystemColors.ControlDarkDark + 침기율Label.Location = New System.Drawing.Point(5, 78) + 침기율Label.Name = "침기율Label" + 침기율Label.Size = New System.Drawing.Size(85, 12) + 침기율Label.TabIndex = 32 + 침기율Label.Text = "침기율[1/h]:" + ' + '열교가산치ComboBox + ' + Me.열교가산치ComboBox.DisplayMember = "code" + Me.열교가산치ComboBox.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList + Me.열교가산치ComboBox.FormattingEnabled = True + Me.열교가산치ComboBox.Location = New System.Drawing.Point(91, 45) + Me.열교가산치ComboBox.Name = "열교가산치ComboBox" + Me.열교가산치ComboBox.NectControl = Nothing + Me.열교가산치ComboBox.Size = New System.Drawing.Size(84, 20) + Me.열교가산치ComboBox.TabIndex = 5 + Me.열교가산치ComboBox.ValueMember = "code" + ' + '열저장능력ComboBox + ' + Me.열저장능력ComboBox.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList + Me.열저장능력ComboBox.FormattingEnabled = True + Me.열저장능력ComboBox.Items.AddRange(New Object() {"130", "90", "50"}) + Me.열저장능력ComboBox.Location = New System.Drawing.Point(91, 16) + Me.열저장능력ComboBox.Name = "열저장능력ComboBox" + Me.열저장능력ComboBox.NectControl = Nothing + Me.열저장능력ComboBox.Size = New System.Drawing.Size(84, 20) + Me.열저장능력ComboBox.TabIndex = 4 + ' + '침기율NTb + ' + Me.침기율NTb.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bs, "침기율", True)) + Me.침기율NTb.Location = New System.Drawing.Point(91, 74) + Me.침기율NTb.Name = "침기율NTb" + Me.침기율NTb.NectControl = Nothing + Me.침기율NTb.Size = New System.Drawing.Size(84, 21) + Me.침기율NTb.TabIndex = 6 + Me.침기율NTb.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + ' + '냉난방방식Label + ' + 냉난방방식Label.AutoSize = True + 냉난방방식Label.BackColor = System.Drawing.Color.FromArgb(CType(CType(219, Byte), Integer), CType(CType(221, Byte), Integer), CType(CType(223, Byte), Integer)) + 냉난방방식Label.ForeColor = System.Drawing.SystemColors.ControlDarkDark + 냉난방방식Label.Location = New System.Drawing.Point(5, 107) + 냉난방방식Label.Name = "냉난방방식Label" + 냉난방방식Label.Size = New System.Drawing.Size(75, 12) + 냉난방방식Label.TabIndex = 33 + 냉난방방식Label.Text = "냉난방방식:" + ' + 'cmb_냉난방방식 + ' + Me.cmb_냉난방방식.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList + Me.cmb_냉난방방식.FormattingEnabled = True + Me.cmb_냉난방방식.Location = New System.Drawing.Point(91, 103) + Me.cmb_냉난방방식.Name = "cmb_냉난방방식" + Me.cmb_냉난방방식.NectControl = Nothing + Me.cmb_냉난방방식.Size = New System.Drawing.Size(84, 20) + Me.cmb_냉난방방식.TabIndex = 7 + ' + '열저장능력Label + ' + 열저장능력Label.AutoSize = True + 열저장능력Label.BackColor = System.Drawing.Color.FromArgb(CType(CType(219, Byte), Integer), CType(CType(221, Byte), Integer), CType(CType(223, Byte), Integer)) + 열저장능력Label.ForeColor = System.Drawing.SystemColors.ControlDarkDark + 열저장능력Label.Location = New System.Drawing.Point(5, 20) + 열저장능력Label.Name = "열저장능력Label" + 열저장능력Label.Size = New System.Drawing.Size(75, 12) + 열저장능력Label.TabIndex = 30 + 열저장능력Label.Text = "열저장능력:" + ' + '열교가산치Label + ' + 열교가산치Label.AutoSize = True + 열교가산치Label.BackColor = System.Drawing.Color.FromArgb(CType(CType(219, Byte), Integer), CType(CType(221, Byte), Integer), CType(CType(223, Byte), Integer)) + 열교가산치Label.ForeColor = System.Drawing.SystemColors.ControlDarkDark + 열교가산치Label.Location = New System.Drawing.Point(5, 49) + 열교가산치Label.Name = "열교가산치Label" + 열교가산치Label.Size = New System.Drawing.Size(75, 12) + 열교가산치Label.TabIndex = 31 + 열교가산치Label.Text = "열교가산치:" + ' + 'PictureBox7 + ' + Me.PictureBox7.BackColor = System.Drawing.Color.FromArgb(CType(CType(219, Byte), Integer), CType(CType(221, Byte), Integer), CType(CType(223, Byte), Integer)) + Me.PictureBox7.Location = New System.Drawing.Point(1, 9) + Me.PictureBox7.Name = "PictureBox7" + Me.PictureBox7.Size = New System.Drawing.Size(177, 120) + Me.PictureBox7.TabIndex = 37 + Me.PictureBox7.TabStop = False + ' + 'GroupBox6 + ' + Me.GroupBox6.Controls.Add(Me.tb_조명계산치) + Me.GroupBox6.Controls.Add(Me.tb_점등시간) + Me.GroupBox6.Controls.Add(Me.tb_조명입력치) + Me.GroupBox6.Controls.Add(Label35) + Me.GroupBox6.Controls.Add(Me.보수율NTb) + Me.GroupBox6.Controls.Add(Label36) + Me.GroupBox6.Controls.Add(Me.인공광원ComboBox) + Me.GroupBox6.Controls.Add(Label33) + Me.GroupBox6.Controls.Add(Label40) + Me.GroupBox6.Controls.Add(Me.조명방식ComboBox) + Me.GroupBox6.Controls.Add(Label38) + Me.GroupBox6.Controls.Add(Me.조명기기효율NTb) + Me.GroupBox6.Controls.Add(Label32) + Me.GroupBox6.Controls.Add(Me.tb_조명률) + Me.GroupBox6.Controls.Add(Label37) + Me.GroupBox6.Controls.Add(Label39) + Me.GroupBox6.Controls.Add(Me.PictureBox11) + Me.GroupBox6.Location = New System.Drawing.Point(215, 334) + Me.GroupBox6.Name = "GroupBox6" + Me.GroupBox6.Size = New System.Drawing.Size(377, 192) + Me.GroupBox6.TabIndex = 87 + Me.GroupBox6.TabStop = False + ' + 'tb_조명계산치 + ' + Me.tb_조명계산치.BackColor = System.Drawing.Color.DarkGray + Me.tb_조명계산치.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bs, "조명에너지부하율계산치", True)) + Me.tb_조명계산치.Font = New System.Drawing.Font("돋움", 8.999999!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.tb_조명계산치.Location = New System.Drawing.Point(273, 139) + Me.tb_조명계산치.Margin = New System.Windows.Forms.Padding(0) + Me.tb_조명계산치.Name = "tb_조명계산치" + Me.tb_조명계산치.NectControl = Nothing + Me.tb_조명계산치.ReadOnly = True + Me.tb_조명계산치.Size = New System.Drawing.Size(96, 21) + Me.tb_조명계산치.TabIndex = 35 + Me.tb_조명계산치.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + ' + 'tb_점등시간 + ' + Me.tb_점등시간.BackColor = System.Drawing.Color.DarkGray + Me.tb_점등시간.Font = New System.Drawing.Font("돋움", 8.999999!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.tb_점등시간.Location = New System.Drawing.Point(273, 85) + Me.tb_점등시간.Margin = New System.Windows.Forms.Padding(0) + Me.tb_점등시간.Name = "tb_점등시간" + Me.tb_점등시간.NectControl = Nothing + Me.tb_점등시간.ReadOnly = True + Me.tb_점등시간.Size = New System.Drawing.Size(96, 21) + Me.tb_점등시간.TabIndex = 34 + Me.tb_점등시간.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + ' + 'tb_조명입력치 + ' + Me.tb_조명입력치.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bs, "조명에너지부하율입력치", True)) + Me.tb_조명입력치.Font = New System.Drawing.Font("돋움", 8.999999!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.tb_조명입력치.Location = New System.Drawing.Point(273, 39) + Me.tb_조명입력치.Margin = New System.Windows.Forms.Padding(0) + Me.tb_조명입력치.Name = "tb_조명입력치" + Me.tb_조명입력치.NectControl = Nothing + Me.tb_조명입력치.Size = New System.Drawing.Size(96, 21) + Me.tb_조명입력치.TabIndex = 33 + Me.tb_조명입력치.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + ' + 'Label35 + ' + Label35.AutoSize = True + Label35.BackColor = System.Drawing.Color.FromArgb(CType(CType(219, Byte), Integer), CType(CType(221, Byte), Integer), CType(CType(223, Byte), Integer)) + Label35.Font = New System.Drawing.Font("돋움", 8.999999!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Label35.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label35.Location = New System.Drawing.Point(4, 83) + Label35.Name = "Label35" + Label35.Size = New System.Drawing.Size(49, 12) + Label35.TabIndex = 74 + Label35.Text = "보수율:" + Label35.TextAlign = System.Drawing.ContentAlignment.MiddleRight + ' + '보수율NTb + ' + Me.보수율NTb.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bs, "보수율", True)) + Me.보수율NTb.Font = New System.Drawing.Font("돋움", 8.999999!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.보수율NTb.Location = New System.Drawing.Point(91, 77) + Me.보수율NTb.Margin = New System.Windows.Forms.Padding(0) + Me.보수율NTb.Name = "보수율NTb" + Me.보수율NTb.NectControl = Nothing + Me.보수율NTb.Size = New System.Drawing.Size(100, 21) + Me.보수율NTb.TabIndex = 30 + Me.보수율NTb.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + ' + 'Label36 + ' + Label36.AutoSize = True + Label36.BackColor = System.Drawing.Color.FromArgb(CType(CType(219, Byte), Integer), CType(CType(221, Byte), Integer), CType(CType(223, Byte), Integer)) + Label36.Font = New System.Drawing.Font("돋움", 8.999999!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Label36.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label36.Location = New System.Drawing.Point(196, 22) + Label36.Name = "Label36" + Label36.Size = New System.Drawing.Size(159, 12) + Label36.TabIndex = 79 + Label36.Text = "조명에너지부하율[W/㎡]:" + Label36.TextAlign = System.Drawing.ContentAlignment.MiddleRight + ' + '인공광원ComboBox + ' + Me.인공광원ComboBox.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList + Me.인공광원ComboBox.Font = New System.Drawing.Font("돋움", 8.999999!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.인공광원ComboBox.FormattingEnabled = True + Me.인공광원ComboBox.Location = New System.Drawing.Point(91, 49) + Me.인공광원ComboBox.Margin = New System.Windows.Forms.Padding(0) + Me.인공광원ComboBox.Name = "인공광원ComboBox" + Me.인공광원ComboBox.NectControl = Nothing + Me.인공광원ComboBox.Size = New System.Drawing.Size(100, 20) + Me.인공광원ComboBox.TabIndex = 29 + ' + 'Label33 + ' + Label33.AutoSize = True + Label33.BackColor = System.Drawing.Color.FromArgb(CType(CType(219, Byte), Integer), CType(CType(221, Byte), Integer), CType(CType(223, Byte), Integer)) + Label33.Font = New System.Drawing.Font("돋움", 8.999999!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Label33.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label33.Location = New System.Drawing.Point(4, 53) + Label33.Name = "Label33" + Label33.Size = New System.Drawing.Size(62, 12) + Label33.TabIndex = 67 + Label33.Text = "인공광원:" + Label33.TextAlign = System.Drawing.ContentAlignment.MiddleRight + ' + 'Label40 + ' + Label40.AutoSize = True + Label40.BackColor = System.Drawing.Color.FromArgb(CType(CType(219, Byte), Integer), CType(CType(221, Byte), Integer), CType(CType(223, Byte), Integer)) + Label40.Font = New System.Drawing.Font("돋움", 8.999999!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Label40.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label40.Location = New System.Drawing.Point(4, 112) + Label40.Name = "Label40" + Label40.Size = New System.Drawing.Size(49, 12) + Label40.TabIndex = 77 + Label40.Text = "조명률:" + Label40.TextAlign = System.Drawing.ContentAlignment.MiddleRight + ' + '조명방식ComboBox + ' + Me.조명방식ComboBox.DisplayMember = "code" + Me.조명방식ComboBox.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList + Me.조명방식ComboBox.Font = New System.Drawing.Font("돋움", 8.999999!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.조명방식ComboBox.FormattingEnabled = True + Me.조명방식ComboBox.Location = New System.Drawing.Point(91, 19) + Me.조명방식ComboBox.Margin = New System.Windows.Forms.Padding(0) + Me.조명방식ComboBox.Name = "조명방식ComboBox" + Me.조명방식ComboBox.NectControl = Nothing + Me.조명방식ComboBox.Size = New System.Drawing.Size(100, 20) + Me.조명방식ComboBox.TabIndex = 28 + Me.조명방식ComboBox.ValueMember = "code" + ' + 'Label38 + ' + Label38.AutoSize = True + Label38.BackColor = System.Drawing.Color.FromArgb(CType(CType(219, Byte), Integer), CType(CType(221, Byte), Integer), CType(CType(223, Byte), Integer)) + Label38.Font = New System.Drawing.Font("돋움", 8.999999!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Label38.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label38.Location = New System.Drawing.Point(196, 117) + Label38.Name = "Label38" + Label38.Size = New System.Drawing.Size(153, 12) + Label38.TabIndex = 78 + Label38.Text = "조명에너지부하율계산치:" + Label38.TextAlign = System.Drawing.ContentAlignment.MiddleRight + ' + '조명기기효율NTb + ' + Me.조명기기효율NTb.BackColor = System.Drawing.Color.DarkGray + Me.조명기기효율NTb.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bs, "조명기기효율", True)) + Me.조명기기효율NTb.Font = New System.Drawing.Font("돋움", 8.999999!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.조명기기효율NTb.Location = New System.Drawing.Point(91, 139) + Me.조명기기효율NTb.Margin = New System.Windows.Forms.Padding(0) + Me.조명기기효율NTb.Name = "조명기기효율NTb" + Me.조명기기효율NTb.NectControl = Nothing + Me.조명기기효율NTb.ReadOnly = True + Me.조명기기효율NTb.Size = New System.Drawing.Size(100, 21) + Me.조명기기효율NTb.TabIndex = 32 + Me.조명기기효율NTb.TabStop = False + Me.조명기기효율NTb.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + ' + 'Label32 + ' + Label32.AutoSize = True + Label32.BackColor = System.Drawing.Color.FromArgb(CType(CType(219, Byte), Integer), CType(CType(221, Byte), Integer), CType(CType(223, Byte), Integer)) + Label32.Font = New System.Drawing.Font("돋움", 8.999999!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Label32.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label32.Location = New System.Drawing.Point(4, 23) + Label32.Name = "Label32" + Label32.Size = New System.Drawing.Size(62, 12) + Label32.TabIndex = 65 + Label32.Text = "조명방식:" + Label32.TextAlign = System.Drawing.ContentAlignment.MiddleRight + ' + 'tb_조명률 + ' + Me.tb_조명률.BackColor = System.Drawing.Color.DarkGray + Me.tb_조명률.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bs, "조명률", True)) + Me.tb_조명률.Font = New System.Drawing.Font("돋움", 8.999999!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.tb_조명률.Location = New System.Drawing.Point(91, 107) + Me.tb_조명률.Margin = New System.Windows.Forms.Padding(0) + Me.tb_조명률.Name = "tb_조명률" + Me.tb_조명률.NectControl = Nothing + Me.tb_조명률.ReadOnly = True + Me.tb_조명률.Size = New System.Drawing.Size(100, 21) + Me.tb_조명률.TabIndex = 31 + Me.tb_조명률.TabStop = False + Me.tb_조명률.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + ' + 'Label37 + ' + Label37.AutoSize = True + Label37.BackColor = System.Drawing.Color.FromArgb(CType(CType(219, Byte), Integer), CType(CType(221, Byte), Integer), CType(CType(223, Byte), Integer)) + Label37.Font = New System.Drawing.Font("돋움", 8.999999!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Label37.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label37.Location = New System.Drawing.Point(196, 67) + Label37.Name = "Label37" + Label37.Size = New System.Drawing.Size(84, 12) + Label37.TabIndex = 75 + Label37.Text = "점등시간[h]:" + Label37.TextAlign = System.Drawing.ContentAlignment.MiddleRight + ' + 'Label39 + ' + Label39.AutoSize = True + Label39.BackColor = System.Drawing.Color.FromArgb(CType(CType(219, Byte), Integer), CType(CType(221, Byte), Integer), CType(CType(223, Byte), Integer)) + Label39.Font = New System.Drawing.Font("돋움", 8.999999!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Label39.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label39.Location = New System.Drawing.Point(4, 144) + Label39.Name = "Label39" + Label39.Size = New System.Drawing.Size(88, 12) + Label39.TabIndex = 76 + Label39.Text = "조명기기효율:" + Label39.TextAlign = System.Drawing.ContentAlignment.MiddleRight + ' + 'PictureBox11 + ' + Me.PictureBox11.BackColor = System.Drawing.Color.FromArgb(CType(CType(219, Byte), Integer), CType(CType(221, Byte), Integer), CType(CType(223, Byte), Integer)) + Me.PictureBox11.Location = New System.Drawing.Point(2, 9) + Me.PictureBox11.Name = "PictureBox11" + Me.PictureBox11.Size = New System.Drawing.Size(373, 180) + Me.PictureBox11.TabIndex = 37 + Me.PictureBox11.TabStop = False + ' + 'GroupBox5 + ' + Me.GroupBox5.Controls.Add(Me.실지수NTb1) + Me.GroupBox5.Controls.Add(Me.천장고NTB1) + Me.GroupBox5.Controls.Add(Label41) + Me.GroupBox5.Controls.Add(Me.조명부하산출방법ComboBox) + Me.GroupBox5.Controls.Add(Me.요구조도NTb1) + Me.GroupBox5.Controls.Add(Label42) + Me.GroupBox5.Controls.Add(Me.작업면높이NTb1) + Me.GroupBox5.Controls.Add(Label43) + Me.GroupBox5.Controls.Add(Me.실깊이NTb) + Me.GroupBox5.Controls.Add(Label44) + Me.GroupBox5.Controls.Add(Me.실너비NTb) + Me.GroupBox5.Controls.Add(Label45) + Me.GroupBox5.Controls.Add(Label46) + Me.GroupBox5.Controls.Add(Label47) + Me.GroupBox5.Controls.Add(Me.PictureBox6) + Me.GroupBox5.Location = New System.Drawing.Point(7, 334) + Me.GroupBox5.Name = "GroupBox5" + Me.GroupBox5.Size = New System.Drawing.Size(209, 192) + Me.GroupBox5.TabIndex = 86 + Me.GroupBox5.TabStop = False + ' + '실지수NTb1 + ' + Me.실지수NTb1.BackColor = System.Drawing.Color.DarkGray + Me.실지수NTb1.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bs, "실지수", True)) + Me.실지수NTb1.Font = New System.Drawing.Font("돋움", 8.999999!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.실지수NTb1.Location = New System.Drawing.Point(128, 165) + Me.실지수NTb1.Margin = New System.Windows.Forms.Padding(0) + Me.실지수NTb1.Name = "실지수NTb1" + Me.실지수NTb1.NectControl = Nothing + Me.실지수NTb1.ReadOnly = True + Me.실지수NTb1.Size = New System.Drawing.Size(74, 21) + Me.실지수NTb1.TabIndex = 27 + Me.실지수NTb1.TabStop = False + Me.실지수NTb1.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + ' + '천장고NTB1 + ' + Me.천장고NTB1.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bs, "천장고", True)) + Me.천장고NTB1.Font = New System.Drawing.Font("돋움", 8.999999!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.천장고NTB1.Location = New System.Drawing.Point(128, 67) + Me.천장고NTB1.Margin = New System.Windows.Forms.Padding(0) + Me.천장고NTB1.Name = "천장고NTB1" + Me.천장고NTB1.NectControl = Nothing + Me.천장고NTB1.Size = New System.Drawing.Size(74, 21) + Me.천장고NTB1.TabIndex = 23 + Me.천장고NTB1.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + ' + 'Label41 + ' + Label41.AutoSize = True + Label41.BackColor = System.Drawing.Color.FromArgb(CType(CType(219, Byte), Integer), CType(CType(221, Byte), Integer), CType(CType(223, Byte), Integer)) + Label41.Font = New System.Drawing.Font("돋움", 8.999999!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Label41.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label41.Location = New System.Drawing.Point(9, 22) + Label41.Name = "Label41" + Label41.Size = New System.Drawing.Size(114, 12) + Label41.TabIndex = 106 + Label41.Text = "조명부하산출방법:" + Label41.TextAlign = System.Drawing.ContentAlignment.MiddleRight + ' + '조명부하산출방법ComboBox + ' + Me.조명부하산출방법ComboBox.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList + Me.조명부하산출방법ComboBox.Font = New System.Drawing.Font("돋움", 8.999999!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.조명부하산출방법ComboBox.FormattingEnabled = True + Me.조명부하산출방법ComboBox.Location = New System.Drawing.Point(128, 17) + Me.조명부하산출방법ComboBox.Margin = New System.Windows.Forms.Padding(0) + Me.조명부하산출방법ComboBox.Name = "조명부하산출방법ComboBox" + Me.조명부하산출방법ComboBox.NectControl = Nothing + Me.조명부하산출방법ComboBox.Size = New System.Drawing.Size(74, 20) + Me.조명부하산출방법ComboBox.TabIndex = 21 + ' + '요구조도NTb1 + ' + Me.요구조도NTb1.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bs, "요구조도", True)) + Me.요구조도NTb1.Font = New System.Drawing.Font("돋움", 8.999999!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.요구조도NTb1.Location = New System.Drawing.Point(128, 42) + Me.요구조도NTb1.Margin = New System.Windows.Forms.Padding(0) + Me.요구조도NTb1.Name = "요구조도NTb1" + Me.요구조도NTb1.NectControl = Nothing + Me.요구조도NTb1.Size = New System.Drawing.Size(74, 21) + Me.요구조도NTb1.TabIndex = 22 + Me.요구조도NTb1.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + ' + 'Label42 + ' + Label42.AutoSize = True + Label42.BackColor = System.Drawing.Color.FromArgb(CType(CType(219, Byte), Integer), CType(CType(221, Byte), Integer), CType(CType(223, Byte), Integer)) + Label42.Font = New System.Drawing.Font("돋움", 8.999999!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Label42.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label42.Location = New System.Drawing.Point(9, 168) + Label42.Name = "Label42" + Label42.Size = New System.Drawing.Size(49, 12) + Label42.TabIndex = 93 + Label42.Text = "실지수:" + Label42.TextAlign = System.Drawing.ContentAlignment.MiddleRight + ' + '작업면높이NTb1 + ' + Me.작업면높이NTb1.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bs, "작업면높이", True)) + Me.작업면높이NTb1.Font = New System.Drawing.Font("돋움", 8.999999!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.작업면높이NTb1.Location = New System.Drawing.Point(128, 92) + Me.작업면높이NTb1.Margin = New System.Windows.Forms.Padding(0) + Me.작업면높이NTb1.Name = "작업면높이NTb1" + Me.작업면높이NTb1.NectControl = Nothing + Me.작업면높이NTb1.Size = New System.Drawing.Size(74, 21) + Me.작업면높이NTb1.TabIndex = 24 + Me.작업면높이NTb1.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + ' + 'Label43 + ' + Label43.AutoSize = True + Label43.BackColor = System.Drawing.Color.FromArgb(CType(CType(219, Byte), Integer), CType(CType(221, Byte), Integer), CType(CType(223, Byte), Integer)) + Label43.Font = New System.Drawing.Font("돋움", 8.999999!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Label43.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label43.Location = New System.Drawing.Point(9, 146) + Label43.Name = "Label43" + Label43.Size = New System.Drawing.Size(73, 12) + Label43.TabIndex = 91 + Label43.Text = "실너비[m]:" + Label43.TextAlign = System.Drawing.ContentAlignment.MiddleRight + ' + '실깊이NTb + ' + Me.실깊이NTb.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bs, "실깊이", True)) + Me.실깊이NTb.Font = New System.Drawing.Font("돋움", 8.999999!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.실깊이NTb.Location = New System.Drawing.Point(128, 117) + Me.실깊이NTb.Margin = New System.Windows.Forms.Padding(0) + Me.실깊이NTb.Name = "실깊이NTb" + Me.실깊이NTb.NectControl = Nothing + Me.실깊이NTb.Size = New System.Drawing.Size(74, 21) + Me.실깊이NTb.TabIndex = 25 + Me.실깊이NTb.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + ' + 'Label44 + ' + Label44.AutoSize = True + Label44.BackColor = System.Drawing.Color.FromArgb(CType(CType(219, Byte), Integer), CType(CType(221, Byte), Integer), CType(CType(223, Byte), Integer)) + Label44.Font = New System.Drawing.Font("돋움", 8.999999!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Label44.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label44.Location = New System.Drawing.Point(9, 121) + Label44.Name = "Label44" + Label44.Size = New System.Drawing.Size(73, 12) + Label44.TabIndex = 89 + Label44.Text = "실깊이[m]:" + Label44.TextAlign = System.Drawing.ContentAlignment.MiddleRight + ' + '실너비NTb + ' + Me.실너비NTb.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bs, "실너비", True)) + Me.실너비NTb.Font = New System.Drawing.Font("돋움", 8.999999!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.실너비NTb.Location = New System.Drawing.Point(128, 142) + Me.실너비NTb.Margin = New System.Windows.Forms.Padding(0) + Me.실너비NTb.Name = "실너비NTb" + Me.실너비NTb.NectControl = Nothing + Me.실너비NTb.Size = New System.Drawing.Size(74, 21) + Me.실너비NTb.TabIndex = 26 + Me.실너비NTb.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + ' + 'Label45 + ' + Label45.AutoSize = True + Label45.BackColor = System.Drawing.Color.FromArgb(CType(CType(219, Byte), Integer), CType(CType(221, Byte), Integer), CType(CType(223, Byte), Integer)) + Label45.Font = New System.Drawing.Font("돋움", 8.999999!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Label45.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label45.Location = New System.Drawing.Point(9, 96) + Label45.Name = "Label45" + Label45.Size = New System.Drawing.Size(99, 12) + Label45.TabIndex = 87 + Label45.Text = "작업면높이[m]:" + Label45.TextAlign = System.Drawing.ContentAlignment.MiddleRight + ' + 'Label46 + ' + Label46.AutoSize = True + Label46.BackColor = System.Drawing.Color.FromArgb(CType(CType(219, Byte), Integer), CType(CType(221, Byte), Integer), CType(CType(223, Byte), Integer)) + Label46.Font = New System.Drawing.Font("돋움", 8.999999!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Label46.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label46.Location = New System.Drawing.Point(9, 47) + Label46.Name = "Label46" + Label46.Size = New System.Drawing.Size(87, 12) + Label46.TabIndex = 84 + Label46.Text = "요구조도[lx]:" + Label46.TextAlign = System.Drawing.ContentAlignment.MiddleRight + ' + 'Label47 + ' + Label47.AutoSize = True + Label47.BackColor = System.Drawing.Color.FromArgb(CType(CType(219, Byte), Integer), CType(CType(221, Byte), Integer), CType(CType(223, Byte), Integer)) + Label47.Font = New System.Drawing.Font("돋움", 8.999999!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Label47.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label47.Location = New System.Drawing.Point(9, 71) + Label47.Name = "Label47" + Label47.Size = New System.Drawing.Size(73, 12) + Label47.TabIndex = 85 + Label47.Text = "천장고[m]:" + Label47.TextAlign = System.Drawing.ContentAlignment.MiddleRight + ' + 'PictureBox6 + ' + Me.PictureBox6.BackColor = System.Drawing.Color.FromArgb(CType(CType(219, Byte), Integer), CType(CType(221, Byte), Integer), CType(CType(223, Byte), Integer)) + Me.PictureBox6.Location = New System.Drawing.Point(2, 9) + Me.PictureBox6.Name = "PictureBox6" + Me.PictureBox6.Size = New System.Drawing.Size(205, 180) + Me.PictureBox6.TabIndex = 37 + Me.PictureBox6.TabStop = False + ' + 'GroupBox4 + ' + Me.GroupBox4.BackColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer)) + Me.GroupBox4.Controls.Add(Me.순실체적NTb) + Me.GroupBox4.Controls.Add(Me.면적NTb) + Me.GroupBox4.Controls.Add(Me.천장고NTb) + Me.GroupBox4.Controls.Add(순실체적Label) + Me.GroupBox4.Controls.Add(천장고Label) + Me.GroupBox4.Controls.Add(Label1) + Me.GroupBox4.Controls.Add(Label2) + Me.GroupBox4.Controls.Add(Me.cmb_profile) + Me.GroupBox4.Controls.Add(Me.PictureBox5) + Me.GroupBox4.Location = New System.Drawing.Point(8, 32) + Me.GroupBox4.Name = "GroupBox4" + Me.GroupBox4.Size = New System.Drawing.Size(221, 132) + Me.GroupBox4.TabIndex = 82 + Me.GroupBox4.TabStop = False + ' + '순실체적NTb + ' + Me.순실체적NTb.BackColor = System.Drawing.Color.DarkGray + Me.순실체적NTb.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bs, "순실체적", True)) + Me.순실체적NTb.Location = New System.Drawing.Point(84, 103) + Me.순실체적NTb.Name = "순실체적NTb" + Me.순실체적NTb.NectControl = Nothing + Me.순실체적NTb.ReadOnly = True + Me.순실체적NTb.Size = New System.Drawing.Size(135, 21) + Me.순실체적NTb.TabIndex = 3 + Me.순실체적NTb.TabStop = False + Me.순실체적NTb.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + ' + '면적NTb + ' + Me.면적NTb.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bs, "면적", True)) + Me.면적NTb.Location = New System.Drawing.Point(84, 45) + Me.면적NTb.Name = "면적NTb" + Me.면적NTb.NectControl = Nothing + Me.면적NTb.Size = New System.Drawing.Size(135, 21) + Me.면적NTb.TabIndex = 1 + Me.면적NTb.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + ' + '천장고NTb + ' + Me.천장고NTb.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bs, "천장고p", True)) + Me.천장고NTb.Location = New System.Drawing.Point(84, 74) + Me.천장고NTb.Name = "천장고NTb" + Me.천장고NTb.NectControl = Nothing + Me.천장고NTb.Size = New System.Drawing.Size(135, 21) + Me.천장고NTb.TabIndex = 2 + Me.천장고NTb.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + ' + '순실체적Label + ' + 순실체적Label.Anchor = System.Windows.Forms.AnchorStyles.None + 순실체적Label.AutoSize = True + 순실체적Label.BackColor = System.Drawing.Color.FromArgb(CType(CType(219, Byte), Integer), CType(CType(221, Byte), Integer), CType(CType(223, Byte), Integer)) + 순실체적Label.ForeColor = System.Drawing.SystemColors.ControlDarkDark + 순실체적Label.Location = New System.Drawing.Point(7, 106) + 순실체적Label.Name = "순실체적Label" + 순실체적Label.Size = New System.Drawing.Size(76, 12) + 순실체적Label.TabIndex = 22 + 순실체적Label.Text = "실체적[㎥]:" + ' + '천장고Label + ' + 천장고Label.Anchor = System.Windows.Forms.AnchorStyles.None + 천장고Label.AutoSize = True + 천장고Label.BackColor = System.Drawing.Color.FromArgb(CType(CType(219, Byte), Integer), CType(CType(221, Byte), Integer), CType(CType(223, Byte), Integer)) + 천장고Label.ForeColor = System.Drawing.SystemColors.ControlDarkDark + 천장고Label.Location = New System.Drawing.Point(7, 78) + 천장고Label.Name = "천장고Label" + 천장고Label.Size = New System.Drawing.Size(73, 12) + 천장고Label.TabIndex = 21 + 천장고Label.Text = "천장고[m]:" + ' + 'Label1 + ' + Label1.Anchor = System.Windows.Forms.AnchorStyles.None + 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.Font = New System.Drawing.Font("돋움", 8.999999!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Label1.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label1.Location = New System.Drawing.Point(7, 48) + Label1.Name = "Label1" + Label1.Size = New System.Drawing.Size(73, 12) + Label1.TabIndex = 23 + Label1.Text = "면 적[㎡]:" + ' + 'Label2 + ' + Label2.Anchor = System.Windows.Forms.AnchorStyles.None + Label2.AutoSize = True + Label2.BackColor = System.Drawing.Color.FromArgb(CType(CType(219, Byte), Integer), CType(CType(221, Byte), Integer), CType(CType(223, Byte), Integer)) + Label2.Font = New System.Drawing.Font("돋움", 8.999999!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Label2.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label2.Location = New System.Drawing.Point(7, 20) + Label2.Name = "Label2" + Label2.Size = New System.Drawing.Size(75, 12) + Label2.TabIndex = 20 + Label2.Text = "사용프로필:" + Label2.TextAlign = System.Drawing.ContentAlignment.MiddleRight + ' + 'cmb_profile + ' + Me.cmb_profile.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList + Me.cmb_profile.Font = New System.Drawing.Font("돋움", 8.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.cmb_profile.FormattingEnabled = True + Me.cmb_profile.Location = New System.Drawing.Point(84, 16) + Me.cmb_profile.Name = "cmb_profile" + Me.cmb_profile.NectControl = Nothing + Me.cmb_profile.Size = New System.Drawing.Size(135, 19) + Me.cmb_profile.TabIndex = 0 + ' + 'PictureBox5 + ' + Me.PictureBox5.BackColor = System.Drawing.Color.FromArgb(CType(CType(219, Byte), Integer), CType(CType(221, Byte), Integer), CType(CType(223, Byte), Integer)) + Me.PictureBox5.Location = New System.Drawing.Point(2, 9) + Me.PictureBox5.Name = "PictureBox5" + Me.PictureBox5.Size = New System.Drawing.Size(219, 120) + Me.PictureBox5.TabIndex = 37 + Me.PictureBox5.TabStop = False + ' + 'GroupBox3 + ' + Me.GroupBox3.BackColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer)) + Me.GroupBox3.Controls.Add(Me.Label14) + Me.GroupBox3.Controls.Add(Me.cmb_공조냉방생산) + Me.GroupBox3.Controls.Add(Me.cmb_공조난방생산) + Me.GroupBox3.Controls.Add(Me.cmb_공조가습생산) + Me.GroupBox3.Controls.Add(Label11) + Me.GroupBox3.Controls.Add(Label10) + Me.GroupBox3.Controls.Add(Label7) + Me.GroupBox3.Controls.Add(Me.PictureBox10) + Me.GroupBox3.Location = New System.Drawing.Point(391, 165) + Me.GroupBox3.Name = "GroupBox3" + Me.GroupBox3.Size = New System.Drawing.Size(204, 118) + Me.GroupBox3.TabIndex = 37 + Me.GroupBox3.TabStop = False + ' + 'Label14 + ' + Me.Label14.AutoSize = True + Me.Label14.BackColor = System.Drawing.Color.FromArgb(CType(CType(243, Byte), Integer), CType(CType(244, Byte), Integer), CType(CType(246, Byte), Integer)) + Me.Label14.Location = New System.Drawing.Point(7, 13) + Me.Label14.Name = "Label14" + Me.Label14.Size = New System.Drawing.Size(97, 12) + Me.Label14.TabIndex = 90 + Me.Label14.Text = "[공조처리기기]" + ' + 'cmb_공조냉방생산 + ' + Me.cmb_공조냉방생산.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList + Me.cmb_공조냉방생산.Font = New System.Drawing.Font("돋움", 8.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.cmb_공조냉방생산.FormattingEnabled = True + Me.cmb_공조냉방생산.Location = New System.Drawing.Point(68, 58) + Me.cmb_공조냉방생산.Name = "cmb_공조냉방생산" + Me.cmb_공조냉방생산.NectControl = Nothing + Me.cmb_공조냉방생산.Size = New System.Drawing.Size(130, 19) + Me.cmb_공조냉방생산.TabIndex = 19 + ' + 'cmb_공조난방생산 + ' + Me.cmb_공조난방생산.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList + Me.cmb_공조난방생산.Font = New System.Drawing.Font("돋움", 8.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.cmb_공조난방생산.FormattingEnabled = True + Me.cmb_공조난방생산.Location = New System.Drawing.Point(68, 31) + Me.cmb_공조난방생산.Name = "cmb_공조난방생산" + Me.cmb_공조난방생산.NectControl = Nothing + Me.cmb_공조난방생산.Size = New System.Drawing.Size(130, 19) + Me.cmb_공조난방생산.TabIndex = 18 + ' + 'cmb_공조가습생산 + ' + Me.cmb_공조가습생산.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList + Me.cmb_공조가습생산.Font = New System.Drawing.Font("돋움", 8.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.cmb_공조가습생산.FormattingEnabled = True + Me.cmb_공조가습생산.Location = New System.Drawing.Point(68, 86) + Me.cmb_공조가습생산.Name = "cmb_공조가습생산" + Me.cmb_공조가습생산.NectControl = Nothing + Me.cmb_공조가습생산.Size = New System.Drawing.Size(130, 19) + Me.cmb_공조가습생산.TabIndex = 20 + ' + 'Label11 + ' + Label11.AutoSize = True + Label11.BackColor = System.Drawing.Color.FromArgb(CType(CType(243, Byte), Integer), CType(CType(244, Byte), Integer), CType(CType(246, Byte), Integer)) + Label11.Font = New System.Drawing.Font("돋움", 8.999999!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Label11.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label11.Location = New System.Drawing.Point(3, 61) + Label11.Name = "Label11" + Label11.Size = New System.Drawing.Size(62, 12) + Label11.TabIndex = 44 + Label11.Text = "공조냉방:" + ' + 'Label10 + ' + Label10.AutoSize = True + Label10.BackColor = System.Drawing.Color.FromArgb(CType(CType(243, Byte), Integer), CType(CType(244, Byte), Integer), CType(CType(246, Byte), Integer)) + Label10.Font = New System.Drawing.Font("돋움", 8.999999!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Label10.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label10.Location = New System.Drawing.Point(3, 33) + Label10.Name = "Label10" + Label10.Size = New System.Drawing.Size(62, 12) + Label10.TabIndex = 44 + Label10.Text = "공조난방:" + ' + 'Label7 + ' + 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.Font = New System.Drawing.Font("돋움", 8.999999!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Label7.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label7.Location = New System.Drawing.Point(3, 89) + Label7.Name = "Label7" + Label7.Size = New System.Drawing.Size(62, 12) + Label7.TabIndex = 44 + Label7.Text = "공조가습:" + ' + 'PictureBox10 + ' + Me.PictureBox10.BackColor = System.Drawing.Color.FromArgb(CType(CType(243, Byte), Integer), CType(CType(244, Byte), Integer), CType(CType(246, Byte), Integer)) + Me.PictureBox10.Location = New System.Drawing.Point(0, 9) + Me.PictureBox10.Name = "PictureBox10" + Me.PictureBox10.Size = New System.Drawing.Size(201, 106) + Me.PictureBox10.TabIndex = 37 + Me.PictureBox10.TabStop = False + ' + 'GroupBox2 + ' + Me.GroupBox2.BackColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer)) + Me.GroupBox2.Controls.Add(Label6) + Me.GroupBox2.Controls.Add(Me.Label13) + Me.GroupBox2.Controls.Add(Me.cmb_열생산지정1) + Me.GroupBox2.Controls.Add(Me.cmb_열생산지정3) + Me.GroupBox2.Controls.Add(Label8) + Me.GroupBox2.Controls.Add(Me.cmb_열생산급탕기기) + Me.GroupBox2.Controls.Add(Label9) + Me.GroupBox2.Controls.Add(Me.PictureBox9) + Me.GroupBox2.Location = New System.Drawing.Point(194, 165) + Me.GroupBox2.Name = "GroupBox2" + Me.GroupBox2.Size = New System.Drawing.Size(194, 118) + Me.GroupBox2.TabIndex = 37 + Me.GroupBox2.TabStop = False + ' + 'Label6 + ' + 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.Font = New System.Drawing.Font("돋움", 8.999999!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Label6.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label6.Location = New System.Drawing.Point(6, 33) + Label6.Name = "Label6" + Label6.Size = New System.Drawing.Size(49, 12) + Label6.TabIndex = 38 + Label6.Text = "열난방:" + ' + 'Label13 + ' + Me.Label13.AutoSize = True + Me.Label13.BackColor = System.Drawing.Color.FromArgb(CType(CType(243, Byte), Integer), CType(CType(244, Byte), Integer), CType(CType(246, Byte), Integer)) + Me.Label13.Location = New System.Drawing.Point(8, 13) + Me.Label13.Name = "Label13" + Me.Label13.Size = New System.Drawing.Size(84, 12) + Me.Label13.TabIndex = 90 + Me.Label13.Text = "[열생산기기]" + ' + 'cmb_열생산지정1 + ' + Me.cmb_열생산지정1.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList + Me.cmb_열생산지정1.Font = New System.Drawing.Font("돋움", 8.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.cmb_열생산지정1.FormattingEnabled = True + Me.cmb_열생산지정1.Location = New System.Drawing.Point(59, 30) + Me.cmb_열생산지정1.Name = "cmb_열생산지정1" + Me.cmb_열생산지정1.NectControl = Nothing + Me.cmb_열생산지정1.Size = New System.Drawing.Size(131, 19) + Me.cmb_열생산지정1.TabIndex = 15 + ' + 'cmb_열생산지정3 + ' + Me.cmb_열생산지정3.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList + Me.cmb_열생산지정3.Font = New System.Drawing.Font("돋움", 8.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.cmb_열생산지정3.FormattingEnabled = True + Me.cmb_열생산지정3.Location = New System.Drawing.Point(59, 86) + Me.cmb_열생산지정3.Name = "cmb_열생산지정3" + Me.cmb_열생산지정3.NectControl = Nothing + Me.cmb_열생산지정3.Size = New System.Drawing.Size(131, 19) + Me.cmb_열생산지정3.TabIndex = 17 + ' + 'Label8 + ' + Label8.AutoSize = True + Label8.BackColor = System.Drawing.Color.FromArgb(CType(CType(243, Byte), Integer), CType(CType(244, Byte), Integer), CType(CType(246, Byte), Integer)) + Label8.Font = New System.Drawing.Font("돋움", 8.999999!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Label8.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label8.Location = New System.Drawing.Point(6, 61) + Label8.Name = "Label8" + Label8.Size = New System.Drawing.Size(49, 12) + Label8.TabIndex = 40 + Label8.Text = "열급탕:" + ' + 'cmb_열생산급탕기기 + ' + Me.cmb_열생산급탕기기.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList + Me.cmb_열생산급탕기기.Font = New System.Drawing.Font("돋움", 8.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.cmb_열생산급탕기기.FormattingEnabled = True + Me.cmb_열생산급탕기기.Location = New System.Drawing.Point(59, 58) + Me.cmb_열생산급탕기기.Name = "cmb_열생산급탕기기" + Me.cmb_열생산급탕기기.NectControl = Nothing + Me.cmb_열생산급탕기기.Size = New System.Drawing.Size(131, 19) + Me.cmb_열생산급탕기기.TabIndex = 16 + ' + 'Label9 + ' + Label9.AutoSize = True + Label9.BackColor = System.Drawing.Color.FromArgb(CType(CType(243, Byte), Integer), CType(CType(244, Byte), Integer), CType(CType(246, Byte), Integer)) + Label9.Font = New System.Drawing.Font("돋움", 8.999999!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Label9.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label9.Location = New System.Drawing.Point(6, 89) + Label9.Name = "Label9" + Label9.Size = New System.Drawing.Size(49, 12) + Label9.TabIndex = 42 + Label9.Text = "열냉방:" + ' + 'PictureBox9 + ' + Me.PictureBox9.BackColor = System.Drawing.Color.FromArgb(CType(CType(243, Byte), Integer), CType(CType(244, Byte), Integer), CType(CType(246, Byte), Integer)) + Me.PictureBox9.Location = New System.Drawing.Point(2, 9) + Me.PictureBox9.Name = "PictureBox9" + Me.PictureBox9.Size = New System.Drawing.Size(192, 106) + Me.PictureBox9.TabIndex = 37 + Me.PictureBox9.TabStop = False + ' + '난방공급시스템GroupBox + ' + Me.난방공급시스템GroupBox.BackColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer)) + Me.난방공급시스템GroupBox.Controls.Add(Me.Label12) + Me.난방공급시스템GroupBox.Controls.Add(Label3) + Me.난방공급시스템GroupBox.Controls.Add(Me.냉난방열공급시스템ComboBox) + Me.난방공급시스템GroupBox.Controls.Add(Me.냉난방공조처리시스템ComboBox) + Me.난방공급시스템GroupBox.Controls.Add(Label4) + Me.난방공급시스템GroupBox.Controls.Add(Me.냉난방열공급시스템수NTb) + Me.난방공급시스템GroupBox.Controls.Add(Label5) + Me.난방공급시스템GroupBox.Controls.Add(Me.PictureBox4) + Me.난방공급시스템GroupBox.Location = New System.Drawing.Point(7, 165) + Me.난방공급시스템GroupBox.Name = "난방공급시스템GroupBox" + Me.난방공급시스템GroupBox.Size = New System.Drawing.Size(187, 118) + Me.난방공급시스템GroupBox.TabIndex = 8 + Me.난방공급시스템GroupBox.TabStop = False + ' + 'Label12 + ' + Me.Label12.AutoSize = True + Me.Label12.BackColor = System.Drawing.Color.FromArgb(CType(CType(243, Byte), Integer), CType(CType(244, Byte), Integer), CType(CType(246, Byte), Integer)) + Me.Label12.Location = New System.Drawing.Point(12, 14) + Me.Label12.Name = "Label12" + Me.Label12.Size = New System.Drawing.Size(110, 12) + Me.Label12.TabIndex = 90 + Me.Label12.Text = "[난방공급시스템]" + ' + 'Label3 + ' + Label3.AutoSize = True + Label3.BackColor = System.Drawing.Color.FromArgb(CType(CType(243, Byte), Integer), CType(CType(244, Byte), Integer), CType(CType(246, Byte), Integer)) + Label3.Font = New System.Drawing.Font("돋움", 8.999999!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Label3.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label3.Location = New System.Drawing.Point(4, 65) + Label3.Name = "Label3" + Label3.Size = New System.Drawing.Size(101, 12) + Label3.TabIndex = 34 + Label3.Text = "열공급시스템수:" + ' + '냉난방공조처리시스템ComboBox + ' + Me.냉난방공조처리시스템ComboBox.DisplayMember = "code" + Me.냉난방공조처리시스템ComboBox.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList + Me.냉난방공조처리시스템ComboBox.Font = New System.Drawing.Font("돋움", 8.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.냉난방공조처리시스템ComboBox.FormattingEnabled = True + Me.냉난방공조처리시스템ComboBox.Location = New System.Drawing.Point(85, 88) + Me.냉난방공조처리시스템ComboBox.Name = "냉난방공조처리시스템ComboBox" + Me.냉난방공조처리시스템ComboBox.NectControl = Me.cmb_열생산지정1 + Me.냉난방공조처리시스템ComboBox.Size = New System.Drawing.Size(95, 19) + Me.냉난방공조처리시스템ComboBox.TabIndex = 14 + Me.냉난방공조처리시스템ComboBox.ValueMember = "code" + ' + 'Label4 + ' + Label4.AutoSize = True + Label4.BackColor = System.Drawing.Color.FromArgb(CType(CType(243, Byte), Integer), CType(CType(244, Byte), Integer), CType(CType(246, Byte), Integer)) + Label4.Font = New System.Drawing.Font("돋움", 8.999999!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Label4.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label4.Location = New System.Drawing.Point(4, 34) + Label4.Name = "Label4" + Label4.Size = New System.Drawing.Size(88, 12) + Label4.TabIndex = 32 + Label4.Text = "열공급시스템:" + ' + '냉난방열공급시스템수NTb + ' + Me.냉난방열공급시스템수NTb.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bs, "냉난방열공급시스템수", True)) + Me.냉난방열공급시스템수NTb.Font = New System.Drawing.Font("돋움", 8.999999!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.냉난방열공급시스템수NTb.Location = New System.Drawing.Point(108, 60) + Me.냉난방열공급시스템수NTb.Name = "냉난방열공급시스템수NTb" + Me.냉난방열공급시스템수NTb.NectControl = Nothing + Me.냉난방열공급시스템수NTb.Size = New System.Drawing.Size(72, 21) + Me.냉난방열공급시스템수NTb.TabIndex = 13 + Me.냉난방열공급시스템수NTb.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + ' + 'Label5 + ' + 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.Font = New System.Drawing.Font("돋움", 8.999999!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Label5.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label5.Location = New System.Drawing.Point(4, 92) + Label5.Name = "Label5" + Label5.Size = New System.Drawing.Size(75, 12) + Label5.TabIndex = 36 + Label5.Text = "공조시스템:" + ' + 'PictureBox4 + ' + Me.PictureBox4.BackColor = System.Drawing.Color.FromArgb(CType(CType(243, Byte), Integer), CType(CType(244, Byte), Integer), CType(CType(246, Byte), Integer)) + Me.PictureBox4.Location = New System.Drawing.Point(2, 9) + Me.PictureBox4.Name = "PictureBox4" + Me.PictureBox4.Size = New System.Drawing.Size(183, 106) + Me.PictureBox4.TabIndex = 37 + Me.PictureBox4.TabStop = False + ' + 'ErrProvider + ' + Me.ErrProvider.ContainerControl = Me + ' + 'sortkey + ' + Me.sortkey.DataPropertyName = "sortkey" + DataGridViewCellStyle1.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleCenter + Me.sortkey.DefaultCellStyle = DataGridViewCellStyle1 + Me.sortkey.HeaderText = "▼" + Me.sortkey.Name = "sortkey" + Me.sortkey.SortMode = System.Windows.Forms.DataGridViewColumnSortMode.NotSortable + Me.sortkey.Width = 30 + ' + 'DataGridViewTextBoxColumn1 + ' + Me.DataGridViewTextBoxColumn1.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.Fill + Me.DataGridViewTextBoxColumn1.DataPropertyName = "설명" + Me.DataGridViewTextBoxColumn1.HeaderText = "설명" + Me.DataGridViewTextBoxColumn1.Name = "DataGridViewTextBoxColumn1" + Me.DataGridViewTextBoxColumn1.SortMode = System.Windows.Forms.DataGridViewColumnSortMode.NotSortable + ' + 'Frm_Zone + ' + Me.AutoScaleDimensions = New System.Drawing.SizeF(8.0!, 12.0!) + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font + Me.AutoScroll = True + Me.AutoSize = True + Me.BackColor = System.Drawing.Color.White + Me.ClientSize = New System.Drawing.Size(818, 574) + Me.ControlBox = False + Me.Controls.Add(Me.SplitContainer1) + Me.Font = New System.Drawing.Font("돋움", 8.999999!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.KeyPreview = True + Me.Name = "Frm_Zone" + Me.ShowInTaskbar = False + Me.StartPosition = System.Windows.Forms.FormStartPosition.Manual + Me.Text = "입력존" + CType(Me.bs, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.DS, System.ComponentModel.ISupportInitialize).EndInit() + Me.SplitContainer1.Panel1.ResumeLayout(False) + Me.SplitContainer1.Panel2.ResumeLayout(False) + Me.SplitContainer1.Panel2.PerformLayout() + CType(Me.SplitContainer1, System.ComponentModel.ISupportInitialize).EndInit() + Me.SplitContainer1.ResumeLayout(False) + CType(Me.dv, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.bn, System.ComponentModel.ISupportInitialize).EndInit() + Me.bn.ResumeLayout(False) + Me.bn.PerformLayout() + Me.ToolStrip1.ResumeLayout(False) + Me.ToolStrip1.PerformLayout() + CType(Me.PictureBox3, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).EndInit() + Me.GroupBox8.ResumeLayout(False) + Me.GroupBox8.PerformLayout() + CType(Me.PictureBox8, System.ComponentModel.ISupportInitialize).EndInit() + Me.GroupBox7.ResumeLayout(False) + Me.GroupBox7.PerformLayout() + CType(Me.PictureBox7, System.ComponentModel.ISupportInitialize).EndInit() + Me.GroupBox6.ResumeLayout(False) + Me.GroupBox6.PerformLayout() + CType(Me.PictureBox11, System.ComponentModel.ISupportInitialize).EndInit() + Me.GroupBox5.ResumeLayout(False) + Me.GroupBox5.PerformLayout() + CType(Me.PictureBox6, System.ComponentModel.ISupportInitialize).EndInit() + Me.GroupBox4.ResumeLayout(False) + Me.GroupBox4.PerformLayout() + CType(Me.PictureBox5, System.ComponentModel.ISupportInitialize).EndInit() + Me.GroupBox3.ResumeLayout(False) + Me.GroupBox3.PerformLayout() + CType(Me.PictureBox10, System.ComponentModel.ISupportInitialize).EndInit() + Me.GroupBox2.ResumeLayout(False) + Me.GroupBox2.PerformLayout() + CType(Me.PictureBox9, System.ComponentModel.ISupportInitialize).EndInit() + Me.난방공급시스템GroupBox.ResumeLayout(False) + Me.난방공급시스템GroupBox.PerformLayout() + CType(Me.PictureBox4, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.ErrProvider, System.ComponentModel.ISupportInitialize).EndInit() + Me.ResumeLayout(False) + + End Sub + Friend WithEvents cmb_공조가습생산 As MyCmb + Friend WithEvents 면적NTb As MyTb + Friend WithEvents cmb_열생산지정3 As MyCmb + Friend WithEvents 천장고NTb As MyTb + Friend WithEvents cmb_열생산급탕기기 As MyCmb + Friend WithEvents 순실체적NTb As MyTb + Friend WithEvents cmb_열생산지정1 As MyCmb + Friend WithEvents 열저장능력ComboBox As MyCmb + Friend WithEvents 냉난방공조처리시스템ComboBox As MyCmb + Friend WithEvents 열교가산치ComboBox As MyCmb + Friend WithEvents 냉난방열공급시스템수NTb As MyTb + Friend WithEvents 침기율NTb As MyTb + Friend WithEvents 냉난방열공급시스템ComboBox As MyCmb + Friend WithEvents 냉난방공조ComboBox As MyCmb + Friend WithEvents 외기부하처리여부ComboBox As MyCmb + Friend WithEvents 주말운전방식ComboBox As MyCmb + Friend WithEvents 야간운전방식ComboBox As MyCmb + Friend WithEvents 조명부하산출방법ComboBox As MyCmb + Friend WithEvents 인공광원ComboBox As MyCmb + Friend WithEvents 조명방식ComboBox As MyCmb + Friend WithEvents tb_조명률 As MyTb + Friend WithEvents 조명기기효율NTb As MyTb + Friend WithEvents 보수율NTb As MyTb + Friend WithEvents 실너비NTb As MyTb + Friend WithEvents 실깊이NTb As MyTb + Friend WithEvents 작업면높이NTb1 As MyTb + Friend WithEvents 요구조도NTb1 As MyTb + Friend WithEvents bs As System.Windows.Forms.BindingSource + Public WithEvents DS As Eco2Ar.DS + Friend WithEvents cmb_profile As Eco2Ar.MyCmb + Friend WithEvents cmb_냉난방방식 As Eco2Ar.MyCmb + Friend WithEvents 천장고NTB1 As Eco2Ar.MyTb + Friend WithEvents SplitContainer1 As System.Windows.Forms.SplitContainer + Friend WithEvents dv As CEnergy.arindv + Friend WithEvents bn As System.Windows.Forms.BindingNavigator + Friend WithEvents bt_add As System.Windows.Forms.ToolStripButton + Friend WithEvents bt_Del As System.Windows.Forms.ToolStripButton + Friend WithEvents bt_cancel As System.Windows.Forms.ToolStripButton + Friend WithEvents ToolStripSeparator1 As System.Windows.Forms.ToolStripSeparator + Friend WithEvents 난방공급시스템GroupBox As System.Windows.Forms.GroupBox + Friend WithEvents GroupBox3 As System.Windows.Forms.GroupBox + Friend WithEvents GroupBox2 As System.Windows.Forms.GroupBox + Friend WithEvents ToolStripLabel1 As System.Windows.Forms.ToolStripLabel + Friend WithEvents lbl_pos As System.Windows.Forms.ToolStripLabel + Friend WithEvents GroupBox4 As System.Windows.Forms.GroupBox + Friend WithEvents GroupBox6 As System.Windows.Forms.GroupBox + Friend WithEvents GroupBox5 As System.Windows.Forms.GroupBox + Friend WithEvents 실지수NTb1 As Eco2Ar.MyTb + Friend WithEvents GroupBox8 As System.Windows.Forms.GroupBox + Friend WithEvents GroupBox7 As System.Windows.Forms.GroupBox + Friend WithEvents tb_조명계산치 As Eco2Ar.MyTb + Friend WithEvents tb_점등시간 As Eco2Ar.MyTb + Friend WithEvents tb_조명입력치 As Eco2Ar.MyTb + Friend WithEvents ToolTip1 As System.Windows.Forms.ToolTip + Friend WithEvents PictureBox1 As System.Windows.Forms.PictureBox + Friend WithEvents PictureBox3 As System.Windows.Forms.PictureBox + Friend WithEvents PictureBox4 As System.Windows.Forms.PictureBox + Friend WithEvents PictureBox5 As System.Windows.Forms.PictureBox + Friend WithEvents Label12 As System.Windows.Forms.Label + Friend WithEvents PictureBox6 As System.Windows.Forms.PictureBox + Friend WithEvents PictureBox8 As System.Windows.Forms.PictureBox + Friend WithEvents PictureBox7 As System.Windows.Forms.PictureBox + Friend WithEvents PictureBox10 As System.Windows.Forms.PictureBox + Friend WithEvents PictureBox9 As System.Windows.Forms.PictureBox + Friend WithEvents PictureBox11 As System.Windows.Forms.PictureBox + Friend WithEvents Label14 As System.Windows.Forms.Label + Friend WithEvents Label13 As System.Windows.Forms.Label + Friend WithEvents Label17 As System.Windows.Forms.Label + Friend WithEvents Label15 As System.Windows.Forms.Label + Friend WithEvents ToolStrip1 As System.Windows.Forms.ToolStrip + Friend WithEvents ToolStripLabel2 As System.Windows.Forms.ToolStripLabel + Friend WithEvents lb_외벽 As System.Windows.Forms.ToolStripLabel + Friend WithEvents ToolStripLabel4 As System.Windows.Forms.ToolStripLabel + Friend WithEvents lb_내벽 As System.Windows.Forms.ToolStripLabel + Friend WithEvents ToolStripLabel6 As System.Windows.Forms.ToolStripLabel + Friend WithEvents lb_외부창 As System.Windows.Forms.ToolStripLabel + Friend WithEvents ToolStripLabel8 As System.Windows.Forms.ToolStripLabel + Friend WithEvents lb_내부창 As System.Windows.Forms.ToolStripLabel + Friend WithEvents ToolStripLabel10 As System.Windows.Forms.ToolStripLabel + Friend WithEvents lb_간벽 As System.Windows.Forms.ToolStripLabel + Friend WithEvents cmb_공조냉방생산 As Eco2Ar.MyCmb + Friend WithEvents cmb_공조난방생산 As Eco2Ar.MyCmb + Friend WithEvents bt_copy As System.Windows.Forms.ToolStripButton + Friend WithEvents 입력존의수NTb As Eco2Ar.MyTb + Friend WithEvents ErrProvider As System.Windows.Forms.ErrorProvider + Friend WithEvents lb_grpname As System.Windows.Forms.Label + Friend WithEvents ToolStripLabel3 As System.Windows.Forms.ToolStripLabel + Friend WithEvents lb_면적합 As System.Windows.Forms.ToolStripLabel + Friend WithEvents ToolStripLabel5 As System.Windows.Forms.ToolStripLabel + Friend WithEvents lb_전체존수 As System.Windows.Forms.ToolStripLabel + Friend WithEvents sortkey As System.Windows.Forms.DataGridViewTextBoxColumn + Friend WithEvents DataGridViewTextBoxColumn1 As System.Windows.Forms.DataGridViewTextBoxColumn +End Class diff --git a/ArinWarev1/Forms_Input/Frm_Zone.resx b/ArinWarev1/Forms_Input/Frm_Zone.resx new file mode 100644 index 0000000..dd24e52 --- /dev/null +++ b/ArinWarev1/Forms_Input/Frm_Zone.resx @@ -0,0 +1,444 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + 222, 17 + + + 286, 17 + + + 419, 17 + + + True + + + 353, 17 + + + 519, 17 + + + + + /9j/4AAQSkZJRgABAgEASABIAAD/7gAOQWRvYmUAZAAAAAAB/+ED5kV4aWYAAE1NACoAAAAIAAcBEgAD + AAAAAQABAAABGgAFAAAAAQAAAGIBGwAFAAAAAQAAAGoBKAADAAAAAQACAAABMQACAAAAHAAAAHIBMgAC + AAAAFAAAAI6HaQAEAAAAAQAAAKIAAADCAEgAAAABAAAASAAAAAEAAEFkb2JlIFBob3Rvc2hvcCBDUzMg + V2luZG93cwAyMDEwOjA0OjE1IDIwOjMyOjA0AAACoAIABAAAAAEAAAA8oAMABAAAAAEAAAAMAAAAAAAA + AAYBAwADAAAAAQAGAAABGgAFAAAAAQAAARABGwAFAAAAAQAAARgBKAADAAAAAQACAAACAQAEAAAAAQAA + ASACAgAEAAAAAQAAAr4AAAAAAAAASAAAAAEAAABIAAAAAf/Y/+AAEEpGSUYAAQIAAEgASAAA/+0ADEFk + b2JlX0NNAAH/7gAOQWRvYmUAZIAAAAAB/9sAhAAMCAgICQgMCQkMEQsKCxEVDwwMDxUYExMVExMYEQwM + DAwMDBEMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMAQ0LCw0ODRAODhAUDg4OFBQODg4OFBEMDAwM + DBERDAwMDAwMEQwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAz/wAARCAAMADwDASIAAhEBAxEB/90A + BAAE/8QBPwAAAQUBAQEBAQEAAAAAAAAAAwABAgQFBgcICQoLAQABBQEBAQEBAQAAAAAAAAABAAIDBAUG + BwgJCgsQAAEEAQMCBAIFBwYIBQMMMwEAAhEDBCESMQVBUWETInGBMgYUkaGxQiMkFVLBYjM0coLRQwcl + klPw4fFjczUWorKDJkSTVGRFwqN0NhfSVeJl8rOEw9N14/NGJ5SkhbSVxNTk9KW1xdXl9VZmdoaWprbG + 1ub2N0dXZ3eHl6e3x9fn9xEAAgIBAgQEAwQFBgcHBgU1AQACEQMhMRIEQVFhcSITBTKBkRShsUIjwVLR + 8DMkYuFygpJDUxVjczTxJQYWorKDByY1wtJEk1SjF2RFVTZ0ZeLys4TD03Xj80aUpIW0lcTU5PSltcXV + 5fVWZnaGlqa2xtbm9ic3R1dnd4eXp7fH/9oADAMBAAIRAxEAPwDd/amR/pH/AOcf70v2pkf6R/8AnH+9 + UUlofq/Bpevxb37UyP8ASP8A84/3pftTI/0j/wDOP96opJfq/BXr8W9+1Mj/AEj/APOP96X7UyP9I/8A + zj/eqKSX6vwV6/F3ujdbuGS2i5xfU8HVxktIG76XyW99vo27p0XGdO2/ba930dZj+q5dX+qfZPL8VAeD + 341VVr/eZhx+0bu708n/2f/iDFhJQ0NfUFJPRklMRQABAQAADEhMaW5vAhAAAG1udHJSR0IgWFlaIAfO + AAIACQAGADEAAGFjc3BNU0ZUAAAAAElFQyBzUkdCAAAAAAAAAAAAAAAAAAD21gABAAAAANMtSFAgIAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAEWNwcnQAAAFQAAAAM2Rl + c2MAAAGEAAAAbHd0cHQAAAHwAAAAFGJrcHQAAAIEAAAAFHJYWVoAAAIYAAAAFGdYWVoAAAIsAAAAFGJY + WVoAAAJAAAAAFGRtbmQAAAJUAAAAcGRtZGQAAALEAAAAiHZ1ZWQAAANMAAAAhnZpZXcAAAPUAAAAJGx1 + bWkAAAP4AAAAFG1lYXMAAAQMAAAAJHRlY2gAAAQwAAAADHJUUkMAAAQ8AAAIDGdUUkMAAAQ8AAAIDGJU + UkMAAAQ8AAAIDHRleHQAAAAAQ29weXJpZ2h0IChjKSAxOTk4IEhld2xldHQtUGFja2FyZCBDb21wYW55 + AABkZXNjAAAAAAAAABJzUkdCIElFQzYxOTY2LTIuMQAAAAAAAAAAAAAAEnNSR0IgSUVDNjE5NjYtMi4x + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABYWVogAAAAAAAA + 81EAAQAAAAEWzFhZWiAAAAAAAAAAAAAAAAAAAAAAWFlaIAAAAAAAAG+iAAA49QAAA5BYWVogAAAAAAAA + YpkAALeFAAAY2lhZWiAAAAAAAAAkoAAAD4QAALbPZGVzYwAAAAAAAAAWSUVDIGh0dHA6Ly93d3cuaWVj + LmNoAAAAAAAAAAAAAAAWSUVDIGh0dHA6Ly93d3cuaWVjLmNoAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAGRlc2MAAAAAAAAALklFQyA2MTk2Ni0yLjEgRGVmYXVsdCBSR0Ig + Y29sb3VyIHNwYWNlIC0gc1JHQgAAAAAAAAAAAAAALklFQyA2MTk2Ni0yLjEgRGVmYXVsdCBSR0IgY29s + b3VyIHNwYWNlIC0gc1JHQgAAAAAAAAAAAAAAAAAAAAAAAAAAAABkZXNjAAAAAAAAACxSZWZlcmVuY2Ug + Vmlld2luZyBDb25kaXRpb24gaW4gSUVDNjE5NjYtMi4xAAAAAAAAAAAAAAAsUmVmZXJlbmNlIFZpZXdp + bmcgQ29uZGl0aW9uIGluIElFQzYxOTY2LTIuMQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAdmlldwAA + AAAAE6T+ABRfLgAQzxQAA+3MAAQTCwADXJ4AAAABWFlaIAAAAAAATAlWAFAAAABXH+dtZWFzAAAAAAAA + AAEAAAAAAAAAAAAAAAAAAAAAAAACjwAAAAJzaWcgAAAAAENSVCBjdXJ2AAAAAAAABAAAAAAFAAoADwAU + ABkAHgAjACgALQAyADcAOwBAAEUASgBPAFQAWQBeAGMAaABtAHIAdwB8AIEAhgCLAJAAlQCaAJ8ApACp + AK4AsgC3ALwAwQDGAMsA0ADVANsA4ADlAOsA8AD2APsBAQEHAQ0BEwEZAR8BJQErATIBOAE+AUUBTAFS + AVkBYAFnAW4BdQF8AYMBiwGSAZoBoQGpAbEBuQHBAckB0QHZAeEB6QHyAfoCAwIMAhQCHQImAi8COAJB + AksCVAJdAmcCcQJ6AoQCjgKYAqICrAK2AsECywLVAuAC6wL1AwADCwMWAyEDLQM4A0MDTwNaA2YDcgN+ + A4oDlgOiA64DugPHA9MD4APsA/kEBgQTBCAELQQ7BEgEVQRjBHEEfgSMBJoEqAS2BMQE0wThBPAE/gUN + BRwFKwU6BUkFWAVnBXcFhgWWBaYFtQXFBdUF5QX2BgYGFgYnBjcGSAZZBmoGewaMBp0GrwbABtEG4wb1 + BwcHGQcrBz0HTwdhB3QHhgeZB6wHvwfSB+UH+AgLCB8IMghGCFoIbgiCCJYIqgi+CNII5wj7CRAJJQk6 + CU8JZAl5CY8JpAm6Cc8J5Qn7ChEKJwo9ClQKagqBCpgKrgrFCtwK8wsLCyILOQtRC2kLgAuYC7ALyAvh + C/kMEgwqDEMMXAx1DI4MpwzADNkM8w0NDSYNQA1aDXQNjg2pDcMN3g34DhMOLg5JDmQOfw6bDrYO0g7u + DwkPJQ9BD14Peg+WD7MPzw/sEAkQJhBDEGEQfhCbELkQ1xD1ERMRMRFPEW0RjBGqEckR6BIHEiYSRRJk + EoQSoxLDEuMTAxMjE0MTYxODE6QTxRPlFAYUJxRJFGoUixStFM4U8BUSFTQVVhV4FZsVvRXgFgMWJhZJ + FmwWjxayFtYW+hcdF0EXZReJF64X0hf3GBsYQBhlGIoYrxjVGPoZIBlFGWsZkRm3Gd0aBBoqGlEadxqe + GsUa7BsUGzsbYxuKG7Ib2hwCHCocUhx7HKMczBz1HR4dRx1wHZkdwx3sHhYeQB5qHpQevh7pHxMfPh9p + H5Qfvx/qIBUgQSBsIJggxCDwIRwhSCF1IaEhziH7IiciVSKCIq8i3SMKIzgjZiOUI8Ij8CQfJE0kfCSr + JNolCSU4JWgllyXHJfcmJyZXJocmtyboJxgnSSd6J6sn3CgNKD8ocSiiKNQpBik4KWspnSnQKgIqNSpo + KpsqzysCKzYraSudK9EsBSw5LG4soizXLQwtQS12Last4S4WLkwugi63Lu4vJC9aL5Evxy/+MDUwbDCk + MNsxEjFKMYIxujHyMioyYzKbMtQzDTNGM38zuDPxNCs0ZTSeNNg1EzVNNYc1wjX9Njc2cjauNuk3JDdg + N5w31zgUOFA4jDjIOQU5Qjl/Obw5+To2OnQ6sjrvOy07azuqO+g8JzxlPKQ84z0iPWE9oT3gPiA+YD6g + PuA/IT9hP6I/4kAjQGRApkDnQSlBakGsQe5CMEJyQrVC90M6Q31DwEQDREdEikTORRJFVUWaRd5GIkZn + RqtG8Ec1R3tHwEgFSEtIkUjXSR1JY0mpSfBKN0p9SsRLDEtTS5pL4kwqTHJMuk0CTUpNk03cTiVObk63 + TwBPSU+TT91QJ1BxULtRBlFQUZtR5lIxUnxSx1MTU19TqlP2VEJUj1TbVShVdVXCVg9WXFapVvdXRFeS + V+BYL1h9WMtZGllpWbhaB1pWWqZa9VtFW5Vb5Vw1XIZc1l0nXXhdyV4aXmxevV8PX2Ffs2AFYFdgqmD8 + YU9homH1YklinGLwY0Njl2PrZEBklGTpZT1lkmXnZj1mkmboZz1nk2fpaD9olmjsaUNpmmnxakhqn2r3 + a09rp2v/bFdsr20IbWBtuW4SbmtuxG8eb3hv0XArcIZw4HE6cZVx8HJLcqZzAXNdc7h0FHRwdMx1KHWF + deF2Pnabdvh3VnezeBF4bnjMeSp5iXnnekZ6pXsEe2N7wnwhfIF84X1BfaF+AX5ifsJ/I3+Ef+WAR4Co + gQqBa4HNgjCCkoL0g1eDuoQdhICE44VHhauGDoZyhteHO4efiASIaYjOiTOJmYn+imSKyoswi5aL/Ixj + jMqNMY2Yjf+OZo7OjzaPnpAGkG6Q1pE/kaiSEZJ6kuOTTZO2lCCUipT0lV+VyZY0lp+XCpd1l+CYTJi4 + mSSZkJn8mmia1ZtCm6+cHJyJnPedZJ3SnkCerp8dn4uf+qBpoNihR6G2oiailqMGo3aj5qRWpMelOKWp + phqmi6b9p26n4KhSqMSpN6mpqhyqj6sCq3Wr6axcrNCtRK24ri2uoa8Wr4uwALB1sOqxYLHWskuywrM4 + s660JbSctRO1irYBtnm28Ldot+C4WbjRuUq5wro7urW7LrunvCG8m70VvY++Cr6Evv+/er/1wHDA7MFn + wePCX8Lbw1jD1MRRxM7FS8XIxkbGw8dBx7/IPci8yTrJuco4yrfLNsu2zDXMtc01zbXONs62zzfPuNA5 + 0LrRPNG+0j/SwdNE08bUSdTL1U7V0dZV1tjXXNfg2GTY6Nls2fHadtr724DcBdyK3RDdlt4c3qLfKd+v + 4DbgveFE4cziU+Lb42Pj6+Rz5PzlhOYN5pbnH+ep6DLovOlG6dDqW+rl63Dr++yG7RHtnO4o7rTvQO/M + 8Fjw5fFy8f/yjPMZ86f0NPTC9VD13vZt9vv3ivgZ+Kj5OPnH+lf65/t3/Af8mP0p/br+S/7c/23////b + AEMAAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQICAgICAgICAgICAwMD + AwMDAwMDA//bAEMBAQEBAQEBAQEBAQICAQICAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMD + AwMDAwMDAwMDAwMDAwMDA//AABEIAAwAPAMBEQACEQEDEQH/xAAfAAABBQEBAQEBAQAAAAAAAAAAAQID + BAUGBwgJCgv/xAC1EAACAQMDAgQDBQUEBAAAAX0BAgMABBEFEiExQQYTUWEHInEUMoGRoQgjQrHBFVLR + 8CQzYnKCCQoWFxgZGiUmJygpKjQ1Njc4OTpDREVGR0hJSlNUVVZXWFlaY2RlZmdoaWpzdHV2d3h5eoOE + hYaHiImKkpOUlZaXmJmaoqOkpaanqKmqsrO0tba3uLm6wsPExcbHyMnK0tPU1dbX2Nna4eLj5OXm5+jp + 6vHy8/T19vf4+fr/xAAfAQADAQEBAQEBAQEBAAAAAAAAAQIDBAUGBwgJCgv/xAC1EQACAQIEBAMEBwUE + BAABAncAAQIDEQQFITEGEkFRB2FxEyIygQgUQpGhscEJIzNS8BVictEKFiQ04SXxFxgZGiYnKCkqNTY3 + ODk6Q0RFRkdISUpTVFVWV1hZWmNkZWZnaGlqc3R1dnd4eXqCg4SFhoeIiYqSk5SVlpeYmZqio6Slpqeo + qaqys7S1tre4ubrCw8TFxsfIycrS09TV1tfY2dri4+Tl5ufo6ery8/T19vf4+fr/2gAMAwEAAhEDEQA/ + AP1ZH7UPxEAA/wCEw8bnj/ob9f8A/k+v7U/1Nyj/AKF+G/8ABUP/AJE/llcSZlZf7dX/APBk/wDMX/hq + H4if9Df43/8ACv1//wCT6P8AU3Kf+hfhv/BUP/kQ/wBZcy/6Dq//AIMn/mH/AA1D8RP+hv8AG/8A4V+v + /wDyfR/qblP/AEL8N/4Kh/8AIh/rLmX/AEHV/wDwZP8AzD/hqH4if9Df43/8K/X/AP5Po/1Nyn/oX4b/ + AMFQ/wDkQ/1lzL/oOr/+DJ/5h/w1D8RP+hv8b/8AhX6//wDJ9H+puU/9C/Df+Cof/Ih/rLmX/QdX/wDB + k/8AMT/hqH4if9Df43/8K/X/AP5Po/1Nyn/oX4b/AMFQ/wDkQ/1kzL/oOr/+DJ/5n2R+xz+234zt/iRp + nw+8a6vqXiDwZ4gs9baObXr+bUr/AMPajpmkX2tQ3FlqV2Zb57K7XT2t3tXkaJWkV4whVxJ+beJfAuU4 + Th/FZ/hKEKOMw8qd+SKjGcZzjTs4q0bpyUlJK7s073VvuuBOLMxxGcYfJ8TWlVw1ZTtzu7hKMJTupPWz + UWnFu2qatrf9aP8AhfXgv+zv7U89/sfm+V5207N+M43fSv50P2w/kwr/AEFP42CgAoAKACgAoA9s/Z0/ + s7/hcng3+1vP/s7Ov/avs2PP2f8ACL63t2buP9ZjP+zmvz7xU/5IPPf+4H/qRRPsvD//AJK7KP8AuL/6 + ZqH7/wD/ABaT/hUfb7Ht/wBj7V9p8v8A9Cr+Oz+lz//Z + + + + + /9j/4AAQSkZJRgABAgEASABIAAD/7gAOQWRvYmUAZAAAAAAB/+ED5kV4aWYAAE1NACoAAAAIAAcBEgAD + AAAAAQABAAABGgAFAAAAAQAAAGIBGwAFAAAAAQAAAGoBKAADAAAAAQACAAABMQACAAAAHAAAAHIBMgAC + AAAAFAAAAI6HaQAEAAAAAQAAAKIAAADCAEgAAAABAAAASAAAAAEAAEFkb2JlIFBob3Rvc2hvcCBDUzMg + V2luZG93cwAyMDEwOjA0OjE1IDIwOjMyOjA0AAACoAIABAAAAAEAAAA8oAMABAAAAAEAAAAMAAAAAAAA + AAYBAwADAAAAAQAGAAABGgAFAAAAAQAAARABGwAFAAAAAQAAARgBKAADAAAAAQACAAACAQAEAAAAAQAA + ASACAgAEAAAAAQAAAr4AAAAAAAAASAAAAAEAAABIAAAAAf/Y/+AAEEpGSUYAAQIAAEgASAAA/+0ADEFk + b2JlX0NNAAH/7gAOQWRvYmUAZIAAAAAB/9sAhAAMCAgICQgMCQkMEQsKCxEVDwwMDxUYExMVExMYEQwM + DAwMDBEMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMAQ0LCw0ODRAODhAUDg4OFBQODg4OFBEMDAwM + DBERDAwMDAwMEQwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAz/wAARCAAMADwDASIAAhEBAxEB/90A + BAAE/8QBPwAAAQUBAQEBAQEAAAAAAAAAAwABAgQFBgcICQoLAQABBQEBAQEBAQAAAAAAAAABAAIDBAUG + BwgJCgsQAAEEAQMCBAIFBwYIBQMMMwEAAhEDBCESMQVBUWETInGBMgYUkaGxQiMkFVLBYjM0coLRQwcl + klPw4fFjczUWorKDJkSTVGRFwqN0NhfSVeJl8rOEw9N14/NGJ5SkhbSVxNTk9KW1xdXl9VZmdoaWprbG + 1ub2N0dXZ3eHl6e3x9fn9xEAAgIBAgQEAwQFBgcHBgU1AQACEQMhMRIEQVFhcSITBTKBkRShsUIjwVLR + 8DMkYuFygpJDUxVjczTxJQYWorKDByY1wtJEk1SjF2RFVTZ0ZeLys4TD03Xj80aUpIW0lcTU5PSltcXV + 5fVWZnaGlqa2xtbm9ic3R1dnd4eXp7fH/9oADAMBAAIRAxEAPwDd/amR/pH/AOcf70v2pkf6R/8AnH+9 + UUlofq/Bpevxb37UyP8ASP8A84/3pftTI/0j/wDOP96opJfq/BXr8W9+1Mj/AEj/APOP96X7UyP9I/8A + zj/eqKSX6vwV6/F3ujdbuGS2i5xfU8HVxktIG76XyW99vo27p0XGdO2/ba930dZj+q5dX+qfZPL8VAeD + 341VVr/eZhx+0bu708n/2f/iDFhJQ0NfUFJPRklMRQABAQAADEhMaW5vAhAAAG1udHJSR0IgWFlaIAfO + AAIACQAGADEAAGFjc3BNU0ZUAAAAAElFQyBzUkdCAAAAAAAAAAAAAAAAAAD21gABAAAAANMtSFAgIAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAEWNwcnQAAAFQAAAAM2Rl + c2MAAAGEAAAAbHd0cHQAAAHwAAAAFGJrcHQAAAIEAAAAFHJYWVoAAAIYAAAAFGdYWVoAAAIsAAAAFGJY + WVoAAAJAAAAAFGRtbmQAAAJUAAAAcGRtZGQAAALEAAAAiHZ1ZWQAAANMAAAAhnZpZXcAAAPUAAAAJGx1 + bWkAAAP4AAAAFG1lYXMAAAQMAAAAJHRlY2gAAAQwAAAADHJUUkMAAAQ8AAAIDGdUUkMAAAQ8AAAIDGJU + UkMAAAQ8AAAIDHRleHQAAAAAQ29weXJpZ2h0IChjKSAxOTk4IEhld2xldHQtUGFja2FyZCBDb21wYW55 + AABkZXNjAAAAAAAAABJzUkdCIElFQzYxOTY2LTIuMQAAAAAAAAAAAAAAEnNSR0IgSUVDNjE5NjYtMi4x + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABYWVogAAAAAAAA + 81EAAQAAAAEWzFhZWiAAAAAAAAAAAAAAAAAAAAAAWFlaIAAAAAAAAG+iAAA49QAAA5BYWVogAAAAAAAA + YpkAALeFAAAY2lhZWiAAAAAAAAAkoAAAD4QAALbPZGVzYwAAAAAAAAAWSUVDIGh0dHA6Ly93d3cuaWVj + LmNoAAAAAAAAAAAAAAAWSUVDIGh0dHA6Ly93d3cuaWVjLmNoAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAGRlc2MAAAAAAAAALklFQyA2MTk2Ni0yLjEgRGVmYXVsdCBSR0Ig + Y29sb3VyIHNwYWNlIC0gc1JHQgAAAAAAAAAAAAAALklFQyA2MTk2Ni0yLjEgRGVmYXVsdCBSR0IgY29s + b3VyIHNwYWNlIC0gc1JHQgAAAAAAAAAAAAAAAAAAAAAAAAAAAABkZXNjAAAAAAAAACxSZWZlcmVuY2Ug + Vmlld2luZyBDb25kaXRpb24gaW4gSUVDNjE5NjYtMi4xAAAAAAAAAAAAAAAsUmVmZXJlbmNlIFZpZXdp + bmcgQ29uZGl0aW9uIGluIElFQzYxOTY2LTIuMQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAdmlldwAA + AAAAE6T+ABRfLgAQzxQAA+3MAAQTCwADXJ4AAAABWFlaIAAAAAAATAlWAFAAAABXH+dtZWFzAAAAAAAA + AAEAAAAAAAAAAAAAAAAAAAAAAAACjwAAAAJzaWcgAAAAAENSVCBjdXJ2AAAAAAAABAAAAAAFAAoADwAU + ABkAHgAjACgALQAyADcAOwBAAEUASgBPAFQAWQBeAGMAaABtAHIAdwB8AIEAhgCLAJAAlQCaAJ8ApACp + AK4AsgC3ALwAwQDGAMsA0ADVANsA4ADlAOsA8AD2APsBAQEHAQ0BEwEZAR8BJQErATIBOAE+AUUBTAFS + AVkBYAFnAW4BdQF8AYMBiwGSAZoBoQGpAbEBuQHBAckB0QHZAeEB6QHyAfoCAwIMAhQCHQImAi8COAJB + AksCVAJdAmcCcQJ6AoQCjgKYAqICrAK2AsECywLVAuAC6wL1AwADCwMWAyEDLQM4A0MDTwNaA2YDcgN+ + A4oDlgOiA64DugPHA9MD4APsA/kEBgQTBCAELQQ7BEgEVQRjBHEEfgSMBJoEqAS2BMQE0wThBPAE/gUN + BRwFKwU6BUkFWAVnBXcFhgWWBaYFtQXFBdUF5QX2BgYGFgYnBjcGSAZZBmoGewaMBp0GrwbABtEG4wb1 + BwcHGQcrBz0HTwdhB3QHhgeZB6wHvwfSB+UH+AgLCB8IMghGCFoIbgiCCJYIqgi+CNII5wj7CRAJJQk6 + CU8JZAl5CY8JpAm6Cc8J5Qn7ChEKJwo9ClQKagqBCpgKrgrFCtwK8wsLCyILOQtRC2kLgAuYC7ALyAvh + C/kMEgwqDEMMXAx1DI4MpwzADNkM8w0NDSYNQA1aDXQNjg2pDcMN3g34DhMOLg5JDmQOfw6bDrYO0g7u + DwkPJQ9BD14Peg+WD7MPzw/sEAkQJhBDEGEQfhCbELkQ1xD1ERMRMRFPEW0RjBGqEckR6BIHEiYSRRJk + EoQSoxLDEuMTAxMjE0MTYxODE6QTxRPlFAYUJxRJFGoUixStFM4U8BUSFTQVVhV4FZsVvRXgFgMWJhZJ + FmwWjxayFtYW+hcdF0EXZReJF64X0hf3GBsYQBhlGIoYrxjVGPoZIBlFGWsZkRm3Gd0aBBoqGlEadxqe + GsUa7BsUGzsbYxuKG7Ib2hwCHCocUhx7HKMczBz1HR4dRx1wHZkdwx3sHhYeQB5qHpQevh7pHxMfPh9p + H5Qfvx/qIBUgQSBsIJggxCDwIRwhSCF1IaEhziH7IiciVSKCIq8i3SMKIzgjZiOUI8Ij8CQfJE0kfCSr + JNolCSU4JWgllyXHJfcmJyZXJocmtyboJxgnSSd6J6sn3CgNKD8ocSiiKNQpBik4KWspnSnQKgIqNSpo + KpsqzysCKzYraSudK9EsBSw5LG4soizXLQwtQS12Last4S4WLkwugi63Lu4vJC9aL5Evxy/+MDUwbDCk + MNsxEjFKMYIxujHyMioyYzKbMtQzDTNGM38zuDPxNCs0ZTSeNNg1EzVNNYc1wjX9Njc2cjauNuk3JDdg + N5w31zgUOFA4jDjIOQU5Qjl/Obw5+To2OnQ6sjrvOy07azuqO+g8JzxlPKQ84z0iPWE9oT3gPiA+YD6g + PuA/IT9hP6I/4kAjQGRApkDnQSlBakGsQe5CMEJyQrVC90M6Q31DwEQDREdEikTORRJFVUWaRd5GIkZn + RqtG8Ec1R3tHwEgFSEtIkUjXSR1JY0mpSfBKN0p9SsRLDEtTS5pL4kwqTHJMuk0CTUpNk03cTiVObk63 + TwBPSU+TT91QJ1BxULtRBlFQUZtR5lIxUnxSx1MTU19TqlP2VEJUj1TbVShVdVXCVg9WXFapVvdXRFeS + V+BYL1h9WMtZGllpWbhaB1pWWqZa9VtFW5Vb5Vw1XIZc1l0nXXhdyV4aXmxevV8PX2Ffs2AFYFdgqmD8 + YU9homH1YklinGLwY0Njl2PrZEBklGTpZT1lkmXnZj1mkmboZz1nk2fpaD9olmjsaUNpmmnxakhqn2r3 + a09rp2v/bFdsr20IbWBtuW4SbmtuxG8eb3hv0XArcIZw4HE6cZVx8HJLcqZzAXNdc7h0FHRwdMx1KHWF + deF2Pnabdvh3VnezeBF4bnjMeSp5iXnnekZ6pXsEe2N7wnwhfIF84X1BfaF+AX5ifsJ/I3+Ef+WAR4Co + gQqBa4HNgjCCkoL0g1eDuoQdhICE44VHhauGDoZyhteHO4efiASIaYjOiTOJmYn+imSKyoswi5aL/Ixj + jMqNMY2Yjf+OZo7OjzaPnpAGkG6Q1pE/kaiSEZJ6kuOTTZO2lCCUipT0lV+VyZY0lp+XCpd1l+CYTJi4 + mSSZkJn8mmia1ZtCm6+cHJyJnPedZJ3SnkCerp8dn4uf+qBpoNihR6G2oiailqMGo3aj5qRWpMelOKWp + phqmi6b9p26n4KhSqMSpN6mpqhyqj6sCq3Wr6axcrNCtRK24ri2uoa8Wr4uwALB1sOqxYLHWskuywrM4 + s660JbSctRO1irYBtnm28Ldot+C4WbjRuUq5wro7urW7LrunvCG8m70VvY++Cr6Evv+/er/1wHDA7MFn + wePCX8Lbw1jD1MRRxM7FS8XIxkbGw8dBx7/IPci8yTrJuco4yrfLNsu2zDXMtc01zbXONs62zzfPuNA5 + 0LrRPNG+0j/SwdNE08bUSdTL1U7V0dZV1tjXXNfg2GTY6Nls2fHadtr724DcBdyK3RDdlt4c3qLfKd+v + 4DbgveFE4cziU+Lb42Pj6+Rz5PzlhOYN5pbnH+ep6DLovOlG6dDqW+rl63Dr++yG7RHtnO4o7rTvQO/M + 8Fjw5fFy8f/yjPMZ86f0NPTC9VD13vZt9vv3ivgZ+Kj5OPnH+lf65/t3/Af8mP0p/br+S/7c/23////b + AEMAAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQICAgICAgICAgICAwMD + AwMDAwMDA//bAEMBAQEBAQEBAQEBAQICAQICAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMD + AwMDAwMDAwMDAwMDAwMDA//AABEIAAwAPAMBEQACEQEDEQH/xAAfAAABBQEBAQEBAQAAAAAAAAAAAQID + BAUGBwgJCgv/xAC1EAACAQMDAgQDBQUEBAAAAX0BAgMABBEFEiExQQYTUWEHInEUMoGRoQgjQrHBFVLR + 8CQzYnKCCQoWFxgZGiUmJygpKjQ1Njc4OTpDREVGR0hJSlNUVVZXWFlaY2RlZmdoaWpzdHV2d3h5eoOE + hYaHiImKkpOUlZaXmJmaoqOkpaanqKmqsrO0tba3uLm6wsPExcbHyMnK0tPU1dbX2Nna4eLj5OXm5+jp + 6vHy8/T19vf4+fr/xAAfAQADAQEBAQEBAQEBAAAAAAAAAQIDBAUGBwgJCgv/xAC1EQACAQIEBAMEBwUE + BAABAncAAQIDEQQFITEGEkFRB2FxEyIygQgUQpGhscEJIzNS8BVictEKFiQ04SXxFxgZGiYnKCkqNTY3 + ODk6Q0RFRkdISUpTVFVWV1hZWmNkZWZnaGlqc3R1dnd4eXqCg4SFhoeIiYqSk5SVlpeYmZqio6Slpqeo + qaqys7S1tre4ubrCw8TFxsfIycrS09TV1tfY2dri4+Tl5ufo6ery8/T19vf4+fr/2gAMAwEAAhEDEQA/ + AP1ZH7UPxEAA/wCEw8bnj/ob9f8A/k+v7U/1Nyj/AKF+G/8ABUP/AJE/llcSZlZf7dX/APBk/wDMX/hq + H4if9Df43/8ACv1//wCT6P8AU3Kf+hfhv/BUP/kQ/wBZcy/6Dq//AIMn/mH/AA1D8RP+hv8AG/8A4V+v + /wDyfR/qblP/AEL8N/4Kh/8AIh/rLmX/AEHV/wDwZP8AzD/hqH4if9Df43/8K/X/AP5Po/1Nyn/oX4b/ + AMFQ/wDkQ/1lzL/oOr/+DJ/5h/w1D8RP+hv8b/8AhX6//wDJ9H+puU/9C/Df+Cof/Ih/rLmX/QdX/wDB + k/8AMT/hqH4if9Df43/8K/X/AP5Po/1Nyn/oX4b/AMFQ/wDkQ/1kzL/oOr/+DJ/5n2R+xz+234zt/iRp + nw+8a6vqXiDwZ4gs9baObXr+bUr/AMPajpmkX2tQ3FlqV2Zb57K7XT2t3tXkaJWkV4whVxJ+beJfAuU4 + Th/FZ/hKEKOMw8qd+SKjGcZzjTs4q0bpyUlJK7s073VvuuBOLMxxGcYfJ8TWlVw1ZTtzu7hKMJTupPWz + UWnFu2qatrf9aP8AhfXgv+zv7U89/sfm+V5207N+M43fSv50P2w/kwr/AEFP42CgAoAKACgAoA9s/Z0/ + s7/hcng3+1vP/s7Ov/avs2PP2f8ACL63t2buP9ZjP+zmvz7xU/5IPPf+4H/qRRPsvD//AJK7KP8AuL/6 + ZqH7/wD/ABaT/hUfb7Ht/wBj7V9p8v8A9Cr+Oz+lz//Z + + + + 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 + + + 628, 17 + + + 62 + + \ No newline at end of file diff --git a/ArinWarev1/Forms_Input/Frm_Zone.vb b/ArinWarev1/Forms_Input/Frm_Zone.vb new file mode 100644 index 0000000..d4c9549 --- /dev/null +++ b/ArinWarev1/Forms_Input/Frm_Zone.vb @@ -0,0 +1,1646 @@ +Public Class Frm_Zone + Dim isCopy As Boolean = False + Dim Init As Boolean = False '//validate가 true일경우에만 동작하도록한다. 프로그램초기화중에는 작동하지않도록 + Dim SrcDrv As DataRowView + +#Region "data Base 변경여부및 적용방법" + + '''변경된내용을적용한다. + Public Overrides Function AcceptChanged() As Boolean + dv.EndEdit() + bs.EndEdit() + Me.Validate() + + Dim drv As DataRowView = Me.bs.Current + If drv Is Nothing Then Return False + + Dim dr As DS.tbl_zoneRow = drv.Row + If Not IsNumeric(dr.천장고p) OrElse Not IsNumeric(dr.면적) Then + MsgBox("다음 존의 천장고/면적 정보가 잘못되었습니다" + vbCrLf + vbCrLf + _ + "존 : " + dr.설명 + vbCrLf + _ + "면적 : " + dr.면적 + vbCrLf + _ + "천장고 : " + dr.천장고p + vbCrLf + vbCrLf + _ + "해당 값들은 숫자로 입력되어야 합니다." + vbCrLf + _ + "이 값은 오류제한으로 인해 '0' 값으로 변경됩니다", MsgBoxStyle.Critical, "확인") + + If Not IsNumeric(dr.천장고p) Then dr.천장고p = "0" + If Not IsNumeric(dr.면적) Then dr.면적 = "0" + End If + + + Dim BaseDS As DataSet = CType(bs.DataSource, DataSet) + Dim BaseDT As DataTable = BaseDS.Tables(bs.DataMember) + BaseDT.AcceptChanges() + Return True + End Function + + '''변경된내용이있다면 취소한다. + Public Overrides Function RejectChanged() As Boolean + dv.EndEdit() + bs.EndEdit() + Me.Validate() + + Dim BaseDS As DataSet = CType(bs.DataSource, DataSet) + Dim BaseDT As DataTable = BaseDS.Tables(bs.DataMember) + BaseDT.RejectChanges() + Return True + End Function + + '''데이터에변형이있었는가? + Public Overrides Function HasChanged() As Boolean + dv.EndEdit() + bs.EndEdit() + Me.Validate() + + Dim BaseDS As DataSet = CType(bs.DataSource, DataSet) + Dim BaseDT As DataTable = BaseDS.Tables(bs.DataMember) + Dim ChangeDT As DataTable = BaseDT.GetChanges + If Not ChangeDT Is Nothing Then Return True + Return False + End Function + + '''기본데이터테이블을 반환합니다. + Public Function DT() As DataTable + Dim BaseDS As DataSet = CType(bs.DataSource, DataSet) + Return BaseDS.Tables(bs.DataMember) + End Function +#End Region + + Public Sub New(_opentime) + + ' 이 호출은 디자이너에 필요합니다. + InitializeComponent() + OpenTime = _opentime + ' InitializeComponent() 호출 뒤에 초기화 코드를 추가하십시오. + End Sub + + Private Sub MdiMain_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load + + Me.Show() + My.Application.DoEvents() + 'Work_msg_timer("잠시만 기다려주세요") + + Me.Init = False + 'MdiMain.Toggle_Menu_Color(MdiMain.E_MenuIdx.입력존) + '//공유데이터셋에 연결한다. + Me.bs.DataSource = DSET1 + + '//Zone + AddHandler DSET1.tbl_zone.TableNewRow, AddressOf tblNewRow + AddHandler DSET1.tbl_zone.ColumnChanged, AddressOf tblColumnChanged + AddHandler DSET1.tbl_zone.ColumnChanging, AddressOf tblColumnChanging + + '//모든컨트롤의 cTrl_enter 를 추가합니다 + BindProperty(CType(Me.SplitContainer1.Panel2.Controls, Control.ControlCollection)) + + '//콤보컨트롤 바인딩 + Binding_Zone() + + Me.bs.Filter = "code <> '0'" + If Me.Parameter <> "" Then Me.bs.Filter &= " and 그룹 ='" + Me.Parameter + "'" + Me.lb_grpname.Text = Me.Parameter + + Try + Me.bs.Position = CEnergy.ARINCLASS.Read_LastPos_Frm(Me) + Catch ex As Exception + Me.bs.MoveFirst() + End Try + Me.Init = True + bs_CurrentChanged(sender, e) + Validate_Control() + ZONE_Control() + + AddDebug("▲ Form Load") + End Sub + + Private Sub MdiMain_FormClosed(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosedEventArgs) Handles Me.FormClosed + + AddDebug("▼ Form Closed") + + RemoveHandler DSET1.tbl_zone.TableNewRow, AddressOf tblNewRow + RemoveHandler DSET1.tbl_zone.ColumnChanged, AddressOf tblColumnChanged + RemoveHandler DSET1.tbl_zone.ColumnChanging, AddressOf tblColumnChanging + + CEnergy.ARINCLASS.SaveLoad_FrmSetting(Me, Me.bs.Position, True) + End Sub + +#Region "Control_Enter" + Private Sub BindProperty(ByVal Ctl As Control.ControlCollection) + For Each C As Control In Ctl + If C.Controls.Count > 1 Then + BindProperty(C.Controls) + Else + If C.GetType.ToString.ToUpper.IndexOf("MYTB") <> -1 Then + AddHandler CType(C, MyTb).KeyDown, AddressOf TextBOx_KeyDown + ElseIf C.GetType.ToString.ToUpper.IndexOf("MYCMB") <> -1 Then + AddHandler CType(C, MyCmb).KeyDown, AddressOf Cmd_KeyDown + AddHandler CType(C, MyCmb).MouseHover, AddressOf ComboBox_MouseHover + End If + End If + Next + End Sub + + + Private Sub TextBOx_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) + If e.KeyCode = Keys.Enter AndAlso e.Control Then + Try + Dim Field As String = (CType(sender, MyTb).DataBindings.Item("text").BindingMemberInfo.BindingField) + For Each Dr As DataRow In Dt.Select(Me.bs.Filter, "") + Dr(Field) = CType(sender, MyTb).Text + If Field = "면적" OrElse Field = "천장고p" Then + Dr("순실체적") = TOSG(Dr("면적").ToString) * TOSG(Dr("천장고p").ToString) + End If + Next + Work_msg_timer("모든값이 변경되었습니다", 25) + Show_면적존수합() + Show_순실체적() + Show_점등시간() + Catch ex As Exception + + End Try + + End If + End Sub + Private Sub Cmd_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) + If e.KeyCode = Keys.Enter AndAlso e.Control Then + Try + Dim Field As String = (CType(sender, MyCmb).DataBindings.Item("selectedvalue").BindingMemberInfo.BindingField) + For Each Dr As DataRow In Dt.Select(Me.bs.Filter, "") 'Dt.rows + Dr(Field) = CType(sender, MyCmb).SelectedValue + Next + Work_msg_timer("모든값이 변경되었습니다", 25) + Catch ex As Exception + + End Try + End If + End Sub + + Private Sub ComboBox_MouseHover(ByVal sender As Object, ByVal e As System.EventArgs) + '//공백의 경우 에러가 나서 우선 막아둠. + Try + Me.ToolTip1.SetToolTip(CType(sender, ComboBox), CType(sender, ComboBox).DataBindings("selectedvalue").BindingMemberInfo.BindingMember & vbCrLf & CType(sender, ComboBox).SelectedValue.ToString) + Catch ex As Exception + + End Try + + End Sub + + +#End Region + +#Region "ComboxBox Binding" + Private Sub MdiMain_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown + Select Case e.KeyCode + Case Keys.F12 + ShowHistory() + Case Keys.A + If e.Alt Then + bt_add.PerformClick() + End If + End Select + End Sub + Private Sub Cmb_DeleteVal(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) + If e.KeyCode = Keys.Delete Then + CType(sender, ComboBox).SelectedValue = "" + End If + End Sub + Private Sub Binding_Zone() + Dim bs_cmb_profile As New BindingSource(DSET1, "tbl_profile") + bs_cmb_profile.Sort = "code" + cmb_profile.DataSource = bs_cmb_profile + cmb_profile.DisplayMember = "설명" + cmb_profile.ValueMember = "code" + Me.cmb_profile.DataBindings.Add("selectedvalue", Me.bs, "프로필") + 'AddHandler cmb_profile.KeyDown, AddressOf Cmb_DeleteVal + + Dim bs_cmb_kongkub As New BindingSource(DSET1, "tbl_kongkub") + bs_cmb_kongkub.Sort = "code" + 냉난방열공급시스템ComboBox.DataSource = bs_cmb_kongkub + 냉난방열공급시스템ComboBox.DisplayMember = "설명" + 냉난방열공급시스템ComboBox.ValueMember = "code" + Me.냉난방열공급시스템ComboBox.DataBindings.Add("selectedvalue", Me.bs, "냉난방열공급시스템") + 'AddHandler 냉난방열공급시스템ComboBox.KeyDown, AddressOf Cmb_DeleteVal + + Dim bs_cmb_열저장능력 As New BindingSource(DSET1, "tbl_common") + bs_cmb_열저장능력.Filter = "gubun='1023'" + bs_cmb_열저장능력.Sort = "code" + 열저장능력ComboBox.DataSource = bs_cmb_열저장능력 + 열저장능력ComboBox.DisplayMember = "name" + 열저장능력ComboBox.ValueMember = "name" + Me.열저장능력ComboBox.DataBindings.Add("selectedvalue", Me.bs, "열저장능력") + 'AddHandler 열저장능력ComboBox.KeyDown, AddressOf Cmb_DeleteVal + + Dim bs_cmb_열교가산치 As New BindingSource(DSET1, "tbl_common") + bs_cmb_열교가산치.Filter = "gubun='1022'" + bs_cmb_열교가산치.Sort = "code" + 열교가산치ComboBox.DataSource = bs_cmb_열교가산치 + 열교가산치ComboBox.DisplayMember = "name" + 열교가산치ComboBox.ValueMember = "name" + Me.열교가산치ComboBox.DataBindings.Add("selectedvalue", Me.bs, "열교가산치") + 'AddHandler 열교가산치ComboBox.KeyDown, AddressOf Cmb_DeleteVal + + Dim bs_cmb_주말운전방식 As New BindingSource(DSET1, "tbl_common") + bs_cmb_주말운전방식.Filter = "gubun='1002'" + bs_cmb_주말운전방식.Sort = "code" + 주말운전방식ComboBox.DataSource = bs_cmb_주말운전방식 + 주말운전방식ComboBox.DisplayMember = "name" + 주말운전방식ComboBox.ValueMember = "name" + Me.주말운전방식ComboBox.DataBindings.Add("selectedvalue", Me.bs, "주말운전방식") + 'AddHandler 주말운전방식ComboBox.KeyDown, AddressOf Cmb_DeleteVal + + Dim bs_cmb_야간운전방식 As New BindingSource(DSET1, "tbl_common") + bs_cmb_야간운전방식.Filter = "gubun='1002'" + bs_cmb_야간운전방식.Sort = "code" + 야간운전방식ComboBox.DataSource = bs_cmb_야간운전방식 + 야간운전방식ComboBox.DisplayMember = "name" + 야간운전방식ComboBox.ValueMember = "name" + Me.야간운전방식ComboBox.DataBindings.Add("selectedvalue", Me.bs, "야간운전방식") + 'AddHandler 야간운전방식ComboBox.KeyDown, AddressOf Cmb_DeleteVal + + Dim bs_cmb_외기처리여부 As New BindingSource(DSET1, "tbl_common") + bs_cmb_외기처리여부.Filter = "gubun='1054'" + bs_cmb_외기처리여부.Sort = "code" + 외기부하처리여부ComboBox.DataSource = bs_cmb_외기처리여부 + 외기부하처리여부ComboBox.DisplayMember = "name" + 외기부하처리여부ComboBox.ValueMember = "name" + Me.외기부하처리여부ComboBox.DataBindings.Add("selectedvalue", Me.bs, "외기부하처리여부") + 'AddHandler 외기부하처리여부ComboBox.KeyDown, AddressOf Cmb_DeleteVal + + Dim bs_cmb_냉난방공조 As New BindingSource(DSET1, "tbl_common") + bs_cmb_냉난방공조.Filter = "gubun='1001'" + bs_cmb_냉난방공조.Sort = "code" + 냉난방공조ComboBox.DataSource = bs_cmb_냉난방공조 + 냉난방공조ComboBox.DisplayMember = "name" + 냉난방공조ComboBox.ValueMember = "name" + Me.냉난방공조ComboBox.DataBindings.Add("selectedvalue", Me.bs, "냉난방공조") + 'AddHandler 냉난방공조ComboBox.KeyDown, AddressOf Cmb_DeleteVal + + Dim bs_cmb_냉난방방식 As New BindingSource(DSET1, "tbl_common") + bs_cmb_냉난방방식.Filter = "gubun='1000'" + bs_cmb_냉난방방식.Sort = "code" + cmb_냉난방방식.DataSource = bs_cmb_냉난방방식 + cmb_냉난방방식.DisplayMember = "name" + cmb_냉난방방식.ValueMember = "name" + Me.cmb_냉난방방식.DataBindings.Add("selectedvalue", Me.bs, "냉난방방식") + 'AddHandler cmb_냉난방방식.KeyDown, AddressOf Cmb_DeleteVal + + + Dim bs_cmb_공조처리 As New BindingSource(DSET1, "tbl_kongjo") + bs_cmb_공조처리.Sort = "code" + 냉난방공조처리시스템ComboBox.DataSource = bs_cmb_공조처리 + 냉난방공조처리시스템ComboBox.DisplayMember = "설명" + 냉난방공조처리시스템ComboBox.ValueMember = "code" + Me.냉난방공조처리시스템ComboBox.DataBindings.Add("selectedvalue", Me.bs, "냉난방공조처리시스템") + 'AddHandler 냉난방공조처리시스템ComboBox.KeyDown, AddressOf Cmb_DeleteVal + + Dim bs_cmb_난방기기 As New BindingSource(DSET1, "tbl_nanbangkiki") + bs_cmb_난방기기.Sort = "code" + cmb_열생산지정1.DataSource = bs_cmb_난방기기 + cmb_열생산지정1.DisplayMember = "설명" + cmb_열생산지정1.ValueMember = "code" + Me.cmb_열생산지정1.DataBindings.Add("selectedvalue", Me.bs, "열생산난방생산기기") + 'AddHandler cmb_열생산지정1.KeyDown, AddressOf Cmb_DeleteVal + + + '//공조추가 101105 + Dim bs_cmb_공조난방기기 As New BindingSource(DSET1, "tbl_nanbangkiki") + bs_cmb_공조난방기기.Sort = "code" + cmb_공조난방생산.DataSource = bs_cmb_공조난방기기 + cmb_공조난방생산.DisplayMember = "설명" + cmb_공조난방생산.ValueMember = "code" + Me.cmb_공조난방생산.DataBindings.Add("selectedvalue", Me.bs, "공조난방생산기기") + + Dim bs_cmb_공조냉방기기 As New BindingSource(DSET1, "tbl_nangbangkiki") + bs_cmb_공조냉방기기.Sort = "code" + cmb_공조냉방생산.DataSource = bs_cmb_공조냉방기기 + cmb_공조냉방생산.DisplayMember = "설명" + cmb_공조냉방생산.ValueMember = "code" + Me.cmb_공조냉방생산.DataBindings.Add("selectedvalue", Me.bs, "공조냉방생산기기") + '//공조추가 101105 + + Dim bs_cmb_급탕기기 As New BindingSource(DSET1, "tbl_nanbangkiki") + bs_cmb_급탕기기.Sort = "code" + cmb_열생산급탕기기.DataSource = bs_cmb_급탕기기 + cmb_열생산급탕기기.DisplayMember = "설명" + cmb_열생산급탕기기.ValueMember = "code" + Me.cmb_열생산급탕기기.DataBindings.Add("selectedvalue", Me.bs, "열생산급탕생산기기") + 'AddHandler cmb_열생산지정2.KeyDown, AddressOf Cmb_DeleteVal + + Dim bs_cmb_냉방기기 As New BindingSource(DSET1, "tbl_nangbangkiki") + bs_cmb_냉방기기.Sort = "code" + cmb_열생산지정3.DataSource = bs_cmb_냉방기기 + cmb_열생산지정3.DisplayMember = "설명" + cmb_열생산지정3.ValueMember = "code" + Me.cmb_열생산지정3.DataBindings.Add("selectedvalue", Me.bs, "열생산냉방생산기기") + 'AddHandler cmb_열생산지정3.KeyDown, AddressOf Cmb_DeleteVal + + Dim bs_cmb_가습기기 As New BindingSource(DSET1, "tbl_nanbangkiki") + bs_cmb_가습기기.Sort = "code" + cmb_공조가습생산.DataSource = bs_cmb_가습기기 + cmb_공조가습생산.DisplayMember = "설명" + cmb_공조가습생산.ValueMember = "code" + Me.cmb_공조가습생산.DataBindings.Add("selectedvalue", Me.bs, "열생산가습생산기기") + 'AddHandler cmb_열생산지정4.KeyDown, AddressOf Cmb_DeleteVal + + 'Dim bs_cmb_냉방공조분배 As New BindingSource(DSET, "tbl_bunbae") + 'bs_cmb_냉방공조분배.Sort = "code" + '냉난방공조분배시스템ComboBox.DataSource = bs_cmb_냉방공조분배 + '냉난방공조분배시스템ComboBox.DisplayMember = "설명" + '냉난방공조분배시스템ComboBox.ValueMember = "code" + 'Me.냉난방공조분배시스템ComboBox.DataBindings.Add("selectedvalue", Me.bs, "냉난방공조분배시스템") + ''AddHandler 냉난방공조분배시스템ComboBox.KeyDown, AddressOf Cmb_DeleteVal + + 'Dim bs_cmb_냉방분배 As New BindingSource(DSET, "tbl_bunbae") + 'bs_cmb_냉방분배.Sort = "code" + '냉난방분배시스템ComboBox.DataSource = bs_cmb_냉방분배 + '냉난방분배시스템ComboBox.DisplayMember = "설명" + '냉난방분배시스템ComboBox.ValueMember = "code" + 'Me.냉난방분배시스템ComboBox.DataBindings.Add("selectedvalue", Me.bs, "냉난방분배시스템") + ''AddHandler 냉난방분배시스템ComboBox.KeyDown, AddressOf Cmb_DeleteVal + + Dim bs_cmb_조명부하산출방법 As New BindingSource(DSET1, "tbl_common") + bs_cmb_조명부하산출방법.Sort = "code" + bs_cmb_조명부하산출방법.Filter = "gubun='1031'" + 조명부하산출방법ComboBox.DataSource = bs_cmb_조명부하산출방법 + 조명부하산출방법ComboBox.DisplayMember = "name" + 조명부하산출방법ComboBox.ValueMember = "name" + Me.조명부하산출방법ComboBox.DataBindings.Add("selectedvalue", Me.bs, "조명부하산출방법") + 'AddHandler 조명부하산출방법ComboBox.KeyDown, AddressOf Cmb_DeleteVal + + Dim bs_cmb_인공광원 As New BindingSource(DSET1, "tbl_common") + bs_cmb_인공광원.Sort = "code" + bs_cmb_인공광원.Filter = "gubun='1024'" + Me.인공광원ComboBox.DataSource = bs_cmb_인공광원 + 인공광원ComboBox.DisplayMember = "name" + 인공광원ComboBox.ValueMember = "name" + Me.인공광원ComboBox.DataBindings.Add("selectedvalue", Me.bs, "인공광원") + 'AddHandler 인공광원ComboBox.KeyDown, AddressOf Cmb_DeleteVal + + Dim bs_cmb_조명방식 As New BindingSource(DSET1, "tbl_common") + bs_cmb_조명방식.Sort = "code" + bs_cmb_조명방식.Filter = "gubun='1025'" + Me.조명방식ComboBox.DataSource = bs_cmb_조명방식 + 조명방식ComboBox.DisplayMember = "name" + 조명방식ComboBox.ValueMember = "name" + Me.조명방식ComboBox.DataBindings.Add("selectedvalue", Me.bs, "조명방식") + 'AddHandler 조명방식ComboBox.KeyDown, AddressOf Cmb_DeleteVal + + 'Dim bs_cmb_그룹존 As New BindingSource(DSET, "tbl_common") + 'bs_cmb_그룹존.Sort = "code" + 'bs_cmb_그룹존.Filter = "gubun='1200'" + 'Me.cmb_그룹_존.DataSource = bs_cmb_그룹존 + 'Me.cmb_그룹_존.DisplayMember = "name" + 'Me.cmb_그룹_존.ValueMember = "name" + 'Me.cmb_그룹_존.DataBindings.Add("selectedvalue", Me.bs, "그룹") + 'AddHandler 조명방식ComboBox.KeyDown, AddressOf Cmb_DeleteVal + End Sub + + '''새로운데이터가 추가될때 발생하는 이벤트 + Private Sub tblNewRow(ByVal sender As Object, ByVal e As System.Data.DataTableNewRowEventArgs) + AddDebug("tblNewRow") + e.Row.Item("code") = GetMaxCode(DSET1.tbl_zone, DSET1.tbl_myoun) + e.Row.Item("조명부하산출방법") = "입력치" + e.Row.Item("설명") = "신규이름" + If Me.Parameter = "" Then + e.Row.Item("그룹") = "0" + e.Row.Item("sortkey") = GetNewSortKey(DSET1.tbl_zone) + Else + e.Row.Item("그룹") = Me.Parameter '//그룹값이있다면 기본그룹값으로처리해준다. + e.Row.Item("sortkey") = GetNewSortKey(DSET1.tbl_zone, Me.Parameter) + + '//동일그룹내의 최대값을 찾는다 + End If + + '//위처럼 데이터를 넣어주면 기본값이 되요.. 계산치 + End Sub + + Private Function GetNewSortKey(ByRef dt As DS.tbl_zoneDataTable, Optional grpname As String = "") As String + If dt.Rows.Count < 1 Then Return 1 + + If Not String.IsNullOrWhiteSpace(grpname) Then + Dim drows() As DS.tbl_zoneRow = dt.Select("그룹='" + grpname + "' and code <> '0'", "sortkey desc") + If drows.Length < 1 Then Return 1 + Dim Dr As DS.tbl_zoneRow = drows(0) + Dim maxsortkey As Integer = Dr.sortkey + Return maxsortkey + 1 + Else + Dim drows() As DS.tbl_zoneRow = dt.Select("code <> '0'", "sortkey desc") + If drows.Length < 1 Then Return 1 + Dim Dr As DS.tbl_zoneRow = drows(0) + Dim maxsortkey As Integer = Dr.sortkey + Return maxsortkey + 1 + End If + + End Function + + Private Function GetMaxCode(ByRef dt As DataTable, ByRef dt_myoun As DataTable) As String + Try + Dim Dr As DataRow = dt.Select("", "code desc")(0) + Dim Dr_myoun As DataRow = dt_myoun.Select("", "존분류 desc")(0) + Dim str_zone As String = Dr("code").ToString + Dim str_myoun As String = Dr_myoun("존분류").ToString + If CInt(str_zone) >= CInt(str_myoun) Then + Return Format(CInt(str_zone) + 1, "00000") + Else + Return Format(CInt(str_myoun) + 1, "00000") + End If + Catch ex As Exception + Return "00001" + End Try + End Function + + Private Sub ToolStripButton48_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt_add.Click + If Not EndEdit(Me.bs) Then Return + Me.bs.AddNew() + Me.dv.Refresh() + INitRow(Me.Controls) + bs.EndEdit() + DT.AcceptChanges() + MdiMain.RefreshMenuList(TreeTag) + End Sub + + Private Sub ToolStripButton49_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt_Del.Click + Del_ZoneMyoun(True) + MdiMain.RefreshMenuList(TreeTag) + End Sub + + Private Sub ToolStripButton51_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt_cancel.Click + If Not EndEdit(Me.bs) Then Return + Data_Cancel(DSET1.tbl_profile, Nothing) + MdiMain.RefreshMenuList(TreeTag) + 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 + If Me.bs.Position < Me.bs.Count Then Me.bs.Position += 1 + Else + If Me.bs.Position > 0 Then Me.bs.Position -= 1 + End If + Me.Validate() + My.Application.DoEvents() + End Sub + +#End Region + + Private Sub tblColumnChanging(ByVal sender As Object, ByVal e As System.Data.DataColumnChangeEventArgs) + Dim oval As String = e.Row(e.Column.ColumnName).ToString + Dim nval As String = e.ProposedValue.ToString + + AddDebug(String.Format("♠값변경중 {0} {1}->{2}", e.Column.ColumnName, oval, nval)) + + If oval <> nval Then + Dim newdr As DS2.historyRow = DSHistory.history.NewhistoryRow + newdr.time = Now.ToString("yyyy-MM-dd HH:mm:ss") + newdr.tablename = "tbl_zone" + newdr.ovalue = oval + newdr.nvalue = nval + newdr.column = e.Column.ColumnName + newdr.code = e.Row("code").ToString + DSHistory.history.AddhistoryRow(newdr) + DSHistory.history.AcceptChanges() + End If + End Sub + Private Sub tblColumnChanged(ByVal sender As Object, ByVal e As System.Data.DataColumnChangeEventArgs) + '//값이바뀐다면 조명의실지수값을 재계산한다. + Dim oval As String = e.Row(e.Column.ColumnName).ToString + Dim nval As String = e.ProposedValue.ToString + + AddDebug(String.Format("♠값변경됨 {0} {1}->{2}", e.Column.ColumnName, oval, nval)) + + Select Case e.Column.Caption.Trim + Case "면적", "천장고p" '//순실체적 + Try + Me.순실체적NTb.Text = Val(e.Row("면적")) * Val(e.Row("천장고p")) + Catch ex As Exception + Me.순실체적NTb.Text = 0 + 'e.Row("순실체적") = 0 + End Try + Me.bs.EndEdit() + Case "실깊이", "실너비", "천장고", "작업면높이" + If Me.조명부하산출방법ComboBox.Text = "계산치" Then + Try + Dim 실깊이 As Decimal = TOSG(e.Row("실깊이")) + Dim 실너비 As Decimal = TOSG(e.Row("실너비")) + Dim 천장고 As Decimal = TOSG(e.Row("천장고")) + Dim 작업면높이 As Decimal = TOSG(e.Row("작업면높이")) + e.Row("실지수") = 실깊이 * 실너비 / ((천장고 - 작업면높이) * (실깊이 + 실너비)) + Catch ex As Exception + e.Row("실지수") = 0 + End Try + End If + Me.bs.EndEdit() + Case "조명방식", "인공광원", "실지수" + 'MsgBox("2") + If Me.조명부하산출방법ComboBox.Text = "계산치" Then + Dim 조명방식 As String = TOST(e.Row("조명방식")) + Dim 인공광원 As String = TOST(e.Row("인공광원")) + Select Case 인공광원.Trim + Case "형광등" + e.Row("조명기기효율") = 65 + Case "백열등" + e.Row("조명기기효율") = 15 + Case "할로겐등" + e.Row("조명기기효율") = 21 + Case "고압수은등" + e.Row("조명기기효율") = 52 + Case "메탈할라이드등" + e.Row("조명기기효율") = 72 + Case "고압나트륨등" + e.Row("조명기기효율") = 108 + Case Else + e.Row("조명기기효율") = 0 + End Select + Try + If e.Row("실지수").ToString <> "" AndAlso e.Row("실지수").ToString <> "NaN" Then + Dim 실지수 As Decimal = TOSG(e.Row("실지수")) + If 조명방식 = "직접" Then '//직접 + e.Row("조명률") = TOSG(IIf(인공광원 = "백열등", TOSG(78 - 32 / (실지수 + 0.47)), TOSG(70 - 38 / (실지수 + 0.35)))) * 0.01 + Else '//간접 + e.Row("조명률") = (52 - 60 / (실지수 + 1.02)) * 0.01 + End If + Else + e.Row("조명률") = 0 + End If + + Catch ex As Exception + e.Row("조명률") = 0 + End Try + + End If + Me.bs.EndEdit() + Case "보수율", "조명기기효율", "조명률", "요구조도" + If Me.조명부하산출방법ComboBox.Text = "계산치" Then + Try + Dim 보수율 As Decimal = TOSG(e.Row("보수율")) + Dim 효율 As Decimal = TOSG(e.Row("조명기기효율")) + Dim 조명률 As Decimal = TOSG(e.Row("조명률")) + Dim 요구조도 As Decimal = TOSG(e.Row("요구조도")) + e.Row("조명에너지부하율계산치") = 요구조도 / (조명률 * 보수율 * 효율) + Catch ex As Exception + e.Row("조명에너지부하율계산치") = 0 + End Try + End If + Me.bs.EndEdit() + End Select + + + End Sub + + Private Sub 조명부하산출방법ComboBox_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles 조명부하산출방법ComboBox.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)) + 'MsgBox(CB.GetUpperBound(0)) + If CB.GetUpperBound(0) <> 19 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() '//한줄추가 + + Dim Cnt As Short = 0 + For i As Integer = 0 To CB.GetUpperBound(0) + Select Case i + Case 0 '///조명은 신규기록하지않으므로.. 쓰지않게한다. + 'CType(bs.Current, DataRowView)("설명") = CB(i).Split(CChar(vbTab))(ii).Trim + Case 0 + 2 + If CB(i).Split(CChar(vbTab))(ii).Trim = "" Then + Me.조명부하산출방법ComboBox.SelectedIndex = 0 + Else + Me.조명부하산출방법ComboBox.Text = CB(i).Split(CChar(vbTab))(ii).Trim + End If + 'Me.조명부하산출방법ComboBox.Text = CB(i).Split(CChar(vbTab))(ii).Trim + Case 1 + 2 + Me.요구조도NTb1.Text = CB(i).Split(CChar(vbTab))(ii).Trim + Case 2 + 2 + Me.천장고NTB1.Text = CB(i).Split(CChar(vbTab))(ii).Trim + Case 3 + 2 + Me.작업면높이NTb1.Text = CB(i).Split(CChar(vbTab))(ii).Trim + Case 4 + 2 + Me.실깊이NTb.Text = CB(i).Split(CChar(vbTab))(ii).Trim + Case 5 + 2 + Me.실너비NTb.Text = CB(i).Split(CChar(vbTab))(ii).Trim + Case 6 '//실지수넘어감 + Case 7 + 2 + Case 8 + 2 + Case 9 + 2 + If CB(i).Split(CChar(vbTab))(ii).Trim = "" Then + Me.조명방식ComboBox.SelectedIndex = 0 + Else + Me.조명방식ComboBox.Text = CB(i).Split(CChar(vbTab))(ii).Trim + End If + ' Me.조명방식ComboBox.Text = CB(i).Split(CChar(vbTab))(ii).Trim + Case 10 + 2 + If CB(i).Split(CChar(vbTab))(ii).Trim = "" Then + Me.인공광원ComboBox.SelectedIndex = 0 + Else + Me.인공광원ComboBox.Text = CB(i).Split(CChar(vbTab))(ii).Trim + End If + 'Me.인공광원ComboBox.Text = CB(i).Split(CChar(vbTab))(ii).Trim + Case 11 + 2 + Me.보수율NTb.Text = CB(i).Split(CChar(vbTab))(ii).Trim + Case 12 + 2 + Me.tb_점등시간.Text = CB(i).Split(CChar(vbTab))(ii).Trim + Case 13 + 2 + ' Me.조명기기효율NTb.Text = CB(i).Split(CChar(vbTab))(ii).Trim + Case 14 + 2 + 'Me.조명률NTb.Text = CB(i).Split(CChar(vbTab))(ii).Trim + Case 15 + 2 + 'me.조명에너지부하율계산치NTb.Text= CB(i).Split(CChar(vbTab))(ii).Trim + Case 16 + 2 + Me.tb_조명입력치.Text = CB(i).Split(CChar(vbTab))(ii).Trim + End Select + Next + If bs.Position < bs.Count Then bs.Position += 1 '//위치이동 + Next + Me.bs.EndEdit() + + End If + End Sub + + Private Sub 조명부하산출방법ComboBox_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 조명부하산출방법ComboBox.SelectedIndexChanged + Validate_Control() + End Sub + + Private Sub Validate_Control() + If Not Init Then Return + If isCopy Then Return + '=============================================================2012.07.08 추가 + Try + If Me.입력존의수NTb.Text = "" Then + Me.입력존의수NTb.Text = "1" + End If + Catch ex As Exception + + End Try + + + + + + '=============================================================2012.07.08 추가 + + ' If Me.TabControl2.SelectedIndex = 1 Then '//조명부하의경우 탭컨트롤이 1일때 행한다. + Try + If Me.조명부하산출방법ComboBox.Text = "계산치" Then '//계산치 + Me.요구조도NTb1.Enabled = True + Me.천장고NTB1.Enabled = True + Me.작업면높이NTb1.Enabled = True + Me.실깊이NTb.Enabled = True + Me.실너비NTb.Enabled = True + Me.실지수NTb1.Enabled = True + Me.조명방식ComboBox.Enabled = True + Me.인공광원ComboBox.Enabled = True + Me.보수율NTb.Enabled = True + 'Me.점등시간NTb.Enabled = False + Me.조명기기효율NTb.Enabled = True + Me.tb_조명률.Enabled = True + Me.tb_조명계산치.Enabled = True + Me.tb_조명입력치.Enabled = False + Else + Me.요구조도NTb1.Enabled = False + Me.천장고NTB1.Enabled = False + Me.작업면높이NTb1.Enabled = False + Me.실깊이NTb.Enabled = False + Me.실너비NTb.Enabled = False + Me.실지수NTb1.Enabled = False + + Me.조명방식ComboBox.SelectedIndex = 0 + Me.인공광원ComboBox.SelectedIndex = 0 + Me.조명방식ComboBox.Enabled = False + Me.인공광원ComboBox.Enabled = False + + Me.보수율NTb.Enabled = False + 'Me.점등시간NTb.Enabled = False + Me.조명기기효율NTb.Enabled = False + Me.tb_조명률.Enabled = False + Me.tb_조명계산치.Enabled = False + Me.tb_조명입력치.Enabled = True + 'Me.점등시간TextBox.Enabled = True + End If + + + Catch ex As Exception + + End Try + Try + + If Not Me.cmb_profile.SelectedItem Is Nothing Then + + Dim 프로파일일일급탕 As String = CType(Me.cmb_profile.SelectedItem, DataRowView)("일일급탕요구량").ToString() + If 프로파일일일급탕 = "0" Then + Me.cmb_열생산급탕기기.SelectedIndex = 0 + Me.cmb_열생산급탕기기.Enabled = False + Else + Me.cmb_열생산급탕기기.Enabled = True + End If + End If + + + 'Select Case Me.cmb_profile.SelectedIndex + ' Case 0, 7, 9, 10, 12 + ' Me.cmb_열생산급탕기기.SelectedIndex = 0 + ' Me.cmb_열생산급탕기기.Enabled = False + ' Case Else + ' Me.cmb_열생산급탕기기.Enabled = True + 'End Select + + Catch ex As Exception + ' MsgBox(ex.Message.ToString, MsgBoxStyle.Critical) + End Try + + ' End If + Show_점등시간() + Me.bs.EndEdit() + End Sub + + Private Sub 인공광원ComboBox_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 인공광원ComboBox.SelectedIndexChanged + Try + Me.조명기기효율NTb.Text = CStr(CType(Me.인공광원ComboBox.SelectedItem, DataRowView)("valn1")) + Me.bs.EndEdit() + Catch ex As Exception + Me.조명기기효율NTb.Text = "0.0" + End Try + + End Sub + + Private Sub 조명방식ComboBox_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 조명방식ComboBox.SelectedIndexChanged + Me.bs.EndEdit() + End Sub + + Private Sub cmb_profile_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles cmb_profile.KeyDown + If e.KeyCode = Keys.V And e.Control Then + isCopy = True + e.Handled = True + e.SuppressKeyPress = False + '//클립보드붙여넣기 + Dim CB() As String = My.Computer.Clipboard.GetText.Split(CChar(vbCrLf)) + If CB.GetUpperBound(0) <> 35 Then + MsgBox("정상적인 데이터가 아닙니다") + 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() '//한줄추가 + + Dim Cnt As Short = 0 + For i As Integer = 0 To CB.GetUpperBound(0) + Select Case i + Case 0 + CType(bs.Current, DataRowView)("설명") = CB(i).Split(CChar(vbTab))(ii).Trim + Case 0 + 3 '//사용프로필 앞에 두개를 숫자4자리로변환 + Me.cmb_profile.Text = CStr(IIf(CB(i).Split(CChar(vbTab))(ii).Trim = "", "0", CB(i).Split(CChar(vbTab))(ii).Trim)) + Case 1 + 3 '//공란 + Case 2 + 3 '//면적 + Me.면적NTb.Text = CB(i).Split(CChar(vbTab))(ii).Trim + Case 3 + 3 + Me.천장고NTb.Text = CB(i).Split(CChar(vbTab))(ii).Trim + Case 4 + 3 + 'Me.순실체적NTb.Text = CB(i).Split(CChar(vbTab))(ii).Trim + Case 5 + 3 + 'If CB(i).Split(CChar(vbTab))(ii).Trim = "" Then Me.열저장능력ComboBox.SelectedIndex = -1 + If CB(i).Split(CChar(vbTab))(ii).Trim = "" Then + Me.열저장능력ComboBox.SelectedIndex = 0 + Else + Me.열저장능력ComboBox.Text = CB(i).Split(CChar(vbTab))(ii).Trim + End If + + Case 6 + 3 + ' If CB(i).Split(CChar(vbTab))(ii).Trim = "" Then Me.열교가산치ComboBox.SelectedIndex = -1 + If CB(i).Split(CChar(vbTab))(ii).Trim = "" Then + Me.열교가산치ComboBox.SelectedIndex = 0 + Else + Me.열교가산치ComboBox.Text = CB(i).Split(CChar(vbTab))(ii).Trim + End If + 'Me.열교가산치ComboBox.Text = CStr(IIf( CB(i).Split(CChar(vbTab))(ii).Trim = "", "0", CB(i).Split(CChar(vbTab))(ii).Trim)) + Case 7 + 3 + Me.침기율NTb.Text = CB(i).Split(CChar(vbTab))(ii).Trim + Case 8 + 3 + 'If CB(i).Split(CChar(vbTab))(ii).Trim = "" Then Me.cmb_냉난방방식.SelectedIndex = -1 + If CB(i).Split(CChar(vbTab))(ii).Trim = "" Then + Me.cmb_냉난방방식.SelectedIndex = 0 + Else + Me.cmb_냉난방방식.Text = CB(i).Split(CChar(vbTab))(ii).Trim + End If + 'Me.cmb_냉난방방식.Text = CStr(IIf( CB(i).Split(CChar(vbTab))(ii).Trim = "", "0", CB(i).Split(CChar(vbTab))(ii).Trim)) + Case 9 + 3 + 'If CB(i).Split(CChar(vbTab))(ii).Trim = "" Then Me.냉난방공조ComboBox.SelectedIndex = -1 + If CB(i).Split(CChar(vbTab))(ii).Trim = "" Then + Me.냉난방공조ComboBox.SelectedIndex = 0 + Else + Me.냉난방공조ComboBox.Text = CB(i).Split(CChar(vbTab))(ii).Trim + End If + 'Me.냉난방공조ComboBox.Text = CStr(IIf( CB(i).Split(CChar(vbTab))(ii).Trim = "", "0", CB(i).Split(CChar(vbTab))(ii).Trim)) + Case 10 + 3 + ' If CB(i).Split(CChar(vbTab))(ii).Trim = "" Then Me.외기부하처리여부ComboBox.SelectedIndex = -1 + If CB(i).Split(CChar(vbTab))(ii).Trim = "" Then + Me.외기부하처리여부ComboBox.SelectedIndex = 0 + Else + Me.외기부하처리여부ComboBox.Text = CB(i).Split(CChar(vbTab))(ii).Trim + End If + 'Me.외기부하처리여부ComboBox.Text = CStr(IIf( CB(i).Split(CChar(vbTab))(ii).Trim = "", "0", CB(i).Split(CChar(vbTab))(ii).Trim)) + Case 11 + 3 '//지역사용안함 + Case 12 + 3 '//야간운전방식 + 'If CB(i).Split(CChar(vbTab))(ii).Trim = "" Then Me.야간운전방식ComboBox.SelectedIndex = -1 + If CB(i).Split(CChar(vbTab))(ii).Trim = "" Then + Me.야간운전방식ComboBox.SelectedIndex = 0 + Else + Me.야간운전방식ComboBox.Text = CB(i).Split(CChar(vbTab))(ii).Trim + End If + 'Me.야간운전방식ComboBox.Text = CStr(IIf( CB(i).Split(CChar(vbTab))(ii).Trim = "", "0", CB(i).Split(CChar(vbTab))(ii).Trim)) + Case 13 + 3 '//주말운전방식 + ' If CB(i).Split(CChar(vbTab))(ii).Trim = "" Then Me.주말운전방식ComboBox.SelectedIndex = -1 + If CB(i).Split(CChar(vbTab))(ii).Trim = "" Then + Me.주말운전방식ComboBox.SelectedIndex = 0 + Else + Me.주말운전방식ComboBox.Text = CB(i).Split(CChar(vbTab))(ii).Trim + End If + 'Me.주말운전방식ComboBox.Text = CStr(IIf( CB(i).Split(CChar(vbTab))(ii).Trim = "", "0", CB(i).Split(CChar(vbTab))(ii).Trim)) + Case 16 + 3 '//일급탕요구량 + 'Me.급탕요구량NTb.Text = CB(i).Split(CChar(vbTab))(ii).Trim + Case 17 + 3 + Case 18 + 3 + Case 19 + 3 '//난방공급시스템-1 + ' Me.TabControl10.SelectedIndex = 0 + ' If CB(i).Split(CChar(vbTab))(ii).Trim = "" Then Me.냉난방열공급시스템ComboBox.SelectedIndex = -1 + If CB(i).Split(CChar(vbTab))(ii).Trim = "" Then + Me.냉난방열공급시스템ComboBox.SelectedIndex = 0 + Else + Me.냉난방열공급시스템ComboBox.Text = CB(i).Split(CChar(vbTab))(ii).Trim + End If + + + Case 20 + 3 '// + Me.냉난방열공급시스템수NTb.Text = CB(i).Split(CChar(vbTab))(ii).Trim + Case 21 + 3 + ' If CB(i).Split(CChar(vbTab))(ii).Trim = "" Then Me.냉난방공조처리시스템ComboBox.SelectedIndex = -1 + If CB(i).Split(CChar(vbTab))(ii).Trim = "" Then + Me.냉난방공조처리시스템ComboBox.SelectedIndex = 0 + Else + Me.냉난방공조처리시스템ComboBox.Text = CB(i).Split(CChar(vbTab))(ii).Trim + End If + 'Me.냉난방공조처리시스템ComboBox.Text = CStr(IIf( CB(i).Split(CChar(vbTab))(ii).Trim = "", "0", CB(i).Split(CChar(vbTab))(ii).Trim)) + Case 24 + 3 '//열생산지정 + ' Me.TabControl10.SelectedIndex = 1 + Me.cmb_열생산지정1.Text = CB(i).Split(CChar(vbTab))(ii).Trim + Case 25 + 3 + Me.cmb_열생산급탕기기.Text = CB(i).Split(CChar(vbTab))(ii).Trim + Case 26 + 3 + Me.cmb_열생산지정3.Text = CB(i).Split(CChar(vbTab))(ii).Trim + Case 27 + 3 + Me.cmb_공조가습생산.Text = CB(i).Split(CChar(vbTab))(ii).Trim + Case 30 + 3 + 'Me.TabControl10.SelectedIndex = 2 + 'If CB(i).Split(CChar(vbTab))(ii).Trim = "" Then Me.냉난방공조분배시스템ComboBox.SelectedIndex = -1 + If CB(i).Split(CChar(vbTab))(ii).Trim = "" Then + 'Me.냉난방공조분배시스템ComboBox.SelectedIndex = 0 + Else + 'Me.냉난방공조분배시스템ComboBox.Text = CB(i).Split(CChar(vbTab))(ii).Trim + End If + ' Me.냉난방공조분배시스템ComboBox.Text = CStr(IIf( CB(i).Split(CChar(vbTab))(ii).Trim = "", "0", CB(i).Split(CChar(vbTab))(ii).Trim)) + Case 31 + 3 + 'If CB(i).Split(CChar(vbTab))(ii).Trim = "" Then Me.냉난방분배시스템ComboBox.SelectedIndex = -1 + If CB(i).Split(CChar(vbTab))(ii).Trim = "" Then + 'Me.냉난방분배시스템ComboBox.SelectedIndex = 0 + Else + 'Me.냉난방분배시스템ComboBox.Text = CB(i).Split(CChar(vbTab))(ii).Trim + End If + 'Me.냉난방분배시스템ComboBox.Text = CStr(IIf(CB(i).Trim = "", "0", CB(i).Trim)) + End Select + Next + Next + + Me.bs.EndEdit() + isCopy = False + Me.Validate_Control() + ' AddNewDataRow_Zone_Changed(Nothing, Nothing) + End If + End Sub + + Private Sub Show_점등시간() + Try + If cmb_profile.SelectedIndex > 0 Then '//뭔가선택되면 + Dim Drv As DataRowView = CType(Me.bs.Current, DataRowView) + + Dim 프로필코드 As String = cmb_profile.SelectedValue.ToString() ' 160326 - 최초 존 생성시 값이 설정되기전에 코드가 작동함(오류) Drv("프로필").ToString + Dim DRProf As DS.tbl_profileRow = CType(DSET1.tbl_profile.Select("code='" & 프로필코드 & "'")(0), DS.tbl_profileRow) + Me.tb_점등시간.Text = DRProf.일일사용시간 + 'MsgBox("선택프로필코드=" & Drv("프로필").ToString, MsgBoxStyle.Information, DRProf.일일사용시간) + Else + Me.tb_점등시간.Text = "없음" + End If + Catch ex As Exception + Me.tb_점등시간.Text = ex.Message.ToString + End Try + End Sub + + Private Sub cmb_profile_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles cmb_profile.MouseUp + If Me.cmb_profile.SelectedIndex < 0 Then Return + If e.Button = Windows.Forms.MouseButtons.Right Then + '//냉난방공조처리시스템 + Me.bs.Filter = "프로필='" & cmb_profile.SelectedValue.ToString & "'" + + + End If + End Sub + + Private Sub cmb_profile_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmb_profile.SelectedIndexChanged + Me.Validate_Control() + + End Sub + + + Private Sub bt_Del_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles bt_Del.MouseDown + If e.Button = Windows.Forms.MouseButtons.Right Then + If MsgBox("전체삭제를 하시겠습니까?", MsgBoxStyle.Information Or MsgBoxStyle.OkCancel, "확인") = MsgBoxResult.Ok Then + 'DSET1.tbl_zone.Clear() + Dim dR() As DataRow = DSET1.tbl_zone.Select(Me.bs.Filter, "") + For i As Integer = dR.GetUpperBound(0) To 0 Step -1 + dR(i).Delete() + Next + DSET1.tbl_zone.AcceptChanges() + End If + End If + End Sub + + Private Sub Show_면적존수합() + '//현재 존의 면적의 합(?) + Dim 면적합 As Decimal = 0 + Dim 존수합 As Integer = 0 + Dim 면적 As Decimal = 0 + + For Each dr존 As DS.tbl_zoneRow In DSET1.tbl_zone.Select("code <> '0'") + Dim 존수 As Integer = 0 + If IsNumeric(dr존.입력존의수) Then + 존수 = CInt(dr존.입력존의수) + Else + 존수 = 1 + End If + + 존수합 += 존수 + If IsNumeric(dr존.면적) Then + 면적 = dr존.면적 * 존수 + Else + 면적 = 0 + End If + + 면적합 = 면적합 + 면적 + + Next + Me.lb_면적합.Text = Format(면적합, "##,###,###.#####").ToString + Me.lb_전체존수.Text = Format(존수합, "#,###,###").ToString + End Sub + Private Sub bs_CurrentChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bs.CurrentChanged + + '//이존이 어떠한 면들한테 쓰엿는지 그거죠?'/종류가 몇가지요? 내벽 외벽 같은거 + '//입력면은 존분류값이 존이죠? ? 외벽, 외부창, 내벽, 내부창, 간벽 5가지 + + If Not Init Then Return + Dim Drv As DataRowView = CType(bs.Current, DataRowView) + If Drv Is Nothing Then Return + + + Dim Zonecode As String = Drv("code") + If Zonecode = "0" Then Return + + Show_점등시간() + + Dim cnt1, cnt2, cnt3, cnt4, cnt5 As Integer + cnt1 = 0 : cnt2 = 0 : cnt3 = 0 : cnt4 = 0 : cnt5 = 0 + + + Dim DR() As DataRow = DSET1.tbl_myoun.Select("code <> '0' and 존분류='" & Drv("code").ToString & "' and 건축부위방식='외벽'") + If DR.GetUpperBound(0) <> -1 Then cnt1 = (DR.GetUpperBound(0) + 1) + + DR = DSET1.tbl_myoun.Select("code <> '0' and 존분류='" & Drv("code").ToString & "' and 건축부위방식='외부창'") + If DR.GetUpperBound(0) <> -1 Then cnt2 = (DR.GetUpperBound(0) + 1) + + DR = DSET1.tbl_myoun.Select("code <> '0' and 존분류='" & Drv("code").ToString & "' and 건축부위방식='내벽'") + If DR.GetUpperBound(0) <> -1 Then cnt3 = (DR.GetUpperBound(0) + 1) + + DR = DSET1.tbl_myoun.Select("code <> '0' and 존분류='" & Drv("code").ToString & "' and 건축부위방식='내부창'") + If DR.GetUpperBound(0) <> -1 Then cnt4 = (DR.GetUpperBound(0) + 1) + + DR = DSET1.tbl_myoun.Select("code <> '0' and 존분류='" & Drv("code").ToString & "' and 건축부위방식='간벽'") + If DR.GetUpperBound(0) <> -1 Then cnt5 = (DR.GetUpperBound(0) + 1) + + '//현재 존의 면적의 합(?) + Show_면적존수합() + + '//각각순서대로 변수에 해당값이 들어갓어요 + '//화면에 표시할 컨트롤 만드시다음에 컨트롤.text = cnt1 식으로 연결만 해주시면됩니다. + Me.lb_외벽.Text = cnt1.ToString + If cnt1 > 0 Then + Me.ToolStripLabel2.ForeColor = Color.Purple + Me.lb_외벽.ForeColor = Color.Purple + Else + Me.ToolStripLabel2.ForeColor = Color.LightGray + Me.lb_외벽.ForeColor = Color.LightGray + End If + + Me.lb_내벽.Text = cnt3.ToString + If cnt3 > 0 Then + Me.ToolStripLabel4.ForeColor = Color.Purple + Me.lb_내벽.ForeColor = Color.Purple + Else + Me.ToolStripLabel4.ForeColor = Color.LightGray + Me.lb_내벽.ForeColor = Color.LightGray + End If + + Me.lb_외부창.Text = cnt2.ToString + If cnt2 > 0 Then + Me.ToolStripLabel6.ForeColor = Color.Purple + Me.lb_외부창.ForeColor = Color.Purple + Else + Me.ToolStripLabel6.ForeColor = Color.LightGray + Me.lb_외부창.ForeColor = Color.LightGray + End If + + Me.lb_내부창.Text = cnt4.ToString + If cnt4 > 0 Then + Me.ToolStripLabel8.ForeColor = Color.Purple + Me.lb_내부창.ForeColor = Color.Purple + Else + Me.ToolStripLabel8.ForeColor = Color.LightGray + Me.lb_내부창.ForeColor = Color.LightGray + End If + + Me.lb_간벽.Text = cnt5.ToString + If cnt5 > 0 Then + Me.ToolStripLabel10.ForeColor = Color.Purple + Me.lb_간벽.ForeColor = Color.Purple + Else + Me.ToolStripLabel10.ForeColor = Color.LightGray + Me.lb_간벽.ForeColor = Color.LightGray + End If + + Me.Validate_Control() + + Me.bs.EndEdit() + End Sub + + + + Private Sub 냉난방공조처리시스템ComboBox_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles 냉난방공조처리시스템ComboBox.MouseUp + If e.Button = Windows.Forms.MouseButtons.Right Then + '//냉난방공조처리시스템 + Me.bs.Filter = "냉난방공조처리시스템='" & 냉난방공조처리시스템ComboBox.SelectedValue.ToString & "'" + + + End If + End Sub + + + Private Sub 냉난방공조ComboBox_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 냉난방공조ComboBox.SelectedIndexChanged + ZONE_Control() + End Sub + + Private Sub ZONE_Control() '//건기연 추가(2010.04.07) + If Me.Init = False Then Return + Try + If Me.냉난방공조ComboBox.SelectedIndex = 4 Then + 외기부하처리여부ComboBox.Enabled = True + 냉난방공조처리시스템ComboBox.Enabled = True + Else + 외기부하처리여부ComboBox.Enabled = False + If Me.냉난방공조ComboBox.SelectedIndex = 0 Then + 냉난방공조처리시스템ComboBox.Enabled = False + 냉난방공조처리시스템ComboBox.SelectedIndex = 0 + Else + 냉난방공조처리시스템ComboBox.Enabled = True + End If + End If + Catch ex As Exception + + End Try + Try + Select Case Me.냉난방공조ComboBox.SelectedIndex + Case 0, 4 + If Me.냉난방공조ComboBox.SelectedIndex = 4 AndAlso Me.외기부하처리여부ComboBox.Enabled AndAlso Me.외기부하처리여부ComboBox.Text = "예" Then + Me.cmb_공조난방생산.Enabled = True + Me.cmb_공조가습생산.Enabled = True + Me.cmb_공조냉방생산.Enabled = True + 'Me.cmb_공조난방생산.BackColor = Nothing + 'Me.cmb_공조냉방생산.BackColor = Nothing + 'Me.cmb_공조가습생산.BackColor = Nothing + 'Me.cmb_공조난방생산.ForeColor = Nothing + 'Me.cmb_공조냉방생산.ForeColor = Nothing + 'Me.cmb_공조가습생산.ForeColor = Nothing + 'Me.cmb_공조난방생산.Font = New Font(Me.cmb_공조난방생산.Font, FontStyle.Regular) + 'Me.cmb_공조냉방생산.Font = New Font(Me.cmb_공조난방생산.Font, FontStyle.Regular) + 'Me.cmb_공조가습생산.Font = New Font(Me.cmb_공조난방생산.Font, FontStyle.Regular) + + Else + Me.cmb_공조난방생산.Enabled = False + Me.cmb_공조가습생산.Enabled = False + Me.cmb_공조냉방생산.Enabled = False + 'Me.cmb_공조난방생산.BackColor = Color.LightGray + 'Me.cmb_공조냉방생산.BackColor = Color.LightGray + 'Me.cmb_공조가습생산.BackColor = Color.LightGray + 'If Me.cmb_공조난방생산.SelectedIndex <> 0 Then + ' Me.cmb_공조난방생산.ForeColor = Color.Red + ' Me.cmb_공조난방생산.Font = New Font(Me.cmb_공조난방생산.Font, FontStyle.Strikeout) + 'End If + 'If Me.cmb_공조가습생산.SelectedIndex <> 0 Then + ' Me.cmb_공조가습생산.ForeColor = Color.Red + ' Me.cmb_공조가습생산.Font = New Font(Me.cmb_공조난방생산.Font, FontStyle.Strikeout) + 'End If + 'If Me.cmb_공조냉방생산.SelectedIndex <> 0 Then + ' Me.cmb_공조냉방생산.ForeColor = Color.Red + ' Me.cmb_공조냉방생산.Font = New Font(Me.cmb_공조난방생산.Font, FontStyle.Strikeout) + 'End If + + End If + Me.cmb_냉난방방식.ForeColor = Nothing + 'Me.cmb_냉난방방식.Font = New Font(Me.cmb_냉난방방식.Font, FontStyle.Regular) + Me.ErrProvider.SetError(Me.cmb_냉난방방식, "") + Case 1 + If Me.외기부하처리여부ComboBox.Enabled AndAlso Me.외기부하처리여부ComboBox.Text = "예" Then + Me.cmb_공조난방생산.Enabled = True + Me.cmb_공조가습생산.Enabled = True + Else + Me.cmb_공조난방생산.Enabled = False + Me.cmb_공조가습생산.Enabled = False + End If + Me.cmb_공조냉방생산.Enabled = True + If Me.cmb_냉난방방식.SelectedIndex = 0 OrElse Me.cmb_냉난방방식.SelectedIndex = 2 Then + Me.cmb_냉난방방식.ForeColor = Nothing + 'Me.cmb_냉난방방식.Font = New Font(Me.cmb_냉난방방식.Font, FontStyle.Regular) + Me.ErrProvider.SetError(Me.cmb_냉난방방식, "") + Else + Me.cmb_냉난방방식.ForeColor = Color.Red + 'Me.cmb_냉난방방식.Font = New Font(Me.cmb_냉난방방식.Font, FontStyle.Strikeout) + Me.ErrProvider.SetError(Me.cmb_냉난방방식, "이건 안된다구요") + End If + Case 2 + If Me.외기부하처리여부ComboBox.Enabled AndAlso Me.외기부하처리여부ComboBox.Text = "예" Then + Me.cmb_공조냉방생산.Enabled = True + Else + Me.cmb_공조냉방생산.Enabled = False + End If + Me.cmb_공조난방생산.Enabled = True + Me.cmb_공조가습생산.Enabled = True + If Me.cmb_냉난방방식.SelectedIndex = 0 OrElse Me.cmb_냉난방방식.SelectedIndex = 1 Then + Me.cmb_냉난방방식.ForeColor = Nothing + 'Me.cmb_냉난방방식.Font = New Font(Me.cmb_냉난방방식.Font, FontStyle.Regular) + Me.ErrProvider.SetError(Me.cmb_냉난방방식, "") + Else + Me.cmb_냉난방방식.ForeColor = Color.Red + 'Me.cmb_냉난방방식.Font = New Font(Me.cmb_냉난방방식.Font, FontStyle.Strikeout) + Me.ErrProvider.SetError(Me.cmb_냉난방방식, "이건 안된다구요") + End If + Case 3 + Me.cmb_공조난방생산.Enabled = True + Me.cmb_공조가습생산.Enabled = True + Me.cmb_공조냉방생산.Enabled = True + If Me.cmb_냉난방방식.SelectedIndex = 0 Then + Me.cmb_냉난방방식.ForeColor = Nothing + 'Me.cmb_냉난방방식.Font = New Font(Me.cmb_냉난방방식.Font, FontStyle.Regular) + Me.ErrProvider.SetError(Me.cmb_냉난방방식, "") + Else + Me.cmb_냉난방방식.ForeColor = Color.Red + 'Me.cmb_냉난방방식.Font = New Font(Me.cmb_냉난방방식.Font, FontStyle.Strikeout) + Me.ErrProvider.SetError(Me.cmb_냉난방방식, "이건 안된다구요") + End If + + Case Else + + End Select + Catch ex As Exception + + End Try + + Try + Select Case Me.cmb_냉난방방식.SelectedIndex + Case 0 + Me.냉난방공조ComboBox.ForeColor = Nothing + Me.ErrProvider.SetError(Me.냉난방공조ComboBox, "") + Me.cmb_열생산지정1.Enabled = False + Me.cmb_열생산지정3.Enabled = False + Case 1 + Me.cmb_열생산지정1.Enabled = False + Me.cmb_열생산지정3.Enabled = True + If Me.냉난방공조ComboBox.SelectedIndex = 0 OrElse Me.냉난방공조ComboBox.SelectedIndex = 2 OrElse Me.냉난방공조ComboBox.SelectedIndex = 4 Then + Me.냉난방공조ComboBox.ForeColor = Nothing + Me.ErrProvider.SetError(Me.냉난방공조ComboBox, "") + Else + Me.냉난방공조ComboBox.ForeColor = Color.Red + Me.ErrProvider.SetError(Me.냉난방공조ComboBox, "이건 안된다구요") + End If + Case 2 + Me.cmb_열생산지정1.Enabled = True + Me.cmb_열생산지정3.Enabled = False + If Me.냉난방공조ComboBox.SelectedIndex = 0 OrElse Me.냉난방공조ComboBox.SelectedIndex = 1 OrElse Me.냉난방공조ComboBox.SelectedIndex = 4 Then + Me.냉난방공조ComboBox.ForeColor = Nothing + Me.ErrProvider.SetError(Me.냉난방공조ComboBox, "") + Else + Me.냉난방공조ComboBox.ForeColor = Color.Red + Me.ErrProvider.SetError(Me.냉난방공조ComboBox, "이건 안된다구요") + End If + Case 3 + Me.cmb_열생산지정1.Enabled = True + Me.cmb_열생산지정3.Enabled = True + If Me.냉난방공조ComboBox.SelectedIndex = 0 OrElse Me.냉난방공조ComboBox.SelectedIndex = 4 Then + Me.냉난방공조ComboBox.ForeColor = Nothing + Me.ErrProvider.SetError(Me.냉난방공조ComboBox, "") + Else + Me.냉난방공조ComboBox.ForeColor = Color.Red + Me.ErrProvider.SetError(Me.냉난방공조ComboBox, "이건 안된다구요") + End If + + Case Else + + End Select + Catch ex As Exception + + End Try + + Try + If Me.cmb_냉난방방식.SelectedIndex = 0 Then + Me.냉난방열공급시스템ComboBox.Enabled = False + Me.냉난방열공급시스템수NTb.Enabled = False + '냉난방분배시스템ComboBox.SelectedIndex = 0 + 'Me.냉난방열공급시스템수NTb.Text = "0" '// 2010.11.29 수정 + Else + Me.냉난방열공급시스템ComboBox.Enabled = True + Me.냉난방열공급시스템수NTb.Enabled = True + + End If + Catch ex As Exception + + End Try + bs.EndEdit() + End Sub + + Private Sub cmb_냉난방방식_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmb_냉난방방식.SelectedIndexChanged + ZONE_Control() + End Sub + + Private Sub 면적NTb_KeyUp(sender As Object, e As System.Windows.Forms.KeyEventArgs) Handles 면적NTb.KeyUp + Me.Validate() + Me.bs.EndEdit() + Show_면적존수합() + End Sub + + Private Sub Show_순실체적() + '//160326 개선(오토포커스 제거) + If IsNumeric(면적NTb.Text) = False Then + 면적NTb.BackColor = Color.HotPink + Else + 면적NTb.BackColor = Color.White + End If + + If IsNumeric(천장고NTb.Text) = False Then + 천장고NTb.BackColor = Color.HotPink + Else + 천장고NTb.BackColor = Color.White + End If + + + If Not IsNumeric(면적NTb.Text) OrElse Not IsNumeric(천장고NTb.Text) Then + If 순실체적NTb.Text <> "--" Then 순실체적NTb.Text = "--" + Else + Dim newval As String = TOST(TOSG(면적NTb.Text) * TOSG(천장고NTb.Text)) + If 순실체적NTb.Text <> newval Then 순실체적NTb.Text = newval + End If + + End Sub + + Private Sub 면적NTb_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles 면적NTb.TextChanged + Show_순실체적() + End Sub + + Private Sub 천장고NTb_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles 천장고NTb.TextChanged + Show_순실체적() + End Sub + + Private Sub 순실체적NTb_MouseHover(ByVal sender As Object, ByVal e As System.EventArgs) Handles 순실체적NTb.MouseHover + Show_순실체적() + End Sub + + Private Sub dv_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles dv.KeyDown + '//여기보시면 alt+d 누르면 한줄을 경고없이(falsE)삭제하도록 햇어요.. 사실원래 밋alt +d 인데.. ㅎㅎ 잘못해서 ctrl 됫다는 + If Prj.UserAuthType = "ADMIN" OrElse Prj.UserAuthType = "BOTH" OrElse Prj.UserAuthType = "BOTH2" OrElse Prj.UserAuthType = "BOTH1" OrElse Prj.UserAuthType = "BOTH0" Then '//2011.03.08 추가 + Select Case e.KeyCode + Case Keys.D + If e.Alt Then + Del_ZoneMyoun(False) + 'Dbbase.DelCrow(Me.bs, False) + End If + + End Select + + + End If + End Sub + + '''면의새로운코드값을계산할때사용한다. + Private Function GetMyounMaxCode(ByVal dt As DataTable) As String + If dt.Rows.Count < 1 Then + Return "00001" + Else + Dim Dr As DataRow = dt.Select("", "CODE desc")(0) + Dim CODE As String = Dr("CODE").ToString() + If IsNumeric(CODE) Then + Return (CInt(CODE) + 1).ToString("00000") + Else + MsgBox("비숫자형 코드값이 tbl_myoun에 존재합니다", MsgBoxStyle.Critical, "확인") + Return "00001" + End If + End If + + End Function + + Private Sub dv_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles dv.MouseUp + If Prj.UserAuthType = "ADMIN" OrElse Prj.UserAuthType = "BOTH" OrElse Prj.UserAuthType = "BOTH2" OrElse Prj.UserAuthType = "BOTH1" Then '//2011.03.08 추가 + If e.Button = Windows.Forms.MouseButtons.Right Then + Dim Frm_FilterA As New Frm_Filter + Frm_FilterA.ColumTitle = getColCaption(Me.Dt) + Frm_FilterA.ColumList = getColName(Me.Dt) + Frm_FilterA.Colorlist = "프로필,냉난방열공급시스템,냉난방공조처리시스템,열생산난방생산기기,열생산급탕생산기기,열생산냉방생산기기," & _ + "공조가습생산기기,공조냉방생산기기,공조난방생산기기" + Frm_FilterA.Numfield = "" '//20100618 Color 리스트처럼 , 구분해서 필드들을 모두 넣으세요.(=, >= 등을 사용하기 위해서는 해당 항목을 추가 요망) + Frm_FilterA.Default_Filter = "code <> '0'" + If Frm_FilterA.ShowDialog <> Windows.Forms.DialogResult.OK Then Return '//창떳을떄 확인아ㅣ고 취소눌르면 다음을 수행하지않는다는거에요. + Dim Filter As String = Frm_FilterA.tb_filter.Text '//값은 아까 그 텍박에 잇구요. + Try + Me.bs.Filter = Filter + + '//바꾸기값이 있으면 변경 20100618 + If Frm_FilterA.cmb_fieldc.SelectedIndex >= 0 AndAlso Frm_FilterA.cmb_fieldc.Text.ToLower <> "code" AndAlso _ + Frm_FilterA.tb_valuec.Text <> "" Then + Dim Drow() As DataRow = Me.Dt.Select(Filter) + For Each Dr As DataRow In Drow + Dr(Frm_FilterA.cmb_fieldc.Text) = Frm_FilterA.tb_valuec.Text + Next + MsgBox("바꾸기 완료", MsgBoxStyle.Information, "확인") + End If + + Catch ex As Exception + Me.bs.Filter = "" + End Try + End If + End If + End Sub + + + 'Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) + ' CType(Me.bs.Current, DataRowView)("공조난방생산기기") = DBNull.Value + ' CType(Me.bs.Current, DataRowView)("공조냉방생산기기") = DBNull.Value + ' If MsgBox("sdf", MsgBoxStyle.OkCancel) = MsgBoxResult.Ok Then + ' Me.bs.EndEdit() + ' Me.bsmain.EndEdit() + ' End If + 'End Sub + + Private Sub 외기부하처리여부ComboBox_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 외기부하처리여부ComboBox.SelectedIndexChanged + ZONE_Control() + End Sub + Private Sub Del_ZoneMyoun(ByVal prompt As Boolean) + If prompt Then + If MsgBox("선택된 줄을 삭제하시겠습니까?", MsgBoxStyle.OkCancel Or MsgBoxStyle.Information, "삭제확인") <> MsgBoxResult.Ok Then Return + End If + Dim Drv As DataRowView = CType(bs.Current, DataRowView) + If Drv Is Nothing Then Return + Dim DR() As DataRow = DSET1.tbl_myoun.Select("code <> '0' and 존분류='" & Drv("code").ToString & "'") + If DR.GetUpperBound(0) <> -1 Then + For i As Integer = DR.GetUpperBound(0) To 0 Step -1 + DR(i).Delete() + Next + End If + Me.bs.RemoveCurrent() + End Sub + + Private Sub bt_copy_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt_copy.Click + If Me.bs.Current Is Nothing Then Return + Me.SrcDrv = Me.bs.Current + Me.bt_add.PerformClick() '//신규추가 + Dim NewDrv As DataRowView = Me.bs.Current + + For Each C As DataColumn In Me.DT.Columns + If C.ColumnName.ToUpper = "CODE" Then + ElseIf C.ColumnName.ToUpper = "그룹설명" Then + ElseIf C.ColumnName.ToUpper = "설명" Then + NewDrv(C.ColumnName) = SrcDrv(C.ColumnName) & "#1" + Else + NewDrv(C.ColumnName) = SrcDrv(C.ColumnName) + End If + Next + + '//이입력존을 사용하는 입력면을 복제해서 연결해준다. + Dim 사용입력면() As DS.tbl_myounRow = DSET1.tbl_myoun.Select("존분류='" + SrcDrv("code").ToString + "'") + For Each 기존입력면 As DS.tbl_myounRow In 사용입력면 + Dim 신규입력면 As DS.tbl_myounRow = DSET1.tbl_myoun.Newtbl_myounRow + For Each 기존컬럼 As DataColumn In DSET1.tbl_myoun.Columns + If 기존컬럼.ColumnName.ToUpper = "CODE" Then + 신규입력면.code = GetMyounMaxCode(DSET1.tbl_myoun) + Else + 신규입력면(기존컬럼.ColumnName) = 기존입력면(기존컬럼.ColumnName) + End If + Next + 신규입력면.존분류 = NewDrv("code").ToString + DSET1.tbl_myoun.Rows.Add(신규입력면) + DSET1.tbl_myoun.AcceptChanges() + Next + + Me.bs.EndEdit() + MdiMain.RefreshMenuList(TreeTag) + End Sub + + + Private Sub dv_CellContentClick(sender As System.Object, e As System.Windows.Forms.DataGridViewCellEventArgs) Handles dv.CellContentClick + + End Sub + + Private Sub 입력존의수NTb_KeyUp(sender As Object, e As System.Windows.Forms.KeyEventArgs) Handles 입력존의수NTb.KeyUp + Me.Validate() + Me.bs.EndEdit() + Show_면적존수합() + End Sub + + Private Sub 입력존의수NTb_TextChanged(sender As System.Object, e As System.EventArgs) Handles 입력존의수NTb.TextChanged + + End Sub + + Private Sub ShowHistory() + Dim drv As DataRowView = Me.bs.Current + Dim f As New Frm_History("tbl_zone", drv("code").ToString) + If f.ShowDialog = DialogResult.OK Then + drv(f.colname) = f.val + Me.Validate() + Me.bs.EndEdit() + My.Application.DoEvents() + MsgBox("값이 변경되었습니다", MsgBoxStyle.Information, "확인") + End If + End Sub + + Private Sub Frm_Zone_InputLanguageChanging(sender As System.Object, e As System.Windows.Forms.InputLanguageChangingEventArgs) Handles MyBase.InputLanguageChanging + + End Sub + + Private Sub dv_DataError(sender As System.Object, e As System.Windows.Forms.DataGridViewDataErrorEventArgs) Handles dv.DataError + Dim ermsg As String = String.Format("입력값에 오류가 있습니다" + vbCrLf + vbCrLf + "줄번호:{0},열번호{1}" + vbCrLf + _ + "메세지:{2}", e.RowIndex, e.ColumnIndex, e.Exception.Message) + + Select Case e.ColumnIndex + Case 0 + ermsg += vbCrLf + vbCrLf + "숫자만 입력하세요" + End Select + MsgBox(ermsg, MsgBoxStyle.Critical, "Error") + End Sub + + Private Sub dv_KeyUp(sender As Object, e As System.Windows.Forms.KeyEventArgs) Handles dv.KeyUp + If Prj.UserAuthType = "ADMIN" OrElse Prj.UserAuthType = "BOTH" OrElse Prj.UserAuthType = "BOTH2" OrElse Prj.UserAuthType = "BOTH1" OrElse Prj.UserAuthType = "BOTH0" Then '//2011.03.08 추가 + Select Case e.KeyCode + + Case Keys.C + If e.Control Then + + '//160327 + Dim drv As DataRowView = Me.bs.Current + If drv Is Nothing Then + MsgBox("선택된 자료가 없습니다", MsgBoxStyle.Critical, "확인") + Return + End If + + '//선택된 자료를 복제하여 신규테이블에 담고 클립보드에 넣는다 + Dim newdt As New DS.tbl_zoneDataTable + Dim newdr As DS.tbl_zoneRow = newdt.Newtbl_zoneRow + For Each C As DataColumn In DSET1.tbl_zone.Columns + newdr(C.ColumnName) = drv.Row(C.ColumnName) + Next + newdr.EndEdit() + newdt.Addtbl_zoneRow(newdr) + My.Computer.Clipboard.SetData("srcdt", newdt) + + 'Dim cdt As DS.tbl_zoneDataTable = My.Computer.Clipboard.GetData("aa") + 'If cdt Is Nothing Then + ' MsgBox("클립보드로부터 자료를 확인하지 못했습니다", MsgBoxStyle.Critical, "확인") + ' Return + 'End If + + + 'Me.SrcDrv = Me.bs.Current + 'If Me.SrcDrv Is Nothing Then + ' MsgBox("저장할 ROW가 없습니다", MsgBoxStyle.Information, "확인") + ' Return + 'End If + '' My.Computer.Clipboard.SetData("ZDATA", Drv) + End If + Case Keys.V + If e.Control Then + + '//160327 (클립보드용으로 변경) + If My.Computer.Clipboard.ContainsData("srcdt") Then + Dim list As DS.tbl_zoneDataTable = My.Computer.Clipboard.GetData("srcdt") + If list Is Nothing Then + MsgBox("클립보드로부터 자료를 확인하지 못했습니다", MsgBoxStyle.Critical, "확인") + Return + End If + + For Each dr As DS.tbl_zoneRow In list + Dim newdr As DS.tbl_zoneRow = DSET1.tbl_zone.Newtbl_zoneRow + + '//기존정보와 동일한 자료를 생성한다(코드는제외) + For Each C As DataColumn In DSET1.tbl_zone.Columns + If C.ReadOnly Then Continue For + If C.ColumnName.ToUpper = "CODE" Then + ElseIf C.ColumnName.ToUpper = "설명" Then + Dim newname As String = dr(C.ColumnName) & "#Copy" + + For i As Integer = 1 To 999 '//160327복제시 뒷부분을 자동 계산하도록 수정 + Dim newname2 As String = dr(C.ColumnName) & "#" & i.ToString() + If DSET1.tbl_zone.Select("설명='" + newname2 + "'").Length < 1 Then + newdr.설명 = newname2 + Exit For + End If + Next + ' ElseIf C.ColumnName.ToUpper = "SORTKEY" Then + 'newdr.sortkey = dr(C.ColumnName) 'GetNewSortKey(DSET1.tbl_zone, NewDrv("그룹").ToString()) + ElseIf C.ColumnName = "그룹설명" Then + + Else + newdr(C.ColumnName) = dr(C.ColumnName) + End If + Next + + '//이입력존을 사용하는 입력면을 복제해서 연결해준다. + Dim 사용입력면() As DS.tbl_myounRow = DSET1.tbl_myoun.Select("존분류='" + dr.code + "'") + For Each 기존입력면 As DS.tbl_myounRow In 사용입력면 + Dim 신규입력면 As DS.tbl_myounRow = DSET1.tbl_myoun.Newtbl_myounRow + For Each 기존컬럼 As DataColumn In DSET1.tbl_myoun.Columns + If 기존컬럼.ColumnName.ToUpper = "CODE" Then + 신규입력면.code = GetMyounMaxCode(DSET1.tbl_myoun) + Else + 신규입력면(기존컬럼.ColumnName) = 기존입력면(기존컬럼.ColumnName) + End If + Next + 신규입력면.존분류 = newdr.code ' NewDrv("code").ToString + 신규입력면.EndEdit() + DSET1.tbl_myoun.Rows.Add(신규입력면) + Next + DSET1.tbl_myoun.AcceptChanges() + newdr.EndEdit() + DSET1.tbl_zone.Addtbl_zoneRow(newdr) + Next + DSET1.tbl_zone.AcceptChanges() + End If + + 'If SrcDrv Is Nothing Then Return + 'Me.bt_add.PerformClick() '//신규추가 + + ''//새로추가함 + 'Dim NewDrv As DataRowView = Me.bs.Current + 'If NewDrv("그룹") Is DBNull.Value Then NewDrv("그룹") = "" + 'For Each C As DataColumn In Me.DT.Columns + ' If C.ColumnName.ToUpper = "CODE" Then + ' ElseIf C.ColumnName.ToUpper = "설명" Then + + ' Dim newname As String = SrcDrv(C.ColumnName) & "#Copy" + + ' For i As Integer = 1 To 999 '//160327복제시 뒷부분을 자동 계산하도록 수정 + ' Dim newname2 As String = SrcDrv(C.ColumnName) & "#" & i.ToString() + ' If DSET1.tbl_zone.Select("설명='" + newname2 + "'").Length < 1 Then + ' NewDrv(C.ColumnName) = newname2 + ' Exit For + ' End If + ' Next + ' ElseIf C.ColumnName.ToUpper = "SORTKEY" Then + ' NewDrv(C.ColumnName) = SrcDrv(C.ColumnName) 'GetNewSortKey(DSET1.tbl_zone, NewDrv("그룹").ToString()) + + ' ElseIf C.ColumnName = "그룹설명" Then + + ' Else + ' NewDrv(C.ColumnName) = SrcDrv(C.ColumnName) + ' End If + 'Next + + ''//이입력존을 사용하는 입력면을 복제해서 연결해준다. + 'Dim 사용입력면() As DS.tbl_myounRow = DSET1.tbl_myoun.Select("존분류='" + SrcDrv("code").ToString + "'") + 'For Each 기존입력면 As DS.tbl_myounRow In 사용입력면 + ' Dim 신규입력면 As DS.tbl_myounRow = DSET1.tbl_myoun.Newtbl_myounRow + ' For Each 기존컬럼 As DataColumn In DSET1.tbl_myoun.Columns + ' If 기존컬럼.ColumnName.ToUpper = "CODE" Then + ' 신규입력면.code = GetMyounMaxCode(DSET1.tbl_myoun) + ' Else + ' 신규입력면(기존컬럼.ColumnName) = 기존입력면(기존컬럼.ColumnName) + ' End If + ' Next + ' 신규입력면.존분류 = NewDrv("code").ToString + ' DSET1.tbl_myoun.Rows.Add(신규입력면) + ' DSET1.tbl_myoun.AcceptChanges() + 'Next + + + Me.bs.EndEdit() + 'bs.MoveLast() + End If + End Select + + + End If + End Sub +End Class \ No newline at end of file diff --git a/ArinWarev1/Forms_Input/Frm_kongjo.Designer.vb b/ArinWarev1/Forms_Input/Frm_kongjo.Designer.vb new file mode 100644 index 0000000..5faecd2 --- /dev/null +++ b/ArinWarev1/Forms_Input/Frm_kongjo.Designer.vb @@ -0,0 +1,924 @@ + _ +Partial Class Frm_kongjo + Inherits CForm + + 'Form은 Dispose를 재정의하여 구성 요소 목록을 정리합니다. + _ + Protected Overrides Sub Dispose(ByVal disposing As Boolean) + Try + If disposing AndAlso components IsNot Nothing Then + components.Dispose() + End If + Finally + MyBase.Dispose(disposing) + End Try + End Sub + + 'Windows Form 디자이너에 필요합니다. + Private components As System.ComponentModel.IContainer + + '참고: 다음 프로시저는 Windows Form 디자이너에 필요합니다. + '수정하려면 Windows Form 디자이너를 사용하십시오. + '코드 편집기를 사용하여 수정하지 마십시오. + _ + 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 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 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 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() + 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() + Me.bt_Del = New System.Windows.Forms.ToolStripButton() + Me.bt_cancel = New System.Windows.Forms.ToolStripButton() + Me.ToolStripSeparator1 = New System.Windows.Forms.ToolStripSeparator() + Me.lbl_pos = New System.Windows.Forms.ToolStripLabel() + Me.ToolStripSeparator2 = New System.Windows.Forms.ToolStripSeparator() + Me.lb_code = New System.Windows.Forms.ToolStripLabel() + Me.Label15 = New System.Windows.Forms.Label() + Me.PictureBox4 = New System.Windows.Forms.PictureBox() + Me.GroupBox2 = New System.Windows.Forms.GroupBox() + Me.Tb_배기팬동력 = New Eco2Ar.MyTb() + Me.Tb_급기팬동력 = New Eco2Ar.MyTb() + Me.Tb_배기팬효율 = New Eco2Ar.MyTb() + Me.Tb_배기풍량 = New Eco2Ar.MyTb() + Me.Tb_급기팬효율 = New Eco2Ar.MyTb() + Me.Tb_배기팬압력손실 = New Eco2Ar.MyTb() + Me.Tb_급기풍량 = New Eco2Ar.MyTb() + Me.Tb_급기팬압력손실 = New Eco2Ar.MyTb() + Me.Cmb_팬효율산출방식 = New Eco2Ar.MyCmb() + Me.PictureBox2 = New System.Windows.Forms.PictureBox() + Me.GroupBox1 = New System.Windows.Forms.GroupBox() + Me.공조방식NCMB = New Eco2Ar.MyCmb() + Me.tb_01 = New Eco2Ar.MyTb() + Me.tb_02 = New Eco2Ar.MyTb() + Me.tb_03 = 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.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.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() + Label176 = New System.Windows.Forms.Label() + Label167 = New System.Windows.Forms.Label() + Label168 = New System.Windows.Forms.Label() + Label1 = 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() + 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() + CType(Me.PictureBox4, System.ComponentModel.ISupportInitialize).BeginInit() + Me.GroupBox2.SuspendLayout() + CType(Me.PictureBox2, System.ComponentModel.ISupportInitialize).BeginInit() + Me.GroupBox1.SuspendLayout() + CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit() + Me.Panel1.SuspendLayout() + Me.SuspendLayout() + ' + '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 + ' + '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 + ' + 'Label176 + ' + Label176.AutoSize = True + Label176.BackColor = System.Drawing.Color.FromArgb(CType(CType(243, Byte), Integer), CType(CType(244, Byte), Integer), CType(CType(246, Byte), Integer)) + Label176.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label176.Location = New System.Drawing.Point(7, 182) + Label176.Name = "Label176" + Label176.Size = New System.Drawing.Size(137, 12) + Label176.TabIndex = 10 + Label176.Text = "급기팬 압력손실[Pa]:" + Label176.TextAlign = System.Drawing.ContentAlignment.MiddleCenter + ' + '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 = "열회수율(난방)[-]" + ' + '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 = "열교환기 유형:" + ' + 'Label1 + ' + 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 = "열회수율(냉방)[-]" + ' + 'Label3 + ' + Label3.AutoSize = True + Label3.BackColor = System.Drawing.Color.FromArgb(CType(CType(243, Byte), Integer), CType(CType(244, Byte), Integer), CType(CType(246, Byte), Integer)) + Label3.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label3.Location = New System.Drawing.Point(7, 27) + Label3.Name = "Label3" + Label3.Size = New System.Drawing.Size(106, 12) + Label3.TabIndex = 8 + Label3.Text = "팬효율 산출방식:" + Label3.TextAlign = System.Drawing.ContentAlignment.MiddleRight + ' + 'Label4 + ' + Label4.AutoSize = True + Label4.BackColor = System.Drawing.Color.FromArgb(CType(CType(243, Byte), Integer), CType(CType(244, Byte), Integer), CType(CType(246, Byte), Integer)) + Label4.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label4.Location = New System.Drawing.Point(7, 153) + Label4.Name = "Label4" + Label4.Size = New System.Drawing.Size(112, 12) + Label4.TabIndex = 10 + Label4.Text = "배기팬 동력[kW]:" + Label4.TextAlign = System.Drawing.ContentAlignment.MiddleCenter + ' + 'Label5 + ' + 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 + ' + 'Label6 + ' + 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 + ' + 'Label7 + ' + 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 + ' + '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 + ' + '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 + ' + '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.BackColor = System.Drawing.Color.White + Me.SplitContainer1.Panel2.Controls.Add(Me.Label15) + Me.SplitContainer1.Panel2.Controls.Add(Me.PictureBox4) + Me.SplitContainer1.Panel2.Controls.Add(Me.GroupBox2) + Me.SplitContainer1.Panel2.Controls.Add(Me.GroupBox1) + Me.SplitContainer1.Panel2.Controls.Add(Me.Panel1) + Me.SplitContainer1.Size = New System.Drawing.Size(818, 574) + Me.SplitContainer1.SplitterDistance = 209 + Me.SplitContainer1.TabIndex = 127 + ' + '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.FromArgb(CType(CType(245, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(246, Byte), Integer)) + 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(207, 532) + Me.dv.TabIndex = 0 + ' + 'DataGridViewTextBoxColumn1 + ' + Me.DataGridViewTextBoxColumn1.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.Fill + Me.DataGridViewTextBoxColumn1.DataPropertyName = "설명" + Me.DataGridViewTextBoxColumn1.HeaderText = "설명" + Me.DataGridViewTextBoxColumn1.Name = "DataGridViewTextBoxColumn1" + Me.DataGridViewTextBoxColumn1.SortMode = System.Windows.Forms.DataGridViewColumnSortMode.Programmatic + ' + 'bs + ' + Me.bs.DataMember = "tbl_kongjo" + Me.bs.DataSource = Me.DS + Me.bs.Filter = "code <> '0'" + ' + 'DS + ' + 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, 532) + 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(207, 40) + 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, 37) + 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, 37) + 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, 37) + 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, 37) + 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, 40) + ' + 'lbl_pos + ' + Me.lbl_pos.Name = "lbl_pos" + Me.lbl_pos.Size = New System.Drawing.Size(12, 37) + Me.lbl_pos.Text = "0" + ' + 'ToolStripSeparator2 + ' + Me.ToolStripSeparator2.Name = "ToolStripSeparator2" + Me.ToolStripSeparator2.Size = New System.Drawing.Size(6, 40) + ' + 'lb_code + ' + Me.lb_code.Name = "lb_code" + Me.lb_code.Size = New System.Drawing.Size(47, 37) + Me.lb_code.Text = "[0000]" + ' + 'Label15 + ' + Me.Label15.AutoSize = True + Me.Label15.BackColor = System.Drawing.Color.FromArgb(CType(CType(116, Byte), Integer), CType(CType(158, Byte), Integer), CType(CType(209, Byte), Integer)) + Me.Label15.ForeColor = System.Drawing.Color.White + Me.Label15.Location = New System.Drawing.Point(39, 66) + Me.Label15.Name = "Label15" + Me.Label15.Size = New System.Drawing.Size(57, 12) + Me.Label15.TabIndex = 154 + Me.Label15.Text = "공조처리" + ' + 'PictureBox4 + ' + Me.PictureBox4.BackgroundImage = CType(resources.GetObject("PictureBox4.BackgroundImage"), System.Drawing.Image) + Me.PictureBox4.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch + Me.PictureBox4.Location = New System.Drawing.Point(20, 55) + Me.PictureBox4.Name = "PictureBox4" + Me.PictureBox4.Size = New System.Drawing.Size(131, 30) + Me.PictureBox4.TabIndex = 153 + Me.PictureBox4.TabStop = False + ' + 'GroupBox2 + ' + Me.GroupBox2.Controls.Add(Me.Tb_배기팬동력) + Me.GroupBox2.Controls.Add(Me.Tb_급기팬동력) + Me.GroupBox2.Controls.Add(Me.Tb_배기팬효율) + Me.GroupBox2.Controls.Add(Me.Tb_배기풍량) + Me.GroupBox2.Controls.Add(Me.Tb_급기팬효율) + Me.GroupBox2.Controls.Add(Label7) + Me.GroupBox2.Controls.Add(Me.Tb_배기팬압력손실) + Me.GroupBox2.Controls.Add(Me.Tb_급기풍량) + Me.GroupBox2.Controls.Add(Label176) + Me.GroupBox2.Controls.Add(Label6) + Me.GroupBox2.Controls.Add(Me.Tb_급기팬압력손실) + Me.GroupBox2.Controls.Add(Label177) + Me.GroupBox2.Controls.Add(Label5) + Me.GroupBox2.Controls.Add(Label3) + Me.GroupBox2.Controls.Add(Label4) + Me.GroupBox2.Controls.Add(Label178) + Me.GroupBox2.Controls.Add(Label179) + Me.GroupBox2.Controls.Add(Me.Cmb_팬효율산출방식) + Me.GroupBox2.Controls.Add(Me.PictureBox2) + Me.GroupBox2.Location = New System.Drawing.Point(299, 83) + Me.GroupBox2.Name = "GroupBox2" + Me.GroupBox2.Size = New System.Drawing.Size(281, 322) + Me.GroupBox2.TabIndex = 5 + Me.GroupBox2.TabStop = False + ' + 'Tb_배기팬동력 + ' + Me.Tb_배기팬동력.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bs, "배기팬동력", True)) + Me.Tb_배기팬동력.Location = New System.Drawing.Point(145, 150) + Me.Tb_배기팬동력.Name = "Tb_배기팬동력" + Me.Tb_배기팬동력.NectControl = Nothing + Me.Tb_배기팬동력.Size = New System.Drawing.Size(119, 21) + Me.Tb_배기팬동력.TabIndex = 14 + 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(145, 122) + 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_배기팬효율 + ' + Me.Tb_배기팬효율.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bs, "총효율배기팬", True)) + Me.Tb_배기팬효율.Location = New System.Drawing.Point(145, 264) + Me.Tb_배기팬효율.Name = "Tb_배기팬효율" + Me.Tb_배기팬효율.NectControl = Nothing + Me.Tb_배기팬효율.Size = New System.Drawing.Size(119, 21) + Me.Tb_배기팬효율.TabIndex = 18 + 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(145, 94) + 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 + ' + 'Tb_급기팬효율 + ' + Me.Tb_급기팬효율.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bs, "총효율급기팬", True)) + Me.Tb_급기팬효율.Location = New System.Drawing.Point(145, 236) + Me.Tb_급기팬효율.Name = "Tb_급기팬효율" + Me.Tb_급기팬효율.NectControl = Nothing + Me.Tb_급기팬효율.Size = New System.Drawing.Size(119, 21) + Me.Tb_급기팬효율.TabIndex = 17 + 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(145, 208) + Me.Tb_배기팬압력손실.Name = "Tb_배기팬압력손실" + Me.Tb_배기팬압력손실.NectControl = Nothing + Me.Tb_배기팬압력손실.Size = New System.Drawing.Size(119, 21) + Me.Tb_배기팬압력손실.TabIndex = 16 + 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(145, 66) + Me.Tb_급기풍량.Name = "Tb_급기풍량" + Me.Tb_급기풍량.NectControl = Nothing + Me.Tb_급기풍량.Size = New System.Drawing.Size(119, 21) + Me.Tb_급기풍량.TabIndex = 11 + 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(145, 180) + Me.Tb_급기팬압력손실.Name = "Tb_급기팬압력손실" + Me.Tb_급기팬압력손실.NectControl = Nothing + Me.Tb_급기팬압력손실.Size = New System.Drawing.Size(119, 21) + Me.Tb_급기팬압력손실.TabIndex = 15 + Me.Tb_급기팬압력손실.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + ' + 'Cmb_팬효율산출방식 + ' + 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(145, 24) + Me.Cmb_팬효율산출방식.Name = "Cmb_팬효율산출방식" + Me.Cmb_팬효율산출방식.NectControl = Nothing + Me.Cmb_팬효율산출방식.Size = New System.Drawing.Size(119, 20) + Me.Cmb_팬효율산출방식.TabIndex = 10 + ' + 'PictureBox2 + ' + Me.PictureBox2.BackColor = System.Drawing.Color.FromArgb(CType(CType(243, Byte), Integer), CType(CType(244, Byte), Integer), CType(CType(246, Byte), Integer)) + Me.PictureBox2.Location = New System.Drawing.Point(0, 9) + Me.PictureBox2.Name = "PictureBox2" + Me.PictureBox2.Size = New System.Drawing.Size(278, 309) + Me.PictureBox2.TabIndex = 11 + Me.PictureBox2.TabStop = False + ' + 'GroupBox1 + ' + Me.GroupBox1.Controls.Add(Me.공조방식NCMB) + 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(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(Label175) + Me.GroupBox1.Controls.Add(Label170) + Me.GroupBox1.Controls.Add(Label168) + Me.GroupBox1.Controls.Add(Label173) + 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.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.TabIndex = 5 + Me.GroupBox1.TabStop = False + ' + '공조방식NCMB + ' + Me.공조방식NCMB.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList + Me.공조방식NCMB.FormattingEnabled = True + Me.공조방식NCMB.Location = New System.Drawing.Point(150, 24) + Me.공조방식NCMB.Name = "공조방식NCMB" + Me.공조방식NCMB.NectControl = Nothing + Me.공조방식NCMB.Size = New System.Drawing.Size(119, 20) + Me.공조방식NCMB.TabIndex = 0 + ' + 'tb_01 + ' + Me.tb_01.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bs, "설정치난방", True)) + Me.tb_01.Location = New System.Drawing.Point(150, 51) + Me.tb_01.Name = "tb_01" + Me.tb_01.NectControl = Nothing + Me.tb_01.Size = New System.Drawing.Size(119, 21) + Me.tb_01.TabIndex = 1 + Me.tb_01.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + ' + 'tb_02 + ' + Me.tb_02.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bs, "설정치냉방", True)) + Me.tb_02.Location = New System.Drawing.Point(150, 79) + Me.tb_02.Name = "tb_02" + Me.tb_02.NectControl = Nothing + Me.tb_02.Size = New System.Drawing.Size(119, 21) + Me.tb_02.TabIndex = 2 + Me.tb_02.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + ' + 'tb_03 + ' + Me.tb_03.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bs, "최대풍량", True)) + Me.tb_03.Location = New System.Drawing.Point(150, 107) + Me.tb_03.Name = "tb_03" + Me.tb_03.NectControl = Nothing + Me.tb_03.Size = New System.Drawing.Size(119, 21) + Me.tb_03.TabIndex = 3 + Me.tb_03.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + ' + 'tb_13 + ' + Me.tb_13.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bs, "열회수율냉", True)) + Me.tb_13.Location = New System.Drawing.Point(150, 276) + Me.tb_13.Name = "tb_13" + Me.tb_13.NectControl = Nothing + Me.tb_13.Size = New System.Drawing.Size(119, 21) + Me.tb_13.TabIndex = 9 + Me.tb_13.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + ' + '열교환기유형ComboBox + ' + Me.열교환기유형ComboBox.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList + Me.열교환기유형ComboBox.FormattingEnabled = True + Me.열교환기유형ComboBox.Location = New System.Drawing.Point(150, 223) + Me.열교환기유형ComboBox.Name = "열교환기유형ComboBox" + Me.열교환기유형ComboBox.NectControl = Nothing + Me.열교환기유형ComboBox.Size = New System.Drawing.Size(119, 20) + Me.열교환기유형ComboBox.TabIndex = 7 + ' + '리턴공기혼합여부ComboBox + ' + Me.리턴공기혼합여부ComboBox.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList + Me.리턴공기혼합여부ComboBox.FormattingEnabled = True + Me.리턴공기혼합여부ComboBox.Location = New System.Drawing.Point(150, 135) + Me.리턴공기혼합여부ComboBox.Name = "리턴공기혼합여부ComboBox" + Me.리턴공기혼합여부ComboBox.NectControl = Nothing + 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.Location = New System.Drawing.Point(150, 163) + Me.가습기유형ComboBox.Name = "가습기유형ComboBox" + Me.가습기유형ComboBox.NectControl = Nothing + Me.가습기유형ComboBox.Size = New System.Drawing.Size(119, 20) + Me.가습기유형ComboBox.TabIndex = 5 + ' + 'tb_08 + ' + Me.tb_08.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bs, "열회수율", True)) + Me.tb_08.Location = New System.Drawing.Point(150, 250) + Me.tb_08.Name = "tb_08" + Me.tb_08.NectControl = Nothing + Me.tb_08.Size = New System.Drawing.Size(119, 21) + Me.tb_08.TabIndex = 8 + Me.tb_08.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + ' + '외기냉방제어유무ComboBox + ' + Me.외기냉방제어유무ComboBox.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList + Me.외기냉방제어유무ComboBox.FormattingEnabled = True + Me.외기냉방제어유무ComboBox.Location = New System.Drawing.Point(150, 194) + Me.외기냉방제어유무ComboBox.Name = "외기냉방제어유무ComboBox" + Me.외기냉방제어유무ComboBox.NectControl = Nothing + Me.외기냉방제어유무ComboBox.Size = New System.Drawing.Size(119, 20) + Me.외기냉방제어유무ComboBox.TabIndex = 6 + ' + 'PictureBox1 + ' + 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.TabIndex = 11 + Me.PictureBox1.TabStop = False + ' + 'Panel1 + ' + Me.Panel1.BackColor = System.Drawing.Color.FromArgb(CType(CType(243, Byte), Integer), CType(CType(244, Byte), Integer), CType(CType(246, Byte), Integer)) + Me.Panel1.Controls.Add(Me.TextBox1) + Me.Panel1.Controls.Add(Me.tb_zone_cnt) + Me.Panel1.Controls.Add(Me.Label2) + Me.Panel1.Controls.Add(Me.Label48) + Me.Panel1.Dock = System.Windows.Forms.DockStyle.Top + Me.Panel1.Location = New System.Drawing.Point(0, 0) + Me.Panel1.Name = "Panel1" + Me.Panel1.Size = New System.Drawing.Size(603, 30) + Me.Panel1.TabIndex = 4 + ' + 'TextBox1 + ' + Me.TextBox1.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.TextBox1.BackColor = System.Drawing.SystemColors.GrayText + Me.TextBox1.ForeColor = System.Drawing.Color.White + Me.TextBox1.Location = New System.Drawing.Point(481, 5) + Me.TextBox1.Name = "TextBox1" + Me.TextBox1.Size = New System.Drawing.Size(99, 21) + Me.TextBox1.TabIndex = 1 + Me.TextBox1.Text = "0" + Me.TextBox1.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) + Me.Label2.AutoSize = True + Me.Label2.ForeColor = System.Drawing.Color.DarkCyan + Me.Label2.Location = New System.Drawing.Point(354, 9) + Me.Label2.Name = "Label2" + Me.Label2.Size = New System.Drawing.Size(118, 12) + Me.Label2.TabIndex = 0 + Me.Label2.Text = "적용된 면적합(㎡):" + Me.Label2.TextAlign = System.Drawing.ContentAlignment.MiddleRight + ' + 'Frm_kongjo + ' + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.None + Me.ClientSize = New System.Drawing.Size(818, 574) + Me.ControlBox = False + Me.Controls.Add(Me.SplitContainer1) + Me.Font = New System.Drawing.Font("돋움", 8.999999!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.KeyPreview = True + Me.Name = "Frm_kongjo" + Me.ShowInTaskbar = False + Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen + Me.Text = "공조처리시스템" + Me.SplitContainer1.Panel1.ResumeLayout(False) + Me.SplitContainer1.Panel2.ResumeLayout(False) + Me.SplitContainer1.Panel2.PerformLayout() + 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() + CType(Me.PictureBox4, System.ComponentModel.ISupportInitialize).EndInit() + Me.GroupBox2.ResumeLayout(False) + Me.GroupBox2.PerformLayout() + CType(Me.PictureBox2, System.ComponentModel.ISupportInitialize).EndInit() + Me.GroupBox1.ResumeLayout(False) + Me.GroupBox1.PerformLayout() + CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).EndInit() + Me.Panel1.ResumeLayout(False) + Me.Panel1.PerformLayout() + Me.ResumeLayout(False) + + End Sub + Friend WithEvents 공조방식NCMB As MyCmb + Friend WithEvents 열교환기유형ComboBox As MyCmb + Friend WithEvents 외기냉방제어유무ComboBox As MyCmb + Friend WithEvents 가습기유형ComboBox As MyCmb + Friend WithEvents 리턴공기혼합여부ComboBox As MyCmb + Friend WithEvents Tb_배기팬효율 As MyTb + Friend WithEvents Tb_급기팬효율 As MyTb + Friend WithEvents Tb_배기팬압력손실 As MyTb + Friend WithEvents Tb_급기팬압력손실 As MyTb + Friend WithEvents tb_08 As MyTb + Friend WithEvents tb_03 As MyTb + Friend WithEvents tb_02 As MyTb + Friend WithEvents tb_01 As MyTb + Public WithEvents DS As Eco2Ar.DS + Friend WithEvents bs As System.Windows.Forms.BindingSource + Friend WithEvents tb_zone_cnt As System.Windows.Forms.TextBox + Friend WithEvents Label48 As System.Windows.Forms.Label + Friend WithEvents SplitContainer1 As System.Windows.Forms.SplitContainer + Friend WithEvents dv As CEnergy.arindv + Friend WithEvents bn As System.Windows.Forms.BindingNavigator + Friend WithEvents bt_add As System.Windows.Forms.ToolStripButton + Friend WithEvents bt_Del As System.Windows.Forms.ToolStripButton + Friend WithEvents bt_cancel As System.Windows.Forms.ToolStripButton + Friend WithEvents ToolStripSeparator1 As System.Windows.Forms.ToolStripSeparator + Friend WithEvents Panel1 As System.Windows.Forms.Panel + 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 + Friend WithEvents GroupBox1 As System.Windows.Forms.GroupBox + Friend WithEvents Label15 As System.Windows.Forms.Label + Friend WithEvents PictureBox4 As System.Windows.Forms.PictureBox + Friend WithEvents PictureBox1 As System.Windows.Forms.PictureBox + Friend WithEvents PictureBox2 As System.Windows.Forms.PictureBox + Friend WithEvents tb_13 As Eco2Ar.MyTb + Friend WithEvents TextBox1 As System.Windows.Forms.TextBox + Friend WithEvents Label2 As System.Windows.Forms.Label + Friend WithEvents Tb_배기팬동력 As Eco2Ar.MyTb + Friend WithEvents Tb_급기팬동력 As Eco2Ar.MyTb + Friend WithEvents Tb_배기풍량 As Eco2Ar.MyTb + Friend WithEvents Tb_급기풍량 As Eco2Ar.MyTb + Friend WithEvents Cmb_팬효율산출방식 As Eco2Ar.MyCmb + Friend WithEvents ToolStripSeparator2 As System.Windows.Forms.ToolStripSeparator + Friend WithEvents lb_code As System.Windows.Forms.ToolStripLabel + Friend WithEvents DataGridViewTextBoxColumn1 As System.Windows.Forms.DataGridViewTextBoxColumn +End Class diff --git a/ArinWarev1/Forms_Input/Frm_kongjo.resx b/ArinWarev1/Forms_Input/Frm_kongjo.resx new file mode 100644 index 0000000..de851f5 --- /dev/null +++ b/ArinWarev1/Forms_Input/Frm_kongjo.resx @@ -0,0 +1,284 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + 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 + + + 222, 17 + + + 286, 17 + + + 353, 17 + + + + + /9j/4AAQSkZJRgABAgEASABIAAD/7gAOQWRvYmUAZAAAAAAB/+ED5kV4aWYAAE1NACoAAAAIAAcBEgAD + AAAAAQABAAABGgAFAAAAAQAAAGIBGwAFAAAAAQAAAGoBKAADAAAAAQACAAABMQACAAAAHAAAAHIBMgAC + AAAAFAAAAI6HaQAEAAAAAQAAAKIAAADCAEgAAAABAAAASAAAAAEAAEFkb2JlIFBob3Rvc2hvcCBDUzMg + V2luZG93cwAyMDEwOjA0OjE1IDIwOjMyOjA0AAACoAIABAAAAAEAAAA8oAMABAAAAAEAAAAMAAAAAAAA + AAYBAwADAAAAAQAGAAABGgAFAAAAAQAAARABGwAFAAAAAQAAARgBKAADAAAAAQACAAACAQAEAAAAAQAA + ASACAgAEAAAAAQAAAr4AAAAAAAAASAAAAAEAAABIAAAAAf/Y/+AAEEpGSUYAAQIAAEgASAAA/+0ADEFk + b2JlX0NNAAH/7gAOQWRvYmUAZIAAAAAB/9sAhAAMCAgICQgMCQkMEQsKCxEVDwwMDxUYExMVExMYEQwM + DAwMDBEMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMAQ0LCw0ODRAODhAUDg4OFBQODg4OFBEMDAwM + DBERDAwMDAwMEQwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAz/wAARCAAMADwDASIAAhEBAxEB/90A + BAAE/8QBPwAAAQUBAQEBAQEAAAAAAAAAAwABAgQFBgcICQoLAQABBQEBAQEBAQAAAAAAAAABAAIDBAUG + BwgJCgsQAAEEAQMCBAIFBwYIBQMMMwEAAhEDBCESMQVBUWETInGBMgYUkaGxQiMkFVLBYjM0coLRQwcl + klPw4fFjczUWorKDJkSTVGRFwqN0NhfSVeJl8rOEw9N14/NGJ5SkhbSVxNTk9KW1xdXl9VZmdoaWprbG + 1ub2N0dXZ3eHl6e3x9fn9xEAAgIBAgQEAwQFBgcHBgU1AQACEQMhMRIEQVFhcSITBTKBkRShsUIjwVLR + 8DMkYuFygpJDUxVjczTxJQYWorKDByY1wtJEk1SjF2RFVTZ0ZeLys4TD03Xj80aUpIW0lcTU5PSltcXV + 5fVWZnaGlqa2xtbm9ic3R1dnd4eXp7fH/9oADAMBAAIRAxEAPwDd/amR/pH/AOcf70v2pkf6R/8AnH+9 + UUlofq/Bpevxb37UyP8ASP8A84/3pftTI/0j/wDOP96opJfq/BXr8W9+1Mj/AEj/APOP96X7UyP9I/8A + zj/eqKSX6vwV6/F3ujdbuGS2i5xfU8HVxktIG76XyW99vo27p0XGdO2/ba930dZj+q5dX+qfZPL8VAeD + 341VVr/eZhx+0bu708n/2f/iDFhJQ0NfUFJPRklMRQABAQAADEhMaW5vAhAAAG1udHJSR0IgWFlaIAfO + AAIACQAGADEAAGFjc3BNU0ZUAAAAAElFQyBzUkdCAAAAAAAAAAAAAAAAAAD21gABAAAAANMtSFAgIAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAEWNwcnQAAAFQAAAAM2Rl + c2MAAAGEAAAAbHd0cHQAAAHwAAAAFGJrcHQAAAIEAAAAFHJYWVoAAAIYAAAAFGdYWVoAAAIsAAAAFGJY + WVoAAAJAAAAAFGRtbmQAAAJUAAAAcGRtZGQAAALEAAAAiHZ1ZWQAAANMAAAAhnZpZXcAAAPUAAAAJGx1 + bWkAAAP4AAAAFG1lYXMAAAQMAAAAJHRlY2gAAAQwAAAADHJUUkMAAAQ8AAAIDGdUUkMAAAQ8AAAIDGJU + UkMAAAQ8AAAIDHRleHQAAAAAQ29weXJpZ2h0IChjKSAxOTk4IEhld2xldHQtUGFja2FyZCBDb21wYW55 + AABkZXNjAAAAAAAAABJzUkdCIElFQzYxOTY2LTIuMQAAAAAAAAAAAAAAEnNSR0IgSUVDNjE5NjYtMi4x + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABYWVogAAAAAAAA + 81EAAQAAAAEWzFhZWiAAAAAAAAAAAAAAAAAAAAAAWFlaIAAAAAAAAG+iAAA49QAAA5BYWVogAAAAAAAA + YpkAALeFAAAY2lhZWiAAAAAAAAAkoAAAD4QAALbPZGVzYwAAAAAAAAAWSUVDIGh0dHA6Ly93d3cuaWVj + LmNoAAAAAAAAAAAAAAAWSUVDIGh0dHA6Ly93d3cuaWVjLmNoAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAGRlc2MAAAAAAAAALklFQyA2MTk2Ni0yLjEgRGVmYXVsdCBSR0Ig + Y29sb3VyIHNwYWNlIC0gc1JHQgAAAAAAAAAAAAAALklFQyA2MTk2Ni0yLjEgRGVmYXVsdCBSR0IgY29s + b3VyIHNwYWNlIC0gc1JHQgAAAAAAAAAAAAAAAAAAAAAAAAAAAABkZXNjAAAAAAAAACxSZWZlcmVuY2Ug + Vmlld2luZyBDb25kaXRpb24gaW4gSUVDNjE5NjYtMi4xAAAAAAAAAAAAAAAsUmVmZXJlbmNlIFZpZXdp + bmcgQ29uZGl0aW9uIGluIElFQzYxOTY2LTIuMQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAdmlldwAA + AAAAE6T+ABRfLgAQzxQAA+3MAAQTCwADXJ4AAAABWFlaIAAAAAAATAlWAFAAAABXH+dtZWFzAAAAAAAA + AAEAAAAAAAAAAAAAAAAAAAAAAAACjwAAAAJzaWcgAAAAAENSVCBjdXJ2AAAAAAAABAAAAAAFAAoADwAU + ABkAHgAjACgALQAyADcAOwBAAEUASgBPAFQAWQBeAGMAaABtAHIAdwB8AIEAhgCLAJAAlQCaAJ8ApACp + AK4AsgC3ALwAwQDGAMsA0ADVANsA4ADlAOsA8AD2APsBAQEHAQ0BEwEZAR8BJQErATIBOAE+AUUBTAFS + AVkBYAFnAW4BdQF8AYMBiwGSAZoBoQGpAbEBuQHBAckB0QHZAeEB6QHyAfoCAwIMAhQCHQImAi8COAJB + AksCVAJdAmcCcQJ6AoQCjgKYAqICrAK2AsECywLVAuAC6wL1AwADCwMWAyEDLQM4A0MDTwNaA2YDcgN+ + A4oDlgOiA64DugPHA9MD4APsA/kEBgQTBCAELQQ7BEgEVQRjBHEEfgSMBJoEqAS2BMQE0wThBPAE/gUN + BRwFKwU6BUkFWAVnBXcFhgWWBaYFtQXFBdUF5QX2BgYGFgYnBjcGSAZZBmoGewaMBp0GrwbABtEG4wb1 + BwcHGQcrBz0HTwdhB3QHhgeZB6wHvwfSB+UH+AgLCB8IMghGCFoIbgiCCJYIqgi+CNII5wj7CRAJJQk6 + CU8JZAl5CY8JpAm6Cc8J5Qn7ChEKJwo9ClQKagqBCpgKrgrFCtwK8wsLCyILOQtRC2kLgAuYC7ALyAvh + C/kMEgwqDEMMXAx1DI4MpwzADNkM8w0NDSYNQA1aDXQNjg2pDcMN3g34DhMOLg5JDmQOfw6bDrYO0g7u + DwkPJQ9BD14Peg+WD7MPzw/sEAkQJhBDEGEQfhCbELkQ1xD1ERMRMRFPEW0RjBGqEckR6BIHEiYSRRJk + EoQSoxLDEuMTAxMjE0MTYxODE6QTxRPlFAYUJxRJFGoUixStFM4U8BUSFTQVVhV4FZsVvRXgFgMWJhZJ + FmwWjxayFtYW+hcdF0EXZReJF64X0hf3GBsYQBhlGIoYrxjVGPoZIBlFGWsZkRm3Gd0aBBoqGlEadxqe + GsUa7BsUGzsbYxuKG7Ib2hwCHCocUhx7HKMczBz1HR4dRx1wHZkdwx3sHhYeQB5qHpQevh7pHxMfPh9p + H5Qfvx/qIBUgQSBsIJggxCDwIRwhSCF1IaEhziH7IiciVSKCIq8i3SMKIzgjZiOUI8Ij8CQfJE0kfCSr + JNolCSU4JWgllyXHJfcmJyZXJocmtyboJxgnSSd6J6sn3CgNKD8ocSiiKNQpBik4KWspnSnQKgIqNSpo + KpsqzysCKzYraSudK9EsBSw5LG4soizXLQwtQS12Last4S4WLkwugi63Lu4vJC9aL5Evxy/+MDUwbDCk + MNsxEjFKMYIxujHyMioyYzKbMtQzDTNGM38zuDPxNCs0ZTSeNNg1EzVNNYc1wjX9Njc2cjauNuk3JDdg + N5w31zgUOFA4jDjIOQU5Qjl/Obw5+To2OnQ6sjrvOy07azuqO+g8JzxlPKQ84z0iPWE9oT3gPiA+YD6g + PuA/IT9hP6I/4kAjQGRApkDnQSlBakGsQe5CMEJyQrVC90M6Q31DwEQDREdEikTORRJFVUWaRd5GIkZn + RqtG8Ec1R3tHwEgFSEtIkUjXSR1JY0mpSfBKN0p9SsRLDEtTS5pL4kwqTHJMuk0CTUpNk03cTiVObk63 + TwBPSU+TT91QJ1BxULtRBlFQUZtR5lIxUnxSx1MTU19TqlP2VEJUj1TbVShVdVXCVg9WXFapVvdXRFeS + V+BYL1h9WMtZGllpWbhaB1pWWqZa9VtFW5Vb5Vw1XIZc1l0nXXhdyV4aXmxevV8PX2Ffs2AFYFdgqmD8 + YU9homH1YklinGLwY0Njl2PrZEBklGTpZT1lkmXnZj1mkmboZz1nk2fpaD9olmjsaUNpmmnxakhqn2r3 + a09rp2v/bFdsr20IbWBtuW4SbmtuxG8eb3hv0XArcIZw4HE6cZVx8HJLcqZzAXNdc7h0FHRwdMx1KHWF + deF2Pnabdvh3VnezeBF4bnjMeSp5iXnnekZ6pXsEe2N7wnwhfIF84X1BfaF+AX5ifsJ/I3+Ef+WAR4Co + gQqBa4HNgjCCkoL0g1eDuoQdhICE44VHhauGDoZyhteHO4efiASIaYjOiTOJmYn+imSKyoswi5aL/Ixj + jMqNMY2Yjf+OZo7OjzaPnpAGkG6Q1pE/kaiSEZJ6kuOTTZO2lCCUipT0lV+VyZY0lp+XCpd1l+CYTJi4 + mSSZkJn8mmia1ZtCm6+cHJyJnPedZJ3SnkCerp8dn4uf+qBpoNihR6G2oiailqMGo3aj5qRWpMelOKWp + phqmi6b9p26n4KhSqMSpN6mpqhyqj6sCq3Wr6axcrNCtRK24ri2uoa8Wr4uwALB1sOqxYLHWskuywrM4 + s660JbSctRO1irYBtnm28Ldot+C4WbjRuUq5wro7urW7LrunvCG8m70VvY++Cr6Evv+/er/1wHDA7MFn + wePCX8Lbw1jD1MRRxM7FS8XIxkbGw8dBx7/IPci8yTrJuco4yrfLNsu2zDXMtc01zbXONs62zzfPuNA5 + 0LrRPNG+0j/SwdNE08bUSdTL1U7V0dZV1tjXXNfg2GTY6Nls2fHadtr724DcBdyK3RDdlt4c3qLfKd+v + 4DbgveFE4cziU+Lb42Pj6+Rz5PzlhOYN5pbnH+ep6DLovOlG6dDqW+rl63Dr++yG7RHtnO4o7rTvQO/M + 8Fjw5fFy8f/yjPMZ86f0NPTC9VD13vZt9vv3ivgZ+Kj5OPnH+lf65/t3/Af8mP0p/br+S/7c/23////b + AEMAAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQICAgICAgICAgICAwMD + AwMDAwMDA//bAEMBAQEBAQEBAQEBAQICAQICAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMD + AwMDAwMDAwMDAwMDAwMDA//AABEIAAwAPAMBEQACEQEDEQH/xAAfAAABBQEBAQEBAQAAAAAAAAAAAQID + BAUGBwgJCgv/xAC1EAACAQMDAgQDBQUEBAAAAX0BAgMABBEFEiExQQYTUWEHInEUMoGRoQgjQrHBFVLR + 8CQzYnKCCQoWFxgZGiUmJygpKjQ1Njc4OTpDREVGR0hJSlNUVVZXWFlaY2RlZmdoaWpzdHV2d3h5eoOE + hYaHiImKkpOUlZaXmJmaoqOkpaanqKmqsrO0tba3uLm6wsPExcbHyMnK0tPU1dbX2Nna4eLj5OXm5+jp + 6vHy8/T19vf4+fr/xAAfAQADAQEBAQEBAQEBAAAAAAAAAQIDBAUGBwgJCgv/xAC1EQACAQIEBAMEBwUE + BAABAncAAQIDEQQFITEGEkFRB2FxEyIygQgUQpGhscEJIzNS8BVictEKFiQ04SXxFxgZGiYnKCkqNTY3 + ODk6Q0RFRkdISUpTVFVWV1hZWmNkZWZnaGlqc3R1dnd4eXqCg4SFhoeIiYqSk5SVlpeYmZqio6Slpqeo + qaqys7S1tre4ubrCw8TFxsfIycrS09TV1tfY2dri4+Tl5ufo6ery8/T19vf4+fr/2gAMAwEAAhEDEQA/ + AP1ZH7UPxEAA/wCEw8bnj/ob9f8A/k+v7U/1Nyj/AKF+G/8ABUP/AJE/llcSZlZf7dX/APBk/wDMX/hq + H4if9Df43/8ACv1//wCT6P8AU3Kf+hfhv/BUP/kQ/wBZcy/6Dq//AIMn/mH/AA1D8RP+hv8AG/8A4V+v + /wDyfR/qblP/AEL8N/4Kh/8AIh/rLmX/AEHV/wDwZP8AzD/hqH4if9Df43/8K/X/AP5Po/1Nyn/oX4b/ + AMFQ/wDkQ/1lzL/oOr/+DJ/5h/w1D8RP+hv8b/8AhX6//wDJ9H+puU/9C/Df+Cof/Ih/rLmX/QdX/wDB + k/8AMT/hqH4if9Df43/8K/X/AP5Po/1Nyn/oX4b/AMFQ/wDkQ/1kzL/oOr/+DJ/5n2R+xz+234zt/iRp + nw+8a6vqXiDwZ4gs9baObXr+bUr/AMPajpmkX2tQ3FlqV2Zb57K7XT2t3tXkaJWkV4whVxJ+beJfAuU4 + Th/FZ/hKEKOMw8qd+SKjGcZzjTs4q0bpyUlJK7s073VvuuBOLMxxGcYfJ8TWlVw1ZTtzu7hKMJTupPWz + UWnFu2qatrf9aP8AhfXgv+zv7U89/sfm+V5207N+M43fSv50P2w/kwr/AEFP42CgAoAKACgAoA9s/Z0/ + s7/hcng3+1vP/s7Ov/avs2PP2f8ACL63t2buP9ZjP+zmvz7xU/5IPPf+4H/qRRPsvD//AJK7KP8AuL/6 + ZqH7/wD/ABaT/hUfb7Ht/wBj7V9p8v8A9Cr+Oz+lz//Z + + + + 45 + + \ No newline at end of file diff --git a/ArinWarev1/Forms_Input/Frm_kongjo.vb b/ArinWarev1/Forms_Input/Frm_kongjo.vb new file mode 100644 index 0000000..4d0de07 --- /dev/null +++ b/ArinWarev1/Forms_Input/Frm_kongjo.vb @@ -0,0 +1,581 @@ +Public Class Frm_kongjo + + Dim Init As Boolean = False + Dim SrcDrv As DataRowView + + + Public Sub New(_opentime) + + ' 이 호출은 디자이너에 필요합니다. + InitializeComponent() + OpenTime = _opentime + + ' InitializeComponent() 호출 뒤에 초기화 코드를 추가하십시오. + + End Sub + + +#Region "data Base 변경여부및 적용방법" + + '''변경된내용을적용한다. + Public Overrides Function AcceptChanged() As Boolean + bs.EndEdit() + Dim BaseDS As DataSet = CType(bs.DataSource, DataSet) + Dim BaseDT As DataTable = BaseDS.Tables(bs.DataMember) + BaseDT.AcceptChanges() + Return True + End Function + + '''변경된내용이있다면 취소한다. + Public Overrides Function RejectChanged() As Boolean + Dim BaseDS As DataSet = CType(bs.DataSource, DataSet) + Dim BaseDT As DataTable = BaseDS.Tables(bs.DataMember) + BaseDT.RejectChanges() + Return True + End Function + + '''데이터에변형이있었는가? + Public Overrides Function HasChanged() As Boolean + bs.EndEdit() + Dim BaseDS As DataSet = CType(bs.DataSource, DataSet) + Dim BaseDT As DataTable = BaseDS.Tables(bs.DataMember) + Dim ChangeDT As DataTable = BaseDT.GetChanges + If Not ChangeDT Is Nothing Then Return True + Return False + End Function + + '''기본데이터테이블을 반환합니다. + Public Function DT() As DataTable + Dim BaseDS As DataSet = CType(bs.DataSource, DataSet) + Return BaseDS.Tables(bs.DataMember) + End Function + + +#End Region + + Private Sub ShowHistory() + Dim drv As DataRowView = Me.bs.Current + Dim f As New Frm_History("tbl_kongjo", drv("code").ToString) + If f.ShowDialog = DialogResult.OK Then + drv(f.colname) = f.val + Me.Validate() + Me.bs.EndEdit() + My.Application.DoEvents() + MsgBox("값이 변경되었습니다", MsgBoxStyle.Information, "확인") + End If + End Sub + Private Sub AddNewDataRow_Zone_Changed2(ByVal sender As Object, ByVal e As System.Data.DataColumnChangeEventArgs) + Dim oval As String = e.Row(e.Column.ColumnName).ToString + Dim nval As String = e.ProposedValue.ToString + If oval <> nval Then + Dim newdr As DS2.historyRow = DSHistory.history.NewhistoryRow + newdr.time = Now.ToString("yyyy-MM-dd HH:mm:ss") + newdr.tablename = "tbl_kongjo" + newdr.ovalue = oval + newdr.nvalue = nval + newdr.column = e.Column.ColumnName + newdr.code = e.Row("code").ToString + DSHistory.history.AddhistoryRow(newdr) + DSHistory.history.AcceptChanges() + End If + End Sub + Private Sub MdiMain_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load + + Me.Show() + My.Application.DoEvents() + 'Work_msg_timer("잠시만 기다려주세요") + + + Me.bs.DataSource = DSET1 + '//공조처리 + AddHandler DSET1.tbl_kongjo.TableNewRow, AddressOf AddNewDataRow_kongjo + AddHandler DSET1.tbl_kongjo.ColumnChanged, AddressOf AddNewDataRow_Zone_Changed + AddHandler DSET1.tbl_kongjo.ColumnChanging, AddressOf AddNewDataRow_Zone_Changed2 + + '//콤보컨트롤 바인딩 + Binding_Zone() + + '//모든컨트롤의 cTrl_enter 를 추가합니다 + BindProperty(CType(Me.SplitContainer1.Panel2.Controls, Control.ControlCollection)) + + + Me.bs.Filter = "code <> '0'" + 'If Me.Parameter <> "" Then Me.bs.Filter &= " and 공조방식 ='" + Me.Parameter + "'" + 'Me.lb_grpname.Text = Me.Parameter + + ' Binding_Zone() + Me.Init = True + + Try + Me.bs.Position = CEnergy.ARINCLASS.Read_LastPos_Frm(Me) + Catch ex As Exception + Me.bs.MoveFirst() + End Try + + bs_CurrentChanged(sender, e) + Validate_Control() + AddDebug("▲ Form Load") + + End Sub +#Region "Control_Enter" + Private Sub BindProperty(ByVal Ctl As Control.ControlCollection) + For Each C As Control In Ctl + If C.Controls.Count > 1 Then + BindProperty(C.Controls) + Else + If C.GetType.ToString.ToUpper.IndexOf("MYTB") <> -1 Then + AddHandler CType(C, MyTb).KeyDown, AddressOf TextBOx_KeyDown + ElseIf C.GetType.ToString.ToUpper.IndexOf("MYCMB") <> -1 Then + AddHandler CType(C, MyCmb).KeyDown, AddressOf Cmd_KeyDown + End If + End If + Next + End Sub + + + Private Sub TextBOx_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) + If e.KeyCode = Keys.Enter AndAlso e.Control Then + Try + Dim Field As String = (CType(sender, MyTb).DataBindings.Item("text").BindingMemberInfo.BindingField) + For Each Dr As DataRow In DT.Select(Me.bs.Filter, "") + Dr(Field) = CType(sender, MyTb).Text + Next + Work_msg_timer("모든값이 변경되었습니다", 25) + Catch ex As Exception + + End Try + + End If + End Sub + Private Sub Cmd_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) + If e.KeyCode = Keys.Enter AndAlso e.Control Then + Try + Dim Field As String = (CType(sender, MyCmb).DataBindings.Item("selectedvalue").BindingMemberInfo.BindingField) + For Each Dr As DataRow In DT.Select(Me.bs.Filter, "") + Dr(Field) = CType(sender, MyCmb).SelectedValue + Next + Work_msg_timer("모든값이 변경되었습니다", 25) + Catch ex As Exception + + End Try + End If + End Sub +#End Region + + +#Region "공조처리시스템" + + Private Function GetMaxCode(ByVal dt As DataTable) As String + Try + Dim Dr As DataRow = dt.Select("", "code desc")(0) + Return Format(CInt(Dr("code")) + 1, "0000") + Catch ex As Exception + Return "0001" + End Try + End Function + + Private Sub MdiMain_FormClosed(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosedEventArgs) Handles Me.FormClosed + CEnergy.ARINCLASS.SaveLoad_FrmSetting(Me, Me.bs.Position, True) + End Sub + + Private Sub MdiMain_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown + Select Case e.KeyCode + Case Keys.F12 + ShowHistory() + End Select + End Sub + Private Sub AddNewDataRow_kongjo(ByVal sender As Object, ByVal e As System.Data.DataTableNewRowEventArgs) + e.Row.Item("code") = GetMaxCode(DSET1.tbl_kongjo) + e.Row.Item("팬효율산출방식") = "계산치" + e.Row.Item("설명") = "신규데이터" + e.Row.Item("공조방식") = Me.Parameter '//현재선택된데이터로 공조방식을 처리해준다. + End Sub + Private Sub AddNewDataRow_Zone_Changed(ByVal sender As Object, ByVal e As System.Data.DataColumnChangeEventArgs) + + End Sub + Private Sub ToolStripButton48_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt_add.Click + If Not EndEdit(Me.bs) Then Return + Me.bs.AddNew() + INitRow(Me.Controls) + MdiMain.RefreshMenuList(TreeTag) + End Sub + + Private Sub ToolStripButton49_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt_Del.Click + Dbbase.DelCrow(Me.bs, True) + MdiMain.RefreshMenuList(TreeTag) + End Sub + + Private Sub ToolStripButton51_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt_cancel.Click + If Not EndEdit(Me.bs) Then Return + Data_Cancel(DSET1.tbl_profile, Nothing) + MdiMain.RefreshMenuList(TreeTag) + End Sub + + + Private Sub Cmb_DeleteVal(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) + If e.KeyCode = Keys.Delete Then + CType(sender, ComboBox).SelectedValue = "" + End If + End Sub + + Private Sub Binding_Zone() + Dim bs_cmb_공조방식 As New BindingSource(DSET1, "tbl_common") + bs_cmb_공조방식.Filter = "gubun='1026'" + bs_cmb_공조방식.Sort = "code" + Me.공조방식NCMB.DataSource = bs_cmb_공조방식 + 공조방식NCMB.DisplayMember = "name" + 공조방식NCMB.ValueMember = "name" + Me.공조방식NCMB.DataBindings.Add("selectedvalue", Me.bs, "공조방식") + AddHandler 공조방식NCMB.KeyDown, AddressOf Cmb_DeleteVal + + Dim bs_cmb_리턴공기혼합여부ComboBox As New BindingSource(DSET1, "tbl_common") + bs_cmb_리턴공기혼합여부ComboBox.Filter = "gubun='1054'" + bs_cmb_리턴공기혼합여부ComboBox.Sort = "code" + Me.리턴공기혼합여부ComboBox.DataSource = bs_cmb_리턴공기혼합여부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='1015'" + 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='1032'" + 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='1016'" + 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_Cmb_팬효율산출방식 As New BindingSource(DSET1, "tbl_common") + bs_Cmb_팬효율산출방식.Sort = "code" + bs_Cmb_팬효율산출방식.Filter = "gubun='1031'" + Cmb_팬효율산출방식.DataSource = bs_Cmb_팬효율산출방식 + Cmb_팬효율산출방식.DisplayMember = "name" + Cmb_팬효율산출방식.ValueMember = "name" + Me.Cmb_팬효율산출방식.DataBindings.Add("selectedvalue", 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 + If Me.bs.Position < Me.bs.Count Then Me.bs.Position += 1 + Else + If Me.bs.Position > 0 Then Me.bs.Position -= 1 + End If + Me.Validate() + My.Application.DoEvents() + End Sub +#End Region + + Private Sub 열교환기유형ComboBox_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 열교환기유형ComboBox.SelectedIndexChanged + Validate_Control() + End Sub + Private Sub Validate_Control() + If Not Init Then Return + Try + If Me.열교환기유형ComboBox.SelectedIndex = 0 Or Me.열교환기유형ComboBox.SelectedIndex = 1 Then '//사용안함 + Me.tb_08.Enabled = False + Me.tb_13.Enabled = False + Else + Me.tb_08.Enabled = True + Me.tb_13.Enabled = True + End If + bs.EndEdit() + Catch ex As Exception + + End Try + Try + If Me.Cmb_팬효율산출방식.SelectedIndex = 0 Then + Me.Tb_급기풍량.Enabled = True + Me.Tb_배기풍량.Enabled = True + Me.Tb_급기팬동력.Enabled = True + Me.Tb_배기팬동력.Enabled = True + Else + Me.Tb_급기풍량.Enabled = False + Me.Tb_배기풍량.Enabled = False + Me.Tb_급기팬동력.Enabled = False + Me.Tb_배기팬동력.Enabled = False + End If + Catch ex As Exception + + End Try + + End Sub + + Private Sub bs_CurrentChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bs.CurrentChanged + '//존에 적용된수를 구한다ㅏ.(존수만 구했으니깐 단순히 해당 데이터의 배열갯수만 보여줬습니다. 면적을 구하려면 + If Not Init Then Return + Try + Dim drv As DataRowView = Me.bs.Current + If drv Is Nothing Then Return + Me.lb_code.Text = "[" + drv("code").ToString + "]" + + 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" + Me.TextBox1.Text = "0" + Else + + Dim 면적 As Decimal = 0 + Dim 존수 As Integer = 0 + For Each drow As DS.tbl_zoneRow In DR + If IsNumeric(drow.입력존의수) Then + 존수 += CInt(drow.입력존의수) + Else + 존수 += 1 + End If + '존수 += TOSG(drow.입력존의수) + Try + 면적 += TOSG(drow.면적) * TOSG(drow.입력존의수) + Catch ex As Exception + + End Try + Next + + Me.tb_zone_cnt.Text = Format(존수, "#,###,###").ToString + Me.TextBox1.Text = Format(면적, "##,###,###.#####").ToString + End If + + Catch ex As Exception + + End Try + + Me.bs.EndEdit() + + '// 며면적에 들어왓어요 표시하고싶으신곳에하세요 + + + End Sub + + Private Sub 공조방식NCMB_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles 공조방식NCMB.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) <> 17 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() '//한줄추가 + + Dim Cnt As Short = 0 + For i As Integer = 0 To CB.GetUpperBound(0) + Select Case i + Case 0 + CType(Me.bs.Current, DataRowView)("설명") = CB(i).Split(CChar(vbTab))(ii).Trim + Case 0 + 3 '//사용프로필 앞에 두개를 숫자4자리로변환 + If CB(i).Split(CChar(vbTab))(ii).Trim = "" Then + Me.공조방식NCMB.SelectedIndex = 0 + Else + Me.공조방식NCMB.Text = CB(i).Split(CChar(vbTab))(ii).Trim + End If + 'Me.공조방식NCMB.Text = CB(i).Split(CChar(vbTab))(ii).Trim + Case 1 + 3 '//공란 + Me.tb_01.Text = CB(i).Split(CChar(vbTab))(ii).Trim + Case 2 + 3 '//면적 + Me.tb_02.Text = CB(i).Split(CChar(vbTab))(ii).Trim + Case 3 + 3 + Me.tb_03.Text = CB(i).Split(CChar(vbTab))(ii).Trim + Case 4 + 3 + If CB(i).Split(CChar(vbTab))(ii).Trim = "" Then + Me.리턴공기혼합여부ComboBox.SelectedIndex = 0 + Else + Me.리턴공기혼합여부ComboBox.Text = CB(i).Split(CChar(vbTab))(ii).Trim + End If + ' Me.리턴공기혼합여부ComboBox.Text = CStr(IIf(CB(i).Split(CChar(vbTab))(ii).Trim = "", "0", CB(i).Split(CChar(vbTab))(ii).Trim )) + Case 5 + 3 + If CB(i).Split(CChar(vbTab))(ii).Trim = "" Then + Me.가습기유형ComboBox.SelectedIndex = 0 + Else + Me.가습기유형ComboBox.Text = CB(i).Split(CChar(vbTab))(ii).Trim + End If + 'Me.가습기유형ComboBox.Text = CStr(IIf(CB(i).Split(CChar(vbTab))(ii).Trim = "", "0", CB(i).Split(CChar(vbTab))(ii).Trim )) + Case 6 + 3 + If CB(i).Split(CChar(vbTab))(ii).Trim = "" Then + Me.외기냉방제어유무ComboBox.SelectedIndex = 0 + Else + Me.외기냉방제어유무ComboBox.Text = CB(i).Split(CChar(vbTab))(ii).Trim + End If + ' Me.외기냉방제어유무ComboBox.Text = CStr(IIf(CB(i).Split(CChar(vbTab))(ii).Trim = "", "0", CB(i).Split(CChar(vbTab))(ii).Trim )) + Case 7 + 3 + If CB(i).Split(CChar(vbTab))(ii).Trim = "" Then + Me.열교환기유형ComboBox.SelectedIndex = 0 + Else + Me.열교환기유형ComboBox.Text = CB(i).Split(CChar(vbTab))(ii).Trim + End If + ' Me.열교환기유형ComboBox.Text = CStr(IIf(CB(i).Split(CChar(vbTab))(ii).Trim = "", "0", CB(i).Split(CChar(vbTab))(ii).Trim )) + Case 8 + 3 + Me.tb_08.Text = CB(i).Split(CChar(vbTab))(ii).Trim + Case 8 + 3 + 1 + Me.tb_13.Text = CB(i).Split(CChar(vbTab))(ii).Trim + Case 9 + 3 + 1 + Me.Tb_급기팬압력손실.Text = CB(i).Split(CChar(vbTab))(ii).Trim + Case 10 + 3 + 1 + Me.Tb_배기팬압력손실.Text = CB(i).Split(CChar(vbTab))(ii).Trim + Case 11 + 3 + 1 + Me.Tb_급기팬효율.Text = CB(i).Split(CChar(vbTab))(ii).Trim + Case 12 + 3 + 1 + Me.Tb_배기팬효율.Text = CB(i).Split(CChar(vbTab))(ii).Trim + End Select + Next + Next + + Me.bs.EndEdit() + End If + End Sub + + Private Sub bt_Del_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles bt_Del.MouseDown + If e.Button = Windows.Forms.MouseButtons.Right Then + If MsgBox("전체삭제를 하시겠습니까?", MsgBoxStyle.Information Or MsgBoxStyle.OkCancel, "확인") = MsgBoxResult.Ok Then + Dim dR() As DataRow = DSET1.tbl_kongjo.Select(Me.bs.Filter, "") + For i As Integer = dR.GetUpperBound(0) To 0 Step -1 + dR(i).Delete() + Next + DSET1.tbl_kongjo.AcceptChanges() + End If + End If + End Sub + + Private Sub dv_CellBeginEdit(sender As Object, e As System.Windows.Forms.DataGridViewCellCancelEventArgs) Handles dv.CellBeginEdit + + End Sub + + + Private Sub dv_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles dv.MouseUp + If Prj.UserAuthType = "ADMIN" OrElse Prj.UserAuthType = "BOTH" OrElse Prj.UserAuthType = "BOTH2" OrElse Prj.UserAuthType = "BOTH1" Then '//2011.03.08 추가 + If e.Button = Windows.Forms.MouseButtons.Right Then + Dim Frm_FilterA As New Frm_Filter + Frm_FilterA.ColumTitle = getColCaption(Me.DT) + Frm_FilterA.ColumList = getColName(Me.DT) + Frm_FilterA.Colorlist = "" + Frm_FilterA.Numfield = "" '//20100618 Color 리스트처럼 , 구분해서 필드들을 모두 넣으세요.(=, >= 등을 사용하기 위해서는 해당 항목을 추가 요망) + Frm_FilterA.Default_Filter = "code <> '0'" + + If Frm_FilterA.ShowDialog <> Windows.Forms.DialogResult.OK Then Return '//창떳을떄 확인아ㅣ고 취소눌르면 다음을 수행하지않는다는거에요. + Dim Filter As String = Frm_FilterA.tb_filter.Text '//값은 아까 그 텍박에 잇구요. + Try + Me.bs.Filter = Filter + + '//바꾸기값이 있으면 변경 20100618 + If Frm_FilterA.cmb_fieldc.SelectedIndex >= 0 AndAlso Frm_FilterA.cmb_fieldc.Text.ToLower <> "code" AndAlso _ + Frm_FilterA.tb_valuec.Text <> "" Then + Dim Drow() As DataRow = Me.DT.Select(Filter) + For Each Dr As DataRow In Drow + Dr(Frm_FilterA.cmb_fieldc.Text) = Frm_FilterA.tb_valuec.Text + Next + MsgBox("바꾸기 완료", MsgBoxStyle.Information, "확인") + End If + + Catch ex As Exception + Me.bs.Filter = "" + End Try + End If + End If + End Sub + + Private Sub dv_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles dv.KeyDown + + + + '//여기보시면 alt+d 누르면 한줄을 경고없이(falsE)삭제하도록 햇어요.. 사실원래 밋alt +d 인데.. ㅎㅎ 잘못해서 ctrl 됫다는 + If Prj.UserAuthType = "ADMIN" OrElse Prj.UserAuthType = "BOTH" OrElse Prj.UserAuthType = "BOTH2" OrElse Prj.UserAuthType = "BOTH1" Then '//2011.03.08 추가 + Select Case e.KeyCode + Case Keys.D + If e.Alt Then + Dbbase.DelCrow(Me.bs, False) + End If + Case Keys.C + If e.Control Then + Me.SrcDrv = Me.bs.Current + If Me.SrcDrv Is Nothing Then + MsgBox("저장할 ROW가 없습니다", MsgBoxStyle.Information, "확인") + Return + End If + ' My.Computer.Clipboard.SetData("ZDATA", Drv) + End If + Case Keys.V + If e.Control Then + If Me.SrcDrv Is Nothing Then Return + Me.bt_add.PerformClick() '//신규추가 + Dim NewDrv As DataRowView = Me.bs.Current + + For Each C As DataColumn In Me.DT.Columns + If C.ColumnName.ToUpper = "CODE" Then + ElseIf C.ColumnName.ToUpper = "설명" Then + NewDrv(C.ColumnName) = SrcDrv(C.ColumnName) & "#1" + Else + NewDrv(C.ColumnName) = SrcDrv(C.ColumnName) + End If + Next + Me.bs.EndEdit() + bs.MoveLast() + End If + End Select + End If + End Sub + + Private Sub Cmb_팬효율산출방식_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Cmb_팬효율산출방식.SelectedIndexChanged + Validate_Control() + End Sub + + Private Sub Tb_급기풍량_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Tb_급기풍량.TextChanged, Tb_급기팬압력손실.TextChanged, Tb_급기팬동력.TextChanged + If Me.Cmb_팬효율산출방식.Text = "계산치" AndAlso Me.Tb_급기팬동력.Text <> "" AndAlso Me.Tb_급기팬동력.Text <> "0" AndAlso Me.Tb_급기팬동력.Text <> "0." Then + Dim 효율 As Decimal + Try + 효율 = Math.Round(TOSG(Tb_급기풍량.Text) * (TOSG(Tb_급기팬압력손실.Text) / 9.8) / (TOSG(Tb_급기팬동력.Text) * 102 * 3600), 3) + Me.Tb_급기팬효율.Text = TOSG(효율).ToString + Catch ex As Exception + + End Try + End If + End Sub + + Private Sub Tb_배기풍량_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Tb_배기풍량.TextChanged, Tb_배기팬압력손실.TextChanged, Tb_배기팬동력.TextChanged + If Me.Cmb_팬효율산출방식.Text = "계산치" AndAlso Me.Tb_배기팬동력.Text <> "" AndAlso Me.Tb_배기팬동력.Text <> "0" AndAlso Me.Tb_배기팬동력.Text <> "0." Then + Dim 효율 As Decimal + Try + 효율 = Math.Round(TOSG(Tb_배기풍량.Text) * (TOSG(Tb_배기팬압력손실.Text) / 9.8) / (TOSG(Tb_배기팬동력.Text) * 102 * 3600), 3) + Me.Tb_배기팬효율.Text = TOSG(효율).ToString + Catch ex As Exception + + End Try + End If + End Sub + + Private Sub dv_CellContentClick(sender As System.Object, e As System.Windows.Forms.DataGridViewCellEventArgs) Handles dv.CellContentClick + + End Sub + + Private Sub 공조방식NCMB_SelectedIndexChanged(sender As System.Object, e As System.EventArgs) Handles 공조방식NCMB.SelectedIndexChanged + + End Sub + + Private Sub 공조방식NCMB_SelectedValueChanged(sender As Object, e As System.EventArgs) Handles 공조방식NCMB.SelectedValueChanged + Me.bs.EndEdit() + End Sub + + Private Sub 공조방식NCMB_SelectionChangeCommitted(sender As Object, e As System.EventArgs) Handles 공조방식NCMB.SelectionChangeCommitted + + End Sub +End Class \ No newline at end of file diff --git a/ArinWarev1/Forms_Input/Frm_kongkub.Designer.vb b/ArinWarev1/Forms_Input/Frm_kongkub.Designer.vb new file mode 100644 index 0000000..4c58a79 --- /dev/null +++ b/ArinWarev1/Forms_Input/Frm_kongkub.Designer.vb @@ -0,0 +1,921 @@ + _ +Partial Class Frm_kongkub + Inherits CForm + + 'Form은 Dispose를 재정의하여 구성 요소 목록을 정리합니다. + _ + Protected Overrides Sub Dispose(ByVal disposing As Boolean) + Try + If disposing AndAlso components IsNot Nothing Then + components.Dispose() + End If + Finally + MyBase.Dispose(disposing) + End Try + End Sub + + 'Windows Form 디자이너에 필요합니다. + Private components As System.ComponentModel.IContainer + + '참고: 다음 프로시저는 Windows Form 디자이너에 필요합니다. + '수정하려면 Windows Form 디자이너를 사용하십시오. + '코드 편집기를 사용하여 수정하지 마십시오. + _ + Private Sub InitializeComponent() + Me.components = New System.ComponentModel.Container() + Dim Label1 As System.Windows.Forms.Label + Dim Label2 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 Label8 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 Label17 As System.Windows.Forms.Label + Dim Label18 As System.Windows.Forms.Label + Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(Frm_kongkub)) + Me.bs = New System.Windows.Forms.BindingSource(Me.components) + Me.DS = New Eco2Ar.DS() + Me.전기난방GroupBox = New System.Windows.Forms.GroupBox() + Me.Label16 = New System.Windows.Forms.Label() + Me.전기난방제어ComboBox = New Eco2Ar.MyCmb() + Me.전기난방PictureBox = New System.Windows.Forms.PictureBox() + Me.바닥난방열GroupBox = New System.Windows.Forms.GroupBox() + Me.Label20 = New System.Windows.Forms.Label() + Me.바닥난방열제어ComboBox = New Eco2Ar.MyCmb() + Me.바닥난방열건축부위ComboBox = New Eco2Ar.MyCmb() + Me.바닥난방열PictureBox = New System.Windows.Forms.PictureBox() + Me.바닥난방전기GroupBox = New System.Windows.Forms.GroupBox() + Me.Label19 = New System.Windows.Forms.Label() + Me.바닥난방전기제어ComboBox = New Eco2Ar.MyCmb() + Me.바닥난방전기건축부위ComboBox = New Eco2Ar.MyCmb() + Me.바닥난방전기PictureBox = New System.Windows.Forms.PictureBox() + Me.GroupBox28 = New System.Windows.Forms.GroupBox() + Me.열공급시스템ComboBox = New Eco2Ar.MyCmb() + Me.열공급생산기기ComboBox = New Eco2Ar.MyCmb() + Me.PictureBox1 = New System.Windows.Forms.PictureBox() + Me.노출형방열기GroupBox = New System.Windows.Forms.GroupBox() + Me.Label10 = New System.Windows.Forms.Label() + Me.노출형제어ComboBox = New Eco2Ar.MyCmb() + Me.노출형방열기PictureBox = New System.Windows.Forms.PictureBox() + Me.GroupBox3 = New System.Windows.Forms.GroupBox() + Me.추가펌프수NTb = New Eco2Ar.MyTb() + Me.팬송풍기수NTb = New Eco2Ar.MyTb() + Me.펌프정격전력NTb = New Eco2Ar.MyTb() + Me.제어기의정격전력NTb = New Eco2Ar.MyTb() + Me.팬송풍기정격전력NTb = New Eco2Ar.MyTb() + Me.PictureBox8 = New System.Windows.Forms.PictureBox() + Me.Label201 = New System.Windows.Forms.Label() + Me.tb_zone_cnt = New System.Windows.Forms.TextBox() + Me.SplitContainer1 = New System.Windows.Forms.SplitContainer() + Me.dv = New CEnergy.arindv() + 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() + Me.bt_Del = New System.Windows.Forms.ToolStripButton() + Me.bt_cancel = New System.Windows.Forms.ToolStripButton() + Me.ToolStripSeparator1 = New System.Windows.Forms.ToolStripSeparator() + Me.lbl_pos = New System.Windows.Forms.ToolStripLabel() + Me.ToolStripSeparator2 = New System.Windows.Forms.ToolStripSeparator() + Me.lb_code = New System.Windows.Forms.ToolStripLabel() + Me.Label9 = New System.Windows.Forms.Label() + Me.PictureBox2 = New System.Windows.Forms.PictureBox() + Me.Label11 = New System.Windows.Forms.Label() + Me.PictureBox4 = New System.Windows.Forms.PictureBox() + Me.Panel1 = New System.Windows.Forms.Panel() + Me.DataGridViewTextBoxColumn1 = New System.Windows.Forms.DataGridViewTextBoxColumn() + Label1 = New System.Windows.Forms.Label() + Label2 = 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() + Label8 = New System.Windows.Forms.Label() + Label13 = New System.Windows.Forms.Label() + Label14 = New System.Windows.Forms.Label() + Label15 = New System.Windows.Forms.Label() + Label17 = New System.Windows.Forms.Label() + Label18 = New System.Windows.Forms.Label() + CType(Me.bs, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.DS, System.ComponentModel.ISupportInitialize).BeginInit() + Me.전기난방GroupBox.SuspendLayout() + CType(Me.전기난방PictureBox, System.ComponentModel.ISupportInitialize).BeginInit() + Me.바닥난방열GroupBox.SuspendLayout() + CType(Me.바닥난방열PictureBox, System.ComponentModel.ISupportInitialize).BeginInit() + Me.바닥난방전기GroupBox.SuspendLayout() + CType(Me.바닥난방전기PictureBox, System.ComponentModel.ISupportInitialize).BeginInit() + Me.GroupBox28.SuspendLayout() + CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit() + Me.노출형방열기GroupBox.SuspendLayout() + CType(Me.노출형방열기PictureBox, System.ComponentModel.ISupportInitialize).BeginInit() + Me.GroupBox3.SuspendLayout() + CType(Me.PictureBox8, System.ComponentModel.ISupportInitialize).BeginInit() + 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.bn, System.ComponentModel.ISupportInitialize).BeginInit() + Me.bn.SuspendLayout() + CType(Me.PictureBox2, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.PictureBox4, System.ComponentModel.ISupportInitialize).BeginInit() + Me.Panel1.SuspendLayout() + Me.SuspendLayout() + ' + 'Label1 + ' + Label1.AutoSize = True + Label1.BackColor = System.Drawing.Color.FromArgb(CType(CType(243, Byte), Integer), CType(CType(244, Byte), Integer), CType(CType(246, Byte), Integer)) + Label1.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label1.Location = New System.Drawing.Point(19, 37) + Label1.Name = "Label1" + Label1.Size = New System.Drawing.Size(95, 12) + Label1.TabIndex = 0 + Label1.Text = "실내온도-제어:" + ' + 'Label2 + ' + Label2.AutoSize = True + Label2.BackColor = System.Drawing.Color.FromArgb(CType(CType(219, Byte), Integer), CType(CType(221, Byte), Integer), CType(CType(223, Byte), Integer)) + Label2.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label2.Location = New System.Drawing.Point(6, 37) + Label2.Name = "Label2" + Label2.Size = New System.Drawing.Size(95, 12) + Label2.TabIndex = 0 + Label2.Text = "실내온도-제어:" + ' + 'Label3 + ' + Label3.AutoSize = True + Label3.BackColor = System.Drawing.Color.FromArgb(CType(CType(219, Byte), Integer), CType(CType(221, Byte), Integer), CType(CType(223, Byte), Integer)) + Label3.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label3.Location = New System.Drawing.Point(6, 64) + Label3.Name = "Label3" + Label3.Size = New System.Drawing.Size(121, 24) + Label3.TabIndex = 2 + Label3.Text = "건축부위=바닥난방 " & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "시스템:" + Label3.TextAlign = System.Drawing.ContentAlignment.MiddleCenter + ' + 'Label4 + ' + Label4.AutoSize = True + Label4.BackColor = System.Drawing.Color.FromArgb(CType(CType(219, Byte), Integer), CType(CType(221, Byte), Integer), CType(CType(223, Byte), Integer)) + Label4.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label4.Location = New System.Drawing.Point(18, 42) + Label4.Name = "Label4" + Label4.Size = New System.Drawing.Size(95, 12) + Label4.TabIndex = 0 + Label4.Text = "실내온도-제어:" + ' + 'Label5 + ' + Label5.AutoSize = True + Label5.BackColor = System.Drawing.Color.FromArgb(CType(CType(219, Byte), Integer), CType(CType(221, Byte), Integer), CType(CType(223, Byte), Integer)) + Label5.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label5.Location = New System.Drawing.Point(18, 71) + Label5.Name = "Label5" + Label5.Size = New System.Drawing.Size(62, 12) + Label5.TabIndex = 2 + Label5.Text = "건축부위:" + ' + 'Label6 + ' + Label6.AutoSize = True + Label6.BackColor = System.Drawing.Color.FromArgb(CType(CType(219, Byte), Integer), CType(CType(221, Byte), Integer), CType(CType(223, Byte), Integer)) + Label6.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label6.Location = New System.Drawing.Point(4, 21) + Label6.Name = "Label6" + Label6.Size = New System.Drawing.Size(107, 12) + Label6.TabIndex = 0 + Label6.Text = "1.열공급-시스템:" + ' + 'Label7 + ' + Label7.AutoSize = True + Label7.BackColor = System.Drawing.Color.FromArgb(CType(CType(219, Byte), Integer), CType(CType(221, Byte), Integer), CType(CType(223, Byte), Integer)) + Label7.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label7.Location = New System.Drawing.Point(268, 21) + Label7.Name = "Label7" + Label7.Size = New System.Drawing.Size(120, 12) + Label7.TabIndex = 2 + Label7.Text = "2.열공급-생산기기:" + ' + 'Label8 + ' + Label8.AutoSize = True + Label8.BackColor = System.Drawing.Color.FromArgb(CType(CType(243, Byte), Integer), CType(CType(244, Byte), Integer), CType(CType(246, Byte), Integer)) + Label8.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label8.Location = New System.Drawing.Point(7, 41) + Label8.Name = "Label8" + Label8.Size = New System.Drawing.Size(95, 12) + Label8.TabIndex = 0 + Label8.Text = "실내온도-제어:" + ' + 'Label13 + ' + Label13.AutoSize = True + Label13.BackColor = System.Drawing.Color.FromArgb(CType(CType(219, Byte), Integer), CType(CType(221, Byte), Integer), CType(CType(223, Byte), Integer)) + Label13.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label13.Location = New System.Drawing.Point(16, 119) + Label13.Name = "Label13" + Label13.Size = New System.Drawing.Size(97, 12) + Label13.TabIndex = 8 + Label13.Text = "5.추가 펌프 수:" + ' + 'Label14 + ' + Label14.AutoSize = True + Label14.BackColor = System.Drawing.Color.FromArgb(CType(CType(219, Byte), Integer), CType(CType(221, Byte), Integer), CType(CType(223, Byte), Integer)) + Label14.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label14.Location = New System.Drawing.Point(16, 19) + Label14.Name = "Label14" + Label14.Size = New System.Drawing.Size(156, 12) + Label14.TabIndex = 0 + Label14.Text = "1.제어기의 정격전력[W]:" + ' + 'Label15 + ' + Label15.AutoSize = True + Label15.BackColor = System.Drawing.Color.FromArgb(CType(CType(219, Byte), Integer), CType(CType(221, Byte), Integer), CType(CType(223, Byte), Integer)) + Label15.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label15.Location = New System.Drawing.Point(16, 94) + Label15.Name = "Label15" + Label15.Size = New System.Drawing.Size(99, 12) + Label15.TabIndex = 6 + Label15.Text = "4.팬/송풍기 수:" + ' + 'Label17 + ' + Label17.AutoSize = True + Label17.BackColor = System.Drawing.Color.FromArgb(CType(CType(219, Byte), Integer), CType(CType(221, Byte), Integer), CType(CType(223, Byte), Integer)) + Label17.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label17.Location = New System.Drawing.Point(16, 69) + Label17.Name = "Label17" + Label17.Size = New System.Drawing.Size(130, 12) + Label17.TabIndex = 4 + Label17.Text = "3.펌프 정격전력[W]:" + ' + 'Label18 + ' + Label18.AutoSize = True + Label18.BackColor = System.Drawing.Color.FromArgb(CType(CType(219, Byte), Integer), CType(CType(221, Byte), Integer), CType(CType(223, Byte), Integer)) + Label18.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label18.Location = New System.Drawing.Point(16, 44) + Label18.Name = "Label18" + Label18.Size = New System.Drawing.Size(163, 12) + Label18.TabIndex = 2 + Label18.Text = "2.팬/송풍기 정격전력[W]:" + ' + 'bs + ' + Me.bs.DataMember = "tbl_kongkub" + Me.bs.DataSource = Me.DS + Me.bs.Filter = "code <> '0'" + ' + 'DS + ' + Me.DS.DataSetName = "DS" + Me.DS.SchemaSerializationMode = System.Data.SchemaSerializationMode.IncludeSchema + ' + '전기난방GroupBox + ' + Me.전기난방GroupBox.Controls.Add(Me.Label16) + Me.전기난방GroupBox.Controls.Add(Label1) + Me.전기난방GroupBox.Controls.Add(Me.전기난방제어ComboBox) + Me.전기난방GroupBox.Controls.Add(Me.전기난방PictureBox) + Me.전기난방GroupBox.Location = New System.Drawing.Point(301, 124) + Me.전기난방GroupBox.Name = "전기난방GroupBox" + Me.전기난방GroupBox.Size = New System.Drawing.Size(278, 66) + Me.전기난방GroupBox.TabIndex = 3 + Me.전기난방GroupBox.TabStop = False + ' + 'Label16 + ' + Me.Label16.AutoSize = True + Me.Label16.BackColor = System.Drawing.Color.FromArgb(CType(CType(243, Byte), Integer), CType(CType(244, Byte), Integer), CType(CType(246, Byte), Integer)) + Me.Label16.Location = New System.Drawing.Point(6, 16) + Me.Label16.Name = "Label16" + Me.Label16.Size = New System.Drawing.Size(129, 12) + Me.Label16.TabIndex = 10 + Me.Label16.Text = "공급시스템=전기난방" + ' + '전기난방제어ComboBox + ' + Me.전기난방제어ComboBox.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList + Me.전기난방제어ComboBox.FormattingEnabled = True + Me.전기난방제어ComboBox.Location = New System.Drawing.Point(142, 33) + Me.전기난방제어ComboBox.Name = "전기난방제어ComboBox" + Me.전기난방제어ComboBox.NectControl = Nothing + Me.전기난방제어ComboBox.Size = New System.Drawing.Size(110, 20) + Me.전기난방제어ComboBox.TabIndex = 1 + ' + '전기난방PictureBox + ' + Me.전기난방PictureBox.BackColor = System.Drawing.Color.FromArgb(CType(CType(243, Byte), Integer), CType(CType(244, Byte), Integer), CType(CType(246, Byte), Integer)) + Me.전기난방PictureBox.Location = New System.Drawing.Point(1, 9) + Me.전기난방PictureBox.Name = "전기난방PictureBox" + Me.전기난방PictureBox.Size = New System.Drawing.Size(275, 54) + Me.전기난방PictureBox.TabIndex = 2 + Me.전기난방PictureBox.TabStop = False + ' + '바닥난방열GroupBox + ' + Me.바닥난방열GroupBox.Controls.Add(Me.Label20) + Me.바닥난방열GroupBox.Controls.Add(Label2) + Me.바닥난방열GroupBox.Controls.Add(Label3) + Me.바닥난방열GroupBox.Controls.Add(Me.바닥난방열제어ComboBox) + Me.바닥난방열GroupBox.Controls.Add(Me.바닥난방열건축부위ComboBox) + Me.바닥난방열GroupBox.Controls.Add(Me.바닥난방열PictureBox) + Me.바닥난방열GroupBox.Location = New System.Drawing.Point(28, 191) + Me.바닥난방열GroupBox.Name = "바닥난방열GroupBox" + Me.바닥난방열GroupBox.Size = New System.Drawing.Size(262, 101) + Me.바닥난방열GroupBox.TabIndex = 4 + Me.바닥난방열GroupBox.TabStop = False + ' + 'Label20 + ' + Me.Label20.AutoSize = True + Me.Label20.BackColor = System.Drawing.Color.FromArgb(CType(CType(219, Byte), Integer), CType(CType(221, Byte), Integer), CType(CType(223, Byte), Integer)) + Me.Label20.Location = New System.Drawing.Point(6, 17) + Me.Label20.Name = "Label20" + Me.Label20.Size = New System.Drawing.Size(154, 12) + Me.Label20.TabIndex = 10 + Me.Label20.Text = "공급시스템=바닥난방(열)" + ' + '바닥난방열제어ComboBox + ' + Me.바닥난방열제어ComboBox.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList + Me.바닥난방열제어ComboBox.FormattingEnabled = True + Me.바닥난방열제어ComboBox.Location = New System.Drawing.Point(132, 37) + Me.바닥난방열제어ComboBox.Name = "바닥난방열제어ComboBox" + Me.바닥난방열제어ComboBox.NectControl = Nothing + Me.바닥난방열제어ComboBox.Size = New System.Drawing.Size(117, 20) + Me.바닥난방열제어ComboBox.TabIndex = 1 + ' + '바닥난방열건축부위ComboBox + ' + Me.바닥난방열건축부위ComboBox.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList + Me.바닥난방열건축부위ComboBox.FormattingEnabled = True + Me.바닥난방열건축부위ComboBox.Location = New System.Drawing.Point(132, 66) + Me.바닥난방열건축부위ComboBox.Name = "바닥난방열건축부위ComboBox" + Me.바닥난방열건축부위ComboBox.NectControl = Nothing + Me.바닥난방열건축부위ComboBox.Size = New System.Drawing.Size(117, 20) + Me.바닥난방열건축부위ComboBox.TabIndex = 3 + ' + '바닥난방열PictureBox + ' + Me.바닥난방열PictureBox.BackColor = System.Drawing.Color.FromArgb(CType(CType(219, Byte), Integer), CType(CType(221, Byte), Integer), CType(CType(223, Byte), Integer)) + Me.바닥난방열PictureBox.Location = New System.Drawing.Point(3, 9) + Me.바닥난방열PictureBox.Name = "바닥난방열PictureBox" + Me.바닥난방열PictureBox.Size = New System.Drawing.Size(256, 88) + Me.바닥난방열PictureBox.TabIndex = 11 + Me.바닥난방열PictureBox.TabStop = False + ' + '바닥난방전기GroupBox + ' + Me.바닥난방전기GroupBox.Controls.Add(Me.Label19) + Me.바닥난방전기GroupBox.Controls.Add(Label4) + Me.바닥난방전기GroupBox.Controls.Add(Label5) + Me.바닥난방전기GroupBox.Controls.Add(Me.바닥난방전기제어ComboBox) + Me.바닥난방전기GroupBox.Controls.Add(Me.바닥난방전기건축부위ComboBox) + Me.바닥난방전기GroupBox.Controls.Add(Me.바닥난방전기PictureBox) + Me.바닥난방전기GroupBox.Location = New System.Drawing.Point(302, 191) + Me.바닥난방전기GroupBox.Name = "바닥난방전기GroupBox" + Me.바닥난방전기GroupBox.Size = New System.Drawing.Size(277, 101) + Me.바닥난방전기GroupBox.TabIndex = 5 + Me.바닥난방전기GroupBox.TabStop = False + ' + 'Label19 + ' + Me.Label19.AutoSize = True + Me.Label19.BackColor = System.Drawing.Color.FromArgb(CType(CType(219, Byte), Integer), CType(CType(221, Byte), Integer), CType(CType(223, Byte), Integer)) + Me.Label19.Location = New System.Drawing.Point(6, 17) + Me.Label19.Name = "Label19" + Me.Label19.Size = New System.Drawing.Size(167, 12) + Me.Label19.TabIndex = 10 + Me.Label19.Text = "공급시스템=바닥난방(전기)" + ' + '바닥난방전기제어ComboBox + ' + Me.바닥난방전기제어ComboBox.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList + Me.바닥난방전기제어ComboBox.FormattingEnabled = True + Me.바닥난방전기제어ComboBox.Location = New System.Drawing.Point(141, 39) + Me.바닥난방전기제어ComboBox.Name = "바닥난방전기제어ComboBox" + Me.바닥난방전기제어ComboBox.NectControl = Nothing + Me.바닥난방전기제어ComboBox.Size = New System.Drawing.Size(110, 20) + Me.바닥난방전기제어ComboBox.TabIndex = 1 + ' + '바닥난방전기건축부위ComboBox + ' + Me.바닥난방전기건축부위ComboBox.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList + Me.바닥난방전기건축부위ComboBox.FormattingEnabled = True + Me.바닥난방전기건축부위ComboBox.Location = New System.Drawing.Point(141, 66) + Me.바닥난방전기건축부위ComboBox.Name = "바닥난방전기건축부위ComboBox" + Me.바닥난방전기건축부위ComboBox.NectControl = Nothing + Me.바닥난방전기건축부위ComboBox.Size = New System.Drawing.Size(110, 20) + Me.바닥난방전기건축부위ComboBox.TabIndex = 3 + ' + '바닥난방전기PictureBox + ' + Me.바닥난방전기PictureBox.BackColor = System.Drawing.Color.FromArgb(CType(CType(219, Byte), Integer), CType(CType(221, Byte), Integer), CType(CType(223, Byte), Integer)) + Me.바닥난방전기PictureBox.Location = New System.Drawing.Point(2, 9) + Me.바닥난방전기PictureBox.Name = "바닥난방전기PictureBox" + Me.바닥난방전기PictureBox.Size = New System.Drawing.Size(273, 88) + Me.바닥난방전기PictureBox.TabIndex = 11 + Me.바닥난방전기PictureBox.TabStop = False + ' + 'GroupBox28 + ' + Me.GroupBox28.Controls.Add(Label6) + Me.GroupBox28.Controls.Add(Me.열공급시스템ComboBox) + Me.GroupBox28.Controls.Add(Label7) + Me.GroupBox28.Controls.Add(Me.열공급생산기기ComboBox) + Me.GroupBox28.Controls.Add(Me.PictureBox1) + Me.GroupBox28.Location = New System.Drawing.Point(27, 75) + Me.GroupBox28.Name = "GroupBox28" + Me.GroupBox28.Size = New System.Drawing.Size(552, 47) + Me.GroupBox28.TabIndex = 1 + Me.GroupBox28.TabStop = False + ' + '열공급시스템ComboBox + ' + Me.열공급시스템ComboBox.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList + Me.열공급시스템ComboBox.FormattingEnabled = True + Me.열공급시스템ComboBox.Location = New System.Drawing.Point(113, 17) + Me.열공급시스템ComboBox.Name = "열공급시스템ComboBox" + Me.열공급시스템ComboBox.NectControl = Nothing + Me.열공급시스템ComboBox.Size = New System.Drawing.Size(137, 20) + Me.열공급시스템ComboBox.TabIndex = 1 + ' + '열공급생산기기ComboBox + ' + Me.열공급생산기기ComboBox.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList + Me.열공급생산기기ComboBox.Font = New System.Drawing.Font("돋움", 8.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.열공급생산기기ComboBox.FormattingEnabled = True + Me.열공급생산기기ComboBox.Location = New System.Drawing.Point(389, 17) + Me.열공급생산기기ComboBox.Name = "열공급생산기기ComboBox" + Me.열공급생산기기ComboBox.NectControl = Nothing + Me.열공급생산기기ComboBox.Size = New System.Drawing.Size(157, 19) + Me.열공급생산기기ComboBox.TabIndex = 3 + ' + 'PictureBox1 + ' + 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(549, 35) + Me.PictureBox1.TabIndex = 4 + Me.PictureBox1.TabStop = False + ' + '노출형방열기GroupBox + ' + Me.노출형방열기GroupBox.Controls.Add(Me.Label10) + Me.노출형방열기GroupBox.Controls.Add(Label8) + Me.노출형방열기GroupBox.Controls.Add(Me.노출형제어ComboBox) + Me.노출형방열기GroupBox.Controls.Add(Me.노출형방열기PictureBox) + Me.노출형방열기GroupBox.Location = New System.Drawing.Point(27, 124) + Me.노출형방열기GroupBox.Name = "노출형방열기GroupBox" + Me.노출형방열기GroupBox.Size = New System.Drawing.Size(263, 66) + Me.노출형방열기GroupBox.TabIndex = 2 + Me.노출형방열기GroupBox.TabStop = False + ' + 'Label10 + ' + Me.Label10.AutoSize = True + Me.Label10.BackColor = System.Drawing.Color.FromArgb(CType(CType(243, Byte), Integer), CType(CType(244, Byte), Integer), CType(CType(246, Byte), Integer)) + Me.Label10.Location = New System.Drawing.Point(7, 18) + Me.Label10.Name = "Label10" + Me.Label10.Size = New System.Drawing.Size(180, 12) + Me.Label10.TabIndex = 10 + Me.Label10.Text = "공급시스템=노출형방열기(열)" + ' + '노출형제어ComboBox + ' + Me.노출형제어ComboBox.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList + Me.노출형제어ComboBox.FormattingEnabled = True + Me.노출형제어ComboBox.Location = New System.Drawing.Point(133, 37) + Me.노출형제어ComboBox.Name = "노출형제어ComboBox" + Me.노출형제어ComboBox.NectControl = Nothing + Me.노출형제어ComboBox.Size = New System.Drawing.Size(117, 20) + Me.노출형제어ComboBox.TabIndex = 1 + ' + '노출형방열기PictureBox + ' + Me.노출형방열기PictureBox.BackColor = System.Drawing.Color.FromArgb(CType(CType(243, Byte), Integer), CType(CType(244, Byte), Integer), CType(CType(246, Byte), Integer)) + Me.노출형방열기PictureBox.Location = New System.Drawing.Point(1, 9) + Me.노출형방열기PictureBox.Name = "노출형방열기PictureBox" + Me.노출형방열기PictureBox.Size = New System.Drawing.Size(259, 54) + Me.노출형방열기PictureBox.TabIndex = 2 + Me.노출형방열기PictureBox.TabStop = False + ' + 'GroupBox3 + ' + Me.GroupBox3.Controls.Add(Me.추가펌프수NTb) + Me.GroupBox3.Controls.Add(Label13) + Me.GroupBox3.Controls.Add(Label14) + Me.GroupBox3.Controls.Add(Label15) + Me.GroupBox3.Controls.Add(Label17) + Me.GroupBox3.Controls.Add(Me.팬송풍기수NTb) + Me.GroupBox3.Controls.Add(Label18) + Me.GroupBox3.Controls.Add(Me.펌프정격전력NTb) + Me.GroupBox3.Controls.Add(Me.제어기의정격전력NTb) + Me.GroupBox3.Controls.Add(Me.팬송풍기정격전력NTb) + Me.GroupBox3.Controls.Add(Me.PictureBox8) + Me.GroupBox3.Location = New System.Drawing.Point(26, 361) + Me.GroupBox3.Name = "GroupBox3" + Me.GroupBox3.Size = New System.Drawing.Size(553, 147) + Me.GroupBox3.TabIndex = 1 + Me.GroupBox3.TabStop = False + ' + '추가펌프수NTb + ' + Me.추가펌프수NTb.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bs, "추가펌프수", True)) + Me.추가펌프수NTb.Location = New System.Drawing.Point(193, 114) + Me.추가펌프수NTb.Name = "추가펌프수NTb" + Me.추가펌프수NTb.NectControl = Nothing + Me.추가펌프수NTb.Size = New System.Drawing.Size(70, 21) + Me.추가펌프수NTb.TabIndex = 9 + Me.추가펌프수NTb.TextAlign = System.Windows.Forms.HorizontalAlignment.Right + Me.추가펌프수NTb.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + ' + '팬송풍기수NTb + ' + Me.팬송풍기수NTb.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bs, "팬송풍기수", True)) + Me.팬송풍기수NTb.Location = New System.Drawing.Point(193, 90) + Me.팬송풍기수NTb.Name = "팬송풍기수NTb" + Me.팬송풍기수NTb.NectControl = Nothing + Me.팬송풍기수NTb.Size = New System.Drawing.Size(70, 21) + Me.팬송풍기수NTb.TabIndex = 7 + Me.팬송풍기수NTb.TextAlign = System.Windows.Forms.HorizontalAlignment.Right + Me.팬송풍기수NTb.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + ' + '펌프정격전력NTb + ' + Me.펌프정격전력NTb.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bs, "펌프정격전력", True)) + Me.펌프정격전력NTb.Location = New System.Drawing.Point(193, 66) + Me.펌프정격전력NTb.Name = "펌프정격전력NTb" + Me.펌프정격전력NTb.NectControl = Nothing + Me.펌프정격전력NTb.Size = New System.Drawing.Size(70, 21) + Me.펌프정격전력NTb.TabIndex = 5 + Me.펌프정격전력NTb.TextAlign = System.Windows.Forms.HorizontalAlignment.Right + Me.펌프정격전력NTb.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + ' + '제어기의정격전력NTb + ' + Me.제어기의정격전력NTb.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bs, "제어기의정격전력", True)) + Me.제어기의정격전력NTb.Location = New System.Drawing.Point(193, 18) + Me.제어기의정격전력NTb.Name = "제어기의정격전력NTb" + Me.제어기의정격전력NTb.NectControl = Nothing + Me.제어기의정격전력NTb.Size = New System.Drawing.Size(70, 21) + Me.제어기의정격전력NTb.TabIndex = 1 + Me.제어기의정격전력NTb.TextAlign = System.Windows.Forms.HorizontalAlignment.Right + Me.제어기의정격전력NTb.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + ' + '팬송풍기정격전력NTb + ' + Me.팬송풍기정격전력NTb.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bs, "팬송풍기정격전력", True)) + Me.팬송풍기정격전력NTb.Location = New System.Drawing.Point(193, 42) + Me.팬송풍기정격전력NTb.Name = "팬송풍기정격전력NTb" + Me.팬송풍기정격전력NTb.NectControl = Nothing + Me.팬송풍기정격전력NTb.Size = New System.Drawing.Size(70, 21) + Me.팬송풍기정격전력NTb.TabIndex = 3 + Me.팬송풍기정격전력NTb.TextAlign = System.Windows.Forms.HorizontalAlignment.Right + Me.팬송풍기정격전력NTb.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + ' + 'PictureBox8 + ' + Me.PictureBox8.BackColor = System.Drawing.Color.FromArgb(CType(CType(219, Byte), Integer), CType(CType(221, Byte), Integer), CType(CType(223, Byte), Integer)) + Me.PictureBox8.Location = New System.Drawing.Point(2, 9) + Me.PictureBox8.Name = "PictureBox8" + Me.PictureBox8.Size = New System.Drawing.Size(549, 135) + Me.PictureBox8.TabIndex = 4 + Me.PictureBox8.TabStop = False + ' + 'Label201 + ' + Me.Label201.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.Label201.AutoSize = True + Me.Label201.ForeColor = System.Drawing.Color.DarkCyan + Me.Label201.Location = New System.Drawing.Point(383, 10) + Me.Label201.Name = "Label201" + Me.Label201.Size = New System.Drawing.Size(111, 12) + Me.Label201.TabIndex = 1 + Me.Label201.Text = "적용된 입력존 수:" + Me.Label201.TextAlign = System.Drawing.ContentAlignment.MiddleRight + ' + '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(496, 5) + Me.tb_zone_cnt.Name = "tb_zone_cnt" + Me.tb_zone_cnt.ReadOnly = True + Me.tb_zone_cnt.Size = New System.Drawing.Size(87, 21) + Me.tb_zone_cnt.TabIndex = 2 + Me.tb_zone_cnt.TabStop = False + Me.tb_zone_cnt.Text = "0" + Me.tb_zone_cnt.TextAlign = System.Windows.Forms.HorizontalAlignment.Center + ' + '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.BackColor = System.Drawing.Color.White + Me.SplitContainer1.Panel2.Controls.Add(Me.Label9) + Me.SplitContainer1.Panel2.Controls.Add(Me.PictureBox2) + Me.SplitContainer1.Panel2.Controls.Add(Me.Label11) + Me.SplitContainer1.Panel2.Controls.Add(Me.PictureBox4) + Me.SplitContainer1.Panel2.Controls.Add(Me.전기난방GroupBox) + Me.SplitContainer1.Panel2.Controls.Add(Me.GroupBox3) + Me.SplitContainer1.Panel2.Controls.Add(Me.바닥난방열GroupBox) + Me.SplitContainer1.Panel2.Controls.Add(Me.바닥난방전기GroupBox) + Me.SplitContainer1.Panel2.Controls.Add(Me.GroupBox28) + Me.SplitContainer1.Panel2.Controls.Add(Me.Panel1) + Me.SplitContainer1.Panel2.Controls.Add(Me.노출형방열기GroupBox) + Me.SplitContainer1.Size = New System.Drawing.Size(818, 574) + Me.SplitContainer1.SplitterDistance = 224 + Me.SplitContainer1.TabIndex = 127 + ' + '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.FromArgb(CType(CType(245, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(246, Byte), Integer)) + 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(222, 532) + Me.dv.TabIndex = 0 + ' + '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, 532) + 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(222, 40) + 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, 37) + 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, 37) + 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, 37) + 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, 37) + 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, 40) + ' + 'lbl_pos + ' + Me.lbl_pos.Name = "lbl_pos" + Me.lbl_pos.Size = New System.Drawing.Size(12, 37) + Me.lbl_pos.Text = "0" + ' + 'ToolStripSeparator2 + ' + Me.ToolStripSeparator2.Name = "ToolStripSeparator2" + Me.ToolStripSeparator2.Size = New System.Drawing.Size(6, 40) + ' + 'lb_code + ' + Me.lb_code.Name = "lb_code" + Me.lb_code.Size = New System.Drawing.Size(47, 37) + Me.lb_code.Text = "[0000]" + ' + 'Label9 + ' + Me.Label9.AutoSize = True + Me.Label9.BackColor = System.Drawing.Color.FromArgb(CType(CType(116, Byte), Integer), CType(CType(158, Byte), Integer), CType(CType(209, Byte), Integer)) + Me.Label9.ForeColor = System.Drawing.Color.White + Me.Label9.Location = New System.Drawing.Point(29, 344) + Me.Label9.Name = "Label9" + Me.Label9.Size = New System.Drawing.Size(134, 12) + Me.Label9.TabIndex = 162 + Me.Label9.Text = "열공급-시스템 특성치" + ' + 'PictureBox2 + ' + Me.PictureBox2.BackgroundImage = CType(resources.GetObject("PictureBox2.BackgroundImage"), System.Drawing.Image) + Me.PictureBox2.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch + Me.PictureBox2.Location = New System.Drawing.Point(26, 333) + Me.PictureBox2.Name = "PictureBox2" + Me.PictureBox2.Size = New System.Drawing.Size(162, 30) + Me.PictureBox2.TabIndex = 161 + Me.PictureBox2.TabStop = False + ' + 'Label11 + ' + Me.Label11.AutoSize = True + Me.Label11.BackColor = System.Drawing.Color.FromArgb(CType(CType(116, Byte), Integer), CType(CType(158, Byte), Integer), CType(CType(209, Byte), Integer)) + Me.Label11.ForeColor = System.Drawing.Color.White + Me.Label11.Location = New System.Drawing.Point(39, 58) + Me.Label11.Name = "Label11" + Me.Label11.Size = New System.Drawing.Size(101, 12) + Me.Label11.TabIndex = 162 + Me.Label11.Text = "공급과 제어난방" + ' + 'PictureBox4 + ' + Me.PictureBox4.BackgroundImage = CType(resources.GetObject("PictureBox4.BackgroundImage"), System.Drawing.Image) + Me.PictureBox4.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch + Me.PictureBox4.Location = New System.Drawing.Point(26, 47) + Me.PictureBox4.Name = "PictureBox4" + Me.PictureBox4.Size = New System.Drawing.Size(131, 30) + Me.PictureBox4.TabIndex = 161 + Me.PictureBox4.TabStop = False + ' + 'Panel1 + ' + Me.Panel1.BackColor = System.Drawing.Color.FromArgb(CType(CType(243, Byte), Integer), CType(CType(244, Byte), Integer), CType(CType(246, Byte), Integer)) + Me.Panel1.Controls.Add(Me.tb_zone_cnt) + Me.Panel1.Controls.Add(Me.Label201) + Me.Panel1.Dock = System.Windows.Forms.DockStyle.Top + Me.Panel1.Location = New System.Drawing.Point(0, 0) + Me.Panel1.Name = "Panel1" + Me.Panel1.Size = New System.Drawing.Size(588, 30) + Me.Panel1.TabIndex = 5 + ' + 'DataGridViewTextBoxColumn1 + ' + Me.DataGridViewTextBoxColumn1.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.Fill + Me.DataGridViewTextBoxColumn1.DataPropertyName = "설명" + Me.DataGridViewTextBoxColumn1.HeaderText = "설명" + Me.DataGridViewTextBoxColumn1.Name = "DataGridViewTextBoxColumn1" + Me.DataGridViewTextBoxColumn1.SortMode = System.Windows.Forms.DataGridViewColumnSortMode.Programmatic + ' + 'Frm_kongkub + ' + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.None + Me.ClientSize = New System.Drawing.Size(818, 574) + Me.ControlBox = False + Me.Controls.Add(Me.SplitContainer1) + Me.Font = New System.Drawing.Font("돋움", 8.999999!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.KeyPreview = True + Me.Name = "Frm_kongkub" + Me.ShowInTaskbar = False + Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen + Me.Text = "난방공급시스템" + CType(Me.bs, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.DS, System.ComponentModel.ISupportInitialize).EndInit() + Me.전기난방GroupBox.ResumeLayout(False) + Me.전기난방GroupBox.PerformLayout() + CType(Me.전기난방PictureBox, System.ComponentModel.ISupportInitialize).EndInit() + Me.바닥난방열GroupBox.ResumeLayout(False) + Me.바닥난방열GroupBox.PerformLayout() + CType(Me.바닥난방열PictureBox, System.ComponentModel.ISupportInitialize).EndInit() + Me.바닥난방전기GroupBox.ResumeLayout(False) + Me.바닥난방전기GroupBox.PerformLayout() + CType(Me.바닥난방전기PictureBox, System.ComponentModel.ISupportInitialize).EndInit() + Me.GroupBox28.ResumeLayout(False) + Me.GroupBox28.PerformLayout() + CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).EndInit() + Me.노출형방열기GroupBox.ResumeLayout(False) + Me.노출형방열기GroupBox.PerformLayout() + CType(Me.노출형방열기PictureBox, System.ComponentModel.ISupportInitialize).EndInit() + Me.GroupBox3.ResumeLayout(False) + Me.GroupBox3.PerformLayout() + CType(Me.PictureBox8, System.ComponentModel.ISupportInitialize).EndInit() + Me.SplitContainer1.Panel1.ResumeLayout(False) + Me.SplitContainer1.Panel2.ResumeLayout(False) + Me.SplitContainer1.Panel2.PerformLayout() + CType(Me.SplitContainer1, System.ComponentModel.ISupportInitialize).EndInit() + Me.SplitContainer1.ResumeLayout(False) + CType(Me.dv, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.bn, System.ComponentModel.ISupportInitialize).EndInit() + Me.bn.ResumeLayout(False) + Me.bn.PerformLayout() + CType(Me.PictureBox2, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.PictureBox4, System.ComponentModel.ISupportInitialize).EndInit() + Me.Panel1.ResumeLayout(False) + Me.Panel1.PerformLayout() + Me.ResumeLayout(False) + + End Sub + Friend WithEvents 추가펌프수NTb As MyTb + Friend WithEvents 팬송풍기수NTb As MyTb + Friend WithEvents 펌프정격전력NTb As MyTb + Friend WithEvents 팬송풍기정격전력NTb As MyTb + Friend WithEvents 제어기의정격전력NTb As MyTb + Public WithEvents DS As Eco2Ar.DS + Friend WithEvents bs As System.Windows.Forms.BindingSource + Friend WithEvents 전기난방제어ComboBox As Eco2Ar.MyCmb + Friend WithEvents 바닥난방전기건축부위ComboBox As Eco2Ar.MyCmb + Friend WithEvents 바닥난방전기제어ComboBox As Eco2Ar.MyCmb + Friend WithEvents 바닥난방열건축부위ComboBox As Eco2Ar.MyCmb + Friend WithEvents 바닥난방열제어ComboBox As Eco2Ar.MyCmb + Friend WithEvents 노출형제어ComboBox As Eco2Ar.MyCmb + Friend WithEvents 열공급생산기기ComboBox As Eco2Ar.MyCmb + Friend WithEvents 열공급시스템ComboBox As Eco2Ar.MyCmb + Friend WithEvents 전기난방GroupBox As System.Windows.Forms.GroupBox + Friend WithEvents 바닥난방열GroupBox As System.Windows.Forms.GroupBox + Friend WithEvents 바닥난방전기GroupBox As System.Windows.Forms.GroupBox + Friend WithEvents GroupBox28 As System.Windows.Forms.GroupBox + Friend WithEvents 노출형방열기GroupBox As System.Windows.Forms.GroupBox + Friend WithEvents GroupBox3 As System.Windows.Forms.GroupBox + Friend WithEvents Label201 As System.Windows.Forms.Label + Friend WithEvents tb_zone_cnt As System.Windows.Forms.TextBox + Friend WithEvents SplitContainer1 As System.Windows.Forms.SplitContainer + Friend WithEvents dv As CEnergy.arindv + Friend WithEvents bn As System.Windows.Forms.BindingNavigator + Friend WithEvents bt_add As System.Windows.Forms.ToolStripButton + Friend WithEvents bt_Del As System.Windows.Forms.ToolStripButton + Friend WithEvents bt_cancel As System.Windows.Forms.ToolStripButton + Friend WithEvents ToolStripSeparator1 As System.Windows.Forms.ToolStripSeparator + Friend WithEvents Panel1 As System.Windows.Forms.Panel + Friend WithEvents lbl_count As System.Windows.Forms.ToolStripLabel + Friend WithEvents lbl_pos As System.Windows.Forms.ToolStripLabel + Friend WithEvents PictureBox1 As System.Windows.Forms.PictureBox + Friend WithEvents Label9 As System.Windows.Forms.Label + Friend WithEvents PictureBox2 As System.Windows.Forms.PictureBox + Friend WithEvents Label11 As System.Windows.Forms.Label + Friend WithEvents PictureBox4 As System.Windows.Forms.PictureBox + Friend WithEvents 노출형방열기PictureBox As System.Windows.Forms.PictureBox + Friend WithEvents Label16 As System.Windows.Forms.Label + Friend WithEvents 전기난방PictureBox As System.Windows.Forms.PictureBox + Friend WithEvents Label10 As System.Windows.Forms.Label + Friend WithEvents Label20 As System.Windows.Forms.Label + Friend WithEvents 바닥난방열PictureBox As System.Windows.Forms.PictureBox + Friend WithEvents Label19 As System.Windows.Forms.Label + Friend WithEvents 바닥난방전기PictureBox As System.Windows.Forms.PictureBox + Friend WithEvents PictureBox8 As System.Windows.Forms.PictureBox + Friend WithEvents ToolStripSeparator2 As System.Windows.Forms.ToolStripSeparator + Friend WithEvents lb_code As System.Windows.Forms.ToolStripLabel + Friend WithEvents DataGridViewTextBoxColumn1 As System.Windows.Forms.DataGridViewTextBoxColumn +End Class diff --git a/ArinWarev1/Forms_Input/Frm_kongkub.resx b/ArinWarev1/Forms_Input/Frm_kongkub.resx new file mode 100644 index 0000000..13a3c61 --- /dev/null +++ b/ArinWarev1/Forms_Input/Frm_kongkub.resx @@ -0,0 +1,360 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + 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 + + + 222, 17 + + + 286, 17 + + + 353, 17 + + + + + /9j/4AAQSkZJRgABAgEASABIAAD/7gAOQWRvYmUAZAAAAAAB/+ED5kV4aWYAAE1NACoAAAAIAAcBEgAD + AAAAAQABAAABGgAFAAAAAQAAAGIBGwAFAAAAAQAAAGoBKAADAAAAAQACAAABMQACAAAAHAAAAHIBMgAC + AAAAFAAAAI6HaQAEAAAAAQAAAKIAAADCAEgAAAABAAAASAAAAAEAAEFkb2JlIFBob3Rvc2hvcCBDUzMg + V2luZG93cwAyMDEwOjA0OjE1IDIwOjMyOjA0AAACoAIABAAAAAEAAAA8oAMABAAAAAEAAAAMAAAAAAAA + AAYBAwADAAAAAQAGAAABGgAFAAAAAQAAARABGwAFAAAAAQAAARgBKAADAAAAAQACAAACAQAEAAAAAQAA + ASACAgAEAAAAAQAAAr4AAAAAAAAASAAAAAEAAABIAAAAAf/Y/+AAEEpGSUYAAQIAAEgASAAA/+0ADEFk + b2JlX0NNAAH/7gAOQWRvYmUAZIAAAAAB/9sAhAAMCAgICQgMCQkMEQsKCxEVDwwMDxUYExMVExMYEQwM + DAwMDBEMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMAQ0LCw0ODRAODhAUDg4OFBQODg4OFBEMDAwM + DBERDAwMDAwMEQwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAz/wAARCAAMADwDASIAAhEBAxEB/90A + BAAE/8QBPwAAAQUBAQEBAQEAAAAAAAAAAwABAgQFBgcICQoLAQABBQEBAQEBAQAAAAAAAAABAAIDBAUG + BwgJCgsQAAEEAQMCBAIFBwYIBQMMMwEAAhEDBCESMQVBUWETInGBMgYUkaGxQiMkFVLBYjM0coLRQwcl + klPw4fFjczUWorKDJkSTVGRFwqN0NhfSVeJl8rOEw9N14/NGJ5SkhbSVxNTk9KW1xdXl9VZmdoaWprbG + 1ub2N0dXZ3eHl6e3x9fn9xEAAgIBAgQEAwQFBgcHBgU1AQACEQMhMRIEQVFhcSITBTKBkRShsUIjwVLR + 8DMkYuFygpJDUxVjczTxJQYWorKDByY1wtJEk1SjF2RFVTZ0ZeLys4TD03Xj80aUpIW0lcTU5PSltcXV + 5fVWZnaGlqa2xtbm9ic3R1dnd4eXp7fH/9oADAMBAAIRAxEAPwDd/amR/pH/AOcf70v2pkf6R/8AnH+9 + UUlofq/Bpevxb37UyP8ASP8A84/3pftTI/0j/wDOP96opJfq/BXr8W9+1Mj/AEj/APOP96X7UyP9I/8A + zj/eqKSX6vwV6/F3ujdbuGS2i5xfU8HVxktIG76XyW99vo27p0XGdO2/ba930dZj+q5dX+qfZPL8VAeD + 341VVr/eZhx+0bu708n/2f/iDFhJQ0NfUFJPRklMRQABAQAADEhMaW5vAhAAAG1udHJSR0IgWFlaIAfO + AAIACQAGADEAAGFjc3BNU0ZUAAAAAElFQyBzUkdCAAAAAAAAAAAAAAAAAAD21gABAAAAANMtSFAgIAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAEWNwcnQAAAFQAAAAM2Rl + c2MAAAGEAAAAbHd0cHQAAAHwAAAAFGJrcHQAAAIEAAAAFHJYWVoAAAIYAAAAFGdYWVoAAAIsAAAAFGJY + WVoAAAJAAAAAFGRtbmQAAAJUAAAAcGRtZGQAAALEAAAAiHZ1ZWQAAANMAAAAhnZpZXcAAAPUAAAAJGx1 + bWkAAAP4AAAAFG1lYXMAAAQMAAAAJHRlY2gAAAQwAAAADHJUUkMAAAQ8AAAIDGdUUkMAAAQ8AAAIDGJU + UkMAAAQ8AAAIDHRleHQAAAAAQ29weXJpZ2h0IChjKSAxOTk4IEhld2xldHQtUGFja2FyZCBDb21wYW55 + AABkZXNjAAAAAAAAABJzUkdCIElFQzYxOTY2LTIuMQAAAAAAAAAAAAAAEnNSR0IgSUVDNjE5NjYtMi4x + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABYWVogAAAAAAAA + 81EAAQAAAAEWzFhZWiAAAAAAAAAAAAAAAAAAAAAAWFlaIAAAAAAAAG+iAAA49QAAA5BYWVogAAAAAAAA + YpkAALeFAAAY2lhZWiAAAAAAAAAkoAAAD4QAALbPZGVzYwAAAAAAAAAWSUVDIGh0dHA6Ly93d3cuaWVj + LmNoAAAAAAAAAAAAAAAWSUVDIGh0dHA6Ly93d3cuaWVjLmNoAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAGRlc2MAAAAAAAAALklFQyA2MTk2Ni0yLjEgRGVmYXVsdCBSR0Ig + Y29sb3VyIHNwYWNlIC0gc1JHQgAAAAAAAAAAAAAALklFQyA2MTk2Ni0yLjEgRGVmYXVsdCBSR0IgY29s + b3VyIHNwYWNlIC0gc1JHQgAAAAAAAAAAAAAAAAAAAAAAAAAAAABkZXNjAAAAAAAAACxSZWZlcmVuY2Ug + Vmlld2luZyBDb25kaXRpb24gaW4gSUVDNjE5NjYtMi4xAAAAAAAAAAAAAAAsUmVmZXJlbmNlIFZpZXdp + bmcgQ29uZGl0aW9uIGluIElFQzYxOTY2LTIuMQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAdmlldwAA + AAAAE6T+ABRfLgAQzxQAA+3MAAQTCwADXJ4AAAABWFlaIAAAAAAATAlWAFAAAABXH+dtZWFzAAAAAAAA + AAEAAAAAAAAAAAAAAAAAAAAAAAACjwAAAAJzaWcgAAAAAENSVCBjdXJ2AAAAAAAABAAAAAAFAAoADwAU + ABkAHgAjACgALQAyADcAOwBAAEUASgBPAFQAWQBeAGMAaABtAHIAdwB8AIEAhgCLAJAAlQCaAJ8ApACp + AK4AsgC3ALwAwQDGAMsA0ADVANsA4ADlAOsA8AD2APsBAQEHAQ0BEwEZAR8BJQErATIBOAE+AUUBTAFS + AVkBYAFnAW4BdQF8AYMBiwGSAZoBoQGpAbEBuQHBAckB0QHZAeEB6QHyAfoCAwIMAhQCHQImAi8COAJB + AksCVAJdAmcCcQJ6AoQCjgKYAqICrAK2AsECywLVAuAC6wL1AwADCwMWAyEDLQM4A0MDTwNaA2YDcgN+ + A4oDlgOiA64DugPHA9MD4APsA/kEBgQTBCAELQQ7BEgEVQRjBHEEfgSMBJoEqAS2BMQE0wThBPAE/gUN + BRwFKwU6BUkFWAVnBXcFhgWWBaYFtQXFBdUF5QX2BgYGFgYnBjcGSAZZBmoGewaMBp0GrwbABtEG4wb1 + BwcHGQcrBz0HTwdhB3QHhgeZB6wHvwfSB+UH+AgLCB8IMghGCFoIbgiCCJYIqgi+CNII5wj7CRAJJQk6 + CU8JZAl5CY8JpAm6Cc8J5Qn7ChEKJwo9ClQKagqBCpgKrgrFCtwK8wsLCyILOQtRC2kLgAuYC7ALyAvh + C/kMEgwqDEMMXAx1DI4MpwzADNkM8w0NDSYNQA1aDXQNjg2pDcMN3g34DhMOLg5JDmQOfw6bDrYO0g7u + DwkPJQ9BD14Peg+WD7MPzw/sEAkQJhBDEGEQfhCbELkQ1xD1ERMRMRFPEW0RjBGqEckR6BIHEiYSRRJk + EoQSoxLDEuMTAxMjE0MTYxODE6QTxRPlFAYUJxRJFGoUixStFM4U8BUSFTQVVhV4FZsVvRXgFgMWJhZJ + FmwWjxayFtYW+hcdF0EXZReJF64X0hf3GBsYQBhlGIoYrxjVGPoZIBlFGWsZkRm3Gd0aBBoqGlEadxqe + GsUa7BsUGzsbYxuKG7Ib2hwCHCocUhx7HKMczBz1HR4dRx1wHZkdwx3sHhYeQB5qHpQevh7pHxMfPh9p + H5Qfvx/qIBUgQSBsIJggxCDwIRwhSCF1IaEhziH7IiciVSKCIq8i3SMKIzgjZiOUI8Ij8CQfJE0kfCSr + JNolCSU4JWgllyXHJfcmJyZXJocmtyboJxgnSSd6J6sn3CgNKD8ocSiiKNQpBik4KWspnSnQKgIqNSpo + KpsqzysCKzYraSudK9EsBSw5LG4soizXLQwtQS12Last4S4WLkwugi63Lu4vJC9aL5Evxy/+MDUwbDCk + MNsxEjFKMYIxujHyMioyYzKbMtQzDTNGM38zuDPxNCs0ZTSeNNg1EzVNNYc1wjX9Njc2cjauNuk3JDdg + N5w31zgUOFA4jDjIOQU5Qjl/Obw5+To2OnQ6sjrvOy07azuqO+g8JzxlPKQ84z0iPWE9oT3gPiA+YD6g + PuA/IT9hP6I/4kAjQGRApkDnQSlBakGsQe5CMEJyQrVC90M6Q31DwEQDREdEikTORRJFVUWaRd5GIkZn + RqtG8Ec1R3tHwEgFSEtIkUjXSR1JY0mpSfBKN0p9SsRLDEtTS5pL4kwqTHJMuk0CTUpNk03cTiVObk63 + TwBPSU+TT91QJ1BxULtRBlFQUZtR5lIxUnxSx1MTU19TqlP2VEJUj1TbVShVdVXCVg9WXFapVvdXRFeS + V+BYL1h9WMtZGllpWbhaB1pWWqZa9VtFW5Vb5Vw1XIZc1l0nXXhdyV4aXmxevV8PX2Ffs2AFYFdgqmD8 + YU9homH1YklinGLwY0Njl2PrZEBklGTpZT1lkmXnZj1mkmboZz1nk2fpaD9olmjsaUNpmmnxakhqn2r3 + a09rp2v/bFdsr20IbWBtuW4SbmtuxG8eb3hv0XArcIZw4HE6cZVx8HJLcqZzAXNdc7h0FHRwdMx1KHWF + deF2Pnabdvh3VnezeBF4bnjMeSp5iXnnekZ6pXsEe2N7wnwhfIF84X1BfaF+AX5ifsJ/I3+Ef+WAR4Co + gQqBa4HNgjCCkoL0g1eDuoQdhICE44VHhauGDoZyhteHO4efiASIaYjOiTOJmYn+imSKyoswi5aL/Ixj + jMqNMY2Yjf+OZo7OjzaPnpAGkG6Q1pE/kaiSEZJ6kuOTTZO2lCCUipT0lV+VyZY0lp+XCpd1l+CYTJi4 + mSSZkJn8mmia1ZtCm6+cHJyJnPedZJ3SnkCerp8dn4uf+qBpoNihR6G2oiailqMGo3aj5qRWpMelOKWp + phqmi6b9p26n4KhSqMSpN6mpqhyqj6sCq3Wr6axcrNCtRK24ri2uoa8Wr4uwALB1sOqxYLHWskuywrM4 + s660JbSctRO1irYBtnm28Ldot+C4WbjRuUq5wro7urW7LrunvCG8m70VvY++Cr6Evv+/er/1wHDA7MFn + wePCX8Lbw1jD1MRRxM7FS8XIxkbGw8dBx7/IPci8yTrJuco4yrfLNsu2zDXMtc01zbXONs62zzfPuNA5 + 0LrRPNG+0j/SwdNE08bUSdTL1U7V0dZV1tjXXNfg2GTY6Nls2fHadtr724DcBdyK3RDdlt4c3qLfKd+v + 4DbgveFE4cziU+Lb42Pj6+Rz5PzlhOYN5pbnH+ep6DLovOlG6dDqW+rl63Dr++yG7RHtnO4o7rTvQO/M + 8Fjw5fFy8f/yjPMZ86f0NPTC9VD13vZt9vv3ivgZ+Kj5OPnH+lf65/t3/Af8mP0p/br+S/7c/23////b + AEMAAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQICAgICAgICAgICAwMD + AwMDAwMDA//bAEMBAQEBAQEBAQEBAQICAQICAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMD + AwMDAwMDAwMDAwMDAwMDA//AABEIAAwAPAMBEQACEQEDEQH/xAAfAAABBQEBAQEBAQAAAAAAAAAAAQID + BAUGBwgJCgv/xAC1EAACAQMDAgQDBQUEBAAAAX0BAgMABBEFEiExQQYTUWEHInEUMoGRoQgjQrHBFVLR + 8CQzYnKCCQoWFxgZGiUmJygpKjQ1Njc4OTpDREVGR0hJSlNUVVZXWFlaY2RlZmdoaWpzdHV2d3h5eoOE + hYaHiImKkpOUlZaXmJmaoqOkpaanqKmqsrO0tba3uLm6wsPExcbHyMnK0tPU1dbX2Nna4eLj5OXm5+jp + 6vHy8/T19vf4+fr/xAAfAQADAQEBAQEBAQEBAAAAAAAAAQIDBAUGBwgJCgv/xAC1EQACAQIEBAMEBwUE + BAABAncAAQIDEQQFITEGEkFRB2FxEyIygQgUQpGhscEJIzNS8BVictEKFiQ04SXxFxgZGiYnKCkqNTY3 + ODk6Q0RFRkdISUpTVFVWV1hZWmNkZWZnaGlqc3R1dnd4eXqCg4SFhoeIiYqSk5SVlpeYmZqio6Slpqeo + qaqys7S1tre4ubrCw8TFxsfIycrS09TV1tfY2dri4+Tl5ufo6ery8/T19vf4+fr/2gAMAwEAAhEDEQA/ + AP1ZH7UPxEAA/wCEw8bnj/ob9f8A/k+v7U/1Nyj/AKF+G/8ABUP/AJE/llcSZlZf7dX/APBk/wDMX/hq + H4if9Df43/8ACv1//wCT6P8AU3Kf+hfhv/BUP/kQ/wBZcy/6Dq//AIMn/mH/AA1D8RP+hv8AG/8A4V+v + /wDyfR/qblP/AEL8N/4Kh/8AIh/rLmX/AEHV/wDwZP8AzD/hqH4if9Df43/8K/X/AP5Po/1Nyn/oX4b/ + AMFQ/wDkQ/1lzL/oOr/+DJ/5h/w1D8RP+hv8b/8AhX6//wDJ9H+puU/9C/Df+Cof/Ih/rLmX/QdX/wDB + k/8AMT/hqH4if9Df43/8K/X/AP5Po/1Nyn/oX4b/AMFQ/wDkQ/1kzL/oOr/+DJ/5n2R+xz+234zt/iRp + nw+8a6vqXiDwZ4gs9baObXr+bUr/AMPajpmkX2tQ3FlqV2Zb57K7XT2t3tXkaJWkV4whVxJ+beJfAuU4 + Th/FZ/hKEKOMw8qd+SKjGcZzjTs4q0bpyUlJK7s073VvuuBOLMxxGcYfJ8TWlVw1ZTtzu7hKMJTupPWz + UWnFu2qatrf9aP8AhfXgv+zv7U89/sfm+V5207N+M43fSv50P2w/kwr/AEFP42CgAoAKACgAoA9s/Z0/ + s7/hcng3+1vP/s7Ov/avs2PP2f8ACL63t2buP9ZjP+zmvz7xU/5IPPf+4H/qRRPsvD//AJK7KP8AuL/6 + ZqH7/wD/ABaT/hUfb7Ht/wBj7V9p8v8A9Cr+Oz+lz//Z + + + + + /9j/4AAQSkZJRgABAgEASABIAAD/7gAOQWRvYmUAZAAAAAAB/+ED5kV4aWYAAE1NACoAAAAIAAcBEgAD + AAAAAQABAAABGgAFAAAAAQAAAGIBGwAFAAAAAQAAAGoBKAADAAAAAQACAAABMQACAAAAHAAAAHIBMgAC + AAAAFAAAAI6HaQAEAAAAAQAAAKIAAADCAEgAAAABAAAASAAAAAEAAEFkb2JlIFBob3Rvc2hvcCBDUzMg + V2luZG93cwAyMDEwOjA0OjE1IDIwOjMyOjA0AAACoAIABAAAAAEAAAA8oAMABAAAAAEAAAAMAAAAAAAA + AAYBAwADAAAAAQAGAAABGgAFAAAAAQAAARABGwAFAAAAAQAAARgBKAADAAAAAQACAAACAQAEAAAAAQAA + ASACAgAEAAAAAQAAAr4AAAAAAAAASAAAAAEAAABIAAAAAf/Y/+AAEEpGSUYAAQIAAEgASAAA/+0ADEFk + b2JlX0NNAAH/7gAOQWRvYmUAZIAAAAAB/9sAhAAMCAgICQgMCQkMEQsKCxEVDwwMDxUYExMVExMYEQwM + DAwMDBEMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMAQ0LCw0ODRAODhAUDg4OFBQODg4OFBEMDAwM + DBERDAwMDAwMEQwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAz/wAARCAAMADwDASIAAhEBAxEB/90A + BAAE/8QBPwAAAQUBAQEBAQEAAAAAAAAAAwABAgQFBgcICQoLAQABBQEBAQEBAQAAAAAAAAABAAIDBAUG + BwgJCgsQAAEEAQMCBAIFBwYIBQMMMwEAAhEDBCESMQVBUWETInGBMgYUkaGxQiMkFVLBYjM0coLRQwcl + klPw4fFjczUWorKDJkSTVGRFwqN0NhfSVeJl8rOEw9N14/NGJ5SkhbSVxNTk9KW1xdXl9VZmdoaWprbG + 1ub2N0dXZ3eHl6e3x9fn9xEAAgIBAgQEAwQFBgcHBgU1AQACEQMhMRIEQVFhcSITBTKBkRShsUIjwVLR + 8DMkYuFygpJDUxVjczTxJQYWorKDByY1wtJEk1SjF2RFVTZ0ZeLys4TD03Xj80aUpIW0lcTU5PSltcXV + 5fVWZnaGlqa2xtbm9ic3R1dnd4eXp7fH/9oADAMBAAIRAxEAPwDd/amR/pH/AOcf70v2pkf6R/8AnH+9 + UUlofq/Bpevxb37UyP8ASP8A84/3pftTI/0j/wDOP96opJfq/BXr8W9+1Mj/AEj/APOP96X7UyP9I/8A + zj/eqKSX6vwV6/F3ujdbuGS2i5xfU8HVxktIG76XyW99vo27p0XGdO2/ba930dZj+q5dX+qfZPL8VAeD + 341VVr/eZhx+0bu708n/2f/iDFhJQ0NfUFJPRklMRQABAQAADEhMaW5vAhAAAG1udHJSR0IgWFlaIAfO + AAIACQAGADEAAGFjc3BNU0ZUAAAAAElFQyBzUkdCAAAAAAAAAAAAAAAAAAD21gABAAAAANMtSFAgIAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAEWNwcnQAAAFQAAAAM2Rl + c2MAAAGEAAAAbHd0cHQAAAHwAAAAFGJrcHQAAAIEAAAAFHJYWVoAAAIYAAAAFGdYWVoAAAIsAAAAFGJY + WVoAAAJAAAAAFGRtbmQAAAJUAAAAcGRtZGQAAALEAAAAiHZ1ZWQAAANMAAAAhnZpZXcAAAPUAAAAJGx1 + bWkAAAP4AAAAFG1lYXMAAAQMAAAAJHRlY2gAAAQwAAAADHJUUkMAAAQ8AAAIDGdUUkMAAAQ8AAAIDGJU + UkMAAAQ8AAAIDHRleHQAAAAAQ29weXJpZ2h0IChjKSAxOTk4IEhld2xldHQtUGFja2FyZCBDb21wYW55 + AABkZXNjAAAAAAAAABJzUkdCIElFQzYxOTY2LTIuMQAAAAAAAAAAAAAAEnNSR0IgSUVDNjE5NjYtMi4x + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABYWVogAAAAAAAA + 81EAAQAAAAEWzFhZWiAAAAAAAAAAAAAAAAAAAAAAWFlaIAAAAAAAAG+iAAA49QAAA5BYWVogAAAAAAAA + YpkAALeFAAAY2lhZWiAAAAAAAAAkoAAAD4QAALbPZGVzYwAAAAAAAAAWSUVDIGh0dHA6Ly93d3cuaWVj + LmNoAAAAAAAAAAAAAAAWSUVDIGh0dHA6Ly93d3cuaWVjLmNoAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAGRlc2MAAAAAAAAALklFQyA2MTk2Ni0yLjEgRGVmYXVsdCBSR0Ig + Y29sb3VyIHNwYWNlIC0gc1JHQgAAAAAAAAAAAAAALklFQyA2MTk2Ni0yLjEgRGVmYXVsdCBSR0IgY29s + b3VyIHNwYWNlIC0gc1JHQgAAAAAAAAAAAAAAAAAAAAAAAAAAAABkZXNjAAAAAAAAACxSZWZlcmVuY2Ug + Vmlld2luZyBDb25kaXRpb24gaW4gSUVDNjE5NjYtMi4xAAAAAAAAAAAAAAAsUmVmZXJlbmNlIFZpZXdp + bmcgQ29uZGl0aW9uIGluIElFQzYxOTY2LTIuMQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAdmlldwAA + AAAAE6T+ABRfLgAQzxQAA+3MAAQTCwADXJ4AAAABWFlaIAAAAAAATAlWAFAAAABXH+dtZWFzAAAAAAAA + AAEAAAAAAAAAAAAAAAAAAAAAAAACjwAAAAJzaWcgAAAAAENSVCBjdXJ2AAAAAAAABAAAAAAFAAoADwAU + ABkAHgAjACgALQAyADcAOwBAAEUASgBPAFQAWQBeAGMAaABtAHIAdwB8AIEAhgCLAJAAlQCaAJ8ApACp + AK4AsgC3ALwAwQDGAMsA0ADVANsA4ADlAOsA8AD2APsBAQEHAQ0BEwEZAR8BJQErATIBOAE+AUUBTAFS + AVkBYAFnAW4BdQF8AYMBiwGSAZoBoQGpAbEBuQHBAckB0QHZAeEB6QHyAfoCAwIMAhQCHQImAi8COAJB + AksCVAJdAmcCcQJ6AoQCjgKYAqICrAK2AsECywLVAuAC6wL1AwADCwMWAyEDLQM4A0MDTwNaA2YDcgN+ + A4oDlgOiA64DugPHA9MD4APsA/kEBgQTBCAELQQ7BEgEVQRjBHEEfgSMBJoEqAS2BMQE0wThBPAE/gUN + BRwFKwU6BUkFWAVnBXcFhgWWBaYFtQXFBdUF5QX2BgYGFgYnBjcGSAZZBmoGewaMBp0GrwbABtEG4wb1 + BwcHGQcrBz0HTwdhB3QHhgeZB6wHvwfSB+UH+AgLCB8IMghGCFoIbgiCCJYIqgi+CNII5wj7CRAJJQk6 + CU8JZAl5CY8JpAm6Cc8J5Qn7ChEKJwo9ClQKagqBCpgKrgrFCtwK8wsLCyILOQtRC2kLgAuYC7ALyAvh + C/kMEgwqDEMMXAx1DI4MpwzADNkM8w0NDSYNQA1aDXQNjg2pDcMN3g34DhMOLg5JDmQOfw6bDrYO0g7u + DwkPJQ9BD14Peg+WD7MPzw/sEAkQJhBDEGEQfhCbELkQ1xD1ERMRMRFPEW0RjBGqEckR6BIHEiYSRRJk + EoQSoxLDEuMTAxMjE0MTYxODE6QTxRPlFAYUJxRJFGoUixStFM4U8BUSFTQVVhV4FZsVvRXgFgMWJhZJ + FmwWjxayFtYW+hcdF0EXZReJF64X0hf3GBsYQBhlGIoYrxjVGPoZIBlFGWsZkRm3Gd0aBBoqGlEadxqe + GsUa7BsUGzsbYxuKG7Ib2hwCHCocUhx7HKMczBz1HR4dRx1wHZkdwx3sHhYeQB5qHpQevh7pHxMfPh9p + H5Qfvx/qIBUgQSBsIJggxCDwIRwhSCF1IaEhziH7IiciVSKCIq8i3SMKIzgjZiOUI8Ij8CQfJE0kfCSr + JNolCSU4JWgllyXHJfcmJyZXJocmtyboJxgnSSd6J6sn3CgNKD8ocSiiKNQpBik4KWspnSnQKgIqNSpo + KpsqzysCKzYraSudK9EsBSw5LG4soizXLQwtQS12Last4S4WLkwugi63Lu4vJC9aL5Evxy/+MDUwbDCk + MNsxEjFKMYIxujHyMioyYzKbMtQzDTNGM38zuDPxNCs0ZTSeNNg1EzVNNYc1wjX9Njc2cjauNuk3JDdg + N5w31zgUOFA4jDjIOQU5Qjl/Obw5+To2OnQ6sjrvOy07azuqO+g8JzxlPKQ84z0iPWE9oT3gPiA+YD6g + PuA/IT9hP6I/4kAjQGRApkDnQSlBakGsQe5CMEJyQrVC90M6Q31DwEQDREdEikTORRJFVUWaRd5GIkZn + RqtG8Ec1R3tHwEgFSEtIkUjXSR1JY0mpSfBKN0p9SsRLDEtTS5pL4kwqTHJMuk0CTUpNk03cTiVObk63 + TwBPSU+TT91QJ1BxULtRBlFQUZtR5lIxUnxSx1MTU19TqlP2VEJUj1TbVShVdVXCVg9WXFapVvdXRFeS + V+BYL1h9WMtZGllpWbhaB1pWWqZa9VtFW5Vb5Vw1XIZc1l0nXXhdyV4aXmxevV8PX2Ffs2AFYFdgqmD8 + YU9homH1YklinGLwY0Njl2PrZEBklGTpZT1lkmXnZj1mkmboZz1nk2fpaD9olmjsaUNpmmnxakhqn2r3 + a09rp2v/bFdsr20IbWBtuW4SbmtuxG8eb3hv0XArcIZw4HE6cZVx8HJLcqZzAXNdc7h0FHRwdMx1KHWF + deF2Pnabdvh3VnezeBF4bnjMeSp5iXnnekZ6pXsEe2N7wnwhfIF84X1BfaF+AX5ifsJ/I3+Ef+WAR4Co + gQqBa4HNgjCCkoL0g1eDuoQdhICE44VHhauGDoZyhteHO4efiASIaYjOiTOJmYn+imSKyoswi5aL/Ixj + jMqNMY2Yjf+OZo7OjzaPnpAGkG6Q1pE/kaiSEZJ6kuOTTZO2lCCUipT0lV+VyZY0lp+XCpd1l+CYTJi4 + mSSZkJn8mmia1ZtCm6+cHJyJnPedZJ3SnkCerp8dn4uf+qBpoNihR6G2oiailqMGo3aj5qRWpMelOKWp + phqmi6b9p26n4KhSqMSpN6mpqhyqj6sCq3Wr6axcrNCtRK24ri2uoa8Wr4uwALB1sOqxYLHWskuywrM4 + s660JbSctRO1irYBtnm28Ldot+C4WbjRuUq5wro7urW7LrunvCG8m70VvY++Cr6Evv+/er/1wHDA7MFn + wePCX8Lbw1jD1MRRxM7FS8XIxkbGw8dBx7/IPci8yTrJuco4yrfLNsu2zDXMtc01zbXONs62zzfPuNA5 + 0LrRPNG+0j/SwdNE08bUSdTL1U7V0dZV1tjXXNfg2GTY6Nls2fHadtr724DcBdyK3RDdlt4c3qLfKd+v + 4DbgveFE4cziU+Lb42Pj6+Rz5PzlhOYN5pbnH+ep6DLovOlG6dDqW+rl63Dr++yG7RHtnO4o7rTvQO/M + 8Fjw5fFy8f/yjPMZ86f0NPTC9VD13vZt9vv3ivgZ+Kj5OPnH+lf65/t3/Af8mP0p/br+S/7c/23////b + AEMAAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQICAgICAgICAgICAwMD + AwMDAwMDA//bAEMBAQEBAQEBAQEBAQICAQICAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMD + AwMDAwMDAwMDAwMDAwMDA//AABEIAAwAPAMBEQACEQEDEQH/xAAfAAABBQEBAQEBAQAAAAAAAAAAAQID + BAUGBwgJCgv/xAC1EAACAQMDAgQDBQUEBAAAAX0BAgMABBEFEiExQQYTUWEHInEUMoGRoQgjQrHBFVLR + 8CQzYnKCCQoWFxgZGiUmJygpKjQ1Njc4OTpDREVGR0hJSlNUVVZXWFlaY2RlZmdoaWpzdHV2d3h5eoOE + hYaHiImKkpOUlZaXmJmaoqOkpaanqKmqsrO0tba3uLm6wsPExcbHyMnK0tPU1dbX2Nna4eLj5OXm5+jp + 6vHy8/T19vf4+fr/xAAfAQADAQEBAQEBAQEBAAAAAAAAAQIDBAUGBwgJCgv/xAC1EQACAQIEBAMEBwUE + BAABAncAAQIDEQQFITEGEkFRB2FxEyIygQgUQpGhscEJIzNS8BVictEKFiQ04SXxFxgZGiYnKCkqNTY3 + ODk6Q0RFRkdISUpTVFVWV1hZWmNkZWZnaGlqc3R1dnd4eXqCg4SFhoeIiYqSk5SVlpeYmZqio6Slpqeo + qaqys7S1tre4ubrCw8TFxsfIycrS09TV1tfY2dri4+Tl5ufo6ery8/T19vf4+fr/2gAMAwEAAhEDEQA/ + AP1ZH7UPxEAA/wCEw8bnj/ob9f8A/k+v7U/1Nyj/AKF+G/8ABUP/AJE/llcSZlZf7dX/APBk/wDMX/hq + H4if9Df43/8ACv1//wCT6P8AU3Kf+hfhv/BUP/kQ/wBZcy/6Dq//AIMn/mH/AA1D8RP+hv8AG/8A4V+v + /wDyfR/qblP/AEL8N/4Kh/8AIh/rLmX/AEHV/wDwZP8AzD/hqH4if9Df43/8K/X/AP5Po/1Nyn/oX4b/ + AMFQ/wDkQ/1lzL/oOr/+DJ/5h/w1D8RP+hv8b/8AhX6//wDJ9H+puU/9C/Df+Cof/Ih/rLmX/QdX/wDB + k/8AMT/hqH4if9Df43/8K/X/AP5Po/1Nyn/oX4b/AMFQ/wDkQ/1kzL/oOr/+DJ/5n2R+xz+234zt/iRp + nw+8a6vqXiDwZ4gs9baObXr+bUr/AMPajpmkX2tQ3FlqV2Zb57K7XT2t3tXkaJWkV4whVxJ+beJfAuU4 + Th/FZ/hKEKOMw8qd+SKjGcZzjTs4q0bpyUlJK7s073VvuuBOLMxxGcYfJ8TWlVw1ZTtzu7hKMJTupPWz + UWnFu2qatrf9aP8AhfXgv+zv7U89/sfm+V5207N+M43fSv50P2w/kwr/AEFP42CgAoAKACgAoA9s/Z0/ + s7/hcng3+1vP/s7Ov/avs2PP2f8ACL63t2buP9ZjP+zmvz7xU/5IPPf+4H/qRRPsvD//AJK7KP8AuL/6 + ZqH7/wD/ABaT/hUfb7Ht/wBj7V9p8v8A9Cr+Oz+lz//Z + + + + 44 + + \ No newline at end of file diff --git a/ArinWarev1/Forms_Input/Frm_kongkub.vb b/ArinWarev1/Forms_Input/Frm_kongkub.vb new file mode 100644 index 0000000..04d4776 --- /dev/null +++ b/ArinWarev1/Forms_Input/Frm_kongkub.vb @@ -0,0 +1,560 @@ +Public Class Frm_kongkub + Dim Init As Boolean = False + Dim SrcDrv As DataRowView +#Region "data Base 변경여부및 적용방법" + + '''변경된내용을적용한다. + Public Overrides Function AcceptChanged() As Boolean + bs.EndEdit() + Dim BaseDS As DataSet = CType(bs.DataSource, DataSet) + Dim BaseDT As DataTable = BaseDS.Tables(bs.DataMember) + BaseDT.AcceptChanges() + Return True + End Function + + '''변경된내용이있다면 취소한다. + Public Overrides Function RejectChanged() As Boolean + Dim BaseDS As DataSet = CType(bs.DataSource, DataSet) + Dim BaseDT As DataTable = BaseDS.Tables(bs.DataMember) + BaseDT.RejectChanges() + Return True + End Function + + '''데이터에변형이있었는가? + Public Overrides Function HasChanged() As Boolean + bs.EndEdit() + Dim BaseDS As DataSet = CType(bs.DataSource, DataSet) + Dim BaseDT As DataTable = BaseDS.Tables(bs.DataMember) + Dim ChangeDT As DataTable = BaseDT.GetChanges + If Not ChangeDT Is Nothing Then Return True + Return False + End Function + + '''기본데이터테이블을 반환합니다. + Public Function DT() As DataTable + Dim BaseDS As DataSet = CType(bs.DataSource, DataSet) + Return BaseDS.Tables(bs.DataMember) + End Function + +#End Region + + + Public Sub New(_opentime) + + ' 이 호출은 디자이너에 필요합니다. + InitializeComponent() + OpenTime = _opentime + + ' InitializeComponent() 호출 뒤에 초기화 코드를 추가하십시오. + + + End Sub + Private Sub ShowHistory() + Dim drv As DataRowView = Me.bs.Current + Dim f As New Frm_History("tbl_kongkub", drv("code").ToString) + If f.ShowDialog = DialogResult.OK Then + drv(f.colname) = f.val + Me.Validate() + Me.bs.EndEdit() + My.Application.DoEvents() + MsgBox("값이 변경되었습니다", MsgBoxStyle.Information, "확인") + End If + End Sub + Private Sub AddNewDataRow_Zone_Changed2(ByVal sender As Object, ByVal e As System.Data.DataColumnChangeEventArgs) + Dim oval As String = e.Row(e.Column.ColumnName).ToString + Dim nval As String = e.ProposedValue.ToString + If oval <> nval Then + Dim newdr As DS2.historyRow = DSHistory.history.NewhistoryRow + newdr.time = Now.ToString("yyyy-MM-dd HH:mm:ss") + newdr.tablename = "tbl_kongkub" + newdr.ovalue = oval + newdr.nvalue = nval + newdr.column = e.Column.ColumnName + newdr.code = e.Row("code").ToString + DSHistory.history.AddhistoryRow(newdr) + DSHistory.history.AcceptChanges() + End If + End Sub + Private Sub MdiMain_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load + + Me.Show() + My.Application.DoEvents() + 'Work_msg_timer("잠시만 기다려주세요") + + + '//공유데이터셋에 연결한다. + Me.bs.DataSource = DSET1 + + + '//난방공급시스템 + AddHandler DSET1.tbl_kongkub.TableNewRow, AddressOf AddNewDataRow_kongkub + AddHandler DSET1.tbl_kongkub.ColumnChanging, AddressOf AddNewDataRow_Zone_Changed2 + + '//모든컨트롤의 cTrl_enter 를 추가합니다 + BindProperty(CType(Me.SplitContainer1.Panel2.Controls, Control.ControlCollection)) + + '//콤보컨트롤 바인딩 + Binding_Zone() + + Me.bs.Filter = "code <> '0'" + If Me.Parameter <> "" Then Me.bs.Filter &= " and 열공급시스템 ='" + Me.Parameter + "'" + ' Me.lb_grpname.Text = Me.Parameter + + + + Me.Init = True + + Try + Me.bs.Position = CEnergy.ARINCLASS.Read_LastPos_Frm(Me) + Catch ex As Exception + Me.bs.MoveFirst() + End Try + + bs_CurrentChanged(sender, e) + Validate_control() + AddDebug("▲ Form Load") + End Sub +#Region "Control_Enter" + Private Sub BindProperty(ByVal Ctl As Control.ControlCollection) + For Each C As Control In Ctl + If C.Controls.Count > 1 Then + BindProperty(C.Controls) + Else + If C.GetType.ToString.ToUpper.IndexOf("MYTB") <> -1 Then + AddHandler CType(C, MyTb).KeyDown, AddressOf TextBOx_KeyDown + ElseIf C.GetType.ToString.ToUpper.IndexOf("MYCMB") <> -1 Then + AddHandler CType(C, MyCmb).KeyDown, AddressOf Cmd_KeyDown + End If + End If + Next + End Sub + + + Private Sub TextBOx_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) + If e.KeyCode = Keys.Enter AndAlso e.Control Then + Try + Dim Field As String = (CType(sender, MyTb).DataBindings.Item("text").BindingMemberInfo.BindingField) + For Each Dr As DataRow In dt.Select(Me.bs.Filter, "") + Dr(Field) = CType(sender, MyTb).Text + Next + Work_msg_timer("모든값이 변경되었습니다", 25) + Catch ex As Exception + + End Try + + End If + End Sub + Private Sub Cmd_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) + If e.KeyCode = Keys.Enter AndAlso e.Control Then + Try + Dim Field As String = (CType(sender, MyCmb).DataBindings.Item("selectedvalue").BindingMemberInfo.BindingField) + For Each Dr As DataRow In dt.Select(Me.bs.Filter, "") + Dr(Field) = CType(sender, MyCmb).SelectedValue + Next + Work_msg_timer("모든값이 변경되었습니다", 25) + Catch ex As Exception + + End Try + End If + End Sub +#End Region +#Region "난방공급시스템" + + Private Function GetMaxCode(ByVal dt As DataTable) As String + Try + Dim Dr As DataRow = dt.Select("", "code desc")(0) + Return Format(CInt(Dr("code")) + 1, "0000") + Catch ex As Exception + Return "0001" + End Try + End Function + +#Region "제어버튼" + Private Sub ToolStripButton48_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt_add.Click + If Not EndEdit(Me.bs) Then Return + Me.bs.AddNew() + INitRow(Me.Controls) + MdiMain.RefreshMenuList(TreeTag) + End Sub + + + Private Sub ToolStripButton49_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt_Del.Click + Dbbase.DelCrow(Me.bs, True) + MdiMain.RefreshMenuList(TreeTag) + End Sub + + Private Sub ToolStripButton51_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt_cancel.Click + If Not EndEdit(Me.bs) Then Return + Data_Cancel(DSET1.tbl_profile, Nothing) + MdiMain.RefreshMenuList(TreeTag) + End Sub + +#End Region + + Private Sub Binding_Zone() + + '//난방공급 시스템 + Dim bs_열공급시스템ComboBox As New BindingSource(DSET1, "tbl_common") + bs_열공급시스템ComboBox.Filter = "gubun='1045'" + 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_nanbangkiki") + Me.열공급생산기기ComboBox.DataSource = bs_열공급생산기기ComboBox + bs_열공급생산기기ComboBox.Sort = "code" + 열공급생산기기ComboBox.DisplayMember = "설명" + 열공급생산기기ComboBox.ValueMember = "code" + 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='1033'" '//비제어,onoff제어,pi제어 + 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='1033'" + 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='1034'" + 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='1033'" '//습식,건식,반건식 + 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='1034'" + 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='1033'" + 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 + 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 + If Me.bs.Position < Me.bs.Count Then Me.bs.Position += 1 + Else + If Me.bs.Position > 0 Then Me.bs.Position -= 1 + End If + Me.Validate() + My.Application.DoEvents() + End Sub + Private Sub MdiMain_FormClosed(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosedEventArgs) Handles Me.FormClosed + CEnergy.ARINCLASS.SaveLoad_FrmSetting(Me, Me.bs.Position, True) + End Sub + + Private Sub MdiMain_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown + Select Case e.KeyCode + Case Keys.F12 + ShowHistory() + End Select + End Sub + Private Sub AddNewDataRow_kongkub(ByVal sender As Object, ByVal e As System.Data.DataTableNewRowEventArgs) + e.Row.Item("code") = GetMaxCode(DSET1.tbl_kongkub) + e.Row.Item("설명") = "신규데이터" + End Sub + +#End Region + + Private Sub bs_CurrentChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bs.CurrentChanged + If Not Init Then Return + Try + Dim drv As DataRowView = Me.bs.Current + If drv Is Nothing Then Return + Me.lb_code.Text = "[" + drv("code").ToString + "]" + + Dim DR() As DataRow = DSET1.tbl_zone.Select("냉난방열공급시스템='" & drv("code").ToString & "'") + + '====================================================================2014.05.07 추가 + If DR.GetUpperBound(0) = -1 Then + Me.tb_zone_cnt.Text = "0" + Else + Dim 존수 As Integer = 0 + For Each drow As DS.tbl_zoneRow In DR + If IsNumeric(drow.입력존의수) Then + 존수 += CInt(drow.입력존의수) + Else + 존수 += 1 + End If + '존수 += TOSG(drow.입력존의수) + Next + Me.tb_zone_cnt.Text = 존수.ToString + End If + 'Me.tb_zone_cnt.Text = CStr(DR.GetUpperBound(0) + 1) + '====================================================================2014.05.07 추가 + Catch ex As Exception + Me.tb_zone_cnt.Text = "0" + End Try + Me.bs.EndEdit() + + End Sub + + Private Sub 열공급시스템ComboBox_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles 열공급시스템ComboBox.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) <> 21 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() '//한줄추가 + + Dim Cnt As Short = 0 + For i As Integer = 0 To CB.GetUpperBound(0) + Select Case i + Case 0 + CType(bs.Current, DataRowView)("설명") = CB(i).Split(CChar(vbTab))(ii).Trim + Case 0 + 3 '//사용프로필 앞에 두개를 숫자4자로변환 + If CB(i).Split(CChar(vbTab))(ii).Trim = "" Then + Me.열공급시스템ComboBox.SelectedIndex = 0 + Else + Me.열공급시스템ComboBox.Text = CB(i).Split(CChar(vbTab))(ii).Trim + End If + 'Me.열공급시스템ComboBox.Text = CStr(IIf( CB(i).Split(CChar(vbTab))(ii).Trim = "", "0", CB(i).Split(CChar(vbTab))(ii).Trim)) + Case 1 + 3 '//공란 + If CB(i).Split(CChar(vbTab))(ii).Trim = "" Then + Me.열공급생산기기ComboBox.SelectedIndex = 0 + Else + Me.열공급생산기기ComboBox.Text = CB(i).Split(CChar(vbTab))(ii).Trim + End If + 'Me.열공급생산기기ComboBox.Text = CStr(IIf( CB(i).Split(CChar(vbTab))(ii).Trim = "", "0", CB(i).Split(CChar(vbTab))(ii).Trim)) + Case 3 + 3 '//면적 + If CB(i).Split(CChar(vbTab))(ii).Trim = "" Then + Me.노출형제어ComboBox.SelectedIndex = 0 + Else + Me.노출형제어ComboBox.Text = CB(i).Split(CChar(vbTab))(ii).Trim + End If + ' Me.노출형제어ComboBox.Text = CStr(IIf( CB(i).Split(CChar(vbTab))(ii).Trim = "", "0", CB(i).Split(CChar(vbTab))(ii).Trim)) + Case 5 + 3 + If CB(i).Split(CChar(vbTab))(ii).Trim = "" Then + Me.바닥난방열제어ComboBox.SelectedIndex = 0 + Else + Me.바닥난방열제어ComboBox.Text = CB(i).Split(CChar(vbTab))(ii).Trim + End If + ' Me.바닥난방열제어ComboBox.Text = CStr(IIf( CB(i).Split(CChar(vbTab))(ii).Trim = "", "0", CB(i).Split(CChar(vbTab))(ii).Trim)) + Case 6 + 3 + If CB(i).Split(CChar(vbTab))(ii).Trim = "" Then + Me.바닥난방열건축부위ComboBox.SelectedIndex = 0 + Else + Me.바닥난방열건축부위ComboBox.Text = CB(i).Split(CChar(vbTab))(ii).Trim + End If + ' Me.바닥난방열건축부위ComboBox.Text = CStr(IIf( CB(i).Split(CChar(vbTab))(ii).Trim = "", "0", CB(i).Split(CChar(vbTab))(ii).Trim)) + Case 8 + 3 + If CB(i).Split(CChar(vbTab))(ii).Trim = "" Then + Me.바닥난방전기제어ComboBox.SelectedIndex = 0 + Else + Me.바닥난방전기제어ComboBox.Text = CB(i).Split(CChar(vbTab))(ii).Trim + End If + 'Me.바닥난방전기제어ComboBox.Text = CStr(IIf( CB(i).Split(CChar(vbTab))(ii).Trim = "", "0", CB(i).Split(CChar(vbTab))(ii).Trim)) + Case 9 + 3 + If CB(i).Split(CChar(vbTab))(ii).Trim = "" Then + Me.바닥난방전기건축부위ComboBox.SelectedIndex = 0 + Else + Me.바닥난방전기건축부위ComboBox.Text = CB(i).Split(CChar(vbTab))(ii).Trim + End If + ' Me.바닥난방전기건축부위ComboBox.Text = CStr(IIf( CB(i).Split(CChar(vbTab))(ii).Trim = "", "0", CB(i).Split(CChar(vbTab))(ii).Trim)) + Case 11 + 3 + If CB(i).Split(CChar(vbTab))(ii).Trim = "" Then + Me.전기난방제어ComboBox.SelectedIndex = 0 + Else + Me.전기난방제어ComboBox.Text = CB(i).Split(CChar(vbTab))(ii).Trim + End If + 'Me.전기난방제어ComboBox.Text = CStr(IIf( CB(i).Split(CChar(vbTab))(ii).Trim = "", "0", CB(i).Split(CChar(vbTab))(ii).Trim)) + Case 13 + 3 + 'Me.TabControl18.SelectedIndex = 1 + Me.제어기의정격전력NTb.Text = CB(i).Split(CChar(vbTab))(ii).Trim + Case 14 + 3 + Me.팬송풍기정격전력NTb.Text = CB(i).Split(CChar(vbTab))(ii).Trim + Case 15 + 3 + Me.펌프정격전력NTb.Text = CB(i).Split(CChar(vbTab))(ii).Trim + Case 16 + 3 + Me.팬송풍기수NTb.Text = CB(i).Split(CChar(vbTab))(ii).Trim + Case 17 + 3 + Me.추가펌프수NTb.Text = CB(i).Split(CChar(vbTab))(ii).Trim + + End Select + Next + Next + + Me.bs.EndEdit() + End If + End Sub + + + Private Sub bt_Del_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles bt_Del.MouseDown + If e.Button = Windows.Forms.MouseButtons.Right Then + If MsgBox("전체삭제를 하시겠습니까?", MsgBoxStyle.Information Or MsgBoxStyle.OkCancel, "확인") = MsgBoxResult.Ok Then + Dim dR() As DataRow = DSET1.tbl_kongkub.Select(Me.bs.Filter, "") + For i As Integer = dR.GetUpperBound(0) To 0 Step -1 + dR(i).Delete() + Next + DSET1.tbl_kongkub.AcceptChanges() + End If + End If + End Sub + + Private Sub 열공급시스템ComboBox_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 열공급시스템ComboBox.SelectedIndexChanged + VALIDATE_CONTROL() + End Sub + + Private Sub Validate_control() + If Not Init Then Return + Try + Select Case 열공급시스템ComboBox.Text + Case "노출형방열기(열)" + 열공급생산기기ComboBox.Enabled = True + 노출형방열기GroupBox.Enabled = True + 바닥난방열GroupBox.Enabled = False + 전기난방GroupBox.Enabled = False + 바닥난방전기GroupBox.Enabled = False + + Case "바닥난방(열)" + 열공급생산기기ComboBox.Enabled = True + 노출형방열기GroupBox.Enabled = False + 바닥난방열GroupBox.Enabled = True + 전기난방GroupBox.Enabled = False + 바닥난방전기GroupBox.Enabled = False + + Case "전기난방" + 열공급생산기기ComboBox.Enabled = False + 노출형방열기GroupBox.Enabled = False + 바닥난방열GroupBox.Enabled = False + 전기난방GroupBox.Enabled = True + 바닥난방전기GroupBox.Enabled = False + + Case "바닥난방(전기)" + 열공급생산기기ComboBox.Enabled = False + 노출형방열기GroupBox.Enabled = False + 바닥난방열GroupBox.Enabled = False + 전기난방GroupBox.Enabled = False + 바닥난방전기GroupBox.Enabled = True + + Case Else + 열공급생산기기ComboBox.Enabled = False + 노출형방열기GroupBox.Enabled = False + 바닥난방열GroupBox.Enabled = False + 전기난방GroupBox.Enabled = False + 바닥난방전기GroupBox.Enabled = False + + End Select + Catch ex As Exception + + End Try + End Sub + + Private Sub dv_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles dv.MouseUp + If Prj.UserAuthType = "ADMIN" OrElse Prj.UserAuthType = "BOTH" OrElse Prj.UserAuthType = "BOTH2" OrElse Prj.UserAuthType = "BOTH1" Then '//2011.03.08 추가 + If e.Button = Windows.Forms.MouseButtons.Right Then + Dim Frm_FilterA As New Frm_Filter + Frm_FilterA.ColumTitle = getColCaption(Me.dt) + Frm_FilterA.ColumList = getColName(Me.dt) + Frm_FilterA.Colorlist = "열공급생산기기" + Frm_FilterA.Numfield = "" '//20100618 Color 리스트처럼 , 구분해서 필드들을 모두 넣으세요.(=, >= 등을 사용하기 위해서는 해당 항목을 추가 요망) + Frm_FilterA.Default_Filter = "code <> '0'" + + If Frm_FilterA.ShowDialog <> Windows.Forms.DialogResult.OK Then Return '//창떳을떄 확인아ㅣ고 취소눌르면 다음을 수행하지않는다는거에요. + Dim Filter As String = Frm_FilterA.tb_filter.Text '//값은 아까 그 텍박에 잇구요. + Try + Me.bs.Filter = Filter + + '//바꾸기값이 있으면 변경 20100618 + If Frm_FilterA.cmb_fieldc.SelectedIndex >= 0 AndAlso Frm_FilterA.cmb_fieldc.Text.ToLower <> "code" AndAlso _ + Frm_FilterA.tb_valuec.Text <> "" Then + Dim Drow() As DataRow = Me.dt.Select(Filter) + For Each Dr As DataRow In Drow + Dr(Frm_FilterA.cmb_fieldc.Text) = Frm_FilterA.tb_valuec.Text + Next + MsgBox("바꾸기 완료", MsgBoxStyle.Information, "확인") + End If + + Catch ex As Exception + Me.bs.Filter = "" + End Try + End If + End If + End Sub + Private Sub dv_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles dv.KeyDown + '//여기보시면 alt+d 누르면 한줄을 경고없이(falsE)삭제하도록 햇어요.. 사실원래 밋alt +d 인데.. ㅎㅎ 잘못해서 ctrl 됫다는 + If Prj.UserAuthType = "ADMIN" OrElse Prj.UserAuthType = "BOTH" OrElse Prj.UserAuthType = "BOTH2" OrElse Prj.UserAuthType = "BOTH1" Then '//2011.03.08 추가 + Select Case e.KeyCode + Case Keys.D + If e.Alt Then + Dbbase.DelCrow(Me.bs, False) + End If + Case Keys.C + If e.Control Then + Me.SrcDrv = Me.bs.Current + If Me.SrcDrv Is Nothing Then + MsgBox("저장할 ROW가 없습니다", MsgBoxStyle.Information, "확인") + Return + End If + ' My.Computer.Clipboard.SetData("ZDATA", Drv) + End If + Case Keys.V + If e.Control Then + If Me.SrcDrv Is Nothing Then Return + Me.bt_add.PerformClick() '//신규추가 + Dim NewDrv As DataRowView = Me.bs.Current + + For Each C As DataColumn In Me.dt.Columns + If C.ColumnName.ToUpper = "CODE" Then + ElseIf C.ColumnName.ToUpper = "설명" Then + NewDrv(C.ColumnName) = SrcDrv(C.ColumnName) & "#1" + Else + NewDrv(C.ColumnName) = SrcDrv(C.ColumnName) + End If + Next + Me.bs.EndEdit() + bs.MoveLast() + End If + End Select + End If + End Sub + + Private Sub dv_CellContentClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles dv.CellContentClick + + End Sub + +End Class \ No newline at end of file diff --git a/ArinWarev1/Forms_Input/Frm_nBunbae.Designer.vb b/ArinWarev1/Forms_Input/Frm_nBunbae.Designer.vb new file mode 100644 index 0000000..1853c9c --- /dev/null +++ b/ArinWarev1/Forms_Input/Frm_nBunbae.Designer.vb @@ -0,0 +1,712 @@ + _ +Partial Class Frm_nBunbae + Inherits CForm + + 'Form은 Dispose를 재정의하여 구성 요소 목록을 정리합니다. + _ + Protected Overrides Sub Dispose(ByVal disposing As Boolean) + Try + If disposing AndAlso components IsNot Nothing Then + components.Dispose() + End If + Finally + MyBase.Dispose(disposing) + End Try + End Sub + + 'Windows Form 디자이너에 필요합니다. + Private components As System.ComponentModel.IContainer + + '참고: 다음 프로시저는 Windows Form 디자이너에 필요합니다. + '수정하려면 Windows Form 디자이너를 사용하십시오. + '코드 편집기를 사용하여 수정하지 마십시오. + _ + Private Sub InitializeComponent() + Me.components = New System.ComponentModel.Container() + Dim Label11 As System.Windows.Forms.Label + Dim Label10 As System.Windows.Forms.Label + Dim Label9 As System.Windows.Forms.Label + Dim Label8 As System.Windows.Forms.Label + Dim Label6 As System.Windows.Forms.Label + Dim Label18 As System.Windows.Forms.Label + Dim Label17 As System.Windows.Forms.Label + Dim Label16 As System.Windows.Forms.Label + Dim Label15 As System.Windows.Forms.Label + Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(Frm_nBunbae)) + Me.bs = New System.Windows.Forms.BindingSource(Me.components) + Me.DS = New Eco2Ar.DS() + Me.Label1 = New System.Windows.Forms.Label() + Me.Label19 = New System.Windows.Forms.Label() + Me.Label225 = New System.Windows.Forms.Label() + Me.SplitContainer1 = New System.Windows.Forms.SplitContainer() + Me.dv = New CEnergy.arindv() + Me.bn = New System.Windows.Forms.BindingNavigator(Me.components) + Me.lbl_count = New System.Windows.Forms.ToolStripLabel() + Me.bt_add = New System.Windows.Forms.ToolStripButton() + Me.bt_Del = New System.Windows.Forms.ToolStripButton() + Me.bt_cancel = New System.Windows.Forms.ToolStripButton() + Me.ToolStripSeparator1 = New System.Windows.Forms.ToolStripSeparator() + Me.lbl_pos = New System.Windows.Forms.ToolStripLabel() + Me.ToolStripSeparator2 = New System.Windows.Forms.ToolStripSeparator() + Me.lb_code = New System.Windows.Forms.ToolStripLabel() + Me.Label23 = New System.Windows.Forms.Label() + Me.PictureBox4 = New System.Windows.Forms.PictureBox() + Me.난방분배표준치GroupBox = New System.Windows.Forms.GroupBox() + Me.건물길이xMyTb = New Eco2Ar.MyTb() + Me.층고MyTb = New Eco2Ar.MyTb() + Me.Label2 = New System.Windows.Forms.Label() + Me.cmb_지관연결관장소 = New Eco2Ar.MyCmb() + Me.층수MyTb = New Eco2Ar.MyTb() + Me.건물길이yMyTb = New Eco2Ar.MyTb() + Me.난방분배표준치PictureBox = New System.Windows.Forms.PictureBox() + Me.열분배GroupBox = New System.Windows.Forms.GroupBox() + Me.열관류율MyTb = New Eco2Ar.MyTb() + Me.배관구간길이MyTb = New Eco2Ar.MyTb() + Me.Label222 = New System.Windows.Forms.Label() + Me.cmb_배관설치장소 = New Eco2Ar.MyCmb() + Me.cmb_배관구간방식 = New Eco2Ar.MyCmb() + Me.열분배PictureBox = New System.Windows.Forms.PictureBox() + Me.GroupBox1 = New System.Windows.Forms.GroupBox() + Me.cmb_배관망유형 = New Eco2Ar.MyCmb() + Me.cmb_표준치적용 = New Eco2Ar.MyCmb() + Me.cmb_생산기기구분 = New Eco2Ar.MyCmb() + Me.PictureBox1 = New System.Windows.Forms.PictureBox() + Me.DataGridViewTextBoxColumn1 = New System.Windows.Forms.DataGridViewTextBoxColumn() + Label11 = New System.Windows.Forms.Label() + Label10 = New System.Windows.Forms.Label() + Label9 = New System.Windows.Forms.Label() + Label8 = New System.Windows.Forms.Label() + Label6 = New System.Windows.Forms.Label() + Label18 = New System.Windows.Forms.Label() + Label17 = New System.Windows.Forms.Label() + Label16 = New System.Windows.Forms.Label() + Label15 = New System.Windows.Forms.Label() + CType(Me.bs, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.DS, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.SplitContainer1, System.ComponentModel.ISupportInitialize).BeginInit() + Me.SplitContainer1.Panel1.SuspendLayout() + Me.SplitContainer1.Panel2.SuspendLayout() + Me.SplitContainer1.SuspendLayout() + CType(Me.dv, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.bn, System.ComponentModel.ISupportInitialize).BeginInit() + Me.bn.SuspendLayout() + CType(Me.PictureBox4, System.ComponentModel.ISupportInitialize).BeginInit() + Me.난방분배표준치GroupBox.SuspendLayout() + CType(Me.난방분배표준치PictureBox, System.ComponentModel.ISupportInitialize).BeginInit() + Me.열분배GroupBox.SuspendLayout() + CType(Me.열분배PictureBox, System.ComponentModel.ISupportInitialize).BeginInit() + Me.GroupBox1.SuspendLayout() + CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit() + Me.SuspendLayout() + ' + 'Label11 + ' + Label11.AutoSize = True + Label11.BackColor = System.Drawing.Color.FromArgb(CType(CType(243, Byte), Integer), CType(CType(244, Byte), Integer), CType(CType(246, Byte), Integer)) + Label11.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label11.Location = New System.Drawing.Point(9, 42) + Label11.Name = "Label11" + Label11.Size = New System.Drawing.Size(118, 12) + Label11.TabIndex = 125 + Label11.Text = "건물길이(x축)[m]:" + ' + 'Label10 + ' + Label10.AutoSize = True + Label10.BackColor = System.Drawing.Color.FromArgb(CType(CType(243, Byte), Integer), CType(CType(244, Byte), Integer), CType(CType(246, Byte), Integer)) + Label10.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label10.Location = New System.Drawing.Point(9, 66) + Label10.Name = "Label10" + Label10.Size = New System.Drawing.Size(118, 12) + Label10.TabIndex = 126 + Label10.Text = "건물너비(y축)[m]:" + ' + 'Label9 + ' + Label9.AutoSize = True + Label9.BackColor = System.Drawing.Color.FromArgb(CType(CType(243, Byte), Integer), CType(CType(244, Byte), Integer), CType(CType(246, Byte), Integer)) + Label9.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label9.Location = New System.Drawing.Point(9, 90) + Label9.Name = "Label9" + Label9.Size = New System.Drawing.Size(124, 12) + Label9.TabIndex = 127 + Label9.Text = "난방을하는 층의 수:" + ' + 'Label8 + ' + Label8.AutoSize = True + Label8.BackColor = System.Drawing.Color.FromArgb(CType(CType(243, Byte), Integer), CType(CType(244, Byte), Integer), CType(CType(246, Byte), Integer)) + Label8.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label8.Location = New System.Drawing.Point(9, 112) + Label8.Name = "Label8" + Label8.Size = New System.Drawing.Size(115, 12) + Label8.TabIndex = 128 + Label8.Text = "층 고[m]:" + ' + 'Label6 + ' + Label6.AutoSize = True + Label6.BackColor = System.Drawing.Color.FromArgb(CType(CType(243, Byte), Integer), CType(CType(244, Byte), Integer), CType(CType(246, Byte), Integer)) + Label6.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label6.Location = New System.Drawing.Point(9, 138) + Label6.Name = "Label6" + Label6.Size = New System.Drawing.Size(108, 12) + Label6.TabIndex = 129 + Label6.Text = "지관/연결관장소:" + ' + 'Label18 + ' + Label18.AutoSize = True + Label18.BackColor = System.Drawing.Color.FromArgb(CType(CType(243, Byte), Integer), CType(CType(244, Byte), Integer), CType(CType(246, Byte), Integer)) + Label18.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label18.Location = New System.Drawing.Point(9, 129) + Label18.Name = "Label18" + Label18.Size = New System.Drawing.Size(88, 12) + Label18.TabIndex = 24 + Label18.Text = "배관설치장소:" + ' + 'Label17 + ' + Label17.AutoSize = True + Label17.BackColor = System.Drawing.Color.FromArgb(CType(CType(243, Byte), Integer), CType(CType(244, Byte), Integer), CType(CType(246, Byte), Integer)) + Label17.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label17.Location = New System.Drawing.Point(9, 102) + Label17.Name = "Label17" + Label17.Size = New System.Drawing.Size(213, 12) + Label17.TabIndex = 23 + Label17.Text = "단위길이 배관의 열관류율[W/mK]:" + ' + 'Label16 + ' + Label16.AutoSize = True + Label16.BackColor = System.Drawing.Color.FromArgb(CType(CType(243, Byte), Integer), CType(CType(244, Byte), Integer), CType(CType(246, Byte), Integer)) + Label16.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label16.Location = New System.Drawing.Point(9, 73) + Label16.Name = "Label16" + Label16.Size = New System.Drawing.Size(112, 12) + Label16.TabIndex = 22 + Label16.Text = "배관구간길이[m]:" + ' + 'Label15 + ' + Label15.AutoSize = True + Label15.BackColor = System.Drawing.Color.FromArgb(CType(CType(243, Byte), Integer), CType(CType(244, Byte), Integer), CType(CType(246, Byte), Integer)) + Label15.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label15.Location = New System.Drawing.Point(9, 45) + Label15.Name = "Label15" + Label15.Size = New System.Drawing.Size(88, 12) + Label15.TabIndex = 17 + Label15.Text = "배관구간방식:" + ' + 'bs + ' + Me.bs.DataMember = "tbl_nbunbae" + Me.bs.DataSource = Me.DS + Me.bs.Filter = "code <> '0'" + ' + 'DS + ' + Me.DS.DataSetName = "DS" + Me.DS.SchemaSerializationMode = System.Data.SchemaSerializationMode.IncludeSchema + ' + 'Label1 + ' + Me.Label1.AutoSize = True + Me.Label1.BackColor = System.Drawing.Color.FromArgb(CType(CType(219, Byte), Integer), CType(CType(221, Byte), Integer), CType(CType(223, Byte), Integer)) + Me.Label1.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Me.Label1.Location = New System.Drawing.Point(414, 20) + Me.Label1.Name = "Label1" + Me.Label1.Size = New System.Drawing.Size(97, 12) + Me.Label1.TabIndex = 121 + Me.Label1.Text = "2. 배관망 유형:" + Me.Label1.TextAlign = System.Drawing.ContentAlignment.MiddleLeft + ' + 'Label19 + ' + Me.Label19.AutoSize = True + Me.Label19.BackColor = System.Drawing.Color.FromArgb(CType(CType(219, Byte), Integer), CType(CType(221, Byte), Integer), CType(CType(223, Byte), Integer)) + Me.Label19.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Me.Label19.Location = New System.Drawing.Point(8, 18) + Me.Label19.Name = "Label19" + Me.Label19.Size = New System.Drawing.Size(110, 12) + Me.Label19.TabIndex = 119 + Me.Label19.Text = "0. 생산기기 구분:" + Me.Label19.TextAlign = System.Drawing.ContentAlignment.MiddleLeft + ' + 'Label225 + ' + Me.Label225.AutoSize = True + Me.Label225.BackColor = System.Drawing.Color.FromArgb(CType(CType(219, Byte), Integer), CType(CType(221, Byte), Integer), CType(CType(223, Byte), Integer)) + Me.Label225.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Me.Label225.Location = New System.Drawing.Point(8, 43) + Me.Label225.Name = "Label225" + Me.Label225.Size = New System.Drawing.Size(231, 12) + Me.Label225.TabIndex = 119 + Me.Label225.Text = "1.각 배관손실산출 또는 표준치 적용+:" + Me.Label225.TextAlign = System.Drawing.ContentAlignment.MiddleLeft + ' + 'SplitContainer1 + ' + Me.SplitContainer1.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + 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.BackColor = System.Drawing.Color.White + Me.SplitContainer1.Panel2.Controls.Add(Me.Label23) + Me.SplitContainer1.Panel2.Controls.Add(Me.PictureBox4) + Me.SplitContainer1.Panel2.Controls.Add(Me.난방분배표준치GroupBox) + Me.SplitContainer1.Panel2.Controls.Add(Me.열분배GroupBox) + Me.SplitContainer1.Panel2.Controls.Add(Me.GroupBox1) + Me.SplitContainer1.Size = New System.Drawing.Size(818, 574) + Me.SplitContainer1.SplitterDistance = 214 + Me.SplitContainer1.TabIndex = 126 + ' + '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.FromArgb(CType(CType(245, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(246, Byte), Integer)) + 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(212, 532) + Me.dv.TabIndex = 0 + ' + '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, 532) + 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(212, 40) + 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, 37) + 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, 37) + 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, 37) + 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, 37) + 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, 40) + ' + 'lbl_pos + ' + Me.lbl_pos.Name = "lbl_pos" + Me.lbl_pos.Size = New System.Drawing.Size(12, 37) + Me.lbl_pos.Text = "0" + ' + 'ToolStripSeparator2 + ' + Me.ToolStripSeparator2.Name = "ToolStripSeparator2" + Me.ToolStripSeparator2.Size = New System.Drawing.Size(6, 40) + ' + 'lb_code + ' + Me.lb_code.Name = "lb_code" + Me.lb_code.Size = New System.Drawing.Size(47, 37) + Me.lb_code.Text = "[0000]" + ' + 'Label23 + ' + Me.Label23.AutoSize = True + Me.Label23.BackColor = System.Drawing.Color.FromArgb(CType(CType(116, Byte), Integer), CType(CType(158, Byte), Integer), CType(CType(209, Byte), Integer)) + Me.Label23.ForeColor = System.Drawing.Color.White + Me.Label23.Location = New System.Drawing.Point(28, 35) + Me.Label23.Name = "Label23" + Me.Label23.Size = New System.Drawing.Size(57, 12) + Me.Label23.TabIndex = 172 + Me.Label23.Text = "난방분배" + ' + 'PictureBox4 + ' + Me.PictureBox4.BackgroundImage = CType(resources.GetObject("PictureBox4.BackgroundImage"), System.Drawing.Image) + Me.PictureBox4.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch + Me.PictureBox4.Location = New System.Drawing.Point(15, 24) + Me.PictureBox4.Name = "PictureBox4" + Me.PictureBox4.Size = New System.Drawing.Size(134, 30) + Me.PictureBox4.TabIndex = 171 + Me.PictureBox4.TabStop = False + ' + '난방분배표준치GroupBox + ' + Me.난방분배표준치GroupBox.Controls.Add(Me.건물길이xMyTb) + Me.난방분배표준치GroupBox.Controls.Add(Me.층고MyTb) + Me.난방분배표준치GroupBox.Controls.Add(Me.Label2) + Me.난방분배표준치GroupBox.Controls.Add(Me.cmb_지관연결관장소) + Me.난방분배표준치GroupBox.Controls.Add(Label6) + Me.난방분배표준치GroupBox.Controls.Add(Me.층수MyTb) + Me.난방분배표준치GroupBox.Controls.Add(Label8) + Me.난방분배표준치GroupBox.Controls.Add(Label9) + Me.난방분배표준치GroupBox.Controls.Add(Me.건물길이yMyTb) + Me.난방분배표준치GroupBox.Controls.Add(Label10) + Me.난방분배표준치GroupBox.Controls.Add(Label11) + Me.난방분배표준치GroupBox.Controls.Add(Me.난방분배표준치PictureBox) + Me.난방분배표준치GroupBox.Location = New System.Drawing.Point(335, 145) + Me.난방분배표준치GroupBox.Name = "난방분배표준치GroupBox" + Me.난방분배표준치GroupBox.Size = New System.Drawing.Size(254, 171) + Me.난방분배표준치GroupBox.TabIndex = 132 + Me.난방분배표준치GroupBox.TabStop = False + ' + '건물길이xMyTb + ' + Me.건물길이xMyTb.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bs, "건물길이x", True)) + Me.건물길이xMyTb.Location = New System.Drawing.Point(161, 39) + Me.건물길이xMyTb.Name = "건물길이xMyTb" + Me.건물길이xMyTb.NectControl = Nothing + Me.건물길이xMyTb.Size = New System.Drawing.Size(73, 21) + Me.건물길이xMyTb.TabIndex = 0 + Me.건물길이xMyTb.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + ' + '층고MyTb + ' + Me.층고MyTb.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bs, "층고", True)) + Me.층고MyTb.Location = New System.Drawing.Point(161, 110) + Me.층고MyTb.Name = "층고MyTb" + Me.층고MyTb.NectControl = Nothing + Me.층고MyTb.Size = New System.Drawing.Size(73, 21) + Me.층고MyTb.TabIndex = 3 + Me.층고MyTb.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + ' + 'Label2 + ' + Me.Label2.AutoSize = True + Me.Label2.BackColor = System.Drawing.Color.FromArgb(CType(CType(243, Byte), Integer), CType(CType(244, Byte), Integer), CType(CType(246, Byte), Integer)) + Me.Label2.Font = New System.Drawing.Font("돋움체", 9.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label2.ForeColor = System.Drawing.Color.Black + Me.Label2.Location = New System.Drawing.Point(10, 15) + Me.Label2.Name = "Label2" + Me.Label2.Size = New System.Drawing.Size(110, 12) + Me.Label2.TabIndex = 122 + Me.Label2.Text = "[표준치경계조건]" + ' + 'cmb_지관연결관장소 + ' + Me.cmb_지관연결관장소.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList + Me.cmb_지관연결관장소.FormattingEnabled = True + Me.cmb_지관연결관장소.Location = New System.Drawing.Point(161, 134) + Me.cmb_지관연결관장소.Name = "cmb_지관연결관장소" + Me.cmb_지관연결관장소.NectControl = Nothing + Me.cmb_지관연결관장소.Size = New System.Drawing.Size(73, 20) + Me.cmb_지관연결관장소.TabIndex = 4 + ' + '층수MyTb + ' + Me.층수MyTb.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bs, "층수", True)) + Me.층수MyTb.Location = New System.Drawing.Point(161, 87) + Me.층수MyTb.Name = "층수MyTb" + Me.층수MyTb.NectControl = Nothing + Me.층수MyTb.Size = New System.Drawing.Size(73, 21) + Me.층수MyTb.TabIndex = 2 + Me.층수MyTb.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + ' + '건물길이yMyTb + ' + Me.건물길이yMyTb.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bs, "건물길이y", True)) + Me.건물길이yMyTb.Location = New System.Drawing.Point(161, 63) + Me.건물길이yMyTb.Name = "건물길이yMyTb" + Me.건물길이yMyTb.NectControl = Nothing + Me.건물길이yMyTb.Size = New System.Drawing.Size(73, 21) + Me.건물길이yMyTb.TabIndex = 1 + Me.건물길이yMyTb.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + ' + '난방분배표준치PictureBox + ' + Me.난방분배표준치PictureBox.BackColor = System.Drawing.Color.FromArgb(CType(CType(243, Byte), Integer), CType(CType(244, Byte), Integer), CType(CType(246, Byte), Integer)) + Me.난방분배표준치PictureBox.Location = New System.Drawing.Point(2, 9) + Me.난방분배표준치PictureBox.Name = "난방분배표준치PictureBox" + Me.난방분배표준치PictureBox.Size = New System.Drawing.Size(250, 158) + Me.난방분배표준치PictureBox.TabIndex = 25 + Me.난방분배표준치PictureBox.TabStop = False + ' + '열분배GroupBox + ' + Me.열분배GroupBox.Controls.Add(Me.열관류율MyTb) + Me.열분배GroupBox.Controls.Add(Me.배관구간길이MyTb) + Me.열분배GroupBox.Controls.Add(Me.Label222) + Me.열분배GroupBox.Controls.Add(Me.cmb_배관설치장소) + Me.열분배GroupBox.Controls.Add(Label15) + Me.열분배GroupBox.Controls.Add(Label16) + Me.열분배GroupBox.Controls.Add(Label17) + Me.열분배GroupBox.Controls.Add(Label18) + Me.열분배GroupBox.Controls.Add(Me.cmb_배관구간방식) + Me.열분배GroupBox.Controls.Add(Me.열분배PictureBox) + Me.열분배GroupBox.Location = New System.Drawing.Point(15, 146) + Me.열분배GroupBox.Name = "열분배GroupBox" + Me.열분배GroupBox.Size = New System.Drawing.Size(322, 170) + Me.열분배GroupBox.TabIndex = 131 + Me.열분배GroupBox.TabStop = False + ' + '열관류율MyTb + ' + Me.열관류율MyTb.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bs, "열관류율", True)) + Me.열관류율MyTb.Location = New System.Drawing.Point(227, 99) + Me.열관류율MyTb.Name = "열관류율MyTb" + Me.열관류율MyTb.NectControl = Nothing + Me.열관류율MyTb.Size = New System.Drawing.Size(87, 21) + Me.열관류율MyTb.TabIndex = 2 + Me.열관류율MyTb.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + ' + '배관구간길이MyTb + ' + Me.배관구간길이MyTb.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bs, "배관구간길이", True)) + Me.배관구간길이MyTb.Location = New System.Drawing.Point(227, 71) + Me.배관구간길이MyTb.Name = "배관구간길이MyTb" + Me.배관구간길이MyTb.NectControl = Nothing + Me.배관구간길이MyTb.Size = New System.Drawing.Size(87, 21) + Me.배관구간길이MyTb.TabIndex = 1 + Me.배관구간길이MyTb.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + ' + 'Label222 + ' + Me.Label222.AutoSize = True + Me.Label222.BackColor = System.Drawing.Color.FromArgb(CType(CType(243, Byte), Integer), CType(CType(244, Byte), Integer), CType(CType(246, Byte), Integer)) + Me.Label222.Font = New System.Drawing.Font("돋움체", 9.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label222.ForeColor = System.Drawing.Color.Black + Me.Label222.Location = New System.Drawing.Point(10, 15) + Me.Label222.Name = "Label222" + Me.Label222.Size = New System.Drawing.Size(198, 12) + Me.Label222.TabIndex = 0 + Me.Label222.Text = "[입력 - 열분배 (난방과 급탕)]" + ' + 'cmb_배관설치장소 + ' + Me.cmb_배관설치장소.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList + Me.cmb_배관설치장소.FormattingEnabled = True + Me.cmb_배관설치장소.Location = New System.Drawing.Point(227, 126) + Me.cmb_배관설치장소.Name = "cmb_배관설치장소" + Me.cmb_배관설치장소.NectControl = Nothing + Me.cmb_배관설치장소.Size = New System.Drawing.Size(87, 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(227, 41) + Me.cmb_배관구간방식.Name = "cmb_배관구간방식" + Me.cmb_배관구간방식.NectControl = Nothing + Me.cmb_배관구간방식.Size = New System.Drawing.Size(87, 20) + Me.cmb_배관구간방식.TabIndex = 0 + ' + '열분배PictureBox + ' + Me.열분배PictureBox.BackColor = System.Drawing.Color.FromArgb(CType(CType(243, Byte), Integer), CType(CType(244, Byte), Integer), CType(CType(246, Byte), Integer)) + Me.열분배PictureBox.Location = New System.Drawing.Point(2, 9) + Me.열분배PictureBox.Name = "열분배PictureBox" + Me.열분배PictureBox.Size = New System.Drawing.Size(317, 157) + Me.열분배PictureBox.TabIndex = 25 + Me.열분배PictureBox.TabStop = False + ' + 'GroupBox1 + ' + Me.GroupBox1.Controls.Add(Me.cmb_배관망유형) + Me.GroupBox1.Controls.Add(Me.Label1) + Me.GroupBox1.Controls.Add(Me.cmb_표준치적용) + Me.GroupBox1.Controls.Add(Me.Label19) + Me.GroupBox1.Controls.Add(Me.Label225) + Me.GroupBox1.Controls.Add(Me.cmb_생산기기구분) + Me.GroupBox1.Controls.Add(Me.PictureBox1) + Me.GroupBox1.Location = New System.Drawing.Point(15, 58) + Me.GroupBox1.Name = "GroupBox1" + Me.GroupBox1.Size = New System.Drawing.Size(574, 70) + Me.GroupBox1.TabIndex = 130 + Me.GroupBox1.TabStop = False + ' + '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(416, 39) + Me.cmb_배관망유형.Name = "cmb_배관망유형" + Me.cmb_배관망유형.NectControl = Nothing + Me.cmb_배관망유형.Size = New System.Drawing.Size(133, 20) + Me.cmb_배관망유형.TabIndex = 120 + ' + 'cmb_표준치적용 + ' + Me.cmb_표준치적용.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList + Me.cmb_표준치적용.FormattingEnabled = True + Me.cmb_표준치적용.Location = New System.Drawing.Point(243, 39) + Me.cmb_표준치적용.Name = "cmb_표준치적용" + Me.cmb_표준치적용.NectControl = Nothing + Me.cmb_표준치적용.Size = New System.Drawing.Size(124, 20) + Me.cmb_표준치적용.TabIndex = 1 + ' + 'cmb_생산기기구분 + ' + Me.cmb_생산기기구분.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList + Me.cmb_생산기기구분.Font = New System.Drawing.Font("돋움", 8.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.cmb_생산기기구분.FormattingEnabled = True + Me.cmb_생산기기구분.Location = New System.Drawing.Point(183, 14) + Me.cmb_생산기기구분.Name = "cmb_생산기기구분" + Me.cmb_생산기기구분.NectControl = Nothing + Me.cmb_생산기기구분.Size = New System.Drawing.Size(184, 19) + Me.cmb_생산기기구분.TabIndex = 0 + ' + 'PictureBox1 + ' + 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, 8) + Me.PictureBox1.Name = "PictureBox1" + Me.PictureBox1.Size = New System.Drawing.Size(571, 59) + Me.PictureBox1.TabIndex = 122 + Me.PictureBox1.TabStop = False + ' + 'DataGridViewTextBoxColumn1 + ' + Me.DataGridViewTextBoxColumn1.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.Fill + Me.DataGridViewTextBoxColumn1.DataPropertyName = "설명" + Me.DataGridViewTextBoxColumn1.HeaderText = "설명" + Me.DataGridViewTextBoxColumn1.Name = "DataGridViewTextBoxColumn1" + Me.DataGridViewTextBoxColumn1.Resizable = System.Windows.Forms.DataGridViewTriState.[False] + Me.DataGridViewTextBoxColumn1.SortMode = System.Windows.Forms.DataGridViewColumnSortMode.Programmatic + ' + 'Frm_nBunbae + ' + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.None + Me.ClientSize = New System.Drawing.Size(818, 574) + Me.ControlBox = False + Me.Controls.Add(Me.SplitContainer1) + Me.Font = New System.Drawing.Font("돋움", 8.999999!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.KeyPreview = True + Me.Name = "Frm_nBunbae" + Me.ShowInTaskbar = False + Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen + Me.Text = "난방분배시스템" + CType(Me.bs, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.DS, System.ComponentModel.ISupportInitialize).EndInit() + Me.SplitContainer1.Panel1.ResumeLayout(False) + Me.SplitContainer1.Panel2.ResumeLayout(False) + Me.SplitContainer1.Panel2.PerformLayout() + CType(Me.SplitContainer1, System.ComponentModel.ISupportInitialize).EndInit() + Me.SplitContainer1.ResumeLayout(False) + CType(Me.dv, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.bn, System.ComponentModel.ISupportInitialize).EndInit() + Me.bn.ResumeLayout(False) + Me.bn.PerformLayout() + CType(Me.PictureBox4, System.ComponentModel.ISupportInitialize).EndInit() + Me.난방분배표준치GroupBox.ResumeLayout(False) + Me.난방분배표준치GroupBox.PerformLayout() + CType(Me.난방분배표준치PictureBox, System.ComponentModel.ISupportInitialize).EndInit() + Me.열분배GroupBox.ResumeLayout(False) + Me.열분배GroupBox.PerformLayout() + CType(Me.열분배PictureBox, System.ComponentModel.ISupportInitialize).EndInit() + Me.GroupBox1.ResumeLayout(False) + Me.GroupBox1.PerformLayout() + CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).EndInit() + Me.ResumeLayout(False) + + End Sub + Public WithEvents DS As Eco2Ar.DS + Friend WithEvents bs As System.Windows.Forms.BindingSource + Friend WithEvents cmb_생산기기구분 As Eco2Ar.MyCmb + Friend WithEvents Label225 As System.Windows.Forms.Label + Friend WithEvents cmb_표준치적용 As Eco2Ar.MyCmb + Friend WithEvents Label19 As System.Windows.Forms.Label + Friend WithEvents 건물길이xMyTb As Eco2Ar.MyTb + Friend WithEvents 층고MyTb As Eco2Ar.MyTb + Friend WithEvents cmb_지관연결관장소 As Eco2Ar.MyCmb + Friend WithEvents 층수MyTb As Eco2Ar.MyTb + Friend WithEvents 건물길이yMyTb As Eco2Ar.MyTb + Friend WithEvents cmb_배관망유형 As Eco2Ar.MyCmb + Friend WithEvents Label1 As System.Windows.Forms.Label + Friend WithEvents SplitContainer1 As System.Windows.Forms.SplitContainer + Friend WithEvents bn As System.Windows.Forms.BindingNavigator + Friend WithEvents bt_add As System.Windows.Forms.ToolStripButton + Friend WithEvents bt_Del As System.Windows.Forms.ToolStripButton + Friend WithEvents bt_cancel As System.Windows.Forms.ToolStripButton + Friend WithEvents ToolStripSeparator1 As System.Windows.Forms.ToolStripSeparator + Friend WithEvents dv As CEnergy.arindv + Friend WithEvents Label2 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 난방분배표준치GroupBox As System.Windows.Forms.GroupBox + Friend WithEvents GroupBox1 As System.Windows.Forms.GroupBox + Friend WithEvents Label23 As System.Windows.Forms.Label + Friend WithEvents PictureBox4 As System.Windows.Forms.PictureBox + Friend WithEvents 난방분배표준치PictureBox As System.Windows.Forms.PictureBox + Friend WithEvents PictureBox1 As System.Windows.Forms.PictureBox + Friend WithEvents 열분배GroupBox As System.Windows.Forms.GroupBox + Friend WithEvents 열관류율MyTb As Eco2Ar.MyTb + Friend WithEvents 배관구간길이MyTb As Eco2Ar.MyTb + Friend WithEvents Label222 As System.Windows.Forms.Label + Friend WithEvents cmb_배관설치장소 As Eco2Ar.MyCmb + Friend WithEvents cmb_배관구간방식 As Eco2Ar.MyCmb + Friend WithEvents 열분배PictureBox As System.Windows.Forms.PictureBox + Friend WithEvents ToolStripSeparator2 As System.Windows.Forms.ToolStripSeparator + Friend WithEvents lb_code As System.Windows.Forms.ToolStripLabel + Friend WithEvents DataGridViewTextBoxColumn1 As System.Windows.Forms.DataGridViewTextBoxColumn +End Class diff --git a/ArinWarev1/Forms_Input/Frm_nBunbae.resx b/ArinWarev1/Forms_Input/Frm_nBunbae.resx new file mode 100644 index 0000000..716e7c8 --- /dev/null +++ b/ArinWarev1/Forms_Input/Frm_nBunbae.resx @@ -0,0 +1,254 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + 222, 17 + + + 286, 17 + + + 353, 17 + + + + + /9j/4AAQSkZJRgABAgEASABIAAD/7gAOQWRvYmUAZAAAAAAB/+ED5kV4aWYAAE1NACoAAAAIAAcBEgAD + AAAAAQABAAABGgAFAAAAAQAAAGIBGwAFAAAAAQAAAGoBKAADAAAAAQACAAABMQACAAAAHAAAAHIBMgAC + AAAAFAAAAI6HaQAEAAAAAQAAAKIAAADCAEgAAAABAAAASAAAAAEAAEFkb2JlIFBob3Rvc2hvcCBDUzMg + V2luZG93cwAyMDEwOjA0OjE1IDIwOjMyOjA0AAACoAIABAAAAAEAAAA8oAMABAAAAAEAAAAMAAAAAAAA + AAYBAwADAAAAAQAGAAABGgAFAAAAAQAAARABGwAFAAAAAQAAARgBKAADAAAAAQACAAACAQAEAAAAAQAA + ASACAgAEAAAAAQAAAr4AAAAAAAAASAAAAAEAAABIAAAAAf/Y/+AAEEpGSUYAAQIAAEgASAAA/+0ADEFk + b2JlX0NNAAH/7gAOQWRvYmUAZIAAAAAB/9sAhAAMCAgICQgMCQkMEQsKCxEVDwwMDxUYExMVExMYEQwM + DAwMDBEMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMAQ0LCw0ODRAODhAUDg4OFBQODg4OFBEMDAwM + DBERDAwMDAwMEQwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAz/wAARCAAMADwDASIAAhEBAxEB/90A + BAAE/8QBPwAAAQUBAQEBAQEAAAAAAAAAAwABAgQFBgcICQoLAQABBQEBAQEBAQAAAAAAAAABAAIDBAUG + BwgJCgsQAAEEAQMCBAIFBwYIBQMMMwEAAhEDBCESMQVBUWETInGBMgYUkaGxQiMkFVLBYjM0coLRQwcl + klPw4fFjczUWorKDJkSTVGRFwqN0NhfSVeJl8rOEw9N14/NGJ5SkhbSVxNTk9KW1xdXl9VZmdoaWprbG + 1ub2N0dXZ3eHl6e3x9fn9xEAAgIBAgQEAwQFBgcHBgU1AQACEQMhMRIEQVFhcSITBTKBkRShsUIjwVLR + 8DMkYuFygpJDUxVjczTxJQYWorKDByY1wtJEk1SjF2RFVTZ0ZeLys4TD03Xj80aUpIW0lcTU5PSltcXV + 5fVWZnaGlqa2xtbm9ic3R1dnd4eXp7fH/9oADAMBAAIRAxEAPwDd/amR/pH/AOcf70v2pkf6R/8AnH+9 + UUlofq/Bpevxb37UyP8ASP8A84/3pftTI/0j/wDOP96opJfq/BXr8W9+1Mj/AEj/APOP96X7UyP9I/8A + zj/eqKSX6vwV6/F3ujdbuGS2i5xfU8HVxktIG76XyW99vo27p0XGdO2/ba930dZj+q5dX+qfZPL8VAeD + 341VVr/eZhx+0bu708n/2f/iDFhJQ0NfUFJPRklMRQABAQAADEhMaW5vAhAAAG1udHJSR0IgWFlaIAfO + AAIACQAGADEAAGFjc3BNU0ZUAAAAAElFQyBzUkdCAAAAAAAAAAAAAAAAAAD21gABAAAAANMtSFAgIAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAEWNwcnQAAAFQAAAAM2Rl + c2MAAAGEAAAAbHd0cHQAAAHwAAAAFGJrcHQAAAIEAAAAFHJYWVoAAAIYAAAAFGdYWVoAAAIsAAAAFGJY + WVoAAAJAAAAAFGRtbmQAAAJUAAAAcGRtZGQAAALEAAAAiHZ1ZWQAAANMAAAAhnZpZXcAAAPUAAAAJGx1 + bWkAAAP4AAAAFG1lYXMAAAQMAAAAJHRlY2gAAAQwAAAADHJUUkMAAAQ8AAAIDGdUUkMAAAQ8AAAIDGJU + UkMAAAQ8AAAIDHRleHQAAAAAQ29weXJpZ2h0IChjKSAxOTk4IEhld2xldHQtUGFja2FyZCBDb21wYW55 + AABkZXNjAAAAAAAAABJzUkdCIElFQzYxOTY2LTIuMQAAAAAAAAAAAAAAEnNSR0IgSUVDNjE5NjYtMi4x + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABYWVogAAAAAAAA + 81EAAQAAAAEWzFhZWiAAAAAAAAAAAAAAAAAAAAAAWFlaIAAAAAAAAG+iAAA49QAAA5BYWVogAAAAAAAA + YpkAALeFAAAY2lhZWiAAAAAAAAAkoAAAD4QAALbPZGVzYwAAAAAAAAAWSUVDIGh0dHA6Ly93d3cuaWVj + LmNoAAAAAAAAAAAAAAAWSUVDIGh0dHA6Ly93d3cuaWVjLmNoAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAGRlc2MAAAAAAAAALklFQyA2MTk2Ni0yLjEgRGVmYXVsdCBSR0Ig + Y29sb3VyIHNwYWNlIC0gc1JHQgAAAAAAAAAAAAAALklFQyA2MTk2Ni0yLjEgRGVmYXVsdCBSR0IgY29s + b3VyIHNwYWNlIC0gc1JHQgAAAAAAAAAAAAAAAAAAAAAAAAAAAABkZXNjAAAAAAAAACxSZWZlcmVuY2Ug + Vmlld2luZyBDb25kaXRpb24gaW4gSUVDNjE5NjYtMi4xAAAAAAAAAAAAAAAsUmVmZXJlbmNlIFZpZXdp + bmcgQ29uZGl0aW9uIGluIElFQzYxOTY2LTIuMQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAdmlldwAA + AAAAE6T+ABRfLgAQzxQAA+3MAAQTCwADXJ4AAAABWFlaIAAAAAAATAlWAFAAAABXH+dtZWFzAAAAAAAA + AAEAAAAAAAAAAAAAAAAAAAAAAAACjwAAAAJzaWcgAAAAAENSVCBjdXJ2AAAAAAAABAAAAAAFAAoADwAU + ABkAHgAjACgALQAyADcAOwBAAEUASgBPAFQAWQBeAGMAaABtAHIAdwB8AIEAhgCLAJAAlQCaAJ8ApACp + AK4AsgC3ALwAwQDGAMsA0ADVANsA4ADlAOsA8AD2APsBAQEHAQ0BEwEZAR8BJQErATIBOAE+AUUBTAFS + AVkBYAFnAW4BdQF8AYMBiwGSAZoBoQGpAbEBuQHBAckB0QHZAeEB6QHyAfoCAwIMAhQCHQImAi8COAJB + AksCVAJdAmcCcQJ6AoQCjgKYAqICrAK2AsECywLVAuAC6wL1AwADCwMWAyEDLQM4A0MDTwNaA2YDcgN+ + A4oDlgOiA64DugPHA9MD4APsA/kEBgQTBCAELQQ7BEgEVQRjBHEEfgSMBJoEqAS2BMQE0wThBPAE/gUN + BRwFKwU6BUkFWAVnBXcFhgWWBaYFtQXFBdUF5QX2BgYGFgYnBjcGSAZZBmoGewaMBp0GrwbABtEG4wb1 + BwcHGQcrBz0HTwdhB3QHhgeZB6wHvwfSB+UH+AgLCB8IMghGCFoIbgiCCJYIqgi+CNII5wj7CRAJJQk6 + CU8JZAl5CY8JpAm6Cc8J5Qn7ChEKJwo9ClQKagqBCpgKrgrFCtwK8wsLCyILOQtRC2kLgAuYC7ALyAvh + C/kMEgwqDEMMXAx1DI4MpwzADNkM8w0NDSYNQA1aDXQNjg2pDcMN3g34DhMOLg5JDmQOfw6bDrYO0g7u + DwkPJQ9BD14Peg+WD7MPzw/sEAkQJhBDEGEQfhCbELkQ1xD1ERMRMRFPEW0RjBGqEckR6BIHEiYSRRJk + EoQSoxLDEuMTAxMjE0MTYxODE6QTxRPlFAYUJxRJFGoUixStFM4U8BUSFTQVVhV4FZsVvRXgFgMWJhZJ + FmwWjxayFtYW+hcdF0EXZReJF64X0hf3GBsYQBhlGIoYrxjVGPoZIBlFGWsZkRm3Gd0aBBoqGlEadxqe + GsUa7BsUGzsbYxuKG7Ib2hwCHCocUhx7HKMczBz1HR4dRx1wHZkdwx3sHhYeQB5qHpQevh7pHxMfPh9p + H5Qfvx/qIBUgQSBsIJggxCDwIRwhSCF1IaEhziH7IiciVSKCIq8i3SMKIzgjZiOUI8Ij8CQfJE0kfCSr + JNolCSU4JWgllyXHJfcmJyZXJocmtyboJxgnSSd6J6sn3CgNKD8ocSiiKNQpBik4KWspnSnQKgIqNSpo + KpsqzysCKzYraSudK9EsBSw5LG4soizXLQwtQS12Last4S4WLkwugi63Lu4vJC9aL5Evxy/+MDUwbDCk + MNsxEjFKMYIxujHyMioyYzKbMtQzDTNGM38zuDPxNCs0ZTSeNNg1EzVNNYc1wjX9Njc2cjauNuk3JDdg + N5w31zgUOFA4jDjIOQU5Qjl/Obw5+To2OnQ6sjrvOy07azuqO+g8JzxlPKQ84z0iPWE9oT3gPiA+YD6g + PuA/IT9hP6I/4kAjQGRApkDnQSlBakGsQe5CMEJyQrVC90M6Q31DwEQDREdEikTORRJFVUWaRd5GIkZn + RqtG8Ec1R3tHwEgFSEtIkUjXSR1JY0mpSfBKN0p9SsRLDEtTS5pL4kwqTHJMuk0CTUpNk03cTiVObk63 + TwBPSU+TT91QJ1BxULtRBlFQUZtR5lIxUnxSx1MTU19TqlP2VEJUj1TbVShVdVXCVg9WXFapVvdXRFeS + V+BYL1h9WMtZGllpWbhaB1pWWqZa9VtFW5Vb5Vw1XIZc1l0nXXhdyV4aXmxevV8PX2Ffs2AFYFdgqmD8 + YU9homH1YklinGLwY0Njl2PrZEBklGTpZT1lkmXnZj1mkmboZz1nk2fpaD9olmjsaUNpmmnxakhqn2r3 + a09rp2v/bFdsr20IbWBtuW4SbmtuxG8eb3hv0XArcIZw4HE6cZVx8HJLcqZzAXNdc7h0FHRwdMx1KHWF + deF2Pnabdvh3VnezeBF4bnjMeSp5iXnnekZ6pXsEe2N7wnwhfIF84X1BfaF+AX5ifsJ/I3+Ef+WAR4Co + gQqBa4HNgjCCkoL0g1eDuoQdhICE44VHhauGDoZyhteHO4efiASIaYjOiTOJmYn+imSKyoswi5aL/Ixj + jMqNMY2Yjf+OZo7OjzaPnpAGkG6Q1pE/kaiSEZJ6kuOTTZO2lCCUipT0lV+VyZY0lp+XCpd1l+CYTJi4 + mSSZkJn8mmia1ZtCm6+cHJyJnPedZJ3SnkCerp8dn4uf+qBpoNihR6G2oiailqMGo3aj5qRWpMelOKWp + phqmi6b9p26n4KhSqMSpN6mpqhyqj6sCq3Wr6axcrNCtRK24ri2uoa8Wr4uwALB1sOqxYLHWskuywrM4 + s660JbSctRO1irYBtnm28Ldot+C4WbjRuUq5wro7urW7LrunvCG8m70VvY++Cr6Evv+/er/1wHDA7MFn + wePCX8Lbw1jD1MRRxM7FS8XIxkbGw8dBx7/IPci8yTrJuco4yrfLNsu2zDXMtc01zbXONs62zzfPuNA5 + 0LrRPNG+0j/SwdNE08bUSdTL1U7V0dZV1tjXXNfg2GTY6Nls2fHadtr724DcBdyK3RDdlt4c3qLfKd+v + 4DbgveFE4cziU+Lb42Pj6+Rz5PzlhOYN5pbnH+ep6DLovOlG6dDqW+rl63Dr++yG7RHtnO4o7rTvQO/M + 8Fjw5fFy8f/yjPMZ86f0NPTC9VD13vZt9vv3ivgZ+Kj5OPnH+lf65/t3/Af8mP0p/br+S/7c/23////b + AEMAAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQICAgICAgICAgICAwMD + AwMDAwMDA//bAEMBAQEBAQEBAQEBAQICAQICAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMD + AwMDAwMDAwMDAwMDAwMDA//AABEIAAwAPAMBEQACEQEDEQH/xAAfAAABBQEBAQEBAQAAAAAAAAAAAQID + BAUGBwgJCgv/xAC1EAACAQMDAgQDBQUEBAAAAX0BAgMABBEFEiExQQYTUWEHInEUMoGRoQgjQrHBFVLR + 8CQzYnKCCQoWFxgZGiUmJygpKjQ1Njc4OTpDREVGR0hJSlNUVVZXWFlaY2RlZmdoaWpzdHV2d3h5eoOE + hYaHiImKkpOUlZaXmJmaoqOkpaanqKmqsrO0tba3uLm6wsPExcbHyMnK0tPU1dbX2Nna4eLj5OXm5+jp + 6vHy8/T19vf4+fr/xAAfAQADAQEBAQEBAQEBAAAAAAAAAQIDBAUGBwgJCgv/xAC1EQACAQIEBAMEBwUE + BAABAncAAQIDEQQFITEGEkFRB2FxEyIygQgUQpGhscEJIzNS8BVictEKFiQ04SXxFxgZGiYnKCkqNTY3 + ODk6Q0RFRkdISUpTVFVWV1hZWmNkZWZnaGlqc3R1dnd4eXqCg4SFhoeIiYqSk5SVlpeYmZqio6Slpqeo + qaqys7S1tre4ubrCw8TFxsfIycrS09TV1tfY2dri4+Tl5ufo6ery8/T19vf4+fr/2gAMAwEAAhEDEQA/ + AP1ZH7UPxEAA/wCEw8bnj/ob9f8A/k+v7U/1Nyj/AKF+G/8ABUP/AJE/llcSZlZf7dX/APBk/wDMX/hq + H4if9Df43/8ACv1//wCT6P8AU3Kf+hfhv/BUP/kQ/wBZcy/6Dq//AIMn/mH/AA1D8RP+hv8AG/8A4V+v + /wDyfR/qblP/AEL8N/4Kh/8AIh/rLmX/AEHV/wDwZP8AzD/hqH4if9Df43/8K/X/AP5Po/1Nyn/oX4b/ + AMFQ/wDkQ/1lzL/oOr/+DJ/5h/w1D8RP+hv8b/8AhX6//wDJ9H+puU/9C/Df+Cof/Ih/rLmX/QdX/wDB + k/8AMT/hqH4if9Df43/8K/X/AP5Po/1Nyn/oX4b/AMFQ/wDkQ/1kzL/oOr/+DJ/5n2R+xz+234zt/iRp + nw+8a6vqXiDwZ4gs9baObXr+bUr/AMPajpmkX2tQ3FlqV2Zb57K7XT2t3tXkaJWkV4whVxJ+beJfAuU4 + Th/FZ/hKEKOMw8qd+SKjGcZzjTs4q0bpyUlJK7s073VvuuBOLMxxGcYfJ8TWlVw1ZTtzu7hKMJTupPWz + UWnFu2qatrf9aP8AhfXgv+zv7U89/sfm+V5207N+M43fSv50P2w/kwr/AEFP42CgAoAKACgAoA9s/Z0/ + s7/hcng3+1vP/s7Ov/avs2PP2f8ACL63t2buP9ZjP+zmvz7xU/5IPPf+4H/qRRPsvD//AJK7KP8AuL/6 + ZqH7/wD/ABaT/hUfb7Ht/wBj7V9p8v8A9Cr+Oz+lz//Z + + + + 46 + + \ No newline at end of file diff --git a/ArinWarev1/Forms_Input/Frm_nBunbae.vb b/ArinWarev1/Forms_Input/Frm_nBunbae.vb new file mode 100644 index 0000000..7ccf228 --- /dev/null +++ b/ArinWarev1/Forms_Input/Frm_nBunbae.vb @@ -0,0 +1,553 @@ +Public Class Frm_nBunbae + + Dim Init As Boolean = False + Dim SrcDrv As DataRowView +#Region "data Base 변경여부및 적용방법" + + '''변경된내용을적용한다. + Public Overrides Function AcceptChanged() As Boolean + bs.EndEdit() + Dim BaseDS As DataSet = CType(bs.DataSource, DataSet) + Dim BaseDT As DataTable = BaseDS.Tables(bs.DataMember) + BaseDT.AcceptChanges() + Return True + End Function + + '''변경된내용이있다면 취소한다. + Public Overrides Function RejectChanged() As Boolean + Dim BaseDS As DataSet = CType(bs.DataSource, DataSet) + Dim BaseDT As DataTable = BaseDS.Tables(bs.DataMember) + BaseDT.RejectChanges() + Return True + End Function + + '''데이터에변형이있었는가? + Public Overrides Function HasChanged() As Boolean + bs.EndEdit() + Dim BaseDS As DataSet = CType(bs.DataSource, DataSet) + Dim BaseDT As DataTable = BaseDS.Tables(bs.DataMember) + Dim ChangeDT As DataTable = BaseDT.GetChanges + If Not ChangeDT Is Nothing Then Return True + Return False + End Function + + '''기본데이터테이블을 반환합니다. + Public Function DT() As DataTable + Dim BaseDS As DataSet = CType(bs.DataSource, DataSet) + Return BaseDS.Tables(bs.DataMember) + End Function + + +#End Region + + + Public Sub New(_opentime) + + ' 이 호출은 디자이너에 필요합니다. + InitializeComponent() + OpenTime = _opentime + + ' InitializeComponent() 호출 뒤에 초기화 코드를 추가하십시오. + + + End Sub + Private Sub ShowHistory() + Dim drv As DataRowView = Me.bs.Current + Dim f As New Frm_History("tbl_nbunbae", drv("code").ToString) + If f.ShowDialog = DialogResult.OK Then + drv(f.colname) = f.val + Me.Validate() + Me.bs.EndEdit() + My.Application.DoEvents() + MsgBox("값이 변경되었습니다", MsgBoxStyle.Information, "확인") + End If + End Sub + Private Sub AddNewDataRow_Zone_Changed2(ByVal sender As Object, ByVal e As System.Data.DataColumnChangeEventArgs) + Dim oval As String = e.Row(e.Column.ColumnName).ToString + Dim nval As String = e.ProposedValue.ToString + If oval <> nval Then + Dim newdr As DS2.historyRow = DSHistory.history.NewhistoryRow + newdr.time = Now.ToString("yyyy-MM-dd HH:mm:ss") + newdr.tablename = "tbl_nbunbae" + newdr.ovalue = oval + newdr.nvalue = nval + newdr.column = e.Column.ColumnName + newdr.code = e.Row("code").ToString + DSHistory.history.AddhistoryRow(newdr) + DSHistory.history.AcceptChanges() + End If + End Sub + Private Sub MdiMain_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load + + Me.Show() + My.Application.DoEvents() + 'Work_msg_timer("잠시만 기다려주세요") + + ' CEnergy.ARINCLASS.SaveLoad_FrmSetting(Me) + '//프로필 관련 + + '//공유데이터셋에 연결한다. + Me.bs.DataSource = DSET1 + '//냉방분배 + AddHandler DSET1.tbl_nbunbae.TableNewRow, AddressOf AddNewDataRow_bunbae + AddHandler DSET1.tbl_nbunbae.ColumnChanging, AddressOf AddNewDataRow_Zone_Changed2 + + '//모든컨트롤의 cTrl_enter 를 추가합니다 + BindProperty(CType(Me.SplitContainer1.Panel2.Controls, Control.ControlCollection)) + + Binding_Zone() + + + + Me.bs.Filter = "code <> '0'" + If Me.Parameter <> "" Then Me.bs.Filter &= " and 배관망유형 ='" + Me.Parameter + "'" + ' Me.lb_grpname.Text = Me.Parameter + + + Me.Init = True + + Try + Me.bs.Position = CEnergy.ARINCLASS.Read_LastPos_Frm(Me) + Catch ex As Exception + Me.bs.MoveFirst() + End Try + + bs_CurrentChanged(sender, e) + Validate_Control() + AddDebug("▲ Form Load") + End Sub + +#Region "Control_Enter" + Private Sub BindProperty(ByVal Ctl As Control.ControlCollection) + For Each C As Control In Ctl + If C.Controls.Count > 1 Then + BindProperty(C.Controls) + Else + If C.GetType.ToString.ToUpper.IndexOf("MYTB") <> -1 Then + AddHandler CType(C, MyTb).KeyDown, AddressOf TextBOx_KeyDown + ElseIf C.GetType.ToString.ToUpper.IndexOf("MYCMB") <> -1 Then + AddHandler CType(C, MyCmb).KeyDown, AddressOf Cmd_KeyDown + End If + End If + Next + End Sub + + + Private Sub TextBOx_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) + If e.KeyCode = Keys.Enter AndAlso e.Control Then + Try + Dim Field As String = (CType(sender, MyTb).DataBindings.Item("text").BindingMemberInfo.BindingField) + For Each Dr As DataRow In Dt.Select(Me.bs.Filter, "") + Dr(Field) = CType(sender, MyTb).Text + Next + Work_msg_timer("모든값이 변경되었습니다", 25) + Catch ex As Exception + + End Try + + End If + End Sub + Private Sub Cmd_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) + If e.KeyCode = Keys.Enter AndAlso e.Control Then + Try + Dim Field As String = (CType(sender, MyCmb).DataBindings.Item("selectedvalue").BindingMemberInfo.BindingField) + For Each Dr As DataRow In Dt.Select(Me.bs.Filter, "") + Dr(Field) = CType(sender, MyCmb).SelectedValue + Next + Work_msg_timer("모든값이 변경되었습니다", 25) + Catch ex As Exception + + End Try + End If + End Sub + +#End Region +#Region "냉방분배기기" + + Private Sub MdiMain_FormClosed(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosedEventArgs) Handles Me.FormClosed + CEnergy.ARINCLASS.SaveLoad_FrmSetting(Me, Me.bs.Position, True) + End Sub + + Private Sub MdiMain_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown + Select Case e.KeyCode + Case Keys.F12 + ShowHistory() + End Select + End Sub + +#Region "제어버튼" + Private Sub ToolStripButton48_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt_add.Click + If Not EndEdit(Me.bs) Then Return + Me.bs.AddNew() + INitRow(Me.Controls) + MdiMain.RefreshMenuList(TreeTag) + End Sub + + + Private Sub ToolStripButton49_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt_Del.Click + Dbbase.DelCrow(Me.bs, True) + MdiMain.RefreshMenuList(TreeTag) + End Sub + + Private Sub ToolStripButton51_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt_cancel.Click + If Not EndEdit(Me.bs) Then Return + Data_Cancel(DSET1.tbl_profile, Nothing) + MdiMain.RefreshMenuList(TreeTag) + End Sub +#End Region + + + Private Function GetMaxCode(ByVal dt As DataTable) As String + Try + Dim Dr As DataRow = dt.Select("", "code desc")(0) + Return Format(CInt(Dr("code")) + 1, "0000") + Catch ex As Exception + Return "0001" + End Try + End Function + + Private Sub Binding_Zone() + + '//냉방분배시스템 + Dim bs_생산기기구분 As New BindingSource(DSET1, "tbl_nanbangkiki") + bs_생산기기구분.Sort = "code" + Me.cmb_생산기기구분.DataSource = bs_생산기기구분 + cmb_생산기기구분.DisplayMember = "설명" + cmb_생산기기구분.ValueMember = "code" + Me.cmb_생산기기구분.DataBindings.Add("selectedvalue", Me.bs, "생산기기구분") + 'AddHandler cmb_생산기기구분.KeyDown, AddressOf Cmb_DeleteVal + + Dim bs_표준치적용 As New BindingSource(DSET1, "tbl_common") + bs_표준치적용.Filter = "gubun='1080'" + bs_표준치적용.Sort = "code" + Me.cmb_표준치적용.DataSource = bs_표준치적용 + cmb_표준치적용.DisplayMember = "name" + cmb_표준치적용.ValueMember = "name" + Me.cmb_표준치적용.DataBindings.Add("selectedvalue", Me.bs, "표준치적용") + 'AddHandler cmb_표준치적용.KeyDown, AddressOf Cmb_DeleteVal + + Dim bs_배관망유형 As New BindingSource(DSET1, "tbl_common") + bs_배관망유형.Filter = "gubun='1084'" + bs_배관망유형.Sort = "code" + Me.cmb_배관망유형.DataSource = bs_배관망유형 + cmb_배관망유형.DisplayMember = "name" + cmb_배관망유형.ValueMember = "name" + Me.cmb_배관망유형.DataBindings.Add("selectedvalue", Me.bs, "배관망유형") + 'AddHandler cmb_표준치적용.KeyDown, AddressOf Cmb_DeleteVal + + + Dim bs_배관구간방식 As New BindingSource(DSET1, "tbl_common") + bs_배관구간방식.Filter = "gubun='1081'" + bs_배관구간방식.Sort = "code" + Me.cmb_배관구간방식.DataSource = bs_배관구간방식 + cmb_배관구간방식.DisplayMember = "name" + cmb_배관구간방식.ValueMember = "name" + Me.cmb_배관구간방식.DataBindings.Add("selectedvalue", Me.bs, "배관구간방식") + 'AddHandler cmb_배관구간방식.KeyDown, AddressOf Cmb_DeleteVal + + Dim bs_배관설치장소 As New BindingSource(DSET1, "tbl_common") + bs_배관설치장소.Filter = "gubun='1082'" + bs_배관설치장소.Sort = "code" + Me.cmb_배관설치장소.DataSource = bs_배관설치장소 + cmb_배관설치장소.DisplayMember = "name" + cmb_배관설치장소.ValueMember = "name" + Me.cmb_배관설치장소.DataBindings.Add("selectedvalue", Me.bs, "배관설치장소") + 'AddHandler cmb_배관설치장소.KeyDown, AddressOf Cmb_DeleteVal + + Dim bs_지관연결관장소 As New BindingSource(DSET1, "tbl_common") + bs_지관연결관장소.Filter = "gubun='1083'" + bs_지관연결관장소.Sort = "code" + Me.cmb_지관연결관장소.DataSource = bs_지관연결관장소 + cmb_지관연결관장소.DisplayMember = "name" + cmb_지관연결관장소.ValueMember = "name" + Me.cmb_지관연결관장소.DataBindings.Add("selectedvalue", Me.bs, "지관장소") + 'AddHandler cmb_지관연결관장소.KeyDown, AddressOf Cmb_DeleteVal + + 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 + If Me.bs.Position < Me.bs.Count Then Me.bs.Position += 1 + Else + If Me.bs.Position > 0 Then Me.bs.Position -= 1 + End If + Me.Validate() + My.Application.DoEvents() + End Sub + + Private Sub AddNewDataRow_bunbae(ByVal sender As Object, ByVal e As System.Data.DataTableNewRowEventArgs) + e.Row.Item("code") = GetMaxCode(DSET1.tbl_nbunbae) + e.Row.Item("설명") = "신규데이터" + End Sub +#End Region + + Private Sub 냉동기ComboBox_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles cmb_생산기기구분.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) <> 17 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() '//한줄추가 + + Dim Cnt As Short = 0 + For i As Integer = 0 To CB.GetUpperBound(0) + Select Case i + Case 0 + CType(bs.Current, DataRowView)("설명") = CB(i).Split(CChar(vbTab))(ii).Trim + Case 0 + 2 '//사용프로필 앞에 두개를 숫자4자로변환 + If CB(i).Split(CChar(vbTab))(ii).Trim = "" Then + Me.cmb_생산기기구분.SelectedIndex = 0 + Else + Me.cmb_생산기기구분.Text = CB(i).Split(CChar(vbTab))(ii).Trim + End If + + 'Me.cmb_생산기기구분.Text = CStr(IIf( CB(i).Split(CChar(vbTab))(ii).Trim = "", "0", CB(i).Split(CChar(vbTab))(ii).Trim)) + Case 1 + 2 '//공란 + If CB(i).Split(CChar(vbTab))(ii).Trim = "" Then + Me.cmb_표준치적용.SelectedIndex = 0 + Else + Me.cmb_표준치적용.Text = CB(i).Split(CChar(vbTab))(ii).Trim + End If + Case 2 + 2 + If CB(i).Split(CChar(vbTab))(ii).Trim = "" Then + Me.cmb_배관망유형.SelectedIndex = 0 + Else + Me.cmb_배관망유형.Text = CB(i).Split(CChar(vbTab))(ii).Trim + End If + ' Me.cmb_표준치적용.Text = CStr(IIf( CB(i).Split(CChar(vbTab))(ii).Trim = "", "0", CB(i).Split(CChar(vbTab))(ii).Trim)) + Case 3 + 2 + 2 + If CB(i).Split(CChar(vbTab))(ii).Trim = "" Then + Me.cmb_배관구간방식.SelectedIndex = 0 + Else + Me.cmb_배관구간방식.Text = CB(i).Split(CChar(vbTab))(ii).Trim + End If + + 'Me.cmb_배관구간방식.Text = CStr(IIf( CB(i).Split(CChar(vbTab))(ii).Trim = "", "0", CB(i).Split(CChar(vbTab))(ii).Trim)) + Case 4 + 2 + 2 + Me.배관구간길이MyTb.Text = CB(i).Split(CChar(vbTab))(ii).Trim + Case 5 + 2 + 2 + Me.열관류율MyTb.Text = CB(i).Split(CChar(vbTab))(ii).Trim + Case 6 + 2 + 2 + If CB(i).Split(CChar(vbTab))(ii).Trim = "" Then + Me.cmb_배관설치장소.SelectedIndex = 0 + Else + Me.cmb_배관설치장소.Text = CB(i).Split(CChar(vbTab))(ii).Trim + End If + + 'Me.cmb_배관설치장소.Text = CStr(IIf( CB(i).Split(CChar(vbTab))(ii).Trim = "", "0", CB(i).Split(CChar(vbTab))(ii).Trim)) + Case 8 + 2 + 2 + Me.건물길이xMyTb.Text = CB(i).Split(CChar(vbTab))(ii).Trim + Case 9 + 2 + 2 + Me.건물길이yMyTb.Text = CB(i).Split(CChar(vbTab))(ii).Trim + Case 10 + 2 + 2 + Me.층수MyTb.Text = CB(i).Split(CChar(vbTab))(ii).Trim + Case 11 + 2 + 2 + Me.층고MyTb.Text = CB(i).Split(CChar(vbTab))(ii).Trim + Case 12 + 2 + 2 + If CB(i).Split(CChar(vbTab))(ii).Trim = "" Then + Me.cmb_지관연결관장소.SelectedIndex = 0 + Else + Me.cmb_지관연결관장소.Text = CB(i).Split(CChar(vbTab))(ii).Trim + End If + + 'Me.cmb_지관연결관장소.Text = CStr(IIf(CB(i).Trim = "", "0", CB(i).Trim)) + End Select + Next + Next + + Me.bs.EndEdit() + End If + End Sub + + Private Sub Validate_Control() + If Not Init Then Return + 'Try + ' If Me.조명부하산출방법ComboBox.SelectedValue.ToString = "0001" Then '//계산치 + ' Me.요구조도NTb1.Enabled = True + ' Me.천장고NTB1.Enabled = True + ' Me.작업면높이NTb1.Enabled = True + ' Me.실깊이NTb.Enabled = True + ' Me.실너비NTb.Enabled = True + ' Me.실지수NTb1.Enabled = True + ' Me.조명방식ComboBox.Enabled = True + ' Me.인공광원ComboBox.Enabled = True + ' Me.보수율NTb.Enabled = True + ' 'Me.점등시간NTb.Enabled = False + ' Me.조명기기효율NTb.Enabled = True + ' Me.조명률NTb.Enabled = True + ' Me.조명에너지부하율계산치NTb.Enabled = True + ' Me.조명에너지부하율입력치NTb.Enabled = False + ' Else + ' Me.요구조도NTb1.Enabled = False + ' Me.천장고NTB1.Enabled = False + ' Me.작업면높이NTb1.Enabled = False + ' Me.실깊이NTb.Enabled = False + ' Me.실너비NTb.Enabled = False + ' Me.실지수NTb1.Enabled = False + ' Me.조명방식ComboBox.Enabled = False + ' Me.인공광원ComboBox.Enabled = False + ' Me.보수율NTb.Enabled = False + ' 'Me.점등시간NTb.Enabled = False + ' Me.조명기기효율NTb.Enabled = False + ' Me.조명률NTb.Enabled = False + ' Me.조명에너지부하율계산치NTb.Enabled = False + ' Me.조명에너지부하율입력치NTb.Enabled = True + ' 'Me.점등시간TextBox.Enabled = True + ' End If + ' Me.bs.EndEdit() + 'Catch ex As Exception + + 'End Try + + Try + If Me.cmb_표준치적용.Text = "상세입력" Then + 열분배GroupBox.Enabled = True + 난방분배표준치GroupBox.Enabled = False + 열분배PictureBox.Enabled = True + 난방분배표준치PictureBox.Enabled = False + If Me.cmb_배관망유형.Text = "급탕" Then + cmb_배관구간방식.Enabled = False + 배관구간길이MyTb.Enabled = True + 열관류율MyTb.Enabled = True + cmb_배관설치장소.Enabled = False + ElseIf Me.cmb_배관망유형.Text = "난방" Then + cmb_배관구간방식.Enabled = True + 배관구간길이MyTb.Enabled = True + 열관류율MyTb.Enabled = True + cmb_배관설치장소.Enabled = True + Else + cmb_배관구간방식.Enabled = False + 배관구간길이MyTb.Enabled = False + 열관류율MyTb.Enabled = False + cmb_배관설치장소.Enabled = False + End If + + ElseIf Me.cmb_표준치적용.Text = "표준치조건" Then + 열분배GroupBox.Enabled = False + 열분배PictureBox.Enabled = False + If Me.cmb_배관망유형.Text = "급탕" Then + 난방분배표준치GroupBox.Enabled = False + 난방분배표준치PictureBox.Enabled = False + Else + 난방분배표준치GroupBox.Enabled = True + 난방분배표준치PictureBox.Enabled = True + End If + End If + Catch ex As Exception + + End Try + End Sub + + Private Sub SplitContainer1_Panel1_Paint(ByVal sender As System.Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles SplitContainer1.Panel1.Paint + + End Sub + + Private Sub bt_Del_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles bt_Del.MouseDown + If e.Button = Windows.Forms.MouseButtons.Right Then + If MsgBox("전체삭제를 하시겠습니까?", MsgBoxStyle.Information Or MsgBoxStyle.OkCancel, "확인") = MsgBoxResult.Ok Then + Dim dR() As DataRow = DSET1.tbl_nbunbae.Select(Me.bs.Filter, "") + For i As Integer = dR.GetUpperBound(0) To 0 Step -1 + dR(i).Delete() + Next + DSET1.tbl_nbunbae.AcceptChanges() + End If + End If + End Sub + + Private Sub cmb_배관망유형_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmb_배관망유형.SelectedIndexChanged + Validate_Control() + End Sub + + Private Sub cmb_표준치적용_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmb_표준치적용.SelectedIndexChanged + Validate_Control() + End Sub + + Private Sub dv_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles dv.MouseUp + If Prj.UserAuthType = "ADMIN" OrElse Prj.UserAuthType = "BOTH" OrElse Prj.UserAuthType = "BOTH2" OrElse Prj.UserAuthType = "BOTH1" Then '//2011.03.08 추가 + If e.Button = Windows.Forms.MouseButtons.Right Then + Dim Frm_FilterA As New Frm_Filter + Frm_FilterA.ColumTitle = getColCaption(Me.Dt) + Frm_FilterA.ColumList = getColName(Me.Dt) + Frm_FilterA.Colorlist = "생산기기구분" + Frm_FilterA.Numfield = "" '//20100618 Color 리스트처럼 , 구분해서 필드들을 모두 넣으세요.(=, >= 등을 사용하기 위해서는 해당 항목을 추가 요망) + Frm_FilterA.Default_Filter = "code <> '0'" + + If Frm_FilterA.ShowDialog <> Windows.Forms.DialogResult.OK Then Return '//창떳을떄 확인아ㅣ고 취소눌르면 다음을 수행하지않는다는거에요. + Dim Filter As String = Frm_FilterA.tb_filter.Text '//값은 아까 그 텍박에 잇구요. + Try + Me.bs.Filter = Filter + + '//바꾸기값이 있으면 변경 20100618 + If Frm_FilterA.cmb_fieldc.SelectedIndex >= 0 AndAlso Frm_FilterA.cmb_fieldc.Text.ToLower <> "code" AndAlso _ + Frm_FilterA.tb_valuec.Text <> "" Then + Dim Drow() As DataRow = Me.Dt.Select(Filter) + For Each Dr As DataRow In Drow + Dr(Frm_FilterA.cmb_fieldc.Text) = Frm_FilterA.tb_valuec.Text + Next + MsgBox("바꾸기 완료", MsgBoxStyle.Information, "확인") + End If + + Catch ex As Exception + Me.bs.Filter = "" + End Try + End If + End If + End Sub + + Private Sub dv_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles dv.KeyDown + '//여기보시면 alt+d 누르면 한줄을 경고없이(falsE)삭제하도록 햇어요.. 사실원래 밋alt +d 인데.. ㅎㅎ 잘못해서 ctrl 됫다는 + If Prj.UserAuthType = "ADMIN" OrElse Prj.UserAuthType = "BOTH" OrElse Prj.UserAuthType = "BOTH2" OrElse Prj.UserAuthType = "BOTH1" Then '//2011.03.08 추가 + Select Case e.KeyCode + Case Keys.D + If e.Alt Then + Dbbase.DelCrow(Me.bs, False) + End If + Case Keys.C + If e.Control Then + Me.SrcDrv = Me.bs.Current + If Me.SrcDrv Is Nothing Then + MsgBox("저장할 ROW가 없습니다", MsgBoxStyle.Information, "확인") + Return + End If + ' My.Computer.Clipboard.SetData("ZDATA", Drv) + End If + Case Keys.V + If e.Control Then + If Me.SrcDrv Is Nothing Then Return + Me.bt_add.PerformClick() '//신규추가 + Dim NewDrv As DataRowView = Me.bs.Current + + For Each C As DataColumn In Me.Dt.Columns + If C.ColumnName.ToUpper = "CODE" Then + ElseIf C.ColumnName.ToUpper = "설명" Then + NewDrv(C.ColumnName) = SrcDrv(C.ColumnName) & "#1" + Else + NewDrv(C.ColumnName) = SrcDrv(C.ColumnName) + End If + Next + Me.bs.EndEdit() + bs.MoveLast() + End If + End Select + End If + End Sub + + Private Sub bs_CurrentChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles bs.CurrentChanged + If Not Init Then Return + Me.bs.EndEdit() + + Dim drv As DataRowView = Me.bs.Current + If drv Is Nothing Then Return + Me.lb_code.Text = "[" + drv("code").ToString + "]" + End Sub + + Private Sub dv_CellContentClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles dv.CellContentClick + + End Sub +End Class \ No newline at end of file diff --git a/ArinWarev1/Forms_Input/Frm_v20091231_Myoun.Designer.vb b/ArinWarev1/Forms_Input/Frm_v20091231_Myoun.Designer.vb new file mode 100644 index 0000000..9ca9689 --- /dev/null +++ b/ArinWarev1/Forms_Input/Frm_v20091231_Myoun.Designer.vb @@ -0,0 +1,1662 @@ + _ +Partial Class Frm_V20091231_Myoun + Inherits CForm + + 'Form은 Dispose를 재정의하여 구성 요소 목록을 정리합니다. + _ + Protected Overrides Sub Dispose(ByVal disposing As Boolean) + Try + If disposing AndAlso components IsNot Nothing Then + components.Dispose() + End If + Finally + MyBase.Dispose(disposing) + End Try + End Sub + + 'Windows Form 디자이너에 필요합니다. + Private components As System.ComponentModel.IContainer + + '참고: 다음 프로시저는 Windows Form 디자이너에 필요합니다. + '수정하려면 Windows Form 디자이너를 사용하십시오. + '코드 편집기를 사용하여 수정하지 마십시오. + _ + Private Sub InitializeComponent() + Me.components = New System.ComponentModel.Container() + Dim Label157 As System.Windows.Forms.Label + Dim Label160 As System.Windows.Forms.Label + Dim Label148 As System.Windows.Forms.Label + Dim Label149 As System.Windows.Forms.Label + Dim Label151 As System.Windows.Forms.Label + Dim Label144 As System.Windows.Forms.Label + Dim Label145 As System.Windows.Forms.Label + Dim Label146 As System.Windows.Forms.Label + Dim Label147 As System.Windows.Forms.Label + Dim DataGridViewCellStyle1 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle2 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(Frm_V20091231_Myoun)) + Dim DataGridViewCellStyle3 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Me.TableLayoutPanel1 = New System.Windows.Forms.TableLayoutPanel() + Me.NTb1 = New Eco2Ar.MyTb() + Me.NTb2 = New Eco2Ar.MyTb() + Me.bs = New System.Windows.Forms.BindingSource(Me.components) + Me.DS = New Eco2Ar.DS() + Me.bszone = New System.Windows.Forms.BindingSource(Me.components) + Me.ToolTip1 = New System.Windows.Forms.ToolTip(Me.components) + Me.NTb3 = New Eco2Ar.MyTb() + Me.SplitContainer1 = New System.Windows.Forms.SplitContainer() + Me.TableLayoutPanel2 = New System.Windows.Forms.TableLayoutPanel() + Me.bn = New System.Windows.Forms.BindingNavigator(Me.components) + Me.lbl_count = New System.Windows.Forms.ToolStripLabel() + Me.cmb_gubun = New System.Windows.Forms.ToolStripComboBox() + Me.bt_add = New System.Windows.Forms.ToolStripButton() + Me.bt_Del = New System.Windows.Forms.ToolStripButton() + Me.bt_cancel = New System.Windows.Forms.ToolStripButton() + Me.lbl_pos = New System.Windows.Forms.ToolStripLabel() + Me.Arindv1 = New CEnergy.arindv() + Me.dv = New CEnergy.arindv() + Me.BindingNavigator1 = New System.Windows.Forms.BindingNavigator(Me.components) + Me.BindingNavigatorCountItem = New System.Windows.Forms.ToolStripLabel() + Me.BindingNavigatorPositionItem = New System.Windows.Forms.ToolStripTextBox() + Me.ToolStrip2 = New System.Windows.Forms.ToolStrip() + Me.ToolStripLabel11 = New System.Windows.Forms.ToolStripLabel() + Me.lbl_cnt4 = New System.Windows.Forms.ToolStripLabel() + Me.ToolStrip1 = New System.Windows.Forms.ToolStrip() + Me.ToolStripLabel1 = New System.Windows.Forms.ToolStripLabel() + Me.lbl_cnt1 = New System.Windows.Forms.ToolStripLabel() + Me.ToolStripLabel3 = New System.Windows.Forms.ToolStripLabel() + Me.lbl_cnt2 = New System.Windows.Forms.ToolStripLabel() + Me.ToolStripLabel5 = New System.Windows.Forms.ToolStripLabel() + Me.lbl_cnt3 = New System.Windows.Forms.ToolStripLabel() + Me.Label7 = New System.Windows.Forms.Label() + Me.PictureBox1 = New System.Windows.Forms.PictureBox() + Me.Label11 = New System.Windows.Forms.Label() + Me.PictureBox4 = New System.Windows.Forms.PictureBox() + Me.GroupBox5 = New System.Windows.Forms.GroupBox() + Me.cmb_존분류 = New Eco2Ar.MyCmb() + Me.cmb_대차존 = New Eco2Ar.MyCmb() + Me.PictureBox5 = New System.Windows.Forms.PictureBox() + Me.GroupBox4 = New System.Windows.Forms.GroupBox() + Me.cmb_블라인드종류 = New Eco2Ar.MyCmb() + Me.cmb_블라인드색상 = New Eco2Ar.MyCmb() + Me.Label6 = New System.Windows.Forms.Label() + Me.Label5 = New System.Windows.Forms.Label() + Me.PictureBox7 = New System.Windows.Forms.PictureBox() + Me.GroupBox3 = New System.Windows.Forms.GroupBox() + Me.cmb_블라인드설치유무 = New Eco2Ar.MyCmb() + Me.cmb_블라인드각도 = New Eco2Ar.MyCmb() + Me.Label4 = New System.Windows.Forms.Label() + Me.cmb_블라인드위치 = New Eco2Ar.MyCmb() + Me.Label3 = New System.Windows.Forms.Label() + Me.Label2 = New System.Windows.Forms.Label() + Me.PictureBox6 = New System.Windows.Forms.PictureBox() + Me.GroupBox2 = New System.Windows.Forms.GroupBox() + Me.MyTb6 = New Eco2Ar.MyTb() + Me.Label13 = New System.Windows.Forms.Label() + Me.MyTb4 = New Eco2Ar.MyTb() + Me.Label10 = New System.Windows.Forms.Label() + Me.MyTb7 = New Eco2Ar.MyTb() + Me.Label12 = New System.Windows.Forms.Label() + Me.MyTb5 = New Eco2Ar.MyTb() + Me.Label9 = New System.Windows.Forms.Label() + Me.tb_04 = New Eco2Ar.MyTb() + Me.tb_06 = New Eco2Ar.MyTb() + Me.tb_05 = New Eco2Ar.MyTb() + Me.rad_수평직입력 = New System.Windows.Forms.RadioButton() + Me.rad_차양각입력 = New System.Windows.Forms.RadioButton() + Me.Label1 = New System.Windows.Forms.Label() + Me.MyTb2 = New Eco2Ar.MyTb() + Me.Label8 = New System.Windows.Forms.Label() + Me.MyTb3 = New Eco2Ar.MyTb() + Me.PictureBox9 = New System.Windows.Forms.PictureBox() + Me.PictureBox10 = New System.Windows.Forms.PictureBox() + Me.PictureBox3 = New System.Windows.Forms.PictureBox() + Me.GroupBox1 = New System.Windows.Forms.GroupBox() + Me.rad7 = New System.Windows.Forms.RadioButton() + Me.rad6 = New System.Windows.Forms.RadioButton() + Me.rad5 = New System.Windows.Forms.RadioButton() + Me.rad4 = New System.Windows.Forms.RadioButton() + Me.rad3 = New System.Windows.Forms.RadioButton() + Me.rad2 = New System.Windows.Forms.RadioButton() + Me.rad1 = New System.Windows.Forms.RadioButton() + Me.rad8 = New System.Windows.Forms.RadioButton() + Me.PictureBox8 = New System.Windows.Forms.PictureBox() + Me.rad0 = New System.Windows.Forms.RadioButton() + Me.rad10 = New System.Windows.Forms.RadioButton() + Me.rad9 = New System.Windows.Forms.RadioButton() + Me.MyTb1 = New Eco2Ar.MyTb() + Me.cmb_열관류율 = New Eco2Ar.MyCmb() + Me.tb_03 = New Eco2Ar.MyTb() + Me.cmb_건축부위방식 = New Eco2Ar.MyCmb() + Me.cmb_방위 = New Eco2Ar.MyCmb() + Me.tb_02 = New Eco2Ar.MyTb() + Me.PictureBox2 = New System.Windows.Forms.PictureBox() + Me.sortkey = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.Column1 = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.존분류 = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.DataGridViewTextBoxColumn1 = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.DataGridViewTextBoxColumn2 = New System.Windows.Forms.DataGridViewTextBoxColumn() + Label157 = New System.Windows.Forms.Label() + Label160 = New System.Windows.Forms.Label() + Label148 = New System.Windows.Forms.Label() + Label149 = New System.Windows.Forms.Label() + Label151 = New System.Windows.Forms.Label() + Label144 = New System.Windows.Forms.Label() + Label145 = New System.Windows.Forms.Label() + Label146 = New System.Windows.Forms.Label() + Label147 = New System.Windows.Forms.Label() + Me.TableLayoutPanel1.SuspendLayout() + CType(Me.bs, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.DS, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.bszone, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.SplitContainer1, System.ComponentModel.ISupportInitialize).BeginInit() + Me.SplitContainer1.Panel1.SuspendLayout() + Me.SplitContainer1.Panel2.SuspendLayout() + Me.SplitContainer1.SuspendLayout() + Me.TableLayoutPanel2.SuspendLayout() + CType(Me.bn, System.ComponentModel.ISupportInitialize).BeginInit() + Me.bn.SuspendLayout() + CType(Me.Arindv1, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.dv, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.BindingNavigator1, System.ComponentModel.ISupportInitialize).BeginInit() + Me.BindingNavigator1.SuspendLayout() + Me.ToolStrip2.SuspendLayout() + Me.ToolStrip1.SuspendLayout() + CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.PictureBox4, System.ComponentModel.ISupportInitialize).BeginInit() + Me.GroupBox5.SuspendLayout() + CType(Me.PictureBox5, System.ComponentModel.ISupportInitialize).BeginInit() + Me.GroupBox4.SuspendLayout() + CType(Me.PictureBox7, System.ComponentModel.ISupportInitialize).BeginInit() + Me.GroupBox3.SuspendLayout() + CType(Me.PictureBox6, System.ComponentModel.ISupportInitialize).BeginInit() + Me.GroupBox2.SuspendLayout() + CType(Me.PictureBox9, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.PictureBox10, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.PictureBox3, System.ComponentModel.ISupportInitialize).BeginInit() + Me.GroupBox1.SuspendLayout() + CType(Me.PictureBox8, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.PictureBox2, System.ComponentModel.ISupportInitialize).BeginInit() + Me.SuspendLayout() + ' + 'Label157 + ' + Label157.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom), System.Windows.Forms.AnchorStyles) + Label157.AutoSize = True + Label157.BackColor = System.Drawing.Color.FromArgb(CType(CType(219, Byte), Integer), CType(CType(221, Byte), Integer), CType(CType(223, Byte), Integer)) + Label157.Font = New System.Drawing.Font("돋움", 8.999999!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Label157.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label157.Location = New System.Drawing.Point(8, 15) + Label157.Name = "Label157" + Label157.Size = New System.Drawing.Size(49, 12) + Label157.TabIndex = 20 + Label157.Text = "입력존:" + ' + 'Label160 + ' + Label160.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom), System.Windows.Forms.AnchorStyles) + Label160.AutoSize = True + Label160.BackColor = System.Drawing.Color.FromArgb(CType(CType(219, Byte), Integer), CType(CType(221, Byte), Integer), CType(CType(223, Byte), Integer)) + Label160.Font = New System.Drawing.Font("돋움", 8.999999!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Label160.ForeColor = System.Drawing.Color.ForestGreen + Label160.Location = New System.Drawing.Point(301, 15) + Label160.Name = "Label160" + Label160.Size = New System.Drawing.Size(49, 12) + Label160.TabIndex = 20 + Label160.Text = "인접존:" + Label160.Visible = False + ' + 'Label148 + ' + Label148.AutoSize = True + Label148.BackColor = System.Drawing.Color.FromArgb(CType(CType(219, Byte), Integer), CType(CType(221, Byte), Integer), CType(CType(223, Byte), Integer)) + Label148.Font = New System.Drawing.Font("돋움", 8.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Label148.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label148.Location = New System.Drawing.Point(10, 18) + Label148.Name = "Label148" + Label148.Size = New System.Drawing.Size(86, 11) + Label148.TabIndex = 12 + Label148.Text = "일사투과율[-]:" + Label148.TextAlign = System.Drawing.ContentAlignment.MiddleRight + ' + 'Label149 + ' + Label149.AutoSize = True + Label149.BackColor = System.Drawing.Color.FromArgb(CType(CType(219, Byte), Integer), CType(CType(221, Byte), Integer), CType(CType(223, Byte), Integer)) + Label149.Font = New System.Drawing.Font("돋움", 8.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Label149.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label149.Location = New System.Drawing.Point(176, 18) + Label149.Name = "Label149" + Label149.Size = New System.Drawing.Size(71, 11) + Label149.TabIndex = 14 + Label149.Text = "차양각α[o]:" + Label149.TextAlign = System.Drawing.ContentAlignment.MiddleRight + ' + 'Label151 + ' + Label151.AutoSize = True + Label151.BackColor = System.Drawing.Color.FromArgb(CType(CType(219, Byte), Integer), CType(CType(221, Byte), Integer), CType(CType(223, Byte), Integer)) + Label151.Font = New System.Drawing.Font("돋움", 8.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Label151.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label151.Location = New System.Drawing.Point(295, 18) + Label151.Name = "Label151" + Label151.Size = New System.Drawing.Size(70, 11) + Label151.TabIndex = 18 + Label151.Text = "차양각β[o]:" + Label151.TextAlign = System.Drawing.ContentAlignment.MiddleRight + ' + 'Label144 + ' + Label144.AutoSize = True + Label144.BackColor = System.Drawing.Color.FromArgb(CType(CType(219, Byte), Integer), CType(CType(221, Byte), Integer), CType(CType(223, Byte), Integer)) + Label144.Font = New System.Drawing.Font("돋움", 8.999999!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Label144.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label144.Location = New System.Drawing.Point(12, 56) + Label144.Name = "Label144" + Label144.Size = New System.Drawing.Size(36, 12) + Label144.TabIndex = 10 + Label144.Text = "방위:" + Label144.TextAlign = System.Drawing.ContentAlignment.MiddleRight + ' + 'Label145 + ' + Label145.AutoSize = True + Label145.BackColor = System.Drawing.Color.FromArgb(CType(CType(219, Byte), Integer), CType(CType(221, Byte), Integer), CType(CType(223, Byte), Integer)) + Label145.Font = New System.Drawing.Font("돋움", 8.999999!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Label145.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label145.Location = New System.Drawing.Point(12, 29) + Label145.Margin = New System.Windows.Forms.Padding(3) + Label145.Name = "Label145" + Label145.Size = New System.Drawing.Size(93, 12) + Label145.TabIndex = 8 + Label145.Text = "건축부위 방식:" + Label145.TextAlign = System.Drawing.ContentAlignment.MiddleRight + ' + 'Label146 + ' + Label146.AutoSize = True + Label146.BackColor = System.Drawing.Color.FromArgb(CType(CType(219, Byte), Integer), CType(CType(221, Byte), Integer), CType(CType(223, Byte), Integer)) + Label146.Font = New System.Drawing.Font("돋움", 8.999999!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Label146.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label146.Location = New System.Drawing.Point(12, 86) + Label146.Name = "Label146" + Label146.Size = New System.Drawing.Size(120, 12) + Label146.TabIndex = 8 + Label146.Text = "건축부위 면적[㎡]:" + Label146.TextAlign = System.Drawing.ContentAlignment.MiddleRight + ' + 'Label147 + ' + Label147.AutoSize = True + Label147.BackColor = System.Drawing.Color.FromArgb(CType(CType(219, Byte), Integer), CType(CType(221, Byte), Integer), CType(CType(223, Byte), Integer)) + Label147.Font = New System.Drawing.Font("돋움", 8.999999!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Label147.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label147.Location = New System.Drawing.Point(12, 116) + Label147.Name = "Label147" + Label147.Size = New System.Drawing.Size(115, 12) + Label147.TabIndex = 10 + Label147.Text = "열관류율[W/㎡K]:" + Label147.TextAlign = System.Drawing.ContentAlignment.MiddleRight + ' + 'TableLayoutPanel1 + ' + Me.TableLayoutPanel1.AutoScroll = True + Me.TableLayoutPanel1.ColumnCount = 2 + Me.TableLayoutPanel1.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Absolute, 126.0!)) + Me.TableLayoutPanel1.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Percent, 50.0!)) + Me.TableLayoutPanel1.Controls.Add(Me.NTb1, 1, 12) + Me.TableLayoutPanel1.Controls.Add(Me.NTb2, 1, 11) + Me.TableLayoutPanel1.Location = New System.Drawing.Point(0, 0) + Me.TableLayoutPanel1.Name = "TableLayoutPanel1" + Me.TableLayoutPanel1.RowCount = 13 + Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Absolute, 20.0!)) + Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Absolute, 20.0!)) + Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Absolute, 20.0!)) + Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Absolute, 20.0!)) + Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Absolute, 20.0!)) + Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Absolute, 20.0!)) + Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Absolute, 20.0!)) + Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Absolute, 20.0!)) + Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Absolute, 20.0!)) + Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Absolute, 20.0!)) + Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Absolute, 20.0!)) + Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Absolute, 20.0!)) + Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Absolute, 20.0!)) + Me.TableLayoutPanel1.Size = New System.Drawing.Size(200, 100) + Me.TableLayoutPanel1.TabIndex = 0 + ' + 'NTb1 + ' + Me.NTb1.Location = New System.Drawing.Point(129, 243) + Me.NTb1.Name = "NTb1" + Me.NTb1.NectControl = Nothing + Me.NTb1.Size = New System.Drawing.Size(51, 21) + Me.NTb1.TabIndex = 63 + Me.NTb1.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + ' + 'NTb2 + ' + Me.NTb2.Location = New System.Drawing.Point(129, 223) + Me.NTb2.Name = "NTb2" + Me.NTb2.NectControl = Nothing + Me.NTb2.Size = New System.Drawing.Size(51, 21) + Me.NTb2.TabIndex = 61 + Me.NTb2.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + ' + 'bs + ' + Me.bs.DataMember = "tbl_myoun" + Me.bs.DataSource = Me.DS + Me.bs.Filter = "code <> '0'" + Me.bs.Sort = "sortkey,설명" + ' + 'DS + ' + Me.DS.DataSetName = "DS" + Me.DS.SchemaSerializationMode = System.Data.SchemaSerializationMode.IncludeSchema + ' + 'bszone + ' + Me.bszone.DataMember = "tbl_zone" + Me.bszone.DataSource = Me.DS + Me.bszone.Filter = "code <> '0'" + Me.bszone.Sort = "sortkey" + ' + 'NTb3 + ' + Me.NTb3.Location = New System.Drawing.Point(129, 263) + Me.NTb3.Name = "NTb3" + Me.NTb3.NectControl = Nothing + Me.NTb3.Size = New System.Drawing.Size(97, 21) + Me.NTb3.TabIndex = 59 + Me.NTb3.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + ' + '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.TableLayoutPanel2) + ' + 'SplitContainer1.Panel2 + ' + Me.SplitContainer1.Panel2.BackColor = System.Drawing.Color.White + Me.SplitContainer1.Panel2.Controls.Add(Me.ToolStrip2) + Me.SplitContainer1.Panel2.Controls.Add(Me.ToolStrip1) + Me.SplitContainer1.Panel2.Controls.Add(Me.Label7) + Me.SplitContainer1.Panel2.Controls.Add(Me.PictureBox1) + Me.SplitContainer1.Panel2.Controls.Add(Me.Label11) + Me.SplitContainer1.Panel2.Controls.Add(Me.PictureBox4) + Me.SplitContainer1.Panel2.Controls.Add(Me.GroupBox5) + Me.SplitContainer1.Panel2.Controls.Add(Me.GroupBox4) + Me.SplitContainer1.Panel2.Controls.Add(Me.GroupBox3) + Me.SplitContainer1.Panel2.Controls.Add(Me.GroupBox2) + Me.SplitContainer1.Panel2.Controls.Add(Me.GroupBox1) + Me.SplitContainer1.Size = New System.Drawing.Size(818, 574) + Me.SplitContainer1.SplitterDistance = 385 + Me.SplitContainer1.TabIndex = 127 + ' + 'TableLayoutPanel2 + ' + Me.TableLayoutPanel2.ColumnCount = 2 + Me.TableLayoutPanel2.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Percent, 41.25327!)) + Me.TableLayoutPanel2.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Percent, 58.74673!)) + Me.TableLayoutPanel2.Controls.Add(Me.bn, 1, 1) + Me.TableLayoutPanel2.Controls.Add(Me.Arindv1, 0, 0) + Me.TableLayoutPanel2.Controls.Add(Me.dv, 1, 0) + Me.TableLayoutPanel2.Controls.Add(Me.BindingNavigator1, 0, 1) + Me.TableLayoutPanel2.Dock = System.Windows.Forms.DockStyle.Fill + Me.TableLayoutPanel2.Location = New System.Drawing.Point(0, 0) + Me.TableLayoutPanel2.Name = "TableLayoutPanel2" + Me.TableLayoutPanel2.RowCount = 2 + Me.TableLayoutPanel2.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Percent, 100.0!)) + Me.TableLayoutPanel2.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Absolute, 35.0!)) + Me.TableLayoutPanel2.Size = New System.Drawing.Size(383, 572) + Me.TableLayoutPanel2.TabIndex = 3 + ' + '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.Fill + 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.cmb_gubun, Me.bt_add, Me.bt_Del, Me.lbl_count, Me.bt_cancel, Me.lbl_pos}) + Me.bn.Location = New System.Drawing.Point(158, 537) + 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(225, 35) + 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, 32) + Me.lbl_count.Text = "/{0}" + ' + 'cmb_gubun + ' + Me.cmb_gubun.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList + Me.cmb_gubun.FlatStyle = System.Windows.Forms.FlatStyle.Standard + Me.cmb_gubun.Font = New System.Drawing.Font("돋움", 9.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.cmb_gubun.Name = "cmb_gubun" + Me.cmb_gubun.Size = New System.Drawing.Size(85, 35) + ' + '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, 32) + Me.bt_add.ToolTipText = "새로운 프로필을 추가합니다(단축키 Alt+A)" + ' + '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, 32) + 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, 32) + Me.bt_cancel.Text = "변경취소(&C)" + Me.bt_cancel.ToolTipText = "변경된 내용을 되돌립니다" + Me.bt_cancel.Visible = False + ' + 'lbl_pos + ' + Me.lbl_pos.Name = "lbl_pos" + Me.lbl_pos.Size = New System.Drawing.Size(12, 32) + Me.lbl_pos.Text = "0" + ' + 'Arindv1 + ' + Me.Arindv1.A_DelCurrentCell = True + Me.Arindv1.A_EnterToTab = False + Me.Arindv1.AllowUserToAddRows = False + Me.Arindv1.AllowUserToDeleteRows = False + Me.Arindv1.AllowUserToResizeRows = False + Me.Arindv1.AutoGenerateColumns = False + Me.Arindv1.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.AllCells + Me.Arindv1.BackgroundColor = System.Drawing.Color.Silver + Me.Arindv1.BorderStyle = System.Windows.Forms.BorderStyle.None + Me.Arindv1.ColumnHeadersHeight = 30 + Me.Arindv1.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.DisableResizing + Me.Arindv1.Columns.AddRange(New System.Windows.Forms.DataGridViewColumn() {Me.DataGridViewTextBoxColumn2}) + Me.Arindv1.DataSource = Me.bszone + Me.Arindv1.Dock = System.Windows.Forms.DockStyle.Fill + Me.Arindv1.Location = New System.Drawing.Point(3, 5) + Me.Arindv1.Margin = New System.Windows.Forms.Padding(3, 5, 3, 5) + Me.Arindv1.MultiSelect = False + Me.Arindv1.Name = "Arindv1" + Me.Arindv1.ReadOnly = True + DataGridViewCellStyle1.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft + DataGridViewCellStyle1.BackColor = System.Drawing.Color.Silver + DataGridViewCellStyle1.Font = New System.Drawing.Font("돋움", 8.999999!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + DataGridViewCellStyle1.ForeColor = System.Drawing.SystemColors.WindowText + DataGridViewCellStyle1.SelectionBackColor = System.Drawing.SystemColors.Highlight + DataGridViewCellStyle1.SelectionForeColor = System.Drawing.SystemColors.HighlightText + DataGridViewCellStyle1.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] + Me.Arindv1.RowHeadersDefaultCellStyle = DataGridViewCellStyle1 + Me.Arindv1.RowHeadersVisible = False + DataGridViewCellStyle2.BackColor = System.Drawing.Color.Silver + Me.Arindv1.RowsDefaultCellStyle = DataGridViewCellStyle2 + Me.Arindv1.RowTemplate.DefaultCellStyle.BackColor = System.Drawing.Color.Silver + Me.Arindv1.RowTemplate.Height = 23 + Me.Arindv1.ScrollBars = System.Windows.Forms.ScrollBars.Vertical + Me.Arindv1.Size = New System.Drawing.Size(152, 527) + Me.Arindv1.TabIndex = 2 + ' + '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.FromArgb(CType(CType(245, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(246, Byte), Integer)) + Me.dv.BorderStyle = System.Windows.Forms.BorderStyle.None + Me.dv.ColumnHeadersHeight = 30 + Me.dv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.DisableResizing + Me.dv.Columns.AddRange(New System.Windows.Forms.DataGridViewColumn() {Me.sortkey, Me.Column1, Me.존분류, Me.DataGridViewTextBoxColumn1}) + Me.dv.DataSource = Me.bs + Me.dv.Dock = System.Windows.Forms.DockStyle.Fill + Me.dv.Location = New System.Drawing.Point(161, 5) + 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.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.CellSelect + Me.dv.Size = New System.Drawing.Size(219, 527) + Me.dv.TabIndex = 0 + ' + 'BindingNavigator1 + ' + Me.BindingNavigator1.AddNewItem = Nothing + Me.BindingNavigator1.BindingSource = Me.bszone + Me.BindingNavigator1.CountItem = Me.BindingNavigatorCountItem + Me.BindingNavigator1.DeleteItem = Nothing + Me.BindingNavigator1.Dock = System.Windows.Forms.DockStyle.Fill + Me.BindingNavigator1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.BindingNavigatorPositionItem, Me.BindingNavigatorCountItem}) + Me.BindingNavigator1.Location = New System.Drawing.Point(0, 537) + Me.BindingNavigator1.MoveFirstItem = Nothing + Me.BindingNavigator1.MoveLastItem = Nothing + Me.BindingNavigator1.MoveNextItem = Nothing + Me.BindingNavigator1.MovePreviousItem = Nothing + Me.BindingNavigator1.Name = "BindingNavigator1" + Me.BindingNavigator1.PositionItem = Me.BindingNavigatorPositionItem + Me.BindingNavigator1.Size = New System.Drawing.Size(158, 35) + Me.BindingNavigator1.TabIndex = 3 + Me.BindingNavigator1.Text = "BindingNavigator1" + ' + 'BindingNavigatorCountItem + ' + Me.BindingNavigatorCountItem.Name = "BindingNavigatorCountItem" + Me.BindingNavigatorCountItem.Size = New System.Drawing.Size(27, 32) + Me.BindingNavigatorCountItem.Text = "/{0}" + Me.BindingNavigatorCountItem.ToolTipText = "전체 항목 수" + ' + 'BindingNavigatorPositionItem + ' + Me.BindingNavigatorPositionItem.AccessibleName = "위치" + Me.BindingNavigatorPositionItem.AutoSize = False + Me.BindingNavigatorPositionItem.Name = "BindingNavigatorPositionItem" + Me.BindingNavigatorPositionItem.Size = New System.Drawing.Size(50, 23) + Me.BindingNavigatorPositionItem.Text = "0" + Me.BindingNavigatorPositionItem.ToolTipText = "현재 위치" + ' + 'ToolStrip2 + ' + Me.ToolStrip2.Dock = System.Windows.Forms.DockStyle.Bottom + Me.ToolStrip2.Font = New System.Drawing.Font("돋움", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.ToolStrip2.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToolStripLabel11, Me.lbl_cnt4}) + Me.ToolStrip2.Location = New System.Drawing.Point(0, 522) + Me.ToolStrip2.Name = "ToolStrip2" + Me.ToolStrip2.Size = New System.Drawing.Size(427, 25) + Me.ToolStrip2.TabIndex = 168 + Me.ToolStrip2.Text = "ToolStrip2" + ' + 'ToolStripLabel11 + ' + Me.ToolStripLabel11.Font = New System.Drawing.Font("돋움", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.ToolStripLabel11.Name = "ToolStripLabel11" + Me.ToolStripLabel11.Size = New System.Drawing.Size(105, 22) + Me.ToolStripLabel11.Text = "외벽평균열관류율:" + ' + 'lbl_cnt4 + ' + Me.lbl_cnt4.Font = New System.Drawing.Font("돋움", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.lbl_cnt4.Name = "lbl_cnt4" + Me.lbl_cnt4.Size = New System.Drawing.Size(11, 22) + Me.lbl_cnt4.Text = "0" + ' + 'ToolStrip1 + ' + Me.ToolStrip1.Dock = System.Windows.Forms.DockStyle.Bottom + Me.ToolStrip1.Font = New System.Drawing.Font("돋움", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.ToolStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToolStripLabel1, Me.lbl_cnt1, Me.ToolStripLabel3, Me.lbl_cnt2, Me.ToolStripLabel5, Me.lbl_cnt3}) + Me.ToolStrip1.Location = New System.Drawing.Point(0, 547) + Me.ToolStrip1.Name = "ToolStrip1" + Me.ToolStrip1.Size = New System.Drawing.Size(427, 25) + Me.ToolStrip1.TabIndex = 167 + Me.ToolStrip1.Text = "ToolStrip1" + ' + 'ToolStripLabel1 + ' + Me.ToolStripLabel1.Font = New System.Drawing.Font("돋움", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.ToolStripLabel1.Name = "ToolStripLabel1" + Me.ToolStripLabel1.Size = New System.Drawing.Size(61, 22) + Me.ToolStripLabel1.Text = "벽체 면적:" + ' + 'lbl_cnt1 + ' + Me.lbl_cnt1.Font = New System.Drawing.Font("돋움", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.lbl_cnt1.Name = "lbl_cnt1" + Me.lbl_cnt1.Size = New System.Drawing.Size(11, 22) + Me.lbl_cnt1.Text = "0" + ' + 'ToolStripLabel3 + ' + Me.ToolStripLabel3.Font = New System.Drawing.Font("돋움", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.ToolStripLabel3.Name = "ToolStripLabel3" + Me.ToolStripLabel3.Size = New System.Drawing.Size(77, 22) + Me.ToolStripLabel3.Text = " 창및문 면적:" + ' + 'lbl_cnt2 + ' + Me.lbl_cnt2.Font = New System.Drawing.Font("돋움", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.lbl_cnt2.Name = "lbl_cnt2" + Me.lbl_cnt2.Size = New System.Drawing.Size(11, 22) + Me.lbl_cnt2.Text = "0" + ' + 'ToolStripLabel5 + ' + Me.ToolStripLabel5.Font = New System.Drawing.Font("돋움", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.ToolStripLabel5.Name = "ToolStripLabel5" + Me.ToolStripLabel5.Size = New System.Drawing.Size(89, 22) + Me.ToolStripLabel5.Text = " 창및문 면적비:" + ' + 'lbl_cnt3 + ' + Me.lbl_cnt3.Font = New System.Drawing.Font("돋움", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.lbl_cnt3.Name = "lbl_cnt3" + Me.lbl_cnt3.Size = New System.Drawing.Size(11, 22) + Me.lbl_cnt3.Text = "0" + ' + 'Label7 + ' + Me.Label7.AutoSize = True + Me.Label7.BackColor = System.Drawing.Color.FromArgb(CType(CType(116, Byte), Integer), CType(CType(158, Byte), Integer), CType(CType(209, Byte), Integer)) + Me.Label7.ForeColor = System.Drawing.Color.White + Me.Label7.Location = New System.Drawing.Point(23, 353) + Me.Label7.Name = "Label7" + Me.Label7.Size = New System.Drawing.Size(88, 12) + Me.Label7.TabIndex = 166 + Me.Label7.Text = "블라인드 정보" + ' + 'PictureBox1 + ' + Me.PictureBox1.BackgroundImage = CType(resources.GetObject("PictureBox1.BackgroundImage"), System.Drawing.Image) + Me.PictureBox1.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch + Me.PictureBox1.Location = New System.Drawing.Point(10, 342) + Me.PictureBox1.Name = "PictureBox1" + Me.PictureBox1.Size = New System.Drawing.Size(134, 30) + Me.PictureBox1.TabIndex = 165 + Me.PictureBox1.TabStop = False + ' + 'Label11 + ' + Me.Label11.AutoSize = True + Me.Label11.BackColor = System.Drawing.Color.FromArgb(CType(CType(116, Byte), Integer), CType(CType(158, Byte), Integer), CType(CType(209, Byte), Integer)) + Me.Label11.ForeColor = System.Drawing.Color.White + Me.Label11.Location = New System.Drawing.Point(24, 19) + Me.Label11.Name = "Label11" + Me.Label11.Size = New System.Drawing.Size(70, 12) + Me.Label11.TabIndex = 166 + Me.Label11.Text = "일반데이터" + ' + 'PictureBox4 + ' + Me.PictureBox4.BackgroundImage = CType(resources.GetObject("PictureBox4.BackgroundImage"), System.Drawing.Image) + Me.PictureBox4.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch + Me.PictureBox4.Location = New System.Drawing.Point(11, 8) + Me.PictureBox4.Name = "PictureBox4" + Me.PictureBox4.Size = New System.Drawing.Size(134, 30) + Me.PictureBox4.TabIndex = 165 + Me.PictureBox4.TabStop = False + ' + 'GroupBox5 + ' + Me.GroupBox5.Controls.Add(Label157) + Me.GroupBox5.Controls.Add(Label160) + Me.GroupBox5.Controls.Add(Me.cmb_존분류) + Me.GroupBox5.Controls.Add(Me.cmb_대차존) + Me.GroupBox5.Controls.Add(Me.PictureBox5) + Me.GroupBox5.Location = New System.Drawing.Point(9, 476) + Me.GroupBox5.Name = "GroupBox5" + Me.GroupBox5.Size = New System.Drawing.Size(414, 44) + Me.GroupBox5.TabIndex = 164 + Me.GroupBox5.TabStop = False + ' + 'cmb_존분류 + ' + Me.cmb_존분류.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList + Me.cmb_존분류.Font = New System.Drawing.Font("돋움", 8.999999!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.cmb_존분류.FormattingEnabled = True + Me.cmb_존분류.Location = New System.Drawing.Point(58, 11) + Me.cmb_존분류.Name = "cmb_존분류" + Me.cmb_존분류.NectControl = Nothing + Me.cmb_존분류.Size = New System.Drawing.Size(240, 20) + Me.cmb_존분류.TabIndex = 0 + ' + 'cmb_대차존 + ' + Me.cmb_대차존.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList + Me.cmb_대차존.Font = New System.Drawing.Font("돋움", 8.999999!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.cmb_대차존.FormattingEnabled = True + Me.cmb_대차존.Location = New System.Drawing.Point(351, 11) + Me.cmb_대차존.Name = "cmb_대차존" + Me.cmb_대차존.NectControl = Nothing + Me.cmb_대차존.Size = New System.Drawing.Size(51, 20) + Me.cmb_대차존.TabIndex = 1 + Me.cmb_대차존.Visible = False + ' + 'PictureBox5 + ' + Me.PictureBox5.BackColor = System.Drawing.Color.FromArgb(CType(CType(219, Byte), Integer), CType(CType(221, Byte), Integer), CType(CType(223, Byte), Integer)) + Me.PictureBox5.Location = New System.Drawing.Point(2, -1) + Me.PictureBox5.Name = "PictureBox5" + Me.PictureBox5.Size = New System.Drawing.Size(407, 43) + Me.PictureBox5.TabIndex = 11 + Me.PictureBox5.TabStop = False + ' + 'GroupBox4 + ' + Me.GroupBox4.Controls.Add(Me.cmb_블라인드종류) + Me.GroupBox4.Controls.Add(Me.cmb_블라인드색상) + Me.GroupBox4.Controls.Add(Me.Label6) + Me.GroupBox4.Controls.Add(Me.Label5) + Me.GroupBox4.Controls.Add(Me.PictureBox7) + Me.GroupBox4.Location = New System.Drawing.Point(224, 365) + Me.GroupBox4.Name = "GroupBox4" + Me.GroupBox4.Size = New System.Drawing.Size(198, 107) + Me.GroupBox4.TabIndex = 163 + Me.GroupBox4.TabStop = False + ' + 'cmb_블라인드종류 + ' + Me.cmb_블라인드종류.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList + Me.cmb_블라인드종류.Font = New System.Drawing.Font("돋움", 8.999999!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.cmb_블라인드종류.FormattingEnabled = True + Me.cmb_블라인드종류.Location = New System.Drawing.Point(89, 17) + Me.cmb_블라인드종류.Name = "cmb_블라인드종류" + Me.cmb_블라인드종류.NectControl = Nothing + Me.cmb_블라인드종류.Size = New System.Drawing.Size(101, 20) + Me.cmb_블라인드종류.TabIndex = 3 + ' + 'cmb_블라인드색상 + ' + Me.cmb_블라인드색상.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList + Me.cmb_블라인드색상.Font = New System.Drawing.Font("돋움", 8.999999!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.cmb_블라인드색상.FormattingEnabled = True + Me.cmb_블라인드색상.Location = New System.Drawing.Point(89, 44) + Me.cmb_블라인드색상.Name = "cmb_블라인드색상" + Me.cmb_블라인드색상.NectControl = Nothing + Me.cmb_블라인드색상.Size = New System.Drawing.Size(101, 20) + Me.cmb_블라인드색상.TabIndex = 4 + ' + 'Label6 + ' + Me.Label6.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _ + Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles) + Me.Label6.AutoSize = True + Me.Label6.BackColor = System.Drawing.Color.FromArgb(CType(CType(243, Byte), Integer), CType(CType(244, Byte), Integer), CType(CType(246, Byte), Integer)) + Me.Label6.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Me.Label6.Location = New System.Drawing.Point(36, 48) + Me.Label6.Name = "Label6" + Me.Label6.Size = New System.Drawing.Size(51, 12) + Me.Label6.TabIndex = 0 + Me.Label6.Text = "색 상:" + Me.Label6.TextAlign = System.Drawing.ContentAlignment.MiddleCenter + ' + 'Label5 + ' + Me.Label5.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _ + Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles) + Me.Label5.AutoSize = True + Me.Label5.BackColor = System.Drawing.Color.FromArgb(CType(CType(243, Byte), Integer), CType(CType(244, Byte), Integer), CType(CType(246, Byte), Integer)) + Me.Label5.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Me.Label5.Location = New System.Drawing.Point(7, 20) + Me.Label5.Name = "Label5" + Me.Label5.Size = New System.Drawing.Size(80, 12) + Me.Label5.TabIndex = 0 + Me.Label5.Text = "빛투과 종류:" + Me.Label5.TextAlign = System.Drawing.ContentAlignment.MiddleCenter + ' + 'PictureBox7 + ' + Me.PictureBox7.BackColor = System.Drawing.Color.FromArgb(CType(CType(243, Byte), Integer), CType(CType(244, Byte), Integer), CType(CType(246, Byte), Integer)) + Me.PictureBox7.Location = New System.Drawing.Point(2, 9) + Me.PictureBox7.Name = "PictureBox7" + Me.PictureBox7.Size = New System.Drawing.Size(191, 96) + Me.PictureBox7.TabIndex = 3 + Me.PictureBox7.TabStop = False + ' + 'GroupBox3 + ' + Me.GroupBox3.Controls.Add(Me.cmb_블라인드설치유무) + Me.GroupBox3.Controls.Add(Me.cmb_블라인드각도) + Me.GroupBox3.Controls.Add(Me.Label4) + Me.GroupBox3.Controls.Add(Me.cmb_블라인드위치) + Me.GroupBox3.Controls.Add(Me.Label3) + Me.GroupBox3.Controls.Add(Me.Label2) + Me.GroupBox3.Controls.Add(Me.PictureBox6) + Me.GroupBox3.Location = New System.Drawing.Point(8, 366) + Me.GroupBox3.Name = "GroupBox3" + Me.GroupBox3.Size = New System.Drawing.Size(214, 107) + Me.GroupBox3.TabIndex = 163 + Me.GroupBox3.TabStop = False + ' + 'cmb_블라인드설치유무 + ' + Me.cmb_블라인드설치유무.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList + Me.cmb_블라인드설치유무.Font = New System.Drawing.Font("돋움", 8.999999!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.cmb_블라인드설치유무.FormattingEnabled = True + Me.cmb_블라인드설치유무.Location = New System.Drawing.Point(73, 15) + Me.cmb_블라인드설치유무.Name = "cmb_블라인드설치유무" + Me.cmb_블라인드설치유무.NectControl = Nothing + Me.cmb_블라인드설치유무.Size = New System.Drawing.Size(132, 20) + Me.cmb_블라인드설치유무.TabIndex = 0 + ' + 'cmb_블라인드각도 + ' + Me.cmb_블라인드각도.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList + Me.cmb_블라인드각도.Font = New System.Drawing.Font("돋움", 8.999999!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.cmb_블라인드각도.FormattingEnabled = True + Me.cmb_블라인드각도.Location = New System.Drawing.Point(73, 73) + Me.cmb_블라인드각도.Name = "cmb_블라인드각도" + Me.cmb_블라인드각도.NectControl = Nothing + Me.cmb_블라인드각도.Size = New System.Drawing.Size(132, 20) + Me.cmb_블라인드각도.TabIndex = 2 + ' + 'Label4 + ' + Me.Label4.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _ + Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles) + Me.Label4.AutoSize = True + Me.Label4.BackColor = System.Drawing.Color.FromArgb(CType(CType(243, Byte), Integer), CType(CType(244, Byte), Integer), CType(CType(246, Byte), Integer)) + Me.Label4.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Me.Label4.Location = New System.Drawing.Point(20, 75) + Me.Label4.Name = "Label4" + Me.Label4.Size = New System.Drawing.Size(51, 12) + Me.Label4.TabIndex = 0 + Me.Label4.Text = "각 도:" + Me.Label4.TextAlign = System.Drawing.ContentAlignment.MiddleCenter + ' + 'cmb_블라인드위치 + ' + Me.cmb_블라인드위치.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList + Me.cmb_블라인드위치.Font = New System.Drawing.Font("돋움", 8.999999!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.cmb_블라인드위치.FormattingEnabled = True + Me.cmb_블라인드위치.Location = New System.Drawing.Point(73, 44) + Me.cmb_블라인드위치.Name = "cmb_블라인드위치" + Me.cmb_블라인드위치.NectControl = Nothing + Me.cmb_블라인드위치.Size = New System.Drawing.Size(132, 20) + Me.cmb_블라인드위치.TabIndex = 1 + ' + 'Label3 + ' + Me.Label3.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _ + Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles) + Me.Label3.AutoSize = True + Me.Label3.BackColor = System.Drawing.Color.FromArgb(CType(CType(243, Byte), Integer), CType(CType(244, Byte), Integer), CType(CType(246, Byte), Integer)) + Me.Label3.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Me.Label3.Location = New System.Drawing.Point(20, 48) + Me.Label3.Name = "Label3" + Me.Label3.Size = New System.Drawing.Size(51, 12) + Me.Label3.TabIndex = 0 + Me.Label3.Text = "위 치:" + Me.Label3.TextAlign = System.Drawing.ContentAlignment.MiddleCenter + ' + 'Label2 + ' + Me.Label2.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _ + Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles) + Me.Label2.AutoSize = True + Me.Label2.BackColor = System.Drawing.Color.FromArgb(CType(CType(243, Byte), Integer), CType(CType(244, Byte), Integer), CType(CType(246, Byte), Integer)) + Me.Label2.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Me.Label2.Location = New System.Drawing.Point(9, 20) + Me.Label2.Name = "Label2" + Me.Label2.Size = New System.Drawing.Size(62, 12) + Me.Label2.TabIndex = 0 + Me.Label2.Text = "설치유무:" + Me.Label2.TextAlign = System.Drawing.ContentAlignment.MiddleCenter + ' + 'PictureBox6 + ' + Me.PictureBox6.BackColor = System.Drawing.Color.FromArgb(CType(CType(243, Byte), Integer), CType(CType(244, Byte), Integer), CType(CType(246, Byte), Integer)) + Me.PictureBox6.Location = New System.Drawing.Point(3, 9) + Me.PictureBox6.Name = "PictureBox6" + Me.PictureBox6.Size = New System.Drawing.Size(208, 96) + Me.PictureBox6.TabIndex = 3 + Me.PictureBox6.TabStop = False + ' + 'GroupBox2 + ' + Me.GroupBox2.Controls.Add(Me.MyTb6) + Me.GroupBox2.Controls.Add(Me.Label13) + Me.GroupBox2.Controls.Add(Me.MyTb4) + Me.GroupBox2.Controls.Add(Me.Label10) + Me.GroupBox2.Controls.Add(Me.MyTb7) + Me.GroupBox2.Controls.Add(Me.Label12) + Me.GroupBox2.Controls.Add(Me.MyTb5) + Me.GroupBox2.Controls.Add(Me.Label9) + Me.GroupBox2.Controls.Add(Label148) + Me.GroupBox2.Controls.Add(Me.tb_04) + Me.GroupBox2.Controls.Add(Label149) + Me.GroupBox2.Controls.Add(Me.tb_06) + Me.GroupBox2.Controls.Add(Label151) + Me.GroupBox2.Controls.Add(Me.tb_05) + Me.GroupBox2.Controls.Add(Me.rad_수평직입력) + Me.GroupBox2.Controls.Add(Me.rad_차양각입력) + Me.GroupBox2.Controls.Add(Me.Label1) + Me.GroupBox2.Controls.Add(Me.MyTb2) + Me.GroupBox2.Controls.Add(Me.Label8) + Me.GroupBox2.Controls.Add(Me.MyTb3) + Me.GroupBox2.Controls.Add(Me.PictureBox9) + Me.GroupBox2.Controls.Add(Me.PictureBox10) + Me.GroupBox2.Controls.Add(Me.PictureBox3) + Me.GroupBox2.Location = New System.Drawing.Point(9, 208) + Me.GroupBox2.Name = "GroupBox2" + Me.GroupBox2.Size = New System.Drawing.Size(414, 130) + Me.GroupBox2.TabIndex = 162 + Me.GroupBox2.TabStop = False + ' + 'MyTb6 + ' + Me.MyTb6.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bs, "수직중심길이", True)) + Me.MyTb6.Font = New System.Drawing.Font("돋움", 8.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.MyTb6.Location = New System.Drawing.Point(359, 99) + Me.MyTb6.Name = "MyTb6" + Me.MyTb6.NectControl = Nothing + Me.MyTb6.Size = New System.Drawing.Size(45, 20) + Me.MyTb6.TabIndex = 175 + Me.MyTb6.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + ' + 'Label13 + ' + Me.Label13.AutoSize = True + Me.Label13.BackColor = System.Drawing.SystemColors.Control + Me.Label13.Font = New System.Drawing.Font("돋움", 8.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.Label13.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Me.Label13.Location = New System.Drawing.Point(275, 102) + Me.Label13.Name = "Label13" + Me.Label13.Size = New System.Drawing.Size(81, 11) + Me.Label13.TabIndex = 177 + Me.Label13.Text = "수평중심거리:" + Me.Label13.TextAlign = System.Drawing.ContentAlignment.MiddleRight + ' + 'MyTb4 + ' + Me.MyTb4.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bs, "수직길이", True)) + Me.MyTb4.Font = New System.Drawing.Font("돋움", 8.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.MyTb4.Location = New System.Drawing.Point(230, 99) + Me.MyTb4.Name = "MyTb4" + Me.MyTb4.NectControl = Nothing + Me.MyTb4.Size = New System.Drawing.Size(44, 20) + Me.MyTb4.TabIndex = 171 + Me.MyTb4.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + ' + 'Label10 + ' + Me.Label10.AutoSize = True + Me.Label10.BackColor = System.Drawing.SystemColors.Control + Me.Label10.Font = New System.Drawing.Font("돋움", 8.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.Label10.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Me.Label10.Location = New System.Drawing.Point(160, 102) + Me.Label10.Name = "Label10" + Me.Label10.Size = New System.Drawing.Size(69, 11) + Me.Label10.TabIndex = 173 + Me.Label10.Text = "수직차양폭:" + Me.Label10.TextAlign = System.Drawing.ContentAlignment.MiddleRight + ' + 'MyTb7 + ' + Me.MyTb7.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bs, "수평중심길이", True)) + Me.MyTb7.Font = New System.Drawing.Font("돋움", 8.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.MyTb7.Location = New System.Drawing.Point(359, 66) + Me.MyTb7.Name = "MyTb7" + Me.MyTb7.NectControl = Nothing + Me.MyTb7.Size = New System.Drawing.Size(45, 20) + Me.MyTb7.TabIndex = 174 + Me.MyTb7.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + ' + 'Label12 + ' + Me.Label12.AutoSize = True + Me.Label12.BackColor = System.Drawing.SystemColors.Control + Me.Label12.Font = New System.Drawing.Font("돋움", 8.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.Label12.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Me.Label12.Location = New System.Drawing.Point(275, 69) + Me.Label12.Name = "Label12" + Me.Label12.Size = New System.Drawing.Size(81, 11) + Me.Label12.TabIndex = 176 + Me.Label12.Text = "수직중심거리:" + Me.Label12.TextAlign = System.Drawing.ContentAlignment.MiddleRight + ' + 'MyTb5 + ' + Me.MyTb5.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bs, "수평길이", True)) + Me.MyTb5.Font = New System.Drawing.Font("돋움", 8.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.MyTb5.Location = New System.Drawing.Point(230, 66) + Me.MyTb5.Name = "MyTb5" + Me.MyTb5.NectControl = Nothing + Me.MyTb5.Size = New System.Drawing.Size(44, 20) + Me.MyTb5.TabIndex = 170 + Me.MyTb5.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + ' + 'Label9 + ' + Me.Label9.AutoSize = True + Me.Label9.BackColor = System.Drawing.SystemColors.Control + Me.Label9.Font = New System.Drawing.Font("돋움", 8.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.Label9.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Me.Label9.Location = New System.Drawing.Point(160, 69) + Me.Label9.Name = "Label9" + Me.Label9.Size = New System.Drawing.Size(69, 11) + Me.Label9.TabIndex = 172 + Me.Label9.Text = "수평차양폭:" + Me.Label9.TextAlign = System.Drawing.ContentAlignment.MiddleRight + ' + 'tb_04 + ' + Me.tb_04.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bs, "투과율", True)) + Me.tb_04.Font = New System.Drawing.Font("돋움", 8.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.tb_04.Location = New System.Drawing.Point(109, 15) + Me.tb_04.Name = "tb_04" + Me.tb_04.NectControl = Nothing + Me.tb_04.Size = New System.Drawing.Size(55, 20) + Me.tb_04.TabIndex = 4 + Me.tb_04.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + ' + 'tb_06 + ' + Me.tb_06.BackColor = System.Drawing.Color.LightGray + Me.tb_06.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.tb_06.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bs, "수직차양각", True)) + Me.tb_06.Font = New System.Drawing.Font("돋움", 8.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.tb_06.Location = New System.Drawing.Point(368, 15) + Me.tb_06.Name = "tb_06" + Me.tb_06.NectControl = Nothing + Me.tb_06.ReadOnly = True + Me.tb_06.Size = New System.Drawing.Size(37, 20) + Me.tb_06.TabIndex = 6 + Me.tb_06.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + ' + 'tb_05 + ' + Me.tb_05.BackColor = System.Drawing.Color.LightGray + Me.tb_05.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.tb_05.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bs, "수평차양각", True)) + Me.tb_05.Font = New System.Drawing.Font("돋움", 8.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.tb_05.Location = New System.Drawing.Point(250, 15) + Me.tb_05.Name = "tb_05" + Me.tb_05.NectControl = Nothing + Me.tb_05.ReadOnly = True + Me.tb_05.Size = New System.Drawing.Size(37, 20) + Me.tb_05.TabIndex = 5 + Me.tb_05.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + ' + 'rad_수평직입력 + ' + Me.rad_수평직입력.AutoSize = True + Me.rad_수평직입력.BackColor = System.Drawing.Color.FromArgb(CType(CType(219, Byte), Integer), CType(CType(221, Byte), Integer), CType(CType(223, Byte), Integer)) + Me.rad_수평직입력.Font = New System.Drawing.Font("돋움", 8.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.rad_수평직입력.Location = New System.Drawing.Point(157, 44) + Me.rad_수평직입력.Name = "rad_수평직입력" + Me.rad_수평직입력.Size = New System.Drawing.Size(128, 15) + Me.rad_수평직입력.TabIndex = 169 + Me.rad_수평직입력.TabStop = True + Me.rad_수평직입력.Text = "수평,수직거리 입력" + Me.rad_수평직입력.UseVisualStyleBackColor = False + ' + 'rad_차양각입력 + ' + Me.rad_차양각입력.AutoSize = True + Me.rad_차양각입력.BackColor = System.Drawing.Color.FromArgb(CType(CType(219, Byte), Integer), CType(CType(221, Byte), Integer), CType(CType(223, Byte), Integer)) + Me.rad_차양각입력.Font = New System.Drawing.Font("돋움", 8.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.rad_차양각입력.Location = New System.Drawing.Point(12, 44) + Me.rad_차양각입력.Name = "rad_차양각입력" + Me.rad_차양각입력.Size = New System.Drawing.Size(83, 15) + Me.rad_차양각입력.TabIndex = 168 + Me.rad_차양각입력.TabStop = True + Me.rad_차양각입력.Text = "차양각입력" + Me.rad_차양각입력.UseVisualStyleBackColor = False + ' + 'Label1 + ' + Me.Label1.AutoSize = True + Me.Label1.BackColor = System.Drawing.Color.FromArgb(CType(CType(219, Byte), Integer), CType(CType(221, Byte), Integer), CType(CType(223, Byte), Integer)) + Me.Label1.Font = New System.Drawing.Font("돋움", 8.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.Label1.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Me.Label1.Location = New System.Drawing.Point(9, 69) + Me.Label1.Name = "Label1" + Me.Label1.Size = New System.Drawing.Size(107, 11) + Me.Label1.TabIndex = 21 + Me.Label1.Text = "수평차양의각α[o]:" + Me.Label1.TextAlign = System.Drawing.ContentAlignment.MiddleRight + ' + 'MyTb2 + ' + Me.MyTb2.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bs, "수직입력각", True)) + Me.MyTb2.Font = New System.Drawing.Font("돋움", 8.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.MyTb2.Location = New System.Drawing.Point(117, 99) + Me.MyTb2.Name = "MyTb2" + Me.MyTb2.NectControl = Nothing + Me.MyTb2.Size = New System.Drawing.Size(35, 20) + Me.MyTb2.TabIndex = 20 + Me.MyTb2.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + ' + 'Label8 + ' + Me.Label8.AutoSize = True + Me.Label8.BackColor = System.Drawing.Color.FromArgb(CType(CType(219, Byte), Integer), CType(CType(221, Byte), Integer), CType(CType(223, Byte), Integer)) + Me.Label8.Font = New System.Drawing.Font("돋움", 8.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.Label8.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Me.Label8.Location = New System.Drawing.Point(9, 102) + Me.Label8.Name = "Label8" + Me.Label8.Size = New System.Drawing.Size(106, 11) + Me.Label8.TabIndex = 22 + Me.Label8.Text = "수직차양의각β[o]:" + Me.Label8.TextAlign = System.Drawing.ContentAlignment.MiddleRight + ' + 'MyTb3 + ' + Me.MyTb3.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bs, "수평입력각", True)) + Me.MyTb3.Font = New System.Drawing.Font("돋움", 8.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.MyTb3.Location = New System.Drawing.Point(117, 66) + Me.MyTb3.Name = "MyTb3" + Me.MyTb3.NectControl = Nothing + Me.MyTb3.Size = New System.Drawing.Size(35, 20) + Me.MyTb3.TabIndex = 19 + Me.MyTb3.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + ' + 'PictureBox9 + ' + Me.PictureBox9.BackColor = System.Drawing.SystemColors.Control + Me.PictureBox9.Location = New System.Drawing.Point(157, 61) + Me.PictureBox9.Name = "PictureBox9" + Me.PictureBox9.Size = New System.Drawing.Size(251, 30) + Me.PictureBox9.TabIndex = 168 + Me.PictureBox9.TabStop = False + ' + 'PictureBox10 + ' + Me.PictureBox10.BackColor = System.Drawing.SystemColors.Control + Me.PictureBox10.Location = New System.Drawing.Point(157, 95) + Me.PictureBox10.Name = "PictureBox10" + Me.PictureBox10.Size = New System.Drawing.Size(251, 29) + Me.PictureBox10.TabIndex = 168 + Me.PictureBox10.TabStop = False + ' + 'PictureBox3 + ' + Me.PictureBox3.BackColor = System.Drawing.Color.FromArgb(CType(CType(219, Byte), Integer), CType(CType(221, Byte), Integer), CType(CType(223, Byte), Integer)) + Me.PictureBox3.Location = New System.Drawing.Point(3, 6) + Me.PictureBox3.Name = "PictureBox3" + Me.PictureBox3.Size = New System.Drawing.Size(407, 121) + Me.PictureBox3.TabIndex = 11 + Me.PictureBox3.TabStop = False + ' + 'GroupBox1 + ' + Me.GroupBox1.Controls.Add(Me.rad7) + Me.GroupBox1.Controls.Add(Me.rad6) + Me.GroupBox1.Controls.Add(Me.rad5) + Me.GroupBox1.Controls.Add(Me.rad4) + Me.GroupBox1.Controls.Add(Me.rad3) + Me.GroupBox1.Controls.Add(Me.rad2) + Me.GroupBox1.Controls.Add(Me.rad1) + Me.GroupBox1.Controls.Add(Me.rad8) + Me.GroupBox1.Controls.Add(Me.PictureBox8) + Me.GroupBox1.Controls.Add(Me.rad0) + Me.GroupBox1.Controls.Add(Me.rad10) + Me.GroupBox1.Controls.Add(Me.rad9) + Me.GroupBox1.Controls.Add(Me.MyTb1) + Me.GroupBox1.Controls.Add(Me.cmb_열관류율) + Me.GroupBox1.Controls.Add(Label144) + Me.GroupBox1.Controls.Add(Me.tb_03) + Me.GroupBox1.Controls.Add(Label145) + Me.GroupBox1.Controls.Add(Label146) + Me.GroupBox1.Controls.Add(Me.cmb_건축부위방식) + Me.GroupBox1.Controls.Add(Label147) + Me.GroupBox1.Controls.Add(Me.cmb_방위) + Me.GroupBox1.Controls.Add(Me.tb_02) + Me.GroupBox1.Controls.Add(Me.PictureBox2) + Me.GroupBox1.Location = New System.Drawing.Point(10, 33) + Me.GroupBox1.Name = "GroupBox1" + Me.GroupBox1.Size = New System.Drawing.Size(414, 172) + Me.GroupBox1.TabIndex = 162 + Me.GroupBox1.TabStop = False + ' + 'rad7 + ' + Me.rad7.AutoSize = True + Me.rad7.BackColor = System.Drawing.Color.FromArgb(CType(CType(219, Byte), Integer), CType(CType(221, Byte), Integer), CType(CType(223, Byte), Integer)) + Me.rad7.Location = New System.Drawing.Point(343, 51) + Me.rad7.Name = "rad7" + Me.rad7.Size = New System.Drawing.Size(49, 16) + Me.rad7.TabIndex = 14 + Me.rad7.TabStop = True + Me.rad7.Text = "북동" + Me.rad7.UseVisualStyleBackColor = False + ' + 'rad6 + ' + Me.rad6.AutoSize = True + Me.rad6.BackColor = System.Drawing.Color.FromArgb(CType(CType(219, Byte), Integer), CType(CType(221, Byte), Integer), CType(CType(223, Byte), Integer)) + Me.rad6.Location = New System.Drawing.Point(354, 77) + Me.rad6.Name = "rad6" + Me.rad6.Size = New System.Drawing.Size(36, 16) + Me.rad6.TabIndex = 14 + Me.rad6.TabStop = True + Me.rad6.Text = "동" + Me.rad6.UseVisualStyleBackColor = False + ' + 'rad5 + ' + Me.rad5.AutoSize = True + Me.rad5.BackColor = System.Drawing.Color.FromArgb(CType(CType(219, Byte), Integer), CType(CType(221, Byte), Integer), CType(CType(223, Byte), Integer)) + Me.rad5.Location = New System.Drawing.Point(343, 103) + Me.rad5.Name = "rad5" + Me.rad5.Size = New System.Drawing.Size(49, 16) + Me.rad5.TabIndex = 14 + Me.rad5.TabStop = True + Me.rad5.Text = "남동" + Me.rad5.UseVisualStyleBackColor = False + ' + 'rad4 + ' + Me.rad4.AutoSize = True + Me.rad4.BackColor = System.Drawing.Color.FromArgb(CType(CType(219, Byte), Integer), CType(CType(221, Byte), Integer), CType(CType(223, Byte), Integer)) + Me.rad4.Location = New System.Drawing.Point(313, 116) + Me.rad4.Name = "rad4" + Me.rad4.Size = New System.Drawing.Size(36, 16) + Me.rad4.TabIndex = 14 + Me.rad4.TabStop = True + Me.rad4.Text = "남" + Me.rad4.UseVisualStyleBackColor = False + ' + 'rad3 + ' + Me.rad3.AutoSize = True + Me.rad3.BackColor = System.Drawing.Color.FromArgb(CType(CType(219, Byte), Integer), CType(CType(221, Byte), Integer), CType(CType(223, Byte), Integer)) + Me.rad3.Location = New System.Drawing.Point(251, 103) + Me.rad3.Name = "rad3" + Me.rad3.RightToLeft = System.Windows.Forms.RightToLeft.Yes + Me.rad3.Size = New System.Drawing.Size(49, 16) + Me.rad3.TabIndex = 14 + Me.rad3.TabStop = True + Me.rad3.Text = "남서" + Me.rad3.UseVisualStyleBackColor = False + ' + 'rad2 + ' + Me.rad2.AutoSize = True + Me.rad2.BackColor = System.Drawing.Color.FromArgb(CType(CType(219, Byte), Integer), CType(CType(221, Byte), Integer), CType(CType(223, Byte), Integer)) + Me.rad2.Location = New System.Drawing.Point(251, 77) + Me.rad2.Name = "rad2" + Me.rad2.RightToLeft = System.Windows.Forms.RightToLeft.Yes + Me.rad2.Size = New System.Drawing.Size(36, 16) + Me.rad2.TabIndex = 14 + Me.rad2.TabStop = True + Me.rad2.Text = "서" + Me.rad2.UseVisualStyleBackColor = False + ' + 'rad1 + ' + Me.rad1.AutoSize = True + Me.rad1.BackColor = System.Drawing.Color.FromArgb(CType(CType(219, Byte), Integer), CType(CType(221, Byte), Integer), CType(CType(223, Byte), Integer)) + Me.rad1.Location = New System.Drawing.Point(250, 51) + Me.rad1.Name = "rad1" + Me.rad1.RightToLeft = System.Windows.Forms.RightToLeft.Yes + Me.rad1.Size = New System.Drawing.Size(49, 16) + Me.rad1.TabIndex = 14 + Me.rad1.TabStop = True + Me.rad1.Text = "북서" + Me.rad1.UseVisualStyleBackColor = False + ' + 'rad8 + ' + Me.rad8.AutoSize = True + Me.rad8.BackColor = System.Drawing.Color.FromArgb(CType(CType(219, Byte), Integer), CType(CType(221, Byte), Integer), CType(CType(223, Byte), Integer)) + Me.rad8.Location = New System.Drawing.Point(313, 38) + Me.rad8.Name = "rad8" + Me.rad8.Size = New System.Drawing.Size(36, 16) + Me.rad8.TabIndex = 14 + Me.rad8.TabStop = True + Me.rad8.Text = "북" + Me.rad8.UseVisualStyleBackColor = False + ' + 'PictureBox8 + ' + Me.PictureBox8.BackColor = System.Drawing.Color.FromArgb(CType(CType(219, Byte), Integer), CType(CType(221, Byte), Integer), CType(CType(223, Byte), Integer)) + Me.PictureBox8.Image = Global.Eco2Ar.My.Resources.Resources.방위2 + Me.PictureBox8.Location = New System.Drawing.Point(290, 56) + Me.PictureBox8.Name = "PictureBox8" + Me.PictureBox8.Size = New System.Drawing.Size(60, 60) + Me.PictureBox8.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage + Me.PictureBox8.TabIndex = 15 + Me.PictureBox8.TabStop = False + ' + 'rad0 + ' + Me.rad0.AutoSize = True + Me.rad0.BackColor = System.Drawing.Color.FromArgb(CType(CType(219, Byte), Integer), CType(CType(221, Byte), Integer), CType(CType(223, Byte), Integer)) + Me.rad0.Location = New System.Drawing.Point(248, 20) + Me.rad0.Name = "rad0" + Me.rad0.Size = New System.Drawing.Size(49, 16) + Me.rad0.TabIndex = 14 + Me.rad0.TabStop = True + Me.rad0.Text = "없음" + Me.rad0.UseVisualStyleBackColor = False + ' + 'rad10 + ' + Me.rad10.AutoSize = True + Me.rad10.BackColor = System.Drawing.Color.FromArgb(CType(CType(219, Byte), Integer), CType(CType(221, Byte), Integer), CType(CType(223, Byte), Integer)) + Me.rad10.Location = New System.Drawing.Point(322, 141) + Me.rad10.Name = "rad10" + Me.rad10.Size = New System.Drawing.Size(75, 16) + Me.rad10.TabIndex = 14 + Me.rad10.TabStop = True + Me.rad10.Text = "일사없음" + Me.rad10.UseVisualStyleBackColor = False + ' + 'rad9 + ' + Me.rad9.AutoSize = True + Me.rad9.BackColor = System.Drawing.Color.FromArgb(CType(CType(219, Byte), Integer), CType(CType(221, Byte), Integer), CType(CType(223, Byte), Integer)) + Me.rad9.Location = New System.Drawing.Point(251, 141) + Me.rad9.Name = "rad9" + Me.rad9.Size = New System.Drawing.Size(49, 16) + Me.rad9.TabIndex = 14 + Me.rad9.TabStop = True + Me.rad9.Text = "수평" + Me.rad9.UseVisualStyleBackColor = False + ' + 'MyTb1 + ' + Me.MyTb1.AcceptsReturn = True + Me.MyTb1.BackColor = System.Drawing.Color.LightGray + Me.MyTb1.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.MyTb1.Font = New System.Drawing.Font("돋움", 8.999999!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.MyTb1.Location = New System.Drawing.Point(141, 141) + Me.MyTb1.Name = "MyTb1" + Me.MyTb1.NectControl = Nothing + Me.MyTb1.Size = New System.Drawing.Size(100, 21) + Me.MyTb1.TabIndex = 13 + Me.MyTb1.TextAlign = System.Windows.Forms.HorizontalAlignment.Right + Me.MyTb1.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + ' + 'cmb_열관류율 + ' + Me.cmb_열관류율.DisplayMember = "code" + Me.cmb_열관류율.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList + Me.cmb_열관류율.Font = New System.Drawing.Font("돋움", 8.999999!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.cmb_열관류율.FormattingEnabled = True + Me.cmb_열관류율.Location = New System.Drawing.Point(15, 140) + Me.cmb_열관류율.Name = "cmb_열관류율" + Me.cmb_열관류율.NectControl = Nothing + Me.cmb_열관류율.Size = New System.Drawing.Size(102, 20) + Me.cmb_열관류율.TabIndex = 12 + Me.cmb_열관류율.ValueMember = "code" + ' + 'tb_03 + ' + Me.tb_03.AcceptsReturn = True + Me.tb_03.BackColor = System.Drawing.Color.White + Me.tb_03.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bs, "열관류율", True)) + Me.tb_03.Font = New System.Drawing.Font("돋움", 8.999999!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.tb_03.Location = New System.Drawing.Point(141, 114) + Me.tb_03.Name = "tb_03" + Me.tb_03.NectControl = Nothing + Me.tb_03.Size = New System.Drawing.Size(100, 21) + Me.tb_03.TabIndex = 3 + Me.tb_03.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + ' + 'cmb_건축부위방식 + ' + Me.cmb_건축부위방식.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList + Me.cmb_건축부위방식.Font = New System.Drawing.Font("돋움", 8.999999!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.cmb_건축부위방식.FormattingEnabled = True + Me.cmb_건축부위방식.Location = New System.Drawing.Point(141, 25) + Me.cmb_건축부위방식.Name = "cmb_건축부위방식" + Me.cmb_건축부위방식.NectControl = Nothing + Me.cmb_건축부위방식.Size = New System.Drawing.Size(100, 20) + Me.cmb_건축부위방식.TabIndex = 0 + ' + 'cmb_방위 + ' + Me.cmb_방위.DisplayMember = "code" + Me.cmb_방위.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList + Me.cmb_방위.Font = New System.Drawing.Font("돋움", 8.999999!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.cmb_방위.FormattingEnabled = True + Me.cmb_방위.Location = New System.Drawing.Point(141, 54) + Me.cmb_방위.Name = "cmb_방위" + Me.cmb_방위.NectControl = Nothing + Me.cmb_방위.Size = New System.Drawing.Size(100, 20) + Me.cmb_방위.TabIndex = 1 + Me.cmb_방위.ValueMember = "code" + ' + 'tb_02 + ' + Me.tb_02.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bs, "건축부위면적", True)) + Me.tb_02.Font = New System.Drawing.Font("돋움", 8.999999!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.tb_02.Location = New System.Drawing.Point(141, 84) + Me.tb_02.Name = "tb_02" + Me.tb_02.NectControl = Nothing + Me.tb_02.Size = New System.Drawing.Size(100, 21) + Me.tb_02.TabIndex = 2 + Me.tb_02.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + ' + 'PictureBox2 + ' + Me.PictureBox2.BackColor = System.Drawing.Color.FromArgb(CType(CType(219, Byte), Integer), CType(CType(221, Byte), Integer), CType(CType(223, Byte), Integer)) + Me.PictureBox2.Location = New System.Drawing.Point(2, 9) + Me.PictureBox2.Name = "PictureBox2" + Me.PictureBox2.Size = New System.Drawing.Size(407, 160) + Me.PictureBox2.TabIndex = 11 + Me.PictureBox2.TabStop = False + ' + 'sortkey + ' + Me.sortkey.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.None + Me.sortkey.DataPropertyName = "sortkey" + DataGridViewCellStyle3.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleCenter + Me.sortkey.DefaultCellStyle = DataGridViewCellStyle3 + Me.sortkey.HeaderText = "▼" + Me.sortkey.Name = "sortkey" + Me.sortkey.SortMode = System.Windows.Forms.DataGridViewColumnSortMode.NotSortable + Me.sortkey.Width = 30 + ' + 'Column1 + ' + Me.Column1.DataPropertyName = "code" + Me.Column1.HeaderText = "코드" + Me.Column1.Name = "Column1" + Me.Column1.Visible = False + Me.Column1.Width = 52 + ' + '존분류 + ' + Me.존분류.DataPropertyName = "존분류" + Me.존분류.HeaderText = "존분류" + Me.존분류.Name = "존분류" + Me.존분류.SortMode = System.Windows.Forms.DataGridViewColumnSortMode.NotSortable + Me.존분류.Visible = False + Me.존분류.Width = 45 + ' + '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.NotSortable + ' + 'DataGridViewTextBoxColumn2 + ' + Me.DataGridViewTextBoxColumn2.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.Fill + Me.DataGridViewTextBoxColumn2.DataPropertyName = "설명" + Me.DataGridViewTextBoxColumn2.HeaderText = "존" + Me.DataGridViewTextBoxColumn2.Name = "DataGridViewTextBoxColumn2" + Me.DataGridViewTextBoxColumn2.ReadOnly = True + Me.DataGridViewTextBoxColumn2.SortMode = System.Windows.Forms.DataGridViewColumnSortMode.NotSortable + ' + 'Frm_V20091231_Myoun + ' + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.None + Me.ClientSize = New System.Drawing.Size(818, 574) + Me.ControlBox = False + Me.Controls.Add(Me.SplitContainer1) + Me.Font = New System.Drawing.Font("돋움", 8.999999!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.ImeMode = System.Windows.Forms.ImeMode.Hangul + Me.KeyPreview = True + Me.Name = "Frm_V20091231_Myoun" + Me.ShowInTaskbar = False + Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen + Me.Text = "입력면" + Me.TableLayoutPanel1.ResumeLayout(False) + Me.TableLayoutPanel1.PerformLayout() + CType(Me.bs, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.DS, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.bszone, System.ComponentModel.ISupportInitialize).EndInit() + Me.SplitContainer1.Panel1.ResumeLayout(False) + Me.SplitContainer1.Panel2.ResumeLayout(False) + Me.SplitContainer1.Panel2.PerformLayout() + CType(Me.SplitContainer1, System.ComponentModel.ISupportInitialize).EndInit() + Me.SplitContainer1.ResumeLayout(False) + Me.TableLayoutPanel2.ResumeLayout(False) + Me.TableLayoutPanel2.PerformLayout() + CType(Me.bn, System.ComponentModel.ISupportInitialize).EndInit() + Me.bn.ResumeLayout(False) + Me.bn.PerformLayout() + CType(Me.Arindv1, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.dv, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.BindingNavigator1, System.ComponentModel.ISupportInitialize).EndInit() + Me.BindingNavigator1.ResumeLayout(False) + Me.BindingNavigator1.PerformLayout() + Me.ToolStrip2.ResumeLayout(False) + Me.ToolStrip2.PerformLayout() + Me.ToolStrip1.ResumeLayout(False) + Me.ToolStrip1.PerformLayout() + CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.PictureBox4, System.ComponentModel.ISupportInitialize).EndInit() + Me.GroupBox5.ResumeLayout(False) + Me.GroupBox5.PerformLayout() + CType(Me.PictureBox5, System.ComponentModel.ISupportInitialize).EndInit() + Me.GroupBox4.ResumeLayout(False) + Me.GroupBox4.PerformLayout() + CType(Me.PictureBox7, System.ComponentModel.ISupportInitialize).EndInit() + Me.GroupBox3.ResumeLayout(False) + Me.GroupBox3.PerformLayout() + CType(Me.PictureBox6, System.ComponentModel.ISupportInitialize).EndInit() + Me.GroupBox2.ResumeLayout(False) + Me.GroupBox2.PerformLayout() + CType(Me.PictureBox9, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.PictureBox10, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.PictureBox3, System.ComponentModel.ISupportInitialize).EndInit() + Me.GroupBox1.ResumeLayout(False) + Me.GroupBox1.PerformLayout() + CType(Me.PictureBox8, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.PictureBox2, System.ComponentModel.ISupportInitialize).EndInit() + Me.ResumeLayout(False) + + End Sub + Friend WithEvents TableLayoutPanel1 As System.Windows.Forms.TableLayoutPanel + Friend WithEvents NTb1 As MyTb + Friend WithEvents NTb2 As MyTb + Friend WithEvents NTb3 As MyTb + Friend WithEvents cmb_블라인드설치유무 As MyCmb + Friend WithEvents cmb_블라인드위치 As MyCmb + Friend WithEvents cmb_블라인드각도 As MyCmb + Friend WithEvents cmb_블라인드종류 As MyCmb + Friend WithEvents cmb_블라인드색상 As MyCmb + Friend WithEvents cmb_존분류 As MyCmb + Friend WithEvents cmb_대차존 As MyCmb + Friend WithEvents tb_02 As MyTb + Friend WithEvents tb_03 As MyTb + Friend WithEvents cmb_방위 As MyCmb + Friend WithEvents bs As System.Windows.Forms.BindingSource + Friend WithEvents DS As Eco2Ar.DS + Friend WithEvents tb_04 As Eco2Ar.MyTb + Friend WithEvents tb_05 As Eco2Ar.MyTb + Friend WithEvents tb_06 As Eco2Ar.MyTb + Friend WithEvents Label2 As System.Windows.Forms.Label + Friend WithEvents Label3 As System.Windows.Forms.Label + Friend WithEvents Label4 As System.Windows.Forms.Label + Friend WithEvents Label5 As System.Windows.Forms.Label + Friend WithEvents Label6 As System.Windows.Forms.Label + Friend WithEvents SplitContainer1 As System.Windows.Forms.SplitContainer + Friend WithEvents dv As CEnergy.arindv + Friend WithEvents bn As System.Windows.Forms.BindingNavigator + Friend WithEvents bt_add As System.Windows.Forms.ToolStripButton + Friend WithEvents bt_Del As System.Windows.Forms.ToolStripButton + Friend WithEvents bt_cancel As System.Windows.Forms.ToolStripButton + Friend WithEvents cmb_gubun As System.Windows.Forms.ToolStripComboBox + 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 + Friend WithEvents GroupBox1 As System.Windows.Forms.GroupBox + Friend WithEvents GroupBox4 As System.Windows.Forms.GroupBox + Friend WithEvents GroupBox3 As System.Windows.Forms.GroupBox + Friend WithEvents GroupBox5 As System.Windows.Forms.GroupBox + Friend WithEvents ToolTip1 As System.Windows.Forms.ToolTip + Friend WithEvents Label7 As System.Windows.Forms.Label + Friend WithEvents PictureBox1 As System.Windows.Forms.PictureBox + Friend WithEvents Label11 As System.Windows.Forms.Label + Friend WithEvents PictureBox4 As System.Windows.Forms.PictureBox + Friend WithEvents PictureBox5 As System.Windows.Forms.PictureBox + Friend WithEvents PictureBox3 As System.Windows.Forms.PictureBox + Friend WithEvents PictureBox2 As System.Windows.Forms.PictureBox + Friend WithEvents PictureBox7 As System.Windows.Forms.PictureBox + Friend WithEvents PictureBox6 As System.Windows.Forms.PictureBox + Friend WithEvents ToolStrip1 As System.Windows.Forms.ToolStrip + Friend WithEvents ToolStripLabel1 As System.Windows.Forms.ToolStripLabel + Friend WithEvents lbl_cnt1 As System.Windows.Forms.ToolStripLabel + Friend WithEvents ToolStripLabel3 As System.Windows.Forms.ToolStripLabel + Friend WithEvents lbl_cnt2 As System.Windows.Forms.ToolStripLabel + Friend WithEvents ToolStripLabel5 As System.Windows.Forms.ToolStripLabel + Friend WithEvents lbl_cnt3 As System.Windows.Forms.ToolStripLabel + Friend WithEvents cmb_열관류율 As Eco2Ar.MyCmb + Friend WithEvents MyTb1 As Eco2Ar.MyTb + Friend WithEvents Arindv1 As CEnergy.arindv + Friend WithEvents bszone As System.Windows.Forms.BindingSource + Friend WithEvents rad8 As System.Windows.Forms.RadioButton + Friend WithEvents rad10 As System.Windows.Forms.RadioButton + Friend WithEvents rad9 As System.Windows.Forms.RadioButton + Friend WithEvents rad7 As System.Windows.Forms.RadioButton + Friend WithEvents rad6 As System.Windows.Forms.RadioButton + Friend WithEvents rad5 As System.Windows.Forms.RadioButton + Friend WithEvents rad4 As System.Windows.Forms.RadioButton + Friend WithEvents rad3 As System.Windows.Forms.RadioButton + Friend WithEvents rad2 As System.Windows.Forms.RadioButton + Friend WithEvents rad1 As System.Windows.Forms.RadioButton + Friend WithEvents rad0 As System.Windows.Forms.RadioButton + Friend WithEvents PictureBox8 As System.Windows.Forms.PictureBox + Friend WithEvents TableLayoutPanel2 As System.Windows.Forms.TableLayoutPanel + Friend WithEvents BindingNavigator1 As System.Windows.Forms.BindingNavigator + Friend WithEvents BindingNavigatorCountItem As System.Windows.Forms.ToolStripLabel + Friend WithEvents BindingNavigatorPositionItem As System.Windows.Forms.ToolStripTextBox + Friend WithEvents rad_수평직입력 As System.Windows.Forms.RadioButton + Friend WithEvents rad_차양각입력 As System.Windows.Forms.RadioButton + Friend WithEvents MyTb6 As Eco2Ar.MyTb + Friend WithEvents MyTb7 As Eco2Ar.MyTb + Friend WithEvents MyTb4 As Eco2Ar.MyTb + Friend WithEvents MyTb5 As Eco2Ar.MyTb + Friend WithEvents MyTb2 As Eco2Ar.MyTb + Friend WithEvents MyTb3 As Eco2Ar.MyTb + Friend WithEvents Label1 As System.Windows.Forms.Label + Friend WithEvents Label8 As System.Windows.Forms.Label + Friend WithEvents Label9 As System.Windows.Forms.Label + Friend WithEvents Label10 As System.Windows.Forms.Label + Friend WithEvents Label12 As System.Windows.Forms.Label + Friend WithEvents Label13 As System.Windows.Forms.Label + Friend WithEvents PictureBox9 As System.Windows.Forms.PictureBox + Friend WithEvents PictureBox10 As System.Windows.Forms.PictureBox + Friend WithEvents cmb_건축부위방식 As Eco2Ar.MyCmb + Friend WithEvents ToolStrip2 As System.Windows.Forms.ToolStrip + Friend WithEvents ToolStripLabel11 As System.Windows.Forms.ToolStripLabel + Friend WithEvents lbl_cnt4 As System.Windows.Forms.ToolStripLabel + Friend WithEvents DataGridViewTextBoxColumn2 As System.Windows.Forms.DataGridViewTextBoxColumn + Friend WithEvents sortkey As System.Windows.Forms.DataGridViewTextBoxColumn + Friend WithEvents Column1 As System.Windows.Forms.DataGridViewTextBoxColumn + Friend WithEvents 존분류 As System.Windows.Forms.DataGridViewTextBoxColumn + Friend WithEvents DataGridViewTextBoxColumn1 As System.Windows.Forms.DataGridViewTextBoxColumn +End Class diff --git a/ArinWarev1/Forms_Input/Frm_v20091231_Myoun.resx b/ArinWarev1/Forms_Input/Frm_v20091231_Myoun.resx new file mode 100644 index 0000000..4ce6a70 --- /dev/null +++ b/ArinWarev1/Forms_Input/Frm_v20091231_Myoun.resx @@ -0,0 +1,372 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + 17, 17 + + + 109, 17 + + + 451, 17 + + + 242, 17 + + + 176, 17 + + + True + + + True + + + True + + + 542, 17 + + + 698, 17 + + + 342, 17 + + + + + /9j/4AAQSkZJRgABAgEASABIAAD/7gAOQWRvYmUAZAAAAAAB/+ED5kV4aWYAAE1NACoAAAAIAAcBEgAD + AAAAAQABAAABGgAFAAAAAQAAAGIBGwAFAAAAAQAAAGoBKAADAAAAAQACAAABMQACAAAAHAAAAHIBMgAC + AAAAFAAAAI6HaQAEAAAAAQAAAKIAAADCAEgAAAABAAAASAAAAAEAAEFkb2JlIFBob3Rvc2hvcCBDUzMg + V2luZG93cwAyMDEwOjA0OjE1IDIwOjMyOjA0AAACoAIABAAAAAEAAAA8oAMABAAAAAEAAAAMAAAAAAAA + AAYBAwADAAAAAQAGAAABGgAFAAAAAQAAARABGwAFAAAAAQAAARgBKAADAAAAAQACAAACAQAEAAAAAQAA + ASACAgAEAAAAAQAAAr4AAAAAAAAASAAAAAEAAABIAAAAAf/Y/+AAEEpGSUYAAQIAAEgASAAA/+0ADEFk + b2JlX0NNAAH/7gAOQWRvYmUAZIAAAAAB/9sAhAAMCAgICQgMCQkMEQsKCxEVDwwMDxUYExMVExMYEQwM + DAwMDBEMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMAQ0LCw0ODRAODhAUDg4OFBQODg4OFBEMDAwM + DBERDAwMDAwMEQwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAz/wAARCAAMADwDASIAAhEBAxEB/90A + BAAE/8QBPwAAAQUBAQEBAQEAAAAAAAAAAwABAgQFBgcICQoLAQABBQEBAQEBAQAAAAAAAAABAAIDBAUG + BwgJCgsQAAEEAQMCBAIFBwYIBQMMMwEAAhEDBCESMQVBUWETInGBMgYUkaGxQiMkFVLBYjM0coLRQwcl + klPw4fFjczUWorKDJkSTVGRFwqN0NhfSVeJl8rOEw9N14/NGJ5SkhbSVxNTk9KW1xdXl9VZmdoaWprbG + 1ub2N0dXZ3eHl6e3x9fn9xEAAgIBAgQEAwQFBgcHBgU1AQACEQMhMRIEQVFhcSITBTKBkRShsUIjwVLR + 8DMkYuFygpJDUxVjczTxJQYWorKDByY1wtJEk1SjF2RFVTZ0ZeLys4TD03Xj80aUpIW0lcTU5PSltcXV + 5fVWZnaGlqa2xtbm9ic3R1dnd4eXp7fH/9oADAMBAAIRAxEAPwDd/amR/pH/AOcf70v2pkf6R/8AnH+9 + UUlofq/Bpevxb37UyP8ASP8A84/3pftTI/0j/wDOP96opJfq/BXr8W9+1Mj/AEj/APOP96X7UyP9I/8A + zj/eqKSX6vwV6/F3ujdbuGS2i5xfU8HVxktIG76XyW99vo27p0XGdO2/ba930dZj+q5dX+qfZPL8VAeD + 341VVr/eZhx+0bu708n/2f/iDFhJQ0NfUFJPRklMRQABAQAADEhMaW5vAhAAAG1udHJSR0IgWFlaIAfO + AAIACQAGADEAAGFjc3BNU0ZUAAAAAElFQyBzUkdCAAAAAAAAAAAAAAAAAAD21gABAAAAANMtSFAgIAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAEWNwcnQAAAFQAAAAM2Rl + c2MAAAGEAAAAbHd0cHQAAAHwAAAAFGJrcHQAAAIEAAAAFHJYWVoAAAIYAAAAFGdYWVoAAAIsAAAAFGJY + WVoAAAJAAAAAFGRtbmQAAAJUAAAAcGRtZGQAAALEAAAAiHZ1ZWQAAANMAAAAhnZpZXcAAAPUAAAAJGx1 + bWkAAAP4AAAAFG1lYXMAAAQMAAAAJHRlY2gAAAQwAAAADHJUUkMAAAQ8AAAIDGdUUkMAAAQ8AAAIDGJU + UkMAAAQ8AAAIDHRleHQAAAAAQ29weXJpZ2h0IChjKSAxOTk4IEhld2xldHQtUGFja2FyZCBDb21wYW55 + AABkZXNjAAAAAAAAABJzUkdCIElFQzYxOTY2LTIuMQAAAAAAAAAAAAAAEnNSR0IgSUVDNjE5NjYtMi4x + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABYWVogAAAAAAAA + 81EAAQAAAAEWzFhZWiAAAAAAAAAAAAAAAAAAAAAAWFlaIAAAAAAAAG+iAAA49QAAA5BYWVogAAAAAAAA + YpkAALeFAAAY2lhZWiAAAAAAAAAkoAAAD4QAALbPZGVzYwAAAAAAAAAWSUVDIGh0dHA6Ly93d3cuaWVj + LmNoAAAAAAAAAAAAAAAWSUVDIGh0dHA6Ly93d3cuaWVjLmNoAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAGRlc2MAAAAAAAAALklFQyA2MTk2Ni0yLjEgRGVmYXVsdCBSR0Ig + Y29sb3VyIHNwYWNlIC0gc1JHQgAAAAAAAAAAAAAALklFQyA2MTk2Ni0yLjEgRGVmYXVsdCBSR0IgY29s + b3VyIHNwYWNlIC0gc1JHQgAAAAAAAAAAAAAAAAAAAAAAAAAAAABkZXNjAAAAAAAAACxSZWZlcmVuY2Ug + Vmlld2luZyBDb25kaXRpb24gaW4gSUVDNjE5NjYtMi4xAAAAAAAAAAAAAAAsUmVmZXJlbmNlIFZpZXdp + bmcgQ29uZGl0aW9uIGluIElFQzYxOTY2LTIuMQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAdmlldwAA + AAAAE6T+ABRfLgAQzxQAA+3MAAQTCwADXJ4AAAABWFlaIAAAAAAATAlWAFAAAABXH+dtZWFzAAAAAAAA + AAEAAAAAAAAAAAAAAAAAAAAAAAACjwAAAAJzaWcgAAAAAENSVCBjdXJ2AAAAAAAABAAAAAAFAAoADwAU + ABkAHgAjACgALQAyADcAOwBAAEUASgBPAFQAWQBeAGMAaABtAHIAdwB8AIEAhgCLAJAAlQCaAJ8ApACp + AK4AsgC3ALwAwQDGAMsA0ADVANsA4ADlAOsA8AD2APsBAQEHAQ0BEwEZAR8BJQErATIBOAE+AUUBTAFS + AVkBYAFnAW4BdQF8AYMBiwGSAZoBoQGpAbEBuQHBAckB0QHZAeEB6QHyAfoCAwIMAhQCHQImAi8COAJB + AksCVAJdAmcCcQJ6AoQCjgKYAqICrAK2AsECywLVAuAC6wL1AwADCwMWAyEDLQM4A0MDTwNaA2YDcgN+ + A4oDlgOiA64DugPHA9MD4APsA/kEBgQTBCAELQQ7BEgEVQRjBHEEfgSMBJoEqAS2BMQE0wThBPAE/gUN + BRwFKwU6BUkFWAVnBXcFhgWWBaYFtQXFBdUF5QX2BgYGFgYnBjcGSAZZBmoGewaMBp0GrwbABtEG4wb1 + BwcHGQcrBz0HTwdhB3QHhgeZB6wHvwfSB+UH+AgLCB8IMghGCFoIbgiCCJYIqgi+CNII5wj7CRAJJQk6 + CU8JZAl5CY8JpAm6Cc8J5Qn7ChEKJwo9ClQKagqBCpgKrgrFCtwK8wsLCyILOQtRC2kLgAuYC7ALyAvh + C/kMEgwqDEMMXAx1DI4MpwzADNkM8w0NDSYNQA1aDXQNjg2pDcMN3g34DhMOLg5JDmQOfw6bDrYO0g7u + DwkPJQ9BD14Peg+WD7MPzw/sEAkQJhBDEGEQfhCbELkQ1xD1ERMRMRFPEW0RjBGqEckR6BIHEiYSRRJk + EoQSoxLDEuMTAxMjE0MTYxODE6QTxRPlFAYUJxRJFGoUixStFM4U8BUSFTQVVhV4FZsVvRXgFgMWJhZJ + FmwWjxayFtYW+hcdF0EXZReJF64X0hf3GBsYQBhlGIoYrxjVGPoZIBlFGWsZkRm3Gd0aBBoqGlEadxqe + GsUa7BsUGzsbYxuKG7Ib2hwCHCocUhx7HKMczBz1HR4dRx1wHZkdwx3sHhYeQB5qHpQevh7pHxMfPh9p + H5Qfvx/qIBUgQSBsIJggxCDwIRwhSCF1IaEhziH7IiciVSKCIq8i3SMKIzgjZiOUI8Ij8CQfJE0kfCSr + JNolCSU4JWgllyXHJfcmJyZXJocmtyboJxgnSSd6J6sn3CgNKD8ocSiiKNQpBik4KWspnSnQKgIqNSpo + KpsqzysCKzYraSudK9EsBSw5LG4soizXLQwtQS12Last4S4WLkwugi63Lu4vJC9aL5Evxy/+MDUwbDCk + MNsxEjFKMYIxujHyMioyYzKbMtQzDTNGM38zuDPxNCs0ZTSeNNg1EzVNNYc1wjX9Njc2cjauNuk3JDdg + N5w31zgUOFA4jDjIOQU5Qjl/Obw5+To2OnQ6sjrvOy07azuqO+g8JzxlPKQ84z0iPWE9oT3gPiA+YD6g + PuA/IT9hP6I/4kAjQGRApkDnQSlBakGsQe5CMEJyQrVC90M6Q31DwEQDREdEikTORRJFVUWaRd5GIkZn + RqtG8Ec1R3tHwEgFSEtIkUjXSR1JY0mpSfBKN0p9SsRLDEtTS5pL4kwqTHJMuk0CTUpNk03cTiVObk63 + TwBPSU+TT91QJ1BxULtRBlFQUZtR5lIxUnxSx1MTU19TqlP2VEJUj1TbVShVdVXCVg9WXFapVvdXRFeS + V+BYL1h9WMtZGllpWbhaB1pWWqZa9VtFW5Vb5Vw1XIZc1l0nXXhdyV4aXmxevV8PX2Ffs2AFYFdgqmD8 + YU9homH1YklinGLwY0Njl2PrZEBklGTpZT1lkmXnZj1mkmboZz1nk2fpaD9olmjsaUNpmmnxakhqn2r3 + a09rp2v/bFdsr20IbWBtuW4SbmtuxG8eb3hv0XArcIZw4HE6cZVx8HJLcqZzAXNdc7h0FHRwdMx1KHWF + deF2Pnabdvh3VnezeBF4bnjMeSp5iXnnekZ6pXsEe2N7wnwhfIF84X1BfaF+AX5ifsJ/I3+Ef+WAR4Co + gQqBa4HNgjCCkoL0g1eDuoQdhICE44VHhauGDoZyhteHO4efiASIaYjOiTOJmYn+imSKyoswi5aL/Ixj + jMqNMY2Yjf+OZo7OjzaPnpAGkG6Q1pE/kaiSEZJ6kuOTTZO2lCCUipT0lV+VyZY0lp+XCpd1l+CYTJi4 + mSSZkJn8mmia1ZtCm6+cHJyJnPedZJ3SnkCerp8dn4uf+qBpoNihR6G2oiailqMGo3aj5qRWpMelOKWp + phqmi6b9p26n4KhSqMSpN6mpqhyqj6sCq3Wr6axcrNCtRK24ri2uoa8Wr4uwALB1sOqxYLHWskuywrM4 + s660JbSctRO1irYBtnm28Ldot+C4WbjRuUq5wro7urW7LrunvCG8m70VvY++Cr6Evv+/er/1wHDA7MFn + wePCX8Lbw1jD1MRRxM7FS8XIxkbGw8dBx7/IPci8yTrJuco4yrfLNsu2zDXMtc01zbXONs62zzfPuNA5 + 0LrRPNG+0j/SwdNE08bUSdTL1U7V0dZV1tjXXNfg2GTY6Nls2fHadtr724DcBdyK3RDdlt4c3qLfKd+v + 4DbgveFE4cziU+Lb42Pj6+Rz5PzlhOYN5pbnH+ep6DLovOlG6dDqW+rl63Dr++yG7RHtnO4o7rTvQO/M + 8Fjw5fFy8f/yjPMZ86f0NPTC9VD13vZt9vv3ivgZ+Kj5OPnH+lf65/t3/Af8mP0p/br+S/7c/23////b + AEMAAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQICAgICAgICAgICAwMD + AwMDAwMDA//bAEMBAQEBAQEBAQEBAQICAQICAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMD + AwMDAwMDAwMDAwMDAwMDA//AABEIAAwAPAMBEQACEQEDEQH/xAAfAAABBQEBAQEBAQAAAAAAAAAAAQID + BAUGBwgJCgv/xAC1EAACAQMDAgQDBQUEBAAAAX0BAgMABBEFEiExQQYTUWEHInEUMoGRoQgjQrHBFVLR + 8CQzYnKCCQoWFxgZGiUmJygpKjQ1Njc4OTpDREVGR0hJSlNUVVZXWFlaY2RlZmdoaWpzdHV2d3h5eoOE + hYaHiImKkpOUlZaXmJmaoqOkpaanqKmqsrO0tba3uLm6wsPExcbHyMnK0tPU1dbX2Nna4eLj5OXm5+jp + 6vHy8/T19vf4+fr/xAAfAQADAQEBAQEBAQEBAAAAAAAAAQIDBAUGBwgJCgv/xAC1EQACAQIEBAMEBwUE + BAABAncAAQIDEQQFITEGEkFRB2FxEyIygQgUQpGhscEJIzNS8BVictEKFiQ04SXxFxgZGiYnKCkqNTY3 + ODk6Q0RFRkdISUpTVFVWV1hZWmNkZWZnaGlqc3R1dnd4eXqCg4SFhoeIiYqSk5SVlpeYmZqio6Slpqeo + qaqys7S1tre4ubrCw8TFxsfIycrS09TV1tfY2dri4+Tl5ufo6ery8/T19vf4+fr/2gAMAwEAAhEDEQA/ + AP1ZH7UPxEAA/wCEw8bnj/ob9f8A/k+v7U/1Nyj/AKF+G/8ABUP/AJE/llcSZlZf7dX/APBk/wDMX/hq + H4if9Df43/8ACv1//wCT6P8AU3Kf+hfhv/BUP/kQ/wBZcy/6Dq//AIMn/mH/AA1D8RP+hv8AG/8A4V+v + /wDyfR/qblP/AEL8N/4Kh/8AIh/rLmX/AEHV/wDwZP8AzD/hqH4if9Df43/8K/X/AP5Po/1Nyn/oX4b/ + AMFQ/wDkQ/1lzL/oOr/+DJ/5h/w1D8RP+hv8b/8AhX6//wDJ9H+puU/9C/Df+Cof/Ih/rLmX/QdX/wDB + k/8AMT/hqH4if9Df43/8K/X/AP5Po/1Nyn/oX4b/AMFQ/wDkQ/1kzL/oOr/+DJ/5n2R+xz+234zt/iRp + nw+8a6vqXiDwZ4gs9baObXr+bUr/AMPajpmkX2tQ3FlqV2Zb57K7XT2t3tXkaJWkV4whVxJ+beJfAuU4 + Th/FZ/hKEKOMw8qd+SKjGcZzjTs4q0bpyUlJK7s073VvuuBOLMxxGcYfJ8TWlVw1ZTtzu7hKMJTupPWz + UWnFu2qatrf9aP8AhfXgv+zv7U89/sfm+V5207N+M43fSv50P2w/kwr/AEFP42CgAoAKACgAoA9s/Z0/ + s7/hcng3+1vP/s7Ov/avs2PP2f8ACL63t2buP9ZjP+zmvz7xU/5IPPf+4H/qRRPsvD//AJK7KP8AuL/6 + ZqH7/wD/ABaT/hUfb7Ht/wBj7V9p8v8A9Cr+Oz+lz//Z + + + + + /9j/4AAQSkZJRgABAgEASABIAAD/7gAOQWRvYmUAZAAAAAAB/+ED5kV4aWYAAE1NACoAAAAIAAcBEgAD + AAAAAQABAAABGgAFAAAAAQAAAGIBGwAFAAAAAQAAAGoBKAADAAAAAQACAAABMQACAAAAHAAAAHIBMgAC + AAAAFAAAAI6HaQAEAAAAAQAAAKIAAADCAEgAAAABAAAASAAAAAEAAEFkb2JlIFBob3Rvc2hvcCBDUzMg + V2luZG93cwAyMDEwOjA0OjE1IDIwOjMyOjA0AAACoAIABAAAAAEAAAA8oAMABAAAAAEAAAAMAAAAAAAA + AAYBAwADAAAAAQAGAAABGgAFAAAAAQAAARABGwAFAAAAAQAAARgBKAADAAAAAQACAAACAQAEAAAAAQAA + ASACAgAEAAAAAQAAAr4AAAAAAAAASAAAAAEAAABIAAAAAf/Y/+AAEEpGSUYAAQIAAEgASAAA/+0ADEFk + b2JlX0NNAAH/7gAOQWRvYmUAZIAAAAAB/9sAhAAMCAgICQgMCQkMEQsKCxEVDwwMDxUYExMVExMYEQwM + DAwMDBEMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMAQ0LCw0ODRAODhAUDg4OFBQODg4OFBEMDAwM + DBERDAwMDAwMEQwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAz/wAARCAAMADwDASIAAhEBAxEB/90A + BAAE/8QBPwAAAQUBAQEBAQEAAAAAAAAAAwABAgQFBgcICQoLAQABBQEBAQEBAQAAAAAAAAABAAIDBAUG + BwgJCgsQAAEEAQMCBAIFBwYIBQMMMwEAAhEDBCESMQVBUWETInGBMgYUkaGxQiMkFVLBYjM0coLRQwcl + klPw4fFjczUWorKDJkSTVGRFwqN0NhfSVeJl8rOEw9N14/NGJ5SkhbSVxNTk9KW1xdXl9VZmdoaWprbG + 1ub2N0dXZ3eHl6e3x9fn9xEAAgIBAgQEAwQFBgcHBgU1AQACEQMhMRIEQVFhcSITBTKBkRShsUIjwVLR + 8DMkYuFygpJDUxVjczTxJQYWorKDByY1wtJEk1SjF2RFVTZ0ZeLys4TD03Xj80aUpIW0lcTU5PSltcXV + 5fVWZnaGlqa2xtbm9ic3R1dnd4eXp7fH/9oADAMBAAIRAxEAPwDd/amR/pH/AOcf70v2pkf6R/8AnH+9 + UUlofq/Bpevxb37UyP8ASP8A84/3pftTI/0j/wDOP96opJfq/BXr8W9+1Mj/AEj/APOP96X7UyP9I/8A + zj/eqKSX6vwV6/F3ujdbuGS2i5xfU8HVxktIG76XyW99vo27p0XGdO2/ba930dZj+q5dX+qfZPL8VAeD + 341VVr/eZhx+0bu708n/2f/iDFhJQ0NfUFJPRklMRQABAQAADEhMaW5vAhAAAG1udHJSR0IgWFlaIAfO + AAIACQAGADEAAGFjc3BNU0ZUAAAAAElFQyBzUkdCAAAAAAAAAAAAAAAAAAD21gABAAAAANMtSFAgIAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAEWNwcnQAAAFQAAAAM2Rl + c2MAAAGEAAAAbHd0cHQAAAHwAAAAFGJrcHQAAAIEAAAAFHJYWVoAAAIYAAAAFGdYWVoAAAIsAAAAFGJY + WVoAAAJAAAAAFGRtbmQAAAJUAAAAcGRtZGQAAALEAAAAiHZ1ZWQAAANMAAAAhnZpZXcAAAPUAAAAJGx1 + bWkAAAP4AAAAFG1lYXMAAAQMAAAAJHRlY2gAAAQwAAAADHJUUkMAAAQ8AAAIDGdUUkMAAAQ8AAAIDGJU + UkMAAAQ8AAAIDHRleHQAAAAAQ29weXJpZ2h0IChjKSAxOTk4IEhld2xldHQtUGFja2FyZCBDb21wYW55 + AABkZXNjAAAAAAAAABJzUkdCIElFQzYxOTY2LTIuMQAAAAAAAAAAAAAAEnNSR0IgSUVDNjE5NjYtMi4x + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABYWVogAAAAAAAA + 81EAAQAAAAEWzFhZWiAAAAAAAAAAAAAAAAAAAAAAWFlaIAAAAAAAAG+iAAA49QAAA5BYWVogAAAAAAAA + YpkAALeFAAAY2lhZWiAAAAAAAAAkoAAAD4QAALbPZGVzYwAAAAAAAAAWSUVDIGh0dHA6Ly93d3cuaWVj + LmNoAAAAAAAAAAAAAAAWSUVDIGh0dHA6Ly93d3cuaWVjLmNoAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAGRlc2MAAAAAAAAALklFQyA2MTk2Ni0yLjEgRGVmYXVsdCBSR0Ig + Y29sb3VyIHNwYWNlIC0gc1JHQgAAAAAAAAAAAAAALklFQyA2MTk2Ni0yLjEgRGVmYXVsdCBSR0IgY29s + b3VyIHNwYWNlIC0gc1JHQgAAAAAAAAAAAAAAAAAAAAAAAAAAAABkZXNjAAAAAAAAACxSZWZlcmVuY2Ug + Vmlld2luZyBDb25kaXRpb24gaW4gSUVDNjE5NjYtMi4xAAAAAAAAAAAAAAAsUmVmZXJlbmNlIFZpZXdp + bmcgQ29uZGl0aW9uIGluIElFQzYxOTY2LTIuMQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAdmlldwAA + AAAAE6T+ABRfLgAQzxQAA+3MAAQTCwADXJ4AAAABWFlaIAAAAAAATAlWAFAAAABXH+dtZWFzAAAAAAAA + AAEAAAAAAAAAAAAAAAAAAAAAAAACjwAAAAJzaWcgAAAAAENSVCBjdXJ2AAAAAAAABAAAAAAFAAoADwAU + ABkAHgAjACgALQAyADcAOwBAAEUASgBPAFQAWQBeAGMAaABtAHIAdwB8AIEAhgCLAJAAlQCaAJ8ApACp + AK4AsgC3ALwAwQDGAMsA0ADVANsA4ADlAOsA8AD2APsBAQEHAQ0BEwEZAR8BJQErATIBOAE+AUUBTAFS + AVkBYAFnAW4BdQF8AYMBiwGSAZoBoQGpAbEBuQHBAckB0QHZAeEB6QHyAfoCAwIMAhQCHQImAi8COAJB + AksCVAJdAmcCcQJ6AoQCjgKYAqICrAK2AsECywLVAuAC6wL1AwADCwMWAyEDLQM4A0MDTwNaA2YDcgN+ + A4oDlgOiA64DugPHA9MD4APsA/kEBgQTBCAELQQ7BEgEVQRjBHEEfgSMBJoEqAS2BMQE0wThBPAE/gUN + BRwFKwU6BUkFWAVnBXcFhgWWBaYFtQXFBdUF5QX2BgYGFgYnBjcGSAZZBmoGewaMBp0GrwbABtEG4wb1 + BwcHGQcrBz0HTwdhB3QHhgeZB6wHvwfSB+UH+AgLCB8IMghGCFoIbgiCCJYIqgi+CNII5wj7CRAJJQk6 + CU8JZAl5CY8JpAm6Cc8J5Qn7ChEKJwo9ClQKagqBCpgKrgrFCtwK8wsLCyILOQtRC2kLgAuYC7ALyAvh + C/kMEgwqDEMMXAx1DI4MpwzADNkM8w0NDSYNQA1aDXQNjg2pDcMN3g34DhMOLg5JDmQOfw6bDrYO0g7u + DwkPJQ9BD14Peg+WD7MPzw/sEAkQJhBDEGEQfhCbELkQ1xD1ERMRMRFPEW0RjBGqEckR6BIHEiYSRRJk + EoQSoxLDEuMTAxMjE0MTYxODE6QTxRPlFAYUJxRJFGoUixStFM4U8BUSFTQVVhV4FZsVvRXgFgMWJhZJ + FmwWjxayFtYW+hcdF0EXZReJF64X0hf3GBsYQBhlGIoYrxjVGPoZIBlFGWsZkRm3Gd0aBBoqGlEadxqe + GsUa7BsUGzsbYxuKG7Ib2hwCHCocUhx7HKMczBz1HR4dRx1wHZkdwx3sHhYeQB5qHpQevh7pHxMfPh9p + H5Qfvx/qIBUgQSBsIJggxCDwIRwhSCF1IaEhziH7IiciVSKCIq8i3SMKIzgjZiOUI8Ij8CQfJE0kfCSr + JNolCSU4JWgllyXHJfcmJyZXJocmtyboJxgnSSd6J6sn3CgNKD8ocSiiKNQpBik4KWspnSnQKgIqNSpo + KpsqzysCKzYraSudK9EsBSw5LG4soizXLQwtQS12Last4S4WLkwugi63Lu4vJC9aL5Evxy/+MDUwbDCk + MNsxEjFKMYIxujHyMioyYzKbMtQzDTNGM38zuDPxNCs0ZTSeNNg1EzVNNYc1wjX9Njc2cjauNuk3JDdg + N5w31zgUOFA4jDjIOQU5Qjl/Obw5+To2OnQ6sjrvOy07azuqO+g8JzxlPKQ84z0iPWE9oT3gPiA+YD6g + PuA/IT9hP6I/4kAjQGRApkDnQSlBakGsQe5CMEJyQrVC90M6Q31DwEQDREdEikTORRJFVUWaRd5GIkZn + RqtG8Ec1R3tHwEgFSEtIkUjXSR1JY0mpSfBKN0p9SsRLDEtTS5pL4kwqTHJMuk0CTUpNk03cTiVObk63 + TwBPSU+TT91QJ1BxULtRBlFQUZtR5lIxUnxSx1MTU19TqlP2VEJUj1TbVShVdVXCVg9WXFapVvdXRFeS + V+BYL1h9WMtZGllpWbhaB1pWWqZa9VtFW5Vb5Vw1XIZc1l0nXXhdyV4aXmxevV8PX2Ffs2AFYFdgqmD8 + YU9homH1YklinGLwY0Njl2PrZEBklGTpZT1lkmXnZj1mkmboZz1nk2fpaD9olmjsaUNpmmnxakhqn2r3 + a09rp2v/bFdsr20IbWBtuW4SbmtuxG8eb3hv0XArcIZw4HE6cZVx8HJLcqZzAXNdc7h0FHRwdMx1KHWF + deF2Pnabdvh3VnezeBF4bnjMeSp5iXnnekZ6pXsEe2N7wnwhfIF84X1BfaF+AX5ifsJ/I3+Ef+WAR4Co + gQqBa4HNgjCCkoL0g1eDuoQdhICE44VHhauGDoZyhteHO4efiASIaYjOiTOJmYn+imSKyoswi5aL/Ixj + jMqNMY2Yjf+OZo7OjzaPnpAGkG6Q1pE/kaiSEZJ6kuOTTZO2lCCUipT0lV+VyZY0lp+XCpd1l+CYTJi4 + mSSZkJn8mmia1ZtCm6+cHJyJnPedZJ3SnkCerp8dn4uf+qBpoNihR6G2oiailqMGo3aj5qRWpMelOKWp + phqmi6b9p26n4KhSqMSpN6mpqhyqj6sCq3Wr6axcrNCtRK24ri2uoa8Wr4uwALB1sOqxYLHWskuywrM4 + s660JbSctRO1irYBtnm28Ldot+C4WbjRuUq5wro7urW7LrunvCG8m70VvY++Cr6Evv+/er/1wHDA7MFn + wePCX8Lbw1jD1MRRxM7FS8XIxkbGw8dBx7/IPci8yTrJuco4yrfLNsu2zDXMtc01zbXONs62zzfPuNA5 + 0LrRPNG+0j/SwdNE08bUSdTL1U7V0dZV1tjXXNfg2GTY6Nls2fHadtr724DcBdyK3RDdlt4c3qLfKd+v + 4DbgveFE4cziU+Lb42Pj6+Rz5PzlhOYN5pbnH+ep6DLovOlG6dDqW+rl63Dr++yG7RHtnO4o7rTvQO/M + 8Fjw5fFy8f/yjPMZ86f0NPTC9VD13vZt9vv3ivgZ+Kj5OPnH+lf65/t3/Af8mP0p/br+S/7c/23////b + AEMAAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQICAgICAgICAgICAwMD + AwMDAwMDA//bAEMBAQEBAQEBAQEBAQICAQICAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMD + AwMDAwMDAwMDAwMDAwMDA//AABEIAAwAPAMBEQACEQEDEQH/xAAfAAABBQEBAQEBAQAAAAAAAAAAAQID + BAUGBwgJCgv/xAC1EAACAQMDAgQDBQUEBAAAAX0BAgMABBEFEiExQQYTUWEHInEUMoGRoQgjQrHBFVLR + 8CQzYnKCCQoWFxgZGiUmJygpKjQ1Njc4OTpDREVGR0hJSlNUVVZXWFlaY2RlZmdoaWpzdHV2d3h5eoOE + hYaHiImKkpOUlZaXmJmaoqOkpaanqKmqsrO0tba3uLm6wsPExcbHyMnK0tPU1dbX2Nna4eLj5OXm5+jp + 6vHy8/T19vf4+fr/xAAfAQADAQEBAQEBAQEBAAAAAAAAAQIDBAUGBwgJCgv/xAC1EQACAQIEBAMEBwUE + BAABAncAAQIDEQQFITEGEkFRB2FxEyIygQgUQpGhscEJIzNS8BVictEKFiQ04SXxFxgZGiYnKCkqNTY3 + ODk6Q0RFRkdISUpTVFVWV1hZWmNkZWZnaGlqc3R1dnd4eXqCg4SFhoeIiYqSk5SVlpeYmZqio6Slpqeo + qaqys7S1tre4ubrCw8TFxsfIycrS09TV1tfY2dri4+Tl5ufo6ery8/T19vf4+fr/2gAMAwEAAhEDEQA/ + AP1ZH7UPxEAA/wCEw8bnj/ob9f8A/k+v7U/1Nyj/AKF+G/8ABUP/AJE/llcSZlZf7dX/APBk/wDMX/hq + H4if9Df43/8ACv1//wCT6P8AU3Kf+hfhv/BUP/kQ/wBZcy/6Dq//AIMn/mH/AA1D8RP+hv8AG/8A4V+v + /wDyfR/qblP/AEL8N/4Kh/8AIh/rLmX/AEHV/wDwZP8AzD/hqH4if9Df43/8K/X/AP5Po/1Nyn/oX4b/ + AMFQ/wDkQ/1lzL/oOr/+DJ/5h/w1D8RP+hv8b/8AhX6//wDJ9H+puU/9C/Df+Cof/Ih/rLmX/QdX/wDB + k/8AMT/hqH4if9Df43/8K/X/AP5Po/1Nyn/oX4b/AMFQ/wDkQ/1kzL/oOr/+DJ/5n2R+xz+234zt/iRp + nw+8a6vqXiDwZ4gs9baObXr+bUr/AMPajpmkX2tQ3FlqV2Zb57K7XT2t3tXkaJWkV4whVxJ+beJfAuU4 + Th/FZ/hKEKOMw8qd+SKjGcZzjTs4q0bpyUlJK7s073VvuuBOLMxxGcYfJ8TWlVw1ZTtzu7hKMJTupPWz + UWnFu2qatrf9aP8AhfXgv+zv7U89/sfm+V5207N+M43fSv50P2w/kwr/AEFP42CgAoAKACgAoA9s/Z0/ + s7/hcng3+1vP/s7Ov/avs2PP2f8ACL63t2buP9ZjP+zmvz7xU/5IPPf+4H/qRRPsvD//AJK7KP8AuL/6 + ZqH7/wD/ABaT/hUfb7Ht/wBj7V9p8v8A9Cr+Oz+lz//Z + + + + 54 + + \ No newline at end of file diff --git a/ArinWarev1/Forms_Input/Frm_v20091231_Myoun.vb b/ArinWarev1/Forms_Input/Frm_v20091231_Myoun.vb new file mode 100644 index 0000000..c56eb3a --- /dev/null +++ b/ArinWarev1/Forms_Input/Frm_v20091231_Myoun.vb @@ -0,0 +1,1397 @@ +Public Class Frm_V20091231_Myoun + + Dim isCopy As Boolean = False + Dim Init As Boolean = False + Dim SrcDrv As DataRowView + + Dim SelectedZone As String = "" + Dim SelectedZoneName As String = "" + + Public Sub New(_opentime) + + ' 이 호출은 디자이너에 필요합니다. + InitializeComponent() + OpenTime = _opentime + ' InitializeComponent() 호출 뒤에 초기화 코드를 추가하십시오. + + End Sub + +#Region "data Base 변경여부및 적용방법" + + '''변경된내용을적용한다. + Public Overrides Function AcceptChanged() As Boolean + bs.EndEdit() + Dim BaseDS As DataSet = CType(bs.DataSource, DataSet) + Dim BaseDT As DataTable = BaseDS.Tables(bs.DataMember) + BaseDT.AcceptChanges() + Return True + End Function + + '''변경된내용이있다면 취소한다. + Public Overrides Function RejectChanged() As Boolean + Dim BaseDS As DataSet = CType(bs.DataSource, DataSet) + Dim BaseDT As DataTable = BaseDS.Tables(bs.DataMember) + BaseDT.RejectChanges() + Return True + End Function + + '''데이터에변형이있었는가? + Public Overrides Function HasChanged() As Boolean + bs.EndEdit() + Dim BaseDS As DataSet = CType(bs.DataSource, DataSet) + Dim BaseDT As DataTable = BaseDS.Tables(bs.DataMember) + Dim ChangeDT As DataTable = BaseDT.GetChanges + If Not ChangeDT Is Nothing Then Return True + Return False + End Function + + '''기본데이터테이블을 반환합니다. + Public Function DT() As DataTable + Dim BaseDS As DataSet = CType(bs.DataSource, DataSet) + Return BaseDS.Tables(bs.DataMember) + End Function + + +#End Region + + Private Sub MdiMain_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load + + Init = False + + Me.Show() + My.Application.DoEvents() + 'Work_msg_timer("잠시만 기다려주세요") + + + If Prj.UserAuthType = "ADMIN" OrElse Prj.UserAuthType = "BOTH" OrElse Prj.UserAuthType = "BOTH2" OrElse Prj.UserAuthType = "BOTH1" Then '//2011.03.08 추가 + Me.ToolStripLabel1.Visible = True + Me.ToolStripLabel3.Visible = True + Me.ToolStripLabel5.Visible = True + Me.lbl_cnt1.Visible = True + Me.lbl_cnt2.Visible = True + Me.lbl_cnt3.Visible = True + Me.lbl_cnt4.Visible = True + Else + Me.ToolStripLabel1.Visible = False + Me.ToolStripLabel3.Visible = False + Me.ToolStripLabel5.Visible = False + Me.lbl_cnt1.Visible = False + Me.lbl_cnt2.Visible = False + Me.lbl_cnt3.Visible = False + Me.lbl_cnt4.Visible = False + End If + + '//공유데이터셋에 연결한다. + Me.bs.DataSource = DSET1 + Me.bszone.DataSource = DSET1 + + '//입력면 + AddHandler DSET1.tbl_myoun.TableNewRow, AddressOf TblAddNew + '//AddHandler DSET1.tbl_myoun.ColumnChanged, AddressOf TblColumnChanged + AddHandler DSET1.tbl_myoun.ColumnChanging, AddressOf TblColumnChanging + '//콤보컨트롤 바인딩 + Binding_Zone() + + Me.bszone.Filter = "code <> '0'" + If Me.Parameter <> "" Then Me.bszone.Filter &= " and 그룹 ='" + Me.Parameter + "'" + + '//모든컨트롤의 cTrl_enter 를 추가합니다 + BindProperty(CType(Me.SplitContainer1.Panel2.Controls, Control.ControlCollection)) + Me.Init = True + + Try + Me.bszone.Position = CEnergy.ARINCLASS.Read_LastPos_Frm(Me.Name & "1") + Catch ex As Exception + Me.bszone.MoveFirst() + End Try + + '//마지막저장된 존의이름이 일치하면 면의 레코드를 이동 + Dim LastZoneName As String = CEnergy.ARINCLASS.Read_LastZone(Me.Name) + Dim DRv As DataRowView = Me.bszone.Current + If Not DRv Is Nothing Then + Dim CurZoneName As String = DRv("설명").ToString + If LastZoneName = CurZoneName Then + Try + Me.bs.Position = CEnergy.ARINCLASS.Read_LastPos_Frm(Me) + Catch ex As Exception + Me.bs.MoveFirst() + End Try + Else + Me.bs.MoveFirst() + End If + Else + Me.bs.MoveFirst() + End If + + 'bs_CurrentChanged(sender, e) '//현재데이터변경이벤트추가 + Validate_Control() + + AddDebug("form load ok") + End Sub + + Private Sub TblAddNew(ByVal sender As Object, ByVal e As System.Data.DataTableNewRowEventArgs) + AddDebug("♠TblAddNew") + + '//존분류값가져오기 + 'If Me.FilterMode Then + ' If MsgBox("현재 필터적용상태에서는 추가할 수 없습니다" & vbCrLf & "필터상태를 해제하시겠습니까?", MsgBoxStyle.Information Or MsgBoxStyle.OkCancel, "확인") <> MsgBoxResult.Ok Then + ' Return '//필터상태에서는 추가불가 / 다른존의 값이 들어갈수있음(방지코드) + ' Else + ' Me.FilterMode = False + ' MsgBox("추가할 존을 다시 선택하세요", MsgBoxStyle.Information, "확인") + ' Return + ' End If + 'End If + If Me.SelectedZone = "" Then + 'MsgBox("선택된 존이없으므로 추가할 수 없습니다!", MsgBoxStyle.Critical, "확인") + Return + End If + + Dim Zone As String = Me.SelectedZone + e.Row.Item("존분류") = Zone + e.Row.Item("code") = GetMaxCode(DSET1.tbl_myoun) + 'e.Row.Item("열관류율2") = Me.cmb_gubun.Text '//선택된 그것의 값이 들어가도록..필드명만찾아서 입력하세요. + e.Row.Item("sortkey") = GetNewSortKey(DSET1.tbl_myoun, Zone) + '//동일존을 가지는 면데이터로부터 마지막 sortkey 를 가져와서 설정한다. + + Try + If Me.cmb_gubun.SelectedIndex = -1 OrElse Me.cmb_gubun.Text = "(없음)" Then + e.Row.Item("설명") = bs.Count + 1 & "_" & Me.SelectedZoneName + Else + e.Row.Item("설명") = Me.cmb_gubun.Text & "_" & Me.SelectedZoneName + End If + Catch ex As Exception + e.Row.Item("설명") = Me.SelectedZoneName + End Try + + 'Select Case Me.cmb_gubun.Text + ' Case "외벽" + ' e.Row.Item("설명") = DRv("설명").ToString & "_외벽" & bs.Count + 1 + ' Case "외부창" + ' e.Row.Item("설명") = DRv("설명").ToString & "_외부창" & bs.Count + 1 + ' Case "내벽" + ' e.Row.Item("설명") = DRv("설명").ToString & "_내벽" & bs.Count + 1 + ' Case "간벽" + ' e.Row.Item("설명") = DRv("설명").ToString & "_간벽" & bs.Count + 1 + ' Case "내부창" + ' e.Row.Item("설명") = DRv("설명").ToString & "_내부창" & bs.Count + 1 + 'End Select + End Sub + + Private Function GetNewSortKey(ByRef dt As DS.tbl_myounDataTable, Optional Zone As String = "") As String + AddDebug("GetNewSortKey") + + + If Not String.IsNullOrWhiteSpace(Zone) Then + Dim drows() As DS.tbl_myounRow = dt.Select("존분류='" + Zone + "' and code <> '0'", "sortkey desc") + If drows.Length < 1 Then Return 1 + Dim Dr As DS.tbl_myounRow = drows(0) + Dim maxsortkey As Integer = Dr.sortkey + Return maxsortkey + 1 + Else + Dim drows() As DS.tbl_myounRow = dt.Select("code <> '0'", "sortkey desc") + If drows.Length < 1 Then Return 1 + Dim Dr As DS.tbl_myounRow = drows(0) + Dim maxsortkey As Integer = Dr.sortkey + Return maxsortkey + 1 + End If + + End Function + + +#Region "Control_Enter" + Private Sub BindProperty(ByVal Ctl As Control.ControlCollection) + For Each C As Control In Ctl + If C.Controls.Count > 1 Then + BindProperty(C.Controls) + Else + If C.GetType.ToString.ToUpper.IndexOf("MYTB") <> -1 Then + AddHandler CType(C, MyTb).KeyDown, AddressOf TextBOx_KeyDown + ElseIf C.GetType.ToString.ToUpper.IndexOf("MYCMB") <> -1 Then + AddHandler CType(C, MyCmb).KeyDown, AddressOf Cmd_KeyDown + AddHandler CType(C, MyCmb).MouseHover, AddressOf ComboBox_MouseHover + End If + End If + Next + End Sub + + + Private Sub TextBOx_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) + If e.KeyCode = Keys.Enter AndAlso e.Control Then + Try + Dim Field As String = (CType(sender, MyTb).DataBindings.Item("text").BindingMemberInfo.BindingField) + For Each Dr As DataRow In Dt.Select(Me.bs.Filter, "") + Dr(Field) = CType(sender, MyTb).Text + Next + Work_msg_timer("모든값이 변경되었습니다", 25) + Catch ex As Exception + + End Try + + End If + End Sub + Private Sub Cmd_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) + If e.KeyCode = Keys.Enter AndAlso e.Control Then + Try + Dim Field As String = (CType(sender, MyCmb).DataBindings.Item("selectedvalue").BindingMemberInfo.BindingField) + For Each Dr As DataRow In Dt.Select(Me.bs.Filter, "") + Dr(Field) = CType(sender, MyCmb).SelectedValue + Next + Work_msg_timer("모든값이 변경되었습니다", 25) + Catch ex As Exception + + End Try + End If + End Sub + Private Sub ComboBox_MouseHover(ByVal sender As Object, ByVal e As System.EventArgs) + If CType(sender, ComboBox).SelectedIndex = -1 Then Return + Me.ToolTip1.SetToolTip(CType(sender, ComboBox), CType(sender, ComboBox).DataBindings("selectedvalue").BindingMemberInfo.BindingMember & vbCrLf & CType(sender, ComboBox).SelectedValue.ToString) + + End Sub +#End Region +#Region "ComboxBox Binding" + + Private Sub ShowHistory() + AddDebug("ShowHistory") + + Dim drv As DataRowView = Me.bs.Current + Dim f As New Frm_History("tbl_myoun", drv("code").ToString) + If f.ShowDialog = DialogResult.OK Then + drv(f.colname) = f.val + Me.Validate() + Me.bs.EndEdit() + My.Application.DoEvents() + MsgBox("값이 변경되었습니다", MsgBoxStyle.Information, "확인") + End If + End Sub + Private Sub TblColumnChanging(ByVal sender As Object, ByVal e As System.Data.DataColumnChangeEventArgs) + + Dim oval As String = e.Row(e.Column.ColumnName).ToString + Dim nval As String = e.ProposedValue.ToString + + AddDebug(String.Format("♠TblColumnChanging {0} {1}->{2}", e.Column.ColumnName, oval, nval)) + + If oval <> nval Then + Dim newdr As DS2.historyRow = DSHistory.history.NewhistoryRow + newdr.time = Now.ToString("yyyy-MM-dd HH:mm:ss") + newdr.tablename = "tbl_myoun" + newdr.ovalue = oval + newdr.nvalue = nval + newdr.column = e.Column.ColumnName + newdr.code = e.Row("code").ToString + DSHistory.history.AddhistoryRow(newdr) + DSHistory.history.AcceptChanges() + End If + End Sub + + + 'Private Sub TblColumnChanged(ByVal sender As Object, ByVal e As System.Data.DataColumnChangeEventArgs) + ' AddDebug("♠TblColumnChanged") + + ' Dim oval As String = e.Row(e.Column.ColumnName).ToString + ' Dim nval As String = e.ProposedValue.ToString + + ' Select Case e.Column.Caption.Trim + ' Case "건축부위방식" + ' If e.ProposedValue.ToString = "내벽" OrElse e.ProposedValue.ToString = "간벽" OrElse e.ProposedValue.ToString = "내부창" Then + ' 'e.Row("방위") = "일사없음" '//언제바뀌엇는지 모름, 재확인 160327 + ' End If + ' Me.bs.EndEdit() + ' End Select + + ' '//값이 바뀌는 내역을 모두 저장한다. 시간,필드,이전값,바뀐값,테이블 + 'End Sub + + Private Sub MdiMain_FormClosed(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosedEventArgs) Handles Me.FormClosed + AddDebug("MdiMain_FormClosed") + + RemoveHandler DSET1.tbl_myoun.TableNewRow, AddressOf TblAddNew + RemoveHandler DSET1.tbl_myoun.ColumnChanging, AddressOf TblColumnChanging + + CEnergy.ARINCLASS.SaveLoad_FrmSetting(Me, Me.bs.Position, True) + CEnergy.ARINCLASS.Save_LastPos_Frm(Me.Name & "1", Me.bszone.Position) + CEnergy.ARINCLASS.Save_LastZone(Me.Name, Me.SelectedZoneName) '//선택된 존의 이름을 저장 + 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 + If Me.bs.Position < Me.bs.Count Then Me.bs.Position += 1 + Else + If Me.bs.Position > 0 Then Me.bs.Position -= 1 + End If + Me.Validate() + My.Application.DoEvents() + End Sub + Private Sub MdiMain_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown + Select Case e.KeyCode + Case Keys.F12 + ShowHistory() + Case Keys.A + If e.Alt Then + bt_add.PerformClick() + End If + End Select + End Sub + + Private Function GetMaxCode(ByVal dt As DataTable) As String + AddDebug("GetMaxCode") + Try + Dim Dr As DataRow = dt.Select("", "code desc")(0) + Return Format(CInt(Dr("code")) + 1, "00000") + Catch ex As Exception + Return "00001" + End Try + End Function + + Private Sub Cmb_DeleteVal(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) + AddDebug("Cmb_DeleteVal") + If e.KeyCode = Keys.Delete Then + CType(sender, ComboBox).SelectedValue = "" + End If + End Sub + +#Region "제어버튼" + + + Private Sub ToolStripButton48_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt_add.Click + If Not EndEdit(Me.bs) Then Return + + 'If Me.FilterMode Then + ' If MsgBox("현재 필터적용상태에서는 추가할 수 없습니다" & vbCrLf & "필터상태를 해제하시겠습니까?", MsgBoxStyle.Information Or MsgBoxStyle.OkCancel, "확인") <> MsgBoxResult.Ok Then + ' Return '//필터상태에서는 추가불가 / 다른존의 값이 들어갈수있음(방지코드) + ' Else + ' Me.FilterMode = False + ' MsgBox("추가할 존을 다시 선택하세요", MsgBoxStyle.Information, "확인") + ' Return + ' End If + 'End If + + If Me.SelectedZone = "" Then + MsgBox("선택된 존이없으므로 추가할 수 없습니다.", MsgBoxStyle.Critical, "확인") + Return + End If + + '//Me.cmb_gubun.SelectedIndex = 0 + Me.bs.AddNew() + INitRow(Me.Controls) + '//추가한후에 + Me.cmb_열관류율.Text = Me.cmb_gubun.Text + '//이게 콤보넣을떄인데요. 면의형태의 값을.. 어디다가 넣으시게요? + + Dim Dr1() As DS.tbl_ykRow = DSET1.tbl_yk.Select("설명='" & Me.cmb_gubun.Text & "'") + If Dr1.GetUpperBound(0) = 0 Then '//해당데이터가 찾아졋을경우에 + + + Dim dr2() As DS.tbl_commonRow = DSET1.tbl_common.Select("gubun='1088' and code='" & Dr1(0).면형태 & "'") + Dim 면형태 As String = dr2(0).name + Select Case 면형태 + Case "외벽(벽체)" + Me.cmb_건축부위방식.Text = "외벽" + Case "외벽(지붕)" + Me.cmb_건축부위방식.Text = "외벽" + Me.cmb_방위.Text = "수평" + Case "외벽(바닥)" + Me.cmb_건축부위방식.Text = "외벽" + Me.cmb_방위.Text = "일사없음" + Case "내벽(벽체)", "지중벽" + Me.cmb_건축부위방식.Text = "내벽" + Me.cmb_방위.Text = "일사없음" + Case "내벽(지붕)" + Me.cmb_건축부위방식.Text = "내벽" + Me.cmb_방위.Text = "일사없음" + Case "내벽(바닥)" + Me.cmb_건축부위방식.Text = "내벽" + Me.cmb_방위.Text = "일사없음" + Case "간벽" + Me.cmb_건축부위방식.Text = "간벽" + Me.cmb_방위.Text = "일사없음" + Case "외부창", "내부창" + If 면형태 = "외부창" Then + Me.cmb_건축부위방식.Text = "외부창" + Else + Me.cmb_건축부위방식.Text = "내부창" + Me.cmb_방위.Text = "일사없음" + End If + Dim Dr As DS.tbl_ykRow = DSET1.tbl_yk.Select("code='" & Me.cmb_열관류율.SelectedValue & "'")(0) + Me.tb_04.Text = Dr.투과율 + + Case Else + MsgBox("모르는값 " & Dr1(0).면형태 & "/" & 면형태) + End Select + Else + MsgBox("못찻음") + End If + MdiMain.RefreshMenuList(TreeTag) + End Sub + + + Private Sub ToolStripButton49_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt_Del.Click + 'MsgBox(Me.bs.ToString) + Dbbase.DelCrow(Me.bs, True) + MdiMain.RefreshMenuList(TreeTag) + End Sub + + Private Sub ToolStripButton51_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt_cancel.Click + If Not EndEdit(Me.bs) Then Return + Data_Cancel(DSET1.tbl_profile, Nothing) + MdiMain.RefreshMenuList(TreeTag) + End Sub + +#End Region + + Private Sub Binding_Zone() + AddDebug("Binding_Zone") + + '//구분 콤봅박스 + Me.cmb_gubun.Items.Clear() + For Each Dr As DS.tbl_ykRow In DSET1.tbl_yk.Select("") + Me.cmb_gubun.Items.Add(Dr.설명) + Next + '//콤보의 리스트가없는데 0번 지정하려니 오류난거에요 콤보는 여기서 만들어지니.. 이렇게 해야겟죠 + If Me.cmb_gubun.Items.Count > 0 Then Me.cmb_gubun.SelectedIndex = 0 + + Dim bs_건축부위방식 As New BindingSource(DSET1, "tbl_common") + bs_건축부위방식.Filter = "gubun='1067'" + bs_건축부위방식.Sort = "code" + Me.cmb_건축부위방식.DataSource = bs_건축부위방식 + cmb_건축부위방식.DisplayMember = "name" + cmb_건축부위방식.ValueMember = "name" + Me.cmb_건축부위방식.DataBindings.Add("selectedvalue", Me.bs, "건축부위방식") + AddHandler cmb_건축부위방식.KeyDown, AddressOf Cmb_DeleteVal + + Dim bs_블라인드유무 As New BindingSource(DSET1, "tbl_common") + bs_블라인드유무.Filter = "gubun='1032'" + bs_블라인드유무.Sort = "code" + Me.cmb_블라인드설치유무.DataSource = bs_블라인드유무 + cmb_블라인드설치유무.DisplayMember = "name" + cmb_블라인드설치유무.ValueMember = "name" + Me.cmb_블라인드설치유무.DataBindings.Add("selectedvalue", Me.bs, "블라인드유무") + AddHandler cmb_블라인드설치유무.KeyDown, AddressOf Cmb_DeleteVal + + Dim bs_블라인드위치 As New BindingSource(DSET1, "tbl_common") + bs_블라인드위치.Filter = "gubun='1068'" + bs_블라인드위치.Sort = "code" + Me.cmb_블라인드위치.DataSource = bs_블라인드위치 + cmb_블라인드위치.DisplayMember = "name" + cmb_블라인드위치.ValueMember = "name" + Me.cmb_블라인드위치.DataBindings.Add("selectedvalue", Me.bs, "블라인드위치") + AddHandler cmb_블라인드위치.KeyDown, AddressOf Cmb_DeleteVal + + Dim bs_방위 As New BindingSource(DSET1, "tbl_common") + bs_방위.Filter = "gubun='1007'" + bs_방위.Sort = "code" + Me.cmb_방위.DataSource = bs_방위 + cmb_방위.DisplayMember = "name" + cmb_방위.ValueMember = "name" + Me.cmb_방위.DataBindings.Add("selectedvalue", Me.bs, "방위") + AddHandler cmb_방위.KeyDown, AddressOf Cmb_DeleteVal + + Dim bs_블라인드종류 As New BindingSource(DSET1, "tbl_common") + bs_블라인드종류.Filter = "gubun='1069'" + bs_블라인드종류.Sort = "code" + Me.cmb_블라인드종류.DataSource = bs_블라인드종류 + cmb_블라인드종류.DisplayMember = "name" + cmb_블라인드종류.ValueMember = "name" + Me.cmb_블라인드종류.DataBindings.Add("selectedvalue", Me.bs, "블라인드빛종류") + AddHandler cmb_블라인드종류.KeyDown, AddressOf Cmb_DeleteVal + + Dim bs_블라인드색상 As New BindingSource(DSET1, "tbl_common") + bs_블라인드색상.Filter = "gubun='1070'" + bs_블라인드색상.Sort = "code" + Me.cmb_블라인드색상.DataSource = bs_블라인드색상 + cmb_블라인드색상.DisplayMember = "name" + cmb_블라인드색상.ValueMember = "name" + Me.cmb_블라인드색상.DataBindings.Add("selectedvalue", Me.bs, "블라인드색상") + AddHandler cmb_블라인드색상.KeyDown, AddressOf Cmb_DeleteVal + + + Dim bs_블라인드각도 As New BindingSource(DSET1, "tbl_common") + bs_블라인드각도.Filter = "gubun='1071'" + bs_블라인드각도.Sort = "code" + Me.cmb_블라인드각도.DataSource = bs_블라인드각도 + cmb_블라인드각도.DisplayMember = "name" + cmb_블라인드각도.ValueMember = "name" + Me.cmb_블라인드각도.DataBindings.Add("selectedvalue", Me.bs, "블라인드각도") + AddHandler cmb_블라인드각도.KeyDown, AddressOf Cmb_DeleteVal + + + Dim bs_존분류 As New BindingSource(DSET1, "tbl_zone") + bs_존분류.Sort = "code" + Me.cmb_존분류.DataSource = bs_존분류 + cmb_존분류.DisplayMember = "그룹설명" + cmb_존분류.ValueMember = "code" + Me.cmb_존분류.DataBindings.Add("selectedvalue", Me.bs, "존분류") + AddHandler cmb_존분류.KeyDown, AddressOf Cmb_DeleteVal + + Dim bs_대차존 As New BindingSource(DSET1, "tbl_zone") + bs_대차존.Sort = "code" + Me.cmb_대차존.DataSource = bs_대차존 + cmb_대차존.DisplayMember = "설명" + cmb_대차존.ValueMember = "code" + Me.cmb_대차존.DataBindings.Add("selectedvalue", Me.bs, "대차대조존") + AddHandler cmb_대차존.KeyDown, AddressOf Cmb_DeleteVal + '//존연결해야한다. + + '//여긴괜찮아요 보이는게아네요 + Dim bs_열관류율2 As New BindingSource(DSET1, "tbl_yk") + bs_열관류율2.Sort = "code" + Me.cmb_열관류율.DataSource = bs_열관류율2 + cmb_열관류율.DisplayMember = "설명" + cmb_열관류율.ValueMember = "code" + Me.cmb_열관류율.DataBindings.Add("selectedvalue", Me.bs, "열관류율2") + AddHandler cmb_열관류율.KeyDown, AddressOf Cmb_DeleteVal + + End Sub + + +#End Region + + ''' + ''' 콤보박스등에의한 개체의 활성화여부를 확인 + ''' + ''' + Private Sub Validate_Control() + + AddDebug("Validate_Control") + + If Not Init Then Return + If Me.isCopy Then Return + + Try + If Me.cmb_블라인드설치유무.Text = "유" Then + Me.cmb_블라인드위치.Enabled = True + Me.cmb_블라인드각도.Enabled = True + Me.cmb_블라인드색상.Enabled = True + Me.cmb_블라인드종류.Enabled = True + Else + Me.cmb_블라인드위치.Enabled = False + Me.cmb_블라인드각도.Enabled = False + Me.cmb_블라인드색상.Enabled = False + Me.cmb_블라인드종류.Enabled = False + End If + Me.bs.EndEdit() + Catch ex As Exception + Me.cmb_블라인드설치유무.SelectedIndex = 1 + End Try + + Try + If Me.cmb_열관류율.Text = "(없음)" OrElse Me.cmb_열관류율.Text = "" Then + Me.tb_03.Enabled = True + Me.cmb_건축부위방식.Enabled = True + Else + Me.tb_03.Enabled = False + Me.cmb_건축부위방식.Enabled = False + End If + Catch ex As Exception + + End Try + + Try + If Me.cmb_건축부위방식.Text = "내벽" OrElse Me.cmb_건축부위방식.Text = "간벽" Then + 'Me.cmb_방위.Text = "(없음)" '=========================2011.05.25 수정 + Me.cmb_방위.Enabled = False + Else + Me.cmb_방위.Enabled = True + End If + + '//160327 방위와 활성화여부를 동일하게한다 + Me.rad1.Enabled = Me.cmb_방위.Enabled + Me.rad2.Enabled = Me.cmb_방위.Enabled + Me.rad3.Enabled = Me.cmb_방위.Enabled + Me.rad4.Enabled = Me.cmb_방위.Enabled + Me.rad5.Enabled = Me.cmb_방위.Enabled + Me.rad6.Enabled = Me.cmb_방위.Enabled + Me.rad7.Enabled = Me.cmb_방위.Enabled + Me.rad8.Enabled = Me.cmb_방위.Enabled + Me.rad9.Enabled = Me.cmb_방위.Enabled + Me.rad10.Enabled = Me.cmb_방위.Enabled + Me.rad0.Enabled = Me.cmb_방위.Enabled + + bs.EndEdit() + Catch ex As Exception + + End Try + + Try + If Me.cmb_건축부위방식.Text = "외부창" OrElse Me.cmb_건축부위방식.Text = "내부창" Then + Me.tb_04.Enabled = True + Me.tb_05.Enabled = True + Me.tb_06.Enabled = True + Else + 'Me.tb_04.Enabled = False + Me.tb_05.Enabled = False + Me.tb_06.Enabled = False + End If + Catch ex As Exception + + End Try + + + + Try + If Me.cmb_건축부위방식.Text = "외부창" OrElse Me.cmb_건축부위방식.Text = "내부창" Then + Me.GroupBox3.Enabled = True + Me.GroupBox4.Enabled = True + Else + Me.GroupBox3.Enabled = False + Me.GroupBox4.Enabled = False + End If + Catch ex As Exception + + End Try + Display_info() + + End Sub + Private Sub Display_info() + + AddDebug("Display_info") + + Dim WallArea As Decimal, WindowArea As Decimal + WallArea = 0 + WindowArea = 0 + + 'If Me.cmb_열관류율.SelectedIndex > 0 Then' + Dim 열관류율합 As Double + Dim 존수 As Integer = 0 + Dim 비연결 As Integer = 0 + Dim 비연결존 As String = "" + + 'ToolStripLabel2 + Dim 면데이터() As DS.tbl_myounRow = DSET1.tbl_myoun.Select("code <> '0' and (건축부위방식='외벽' or 건축부위방식 ='외부창' or 건축부위방식='내벽' or 건축부위방식 ='내부창')") + + ' Dim fn1 As String = My.Application.Info.DirectoryPath & "\t1.txt" + 'Dim fn2 As String = My.Application.Info.DirectoryPath & "\t2.txt" + Dim 열관없는갯수 As Integer = 0 + Try + For Each Dr입력면 As DS.tbl_myounRow In 면데이터 + Dim 열관 As Single = 0 + + If Dr입력면.열관류율2 = "0" OrElse Dr입력면.열관류율2 = "" Then + 열관없는갯수 += 1 + End If + + Dim Dryk As DS.tbl_ykRow = Nothing + If Dr입력면.열관류율2 <> "0" Then ' + Dryk = DSET1.tbl_yk.Select("code='" & Dr입력면.열관류율2 & "'")(0) + 열관 = TOSG(Dryk("열관류율").ToString) + Else '//선택안된경우 + 열관 = TOSG(Dr입력면.열관류율) + End If + + Dim 존코드 As String = Dr입력면.존분류 + Dim dr존() As DS.tbl_zoneRow = DSET1.tbl_zone.Select("code='" + 존코드 + "'") + If dr존.GetUpperBound(0) = -1 Then + 존수 = 1 + Else + If IsNumeric(dr존(0).입력존의수) Then + 존수 = CInt(dr존(0).입력존의수) + Else + 존수 = 1 + End If + End If + + Select Case Dr입력면.건축부위방식 + Case "외벽" + 열관류율합 += 열관 * 1 * TOSG(Dr입력면.건축부위면적) * 존수 + Case "내벽" + 열관류율합 += 열관 * 0.7 * TOSG(Dr입력면.건축부위면적) * 존수 + Case "외부창" + 열관류율합 += 열관 * 1 * TOSG(Dr입력면.건축부위면적) * 존수 + Case "내부창" + 열관류율합 += 열관 * 0.8 * TOSG(Dr입력면.건축부위면적) * 존수 + End Select + + '// Debug.WriteLine(Dr입력면.열관류율2 + "/" + Dr입력면.code + "/" + 열관.ToString() + "/" + Dr입력면.설명 + "/" + Dr입력면.건축부위면적.ToCharArray() + "/" + 존수.ToString() + "/" + 열관류율합.ToString(), True) + + If Dryk Is Nothing Then + 비연결 += 1 + + '//사용한 존 + If dr존 Is Nothing Then + Else + 비연결존 = dr존(0).설명 + "의 " + Dr입력면.설명 + End If + + + '//열관류 선택안된경우 + Select Case Dr입력면.건축부위방식 + Case "외벽" + If Dr입력면.방위 <> "수평" AndAlso Dr입력면.방위 <> "일사없음" AndAlso Dr입력면.방위 <> "(없음)" Then + WallArea = WallArea + TOSG(Dr입력면.건축부위면적) * 존수 + End If + Case "내벽" ' + WallArea = WallArea + TOSG(Dr입력면.건축부위면적) * 존수 + Case "외부창" + If Dr입력면.방위 <> "수평" AndAlso Dr입력면.방위 <> "일사없음" AndAlso Dr입력면.방위 <> "(없음)" Then + WindowArea = WindowArea + TOSG(Dr입력면.건축부위면적) * 존수 + End If + Case "내부창" + WindowArea = WindowArea + TOSG(Dr입력면.건축부위면적) * 존수 + End Select + + Else + + Dim 면형태이름 As String = Get_CName("1088", Dryk.면형태) + Select Case 면형태이름 + Case "외벽(벽체)" + WallArea = WallArea + TOSG(Dr입력면.건축부위면적) * 존수 + Case "내벽(벽체)" + WallArea = WallArea + TOSG(Dr입력면.건축부위면적) * 존수 + Case "외부창" + If Dr입력면.방위 <> "수평" AndAlso Dr입력면.방위 <> "일사없음" AndAlso Dr입력면.방위 <> "(없음)" Then + WindowArea = WindowArea + TOSG(Dr입력면.건축부위면적) * 존수 + End If + Case "내부창" + WindowArea = WindowArea + TOSG(Dr입력면.건축부위면적) * 존수 + End Select + End If + + 'Debug.WriteLine(Dr입력면.code + ":wall=" + WallArea.ToString() + ",win=" + WindowArea.ToString()) + Next + 'For Each Dr입력면 As DS.tbl_myounRow In DSET1.tbl_myoun.Select("건축부위방식='외부창'") + ' WindowArea = WindowArea + TOSG(Dr입력면.건축부위면적) * 존수 + 'Next + Catch ex As Exception + + End Try + + '//평균열관류율표시(140506) + Dim 평균열관류율 As Single + If WallArea + WindowArea = 0 Then + 평균열관류율 = (0.0F) + Else + 평균열관류율 = 열관류율합 / (WallArea + WindowArea) + End If + + 'ToolStripLabel2.Text = 면데이터.Length.ToString + "/" + 열관류율합.ToString + + lbl_cnt1.Text = TOST(WallArea) & " ㎡" + lbl_cnt2.Text = TOST(WindowArea) & " ㎡" + lbl_cnt4.Text = 평균열관류율.ToString("N3") & " W/㎡K" + + Dim r As Decimal + Try + r = WindowArea / (WallArea + WindowArea) * 100 + Catch ex As Exception + r = 0 '//게삭과정에 오류가낫다면 0처리합니다. + End Try + If WallArea + WindowArea = 0 Then + lbl_cnt3.Text = "0 %" + Else + lbl_cnt3.Text = r.ToString("N1") & " %" '//N1은 소수점 1자리 N0ㄴ소수점 없음 N다음에 숫자가 소수점 자릿수에요 + End If + + If 비연결 > 0 Then + ToolStrip1.Visible = False + Me.lbl_cnt4.Visible = False + If 비연결 > 1 Then + Me.ToolStripLabel11.Text = "해당 부위 확인 요망(" + 비연결존 + " 외 " + (비연결 - 1).ToString() + " 개)" + Else + Me.ToolStripLabel11.Text = "해당 부위 확인 요망(" + 비연결존 + ")" + End If + Else + ToolStrip1.Visible = True + Me.lbl_cnt4.Visible = True + Me.ToolStripLabel11.Text = "외벽평균열관류율:" + End If + End Sub + Private Sub cmb_블라인드설치유무_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmb_블라인드설치유무.SelectedIndexChanged + AddDebug("cmb_블라인드설치유무_SelectedIndexChanged") + Validate_Control() + End Sub + + Private Sub cmb_건축부위방식_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles cmb_건축부위방식.KeyDown + + If e.KeyCode = Keys.V And e.Control Then + + + + Me.isCopy = True + + Dim StartPos As Integer = Me.bs.Position '//현재 바인딩셋의 위치정보를 확인 + Dim CurPos As Integer = StartPos + + e.Handled = True + e.SuppressKeyPress = False + '//클립보드붙여넣기 + Dim CB() As String = My.Computer.Clipboard.GetText.Split(CChar(vbCrLf)) + If CB.GetUpperBound(0) <> 18 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() '//한줄추가 + + Dim Cnt As Short = 0 + For i As Integer = 0 To CB.GetUpperBound(0) + Select Case i + Case 0 '//설명 + CType(Me.bs.Current, DataRowView)("설명") = CB(i).Split(CChar(vbTab))(ii).Trim + Case 0 + 3 '//사용프로필 앞에 두개를 숫자4자로변환 + If CB(i).Split(CChar(vbTab))(ii).Trim = "" Then + Me.cmb_건축부위방식.SelectedIndex = 0 + Else + Me.cmb_건축부위방식.Text = CB(i).Split(CChar(vbTab))(ii).Trim + End If + + ' Me.cmb_건축부위방식.Text = CStr(IIf(CB(i).Trim = "", "0", CB(i).Trim)) + Case 1 + 3 '//공란 + If CB(i).Split(CChar(vbTab))(ii).Trim = "" Then + Me.cmb_방위.SelectedIndex = 0 + Else + Me.cmb_방위.Text = CB(i).Split(CChar(vbTab))(ii).Trim + End If + + 'Me.cmb_방위.Text = CStr(IIf(CB(i).Trim = "", "0", CB(i).Trim)) + Case 2 + 3 '//면적 + Me.tb_02.Text = CB(i).Split(CChar(vbTab))(ii).Trim + Case 3 + 3 + Me.cmb_열관류율.SelectedIndex = 0 '//사용자입력이므로 사용안함으로 변경 + Me.tb_03.Text = CB(i).Split(CChar(vbTab))(ii).Trim + Case 4 + 3 + Me.tb_04.Text = CB(i).Split(CChar(vbTab))(ii).Trim + Case 5 + 3 + Me.tb_05.Text = Val(CB(i).Split(CChar(vbTab))(ii).Trim).ToString + Case 6 + 3 + Me.tb_06.Text = Val(CB(i).Split(CChar(vbTab))(ii).Trim).ToString + Case 7 + 3 + If CB(i).Split(CChar(vbTab))(ii).Trim = "" Then + Me.cmb_블라인드설치유무.SelectedIndex = 0 + Else + Me.cmb_블라인드설치유무.Text = CB(i).Split(CChar(vbTab))(ii).Trim + End If + + 'Me.cmb_블라인드설치유무.Text = CStr(IIf(CB(i).Trim = "", "0", CB(i).Trim)) + Case 8 + 3 + If CB(i).Split(CChar(vbTab))(ii).Trim = "" Then + Me.cmb_블라인드위치.SelectedIndex = 0 + Else + Me.cmb_블라인드위치.Text = CB(i).Split(CChar(vbTab))(ii).Trim + End If + + 'Me.cmb_블라인드위치.Text = CStr(IIf(CB(i).Trim = "", "0", CB(i).Trim)) + Case 9 + 3 + If CB(i).Split(CChar(vbTab))(ii).Trim = "" Then + Me.cmb_블라인드각도.SelectedIndex = 0 + Else + Me.cmb_블라인드각도.Text = CB(i).Split(CChar(vbTab))(ii).Trim + End If + + 'Me.cmb_블라인드각도.Text = CStr(IIf(CB(i).Trim = "", "0", CB(i).Trim)) + Case 10 + 3 + If CB(i).Split(CChar(vbTab))(ii).Trim = "" Then + Me.cmb_블라인드종류.SelectedIndex = 0 + Else + Me.cmb_블라인드종류.Text = CB(i).Split(CChar(vbTab))(ii).Trim + + End If + ' Me.cmb_블라인드종류.Text = CStr(IIf(CB(i).Trim = "", "0", CB(i).Trim)) + Case 11 + 3 + If CB(i).Split(CChar(vbTab))(ii).Trim = "" Then + Me.cmb_블라인드색상.SelectedIndex = 0 + Else + Me.cmb_블라인드색상.Text = CB(i).Split(CChar(vbTab))(ii).Trim + End If + 'Me.cmb_블라인드색상.Text = CStr(IIf(CB(i).Trim = "", "0", CB(i).Trim)) + Case 12 + 3 + Case 13 + 3 + If CB(i).Split(CChar(vbTab))(ii).Trim = "" Then + Me.cmb_존분류.SelectedIndex = 0 + Else + Me.cmb_존분류.Text = CB(i).Split(CChar(vbTab))(ii).Trim + End If + ' Me.cmb_존분류.Text = CStr(IIf(CB(i).Trim = "", "0", CB(i).Trim)) + Case 14 + 3 + If CB(i).Split(CChar(vbTab))(ii).Trim = "" Then + Me.cmb_대차존.SelectedIndex = 0 + Else + Me.cmb_대차존.Text = CB(i).Split(CChar(vbTab))(ii).Trim + End If + ' Me.cmb_대차존.Text = CStr(IIf(CB(i).Trim = "", "0", CB(i).Trim)) + End Select + Next + Next + Me.bs.EndEdit() + Me.isCopy = False + Me.Validate_Control() + End If + End Sub + + Private Sub bs_CurrentChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bs.CurrentChanged + + AddDebug("▶bs_CurrentChanged") + + If Not Init Then Return + Me.bs.EndEdit() + Dim drv As DataRowView = Me.bs.Current + If drv Is Nothing Then Return + Dim dr As DS.tbl_myounRow = drv.Row + + If dr.차양각선택 = "1" Then + Me.rad_수평직입력.Checked = True + Else + Me.rad_차양각입력.Checked = True + End If + + 'refresh차양각선택() + 'If Me.cmb_방위.Enabled = False Then Me.rad0.Checked = True '======================2011.05.25 수정 + End Sub + + Private Function R2d(radian As Double) As Double + Return radian * 180 / Math.PI + End Function + + Private Sub refresh차양각선택() + AddDebug("refresh차양각선택") + + If rad_차양각입력.Checked Then + If MyTb3.Text <> Me.tb_05.Text Then Me.tb_05.Text = MyTb3.Text + If MyTb2.Text <> Me.tb_06.Text Then Me.tb_06.Text = MyTb2.Text + Else + If TOSG(MyTb7.Text) = 0 Then '==================================2014.03.04 수정 + If Me.tb_05.Text <> "0" Then Me.tb_05.Text = "0" + Else + Dim datastr As String = Math.Round(R2d(Math.Atan(TOSG(MyTb5.Text) / TOSG(MyTb7.Text))), 1) + If datastr <> Me.tb_05.Text Then Me.tb_05.Text = datastr ' = Math.Round(R2d(Math.Atan(TOSG(MyTb5.Text) / TOSG(MyTb7.Text))), 1) '==================================2014.03.04 수정 + End If + + If TOSG(MyTb6.Text) = 0 Then '==================================2014.03.04 수정 + If Me.tb_06.Text <> "0" Then Me.tb_06.Text = "0" + Else + Dim datastr As String = Math.Round(R2d(Math.Atan(TOSG(MyTb4.Text) / TOSG(MyTb6.Text))), 1) + If datastr <> Me.tb_06.Text Then Me.tb_06.Text = datastr ' Math.Round(R2d(Math.Atan(TOSG(MyTb4.Text) / TOSG(MyTb6.Text))), 1) '==================================2014.03.04 수정 + End If + End If + End Sub + + + Private Sub ToolStripButton49_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) + If e.Button = Windows.Forms.MouseButtons.Right Then + If MsgBox("전체삭제를 하시겠습니까?", MsgBoxStyle.Information Or MsgBoxStyle.OkCancel, "확인") = MsgBoxResult.Ok Then + Dim dR() As DataRow = DSET1.tbl_myoun.Select(Me.bs.Filter, "") + For i As Integer = dR.GetUpperBound(0) To 0 Step -1 + dR(i).Delete() + Next + DSET1.tbl_myoun.AcceptChanges() + End If + End If + End Sub + + 'Private Sub ToolStripComboBox1_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles cmb_gubun.SelectedIndexChanged + ' If Me.cmb_gubun.Text = "전체" Then + ' bs.Filter = "code <> '0'" + ' Else + ' bs.Filter = "code <> '0' and 건축부위방식 like '" & Me.cmb_gubun.Text & "%'" + ' End If + 'End Sub + + Private Sub cmb_건축부위방식_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmb_건축부위방식.SelectedIndexChanged + AddDebug("cmb_건축부위방식_SelectedIndexChanged") + Validate_Control() + End Sub + + Private Sub bt_Del_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles bt_Del.MouseDown + If e.Button = Windows.Forms.MouseButtons.Right Then + If MsgBox("전체삭제를 하시겠습니까?", MsgBoxStyle.Information Or MsgBoxStyle.OkCancel, "확인") = MsgBoxResult.Ok Then + Dim dR() As DataRow = DSET1.tbl_myoun.Select(Me.bs.Filter, "") + For i As Integer = dR.GetUpperBound(0) To 0 Step -1 + dR(i).Delete() + Next + + DSET1.tbl_myoun.AcceptChanges() + End If + End If + End Sub + + Private Sub dv_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles dv.MouseUp + If Prj.UserAuthType = "ADMIN" OrElse Prj.UserAuthType = "BOTH" OrElse Prj.UserAuthType = "BOTH2" OrElse Prj.UserAuthType = "BOTH1" Then '//2011.03.08 추가 + If e.Button = Windows.Forms.MouseButtons.Right Then + + AddDebug("dv_MouseUp-right") + + Dim Frm_FilterA As New Frm_Filter + + Frm_FilterA.ColumTitle = getColCaption(Me.DT) + Frm_FilterA.ColumList = getColName(Me.DT) + Frm_FilterA.Colorlist = "존분류,대차대조존" + Frm_FilterA.Numfield = "건축부위면적,열관류율,투과율" '//20100618 Color 리스트처럼 , 구분해서 필드들을 모두 넣으세요.(=, >= 등을 사용하기 위해서는 해당 항목을 추가 요망) + Frm_FilterA.Default_Filter = "code <> '0'" + '//Frm_Filter.Default_Filter = "존분류='" & Me.SelectedZone & "' and code <> '0'" + + 'Me.FilterMode = False + MsgBox("화면필터값은 적용이 되지않습니다" & vbCrLf & "바꾸기 기능만 사용가능", MsgBoxStyle.Information, "확인") + If Frm_FilterA.ShowDialog <> Windows.Forms.DialogResult.OK Then Return '//창떳을떄 확인아ㅣ고 취소눌르면 다음을 수행하지않는다는거에요. + 'Me.FilterMode = True + Dim Filter As String = Frm_FilterA.tb_filter.Text '//값은 아까 그 텍박에 잇구요. + Try + 'Me.bs.Filter = Filter + '//바꾸기값이 있으면 변경 20100618 + If Frm_FilterA.cmb_fieldc.SelectedIndex >= 0 AndAlso Frm_FilterA.cmb_fieldc.Text.ToLower <> "code" AndAlso _ + Frm_FilterA.tb_valuec.Text <> "" Then + Dim Drow() As DataRow = Me.DT.Select(Filter) + Dim i As Integer = 0 + For Each Dr As DataRow In Drow + Dr(Frm_FilterA.cmb_fieldc.Text) = Frm_FilterA.tb_valuec.Text + i += 1 + Next + MsgBox("'" & i & "'개 바꾸기 완료", MsgBoxStyle.Information, "확인") + End If + + Catch ex As Exception + 'Me.bs.Filter = "" + End Try + End If + End If + End Sub + Private Sub dv_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles dv.KeyDown + '//여기보시면 alt+d 누르면 한줄을 경고없이(falsE)삭제하도록 햇어요.. 사실원래 밋alt +d 인데.. ㅎㅎ 잘못해서 ctrl 됫다는 + If Prj.UserAuthType = "ADMIN" OrElse Prj.UserAuthType = "BOTH" OrElse Prj.UserAuthType = "BOTH2" OrElse Prj.UserAuthType = "BOTH1" OrElse Prj.UserAuthType = "BOTH0" Then '//2011.03.08 추가 + Select Case e.KeyCode + Case Keys.D + If e.Alt Then + Dbbase.DelCrow(Me.bs, False) + End If + Case Keys.C + If e.Control Then + Me.SrcDrv = Me.bs.Current + If Me.SrcDrv Is Nothing Then + MsgBox("저장할 ROW가 없습니다", MsgBoxStyle.Information, "확인") + Return + End If + ' My.Computer.Clipboard.SetData("ZDATA", Drv) + End If + Case Keys.V + If e.Control Then + If Me.SrcDrv Is Nothing Then Return + Me.bt_add.PerformClick() '//신규추가 + Dim NewDrv As DataRowView = Me.bs.Current + + For Each C As DataColumn In Me.DT.Columns + If C.ColumnName.ToUpper = "CODE" Then + + + + + ElseIf C.ColumnName.ToUpper = "설명" Then + + Dim newname As String = SrcDrv(C.ColumnName) & "#Copy" + + For i As Integer = 1 To 999 '//160327복제시 뒷부분을 자동 계산하도록 수정 + Dim newname2 As String = SrcDrv(C.ColumnName) & "#" & i.ToString() + If DSET1.tbl_myoun.Select("설명='" + newname2 + "'").Length < 1 Then + NewDrv(C.ColumnName) = newname2 + Exit For + End If + Next + + ElseIf C.ColumnName.ToUpper = "SORTKEY" Then + NewDrv(C.ColumnName) = SrcDrv(C.ColumnName) + + ' NewDrv(C.ColumnName) = SrcDrv(C.ColumnName) & "#1" + Else + NewDrv(C.ColumnName) = SrcDrv(C.ColumnName) + End If + Next + Me.bs.EndEdit() + bs.MoveLast() + End If + End Select + End If + End Sub + + Private Sub tb_02_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles tb_02.TextChanged + AddDebug("tb_02_TextChanged") + Display_info() 'Validate_Control() + End Sub + + Private Sub cmb_열관류율_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmb_열관류율.SelectedIndexChanged + 'If Not Init Then Return '//초기화전에는 작동하지 않는다. + AddDebug("cmb_열관류율_SelectedIndexChanged") + If Me.cmb_열관류율.SelectedIndex > 0 Then + ' Me.tb_03.Text = "" + Me.tb_03.Enabled = False + Me.cmb_건축부위방식.Enabled = False + ' MsgBox(Me.cmb_열관류율.SelectedValue) + + Try + Dim Dr As DS.tbl_ykRow = DSET1.tbl_yk.Select("code='" & Me.cmb_열관류율.SelectedValue & "'")(0) + Dim dr2() As DS.tbl_commonRow = DSET1.tbl_common.Select("gubun='1088' and code='" & Dr("면형태").ToString & "'") + Dim 면형태 As String = dr2(0).name + Me.MyTb1.Text = Dr("열관류율").ToString + + 'If 면형태.IndexOf("(지붕)") <> -1 Then + ' rad9.Checked = True + ' Me.tb_04.Text = "0" + 'ElseIf 면형태.IndexOf("(바닥)") <> -1 Then + ' rad10.Checked = True + ' Me.tb_04.Text = "0" + 'End If + + Select Case 면형태 + Case "외벽(벽체)" + Me.cmb_건축부위방식.Text = "외벽" + Me.tb_04.Text = "0" + Case "외벽(지붕)" + Me.cmb_건축부위방식.Text = "외벽" + Me.cmb_방위.Text = "수평" + Me.tb_04.Text = "0" + Case "외벽(바닥)" + Me.cmb_건축부위방식.Text = "외벽" + Me.cmb_방위.Text = "일사없음" + Me.tb_04.Text = "0" + Case "내벽(벽체)", "지중벽" + Me.cmb_건축부위방식.Text = "내벽" + Me.cmb_방위.Text = "일사없음" + Me.tb_04.Text = "0" + Case "내벽(지붕)" + Me.cmb_건축부위방식.Text = "내벽" + Me.cmb_방위.Text = "일사없음" + Me.tb_04.Text = "0" + Case "내벽(바닥)" + Me.cmb_건축부위방식.Text = "내벽" + Me.cmb_방위.Text = "일사없음" + Me.tb_04.Text = "0" + Case "간벽" + Me.cmb_건축부위방식.Text = "간벽" + Me.cmb_방위.Text = "일사없음" + Me.tb_04.Text = "0" + Case "외부창", "내부창" + If 면형태 = "외부창" Then + Me.cmb_건축부위방식.Text = "외부창" + Else + Me.cmb_건축부위방식.Text = "내부창" + Me.cmb_방위.Text = "일사없음" + End If + + + + Me.tb_04.Text = Dr.투과율 + + + Case Else + MsgBox("모르는값 " & Dr("면형태").ToString & "/" & 면형태) + End Select + Catch ex As Exception + Me.MyTb1.Text = ex.Message.ToString + End Try + + ElseIf Me.cmb_열관류율.SelectedIndex = -1 Then + Me.cmb_열관류율.SelectedIndex = 0 '//ㅣ본없음으로 + Me.tb_03.Enabled = True + 'Me.tb_03.Focus() + Me.MyTb1.Text = "" + Me.cmb_건축부위방식.Enabled = True + Else + Me.tb_03.Enabled = True + 'Me.tb_03.Focus() + Me.MyTb1.Text = "" + Me.cmb_건축부위방식.Enabled = True + End If + + Validate() + Validate_Control() + Me.bs.EndEdit() + + + End Sub + + Private Sub bszone_CurrentChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bszone.CurrentChanged + + AddDebug("bszone_CurrentChanged") + + 'If Me.FilterMode Then + ' Me.FilterMode = False + ' MsgBox("필터적용상태가 해제되었습니다", MsgBoxStyle.Information, "확인") + 'End If + Dim drv As DataRowView = Me.bszone.Current + If drv Is Nothing Then + Me.SelectedZone = "" + Me.SelectedZoneName = "" + Else + Me.SelectedZone = drv("code").ToString + Me.SelectedZoneName = drv("설명").ToString + End If + Dim Filter As String + 'Me.FilterMode = False + Filter = "존분류='" & SelectedZone & "' and code <> '0'" + Try + Me.bs.Filter = Filter + Catch ex As Exception + Me.bs.Filter = "code <> '0'" + End Try + + End Sub + + + Private Sub RadioButton2_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles rad1.CheckedChanged, rad2.CheckedChanged, rad3.CheckedChanged, _ + rad4.CheckedChanged, rad5.CheckedChanged, rad6.CheckedChanged, rad7.CheckedChanged, rad8.CheckedChanged, rad9.CheckedChanged, rad10.CheckedChanged, rad0.CheckedChanged + + AddDebug("RadioButton2_CheckedChanged") + + + Dim Drv As DataRowView = Me.bs.Current + If Drv Is Nothing Then Return + '//콤보박스으 실제값하고 비교하셔서 이름 바꾸시구요. + If rad1.Checked Then Me.cmb_방위.Text = "북서" + If rad2.Checked Then Me.cmb_방위.Text = "서" + If rad3.Checked Then Me.cmb_방위.Text = "남서" + If rad4.Checked Then Me.cmb_방위.Text = "남" + If rad5.Checked Then Me.cmb_방위.Text = "남동" + If rad6.Checked Then Me.cmb_방위.Text = "동" + If rad7.Checked Then Me.cmb_방위.Text = "북동" + If rad8.Checked Then Me.cmb_방위.Text = "북" + If rad9.Checked Then Me.cmb_방위.Text = "수평" + If rad10.Checked Then Me.cmb_방위.Text = "일사없음" + If rad0.Checked Then Me.cmb_방위.Text = "(없음)" + + Me.bs.EndEdit() + Me.DT.AcceptChanges() + '//여기까지 라디오를 건들면 콤보가 움직이는게 됬구요.. + + + End Sub + + Private Sub cmb_방위_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmb_방위.SelectedIndexChanged + AddDebug("cmb_방위_SelectedIndexChanged") + + '//콤보의 값에따라서 라디오를 변경? + Select Case Me.cmb_방위.Text + Case "(없음)", "" + Me.rad0.Checked = True + Case "북서" + Me.rad1.Checked = True + Case "서" + Me.rad2.Checked = True + Case "남서" + Me.rad3.Checked = True + Case "남" + Me.rad4.Checked = True + Case "남동" + Me.rad5.Checked = True + Case "동" + Me.rad6.Checked = True + Case "북동" + Me.rad7.Checked = True + Case "북" + Me.rad8.Checked = True + Case "수평" + Me.rad9.Checked = True + Case "일사없음" + Me.rad10.Checked = True + End Select + End Sub + + Private Sub cmb_존분류_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmb_존분류.SelectedIndexChanged + AddDebug("cmb_존분류_SelectedIndexChanged") + Me.bs.EndEdit() + End Sub + + Private Sub dv_CellContentClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles dv.CellContentClick + + End Sub + + Private Sub Arindv1_CellContentClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles Arindv1.CellContentClick + + End Sub + + Private Sub ToolStripLabel2_Click(sender As System.Object, e As System.EventArgs) + + End Sub + + Private Sub RadioButton1_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles rad_차양각입력.CheckedChanged, rad_수평직입력.CheckedChanged + AddDebug("rad차양각,수평직입력 CheckedChanged") + + Me.MyTb2.Enabled = rad_차양각입력.Checked + Me.MyTb3.Enabled = rad_차양각입력.Checked + Me.Label1.Enabled = rad_차양각입력.Checked + Me.Label8.Enabled = rad_차양각입력.Checked + + Me.MyTb4.Enabled = Not rad_차양각입력.Checked + Me.MyTb5.Enabled = Not rad_차양각입력.Checked + Me.MyTb6.Enabled = Not rad_차양각입력.Checked + Me.MyTb7.Enabled = Not rad_차양각입력.Checked + + Me.Label9.Enabled = Not rad_차양각입력.Checked + Me.Label10.Enabled = Not rad_차양각입력.Checked + Me.Label12.Enabled = Not rad_차양각입력.Checked + Me.Label13.Enabled = Not rad_차양각입력.Checked + + Dim drv As DataRowView = Me.bs.Current + If Not drv Is Nothing Then + drv("차양각선택") = IIf(rad_수평직입력.Checked, "1", "0") + End If + refresh차양각선택() + End Sub + + Private Sub MyTb3_TextChanged(sender As System.Object, e As System.EventArgs) Handles MyTb2.TextChanged, MyTb3.TextChanged, MyTb4.TextChanged, MyTb5.TextChanged, MyTb6.TextChanged, MyTb7.TextChanged + + Dim tb As MyTb = CType(sender, MyTb) + AddDebug(String.Format("[{0}] TextChanged", tb.Name)) + refresh차양각선택() + + End Sub + + Private Sub ToolStrip2_MouseDoubleClick(sender As Object, e As System.Windows.Forms.MouseEventArgs) Handles ToolStrip2.MouseDoubleClick + If Prj.UserAuthType = "ADMIN" OrElse Prj.UserAuthType = "BOTH2" OrElse Prj.UserAuthType = "BOTH1" Then + If ToolStrip1.Visible = False Then + If MsgBox("열관류율탭과 자동연결을 진행합니까?", MsgBoxStyle.Information Or MsgBoxStyle.OkCancel, "확인") = MsgBoxResult.Ok Then + Try + Dim 열관류율코드 As String = 0 + Dim i As Integer = 0 + Dim j As Integer = 0 + DSET1.tbl_myoun.CaseSensitive = True + Dim 면() As DS.tbl_myounRow = DSET1.tbl_myoun.Select("code<>'0' and (열관류율2 = '0' or 열관류율2='') and 설명 <> ''") + For Each Dr As DS.tbl_myounRow In 면 + 'Dr(Frm_FilterA.cmb_fieldc.Text) = Frm_FilterA.tb_valuec.Text + + Dim Dryk() As DS.tbl_ykRow = DSET1.tbl_yk.Select("설명='" & Dr.설명 & "'") + Dim Find As Boolean = False + For Each Drykdetail As DS.tbl_ykRow In Dryk + If Drykdetail.설명 = Dr.설명 Then + 열관류율코드 = Drykdetail.code + Dr.열관류율2 = 열관류율코드 + Dr.열관류율 = "0" + Find = True + Exit For + End If + Next + If Find Then + '//있는 경우 + i += 1 + Else + j += 1 + '//없는 경우 + End If + + Next + Display_info() + MsgBox("'" & i & "'개 바꾸기 완료", MsgBoxStyle.Information, "확인") + + Catch ex As Exception + 'Me.bs.Filter = "" + End Try + + End If + End If + End If + + + End Sub + + + Private Sub dv_DataError(sender As System.Object, e As System.Windows.Forms.DataGridViewDataErrorEventArgs) Handles dv.DataError + + AddDebug("dv_DataError") + + Dim ermsg As String = String.Format("입력값에 오류가 있습니다" + vbCrLf + vbCrLf + "줄번호:{0},열번호{1}" + vbCrLf + _ + "메세지:{2}", e.RowIndex, e.ColumnIndex, e.Exception.Message) + + Select Case e.ColumnIndex + Case 0 + ermsg += vbCrLf + vbCrLf + "숫자만 입력하세요" + End Select + MsgBox(ermsg, MsgBoxStyle.Critical, "Error") + End Sub +End Class \ No newline at end of file diff --git a/ArinWarev1/Forms_Input/Frm_v20091231_ResultMax.Designer.vb b/ArinWarev1/Forms_Input/Frm_v20091231_ResultMax.Designer.vb new file mode 100644 index 0000000..f8e2b4e --- /dev/null +++ b/ArinWarev1/Forms_Input/Frm_v20091231_ResultMax.Designer.vb @@ -0,0 +1,215 @@ + _ +Partial Class Frm_v20091231_ResultMax + Inherits CForm + 'Form은 Dispose를 재정의하여 구성 요소 목록을 정리합니다. + _ + Protected Overrides Sub Dispose(ByVal disposing As Boolean) + Try + If disposing AndAlso components IsNot Nothing Then + components.Dispose() + End If + Finally + MyBase.Dispose(disposing) + End Try + End Sub + + 'Windows Form 디자이너에 필요합니다. + Private components As System.ComponentModel.IContainer + + '참고: 다음 프로시저는 Windows Form 디자이너에 필요합니다. + '수정하려면 Windows Form 디자이너를 사용하십시오. + '코드 편집기를 사용하여 수정하지 마십시오. + _ + Private Sub InitializeComponent() + Me.components = New System.ComponentModel.Container() + Me.DSR = New Eco2Ar.DSR() + Me.bsㅡ = New System.Windows.Forms.BindingSource(Me.components) + Me.최대냉난방부하DataGridView = New System.Windows.Forms.DataGridView() + Me.DataGridViewTextBoxColumn1 = 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.DataGridViewTextBoxColumn9 = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.DataGridViewTextBoxColumn10 = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.DataGridViewTextBoxColumn11 = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.DataGridViewTextBoxColumn12 = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.StatusStrip1 = New System.Windows.Forms.StatusStrip() + Me.lb_msg = New System.Windows.Forms.ToolStripStatusLabel() + CType(Me.DSR, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.bsㅡ, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.최대냉난방부하DataGridView, System.ComponentModel.ISupportInitialize).BeginInit() + Me.StatusStrip1.SuspendLayout() + Me.SuspendLayout() + ' + 'DSR + ' + Me.DSR.DataSetName = "DSR" + Me.DSR.SchemaSerializationMode = System.Data.SchemaSerializationMode.IncludeSchema + ' + 'bsㅡ + ' + Me.bsㅡ.DataMember = "최대냉난방부하" + Me.bsㅡ.DataSource = Me.DSR + ' + '최대냉난방부하DataGridView + ' + Me.최대냉난방부하DataGridView.AllowUserToAddRows = False + Me.최대냉난방부하DataGridView.AllowUserToDeleteRows = False + Me.최대냉난방부하DataGridView.AutoGenerateColumns = False + Me.최대냉난방부하DataGridView.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.AllCells + Me.최대냉난방부하DataGridView.Columns.AddRange(New System.Windows.Forms.DataGridViewColumn() {Me.DataGridViewTextBoxColumn1, Me.DataGridViewTextBoxColumn3, Me.DataGridViewTextBoxColumn4, Me.DataGridViewTextBoxColumn5, Me.DataGridViewTextBoxColumn6, Me.DataGridViewTextBoxColumn7, Me.DataGridViewTextBoxColumn8, Me.DataGridViewTextBoxColumn9, Me.DataGridViewTextBoxColumn10, Me.DataGridViewTextBoxColumn11, Me.DataGridViewTextBoxColumn12}) + Me.최대냉난방부하DataGridView.DataSource = Me.bsㅡ + Me.최대냉난방부하DataGridView.Dock = System.Windows.Forms.DockStyle.Fill + Me.최대냉난방부하DataGridView.Location = New System.Drawing.Point(0, 0) + Me.최대냉난방부하DataGridView.MultiSelect = False + Me.최대냉난방부하DataGridView.Name = "최대냉난방부하DataGridView" + Me.최대냉난방부하DataGridView.ReadOnly = True + Me.최대냉난방부하DataGridView.RowHeadersVisible = False + Me.최대냉난방부하DataGridView.RowTemplate.Height = 23 + Me.최대냉난방부하DataGridView.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect + Me.최대냉난방부하DataGridView.Size = New System.Drawing.Size(898, 482) + Me.최대냉난방부하DataGridView.TabIndex = 1 + ' + 'DataGridViewTextBoxColumn1 + ' + Me.DataGridViewTextBoxColumn1.DataPropertyName = "Zone" + Me.DataGridViewTextBoxColumn1.HeaderText = "Zone" + Me.DataGridViewTextBoxColumn1.Name = "DataGridViewTextBoxColumn1" + Me.DataGridViewTextBoxColumn1.ReadOnly = True + Me.DataGridViewTextBoxColumn1.Width = 63 + ' + 'DataGridViewTextBoxColumn3 + ' + Me.DataGridViewTextBoxColumn3.DataPropertyName = "최대난방기기부하" + Me.DataGridViewTextBoxColumn3.HeaderText = "최대난방기기부하" + Me.DataGridViewTextBoxColumn3.Name = "DataGridViewTextBoxColumn3" + Me.DataGridViewTextBoxColumn3.ReadOnly = True + Me.DataGridViewTextBoxColumn3.Width = 134 + ' + 'DataGridViewTextBoxColumn4 + ' + Me.DataGridViewTextBoxColumn4.DataPropertyName = "최대난방실내부하" + Me.DataGridViewTextBoxColumn4.HeaderText = "최대난방실내부하" + Me.DataGridViewTextBoxColumn4.Name = "DataGridViewTextBoxColumn4" + Me.DataGridViewTextBoxColumn4.ReadOnly = True + Me.DataGridViewTextBoxColumn4.Width = 134 + ' + 'DataGridViewTextBoxColumn5 + ' + Me.DataGridViewTextBoxColumn5.DataPropertyName = "난방최대가동시간" + Me.DataGridViewTextBoxColumn5.HeaderText = "난방최대가동시간" + Me.DataGridViewTextBoxColumn5.Name = "DataGridViewTextBoxColumn5" + Me.DataGridViewTextBoxColumn5.ReadOnly = True + Me.DataGridViewTextBoxColumn5.Width = 134 + ' + 'DataGridViewTextBoxColumn6 + ' + Me.DataGridViewTextBoxColumn6.DataPropertyName = "최대가열성능" + Me.DataGridViewTextBoxColumn6.HeaderText = "최대가열성능" + Me.DataGridViewTextBoxColumn6.Name = "DataGridViewTextBoxColumn6" + Me.DataGridViewTextBoxColumn6.ReadOnly = True + Me.DataGridViewTextBoxColumn6.Width = 108 + ' + 'DataGridViewTextBoxColumn7 + ' + Me.DataGridViewTextBoxColumn7.DataPropertyName = "최대냉방기기부하" + Me.DataGridViewTextBoxColumn7.HeaderText = "최대냉방기기부하" + Me.DataGridViewTextBoxColumn7.Name = "DataGridViewTextBoxColumn7" + Me.DataGridViewTextBoxColumn7.ReadOnly = True + Me.DataGridViewTextBoxColumn7.Width = 134 + ' + 'DataGridViewTextBoxColumn8 + ' + Me.DataGridViewTextBoxColumn8.DataPropertyName = "최대냉방실내부하" + Me.DataGridViewTextBoxColumn8.HeaderText = "최대냉방실내부하" + Me.DataGridViewTextBoxColumn8.Name = "DataGridViewTextBoxColumn8" + Me.DataGridViewTextBoxColumn8.ReadOnly = True + Me.DataGridViewTextBoxColumn8.Width = 134 + ' + 'DataGridViewTextBoxColumn9 + ' + Me.DataGridViewTextBoxColumn9.DataPropertyName = "냉방최대가동시간" + Me.DataGridViewTextBoxColumn9.HeaderText = "냉방최대가동시간" + Me.DataGridViewTextBoxColumn9.Name = "DataGridViewTextBoxColumn9" + Me.DataGridViewTextBoxColumn9.ReadOnly = True + Me.DataGridViewTextBoxColumn9.Width = 134 + ' + 'DataGridViewTextBoxColumn10 + ' + Me.DataGridViewTextBoxColumn10.DataPropertyName = "최대냉각성능" + Me.DataGridViewTextBoxColumn10.HeaderText = "최대냉각성능" + Me.DataGridViewTextBoxColumn10.Name = "DataGridViewTextBoxColumn10" + Me.DataGridViewTextBoxColumn10.ReadOnly = True + Me.DataGridViewTextBoxColumn10.Width = 108 + ' + 'DataGridViewTextBoxColumn11 + ' + Me.DataGridViewTextBoxColumn11.DataPropertyName = "최대가습성능" + Me.DataGridViewTextBoxColumn11.HeaderText = "최대가습성능" + Me.DataGridViewTextBoxColumn11.Name = "DataGridViewTextBoxColumn11" + Me.DataGridViewTextBoxColumn11.ReadOnly = True + Me.DataGridViewTextBoxColumn11.Width = 108 + ' + 'DataGridViewTextBoxColumn12 + ' + Me.DataGridViewTextBoxColumn12.DataPropertyName = "공조풍량" + Me.DataGridViewTextBoxColumn12.HeaderText = "공조풍량" + Me.DataGridViewTextBoxColumn12.Name = "DataGridViewTextBoxColumn12" + Me.DataGridViewTextBoxColumn12.ReadOnly = True + Me.DataGridViewTextBoxColumn12.Width = 82 + ' + 'StatusStrip1 + ' + Me.StatusStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.lb_msg}) + Me.StatusStrip1.Location = New System.Drawing.Point(0, 482) + Me.StatusStrip1.Name = "StatusStrip1" + Me.StatusStrip1.Size = New System.Drawing.Size(898, 22) + Me.StatusStrip1.TabIndex = 15 + Me.StatusStrip1.Text = "StatusStrip1" + ' + 'lb_msg + ' + Me.lb_msg.Name = "lb_msg" + Me.lb_msg.Size = New System.Drawing.Size(59, 17) + Me.lb_msg.Text = "<메세지>" + ' + 'Frm_v20091231_ResultMax + ' + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.None + Me.ClientSize = New System.Drawing.Size(898, 504) + Me.ControlBox = False + Me.Controls.Add(Me.최대냉난방부하DataGridView) + Me.Controls.Add(Me.StatusStrip1) + Me.Font = New System.Drawing.Font("돋움", 8.999999!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.Name = "Frm_v20091231_ResultMax" + Me.Text = "최대냉난방부하" + CType(Me.DSR, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.bsㅡ, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.최대냉난방부하DataGridView, System.ComponentModel.ISupportInitialize).EndInit() + Me.StatusStrip1.ResumeLayout(False) + Me.StatusStrip1.PerformLayout() + Me.ResumeLayout(False) + Me.PerformLayout() + + End Sub + Friend WithEvents DSR As Eco2Ar.DSR + Friend WithEvents bsㅡ As System.Windows.Forms.BindingSource + Friend WithEvents 최대냉난방부하DataGridView As System.Windows.Forms.DataGridView + Friend WithEvents DataGridViewTextBoxColumn1 As System.Windows.Forms.DataGridViewTextBoxColumn + Friend WithEvents DataGridViewTextBoxColumn2 As System.Windows.Forms.DataGridViewTextBoxColumn + Friend WithEvents DataGridViewTextBoxColumn3 As System.Windows.Forms.DataGridViewTextBoxColumn + Friend WithEvents DataGridViewTextBoxColumn4 As System.Windows.Forms.DataGridViewTextBoxColumn + Friend WithEvents DataGridViewTextBoxColumn5 As System.Windows.Forms.DataGridViewTextBoxColumn + Friend WithEvents DataGridViewTextBoxColumn6 As System.Windows.Forms.DataGridViewTextBoxColumn + Friend WithEvents DataGridViewTextBoxColumn7 As System.Windows.Forms.DataGridViewTextBoxColumn + Friend WithEvents DataGridViewTextBoxColumn8 As System.Windows.Forms.DataGridViewTextBoxColumn + Friend WithEvents DataGridViewTextBoxColumn9 As System.Windows.Forms.DataGridViewTextBoxColumn + Friend WithEvents DataGridViewTextBoxColumn10 As System.Windows.Forms.DataGridViewTextBoxColumn + Friend WithEvents DataGridViewTextBoxColumn11 As System.Windows.Forms.DataGridViewTextBoxColumn + Friend WithEvents DataGridViewTextBoxColumn12 As System.Windows.Forms.DataGridViewTextBoxColumn + Friend WithEvents StatusStrip1 As System.Windows.Forms.StatusStrip + Friend WithEvents lb_msg As System.Windows.Forms.ToolStripStatusLabel +End Class diff --git a/ArinWarev1/Forms_Input/Frm_v20091231_ResultMax.resx b/ArinWarev1/Forms_Input/Frm_v20091231_ResultMax.resx new file mode 100644 index 0000000..0491a54 --- /dev/null +++ b/ArinWarev1/Forms_Input/Frm_v20091231_ResultMax.resx @@ -0,0 +1,129 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + 109, 17 + + + 184, 17 + + + 248, 17 + + \ No newline at end of file diff --git a/ArinWarev1/Forms_Input/Frm_v20091231_ResultMax.vb b/ArinWarev1/Forms_Input/Frm_v20091231_ResultMax.vb new file mode 100644 index 0000000..c14a229 --- /dev/null +++ b/ArinWarev1/Forms_Input/Frm_v20091231_ResultMax.vb @@ -0,0 +1,30 @@ +Public Class Frm_v20091231_ResultMax + +#Region "data Base 변경여부및 적용방법" + + '''변경된내용을적용한다. + Public Overrides Function AcceptChanged() As Boolean + + Return True + End Function + + '''변경된내용이있다면 취소한다. + Public Overrides Function RejectChanged() As Boolean + + Return True + End Function + + '''데이터에변형이있었는가? + Public Overrides Function HasChanged() As Boolean + Return False + End Function + + + +#End Region + + + Private Sub Frm_v20091231_Result_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load + Me.bsㅡ.DataSource = DSETR1 + End Sub +End Class \ No newline at end of file diff --git a/ArinWarev1/Forms_Input/Frm_v20091231_ResultMon.Designer.vb b/ArinWarev1/Forms_Input/Frm_v20091231_ResultMon.Designer.vb new file mode 100644 index 0000000..d20bde3 --- /dev/null +++ b/ArinWarev1/Forms_Input/Frm_v20091231_ResultMon.Designer.vb @@ -0,0 +1,419 @@ + _ +Partial Class Frm_v20091231_ResultMon + Inherits CForm + + 'Form은 Dispose를 재정의하여 구성 요소 목록을 정리합니다. + _ + Protected Overrides Sub Dispose(ByVal disposing As Boolean) + Try + If disposing AndAlso components IsNot Nothing Then + components.Dispose() + End If + Finally + MyBase.Dispose(disposing) + End Try + End Sub + + 'Windows Form 디자이너에 필요합니다. + Private components As System.ComponentModel.IContainer + + '참고: 다음 프로시저는 Windows Form 디자이너에 필요합니다. + '수정하려면 Windows Form 디자이너를 사용하십시오. + '코드 편집기를 사용하여 수정하지 마십시오. + _ + Private Sub InitializeComponent() + Me.components = New System.ComponentModel.Container() + Me.DSR = New Eco2Ar.DSR() + Me.bs = New System.Windows.Forms.BindingSource(Me.components) + Me.dv01 = New System.Windows.Forms.DataGridView() + 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.DataGridViewTextBoxColumn9 = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.DataGridViewTextBoxColumn10 = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.DataGridViewTextBoxColumn11 = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.DataGridViewTextBoxColumn12 = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.DataGridViewTextBoxColumn13 = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.DataGridViewTextBoxColumn14 = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.존 = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.Zone = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.TabControl1 = New System.Windows.Forms.TabControl() + Me.TabPage1 = New System.Windows.Forms.TabPage() + Me.TabPage2 = New System.Windows.Forms.TabPage() + Me.TabPage3 = New System.Windows.Forms.TabPage() + Me.TabPage4 = New System.Windows.Forms.TabPage() + Me.TabPage5 = New System.Windows.Forms.TabPage() + Me.TabPage6 = New System.Windows.Forms.TabPage() + Me.TabPage7 = New System.Windows.Forms.TabPage() + Me.TabPage8 = New System.Windows.Forms.TabPage() + Me.TabPage9 = New System.Windows.Forms.TabPage() + Me.TabPage10 = New System.Windows.Forms.TabPage() + Me.TabPage11 = New System.Windows.Forms.TabPage() + Me.TabPage12 = New System.Windows.Forms.TabPage() + Me.StatusStrip1 = New System.Windows.Forms.StatusStrip() + Me.lb_msg = New System.Windows.Forms.ToolStripStatusLabel() + Me.bsz = New System.Windows.Forms.BindingSource(Me.components) + Me.DS = New Eco2Ar.DS() + CType(Me.DSR, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.bs, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.dv01, System.ComponentModel.ISupportInitialize).BeginInit() + Me.TabControl1.SuspendLayout() + Me.StatusStrip1.SuspendLayout() + CType(Me.bsz, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.DS, System.ComponentModel.ISupportInitialize).BeginInit() + Me.SuspendLayout() + ' + 'DSR + ' + Me.DSR.DataSetName = "DSR" + Me.DSR.SchemaSerializationMode = System.Data.SchemaSerializationMode.IncludeSchema + ' + 'bs + ' + Me.bs.DataMember = "월별에너지분석" + Me.bs.DataSource = Me.DSR + Me.bs.Filter = "월='M01'" + ' + 'dv01 + ' + Me.dv01.AllowUserToAddRows = False + Me.dv01.AllowUserToDeleteRows = False + Me.dv01.AllowUserToResizeRows = False + Me.dv01.AutoGenerateColumns = False + Me.dv01.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.AllCells + Me.dv01.Columns.AddRange(New System.Windows.Forms.DataGridViewColumn() {Me.DataGridViewTextBoxColumn4, Me.DataGridViewTextBoxColumn5, Me.DataGridViewTextBoxColumn6, Me.DataGridViewTextBoxColumn7, Me.DataGridViewTextBoxColumn8, Me.DataGridViewTextBoxColumn9, Me.DataGridViewTextBoxColumn10, Me.DataGridViewTextBoxColumn11, Me.DataGridViewTextBoxColumn12, Me.DataGridViewTextBoxColumn13, Me.DataGridViewTextBoxColumn14, Me.존, Me.Zone}) + Me.dv01.DataSource = Me.bs + Me.dv01.Dock = System.Windows.Forms.DockStyle.Fill + Me.dv01.Location = New System.Drawing.Point(0, 26) + Me.dv01.MultiSelect = False + Me.dv01.Name = "dv01" + Me.dv01.ReadOnly = True + Me.dv01.RowHeadersVisible = False + Me.dv01.RowTemplate.Height = 23 + Me.dv01.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect + Me.dv01.Size = New System.Drawing.Size(898, 456) + Me.dv01.TabIndex = 1 + ' + 'DataGridViewTextBoxColumn4 + ' + Me.DataGridViewTextBoxColumn4.DataPropertyName = "난방요구량열" + Me.DataGridViewTextBoxColumn4.HeaderText = "난방요구량열" + Me.DataGridViewTextBoxColumn4.Name = "DataGridViewTextBoxColumn4" + Me.DataGridViewTextBoxColumn4.ReadOnly = True + Me.DataGridViewTextBoxColumn4.Width = 108 + ' + 'DataGridViewTextBoxColumn5 + ' + Me.DataGridViewTextBoxColumn5.DataPropertyName = "난방요구량공조" + Me.DataGridViewTextBoxColumn5.HeaderText = "난방요구량공조" + Me.DataGridViewTextBoxColumn5.Name = "DataGridViewTextBoxColumn5" + Me.DataGridViewTextBoxColumn5.ReadOnly = True + Me.DataGridViewTextBoxColumn5.Width = 121 + ' + 'DataGridViewTextBoxColumn6 + ' + Me.DataGridViewTextBoxColumn6.DataPropertyName = "냉방요구량열" + Me.DataGridViewTextBoxColumn6.HeaderText = "냉방요구량열" + Me.DataGridViewTextBoxColumn6.Name = "DataGridViewTextBoxColumn6" + Me.DataGridViewTextBoxColumn6.ReadOnly = True + Me.DataGridViewTextBoxColumn6.Width = 108 + ' + 'DataGridViewTextBoxColumn7 + ' + Me.DataGridViewTextBoxColumn7.DataPropertyName = "냉방요구량공조" + Me.DataGridViewTextBoxColumn7.HeaderText = "냉방요구량공조" + Me.DataGridViewTextBoxColumn7.Name = "DataGridViewTextBoxColumn7" + Me.DataGridViewTextBoxColumn7.ReadOnly = True + Me.DataGridViewTextBoxColumn7.Width = 121 + ' + 'DataGridViewTextBoxColumn8 + ' + Me.DataGridViewTextBoxColumn8.DataPropertyName = "조명요구량" + Me.DataGridViewTextBoxColumn8.HeaderText = "조명요구량" + Me.DataGridViewTextBoxColumn8.Name = "DataGridViewTextBoxColumn8" + Me.DataGridViewTextBoxColumn8.ReadOnly = True + Me.DataGridViewTextBoxColumn8.Width = 95 + ' + 'DataGridViewTextBoxColumn9 + ' + Me.DataGridViewTextBoxColumn9.DataPropertyName = "급탕요구량" + Me.DataGridViewTextBoxColumn9.HeaderText = "급탕요구량" + Me.DataGridViewTextBoxColumn9.Name = "DataGridViewTextBoxColumn9" + Me.DataGridViewTextBoxColumn9.ReadOnly = True + Me.DataGridViewTextBoxColumn9.Width = 95 + ' + 'DataGridViewTextBoxColumn10 + ' + Me.DataGridViewTextBoxColumn10.DataPropertyName = "공조풍량" + Me.DataGridViewTextBoxColumn10.HeaderText = "공조풍량" + Me.DataGridViewTextBoxColumn10.Name = "DataGridViewTextBoxColumn10" + Me.DataGridViewTextBoxColumn10.ReadOnly = True + Me.DataGridViewTextBoxColumn10.Width = 82 + ' + 'DataGridViewTextBoxColumn11 + ' + Me.DataGridViewTextBoxColumn11.DataPropertyName = "공조요구량난방" + Me.DataGridViewTextBoxColumn11.HeaderText = "공조요구량난방" + Me.DataGridViewTextBoxColumn11.Name = "DataGridViewTextBoxColumn11" + Me.DataGridViewTextBoxColumn11.ReadOnly = True + Me.DataGridViewTextBoxColumn11.Width = 121 + ' + 'DataGridViewTextBoxColumn12 + ' + Me.DataGridViewTextBoxColumn12.DataPropertyName = "공조요구량냉방" + Me.DataGridViewTextBoxColumn12.HeaderText = "공조요구량냉방" + Me.DataGridViewTextBoxColumn12.Name = "DataGridViewTextBoxColumn12" + Me.DataGridViewTextBoxColumn12.ReadOnly = True + Me.DataGridViewTextBoxColumn12.Width = 121 + ' + 'DataGridViewTextBoxColumn13 + ' + Me.DataGridViewTextBoxColumn13.DataPropertyName = "공조요구량가습" + Me.DataGridViewTextBoxColumn13.HeaderText = "공조요구량가습" + Me.DataGridViewTextBoxColumn13.Name = "DataGridViewTextBoxColumn13" + Me.DataGridViewTextBoxColumn13.ReadOnly = True + Me.DataGridViewTextBoxColumn13.Width = 121 + ' + 'DataGridViewTextBoxColumn14 + ' + Me.DataGridViewTextBoxColumn14.DataPropertyName = "환기요구량" + Me.DataGridViewTextBoxColumn14.HeaderText = "환기요구량" + Me.DataGridViewTextBoxColumn14.Name = "DataGridViewTextBoxColumn14" + Me.DataGridViewTextBoxColumn14.ReadOnly = True + Me.DataGridViewTextBoxColumn14.Width = 95 + ' + '존 + ' + Me.존.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.None + Me.존.DataPropertyName = "존" + Me.존.FillWeight = 1.0! + Me.존.HeaderText = "존" + Me.존.MinimumWidth = 2 + Me.존.Name = "존" + Me.존.ReadOnly = True + Me.존.Width = 2 + ' + 'Zone + ' + Me.Zone.HeaderText = "Zone" + Me.Zone.Name = "Zone" + Me.Zone.ReadOnly = True + Me.Zone.Width = 63 + ' + 'TabControl1 + ' + Me.TabControl1.Controls.Add(Me.TabPage1) + Me.TabControl1.Controls.Add(Me.TabPage2) + Me.TabControl1.Controls.Add(Me.TabPage3) + Me.TabControl1.Controls.Add(Me.TabPage4) + Me.TabControl1.Controls.Add(Me.TabPage5) + Me.TabControl1.Controls.Add(Me.TabPage6) + Me.TabControl1.Controls.Add(Me.TabPage7) + Me.TabControl1.Controls.Add(Me.TabPage8) + Me.TabControl1.Controls.Add(Me.TabPage9) + Me.TabControl1.Controls.Add(Me.TabPage10) + Me.TabControl1.Controls.Add(Me.TabPage11) + Me.TabControl1.Controls.Add(Me.TabPage12) + Me.TabControl1.Dock = System.Windows.Forms.DockStyle.Top + Me.TabControl1.Location = New System.Drawing.Point(0, 0) + Me.TabControl1.Name = "TabControl1" + Me.TabControl1.SelectedIndex = 0 + Me.TabControl1.Size = New System.Drawing.Size(898, 26) + Me.TabControl1.TabIndex = 2 + ' + 'TabPage1 + ' + Me.TabPage1.Location = New System.Drawing.Point(4, 22) + Me.TabPage1.Name = "TabPage1" + Me.TabPage1.Padding = New System.Windows.Forms.Padding(3) + Me.TabPage1.Size = New System.Drawing.Size(890, 0) + Me.TabPage1.TabIndex = 0 + Me.TabPage1.Text = "01월" + Me.TabPage1.UseVisualStyleBackColor = True + ' + 'TabPage2 + ' + Me.TabPage2.Location = New System.Drawing.Point(4, 22) + Me.TabPage2.Name = "TabPage2" + Me.TabPage2.Padding = New System.Windows.Forms.Padding(3) + Me.TabPage2.Size = New System.Drawing.Size(890, 0) + Me.TabPage2.TabIndex = 1 + Me.TabPage2.Text = "02월" + Me.TabPage2.UseVisualStyleBackColor = True + ' + 'TabPage3 + ' + Me.TabPage3.Location = New System.Drawing.Point(4, 22) + Me.TabPage3.Name = "TabPage3" + Me.TabPage3.Size = New System.Drawing.Size(890, 0) + Me.TabPage3.TabIndex = 2 + Me.TabPage3.Text = "03월" + Me.TabPage3.UseVisualStyleBackColor = True + ' + 'TabPage4 + ' + Me.TabPage4.Location = New System.Drawing.Point(4, 22) + Me.TabPage4.Name = "TabPage4" + Me.TabPage4.Size = New System.Drawing.Size(890, 0) + Me.TabPage4.TabIndex = 3 + Me.TabPage4.Text = "04월" + Me.TabPage4.UseVisualStyleBackColor = True + ' + 'TabPage5 + ' + Me.TabPage5.Location = New System.Drawing.Point(4, 22) + Me.TabPage5.Name = "TabPage5" + Me.TabPage5.Size = New System.Drawing.Size(890, 0) + Me.TabPage5.TabIndex = 4 + Me.TabPage5.Text = "05월" + Me.TabPage5.UseVisualStyleBackColor = True + ' + 'TabPage6 + ' + Me.TabPage6.Location = New System.Drawing.Point(4, 22) + Me.TabPage6.Name = "TabPage6" + Me.TabPage6.Size = New System.Drawing.Size(890, 0) + Me.TabPage6.TabIndex = 5 + Me.TabPage6.Text = "06월" + Me.TabPage6.UseVisualStyleBackColor = True + ' + 'TabPage7 + ' + Me.TabPage7.Location = New System.Drawing.Point(4, 22) + Me.TabPage7.Name = "TabPage7" + Me.TabPage7.Size = New System.Drawing.Size(890, 0) + Me.TabPage7.TabIndex = 6 + Me.TabPage7.Text = "07월" + Me.TabPage7.UseVisualStyleBackColor = True + ' + 'TabPage8 + ' + Me.TabPage8.Location = New System.Drawing.Point(4, 22) + Me.TabPage8.Name = "TabPage8" + Me.TabPage8.Size = New System.Drawing.Size(890, 0) + Me.TabPage8.TabIndex = 7 + Me.TabPage8.Text = "08월" + Me.TabPage8.UseVisualStyleBackColor = True + ' + 'TabPage9 + ' + Me.TabPage9.Location = New System.Drawing.Point(4, 22) + Me.TabPage9.Name = "TabPage9" + Me.TabPage9.Size = New System.Drawing.Size(890, 0) + Me.TabPage9.TabIndex = 8 + Me.TabPage9.Text = "09월" + Me.TabPage9.UseVisualStyleBackColor = True + ' + 'TabPage10 + ' + Me.TabPage10.Location = New System.Drawing.Point(4, 22) + Me.TabPage10.Name = "TabPage10" + Me.TabPage10.Size = New System.Drawing.Size(890, 0) + Me.TabPage10.TabIndex = 9 + Me.TabPage10.Text = "10월" + Me.TabPage10.UseVisualStyleBackColor = True + ' + 'TabPage11 + ' + Me.TabPage11.Location = New System.Drawing.Point(4, 22) + Me.TabPage11.Name = "TabPage11" + Me.TabPage11.Size = New System.Drawing.Size(890, 0) + Me.TabPage11.TabIndex = 10 + Me.TabPage11.Text = "11월" + Me.TabPage11.UseVisualStyleBackColor = True + ' + 'TabPage12 + ' + Me.TabPage12.Location = New System.Drawing.Point(4, 22) + Me.TabPage12.Name = "TabPage12" + Me.TabPage12.Size = New System.Drawing.Size(890, 0) + Me.TabPage12.TabIndex = 11 + Me.TabPage12.Text = "12월" + Me.TabPage12.UseVisualStyleBackColor = True + ' + 'StatusStrip1 + ' + Me.StatusStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.lb_msg}) + Me.StatusStrip1.Location = New System.Drawing.Point(0, 482) + Me.StatusStrip1.Name = "StatusStrip1" + Me.StatusStrip1.Size = New System.Drawing.Size(898, 22) + Me.StatusStrip1.TabIndex = 15 + Me.StatusStrip1.Text = "StatusStrip1" + ' + 'lb_msg + ' + Me.lb_msg.Name = "lb_msg" + Me.lb_msg.Size = New System.Drawing.Size(59, 17) + Me.lb_msg.Text = "<메세지>" + ' + 'bsz + ' + Me.bsz.DataMember = "tbl_zone" + Me.bsz.DataSource = Me.DS + ' + 'DS + ' + Me.DS.DataSetName = "DS" + Me.DS.SchemaSerializationMode = System.Data.SchemaSerializationMode.IncludeSchema + ' + 'Frm_v20091231_ResultMon + ' + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.None + Me.ClientSize = New System.Drawing.Size(898, 504) + Me.ControlBox = False + Me.Controls.Add(Me.dv01) + Me.Controls.Add(Me.TabControl1) + Me.Controls.Add(Me.StatusStrip1) + Me.Font = New System.Drawing.Font("돋움", 8.999999!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.Name = "Frm_v20091231_ResultMon" + Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen + Me.Text = "월별에너지요구량" + CType(Me.DSR, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.bs, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.dv01, System.ComponentModel.ISupportInitialize).EndInit() + Me.TabControl1.ResumeLayout(False) + Me.StatusStrip1.ResumeLayout(False) + Me.StatusStrip1.PerformLayout() + CType(Me.bsz, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.DS, System.ComponentModel.ISupportInitialize).EndInit() + Me.ResumeLayout(False) + Me.PerformLayout() + + End Sub + Friend WithEvents DSR As Eco2Ar.DSR + Friend WithEvents bs As System.Windows.Forms.BindingSource + Friend WithEvents dv01 As System.Windows.Forms.DataGridView + 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 TabPage3 As System.Windows.Forms.TabPage + Friend WithEvents TabPage4 As System.Windows.Forms.TabPage + Friend WithEvents TabPage5 As System.Windows.Forms.TabPage + Friend WithEvents TabPage6 As System.Windows.Forms.TabPage + Friend WithEvents TabPage7 As System.Windows.Forms.TabPage + Friend WithEvents TabPage8 As System.Windows.Forms.TabPage + Friend WithEvents TabPage9 As System.Windows.Forms.TabPage + Friend WithEvents TabPage10 As System.Windows.Forms.TabPage + Friend WithEvents TabPage11 As System.Windows.Forms.TabPage + Friend WithEvents TabPage12 As System.Windows.Forms.TabPage + Friend WithEvents bsz As System.Windows.Forms.BindingSource + Friend WithEvents DS As Eco2Ar.DS + Friend WithEvents StatusStrip1 As System.Windows.Forms.StatusStrip + Friend WithEvents lb_msg As System.Windows.Forms.ToolStripStatusLabel + Friend WithEvents Zone As System.Windows.Forms.DataGridViewTextBoxColumn + Friend WithEvents DataGridViewTextBoxColumn3 As System.Windows.Forms.DataGridViewTextBoxColumn + Friend WithEvents DataGridViewTextBoxColumn4 As System.Windows.Forms.DataGridViewTextBoxColumn + Friend WithEvents DataGridViewTextBoxColumn5 As System.Windows.Forms.DataGridViewTextBoxColumn + Friend WithEvents DataGridViewTextBoxColumn6 As System.Windows.Forms.DataGridViewTextBoxColumn + Friend WithEvents DataGridViewTextBoxColumn7 As System.Windows.Forms.DataGridViewTextBoxColumn + Friend WithEvents DataGridViewTextBoxColumn8 As System.Windows.Forms.DataGridViewTextBoxColumn + Friend WithEvents DataGridViewTextBoxColumn9 As System.Windows.Forms.DataGridViewTextBoxColumn + Friend WithEvents DataGridViewTextBoxColumn10 As System.Windows.Forms.DataGridViewTextBoxColumn + Friend WithEvents DataGridViewTextBoxColumn11 As System.Windows.Forms.DataGridViewTextBoxColumn + Friend WithEvents DataGridViewTextBoxColumn12 As System.Windows.Forms.DataGridViewTextBoxColumn + Friend WithEvents DataGridViewTextBoxColumn13 As System.Windows.Forms.DataGridViewTextBoxColumn + Friend WithEvents DataGridViewTextBoxColumn14 As System.Windows.Forms.DataGridViewTextBoxColumn + Friend WithEvents 존 As System.Windows.Forms.DataGridViewTextBoxColumn +End Class diff --git a/ArinWarev1/Forms_Input/Frm_v20091231_ResultMon.resx b/ArinWarev1/Forms_Input/Frm_v20091231_ResultMon.resx new file mode 100644 index 0000000..5f6ce36 --- /dev/null +++ b/ArinWarev1/Forms_Input/Frm_v20091231_ResultMon.resx @@ -0,0 +1,141 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + 109, 17 + + + 184, 17 + + + True + + + True + + + 385, 17 + + + 315, 17 + + + 248, 17 + + \ No newline at end of file diff --git a/ArinWarev1/Forms_Input/Frm_v20091231_ResultMon.vb b/ArinWarev1/Forms_Input/Frm_v20091231_ResultMon.vb new file mode 100644 index 0000000..1348f67 --- /dev/null +++ b/ArinWarev1/Forms_Input/Frm_v20091231_ResultMon.vb @@ -0,0 +1,66 @@ +Public Class Frm_v20091231_ResultMon + +#Region "data Base 변경여부및 적용방법" + + '''변경된내용을적용한다. + Public Overrides Function AcceptChanged() As Boolean + + Return True + End Function + + '''변경된내용이있다면 취소한다. + Public Overrides Function RejectChanged() As Boolean + + Return True + End Function + + '''데이터에변형이있었는가? + Public Overrides Function HasChanged() As Boolean + Return False + End Function + + + +#End Region + + + + Private Sub Frm_v20091231_Result_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load + Me.bs.DataSource = DSETR1 + 'BindCmbBox() + End Sub + + ''' + ''' 각 그리드뷰의 1번째(존콤보박스) 데이터소스결정 (디자인타임에서 할당하면 Bs를 모두 생성해야하므로 코드에서 생성) + ''' + ''' + Private Sub BindCmbBox() + Dim bsz01 As New BindingSource(DSET1, "tbl_zone") + Dim Col01 As DataGridViewComboBoxColumn = CType(Me.dv01.Columns(0), DataGridViewComboBoxColumn) : Col01.DataSource = bsz01 + End Sub + + Private Sub dv01_CellFormatting(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewCellFormattingEventArgs) Handles dv01.CellFormatting + Dim Code As String = Me.dv01.Rows(e.RowIndex).Cells("존").Value.ToString + If Code = "00" Then + Me.dv01.Rows(e.RowIndex).Cells("Zone").Value = "합계" + Me.dv01.Rows(e.RowIndex).DefaultCellStyle.BackColor = Color.Gainsboro + Else '//각존의 이름을 가져온다. + + Dim Dr As DS.tbl_zoneRow = CType(DSET1.tbl_zone.Select("code='" & Code & "'")(0), Eco2Ar.DS.tbl_zoneRow) + Me.dv01.Rows(e.RowIndex).Cells("Zone").Value = Dr.설명 + Me.dv01.Rows(e.RowIndex).DefaultCellStyle.BackColor = Color.White + End If + End Sub + + Private Sub dv01_DataError(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewDataErrorEventArgs) Handles dv01.DataError + + End Sub + + Private Sub TabControl1_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles TabControl1.SelectedIndexChanged + Me.bs.Filter = "월='M" & Format(Me.TabControl1.SelectedIndex + 1, "00") & "'" + End Sub + + Private Sub dv01_CellContentClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles dv01.CellContentClick + + 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 new file mode 100644 index 0000000..113160d --- /dev/null +++ b/ArinWarev1/Forms_Input/Frm_v20091231_Weather.Designer.vb @@ -0,0 +1,3738 @@ + _ +Partial Class Frm_V20091231_Weather + Inherits CForm + + 'Form은 Dispose를 재정의하여 구성 요소 목록을 정리합니다. + _ + Protected Overrides Sub Dispose(ByVal disposing As Boolean) + Try + If disposing AndAlso components IsNot Nothing Then + components.Dispose() + End If + Finally + MyBase.Dispose(disposing) + End Try + End Sub + + 'Windows Form 디자이너에 필요합니다. + Private components As System.ComponentModel.IContainer + + '참고: 다음 프로시저는 Windows Form 디자이너에 필요합니다. + '수정하려면 Windows Form 디자이너를 사용하십시오. + '코드 편집기를 사용하여 수정하지 마십시오. + _ + 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 + Dim Label79 As System.Windows.Forms.Label + Dim Label80 As System.Windows.Forms.Label + Dim Label81 As System.Windows.Forms.Label + Dim Label82 As System.Windows.Forms.Label + Dim Label83 As System.Windows.Forms.Label + Dim Label84 As System.Windows.Forms.Label + Dim Label85 As System.Windows.Forms.Label + Dim Label86 As System.Windows.Forms.Label + Dim Label87 As System.Windows.Forms.Label + Dim Label90 As System.Windows.Forms.Label + Dim Label91 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 Label28 As System.Windows.Forms.Label + Dim Label29 As System.Windows.Forms.Label + Dim Label30 As System.Windows.Forms.Label + Dim Label31 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 Label35 As System.Windows.Forms.Label + Dim Label36 As System.Windows.Forms.Label + Dim Label37 As System.Windows.Forms.Label + Dim Label38 As System.Windows.Forms.Label + Dim Label92 As System.Windows.Forms.Label + Dim Label93 As System.Windows.Forms.Label + Dim Label94 As System.Windows.Forms.Label + Dim Label95 As System.Windows.Forms.Label + Dim Label96 As System.Windows.Forms.Label + Dim Label97 As System.Windows.Forms.Label + Dim Label98 As System.Windows.Forms.Label + Dim Label99 As System.Windows.Forms.Label + Dim Label100 As System.Windows.Forms.Label + Dim Label101 As System.Windows.Forms.Label + Dim Label40 As System.Windows.Forms.Label + Dim Label41 As System.Windows.Forms.Label + Dim Label42 As System.Windows.Forms.Label + Dim Label43 As System.Windows.Forms.Label + Dim Label44 As System.Windows.Forms.Label + Dim Label45 As System.Windows.Forms.Label + Dim Label46 As System.Windows.Forms.Label + Dim Label47 As System.Windows.Forms.Label + Dim Label48 As System.Windows.Forms.Label + Dim Label49 As System.Windows.Forms.Label + Dim Label50 As System.Windows.Forms.Label + Dim Label51 As System.Windows.Forms.Label + Dim Label52 As System.Windows.Forms.Label + Dim Label53 As System.Windows.Forms.Label + Dim Label54 As System.Windows.Forms.Label + Dim Label55 As System.Windows.Forms.Label + Dim Label56 As System.Windows.Forms.Label + Dim Label57 As System.Windows.Forms.Label + Dim Label58 As System.Windows.Forms.Label + Dim Label59 As System.Windows.Forms.Label + Dim Label60 As System.Windows.Forms.Label + Dim Label61 As System.Windows.Forms.Label + Dim Label62 As System.Windows.Forms.Label + Dim Label63 As System.Windows.Forms.Label + Dim Label1 As System.Windows.Forms.Label + Dim Label2 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 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 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.TabControl3 = New System.Windows.Forms.TabControl() + Me.TabPage1 = New System.Windows.Forms.TabPage() + Me.GroupBox2 = New System.Windows.Forms.GroupBox() + Me.Panel3 = New System.Windows.Forms.Panel() + Me.TableLayoutPanel7 = New System.Windows.Forms.TableLayoutPanel() + Me.tb_w12 = New Eco2Ar.MyTb() + Me.bs = New System.Windows.Forms.BindingSource(Me.components) + Me.DS = New Eco2Ar.DS() + Me.tb_w11 = New Eco2Ar.MyTb() + Me.tb_w10 = New Eco2Ar.MyTb() + Me.tb_w06 = New Eco2Ar.MyTb() + Me.tb_w09 = New Eco2Ar.MyTb() + Me.tb_w05 = New Eco2Ar.MyTb() + Me.tb_w04 = New Eco2Ar.MyTb() + Me.tb_w08 = New Eco2Ar.MyTb() + Me.tb_w01 = New Eco2Ar.MyTb() + 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() + Me.tb_v4 = New Eco2Ar.MyTb() + Me.tb_v2 = New Eco2Ar.MyTb() + Me.tb_v3 = New Eco2Ar.MyTb() + Me.tb_v7 = New Eco2Ar.MyTb() + Me.tb_v8 = New Eco2Ar.MyTb() + Me.tb_v9 = New Eco2Ar.MyTb() + 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() + Me.tb_t16 = New Eco2Ar.MyTb() + Me.tb_t15 = New Eco2Ar.MyTb() + Me.tb_t14 = New Eco2Ar.MyTb() + Me.tb_t2 = New Eco2Ar.MyTb() + Me.tb_t13 = New Eco2Ar.MyTb() + Me.tb_t6 = New Eco2Ar.MyTb() + Me.tb_t19 = New Eco2Ar.MyTb() + Me.tb_t5 = New Eco2Ar.MyTb() + Me.tb_t20 = New Eco2Ar.MyTb() + Me.tb_t4 = New Eco2Ar.MyTb() + Me.tb_t21 = New Eco2Ar.MyTb() + Me.tb_t3 = New Eco2Ar.MyTb() + Me.tb_t22 = New Eco2Ar.MyTb() + Me.tb_t23 = New Eco2Ar.MyTb() + Me.tb_t12 = New Eco2Ar.MyTb() + Me.tb_t24 = New Eco2Ar.MyTb() + Me.tb_t11 = New Eco2Ar.MyTb() + Me.tb_t10 = New Eco2Ar.MyTb() + 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() + Me.tb_s22 = New Eco2Ar.MyTb() + Me.tb_s11 = New Eco2Ar.MyTb() + Me.tb_s21 = New Eco2Ar.MyTb() + Me.tb_s1 = New Eco2Ar.MyTb() + Me.tb_s20 = New Eco2Ar.MyTb() + Me.tb_s10 = New Eco2Ar.MyTb() + Me.tb_s19 = New Eco2Ar.MyTb() + Me.tb_s3 = New Eco2Ar.MyTb() + Me.tb_s18 = New Eco2Ar.MyTb() + Me.tb_s9 = New Eco2Ar.MyTb() + Me.tb_s2 = New Eco2Ar.MyTb() + Me.tb_s17 = New Eco2Ar.MyTb() + Me.tb_s16 = New Eco2Ar.MyTb() + Me.tb_s8 = New Eco2Ar.MyTb() + Me.tb_s15 = New Eco2Ar.MyTb() + Me.tb_s14 = New Eco2Ar.MyTb() + Me.tb_s4 = New Eco2Ar.MyTb() + Me.tb_s13 = New Eco2Ar.MyTb() + 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() + Me.tb_c06 = New Eco2Ar.MyTb() + Me.tb_c10 = New Eco2Ar.MyTb() + Me.tb_c09 = New Eco2Ar.MyTb() + Me.tb_c05 = New Eco2Ar.MyTb() + Me.tb_c08 = New Eco2Ar.MyTb() + Me.tb_c04 = New Eco2Ar.MyTb() + 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.dv = New CEnergy.arindv() + 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.건물위치DataGridViewTextBoxColumn = New System.Windows.Forms.DataGridViewTextBoxColumn() + 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() + Label64 = New System.Windows.Forms.Label() + Label77 = New System.Windows.Forms.Label() + Label78 = New System.Windows.Forms.Label() + Label79 = New System.Windows.Forms.Label() + Label80 = New System.Windows.Forms.Label() + Label81 = New System.Windows.Forms.Label() + Label82 = New System.Windows.Forms.Label() + Label83 = New System.Windows.Forms.Label() + Label84 = New System.Windows.Forms.Label() + Label85 = New System.Windows.Forms.Label() + Label86 = New System.Windows.Forms.Label() + Label87 = New System.Windows.Forms.Label() + Label90 = New System.Windows.Forms.Label() + Label91 = New System.Windows.Forms.Label() + Label25 = New System.Windows.Forms.Label() + Label26 = New System.Windows.Forms.Label() + Label27 = New System.Windows.Forms.Label() + Label28 = New System.Windows.Forms.Label() + Label29 = New System.Windows.Forms.Label() + Label30 = New System.Windows.Forms.Label() + Label31 = New System.Windows.Forms.Label() + Label32 = New System.Windows.Forms.Label() + Label33 = New System.Windows.Forms.Label() + Label34 = New System.Windows.Forms.Label() + Label35 = New System.Windows.Forms.Label() + Label36 = New System.Windows.Forms.Label() + Label37 = New System.Windows.Forms.Label() + Label38 = New System.Windows.Forms.Label() + Label92 = New System.Windows.Forms.Label() + Label93 = New System.Windows.Forms.Label() + Label94 = New System.Windows.Forms.Label() + Label95 = New System.Windows.Forms.Label() + Label96 = New System.Windows.Forms.Label() + Label97 = New System.Windows.Forms.Label() + Label98 = New System.Windows.Forms.Label() + Label99 = New System.Windows.Forms.Label() + Label100 = New System.Windows.Forms.Label() + Label101 = New System.Windows.Forms.Label() + Label40 = New System.Windows.Forms.Label() + Label41 = New System.Windows.Forms.Label() + Label42 = New System.Windows.Forms.Label() + Label43 = New System.Windows.Forms.Label() + Label44 = New System.Windows.Forms.Label() + Label45 = New System.Windows.Forms.Label() + Label46 = New System.Windows.Forms.Label() + Label47 = New System.Windows.Forms.Label() + Label48 = New System.Windows.Forms.Label() + Label49 = New System.Windows.Forms.Label() + Label50 = New System.Windows.Forms.Label() + Label51 = New System.Windows.Forms.Label() + Label52 = New System.Windows.Forms.Label() + Label53 = New System.Windows.Forms.Label() + Label54 = New System.Windows.Forms.Label() + Label55 = New System.Windows.Forms.Label() + Label56 = New System.Windows.Forms.Label() + Label57 = New System.Windows.Forms.Label() + Label58 = New System.Windows.Forms.Label() + Label59 = New System.Windows.Forms.Label() + Label60 = New System.Windows.Forms.Label() + Label61 = New System.Windows.Forms.Label() + Label62 = New System.Windows.Forms.Label() + Label63 = New System.Windows.Forms.Label() + Label1 = New System.Windows.Forms.Label() + Label2 = 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() + 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() + CType(Me.bn_all, System.ComponentModel.ISupportInitialize).BeginInit() + Me.bn_all.SuspendLayout() + Me.TabControl3.SuspendLayout() + Me.TabPage1.SuspendLayout() + Me.GroupBox2.SuspendLayout() + Me.Panel3.SuspendLayout() + Me.TableLayoutPanel7.SuspendLayout() + CType(Me.bs, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.DS, 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() + Me.BindingNavigator1.SuspendLayout() + 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() + Me.BindingNavigator4.SuspendLayout() + 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() + Me.BindingNavigator5.SuspendLayout() + 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() + CType(Me.dv, System.ComponentModel.ISupportInitialize).BeginInit() + Me.StatusStrip1.SuspendLayout() + Me.SuspendLayout() + ' + '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 = "평균일사(최대부하):" + ' + 'Label247 + ' + 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월):" + ' + 'Label248 + ' + 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월):" + ' + 'Label249 + ' + 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월):" + ' + 'Label250 + ' + 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월):" + ' + 'Label251 + ' + 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월):" + ' + 'Label252 + ' + 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월):" + ' + 'Label253 + ' + 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월):" + ' + 'Label254 + ' + 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월):" + ' + 'Label255 + ' + 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월):" + ' + 'Label256 + ' + 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월):" + ' + 'Label257 + ' + 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월):" + ' + 'Label258 + ' + 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월):" + ' + '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.Name = "Label64" + Label64.Size = New System.Drawing.Size(77, 24) + Label64.TabIndex = 30 + Label64.Text = "외기온도(12월):" + ' + 'Label77 + ' + 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.Name = "Label77" + Label77.Size = New System.Drawing.Size(77, 24) + Label77.TabIndex = 28 + Label77.Text = "외기온도(11월):" + ' + 'Label78 + ' + 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.Name = "Label78" + Label78.Size = New System.Drawing.Size(77, 24) + Label78.TabIndex = 26 + Label78.Text = "외기온도(10월):" + ' + 'Label79 + ' + 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.Name = "Label79" + Label79.Size = New System.Drawing.Size(89, 24) + Label79.TabIndex = 24 + Label79.Text = "외기온도(9월):" + ' + 'Label80 + ' + Label80.Anchor = System.Windows.Forms.AnchorStyles.None + Label80.AutoSize = True + Label80.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label80.Location = New System.Drawing.Point(5, 148) + Label80.Name = "Label80" + Label80.Size = New System.Drawing.Size(94, 12) + Label80.TabIndex = 18 + Label80.Text = "외기온도(6월):" + ' + 'Label81 + ' + 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.Name = "Label81" + Label81.Size = New System.Drawing.Size(89, 24) + Label81.TabIndex = 22 + Label81.Text = "외기온도(8월):" + ' + 'Label82 + ' + Label82.Anchor = System.Windows.Forms.AnchorStyles.None + Label82.AutoSize = True + Label82.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label82.Location = New System.Drawing.Point(5, 120) + Label82.Name = "Label82" + Label82.Size = New System.Drawing.Size(94, 12) + Label82.TabIndex = 16 + Label82.Text = "외기온도(5월):" + ' + 'Label83 + ' + 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.Name = "Label83" + Label83.Size = New System.Drawing.Size(89, 24) + Label83.TabIndex = 20 + Label83.Text = "외기온도(7월):" + ' + 'Label84 + ' + Label84.Anchor = System.Windows.Forms.AnchorStyles.None + Label84.AutoSize = True + Label84.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label84.Location = New System.Drawing.Point(5, 92) + Label84.Name = "Label84" + Label84.Size = New System.Drawing.Size(94, 12) + Label84.TabIndex = 14 + Label84.Text = "외기온도(4월):" + ' + 'Label85 + ' + Label85.Anchor = System.Windows.Forms.AnchorStyles.None + Label85.AutoSize = True + Label85.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label85.Location = New System.Drawing.Point(5, 8) + Label85.Name = "Label85" + Label85.Size = New System.Drawing.Size(94, 12) + Label85.TabIndex = 8 + Label85.Text = "외기온도(1월):" + ' + 'Label86 + ' + Label86.Anchor = System.Windows.Forms.AnchorStyles.None + Label86.AutoSize = True + Label86.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label86.Location = New System.Drawing.Point(5, 64) + Label86.Name = "Label86" + Label86.Size = New System.Drawing.Size(94, 12) + Label86.TabIndex = 12 + Label86.Text = "외기온도(3월):" + ' + 'Label87 + ' + Label87.Anchor = System.Windows.Forms.AnchorStyles.None + Label87.AutoSize = True + Label87.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label87.Location = New System.Drawing.Point(5, 36) + Label87.Name = "Label87" + Label87.Size = New System.Drawing.Size(94, 12) + 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.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(190, 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(188, 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(188, 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(188, 36) + Me.ToolStripButton51.Text = "변경취소(&C)" + ' + 'ToolStripSeparator28 + ' + Me.ToolStripSeparator28.Name = "ToolStripSeparator28" + Me.ToolStripSeparator28.Size = New System.Drawing.Size(188, 6) + ' + '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.Dock = System.Windows.Forms.DockStyle.Fill + Me.TabControl3.Location = New System.Drawing.Point(190, 0) + Me.TabControl3.Name = "TabControl3" + Me.TabControl3.SelectedIndex = 0 + Me.TabControl3.Size = New System.Drawing.Size(622, 533) + Me.TabControl3.TabIndex = 81 + ' + 'TabPage1 + ' + 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(614, 507) + Me.TabPage1.TabIndex = 4 + Me.TabPage1.Text = "외기온도" + Me.TabPage1.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, 138.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(443, 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.DS + Me.bs.Filter = "code <> '0'" + Me.bs.Sort = "" + ' + 'DS + ' + Me.DS.DataSetName = "DS" + Me.DS.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 + Me.Label88.ForeColor = System.Drawing.Color.DarkBlue + Me.Label88.Location = New System.Drawing.Point(9, 2) + Me.Label88.Name = "Label88" + Me.Label88.Size = New System.Drawing.Size(76, 12) + Me.Label88.TabIndex = 121 + Me.Label88.Text = "[온도 입력]" + ' + 'GroupBox1 + ' + Me.GroupBox1.Controls.Add(Me.Panel2) + Me.GroupBox1.Location = New System.Drawing.Point(89, 54) + Me.GroupBox1.Name = "GroupBox1" + Me.GroupBox1.Size = New System.Drawing.Size(436, 82) + Me.GroupBox1.TabIndex = 125 + Me.GroupBox1.TabStop = False + ' + 'Panel2 + ' + Me.Panel2.BackColor = System.Drawing.Color.FromArgb(CType(CType(219, Byte), Integer), CType(CType(221, Byte), Integer), CType(CType(223, Byte), Integer)) + Me.Panel2.Controls.Add(Me.Label89) + Me.Panel2.Controls.Add(Label90) + Me.Panel2.Controls.Add(Label91) + Me.Panel2.Controls.Add(Me.tb_wnan) + Me.Panel2.Controls.Add(Me.tb_wnaen) + Me.Panel2.Location = New System.Drawing.Point(2, 9) + Me.Panel2.Name = "Panel2" + Me.Panel2.Size = New System.Drawing.Size(432, 70) + Me.Panel2.TabIndex = 121 + ' + 'Label89 + ' + Me.Label89.AutoSize = True + Me.Label89.ForeColor = System.Drawing.Color.Black + Me.Label89.Location = New System.Drawing.Point(2, 3) + Me.Label89.Name = "Label89" + Me.Label89.Size = New System.Drawing.Size(161, 12) + Me.Label89.TabIndex = 120 + Me.Label89.Text = "[외기온도(최대부하관련)]" + ' + 'tb_wnan + ' + 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 + ' + 'TabPage8 + ' + Me.TabPage8.Controls.Add(Me.TableLayoutPanel4) + Me.TabPage8.Location = New System.Drawing.Point(4, 22) + Me.TabPage8.Margin = New System.Windows.Forms.Padding(0) + Me.TabPage8.Name = "TabPage8" + Me.TabPage8.Size = New System.Drawing.Size(614, 507) + Me.TabPage8.TabIndex = 1 + Me.TabPage8.Text = "평균일사" + Me.TabPage8.UseVisualStyleBackColor = True + ' + 'TableLayoutPanel4 + ' + Me.TableLayoutPanel4.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer)) + Me.TableLayoutPanel4.ColumnCount = 2 + Me.TableLayoutPanel4.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Absolute, 200.0!)) + Me.TableLayoutPanel4.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Percent, 100.0!)) + Me.TableLayoutPanel4.Controls.Add(Me.Arindv2, 0, 0) + Me.TableLayoutPanel4.Controls.Add(Me.Panel4, 1, 0) + Me.TableLayoutPanel4.Dock = System.Windows.Forms.DockStyle.Fill + Me.TableLayoutPanel4.Location = New System.Drawing.Point(0, 0) + Me.TableLayoutPanel4.Name = "TableLayoutPanel4" + Me.TableLayoutPanel4.RowCount = 1 + Me.TableLayoutPanel4.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Percent, 100.0!)) + Me.TableLayoutPanel4.Size = New System.Drawing.Size(614, 507) + Me.TableLayoutPanel4.TabIndex = 0 + ' + 'Arindv2 + ' + Me.Arindv2.A_DelCurrentCell = True + Me.Arindv2.A_EnterToTab = True + Me.Arindv2.AllowUserToAddRows = False + Me.Arindv2.AllowUserToResizeRows = False + Me.Arindv2.AutoGenerateColumns = False + Me.Arindv2.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.AllCells + Me.Arindv2.ColumnHeadersHeight = 30 + Me.Arindv2.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.DisableResizing + Me.Arindv2.Columns.AddRange(New System.Windows.Forms.DataGridViewColumn() {Me.설명DataGridViewTextBoxColumn, Me.code}) + Me.Arindv2.DataSource = Me.bsw_ilsa + Me.Arindv2.Dock = System.Windows.Forms.DockStyle.Fill + Me.Arindv2.Location = New System.Drawing.Point(0, 0) + Me.Arindv2.Margin = New System.Windows.Forms.Padding(0) + Me.Arindv2.MultiSelect = False + Me.Arindv2.Name = "Arindv2" + Me.Arindv2.RowHeadersVisible = False + Me.Arindv2.RowTemplate.Height = 23 + Me.Arindv2.Size = New System.Drawing.Size(200, 507) + Me.Arindv2.TabIndex = 4 + ' + '설명DataGridViewTextBoxColumn + ' + Me.설명DataGridViewTextBoxColumn.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.Fill + Me.설명DataGridViewTextBoxColumn.DataPropertyName = "설명" + Me.설명DataGridViewTextBoxColumn.HeaderText = "설명" + Me.설명DataGridViewTextBoxColumn.Name = "설명DataGridViewTextBoxColumn" + ' + 'code + ' + Me.code.DataPropertyName = "code" + Me.code.HeaderText = "code" + Me.code.Name = "code" + Me.code.Width = 62 + ' + 'bsw_ilsa + ' + Me.bsw_ilsa.DataMember = "weather_ilsa" + Me.bsw_ilsa.DataSource = Me.DS + ' + 'Panel4 + ' + Me.Panel4.AutoScroll = True + Me.Panel4.BackColor = System.Drawing.Color.White + Me.Panel4.Controls.Add(Label39) + Me.Panel4.Controls.Add(Me.TableLayoutPanel34) + Me.Panel4.Controls.Add(Me.BindingNavigator1) + Me.Panel4.Controls.Add(Me.tb_v0) + Me.Panel4.Dock = System.Windows.Forms.DockStyle.Fill + Me.Panel4.Location = New System.Drawing.Point(200, 0) + Me.Panel4.Margin = New System.Windows.Forms.Padding(0) + Me.Panel4.Name = "Panel4" + Me.Panel4.Size = New System.Drawing.Size(414, 507) + Me.Panel4.TabIndex = 5 + ' + 'TableLayoutPanel34 + ' + Me.TableLayoutPanel34.AutoSize = True + Me.TableLayoutPanel34.BackColor = System.Drawing.SystemColors.ButtonFace + Me.TableLayoutPanel34.CellBorderStyle = System.Windows.Forms.TableLayoutPanelCellBorderStyle.[Single] + Me.TableLayoutPanel34.ColumnCount = 2 + Me.TableLayoutPanel34.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle()) + Me.TableLayoutPanel34.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle()) + Me.TableLayoutPanel34.Controls.Add(Me.tb_v1, 1, 0) + Me.TableLayoutPanel34.Controls.Add(Me.tb_v6, 1, 5) + Me.TableLayoutPanel34.Controls.Add(Label251, 0, 5) + Me.TableLayoutPanel34.Controls.Add(Label253, 0, 4) + Me.TableLayoutPanel34.Controls.Add(Me.tb_v5, 1, 4) + Me.TableLayoutPanel34.Controls.Add(Label255, 0, 3) + Me.TableLayoutPanel34.Controls.Add(Label256, 0, 0) + Me.TableLayoutPanel34.Controls.Add(Label257, 0, 2) + Me.TableLayoutPanel34.Controls.Add(Me.tb_v4, 1, 3) + Me.TableLayoutPanel34.Controls.Add(Me.tb_v2, 1, 1) + Me.TableLayoutPanel34.Controls.Add(Label258, 0, 1) + Me.TableLayoutPanel34.Controls.Add(Me.tb_v3, 1, 2) + Me.TableLayoutPanel34.Controls.Add(Label254, 0, 6) + Me.TableLayoutPanel34.Controls.Add(Label252, 0, 7) + Me.TableLayoutPanel34.Controls.Add(Label250, 0, 8) + Me.TableLayoutPanel34.Controls.Add(Label249, 0, 9) + Me.TableLayoutPanel34.Controls.Add(Label248, 0, 10) + Me.TableLayoutPanel34.Controls.Add(Label247, 0, 11) + Me.TableLayoutPanel34.Controls.Add(Me.tb_v7, 1, 6) + Me.TableLayoutPanel34.Controls.Add(Me.tb_v8, 1, 7) + Me.TableLayoutPanel34.Controls.Add(Me.tb_v9, 1, 8) + Me.TableLayoutPanel34.Controls.Add(Me.tb_v10, 1, 9) + Me.TableLayoutPanel34.Controls.Add(Me.tb_v11, 1, 10) + Me.TableLayoutPanel34.Controls.Add(Me.tb_v12, 1, 11) + Me.TableLayoutPanel34.Location = New System.Drawing.Point(5, 45) + Me.TableLayoutPanel34.Name = "TableLayoutPanel34" + Me.TableLayoutPanel34.RowCount = 12 + Me.TableLayoutPanel34.RowStyles.Add(New System.Windows.Forms.RowStyle()) + Me.TableLayoutPanel34.RowStyles.Add(New System.Windows.Forms.RowStyle()) + Me.TableLayoutPanel34.RowStyles.Add(New System.Windows.Forms.RowStyle()) + Me.TableLayoutPanel34.RowStyles.Add(New System.Windows.Forms.RowStyle()) + Me.TableLayoutPanel34.RowStyles.Add(New System.Windows.Forms.RowStyle()) + Me.TableLayoutPanel34.RowStyles.Add(New System.Windows.Forms.RowStyle()) + Me.TableLayoutPanel34.RowStyles.Add(New System.Windows.Forms.RowStyle()) + Me.TableLayoutPanel34.RowStyles.Add(New System.Windows.Forms.RowStyle()) + Me.TableLayoutPanel34.RowStyles.Add(New System.Windows.Forms.RowStyle()) + Me.TableLayoutPanel34.RowStyles.Add(New System.Windows.Forms.RowStyle()) + Me.TableLayoutPanel34.RowStyles.Add(New System.Windows.Forms.RowStyle()) + Me.TableLayoutPanel34.RowStyles.Add(New System.Windows.Forms.RowStyle()) + Me.TableLayoutPanel34.Size = New System.Drawing.Size(448, 337) + Me.TableLayoutPanel34.TabIndex = 122 + ' + '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 + ' + 'BindingNavigator1 + ' + Me.BindingNavigator1.AddNewItem = Nothing + Me.BindingNavigator1.CountItem = Nothing + Me.BindingNavigator1.DeleteItem = Nothing + Me.BindingNavigator1.Dock = System.Windows.Forms.DockStyle.Bottom + Me.BindingNavigator1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToolStripButton9, Me.ToolStripButton10, Me.ToolStripButton11, Me.ToolStripButton12, Me.ToolStripSeparator10, Me.ToolStripButton14, Me.ToolStripButton15}) + Me.BindingNavigator1.Location = New System.Drawing.Point(0, 465) + Me.BindingNavigator1.MoveFirstItem = Me.ToolStripButton9 + Me.BindingNavigator1.MoveLastItem = Me.ToolStripButton12 + Me.BindingNavigator1.MoveNextItem = Me.ToolStripButton11 + Me.BindingNavigator1.MovePreviousItem = Me.ToolStripButton10 + Me.BindingNavigator1.Name = "BindingNavigator1" + Me.BindingNavigator1.PositionItem = Nothing + Me.BindingNavigator1.Size = New System.Drawing.Size(453, 25) + Me.BindingNavigator1.TabIndex = 26 + Me.BindingNavigator1.Text = "BindingNavigator1" + ' + 'ToolStripButton9 + ' + Me.ToolStripButton9.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.ToolStripButton9.Image = CType(resources.GetObject("ToolStripButton9.Image"), System.Drawing.Image) + Me.ToolStripButton9.Name = "ToolStripButton9" + Me.ToolStripButton9.RightToLeftAutoMirrorImage = True + Me.ToolStripButton9.Size = New System.Drawing.Size(23, 22) + Me.ToolStripButton9.Text = "처음으로 이동" + ' + 'ToolStripButton10 + ' + Me.ToolStripButton10.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.ToolStripButton10.Image = CType(resources.GetObject("ToolStripButton10.Image"), System.Drawing.Image) + Me.ToolStripButton10.Name = "ToolStripButton10" + Me.ToolStripButton10.RightToLeftAutoMirrorImage = True + Me.ToolStripButton10.Size = New System.Drawing.Size(23, 22) + Me.ToolStripButton10.Text = "이전으로 이동" + ' + 'ToolStripButton11 + ' + Me.ToolStripButton11.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.ToolStripButton11.Image = CType(resources.GetObject("ToolStripButton11.Image"), System.Drawing.Image) + Me.ToolStripButton11.Name = "ToolStripButton11" + Me.ToolStripButton11.RightToLeftAutoMirrorImage = True + Me.ToolStripButton11.Size = New System.Drawing.Size(23, 22) + Me.ToolStripButton11.Text = "다음으로 이동" + ' + 'ToolStripButton12 + ' + Me.ToolStripButton12.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.ToolStripButton12.Image = CType(resources.GetObject("ToolStripButton12.Image"), System.Drawing.Image) + Me.ToolStripButton12.Name = "ToolStripButton12" + Me.ToolStripButton12.RightToLeftAutoMirrorImage = True + Me.ToolStripButton12.Size = New System.Drawing.Size(23, 22) + Me.ToolStripButton12.Text = "마지막으로 이동" + ' + 'ToolStripSeparator10 + ' + Me.ToolStripSeparator10.Name = "ToolStripSeparator10" + Me.ToolStripSeparator10.Size = New System.Drawing.Size(6, 25) + ' + 'ToolStripButton14 + ' + Me.ToolStripButton14.Image = CType(resources.GetObject("ToolStripButton14.Image"), System.Drawing.Image) + Me.ToolStripButton14.Name = "ToolStripButton14" + Me.ToolStripButton14.RightToLeftAutoMirrorImage = True + Me.ToolStripButton14.Size = New System.Drawing.Size(67, 22) + Me.ToolStripButton14.Text = "추가(&A)" + ' + 'ToolStripButton15 + ' + Me.ToolStripButton15.Image = CType(resources.GetObject("ToolStripButton15.Image"), System.Drawing.Image) + Me.ToolStripButton15.Name = "ToolStripButton15" + Me.ToolStripButton15.RightToLeftAutoMirrorImage = True + 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) + Me.TabPage9.Location = New System.Drawing.Point(4, 22) + Me.TabPage9.Name = "TabPage9" + Me.TabPage9.Size = New System.Drawing.Size(614, 507) + Me.TabPage9.TabIndex = 2 + Me.TabPage9.Text = "평균온도" + Me.TabPage9.UseVisualStyleBackColor = True + ' + 'TableLayoutPanel5 + ' + Me.TableLayoutPanel5.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer)) + Me.TableLayoutPanel5.ColumnCount = 2 + Me.TableLayoutPanel5.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Absolute, 200.0!)) + Me.TableLayoutPanel5.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Percent, 100.0!)) + Me.TableLayoutPanel5.Controls.Add(Me.Arindv3, 0, 0) + Me.TableLayoutPanel5.Controls.Add(Me.Panel7, 1, 0) + Me.TableLayoutPanel5.Dock = System.Windows.Forms.DockStyle.Fill + Me.TableLayoutPanel5.Location = New System.Drawing.Point(0, 0) + Me.TableLayoutPanel5.Name = "TableLayoutPanel5" + Me.TableLayoutPanel5.RowCount = 1 + Me.TableLayoutPanel5.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Percent, 100.0!)) + Me.TableLayoutPanel5.Size = New System.Drawing.Size(614, 507) + Me.TableLayoutPanel5.TabIndex = 1 + ' + 'Arindv3 + ' + Me.Arindv3.A_DelCurrentCell = True + Me.Arindv3.A_EnterToTab = True + Me.Arindv3.AllowUserToAddRows = False + Me.Arindv3.AllowUserToResizeRows = False + Me.Arindv3.AutoGenerateColumns = False + Me.Arindv3.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.AllCells + Me.Arindv3.ColumnHeadersHeight = 30 + Me.Arindv3.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.DisableResizing + Me.Arindv3.Columns.AddRange(New System.Windows.Forms.DataGridViewColumn() {Me.설명DataGridViewTextBoxColumn1, Me.DataGridViewTextBoxColumn9}) + Me.Arindv3.DataSource = Me.bsw_temp + Me.Arindv3.Dock = System.Windows.Forms.DockStyle.Fill + Me.Arindv3.Location = New System.Drawing.Point(0, 0) + Me.Arindv3.Margin = New System.Windows.Forms.Padding(0) + Me.Arindv3.Name = "Arindv3" + Me.Arindv3.RowHeadersVisible = False + Me.Arindv3.RowTemplate.Height = 23 + Me.Arindv3.Size = New System.Drawing.Size(200, 507) + Me.Arindv3.TabIndex = 4 + ' + '설명DataGridViewTextBoxColumn1 + ' + Me.설명DataGridViewTextBoxColumn1.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.Fill + Me.설명DataGridViewTextBoxColumn1.DataPropertyName = "설명" + Me.설명DataGridViewTextBoxColumn1.HeaderText = "설명" + Me.설명DataGridViewTextBoxColumn1.Name = "설명DataGridViewTextBoxColumn1" + ' + 'DataGridViewTextBoxColumn9 + ' + Me.DataGridViewTextBoxColumn9.DataPropertyName = "code" + Me.DataGridViewTextBoxColumn9.HeaderText = "code" + Me.DataGridViewTextBoxColumn9.Name = "DataGridViewTextBoxColumn9" + Me.DataGridViewTextBoxColumn9.Width = 62 + ' + 'bsw_temp + ' + Me.bsw_temp.DataMember = "weather_temp" + Me.bsw_temp.DataSource = Me.DS + ' + 'Panel7 + ' + Me.Panel7.AutoScroll = True + Me.Panel7.BackColor = System.Drawing.Color.White + Me.Panel7.Controls.Add(Me.TableLayoutPanel8) + Me.Panel7.Controls.Add(Me.BindingNavigator4) + Me.Panel7.Dock = System.Windows.Forms.DockStyle.Fill + Me.Panel7.Location = New System.Drawing.Point(200, 0) + Me.Panel7.Margin = New System.Windows.Forms.Padding(0) + Me.Panel7.Name = "Panel7" + Me.Panel7.Size = New System.Drawing.Size(414, 507) + Me.Panel7.TabIndex = 5 + ' + 'TableLayoutPanel8 + ' + Me.TableLayoutPanel8.AutoSize = True + Me.TableLayoutPanel8.BackColor = System.Drawing.SystemColors.ButtonFace + Me.TableLayoutPanel8.CellBorderStyle = System.Windows.Forms.TableLayoutPanelCellBorderStyle.[Single] + Me.TableLayoutPanel8.ColumnCount = 4 + Me.TableLayoutPanel8.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle()) + Me.TableLayoutPanel8.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle()) + Me.TableLayoutPanel8.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle()) + Me.TableLayoutPanel8.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle()) + Me.TableLayoutPanel8.Controls.Add(Label25, 0, 1) + Me.TableLayoutPanel8.Controls.Add(Label26, 0, 2) + Me.TableLayoutPanel8.Controls.Add(Label27, 0, 3) + Me.TableLayoutPanel8.Controls.Add(Label28, 0, 4) + Me.TableLayoutPanel8.Controls.Add(Label29, 0, 5) + Me.TableLayoutPanel8.Controls.Add(Label30, 0, 0) + Me.TableLayoutPanel8.Controls.Add(Label31, 2, 1) + Me.TableLayoutPanel8.Controls.Add(Me.tb_t18, 3, 5) + Me.TableLayoutPanel8.Controls.Add(Me.tb_t1, 1, 0) + Me.TableLayoutPanel8.Controls.Add(Me.tb_t17, 3, 4) + Me.TableLayoutPanel8.Controls.Add(Label32, 2, 2) + Me.TableLayoutPanel8.Controls.Add(Me.tb_t16, 3, 3) + Me.TableLayoutPanel8.Controls.Add(Label33, 2, 3) + Me.TableLayoutPanel8.Controls.Add(Label34, 2, 4) + Me.TableLayoutPanel8.Controls.Add(Me.tb_t15, 3, 2) + Me.TableLayoutPanel8.Controls.Add(Label35, 2, 5) + Me.TableLayoutPanel8.Controls.Add(Me.tb_t14, 3, 1) + Me.TableLayoutPanel8.Controls.Add(Me.tb_t2, 1, 1) + Me.TableLayoutPanel8.Controls.Add(Me.tb_t13, 3, 0) + Me.TableLayoutPanel8.Controls.Add(Me.tb_t6, 1, 5) + Me.TableLayoutPanel8.Controls.Add(Me.tb_t19, 3, 6) + Me.TableLayoutPanel8.Controls.Add(Me.tb_t5, 1, 4) + Me.TableLayoutPanel8.Controls.Add(Me.tb_t20, 3, 7) + Me.TableLayoutPanel8.Controls.Add(Me.tb_t4, 1, 3) + Me.TableLayoutPanel8.Controls.Add(Me.tb_t21, 3, 8) + Me.TableLayoutPanel8.Controls.Add(Me.tb_t3, 1, 2) + Me.TableLayoutPanel8.Controls.Add(Me.tb_t22, 3, 9) + Me.TableLayoutPanel8.Controls.Add(Label36, 2, 0) + Me.TableLayoutPanel8.Controls.Add(Me.tb_t23, 3, 10) + Me.TableLayoutPanel8.Controls.Add(Me.tb_t12, 1, 11) + Me.TableLayoutPanel8.Controls.Add(Me.tb_t24, 3, 11) + Me.TableLayoutPanel8.Controls.Add(Me.tb_t11, 1, 10) + Me.TableLayoutPanel8.Controls.Add(Me.tb_t10, 1, 9) + Me.TableLayoutPanel8.Controls.Add(Me.tb_t9, 1, 8) + Me.TableLayoutPanel8.Controls.Add(Me.tb_t8, 1, 7) + Me.TableLayoutPanel8.Controls.Add(Me.tb_t7, 1, 6) + Me.TableLayoutPanel8.Controls.Add(Label37, 0, 6) + Me.TableLayoutPanel8.Controls.Add(Label38, 0, 7) + Me.TableLayoutPanel8.Controls.Add(Label92, 0, 8) + Me.TableLayoutPanel8.Controls.Add(Label93, 0, 9) + Me.TableLayoutPanel8.Controls.Add(Label94, 0, 10) + Me.TableLayoutPanel8.Controls.Add(Label95, 0, 11) + Me.TableLayoutPanel8.Controls.Add(Label96, 2, 6) + Me.TableLayoutPanel8.Controls.Add(Label97, 2, 7) + Me.TableLayoutPanel8.Controls.Add(Label98, 2, 8) + Me.TableLayoutPanel8.Controls.Add(Label99, 2, 9) + Me.TableLayoutPanel8.Controls.Add(Label100, 2, 10) + Me.TableLayoutPanel8.Controls.Add(Label101, 2, 11) + Me.TableLayoutPanel8.Location = New System.Drawing.Point(82, 38) + Me.TableLayoutPanel8.Name = "TableLayoutPanel8" + Me.TableLayoutPanel8.RowCount = 12 + 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.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.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.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.TabIndex = 125 + ' + '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(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 + ' + '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(79, 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(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 + ' + '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(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 + ' + '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(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 + ' + '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(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 + ' + '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(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 + ' + '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(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 + ' + '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(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 + ' + '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(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 + ' + '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(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 + ' + '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(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 + ' + '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(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 + ' + '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 + ' + 'BindingNavigator4 + ' + Me.BindingNavigator4.AddNewItem = Nothing + Me.BindingNavigator4.CountItem = Nothing + Me.BindingNavigator4.DeleteItem = Nothing + Me.BindingNavigator4.Dock = System.Windows.Forms.DockStyle.Bottom + Me.BindingNavigator4.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToolStripButton25, Me.ToolStripButton26, Me.ToolStripButton27, Me.ToolStripButton28, Me.ToolStripSeparator11, Me.ToolStripButton29, Me.ToolStripButton30}) + Me.BindingNavigator4.Location = New System.Drawing.Point(0, 482) + Me.BindingNavigator4.MoveFirstItem = Me.ToolStripButton25 + Me.BindingNavigator4.MoveLastItem = Me.ToolStripButton28 + Me.BindingNavigator4.MoveNextItem = Me.ToolStripButton27 + Me.BindingNavigator4.MovePreviousItem = Me.ToolStripButton26 + Me.BindingNavigator4.Name = "BindingNavigator4" + Me.BindingNavigator4.PositionItem = Nothing + Me.BindingNavigator4.Size = New System.Drawing.Size(414, 25) + Me.BindingNavigator4.TabIndex = 26 + Me.BindingNavigator4.Text = "BindingNavigator4" + ' + 'ToolStripButton25 + ' + Me.ToolStripButton25.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.ToolStripButton25.Image = CType(resources.GetObject("ToolStripButton25.Image"), System.Drawing.Image) + Me.ToolStripButton25.Name = "ToolStripButton25" + Me.ToolStripButton25.RightToLeftAutoMirrorImage = True + Me.ToolStripButton25.Size = New System.Drawing.Size(23, 22) + Me.ToolStripButton25.Text = "처음으로 이동" + ' + 'ToolStripButton26 + ' + Me.ToolStripButton26.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.ToolStripButton26.Image = CType(resources.GetObject("ToolStripButton26.Image"), System.Drawing.Image) + Me.ToolStripButton26.Name = "ToolStripButton26" + Me.ToolStripButton26.RightToLeftAutoMirrorImage = True + Me.ToolStripButton26.Size = New System.Drawing.Size(23, 22) + Me.ToolStripButton26.Text = "이전으로 이동" + ' + 'ToolStripButton27 + ' + Me.ToolStripButton27.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.ToolStripButton27.Image = CType(resources.GetObject("ToolStripButton27.Image"), System.Drawing.Image) + Me.ToolStripButton27.Name = "ToolStripButton27" + Me.ToolStripButton27.RightToLeftAutoMirrorImage = True + Me.ToolStripButton27.Size = New System.Drawing.Size(23, 22) + Me.ToolStripButton27.Text = "다음으로 이동" + ' + 'ToolStripButton28 + ' + Me.ToolStripButton28.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.ToolStripButton28.Image = CType(resources.GetObject("ToolStripButton28.Image"), System.Drawing.Image) + Me.ToolStripButton28.Name = "ToolStripButton28" + Me.ToolStripButton28.RightToLeftAutoMirrorImage = True + Me.ToolStripButton28.Size = New System.Drawing.Size(23, 22) + Me.ToolStripButton28.Text = "마지막으로 이동" + ' + 'ToolStripSeparator11 + ' + Me.ToolStripSeparator11.Name = "ToolStripSeparator11" + Me.ToolStripSeparator11.Size = New System.Drawing.Size(6, 25) + ' + 'ToolStripButton29 + ' + Me.ToolStripButton29.Image = CType(resources.GetObject("ToolStripButton29.Image"), System.Drawing.Image) + Me.ToolStripButton29.Name = "ToolStripButton29" + Me.ToolStripButton29.RightToLeftAutoMirrorImage = True + Me.ToolStripButton29.Size = New System.Drawing.Size(67, 22) + Me.ToolStripButton29.Text = "추가(&A)" + ' + 'ToolStripButton30 + ' + Me.ToolStripButton30.Image = CType(resources.GetObject("ToolStripButton30.Image"), System.Drawing.Image) + Me.ToolStripButton30.Name = "ToolStripButton30" + Me.ToolStripButton30.RightToLeftAutoMirrorImage = True + Me.ToolStripButton30.Size = New System.Drawing.Size(68, 22) + Me.ToolStripButton30.Text = "삭제(&D)" + ' + 'TabPage10 + ' + Me.TabPage10.Controls.Add(Me.TableLayoutPanel6) + Me.TabPage10.Location = New System.Drawing.Point(4, 22) + Me.TabPage10.Name = "TabPage10" + Me.TabPage10.Size = New System.Drawing.Size(614, 507) + Me.TabPage10.TabIndex = 3 + Me.TabPage10.Text = "평균습도" + Me.TabPage10.UseVisualStyleBackColor = True + ' + 'TableLayoutPanel6 + ' + Me.TableLayoutPanel6.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer)) + Me.TableLayoutPanel6.ColumnCount = 2 + Me.TableLayoutPanel6.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Absolute, 200.0!)) + Me.TableLayoutPanel6.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Percent, 100.0!)) + Me.TableLayoutPanel6.Controls.Add(Me.Arindv4, 0, 0) + Me.TableLayoutPanel6.Controls.Add(Me.Panel8, 1, 0) + Me.TableLayoutPanel6.Dock = System.Windows.Forms.DockStyle.Fill + Me.TableLayoutPanel6.Location = New System.Drawing.Point(0, 0) + Me.TableLayoutPanel6.Name = "TableLayoutPanel6" + Me.TableLayoutPanel6.RowCount = 1 + Me.TableLayoutPanel6.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Percent, 100.0!)) + Me.TableLayoutPanel6.Size = New System.Drawing.Size(614, 507) + Me.TableLayoutPanel6.TabIndex = 1 + ' + 'Arindv4 + ' + Me.Arindv4.A_DelCurrentCell = True + Me.Arindv4.A_EnterToTab = True + Me.Arindv4.AllowUserToAddRows = False + Me.Arindv4.AllowUserToResizeRows = False + Me.Arindv4.AutoGenerateColumns = False + Me.Arindv4.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.AllCells + Me.Arindv4.ColumnHeadersHeight = 30 + Me.Arindv4.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.DisableResizing + Me.Arindv4.Columns.AddRange(New System.Windows.Forms.DataGridViewColumn() {Me.설명DataGridViewTextBoxColumn2, Me.DataGridViewTextBoxColumn10}) + Me.Arindv4.DataSource = Me.bsw_supdo + Me.Arindv4.Dock = System.Windows.Forms.DockStyle.Fill + Me.Arindv4.Location = New System.Drawing.Point(0, 0) + Me.Arindv4.Margin = New System.Windows.Forms.Padding(0) + Me.Arindv4.Name = "Arindv4" + Me.Arindv4.RowHeadersVisible = False + Me.Arindv4.RowTemplate.Height = 23 + Me.Arindv4.Size = New System.Drawing.Size(200, 507) + Me.Arindv4.TabIndex = 4 + ' + '설명DataGridViewTextBoxColumn2 + ' + Me.설명DataGridViewTextBoxColumn2.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.Fill + Me.설명DataGridViewTextBoxColumn2.DataPropertyName = "설명" + Me.설명DataGridViewTextBoxColumn2.HeaderText = "설명" + Me.설명DataGridViewTextBoxColumn2.Name = "설명DataGridViewTextBoxColumn2" + ' + 'DataGridViewTextBoxColumn10 + ' + Me.DataGridViewTextBoxColumn10.DataPropertyName = "code" + Me.DataGridViewTextBoxColumn10.HeaderText = "code" + Me.DataGridViewTextBoxColumn10.Name = "DataGridViewTextBoxColumn10" + Me.DataGridViewTextBoxColumn10.Width = 62 + ' + 'bsw_supdo + ' + Me.bsw_supdo.DataMember = "weather_supdo" + Me.bsw_supdo.DataSource = Me.DS + ' + 'Panel8 + ' + Me.Panel8.AutoScroll = True + Me.Panel8.BackColor = System.Drawing.Color.White + Me.Panel8.Controls.Add(Me.TableLayoutPanel9) + Me.Panel8.Controls.Add(Me.BindingNavigator5) + Me.Panel8.Dock = System.Windows.Forms.DockStyle.Fill + Me.Panel8.Location = New System.Drawing.Point(200, 0) + Me.Panel8.Margin = New System.Windows.Forms.Padding(0) + Me.Panel8.Name = "Panel8" + Me.Panel8.Size = New System.Drawing.Size(414, 507) + Me.Panel8.TabIndex = 0 + ' + 'TableLayoutPanel9 + ' + Me.TableLayoutPanel9.AutoSize = True + Me.TableLayoutPanel9.BackColor = System.Drawing.SystemColors.ButtonFace + Me.TableLayoutPanel9.CellBorderStyle = System.Windows.Forms.TableLayoutPanelCellBorderStyle.[Single] + Me.TableLayoutPanel9.ColumnCount = 4 + Me.TableLayoutPanel9.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle()) + Me.TableLayoutPanel9.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle()) + Me.TableLayoutPanel9.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle()) + Me.TableLayoutPanel9.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle()) + Me.TableLayoutPanel9.Controls.Add(Me.tb_s24, 3, 11) + Me.TableLayoutPanel9.Controls.Add(Label40, 0, 1) + Me.TableLayoutPanel9.Controls.Add(Me.tb_S12, 1, 11) + Me.TableLayoutPanel9.Controls.Add(Me.tb_s23, 3, 10) + Me.TableLayoutPanel9.Controls.Add(Label41, 0, 2) + Me.TableLayoutPanel9.Controls.Add(Label42, 0, 3) + Me.TableLayoutPanel9.Controls.Add(Label43, 0, 4) + Me.TableLayoutPanel9.Controls.Add(Me.tb_s22, 3, 9) + Me.TableLayoutPanel9.Controls.Add(Label44, 0, 5) + Me.TableLayoutPanel9.Controls.Add(Label45, 0, 0) + Me.TableLayoutPanel9.Controls.Add(Me.tb_s11, 1, 10) + Me.TableLayoutPanel9.Controls.Add(Me.tb_s21, 3, 8) + Me.TableLayoutPanel9.Controls.Add(Label46, 2, 1) + Me.TableLayoutPanel9.Controls.Add(Me.tb_s1, 1, 0) + Me.TableLayoutPanel9.Controls.Add(Me.tb_s20, 3, 7) + Me.TableLayoutPanel9.Controls.Add(Label47, 2, 2) + Me.TableLayoutPanel9.Controls.Add(Me.tb_s10, 1, 9) + Me.TableLayoutPanel9.Controls.Add(Label48, 2, 3) + Me.TableLayoutPanel9.Controls.Add(Me.tb_s19, 3, 6) + Me.TableLayoutPanel9.Controls.Add(Me.tb_s3, 1, 2) + Me.TableLayoutPanel9.Controls.Add(Me.tb_s18, 3, 5) + Me.TableLayoutPanel9.Controls.Add(Me.tb_s9, 1, 8) + Me.TableLayoutPanel9.Controls.Add(Me.tb_s2, 1, 1) + Me.TableLayoutPanel9.Controls.Add(Me.tb_s17, 3, 4) + Me.TableLayoutPanel9.Controls.Add(Label49, 2, 4) + Me.TableLayoutPanel9.Controls.Add(Label50, 2, 5) + Me.TableLayoutPanel9.Controls.Add(Me.tb_s16, 3, 3) + Me.TableLayoutPanel9.Controls.Add(Me.tb_s8, 1, 7) + Me.TableLayoutPanel9.Controls.Add(Me.tb_s15, 3, 2) + Me.TableLayoutPanel9.Controls.Add(Me.tb_s14, 3, 1) + Me.TableLayoutPanel9.Controls.Add(Label51, 2, 0) + Me.TableLayoutPanel9.Controls.Add(Me.tb_s4, 1, 3) + Me.TableLayoutPanel9.Controls.Add(Label52, 0, 6) + Me.TableLayoutPanel9.Controls.Add(Me.tb_s13, 3, 0) + Me.TableLayoutPanel9.Controls.Add(Label53, 0, 7) + Me.TableLayoutPanel9.Controls.Add(Label54, 0, 8) + Me.TableLayoutPanel9.Controls.Add(Label55, 0, 9) + Me.TableLayoutPanel9.Controls.Add(Label56, 0, 10) + Me.TableLayoutPanel9.Controls.Add(Label57, 0, 11) + Me.TableLayoutPanel9.Controls.Add(Me.tb_s7, 1, 6) + Me.TableLayoutPanel9.Controls.Add(Label58, 2, 6) + Me.TableLayoutPanel9.Controls.Add(Me.tb_s5, 1, 4) + Me.TableLayoutPanel9.Controls.Add(Me.tb_s6, 1, 5) + Me.TableLayoutPanel9.Controls.Add(Label59, 2, 7) + Me.TableLayoutPanel9.Controls.Add(Label60, 2, 8) + Me.TableLayoutPanel9.Controls.Add(Label61, 2, 9) + Me.TableLayoutPanel9.Controls.Add(Label62, 2, 10) + Me.TableLayoutPanel9.Controls.Add(Label63, 2, 11) + Me.TableLayoutPanel9.Location = New System.Drawing.Point(82, 38) + Me.TableLayoutPanel9.Name = "TableLayoutPanel9" + Me.TableLayoutPanel9.RowCount = 12 + 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.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.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.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.TabIndex = 127 + ' + '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(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 + ' + '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(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 + ' + '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(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 + ' + '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(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 + ' + '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(79, 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(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 + ' + '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(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 + ' + '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(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 + ' + '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(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 + ' + '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(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 + ' + '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(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 + ' + '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(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 + ' + '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(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 + ' + '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 + ' + 'BindingNavigator5 + ' + Me.BindingNavigator5.AddNewItem = Nothing + Me.BindingNavigator5.CountItem = Nothing + Me.BindingNavigator5.DeleteItem = Nothing + Me.BindingNavigator5.Dock = System.Windows.Forms.DockStyle.Bottom + Me.BindingNavigator5.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToolStripButton33, Me.ToolStripButton34, Me.ToolStripButton35, Me.ToolStripButton36, Me.ToolStripSeparator12, Me.ToolStripButton37, Me.ToolStripButton38}) + Me.BindingNavigator5.Location = New System.Drawing.Point(0, 482) + Me.BindingNavigator5.MoveFirstItem = Me.ToolStripButton33 + Me.BindingNavigator5.MoveLastItem = Me.ToolStripButton36 + Me.BindingNavigator5.MoveNextItem = Me.ToolStripButton35 + Me.BindingNavigator5.MovePreviousItem = Me.ToolStripButton34 + Me.BindingNavigator5.Name = "BindingNavigator5" + Me.BindingNavigator5.PositionItem = Nothing + Me.BindingNavigator5.Size = New System.Drawing.Size(414, 25) + Me.BindingNavigator5.TabIndex = 26 + Me.BindingNavigator5.Text = "BindingNavigator5" + ' + 'ToolStripButton33 + ' + Me.ToolStripButton33.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.ToolStripButton33.Image = CType(resources.GetObject("ToolStripButton33.Image"), System.Drawing.Image) + Me.ToolStripButton33.Name = "ToolStripButton33" + Me.ToolStripButton33.RightToLeftAutoMirrorImage = True + Me.ToolStripButton33.Size = New System.Drawing.Size(23, 22) + Me.ToolStripButton33.Text = "처음으로 이동" + ' + 'ToolStripButton34 + ' + Me.ToolStripButton34.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.ToolStripButton34.Image = CType(resources.GetObject("ToolStripButton34.Image"), System.Drawing.Image) + Me.ToolStripButton34.Name = "ToolStripButton34" + Me.ToolStripButton34.RightToLeftAutoMirrorImage = True + Me.ToolStripButton34.Size = New System.Drawing.Size(23, 22) + Me.ToolStripButton34.Text = "이전으로 이동" + ' + 'ToolStripButton35 + ' + Me.ToolStripButton35.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.ToolStripButton35.Image = CType(resources.GetObject("ToolStripButton35.Image"), System.Drawing.Image) + Me.ToolStripButton35.Name = "ToolStripButton35" + Me.ToolStripButton35.RightToLeftAutoMirrorImage = True + Me.ToolStripButton35.Size = New System.Drawing.Size(23, 22) + Me.ToolStripButton35.Text = "다음으로 이동" + ' + 'ToolStripButton36 + ' + Me.ToolStripButton36.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.ToolStripButton36.Image = CType(resources.GetObject("ToolStripButton36.Image"), System.Drawing.Image) + Me.ToolStripButton36.Name = "ToolStripButton36" + Me.ToolStripButton36.RightToLeftAutoMirrorImage = True + Me.ToolStripButton36.Size = New System.Drawing.Size(23, 22) + Me.ToolStripButton36.Text = "마지막으로 이동" + ' + 'ToolStripSeparator12 + ' + Me.ToolStripSeparator12.Name = "ToolStripSeparator12" + Me.ToolStripSeparator12.Size = New System.Drawing.Size(6, 25) + ' + 'ToolStripButton37 + ' + Me.ToolStripButton37.Image = CType(resources.GetObject("ToolStripButton37.Image"), System.Drawing.Image) + Me.ToolStripButton37.Name = "ToolStripButton37" + Me.ToolStripButton37.RightToLeftAutoMirrorImage = True + Me.ToolStripButton37.Size = New System.Drawing.Size(68, 22) + Me.ToolStripButton37.Text = "추가(&Q)" + ' + 'ToolStripButton38 + ' + Me.ToolStripButton38.Image = CType(resources.GetObject("ToolStripButton38.Image"), System.Drawing.Image) + Me.ToolStripButton38.Name = "ToolStripButton38" + Me.ToolStripButton38.RightToLeftAutoMirrorImage = True + Me.ToolStripButton38.Size = New System.Drawing.Size(70, 22) + Me.ToolStripButton38.Text = "삭제(&W)" + ' + 'TabPage2 + ' + Me.TabPage2.Controls.Add(Me.TableLayoutPanel2) + Me.TabPage2.Location = New System.Drawing.Point(4, 22) + Me.TabPage2.Name = "TabPage2" + Me.TabPage2.Size = New System.Drawing.Size(614, 507) + Me.TabPage2.TabIndex = 5 + Me.TabPage2.Text = "차양감소계수" + Me.TabPage2.UseVisualStyleBackColor = True + ' + 'TableLayoutPanel2 + ' + Me.TableLayoutPanel2.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer)) + Me.TableLayoutPanel2.ColumnCount = 2 + Me.TableLayoutPanel2.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Absolute, 200.0!)) + Me.TableLayoutPanel2.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Percent, 100.0!)) + Me.TableLayoutPanel2.Controls.Add(Me.Arindv1, 0, 0) + Me.TableLayoutPanel2.Controls.Add(Me.Panel1, 1, 0) + Me.TableLayoutPanel2.Dock = System.Windows.Forms.DockStyle.Fill + Me.TableLayoutPanel2.Location = New System.Drawing.Point(0, 0) + Me.TableLayoutPanel2.Name = "TableLayoutPanel2" + Me.TableLayoutPanel2.RowCount = 1 + Me.TableLayoutPanel2.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Percent, 100.0!)) + Me.TableLayoutPanel2.Size = New System.Drawing.Size(614, 507) + Me.TableLayoutPanel2.TabIndex = 1 + ' + 'Arindv1 + ' + Me.Arindv1.A_DelCurrentCell = True + Me.Arindv1.A_EnterToTab = True + Me.Arindv1.AllowUserToAddRows = False + Me.Arindv1.AllowUserToResizeRows = False + Me.Arindv1.AutoGenerateColumns = False + Me.Arindv1.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.AllCells + Me.Arindv1.ColumnHeadersHeight = 30 + Me.Arindv1.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.DisableResizing + Me.Arindv1.Columns.AddRange(New System.Windows.Forms.DataGridViewColumn() {Me.DataGridViewTextBoxColumn1, Me.DataGridViewTextBoxColumn11}) + Me.Arindv1.DataSource = Me.bsw_cha + Me.Arindv1.Dock = System.Windows.Forms.DockStyle.Fill + Me.Arindv1.Location = New System.Drawing.Point(0, 0) + Me.Arindv1.Margin = New System.Windows.Forms.Padding(0) + Me.Arindv1.Name = "Arindv1" + Me.Arindv1.RowHeadersVisible = False + Me.Arindv1.RowTemplate.Height = 23 + Me.Arindv1.Size = New System.Drawing.Size(200, 507) + Me.Arindv1.TabIndex = 4 + ' + 'DataGridViewTextBoxColumn1 + ' + Me.DataGridViewTextBoxColumn1.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.Fill + Me.DataGridViewTextBoxColumn1.DataPropertyName = "설명" + Me.DataGridViewTextBoxColumn1.HeaderText = "설명" + Me.DataGridViewTextBoxColumn1.Name = "DataGridViewTextBoxColumn1" + ' + 'DataGridViewTextBoxColumn11 + ' + Me.DataGridViewTextBoxColumn11.DataPropertyName = "code" + Me.DataGridViewTextBoxColumn11.HeaderText = "code" + Me.DataGridViewTextBoxColumn11.Name = "DataGridViewTextBoxColumn11" + Me.DataGridViewTextBoxColumn11.Width = 62 + ' + 'bsw_cha + ' + Me.bsw_cha.DataMember = "weather_cha" + Me.bsw_cha.DataSource = Me.DS + ' + 'Panel1 + ' + Me.Panel1.AutoScroll = True + Me.Panel1.BackColor = System.Drawing.Color.White + Me.Panel1.Controls.Add(Me.Button1) + Me.Panel1.Controls.Add(Me.TableLayoutPanel1) + Me.Panel1.Controls.Add(Me.BindingNavigator2) + Me.Panel1.Dock = System.Windows.Forms.DockStyle.Fill + Me.Panel1.Location = New System.Drawing.Point(200, 0) + Me.Panel1.Margin = New System.Windows.Forms.Padding(0) + Me.Panel1.Name = "Panel1" + Me.Panel1.Size = New System.Drawing.Size(414, 507) + Me.Panel1.TabIndex = 5 + ' + 'Button1 + ' + Me.Button1.Location = New System.Drawing.Point(89, 252) + Me.Button1.Name = "Button1" + Me.Button1.Size = New System.Drawing.Size(75, 23) + Me.Button1.TabIndex = 124 + Me.Button1.Text = "Button1" + Me.Button1.UseVisualStyleBackColor = True + ' + 'TableLayoutPanel1 + ' + Me.TableLayoutPanel1.AutoSize = True + Me.TableLayoutPanel1.BackColor = System.Drawing.SystemColors.ButtonFace + Me.TableLayoutPanel1.CellBorderStyle = System.Windows.Forms.TableLayoutPanelCellBorderStyle.[Single] + Me.TableLayoutPanel1.ColumnCount = 4 + Me.TableLayoutPanel1.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle()) + Me.TableLayoutPanel1.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle()) + Me.TableLayoutPanel1.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle()) + Me.TableLayoutPanel1.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle()) + Me.TableLayoutPanel1.Controls.Add(Me.tb_c12, 3, 5) + Me.TableLayoutPanel1.Controls.Add(Label1, 2, 5) + Me.TableLayoutPanel1.Controls.Add(Label2, 2, 4) + Me.TableLayoutPanel1.Controls.Add(Label3, 2, 3) + Me.TableLayoutPanel1.Controls.Add(Me.tb_c11, 3, 4) + Me.TableLayoutPanel1.Controls.Add(Me.tb_c01, 1, 0) + Me.TableLayoutPanel1.Controls.Add(Me.tb_c06, 1, 5) + Me.TableLayoutPanel1.Controls.Add(Me.tb_c10, 3, 3) + Me.TableLayoutPanel1.Controls.Add(Label4, 2, 2) + Me.TableLayoutPanel1.Controls.Add(Label5, 0, 5) + Me.TableLayoutPanel1.Controls.Add(Label6, 2, 1) + Me.TableLayoutPanel1.Controls.Add(Label7, 0, 4) + Me.TableLayoutPanel1.Controls.Add(Me.tb_c09, 3, 2) + Me.TableLayoutPanel1.Controls.Add(Me.tb_c05, 1, 4) + Me.TableLayoutPanel1.Controls.Add(Me.tb_c08, 3, 1) + Me.TableLayoutPanel1.Controls.Add(Label8, 2, 0) + Me.TableLayoutPanel1.Controls.Add(Label9, 0, 3) + Me.TableLayoutPanel1.Controls.Add(Label10, 0, 0) + Me.TableLayoutPanel1.Controls.Add(Label11, 0, 2) + Me.TableLayoutPanel1.Controls.Add(Me.tb_c04, 1, 3) + Me.TableLayoutPanel1.Controls.Add(Label12, 0, 1) + Me.TableLayoutPanel1.Controls.Add(Me.tb_c07, 3, 0) + Me.TableLayoutPanel1.Controls.Add(Me.tb_c02, 1, 1) + Me.TableLayoutPanel1.Controls.Add(Me.tb_c03, 1, 2) + Me.TableLayoutPanel1.Location = New System.Drawing.Point(82, 38) + Me.TableLayoutPanel1.Name = "TableLayoutPanel1" + Me.TableLayoutPanel1.RowCount = 6 + 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()) + 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()) + 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.TabIndex = 123 + ' + '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(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 + ' + '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(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 + ' + '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(79, 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(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 + ' + '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(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 + ' + '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(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 + ' + '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(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 + ' + '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 + ' + 'BindingNavigator2 + ' + Me.BindingNavigator2.AddNewItem = Nothing + Me.BindingNavigator2.BindingSource = Me.bsw_cha + Me.BindingNavigator2.CountItem = Nothing + Me.BindingNavigator2.DeleteItem = Nothing + Me.BindingNavigator2.Dock = System.Windows.Forms.DockStyle.Bottom + Me.BindingNavigator2.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToolStripButton1, Me.ToolStripButton2, Me.ToolStripButton3, Me.ToolStripButton4, Me.ToolStripSeparator1, Me.ToolStripButton5, Me.ToolStripButton6}) + Me.BindingNavigator2.Location = New System.Drawing.Point(0, 482) + Me.BindingNavigator2.MoveFirstItem = Me.ToolStripButton1 + Me.BindingNavigator2.MoveLastItem = Me.ToolStripButton4 + Me.BindingNavigator2.MoveNextItem = Me.ToolStripButton3 + Me.BindingNavigator2.MovePreviousItem = Me.ToolStripButton2 + Me.BindingNavigator2.Name = "BindingNavigator2" + Me.BindingNavigator2.PositionItem = Nothing + Me.BindingNavigator2.Size = New System.Drawing.Size(414, 25) + Me.BindingNavigator2.TabIndex = 26 + Me.BindingNavigator2.Text = "BindingNavigator2" + ' + 'ToolStripButton1 + ' + Me.ToolStripButton1.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.ToolStripButton1.Image = CType(resources.GetObject("ToolStripButton1.Image"), System.Drawing.Image) + Me.ToolStripButton1.Name = "ToolStripButton1" + Me.ToolStripButton1.RightToLeftAutoMirrorImage = True + Me.ToolStripButton1.Size = New System.Drawing.Size(23, 22) + Me.ToolStripButton1.Text = "처음으로 이동" + ' + 'ToolStripButton2 + ' + Me.ToolStripButton2.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.ToolStripButton2.Image = CType(resources.GetObject("ToolStripButton2.Image"), System.Drawing.Image) + Me.ToolStripButton2.Name = "ToolStripButton2" + Me.ToolStripButton2.RightToLeftAutoMirrorImage = True + Me.ToolStripButton2.Size = New System.Drawing.Size(23, 22) + Me.ToolStripButton2.Text = "이전으로 이동" + ' + 'ToolStripButton3 + ' + Me.ToolStripButton3.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.ToolStripButton3.Image = CType(resources.GetObject("ToolStripButton3.Image"), System.Drawing.Image) + Me.ToolStripButton3.Name = "ToolStripButton3" + Me.ToolStripButton3.RightToLeftAutoMirrorImage = True + Me.ToolStripButton3.Size = New System.Drawing.Size(23, 22) + Me.ToolStripButton3.Text = "다음으로 이동" + ' + 'ToolStripButton4 + ' + Me.ToolStripButton4.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.ToolStripButton4.Image = CType(resources.GetObject("ToolStripButton4.Image"), System.Drawing.Image) + Me.ToolStripButton4.Name = "ToolStripButton4" + Me.ToolStripButton4.RightToLeftAutoMirrorImage = True + Me.ToolStripButton4.Size = New System.Drawing.Size(23, 22) + Me.ToolStripButton4.Text = "마지막으로 이동" + ' + 'ToolStripSeparator1 + ' + Me.ToolStripSeparator1.Name = "ToolStripSeparator1" + Me.ToolStripSeparator1.Size = New System.Drawing.Size(6, 25) + ' + 'ToolStripButton5 + ' + Me.ToolStripButton5.Image = CType(resources.GetObject("ToolStripButton5.Image"), System.Drawing.Image) + Me.ToolStripButton5.Name = "ToolStripButton5" + Me.ToolStripButton5.RightToLeftAutoMirrorImage = True + Me.ToolStripButton5.Size = New System.Drawing.Size(67, 22) + Me.ToolStripButton5.Text = "추가(&A)" + ' + 'ToolStripButton6 + ' + Me.ToolStripButton6.Image = CType(resources.GetObject("ToolStripButton6.Image"), System.Drawing.Image) + Me.ToolStripButton6.Name = "ToolStripButton6" + Me.ToolStripButton6.RightToLeftAutoMirrorImage = True + Me.ToolStripButton6.Size = New System.Drawing.Size(68, 22) + Me.ToolStripButton6.Text = "삭제(&D)" + ' + 'dv + ' + Me.dv.A_DelCurrentCell = True + Me.dv.A_EnterToTab = False + Me.dv.AllowUserToAddRows = False + Me.dv.AllowUserToResizeRows = False + Me.dv.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _ + Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles) + Me.dv.AutoGenerateColumns = False + Me.dv.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.AllCells + Me.dv.BorderStyle = System.Windows.Forms.BorderStyle.None + Me.dv.CellBorderStyle = System.Windows.Forms.DataGridViewCellBorderStyle.SingleVertical + Me.dv.ColumnHeadersHeight = 30 + Me.dv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.DisableResizing + Me.dv.Columns.AddRange(New System.Windows.Forms.DataGridViewColumn() {Me.건물위치DataGridViewTextBoxColumn}) + Me.dv.DataSource = Me.bs + Me.dv.Location = New System.Drawing.Point(3, 133) + Me.dv.Margin = New System.Windows.Forms.Padding(0) + Me.dv.MultiSelect = False + Me.dv.Name = "dv" + Me.dv.RowHeadersVisible = False + Me.dv.RowTemplate.Height = 23 + Me.dv.Size = New System.Drawing.Size(182, 398) + Me.dv.TabIndex = 3 + ' + '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(812, 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 = "<메세지>" + ' + 'DataGridViewTextBoxColumn2 + ' + Me.DataGridViewTextBoxColumn2.DataPropertyName = "code" + Me.DataGridViewTextBoxColumn2.HeaderText = "code" + Me.DataGridViewTextBoxColumn2.Name = "DataGridViewTextBoxColumn2" + Me.DataGridViewTextBoxColumn2.Width = 58 + ' + 'DataGridViewTextBoxColumn3 + ' + Me.DataGridViewTextBoxColumn3.DataPropertyName = "code" + Me.DataGridViewTextBoxColumn3.HeaderText = "code" + Me.DataGridViewTextBoxColumn3.Name = "DataGridViewTextBoxColumn3" + Me.DataGridViewTextBoxColumn3.Width = 58 + ' + 'DataGridViewTextBoxColumn4 + ' + Me.DataGridViewTextBoxColumn4.DataPropertyName = "code" + Me.DataGridViewTextBoxColumn4.HeaderText = "code" + Me.DataGridViewTextBoxColumn4.Name = "DataGridViewTextBoxColumn4" + Me.DataGridViewTextBoxColumn4.Width = 58 + ' + 'DataGridViewTextBoxColumn5 + ' + 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 + ' + '건물위치DataGridViewTextBoxColumn + ' + Me.건물위치DataGridViewTextBoxColumn.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.Fill + Me.건물위치DataGridViewTextBoxColumn.DataPropertyName = "건물위치" + Me.건물위치DataGridViewTextBoxColumn.HeaderText = "건물위치" + Me.건물위치DataGridViewTextBoxColumn.Name = "건물위치DataGridViewTextBoxColumn" + Me.건물위치DataGridViewTextBoxColumn.SortMode = System.Windows.Forms.DataGridViewColumnSortMode.NotSortable + ' + 'Frm_V20091231_Weather + ' + Me.AutoScaleDimensions = New System.Drawing.SizeF(8.0!, 12.0!) + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font + Me.ClientSize = New System.Drawing.Size(812, 555) + Me.ControlBox = False + Me.Controls.Add(Me.TabControl3) + Me.Controls.Add(Me.dv) + Me.Controls.Add(Me.bn_all) + Me.Controls.Add(Me.StatusStrip1) + Me.Font = New System.Drawing.Font("돋움", 8.999999!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.KeyPreview = true + 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 + Me.TabControl3.ResumeLayout(false) + Me.TabPage1.ResumeLayout(false) + Me.GroupBox2.ResumeLayout(false) + Me.Panel3.ResumeLayout(false) + Me.Panel3.PerformLayout + Me.TableLayoutPanel7.ResumeLayout(false) + Me.TableLayoutPanel7.PerformLayout + CType(Me.bs,System.ComponentModel.ISupportInitialize).EndInit + CType(Me.DS,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) + Me.TableLayoutPanel34.PerformLayout + CType(Me.BindingNavigator1,System.ComponentModel.ISupportInitialize).EndInit + Me.BindingNavigator1.ResumeLayout(false) + Me.BindingNavigator1.PerformLayout + 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) + Me.TableLayoutPanel8.PerformLayout + CType(Me.BindingNavigator4,System.ComponentModel.ISupportInitialize).EndInit + Me.BindingNavigator4.ResumeLayout(false) + Me.BindingNavigator4.PerformLayout + 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) + Me.TableLayoutPanel9.PerformLayout + CType(Me.BindingNavigator5,System.ComponentModel.ISupportInitialize).EndInit + Me.BindingNavigator5.ResumeLayout(false) + Me.BindingNavigator5.PerformLayout + 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) + Me.TableLayoutPanel1.PerformLayout + CType(Me.BindingNavigator2,System.ComponentModel.ISupportInitialize).EndInit + Me.BindingNavigator2.ResumeLayout(false) + Me.BindingNavigator2.PerformLayout + CType(Me.dv,System.ComponentModel.ISupportInitialize).EndInit + Me.StatusStrip1.ResumeLayout(false) + Me.StatusStrip1.PerformLayout + Me.ResumeLayout(false) + Me.PerformLayout + +End Sub + Friend WithEvents bn_all As System.Windows.Forms.BindingNavigator + Friend WithEvents ToolStripButton48 As System.Windows.Forms.ToolStripButton + Friend WithEvents ToolStripButton49 As System.Windows.Forms.ToolStripButton + Friend WithEvents ToolStripSeparator28 As System.Windows.Forms.ToolStripSeparator + Friend WithEvents ToolStripButton51 As System.Windows.Forms.ToolStripButton + Friend WithEvents TabControl3 As System.Windows.Forms.TabControl + Friend WithEvents tb_wnaen As MyTb + Friend WithEvents tb_wnan As MyTb + Friend WithEvents TabPage8 As System.Windows.Forms.TabPage + Friend WithEvents Arindv2 As CEnergy.arindv + Friend WithEvents BindingNavigator1 As System.Windows.Forms.BindingNavigator + Friend WithEvents ToolStripButton9 As System.Windows.Forms.ToolStripButton + Friend WithEvents ToolStripButton10 As System.Windows.Forms.ToolStripButton + Friend WithEvents ToolStripButton11 As System.Windows.Forms.ToolStripButton + Friend WithEvents ToolStripButton12 As System.Windows.Forms.ToolStripButton + Friend WithEvents ToolStripSeparator10 As System.Windows.Forms.ToolStripSeparator + Friend WithEvents ToolStripButton14 As System.Windows.Forms.ToolStripButton + Friend WithEvents ToolStripButton15 As System.Windows.Forms.ToolStripButton + Friend WithEvents TabPage9 As System.Windows.Forms.TabPage + Friend WithEvents TableLayoutPanel5 As System.Windows.Forms.TableLayoutPanel + Friend WithEvents Arindv3 As CEnergy.arindv + Friend WithEvents Panel7 As System.Windows.Forms.Panel + Friend WithEvents BindingNavigator4 As System.Windows.Forms.BindingNavigator + Friend WithEvents ToolStripButton25 As System.Windows.Forms.ToolStripButton + Friend WithEvents ToolStripButton26 As System.Windows.Forms.ToolStripButton + Friend WithEvents ToolStripButton27 As System.Windows.Forms.ToolStripButton + Friend WithEvents ToolStripButton28 As System.Windows.Forms.ToolStripButton + Friend WithEvents ToolStripSeparator11 As System.Windows.Forms.ToolStripSeparator + Friend WithEvents ToolStripButton29 As System.Windows.Forms.ToolStripButton + Friend WithEvents ToolStripButton30 As System.Windows.Forms.ToolStripButton + Friend WithEvents TabPage10 As System.Windows.Forms.TabPage + Friend WithEvents TableLayoutPanel6 As System.Windows.Forms.TableLayoutPanel + Friend WithEvents Arindv4 As CEnergy.arindv + Friend WithEvents Panel8 As System.Windows.Forms.Panel + Friend WithEvents BindingNavigator5 As System.Windows.Forms.BindingNavigator + Friend WithEvents ToolStripButton33 As System.Windows.Forms.ToolStripButton + Friend WithEvents ToolStripButton34 As System.Windows.Forms.ToolStripButton + Friend WithEvents ToolStripButton35 As System.Windows.Forms.ToolStripButton + Friend WithEvents ToolStripButton36 As System.Windows.Forms.ToolStripButton + Friend WithEvents ToolStripSeparator12 As System.Windows.Forms.ToolStripSeparator + Friend WithEvents ToolStripButton37 As System.Windows.Forms.ToolStripButton + Friend WithEvents ToolStripButton38 As System.Windows.Forms.ToolStripButton + Friend WithEvents dv As CEnergy.arindv + Public WithEvents DS As Eco2Ar.DS + Friend WithEvents bs As System.Windows.Forms.BindingSource + Friend WithEvents bsw_ilsa As System.Windows.Forms.BindingSource + Friend WithEvents bsw_temp As System.Windows.Forms.BindingSource + Friend WithEvents bsw_supdo As System.Windows.Forms.BindingSource + Friend WithEvents tb_w02 As MyTb + Friend WithEvents tb_w01 As MyTb + Friend WithEvents tb_w09 As MyTb + Friend WithEvents tb_w08 As MyTb + Friend WithEvents tb_w07 As MyTb + Friend WithEvents tb_w06 As MyTb + Friend WithEvents tb_w05 As MyTb + Friend WithEvents tb_w04 As MyTb + Friend WithEvents tb_w03 As MyTb + Friend WithEvents tb_w12 As MyTb + Friend WithEvents tb_w11 As MyTb + Friend WithEvents tb_w10 As MyTb + Friend WithEvents TableLayoutPanel4 As System.Windows.Forms.TableLayoutPanel + Friend WithEvents Panel4 As System.Windows.Forms.Panel + Friend WithEvents tb_v0 As MyTb + Friend WithEvents tb_v6 As MyTb + Friend WithEvents tb_v1 As MyTb + Friend WithEvents tb_v5 As MyTb + Friend WithEvents tb_v2 As MyTb + Friend WithEvents tb_v4 As MyTb + Friend WithEvents tb_v3 As MyTb + Friend WithEvents tb_v11 As MyTb + Friend WithEvents tb_v10 As MyTb + Friend WithEvents tb_v9 As MyTb + Friend WithEvents tb_v8 As MyTb + Friend WithEvents tb_v7 As MyTb + Friend WithEvents tb_t16 As MyTb + Friend WithEvents tb_t15 As MyTb + Friend WithEvents tb_t14 As MyTb + Friend WithEvents tb_t13 As MyTb + Friend WithEvents tb_t12 As MyTb + Friend WithEvents tb_t1 As MyTb + Friend WithEvents tb_t11 As MyTb + Friend WithEvents tb_t2 As MyTb + Friend WithEvents tb_t10 As MyTb + Friend WithEvents tb_t3 As MyTb + Friend WithEvents tb_t9 As MyTb + Friend WithEvents tb_t4 As MyTb + Friend WithEvents tb_t8 As MyTb + Friend WithEvents tb_t5 As MyTb + Friend WithEvents tb_t7 As MyTb + Friend WithEvents tb_t6 As MyTb + Friend WithEvents tb_t18 As MyTb + Friend WithEvents tb_t17 As MyTb + Friend WithEvents tb_s23 As MyTb + Friend WithEvents tb_S12 As MyTb + Friend WithEvents tb_s22 As MyTb + Friend WithEvents tb_s21 As MyTb + Friend WithEvents tb_s20 As MyTb + Friend WithEvents tb_s19 As MyTb + Friend WithEvents tb_s1 As MyTb + Friend WithEvents tb_s18 As MyTb + Friend WithEvents tb_s17 As MyTb + Friend WithEvents tb_s11 As MyTb + Friend WithEvents tb_s16 As MyTb + Friend WithEvents tb_s15 As MyTb + Friend WithEvents tb_s14 As MyTb + Friend WithEvents tb_s13 As MyTb + Friend WithEvents tb_s2 As MyTb + Friend WithEvents tb_s10 As MyTb + Friend WithEvents tb_s3 As MyTb + Friend WithEvents tb_s9 As MyTb + Friend WithEvents tb_s4 As MyTb + Friend WithEvents tb_s8 As MyTb + Friend WithEvents tb_s5 As MyTb + Friend WithEvents tb_s7 As MyTb + Friend WithEvents tb_s6 As MyTb + Friend WithEvents StatusStrip1 As System.Windows.Forms.StatusStrip + Friend WithEvents lb_msg As System.Windows.Forms.ToolStripStatusLabel + Friend WithEvents TabPage1 As System.Windows.Forms.TabPage + Friend WithEvents TableLayoutPanel34 As System.Windows.Forms.TableLayoutPanel + Friend WithEvents tb_v12 As MyTb + Friend WithEvents tb_s24 As MyTb + Friend WithEvents tb_t24 As MyTb + Friend WithEvents tb_t23 As MyTb + Friend WithEvents tb_t22 As MyTb + Friend WithEvents tb_t21 As MyTb + Friend WithEvents tb_t20 As MyTb + Friend WithEvents tb_t19 As MyTb + Friend WithEvents TabPage2 As System.Windows.Forms.TabPage + Friend WithEvents TableLayoutPanel2 As System.Windows.Forms.TableLayoutPanel + Friend WithEvents Arindv1 As CEnergy.arindv + Friend WithEvents Panel1 As System.Windows.Forms.Panel + Friend WithEvents tb_c12 As MyTb + Friend WithEvents tb_c11 As MyTb + Friend WithEvents tb_c01 As MyTb + Friend WithEvents tb_c06 As MyTb + Friend WithEvents tb_c10 As MyTb + Friend WithEvents tb_c09 As MyTb + Friend WithEvents tb_c05 As MyTb + Friend WithEvents tb_c08 As MyTb + Friend WithEvents tb_c04 As MyTb + Friend WithEvents tb_c02 As MyTb + Friend WithEvents tb_c07 As MyTb + Friend WithEvents tb_c03 As MyTb + Friend WithEvents BindingNavigator2 As System.Windows.Forms.BindingNavigator + Friend WithEvents ToolStripButton1 As System.Windows.Forms.ToolStripButton + Friend WithEvents ToolStripButton2 As System.Windows.Forms.ToolStripButton + Friend WithEvents ToolStripButton3 As System.Windows.Forms.ToolStripButton + Friend WithEvents ToolStripButton4 As System.Windows.Forms.ToolStripButton + Friend WithEvents ToolStripSeparator1 As System.Windows.Forms.ToolStripSeparator + Friend WithEvents ToolStripButton5 As System.Windows.Forms.ToolStripButton + Friend WithEvents ToolStripButton6 As System.Windows.Forms.ToolStripButton + Friend WithEvents bsw_cha As System.Windows.Forms.BindingSource + Friend WithEvents GroupBox2 As System.Windows.Forms.GroupBox + Friend WithEvents Panel3 As System.Windows.Forms.Panel + Friend WithEvents TableLayoutPanel7 As System.Windows.Forms.TableLayoutPanel + Friend WithEvents Label88 As System.Windows.Forms.Label + Friend WithEvents GroupBox1 As System.Windows.Forms.GroupBox + Friend WithEvents Panel2 As System.Windows.Forms.Panel + Friend WithEvents Label89 As System.Windows.Forms.Label + Friend WithEvents TableLayoutPanel8 As System.Windows.Forms.TableLayoutPanel + Friend WithEvents TableLayoutPanel9 As System.Windows.Forms.TableLayoutPanel + Friend WithEvents TableLayoutPanel1 As System.Windows.Forms.TableLayoutPanel + Friend WithEvents 설명DataGridViewTextBoxColumn As System.Windows.Forms.DataGridViewTextBoxColumn + Friend WithEvents code As System.Windows.Forms.DataGridViewTextBoxColumn + Friend WithEvents DataGridViewTextBoxColumn2 As System.Windows.Forms.DataGridViewTextBoxColumn + Friend WithEvents DataGridViewTextBoxColumn3 As System.Windows.Forms.DataGridViewTextBoxColumn + Friend WithEvents DataGridViewTextBoxColumn4 As System.Windows.Forms.DataGridViewTextBoxColumn + Friend WithEvents DataGridViewTextBoxColumn5 As System.Windows.Forms.DataGridViewTextBoxColumn + Friend WithEvents DataGridViewTextBoxColumn6 As System.Windows.Forms.DataGridViewTextBoxColumn + Friend WithEvents DataGridViewTextBoxColumn7 As System.Windows.Forms.DataGridViewTextBoxColumn + Friend WithEvents 설명DataGridViewTextBoxColumn1 As System.Windows.Forms.DataGridViewTextBoxColumn + Friend WithEvents DataGridViewTextBoxColumn9 As System.Windows.Forms.DataGridViewTextBoxColumn + Friend WithEvents 설명DataGridViewTextBoxColumn2 As System.Windows.Forms.DataGridViewTextBoxColumn + Friend WithEvents DataGridViewTextBoxColumn10 As System.Windows.Forms.DataGridViewTextBoxColumn + Friend WithEvents DataGridViewTextBoxColumn8 As System.Windows.Forms.DataGridViewTextBoxColumn + Friend WithEvents DataGridViewTextBoxColumn1 As System.Windows.Forms.DataGridViewTextBoxColumn + Friend WithEvents DataGridViewTextBoxColumn11 As System.Windows.Forms.DataGridViewTextBoxColumn + Friend WithEvents Button1 As System.Windows.Forms.Button + Friend WithEvents 건물위치DataGridViewTextBoxColumn As System.Windows.Forms.DataGridViewTextBoxColumn +End Class diff --git a/ArinWarev1/Forms_Input/Frm_v20091231_Weather.resx b/ArinWarev1/Forms_Input/Frm_v20091231_Weather.resx new file mode 100644 index 0000000..0dbf89b --- /dev/null +++ b/ArinWarev1/Forms_Input/Frm_v20091231_Weather.resx @@ -0,0 +1,709 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + 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 + + + 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 + + + 497, 17 + + + 17, 17 + + + 329, 56 + + + True + + + 81, 17 + + + 581, 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 + + + 178, 17 + + + 17, 56 + + + + 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 + + + 286, 17 + + + 173, 56 + + + + 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 + + + 399, 17 + + + 514, 56 + + + + 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== + + + + 396, 56 + + + 83 + + \ No newline at end of file diff --git a/ArinWarev1/Forms_Input/Frm_v20091231_Weather.vb b/ArinWarev1/Forms_Input/Frm_v20091231_Weather.vb new file mode 100644 index 0000000..aee93ca --- /dev/null +++ b/ArinWarev1/Forms_Input/Frm_v20091231_Weather.vb @@ -0,0 +1,691 @@ +Public Class Frm_V20091231_Weather +#Region "data Base 변경여부및 적용방법" + + '''변경된내용을적용한다. + Public Overrides Function AcceptChanged() As Boolean + bs.EndEdit() + Dim BaseDS As DataSet = CType(bs.DataSource, DataSet) + Dim BaseDT As DataTable = BaseDS.Tables(bs.DataMember) + BaseDT.AcceptChanges() + Return True + End Function + + '''변경된내용이있다면 취소한다. + Public Overrides Function RejectChanged() As Boolean + Dim BaseDS As DataSet = CType(bs.DataSource, DataSet) + Dim BaseDT As DataTable = BaseDS.Tables(bs.DataMember) + BaseDT.RejectChanges() + Return True + End Function + + '''데이터에변형이있었는가? + Public Overrides Function HasChanged() As Boolean + bs.EndEdit() + Dim BaseDS As DataSet = CType(bs.DataSource, DataSet) + Dim BaseDT As DataTable = BaseDS.Tables(bs.DataMember) + Dim ChangeDT As DataTable = BaseDT.GetChanges + If Not ChangeDT Is Nothing Then Return True + Return False + End Function + + '''기본데이터테이블을 반환합니다. + Public Function DT() As DataTable + Dim BaseDS As DataSet = CType(bs.DataSource, DataSet) + Return BaseDS.Tables(bs.DataMember) + End Function + + +#End Region + + + + Public Sub New(_opentime) + + ' 이 호출은 디자이너에 필요합니다. + InitializeComponent() + OpenTime = _opentime + + ' InitializeComponent() 호출 뒤에 초기화 코드를 추가하십시오. + + End Sub + + Private Sub MdiMain_FormClosed(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosedEventArgs) Handles Me.FormClosed + CEnergy.ARINCLASS.SaveLoad_FrmSetting(Me, Me.bs.Position, True) + End Sub + + Private Sub MdiMain_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown + Select Case e.KeyCode + Case Keys.F12 + End Select + End Sub + + Private Sub MdiMain_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load + + Me.Show() + My.Application.DoEvents() + ' Work_msg_timer("잠시만 기다려주세요") + + 'CEnergy.ARINCLASS.SaveLoad_FrmSetting(Me) + '//Weatehr + AddHandler DSET1.tbl_weather.TableNewRow, AddressOf AddNewDataRow_Weather + + AddHandler DSET1.weather_ilsa.TableNewRow, AddressOf AddNewDataRow_Weatherilsa + AddHandler DSET1.weather_supdo.TableNewRow, AddressOf AddNewDataRow_Weathersupdo + AddHandler DSET1.weather_temp.TableNewRow, AddressOf AddNewDataRow_Weathertemp + AddHandler DSET1.weather_cha.TableNewRow, AddressOf AddNewDataRow_WeatherCha + + Me.bs.DataSource = DSET1 + Me.bsw_ilsa.DataSource = DSET1 + Me.bsw_supdo.DataSource = DSET1 + Me.bsw_temp.DataSource = DSET1 + Me.bsw_cha.DataSource = DSET1 + + '//콤보컨트롤 바인딩 + Me.bn_all.BindingSource = Me.bs + Me.bs = Me.bs + + Try + Me.bs.Position = CEnergy.ARINCLASS.Read_LastPos_Frm(Me) + Catch ex As Exception + Me.bs.MoveFirst() + End Try + AddDebug("▲ Form Load") + End Sub + +#Region "Weather 관련" + Private Sub AddNewDataRow_Weather(ByVal sender As Object, ByVal e As System.Data.DataTableNewRowEventArgs) + e.Row.Item("code") = GetMaxCode(DSET1.tbl_weather) + End Sub + Private Sub AddNewDataRow_Weatherilsa(ByVal sender As Object, ByVal e As System.Data.DataTableNewRowEventArgs) + e.Row.Item("pcode") = CType(bs.Current, DataRowView)("code") + + '//일사데이터는 0001로부터하게한다 + Dim Newcode As String + Try + Dim Dr As DataRow = DSET1.weather_ilsa.Select("pcode='" & e.Row.Item("pcode").ToString & "'", "code desc")(0) + Newcode = Format(CInt(Dr("code")) + 1, "0000") + Catch ex As Exception + Newcode = "0001" + End Try + + e.Row.Item("code") = Newcode + End Sub + Private Sub AddNewDataRow_Weathertemp(ByVal sender As Object, ByVal e As System.Data.DataTableNewRowEventArgs) + 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) + 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) + e.Row.Item("pcode") = CType(bs.Current, DataRowView)("code") + e.Row.Item("code") = GetMaxCode(DSET1.weather_cha) + End Sub + Private Function GetMaxCode(ByVal dt As DataTable) As String + Try + Dim Dr As DataRow = dt.Select("", "code desc")(0) + Return Format(CInt(Dr("code")) + 1, "0000") + Catch ex As Exception + Return "0001" + End Try + End Function + + Private Sub bt_add_weather_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) + If Not EndEdit(Me.bs) Then Return + Me.bs.AddNew() + End Sub + + Private Sub bt_Del_weather_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) + Dbbase.DelCrow(Me.bs, True) + 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 + Check_Modify(Me.DS.tbl_weather) + Check_Modify(Me.DS.weather_ilsa, False) + Check_Modify(Me.DS.weather_supdo, False) + Check_Modify(Me.DS.weather_temp, False) + Check_Modify(Me.DS.weather_cha, False) + + End Sub + + Private Sub bs_CurrentChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bs.CurrentChanged + Dim pcode As String = CType(bs.Current, DataRowView)("code").ToString + Me.bsw_ilsa.Filter = "pcode='" & pcode & "'" + Me.bsw_temp.Filter = "pcode='" & pcode & "'" + Me.bsw_supdo.Filter = "pcode='" & pcode & "'" + Me.bsw_cha.Filter = "pcode='" & pcode & "'" + + If DSET1.weather_temp.Select("pcode='" & pcode & "'").GetUpperBound(0) = -1 Then + For i As Integer = 1 To 12 + 'MsgBox(i) + Dim Dr As DS.weather_tempRow = DSET1.weather_temp.Newweather_tempRow + Dr.code = Format(i, "0000") + Dr.설명 = Format(i, "00") & "월" + DSET1.weather_temp.Addweather_tempRow(Dr) + Next + Else + 'MsgBox(Me.bsw_temp.Count) + End If + If DSET1.weather_supdo.Select("pcode='" & pcode & "'").GetUpperBound(0) = -1 Then + For i As Integer = 1 To 12 + Dim Dr As DS.weather_supdoRow = DSET1.weather_supdo.Newweather_supdoRow + Dr.code = Format(i, "0000") + Dr.설명 = Format(i, "00") & "월" + DSET1.weather_supdo.Addweather_supdoRow(Dr) + Next + Else + 'MsgBox(Me.bsw_supdo.Count) + End If + Me.DS.weather_temp.AcceptChanges() + Me.DS.weather_supdo.AcceptChanges() + End Sub + + + + Private Sub ToolStripButton14_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton14.Click + If Not EndEdit(Me.bsw_ilsa) Then Return + Me.bsw_ilsa.AddNew() + End Sub + + Private Sub ToolStripButton15_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton15.Click + Dbbase.DelCrow(Me.bsw_ilsa, True) + End Sub + + Private Sub ToolStripButton29_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton29.Click + If Not EndEdit(Me.bsw_temp) Then Return + Me.bsw_temp.AddNew() + End Sub + + Private Sub ToolStripButton30_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton30.Click + Dbbase.DelCrow(Me.bsw_temp, True) + End Sub + + Private Sub ToolStripButton37_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton37.Click + If Not EndEdit(Me.bsw_supdo) Then Return + Me.bsw_supdo.AddNew() + End Sub + + Private Sub ToolStripButton38_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton38.Click + Dbbase.DelCrow(Me.bsw_supdo, True) + End Sub + + Private Sub ToolStripButton6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton6.Click + Dbbase.DelCrow(Me.bsw_cha, True) + End Sub + + Private Sub ToolStripButton5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton5.Click + If Not EndEdit(Me.bsw_cha) Then Return + Me.bsw_cha.AddNew() + End Sub + +#End Region + + + Private Sub ToolStripButton48_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton48.Click + If Prj.Opened = False Then + MsgBox("먼저 파일을 불러오세요", MsgBoxStyle.Information, "확인") + Return + End If + If Not EndEdit(Me.bs) Then Return + Me.bs.AddNew() + End Sub + + Private Sub ToolStripButton49_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton49.Click + If Prj.Opened = False Then + MsgBox("먼저 파일을 불러오세요", MsgBoxStyle.Information, "확인") + Return + End If + Dbbase.DelCrow(Me.bs, True) + End Sub + + Private Sub ToolStripButton51_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton51.Click + If Prj.Opened = False Then + MsgBox("먼저 파일을 불러오세요", MsgBoxStyle.Information, "확인") + Return + End If + + If MsgBox("변경된 내용을 취소하시겠습니까?", MsgBoxStyle.Information Or MsgBoxStyle.OkCancel, "변경취소") <> MsgBoxResult.Ok Then Return + + DSET1.tbl_weather.RejectChanges() + DSET1.weather_cha.RejectChanges() + DSET1.weather_ilsa.RejectChanges() + DSET1.weather_supdo.RejectChanges() + DSET1.weather_temp.RejectChanges() + + End Sub + + Private Sub tb_t1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles tb_t1.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)) + ' Dim Cnt As Short = 0 + ' For i As Integer = 0 To CB.GetUpperBound(0) + ' If CB(i).Trim <> "" Then + ' If Cnt <> 0 Then + ' Dim Ctl As TextBox = CType(Me.TableLayoutPanel3.Controls(Me.TableLayoutPanel3.Controls.IndexOfKey("tb_t" & CStr(Cnt + 1))), TextBox) + ' Ctl.Text = CB(i).Trim + ' End If + ' Cnt = CShort(Cnt + 1) + ' End If + ' Next + + 'End If + 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) < 23 Then + MsgBox("붙여넣기가 호환되는 데이터가 아닙니다.", MsgBoxStyle.Information, "확인") + Return + End If + + + For ii As Integer = 0 To CType(CB(0).Split(CChar(vbTab)), String()).GetUpperBound(0) + + Dim Cnt As Short = 0 + For i As Integer = 0 To CB.GetUpperBound(0) + Select Case i + Case 0 + '//Me.tb_t1.Text = CB(i).Split(CChar(vbTab))(ii).Trim + Case 1 + Me.tb_t2.Text = CB(i).Split(CChar(vbTab))(ii).Trim + Case 2 + Me.tb_t3.Text = CB(i).Split(CChar(vbTab))(ii).Trim + Case 3 + Me.tb_t4.Text = CB(i).Split(CChar(vbTab))(ii).Trim + Case 4 + Me.tb_t5.Text = CB(i).Split(CChar(vbTab))(ii).Trim + Case 5 + Me.tb_t6.Text = CB(i).Split(CChar(vbTab))(ii).Trim + Case 6 + Me.tb_t7.Text = CB(i).Split(CChar(vbTab))(ii).Trim + Case 7 + Me.tb_t8.Text = CB(i).Split(CChar(vbTab))(ii).Trim + Case 8 + Me.tb_t9.Text = CB(i).Split(CChar(vbTab))(ii).Trim + Case 9 + Me.tb_t10.Text = CB(i).Split(CChar(vbTab))(ii).Trim + Case 10 + Me.tb_t11.Text = CB(i).Split(CChar(vbTab))(ii).Trim + Case 11 + Me.tb_t12.Text = CB(i).Split(CChar(vbTab))(ii).Trim + Case 12 + Me.tb_t13.Text = CB(i).Split(CChar(vbTab))(ii).Trim + Case 13 + Me.tb_t14.Text = CB(i).Split(CChar(vbTab))(ii).Trim + Case 14 + Me.tb_t15.Text = CB(i).Split(CChar(vbTab))(ii).Trim + Case 15 + Me.tb_t16.Text = CB(i).Split(CChar(vbTab))(ii).Trim + Case 16 + Me.tb_t17.Text = CB(i).Split(CChar(vbTab))(ii).Trim + Case 17 + Me.tb_t18.Text = CB(i).Split(CChar(vbTab))(ii).Trim + Case 18 + Me.tb_t19.Text = CB(i).Split(CChar(vbTab))(ii).Trim + Case 19 + Me.tb_t20.Text = CB(i).Split(CChar(vbTab))(ii).Trim + Case 20 + Me.tb_t21.Text = CB(i).Split(CChar(vbTab))(ii).Trim + Case 21 + Me.tb_t22.Text = CB(i).Split(CChar(vbTab))(ii).Trim + Case 22 + Me.tb_t23.Text = CB(i).Split(CChar(vbTab))(ii).Trim + Case 23 + Me.tb_t24.Text = CB(i).Split(CChar(vbTab))(ii).Trim + + End Select + Next + '//If bsw_temp.Position < bsw_temp.Count Then bsw_temp.Position += 1 '//위치이동 + Next + Me.bsw_temp.EndEdit() + End If + + End Sub + + + Private Sub tb_s1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles tb_s1.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)) + ' Dim Cnt As Short = 0 + ' For i As Integer = 0 To CB.GetUpperBound(0) + ' If CB(i).Trim <> "" Then + ' If Cnt <> 0 Then + ' Dim Ctl As TextBox = CType(Me.TableLayoutPanel7.Controls(Me.TableLayoutPanel7.Controls.IndexOfKey("tb_s" & CStr(Cnt + 1))), TextBox) + ' Ctl.Text = CB(i).Trim + ' End If + ' Cnt = CShort(Cnt + 1) + ' End If + ' Next + + 'End If + 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) < 23 Then + MsgBox("붙여넣기가 호환되는 데이터가 아닙니다.", MsgBoxStyle.Information, "확인") + Return + End If + + + For ii As Integer = 0 To CType(CB(0).Split(CChar(vbTab)), String()).GetUpperBound(0) + + Dim Cnt As Short = 0 + For i As Integer = 0 To CB.GetUpperBound(0) + Select Case i + Case 0 + '//Me.tb_s1.Text = CB(i).Split(CChar(vbTab))(ii).Trim + Case 1 + Me.tb_s2.Text = CB(i).Split(CChar(vbTab))(ii).Trim + Case 2 + Me.tb_s3.Text = CB(i).Split(CChar(vbTab))(ii).Trim + Case 3 + Me.tb_s4.Text = CB(i).Split(CChar(vbTab))(ii).Trim + Case 4 + Me.tb_s5.Text = CB(i).Split(CChar(vbTab))(ii).Trim + Case 5 + Me.tb_s6.Text = CB(i).Split(CChar(vbTab))(ii).Trim + Case 6 + Me.tb_s7.Text = CB(i).Split(CChar(vbTab))(ii).Trim + Case 7 + Me.tb_s8.Text = CB(i).Split(CChar(vbTab))(ii).Trim + Case 8 + Me.tb_s9.Text = CB(i).Split(CChar(vbTab))(ii).Trim + Case 9 + Me.tb_s10.Text = CB(i).Split(CChar(vbTab))(ii).Trim + Case 10 + Me.tb_s11.Text = CB(i).Split(CChar(vbTab))(ii).Trim + Case 11 + Me.tb_S12.Text = CB(i).Split(CChar(vbTab))(ii).Trim + Case 12 + Me.tb_s13.Text = CB(i).Split(CChar(vbTab))(ii).Trim + Case 13 + Me.tb_s14.Text = CB(i).Split(CChar(vbTab))(ii).Trim + Case 14 + Me.tb_s15.Text = CB(i).Split(CChar(vbTab))(ii).Trim + Case 15 + Me.tb_s16.Text = CB(i).Split(CChar(vbTab))(ii).Trim + Case 16 + Me.tb_s17.Text = CB(i).Split(CChar(vbTab))(ii).Trim + Case 17 + Me.tb_s18.Text = CB(i).Split(CChar(vbTab))(ii).Trim + Case 18 + Me.tb_s19.Text = CB(i).Split(CChar(vbTab))(ii).Trim + Case 19 + Me.tb_s20.Text = CB(i).Split(CChar(vbTab))(ii).Trim + Case 20 + Me.tb_s21.Text = CB(i).Split(CChar(vbTab))(ii).Trim + Case 21 + Me.tb_s22.Text = CB(i).Split(CChar(vbTab))(ii).Trim + Case 22 + Me.tb_s23.Text = CB(i).Split(CChar(vbTab))(ii).Trim + Case 23 + Me.tb_s24.Text = CB(i).Split(CChar(vbTab))(ii).Trim + + End Select + Next + '//If bsw_supdo.Position < bsw_supdo.Count Then bsw_supdo.Position += 1 '//위치이동 + Next + Me.bsw_supdo.EndEdit() + End If + + End Sub + + Private Sub tb_v0_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles tb_v0.KeyDown + 'If e.KeyCode = Keys.V And e.Control Then + ' '//클립보드붙여넣기 + ' Dim CB() As String = My.Computer.Clipboard.GetText.Split(CChar(vbCrLf)) + ' Dim Cnt As Short = 0 + ' For i As Integer = 0 To CB.GetUpperBound(0) + ' If CB(i).Trim <> "" Then + ' If Cnt <> 0 Then + ' Dim Ctl As TextBox = CType(Me.TableLayoutPanel2.Controls(Me.TableLayoutPanel2.Controls.IndexOfKey("tb_v" & CStr(Cnt))), TextBox) + ' Ctl.Text = CB(i).Trim + ' End If + ' Cnt = CShort(Cnt + 1) + ' End If + ' Next + ' e.Handled = True + ' e.SuppressKeyPress = False + 'End If + + + Dim CB() As String = My.Computer.Clipboard.GetText.Split(CChar(vbCrLf)) + If CB.GetUpperBound(0) < 12 Then + MsgBox("붙여넣기가 호환되는 데이터가 아닙니다.", MsgBoxStyle.Information, "확인") + Return + End If + + If e.KeyCode = Keys.V And e.Control Then + + e.Handled = True + e.SuppressKeyPress = False + '//클립보드붙여넣기 + 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 = 0 To CB.GetUpperBound(0) + Select Case i + Case 0 '///조명은 신규기록하지않으므로.. 쓰지않게한다. + '//Me.tb_v0.Text = CB(i).Split(CChar(vbTab))(ii).Trim + Case 1 '///조명은 신규기록하지않으므로.. 쓰지않게한다. + Me.tb_v1.Text = CB(i).Split(CChar(vbTab))(ii).Trim + Case 2 '///조명은 신규기록하지않으므로.. 쓰지않게한다. + Me.tb_v2.Text = CB(i).Split(CChar(vbTab))(ii).Trim + Case 3 '///조명은 신규기록하지않으므로.. 쓰지않게한다. + Me.tb_v3.Text = CB(i).Split(CChar(vbTab))(ii).Trim + Case 4 '///조명은 신규기록하지않으므로.. 쓰지않게한다. + Me.tb_v4.Text = CB(i).Split(CChar(vbTab))(ii).Trim + Case 5 '///조명은 신규기록하지않으므로.. 쓰지않게한다. + Me.tb_v5.Text = CB(i).Split(CChar(vbTab))(ii).Trim + Case 6 '///조명은 신규기록하지않으므로.. 쓰지않게한다. + Me.tb_v6.Text = CB(i).Split(CChar(vbTab))(ii).Trim + Case 7 '///조명은 신규기록하지않으므로.. 쓰지않게한다. + Me.tb_v7.Text = CB(i).Split(CChar(vbTab))(ii).Trim + Case 8 '///조명은 신규기록하지않으므로.. 쓰지않게한다. + Me.tb_v8.Text = CB(i).Split(CChar(vbTab))(ii).Trim + Case 9 '///조명은 신규기록하지않으므로.. 쓰지않게한다. + Me.tb_v9.Text = CB(i).Split(CChar(vbTab))(ii).Trim + Case 10 '///조명은 신규기록하지않으므로.. 쓰지않게한다. + Me.tb_v10.Text = CB(i).Split(CChar(vbTab))(ii).Trim + Case 11 '///조명은 신규기록하지않으므로.. 쓰지않게한다. + Me.tb_v11.Text = CB(i).Split(CChar(vbTab))(ii).Trim + Case 12 '///조명은 신규기록하지않으므로.. 쓰지않게한다. + Me.tb_v12.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_ilsa.EndEdit() + End If + + + 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 + If Me.bs.Position < Me.bs.Count Then Me.bs.Position += 1 + Else + If Me.bs.Position > 0 Then Me.bs.Position -= 1 + End If + Me.Validate() + My.Application.DoEvents() + End Sub + + Private Sub NTb4_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles tb_c01.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) < 11 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 = 0 To CB.GetUpperBound(0) + Select Case i + Case 0 '///조명은 신규기록하지않으므로.. 쓰지않게한다. + '//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 '///조명은 신규기록하지않으므로.. 쓰지않게한다. + Me.tb_c03.Text = CB(i).Split(CChar(vbTab))(ii).Trim + Case 3 '///조명은 신규기록하지않으므로.. 쓰지않게한다. + Me.tb_c04.Text = CB(i).Split(CChar(vbTab))(ii).Trim + Case 4 '///조명은 신규기록하지않으므로.. 쓰지않게한다. + Me.tb_c05.Text = CB(i).Split(CChar(vbTab))(ii).Trim + Case 5 '///조명은 신규기록하지않으므로.. 쓰지않게한다. + Me.tb_c06.Text = CB(i).Split(CChar(vbTab))(ii).Trim + Case 6 '///조명은 신규기록하지않으므로.. 쓰지않게한다. + Me.tb_c07.Text = CB(i).Split(CChar(vbTab))(ii).Trim + Case 7 '///조명은 신규기록하지않으므로.. 쓰지않게한다. + Me.tb_c08.Text = CB(i).Split(CChar(vbTab))(ii).Trim + Case 8 '///조명은 신규기록하지않으므로.. 쓰지않게한다. + Me.tb_c09.Text = CB(i).Split(CChar(vbTab))(ii).Trim + Case 9 '///조명은 신규기록하지않으므로.. 쓰지않게한다. + 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 '///조명은 신규기록하지않으므로.. 쓰지않게한다. + Me.tb_c12.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_cha.EndEdit() + End If + End Sub + + + Private Sub dv_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles dv.MouseUp + If e.Button = Windows.Forms.MouseButtons.Right Then + Dim Frm_FilterA As New Frm_Filter + Frm_FilterA.ColumTitle = getColCaption(Me.Dt) + Frm_FilterA.ColumList = getColName(Me.Dt) + Frm_FilterA.Colorlist = "" + If Frm_FilterA.ShowDialog <> Windows.Forms.DialogResult.OK Then Return '//창떳을떄 확인아ㅣ고 취소눌르면 다음을 수행하지않는다는거에요. + Dim Filter As String = Frm_FilterA.tb_filter.Text '//값은 아까 그 텍박에 잇구요. + Try + Me.bs.Filter = Filter + Catch ex As Exception + Me.bs.Filter = "" + End Try + End If + End Sub + + Private Sub 외기온도_난방기_NTb_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles tb_wnan.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) < 14 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 = 0 To CB.GetUpperBound(0) + Select Case i + Case 0 '///조명은 신규기록하지않으므로.. 쓰지않게한다. + 'Me.tb_wnan.Text = CB(i).Split(CChar(vbTab))(ii).Trim + 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 '///조명은 신규기록하지않으므로.. 쓰지않게한다. + Me.tb_w02.Text = CB(i).Split(CChar(vbTab))(ii).Trim + Case 5 '///조명은 신규기록하지않으므로.. 쓰지않게한다. + Me.tb_w03.Text = CB(i).Split(CChar(vbTab))(ii).Trim + Case 6 '///조명은 신규기록하지않으므로.. 쓰지않게한다. + Me.tb_w04.Text = CB(i).Split(CChar(vbTab))(ii).Trim + Case 7 '///조명은 신규기록하지않으므로.. 쓰지않게한다. + Me.tb_w05.Text = CB(i).Split(CChar(vbTab))(ii).Trim + Case 8 '///조명은 신규기록하지않으므로.. 쓰지않게한다. + Me.tb_w06.Text = CB(i).Split(CChar(vbTab))(ii).Trim + Case 9 '///조명은 신규기록하지않으므로.. 쓰지않게한다. + Me.tb_w07.Text = CB(i).Split(CChar(vbTab))(ii).Trim + Case 10 '///조명은 신규기록하지않으므로.. 쓰지않게한다. + Me.tb_w08.Text = CB(i).Split(CChar(vbTab))(ii).Trim + Case 11 '///조명은 신규기록하지않으므로.. 쓰지않게한다. + Me.tb_w09.Text = CB(i).Split(CChar(vbTab))(ii).Trim + Case 12 '///조명은 신규기록하지않으므로.. 쓰지않게한다. + Me.tb_w10.Text = CB(i).Split(CChar(vbTab))(ii).Trim + Case 13 '///조명은 신규기록하지않으므로.. 쓰지않게한다. + Me.tb_w11.Text = CB(i).Split(CChar(vbTab))(ii).Trim + Case 14 '///조명은 신규기록하지않으므로.. 쓰지않게한다. + 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 '//위치이동 + Next + Me.bsw_cha.EndEdit() + End If + End Sub + + + Private Sub Arindv2_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Arindv2.KeyDown + If e.KeyCode = Keys.C AndAlso e.Control Then + + My.Computer.Clipboard.SetData("ILSAROW", Me.Arindv2.SelectedRows) + ElseIf e.KeyCode = Keys.V AndAlso e.Control Then + Dim A As DataGridViewSelectedRowCollection = My.Computer.Clipboard.GetData("ILSAROW") + For i As Integer = 1 To A.Count + Me.ToolStripButton14.PerformClick() '//한줄추가하고 + Dim Drv As DataRowView = Me.bsw_ilsa.Current + Drv("설명") = A(i).Cells(0).Value + Next + End If + End Sub + + Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click + + For Each drp As DS.tbl_weatherRow In DSET1.tbl_weather.Rows + Dim i As Integer = 0 + For Each dr As DS.weather_chaRow In DSET1.weather_cha.Select("pcode='" & drp.code & "'") + i += 1 + dr.code = Format(i, "0000") + Next + Next + + 'For j As Integer = 1 To DSET1.weather_cha.Select(Me.bsw_cha.Filter).Length + ' DSET1.weather_cha.Select(Me.bsw_cha.Filter)(j - 1)("code") = Format(j, "0000") + 'Next + DS.weather_cha.AcceptChanges() '//이건 변경내역을 반영하게삳는겁니다. + End Sub +End Class \ No newline at end of file diff --git a/ArinWarev1/Forms_Input/Frm_v20091231_buha.Designer.vb b/ArinWarev1/Forms_Input/Frm_v20091231_buha.Designer.vb new file mode 100644 index 0000000..e782ffe --- /dev/null +++ b/ArinWarev1/Forms_Input/Frm_v20091231_buha.Designer.vb @@ -0,0 +1,355 @@ + _ +Partial Class Frm_V20091231_buha + Inherits CForm + 'Form은 Dispose를 재정의하여 구성 요소 목록을 정리합니다. + _ + Protected Overrides Sub Dispose(ByVal disposing As Boolean) + Try + If disposing AndAlso components IsNot Nothing Then + components.Dispose() + End If + Finally + MyBase.Dispose(disposing) + End Try + End Sub + + 'Windows Form 디자이너에 필요합니다. + Private components As System.ComponentModel.IContainer + + '참고: 다음 프로시저는 Windows Form 디자이너에 필요합니다. + '수정하려면 Windows Form 디자이너를 사용하십시오. + '코드 편집기를 사용하여 수정하지 마십시오. + _ + Private Sub InitializeComponent() + Me.components = New System.ComponentModel.Container() + Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(Frm_V20091231_buha)) + Dim DataGridViewCellStyle1 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Me.bn_all = New System.Windows.Forms.BindingNavigator(Me.components) + Me.bs = New System.Windows.Forms.BindingSource(Me.components) + Me.DS = New Eco2Ar.DS() + Me.ToolStripLabel6 = New System.Windows.Forms.ToolStripLabel() + Me.ToolStripButton44 = New System.Windows.Forms.ToolStripButton() + Me.ToolStripButton45 = New System.Windows.Forms.ToolStripButton() + Me.ToolStripSeparator25 = New System.Windows.Forms.ToolStripSeparator() + Me.ToolStripTextBox6 = New System.Windows.Forms.ToolStripTextBox() + Me.ToolStripSeparator26 = New System.Windows.Forms.ToolStripSeparator() + Me.ToolStripButton46 = New System.Windows.Forms.ToolStripButton() + Me.ToolStripButton47 = New System.Windows.Forms.ToolStripButton() + Me.ToolStripSeparator27 = New System.Windows.Forms.ToolStripSeparator() + Me.ToolStripButton48 = New System.Windows.Forms.ToolStripButton() + Me.ToolStripButton49 = New System.Windows.Forms.ToolStripButton() + Me.ToolStripSeparator28 = New System.Windows.Forms.ToolStripSeparator() + Me.ToolStripButton51 = New System.Windows.Forms.ToolStripButton() + Me.Arindv9 = New CEnergy.arindv() + Me.CodeDataGridViewTextBoxColumn = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.설명 = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.n01 = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.n02 = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.n03 = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.n04 = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.n05 = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.n06 = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.n07 = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.n08 = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.n09 = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.n10 = New System.Windows.Forms.DataGridViewTextBoxColumn() + CType(Me.bn_all, System.ComponentModel.ISupportInitialize).BeginInit() + Me.bn_all.SuspendLayout() + CType(Me.bs, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.DS, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.Arindv9, System.ComponentModel.ISupportInitialize).BeginInit() + Me.SuspendLayout() + ' + 'bn_all + ' + Me.bn_all.AddNewItem = Nothing + Me.bn_all.BindingSource = Me.bs + Me.bn_all.CountItem = Me.ToolStripLabel6 + Me.bn_all.DeleteItem = Nothing + 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.ToolStripButton51}) + Me.bn_all.Location = New System.Drawing.Point(0, 384) + 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(654, 25) + Me.bn_all.TabIndex = 7 + Me.bn_all.Text = "BindingNavigator1" + ' + 'bs + ' + Me.bs.DataMember = "tbl_buha" + Me.bs.DataSource = Me.DS + Me.bs.Filter = "code <> '0'" + ' + 'DS + ' + Me.DS.DataSetName = "DS" + Me.DS.SchemaSerializationMode = System.Data.SchemaSerializationMode.IncludeSchema + ' + 'ToolStripLabel6 + ' + Me.ToolStripLabel6.Name = "ToolStripLabel6" + Me.ToolStripLabel6.Size = New System.Drawing.Size(29, 22) + Me.ToolStripLabel6.Text = "/{0}" + Me.ToolStripLabel6.ToolTipText = "전체 항목 수" + ' + 'ToolStripButton44 + ' + Me.ToolStripButton44.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.ToolStripButton44.Image = CType(resources.GetObject("ToolStripButton44.Image"), System.Drawing.Image) + Me.ToolStripButton44.Name = "ToolStripButton44" + Me.ToolStripButton44.RightToLeftAutoMirrorImage = True + Me.ToolStripButton44.Size = New System.Drawing.Size(23, 22) + Me.ToolStripButton44.Text = "처음으로 이동" + ' + 'ToolStripButton45 + ' + Me.ToolStripButton45.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.ToolStripButton45.Image = CType(resources.GetObject("ToolStripButton45.Image"), System.Drawing.Image) + Me.ToolStripButton45.Name = "ToolStripButton45" + Me.ToolStripButton45.RightToLeftAutoMirrorImage = True + Me.ToolStripButton45.Size = New System.Drawing.Size(23, 22) + Me.ToolStripButton45.Text = "이전으로 이동" + ' + 'ToolStripSeparator25 + ' + Me.ToolStripSeparator25.Name = "ToolStripSeparator25" + Me.ToolStripSeparator25.Size = New System.Drawing.Size(6, 25) + ' + 'ToolStripTextBox6 + ' + Me.ToolStripTextBox6.AccessibleName = "위치" + Me.ToolStripTextBox6.AutoSize = False + Me.ToolStripTextBox6.Name = "ToolStripTextBox6" + Me.ToolStripTextBox6.Size = New System.Drawing.Size(50, 21) + Me.ToolStripTextBox6.Text = "0" + Me.ToolStripTextBox6.ToolTipText = "현재 위치" + ' + 'ToolStripSeparator26 + ' + Me.ToolStripSeparator26.Name = "ToolStripSeparator26" + Me.ToolStripSeparator26.Size = New System.Drawing.Size(6, 25) + ' + 'ToolStripButton46 + ' + Me.ToolStripButton46.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.ToolStripButton46.Image = CType(resources.GetObject("ToolStripButton46.Image"), System.Drawing.Image) + Me.ToolStripButton46.Name = "ToolStripButton46" + Me.ToolStripButton46.RightToLeftAutoMirrorImage = True + Me.ToolStripButton46.Size = New System.Drawing.Size(23, 22) + Me.ToolStripButton46.Text = "다음으로 이동" + ' + 'ToolStripButton47 + ' + Me.ToolStripButton47.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.ToolStripButton47.Image = CType(resources.GetObject("ToolStripButton47.Image"), System.Drawing.Image) + Me.ToolStripButton47.Name = "ToolStripButton47" + Me.ToolStripButton47.RightToLeftAutoMirrorImage = True + Me.ToolStripButton47.Size = New System.Drawing.Size(23, 22) + Me.ToolStripButton47.Text = "마지막으로 이동" + ' + 'ToolStripSeparator27 + ' + Me.ToolStripSeparator27.Name = "ToolStripSeparator27" + Me.ToolStripSeparator27.Size = New System.Drawing.Size(6, 25) + ' + 'ToolStripButton48 + ' + Me.ToolStripButton48.Image = CType(resources.GetObject("ToolStripButton48.Image"), System.Drawing.Image) + Me.ToolStripButton48.Name = "ToolStripButton48" + Me.ToolStripButton48.RightToLeftAutoMirrorImage = True + Me.ToolStripButton48.Size = New System.Drawing.Size(67, 22) + Me.ToolStripButton48.Text = "추가(&A)" + ' + 'ToolStripButton49 + ' + Me.ToolStripButton49.Image = CType(resources.GetObject("ToolStripButton49.Image"), System.Drawing.Image) + Me.ToolStripButton49.Name = "ToolStripButton49" + Me.ToolStripButton49.RightToLeftAutoMirrorImage = True + Me.ToolStripButton49.Size = New System.Drawing.Size(67, 22) + Me.ToolStripButton49.Text = "삭제(&D)" + ' + 'ToolStripSeparator28 + ' + Me.ToolStripSeparator28.Name = "ToolStripSeparator28" + Me.ToolStripSeparator28.Size = New System.Drawing.Size(6, 25) + ' + 'ToolStripButton51 + ' + Me.ToolStripButton51.Image = CType(resources.GetObject("ToolStripButton51.Image"), System.Drawing.Image) + Me.ToolStripButton51.ImageTransparentColor = System.Drawing.Color.Magenta + Me.ToolStripButton51.Name = "ToolStripButton51" + Me.ToolStripButton51.Size = New System.Drawing.Size(68, 22) + Me.ToolStripButton51.Text = "취소(&C)" + ' + 'Arindv9 + ' + Me.Arindv9.A_DelCurrentCell = True + Me.Arindv9.A_EnterToTab = True + Me.Arindv9.AllowUserToAddRows = False + Me.Arindv9.AllowUserToResizeRows = False + Me.Arindv9.AutoGenerateColumns = False + Me.Arindv9.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.AllCells + Me.Arindv9.BorderStyle = System.Windows.Forms.BorderStyle.None + Me.Arindv9.ColumnHeadersHeight = 30 + Me.Arindv9.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.DisableResizing + Me.Arindv9.Columns.AddRange(New System.Windows.Forms.DataGridViewColumn() {Me.CodeDataGridViewTextBoxColumn, Me.설명, Me.n01, Me.n02, Me.n03, Me.n04, Me.n05, Me.n06, Me.n07, Me.n08, Me.n09, Me.n10}) + Me.Arindv9.DataSource = Me.bs + Me.Arindv9.Dock = System.Windows.Forms.DockStyle.Fill + Me.Arindv9.Location = New System.Drawing.Point(0, 0) + Me.Arindv9.Margin = New System.Windows.Forms.Padding(0) + Me.Arindv9.MultiSelect = False + Me.Arindv9.Name = "Arindv9" + Me.Arindv9.RowHeadersVisible = False + Me.Arindv9.RowTemplate.Height = 23 + Me.Arindv9.Size = New System.Drawing.Size(654, 384) + Me.Arindv9.TabIndex = 0 + ' + 'CodeDataGridViewTextBoxColumn + ' + Me.CodeDataGridViewTextBoxColumn.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.AllCells + Me.CodeDataGridViewTextBoxColumn.DataPropertyName = "code" + DataGridViewCellStyle1.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleCenter + DataGridViewCellStyle1.BackColor = System.Drawing.Color.FromArgb(CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer)) + Me.CodeDataGridViewTextBoxColumn.DefaultCellStyle = DataGridViewCellStyle1 + Me.CodeDataGridViewTextBoxColumn.HeaderText = "구분" + Me.CodeDataGridViewTextBoxColumn.Name = "CodeDataGridViewTextBoxColumn" + Me.CodeDataGridViewTextBoxColumn.Resizable = System.Windows.Forms.DataGridViewTriState.[False] + Me.CodeDataGridViewTextBoxColumn.SortMode = System.Windows.Forms.DataGridViewColumnSortMode.Programmatic + Me.CodeDataGridViewTextBoxColumn.Width = 52 + ' + '설명 + ' + Me.설명.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.Fill + Me.설명.DataPropertyName = "설명" + Me.설명.HeaderText = "설명" + Me.설명.Name = "설명" + Me.설명.SortMode = System.Windows.Forms.DataGridViewColumnSortMode.Programmatic + ' + 'n01 + ' + Me.n01.DataPropertyName = "n01" + Me.n01.HeaderText = "0.1" + Me.n01.Name = "n01" + Me.n01.Width = 49 + ' + 'n02 + ' + Me.n02.DataPropertyName = "n02" + Me.n02.HeaderText = "0.2" + Me.n02.Name = "n02" + Me.n02.Width = 49 + ' + 'n03 + ' + Me.n03.DataPropertyName = "n03" + Me.n03.HeaderText = "0.3" + Me.n03.Name = "n03" + Me.n03.Width = 49 + ' + 'n04 + ' + Me.n04.DataPropertyName = "n04" + Me.n04.HeaderText = "0.4" + Me.n04.Name = "n04" + Me.n04.Width = 49 + ' + 'n05 + ' + Me.n05.DataPropertyName = "n05" + Me.n05.HeaderText = "0.5" + Me.n05.Name = "n05" + Me.n05.Width = 49 + ' + 'n06 + ' + Me.n06.DataPropertyName = "n06" + Me.n06.HeaderText = "0.6" + Me.n06.Name = "n06" + Me.n06.Width = 49 + ' + 'n07 + ' + Me.n07.DataPropertyName = "n07" + Me.n07.HeaderText = "0.7" + Me.n07.Name = "n07" + Me.n07.Width = 49 + ' + 'n08 + ' + Me.n08.DataPropertyName = "n08" + Me.n08.HeaderText = "0.8" + Me.n08.Name = "n08" + Me.n08.Width = 49 + ' + 'n09 + ' + Me.n09.DataPropertyName = "n09" + Me.n09.HeaderText = "0.9" + Me.n09.Name = "n09" + Me.n09.Width = 49 + ' + 'n10 + ' + Me.n10.DataPropertyName = "n10" + Me.n10.HeaderText = "1.0" + Me.n10.Name = "n10" + Me.n10.Width = 49 + ' + 'Frm_V20091231_buha + ' + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.None + Me.ClientSize = New System.Drawing.Size(654, 409) + Me.ControlBox = False + Me.Controls.Add(Me.Arindv9) + Me.Controls.Add(Me.bn_all) + Me.Font = New System.Drawing.Font("돋움", 8.999999!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.Name = "Frm_V20091231_buha" + Me.ShowInTaskbar = False + 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.DS, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.Arindv9, System.ComponentModel.ISupportInitialize).EndInit() + Me.ResumeLayout(False) + Me.PerformLayout() + + End Sub + Friend WithEvents bn_all As System.Windows.Forms.BindingNavigator + Friend WithEvents ToolStripLabel6 As System.Windows.Forms.ToolStripLabel + Friend WithEvents ToolStripButton44 As System.Windows.Forms.ToolStripButton + Friend WithEvents ToolStripButton45 As System.Windows.Forms.ToolStripButton + Friend WithEvents ToolStripSeparator25 As System.Windows.Forms.ToolStripSeparator + Friend WithEvents ToolStripTextBox6 As System.Windows.Forms.ToolStripTextBox + Friend WithEvents ToolStripSeparator26 As System.Windows.Forms.ToolStripSeparator + Friend WithEvents ToolStripButton46 As System.Windows.Forms.ToolStripButton + Friend WithEvents ToolStripButton47 As System.Windows.Forms.ToolStripButton + Friend WithEvents ToolStripSeparator27 As System.Windows.Forms.ToolStripSeparator + Friend WithEvents ToolStripButton48 As System.Windows.Forms.ToolStripButton + Friend WithEvents ToolStripButton49 As System.Windows.Forms.ToolStripButton + Friend WithEvents ToolStripSeparator28 As System.Windows.Forms.ToolStripSeparator + Friend WithEvents ToolStripButton51 As System.Windows.Forms.ToolStripButton + Friend WithEvents Arindv9 As CEnergy.arindv + Public WithEvents DS As Eco2Ar.DS + Friend WithEvents bs As System.Windows.Forms.BindingSource + Friend WithEvents CodeDataGridViewTextBoxColumn As System.Windows.Forms.DataGridViewTextBoxColumn + Friend WithEvents 설명 As System.Windows.Forms.DataGridViewTextBoxColumn + Friend WithEvents n01 As System.Windows.Forms.DataGridViewTextBoxColumn + Friend WithEvents n02 As System.Windows.Forms.DataGridViewTextBoxColumn + Friend WithEvents n03 As System.Windows.Forms.DataGridViewTextBoxColumn + Friend WithEvents n04 As System.Windows.Forms.DataGridViewTextBoxColumn + Friend WithEvents n05 As System.Windows.Forms.DataGridViewTextBoxColumn + Friend WithEvents n06 As System.Windows.Forms.DataGridViewTextBoxColumn + Friend WithEvents n07 As System.Windows.Forms.DataGridViewTextBoxColumn + Friend WithEvents n08 As System.Windows.Forms.DataGridViewTextBoxColumn + Friend WithEvents n09 As System.Windows.Forms.DataGridViewTextBoxColumn + Friend WithEvents n10 As System.Windows.Forms.DataGridViewTextBoxColumn +End Class diff --git a/ArinWarev1/Forms_Input/Frm_v20091231_buha.resx b/ArinWarev1/Forms_Input/Frm_v20091231_buha.resx new file mode 100644 index 0000000..e41f141 --- /dev/null +++ b/ArinWarev1/Forms_Input/Frm_v20091231_buha.resx @@ -0,0 +1,252 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + 286, 17 + + + 222, 17 + + + 370, 17 + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAACBjSFJNAAB6 + JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAAACXBIWXMAAA64AAAOuAFqQfVbAAABKklE + 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 + JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAAACXBIWXMAAA64AAAOuAFqQfVbAAAAtklE + 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 + JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAAACXBIWXMAAA64AAAOuAFqQfVbAAAAo0lE + 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 + JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAAACXBIWXMAAA64AAAOuAFqQfVbAAABLElE + 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 + JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAAACXBIWXMAAA64AAAOuAFqQfVbAAABSklE + 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 + JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAAACXBIWXMAAA64AAAOuAFqQfVbAAABb0lE + QVQ4T7WQTSjDYRzHd1XeSu3iglo5IJO8hGQypLHIhMjMJAcOi4R2cXAg5UIOuEgOJCXlROI0b/Pamlp/ + LVLaBf+4PB9jqLW/seJ7eep5vt/P7/v8VH8iXCfQbQTHDh9XkYmVeURnFcKsh631sBC8HliaCfawtgC9 + JkS7HtFRAXMTipC3hsJcBiM9oe+cOgKQumxEYwHYmoJMYsiKMOXCpD1sQxWL04jK1HcQw1Zwn8FYfwDq + Pz9s4YXHBc3FgS8ZsxD1edDX8rvwp9jf9VfOQxjSoUYbYfhGgsZCyElA1sbzoI2F2uxf1r+5BlM+FCXi + sxjg4uh9uXdpfsjy7A8LvL+DVh2PJUm4S9Px7W1/BRi14dTEIJ8cKEN4eYZBC+iSOU5T49tYDTHelmcg + tVUje69DIexuIueqcaZEIXU1gPykOGlHE4fsdCgApkaQUqNx6zNBulKu6Zds74bzQwXApRPGB+Bw79vw + P0ilegWKIwMchCbSyQAAAABJRU5ErkJggg== + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8 + YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAJ2SURBVDhPjVNdSJNhFH5bXdmFRFFeREQXRfQDJRlWZLra + mrOIDCEqQmrlTKkoIaHZoEKK1sAVS1dYiJCaCZUkKCRL20WmrXJ61U0UXhSMuen+n97n3adkdtGBw3u+ + c57nOed83/uJv+2BEIZGIRzy9MkzSNdi5gwabL65hVgt/Y4ETn51XEfkvRfpnz+UM2aONWKI1WgZY0IW + WwKXK5D8/A742A/0tQKvmjLOeOSNqhFD7BwRqgYuWgC/F8nuZnwqP4y2lSvgWajDQPFuTD26AXS6gF4p + 5H8LYslRZG3nyaSvB4nO+/CZC9jB6RFi/TUhFsnY/qGsGOl2Z0ak5wkSvtdqHfVOZOAYr6lAqr0B/qMm + RZaeRXF51vlK9iDW/wLpLjeij+uBZw1IyUbjlyzEOjiBb6L2FFLuWrTlLAU7z5AH9+1ArLcDqZcPMWY5 + QkJwrPwgkhI7cdUCcgkMTtVbkbh7Hh6dDtrYdQOF2xDtbpWTuRA4YcY9IX7JvfOer8pBUmIjt6qUoBKI + 2E4icdMCb/4GJu2DBVsw3dWMZMttjJbpFVlOlktxNolLLDlKgGN8LzcibjuGUPUBDOlzMd3RiITHjtFD + u2bJXIvrtS3LltjjIGdmBcdw4SbELpQgWmVC3G1D3HUFo+a8OWSJy5LuHCnajFhNKcghd/Yzhq1GRCsN + iFabELLuV+NxZzW27EzywNY1iMgm4Uoj65nPSOOlGMpfi+g5TUSCvug3onN5Npp0C/B0yWIM71yHyNm9 + qk7s7EWiyQd1lVkIn8mA/uVhi16RiSVHo2eMCapyNHb7VrododNFyhkzxxox88h/mvZO/vN3FuI3yXDJ + RlfZIFMAAAAASUVORK5CYII= + + + + True + + + True + + + True + + + True + + + True + + + True + + + True + + + True + + + True + + + True + + + True + + + 38 + + \ No newline at end of file diff --git a/ArinWarev1/Forms_Input/Frm_v20091231_buha.vb b/ArinWarev1/Forms_Input/Frm_v20091231_buha.vb new file mode 100644 index 0000000..8d40e20 --- /dev/null +++ b/ArinWarev1/Forms_Input/Frm_v20091231_buha.vb @@ -0,0 +1,175 @@ +Public Class Frm_V20091231_buha + +#Region "data Base 변경여부및 적용방법" + + '''변경된내용을적용한다. + Public Overrides Function AcceptChanged() As Boolean + bs.EndEdit() + Dim BaseDS As DataSet = CType(bs.DataSource, DataSet) + Dim BaseDT As DataTable = BaseDS.Tables(bs.DataMember) + BaseDT.AcceptChanges() + Return True + End Function + + '''변경된내용이있다면 취소한다. + Public Overrides Function RejectChanged() As Boolean + Dim BaseDS As DataSet = CType(bs.DataSource, DataSet) + Dim BaseDT As DataTable = BaseDS.Tables(bs.DataMember) + BaseDT.RejectChanges() + Return True + End Function + + '''데이터에변형이있었는가? + Public Overrides Function HasChanged() As Boolean + bs.EndEdit() + Dim BaseDS As DataSet = CType(bs.DataSource, DataSet) + Dim BaseDT As DataTable = BaseDS.Tables(bs.DataMember) + Dim ChangeDT As DataTable = BaseDT.GetChanges + If Not ChangeDT Is Nothing Then Return True + Return False + End Function + + '''기본데이터테이블을 반환합니다. + Public Function DT() As DataTable + Dim BaseDS As DataSet = CType(bs.DataSource, DataSet) + Return BaseDS.Tables(bs.DataMember) + End Function + + +#End Region + + + + Public Sub New(_opentime) + + ' 이 호출은 디자이너에 필요합니다. + InitializeComponent() + OpenTime = _opentime + + ' InitializeComponent() 호출 뒤에 초기화 코드를 추가하십시오. + + End Sub + + Private Sub AddNewDataRow_Zone_Changed2(ByVal sender As Object, ByVal e As System.Data.DataColumnChangeEventArgs) + Dim oval As String = e.Row(e.Column.ColumnName).ToString + Dim nval As String = e.ProposedValue.ToString + If oval <> nval Then + Dim newdr As DS2.historyRow = DSHistory.history.NewhistoryRow + newdr.time = Now.ToString("yyyy-MM-dd HH:mm:ss") + newdr.tablename = "tbl_buha" + newdr.ovalue = oval + newdr.nvalue = nval + newdr.column = e.Column.ColumnName + newdr.code = e.Row("code").ToString + DSHistory.history.AddhistoryRow(newdr) + DSHistory.history.AcceptChanges() + End If + End Sub + + Private Sub ShowHistory() + Dim drv As DataRowView = Me.bs.Current + Dim f As New Frm_History("tbl_buha", drv("code").ToString) + If f.ShowDialog = DialogResult.OK Then + drv(f.colname) = f.val + Me.Validate() + Me.bs.EndEdit() + My.Application.DoEvents() + MsgBox("값이 변경되었습니다", MsgBoxStyle.Information, "확인") + End If + End Sub + + Private Sub MdiMain_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown + Select Case e.KeyCode + Case Keys.F12 + ShowHistory() + End Select + End Sub + + Private Sub MdiMain_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load + + Me.Show() + My.Application.DoEvents() + 'Work_msg_timer("잠시만 기다려주세요") + + 'CEnergy.ARINCLASS.SaveLoad_FrmSetting(Me) + '//프로필 관련 + + '//공유데이터셋에 연결한다. + Me.bs.DataSource = DSET1 + + '//냉방기기 + AddHandler DSET1.tbl_buha.TableNewRow, AddressOf AddNewDataRow_nangbangkiki + AddHandler DSET1.tbl_buha.ColumnChanging, AddressOf AddNewDataRow_Zone_Changed2 + + '//콤보컨트롤 바인딩 + Binding_Zone() + + Try + Me.bs.Position = CEnergy.ARINCLASS.Read_LastPos_Frm(Me) + Catch ex As Exception + Me.bs.MoveFirst() + End Try + AddDebug("▲ Form Load") + End Sub + + +#Region "냉방기기" + Private Sub MdiMain_FormClosed(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosedEventArgs) Handles Me.FormClosed + CEnergy.ARINCLASS.SaveLoad_FrmSetting(Me, Me.bs.Position, True) + End Sub + Private Function GetMaxCode(ByVal dt As DataTable) As String + Try + Dim Dr As DataRow = dt.Select("", "code desc")(0) + Return Format(CInt(Dr("code")) + 1, "0000") + Catch ex As Exception + Return "0001" + End Try + End Function + + Private Sub Cmb_DeleteVal(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) + If e.KeyCode = Keys.Delete Then + CType(sender, ComboBox).SelectedValue = "" + End If + End Sub + + Private Sub Binding_Zone() + '//냉동기기 + 'Dim bs_냉동기방식ComboBox As New BindingSource(DSET, "tbl_common") + 'bs_냉동기방식ComboBox.Filter = "gubun='1046'" + 'Me.냉동기방식ComboBox.DataSource = bs_냉동기방식ComboBox + '냉동기방식ComboBox.DisplayMember = "name" + '냉동기방식ComboBox.ValueMember = "code" + 'Me.냉동기방식ComboBox.DataBindings.Add("text", Me.bs, "냉동기방식") + 'AddHandler 냉동기방식ComboBox.KeyDown, AddressOf Cmb_DeleteVal + + End Sub + Private Sub AddNewDataRow_nangbangkiki(ByVal sender As Object, ByVal e As System.Data.DataTableNewRowEventArgs) + e.Row.Item("code") = GetMaxCode(DSET1.tbl_buha) + End Sub + Private Sub ToolStripButton48_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton48.Click + + If Not EndEdit(Me.bs) Then Return + Me.bs.AddNew() + + End Sub + Private Sub ToolStripButton49_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton49.Click + + DbBase.DelCrow(Me.bs, True) + + End Sub + + Private Sub ToolStripButton51_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton51.Click + + If Not EndEdit(Me.bs) Then Return + Data_Cancel(DSET1.tbl_buha, Nothing) + + End Sub +#End Region + Private Sub bs_CurrentChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bs.CurrentChanged + Me.bs.EndEdit() + End Sub + + Private Sub Arindv9_CellContentClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles Arindv9.CellContentClick + + End Sub +End Class \ No newline at end of file diff --git a/ArinWarev1/Forms_Input/Frm_v20091231_profile.Designer.vb b/ArinWarev1/Forms_Input/Frm_v20091231_profile.Designer.vb new file mode 100644 index 0000000..4e282af --- /dev/null +++ b/ArinWarev1/Forms_Input/Frm_v20091231_profile.Designer.vb @@ -0,0 +1,1314 @@ + _ +Partial Class Frm_V20091231_Profile + Inherits CForm + + 'Form은 Dispose를 재정의하여 구성 요소 목록을 정리합니다. + _ + Protected Overrides Sub Dispose(ByVal disposing As Boolean) + Try + If disposing AndAlso components IsNot Nothing Then + components.Dispose() + End If + Finally + MyBase.Dispose(disposing) + End Try + End Sub + + 'Windows Form 디자이너에 필요합니다. + Private components As System.ComponentModel.IContainer + + '참고: 다음 프로시저는 Windows Form 디자이너에 필요합니다. + '수정하려면 Windows Form 디자이너를 사용하십시오. + '코드 편집기를 사용하여 수정하지 마십시오. + _ + Private Sub InitializeComponent() + Me.components = New System.ComponentModel.Container() + Dim Label43 As System.Windows.Forms.Label + Dim Label44 As System.Windows.Forms.Label + Dim Label55 As System.Windows.Forms.Label + Dim Label58 As System.Windows.Forms.Label + Dim Label59 As System.Windows.Forms.Label + Dim Label60 As System.Windows.Forms.Label + Dim Label56 As System.Windows.Forms.Label + Dim Label57 As System.Windows.Forms.Label + Dim Label37 As System.Windows.Forms.Label + Dim Label108 As System.Windows.Forms.Label + Dim Label112 As System.Windows.Forms.Label + Dim Label111 As System.Windows.Forms.Label + Dim Label110 As System.Windows.Forms.Label + Dim Label27 As System.Windows.Forms.Label + Dim Label28 As System.Windows.Forms.Label + Dim Label1 As System.Windows.Forms.Label + Dim Label30 As System.Windows.Forms.Label + Dim Label2 As System.Windows.Forms.Label + Dim Label3 As System.Windows.Forms.Label + Dim Label4 As System.Windows.Forms.Label + Dim Label34 As System.Windows.Forms.Label + Dim Label35 As System.Windows.Forms.Label + Dim Label5 As System.Windows.Forms.Label + Dim Label6 As System.Windows.Forms.Label + Dim Label38 As System.Windows.Forms.Label + Dim Label8 As System.Windows.Forms.Label + Me.dv = New CEnergy.arindv() + Me.bs = New System.Windows.Forms.BindingSource(Me.components) + Me.DS = New Eco2Ar.DS() + Me.bn_all = New System.Windows.Forms.BindingNavigator(Me.components) + Me.lbl_count = New System.Windows.Forms.ToolStripLabel() + Me.bt_add = New System.Windows.Forms.ToolStripButton() + Me.bt_Del = New System.Windows.Forms.ToolStripButton() + Me.bt_cancel = New System.Windows.Forms.ToolStripButton() + Me.ToolStripSeparator1 = New System.Windows.Forms.ToolStripSeparator() + Me.lbl_pos = New System.Windows.Forms.ToolStripLabel() + Me.TableLayoutPanel2 = New System.Windows.Forms.TableLayoutPanel() + Me.NTb1 = New Eco2Ar.MyTb() + Me.TableLayoutPanel33 = New System.Windows.Forms.TableLayoutPanel() + Me.tb_tm5 = New Eco2Ar.MyTb() + Me.tb_tm1 = New Eco2Ar.MyTb() + Me.tb_tm2 = New Eco2Ar.MyTb() + Me.tb_tm3 = New Eco2Ar.MyTb() + Me.tb_tm4 = New Eco2Ar.MyTb() + Me.tb_tm12 = New Eco2Ar.MyTb() + Me.tb_tm11 = New Eco2Ar.MyTb() + Me.tB_tm10 = New Eco2Ar.MyTb() + Me.tb_tm9 = New Eco2Ar.MyTb() + Me.tb_tm8 = New Eco2Ar.MyTb() + Me.tb_tm7 = New Eco2Ar.MyTb() + Me.tb_tm6 = New Eco2Ar.MyTb() + Me.Panel37 = New System.Windows.Forms.Panel() + Me.Label123 = New System.Windows.Forms.Label() + Me.tB_t22 = New Eco2Ar.MyTb() + Me.tb_t23 = New Eco2Ar.MyTb() + Me.tb_t24 = New Eco2Ar.MyTb() + Me.tb_t25 = New Eco2Ar.MyTb() + Me.Panel36 = New System.Windows.Forms.Panel() + Me.tb_t20 = New Eco2Ar.MyTb() + Me.Label106 = New System.Windows.Forms.Label() + Me.tb_t21 = New Eco2Ar.MyTb() + Me.Label7 = New System.Windows.Forms.Label() + Me.Panel33 = New System.Windows.Forms.Panel() + Me.tb_t2 = New Eco2Ar.MyTb() + Me.Label10 = New System.Windows.Forms.Label() + Me.tb_t3 = New Eco2Ar.MyTb() + Me.tb_t1 = New Eco2Ar.MyTb() + Me.Panel35 = New System.Windows.Forms.Panel() + Me.tb_t18 = New Eco2Ar.MyTb() + Me.Label97 = New System.Windows.Forms.Label() + Me.Panel1 = New System.Windows.Forms.Panel() + Me.SplitContainer1 = New System.Windows.Forms.SplitContainer() + Me.GroupBox5 = New System.Windows.Forms.GroupBox() + Me.Panel3 = New System.Windows.Forms.Panel() + Me.Label11 = New System.Windows.Forms.Label() + Me.tb_t7 = New Eco2Ar.MyTb() + Me.tb_t6 = New Eco2Ar.MyTb() + Me.tb_t5 = New Eco2Ar.MyTb() + Me.tb_t4 = New Eco2Ar.MyTb() + Me.Panel2 = New System.Windows.Forms.Panel() + Me.tb_일급탕요구량 = New Eco2Ar.MyTb() + Me.Label12 = New System.Windows.Forms.Label() + Me.PictureBox1 = New System.Windows.Forms.PictureBox() + Me.GroupBox3 = New System.Windows.Forms.GroupBox() + Me.PictureBox2 = New System.Windows.Forms.PictureBox() + Me.GroupBox2 = New System.Windows.Forms.GroupBox() + Me.PictureBox3 = New System.Windows.Forms.PictureBox() + Me.NTb2 = New Eco2Ar.MyTb() + Me.설명DataGridViewTextBoxColumn = New System.Windows.Forms.DataGridViewTextBoxColumn() + Label43 = New System.Windows.Forms.Label() + Label44 = New System.Windows.Forms.Label() + Label55 = New System.Windows.Forms.Label() + Label58 = New System.Windows.Forms.Label() + Label59 = New System.Windows.Forms.Label() + Label60 = New System.Windows.Forms.Label() + Label56 = New System.Windows.Forms.Label() + Label57 = New System.Windows.Forms.Label() + Label37 = New System.Windows.Forms.Label() + Label108 = New System.Windows.Forms.Label() + Label112 = New System.Windows.Forms.Label() + Label111 = New System.Windows.Forms.Label() + Label110 = New System.Windows.Forms.Label() + Label27 = New System.Windows.Forms.Label() + Label28 = New System.Windows.Forms.Label() + Label1 = New System.Windows.Forms.Label() + Label30 = New System.Windows.Forms.Label() + Label2 = New System.Windows.Forms.Label() + Label3 = New System.Windows.Forms.Label() + Label4 = New System.Windows.Forms.Label() + Label34 = New System.Windows.Forms.Label() + Label35 = New System.Windows.Forms.Label() + Label5 = New System.Windows.Forms.Label() + Label6 = New System.Windows.Forms.Label() + Label38 = New System.Windows.Forms.Label() + Label8 = New System.Windows.Forms.Label() + CType(Me.dv, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.bs, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.DS, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.bn_all, System.ComponentModel.ISupportInitialize).BeginInit() + Me.bn_all.SuspendLayout() + Me.TableLayoutPanel2.SuspendLayout() + Me.TableLayoutPanel33.SuspendLayout() + Me.Panel37.SuspendLayout() + Me.Panel36.SuspendLayout() + Me.Panel33.SuspendLayout() + Me.Panel35.SuspendLayout() + Me.Panel1.SuspendLayout() + CType(Me.SplitContainer1, System.ComponentModel.ISupportInitialize).BeginInit() + Me.SplitContainer1.Panel1.SuspendLayout() + Me.SplitContainer1.Panel2.SuspendLayout() + Me.SplitContainer1.SuspendLayout() + Me.GroupBox5.SuspendLayout() + Me.Panel3.SuspendLayout() + Me.Panel2.SuspendLayout() + CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit() + Me.GroupBox3.SuspendLayout() + CType(Me.PictureBox2, System.ComponentModel.ISupportInitialize).BeginInit() + Me.GroupBox2.SuspendLayout() + CType(Me.PictureBox3, System.ComponentModel.ISupportInitialize).BeginInit() + Me.SuspendLayout() + ' + 'Label43 + ' + Label43.AutoSize = True + Label43.BackColor = System.Drawing.Color.FromArgb(CType(CType(247, Byte), Integer), CType(CType(251, Byte), Integer), CType(CType(255, Byte), Integer)) + Label43.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label43.Location = New System.Drawing.Point(6, 30) + Label43.Name = "Label43" + Label43.Size = New System.Drawing.Size(31, 12) + Label43.TabIndex = 10 + Label43.Text = "사람" + ' + 'Label44 + ' + Label44.AutoSize = True + Label44.BackColor = System.Drawing.Color.FromArgb(CType(CType(247, Byte), Integer), CType(CType(251, Byte), Integer), CType(CType(255, Byte), Integer)) + Label44.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label44.Location = New System.Drawing.Point(6, 52) + Label44.Name = "Label44" + Label44.Size = New System.Drawing.Size(83, 12) + Label44.TabIndex = 8 + Label44.Text = "작업보조기기" + Label44.TextAlign = System.Drawing.ContentAlignment.MiddleCenter + ' + 'Label55 + ' + Label55.AutoSize = True + Label55.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label55.Location = New System.Drawing.Point(15, 24) + Label55.Name = "Label55" + Label55.Size = New System.Drawing.Size(57, 12) + Label55.TabIndex = 10 + Label55.Text = "시작시간" + Label55.TextAlign = System.Drawing.ContentAlignment.MiddleLeft + ' + 'Label58 + ' + Label58.AutoSize = True + Label58.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label58.Location = New System.Drawing.Point(15, 69) + Label58.Name = "Label58" + Label58.Size = New System.Drawing.Size(88, 12) + Label58.TabIndex = 10 + Label58.Text = "일일 사용시간" + Label58.TextAlign = System.Drawing.ContentAlignment.MiddleLeft + ' + 'Label59 + ' + Label59.AutoSize = True + Label59.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label59.Location = New System.Drawing.Point(15, 47) + Label59.Name = "Label59" + Label59.Size = New System.Drawing.Size(57, 12) + Label59.TabIndex = 8 + Label59.Text = "종료시간" + Label59.TextAlign = System.Drawing.ContentAlignment.MiddleLeft + ' + 'Label60 + ' + Label60.AutoSize = True + Label60.BackColor = System.Drawing.Color.Transparent + Label60.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label60.Location = New System.Drawing.Point(15, 71) + Label60.Name = "Label60" + Label60.Size = New System.Drawing.Size(119, 12) + Label60.TabIndex = 16 + Label60.Text = "일일 운전시간 난방" + ' + 'Label56 + ' + Label56.AutoSize = True + Label56.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label56.Location = New System.Drawing.Point(15, 49) + Label56.Name = "Label56" + Label56.Size = New System.Drawing.Size(88, 12) + Label56.TabIndex = 14 + Label56.Text = "운전 종료시간" + ' + 'Label57 + ' + Label57.AutoSize = True + Label57.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label57.Location = New System.Drawing.Point(15, 27) + Label57.Name = "Label57" + Label57.Size = New System.Drawing.Size(88, 12) + Label57.TabIndex = 12 + Label57.Text = "운전 시작시간" + ' + 'Label37 + ' + Label37.AutoSize = True + Label37.BackColor = System.Drawing.Color.FromArgb(CType(CType(247, Byte), Integer), CType(CType(251, Byte), Integer), CType(CType(255, Byte), Integer)) + Label37.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label37.Location = New System.Drawing.Point(3, 35) + Label37.Name = "Label37" + Label37.Size = New System.Drawing.Size(101, 12) + Label37.TabIndex = 10 + Label37.Text = "최소도입 외기량" + ' + 'Label108 + ' + Label108.AutoSize = True + Label108.BackColor = System.Drawing.Color.FromArgb(CType(CType(247, Byte), Integer), CType(CType(251, Byte), Integer), CType(CType(255, Byte), Integer)) + Label108.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label108.Location = New System.Drawing.Point(5, 26) + Label108.Name = "Label108" + Label108.Size = New System.Drawing.Size(83, 12) + Label108.TabIndex = 10 + Label108.Text = "난방설정온도" + ' + 'Label112 + ' + Label112.AutoSize = True + Label112.BackColor = System.Drawing.Color.FromArgb(CType(CType(247, Byte), Integer), CType(CType(251, Byte), Integer), CType(CType(255, Byte), Integer)) + Label112.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label112.Location = New System.Drawing.Point(5, 45) + Label112.Name = "Label112" + Label112.Size = New System.Drawing.Size(83, 12) + Label112.TabIndex = 8 + Label112.Text = "냉방설정온도" + ' + 'Label111 + ' + Label111.AutoSize = True + Label111.BackColor = System.Drawing.Color.FromArgb(CType(CType(247, Byte), Integer), CType(CType(251, Byte), Integer), CType(CType(255, Byte), Integer)) + Label111.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label111.Location = New System.Drawing.Point(5, 64) + Label111.Name = "Label111" + Label111.Size = New System.Drawing.Size(109, 24) + Label111.TabIndex = 10 + Label111.Text = "야간최저허용온도" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "(4→10)" + Label111.TextAlign = System.Drawing.ContentAlignment.MiddleCenter + ' + 'Label110 + ' + Label110.AutoSize = True + Label110.BackColor = System.Drawing.Color.FromArgb(CType(CType(247, Byte), Integer), CType(CType(251, Byte), Integer), CType(CType(255, Byte), Integer)) + Label110.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label110.Location = New System.Drawing.Point(5, 97) + Label110.Name = "Label110" + Label110.Size = New System.Drawing.Size(109, 24) + Label110.TabIndex = 12 + Label110.Text = "주말최저허용온도" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "(4→10)" + Label110.TextAlign = System.Drawing.ContentAlignment.MiddleCenter + ' + 'Label27 + ' + Label27.Anchor = System.Windows.Forms.AnchorStyles.None + Label27.AutoSize = True + Label27.Location = New System.Drawing.Point(266, 88) + Label27.Name = "Label27" + Label27.Size = New System.Drawing.Size(32, 12) + Label27.TabIndex = 30 + Label27.Text = "12월" + ' + 'Label28 + ' + Label28.Anchor = System.Windows.Forms.AnchorStyles.None + Label28.AutoSize = True + Label28.Location = New System.Drawing.Point(266, 61) + Label28.Name = "Label28" + Label28.Size = New System.Drawing.Size(32, 12) + Label28.TabIndex = 28 + Label28.Text = "11월" + ' + 'Label1 + ' + Label1.Anchor = System.Windows.Forms.AnchorStyles.None + Label1.AutoSize = True + Label1.Location = New System.Drawing.Point(266, 34) + Label1.Name = "Label1" + Label1.Size = New System.Drawing.Size(32, 12) + Label1.TabIndex = 26 + Label1.Text = "10월" + ' + 'Label30 + ' + Label30.Anchor = System.Windows.Forms.AnchorStyles.None + Label30.AutoSize = True + Label30.Location = New System.Drawing.Point(266, 7) + Label30.Name = "Label30" + Label30.Size = New System.Drawing.Size(32, 12) + Label30.TabIndex = 24 + Label30.Text = "09월" + ' + 'Label2 + ' + Label2.Anchor = System.Windows.Forms.AnchorStyles.None + Label2.AutoSize = True + Label2.Location = New System.Drawing.Point(133, 34) + Label2.Name = "Label2" + Label2.Size = New System.Drawing.Size(32, 12) + Label2.TabIndex = 18 + Label2.Text = "06월" + ' + 'Label3 + ' + Label3.Anchor = System.Windows.Forms.AnchorStyles.None + Label3.AutoSize = True + Label3.Location = New System.Drawing.Point(133, 88) + Label3.Name = "Label3" + Label3.Size = New System.Drawing.Size(32, 12) + Label3.TabIndex = 22 + Label3.Text = "08월" + ' + 'Label4 + ' + Label4.Anchor = System.Windows.Forms.AnchorStyles.None + Label4.AutoSize = True + Label4.Location = New System.Drawing.Point(133, 7) + Label4.Name = "Label4" + Label4.Size = New System.Drawing.Size(32, 12) + Label4.TabIndex = 16 + Label4.Text = "05월" + ' + 'Label34 + ' + Label34.Anchor = System.Windows.Forms.AnchorStyles.None + Label34.AutoSize = True + Label34.Location = New System.Drawing.Point(133, 61) + Label34.Name = "Label34" + Label34.Size = New System.Drawing.Size(32, 12) + Label34.TabIndex = 20 + Label34.Text = "07월" + ' + 'Label35 + ' + Label35.Anchor = System.Windows.Forms.AnchorStyles.None + Label35.AutoSize = True + Label35.Location = New System.Drawing.Point(3, 88) + Label35.Name = "Label35" + Label35.Size = New System.Drawing.Size(32, 12) + Label35.TabIndex = 14 + Label35.Text = "04월" + ' + 'Label5 + ' + Label5.Anchor = System.Windows.Forms.AnchorStyles.None + Label5.AutoSize = True + Label5.Location = New System.Drawing.Point(3, 7) + Label5.Name = "Label5" + Label5.Size = New System.Drawing.Size(32, 12) + Label5.TabIndex = 8 + Label5.Text = "01월" + ' + 'Label6 + ' + Label6.Anchor = System.Windows.Forms.AnchorStyles.None + Label6.AutoSize = True + Label6.Location = New System.Drawing.Point(3, 61) + Label6.Name = "Label6" + Label6.Size = New System.Drawing.Size(32, 12) + Label6.TabIndex = 12 + Label6.Text = "03월" + ' + 'Label38 + ' + Label38.Anchor = System.Windows.Forms.AnchorStyles.None + Label38.AutoSize = True + Label38.Location = New System.Drawing.Point(3, 34) + Label38.Name = "Label38" + Label38.Size = New System.Drawing.Size(32, 12) + Label38.TabIndex = 10 + Label38.Text = "02월" + ' + 'Label8 + ' + Label8.AutoSize = True + Label8.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label8.Location = New System.Drawing.Point(15, 96) + Label8.Name = "Label8" + Label8.Size = New System.Drawing.Size(83, 12) + Label8.TabIndex = 14 + Label8.Text = "일일운전시간" + ' + '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.FromArgb(CType(CType(245, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(246, Byte), Integer)) + Me.dv.ColumnHeadersHeight = 30 + Me.dv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.DisableResizing + Me.dv.Columns.AddRange(New System.Windows.Forms.DataGridViewColumn() {Me.설명DataGridViewTextBoxColumn}) + Me.dv.DataSource = Me.bs + Me.dv.Dock = System.Windows.Forms.DockStyle.Top + 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, 489) + Me.dv.TabIndex = 0 + ' + 'bs + ' + Me.bs.DataMember = "tbl_profile" + Me.bs.DataSource = Me.DS + Me.bs.Filter = "code <> '0'" + ' + 'DS + ' + Me.DS.DataSetName = "DS" + Me.DS.SchemaSerializationMode = System.Data.SchemaSerializationMode.IncludeSchema + ' + 'bn_all + ' + Me.bn_all.AddNewItem = Nothing + Me.bn_all.AutoSize = False + Me.bn_all.BindingSource = Me.bs + Me.bn_all.CountItem = Me.lbl_count + Me.bn_all.DeleteItem = Nothing + Me.bn_all.Dock = System.Windows.Forms.DockStyle.Bottom + 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(20, 20) + Me.bn_all.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.bn_all.Location = New System.Drawing.Point(0, 492) + 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 = Me.lbl_pos + Me.bn_all.Size = New System.Drawing.Size(210, 42) + Me.bn_all.TabIndex = 1 + Me.bn_all.Text = "BindingNavigator1" + ' + 'lbl_count + ' + Me.lbl_count.Name = "lbl_count" + Me.lbl_count.Size = New System.Drawing.Size(33, 39) + 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, 39) + 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, 39) + 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, 39) + Me.bt_cancel.Text = "변경취소(&C)" + Me.bt_cancel.ToolTipText = "변경된 내용을 되돌립니다" + ' + 'ToolStripSeparator1 + ' + Me.ToolStripSeparator1.Name = "ToolStripSeparator1" + Me.ToolStripSeparator1.Size = New System.Drawing.Size(6, 42) + ' + 'lbl_pos + ' + Me.lbl_pos.Name = "lbl_pos" + Me.lbl_pos.Size = New System.Drawing.Size(12, 39) + Me.lbl_pos.Text = "0" + ' + 'TableLayoutPanel2 + ' + Me.TableLayoutPanel2.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _ + Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.TableLayoutPanel2.ColumnCount = 6 + Me.TableLayoutPanel2.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Absolute, 100.0!)) + Me.TableLayoutPanel2.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Percent, 31.11806!)) + Me.TableLayoutPanel2.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Absolute, 100.0!)) + Me.TableLayoutPanel2.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Percent, 31.11806!)) + Me.TableLayoutPanel2.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Absolute, 100.0!)) + Me.TableLayoutPanel2.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Percent, 37.76388!)) + Me.TableLayoutPanel2.Controls.Add(Me.NTb1, 1, 0) + Me.TableLayoutPanel2.Location = New System.Drawing.Point(0, 0) + Me.TableLayoutPanel2.Name = "TableLayoutPanel2" + Me.TableLayoutPanel2.RowCount = 1 + Me.TableLayoutPanel2.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Absolute, 20.0!)) + Me.TableLayoutPanel2.Size = New System.Drawing.Size(200, 100) + Me.TableLayoutPanel2.TabIndex = 0 + ' + 'NTb1 + ' + Me.NTb1.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.NTb1.Dock = System.Windows.Forms.DockStyle.Fill + Me.NTb1.Location = New System.Drawing.Point(103, 3) + Me.NTb1.Name = "NTb1" + Me.NTb1.NectControl = Nothing + Me.NTb1.Size = New System.Drawing.Size(1, 21) + Me.NTb1.TabIndex = 3 + Me.NTb1.TextAlign = System.Windows.Forms.HorizontalAlignment.Right + Me.NTb1.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + ' + 'TableLayoutPanel33 + ' + Me.TableLayoutPanel33.AutoSize = True + Me.TableLayoutPanel33.BackColor = System.Drawing.Color.FromArgb(CType(CType(241, Byte), Integer), CType(CType(248, Byte), Integer), CType(CType(254, Byte), Integer)) + Me.TableLayoutPanel33.ColumnCount = 6 + Me.TableLayoutPanel33.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle()) + Me.TableLayoutPanel33.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle()) + Me.TableLayoutPanel33.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle()) + Me.TableLayoutPanel33.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle()) + Me.TableLayoutPanel33.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle()) + Me.TableLayoutPanel33.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle()) + Me.TableLayoutPanel33.Controls.Add(Label2, 2, 1) + Me.TableLayoutPanel33.Controls.Add(Label35, 0, 3) + Me.TableLayoutPanel33.Controls.Add(Label5, 0, 0) + Me.TableLayoutPanel33.Controls.Add(Label6, 0, 2) + Me.TableLayoutPanel33.Controls.Add(Me.tb_tm5, 3, 0) + Me.TableLayoutPanel33.Controls.Add(Label38, 0, 1) + Me.TableLayoutPanel33.Controls.Add(Me.tb_tm1, 1, 0) + Me.TableLayoutPanel33.Controls.Add(Me.tb_tm2, 1, 1) + Me.TableLayoutPanel33.Controls.Add(Me.tb_tm3, 1, 2) + Me.TableLayoutPanel33.Controls.Add(Me.tb_tm4, 1, 3) + Me.TableLayoutPanel33.Controls.Add(Me.tb_tm12, 5, 3) + Me.TableLayoutPanel33.Controls.Add(Label27, 4, 3) + Me.TableLayoutPanel33.Controls.Add(Me.tb_tm11, 5, 2) + Me.TableLayoutPanel33.Controls.Add(Label28, 4, 2) + Me.TableLayoutPanel33.Controls.Add(Me.tB_tm10, 5, 1) + Me.TableLayoutPanel33.Controls.Add(Label1, 4, 1) + Me.TableLayoutPanel33.Controls.Add(Me.tb_tm9, 5, 0) + Me.TableLayoutPanel33.Controls.Add(Label30, 4, 0) + Me.TableLayoutPanel33.Controls.Add(Me.tb_tm8, 3, 3) + Me.TableLayoutPanel33.Controls.Add(Label3, 2, 3) + Me.TableLayoutPanel33.Controls.Add(Label34, 2, 2) + Me.TableLayoutPanel33.Controls.Add(Me.tb_tm7, 3, 2) + Me.TableLayoutPanel33.Controls.Add(Me.tb_tm6, 3, 1) + Me.TableLayoutPanel33.Controls.Add(Label4, 2, 0) + Me.TableLayoutPanel33.Location = New System.Drawing.Point(61, 40) + Me.TableLayoutPanel33.Name = "TableLayoutPanel33" + Me.TableLayoutPanel33.RowCount = 4 + Me.TableLayoutPanel33.RowStyles.Add(New System.Windows.Forms.RowStyle()) + Me.TableLayoutPanel33.RowStyles.Add(New System.Windows.Forms.RowStyle()) + Me.TableLayoutPanel33.RowStyles.Add(New System.Windows.Forms.RowStyle()) + Me.TableLayoutPanel33.RowStyles.Add(New System.Windows.Forms.RowStyle()) + Me.TableLayoutPanel33.Size = New System.Drawing.Size(401, 108) + Me.TableLayoutPanel33.TabIndex = 123 + ' + 'tb_tm5 + ' + Me.tb_tm5.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.tb_tm5.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bs, "day05", True)) + Me.tb_tm5.Location = New System.Drawing.Point(171, 3) + Me.tb_tm5.Name = "tb_tm5" + Me.tb_tm5.NectControl = Nothing + Me.tb_tm5.Size = New System.Drawing.Size(89, 21) + Me.tb_tm5.TabIndex = 4 + Me.tb_tm5.TextAlign = System.Windows.Forms.HorizontalAlignment.Right + Me.tb_tm5.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + ' + 'tb_tm1 + ' + Me.tb_tm1.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.tb_tm1.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bs, "day01", True)) + Me.tb_tm1.Location = New System.Drawing.Point(41, 3) + Me.tb_tm1.Name = "tb_tm1" + Me.tb_tm1.NectControl = Nothing + Me.tb_tm1.Size = New System.Drawing.Size(86, 21) + Me.tb_tm1.TabIndex = 0 + Me.tb_tm1.TextAlign = System.Windows.Forms.HorizontalAlignment.Right + Me.tb_tm1.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + ' + 'tb_tm2 + ' + Me.tb_tm2.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.tb_tm2.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bs, "day02", True)) + Me.tb_tm2.Location = New System.Drawing.Point(41, 30) + Me.tb_tm2.Name = "tb_tm2" + Me.tb_tm2.NectControl = Nothing + Me.tb_tm2.Size = New System.Drawing.Size(86, 21) + Me.tb_tm2.TabIndex = 1 + Me.tb_tm2.TextAlign = System.Windows.Forms.HorizontalAlignment.Right + Me.tb_tm2.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + ' + 'tb_tm3 + ' + Me.tb_tm3.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.tb_tm3.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bs, "day03", True)) + Me.tb_tm3.Location = New System.Drawing.Point(41, 57) + Me.tb_tm3.Name = "tb_tm3" + Me.tb_tm3.NectControl = Nothing + Me.tb_tm3.Size = New System.Drawing.Size(86, 21) + Me.tb_tm3.TabIndex = 2 + Me.tb_tm3.TextAlign = System.Windows.Forms.HorizontalAlignment.Right + Me.tb_tm3.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + ' + 'tb_tm4 + ' + Me.tb_tm4.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.tb_tm4.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bs, "day04", True)) + Me.tb_tm4.Location = New System.Drawing.Point(41, 84) + Me.tb_tm4.Name = "tb_tm4" + Me.tb_tm4.NectControl = Nothing + Me.tb_tm4.Size = New System.Drawing.Size(86, 21) + Me.tb_tm4.TabIndex = 3 + Me.tb_tm4.TextAlign = System.Windows.Forms.HorizontalAlignment.Right + Me.tb_tm4.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + ' + 'tb_tm12 + ' + Me.tb_tm12.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.tb_tm12.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bs, "day12", True)) + Me.tb_tm12.Location = New System.Drawing.Point(304, 84) + Me.tb_tm12.Name = "tb_tm12" + Me.tb_tm12.NectControl = Nothing + Me.tb_tm12.Size = New System.Drawing.Size(89, 21) + Me.tb_tm12.TabIndex = 11 + Me.tb_tm12.TextAlign = System.Windows.Forms.HorizontalAlignment.Right + Me.tb_tm12.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + ' + 'tb_tm11 + ' + Me.tb_tm11.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.tb_tm11.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bs, "day11", True)) + Me.tb_tm11.Location = New System.Drawing.Point(304, 57) + Me.tb_tm11.Name = "tb_tm11" + Me.tb_tm11.NectControl = Nothing + Me.tb_tm11.Size = New System.Drawing.Size(89, 21) + Me.tb_tm11.TabIndex = 10 + Me.tb_tm11.TextAlign = System.Windows.Forms.HorizontalAlignment.Right + Me.tb_tm11.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + ' + 'tB_tm10 + ' + Me.tB_tm10.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.tB_tm10.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bs, "day10", True)) + Me.tB_tm10.Location = New System.Drawing.Point(304, 30) + Me.tB_tm10.Name = "tB_tm10" + Me.tB_tm10.NectControl = Nothing + Me.tB_tm10.Size = New System.Drawing.Size(89, 21) + Me.tB_tm10.TabIndex = 9 + Me.tB_tm10.TextAlign = System.Windows.Forms.HorizontalAlignment.Right + Me.tB_tm10.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + ' + 'tb_tm9 + ' + Me.tb_tm9.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.tb_tm9.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bs, "day09", True)) + Me.tb_tm9.Location = New System.Drawing.Point(304, 3) + Me.tb_tm9.Name = "tb_tm9" + Me.tb_tm9.NectControl = Nothing + Me.tb_tm9.Size = New System.Drawing.Size(89, 21) + Me.tb_tm9.TabIndex = 8 + Me.tb_tm9.TextAlign = System.Windows.Forms.HorizontalAlignment.Right + Me.tb_tm9.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + ' + 'tb_tm8 + ' + Me.tb_tm8.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.tb_tm8.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bs, "day08", True)) + Me.tb_tm8.Location = New System.Drawing.Point(171, 84) + Me.tb_tm8.Name = "tb_tm8" + Me.tb_tm8.NectControl = Nothing + Me.tb_tm8.Size = New System.Drawing.Size(89, 21) + Me.tb_tm8.TabIndex = 7 + Me.tb_tm8.TextAlign = System.Windows.Forms.HorizontalAlignment.Right + Me.tb_tm8.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + ' + 'tb_tm7 + ' + Me.tb_tm7.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.tb_tm7.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bs, "day07", True)) + Me.tb_tm7.Location = New System.Drawing.Point(171, 57) + Me.tb_tm7.Name = "tb_tm7" + Me.tb_tm7.NectControl = Nothing + Me.tb_tm7.Size = New System.Drawing.Size(89, 21) + Me.tb_tm7.TabIndex = 6 + Me.tb_tm7.TextAlign = System.Windows.Forms.HorizontalAlignment.Right + Me.tb_tm7.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + ' + 'tb_tm6 + ' + Me.tb_tm6.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.tb_tm6.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bs, "day06", True)) + Me.tb_tm6.Location = New System.Drawing.Point(171, 30) + Me.tb_tm6.Name = "tb_tm6" + Me.tb_tm6.NectControl = Nothing + Me.tb_tm6.Size = New System.Drawing.Size(89, 21) + Me.tb_tm6.TabIndex = 5 + Me.tb_tm6.TextAlign = System.Windows.Forms.HorizontalAlignment.Right + Me.tb_tm6.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + ' + 'Panel37 + ' + Me.Panel37.BackColor = System.Drawing.Color.FromArgb(CType(CType(249, Byte), Integer), CType(CType(252, Byte), Integer), CType(CType(255, Byte), Integer)) + Me.Panel37.Controls.Add(Label108) + Me.Panel37.Controls.Add(Label112) + Me.Panel37.Controls.Add(Label111) + Me.Panel37.Controls.Add(Me.Label123) + Me.Panel37.Controls.Add(Label110) + Me.Panel37.Controls.Add(Me.tB_t22) + Me.Panel37.Controls.Add(Me.tb_t23) + Me.Panel37.Controls.Add(Me.tb_t24) + Me.Panel37.Controls.Add(Me.tb_t25) + Me.Panel37.Location = New System.Drawing.Point(21, 214) + Me.Panel37.Name = "Panel37" + Me.Panel37.Size = New System.Drawing.Size(213, 130) + Me.Panel37.TabIndex = 1 + ' + 'Label123 + ' + Me.Label123.AutoSize = True + Me.Label123.ForeColor = System.Drawing.Color.Black + Me.Label123.Location = New System.Drawing.Point(3, 5) + Me.Label123.Name = "Label123" + Me.Label123.Size = New System.Drawing.Size(97, 12) + Me.Label123.TabIndex = 74 + Me.Label123.Text = "[실내공기온도]" + ' + 'tB_t22 + ' + Me.tB_t22.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bs, "난방설정온도", True)) + Me.tB_t22.Location = New System.Drawing.Point(126, 25) + Me.tB_t22.Name = "tB_t22" + Me.tB_t22.NectControl = Nothing + Me.tB_t22.Size = New System.Drawing.Size(64, 21) + Me.tB_t22.TabIndex = 0 + Me.tB_t22.TextAlign = System.Windows.Forms.HorizontalAlignment.Right + Me.tB_t22.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + ' + 'tb_t23 + ' + Me.tb_t23.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bs, "냉방설정온도", True)) + Me.tb_t23.Location = New System.Drawing.Point(126, 49) + Me.tb_t23.Name = "tb_t23" + Me.tb_t23.NectControl = Nothing + Me.tb_t23.Size = New System.Drawing.Size(64, 21) + Me.tb_t23.TabIndex = 1 + Me.tb_t23.TextAlign = System.Windows.Forms.HorizontalAlignment.Right + Me.tb_t23.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + ' + 'tb_t24 + ' + Me.tb_t24.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bs, "야간최저허용온도", True)) + Me.tb_t24.Location = New System.Drawing.Point(126, 73) + Me.tb_t24.Name = "tb_t24" + Me.tb_t24.NectControl = Nothing + Me.tb_t24.Size = New System.Drawing.Size(64, 21) + Me.tb_t24.TabIndex = 2 + Me.tb_t24.TextAlign = System.Windows.Forms.HorizontalAlignment.Right + Me.tb_t24.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + ' + 'tb_t25 + ' + Me.tb_t25.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bs, "주말최저허용온도", True)) + Me.tb_t25.Location = New System.Drawing.Point(126, 97) + Me.tb_t25.Name = "tb_t25" + Me.tb_t25.NectControl = Nothing + Me.tb_t25.Size = New System.Drawing.Size(64, 21) + Me.tb_t25.TabIndex = 3 + Me.tb_t25.TextAlign = System.Windows.Forms.HorizontalAlignment.Right + Me.tb_t25.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + ' + 'Panel36 + ' + Me.Panel36.BackColor = System.Drawing.Color.FromArgb(CType(CType(247, Byte), Integer), CType(CType(251, Byte), Integer), CType(CType(255, Byte), Integer)) + Me.Panel36.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.Panel36.Controls.Add(Label43) + Me.Panel36.Controls.Add(Label44) + Me.Panel36.Controls.Add(Me.tb_t20) + Me.Panel36.Controls.Add(Me.Label106) + Me.Panel36.Controls.Add(Me.tb_t21) + Me.Panel36.Location = New System.Drawing.Point(21, 121) + Me.Panel36.Name = "Panel36" + Me.Panel36.Size = New System.Drawing.Size(213, 77) + Me.Panel36.TabIndex = 3 + ' + 'tb_t20 + ' + Me.tb_t20.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bs, "사람", True)) + Me.tb_t20.Location = New System.Drawing.Point(126, 23) + Me.tb_t20.Name = "tb_t20" + Me.tb_t20.NectControl = Nothing + Me.tb_t20.Size = New System.Drawing.Size(64, 21) + Me.tb_t20.TabIndex = 0 + Me.tb_t20.TextAlign = System.Windows.Forms.HorizontalAlignment.Right + Me.tb_t20.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + ' + 'Label106 + ' + Me.Label106.AutoSize = True + Me.Label106.ForeColor = System.Drawing.Color.Black + Me.Label106.Location = New System.Drawing.Point(3, 10) + Me.Label106.Name = "Label106" + Me.Label106.Size = New System.Drawing.Size(71, 12) + Me.Label106.TabIndex = 76 + Me.Label106.Text = "[열발열원]" + ' + 'tb_t21 + ' + Me.tb_t21.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bs, "작업보조기기", True)) + Me.tb_t21.Location = New System.Drawing.Point(126, 49) + Me.tb_t21.Name = "tb_t21" + Me.tb_t21.NectControl = Nothing + Me.tb_t21.Size = New System.Drawing.Size(64, 21) + Me.tb_t21.TabIndex = 1 + Me.tb_t21.TextAlign = System.Windows.Forms.HorizontalAlignment.Right + Me.tb_t21.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + ' + 'Label7 + ' + Me.Label7.AutoSize = True + Me.Label7.BackColor = System.Drawing.Color.FromArgb(CType(CType(243, Byte), Integer), CType(CType(244, Byte), Integer), CType(CType(246, Byte), Integer)) + Me.Label7.ForeColor = System.Drawing.Color.Black + Me.Label7.Location = New System.Drawing.Point(24, 14) + Me.Label7.Name = "Label7" + Me.Label7.Size = New System.Drawing.Size(97, 12) + Me.Label7.TabIndex = 74 + Me.Label7.Text = "[월간사용일수]" + ' + 'Panel33 + ' + Me.Panel33.BackColor = System.Drawing.Color.FromArgb(CType(CType(247, Byte), Integer), CType(CType(251, Byte), Integer), CType(CType(255, Byte), Integer)) + Me.Panel33.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.Panel33.Controls.Add(Label55) + Me.Panel33.Controls.Add(Label58) + Me.Panel33.Controls.Add(Me.tb_t2) + Me.Panel33.Controls.Add(Me.Label10) + Me.Panel33.Controls.Add(Label59) + Me.Panel33.Controls.Add(Me.tb_t3) + Me.Panel33.Controls.Add(Me.tb_t1) + Me.Panel33.Location = New System.Drawing.Point(20, 31) + Me.Panel33.Name = "Panel33" + Me.Panel33.Size = New System.Drawing.Size(213, 97) + Me.Panel33.TabIndex = 0 + ' + 'tb_t2 + ' + Me.tb_t2.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bs, "사용종료시간", True)) + Me.tb_t2.Location = New System.Drawing.Point(122, 44) + Me.tb_t2.Name = "tb_t2" + Me.tb_t2.NectControl = Nothing + Me.tb_t2.Size = New System.Drawing.Size(68, 21) + Me.tb_t2.TabIndex = 1 + Me.tb_t2.TextAlign = System.Windows.Forms.HorizontalAlignment.Right + Me.tb_t2.TextFormat = Eco2Ar.MyTb.ETFormat.TimeHHMM + ' + 'Label10 + ' + Me.Label10.AutoSize = True + Me.Label10.ForeColor = System.Drawing.Color.Black + Me.Label10.Location = New System.Drawing.Point(3, 2) + Me.Label10.Name = "Label10" + Me.Label10.Size = New System.Drawing.Size(71, 12) + Me.Label10.TabIndex = 74 + Me.Label10.Text = "[사용시간]" + ' + 'tb_t3 + ' + Me.tb_t3.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bs, "일일사용시간", True)) + Me.tb_t3.Location = New System.Drawing.Point(122, 68) + Me.tb_t3.Name = "tb_t3" + Me.tb_t3.NectControl = Nothing + Me.tb_t3.Size = New System.Drawing.Size(68, 21) + Me.tb_t3.TabIndex = 2 + Me.tb_t3.TextAlign = System.Windows.Forms.HorizontalAlignment.Right + Me.tb_t3.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + ' + 'tb_t1 + ' + Me.tb_t1.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bs, "사용시작시간", True)) + Me.tb_t1.Location = New System.Drawing.Point(122, 19) + Me.tb_t1.Name = "tb_t1" + Me.tb_t1.NectControl = Nothing + Me.tb_t1.Size = New System.Drawing.Size(68, 21) + Me.tb_t1.TabIndex = 0 + Me.tb_t1.TextAlign = System.Windows.Forms.HorizontalAlignment.Right + Me.tb_t1.TextFormat = Eco2Ar.MyTb.ETFormat.TimeHHMM + ' + 'Panel35 + ' + Me.Panel35.BackColor = System.Drawing.Color.FromArgb(CType(CType(247, Byte), Integer), CType(CType(251, Byte), Integer), CType(CType(255, Byte), Integer)) + Me.Panel35.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.Panel35.Controls.Add(Label37) + Me.Panel35.Controls.Add(Me.tb_t18) + Me.Panel35.Controls.Add(Me.Label97) + Me.Panel35.Location = New System.Drawing.Point(21, 31) + Me.Panel35.Name = "Panel35" + Me.Panel35.Size = New System.Drawing.Size(213, 74) + Me.Panel35.TabIndex = 2 + ' + 'tb_t18 + ' + Me.tb_t18.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bs, "최소도입외기량", True)) + Me.tb_t18.Location = New System.Drawing.Point(126, 32) + Me.tb_t18.Name = "tb_t18" + Me.tb_t18.NectControl = Nothing + Me.tb_t18.Size = New System.Drawing.Size(64, 21) + Me.tb_t18.TabIndex = 0 + Me.tb_t18.TextAlign = System.Windows.Forms.HorizontalAlignment.Right + Me.tb_t18.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + ' + 'Label97 + ' + Me.Label97.AutoSize = True + Me.Label97.ForeColor = System.Drawing.Color.Black + Me.Label97.Location = New System.Drawing.Point(3, 2) + Me.Label97.Name = "Label97" + Me.Label97.Size = New System.Drawing.Size(71, 12) + Me.Label97.TabIndex = 74 + Me.Label97.Text = "[실내기후]" + ' + 'Panel1 + ' + Me.Panel1.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.Panel1.Controls.Add(Me.SplitContainer1) + Me.Panel1.Dock = System.Windows.Forms.DockStyle.Fill + Me.Panel1.Location = New System.Drawing.Point(0, 0) + Me.Panel1.Name = "Panel1" + Me.Panel1.Size = New System.Drawing.Size(818, 574) + Me.Panel1.TabIndex = 3 + ' + 'SplitContainer1 + ' + 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.bn_all) + Me.SplitContainer1.Panel1.Controls.Add(Me.dv) + ' + 'SplitContainer1.Panel2 + ' + Me.SplitContainer1.Panel2.Controls.Add(Me.GroupBox5) + Me.SplitContainer1.Panel2.Controls.Add(Me.GroupBox3) + Me.SplitContainer1.Panel2.Controls.Add(Me.GroupBox2) + Me.SplitContainer1.Size = New System.Drawing.Size(794, 534) + Me.SplitContainer1.SplitterDistance = 210 + Me.SplitContainer1.TabIndex = 124 + ' + 'GroupBox5 + ' + Me.GroupBox5.Controls.Add(Me.Panel3) + Me.GroupBox5.Controls.Add(Me.Panel2) + Me.GroupBox5.Controls.Add(Me.Panel33) + Me.GroupBox5.Controls.Add(Me.PictureBox1) + Me.GroupBox5.Location = New System.Drawing.Point(22, 5) + Me.GroupBox5.Name = "GroupBox5" + Me.GroupBox5.Size = New System.Drawing.Size(255, 350) + Me.GroupBox5.TabIndex = 126 + Me.GroupBox5.TabStop = False + ' + 'Panel3 + ' + Me.Panel3.BackColor = System.Drawing.Color.FromArgb(CType(CType(247, Byte), Integer), CType(CType(251, Byte), Integer), CType(CType(255, Byte), Integer)) + Me.Panel3.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.Panel3.Controls.Add(Label60) + Me.Panel3.Controls.Add(Label57) + Me.Panel3.Controls.Add(Me.Label11) + Me.Panel3.Controls.Add(Label8) + Me.Panel3.Controls.Add(Label56) + Me.Panel3.Controls.Add(Me.tb_t7) + Me.Panel3.Controls.Add(Me.tb_t6) + Me.Panel3.Controls.Add(Me.tb_t5) + Me.Panel3.Controls.Add(Me.tb_t4) + Me.Panel3.Location = New System.Drawing.Point(20, 145) + Me.Panel3.Name = "Panel3" + Me.Panel3.Size = New System.Drawing.Size(213, 132) + Me.Panel3.TabIndex = 127 + ' + 'Label11 + ' + Me.Label11.AutoSize = True + Me.Label11.ForeColor = System.Drawing.Color.Black + Me.Label11.Location = New System.Drawing.Point(3, 5) + Me.Label11.Name = "Label11" + Me.Label11.Size = New System.Drawing.Size(71, 12) + Me.Label11.TabIndex = 74 + Me.Label11.Text = "[운전시간]" + ' + 'tb_t7 + ' + Me.tb_t7.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bs, "일일운전시간", True)) + Me.tb_t7.Location = New System.Drawing.Point(133, 93) + Me.tb_t7.Name = "tb_t7" + Me.tb_t7.NectControl = Nothing + Me.tb_t7.Size = New System.Drawing.Size(68, 21) + Me.tb_t7.TabIndex = 2 + Me.tb_t7.TextAlign = System.Windows.Forms.HorizontalAlignment.Right + Me.tb_t7.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + ' + 'tb_t6 + ' + Me.tb_t6.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bs, "운전시간난방", True)) + Me.tb_t6.Location = New System.Drawing.Point(133, 68) + Me.tb_t6.Name = "tb_t6" + Me.tb_t6.NectControl = Nothing + Me.tb_t6.Size = New System.Drawing.Size(68, 21) + Me.tb_t6.TabIndex = 2 + Me.tb_t6.TextAlign = System.Windows.Forms.HorizontalAlignment.Right + Me.tb_t6.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + ' + 'tb_t5 + ' + Me.tb_t5.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bs, "운전종료시간", True)) + Me.tb_t5.Location = New System.Drawing.Point(133, 44) + Me.tb_t5.Name = "tb_t5" + Me.tb_t5.NectControl = Nothing + Me.tb_t5.Size = New System.Drawing.Size(68, 21) + Me.tb_t5.TabIndex = 1 + Me.tb_t5.TextAlign = System.Windows.Forms.HorizontalAlignment.Right + Me.tb_t5.TextFormat = Eco2Ar.MyTb.ETFormat.TimeHHMM + ' + 'tb_t4 + ' + Me.tb_t4.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bs, "운전시작시간", True)) + Me.tb_t4.Location = New System.Drawing.Point(133, 20) + Me.tb_t4.Name = "tb_t4" + Me.tb_t4.NectControl = Nothing + Me.tb_t4.Size = New System.Drawing.Size(68, 21) + Me.tb_t4.TabIndex = 0 + Me.tb_t4.TextAlign = System.Windows.Forms.HorizontalAlignment.Right + Me.tb_t4.TextFormat = Eco2Ar.MyTb.ETFormat.TimeHHMM + ' + 'Panel2 + ' + Me.Panel2.BackColor = System.Drawing.Color.FromArgb(CType(CType(247, Byte), Integer), CType(CType(251, Byte), Integer), CType(CType(255, Byte), Integer)) + Me.Panel2.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.Panel2.Controls.Add(Me.tb_일급탕요구량) + Me.Panel2.Controls.Add(Me.Label12) + Me.Panel2.Location = New System.Drawing.Point(20, 283) + Me.Panel2.Name = "Panel2" + Me.Panel2.Size = New System.Drawing.Size(213, 46) + Me.Panel2.TabIndex = 1 + ' + 'tb_일급탕요구량 + ' + Me.tb_일급탕요구량.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bs, "일일급탕요구량", True)) + Me.tb_일급탕요구량.Location = New System.Drawing.Point(122, 11) + Me.tb_일급탕요구량.Name = "tb_일급탕요구량" + Me.tb_일급탕요구량.NectControl = Nothing + Me.tb_일급탕요구량.Size = New System.Drawing.Size(68, 21) + Me.tb_일급탕요구량.TabIndex = 11 + Me.tb_일급탕요구량.TextAlign = System.Windows.Forms.HorizontalAlignment.Right + Me.tb_일급탕요구량.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + ' + 'Label12 + ' + Me.Label12.AutoSize = True + Me.Label12.ForeColor = System.Drawing.Color.Black + Me.Label12.Location = New System.Drawing.Point(3, 12) + Me.Label12.Name = "Label12" + Me.Label12.Size = New System.Drawing.Size(110, 12) + Me.Label12.TabIndex = 74 + Me.Label12.Text = "[일일급탕요구량]" + ' + 'PictureBox1 + ' + 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(2, 9) + Me.PictureBox1.Name = "PictureBox1" + Me.PictureBox1.Size = New System.Drawing.Size(251, 337) + Me.PictureBox1.TabIndex = 128 + Me.PictureBox1.TabStop = False + ' + 'GroupBox3 + ' + Me.GroupBox3.Controls.Add(Me.Panel35) + Me.GroupBox3.Controls.Add(Me.Panel37) + Me.GroupBox3.Controls.Add(Me.Panel36) + Me.GroupBox3.Controls.Add(Me.PictureBox2) + Me.GroupBox3.Location = New System.Drawing.Point(293, 5) + Me.GroupBox3.Name = "GroupBox3" + Me.GroupBox3.Size = New System.Drawing.Size(255, 350) + Me.GroupBox3.TabIndex = 125 + Me.GroupBox3.TabStop = False + ' + 'PictureBox2 + ' + Me.PictureBox2.BackColor = System.Drawing.Color.FromArgb(CType(CType(219, Byte), Integer), CType(CType(221, Byte), Integer), CType(CType(223, Byte), Integer)) + Me.PictureBox2.Location = New System.Drawing.Point(1, 9) + Me.PictureBox2.Name = "PictureBox2" + Me.PictureBox2.Size = New System.Drawing.Size(252, 337) + Me.PictureBox2.TabIndex = 128 + Me.PictureBox2.TabStop = False + ' + 'GroupBox2 + ' + Me.GroupBox2.Controls.Add(Me.TableLayoutPanel33) + Me.GroupBox2.Controls.Add(Me.Label7) + Me.GroupBox2.Controls.Add(Me.PictureBox3) + Me.GroupBox2.Location = New System.Drawing.Point(22, 357) + Me.GroupBox2.Name = "GroupBox2" + Me.GroupBox2.Size = New System.Drawing.Size(526, 169) + Me.GroupBox2.TabIndex = 124 + Me.GroupBox2.TabStop = False + ' + 'PictureBox3 + ' + Me.PictureBox3.BackColor = System.Drawing.Color.FromArgb(CType(CType(243, Byte), Integer), CType(CType(244, Byte), Integer), CType(CType(246, Byte), Integer)) + Me.PictureBox3.Location = New System.Drawing.Point(2, 9) + Me.PictureBox3.Name = "PictureBox3" + Me.PictureBox3.Size = New System.Drawing.Size(522, 158) + Me.PictureBox3.TabIndex = 124 + Me.PictureBox3.TabStop = False + ' + 'NTb2 + ' + Me.NTb2.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.NTb2.Dock = System.Windows.Forms.DockStyle.Fill + Me.NTb2.Location = New System.Drawing.Point(175, 11) + Me.NTb2.Name = "NTb2" + Me.NTb2.NectControl = Nothing + Me.NTb2.Size = New System.Drawing.Size(1, 21) + Me.NTb2.TabIndex = 29 + Me.NTb2.TextAlign = System.Windows.Forms.HorizontalAlignment.Right + Me.NTb2.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + ' + '설명DataGridViewTextBoxColumn + ' + Me.설명DataGridViewTextBoxColumn.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.Fill + Me.설명DataGridViewTextBoxColumn.DataPropertyName = "설명" + Me.설명DataGridViewTextBoxColumn.HeaderText = "설명" + Me.설명DataGridViewTextBoxColumn.Name = "설명DataGridViewTextBoxColumn" + ' + 'Frm_V20091231_Profile + ' + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.None + Me.BackColor = System.Drawing.Color.White + Me.ClientSize = New System.Drawing.Size(818, 574) + Me.ControlBox = False + Me.Controls.Add(Me.Panel1) + Me.Font = New System.Drawing.Font("돋움", 8.999999!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.KeyPreview = True + Me.Name = "Frm_V20091231_Profile" + Me.ShowIcon = False + Me.ShowInTaskbar = False + Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen + Me.Text = "설정프로필" + CType(Me.dv, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.bs, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.DS, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.bn_all, System.ComponentModel.ISupportInitialize).EndInit() + Me.bn_all.ResumeLayout(False) + Me.bn_all.PerformLayout() + Me.TableLayoutPanel2.ResumeLayout(False) + Me.TableLayoutPanel2.PerformLayout() + Me.TableLayoutPanel33.ResumeLayout(False) + Me.TableLayoutPanel33.PerformLayout() + Me.Panel37.ResumeLayout(False) + Me.Panel37.PerformLayout() + Me.Panel36.ResumeLayout(False) + Me.Panel36.PerformLayout() + Me.Panel33.ResumeLayout(False) + Me.Panel33.PerformLayout() + Me.Panel35.ResumeLayout(False) + Me.Panel35.PerformLayout() + Me.Panel1.ResumeLayout(False) + Me.SplitContainer1.Panel1.ResumeLayout(False) + Me.SplitContainer1.Panel2.ResumeLayout(False) + CType(Me.SplitContainer1, System.ComponentModel.ISupportInitialize).EndInit() + Me.SplitContainer1.ResumeLayout(False) + Me.GroupBox5.ResumeLayout(False) + Me.Panel3.ResumeLayout(False) + Me.Panel3.PerformLayout() + Me.Panel2.ResumeLayout(False) + Me.Panel2.PerformLayout() + CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).EndInit() + Me.GroupBox3.ResumeLayout(False) + CType(Me.PictureBox2, System.ComponentModel.ISupportInitialize).EndInit() + Me.GroupBox2.ResumeLayout(False) + Me.GroupBox2.PerformLayout() + CType(Me.PictureBox3, System.ComponentModel.ISupportInitialize).EndInit() + Me.ResumeLayout(False) + + End Sub + Friend WithEvents bn_all As System.Windows.Forms.BindingNavigator + Friend WithEvents bt_add As System.Windows.Forms.ToolStripButton + Friend WithEvents bt_Del As System.Windows.Forms.ToolStripButton + Friend WithEvents bt_cancel As System.Windows.Forms.ToolStripButton + Friend WithEvents dv As CEnergy.arindv + Public WithEvents DS As Eco2Ar.DS + Friend WithEvents bs As System.Windows.Forms.BindingSource + Friend WithEvents NTb2 As MyTb + Friend WithEvents NTb1 As MyTb + Friend WithEvents TableLayoutPanel2 As System.Windows.Forms.TableLayoutPanel + Friend WithEvents tb_t6 As MyTb + Friend WithEvents tb_t5 As MyTb + Friend WithEvents tb_t4 As MyTb + Friend WithEvents tb_t3 As MyTb + Friend WithEvents tb_t2 As MyTb + Friend WithEvents tb_t1 As MyTb + Friend WithEvents tb_t25 As MyTb + Friend WithEvents tb_t24 As MyTb + Friend WithEvents tb_t23 As MyTb + Friend WithEvents tB_t22 As MyTb + Friend WithEvents tb_t21 As MyTb + Friend WithEvents tb_t20 As MyTb + Friend WithEvents tb_t18 As MyTb + Friend WithEvents Panel36 As System.Windows.Forms.Panel + Friend WithEvents Panel33 As System.Windows.Forms.Panel + Friend WithEvents Label106 As System.Windows.Forms.Label + Friend WithEvents Panel35 As System.Windows.Forms.Panel + Friend WithEvents Label97 As System.Windows.Forms.Label + Friend WithEvents Panel37 As System.Windows.Forms.Panel + Friend WithEvents Label123 As System.Windows.Forms.Label + Friend WithEvents ToolStripSeparator1 As System.Windows.Forms.ToolStripSeparator + Friend WithEvents TableLayoutPanel33 As System.Windows.Forms.TableLayoutPanel + Friend WithEvents tb_tm12 As MyTb + Friend WithEvents tb_tm11 As MyTb + Friend WithEvents tB_tm10 As MyTb + Friend WithEvents tb_tm9 As MyTb + Friend WithEvents tb_tm1 As MyTb + Friend WithEvents tb_tm8 As MyTb + Friend WithEvents tb_tm2 As MyTb + Friend WithEvents tb_tm3 As MyTb + Friend WithEvents tb_tm4 As MyTb + Friend WithEvents tb_tm7 As MyTb + Friend WithEvents tb_tm5 As MyTb + Friend WithEvents tb_tm6 As MyTb + Friend WithEvents Label7 As System.Windows.Forms.Label + Friend WithEvents tb_일급탕요구량 As Eco2Ar.MyTb + Friend WithEvents Panel1 As System.Windows.Forms.Panel + Friend WithEvents SplitContainer1 As System.Windows.Forms.SplitContainer + Friend WithEvents lbl_pos As System.Windows.Forms.ToolStripLabel + Friend WithEvents lbl_count As System.Windows.Forms.ToolStripLabel + Friend WithEvents GroupBox5 As System.Windows.Forms.GroupBox + Friend WithEvents Panel2 As System.Windows.Forms.Panel + Friend WithEvents GroupBox3 As System.Windows.Forms.GroupBox + Friend WithEvents GroupBox2 As System.Windows.Forms.GroupBox + Friend WithEvents Panel3 As System.Windows.Forms.Panel + Friend WithEvents Label12 As System.Windows.Forms.Label + Friend WithEvents Label11 As System.Windows.Forms.Label + Friend WithEvents Label10 As System.Windows.Forms.Label + Friend WithEvents PictureBox1 As System.Windows.Forms.PictureBox + Friend WithEvents PictureBox2 As System.Windows.Forms.PictureBox + Friend WithEvents PictureBox3 As System.Windows.Forms.PictureBox + Friend WithEvents tb_t7 As Eco2Ar.MyTb + Friend WithEvents 설명DataGridViewTextBoxColumn As System.Windows.Forms.DataGridViewTextBoxColumn +End Class diff --git a/ArinWarev1/Forms_Input/Frm_v20091231_profile.resx b/ArinWarev1/Forms_Input/Frm_v20091231_profile.resx new file mode 100644 index 0000000..8038e91 --- /dev/null +++ b/ArinWarev1/Forms_Input/Frm_v20091231_profile.resx @@ -0,0 +1,210 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + 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 + + + False + + + False + + + False + + + False + + + False + + + False + + + 222, 17 + + + 370, 17 + + + 286, 17 + + + 40 + + \ No newline at end of file diff --git a/ArinWarev1/Forms_Input/Frm_v20091231_profile.vb b/ArinWarev1/Forms_Input/Frm_v20091231_profile.vb new file mode 100644 index 0000000..8365276 --- /dev/null +++ b/ArinWarev1/Forms_Input/Frm_v20091231_profile.vb @@ -0,0 +1,438 @@ +Public Class Frm_V20091231_Profile + Dim Init As Boolean = False + Dim SrcDrv As DataRowView + + + Public Sub New(_opentime) + + ' 이 호출은 디자이너에 필요합니다. + InitializeComponent() + OpenTime = _opentime + + ' InitializeComponent() 호출 뒤에 초기화 코드를 추가하십시오. + + End Sub + +#Region "data Base 변경여부및 적용방법" + + '''변경된내용을적용한다. + Public Overrides Function AcceptChanged() As Boolean + bs.EndEdit() + Dim BaseDS As DataSet = CType(bs.DataSource, DataSet) + Dim BaseDT As DataTable = BaseDS.Tables(bs.DataMember) + BaseDT.AcceptChanges() + Return True + End Function + + '''변경된내용이있다면 취소한다. + Public Overrides Function RejectChanged() As Boolean + Dim BaseDS As DataSet = CType(bs.DataSource, DataSet) + Dim BaseDT As DataTable = BaseDS.Tables(bs.DataMember) + BaseDT.RejectChanges() + Return True + End Function + + '''데이터에변형이있었는가? + Public Overrides Function HasChanged() As Boolean + bs.EndEdit() + Dim BaseDS As DataSet = CType(bs.DataSource, DataSet) + Dim BaseDT As DataTable = BaseDS.Tables(bs.DataMember) + Dim ChangeDT As DataTable = BaseDT.GetChanges + If Not ChangeDT Is Nothing Then Return True + Return False + End Function + + '''기본데이터테이블을 반환합니다. + Public Function DT() As DataTable + Dim BaseDS As DataSet = CType(bs.DataSource, DataSet) + Return BaseDS.Tables(bs.DataMember) + End Function + + +#End Region + + Private Sub AddNewDataRow_Zone_Changed2(ByVal sender As Object, ByVal e As System.Data.DataColumnChangeEventArgs) + Dim oval As String = e.Row(e.Column.ColumnName).ToString + Dim nval As String = e.ProposedValue.ToString + If oval <> nval Then + Dim newdr As DS2.historyRow = DSHistory.history.NewhistoryRow + newdr.time = Now.ToString("yyyy-MM-dd HH:mm:ss") + newdr.tablename = "tbl_profile" + newdr.ovalue = oval + newdr.nvalue = nval + newdr.column = e.Column.ColumnName + newdr.code = e.Row("code").ToString + DSHistory.history.AddhistoryRow(newdr) + DSHistory.history.AcceptChanges() + End If + End Sub + + Private Sub MdiMain_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load + + Me.Show() + My.Application.DoEvents() + 'Work_msg_timer("잠시만 기다려주세요") + + 'CEnergy.ARINCLASS.SaveLoad_FrmSetting(Me) + '//공유데이터셋에 연결한다. + Me.bs.DataSource = DSET1 + + AddHandler DSET1.tbl_profile.TableNewRow, AddressOf AddNewDataRow_Profile + AddHandler DSET1.tbl_profile.ColumnChanging, AddressOf AddNewDataRow_Zone_Changed2 + + '//모든컨트롤의 cTrl_enter 를 추가합니다 + BindProperty(CType(Me.SplitContainer1.Panel2.Controls, Control.ControlCollection)) + Me.Init = True + + Try + Me.bs.Position = CEnergy.ARINCLASS.Read_LastPos_Frm(Me) + Catch ex As Exception + Me.bs.MoveFirst() + End Try + + If Prj.UserAuthType = "ADMIN" OrElse Prj.UserAuthType = "BOTH2" Then '//2010.11.22 추가 + Me.SplitContainer1.Panel2.Enabled = True + Me.bn_all.Visible = True + Else + Me.SplitContainer1.Panel2.Enabled = False + Me.bn_all.Visible = False + End If + AddDebug("▲ Form Load") + End Sub + +#Region "Control_Enter" + Private Sub BindProperty(ByVal Ctl As Control.ControlCollection) + For Each C As Control In Ctl + If C.Controls.Count > 1 Then + BindProperty(C.Controls) + Else + If C.GetType.ToString.ToUpper.IndexOf("MYTB") <> -1 Then + AddHandler CType(C, MyTb).KeyDown, AddressOf TextBOx_KeyDown + ElseIf C.GetType.ToString.ToUpper.IndexOf("MYCMB") <> -1 Then + AddHandler CType(C, MyCmb).KeyDown, AddressOf Cmd_KeyDown + End If + End If + Next + End Sub + + + Private Sub TextBOx_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) + If e.KeyCode = Keys.Enter AndAlso e.Control Then + Try + Dim Field As String = (CType(sender, MyTb).DataBindings.Item("text").BindingMemberInfo.BindingField) + For Each Dr As DataRow In DT.Select(Me.bs.Filter, "") + Dr(Field) = CType(sender, MyTb).Text + Next + Work_msg_timer("모든값이 변경되었습니다", 25) + Catch ex As Exception + + End Try + + End If + End Sub + Private Sub Cmd_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) + If e.KeyCode = Keys.Enter AndAlso e.Control Then + Try + Dim Field As String = (CType(sender, MyCmb).DataBindings.Item("selectedvalue").BindingMemberInfo.BindingField) + For Each Dr As DataRow In DT.Select(Me.bs.Filter, "") + Dr(Field) = CType(sender, MyCmb).SelectedValue + Next + Work_msg_timer("모든값이 변경되었습니다", 25) + Catch ex As Exception + + End Try + End If + End Sub +#End Region + +#Region "기본" + + Private Sub MdiMain_FormClosed(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosedEventArgs) Handles Me.FormClosed + CEnergy.ARINCLASS.SaveLoad_FrmSetting(Me, Me.bs.Position, True) + End Sub + + Private Sub AddNewDataRow_Profile(ByVal sender As Object, ByVal e As System.Data.DataTableNewRowEventArgs) + e.Row.Item("code") = GetMaxCode(DSET1.tbl_profile) + End Sub + Private Function GetMaxCode(ByVal dt As DataTable) As String + Try + Dim Dr As DataRow = dt.Select("", "code desc")(0) + Return Format(CInt(Dr("code")) + 1, "0000") + Catch ex As Exception + Return "0001" + End Try + End Function + +#Region "제어버튼" + Private Sub ToolStripButton48_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt_add.Click + If Not EndEdit(Me.bs) Then Return + Me.bs.AddNew() + INitRow(Me.Controls) + MdiMain.RefreshMenuList(TreeTag) + End Sub + + + Private Sub ToolStripButton49_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt_Del.Click + Dbbase.DelCrow(Me.bs, True) + MdiMain.RefreshMenuList(TreeTag) + End Sub + + Private Sub ToolStripButton51_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt_cancel.Click + If Not EndEdit(Me.bs) Then Return + Data_Cancel(DSET1.tbl_profile, Nothing) + MdiMain.RefreshMenuList(TreeTag) + End Sub +#End Region + + Private Sub Frm_V20091231_Zone_MouseWheel(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseWheel + If e.Delta < 0 Then + If Me.bs.Position < Me.bs.Count Then Me.bs.Position += 1 + Else + If Me.bs.Position > 0 Then Me.bs.Position -= 1 + End If + Me.Validate() + My.Application.DoEvents() + End Sub +#End Region + + + Private Sub 사용시작시간NTb_GotFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles tb_t1.GotFocus + CType(sender, TextBox).SelectAll() + End Sub + + Private Sub tb_t1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles tb_t1.KeyDown + If Prj.UserAuthType = "ADMIN" OrElse Prj.UserAuthType = "BOTH" OrElse Prj.UserAuthType = "BOTH2" OrElse Prj.UserAuthType = "BOTH1" Then '//2011.03.08 추가 + If e.KeyCode = Keys.V And e.Control Then + + e.Handled = True + e.SuppressKeyPress = True + '//클립보드붙여넣기 + Dim CB() As String = My.Computer.Clipboard.GetText.Split(CChar(vbCrLf)) + If CB.GetUpperBound(0) <> 59 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() '//한줄추가 + + Dim Cnt As Short = 0 + For i As Integer = 0 To CB.GetUpperBound(0) + Select Case i + Case 0 + CType(Me.bs.Current, DataRowView)("설명") = CB(i).Split(CChar(vbTab))(ii).Trim + Case 0 + 1 + Me.tb_일급탕요구량.Text = CB(i).Split(CChar(vbTab))(ii).Trim + Case 1 + 1 '//공란 + Case 2 + 1 '//면적 + Me.tb_t1.Text = CB(i).Split(CChar(vbTab))(ii).Trim + Case 3 + 1 + Me.tb_t2.Text = CB(i).Split(CChar(vbTab))(ii).Trim + Case 4 + 1 + Me.tb_t3.Text = CB(i).Split(CChar(vbTab))(ii).Trim + Case 5 + 1 + Me.tb_t4.Text = CB(i).Split(CChar(vbTab))(ii).Trim + Case 6 + 1 + Me.tb_t5.Text = CB(i).Split(CChar(vbTab))(ii).Trim + Case 7 + 1 + Me.tb_t6.Text = CB(i).Split(CChar(vbTab))(ii).Trim + Case 8 + 1 + ' Me.tb_t7.Text = CB(i).Trim + Case 9 + ' Me.tb_t8.Text = CB(i).Trim + Case 10 + ' Me.tb_t9.Text = CB(i).Trim + Case 11 + ' Me.tb_t10.Text = CB(i).Trim + Case 12 + ' Me.tb_공냉난시간.Text = CB(i).Trim + + Case 13 + 1 + Case 14 + 1 + + Case 15 '//요구조도 + ' Me.tb_t12.Text = CB(i).Trim + Case 16 + 'Me.tb_t13.Text = CB(i).Trim + Case 17 + 'Me.tb_t14.Text = CB(i).Trim + Case 18 + 'Me.tb_t15.Text = CB(i).Trim + Case 19 + 'Me.tb_t16.Text = CB(i).Trim + Case 20 '//부분운전계수 + 'Me.tb_t17.Text = CB(i).Trim + + Case 21 + Case 22 + + Case 23 + 1 '//최소도입외기량 + Me.tb_t18.Text = CB(i).Split(CChar(vbTab))(ii).Trim + Case 24 + ' Me.tb_t19.Text = CB(i).Trim + + Case 25 + Case 26 + + Case 27 + 1 + Me.tb_t20.Text = CB(i).Split(CChar(vbTab))(ii).Trim + Case 28 + 1 '//작업보조기기 + Me.tb_t21.Text = CB(i).Split(CChar(vbTab))(ii).Trim + + Case 29 + Case 30 + + Case 31 + 1 '//실내공기온도 + 'Me.TabControl11.SelectedIndex = 1 + Me.tB_t22.Text = CB(i).Split(CChar(vbTab))(ii).Trim + Case 32 + 1 + Me.tb_t23.Text = CB(i).Split(CChar(vbTab))(ii).Trim + Case 33 + 1 + Me.tb_t24.Text = CB(i).Split(CChar(vbTab))(ii).Trim + Case 34 + 1 + Me.tb_t25.Text = CB(i).Split(CChar(vbTab))(ii).Trim + Case 35 + 1 + ' Me.tb_t26.Text = CB(i).Trim + Case 36 '//최소설정온도 냉방 + 'Me.tb_t27.Text = CB(i).Trim + + Case 37 + Case 38 + + Case 39 + ' Me.tb_t28.Text = CB(i).Trim + Case 40 + 'Me.tb_t29.Text = CB(i).Trim + Case 41 + ' Me.tb_t30.Text = CB(i).Trim + Case 42 + ' Me.tb_t31.Text = CB(i).Trim + Case 43 + ' Me.tb_t32.Text = CB(i).Trim + + Case 44 + Case 45 + Case 46 + + Case 40 + 7 + 1 + Me.tb_tm1.Text = CB(i).Split(CChar(vbTab))(ii).Trim + Case 41 + 7 + 1 + Me.tb_tm2.Text = CB(i).Split(CChar(vbTab))(ii).Trim + Case 42 + 7 + 1 + Me.tb_tm3.Text = CB(i).Split(CChar(vbTab))(ii).Trim + Case 43 + 7 + 1 + Me.tb_tm4.Text = CB(i).Split(CChar(vbTab))(ii).Trim + Case 44 + 7 + 1 + Me.tb_tm5.Text = CB(i).Split(CChar(vbTab))(ii).Trim + Case 45 + 7 + 1 + Me.tb_tm6.Text = CB(i).Split(CChar(vbTab))(ii).Trim + Case 46 + 7 + 1 + Me.tb_tm7.Text = CB(i).Split(CChar(vbTab))(ii).Trim + Case 47 + 7 + 1 + Me.tb_tm8.Text = CB(i).Split(CChar(vbTab))(ii).Trim + Case 48 + 7 + 1 + Me.tb_tm9.Text = CB(i).Split(CChar(vbTab))(ii).Trim + Case 49 + 7 + 1 + Me.tB_tm10.Text = CB(i).Split(CChar(vbTab))(ii).Trim + Case 50 + 7 + 1 + Me.tb_tm11.Text = CB(i).Split(CChar(vbTab))(ii).Trim + Case 51 + 7 + 1 + Me.tb_tm12.Text = CB(i).Split(CChar(vbTab))(ii).Trim + End Select + Next + If bs.Position < bs.Count Then bs.Position += 1 '//위치이동 + Next + Me.bs.EndEdit() + End If + End If + End Sub + + + Private Sub bt_Del_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles bt_Del.MouseDown + If Prj.UserAuthType = "ADMIN" OrElse Prj.UserAuthType = "BOTH" OrElse Prj.UserAuthType = "BOTH2" OrElse Prj.UserAuthType = "BOTH1" Then '//2011.03.08 추가 + If e.Button = Windows.Forms.MouseButtons.Right Then + If MsgBox("전체삭제를 하시겠습니까?", MsgBoxStyle.Information Or MsgBoxStyle.OkCancel, "확인") = MsgBoxResult.Ok Then + Dim dR() As DataRow = DSET1.tbl_profile.Select(Me.bs.Filter, "") + For i As Integer = dR.GetUpperBound(0) To 0 Step -1 + dR(i).Delete() + Next + DSET1.tbl_profile.AcceptChanges() + End If + End If + End If + End Sub + + + Private Sub dv_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles dv.MouseUp + If Prj.UserAuthType = "ADMIN" OrElse Prj.UserAuthType = "BOTH" OrElse Prj.UserAuthType = "BOTH2" OrElse Prj.UserAuthType = "BOTH1" Then '//2011.03.08 추가 + If e.Button = Windows.Forms.MouseButtons.Right Then + Dim Frm_FilterA As New Frm_Filter + Frm_FilterA.ColumTitle = getColCaption(Me.DT) + Frm_FilterA.ColumList = getColName(Me.DT) + Frm_FilterA.Colorlist = "" + If Frm_FilterA.ShowDialog <> Windows.Forms.DialogResult.OK Then Return '//창떳을떄 확인아ㅣ고 취소눌르면 다음을 수행하지않는다는거에요. + Dim Filter As String = Frm_FilterA.tb_filter.Text '//값은 아까 그 텍박에 잇구요. + Try + Me.bs.Filter = Filter + Catch ex As Exception + Me.bs.Filter = "" + End Try + End If + End If + End Sub + Private Sub dv_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles dv.KeyDown + '//여기보시면 alt+d 누르면 한줄을 경고없이(falsE)삭제하도록 햇어요.. 사실원래 밋alt +d 인데.. ㅎㅎ 잘못해서 ctrl 됫다는 + If Prj.UserAuthType = "ADMIN" OrElse Prj.UserAuthType = "BOTH" OrElse Prj.UserAuthType = "BOTH2" OrElse Prj.UserAuthType = "BOTH1" Then '//2011.03.08 추가 + Select Case e.KeyCode + Case Keys.D + If e.Alt Then + Dbbase.DelCrow(Me.bs, False) + End If + Case Keys.C + If e.Control Then + Me.SrcDrv = Me.bs.Current + If Me.SrcDrv Is Nothing Then + MsgBox("저장할 ROW가 없습니다", MsgBoxStyle.Information, "확인") + Return + End If + ' My.Computer.Clipboard.SetData("ZDATA", Drv) + End If + Case Keys.V + If e.Control Then + If Me.SrcDrv Is Nothing Then Return + Me.bt_add.PerformClick() '//신규추가 + Dim NewDrv As DataRowView = Me.bs.Current + + For Each C As DataColumn In Me.DT.Columns + If C.ColumnName.ToUpper = "CODE" Then + ElseIf C.ColumnName.ToUpper = "설명" Then + NewDrv(C.ColumnName) = SrcDrv(C.ColumnName) & "#1" + Else + NewDrv(C.ColumnName) = SrcDrv(C.ColumnName) + End If + Next + Me.bs.EndEdit() + bs.MoveLast() + End If + End Select + End If + End Sub + + + Private Sub Frm_V20091231_Profile_KeyDown(sender As System.Object, e As System.Windows.Forms.KeyEventArgs) Handles MyBase.KeyDown + Select Case e.KeyCode + Case Keys.F12 + ShowHistory() + End Select + End Sub + Private Sub ShowHistory() + Dim drv As DataRowView = Me.bs.Current + Dim f As New Frm_History("tbl_profile", drv("code").ToString) + If f.ShowDialog = DialogResult.OK Then + drv(f.colname) = f.val + Me.Validate() + Me.bs.EndEdit() + My.Application.DoEvents() + MsgBox("값이 변경되었습니다", MsgBoxStyle.Information, "확인") + End If + End Sub +End Class diff --git a/ArinWarev1/Forms_Input/ReadMe.txt b/ArinWarev1/Forms_Input/ReadMe.txt new file mode 100644 index 0000000..1cea01a --- /dev/null +++ b/ArinWarev1/Forms_Input/ReadMe.txt @@ -0,0 +1,4 @@ +⺻(20091231) Դϴ + ÿ ش +α׷ũ ش ° ؾմϴ +α׷ũ Select case ǾǷ case ϼϸ˴ϴ. \ No newline at end of file diff --git a/ArinWarev1/Forms_Input/frm_monuse.Designer.vb b/ArinWarev1/Forms_Input/frm_monuse.Designer.vb new file mode 100644 index 0000000..62e185f --- /dev/null +++ b/ArinWarev1/Forms_Input/frm_monuse.Designer.vb @@ -0,0 +1,657 @@ + _ +Partial Class Frm_monuse + Inherits CForm + 'Form은 Dispose를 재정의하여 구성 요소 목록을 정리합니다. + _ + Protected Overrides Sub Dispose(ByVal disposing As Boolean) + Try + If disposing AndAlso components IsNot Nothing Then + components.Dispose() + End If + Finally + MyBase.Dispose(disposing) + End Try + End Sub + + 'Windows Form 디자이너에 필요합니다. + Private components As System.ComponentModel.IContainer + + '참고: 다음 프로시저는 Windows Form 디자이너에 필요합니다. + '수정하려면 Windows Form 디자이너를 사용하십시오. + '코드 편집기를 사용하여 수정하지 마십시오. + _ + Private Sub InitializeComponent() + Me.components = New System.ComponentModel.Container() + Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(Frm_monuse)) + Dim DataGridViewCellStyle1 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle2 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle3 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle4 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle5 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle6 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle7 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle8 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle9 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle10 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle11 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle12 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Me.bs1 = New System.Windows.Forms.BindingSource(Me.components) + Me.DS = New Eco2Ar.DS() + Me.bs3 = New System.Windows.Forms.BindingSource(Me.components) + Me.bs2 = New System.Windows.Forms.BindingSource(Me.components) + Me.TableLayoutPanel1 = New System.Windows.Forms.TableLayoutPanel() + Me.Panel1 = New System.Windows.Forms.Panel() + Me.Arindv9 = New CEnergy.arindv() + Me.tb_y1 = New System.Windows.Forms.TextBox() + Me.Panel2 = New System.Windows.Forms.Panel() + Me.Arindv1 = New CEnergy.arindv() + Me.tb_y2 = New System.Windows.Forms.TextBox() + Me.Panel3 = New System.Windows.Forms.Panel() + Me.Arindv2 = New CEnergy.arindv() + Me.tb_y3 = New System.Windows.Forms.TextBox() + Me.bn_all = New System.Windows.Forms.BindingNavigator(Me.components) + Me.ToolStripLabel6 = New System.Windows.Forms.ToolStripLabel() + Me.ToolStripButton44 = New System.Windows.Forms.ToolStripButton() + Me.ToolStripButton45 = New System.Windows.Forms.ToolStripButton() + Me.ToolStripSeparator25 = New System.Windows.Forms.ToolStripSeparator() + Me.ToolStripTextBox6 = New System.Windows.Forms.ToolStripTextBox() + Me.ToolStripSeparator26 = New System.Windows.Forms.ToolStripSeparator() + Me.ToolStripButton46 = New System.Windows.Forms.ToolStripButton() + Me.ToolStripButton47 = New System.Windows.Forms.ToolStripButton() + Me.ToolStripSeparator27 = New System.Windows.Forms.ToolStripSeparator() + Me.ToolStripButton48 = New System.Windows.Forms.ToolStripButton() + Me.ToolStripButton49 = New System.Windows.Forms.ToolStripButton() + Me.ToolStripSeparator28 = New System.Windows.Forms.ToolStripSeparator() + Me.ToolStripButton51 = New System.Windows.Forms.ToolStripButton() + Me.CodeDataGridViewTextBoxColumn = 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.DataGridViewTextBoxColumn1 = New System.Windows.Forms.DataGridViewTextBoxColumn() + 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.DataGridViewTextBoxColumn9 = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.DataGridViewTextBoxColumn10 = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.DataGridViewTextBoxColumn11 = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.DataGridViewTextBoxColumn12 = New System.Windows.Forms.DataGridViewTextBoxColumn() + CType(Me.bs1, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.DS, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.bs3, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.bs2, System.ComponentModel.ISupportInitialize).BeginInit() + Me.TableLayoutPanel1.SuspendLayout() + Me.Panel1.SuspendLayout() + CType(Me.Arindv9, System.ComponentModel.ISupportInitialize).BeginInit() + Me.Panel2.SuspendLayout() + CType(Me.Arindv1, System.ComponentModel.ISupportInitialize).BeginInit() + Me.Panel3.SuspendLayout() + CType(Me.Arindv2, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.bn_all, System.ComponentModel.ISupportInitialize).BeginInit() + Me.bn_all.SuspendLayout() + Me.SuspendLayout() + ' + 'bs1 + ' + Me.bs1.DataMember = "tbl_monuse" + Me.bs1.DataSource = Me.DS + Me.bs1.Filter = "code = '0001'" + ' + 'DS + ' + Me.DS.DataSetName = "DS" + Me.DS.SchemaSerializationMode = System.Data.SchemaSerializationMode.IncludeSchema + ' + 'bs3 + ' + Me.bs3.DataMember = "tbl_monuse" + Me.bs3.DataSource = Me.DS + Me.bs3.Filter = "code = '0003'" + ' + 'bs2 + ' + Me.bs2.DataMember = "tbl_monuse" + Me.bs2.DataSource = Me.DS + Me.bs2.Filter = "code = '0002'" + ' + 'TableLayoutPanel1 + ' + Me.TableLayoutPanel1.ColumnCount = 3 + Me.TableLayoutPanel1.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Percent, 33.33333!)) + Me.TableLayoutPanel1.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Percent, 33.33333!)) + Me.TableLayoutPanel1.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Percent, 33.33333!)) + Me.TableLayoutPanel1.Controls.Add(Me.Panel1, 0, 0) + Me.TableLayoutPanel1.Controls.Add(Me.Panel2, 1, 0) + Me.TableLayoutPanel1.Controls.Add(Me.Panel3, 2, 0) + Me.TableLayoutPanel1.Dock = System.Windows.Forms.DockStyle.Fill + Me.TableLayoutPanel1.Location = New System.Drawing.Point(0, 0) + Me.TableLayoutPanel1.Name = "TableLayoutPanel1" + Me.TableLayoutPanel1.RowCount = 1 + Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Percent, 100.0!)) + Me.TableLayoutPanel1.Size = New System.Drawing.Size(786, 384) + Me.TableLayoutPanel1.TabIndex = 0 + ' + 'Panel1 + ' + Me.Panel1.Controls.Add(Me.Arindv9) + Me.Panel1.Controls.Add(Me.tb_y1) + Me.Panel1.Dock = System.Windows.Forms.DockStyle.Fill + Me.Panel1.Location = New System.Drawing.Point(3, 3) + Me.Panel1.Name = "Panel1" + Me.Panel1.Size = New System.Drawing.Size(256, 378) + Me.Panel1.TabIndex = 10 + ' + 'Arindv9 + ' + Me.Arindv9.A_DelCurrentCell = True + Me.Arindv9.A_EnterToTab = False + Me.Arindv9.AllowUserToAddRows = False + Me.Arindv9.AllowUserToDeleteRows = False + Me.Arindv9.AllowUserToResizeRows = False + Me.Arindv9.AutoGenerateColumns = False + Me.Arindv9.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.AllCells + Me.Arindv9.BorderStyle = System.Windows.Forms.BorderStyle.None + Me.Arindv9.ColumnHeadersHeight = 30 + Me.Arindv9.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.DisableResizing + Me.Arindv9.Columns.AddRange(New System.Windows.Forms.DataGridViewColumn() {Me.CodeDataGridViewTextBoxColumn, Me.년DataGridViewTextBoxColumn, Me.월DataGridViewTextBoxColumn, Me.도시가스DataGridViewTextBoxColumn, Me.전력DataGridViewTextBoxColumn, Me.지역난방DataGridViewTextBoxColumn}) + Me.Arindv9.DataSource = Me.bs1 + Me.Arindv9.Dock = System.Windows.Forms.DockStyle.Fill + Me.Arindv9.Location = New System.Drawing.Point(0, 32) + Me.Arindv9.Margin = New System.Windows.Forms.Padding(0) + Me.Arindv9.MultiSelect = False + Me.Arindv9.Name = "Arindv9" + Me.Arindv9.RowHeadersVisible = False + Me.Arindv9.RowTemplate.Height = 23 + Me.Arindv9.Size = New System.Drawing.Size(256, 346) + Me.Arindv9.TabIndex = 1 + ' + 'tb_y1 + ' + Me.tb_y1.Dock = System.Windows.Forms.DockStyle.Top + Me.tb_y1.Font = New System.Drawing.Font("돋움", 15.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.tb_y1.Location = New System.Drawing.Point(0, 0) + Me.tb_y1.Name = "tb_y1" + Me.tb_y1.Size = New System.Drawing.Size(256, 32) + Me.tb_y1.TabIndex = 0 + Me.tb_y1.TextAlign = System.Windows.Forms.HorizontalAlignment.Center + ' + 'Panel2 + ' + Me.Panel2.Controls.Add(Me.Arindv1) + Me.Panel2.Controls.Add(Me.tb_y2) + Me.Panel2.Dock = System.Windows.Forms.DockStyle.Fill + Me.Panel2.Location = New System.Drawing.Point(265, 3) + Me.Panel2.Name = "Panel2" + Me.Panel2.Size = New System.Drawing.Size(256, 378) + Me.Panel2.TabIndex = 11 + ' + 'Arindv1 + ' + Me.Arindv1.A_DelCurrentCell = True + Me.Arindv1.A_EnterToTab = False + Me.Arindv1.AllowUserToAddRows = False + Me.Arindv1.AllowUserToDeleteRows = False + Me.Arindv1.AllowUserToResizeRows = False + Me.Arindv1.AutoGenerateColumns = False + Me.Arindv1.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.AllCells + Me.Arindv1.BorderStyle = System.Windows.Forms.BorderStyle.None + Me.Arindv1.ColumnHeadersHeight = 30 + Me.Arindv1.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.DisableResizing + Me.Arindv1.Columns.AddRange(New System.Windows.Forms.DataGridViewColumn() {Me.DataGridViewTextBoxColumn1, Me.DataGridViewTextBoxColumn2, Me.DataGridViewTextBoxColumn3, Me.DataGridViewTextBoxColumn4, Me.DataGridViewTextBoxColumn5, Me.DataGridViewTextBoxColumn6}) + Me.Arindv1.DataSource = Me.bs2 + Me.Arindv1.Dock = System.Windows.Forms.DockStyle.Fill + Me.Arindv1.Location = New System.Drawing.Point(0, 32) + Me.Arindv1.Margin = New System.Windows.Forms.Padding(0) + Me.Arindv1.Name = "Arindv1" + Me.Arindv1.RowHeadersVisible = False + Me.Arindv1.RowTemplate.Height = 23 + Me.Arindv1.Size = New System.Drawing.Size(256, 346) + Me.Arindv1.TabIndex = 1 + ' + 'tb_y2 + ' + Me.tb_y2.Dock = System.Windows.Forms.DockStyle.Top + Me.tb_y2.Font = New System.Drawing.Font("돋움", 15.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.tb_y2.Location = New System.Drawing.Point(0, 0) + Me.tb_y2.Name = "tb_y2" + Me.tb_y2.Size = New System.Drawing.Size(256, 32) + Me.tb_y2.TabIndex = 0 + Me.tb_y2.TextAlign = System.Windows.Forms.HorizontalAlignment.Center + ' + 'Panel3 + ' + Me.Panel3.Controls.Add(Me.Arindv2) + Me.Panel3.Controls.Add(Me.tb_y3) + Me.Panel3.Dock = System.Windows.Forms.DockStyle.Fill + Me.Panel3.Location = New System.Drawing.Point(527, 3) + Me.Panel3.Name = "Panel3" + Me.Panel3.Size = New System.Drawing.Size(256, 378) + Me.Panel3.TabIndex = 12 + ' + 'Arindv2 + ' + Me.Arindv2.A_DelCurrentCell = True + Me.Arindv2.A_EnterToTab = False + Me.Arindv2.AllowUserToAddRows = False + Me.Arindv2.AllowUserToDeleteRows = False + Me.Arindv2.AllowUserToResizeRows = False + Me.Arindv2.AutoGenerateColumns = False + Me.Arindv2.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.AllCells + Me.Arindv2.BorderStyle = System.Windows.Forms.BorderStyle.None + Me.Arindv2.ColumnHeadersHeight = 30 + Me.Arindv2.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.DisableResizing + Me.Arindv2.Columns.AddRange(New System.Windows.Forms.DataGridViewColumn() {Me.DataGridViewTextBoxColumn7, Me.DataGridViewTextBoxColumn8, Me.DataGridViewTextBoxColumn9, Me.DataGridViewTextBoxColumn10, Me.DataGridViewTextBoxColumn11, Me.DataGridViewTextBoxColumn12}) + Me.Arindv2.DataSource = Me.bs3 + Me.Arindv2.Dock = System.Windows.Forms.DockStyle.Fill + Me.Arindv2.Location = New System.Drawing.Point(0, 32) + Me.Arindv2.Margin = New System.Windows.Forms.Padding(0) + Me.Arindv2.Name = "Arindv2" + Me.Arindv2.RowHeadersVisible = False + Me.Arindv2.RowTemplate.Height = 23 + Me.Arindv2.Size = New System.Drawing.Size(256, 346) + Me.Arindv2.TabIndex = 1 + ' + 'tb_y3 + ' + Me.tb_y3.Dock = System.Windows.Forms.DockStyle.Top + Me.tb_y3.Font = New System.Drawing.Font("돋움", 15.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.tb_y3.Location = New System.Drawing.Point(0, 0) + Me.tb_y3.Name = "tb_y3" + Me.tb_y3.Size = New System.Drawing.Size(256, 32) + Me.tb_y3.TabIndex = 0 + Me.tb_y3.TextAlign = System.Windows.Forms.HorizontalAlignment.Center + ' + 'bn_all + ' + Me.bn_all.AddNewItem = Nothing + Me.bn_all.BindingSource = Me.bs1 + Me.bn_all.CountItem = Me.ToolStripLabel6 + Me.bn_all.DeleteItem = Nothing + 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.ToolStripButton51}) + Me.bn_all.Location = New System.Drawing.Point(0, 384) + 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(786, 25) + Me.bn_all.TabIndex = 7 + Me.bn_all.Text = "BindingNavigator1" + ' + 'ToolStripLabel6 + ' + Me.ToolStripLabel6.Name = "ToolStripLabel6" + Me.ToolStripLabel6.Size = New System.Drawing.Size(29, 22) + Me.ToolStripLabel6.Text = "/{0}" + Me.ToolStripLabel6.ToolTipText = "전체 항목 수" + ' + 'ToolStripButton44 + ' + Me.ToolStripButton44.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.ToolStripButton44.Image = CType(resources.GetObject("ToolStripButton44.Image"), System.Drawing.Image) + Me.ToolStripButton44.Name = "ToolStripButton44" + Me.ToolStripButton44.RightToLeftAutoMirrorImage = True + Me.ToolStripButton44.Size = New System.Drawing.Size(23, 22) + Me.ToolStripButton44.Text = "처음으로 이동" + ' + 'ToolStripButton45 + ' + Me.ToolStripButton45.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.ToolStripButton45.Image = CType(resources.GetObject("ToolStripButton45.Image"), System.Drawing.Image) + Me.ToolStripButton45.Name = "ToolStripButton45" + Me.ToolStripButton45.RightToLeftAutoMirrorImage = True + Me.ToolStripButton45.Size = New System.Drawing.Size(23, 22) + Me.ToolStripButton45.Text = "이전으로 이동" + ' + 'ToolStripSeparator25 + ' + Me.ToolStripSeparator25.Name = "ToolStripSeparator25" + Me.ToolStripSeparator25.Size = New System.Drawing.Size(6, 25) + ' + 'ToolStripTextBox6 + ' + Me.ToolStripTextBox6.AccessibleName = "위치" + Me.ToolStripTextBox6.AutoSize = False + Me.ToolStripTextBox6.Name = "ToolStripTextBox6" + Me.ToolStripTextBox6.Size = New System.Drawing.Size(50, 21) + Me.ToolStripTextBox6.Text = "0" + Me.ToolStripTextBox6.ToolTipText = "현재 위치" + ' + 'ToolStripSeparator26 + ' + Me.ToolStripSeparator26.Name = "ToolStripSeparator26" + Me.ToolStripSeparator26.Size = New System.Drawing.Size(6, 25) + ' + 'ToolStripButton46 + ' + Me.ToolStripButton46.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.ToolStripButton46.Image = CType(resources.GetObject("ToolStripButton46.Image"), System.Drawing.Image) + Me.ToolStripButton46.Name = "ToolStripButton46" + Me.ToolStripButton46.RightToLeftAutoMirrorImage = True + Me.ToolStripButton46.Size = New System.Drawing.Size(23, 22) + Me.ToolStripButton46.Text = "다음으로 이동" + ' + 'ToolStripButton47 + ' + Me.ToolStripButton47.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.ToolStripButton47.Image = CType(resources.GetObject("ToolStripButton47.Image"), System.Drawing.Image) + Me.ToolStripButton47.Name = "ToolStripButton47" + Me.ToolStripButton47.RightToLeftAutoMirrorImage = True + Me.ToolStripButton47.Size = New System.Drawing.Size(23, 22) + Me.ToolStripButton47.Text = "마지막으로 이동" + ' + 'ToolStripSeparator27 + ' + Me.ToolStripSeparator27.Name = "ToolStripSeparator27" + Me.ToolStripSeparator27.Size = New System.Drawing.Size(6, 25) + ' + 'ToolStripButton48 + ' + Me.ToolStripButton48.Enabled = False + Me.ToolStripButton48.Image = CType(resources.GetObject("ToolStripButton48.Image"), System.Drawing.Image) + Me.ToolStripButton48.Name = "ToolStripButton48" + Me.ToolStripButton48.RightToLeftAutoMirrorImage = True + Me.ToolStripButton48.Size = New System.Drawing.Size(67, 22) + Me.ToolStripButton48.Text = "추가(&A)" + ' + 'ToolStripButton49 + ' + Me.ToolStripButton49.Enabled = False + Me.ToolStripButton49.Image = CType(resources.GetObject("ToolStripButton49.Image"), System.Drawing.Image) + Me.ToolStripButton49.Name = "ToolStripButton49" + Me.ToolStripButton49.RightToLeftAutoMirrorImage = True + Me.ToolStripButton49.Size = New System.Drawing.Size(67, 22) + Me.ToolStripButton49.Text = "삭제(&D)" + ' + 'ToolStripSeparator28 + ' + Me.ToolStripSeparator28.Name = "ToolStripSeparator28" + Me.ToolStripSeparator28.Size = New System.Drawing.Size(6, 25) + ' + 'ToolStripButton51 + ' + Me.ToolStripButton51.Image = CType(resources.GetObject("ToolStripButton51.Image"), System.Drawing.Image) + Me.ToolStripButton51.ImageTransparentColor = System.Drawing.Color.Magenta + Me.ToolStripButton51.Name = "ToolStripButton51" + Me.ToolStripButton51.Size = New System.Drawing.Size(68, 22) + Me.ToolStripButton51.Text = "취소(&C)" + ' + 'CodeDataGridViewTextBoxColumn + ' + Me.CodeDataGridViewTextBoxColumn.DataPropertyName = "code" + Me.CodeDataGridViewTextBoxColumn.HeaderText = "code" + Me.CodeDataGridViewTextBoxColumn.Name = "CodeDataGridViewTextBoxColumn" + Me.CodeDataGridViewTextBoxColumn.SortMode = System.Windows.Forms.DataGridViewColumnSortMode.Programmatic + Me.CodeDataGridViewTextBoxColumn.Visible = False + Me.CodeDataGridViewTextBoxColumn.Width = 62 + ' + '년DataGridViewTextBoxColumn + ' + Me.년DataGridViewTextBoxColumn.DataPropertyName = "년" + Me.년DataGridViewTextBoxColumn.HeaderText = "년" + Me.년DataGridViewTextBoxColumn.Name = "년DataGridViewTextBoxColumn" + Me.년DataGridViewTextBoxColumn.SortMode = System.Windows.Forms.DataGridViewColumnSortMode.Programmatic + Me.년DataGridViewTextBoxColumn.Visible = False + Me.년DataGridViewTextBoxColumn.Width = 43 + ' + '월DataGridViewTextBoxColumn + ' + Me.월DataGridViewTextBoxColumn.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.Fill + Me.월DataGridViewTextBoxColumn.DataPropertyName = "월" + DataGridViewCellStyle1.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleCenter + DataGridViewCellStyle1.BackColor = System.Drawing.Color.FromArgb(CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer)) + Me.월DataGridViewTextBoxColumn.DefaultCellStyle = DataGridViewCellStyle1 + Me.월DataGridViewTextBoxColumn.HeaderText = "월" + Me.월DataGridViewTextBoxColumn.Name = "월DataGridViewTextBoxColumn" + Me.월DataGridViewTextBoxColumn.ReadOnly = True + Me.월DataGridViewTextBoxColumn.Resizable = System.Windows.Forms.DataGridViewTriState.[True] + Me.월DataGridViewTextBoxColumn.SortMode = System.Windows.Forms.DataGridViewColumnSortMode.Programmatic + ' + '도시가스DataGridViewTextBoxColumn + ' + Me.도시가스DataGridViewTextBoxColumn.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.None + Me.도시가스DataGridViewTextBoxColumn.DataPropertyName = "도시가스" + DataGridViewCellStyle2.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleRight + Me.도시가스DataGridViewTextBoxColumn.DefaultCellStyle = DataGridViewCellStyle2 + Me.도시가스DataGridViewTextBoxColumn.HeaderText = "가스등유" + Me.도시가스DataGridViewTextBoxColumn.Name = "도시가스DataGridViewTextBoxColumn" + Me.도시가스DataGridViewTextBoxColumn.SortMode = System.Windows.Forms.DataGridViewColumnSortMode.Programmatic + Me.도시가스DataGridViewTextBoxColumn.Width = 70 + ' + '전력DataGridViewTextBoxColumn + ' + Me.전력DataGridViewTextBoxColumn.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.None + Me.전력DataGridViewTextBoxColumn.DataPropertyName = "전력" + DataGridViewCellStyle3.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleRight + Me.전력DataGridViewTextBoxColumn.DefaultCellStyle = DataGridViewCellStyle3 + Me.전력DataGridViewTextBoxColumn.HeaderText = "전력" + Me.전력DataGridViewTextBoxColumn.Name = "전력DataGridViewTextBoxColumn" + Me.전력DataGridViewTextBoxColumn.SortMode = System.Windows.Forms.DataGridViewColumnSortMode.Programmatic + Me.전력DataGridViewTextBoxColumn.Width = 70 + ' + '지역난방DataGridViewTextBoxColumn + ' + Me.지역난방DataGridViewTextBoxColumn.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.None + Me.지역난방DataGridViewTextBoxColumn.DataPropertyName = "지역난방" + DataGridViewCellStyle4.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleRight + Me.지역난방DataGridViewTextBoxColumn.DefaultCellStyle = DataGridViewCellStyle4 + Me.지역난방DataGridViewTextBoxColumn.HeaderText = "지역난방" + Me.지역난방DataGridViewTextBoxColumn.Name = "지역난방DataGridViewTextBoxColumn" + Me.지역난방DataGridViewTextBoxColumn.SortMode = System.Windows.Forms.DataGridViewColumnSortMode.Programmatic + Me.지역난방DataGridViewTextBoxColumn.Width = 70 + ' + 'DataGridViewTextBoxColumn1 + ' + Me.DataGridViewTextBoxColumn1.DataPropertyName = "code" + Me.DataGridViewTextBoxColumn1.HeaderText = "code" + Me.DataGridViewTextBoxColumn1.Name = "DataGridViewTextBoxColumn1" + Me.DataGridViewTextBoxColumn1.SortMode = System.Windows.Forms.DataGridViewColumnSortMode.NotSortable + Me.DataGridViewTextBoxColumn1.Visible = False + Me.DataGridViewTextBoxColumn1.Width = 43 + ' + 'DataGridViewTextBoxColumn2 + ' + Me.DataGridViewTextBoxColumn2.DataPropertyName = "년" + Me.DataGridViewTextBoxColumn2.HeaderText = "년" + Me.DataGridViewTextBoxColumn2.Name = "DataGridViewTextBoxColumn2" + Me.DataGridViewTextBoxColumn2.SortMode = System.Windows.Forms.DataGridViewColumnSortMode.Programmatic + Me.DataGridViewTextBoxColumn2.Visible = False + Me.DataGridViewTextBoxColumn2.Width = 43 + ' + 'DataGridViewTextBoxColumn3 + ' + Me.DataGridViewTextBoxColumn3.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.Fill + Me.DataGridViewTextBoxColumn3.DataPropertyName = "월" + DataGridViewCellStyle5.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleCenter + DataGridViewCellStyle5.BackColor = System.Drawing.Color.FromArgb(CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer)) + Me.DataGridViewTextBoxColumn3.DefaultCellStyle = DataGridViewCellStyle5 + Me.DataGridViewTextBoxColumn3.HeaderText = "월" + Me.DataGridViewTextBoxColumn3.Name = "DataGridViewTextBoxColumn3" + Me.DataGridViewTextBoxColumn3.ReadOnly = True + Me.DataGridViewTextBoxColumn3.SortMode = System.Windows.Forms.DataGridViewColumnSortMode.Programmatic + ' + 'DataGridViewTextBoxColumn4 + ' + Me.DataGridViewTextBoxColumn4.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.None + Me.DataGridViewTextBoxColumn4.DataPropertyName = "도시가스" + DataGridViewCellStyle6.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleRight + Me.DataGridViewTextBoxColumn4.DefaultCellStyle = DataGridViewCellStyle6 + Me.DataGridViewTextBoxColumn4.HeaderText = "가스등유" + Me.DataGridViewTextBoxColumn4.Name = "DataGridViewTextBoxColumn4" + Me.DataGridViewTextBoxColumn4.SortMode = System.Windows.Forms.DataGridViewColumnSortMode.Programmatic + Me.DataGridViewTextBoxColumn4.Width = 70 + ' + 'DataGridViewTextBoxColumn5 + ' + Me.DataGridViewTextBoxColumn5.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.None + Me.DataGridViewTextBoxColumn5.DataPropertyName = "전력" + DataGridViewCellStyle7.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleRight + Me.DataGridViewTextBoxColumn5.DefaultCellStyle = DataGridViewCellStyle7 + Me.DataGridViewTextBoxColumn5.HeaderText = "전력" + Me.DataGridViewTextBoxColumn5.Name = "DataGridViewTextBoxColumn5" + Me.DataGridViewTextBoxColumn5.SortMode = System.Windows.Forms.DataGridViewColumnSortMode.Programmatic + Me.DataGridViewTextBoxColumn5.Width = 70 + ' + 'DataGridViewTextBoxColumn6 + ' + Me.DataGridViewTextBoxColumn6.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.None + Me.DataGridViewTextBoxColumn6.DataPropertyName = "지역난방" + DataGridViewCellStyle8.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleRight + Me.DataGridViewTextBoxColumn6.DefaultCellStyle = DataGridViewCellStyle8 + Me.DataGridViewTextBoxColumn6.HeaderText = "지역난방" + Me.DataGridViewTextBoxColumn6.Name = "DataGridViewTextBoxColumn6" + Me.DataGridViewTextBoxColumn6.SortMode = System.Windows.Forms.DataGridViewColumnSortMode.Programmatic + Me.DataGridViewTextBoxColumn6.Width = 70 + ' + 'DataGridViewTextBoxColumn7 + ' + Me.DataGridViewTextBoxColumn7.DataPropertyName = "code" + Me.DataGridViewTextBoxColumn7.HeaderText = "code" + Me.DataGridViewTextBoxColumn7.Name = "DataGridViewTextBoxColumn7" + Me.DataGridViewTextBoxColumn7.SortMode = System.Windows.Forms.DataGridViewColumnSortMode.NotSortable + Me.DataGridViewTextBoxColumn7.Visible = False + Me.DataGridViewTextBoxColumn7.Width = 43 + ' + 'DataGridViewTextBoxColumn8 + ' + Me.DataGridViewTextBoxColumn8.DataPropertyName = "년" + Me.DataGridViewTextBoxColumn8.HeaderText = "년" + Me.DataGridViewTextBoxColumn8.Name = "DataGridViewTextBoxColumn8" + Me.DataGridViewTextBoxColumn8.SortMode = System.Windows.Forms.DataGridViewColumnSortMode.Programmatic + Me.DataGridViewTextBoxColumn8.Visible = False + Me.DataGridViewTextBoxColumn8.Width = 43 + ' + 'DataGridViewTextBoxColumn9 + ' + Me.DataGridViewTextBoxColumn9.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.Fill + Me.DataGridViewTextBoxColumn9.DataPropertyName = "월" + DataGridViewCellStyle9.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleCenter + DataGridViewCellStyle9.BackColor = System.Drawing.Color.FromArgb(CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer)) + Me.DataGridViewTextBoxColumn9.DefaultCellStyle = DataGridViewCellStyle9 + Me.DataGridViewTextBoxColumn9.HeaderText = "월" + Me.DataGridViewTextBoxColumn9.Name = "DataGridViewTextBoxColumn9" + Me.DataGridViewTextBoxColumn9.ReadOnly = True + Me.DataGridViewTextBoxColumn9.SortMode = System.Windows.Forms.DataGridViewColumnSortMode.Programmatic + ' + 'DataGridViewTextBoxColumn10 + ' + Me.DataGridViewTextBoxColumn10.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.None + Me.DataGridViewTextBoxColumn10.DataPropertyName = "도시가스" + DataGridViewCellStyle10.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleRight + Me.DataGridViewTextBoxColumn10.DefaultCellStyle = DataGridViewCellStyle10 + Me.DataGridViewTextBoxColumn10.HeaderText = "가스등유" + Me.DataGridViewTextBoxColumn10.Name = "DataGridViewTextBoxColumn10" + Me.DataGridViewTextBoxColumn10.SortMode = System.Windows.Forms.DataGridViewColumnSortMode.Programmatic + Me.DataGridViewTextBoxColumn10.Width = 70 + ' + 'DataGridViewTextBoxColumn11 + ' + Me.DataGridViewTextBoxColumn11.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.None + Me.DataGridViewTextBoxColumn11.DataPropertyName = "전력" + DataGridViewCellStyle11.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleRight + Me.DataGridViewTextBoxColumn11.DefaultCellStyle = DataGridViewCellStyle11 + Me.DataGridViewTextBoxColumn11.HeaderText = "전력" + Me.DataGridViewTextBoxColumn11.Name = "DataGridViewTextBoxColumn11" + Me.DataGridViewTextBoxColumn11.SortMode = System.Windows.Forms.DataGridViewColumnSortMode.Programmatic + Me.DataGridViewTextBoxColumn11.Width = 70 + ' + 'DataGridViewTextBoxColumn12 + ' + Me.DataGridViewTextBoxColumn12.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.None + Me.DataGridViewTextBoxColumn12.DataPropertyName = "지역난방" + DataGridViewCellStyle12.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleRight + Me.DataGridViewTextBoxColumn12.DefaultCellStyle = DataGridViewCellStyle12 + Me.DataGridViewTextBoxColumn12.HeaderText = "지역난방" + Me.DataGridViewTextBoxColumn12.Name = "DataGridViewTextBoxColumn12" + Me.DataGridViewTextBoxColumn12.SortMode = System.Windows.Forms.DataGridViewColumnSortMode.Programmatic + Me.DataGridViewTextBoxColumn12.Width = 70 + ' + 'Frm_monuse + ' + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.None + Me.ClientSize = New System.Drawing.Size(786, 409) + Me.ControlBox = False + Me.Controls.Add(Me.TableLayoutPanel1) + Me.Controls.Add(Me.bn_all) + Me.Font = New System.Drawing.Font("돋움", 8.999999!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.KeyPreview = True + Me.Name = "Frm_monuse" + Me.ShowInTaskbar = False + Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen + Me.Text = "월별에너지사용량" + CType(Me.bs1, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.DS, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.bs3, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.bs2, System.ComponentModel.ISupportInitialize).EndInit() + Me.TableLayoutPanel1.ResumeLayout(False) + Me.Panel1.ResumeLayout(False) + Me.Panel1.PerformLayout() + CType(Me.Arindv9, System.ComponentModel.ISupportInitialize).EndInit() + Me.Panel2.ResumeLayout(False) + Me.Panel2.PerformLayout() + CType(Me.Arindv1, System.ComponentModel.ISupportInitialize).EndInit() + Me.Panel3.ResumeLayout(False) + Me.Panel3.PerformLayout() + CType(Me.Arindv2, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.bn_all, System.ComponentModel.ISupportInitialize).EndInit() + Me.bn_all.ResumeLayout(False) + Me.bn_all.PerformLayout() + Me.ResumeLayout(False) + Me.PerformLayout() + + End Sub + Friend WithEvents bn_all As System.Windows.Forms.BindingNavigator + Friend WithEvents ToolStripLabel6 As System.Windows.Forms.ToolStripLabel + Friend WithEvents ToolStripButton44 As System.Windows.Forms.ToolStripButton + Friend WithEvents ToolStripButton45 As System.Windows.Forms.ToolStripButton + Friend WithEvents ToolStripSeparator25 As System.Windows.Forms.ToolStripSeparator + Friend WithEvents ToolStripTextBox6 As System.Windows.Forms.ToolStripTextBox + Friend WithEvents ToolStripSeparator26 As System.Windows.Forms.ToolStripSeparator + Friend WithEvents ToolStripButton46 As System.Windows.Forms.ToolStripButton + Friend WithEvents ToolStripButton47 As System.Windows.Forms.ToolStripButton + Friend WithEvents ToolStripSeparator27 As System.Windows.Forms.ToolStripSeparator + Friend WithEvents ToolStripButton48 As System.Windows.Forms.ToolStripButton + Friend WithEvents ToolStripButton49 As System.Windows.Forms.ToolStripButton + Friend WithEvents ToolStripSeparator28 As System.Windows.Forms.ToolStripSeparator + Friend WithEvents ToolStripButton51 As System.Windows.Forms.ToolStripButton + Friend WithEvents Arindv9 As CEnergy.arindv + Public WithEvents DS As Eco2Ar.DS + Friend WithEvents bs1 As System.Windows.Forms.BindingSource + Friend WithEvents bs3 As System.Windows.Forms.BindingSource + Friend WithEvents bs2 As System.Windows.Forms.BindingSource + Friend WithEvents TableLayoutPanel1 As System.Windows.Forms.TableLayoutPanel + Friend WithEvents Panel1 As System.Windows.Forms.Panel + Friend WithEvents tb_y1 As System.Windows.Forms.TextBox + Friend WithEvents Panel2 As System.Windows.Forms.Panel + Friend WithEvents tb_y2 As System.Windows.Forms.TextBox + Friend WithEvents Panel3 As System.Windows.Forms.Panel + Friend WithEvents tb_y3 As System.Windows.Forms.TextBox + Friend WithEvents Arindv1 As CEnergy.arindv + Friend WithEvents Arindv2 As CEnergy.arindv + Friend WithEvents CodeDataGridViewTextBoxColumn 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 + Friend WithEvents DataGridViewTextBoxColumn2 As System.Windows.Forms.DataGridViewTextBoxColumn + Friend WithEvents DataGridViewTextBoxColumn3 As System.Windows.Forms.DataGridViewTextBoxColumn + Friend WithEvents DataGridViewTextBoxColumn4 As System.Windows.Forms.DataGridViewTextBoxColumn + Friend WithEvents DataGridViewTextBoxColumn5 As System.Windows.Forms.DataGridViewTextBoxColumn + Friend WithEvents DataGridViewTextBoxColumn6 As System.Windows.Forms.DataGridViewTextBoxColumn + Friend WithEvents DataGridViewTextBoxColumn7 As System.Windows.Forms.DataGridViewTextBoxColumn + Friend WithEvents DataGridViewTextBoxColumn8 As System.Windows.Forms.DataGridViewTextBoxColumn + Friend WithEvents DataGridViewTextBoxColumn9 As System.Windows.Forms.DataGridViewTextBoxColumn + Friend WithEvents DataGridViewTextBoxColumn10 As System.Windows.Forms.DataGridViewTextBoxColumn + Friend WithEvents DataGridViewTextBoxColumn11 As System.Windows.Forms.DataGridViewTextBoxColumn + Friend WithEvents DataGridViewTextBoxColumn12 As System.Windows.Forms.DataGridViewTextBoxColumn +End Class diff --git a/ArinWarev1/Forms_Input/frm_monuse.resx b/ArinWarev1/Forms_Input/frm_monuse.resx new file mode 100644 index 0000000..beebc3f --- /dev/null +++ b/ArinWarev1/Forms_Input/frm_monuse.resx @@ -0,0 +1,225 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + 17, 17 + + + 172, 17 + + + 239, 17 + + + 310, 17 + + + 88, 17 + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAACBjSFJNAAB6 + JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAAACXBIWXMAAA64AAAOuAFqQfVbAAABKklE + 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 + JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAAACXBIWXMAAA64AAAOuAFqQfVbAAAAtklE + 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 + JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAAACXBIWXMAAA64AAAOuAFqQfVbAAAAo0lE + 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 + JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAAACXBIWXMAAA64AAAOuAFqQfVbAAABLElE + 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 + JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAAACXBIWXMAAA64AAAOuAFqQfVbAAABSklE + 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 + JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAAACXBIWXMAAA64AAAOuAFqQfVbAAABb0lE + QVQ4T7WQTSjDYRzHd1XeSu3iglo5IJO8hGQypLHIhMjMJAcOi4R2cXAg5UIOuEgOJCXlROI0b/Pamlp/ + LVLaBf+4PB9jqLW/seJ7eep5vt/P7/v8VH8iXCfQbQTHDh9XkYmVeURnFcKsh631sBC8HliaCfawtgC9 + JkS7HtFRAXMTipC3hsJcBiM9oe+cOgKQumxEYwHYmoJMYsiKMOXCpD1sQxWL04jK1HcQw1Zwn8FYfwDq + Pz9s4YXHBc3FgS8ZsxD1edDX8rvwp9jf9VfOQxjSoUYbYfhGgsZCyElA1sbzoI2F2uxf1r+5BlM+FCXi + sxjg4uh9uXdpfsjy7A8LvL+DVh2PJUm4S9Px7W1/BRi14dTEIJ8cKEN4eYZBC+iSOU5T49tYDTHelmcg + tVUje69DIexuIueqcaZEIXU1gPykOGlHE4fsdCgApkaQUqNx6zNBulKu6Zds74bzQwXApRPGB+Bw79vw + P0ilegWKIwMchCbSyQAAAABJRU5ErkJggg== + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8 + YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAJ2SURBVDhPjVNdSJNhFH5bXdmFRFFeREQXRfQDJRlWZLra + mrOIDCEqQmrlTKkoIaHZoEKK1sAVS1dYiJCaCZUkKCRL20WmrXJ61U0UXhSMuen+n97n3adkdtGBw3u+ + c57nOed83/uJv+2BEIZGIRzy9MkzSNdi5gwabL65hVgt/Y4ETn51XEfkvRfpnz+UM2aONWKI1WgZY0IW + WwKXK5D8/A742A/0tQKvmjLOeOSNqhFD7BwRqgYuWgC/F8nuZnwqP4y2lSvgWajDQPFuTD26AXS6gF4p + 5H8LYslRZG3nyaSvB4nO+/CZC9jB6RFi/TUhFsnY/qGsGOl2Z0ak5wkSvtdqHfVOZOAYr6lAqr0B/qMm + RZaeRXF51vlK9iDW/wLpLjeij+uBZw1IyUbjlyzEOjiBb6L2FFLuWrTlLAU7z5AH9+1ArLcDqZcPMWY5 + QkJwrPwgkhI7cdUCcgkMTtVbkbh7Hh6dDtrYdQOF2xDtbpWTuRA4YcY9IX7JvfOer8pBUmIjt6qUoBKI + 2E4icdMCb/4GJu2DBVsw3dWMZMttjJbpFVlOlktxNolLLDlKgGN8LzcibjuGUPUBDOlzMd3RiITHjtFD + u2bJXIvrtS3LltjjIGdmBcdw4SbELpQgWmVC3G1D3HUFo+a8OWSJy5LuHCnajFhNKcghd/Yzhq1GRCsN + iFabELLuV+NxZzW27EzywNY1iMgm4Uoj65nPSOOlGMpfi+g5TUSCvug3onN5Npp0C/B0yWIM71yHyNm9 + qk7s7EWiyQd1lVkIn8mA/uVhi16RiSVHo2eMCapyNHb7VrododNFyhkzxxox88h/mvZO/vN3FuI3yXDJ + RlfZIFMAAAAASUVORK5CYII= + + + + 38 + + \ No newline at end of file diff --git a/ArinWarev1/Forms_Input/frm_monuse.vb b/ArinWarev1/Forms_Input/frm_monuse.vb new file mode 100644 index 0000000..fb97757 --- /dev/null +++ b/ArinWarev1/Forms_Input/frm_monuse.vb @@ -0,0 +1,173 @@ +Public Class Frm_monuse + +#Region "data Base 변경여부및 적용방법" + + '''변경된내용을적용한다. + Public Overrides Function AcceptChanged() As Boolean + bs1.EndEdit() : bs2.EndEdit() : bs3.EndEdit() + + '//현재입력된 년차수의값을 모두 업데이트한다. + If Me.tb_y1.Text.Trim = "" Then Me.tb_y1.Text = "1차년도" + If Me.tb_y2.Text.Trim = "" Then Me.tb_y2.Text = "2차년도" + If Me.tb_y3.Text.Trim = "" Then Me.tb_y3.Text = "3차년도" + For Each dr As DS.tbl_monuseRow In DSET1.tbl_monuse.Select("code='0001'") + dr.년 = Me.tb_y1.Text.Trim + Next + For Each dr As DS.tbl_monuseRow In DSET1.tbl_monuse.Select("code='0002'") + dr.년 = Me.tb_y2.Text.Trim + Next + For Each dr As DS.tbl_monuseRow In DSET1.tbl_monuse.Select("code='0003'") + dr.년 = Me.tb_y3.Text.Trim + Next + + Dim BaseDS As DataSet = CType(bs1.DataSource, DataSet) + Dim BaseDT As DataTable = BaseDS.Tables(bs1.DataMember) + BaseDT.AcceptChanges() + Return True + End Function + + '''변경된내용이있다면 취소한다. + Public Overrides Function RejectChanged() As Boolean + Dim BaseDS As DataSet = CType(bs1.DataSource, DataSet) + Dim BaseDT As DataTable = BaseDS.Tables(bs1.DataMember) + BaseDT.RejectChanges() + Return True + End Function + + '''데이터에변형이있었는가? + Public Overrides Function HasChanged() As Boolean + bs1.EndEdit() : bs2.EndEdit() : bs3.EndEdit() + Dim BaseDS As DataSet = CType(bs1.DataSource, DataSet) + Dim BaseDT As DataTable = BaseDS.Tables(bs1.DataMember) + Dim ChangeDT As DataTable = BaseDT.GetChanges + If Not ChangeDT Is Nothing Then Return True + Return False + End Function + + '''기본데이터테이블을 반환합니다. + Public Function DT() As DataTable + Dim BaseDS As DataSet = CType(bs1.DataSource, DataSet) + Return BaseDS.Tables(bs1.DataMember) + End Function + +#End Region + + + Public Sub New(_opentime) + + ' 이 호출은 디자이너에 필요합니다. + InitializeComponent() + OpenTime = _opentime + + ' InitializeComponent() 호출 뒤에 초기화 코드를 추가하십시오. + + + End Sub + Private Sub MdiMain_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown + Select Case e.KeyCode + Case Keys.F12 + Case Keys.Escape + Me.Close() + End Select + End Sub + + Private Sub MdiMain_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load + + Me.Show() + My.Application.DoEvents() + 'Work_msg_timer("잠시만 기다려주세요") + + '//프로필 관련 + + '//공유데이터셋에 연결한다. + Me.bs1.DataSource = DSET1 + Me.bs2.DataSource = DSET1 + Me.bs3.DataSource = DSET1 + + '//냉방기기 + 'AddHandler DSET1.tbl_buha.TableNewRow, AddressOf AddNewDataRow_nangbangkiki + + '//콤보컨트롤 바인딩 + Binding_Zone() + + Me.tb_y1.Text = DSET1.tbl_monuse.Select("code='0001'")(0)("년").ToString + Me.tb_y2.Text = DSET1.tbl_monuse.Select("code='0002'")(0)("년").ToString + Me.tb_y3.Text = DSET1.tbl_monuse.Select("code='0003'")(0)("년").ToString + + Try + Me.bs1.Position = CEnergy.ARINCLASS.Read_LastPos_Frm(Me) + Catch ex As Exception + Me.bs1.MoveFirst() + End Try + AddDebug("▲ Form Load") + End Sub + + +#Region "냉방기기" + Private Sub MdiMain_FormClosed(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosedEventArgs) Handles Me.FormClosed + AcceptChanged() + CEnergy.ARINCLASS.SaveLoad_FrmSetting(Me, Me.bs1.Position, True) + End Sub + 'Private Function GetMaxCode(ByVal dt As DataTable) As String + ' Try + ' Dim Dr As DataRow = dt.Select("", "code desc")(0) + ' Return Format(CInt(Dr("code")) + 1, "0000") + ' Catch ex As Exception + ' Return "0001" + ' End Try + 'End Function + + Private Sub Cmb_DeleteVal(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) + If e.KeyCode = Keys.Delete Then + CType(sender, ComboBox).SelectedValue = "" + End If + End Sub + + Private Sub Binding_Zone() + + End Sub + 'Private Sub AddNewDataRow_nangbangkiki(ByVal sender As Object, ByVal e As System.Data.DataTableNewRowEventArgs) + ' e.Row.Item("code") = GetMaxCode(DSET1.tbl_buha) + 'End Sub + 'Private Sub ToolStripButton48_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton48.Click + + ' If Not EndEdit(Me.bs1) Then Return + ' Me.bs1.AddNew() + + 'End Sub + 'Private Sub ToolStripButton49_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton49.Click + + ' 'DbBase.DelCrow(Me.bs1, True) + + 'End Sub + + Private Sub ToolStripButton51_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton51.Click + + If Not EndEdit(Me.bs1) Then Return + If Not EndEdit(Me.bs2) Then Return + If Not EndEdit(Me.bs3) Then Return + Data_Cancel(DSET1.tbl_monuse, Nothing) + MdiMain.RefreshMenuList(TreeTag) + End Sub +#End Region + Private Sub bs_CurrentChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bs1.CurrentChanged, bs2.CurrentChanged, bs3.CurrentChanged + Dim item As BindingSource = CType(sender, BindingSource) + item.EndEdit() + End Sub + + Private Sub Arindv9_CellContentClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles Arindv9.CellContentClick + + End Sub + + Private Sub Panel3_Paint(sender As System.Object, e As System.Windows.Forms.PaintEventArgs) Handles Panel3.Paint + + End Sub + + Private Sub Arindv9_DataError(sender As Object, e As System.Windows.Forms.DataGridViewDataErrorEventArgs) Handles Arindv9.DataError, Arindv1.DataError, Arindv2.DataError + + End Sub + + Private Sub ToolStripButton48_Click(sender As System.Object, e As System.EventArgs) Handles ToolStripButton48.Click + + End Sub +End Class \ No newline at end of file diff --git a/ArinWarev1/Forms_Report/Frm_Export.Designer.vb b/ArinWarev1/Forms_Report/Frm_Export.Designer.vb new file mode 100644 index 0000000..5c3269d --- /dev/null +++ b/ArinWarev1/Forms_Report/Frm_Export.Designer.vb @@ -0,0 +1,86 @@ + _ +Partial Class Frm_Export + Inherits System.Windows.Forms.Form + + 'Form은 Dispose를 재정의하여 구성 요소 목록을 정리합니다. + _ + Protected Overrides Sub Dispose(ByVal disposing As Boolean) + Try + If disposing AndAlso components IsNot Nothing Then + components.Dispose() + End If + Finally + MyBase.Dispose(disposing) + End Try + End Sub + + 'Windows Form 디자이너에 필요합니다. + Private components As System.ComponentModel.IContainer + + '참고: 다음 프로시저는 Windows Form 디자이너에 필요합니다. + '수정하려면 Windows Form 디자이너를 사용하십시오. + '코드 편집기를 사용하여 수정하지 마십시오. + _ + Private Sub InitializeComponent() + Me.Panel1 = New System.Windows.Forms.Panel() + Me.Button2 = New System.Windows.Forms.Button() + Me.Button1 = New System.Windows.Forms.Button() + Me.TextBox1 = New System.Windows.Forms.TextBox() + Me.Panel1.SuspendLayout() + Me.SuspendLayout() + ' + 'Panel1 + ' + Me.Panel1.Controls.Add(Me.Button2) + Me.Panel1.Controls.Add(Me.Button1) + Me.Panel1.Dock = System.Windows.Forms.DockStyle.Top + Me.Panel1.Location = New System.Drawing.Point(0, 0) + Me.Panel1.Name = "Panel1" + Me.Panel1.Size = New System.Drawing.Size(469, 49) + Me.Panel1.TabIndex = 3 + ' + 'Button2 + ' + Me.Button2.Location = New System.Drawing.Point(149, 6) + Me.Button2.Name = "Button2" + Me.Button2.Size = New System.Drawing.Size(137, 38) + Me.Button2.TabIndex = 1 + Me.Button2.Text = "Multi Convert" + Me.Button2.UseVisualStyleBackColor = True + ' + 'Button1 + ' + Me.Button1.Location = New System.Drawing.Point(6, 6) + Me.Button1.Name = "Button1" + Me.Button1.Size = New System.Drawing.Size(137, 38) + Me.Button1.TabIndex = 0 + Me.Button1.Text = "Convert" + Me.Button1.UseVisualStyleBackColor = True + ' + 'TextBox1 + ' + Me.TextBox1.Location = New System.Drawing.Point(12, 55) + Me.TextBox1.Name = "TextBox1" + Me.TextBox1.Size = New System.Drawing.Size(440, 21) + Me.TextBox1.TabIndex = 4 + Me.TextBox1.Text = "C:\Users\HOME\Downloads\성능평가를_위한_입력정보_TPL파일" + ' + 'Frm_Export + ' + Me.AutoScaleDimensions = New System.Drawing.SizeF(7.0!, 12.0!) + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font + Me.ClientSize = New System.Drawing.Size(469, 91) + Me.Controls.Add(Me.TextBox1) + Me.Controls.Add(Me.Panel1) + Me.Name = "Frm_Export" + Me.Text = "Frm_Export" + Me.Panel1.ResumeLayout(False) + Me.ResumeLayout(False) + Me.PerformLayout() + + End Sub + Friend WithEvents Panel1 As System.Windows.Forms.Panel + Friend WithEvents Button2 As System.Windows.Forms.Button + Friend WithEvents Button1 As System.Windows.Forms.Button + Friend WithEvents TextBox1 As System.Windows.Forms.TextBox +End Class diff --git a/ArinWarev1/Forms_Report/Frm_Export.resx b/ArinWarev1/Forms_Report/Frm_Export.resx new file mode 100644 index 0000000..1af7de1 --- /dev/null +++ b/ArinWarev1/Forms_Report/Frm_Export.resx @@ -0,0 +1,120 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + \ No newline at end of file diff --git a/ArinWarev1/Forms_Report/Frm_Export.vb b/ArinWarev1/Forms_Report/Frm_Export.vb new file mode 100644 index 0000000..01de8cf --- /dev/null +++ b/ArinWarev1/Forms_Report/Frm_Export.vb @@ -0,0 +1,287 @@ +Public Class Frm_Export + Dim fn As String = "" + + Dim 단위면적당신재생1차에너지합 As Decimal = 0 + Dim 단위면적당1차에너소비량합 As Decimal = 0 + Dim 에너지자립률 As Double = 0 + + Public Sub New() + + ' 이 호출은 디자이너에 필요합니다. + InitializeComponent() + fn = "" + ' InitializeComponent() 호출 뒤에 초기화 코드를 추가하십시오. + + End Sub + Public Sub New(_file As String) + + ' 이 호출은 디자이너에 필요합니다. + InitializeComponent() + fn = _file + ' InitializeComponent() 호출 뒤에 초기화 코드를 추가하십시오. + + End Sub + Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click + ' Dim prjfile As String = Prj.FileName.Substring(Prj.FileName.LastIndexOf("\") + 1) + Dim path As String = AppDomain.CurrentDomain.BaseDirectory + "\Export\" + Now.ToString("yyMMdd") + MakeData(path) + End Sub + + + Private Sub MakeData(savepath As String, Optional silent As Boolean = False) + + 'FpSpread1.Visible = False + ' FpSpread1.Sheets.Clear() + + Dim prjfile As String = Prj.FileName.Substring(Prj.FileName.LastIndexOf("\") + 1) + prjfile = prjfile.Substring(0, prjfile.LastIndexOf(".")) + Dim di As New System.IO.DirectoryInfo(savepath + "\" + prjfile) + If Not di.Exists Then di.Create() + + '//테이블갯수만큼 시트를 생성한다. + For i As Integer = 0 To DSET1.Tables.Count - 1 + + Dim dt As DataTable = DSET1.Tables(i) + Dim tablename As String = dt.TableName.ToLower() + If tablename = "tbl_pic" Then Continue For + If tablename.IndexOf("weather") <> -1 Then Continue For + If tablename = "tbl_buha" Then Continue For + If tablename = "tbl_monuse" Then Continue For + If tablename = "tbl_common" Then Continue For + If tablename = "tbl_profile" Then Continue For + + + Dim filename As String = tablename + If tablename = "tbl_bunbae" Then filename = "냉방분배" + If tablename = "tbl_common" Then filename = "공용코드" + If tablename = "tbl_desc" Then filename = "건물개요" + If tablename = "tbl_kongjo" Then filename = "공조기기" + If tablename = "tbl_kongkub" Then filename = "공급기기" + If tablename = "tbl_myoun" Then filename = "입력면" + If tablename = "tbl_nanbangkiki" Then filename = "난방기기" + If tablename = "tbl_nangbangkiki" Then filename = "냉방기기" + If tablename = "tbl_nbunbae" Then filename = "난방분배" + If tablename = "tbl_new" Then filename = "신재생기기" + If tablename = "tbl_profile" Then filename = "용도프로필" + If tablename = "tbl_yk" Then filename = "열관류율" + If tablename = "tbl_ykdetail" Then filename = "열관류율(세부)" + If tablename = "tbl_zone" Then filename = "입력존" + + + Dim fi As New System.IO.FileInfo(di.FullName + "\" + filename + ".csv") + Dim buffer As New System.Text.StringBuilder + + 'Dim newsheep As New FarPoint.Win.Spread.SheetView(dt.TableName) + 'FpSpread1.Sheets.Add(newsheep) + 'FpSpread1.Sheets(FpSpread1.Sheets.Count - 1).RowCount = dt.Rows.Count + 1 + 'FpSpread1.Sheets(FpSpread1.Sheets.Count - 1).ColumnCount = dt.Columns.Count + + '//첫줄에는 컬럼명을 넣는다. + Dim cols As New List(Of String) + For c As Integer = 0 To dt.Columns.Count - 1 + 'FpSpread1.Sheets(FpSpread1.Sheets.Count - 1).Cells(0, c).Text = dt.Columns(c).ColumnName + Dim colname = dt.Columns(c).ColumnName + If colname = "sortkey" Then Continue For + + If tablename = "tbl_ykdetail" Then + If colname = "전경색" Or colname = "후경색" Or colname = "커스텀" Then + Continue For + End If + ElseIf tablename = "tbl_nbunbae" Then + If colname = "지관장소" Then Continue For + ElseIf tablename = "tbl_myoun" Then + If colname = "대차대조존" Then Continue For + ElseIf tablename = "tbl_zone" Then + If colname = "지역" Then Continue For + If colname = "냉난방분배시스템" Then Continue For + End If + cols.Add(colname) + Next + + '//column title + For Each colname As String In cols + buffer.Append("," + colname) + Next + buffer.AppendLine() + + '//이테이블의 데이터를 넣는다. + For r As Integer = 0 To dt.Rows.Count - 1 + + Try + Dim codedata As String = dt.Rows(r)("code").ToString() + If codedata = "0" Then Continue For + Catch ex As Exception + + End Try + + + For Each colname As String In cols + 'FpSpread1.Sheets(FpSpread1.Sheets.Count - 1).Cells(r + 1, c).Text = dt.Rows(r)(c).ToString() + + + Dim data As String = dt.Rows(r)(colname).ToString().Replace(",", "_") + If tablename = "tbl_nanbangkiki" Then + If colname = "연결된시스템" Then + Dim dr() As DataRow = DSET1.tbl_new.Select("code='" + data + "'") + If dr.Length = 1 Then + data = dr(0)("설명").ToString() + End If + End If + ElseIf tablename = "tbl_myoun" Then + '존분류 열관류율2 + If colname = "존분류" Then + Dim dr() As DataRow = DSET1.tbl_zone.Select("code='" + data + "'") + If dr.Length = 1 Then + data = dr(0)("설명").ToString() + End If + ElseIf colname = "열관류율2" Then + Dim dr() As DataRow = DSET1.tbl_yk.Select("code='" + data + "'") + If dr.Length = 1 Then + data = dr(0)("설명").ToString() + End If + ElseIf colname = "열관류율" Then + Dim yk2code As String = dt.Rows(r)("열관류율2").ToString() + If yk2code <> "" AndAlso yk2code <> "0" Then + Dim dr() As DataRow = DSET1.tbl_yk.Select("code='" + yk2code + "'") + If dr.Length = 1 Then + data = dr(0)("열관류율").ToString() + End If + End If + End If + ElseIf tablename = "tbl_yk" Then + If colname = "면형태" Then + Dim dr() As DataRow = DSET1.tbl_common.Select("gubun ='1088' and code='" + data + "'") + If dr.Length = 1 Then + data = dr(0)("name").ToString() + End If + End If + ElseIf tablename = "tbl_nbunbae" Then + If colname = "생산기기구분" Then + Dim dr() As DataRow = DSET1.tbl_nanbangkiki.Select("code='" + data + "'") + If dr.Length = 1 Then + data = dr(0)("설명").ToString() + End If + End If + + ElseIf tablename = "tbl_kongkub" Then + If colname = "열공급생산기기" Then + Dim dr() As DataRow = DSET1.tbl_nanbangkiki.Select("code='" + data + "'") + If dr.Length = 1 Then + data = dr(0)("설명").ToString() + End If + End If + ElseIf tablename = "tbl_nangbangkiki" Then + If colname = "연결된시스템" Then + Dim dr() As DataRow = DSET1.tbl_new.Select("code='" + data + "'") + If dr.Length = 1 Then + data = dr(0)("설명").ToString() + End If + ElseIf colname = "온수열생산기기" Then + Dim dr() As DataRow = DSET1.tbl_nanbangkiki.Select("code='" + data + "'") + If dr.Length = 1 Then + data = dr(0)("설명").ToString() + End If + End If + ElseIf tablename = "tbl_zone" Then + + Select Case colname + Case "프로필" + Dim dr() As DataRow = DSET1.tbl_profile.Select("code='" + data + "'") + If dr.Length = 1 Then + data = dr(0)("설명").ToString() + End If + Case "냉난방열공급시스템" + Dim dr() As DataRow = DSET1.tbl_kongkub.Select("code='" + data + "'") + If dr.Length = 1 Then + data = dr(0)("설명").ToString() + End If + Case "냉난방공조처리시스템" + Dim dr() As DataRow = DSET1.tbl_kongjo.Select("code='" + data + "'") + If dr.Length = 1 Then + data = dr(0)("설명").ToString() + End If + Case "열생산난방생산기기" + Dim dr() As DataRow = DSET1.tbl_nanbangkiki.Select("code='" + data + "'") + If dr.Length = 1 Then + data = dr(0)("설명").ToString() + End If + Case "공조냉방생산기기" + Dim dr() As DataRow = DSET1.tbl_nangbangkiki.Select("code='" + data + "'") + If dr.Length = 1 Then + data = dr(0)("설명").ToString() + End If + Case "공조난방생산기기" + Dim dr() As DataRow = DSET1.tbl_nanbangkiki.Select("code='" + data + "'") + If dr.Length = 1 Then + data = dr(0)("설명").ToString() + End If + Case "열생산급탕생산기기" + Dim dr() As DataRow = DSET1.tbl_nanbangkiki.Select("code='" + data + "'") + If dr.Length = 1 Then + data = dr(0)("설명").ToString() + End If + Case "열생산냉방생산기기" + Dim dr() As DataRow = DSET1.tbl_nangbangkiki.Select("code='" + data + "'") + If dr.Length = 1 Then + data = dr(0)("설명").ToString() + End If + Case "열생산가습생산기기" + Dim dr() As DataRow = DSET1.tbl_nanbangkiki.Select("code='" + data + "'") + If dr.Length = 1 Then + data = dr(0)("설명").ToString() + End If + Case "냉난방공조분배시스템" + Dim dr() As DataRow = DSET1.tbl_kongjo.Select("code='" + data + "'") + If dr.Length = 1 Then + data = dr(0)("설명").ToString() + End If + Case "냉방분배시스템" + Dim dr() As DataRow = DSET1.tbl_nbunbae.Select("code='" + data + "'") + If dr.Length = 1 Then + data = dr(0)("설명").ToString() + End If + + + End Select + End If + + buffer.Append("," + data.Replace(",", "")) + Next + buffer.AppendLine() + Next + + System.IO.File.WriteAllText(fi.FullName, buffer.ToString(), System.Text.Encoding.Default) + Next + ' FpSpread1.Visible = True + + If (Not silent) Then + MsgBox("완료") + Shell("explorer " + di.FullName, AppWinStyle.NormalFocus) + End If + + + End Sub + + + Private Sub Frm_Upload_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load + + + End Sub + + Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click + Dim fd As New FolderBrowserDialog + fd.SelectedPath = TextBox1.Text + If (fd.ShowDialog() = Windows.Forms.DialogResult.OK) Then + + Dim files() As String = System.IO.Directory.GetFiles(fd.SelectedPath, "*.tpl") + For Each filename As String In files + + MdiMain.Open_File(filename, False, False, True) + MakeData(fd.SelectedPath, True) + Next + + MsgBox(files.Length.ToString() + " 개 완료") + Shell("explorer " + fd.SelectedPath, AppWinStyle.NormalFocus) + End If + End Sub +End Class \ No newline at end of file diff --git a/ArinWarev1/Forms_Report/Frm_Upload.Designer.vb b/ArinWarev1/Forms_Report/Frm_Upload.Designer.vb new file mode 100644 index 0000000..c4da6df --- /dev/null +++ b/ArinWarev1/Forms_Report/Frm_Upload.Designer.vb @@ -0,0 +1,102 @@ + _ +Partial Class Frm_Upload + Inherits System.Windows.Forms.Form + + 'Form은 Dispose를 재정의하여 구성 요소 목록을 정리합니다. + _ + Protected Overrides Sub Dispose(ByVal disposing As Boolean) + Try + If disposing AndAlso components IsNot Nothing Then + components.Dispose() + End If + Finally + MyBase.Dispose(disposing) + End Try + End Sub + + 'Windows Form 디자이너에 필요합니다. + Private components As System.ComponentModel.IContainer + + '참고: 다음 프로시저는 Windows Form 디자이너에 필요합니다. + '수정하려면 Windows Form 디자이너를 사용하십시오. + '코드 편집기를 사용하여 수정하지 마십시오. + _ + Private Sub InitializeComponent() + Me.FpSpread1 = New FarPoint.Win.Spread.FpSpread() + Me.FpSpread1_Sheet1 = New FarPoint.Win.Spread.SheetView() + Me.Panel1 = New System.Windows.Forms.Panel() + Me.Button2 = New System.Windows.Forms.Button() + Me.Button1 = New System.Windows.Forms.Button() + CType(Me.FpSpread1, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.FpSpread1_Sheet1, System.ComponentModel.ISupportInitialize).BeginInit() + Me.Panel1.SuspendLayout() + Me.SuspendLayout() + ' + 'FpSpread1 + ' + Me.FpSpread1.AccessibleDescription = "" + Me.FpSpread1.Dock = System.Windows.Forms.DockStyle.Fill + Me.FpSpread1.Location = New System.Drawing.Point(0, 49) + Me.FpSpread1.Name = "FpSpread1" + Me.FpSpread1.Sheets.AddRange(New FarPoint.Win.Spread.SheetView() {Me.FpSpread1_Sheet1}) + Me.FpSpread1.Size = New System.Drawing.Size(760, 596) + Me.FpSpread1.TabIndex = 0 + ' + 'FpSpread1_Sheet1 + ' + Me.FpSpread1_Sheet1.Reset() + Me.FpSpread1_Sheet1.SheetName = "Sheet1" + FpSpread1_Sheet1.ColumnCount = 5 + FpSpread1_Sheet1.RowCount = 1 + ' + 'Panel1 + ' + Me.Panel1.Controls.Add(Me.Button2) + Me.Panel1.Controls.Add(Me.Button1) + Me.Panel1.Dock = System.Windows.Forms.DockStyle.Top + Me.Panel1.Location = New System.Drawing.Point(0, 0) + Me.Panel1.Name = "Panel1" + Me.Panel1.Size = New System.Drawing.Size(760, 49) + Me.Panel1.TabIndex = 1 + ' + 'Button2 + ' + Me.Button2.Location = New System.Drawing.Point(149, 6) + Me.Button2.Name = "Button2" + Me.Button2.Size = New System.Drawing.Size(137, 38) + Me.Button2.TabIndex = 1 + Me.Button2.Text = "저장하기" + Me.Button2.UseVisualStyleBackColor = True + ' + 'Button1 + ' + Me.Button1.Location = New System.Drawing.Point(6, 6) + Me.Button1.Name = "Button1" + Me.Button1.Size = New System.Drawing.Size(137, 38) + Me.Button1.TabIndex = 0 + Me.Button1.Text = "새로고침" + Me.Button1.UseVisualStyleBackColor = True + ' + 'Frm_Upload + ' + Me.AutoScaleDimensions = New System.Drawing.SizeF(7.0!, 12.0!) + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font + Me.ClientSize = New System.Drawing.Size(760, 645) + Me.Controls.Add(Me.FpSpread1) + Me.Controls.Add(Me.Panel1) + Me.Name = "Frm_Upload" + Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen + Me.Text = "업로드자료" + Me.WindowState = System.Windows.Forms.FormWindowState.Minimized + CType(Me.FpSpread1, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.FpSpread1_Sheet1, System.ComponentModel.ISupportInitialize).EndInit() + Me.Panel1.ResumeLayout(False) + Me.ResumeLayout(False) + + End Sub + Friend WithEvents FpSpread1 As FarPoint.Win.Spread.FpSpread + Friend WithEvents FpSpread1_Sheet1 As FarPoint.Win.Spread.SheetView + Friend WithEvents Panel1 As System.Windows.Forms.Panel + Friend WithEvents Button1 As System.Windows.Forms.Button + Friend WithEvents Button2 As System.Windows.Forms.Button +End Class diff --git a/ArinWarev1/Forms_Report/Frm_Upload.resx b/ArinWarev1/Forms_Report/Frm_Upload.resx new file mode 100644 index 0000000..7277865 --- /dev/null +++ b/ArinWarev1/Forms_Report/Frm_Upload.resx @@ -0,0 +1,123 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + 17, 17 + + \ No newline at end of file diff --git a/ArinWarev1/Forms_Report/Frm_Upload.vb b/ArinWarev1/Forms_Report/Frm_Upload.vb new file mode 100644 index 0000000..e9aa673 --- /dev/null +++ b/ArinWarev1/Forms_Report/Frm_Upload.vb @@ -0,0 +1,1800 @@ +Public Class Frm_Upload + + Dim fn As String = "" + Public Sub New() + + ' 이 호출은 디자이너에 필요합니다. + InitializeComponent() + fn = "" + ' InitializeComponent() 호출 뒤에 초기화 코드를 추가하십시오. + + End Sub + Public Sub New(_file As String) + + ' 이 호출은 디자이너에 필요합니다. + InitializeComponent() + fn = _file + ' InitializeComponent() 호출 뒤에 초기화 코드를 추가하십시오. + + End Sub + Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click + LoadFile() + MakeData() + End Sub + + Private Sub LoadFile() + Dim fn As String = AppDomain.CurrentDomain.BaseDirectory + "\upload.xlsx" + If Not System.IO.File.Exists(fn) Then + MsgBox("업로드샘플파일(" + fn + ")가 존재하지 않습니다", MsgBoxStyle.Critical, "확인") + Return + End If + + Try + If Me.FpSpread1.OpenExcel(fn) Then + MakeData() + End If + Catch ex As Exception + MsgBox(ex.Message, MsgBoxStyle.Critical, "Error") + End Try + End Sub + + Private Sub MakeData() + '//결과데이터에서 자료를 추출하고 그 값을 넣는다 + Dim DataColumnIndex As Integer = 10 + Dim Row As Integer = 1 + Dim DsReport As New DSR + + + + '//건물개요 건물개요-공공기관 체크된 경우 '공공기관' 표시 - 160211 + Dim drDesc As DS.tbl_DescRow = DSET1.tbl_Desc.Rows(0) + FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = drDesc.buildm21 : Row += 1 '//대지면적 + FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = drDesc.buildm23 : Row += 1 '//연면적 + FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = drDesc.buildm22 : Row += 1 '//건축면적 + FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = drDesc.gujo : Row += 1 '//구조 + FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = String.Format("지하{0}층／지상{1}층", drDesc.builds1, drDesc.builds2) : Row += 1 '//건물규모 + + If drDesc.공공 = "1" Then '// + FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = "공공" : Row += 1 '//주체 + Else + FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = "민간" : Row += 1 '//주체 + End If + + + Dim 주거용 As Integer = CInt(drDesc.isjugo) + + '//에너지 요구량 + ' Result1.E요구량(0).면적당요구량 + Dim v1_1 As Double = Math.Round(Result1.E요구량(0).난방면적, 1) + Dim v1_2 As Double = Math.Round(Result1.E요구량(0).냉방면적, 1) + Dim v1_3 As Double = Math.Round(Result1.E요구량(0).급탕면적, 1) + Dim v1_4 As Double = Math.Round(Result1.E요구량(0).조명면적, 1) + Dim v1_s As Double = v1_1 + v1_2 + v1_3 + v1_4 + FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = v1_1.ToString("N1") : Row += 1 '//난방 + FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = v1_2.ToString("N1") : Row += 1 '//냉방 + FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = v1_3.ToString("N1") : Row += 1 '//급탕 + FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = v1_4.ToString("N1") : Row += 1 '//조명 + FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = "0" : Row += 1 '//환기 + FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = v1_s.ToString("N1") : Row += 1 '//환기 + + '//에너지 소요량 + Dim v2_1 As Double = Math.Round(Result1.E소요량(0).난방면적, 1) + Dim v2_2 As Double = Math.Round(Result1.E소요량(0).냉방면적, 1) + Dim v2_3 As Double = Math.Round(Result1.E소요량(0).급탕면적, 1) + Dim v2_4 As Double = Math.Round(Result1.E소요량(0).조명면적, 1) + Dim v2_5 As Double = Math.Round(Result1.E소요량(0).환기면적, 1) + Dim v2_s As Double = v2_1 + v2_2 + v2_3 + v2_4 + v2_5 + FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = v2_1.ToString("N1") : Row += 1 '//난방 + FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = v2_2.ToString("N1") : Row += 1 '//냉방 + FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = v2_3.ToString("N1") : Row += 1 '//급탕 + FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = v2_4.ToString("N1") : Row += 1 '//조명 + FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = v2_5.ToString("N1") : Row += 1 '//환기 + FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = v2_s.ToString("N1") : Row += 1 '//합계 + + '//1차에너지 소요량 + Dim v3_1 As Double = Math.Round(Result1.일차E소요량(0).난방면적, 1) + Dim v3_2 As Double = Math.Round(Result1.일차E소요량(0).냉방면적, 1) + Dim v3_3 As Double = Math.Round(Result1.일차E소요량(0).급탕면적, 1) + Dim v3_4 As Double = Math.Round(Result1.일차E소요량(0).조명면적, 1) + Dim v3_5 As Double = Math.Round(Result1.일차E소요량(0).환기면적, 1) + Dim v3_s As Double = v3_1 + v3_2 + v3_3 + v3_4 + v3_5 + FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = v3_1.ToString("N1") : Row += 1 '//난방 + FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = v3_2.ToString("N1") : Row += 1 '//냉방 + FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = v3_3.ToString("N1") : Row += 1 '//급탕 + FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = v3_4.ToString("N1") : Row += 1 '//조명 + FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = v3_5.ToString("N1") : Row += 1 '//환기 + FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = v3_s.ToString("N1") : Row += 1 '//환기 + + Dim 합계 As Decimal = 0 + '//등급용1차에너지 + Dim 일차에너지소요량합계 As Decimal = 0 '//등급계산에서 사용함 + Dim 난방에너지, 냉방에너지, 급탕에너지, 조명에너지, 환기에너지 As Single + If (Result1.사용면적.H_WF = 0) Then + 난방에너지 = 0 + Else + 난방에너지 = Math.Round(Result1.일차E소요량(0).난방면적2 * Result1.사용면적.H / Result1.사용면적.H_WF, 1) + End If + If (Result1.사용면적.C_WF = 0) Then + 냉방에너지 = 0 + Else + 냉방에너지 = Math.Round(TOSG(Result1.일차E소요량(0).냉방면적 * Result1.사용면적.C / Result1.사용면적.C_WF), 1) + End If + If (Result1.사용면적.W_WF = 0) Then + 급탕에너지 = 0 + Else + 급탕에너지 = Math.Round(Result1.일차E소요량(0).급탕면적2 * Result1.사용면적.W / Result1.사용면적.W_WF, 1) + End If + If (Result1.사용면적.L_WF = 0) Then + 조명에너지 = 0 + Else + 조명에너지 = Math.Round(Result1.일차E소요량(0).조명면적 * Result1.사용면적.L / Result1.사용면적.L_WF, 1) + End If + If (Result1.사용면적.V_WF = 0) Then + 환기에너지 = 0 + Else + 환기에너지 = Math.Round(Result1.일차E소요량(0).환기면적 * Result1.사용면적.V / Result1.사용면적.V_WF, 1) + End If + 일차에너지소요량합계 = 냉방에너지 + 난방에너지 + 급탕에너지 + 조명에너지 + 환기에너지 + + FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = 난방에너지.ToString : Row += 1 '//난방 + FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = 냉방에너지.ToString : Row += 1 '//냉방 + FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = 급탕에너지.ToString : Row += 1 '//급탕 + FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = 조명에너지.ToString : Row += 1 '//조명 + FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = 환기에너지.ToString : Row += 1 '//환기 + 합계 = 난방에너지 + 냉방에너지 + 급탕에너지 + 조명에너지 + 환기에너지 + FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = 합계.ToString("N1") : Row += 1 '//환기 + + + '//연간 CO2발생량 + Dim StartCode As Integer = 76 + Dim CO2_1, CO2_2, CO2_3, CO2_4, CO2_5 As Decimal + CO2_1 = Math.Round(RData("410", StartCode + 0), 1) + CO2_2 = Math.Round(RData("410", StartCode + 7), 1) + CO2_3 = Math.Round(RData("410", StartCode + 15), 1) + CO2_4 = Math.Round(RData("410", StartCode + 22), 1) + CO2_5 = Math.Round(RData("410", StartCode + 25), 1) + + FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = CO2_1.ToString : Row += 1 '//난방 + FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = CO2_2.ToString : Row += 1 '//냉방 + FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = CO2_3.ToString : Row += 1 '//급탕 + FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = CO2_4.ToString : Row += 1 '//조명 + FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = CO2_5.ToString : Row += 1 '//환기 + 합계 = CO2_1 + CO2_2 + CO2_3 + CO2_4 + CO2_5 + FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = 합계.ToString() : Row += 1 '//환기 + + '//단위면적당 CO2발생량 + CO2_1 = Math.Round(RData("410", StartCode + 6), 1) + CO2_2 = Math.Round(RData("410", StartCode + 14), 1) + CO2_3 = Math.Round(RData("410", StartCode + 21), 1) + CO2_4 = Math.Round(RData("410", StartCode + 24), 1) + CO2_5 = Math.Round(RData("410", StartCode + 27), 1) + FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = CO2_1.ToString : Row += 1 '//난방 + FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = CO2_2.ToString : Row += 1 '//냉방 + FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = CO2_3.ToString : Row += 1 '//급탕 + FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = CO2_4.ToString : Row += 1 '//조명 + FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = CO2_5.ToString : Row += 1 '//환기 + 합계 = CO2_1 + CO2_2 + CO2_3 + CO2_4 + CO2_5 + FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = 합계.ToString() : Row += 1 '//환기 + + '//평가결과값(report_pyonga 에서 가져옴) + 항목별평가결과(DsReport) + If DsReport.Pyonga_YK.Rows.Count < 1 Then + MsgBox("구조체값이 생성되지 않았습니다", MsgBoxStyle.Critical, "확인") + Return + End If + Dim drYK As DSR.Pyonga_YKRow = DsReport.Pyonga_YK.Rows(0) + + '//구조체 + FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = drYK.벽체종류 : Row += 1 '//난방 + FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = drYK.벽체값.ToString("N3") : Row += 1 '//냉방 + FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = drYK.지붕종류 : Row += 1 '//급탕 + FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = drYK.지붕값.ToString("N3") : Row += 1 '//조명 + FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = drYK.바닥종류 : Row += 1 '//환기 + FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = drYK.바닥값.ToString("N3") : Row += 1 '//환기 + FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = drYK.창호종류 : Row += 1 '//환기 + FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = drYK.창호값.ToString("N3") : Row += 1 '//환기 + + '//창면적비 9개(?) + Dim 창및문면적비, 외벽열관류율 As Decimal + Dim 외벽열관류율_남 As Decimal + Dim 외벽열관류율_남동 As Decimal + Dim 외벽열관류율_동 As Decimal + Dim 외벽열관류율_북동 As Decimal + Dim 외벽열관류율_북 As Decimal + Dim 외벽열관류율_북서 As Decimal + Dim 외벽열관류율_서 As Decimal + Dim 외벽열관류율_남서 As Decimal + + calc_창및문면적비(창및문면적비, 외벽열관류율) + FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = 창및문면적비.ToString("N2") : Row += 1 '//난방 + calc_창및문면적비(창및문면적비, 외벽열관류율_남, "남") + FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = 창및문면적비.ToString("N2") : Row += 1 '//냉방 + calc_창및문면적비(창및문면적비, 외벽열관류율_남동, "남동") + FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = 창및문면적비.ToString("N2") : Row += 1 '//급탕 + calc_창및문면적비(창및문면적비, 외벽열관류율_동, "동") + FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = 창및문면적비.ToString("N2") : Row += 1 '//조명 + calc_창및문면적비(창및문면적비, 외벽열관류율_북동, "북동") + FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = 창및문면적비.ToString("N2") : Row += 1 '//환기 + calc_창및문면적비(창및문면적비, 외벽열관류율_북, "북") + FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = 창및문면적비.ToString("N2") : Row += 1 '//환기 + calc_창및문면적비(창및문면적비, 외벽열관류율_북서, "북서") + FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = 창및문면적비.ToString("N2") : Row += 1 '//환기 + calc_창및문면적비(창및문면적비, 외벽열관류율_서, "서") + FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = 창및문면적비.ToString("N2") : Row += 1 '//환기 + calc_창및문면적비(창및문면적비, 외벽열관류율_남서, "남서") + FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = 창및문면적비.ToString("N2") : Row += 1 '//환기 + + '//평균열관류율 11개(?) + FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = 외벽열관류율.ToString("N3") : Row += 1 '//난방 + FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = 외벽열관류율_남.ToString("N3") : Row += 1 '//냉방 + FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = 외벽열관류율_남동.ToString("N3") : Row += 1 '//급탕 + FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = 외벽열관류율_동.ToString("N3") : Row += 1 '//조명 + FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = 외벽열관류율_북동.ToString("N3") : Row += 1 '//환기 + FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = 외벽열관류율_북.ToString("N3") : Row += 1 '//환기 + FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = 외벽열관류율_북서.ToString("N3") : Row += 1 '//환기 + FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = 외벽열관류율_서.ToString("N3") : Row += 1 '//환기 + FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = 외벽열관류율_남서.ToString("N3") : Row += 1 '//환기 + + '//외벽지붕(평균열관류율) + FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = calc_평균열관류율(New String() {"외벽(지붕)", "내벽(지붕)"}).ToString("N3") : Row += 1 '//환기 + '//외벽바닥(평균열관류율) + FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = calc_평균열관류율(New String() {"외벽(바닥)", "내벽(바닥)"}).ToString("N3") : Row += 1 '//환기 + + '//기밀성능(주거용 본인증) + Dim 기밀성능_침기율면적합 As Decimal = 0 + Dim 기밀성능_면적합 As Decimal = 0 + For Each drZOne As DS.tbl_zoneRow In DSET1.tbl_zone.Select("code <> '0'") + + '//입력존수값이 없는것은 기본값 1로 처리를 한다 + If String.IsNullOrWhiteSpace(drZOne.입력존의수) Then drZOne.입력존의수 = "1" + If Not IsNumeric(drZOne.입력존의수) Then drZOne.입력존의수 = "1" + Dim 존수 As Integer = TOSG(drZOne.입력존의수) + If 존수 < 1 Then Continue For + If Not IsNumeric(drZOne.면적) Then drZOne.면적 = "0" + If CInt(drZOne.면적) = 0 Then + MsgBox("입력존(" + drZOne.설명 + ") 의 면적이 입력되지 않았습니다", MsgBoxStyle.Critical, "확인") + Continue For + End If + + 기밀성능_면적합 += (존수 * drZOne.면적) + 기밀성능_침기율면적합 += (drZOne.침기율 * (존수 * drZOne.면적)) + Next + Dim 기밀성능 As Decimal = 0 + If 기밀성능_면적합 <> 0 Then 기밀성능 = 기밀성능_침기율면적합 / 기밀성능_면적합 + FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = 기밀성능.ToString("N2") : Row += 1 '//환기 + + '//용도프로필 (tbl_profile, tbl_zone , zone에서 profile 을 연결함 필드명은 프로필 + Dim 면적_총합 As Decimal = 0 + Dim 면적_소규모사무실 As Decimal = 0 + Dim 면적_대규모사무실 As Decimal = 0 + Dim 면적_회의및세미나실 As Decimal = 0 + Dim 면적_강당 As Decimal = 0 + Dim 면적_구내식당 As Decimal = 0 + Dim 면적_화장실 As Decimal = 0 + Dim 면적_그외체류공간 As Decimal = 0 + Dim 면적_부속공간 As Decimal = 0 + Dim 면적_창고설비문서실 As Decimal = 0 + Dim 면적_전산실 As Decimal = 0 + Dim 면적_주방및조리실 As Decimal = 0 + Dim 면적_병실 As Decimal = 0 + Dim 면적_객실 As Decimal = 0 + Dim 면적_교실 As Decimal = 0 + Dim 면적_강의실 As Decimal = 0 + Dim 면적_매장 As Decimal = 0 + Dim 면적_전시실 As Decimal = 0 + Dim 면적_열람실 As Decimal = 0 + Dim 면적_체육시설 As Decimal = 0 + '''''''''''''''''''''''''''''''''''''' + Dim 비중_소규모사무실 As Decimal = 0 '//0001 + Dim 비중_대규모사무실 As Decimal = 0 '//0002 + Dim 비중_회의및세미나실 As Decimal = 0 '//0003 + Dim 비중_강당 As Decimal = 0 '//0004 + Dim 비중_구내식당 As Decimal = 0 '//0005 + Dim 비중_화장실 As Decimal = 0 '//0006 + Dim 비중_그외체류공간 As Decimal = 0 '//0007 + Dim 비중_부속공간 As Decimal = 0 '//0008 + Dim 비중_창고설비문서실 As Decimal = 0 '//0009 + Dim 비중_전산실 As Decimal = 0 '//0010 + Dim 비중_주방및조리실 As Decimal = 0 '//0011 + Dim 비중_병실 As Decimal = 0 '//0012 + Dim 비중_객실 As Decimal = 0 '//0013 + Dim 비중_교실 As Decimal = 0 '//0014 + Dim 비중_강의실 As Decimal = 0 '//0015 + Dim 비중_매장 As Decimal = 0 '//0016 + Dim 비중_전시실 As Decimal = 0 '//0017 + Dim 비중_열람실 As Decimal = 0 '//0018 + Dim 비중_체육시설 As Decimal = 0 '//0019 + + Dim 면적 As Decimal = 0 + For Each drzone As DS.tbl_zoneRow In DSET1.tbl_zone.Select("code <> '0' and 프로필 <> '' and 면적 <> '0' and 면적 <> '' ") + If Not IsNumeric(drzone.면적) Then drzone.면적 = "0" + + + Dim 존수 As Integer = 0 + If IsNumeric(drzone.입력존의수) Then + 존수 = CInt(drzone.입력존의수) + Else + 존수 = 1 + End If + If IsNumeric(drzone.면적) Then + 면적 = drzone.면적 * 존수 + Else + 면적 = 0 + End If + + 면적_총합 += 면적 + + If drzone.프로필 = "0001" Then 면적_소규모사무실 += 면적 '//0001 + If drzone.프로필 = "0002" Then 면적_대규모사무실 += 면적 '//0002 + If drzone.프로필 = "0003" Then 면적_회의및세미나실 += 면적 '//0003 + If drzone.프로필 = "0004" Then 면적_강당 += 면적 '//0004 + If drzone.프로필 = "0005" Then 면적_구내식당 += 면적 '//0005 + If drzone.프로필 = "0006" Then 면적_화장실 += 면적 '//0006 + If drzone.프로필 = "0007" Then 면적_그외체류공간 += 면적 '//0007 + If drzone.프로필 = "0008" Then 면적_부속공간 += 면적 '//0008 + If drzone.프로필 = "0009" Then 면적_창고설비문서실 += 면적 '//0009 + If drzone.프로필 = "0010" Then 면적_전산실 += 면적 '//0010 + If drzone.프로필 = "0011" Then 면적_주방및조리실 += 면적 '//0011 + If drzone.프로필 = "0012" Then 면적_병실 += 면적 '//0012 + If drzone.프로필 = "0013" Then 면적_객실 += 면적 '//0013 + If drzone.프로필 = "0014" Then 면적_교실 += 면적 '//0014 + If drzone.프로필 = "0015" Then 면적_강의실 += 면적 '//0015 + If drzone.프로필 = "0016" Then 면적_매장 += 면적 '//0016 + If drzone.프로필 = "0017" Then 면적_전시실 += 면적 '//0017 + If drzone.프로필 = "0018" Then 면적_열람실 += 면적 '//0018 + If drzone.프로필 = "0019" Then 면적_체육시설 += 면적 '//0019 + + Next + + 비중_소규모사무실 = (면적_소규모사무실 / 면적_총합) * 100 '//0001 + 비중_대규모사무실 = (면적_대규모사무실 / 면적_총합) * 100 '//0002 + 비중_회의및세미나실 = (면적_회의및세미나실 / 면적_총합) * 100 '//0003 + 비중_강당 = (면적_강당 / 면적_총합) * 100 '//0004 + 비중_구내식당 = (면적_구내식당 / 면적_총합) * 100 '//0005 + 비중_화장실 = (면적_화장실 / 면적_총합) * 100 '//0006 + 비중_그외체류공간 = (면적_그외체류공간 / 면적_총합) * 100 '//0007 + 비중_부속공간 = (면적_부속공간 / 면적_총합) * 100 '//0008 + 비중_창고설비문서실 = (면적_창고설비문서실 / 면적_총합) * 100 '//0009 + 비중_전산실 = (면적_전산실 / 면적_총합) * 100 '//0010 + 비중_주방및조리실 = (면적_주방및조리실 / 면적_총합) * 100 '//0011 + 비중_병실 = (면적_병실 / 면적_총합) * 100 '//0012 + 비중_객실 = (면적_객실 / 면적_총합) * 100 '//0013 + 비중_교실 = (면적_교실 / 면적_총합) * 100 '//0014 + 비중_강의실 = (면적_강의실 / 면적_총합) * 100 '//0015 + 비중_매장 = (면적_매장 / 면적_총합) * 100 '//0016 + 비중_전시실 = (면적_전시실 / 면적_총합) * 100 '//0017 + 비중_열람실 = (면적_열람실 / 면적_총합) * 100 '//0018 + 비중_체육시설 = (면적_체육시설 / 면적_총합) * 100 '//0019 + + FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = 면적_소규모사무실.ToString("N2") : Row += 1 '//난방 + FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = 비중_소규모사무실.ToString("N2") : Row += 1 '//냉방 + FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = 면적_대규모사무실.ToString("N2") : Row += 1 '//난방 + FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = 비중_대규모사무실.ToString("N2") : Row += 1 '//냉방 + FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = 면적_회의및세미나실.ToString("N2") : Row += 1 '//난방 + FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = 비중_회의및세미나실.ToString("N2") : Row += 1 '//냉방 + FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = 면적_강당.ToString("N2") : Row += 1 '//난방 + FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = 비중_강당.ToString("N2") : Row += 1 '//냉방 + FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = 면적_구내식당.ToString("N2") : Row += 1 '//난방 + FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = 비중_구내식당.ToString("N2") : Row += 1 '//냉방 + FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = 면적_화장실.ToString("N2") : Row += 1 '//난방 + FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = 비중_화장실.ToString("N2") : Row += 1 '//냉방 + FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = 면적_그외체류공간.ToString("N2") : Row += 1 '//난방 + FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = 비중_그외체류공간.ToString("N2") : Row += 1 '//냉방 + FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = 면적_부속공간.ToString("N2") : Row += 1 '//난방 + FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = 비중_부속공간.ToString("N2") : Row += 1 '//냉방 + FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = 면적_창고설비문서실.ToString("N2") : Row += 1 '//난방 + FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = 비중_창고설비문서실.ToString("N2") : Row += 1 '//냉방 + FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = 면적_전산실.ToString("N2") : Row += 1 '//난방 + FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = 비중_전산실.ToString("N2") : Row += 1 '//냉방 + FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = 면적_주방및조리실.ToString("N2") : Row += 1 '//난방 + FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = 비중_주방및조리실.ToString("N2") : Row += 1 '//냉방 + FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = 면적_병실.ToString("N2") : Row += 1 '//난방 + FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = 비중_병실.ToString("N2") : Row += 1 '//냉방 + FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = 면적_객실.ToString("N2") : Row += 1 '//난방 + FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = 비중_객실.ToString("N2") : Row += 1 '//냉방 + FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = 면적_교실.ToString("N2") : Row += 1 '//난방 + FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = 비중_교실.ToString("N2") : Row += 1 '//냉방 + FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = 면적_강의실.ToString("N2") : Row += 1 '//난방 + FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = 비중_강의실.ToString("N2") : Row += 1 '//난방 + FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = 면적_매장.ToString("N2") : Row += 1 '//냉방 + FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = 비중_매장.ToString("N2") : Row += 1 '//냉방 + FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = 면적_전시실.ToString("N2") : Row += 1 '//냉방 + FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = 비중_전시실.ToString("N2") : Row += 1 '//냉방 + FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = 면적_열람실.ToString("N2") : Row += 1 '//냉방 + FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = 비중_열람실.ToString("N2") : Row += 1 '//냉방 + FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = 면적_체육시설.ToString("N2") : Row += 1 '//냉방 + FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = 비중_체육시설.ToString("N2") : Row += 1 '//냉방 + + '//기계부문평가항목-냉난방방식-난방 + ' Dim MaxValue As Decimal = 0 + 'Dim MaxValueTitle As String = "" + Dim 난방용량합 As Decimal = 0 + Dim 난방용량합_전기 As Decimal = 0 + Dim 난방용량합_비전기 As Decimal = 0 + Dim 난방용량비율_전기 As Decimal = 0 + Dim 난방용량비율_비전기 As Decimal = 0 + Dim 펌프동력합 As Decimal = 0 + Dim 냉난방방식_난방 As String = "" + For Each dr난방 As DS.tbl_nanbangkikiRow In DSET1.tbl_nanbangkiki.Select("code <> '0'") + Dim filter As String = String.Format("code <> '0' and 열생산난방생산기기='{0}' or 공조난방생산기기='{0}'", dr난방.code) + Dim 존수 As Integer = 0 + For Each dr존 As DS.tbl_zoneRow In DSET1.tbl_zone.Select(filter) + If Not IsNumeric(dr존.입력존의수) Then dr존.입력존의수 = "1" + 존수 += CInt(dr존.입력존의수) + Next + + If Not IsNumeric(dr난방.보일러정격출력) Then dr난방.보일러정격출력 = "0" + If Not IsNumeric(dr난방.열교환기정격출력) Then dr난방.열교환기정격출력 = "0" + If Not IsNumeric(dr난방.히트난방용량) Then dr난방.히트난방용량 = "0" + + + Dim 개별식형태 As Boolean = dr난방.개별기기적용 + If Not 개별식형태 AndAlso 존수 = 1 Then 개별식형태 = True '//입력존이 1이면 개별식형태로 한다 + + + If 냉난방방식_난방 = "" Then + 냉난방방식_난방 = IIf(개별식형태, "개별식", "중앙식") + ElseIf 냉난방방식_난방 = "개별식" AndAlso Not 개별식형태 Then + 냉난방방식_난방 = "혼합식" + ElseIf 냉난방방식_난방 = "중앙식" AndAlso 개별식형태 Then + 냉난방방식_난방 = "혼합식" + End If + + + Dim 최대값 As Decimal = 0 + If dr난방.개별기기적용 Then + + + + 최대값 = Math.Max(TOSG(dr난방.보일러정격출력), TOSG(dr난방.열교환기정격출력)) + 최대값 = Math.Max(최대값, TOSG(dr난방.히트난방용량)) + 최대값 *= 존수 + + 펌프동력합 += TOSG(dr난방.펌프동력) * 존수 + + If dr난방.열생산기기방식 = "히트펌프" Then + 난방용량합 += TOSG(dr난방.히트난방용량) * 존수 + If dr난방.히트연료 = "전기" Then 난방용량합_전기 += TOSG(dr난방.히트난방용량) * 존수 + ElseIf dr난방.열생산기기방식 = "전기보일러" Then + 난방용량합 += TOSG(dr난방.보일러정격출력) * 존수 + 난방용량합_전기 += TOSG(dr난방.보일러정격출력) * 존수 + ElseIf dr난방.열생산기기방식 = "지역난방" Then + 난방용량합 += TOSG(dr난방.열교환기정격출력) * 존수 + Else + 난방용량합 += 최대값 '//모를경우에는 해당값중 최대값을 사용함(임의처리함 arin) + End If + + Else + + + + + + 펌프동력합 += TOSG(dr난방.펌프동력) + + 최대값 = Math.Max(TOSG(dr난방.보일러정격출력), TOSG(dr난방.열교환기정격출력)) + + If dr난방.열생산기기방식 = "히트펌프" Then + 난방용량합 += TOSG(dr난방.히트난방용량) + If dr난방.히트연료 = "전기" Then 난방용량합_전기 += TOSG(dr난방.히트난방용량) + ElseIf dr난방.열생산기기방식 = "전기보일러" Then + 난방용량합 += TOSG(dr난방.보일러정격출력) + 난방용량합_전기 += TOSG(dr난방.보일러정격출력) + ElseIf dr난방.열생산기기방식 = "지역난방" Then + 난방용량합 += TOSG(dr난방.열교환기정격출력) + Else + 난방용량합 += 최대값 '//모를경우에는 해당값중 최대값을 사용함(임의처리함 arin) + End If + End If + 'If 최대값 > MaxValue Then + ' MaxValue = 최대값 + ' MaxValueTitle = dr난방.설명 + 'End If + Next + + 난방용량합_비전기 = 난방용량합 - 난방용량합_전기 + If 난방용량합 <> 0 Then + 난방용량비율_전기 = (난방용량합_전기 / 난방용량합) * 100 + 난방용량비율_비전기 = (난방용량합_비전기 / 난방용량합) * 100 + End If + + FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = 냉난방방식_난방 : Row += 1 '//난방 + + '//기계부문평가항목-냉난방방식-냉방 + 'MaxValue = 0 + 'MaxValueTitle = "" + Dim 냉방용량합 As Decimal = 0 + Dim 냉방용량합_전기 As Decimal = 0 + Dim 냉난방방식_냉방 As String = "" + For Each dr냉방 As DS.tbl_nangbangkikiRow In DSET1.tbl_nangbangkiki.Select("code <> '0'") + Dim filter As String = String.Format("열생산냉방생산기기='{0}' or 공조냉방생산기기='{0}'", dr냉방.code) + Dim 존수 As Integer = 0 + For Each dr존 As DS.tbl_zoneRow In DSET1.tbl_zone.Select(filter) + If Not IsNumeric(dr존.입력존의수) Then dr존.입력존의수 = "1" + 존수 += CInt(dr존.입력존의수) + Next + + If Not IsNumeric(dr냉방.냉동기용량) Then dr냉방.냉동기용량 = "0" + + Dim 개별식형태 As Boolean = dr냉방.개별기기적용 + If Not 개별식형태 AndAlso 존수 = 1 Then 개별식형태 = True '//입력존이 1이면 개별식형태로 한다 + + If 냉난방방식_냉방 = "" Then + 냉난방방식_냉방 = IIf(개별식형태, "개별식", "중앙식") + ElseIf 냉난방방식_냉방 = "개별식" AndAlso Not 개별식형태 Then + 냉난방방식_냉방 = "혼합식" + ElseIf 냉난방방식_냉방 = "중앙식" AndAlso 개별식형태 Then + 냉난방방식_냉방 = "혼합식" + End If + + + Dim 최대값 As Decimal = 0 + If dr냉방.개별기기적용 Then + 최대값 = TOSG(dr냉방.냉동기용량) * 존수 + 냉방용량합 += TOSG(dr냉방.냉동기용량) * 존수 + If dr냉방.냉동기방식 = "압축식" Then 냉방용량합_전기 += TOSG(dr냉방.냉동기용량) * 존수 + Else + 최대값 = TOSG(dr냉방.냉동기용량) + 냉방용량합 += TOSG(dr냉방.냉동기용량) + If dr냉방.냉동기방식 = "압축식" Then 냉방용량합_전기 += TOSG(dr냉방.냉동기용량) + End If + + 'If 최대값 > MaxValue Then + ' MaxValue = 최대값 + ' MaxValueTitle = dr냉방.설명 + 'End If + Next + Dim 냉방용량합_비전기 As Decimal = 냉방용량합 - 냉방용량합_전기 + + FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = 냉난방방식_냉방 : Row += 1 '//냉방 + + '//전력수요관리시설(냉방)-전기사용설비-용량합 % + FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = 냉방용량합_전기.ToString("N2") : Row += 1 + + '//전력수요관리시설(냉방)-전기사용설비-비중 % + Dim 전기사용설비비중 As Decimal = 0 + If 냉방용량합 <> 0 Then 전기사용설비비중 = (냉방용량합_전기 / 냉방용량합) * 100 + FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = 전기사용설비비중.ToString("N2") : Row += 1 + + '//전력수요관리시설(냉방)-비전기사용설비-용량 + FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = 냉방용량합_비전기.ToString("N2") : Row += 1 + '//전력수요관리시설(냉방)-비전기사용설비-비중 + Dim 비전기사용설비비중 As Decimal = 0 + If 냉방용량합 <> 0 Then 비전기사용설비비중 = (냉방용량합_비전기 / 냉방용량합) * 100 + FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = 비전기사용설비비중.ToString("N2") : Row += 1 + + '//전력수요관리시설(난방)-전기사용설비-용량 kw + FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = 난방용량합_전기.ToString("N2") : Row += 1 + '//전력수요관리시설(난방)-전기사용설비-비중 % + FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = 난방용량비율_전기.ToString("N2") : Row += 1 + '//전력수요관리시설(난방)-비전기사용설비-용량 + FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = 난방용량합_비전기.ToString("N2") : Row += 1 + '//전력수요관리시설(난방)-비전기사용설비-비중 + FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = 난방용량비율_비전기.ToString("N2") : Row += 1 + + '/온열월설비-난방방식 + FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = drYK.온열원설비방식 : Row += 1 + FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = drYK.온열원설비연료 : Row += 1 '/온열월설비-사용연료 + FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = drYK.온열원용량 : Row += 1 '/온열월설비-용량 + FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = drYK.온열원효율 : Row += 1 '/온열월설비-효율 + + '/냉열원설비-냉방방식 + FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = drYK.냉열원설비방식 : Row += 1 + FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = drYK.냉열원설비연료 : Row += 1 '/냉열원설비-사용연료 + '//냉열원설비용량 160214 + Dim 냉열원설비용량 As Decimal = 0 + For Each dr냉방 As DS.tbl_nangbangkikiRow In DSET1.tbl_nangbangkiki.Select("code <> '0'") + If Not IsNumeric(dr냉방.냉동기용량) Then dr냉방.냉동기용량 = "0" + + If Not dr냉방.개별기기적용 Then + 냉열원설비용량 += dr냉방.냉동기용량 + Else + Dim filter As String = String.Format("열생산냉방생산기기='{0}' or 공조냉방생산기기='{0}'", dr냉방.code) + Dim DR() As DS.tbl_zoneRow = DSET1.tbl_zone.Select(filter) + Dim cnt As Integer = 0 + For Each drow As DS.tbl_zoneRow In DR + Dim 입력존수문자 As Integer = drow.입력존의수 + If IsNumeric(입력존수문자) = False Then 입력존수문자 = "1" + cnt += CInt(입력존수문자) + Next + 냉열원설비용량 += (dr냉방.냉동기용량 * cnt) + End If + Next + FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = 냉열원설비용량 : Row += 1 '/냉열원설비-용량 + FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = drYK.냉열원효율 : Row += 1 '/냉열원설비-효율 + + '//급탕설비-급탕방식 + FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = drYK.급탕설비방식 : Row += 1 + FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = drYK.급탕설비연료 : Row += 1 '//급탕설비-사용연료 + FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = drYK.급탕용량 : Row += 1 '//급탕설비-용량 + FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = drYK.급탕효율 : Row += 1 '//급탕설비-효율 + + '//펌프-순환수용-동력 + FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = 펌프동력합.ToString("N2") : Row += 1 + + '//펌프-순환수용-효율(eco2 미지원) + FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = "X" : Row += 1 + + '//펌프-급탕용-동력 + Dim dr난방기기() As DS.tbl_nanbangkikiRow = DSET1.tbl_nanbangkiki.Select("code <> '0' and code <> '0000'") + Dim 펌프_급탕용_동력합 As Decimal = 0.0F + For Each dr난방 As DS.tbl_nanbangkikiRow In dr난방기기 + Dim 연결존수 As Integer = 0 + Dim DRZ() As DS.tbl_zoneRow = DSET1.tbl_zone.Select("code <> '0' and 열생산급탕생산기기='" & dr난방.code & "'") + For Each drow As DS.tbl_zoneRow In DRZ + Dim 입력존수문자 As Integer = drow.입력존의수 + If IsNumeric(입력존수문자) = False Then 입력존수문자 = "1" + 연결존수 += CInt(입력존수문자) + Next + If 연결존수 > 0 Then + If Not IsNumeric(dr난방.펌프동력급탕) Then dr난방.펌프동력급탕 = "0" + 펌프_급탕용_동력합 += TOSG(dr난방.펌프동력급탕) + End If + Next + FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = 펌프_급탕용_동력합 : Row += 1 + '//펌프-급탕용-효율(eco2 미지원) + FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = "X" : Row += 1 + + '//송풍기관련로직(160211) + Dim filter2 As String = "code <> '0' and code <> '0000' and ( 열교환기유형 = '전열교환' or 열교환기유형='현열교환' or 열교환기유형 = '열회수불가')" + filter2 = "code <> '0' and code <> '0000'" + Dim dr공조기기() As DS.tbl_kongjoRow = DSET1.tbl_kongjo.Select(filter2) + Dim 송풍기_급기_풍량_합 As Decimal = 0 + Dim 송풍기_급기_팬동력_합 As Decimal = 0 + Dim 송풍기_급기_팬효율_평균 As Decimal = 0 + Dim 송풍기_급기_팬효율_합 As Decimal = 0 + Dim 송풍기_배기_풍량_합 As Decimal = 0 + Dim 송풍기_배기_팬동력_합 As Decimal = 0 + Dim 송풍기_배기_팬효율_평균 As Decimal = 0 + Dim 송풍기_배기_팬효율_합 As Decimal = 0 + Dim 전열교환기_풍량_합 As Decimal = 0 + Dim 전열교환기_전열풍량_합 As Decimal = 0 + Dim 전열교환기_열회수효율_난방_합 As Decimal = 0 + Dim 전열교환기_열회수효율_냉방_합 As Decimal = 0 + Dim 전열교환기_열회수효율_난방_수 As Integer = 0 + Dim 전열교환기_열회수효율_냉방_수 As Integer = 0 + + 'Dim 송풍기연결면적합 As Decimal = 0 '//전체면적합 + + '//160327 로직변경 + For Each dr공조 As DS.tbl_kongjoRow In dr공조기기 + + + Dim 연결존수 As Integer = 0 + Dim DRz() As DS.tbl_zoneRow = DSET1.tbl_zone.Select("냉난방공조처리시스템='" & dr공조.code & "'") + If DRz.Length < 1 Then Continue For '//연결이되지 않은 기기는 넘어가도록 한다 + + For Each drow As DS.tbl_zoneRow In DRz + If Not IsNumeric(drow.입력존의수) Then drow.입력존의수 = "0" + If Not IsNumeric(drow.면적) Then drow.면적 = "0" + 연결존수 += CInt(drow.입력존의수) + '송풍기연결면적합 += (TOSG(drow.면적) * TOSG(drow.입력존의수)) + Next + + '//연결된 존중 입력존의수값이 0이라면 처리하지 않는다 + If 연결존수 < 1 Then Continue For + + '//160327 - 열교환기유형에따라서 계산식 변경 + If dr공조.열교환기유형 = "열회수불가" Then + + '//송풍기 + 송풍기_급기_풍량_합 += TOSG(dr공조.급기풍량) + 송풍기_급기_팬동력_합 += TOSG(dr공조.급기팬동력) + If TOSG(dr공조.총효율급기팬) > 0 Then + 송풍기_급기_팬효율_합 += TOSG(dr공조.총효율급기팬) * TOSG(dr공조.급기풍량) + End If + + 송풍기_배기_풍량_합 += TOSG(dr공조.배기풍량) + 송풍기_배기_팬동력_합 += TOSG(dr공조.배기팬동력) + If TOSG(dr공조.총효율배기팬) > 0 Then + 송풍기_배기_팬효율_합 += TOSG(dr공조.총효율배기팬) * TOSG(dr공조.배기풍량) + End If + + Else + + '//전열교환기 + If TOSG(dr공조.열회수율) <> 0 Then + 전열교환기_열회수효율_난방_합 += TOSG(dr공조.열회수율) + 전열교환기_열회수효율_난방_수 += 1 + End If + + If TOSG(dr공조.열회수율냉) <> 0 Then + 전열교환기_열회수효율_냉방_합 += TOSG(dr공조.열회수율냉) + 전열교환기_열회수효율_냉방_수 += 1 + End If + + 전열교환기_풍량_합 += TOSG(dr공조.급기풍량) + TOSG(dr공조.배기풍량) + + If dr공조.열교환기유형 = "전열교환" Then + 전열교환기_전열풍량_합 += TOSG(dr공조.급기풍량) + TOSG(dr공조.배기풍량) + End If + + End If + Next + + If 송풍기_급기_풍량_합 > 0 Then + 송풍기_급기_팬효율_평균 = 송풍기_급기_팬효율_합 / 송풍기_급기_풍량_합 + End If + If 송풍기_배기_풍량_합 > 0 Then + 송풍기_배기_팬효율_평균 = 송풍기_배기_팬효율_합 / 송풍기_배기_풍량_합 + End If + + + '//송풍기-급기-풍량 + FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = 송풍기_급기_풍량_합 : Row += 1 + '//송풍기-급기-동력 + FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = 송풍기_급기_팬동력_합 : Row += 1 + '//송풍기-급기-효율 + FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = 송풍기_급기_팬효율_평균.ToString("N3") : Row += 1 + + '//송풍기-배기-풍량 + FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = 송풍기_배기_풍량_합 : Row += 1 + '//송풍기-배기-동력 + FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = 송풍기_배기_팬동력_합 : Row += 1 + '//송풍기-배기-효율 + FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = 송풍기_배기_팬효율_평균.ToString("N3") : Row += 1 + + '//전열교환기-풍량 + FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = 전열교환기_풍량_합 : Row += 1 + '//전열교환기-비중 + Dim 전열교환기비중 As Decimal = 0 + If 전열교환기_풍량_합 > 0 Then 전열교환기비중 = (전열교환기_풍량_합 / (전열교환기_풍량_합 + 송풍기_배기_풍량_합 + 송풍기_급기_풍량_합)) * 100 + FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = 전열교환기비중.ToString("N3") + "%" : Row += 1 + '//전열교환기-열회수효율-난방 + Dim 전열교환기_열회수효율_난방_평균 As Decimal = 0 + If 전열교환기_열회수효율_난방_수 > 0 Then 전열교환기_열회수효율_난방_평균 = 전열교환기_열회수효율_난방_합 / 전열교환기_열회수효율_난방_수 + FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = 전열교환기_열회수효율_난방_평균 : Row += 1 + '//전열교환기-열회수효율-냉방 + Dim 전열교환기_열회수효율_냉방_평균 As Decimal = 0 + If 전열교환기_열회수효율_냉방_수 > 0 Then 전열교환기_열회수효율_냉방_평균 = 전열교환기_열회수효율_냉방_합 / 전열교환기_열회수효율_냉방_수 + FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = 전열교환기_열회수효율_냉방_평균 : Row += 1 + + '//조명에너지-평균조명에너지부하율 + Dim 조명에너지_부하율합 As Decimal = 0 + Dim 조명에너지_면적합 As Decimal = 0 + For Each drZone As DS.tbl_zoneRow In DSET1.tbl_zone.Select("code <> '0' and code <>'0000' and 면적 <> '0' and 면적 <> ''") + + '//입력오류 체크 + If Not IsNumeric(drZone.면적) Then drZone.면적 = "0" + If Not IsNumeric(drZone.입력존의수) Then drZone.입력존의수 = "1" + If Not IsNumeric(drZone.조명에너지부하율입력치) Then drZone.조명에너지부하율입력치 = "0" + If Not IsNumeric(drZone.조명에너지부하율계산치) Then drZone.조명에너지부하율계산치 = "0" + + If drZone.면적 <> "0" Then + 조명에너지_면적합 += CInt(drZone.입력존의수) * TOSG(drZone.면적) '//모든면적의총합 + + If drZone.조명부하산출방법 = "입력치" Then + 조명에너지_부하율합 += TOSG(drZone.조명에너지부하율입력치) * (CInt(drZone.입력존의수) * TOSG(drZone.면적)) + ElseIf drZone.조명부하산출방법 = "계산치" Then + 조명에너지_부하율합 += TOSG(drZone.조명에너지부하율계산치) * (CInt(drZone.입력존의수) * TOSG(drZone.면적)) + End If + End If + + + Next + Dim 평균조명에너지부하율 As Decimal = 0 + If 조명에너지_면적합 <> 0 Then 평균조명에너지부하율 = (조명에너지_부하율합 / 조명에너지_면적합) + + FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = 평균조명에너지부하율.ToString("N2") : Row += 1 + '//조명에너지-주조명광원 + FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = drYK.주조명광원 : Row += 1 + + '//태양열-난방-용량 + Dim 난방축열탱크용량_합 As Decimal = 0 + Dim 급탕축열탱크용량_합 As Decimal = 0 + Dim 태영열면적_합 As Decimal = 0 + Dim 태양열계수_합 As Decimal = 0 + Dim 태양광모듈효율_합 As Decimal = 0 + Dim 태양광면적_합 As Decimal = 0 + Dim 태양광용량_합 As Decimal = 0 + For Each dr신재생 As DS.tbl_newRow In DSET1.tbl_new.Select("code <> '0'") + If dr신재생.기기종류 = "태양열" Then + If Not IsNumeric(dr신재생.축열탱크체적급탕) Then dr신재생.축열탱크체적급탕 = "0" + If Not IsNumeric(dr신재생.축열탱크체적난방) Then dr신재생.축열탱크체적난방 = "0" + If Not IsNumeric(dr신재생.집열판면적) Then dr신재생.집열판면적 = "0" + If Not IsNumeric(dr신재생.무손실효율계수) Then dr신재생.무손실효율계수 = "0" + 급탕축열탱크용량_합 += dr신재생.축열탱크체적급탕 + 난방축열탱크용량_합 += dr신재생.축열탱크체적난방 + If dr신재생.무손실효율계수 <> "0" Then + 태영열면적_합 += dr신재생.집열판면적 + 태양열계수_합 += (dr신재생.무손실효율계수 * dr신재생.집열판면적) + End If + ElseIf dr신재생.기기종류 = "태양광" Then + If Not IsNumeric(dr신재생.태양광모듈면적) Then dr신재생.태양광모듈면적 = "0" + If Not IsNumeric(dr신재생.태양광모듈효율) Then dr신재생.태양광모듈효율 = "0" + If Not IsNumeric(dr신재생.태양광용량) Then dr신재생.태양광용량 = "0" + 태양광용량_합 += dr신재생.태양광용량 + If dr신재생.태양광모듈효율 <> "0" Then + 태양광면적_합 += dr신재생.태양광모듈면적 + 태양광모듈효율_합 += (dr신재생.태양광모듈효율 * dr신재생.태양광모듈면적) + End If + End If + Next + FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = 난방축열탱크용량_합.ToString("N3") : Row += 1 + '//태양열-난방-효율 + Dim 태양열난방_효율 As Decimal = 0 + If 태영열면적_합 <> 0 Then 태양열난방_효율 = 태양열계수_합 / 태영열면적_합 + FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = 태양열난방_효율.ToString("N3") : Row += 1 + '//태양열-급탕-용량 + FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = 급탕축열탱크용량_합.ToString("N3") : Row += 1 + '//태양열-급탕-효율 + FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = "X" : Row += 1 + '//태양열-집열판면적 + FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = drYK.태양열집열판면적 : Row += 1 + '//태양열-집열판유형 + FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = drYK.태양열집열기유형 : Row += 1 + '//태양열-집열판방위 + FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = drYK.태양열집열판방위 : Row += 1 + + '//태양광-용량 + FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = 태양광용량_합.ToString("N3") : Row += 1 + '//태양광-효율 + Dim 태양광_효율 As Decimal = 0 + If 태양광면적_합 <> 0 Then 태양광_효율 = 태양광모듈효율_합 / 태양광면적_합 + FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = 태양광_효율.ToString("N3") : Row += 1 + '//태양광-모듈면적 + FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = drYK.태양광모듈면적 : Row += 1 + '//태양광-모듈기울기 + FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = drYK.태양광모듈기울기 : Row += 1 + '//태양광-모듈방위 + FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = drYK.태양광모듈방위 : Row += 1 + '//태양광-모듈종류 + FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = drYK.태양광모듈종류 : Row += 1 + '//태양광-모듈적용타입 + FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = drYK.태양광모듈적용타입 : Row += 1 + + '//지열-난방-용량 + FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = drYK.지열히트펌프용량 : Row += 1 + '//지열-난방-효율 + FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = drYK.지열난방COP : Row += 1 + '//지열-냉방-용량 + FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = drYK.지열히트펌프용량냉방 : Row += 1 + '//지열-냉방-효율 + FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = drYK.지열냉방COP : Row += 1 + + '//열병합-열생산능력 + FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = drYK.열병합열생산능력 : Row += 1 + '//열병합-열생산효율 + FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = drYK.열병합열생산효율 : Row += 1 + '//열병합-발전효율 + FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = drYK.열병합발전효율 : Row += 1 + '//열병합-가동연료 + FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = drYK.열병합가동연료 : Row += 1 + + '//신재생 및 열병합 에너지생산량 (68 69 70 71 2page 계산결과 treq, grp=310) + Dim 신재생에너지생산량합 As Decimal = 0 + Dim 신재생에너지생산량 As Decimal = 0 + For Each dr As DSR.TReqUseRow In DSETR1.TReqUse.Select("grp = '310'") + If dr.Code = "068" OrElse dr.Code = "069" OrElse dr.Code = "070" OrElse dr.Code = "071" Then + 신재생에너지생산량합 += dr.M00 + End If + Next + Dim 조명사용면적 As Decimal = 0 + For Each dr As DSR.TReqUseRow In DSETR1.TReqUse.Select("grp = '110'") + If dr.Code = "015" Then + 조명사용면적 += dr.M00 + Exit For + End If + Next + If 조명사용면적 <> 0 Then 신재생에너지생산량 = 신재생에너지생산량합 / 조명사용면적 + + FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = 신재생에너지생산량.ToString("N2") : Row += 1 + + '//평가책임자 + FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = "X" : Row += 1 + + '//평가자 + FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = "X" : Row += 1 + + '//에너지효율등급 + Dim 에너지효율등급 As Integer = 평가결과등급(주거용, 일차에너지소요량합계) + Dim 등급문자 As String = "" + Select Case 에너지효율등급 + Case 1 + 등급문자 = "1+++등급" + Case 2 + 등급문자 = "1++등급" + Case 3 + 등급문자 = "1+등급" + Case 4 + 등급문자 = "1등급" + Case 5 + 등급문자 = "2등급" + Case 6 + 등급문자 = "3등급" + Case 7 + 등급문자 = "4등급" + Case 8 + 등급문자 = "5등급" + Case 9 + 등급문자 = "6등급" + Case 10 + 등급문자 = "7등급" + End Select + + + FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = 등급문자 : Row += 1 + + '//예비인증 등급 + FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = "X" : Row += 1 + + '//냉방시스템설치여부(입력존에서 열생산기기 냉방에 연결된 데이터가 있다면 O) + Dim 냉방시스템설치여부 As Boolean = False + For Each drZone As DS.tbl_zoneRow In DSET1.tbl_zone.Select("code <> '0'") + If drZone.열생산냉방생산기기 <> "0" AndAlso drZone.열생산냉방생산기기.Length > 3 Then + 냉방시스템설치여부 = True + Exit For + End If + Next + FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = IIf(냉방시스템설치여부, "Y", "N") : Row += 1 + + '//신청지역 + Dim 지역코드 As String = drDesc.buildarea + Dim 지역명 As String = "" + If 지역코드 <> "0000" Then + Dim drWeather() As DS.tbl_weatherRow = DSET1.tbl_weather.Select("code='" + 지역코드 + "'") + If drWeather.Length = 1 Then 지역명 = drWeather(0).건물위치 + End If + + FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = 지역명 : Row += 1 + + '//자립률관련추가 170725 + '//170725 + Dim 단위면적당신재생1차에너지합 As Decimal = 0 + Dim 단위면적당1차에너소비량합 As Decimal = 0 + Dim 에너지자립률 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 난방 As Decimal = Sum * Result1.일차E소요량(0).난방전력 '//아마게산이안도잇으니 여기값들이 0이잇을거에요. + Dim 냉방 As Decimal = Sum * Result1.일차E소요량(0).냉방전력 + Dim 조명 As Decimal = Sum * Result1.일차E소요량(0).조명전력 + Dim 급탕 As Decimal = Sum * Result1.일차E소요량(0).급탕전력 + Dim 환기 As Decimal = Sum * Result1.일차E소요량(0).환기전력 + Dim 난방면적 As Decimal = 0 + Dim 냉방면적 As Decimal = 0 + Dim 조명면적 As Decimal = 0 + Dim 급탕면적 As Decimal = 0 + Dim 환기면적 As Decimal = 0 + If Result1.사용면적.H <> 0 Then + 난방면적 = TOSG(IIf(난방 = 0, 0, 난방 / Result1.사용면적.H)) + End If + If Result1.사용면적.C <> 0 Then + 냉방면적 = TOSG(IIf(냉방 = 0, 0, 냉방 / Result1.사용면적.C)) + End If + If Result1.사용면적.L <> 0 Then + 조명면적 = TOSG(IIf(조명 = 0, 0, 조명 / Result1.사용면적.L)) + End If + If Result1.사용면적.W <> 0 Then + 급탕면적 = TOSG(IIf(급탕 = 0, 0, 급탕 / Result1.사용면적.W)) + End If + If Result1.사용면적.V <> 0 Then + 환기면적 = TOSG(IIf(환기 = 0, 0, 환기 / Result1.사용면적.V)) + End If + + Dim 전기 As Decimal = 난방면적 + 냉방면적 + 조명면적 + 급탕면적 + 환기면적 + + '//열병합신재생에너지추가 130831 arin + Dim _자립_신재생에너지 As Single = -1 * (Result1.생산E(0).면적당생산량태양열 + Result1.생산E(0).신재생면적당열생산량 + Result1.생산E(0).면적당생산량지열 + 전기 * 2.75) + 난방에너지 = Math.Round(Result1.일차E소요량(0).난방면적, 1) + 냉방에너지 = Math.Round(Result1.일차E소요량(0).냉방면적, 1) + 급탕에너지 = Math.Round(Result1.일차E소요량(0).급탕면적, 1) + 조명에너지 = Math.Round(Result1.일차E소요량(0).조명면적, 1) + 환기에너지 = Math.Round(Result1.일차E소요량(0).환기면적, 1) + 단위면적당신재생1차에너지합 = Math.Round(-1 * _자립_신재생에너지, 1) + 단위면적당1차에너소비량합 = 난방에너지 + 냉방에너지 + 급탕에너지 + 조명에너지 + 환기에너지 + 단위면적당신재생1차에너지합 + If 단위면적당1차에너소비량합 <> 0 Then + 에너지자립률 = (단위면적당신재생1차에너지합 / 단위면적당1차에너소비량합) * 100 + Else + 에너지자립률 = 0 + End If + FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = 에너지자립률.ToString("N2") : Row += 1 + FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = 단위면적당신재생1차에너지합.ToString("N1") : Row += 1 + FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = 단위면적당1차에너소비량합.ToString("N1") : Row += 1 + + + End Sub + + Private Function RData(grp As String, code As Integer) As Decimal + Dim filter As String = String.Format("GRP='{0}' and code={1}", grp, code.ToString("000")) + Dim DR() As DSR.TReqUseRow = DSETR1.TReqUse.Select(filter) + If DR.GetUpperBound(0) = -1 Then Return 0 + Return DR(0).M00 + End Function + + + Private Sub 항목별평가결과(ByRef DSR As Eco2Ar.DSR) + Dim NDr As DSR.Pyonga_YKRow = DSR.Pyonga_YK.NewPyonga_YKRow + + '//기준(*)데이터가없는경우에는 1번째데이터를 쓰도록한다. + Dim 외벽벽체찾음 As Boolean = False + Dim 외벽지붕찾음 As Boolean = False + Dim 외벽바닥찾음 As Boolean = False + + For Each dr As DS.tbl_ykRow In DSET1.tbl_yk.Select("code <> '0'") + Dim gcode As String = dr.면형태.ToString() + Dim gname As String = Get_CName("1088", gcode) + + If gname = "외벽(벽체)" OrElse gname = "내벽(벽체)" Then + If dr.설명.Substring(0, 1) = "*" Then '//기준데이터가져오기 + NDr.벽체값 = dr.열관류율 + + Dim 최대저항값 As Decimal = 0 + '//세부데이터글가져온다 이중열저항이 가장큰것을 가져아야한다 + For Each ddr As DS.tbl_ykdetailRow In DSET1.tbl_ykdetail.Select("code <> '0' and pcode = '" + dr.code + "'") + If CDec(ddr.열저항) > 최대저항값 Then '//최대저항값의설명을 가져와야한다. + 외벽벽체찾음 = True + NDr.벽체종류 = ddr.설명 + Space(1) + ddr.두께 + "mm" + 최대저항값 = CDec(ddr.열저항) + End If + Next + End If + ElseIf gname = "외벽(지붕)" OrElse gname = "내벽(지붕)" Then + If dr.설명.Substring(0, 1) = "*" Then '//기준데이터가져오기 + NDr.지붕값 = dr.열관류율 + + Dim 최대저항값 As Decimal = 0 + '//세부데이터글가져온다 이중열저항이 가장큰것을 가져아야한다 + For Each ddr As DS.tbl_ykdetailRow In DSET1.tbl_ykdetail.Select("code <> '0' and pcode = '" + dr.code + "'") + If CDec(ddr.열저항) > 최대저항값 Then '//최대저항값의설명을 가져와야한다. + 외벽지붕찾음 = True + NDr.지붕종류 = ddr.설명 + Space(1) + ddr.두께 + "mm" + 최대저항값 = CDec(ddr.열저항) + End If + Next + End If + ElseIf gname = "외벽(바닥)" OrElse gname = "내벽(바닥)" Then + If dr.설명.Substring(0, 1) = "*" Then '//기준데이터가져오기 + NDr.바닥값 = dr.열관류율 + + Dim 최대저항값 As Decimal = 0 + '//세부데이터글가져온다 이중열저항이 가장큰것을 가져아야한다 + For Each ddr As DS.tbl_ykdetailRow In DSET1.tbl_ykdetail.Select("code <> '0' and pcode = '" + dr.code + "'") + If CDec(ddr.열저항) > 최대저항값 Then '//최대저항값의설명을 가져와야한다. + 외벽바닥찾음 = True + NDr.바닥종류 = ddr.설명 + Space(1) + ddr.두께 + "mm" + 최대저항값 = CDec(ddr.열저항) + End If + Next + End If + End If + Next + + If Not 외벽벽체찾음 Then + For Each dr As DS.tbl_ykRow In DSET1.tbl_yk.Select("code <> '0'") + Dim gcode As String = dr.면형태.ToString() + Dim gname As String = Get_CName("1088", gcode) + If gname = "외벽(벽체)" OrElse gname = "내벽(벽체)" Then + NDr.벽체값 = dr.열관류율 + Dim 최대저항값 As Decimal = 0 + '//세부데이터글가져온다 이중열저항이 가장큰것을 가져아야한다 + For Each ddr As DS.tbl_ykdetailRow In DSET1.tbl_ykdetail.Select("code <> '0' and pcode = '" + dr.code + "'") + If CDec(ddr.열저항) > 최대저항값 Then '//최대저항값의설명을 가져와야한다. + 외벽벽체찾음 = True + NDr.벽체종류 = ddr.설명 + Space(1) + ddr.두께 + "mm" + 최대저항값 = CDec(ddr.열저항) + End If + Next + If 외벽벽체찾음 Then Exit For + End If + Next + If Not 외벽벽체찾음 Then + NDr.벽체종류 = "" + NDr.벽체값 = 0 + End If + End If + + If Not 외벽지붕찾음 Then + For Each dr As DS.tbl_ykRow In DSET1.tbl_yk.Select("code <> '0'") + Dim gcode As String = dr.면형태.ToString() + Dim gname As String = Get_CName("1088", gcode) + If gname = "외벽(지붕)" OrElse gname = "내벽(지붕)" Then + NDr.지붕값 = dr.열관류율 + Dim 최대저항값 As Decimal = 0 + '//세부데이터글가져온다 이중열저항이 가장큰것을 가져아야한다 + For Each ddr As DS.tbl_ykdetailRow In DSET1.tbl_ykdetail.Select("code <> '0' and pcode = '" + dr.code + "'") + If CDec(ddr.열저항) > 최대저항값 Then '//최대저항값의설명을 가져와야한다. + 외벽지붕찾음 = True + NDr.지붕종류 = ddr.설명 + Space(1) + ddr.두께 + "mm" + 최대저항값 = CDec(ddr.열저항) + End If + Next + If 외벽지붕찾음 Then Exit For + End If + Next + If Not 외벽지붕찾음 Then + NDr.지붕종류 = "" + NDr.지붕값 = 0 + End If + End If + + + If Not 외벽바닥찾음 Then + For Each dr As DS.tbl_ykRow In DSET1.tbl_yk.Select("code <> '0'") + Dim gcode As String = dr.면형태.ToString() + Dim gname As String = Get_CName("1088", gcode) + If gname = "외벽(바닥)" OrElse gname = "내벽(바닥)" Then + NDr.바닥값 = dr.열관류율 + Dim 최대저항값 As Decimal = 0 + '//세부데이터글가져온다 이중열저항이 가장큰것을 가져아야한다 + For Each ddr As DS.tbl_ykdetailRow In DSET1.tbl_ykdetail.Select("code <> '0' and pcode = '" + dr.code + "'") + If CDec(ddr.열저항) > 최대저항값 Then '//최대저항값의설명을 가져와야한다. + 외벽바닥찾음 = True + NDr.바닥종류 = ddr.설명 + Space(1) + ddr.두께 + "mm" + 최대저항값 = CDec(ddr.열저항) + End If + Next + If 외벽바닥찾음 Then Exit For + End If + Next + If Not 외벽바닥찾음 Then + NDr.바닥종류 = "" + NDr.바닥값 = 0 + End If + End If + + '//지열설비정보확인 + Dim Sum_지열히트펌프용량_난방 As Single = 0 + Dim Sum_지열히트펌프용량_냉방 As Single = 0 + Dim Max_난방 As Single = 0 + Dim Max_냉방 As Single = 0 + Dim JDROW() As DS.tbl_newRow = DSET1.tbl_new.Select("code <> '0' and 기기종류='지열'", "설명") + If JDROW.GetUpperBound(0) = -1 Then '//지열데이터가없는경우엔 빈값처리 + NDr.지열히트펌프용량냉방 = "" + NDr.지열히트펌프용량 = "" + NDr.지열비고 = "" + NDr.지열난방COP = "" + NDr.지열냉방COP = "" + Else '//데이터가있다면 1번째 데이터를 이용한다. + + + Dim Max_Row_난방 As DS.tbl_newRow = Nothing + Dim MAx_Row_냉방 As DS.tbl_newRow = Nothing + + NDr.지열비고 = JDROW(0).지열비고 + + For Each jdrowrow As DS.tbl_newRow In JDROW + + Dim 난방연결수 As Integer = (DSET1.tbl_nanbangkiki.Select("신재생연결여부='시스템연결' and 연결된시스템='" & jdrowrow.code.ToString & "'").GetUpperBound(0) + 1) + Dim 냉방연결수 As Integer = (DSET1.tbl_nangbangkiki.Select("신재생연결여부='시스템연결' and 연결된시스템='" & jdrowrow.code.ToString & "'").GetUpperBound(0) + 1) + + Dim 난방값 As String = jdrowrow.열성능비난방 + Dim 냉방값 As String = jdrowrow.열성능비냉방 + + If 난방연결수 > 0 AndAlso 난방값 <> "" AndAlso IsNumeric(난방값) AndAlso 난방값 <> "0" Then + Sum_지열히트펌프용량_난방 += jdrowrow.지열히트펌프용량 + If TOSG(jdrowrow.지열히트펌프용량) > Max_난방 Then + Max_난방 = TOSG(jdrowrow.지열히트펌프용량) + Max_Row_난방 = jdrowrow + End If + End If + + If 냉방연결수 > 0 AndAlso 냉방값 <> "" AndAlso IsNumeric(냉방값) AndAlso 냉방값 <> "0" Then + Sum_지열히트펌프용량_냉방 += jdrowrow.지열히트펌프용량 + If TOSG(jdrowrow.지열히트펌프용량) > Max_냉방 Then + Max_냉방 = TOSG(jdrowrow.지열히트펌프용량) + MAx_Row_냉방 = jdrowrow + End If + End If + Next + + + NDr.지열히트펌프용량냉방 = Sum_지열히트펌프용량_냉방.ToString() + NDr.지열히트펌프용량 = Sum_지열히트펌프용량_난방.ToString() + + 'NDr.지열히트펌프용량냉방 = Sum_지열히트펌프용량_냉방.ToString() + "(" + Max_냉방.ToString() + ")" + + 'If Sum_지열히트펌프용량_난방 > 0 Then + ' NDr.지열히트펌프용량 = Sum_지열히트펌프용량_난방.ToString() + ' 'NDr.지열히트펌프용량 = "난방: " + Sum_지열히트펌프용량_난방.ToString() + "(" + Max_난방.ToString() + ")" + 'Else + ' NDr.지열히트펌프용량 = "" + 'End If + + 'If Sum_지열히트펌프용량_냉방 > 0 Then + ' NDr.지열히트펌프용량 += " / 냉방: " + NDr.지열히트펌프용량냉방 + 'End If + + If Max_난방 <> 0 Then + NDr.지열난방COP = Max_Row_난방.열성능비난방 + Else + NDr.지열난방COP = "" + End If + If Max_냉방 <> 0 Then + NDr.지열냉방COP = MAx_Row_냉방.열성능비냉방 + Else + NDr.지열냉방COP = "" + End If + End If + + '//###################### + '//13-12-08 + '//###################### + '//태양열시스템 + Dim JDROW2() As DS.tbl_newRow = DSET1.tbl_new.Select("code <> '0' and 기기종류='태양열'", "설명") + Dim Max_태양열면적 As Single = -999 + Dim Max_집열기유형 As String = "" + Dim Max_집열판방위 As String = "" + Dim Sum_태양열면적 As Single = 0 + For Each rowsun As DS.tbl_newRow In JDROW2 + + Dim 난방연결수 As Integer = (DSET1.tbl_nanbangkiki.Select("신재생연결여부='시스템연결' and 연결된시스템='" & rowsun.code.ToString & "'").GetUpperBound(0) + 1) + Dim 냉방연결수 As Integer = (DSET1.tbl_nangbangkiki.Select("신재생연결여부='시스템연결' and 연결된시스템='" & rowsun.code.ToString & "'").GetUpperBound(0) + 1) + + If 난방연결수 > 0 OrElse 냉방연결수 > 0 Then + + Dim 태양면적 As String = rowsun.집열판면적 + If 태양면적 <> "" AndAlso IsNumeric(태양면적) AndAlso 태양면적 <> "0" Then + Sum_태양열면적 += TOSG(태양면적) + If TOSG(태양면적) > Max_태양열면적 Then + Max_태양열면적 = TOSG(태양면적) + Max_집열기유형 = rowsun.집열기유형 + Max_집열판방위 = rowsun.집열판방위 + End If + End If + + End If + + Next + If Sum_태양열면적 > 0 Then + NDr.태양열집열판면적 = Sum_태양열면적.ToString() + "(" + Max_태양열면적.ToString + ")" + NDr.태양열집열기유형 = Max_집열기유형 + NDr.태양열집열판방위 = Max_집열판방위 + Else + NDr.태양열집열판면적 = "" + NDr.태양열집열기유형 = "" + NDr.태양열집열판방위 = "" + End If + + + + '//태양광시스템 + Dim JDROW3() As DS.tbl_newRow = DSET1.tbl_new.Select("code <> '0' and 기기종류='태양광'", "설명") + Dim Max_태양광면적 As Single = -999 + Dim Max_태양광종류 As String = "" + Dim Max_태양광방위 As String = "" + Dim Max_태양광기울기 As String = "" + Dim Max_태양광적용타입 As String = "" + Dim Sum_태양광면적 As Single = 0 + + For Each rowsun As DS.tbl_newRow In JDROW3 + Dim 태양면적 As String = rowsun.태양광모듈면적 + If 태양면적 <> "" AndAlso IsNumeric(태양면적) AndAlso 태양면적 <> "0" Then + Sum_태양광면적 += TOSG(태양면적) + If TOSG(태양면적) > Max_태양광면적 Then + Max_태양광면적 = TOSG(태양면적) + Max_태양광종류 = rowsun.태양광모듈종류 + Max_태양광방위 = rowsun.태양광모듈방위 + Max_태양광기울기 = rowsun.태양광모듈기울기 + Max_태양광적용타입 = rowsun.태양광모듈적용타입 + End If + End If + Next + If Sum_태양광면적 > 0 Then + NDr.태양광모듈면적 = Sum_태양광면적.ToString() '+ "(" + Max_태양광면적.ToString + ")" + NDr.태양광모듈종류 = Max_태양광종류 + NDr.태양광모듈방위 = Max_태양광방위 + NDr.태양광모듈기울기 = Max_태양광기울기 + NDr.태양광모듈적용타입 = Max_태양광적용타입 + If NDr.태양광모듈방위 = "(없음)" Then + NDr.태양광모듈방위 = "" + End If + Else + NDr.태양광모듈면적 = "" + NDr.태양광모듈종류 = "" + NDr.태양광모듈방위 = "" + NDr.태양광모듈기울기 = "" + NDr.태양광모듈적용타입 = "" + End If + + + '//열병합시스템 + Dim JDROW4() As DS.tbl_newRow = DSET1.tbl_new.Select("code <> '0' and 기기종류='열병합'", "설명") + Dim Max_열병합능력 As Single = -999 + Dim Max_열병합생산효율 As String = "" + Dim Max_열병합발전효율 As String = "" + Dim Max_열병합가동연료 As String = "" + Dim Sum_열병합능력 As Single = 0 + + For Each rowsun As DS.tbl_newRow In JDROW4 + + + Dim 난방연결수 As Integer = (DSET1.tbl_nanbangkiki.Select("신재생연결여부='시스템연결' and 연결된시스템='" & rowsun.code.ToString & "'").GetUpperBound(0) + 1) + Dim 냉방연결수 As Integer = (DSET1.tbl_nangbangkiki.Select("신재생연결여부='시스템연결' and 연결된시스템='" & rowsun.code.ToString & "'").GetUpperBound(0) + 1) + + If 난방연결수 > 0 OrElse 냉방연결수 > 0 Then + Dim 값 As String = rowsun.열생산능력 + If 값 <> "" AndAlso IsNumeric(값) AndAlso 값 <> "0" Then + Sum_열병합능력 += TOSG(값) + If TOSG(값) > Max_열병합능력 Then + Max_열병합능력 = TOSG(값) + Max_열병합생산효율 = rowsun.열생산효율.ToString + Max_열병합발전효율 = rowsun.발전효율.ToString + Max_열병합가동연료 = rowsun.가동연료 + End If + End If + End If + Next + + If Sum_열병합능력 > 0 Then + NDr.열병합열생산능력 = Sum_열병합능력.ToString() + "(" + Max_열병합능력.ToString + ")" + NDr.열병합열생산효율 = Max_열병합생산효율 + NDr.열병합발전효율 = Max_열병합발전효율 + NDr.열병합가동연료 = Max_열병합가동연료 + Else + NDr.열병합열생산능력 = "" + NDr.열병합열생산효율 = "" + NDr.열병합발전효율 = "" + NDr.열병합가동연료 = "" + End If + + '//창호종류 및 창호값확인 + Dim 창호종류찾음 As Boolean = False + + + Dim 창호그룹 As New Dictionary(Of String, Double) + + For Each drmyoun As DS.tbl_myounRow In DSET1.tbl_myoun.Select("code <> '0'") + If drmyoun.열관류율2 = "" OrElse drmyoun.열관류율2 = "0" Then Continue For + + For Each cdr As DS.tbl_ykRow In DSET1.tbl_yk.Select("code= '" + drmyoun.열관류율2 + "'") + + + Dim 면코드 As String = cdr.면형태 + If 면코드 = "" Then Continue For + Dim 면이름 As String = Get_CName("1088", 면코드) + If 면이름 = "" Then Continue For + If 면이름.IndexOf("외부창") <> -1 Then '//이름에 외부창이잇는것을 찾음 + + If Not 창호그룹.ContainsKey(cdr.code) Then + 창호그룹.Add(cdr.code, TOSG(drmyoun.건축부위면적)) + Else + 창호그룹.Item(cdr.code) = 창호그룹.Item(cdr.code) + TOSG(drmyoun.건축부위면적) + End If + + End If + Next + + Next + + Dim 최대면적 As Double = 0 + Dim 최대면적면코드 As String = "" + For Each item As System.Collections.Generic.KeyValuePair(Of String, Double) In 창호그룹 + If item.Value > 최대면적 Then + 최대면적 = item.Value + 최대면적면코드 = item.Key + End If + Next + + For Each cdr As DS.tbl_ykRow In DSET1.tbl_yk.Select("code <> '0'") + Dim 면코드 As String = cdr.code + If 면코드 = 최대면적면코드 Then + NDr.창호종류 = cdr.창호세부설명 + NDr.창호값 = TOSG(cdr.열관류율) + Exit For + End If + Next + + + + + + + + '//조명설비값(모든존 ; sum(면적*조명에너지부하율) / sum(면적) + Dim 존면적합 As Decimal = 0 + Dim 존면적부하율 As Decimal = 0 + For Each drz As DS.tbl_zoneRow In DSET1.tbl_zone.Select("code <> '0'") + + If drz.조명부하산출방법 = "계산치" Then + 존면적합 += TOSG(drz.면적) + 존면적부하율 += TOSG(drz.면적) * TOSG(drz.조명에너지부하율계산치) + ElseIf drz.조명부하산출방법 = "입력치" Then + 존면적합 += TOSG(drz.면적) + 존면적부하율 += TOSG(drz.면적) * TOSG(drz.조명에너지부하율입력치) + End If + Next + If 존면적합 <> 0 Then + NDr.주거실조명전력 = Math.Round(존면적부하율 / 존면적합, 2) + End If + + '//주조명광원값() + NDr.주조명광원 = DSET1.tbl_Desc.Rows(0)("주조명").ToString + + + '///################################################################################# + '///################################################################################# + '//설비방식및사용연료 + '//난방(입력존에서 가장많이 사용한놈) + Dim fndr As DS.tbl_nanbangkikiRow = Nothing + Dim fndrcnt As Integer = 0 + + Dim sum_보일러 As Single = 0 + Dim sum_히트펌프 As Single = 0 + Dim sum_지역난방 As Single = 0 + Dim sum_전기보일러 As Single = 0 + + For Each dr As DS.tbl_nanbangkikiRow In DSET1.tbl_nanbangkiki.Select("code <> '0'") + Dim cnt As Integer = 0 + Dim zDR() As DS.tbl_zoneRow = DSET1.tbl_zone.Select("code <> '0' and 열생산난방생산기기='" & dr.code & "' or 공조난방생산기기='" & dr.code & "'") + + '//131207 + If zDR.Length > 0 Then + Select Case dr.열생산기기방식 + Case "보일러" + sum_보일러 += TOSG(dr.보일러정격출력) + Case "히트펌프" + sum_히트펌프 += TOSG(dr.히트난방용량) + Case "지역난방" + sum_지역난방 += TOSG(dr.열교환기정격출력) + Case "전기보일러" + sum_전기보일러 += TOSG(dr.보일러정격출력) + End Select + End If + Next + + + '//합이 가장 큰 그룹을 검색 + Dim maxvalue As Single = 0 + ' Dim maxindex As Integer = 0 + maxvalue = Math.Max(sum_보일러, sum_히트펌프) + maxvalue = Math.Max(maxvalue, sum_지역난방) + maxvalue = Math.Max(maxvalue, sum_전기보일러) + + Dim searchfilter As String = "" + + If maxvalue = 0 Then + searchfilter = "" + ' maxindex = 0 '//없음 + ElseIf maxvalue = sum_보일러 Then + ' maxindex = 1 + searchfilter = "열생산기기방식='보일러'" + ElseIf maxvalue = sum_히트펌프 Then + 'maxindex = 2 + searchfilter = "열생산기기방식='히트펌프'" + ElseIf maxvalue = sum_지역난방 Then + ' maxindex = 3 + searchfilter = "열생산기기방식='지역난방'" + ElseIf maxvalue = sum_전기보일러 Then + ' maxindex = 4 + searchfilter = "열생산기기방식='전기보일러'" + End If + + '//가장큰 그룹내의 개별 대표값 찾기 + If searchfilter <> "" Then + For Each dr As DS.tbl_nanbangkikiRow In DSET1.tbl_nanbangkiki.Select("code <> '0' and " + searchfilter) + Dim cnt As Integer = 0 + Dim zDR() As DS.tbl_zoneRow = DSET1.tbl_zone.Select("code <> '0' and 열생산난방생산기기='" & dr.code & "' or 공조난방생산기기='" & dr.code & "'") + + '/// + For Each drow As DS.tbl_zoneRow In zDR + Dim 입력존수문자 As Integer = drow.입력존의수 + If IsNumeric(입력존수문자) = False Then 입력존수문자 = "1" + cnt += CInt(입력존수문자) + Next + + If cnt > fndrcnt Then '//최대값찾기 + fndr = dr + fndrcnt = cnt + End If + + + + If Not fndr Is Nothing Then + + '//20160327 + If Not IsNumeric(fndr.보일러대수) Then fndr.보일러대수 = "0" + If CInt(fndr.보일러대수) = 0 AndAlso (fndr.운전방식 = "동시가동" OrElse fndr.운전방식 = "순차가동") Then + MsgBox("다음 난방기기의 보일러 대수 가 입력되지 않았습니다" + vbCrLf + vbCrLf + _ + "난방기기 : " + fndr.설명 + vbCrLf + _ + "운전방식 : " + fndr.운전방식 + vbCrLf + _ + "보일러대수 : " + fndr.보일러대수 + vbCrLf + vbCrLf + _ + "단독가동이 아닌 경우에는 보일러 대수가 입력되어야 합니다", MsgBoxStyle.Critical, "확인") + End If + + NDr.온열원설비방식 = fndr.열생산기기방식 + Select Case fndr.열생산기기방식 + Case "보일러" + NDr.온열원설비연료 = fndr.사용연료 + If fndr.운전방식 = "동시가동" OrElse fndr.운전방식 = "순차가동" Then + NDr.온열원용량 = maxvalue * CInt(fndr.보일러대수) '+ "(" + fndr.보일러정격출력 + ")" + Else + NDr.온열원용량 = maxvalue.ToString() '+ "(" + fndr.보일러정격출력 + ")" + End If + + NDr.온열원효율 = fndr.정격보일러효율 + "%" + Case "히트펌프" + NDr.온열원설비연료 = fndr.히트연료 + If fndr.운전방식 = "동시가동" OrElse fndr.운전방식 = "순차가동" Then + NDr.온열원용량 = maxvalue * CInt(fndr.보일러대수) '+ "(" + fndr.보일러정격출력 + ")" + Else + NDr.온열원용량 = maxvalue.ToString() '+ "(" + fndr.보일러정격출력 + ")" + End If + NDr.온열원효율 = fndr.히트난방정격7 + Case "지역난방" + NDr.온열원설비연료 = "지역난방" 'fndr.사용연료 + If fndr.운전방식 = "동시가동" OrElse fndr.운전방식 = "순차가동" Then + NDr.온열원용량 = maxvalue * CInt(fndr.보일러대수) '+ "(" + fndr.보일러정격출력 + ")" + Else + NDr.온열원용량 = maxvalue.ToString() '+ "(" + fndr.보일러정격출력 + ")" + End If + NDr.온열원효율 = fndr.정격보일러효율 + "%" + Case "전기보일러" + NDr.온열원설비연료 = "전기" ' fndr.사용연료 + If fndr.운전방식 = "동시가동" OrElse fndr.운전방식 = "순차가동" Then + NDr.온열원용량 = maxvalue * CInt(fndr.보일러대수) '+ "(" + fndr.보일러정격출력 + ")" + Else + NDr.온열원용량 = maxvalue.ToString() '+ "(" + fndr.보일러정격출력 + ")" + End If + NDr.온열원효율 = fndr.정격보일러효율 + "%" + End Select + End If + Next + Else + NDr.온열원설비연료 = "" + NDr.온열원용량 = "" + NDr.온열원효율 = "" + End If + + + '///################################################################################# + '///################################################################################# + '//급탕(입력존에서 가장많이 사용한놈) + fndr = Nothing + fndrcnt = 0 + + sum_보일러 = 0 + sum_히트펌프 = 0 + sum_지역난방 = 0 + sum_전기보일러 = 0 + + For Each dr As DS.tbl_nanbangkikiRow In DSET1.tbl_nanbangkiki.Select("code <> '0'") + Dim cnt As Integer = 0 + Dim zDR() As DS.tbl_zoneRow = DSET1.tbl_zone.Select("code <> '0' and 열생산급탕생산기기='" & dr.code & "'") + + '//131207 + If zDR.Length > 0 Then + Select Case dr.열생산기기방식 + Case "보일러" + sum_보일러 += TOSG(dr.보일러정격출력) + Case "히트펌프" + sum_히트펌프 += TOSG(dr.히트난방용량) + Case "지역난방" + sum_지역난방 += TOSG(dr.열교환기정격출력) + Case "전기보일러" + sum_전기보일러 += TOSG(dr.보일러정격출력) + End Select + End If + + + + Next + + '//합이 가장 큰 그룹을 검색 + maxvalue = 0 + maxvalue = Math.Max(sum_보일러, sum_히트펌프) + maxvalue = Math.Max(maxvalue, sum_지역난방) + maxvalue = Math.Max(maxvalue, sum_전기보일러) + + searchfilter = "" + + If maxvalue = 0 Then + searchfilter = "" + ElseIf maxvalue = sum_보일러 Then + searchfilter = "열생산기기방식='보일러'" + ElseIf maxvalue = sum_히트펌프 Then + searchfilter = "열생산기기방식='히트펌프'" + ElseIf maxvalue = sum_지역난방 Then + searchfilter = "열생산기기방식='지역난방'" + ElseIf maxvalue = sum_전기보일러 Then + searchfilter = "열생산기기방식='전기보일러'" + End If + + '//가장큰 그룹내의 개별 대표값 찾기 + NDr.급탕설비방식 = "" + NDr.급탕설비연료 = "" + NDr.급탕용량 = "" + NDr.급탕효율 = "" + + If searchfilter <> "" Then + + For Each dr As DS.tbl_nanbangkikiRow In DSET1.tbl_nanbangkiki.Select("code <> '0' and " + searchfilter) + Dim cnt As Integer = 0 + Dim zDR() As DS.tbl_zoneRow = DSET1.tbl_zone.Select("code <> '0' and 열생산급탕생산기기='" & dr.code + "'") + + For Each drow As DS.tbl_zoneRow In zDR + Dim 입력존수문자 As Integer = drow.입력존의수 + If IsNumeric(입력존수문자) = False Then 입력존수문자 = "1" + cnt += CInt(입력존수문자) + Next + If cnt > fndrcnt Then '//최대값찾기 + fndr = dr + fndrcnt = cnt + End If + + If Not fndr Is Nothing Then + NDr.급탕설비방식 = fndr.열생산기기방식 + + + Select Case fndr.열생산기기방식 + Case "보일러" + NDr.급탕설비연료 = fndr.사용연료 + NDr.급탕용량 = maxvalue.ToString() '+ "(" + fndr.보일러정격출력 + ")" + NDr.급탕효율 = fndr.정격보일러효율 + "%" + Case "히트펌프" + NDr.급탕설비연료 = fndr.히트연료 + NDr.급탕용량 = maxvalue.ToString() ' + "(" + fndr.히트난방용량 + ")" + NDr.급탕효율 = fndr.히트난방정격7 + Case "지역난방" + NDr.급탕설비연료 = "지역난방" ' fndr.사용연료 + NDr.급탕용량 = maxvalue.ToString() '+ "(" + fndr.열교환기정격출력 + ")" + NDr.급탕효율 = fndr.정격보일러효율 + "%" + Case "전기보일러" + NDr.급탕설비연료 = "전기" ' fndr.사용연료 + NDr.급탕용량 = maxvalue.ToString() ' + "(" + fndr.보일러정격출력 + ")" + NDr.급탕효율 = fndr.정격보일러효율 + "%" + End Select + + End If + + Next + End If + + + + + + + + + + '///################################################################################# + '///################################################################################# + '//냉방(입력존에서 가장많이 사용한놈) + Dim fndr2 As DS.tbl_nangbangkikiRow = Nothing + Dim fndr2cnt As Integer = 0 + + Dim sum_압축식 As Single = 0 + Dim sum_압축식_LNG As Single = 0 + Dim sum_지역냉방 As Single = 0 + Dim sum_흡수식 As Single = 0 + + For Each dr As DS.tbl_nangbangkikiRow In DSET1.tbl_nangbangkiki.Select("code <> '0'") + Dim cnt2 As Integer = 0 + Dim zDR() As DS.tbl_zoneRow = DSET1.tbl_zone.Select("열생산냉방생산기기='" & dr.code & "' or 공조냉방생산기기='" & dr.code & "'") + + '//131207 + If zDR.Length > 0 Then + Select Case dr.냉동기방식 + Case "압축식" + sum_압축식 += TOSG(dr.냉동기용량) + Case "압축식(LNG)" + sum_압축식_LNG += TOSG(dr.냉동기용량) + Case "지역냉방" + sum_지역냉방 += TOSG(dr.냉동기용량) + Case "흡수식" + sum_흡수식 += TOSG(dr.냉동기용량) + End Select + End If + + + Next + + '//합이 가장 큰 그룹을 검색 + maxvalue = 0 + maxvalue = Math.Max(sum_압축식, sum_압축식_LNG) + maxvalue = Math.Max(maxvalue, sum_지역냉방) + maxvalue = Math.Max(maxvalue, sum_흡수식) + + searchfilter = "" + + If maxvalue = 0 Then + searchfilter = "" + ElseIf maxvalue = sum_압축식 Then + searchfilter = "냉동기방식='압축식'" + ElseIf maxvalue = sum_압축식_LNG Then + searchfilter = "냉동기방식='압축식(LNG)'" + ElseIf maxvalue = sum_지역냉방 Then + searchfilter = "냉동기방식='지역냉방'" + ElseIf maxvalue = sum_흡수식 Then + searchfilter = "냉동기방식='흡수식'" + End If + + + + + '//가장큰 그룹내의 개별 대표값 찾기 + If searchfilter <> "" Then + For Each dr As DS.tbl_nangbangkikiRow In DSET1.tbl_nangbangkiki.Select("code <> '0' and " + searchfilter) + Dim cnt2 As Integer = 0 + Dim zDR() As DS.tbl_zoneRow = DSET1.tbl_zone.Select("열생산냉방생산기기='" & dr.code & "' or 공조냉방생산기기='" & dr.code & "'") + + For Each drow As DS.tbl_zoneRow In zDR + Dim 입력존수문자 As Integer = drow.입력존의수 + If IsNumeric(입력존수문자) = False Then 입력존수문자 = "1" + cnt2 += CInt(입력존수문자) + Next + If cnt2 > fndr2cnt Then '//최대값찾기 + fndr2 = dr + fndr2cnt = cnt2 + End If + + If Not fndr2 Is Nothing Then + NDr.냉열원설비방식 = fndr2.냉동기방식 + NDr.냉열원용량 = maxvalue.ToString() + "(" + fndr2.냉동기용량 + ")" + NDr.냉열원효율 = fndr2.열성능비 + Select Case fndr2.냉동기방식 + Case "압축식" + NDr.냉열원설비연료 = "전기" + Case "압축식(LNG)" + NDr.냉열원설비연료 = "천연가스" + Case "지역냉방" + NDr.냉열원설비연료 = "지역냉방" + Case "흡수식" + If fndr2.열생산연결방식 = "직화식" Then + NDr.냉열원설비연료 = fndr2.사용연료 + ElseIf fndr2.열생산연결방식 = "외부연결" Then + Dim 온수열생산기기코드 As String = fndr2.온수열생산기기 + If 온수열생산기기코드 <> "" Then + Dim 난방기기() As DS.tbl_nanbangkikiRow = DSET1.tbl_nanbangkiki.Select("code='" + 온수열생산기기코드 + "'") + If 난방기기.GetUpperBound(0) = 0 Then + NDr.냉열원설비연료 = fndr2.사용연료 + End If + End If + End If + End Select + + End If + + Next + Else + NDr.냉열원설비방식 = "" + NDr.냉열원용량 = "" + NDr.냉열원효율 = "" + End If + + + DSR.Pyonga_YK.Rows.Add(NDr) + DSR.Pyonga_YK.AcceptChanges() + + End Sub + + + Private Sub Frm_Upload_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load + + ' Me.Hide() + LoadFile() + MakeData() + + If fn <> "" Then + Try + If FpSpread1.SaveExcel(fn) Then + MsgBox("다음파일이 생성되었습니다" + vbCrLf + fn, MsgBoxStyle.Information, "확인") + Me.Close() + Else + MsgBox("저장실패", MsgBoxStyle.Critical, "확인") + ' Me.Show() + End If + Catch ex As Exception + MsgBox("저장실패" + vbCrLf + ex.Message, MsgBoxStyle.Critical, "확인") + Me.Close() + End Try + + End If + End Sub + + Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click + Dim sd As New SaveFileDialog() + sd.Filter = "Excel(*.xls)|*.xls" + sd.FilterIndex = 0 + If sd.ShowDialog = Windows.Forms.DialogResult.OK Then + Try + If FpSpread1.SaveExcel(sd.FileName, FarPoint.Excel.ExcelSaveFlags.NoFlagsSet) Then + MsgBox("저장완료", MsgBoxStyle.Information, "확인") + End If + Catch ex As Exception + MsgBox(ex.Message, MsgBoxStyle.Critical, "error") + End Try + + End If + End Sub +End Class \ No newline at end of file diff --git a/ArinWarev1/Forms_Report/Report_Graph - 백업.rdlc b/ArinWarev1/Forms_Report/Report_Graph - 백업.rdlc new file mode 100644 index 0000000..f7c7349 --- /dev/null +++ b/ArinWarev1/Forms_Report/Report_Graph - 백업.rdlc @@ -0,0 +1,573 @@ + + + + + 86b9a4cd-3b18-499f-bc7b-ae4126af8be2 + + SQL + Data Source=ms0501.gabiadb.com;Initial Catalog=eco2;Persist Security Info=True;User ID=raytrace;Password=arin + + + + 29.7cm + true + 21cm + 0.25cm + true + 1cm + 1cm + 1.5cm + 5ec02dd0-720b-446d-9ac5-21bd03e4b31f + 21cm + + + + + Gubun + System.String + + + Mon + System.String + + + Req + System.Single + + + + DummyDataSource + + true + + + DSR + Graph_Req + + + + + + Gubun + System.String + + + type + System.String + + + Req + System.Single + + + + DummyDataSource + + true + + + DSR + Graph_ReqUse + + + + + 19cm + + 1cm + + + + + 2.2cm + + + 2 + DSR_Graph_ReqUse + + + 2.53968cm + + + + =Fields!Gubun.Value + + + + + =Fields!Gubun.Value + Descending + + + + + Gubun + + true + =Fields!Gubun.Value + + + + + + 19cm + + + 0.63492cm + + + + =Fields!type.Value + + + + + type + + true + =Fields!type.Value + + + + + + 4.73968cm + + + + textbox1 + + true + + + + + + + + 0.63492cm + + + + + Req + + true + =Sum(Fields!Req.Value) + + + + + + + 1.26984cm + 0.5cm + + + + true + + TopRight + Row + + + + + <Style /> + <Position>Near</Position> + + + + + + + + + Outside + true + true + + + 1 + DSR_Graph_ReqUse + + + + + true + Orthographic + Real + Cylinder + + 0 + + + + + + =Fields!type.Value + + + + =Fields!type.Value + NotEqual + + 합계 + + + + + + + + + 9.5cm + Stacked + + + + <Style /> + + + + + true + + + Outside + 100 + 50 + true + true + true + + + Bar + 18.25cm + + + + + + =Fields!Gubun.Value + + + + + + + Pastel + + + + + + + =Sum(Fields!Req.Value) + + + + + =Fields!Req.Value + Top + + + + 6pt + + + + + + + + <Caption>연간 에너지 요구량 및 소요량[kWh/㎡]</Caption> + <Style> + <FontFamily>나눔고딕</FontFamily> + </Style> + + 9cm + 0.25cm + + + + + BottomCenter + Row + + + + + <MajorGridLines> + <Style> + <BorderStyle> + <Default>Solid</Default> + </BorderStyle> + </Style> + </MajorGridLines> + <MinorGridLines> + <Style> + <BorderStyle> + <Default>Solid</Default> + </BorderStyle> + </Style> + </MinorGridLines> + <MajorTickMarks>Outside</MajorTickMarks> + <Min>0</Min> + <Margin>true</Margin> + <Visible>true</Visible> + </Axis> + </CategoryAxis> + <DataSetName>DSR_Graph_Req</DataSetName> + <PlotArea> + <Style> + <BackgroundColor>White</BackgroundColor> + <BackgroundGradientType>LeftRight</BackgroundGradientType> + <BorderColor> + <Default>DimGray</Default> + </BorderColor> + <BorderStyle> + <Default>Solid</Default> + </BorderStyle> + </Style> + </PlotArea> + <ThreeDProperties> + <Enabled>true</Enabled> + <ProjectionMode>Orthographic</ProjectionMode> + <Shading>Real</Shading> + <WallThickness>1</WallThickness> + <DrawingStyle>Cylinder</DrawingStyle> + </ThreeDProperties> + <PointWidth>0</PointWidth> + <SeriesGroupings> + <SeriesGrouping> + <DynamicSeries> + <Grouping Name="chart1_SeriesGroup1"> + <GroupExpressions> + <GroupExpression>=Fields!Gubun.Value</GroupExpression> + </GroupExpressions> + </Grouping> + <Sorting> + <SortBy> + <SortExpression>=Fields!Gubun.Value</SortExpression> + <Direction>Descending</Direction> + </SortBy> + </Sorting> + <Label>=Fields!Gubun.Value</Label> + </DynamicSeries> + </SeriesGrouping> + </SeriesGroupings> + <Top>0.25cm</Top> + <Subtype>Plain</Subtype> + <ValueAxis> + <Axis> + <Title /> + <MajorGridLines> + <ShowGridLines>true</ShowGridLines> + <Style> + <BorderStyle> + <Default>Solid</Default> + </BorderStyle> + </Style> + </MajorGridLines> + <MinorGridLines> + <Style> + <BorderStyle> + <Default>Solid</Default> + </BorderStyle> + </Style> + </MinorGridLines> + <MajorTickMarks>Outside</MajorTickMarks> + <Min>0</Min> + <MajorInterval>2</MajorInterval> + <Interlaced>true</Interlaced> + <Margin>true</Margin> + <Visible>true</Visible> + <Scalar>true</Scalar> + </Axis> + </ValueAxis> + <Type>Column</Type> + <Width>18.25cm</Width> + <CategoryGroupings> + <CategoryGrouping> + <DynamicCategories> + <Grouping Name="chart1_CategoryGroup1"> + <GroupExpressions> + <GroupExpression>=Fields!Mon.Value</GroupExpression> + </GroupExpressions> + </Grouping> + <Label>=Fields!Mon.Value</Label> + </DynamicCategories> + </CategoryGrouping> + </CategoryGroupings> + <Palette>Excel</Palette> + <ChartData> + <ChartSeries> + <DataPoints> + <DataPoint> + <DataValues> + <DataValue> + <Value>=Sum(Fields!Req.Value)</Value> + </DataValue> + </DataValues> + <DataLabel> + <Style> + <FontFamily>나눔고딕</FontFamily> + <FontWeight>700</FontWeight> + </Style> + <Value>=Fields!Req.Value</Value> + <Position>Top</Position> + <Rotation>60</Rotation> + </DataLabel> + <Style /> + <Marker> + <Size>6pt</Size> + </Marker> + </DataPoint> + </DataPoints> + </ChartSeries> + </ChartData> + <Style> + <BackgroundColor>White</BackgroundColor> + <BorderColor> + <Default>Gray</Default> + </BorderColor> + <BorderStyle> + <Default>Solid</Default> + </BorderStyle> + <FontFamily>나눔고딕</FontFamily> + <FontWeight>700</FontWeight> + </Style> + <Title> + <Caption>월별 냉난방 에너지 요구량 [kWh/(m²a)]</Caption> + + 9cm + 0.25cm + + + 24cm + + ko-KR + 1.5cm + 29.7cm + \ No newline at end of file diff --git a/ArinWarev1/Forms_Report/Report_Graph.Designer.vb b/ArinWarev1/Forms_Report/Report_Graph.Designer.vb new file mode 100644 index 0000000..06066e5 --- /dev/null +++ b/ArinWarev1/Forms_Report/Report_Graph.Designer.vb @@ -0,0 +1,112 @@ + _ +Partial Class Report_Graph + Inherits CForm + + 'Form은 Dispose를 재정의하여 구성 요소 목록을 정리합니다. + _ + Protected Overrides Sub Dispose(ByVal disposing As Boolean) + Try + If disposing AndAlso components IsNot Nothing Then + components.Dispose() + End If + Finally + MyBase.Dispose(disposing) + End Try + End Sub + + 'Windows Form 디자이너에 필요합니다. + Private components As System.ComponentModel.IContainer + + '참고: 다음 프로시저는 Windows Form 디자이너에 필요합니다. + '수정하려면 Windows Form 디자이너를 사용하십시오. + '코드 편집기를 사용하여 수정하지 마십시오. + _ + Private Sub InitializeComponent() + Me.components = New System.ComponentModel.Container() + Dim ReportDataSource1 As Microsoft.Reporting.WinForms.ReportDataSource = New Microsoft.Reporting.WinForms.ReportDataSource() + Dim ReportDataSource2 As Microsoft.Reporting.WinForms.ReportDataSource = New Microsoft.Reporting.WinForms.ReportDataSource() + Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(Report_Graph)) + Me.bs_req = New System.Windows.Forms.BindingSource(Me.components) + Me.DSR = New Eco2Ar.DSR() + Me.bs_requse = New System.Windows.Forms.BindingSource(Me.components) + Me.StatusStrip1 = New System.Windows.Forms.StatusStrip() + Me.lb_msg = New System.Windows.Forms.ToolStripStatusLabel() + Me.ReportViewer1 = New Microsoft.Reporting.WinForms.ReportViewer() + CType(Me.bs_req, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.DSR, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.bs_requse, System.ComponentModel.ISupportInitialize).BeginInit() + Me.StatusStrip1.SuspendLayout() + Me.SuspendLayout() + ' + 'bs_req + ' + Me.bs_req.DataMember = "Graph_Req" + Me.bs_req.DataSource = Me.DSR + ' + 'DSR + ' + Me.DSR.DataSetName = "DSR" + Me.DSR.SchemaSerializationMode = System.Data.SchemaSerializationMode.IncludeSchema + ' + 'bs_requse + ' + Me.bs_requse.DataMember = "Graph_ReqUse" + Me.bs_requse.DataSource = Me.DSR + ' + 'StatusStrip1 + ' + Me.StatusStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.lb_msg}) + Me.StatusStrip1.Location = New System.Drawing.Point(0, 418) + Me.StatusStrip1.Name = "StatusStrip1" + Me.StatusStrip1.Size = New System.Drawing.Size(653, 22) + Me.StatusStrip1.TabIndex = 15 + Me.StatusStrip1.Text = "StatusStrip1" + ' + 'lb_msg + ' + Me.lb_msg.Name = "lb_msg" + Me.lb_msg.Size = New System.Drawing.Size(59, 17) + Me.lb_msg.Text = "<메세지>" + ' + 'ReportViewer1 + ' + Me.ReportViewer1.Dock = System.Windows.Forms.DockStyle.Fill + ReportDataSource1.Name = "DSR_Graph_Req" + ReportDataSource1.Value = Me.bs_req + ReportDataSource2.Name = "DSR_Graph_ReqUse" + ReportDataSource2.Value = Me.bs_requse + Me.ReportViewer1.LocalReport.DataSources.Add(ReportDataSource1) + Me.ReportViewer1.LocalReport.DataSources.Add(ReportDataSource2) + Me.ReportViewer1.LocalReport.ReportEmbeddedResource = "Eco2Ar.Report_Graph.rdlc" + Me.ReportViewer1.Location = New System.Drawing.Point(0, 0) + Me.ReportViewer1.Name = "ReportViewer1" + Me.ReportViewer1.Size = New System.Drawing.Size(653, 418) + Me.ReportViewer1.TabIndex = 16 + ' + 'Report_Graph + ' + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.None + Me.ClientSize = New System.Drawing.Size(653, 440) + Me.Controls.Add(Me.ReportViewer1) + Me.Controls.Add(Me.StatusStrip1) + Me.Font = New System.Drawing.Font("굴림", 8.999999!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon) + Me.Name = "Report_Graph" + Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen + Me.Text = "결과그래프" + CType(Me.bs_req, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.DSR, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.bs_requse, System.ComponentModel.ISupportInitialize).EndInit() + Me.StatusStrip1.ResumeLayout(False) + Me.StatusStrip1.PerformLayout() + Me.ResumeLayout(False) + Me.PerformLayout() + + End Sub + Friend WithEvents StatusStrip1 As System.Windows.Forms.StatusStrip + Friend WithEvents lb_msg As System.Windows.Forms.ToolStripStatusLabel + Friend WithEvents ReportViewer1 As Microsoft.Reporting.WinForms.ReportViewer + Friend WithEvents bs_req As System.Windows.Forms.BindingSource + Friend WithEvents DSR As Eco2Ar.DSR + Friend WithEvents bs_requse As System.Windows.Forms.BindingSource +End Class diff --git a/ArinWarev1/Forms_Report/Report_Graph.rdlc b/ArinWarev1/Forms_Report/Report_Graph.rdlc new file mode 100644 index 0000000..bddd980 --- /dev/null +++ b/ArinWarev1/Forms_Report/Report_Graph.rdlc @@ -0,0 +1,954 @@ + + + + + + SQL + Data Source=ms0501.gabiadb.com;Initial Catalog=eco2;Persist Security Info=True;User ID=raytrace;Password=arin + + 86b9a4cd-3b18-499f-bc7b-ae4126af8be2 + + + + + + + Gubun + System.String + + + Mon + System.String + + + Req + System.Single + + + + DummyDataSource + + true + + + DSR + Graph_Req + + + + + + Gubun + System.String + + + type + System.String + + + Req + System.Single + + + + DummyDataSource + + true + + + DSR + Graph_ReqUse + + + + + + + + + + + + =Fields!Mon.Value + + + + Output + + + + + + + + + =Fields!Gubun.Value + + + + + =Fields!Gubun.Value + Descending + + + + Output + + + + + + + + + + =Sum(Fields!Req.Value) + + + + + Top + 60 + + + + 6pt + + 0.75pt + + + + + + + True + 1 + + False + + 0.75pt + + + NaN + 1 + + + False + + 0.75pt + + + NaN + + + True + + 0.75pt + + + NaN + 1 + + + None + + true + true + false + + + + + + + + NaN + Opposite + NaN + NaN + + + + + + 0.75pt + + + + + + + True + + True + + 0.75pt + + + 2 + + + False + + 0.75pt + + + NaN + + + True + + 0.75pt + + + 2 + + + None + + true + true + 0 + true + true + false + + + + + + + + NaN + Opposite + NaN + NaN + + + + true + 0 + 0 + 0 + true + + + 0.75pt + + White + LeftRight + + + + + + true + + 0.75pt + + + BottomCenter + Row + + + + + true + + + + + 월별 냉난방 에너지 요구량 [kWh/(m²a)] + + + + Excel + + + + + 사용 가능한 데이터 없음 + + + DSR_Graph_Req + 0.25cm + 0.25cm + 9cm + 18.25cm + + + __Upgraded2005__ + __Upgraded2005__ + + + + + White + 나눔고딕 + Bold + + + + + + + + + =Fields!Gubun.Value + + + + Output + + + + + + + + + =Fields!type.Value + + + + =Fields!type.Value + NotEqual + + 합계 + + + + + + Output + + + + + + + + + + =Sum(Fields!Req.Value) + + + + + Top + + + + 6pt + + 0.75pt + + 굴림 + 9pt + + + + + + True + + False + + 0.75pt + + + NaN + 1 + + + False + + 0.75pt + + + NaN + + + True + + 0.75pt + + + NaN + 1 + + + None + + true + true + false + + + + + + + + NaN + Opposite + NaN + NaN + + + + + + 0.75pt + + + + + + + True + + False + + 0.75pt + + + 100 + + + True + + 0.75pt + + + 50 + + + True + + 0.75pt + + + 100 + + + None + + true + true + true + false + + + + + + + + NaN + Opposite + NaN + NaN + + + + true + 0 + 0 + 0 + true + + + 0.75pt + + White + LeftRight + + + + + + + 0.75pt + + LeftRight + 나눔고딕 + 6pt + + TopRight + Row + + + + + true + + + + + 연간 에너지 요구량 및 소요량[kWh/㎡] + + + + Pastel + + + + + 사용 가능한 데이터 없음 + + + DSR_Graph_ReqUse + + + =Fields!Gubun.Value + NotEqual + + Co2발생량 + + + + 9.5cm + 0.25cm + 9cm + 18.25cm + 1 + + + __Upgraded2005__ + __Upgraded2005__ + + + + + White + 나눔고딕 + Bold + #80ff80 + + + + + + + + + + true + true + + + + + + + + + + 0.5pt + + 2pt + 2pt + 2pt + 2pt + + + + + + + + + + + 0.86614in + + + + + 0.24997in + + + + + true + true + + + + + =Sum(Fields!Req.Value) + + + + + + + Req + + 0.25pt + + 2pt + 2pt + 2pt + 2pt + + + + Output + + + + + + + + + + + =Fields!type.Value + + + + 0.24997in + + + true + true + + + + + =Fields!type.Value + + + + + + + type + + 0.25pt + + 2pt + 2pt + 2pt + 2pt + + + + + Output + + + + + + + + + =Fields!Gubun.Value + + + + + =iif(Fields!Gubun.Value="요구량",1,iif(Fields!Gubun.Value="소요량",2,iif(Fields!Gubun.Value="1차소요량",3,4))) + + + + 0.99987in + + + true + true + + + + + =Fields!Gubun.Value + + + + + + + Gubun + + 0.25pt + + 2pt + 2pt + 2pt + 2pt + + + + + Output + + + + true + true + true + No Data + DSR_Graph_ReqUse + 19cm + 0.5cm + 1.26985cm + 4.73967cm + 2 + + + 굴림 + + + + 20.26985cm + + 0.50265cm + + + textbox72 + 7.42cm + 3.15cm + + 20 + true + 14.7cm + 0.63cm + =Parameters!p_co2.Value + + + textbox66 + 23.17cm + 5.74cm + + 19 + true + 6.3cm + 0.91cm + 년 월 일 + + + + textbox9 + NoOutput + 6.58cm + 9.17cm + + 18 + true + 0.7cm + 에너지효율등급 + + + 17 + NoOutput + DSR_Graph_Info + 2.03cm + 9.20117cm +
    + + + + + + + textbox7 + + 17 + true + 건축물명 + + + + + + + textbox8 + + 16 + true + : + + + + + + + name + + 15 + true + =Fields!name.Value + + + + + 0.6cm + + + + + + + textbox22 + + 14 + true + 준공연도 + + + + + + + textbox23 + + 13 + true + : + + + + + + + year + + 12 + true + =Fields!year.Value + + + + + 0.6cm + + + + + + + textbox19 + + 11 + true + 주소 + + + + + + + textbox20 + + 10 + true + : + + + + + + + juso + + 9 + true + =Fields!juso.Value + + + + + 0.6cm + + + + + + + textbox16 + + 8 + true + 층수 + + + + + + + textbox17 + + 7 + true + : + + + + + + + chung + + 6 + true + =Fields!chung.Value + + + + + 0.6cm + + + + + + + textbox13 + + 5 + true + 연면적 + + + + + + + textbox14 + + 4 + true + : + + + + + + + myoun + + 3 + true + =Fields!myoun.Value + + + + + 0.6cm + + + + + + + textbox10 + + 2 + true + 주용도 + + + + + + + textbox11 + + 1 + true + : + + + + + + + ydo + + true + =Fields!ydo.Value + + + + + 0.6cm + + +
    + +
    + + + + + 3 + + + textbox4 + + 18 + true + 건축물 개요 + + + + + 0.7cm + + +
    + + + 2.48117cm + + + 0.28cm + + + 6.44cm + + + 4.3cm +
    + + Fit + 7.49cm + 5.18cm + image/png + Embedded + + 16 + 0.21cm + 7cm + ID11 + + + Fit + 7.56cm + 4.97cm + image/png + Embedded + + 15 + 7.56cm + 6.86cm + ID22 + + + textbox1 + NoOutput + 0.63cm + 13cm + + AttributeNormal + 14 + true + 2.66cm + 1cm + 업무용건축물 에너지효율등급 인증서 + + + 13 + NoOutput + DSR_Graph_Info + 2.03cm + 9.24673cm +
    + + + + + + + + 17 + true + 인증번호 + + + + + + + + 16 + true + : + + + + + + + + 15 + true + =Fields!i1.Value + + + + + 0.6cm + + + + + + + + 14 + true + 인증기관 + + + + + + + + 13 + true + : + + + + + + + + 12 + true + =Fields!i2.Value + + + + + 0.6cm + + + + + + + + 11 + true + 운영기관 + + + + + + + + 10 + true + : + + + + + + + + 9 + true + =Fields!i3.Value + + + + + 0.6cm + + + + + + + textbox40 + + 8 + true + + + + + + + + textbox34 + + 7 + true + + + + + + + + + 6 + true + + + + + + 0.6cm + + + + + + + textbox30 + + 5 + true + + + + + + + + textbox37 + + 4 + true + + + + + + + + + 3 + true + + + + + + 0.6cm + + + + + + + textbox33 + + 2 + true + + + + + + + + textbox36 + + 1 + true + + + + + + + + + true + + + + + + 0.6cm + + +
    + +
    + + + + + 3 + + + + 18 + true + 인증 개요 + + + + + 0.7cm + + +
    + + + 3.15673cm + + + 0.35cm + + + 5.74cm + + + 4.3cm + 9.31cm +
    + + NoOutput + 6.58cm + 9.17cm + + 12 + true + 9.31cm + 0.7cm + CO2 배출량 + + + 14.84cm + 18.2cm + + 11 + true + 0.14cm + 0.7cm + 용도별 CO2 배출량 + + + 10 + DSR_Graph_Info_data + 15.89cm + 18.27cm +
    + + + + + + + + 23 + true + 난방 + + + + + + + 난방소요 + + 22 + true + =Fields!난방소요.Value + + + + + + + 난방소요1 + + 21 + true + =Fields!난방소요1.Value + + + + + + + 난방co2 + + 20 + true + =Fields!난방co2.Value + + + + + 0.6cm + + + + + + + + 19 + true + 급탕 + + + + + + + 급탕소요 + + 18 + true + =Fields!급탕소요.Value + + + + + + + 급탕소요1 + + 17 + true + =Fields!급탕소요1.Value + + + + + + + 급탕co2 + + 16 + true + =Fields!급탕co2.Value + + + + + 0.6cm + + + + + + + + 15 + true + 냉방 + + + + + + + 냉방소요 + + 14 + true + =Fields!냉방소요.Value + + + + + + + 냉방소요1 + + 13 + true + =Fields!냉방소요1.Value + + + + + + + 냉방co2 + + 12 + true + =Fields!냉방co2.Value + + + + + 0.6cm + + + + + + + + 11 + true + 조명 + + + + + + + 조명소요 + + 10 + true + =Fields!조명소요.Value + + + + + + + 조명소요1 + + 9 + true + =Fields!조명소요1.Value + + + + + + + 조명co2 + + 8 + true + =Fields!조명co2.Value + + + + + 0.6cm + + + + + + + + 7 + true + 환기 + + + + + + + 환기소요 + + 6 + true + =Fields!환기소요.Value + + + + + + + 환기소요1 + + 5 + true + =Fields!환기소요1.Value + + + + + + + 환기co2 + + 4 + true + =Fields!환기co2.Value + + + + + 0.6cm + + + + + + + + 3 + true + 합계 + + + + + + + textbox50 + + 2 + true + + + + + + + + textbox51 + + 1 + true + + + + + + + + textbox64 + + true + + + + + + 0.6cm + + +
    + +
    + + + + + + + + 27 + true + 구분 + + + + + + + textbox56 + + 26 + true + 단위면적당 에너지소요량 +(kWh/㎡년) + + + + + + + + + textbox57 + + 25 + true + 단위면적당 1차 에너지소요량 +(kWh㎡년) + + + + + + + textbox58 + + 24 + true + 단위면적당 CO2 배출량 +(kg㎡년) + + + + + 1.26cm + + +
    + + + 2.31cm + + + 5.46cm + + + 5.25cm + + + 5.25cm + + + 4.86cm + 0.21cm +
    + + 9 + DSR_Graph_Info + 21cm + 18.21743cm +
    + + + + + + + + 5 + true + 단위면적당 에너지소요량 + + + + + + + + 4 + true + 해당 건축물에 설치된 난방, 냉방, 급탕, 조명, 환기시스템에서 소요되는 단위면적당 에너지량 + + + + + + 0.6cm + + + + + + + + 3 + true + 단위면적당 1차에너지소요량 + + + + + + + + + 2 + true + 에너지소요량에 연료의 채취, 가공, 운송, 변환, 공급 과정 등의 손실을 포함한 단위면적당 에너지량 + + + + + + 0.6cm + + + + + + + + 1 + true + 단위면적당 CO2배출량 + + + + + + + + + true + 에너지소요량에서 산출한 단위면적당 이산화탄소 배출량 + + + + + + 0.6cm + + +
    + + + + 4.27cm + + + 13.94743cm + + + 1.8cm + 0.14cm +
    + + 24.43cm + 10.5cm + + 8 + true + 4.13cm + 1.05cm + 인 증 기 관 의 장 + + + + + + 13.09cm + 7 + 8.68cm + 1.87831cm + + 0.34392cm + + + 12.95cm + 6 + 9.45cm + 1.87831cm + + 0.34392cm + + + 13.02cm + 5 + 9.87cm + 1.87831cm + + 0.34392cm + + + 13.09cm + 4 + 8.19cm + 1.87831cm + + 0.34392cm + + + 13.02cm + 3 + 10.57cm + 1.87831cm + + 0.34392cm + + + 13.02cm + 2 + 11.2cm + 1.87831cm + + 0.34392cm + + + 13.02cm + 1 + 11.83cm + 1.87831cm + + 0.34392cm + + + 13.09cm + + =iif(Parameters!p_co2.Value >= 80,true,false) + + 12.81cm + 1.87831cm + + 0.34392cm + + + 0.21cm + + + + 26.6cm + + ko-KR + 1cm + 29.7cm +     \ No newline at end of file diff --git a/ArinWarev1/Forms_Report/Report_Graph_auth.Designer.vb b/ArinWarev1/Forms_Report/Report_Graph_auth.Designer.vb new file mode 100644 index 0000000..ca765cc --- /dev/null +++ b/ArinWarev1/Forms_Report/Report_Graph_auth.Designer.vb @@ -0,0 +1,138 @@ + _ +Partial Class Report_Graph_auth + Inherits CForm + + 'Form은 Dispose를 재정의하여 구성 요소 목록을 정리합니다. + _ + Protected Overrides Sub Dispose(ByVal disposing As Boolean) + Try + If disposing AndAlso components IsNot Nothing Then + components.Dispose() + End If + Finally + MyBase.Dispose(disposing) + End Try + End Sub + + 'Windows Form 디자이너에 필요합니다. + Private components As System.ComponentModel.IContainer + + '참고: 다음 프로시저는 Windows Form 디자이너에 필요합니다. + '수정하려면 Windows Form 디자이너를 사용하십시오. + '코드 편집기를 사용하여 수정하지 마십시오. + _ + Private Sub InitializeComponent() + Me.components = New System.ComponentModel.Container() + Dim ReportDataSource1 As Microsoft.Reporting.WinForms.ReportDataSource = New Microsoft.Reporting.WinForms.ReportDataSource() + Dim ReportDataSource2 As Microsoft.Reporting.WinForms.ReportDataSource = New Microsoft.Reporting.WinForms.ReportDataSource() + Dim ReportDataSource3 As Microsoft.Reporting.WinForms.ReportDataSource = New Microsoft.Reporting.WinForms.ReportDataSource() + Dim ReportDataSource4 As Microsoft.Reporting.WinForms.ReportDataSource = New Microsoft.Reporting.WinForms.ReportDataSource() + Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(Report_Graph_auth)) + Me.bs_req = New System.Windows.Forms.BindingSource(Me.components) + Me.DSR = New Eco2Ar.DSR() + Me.bs_requse = New System.Windows.Forms.BindingSource(Me.components) + Me.bs_reqinfo = New System.Windows.Forms.BindingSource(Me.components) + Me.bs_reqinfodata = New System.Windows.Forms.BindingSource(Me.components) + Me.StatusStrip1 = New System.Windows.Forms.StatusStrip() + Me.lb_msg = New System.Windows.Forms.ToolStripStatusLabel() + Me.ReportViewer1 = New Microsoft.Reporting.WinForms.ReportViewer() + CType(Me.bs_req, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.DSR, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.bs_requse, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.bs_reqinfo, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.bs_reqinfodata, System.ComponentModel.ISupportInitialize).BeginInit() + Me.StatusStrip1.SuspendLayout() + Me.SuspendLayout() + ' + 'bs_req + ' + Me.bs_req.DataMember = "Graph_Req" + Me.bs_req.DataSource = Me.DSR + ' + 'DSR + ' + Me.DSR.DataSetName = "DSR" + Me.DSR.SchemaSerializationMode = System.Data.SchemaSerializationMode.IncludeSchema + ' + 'bs_requse + ' + Me.bs_requse.DataMember = "Graph_ReqUse" + Me.bs_requse.DataSource = Me.DSR + ' + 'bs_reqinfo + ' + Me.bs_reqinfo.DataMember = "Graph_Info" + Me.bs_reqinfo.DataSource = Me.DSR + ' + 'bs_reqinfodata + ' + Me.bs_reqinfodata.DataMember = "Graph_Info_data" + Me.bs_reqinfodata.DataSource = Me.DSR + ' + 'StatusStrip1 + ' + Me.StatusStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.lb_msg}) + Me.StatusStrip1.Location = New System.Drawing.Point(0, 413) + Me.StatusStrip1.Name = "StatusStrip1" + Me.StatusStrip1.Size = New System.Drawing.Size(845, 22) + Me.StatusStrip1.TabIndex = 15 + Me.StatusStrip1.Text = "StatusStrip1" + ' + 'lb_msg + ' + Me.lb_msg.Name = "lb_msg" + Me.lb_msg.Size = New System.Drawing.Size(59, 17) + Me.lb_msg.Text = "<메세지>" + ' + 'ReportViewer1 + ' + Me.ReportViewer1.Dock = System.Windows.Forms.DockStyle.Fill + ReportDataSource1.Name = "DSR_Graph_Req" + ReportDataSource1.Value = Me.bs_req + ReportDataSource2.Name = "DSR_Graph_ReqUse" + ReportDataSource2.Value = Me.bs_requse + ReportDataSource3.Name = "DSR_Graph_Info" + ReportDataSource3.Value = Me.bs_reqinfo + ReportDataSource4.Name = "DSR_Graph_Info_data" + ReportDataSource4.Value = Me.bs_reqinfodata + Me.ReportViewer1.LocalReport.DataSources.Add(ReportDataSource1) + Me.ReportViewer1.LocalReport.DataSources.Add(ReportDataSource2) + Me.ReportViewer1.LocalReport.DataSources.Add(ReportDataSource3) + Me.ReportViewer1.LocalReport.DataSources.Add(ReportDataSource4) + Me.ReportViewer1.LocalReport.ReportEmbeddedResource = "Eco2Ar.Report_Graph_auth.rdlc" + Me.ReportViewer1.Location = New System.Drawing.Point(0, 0) + Me.ReportViewer1.Name = "ReportViewer1" + Me.ReportViewer1.Size = New System.Drawing.Size(845, 413) + Me.ReportViewer1.TabIndex = 16 + ' + 'Report_Graph_auth + ' + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.None + Me.ClientSize = New System.Drawing.Size(845, 435) + Me.Controls.Add(Me.ReportViewer1) + Me.Controls.Add(Me.StatusStrip1) + Me.Font = New System.Drawing.Font("돋움", 8.999999!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon) + Me.Name = "Report_Graph_auth" + Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen + Me.Text = "결과그래프" + CType(Me.bs_req, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.DSR, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.bs_requse, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.bs_reqinfo, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.bs_reqinfodata, System.ComponentModel.ISupportInitialize).EndInit() + Me.StatusStrip1.ResumeLayout(False) + Me.StatusStrip1.PerformLayout() + Me.ResumeLayout(False) + Me.PerformLayout() + + End Sub + Friend WithEvents StatusStrip1 As System.Windows.Forms.StatusStrip + Friend WithEvents lb_msg As System.Windows.Forms.ToolStripStatusLabel + Friend WithEvents ReportViewer1 As Microsoft.Reporting.WinForms.ReportViewer + Friend WithEvents bs_req As System.Windows.Forms.BindingSource + Friend WithEvents DSR As Eco2Ar.DSR + Friend WithEvents bs_requse As System.Windows.Forms.BindingSource + Friend WithEvents bs_reqinfo As System.Windows.Forms.BindingSource + Friend WithEvents bs_reqinfodata As System.Windows.Forms.BindingSource +End Class diff --git a/ArinWarev1/Forms_Report/Report_Graph_auth.rdlc b/ArinWarev1/Forms_Report/Report_Graph_auth.rdlc new file mode 100644 index 0000000..c31d705 --- /dev/null +++ b/ArinWarev1/Forms_Report/Report_Graph_auth.rdlc @@ -0,0 +1,3403 @@ + + + 에너지효율등급 인증서 + 만든이? + + + + SQL + + + 86b9a4cd-3b18-499f-bc7b-ae4126af8be2 + + + + + + + Gubun + System.String + + + Mon + System.String + + + Req + System.Single + + + + DummyDataSource + + true + + + DSR + Graph_Req + + + + + + Gubun + System.String + + + type + System.String + + + Req + System.Single + + + + DummyDataSource + + true + + + DSR + Graph_ReqUse + + + + + + name + System.String + + + year + System.String + + + juso + System.String + + + chung + System.String + + + myoun + System.String + + + ydo + System.String + + + i1 + System.String + + + i2 + System.String + + + i3 + System.String + + + co2 + System.Int16 + + + grade + System.String + + + + DummyDataSource + + true + + + DSR + Graph_Info + + + + + + 난방소요 + System.Single + + + 급탕소요 + System.Single + + + 냉방소요 + System.Single + + + 조명소요 + System.Single + + + 환기소요 + System.Single + + + 난방소요1 + System.Single + + + 급탕소요1 + System.Single + + + 냉방소요1 + System.Single + + + 조명소요1 + System.Single + + + 환기소요1 + System.Single + + + 난방co2 + System.Single + + + 급탕co2 + System.Single + + + 냉방co2 + System.Single + + + 조명co2 + System.Single + + + 환기co2 + System.Single + + + + DummyDataSource + + true + + + DSR + Graph_Info_data + + + + + + + + + ContentsOnly + 12.81cm + 13.09cm + 0.34392cm + 1.87831cm + + =iif(Parameters!p_co2.Value >= 80,true,false) + + + + + ContentsOnly + 11.83cm + 13.02cm + 0.34392cm + 1.87831cm + 1 + + + + ContentsOnly + 11.2cm + 13.02cm + 0.34392cm + 1.87831cm + 2 + + + + ContentsOnly + 10.57cm + 13.02cm + 0.34392cm + 1.87831cm + 3 + + + + ContentsOnly + 8.19cm + 13.09cm + 0.34392cm + 1.87831cm + 4 + + + + ContentsOnly + 9.87cm + 13.02cm + 0.34392cm + 1.87831cm + 5 + + + + ContentsOnly + 9.45cm + 12.95cm + 0.34392cm + 1.87831cm + 6 + + + + ContentsOnly + 8.68cm + 13.09cm + 0.34392cm + 1.87831cm + 7 + + + + true + true + + + + + 인 증 기 관 의 장 + + + + + + + + + + 24.43cm + 4.13cm + 1.05cm + 10.5cm + 8 + + + + + + + 1.6811in + + + 5.49111in + + + + + 0.23622in + + + + + true + true + + + + + 단위면적당 에너지소요량 + + + + + + + 5 + + + + + + + + true + true + + + + + 해당 건축물에 설치된 난방, 냉방, 급탕, 조명, 환기시스템에서 소요되는 단위면적당 에너지량 + + + + + + + + + + + + 0.23622in + + + + + true + true + + + + + 단위면적당 1차에너지소요량 + + + + + + + + 3 + + + + + + + + true + true + + + + + 에너지소요량에 연료의 채취, 가공, 운송, 변환, 공급 과정 등의 손실을 포함한 단위면적당 에너지량 + + + + + + + + + + + + 0.23622in + + + + + true + true + + + + + 단위면적당 CO2배출량 + + + + + + + + 1 + + + + + + + + true + true + + + + + 에너지소요량에서 산출한 단위면적당 이산화탄소 배출량 + + + + + + + + + + + + + + + + + + + + + + + Detail + + + + + + + Detail_Collection + Output + true + + + + DSR_Graph_Info + 21cm + 0.14cm + 1.8cm + 18.21741cm + 9 + + + 돋움 + + + + + + + 0.90945in + + + 2.14961in + + + 2.06693in + + + 2.06693in + + + + + 0.49606in + + + + + true + true + + + + + 구분 + + + + + + + 27 + + + Gainsboro + Middle + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + 단위면적당 에너지소요량 +(kWh/㎡년) + + + + + + + textbox56 + 26 + + + Gainsboro + Middle + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + 단위면적당 1차 에너지소요량 +(kWh㎡년) + + + + + + + textbox57 + 25 + + + Gainsboro + Middle + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + 단위면적당 CO2 배출량 +(kg㎡년) + + + + + + + textbox58 + 24 + + + Gainsboro + Middle + 2pt + 2pt + 2pt + 2pt + + + + + + + + 0.23622in + + + + + true + true + + + + + 난방 + + + + + + + 23 + + + Middle + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!난방소요.Value + + + + + + + 난방소요 + 22 + + + Middle + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!난방소요1.Value + + + + + + + 난방소요1 + 21 + + + Middle + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!난방co2.Value + + + + + + + 난방co2 + 20 + + + Middle + 2pt + 2pt + 2pt + 2pt + + + + + + + + 0.23622in + + + + + true + true + + + + + 급탕 + + + + + + + 19 + + + Middle + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!급탕소요.Value + + + + + + + 급탕소요 + 18 + + + Middle + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!급탕소요1.Value + + + + + + + 급탕소요1 + 17 + + + Middle + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!급탕co2.Value + + + + + + + 급탕co2 + 16 + + + Middle + 2pt + 2pt + 2pt + 2pt + + + + + + + + 0.23622in + + + + + true + true + + + + + 냉방 + + + + + + + 15 + + + Middle + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!냉방소요.Value + + + + + + + 냉방소요 + 14 + + + Middle + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!냉방소요1.Value + + + + + + + 냉방소요1 + 13 + + + Middle + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!냉방co2.Value + + + + + + + 냉방co2 + 12 + + + Middle + 2pt + 2pt + 2pt + 2pt + + + + + + + + 0.23622in + + + + + true + true + + + + + 조명 + + + + + + + 11 + + + Middle + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!조명소요.Value + + + + + + + 조명소요 + 10 + + + Middle + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!조명소요1.Value + + + + + + + 조명소요1 + 9 + + + Middle + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!조명co2.Value + + + + + + + 조명co2 + 8 + + + Middle + 2pt + 2pt + 2pt + 2pt + + + + + + + + 0.23622in + + + + + true + true + + + + + 환기 + + + + + + + 7 + + + Middle + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!환기소요.Value + + + + + + + 환기소요 + 6 + + + Middle + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!환기소요1.Value + + + + + + + 환기소요1 + 5 + + + Middle + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!환기co2.Value + + + + + + + 환기co2 + 4 + + + Middle + 2pt + 2pt + 2pt + 2pt + + + + + + + + 0.23622in + + + + + true + true + + + + + 합계 + + + + + + + 3 + + + Middle + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + + + + + + + Middle + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + + + + + + + Middle + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + + + + + + + Middle + 2pt + 2pt + 2pt + 2pt + + + + + + + + + + + + + + + + + + + + After + true + + + + Detail + + + + + + + + + + Detail_Collection + Output + true + + + + DSR_Graph_Info_data + 15.89cm + 0.21cm + 4.85999cm + 18.27002cm + 10 + + + 돋움 + + + + true + true + + + + + 용도별 CO2 배출량 + + + + + + + 14.84cm + 0.15741cm + 0.7cm + 18.2cm + 11 + + + Silver + Middle + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + CO2 배출량 + + + + + + + 6.58cm + 9.31cm + 0.7cm + 9.17cm + 12 + NoOutput + + + Silver + Middle + 2pt + 2pt + 2pt + 2pt + BiDiOverride + + + + + + + 1.24281in + + + 0.1378in + + + 2.25984in + + + + + 0.27559in + + + + + true + true + + + + + 인증 개요 + + + + + + + 18 + + + 3 + + + + + + + + 0.23622in + + + + + true + true + + + + + 인증번호 + + + + + + + 17 + + + + + + + + true + true + + + + + : + + + + + + + + + + + true + true + + + + + =Fields!i1.Value + + + + + + + + + + + 0.23622in + + + + + true + true + + + + + 인증기관 + + + + + + + 14 + + + + + + + + true + true + + + + + : + + + + + + + + + + + true + true + + + + + =Fields!i2.Value + + + + + + + + + + + 0.23622in + + + + + true + true + + + + + 운영기관 + + + + + + + 11 + + + + + + + + true + true + + + + + : + + + + + + + + + + + true + true + + + + + =Fields!i3.Value + + + + + + + + + + + 0.23622in + + + + + true + true + + + + + + + + + + + + + + + + true + true + + + + + + + + + + + + + + + + true + true + + + + + + + + + + + + + + + + 0.23622in + + + + + true + true + + + + + + + + + + + + + + + + true + true + + + + + + + + + + + + + + + + true + true + + + + + + + + + + + + + + + + 0.23622in + + + + + true + true + + + + + + + + + + + + + + + + true + true + + + + + + + + + + + + + + + + true + true + + + + + + + + + + + + + + + + + + + + + + + + + + + After + true + + + + Detail + + + + + + + + + + Detail_Collection + Output + true + + + + DSR_Graph_Info + 2.03cm + 9.31cm + 4.29999cm + 9.24674cm + 13 + NoOutput + + + 돋움 + BiDiOverride + + + + true + Attribute + true + + + + + 업무용건축물 에너지효율등급 인증서 + + + + + + + textbox1 + 0.63cm + 2.66cm + 1cm + 13cm + 14 + NoOutput + + + + Embedded + ID22 + image/png + Fit + 7.56cm + 7.56cm + 6.86cm + 4.97cm + 15 + + + + Embedded + ID11 + image/png + Fit + 7.49cm + 0.21cm + 7cm + 5.18cm + 16 + + + + + + + 0.97684in + + + 0.11024in + + + 2.53543in + + + + + 0.27559in + + + + + true + true + + + + + 건축물 개요 + + + + + + + textbox4 + 18 + + + 3 + + + + + + + + 0.23622in + + + + + true + true + + + + + 건축물명 + + + + + + + textbox7 + 17 + + + + + + + + true + true + + + + + : + + + + + + + + + + + true + true + + + + + =Fields!name.Value + + + + + + + + + + + 0.23622in + + + + + true + true + + + + + 준공연도 + + + + + + + textbox22 + 14 + + + + + + + + true + true + + + + + : + + + + + + + + + + + true + true + + + + + =Fields!year.Value + + + + + + + + + + + 0.23622in + + + + + true + true + + + + + 주소 + + + + + + + textbox19 + 11 + + + + + + + + true + true + + + + + : + + + + + + + + + + + true + true + + + + + =Fields!juso.Value + + + + + + + + + + + 0.23622in + + + + + true + true + + + + + 층수 + + + + + + + textbox16 + 8 + + + + + + + + true + true + + + + + : + + + + + + + + + + + true + true + + + + + =Fields!chung.Value + + + + + + + + + + + 0.23622in + + + + + true + true + + + + + 연면적 + + + + + + + textbox13 + 5 + + + + + + + + true + true + + + + + : + + + + + + + + + + + true + true + + + + + =Fields!myoun.Value + + + + + + + + + + + 0.23622in + + + + + true + true + + + + + 주용도 + + + + + + + textbox10 + 2 + + + + + + + + true + true + + + + + : + + + + + + + + + + + true + true + + + + + =Fields!ydo.Value + + + + + + + + + + + + + + + + + + + + + + After + true + + + + Detail + + + + + + + + + + Detail_Collection + Output + true + + + + DSR_Graph_Info + 2.03cm + 4.29999cm + 9.20118cm + 17 + NoOutput + + + 돋움 + BiDiOverride + + + + true + true + + + + + 에너지효율등급 + + + + + + + textbox9 + 6.58cm + 0.7cm + 9.17cm + 18 + NoOutput + + + Silver + Middle + 2pt + 2pt + 2pt + 2pt + BiDiOverride + + + + true + true + + + + + 년 월 일 + + + + + + + + textbox66 + 23.17cm + 6.3cm + 0.91cm + 5.74cm + 19 + + + + true + true + + + + + =Parameters!p_co2.Value + + + + + + + ContentsOnly + 8.33cm + 4.48cm + 0.50265cm + 1.40212cm + 21 + + + + ContentsOnly + 0.21cm + 26.39cm + 18.82698cm + + + 돋움 + + + + 26.6cm + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + 1.13975in + + + 0.907in + + + 0.98425in + + + 1.30283in + + + 0.98425in + + + 1.05792in + + + 1.1725in + + + 1.28708in + + + + + 0.38205in + + + + + true + true + + + + + ■ + + + + =Parameters!PTitle.Value + + + + 건물개요 + + + + + + + Textbox84 + + + Middle + 4pt + 0cm + 0cm + 0cm + + + 8 + + + + + + + + + + + + + 0.26867in + + + + + true + true + + + + + 면적: + + + + + + + Textbox1 + + + Middle + 4pt + 0cm + 0cm + 0cm + + + + + + + + true + true + + + + + 용도분류 + + + + + + + Textbox3 + + + Middle + 4pt + 0cm + 0cm + 0cm + + + + + + + + true + true + + + + + 용도분류 + + + + + + + Textbox56 + + + Middle + 4pt + 0cm + 0cm + 0cm + + + + + + + + true + true + + + + + 용도수수료입금일 + + + + + + + Textbox5 + + + Middle + 4pt + 0cm + 0cm + 0cm + + + + + + + + true + true + + + + + 용도수수료입금일 + + + + + + + Textbox101 + + + Middle + 4pt + 0cm + 0cm + 0cm + + + + + + + + true + true + + + + + 용도수수료입금액 + + + + + + + Textbox8 + + + Middle + 4pt + 0cm + 0cm + 0cm + + + + + + + + true + true + + + + + + + + + + + + Textbox9 + + + Middle + 4pt + 0cm + 0cm + 0cm + + + + + + + + true + true + + + + + + + + + + + + Textbox10 + + + Middle + 4pt + 0cm + 0cm + 0cm + + + + + + + + 0.28951in + + + + + true + true + + + + + 대지면적(㎡) + + + + + + + Textbox2 + + + Middle + 4pt + 0cm + 0cm + 0cm + + + + + + + + true + true + + + + + =Fields!buildm21.Value + + + + + + + buildm21 + + + Middle + 4pt + 0cm + 0cm + 0cm + + + + + + + + true + true + + + + + =Fields!용도분류.Value + + + + + + + 용도분류 + + + Middle + 4pt + 0cm + 0cm + 0cm + + + + + + + + true + true + + + + + 건축면적(㎡) + + + + + + + Textbox6 + + + Middle + 4pt + 0cm + 0cm + 0cm + + + + + + + + true + true + + + + + =Fields!용도수수료입금일.Value + + + + + + + 용도수수료입금일 + + + Middle + 4pt + 0cm + 0cm + 0cm + + + + + + + + true + true + + + + + =Fields!buildm22.Value + + + + + + + buildm22 + + + Middle + 4pt + 0cm + 0cm + 0cm + + + + + + + + true + true + + + + + 연면적(㎡) + + + + + + + Textbox16 + + + Middle + 4pt + 0cm + 0cm + 0cm + + + + + + + + true + true + + + + + =Fields!buildm23.Value + + + + + + + buildm23 + + + Middle + 4pt + 0cm + 0cm + 0cm + + + + + + + + 0.29135in + + + + + true + true + + + + + 규모: + + + + + + + Textbox17 + + + Middle + 4pt + 0cm + 0cm + 0cm + + + 4 + + + + + + + + + true + true + + + + + + + + + + + + Textbox103 + + + Middle + 4pt + 0cm + 0cm + 0cm + + + + + + + + true + true + + + + + 구조: + + + + + + + Textbox20 + + + Middle + 4pt + 0cm + 0cm + 0cm + + + 3 + + + + + + + + 0.29135in + + + + + true + true + + + + + ="지하" & Fields!builds1.Value & ＂층／지상＂ & Fields!builds2.Value & "층" + + + + + + + builds1 + + + Middle + 4pt + 0cm + 0cm + 0cm + + + 4 + + + + + + + + + true + true + + + + + + + + + + + + Textbox104 + + + Middle + 4pt + 0cm + 0cm + 0cm + + + + + + + + true + true + + + + + =Fields!gujo.Value + + + + + + + gujo + + + Middle + 4pt + 0cm + 0cm + 0cm + + + 3 + + + + + + + + 0.29135in + + + + + true + true + + + + + 소재지: + + + + + + + Textbox34 + + + Middle + 4pt + 0cm + 0cm + 0cm + + + 8 + + + + + + + + + + + + + 0.29135in + + + + + true + true + + + + + =Fields!buildaddr.Value + + + + + + + buildaddr + + + Middle + 4pt + 0cm + 0cm + 0cm + + + 8 + + + + + + + + + + + + + 0.29135in + + + + + true + true + + + + + 신청일： + + + + + + + Textbox49 + + + Middle + 4pt + 0cm + 0cm + 0cm + + + + + + + + true + true + + + + + =FormatDateTime(Fields!reqdate.Value) + + + + + + + reqdate + + + Middle + 4pt + 0cm + 0cm + 0cm + + + 3 + + + + + + + + true + true + + + + + + + + + + + + Textbox105 + + + Middle + 4pt + 0cm + 0cm + 0cm + + + + + + + + true + true + + + + + 접수일： + + + + + + + Textbox52 + + + Middle + 4pt + 0cm + 0cm + 0cm + + + + + + + + true + true + + + + + =FormatDateTime(Fields!jubsudate.Value) + + + + + + + jubsudate + + + Middle + 4pt + 0cm + 0cm + 0cm + + + 2 + + + + + + + 0.29135in + + + + + true + true + + + + + 준공일： + + + + + + + Textbox55 + + + Middle + 4pt + 0cm + 0cm + 0cm + + + + + + + + true + true + + + + + =FormatDateTime(Fields!existdate.Value) + + + + 5 + + + + + + + existdate + + + Middle + 4pt + 0cm + 0cm + 0cm + + + 3 + + + + + + + + true + true + + + + + + + + + + + + Textbox106 + + + Middle + 4pt + 0cm + 0cm + 0cm + + + + + + + + true + true + + + + + 인증발급일： + + + + + + + Textbox58 + + + Middle + 4pt + 0cm + 0cm + 0cm + + + + + + + + true + true + + + + + =FormatDateTime(Fields!injungdate.Value) + + + + + + + injungdate + + + Middle + 4pt + 0cm + 0cm + 0cm + + + 2 + + + + + + + 0.23622in + + + + + true + true + + + + + 용도분류 + + + + + + + Textbox35 + + + Middle + 4pt + 0cm + 0cm + 0cm + + + + + + + + true + true + + + + + =Fields!용도분류.Value + + + + + + + 용도분류1 + + + Middle + 4pt + 0cm + 0cm + 0cm + + + + + + + + true + true + + + + + 수수료입금일 + + + + + + + Textbox88 + + + Middle + 4pt + 0cm + 0cm + 0cm + + + + + + + + true + true + + + + + =Fields!용도수수료입금일.Value + + + + + + + 용도수수료입금일1 + + + Middle + 4pt + 0cm + 0cm + 0cm + + + + + + + + true + true + + + + + 수수료 + + + + + + + Textbox111 + + + Middle + 4pt + 0cm + 0cm + 0cm + + + + + + + + true + true + + + + + =Fields!용도수수료입금액.Value + + + + + + + 용도수수료입금액 + + + Middle + 4pt + 0cm + 0cm + 0cm + + + true + + + + + + true + true + + + + + + + + + + + + Textbox40 + + + Middle + 4pt + 0cm + 0cm + 0cm + + + + + + + + true + true + + + + + + + + + + + + Textbox44 + + + Middle + 4pt + 0cm + 0cm + 0cm + + + + + + + + + + + + + + + + + + + + + + + + After + + + After + + + + + + + + + + + + + + + + + DS_TBL_DESC + 7.6486cm + 1.46727cm + 7.42836cm + 22.44238cm + 1 + + + + + + true + true + + + + + ■ 평가결과 등급 + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + 에너지효율등급 평가contr 기준 및 해당 건축물의 결과 등급을 보여줍니다． + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + ■ 예비인증평가 : '신축업무용건축물'에 대하여 건축물 완공 전의 설계 도서에 근거하여 연간 단위면적 당 1차 에너지 소요량①을 산출하고 이에 따라 예비인증등급 평가 + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + ■ 본인증 평가 : '신축업무용건축물'에 대하여 건축물 준공 승인 전에 최종설계도서 및 현장 확인을 토대로 연간 단위면적 당 1차 에너지 소요량을 산출하고 이에 따라 본인증등급 평가 + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + ① 단위면적당 1차 에너지소요량 : 에너지소요량에 연료를 채취, 가공, 운송, 변환, 공급 가정 등의 손실을 포함한 단위면적당 에너지량 + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + true + true + + + + + 건축물 에너지효율등급 인증평가서 + + + + + + + Textbox14 + 1.29801cm + 0.33849cm + 0.76778cm + 13.28554cm + + + Middle + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =Parameters!PTitle.Value + + + + + + + Textbox14 + 0.24448cm + 0.33849cm + 0.76778cm + 13.28554cm + 1 + + + Middle + 2pt + 2pt + 2pt + 2pt + + + + true + 0.3175cm + 4.48658cm + 2.19604cm + 14.41778cm + 7 + + + Tomato + + + + true + true + + + + + 「건축물 에너지효율등급 인증규정(국토해양부고시 제2009-1306호, 지식경제부고시 제2009-329호:2009.12.31) + + + + 」 + + + + + + + Textbox42 + 2.74779cm + 3.03529cm + 1.17263cm + 15.8426cm + 8 + + + Middle + 2pt + 2pt + 2pt + 2pt + + + + + + + 0.94574in + + + 1.61656in + + + + + 0.47658in + + + + + true + true + + + + + 등급 + + + + + + + Textbox30 + + + Middle + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + 1차에너지소요량 + + + + + + + + + （ｋｗｈ／ｍ：년） + + + + + + + Textbox31 + + + Middle + 2pt + 2pt + 2pt + 2pt + + + + + + + + 0.2698in + + + + + true + true + + + + + +++ + + + + + + + Textbox41 + + + =iif(Parameters!PGrade.Value=1,"Brown","Transparent") + Middle + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Parameters!PG1.Value + + + + + + + Textbox51 + + + =iif(Parameters!PGrade.Value=1,"Brown","Transparent") + Middle + 2pt + 2pt + 2pt + 2pt + + + + + + + + 0.28483in + + + + + true + true + + + + + ++ + + + + + + + Textbox54 + + + =iif(Parameters!PGrade.Value=2,"Brown","Transparent") + Middle + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Parameters!PG2.Value + + + + + + + Textbox93 + + + =iif(Parameters!PGrade.Value=2,"Brown","Transparent") + Middle + 2pt + 2pt + 2pt + 2pt + + + + + + + + 0.23659in + + + + + true + true + + + + + + + + + + + + + Textbox38 + + + =iif(Parameters!PGrade.Value=3,"Brown","Transparent") + Middle + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Parameters!PG3.Value + + + + + + + Textbox94 + + + =iif(Parameters!PGrade.Value=3,"Brown","Transparent") + Middle + 2pt + 2pt + 2pt + 2pt + + + + + + + + 0.23874in + + + + + true + true + + + + + 1 + + + + + + + Textbox33 + + + =iif(Parameters!PGrade.Value=4,"Brown","Transparent") + Middle + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Parameters!PG4.Value + + + + + + + Textbox95 + + + =iif(Parameters!PGrade.Value=4,"Brown","Transparent") + Middle + 2pt + 2pt + 2pt + 2pt + + + + + + + + 0.25694in + + + + + true + true + + + + + 2 + + + + + + + Textbox24 + + + =iif(Parameters!PGrade.Value=5,"Brown","Transparent") + Middle + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Parameters!PG5.Value + + + + + + + Textbox96 + + + =iif(Parameters!PGrade.Value=5,"Brown","Transparent") + Middle + 2pt + 2pt + 2pt + 2pt + + + + + + + + 0.23622in + + + + + true + true + + + + + 3 + + + + + + + Textbox81 + + + =iif(Parameters!PGrade.Value=5,"Brown","Transparent") + Middle + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Parameters!PG6.Value + + + + + + + Textbox83 + + + =iif(Parameters!PGrade.Value=5,"Brown","Transparent") + Middle + 2pt + 2pt + 2pt + 2pt + + + + + + + + 0.23622in + + + + + true + true + + + + + 4 + + + + + + + Textbox85 + + + =iif(Parameters!PGrade.Value=5,"Brown","Transparent") + Middle + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Parameters!PG7.Value + + + + + + + Textbox86 + + + =iif(Parameters!PGrade.Value=5,"Brown","Transparent") + Middle + 2pt + 2pt + 2pt + 2pt + + + + + + + + 0.23622in + + + + + true + true + + + + + 5 + + + + + + + Textbox87 + + + =iif(Parameters!PGrade.Value=5,"Brown","Transparent") + Middle + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Parameters!PG8.Value + + + + + + + Textbox97 + + + =iif(Parameters!PGrade.Value=5,"Brown","Transparent") + Middle + 2pt + 2pt + 2pt + 2pt + + + + + + + + 0.23622in + + + + + true + true + + + + + 6 + + + + + + + Textbox89 + + + =iif(Parameters!PGrade.Value=5,"Brown","Transparent") + Middle + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Parameters!PG9.Value + + + + + + + Textbox90 + + + =iif(Parameters!PGrade.Value=5,"Brown","Transparent") + Middle + 2pt + 2pt + 2pt + 2pt + + + + + + + + 0.23622in + + + + + true + true + + + + + 7 + + + + + + + Textbox91 + + + =iif(Parameters!PGrade.Value=5,"Brown","Transparent") + Middle + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Parameters!PG10.Value + + + + + + + Textbox92 + + + =iif(Parameters!PGrade.Value=5,"Brown","Transparent") + Middle + 2pt + 2pt + 2pt + 2pt + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + DS_REQ_USE + 17.12596cm + 1.43552cm + 7.47923cm + 6.50824cm + 9 + + + + + + true + true + + + + + +++ + + + + + + #007139 + 10pt + 2pt + 2pt + 2pt + + + + true + true + + + + + ++ + + + + + + #007d43 + 10pt + 2pt + 2pt + 2pt + + + + true + true + + + + + + + + + + + + #009e4a + 10pt + 2pt + 2pt + 2pt + + + + true + true + + + + + 1 + + + + + + #55b84c + 10pt + 2pt + 2pt + 2pt + + + + true + true + + + + + 2 + + + + + + #8ac73b + 10pt + 2pt + 2pt + 2pt + + + + true + true + + + + + Less energy efficient + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + ◀+++ + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + ◀++ + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + ◀+ + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + ◀1 + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + ◀2 + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + 1.38886in + + + 1.30033in + + + 1.31497in + + + 0.91372in + + + 1.80336in + + + + + 0.2883in + + + + + true + true + + + + + ■ 항목별 평가결과 + + + + + + + Textbox77 + + + Middle + 2pt + 2pt + 2pt + 2pt + + + 5 + + + + + + + + + + 1.05762in + + + + + true + true + + + + + 구조체 열관류율 + + + + + + + 벽체종류 + + + Maroon + Middle + 2pt + 2pt + 2pt + 2pt + + + + + + + + + + + 0.67086in + + + 3.7703in + + + 0.89123in + + + + + 0.26441in + + + + + true + true + + + + + 구분 + + + + + + + Textbox213 + + + Brown + Middle + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + 단열재 종류 + + + + + + + Textbox214 + + + Brown + Middle + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + 열관류율 + + + + + + + Textbox215 + + + Brown + Middle + 2pt + 2pt + 2pt + 2pt + + + + + + + + 0.26441in + + + + + true + true + + + + + 벽체 + + + + + + + Textbox216 + + + Tan + Middle + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =First(Fields!벽체종류.Value) + + + + + + + Textbox130 + + + Middle + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Sum(Fields!벽체값.Value) + + + + + + + 벽체값 + + + Middle + 2pt + 2pt + 2pt + 2pt + + + + + + + + 0.26441in + + + + + true + true + + + + + 지붕 + + + + + + + Textbox207 + + + Tan + Middle + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =First(Fields!지붕종류.Value) + + + + + + + 지붕종류 + + + Middle + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Sum(Fields!지붕값.Value) + + + + + + + 지붕값 + + + Middle + 2pt + 2pt + 2pt + 2pt + + + + + + + + 0.26441in + + + + + true + true + + + + + 바닥 + + + + + + + Textbox219 + + + Tan + Middle + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =First(Fields!바닥종류.Value) + + + + + + + 바닥종류 + + + Middle + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Sum(Fields!바닥값.Value) + + + + + + + 바닥값 + + + Middle + 2pt + 2pt + 2pt + 2pt + + + + + + + + + + + + + + + + + + + + + + + + STRUCT_YK + + + + + 4 + + + + + + + + + 0.1008in + + + + + true + true + + + + + + + + + + + + Textbox107 + + + Middle + 2pt + 2pt + 2pt + 2pt + + + 5 + + + + + + + + + + 0.46539in + + + + + true + true + + + + + 창호 + + + + + + + Textbox127 + + + Maroon + Middle + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!창호종류.Value + + + + + + + 창호종류 + + + Middle + 2pt + 2pt + 2pt + 2pt + + + 3 + + + + + + + + true + true + + + + + =Sum(Fields!창호값.Value) + + + + + + + 창호값 + + + Middle + 2pt + 2pt + 2pt + 2pt + + + + + + + + 0.1008in + + + + + true + true + + + + + + + + + + + + Textbox134 + + + Middle + 2pt + 2pt + 2pt + 2pt + + + 5 + + + + + + + + + + 0.27788in + + + + + true + true + + + + + 온열원 설비 + + + + + + + Textbox139 + + + Maroon + Middle + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!온열원설비방식.Value + + + + + + + 온열원설비방식 + + + Middle + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!온열원설비연료.Value + + + + + + + 온열원설비연료 + + + Middle + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + + + + + + + + Textbox142 + + + Middle + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + + + + + + + + Textbox143 + + + Middle + 2pt + 2pt + 2pt + 2pt + + + + + + + + 0.26747in + + + + + true + true + + + + + 냉열원 설비 + + + + + + + Textbox144 + + + Maroon + Middle + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!냉열원설비방식.Value + + + + + + + 냉열원설비방식 + + + Middle + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!냉열원설비연료.Value + + + + + + + 냉열원설비연료 + + + Middle + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + + + + + + + + Textbox147 + + + Middle + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + + + + + + + + Textbox148 + + + Middle + 2pt + 2pt + 2pt + 2pt + + + + + + + + 0.2883in + + + + + true + true + + + + + 급탕 설비 + + + + + + + Textbox149 + + + Maroon + Middle + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!급탕설비방식.Value + + + + + + + 급탕설비방식 + + + Middle + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!급탕설비연료.Value + + + + + + + 급탕설비연료 + + + Middle + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + + + + + + + + Textbox152 + + + Middle + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + + + + + + + + Textbox153 + + + Middle + 2pt + 2pt + 2pt + 2pt + + + + + + + + 0.09039in + + + + + true + true + + + + + + + + + + + + Textbox154 + + + Middle + 2pt + 2pt + 2pt + 2pt + + + 5 + + + + + + + + + + 0.57997in + + + + + true + true + + + + + 조명설비 + + + + + + + Textbox159 + + + Maroon + Middle + 2pt + 2pt + 2pt + 2pt + + + + + + + + + + + 1.64536in + + + 3.68703in + + + + + 0.28999in + + + + + true + true + + + + + 주거실 조명지원 + + + + + + + Textbox228 + + + Tan + Middle + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!주거실조명전력.Value + + + + + + + 주거실조명전력 + + + Middle + 2pt + 2pt + 2pt + 2pt + + + + + + + + 0.28999in + + + + + true + true + + + + + 주조명광원 + + + + + + + Textbox234 + + + Tan + Middle + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!주조명광원.Value + + + + + + + 주조명광원 + + + Middle + 2pt + 2pt + 2pt + 2pt + + + + + + + + + + + + + + + + + + + + + STRUCT_YK + + + + + 4 + + + + + + + + + 0.07997in + + + + + true + true + + + + + + + + + + + + Textbox169 + + + Middle + 2pt + 2pt + 2pt + 2pt + + + 5 + + + + + + + + + + 1.01747in + + + + + true + true + + + + + 지열설비 + + + + + + + Textbox174 + + + Maroon + Middle + 2pt + 2pt + 2pt + 2pt + + + + + + + + + + + 1.64536in + + + 3.68703in + + + + + 0.25437in + + + + + true + true + + + + + 지열히트펌프용량 + + + + + + + Textbox255 + + + Tan + Middle + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =First(Fields!지열히트펌프용량.Value) + + + + + + + 지열히트펌프용량 + + + Middle + 2pt + 2pt + 2pt + 2pt + + + + + + + + 0.25437in + + + + + true + true + + + + + 난방ＣＯＰ（－） + + + + + + + Textbox253 + + + Tan + Middle + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =First(Fields!지열난방COP.Value) + + + + + + + 지열난방COP + + + Middle + 2pt + 2pt + 2pt + 2pt + + + + + + + + 0.25437in + + + + + true + true + + + + + 냉방ＣＯＰ（－） + + + + + + + Textbox228 + + + Tan + Middle + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =First(Fields!지열냉방COP.Value) + + + + + + + Textbox230 + + + Middle + 2pt + 2pt + 2pt + 2pt + + + + + + + + 0.25437in + + + + + true + true + + + + + 비 고 + + + + + + + Textbox234 + + + Tan + Middle + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =First(Fields!지열비고.Value) + + + + + + + Textbox235 + + + Middle + 2pt + 2pt + 2pt + 2pt + + + + + + + + + + + + + + + + + + + + + + + STRUCT_YK + + + + + 4 + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + true + STRUCT_YK + + Start + + 56.62138cm + 1.40146cm + 11.72047cm + 17.07195cm + 21 + + + HY그래픽M + 12pt + + + + + + + 3.96113in + + + 2.71708in + + + + + 0.29872in + + + + + true + true + + + + + ■분야별 평가결과 + + + + + + + Textbox82 + + + Middle + 2pt + 2pt + 2pt + 2pt + + + 2 + + + + + + + 0.35313in + + + + + true + true + + + + + 구분 + + + + + + + Textbox4 + + + Maroon + Middle + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + 결과 + + + + + + + Textbox7 + + + Maroon + Middle + 2pt + 2pt + 2pt + 2pt + + + + + + + + 0.29247in + + + + + true + true + + + + + 에너지 요구량(kWh/㎡)② + + + + + + + Textbox11 + + + Middle + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Sum(Fields!값.Value, "ENERGY_REQ") + + + + + + + Textbox12 + + + Middle + 2pt + 2pt + 2pt + 2pt + + + + + + + + 0.29247in + + + + + true + true + + + + + 에너지 소요량(kWh/㎡)③ + + + + + + + Textbox13 + + + Middle + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + = Sum(Fields!값.Value, "ENERGY_USE") - Parameters!PNewUse.Value + + + + + + + Textbox18 + + + Middle + 2pt + 2pt + 2pt + 2pt + + + + + + + + 0.29247in + + + + + true + true + + + + + 1차 에너지 소요량(kWh/㎡) + + + + + + + Textbox19 + + + Middle + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Sum(Fields!값.Value, "ENERGY_1USE") + + + + + + + Textbox21 + + + Middle + 2pt + 2pt + 2pt + 2pt + + + + + + + + 0.29247in + + + + + true + true + + + + + 연간 CO2 발생량(㎏CO2/㎡)④ + + + + + + + Textbox22 + + + Middle + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Parameters!PP2CO2SUM.Value + + + + + + + Textbox23 + + + Middle + 2pt + 2pt + 2pt + 2pt + + + + + + + + + + + + + + + + + + + + + + + + + true + DS_REQ_USE + + Start + + 29.64752cm + 1.51076cm + 4.62719cm + 16.96265cm + 22 + + + + + + + + + + + + + + + + + + =Fields!종류.Value + + + + + + + + + + + + + =Sum(Fields!값.Value) + + + + + + + 축 제목 + + + + False + + + + + + + + + 0.5 + + NaN + NaN + NaN + + + + + 축 제목 + + + + False + + + + + + + + + 0.5 + + NaN + Opposite + NaN + NaN + + + + + + + 축 제목 + + + + + + + + + + + + 0.5 + + NaN + NaN + NaN + + + + + 축 제목 + + + + + + + + + + + + 0.5 + + NaN + Opposite + NaN + NaN + + + + + + + + + + + + + Black + Black + + + BrightPastel + + + + + 사용 가능한 데이터 없음 + + + ENERGY_1USE + 46.40346cm + 10.81828cm + 5.3262cm + 7.65514cm + 23 + + + White + None + + + + 52.42816cm + 1.45732cm + 0cm + 6.01367cm + 24 + + 1.5pt + + + + + true + true + + + + + ② 단위면적당 에너지요구량 : 건축물의 난방, 냉방, 급탕, 조명 부문에서 요구되는 단위면적당 에너지량 + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + ③ 단위면적당 에너지소요량 : 건출물에 설치된 난방, 냉방, 급탕, 조명, 환기시스템에서 소요되는 단위면적당 에너지량 + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + ④ 단위면적당 CO2 배출량 : 에너지소요량에서 산출한 단위면적당 이산화탄소 배출량 + + + + + + 2pt + 2pt + 2pt + 2pt + + + + 27.76964cm + 1.46727cm + 0cm + 6.01367cm + 28 + + 1.5pt + + + + + + + + 1.54047in + + + 1.79199in + + + + + 0.49664in + + + + + true + true + + + + + 단위면적당 연간 1차 에너지 소요량 +(kWh/㎡) + + + + + + + Textbox108 + + + Brown + Middle + 2pt + 2pt + 2pt + 2pt + + + 2 + + + + + + + 0.27789in + + + + + true + true + + + + + =Fields!종류.Value + + + + + + + 종류 + + + Middle + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!값.Value + + + + + + + 값 + + + Middle + 2pt + 2pt + 2pt + 2pt + + + + + + + + + + + + + + + + + + After + + + + + + + ENERGY_1USE + 46.40346cm + 1.51076cm + 1.96731cm + 8.46445cm + 29 + + + + + + + + + + + + + + + + + + =Fields!종류.Value + + + + + + + + + + + + + =Sum(Fields!값.Value) + + + + + + + 축 제목 + + + + False + + + + + + + + + 0.5 + + NaN + NaN + NaN + + + + + 축 제목 + + + + False + + + + + + + + + 0.5 + + NaN + Opposite + NaN + NaN + + + + + + + 축 제목 + + + + + + + + + + + + 0.5 + + NaN + NaN + NaN + + + + + 축 제목 + + + + + + + + + + + + 0.5 + + NaN + Opposite + NaN + NaN + + + + + + + + + + + + + Black + Black + + + BrightPastel + + + + + 사용 가능한 데이터 없음 + + + ENERGY_USE + 40.3507cm + 10.81827cm + 5.3262cm + 7.65514cm + 30 + + + White + None + + + + + + + 1.54047in + + + 1.79199in + + + + + 0.49664in + + + + + true + true + + + + + 단위면적당 연간 에너지 소요량 +(kWh/㎡) + + + + + + + Textbox108 + + + Brown + Middle + 2pt + 2pt + 2pt + 2pt + + + 2 + + + + + + + 0.27789in + + + + + true + true + + + + + =Fields!종류.Value + + + + + + + 종류 + + + Middle + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!값.Value + + + + + + + 값 + + + Middle + 2pt + 2pt + 2pt + 2pt + + + + + + + + + + + + + + + + + + After + + + + + + + ENERGY_USE + 40.3507cm + 1.51075cm + 1.96731cm + 8.46445cm + 31 + + + + + + + + + + + + + + + + + + =Fields!종류.Value + + + + + + + + + + + + + =Sum(Fields!값.Value) + + + + + + + 축 제목 + + + + False + + + + + + + + + 0.5 + + NaN + NaN + NaN + + + + + 축 제목 + + + + False + + + + + + + + + 0.5 + + NaN + Opposite + NaN + NaN + + + + + + + 축 제목 + + + + + + + + + + + + 0.5 + + NaN + NaN + NaN + + + + + 축 제목 + + + + + + + + + + + + 0.5 + + NaN + Opposite + NaN + NaN + + + + + + + + + + + + + Black + Black + + + BrightPastel + + + + + 사용 가능한 데이터 없음 + + + ENERGY_REQ + 34.64487cm + 10.81828cm + 5.3262cm + 7.65514cm + 32 + + + White + None + + + + + + + 1.54047in + + + 1.79199in + + + + + 0.49664in + + + + + true + true + + + + + 단위면적당 연간 에너지 요구량 +(kWh/㎡) + + + + + + + Textbox108 + + + Brown + Middle + 2pt + 2pt + 2pt + 2pt + + + 2 + + + + + + + 0.27789in + + + + + true + true + + + + + =Fields!종류.Value + + + + + + + 종류 + + + Middle + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!값.Value + + + + + + + 값 + + + Middle + 2pt + 2pt + 2pt + 2pt + + + + + + + + + + + + + + + + + + After + + + + + + + ENERGY_REQ + 34.64487cm + 1.51076cm + 1.96731cm + 8.46445cm + 33 + + + + + + true + true + + + + + ■등급평가기준 + + + + + + Middle + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + 3 + + + + + + #cedb29 + 10pt + 2pt + 2pt + 2pt + + + + true + true + + + + + 4 + + + + + + #fff200 + 10pt + 2pt + 2pt + 2pt + + + + true + true + + + + + 5 + + + + + + #ffca00 + 10pt + 2pt + 2pt + 2pt + + + + true + true + + + + + 6 + + + + + + #ff9f17 + 10pt + 2pt + 2pt + 2pt + + + + true + true + + + + + 7 + + + + + + #f87022 + 10pt + 2pt + 2pt + 2pt + + + + true + true + + + + + ◀3 + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + ◀4 + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + ◀5 + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + ◀6 + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + ◀7 + + + + + + 2pt + 2pt + 2pt + 2pt + + + + 29.38253in + + true + 6.432cm + 에너지 요구량 및 소요량 + + + 1.072cm + true + + 2cm + de861d81-a116-467e-9d9a-a15050ac4b88 + 29.7cm + + + + + Code + System.String + + + Desc + System.String + + + LT + System.String + + + GRP + System.String + + + UNIT + System.String + + + SIGN + System.String + + + EQ + System.String + + + CT + System.String + + + M00 + System.Single + + + M01 + System.Single + + + M02 + System.Single + + + M03 + System.Single + + + M04 + System.Single + + + M05 + System.Single + + + M06 + System.Single + + + M07 + System.Single + + + M08 + System.Single + + + M09 + System.Single + + + M10 + System.Single + + + M11 + System.Single + + + M12 + System.Single + + + COLG + System.Single + + + F + System.String + + + + DummyDataSource + + true + + + DSR + TReqUse + + + + 25.199cm + + 1cm + + + 7 + DSR_TReqUse + + + =Fields!GRP.Value + Equal + + 100 + + + + 0.134cm +
    + + + + + + + Desc + + 16 + =Fields!Desc.Value + + + + + + + UNIT + + 15 + =Fields!UNIT.Value + + + + + + + SIGN + + 14 + =Fields!SIGN.Value + + + + + + + EQ + + 13 + =Fields!EQ.Value + + + + + + + M00 + + 12 + =Fields!M00.Value + + + + + + + M01 + + 11 + =Fields!M01.Value + + + + + + + M02_1 + + 10 + =Fields!M02.Value + + + + + + + M03 + + 9 + =Fields!M03.Value + + + + + + + M04 + + 8 + =Fields!M04.Value + + + + + + + M05 + + 7 + =Fields!M05.Value + + + + + + + M06 + + 6 + =Fields!M06.Value + + + + + + + M07 + + 5 + =Fields!M07.Value + + + + + + + M08 + + 4 + =Fields!M08.Value + + + + + + + M09 + + 3 + =Fields!M09.Value + + + + + + + + 3 + =Fields!M10.Value + + + + + + + M11 + + 1 + =Fields!M11.Value + + + + + + + M12 + + =Fields!M12.Value + + + + + 0.536cm + + +
    + +
    + + + + + + + textbox2 + + 33 + true + 에너지요구량 + + + + + + + textbox3 + + 32 + true + [단위] + + + + + + + textbox4 + + 31 + true + [기호] + + + + + + + textbox5 + + 30 + true + + + + + + + + textbox11 + + 29 + true + 합계 + + + + + + + textbox14 + + 28 + true + 01월 + + + + + + + textbox17 + + 27 + true + 02월 + + + + + + + textbox20 + + 26 + true + 03월 + + + + + + + textbox23 + + 25 + true + 04월 + + + + + + + textbox26 + + 24 + true + 05월 + + + + + + + textbox29 + + 23 + true + 06월 + + + + + + + textbox32 + + 22 + true + 07월 + + + + + + + textbox35 + + 21 + true + 08월 + + + + + + + textbox38 + + 20 + true + 09월 + + + + + + + textbox44 + + 19 + true + 10월 + + + + + + + textbox41 + + 18 + true + 11월 + + + + + + + textbox47 + + 17 + true + 12월 + + + + + 0.603cm + + +
    + + + 3.015cm + + + 1.742cm + + + 1.742cm + + + 0.3cm + + + 1.6cm + + + 1.4cm + + + 1.4cm + + + 1.4cm + + + 1.4cm + + + 1.4cm + + + 1.4cm + + + 1.4cm + + + 1.4cm + + + 1.4cm + + + 1.4cm + + + 1.4cm + + + 1.4cm + + + 1.139cm +
    + + 6 + DSR_TReqUse + + + =Fields!GRP.Value + Equal + + 110 + + + + 1.541cm +
    + + + + + + + + 16 + =Fields!Desc.Value + + + + + + + + 15 + =Fields!UNIT.Value + + + + + + + + 14 + =Fields!SIGN.Value + + + + + + + + 13 + =Fields!EQ.Value + + + + + + + + 12 + =Fields!M00.Value + + + + + + + + 11 + =Fields!M01.Value + + + + + + + + 10 + =Fields!M02.Value + + + + + + + + 9 + =Fields!M03.Value + + + + + + + + 8 + =Fields!M04.Value + + + + + + + + 7 + =Fields!M05.Value + + + + + + + + 6 + =Fields!M06.Value + + + + + + + + 5 + =Fields!M07.Value + + + + + + + + 4 + =Fields!M08.Value + + + + + + + + 3 + =Fields!M09.Value + + + + + + + + 3 + =Fields!M10.Value + + + + + + + + 1 + =Fields!M11.Value + + + + + + + + =Fields!M12.Value + + + + + 0.536cm + + +
    + +
    + + + + + 17 + + + textbox124 + + true + 에너지요구량 분석 + + + + + 0.63492cm + + +
    + + + 3.015cm + + + 1.742cm + + + 1.742cm + + + 0.3cm + + + 1.6cm + + + 1.4cm + + + 1.4cm + + + 1.4cm + + + 1.4cm + + + 1.4cm + + + 1.4cm + + + 1.4cm + + + 1.4cm + + + 1.4cm + + + 1.4cm + + + 1.4cm + + + 1.4cm + + + 1.17092cm +
    + + 5 + DSR_TReqUse + + + =Fields!GRP.Value + Equal + + 200 + + + + 2.948cm +
    + + + + + + + + 16 + =Fields!Desc.Value + + + + + + + + 15 + =Fields!UNIT.Value + + + + + + + + 14 + =Fields!SIGN.Value + + + + + + + + 13 + =Fields!EQ.Value + + + + + + + + 12 + =Fields!M00.Value + + + + + + + + 11 + =Fields!M01.Value + + + + + + + + 10 + =Fields!M02.Value + + + + + + + + 9 + =Fields!M03.Value + + + + + + + + 8 + =Fields!M04.Value + + + + + + + + 7 + =Fields!M05.Value + + + + + + + + 6 + =Fields!M06.Value + + + + + + + + 5 + =Fields!M07.Value + + + + + + + + 4 + =Fields!M08.Value + + + + + + + + 3 + =Fields!M09.Value + + + + + + + + 2 + =Fields!M10.Value + + + + + + + + 1 + =Fields!M11.Value + + + + + + + + =Fields!M12.Value + + + + + 0.536cm + + +
    + +
    + + + + + + + + 33 + true + 에너지소요량 + + + + + + + + 32 + true + [단위] + + + + + + + + 31 + true + [기호] + + + + + + + + 30 + true + + + + + + + + + 29 + true + 합계 + + + + + + + + 28 + true + 01월 + + + + + + + + 27 + true + 02월 + + + + + + + + 26 + true + 03월 + + + + + + + + 25 + true + 04월 + + + + + + + + 24 + true + 05월 + + + + + + + + 23 + true + 06월 + + + + + + + + 22 + true + 07월 + + + + + + + + 21 + true + 08월 + + + + + + + + 20 + true + 09월 + + + + + + + + 19 + true + 10월 + + + + + + + + 18 + true + 11월 + + + + + + + + 17 + true + 12월 + + + + + 0.603cm + + +
    + + + 3.015cm + + + 1.742cm + + + 1.742cm + + + 0.3cm + + + 1.6cm + + + 1.4cm + + + 1.4cm + + + 1.4cm + + + 1.4cm + + + 1.4cm + + + 1.4cm + + + 1.4cm + + + 1.4cm + + + 1.4cm + + + 1.4cm + + + 1.4cm + + + 1.4cm + + + 1.139cm +
    + + 4 + DSR_TReqUse + + + =Fields!GRP.Value + Equal + + 210 + + + + 4.288cm +
    + + + + + + + + 16 + =Fields!Desc.Value + + + + + + + + 15 + =Fields!UNIT.Value + + + + + + + + 14 + =Fields!SIGN.Value + + + + + + + + 13 + =Fields!EQ.Value + + + + + + + + 12 + =Fields!M00.Value + + + + + + + + 11 + =Fields!M01.Value + + + + + + + + 10 + =Fields!M02.Value + + + + + + + + 9 + =Fields!M03.Value + + + + + + + + 8 + =Fields!M04.Value + + + + + + + + 7 + =Fields!M05.Value + + + + + + + + 6 + =Fields!M06.Value + + + + + + + + 5 + =Fields!M07.Value + + + + + + + + 4 + =Fields!M08.Value + + + + + + + + 3 + =Fields!M09.Value + + + + + + + + 2 + =Fields!M10.Value + + + + + + + + 1 + =Fields!M11.Value + + + + + + + + =Fields!M12.Value + + + + + 0.536cm + + +
    + +
    + + + + + 17 + + + textbox53 + + true + 에너지 소요량 분석 + + + + + 0.63492cm + + +
    + + + 3.015cm + + + 1.742cm + + + 1.742cm + + + 0.3cm + + + 1.6cm + + + 1.4cm + + + 1.4cm + + + 1.4cm + + + 1.4cm + + + 1.4cm + + + 1.4cm + + + 1.4cm + + + 1.4cm + + + 1.4cm + + + 1.4cm + + + 1.4cm + + + 1.4cm + + + 1.17092cm +
    + + 3 + DSR_TReqUse + + + =Fields!GRP.Value + Equal + + 400 + + + + 8.509cm +
    + + + + + + + + 16 + =Fields!Desc.Value + + + + + + + + 15 + =Fields!UNIT.Value + + + + + + + + 14 + =Fields!SIGN.Value + + + + + + + + 13 + =Fields!EQ.Value + + + + + + + + 12 + =Fields!M00.Value + + + + + + + + 11 + =Fields!M01.Value + + + + + + + + 10 + =Fields!M02.Value + + + + + + + + 9 + =Fields!M03.Value + + + + + + + + 8 + =Fields!M04.Value + + + + + + + + 7 + =Fields!M05.Value + + + + + + + + 6 + =Fields!M06.Value + + + + + + + + 5 + =Fields!M07.Value + + + + + + + + 4 + =Fields!M08.Value + + + + + + + + 3 + =Fields!M09.Value + + + + + + + + 2 + =Fields!M10.Value + + + + + + + + 1 + =Fields!M11.Value + + + + + + + + =Fields!M12.Value + + + + + 0.536cm + + +
    + +
    + + + + + + + + 32 + true + 연간 CO2 발생량 + + + + + + + + 31 + true + [단위] + + + + + 2 + + + + 30 + true + [CO2배출계수] + + + + + + + + 29 + true + 합계 + + + + + + + + 28 + true + 01월 + + + + + + + + 27 + true + 02월 + + + + + + + + 26 + true + 03월 + + + + + + + + 25 + true + 04월 + + + + + + + + 24 + true + 05월 + + + + + + + + 23 + true + 06월 + + + + + + + + 22 + true + 07월 + + + + + + + + 21 + true + 08월 + + + + + + + + 20 + true + 09월 + + + + + + + + 19 + true + 10월 + + + + + + + + 18 + true + 11월 + + + + + + + + 17 + true + 12월 + + + + + 0.603cm + + +
    + + + 3.015cm + + + 1.742cm + + + 1.742cm + + + 0.3cm + + + 1.6cm + + + 1.4cm + + + 1.4cm + + + 1.4cm + + + 1.4cm + + + 1.4cm + + + 1.4cm + + + 1.4cm + + + 1.4cm + + + 1.4cm + + + 1.4cm + + + 1.4cm + + + 1.4cm + + + 1.139cm +
    + + 2 + DSR_TReqUse + + + =Fields!GRP.Value + Equal + + 300 + + + + 5.628cm +
    + + + + + + + + 16 + =Fields!Desc.Value + + + + + + + + 15 + =Fields!UNIT.Value + + + + + + + + 14 + =Fields!SIGN.Value + + + + + + + + 13 + =Fields!EQ.Value + + + + + + + + 12 + =Fields!M00.Value + + + + + + + + 11 + =Fields!M01.Value + + + + + + + + 10 + =Fields!M02.Value + + + + + + + + 9 + =Fields!M03.Value + + + + + + + + 8 + =Fields!M04.Value + + + + + + + + 7 + =Fields!M05.Value + + + + + + + + 6 + =Fields!M06.Value + + + + + + + + 5 + =Fields!M07.Value + + + + + + + + 4 + =Fields!M08.Value + + + + + + + + 3 + =Fields!M09.Value + + + + + + + + 2 + =Fields!M10.Value + + + + + + + + 1 + =Fields!M11.Value + + + + + + + + =Fields!M12.Value + + + + + 0.536cm + + +
    + +
    + + + + + + + + 33 + true + 1차에너지 소요량 + + + + + + + + 32 + true + [단위] + + + + + + + + 31 + true + [변환계수] + + + + + + + + 30 + true + + + + + + + + + 29 + true + 합계 + + + + + + + + 28 + true + 01월 + + + + + + + + 27 + true + 02월 + + + + + + + + 26 + true + 03월 + + + + + + + + 25 + true + 04월 + + + + + + + + 24 + true + 05월 + + + + + + + + 23 + true + 06월 + + + + + + + + 22 + true + 07월 + + + + + + + + 21 + true + 08월 + + + + + + + + 20 + true + 09월 + + + + + + + + 19 + true + 10월 + + + + + + + + 18 + true + 11월 + + + + + + + + 17 + true + 12월 + + + + + 0.603cm + + +
    + + + 3.015cm + + + 1.742cm + + + 1.742cm + + + 0.3cm + + + 1.6cm + + + 1.4cm + + + 1.4cm + + + 1.4cm + + + 1.4cm + + + 1.4cm + + + 1.4cm + + + 1.4cm + + + 1.4cm + + + 1.4cm + + + 1.4cm + + + 1.4cm + + + 1.4cm + + + 1.139cm +
    + + 1 + DSR_TReqUse + + + =Fields!GRP.Value + Equal + + 310 + + + + 7.035cm +
    + + + + + + + + 16 + =Fields!Desc.Value + + + + + + + + 15 + =Fields!UNIT.Value + + + + + + + + 14 + =Fields!SIGN.Value + + + + + + + + 13 + =Fields!EQ.Value + + + + + + + + 12 + =Fields!M00.Value + + + + + + + + 11 + =Fields!M01.Value + + + + + + + + 10 + =Fields!M02.Value + + + + + + + + 9 + =Fields!M03.Value + + + + + + + + 8 + =Fields!M04.Value + + + + + + + + 7 + =Fields!M05.Value + + + + + + + + 6 + =Fields!M06.Value + + + + + + + + 5 + =Fields!M07.Value + + + + + + + + 4 + =Fields!M08.Value + + + + + + + + 3 + =Fields!M09.Value + + + + + + + + 2 + =Fields!M10.Value + + + + + + + + 1 + =Fields!M11.Value + + + + + + + + =Fields!M12.Value + + + + + 0.536cm + + +
    + +
    + + + + + 17 + + + textbox71 + + true + 열원별에너지소요량 + + + + + 0.63492cm + + +
    + + + 3.015cm + + + 1.742cm + + + 1.742cm + + + 0.3cm + + + 1.6cm + + + 1.4cm + + + 1.4cm + + + 1.4cm + + + 1.4cm + + + 1.4cm + + + 1.4cm + + + 1.4cm + + + 1.4cm + + + 1.4cm + + + 1.4cm + + + 1.4cm + + + 1.4cm + + + 1.17092cm +
    + + DSR_TReqUse + + + =Fields!GRP.Value + Equal + + 410 + + + + 9.916cm +
    + + + + + + + + 16 + =Fields!Desc.Value + + + + + + + + 15 + =Fields!UNIT.Value + + + + + + + + 14 + =Fields!SIGN.Value + + + + + + + + 13 + =Fields!EQ.Value + + + + + + + + 12 + =Fields!M00.Value + + + + + + + + 11 + =Fields!M01.Value + + + + + + + + 10 + =Fields!M02.Value + + + + + + + + 9 + =Fields!M03.Value + + + + + + + + 8 + =Fields!M04.Value + + + + + + + + 7 + =Fields!M05.Value + + + + + + + + 6 + =Fields!M06.Value + + + + + + + + 5 + =Fields!M07.Value + + + + + + + + 4 + =Fields!M08.Value + + + + + + + + 3 + =Fields!M09.Value + + + + + + + + 2 + =Fields!M10.Value + + + + + + + + 1 + =Fields!M11.Value + + + + + + + + =Fields!M12.Value + + + + + 0.536cm + + +
    + +
    + + + + + 17 + + + textbox123 + + true + 열원별 Co2 발생량 + + + + + 0.63492cm + + +
    + + + 3.015cm + + + 1.742cm + + + 1.742cm + + + 0.3cm + + + 1.6cm + + + 1.4cm + + + 1.4cm + + + 1.4cm + + + 1.4cm + + + 1.4cm + + + 1.4cm + + + 1.4cm + + + 1.4cm + + + 1.4cm + + + 1.4cm + + + 1.4cm + + + 1.4cm + + + 1.17092cm +
    +     + 12.596cm + + ko-KR + 2cm + 21cm +     \ No newline at end of file diff --git a/ArinWarev1/Forms_Report/Report_total.rdlc b/ArinWarev1/Forms_Report/Report_total.rdlc new file mode 100644 index 0000000..6bdde5d --- /dev/null +++ b/ArinWarev1/Forms_Report/Report_total.rdlc @@ -0,0 +1,8738 @@ + + + + + + + + + 6.015cm + + + 1.74201cm + + + 1.74201cm + + + 0.3cm + + + 1.6cm + + + 1.4cm + + + 1.4cm + + + 1.4cm + + + 1.4cm + + + 1.4cm + + + 1.4cm + + + 1.4cm + + + 1.4cm + + + 1.4cm + + + 1.4cm + + + 1.4cm + + + 1.4cm + + + + + 0.63492cm + + + + + true + true + + + + + 열원별 Co2 발생량 + + + + + + 17 + + + + + + + + + + + + + + + + + + + + + + 0.53599cm + + + + + true + + + + + =Fields!Desc.Value + + + + + + + 16 + + + Middle + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + + + + + =Fields!UNIT.Value + + + + + + + 15 + + + Middle + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + + + + + =Fields!SIGN.Value + + + + + + + 14 + + + Middle + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + + + + + =Fields!EQ.Value + + + + + + + 13 + + + Middle + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + + + + + =Fields!M00.Value + + + + + + + 12 + + + Middle + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + + + + + =Fields!M01.Value + + + + + + + 11 + + + Middle + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + + + + + =Fields!M02.Value + + + + + + + 10 + + + Middle + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + + + + + =Fields!M03.Value + + + + + + + 9 + + + Middle + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + + + + + =Fields!M04.Value + + + + + + + 8 + + + Middle + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + + + + + =Fields!M05.Value + + + + + + + 7 + + + Middle + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + + + + + =Fields!M06.Value + + + + + + + 6 + + + Middle + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + + + + + =Fields!M07.Value + + + + + + + 5 + + + Middle + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + + + + + =Fields!M08.Value + + + + + + + 4 + + + Middle + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + + + + + =Fields!M09.Value + + + + + + + 3 + + + Middle + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + + + + + =Fields!M10.Value + + + + + + + 2 + + + Middle + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + + + + + =Fields!M11.Value + + + + + + + 1 + + + Middle + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + + + + + =Fields!M12.Value + + + + + + + + + Middle + 2pt + 2pt + 2pt + 2pt + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + After + true + + + + Detail + + + + + Detail_Collection + Output + true + + + + DSR_TReqUse + + + =Fields!GRP.Value + Equal + + 410 + + + + 9.916cm + 1.17091cm + 28.19898cm + + + + + + + 6.015cm + + + 1.74201cm + + + 1.74201cm + + + 0.3cm + + + 1.6cm + + + 1.4cm + + + 1.4cm + + + 1.4cm + + + 1.4cm + + + 1.4cm + + + 1.4cm + + + 1.4cm + + + 1.4cm + + + 1.4cm + + + 1.4cm + + + 1.4cm + + + 1.4cm + + + + + 0.63492cm + + + + + true + true + + + + + 열원별에너지소요량 + + + + + + 17 + + + + + + + + + + + + + + + + + + + + + + 0.53599cm + + + + + true + + + + + =Fields!Desc.Value + + + + + + + 16 + + + true + + + + + + true + + + + + =Fields!UNIT.Value + + + + + + + 15 + + + + + + + + true + + + + + =Fields!SIGN.Value + + + + + + + 14 + + + + + + + + true + + + + + =Fields!EQ.Value + + + + + + + 13 + + + + + + + + true + + + + + =Fields!M00.Value + + + + + + + 12 + + + + + + + + true + + + + + =Fields!M01.Value + + + + + + + 11 + + + + + + + + true + + + + + =Fields!M02.Value + + + + + + + 10 + + + + + + + + true + + + + + =Fields!M03.Value + + + + + + + 9 + + + + + + + + true + + + + + =Fields!M04.Value + + + + + + + 8 + + + + + + + + true + + + + + =Fields!M05.Value + + + + + + + 7 + + + + + + + + true + + + + + =Fields!M06.Value + + + + + + + 6 + + + + + + + + true + + + + + =Fields!M07.Value + + + + + + + 5 + + + + + + + + true + + + + + =Fields!M08.Value + + + + + + + 4 + + + + + + + + true + + + + + =Fields!M09.Value + + + + + + + 3 + + + + + + + + true + + + + + =Fields!M10.Value + + + + + + + 2 + + + + + + + + true + + + + + =Fields!M11.Value + + + + + + + 1 + + + + + + + + true + + + + + =Fields!M12.Value + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + After + true + + + + Detail + + + + + Detail_Collection + Output + true + + + + DSR_TReqUse + + + =Fields!GRP.Value + Equal + + 310 + + + + 7.035cm + 1.17091cm + 28.19898cm + 1 + + + + + + + 6.015cm + + + 1.74201cm + + + 1.74201cm + + + 0.3cm + + + 1.6cm + + + 1.4cm + + + 1.4cm + + + 1.4cm + + + 1.4cm + + + 1.4cm + + + 1.4cm + + + 1.4cm + + + 1.4cm + + + 1.4cm + + + 1.4cm + + + 1.4cm + + + 1.4cm + + + + + 0.603cm + + + + + true + true + + + + + 1차에너지 소요량 + + + + + + + 33 + + + LightSteelBlue + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + [단위] + + + + + + + 32 + + + LightSteelBlue + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + [변환계수] + + + + + + + 31 + + + LightSteelBlue + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + + + + + + + LightSteelBlue + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + 합계 + + + + + + + 29 + + + LightSteelBlue + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + 01월 + + + + + + + 28 + + + LightSteelBlue + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + 02월 + + + + + + + 27 + + + LightSteelBlue + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + 03월 + + + + + + + 26 + + + LightSteelBlue + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + 04월 + + + + + + + 25 + + + LightSteelBlue + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + 05월 + + + + + + + 24 + + + LightSteelBlue + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + 06월 + + + + + + + 23 + + + LightSteelBlue + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + 07월 + + + + + + + 22 + + + LightSteelBlue + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + 08월 + + + + + + + 21 + + + LightSteelBlue + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + 09월 + + + + + + + 20 + + + LightSteelBlue + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + 10월 + + + + + + + 19 + + + LightSteelBlue + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + 11월 + + + + + + + 18 + + + LightSteelBlue + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + 12월 + + + + + + + 17 + + + LightSteelBlue + 2pt + 2pt + 2pt + 2pt + + + + + + + + 0.53599cm + + + + + true + + + + + =Fields!Desc.Value + + + + + + + 16 + + + Middle + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + + + + + =Fields!UNIT.Value + + + + + + + 15 + + + Middle + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + + + + + =Fields!SIGN.Value + + + + + + + 14 + + + Middle + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + + + + + =Fields!EQ.Value + + + + + + + 13 + + + Middle + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + + + + + =Fields!M00.Value + + + + + + + 12 + + + Middle + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + + + + + =Fields!M01.Value + + + + + + + 11 + + + Middle + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + + + + + =Fields!M02.Value + + + + + + + 10 + + + Middle + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + + + + + =Fields!M03.Value + + + + + + + 9 + + + Middle + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + + + + + =Fields!M04.Value + + + + + + + 8 + + + Middle + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + + + + + =Fields!M05.Value + + + + + + + 7 + + + Middle + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + + + + + =Fields!M06.Value + + + + + + + 6 + + + Middle + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + + + + + =Fields!M07.Value + + + + + + + 5 + + + Middle + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + + + + + =Fields!M08.Value + + + + + + + 4 + + + Middle + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + + + + + =Fields!M09.Value + + + + + + + 3 + + + Middle + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + + + + + =Fields!M10.Value + + + + + + + 2 + + + Middle + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + + + + + =Fields!M11.Value + + + + + + + 1 + + + Middle + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + + + + + =Fields!M12.Value + + + + + + + + + Middle + 2pt + 2pt + 2pt + 2pt + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + After + true + + + + Detail + + + + + Detail_Collection + Output + true + + + + DSR_TReqUse + + + =Fields!GRP.Value + Equal + + 300 + + + + 5.628cm + 1.13899cm + 28.19898cm + 2 + + + + + + + 6.015cm + + + 1.74201cm + + + 1.74201cm + + + 0.3cm + + + 1.6cm + + + 1.4cm + + + 1.4cm + + + 1.4cm + + + 1.4cm + + + 1.4cm + + + 1.4cm + + + 1.4cm + + + 1.4cm + + + 1.4cm + + + 1.4cm + + + 1.4cm + + + 1.4cm + + + + + 0.603cm + + + + + true + true + + + + + 연간 CO2 발생량 + + + + + + + 32 + + + LightSteelBlue + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + [단위] + + + + + + + 31 + + + LightSteelBlue + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + [CO2배출계수] + + + + + + + 30 + + + LightSteelBlue + 2pt + 2pt + 2pt + 2pt + + + 2 + + + + + + + true + true + + + + + 합계 + + + + + + + 29 + + + LightSteelBlue + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + 01월 + + + + + + + 28 + + + LightSteelBlue + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + 02월 + + + + + + + 27 + + + LightSteelBlue + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + 03월 + + + + + + + 26 + + + LightSteelBlue + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + 04월 + + + + + + + 25 + + + LightSteelBlue + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + 05월 + + + + + + + 24 + + + LightSteelBlue + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + 06월 + + + + + + + 23 + + + LightSteelBlue + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + 07월 + + + + + + + 22 + + + LightSteelBlue + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + 08월 + + + + + + + 21 + + + LightSteelBlue + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + 09월 + + + + + + + 20 + + + LightSteelBlue + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + 10월 + + + + + + + 19 + + + LightSteelBlue + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + 11월 + + + + + + + 18 + + + LightSteelBlue + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + 12월 + + + + + + + 17 + + + LightSteelBlue + 2pt + 2pt + 2pt + 2pt + + + + + + + + 0.53599cm + + + + + true + + + + + =Fields!Desc.Value + + + + + + + 16 + + + Middle + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + + + + + =Fields!UNIT.Value + + + + + + + 15 + + + Middle + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + + + + + =Fields!SIGN.Value + + + + + + + 14 + + + Middle + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + + + + + =Fields!EQ.Value + + + + + + + 13 + + + Middle + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + + + + + =Fields!M00.Value + + + + + + + 12 + + + Middle + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + + + + + =Fields!M01.Value + + + + + + + 11 + + + Middle + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + + + + + =Fields!M02.Value + + + + + + + 10 + + + Middle + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + + + + + =Fields!M03.Value + + + + + + + 9 + + + Middle + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + + + + + =Fields!M04.Value + + + + + + + 8 + + + Middle + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + + + + + =Fields!M05.Value + + + + + + + 7 + + + Middle + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + + + + + =Fields!M06.Value + + + + + + + 6 + + + Middle + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + + + + + =Fields!M07.Value + + + + + + + 5 + + + Middle + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + + + + + =Fields!M08.Value + + + + + + + 4 + + + Middle + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + + + + + =Fields!M09.Value + + + + + + + 3 + + + Middle + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + + + + + =Fields!M10.Value + + + + + + + 2 + + + Middle + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + + + + + =Fields!M11.Value + + + + + + + 1 + + + Middle + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + + + + + =Fields!M12.Value + + + + + + + + + Middle + 2pt + 2pt + 2pt + 2pt + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + After + true + + + + Detail + + + + + Detail_Collection + Output + true + + + + DSR_TReqUse + + + =Fields!GRP.Value + Equal + + 400 + + + + 8.509cm + 1.13899cm + 28.19898cm + 3 + + + + + + + 6.015cm + + + 1.74201cm + + + 1.74201cm + + + 0.3cm + + + 1.6cm + + + 1.4cm + + + 1.4cm + + + 1.4cm + + + 1.4cm + + + 1.4cm + + + 1.4cm + + + 1.4cm + + + 1.4cm + + + 1.4cm + + + 1.4cm + + + 1.4cm + + + 1.4cm + + + + + 0.63492cm + + + + + true + true + + + + + 에너지 소요량 분석 + + + + + + 17 + + + + + + + + + + + + + + + + + + + + + + 0.53599cm + + + + + true + + + + + =Fields!Desc.Value + + + + + + + 16 + + + + + + + + true + + + + + =Fields!UNIT.Value + + + + + + + 15 + + + + + + + + true + + + + + =Fields!SIGN.Value + + + + + + + 14 + + + + + + + + true + + + + + =Fields!EQ.Value + + + + + + + 13 + + + + + + + + true + + + + + =Fields!M00.Value + + + + + + + 12 + + + + + + + + true + + + + + =Fields!M01.Value + + + + + + + 11 + + + + + + + + true + + + + + =Fields!M02.Value + + + + + + + 10 + + + + + + + + true + + + + + =Fields!M03.Value + + + + + + + 9 + + + + + + + + true + + + + + =Fields!M04.Value + + + + + + + 8 + + + + + + + + true + + + + + =Fields!M05.Value + + + + + + + 7 + + + + + + + + true + + + + + =Fields!M06.Value + + + + + + + 6 + + + + + + + + true + + + + + =Fields!M07.Value + + + + + + + 5 + + + + + + + + true + + + + + =Fields!M08.Value + + + + + + + 4 + + + + + + + + true + + + + + =Fields!M09.Value + + + + + + + 3 + + + + + + + + true + + + + + =Fields!M10.Value + + + + + + + 2 + + + + + + + + true + + + + + =Fields!M11.Value + + + + + + + 1 + + + + + + + + true + + + + + =Fields!M12.Value + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + After + true + + + + Detail + + + + + Detail_Collection + Output + true + + + + DSR_TReqUse + + + =Fields!GRP.Value + Equal + + 210 + + + + 4.288cm + 1.17091cm + 28.19898cm + 4 + + + + + + + 6.015cm + + + 1.74201cm + + + 1.74201cm + + + 0.3cm + + + 1.6cm + + + 1.4cm + + + 1.4cm + + + 1.4cm + + + 1.4cm + + + 1.4cm + + + 1.4cm + + + 1.4cm + + + 1.4cm + + + 1.4cm + + + 1.4cm + + + 1.4cm + + + 1.4cm + + + + + 0.603cm + + + + + true + true + + + + + 에너지소요량 + + + + + + + 33 + + + LightSteelBlue + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + [단위] + + + + + + + 32 + + + LightSteelBlue + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + [기호] + + + + + + + 31 + + + LightSteelBlue + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + + + + + + + LightSteelBlue + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + 합계 + + + + + + + 29 + + + LightSteelBlue + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + 01월 + + + + + + + 28 + + + LightSteelBlue + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + 02월 + + + + + + + 27 + + + LightSteelBlue + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + 03월 + + + + + + + 26 + + + LightSteelBlue + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + 04월 + + + + + + + 25 + + + LightSteelBlue + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + 05월 + + + + + + + 24 + + + LightSteelBlue + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + 06월 + + + + + + + 23 + + + LightSteelBlue + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + 07월 + + + + + + + 22 + + + LightSteelBlue + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + 08월 + + + + + + + 21 + + + LightSteelBlue + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + 09월 + + + + + + + 20 + + + LightSteelBlue + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + 10월 + + + + + + + 19 + + + LightSteelBlue + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + 11월 + + + + + + + 18 + + + LightSteelBlue + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + 12월 + + + + + + + 17 + + + LightSteelBlue + 2pt + 2pt + 2pt + 2pt + + + + + + + + 0.53599cm + + + + + true + + + + + =Fields!Desc.Value + + + + + + + 16 + + + Middle + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + + + + + =Fields!UNIT.Value + + + + + + + 15 + + + Middle + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + + + + + =Fields!SIGN.Value + + + + + + + 14 + + + Middle + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + + + + + =Fields!EQ.Value + + + + + + + 13 + + + Middle + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + + + + + =Fields!M00.Value + + + + + + + 12 + + + Middle + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + + + + + =Fields!M01.Value + + + + + + + 11 + + + Middle + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + + + + + =Fields!M02.Value + + + + + + + 10 + + + Middle + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + + + + + =Fields!M03.Value + + + + + + + 9 + + + Middle + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + + + + + =Fields!M04.Value + + + + + + + 8 + + + Middle + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + + + + + =Fields!M05.Value + + + + + + + 7 + + + Middle + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + + + + + =Fields!M06.Value + + + + + + + 6 + + + Middle + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + + + + + =Fields!M07.Value + + + + + + + 5 + + + Middle + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + + + + + =Fields!M08.Value + + + + + + + 4 + + + Middle + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + + + + + =Fields!M09.Value + + + + + + + 3 + + + Middle + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + + + + + =Fields!M10.Value + + + + + + + 2 + + + Middle + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + + + + + =Fields!M11.Value + + + + + + + 1 + + + Middle + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + + + + + =Fields!M12.Value + + + + + + + + + Middle + 2pt + 2pt + 2pt + 2pt + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + After + true + + + + Detail + + + + + Detail_Collection + Output + true + + + + DSR_TReqUse + + + =Fields!GRP.Value + Equal + + 200 + + + + 2.948cm + 1.13899cm + 28.19898cm + 5 + + + + + + + 6.015cm + + + 1.74201cm + + + 1.74201cm + + + 0.3cm + + + 1.6cm + + + 1.4cm + + + 1.4cm + + + 1.4cm + + + 1.4cm + + + 1.4cm + + + 1.4cm + + + 1.4cm + + + 1.4cm + + + 1.4cm + + + 1.4cm + + + 1.4cm + + + 1.4cm + + + + + 0.63492cm + + + + + true + true + + + + + 에너지요구량 분석 + + + + + + 17 + + + + + + + + + + + + + + + + + + + + + + 0.53599cm + + + + + true + + + + + =Fields!Desc.Value + + + + + + + 16 + + + + + + + + true + + + + + =Fields!UNIT.Value + + + + + + + 15 + + + + + + + + true + + + + + =Fields!SIGN.Value + + + + + + + 14 + + + + + + + + true + + + + + =Fields!EQ.Value + + + + + + + 13 + + + + + + + + true + + + + + =Fields!M00.Value + + + + + + + 12 + + + + + + + + true + + + + + =Fields!M01.Value + + + + + + + 11 + + + + + + + + true + + + + + =Fields!M02.Value + + + + + + + 10 + + + + + + + + true + + + + + =Fields!M03.Value + + + + + + + 9 + + + + + + + + true + + + + + =Fields!M04.Value + + + + + + + 8 + + + + + + + + true + + + + + =Fields!M05.Value + + + + + + + 7 + + + + + + + + true + + + + + =Fields!M06.Value + + + + + + + 6 + + + + + + + + true + + + + + =Fields!M07.Value + + + + + + + 5 + + + + + + + + true + + + + + =Fields!M08.Value + + + + + + + 4 + + + + + + + + true + + + + + =Fields!M09.Value + + + + + + + 3 + + + + + + + + true + + + + + =Fields!M10.Value + + + + + + + 3 + + + + + + + + true + + + + + =Fields!M11.Value + + + + + + + 1 + + + + + + + + true + + + + + =Fields!M12.Value + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + After + true + + + + Detail + + + + + Detail_Collection + Output + true + + + + DSR_TReqUse + + + =Fields!GRP.Value + Equal + + 110 + + + + 1.541cm + 1.17091cm + 28.19898cm + 6 + + + + + + + 6.015cm + + + 1.74201cm + + + 1.74201cm + + + 0.3cm + + + 1.6cm + + + 1.4cm + + + 1.4cm + + + 1.4cm + + + 1.4cm + + + 1.4cm + + + 1.4cm + + + 1.4cm + + + 1.4cm + + + 1.4cm + + + 1.4cm + + + 1.4cm + + + 1.4cm + + + + + 0.603cm + + + + + true + true + + + + + 에너지요구량 + + + + + + + textbox2 + 33 + + + LightSteelBlue + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + [단위] + + + + + + + textbox3 + 32 + + + LightSteelBlue + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + [기호] + + + + + + + textbox4 + 31 + + + LightSteelBlue + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + + + + + + + LightSteelBlue + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + 합계 + + + + + + + textbox11 + 29 + + + LightSteelBlue + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + 01월 + + + + + + + textbox14 + 28 + + + LightSteelBlue + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + 02월 + + + + + + + textbox17 + 27 + + + LightSteelBlue + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + 03월 + + + + + + + textbox20 + 26 + + + LightSteelBlue + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + 04월 + + + + + + + textbox23 + 25 + + + LightSteelBlue + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + 05월 + + + + + + + textbox26 + 24 + + + LightSteelBlue + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + 06월 + + + + + + + textbox29 + 23 + + + LightSteelBlue + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + 07월 + + + + + + + textbox32 + 22 + + + LightSteelBlue + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + 08월 + + + + + + + textbox35 + 21 + + + LightSteelBlue + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + 09월 + + + + + + + textbox38 + 20 + + + LightSteelBlue + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + 10월 + + + + + + + textbox44 + 19 + + + LightSteelBlue + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + 11월 + + + + + + + textbox41 + 18 + + + LightSteelBlue + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + 12월 + + + + + + + textbox47 + 17 + + + LightSteelBlue + 2pt + 2pt + 2pt + 2pt + + + + + + + + 0.53599cm + + + + + true + + + + + =Fields!Desc.Value + + + + + + + Desc + 16 + + + Middle + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + + + + + =Fields!UNIT.Value + + + + + + + UNIT + 15 + + + Middle + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + + + + + =Fields!SIGN.Value + + + + + + + SIGN + 14 + + + Middle + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + + + + + =Fields!EQ.Value + + + + + + + EQ + 13 + + + Middle + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + + + + + =Fields!M00.Value + + + + + + + M00 + 12 + + + Middle + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + + + + + =Fields!M01.Value + + + + + + + M01 + 11 + + + Middle + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + + + + + =Fields!M02.Value + + + + + + + M02_1 + 10 + + + Middle + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + + + + + =Fields!M03.Value + + + + + + + M03 + 9 + + + Middle + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + + + + + =Fields!M04.Value + + + + + + + M04 + 8 + + + Middle + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + + + + + =Fields!M05.Value + + + + + + + M05 + 7 + + + Middle + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + + + + + =Fields!M06.Value + + + + + + + M06 + 6 + + + Middle + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + + + + + =Fields!M07.Value + + + + + + + M07 + 5 + + + Middle + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + + + + + =Fields!M08.Value + + + + + + + M08 + 4 + + + Middle + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + + + + + =Fields!M09.Value + + + + + + + M09 + 3 + + + Middle + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + + + + + =Fields!M10.Value + + + + + + + 3 + + + Middle + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + + + + + =Fields!M11.Value + + + + + + + M11 + 1 + + + Middle + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + + + + + =Fields!M12.Value + + + + + + + M12 + + + Middle + 2pt + 2pt + 2pt + 2pt + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + After + true + + + + Detail + + + + + Detail_Collection + Output + true + + + + DSR_TReqUse + + + =Fields!GRP.Value + Equal + + 100 + + + + 0.134cm + 1.13899cm + 28.19898cm + 7 + + + + 11.08692cm + + + + + + + textbox1 + 0.335cm + 6.432cm + 0.737cm + 15.41cm + + + + + + 월 + + + Number + + True + + + + True + + + + + + 1 + Number + + + 0.5 + + NaN + NaN + NaN + + + + + 축 제목 + + + + False + + + + + + + + + 0.5 + + NaN + Opposite + NaN + NaN + + + + + + + 1차 에너지 소요량 + + + + + + + + + + + + 0.5 + + NaN + NaN + NaN + + + + + 축 제목 + + + + + + + + + + + + 0.5 + + NaN + Opposite + NaN + NaN + + + + + + + + + + + + + Black + Black + + + + + 설계 개선 결과 + + + + BrightPastel + + + + + 사용 가능한 데이터 없음 + + + Graph_ReqUse + + + =Fields!type.Value + NotEqual + + 개선결과(%) + + + + 0.7187cm + 0.65299cm + 12.03854cm + 23.99771cm + + + White + None + + + + + + + + + + true + true + + + + + 월 + + + + Textbox10 + + + + Black + + 0.5pt + + Bottom + 2pt + 2pt + 2pt + 2pt + + + + + + + + + + + 0.69271in + + + + + 0.32292in + + + + + true + true + + + + + =Sum(Fields!Req.Value) + + + + Req + + + Middle + 2pt + 2pt + 2pt + 2pt + + + + + + + + 0.23622in + + + + + true + true + + + + + + + + + Textbox6 + + + Middle + 2pt + 2pt + 2pt + 2pt + + + + + + + + + + + + + + =Fields!Gubun.Value + + + + + =Fields!Gubun.Value + + + + 0.33333in + + + true + true + + + + + =Fields!Gubun.Value + + + + Gubun + + + + Black + + 0.5pt + + Bottom + 2pt + 2pt + 2pt + 2pt + + + + + + + + + + + + + =Fields!type.Value + + + + + =Fields!type.Value + + + + 1.06771in + + + true + true + + + + + =Fields!type.Value + + + + type + + + Middle + 2pt + 2pt + 2pt + 2pt + + + + + + + + 1.06771in + + + true + true + + + + + =Parameters!PSUM.Value + + + + Textbox5 + + + Middle + 2pt + 2pt + 2pt + 2pt + + + + + Before + + + + Graph_ReqUse + + + =Fields!type.Value + Equal + + 개선결과(%) + + + + 12.95612cm + 0.62653cm + 2.26687cm + 4.47147cm + 1 + + + + + + 17.51629cm + + + Top + 60 + + + + 6pt + + 0.75pt + + + + + + + True + 1 + + False + + 0.75pt + + + NaN + 1 + + + False + + 0.75pt + + + NaN + + + True + + 0.75pt + + + NaN + 1 + + + None + + true + true + false + + + + + + + + NaN + Opposite + NaN + NaN + + + + + + 0.75pt + + + + + + + True + + True + + 0.75pt + + + 2 + + + False + + 0.75pt + + + NaN + + + True + + 0.75pt + + + 2 + + + None + + true + true + 0 + true + true + false + + + + + + + + NaN + Opposite + NaN + NaN + + + + true + 0 + 0 + 0 + true + + + 0.75pt + + White + LeftRight + + + + + + true + + 0.75pt + + + BottomCenter + Row + + + + + true + + + + + 월별 냉난방 에너지 요구량 [kWh/(m²a)] + + + + Excel + + + + + 사용 가능한 데이터 없음 + + + DSR_Graph_Req + 0.25cm + 0.25cm + 8.39146cm + 18.25cm + + + __Upgraded2005__ + __Upgraded2005__ + + + + + White + 나눔고딕 + Bold + + + + + + + + + =Fields!Gubun.Value + + + + + =iif(Fields!Gubun.Value="등급용1차소요량",0,4) + + + + Output + + + + + + + + + =Fields!type.Value + + + + =Fields!type.Value + NotEqual + + 합계 + + + + + + Output + + + + + + + + + + =Sum(Fields!Req.Value) + + + + + Top + + + + 6pt + + 0.75pt + + 돋움 + 9pt + + + + + + True + + False + + 0.75pt + + + NaN + 1 + + + False + + 0.75pt + + + NaN + + + True + + 0.75pt + + + NaN + 1 + + + None + + true + true + false + + + + + + + + NaN + Opposite + NaN + NaN + + + + + + 0.75pt + + + + + + + True + + False + + 0.75pt + + + 100 + + + True + + 0.75pt + + + 50 + + + True + + 0.75pt + + + 100 + + + None + + true + true + true + false + + + + + + + + NaN + Opposite + NaN + NaN + + + + true + 0 + 0 + 0 + true + + + 0.75pt + + White + LeftRight + + + + + + + 0.75pt + + LeftRight + 나눔고딕 + 6pt + + TopRight + Row + + + + + true + + + + + 연간 에너지 요구량 및 소요량[kWh/㎡] + + + + Pastel + + + + + 사용 가능한 데이터 없음 + + + DSR_Graph_ReqUse + + + =Fields!Gubun.Value + NotEqual + + Co2발생량 + + + + 10.4073cm + 0.25cm + 8.44437cm + 18.25cm + 1 + + + __Upgraded2005__ + __Upgraded2005__ + + + + + White + 나눔고딕 + Bold + #80ff80 + + + + + + + + + + true + true + + + + + + + + + + 0.5pt + + Middle + 2pt + 2pt + 2pt + 2pt + + + + + + + + + + + 0.86614in + + + + + 0.24997in + + + + + true + true + + + + + =Sum(Fields!Req.Value) + + + + + + + Req + + 0.25pt + + Middle + 2pt + 2pt + 2pt + 2pt + + + + Output + + + + + + + + + + + =Fields!type.Value + + + + 0.24997in + + + true + true + + + + + =Fields!type.Value + + + + + + + type + + 0.25pt + + Middle + 2pt + 2pt + 2pt + 2pt + + + + + Output + + + + + + + + + =Fields!Gubun.Value + + + + + =iif(Fields!Gubun.Value="요구량",1,iif(Fields!Gubun.Value="소요량",2,iif(Fields!Gubun.Value="1차소요량",3,4))) + + + + 1.12487in + + + true + true + + + + + =Fields!Gubun.Value + + + + + + + Gubun + + 0.25pt + + Middle + 2pt + 2pt + 2pt + 2pt + + + + + Output + + + + true + true + true + No Data + DSR_Graph_ReqUse + 18.94868cm + 0.27775cm + 1.26985cm + 5.05717cm + 2 + + + 돋움 + + + + + + + + + + true + true + + + + + =Parameters!ISJUGO.Value + + + + + + + Textbox16 + + + + 1pt + + Middle + 2pt + 2pt + 2pt + 2pt + + + + + + + + + + + 0.54901in + + + + + 0.28646in + + + + + true + true + + + + + =Sum(Fields!Req.Value) + + + + + + + Req1 + + + + 1pt + + Middle + 2pt + 2pt + 2pt + 2pt + + + + + + + + + + + + + + =Fields!Mon.Value + + + + + =iif(Fields!Mon.Value.ToString().Length = 2,"0" & Fields!Mon.Value,Fields!Mon.Value) + + + + 0.26562in + + + true + true + + + + + =Fields!Mon.Value + + + + + + + Mon + + + + 1pt + + Middle + 2pt + 2pt + 2pt + 2pt + + + + + + + + + + + + + =Fields!Gubun.Value + + + + + =Fields!Gubun.Value + + + + 0.58854in + + + true + true + + + + + =Fields!Gubun.Value.ToString().Substring(0,2) + + + + + + + Gubun1 + + + + 1pt + + Middle + 2pt + 2pt + 2pt + 2pt + + + + + + + + DSR_Graph_Req + 8.75964cm + 0.30903cm + 1.40228cm + 2.88938cm + 3 + + 1.1pt + + + + + + + true + + + + + 에너지자립률 : + + + + + + + Textbox2 + 0.09525cm + 0.12253cm + 0.56825cm + 2.41733cm + + + 2pt + 2pt + 2pt + 2pt + + + + true + + + + + 단위면적당 1차에너지생산량 : + + + + + + + Textbox2 + 0.09525cm + 4.74537cm + 0.56825cm + 4.50225cm + 1 + + + 2pt + 2pt + 2pt + 2pt + + + + true + + + + + 단위면적당 1차에너지소비량 : + + + + + + + Textbox2 + 0.09525cm + 10.80321cm + 0.56825cm + 4.49167cm + 2 + + + 2pt + 2pt + 2pt + 2pt + + + + true + + + + + ％ + + + + + + + Textbox2 + 0.09525cm + 3.17897cm + 0.50475cm + 0.75847cm + 3 + + + 2pt + 2pt + 2pt + 2pt + + + + true + + + + + =Parameters!생산량.Value + + + + + + + Textbox2 + 0.09525cm + 9.13473cm + 0.56825cm + 1.12241cm + 4 + + + 2pt + 2pt + 2pt + 2pt + + + + true + + + + + =Parameters!소비량.Value + + + + + + + Textbox2 + 0.09525cm + 15.29488cm + 0.56825cm + 1.15416cm + 5 + + + 2pt + 2pt + 2pt + 2pt + + + + true + + + + + =Parameters!자립률.Value + + + + + + + Textbox2 + 0.09525cm + 2.33172cm + 0.56825cm + 1.12241cm + 6 + + + 2pt + 2pt + 2pt + 2pt + + + + true + 20.32436cm + 0.25cm + 0.85196cm + 16.44904cm + 4 + + + + + + 21.36457cm + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + 1.13975in + + + 0.907in + + + 1.30283in + + + 1.28231in + + + 1.1725in + + + 1.12041in + + + + + 0.38205in + + + + + true + true + + + + + ■ + + + + =Parameters!PTitle.Value + + + + 건물개요 + + + + + + + Textbox84 + + + Middle + 4pt + 0cm + 0cm + 0cm + + + 6 + + + + + + + + + + + 0.26867in + + + + + true + true + + + + + 면적: + + + + + + + Textbox1 + + + Middle + 4pt + 0cm + 0cm + 0cm + + + + + + + + true + true + + + + + + + + + + + + Textbox3 + + + Middle + 4pt + 0cm + 0cm + 0cm + + + + + + + + true + true + + + + + + + + + + + + Textbox25 + + + Middle + 4pt + 0cm + 0cm + 0cm + + + + + + + + true + true + + + + + + + + + + + + Textbox26 + + + Middle + 4pt + 0cm + 0cm + 0cm + + + + + + + + true + true + + + + + + + + + + + + Textbox27 + + + Middle + 4pt + 0cm + 0cm + 0cm + + + + + + + + true + true + + + + + + + + + + + + Textbox10 + + + Middle + 4pt + 0cm + 0cm + 0cm + + + + + + + + 0.28951in + + + + + true + true + + + + + 대지면적(㎡) + + + + + + + Textbox2 + + + Middle + 4pt + 0cm + 0cm + 0cm + + + + + + + + true + true + + + + + =Fields!buildm21.Value + + + + + + + buildm21 + + + Middle + 4pt + 0cm + 0cm + 0cm + + + + + + + + true + true + + + + + 건축면적(㎡) + + + + + + + Textbox6 + + + Middle + 4pt + 0cm + 0cm + 0cm + + + + + + + + true + true + + + + + =Fields!buildm22.Value + + + + + + + buildm22 + + + Middle + 4pt + 0cm + 0cm + 0cm + + + + + + + + true + true + + + + + 연면적(㎡) + + + + + + + Textbox16 + + + Middle + 4pt + 0cm + 0cm + 0cm + + + + + + + + true + true + + + + + =Fields!buildm23.Value + + + + + + + buildm23 + + + Middle + 4pt + 0cm + 0cm + 0cm + + + + + + + + 0.29135in + + + + + true + true + + + + + 규모: + + + + + + + Textbox17 + + + Middle + 4pt + 0cm + 0cm + 0cm + + + 3 + + + + + + + + true + true + + + + + 구조: + + + + + + + Textbox20 + + + Middle + 4pt + 0cm + 0cm + 0cm + + + 3 + + + + + + + + 0.29135in + + + + + true + true + + + + + ="지하" & Fields!builds1.Value & ＂층／지상＂ & Fields!builds2.Value & "층" + + + + + + + builds1 + + + Middle + 4pt + 0cm + 0cm + 0cm + + + 3 + + + + + + + + true + true + + + + + =Fields!gujo.Value + + + + + + + gujo + + + Middle + 4pt + 0cm + 0cm + 0cm + + + 3 + + + + + + + + 0.29135in + + + + + true + true + + + + + 소재지: + + + + + + + Textbox34 + + + Middle + 4pt + 0cm + 0cm + 0cm + + + 6 + + + + + + + + + + + 0.29135in + + + + + true + true + + + + + =Fields!buildaddr.Value + + + + + + + buildaddr + + + Middle + 4pt + 0cm + 0cm + 0cm + + + 6 + + + + + + + + + + + 0.29135in + + + + + true + true + + + + + 신청일： + + + + + + + Textbox49 + + + Middle + 4pt + 0cm + 0cm + 0cm + + + + + + + + true + true + + + + + =FormatDateTime(Fields!reqdate.Value) + + + + + + + reqdate + + + Middle + 4pt + 0cm + 0cm + 0cm + + + 2 + + + + + + + true + true + + + + + 접수일： + + + + + + + Textbox52 + + + Middle + 4pt + 0cm + 0cm + 0cm + + + + + + + + true + true + + + + + =FormatDateTime(Fields!jubsudate.Value) + + + + + + + jubsudate + + + Middle + 4pt + 0cm + 0cm + 0cm + + + 2 + + + + + + + 0.29135in + + + + + true + true + + + + + 준공일： + + + + + + + Textbox55 + + + Middle + 4pt + 0cm + 0cm + 0cm + + + + + + + + true + true + + + + + =FormatDateTime(Fields!existdate.Value) + + + + + + + existdate + + + Middle + 4pt + 0cm + 0cm + 0cm + + + 2 + + + + + + + true + true + + + + + 인증발급일： + + + + + + + Textbox58 + + + Middle + 4pt + 0cm + 0cm + 0cm + + + + + + + + true + true + + + + + =FormatDateTime(Fields!injungdate.Value) + + + + + + + injungdate + + + Middle + 4pt + 0cm + 0cm + 0cm + + + 2 + + + + + + + 0.23622in + + + + + true + true + + + + + 용도분류 + + + + + + + Textbox35 + + + Middle + 4pt + 0cm + 0cm + 0cm + + + + + + + + true + true + + + + + =Fields!isjugo.Value + + + + + + + isjugo + + + Middle + 4pt + 0cm + 0cm + 0cm + + + + + + + + true + true + + + + + 수수료입금일 + + + + + + + Textbox88 + + + Middle + 4pt + 0cm + 0cm + 0cm + + + + + + + + true + true + + + + + =Fields!용도수수료입금일.Value + + + + + + + 용도수수료입금일 + + + Middle + 4pt + 0cm + 0cm + 0cm + + + + + + + + true + true + + + + + 인증수수료： + + + + + + + 용도수수료입금액 + + + Middle + 4pt + 0cm + 0cm + 0cm + + + + + + + + true + true + + + + + =Fields!용도수수료입금액.Value + + + + + + + 용도수수료입금액1 + + + Middle + 4pt + 0cm + 0cm + 0cm + + + + + + + + + + + + + + + + + + + + + + After + + + After + + + + + + + + + + + + + + + + + DS_TBL_DESC + 6.3117cm + 1.45009cm + 7.42836cm + 17.58899cm + 1 + + + + + + true + true + + + + + ■ 평가결과 등급 + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + 에너지효율등급 평가 기준 및 해당 건축물의 결과 등급을 보여줍니다． + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + ■ 예비인증평가 : '신축업무용건축물'에 대하여 건축물 완공 전의 설계 도서에 근거하여 연간 단위면적 당 1차 에너지 소요량①을 산출하고 이에 따라 예비인증등급 평가 + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + ■ 본인증 평가 : '신축업무용건축물'에 대하여 건축물 준공 승인 전에 최종설계도서 및 현장 확인을 토대로 연간 단위면적 당 1차 에너지 소요량을 산출하고 이에 따라 본인증등급 평가 + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + ① 단위면적당 1차 에너지소요량 : 에너지소요량에 연료를 채취, 가공, 운송, 변환, 공급 가정 등의 손실을 포함한 단위면적당 에너지량 + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + true + true + + + + + =Parameters!PTitle.Value + + + + + + + Textbox14 + 1.13687cm + 0.44831cm + 0.76778cm + 13.28554cm + + + Middle + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + 건축물 에너지효율등급 인증평가서 + + + + + + + Textbox14 + 0.1927cm + 0.44831cm + 0.76778cm + 13.28554cm + 1 + + + Middle + 2pt + 2pt + 2pt + 2pt + + + + true + 0.12359cm + 4.4694cm + 2.03404cm + 14.41778cm + 7 + + + Tomato + + + + true + true + + + + + 「건축물 에너지효율등급 인증규정(국토해양부고시 제2009-1306호, 지식경제부고시 제2009-329호:2009.12.31) + + + + 」 + + + + + + + Textbox42 + 2.17288cm + 3.01811cm + 1.17263cm + 15.8426cm + 8 + + + Middle + 2pt + 2pt + 2pt + 2pt + + + + + + + 0.94574in + + + 1.61656in + + + + + 0.47658in + + + + + true + true + + + + + 등급 + + + + + + + Textbox30 + + + Middle + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + 1차에너지소요량 +(㎾ｈ/m : 년) + + + + + + + Textbox31 + + + Middle + 2pt + 2pt + 2pt + 2pt + + + + + + + + 0.2698in + + + + + true + true + + + + + １+++ + + + + + + + Textbox41 + + + =iif(Parameters!PGrade.Value=1,"Brown","Transparent") + Middle + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Parameters!PG1.Value + + + + + + + Textbox51 + + + =iif(Parameters!PGrade.Value=1,"Brown","Transparent") + Middle + 2pt + 2pt + 2pt + 2pt + + + + + + + + 0.28483in + + + + + true + true + + + + + １++ + + + + + + + Textbox54 + + + =iif(Parameters!PGrade.Value=2,"Brown","Transparent") + Middle + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Parameters!PG2.Value + + + + + + + Textbox93 + + + =iif(Parameters!PGrade.Value=2,"Brown","Transparent") + Middle + 2pt + 2pt + 2pt + 2pt + + + + + + + + 0.23659in + + + + + true + true + + + + + １+ + + + + + + + Textbox38 + + + =iif(Parameters!PGrade.Value=3,"Brown","Transparent") + Middle + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Parameters!PG3.Value + + + + + + + Textbox94 + + + =iif(Parameters!PGrade.Value=3,"Brown","Transparent") + Middle + 2pt + 2pt + 2pt + 2pt + + + + + + + + 0.23874in + + + + + true + true + + + + + 1 + + + + + + + Textbox33 + + + =iif(Parameters!PGrade.Value=4,"Brown","Transparent") + Middle + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Parameters!PG4.Value + + + + + + + Textbox95 + + + =iif(Parameters!PGrade.Value=4,"Brown","Transparent") + Middle + 2pt + 2pt + 2pt + 2pt + + + + + + + + 0.25694in + + + + + true + true + + + + + 2 + + + + + + + Textbox24 + + + =iif(Parameters!PGrade.Value=5,"Brown","Transparent") + Middle + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Parameters!PG5.Value + + + + + + + Textbox96 + + + =iif(Parameters!PGrade.Value=5,"Brown","Transparent") + Middle + 2pt + 2pt + 2pt + 2pt + + + + + + + + 0.23622in + + + + + true + true + + + + + 3 + + + + + + + Textbox81 + + + =iif(Parameters!PGrade.Value=6,"Brown","Transparent") + Middle + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Parameters!PG6.Value + + + + + + + Textbox83 + + + =iif(Parameters!PGrade.Value=6,"Brown","Transparent") + Middle + 2pt + 2pt + 2pt + 2pt + + + + + + + + 0.23622in + + + + + true + true + + + + + 4 + + + + + + + Textbox85 + + + =iif(Parameters!PGrade.Value=7,"Brown","Transparent") + Middle + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Parameters!PG7.Value + + + + + + + Textbox86 + + + =iif(Parameters!PGrade.Value=7,"Brown","Transparent") + Middle + 2pt + 2pt + 2pt + 2pt + + + + + + + + 0.23622in + + + + + true + true + + + + + 5 + + + + + + + Textbox87 + + + =iif(Parameters!PGrade.Value=8,"Brown","Transparent") + Middle + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Parameters!PG8.Value + + + + + + + Textbox97 + + + =iif(Parameters!PGrade.Value=8,"Brown","Transparent") + Middle + 2pt + 2pt + 2pt + 2pt + + + + + + + + 0.23622in + + + + + true + true + + + + + 6 + + + + + + + Textbox89 + + + =iif(Parameters!PGrade.Value=9,"Brown","Transparent") + Middle + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Parameters!PG9.Value + + + + + + + Textbox90 + + + =iif(Parameters!PGrade.Value=9,"Brown","Transparent") + Middle + 2pt + 2pt + 2pt + 2pt + + + + + + + + 0.23622in + + + + + true + true + + + + + 7 + + + + + + + Textbox91 + + + =iif(Parameters!PGrade.Value=10,"Brown","Transparent") + Middle + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Parameters!PG10.Value + + + + + + + Textbox92 + + + =iif(Parameters!PGrade.Value=10,"Brown","Transparent") + Middle + 2pt + 2pt + 2pt + 2pt + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + DS_REQ_USE + 15.50329cm + 1.41834cm + 7.47923cm + 6.50824cm + 9 + + + + + + true + true + + + + + １+++ + + + + + + #007139 + 5pt + 2pt + 2pt + 2pt + + + + true + true + + + + + １++ + + + + + + #007d43 + 5pt + 2pt + 2pt + 2pt + + + + true + true + + + + + 1+ + + + + + + #009e4a + 5pt + 2pt + 2pt + 2pt + + + + true + true + + + + + 1 + + + + + + #55b84c + 5pt + 2pt + 2pt + 2pt + + + + true + true + + + + + 2 + + + + + + #8ac73b + 5pt + 2pt + 2pt + 2pt + + + + true + true + + + + + 에너지효율낮음 + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + ◀１+++ + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + ◀１++ + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + ◀１+ + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + ◀1 + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + ◀2 + + + + + + 2pt + 2pt + 2pt + 2pt + + + + 25.41666cm + 1.45009cm + 0cm + 6.01367cm + 21 + + 1.5pt + + + + + true + true + + + + + ■등급평가기준 + + + + + + Middle + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + 3 + + + + + + #cedb29 + 5pt + 2pt + 2pt + 2pt + + + + true + true + + + + + 4 + + + + + + #fff200 + 5pt + 2pt + 2pt + 2pt + + + + true + true + + + + + 5 + + + + + + #ffca00 + 5pt + 2pt + 2pt + 2pt + + + + true + true + + + + + 6 + + + + + + #ff9f17 + 5pt + 2pt + 2pt + 2pt + + + + true + true + + + + + 7 + + + + + + #f87022 + 5pt + 2pt + 2pt + 2pt + + + + true + true + + + + + ◀3 + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + ◀4 + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + ◀5 + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + ◀6 + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + ◀7 + + + + + + 2pt + 2pt + 2pt + 2pt + + + + 26.69402cm + 20cm + + + White + + + + + + + + + 3.96113in + + + 2.71708in + + + + + 0.29872in + + + + + true + true + + + + + ■분야별 평가결과 + + + + + + + Textbox82 + + + Middle + 2pt + 2pt + 2pt + 2pt + + + 2 + + + + + + + 0.35313in + + + + + true + true + + + + + 구분 + + + + + + + Textbox4 + + + Maroon + Middle + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + 결과 + + + + + + + Textbox7 + + + Maroon + Middle + 2pt + 2pt + 2pt + 2pt + + + + + + + + 0.29247in + + + + + true + true + + + + + 에너지 요구량(kWh/㎡)② + + + + + + + Textbox11 + + + Middle + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Sum(Fields!값.Value, "ENERGY_REQ") + + + + + + + Textbox12 + + + Middle + 2pt + 2pt + 2pt + 2pt + + + + + + + + 0.29247in + + + + + true + true + + + + + 에너지 소요량(kWh/㎡)③ + + + + + + + Textbox13 + + + Middle + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + = Sum(Fields!값.Value, "ENERGY_USE") - Parameters!PNewUse.Value + + + + + + + Textbox18 + + + Middle + 2pt + 2pt + 2pt + 2pt + + + + + + + + 0.29247in + + + + + true + true + + + + + 1차 에너지 소요량(kWh/㎡) + + + + + + + Textbox19 + + + Middle + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Sum(Fields!값.Value, "ENERGY_1USE") + + + + + + + Textbox21 + + + Middle + 2pt + 2pt + 2pt + 2pt + + + + + + + + 0.29247in + + + + + true + true + + + + + 연간 CO2 발생량(㎏CO2/㎡)④ + + + + + + + Textbox22 + + + Middle + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Parameters!PP2CO2SUM.Value + + + + + + + Textbox23 + + + Middle + 2pt + 2pt + 2pt + 2pt + + + + + + + + + + + + + + + + + + + + + + + + + DS_REQ_USE + 0.127cm + 1.43346cm + 4.62719cm + 16.96265cm + + + + + + + + + + + + + + + + + + =Fields!종류.Value + + + + + + + + + + + + + =Sum(Fields!값.Value) + + + + + + + 축 제목 + + + + False + + + + + + + + + 0.5 + + NaN + NaN + NaN + + + + + 축 제목 + + + + False + + + + + + + + + 0.5 + + NaN + Opposite + NaN + NaN + + + + + + + 축 제목 + + + + + + + + + + + + 0.5 + + NaN + NaN + NaN + + + + + 축 제목 + + + + + + + + + + + + 0.5 + + NaN + Opposite + NaN + NaN + + + + + + + + + + + + + Black + Black + + + BrightPastel + + + + + 사용 가능한 데이터 없음 + + + ENERGY_1USE + 16.79462cm + 10.74098cm + 5.3262cm + 7.65514cm + 1 + + + White + None + + + + 22.27958cm + 1.38406cm + 0cm + 6.01367cm + 2 + + 1.5pt + + + + + true + true + + + + + ② 단위면적당 에너지요구량 : 건축물의 난방, 냉방, 급탕, 조명 부문에서 요구되는 단위면적당 에너지량 + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + ③ 단위면적당 에너지소요량 : 건출물에 설치된 난방, 냉방, 급탕, 조명, 환기시스템에서 소요되는 단위면적당 에너지량 + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + ④ 단위면적당 CO2 배출량 : 에너지소요량에서 산출한 단위면적당 이산화탄소 배출량 + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + 1.54047in + + + 1.79199in + + + + + 0.49664in + + + + + true + true + + + + + 단위면적당 연간 1차 에너지 소요량 +(kWh/㎡) + + + + + + + Textbox108 + + + Brown + Middle + 2pt + 2pt + 2pt + 2pt + + + 2 + + + + + + + 0.27789in + + + + + true + true + + + + + =Fields!종류.Value + + + + + + + 종류 + + + Middle + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!값.Value + + + + + + + 값 + + + Middle + 2pt + 2pt + 2pt + 2pt + + + + + + + + + + + + + + + + + + After + + + + + + + ENERGY_1USE + 16.79462cm + 1.43346cm + 1.96731cm + 8.46445cm + 6 + + + + + + + + + + + + + + + + + + =Fields!종류.Value + + + + + + + + + + + + + =Sum(Fields!값.Value) + + + + + + + + + 축 제목 + + + + False + + + + + + + + + 0.5 + + NaN + NaN + NaN + + + + + 축 제목 + + + + False + + + + + + + + + 0.5 + + NaN + Opposite + NaN + NaN + + + + + + + 축 제목 + + + + + + + + + + + + 0.5 + + NaN + NaN + NaN + + + + + 축 제목 + + + + + + + + + + + + 0.5 + + NaN + Opposite + NaN + NaN + + + + + + + + + + + + + Black + Black + + + BrightPastel + + + + + 사용 가능한 데이터 없음 + + + ENERGY_USE + 10.74186cm + 10.74099cm + 5.3262cm + 7.65514cm + 7 + + + White + None + + + + + + + 1.54047in + + + 1.79199in + + + + + 0.49664in + + + + + true + true + + + + + 단위면적당 연간 에너지 소요량 +(kWh/㎡) + + + + + + + Textbox108 + + + Brown + Middle + 2pt + 2pt + 2pt + 2pt + + + 2 + + + + + + + 0.27789in + + + + + true + true + + + + + =Fields!종류.Value + + + + + + + 종류 + + + Middle + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!값.Value + + + + + + + 값 + + + Middle + 2pt + 2pt + 2pt + 2pt + + + + + + + + + + + + + + + + + + After + + + + + + + ENERGY_USE + 10.74186cm + 1.43345cm + 1.96731cm + 8.46445cm + 8 + + + + + + + + + + + + + + + + + + =Fields!종류.Value + + + + + + + + + + + + + =Sum(Fields!값.Value) + + + + + + + 축 제목 + + + + False + + + + + + + + + 0.5 + + NaN + NaN + NaN + + + + + 축 제목 + + + + False + + + + + + + + + 0.5 + + NaN + Opposite + NaN + NaN + + + + + + + 축 제목 + + + + + + + + + + + + 0.5 + + NaN + NaN + NaN + + + + + 축 제목 + + + + + + + + + + + + 0.5 + + NaN + Opposite + NaN + NaN + + + + + + + + + + + + + Black + Black + + + BrightPastel + + + + + 사용 가능한 데이터 없음 + + + ENERGY_REQ + 5.03603cm + 10.74098cm + 5.3262cm + 7.65514cm + 9 + + + White + None + + + + + + + 1.54047in + + + 1.79199in + + + + + 0.49664in + + + + + true + true + + + + + 단위면적당 연간 에너지 요구량 +(kWh/㎡) + + + + + + + Textbox108 + + + Brown + Middle + 2pt + 2pt + 2pt + 2pt + + + 2 + + + + + + + 0.27789in + + + + + true + true + + + + + =Fields!종류.Value + + + + + + + 종류 + + + Middle + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!값.Value + + + + + + + 값 + + + Middle + 2pt + 2pt + 2pt + 2pt + + + + + + + + + + + + + + + + + + After + + + + + + + ENERGY_REQ + 5.03603cm + 1.43346cm + 1.96731cm + 8.46445cm + 10 + + + + + + + Start + + 27.05777cm + 25.96728cm + 20cm + 1 + + + + + + + + + + + 1.38886in + + + 1.00678in + + + 0.90207in + + + 1.29355in + + + 1.35998in + + + 0.89411in + + + + + 0.2883in + + + + + true + true + + + + + ■ 항목별 평가결과 + + + + + + + Textbox77 + + + Middle + 2pt + 2pt + 2pt + 2pt + + + 6 + + + + + + + + + + + 1.05762in + + + + + true + true + + + + + 구조체 열관류율 + + + + + + + 벽체종류 + + + Maroon + Middle + 2pt + 2pt + 2pt + 2pt + + + + + + + + + + + 0.80297in + + + 3.72093in + + + 0.9326in + + + + + 0.26441in + + + + + true + true + + + + + 구분 + + + + + + + Textbox213 + + + Brown + Middle + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + 단열재 종류 + + + + + + + Textbox214 + + + Brown + Middle + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + 열관류율 + + + + + + + Textbox215 + + + Brown + Middle + 2pt + 2pt + 2pt + 2pt + + + + + + + + 0.26441in + + + + + true + true + + + + + 벽체 + + + + + + + Textbox216 + + + Tan + Middle + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =First(Fields!벽체종류.Value) + + + + + + + Textbox130 + + + Middle + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Sum(Fields!벽체값.Value) + + + + + + + 벽체값 + + + Middle + 2pt + 2pt + 2pt + 2pt + + + + + + + + 0.26441in + + + + + true + true + + + + + 지붕 + + + + + + + Textbox207 + + + Tan + Middle + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =First(Fields!지붕종류.Value) + + + + + + + 지붕종류 + + + Middle + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Sum(Fields!지붕값.Value) + + + + + + + 지붕값 + + + Middle + 2pt + 2pt + 2pt + 2pt + + + + + + + + 0.26441in + + + + + true + true + + + + + 바닥 + + + + + + + Textbox219 + + + Tan + Middle + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =First(Fields!바닥종류.Value) + + + + + + + 바닥종류 + + + Middle + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Sum(Fields!바닥값.Value) + + + + + + + 바닥값 + + + Middle + 2pt + 2pt + 2pt + 2pt + + + + + + + + + + + + + + + + + + + + + + + + STRUCT_YK + + + + + 5 + + + + + + + + + + 0.1008in + + + + + true + true + + + + + + + + + + + + Textbox107 + + + Middle + 2pt + 2pt + 2pt + 2pt + + + 6 + + + + + + + + + + + 0.46539in + + + + + true + true + + + + + 창호 + + + + + + + Textbox127 + + + Maroon + Middle + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!창호종류.Value + + + + + + + 창호종류 + + + Middle + 2pt + 2pt + 2pt + 2pt + + + 4 + + + + + + + + + true + true + + + + + =Sum(Fields!창호값.Value) + + + + + + + 창호값 + + + Middle + 2pt + 2pt + 2pt + 2pt + + + + + + + + 0.1008in + + + + + true + true + + + + + + + + + + + + Textbox134 + + + Middle + 2pt + 2pt + 2pt + 2pt + + + 6 + + + + + + + + + + + 0.27788in + + + + + true + true + + + + + 온열원 설비 + + + + + + + Textbox139 + + + Maroon + Middle + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!온열원설비방식.Value + + + + + + + 온열원설비방식 + + + Middle + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!온열원설비연료.Value + + + + + + + 온열원설비연료 + + + Middle + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + 용량(㎾)/효율 + + + + + + + Textbox142 + + + Maroon + Middle + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!온열원용량.Value + + + + + + + 온열원용량 + + + Middle + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!온열원효율.Value + + + + + + + 온열원효율 + + + Middle + 2pt + 2pt + 2pt + 2pt + + + + + + + + 0.26747in + + + + + true + true + + + + + 냉열원 설비 + + + + + + + Textbox144 + + + Maroon + Middle + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!냉열원설비방식.Value + + + + + + + 냉열원설비방식 + + + Middle + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!냉열원설비연료.Value + + + + + + + 냉열원설비연료 + + + Middle + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + 용량(㎾)/효율 + + + + + + + Textbox142 + + + Maroon + Middle + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!냉열원용량.Value + + + + + + + 냉열원용량 + + + Middle + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!냉열원효율.Value + + + + + + + 냉열원효율 + + + Middle + 2pt + 2pt + 2pt + 2pt + + + + + + + + 0.2883in + + + + + true + true + + + + + 급탕 설비 + + + + + + + Textbox149 + + + Maroon + Middle + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!급탕설비방식.Value + + + + + + + 급탕설비방식 + + + Middle + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!급탕설비연료.Value + + + + + + + 급탕설비연료 + + + Middle + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + 용량(㎾)/효율 + + + + + + + Textbox142 + + + Maroon + Middle + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!급탕용량.Value + + + + + + + 급탕용량 + + + Middle + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!급탕효율.Value + + + + + + + 급탕효율 + + + Middle + 2pt + 2pt + 2pt + 2pt + + + + + + + + 0.09039in + + + + + true + true + + + + + + + + + + + + Textbox154 + + + Middle + 2pt + 2pt + 2pt + 2pt + + + 6 + + + + + + + + + + + 0.57997in + + + + + true + true + + + + + 조명설비 + + + + + + + Textbox159 + + + Maroon + Middle + 2pt + 2pt + 2pt + 2pt + + + + + + + + + + + 1.70741in + + + 3.74908in + + + + + 0.28999in + + + + + true + true + + + + + 주거실 조명전력 + + + + + + + Textbox228 + + + Tan + Middle + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!주거실조명전력.Value + + + + + + + 주거실조명전력 + + + Middle + 2pt + 2pt + 2pt + 2pt + + + + + + + + 0.28999in + + + + + true + true + + + + + 주조명광원 + + + + + + + Textbox234 + + + Tan + Middle + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!주조명광원.Value + + + + + + + 주조명광원 + + + Middle + 2pt + 2pt + 2pt + 2pt + + + + + + + + + + + + + + + + + + + + + STRUCT_YK + + + + + 5 + + + + + + + + + + 0.07997in + + + + + true + true + + + + + + + + + + + + Textbox169 + + + Middle + 2pt + 2pt + 2pt + 2pt + + + 6 + + + + + + + + + + + 1.01411in + + + + + true + true + + + + + 지열시스템 + + + + + + + Textbox174 + + + Maroon + Middle + 2pt + 2pt + 2pt + 2pt + + + + + + + + + + + 1.70741in + + + 3.74908in + + + + + 0.25353in + + + + + true + true + + + + + 용량（난방／냉방） + + + + + + + Textbox255 + + + Tan + Middle + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =First(Fields!지열히트펌프용량.Value) + + + + + + + 지열히트펌프용량 + + + Middle + 2pt + 2pt + 2pt + 2pt + + + + + + + + 0.25353in + + + + + true + true + + + + + 난방ＣＯＰ（－） + + + + + + + Textbox253 + + + Tan + Middle + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =First(Fields!지열난방COP.Value) + + + + + + + 지열난방COP + + + Middle + 2pt + 2pt + 2pt + 2pt + + + + + + + + 0.25353in + + + + + true + true + + + + + 냉방ＣＯＰ（－） + + + + + + + Textbox228 + + + Tan + Middle + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =First(Fields!지열냉방COP.Value) + + + + + + + Textbox230 + + + Middle + 2pt + 2pt + 2pt + 2pt + + + + + + + + 0.25353in + + + + + true + true + + + + + 비 고 + + + + + + + Textbox234 + + + Tan + Middle + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =First(Fields!지열비고.Value) + + + + + + + Textbox235 + + + Middle + 2pt + 2pt + 2pt + 2pt + + + + + + + + + + + + + + + + + + + + + + + STRUCT_YK + + + + + 5 + + + + + + + + + + 0.0625in + + + + + true + true + + + + + + + + + + + + Textbox8 + + + White + Middle + 2pt + 2pt + 2pt + 2pt + + + 6 + + + + + + + + + + + 0.93414in + + + + + true + true + + + + + 태양열시스템 + + + + + + + Textbox37 + + + Maroon + Middle + 2pt + 2pt + 2pt + 2pt + + + + + + + + + + + 1.70741in + + + 3.74908in + + + + + 0.31138in + + + + + true + true + + + + + 집열판　면적（㎡） + + + + + + + Textbox255 + + + Tan + Middle + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =First(Fields!태양열집열판면적.Value) + + + + + + + 지열히트펌프용량 + + + Middle + 2pt + 2pt + 2pt + 2pt + + + + + + + + 0.31138in + + + + + true + true + + + + + 집열기　유형 + + + + + + + Textbox253 + + + Tan + Middle + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =First(Fields!태양열집열기유형.Value) + + + + + + + 지열난방COP + + + Middle + 2pt + 2pt + 2pt + 2pt + + + + + + + + 0.31138in + + + + + true + true + + + + + 집열판　방위 + + + + + + + Textbox228 + + + Tan + Middle + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =First(Fields!태양열집열판방위.Value) + + + + + + + Textbox230 + + + Middle + 2pt + 2pt + 2pt + 2pt + + + + + + + + + + + + + + + + + + + + + + STRUCT_YK + + + + + 5 + + + + + + + + + + 0.05914in + + + + + true + true + + + + + + + + + + + + Textbox88 + + + White + Middle + 2pt + 2pt + 2pt + 2pt + + + 6 + + + + + + + + + + + 1.34039in + + + + + true + true + + + + + 태양광시스템 + + + + + + + Textbox111 + + + Maroon + Middle + 2pt + 2pt + 2pt + 2pt + + + + + + + + + + + 1.70741in + + + 3.74908in + + + + + 0.26808in + + + + + true + true + + + + + 모듈　면적（㎡） + + + + + + + Textbox255 + + + Tan + Middle + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =First(Fields!태양광모듈면적.Value) + + + + + + + 지열히트펌프용량 + + + Middle + 2pt + 2pt + 2pt + 2pt + + + + + + + + 0.26808in + + + + + true + true + + + + + 모듈　종류 + + + + + + + Textbox253 + + + Tan + Middle + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =First(Fields!태양광모듈종류.Value) + + + + + + + 지열난방COP + + + Middle + 2pt + 2pt + 2pt + 2pt + + + + + + + + 0.26808in + + + + + true + true + + + + + 모듈　방위 + + + + + + + Textbox228 + + + Tan + Middle + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =First(Fields!태양광모듈방위.Value) + + + + + + + Textbox230 + + + Middle + 2pt + 2pt + 2pt + 2pt + + + + + + + + 0.26808in + + + + + true + true + + + + + 모듈　기울기 + + + + + + + Textbox234 + + + Tan + Middle + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =First(Fields!태양광모듈기울기.Value) + + + + + + + Textbox235 + + + Middle + 2pt + 2pt + 2pt + 2pt + + + + + + + + 0.26808in + + + + + true + true + + + + + 모듈　적용타입 + + + + + + + Textbox164 + + + Tan + Middle + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =First(Fields!태양광모듈적용타입.Value) + + + + + + + Textbox165 + + + Middle + 2pt + 2pt + 2pt + 2pt + + + + + + + + + + + + + + + + + + + + + + + + STRUCT_YK + + + + + 5 + + + + + + + + + + 0.06955in + + + + + true + true + + + + + + + + + + + + Textbox117 + + + White + Middle + 2pt + 2pt + 2pt + 2pt + + + 6 + + + + + + + + + + + 1.12164in + + + + + true + true + + + + + 열병합시스템 + + + + + + + Textbox123 + + + Maroon + Middle + 2pt + 2pt + 2pt + 2pt + + + + + + + + + + + 1.70741in + + + 3.74908in + + + + + 0.28041in + + + + + true + true + + + + + 열생산　능력（㎾） + + + + + + + Textbox255 + + + Tan + Middle + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =First(Fields!열병합열생산능력.Value) + + + + + + + 지열히트펌프용량 + + + Middle + 2pt + 2pt + 2pt + 2pt + + + + + + + + 0.28041in + + + + + true + true + + + + + 열생산　효율（％） + + + + + + + Textbox253 + + + Tan + Middle + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =First(Fields!열병합열생산효율.Value) + + + + + + + Textbox166 + + + Middle + 2pt + 2pt + 2pt + 2pt + + + + + + + + 0.28041in + + + + + true + true + + + + + 발전　효율（％） + + + + + + + Textbox228 + + + Tan + Middle + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =First(Fields!열병합발전효율.Value) + + + + + + + Textbox230 + + + Middle + 2pt + 2pt + 2pt + 2pt + + + + + + + + 0.28041in + + + + + true + true + + + + + 가동　연료 + + + + + + + Textbox9 + + + Tan + Middle + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =First(Fields!열병합가동연료.Value) + + + + + + + Textbox28 + + + Middle + 2pt + 2pt + 2pt + 2pt + + + + + + + + + + + + + + + + + + + + + + + STRUCT_YK + + + + + 5 + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + STRUCT_YK + 0.27607cm + 1.26301cm + 20.82383cm + 17.38719cm + + + 돋움 + 12pt + + + + + Start + + 53.4818cm + 21.0999cm + 20cm + 2 + + + + + + 29.36287in + + + + + + + String + ReportParameter1 + + + Integer + ReportParameter1 + + + Float + ReportParameter1 + + + Float + ReportParameter1 + + + String + true + true + ReportParameter1 + + + String + true + true + ReportParameter1 + + + String + true + true + ReportParameter1 + + + String + true + true + ReportParameter1 + + + String + true + true + ReportParameter1 + + + String + true + true + ReportParameter1 + + + String + true + true + ReportParameter1 + + + String + true + true + ReportParameter1 + + + String + true + true + ReportParameter1 + + + String + true + true + ReportParameter1 + + + String + true + ReportParameter1 + + + 8.14424in + + + 0.85197cm + true + true + + + true + true + + + + + =Parameters!PCompany.Value + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + 인증기관 + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + 33cm + 21cm + 29.7cm + 21cm + 0cm + 0cm + 1cm + 0cm + 0.13cm +