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

macro 기능 추가 중. 엑세 업로드 양식 추가 예정

Browse Source
This commit is contained in:
ykh
2023-07-23 00:58:28 +09:00
parent 3eed3c6cd4
commit 48e3fecfc9
13 changed files with 3571 additions and 1925 deletions
Download Patch File Download Diff File Expand all files Collapse all files

839
ArinWarev1/ECO2_2022V2.vbproj Normal file
View File

@@ -0,0 +1,839 @@
<?xml version="1.0" encoding="utf-8"?>
<Project DefaultTargets="Build" xmlns="http://schemas.microsoft.com/developer/msbuild/2003" ToolsVersion="4.0">
<PropertyGroup>
<Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
<Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
<ProductVersion>9.0.30729</ProductVersion>
<SchemaVersion>2.0</SchemaVersion>
<ProjectGuid>{D5C51BDE-68E5-42BC-B648-DB9CCF044703}</ProjectGuid>
<OutputType>WinExe</OutputType>
<StartupObject>Eco2Ar.My.MyApplication</StartupObject>
<RootNamespace>Eco2Ar</RootNamespace>
<AssemblyName>Eco2Ar</AssemblyName>
<MyType>WindowsForms</MyType>
<TargetZone>LocalIntranet</TargetZone>
<GenerateManifests>false</GenerateManifests>
<SignManifests>false</SignManifests>
<SignAssembly>false</SignAssembly>
<AssemblyOriginatorKeyFile>
</AssemblyOriginatorKeyFile>
<ManifestCertificateThumbprint>283B51AD9210178E1628176E6D96B5102FED9775</ManifestCertificateThumbprint>
<ManifestKeyFile>ArinWareT4_1_TemporaryKey.pfx</ManifestKeyFile>
<DelaySign>false</DelaySign>
<IsWebBootstrapper>true</IsWebBootstrapper>
<OptionStrict>Off</OptionStrict>
<FileUpgradeFlags>
</FileUpgradeFlags>
<UpgradeBackupLocation>
</UpgradeBackupLocation>
<OldToolsVersion>3.5</OldToolsVersion>
<ApplicationManifest>My Project\app.manifest</ApplicationManifest>
<ApplicationIcon>002.ico</ApplicationIcon>
<TargetFrameworkVersion>v4.0</TargetFrameworkVersion>
<TargetFrameworkProfile />
<PublishUrl>ftp://tindevil.com/www/mynetapp/t4/</PublishUrl>
<Install>true</Install>
<InstallFrom>Web</InstallFrom>
<UpdateEnabled>true</UpdateEnabled>
<UpdateMode>Foreground</UpdateMode>
<UpdateInterval>7</UpdateInterval>
<UpdateIntervalUnits>Days</UpdateIntervalUnits>
<UpdatePeriodically>false</UpdatePeriodically>
<UpdateRequired>false</UpdateRequired>
<MapFileExtensions>true</MapFileExtensions>
<InstallUrl>http://tindevil.com/mynetapp/t4/</InstallUrl>
<SupportUrl>http://tindevil.com</SupportUrl>
<ProductName>Energy%28Test Version%29</ProductName>
<PublisherName>Arinware</PublisherName>
<CreateWebPageOnPublish>true</CreateWebPageOnPublish>
<WebPage>index.htm</WebPage>
<ApplicationRevision>33</ApplicationRevision>
<ApplicationVersion>1.0.0.%2a</ApplicationVersion>
<UseApplicationTrust>false</UseApplicationTrust>
<BootstrapperEnabled>true</BootstrapperEnabled>
</PropertyGroup>
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
<DebugSymbols>true</DebugSymbols>
<DebugType>full</DebugType>
<DefineDebug>true</DefineDebug>
<DefineTrace>true</DefineTrace>
<OutputPath>..\..\..\..\..\eco2\debug_2016\</OutputPath>
<DocumentationFile>
</DocumentationFile>
<NoWarn>41999,42016,42017,42018,42019,42020,42021,42022,42032,42036,42353,42354,42355</NoWarn>
<PlatformTarget>x86</PlatformTarget>
<WarningsAsErrors>
</WarningsAsErrors>
</PropertyGroup>
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
<DebugType>Full</DebugType>
<DefineDebug>false</DefineDebug>
<DefineTrace>true</DefineTrace>
<Optimize>true</Optimize>
<OutputPath>c:\eco2\debug_2016\</OutputPath>
<DocumentationFile>
</DocumentationFile>
<NoWarn>41999,42016,42017,42018,42019,42020,42021,42022,42032,42036,42353,42354,42355</NoWarn>
<DebugSymbols>true</DebugSymbols>
<PlatformTarget>x86</PlatformTarget>
<WarningsAsErrors>
</WarningsAsErrors>
<DefineConstants>MDI=true</DefineConstants>
</PropertyGroup>
<ItemGroup>
<Reference Include="FarPoint.CalcEngine, Version=5.0.3505.2008, Culture=neutral, PublicKeyToken=327c3516b1b18457">
<Private>True</Private>
</Reference>
<Reference Include="FarPoint.Excel, Version=5.0.3505.2008, Culture=neutral, PublicKeyToken=327c3516b1b18457">
<Private>True</Private>
</Reference>
<Reference Include="FarPoint.PDF, Version=5.0.3505.2008, Culture=neutral, PublicKeyToken=327c3516b1b18457">
<Private>True</Private>
</Reference>
<Reference Include="FarPoint.PluginCalendar.WinForms, Version=5.0.3505.2008, Culture=neutral, PublicKeyToken=327c3516b1b18457">
<Private>True</Private>
</Reference>
<Reference Include="FarPoint.Win, Version=5.0.3505.2008, Culture=neutral, PublicKeyToken=327c3516b1b18457">
<Private>True</Private>
</Reference>
<Reference Include="FarPoint.Win.Chart, Version=5.0.3505.2008, Culture=neutral, PublicKeyToken=327c3516b1b18457">
<Private>True</Private>
</Reference>
<Reference Include="FarPoint.Win.Spread, Version=5.0.3505.2008, Culture=neutral, PublicKeyToken=327c3516b1b18457, processorArchitecture=MSIL">
<Private>True</Private>
</Reference>
<Reference Include="Interop.Excel, Version=1.5.0.0, Culture=neutral, processorArchitecture=MSIL">
<SpecificVersion>False</SpecificVersion>
<HintPath>..\Interop.Excel.dll</HintPath>
</Reference>
<Reference Include="Interop.VBIDE, Version=5.3.0.0, Culture=neutral, processorArchitecture=MSIL">
<SpecificVersion>False</SpecificVersion>
<HintPath>..\Interop.VBIDE.dll</HintPath>
</Reference>
<Reference Include="Microsoft.ReportViewer.Common, Version=10.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
<Reference Include="Microsoft.ReportViewer.WinForms, Version=10.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a, processorArchitecture=MSIL" />
<Reference Include="System" />
<Reference Include="System.Data" />
<Reference Include="System.Data.DataSetExtensions" />
<Reference Include="System.Drawing" />
<Reference Include="System.Windows.Forms" />
<Reference Include="System.Xml" />
</ItemGroup>
<ItemGroup>
<Import Include="ArinNet" />
<Import Include="CEnergy" />
<Import Include="Microsoft.VisualBasic" />
<Import Include="System" />
<Import Include="System.Collections" />
<Import Include="System.Collections.Generic" />
<Import Include="System.Data" />
<Import Include="System.Drawing" />
<Import Include="System.Diagnostics" />
<Import Include="System.Windows.Forms" />
</ItemGroup>
<ItemGroup>
<Compile Include="ApplicationEvents.vb" />
<Compile Include="Calculator\Result\C1차소요량.vb" />
<Compile Include="Calculator\Result\CCo2발생량.vb" />
<Compile Include="Calculator\Result\C범용.vb" />
<Compile Include="Calculator\Result\CResult.vb" />
<Compile Include="Calculator\CShared.vb" />
<Compile Include="Calculator\Result\C사용면적.vb" />
<Compile Include="Calculator\Result\CZones.vb" />
<Compile Include="Calculator\Result\C생산에너지.vb" />
<Compile Include="Calculator\Result\C에너지소요량.vb" />
<Compile Include="Calculator\Result\C에너지분석.vb" />
<Compile Include="Calculator\Result\C에너지요구량.vb" />
<Compile Include="Calculator\CSummary.vb" />
<Compile Include="Calculator\Result\C최대냉난방부하.vb" />
<Compile Include="DataSet\Calculator_ALT\CZone_ALT.vb" />
<Compile Include="DataSet\DS.Designer.vb">
<AutoGen>True</AutoGen>
<DesignTime>True</DesignTime>
<DependentUpon>DS.xsd</DependentUpon>
</Compile>
<Compile Include="DataSet\DS.vb">
<DependentUpon>DS.xsd</DependentUpon>
</Compile>
<Compile Include="DataSet\DS2.Designer.vb">
<AutoGen>True</AutoGen>
<DesignTime>True</DesignTime>
<DependentUpon>DS2.xsd</DependentUpon>
</Compile>
<Compile Include="Forms_Basic\Frm_import.Designer.vb">
<DependentUpon>Frm_import.vb</DependentUpon>
</Compile>
<Compile Include="Forms_Basic\Frm_import.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="Forms_Basic\frm_Macro.Designer.vb">
<DependentUpon>frm_Macro.vb</DependentUpon>
</Compile>
<Compile Include="Forms_Basic\frm_Macro.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="Forms_Basic\fSelectWeatherGroup.Designer.vb">
<DependentUpon>fSelectWeatherGroup.vb</DependentUpon>
</Compile>
<Compile Include="Forms_Basic\fSelectWeatherGroup.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="Forms_Basic\fSelectArea.Designer.vb">
<DependentUpon>fSelectArea.vb</DependentUpon>
</Compile>
<Compile Include="Forms_Basic\fSelectArea.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="Forms_Input\frm_monuse.Designer.vb">
<DependentUpon>frm_monuse.vb</DependentUpon>
</Compile>
<Compile Include="Forms_Input\frm_monuse.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="Forms_Report\Frm_Export.Designer.vb">
<DependentUpon>Frm_Export.vb</DependentUpon>
</Compile>
<Compile Include="Forms_Report\Frm_Export.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="Forms_Report\Frm_Upload.Designer.vb">
<DependentUpon>Frm_Upload.vb</DependentUpon>
</Compile>
<Compile Include="Forms_Report\Frm_Upload.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="Forms_Report\Report_설계개선.Designer.vb">
<DependentUpon>Report_설계개선.vb</DependentUpon>
</Compile>
<Compile Include="Forms_Report\Report_설계개선.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="Frm_History.Designer.vb">
<DependentUpon>Frm_History.vb</DependentUpon>
</Compile>
<Compile Include="Frm_History.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="Module\CMenu.vb" />
<Compile Include="UserControls\YkCtl.Designer.vb">
<DependentUpon>YkCtl.vb</DependentUpon>
</Compile>
<Compile Include="UserControls\YkCtl.vb">
<SubType>UserControl</SubType>
</Compile>
<Compile Include="Forms_Basic\Frm_DisplayGubun.Designer.vb">
<DependentUpon>Frm_DisplayGubun.vb</DependentUpon>
</Compile>
<Compile Include="Forms_Basic\Frm_DisplayGubun.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="Forms_Basic\Frm_Filter.Designer.vb">
<DependentUpon>Frm_Filter.vb</DependentUpon>
</Compile>
<Compile Include="Forms_Basic\Frm_Filter.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="Forms_Basic\Frm_Work.Designer.vb">
<DependentUpon>Frm_Work.vb</DependentUpon>
</Compile>
<Compile Include="Forms_Basic\Frm_Work.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="Forms_Report\Report_Total.Designer.vb">
<DependentUpon>Report_Total.vb</DependentUpon>
</Compile>
<Compile Include="Forms_Report\Report_Total.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="Forms_Input\Frm_v20091231_ResultMon.Designer.vb">
<DependentUpon>Frm_v20091231_ResultMon.vb</DependentUpon>
</Compile>
<Compile Include="Forms_Input\Frm_v20091231_ResultMon.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="Forms_Input\Frm_v20091231_ResultMax.Designer.vb">
<DependentUpon>Frm_v20091231_ResultMax.vb</DependentUpon>
</Compile>
<Compile Include="Forms_Input\Frm_v20091231_ResultMax.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="Forms_Input\Frm_v20091231_buha.Designer.vb">
<DependentUpon>Frm_v20091231_buha.vb</DependentUpon>
</Compile>
<Compile Include="Forms_Input\Frm_v20091231_buha.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="Forms_Basic\Frm_RepResult_Admin.Designer.vb">
<DependentUpon>Frm_RepResult_Admin.vb</DependentUpon>
</Compile>
<Compile Include="Forms_Basic\Frm_RepResult_Admin.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="Forms_Report\Report_그래프.Designer.vb">
<DependentUpon>Report_그래프.vb</DependentUpon>
</Compile>
<Compile Include="Forms_Report\Report_그래프.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="Forms_Input\Frm_Desc.Designer.vb">
<DependentUpon>Frm_Desc.vb</DependentUpon>
</Compile>
<Compile Include="Forms_Input\Frm_Desc.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="Forms_Report\Report_Graph_auth.Designer.vb">
<DependentUpon>Report_Graph_auth.vb</DependentUpon>
</Compile>
<Compile Include="Forms_Report\Report_Graph_auth.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="Forms_Input\Frm_nBunbae.Designer.vb">
<DependentUpon>Frm_nBunbae.vb</DependentUpon>
</Compile>
<Compile Include="Forms_Input\Frm_nBunbae.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="Forms_Basic\Frm_Warning.Designer.vb">
<DependentUpon>Frm_Warning.vb</DependentUpon>
</Compile>
<Compile Include="Forms_Basic\Frm_Warning.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="Forms_Basic\Frm_Calc.Designer.vb">
<DependentUpon>Frm_Calc.vb</DependentUpon>
</Compile>
<Compile Include="Forms_Basic\Frm_Calc.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="Forms_Input\Frm_YK.Designer.vb">
<DependentUpon>Frm_YK.vb</DependentUpon>
</Compile>
<Compile Include="Forms_Input\Frm_YK.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="Forms_Report\Report_pyonga.Designer.vb">
<DependentUpon>Report_pyonga.vb</DependentUpon>
</Compile>
<Compile Include="Forms_Report\Report_pyonga.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="Module\CLang.vb" />
<Compile Include="DataSet\DSR.Designer.vb">
<AutoGen>True</AutoGen>
<DesignTime>True</DesignTime>
<DependentUpon>DSR.xsd</DependentUpon>
</Compile>
<Compile Include="DataSet\DSR.vb">
<DependentUpon>DSR.xsd</DependentUpon>
</Compile>
<Compile Include="Calculator\CCooling.vb" />
<Compile Include="Calculator\CHeating.vb" />
<Compile Include="Calculator\CAirHandling.vb" />
<Compile Include="Calculator\Calculator.vb" />
<Compile Include="Module\Enum.vb" />
<Compile Include="Calculator\CRenewable.vb" />
<Compile Include="Calculator\CZone.vb" />
<Compile Include="Forms_Basic\Frm_Intro.Designer.vb">
<DependentUpon>Frm_Intro.vb</DependentUpon>
</Compile>
<Compile Include="Forms_Basic\Frm_Intro.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="Module\CForm.Designer.vb">
<DependentUpon>CForm.vb</DependentUpon>
</Compile>
<Compile Include="Module\CForm.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="Module\Pub.vb" />
<Compile Include="MdiMain.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="MdiMain.Designer.vb">
<DependentUpon>MdiMain.vb</DependentUpon>
<SubType>Form</SubType>
</Compile>
<Compile Include="My Project\AssemblyInfo.vb" />
<Compile Include="My Project\Application.Designer.vb">
<AutoGen>True</AutoGen>
<DependentUpon>Application.myapp</DependentUpon>
</Compile>
<Compile Include="My Project\Resources.Designer.vb">
<AutoGen>True</AutoGen>
<DesignTime>True</DesignTime>
<DependentUpon>Resources.resx</DependentUpon>
</Compile>
<Compile Include="My Project\Settings.Designer.vb">
<AutoGen>True</AutoGen>
<DependentUpon>Settings.settings</DependentUpon>
<DesignTimeSharedInput>True</DesignTimeSharedInput>
</Compile>
<Compile Include="Forms_Input\Frm_v20091231_profile.Designer.vb">
<DependentUpon>Frm_v20091231_profile.vb</DependentUpon>
</Compile>
<Compile Include="Forms_Input\Frm_v20091231_profile.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="Forms_Input\Frm_Zone.Designer.vb">
<DependentUpon>Frm_Zone.vb</DependentUpon>
</Compile>
<Compile Include="Forms_Input\Frm_Zone.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="Forms_Input\Frm_kongjo.Designer.vb">
<DependentUpon>Frm_kongjo.vb</DependentUpon>
</Compile>
<Compile Include="Forms_Input\Frm_kongjo.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="Forms_Input\Frm_kongkub.Designer.vb">
<DependentUpon>Frm_kongkub.vb</DependentUpon>
</Compile>
<Compile Include="Forms_Input\Frm_kongkub.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="Forms_Input\Frm_Nanbang.Designer.vb">
<DependentUpon>Frm_Nanbang.vb</DependentUpon>
</Compile>
<Compile Include="Forms_Input\Frm_Nanbang.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="Forms_Input\Frm_NaengBang.Designer.vb">
<DependentUpon>Frm_NaengBang.vb</DependentUpon>
</Compile>
<Compile Include="Forms_Input\Frm_NaengBang.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="Forms_Input\Frm_Bunbae.Designer.vb">
<DependentUpon>Frm_Bunbae.vb</DependentUpon>
</Compile>
<Compile Include="Forms_Input\Frm_Bunbae.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="Forms_Input\Frm_New.Designer.vb">
<DependentUpon>Frm_New.vb</DependentUpon>
</Compile>
<Compile Include="Forms_Input\Frm_New.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="Forms_Input\Frm_v20091231_Myoun.Designer.vb">
<DependentUpon>Frm_v20091231_Myoun.vb</DependentUpon>
</Compile>
<Compile Include="Forms_Input\Frm_v20091231_Myoun.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="Forms_Basic\Frm_Common.Designer.vb">
<DependentUpon>Frm_Common.vb</DependentUpon>
</Compile>
<Compile Include="Forms_Basic\Frm_Common.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="Forms_Input\Frm_v20091231_Weather.Designer.vb">
<DependentUpon>Frm_v20091231_Weather.vb</DependentUpon>
</Compile>
<Compile Include="Forms_Input\Frm_v20091231_Weather.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="Forms_Basic\Frm_About.Designer.vb">
<DependentUpon>Frm_About.vb</DependentUpon>
</Compile>
<Compile Include="Forms_Basic\Frm_About.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="UserControls\ArinDv.Designer.vb">
<DependentUpon>ArinDv.vb</DependentUpon>
</Compile>
<Compile Include="UserControls\ArinDv.vb">
<SubType>Component</SubType>
</Compile>
<Compile Include="UserControls\MyCmb.Designer.vb">
<DependentUpon>MyCmb.vb</DependentUpon>
</Compile>
<Compile Include="UserControls\MyCmb.vb">
<SubType>Component</SubType>
</Compile>
<Compile Include="UserControls\MyTb.Designer.vb">
<DependentUpon>MyTb.vb</DependentUpon>
</Compile>
<Compile Include="UserControls\MyTb.vb">
<SubType>Component</SubType>
</Compile>
<Compile Include="Forms_Basic\Frm_FileInfo.Designer.vb">
<DependentUpon>Frm_FileInfo.vb</DependentUpon>
</Compile>
<Compile Include="Forms_Basic\Frm_FileInfo.vb">
<SubType>Form</SubType>
</Compile>
</ItemGroup>
<ItemGroup>
<EmbeddedResource Include="Forms_Basic\Frm_DisplayGubun.resx">
<DependentUpon>Frm_DisplayGubun.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="Forms_Basic\Frm_Filter.resx">
<DependentUpon>Frm_Filter.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="Forms_Basic\Frm_import.resx">
<DependentUpon>Frm_import.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="Forms_Basic\frm_Macro.resx">
<DependentUpon>frm_Macro.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="Forms_Basic\Frm_Work.resx">
<DependentUpon>Frm_Work.vb</DependentUpon>
<SubType>Designer</SubType>
</EmbeddedResource>
<EmbeddedResource Include="Forms_Basic\fSelectWeatherGroup.resx">
<DependentUpon>fSelectWeatherGroup.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="Forms_Basic\fSelectArea.resx">
<DependentUpon>fSelectArea.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="Forms_Input\frm_monuse.resx">
<DependentUpon>frm_monuse.vb</DependentUpon>
<SubType>Designer</SubType>
</EmbeddedResource>
<EmbeddedResource Include="Forms_Report\Frm_Export.resx">
<DependentUpon>Frm_Export.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="Forms_Report\Frm_Upload.resx">
<DependentUpon>Frm_Upload.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="Forms_Report\평가서.rdlc" />
<EmbeddedResource Include="Forms_Report\Report_Total.resx">
<SubType>Designer</SubType>
<DependentUpon>Report_Total.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="Forms_Input\Frm_v20091231_ResultMon.resx">
<DependentUpon>Frm_v20091231_ResultMon.vb</DependentUpon>
<SubType>Designer</SubType>
</EmbeddedResource>
<EmbeddedResource Include="Forms_Input\Frm_v20091231_ResultMax.resx">
<DependentUpon>Frm_v20091231_ResultMax.vb</DependentUpon>
<SubType>Designer</SubType>
</EmbeddedResource>
<EmbeddedResource Include="Forms_Input\Frm_v20091231_buha.resx">
<DependentUpon>Frm_v20091231_buha.vb</DependentUpon>
<SubType>Designer</SubType>
</EmbeddedResource>
<EmbeddedResource Include="Forms_Basic\Frm_RepResult_Admin.resx">
<DependentUpon>Frm_RepResult_Admin.vb</DependentUpon>
<SubType>Designer</SubType>
</EmbeddedResource>
<EmbeddedResource Include="Forms_Report\Report_그래프.resx">
<DependentUpon>Report_그래프.vb</DependentUpon>
<SubType>Designer</SubType>
</EmbeddedResource>
<EmbeddedResource Include="Forms_Report\그래프.rdlc" />
<EmbeddedResource Include="Forms_Input\Frm_Desc.resx">
<DependentUpon>Frm_Desc.vb</DependentUpon>
<SubType>Designer</SubType>
</EmbeddedResource>
<EmbeddedResource Include="Forms_Report\Report_total.rdlc" />
<EmbeddedResource Include="Forms_Basic\Frm_Intro.resx">
<SubType>Designer</SubType>
<DependentUpon>Frm_Intro.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="Forms_Report\Report_Graph_auth.resx">
<DependentUpon>Report_Graph_auth.vb</DependentUpon>
<SubType>Designer</SubType>
</EmbeddedResource>
<EmbeddedResource Include="Forms_Report\Report_Graph_auth.rdlc" />
<EmbeddedResource Include="Forms_Input\Frm_nBunbae.resx">
<DependentUpon>Frm_nBunbae.vb</DependentUpon>
<SubType>Designer</SubType>
</EmbeddedResource>
<EmbeddedResource Include="Forms_Basic\Frm_Warning.resx">
<DependentUpon>Frm_Warning.vb</DependentUpon>
<SubType>Designer</SubType>
</EmbeddedResource>
<EmbeddedResource Include="Forms_Basic\Frm_Calc.resx">
<DependentUpon>Frm_Calc.vb</DependentUpon>
<SubType>Designer</SubType>
</EmbeddedResource>
<EmbeddedResource Include="Forms_Input\Frm_YK.resx">
<DependentUpon>Frm_YK.vb</DependentUpon>
<SubType>Designer</SubType>
</EmbeddedResource>
<EmbeddedResource Include="Forms_Report\Report_pyonga.resx">
<DependentUpon>Report_pyonga.vb</DependentUpon>
<SubType>Designer</SubType>
</EmbeddedResource>
<EmbeddedResource Include="Forms_Report\Report_설계개선.resx">
<DependentUpon>Report_설계개선.vb</DependentUpon>
<SubType>Designer</SubType>
</EmbeddedResource>
<EmbeddedResource Include="Forms_Report\Report_설계개선.rdlc" />
<EmbeddedResource Include="Frm_History.resx">
<DependentUpon>Frm_History.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="Module\CForm.resx">
<DependentUpon>CForm.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="My Project\licenses.licx" />
<EmbeddedResource Include="MdiMain.resx">
<SubType>Designer</SubType>
<DependentUpon>MdiMain.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="My Project\Resources.resx">
<Generator>VbMyResourcesResXFileCodeGenerator</Generator>
<LastGenOutput>Resources.Designer.vb</LastGenOutput>
<CustomToolNamespace>My.Resources</CustomToolNamespace>
<SubType>Designer</SubType>
</EmbeddedResource>
<EmbeddedResource Include="Forms_Input\Frm_v20091231_profile.resx">
<DependentUpon>Frm_v20091231_profile.vb</DependentUpon>
<SubType>Designer</SubType>
</EmbeddedResource>
<EmbeddedResource Include="Forms_Input\Frm_Zone.resx">
<DependentUpon>Frm_Zone.vb</DependentUpon>
<SubType>Designer</SubType>
</EmbeddedResource>
<EmbeddedResource Include="Forms_Input\Frm_kongjo.resx">
<DependentUpon>Frm_kongjo.vb</DependentUpon>
<SubType>Designer</SubType>
</EmbeddedResource>
<EmbeddedResource Include="Forms_Input\Frm_kongkub.resx">
<DependentUpon>Frm_kongkub.vb</DependentUpon>
<SubType>Designer</SubType>
</EmbeddedResource>
<EmbeddedResource Include="Forms_Input\Frm_Nanbang.resx">
<DependentUpon>Frm_Nanbang.vb</DependentUpon>
<SubType>Designer</SubType>
</EmbeddedResource>
<EmbeddedResource Include="Forms_Input\Frm_NaengBang.resx">
<DependentUpon>Frm_NaengBang.vb</DependentUpon>
<SubType>Designer</SubType>
</EmbeddedResource>
<EmbeddedResource Include="Forms_Input\Frm_Bunbae.resx">
<DependentUpon>Frm_Bunbae.vb</DependentUpon>
<SubType>Designer</SubType>
</EmbeddedResource>
<EmbeddedResource Include="Forms_Input\Frm_New.resx">
<DependentUpon>Frm_New.vb</DependentUpon>
<SubType>Designer</SubType>
</EmbeddedResource>
<EmbeddedResource Include="Forms_Input\Frm_v20091231_Myoun.resx">
<DependentUpon>Frm_v20091231_Myoun.vb</DependentUpon>
<SubType>Designer</SubType>
</EmbeddedResource>
<EmbeddedResource Include="Forms_Basic\Frm_Common.resx">
<DependentUpon>Frm_Common.vb</DependentUpon>
<SubType>Designer</SubType>
</EmbeddedResource>
<EmbeddedResource Include="Forms_Input\Frm_v20091231_Weather.resx">
<DependentUpon>Frm_v20091231_Weather.vb</DependentUpon>
<SubType>Designer</SubType>
</EmbeddedResource>
<EmbeddedResource Include="Forms_Basic\Frm_About.resx">
<SubType>Designer</SubType>
<DependentUpon>Frm_About.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="Forms_Basic\Frm_FileInfo.resx">
<DependentUpon>Frm_FileInfo.vb</DependentUpon>
<SubType>Designer</SubType>
</EmbeddedResource>
</ItemGroup>
<ItemGroup>
<None Include="app.config" />
<None Include="DataSet\DS.xsc">
<DependentUpon>DS.xsd</DependentUpon>
</None>
<None Include="DataSet\DS.xsd">
<SubType>Designer</SubType>
<Generator>MSDataSetGenerator</Generator>
<LastGenOutput>DS.Designer.vb</LastGenOutput>
</None>
<None Include="DataSet\DS.xss">
<DependentUpon>DS.xsd</DependentUpon>
</None>
<None Include="DataSet\DS2.xsc">
<DependentUpon>DS2.xsd</DependentUpon>
</None>
<None Include="DataSet\DS2.xsd">
<SubType>Designer</SubType>
<Generator>MSDataSetGenerator</Generator>
<LastGenOutput>DS2.Designer.vb</LastGenOutput>
</None>
<None Include="DataSet\DS2.xss">
<DependentUpon>DS2.xsd</DependentUpon>
</None>
<None Include="login.dat">
<CopyToOutputDirectory>PreserveNewest</CopyToOutputDirectory>
</None>
<None Include="My Project\Application.myapp">
<Generator>MyApplicationCodeGenerator</Generator>
<LastGenOutput>Application.Designer.vb</LastGenOutput>
</None>
<None Include="My Project\Settings.settings">
<Generator>SettingsSingleFileGenerator</Generator>
<CustomToolNamespace>My</CustomToolNamespace>
<LastGenOutput>Settings.Designer.vb</LastGenOutput>
</None>
</ItemGroup>
<ItemGroup>
<None Include="Resources\user_24.png" />
</ItemGroup>
<ItemGroup>
<None Include="Resources\ref_24.png" />
</ItemGroup>
<ItemGroup>
<None Include="Resources\user_16.png" />
</ItemGroup>
<ItemGroup>
<None Include="Resources\group_24.png" />
</ItemGroup>
<ItemGroup>
<None Include="Resources\adfav_16.png" />
</ItemGroup>
<ItemGroup>
<None Include="Resources\addbk_24.png" />
</ItemGroup>
<ItemGroup>
<None Include="Resources\addbk_16.png" />
</ItemGroup>
<ItemGroup>
<None Include="Resources\wiz_16.png" />
</ItemGroup>
<ItemGroup>
<None Include="Resources\paste_16.png" />
</ItemGroup>
<ItemGroup>
<None Include="Resources\del_16.png" />
</ItemGroup>
<ItemGroup>
<None Include="Resources\edit_16.png" />
</ItemGroup>
<ItemGroup>
<Content Include="002.ico" />
<Content Include="Template\Sample.tpl">
<CopyToOutputDirectory>PreserveNewest</CopyToOutputDirectory>
</Content>
<BaseApplicationManifest Include="My Project\app.manifest" />
<None Include="DataSet\DSR.xsc">
<DependentUpon>DSR.xsd</DependentUpon>
</None>
<None Include="DataSet\DSR.xsd">
<SubType>Designer</SubType>
<Generator>MSDataSetGenerator</Generator>
<LastGenOutput>DSR.Designer.vb</LastGenOutput>
</None>
<None Include="DataSet\DSR.xss">
<DependentUpon>DSR.xsd</DependentUpon>
</None>
<None Include="Resources\save_16.png" />
</ItemGroup>
<ItemGroup>
<BootstrapperPackage Include="Microsoft.Net.Client.3.5">
<Visible>False</Visible>
<ProductName>.NET Framework 3.5 SP1 Client Profile</ProductName>
<Install>false</Install>
</BootstrapperPackage>
<BootstrapperPackage Include="Microsoft.Net.Framework.2.0">
<Visible>False</Visible>
<ProductName>.NET Framework 2.0%28x86%29</ProductName>
<Install>true</Install>
</BootstrapperPackage>
<BootstrapperPackage Include="Microsoft.Net.Framework.3.0">
<Visible>False</Visible>
<ProductName>.NET Framework 3.0%28x86%29</ProductName>
<Install>false</Install>
</BootstrapperPackage>
<BootstrapperPackage Include="Microsoft.Net.Framework.3.5">
<Visible>False</Visible>
<ProductName>.NET Framework 3.5</ProductName>
<Install>false</Install>
</BootstrapperPackage>
<BootstrapperPackage Include="Microsoft.Net.Framework.3.5.SP1">
<Visible>False</Visible>
<ProductName>.NET Framework 3.5 SP1</ProductName>
<Install>false</Install>
</BootstrapperPackage>
</ItemGroup>
<ItemGroup>
<Content Include="001_B.ico" />
<Content Include="9-8.ico" />
<None Include="Resources\폼배경.jpg" />
<None Include="Resources\건물개요.jpg" />
<None Include="ECO2.png" />
<Content Include="icon5.ico" />
<None Include="Resources\select_by_difference.png" />
<None Include="Resources\page_copy.png" />
<Content Include="단축키.txt">
<CopyToOutputDirectory>PreserveNewest</CopyToOutputDirectory>
</Content>
<Content Include="ReadMe.txt" />
<None Include="Calculator\CD.cd" />
<None Include="Calculator\CD_RESULT.cd" />
<None Include="Resources\default.png" />
<None Include="Resources\apps_32.png" />
<None Include="Resources\new_32.png" />
<None Include="Resources\remov_32.png" />
<None Include="Resources\cancl_32.png" />
<Content Include="Template\ReadMe.txt">
<CopyToOutputDirectory>PreserveNewest</CopyToOutputDirectory>
</Content>
<Content Include="UpdateList.txt" />
<Content Include="Forms_Input\ReadMe.txt">
<CopyToOutputDirectory>PreserveNewest</CopyToOutputDirectory>
</Content>
<None Include="upload.xlsx">
<CopyToOutputDirectory>PreserveNewest</CopyToOutputDirectory>
</None>
<None Include="방위2.png" />
<None Include="방위.png" />
<None Include="방위.jpg" />
</ItemGroup>
<ItemGroup>
<PublishFile Include="ADODB">
<Visible>False</Visible>
<Group>
</Group>
<TargetPath>
</TargetPath>
<PublishState>Include</PublishState>
<IncludeHash>True</IncludeHash>
<FileType>Assembly</FileType>
</PublishFile>
<PublishFile Include="Microsoft.ReportViewer.ProcessingObjectModel">
<Visible>False</Visible>
<Group>
</Group>
<TargetPath>
</TargetPath>
<PublishState>Include</PublishState>
<IncludeHash>True</IncludeHash>
<FileType>Assembly</FileType>
</PublishFile>
</ItemGroup>
<ItemGroup>
<ProjectReference Include="..\ArinLogin\ArinLogin.vbproj">
<Project>{8B6E4D7F-B484-471A-A419-2FE3451D26A3}</Project>
<Name>ArinLogin</Name>
</ProjectReference>
<ProjectReference Include="..\ArinLog\ArinLog.vbproj">
<Project>{e9e16a98-8f8d-4848-a27e-4571c184fb1a}</Project>
<Name>ArinLog</Name>
</ProjectReference>
<ProjectReference Include="..\ArinNet\ArinNet.vbproj">
<Project>{F0FB4304-F995-446A-99B7-0896A5E07A72}</Project>
<Name>ArinNet</Name>
</ProjectReference>
<ProjectReference Include="..\CEnergy\ArinClassV2\CEnergy.vbproj">
<Project>{2AF28E8C-84F1-4D56-9592-3B0EBDE8DF14}</Project>
<Name>CEnergy</Name>
</ProjectReference>
<ProjectReference Include="..\Utility\Utility.csproj">
<Project>{B1FDE30A-B142-42D5-A6B8-5428D2F2E62A}</Project>
<Name>Utility</Name>
</ProjectReference>
</ItemGroup>
<ItemGroup />
<Import Project="$(MSBuildBinPath)\Microsoft.VisualBasic.targets" />
<!-- To modify your build process, add your task inside one of the targets below and uncomment it.
Other similar extension points exist, see Microsoft.Common.targets.
<Target Name="BeforeBuild">
</Target>
<Target Name="AfterBuild">
</Target>
-->
</Project>

84
ArinWarev1/Forms_Basic/frm_Macro.Designer.vb generated Normal file
View File

@@ -0,0 +1,84 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class frm_Macro
Inherits System.Windows.Forms.Form
'Form은 Dispose를 재정의하여 구성 요소 목록을 정리합니다.
<System.Diagnostics.DebuggerNonUserCode()> _
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
Try
If disposing AndAlso components IsNot Nothing Then
components.Dispose()
End If
Finally
MyBase.Dispose(disposing)
End Try
End Sub
'Windows Form 디자이너에 필요합니다.
Private components As System.ComponentModel.IContainer
'참고: 다음 프로시저는 Windows Form 디자이너에 필요합니다.
'수정하려면 Windows Form 디자이너를 사용하십시오.
'코드 편집기를 사용하여 수정하지 마십시오.
<System.Diagnostics.DebuggerStepThrough()> _
Private Sub InitializeComponent()
Me.tbPath = New System.Windows.Forms.TextBox()
Me.btPath = New System.Windows.Forms.Button()
Me.btcalc = New System.Windows.Forms.Button()
Me.prb1 = New System.Windows.Forms.ProgressBar()
Me.SuspendLayout()
'
'tbPath
'
Me.tbPath.Location = New System.Drawing.Point(149, 22)
Me.tbPath.Name = "tbPath"
Me.tbPath.Size = New System.Drawing.Size(272, 21)
Me.tbPath.TabIndex = 0
Me.tbPath.Text = "C:\Temp\sample\tplx"
'
'btPath
'
Me.btPath.Location = New System.Drawing.Point(12, 12)
Me.btPath.Name = "btPath"
Me.btPath.Size = New System.Drawing.Size(131, 39)
Me.btPath.TabIndex = 1
Me.btPath.Text = "path"
Me.btPath.UseVisualStyleBackColor = True
'
'btcalc
'
Me.btcalc.Location = New System.Drawing.Point(12, 83)
Me.btcalc.Name = "btcalc"
Me.btcalc.Size = New System.Drawing.Size(726, 39)
Me.btcalc.TabIndex = 2
Me.btcalc.Text = "calc"
Me.btcalc.UseVisualStyleBackColor = True
'
'prb1
'
Me.prb1.Dock = System.Windows.Forms.DockStyle.Bottom
Me.prb1.Location = New System.Drawing.Point(0, 146)
Me.prb1.Name = "prb1"
Me.prb1.Size = New System.Drawing.Size(750, 25)
Me.prb1.TabIndex = 4
'
'frm_Macro
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(7.0!, 12.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.ClientSize = New System.Drawing.Size(750, 171)
Me.Controls.Add(Me.prb1)
Me.Controls.Add(Me.btcalc)
Me.Controls.Add(Me.btPath)
Me.Controls.Add(Me.tbPath)
Me.Name = "frm_Macro"
Me.Text = "frm_Macro"
Me.ResumeLayout(False)
Me.PerformLayout()
End Sub
Friend WithEvents btPath As System.Windows.Forms.Button
Friend WithEvents btcalc As System.Windows.Forms.Button
Friend WithEvents prb1 As System.Windows.Forms.ProgressBar
Public WithEvents tbPath As System.Windows.Forms.TextBox
End Class

120
ArinWarev1/Forms_Basic/frm_Macro.resx Normal file
View File

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

38
ArinWarev1/Forms_Basic/frm_Macro.vb Normal file
View File

@@ -0,0 +1,38 @@
Public Class frm_Macro
Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles btPath.Click
Dim fd As New FolderBrowserDialog()
If fd.ShowDialog() = Windows.Forms.DialogResult.OK Then
tbPath.Text = fd.SelectedPath
End If
End Sub
Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles btcalc.Click
'//calc
Dim di As New System.IO.DirectoryInfo(tbPath.Text)
If di.Exists = False Then
MsgBox("no folder")
Return
End If
Dim files1() As System.IO.FileInfo
Dim files2() As System.IO.FileInfo
files1 = di.GetFiles("*.tpl", IO.SearchOption.TopDirectoryOnly)
files2 = di.GetFiles("*.tplx", IO.SearchOption.TopDirectoryOnly)
If files1.Length < 1 AndAlso files2.Length < 1 Then
MsgBox("no file")
Return
End If
DialogResult = Windows.Forms.DialogResult.OK
End Sub
Private Sub frm_Macro_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
End Sub
End Class

2
ArinWarev1/Forms_Input/Frm_v20091231_Weather.vb
View File

@@ -1327,7 +1327,7 @@ Public Class Frm_V20091231_Weather
Dim len As UInt32 = ms.Length Dim len As UInt32 = ms.Length
Dim bodybuf(len - 1) As Byte Dim bodybuf(len - 1) As Byte
Array.Copy(ms.GetBuffer(), bodybuf, len) Array.Copy(ms.GetBuffer(), bodybuf, len)
Dim compbuf() As Byte Dim compbuf() As Byte = Nothing
Utility.MiniLZO.Compress(bodybuf, compbuf) Utility.MiniLZO.Compress(bodybuf, compbuf)
'Dim decombuf(bodybuf.Length - 1) As Byte 'Dim decombuf(bodybuf.Length - 1) As Byte

855
ArinWarev1/Forms_Report/Frm_Upload.vb
View File

@@ -1,6 +1,7 @@
Public Class Frm_Upload Public Class Frm_Upload
Dim fn As String = "" Dim fn As String = ""
Dim silentmode As Boolean = False
Public Sub New() Public Sub New()
' 이 호출은 디자이너에 필요합니다. ' 이 호출은 디자이너에 필요합니다.
@@ -9,14 +10,45 @@
' InitializeComponent() 호출 뒤에 초기화 코드를 추가하십시오. ' InitializeComponent() 호출 뒤에 초기화 코드를 추가하십시오.
End Sub End Sub
Public Sub New(_file As String) Public Sub New(_file As String, Optional silent As Boolean = False)
' 이 호출은 디자이너에 필요합니다. ' 이 호출은 디자이너에 필요합니다.
InitializeComponent() InitializeComponent()
fn = _file fn = _file
silentmode = silent
' InitializeComponent() 호출 뒤에 초기화 코드를 추가하십시오. ' InitializeComponent() 호출 뒤에 초기화 코드를 추가하십시오.
End Sub End Sub
Private Sub Frm_Upload_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
' Me.Hide()
Application.DoEvents()
LoadFile()
MakeData()
If fn <> "" Then
Try
If FpSpread1.SaveExcel(fn) Then
If silentmode = False Then
MsgBox("다음파일이 생성되었습니다" + vbCrLf + fn, MsgBoxStyle.Information, "확인")
End If
DialogResult = Windows.Forms.DialogResult.OK
Else
MsgBox("저장실패" + vbCrLf + fn, MsgBoxStyle.Critical, "확인")
Me.Close()
End If
Catch ex As Exception
MsgBox("저장실패" + vbCrLf + fn + vbCrLf + ex.Message, MsgBoxStyle.Critical, "확인")
Me.Close()
End Try
End If
End Sub
Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
LoadFile() LoadFile()
MakeData() MakeData()
@@ -177,7 +209,7 @@
FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = 합계.ToString() : Row += 1 '//환기 FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = 합계.ToString() : Row += 1 '//환기
'//평가결과값(report_pyonga 에서 가져옴) '//평가결과값(report_pyonga 에서 가져옴)
항목별평가결과(DsReport) Pub.항목별평가결과(DsReport)
If DsReport.Pyonga_YK.Rows.Count < 1 Then If DsReport.Pyonga_YK.Rows.Count < 1 Then
MsgBox("구조체값이 생성되지 않았습니다", MsgBoxStyle.Critical, "확인") MsgBox("구조체값이 생성되지 않았습니다", MsgBoxStyle.Critical, "확인")
Return Return
@@ -195,7 +227,7 @@
FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = drYK.창호값.ToString("N3") : Row += 1 '//환기 FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = drYK.창호값.ToString("N3") : Row += 1 '//환기
'//창면적비 9개(?) '//창면적비 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
@@ -205,27 +237,48 @@
Dim 외벽열관류율_서 As Decimal Dim 외벽열관류율_서 As Decimal
Dim 외벽열관류율_남서 As Decimal Dim 외벽열관류율_남서 As Decimal
calc_창및문면적비(창및문면적비, 외벽열관류율) Dim 창열관류율_평균 As Decimal
Dim 창열관류율_남 As Decimal
Dim 창열관류율_남동 As Decimal
Dim 창열관류율_동 As Decimal
Dim 창열관류율_북동 As Decimal
Dim 창열관류율_북 As Decimal
Dim 창열관류율_북서 As Decimal
Dim 창열관류율_서 As Decimal
Dim 창열관류율_남서 As Decimal
Dim 일사에너지투과율_평균 As Decimal
Dim 일사에너지투과율_남 As Decimal
Dim 일사에너지투과율_남동 As Decimal
Dim 일사에너지투과율_동 As Decimal
Dim 일사에너지투과율_북동 As Decimal
Dim 일사에너지투과율_북 As Decimal
Dim 일사에너지투과율_북서 As Decimal
Dim 일사에너지투과율_서 As Decimal
Dim 일사에너지투과율_남서 As Decimal
calc_창및문면적비(창및문면적비, 외벽열관류율_평균, 창열관류율_평균, 일사에너지투과율_평균)
FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = 창및문면적비.ToString("N2") : Row += 1 '//난방 FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = 창및문면적비.ToString("N2") : Row += 1 '//난방
calc_창및문면적비(창및문면적비, 외벽열관류율_남, "남") calc_창및문면적비(창및문면적비, 외벽열관류율_남, 창열관류율_남, 일사에너지투과율_남, "남")
FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = 창및문면적비.ToString("N2") : Row += 1 '//냉방 FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = 창및문면적비.ToString("N2") : Row += 1 '//냉방
calc_창및문면적비(창및문면적비, 외벽열관류율_남동, "남동") calc_창및문면적비(창및문면적비, 외벽열관류율_남동, 창열관류율_남동, 일사에너지투과율_남동, "남동")
FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = 창및문면적비.ToString("N2") : Row += 1 '//급탕 FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = 창및문면적비.ToString("N2") : Row += 1 '//급탕
calc_창및문면적비(창및문면적비, 외벽열관류율_동, "동") calc_창및문면적비(창및문면적비, 외벽열관류율_동, 창열관류율_동, 일사에너지투과율_동, "동")
FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = 창및문면적비.ToString("N2") : Row += 1 '//조명 FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = 창및문면적비.ToString("N2") : Row += 1 '//조명
calc_창및문면적비(창및문면적비, 외벽열관류율_북동, "북동") calc_창및문면적비(창및문면적비, 외벽열관류율_북동, 창열관류율_북동, 일사에너지투과율_북동, "북동")
FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = 창및문면적비.ToString("N2") : Row += 1 '//환기 FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = 창및문면적비.ToString("N2") : Row += 1 '//환기
calc_창및문면적비(창및문면적비, 외벽열관류율_북, "북") calc_창및문면적비(창및문면적비, 외벽열관류율_북, 창열관류율_북, 일사에너지투과율_북, "북")
FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = 창및문면적비.ToString("N2") : Row += 1 '//환기 FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = 창및문면적비.ToString("N2") : Row += 1 '//환기
calc_창및문면적비(창및문면적비, 외벽열관류율_북서, "북서") calc_창및문면적비(창및문면적비, 외벽열관류율_북서, 창열관류율_북서, 일사에너지투과율_북서, "북서")
FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = 창및문면적비.ToString("N2") : Row += 1 '//환기 FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = 창및문면적비.ToString("N2") : Row += 1 '//환기
calc_창및문면적비(창및문면적비, 외벽열관류율_서, "서") calc_창및문면적비(창및문면적비, 외벽열관류율_서, 창열관류율_서, 일사에너지투과율_서, "서")
FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = 창및문면적비.ToString("N2") : Row += 1 '//환기 FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = 창및문면적비.ToString("N2") : Row += 1 '//환기
calc_창및문면적비(창및문면적비, 외벽열관류율_남서, "남서") calc_창및문면적비(창및문면적비, 외벽열관류율_남서, 창열관류율_남서, 일사에너지투과율_남서, "남서")
FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = 창및문면적비.ToString("N2") : Row += 1 '//환기 FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = 창및문면적비.ToString("N2") : Row += 1 '//환기
'//평균열관류율 11개(?) '//평균열관류율 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 '//조명
@@ -1064,785 +1117,9 @@
End Function 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 Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click
Dim sd As New SaveFileDialog() Dim sd As New SaveFileDialog()

453
ArinWarev1/MdiMain.Designer.vb generated
View File

@@ -34,6 +34,32 @@ Partial Class MdiMain
Me.lbl_prjname = New System.Windows.Forms.ToolStripStatusLabel() Me.lbl_prjname = New System.Windows.Forms.ToolStripStatusLabel()
Me.ToolTip1 = New System.Windows.Forms.ToolTip(Me.components) Me.ToolTip1 = New System.Windows.Forms.ToolTip(Me.components)
Me.MenuStrip1 = New System.Windows.Forms.MenuStrip() Me.MenuStrip1 = New System.Windows.Forms.MenuStrip()
Me.WindowsMenu = New System.Windows.Forms.ToolStripMenuItem()
Me.NewWindowToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.CascadeToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.TileVerticalToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.TileHorizontalToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.CloseAllToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.ArrangeIconsToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.TreeView1 = New System.Windows.Forms.TreeView()
Me.ContextMenuStrip1 = New System.Windows.Forms.ContextMenuStrip(Me.components)
Me.그룹추가ToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.그룹삭제ToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.그룹복사ToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.그룹변경ToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.ToolStrip1 = New System.Windows.Forms.ToolStrip()
Me.prb1 = New System.Windows.Forms.ToolStripProgressBar()
Me.ToolStripButton1 = New System.Windows.Forms.ToolStripButton()
Me.ToolStripButton2 = New System.Windows.Forms.ToolStripButton()
Me.ToolStripButton3 = New System.Windows.Forms.ToolStripButton()
Me.ToolStripButton4 = New System.Windows.Forms.ToolStripButton()
Me.ToolStripButton5 = New System.Windows.Forms.ToolStripButton()
Me.ToolStripButton6 = New System.Windows.Forms.ToolStripButton()
Me.ToolStripButton7 = New System.Windows.Forms.ToolStripButton()
Me.bt_test = New System.Windows.Forms.ToolStripDropDownButton()
Me.비교데이터백업ToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.데이터비교ToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.순실체적ToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.ReportToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() Me.ReportToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.btNew = New System.Windows.Forms.ToolStripMenuItem() Me.btNew = New System.Windows.Forms.ToolStripMenuItem()
Me.신규코드업로드ToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() Me.신규코드업로드ToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
@@ -43,6 +69,7 @@ Partial Class MdiMain
Me.btSaveNew = New System.Windows.Forms.ToolStripMenuItem() Me.btSaveNew = New System.Windows.Forms.ToolStripMenuItem()
Me.정보ToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() Me.정보ToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.bt_데이터관리 = New System.Windows.Forms.ToolStripMenuItem() Me.bt_데이터관리 = New System.Windows.Forms.ToolStripMenuItem()
Me.btImport = New System.Windows.Forms.ToolStripMenuItem()
Me.ToolStripMenuItem5 = New System.Windows.Forms.ToolStripSeparator() Me.ToolStripMenuItem5 = New System.Windows.Forms.ToolStripSeparator()
Me.lbl_p1 = New System.Windows.Forms.ToolStripMenuItem() Me.lbl_p1 = New System.Windows.Forms.ToolStripMenuItem()
Me.lbl_p2 = New System.Windows.Forms.ToolStripMenuItem() Me.lbl_p2 = New System.Windows.Forms.ToolStripMenuItem()
@@ -78,32 +105,7 @@ Partial Class MdiMain
Me.SaveXmlRawToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() Me.SaveXmlRawToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.FielCheckerToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() Me.FielCheckerToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.ToolStripMenuItem2 = New System.Windows.Forms.ToolStripSeparator() Me.ToolStripMenuItem2 = New System.Windows.Forms.ToolStripSeparator()
Me.WindowsMenu = New System.Windows.Forms.ToolStripMenuItem() Me.일괄계산ToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.NewWindowToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.CascadeToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.TileVerticalToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.TileHorizontalToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.CloseAllToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.ArrangeIconsToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.TreeView1 = New System.Windows.Forms.TreeView()
Me.ContextMenuStrip1 = New System.Windows.Forms.ContextMenuStrip(Me.components)
Me.그룹추가ToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.그룹삭제ToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.그룹복사ToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.그룹변경ToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.ToolStrip1 = New System.Windows.Forms.ToolStrip()
Me.ToolStripButton1 = New System.Windows.Forms.ToolStripButton()
Me.ToolStripButton2 = New System.Windows.Forms.ToolStripButton()
Me.ToolStripButton3 = New System.Windows.Forms.ToolStripButton()
Me.ToolStripButton4 = New System.Windows.Forms.ToolStripButton()
Me.ToolStripButton5 = New System.Windows.Forms.ToolStripButton()
Me.ToolStripButton6 = New System.Windows.Forms.ToolStripButton()
Me.ToolStripButton7 = New System.Windows.Forms.ToolStripButton()
Me.bt_test = New System.Windows.Forms.ToolStripDropDownButton()
Me.비교데이터백업ToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.데이터비교ToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.순실체적ToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.btImport = New System.Windows.Forms.ToolStripMenuItem()
Me.StatusStrip1.SuspendLayout() Me.StatusStrip1.SuspendLayout()
Me.MenuStrip1.SuspendLayout() Me.MenuStrip1.SuspendLayout()
Me.ContextMenuStrip1.SuspendLayout() Me.ContextMenuStrip1.SuspendLayout()
@@ -114,7 +116,7 @@ Partial Class MdiMain
' '
Me.StatusStrip1.BackColor = System.Drawing.Color.White Me.StatusStrip1.BackColor = System.Drawing.Color.White
Me.StatusStrip1.Font = New System.Drawing.Font("돋움", 9.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.StatusStrip1.Font = New System.Drawing.Font("돋움", 9.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.StatusStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.lbl_user, Me.lbl_password, Me.lbl_filename, Me.lbl_FileInfo, Me.lbl_lastedit, Me.lbl_mac, Me.lbl_prjname}) Me.StatusStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.lbl_user, Me.lbl_password, Me.lbl_filename, Me.lbl_FileInfo, Me.lbl_lastedit, Me.lbl_mac, Me.lbl_prjname, Me.prb1})
Me.StatusStrip1.Location = New System.Drawing.Point(0, 630) Me.StatusStrip1.Location = New System.Drawing.Point(0, 630)
Me.StatusStrip1.Name = "StatusStrip1" Me.StatusStrip1.Name = "StatusStrip1"
Me.StatusStrip1.Size = New System.Drawing.Size(1008, 22) Me.StatusStrip1.Size = New System.Drawing.Size(1008, 22)
@@ -176,6 +178,198 @@ Partial Class MdiMain
Me.MenuStrip1.TabIndex = 22 Me.MenuStrip1.TabIndex = 22
Me.MenuStrip1.Text = "MenuStrip1" Me.MenuStrip1.Text = "MenuStrip1"
' '
'WindowsMenu
'
Me.WindowsMenu.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.NewWindowToolStripMenuItem, Me.CascadeToolStripMenuItem, Me.TileVerticalToolStripMenuItem, Me.TileHorizontalToolStripMenuItem, Me.CloseAllToolStripMenuItem, Me.ArrangeIconsToolStripMenuItem})
Me.WindowsMenu.ForeColor = System.Drawing.Color.Red
Me.WindowsMenu.Name = "WindowsMenu"
Me.WindowsMenu.Size = New System.Drawing.Size(49, 20)
Me.WindowsMenu.Text = "창(&W)"
Me.WindowsMenu.Visible = False
'
'NewWindowToolStripMenuItem
'
Me.NewWindowToolStripMenuItem.Name = "NewWindowToolStripMenuItem"
Me.NewWindowToolStripMenuItem.Size = New System.Drawing.Size(198, 22)
Me.NewWindowToolStripMenuItem.Text = "새 창(&N)"
'
'CascadeToolStripMenuItem
'
Me.CascadeToolStripMenuItem.Name = "CascadeToolStripMenuItem"
Me.CascadeToolStripMenuItem.Size = New System.Drawing.Size(198, 22)
Me.CascadeToolStripMenuItem.Text = "계단식 배열(&C)"
'
'TileVerticalToolStripMenuItem
'
Me.TileVerticalToolStripMenuItem.Name = "TileVerticalToolStripMenuItem"
Me.TileVerticalToolStripMenuItem.Size = New System.Drawing.Size(198, 22)
Me.TileVerticalToolStripMenuItem.Text = "세로 바둑판식 배열(&V)"
'
'TileHorizontalToolStripMenuItem
'
Me.TileHorizontalToolStripMenuItem.Name = "TileHorizontalToolStripMenuItem"
Me.TileHorizontalToolStripMenuItem.Size = New System.Drawing.Size(198, 22)
Me.TileHorizontalToolStripMenuItem.Text = "가로 바둑판식 배열(&H)"
'
'CloseAllToolStripMenuItem
'
Me.CloseAllToolStripMenuItem.Name = "CloseAllToolStripMenuItem"
Me.CloseAllToolStripMenuItem.Size = New System.Drawing.Size(198, 22)
Me.CloseAllToolStripMenuItem.Text = "모두 닫기(&L)"
'
'ArrangeIconsToolStripMenuItem
'
Me.ArrangeIconsToolStripMenuItem.Name = "ArrangeIconsToolStripMenuItem"
Me.ArrangeIconsToolStripMenuItem.Size = New System.Drawing.Size(198, 22)
Me.ArrangeIconsToolStripMenuItem.Text = "아이콘 정렬(&A)"
'
'TreeView1
'
Me.TreeView1.ContextMenuStrip = Me.ContextMenuStrip1
Me.TreeView1.Dock = System.Windows.Forms.DockStyle.Left
Me.TreeView1.Font = New System.Drawing.Font("돋움", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.TreeView1.Location = New System.Drawing.Point(0, 49)
Me.TreeView1.Margin = New System.Windows.Forms.Padding(3, 2, 3, 2)
Me.TreeView1.Name = "TreeView1"
Me.TreeView1.Size = New System.Drawing.Size(185, 581)
Me.TreeView1.TabIndex = 23
'
'ContextMenuStrip1
'
Me.ContextMenuStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.그룹추가ToolStripMenuItem, Me.그룹삭제ToolStripMenuItem, Me.그룹복사ToolStripMenuItem, Me.그룹변경ToolStripMenuItem})
Me.ContextMenuStrip1.Name = "ContextMenuStrip1"
Me.ContextMenuStrip1.Size = New System.Drawing.Size(123, 92)
'
'그룹추가ToolStripMenuItem
'
Me.그룹추가ToolStripMenuItem.Name = "그룹추가ToolStripMenuItem"
Me.그룹추가ToolStripMenuItem.Size = New System.Drawing.Size(122, 22)
Me.그룹추가ToolStripMenuItem.Text = "그룹추가"
'
'그룹삭제ToolStripMenuItem
'
Me.그룹삭제ToolStripMenuItem.Name = "그룹삭제ToolStripMenuItem"
Me.그룹삭제ToolStripMenuItem.Size = New System.Drawing.Size(122, 22)
Me.그룹삭제ToolStripMenuItem.Text = "그룹삭제"
'
'그룹복사ToolStripMenuItem
'
Me.그룹복사ToolStripMenuItem.Name = "그룹복사ToolStripMenuItem"
Me.그룹복사ToolStripMenuItem.Size = New System.Drawing.Size(122, 22)
Me.그룹복사ToolStripMenuItem.Text = "그룹복사"
'
'그룹변경ToolStripMenuItem
'
Me.그룹변경ToolStripMenuItem.Name = "그룹변경ToolStripMenuItem"
Me.그룹변경ToolStripMenuItem.Size = New System.Drawing.Size(122, 22)
Me.그룹변경ToolStripMenuItem.Text = "그룹변경"
'
'ToolStrip1
'
Me.ToolStrip1.Font = New System.Drawing.Font("돋움", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(129, Byte))
Me.ToolStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToolStripButton1, Me.ToolStripButton2, Me.ToolStripButton3, Me.ToolStripButton4, Me.ToolStripButton5, Me.ToolStripButton6, Me.ToolStripButton7, Me.bt_test})
Me.ToolStrip1.Location = New System.Drawing.Point(0, 24)
Me.ToolStrip1.Name = "ToolStrip1"
Me.ToolStrip1.Size = New System.Drawing.Size(1008, 25)
Me.ToolStrip1.TabIndex = 25
Me.ToolStrip1.Text = "ToolStrip1"
'
'prb1
'
Me.prb1.Name = "prb1"
Me.prb1.Size = New System.Drawing.Size(100, 16)
'
'ToolStripButton1
'
Me.ToolStripButton1.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
Me.ToolStripButton1.Image = CType(resources.GetObject("ToolStripButton1.Image"), System.Drawing.Image)
Me.ToolStripButton1.ImageTransparentColor = System.Drawing.Color.Magenta
Me.ToolStripButton1.Name = "ToolStripButton1"
Me.ToolStripButton1.Size = New System.Drawing.Size(23, 22)
Me.ToolStripButton1.Text = "파일생성"
'
'ToolStripButton2
'
Me.ToolStripButton2.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
Me.ToolStripButton2.Image = CType(resources.GetObject("ToolStripButton2.Image"), System.Drawing.Image)
Me.ToolStripButton2.ImageTransparentColor = System.Drawing.Color.Magenta
Me.ToolStripButton2.Name = "ToolStripButton2"
Me.ToolStripButton2.Size = New System.Drawing.Size(23, 22)
Me.ToolStripButton2.Text = "파일열기"
'
'ToolStripButton3
'
Me.ToolStripButton3.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
Me.ToolStripButton3.Image = CType(resources.GetObject("ToolStripButton3.Image"), System.Drawing.Image)
Me.ToolStripButton3.ImageTransparentColor = System.Drawing.Color.Magenta
Me.ToolStripButton3.Name = "ToolStripButton3"
Me.ToolStripButton3.Size = New System.Drawing.Size(23, 22)
Me.ToolStripButton3.Text = "파일저장"
'
'ToolStripButton4
'
Me.ToolStripButton4.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
Me.ToolStripButton4.Image = CType(resources.GetObject("ToolStripButton4.Image"), System.Drawing.Image)
Me.ToolStripButton4.ImageTransparentColor = System.Drawing.Color.Magenta
Me.ToolStripButton4.Name = "ToolStripButton4"
Me.ToolStripButton4.Size = New System.Drawing.Size(23, 22)
Me.ToolStripButton4.Text = "다른이름으로 저장"
'
'ToolStripButton5
'
Me.ToolStripButton5.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
Me.ToolStripButton5.Image = CType(resources.GetObject("ToolStripButton5.Image"), System.Drawing.Image)
Me.ToolStripButton5.ImageTransparentColor = System.Drawing.Color.Magenta
Me.ToolStripButton5.Name = "ToolStripButton5"
Me.ToolStripButton5.Size = New System.Drawing.Size(23, 22)
Me.ToolStripButton5.Text = "건물개요"
'
'ToolStripButton6
'
Me.ToolStripButton6.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
Me.ToolStripButton6.Image = CType(resources.GetObject("ToolStripButton6.Image"), System.Drawing.Image)
Me.ToolStripButton6.ImageTransparentColor = System.Drawing.Color.Magenta
Me.ToolStripButton6.Name = "ToolStripButton6"
Me.ToolStripButton6.Size = New System.Drawing.Size(23, 22)
Me.ToolStripButton6.Text = "계산"
'
'ToolStripButton7
'
Me.ToolStripButton7.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
Me.ToolStripButton7.Image = CType(resources.GetObject("ToolStripButton7.Image"), System.Drawing.Image)
Me.ToolStripButton7.ImageTransparentColor = System.Drawing.Color.Magenta
Me.ToolStripButton7.Name = "ToolStripButton7"
Me.ToolStripButton7.Size = New System.Drawing.Size(23, 22)
Me.ToolStripButton7.Text = "계산결과그래프보기"
'
'bt_test
'
Me.bt_test.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.비교데이터백업ToolStripMenuItem, Me.데이터비교ToolStripMenuItem, Me.순실체적ToolStripMenuItem})
Me.bt_test.Image = CType(resources.GetObject("bt_test.Image"), System.Drawing.Image)
Me.bt_test.ImageTransparentColor = System.Drawing.Color.Magenta
Me.bt_test.Name = "bt_test"
Me.bt_test.Size = New System.Drawing.Size(90, 22)
Me.bt_test.Text = "TestMenu"
Me.bt_test.Visible = False
'
'비교데이터백업ToolStripMenuItem
'
Me.비교데이터백업ToolStripMenuItem.Name = "비교데이터백업ToolStripMenuItem"
Me.비교데이터백업ToolStripMenuItem.Size = New System.Drawing.Size(170, 22)
Me.비교데이터백업ToolStripMenuItem.Text = "1.비교데이터백업"
'
'데이터비교ToolStripMenuItem
'
Me.데이터비교ToolStripMenuItem.Name = "데이터비교ToolStripMenuItem"
Me.데이터비교ToolStripMenuItem.Size = New System.Drawing.Size(170, 22)
Me.데이터비교ToolStripMenuItem.Text = "2.데이터비교"
'
'순실체적ToolStripMenuItem
'
Me.순실체적ToolStripMenuItem.Name = "순실체적ToolStripMenuItem"
Me.순실체적ToolStripMenuItem.Size = New System.Drawing.Size(170, 22)
Me.순실체적ToolStripMenuItem.Text = "3.순실체적"
'
'ReportToolStripMenuItem 'ReportToolStripMenuItem
' '
Me.ReportToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.btNew, Me.신규코드업로드ToolStripMenuItem, Me.ToolStripMenuItem7, Me.btOpen, Me.bt_filesave, Me.btSaveNew, Me.정보ToolStripMenuItem, Me.bt_데이터관리, Me.btImport, Me.ToolStripMenuItem5, Me.lbl_p1, Me.lbl_p2, Me.lbl_p3, Me.lbl_p4, Me.lbl_p5, Me.ToolStripMenuItem6, Me.종료ToolStripMenuItem}) Me.ReportToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.btNew, Me.신규코드업로드ToolStripMenuItem, Me.ToolStripMenuItem7, Me.btOpen, Me.bt_filesave, Me.btSaveNew, Me.정보ToolStripMenuItem, Me.bt_데이터관리, Me.btImport, Me.ToolStripMenuItem5, Me.lbl_p1, Me.lbl_p2, Me.lbl_p3, Me.lbl_p4, Me.lbl_p5, Me.ToolStripMenuItem6, Me.종료ToolStripMenuItem})
@@ -242,6 +436,12 @@ Partial Class MdiMain
Me.bt_데이터관리.Text = "데이터관리" Me.bt_데이터관리.Text = "데이터관리"
Me.bt_데이터관리.Visible = False Me.bt_데이터관리.Visible = False
' '
'btImport
'
Me.btImport.Name = "btImport"
Me.btImport.Size = New System.Drawing.Size(244, 22)
Me.btImport.Text = "가져오기"
'
'ToolStripMenuItem5 'ToolStripMenuItem5
' '
Me.ToolStripMenuItem5.Name = "ToolStripMenuItem5" Me.ToolStripMenuItem5.Name = "ToolStripMenuItem5"
@@ -379,7 +579,7 @@ Partial Class MdiMain
'bt_etc 'bt_etc
' '
Me.bt_etc.Alignment = System.Windows.Forms.ToolStripItemAlignment.Right Me.bt_etc.Alignment = System.Windows.Forms.ToolStripItemAlignment.Right
Me.bt_etc.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToolStripMenuItem8, Me.ToolStripMenuItem10, Me.ToolStripMenuItem11, Me.ToolStripSeparator5, Me.ToolStripMenuItem12, Me.ToolStripSeparator6, Me.ToolStripMenuItem13, Me.설정프로필ToolStripMenuItem, Me.ExportToolStripMenuItem, Me.ToolStripMenuItem1, Me.파일로부터기상데이터가져오기ToolStripMenuItem, Me.SaveXmlRawToolStripMenuItem, Me.FielCheckerToolStripMenuItem, Me.ToolStripMenuItem2}) Me.bt_etc.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToolStripMenuItem8, Me.ToolStripMenuItem10, Me.ToolStripMenuItem11, Me.ToolStripSeparator5, Me.ToolStripMenuItem12, Me.ToolStripSeparator6, Me.ToolStripMenuItem13, Me.설정프로필ToolStripMenuItem, Me.ExportToolStripMenuItem, Me.ToolStripMenuItem1, Me.파일로부터기상데이터가져오기ToolStripMenuItem, Me.SaveXmlRawToolStripMenuItem, Me.FielCheckerToolStripMenuItem, Me.ToolStripMenuItem2, Me.일괄계산ToolStripMenuItem})
Me.bt_etc.Image = CType(resources.GetObject("bt_etc.Image"), System.Drawing.Image) Me.bt_etc.Image = CType(resources.GetObject("bt_etc.Image"), System.Drawing.Image)
Me.bt_etc.Name = "bt_etc" Me.bt_etc.Name = "bt_etc"
Me.bt_etc.Size = New System.Drawing.Size(57, 20) Me.bt_etc.Size = New System.Drawing.Size(57, 20)
@@ -466,198 +666,11 @@ Partial Class MdiMain
Me.ToolStripMenuItem2.Name = "ToolStripMenuItem2" Me.ToolStripMenuItem2.Name = "ToolStripMenuItem2"
Me.ToolStripMenuItem2.Size = New System.Drawing.Size(259, 6) Me.ToolStripMenuItem2.Size = New System.Drawing.Size(259, 6)
' '
'WindowsMenu '일괄계산ToolStripMenuItem
' '
Me.WindowsMenu.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.NewWindowToolStripMenuItem, Me.CascadeToolStripMenuItem, Me.TileVerticalToolStripMenuItem, Me.TileHorizontalToolStripMenuItem, Me.CloseAllToolStripMenuItem, Me.ArrangeIconsToolStripMenuItem}) Me.일괄계산ToolStripMenuItem.Name = "일괄계산ToolStripMenuItem"
Me.WindowsMenu.ForeColor = System.Drawing.Color.Red Me.일괄계산ToolStripMenuItem.Size = New System.Drawing.Size(262, 22)
Me.WindowsMenu.Name = "WindowsMenu" Me.일괄계산ToolStripMenuItem.Text = "일괄 계산"
Me.WindowsMenu.Size = New System.Drawing.Size(49, 20)
Me.WindowsMenu.Text = "창(&W)"
Me.WindowsMenu.Visible = False
'
'NewWindowToolStripMenuItem
'
Me.NewWindowToolStripMenuItem.Name = "NewWindowToolStripMenuItem"
Me.NewWindowToolStripMenuItem.Size = New System.Drawing.Size(198, 22)
Me.NewWindowToolStripMenuItem.Text = "새 창(&N)"
'
'CascadeToolStripMenuItem
'
Me.CascadeToolStripMenuItem.Name = "CascadeToolStripMenuItem"
Me.CascadeToolStripMenuItem.Size = New System.Drawing.Size(198, 22)
Me.CascadeToolStripMenuItem.Text = "계단식 배열(&C)"
'
'TileVerticalToolStripMenuItem
'
Me.TileVerticalToolStripMenuItem.Name = "TileVerticalToolStripMenuItem"
Me.TileVerticalToolStripMenuItem.Size = New System.Drawing.Size(198, 22)
Me.TileVerticalToolStripMenuItem.Text = "세로 바둑판식 배열(&V)"
'
'TileHorizontalToolStripMenuItem
'
Me.TileHorizontalToolStripMenuItem.Name = "TileHorizontalToolStripMenuItem"
Me.TileHorizontalToolStripMenuItem.Size = New System.Drawing.Size(198, 22)
Me.TileHorizontalToolStripMenuItem.Text = "가로 바둑판식 배열(&H)"
'
'CloseAllToolStripMenuItem
'
Me.CloseAllToolStripMenuItem.Name = "CloseAllToolStripMenuItem"
Me.CloseAllToolStripMenuItem.Size = New System.Drawing.Size(198, 22)
Me.CloseAllToolStripMenuItem.Text = "모두 닫기(&L)"
'
'ArrangeIconsToolStripMenuItem
'
Me.ArrangeIconsToolStripMenuItem.Name = "ArrangeIconsToolStripMenuItem"
Me.ArrangeIconsToolStripMenuItem.Size = New System.Drawing.Size(198, 22)
Me.ArrangeIconsToolStripMenuItem.Text = "아이콘 정렬(&A)"
'
'TreeView1
'
Me.TreeView1.ContextMenuStrip = Me.ContextMenuStrip1
Me.TreeView1.Dock = System.Windows.Forms.DockStyle.Left
Me.TreeView1.Font = New System.Drawing.Font("돋움", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.TreeView1.Location = New System.Drawing.Point(0, 49)
Me.TreeView1.Margin = New System.Windows.Forms.Padding(3, 2, 3, 2)
Me.TreeView1.Name = "TreeView1"
Me.TreeView1.Size = New System.Drawing.Size(185, 581)
Me.TreeView1.TabIndex = 23
'
'ContextMenuStrip1
'
Me.ContextMenuStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.그룹추가ToolStripMenuItem, Me.그룹삭제ToolStripMenuItem, Me.그룹복사ToolStripMenuItem, Me.그룹변경ToolStripMenuItem})
Me.ContextMenuStrip1.Name = "ContextMenuStrip1"
Me.ContextMenuStrip1.Size = New System.Drawing.Size(123, 92)
'
'그룹추가ToolStripMenuItem
'
Me.그룹추가ToolStripMenuItem.Name = "그룹추가ToolStripMenuItem"
Me.그룹추가ToolStripMenuItem.Size = New System.Drawing.Size(122, 22)
Me.그룹추가ToolStripMenuItem.Text = "그룹추가"
'
'그룹삭제ToolStripMenuItem
'
Me.그룹삭제ToolStripMenuItem.Name = "그룹삭제ToolStripMenuItem"
Me.그룹삭제ToolStripMenuItem.Size = New System.Drawing.Size(122, 22)
Me.그룹삭제ToolStripMenuItem.Text = "그룹삭제"
'
'그룹복사ToolStripMenuItem
'
Me.그룹복사ToolStripMenuItem.Name = "그룹복사ToolStripMenuItem"
Me.그룹복사ToolStripMenuItem.Size = New System.Drawing.Size(122, 22)
Me.그룹복사ToolStripMenuItem.Text = "그룹복사"
'
'그룹변경ToolStripMenuItem
'
Me.그룹변경ToolStripMenuItem.Name = "그룹변경ToolStripMenuItem"
Me.그룹변경ToolStripMenuItem.Size = New System.Drawing.Size(122, 22)
Me.그룹변경ToolStripMenuItem.Text = "그룹변경"
'
'ToolStrip1
'
Me.ToolStrip1.Font = New System.Drawing.Font("돋움", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(129, Byte))
Me.ToolStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToolStripButton1, Me.ToolStripButton2, Me.ToolStripButton3, Me.ToolStripButton4, Me.ToolStripButton5, Me.ToolStripButton6, Me.ToolStripButton7, Me.bt_test})
Me.ToolStrip1.Location = New System.Drawing.Point(0, 24)
Me.ToolStrip1.Name = "ToolStrip1"
Me.ToolStrip1.Size = New System.Drawing.Size(1008, 25)
Me.ToolStrip1.TabIndex = 25
Me.ToolStrip1.Text = "ToolStrip1"
'
'ToolStripButton1
'
Me.ToolStripButton1.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
Me.ToolStripButton1.Image = CType(resources.GetObject("ToolStripButton1.Image"), System.Drawing.Image)
Me.ToolStripButton1.ImageTransparentColor = System.Drawing.Color.Magenta
Me.ToolStripButton1.Name = "ToolStripButton1"
Me.ToolStripButton1.Size = New System.Drawing.Size(23, 22)
Me.ToolStripButton1.Text = "파일생성"
'
'ToolStripButton2
'
Me.ToolStripButton2.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
Me.ToolStripButton2.Image = CType(resources.GetObject("ToolStripButton2.Image"), System.Drawing.Image)
Me.ToolStripButton2.ImageTransparentColor = System.Drawing.Color.Magenta
Me.ToolStripButton2.Name = "ToolStripButton2"
Me.ToolStripButton2.Size = New System.Drawing.Size(23, 22)
Me.ToolStripButton2.Text = "파일열기"
'
'ToolStripButton3
'
Me.ToolStripButton3.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
Me.ToolStripButton3.Image = CType(resources.GetObject("ToolStripButton3.Image"), System.Drawing.Image)
Me.ToolStripButton3.ImageTransparentColor = System.Drawing.Color.Magenta
Me.ToolStripButton3.Name = "ToolStripButton3"
Me.ToolStripButton3.Size = New System.Drawing.Size(23, 22)
Me.ToolStripButton3.Text = "파일저장"
'
'ToolStripButton4
'
Me.ToolStripButton4.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
Me.ToolStripButton4.Image = CType(resources.GetObject("ToolStripButton4.Image"), System.Drawing.Image)
Me.ToolStripButton4.ImageTransparentColor = System.Drawing.Color.Magenta
Me.ToolStripButton4.Name = "ToolStripButton4"
Me.ToolStripButton4.Size = New System.Drawing.Size(23, 22)
Me.ToolStripButton4.Text = "다른이름으로 저장"
'
'ToolStripButton5
'
Me.ToolStripButton5.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
Me.ToolStripButton5.Image = CType(resources.GetObject("ToolStripButton5.Image"), System.Drawing.Image)
Me.ToolStripButton5.ImageTransparentColor = System.Drawing.Color.Magenta
Me.ToolStripButton5.Name = "ToolStripButton5"
Me.ToolStripButton5.Size = New System.Drawing.Size(23, 22)
Me.ToolStripButton5.Text = "건물개요"
'
'ToolStripButton6
'
Me.ToolStripButton6.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
Me.ToolStripButton6.Image = CType(resources.GetObject("ToolStripButton6.Image"), System.Drawing.Image)
Me.ToolStripButton6.ImageTransparentColor = System.Drawing.Color.Magenta
Me.ToolStripButton6.Name = "ToolStripButton6"
Me.ToolStripButton6.Size = New System.Drawing.Size(23, 22)
Me.ToolStripButton6.Text = "계산"
'
'ToolStripButton7
'
Me.ToolStripButton7.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
Me.ToolStripButton7.Image = CType(resources.GetObject("ToolStripButton7.Image"), System.Drawing.Image)
Me.ToolStripButton7.ImageTransparentColor = System.Drawing.Color.Magenta
Me.ToolStripButton7.Name = "ToolStripButton7"
Me.ToolStripButton7.Size = New System.Drawing.Size(23, 22)
Me.ToolStripButton7.Text = "계산결과그래프보기"
'
'bt_test
'
Me.bt_test.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.비교데이터백업ToolStripMenuItem, Me.데이터비교ToolStripMenuItem, Me.순실체적ToolStripMenuItem})
Me.bt_test.Image = CType(resources.GetObject("bt_test.Image"), System.Drawing.Image)
Me.bt_test.ImageTransparentColor = System.Drawing.Color.Magenta
Me.bt_test.Name = "bt_test"
Me.bt_test.Size = New System.Drawing.Size(90, 22)
Me.bt_test.Text = "TestMenu"
Me.bt_test.Visible = False
'
'비교데이터백업ToolStripMenuItem
'
Me.비교데이터백업ToolStripMenuItem.Name = "비교데이터백업ToolStripMenuItem"
Me.비교데이터백업ToolStripMenuItem.Size = New System.Drawing.Size(170, 22)
Me.비교데이터백업ToolStripMenuItem.Text = "1.비교데이터백업"
'
'데이터비교ToolStripMenuItem
'
Me.데이터비교ToolStripMenuItem.Name = "데이터비교ToolStripMenuItem"
Me.데이터비교ToolStripMenuItem.Size = New System.Drawing.Size(170, 22)
Me.데이터비교ToolStripMenuItem.Text = "2.데이터비교"
'
'순실체적ToolStripMenuItem
'
Me.순실체적ToolStripMenuItem.Name = "순실체적ToolStripMenuItem"
Me.순실체적ToolStripMenuItem.Size = New System.Drawing.Size(170, 22)
Me.순실체적ToolStripMenuItem.Text = "3.순실체적"
'
'btImport
'
Me.btImport.Name = "btImport"
Me.btImport.Size = New System.Drawing.Size(244, 22)
Me.btImport.Text = "가져오기"
' '
'MdiMain 'MdiMain
' '
@@ -779,5 +792,7 @@ Partial Class MdiMain
Friend WithEvents FielCheckerToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem Friend WithEvents FielCheckerToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
Friend WithEvents ToolStripMenuItem2 As System.Windows.Forms.ToolStripSeparator Friend WithEvents ToolStripMenuItem2 As System.Windows.Forms.ToolStripSeparator
Friend WithEvents btImport As System.Windows.Forms.ToolStripMenuItem Friend WithEvents btImport As System.Windows.Forms.ToolStripMenuItem
Friend WithEvents 일괄계산ToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
Friend WithEvents prb1 As System.Windows.Forms.ToolStripProgressBar
End Class End Class

462
ArinWarev1/MdiMain.resx
View File

@@ -223,31 +223,6 @@
L6EuGjGgPk0oQzDdcEUqKuriEBlSI/ysHKF+JVZscgSsxbTSfdjLTxLKEEzqLlH7nVJq2EmpDgUCfTIs L6EuGjGgPk0oQzDdcEUqKuriEBlSI/ysHKF+JVZscgSsxbTSfdjLTxLKEEzqLlH7nVJq2EmpDgUCfTIs
m4uwZCqAyGthUR4nlCEYr79AT9dGJbbQCxioiwYpVeR1iI3dpbXqYLp1lNDfBIIgwO12Y7QmDy+qzklF m4uwZCqAyGthUR4nlCEYr79AT9dGJbbQCxioiwYpVeR1iI3dpbXqYLp1lNDfBIIgwO12Y7QmDy+qzklF
Oe+cQb/qFGxlJ2C9nQOz4hh65dkwyo6A4zhpDgX/Psj6CQV66PBRu7f+AAAAAElFTkSuQmCC Oe+cQb/qFGxlJ2C9nQOz4hh65dkwyo6A4zhpDgX/Psj6CQV66PBRu7f+AAAAAElFTkSuQmCC
</value>
</data>
<data name="bt_filesave.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
R0lGODlhEAAQAIQAAJXD9Iasxm6MqnSn2lZtjVaRyEpXbYu767TX/2KZztvr/4Gy5KrT/3ut32+gzlFh
e+r0/0RNX9/u/9Ln+8Xg//n8/4e36CkxQz9GVkSCvKjL35/N/Je91K7T5bDS4////yH/C05FVFNDQVBF
Mi4wAwEBAAAh+QQAAAAAACwAAAAAEAAQAAAIuQA/CBxIsKDACRwScggQwIGAhwIICBDYQcEEgwg+bNjw
QKCHCQgkQBgpQcKBCg0AEBCoAaRIkhIsVBigUiAHCgwkKNjJU8GAAx0/3NwIAMABCwsaDHCwIGgAChuK
HjiQdMDSAQYEPpWKtKqDBA6yfgiAwGhXpUsTJIgg0AGCo0nRfi1QgO0HAQyQNpCrtkAGDAIFbKi69GsC
un8FEohqdEFavxkyXAhMoPKDBwYMRIiAAcOFoAZDCwwIADs=
</value>
</data>
<data name="bt_데이터관리.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAAK/INwWK6QAAABl0RVh0U29m
dHdhcmUAQWRvYmUgSW1hZ2VSZWFkeXHJZTwAAAIVSURBVDhPjVLJihpRFK1VFvmAXiSfkFV+Irt8Rpb5
jGSXlfOMioIjiLgSxRERJ1QcUJxQcMSUitBJad/c8+gq2m4XeXCqXt2659zz7n0SEb1BLpf7GY/HFx6P
5wnAHrF7uW8CkUjkIRAI/OX9zULM7/d/4O1Nvng8V5xwtSuDYrEYdbtdul6vdLlcqN1uixj+IQe5qiMh
wOqP/NbWdDqlcDhMzWZTIBQKidjL9cyRpGg06mJQp9MRFYFSqUSJRIK8Xq8A9ojBjaIo1Gq1CByHw+GX
uJLS7/epVqtRvV4XFVH99VIdVatVymazlE6nyWazKRLbk0+nE63XaxqNRjQej4nPR4PBQHOEfT6fp16v
R8lkUqDRaJDVapWlYDAoBA6HA+33e5rNZsJupVLReoCqaCKImUxGAG4tFouMBgoBWZZpt9vRZrOhxWIh
quJohUJBEGEZzuAEAihgNptliWf753w+0/F4pOVyKciTyYSGw6EYJZJBVJFKpYRYuVwmg8HwKPl8viQC
8/lcHAMi6AUcQAD/0DQATlAZolyY9Hp9VuIxvePL8c3tdg+RtFqtaLvdimZCQG0aiOgN7gQTp4zvOp3u
vXYlXS7Xg9Pp/MGz/V0sFoUIxNBAjJhvHyyfmPiLiR9Vniagwm63f+L5+nhETyDizOwO5DCTP7/Ov/l4
Ce7wF5PJlDYajQUmf72XA9wN/j9I+gdcby0cbkUDWAAAAABJRU5ErkJggg==
</value> </value>
</data> </data>
<metadata name="ContextMenuStrip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"> <metadata name="ContextMenuStrip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
@@ -331,72 +306,72 @@
<data name="ToolStripButton2.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64"> <data name="ToolStripButton2.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value> <value>
iVBORw0KGgoAAAANSUhEUgAAAEAAAABACAYAAACqaXHeAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8 iVBORw0KGgoAAAANSUhEUgAAAEAAAABACAYAAACqaXHeAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAA8+SURBVHhe7ZpZbFXXFYap2kRN2kptU6kP6VPV17z0sVJV YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAA89SURBVHhe7ZpZbFXXFYap2kRN2kptU6kP6VPV17z0sVJV
9aVS1aqV2pCmaRuSpgkEMDZgMxl8sQEb4xmb2JgxCaMN2BAIEAZDMJ6wCVMI82DANp5tzMz16v+vvfc5 9aVS1aqDFNI0bTM0TSCAsQGbyeCLDdgYz9jExmDIwGiDDQQChOEyesImTCFhBgds49nGYb5e/f+19z7n
514cMBmkRLpb+rX2Ge65d333X+vsc+0RsREbsREbsREbsREbHKEt157N3tL/s/RNfc9ROTt6f5qxtfcn 3IsDJoOUSHdLv9Y+wz33ru/+a519rj0qPuIjPuIjPuIjPuKDI7T56pO5mwd+llnd/xSVt73vp1lb+n5C
VF5Fz48fp6ydrT+wl/p2jbiCpkWJJcdvZa0/JV9WaUVn7yYsPHxgZFnZd+3lv/ljzMKDAyc6HsjdByJH FdT0/vhhytnR9gN7qW/XSChqXpxcduJGzrpP5Msqo+Ts7aRFRw6Mrqz8rr38N3+MXXRo8GTnPbl9T+RY
Wx9I5af3vpA2n7wnOy88kMyNVeH4gqZke/lv/pi2rO7OtpMDcvDMHcnf3ifZ255E/RpzOP/QaFXDTYnP 2z3Z+NGdL6RNp+7Ijgv3JHtDOJJY1JxqL//NH9Mr6m9tPTUoh87cksJt/ZK79VE0oDGP8/eNVjZ+JokF
O3w7bn7dL+xbfLNHfN4nt5fU9poEXGKYa1Iqk2TE8eC2Pdc/v09CK+oHJy1qqrZv8c0eDoAmoUkh4Q8p R24mLKj/hX2Lb/ZILPjw5tK6PpOASwxzTUplkow6Hty25/rn90uoom5o8uLmg/YtvtnDAdAkNCkk/D7l
l5AFQEXtz8G2vkYhYK77+qS46oakrjh1f0J+w5JxhfXPjS2q+uHXqbcWNz5l03nyMXXJiVulNSYpB4GJ ErIAqJj9edjW1ygEzHVfv5SGr0v6ik/uTixsXDq+uOGpcSXhH36den1J02M2nUcf05aevFFea5JyEJiI
mIQpk5RJ1s3NfvcaBcBjnPO12N51+q6kr6weHKpZfh2Ky2+sH51T87xNa/jDATDJBxK036iB4I7ZpF2y SZgySZlk3dzsd69RADzGOV+L7Z2nb8u85fuHhmuWX4cSCpsaxuTVPm3TGvlwAEzygQTtN2oguGM2aZes
ep47P/L1y/ffkJa+sHTeFqluG/xaVdsuElpaNzgur6HWpjX8kUQAB11SJklNiMnq3N/HaGAYOTA+ILfP nufOj3798n3XpbU/Il03RQ62D32tqusQCZXXDo0vaKyzaY18pBDAIZeUSVITYrI69/cxGhhGDowPyO3z
j/7rzfWco4yDgtvBa5nj3pdiP1fw9b76pXBXv3x49r6MK2jsD4WqvmdTe/wYObLsu+wBi6t7JWsb+kDE o/96cz3nKOOg4HbwWua496XYzxV8va8BKd45IO+fvSvji5oGQqHw92xqDx+jR1d+lz1gycE+ydmKPhB1
hc3FI9/UfBAns3+oY27bXSfqOO823nZwbrYjY9Sx7dGfh/v6JP+jGxK/oP7GxJyaZ2x6jx+/Ay0CKAGA YXPx6Dc1H8TJ7B/umNt214k5zruNtx2cm+3oGHNsW+zn4b5+KfzguiQubLg+Ka/2CZvew8fvQIsAygAg
9E0dARsb5TLi4nxT3ceo88A+p6HO0WOR14w8h3rEtYYjfj57jXELm/qfCMBbbzU+lVRad6f4QK/MKW+T s7ozYGOjfEZcnG+q+xh1HtjnNNw5eiz6mtHnUA+41kjEz2evMX5R88AjAXj99abHUsrrb5Ue6JO5Ve0y
eZvaTdJ6YRNzgx/G7XNzKOK4J/9D6TnB8+2cUV9LBc7V19vonYPj3rnuHHeeFc/9QgASAeCdj3sldX2L v7rDJK0XNjE/+GHcPjeHoo578j+UnhM8384Z9bVU4Fx9vY3eOTjunevOcedZ8dwvBCAZAN7c3yfp61ol
pJW1BiAwCfNG5s1vBD5wYL933Ihzo6jzuc9Gs22ORyv6ujpXRZ3vruHOh54YwKhQ1fcJoBgAQmuvSuq6 o7ItAIFJmDcyb3498IED+73jRpwbxZzPfTaabXM8VrHX1bkq5nx3DXc+9MgAXgqFv08ApQAQWnNF0tde
azIbIOZuuC5ZW7E4YklQeCPXnPhmrMFs9gz9ILaBaQ/hB+f5/gc1H96X2+eORyiQjL/fgbyhCh43+/xz lTkAMW/9NcnZgsURS4LCG7nmxDdjDeayZ+gHsQ1Mewg/OM/3P6j58L7cPnc8SoFk/P0O5HVV8LjZ55/7
nxjAixNrnsFC4u6i/b0yc1WzpKyGAGK2gmgFCFMW8yraJaOyQ9IrOiVjc6fM39wFIVaaeUZll2Ru7jba yACenVT7BBYStxfv65NZK1skbRUEEHMURBtAmLKYX9MhWRs7JbOmS7I2dcmCTd0Q4kYzz9rYLdmbeow2
YpT1Qa8s2Noj2ZSD5L41fvgdBGWk23oc8x32eACGl7A7J7iPEOw+AkBa3zHZDWP8JanyRwRQVNUt0969 G+W81ycLt/RKLuUguW+NH347QRnpth7HfLs9HoDhJezOCe4jBLuPAJDWd0x2Ixh/Sdn4IwIoCffI9Lcv
IDPevQgQl1WzAIOuCK0zQFLXQ+taJLW8VdIAZg7iHJSMCv2DsFQbr8s8aA7hwUmc01G6n9sbAHQjBLDp yMy3LwLEZdVswKArQmsNkPR10NpWSa9qkwyAmYs4FyWjQv8gLNWGazIfmkt4cBLndJTu5/Z6AN0AAWwm
2JeOOeXt24R9hI7z9BhixoYOydjYIfOxX4V5ps4R8eVk4ovJxL4JuAuMGCEOAKLOPx+IA1C4t0uSlpyR 9mViTnn7qrGP0HGeHkPMWt8pWRs6ZQH2qzDP1jkivpxsfDHZ2DcRd4FRo8QBQNT55wNxAIr3dEvK0jMy
KcvPyYyV52XGexehSwBxSUHMWn1FUtYYKRTnEmqtjQDlYBlggEVo7C2cY18aAKaVWREgwBFUUHPLrslc dfk5mfnWeZn5zkXoEkBcUhCzV30qaauNFIpzCbXGRoBysAwwwCI09hbOsS8DADMqrQgQ4AgqqHmVV2Ue
nD8Px+eVtwBAqyoD56bjeMbGNgDANuAZtQEG9gHcmIKDAza1ESLDcMKfQ1ueTQwdv0cHJC07K9NWnJPp zp+P4/OrWgGgTZWFczNxPGtDOwBgG/CM2gED+wBubNGhQZvaKJEROOHPoc1PJodO3KEDUirOyvQV52TG
Ky/IdDhhOiAkv08IcMMaiuVhATBBm+hsBXLNAzOUWFZmTlc1K6xUJJpWDjFuoFpkzkYkvwmJV6D8KuAg WxdkBpwwAxBS3yUEuGE1xfKwAJigTXSOArnqgRlOLCszp6taFFY6Es2oghjXU60ydwOSr0biNSi/GjiI
Sh1hxVKsMDG9Aq7QCCdgH0s0NP/Eg1lY2D1KCUtOdo8vaDgZBaAHAOgAA4HlMJ0l8T5KAhBmrTYlkQII UkdYsRRrTMysgSs0wgnYxxINZZ68NxsLuwcpaempnglFjadiAPQCAB1gILAcZrAk3kVJAMLsVaYk0gCB
rN2aC/ek/eagnGgPy9HrRkfajD6BDrdCLWFphA5BDdS1sNRBtVfDUgMdvBKWauhAc1g+vhyW/dA+aO+l tVt74Y50fDYkJzsicuya0dF2ow+hI21Qa0SaoMNQI3U1IvVQ3ZWI1EKHPo3IQehAS0T2X47IPmgvtOdS
sOy5GJbd0C7qQlh2Wu04b7T9C+rDc2EpP3YfzqsOK4CRobKnE0PH7hXt65HE0tOmDJaelakK4rwFASeg RHZfjMguaCd1ISI7rLafN9r2BfX+uYhUHb8L5+2PKIDRocrHk0PH75Ts7ZXk8tOmDJadlWkK4rwFASeg
FOgGWrfykzsSHhT5rOW+5O0ckFyIMe+jAcnfdVPyIMYCxt23pGA35hqNFu65JYXQwr23pTCgoirEqjsa FOgGWnfjh7ckMiTycetdKdgxKPkQY8EHg1K48zMpgBiLGHfdkKJdmGs0WrT7hhRDi/bclOKASsKI4Vsa
F2m8Y+I+bO/D/CtU2oqL9xUAV4KjSo7dZwlMWvyZTC49JYmAkLgUIFASU9ETpq1EWQBEMkCU1nTLqrpb F2u8ZeJebO/F/CtUxoqLdxUAV4IvlR2/yxKYvORjmVL+iSQDQvIygEBJTENPmP4WygIgUgGivLZHVtbf
SNh2X3ZsQthhIewEACgfMBTERwZGPiHsAgDMCWAhQSiM2wbIXkKxICwMpwgIhBKVzBfR6MLaHgXALukA QMK2+7JjE8J2C2EHAECFgKEgPjAwCglhJwBgTgCLCEJh3DRA9hCKBWFhOEVBIJSYZL6IxhTX9SoAdkkH
xBd/KhNLTgZAnIYb/LJIQe0uq++RAiSfpQ8x5r6c7UAAgso6QiNBOBiejCsIQB1hXaFyjnAwPBDGGUX4 ILH0I5lUdioA4jTc4JdFGmq3oqFXipB8jj7EmPtyrgMBCCrrCI0E4WB4Mq4gAHWEdYXKOcLB8EAYZ5Tg
8ArlS7gic3OHxBU0VWn6fBiaHDr2oGhft0xYdFzi3zkhCcUnDQgLQUHADUX7OqR4f5/M38IHJ0K4IVlc wyuUL+GK7E2dklDUHNb0+TA0JXT8XsneHpm4+IQkvnlSkkpPGRAWgoKAG0r2dkrpvn5ZsJkPToRwXXK4
EEWByHEgLAwHRN3AMnGuAAgtlSFKhM5wENQdhME5Iew15eHcoYkxDtMdCYtPdL+dU/d7BcAxOXQUALpk IIoBkedAWBgOiLqBZeJcARBaKsOUCJ3hIKg7CINzQthjysO5QxNjHKE7kpac7Hkjr/73CoBjSugYAHTL
fOFRiSs6piASAGIiHWHdwAa5rL4bq78eLIS4wCGAPlmgIJwjIAfCSZ1h3aEwWCIOhg+CpeEBcLIgIpwR hOJjklByXEEkAcQkOsK6gQ2yoqEHq79eLIS4wCGAflmoIJwjIAfCSZ1h3aEwWCIOhg+CpeEBcLIgopwR
kCkVH4ZxxtBJO+Wigcfl1V+yqZuhAKo6ZWzBEaykjgLEMYCAGxbRDQABN2Rta5ESrBbnbupWAJkf9EH9 kCkVH4ZxxvBJO+WjgScUNFyyqZuhAMJdMq7oKFZSxwDiOEDADYvpBoCAG3K2tkoZVovzqnsUQPZ7/dCA
soDaGgABN9AVjOoM646HQRhX5AGC9oxdvjOCbihwpeG5IhIGky6EI9zcl0mYJRMEkLji7I2xOfVv2tTN LKS2BEDADXQFozrDuuN+EMYVBYCgPWOn74ygG4pcaXiuiIbBpIvhCDf3ZRJmyQQBJK84e31cXsNrNnUz
+HtJVZgAxuQdlrfzP5FxADEeIOIAYgJBwA1Laruw1u8GACx7N7MMICx1MxENDEAgCDjDuIMyEIIyMABg /l4WjhDA2IIj8kbhhzIeICYARAJATCQIuGFpXTfW+j0AgGXvJpYBhKVuNqKBAQgEAWcYd1AGQlAGBgBs
OxQsE/YJusNzhYVhgbh+oXNA0PLQErEN1MFg8jq3rtDETc8o2HNT4nIbuh96VnAARuc0ypicJgUxNgAi g4Jlwj5Bd3iusDAsENcvdA4IWh5aIraBOhhMXufWFZq46RlFuz+ThPzGnvueFRyAMXlNMjavWUGMC4BI
Zc0FKTnQg1tgBxYm3ZJe2asuoBQEegLlQGRaCA6Ec0e2AwIIpkwGIvuFhaGusM3Tc4XKAiAI5woLhK5w W31Byg704hbYiYVJj2Ru7FMXUAoCPYFyILItBAfCuSPXAQEEUyaD0f3CwlBX2ObpuUJlARCEc4UFQlc4
ztBeEZg7V6QWNd8dn38oz6btj78RwL5OeTOrQd7KPmRA5DbJ2wriiBQf6MSH78LKjQB6FIBCqEQ/UBim Z2ivCMydK9JLWm5PKDxcYNP2x98IYG+XvJbTKK/nHjYg8pvlDQVxVEoPdOHDd2PlRgC9CkAhbEQ/UBim
LxgQhICoIALOIATPGQaGa6DOGXzqc7dVdzv1SsQ5wwMCCA4IALjo5DdQSF1xSybkN/XGDfW3Cgfgjcw6 LxgQhICoIALOIATPGQaGa6DOGXzqc7dVdzv1SsQ5wwMCCA4IALjo5DdQSF1xQyYWNvclDPe3Cgfg1ex6
+d+CeguiESCaUP+fyuLqLix922R2Waf2gHkUQTgRhDrCgvBg2BKxZWJKxIdhnEEQzhE2EkLQHYF+ke/6 +d/CBguiCSCaUf8fyZKD3Vj6tsucyi7tAfMpgnAiCHWEBeHBsCViy8SUiA/DOIMgnCNsJISgOwL9otD1
hXWFuZP4zvAg7EbiiLQ9nRHKqx8cn3dou005ckwKbR5cBACvZ9TKf+fXAUS9BXEIF25D7XdiFXgNDypd C+sKcyfxneFB2IXEEWl7OiOUVzc0oeDwNpty9JgcqhlaDACvZNXJfxfUA0SDBXEYF25H7XdhFXgVDyrd
WKt34amOvYDqAQwrhUFn0BUOCGH0IZqeoeXhomueHgjIusHdTbRfKBALwwMRAOKcYV2hK08FwmMDColg WKt346mOvYDqBQwrhUFn0BUOCGH0I5qeoeXhomueHgjIusHdTbRfKBALwwMRAOKcYV2hK08FwmODColg
Eoobut/ObviNTTlyEAAd8Nq8g/Jaeo2CeAMgRsMF/PZT17XiQYiPwACg6gYIAAgKEOayPwCEKRMDxJSI kkobe97IbfyNTTl6EAAd8PL8Q/JyZq2CeBUgxsAF/PbT17bhQYiPwACg6gEIAAgKEOaxPwCEKRMDxJSI
L69MPBAQS8WCUBgWAqPvCkAINE4FEJCuPANAOOfvBYSRtbUbd7hDZ2y6D49JoUoA6JBX51TLqLnVCuJ1 L69MPBAQS8WCUBgWAqPvCkAINE4FEJCuPANAOOfvBYSRs6UHd7jDZ2y694/JoWoA6JQX5x6Ul+YdVBCv
gEivaJa8HR14LMYTH+o/tRwwoDTKwkhD8nSFAlFXGLkS8UpFewYc4mAARNAZLka4AgC0X7j1BcFEu0J7 AERmTYsUbO/EYzGe+FD/6VWAAWVQFkYGkqcrFIi6wsiViFcq2jPgEAcDIILOcDHKFQCg/cKtLwgm1hXa
hu0X2jMIYgCv7ddjdMC05af7sfB51ab78FAAVR3y79SP5T9pByyIg9r8+O1PJ4D1mKMHpJaxGdpoYRhX M2y/0J5BEIN47YAeowOmLz89gIXPizbd+4cCCHfKv9P3y38yDlgQh7T58dufQQDrMEcPSK9kM7TRwjCu
WNkScUD88rBQCIHuYL/AXPuFOoO3VXNHMa5giQCCU7BE8M26xhkJw5QJewhBEgjPHZ/d2DkydOJpm+7D sLIl4oD45WGhEALdwX6BufYLdQZvq+aOYlzBEgEEp2CJ4Jt1jTMahikT9hCCJBCeOyG3qWt06OTjNt37
wwH41+z9gLAfED7Gw88ZKdzdieeAZti/HU2wU0LrOxSED8OHklaOSEdYea4gDK9fBIDYEjEw6A72DfYL hwPwrzn7AGEfIOzHw88ZKd7VheeAFti/A02wS0LrOhWED8OHklGFSEdYea4gDK9fBIDYEjEw6A72DfYL
wOD6ghA8EFG9grdT1zyDIFQDKK8evLYX7h2QsUUXeetLt6kOPSYVH9F1/ispVfJKaJ+CKKrq0l96pq64 wOD6ghA8EDG9grdT1zyDIFSDKK9evLYP7h2UcSUXeevLtKkOPyaXHtV1/gtpYXkhtFdBlIS79ZeeaSs+
IinrOlShgBQEyoJ3Bg9IsEQoB0N7hg+EELRUAMK4AyAsFHcnyaAj7J1Eb6nQAgXil4lzhZFxBSHN3dRp lbS1napQQAoCZcE7gwckWCKUg6E9wwdCCFoqAGHcARAWiruTZNER9k6it1RooQLxy8S5wsi4gpDmVXeZ
tgEkDre+Cfm1P7epDj0cgJdn7ZV/zqrSZ4KFu7vx7V9G90cDXNuOJ0FAsAoxRsBwQAwIE1kqBohC8WAY bQBJwK1vYmHdz22qww8H4PnZe+Sfs8P6TLBoVw++/cvo/miAazrwJAgIViHGKBgOiAFhIkvFAFEoHgwD
EH6J2BjVQIdsns4VTtYVHgwmX4ESBADCCGUeHIzLb6iwaX7+MADa5R/Je+TlmXtQS1z1tUjiMv4K1G6E wi8RG2Ma6LDN07nCybrCg8Hka1CCAEAYoawDQwmFjTU2zc8fBkCH/CN1tzw/azdqiau+Vkmu4K9AHUYo
MlAQGn0YKg8G3eDDmO1BoDs6H3JGmnWGuYtQ5k5iXEEQbJoORpQzCMA2TnUHIND2qWXX9VyWSQKWveNy AwWh0Yeh8mDQDT6MOR4EuqPrPmdkWGeYuwhl7iTGFQTBpulgxDiDAGzjVHcAAm2fXnlNz2WZJGHZOz6/
a35t0/z8QQCLAOClGbuxDqjFraQf3/4lmbryqsxE8jOR9MzV1zUqCCd1BrSOCoAgAIDQnkE3BNzhuSLg 9tc2zc8fBLAYAJ6buQvrgDrcSgbw7V+SaW9dkVlIfhaSnrXqmkYF4aTOgNZSARAEABDaM+iGgDs8VwQc
CI3OFQEYBOGkvUKBWFdoeZi7h3PGnA18/+sKg79Cx+U3nrApPno4ACOn78LFO2VOebtMXsKfwZA0Ek8m odG5IgCDIJy0VygQ6wotD3P3cM6Yu57vf01h8FfohMKmkzbFBw8HYPSMnbh4l8yt6pApS/kzGJJG4qmE
BBW37TwahEY6glB8GJ4jnDxnGBgPucJB8GDQFQ6EKRNzJ7EgrHgnSVnLX5k71BmJpUf7xubWv2RTfPQg oOK2nceC0EhHEIoPw3OEk+cMA+M+VzgIHgy6woEwZWLuJBaEFe8kaWv4K3OnOiO5/Fj/uPyG52yKDx4E
gI2He/QWyAXFtBWX8fzfrACcZjIi8WSFYMTS0LgG254jOrzoxJ7hSsS4IxqGKxNCQKmoM+AIu+DSu4jC sOFIr94CuaCYvuIynv9bFIDTLEYknqoQjFgaGldj23NEpxed2DNciRh3xMJwZUIIKBV1BhxhF1x6F1EY
MOWhjnDR9os0JD5zdYtusweMzqprH/afyQlgz6l+XJR/lOiU+OKzDwHwxOR17hxBWVdAvisAIgDFlYoB pjzUES7afpGBxGetatVt9oAxOfUdI/4zOQHs/mQAF+UfJboksfTsfQA8MXmdO0dQ1hWQ7wqACEBxpWJA
AbFE3K2VICwQdzdxrjDrC8KwZaLlASF54wzjCiafsqZNAfCv3WNzD82y6T1+TC45Ih98OiCtfWGZsuwC QCwRd2slCAvE3U2cK8z6gjBsmWh5QEjeOMO4gsmnrW5XAPxr97j8w7Nteg8fU8qOynsfDUpbf0SmVlzA
nv/PKoSJi89L4tJLUbqsSkKDNGrGa5pNxJphyvIrMgW3Tif2kWnUu9egq1hfXDN6rwUrTAh3GdWqVkCF 8/9ZhTBpyXlJXnYpRpdVKWiQRi14TYuJWDNMXf6pTMWt04l9ZDr19lXoCtYXV43eacUKE8JdRrWyDVCh
VrciGS696SrGNiR2HQAhAlx/HbBYVu0a2V+SV7VIEnpWKlzAJjo+v7GX/5dk03v8SCw9rj8Y8A+hCUg8 VW1IhktvuoqxHYldA0CIANddAyyWVYdG9pfUla2Sgp6VDhewiU4obOrj/yXZ9B4+kstP6A8G/ENoEhJP
/p0zAXE7IB6PEl8ToZJziBCj1cRoAS41KRAnlTpdQA+CNF40c6vEpRcjtewi4F8C1KvqjOS0/Xjqa1xr fPNMQNwOiMdjxNdEqewcIsRoNSlWgEtNDsTJ5U4X0IMgjRfN3Cp52cVoVVwE/EuAekWdkTonjKe+pjU2
U3v8WNwoT01d+pn+YJCxqUu/QX7gJwEQrejkoxUE4IFg4lEQFIRTAIIqAIHrFZYOSyQ+dOTeuJyaF2x6 tYePJU3y2LRlH+sPBlnV3foN8gM/CoBYxSYfqyAADwQTj4GgIJwCEFQBCFyvsHRYIomho3fG59U+Y9N7
jx+FVXdfTig6gnt/nySXgeC3WNPRZ8bk+n8bHNaYsbyxfPa6/eExWXUSV3hcJpWclsmLz3x9Kj0jiYiJ +CgO334+qeQo7v39kloJgt9izUCfGZvv/21wRGPm8qaqOWvDkbE59ZJQfEIml52WKUvOfH0qPyPJiMmM
jE78Q4yLS86qklTnJGnp0JoCTV3mdF6S8PrxoUMP/jBq/jyk9UtoeP8u9/yvXnjxt399czSmf/wK9ach TvxDjItLz6pSVOckZdnwmgpNq3A6Lyl4/YTQ4Xt/eGnBfKT1S2hk/y739K+eefa3f31tDKZ//Ar1p2H2
9n2enuTc4YjJx0ZsxEZsxEZsxEZsxMajx4gR/wcDB1vXlVSY6QAAAABJRU5ErkJggg== fZ4e5dyRiMnHR3zER3zER3zER3zEx4PHqFH/B7/AW6VS4Su/AAAAAElFTkSuQmCC
</value> </value>
</data> </data>
<data name="ToolStripButton3.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64"> <data name="ToolStripButton3.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
@@ -509,152 +484,152 @@
<data name="ToolStripButton5.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64"> <data name="ToolStripButton5.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value> <value>
iVBORw0KGgoAAAANSUhEUgAAAEAAAABACAYAAACqaXHeAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8 iVBORw0KGgoAAAANSUhEUgAAAEAAAABACAYAAACqaXHeAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAA24SURBVHhe7VoJcFRVFsWZKixX1kACgRBglDWIYZFVNoXI YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAA24SURBVHhe7VoJcFRVFsWZKixX1kACgRBglB0xLLLKEoXI
HsKWsO+Lu4M6JS4jZTE6rjPOyFgCSYAsgGQPhEDAGJJAVpJOOunsJODujKMOMGrduef+/353J90Q0o0a HsKWsO+Lu4M6JS4jZTE6rjPOyFgCSYAsgGQPhEDAGJJAVpJOOunsJODujKMOMGrduef+/353J90Q0o0a
x1d16t53/+t77zn9l/e7us2v4ycalml9b0zu2/dGffr/NQqX+N2SPqTdxZh+7S6m+HW9RQ8bg4h+U1BQ x1d16t53/+t77zn9l/e7us2v4ycalml9b0zu2/dGffr/NQqXDLklfWi7izH92l1MGdL1Fj1sDCL6TUFB
0CsvL69bbm5uZ5PJdCujLcdv0Je03mGededt6SM6XrqwbQIBe/p1vJQxutNt+mEZIBweHk7OcPr06YH6 Qa+8vLxuubm5nU0m062Mthy/QV/Seod51p23pY/seOnCtokE7OnX8VLGmE636YdlgHB4eDg5w+nTpwfq
0tY1LCEjbgd50/whQh44OdxLRMge0fF2fZkhgKOBeE5OzmB9aesZufP92ynyjQVQIqT6d2iHtUoAPv2b S1vXsISMvB3kTfOHCnng5AgvESF7ZMfb9WWGAI4G4jk5OYP1pa1n5M73a6fINxZAiZDq16Ed1ioB+PRv
oFUKUDB7SHtb8o4EUCKcGOLT/hclQFHw4A4nRnlctiXvTAAg1qPT5ewn13j/IgQwBQ3o6Ig88PH2KYLG glYpQMHsoe1tyTsSQIlwYqhP+1+UAEXBgzucGO1x2Za8MwGAWI9Ol7OfXOP9ixDAFDSgoyPywMfb/QWN
AgBxd3lcbvUClC327+yMfPXmsURHnhDkzxvURIAPxvoK0VYrQH7QXR7OyY+jy/vX0YUX7xVcil7XRIRW BQDi7vK43OoFKFvs19kZ+erN44iOPCHInzeoiQAfjPMVoq1WgPyguzyckx9Pl/evowsv3iu4FL2uiQit
LUDhXL8u8aO8/uuY/Fi6FLVWiH+0fRJ98vL94l+MXGMvwkjv1ilA0aJBXZ2Rr9o0li5GrDbIp216gBJD WoDCuUO6xI/2+q9j8uPoUtRaIf7R9sn0ycv3i38xco29CKO8W6cARYsGdXVGvmrTOLoYsdogn7bpAUoM
JtD5FyZK7D/7VlF+4EBDhL/3uolOR4a2HgFK597t5ZT8xjFCUJE/umkGvbj1GUFsyCRqeIGfCHzs2z0r mUjnX5gksf/sW0X5gQMNEf7e6yY6HRnaegQonXu3l1PyG8cKQUX+6KYZ9OLWZwSxIZOp4QV+IvCxb/es
KW9uIxFCd/z8BTAvGtrNKfkNY+jb8BUG+ZTNM4V4WFiYAH5MyGQWQbsnfBO2nPLmDLATIfud136+Apyd pLy5jUQI3fHzF8C8aFg3p+Q3jKVvw1cY5FM2zxTiYWFhAvgxIVNYBO2e8E3YcsqbM8BOhOx3Xvv5CnB2
O9g73df7O0fkKzeMpm9ClxnkD2+eLYSjoqIoKTGJkpKSxEfs0NL7DBG+3r2Ucmf3txMh6/UXDQEy//H6 7mDvdB/v7xyRr9wwhr4JXWaQP7x5thCOioqipMQkSkpKEh+xQ0vvM0T4evdSyp3d306ErNdfNATI/Mfr
FL38TztM8/17OiW/fjR9vWuJQT7pwblCNDo6mo4fP075efmUl58nfvT+aDn2/rKphgj/fi+EcmfZi5C5 /nr5n3aY5vv1dEp+/Rj6etcSg3zSg3OFaHR0NB0/fpzy8/IpLz9P/Oj90XLs/WVTDRH+/V4I5c6yFyFz
bYsIkOQ34PsP/b166m38NKMkcKiPM/IV60YxgWCDfOJDVvJpaWlUVFREVVVVAvhpx9PkGNYcXBFADc9r 2xYRIGnQgO8/9PPqqbfx04ySwGE+zshXrBvNBIIN8okPWcmnpaVRUVERVVVVCeCnHU+TY1hzcEUANTyv
Inz17mLKmdnPToRTT28Qu9un03fHh3r66O38uKMwyM/XKfm193Djiwzy8Q8H2XzzGvnq6hqqrz9H587V ifDVu4spZ2Y/OxFOPb1B7G6fTt8dH+bpo7fz447CoCG+TsmvvYcbX2SQj384yOab18hXV9dQff05Oneu
U3VNjSZCGp8Jugj7V043RPjXOwspZ8addiIoQIQPRnT11dv6cUZR4ODeTsmvuYcbXmCQj3tkvg3541R0 nqprajQR0vhM0EXYv3K6IcK/3llIOTPutBNBASJ8MLKrr97WjzOKAgf3dkp+zT3c8AKDfNwj823IH6ei
9iyTr2bi56ihoYHOM+DXcOwsH5PLQYmwaoYhwpdvB9GZ6XfYiaB8iPDhsC699fau7zAFDe2bPsD7e0fk s2eZfDUTP0cNDQ10ngG/hmNn+ZhcDkqEVTMMEb58O4jOTL/DTgTlQ4QPh3fprbd3fYcpaFjf9AHe3zsi
LatH0j//FmSQj3lkgR35s4VW8vX19SyAhnoRoY6PVTURIWrNLKp/ThPhi78E0umA3xnEbRHbv9P3J4Z6 b1k9iv75tyCDfMwjC+zIny20kq+vr2cBNNSLCHV8rKqJCFFrZlH9c5oIX/wlkE4H/M4gbovY/p2+PzHM
99XbvD6jdKHfHU7JrxpJX3KDivyhRxfakz9bKNf7S8PaXhFVLEJhYaGdCJFr5xgifP7GHDo9zbkI6cO7 u6/e5vUZpQuH3OGU/KpR9CU3qMgfenShPfmzhXK9vzS87RVRxSIUFhbaiRC5do4hwudvzKHT05yLkD6i
3aG3695RFDion1PyK0fQF2/ONsgffHSxDfljVFhQSJVMvq6ujvbO6EJ/iv/KIXAMayqrKqmAP2MrQsS6 2x16u+4dRYGD+jklv3IkffHmbIP8wUcX25A/RoUFhVTJ5Ovq6mjvjC70p/ivHALHsKayqpIK+DO2IkSs
QBZhvNT47LWZlD21r1MRTvh79dPbds8oXji0vzPy5SuG0+fckEH+sWCD/DEmX1BQQFWVlVRbWyen/tUE C2QRJkiNz16bSdlT+zoV4YSfVz+9bfeM4oXD+jsjX75iBH3ODRnkHws2yB9j8gUFBVRVWUm1tXVy6l9N
wJra2lqq5M/gs8eOHbOKsH4eNTyrifDpK9Mp+/4+TkU4OdKzv96+a6Nk3pCBTskvH0af/Xm6QX7/4yEG AKypra2lSv4MPnvs2DGrCOvnUcOzmgifvjKdsu/v41SEk6M8++vtuzZK5g0d6JT88uH02Z+nG+T3Px5i
+VRuHAQqKyqolu/y5/ibratrngB1EKHGKkJqqlWEvRsXGCJ8sj2Asqb0dirC8eFdXfvhtGjeID9n5MuY kE/lxkGgsqKCavkuf46/2bq65glQBxFqrCKkplpF2LtxgSHCJ9sDKMu/t1MRjo/o6toPp0XzBg1xRr6M
/KcvBxjkox9fYiWfmiqNV1RWUA2Tx2mtcDUB6vhmqNbisxUsoCZCqiHCnk1WET5+aSplTfZ1KkL6yO5+ yX/6coBBPvrxJVbyqanSeEVlBdUweZzWClcToI5vhmotPlvBAmoipBoi7NlkFeHjl6ZS1hRfpyKkj+o+
Op1rG/gN78Ro7x9sSSuULfNn9aca5COfWNaIfL40jkcbiOCUruNLAJfB1QSoreO1DKwFsF+osFRQfn6+ RKdzbQO/4Z0Y4/2DLWmFsmV+rP5Ug3zkE8sakc+XxvFoAxGc0nV8CeAyuJoAtXW8loG1APYLFZYKys/P
5I6K1rbN4ZsXGSJc2HYfZU7q5UyEH3RK1zZOjujWhDhQttSfVdfe4UE+4vfLpSHs59EgGq2wWHhzUy3E l9xR0dq2OXzzIkOEC9vuo8zJvZyJ8INO6drGyZHdmhAHypb6seraOzzIR/x+uTSE/TwaRKMVFgtvbqqF
G+OqAqi1IoJm8ei0cE5DBP3dIfzBYGrYOk56Of/HyZQ50bEIMT43f63Tav5wJIB5yd300bYpBvl9W1YY eGNcVQC1VkTQLB6dFs5piKC/O4Q/GEwNW8dLL+f/OIUyJzkWIcbn5q91Ws0fjgQwL7mbPtrmb5Dft2WF
5I9yY3m8t0ejaLiGr2Fc+7W1DN1ujdFyvpV1q/ggDV/NgYSijXL9gzwuAU2QGkOEvEYihD0UwmeCJkLD Qf4oN5bHe3s0ioZr+BrGtV9by9Dt1hgt51tZt4oP0vDVHEgo2ijXP8jjEtAEqTFEyGskQthDIXwmaCI0
8xPp1ASfJgLwWUA6reaPxgKA/IU/TjLI792y0kr+6FEmnycNVgn5GjvEn10vOVa+OdAgnPBRezurRAjN PD+JTk30aSIAnwWk02r+aCwAyF/442SD/N4tK63kjx5l8nnSYJWQr7FD/Nn1kmPlmwMNwgkftbezSoTQ
Hc6f0XJgi1zDl4BYBnKjRi7XQk0lQujDS6heifDsBDp1b0/3CmAOYfL6rzYgH75lVSPyuVSOb56f9bju 3BH8GS0Htsg1fAmIZSA3auRyLdRUIoQ+vITqlQjPTqRT9/Z0rwDmECav/2oD8uFbVjUin0vl+Ob5WY/r
8W1pzVfLIxD7f5ADSeRTPgTB3FYIxCCA5GDyyCEiiM8icI3y8nJ5LbYVYdejywwR6p8ZTxk2IrgkgDl4 Ht+W1ny1PAKx/wc5kEQ+5UMQzG2FQAwCSA4mjxwigvgsAtcoLy+X12JbEXY9uswQof6ZCZRhI4JLApiD
KJ1/Tvu1RiO/2o48GikvL5PGIIDWuNXiZpjM7/zq24e19W2FUMckl8pRpUPyab6IUOZIhOV0butY6fXc h9H557RfazTyq+3Io5Hy8jJpDAJojVstbobJ/M6vvn1YW99WCHVMcqkcVTokn+aLCGWORFhO57aOk17P
H8ZRxvgerglQyuQbntW2oCAf+uRag3xKSoo0UFZWJs9rJQC2svC1eTU/CispMTGJdh2bJ+Tw7e9OCzLI /WE8ZUzo4ZoApUy+4VltCwryoU+uNcinpKRIA2VlZfK8VgJgKwtfm1fzo7CSEhOTaNexeUIO3/7utCCD
2oqyO20+pRw5ol1Kej7J2QTVsrNEbfSQkmIV4b3HVrAI2plQ9/RYyhjXo2UCfDi+J99htccMyO9+SiMf rK0ou9PmU8qRI9qlpOeTnE1QLTtL1EYPKSlWEd57bAWLoJ0JdU+Po4zxPVomwIcTevIdVnvMgPzupzTy
qZPPyWHyZpCv4IY0AdAUTvmqSvuG0WhCfBwdiomh2Ng4iouP53m82DiOKxvLxw8nJrMAek4RVs8nefU5 kTr5nBwmbwb5Cm5IEwBN4ZSvqrRvGI0mxMfRoZgYio2No7j4eJ7Hi43juLKxfPxwYjILoOcUYfV8klef
A7VQW0TgXtCTIcLjq6wiPDWGku/2vDYBiNrcgFNSYddT6zTykZHaN5+Tw+TNssvDt68BDSm/KXDdlvJn M1ALtUUE7gU9GSI8vsoqwlNjKfluz2sTgKjNDTglFXY9tU4jHxmpffM5OUzeLLs8fPsa0JDymwLXbSl/
SkpKqMRkIhNQbKLi4mLxETeXmuXbd/R5Z8AlZua8OdwTekOPIsITq43+AXDS6V37QEJsco6kHKEzZ85I pqSkhEpMJjIBxSYqLi4WH3FzqVm+fUefdwZcYmbOm8M9oTf0KCI8sdroHwAnnd61DyTEJudIyhE6c+aM
wYoKbhQCVKAJBppR4DhiO3fupJLt97gE5EBOqSP5VU2uIXHUsrB4pZTDveESUjtGvX3XR0REhNxsQL6U FKyo4EYhQAWaYKAZBY4jtnPnTirZfo9LQA7klDqSX9XkGhJHLQuLV0o53BsuIbVj1Nt3fURERMjNBuRL
C1ks5TrJKwPNO3rlvRaIAA5yNwbOHPSGHtHrvn373CfAwYMH+WaTI6eppdwixSx6Uez6cM3iW7AwYBGD uZDFUq6TvDLQvKNX3muBCOAgd2PgzEFv6BG97tu3z30CHDx4kG82OXKaWsotUsyiF8WuD9csvgULAxYx
VQKkruzTTPS1mxsCSD6uIXX1mjLXY3pcLjMWAb0eOHDAfQIkJCRw4hJ53EkxQbk8+wFDFPHL5Rh8JcDR WCVA6so+zURfu7khgOTjGlJXrylzPabH5TJjEdDrgQMH3CdAQkICJy6Rx50UE5TLsx8wRBG/XI7BVwIc
FX3o8DJfh6e4Ixxe7msnQLlNfqnnDLxOiRAXF+c+AfDbPe62ePaigAGdKEjDR6PW4zYCLO9NCcE+LERv XdGHDi/zdXiKO8Lh5b52ApTb5Jd6zsDrlAhxcXHuEwC/3eNui2cvChjQiYI0fDRqPW4jwPLelBDsw0L0
SmGI5ZiGPhKDPQqwnxDCa9lXAihiWg3HEOEZ6LOM+8SXprfv+khOThbyJXIWcEEIoSBzLgrLZ0gZAxZx phSGWI5p6CMx2KMA+wkhvJZ9JYAiptVwDBGegT7LuE98aXr7ro/k5GQhXyJnAReEEAoy56KwfIaUMWAR
JQCIHlrgTUf4LIB/RCcvdpnyffW4r6xF3DgDdFJCTuqwL7DO0QvmpSWlMk9MTHSvACiOx5WmsDOob0Dz VwKA6KEF3nSEzwL4R3TyYpcp31eP+8paxI0zQCcl5KQO+wLrHL1gXlpSKvPExET3CoDieFxpCjuD+gY0
lQA4/aMDvcRqYMIMNYcwtsewFjElgMqpCeEcOK56dLsAePThF9uyMrPAzJsg7AUAM2I8xxqJ4zhDCZC8 XwmA0z860EusBibMUHMIY3sMaxFTAqicmhDOgeOqR7cLgEcffrEtKzMLzLwJwl4AMCPGc6yROI4zlADJ
xJf28Ktu8lImqAM+4uKzTV7SSzuOtTO1tYYAkpshtTVrhlX1YeWY1iOOu10AbGLwyww2KxrRRuAbT+OY S3xpD7/qJi9lgjrgIy4+2+QlvbTjWDtTW2sIILkZUluzZlhVH1aOaT3iuNsFwCYGv8xgs6IRbQS+8TSO
EiAppBftDOgkNomJ2sNHszimQ9ZyTAmg5bfP7SwmPZpLr4cApZTH+27cYVEYc5BWc4lJQxzjRhBXAuCm KQGSQnrRzoBOYpOYqD18NItjOmQtx5QAWn773M5i0qO59HoIUEp5vO/GHRaFMQdpNZeYNMQxbgRxJQBu
tmNKB0rkG2FicC9K5HmCWAXErdgxpb3ElACoZV8PVusBcyPGdfGqjLj7BeACZ86c5huhtShuOLAS4z0C ajv8O1Ai3wgTg3tRIs8TxCogbsUO//YSUwKgln09WK0HzI0Y18WrMuLuF4ALnDlzmm+E1qK44cBKjPcI
HpWIlUi8xBAgfrEP/XXC7ZSwuKf48cGwytfBvnoMamttBEANPaeqYe0BMVhtLps19t0uADZBWVnZVgF4 eFQiViLxEkOA+MU+9NeJt1PC4p7ixwfDKl8H++oxqK21EQA19JyqhrUHxGC1uWzW2He7ANgEZWVlWwXg
Dh9PBtnf2wENWwWIW9ST3hh3q9i4RT1029jvSVsHtxGotUoAqYOcqCUCqBoacVUPflZ2lvjXRYDMzEz5 OXw8GWR/bwc0bBUgblFPemP8rWLjFvXQbWO/J20d3Eag1ioBpA5yopYIoGpoxFU9+FnZWeJfFwEyMzPl
5UcjWUKmEn6JMSnSmMNqLzbwlQAxC3rQq2Nupli2MQsZuo218VUca2Qtzw0B9PwCox7qaLUU8EKUeSpT lx+NZAmZSvglxqRIYw6rvdjAVwLELOhBr469mWLZxixk6DbWxldxrJG1PDcE0PMLjHqoo9VSwAtR5qlM
1rhdABDKyMiQIiIC3uAETJatvNHpVkEJcGh+D7muXxl1U7OA+wU+owTQ8umCM8TnmNRDjC36ysg4JT0i WeN2AUAoIyNDiogIeIMTMFm28kanWwUlwKH5PeS6fmX0Tc0C7hf4jBJAy6cLzhCfY1IPMbboKyPjlPSI
5n4BuEh6ejqfYtnyE1g222w+3bL5shDAF8DXoAR4P8ibDjLeD+ou9qButbgjH7a7IUDjvFlZWXKqi98o mPsF4CLp6el8imXLT2DZbLP5dMvmy0IAXwBfgxLg/SBvOsh4P6i72IO61eKOfNjuhgCN82ZlZcmpLn6j
jh5NpuLrIAC/u588efKaoAQ4MK87o5tmA+HD8lz5Ki5za1wJ4Cj3lYDfGNwuAJI6KnYlKAH2M9moOV70 OHo0mYqvgwD87n7y5MlrghLgwLzujG6aDYQPy3Plq7jMrXElgKPcVwJ+Y3C7AEjqqNiVoATYz2Sj5njR
wcMDmoWoOZ4UPbfbz0yAoiJOzGCLf3OIlXmxMbdHsSEAyIfzThD2Soie041hXasEKNJraJah6rIVnwlr Bw8PaBai5nhS9NxuPzMBioo4MYMt/s0hVubFxtwexYYAIB/OO0HYKyF6TjeGda0SoEivoVmGqstWfCas
PVhjbhEAPyV99u6iFgH/AT481lNIRM72pJ3TOrH10jDLk+FFEQzMI/g41qhju/S1+CxyIJejGs0BOOh0 9WCNuUUA/JT02buLWgT8B/jwOE8hETnbk3ZO68TWS8MsT4YXRTAwj+DjWKOO7dLX4rPIgVyOajQH4KDT
rn3gw1UPjWwRzm+fbgiwb1ZX2jG5A1tP2jeTAav7EXzMsHocTwHMlQDI5ahGc+C6AA9yohbAVoC9M7rK ufaBD1c9NKpFOL99uiHAvlldaceUDmw9ad9MBqzuR/Axw+pxPAUwVwIgl6MazYHrAjzIiVoAWwH2zugq
7g4W2AM7E76nZsW34m2s5ZidAJs5bwtgclWAyk0jWgRbAfZM7yK7O9hwG+yZzmIYPizmXWUtYrYCVG7k uztYYA/sTPiemhXfirexlmN2AmzmvC2AyVUBKjeNbBFsBdgzvYvs7mDDbbBnOoth+LCYd5W1iNkKULmR
vC2AywJUbBjeItgKEP5AF3p19M0UxhY+YOuDLOZhD3jYrPWwE8BRjebAdQHWc6IWwFaAsAAPemv8bfTS 87YALgtQsWFEi2ArQPgDXejVMTdTGFv4gK0PspiHPeBhs9bDTgBHNZoD1wVYz4laAFsBwgI86K0Jt9FL
8LbNAtaG8mfsBFjHeVsAlwWwrB3WItgKEDrNQwOT2j2tMwNzZRHT53KcEdC5iQCOajQHLRVgImMKirsK I9o2C1gbyp+xE2Ad520BXBbAsnZ4i2ArQOg0Dw1Mave0zgzMlUVMn8txRkDnJgI4qtEctFSASQx/FHcV
kBDSU20gpDvz446tzG3A811irQK4CnDROeHPlN0ZVx1YGOAutG/729ktgaNcLuDH+Sfpr6PVjTZt/gcz ICGkp9pASHfmxx1bmduA57vEWgVwFeCic8KfKbszrjqwMMBdaN/2t7NbAke5XMCP80/SX0erG23a/A//
jeXAu4L+4QAAAABJRU5ErkJggg== AuW0nr/YzwAAAABJRU5ErkJggg==
</value> </value>
</data> </data>
<data name="ToolStripButton6.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64"> <data name="ToolStripButton6.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value> <value>
iVBORw0KGgoAAAANSUhEUgAAAEAAAABACAYAAACqaXHeAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8 iVBORw0KGgoAAAANSUhEUgAAAEAAAABACAYAAACqaXHeAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAABKmSURBVHhe7VtnjJ3ZWV5CIBBaRA2gCIWghLYIQhTBH4RC YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAABKaSURBVHhe7VtnjJ3ZWTYhEAgtogZQhEJQQlsEIYrgD0Kh
l0CkIDZEgBAoP6KIRaII7ZLs9XjKnXrv/W6budN77713z4w9HnvWvdf1ru1t9sbrdZs5PM97zvnud2eu SyBSEBsiQAiUH1HEIlGEdkn226l32u1leu+99148M/Z47Fn3Xte7trfZG6/XbebwPO8557vfHV+P2xjt
x22Mdlcc6dFp73nbae/57swz/5/+D5JTXt4cqqy4tgkV5ddyS0uvexGpru41wz48iYYppLPX3toSTL6K rjjSo9Pe87bT3vPdmR3/n/4PUriioiVUVXn1HlRWXM0rK7vmRbSmps8M+/AkGqaQzlx9a0swOZUVN82w
8ltm2Icn+Xy+O7PLy2puLyD5HhezaCOkD3Vfxo57oP+oGfrBT75E4uNFpYm7c8swVkCDjQNsGx1h+nxV D09yHOf23MqKmt8DSL7bxRzaCOlDHbR3gY+aoR/85JSWftxfVnpnfgXGCmiwcYBtoyNMn1Ndddvx+3/F
lXd8RUW/Yoa/PxNW6veZ4gPTzmDwc7GqqrvaQA9cozVmTF7Z0rxWUFLyVTP8gelRdNmWlBWJfD67OHQl DH9/JqzU7zPFB6bMYPBz8erqO9pAD1yjNWZNXtXasl5YUvJVM/yB6VF02ZaUHY1+Pqc4dDkrEviSadoy
Mxz4kmnaMmWEQn9S1d62NrO8G0buhpEEDN6jocvJvsaebhWrqQmY4VumzHD40/547FxJU8O3TNPTTXmR ZYRCf1Ld0b4+u7ILRu6CkQQM3q2hy8m+pt4eFa+tDZjhW6asSOTTvkT8bElz47dM09NN+dHoF5yMl+7y
yBd8mTvv8bAKV1Wu5cfjxQ/ar5mh0L80D/RrI11YB3jrutw1MqyiNdXzZvh9U04k9JcFweB71MWXl7te sIpUV60XJBLFD9qvWaHQv7QMDmgjXVgHeOu63D06omK1NQtm+H1TbjT0l4XB4HvUxfHlbpS3Nj1nup5O
1tL4vOl6OkmMz8q8d/jSRTWze0m9+t67qnVoUBVGo+czowW/ZMjcxKWZGQz+QX5x/Ej3+Jiado0llnS+ EuMzM+4eunhBze5aVq++965qGx5SRbHYuaxY4S8ZMjdxaWYFg39QUJw43DMxrmZcY4llne9KtrGfGJmd
O9nGfmJ4Zkbx0MyJRfy+QOCXDTs3kW9ePF7ky8m+d/zqZbV4YFWdeP2KOKG8penfDNn2Jq/x00b5aTjh 5UF4Ozce9TmBwC8bdm4i3/xEwu9kZ909duWSWtq/po6/flmcUNHa/G+GbHuT1/gZo/wMnHD51ntq6fAh
yu331OKRw3TC7exI6Ouk9UXzP1lYUhIowuxkhoLr8wdeVvP794Fej9GgsaZscw/2HDuixtDOVRatqDiP OuFWTjT0ddI6sYJPFpWUBPyYnYyAf2Nh/8tqYd9e0OsxGjTWlG3uwe6jh9U42rnKYpWV57DUZbs5weAn
pS7bzRcMfiKvOL43Lx5bv3TzBmg1n/l9e9Xxy69aJ/w7abct5YbDX6TxR159JUXJqaVFtefwIXXp3e+p 8osTe3yx6MbFG9dBq/ks7N2jjl161Trh30m7bSkvEvkijT/86ispSk4vL6ndhw6qi+9+T5166w2VaKhf
02+9oeL1dWsFxcWHfKUZdwZ3zakzb7+prty5JU7iFTe1exHAuBQeBuhL8l5U+44f12OBvadOqKyws+4v LywuPuiUObeHds6r02+/qS7fvilO4hU3vWsJwLgUHgboS/JeUnuPHdNjgT0nj6vMUHDDV1z8tq848fbI
Ln7bXxx/e3hhXtplvECPnV1ZVsdfc53wn0b9J0u58fjvWeNFGIwWSFnXeYeffv2quszVcPSw4sxQwbNw 4oK0y3iBHju3uqKOveY64T+N+k+W8hKJ37PGizAYLZCyrvMOP/X6FXWJq+HIIcWZoYJn4JS10yfV/Ooe
yuqZU2puZa9nDHPLY1FNMndh+5Gjb3ZlRa2ePil8yO/oa5fUwYvnpezyEV6kT+qSXAktT+aEpPGXtMCl zxjmlseSmmLuwvYjR9/c6qpaO3VC+JDfkdcuqgMXzknZ5SO8SJ/UJbkSWp/MCUnjL2qBy4uSU2mteLLO
BcmptFY8WWf55TOn1eVbN9Up7MclLHuXdhH9hNB5x6fmGl6eyM048iNfOtnblwK2YTyv12N0Qr444b+N 8sunT6lLN2+ok9iPy1j2Lu0S+gmh845PzTW8PJGbceRHvnSyty8FbMN4Xq9H6YQ8ccJ/G3MeLVnj6fVJ
OY+WrPH0+gSYTywuCHMtzJaZa6FSBniIkZ50E2ifEEWT/Ula257Kb7Oc1PE8e3TZ6ARQjtBTnmnj1Sor MJ9cWhTmWpgtM9dCpQzwECM96SbRPimKJvuTtLY9ld+9clLH8+zRZaMTQDlCT3mmjVerrIQ830ZZ82Oc
IT9vvbTpMc6EnEjks8GKsrXB6Sk1saAZC3Nb9rRNLO7ylIGUPl0fX9il2nFjlNTXqUBZQvmjEbWjqFB9 CbnR6GeDleXrQzPTanJRMxbmtuxpm1za6SkDKX26PrG4U3XgxihpqFeB8lKFQ0y95C9S3y3IV9nhkCos
Nz9PZTkhVVASV+HKClXT3qYGpiYND/DFuE38ADGcSNNnMYmt4SvIW4/WVf+tMevRUn4i/jWGsGPz80aR SahIVaWq7WhXg9NThgf4Ytw9/AAxnEjTZzGFreHk+zZi9TV/a8x6tFRQmvgaQ9jxhQWjyE4xxObesu2n
XWKIzb1l20+lk+0Lqm9yQkWrq5SvsEC96M9R/5PrNwYXq0hVpYqhL1BWqnJjUXHICznZ6kXQ5ETC4oyx 0sn2RdU/NaliNdXKKSpUL/hy1f/k+YzBxSpaXaXi6AuUl6m8eEwc8nxujnoBNLnRiDhjfOeCmqBBwm8z
XfNqnAYJv438k3DlG7AtKxhYx3VZbsx5vJQXjxYV19WujePkHSPjXZp5sgwF3TrKbEM+NDOlSupq1UuY /yRc+QZsy/QXbeC6rDDmPF7KT8T8xfV16xM4ecfJeKdmnixDQbeOMtuQD89Oq5L6OvUiZvjFwgKZXUZ4
4ZcK8mV2GeEN4Y4XpUE3JrSaXsYD3aOjqry5UfnhgBfgsJ2BItXQ1Sm0rkw7hrmM0zpYnmOotwz0KVzd w7jjRWnQjQutppfxQM/YmKpoaVI+OOB5OCwz4FeN3V1C68q0Y5jLOK2D5TmOeutgv8LVfaa0tPQHjCmP
ZxOJxA8YUx4vMejIj0Z313V2gPkcQMEaWonNaBscULj/ZdZjNdWypFNosKJScgPLz+ZNvT0qO+zIygmU lxh0FMRiu+q7OsF8HqBgDa3EvWgfGlRZoaDMery2RpZ0Cg1WVEpuYPnZvLmvV+VEwrJyAmWlCJBmDK3V
JhAgTRtaq4dXn2S5H/J8sejNdMHZYyWf4/w4lugbHdjDoyJoTo1CeQ3UCQpHvaajXWVg1riku0dHjGKg w6tPsjwAeU48diNdcPZYyQmHfxxL9I1O7OExETSvxqC8BuoEhaNe29mhEPzIku4ZGzWKgZ65GaPH27op
Z27G6PG2bspp2kg7Mj+rqlqa1XfyclU2tk7P2KihBx1hxloZpMeWupvtOH9j1N+elB0u/FUcXHc5CxQ6 p2kj7ejCnKpubVHfyc9TOdg6veNjhh50hBlrZZAeW+pOTjj8N0b97Uk5kaJfxcF1h7NAoaMGWtE5yava
YqAVnZW8srVF7QwGlFNepoamNd3o3KymnfPS6zEjpo91Ki5tBsIT/QKUW/r75YwgusdGZMwoeQpIp+u1 WlVmMKDCFeVqeEbTjc3Padp5L70eM2r6WKfi0mYgPNEvQLl1YEDOCKJnfFTGjJGngHS6XtfZqXLjsTGj
HR0qJxYdNWpvX+KLzpeddU+UTgMu151Y9lzyw7MzaWmeFFxRO7C6uBK4rdLR9E6Mq9xo5LqvyvdDRvXt 9vYlvuicrMy7onQacLkiWpMlPzI3m5bmScEV9RJWF1cCt1U6mr7JCZUXi15zqp0fMqpvTwpUVV7sGh2G
SYHKikudI0MQMiMGDs9CIA1F3jE8LHuVp/kgZl73A6AljThE8llTprLsR52KC63tM7TGID2GdLqtFYfb kFkxcGQOAmko8s6REdmrPM2HMPO6HwAtacQhks+ZMpVlP+pUXGhtn6E1BukxpNNtbTjcvotDtai0RM4E
d3GoFiZK5Exwx7h6zajSxsa1WH3tC0b1J0/+uPO7DCimEWYOGSHMh4wCPKC45/vgfWlPoUnmVsHU/mnd d4yr16wqa2pajzfUPW9Uf/LkS4R/lwHFDMLMYSOE+bBRgAcU93w/vC/tKTTJ3CqY2j+j+yzdHOq2L6Ws
Z+lmUbd9KWVd57jqtla5WXjeuPxJS14o902Oq1BF+ZtG/SdPgbKyuQEKEWWn1aDJiYbuLjnxa0UZqwTz 6xxX094mNwvPG5c/ackL5f6pCRWqrHjTqP/kKVBePj9IIaLsjBoyOdHY0y0nfp0oY5VgnqTXmE0ZZ5Gu
JL3GTMo4i3RtG9tZduvG0ILiuMQKPPG9dDZnFIuH2a8bEx4/8QbANXib9yujQgHueC71gelJhbe+BDUs bXM7y27dGFpYnJBYgSe+l87mjGLxMPt1Y8LjJ94AuAZv8X5lVCjAHc+lPjgzpfDWl6CGZVHU0rigQqlt
i6KWxgUVSm3rR3AkV5wTXM8oKlyvwuHZPjSQpHHpzVhBKu/mvl6VgQO3AjeE7rPQ/bW4tosSiWafz/cR AwiOeGZkBf0bTmHBRjUOz47hwSSNS2/GClJ5t/T3qQwcuJW4IXSfhe6vw7XtLy1tcRznI8aU+yensPBn
Y8r9k6+g4Gczg8G/ywyFXsyLxVryY7FVvLev+vGep/GFieJ1HjoDU1NiqABlGsHZr0egMgChup+5oTF0 s4LBv8sKhV7Ij8dbC+LxtfxE/IoP73kaX1Ac3+ChMzg9LYYKUBYjMPsNCFQGIVT3Mzc0hm4IdYJ1KsaP
g6gTrFMxfuxAkLKYGQq8mOkE/iHLcQIMWhB1rjGG0GOtLC8/8rIypnDmlGECYjDY9Emuyz3jY7IKcqG/ HQhSlrJCgReywoF/yA6HAwxaEHWuM4bQY60sLz/ysjKmceaUYwLiMNj0Sa7LvRPjsgryoL8Tj17PS4TP
Lxa5kRt3LuTH43OoJzIDgW9nBIN/Zsx/5plgRcU/BsvL1pr6+1Qn7tkBeHQCj4751f1q6dBBNblnSZaa FyQS86iXZgUC384IBv/MmL9jR7Cy8h+DFeXrzQP9qgv37CA8OolHx8LaPrV88ICa2r0sS80LKlXW1Kj3
F1SqtLFB7/3xcbRNbOonvGVcYev+WPAcP5Ia0SkpJxx+zheN3GTEuBUfW6/CWcAJaEN8IvSTut1iDCE0 /sQE2ibv6Se8Zc62Lx48y4+kRnRKyo1EnnVi0RuMGLfiY+vVOAs4Ae2IT4R+SrdbjCOE5rk1za9MuDZ7
z60pfmXCtdmDldeN86ERq4eOQZCnP+VVtLU8j2W8vnLihFo8fFDN7d+nsbpP7TqwKkusj8zBQAtCDuCg sfJ6cD40YfXQMQjy9Ke8yvbW5zDjG6vHj6ulQwfU/L69Gmt71c79a7LE+skcDLQg5AAOGnnc0HjG/Lbd
kccNjWfMb9vdsrRreh5YuY5z4UHfD/k5nCukc3hI9dGp5Ec+BlqG5tk5om8fbgOhY58dAxquhMnl3XDC LUu7pueBlRcOn3/Q90N+DucK6RoZVv10KvmRj4GWoXl2jerbh9tA6Nhnx4CGK2FqZRecsFtN43VIm1ZP
HjWF1yFtWjl5XB26cF75dvjuXVhf/2ERihn5KuN9MuAJKvkEMS73qi5PqF63f1x14U52EN/X4xC040hL HFMHz5+T3x7Ob2z8sAjFjHyV8T4Z8ASVfJKYkHtVlydVn9s/obpxJ4cR3zfgELTjSEsad4zwmVC9k1iO
GneM8BlXPRNYjjDqfjO/Mfmj4f/CA0r06RU+lh9zC113MAnx2hrI9bRbWkCPt3X2aTpubyMu6QAxgMCS MOp+M785+WKR/8IDSvTpEz6WH3MLXQ9jEhJ1tZDrabe0gB5v6+zTdNzeRlzSAWIAgSXdhz3k1lPadZlP
7sUecusp7brMp20cj52Wgf7UfhirYdoAOikH7wkj7oGJDxg6jA+jVN6bkWioVzE6wG2DbC+tq1NqW1oH 2wQeO62DA6n9MFbDtAF0Ui7eE0bcAxMfMHQYH0apvO9FaWODitMBbhtke2ldnVLb0jqABwehjddlF5vq
8OAgtPG67GJDvRWHVVlzE4KgIdQxy54+QniY9rKmRoVD9jtG3EMlbheGv+Rj+Xn5W1S3t8pEpOtLB80n bTisyluaEQQNo45Z9vQRwsO0lzc34cQPfseIe6jE7cLwl3wsPy9/i5qONpmIdH3poPmkcUCivnadD40e
jQPidTVrfGh0Az3jybxnbEzK/KzdLXWWR8UB1djXnSMjwribdGRueFiwvqOwYB0y/tmIe6jkj8dWeBha oHcimfeOj0uZn7V7pM7ymDigBvu6a3RUGPeQjswNDwvWnYL8Dcj4ZyPuoZIvEV/lYWh5uDxTZIzL6irF
Hi7PFBljsroSOIyFzvYxF6TSM9f9o2kcUFuz1oVOgjF3F5afWxeMSN6FnGgfGlINuAZ5EEk/6Emjx4AW YSx0to+5IJWeue4fS+OAutr1bnQSjLm7sfzcumBU8m7kRMfwsGrENciDSPpBTxo9BrTgodvGcEg1K1x1
PHTbKA6pJoWrrtSIe6jkC4WutcDJ6fhpOVpH6lDV3raBDjB11wajn+3PSesAdKRDp0FKHYbzRxHmXtp0 ZUbcQyUnFLraCien46flaB2pQ3VH+yY6wNRdG4x+tj83rQPQkQ5dBil1GM4fRZh7adOB50R2MPiaEffA
4DmRFQy+ZsQ9MGUWFn5KzgAq7+GzSQegCVdaA1ZKks6rz/11S3EA44BYbfWaNWxLWBoywvJKOwaCuTUE lFVU9Ck5A6i8h889OgDNuNIasVKSdF597q9bigMYB8TratatYVvC0pARllfaMRDMrSFAeQhhMB5K6znR
KA8iDMZDaS074vyrEbllyo1E9lZzVu+rT7Kdq4RIyrN99xtLpHNATfUaDzQBXn2EJmZ5WLfh1adpdL0f 8L8akVumvGh0Tw1n9b76JNu5SoikPNt3v7FEOgfU1qzzQBPg1UdoYpZHdBtefZpG1wcQHzC4SOmTciot
8QGDi5Q+KafSMgghD380cjurqOiLRuymxK9PCIZ8eFytjSD01uPJE3oIPy3XymGs0AGDBehzacwYgakL gxDy8MWit7L9/i8asfckfn1CMOTgcbU+itBbjydP6CH8tFwrh7FCJwwWoM+lMWMEpi60At2W4oCCkpJv
rUC3pTggv6TkG1xyuFPv8sDihw0+ctoGBvQgLHXm7RbY/x3Dg2oQD6SRBa2o7htM0gC6HdsEq2B6Za9q cMnhTr3DA4sfNvjIaR8c1IOw1Jl3WGD/d44MqSE8kEYXtaK6byhJA+h2bBOsgpnVPaoNpzoDEIajDL+N
xakOOQxPEwy/jXgxfGcg8BvZMecQVwqjUF5XHZDj5Sc8PW2c7V4EZpxRkSV6mX5DRz2b+3slBC9vapIf eDE8MxD4jZx4+CBXCqNQXledkOPlJzw9bZztPgRmnFGRJXqZfkNHPVsG+iQEr2hulh9MnHLnthMJXzfi
THxlGXd8YeeGEa8VyAoEfh5X1R8C38qNRRrzYtGj/vz873HW6BSGm7z7k2CkNqlm9q3ISZvST0d46wBp tQLZgcDP46r6Q+BbefFoU348dsRXUPA9zhqdwnCTd38SjNSm1OzeVTlpU/rpCG8dIO3igf1qDA4rrq/X
Fw4eUKNwWHFdnf7xE/yzYtGLWU7odgFCU4aopBnEu59j2miE5OmAFYhIbwiri7qwzSuXbwpGe3gx3ka4 P36Cf3Y8diE7HLpViNCUISpphvDu55h2GiF5OmAFItIbxuqiLmzzyuWbgs7Gi/EWwvUrefH4Ym40XJQZ
fjU3FlvIiTiFO0NFX8d59NsFBQU/YszfOnGmqGzrYD+YehXQq2PXgZfxbtgjAi14RZKmFTTSZhSio/hD 8n8d59FvFxYW/ogxf+vEmaKybUMDYOpVQK+Onftfxrthtwi04BVJmjbQSJtRiI7iD6UrR4+o85cuwe86
6fKxo+rC5cvwu07v3LghbYuHDsmMkrceZ6HHa/m6j1tgfPeSGpqbk/akLE3HMyQHDy6wf/I/nsCdvJ8P vXP9urQtHTwoM0reepyFHq/l6z5ugYldy2p4fl7ak7I0Hc+QXDy4wP7J/3gCd/I+PjzacJqLcQBzYgwP
j1ac5mIcwJwYxYNjz9EjCJTG3TY6qxXbx5a5lZL1Adk2nOnlY8fU3uPHYPhBMUacJrSUo2Xpum4TuYYP jt1HDiNQmnDb6Kw2bB9b5lZK1gdl23CmV44eVXuOHYXhB8QYcZrQUo6Wpeu6TeQaPlxJc4jtuQ0sXy8t
V9IsYntuA8vXS8ufzjnbxoQnS7gmv4yn5TqvM35v1zmNhFJQevHwITX38qrUvf33g6bzQo+RdpwT3r6N fzrnbBsTnizhmvwynpYbvM74vV3nNBJKQemlQwfV/MtrUvf23w+azgs9RtpxTnj7NtOyznudMun8dP2M
tKzzXqdMOj9dP2MDviqf+DcBm8gop7Dw3aa+HigIZQ2amUPgEPbsyskT8oR2+2GU9MMg5vwLEWmzMHQs DfiqfOLfBGwio9yioneb+3uhIJQ1aGEOgcPYs6snjssT2u2HUdIPg5jzL0SkzcLQsWzpU8aRns7w0BHc
W/qUcaSnMzx0BPf3ArYRVw33vDsG9FpOn3yYxVWab9TfnpQdDuXyBG3q0woKUGYgwpynPH8d5qFkaVxa 34vYRlw13PPuGNBrOf3yYRZXaYFRf3tSTiSUxxO0uV8rKECZgQhznvL8dZiHkqVxaUmDk1jnpo39aNPw
0uAk1rlpYz/aNLx0JudYO17Avn41u7pfzotuvE28/KwejZh9Hnz8Qwqj+vYk3hA4Te9yFVCYoNfkRpEl 0pmcY+14AfsG1NzaPjkvevA28fKzejRh9nnw8Q8pjOrbk3hD4DS9w1VAYYI+kxtFlrEs9589o0Z3LiRp
LMsD586qkV3zSZpHBvkbGR7+XBFzMH4fVhqvX9u+EeV4oOHwO2bU3p6U7Tg/A69eZ8zdCKV4XTHnJzF6 Hhnkb2R4+HNFzMP4vVhpvH5t+2ZU4IGGw++oUXt7Uk44/DPw6jXG3E1QitcVc34So8cpmDmVXD50SB26
nIKZU8mlw4fV4YsX5IDiCmC7AEbpcaZuQB52fGp7kj8DmmUctKtYYcPz85rGHeMZaxzHP7TMjjrb81dj cF4OKK4AtgtglB5n6gbkYcentif5M6BZwUG7hhU2srCgadwxnrHGcbz+cmLh7fmrMTD7KD1a0dqihfUa
uAI/So+WtzRrYT1GmBeIxW2Zs8fY4Oirl9T+UyclWmzs1f08nCzIR3Lb59aTNNwePFe4qlZPn0LUOa7l YV4gFrdlzh5jgyOvXlT7Tp6QaLGpT/fzcLIgH8ltn1tP0nB78Fzhqlo7dRJR54SW76G1dW+ZL0R+8sLh
e2ht3VvmC5GfvHB4/5ox4/GTPxyu9fn964yqtKLdqYABm9oABjNU/Pjl1+SAlLMB2ySFLs3YesjgjNPw /WvGjMdPvkikzsnJ2WBUpRXtSQUMuKcNYDBDxY9dek0OSDkbsE1S6NKMbYAMzjgNP3DurDr8ygW1iAOP
g+fPqSOvXFQLOPB426TQGQgPjJGyaaOcejgCQdzVoqIi/dnrcVJWOPxPjKZaEWlxydV3QwDAMJleFohQ t00KnYHwwBgpmzbKaYAjEMRd8fv9+rPX46TsSOSfuJzaEGlxyTX0QADAMJleFohQlpNKabpu1YjVwPv9
lpNKabou1YDVwPv9yKVX1Jk331Cngf2YSV6Z4zCQt0f/9LTc6RN7l6WdTjv5+lVx3DJiBD64Glz+4An+ 8MVX1Ok331CngH2YSV6ZEzCQt8fAzIzc6ZN7VqSdTjvx+hVx3ApiBD64Gl3+4An+UpeyzrUuut/WGRfw
UpeyzrUuut/WGRfwO0FuLNxtzHm0lB0K/RbDYHqTqANTi/ruThFS16WFJdsBtOl6p9tOpRm2ciZPXLms O0FePNJjzHm0lBMK/RbDYHqTqAdTi4aeLhFS362FJdsBtOl6l9tOpRm2ciaPX76kLrxzTV29eVOHgUhX
Lr5zXV27dUuHgUjXbr2nzr/9ljoLB3GpTyzvkSvO8tS54delZVPOJtkp6JSVJOdBOPT3xqyHT9nx+G/6 b76nzr39ljoDB3GpT67slivO8tS54detZVPOPbJT0CUrSc6DSOjvjVkPn3ISid/04e7nVx96tw5MabAY
cffzqw+9WwumNFgMgxLaQJa1Um67Qa2HrtY7DqBD2qEc3wcDs7MyyzxAtYGGn0GtW07K8bYJb7euIbqC BiW0gSxrpdx2gzoPXZ13HECHdEA5vg8G5+ZklnmAagMNP4M6t5yU420T3m5dQ3QFHcNhhvEFZcVfMWY9
juEww/j80uKvGLMeLRWVlDzri4Rv8NtfXacRjFcVwXIKTP9G1HWB1tKDRuoCS5Par/sgQ2BpdLtroLfN WvKXlDzjRCPX+e2vvssIxquKYDkFpn8z6rtBa+lBI3WBpUnt132QIbA0ut010Ntmxkju4cPQnSvYFw//
jJHcw4ehO1ewP+b8lTHn8RJPUr7a+GFTBAA1Hmihpr2jQ77Rs+6lcek2lLWytu4pe9prXMNQBoS/22fo lTHn8RJPUr7a+GFTBAC1Hmihpr2zU77Rs+6lcek2lbWytu4pe9prXcNQBoS/22foDY2l5XNevj1Egn9h
DY2l5XNevj2Eg39hzHiyxD+OoBNKGxshpF0EC2CwRrviNcnllh3OvV6YKFkrhcM0DehJg7JVOgnySvJz zHiyxD+OoBPKmpogpEMEC2CwRofiNcnllhPJu1ZUWrJeBodpGtCTBmWrdBLkleTn9psxUme5o0MVN+AJ
+80YqbPc3q6K6/GEjkVvZUOPcFWlO8Yda2RUtGjjMx3nz43625OwEj6H7fAOfw6r9hhOMPamgzIDgS/B HY/dzIEekeoqd4w71siobNXGZ4XDf27U356ElfA5bId3+HNYjcdwgrE3HZQVCHwJTvhIdij0FVyfr/AA
CR/JCoW+guvzFZTvUfHqjjb5gmzhdZzmpXPdp8EyVx1/fRLHRkJjO53C3+G1Bt5DvJ0qscyT/DgJ1vjA ouI1ne3yBdnC6zjNS+e6T4Nlrjr++iSOjYbGM8NFv8NrDbyHybsKyzzJj5NgjQ/8qVF7exMeRJ+lE0qb
nxq1tzfhQfRZOiHRWI8Dpl1RAc52juOsMFo0ZG7i568sx+nj56eSeoyhYRinc49TbJugTfjSef5g8Bz4 GnDAdCgqwNnODYdXGS0aMjfx81d2ONzPz08lDRhDwzBO5x6n2DZBu/Clgb5g8Cz4fpu/UBuWbsLJ/h80
fpu/UBuWbsLJ/h80lucTx8sKjEZuYRL+2JA8nWSdEKmuEm9DwZdwk2350SErGHyey5ahNEHjdZnGm7Jx lucTx8sKjEVvYhL+2JA8nWSdEK2pFm9DwRdxk2350SE7GHyOy5ahNEHjdZnGm7JxCttKGxvlY4YZft+U
CtsSDQ3yMcMMv2/KCAZ/3+qC/FZGKPRHpuvpJv6AiTjhQFYg8HnTtGXKcgJ/zW991gFVbSYXtG6ot6lo EQz+vtUF+c2MUOiPTNfTTfwBE3HC/uxA4POmacuUHQ78Nb/1WQdUt5tc0Lap3q5iNTUKe7jIDN8yQY+f
dbXCHi40w7dM0OPnckKhZW4/0/T+S9y73Mdc2ryeKmkwUAljdRvLth3LPytznX+vYIZ/8BOW809xu9DY yw2FVrj9TNP7L3Hvch9zafN6qqLBQBWM1W0s23Ys/8yMDf69ghn+wU9Yzj/F7UJjHwZ01sOurg9MyomE
hwGd9bCr6wOTssPO7cpWGEi0tWhjpWxyW0affNCIRn/UDH1fJR52/Jub7wf4ve1jAF9b/MT8YwC/wvwk b1W1wUCivVUbK2WT2zL65INGLPajZuj7KvGw49/cfD/A720fA/ja4ifmHwP4FeYngZ8GftELJxJ+hx8r
8NPAL3rhCzvv8GNFBYKUChgpuQGNtzmvMp8TuukZ+wvAJwH+jkC+5E85lEe5lE89qA/1on7b/m90XsP5 KhGkVMJIyQ1ovM15lTnh0A3P2F8APgnwdwTyJX/KoTzKpXzqQX2oF/Xb9n+j8xrOv/D4QYB/iOg1ngpS
Fx4/CPAPEb3GU0Eq/Cng08AXvMjIzz+JbXCXy3sjcrE9LKStqPCMZ+yzAP+w4jMA+ZI/5VCe1wnUh3pR 4U8Bnwa+4EVGQcEJbIM7XN6bkYftYSFt/qLTnrHPAPzDis8A5Ev+lEN5XidQH+pF/Z6KI8jM6wivMzgD
v6fiCDLzOsLrDM6AdcjHASr1E158+bnnPvONb37z2YcBaT1jaSTBLUG+5G8Nplyv0V7Dt9X4D3F65pn/ 1iEfB6jUT3jx5Wef/cw3vvnNZx4GpPWMpZEEtwT5kr81mHK9RnsN31bjP8Rpx47/BSi/7+UjGX0xAAAA
BSza8KJ3IAsCAAAAAElFTkSuQmCC AElFTkSuQmCC
</value> </value>
</data> </data>
<data name="ToolStripButton7.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64"> <data name="ToolStripButton7.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
@@ -742,6 +717,31 @@
mDEo5mNjuweFGvjWg2EBhCbpkW78htSHHwRyNdmgAFzPEee2iFkzayy2OLXzT4gr6UdUnlXrullsxxQ+ mDEo5mNjuweFGvjWg2EBhCbpkW78htSHHwRyNdmgAFzPEee2iFkzayy2OLXzT4gr6UdUnlXrullsxxQ+
kx0g8BTA3aZlButjSTyjODq/WcQcW/B/Je4OQhLvKQDnzN1mp0nnkvAhR8VuMzNrpm1mpjgkoVwB/v8D kx0g8BTA3aZlButjSTyjODq/WcQcW/B/Je4OQhLvKQDnzN1mp0nnkvAhR8VuMzNrpm1mpjgkoVwB/v8D
TgDQASA1MVpwzwAAAABJRU5ErkJggg== TgDQASA1MVpwzwAAAABJRU5ErkJggg==
</value>
</data>
<data name="bt_filesave.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
R0lGODlhEAAQAIQAAJXD9Iasxm6MqnSn2lZtjVaRyEpXbYu767TX/2KZztvr/4Gy5KrT/3ut32+gzlFh
e+r0/0RNX9/u/9Ln+8Xg//n8/4e36CkxQz9GVkSCvKjL35/N/Je91K7T5bDS4////yH/C05FVFNDQVBF
Mi4wAwEBAAAh+QQAAAAAACwAAAAAEAAQAAAIuQA/CBxIsKDACRwScggQwIGAhwIICBDYQcEEgwg+bNjw
QKCHCQgkQBgpQcKBCg0AEBCoAaRIkhIsVBigUiAHCgwkKNjJU8GAAx0/3NwIAMABCwsaDHCwIGgAChuK
HjiQdMDSAQYEPpWKtKqDBA6yfgiAwGhXpUsTJIgg0AGCo0nRfi1QgO0HAQyQNpCrtkAGDAIFbKi69GsC
un8FEohqdEFavxkyXAhMoPKDBwYMRIiAAcOFoAZDCwwIADs=
</value>
</data>
<data name="bt_데이터관리.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAAK/INwWK6QAAABl0RVh0U29m
dHdhcmUAQWRvYmUgSW1hZ2VSZWFkeXHJZTwAAAIVSURBVDhPjVLJihpRFK1VFvmAXiSfkFV+Irt8Rpb5
jGSXlfOMioIjiLgSxRERJ1QcUJxQcMSUitBJad/c8+gq2m4XeXCqXt2659zz7n0SEb1BLpf7GY/HFx6P
5wnAHrF7uW8CkUjkIRAI/OX9zULM7/d/4O1Nvng8V5xwtSuDYrEYdbtdul6vdLlcqN1uixj+IQe5qiMh
wOqP/NbWdDqlcDhMzWZTIBQKidjL9cyRpGg06mJQp9MRFYFSqUSJRIK8Xq8A9ojBjaIo1Gq1CByHw+GX
uJLS7/epVqtRvV4XFVH99VIdVatVymazlE6nyWazKRLbk0+nE63XaxqNRjQej4nPR4PBQHOEfT6fp16v
R8lkUqDRaJDVapWlYDAoBA6HA+33e5rNZsJupVLReoCqaCKImUxGAG4tFouMBgoBWZZpt9vRZrOhxWIh
quJohUJBEGEZzuAEAihgNptliWf753w+0/F4pOVyKciTyYSGw6EYJZJBVJFKpYRYuVwmg8HwKPl8viQC
8/lcHAMi6AUcQAD/0DQATlAZolyY9Hp9VuIxvePL8c3tdg+RtFqtaLvdimZCQG0aiOgN7gQTp4zvOp3u
vXYlXS7Xg9Pp/MGz/V0sFoUIxNBAjJhvHyyfmPiLiR9Vniagwm63f+L5+nhETyDizOwO5DCTP7/Ov/l4
Ce7wF5PJlDYajQUmf72XA9wN/j9I+gdcby0cbkUDWAAAAABJRU5ErkJggg==
</value> </value>
</data> </data>
<metadata name="$this.TrayHeight" type="System.Int32, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089"> <metadata name="$this.TrayHeight" type="System.Int32, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">

1841
ArinWarev1/MdiMain.vb
View File

File diff suppressed because it is too large Load Diff

778
ArinWarev1/Module/Pub.vb
View File

@@ -84,15 +84,772 @@
End If End If
End Sub End Sub
Public 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
''' <summary> ''' <summary>
''' 모든입력면의 창,문의 면적비를 계산하여 반환한다(frm_myoun의 Display_info 함수에서 가져옴) ''' 모든입력면의 창,문의 면적비를 계산하여 반환한다(frm_myoun의 Display_info 함수에서 가져옴)
''' </summary> ''' </summary>
''' <returns></returns> ''' <returns></returns>
''' <remarks></remarks> ''' <remarks></remarks>
Public Function calc_창및문면적비(ByRef 면적비 As Decimal, ByRef 열관류율 As Decimal, Optional 방위 As String = "") As Boolean Public Function calc_창및문면적비(ByRef 면적비 As Decimal, ByRef 열관류율 As Decimal, ByRef 창열관류율 As Decimal, ByRef 일사에너지투과율 As Decimal, Optional 방위 As String = "") As Boolean
면적비 = 0 면적비 = 0
열관류율 = 0 열관류율 = 0
창열관류율 = 0
일사에너지투과율 = 0
Dim filter As String = "code <> '0' and (건축부위방식='외벽' or 건축부위방식 ='외부창' or 건축부위방식='내벽' or 건축부위방식 ='내부창')" Dim filter As String = "code <> '0' and (건축부위방식='외벽' or 건축부위방식 ='외부창' or 건축부위방식='내벽' or 건축부위방식 ='내부창')"
If 방위 <> "" Then filter += " and 방위='" + 방위 + "'" If 방위 <> "" Then filter += " and 방위='" + 방위 + "'"
@@ -101,6 +858,9 @@
Dim WindowArea As Decimal = 0 Dim WindowArea As Decimal = 0
Dim WallArea As Decimal = 0 Dim WallArea As Decimal = 0
Dim 열관류율합 As Double = 0 Dim 열관류율합 As Double = 0
Dim 창열관류율합 As Double = 0
Dim 투과율합 As Decimal = 0
For Each Dr입력면 As DS.tbl_myounRow In 면데이터 For Each Dr입력면 As DS.tbl_myounRow In 면데이터
Dim 존수 As Integer = 1 Dim 존수 As Integer = 1
@@ -108,6 +868,8 @@
'If Dr입력면.열관류율2 = "0" Then Continue For '//열관류율이 연결되어 있어야한다 'If Dr입력면.열관류율2 = "0" Then Continue For '//열관류율이 연결되어 있어야한다
Dim Dryk() As DS.tbl_ykRow = Nothing Dim Dryk() As DS.tbl_ykRow = Nothing
If Dr입력면.열관류율2 <> "0" Then If Dr입력면.열관류율2 <> "0" Then
Dryk = DSET1.tbl_yk.Select("code='" & Dr입력면.열관류율2 & "'") Dryk = DSET1.tbl_yk.Select("code='" & Dr입력면.열관류율2 & "'")
@@ -134,8 +896,12 @@
열관류율합 += 열관 * 0.7 * TOSG(Dr입력면.건축부위면적) * 존수 열관류율합 += 열관 * 0.7 * TOSG(Dr입력면.건축부위면적) * 존수
Case "외부창" Case "외부창"
열관류율합 += 열관 * 1 * TOSG(Dr입력면.건축부위면적) * 존수 열관류율합 += 열관 * 1 * TOSG(Dr입력면.건축부위면적) * 존수
창열관류율합 += 열관 * 1 * TOSG(Dr입력면.건축부위면적) * 존수
투과율합 += Dr입력면.투과율 * TOSG(Dr입력면.건축부위면적) * 존수
Case "내부창" Case "내부창"
열관류율합 += 열관 * 0.8 * TOSG(Dr입력면.건축부위면적) * 존수 열관류율합 += 열관 * 0.8 * TOSG(Dr입력면.건축부위면적) * 존수
창열관류율합 += 열관 * 0.8 * TOSG(Dr입력면.건축부위면적) * 존수
투과율합 += Dr입력면.투과율 * TOSG(Dr입력면.건축부위면적) * 존수
End Select End Select
If Dryk Is Nothing Then If Dryk Is Nothing Then
@@ -188,6 +954,14 @@
열관류율 = 열관류율합 / (WallArea + WindowArea) 열관류율 = 열관류율합 / (WallArea + WindowArea)
End If End If
If WindowArea = 0 Then
창열관류율 = (0.0F)
일사에너지투과율 = (0.0F)
Else
창열관류율 = 창열관류율합 / (WindowArea)
일사에너지투과율 = 투과율합 / (WindowArea)
End If
Return True Return True
End Function End Function

4
ArinWarev1/My Project/AssemblyInfo.vb
View File

@@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices
' 지정되도록 할 수 있습니다. ' 지정되도록 할 수 있습니다.
' <Assembly: AssemblyVersion("1.0.*")> ' <Assembly: AssemblyVersion("1.0.*")>
<Assembly: AssemblyVersion("1.2017.0122.1003")> <Assembly: AssemblyVersion("1.2017.0122.1004")>
<Assembly: AssemblyFileVersion("1.2017.0122.1003")> <Assembly: AssemblyFileVersion("1.2017.0122.1004")>

4
ArinWarev1/단축키.txt
View File

@@ -4,3 +4,7 @@ alt+d
<EFBFBD><EFBFBD>ȭ<EFBFBD><EFBFBD><EFBFBD><EFBFBD> 1<><31>° <20><><EFBFBD><EFBFBD><EFBFBD>ۿ<EFBFBD> <20>ٿ<EFBFBD><D9BF>ֱⰡ<D6B1><E2B0A1> <EFBFBD><EFBFBD>ȭ<EFBFBD><EFBFBD><EFBFBD><EFBFBD> 1<><31>° <20><><EFBFBD><EFBFBD><EFBFBD>ۿ<EFBFBD> <20>ٿ<EFBFBD><D9BF>ֱⰡ<D6B1><E2B0A1>
<EFBFBD><EFBFBD><EFBFBD><EFBFBD>ȭ<EFBFBD>鿡<EFBFBD><EFBFBD> <20><><EFBFBD>Ϻҷ<CFBA><D2B7><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ű f1,f2,f3,f4 <EFBFBD><EFBFBD><EFBFBD><EFBFBD>ȭ<EFBFBD>鿡<EFBFBD><EFBFBD> <20><><EFBFBD>Ϻҷ<CFBA><D2B7><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ű f1,f2,f3,f4

2
SetupIS/SetupIS.isl
View File

@@ -2491,7 +2491,7 @@
<row><td>Custom</td><td>Express</td><td>&lt;ISProjectDataFolder&gt;</td><td>Default</td><td>2</td><td>1033</td><td>0</td><td>2</td><td>Intel</td><td/><td>1033</td><td>0</td><td>100</td><td>0</td><td>1024</td><td/><td>0</td><td/><td>MediaLocation</td><td/><td>http://</td><td/><td/><td/><td/><td>75805</td><td/><td/><td/><td>3</td></row> <row><td>Custom</td><td>Express</td><td>&lt;ISProjectDataFolder&gt;</td><td>Default</td><td>2</td><td>1033</td><td>0</td><td>2</td><td>Intel</td><td/><td>1033</td><td>0</td><td>100</td><td>0</td><td>1024</td><td/><td>0</td><td/><td>MediaLocation</td><td/><td>http://</td><td/><td/><td/><td/><td>75805</td><td/><td/><td/><td>3</td></row>
<row><td>DVD-10</td><td>Express</td><td>&lt;ISProjectDataFolder&gt;</td><td>Default</td><td>3</td><td>1033</td><td>0</td><td>2</td><td>Intel</td><td/><td>1033</td><td>0</td><td>8.75</td><td>1</td><td>2048</td><td/><td>0</td><td/><td>MediaLocation</td><td/><td>http://</td><td/><td/><td/><td/><td>75805</td><td/><td/><td/><td>3</td></row> <row><td>DVD-10</td><td>Express</td><td>&lt;ISProjectDataFolder&gt;</td><td>Default</td><td>3</td><td>1033</td><td>0</td><td>2</td><td>Intel</td><td/><td>1033</td><td>0</td><td>8.75</td><td>1</td><td>2048</td><td/><td>0</td><td/><td>MediaLocation</td><td/><td>http://</td><td/><td/><td/><td/><td>75805</td><td/><td/><td/><td>3</td></row>
<row><td>DVD-18</td><td>Express</td><td>&lt;ISProjectDataFolder&gt;</td><td>Default</td><td>3</td><td>1033</td><td>0</td><td>2</td><td>Intel</td><td/><td>1033</td><td>0</td><td>15.83</td><td>1</td><td>2048</td><td/><td>0</td><td/><td>MediaLocation</td><td/><td>http://</td><td/><td/><td/><td/><td>75805</td><td/><td/><td/><td>3</td></row> <row><td>DVD-18</td><td>Express</td><td>&lt;ISProjectDataFolder&gt;</td><td>Default</td><td>3</td><td>1033</td><td>0</td><td>2</td><td>Intel</td><td/><td>1033</td><td>0</td><td>15.83</td><td>1</td><td>2048</td><td/><td>0</td><td/><td>MediaLocation</td><td/><td>http://</td><td/><td/><td/><td/><td>75805</td><td/><td/><td/><td>3</td></row>
<row><td>DVD-5</td><td>Express</td><td>C:\eco2\Setup_ECO2_2022V2_20170122_1003</td><td>Default</td><td>3</td><td>1042</td><td>0</td><td>1</td><td>Intel</td><td/><td>1042</td><td>0</td><td>4.38</td><td>1</td><td>2048</td><td/><td>0</td><td/><td>MediaLocation</td><td/><td>http://</td><td/><td/><td/><td/><td>75805</td><td/><td/><td/><td>3</td></row> <row><td>DVD-5</td><td>Express</td><td>C:\eco2\Setup_ECO2_2022V2_20170122_1004</td><td>Default</td><td>3</td><td>1042</td><td>0</td><td>1</td><td>Intel</td><td/><td>1042</td><td>0</td><td>4.38</td><td>1</td><td>2048</td><td/><td>0</td><td/><td>MediaLocation</td><td/><td>http://</td><td/><td/><td/><td/><td>75805</td><td/><td/><td/><td>3</td></row>
<row><td>DVD-9</td><td>Express</td><td>&lt;ISProjectDataFolder&gt;</td><td>Default</td><td>3</td><td>1033</td><td>0</td><td>2</td><td>Intel</td><td/><td>1033</td><td>0</td><td>7.95</td><td>1</td><td>2048</td><td/><td>0</td><td/><td>MediaLocation</td><td/><td>http://</td><td/><td/><td/><td/><td>75805</td><td/><td/><td/><td>3</td></row> <row><td>DVD-9</td><td>Express</td><td>&lt;ISProjectDataFolder&gt;</td><td>Default</td><td>3</td><td>1033</td><td>0</td><td>2</td><td>Intel</td><td/><td>1033</td><td>0</td><td>7.95</td><td>1</td><td>2048</td><td/><td>0</td><td/><td>MediaLocation</td><td/><td>http://</td><td/><td/><td/><td/><td>75805</td><td/><td/><td/><td>3</td></row>
<row><td>SingleImage</td><td>Express</td><td>C:\eco2\Setup_2016_191020_guest_patch</td><td>PackageName</td><td>1</td><td>1042</td><td>0</td><td>1</td><td>Intel</td><td/><td>1042</td><td>0</td><td>0</td><td>0</td><td>0</td><td/><td>0</td><td/><td>MediaLocation</td><td/><td>http://</td><td/><td/><td/><td/><td>108701</td><td/><td/><td/><td>3</td></row> <row><td>SingleImage</td><td>Express</td><td>C:\eco2\Setup_2016_191020_guest_patch</td><td>PackageName</td><td>1</td><td>1042</td><td>0</td><td>1</td><td>Intel</td><td/><td>1042</td><td>0</td><td>0</td><td>0</td><td>0</td><td/><td>0</td><td/><td>MediaLocation</td><td/><td>http://</td><td/><td/><td/><td/><td>108701</td><td/><td/><td/><td>3</td></row>
<row><td>WebDeployment</td><td>Express</td><td>&lt;ISProjectDataFolder&gt;</td><td>PackageName</td><td>4</td><td>1033</td><td>2</td><td>1</td><td>Intel</td><td/><td>1033</td><td>0</td><td>0</td><td>0</td><td>0</td><td/><td>0</td><td/><td>MediaLocation</td><td/><td>http://</td><td/><td/><td/><td/><td>124941</td><td/><td/><td/><td>3</td></row> <row><td>WebDeployment</td><td>Express</td><td>&lt;ISProjectDataFolder&gt;</td><td>PackageName</td><td>4</td><td>1033</td><td>2</td><td>1</td><td>Intel</td><td/><td>1033</td><td>0</td><td>0</td><td>0</td><td>0</td><td/><td>0</td><td/><td>MediaLocation</td><td/><td>http://</td><td/><td/><td/><td/><td>124941</td><td/><td/><td/><td>3</td></row>