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

user id DB로그인 안되게 수정

Browse Source 
디버깅이안되는 현상 있음
This commit is contained in:
chi
2022-10-05 13:09:18 +09:00
parent e530774e0b
commit a07b0678de
46 changed files with 12484 additions and 4386 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2389
ArinWarev1/Forms_Input/Frm_New.Designer.vb generated
View File

File diff suppressed because it is too large Load Diff

156
ArinWarev1/Forms_Input/Frm_New.resx
View File

@@ -117,46 +117,64 @@
<resheader name="writer">
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<metadata name="Label456.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<metadata name="Label33.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</metadata>
<metadata name="Label455.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<metadata name="Label25.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</metadata>
<metadata name="Label4.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<metadata name="Label26.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</metadata>
<metadata name="Label6.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<metadata name="Label27.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</metadata>
<metadata name="Label7.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<metadata name="Label24.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</metadata>
<metadata name="Label8.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<metadata name="Label28.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</metadata>
<metadata name="Label9.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<metadata name="Label29.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</metadata>
<metadata name="Label10.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<metadata name="Label23.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</metadata>
<metadata name="Label11.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<metadata name="Label22.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</metadata>
<metadata name="Label12.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<metadata name="Label37.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</metadata>
<metadata name="Label13.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<metadata name="Label45.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</metadata>
<metadata name="Label14.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<metadata name="Label39.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</metadata>
<metadata name="Label15.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<metadata name="Label40.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</metadata>
<metadata name="Label16.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<metadata name="Label41.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</metadata>
<metadata name="Label44.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</metadata>
<metadata name="Label1.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</metadata>
<metadata name="Label42.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</metadata>
<metadata name="Label43.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</metadata>
<metadata name="Label34.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</metadata>
<metadata name="Label3.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</metadata>
<metadata name="Label17.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
@@ -168,80 +186,104 @@
<metadata name="Label19.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</metadata>
<metadata name="Label20.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<metadata name="Label32.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</metadata>
<metadata name="Label21.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</metadata>
<metadata name="Label465.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</metadata>
<metadata name="Label23.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</metadata>
<metadata name="Label24.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</metadata>
<metadata name="Label25.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</metadata>
<metadata name="Label457.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</metadata>
<metadata name="Label458.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</metadata>
<metadata name="Label459.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</metadata>
<metadata name="Label30.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</metadata>
<metadata name="Label31.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</metadata>
<metadata name="Label3.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</metadata>
<metadata name="Label2.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<metadata name="Label20.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</metadata>
<metadata name="Label5.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</metadata>
<metadata name="Label22.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<metadata name="Label459.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</metadata>
<metadata name="Label27.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<metadata name="Label457.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</metadata>
<metadata name="Label29.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<metadata name="Label31.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</metadata>
<metadata name="Label28.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<metadata name="Label30.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</metadata>
<metadata name="Label26.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<metadata name="Label458.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</metadata>
<metadata name="Label32.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<metadata name="Label35.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</metadata>
<metadata name="Label33.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<metadata name="Label36.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</metadata>
<metadata name="Label34.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<metadata name="Label38.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</metadata>
<metadata name="Label4.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</metadata>
<metadata name="Label456.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</metadata>
<metadata name="Label7.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</metadata>
<metadata name="Label6.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</metadata>
<metadata name="Label455.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</metadata>
<metadata name="Label16.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</metadata>
<metadata name="Label8.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</metadata>
<metadata name="Label9.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</metadata>
<metadata name="Label15.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</metadata>
<metadata name="Label10.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</metadata>
<metadata name="Label14.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</metadata>
<metadata name="Label13.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</metadata>
<metadata name="Label11.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</metadata>
<metadata name="Label12.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</metadata>
<metadata name="Label465.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</metadata>
<metadata name="Label2.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</metadata>
<metadata name="Label46.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</metadata>
<metadata name="Label47.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</metadata>
<metadata name="bs.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>222, 17</value>
<value>17, 17</value>
</metadata>
<metadata name="DS.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>286, 17</value>
<value>81, 17</value>
</metadata>
<metadata name="bn.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>353, 17</value>
<value>148, 17</value>
</metadata>
<metadata name="$this.TrayHeight" type="System.Int32, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>40</value>

55
ArinWarev1/Forms_Input/Frm_New.vb
View File

@@ -184,15 +184,15 @@
Private Sub Binding_Zone()
'//신재생
Dim bs_기기종류ComboBox As New BindingSource(DSET1, "tbl_common")
bs_기기종류ComboBox.Filter = "gubun='1028'"
bs_기기종류ComboBox.Sort = "code"
Me.기기종류ComboBox.DataSource = bs_기기종류ComboBox
기기종류ComboBox.DisplayMember = "name"
기기종류ComboBox.ValueMember = "name"
Me.기기종류ComboBox.DataBindings.Add("selectedvalue", Me.bs, "기기종류")
AddHandler 기기종류ComboBox.KeyDown, AddressOf Cmb_DeleteVal
''//신재생
'Dim bs_기기종류ComboBox As New BindingSource(DSET1, "tbl_common")
'bs_기기종류ComboBox.Filter = "gubun='1028'"
'bs_기기종류ComboBox.Sort = "code"
'Me.기기종류ComboBox.DataSource = bs_기기종류ComboBox
'기기종류ComboBox.DisplayMember = "name"
'기기종류ComboBox.ValueMember = "name"
'Me.기기종류ComboBox.DataBindings.Add("selectedvalue", Me.bs, "기기종류")
'AddHandler 기기종류ComboBox.KeyDown, AddressOf Cmb_DeleteVal
Dim bs_가동연료ComboBox As New BindingSource(DSET1, "tbl_common")
bs_가동연료ComboBox.Filter = "gubun='1066'"
@@ -682,30 +682,52 @@
열병합Panel.Enabled = False
태양광Panel.Enabled = False
지열Panel.Enabled = False
panWind.Enabled = False
ElseIf 기기종류ComboBox.Text = "열병합" Then
태양열Panel.Enabled = False
축열탱크Panel.Enabled = False
열병합Panel.Enabled = True
태양광Panel.Enabled = False
지열Panel.Enabled = False
panWind.Enabled = False
ElseIf 기기종류ComboBox.Text = "태양광" Then
태양열Panel.Enabled = False
축열탱크Panel.Enabled = False
열병합Panel.Enabled = False
태양광Panel.Enabled = True
지열Panel.Enabled = False
panWind.Enabled = False
ElseIf 기기종류ComboBox.Text = "지열" Then
태양열Panel.Enabled = False
축열탱크Panel.Enabled = False
열병합Panel.Enabled = False
태양광Panel.Enabled = False
지열Panel.Enabled = True
panWind.Enabled = False
Me.tabcontrol1.SelectedIndex = 0
ElseIf 기기종류ComboBox.Text = "수열" Then
태양열Panel.Enabled = False
축열탱크Panel.Enabled = False
열병합Panel.Enabled = False
태양광Panel.Enabled = False
지열Panel.Enabled = True
panWind.Enabled = False
Me.tabcontrol1.SelectedIndex = 1
ElseIf 기기종류ComboBox.Text = "풍력" Then
태양열Panel.Enabled = False
축열탱크Panel.Enabled = False
열병합Panel.Enabled = False
태양광Panel.Enabled = False
지열Panel.Enabled = False
panWind.Enabled = True
Else
태양열Panel.Enabled = False
축열탱크Panel.Enabled = False
열병합Panel.Enabled = False
태양광Panel.Enabled = False
지열Panel.Enabled = False
panWind.Enabled = False
End If
Catch ex As Exception
@@ -868,6 +890,21 @@
End Try
End Sub
Private Sub cmb_수열팽창설치여부_SelectedValueChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles cmb_수열팽창설치여부.SelectedValueChanged
Try
Select Case Me.cmb_수열팽창설치여부.Text
Case "예"
Me.tb_수열팽창탱크체적.Enabled = True
Case Else
Me.tb_수열팽창탱크체적.Enabled = False
End Select
Catch ex As Exception
End Try
End Sub
Private Sub cmb_모듈기울기_SelectedValueChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles cmb_모듈기울기.SelectedValueChanged

582
ArinWarev1/Forms_Input/Frm_kongjo.Designer.vb generated
View File

@@ -23,28 +23,30 @@ Partial Class Frm_kongjo
<System.Diagnostics.DebuggerStepThrough()> _
Private Sub InitializeComponent()
Me.components = New System.ComponentModel.Container()
Dim Label169 As System.Windows.Forms.Label
Dim Label170 As System.Windows.Forms.Label
Dim Label171 As System.Windows.Forms.Label
Dim Label172 As System.Windows.Forms.Label
Dim Label173 As System.Windows.Forms.Label
Dim Label174 As System.Windows.Forms.Label
Dim Label175 As System.Windows.Forms.Label
Dim Label179 As System.Windows.Forms.Label
Dim Label178 As System.Windows.Forms.Label
Dim Label177 As System.Windows.Forms.Label
Dim Label7 As System.Windows.Forms.Label
Dim Label176 As System.Windows.Forms.Label
Dim Label167 As System.Windows.Forms.Label
Dim Label168 As System.Windows.Forms.Label
Dim Label1 As System.Windows.Forms.Label
Dim Label6 As System.Windows.Forms.Label
Dim Label177 As System.Windows.Forms.Label
Dim Label5 As System.Windows.Forms.Label
Dim Label3 As System.Windows.Forms.Label
Dim Label4 As System.Windows.Forms.Label
Dim Label5 As System.Windows.Forms.Label
Dim Label6 As System.Windows.Forms.Label
Dim Label7 As System.Windows.Forms.Label
Dim Label178 As System.Windows.Forms.Label
Dim Label179 As System.Windows.Forms.Label
Dim Label11 As System.Windows.Forms.Label
Dim Label1 As System.Windows.Forms.Label
Dim Label174 As System.Windows.Forms.Label
Dim Label169 As System.Windows.Forms.Label
Dim Label9 As System.Windows.Forms.Label
Dim Label8 As System.Windows.Forms.Label
Dim Label175 As System.Windows.Forms.Label
Dim Label170 As System.Windows.Forms.Label
Dim Label168 As System.Windows.Forms.Label
Dim Label173 As System.Windows.Forms.Label
Dim Label10 As System.Windows.Forms.Label
Dim Label172 As System.Windows.Forms.Label
Dim Label167 As System.Windows.Forms.Label
Dim Label171 As System.Windows.Forms.Label
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(Frm_kongjo))
Me.tb_zone_cnt = New System.Windows.Forms.TextBox()
Me.Label48 = New System.Windows.Forms.Label()
Me.SplitContainer1 = New System.Windows.Forms.SplitContainer()
Me.dv = New CEnergy.arindv()
Me.DataGridViewTextBoxColumn1 = New System.Windows.Forms.DataGridViewTextBoxColumn()
@@ -77,35 +79,45 @@ Partial Class Frm_kongjo
Me.tb_01 = New Eco2Ar.MyTb()
Me.tb_02 = New Eco2Ar.MyTb()
Me.tb_03 = New Eco2Ar.MyTb()
Me.Tb_집열기방사율 = New Eco2Ar.MyTb()
Me.tb_13 = New Eco2Ar.MyTb()
Me.열교환기유형ComboBox = New Eco2Ar.MyCmb()
Me.리턴공기혼합여부ComboBox = New Eco2Ar.MyCmb()
Me.집열기방위ComboBox = New Eco2Ar.MyCmb()
Me.가습기유형ComboBox = New Eco2Ar.MyCmb()
Me.Tb_집열기면적 = New Eco2Ar.MyTb()
Me.공기식태양열적용ComboBox = New Eco2Ar.MyCmb()
Me.tb_08 = New Eco2Ar.MyTb()
Me.외기냉방제어유무ComboBox = New Eco2Ar.MyCmb()
Me.PictureBox1 = New System.Windows.Forms.PictureBox()
Me.Panel1 = New System.Windows.Forms.Panel()
Me.TextBox1 = New System.Windows.Forms.TextBox()
Me.tb_zone_cnt = New System.Windows.Forms.TextBox()
Me.Label2 = New System.Windows.Forms.Label()
Label169 = New System.Windows.Forms.Label()
Label170 = New System.Windows.Forms.Label()
Label171 = New System.Windows.Forms.Label()
Label172 = New System.Windows.Forms.Label()
Label173 = New System.Windows.Forms.Label()
Label174 = New System.Windows.Forms.Label()
Label175 = New System.Windows.Forms.Label()
Label179 = New System.Windows.Forms.Label()
Label178 = New System.Windows.Forms.Label()
Label177 = New System.Windows.Forms.Label()
Me.Label48 = New System.Windows.Forms.Label()
Label7 = New System.Windows.Forms.Label()
Label176 = New System.Windows.Forms.Label()
Label167 = New System.Windows.Forms.Label()
Label168 = New System.Windows.Forms.Label()
Label1 = New System.Windows.Forms.Label()
Label6 = New System.Windows.Forms.Label()
Label177 = New System.Windows.Forms.Label()
Label5 = New System.Windows.Forms.Label()
Label3 = New System.Windows.Forms.Label()
Label4 = New System.Windows.Forms.Label()
Label5 = New System.Windows.Forms.Label()
Label6 = New System.Windows.Forms.Label()
Label7 = New System.Windows.Forms.Label()
Label178 = New System.Windows.Forms.Label()
Label179 = New System.Windows.Forms.Label()
Label11 = New System.Windows.Forms.Label()
Label1 = New System.Windows.Forms.Label()
Label174 = New System.Windows.Forms.Label()
Label169 = New System.Windows.Forms.Label()
Label9 = New System.Windows.Forms.Label()
Label8 = New System.Windows.Forms.Label()
Label175 = New System.Windows.Forms.Label()
Label170 = New System.Windows.Forms.Label()
Label168 = New System.Windows.Forms.Label()
Label173 = New System.Windows.Forms.Label()
Label10 = New System.Windows.Forms.Label()
Label172 = New System.Windows.Forms.Label()
Label167 = New System.Windows.Forms.Label()
Label171 = New System.Windows.Forms.Label()
CType(Me.SplitContainer1, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SplitContainer1.Panel1.SuspendLayout()
Me.SplitContainer1.Panel2.SuspendLayout()
@@ -123,121 +135,17 @@ Partial Class Frm_kongjo
Me.Panel1.SuspendLayout()
Me.SuspendLayout()
'
'Label169
'Label7
'
Label169.AutoSize = True
Label169.BackColor = System.Drawing.Color.FromArgb(CType(CType(219, Byte), Integer), CType(CType(221, Byte), Integer), CType(CType(223, Byte), Integer))
Label169.ForeColor = System.Drawing.SystemColors.ControlDarkDark
Label169.Location = New System.Drawing.Point(6, 46)
Label169.Name = "Label169"
Label169.Size = New System.Drawing.Size(140, 24)
Label169.TabIndex = 10
Label169.Text = "공조급기온도의 설정치" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & " (난방)[C]:"
Label169.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
'
'Label170
'
Label170.AutoSize = True
Label170.BackColor = System.Drawing.Color.FromArgb(CType(CType(219, Byte), Integer), CType(CType(221, Byte), Integer), CType(CType(223, Byte), Integer))
Label170.ForeColor = System.Drawing.SystemColors.ControlDarkDark
Label170.Location = New System.Drawing.Point(6, 24)
Label170.Name = "Label170"
Label170.Size = New System.Drawing.Size(62, 12)
Label170.TabIndex = 8
Label170.Text = "공조방식:"
Label170.TextAlign = System.Drawing.ContentAlignment.MiddleRight
'
'Label171
'
Label171.AutoSize = True
Label171.BackColor = System.Drawing.Color.FromArgb(CType(CType(219, Byte), Integer), CType(CType(221, Byte), Integer), CType(CType(223, Byte), Integer))
Label171.ForeColor = System.Drawing.SystemColors.ControlDarkDark
Label171.Location = New System.Drawing.Point(6, 75)
Label171.Name = "Label171"
Label171.Size = New System.Drawing.Size(140, 24)
Label171.TabIndex = 8
Label171.Text = "공조급기온도의 설정치" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & " (냉방)[C]:"
Label171.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
'
'Label172
'
Label172.AutoSize = True
Label172.BackColor = System.Drawing.Color.FromArgb(CType(CType(219, Byte), Integer), CType(CType(221, Byte), Integer), CType(CType(223, Byte), Integer))
Label172.ForeColor = System.Drawing.SystemColors.ControlDarkDark
Label172.Location = New System.Drawing.Point(6, 108)
Label172.Name = "Label172"
Label172.Size = New System.Drawing.Size(151, 12)
Label172.TabIndex = 10
Label172.Text = "공조기 최대풍량[CMH]:"
'
'Label173
'
Label173.AutoSize = True
Label173.BackColor = System.Drawing.Color.FromArgb(CType(CType(219, Byte), Integer), CType(CType(221, Byte), Integer), CType(CType(223, Byte), Integer))
Label173.ForeColor = System.Drawing.SystemColors.ControlDarkDark
Label173.Location = New System.Drawing.Point(6, 139)
Label173.Name = "Label173"
Label173.Size = New System.Drawing.Size(124, 12)
Label173.TabIndex = 10
Label173.Text = "리턴공기 혼합 여부:"
'
'Label174
'
Label174.AutoSize = True
Label174.BackColor = System.Drawing.Color.FromArgb(CType(CType(219, Byte), Integer), CType(CType(221, Byte), Integer), CType(CType(223, Byte), Integer))
Label174.ForeColor = System.Drawing.SystemColors.ControlDarkDark
Label174.Location = New System.Drawing.Point(6, 168)
Label174.Name = "Label174"
Label174.Size = New System.Drawing.Size(80, 12)
Label174.TabIndex = 10
Label174.Text = "가습기 유형:"
'
'Label175
'
Label175.AutoSize = True
Label175.BackColor = System.Drawing.Color.FromArgb(CType(CType(219, Byte), Integer), CType(CType(221, Byte), Integer), CType(CType(223, Byte), Integer))
Label175.ForeColor = System.Drawing.SystemColors.ControlDarkDark
Label175.Location = New System.Drawing.Point(6, 198)
Label175.Name = "Label175"
Label175.Size = New System.Drawing.Size(124, 12)
Label175.TabIndex = 10
Label175.Text = "외기냉방 제어 유무:"
'
'Label179
'
Label179.AutoSize = True
Label179.BackColor = System.Drawing.Color.FromArgb(CType(CType(243, Byte), Integer), CType(CType(244, Byte), Integer), CType(CType(246, Byte), Integer))
Label179.ForeColor = System.Drawing.SystemColors.ControlDarkDark
Label179.Location = New System.Drawing.Point(7, 267)
Label179.Name = "Label179"
Label179.Size = New System.Drawing.Size(101, 12)
Label179.TabIndex = 10
Label179.Text = "배기팬 효율[-]:"
Label179.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
'
'Label178
'
Label178.AutoSize = True
Label178.BackColor = System.Drawing.Color.FromArgb(CType(CType(243, Byte), Integer), CType(CType(244, Byte), Integer), CType(CType(246, Byte), Integer))
Label178.ForeColor = System.Drawing.SystemColors.ControlDarkDark
Label178.Location = New System.Drawing.Point(7, 239)
Label178.Name = "Label178"
Label178.Size = New System.Drawing.Size(101, 12)
Label178.TabIndex = 10
Label178.Text = "급기팬 효율[-]:"
Label178.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
'
'Label177
'
Label177.AutoSize = True
Label177.BackColor = System.Drawing.Color.FromArgb(CType(CType(243, Byte), Integer), CType(CType(244, Byte), Integer), CType(CType(246, Byte), Integer))
Label177.ForeColor = System.Drawing.SystemColors.ControlDarkDark
Label177.Location = New System.Drawing.Point(7, 210)
Label177.Name = "Label177"
Label177.Size = New System.Drawing.Size(137, 12)
Label177.TabIndex = 10
Label177.Text = "배기팬 압력손실[Pa]:"
Label177.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
Label7.AutoSize = True
Label7.BackColor = System.Drawing.Color.FromArgb(CType(CType(243, Byte), Integer), CType(CType(244, Byte), Integer), CType(CType(246, Byte), Integer))
Label7.ForeColor = System.Drawing.SystemColors.ControlDarkDark
Label7.Location = New System.Drawing.Point(7, 68)
Label7.Name = "Label7"
Label7.Size = New System.Drawing.Size(112, 12)
Label7.TabIndex = 10
Label7.Text = "급기 풍량[CMH]:"
Label7.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
'
'Label176
'
@@ -251,38 +159,41 @@ Partial Class Frm_kongjo
Label176.Text = "급기팬 압력손실[Pa]:"
Label176.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
'
'Label167
'Label6
'
Label167.AutoSize = True
Label167.BackColor = System.Drawing.Color.FromArgb(CType(CType(219, Byte), Integer), CType(CType(221, Byte), Integer), CType(CType(223, Byte), Integer))
Label167.ForeColor = System.Drawing.SystemColors.ControlDarkDark
Label167.Location = New System.Drawing.Point(6, 253)
Label167.Name = "Label167"
Label167.Size = New System.Drawing.Size(116, 12)
Label167.TabIndex = 10
Label167.Text = "열회수율(난방)[-]"
Label6.AutoSize = True
Label6.BackColor = System.Drawing.Color.FromArgb(CType(CType(243, Byte), Integer), CType(CType(244, Byte), Integer), CType(CType(246, Byte), Integer))
Label6.ForeColor = System.Drawing.SystemColors.ControlDarkDark
Label6.Location = New System.Drawing.Point(7, 96)
Label6.Name = "Label6"
Label6.Size = New System.Drawing.Size(112, 12)
Label6.TabIndex = 10
Label6.Text = "배기 풍량[CMH]:"
Label6.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
'
'Label168
'Label177
'
Label168.AutoSize = True
Label168.BackColor = System.Drawing.Color.FromArgb(CType(CType(219, Byte), Integer), CType(CType(221, Byte), Integer), CType(CType(223, Byte), Integer))
Label168.ForeColor = System.Drawing.SystemColors.ControlDarkDark
Label168.Location = New System.Drawing.Point(6, 226)
Label168.Name = "Label168"
Label168.Size = New System.Drawing.Size(93, 12)
Label168.TabIndex = 10
Label168.Text = "열교환기 유형:"
Label177.AutoSize = True
Label177.BackColor = System.Drawing.Color.FromArgb(CType(CType(243, Byte), Integer), CType(CType(244, Byte), Integer), CType(CType(246, Byte), Integer))
Label177.ForeColor = System.Drawing.SystemColors.ControlDarkDark
Label177.Location = New System.Drawing.Point(7, 210)
Label177.Name = "Label177"
Label177.Size = New System.Drawing.Size(137, 12)
Label177.TabIndex = 10
Label177.Text = "배기팬 압력손실[Pa]:"
Label177.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
'
'Label1
'Label5
'
Label1.AutoSize = True
Label1.BackColor = System.Drawing.Color.FromArgb(CType(CType(219, Byte), Integer), CType(CType(221, Byte), Integer), CType(CType(223, Byte), Integer))
Label1.ForeColor = System.Drawing.SystemColors.ControlDarkDark
Label1.Location = New System.Drawing.Point(6, 279)
Label1.Name = "Label1"
Label1.Size = New System.Drawing.Size(116, 12)
Label1.TabIndex = 14
Label1.Text = "열회수율(냉방)[-]"
Label5.AutoSize = True
Label5.BackColor = System.Drawing.Color.FromArgb(CType(CType(243, Byte), Integer), CType(CType(244, Byte), Integer), CType(CType(246, Byte), Integer))
Label5.ForeColor = System.Drawing.SystemColors.ControlDarkDark
Label5.Location = New System.Drawing.Point(7, 125)
Label5.Name = "Label5"
Label5.Size = New System.Drawing.Size(112, 12)
Label5.TabIndex = 10
Label5.Text = "급기팬 동력[kW]:"
Label5.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
'
'Label3
'
@@ -308,65 +219,186 @@ Partial Class Frm_kongjo
Label4.Text = "배기팬 동력[kW]:"
Label4.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
'
'Label5
'Label178
'
Label5.AutoSize = True
Label5.BackColor = System.Drawing.Color.FromArgb(CType(CType(243, Byte), Integer), CType(CType(244, Byte), Integer), CType(CType(246, Byte), Integer))
Label5.ForeColor = System.Drawing.SystemColors.ControlDarkDark
Label5.Location = New System.Drawing.Point(7, 125)
Label5.Name = "Label5"
Label5.Size = New System.Drawing.Size(112, 12)
Label5.TabIndex = 10
Label5.Text = "급기팬 동력[kW]:"
Label5.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
Label178.AutoSize = True
Label178.BackColor = System.Drawing.Color.FromArgb(CType(CType(243, Byte), Integer), CType(CType(244, Byte), Integer), CType(CType(246, Byte), Integer))
Label178.ForeColor = System.Drawing.SystemColors.ControlDarkDark
Label178.Location = New System.Drawing.Point(7, 239)
Label178.Name = "Label178"
Label178.Size = New System.Drawing.Size(101, 12)
Label178.TabIndex = 10
Label178.Text = "급기팬 효율[-]:"
Label178.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
'
'Label6
'Label179
'
Label6.AutoSize = True
Label6.BackColor = System.Drawing.Color.FromArgb(CType(CType(243, Byte), Integer), CType(CType(244, Byte), Integer), CType(CType(246, Byte), Integer))
Label6.ForeColor = System.Drawing.SystemColors.ControlDarkDark
Label6.Location = New System.Drawing.Point(7, 96)
Label6.Name = "Label6"
Label6.Size = New System.Drawing.Size(112, 12)
Label6.TabIndex = 10
Label6.Text = "배기 풍량[CMH]:"
Label6.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
Label179.AutoSize = True
Label179.BackColor = System.Drawing.Color.FromArgb(CType(CType(243, Byte), Integer), CType(CType(244, Byte), Integer), CType(CType(246, Byte), Integer))
Label179.ForeColor = System.Drawing.SystemColors.ControlDarkDark
Label179.Location = New System.Drawing.Point(7, 267)
Label179.Name = "Label179"
Label179.Size = New System.Drawing.Size(101, 12)
Label179.TabIndex = 10
Label179.Text = "배기팬 효율[-]:"
Label179.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
'
'Label7
'Label11
'
Label7.AutoSize = True
Label7.BackColor = System.Drawing.Color.FromArgb(CType(CType(243, Byte), Integer), CType(CType(244, Byte), Integer), CType(CType(246, Byte), Integer))
Label7.ForeColor = System.Drawing.SystemColors.ControlDarkDark
Label7.Location = New System.Drawing.Point(7, 68)
Label7.Name = "Label7"
Label7.Size = New System.Drawing.Size(112, 12)
Label7.TabIndex = 10
Label7.Text = "급기 풍량[CMH]:"
Label7.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
Label11.AutoSize = True
Label11.BackColor = System.Drawing.Color.FromArgb(CType(CType(219, Byte), Integer), CType(CType(221, Byte), Integer), CType(CType(223, Byte), Integer))
Label11.ForeColor = System.Drawing.SystemColors.ControlDarkDark
Label11.Location = New System.Drawing.Point(6, 392)
Label11.Name = "Label11"
Label11.Size = New System.Drawing.Size(114, 12)
Label11.TabIndex = 14
Label11.Text = "집열기 방사율[-]:"
'
'tb_zone_cnt
'Label1
'
Me.tb_zone_cnt.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.tb_zone_cnt.BackColor = System.Drawing.SystemColors.GrayText
Me.tb_zone_cnt.ForeColor = System.Drawing.Color.White
Me.tb_zone_cnt.Location = New System.Drawing.Point(290, 5)
Me.tb_zone_cnt.Name = "tb_zone_cnt"
Me.tb_zone_cnt.Size = New System.Drawing.Size(58, 21)
Me.tb_zone_cnt.TabIndex = 1
Me.tb_zone_cnt.Text = "0"
Me.tb_zone_cnt.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
Label1.AutoSize = True
Label1.BackColor = System.Drawing.Color.FromArgb(CType(CType(219, Byte), Integer), CType(CType(221, Byte), Integer), CType(CType(223, Byte), Integer))
Label1.ForeColor = System.Drawing.SystemColors.ControlDarkDark
Label1.Location = New System.Drawing.Point(6, 279)
Label1.Name = "Label1"
Label1.Size = New System.Drawing.Size(116, 12)
Label1.TabIndex = 14
Label1.Text = "열회수율(냉방)[-]"
'
'Label48
'Label174
'
Me.Label48.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.Label48.AutoSize = True
Me.Label48.ForeColor = System.Drawing.Color.DarkCyan
Me.Label48.Location = New System.Drawing.Point(172, 9)
Me.Label48.Name = "Label48"
Me.Label48.Size = New System.Drawing.Size(111, 12)
Me.Label48.TabIndex = 0
Me.Label48.Text = "적용된 입력존 수:"
Me.Label48.TextAlign = System.Drawing.ContentAlignment.MiddleRight
Label174.AutoSize = True
Label174.BackColor = System.Drawing.Color.FromArgb(CType(CType(219, Byte), Integer), CType(CType(221, Byte), Integer), CType(CType(223, Byte), Integer))
Label174.ForeColor = System.Drawing.SystemColors.ControlDarkDark
Label174.Location = New System.Drawing.Point(6, 168)
Label174.Name = "Label174"
Label174.Size = New System.Drawing.Size(80, 12)
Label174.TabIndex = 10
Label174.Text = "가습기 유형:"
'
'Label169
'
Label169.AutoSize = True
Label169.BackColor = System.Drawing.Color.FromArgb(CType(CType(219, Byte), Integer), CType(CType(221, Byte), Integer), CType(CType(223, Byte), Integer))
Label169.ForeColor = System.Drawing.SystemColors.ControlDarkDark
Label169.Location = New System.Drawing.Point(6, 46)
Label169.Name = "Label169"
Label169.Size = New System.Drawing.Size(140, 24)
Label169.TabIndex = 10
Label169.Text = "공조급기온도의 설정치" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & " (난방)[C]:"
Label169.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
'
'Label9
'
Label9.AutoSize = True
Label9.BackColor = System.Drawing.Color.FromArgb(CType(CType(219, Byte), Integer), CType(CType(221, Byte), Integer), CType(CType(223, Byte), Integer))
Label9.ForeColor = System.Drawing.SystemColors.ControlDarkDark
Label9.Location = New System.Drawing.Point(6, 344)
Label9.Name = "Label9"
Label9.Size = New System.Drawing.Size(80, 12)
Label9.TabIndex = 10
Label9.Text = "집열기 방위:"
'
'Label8
'
Label8.AutoSize = True
Label8.BackColor = System.Drawing.Color.FromArgb(CType(CType(219, Byte), Integer), CType(CType(221, Byte), Integer), CType(CType(223, Byte), Integer))
Label8.ForeColor = System.Drawing.SystemColors.ControlDarkDark
Label8.Location = New System.Drawing.Point(6, 320)
Label8.Name = "Label8"
Label8.Size = New System.Drawing.Size(119, 12)
Label8.TabIndex = 10
Label8.Text = "공기식태양열 적용:"
'
'Label175
'
Label175.AutoSize = True
Label175.BackColor = System.Drawing.Color.FromArgb(CType(CType(219, Byte), Integer), CType(CType(221, Byte), Integer), CType(CType(223, Byte), Integer))
Label175.ForeColor = System.Drawing.SystemColors.ControlDarkDark
Label175.Location = New System.Drawing.Point(6, 198)
Label175.Name = "Label175"
Label175.Size = New System.Drawing.Size(124, 12)
Label175.TabIndex = 10
Label175.Text = "외기냉방 제어 유무:"
'
'Label170
'
Label170.AutoSize = True
Label170.BackColor = System.Drawing.Color.FromArgb(CType(CType(219, Byte), Integer), CType(CType(221, Byte), Integer), CType(CType(223, Byte), Integer))
Label170.ForeColor = System.Drawing.SystemColors.ControlDarkDark
Label170.Location = New System.Drawing.Point(6, 24)
Label170.Name = "Label170"
Label170.Size = New System.Drawing.Size(62, 12)
Label170.TabIndex = 8
Label170.Text = "공조방식:"
Label170.TextAlign = System.Drawing.ContentAlignment.MiddleRight
'
'Label168
'
Label168.AutoSize = True
Label168.BackColor = System.Drawing.Color.FromArgb(CType(CType(219, Byte), Integer), CType(CType(221, Byte), Integer), CType(CType(223, Byte), Integer))
Label168.ForeColor = System.Drawing.SystemColors.ControlDarkDark
Label168.Location = New System.Drawing.Point(6, 226)
Label168.Name = "Label168"
Label168.Size = New System.Drawing.Size(93, 12)
Label168.TabIndex = 10
Label168.Text = "열교환기 유형:"
'
'Label173
'
Label173.AutoSize = True
Label173.BackColor = System.Drawing.Color.FromArgb(CType(CType(219, Byte), Integer), CType(CType(221, Byte), Integer), CType(CType(223, Byte), Integer))
Label173.ForeColor = System.Drawing.SystemColors.ControlDarkDark
Label173.Location = New System.Drawing.Point(6, 139)
Label173.Name = "Label173"
Label173.Size = New System.Drawing.Size(124, 12)
Label173.TabIndex = 10
Label173.Text = "리턴공기 혼합 여부:"
'
'Label10
'
Label10.AutoSize = True
Label10.BackColor = System.Drawing.Color.FromArgb(CType(CType(219, Byte), Integer), CType(CType(221, Byte), Integer), CType(CType(223, Byte), Integer))
Label10.ForeColor = System.Drawing.SystemColors.ControlDarkDark
Label10.Location = New System.Drawing.Point(6, 367)
Label10.Name = "Label10"
Label10.Size = New System.Drawing.Size(107, 12)
Label10.TabIndex = 10
Label10.Text = "집열기 면적[㎡]:"
'
'Label172
'
Label172.AutoSize = True
Label172.BackColor = System.Drawing.Color.FromArgb(CType(CType(219, Byte), Integer), CType(CType(221, Byte), Integer), CType(CType(223, Byte), Integer))
Label172.ForeColor = System.Drawing.SystemColors.ControlDarkDark
Label172.Location = New System.Drawing.Point(6, 108)
Label172.Name = "Label172"
Label172.Size = New System.Drawing.Size(151, 12)
Label172.TabIndex = 10
Label172.Text = "공조기 최대풍량[CMH]:"
'
'Label167
'
Label167.AutoSize = True
Label167.BackColor = System.Drawing.Color.FromArgb(CType(CType(219, Byte), Integer), CType(CType(221, Byte), Integer), CType(CType(223, Byte), Integer))
Label167.ForeColor = System.Drawing.SystemColors.ControlDarkDark
Label167.Location = New System.Drawing.Point(6, 253)
Label167.Name = "Label167"
Label167.Size = New System.Drawing.Size(116, 12)
Label167.TabIndex = 10
Label167.Text = "열회수율(난방)[-]"
'
'Label171
'
Label171.AutoSize = True
Label171.BackColor = System.Drawing.Color.FromArgb(CType(CType(219, Byte), Integer), CType(CType(221, Byte), Integer), CType(CType(223, Byte), Integer))
Label171.ForeColor = System.Drawing.SystemColors.ControlDarkDark
Label171.Location = New System.Drawing.Point(6, 75)
Label171.Name = "Label171"
Label171.Size = New System.Drawing.Size(140, 24)
Label171.TabIndex = 8
Label171.Text = "공조급기온도의 설정치" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & " (냉방)[C]:"
Label171.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
'
'SplitContainer1
'
@@ -574,7 +606,7 @@ Partial Class Frm_kongjo
Me.Tb_배기팬동력.Name = "Tb_배기팬동력"
Me.Tb_배기팬동력.NectControl = Nothing
Me.Tb_배기팬동력.Size = New System.Drawing.Size(119, 21)
Me.Tb_배기팬동력.TabIndex = 14
Me.Tb_배기팬동력.TabIndex = 18
Me.Tb_배기팬동력.TextFormat = Eco2Ar.MyTb.ETFormat.Normal
'
'Tb_급기팬동력
@@ -584,7 +616,7 @@ Partial Class Frm_kongjo
Me.Tb_급기팬동력.Name = "Tb_급기팬동력"
Me.Tb_급기팬동력.NectControl = Nothing
Me.Tb_급기팬동력.Size = New System.Drawing.Size(119, 21)
Me.Tb_급기팬동력.TabIndex = 13
Me.Tb_급기팬동력.TabIndex = 17
Me.Tb_급기팬동력.TextFormat = Eco2Ar.MyTb.ETFormat.Normal
'
'Tb_배기팬효율
@@ -594,7 +626,7 @@ Partial Class Frm_kongjo
Me.Tb_배기팬효율.Name = "Tb_배기팬효율"
Me.Tb_배기팬효율.NectControl = Nothing
Me.Tb_배기팬효율.Size = New System.Drawing.Size(119, 21)
Me.Tb_배기팬효율.TabIndex = 18
Me.Tb_배기팬효율.TabIndex = 22
Me.Tb_배기팬효율.TextFormat = Eco2Ar.MyTb.ETFormat.Normal
'
'Tb_배기풍량
@@ -604,7 +636,7 @@ Partial Class Frm_kongjo
Me.Tb_배기풍량.Name = "Tb_배기풍량"
Me.Tb_배기풍량.NectControl = Nothing
Me.Tb_배기풍량.Size = New System.Drawing.Size(119, 21)
Me.Tb_배기풍량.TabIndex = 12
Me.Tb_배기풍량.TabIndex = 16
Me.Tb_배기풍량.TextFormat = Eco2Ar.MyTb.ETFormat.Normal
'
'Tb_급기팬효율
@@ -614,7 +646,7 @@ Partial Class Frm_kongjo
Me.Tb_급기팬효율.Name = "Tb_급기팬효율"
Me.Tb_급기팬효율.NectControl = Nothing
Me.Tb_급기팬효율.Size = New System.Drawing.Size(119, 21)
Me.Tb_급기팬효율.TabIndex = 17
Me.Tb_급기팬효율.TabIndex = 21
Me.Tb_급기팬효율.TextFormat = Eco2Ar.MyTb.ETFormat.Normal
'
'Tb_배기팬압력손실
@@ -624,7 +656,7 @@ Partial Class Frm_kongjo
Me.Tb_배기팬압력손실.Name = "Tb_배기팬압력손실"
Me.Tb_배기팬압력손실.NectControl = Nothing
Me.Tb_배기팬압력손실.Size = New System.Drawing.Size(119, 21)
Me.Tb_배기팬압력손실.TabIndex = 16
Me.Tb_배기팬압력손실.TabIndex = 20
Me.Tb_배기팬압력손실.TextFormat = Eco2Ar.MyTb.ETFormat.Normal
'
'Tb_급기풍량
@@ -634,7 +666,7 @@ Partial Class Frm_kongjo
Me.Tb_급기풍량.Name = "Tb_급기풍량"
Me.Tb_급기풍량.NectControl = Nothing
Me.Tb_급기풍량.Size = New System.Drawing.Size(119, 21)
Me.Tb_급기풍량.TabIndex = 11
Me.Tb_급기풍량.TabIndex = 15
Me.Tb_급기풍량.TextFormat = Eco2Ar.MyTb.ETFormat.Normal
'
'Tb_급기팬압력손실
@@ -644,7 +676,7 @@ Partial Class Frm_kongjo
Me.Tb_급기팬압력손실.Name = "Tb_급기팬압력손실"
Me.Tb_급기팬압력손실.NectControl = Nothing
Me.Tb_급기팬압력손실.Size = New System.Drawing.Size(119, 21)
Me.Tb_급기팬압력손실.TabIndex = 15
Me.Tb_급기팬압력손실.TabIndex = 19
Me.Tb_급기팬압력손실.TextFormat = Eco2Ar.MyTb.ETFormat.Normal
'
'Cmb_팬효율산출방식
@@ -656,7 +688,7 @@ Partial Class Frm_kongjo
Me.Cmb_팬효율산출방식.Name = "Cmb_팬효율산출방식"
Me.Cmb_팬효율산출방식.NectControl = Nothing
Me.Cmb_팬효율산출방식.Size = New System.Drawing.Size(119, 20)
Me.Cmb_팬효율산출방식.TabIndex = 10
Me.Cmb_팬효율산출방식.TabIndex = 14
'
'PictureBox2
'
@@ -673,26 +705,34 @@ Partial Class Frm_kongjo
Me.GroupBox1.Controls.Add(Me.tb_01)
Me.GroupBox1.Controls.Add(Me.tb_02)
Me.GroupBox1.Controls.Add(Me.tb_03)
Me.GroupBox1.Controls.Add(Label11)
Me.GroupBox1.Controls.Add(Me.Tb_집열기방사율)
Me.GroupBox1.Controls.Add(Label1)
Me.GroupBox1.Controls.Add(Me.tb_13)
Me.GroupBox1.Controls.Add(Label174)
Me.GroupBox1.Controls.Add(Label169)
Me.GroupBox1.Controls.Add(Me.열교환기유형ComboBox)
Me.GroupBox1.Controls.Add(Label9)
Me.GroupBox1.Controls.Add(Label8)
Me.GroupBox1.Controls.Add(Label175)
Me.GroupBox1.Controls.Add(Label170)
Me.GroupBox1.Controls.Add(Label168)
Me.GroupBox1.Controls.Add(Label173)
Me.GroupBox1.Controls.Add(Label10)
Me.GroupBox1.Controls.Add(Label172)
Me.GroupBox1.Controls.Add(Label167)
Me.GroupBox1.Controls.Add(Label171)
Me.GroupBox1.Controls.Add(Me.리턴공기혼합여부ComboBox)
Me.GroupBox1.Controls.Add(Me.집열기방위ComboBox)
Me.GroupBox1.Controls.Add(Me.가습기유형ComboBox)
Me.GroupBox1.Controls.Add(Me.Tb_집열기면적)
Me.GroupBox1.Controls.Add(Me.공기식태양열적용ComboBox)
Me.GroupBox1.Controls.Add(Me.tb_08)
Me.GroupBox1.Controls.Add(Me.외기냉방제어유무ComboBox)
Me.GroupBox1.Controls.Add(Me.PictureBox1)
Me.GroupBox1.Location = New System.Drawing.Point(20, 83)
Me.GroupBox1.Name = "GroupBox1"
Me.GroupBox1.Size = New System.Drawing.Size(277, 322)
Me.GroupBox1.Size = New System.Drawing.Size(277, 434)
Me.GroupBox1.TabIndex = 5
Me.GroupBox1.TabStop = False
'
@@ -736,6 +776,16 @@ Partial Class Frm_kongjo
Me.tb_03.TabIndex = 3
Me.tb_03.TextFormat = Eco2Ar.MyTb.ETFormat.Normal
'
'Tb_집열기방사율
'
Me.Tb_집열기방사율.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bs, "집열기방사율", True))
Me.Tb_집열기방사율.Location = New System.Drawing.Point(150, 389)
Me.Tb_집열기방사율.Name = "Tb_집열기방사율"
Me.Tb_집열기방사율.NectControl = Nothing
Me.Tb_집열기방사율.Size = New System.Drawing.Size(119, 21)
Me.Tb_집열기방사율.TabIndex = 13
Me.Tb_집열기방사율.TextFormat = Eco2Ar.MyTb.ETFormat.Normal
'
'tb_13
'
Me.tb_13.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bs, "열회수율냉", True))
@@ -766,6 +816,17 @@ Partial Class Frm_kongjo
Me.리턴공기혼합여부ComboBox.Size = New System.Drawing.Size(119, 20)
Me.리턴공기혼합여부ComboBox.TabIndex = 4
'
'집열기방위ComboBox
'
Me.집열기방위ComboBox.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
Me.집열기방위ComboBox.FormattingEnabled = True
Me.집열기방위ComboBox.Items.AddRange(New Object() {"없음", "남", "남동", "남서", "동", "서", "북동", "북서", "북"})
Me.집열기방위ComboBox.Location = New System.Drawing.Point(150, 340)
Me.집열기방위ComboBox.Name = "집열기방위ComboBox"
Me.집열기방위ComboBox.NectControl = Nothing
Me.집열기방위ComboBox.Size = New System.Drawing.Size(119, 20)
Me.집열기방위ComboBox.TabIndex = 11
'
'가습기유형ComboBox
'
Me.가습기유형ComboBox.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
@@ -776,6 +837,27 @@ Partial Class Frm_kongjo
Me.가습기유형ComboBox.Size = New System.Drawing.Size(119, 20)
Me.가습기유형ComboBox.TabIndex = 5
'
'Tb_집열기면적
'
Me.Tb_집열기면적.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bs, "집열기면적", True))
Me.Tb_집열기면적.Location = New System.Drawing.Point(150, 364)
Me.Tb_집열기면적.Name = "Tb_집열기면적"
Me.Tb_집열기면적.NectControl = Nothing
Me.Tb_집열기면적.Size = New System.Drawing.Size(119, 21)
Me.Tb_집열기면적.TabIndex = 12
Me.Tb_집열기면적.TextFormat = Eco2Ar.MyTb.ETFormat.Normal
'
'공기식태양열적용ComboBox
'
Me.공기식태양열적용ComboBox.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
Me.공기식태양열적용ComboBox.FormattingEnabled = True
Me.공기식태양열적용ComboBox.Items.AddRange(New Object() {"예", "아니오"})
Me.공기식태양열적용ComboBox.Location = New System.Drawing.Point(150, 316)
Me.공기식태양열적용ComboBox.Name = "공기식태양열적용ComboBox"
Me.공기식태양열적용ComboBox.NectControl = Nothing
Me.공기식태양열적용ComboBox.Size = New System.Drawing.Size(119, 20)
Me.공기식태양열적용ComboBox.TabIndex = 10
'
'tb_08
'
Me.tb_08.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bs, "열회수율", True))
@@ -801,7 +883,7 @@ Partial Class Frm_kongjo
Me.PictureBox1.BackColor = System.Drawing.Color.FromArgb(CType(CType(219, Byte), Integer), CType(CType(221, Byte), Integer), CType(CType(223, Byte), Integer))
Me.PictureBox1.Location = New System.Drawing.Point(1, 9)
Me.PictureBox1.Name = "PictureBox1"
Me.PictureBox1.Size = New System.Drawing.Size(273, 309)
Me.PictureBox1.Size = New System.Drawing.Size(273, 419)
Me.PictureBox1.TabIndex = 11
Me.PictureBox1.TabStop = False
'
@@ -830,6 +912,18 @@ Partial Class Frm_kongjo
Me.TextBox1.Text = "0"
Me.TextBox1.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
'
'tb_zone_cnt
'
Me.tb_zone_cnt.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.tb_zone_cnt.BackColor = System.Drawing.SystemColors.GrayText
Me.tb_zone_cnt.ForeColor = System.Drawing.Color.White
Me.tb_zone_cnt.Location = New System.Drawing.Point(290, 5)
Me.tb_zone_cnt.Name = "tb_zone_cnt"
Me.tb_zone_cnt.Size = New System.Drawing.Size(58, 21)
Me.tb_zone_cnt.TabIndex = 1
Me.tb_zone_cnt.Text = "0"
Me.tb_zone_cnt.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
'
'Label2
'
Me.Label2.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
@@ -842,6 +936,18 @@ Partial Class Frm_kongjo
Me.Label2.Text = "적용된 면적합(㎡):"
Me.Label2.TextAlign = System.Drawing.ContentAlignment.MiddleRight
'
'Label48
'
Me.Label48.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.Label48.AutoSize = True
Me.Label48.ForeColor = System.Drawing.Color.DarkCyan
Me.Label48.Location = New System.Drawing.Point(172, 9)
Me.Label48.Name = "Label48"
Me.Label48.Size = New System.Drawing.Size(111, 12)
Me.Label48.TabIndex = 0
Me.Label48.Text = "적용된 입력존 수:"
Me.Label48.TextAlign = System.Drawing.ContentAlignment.MiddleRight
'
'Frm_kongjo
'
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.None
@@ -921,4 +1027,8 @@ Partial Class Frm_kongjo
Friend WithEvents ToolStripSeparator2 As System.Windows.Forms.ToolStripSeparator
Friend WithEvents lb_code As System.Windows.Forms.ToolStripLabel
Friend WithEvents DataGridViewTextBoxColumn1 As System.Windows.Forms.DataGridViewTextBoxColumn
Friend WithEvents Tb_집열기방사율 As Eco2Ar.MyTb
Friend WithEvents 집열기방위ComboBox As Eco2Ar.MyCmb
Friend WithEvents Tb_집열기면적 As Eco2Ar.MyTb
Friend WithEvents 공기식태양열적용ComboBox As Eco2Ar.MyCmb
End Class

80
ArinWarev1/Forms_Input/Frm_kongjo.resx
View File

@@ -117,46 +117,19 @@
<resheader name="writer">
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<metadata name="Label169.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</metadata>
<metadata name="Label170.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</metadata>
<metadata name="Label171.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</metadata>
<metadata name="Label172.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</metadata>
<metadata name="Label173.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</metadata>
<metadata name="Label174.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</metadata>
<metadata name="Label175.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</metadata>
<metadata name="Label179.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</metadata>
<metadata name="Label178.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</metadata>
<metadata name="Label177.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<metadata name="Label7.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</metadata>
<metadata name="Label176.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</metadata>
<metadata name="Label167.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<metadata name="Label6.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</metadata>
<metadata name="Label168.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<metadata name="Label177.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</metadata>
<metadata name="Label1.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<metadata name="Label5.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</metadata>
<metadata name="Label3.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
@@ -165,13 +138,52 @@
<metadata name="Label4.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</metadata>
<metadata name="Label5.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<metadata name="Label178.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</metadata>
<metadata name="Label6.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<metadata name="Label179.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</metadata>
<metadata name="Label7.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<metadata name="Label11.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</metadata>
<metadata name="Label1.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</metadata>
<metadata name="Label174.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</metadata>
<metadata name="Label169.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</metadata>
<metadata name="Label9.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</metadata>
<metadata name="Label8.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</metadata>
<metadata name="Label175.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</metadata>
<metadata name="Label170.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</metadata>
<metadata name="Label168.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</metadata>
<metadata name="Label173.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</metadata>
<metadata name="Label10.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</metadata>
<metadata name="Label172.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</metadata>
<metadata name="Label167.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</metadata>
<metadata name="Label171.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</metadata>
<metadata name="bs.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">

23
ArinWarev1/Forms_Input/Frm_kongjo.vb
View File

@@ -272,6 +272,9 @@
Cmb_팬효율산출방식.ValueMember = "name"
Me.Cmb_팬효율산출방식.DataBindings.Add("selectedvalue", Me.bs, "팬효율산출방식")
Me.공기식태양열적용ComboBox.DataBindings.Add("Text", Me.bs, "공기식태양열적용")
Me.집열기방위ComboBox.DataBindings.Add("Text", Me.bs, "집열기방위")
End Sub
Private Sub Frm_V20091231_Zone_MouseWheel(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseWheel
If e.Delta < 0 Then
@@ -314,7 +317,19 @@
Me.Tb_배기팬동력.Enabled = False
End If
Catch ex As Exception
End Try
Try
If Me.공기식태양열적용ComboBox.SelectedIndex = 0 Then
Me.집열기방위ComboBox.Enabled = True
Me.Tb_집열기면적.Enabled = True
Me.Tb_집열기방사율.Enabled = True
Else
Me.집열기방위ComboBox.Enabled = False
Me.Tb_집열기면적.Enabled = False
Me.Tb_집열기방사율.Enabled = False
End If
Catch ex As Exception
End Try
End Sub
@@ -325,8 +340,12 @@
Try
Dim drv As DataRowView = Me.bs.Current
If drv Is Nothing Then Return
Dim drKongjo As DS.tbl_kongjoRow = CType(drv.Row, DS.tbl_kongjoRow)
Me.lb_code.Text = "[" + drv("code").ToString + "]"
공기식태양열적용ComboBox.Text = drKongjo.공기식태양열적용
집열기방위ComboBox.Text = drKongjo.집열기방위
Dim DR() As DS.tbl_zoneRow = DSET1.tbl_zone.Select("냉난방공조처리시스템='" & Drv("code").ToString & "'")
If DR.GetUpperBound(0) = -1 Then '//해당되는 데이터가없을경우
Me.tb_zone_cnt.Text = "0"
@@ -578,4 +597,8 @@
Private Sub 공조방식NCMB_SelectionChangeCommitted(sender As Object, e As System.EventArgs) Handles 공조방식NCMB.SelectionChangeCommitted
End Sub
Private Sub 공기식태양열적용ComboBox_SelectedIndexChanged(sender As System.Object, e As System.EventArgs) Handles 공기식태양열적용ComboBox.SelectedIndexChanged
Validate_Control()
End Sub
End Class

5389
ArinWarev1/Forms_Input/Frm_v20091231_Weather.Designer.vb generated
View File

File diff suppressed because it is too large Load Diff

1040
ArinWarev1/Forms_Input/Frm_v20091231_Weather.resx
View File

File diff suppressed because it is too large Load Diff

350
ArinWarev1/Forms_Input/Frm_v20091231_Weather.vb
View File

@@ -76,6 +76,12 @@ Public Class Frm_V20091231_Weather
AddHandler DSET1.weather_supdo.TableNewRow, AddressOf AddNewDataRow_Weathersupdo
AddHandler DSET1.weather_cha.TableNewRow, AddressOf AddNewDataRow_WeatherCha
AddHandler DSET1.weather_wind.TableNewRow, AddressOf AddNewDataRow_WeatherWind
AddHandler DSET1.weather_river.TableNewRow, AddressOf AddNewDataRow_WeatherRiver
AddHandler DSET1.weather_water.TableNewRow, AddressOf AddNewDataRow_WeatherWater
AddHandler DSET1.weather_group.TableNewRow, AddressOf AddNewDataRow_WeatherGrp
AddHandler dvArea1.CellContentClick, AddressOf dv_cellcontclick
@@ -88,11 +94,22 @@ Public Class Frm_V20091231_Weather
Me.bsw_supdo.DataSource = DSET1
Me.bsw_temp.DataSource = DSET1
Me.bsw_cha.DataSource = DSET1
Me.bsw_river.DataSource = DSET1
Me.bsw_water.DataSource = DSET1
Me.bsw_wind.DataSource = DSET1
Me.bsWGDep1.DataSource = DSET1
Me.bsWGDep2.DataSource = DSET1
Me.bsWGDep3.DataSource = DSET1
If bsw_water.Count = 0 Then
Dim newdr As DS.weather_waterRow = DSET1.weather_water.Newweather_waterRow()
newdr.pcode = "0"
newdr.code = "0000"
DSET1.weather_water.Addweather_waterRow(newdr)
DSET1.weather_water.AcceptChanges()
End If
'//콤보컨트롤 바인딩
Me.bn_all.BindingSource = Me.bs
Me.bs = Me.bs
@@ -124,6 +141,7 @@ Public Class Frm_V20091231_Weather
e.Row.Item("code") = GetMaxCode(DSET1.tbl_weather)
End Sub
Private Sub AddNewDataRow_Weatherilsa(ByVal sender As Object, ByVal e As System.Data.DataTableNewRowEventArgs)
If bs.Current Is Nothing Then Return
e.Row.Item("pcode") = CType(bs.Current, DataRowView)("code")
'//일사데이터는 0001로부터하게한다
@@ -138,17 +156,39 @@ Public Class Frm_V20091231_Weather
e.Row.Item("code") = Newcode
End Sub
Private Sub AddNewDataRow_Weathertemp(ByVal sender As Object, ByVal e As System.Data.DataTableNewRowEventArgs)
If bs.Current Is Nothing Then Return
e.Row.Item("pcode") = CType(bs.Current, DataRowView)("code")
e.Row.Item("code") = GetMaxCode(DSET1.weather_temp)
End Sub
Private Sub AddNewDataRow_Weathersupdo(ByVal sender As Object, ByVal e As System.Data.DataTableNewRowEventArgs)
If bs.Current Is Nothing Then Return
e.Row.Item("pcode") = CType(bs.Current, DataRowView)("code")
e.Row.Item("code") = GetMaxCode(DSET1.weather_supdo)
End Sub
Private Sub AddNewDataRow_WeatherCha(ByVal sender As Object, ByVal e As System.Data.DataTableNewRowEventArgs)
If bs.Current Is Nothing Then Return
e.Row.Item("pcode") = CType(bs.Current, DataRowView)("code")
e.Row.Item("code") = GetMaxCode(DSET1.weather_cha)
End Sub
Private Sub AddNewDataRow_WeatherWind(ByVal sender As Object, ByVal e As System.Data.DataTableNewRowEventArgs)
If bs.Current Is Nothing Then Return
e.Row.Item("pcode") = CType(bs.Current, DataRowView)("code")
e.Row.Item("code") = GetMaxCode(DSET1.weather_wind)
End Sub
Private Sub AddNewDataRow_WeatherRiver(ByVal sender As Object, ByVal e As System.Data.DataTableNewRowEventArgs)
If bs.Current Is Nothing Then Return
e.Row.Item("pcode") = CType(bs.Current, DataRowView)("code")
e.Row.Item("code") = GetMaxCode(DSET1.weather_river)
End Sub
Private Sub AddNewDataRow_WeatherWater(ByVal sender As Object, ByVal e As System.Data.DataTableNewRowEventArgs)
e.Row.Item("pcode") = "0" ' CType(bs.Current, DataRowView)("code")
e.Row.Item("code") = GetMaxCode(DSET1.weather_water)
End Sub
Private Function GetMaxCode(ByVal dt As DataTable) As String
Try
Dim Dr As DataRow = dt.Select("", "code desc")(0)
@@ -168,17 +208,28 @@ Public Class Frm_V20091231_Weather
End Sub
Private Sub bt_save_weather_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
If Not EndEdit(Me.bs) Then Return
If Not EndEdit(Me.bsw_supdo) Then Return
If Not EndEdit(Me.bsw_ilsa) Then Return
If Not EndEdit(Me.bsw_temp) Then Return
If Not EndEdit(Me.bsw_cha) Then Return
If Not EndEdit(Me.bsw_wind) Then Return
If Not EndEdit(Me.bsw_river) Then Return
If Not EndEdit(Me.bsw_water) Then Return
Check_Modify(Me.DS1.tbl_weather)
Check_Modify(Me.DS1.weather_ilsa, False)
Check_Modify(Me.DS1.weather_supdo, False)
Check_Modify(Me.DS1.weather_temp, False)
Check_Modify(Me.DS1.weather_cha, False)
Check_Modify(Me.DS1.weather_wind, False)
Check_Modify(Me.DS1.weather_river, False)
Check_Modify(Me.DS1.weather_water, False)
End Sub
Private Sub bs_CurrentChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bs.CurrentChanged
@@ -190,6 +241,9 @@ Public Class Frm_V20091231_Weather
Me.bsw_temp.Filter = "pcode='" & pcode & "'"
Me.bsw_supdo.Filter = "pcode='" & pcode & "'"
Me.bsw_cha.Filter = "pcode='" & pcode & "'"
Me.bsw_wind.Filter = "pcode='" & pcode & "'"
Me.bsw_river.Filter = "pcode='" & pcode & "'"
Me.bsw_water.Filter = ""
If DSET1.weather_temp.Select("pcode='" & pcode & "'").GetUpperBound(0) = -1 Then
For i As Integer = 1 To 12
@@ -212,8 +266,30 @@ Public Class Frm_V20091231_Weather
Else
'MsgBox(Me.bsw_supdo.Count)
End If
If DSET1.weather_wind.Select("pcode='" & pcode & "'").GetUpperBound(0) = -1 Then
Dim Dr As DS.weather_windRow = DSET1.weather_wind.Newweather_windRow()
Dr.code = "0"
Dr.설명 = ""
DSET1.weather_wind.Addweather_windRow(Dr)
Else
'MsgBox(Me.bsw_supdo.Count)
End If
If DSET1.weather_river.Select("pcode='" & pcode & "'").GetUpperBound(0) = -1 Then
Dim Dr As DS.weather_riverRow = DSET1.weather_river.Newweather_riverRow()
Dr.code = "0"
Dr.설명 = ""
DSET1.weather_river.Addweather_riverRow(Dr)
Else
'MsgBox(Me.bsw_supdo.Count)
End If
Me.DS1.weather_temp.AcceptChanges()
Me.DS1.weather_supdo.AcceptChanges()
Me.DS1.weather_river.AcceptChanges()
Me.DS1.weather_wind.AcceptChanges()
Me.DS1.weather_water.AcceptChanges()
End Sub
@@ -288,6 +364,11 @@ Public Class Frm_V20091231_Weather
DSET1.weather_supdo.RejectChanges()
DSET1.weather_temp.RejectChanges()
DSET1.weather_wind.RejectChanges()
DSET1.weather_river.RejectChanges()
DSET1.weather_water.RejectChanges()
End Sub
Private Sub tb_t1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles tb_t1.KeyDown
@@ -566,7 +647,7 @@ Public Class Frm_V20091231_Weather
e.SuppressKeyPress = False
'//클립보드붙여넣기
Dim CB() As String = My.Computer.Clipboard.GetText.Split(CChar(vbCrLf))
If CB.GetUpperBound(0) < 11 Then
If CB.GetUpperBound(0) < 12 Then
MsgBox("붙여넣기가 호환되는 데이터가 아닙니다.", MsgBoxStyle.Information, "확인")
Return
End If
@@ -578,10 +659,10 @@ Public Class Frm_V20091231_Weather
'MsgBox(CB.GetUpperBound(0))
Dim Cnt As Short = 0
For i As Integer = 0 To CB.GetUpperBound(0)
For i As Integer = 1 To CB.GetUpperBound(0)
Select Case i
Case 0 '///조명은 신규기록하지않으므로.. 쓰지않게한다.
'//Me.tb_c01.Text = CB(i).Split(CChar(vbTab))(ii).Trim
Me.tb_c01.Text = CB(i).Split(CChar(vbTab))(ii).Trim
Case 1 '///조명은 신규기록하지않으므로.. 쓰지않게한다.
Me.tb_c02.Text = CB(i).Split(CChar(vbTab))(ii).Trim
Case 2 '///조명은 신규기록하지않으므로.. 쓰지않게한다.
@@ -602,7 +683,7 @@ Public Class Frm_V20091231_Weather
Me.tb_c10.Text = CB(i).Split(CChar(vbTab))(ii).Trim
Case 10 '///조명은 신규기록하지않으므로.. 쓰지않게한다.
Me.tb_c11.Text = CB(i).Split(CChar(vbTab))(ii).Trim
Case 11 '///조명은 신규기록하지않으므로.. 쓰지않게한다.
Case 11 '///조명은 신규기록하지않으므로.. 쓰지않게한다.
Me.tb_c12.Text = CB(i).Split(CChar(vbTab))(ii).Trim
End Select
@@ -654,35 +735,33 @@ Public Class Frm_V20091231_Weather
Case 1 '///조명은 신규기록하지않으므로.. 쓰지않게한다.
Me.tb_wnaen.Text = CB(i).Split(CChar(vbTab))(ii).Trim
Case 2 '///조명은 신규기록하지않으므로.. 쓰지않게한다.
'Me.tb_c03.Text = CB(i).Split(CChar(vbTab))(ii).Trim
Case 3 '///조명은 신규기록하지않으므로.. 쓰지않게한다.
Me.tb_w01.Text = CB(i).Split(CChar(vbTab))(ii).Trim
Case 4 '///조명은 신규기록하지않으므로.. 쓰지않게한다.
Case 3 '///조명은 신규기록하지않으므로.. 쓰지않게한다.
Me.tb_w02.Text = CB(i).Split(CChar(vbTab))(ii).Trim
Case 5 '///조명은 신규기록하지않으므로.. 쓰지않게한다.
Case 4 '///조명은 신규기록하지않으므로.. 쓰지않게한다.
Me.tb_w03.Text = CB(i).Split(CChar(vbTab))(ii).Trim
Case 6 '///조명은 신규기록하지않으므로.. 쓰지않게한다.
Case 5 '///조명은 신규기록하지않으므로.. 쓰지않게한다.
Me.tb_w04.Text = CB(i).Split(CChar(vbTab))(ii).Trim
Case 7 '///조명은 신규기록하지않으므로.. 쓰지않게한다.
Case 6 '///조명은 신규기록하지않으므로.. 쓰지않게한다.
Me.tb_w05.Text = CB(i).Split(CChar(vbTab))(ii).Trim
Case 8 '///조명은 신규기록하지않으므로.. 쓰지않게한다.
Case 7 '///조명은 신규기록하지않으므로.. 쓰지않게한다.
Me.tb_w06.Text = CB(i).Split(CChar(vbTab))(ii).Trim
Case 9 '///조명은 신규기록하지않으므로.. 쓰지않게한다.
Case 8 '///조명은 신규기록하지않으므로.. 쓰지않게한다.
Me.tb_w07.Text = CB(i).Split(CChar(vbTab))(ii).Trim
Case 10 '///조명은 신규기록하지않으므로.. 쓰지않게한다.
Case 9 '///조명은 신규기록하지않으므로.. 쓰지않게한다.
Me.tb_w08.Text = CB(i).Split(CChar(vbTab))(ii).Trim
Case 11 '///조명은 신규기록하지않으므로.. 쓰지않게한다.
Case 10 '///조명은 신규기록하지않으므로.. 쓰지않게한다.
Me.tb_w09.Text = CB(i).Split(CChar(vbTab))(ii).Trim
Case 12 '///조명은 신규기록하지않으므로.. 쓰지않게한다.
Case 11 '///조명은 신규기록하지않으므로.. 쓰지않게한다.
Me.tb_w10.Text = CB(i).Split(CChar(vbTab))(ii).Trim
Case 13 '///조명은 신규기록하지않으므로.. 쓰지않게한다.
Case 12 '///조명은 신규기록하지않으므로.. 쓰지않게한다.
Me.tb_w11.Text = CB(i).Split(CChar(vbTab))(ii).Trim
Case 14 '///조명은 신규기록하지않으므로.. 쓰지않게한다.
Case 13 '///조명은 신규기록하지않으므로.. 쓰지않게한다.
Me.tb_w12.Text = CB(i).Split(CChar(vbTab))(ii).Trim
End Select
Next
If bsw_cha.Position < bsw_cha.Count Then bsw_cha.Position += 1 '//위치이동
'If bsw_cha.Position < bsw_cha.Count Then bsw_cha.Position += 1 '//위치이동
Next
Me.bsw_cha.EndEdit()
End If
@@ -753,6 +832,10 @@ Public Class Frm_V20091231_Weather
DSET1.weather_temp.Clear()
DSET1.weather_supdo.Clear()
DSET1.weather_wind.Clear()
DSET1.weather_river.Clear()
DSET1.weather_water.Clear()
Dim Rng As Excel.Range = xlSheet1.Range("B3") '//Offset으로사용할것이므로 0,0셀을 선택한다
Dim newdr0 As DS.tbl_weatherRow = DSET1.tbl_weather.NewRow
@@ -1173,6 +1256,11 @@ Public Class Frm_V20091231_Weather
'DSET1.weather_ilsa.Merge(DSET1.weather_ilsa)
'DSET1.weather_supdo.Merge(DSET1.weather_supdo)
'DSET1.weather_temp.Merge(DSET1.weather_temp)
Me.Validate()
Me.bsw_river.EndEdit()
Me.bsw_water.EndEdit()
Me.bsw_wind.EndEdit()
'모든파일을 저장한다.
Dim SelectedPath As String = AppDomain.CurrentDomain.BaseDirectory + "Data"
@@ -1182,6 +1270,9 @@ Public Class Frm_V20091231_Weather
Dim file4 As String = System.IO.Path.Combine(SelectedPath, DSET1.weather_temp.TableName + ".xml")
Dim file5 As String = System.IO.Path.Combine(SelectedPath, DSET1.tbl_weather.TableName + ".xml")
Dim file6 As String = System.IO.Path.Combine(SelectedPath, DSET1.weather_group.TableName + ".xml")
Dim file7 As String = System.IO.Path.Combine(SelectedPath, DSET1.weather_wind.TableName + ".xml")
Dim file8 As String = System.IO.Path.Combine(SelectedPath, DSET1.weather_river.TableName + ".xml")
Dim file9 As String = System.IO.Path.Combine(SelectedPath, DSET1.weather_water.TableName + ".xml")
DSET1.weather_cha.WriteXml(file1)
DSET1.weather_ilsa.WriteXml(file2)
@@ -1189,7 +1280,9 @@ Public Class Frm_V20091231_Weather
DSET1.weather_temp.WriteXml(file4)
DSET1.tbl_weather.WriteXml(file5)
DSET1.weather_group.WriteXml(file6)
DSET1.weather_wind.WriteXml(file7)
DSET1.weather_river.WriteXml(file8)
DSET1.weather_water.WriteXml(file9)
file1 = System.IO.Path.Combine(SelectedPath, DSET1.weather_cha.TableName + ".dat")
file2 = System.IO.Path.Combine(SelectedPath, DSET1.weather_ilsa.TableName + ".dat")
@@ -1197,6 +1290,9 @@ Public Class Frm_V20091231_Weather
file4 = System.IO.Path.Combine(SelectedPath, DSET1.weather_temp.TableName + ".dat")
file5 = System.IO.Path.Combine(SelectedPath, DSET1.tbl_weather.TableName + ".dat")
file6 = System.IO.Path.Combine(SelectedPath, DSET1.weather_group.TableName + ".dat")
file7 = System.IO.Path.Combine(SelectedPath, DSET1.weather_wind.TableName + ".dat")
file8 = System.IO.Path.Combine(SelectedPath, DSET1.weather_river.TableName + ".dat")
file9 = System.IO.Path.Combine(SelectedPath, DSET1.weather_water.TableName + ".dat")
'//암호화
@@ -1205,11 +1301,15 @@ Public Class Frm_V20091231_Weather
Serialize(file3, DSET1.weather_supdo)
Serialize(file4, DSET1.weather_temp)
Serialize(file5, DSET1.tbl_weather)
Serialize(file6, DSET1.weather_group)
Serialize(file7, DSET1.weather_wind)
Serialize(file8, DSET1.weather_river)
Serialize(file9, DSET1.weather_water)
Using stm As System.IO.Stream = System.IO.File.Open(file6, System.IO.FileMode.Create, System.IO.FileAccess.Write)
Dim bf As System.Runtime.Serialization.Formatters.Binary.BinaryFormatter = New System.Runtime.Serialization.Formatters.Binary.BinaryFormatter '역직렬화 후 객체 클래스로 형변환... Dim a As clsTEST = CType(bf.Deserialize(stm), clsTEST) stm.Close()
bf.Serialize(stm, DSET1.weather_group)
End Using
'Using stm As System.IO.Stream = System.IO.File.Open(file6, System.IO.FileMode.Create, System.IO.FileAccess.Write)
' Dim bf As System.Runtime.Serialization.Formatters.Binary.BinaryFormatter = New System.Runtime.Serialization.Formatters.Binary.BinaryFormatter '역직렬화 후 객체 클래스로 형변환... Dim a As clsTEST = CType(bf.Deserialize(stm), clsTEST) stm.Close()
' bf.Serialize(stm, DSET1.weather_group)
'End Using
'Serialize(file6, DSET1.weather_group)
@@ -1219,16 +1319,34 @@ Public Class Frm_V20091231_Weather
Sub Serialize(filename As String, data As Object)
Using stm As System.IO.Stream = System.IO.File.Open(filename, System.IO.FileMode.Create, System.IO.FileAccess.Write)
Dim bf As System.Runtime.Serialization.Formatters.Binary.BinaryFormatter = New System.Runtime.Serialization.Formatters.Binary.BinaryFormatter '역직렬화 후 객체 클래스로 형변환... Dim a As clsTEST = CType(bf.Deserialize(stm), clsTEST) stm.Close()
bf.Serialize(stm, data)
End Using
Dim ms As New System.IO.MemoryStream()
' Using stm As System.IO.Stream = System.IO.File.Open(filename, System.IO.FileMode.Create, System.IO.FileAccess.Write)
Dim bf As System.Runtime.Serialization.Formatters.Binary.BinaryFormatter = New System.Runtime.Serialization.Formatters.Binary.BinaryFormatter '역직렬화 후 객체 클래스로 형변환... Dim a As clsTEST = CType(bf.Deserialize(stm), clsTEST) stm.Close()
bf.Serialize(ms, data)
' End Using
Dim len As UInt32 = ms.Length
Dim bodybuf(len - 1) As Byte
Array.Copy(ms.GetBuffer(), bodybuf, len)
Dim compbuf() As Byte
Utility.MiniLZO.Compress(bodybuf, compbuf)
'Dim decombuf(bodybuf.Length - 1) As Byte
'Utility.MiniLZO.Decompress(compbuf, decombuf)
'67682 -> 304964
Dim complen As UInt32 = compbuf.Length
Dim fs As New System.IO.FileStream(filename, IO.FileMode.Create)
Dim lenbuf() As Byte = BitConverter.GetBytes(bodybuf.Length) '//read body data
fs.Write(lenbuf, 0, lenbuf.Length) 'write file length
'Dim body() As Byte = ms.GetBuffer()
fs.Write(compbuf, 0, complen) 'write body
fs.Flush()
fs.Dispose()
ms.Dispose()
End Sub
Private Sub ToolStripButton13_Click(sender As Object, e As EventArgs) Handles ToolStripButton13.Click
Dim sd As New FolderBrowserDialog()
If sd.ShowDialog() = DialogResult.OK Then
@@ -1238,6 +1356,9 @@ Public Class Frm_V20091231_Weather
DSET1.weather_supdo.Clear()
DSET1.weather_temp.Clear()
DSET1.weather_group.Clear()
DSET1.weather_wind.Clear()
DSET1.weather_river.Clear()
DSET1.weather_water.Clear()
DSET1.tbl_weather.Clear()
DSET1.weather_cha.ReadXml(System.IO.Path.Combine(sd.SelectedPath, DSET1.weather_cha.TableName + ".xml"))
@@ -1248,6 +1369,10 @@ Public Class Frm_V20091231_Weather
DSET1.weather_group.ReadXml(System.IO.Path.Combine(sd.SelectedPath, DSET1.weather_group.TableName + ".xml"))
DSET1.weather_wind.ReadXml(System.IO.Path.Combine(sd.SelectedPath, DSET1.weather_wind.TableName + ".xml"))
DSET1.weather_river.ReadXml(System.IO.Path.Combine(sd.SelectedPath, DSET1.weather_river.TableName + ".xml"))
DSET1.weather_water.ReadXml(System.IO.Path.Combine(sd.SelectedPath, DSET1.weather_water.TableName + ".xml"))
'//od는 od 데이터에 다시 옴겨야한다
DSET1.weather_cha.AcceptChanges()
@@ -1258,8 +1383,177 @@ Public Class Frm_V20091231_Weather
DSET1.weather_group.AcceptChanges()
DSET1.weather_wind.AcceptChanges()
DSET1.weather_river.AcceptChanges()
DSET1.weather_water.AcceptChanges()
End If
End Sub
Private Sub MyTb33_KeyDown(sender As System.Object, e As System.Windows.Forms.KeyEventArgs) Handles tbw01.KeyDown
If e.KeyCode = Keys.V And e.Control Then
e.Handled = True
e.SuppressKeyPress = False
'//클립보드붙여넣기
Dim CB() As String = My.Computer.Clipboard.GetText.Split(CChar(vbCrLf))
If CB.GetUpperBound(0) < 12 Then
MsgBox("붙여넣기가 호환되는 데이터가 아닙니다.", MsgBoxStyle.Information, "확인")
Return
End If
For ii As Integer = 0 To CType(CB(0).Split(CChar(vbTab)), String()).GetUpperBound(0)
'If Me.bs.Count = 0 OrElse ii > 0 Then Me.bt_Add.PerformClick() '//한줄추가
'MsgBox(CB.GetUpperBound(0))
Dim Cnt As Short = 0
For i As Integer = 1 To CB.GetUpperBound(0)
Select Case i
Case 1 '///조명은 신규기록하지않으므로.. 쓰지않게한다.
Me.tbw01.Text = CB(i).Split(CChar(vbTab))(ii).Trim
Case 2 '///조명은 신규기록하지않으므로.. 쓰지않게한다.
Me.tbw02.Text = CB(i).Split(CChar(vbTab))(ii).Trim
Case 3 '///조명은 신규기록하지않으므로.. 쓰지않게한다.
Me.tbw03.Text = CB(i).Split(CChar(vbTab))(ii).Trim
Case 4 '///조명은 신규기록하지않으므로.. 쓰지않게한다.
Me.tbw04.Text = CB(i).Split(CChar(vbTab))(ii).Trim
Case 5 '///조명은 신규기록하지않으므로.. 쓰지않게한다.
Me.tbw05.Text = CB(i).Split(CChar(vbTab))(ii).Trim
Case 6 '///조명은 신규기록하지않으므로.. 쓰지않게한다.
Me.tbw06.Text = CB(i).Split(CChar(vbTab))(ii).Trim
Case 7 '///조명은 신규기록하지않으므로.. 쓰지않게한다.
Me.tbw07.Text = CB(i).Split(CChar(vbTab))(ii).Trim
Case 8 '///조명은 신규기록하지않으므로.. 쓰지않게한다.
Me.tbw08.Text = CB(i).Split(CChar(vbTab))(ii).Trim
Case 9 '///조명은 신규기록하지않으므로.. 쓰지않게한다.
Me.tbw09.Text = CB(i).Split(CChar(vbTab))(ii).Trim
Case 10 '///조명은 신규기록하지않으므로.. 쓰지않게한다.
Me.tbw10.Text = CB(i).Split(CChar(vbTab))(ii).Trim
Case 11 '///조명은 신규기록하지않으므로.. 쓰지않게한다.
Me.tbw11.Text = CB(i).Split(CChar(vbTab))(ii).Trim
Case 12 '///조명은 신규기록하지않으므로.. 쓰지않게한다.
Me.tbw12.Text = CB(i).Split(CChar(vbTab))(ii).Trim
End Select
Next
'//If bsw_cha.Position < bsw_cha.Count Then bsw_cha.Position += 1 '//위치이동
Next
Me.bsw_water.EndEdit()
End If
End Sub
Private Sub MyTb21_KeyDown(sender As System.Object, e As System.Windows.Forms.KeyEventArgs) Handles tbr01.KeyDown
''river
If e.KeyCode = Keys.V And e.Control Then
e.Handled = True
e.SuppressKeyPress = False
'//클립보드붙여넣기
Dim CB() As String = My.Computer.Clipboard.GetText.Split(CChar(vbCrLf))
If CB.GetUpperBound(0) < 12 Then
MsgBox("붙여넣기가 호환되는 데이터가 아닙니다.", MsgBoxStyle.Information, "확인")
Return
End If
For ii As Integer = 0 To CType(CB(0).Split(CChar(vbTab)), String()).GetUpperBound(0)
'If Me.bs.Count = 0 OrElse ii > 0 Then Me.bt_Add.PerformClick() '//한줄추가
'MsgBox(CB.GetUpperBound(0))
Dim Cnt As Short = 0
For i As Integer = 1 To CB.GetUpperBound(0)
Select Case i
Case 1 '///조명은 신규기록하지않으므로.. 쓰지않게한다.
Me.tbr01.Text = CB(i).Split(CChar(vbTab))(ii).Trim
Case 2 '///조명은 신규기록하지않으므로.. 쓰지않게한다.
Me.tbr02.Text = CB(i).Split(CChar(vbTab))(ii).Trim
Case 3 '///조명은 신규기록하지않으므로.. 쓰지않게한다.
Me.tbr03.Text = CB(i).Split(CChar(vbTab))(ii).Trim
Case 4 '///조명은 신규기록하지않으므로.. 쓰지않게한다.
Me.tbr04.Text = CB(i).Split(CChar(vbTab))(ii).Trim
Case 5 '///조명은 신규기록하지않으므로.. 쓰지않게한다.
Me.tbr05.Text = CB(i).Split(CChar(vbTab))(ii).Trim
Case 6 '///조명은 신규기록하지않으므로.. 쓰지않게한다.
Me.tbr06.Text = CB(i).Split(CChar(vbTab))(ii).Trim
Case 7 '///조명은 신규기록하지않으므로.. 쓰지않게한다.
Me.tbr07.Text = CB(i).Split(CChar(vbTab))(ii).Trim
Case 8 '///조명은 신규기록하지않으므로.. 쓰지않게한다.
Me.tbr08.Text = CB(i).Split(CChar(vbTab))(ii).Trim
Case 9 '///조명은 신규기록하지않으므로.. 쓰지않게한다.
Me.tbr09.Text = CB(i).Split(CChar(vbTab))(ii).Trim
Case 10 '///조명은 신규기록하지않으므로.. 쓰지않게한다.
Me.tbr10.Text = CB(i).Split(CChar(vbTab))(ii).Trim
Case 11 '///조명은 신규기록하지않으므로.. 쓰지않게한다.
Me.tbr11.Text = CB(i).Split(CChar(vbTab))(ii).Trim
Case 12 '///조명은 신규기록하지않으므로.. 쓰지않게한다.
Me.tbr12.Text = CB(i).Split(CChar(vbTab))(ii).Trim
End Select
Next
'//If bsw_cha.Position < bsw_cha.Count Then bsw_cha.Position += 1 '//위치이동
Next
Me.bsw_river.EndEdit()
End If
End Sub
Private Sub MyTb9_KeyDown(sender As System.Object, e As System.Windows.Forms.KeyEventArgs) Handles tbwi01.KeyDown
''wind\
If e.KeyCode = Keys.V And e.Control Then
e.Handled = True
e.SuppressKeyPress = False
'//클립보드붙여넣기
Dim CB() As String = My.Computer.Clipboard.GetText.Split(CChar(vbCrLf))
If CB.GetUpperBound(0) < 12 Then
MsgBox("붙여넣기가 호환되는 데이터가 아닙니다.", MsgBoxStyle.Information, "확인")
Return
End If
For ii As Integer = 0 To CType(CB(0).Split(CChar(vbTab)), String()).GetUpperBound(0)
'If Me.bs.Count = 0 OrElse ii > 0 Then Me.bt_Add.PerformClick() '//한줄추가
'MsgBox(CB.GetUpperBound(0))
Dim Cnt As Short = 0
For i As Integer = 1 To CB.GetUpperBound(0)
Select Case i
Case 1 '///조명은 신규기록하지않으므로.. 쓰지않게한다.
Me.tbwi01.Text = CB(i).Split(CChar(vbTab))(ii).Trim
Case 2 '///조명은 신규기록하지않으므로.. 쓰지않게한다.
Me.tbwi02.Text = CB(i).Split(CChar(vbTab))(ii).Trim
Case 3 '///조명은 신규기록하지않으므로.. 쓰지않게한다.
Me.tbwi03.Text = CB(i).Split(CChar(vbTab))(ii).Trim
Case 4 '///조명은 신규기록하지않으므로.. 쓰지않게한다.
Me.tbwi04.Text = CB(i).Split(CChar(vbTab))(ii).Trim
Case 5 '///조명은 신규기록하지않으므로.. 쓰지않게한다.
Me.tbwi05.Text = CB(i).Split(CChar(vbTab))(ii).Trim
Case 6 '///조명은 신규기록하지않으므로.. 쓰지않게한다.
Me.tbwi06.Text = CB(i).Split(CChar(vbTab))(ii).Trim
Case 7 '///조명은 신규기록하지않으므로.. 쓰지않게한다.
Me.tbwi07.Text = CB(i).Split(CChar(vbTab))(ii).Trim
Case 8 '///조명은 신규기록하지않으므로.. 쓰지않게한다.
Me.tbwi08.Text = CB(i).Split(CChar(vbTab))(ii).Trim
Case 9 '///조명은 신규기록하지않으므로.. 쓰지않게한다.
Me.tbwi09.Text = CB(i).Split(CChar(vbTab))(ii).Trim
Case 10 '///조명은 신규기록하지않으므로.. 쓰지않게한다.
Me.tbwi10.Text = CB(i).Split(CChar(vbTab))(ii).Trim
Case 11 '///조명은 신규기록하지않으므로.. 쓰지않게한다.
Me.tbwi11.Text = CB(i).Split(CChar(vbTab))(ii).Trim
Case 12 '///조명은 신규기록하지않으므로.. 쓰지않게한다.
Me.tbwi12.Text = CB(i).Split(CChar(vbTab))(ii).Trim
End Select
Next
'//If bsw_cha.Position < bsw_cha.Count Then bsw_cha.Position += 1 '//위치이동
Next
Me.bsw_wind.EndEdit()
End If
End Sub
End Class

6
ArinWarev1/Forms_Input/Frm_v20091231_profile.vb
View File

@@ -97,6 +97,12 @@
Me.SplitContainer1.Panel2.Enabled = False
Me.bn_all.Visible = False
End If
If System.Diagnostics.Debugger.IsAttached Then
Me.bn_all.Visible = True
Me.SplitContainer1.Panel2.Enabled = True
End If
AddDebug("▲ Form Load")
End Sub