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

initial commit

Browse Source
This commit is contained in:
Chikyun
2019-10-24 21:24:21 +09:00
commit 376f7d9de0
544 changed files with 295019 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

959
ArinWarev1/Forms_Input/Frm_Bunbae.Designer.vb generated Normal file
View File

@@ -0,0 +1,959 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class Frm_Bunbae
Inherits CForm
'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.components = New System.ComponentModel.Container()
Dim Label1 As System.Windows.Forms.Label
Dim Label2 As System.Windows.Forms.Label
Dim Label3 As System.Windows.Forms.Label
Dim Label4 As System.Windows.Forms.Label
Dim Label19 As System.Windows.Forms.Label
Dim Label22 As System.Windows.Forms.Label
Dim Label23 As System.Windows.Forms.Label
Dim Label24 As System.Windows.Forms.Label
Dim Label25 As System.Windows.Forms.Label
Dim Label26 As System.Windows.Forms.Label
Dim Label27 As System.Windows.Forms.Label
Dim Label28 As System.Windows.Forms.Label
Dim Label29 As System.Windows.Forms.Label
Dim Label30 As System.Windows.Forms.Label
Dim Label31 As System.Windows.Forms.Label
Dim Label32 As System.Windows.Forms.Label
Dim Label33 As System.Windows.Forms.Label
Dim Label34 As System.Windows.Forms.Label
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(Frm_Bunbae))
Me.bs = New System.Windows.Forms.BindingSource(Me.components)
Me.DS = New Eco2Ar.DS()
Me.GroupBox2 = New System.Windows.Forms.GroupBox()
Me.설정점에서의온도차NTb = New Eco2Ar.MyTb()
Me.Label6 = New System.Windows.Forms.Label()
Me.제어밸브압력손실NTb = New Eco2Ar.MyTb()
Me.펌프동력NTb1 = New Eco2Ar.MyTb()
Me.사용기기압력손실NTb = New Eco2Ar.MyTb()
Me.개별저항비율NTb = New Eco2Ar.MyTb()
Me.생산기기압력손실NTb = New Eco2Ar.MyTb()
Me.배관의압력손실NTb = New Eco2Ar.MyTb()
Me.공급범위의길이NTb = New Eco2Ar.MyTb()
Me.공급범위의넓이NTb = New Eco2Ar.MyTb()
Me.층고NTb1 = New Eco2Ar.MyTb()
Me.펌프운전제어유무ComboBox = New Eco2Ar.MyCmb()
Me.열층의수NTb = New Eco2Ar.MyTb()
Me.급수온도NTb = New Eco2Ar.MyTb()
Me.환수온도NTb = New Eco2Ar.MyTb()
Me.PictureBox3 = New System.Windows.Forms.PictureBox()
Me.GroupBox3 = New System.Windows.Forms.GroupBox()
Me.Label7 = New System.Windows.Forms.Label()
Me.냉매의점도NTb = New Eco2Ar.MyTb()
Me.냉매방식ComboBox = New Eco2Ar.MyCmb()
Me.냉매의밀도NTb = New Eco2Ar.MyTb()
Me.냉매의비열NTb = New Eco2Ar.MyTb()
Me.PictureBox2 = New System.Windows.Forms.PictureBox()
Me.SplitContainer1 = New System.Windows.Forms.SplitContainer()
Me.dv = New CEnergy.arindv()
Me.bn = New System.Windows.Forms.BindingNavigator(Me.components)
Me.lbl_count = New System.Windows.Forms.ToolStripLabel()
Me.bt_add = New System.Windows.Forms.ToolStripButton()
Me.bt_Del = New System.Windows.Forms.ToolStripButton()
Me.bt_cancel = New System.Windows.Forms.ToolStripButton()
Me.ToolStripSeparator1 = New System.Windows.Forms.ToolStripSeparator()
Me.lbl_pos = New System.Windows.Forms.ToolStripLabel()
Me.ToolStripSeparator2 = New System.Windows.Forms.ToolStripSeparator()
Me.lb_code = New System.Windows.Forms.ToolStripLabel()
Me.Label8 = New System.Windows.Forms.Label()
Me.PictureBox5 = New System.Windows.Forms.PictureBox()
Me.Label15 = New System.Windows.Forms.Label()
Me.PictureBox4 = New System.Windows.Forms.PictureBox()
Me.GroupBox4 = New System.Windows.Forms.GroupBox()
Me.GroupBox1 = New System.Windows.Forms.GroupBox()
Me.Label21 = New System.Windows.Forms.Label()
Me.냉동기ComboBox = New Eco2Ar.MyCmb()
Me.PictureBox1 = New System.Windows.Forms.PictureBox()
Me.DataGridViewTextBoxColumn1 = New System.Windows.Forms.DataGridViewTextBoxColumn()
Label1 = New System.Windows.Forms.Label()
Label2 = New System.Windows.Forms.Label()
Label3 = New System.Windows.Forms.Label()
Label4 = New System.Windows.Forms.Label()
Label19 = New System.Windows.Forms.Label()
Label22 = New System.Windows.Forms.Label()
Label23 = New System.Windows.Forms.Label()
Label24 = New System.Windows.Forms.Label()
Label25 = New System.Windows.Forms.Label()
Label26 = New System.Windows.Forms.Label()
Label27 = New System.Windows.Forms.Label()
Label28 = New System.Windows.Forms.Label()
Label29 = New System.Windows.Forms.Label()
Label30 = New System.Windows.Forms.Label()
Label31 = New System.Windows.Forms.Label()
Label32 = New System.Windows.Forms.Label()
Label33 = New System.Windows.Forms.Label()
Label34 = New System.Windows.Forms.Label()
CType(Me.bs, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.DS, System.ComponentModel.ISupportInitialize).BeginInit()
Me.GroupBox2.SuspendLayout()
CType(Me.PictureBox3, System.ComponentModel.ISupportInitialize).BeginInit()
Me.GroupBox3.SuspendLayout()
CType(Me.PictureBox2, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.SplitContainer1, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SplitContainer1.Panel1.SuspendLayout()
Me.SplitContainer1.Panel2.SuspendLayout()
Me.SplitContainer1.SuspendLayout()
CType(Me.dv, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.bn, System.ComponentModel.ISupportInitialize).BeginInit()
Me.bn.SuspendLayout()
CType(Me.PictureBox5, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.PictureBox4, System.ComponentModel.ISupportInitialize).BeginInit()
Me.GroupBox4.SuspendLayout()
Me.GroupBox1.SuspendLayout()
CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SuspendLayout()
'
'Label1
'
Label1.AutoSize = True
Label1.BackColor = System.Drawing.Color.FromArgb(CType(CType(243, Byte), Integer), CType(CType(244, Byte), Integer), CType(CType(246, Byte), Integer))
Label1.ForeColor = System.Drawing.SystemColors.ControlDarkDark
Label1.Location = New System.Drawing.Point(22, 42)
Label1.Name = "Label1"
Label1.Size = New System.Drawing.Size(92, 12)
Label1.TabIndex = 149
Label1.Text = "1.사용된 방식:"
'
'Label2
'
Label2.AutoSize = True
Label2.BackColor = System.Drawing.Color.FromArgb(CType(CType(243, Byte), Integer), CType(CType(244, Byte), Integer), CType(CType(246, Byte), Integer))
Label2.ForeColor = System.Drawing.SystemColors.ControlDarkDark
Label2.Location = New System.Drawing.Point(285, 42)
Label2.Name = "Label2"
Label2.Size = New System.Drawing.Size(93, 12)
Label2.TabIndex = 150
Label2.Text = "2. 비 열:"
'
'Label3
'
Label3.AutoSize = True
Label3.BackColor = System.Drawing.Color.FromArgb(CType(CType(243, Byte), Integer), CType(CType(244, Byte), Integer), CType(CType(246, Byte), Integer))
Label3.ForeColor = System.Drawing.SystemColors.ControlDarkDark
Label3.Location = New System.Drawing.Point(22, 71)
Label3.Name = "Label3"
Label3.Size = New System.Drawing.Size(93, 12)
Label3.TabIndex = 151
Label3.Text = "3. 밀 도:"
'
'Label4
'
Label4.AutoSize = True
Label4.BackColor = System.Drawing.Color.FromArgb(CType(CType(243, Byte), Integer), CType(CType(244, Byte), Integer), CType(CType(246, Byte), Integer))
Label4.ForeColor = System.Drawing.SystemColors.ControlDarkDark
Label4.Location = New System.Drawing.Point(285, 71)
Label4.Name = "Label4"
Label4.Size = New System.Drawing.Size(93, 12)
Label4.TabIndex = 152
Label4.Text = "4. 점 도:"
'
'Label19
'
Label19.AutoSize = True
Label19.BackColor = System.Drawing.Color.FromArgb(CType(CType(219, Byte), Integer), CType(CType(221, Byte), Integer), CType(CType(223, Byte), Integer))
Label19.ForeColor = System.Drawing.SystemColors.ControlDarkDark
Label19.Location = New System.Drawing.Point(10, 45)
Label19.Name = "Label19"
Label19.Size = New System.Drawing.Size(149, 12)
Label19.TabIndex = 132
Label19.Text = "1.펌프운전의 제어 유무:"
'
'Label22
'
Label22.AutoSize = True
Label22.BackColor = System.Drawing.Color.FromArgb(CType(CType(219, Byte), Integer), CType(CType(221, Byte), Integer), CType(CType(223, Byte), Integer))
Label22.ForeColor = System.Drawing.SystemColors.ControlDarkDark
Label22.Location = New System.Drawing.Point(277, 210)
Label22.Name = "Label22"
Label22.Size = New System.Drawing.Size(176, 12)
Label22.TabIndex = 145
Label22.Text = "14.제어밸브 압력손실[kPa]:"
'
'Label23
'
Label23.AutoSize = True
Label23.BackColor = System.Drawing.Color.FromArgb(CType(CType(219, Byte), Integer), CType(CType(221, Byte), Integer), CType(CType(223, Byte), Integer))
Label23.ForeColor = System.Drawing.SystemColors.ControlDarkDark
Label23.Location = New System.Drawing.Point(10, 72)
Label23.Name = "Label23"
Label23.Size = New System.Drawing.Size(113, 12)
Label23.TabIndex = 133
Label23.Text = "2.급 수 온 도[C]:"
'
'Label24
'
Label24.AutoSize = True
Label24.BackColor = System.Drawing.Color.FromArgb(CType(CType(219, Byte), Integer), CType(CType(221, Byte), Integer), CType(CType(223, Byte), Integer))
Label24.ForeColor = System.Drawing.SystemColors.ControlDarkDark
Label24.Location = New System.Drawing.Point(277, 181)
Label24.Name = "Label24"
Label24.Size = New System.Drawing.Size(176, 12)
Label24.TabIndex = 144
Label24.Text = "13.사용기기 압력손실[kPa]:"
'
'Label25
'
Label25.AutoSize = True
Label25.BackColor = System.Drawing.Color.FromArgb(CType(CType(219, Byte), Integer), CType(CType(221, Byte), Integer), CType(CType(223, Byte), Integer))
Label25.ForeColor = System.Drawing.SystemColors.ControlDarkDark
Label25.Location = New System.Drawing.Point(10, 98)
Label25.Name = "Label25"
Label25.Size = New System.Drawing.Size(113, 12)
Label25.TabIndex = 134
Label25.Text = "3.환 수 온 도[C]:"
'
'Label26
'
Label26.AutoSize = True
Label26.BackColor = System.Drawing.Color.FromArgb(CType(CType(219, Byte), Integer), CType(CType(221, Byte), Integer), CType(CType(223, Byte), Integer))
Label26.ForeColor = System.Drawing.SystemColors.ControlDarkDark
Label26.Location = New System.Drawing.Point(276, 153)
Label26.Name = "Label26"
Label26.Size = New System.Drawing.Size(176, 12)
Label26.TabIndex = 143
Label26.Text = "12.생산기기 압력손실[kPa]:"
'
'Label27
'
Label27.AutoSize = True
Label27.BackColor = System.Drawing.Color.FromArgb(CType(CType(219, Byte), Integer), CType(CType(221, Byte), Integer), CType(CType(223, Byte), Integer))
Label27.ForeColor = System.Drawing.SystemColors.ControlDarkDark
Label27.Location = New System.Drawing.Point(10, 124)
Label27.Name = "Label27"
Label27.Size = New System.Drawing.Size(144, 12)
Label27.TabIndex = 135
Label27.Text = "4.설정점에서의 온도차:"
'
'Label28
'
Label28.AutoSize = True
Label28.BackColor = System.Drawing.Color.FromArgb(CType(CType(219, Byte), Integer), CType(CType(221, Byte), Integer), CType(CType(223, Byte), Integer))
Label28.ForeColor = System.Drawing.SystemColors.ControlDarkDark
Label28.Location = New System.Drawing.Point(278, 125)
Label28.Name = "Label28"
Label28.Size = New System.Drawing.Size(169, 12)
Label28.TabIndex = 142
Label28.Text = "11.층 고[m]:"
'
'Label29
'
Label29.AutoSize = True
Label29.BackColor = System.Drawing.Color.FromArgb(CType(CType(219, Byte), Integer), CType(CType(221, Byte), Integer), CType(CType(223, Byte), Integer))
Label29.ForeColor = System.Drawing.SystemColors.ControlDarkDark
Label29.Location = New System.Drawing.Point(276, 98)
Label29.Name = "Label29"
Label29.Size = New System.Drawing.Size(161, 12)
Label29.TabIndex = 141
Label29.Text = "10.열을 공급하는 층의 수:"
'
'Label30
'
Label30.AutoSize = True
Label30.BackColor = System.Drawing.Color.FromArgb(CType(CType(219, Byte), Integer), CType(CType(221, Byte), Integer), CType(CType(223, Byte), Integer))
Label30.ForeColor = System.Drawing.SystemColors.ControlDarkDark
Label30.Location = New System.Drawing.Point(285, 70)
Label30.Name = "Label30"
Label30.Size = New System.Drawing.Size(142, 12)
Label30.TabIndex = 140
Label30.Text = "9.공급범위의 너비[m]:"
'
'Label31
'
Label31.AutoSize = True
Label31.BackColor = System.Drawing.Color.FromArgb(CType(CType(219, Byte), Integer), CType(CType(221, Byte), Integer), CType(CType(223, Byte), Integer))
Label31.ForeColor = System.Drawing.SystemColors.ControlDarkDark
Label31.Location = New System.Drawing.Point(285, 42)
Label31.Name = "Label31"
Label31.Size = New System.Drawing.Size(142, 12)
Label31.TabIndex = 139
Label31.Text = "8.공급범위의 길이[m]:"
'
'Label32
'
Label32.AutoSize = True
Label32.BackColor = System.Drawing.Color.FromArgb(CType(CType(219, Byte), Integer), CType(CType(221, Byte), Integer), CType(CType(223, Byte), Integer))
Label32.ForeColor = System.Drawing.SystemColors.ControlDarkDark
Label32.Location = New System.Drawing.Point(10, 206)
Label32.Name = "Label32"
Label32.Size = New System.Drawing.Size(114, 12)
Label32.TabIndex = 138
Label32.Text = "7.펌 프 동 력[W]:"
'
'Label33
'
Label33.AutoSize = True
Label33.BackColor = System.Drawing.Color.FromArgb(CType(CType(219, Byte), Integer), CType(CType(221, Byte), Integer), CType(CType(223, Byte), Integer))
Label33.ForeColor = System.Drawing.SystemColors.ControlDarkDark
Label33.Location = New System.Drawing.Point(10, 178)
Label33.Name = "Label33"
Label33.Size = New System.Drawing.Size(126, 12)
Label33.TabIndex = 137
Label33.Text = "6.개별저항 비율[-]:"
'
'Label34
'
Label34.AutoSize = True
Label34.BackColor = System.Drawing.Color.FromArgb(CType(CType(219, Byte), Integer), CType(CType(221, Byte), Integer), CType(CType(223, Byte), Integer))
Label34.ForeColor = System.Drawing.SystemColors.ControlDarkDark
Label34.Location = New System.Drawing.Point(10, 150)
Label34.Name = "Label34"
Label34.Size = New System.Drawing.Size(160, 12)
Label34.TabIndex = 136
Label34.Text = "5.배관 압력손실[kPa/m]:"
'
'bs
'
Me.bs.DataMember = "tbl_bunbae"
Me.bs.DataSource = Me.DS
Me.bs.Filter = "code <> '0'"
'
'DS
'
Me.DS.DataSetName = "DS"
Me.DS.SchemaSerializationMode = System.Data.SchemaSerializationMode.IncludeSchema
'
'GroupBox2
'
Me.GroupBox2.Controls.Add(Me.설정점에서의온도차NTb)
Me.GroupBox2.Controls.Add(Me.Label6)
Me.GroupBox2.Controls.Add(Label19)
Me.GroupBox2.Controls.Add(Label22)
Me.GroupBox2.Controls.Add(Label23)
Me.GroupBox2.Controls.Add(Label24)
Me.GroupBox2.Controls.Add(Label25)
Me.GroupBox2.Controls.Add(Label26)
Me.GroupBox2.Controls.Add(Label27)
Me.GroupBox2.Controls.Add(Label28)
Me.GroupBox2.Controls.Add(Label29)
Me.GroupBox2.Controls.Add(Label30)
Me.GroupBox2.Controls.Add(Label31)
Me.GroupBox2.Controls.Add(Label32)
Me.GroupBox2.Controls.Add(Label33)
Me.GroupBox2.Controls.Add(Label34)
Me.GroupBox2.Controls.Add(Me.제어밸브압력손실NTb)
Me.GroupBox2.Controls.Add(Me.펌프동력NTb1)
Me.GroupBox2.Controls.Add(Me.사용기기압력손실NTb)
Me.GroupBox2.Controls.Add(Me.개별저항비율NTb)
Me.GroupBox2.Controls.Add(Me.생산기기압력손실NTb)
Me.GroupBox2.Controls.Add(Me.배관의압력손실NTb)
Me.GroupBox2.Controls.Add(Me.공급범위의길이NTb)
Me.GroupBox2.Controls.Add(Me.공급범위의넓이NTb)
Me.GroupBox2.Controls.Add(Me.층고NTb1)
Me.GroupBox2.Controls.Add(Me.펌프운전제어유무ComboBox)
Me.GroupBox2.Controls.Add(Me.열층의수NTb)
Me.GroupBox2.Controls.Add(Me.급수온도NTb)
Me.GroupBox2.Controls.Add(Me.환수온도NTb)
Me.GroupBox2.Controls.Add(Me.PictureBox3)
Me.GroupBox2.Location = New System.Drawing.Point(10, 123)
Me.GroupBox2.Name = "GroupBox2"
Me.GroupBox2.Size = New System.Drawing.Size(562, 238)
Me.GroupBox2.TabIndex = 143
Me.GroupBox2.TabStop = False
'
'설정점에서의온도차NTb
'
Me.설정점에서의온도차NTb.BackColor = System.Drawing.Color.DarkGray
Me.설정점에서의온도차NTb.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bs, "설정점에서의온도차", True))
Me.설정점에서의온도차NTb.Location = New System.Drawing.Point(175, 118)
Me.설정점에서의온도차NTb.Name = "설정점에서의온도차NTb"
Me.설정점에서의온도차NTb.NectControl = Nothing
Me.설정점에서의온도차NTb.Size = New System.Drawing.Size(87, 21)
Me.설정점에서의온도차NTb.TabIndex = 8
Me.설정점에서의온도차NTb.TabStop = False
Me.설정점에서의온도차NTb.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
Me.설정점에서의온도차NTb.TextFormat = Eco2Ar.MyTb.ETFormat.Normal
'
'Label6
'
Me.Label6.AutoSize = True
Me.Label6.BackColor = System.Drawing.Color.FromArgb(CType(CType(219, Byte), Integer), CType(CType(221, Byte), Integer), CType(CType(223, Byte), Integer))
Me.Label6.Location = New System.Drawing.Point(10, 17)
Me.Label6.Name = "Label6"
Me.Label6.Size = New System.Drawing.Size(71, 12)
Me.Label6.TabIndex = 153
Me.Label6.Text = "[기타정보]"
'
'제어밸브압력손실NTb
'
Me.제어밸브압력손실NTb.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bs, "제어밸브압력손실", True))
Me.제어밸브압력손실NTb.Location = New System.Drawing.Point(463, 206)
Me.제어밸브압력손실NTb.Name = "제어밸브압력손실NTb"
Me.제어밸브압력손실NTb.NectControl = Nothing
Me.제어밸브압력손실NTb.Size = New System.Drawing.Size(75, 21)
Me.제어밸브압력손실NTb.TabIndex = 18
Me.제어밸브압력손실NTb.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
Me.제어밸브압력손실NTb.TextFormat = Eco2Ar.MyTb.ETFormat.Normal
'
'펌프동력NTb1
'
Me.펌프동력NTb1.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bs, "펌프동력", True))
Me.펌프동력NTb1.Location = New System.Drawing.Point(175, 202)
Me.펌프동력NTb1.Name = "펌프동력NTb1"
Me.펌프동력NTb1.NectControl = Nothing
Me.펌프동력NTb1.Size = New System.Drawing.Size(87, 21)
Me.펌프동력NTb1.TabIndex = 11
Me.펌프동력NTb1.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
Me.펌프동력NTb1.TextFormat = Eco2Ar.MyTb.ETFormat.Normal
'
'사용기기압력손실NTb
'
Me.사용기기압력손실NTb.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bs, "사용기기압력손실", True))
Me.사용기기압력손실NTb.Location = New System.Drawing.Point(463, 178)
Me.사용기기압력손실NTb.Name = "사용기기압력손실NTb"
Me.사용기기압력손실NTb.NectControl = Nothing
Me.사용기기압력손실NTb.Size = New System.Drawing.Size(75, 21)
Me.사용기기압력손실NTb.TabIndex = 17
Me.사용기기압력손실NTb.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
Me.사용기기압력손실NTb.TextFormat = Eco2Ar.MyTb.ETFormat.Normal
'
'개별저항비율NTb
'
Me.개별저항비율NTb.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bs, "개별저항비율", True))
Me.개별저항비율NTb.Location = New System.Drawing.Point(175, 174)
Me.개별저항비율NTb.Name = "개별저항비율NTb"
Me.개별저항비율NTb.NectControl = Nothing
Me.개별저항비율NTb.Size = New System.Drawing.Size(87, 21)
Me.개별저항비율NTb.TabIndex = 10
Me.개별저항비율NTb.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
Me.개별저항비율NTb.TextFormat = Eco2Ar.MyTb.ETFormat.Normal
'
'생산기기압력손실NTb
'
Me.생산기기압력손실NTb.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bs, "생산기기압력손실", True))
Me.생산기기압력손실NTb.Location = New System.Drawing.Point(463, 150)
Me.생산기기압력손실NTb.Name = "생산기기압력손실NTb"
Me.생산기기압력손실NTb.NectControl = Nothing
Me.생산기기압력손실NTb.Size = New System.Drawing.Size(75, 21)
Me.생산기기압력손실NTb.TabIndex = 16
Me.생산기기압력손실NTb.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
Me.생산기기압력손실NTb.TextFormat = Eco2Ar.MyTb.ETFormat.Normal
'
'배관의압력손실NTb
'
Me.배관의압력손실NTb.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bs, "배관의압력손실", True))
Me.배관의압력손실NTb.Location = New System.Drawing.Point(175, 146)
Me.배관의압력손실NTb.Name = "배관의압력손실NTb"
Me.배관의압력손실NTb.NectControl = Nothing
Me.배관의압력손실NTb.Size = New System.Drawing.Size(87, 21)
Me.배관의압력손실NTb.TabIndex = 9
Me.배관의압력손실NTb.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
Me.배관의압력손실NTb.TextFormat = Eco2Ar.MyTb.ETFormat.Normal
'
'공급범위의길이NTb
'
Me.공급범위의길이NTb.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bs, "공급범위의길이", True))
Me.공급범위의길이NTb.Location = New System.Drawing.Point(463, 38)
Me.공급범위의길이NTb.Name = "공급범위의길이NTb"
Me.공급범위의길이NTb.NectControl = Nothing
Me.공급범위의길이NTb.Size = New System.Drawing.Size(75, 21)
Me.공급범위의길이NTb.TabIndex = 12
Me.공급범위의길이NTb.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
Me.공급범위의길이NTb.TextFormat = Eco2Ar.MyTb.ETFormat.Normal
'
'공급범위의넓이NTb
'
Me.공급범위의넓이NTb.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bs, "공급범위의넓이", True))
Me.공급범위의넓이NTb.Location = New System.Drawing.Point(463, 66)
Me.공급범위의넓이NTb.Name = "공급범위의넓이NTb"
Me.공급범위의넓이NTb.NectControl = Nothing
Me.공급범위의넓이NTb.Size = New System.Drawing.Size(75, 21)
Me.공급범위의넓이NTb.TabIndex = 13
Me.공급범위의넓이NTb.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
Me.공급범위의넓이NTb.TextFormat = Eco2Ar.MyTb.ETFormat.Normal
'
'층고NTb1
'
Me.층고NTb1.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bs, "층고", True))
Me.층고NTb1.Location = New System.Drawing.Point(463, 122)
Me.층고NTb1.Name = "층고NTb1"
Me.층고NTb1.NectControl = Nothing
Me.층고NTb1.Size = New System.Drawing.Size(75, 21)
Me.층고NTb1.TabIndex = 15
Me.층고NTb1.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
Me.층고NTb1.TextFormat = Eco2Ar.MyTb.ETFormat.Normal
'
'펌프운전제어유무ComboBox
'
Me.펌프운전제어유무ComboBox.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
Me.펌프운전제어유무ComboBox.FormattingEnabled = True
Me.펌프운전제어유무ComboBox.Location = New System.Drawing.Point(175, 38)
Me.펌프운전제어유무ComboBox.Name = "펌프운전제어유무ComboBox"
Me.펌프운전제어유무ComboBox.NectControl = Nothing
Me.펌프운전제어유무ComboBox.Size = New System.Drawing.Size(87, 20)
Me.펌프운전제어유무ComboBox.TabIndex = 5
'
'열층의수NTb
'
Me.열층의수NTb.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bs, "열층의수", True))
Me.열층의수NTb.Location = New System.Drawing.Point(463, 94)
Me.열층의수NTb.Name = "열층의수NTb"
Me.열층의수NTb.NectControl = Nothing
Me.열층의수NTb.Size = New System.Drawing.Size(75, 21)
Me.열층의수NTb.TabIndex = 14
Me.열층의수NTb.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
Me.열층의수NTb.TextFormat = Eco2Ar.MyTb.ETFormat.Normal
'
'급수온도NTb
'
Me.급수온도NTb.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bs, "급수온도", True))
Me.급수온도NTb.Location = New System.Drawing.Point(175, 66)
Me.급수온도NTb.Name = "급수온도NTb"
Me.급수온도NTb.NectControl = Nothing
Me.급수온도NTb.Size = New System.Drawing.Size(87, 21)
Me.급수온도NTb.TabIndex = 6
Me.급수온도NTb.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
Me.급수온도NTb.TextFormat = Eco2Ar.MyTb.ETFormat.Normal
'
'환수온도NTb
'
Me.환수온도NTb.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bs, "환수온도", True))
Me.환수온도NTb.Location = New System.Drawing.Point(175, 92)
Me.환수온도NTb.Name = "환수온도NTb"
Me.환수온도NTb.NectControl = Nothing
Me.환수온도NTb.Size = New System.Drawing.Size(87, 21)
Me.환수온도NTb.TabIndex = 7
Me.환수온도NTb.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
Me.환수온도NTb.TextFormat = Eco2Ar.MyTb.ETFormat.Normal
'
'PictureBox3
'
Me.PictureBox3.BackColor = System.Drawing.Color.FromArgb(CType(CType(219, Byte), Integer), CType(CType(221, Byte), Integer), CType(CType(223, Byte), Integer))
Me.PictureBox3.Location = New System.Drawing.Point(2, 10)
Me.PictureBox3.Name = "PictureBox3"
Me.PictureBox3.Size = New System.Drawing.Size(556, 224)
Me.PictureBox3.TabIndex = 124
Me.PictureBox3.TabStop = False
'
'GroupBox3
'
Me.GroupBox3.Controls.Add(Me.Label7)
Me.GroupBox3.Controls.Add(Label1)
Me.GroupBox3.Controls.Add(Label2)
Me.GroupBox3.Controls.Add(Me.냉매의점도NTb)
Me.GroupBox3.Controls.Add(Label3)
Me.GroupBox3.Controls.Add(Me.냉매방식ComboBox)
Me.GroupBox3.Controls.Add(Label4)
Me.GroupBox3.Controls.Add(Me.냉매의밀도NTb)
Me.GroupBox3.Controls.Add(Me.냉매의비열NTb)
Me.GroupBox3.Controls.Add(Me.PictureBox2)
Me.GroupBox3.Location = New System.Drawing.Point(10, 20)
Me.GroupBox3.Name = "GroupBox3"
Me.GroupBox3.Size = New System.Drawing.Size(562, 97)
Me.GroupBox3.TabIndex = 143
Me.GroupBox3.TabStop = False
'
'Label7
'
Me.Label7.AutoSize = True
Me.Label7.BackColor = System.Drawing.Color.FromArgb(CType(CType(243, Byte), Integer), CType(CType(244, Byte), Integer), CType(CType(246, Byte), Integer))
Me.Label7.Location = New System.Drawing.Point(6, 17)
Me.Label7.Name = "Label7"
Me.Label7.Size = New System.Drawing.Size(71, 12)
Me.Label7.TabIndex = 153
Me.Label7.Text = "[냉매설정]"
'
'냉매의점도NTb
'
Me.냉매의점도NTb.BackColor = System.Drawing.Color.FromArgb(CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer))
Me.냉매의점도NTb.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bs, "냉매의점도", True))
Me.냉매의점도NTb.Enabled = False
Me.냉매의점도NTb.Location = New System.Drawing.Point(421, 67)
Me.냉매의점도NTb.Name = "냉매의점도NTb"
Me.냉매의점도NTb.NectControl = Nothing
Me.냉매의점도NTb.Size = New System.Drawing.Size(85, 21)
Me.냉매의점도NTb.TabIndex = 4
Me.냉매의점도NTb.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
Me.냉매의점도NTb.TextFormat = Eco2Ar.MyTb.ETFormat.Normal
'
'냉매방식ComboBox
'
Me.냉매방식ComboBox.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
Me.냉매방식ComboBox.FormattingEnabled = True
Me.냉매방식ComboBox.Location = New System.Drawing.Point(175, 37)
Me.냉매방식ComboBox.Name = "냉매방식ComboBox"
Me.냉매방식ComboBox.NectControl = Nothing
Me.냉매방식ComboBox.Size = New System.Drawing.Size(85, 20)
Me.냉매방식ComboBox.TabIndex = 1
'
'냉매의밀도NTb
'
Me.냉매의밀도NTb.BackColor = System.Drawing.Color.FromArgb(CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer))
Me.냉매의밀도NTb.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bs, "냉매의밀도", True))
Me.냉매의밀도NTb.Enabled = False
Me.냉매의밀도NTb.Location = New System.Drawing.Point(175, 67)
Me.냉매의밀도NTb.Name = "냉매의밀도NTb"
Me.냉매의밀도NTb.NectControl = Nothing
Me.냉매의밀도NTb.Size = New System.Drawing.Size(85, 21)
Me.냉매의밀도NTb.TabIndex = 3
Me.냉매의밀도NTb.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
Me.냉매의밀도NTb.TextFormat = Eco2Ar.MyTb.ETFormat.Normal
'
'냉매의비열NTb
'
Me.냉매의비열NTb.BackColor = System.Drawing.Color.FromArgb(CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer))
Me.냉매의비열NTb.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bs, "냉매의비열", True))
Me.냉매의비열NTb.Enabled = False
Me.냉매의비열NTb.Location = New System.Drawing.Point(421, 40)
Me.냉매의비열NTb.Name = "냉매의비열NTb"
Me.냉매의비열NTb.NectControl = Nothing
Me.냉매의비열NTb.Size = New System.Drawing.Size(85, 21)
Me.냉매의비열NTb.TabIndex = 2
Me.냉매의비열NTb.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
Me.냉매의비열NTb.TextFormat = Eco2Ar.MyTb.ETFormat.Normal
'
'PictureBox2
'
Me.PictureBox2.BackColor = System.Drawing.Color.FromArgb(CType(CType(243, Byte), Integer), CType(CType(244, Byte), Integer), CType(CType(246, Byte), Integer))
Me.PictureBox2.Location = New System.Drawing.Point(2, 10)
Me.PictureBox2.Name = "PictureBox2"
Me.PictureBox2.Size = New System.Drawing.Size(556, 83)
Me.PictureBox2.TabIndex = 154
Me.PictureBox2.TabStop = False
'
'SplitContainer1
'
Me.SplitContainer1.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.SplitContainer1.Dock = System.Windows.Forms.DockStyle.Fill
Me.SplitContainer1.FixedPanel = System.Windows.Forms.FixedPanel.Panel1
Me.SplitContainer1.Location = New System.Drawing.Point(0, 0)
Me.SplitContainer1.Name = "SplitContainer1"
'
'SplitContainer1.Panel1
'
Me.SplitContainer1.Panel1.Controls.Add(Me.dv)
Me.SplitContainer1.Panel1.Controls.Add(Me.bn)
'
'SplitContainer1.Panel2
'
Me.SplitContainer1.Panel2.BackColor = System.Drawing.Color.White
Me.SplitContainer1.Panel2.Controls.Add(Me.Label8)
Me.SplitContainer1.Panel2.Controls.Add(Me.PictureBox5)
Me.SplitContainer1.Panel2.Controls.Add(Me.Label15)
Me.SplitContainer1.Panel2.Controls.Add(Me.PictureBox4)
Me.SplitContainer1.Panel2.Controls.Add(Me.GroupBox4)
Me.SplitContainer1.Panel2.Controls.Add(Me.GroupBox1)
Me.SplitContainer1.Size = New System.Drawing.Size(818, 574)
Me.SplitContainer1.SplitterDistance = 212
Me.SplitContainer1.TabIndex = 125
'
'dv
'
Me.dv.A_DelCurrentCell = True
Me.dv.A_EnterToTab = False
Me.dv.AllowUserToAddRows = False
Me.dv.AllowUserToResizeRows = False
Me.dv.AutoGenerateColumns = False
Me.dv.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.AllCells
Me.dv.BackgroundColor = System.Drawing.Color.FromArgb(CType(CType(245, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(246, Byte), Integer))
Me.dv.BorderStyle = System.Windows.Forms.BorderStyle.None
Me.dv.ColumnHeadersHeight = 30
Me.dv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.DisableResizing
Me.dv.ColumnHeadersVisible = False
Me.dv.Columns.AddRange(New System.Windows.Forms.DataGridViewColumn() {Me.DataGridViewTextBoxColumn1})
Me.dv.DataSource = Me.bs
Me.dv.Dock = System.Windows.Forms.DockStyle.Fill
Me.dv.Location = New System.Drawing.Point(0, 0)
Me.dv.Margin = New System.Windows.Forms.Padding(3, 5, 3, 5)
Me.dv.MultiSelect = False
Me.dv.Name = "dv"
Me.dv.RowHeadersVisible = False
Me.dv.RowTemplate.Height = 23
Me.dv.ScrollBars = System.Windows.Forms.ScrollBars.Vertical
Me.dv.Size = New System.Drawing.Size(210, 532)
Me.dv.TabIndex = 0
'
'bn
'
Me.bn.AddNewItem = Nothing
Me.bn.AutoSize = False
Me.bn.BindingSource = Me.bs
Me.bn.CountItem = Me.lbl_count
Me.bn.DeleteItem = Nothing
Me.bn.Dock = System.Windows.Forms.DockStyle.Bottom
Me.bn.Font = New System.Drawing.Font("돋움", 9.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(129, Byte))
Me.bn.ImageScalingSize = New System.Drawing.Size(20, 20)
Me.bn.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.bt_add, Me.bt_Del, Me.bt_cancel, Me.ToolStripSeparator1, Me.lbl_pos, Me.lbl_count, Me.ToolStripSeparator2, Me.lb_code})
Me.bn.Location = New System.Drawing.Point(0, 532)
Me.bn.MoveFirstItem = Nothing
Me.bn.MoveLastItem = Nothing
Me.bn.MoveNextItem = Nothing
Me.bn.MovePreviousItem = Nothing
Me.bn.Name = "bn"
Me.bn.PositionItem = Me.lbl_pos
Me.bn.Size = New System.Drawing.Size(210, 40)
Me.bn.TabIndex = 1
Me.bn.Text = "BindingNavigator1"
'
'lbl_count
'
Me.lbl_count.Font = New System.Drawing.Font("돋움", 8.0!, System.Drawing.FontStyle.Bold)
Me.lbl_count.Name = "lbl_count"
Me.lbl_count.Size = New System.Drawing.Size(27, 37)
Me.lbl_count.Text = "/{0}"
'
'bt_add
'
Me.bt_add.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
Me.bt_add.Image = Global.Eco2Ar.My.Resources.Resources.new_32
Me.bt_add.Name = "bt_add"
Me.bt_add.RightToLeftAutoMirrorImage = True
Me.bt_add.Size = New System.Drawing.Size(24, 37)
Me.bt_add.Text = "신규추가(&A)"
Me.bt_add.ToolTipText = "새로운 프로필을 추가합니다"
'
'bt_Del
'
Me.bt_Del.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
Me.bt_Del.Image = Global.Eco2Ar.My.Resources.Resources.remov_32
Me.bt_Del.Name = "bt_Del"
Me.bt_Del.RightToLeftAutoMirrorImage = True
Me.bt_Del.Size = New System.Drawing.Size(24, 37)
Me.bt_Del.Text = "선택삭제(&D)"
Me.bt_Del.ToolTipText = "선택된 프로필을 삭제합니다"
'
'bt_cancel
'
Me.bt_cancel.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
Me.bt_cancel.Image = Global.Eco2Ar.My.Resources.Resources.cancl_32
Me.bt_cancel.ImageTransparentColor = System.Drawing.Color.Magenta
Me.bt_cancel.Name = "bt_cancel"
Me.bt_cancel.Size = New System.Drawing.Size(24, 37)
Me.bt_cancel.Text = "변경취소(&C)"
Me.bt_cancel.ToolTipText = "변경된 내용을 되돌립니다"
Me.bt_cancel.Visible = False
'
'ToolStripSeparator1
'
Me.ToolStripSeparator1.Name = "ToolStripSeparator1"
Me.ToolStripSeparator1.Size = New System.Drawing.Size(6, 40)
'
'lbl_pos
'
Me.lbl_pos.Font = New System.Drawing.Font("돋움", 8.0!, System.Drawing.FontStyle.Bold)
Me.lbl_pos.Name = "lbl_pos"
Me.lbl_pos.Size = New System.Drawing.Size(12, 37)
Me.lbl_pos.Text = "0"
'
'ToolStripSeparator2
'
Me.ToolStripSeparator2.Name = "ToolStripSeparator2"
Me.ToolStripSeparator2.Size = New System.Drawing.Size(6, 40)
'
'lb_code
'
Me.lb_code.Name = "lb_code"
Me.lb_code.Size = New System.Drawing.Size(47, 37)
Me.lb_code.Text = "[0000]"
'
'Label8
'
Me.Label8.AutoSize = True
Me.Label8.BackColor = System.Drawing.Color.FromArgb(CType(CType(116, Byte), Integer), CType(CType(158, Byte), Integer), CType(CType(209, Byte), Integer))
Me.Label8.ForeColor = System.Drawing.Color.White
Me.Label8.Location = New System.Drawing.Point(35, 152)
Me.Label8.Name = "Label8"
Me.Label8.Size = New System.Drawing.Size(57, 12)
Me.Label8.TabIndex = 152
Me.Label8.Text = "분배범위"
'
'PictureBox5
'
Me.PictureBox5.BackgroundImage = CType(resources.GetObject("PictureBox5.BackgroundImage"), System.Drawing.Image)
Me.PictureBox5.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch
Me.PictureBox5.Location = New System.Drawing.Point(16, 141)
Me.PictureBox5.Name = "PictureBox5"
Me.PictureBox5.Size = New System.Drawing.Size(131, 30)
Me.PictureBox5.TabIndex = 151
Me.PictureBox5.TabStop = False
'
'Label15
'
Me.Label15.AutoSize = True
Me.Label15.BackColor = System.Drawing.Color.FromArgb(CType(CType(116, Byte), Integer), CType(CType(158, Byte), Integer), CType(CType(209, Byte), Integer))
Me.Label15.ForeColor = System.Drawing.Color.White
Me.Label15.Location = New System.Drawing.Point(35, 33)
Me.Label15.Name = "Label15"
Me.Label15.Size = New System.Drawing.Size(88, 12)
Me.Label15.TabIndex = 152
Me.Label15.Text = "분배범위 냉방"
'
'PictureBox4
'
Me.PictureBox4.BackgroundImage = CType(resources.GetObject("PictureBox4.BackgroundImage"), System.Drawing.Image)
Me.PictureBox4.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch
Me.PictureBox4.Location = New System.Drawing.Point(16, 22)
Me.PictureBox4.Name = "PictureBox4"
Me.PictureBox4.Size = New System.Drawing.Size(131, 30)
Me.PictureBox4.TabIndex = 151
Me.PictureBox4.TabStop = False
'
'GroupBox4
'
Me.GroupBox4.Controls.Add(Me.GroupBox2)
Me.GroupBox4.Controls.Add(Me.GroupBox3)
Me.GroupBox4.Location = New System.Drawing.Point(15, 169)
Me.GroupBox4.Name = "GroupBox4"
Me.GroupBox4.Size = New System.Drawing.Size(574, 367)
Me.GroupBox4.TabIndex = 150
Me.GroupBox4.TabStop = False
'
'GroupBox1
'
Me.GroupBox1.Controls.Add(Me.Label21)
Me.GroupBox1.Controls.Add(Me.냉동기ComboBox)
Me.GroupBox1.Controls.Add(Me.PictureBox1)
Me.GroupBox1.Location = New System.Drawing.Point(15, 50)
Me.GroupBox1.Name = "GroupBox1"
Me.GroupBox1.Size = New System.Drawing.Size(574, 52)
Me.GroupBox1.TabIndex = 148
Me.GroupBox1.TabStop = False
'
'Label21
'
Me.Label21.AutoSize = True
Me.Label21.BackColor = System.Drawing.Color.FromArgb(CType(CType(219, Byte), Integer), CType(CType(221, Byte), Integer), CType(CType(223, Byte), Integer))
Me.Label21.ForeColor = System.Drawing.SystemColors.ControlDarkDark
Me.Label21.Location = New System.Drawing.Point(20, 22)
Me.Label21.Name = "Label21"
Me.Label21.Size = New System.Drawing.Size(82, 12)
Me.Label21.TabIndex = 122
Me.Label21.Text = "＊냉 동 기:" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10)
Me.Label21.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
'
'냉동기ComboBox
'
Me.냉동기ComboBox.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
Me.냉동기ComboBox.FormattingEnabled = True
Me.냉동기ComboBox.Location = New System.Drawing.Point(104, 19)
Me.냉동기ComboBox.Name = "냉동기ComboBox"
Me.냉동기ComboBox.NectControl = Nothing
Me.냉동기ComboBox.Size = New System.Drawing.Size(215, 20)
Me.냉동기ComboBox.TabIndex = 0
'
'PictureBox1
'
Me.PictureBox1.BackColor = System.Drawing.Color.FromArgb(CType(CType(219, Byte), Integer), CType(CType(221, Byte), Integer), CType(CType(223, Byte), Integer))
Me.PictureBox1.Location = New System.Drawing.Point(1, 9)
Me.PictureBox1.Name = "PictureBox1"
Me.PictureBox1.Size = New System.Drawing.Size(571, 40)
Me.PictureBox1.TabIndex = 124
Me.PictureBox1.TabStop = False
'
'DataGridViewTextBoxColumn1
'
Me.DataGridViewTextBoxColumn1.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.Fill
Me.DataGridViewTextBoxColumn1.DataPropertyName = "설명"
Me.DataGridViewTextBoxColumn1.HeaderText = "설명"
Me.DataGridViewTextBoxColumn1.Name = "DataGridViewTextBoxColumn1"
Me.DataGridViewTextBoxColumn1.SortMode = System.Windows.Forms.DataGridViewColumnSortMode.Programmatic
'
'Frm_Bunbae
'
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.None
Me.ClientSize = New System.Drawing.Size(818, 574)
Me.ControlBox = False
Me.Controls.Add(Me.SplitContainer1)
Me.Font = New System.Drawing.Font("돋움", 9.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(129, Byte))
Me.KeyPreview = True
Me.Name = "Frm_Bunbae"
Me.ShowInTaskbar = False
Me.StartPosition = System.Windows.Forms.FormStartPosition.Manual
Me.Text = "냉방분배시스템"
CType(Me.bs, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.DS, System.ComponentModel.ISupportInitialize).EndInit()
Me.GroupBox2.ResumeLayout(False)
Me.GroupBox2.PerformLayout()
CType(Me.PictureBox3, System.ComponentModel.ISupportInitialize).EndInit()
Me.GroupBox3.ResumeLayout(False)
Me.GroupBox3.PerformLayout()
CType(Me.PictureBox2, System.ComponentModel.ISupportInitialize).EndInit()
Me.SplitContainer1.Panel1.ResumeLayout(False)
Me.SplitContainer1.Panel2.ResumeLayout(False)
Me.SplitContainer1.Panel2.PerformLayout()
CType(Me.SplitContainer1, System.ComponentModel.ISupportInitialize).EndInit()
Me.SplitContainer1.ResumeLayout(False)
CType(Me.dv, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.bn, System.ComponentModel.ISupportInitialize).EndInit()
Me.bn.ResumeLayout(False)
Me.bn.PerformLayout()
CType(Me.PictureBox5, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.PictureBox4, System.ComponentModel.ISupportInitialize).EndInit()
Me.GroupBox4.ResumeLayout(False)
Me.GroupBox1.ResumeLayout(False)
Me.GroupBox1.PerformLayout()
CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).EndInit()
Me.ResumeLayout(False)
End Sub
Friend WithEvents 제어밸브압력손실NTb As MyTb
Friend WithEvents 사용기기압력손실NTb As MyTb
Friend WithEvents 생산기기압력손실NTb As MyTb
Friend WithEvents 층고NTb1 As MyTb
Friend WithEvents 열층의수NTb As MyTb
Friend WithEvents 공급범위의넓이NTb As MyTb
Friend WithEvents 공급범위의길이NTb As MyTb
Friend WithEvents 펌프동력NTb1 As MyTb
Friend WithEvents 개별저항비율NTb As MyTb
Friend WithEvents 배관의압력손실NTb As MyTb
Friend WithEvents 냉매의점도NTb As MyTb
Friend WithEvents 냉매의밀도NTb As MyTb
Friend WithEvents 냉매의비열NTb As MyTb
Friend WithEvents 설정점에서의온도차NTb As MyTb
Friend WithEvents 환수온도NTb As MyTb
Friend WithEvents 급수온도NTb As MyTb
Public WithEvents DS As Eco2Ar.DS
Friend WithEvents bs As System.Windows.Forms.BindingSource
Friend WithEvents 펌프운전제어유무ComboBox As Eco2Ar.MyCmb
Friend WithEvents 냉매방식ComboBox As Eco2Ar.MyCmb
Friend WithEvents 냉동기ComboBox As Eco2Ar.MyCmb
Friend WithEvents GroupBox2 As System.Windows.Forms.GroupBox
Friend WithEvents GroupBox3 As System.Windows.Forms.GroupBox
Friend WithEvents SplitContainer1 As System.Windows.Forms.SplitContainer
Friend WithEvents bn As System.Windows.Forms.BindingNavigator
Friend WithEvents bt_add As System.Windows.Forms.ToolStripButton
Friend WithEvents bt_Del As System.Windows.Forms.ToolStripButton
Friend WithEvents bt_cancel As System.Windows.Forms.ToolStripButton
Friend WithEvents ToolStripSeparator1 As System.Windows.Forms.ToolStripSeparator
Friend WithEvents dv As CEnergy.arindv
Friend WithEvents lbl_count As System.Windows.Forms.ToolStripLabel
Friend WithEvents lbl_pos As System.Windows.Forms.ToolStripLabel
Friend WithEvents GroupBox4 As System.Windows.Forms.GroupBox
Friend WithEvents GroupBox1 As System.Windows.Forms.GroupBox
Friend WithEvents Label21 As System.Windows.Forms.Label
Friend WithEvents Label6 As System.Windows.Forms.Label
Friend WithEvents Label7 As System.Windows.Forms.Label
Friend WithEvents PictureBox1 As System.Windows.Forms.PictureBox
Friend WithEvents PictureBox3 As System.Windows.Forms.PictureBox
Friend WithEvents PictureBox2 As System.Windows.Forms.PictureBox
Friend WithEvents Label15 As System.Windows.Forms.Label
Friend WithEvents PictureBox4 As System.Windows.Forms.PictureBox
Friend WithEvents Label8 As System.Windows.Forms.Label
Friend WithEvents PictureBox5 As System.Windows.Forms.PictureBox
Friend WithEvents ToolStripSeparator2 As System.Windows.Forms.ToolStripSeparator
Friend WithEvents lb_code As System.Windows.Forms.ToolStripLabel
Friend WithEvents DataGridViewTextBoxColumn1 As System.Windows.Forms.DataGridViewTextBoxColumn
End Class

375
ArinWarev1/Forms_Input/Frm_Bunbae.resx Normal file
View File

@@ -0,0 +1,375 @@
<?xml version="1.0" encoding="utf-8"?>
<root>
<!--
Microsoft ResX Schema
Version 2.0
The primary goals of this format is to allow a simple XML format
that is mostly human readable. The generation and parsing of the
various data types are done through the TypeConverter classes
associated with the data types.
Example:
... ado.net/XML headers & schema ...
<resheader name="resmimetype">text/microsoft-resx</resheader>
<resheader name="version">2.0</resheader>
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
<data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
<value>[base64 mime encoded serialized .NET Framework object]</value>
</data>
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
<comment>This is a comment</comment>
</data>
There are any number of "resheader" rows that contain simple
name/value pairs.
Each data row contains a name, and value. The row also contains a
type or mimetype. Type corresponds to a .NET class that support
text/value conversion through the TypeConverter architecture.
Classes that don't support this are serialized and stored with the
mimetype set.
The mimetype is used for serialized objects, and tells the
ResXResourceReader how to depersist the object. This is currently not
extensible. For a given mimetype the value must be set accordingly:
Note - application/x-microsoft.net.object.binary.base64 is the format
that the ResXResourceWriter will generate, however the reader can
read any of the formats listed below.
mimetype: application/x-microsoft.net.object.binary.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.soap.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.bytearray.base64
value : The object must be serialized into a byte array
: using a System.ComponentModel.TypeConverter
: and then encoded with base64 encoding.
-->
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
<xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
<xsd:element name="root" msdata:IsDataSet="true">
<xsd:complexType>
<xsd:choice maxOccurs="unbounded">
<xsd:element name="metadata">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" />
</xsd:sequence>
<xsd:attribute name="name" use="required" type="xsd:string" />
<xsd:attribute name="type" type="xsd:string" />
<xsd:attribute name="mimetype" type="xsd:string" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="assembly">
<xsd:complexType>
<xsd:attribute name="alias" type="xsd:string" />
<xsd:attribute name="name" type="xsd:string" />
</xsd:complexType>
</xsd:element>
<xsd:element name="data">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="resheader">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" />
</xsd:complexType>
</xsd:element>
</xsd:choice>
</xsd:complexType>
</xsd:element>
</xsd:schema>
<resheader name="resmimetype">
<value>text/microsoft-resx</value>
</resheader>
<resheader name="version">
<value>2.0</value>
</resheader>
<resheader name="reader">
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<resheader name="writer">
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<metadata name="Label1.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="Label3.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="Label19.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">
<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="Label26.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">
<value>False</value>
</metadata>
<metadata name="Label28.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">
<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="Label32.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">
<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="bs.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>222, 17</value>
</metadata>
<metadata name="DS.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>286, 17</value>
</metadata>
<metadata name="bn.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>353, 17</value>
</metadata>
<assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
<data name="PictureBox5.BackgroundImage" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
/9j/4AAQSkZJRgABAgEASABIAAD/7gAOQWRvYmUAZAAAAAAB/+ED5kV4aWYAAE1NACoAAAAIAAcBEgAD
AAAAAQABAAABGgAFAAAAAQAAAGIBGwAFAAAAAQAAAGoBKAADAAAAAQACAAABMQACAAAAHAAAAHIBMgAC
AAAAFAAAAI6HaQAEAAAAAQAAAKIAAADCAEgAAAABAAAASAAAAAEAAEFkb2JlIFBob3Rvc2hvcCBDUzMg
V2luZG93cwAyMDEwOjA0OjE1IDIwOjMyOjA0AAACoAIABAAAAAEAAAA8oAMABAAAAAEAAAAMAAAAAAAA
AAYBAwADAAAAAQAGAAABGgAFAAAAAQAAARABGwAFAAAAAQAAARgBKAADAAAAAQACAAACAQAEAAAAAQAA
ASACAgAEAAAAAQAAAr4AAAAAAAAASAAAAAEAAABIAAAAAf/Y/+AAEEpGSUYAAQIAAEgASAAA/+0ADEFk
b2JlX0NNAAH/7gAOQWRvYmUAZIAAAAAB/9sAhAAMCAgICQgMCQkMEQsKCxEVDwwMDxUYExMVExMYEQwM
DAwMDBEMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMAQ0LCw0ODRAODhAUDg4OFBQODg4OFBEMDAwM
DBERDAwMDAwMEQwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAz/wAARCAAMADwDASIAAhEBAxEB/90A
BAAE/8QBPwAAAQUBAQEBAQEAAAAAAAAAAwABAgQFBgcICQoLAQABBQEBAQEBAQAAAAAAAAABAAIDBAUG
BwgJCgsQAAEEAQMCBAIFBwYIBQMMMwEAAhEDBCESMQVBUWETInGBMgYUkaGxQiMkFVLBYjM0coLRQwcl
klPw4fFjczUWorKDJkSTVGRFwqN0NhfSVeJl8rOEw9N14/NGJ5SkhbSVxNTk9KW1xdXl9VZmdoaWprbG
1ub2N0dXZ3eHl6e3x9fn9xEAAgIBAgQEAwQFBgcHBgU1AQACEQMhMRIEQVFhcSITBTKBkRShsUIjwVLR
8DMkYuFygpJDUxVjczTxJQYWorKDByY1wtJEk1SjF2RFVTZ0ZeLys4TD03Xj80aUpIW0lcTU5PSltcXV
5fVWZnaGlqa2xtbm9ic3R1dnd4eXp7fH/9oADAMBAAIRAxEAPwDd/amR/pH/AOcf70v2pkf6R/8AnH+9
UUlofq/Bpevxb37UyP8ASP8A84/3pftTI/0j/wDOP96opJfq/BXr8W9+1Mj/AEj/APOP96X7UyP9I/8A
zj/eqKSX6vwV6/F3ujdbuGS2i5xfU8HVxktIG76XyW99vo27p0XGdO2/ba930dZj+q5dX+qfZPL8VAeD
341VVr/eZhx+0bu708n/2f/iDFhJQ0NfUFJPRklMRQABAQAADEhMaW5vAhAAAG1udHJSR0IgWFlaIAfO
AAIACQAGADEAAGFjc3BNU0ZUAAAAAElFQyBzUkdCAAAAAAAAAAAAAAAAAAD21gABAAAAANMtSFAgIAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAEWNwcnQAAAFQAAAAM2Rl
c2MAAAGEAAAAbHd0cHQAAAHwAAAAFGJrcHQAAAIEAAAAFHJYWVoAAAIYAAAAFGdYWVoAAAIsAAAAFGJY
WVoAAAJAAAAAFGRtbmQAAAJUAAAAcGRtZGQAAALEAAAAiHZ1ZWQAAANMAAAAhnZpZXcAAAPUAAAAJGx1
bWkAAAP4AAAAFG1lYXMAAAQMAAAAJHRlY2gAAAQwAAAADHJUUkMAAAQ8AAAIDGdUUkMAAAQ8AAAIDGJU
UkMAAAQ8AAAIDHRleHQAAAAAQ29weXJpZ2h0IChjKSAxOTk4IEhld2xldHQtUGFja2FyZCBDb21wYW55
AABkZXNjAAAAAAAAABJzUkdCIElFQzYxOTY2LTIuMQAAAAAAAAAAAAAAEnNSR0IgSUVDNjE5NjYtMi4x
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABYWVogAAAAAAAA
81EAAQAAAAEWzFhZWiAAAAAAAAAAAAAAAAAAAAAAWFlaIAAAAAAAAG+iAAA49QAAA5BYWVogAAAAAAAA
YpkAALeFAAAY2lhZWiAAAAAAAAAkoAAAD4QAALbPZGVzYwAAAAAAAAAWSUVDIGh0dHA6Ly93d3cuaWVj
LmNoAAAAAAAAAAAAAAAWSUVDIGh0dHA6Ly93d3cuaWVjLmNoAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAGRlc2MAAAAAAAAALklFQyA2MTk2Ni0yLjEgRGVmYXVsdCBSR0Ig
Y29sb3VyIHNwYWNlIC0gc1JHQgAAAAAAAAAAAAAALklFQyA2MTk2Ni0yLjEgRGVmYXVsdCBSR0IgY29s
b3VyIHNwYWNlIC0gc1JHQgAAAAAAAAAAAAAAAAAAAAAAAAAAAABkZXNjAAAAAAAAACxSZWZlcmVuY2Ug
Vmlld2luZyBDb25kaXRpb24gaW4gSUVDNjE5NjYtMi4xAAAAAAAAAAAAAAAsUmVmZXJlbmNlIFZpZXdp
bmcgQ29uZGl0aW9uIGluIElFQzYxOTY2LTIuMQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAdmlldwAA
AAAAE6T+ABRfLgAQzxQAA+3MAAQTCwADXJ4AAAABWFlaIAAAAAAATAlWAFAAAABXH+dtZWFzAAAAAAAA
AAEAAAAAAAAAAAAAAAAAAAAAAAACjwAAAAJzaWcgAAAAAENSVCBjdXJ2AAAAAAAABAAAAAAFAAoADwAU
ABkAHgAjACgALQAyADcAOwBAAEUASgBPAFQAWQBeAGMAaABtAHIAdwB8AIEAhgCLAJAAlQCaAJ8ApACp
AK4AsgC3ALwAwQDGAMsA0ADVANsA4ADlAOsA8AD2APsBAQEHAQ0BEwEZAR8BJQErATIBOAE+AUUBTAFS
AVkBYAFnAW4BdQF8AYMBiwGSAZoBoQGpAbEBuQHBAckB0QHZAeEB6QHyAfoCAwIMAhQCHQImAi8COAJB
AksCVAJdAmcCcQJ6AoQCjgKYAqICrAK2AsECywLVAuAC6wL1AwADCwMWAyEDLQM4A0MDTwNaA2YDcgN+
A4oDlgOiA64DugPHA9MD4APsA/kEBgQTBCAELQQ7BEgEVQRjBHEEfgSMBJoEqAS2BMQE0wThBPAE/gUN
BRwFKwU6BUkFWAVnBXcFhgWWBaYFtQXFBdUF5QX2BgYGFgYnBjcGSAZZBmoGewaMBp0GrwbABtEG4wb1
BwcHGQcrBz0HTwdhB3QHhgeZB6wHvwfSB+UH+AgLCB8IMghGCFoIbgiCCJYIqgi+CNII5wj7CRAJJQk6
CU8JZAl5CY8JpAm6Cc8J5Qn7ChEKJwo9ClQKagqBCpgKrgrFCtwK8wsLCyILOQtRC2kLgAuYC7ALyAvh
C/kMEgwqDEMMXAx1DI4MpwzADNkM8w0NDSYNQA1aDXQNjg2pDcMN3g34DhMOLg5JDmQOfw6bDrYO0g7u
DwkPJQ9BD14Peg+WD7MPzw/sEAkQJhBDEGEQfhCbELkQ1xD1ERMRMRFPEW0RjBGqEckR6BIHEiYSRRJk
EoQSoxLDEuMTAxMjE0MTYxODE6QTxRPlFAYUJxRJFGoUixStFM4U8BUSFTQVVhV4FZsVvRXgFgMWJhZJ
FmwWjxayFtYW+hcdF0EXZReJF64X0hf3GBsYQBhlGIoYrxjVGPoZIBlFGWsZkRm3Gd0aBBoqGlEadxqe
GsUa7BsUGzsbYxuKG7Ib2hwCHCocUhx7HKMczBz1HR4dRx1wHZkdwx3sHhYeQB5qHpQevh7pHxMfPh9p
H5Qfvx/qIBUgQSBsIJggxCDwIRwhSCF1IaEhziH7IiciVSKCIq8i3SMKIzgjZiOUI8Ij8CQfJE0kfCSr
JNolCSU4JWgllyXHJfcmJyZXJocmtyboJxgnSSd6J6sn3CgNKD8ocSiiKNQpBik4KWspnSnQKgIqNSpo
KpsqzysCKzYraSudK9EsBSw5LG4soizXLQwtQS12Last4S4WLkwugi63Lu4vJC9aL5Evxy/+MDUwbDCk
MNsxEjFKMYIxujHyMioyYzKbMtQzDTNGM38zuDPxNCs0ZTSeNNg1EzVNNYc1wjX9Njc2cjauNuk3JDdg
N5w31zgUOFA4jDjIOQU5Qjl/Obw5+To2OnQ6sjrvOy07azuqO+g8JzxlPKQ84z0iPWE9oT3gPiA+YD6g
PuA/IT9hP6I/4kAjQGRApkDnQSlBakGsQe5CMEJyQrVC90M6Q31DwEQDREdEikTORRJFVUWaRd5GIkZn
RqtG8Ec1R3tHwEgFSEtIkUjXSR1JY0mpSfBKN0p9SsRLDEtTS5pL4kwqTHJMuk0CTUpNk03cTiVObk63
TwBPSU+TT91QJ1BxULtRBlFQUZtR5lIxUnxSx1MTU19TqlP2VEJUj1TbVShVdVXCVg9WXFapVvdXRFeS
V+BYL1h9WMtZGllpWbhaB1pWWqZa9VtFW5Vb5Vw1XIZc1l0nXXhdyV4aXmxevV8PX2Ffs2AFYFdgqmD8
YU9homH1YklinGLwY0Njl2PrZEBklGTpZT1lkmXnZj1mkmboZz1nk2fpaD9olmjsaUNpmmnxakhqn2r3
a09rp2v/bFdsr20IbWBtuW4SbmtuxG8eb3hv0XArcIZw4HE6cZVx8HJLcqZzAXNdc7h0FHRwdMx1KHWF
deF2Pnabdvh3VnezeBF4bnjMeSp5iXnnekZ6pXsEe2N7wnwhfIF84X1BfaF+AX5ifsJ/I3+Ef+WAR4Co
gQqBa4HNgjCCkoL0g1eDuoQdhICE44VHhauGDoZyhteHO4efiASIaYjOiTOJmYn+imSKyoswi5aL/Ixj
jMqNMY2Yjf+OZo7OjzaPnpAGkG6Q1pE/kaiSEZJ6kuOTTZO2lCCUipT0lV+VyZY0lp+XCpd1l+CYTJi4
mSSZkJn8mmia1ZtCm6+cHJyJnPedZJ3SnkCerp8dn4uf+qBpoNihR6G2oiailqMGo3aj5qRWpMelOKWp
phqmi6b9p26n4KhSqMSpN6mpqhyqj6sCq3Wr6axcrNCtRK24ri2uoa8Wr4uwALB1sOqxYLHWskuywrM4
s660JbSctRO1irYBtnm28Ldot+C4WbjRuUq5wro7urW7LrunvCG8m70VvY++Cr6Evv+/er/1wHDA7MFn
wePCX8Lbw1jD1MRRxM7FS8XIxkbGw8dBx7/IPci8yTrJuco4yrfLNsu2zDXMtc01zbXONs62zzfPuNA5
0LrRPNG+0j/SwdNE08bUSdTL1U7V0dZV1tjXXNfg2GTY6Nls2fHadtr724DcBdyK3RDdlt4c3qLfKd+v
4DbgveFE4cziU+Lb42Pj6+Rz5PzlhOYN5pbnH+ep6DLovOlG6dDqW+rl63Dr++yG7RHtnO4o7rTvQO/M
8Fjw5fFy8f/yjPMZ86f0NPTC9VD13vZt9vv3ivgZ+Kj5OPnH+lf65/t3/Af8mP0p/br+S/7c/23////b
AEMAAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQICAgICAgICAgICAwMD
AwMDAwMDA//bAEMBAQEBAQEBAQEBAQICAQICAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMD
AwMDAwMDAwMDAwMDAwMDA//AABEIAAwAPAMBEQACEQEDEQH/xAAfAAABBQEBAQEBAQAAAAAAAAAAAQID
BAUGBwgJCgv/xAC1EAACAQMDAgQDBQUEBAAAAX0BAgMABBEFEiExQQYTUWEHInEUMoGRoQgjQrHBFVLR
8CQzYnKCCQoWFxgZGiUmJygpKjQ1Njc4OTpDREVGR0hJSlNUVVZXWFlaY2RlZmdoaWpzdHV2d3h5eoOE
hYaHiImKkpOUlZaXmJmaoqOkpaanqKmqsrO0tba3uLm6wsPExcbHyMnK0tPU1dbX2Nna4eLj5OXm5+jp
6vHy8/T19vf4+fr/xAAfAQADAQEBAQEBAQEBAAAAAAAAAQIDBAUGBwgJCgv/xAC1EQACAQIEBAMEBwUE
BAABAncAAQIDEQQFITEGEkFRB2FxEyIygQgUQpGhscEJIzNS8BVictEKFiQ04SXxFxgZGiYnKCkqNTY3
ODk6Q0RFRkdISUpTVFVWV1hZWmNkZWZnaGlqc3R1dnd4eXqCg4SFhoeIiYqSk5SVlpeYmZqio6Slpqeo
qaqys7S1tre4ubrCw8TFxsfIycrS09TV1tfY2dri4+Tl5ufo6ery8/T19vf4+fr/2gAMAwEAAhEDEQA/
AP1ZH7UPxEAA/wCEw8bnj/ob9f8A/k+v7U/1Nyj/AKF+G/8ABUP/AJE/llcSZlZf7dX/APBk/wDMX/hq
H4if9Df43/8ACv1//wCT6P8AU3Kf+hfhv/BUP/kQ/wBZcy/6Dq//AIMn/mH/AA1D8RP+hv8AG/8A4V+v
/wDyfR/qblP/AEL8N/4Kh/8AIh/rLmX/AEHV/wDwZP8AzD/hqH4if9Df43/8K/X/AP5Po/1Nyn/oX4b/
AMFQ/wDkQ/1lzL/oOr/+DJ/5h/w1D8RP+hv8b/8AhX6//wDJ9H+puU/9C/Df+Cof/Ih/rLmX/QdX/wDB
k/8AMT/hqH4if9Df43/8K/X/AP5Po/1Nyn/oX4b/AMFQ/wDkQ/1kzL/oOr/+DJ/5n2R+xz+234zt/iRp
nw+8a6vqXiDwZ4gs9baObXr+bUr/AMPajpmkX2tQ3FlqV2Zb57K7XT2t3tXkaJWkV4whVxJ+beJfAuU4
Th/FZ/hKEKOMw8qd+SKjGcZzjTs4q0bpyUlJK7s073VvuuBOLMxxGcYfJ8TWlVw1ZTtzu7hKMJTupPWz
UWnFu2qatrf9aP8AhfXgv+zv7U89/sfm+V5207N+M43fSv50P2w/kwr/AEFP42CgAoAKACgAoA9s/Z0/
s7/hcng3+1vP/s7Ov/avs2PP2f8ACL63t2buP9ZjP+zmvz7xU/5IPPf+4H/qRRPsvD//AJK7KP8AuL/6
ZqH7/wD/ABaT/hUfb7Ht/wBj7V9p8v8A9Cr+Oz+lz//Z
</value>
</data>
<data name="PictureBox4.BackgroundImage" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
/9j/4AAQSkZJRgABAgEASABIAAD/7gAOQWRvYmUAZAAAAAAB/+ED5kV4aWYAAE1NACoAAAAIAAcBEgAD
AAAAAQABAAABGgAFAAAAAQAAAGIBGwAFAAAAAQAAAGoBKAADAAAAAQACAAABMQACAAAAHAAAAHIBMgAC
AAAAFAAAAI6HaQAEAAAAAQAAAKIAAADCAEgAAAABAAAASAAAAAEAAEFkb2JlIFBob3Rvc2hvcCBDUzMg
V2luZG93cwAyMDEwOjA0OjE1IDIwOjMyOjA0AAACoAIABAAAAAEAAAA8oAMABAAAAAEAAAAMAAAAAAAA
AAYBAwADAAAAAQAGAAABGgAFAAAAAQAAARABGwAFAAAAAQAAARgBKAADAAAAAQACAAACAQAEAAAAAQAA
ASACAgAEAAAAAQAAAr4AAAAAAAAASAAAAAEAAABIAAAAAf/Y/+AAEEpGSUYAAQIAAEgASAAA/+0ADEFk
b2JlX0NNAAH/7gAOQWRvYmUAZIAAAAAB/9sAhAAMCAgICQgMCQkMEQsKCxEVDwwMDxUYExMVExMYEQwM
DAwMDBEMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMAQ0LCw0ODRAODhAUDg4OFBQODg4OFBEMDAwM
DBERDAwMDAwMEQwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAz/wAARCAAMADwDASIAAhEBAxEB/90A
BAAE/8QBPwAAAQUBAQEBAQEAAAAAAAAAAwABAgQFBgcICQoLAQABBQEBAQEBAQAAAAAAAAABAAIDBAUG
BwgJCgsQAAEEAQMCBAIFBwYIBQMMMwEAAhEDBCESMQVBUWETInGBMgYUkaGxQiMkFVLBYjM0coLRQwcl
klPw4fFjczUWorKDJkSTVGRFwqN0NhfSVeJl8rOEw9N14/NGJ5SkhbSVxNTk9KW1xdXl9VZmdoaWprbG
1ub2N0dXZ3eHl6e3x9fn9xEAAgIBAgQEAwQFBgcHBgU1AQACEQMhMRIEQVFhcSITBTKBkRShsUIjwVLR
8DMkYuFygpJDUxVjczTxJQYWorKDByY1wtJEk1SjF2RFVTZ0ZeLys4TD03Xj80aUpIW0lcTU5PSltcXV
5fVWZnaGlqa2xtbm9ic3R1dnd4eXp7fH/9oADAMBAAIRAxEAPwDd/amR/pH/AOcf70v2pkf6R/8AnH+9
UUlofq/Bpevxb37UyP8ASP8A84/3pftTI/0j/wDOP96opJfq/BXr8W9+1Mj/AEj/APOP96X7UyP9I/8A
zj/eqKSX6vwV6/F3ujdbuGS2i5xfU8HVxktIG76XyW99vo27p0XGdO2/ba930dZj+q5dX+qfZPL8VAeD
341VVr/eZhx+0bu708n/2f/iDFhJQ0NfUFJPRklMRQABAQAADEhMaW5vAhAAAG1udHJSR0IgWFlaIAfO
AAIACQAGADEAAGFjc3BNU0ZUAAAAAElFQyBzUkdCAAAAAAAAAAAAAAAAAAD21gABAAAAANMtSFAgIAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAEWNwcnQAAAFQAAAAM2Rl
c2MAAAGEAAAAbHd0cHQAAAHwAAAAFGJrcHQAAAIEAAAAFHJYWVoAAAIYAAAAFGdYWVoAAAIsAAAAFGJY
WVoAAAJAAAAAFGRtbmQAAAJUAAAAcGRtZGQAAALEAAAAiHZ1ZWQAAANMAAAAhnZpZXcAAAPUAAAAJGx1
bWkAAAP4AAAAFG1lYXMAAAQMAAAAJHRlY2gAAAQwAAAADHJUUkMAAAQ8AAAIDGdUUkMAAAQ8AAAIDGJU
UkMAAAQ8AAAIDHRleHQAAAAAQ29weXJpZ2h0IChjKSAxOTk4IEhld2xldHQtUGFja2FyZCBDb21wYW55
AABkZXNjAAAAAAAAABJzUkdCIElFQzYxOTY2LTIuMQAAAAAAAAAAAAAAEnNSR0IgSUVDNjE5NjYtMi4x
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABYWVogAAAAAAAA
81EAAQAAAAEWzFhZWiAAAAAAAAAAAAAAAAAAAAAAWFlaIAAAAAAAAG+iAAA49QAAA5BYWVogAAAAAAAA
YpkAALeFAAAY2lhZWiAAAAAAAAAkoAAAD4QAALbPZGVzYwAAAAAAAAAWSUVDIGh0dHA6Ly93d3cuaWVj
LmNoAAAAAAAAAAAAAAAWSUVDIGh0dHA6Ly93d3cuaWVjLmNoAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAGRlc2MAAAAAAAAALklFQyA2MTk2Ni0yLjEgRGVmYXVsdCBSR0Ig
Y29sb3VyIHNwYWNlIC0gc1JHQgAAAAAAAAAAAAAALklFQyA2MTk2Ni0yLjEgRGVmYXVsdCBSR0IgY29s
b3VyIHNwYWNlIC0gc1JHQgAAAAAAAAAAAAAAAAAAAAAAAAAAAABkZXNjAAAAAAAAACxSZWZlcmVuY2Ug
Vmlld2luZyBDb25kaXRpb24gaW4gSUVDNjE5NjYtMi4xAAAAAAAAAAAAAAAsUmVmZXJlbmNlIFZpZXdp
bmcgQ29uZGl0aW9uIGluIElFQzYxOTY2LTIuMQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAdmlldwAA
AAAAE6T+ABRfLgAQzxQAA+3MAAQTCwADXJ4AAAABWFlaIAAAAAAATAlWAFAAAABXH+dtZWFzAAAAAAAA
AAEAAAAAAAAAAAAAAAAAAAAAAAACjwAAAAJzaWcgAAAAAENSVCBjdXJ2AAAAAAAABAAAAAAFAAoADwAU
ABkAHgAjACgALQAyADcAOwBAAEUASgBPAFQAWQBeAGMAaABtAHIAdwB8AIEAhgCLAJAAlQCaAJ8ApACp
AK4AsgC3ALwAwQDGAMsA0ADVANsA4ADlAOsA8AD2APsBAQEHAQ0BEwEZAR8BJQErATIBOAE+AUUBTAFS
AVkBYAFnAW4BdQF8AYMBiwGSAZoBoQGpAbEBuQHBAckB0QHZAeEB6QHyAfoCAwIMAhQCHQImAi8COAJB
AksCVAJdAmcCcQJ6AoQCjgKYAqICrAK2AsECywLVAuAC6wL1AwADCwMWAyEDLQM4A0MDTwNaA2YDcgN+
A4oDlgOiA64DugPHA9MD4APsA/kEBgQTBCAELQQ7BEgEVQRjBHEEfgSMBJoEqAS2BMQE0wThBPAE/gUN
BRwFKwU6BUkFWAVnBXcFhgWWBaYFtQXFBdUF5QX2BgYGFgYnBjcGSAZZBmoGewaMBp0GrwbABtEG4wb1
BwcHGQcrBz0HTwdhB3QHhgeZB6wHvwfSB+UH+AgLCB8IMghGCFoIbgiCCJYIqgi+CNII5wj7CRAJJQk6
CU8JZAl5CY8JpAm6Cc8J5Qn7ChEKJwo9ClQKagqBCpgKrgrFCtwK8wsLCyILOQtRC2kLgAuYC7ALyAvh
C/kMEgwqDEMMXAx1DI4MpwzADNkM8w0NDSYNQA1aDXQNjg2pDcMN3g34DhMOLg5JDmQOfw6bDrYO0g7u
DwkPJQ9BD14Peg+WD7MPzw/sEAkQJhBDEGEQfhCbELkQ1xD1ERMRMRFPEW0RjBGqEckR6BIHEiYSRRJk
EoQSoxLDEuMTAxMjE0MTYxODE6QTxRPlFAYUJxRJFGoUixStFM4U8BUSFTQVVhV4FZsVvRXgFgMWJhZJ
FmwWjxayFtYW+hcdF0EXZReJF64X0hf3GBsYQBhlGIoYrxjVGPoZIBlFGWsZkRm3Gd0aBBoqGlEadxqe
GsUa7BsUGzsbYxuKG7Ib2hwCHCocUhx7HKMczBz1HR4dRx1wHZkdwx3sHhYeQB5qHpQevh7pHxMfPh9p
H5Qfvx/qIBUgQSBsIJggxCDwIRwhSCF1IaEhziH7IiciVSKCIq8i3SMKIzgjZiOUI8Ij8CQfJE0kfCSr
JNolCSU4JWgllyXHJfcmJyZXJocmtyboJxgnSSd6J6sn3CgNKD8ocSiiKNQpBik4KWspnSnQKgIqNSpo
KpsqzysCKzYraSudK9EsBSw5LG4soizXLQwtQS12Last4S4WLkwugi63Lu4vJC9aL5Evxy/+MDUwbDCk
MNsxEjFKMYIxujHyMioyYzKbMtQzDTNGM38zuDPxNCs0ZTSeNNg1EzVNNYc1wjX9Njc2cjauNuk3JDdg
N5w31zgUOFA4jDjIOQU5Qjl/Obw5+To2OnQ6sjrvOy07azuqO+g8JzxlPKQ84z0iPWE9oT3gPiA+YD6g
PuA/IT9hP6I/4kAjQGRApkDnQSlBakGsQe5CMEJyQrVC90M6Q31DwEQDREdEikTORRJFVUWaRd5GIkZn
RqtG8Ec1R3tHwEgFSEtIkUjXSR1JY0mpSfBKN0p9SsRLDEtTS5pL4kwqTHJMuk0CTUpNk03cTiVObk63
TwBPSU+TT91QJ1BxULtRBlFQUZtR5lIxUnxSx1MTU19TqlP2VEJUj1TbVShVdVXCVg9WXFapVvdXRFeS
V+BYL1h9WMtZGllpWbhaB1pWWqZa9VtFW5Vb5Vw1XIZc1l0nXXhdyV4aXmxevV8PX2Ffs2AFYFdgqmD8
YU9homH1YklinGLwY0Njl2PrZEBklGTpZT1lkmXnZj1mkmboZz1nk2fpaD9olmjsaUNpmmnxakhqn2r3
a09rp2v/bFdsr20IbWBtuW4SbmtuxG8eb3hv0XArcIZw4HE6cZVx8HJLcqZzAXNdc7h0FHRwdMx1KHWF
deF2Pnabdvh3VnezeBF4bnjMeSp5iXnnekZ6pXsEe2N7wnwhfIF84X1BfaF+AX5ifsJ/I3+Ef+WAR4Co
gQqBa4HNgjCCkoL0g1eDuoQdhICE44VHhauGDoZyhteHO4efiASIaYjOiTOJmYn+imSKyoswi5aL/Ixj
jMqNMY2Yjf+OZo7OjzaPnpAGkG6Q1pE/kaiSEZJ6kuOTTZO2lCCUipT0lV+VyZY0lp+XCpd1l+CYTJi4
mSSZkJn8mmia1ZtCm6+cHJyJnPedZJ3SnkCerp8dn4uf+qBpoNihR6G2oiailqMGo3aj5qRWpMelOKWp
phqmi6b9p26n4KhSqMSpN6mpqhyqj6sCq3Wr6axcrNCtRK24ri2uoa8Wr4uwALB1sOqxYLHWskuywrM4
s660JbSctRO1irYBtnm28Ldot+C4WbjRuUq5wro7urW7LrunvCG8m70VvY++Cr6Evv+/er/1wHDA7MFn
wePCX8Lbw1jD1MRRxM7FS8XIxkbGw8dBx7/IPci8yTrJuco4yrfLNsu2zDXMtc01zbXONs62zzfPuNA5
0LrRPNG+0j/SwdNE08bUSdTL1U7V0dZV1tjXXNfg2GTY6Nls2fHadtr724DcBdyK3RDdlt4c3qLfKd+v
4DbgveFE4cziU+Lb42Pj6+Rz5PzlhOYN5pbnH+ep6DLovOlG6dDqW+rl63Dr++yG7RHtnO4o7rTvQO/M
8Fjw5fFy8f/yjPMZ86f0NPTC9VD13vZt9vv3ivgZ+Kj5OPnH+lf65/t3/Af8mP0p/br+S/7c/23////b
AEMAAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQICAgICAgICAgICAwMD
AwMDAwMDA//bAEMBAQEBAQEBAQEBAQICAQICAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMD
AwMDAwMDAwMDAwMDAwMDA//AABEIAAwAPAMBEQACEQEDEQH/xAAfAAABBQEBAQEBAQAAAAAAAAAAAQID
BAUGBwgJCgv/xAC1EAACAQMDAgQDBQUEBAAAAX0BAgMABBEFEiExQQYTUWEHInEUMoGRoQgjQrHBFVLR
8CQzYnKCCQoWFxgZGiUmJygpKjQ1Njc4OTpDREVGR0hJSlNUVVZXWFlaY2RlZmdoaWpzdHV2d3h5eoOE
hYaHiImKkpOUlZaXmJmaoqOkpaanqKmqsrO0tba3uLm6wsPExcbHyMnK0tPU1dbX2Nna4eLj5OXm5+jp
6vHy8/T19vf4+fr/xAAfAQADAQEBAQEBAQEBAAAAAAAAAQIDBAUGBwgJCgv/xAC1EQACAQIEBAMEBwUE
BAABAncAAQIDEQQFITEGEkFRB2FxEyIygQgUQpGhscEJIzNS8BVictEKFiQ04SXxFxgZGiYnKCkqNTY3
ODk6Q0RFRkdISUpTVFVWV1hZWmNkZWZnaGlqc3R1dnd4eXqCg4SFhoeIiYqSk5SVlpeYmZqio6Slpqeo
qaqys7S1tre4ubrCw8TFxsfIycrS09TV1tfY2dri4+Tl5ufo6ery8/T19vf4+fr/2gAMAwEAAhEDEQA/
AP1ZH7UPxEAA/wCEw8bnj/ob9f8A/k+v7U/1Nyj/AKF+G/8ABUP/AJE/llcSZlZf7dX/APBk/wDMX/hq
H4if9Df43/8ACv1//wCT6P8AU3Kf+hfhv/BUP/kQ/wBZcy/6Dq//AIMn/mH/AA1D8RP+hv8AG/8A4V+v
/wDyfR/qblP/AEL8N/4Kh/8AIh/rLmX/AEHV/wDwZP8AzD/hqH4if9Df43/8K/X/AP5Po/1Nyn/oX4b/
AMFQ/wDkQ/1lzL/oOr/+DJ/5h/w1D8RP+hv8b/8AhX6//wDJ9H+puU/9C/Df+Cof/Ih/rLmX/QdX/wDB
k/8AMT/hqH4if9Df43/8K/X/AP5Po/1Nyn/oX4b/AMFQ/wDkQ/1kzL/oOr/+DJ/5n2R+xz+234zt/iRp
nw+8a6vqXiDwZ4gs9baObXr+bUr/AMPajpmkX2tQ3FlqV2Zb57K7XT2t3tXkaJWkV4whVxJ+beJfAuU4
Th/FZ/hKEKOMw8qd+SKjGcZzjTs4q0bpyUlJK7s073VvuuBOLMxxGcYfJ8TWlVw1ZTtzu7hKMJTupPWz
UWnFu2qatrf9aP8AhfXgv+zv7U89/sfm+V5207N+M43fSv50P2w/kwr/AEFP42CgAoAKACgAoA9s/Z0/
s7/hcng3+1vP/s7Ov/avs2PP2f8ACL63t2buP9ZjP+zmvz7xU/5IPPf+4H/qRRPsvD//AJK7KP8AuL/6
ZqH7/wD/ABaT/hUfb7Ht/wBj7V9p8v8A9Cr+Oz+lz//Z
</value>
</data>
<metadata name="$this.TrayHeight" type="System.Int32, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>46</value>
</metadata>
</root>

496
ArinWarev1/Forms_Input/Frm_Bunbae.vb Normal file
View File

@@ -0,0 +1,496 @@
Public Class Frm_Bunbae
Dim Init As Boolean = False
Dim SrcDrv As DataRowView
Public Sub New(_opentime)
' 이 호출은 디자이너에 필요합니다.
InitializeComponent()
OpenTime = _opentime
' InitializeComponent() 호출 뒤에 초기화 코드를 추가하십시오.
End Sub
#Region "data Base 변경여부및 적용방법"
'''변경된내용을적용한다.
Public Overrides Function AcceptChanged() As Boolean
bs.EndEdit()
Dim BaseDS As DataSet = CType(bs.DataSource, DataSet)
Dim BaseDT As DataTable = BaseDS.Tables(bs.DataMember)
BaseDT.AcceptChanges()
Return True
End Function
'''변경된내용이있다면 취소한다.
Public Overrides Function RejectChanged() As Boolean
Dim BaseDS As DataSet = CType(bs.DataSource, DataSet)
Dim BaseDT As DataTable = BaseDS.Tables(bs.DataMember)
BaseDT.RejectChanges()
Return True
End Function
'''데이터에변형이있었는가?
Public Overrides Function HasChanged() As Boolean
bs.EndEdit()
Dim BaseDS As DataSet = CType(bs.DataSource, DataSet)
Dim BaseDT As DataTable = BaseDS.Tables(bs.DataMember)
Dim ChangeDT As DataTable = BaseDT.GetChanges
If Not ChangeDT Is Nothing Then Return True
Return False
End Function
'''기본데이터테이블을 반환합니다.
Public Function DT() As DataTable
Dim BaseDS As DataSet = CType(bs.DataSource, DataSet)
Return BaseDS.Tables(bs.DataMember)
End Function
#End Region
Private Sub ShowHistory()
Dim drv As DataRowView = Me.bs.Current
Dim f As New Frm_History("tbl_bunbae", drv("code").ToString)
If f.ShowDialog = DialogResult.OK Then
drv(f.colname) = f.val
Me.Validate()
Me.bs.EndEdit()
My.Application.DoEvents()
MsgBox("값이 변경되었습니다", MsgBoxStyle.Information, "확인")
End If
End Sub
Private Sub AddNewDataRow_Zone_Changed2(ByVal sender As Object, ByVal e As System.Data.DataColumnChangeEventArgs)
Dim oval As String = e.Row(e.Column.ColumnName).ToString
Dim nval As String = e.ProposedValue.ToString
If oval <> nval Then
Dim newdr As DS2.historyRow = DSHistory.history.NewhistoryRow
newdr.time = Now.ToString("yyyy-MM-dd HH:mm:ss")
newdr.tablename = "tbl_bunbae"
newdr.ovalue = oval
newdr.nvalue = nval
newdr.column = e.Column.ColumnName
newdr.code = e.Row("code").ToString
DSHistory.history.AddhistoryRow(newdr)
DSHistory.history.AcceptChanges()
End If
End Sub
Private Sub MdiMain_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Me.Show()
My.Application.DoEvents()
'Work_msg_timer("잠시만 기다려주세요")
'//공유데이터셋에 연결한다.
Me.bs.DataSource = DSET1
'//냉방분배
AddHandler DSET1.tbl_bunbae.TableNewRow, AddressOf AddNewDataRow_bunbae
AddHandler DSET1.tbl_bunbae.ColumnChanging, AddressOf AddNewDataRow_Zone_Changed2
'//모든컨트롤의 cTrl_enter 를 추가합니다
BindProperty(CType(Me.SplitContainer1.Panel2.Controls, Control.ControlCollection))
'//콤보컨트롤 바인딩
Binding_Zone()
Me.bs.Filter = "code <> '0'"
Me.Init = True
Try
Me.bs.Position = CEnergy.ARINCLASS.Read_LastPos_Frm(Me)
Catch ex As Exception
Me.bs.MoveFirst()
End Try
bs_CurrentChanged(sender, e)
AddDebug("▲ Form Load")
End Sub
#Region "Control_Enter"
Private Sub BindProperty(ByVal Ctl As Control.ControlCollection)
For Each C As Control In Ctl
If C.Controls.Count > 1 Then
BindProperty(C.Controls)
Else
If C.GetType.ToString.ToUpper.IndexOf("MYTB") <> -1 Then
AddHandler CType(C, MyTb).KeyDown, AddressOf TextBOx_KeyDown
ElseIf C.GetType.ToString.ToUpper.IndexOf("MYCMB") <> -1 Then
AddHandler CType(C, MyCmb).KeyDown, AddressOf Cmd_KeyDown
End If
End If
Next
End Sub
Private Sub TextBOx_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs)
If e.KeyCode = Keys.Enter AndAlso e.Control Then
Try
Dim Field As String = (CType(sender, MyTb).DataBindings.Item("text").BindingMemberInfo.BindingField)
For Each Dr As DataRow In DT.Select(Me.bs.Filter, "")
Dr(Field) = CType(sender, MyTb).Text
Next
Work_msg_timer("모든값이 변경되었습니다", 25)
Catch ex As Exception
End Try
End If
End Sub
Private Sub Cmd_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs)
If e.KeyCode = Keys.Enter AndAlso e.Control Then
Try
Dim Field As String = (CType(sender, MyCmb).DataBindings.Item("selectedvalue").BindingMemberInfo.BindingField)
For Each Dr As DataRow In DT.Select(Me.bs.Filter, "")
Dr(Field) = CType(sender, MyCmb).SelectedValue
Next
Work_msg_timer("모든값이 변경되었습니다", 25)
Catch ex As Exception
End Try
End If
End Sub
#End Region
Private Sub 냉동기ComboBox_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles 냉동기ComboBox.KeyDown
Dim drv As DataRowView = Me.bs.Current
If drv Is Nothing Then Return
If e.KeyCode = Keys.V And e.Control Then
e.Handled = True
e.SuppressKeyPress = False
'//클립보드붙여넣기
Dim CB() As String = My.Computer.Clipboard.GetText.Split(CChar(vbCrLf))
If CB.GetUpperBound(0) <> 25 Then
MsgBox("붙여넣기가 호환되는 데이터가 아닙니다.", MsgBoxStyle.Information, "확인")
Return
End If
For ii As Integer = 0 To CType(CB(0).Split(CChar(vbTab)), String()).GetUpperBound(0)
If Me.bs.Count = 0 OrElse ii > 0 Then
If Me.bs.Position >= 0 AndAlso Me.bs.Position < Me.bs.Count - 1 Then
Me.bs.Position += 1
Else
Me.bt_add.PerformClick() '//한줄추가
End If
End If
Dim Cnt As Short = 0
For i As Integer = 0 To CB.GetUpperBound(0)
Select Case i
Case 0
CType(bs.Current, DataRowView)("설명") = CB(i).Split(CChar(vbTab))(ii).Trim
Case 0 + 2 '//사용프로필 앞에 두개를 숫자4자로변환
If CB(i).Split(CChar(vbTab))(ii).Trim = "" Then
Me.냉동기ComboBox.SelectedIndex = 0
Else
Me.냉동기ComboBox.Text = CB(i).Split(CChar(vbTab))(ii).Trim
End If
' Me.냉동기ComboBox.Text = CStr(IIf(CB(i).Split(CChar(vbTab))(ii).Trim = "", "0", CB(i).Split(CChar(vbTab))(ii).Trim))
Case 3 + 2 '//공란
If CB(i).Split(CChar(vbTab))(ii).Trim = "" Then
Me.냉매방식ComboBox.SelectedIndex = 0
Else
Me.냉매방식ComboBox.Text = CB(i).Split(CChar(vbTab))(ii).Trim
End If
' Me.냉매방식ComboBox.Text = CStr(IIf(CB(i).Split(CChar(vbTab))(ii).Trim = "", "0", CB(i).Split(CChar(vbTab))(ii).Trim))
Case 4 + 2
If CB(i).Split(CChar(vbTab))(ii).Trim = "" Then
Me.펌프운전제어유무ComboBox.SelectedIndex = 0
Else
Me.펌프운전제어유무ComboBox.Text = CB(i).Split(CChar(vbTab))(ii).Trim
End If
'Me.펌프운전제어유무ComboBox.Text = CStr(IIf(CB(i).Split(CChar(vbTab))(ii).Trim = "", "0", CB(i).Split(CChar(vbTab))(ii).Trim))
Case 5 + 2
Me.급수온도NTb.Text = CB(i).Split(CChar(vbTab))(ii).Trim
Case 6 + 2
Me.환수온도NTb.Text = CB(i).Split(CChar(vbTab))(ii).Trim
Case 7 + 2
Me.설정점에서의온도차NTb.Text = CB(i).Split(CChar(vbTab))(ii).Trim
Case 8 + 2
Me.냉매의비열NTb.Text = CB(i).Split(CChar(vbTab))(ii).Trim
Case 9 + 2
Me.냉매의밀도NTb.Text = CB(i).Split(CChar(vbTab))(ii).Trim
Case 10 + 2
Me.냉매의점도NTb.Text = CB(i).Split(CChar(vbTab))(ii).Trim
Case 11 + 2
Me.배관의압력손실NTb.Text = CB(i).Split(CChar(vbTab))(ii).Trim
Case 12 + 2
Me.개별저항비율NTb.Text = CB(i).Split(CChar(vbTab))(ii).Trim
Case 13 + 2
Me.펌프동력NTb1.Text = CB(i).Split(CChar(vbTab))(ii).Trim
Case 15 + 2
Me.공급범위의길이NTb.Text = CB(i).Split(CChar(vbTab))(ii).Trim
Case 16 + 2
Me.공급범위의넓이NTb.Text = CB(i).Split(CChar(vbTab))(ii).Trim
Case 17 + 2
Me.열층의수NTb.Text = CB(i).Split(CChar(vbTab))(ii).Trim
Case 18 + 2
Me.층고NTb1.Text = CB(i).Split(CChar(vbTab))(ii).Trim
Case 20 + 2
Me.생산기기압력손실NTb.Text = CB(i).Split(CChar(vbTab))(ii).Trim
Case 21 + 2
Me.사용기기압력손실NTb.Text = CB(i).Split(CChar(vbTab))(ii).Trim
Case 22 + 2
Me.제어밸브압력손실NTb.Text = CB(i).Split(CChar(vbTab))(ii).Trim
End Select
Next
Next
Me.bs.EndEdit()
End If
End Sub
#Region "기본"
Private Sub MdiMain_FormClosed(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosedEventArgs) Handles Me.FormClosed
CEnergy.ARINCLASS.SaveLoad_FrmSetting(Me, Me.bs.Position, True)
End Sub
Private Function GetMaxCode(ByVal dt As DataTable) As String
Try
Dim Dr As DataRow = dt.Select("", "code desc")(0)
Return Format(CInt(Dr("code")) + 1, "0000")
Catch ex As Exception
Return "0001"
End Try
End Function
Private Sub AddNewDataRow_bunbae(ByVal sender As Object, ByVal e As System.Data.DataTableNewRowEventArgs)
e.Row.Item("code") = GetMaxCode(DSET1.tbl_bunbae)
e.Row.Item("설명") = "신규데이터"
End Sub
#Region "제어버튼"
Private Sub ToolStripButton48_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt_add.Click
If Not EndEdit(Me.bs) Then Return
Me.bs.AddNew()
INitRow(Me.Controls)
MdiMain.RefreshMenuList(TreeTag)
End Sub
Private Sub ToolStripButton49_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt_Del.Click
Dbbase.DelCrow(Me.bs, True)
MdiMain.RefreshMenuList(TreeTag)
End Sub
Private Sub ToolStripButton51_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt_cancel.Click
If Not EndEdit(Me.bs) Then Return
Data_Cancel(DSET1.tbl_profile, Nothing)
MdiMain.RefreshMenuList(TreeTag)
End Sub
#End Region
Private Sub Binding_Zone()
'//냉방분배시스템
Dim bs_냉동기ComboBox As New BindingSource(DSET1, "tbl_nangbangkiki")
Me.냉동기ComboBox.DataSource = bs_냉동기ComboBox
bs_냉동기ComboBox.Sort = "code"
냉동기ComboBox.DisplayMember = "설명"
냉동기ComboBox.ValueMember = "code"
Me.냉동기ComboBox.DataBindings.Add("selectedvalue", Me.bs, "냉동기")
'AddHandler 냉동기ComboBox.KeyDown, AddressOf Cmb_DeleteVal
Dim bs_냉매방식ComboBox As New BindingSource(DSET1, "tbl_common")
bs_냉매방식ComboBox.Filter = "gubun='1055'"
bs_냉매방식ComboBox.Sort = "code"
Me.냉매방식ComboBox.DataSource = bs_냉매방식ComboBox
냉매방식ComboBox.DisplayMember = "name"
냉매방식ComboBox.ValueMember = "name"
Me.냉매방식ComboBox.DataBindings.Add("selectedvalue", Me.bs, "냉매방식")
'AddHandler 냉매방식ComboBox.KeyDown, AddressOf Cmb_DeleteVal
Dim bs_펌프운전제어유무ComboBox As New BindingSource(DSET1, "tbl_common")
bs_펌프운전제어유무ComboBox.Filter = "gubun='1056'"
bs_펌프운전제어유무ComboBox.Sort = "code"
Me.펌프운전제어유무ComboBox.DataSource = bs_펌프운전제어유무ComboBox
펌프운전제어유무ComboBox.DisplayMember = "name"
펌프운전제어유무ComboBox.ValueMember = "name"
Me.펌프운전제어유무ComboBox.DataBindings.Add("selectedvalue", Me.bs, "펌프운전제어유무")
'AddHandler 펌프운전제어유무ComboBox.KeyDown, AddressOf Cmb_DeleteVal
End Sub
Private Sub Frm_V20091231_Zone_MouseWheel(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseWheel
If e.Delta < 0 Then
If Me.bs.Position < Me.bs.Count Then Me.bs.Position += 1
Else
If Me.bs.Position > 0 Then Me.bs.Position -= 1
End If
Me.Validate()
My.Application.DoEvents()
End Sub
#End Region
Private Sub bt_Del_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles bt_Del.MouseDown
If e.Button = Windows.Forms.MouseButtons.Right Then
If MsgBox("전체삭제를 하시겠습니까?", MsgBoxStyle.Information Or MsgBoxStyle.OkCancel, "확인") = MsgBoxResult.Ok Then
Dim dR() As DataRow = DSET1.tbl_bunbae.Select(Me.bs.Filter, "")
For i As Integer = dR.GetUpperBound(0) To 0 Step -1
dR(i).Delete()
Next
DSET1.tbl_bunbae.AcceptChanges()
End If
End If
End Sub
Private Sub 냉매방식ComboBox_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 냉매방식ComboBox.SelectedIndexChanged
Dim drv As DataRowView = Me.bs.Current
If drv Is Nothing Then Return
If Me.냉매방식ComboBox.SelectedIndex < 0 Then Return
If Me.냉매방식ComboBox.Text.IndexOf("DataRow") <> -1 Then Return
If String.IsNullOrWhiteSpace(Me.냉매방식ComboBox.Text) Then Return
Try
Select Case Me.냉매방식ComboBox.Text
Case "물"
Me.냉매의비열NTb.Text = "4.18"
Me.냉매의밀도NTb.Text = "1000"
Me.냉매의점도NTb.Text = "1"
Case "40%글리콜"
Me.냉매의비열NTb.Text = "3.5"
Me.냉매의밀도NTb.Text = "1070"
Me.냉매의점도NTb.Text = "4.4"
Case "40%글루콜" '디비에 글루콜로 명기되어 임시로 쓰임 디비 수정시 삭제 필요
Me.냉매의비열NTb.Text = "3.5"
Me.냉매의밀도NTb.Text = "1070"
Me.냉매의점도NTb.Text = "4.4"
Case "(없음)"
Me.냉매의비열NTb.Text = ""
Me.냉매의밀도NTb.Text = ""
Me.냉매의점도NTb.Text = ""
Case Else
MsgBox("알수없는 냉매방식(" + 냉매방식ComboBox.Text + ") 입니다", MsgBoxStyle.Critical, "확인")
Me.냉매의비열NTb.Text = ""
Me.냉매의밀도NTb.Text = ""
Me.냉매의점도NTb.Text = ""
End Select
bs.EndEdit()
Catch ex As Exception
MsgBox(ex.Message, MsgBoxStyle.Critical, "확인")
End Try
End Sub
Private Sub 급수온도NTb_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles 급수온도NTb.TextChanged
Dim drv As DataRowView = Me.bs.Current
If drv Is Nothing Then Return
Try
Me.설정점에서의온도차NTb.Text = TOST(TOSG(Me.환수온도NTb.Text) - TOSG(Me.급수온도NTb.Text))
Catch ex As Exception
End Try
End Sub
Private Sub 환수온도NTb_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles 환수온도NTb.TextChanged
Dim drv As DataRowView = Me.bs.Current
If drv Is Nothing Then Return
Try
Me.설정점에서의온도차NTb.Text = TOST(TOSG(Me.환수온도NTb.Text) - TOSG(Me.급수온도NTb.Text))
Catch ex As Exception
End Try
End Sub
Private Sub dv_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles dv.MouseUp
If Prj.UserAuthType = "ADMIN" OrElse Prj.UserAuthType = "BOTH" OrElse Prj.UserAuthType = "BOTH2" OrElse Prj.UserAuthType = "BOTH1" Then '//2011.03.08 추가
If e.Button = Windows.Forms.MouseButtons.Right Then
Dim Frm_FilterA As New Frm_Filter
Frm_FilterA.ColumTitle = getColCaption(Me.DT)
Frm_FilterA.ColumList = getColName(Me.DT)
Frm_FilterA.Colorlist = "냉동기"
Frm_FilterA.Numfield = "" '//20100618 Color 리스트처럼 , 구분해서 필드들을 모두 넣으세요.
Frm_FilterA.Default_Filter = "code <> '0'"
If Frm_FilterA.ShowDialog <> Windows.Forms.DialogResult.OK Then Return '//창떳을떄 확인아ㅣ고 취소눌르면 다음을 수행하지않는다는거에요.
Dim Filter As String = Frm_FilterA.tb_filter.Text '//값은 아까 그 텍박에 잇구요.
Try
Me.bs.Filter = Filter
'//바꾸기값이 있으면 변경 20100618
If Frm_FilterA.cmb_fieldc.SelectedIndex >= 0 AndAlso Frm_FilterA.cmb_fieldc.Text.ToLower <> "code" AndAlso _
Frm_FilterA.tb_valuec.Text <> "" Then
Dim Drow() As DataRow = Me.DT.Select(Filter)
For Each Dr As DataRow In Drow
Dr(Frm_FilterA.cmb_fieldc.Text) = Frm_FilterA.tb_valuec.Text
Next
MsgBox("바꾸기 완료", MsgBoxStyle.Information, "확인")
End If
Catch ex As Exception
Me.bs.Filter = ""
End Try
End If
End If
End Sub
Private Sub dv_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles dv.KeyDown
'//여기보시면 alt+d 누르면 한줄을 경고없이(falsE)삭제하도록 햇어요.. 사실원래 밋alt +d 인데.. ㅎㅎ 잘못해서 ctrl 됫다는
If Prj.UserAuthType = "ADMIN" OrElse Prj.UserAuthType = "BOTH" OrElse Prj.UserAuthType = "BOTH2" OrElse Prj.UserAuthType = "BOTH1" Then '//2011.03.08 추가
Select Case e.KeyCode
Case Keys.D
If e.Alt Then
Dbbase.DelCrow(Me.bs, False)
End If
Case Keys.C
If e.Control Then
Me.SrcDrv = Me.bs.Current
If Me.SrcDrv Is Nothing Then
MsgBox("저장할 ROW가 없습니다", MsgBoxStyle.Information, "확인")
Return
End If
' My.Computer.Clipboard.SetData("ZDATA", Drv)
End If
Case Keys.V
If e.Control Then
If Me.SrcDrv Is Nothing Then Return
Me.bt_add.PerformClick() '//신규추가
Dim NewDrv As DataRowView = Me.bs.Current
For Each C As DataColumn In Me.DT.Columns
If C.ColumnName.ToUpper = "CODE" Then
ElseIf C.ColumnName.ToUpper = "설명" Then
NewDrv(C.ColumnName) = SrcDrv(C.ColumnName) & "#1"
Else
NewDrv(C.ColumnName) = SrcDrv(C.ColumnName)
End If
Next
Me.bs.EndEdit()
bs.MoveLast()
End If
End Select
End If
End Sub
Private Sub bs_CurrentChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bs.CurrentChanged
If Not Init Then Return
Dim drv As DataRowView = Me.bs.Current
If drv Is Nothing Then Return
Me.lb_code.Text = "[" + drv("code").ToString + "]"
Me.bs.EndEdit()
End Sub
Private Sub SplitContainer1_Panel2_Paint(sender As System.Object, e As System.Windows.Forms.PaintEventArgs) Handles SplitContainer1.Panel2.Paint
End Sub
Private Sub dv_CellContentClick(sender As System.Object, e As System.Windows.Forms.DataGridViewCellEventArgs) Handles dv.CellContentClick
End Sub
Private Sub Frm_Bunbae_KeyDown(sender As System.Object, e As System.Windows.Forms.KeyEventArgs) Handles MyBase.KeyDown
Select Case e.KeyCode
Case Keys.F12
ShowHistory()
End Select
End Sub
End Class

1575
ArinWarev1/Forms_Input/Frm_Desc.Designer.vb generated Normal file
View File

File diff suppressed because it is too large Load Diff

791
ArinWarev1/Forms_Input/Frm_Desc.resx Normal file
View File

@@ -0,0 +1,791 @@
<?xml version="1.0" encoding="utf-8"?>
<root>
<!--
Microsoft ResX Schema
Version 2.0
The primary goals of this format is to allow a simple XML format
that is mostly human readable. The generation and parsing of the
various data types are done through the TypeConverter classes
associated with the data types.
Example:
... ado.net/XML headers & schema ...
<resheader name="resmimetype">text/microsoft-resx</resheader>
<resheader name="version">2.0</resheader>
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
<data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
<value>[base64 mime encoded serialized .NET Framework object]</value>
</data>
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
<comment>This is a comment</comment>
</data>
There are any number of "resheader" rows that contain simple
name/value pairs.
Each data row contains a name, and value. The row also contains a
type or mimetype. Type corresponds to a .NET class that support
text/value conversion through the TypeConverter architecture.
Classes that don't support this are serialized and stored with the
mimetype set.
The mimetype is used for serialized objects, and tells the
ResXResourceReader how to depersist the object. This is currently not
extensible. For a given mimetype the value must be set accordingly:
Note - application/x-microsoft.net.object.binary.base64 is the format
that the ResXResourceWriter will generate, however the reader can
read any of the formats listed below.
mimetype: application/x-microsoft.net.object.binary.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.soap.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.bytearray.base64
value : The object must be serialized into a byte array
: using a System.ComponentModel.TypeConverter
: and then encoded with base64 encoding.
-->
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
<xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
<xsd:element name="root" msdata:IsDataSet="true">
<xsd:complexType>
<xsd:choice maxOccurs="unbounded">
<xsd:element name="metadata">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" />
</xsd:sequence>
<xsd:attribute name="name" use="required" type="xsd:string" />
<xsd:attribute name="type" type="xsd:string" />
<xsd:attribute name="mimetype" type="xsd:string" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="assembly">
<xsd:complexType>
<xsd:attribute name="alias" type="xsd:string" />
<xsd:attribute name="name" type="xsd:string" />
</xsd:complexType>
</xsd:element>
<xsd:element name="data">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="resheader">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" />
</xsd:complexType>
</xsd:element>
</xsd:choice>
</xsd:complexType>
</xsd:element>
</xsd:schema>
<resheader name="resmimetype">
<value>text/microsoft-resx</value>
</resheader>
<resheader name="version">
<value>2.0</value>
</resheader>
<resheader name="reader">
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<resheader name="writer">
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<metadata name="bs.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<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>81, 17</value>
</metadata>
<assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
<data name="PictureBox4.BackgroundImage" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
/9j/4AAQSkZJRgABAgEASABIAAD/7gAOQWRvYmUAZAAAAAAB/+ED5kV4aWYAAE1NACoAAAAIAAcBEgAD
AAAAAQABAAABGgAFAAAAAQAAAGIBGwAFAAAAAQAAAGoBKAADAAAAAQACAAABMQACAAAAHAAAAHIBMgAC
AAAAFAAAAI6HaQAEAAAAAQAAAKIAAADCAEgAAAABAAAASAAAAAEAAEFkb2JlIFBob3Rvc2hvcCBDUzMg
V2luZG93cwAyMDEwOjA0OjE1IDIwOjMyOjA0AAACoAIABAAAAAEAAAA8oAMABAAAAAEAAAAMAAAAAAAA
AAYBAwADAAAAAQAGAAABGgAFAAAAAQAAARABGwAFAAAAAQAAARgBKAADAAAAAQACAAACAQAEAAAAAQAA
ASACAgAEAAAAAQAAAr4AAAAAAAAASAAAAAEAAABIAAAAAf/Y/+AAEEpGSUYAAQIAAEgASAAA/+0ADEFk
b2JlX0NNAAH/7gAOQWRvYmUAZIAAAAAB/9sAhAAMCAgICQgMCQkMEQsKCxEVDwwMDxUYExMVExMYEQwM
DAwMDBEMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMAQ0LCw0ODRAODhAUDg4OFBQODg4OFBEMDAwM
DBERDAwMDAwMEQwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAz/wAARCAAMADwDASIAAhEBAxEB/90A
BAAE/8QBPwAAAQUBAQEBAQEAAAAAAAAAAwABAgQFBgcICQoLAQABBQEBAQEBAQAAAAAAAAABAAIDBAUG
BwgJCgsQAAEEAQMCBAIFBwYIBQMMMwEAAhEDBCESMQVBUWETInGBMgYUkaGxQiMkFVLBYjM0coLRQwcl
klPw4fFjczUWorKDJkSTVGRFwqN0NhfSVeJl8rOEw9N14/NGJ5SkhbSVxNTk9KW1xdXl9VZmdoaWprbG
1ub2N0dXZ3eHl6e3x9fn9xEAAgIBAgQEAwQFBgcHBgU1AQACEQMhMRIEQVFhcSITBTKBkRShsUIjwVLR
8DMkYuFygpJDUxVjczTxJQYWorKDByY1wtJEk1SjF2RFVTZ0ZeLys4TD03Xj80aUpIW0lcTU5PSltcXV
5fVWZnaGlqa2xtbm9ic3R1dnd4eXp7fH/9oADAMBAAIRAxEAPwDd/amR/pH/AOcf70v2pkf6R/8AnH+9
UUlofq/Bpevxb37UyP8ASP8A84/3pftTI/0j/wDOP96opJfq/BXr8W9+1Mj/AEj/APOP96X7UyP9I/8A
zj/eqKSX6vwV6/F3ujdbuGS2i5xfU8HVxktIG76XyW99vo27p0XGdO2/ba930dZj+q5dX+qfZPL8VAeD
341VVr/eZhx+0bu708n/2f/iDFhJQ0NfUFJPRklMRQABAQAADEhMaW5vAhAAAG1udHJSR0IgWFlaIAfO
AAIACQAGADEAAGFjc3BNU0ZUAAAAAElFQyBzUkdCAAAAAAAAAAAAAAAAAAD21gABAAAAANMtSFAgIAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAEWNwcnQAAAFQAAAAM2Rl
c2MAAAGEAAAAbHd0cHQAAAHwAAAAFGJrcHQAAAIEAAAAFHJYWVoAAAIYAAAAFGdYWVoAAAIsAAAAFGJY
WVoAAAJAAAAAFGRtbmQAAAJUAAAAcGRtZGQAAALEAAAAiHZ1ZWQAAANMAAAAhnZpZXcAAAPUAAAAJGx1
bWkAAAP4AAAAFG1lYXMAAAQMAAAAJHRlY2gAAAQwAAAADHJUUkMAAAQ8AAAIDGdUUkMAAAQ8AAAIDGJU
UkMAAAQ8AAAIDHRleHQAAAAAQ29weXJpZ2h0IChjKSAxOTk4IEhld2xldHQtUGFja2FyZCBDb21wYW55
AABkZXNjAAAAAAAAABJzUkdCIElFQzYxOTY2LTIuMQAAAAAAAAAAAAAAEnNSR0IgSUVDNjE5NjYtMi4x
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABYWVogAAAAAAAA
81EAAQAAAAEWzFhZWiAAAAAAAAAAAAAAAAAAAAAAWFlaIAAAAAAAAG+iAAA49QAAA5BYWVogAAAAAAAA
YpkAALeFAAAY2lhZWiAAAAAAAAAkoAAAD4QAALbPZGVzYwAAAAAAAAAWSUVDIGh0dHA6Ly93d3cuaWVj
LmNoAAAAAAAAAAAAAAAWSUVDIGh0dHA6Ly93d3cuaWVjLmNoAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAGRlc2MAAAAAAAAALklFQyA2MTk2Ni0yLjEgRGVmYXVsdCBSR0Ig
Y29sb3VyIHNwYWNlIC0gc1JHQgAAAAAAAAAAAAAALklFQyA2MTk2Ni0yLjEgRGVmYXVsdCBSR0IgY29s
b3VyIHNwYWNlIC0gc1JHQgAAAAAAAAAAAAAAAAAAAAAAAAAAAABkZXNjAAAAAAAAACxSZWZlcmVuY2Ug
Vmlld2luZyBDb25kaXRpb24gaW4gSUVDNjE5NjYtMi4xAAAAAAAAAAAAAAAsUmVmZXJlbmNlIFZpZXdp
bmcgQ29uZGl0aW9uIGluIElFQzYxOTY2LTIuMQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAdmlldwAA
AAAAE6T+ABRfLgAQzxQAA+3MAAQTCwADXJ4AAAABWFlaIAAAAAAATAlWAFAAAABXH+dtZWFzAAAAAAAA
AAEAAAAAAAAAAAAAAAAAAAAAAAACjwAAAAJzaWcgAAAAAENSVCBjdXJ2AAAAAAAABAAAAAAFAAoADwAU
ABkAHgAjACgALQAyADcAOwBAAEUASgBPAFQAWQBeAGMAaABtAHIAdwB8AIEAhgCLAJAAlQCaAJ8ApACp
AK4AsgC3ALwAwQDGAMsA0ADVANsA4ADlAOsA8AD2APsBAQEHAQ0BEwEZAR8BJQErATIBOAE+AUUBTAFS
AVkBYAFnAW4BdQF8AYMBiwGSAZoBoQGpAbEBuQHBAckB0QHZAeEB6QHyAfoCAwIMAhQCHQImAi8COAJB
AksCVAJdAmcCcQJ6AoQCjgKYAqICrAK2AsECywLVAuAC6wL1AwADCwMWAyEDLQM4A0MDTwNaA2YDcgN+
A4oDlgOiA64DugPHA9MD4APsA/kEBgQTBCAELQQ7BEgEVQRjBHEEfgSMBJoEqAS2BMQE0wThBPAE/gUN
BRwFKwU6BUkFWAVnBXcFhgWWBaYFtQXFBdUF5QX2BgYGFgYnBjcGSAZZBmoGewaMBp0GrwbABtEG4wb1
BwcHGQcrBz0HTwdhB3QHhgeZB6wHvwfSB+UH+AgLCB8IMghGCFoIbgiCCJYIqgi+CNII5wj7CRAJJQk6
CU8JZAl5CY8JpAm6Cc8J5Qn7ChEKJwo9ClQKagqBCpgKrgrFCtwK8wsLCyILOQtRC2kLgAuYC7ALyAvh
C/kMEgwqDEMMXAx1DI4MpwzADNkM8w0NDSYNQA1aDXQNjg2pDcMN3g34DhMOLg5JDmQOfw6bDrYO0g7u
DwkPJQ9BD14Peg+WD7MPzw/sEAkQJhBDEGEQfhCbELkQ1xD1ERMRMRFPEW0RjBGqEckR6BIHEiYSRRJk
EoQSoxLDEuMTAxMjE0MTYxODE6QTxRPlFAYUJxRJFGoUixStFM4U8BUSFTQVVhV4FZsVvRXgFgMWJhZJ
FmwWjxayFtYW+hcdF0EXZReJF64X0hf3GBsYQBhlGIoYrxjVGPoZIBlFGWsZkRm3Gd0aBBoqGlEadxqe
GsUa7BsUGzsbYxuKG7Ib2hwCHCocUhx7HKMczBz1HR4dRx1wHZkdwx3sHhYeQB5qHpQevh7pHxMfPh9p
H5Qfvx/qIBUgQSBsIJggxCDwIRwhSCF1IaEhziH7IiciVSKCIq8i3SMKIzgjZiOUI8Ij8CQfJE0kfCSr
JNolCSU4JWgllyXHJfcmJyZXJocmtyboJxgnSSd6J6sn3CgNKD8ocSiiKNQpBik4KWspnSnQKgIqNSpo
KpsqzysCKzYraSudK9EsBSw5LG4soizXLQwtQS12Last4S4WLkwugi63Lu4vJC9aL5Evxy/+MDUwbDCk
MNsxEjFKMYIxujHyMioyYzKbMtQzDTNGM38zuDPxNCs0ZTSeNNg1EzVNNYc1wjX9Njc2cjauNuk3JDdg
N5w31zgUOFA4jDjIOQU5Qjl/Obw5+To2OnQ6sjrvOy07azuqO+g8JzxlPKQ84z0iPWE9oT3gPiA+YD6g
PuA/IT9hP6I/4kAjQGRApkDnQSlBakGsQe5CMEJyQrVC90M6Q31DwEQDREdEikTORRJFVUWaRd5GIkZn
RqtG8Ec1R3tHwEgFSEtIkUjXSR1JY0mpSfBKN0p9SsRLDEtTS5pL4kwqTHJMuk0CTUpNk03cTiVObk63
TwBPSU+TT91QJ1BxULtRBlFQUZtR5lIxUnxSx1MTU19TqlP2VEJUj1TbVShVdVXCVg9WXFapVvdXRFeS
V+BYL1h9WMtZGllpWbhaB1pWWqZa9VtFW5Vb5Vw1XIZc1l0nXXhdyV4aXmxevV8PX2Ffs2AFYFdgqmD8
YU9homH1YklinGLwY0Njl2PrZEBklGTpZT1lkmXnZj1mkmboZz1nk2fpaD9olmjsaUNpmmnxakhqn2r3
a09rp2v/bFdsr20IbWBtuW4SbmtuxG8eb3hv0XArcIZw4HE6cZVx8HJLcqZzAXNdc7h0FHRwdMx1KHWF
deF2Pnabdvh3VnezeBF4bnjMeSp5iXnnekZ6pXsEe2N7wnwhfIF84X1BfaF+AX5ifsJ/I3+Ef+WAR4Co
gQqBa4HNgjCCkoL0g1eDuoQdhICE44VHhauGDoZyhteHO4efiASIaYjOiTOJmYn+imSKyoswi5aL/Ixj
jMqNMY2Yjf+OZo7OjzaPnpAGkG6Q1pE/kaiSEZJ6kuOTTZO2lCCUipT0lV+VyZY0lp+XCpd1l+CYTJi4
mSSZkJn8mmia1ZtCm6+cHJyJnPedZJ3SnkCerp8dn4uf+qBpoNihR6G2oiailqMGo3aj5qRWpMelOKWp
phqmi6b9p26n4KhSqMSpN6mpqhyqj6sCq3Wr6axcrNCtRK24ri2uoa8Wr4uwALB1sOqxYLHWskuywrM4
s660JbSctRO1irYBtnm28Ldot+C4WbjRuUq5wro7urW7LrunvCG8m70VvY++Cr6Evv+/er/1wHDA7MFn
wePCX8Lbw1jD1MRRxM7FS8XIxkbGw8dBx7/IPci8yTrJuco4yrfLNsu2zDXMtc01zbXONs62zzfPuNA5
0LrRPNG+0j/SwdNE08bUSdTL1U7V0dZV1tjXXNfg2GTY6Nls2fHadtr724DcBdyK3RDdlt4c3qLfKd+v
4DbgveFE4cziU+Lb42Pj6+Rz5PzlhOYN5pbnH+ep6DLovOlG6dDqW+rl63Dr++yG7RHtnO4o7rTvQO/M
8Fjw5fFy8f/yjPMZ86f0NPTC9VD13vZt9vv3ivgZ+Kj5OPnH+lf65/t3/Af8mP0p/br+S/7c/23////b
AEMAAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQICAgICAgICAgICAwMD
AwMDAwMDA//bAEMBAQEBAQEBAQEBAQICAQICAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMD
AwMDAwMDAwMDAwMDAwMDA//AABEIAAwAPAMBEQACEQEDEQH/xAAfAAABBQEBAQEBAQAAAAAAAAAAAQID
BAUGBwgJCgv/xAC1EAACAQMDAgQDBQUEBAAAAX0BAgMABBEFEiExQQYTUWEHInEUMoGRoQgjQrHBFVLR
8CQzYnKCCQoWFxgZGiUmJygpKjQ1Njc4OTpDREVGR0hJSlNUVVZXWFlaY2RlZmdoaWpzdHV2d3h5eoOE
hYaHiImKkpOUlZaXmJmaoqOkpaanqKmqsrO0tba3uLm6wsPExcbHyMnK0tPU1dbX2Nna4eLj5OXm5+jp
6vHy8/T19vf4+fr/xAAfAQADAQEBAQEBAQEBAAAAAAAAAQIDBAUGBwgJCgv/xAC1EQACAQIEBAMEBwUE
BAABAncAAQIDEQQFITEGEkFRB2FxEyIygQgUQpGhscEJIzNS8BVictEKFiQ04SXxFxgZGiYnKCkqNTY3
ODk6Q0RFRkdISUpTVFVWV1hZWmNkZWZnaGlqc3R1dnd4eXqCg4SFhoeIiYqSk5SVlpeYmZqio6Slpqeo
qaqys7S1tre4ubrCw8TFxsfIycrS09TV1tfY2dri4+Tl5ufo6ery8/T19vf4+fr/2gAMAwEAAhEDEQA/
AP1ZH7UPxEAA/wCEw8bnj/ob9f8A/k+v7U/1Nyj/AKF+G/8ABUP/AJE/llcSZlZf7dX/APBk/wDMX/hq
H4if9Df43/8ACv1//wCT6P8AU3Kf+hfhv/BUP/kQ/wBZcy/6Dq//AIMn/mH/AA1D8RP+hv8AG/8A4V+v
/wDyfR/qblP/AEL8N/4Kh/8AIh/rLmX/AEHV/wDwZP8AzD/hqH4if9Df43/8K/X/AP5Po/1Nyn/oX4b/
AMFQ/wDkQ/1lzL/oOr/+DJ/5h/w1D8RP+hv8b/8AhX6//wDJ9H+puU/9C/Df+Cof/Ih/rLmX/QdX/wDB
k/8AMT/hqH4if9Df43/8K/X/AP5Po/1Nyn/oX4b/AMFQ/wDkQ/1kzL/oOr/+DJ/5n2R+xz+234zt/iRp
nw+8a6vqXiDwZ4gs9baObXr+bUr/AMPajpmkX2tQ3FlqV2Zb57K7XT2t3tXkaJWkV4whVxJ+beJfAuU4
Th/FZ/hKEKOMw8qd+SKjGcZzjTs4q0bpyUlJK7s073VvuuBOLMxxGcYfJ8TWlVw1ZTtzu7hKMJTupPWz
UWnFu2qatrf9aP8AhfXgv+zv7U89/sfm+V5207N+M43fSv50P2w/kwr/AEFP42CgAoAKACgAoA9s/Z0/
s7/hcng3+1vP/s7Ov/avs2PP2f8ACL63t2buP9ZjP+zmvz7xU/5IPPf+4H/qRRPsvD//AJK7KP8AuL/6
ZqH7/wD/ABaT/hUfb7Ht/wBj7V9p8v8A9Cr+Oz+lz//Z
</value>
</data>
<metadata name="ToolTip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>148, 17</value>
</metadata>
<data name="PictureBox5.BackgroundImage" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
/9j/4AAQSkZJRgABAgEASABIAAD/7gAOQWRvYmUAZAAAAAAB/+ED5kV4aWYAAE1NACoAAAAIAAcBEgAD
AAAAAQABAAABGgAFAAAAAQAAAGIBGwAFAAAAAQAAAGoBKAADAAAAAQACAAABMQACAAAAHAAAAHIBMgAC
AAAAFAAAAI6HaQAEAAAAAQAAAKIAAADCAEgAAAABAAAASAAAAAEAAEFkb2JlIFBob3Rvc2hvcCBDUzMg
V2luZG93cwAyMDEwOjA0OjE1IDIwOjMyOjA0AAACoAIABAAAAAEAAAA8oAMABAAAAAEAAAAMAAAAAAAA
AAYBAwADAAAAAQAGAAABGgAFAAAAAQAAARABGwAFAAAAAQAAARgBKAADAAAAAQACAAACAQAEAAAAAQAA
ASACAgAEAAAAAQAAAr4AAAAAAAAASAAAAAEAAABIAAAAAf/Y/+AAEEpGSUYAAQIAAEgASAAA/+0ADEFk
b2JlX0NNAAH/7gAOQWRvYmUAZIAAAAAB/9sAhAAMCAgICQgMCQkMEQsKCxEVDwwMDxUYExMVExMYEQwM
DAwMDBEMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMAQ0LCw0ODRAODhAUDg4OFBQODg4OFBEMDAwM
DBERDAwMDAwMEQwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAz/wAARCAAMADwDASIAAhEBAxEB/90A
BAAE/8QBPwAAAQUBAQEBAQEAAAAAAAAAAwABAgQFBgcICQoLAQABBQEBAQEBAQAAAAAAAAABAAIDBAUG
BwgJCgsQAAEEAQMCBAIFBwYIBQMMMwEAAhEDBCESMQVBUWETInGBMgYUkaGxQiMkFVLBYjM0coLRQwcl
klPw4fFjczUWorKDJkSTVGRFwqN0NhfSVeJl8rOEw9N14/NGJ5SkhbSVxNTk9KW1xdXl9VZmdoaWprbG
1ub2N0dXZ3eHl6e3x9fn9xEAAgIBAgQEAwQFBgcHBgU1AQACEQMhMRIEQVFhcSITBTKBkRShsUIjwVLR
8DMkYuFygpJDUxVjczTxJQYWorKDByY1wtJEk1SjF2RFVTZ0ZeLys4TD03Xj80aUpIW0lcTU5PSltcXV
5fVWZnaGlqa2xtbm9ic3R1dnd4eXp7fH/9oADAMBAAIRAxEAPwDd/amR/pH/AOcf70v2pkf6R/8AnH+9
UUlofq/Bpevxb37UyP8ASP8A84/3pftTI/0j/wDOP96opJfq/BXr8W9+1Mj/AEj/APOP96X7UyP9I/8A
zj/eqKSX6vwV6/F3ujdbuGS2i5xfU8HVxktIG76XyW99vo27p0XGdO2/ba930dZj+q5dX+qfZPL8VAeD
341VVr/eZhx+0bu708n/2f/iDFhJQ0NfUFJPRklMRQABAQAADEhMaW5vAhAAAG1udHJSR0IgWFlaIAfO
AAIACQAGADEAAGFjc3BNU0ZUAAAAAElFQyBzUkdCAAAAAAAAAAAAAAAAAAD21gABAAAAANMtSFAgIAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAEWNwcnQAAAFQAAAAM2Rl
c2MAAAGEAAAAbHd0cHQAAAHwAAAAFGJrcHQAAAIEAAAAFHJYWVoAAAIYAAAAFGdYWVoAAAIsAAAAFGJY
WVoAAAJAAAAAFGRtbmQAAAJUAAAAcGRtZGQAAALEAAAAiHZ1ZWQAAANMAAAAhnZpZXcAAAPUAAAAJGx1
bWkAAAP4AAAAFG1lYXMAAAQMAAAAJHRlY2gAAAQwAAAADHJUUkMAAAQ8AAAIDGdUUkMAAAQ8AAAIDGJU
UkMAAAQ8AAAIDHRleHQAAAAAQ29weXJpZ2h0IChjKSAxOTk4IEhld2xldHQtUGFja2FyZCBDb21wYW55
AABkZXNjAAAAAAAAABJzUkdCIElFQzYxOTY2LTIuMQAAAAAAAAAAAAAAEnNSR0IgSUVDNjE5NjYtMi4x
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABYWVogAAAAAAAA
81EAAQAAAAEWzFhZWiAAAAAAAAAAAAAAAAAAAAAAWFlaIAAAAAAAAG+iAAA49QAAA5BYWVogAAAAAAAA
YpkAALeFAAAY2lhZWiAAAAAAAAAkoAAAD4QAALbPZGVzYwAAAAAAAAAWSUVDIGh0dHA6Ly93d3cuaWVj
LmNoAAAAAAAAAAAAAAAWSUVDIGh0dHA6Ly93d3cuaWVjLmNoAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAGRlc2MAAAAAAAAALklFQyA2MTk2Ni0yLjEgRGVmYXVsdCBSR0Ig
Y29sb3VyIHNwYWNlIC0gc1JHQgAAAAAAAAAAAAAALklFQyA2MTk2Ni0yLjEgRGVmYXVsdCBSR0IgY29s
b3VyIHNwYWNlIC0gc1JHQgAAAAAAAAAAAAAAAAAAAAAAAAAAAABkZXNjAAAAAAAAACxSZWZlcmVuY2Ug
Vmlld2luZyBDb25kaXRpb24gaW4gSUVDNjE5NjYtMi4xAAAAAAAAAAAAAAAsUmVmZXJlbmNlIFZpZXdp
bmcgQ29uZGl0aW9uIGluIElFQzYxOTY2LTIuMQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAdmlldwAA
AAAAE6T+ABRfLgAQzxQAA+3MAAQTCwADXJ4AAAABWFlaIAAAAAAATAlWAFAAAABXH+dtZWFzAAAAAAAA
AAEAAAAAAAAAAAAAAAAAAAAAAAACjwAAAAJzaWcgAAAAAENSVCBjdXJ2AAAAAAAABAAAAAAFAAoADwAU
ABkAHgAjACgALQAyADcAOwBAAEUASgBPAFQAWQBeAGMAaABtAHIAdwB8AIEAhgCLAJAAlQCaAJ8ApACp
AK4AsgC3ALwAwQDGAMsA0ADVANsA4ADlAOsA8AD2APsBAQEHAQ0BEwEZAR8BJQErATIBOAE+AUUBTAFS
AVkBYAFnAW4BdQF8AYMBiwGSAZoBoQGpAbEBuQHBAckB0QHZAeEB6QHyAfoCAwIMAhQCHQImAi8COAJB
AksCVAJdAmcCcQJ6AoQCjgKYAqICrAK2AsECywLVAuAC6wL1AwADCwMWAyEDLQM4A0MDTwNaA2YDcgN+
A4oDlgOiA64DugPHA9MD4APsA/kEBgQTBCAELQQ7BEgEVQRjBHEEfgSMBJoEqAS2BMQE0wThBPAE/gUN
BRwFKwU6BUkFWAVnBXcFhgWWBaYFtQXFBdUF5QX2BgYGFgYnBjcGSAZZBmoGewaMBp0GrwbABtEG4wb1
BwcHGQcrBz0HTwdhB3QHhgeZB6wHvwfSB+UH+AgLCB8IMghGCFoIbgiCCJYIqgi+CNII5wj7CRAJJQk6
CU8JZAl5CY8JpAm6Cc8J5Qn7ChEKJwo9ClQKagqBCpgKrgrFCtwK8wsLCyILOQtRC2kLgAuYC7ALyAvh
C/kMEgwqDEMMXAx1DI4MpwzADNkM8w0NDSYNQA1aDXQNjg2pDcMN3g34DhMOLg5JDmQOfw6bDrYO0g7u
DwkPJQ9BD14Peg+WD7MPzw/sEAkQJhBDEGEQfhCbELkQ1xD1ERMRMRFPEW0RjBGqEckR6BIHEiYSRRJk
EoQSoxLDEuMTAxMjE0MTYxODE6QTxRPlFAYUJxRJFGoUixStFM4U8BUSFTQVVhV4FZsVvRXgFgMWJhZJ
FmwWjxayFtYW+hcdF0EXZReJF64X0hf3GBsYQBhlGIoYrxjVGPoZIBlFGWsZkRm3Gd0aBBoqGlEadxqe
GsUa7BsUGzsbYxuKG7Ib2hwCHCocUhx7HKMczBz1HR4dRx1wHZkdwx3sHhYeQB5qHpQevh7pHxMfPh9p
H5Qfvx/qIBUgQSBsIJggxCDwIRwhSCF1IaEhziH7IiciVSKCIq8i3SMKIzgjZiOUI8Ij8CQfJE0kfCSr
JNolCSU4JWgllyXHJfcmJyZXJocmtyboJxgnSSd6J6sn3CgNKD8ocSiiKNQpBik4KWspnSnQKgIqNSpo
KpsqzysCKzYraSudK9EsBSw5LG4soizXLQwtQS12Last4S4WLkwugi63Lu4vJC9aL5Evxy/+MDUwbDCk
MNsxEjFKMYIxujHyMioyYzKbMtQzDTNGM38zuDPxNCs0ZTSeNNg1EzVNNYc1wjX9Njc2cjauNuk3JDdg
N5w31zgUOFA4jDjIOQU5Qjl/Obw5+To2OnQ6sjrvOy07azuqO+g8JzxlPKQ84z0iPWE9oT3gPiA+YD6g
PuA/IT9hP6I/4kAjQGRApkDnQSlBakGsQe5CMEJyQrVC90M6Q31DwEQDREdEikTORRJFVUWaRd5GIkZn
RqtG8Ec1R3tHwEgFSEtIkUjXSR1JY0mpSfBKN0p9SsRLDEtTS5pL4kwqTHJMuk0CTUpNk03cTiVObk63
TwBPSU+TT91QJ1BxULtRBlFQUZtR5lIxUnxSx1MTU19TqlP2VEJUj1TbVShVdVXCVg9WXFapVvdXRFeS
V+BYL1h9WMtZGllpWbhaB1pWWqZa9VtFW5Vb5Vw1XIZc1l0nXXhdyV4aXmxevV8PX2Ffs2AFYFdgqmD8
YU9homH1YklinGLwY0Njl2PrZEBklGTpZT1lkmXnZj1mkmboZz1nk2fpaD9olmjsaUNpmmnxakhqn2r3
a09rp2v/bFdsr20IbWBtuW4SbmtuxG8eb3hv0XArcIZw4HE6cZVx8HJLcqZzAXNdc7h0FHRwdMx1KHWF
deF2Pnabdvh3VnezeBF4bnjMeSp5iXnnekZ6pXsEe2N7wnwhfIF84X1BfaF+AX5ifsJ/I3+Ef+WAR4Co
gQqBa4HNgjCCkoL0g1eDuoQdhICE44VHhauGDoZyhteHO4efiASIaYjOiTOJmYn+imSKyoswi5aL/Ixj
jMqNMY2Yjf+OZo7OjzaPnpAGkG6Q1pE/kaiSEZJ6kuOTTZO2lCCUipT0lV+VyZY0lp+XCpd1l+CYTJi4
mSSZkJn8mmia1ZtCm6+cHJyJnPedZJ3SnkCerp8dn4uf+qBpoNihR6G2oiailqMGo3aj5qRWpMelOKWp
phqmi6b9p26n4KhSqMSpN6mpqhyqj6sCq3Wr6axcrNCtRK24ri2uoa8Wr4uwALB1sOqxYLHWskuywrM4
s660JbSctRO1irYBtnm28Ldot+C4WbjRuUq5wro7urW7LrunvCG8m70VvY++Cr6Evv+/er/1wHDA7MFn
wePCX8Lbw1jD1MRRxM7FS8XIxkbGw8dBx7/IPci8yTrJuco4yrfLNsu2zDXMtc01zbXONs62zzfPuNA5
0LrRPNG+0j/SwdNE08bUSdTL1U7V0dZV1tjXXNfg2GTY6Nls2fHadtr724DcBdyK3RDdlt4c3qLfKd+v
4DbgveFE4cziU+Lb42Pj6+Rz5PzlhOYN5pbnH+ep6DLovOlG6dDqW+rl63Dr++yG7RHtnO4o7rTvQO/M
8Fjw5fFy8f/yjPMZ86f0NPTC9VD13vZt9vv3ivgZ+Kj5OPnH+lf65/t3/Af8mP0p/br+S/7c/23////b
AEMAAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQICAgICAgICAgICAwMD
AwMDAwMDA//bAEMBAQEBAQEBAQEBAQICAQICAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMD
AwMDAwMDAwMDAwMDAwMDA//AABEIAAwAPAMBEQACEQEDEQH/xAAfAAABBQEBAQEBAQAAAAAAAAAAAQID
BAUGBwgJCgv/xAC1EAACAQMDAgQDBQUEBAAAAX0BAgMABBEFEiExQQYTUWEHInEUMoGRoQgjQrHBFVLR
8CQzYnKCCQoWFxgZGiUmJygpKjQ1Njc4OTpDREVGR0hJSlNUVVZXWFlaY2RlZmdoaWpzdHV2d3h5eoOE
hYaHiImKkpOUlZaXmJmaoqOkpaanqKmqsrO0tba3uLm6wsPExcbHyMnK0tPU1dbX2Nna4eLj5OXm5+jp
6vHy8/T19vf4+fr/xAAfAQADAQEBAQEBAQEBAAAAAAAAAQIDBAUGBwgJCgv/xAC1EQACAQIEBAMEBwUE
BAABAncAAQIDEQQFITEGEkFRB2FxEyIygQgUQpGhscEJIzNS8BVictEKFiQ04SXxFxgZGiYnKCkqNTY3
ODk6Q0RFRkdISUpTVFVWV1hZWmNkZWZnaGlqc3R1dnd4eXqCg4SFhoeIiYqSk5SVlpeYmZqio6Slpqeo
qaqys7S1tre4ubrCw8TFxsfIycrS09TV1tfY2dri4+Tl5ufo6ery8/T19vf4+fr/2gAMAwEAAhEDEQA/
AP1ZH7UPxEAA/wCEw8bnj/ob9f8A/k+v7U/1Nyj/AKF+G/8ABUP/AJE/llcSZlZf7dX/APBk/wDMX/hq
H4if9Df43/8ACv1//wCT6P8AU3Kf+hfhv/BUP/kQ/wBZcy/6Dq//AIMn/mH/AA1D8RP+hv8AG/8A4V+v
/wDyfR/qblP/AEL8N/4Kh/8AIh/rLmX/AEHV/wDwZP8AzD/hqH4if9Df43/8K/X/AP5Po/1Nyn/oX4b/
AMFQ/wDkQ/1lzL/oOr/+DJ/5h/w1D8RP+hv8b/8AhX6//wDJ9H+puU/9C/Df+Cof/Ih/rLmX/QdX/wDB
k/8AMT/hqH4if9Df43/8K/X/AP5Po/1Nyn/oX4b/AMFQ/wDkQ/1kzL/oOr/+DJ/5n2R+xz+234zt/iRp
nw+8a6vqXiDwZ4gs9baObXr+bUr/AMPajpmkX2tQ3FlqV2Zb57K7XT2t3tXkaJWkV4whVxJ+beJfAuU4
Th/FZ/hKEKOMw8qd+SKjGcZzjTs4q0bpyUlJK7s073VvuuBOLMxxGcYfJ8TWlVw1ZTtzu7hKMJTupPWz
UWnFu2qatrf9aP8AhfXgv+zv7U89/sfm+V5207N+M43fSv50P2w/kwr/AEFP42CgAoAKACgAoA9s/Z0/
s7/hcng3+1vP/s7Ov/avs2PP2f8ACL63t2buP9ZjP+zmvz7xU/5IPPf+4H/qRRPsvD//AJK7KP8AuL/6
ZqH7/wD/ABaT/hUfb7Ht/wBj7V9p8v8A9Cr+Oz+lz//Z
</value>
</data>
<data name="PictureBox2.BackgroundImage" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
/9j/4AAQSkZJRgABAgEASABIAAD/7gAOQWRvYmUAZAAAAAAB/+ED5kV4aWYAAE1NACoAAAAIAAcBEgAD
AAAAAQABAAABGgAFAAAAAQAAAGIBGwAFAAAAAQAAAGoBKAADAAAAAQACAAABMQACAAAAHAAAAHIBMgAC
AAAAFAAAAI6HaQAEAAAAAQAAAKIAAADCAEgAAAABAAAASAAAAAEAAEFkb2JlIFBob3Rvc2hvcCBDUzMg
V2luZG93cwAyMDEwOjA0OjE1IDIwOjMyOjA0AAACoAIABAAAAAEAAAA8oAMABAAAAAEAAAAMAAAAAAAA
AAYBAwADAAAAAQAGAAABGgAFAAAAAQAAARABGwAFAAAAAQAAARgBKAADAAAAAQACAAACAQAEAAAAAQAA
ASACAgAEAAAAAQAAAr4AAAAAAAAASAAAAAEAAABIAAAAAf/Y/+AAEEpGSUYAAQIAAEgASAAA/+0ADEFk
b2JlX0NNAAH/7gAOQWRvYmUAZIAAAAAB/9sAhAAMCAgICQgMCQkMEQsKCxEVDwwMDxUYExMVExMYEQwM
DAwMDBEMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMAQ0LCw0ODRAODhAUDg4OFBQODg4OFBEMDAwM
DBERDAwMDAwMEQwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAz/wAARCAAMADwDASIAAhEBAxEB/90A
BAAE/8QBPwAAAQUBAQEBAQEAAAAAAAAAAwABAgQFBgcICQoLAQABBQEBAQEBAQAAAAAAAAABAAIDBAUG
BwgJCgsQAAEEAQMCBAIFBwYIBQMMMwEAAhEDBCESMQVBUWETInGBMgYUkaGxQiMkFVLBYjM0coLRQwcl
klPw4fFjczUWorKDJkSTVGRFwqN0NhfSVeJl8rOEw9N14/NGJ5SkhbSVxNTk9KW1xdXl9VZmdoaWprbG
1ub2N0dXZ3eHl6e3x9fn9xEAAgIBAgQEAwQFBgcHBgU1AQACEQMhMRIEQVFhcSITBTKBkRShsUIjwVLR
8DMkYuFygpJDUxVjczTxJQYWorKDByY1wtJEk1SjF2RFVTZ0ZeLys4TD03Xj80aUpIW0lcTU5PSltcXV
5fVWZnaGlqa2xtbm9ic3R1dnd4eXp7fH/9oADAMBAAIRAxEAPwDd/amR/pH/AOcf70v2pkf6R/8AnH+9
UUlofq/Bpevxb37UyP8ASP8A84/3pftTI/0j/wDOP96opJfq/BXr8W9+1Mj/AEj/APOP96X7UyP9I/8A
zj/eqKSX6vwV6/F3ujdbuGS2i5xfU8HVxktIG76XyW99vo27p0XGdO2/ba930dZj+q5dX+qfZPL8VAeD
341VVr/eZhx+0bu708n/2f/iDFhJQ0NfUFJPRklMRQABAQAADEhMaW5vAhAAAG1udHJSR0IgWFlaIAfO
AAIACQAGADEAAGFjc3BNU0ZUAAAAAElFQyBzUkdCAAAAAAAAAAAAAAAAAAD21gABAAAAANMtSFAgIAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAEWNwcnQAAAFQAAAAM2Rl
c2MAAAGEAAAAbHd0cHQAAAHwAAAAFGJrcHQAAAIEAAAAFHJYWVoAAAIYAAAAFGdYWVoAAAIsAAAAFGJY
WVoAAAJAAAAAFGRtbmQAAAJUAAAAcGRtZGQAAALEAAAAiHZ1ZWQAAANMAAAAhnZpZXcAAAPUAAAAJGx1
bWkAAAP4AAAAFG1lYXMAAAQMAAAAJHRlY2gAAAQwAAAADHJUUkMAAAQ8AAAIDGdUUkMAAAQ8AAAIDGJU
UkMAAAQ8AAAIDHRleHQAAAAAQ29weXJpZ2h0IChjKSAxOTk4IEhld2xldHQtUGFja2FyZCBDb21wYW55
AABkZXNjAAAAAAAAABJzUkdCIElFQzYxOTY2LTIuMQAAAAAAAAAAAAAAEnNSR0IgSUVDNjE5NjYtMi4x
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABYWVogAAAAAAAA
81EAAQAAAAEWzFhZWiAAAAAAAAAAAAAAAAAAAAAAWFlaIAAAAAAAAG+iAAA49QAAA5BYWVogAAAAAAAA
YpkAALeFAAAY2lhZWiAAAAAAAAAkoAAAD4QAALbPZGVzYwAAAAAAAAAWSUVDIGh0dHA6Ly93d3cuaWVj
LmNoAAAAAAAAAAAAAAAWSUVDIGh0dHA6Ly93d3cuaWVjLmNoAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAGRlc2MAAAAAAAAALklFQyA2MTk2Ni0yLjEgRGVmYXVsdCBSR0Ig
Y29sb3VyIHNwYWNlIC0gc1JHQgAAAAAAAAAAAAAALklFQyA2MTk2Ni0yLjEgRGVmYXVsdCBSR0IgY29s
b3VyIHNwYWNlIC0gc1JHQgAAAAAAAAAAAAAAAAAAAAAAAAAAAABkZXNjAAAAAAAAACxSZWZlcmVuY2Ug
Vmlld2luZyBDb25kaXRpb24gaW4gSUVDNjE5NjYtMi4xAAAAAAAAAAAAAAAsUmVmZXJlbmNlIFZpZXdp
bmcgQ29uZGl0aW9uIGluIElFQzYxOTY2LTIuMQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAdmlldwAA
AAAAE6T+ABRfLgAQzxQAA+3MAAQTCwADXJ4AAAABWFlaIAAAAAAATAlWAFAAAABXH+dtZWFzAAAAAAAA
AAEAAAAAAAAAAAAAAAAAAAAAAAACjwAAAAJzaWcgAAAAAENSVCBjdXJ2AAAAAAAABAAAAAAFAAoADwAU
ABkAHgAjACgALQAyADcAOwBAAEUASgBPAFQAWQBeAGMAaABtAHIAdwB8AIEAhgCLAJAAlQCaAJ8ApACp
AK4AsgC3ALwAwQDGAMsA0ADVANsA4ADlAOsA8AD2APsBAQEHAQ0BEwEZAR8BJQErATIBOAE+AUUBTAFS
AVkBYAFnAW4BdQF8AYMBiwGSAZoBoQGpAbEBuQHBAckB0QHZAeEB6QHyAfoCAwIMAhQCHQImAi8COAJB
AksCVAJdAmcCcQJ6AoQCjgKYAqICrAK2AsECywLVAuAC6wL1AwADCwMWAyEDLQM4A0MDTwNaA2YDcgN+
A4oDlgOiA64DugPHA9MD4APsA/kEBgQTBCAELQQ7BEgEVQRjBHEEfgSMBJoEqAS2BMQE0wThBPAE/gUN
BRwFKwU6BUkFWAVnBXcFhgWWBaYFtQXFBdUF5QX2BgYGFgYnBjcGSAZZBmoGewaMBp0GrwbABtEG4wb1
BwcHGQcrBz0HTwdhB3QHhgeZB6wHvwfSB+UH+AgLCB8IMghGCFoIbgiCCJYIqgi+CNII5wj7CRAJJQk6
CU8JZAl5CY8JpAm6Cc8J5Qn7ChEKJwo9ClQKagqBCpgKrgrFCtwK8wsLCyILOQtRC2kLgAuYC7ALyAvh
C/kMEgwqDEMMXAx1DI4MpwzADNkM8w0NDSYNQA1aDXQNjg2pDcMN3g34DhMOLg5JDmQOfw6bDrYO0g7u
DwkPJQ9BD14Peg+WD7MPzw/sEAkQJhBDEGEQfhCbELkQ1xD1ERMRMRFPEW0RjBGqEckR6BIHEiYSRRJk
EoQSoxLDEuMTAxMjE0MTYxODE6QTxRPlFAYUJxRJFGoUixStFM4U8BUSFTQVVhV4FZsVvRXgFgMWJhZJ
FmwWjxayFtYW+hcdF0EXZReJF64X0hf3GBsYQBhlGIoYrxjVGPoZIBlFGWsZkRm3Gd0aBBoqGlEadxqe
GsUa7BsUGzsbYxuKG7Ib2hwCHCocUhx7HKMczBz1HR4dRx1wHZkdwx3sHhYeQB5qHpQevh7pHxMfPh9p
H5Qfvx/qIBUgQSBsIJggxCDwIRwhSCF1IaEhziH7IiciVSKCIq8i3SMKIzgjZiOUI8Ij8CQfJE0kfCSr
JNolCSU4JWgllyXHJfcmJyZXJocmtyboJxgnSSd6J6sn3CgNKD8ocSiiKNQpBik4KWspnSnQKgIqNSpo
KpsqzysCKzYraSudK9EsBSw5LG4soizXLQwtQS12Last4S4WLkwugi63Lu4vJC9aL5Evxy/+MDUwbDCk
MNsxEjFKMYIxujHyMioyYzKbMtQzDTNGM38zuDPxNCs0ZTSeNNg1EzVNNYc1wjX9Njc2cjauNuk3JDdg
N5w31zgUOFA4jDjIOQU5Qjl/Obw5+To2OnQ6sjrvOy07azuqO+g8JzxlPKQ84z0iPWE9oT3gPiA+YD6g
PuA/IT9hP6I/4kAjQGRApkDnQSlBakGsQe5CMEJyQrVC90M6Q31DwEQDREdEikTORRJFVUWaRd5GIkZn
RqtG8Ec1R3tHwEgFSEtIkUjXSR1JY0mpSfBKN0p9SsRLDEtTS5pL4kwqTHJMuk0CTUpNk03cTiVObk63
TwBPSU+TT91QJ1BxULtRBlFQUZtR5lIxUnxSx1MTU19TqlP2VEJUj1TbVShVdVXCVg9WXFapVvdXRFeS
V+BYL1h9WMtZGllpWbhaB1pWWqZa9VtFW5Vb5Vw1XIZc1l0nXXhdyV4aXmxevV8PX2Ffs2AFYFdgqmD8
YU9homH1YklinGLwY0Njl2PrZEBklGTpZT1lkmXnZj1mkmboZz1nk2fpaD9olmjsaUNpmmnxakhqn2r3
a09rp2v/bFdsr20IbWBtuW4SbmtuxG8eb3hv0XArcIZw4HE6cZVx8HJLcqZzAXNdc7h0FHRwdMx1KHWF
deF2Pnabdvh3VnezeBF4bnjMeSp5iXnnekZ6pXsEe2N7wnwhfIF84X1BfaF+AX5ifsJ/I3+Ef+WAR4Co
gQqBa4HNgjCCkoL0g1eDuoQdhICE44VHhauGDoZyhteHO4efiASIaYjOiTOJmYn+imSKyoswi5aL/Ixj
jMqNMY2Yjf+OZo7OjzaPnpAGkG6Q1pE/kaiSEZJ6kuOTTZO2lCCUipT0lV+VyZY0lp+XCpd1l+CYTJi4
mSSZkJn8mmia1ZtCm6+cHJyJnPedZJ3SnkCerp8dn4uf+qBpoNihR6G2oiailqMGo3aj5qRWpMelOKWp
phqmi6b9p26n4KhSqMSpN6mpqhyqj6sCq3Wr6axcrNCtRK24ri2uoa8Wr4uwALB1sOqxYLHWskuywrM4
s660JbSctRO1irYBtnm28Ldot+C4WbjRuUq5wro7urW7LrunvCG8m70VvY++Cr6Evv+/er/1wHDA7MFn
wePCX8Lbw1jD1MRRxM7FS8XIxkbGw8dBx7/IPci8yTrJuco4yrfLNsu2zDXMtc01zbXONs62zzfPuNA5
0LrRPNG+0j/SwdNE08bUSdTL1U7V0dZV1tjXXNfg2GTY6Nls2fHadtr724DcBdyK3RDdlt4c3qLfKd+v
4DbgveFE4cziU+Lb42Pj6+Rz5PzlhOYN5pbnH+ep6DLovOlG6dDqW+rl63Dr++yG7RHtnO4o7rTvQO/M
8Fjw5fFy8f/yjPMZ86f0NPTC9VD13vZt9vv3ivgZ+Kj5OPnH+lf65/t3/Af8mP0p/br+S/7c/23////b
AEMAAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQICAgICAgICAgICAwMD
AwMDAwMDA//bAEMBAQEBAQEBAQEBAQICAQICAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMD
AwMDAwMDAwMDAwMDAwMDA//AABEIAAwAPAMBEQACEQEDEQH/xAAfAAABBQEBAQEBAQAAAAAAAAAAAQID
BAUGBwgJCgv/xAC1EAACAQMDAgQDBQUEBAAAAX0BAgMABBEFEiExQQYTUWEHInEUMoGRoQgjQrHBFVLR
8CQzYnKCCQoWFxgZGiUmJygpKjQ1Njc4OTpDREVGR0hJSlNUVVZXWFlaY2RlZmdoaWpzdHV2d3h5eoOE
hYaHiImKkpOUlZaXmJmaoqOkpaanqKmqsrO0tba3uLm6wsPExcbHyMnK0tPU1dbX2Nna4eLj5OXm5+jp
6vHy8/T19vf4+fr/xAAfAQADAQEBAQEBAQEBAAAAAAAAAQIDBAUGBwgJCgv/xAC1EQACAQIEBAMEBwUE
BAABAncAAQIDEQQFITEGEkFRB2FxEyIygQgUQpGhscEJIzNS8BVictEKFiQ04SXxFxgZGiYnKCkqNTY3
ODk6Q0RFRkdISUpTVFVWV1hZWmNkZWZnaGlqc3R1dnd4eXqCg4SFhoeIiYqSk5SVlpeYmZqio6Slpqeo
qaqys7S1tre4ubrCw8TFxsfIycrS09TV1tfY2dri4+Tl5ufo6ery8/T19vf4+fr/2gAMAwEAAhEDEQA/
AP1ZH7UPxEAA/wCEw8bnj/ob9f8A/k+v7U/1Nyj/AKF+G/8ABUP/AJE/llcSZlZf7dX/APBk/wDMX/hq
H4if9Df43/8ACv1//wCT6P8AU3Kf+hfhv/BUP/kQ/wBZcy/6Dq//AIMn/mH/AA1D8RP+hv8AG/8A4V+v
/wDyfR/qblP/AEL8N/4Kh/8AIh/rLmX/AEHV/wDwZP8AzD/hqH4if9Df43/8K/X/AP5Po/1Nyn/oX4b/
AMFQ/wDkQ/1lzL/oOr/+DJ/5h/w1D8RP+hv8b/8AhX6//wDJ9H+puU/9C/Df+Cof/Ih/rLmX/QdX/wDB
k/8AMT/hqH4if9Df43/8K/X/AP5Po/1Nyn/oX4b/AMFQ/wDkQ/1kzL/oOr/+DJ/5n2R+xz+234zt/iRp
nw+8a6vqXiDwZ4gs9baObXr+bUr/AMPajpmkX2tQ3FlqV2Zb57K7XT2t3tXkaJWkV4whVxJ+beJfAuU4
Th/FZ/hKEKOMw8qd+SKjGcZzjTs4q0bpyUlJK7s073VvuuBOLMxxGcYfJ8TWlVw1ZTtzu7hKMJTupPWz
UWnFu2qatrf9aP8AhfXgv+zv7U89/sfm+V5207N+M43fSv50P2w/kwr/AEFP42CgAoAKACgAoA9s/Z0/
s7/hcng3+1vP/s7Ov/avs2PP2f8ACL63t2buP9ZjP+zmvz7xU/5IPPf+4H/qRRPsvD//AJK7KP8AuL/6
ZqH7/wD/ABaT/hUfb7Ht/wBj7V9p8v8A9Cr+Oz+lz//Z
</value>
</data>
<data name="PictureBox3.BackgroundImage" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
/9j/4AAQSkZJRgABAgEASABIAAD/7gAOQWRvYmUAZAAAAAAB/+ED5kV4aWYAAE1NACoAAAAIAAcBEgAD
AAAAAQABAAABGgAFAAAAAQAAAGIBGwAFAAAAAQAAAGoBKAADAAAAAQACAAABMQACAAAAHAAAAHIBMgAC
AAAAFAAAAI6HaQAEAAAAAQAAAKIAAADCAEgAAAABAAAASAAAAAEAAEFkb2JlIFBob3Rvc2hvcCBDUzMg
V2luZG93cwAyMDEwOjA0OjE1IDIwOjMyOjA0AAACoAIABAAAAAEAAAA8oAMABAAAAAEAAAAMAAAAAAAA
AAYBAwADAAAAAQAGAAABGgAFAAAAAQAAARABGwAFAAAAAQAAARgBKAADAAAAAQACAAACAQAEAAAAAQAA
ASACAgAEAAAAAQAAAr4AAAAAAAAASAAAAAEAAABIAAAAAf/Y/+AAEEpGSUYAAQIAAEgASAAA/+0ADEFk
b2JlX0NNAAH/7gAOQWRvYmUAZIAAAAAB/9sAhAAMCAgICQgMCQkMEQsKCxEVDwwMDxUYExMVExMYEQwM
DAwMDBEMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMAQ0LCw0ODRAODhAUDg4OFBQODg4OFBEMDAwM
DBERDAwMDAwMEQwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAz/wAARCAAMADwDASIAAhEBAxEB/90A
BAAE/8QBPwAAAQUBAQEBAQEAAAAAAAAAAwABAgQFBgcICQoLAQABBQEBAQEBAQAAAAAAAAABAAIDBAUG
BwgJCgsQAAEEAQMCBAIFBwYIBQMMMwEAAhEDBCESMQVBUWETInGBMgYUkaGxQiMkFVLBYjM0coLRQwcl
klPw4fFjczUWorKDJkSTVGRFwqN0NhfSVeJl8rOEw9N14/NGJ5SkhbSVxNTk9KW1xdXl9VZmdoaWprbG
1ub2N0dXZ3eHl6e3x9fn9xEAAgIBAgQEAwQFBgcHBgU1AQACEQMhMRIEQVFhcSITBTKBkRShsUIjwVLR
8DMkYuFygpJDUxVjczTxJQYWorKDByY1wtJEk1SjF2RFVTZ0ZeLys4TD03Xj80aUpIW0lcTU5PSltcXV
5fVWZnaGlqa2xtbm9ic3R1dnd4eXp7fH/9oADAMBAAIRAxEAPwDd/amR/pH/AOcf70v2pkf6R/8AnH+9
UUlofq/Bpevxb37UyP8ASP8A84/3pftTI/0j/wDOP96opJfq/BXr8W9+1Mj/AEj/APOP96X7UyP9I/8A
zj/eqKSX6vwV6/F3ujdbuGS2i5xfU8HVxktIG76XyW99vo27p0XGdO2/ba930dZj+q5dX+qfZPL8VAeD
341VVr/eZhx+0bu708n/2f/iDFhJQ0NfUFJPRklMRQABAQAADEhMaW5vAhAAAG1udHJSR0IgWFlaIAfO
AAIACQAGADEAAGFjc3BNU0ZUAAAAAElFQyBzUkdCAAAAAAAAAAAAAAAAAAD21gABAAAAANMtSFAgIAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAEWNwcnQAAAFQAAAAM2Rl
c2MAAAGEAAAAbHd0cHQAAAHwAAAAFGJrcHQAAAIEAAAAFHJYWVoAAAIYAAAAFGdYWVoAAAIsAAAAFGJY
WVoAAAJAAAAAFGRtbmQAAAJUAAAAcGRtZGQAAALEAAAAiHZ1ZWQAAANMAAAAhnZpZXcAAAPUAAAAJGx1
bWkAAAP4AAAAFG1lYXMAAAQMAAAAJHRlY2gAAAQwAAAADHJUUkMAAAQ8AAAIDGdUUkMAAAQ8AAAIDGJU
UkMAAAQ8AAAIDHRleHQAAAAAQ29weXJpZ2h0IChjKSAxOTk4IEhld2xldHQtUGFja2FyZCBDb21wYW55
AABkZXNjAAAAAAAAABJzUkdCIElFQzYxOTY2LTIuMQAAAAAAAAAAAAAAEnNSR0IgSUVDNjE5NjYtMi4x
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABYWVogAAAAAAAA
81EAAQAAAAEWzFhZWiAAAAAAAAAAAAAAAAAAAAAAWFlaIAAAAAAAAG+iAAA49QAAA5BYWVogAAAAAAAA
YpkAALeFAAAY2lhZWiAAAAAAAAAkoAAAD4QAALbPZGVzYwAAAAAAAAAWSUVDIGh0dHA6Ly93d3cuaWVj
LmNoAAAAAAAAAAAAAAAWSUVDIGh0dHA6Ly93d3cuaWVjLmNoAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAGRlc2MAAAAAAAAALklFQyA2MTk2Ni0yLjEgRGVmYXVsdCBSR0Ig
Y29sb3VyIHNwYWNlIC0gc1JHQgAAAAAAAAAAAAAALklFQyA2MTk2Ni0yLjEgRGVmYXVsdCBSR0IgY29s
b3VyIHNwYWNlIC0gc1JHQgAAAAAAAAAAAAAAAAAAAAAAAAAAAABkZXNjAAAAAAAAACxSZWZlcmVuY2Ug
Vmlld2luZyBDb25kaXRpb24gaW4gSUVDNjE5NjYtMi4xAAAAAAAAAAAAAAAsUmVmZXJlbmNlIFZpZXdp
bmcgQ29uZGl0aW9uIGluIElFQzYxOTY2LTIuMQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAdmlldwAA
AAAAE6T+ABRfLgAQzxQAA+3MAAQTCwADXJ4AAAABWFlaIAAAAAAATAlWAFAAAABXH+dtZWFzAAAAAAAA
AAEAAAAAAAAAAAAAAAAAAAAAAAACjwAAAAJzaWcgAAAAAENSVCBjdXJ2AAAAAAAABAAAAAAFAAoADwAU
ABkAHgAjACgALQAyADcAOwBAAEUASgBPAFQAWQBeAGMAaABtAHIAdwB8AIEAhgCLAJAAlQCaAJ8ApACp
AK4AsgC3ALwAwQDGAMsA0ADVANsA4ADlAOsA8AD2APsBAQEHAQ0BEwEZAR8BJQErATIBOAE+AUUBTAFS
AVkBYAFnAW4BdQF8AYMBiwGSAZoBoQGpAbEBuQHBAckB0QHZAeEB6QHyAfoCAwIMAhQCHQImAi8COAJB
AksCVAJdAmcCcQJ6AoQCjgKYAqICrAK2AsECywLVAuAC6wL1AwADCwMWAyEDLQM4A0MDTwNaA2YDcgN+
A4oDlgOiA64DugPHA9MD4APsA/kEBgQTBCAELQQ7BEgEVQRjBHEEfgSMBJoEqAS2BMQE0wThBPAE/gUN
BRwFKwU6BUkFWAVnBXcFhgWWBaYFtQXFBdUF5QX2BgYGFgYnBjcGSAZZBmoGewaMBp0GrwbABtEG4wb1
BwcHGQcrBz0HTwdhB3QHhgeZB6wHvwfSB+UH+AgLCB8IMghGCFoIbgiCCJYIqgi+CNII5wj7CRAJJQk6
CU8JZAl5CY8JpAm6Cc8J5Qn7ChEKJwo9ClQKagqBCpgKrgrFCtwK8wsLCyILOQtRC2kLgAuYC7ALyAvh
C/kMEgwqDEMMXAx1DI4MpwzADNkM8w0NDSYNQA1aDXQNjg2pDcMN3g34DhMOLg5JDmQOfw6bDrYO0g7u
DwkPJQ9BD14Peg+WD7MPzw/sEAkQJhBDEGEQfhCbELkQ1xD1ERMRMRFPEW0RjBGqEckR6BIHEiYSRRJk
EoQSoxLDEuMTAxMjE0MTYxODE6QTxRPlFAYUJxRJFGoUixStFM4U8BUSFTQVVhV4FZsVvRXgFgMWJhZJ
FmwWjxayFtYW+hcdF0EXZReJF64X0hf3GBsYQBhlGIoYrxjVGPoZIBlFGWsZkRm3Gd0aBBoqGlEadxqe
GsUa7BsUGzsbYxuKG7Ib2hwCHCocUhx7HKMczBz1HR4dRx1wHZkdwx3sHhYeQB5qHpQevh7pHxMfPh9p
H5Qfvx/qIBUgQSBsIJggxCDwIRwhSCF1IaEhziH7IiciVSKCIq8i3SMKIzgjZiOUI8Ij8CQfJE0kfCSr
JNolCSU4JWgllyXHJfcmJyZXJocmtyboJxgnSSd6J6sn3CgNKD8ocSiiKNQpBik4KWspnSnQKgIqNSpo
KpsqzysCKzYraSudK9EsBSw5LG4soizXLQwtQS12Last4S4WLkwugi63Lu4vJC9aL5Evxy/+MDUwbDCk
MNsxEjFKMYIxujHyMioyYzKbMtQzDTNGM38zuDPxNCs0ZTSeNNg1EzVNNYc1wjX9Njc2cjauNuk3JDdg
N5w31zgUOFA4jDjIOQU5Qjl/Obw5+To2OnQ6sjrvOy07azuqO+g8JzxlPKQ84z0iPWE9oT3gPiA+YD6g
PuA/IT9hP6I/4kAjQGRApkDnQSlBakGsQe5CMEJyQrVC90M6Q31DwEQDREdEikTORRJFVUWaRd5GIkZn
RqtG8Ec1R3tHwEgFSEtIkUjXSR1JY0mpSfBKN0p9SsRLDEtTS5pL4kwqTHJMuk0CTUpNk03cTiVObk63
TwBPSU+TT91QJ1BxULtRBlFQUZtR5lIxUnxSx1MTU19TqlP2VEJUj1TbVShVdVXCVg9WXFapVvdXRFeS
V+BYL1h9WMtZGllpWbhaB1pWWqZa9VtFW5Vb5Vw1XIZc1l0nXXhdyV4aXmxevV8PX2Ffs2AFYFdgqmD8
YU9homH1YklinGLwY0Njl2PrZEBklGTpZT1lkmXnZj1mkmboZz1nk2fpaD9olmjsaUNpmmnxakhqn2r3
a09rp2v/bFdsr20IbWBtuW4SbmtuxG8eb3hv0XArcIZw4HE6cZVx8HJLcqZzAXNdc7h0FHRwdMx1KHWF
deF2Pnabdvh3VnezeBF4bnjMeSp5iXnnekZ6pXsEe2N7wnwhfIF84X1BfaF+AX5ifsJ/I3+Ef+WAR4Co
gQqBa4HNgjCCkoL0g1eDuoQdhICE44VHhauGDoZyhteHO4efiASIaYjOiTOJmYn+imSKyoswi5aL/Ixj
jMqNMY2Yjf+OZo7OjzaPnpAGkG6Q1pE/kaiSEZJ6kuOTTZO2lCCUipT0lV+VyZY0lp+XCpd1l+CYTJi4
mSSZkJn8mmia1ZtCm6+cHJyJnPedZJ3SnkCerp8dn4uf+qBpoNihR6G2oiailqMGo3aj5qRWpMelOKWp
phqmi6b9p26n4KhSqMSpN6mpqhyqj6sCq3Wr6axcrNCtRK24ri2uoa8Wr4uwALB1sOqxYLHWskuywrM4
s660JbSctRO1irYBtnm28Ldot+C4WbjRuUq5wro7urW7LrunvCG8m70VvY++Cr6Evv+/er/1wHDA7MFn
wePCX8Lbw1jD1MRRxM7FS8XIxkbGw8dBx7/IPci8yTrJuco4yrfLNsu2zDXMtc01zbXONs62zzfPuNA5
0LrRPNG+0j/SwdNE08bUSdTL1U7V0dZV1tjXXNfg2GTY6Nls2fHadtr724DcBdyK3RDdlt4c3qLfKd+v
4DbgveFE4cziU+Lb42Pj6+Rz5PzlhOYN5pbnH+ep6DLovOlG6dDqW+rl63Dr++yG7RHtnO4o7rTvQO/M
8Fjw5fFy8f/yjPMZ86f0NPTC9VD13vZt9vv3ivgZ+Kj5OPnH+lf65/t3/Af8mP0p/br+S/7c/23////b
AEMAAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQICAgICAgICAgICAwMD
AwMDAwMDA//bAEMBAQEBAQEBAQEBAQICAQICAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMD
AwMDAwMDAwMDAwMDAwMDA//AABEIAAwAPAMBEQACEQEDEQH/xAAfAAABBQEBAQEBAQAAAAAAAAAAAQID
BAUGBwgJCgv/xAC1EAACAQMDAgQDBQUEBAAAAX0BAgMABBEFEiExQQYTUWEHInEUMoGRoQgjQrHBFVLR
8CQzYnKCCQoWFxgZGiUmJygpKjQ1Njc4OTpDREVGR0hJSlNUVVZXWFlaY2RlZmdoaWpzdHV2d3h5eoOE
hYaHiImKkpOUlZaXmJmaoqOkpaanqKmqsrO0tba3uLm6wsPExcbHyMnK0tPU1dbX2Nna4eLj5OXm5+jp
6vHy8/T19vf4+fr/xAAfAQADAQEBAQEBAQEBAAAAAAAAAQIDBAUGBwgJCgv/xAC1EQACAQIEBAMEBwUE
BAABAncAAQIDEQQFITEGEkFRB2FxEyIygQgUQpGhscEJIzNS8BVictEKFiQ04SXxFxgZGiYnKCkqNTY3
ODk6Q0RFRkdISUpTVFVWV1hZWmNkZWZnaGlqc3R1dnd4eXqCg4SFhoeIiYqSk5SVlpeYmZqio6Slpqeo
qaqys7S1tre4ubrCw8TFxsfIycrS09TV1tfY2dri4+Tl5ufo6ery8/T19vf4+fr/2gAMAwEAAhEDEQA/
AP1ZH7UPxEAA/wCEw8bnj/ob9f8A/k+v7U/1Nyj/AKF+G/8ABUP/AJE/llcSZlZf7dX/APBk/wDMX/hq
H4if9Df43/8ACv1//wCT6P8AU3Kf+hfhv/BUP/kQ/wBZcy/6Dq//AIMn/mH/AA1D8RP+hv8AG/8A4V+v
/wDyfR/qblP/AEL8N/4Kh/8AIh/rLmX/AEHV/wDwZP8AzD/hqH4if9Df43/8K/X/AP5Po/1Nyn/oX4b/
AMFQ/wDkQ/1lzL/oOr/+DJ/5h/w1D8RP+hv8b/8AhX6//wDJ9H+puU/9C/Df+Cof/Ih/rLmX/QdX/wDB
k/8AMT/hqH4if9Df43/8K/X/AP5Po/1Nyn/oX4b/AMFQ/wDkQ/1kzL/oOr/+DJ/5n2R+xz+234zt/iRp
nw+8a6vqXiDwZ4gs9baObXr+bUr/AMPajpmkX2tQ3FlqV2Zb57K7XT2t3tXkaJWkV4whVxJ+beJfAuU4
Th/FZ/hKEKOMw8qd+SKjGcZzjTs4q0bpyUlJK7s073VvuuBOLMxxGcYfJ8TWlVw1ZTtzu7hKMJTupPWz
UWnFu2qatrf9aP8AhfXgv+zv7U89/sfm+V5207N+M43fSv50P2w/kwr/AEFP42CgAoAKACgAoA9s/Z0/
s7/hcng3+1vP/s7Ov/avs2PP2f8ACL63t2buP9ZjP+zmvz7xU/5IPPf+4H/qRRPsvD//AJK7KP8AuL/6
ZqH7/wD/ABaT/hUfb7Ht/wBj7V9p8v8A9Cr+Oz+lz//Z
</value>
</data>
<data name="PictureBox1.BackgroundImage" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
/9j/4AAQSkZJRgABAgEASABIAAD/7gAOQWRvYmUAZAAAAAAB/+ED5kV4aWYAAE1NACoAAAAIAAcBEgAD
AAAAAQABAAABGgAFAAAAAQAAAGIBGwAFAAAAAQAAAGoBKAADAAAAAQACAAABMQACAAAAHAAAAHIBMgAC
AAAAFAAAAI6HaQAEAAAAAQAAAKIAAADCAEgAAAABAAAASAAAAAEAAEFkb2JlIFBob3Rvc2hvcCBDUzMg
V2luZG93cwAyMDEwOjA0OjE1IDIwOjMyOjA0AAACoAIABAAAAAEAAAA8oAMABAAAAAEAAAAMAAAAAAAA
AAYBAwADAAAAAQAGAAABGgAFAAAAAQAAARABGwAFAAAAAQAAARgBKAADAAAAAQACAAACAQAEAAAAAQAA
ASACAgAEAAAAAQAAAr4AAAAAAAAASAAAAAEAAABIAAAAAf/Y/+AAEEpGSUYAAQIAAEgASAAA/+0ADEFk
b2JlX0NNAAH/7gAOQWRvYmUAZIAAAAAB/9sAhAAMCAgICQgMCQkMEQsKCxEVDwwMDxUYExMVExMYEQwM
DAwMDBEMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMAQ0LCw0ODRAODhAUDg4OFBQODg4OFBEMDAwM
DBERDAwMDAwMEQwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAz/wAARCAAMADwDASIAAhEBAxEB/90A
BAAE/8QBPwAAAQUBAQEBAQEAAAAAAAAAAwABAgQFBgcICQoLAQABBQEBAQEBAQAAAAAAAAABAAIDBAUG
BwgJCgsQAAEEAQMCBAIFBwYIBQMMMwEAAhEDBCESMQVBUWETInGBMgYUkaGxQiMkFVLBYjM0coLRQwcl
klPw4fFjczUWorKDJkSTVGRFwqN0NhfSVeJl8rOEw9N14/NGJ5SkhbSVxNTk9KW1xdXl9VZmdoaWprbG
1ub2N0dXZ3eHl6e3x9fn9xEAAgIBAgQEAwQFBgcHBgU1AQACEQMhMRIEQVFhcSITBTKBkRShsUIjwVLR
8DMkYuFygpJDUxVjczTxJQYWorKDByY1wtJEk1SjF2RFVTZ0ZeLys4TD03Xj80aUpIW0lcTU5PSltcXV
5fVWZnaGlqa2xtbm9ic3R1dnd4eXp7fH/9oADAMBAAIRAxEAPwDd/amR/pH/AOcf70v2pkf6R/8AnH+9
UUlofq/Bpevxb37UyP8ASP8A84/3pftTI/0j/wDOP96opJfq/BXr8W9+1Mj/AEj/APOP96X7UyP9I/8A
zj/eqKSX6vwV6/F3ujdbuGS2i5xfU8HVxktIG76XyW99vo27p0XGdO2/ba930dZj+q5dX+qfZPL8VAeD
341VVr/eZhx+0bu708n/2f/iDFhJQ0NfUFJPRklMRQABAQAADEhMaW5vAhAAAG1udHJSR0IgWFlaIAfO
AAIACQAGADEAAGFjc3BNU0ZUAAAAAElFQyBzUkdCAAAAAAAAAAAAAAAAAAD21gABAAAAANMtSFAgIAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAEWNwcnQAAAFQAAAAM2Rl
c2MAAAGEAAAAbHd0cHQAAAHwAAAAFGJrcHQAAAIEAAAAFHJYWVoAAAIYAAAAFGdYWVoAAAIsAAAAFGJY
WVoAAAJAAAAAFGRtbmQAAAJUAAAAcGRtZGQAAALEAAAAiHZ1ZWQAAANMAAAAhnZpZXcAAAPUAAAAJGx1
bWkAAAP4AAAAFG1lYXMAAAQMAAAAJHRlY2gAAAQwAAAADHJUUkMAAAQ8AAAIDGdUUkMAAAQ8AAAIDGJU
UkMAAAQ8AAAIDHRleHQAAAAAQ29weXJpZ2h0IChjKSAxOTk4IEhld2xldHQtUGFja2FyZCBDb21wYW55
AABkZXNjAAAAAAAAABJzUkdCIElFQzYxOTY2LTIuMQAAAAAAAAAAAAAAEnNSR0IgSUVDNjE5NjYtMi4x
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABYWVogAAAAAAAA
81EAAQAAAAEWzFhZWiAAAAAAAAAAAAAAAAAAAAAAWFlaIAAAAAAAAG+iAAA49QAAA5BYWVogAAAAAAAA
YpkAALeFAAAY2lhZWiAAAAAAAAAkoAAAD4QAALbPZGVzYwAAAAAAAAAWSUVDIGh0dHA6Ly93d3cuaWVj
LmNoAAAAAAAAAAAAAAAWSUVDIGh0dHA6Ly93d3cuaWVjLmNoAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAGRlc2MAAAAAAAAALklFQyA2MTk2Ni0yLjEgRGVmYXVsdCBSR0Ig
Y29sb3VyIHNwYWNlIC0gc1JHQgAAAAAAAAAAAAAALklFQyA2MTk2Ni0yLjEgRGVmYXVsdCBSR0IgY29s
b3VyIHNwYWNlIC0gc1JHQgAAAAAAAAAAAAAAAAAAAAAAAAAAAABkZXNjAAAAAAAAACxSZWZlcmVuY2Ug
Vmlld2luZyBDb25kaXRpb24gaW4gSUVDNjE5NjYtMi4xAAAAAAAAAAAAAAAsUmVmZXJlbmNlIFZpZXdp
bmcgQ29uZGl0aW9uIGluIElFQzYxOTY2LTIuMQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAdmlldwAA
AAAAE6T+ABRfLgAQzxQAA+3MAAQTCwADXJ4AAAABWFlaIAAAAAAATAlWAFAAAABXH+dtZWFzAAAAAAAA
AAEAAAAAAAAAAAAAAAAAAAAAAAACjwAAAAJzaWcgAAAAAENSVCBjdXJ2AAAAAAAABAAAAAAFAAoADwAU
ABkAHgAjACgALQAyADcAOwBAAEUASgBPAFQAWQBeAGMAaABtAHIAdwB8AIEAhgCLAJAAlQCaAJ8ApACp
AK4AsgC3ALwAwQDGAMsA0ADVANsA4ADlAOsA8AD2APsBAQEHAQ0BEwEZAR8BJQErATIBOAE+AUUBTAFS
AVkBYAFnAW4BdQF8AYMBiwGSAZoBoQGpAbEBuQHBAckB0QHZAeEB6QHyAfoCAwIMAhQCHQImAi8COAJB
AksCVAJdAmcCcQJ6AoQCjgKYAqICrAK2AsECywLVAuAC6wL1AwADCwMWAyEDLQM4A0MDTwNaA2YDcgN+
A4oDlgOiA64DugPHA9MD4APsA/kEBgQTBCAELQQ7BEgEVQRjBHEEfgSMBJoEqAS2BMQE0wThBPAE/gUN
BRwFKwU6BUkFWAVnBXcFhgWWBaYFtQXFBdUF5QX2BgYGFgYnBjcGSAZZBmoGewaMBp0GrwbABtEG4wb1
BwcHGQcrBz0HTwdhB3QHhgeZB6wHvwfSB+UH+AgLCB8IMghGCFoIbgiCCJYIqgi+CNII5wj7CRAJJQk6
CU8JZAl5CY8JpAm6Cc8J5Qn7ChEKJwo9ClQKagqBCpgKrgrFCtwK8wsLCyILOQtRC2kLgAuYC7ALyAvh
C/kMEgwqDEMMXAx1DI4MpwzADNkM8w0NDSYNQA1aDXQNjg2pDcMN3g34DhMOLg5JDmQOfw6bDrYO0g7u
DwkPJQ9BD14Peg+WD7MPzw/sEAkQJhBDEGEQfhCbELkQ1xD1ERMRMRFPEW0RjBGqEckR6BIHEiYSRRJk
EoQSoxLDEuMTAxMjE0MTYxODE6QTxRPlFAYUJxRJFGoUixStFM4U8BUSFTQVVhV4FZsVvRXgFgMWJhZJ
FmwWjxayFtYW+hcdF0EXZReJF64X0hf3GBsYQBhlGIoYrxjVGPoZIBlFGWsZkRm3Gd0aBBoqGlEadxqe
GsUa7BsUGzsbYxuKG7Ib2hwCHCocUhx7HKMczBz1HR4dRx1wHZkdwx3sHhYeQB5qHpQevh7pHxMfPh9p
H5Qfvx/qIBUgQSBsIJggxCDwIRwhSCF1IaEhziH7IiciVSKCIq8i3SMKIzgjZiOUI8Ij8CQfJE0kfCSr
JNolCSU4JWgllyXHJfcmJyZXJocmtyboJxgnSSd6J6sn3CgNKD8ocSiiKNQpBik4KWspnSnQKgIqNSpo
KpsqzysCKzYraSudK9EsBSw5LG4soizXLQwtQS12Last4S4WLkwugi63Lu4vJC9aL5Evxy/+MDUwbDCk
MNsxEjFKMYIxujHyMioyYzKbMtQzDTNGM38zuDPxNCs0ZTSeNNg1EzVNNYc1wjX9Njc2cjauNuk3JDdg
N5w31zgUOFA4jDjIOQU5Qjl/Obw5+To2OnQ6sjrvOy07azuqO+g8JzxlPKQ84z0iPWE9oT3gPiA+YD6g
PuA/IT9hP6I/4kAjQGRApkDnQSlBakGsQe5CMEJyQrVC90M6Q31DwEQDREdEikTORRJFVUWaRd5GIkZn
RqtG8Ec1R3tHwEgFSEtIkUjXSR1JY0mpSfBKN0p9SsRLDEtTS5pL4kwqTHJMuk0CTUpNk03cTiVObk63
TwBPSU+TT91QJ1BxULtRBlFQUZtR5lIxUnxSx1MTU19TqlP2VEJUj1TbVShVdVXCVg9WXFapVvdXRFeS
V+BYL1h9WMtZGllpWbhaB1pWWqZa9VtFW5Vb5Vw1XIZc1l0nXXhdyV4aXmxevV8PX2Ffs2AFYFdgqmD8
YU9homH1YklinGLwY0Njl2PrZEBklGTpZT1lkmXnZj1mkmboZz1nk2fpaD9olmjsaUNpmmnxakhqn2r3
a09rp2v/bFdsr20IbWBtuW4SbmtuxG8eb3hv0XArcIZw4HE6cZVx8HJLcqZzAXNdc7h0FHRwdMx1KHWF
deF2Pnabdvh3VnezeBF4bnjMeSp5iXnnekZ6pXsEe2N7wnwhfIF84X1BfaF+AX5ifsJ/I3+Ef+WAR4Co
gQqBa4HNgjCCkoL0g1eDuoQdhICE44VHhauGDoZyhteHO4efiASIaYjOiTOJmYn+imSKyoswi5aL/Ixj
jMqNMY2Yjf+OZo7OjzaPnpAGkG6Q1pE/kaiSEZJ6kuOTTZO2lCCUipT0lV+VyZY0lp+XCpd1l+CYTJi4
mSSZkJn8mmia1ZtCm6+cHJyJnPedZJ3SnkCerp8dn4uf+qBpoNihR6G2oiailqMGo3aj5qRWpMelOKWp
phqmi6b9p26n4KhSqMSpN6mpqhyqj6sCq3Wr6axcrNCtRK24ri2uoa8Wr4uwALB1sOqxYLHWskuywrM4
s660JbSctRO1irYBtnm28Ldot+C4WbjRuUq5wro7urW7LrunvCG8m70VvY++Cr6Evv+/er/1wHDA7MFn
wePCX8Lbw1jD1MRRxM7FS8XIxkbGw8dBx7/IPci8yTrJuco4yrfLNsu2zDXMtc01zbXONs62zzfPuNA5
0LrRPNG+0j/SwdNE08bUSdTL1U7V0dZV1tjXXNfg2GTY6Nls2fHadtr724DcBdyK3RDdlt4c3qLfKd+v
4DbgveFE4cziU+Lb42Pj6+Rz5PzlhOYN5pbnH+ep6DLovOlG6dDqW+rl63Dr++yG7RHtnO4o7rTvQO/M
8Fjw5fFy8f/yjPMZ86f0NPTC9VD13vZt9vv3ivgZ+Kj5OPnH+lf65/t3/Af8mP0p/br+S/7c/23////b
AEMAAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQICAgICAgICAgICAwMD
AwMDAwMDA//bAEMBAQEBAQEBAQEBAQICAQICAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMD
AwMDAwMDAwMDAwMDAwMDA//AABEIAAwAPAMBEQACEQEDEQH/xAAfAAABBQEBAQEBAQAAAAAAAAAAAQID
BAUGBwgJCgv/xAC1EAACAQMDAgQDBQUEBAAAAX0BAgMABBEFEiExQQYTUWEHInEUMoGRoQgjQrHBFVLR
8CQzYnKCCQoWFxgZGiUmJygpKjQ1Njc4OTpDREVGR0hJSlNUVVZXWFlaY2RlZmdoaWpzdHV2d3h5eoOE
hYaHiImKkpOUlZaXmJmaoqOkpaanqKmqsrO0tba3uLm6wsPExcbHyMnK0tPU1dbX2Nna4eLj5OXm5+jp
6vHy8/T19vf4+fr/xAAfAQADAQEBAQEBAQEBAAAAAAAAAQIDBAUGBwgJCgv/xAC1EQACAQIEBAMEBwUE
BAABAncAAQIDEQQFITEGEkFRB2FxEyIygQgUQpGhscEJIzNS8BVictEKFiQ04SXxFxgZGiYnKCkqNTY3
ODk6Q0RFRkdISUpTVFVWV1hZWmNkZWZnaGlqc3R1dnd4eXqCg4SFhoeIiYqSk5SVlpeYmZqio6Slpqeo
qaqys7S1tre4ubrCw8TFxsfIycrS09TV1tfY2dri4+Tl5ufo6ery8/T19vf4+fr/2gAMAwEAAhEDEQA/
AP1ZH7UPxEAA/wCEw8bnj/ob9f8A/k+v7U/1Nyj/AKF+G/8ABUP/AJE/llcSZlZf7dX/APBk/wDMX/hq
H4if9Df43/8ACv1//wCT6P8AU3Kf+hfhv/BUP/kQ/wBZcy/6Dq//AIMn/mH/AA1D8RP+hv8AG/8A4V+v
/wDyfR/qblP/AEL8N/4Kh/8AIh/rLmX/AEHV/wDwZP8AzD/hqH4if9Df43/8K/X/AP5Po/1Nyn/oX4b/
AMFQ/wDkQ/1lzL/oOr/+DJ/5h/w1D8RP+hv8b/8AhX6//wDJ9H+puU/9C/Df+Cof/Ih/rLmX/QdX/wDB
k/8AMT/hqH4if9Df43/8K/X/AP5Po/1Nyn/oX4b/AMFQ/wDkQ/1kzL/oOr/+DJ/5n2R+xz+234zt/iRp
nw+8a6vqXiDwZ4gs9baObXr+bUr/AMPajpmkX2tQ3FlqV2Zb57K7XT2t3tXkaJWkV4whVxJ+beJfAuU4
Th/FZ/hKEKOMw8qd+SKjGcZzjTs4q0bpyUlJK7s073VvuuBOLMxxGcYfJ8TWlVw1ZTtzu7hKMJTupPWz
UWnFu2qatrf9aP8AhfXgv+zv7U89/sfm+V5207N+M43fSv50P2w/kwr/AEFP42CgAoAKACgAoA9s/Z0/
s7/hcng3+1vP/s7Ov/avs2PP2f8ACL63t2buP9ZjP+zmvz7xU/5IPPf+4H/qRRPsvD//AJK7KP8AuL/6
ZqH7/wD/ABaT/hUfb7Ht/wBj7V9p8v8A9Cr+Oz+lz//Z
</value>
</data>
<data name="PictureBox6.BackgroundImage" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
/9j/4AAQSkZJRgABAgEASABIAAD/7gAOQWRvYmUAZAAAAAAB/+ED5kV4aWYAAE1NACoAAAAIAAcBEgAD
AAAAAQABAAABGgAFAAAAAQAAAGIBGwAFAAAAAQAAAGoBKAADAAAAAQACAAABMQACAAAAHAAAAHIBMgAC
AAAAFAAAAI6HaQAEAAAAAQAAAKIAAADCAEgAAAABAAAASAAAAAEAAEFkb2JlIFBob3Rvc2hvcCBDUzMg
V2luZG93cwAyMDEwOjA0OjE1IDIwOjMyOjA0AAACoAIABAAAAAEAAAA8oAMABAAAAAEAAAAMAAAAAAAA
AAYBAwADAAAAAQAGAAABGgAFAAAAAQAAARABGwAFAAAAAQAAARgBKAADAAAAAQACAAACAQAEAAAAAQAA
ASACAgAEAAAAAQAAAr4AAAAAAAAASAAAAAEAAABIAAAAAf/Y/+AAEEpGSUYAAQIAAEgASAAA/+0ADEFk
b2JlX0NNAAH/7gAOQWRvYmUAZIAAAAAB/9sAhAAMCAgICQgMCQkMEQsKCxEVDwwMDxUYExMVExMYEQwM
DAwMDBEMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMAQ0LCw0ODRAODhAUDg4OFBQODg4OFBEMDAwM
DBERDAwMDAwMEQwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAz/wAARCAAMADwDASIAAhEBAxEB/90A
BAAE/8QBPwAAAQUBAQEBAQEAAAAAAAAAAwABAgQFBgcICQoLAQABBQEBAQEBAQAAAAAAAAABAAIDBAUG
BwgJCgsQAAEEAQMCBAIFBwYIBQMMMwEAAhEDBCESMQVBUWETInGBMgYUkaGxQiMkFVLBYjM0coLRQwcl
klPw4fFjczUWorKDJkSTVGRFwqN0NhfSVeJl8rOEw9N14/NGJ5SkhbSVxNTk9KW1xdXl9VZmdoaWprbG
1ub2N0dXZ3eHl6e3x9fn9xEAAgIBAgQEAwQFBgcHBgU1AQACEQMhMRIEQVFhcSITBTKBkRShsUIjwVLR
8DMkYuFygpJDUxVjczTxJQYWorKDByY1wtJEk1SjF2RFVTZ0ZeLys4TD03Xj80aUpIW0lcTU5PSltcXV
5fVWZnaGlqa2xtbm9ic3R1dnd4eXp7fH/9oADAMBAAIRAxEAPwDd/amR/pH/AOcf70v2pkf6R/8AnH+9
UUlofq/Bpevxb37UyP8ASP8A84/3pftTI/0j/wDOP96opJfq/BXr8W9+1Mj/AEj/APOP96X7UyP9I/8A
zj/eqKSX6vwV6/F3ujdbuGS2i5xfU8HVxktIG76XyW99vo27p0XGdO2/ba930dZj+q5dX+qfZPL8VAeD
341VVr/eZhx+0bu708n/2f/iDFhJQ0NfUFJPRklMRQABAQAADEhMaW5vAhAAAG1udHJSR0IgWFlaIAfO
AAIACQAGADEAAGFjc3BNU0ZUAAAAAElFQyBzUkdCAAAAAAAAAAAAAAAAAAD21gABAAAAANMtSFAgIAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAEWNwcnQAAAFQAAAAM2Rl
c2MAAAGEAAAAbHd0cHQAAAHwAAAAFGJrcHQAAAIEAAAAFHJYWVoAAAIYAAAAFGdYWVoAAAIsAAAAFGJY
WVoAAAJAAAAAFGRtbmQAAAJUAAAAcGRtZGQAAALEAAAAiHZ1ZWQAAANMAAAAhnZpZXcAAAPUAAAAJGx1
bWkAAAP4AAAAFG1lYXMAAAQMAAAAJHRlY2gAAAQwAAAADHJUUkMAAAQ8AAAIDGdUUkMAAAQ8AAAIDGJU
UkMAAAQ8AAAIDHRleHQAAAAAQ29weXJpZ2h0IChjKSAxOTk4IEhld2xldHQtUGFja2FyZCBDb21wYW55
AABkZXNjAAAAAAAAABJzUkdCIElFQzYxOTY2LTIuMQAAAAAAAAAAAAAAEnNSR0IgSUVDNjE5NjYtMi4x
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABYWVogAAAAAAAA
81EAAQAAAAEWzFhZWiAAAAAAAAAAAAAAAAAAAAAAWFlaIAAAAAAAAG+iAAA49QAAA5BYWVogAAAAAAAA
YpkAALeFAAAY2lhZWiAAAAAAAAAkoAAAD4QAALbPZGVzYwAAAAAAAAAWSUVDIGh0dHA6Ly93d3cuaWVj
LmNoAAAAAAAAAAAAAAAWSUVDIGh0dHA6Ly93d3cuaWVjLmNoAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAGRlc2MAAAAAAAAALklFQyA2MTk2Ni0yLjEgRGVmYXVsdCBSR0Ig
Y29sb3VyIHNwYWNlIC0gc1JHQgAAAAAAAAAAAAAALklFQyA2MTk2Ni0yLjEgRGVmYXVsdCBSR0IgY29s
b3VyIHNwYWNlIC0gc1JHQgAAAAAAAAAAAAAAAAAAAAAAAAAAAABkZXNjAAAAAAAAACxSZWZlcmVuY2Ug
Vmlld2luZyBDb25kaXRpb24gaW4gSUVDNjE5NjYtMi4xAAAAAAAAAAAAAAAsUmVmZXJlbmNlIFZpZXdp
bmcgQ29uZGl0aW9uIGluIElFQzYxOTY2LTIuMQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAdmlldwAA
AAAAE6T+ABRfLgAQzxQAA+3MAAQTCwADXJ4AAAABWFlaIAAAAAAATAlWAFAAAABXH+dtZWFzAAAAAAAA
AAEAAAAAAAAAAAAAAAAAAAAAAAACjwAAAAJzaWcgAAAAAENSVCBjdXJ2AAAAAAAABAAAAAAFAAoADwAU
ABkAHgAjACgALQAyADcAOwBAAEUASgBPAFQAWQBeAGMAaABtAHIAdwB8AIEAhgCLAJAAlQCaAJ8ApACp
AK4AsgC3ALwAwQDGAMsA0ADVANsA4ADlAOsA8AD2APsBAQEHAQ0BEwEZAR8BJQErATIBOAE+AUUBTAFS
AVkBYAFnAW4BdQF8AYMBiwGSAZoBoQGpAbEBuQHBAckB0QHZAeEB6QHyAfoCAwIMAhQCHQImAi8COAJB
AksCVAJdAmcCcQJ6AoQCjgKYAqICrAK2AsECywLVAuAC6wL1AwADCwMWAyEDLQM4A0MDTwNaA2YDcgN+
A4oDlgOiA64DugPHA9MD4APsA/kEBgQTBCAELQQ7BEgEVQRjBHEEfgSMBJoEqAS2BMQE0wThBPAE/gUN
BRwFKwU6BUkFWAVnBXcFhgWWBaYFtQXFBdUF5QX2BgYGFgYnBjcGSAZZBmoGewaMBp0GrwbABtEG4wb1
BwcHGQcrBz0HTwdhB3QHhgeZB6wHvwfSB+UH+AgLCB8IMghGCFoIbgiCCJYIqgi+CNII5wj7CRAJJQk6
CU8JZAl5CY8JpAm6Cc8J5Qn7ChEKJwo9ClQKagqBCpgKrgrFCtwK8wsLCyILOQtRC2kLgAuYC7ALyAvh
C/kMEgwqDEMMXAx1DI4MpwzADNkM8w0NDSYNQA1aDXQNjg2pDcMN3g34DhMOLg5JDmQOfw6bDrYO0g7u
DwkPJQ9BD14Peg+WD7MPzw/sEAkQJhBDEGEQfhCbELkQ1xD1ERMRMRFPEW0RjBGqEckR6BIHEiYSRRJk
EoQSoxLDEuMTAxMjE0MTYxODE6QTxRPlFAYUJxRJFGoUixStFM4U8BUSFTQVVhV4FZsVvRXgFgMWJhZJ
FmwWjxayFtYW+hcdF0EXZReJF64X0hf3GBsYQBhlGIoYrxjVGPoZIBlFGWsZkRm3Gd0aBBoqGlEadxqe
GsUa7BsUGzsbYxuKG7Ib2hwCHCocUhx7HKMczBz1HR4dRx1wHZkdwx3sHhYeQB5qHpQevh7pHxMfPh9p
H5Qfvx/qIBUgQSBsIJggxCDwIRwhSCF1IaEhziH7IiciVSKCIq8i3SMKIzgjZiOUI8Ij8CQfJE0kfCSr
JNolCSU4JWgllyXHJfcmJyZXJocmtyboJxgnSSd6J6sn3CgNKD8ocSiiKNQpBik4KWspnSnQKgIqNSpo
KpsqzysCKzYraSudK9EsBSw5LG4soizXLQwtQS12Last4S4WLkwugi63Lu4vJC9aL5Evxy/+MDUwbDCk
MNsxEjFKMYIxujHyMioyYzKbMtQzDTNGM38zuDPxNCs0ZTSeNNg1EzVNNYc1wjX9Njc2cjauNuk3JDdg
N5w31zgUOFA4jDjIOQU5Qjl/Obw5+To2OnQ6sjrvOy07azuqO+g8JzxlPKQ84z0iPWE9oT3gPiA+YD6g
PuA/IT9hP6I/4kAjQGRApkDnQSlBakGsQe5CMEJyQrVC90M6Q31DwEQDREdEikTORRJFVUWaRd5GIkZn
RqtG8Ec1R3tHwEgFSEtIkUjXSR1JY0mpSfBKN0p9SsRLDEtTS5pL4kwqTHJMuk0CTUpNk03cTiVObk63
TwBPSU+TT91QJ1BxULtRBlFQUZtR5lIxUnxSx1MTU19TqlP2VEJUj1TbVShVdVXCVg9WXFapVvdXRFeS
V+BYL1h9WMtZGllpWbhaB1pWWqZa9VtFW5Vb5Vw1XIZc1l0nXXhdyV4aXmxevV8PX2Ffs2AFYFdgqmD8
YU9homH1YklinGLwY0Njl2PrZEBklGTpZT1lkmXnZj1mkmboZz1nk2fpaD9olmjsaUNpmmnxakhqn2r3
a09rp2v/bFdsr20IbWBtuW4SbmtuxG8eb3hv0XArcIZw4HE6cZVx8HJLcqZzAXNdc7h0FHRwdMx1KHWF
deF2Pnabdvh3VnezeBF4bnjMeSp5iXnnekZ6pXsEe2N7wnwhfIF84X1BfaF+AX5ifsJ/I3+Ef+WAR4Co
gQqBa4HNgjCCkoL0g1eDuoQdhICE44VHhauGDoZyhteHO4efiASIaYjOiTOJmYn+imSKyoswi5aL/Ixj
jMqNMY2Yjf+OZo7OjzaPnpAGkG6Q1pE/kaiSEZJ6kuOTTZO2lCCUipT0lV+VyZY0lp+XCpd1l+CYTJi4
mSSZkJn8mmia1ZtCm6+cHJyJnPedZJ3SnkCerp8dn4uf+qBpoNihR6G2oiailqMGo3aj5qRWpMelOKWp
phqmi6b9p26n4KhSqMSpN6mpqhyqj6sCq3Wr6axcrNCtRK24ri2uoa8Wr4uwALB1sOqxYLHWskuywrM4
s660JbSctRO1irYBtnm28Ldot+C4WbjRuUq5wro7urW7LrunvCG8m70VvY++Cr6Evv+/er/1wHDA7MFn
wePCX8Lbw1jD1MRRxM7FS8XIxkbGw8dBx7/IPci8yTrJuco4yrfLNsu2zDXMtc01zbXONs62zzfPuNA5
0LrRPNG+0j/SwdNE08bUSdTL1U7V0dZV1tjXXNfg2GTY6Nls2fHadtr724DcBdyK3RDdlt4c3qLfKd+v
4DbgveFE4cziU+Lb42Pj6+Rz5PzlhOYN5pbnH+ep6DLovOlG6dDqW+rl63Dr++yG7RHtnO4o7rTvQO/M
8Fjw5fFy8f/yjPMZ86f0NPTC9VD13vZt9vv3ivgZ+Kj5OPnH+lf65/t3/Af8mP0p/br+S/7c/23////b
AEMAAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQICAgICAgICAgICAwMD
AwMDAwMDA//bAEMBAQEBAQEBAQEBAQICAQICAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMD
AwMDAwMDAwMDAwMDAwMDA//AABEIAAwAPAMBEQACEQEDEQH/xAAfAAABBQEBAQEBAQAAAAAAAAAAAQID
BAUGBwgJCgv/xAC1EAACAQMDAgQDBQUEBAAAAX0BAgMABBEFEiExQQYTUWEHInEUMoGRoQgjQrHBFVLR
8CQzYnKCCQoWFxgZGiUmJygpKjQ1Njc4OTpDREVGR0hJSlNUVVZXWFlaY2RlZmdoaWpzdHV2d3h5eoOE
hYaHiImKkpOUlZaXmJmaoqOkpaanqKmqsrO0tba3uLm6wsPExcbHyMnK0tPU1dbX2Nna4eLj5OXm5+jp
6vHy8/T19vf4+fr/xAAfAQADAQEBAQEBAQEBAAAAAAAAAQIDBAUGBwgJCgv/xAC1EQACAQIEBAMEBwUE
BAABAncAAQIDEQQFITEGEkFRB2FxEyIygQgUQpGhscEJIzNS8BVictEKFiQ04SXxFxgZGiYnKCkqNTY3
ODk6Q0RFRkdISUpTVFVWV1hZWmNkZWZnaGlqc3R1dnd4eXqCg4SFhoeIiYqSk5SVlpeYmZqio6Slpqeo
qaqys7S1tre4ubrCw8TFxsfIycrS09TV1tfY2dri4+Tl5ufo6ery8/T19vf4+fr/2gAMAwEAAhEDEQA/
AP1ZH7UPxEAA/wCEw8bnj/ob9f8A/k+v7U/1Nyj/AKF+G/8ABUP/AJE/llcSZlZf7dX/APBk/wDMX/hq
H4if9Df43/8ACv1//wCT6P8AU3Kf+hfhv/BUP/kQ/wBZcy/6Dq//AIMn/mH/AA1D8RP+hv8AG/8A4V+v
/wDyfR/qblP/AEL8N/4Kh/8AIh/rLmX/AEHV/wDwZP8AzD/hqH4if9Df43/8K/X/AP5Po/1Nyn/oX4b/
AMFQ/wDkQ/1lzL/oOr/+DJ/5h/w1D8RP+hv8b/8AhX6//wDJ9H+puU/9C/Df+Cof/Ih/rLmX/QdX/wDB
k/8AMT/hqH4if9Df43/8K/X/AP5Po/1Nyn/oX4b/AMFQ/wDkQ/1kzL/oOr/+DJ/5n2R+xz+234zt/iRp
nw+8a6vqXiDwZ4gs9baObXr+bUr/AMPajpmkX2tQ3FlqV2Zb57K7XT2t3tXkaJWkV4whVxJ+beJfAuU4
Th/FZ/hKEKOMw8qd+SKjGcZzjTs4q0bpyUlJK7s073VvuuBOLMxxGcYfJ8TWlVw1ZTtzu7hKMJTupPWz
UWnFu2qatrf9aP8AhfXgv+zv7U89/sfm+V5207N+M43fSv50P2w/kwr/AEFP42CgAoAKACgAoA9s/Z0/
s7/hcng3+1vP/s7Ov/avs2PP2f8ACL63t2buP9ZjP+zmvz7xU/5IPPf+4H/qRRPsvD//AJK7KP8AuL/6
ZqH7/wD/ABaT/hUfb7Ht/wBj7V9p8v8A9Cr+Oz+lz//Z
</value>
</data>
<data name="PictureBox7.BackgroundImage" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
/9j/4AAQSkZJRgABAgEASABIAAD/7gAOQWRvYmUAZAAAAAAB/+ED5kV4aWYAAE1NACoAAAAIAAcBEgAD
AAAAAQABAAABGgAFAAAAAQAAAGIBGwAFAAAAAQAAAGoBKAADAAAAAQACAAABMQACAAAAHAAAAHIBMgAC
AAAAFAAAAI6HaQAEAAAAAQAAAKIAAADCAEgAAAABAAAASAAAAAEAAEFkb2JlIFBob3Rvc2hvcCBDUzMg
V2luZG93cwAyMDEwOjA0OjE1IDIwOjMyOjA0AAACoAIABAAAAAEAAAA8oAMABAAAAAEAAAAMAAAAAAAA
AAYBAwADAAAAAQAGAAABGgAFAAAAAQAAARABGwAFAAAAAQAAARgBKAADAAAAAQACAAACAQAEAAAAAQAA
ASACAgAEAAAAAQAAAr4AAAAAAAAASAAAAAEAAABIAAAAAf/Y/+AAEEpGSUYAAQIAAEgASAAA/+0ADEFk
b2JlX0NNAAH/7gAOQWRvYmUAZIAAAAAB/9sAhAAMCAgICQgMCQkMEQsKCxEVDwwMDxUYExMVExMYEQwM
DAwMDBEMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMAQ0LCw0ODRAODhAUDg4OFBQODg4OFBEMDAwM
DBERDAwMDAwMEQwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAz/wAARCAAMADwDASIAAhEBAxEB/90A
BAAE/8QBPwAAAQUBAQEBAQEAAAAAAAAAAwABAgQFBgcICQoLAQABBQEBAQEBAQAAAAAAAAABAAIDBAUG
BwgJCgsQAAEEAQMCBAIFBwYIBQMMMwEAAhEDBCESMQVBUWETInGBMgYUkaGxQiMkFVLBYjM0coLRQwcl
klPw4fFjczUWorKDJkSTVGRFwqN0NhfSVeJl8rOEw9N14/NGJ5SkhbSVxNTk9KW1xdXl9VZmdoaWprbG
1ub2N0dXZ3eHl6e3x9fn9xEAAgIBAgQEAwQFBgcHBgU1AQACEQMhMRIEQVFhcSITBTKBkRShsUIjwVLR
8DMkYuFygpJDUxVjczTxJQYWorKDByY1wtJEk1SjF2RFVTZ0ZeLys4TD03Xj80aUpIW0lcTU5PSltcXV
5fVWZnaGlqa2xtbm9ic3R1dnd4eXp7fH/9oADAMBAAIRAxEAPwDd/amR/pH/AOcf70v2pkf6R/8AnH+9
UUlofq/Bpevxb37UyP8ASP8A84/3pftTI/0j/wDOP96opJfq/BXr8W9+1Mj/AEj/APOP96X7UyP9I/8A
zj/eqKSX6vwV6/F3ujdbuGS2i5xfU8HVxktIG76XyW99vo27p0XGdO2/ba930dZj+q5dX+qfZPL8VAeD
341VVr/eZhx+0bu708n/2f/iDFhJQ0NfUFJPRklMRQABAQAADEhMaW5vAhAAAG1udHJSR0IgWFlaIAfO
AAIACQAGADEAAGFjc3BNU0ZUAAAAAElFQyBzUkdCAAAAAAAAAAAAAAAAAAD21gABAAAAANMtSFAgIAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAEWNwcnQAAAFQAAAAM2Rl
c2MAAAGEAAAAbHd0cHQAAAHwAAAAFGJrcHQAAAIEAAAAFHJYWVoAAAIYAAAAFGdYWVoAAAIsAAAAFGJY
WVoAAAJAAAAAFGRtbmQAAAJUAAAAcGRtZGQAAALEAAAAiHZ1ZWQAAANMAAAAhnZpZXcAAAPUAAAAJGx1
bWkAAAP4AAAAFG1lYXMAAAQMAAAAJHRlY2gAAAQwAAAADHJUUkMAAAQ8AAAIDGdUUkMAAAQ8AAAIDGJU
UkMAAAQ8AAAIDHRleHQAAAAAQ29weXJpZ2h0IChjKSAxOTk4IEhld2xldHQtUGFja2FyZCBDb21wYW55
AABkZXNjAAAAAAAAABJzUkdCIElFQzYxOTY2LTIuMQAAAAAAAAAAAAAAEnNSR0IgSUVDNjE5NjYtMi4x
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABYWVogAAAAAAAA
81EAAQAAAAEWzFhZWiAAAAAAAAAAAAAAAAAAAAAAWFlaIAAAAAAAAG+iAAA49QAAA5BYWVogAAAAAAAA
YpkAALeFAAAY2lhZWiAAAAAAAAAkoAAAD4QAALbPZGVzYwAAAAAAAAAWSUVDIGh0dHA6Ly93d3cuaWVj
LmNoAAAAAAAAAAAAAAAWSUVDIGh0dHA6Ly93d3cuaWVjLmNoAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAGRlc2MAAAAAAAAALklFQyA2MTk2Ni0yLjEgRGVmYXVsdCBSR0Ig
Y29sb3VyIHNwYWNlIC0gc1JHQgAAAAAAAAAAAAAALklFQyA2MTk2Ni0yLjEgRGVmYXVsdCBSR0IgY29s
b3VyIHNwYWNlIC0gc1JHQgAAAAAAAAAAAAAAAAAAAAAAAAAAAABkZXNjAAAAAAAAACxSZWZlcmVuY2Ug
Vmlld2luZyBDb25kaXRpb24gaW4gSUVDNjE5NjYtMi4xAAAAAAAAAAAAAAAsUmVmZXJlbmNlIFZpZXdp
bmcgQ29uZGl0aW9uIGluIElFQzYxOTY2LTIuMQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAdmlldwAA
AAAAE6T+ABRfLgAQzxQAA+3MAAQTCwADXJ4AAAABWFlaIAAAAAAATAlWAFAAAABXH+dtZWFzAAAAAAAA
AAEAAAAAAAAAAAAAAAAAAAAAAAACjwAAAAJzaWcgAAAAAENSVCBjdXJ2AAAAAAAABAAAAAAFAAoADwAU
ABkAHgAjACgALQAyADcAOwBAAEUASgBPAFQAWQBeAGMAaABtAHIAdwB8AIEAhgCLAJAAlQCaAJ8ApACp
AK4AsgC3ALwAwQDGAMsA0ADVANsA4ADlAOsA8AD2APsBAQEHAQ0BEwEZAR8BJQErATIBOAE+AUUBTAFS
AVkBYAFnAW4BdQF8AYMBiwGSAZoBoQGpAbEBuQHBAckB0QHZAeEB6QHyAfoCAwIMAhQCHQImAi8COAJB
AksCVAJdAmcCcQJ6AoQCjgKYAqICrAK2AsECywLVAuAC6wL1AwADCwMWAyEDLQM4A0MDTwNaA2YDcgN+
A4oDlgOiA64DugPHA9MD4APsA/kEBgQTBCAELQQ7BEgEVQRjBHEEfgSMBJoEqAS2BMQE0wThBPAE/gUN
BRwFKwU6BUkFWAVnBXcFhgWWBaYFtQXFBdUF5QX2BgYGFgYnBjcGSAZZBmoGewaMBp0GrwbABtEG4wb1
BwcHGQcrBz0HTwdhB3QHhgeZB6wHvwfSB+UH+AgLCB8IMghGCFoIbgiCCJYIqgi+CNII5wj7CRAJJQk6
CU8JZAl5CY8JpAm6Cc8J5Qn7ChEKJwo9ClQKagqBCpgKrgrFCtwK8wsLCyILOQtRC2kLgAuYC7ALyAvh
C/kMEgwqDEMMXAx1DI4MpwzADNkM8w0NDSYNQA1aDXQNjg2pDcMN3g34DhMOLg5JDmQOfw6bDrYO0g7u
DwkPJQ9BD14Peg+WD7MPzw/sEAkQJhBDEGEQfhCbELkQ1xD1ERMRMRFPEW0RjBGqEckR6BIHEiYSRRJk
EoQSoxLDEuMTAxMjE0MTYxODE6QTxRPlFAYUJxRJFGoUixStFM4U8BUSFTQVVhV4FZsVvRXgFgMWJhZJ
FmwWjxayFtYW+hcdF0EXZReJF64X0hf3GBsYQBhlGIoYrxjVGPoZIBlFGWsZkRm3Gd0aBBoqGlEadxqe
GsUa7BsUGzsbYxuKG7Ib2hwCHCocUhx7HKMczBz1HR4dRx1wHZkdwx3sHhYeQB5qHpQevh7pHxMfPh9p
H5Qfvx/qIBUgQSBsIJggxCDwIRwhSCF1IaEhziH7IiciVSKCIq8i3SMKIzgjZiOUI8Ij8CQfJE0kfCSr
JNolCSU4JWgllyXHJfcmJyZXJocmtyboJxgnSSd6J6sn3CgNKD8ocSiiKNQpBik4KWspnSnQKgIqNSpo
KpsqzysCKzYraSudK9EsBSw5LG4soizXLQwtQS12Last4S4WLkwugi63Lu4vJC9aL5Evxy/+MDUwbDCk
MNsxEjFKMYIxujHyMioyYzKbMtQzDTNGM38zuDPxNCs0ZTSeNNg1EzVNNYc1wjX9Njc2cjauNuk3JDdg
N5w31zgUOFA4jDjIOQU5Qjl/Obw5+To2OnQ6sjrvOy07azuqO+g8JzxlPKQ84z0iPWE9oT3gPiA+YD6g
PuA/IT9hP6I/4kAjQGRApkDnQSlBakGsQe5CMEJyQrVC90M6Q31DwEQDREdEikTORRJFVUWaRd5GIkZn
RqtG8Ec1R3tHwEgFSEtIkUjXSR1JY0mpSfBKN0p9SsRLDEtTS5pL4kwqTHJMuk0CTUpNk03cTiVObk63
TwBPSU+TT91QJ1BxULtRBlFQUZtR5lIxUnxSx1MTU19TqlP2VEJUj1TbVShVdVXCVg9WXFapVvdXRFeS
V+BYL1h9WMtZGllpWbhaB1pWWqZa9VtFW5Vb5Vw1XIZc1l0nXXhdyV4aXmxevV8PX2Ffs2AFYFdgqmD8
YU9homH1YklinGLwY0Njl2PrZEBklGTpZT1lkmXnZj1mkmboZz1nk2fpaD9olmjsaUNpmmnxakhqn2r3
a09rp2v/bFdsr20IbWBtuW4SbmtuxG8eb3hv0XArcIZw4HE6cZVx8HJLcqZzAXNdc7h0FHRwdMx1KHWF
deF2Pnabdvh3VnezeBF4bnjMeSp5iXnnekZ6pXsEe2N7wnwhfIF84X1BfaF+AX5ifsJ/I3+Ef+WAR4Co
gQqBa4HNgjCCkoL0g1eDuoQdhICE44VHhauGDoZyhteHO4efiASIaYjOiTOJmYn+imSKyoswi5aL/Ixj
jMqNMY2Yjf+OZo7OjzaPnpAGkG6Q1pE/kaiSEZJ6kuOTTZO2lCCUipT0lV+VyZY0lp+XCpd1l+CYTJi4
mSSZkJn8mmia1ZtCm6+cHJyJnPedZJ3SnkCerp8dn4uf+qBpoNihR6G2oiailqMGo3aj5qRWpMelOKWp
phqmi6b9p26n4KhSqMSpN6mpqhyqj6sCq3Wr6axcrNCtRK24ri2uoa8Wr4uwALB1sOqxYLHWskuywrM4
s660JbSctRO1irYBtnm28Ldot+C4WbjRuUq5wro7urW7LrunvCG8m70VvY++Cr6Evv+/er/1wHDA7MFn
wePCX8Lbw1jD1MRRxM7FS8XIxkbGw8dBx7/IPci8yTrJuco4yrfLNsu2zDXMtc01zbXONs62zzfPuNA5
0LrRPNG+0j/SwdNE08bUSdTL1U7V0dZV1tjXXNfg2GTY6Nls2fHadtr724DcBdyK3RDdlt4c3qLfKd+v
4DbgveFE4cziU+Lb42Pj6+Rz5PzlhOYN5pbnH+ep6DLovOlG6dDqW+rl63Dr++yG7RHtnO4o7rTvQO/M
8Fjw5fFy8f/yjPMZ86f0NPTC9VD13vZt9vv3ivgZ+Kj5OPnH+lf65/t3/Af8mP0p/br+S/7c/23////b
AEMAAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQICAgICAgICAgICAwMD
AwMDAwMDA//bAEMBAQEBAQEBAQEBAQICAQICAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMD
AwMDAwMDAwMDAwMDAwMDA//AABEIAAwAPAMBEQACEQEDEQH/xAAfAAABBQEBAQEBAQAAAAAAAAAAAQID
BAUGBwgJCgv/xAC1EAACAQMDAgQDBQUEBAAAAX0BAgMABBEFEiExQQYTUWEHInEUMoGRoQgjQrHBFVLR
8CQzYnKCCQoWFxgZGiUmJygpKjQ1Njc4OTpDREVGR0hJSlNUVVZXWFlaY2RlZmdoaWpzdHV2d3h5eoOE
hYaHiImKkpOUlZaXmJmaoqOkpaanqKmqsrO0tba3uLm6wsPExcbHyMnK0tPU1dbX2Nna4eLj5OXm5+jp
6vHy8/T19vf4+fr/xAAfAQADAQEBAQEBAQEBAAAAAAAAAQIDBAUGBwgJCgv/xAC1EQACAQIEBAMEBwUE
BAABAncAAQIDEQQFITEGEkFRB2FxEyIygQgUQpGhscEJIzNS8BVictEKFiQ04SXxFxgZGiYnKCkqNTY3
ODk6Q0RFRkdISUpTVFVWV1hZWmNkZWZnaGlqc3R1dnd4eXqCg4SFhoeIiYqSk5SVlpeYmZqio6Slpqeo
qaqys7S1tre4ubrCw8TFxsfIycrS09TV1tfY2dri4+Tl5ufo6ery8/T19vf4+fr/2gAMAwEAAhEDEQA/
AP1ZH7UPxEAA/wCEw8bnj/ob9f8A/k+v7U/1Nyj/AKF+G/8ABUP/AJE/llcSZlZf7dX/APBk/wDMX/hq
H4if9Df43/8ACv1//wCT6P8AU3Kf+hfhv/BUP/kQ/wBZcy/6Dq//AIMn/mH/AA1D8RP+hv8AG/8A4V+v
/wDyfR/qblP/AEL8N/4Kh/8AIh/rLmX/AEHV/wDwZP8AzD/hqH4if9Df43/8K/X/AP5Po/1Nyn/oX4b/
AMFQ/wDkQ/1lzL/oOr/+DJ/5h/w1D8RP+hv8b/8AhX6//wDJ9H+puU/9C/Df+Cof/Ih/rLmX/QdX/wDB
k/8AMT/hqH4if9Df43/8K/X/AP5Po/1Nyn/oX4b/AMFQ/wDkQ/1kzL/oOr/+DJ/5n2R+xz+234zt/iRp
nw+8a6vqXiDwZ4gs9baObXr+bUr/AMPajpmkX2tQ3FlqV2Zb57K7XT2t3tXkaJWkV4whVxJ+beJfAuU4
Th/FZ/hKEKOMw8qd+SKjGcZzjTs4q0bpyUlJK7s073VvuuBOLMxxGcYfJ8TWlVw1ZTtzu7hKMJTupPWz
UWnFu2qatrf9aP8AhfXgv+zv7U89/sfm+V5207N+M43fSv50P2w/kwr/AEFP42CgAoAKACgAoA9s/Z0/
s7/hcng3+1vP/s7Ov/avs2PP2f8ACL63t2buP9ZjP+zmvz7xU/5IPPf+4H/qRRPsvD//AJK7KP8AuL/6
ZqH7/wD/ABaT/hUfb7Ht/wBj7V9p8v8A9Cr+Oz+lz//Z
</value>
</data>
<metadata name="$this.TrayHeight" type="System.Int32, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>45</value>
</metadata>
</root>

322
ArinWarev1/Forms_Input/Frm_Desc.vb Normal file
View File

@@ -0,0 +1,322 @@
Public Class Frm_Desc
#Region "data Base 변경여부및 적용방법"
'''변경된내용을적용한다.
Public Overrides Function AcceptChanged() As Boolean
bs.EndEdit()
Dim BaseDS As DataSet = CType(bs.DataSource, DataSet)
Dim BaseDT As DataTable = BaseDS.Tables(bs.DataMember)
BaseDT.AcceptChanges()
Return True
End Function
'''변경된내용이있다면 취소한다.
Public Overrides Function RejectChanged() As Boolean
Dim BaseDS As DataSet = CType(bs.DataSource, DataSet)
Dim BaseDT As DataTable = BaseDS.Tables(bs.DataMember)
BaseDT.RejectChanges()
Return True
End Function
'''데이터에변형이있었는가?
Public Overrides Function HasChanged() As Boolean
bs.EndEdit()
Dim BaseDS As DataSet = CType(bs.DataSource, DataSet)
Dim BaseDT As DataTable = BaseDS.Tables(bs.DataMember)
Dim ChangeDT As DataTable = BaseDT.GetChanges
If Not ChangeDT Is Nothing Then Return True
Return False
End Function
'''기본데이터테이블을 반환합니다.
Public Function DT() As DataTable
Dim BaseDS As DataSet = CType(bs.DataSource, DataSet)
Return BaseDS.Tables(bs.DataMember)
End Function
#End Region
Public Sub New(_opentime)
' 이 호출은 디자이너에 필요합니다.
InitializeComponent()
OpenTime = _opentime
' InitializeComponent() 호출 뒤에 초기화 코드를 추가하십시오.
End Sub
Private Sub MdiMain_FormClosed(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosedEventArgs) Handles Me.FormClosed
CEnergy.ARINCLASS.SaveLoad_FrmSetting(Me, Me.bs.Position, True)
End Sub
Private Sub ShowHistory()
Dim drv As DataRowView = Me.bs.Current
Dim f As New Frm_History("tbl_Desc", "")
If f.ShowDialog = DialogResult.OK Then
drv(f.colname) = f.val
Me.Validate()
Me.bs.EndEdit()
My.Application.DoEvents()
MsgBox("값이 변경되었습니다", MsgBoxStyle.Information, "확인")
End If
End Sub
Private Sub AddNewDataRow_Zone_Changed2(ByVal sender As Object, ByVal e As System.Data.DataColumnChangeEventArgs)
Dim oval As String = e.Row(e.Column.ColumnName).ToString
Dim nval As String = e.ProposedValue.ToString
If oval <> nval Then
Dim newdr As DS2.historyRow = DSHistory.history.NewhistoryRow
newdr.time = Now.ToString("yyyy-MM-dd HH:mm:ss")
newdr.tablename = "tbl_Desc"
newdr.ovalue = oval
newdr.nvalue = nval
newdr.column = e.Column.ColumnName
newdr.code = ""
DSHistory.history.AddhistoryRow(newdr)
DSHistory.history.AcceptChanges()
End If
End Sub
Private Sub MdiMain_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown
Select Case e.KeyCode
Case Keys.F12
ShowHistory()
End Select
End Sub
Private Sub MdiMain_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Me.Show()
My.Application.DoEvents()
' Work_msg_timer("잠시만 기다려주세요")
Me.LinkLabel1.Visible = False
Me.LinkLabel2.Visible = False
Me.LinkLabel3.Visible = False
'MdiMain.Toggle_Menu_Color(MdiMain.E_MenuIdx.건물개요)
'CEnergy.ARINCLASS.SaveLoad_FrmSetting(Me)
'//프로필 관련
'//공유데이터셋에 연결한다.
Me.bs.DataSource = DSET1
If Me.bs.Count = 0 Then bs.AddNew()
bs.EndEdit()
'//Zone
Binding_Zone()
Try
Me.bs.Position = CEnergy.ARINCLASS.Read_LastPos_Frm(Me)
Catch ex As Exception
Me.bs.MoveFirst()
End Try
If Not (Prj.UserId.ToLower() = "guest" OrElse Prj.UserAuthType = "ADMIN" OrElse Prj.UserAuthType = "BOTH" OrElse Prj.UserAuthType = "BOTH2" OrElse Prj.UserAuthType = "BOTH1") Then '//2011.03.08 추가
Dim MyVersion As String '= Format(My.Application.Info.Version.Minor, "0000") & Format(My.Application.Info.Version.Build, "0000")
Dim L As New ArinLogin.ArinLOgin
Dim VersionInfo As ArinLogin.ArinLOgin.sVersionInfo = Nothing
'/공용코드버젼확인
Try
MyVersion = DSET1.tbl_Desc.Rows(0)("versionc").ToString
If MyVersion = "" Then MyVersion = "20100101"
Catch ex As Exception
MyVersion = "20100101"
End Try
Try
VersionInfo = L.Get_LastVersion("C") '//버젼을 가져오는데 eco 버젼만 가져오게 바꺼야겟죵 ^^ 구분자를 넣도록 합시닷!
If VersionInfo.Ver <> "0" AndAlso (CInt(VersionInfo.Ver) > CInt(MyVersion)) Then '//0은 없거나 관리안함의 뜻이므로 넘어간다.
Dim Lc As String = Me.cmb_location.SelectedValue
Read_CommonCode()
Me.cmb_location.SelectedValue = Lc
Me.bs.EndEdit()
End If
Catch ex As Exception
MsgBox("공용코드 에러" & ex.Message.ToString)
End Try
'/표준프로파일버젼확인 '//2010.12.06 추가
Try
MyVersion = DSET1.tbl_Desc.Rows(0)("versionp").ToString
If MyVersion = "" Then MyVersion = "20100101"
Catch ex As Exception
MyVersion = "20100101"
End Try
Try
VersionInfo = L.Get_LastVersion("P") '//버젼을 가져오는데 eco 버젼만 가져오게 바꺼야겟죵 ^^ 구분자를 넣도록 합시닷!
If VersionInfo.Ver <> "0" AndAlso (CInt(VersionInfo.Ver) > CInt(MyVersion)) Then '//0은 없거나 관리안함의 뜻이므로 넘어간다.
Dim Lp As String = Me.cmb_location.SelectedValue
Read_ProfileData()
Me.cmb_location.SelectedValue = Lp
Me.bs.EndEdit()
End If
Catch ex As Exception
MsgBox("표준프로파일 에러" & ex.Message.ToString)
End Try
'/기상데이터버젼확인
Try
MyVersion = DSET1.tbl_Desc.Rows(0)("versionw").ToString
If MyVersion = "" Then MyVersion = "20100101"
Catch ex As Exception
MyVersion = "20100101"
End Try
Try
'MyVersion = DSET1.tbl_Desc.Rows(0)("versionw").ToString
VersionInfo = L.Get_LastVersion("W") '//버젼을 가져오는데 eco 버젼만 가져오게 바꺼야겟죵 ^^ 구분자를 넣도록 합시닷!
If VersionInfo.Ver <> "0" AndAlso (CInt(VersionInfo.Ver) > CInt(MyVersion)) Then '//0은 없거나 관리안함의 뜻이므로 넘어간다.
Dim Lw As String = Me.cmb_location.SelectedValue
Read_WeatherData()
Me.cmb_location.SelectedValue = Lw
Me.bs.EndEdit()
End If
Catch ex As Exception
End Try
Else
Me.LinkLabel1.Visible = True
Me.LinkLabel2.Visible = True
Me.LinkLabel3.Visible = True
End If
AddHandler DSET1.tbl_Desc.ColumnChanging, AddressOf AddNewDataRow_Zone_Changed2
AddDebug("▲ Form Load")
End Sub
Private Sub Binding_Zone()
Dim bs_cmb_공조방식 As New BindingSource(DSET1, "tbl_weather")
bs_cmb_공조방식.Filter = ""
Me.cmb_location.DataSource = bs_cmb_공조방식
cmb_location.DisplayMember = "건물위치"
cmb_location.ValueMember = "code"
Me.cmb_location.DataBindings.Add("selectedvalue", Me.bs, "buildarea")
Dim bs_cmb_인증기관 As New BindingSource(DSET1, "tbl_common")
bs_cmb_인증기관.Filter = "gubun='1100'"
bs_cmb_인증기관.Sort = "code"
cmb_인증기관.DataSource = bs_cmb_인증기관
cmb_인증기관.DisplayMember = "name"
cmb_인증기관.ValueMember = "name"
Me.cmb_인증기관.DataBindings.Add("selectedvalue", Me.bs, "인증기관")
Dim bs_cmb_건물용도 As New BindingSource(DSET1, "tbl_common")
bs_cmb_건물용도.Filter = "gubun='1201'"
bs_cmb_건물용도.Sort = "code"
cmb_주거용건축물.DataSource = bs_cmb_건물용도
cmb_주거용건축물.DisplayMember = "name"
cmb_주거용건축물.ValueMember = "valn1"
Me.cmb_주거용건축물.DataBindings.Add("selectedvalue", Me.bs, "isjugo")
'Dim DT주거용 As New DataTable
'DT주거용.Columns.Add("name")
'DT주거용.Columns.Add("value")
'DT주거용.Rows.Add(New String() {"주거용건축물(단독주택)", "1"})
'DT주거용.Rows.Add(New String() {"주거용건축물(공동주택)", "2"})
'DT주거용.Rows.Add(New String() {"비주거용(제1종근린생활시설)", "11"})
'DT주거용.Rows.Add(New String() {"비주거용(제2종근린생활시설)", "12"})
'DT주거용.Rows.Add(New String() {"비주거용(문화및집회시설)", "13"})
'DT주거용.Rows.Add(New String() {"비주거용(종교시설)", "14"})
'DT주거용.Rows.Add(New String() {"비주거용(판매시설)", "15"})
'DT주거용.Rows.Add(New String() {"비주거용(의료시설)", "16"})
'DT주거용.Rows.Add(New String() {"비주거용(교육연구시설)", "17"})
'DT주거용.Rows.Add(New String() {"비주거용(노유자시설)", "18"})
'DT주거용.Rows.Add(New String() {"비주거용(수련시설)", "19"})
'DT주거용.Rows.Add(New String() {"비주거용(운동시설)", "20"})
'DT주거용.Rows.Add(New String() {"비주거용(업무시설)", "21"})
'DT주거용.Rows.Add(New String() {"비주거용(숙박시설)", "22"})
'DT주거용.Rows.Add(New String() {"비주거용(위락시설)", "23"})
'DT주거용.Rows.Add(New String() {"비주거용(고장물품제조가공이용시설)", "24"})
'DT주거용.Rows.Add(New String() {"비주거용(창고시설)", "25"})
'DT주거용.Rows.Add(New String() {"비주거용(위험물처리장)", "26"})
'DT주거용.Rows.Add(New String() {"비주거용(자동차관리시설)", "27"})
'DT주거용.Rows.Add(New String() {"비주거용(동물및식물관련시설)", "28"})
'DT주거용.Rows.Add(New String() {"비주거용(분뇨및쓰레기처리시설)", "29"})
'DT주거용.Rows.Add(New String() {"비주거용(교정및군사시설)", "30"})
'DT주거용.Rows.Add(New String() {"비주거용(방송통신시설)", "31"})
'DT주거용.Rows.Add(New String() {"비주거용(발전시설발전소)", "32"})
'DT주거용.Rows.Add(New String() {"비주거용(묘지관리시설)", "33"})
'DT주거용.Rows.Add(New String() {"비주거용(관광휴계시설)", "34"})
'DT주거용.Rows.Add(New String() {"비주거용(장례식장)", "35"})
'Me.cmb_주거용건축물.DataSource = DT주거용
'Me.cmb_주거용건축물.DisplayMember = "name"
'Me.cmb_주거용건축물.ValueMember = "value"
'Me.cmb_주거용건축물.DataBindings.Add("selectedvalue", Me.bs, "isjugo")
'AddHandler cmb_location.KeyDown, AddressOf Cmb_DeleteVal
End Sub
Private Sub LinkLabel1_LinkClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs) Handles LinkLabel1.LinkClicked
Dim L As String = Me.cmb_location.SelectedValue
If MsgBox("공용코드값을 서버로부터 가져오시겠습니까?", MsgBoxStyle.Information Or MsgBoxStyle.OkCancel, "확인") = MsgBoxResult.Ok Then Read_CommonCode()
Me.cmb_location.SelectedValue = L
Me.bs.EndEdit()
End Sub
Private Sub LinkLabel2_LinkClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs) Handles LinkLabel2.LinkClicked
Dim L As String = Me.cmb_location.SelectedValue
If MsgBox("기상데이터값을 서버로부터 가져오시겠습니까?", MsgBoxStyle.Information Or MsgBoxStyle.OkCancel, "확인") = MsgBoxResult.Ok Then Read_WeatherData()
Me.cmb_location.SelectedValue = L
Me.bs.EndEdit()
End Sub
Private Sub LinkLabel3_LinkClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs) Handles LinkLabel3.LinkClicked '//2010.12.06 추가
Dim L As String = Me.cmb_location.SelectedValue
If MsgBox("표준프로파일값을 서버로부터 가져오시겠습니까?", MsgBoxStyle.Information Or MsgBoxStyle.OkCancel, "확인") = MsgBoxResult.Ok Then Read_ProfileData()
Me.cmb_location.SelectedValue = L
Me.bs.EndEdit()
End Sub
Private Sub bs_CurrentChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bs.CurrentChanged
Me.bs.EndEdit()
Dim drv As DataRowView = Me.bs.Current
If drv Is Nothing Then Return
If drv("공공").ToString = "" Then drv("공공") = "1"
If drv("공공").ToString = "1" Then
Me.CheckBox1.Checked = True
Else
Me.CheckBox1.Checked = False
End If
End Sub
Private Sub DateTimePicker1_ValueChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DateTimePicker1.ValueChanged, DateTimePicker2.ValueChanged
'//준공이후 경과년수계산
Dim datetime1 As String = Format(Me.DateTimePicker1.Value, "yyyy")
Dim datetime2 As String = Format(Me.DateTimePicker2.Value, "yyyy")
Dim datetime3 As String = Format(Me.DateTimePicker1.Value, "MM")
Dim datetime4 As String = Format(Me.DateTimePicker2.Value, "MM")
Dim priod As Single
Try
If TOSG(datetime3) - TOSG(datetime4) >= 0 Then
priod = Math.Round(TOSG(datetime1) - TOSG(datetime2) + (TOSG(datetime3) - TOSG(datetime4)) / 12, 1)
Else
priod = Math.Round(TOSG(datetime1) - TOSG(datetime2) - (TOSG(datetime4) - TOSG(datetime3)) / 12, 1)
End If
Catch ex As Exception
priod = 0
End Try
If priod < 0 Then priod = 0
MyTb6.Text = CStr(priod)
Me.bs.EndEdit()
End Sub
Private Sub cmb_location_SelectedIndexChanged(sender As System.Object, e As System.EventArgs) Handles cmb_location.SelectedIndexChanged
End Sub
Private Sub CheckBox1_Click(sender As Object, e As System.EventArgs) Handles CheckBox1.Click
Dim drv As DataRowView = Me.bs.Current
If drv Is Nothing Then Return
drv("공공") = IIf(Me.CheckBox1.Checked, "1", "0")
End Sub
Private Sub CheckBox1_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles CheckBox1.CheckedChanged
End Sub
End Class

1004
ArinWarev1/Forms_Input/Frm_NaengBang.Designer.vb generated Normal file
View File

File diff suppressed because it is too large Load Diff

278
ArinWarev1/Forms_Input/Frm_NaengBang.resx Normal file
View File

@@ -0,0 +1,278 @@
<?xml version="1.0" encoding="utf-8"?>
<root>
<!--
Microsoft ResX Schema
Version 2.0
The primary goals of this format is to allow a simple XML format
that is mostly human readable. The generation and parsing of the
various data types are done through the TypeConverter classes
associated with the data types.
Example:
... ado.net/XML headers & schema ...
<resheader name="resmimetype">text/microsoft-resx</resheader>
<resheader name="version">2.0</resheader>
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
<data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
<value>[base64 mime encoded serialized .NET Framework object]</value>
</data>
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
<comment>This is a comment</comment>
</data>
There are any number of "resheader" rows that contain simple
name/value pairs.
Each data row contains a name, and value. The row also contains a
type or mimetype. Type corresponds to a .NET class that support
text/value conversion through the TypeConverter architecture.
Classes that don't support this are serialized and stored with the
mimetype set.
The mimetype is used for serialized objects, and tells the
ResXResourceReader how to depersist the object. This is currently not
extensible. For a given mimetype the value must be set accordingly:
Note - application/x-microsoft.net.object.binary.base64 is the format
that the ResXResourceWriter will generate, however the reader can
read any of the formats listed below.
mimetype: application/x-microsoft.net.object.binary.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.soap.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.bytearray.base64
value : The object must be serialized into a byte array
: using a System.ComponentModel.TypeConverter
: and then encoded with base64 encoding.
-->
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
<xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
<xsd:element name="root" msdata:IsDataSet="true">
<xsd:complexType>
<xsd:choice maxOccurs="unbounded">
<xsd:element name="metadata">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" />
</xsd:sequence>
<xsd:attribute name="name" use="required" type="xsd:string" />
<xsd:attribute name="type" type="xsd:string" />
<xsd:attribute name="mimetype" type="xsd:string" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="assembly">
<xsd:complexType>
<xsd:attribute name="alias" type="xsd:string" />
<xsd:attribute name="name" type="xsd:string" />
</xsd:complexType>
</xsd:element>
<xsd:element name="data">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="resheader">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" />
</xsd:complexType>
</xsd:element>
</xsd:choice>
</xsd:complexType>
</xsd:element>
</xsd:schema>
<resheader name="resmimetype">
<value>text/microsoft-resx</value>
</resheader>
<resheader name="version">
<value>2.0</value>
</resheader>
<resheader name="reader">
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<resheader name="writer">
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<metadata name="Label215.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</metadata>
<metadata name="Label216.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="Label2.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="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">
<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="Label7.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="냉동기종류Label.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="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="Label13.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="Label15.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>17, 17</value>
</metadata>
<metadata name="DS.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>81, 17</value>
</metadata>
<metadata name="bn.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>148, 17</value>
</metadata>
<assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
<data name="PictureBox4.BackgroundImage" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
/9j/4AAQSkZJRgABAgEASABIAAD/7gAOQWRvYmUAZAAAAAAB/+ED5kV4aWYAAE1NACoAAAAIAAcBEgAD
AAAAAQABAAABGgAFAAAAAQAAAGIBGwAFAAAAAQAAAGoBKAADAAAAAQACAAABMQACAAAAHAAAAHIBMgAC
AAAAFAAAAI6HaQAEAAAAAQAAAKIAAADCAEgAAAABAAAASAAAAAEAAEFkb2JlIFBob3Rvc2hvcCBDUzMg
V2luZG93cwAyMDEwOjA0OjE1IDIwOjMyOjA0AAACoAIABAAAAAEAAAA8oAMABAAAAAEAAAAMAAAAAAAA
AAYBAwADAAAAAQAGAAABGgAFAAAAAQAAARABGwAFAAAAAQAAARgBKAADAAAAAQACAAACAQAEAAAAAQAA
ASACAgAEAAAAAQAAAr4AAAAAAAAASAAAAAEAAABIAAAAAf/Y/+AAEEpGSUYAAQIAAEgASAAA/+0ADEFk
b2JlX0NNAAH/7gAOQWRvYmUAZIAAAAAB/9sAhAAMCAgICQgMCQkMEQsKCxEVDwwMDxUYExMVExMYEQwM
DAwMDBEMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMAQ0LCw0ODRAODhAUDg4OFBQODg4OFBEMDAwM
DBERDAwMDAwMEQwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAz/wAARCAAMADwDASIAAhEBAxEB/90A
BAAE/8QBPwAAAQUBAQEBAQEAAAAAAAAAAwABAgQFBgcICQoLAQABBQEBAQEBAQAAAAAAAAABAAIDBAUG
BwgJCgsQAAEEAQMCBAIFBwYIBQMMMwEAAhEDBCESMQVBUWETInGBMgYUkaGxQiMkFVLBYjM0coLRQwcl
klPw4fFjczUWorKDJkSTVGRFwqN0NhfSVeJl8rOEw9N14/NGJ5SkhbSVxNTk9KW1xdXl9VZmdoaWprbG
1ub2N0dXZ3eHl6e3x9fn9xEAAgIBAgQEAwQFBgcHBgU1AQACEQMhMRIEQVFhcSITBTKBkRShsUIjwVLR
8DMkYuFygpJDUxVjczTxJQYWorKDByY1wtJEk1SjF2RFVTZ0ZeLys4TD03Xj80aUpIW0lcTU5PSltcXV
5fVWZnaGlqa2xtbm9ic3R1dnd4eXp7fH/9oADAMBAAIRAxEAPwDd/amR/pH/AOcf70v2pkf6R/8AnH+9
UUlofq/Bpevxb37UyP8ASP8A84/3pftTI/0j/wDOP96opJfq/BXr8W9+1Mj/AEj/APOP96X7UyP9I/8A
zj/eqKSX6vwV6/F3ujdbuGS2i5xfU8HVxktIG76XyW99vo27p0XGdO2/ba930dZj+q5dX+qfZPL8VAeD
341VVr/eZhx+0bu708n/2f/iDFhJQ0NfUFJPRklMRQABAQAADEhMaW5vAhAAAG1udHJSR0IgWFlaIAfO
AAIACQAGADEAAGFjc3BNU0ZUAAAAAElFQyBzUkdCAAAAAAAAAAAAAAAAAAD21gABAAAAANMtSFAgIAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAEWNwcnQAAAFQAAAAM2Rl
c2MAAAGEAAAAbHd0cHQAAAHwAAAAFGJrcHQAAAIEAAAAFHJYWVoAAAIYAAAAFGdYWVoAAAIsAAAAFGJY
WVoAAAJAAAAAFGRtbmQAAAJUAAAAcGRtZGQAAALEAAAAiHZ1ZWQAAANMAAAAhnZpZXcAAAPUAAAAJGx1
bWkAAAP4AAAAFG1lYXMAAAQMAAAAJHRlY2gAAAQwAAAADHJUUkMAAAQ8AAAIDGdUUkMAAAQ8AAAIDGJU
UkMAAAQ8AAAIDHRleHQAAAAAQ29weXJpZ2h0IChjKSAxOTk4IEhld2xldHQtUGFja2FyZCBDb21wYW55
AABkZXNjAAAAAAAAABJzUkdCIElFQzYxOTY2LTIuMQAAAAAAAAAAAAAAEnNSR0IgSUVDNjE5NjYtMi4x
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABYWVogAAAAAAAA
81EAAQAAAAEWzFhZWiAAAAAAAAAAAAAAAAAAAAAAWFlaIAAAAAAAAG+iAAA49QAAA5BYWVogAAAAAAAA
YpkAALeFAAAY2lhZWiAAAAAAAAAkoAAAD4QAALbPZGVzYwAAAAAAAAAWSUVDIGh0dHA6Ly93d3cuaWVj
LmNoAAAAAAAAAAAAAAAWSUVDIGh0dHA6Ly93d3cuaWVjLmNoAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAGRlc2MAAAAAAAAALklFQyA2MTk2Ni0yLjEgRGVmYXVsdCBSR0Ig
Y29sb3VyIHNwYWNlIC0gc1JHQgAAAAAAAAAAAAAALklFQyA2MTk2Ni0yLjEgRGVmYXVsdCBSR0IgY29s
b3VyIHNwYWNlIC0gc1JHQgAAAAAAAAAAAAAAAAAAAAAAAAAAAABkZXNjAAAAAAAAACxSZWZlcmVuY2Ug
Vmlld2luZyBDb25kaXRpb24gaW4gSUVDNjE5NjYtMi4xAAAAAAAAAAAAAAAsUmVmZXJlbmNlIFZpZXdp
bmcgQ29uZGl0aW9uIGluIElFQzYxOTY2LTIuMQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAdmlldwAA
AAAAE6T+ABRfLgAQzxQAA+3MAAQTCwADXJ4AAAABWFlaIAAAAAAATAlWAFAAAABXH+dtZWFzAAAAAAAA
AAEAAAAAAAAAAAAAAAAAAAAAAAACjwAAAAJzaWcgAAAAAENSVCBjdXJ2AAAAAAAABAAAAAAFAAoADwAU
ABkAHgAjACgALQAyADcAOwBAAEUASgBPAFQAWQBeAGMAaABtAHIAdwB8AIEAhgCLAJAAlQCaAJ8ApACp
AK4AsgC3ALwAwQDGAMsA0ADVANsA4ADlAOsA8AD2APsBAQEHAQ0BEwEZAR8BJQErATIBOAE+AUUBTAFS
AVkBYAFnAW4BdQF8AYMBiwGSAZoBoQGpAbEBuQHBAckB0QHZAeEB6QHyAfoCAwIMAhQCHQImAi8COAJB
AksCVAJdAmcCcQJ6AoQCjgKYAqICrAK2AsECywLVAuAC6wL1AwADCwMWAyEDLQM4A0MDTwNaA2YDcgN+
A4oDlgOiA64DugPHA9MD4APsA/kEBgQTBCAELQQ7BEgEVQRjBHEEfgSMBJoEqAS2BMQE0wThBPAE/gUN
BRwFKwU6BUkFWAVnBXcFhgWWBaYFtQXFBdUF5QX2BgYGFgYnBjcGSAZZBmoGewaMBp0GrwbABtEG4wb1
BwcHGQcrBz0HTwdhB3QHhgeZB6wHvwfSB+UH+AgLCB8IMghGCFoIbgiCCJYIqgi+CNII5wj7CRAJJQk6
CU8JZAl5CY8JpAm6Cc8J5Qn7ChEKJwo9ClQKagqBCpgKrgrFCtwK8wsLCyILOQtRC2kLgAuYC7ALyAvh
C/kMEgwqDEMMXAx1DI4MpwzADNkM8w0NDSYNQA1aDXQNjg2pDcMN3g34DhMOLg5JDmQOfw6bDrYO0g7u
DwkPJQ9BD14Peg+WD7MPzw/sEAkQJhBDEGEQfhCbELkQ1xD1ERMRMRFPEW0RjBGqEckR6BIHEiYSRRJk
EoQSoxLDEuMTAxMjE0MTYxODE6QTxRPlFAYUJxRJFGoUixStFM4U8BUSFTQVVhV4FZsVvRXgFgMWJhZJ
FmwWjxayFtYW+hcdF0EXZReJF64X0hf3GBsYQBhlGIoYrxjVGPoZIBlFGWsZkRm3Gd0aBBoqGlEadxqe
GsUa7BsUGzsbYxuKG7Ib2hwCHCocUhx7HKMczBz1HR4dRx1wHZkdwx3sHhYeQB5qHpQevh7pHxMfPh9p
H5Qfvx/qIBUgQSBsIJggxCDwIRwhSCF1IaEhziH7IiciVSKCIq8i3SMKIzgjZiOUI8Ij8CQfJE0kfCSr
JNolCSU4JWgllyXHJfcmJyZXJocmtyboJxgnSSd6J6sn3CgNKD8ocSiiKNQpBik4KWspnSnQKgIqNSpo
KpsqzysCKzYraSudK9EsBSw5LG4soizXLQwtQS12Last4S4WLkwugi63Lu4vJC9aL5Evxy/+MDUwbDCk
MNsxEjFKMYIxujHyMioyYzKbMtQzDTNGM38zuDPxNCs0ZTSeNNg1EzVNNYc1wjX9Njc2cjauNuk3JDdg
N5w31zgUOFA4jDjIOQU5Qjl/Obw5+To2OnQ6sjrvOy07azuqO+g8JzxlPKQ84z0iPWE9oT3gPiA+YD6g
PuA/IT9hP6I/4kAjQGRApkDnQSlBakGsQe5CMEJyQrVC90M6Q31DwEQDREdEikTORRJFVUWaRd5GIkZn
RqtG8Ec1R3tHwEgFSEtIkUjXSR1JY0mpSfBKN0p9SsRLDEtTS5pL4kwqTHJMuk0CTUpNk03cTiVObk63
TwBPSU+TT91QJ1BxULtRBlFQUZtR5lIxUnxSx1MTU19TqlP2VEJUj1TbVShVdVXCVg9WXFapVvdXRFeS
V+BYL1h9WMtZGllpWbhaB1pWWqZa9VtFW5Vb5Vw1XIZc1l0nXXhdyV4aXmxevV8PX2Ffs2AFYFdgqmD8
YU9homH1YklinGLwY0Njl2PrZEBklGTpZT1lkmXnZj1mkmboZz1nk2fpaD9olmjsaUNpmmnxakhqn2r3
a09rp2v/bFdsr20IbWBtuW4SbmtuxG8eb3hv0XArcIZw4HE6cZVx8HJLcqZzAXNdc7h0FHRwdMx1KHWF
deF2Pnabdvh3VnezeBF4bnjMeSp5iXnnekZ6pXsEe2N7wnwhfIF84X1BfaF+AX5ifsJ/I3+Ef+WAR4Co
gQqBa4HNgjCCkoL0g1eDuoQdhICE44VHhauGDoZyhteHO4efiASIaYjOiTOJmYn+imSKyoswi5aL/Ixj
jMqNMY2Yjf+OZo7OjzaPnpAGkG6Q1pE/kaiSEZJ6kuOTTZO2lCCUipT0lV+VyZY0lp+XCpd1l+CYTJi4
mSSZkJn8mmia1ZtCm6+cHJyJnPedZJ3SnkCerp8dn4uf+qBpoNihR6G2oiailqMGo3aj5qRWpMelOKWp
phqmi6b9p26n4KhSqMSpN6mpqhyqj6sCq3Wr6axcrNCtRK24ri2uoa8Wr4uwALB1sOqxYLHWskuywrM4
s660JbSctRO1irYBtnm28Ldot+C4WbjRuUq5wro7urW7LrunvCG8m70VvY++Cr6Evv+/er/1wHDA7MFn
wePCX8Lbw1jD1MRRxM7FS8XIxkbGw8dBx7/IPci8yTrJuco4yrfLNsu2zDXMtc01zbXONs62zzfPuNA5
0LrRPNG+0j/SwdNE08bUSdTL1U7V0dZV1tjXXNfg2GTY6Nls2fHadtr724DcBdyK3RDdlt4c3qLfKd+v
4DbgveFE4cziU+Lb42Pj6+Rz5PzlhOYN5pbnH+ep6DLovOlG6dDqW+rl63Dr++yG7RHtnO4o7rTvQO/M
8Fjw5fFy8f/yjPMZ86f0NPTC9VD13vZt9vv3ivgZ+Kj5OPnH+lf65/t3/Af8mP0p/br+S/7c/23////b
AEMAAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQICAgICAgICAgICAwMD
AwMDAwMDA//bAEMBAQEBAQEBAQEBAQICAQICAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMD
AwMDAwMDAwMDAwMDAwMDA//AABEIAAwAPAMBEQACEQEDEQH/xAAfAAABBQEBAQEBAQAAAAAAAAAAAQID
BAUGBwgJCgv/xAC1EAACAQMDAgQDBQUEBAAAAX0BAgMABBEFEiExQQYTUWEHInEUMoGRoQgjQrHBFVLR
8CQzYnKCCQoWFxgZGiUmJygpKjQ1Njc4OTpDREVGR0hJSlNUVVZXWFlaY2RlZmdoaWpzdHV2d3h5eoOE
hYaHiImKkpOUlZaXmJmaoqOkpaanqKmqsrO0tba3uLm6wsPExcbHyMnK0tPU1dbX2Nna4eLj5OXm5+jp
6vHy8/T19vf4+fr/xAAfAQADAQEBAQEBAQEBAAAAAAAAAQIDBAUGBwgJCgv/xAC1EQACAQIEBAMEBwUE
BAABAncAAQIDEQQFITEGEkFRB2FxEyIygQgUQpGhscEJIzNS8BVictEKFiQ04SXxFxgZGiYnKCkqNTY3
ODk6Q0RFRkdISUpTVFVWV1hZWmNkZWZnaGlqc3R1dnd4eXqCg4SFhoeIiYqSk5SVlpeYmZqio6Slpqeo
qaqys7S1tre4ubrCw8TFxsfIycrS09TV1tfY2dri4+Tl5ufo6ery8/T19vf4+fr/2gAMAwEAAhEDEQA/
AP1ZH7UPxEAA/wCEw8bnj/ob9f8A/k+v7U/1Nyj/AKF+G/8ABUP/AJE/llcSZlZf7dX/APBk/wDMX/hq
H4if9Df43/8ACv1//wCT6P8AU3Kf+hfhv/BUP/kQ/wBZcy/6Dq//AIMn/mH/AA1D8RP+hv8AG/8A4V+v
/wDyfR/qblP/AEL8N/4Kh/8AIh/rLmX/AEHV/wDwZP8AzD/hqH4if9Df43/8K/X/AP5Po/1Nyn/oX4b/
AMFQ/wDkQ/1lzL/oOr/+DJ/5h/w1D8RP+hv8b/8AhX6//wDJ9H+puU/9C/Df+Cof/Ih/rLmX/QdX/wDB
k/8AMT/hqH4if9Df43/8K/X/AP5Po/1Nyn/oX4b/AMFQ/wDkQ/1kzL/oOr/+DJ/5n2R+xz+234zt/iRp
nw+8a6vqXiDwZ4gs9baObXr+bUr/AMPajpmkX2tQ3FlqV2Zb57K7XT2t3tXkaJWkV4whVxJ+beJfAuU4
Th/FZ/hKEKOMw8qd+SKjGcZzjTs4q0bpyUlJK7s073VvuuBOLMxxGcYfJ8TWlVw1ZTtzu7hKMJTupPWz
UWnFu2qatrf9aP8AhfXgv+zv7U89/sfm+V5207N+M43fSv50P2w/kwr/AEFP42CgAoAKACgAoA9s/Z0/
s7/hcng3+1vP/s7Ov/avs2PP2f8ACL63t2buP9ZjP+zmvz7xU/5IPPf+4H/qRRPsvD//AJK7KP8AuL/6
ZqH7/wD/ABaT/hUfb7Ht/wBj7V9p8v8A9Cr+Oz+lz//Z
</value>
</data>
<metadata name="$this.TrayHeight" type="System.Int32, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>39</value>
</metadata>
</root>

810
ArinWarev1/Forms_Input/Frm_NaengBang.vb Normal file
View File

@@ -0,0 +1,810 @@
Public Class Frm_NaengBang
Dim Init As Boolean = False
Dim SrcDrv As DataRowView
Public Sub New(_opentime)
' 이 호출은 디자이너에 필요합니다.
InitializeComponent()
OpenTime = _opentime
' InitializeComponent() 호출 뒤에 초기화 코드를 추가하십시오.
End Sub
#Region "data Base 변경여부및 적용방법"
'''변경된내용을적용한다.
Public Overrides Function AcceptChanged() As Boolean
bs.EndEdit()
Dim BaseDS As DataSet = CType(bs.DataSource, DataSet)
Dim BaseDT As DataTable = BaseDS.Tables(bs.DataMember)
BaseDT.AcceptChanges()
Return True
End Function
'''변경된내용이있다면 취소한다.
Public Overrides Function RejectChanged() As Boolean
Dim BaseDS As DataSet = CType(bs.DataSource, DataSet)
Dim BaseDT As DataTable = BaseDS.Tables(bs.DataMember)
BaseDT.RejectChanges()
Return True
End Function
'''데이터에변형이있었는가?
Public Overrides Function HasChanged() As Boolean
bs.EndEdit()
Dim BaseDS As DataSet = CType(bs.DataSource, DataSet)
Dim BaseDT As DataTable = BaseDS.Tables(bs.DataMember)
Dim ChangeDT As DataTable = BaseDT.GetChanges
If Not ChangeDT Is Nothing Then Return True
Return False
End Function
'''기본데이터테이블을 반환합니다.
Public Function DT() As DataTable
Dim BaseDS As DataSet = CType(bs.DataSource, DataSet)
Return BaseDS.Tables(bs.DataMember)
End Function
#End Region
Private Sub ShowHistory()
Dim drv As DataRowView = Me.bs.Current
Dim f As New Frm_History("tbl_nangbangkiki", drv("code").ToString)
If f.ShowDialog = DialogResult.OK Then
drv(f.colname) = f.val
Me.Validate()
Me.bs.EndEdit()
My.Application.DoEvents()
MsgBox("값이 변경되었습니다", MsgBoxStyle.Information, "확인")
End If
End Sub
Private Sub AddNewDataRow_Zone_Changed2(ByVal sender As Object, ByVal e As System.Data.DataColumnChangeEventArgs)
Dim oval As String = e.Row(e.Column.ColumnName).ToString
Dim nval As String = e.ProposedValue.ToString
If oval <> nval Then
Dim newdr As DS2.historyRow = DSHistory.history.NewhistoryRow
newdr.time = Now.ToString("yyyy-MM-dd HH:mm:ss")
newdr.tablename = "tbl_nangbangkiki"
newdr.ovalue = oval
newdr.nvalue = nval
newdr.column = e.Column.ColumnName
newdr.code = e.Row("code").ToString
DSHistory.history.AddhistoryRow(newdr)
DSHistory.history.AcceptChanges()
End If
End Sub
Private Sub MdiMain_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Me.Show()
My.Application.DoEvents()
'Work_msg_timer("잠시만 기다려주세요")
'//프로필 관련
'//공유데이터셋에 연결한다.
Me.bs.DataSource = DSET1
'//냉방기기
AddHandler DSET1.tbl_nangbangkiki.TableNewRow, AddressOf AddNewDataRow_nangbangkiki
AddHandler DSET1.tbl_nangbangkiki.ColumnChanging, AddressOf AddNewDataRow_Zone_Changed2
'//콤보컨트롤 바인딩
Binding_Zone()
'//모든컨트롤의 cTrl_enter 를 추가합니다
BindProperty(CType(Me.SplitContainer1.Panel2.Controls, Control.ControlCollection))
Me.bs.Filter = "code <> '0'"
If Me.Parameter <> "" Then Me.bs.Filter &= " and 냉동기방식 ='" + Me.Parameter + "'"
'Me.lb_grpname.Text = Me.Parameter
Me.Init = True
Try
Me.bs.Position = CEnergy.ARINCLASS.Read_LastPos_Frm(Me)
Catch ex As Exception
Me.bs.MoveFirst()
End Try
bs_CurrentChanged(sender, e)
Validate_Control()
AddDebug("▲ Form Load")
End Sub
#Region "Control_Enter"
Private Sub BindProperty(ByVal Ctl As Control.ControlCollection)
For Each C As Control In Ctl
If C.Controls.Count > 1 Then
BindProperty(C.Controls)
Else
If C.GetType.ToString.ToUpper.IndexOf("MYTB") <> -1 Then
AddHandler CType(C, MyTb).KeyDown, AddressOf TextBOx_KeyDown
ElseIf C.GetType.ToString.ToUpper.IndexOf("MYCMB") <> -1 Then
AddHandler CType(C, MyCmb).KeyDown, AddressOf Cmd_KeyDown
End If
End If
Next
End Sub
Private Sub TextBOx_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs)
If e.KeyCode = Keys.Enter AndAlso e.Control Then
Try
Dim Field As String = (CType(sender, MyTb).DataBindings.Item("text").BindingMemberInfo.BindingField)
For Each Dr As DataRow In Dt.Select(Me.bs.Filter, "")
Dr(Field) = CType(sender, MyTb).Text
Next
Work_msg_timer("모든값이 변경되었습니다", 25)
Catch ex As Exception
End Try
End If
End Sub
Private Sub Cmd_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs)
If e.KeyCode = Keys.Enter AndAlso e.Control Then
Try
Dim Field As String = (CType(sender, MyCmb).DataBindings.Item("selectedvalue").BindingMemberInfo.BindingField)
For Each Dr As DataRow In Dt.Select(Me.bs.Filter, "")
Dr(Field) = CType(sender, MyCmb).SelectedValue
Next
Work_msg_timer("모든값이 변경되었습니다", 25)
Catch ex As Exception
End Try
End If
End Sub
#End Region
#Region "냉방기기"
Private Sub MdiMain_FormClosed(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosedEventArgs) Handles Me.FormClosed
CEnergy.ARINCLASS.SaveLoad_FrmSetting(Me, Me.bs.Position, True)
End Sub
Private Sub MdiMain_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown
Select Case e.KeyCode
Case Keys.F12
ShowHistory()
End Select
End Sub
Private Function GetMaxCode(ByVal dt As DataTable) As String
Try
Dim Dr As DataRow = dt.Select("", "code desc")(0)
Return Format(CInt(Dr("code")) + 1, "0000")
Catch ex As Exception
Return "0001"
End Try
End Function
#Region "제어버튼"
Private Sub ToolStripButton48_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt_add.Click
If Not EndEdit(Me.bs) Then Return
Me.bs.AddNew()
INitRow(Me.Controls)
MdiMain.RefreshMenuList(TreeTag)
End Sub
Private Sub ToolStripButton49_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt_Del.Click
Dbbase.DelCrow(Me.bs, True)
MdiMain.RefreshMenuList(TreeTag)
End Sub
Private Sub ToolStripButton51_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt_cancel.Click
If Not EndEdit(Me.bs) Then Return
Data_Cancel(DSET1.tbl_profile, Nothing)
MdiMain.RefreshMenuList(TreeTag)
End Sub
#End Region
Private Sub Binding_Zone()
'//냉동기기
Dim bs_냉동기방식ComboBox As New BindingSource(DSET1, "tbl_common")
bs_냉동기방식ComboBox.Filter = "gubun='1046'"
bs_냉동기방식ComboBox.Sort = "code"
Me.냉동기방식ComboBox.DataSource = bs_냉동기방식ComboBox
냉동기방식ComboBox.DisplayMember = "name"
냉동기방식ComboBox.ValueMember = "name"
Me.냉동기방식ComboBox.DataBindings.Add("selectedvalue", Me.bs, "냉동기방식")
'AddHandler 냉동기방식ComboBox.KeyDown, AddressOf Cmb_DeleteVal
Dim bs_냉동기종류ComboBox As New BindingSource(DSET1, "tbl_common")
bs_냉동기종류ComboBox.Filter = "gubun='1047'"
bs_냉동기종류ComboBox.Sort = "code"
Me.냉동기종류ComboBox.DataSource = bs_냉동기종류ComboBox
냉동기종류ComboBox.DisplayMember = "name"
냉동기종류ComboBox.ValueMember = "name"
Me.냉동기종류ComboBox.DataBindings.Add("selectedvalue", Me.bs, "냉동기종류")
'AddHandler 냉동기종류ComboBox.KeyDown, AddressOf Cmb_DeleteVal
Dim bs_냉동기압축방식ComboBox As New BindingSource(DSET1, "tbl_common")
bs_냉동기압축방식ComboBox.Filter = "gubun='1048'"
bs_냉동기압축방식ComboBox.Sort = "code"
Me.냉동기압축방식ComboBox.DataSource = bs_냉동기압축방식ComboBox
냉동기압축방식ComboBox.DisplayMember = "name"
냉동기압축방식ComboBox.ValueMember = "name"
Me.냉동기압축방식ComboBox.DataBindings.Add("selectedvalue", Me.bs, "냉동기압축방식")
' AddHandler 냉동기압축방식ComboBox.KeyDown, AddressOf Cmb_DeleteVal
Dim bs_압축기제어방식ComboBox As New BindingSource(DSET1, "tbl_common")
bs_압축기제어방식ComboBox.Filter = "gubun='1049'"
bs_압축기제어방식ComboBox.Sort = "code"
Me.압축기제어방식ComboBox.DataSource = bs_압축기제어방식ComboBox
압축기제어방식ComboBox.DisplayMember = "name"
압축기제어방식ComboBox.ValueMember = "name"
Me.압축기제어방식ComboBox.DataBindings.Add("selectedvalue", Me.bs, "압축기제어방식")
'AddHandler 압축기제어방식ComboBox.KeyDown, AddressOf Cmb_DeleteVal
Dim bs_냉동기설비시스템ComboBox As New BindingSource(DSET1, "tbl_common")
bs_냉동기설비시스템ComboBox.Filter = "gubun='1050'"
bs_냉동기설비시스템ComboBox.Sort = "code"
Me.냉동기설비시스템ComboBox.DataSource = bs_냉동기설비시스템ComboBox
냉동기설비시스템ComboBox.DisplayMember = "name"
냉동기설비시스템ComboBox.ValueMember = "name"
Me.냉동기설비시스템ComboBox.DataBindings.Add("selectedvalue", Me.bs, "냉동기설비시스템")
'AddHandler 냉동기설비시스템ComboBox.KeyDown, AddressOf Cmb_DeleteVal
Dim bs_제어방식ComboBox As New BindingSource(DSET1, "tbl_common")
bs_제어방식ComboBox.Filter = "gubun='1051'"
bs_제어방식ComboBox.Sort = "code"
Me.제어방식ComboBox.DataSource = bs_제어방식ComboBox
제어방식ComboBox.DisplayMember = "name"
제어방식ComboBox.ValueMember = "name"
Me.제어방식ComboBox.DataBindings.Add("selectedvalue", Me.bs, "제어방식")
'AddHandler 제어방식ComboBox.KeyDown, AddressOf Cmb_DeleteVal
Dim bs_열생산연결방식 As New BindingSource(DSET1, "tbl_common")
bs_열생산연결방식.Filter = "gubun='1085'"
bs_열생산연결방식.Sort = "code"
Me.cmb_열생산연결방식.DataSource = bs_열생산연결방식
cmb_열생산연결방식.DisplayMember = "name"
cmb_열생산연결방식.ValueMember = "name"
Me.cmb_열생산연결방식.DataBindings.Add("selectedvalue", Me.bs, "열생산연결방식")
Dim bs_사용연료 As New BindingSource(DSET1, "tbl_common")
bs_사용연료.Filter = "gubun='1086'"
bs_사용연료.Sort = "code"
Me.cmb_사용연료.DataSource = bs_사용연료
cmb_사용연료.DisplayMember = "name"
cmb_사용연료.ValueMember = "name"
Me.cmb_사용연료.DataBindings.Add("selectedvalue", Me.bs, "사용연료")
'AddHandler 온수열생산기기ComboBox.KeyDown, AddressOf Cmb_DeleteVal
Dim bs_온수열생산기기ComboBox As New BindingSource(DSET1, "tbl_nanbangkiki")
bs_온수열생산기기ComboBox.Sort = "code"
Me.온수열생산기기ComboBox.DataSource = bs_온수열생산기기ComboBox
온수열생산기기ComboBox.DisplayMember = "설명"
온수열생산기기ComboBox.ValueMember = "code"
Me.온수열생산기기ComboBox.DataBindings.Add("selectedvalue", Me.bs, "온수열생산기기")
'AddHandler 온수열생산기기ComboBox.KeyDown, AddressOf Cmb_DeleteVal
Dim bs_증발식건식냉각기ComboBox As New BindingSource(DSET1, "tbl_common")
bs_증발식건식냉각기ComboBox.Filter = "gubun='1052'"
bs_증발식건식냉각기ComboBox.Sort = "code"
Me.증발식건식냉각기ComboBox.DataSource = bs_증발식건식냉각기ComboBox
증발식건식냉각기ComboBox.DisplayMember = "name"
증발식건식냉각기ComboBox.ValueMember = "name"
Me.증발식건식냉각기ComboBox.DataBindings.Add("selectedvalue", Me.bs, "증발식건식냉각기")
'AddHandler 증발식건식냉각기ComboBox.KeyDown, AddressOf Cmb_DeleteVal
Dim bs_증발식냉각기ComboBox As New BindingSource(DSET1, "tbl_common")
bs_증발식냉각기ComboBox.Filter = "gubun='1053'"
bs_증발식냉각기ComboBox.Sort = "code"
Me.증발식냉각기ComboBox.DataSource = bs_증발식냉각기ComboBox
증발식냉각기ComboBox.DisplayMember = "name"
증발식냉각기ComboBox.ValueMember = "name"
Me.증발식냉각기ComboBox.DataBindings.Add("selectedvalue", Me.bs, "증발식냉각기")
'AddHandler 증발식냉각기ComboBox.KeyDown, AddressOf Cmb_DeleteVal
Dim bs_보조방음기유무ComboBox As New BindingSource(DSET1, "tbl_common")
bs_보조방음기유무ComboBox.Filter = "gubun='1054'" '//예 아니오 아직 결정안됨
bs_보조방음기유무ComboBox.Sort = "code"
Me.보조방음기유무ComboBox.DataSource = bs_보조방음기유무ComboBox
보조방음기유무ComboBox.DisplayMember = "name"
보조방음기유무ComboBox.ValueMember = "name"
Me.보조방음기유무ComboBox.DataBindings.Add("selectedvalue", Me.bs, "보조방음기유무")
'AddHandler 보조방음기유무ComboBox.KeyDown, AddressOf Cmb_DeleteVal
Dim bs_신재생연결여부ComboBox1 As New BindingSource(DSET1, "tbl_common")
bs_신재생연결여부ComboBox1.Filter = "gubun='1044'"
bs_신재생연결여부ComboBox1.Sort = "code"
Me.신재생연결여부ComboBox1.DataSource = bs_신재생연결여부ComboBox1
신재생연결여부ComboBox1.DisplayMember = "name"
신재생연결여부ComboBox1.ValueMember = "name"
Me.신재생연결여부ComboBox1.DataBindings.Add("selectedvalue", Me.bs, "신재생연결여부")
'AddHandler 신재생연결여부ComboBox1.KeyDown, AddressOf Cmb_DeleteVal
Dim bs_연결된시스템ComboBox1 As New BindingSource(DSET1, "tbl_new")
bs_연결된시스템ComboBox1.Sort = "code"
Me.cmb_신재생.DataSource = bs_연결된시스템ComboBox1
cmb_신재생.DisplayMember = "설명"
cmb_신재생.ValueMember = "code"
Me.cmb_신재생.DataBindings.Add("selectedvalue", Me.bs, "연결된시스템")
'AddHandler cmb_신재생.KeyDown, AddressOf Cmb_DeleteVal
End Sub
Private Sub AddNewDataRow_nangbangkiki(ByVal sender As Object, ByVal e As System.Data.DataTableNewRowEventArgs)
e.Row.Item("code") = GetMaxCode(DSET1.tbl_nangbangkiki)
e.Row.Item("설명") = "신규데이터"
End Sub
Private Sub Frm_V20091231_Zone_MouseWheel(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseWheel
If e.Delta < 0 Then
If Me.bs.Position < Me.bs.Count Then Me.bs.Position += 1
Else
If Me.bs.Position > 0 Then Me.bs.Position -= 1
End If
Me.Validate()
My.Application.DoEvents()
End Sub
#End Region
Private Sub 신재생연결여부ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 신재생연결여부ComboBox1.SelectedIndexChanged
Try
If Me.신재생연결여부ComboBox1.SelectedIndex = 0 Then '//신재생연결없음
cmb_신재생.Enabled = False
Else
cmb_신재생.Enabled = True
End If
Catch ex As Exception
End Try
End Sub
Private Sub 냉동기방식ComboBox_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles 냉동기방식ComboBox.KeyDown
If e.KeyCode = Keys.V And e.Control Then
e.Handled = True
e.SuppressKeyPress = False
'//클립보드붙여넣기
Dim CB() As String = My.Computer.Clipboard.GetText.Split(CChar(vbCrLf))
If CB.GetUpperBound(0) <> 32 Then
MsgBox("붙여넣기가 호환되는 데이터가 아닙니다.", MsgBoxStyle.Information, "확인")
Return
End If
For ii As Integer = 0 To CType(CB(0).Split(CChar(vbTab)), String()).GetUpperBound(0)
If Me.bs.Count = 0 OrElse ii > 0 Then Me.bt_Add.PerformClick() '//한줄추가
Dim Cnt As Short = 0
For i As Integer = 0 To CB.GetUpperBound(0)
Select Case i
Case 0
CType(bs.Current, DataRowView)("설명") = CB(i).Split(CChar(vbTab))(ii).Trim
Case 0 + 5 '//사용프로필 앞에 두개를 숫자4자로변환
If CB(i).Split(CChar(vbTab))(ii).Trim = "" Then
Me.냉동기방식ComboBox.SelectedIndex = 0
Else
Me.냉동기방식ComboBox.Text = CB(i).Split(CChar(vbTab))(ii).Trim
End If
'Me.냉동기방식ComboBox.Text = CStr(IIf( CB(i).Split(CChar(vbTab))(ii).Trim = "", "0", CB(i).Split(CChar(vbTab))(ii).Trim))
Case 1 + 5
Me.냉동기용량NTb.Text = CB(i).Split(CChar(vbTab))(ii).Trim
Case 2 + 5
Me.열성능비NTb.Text = CB(i).Split(CChar(vbTab))(ii).Trim
Case 5 + 5
' Me.TabControl13.SelectedIndex = 1
If CB(i).Split(CChar(vbTab))(ii).Trim = "" Then
Me.냉동기종류ComboBox.SelectedIndex = 0
Else
Me.냉동기종류ComboBox.Text = CB(i).Split(CChar(vbTab))(ii).Trim
End If
'Me.냉동기종류ComboBox.Text = CStr(IIf( CB(i).Split(CChar(vbTab))(ii).Trim = "", "0", CB(i).Split(CChar(vbTab))(ii).Trim))
Case 7 + 5
If CB(i).Split(CChar(vbTab))(ii).Trim = "" Then
Me.냉동기압축방식ComboBox.SelectedIndex = 0
Else
Me.냉동기압축방식ComboBox.Text = CB(i).Split(CChar(vbTab))(ii).Trim
End If
'Me.냉동기압축방식ComboBox.Text = CStr(IIf( CB(i).Split(CChar(vbTab))(ii).Trim = "", "0", CB(i).Split(CChar(vbTab))(ii).Trim))
Case 13
If CB(i).Split(CChar(vbTab))(ii).Trim = "" Then
Me.압축기제어방식ComboBox.SelectedIndex = 0
Else
Me.압축기제어방식ComboBox.Text = CB(i).Split(CChar(vbTab))(ii).Trim
End If
'Me.압축기제어방식ComboBox.Text = CStr(IIf( CB(i).Split(CChar(vbTab))(ii).Trim = "", "0", CB(i).Split(CChar(vbTab))(ii).Trim))
Case 10 + 5
If CB(i).Split(CChar(vbTab))(ii).Trim = "" Then
Me.냉동기설비시스템ComboBox.SelectedIndex = 0
Else
Me.냉동기설비시스템ComboBox.Text = CB(i).Split(CChar(vbTab))(ii).Trim
End If
'Me.냉동기설비시스템ComboBox.Text = CStr(IIf( CB(i).Split(CChar(vbTab))(ii).Trim = "", "0", CB(i).Split(CChar(vbTab))(ii).Trim))
Case 11 + 5
If CB(i).Split(CChar(vbTab))(ii).Trim = "" Then
Me.제어방식ComboBox.SelectedIndex = 0
Else
Me.제어방식ComboBox.Text = CB(i).Split(CChar(vbTab))(ii).Trim
End If
'Me.제어방식ComboBox.Text = CStr(IIf( CB(i).Split(CChar(vbTab))(ii).Trim = "", "0", CB(i).Split(CChar(vbTab))(ii).Trim))
Case 14 + 5 '//열생산연결방식
If CB(i).Split(CChar(vbTab))(ii).Trim = "" Then
Me.cmb_열생산연결방식.SelectedIndex = 0
Else
Me.cmb_열생산연결방식.Text = CB(i).Split(CChar(vbTab))(ii).Trim
End If
Case 14 + 5 + 1 '//사용연로
If CB(i).Split(CChar(vbTab))(ii).Trim = "" Then
Me.cmb_사용연료.SelectedIndex = 0
Else
Me.cmb_사용연료.Text = CB(i).Split(CChar(vbTab))(ii).Trim
End If
Case 14 + 5 + 2
If CB(i).Split(CChar(vbTab))(ii).Trim = "" Then
Me.온수열생산기기ComboBox.SelectedIndex = 0
Else
Me.온수열생산기기ComboBox.Text = CB(i).Split(CChar(vbTab))(ii).Trim
End If
' Me.온수열생산기기ComboBox.Text = CStr(IIf( CB(i).Split(CChar(vbTab))(ii).Trim = "", "0", CB(i).Split(CChar(vbTab))(ii).Trim))
Case 24
' Me.TabControl13.SelectedIndex = 2
If CB(i).Split(CChar(vbTab))(ii).Trim = "" Then
Me.증발식건식냉각기ComboBox.SelectedIndex = 0
Else
Me.증발식건식냉각기ComboBox.Text = CB(i).Split(CChar(vbTab))(ii).Trim
End If
' Me.증발식건식냉각기ComboBox.Text = CStr(IIf( CB(i).Split(CChar(vbTab))(ii).Trim = "", "0", CB(i).Split(CChar(vbTab))(ii).Trim))
Case 25
If CB(i).Split(CChar(vbTab))(ii).Trim = "" Then
Me.증발식냉각기ComboBox.SelectedIndex = 0
Else
Me.증발식냉각기ComboBox.Text = CB(i).Split(CChar(vbTab))(ii).Trim
End If
'Me.증발식냉각기ComboBox.Text = CStr(IIf( CB(i).Split(CChar(vbTab))(ii).Trim = "", "0", CB(i).Split(CChar(vbTab))(ii).Trim))
Case 26
If CB(i).Split(CChar(vbTab))(ii).Trim = "" Then
Me.보조방음기유무ComboBox.SelectedIndex = 0
Else
Me.보조방음기유무ComboBox.Text = CB(i).Split(CChar(vbTab))(ii).Trim
End If
'Me.보조방음기유무ComboBox.Text = CStr(IIf( CB(i).Split(CChar(vbTab))(ii).Trim = "", "0", CB(i).Split(CChar(vbTab))(ii).Trim))
Case 27
Me.냉각수토출온도NTb.Text = CB(i).Split(CChar(vbTab))(ii).Trim
Case 30
If CB(i).Split(CChar(vbTab))(ii).Trim = "" Then
Me.신재생연결여부ComboBox1.SelectedIndex = 0
Else
Me.신재생연결여부ComboBox1.Text = CB(i).Split(CChar(vbTab))(ii).Trim
End If
'Me.신재생연결여부ComboBox1.Text = CStr(IIf( CB(i).Split(CChar(vbTab))(ii).Trim = "", "0", CB(i).Split(CChar(vbTab))(ii).Trim))
Case 31
If CB(i).Split(CChar(vbTab))(ii).Trim = "" Then
Me.cmb_신재생.SelectedIndex = 0
Else
Me.cmb_신재생.Text = CB(i).Split(CChar(vbTab))(ii).Trim
End If
'Me.연결된시스템ComboBox1.Text = CStr(IIf(CB(i).Trim = "", "0", CB(i).Trim))
End Select
Next
Next
Me.bs.EndEdit()
End If
End Sub
Private Sub Validate_Control()
If Not Init Then Return
'//오류 냉동기방식 오류
Try
Dim V As String = CStr(CType(Me.bs.Current, DataRowView)("설명"))
Select Case Me.냉동기방식ComboBox.SelectedValue.ToString.Trim
Case "압축식", "압축식(LNG)" '//압축식
'Select Case V
' Case "냉동기A", "냉동기B"
' 냉동기종류ComboBox.Enabled = True
' 냉동기압축방식ComboBox.Enabled = True
' 압축기제어방식ComboBox.Enabled = False
' 냉동기설비시스템ComboBox.Enabled = False
' 제어방식ComboBox.Enabled = False
' 온수열생산기기ComboBox.Enabled = False
' 증발식건식냉각기ComboBox.Enabled = False
' 증발식냉각기ComboBox.Enabled = False
' 보조방음기유무ComboBox.Enabled = False
' 냉각수토출온도NTb.Enabled = False
' Case "냉동기C"
' 냉동기종류ComboBox.Enabled = True
' 냉동기압축방식ComboBox.Enabled = True
' 압축기제어방식ComboBox.Enabled = False
' 냉동기설비시스템ComboBox.Enabled = False
' 제어방식ComboBox.Enabled = False
' 온수열생산기기ComboBox.Enabled = False
' 증발식건식냉각기ComboBox.Enabled = True
' 증발식냉각기ComboBox.Enabled = True
' 보조방음기유무ComboBox.Enabled = True
' 냉각수토출온도NTb.Enabled = True
'End Select
'//건기연 수정 2010.04.07
냉동기종류ComboBox.Enabled = True
냉동기압축방식ComboBox.Enabled = True
Case "흡수식" '//흡수식
'Select Case V
' Case "냉동기A", "냉동기C"
' 냉동기종류ComboBox.Enabled = False
' '냉동기종류Label.Enabled = False
' 냉동기압축방식ComboBox.Enabled = False
' 압축기제어방식ComboBox.Enabled = False
' 냉동기설비시스템ComboBox.Enabled = False
' 제어방식ComboBox.Enabled = False
' 온수열생산기기ComboBox.Enabled = True
' 증발식건식냉각기ComboBox.Enabled = True
' 증발식냉각기ComboBox.Enabled = True
' 보조방음기유무ComboBox.Enabled = True
' 냉각수토출온도NTb.Enabled = True
' Case "냉동기B"
' 냉동기종류ComboBox.Enabled = False
' 냉동기압축방식ComboBox.Enabled = False
' 압축기제어방식ComboBox.Enabled = False
' 냉동기설비시스템ComboBox.Enabled = False
' 제어방식ComboBox.Enabled = False
' 온수열생산기기ComboBox.Enabled = True
' 증발식건식냉각기ComboBox.Enabled = True
' 증발식냉각기ComboBox.Enabled = False
' 보조방음기유무ComboBox.Enabled = False
' 냉각수토출온도NTb.Enabled = True
'End Select
냉동기종류ComboBox.Enabled = False
냉동기압축방식ComboBox.Enabled = False
Case "지역냉방" '//지역냉방
'Select Case V
' Case "냉동기A", "냉동기B", "냉동기C"
' 냉동기종류ComboBox.Enabled = False
' 냉동기압축방식ComboBox.Enabled = False
' 압축기제어방식ComboBox.Enabled = False
' 냉동기설비시스템ComboBox.Enabled = False
' 제어방식ComboBox.Enabled = False
' 온수열생산기기ComboBox.Enabled = False
' 증발식건식냉각기ComboBox.Enabled = False
' 증발식냉각기ComboBox.Enabled = False
' 보조방음기유무ComboBox.Enabled = False
' 냉각수토출온도NTb.Enabled = False
'End Select
냉동기종류ComboBox.Enabled = False
냉동기압축방식ComboBox.Enabled = False
End Select
Catch ex As Exception
End Try
Try
If Me.냉동기압축방식ComboBox.Text = "왕복동/스크롤 압축기" Then
Me.압축기제어방식ComboBox.Enabled = True
Else
Me.압축기제어방식ComboBox.SelectedIndex = 0 '//없음으로 설정하고
Me.압축기제어방식ComboBox.Enabled = False
End If
Catch ex As Exception
End Try
Try
If Me.냉동기방식ComboBox.Text = "흡수식" Then
Me.cmb_열생산연결방식.Enabled = True
Me.압축기제어방식ComboBox.Enabled = False
Me.냉동기설비시스템ComboBox.Enabled = False
Me.제어방식ComboBox.Enabled = False
Try
If Me.cmb_열생산연결방식.Text = "직화식" Then
Me.cmb_사용연료.Enabled = True
Me.온수열생산기기ComboBox.Enabled = False
Else
If Me.cmb_열생산연결방식.Text = "외부연결" Then
Me.cmb_사용연료.Enabled = False
Me.온수열생산기기ComboBox.Enabled = True
Else
Me.cmb_사용연료.Enabled = False
Me.온수열생산기기ComboBox.Enabled = False
End If
End If
Catch ex As Exception
End Try
Me.재냉각기GroupBox.Enabled = True
Else
Me.cmb_열생산연결방식.Enabled = False
Me.cmb_사용연료.Enabled = False
Me.온수열생산기기ComboBox.Enabled = False
If Me.냉동기방식ComboBox.Text = "압축식" Or Me.냉동기방식ComboBox.Text = "압축식(LNG)" Then
Select Case Me.냉동기종류ComboBox.Text
Case "수냉식"
Me.재냉각기GroupBox.Enabled = True
Me.냉동기압축방식ComboBox.Enabled = True
Me.냉동기설비시스템ComboBox.Enabled = False
Me.제어방식ComboBox.Enabled = False
Case "공냉식"
Me.재냉각기GroupBox.Enabled = False
Me.냉동기압축방식ComboBox.Enabled = True
Me.냉동기설비시스템ComboBox.Enabled = False
Me.제어방식ComboBox.Enabled = False
Case "실내공조시스템"
Me.냉동기압축방식ComboBox.Enabled = False
Me.냉동기설비시스템ComboBox.Enabled = True
Me.제어방식ComboBox.Enabled = True
Me.압축기제어방식ComboBox.Enabled = False
Me.재냉각기GroupBox.Enabled = False
Case Else
End Select
Else
Me.냉동기압축방식ComboBox.Enabled = False
Me.냉동기설비시스템ComboBox.Enabled = False
Me.제어방식ComboBox.Enabled = False
Me.압축기제어방식ComboBox.Enabled = False
Me.재냉각기GroupBox.Enabled = False
End If
End If
Catch ex As Exception
End Try
Me.bs.EndEdit()
End Sub
Private Sub bs_CurrentChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bs.CurrentChanged
If Not Init Then Return
Dim drv As DataRowView = Me.bs.Current
If drv Is Nothing Then Return
Me.lb_code.Text = "[" + drv("code").ToString + "]"
If Drv Is Nothing Then Return
Dim DR() As DS.tbl_zoneRow = DSET1.tbl_zone.Select("열생산냉방생산기기='" & Drv("code").ToString & "' or 공조냉방생산기기='" & Drv("code").ToString & "'") '//2010.12.02 수정
Dim cnt As Integer = 0
For Each drow As DS.tbl_zoneRow In DR
Dim 입력존수문자 As Integer = drow.입력존의수
If IsNumeric(입력존수문자) = False Then 입력존수문자 = "1"
cnt += CInt(입력존수문자)
Next
Me.tb_zone_cnt.Text = cnt.ToString()
Me.bs.EndEdit()
End Sub
Private Sub 냉동기방식ComboBox_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 냉동기방식ComboBox.SelectedIndexChanged
Validate_Control()
End Sub
Private Sub 냉동기압축방식ComboBox_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 냉동기압축방식ComboBox.SelectedIndexChanged
Validate_Control()
End Sub
Private Sub bt_Del_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles bt_Del.MouseDown
If e.Button = Windows.Forms.MouseButtons.Right Then
If MsgBox("전체삭제를 하시겠습니까?", MsgBoxStyle.Information Or MsgBoxStyle.OkCancel, "확인") = MsgBoxResult.Ok Then
Dim dR() As DataRow = DSET1.tbl_nangbangkiki.Select(Me.bs.Filter, "")
For i As Integer = dR.GetUpperBound(0) To 0 Step -1
dR(i).Delete()
Next
DSET1.tbl_nangbangkiki.AcceptChanges()
End If
End If
End Sub
Private Sub SplitContainer1_Panel2_Paint(ByVal sender As System.Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles SplitContainer1.Panel2.Paint
End Sub
Private Sub 냉동기종류ComboBox_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 냉동기종류ComboBox.SelectedIndexChanged
Validate_Control()
End Sub
Private Sub cmb_열생산연결방식_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles cmb_열생산연결방식.SelectedIndexChanged
Validate_Control()
End Sub
Private Sub dv_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles dv.MouseUp
If Prj.UserAuthType = "ADMIN" OrElse Prj.UserAuthType = "BOTH" OrElse Prj.UserAuthType = "BOTH2" OrElse Prj.UserAuthType = "BOTH1" Then '//2011.03.08 추가
If e.Button = Windows.Forms.MouseButtons.Right Then
Dim Frm_FilterA As New Frm_Filter
Frm_FilterA.ColumTitle = getColCaption(Me.Dt)
Frm_FilterA.ColumList = getColName(Me.Dt)
Frm_FilterA.Colorlist = "온수열생산기기,연결된시스템"
Frm_FilterA.Numfield = "" '//20100618 Color 리스트처럼 , 구분해서 필드들을 모두 넣으세요.(=, >= 등을 사용하기 위해서는 해당 항목을 추가 요망)
Frm_FilterA.Default_Filter = "code <> '0'"
If Frm_FilterA.ShowDialog <> Windows.Forms.DialogResult.OK Then Return '//창떳을떄 확인아ㅣ고 취소눌르면 다음을 수행하지않는다는거에요.
Dim Filter As String = Frm_FilterA.tb_filter.Text '//값은 아까 그 텍박에 잇구요.
Try
Me.bs.Filter = Filter
'//바꾸기값이 있으면 변경 20100618
If Frm_FilterA.cmb_fieldc.SelectedIndex >= 0 AndAlso Frm_FilterA.cmb_fieldc.Text.ToLower <> "code" AndAlso _
Frm_FilterA.tb_valuec.Text <> "" Then
Dim Drow() As DataRow = Me.Dt.Select(Filter)
For Each Dr As DataRow In Drow
Dr(Frm_FilterA.cmb_fieldc.Text) = Frm_FilterA.tb_valuec.Text
Next
MsgBox("바꾸기 완료", MsgBoxStyle.Information, "확인")
End If
Catch ex As Exception
Me.bs.Filter = ""
End Try
End If
End If
End Sub
Private Sub dv_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles dv.KeyDown
'//여기보시면 alt+d 누르면 한줄을 경고없이(falsE)삭제하도록 햇어요.. 사실원래 밋alt +d 인데.. ㅎㅎ 잘못해서 ctrl 됫다는
If Prj.UserAuthType = "ADMIN" OrElse Prj.UserAuthType = "BOTH" OrElse Prj.UserAuthType = "BOTH2" OrElse Prj.UserAuthType = "BOTH1" Then '//2011.03.08 추가
Select Case e.KeyCode
Case Keys.D
If e.Alt Then
Dbbase.DelCrow(Me.bs, False)
End If
Case Keys.C
If e.Control Then
Me.SrcDrv = Me.bs.Current
If Me.SrcDrv Is Nothing Then
MsgBox("저장할 ROW가 없습니다", MsgBoxStyle.Information, "확인")
Return
End If
' My.Computer.Clipboard.SetData("ZDATA", Drv)
End If
Case Keys.V
If e.Control Then
If Me.SrcDrv Is Nothing Then Return
Me.bt_add.PerformClick() '//신규추가
Dim NewDrv As DataRowView = Me.bs.Current
For Each C As DataColumn In Me.Dt.Columns
If C.ColumnName.ToUpper = "CODE" Then
ElseIf C.ColumnName.ToUpper = "설명" Then
NewDrv(C.ColumnName) = SrcDrv(C.ColumnName) & "#1"
Else
NewDrv(C.ColumnName) = SrcDrv(C.ColumnName)
End If
Next
Me.bs.EndEdit()
bs.MoveLast()
End If
End Select
End If
End Sub
Private Sub dv_CellContentClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles dv.CellContentClick
End Sub
Private Sub chk_헤더적용_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles chk_헤더적용.CheckedChanged
If Me.chk_헤더적용.Checked = True AndAlso Me.chk_개별기기적용.Checked = True Then
MsgBox("개별기기와 헤더가 모두 체크되었습니다. 둘 중 하나만 체크하시기 바랍니다.", MsgBoxStyle.Information, "확인")
End If
End Sub
Private Sub chk_개별기기적용_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles chk_개별기기적용.CheckedChanged
If Me.chk_개별기기적용.Checked = True AndAlso Me.chk_헤더적용.Checked = True Then
MsgBox("개별기기와 헤더가 모두 체크되었습니다. 둘 중 하나만 체크하시기 바랍니다.", MsgBoxStyle.Information, "확인")
End If
End Sub
End Class

1896
ArinWarev1/Forms_Input/Frm_Nanbang.Designer.vb generated Normal file
View File

File diff suppressed because it is too large Load Diff

896
ArinWarev1/Forms_Input/Frm_Nanbang.resx Normal file
View File

@@ -0,0 +1,896 @@
<?xml version="1.0" encoding="utf-8"?>
<root>
<!--
Microsoft ResX Schema
Version 2.0
The primary goals of this format is to allow a simple XML format
that is mostly human readable. The generation and parsing of the
various data types are done through the TypeConverter classes
associated with the data types.
Example:
... ado.net/XML headers & schema ...
<resheader name="resmimetype">text/microsoft-resx</resheader>
<resheader name="version">2.0</resheader>
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
<data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
<value>[base64 mime encoded serialized .NET Framework object]</value>
</data>
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
<comment>This is a comment</comment>
</data>
There are any number of "resheader" rows that contain simple
name/value pairs.
Each data row contains a name, and value. The row also contains a
type or mimetype. Type corresponds to a .NET class that support
text/value conversion through the TypeConverter architecture.
Classes that don't support this are serialized and stored with the
mimetype set.
The mimetype is used for serialized objects, and tells the
ResXResourceReader how to depersist the object. This is currently not
extensible. For a given mimetype the value must be set accordingly:
Note - application/x-microsoft.net.object.binary.base64 is the format
that the ResXResourceWriter will generate, however the reader can
read any of the formats listed below.
mimetype: application/x-microsoft.net.object.binary.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.soap.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.bytearray.base64
value : The object must be serialized into a byte array
: using a System.ComponentModel.TypeConverter
: and then encoded with base64 encoding.
-->
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
<xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
<xsd:element name="root" msdata:IsDataSet="true">
<xsd:complexType>
<xsd:choice maxOccurs="unbounded">
<xsd:element name="metadata">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" />
</xsd:sequence>
<xsd:attribute name="name" use="required" type="xsd:string" />
<xsd:attribute name="type" type="xsd:string" />
<xsd:attribute name="mimetype" type="xsd:string" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="assembly">
<xsd:complexType>
<xsd:attribute name="alias" type="xsd:string" />
<xsd:attribute name="name" type="xsd:string" />
</xsd:complexType>
</xsd:element>
<xsd:element name="data">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="resheader">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" />
</xsd:complexType>
</xsd:element>
</xsd:choice>
</xsd:complexType>
</xsd:element>
</xsd:schema>
<resheader name="resmimetype">
<value>text/microsoft-resx</value>
</resheader>
<resheader name="version">
<value>2.0</value>
</resheader>
<resheader name="reader">
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<resheader name="writer">
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<metadata name="Label165.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</metadata>
<metadata name="Label166.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</metadata>
<metadata name="Label181.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</metadata>
<metadata name="Label185.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</metadata>
<metadata name="Label186.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</metadata>
<metadata name="Label188.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</metadata>
<metadata name="Label184.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</metadata>
<metadata name="Label190.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</metadata>
<metadata name="Label193.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</metadata>
<metadata name="Label192.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</metadata>
<metadata name="Label194.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</metadata>
<metadata name="Label195.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</metadata>
<metadata name="Label196.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="Label3.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="Label5.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="Label7.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="Label10.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="Label13.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="Label15.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="Label17.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="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">
<value>False</value>
</metadata>
<metadata name="Label27.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">
<value>False</value>
</metadata>
<metadata name="bs.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 17</value>
</metadata>
<metadata name="DS.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>256, 17</value>
</metadata>
<metadata name="bn.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>81, 17</value>
</metadata>
<assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
<data name="PictureBox6.BackgroundImage" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
/9j/4AAQSkZJRgABAgEASABIAAD/7gAOQWRvYmUAZAAAAAAB/+ED5kV4aWYAAE1NACoAAAAIAAcBEgAD
AAAAAQABAAABGgAFAAAAAQAAAGIBGwAFAAAAAQAAAGoBKAADAAAAAQACAAABMQACAAAAHAAAAHIBMgAC
AAAAFAAAAI6HaQAEAAAAAQAAAKIAAADCAEgAAAABAAAASAAAAAEAAEFkb2JlIFBob3Rvc2hvcCBDUzMg
V2luZG93cwAyMDEwOjA0OjE1IDIwOjMyOjA0AAACoAIABAAAAAEAAAA8oAMABAAAAAEAAAAMAAAAAAAA
AAYBAwADAAAAAQAGAAABGgAFAAAAAQAAARABGwAFAAAAAQAAARgBKAADAAAAAQACAAACAQAEAAAAAQAA
ASACAgAEAAAAAQAAAr4AAAAAAAAASAAAAAEAAABIAAAAAf/Y/+AAEEpGSUYAAQIAAEgASAAA/+0ADEFk
b2JlX0NNAAH/7gAOQWRvYmUAZIAAAAAB/9sAhAAMCAgICQgMCQkMEQsKCxEVDwwMDxUYExMVExMYEQwM
DAwMDBEMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMAQ0LCw0ODRAODhAUDg4OFBQODg4OFBEMDAwM
DBERDAwMDAwMEQwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAz/wAARCAAMADwDASIAAhEBAxEB/90A
BAAE/8QBPwAAAQUBAQEBAQEAAAAAAAAAAwABAgQFBgcICQoLAQABBQEBAQEBAQAAAAAAAAABAAIDBAUG
BwgJCgsQAAEEAQMCBAIFBwYIBQMMMwEAAhEDBCESMQVBUWETInGBMgYUkaGxQiMkFVLBYjM0coLRQwcl
klPw4fFjczUWorKDJkSTVGRFwqN0NhfSVeJl8rOEw9N14/NGJ5SkhbSVxNTk9KW1xdXl9VZmdoaWprbG
1ub2N0dXZ3eHl6e3x9fn9xEAAgIBAgQEAwQFBgcHBgU1AQACEQMhMRIEQVFhcSITBTKBkRShsUIjwVLR
8DMkYuFygpJDUxVjczTxJQYWorKDByY1wtJEk1SjF2RFVTZ0ZeLys4TD03Xj80aUpIW0lcTU5PSltcXV
5fVWZnaGlqa2xtbm9ic3R1dnd4eXp7fH/9oADAMBAAIRAxEAPwDd/amR/pH/AOcf70v2pkf6R/8AnH+9
UUlofq/Bpevxb37UyP8ASP8A84/3pftTI/0j/wDOP96opJfq/BXr8W9+1Mj/AEj/APOP96X7UyP9I/8A
zj/eqKSX6vwV6/F3ujdbuGS2i5xfU8HVxktIG76XyW99vo27p0XGdO2/ba930dZj+q5dX+qfZPL8VAeD
341VVr/eZhx+0bu708n/2f/iDFhJQ0NfUFJPRklMRQABAQAADEhMaW5vAhAAAG1udHJSR0IgWFlaIAfO
AAIACQAGADEAAGFjc3BNU0ZUAAAAAElFQyBzUkdCAAAAAAAAAAAAAAAAAAD21gABAAAAANMtSFAgIAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAEWNwcnQAAAFQAAAAM2Rl
c2MAAAGEAAAAbHd0cHQAAAHwAAAAFGJrcHQAAAIEAAAAFHJYWVoAAAIYAAAAFGdYWVoAAAIsAAAAFGJY
WVoAAAJAAAAAFGRtbmQAAAJUAAAAcGRtZGQAAALEAAAAiHZ1ZWQAAANMAAAAhnZpZXcAAAPUAAAAJGx1
bWkAAAP4AAAAFG1lYXMAAAQMAAAAJHRlY2gAAAQwAAAADHJUUkMAAAQ8AAAIDGdUUkMAAAQ8AAAIDGJU
UkMAAAQ8AAAIDHRleHQAAAAAQ29weXJpZ2h0IChjKSAxOTk4IEhld2xldHQtUGFja2FyZCBDb21wYW55
AABkZXNjAAAAAAAAABJzUkdCIElFQzYxOTY2LTIuMQAAAAAAAAAAAAAAEnNSR0IgSUVDNjE5NjYtMi4x
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABYWVogAAAAAAAA
81EAAQAAAAEWzFhZWiAAAAAAAAAAAAAAAAAAAAAAWFlaIAAAAAAAAG+iAAA49QAAA5BYWVogAAAAAAAA
YpkAALeFAAAY2lhZWiAAAAAAAAAkoAAAD4QAALbPZGVzYwAAAAAAAAAWSUVDIGh0dHA6Ly93d3cuaWVj
LmNoAAAAAAAAAAAAAAAWSUVDIGh0dHA6Ly93d3cuaWVjLmNoAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAGRlc2MAAAAAAAAALklFQyA2MTk2Ni0yLjEgRGVmYXVsdCBSR0Ig
Y29sb3VyIHNwYWNlIC0gc1JHQgAAAAAAAAAAAAAALklFQyA2MTk2Ni0yLjEgRGVmYXVsdCBSR0IgY29s
b3VyIHNwYWNlIC0gc1JHQgAAAAAAAAAAAAAAAAAAAAAAAAAAAABkZXNjAAAAAAAAACxSZWZlcmVuY2Ug
Vmlld2luZyBDb25kaXRpb24gaW4gSUVDNjE5NjYtMi4xAAAAAAAAAAAAAAAsUmVmZXJlbmNlIFZpZXdp
bmcgQ29uZGl0aW9uIGluIElFQzYxOTY2LTIuMQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAdmlldwAA
AAAAE6T+ABRfLgAQzxQAA+3MAAQTCwADXJ4AAAABWFlaIAAAAAAATAlWAFAAAABXH+dtZWFzAAAAAAAA
AAEAAAAAAAAAAAAAAAAAAAAAAAACjwAAAAJzaWcgAAAAAENSVCBjdXJ2AAAAAAAABAAAAAAFAAoADwAU
ABkAHgAjACgALQAyADcAOwBAAEUASgBPAFQAWQBeAGMAaABtAHIAdwB8AIEAhgCLAJAAlQCaAJ8ApACp
AK4AsgC3ALwAwQDGAMsA0ADVANsA4ADlAOsA8AD2APsBAQEHAQ0BEwEZAR8BJQErATIBOAE+AUUBTAFS
AVkBYAFnAW4BdQF8AYMBiwGSAZoBoQGpAbEBuQHBAckB0QHZAeEB6QHyAfoCAwIMAhQCHQImAi8COAJB
AksCVAJdAmcCcQJ6AoQCjgKYAqICrAK2AsECywLVAuAC6wL1AwADCwMWAyEDLQM4A0MDTwNaA2YDcgN+
A4oDlgOiA64DugPHA9MD4APsA/kEBgQTBCAELQQ7BEgEVQRjBHEEfgSMBJoEqAS2BMQE0wThBPAE/gUN
BRwFKwU6BUkFWAVnBXcFhgWWBaYFtQXFBdUF5QX2BgYGFgYnBjcGSAZZBmoGewaMBp0GrwbABtEG4wb1
BwcHGQcrBz0HTwdhB3QHhgeZB6wHvwfSB+UH+AgLCB8IMghGCFoIbgiCCJYIqgi+CNII5wj7CRAJJQk6
CU8JZAl5CY8JpAm6Cc8J5Qn7ChEKJwo9ClQKagqBCpgKrgrFCtwK8wsLCyILOQtRC2kLgAuYC7ALyAvh
C/kMEgwqDEMMXAx1DI4MpwzADNkM8w0NDSYNQA1aDXQNjg2pDcMN3g34DhMOLg5JDmQOfw6bDrYO0g7u
DwkPJQ9BD14Peg+WD7MPzw/sEAkQJhBDEGEQfhCbELkQ1xD1ERMRMRFPEW0RjBGqEckR6BIHEiYSRRJk
EoQSoxLDEuMTAxMjE0MTYxODE6QTxRPlFAYUJxRJFGoUixStFM4U8BUSFTQVVhV4FZsVvRXgFgMWJhZJ
FmwWjxayFtYW+hcdF0EXZReJF64X0hf3GBsYQBhlGIoYrxjVGPoZIBlFGWsZkRm3Gd0aBBoqGlEadxqe
GsUa7BsUGzsbYxuKG7Ib2hwCHCocUhx7HKMczBz1HR4dRx1wHZkdwx3sHhYeQB5qHpQevh7pHxMfPh9p
H5Qfvx/qIBUgQSBsIJggxCDwIRwhSCF1IaEhziH7IiciVSKCIq8i3SMKIzgjZiOUI8Ij8CQfJE0kfCSr
JNolCSU4JWgllyXHJfcmJyZXJocmtyboJxgnSSd6J6sn3CgNKD8ocSiiKNQpBik4KWspnSnQKgIqNSpo
KpsqzysCKzYraSudK9EsBSw5LG4soizXLQwtQS12Last4S4WLkwugi63Lu4vJC9aL5Evxy/+MDUwbDCk
MNsxEjFKMYIxujHyMioyYzKbMtQzDTNGM38zuDPxNCs0ZTSeNNg1EzVNNYc1wjX9Njc2cjauNuk3JDdg
N5w31zgUOFA4jDjIOQU5Qjl/Obw5+To2OnQ6sjrvOy07azuqO+g8JzxlPKQ84z0iPWE9oT3gPiA+YD6g
PuA/IT9hP6I/4kAjQGRApkDnQSlBakGsQe5CMEJyQrVC90M6Q31DwEQDREdEikTORRJFVUWaRd5GIkZn
RqtG8Ec1R3tHwEgFSEtIkUjXSR1JY0mpSfBKN0p9SsRLDEtTS5pL4kwqTHJMuk0CTUpNk03cTiVObk63
TwBPSU+TT91QJ1BxULtRBlFQUZtR5lIxUnxSx1MTU19TqlP2VEJUj1TbVShVdVXCVg9WXFapVvdXRFeS
V+BYL1h9WMtZGllpWbhaB1pWWqZa9VtFW5Vb5Vw1XIZc1l0nXXhdyV4aXmxevV8PX2Ffs2AFYFdgqmD8
YU9homH1YklinGLwY0Njl2PrZEBklGTpZT1lkmXnZj1mkmboZz1nk2fpaD9olmjsaUNpmmnxakhqn2r3
a09rp2v/bFdsr20IbWBtuW4SbmtuxG8eb3hv0XArcIZw4HE6cZVx8HJLcqZzAXNdc7h0FHRwdMx1KHWF
deF2Pnabdvh3VnezeBF4bnjMeSp5iXnnekZ6pXsEe2N7wnwhfIF84X1BfaF+AX5ifsJ/I3+Ef+WAR4Co
gQqBa4HNgjCCkoL0g1eDuoQdhICE44VHhauGDoZyhteHO4efiASIaYjOiTOJmYn+imSKyoswi5aL/Ixj
jMqNMY2Yjf+OZo7OjzaPnpAGkG6Q1pE/kaiSEZJ6kuOTTZO2lCCUipT0lV+VyZY0lp+XCpd1l+CYTJi4
mSSZkJn8mmia1ZtCm6+cHJyJnPedZJ3SnkCerp8dn4uf+qBpoNihR6G2oiailqMGo3aj5qRWpMelOKWp
phqmi6b9p26n4KhSqMSpN6mpqhyqj6sCq3Wr6axcrNCtRK24ri2uoa8Wr4uwALB1sOqxYLHWskuywrM4
s660JbSctRO1irYBtnm28Ldot+C4WbjRuUq5wro7urW7LrunvCG8m70VvY++Cr6Evv+/er/1wHDA7MFn
wePCX8Lbw1jD1MRRxM7FS8XIxkbGw8dBx7/IPci8yTrJuco4yrfLNsu2zDXMtc01zbXONs62zzfPuNA5
0LrRPNG+0j/SwdNE08bUSdTL1U7V0dZV1tjXXNfg2GTY6Nls2fHadtr724DcBdyK3RDdlt4c3qLfKd+v
4DbgveFE4cziU+Lb42Pj6+Rz5PzlhOYN5pbnH+ep6DLovOlG6dDqW+rl63Dr++yG7RHtnO4o7rTvQO/M
8Fjw5fFy8f/yjPMZ86f0NPTC9VD13vZt9vv3ivgZ+Kj5OPnH+lf65/t3/Af8mP0p/br+S/7c/23////b
AEMAAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQICAgICAgICAgICAwMD
AwMDAwMDA//bAEMBAQEBAQEBAQEBAQICAQICAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMD
AwMDAwMDAwMDAwMDAwMDA//AABEIAAwAPAMBEQACEQEDEQH/xAAfAAABBQEBAQEBAQAAAAAAAAAAAQID
BAUGBwgJCgv/xAC1EAACAQMDAgQDBQUEBAAAAX0BAgMABBEFEiExQQYTUWEHInEUMoGRoQgjQrHBFVLR
8CQzYnKCCQoWFxgZGiUmJygpKjQ1Njc4OTpDREVGR0hJSlNUVVZXWFlaY2RlZmdoaWpzdHV2d3h5eoOE
hYaHiImKkpOUlZaXmJmaoqOkpaanqKmqsrO0tba3uLm6wsPExcbHyMnK0tPU1dbX2Nna4eLj5OXm5+jp
6vHy8/T19vf4+fr/xAAfAQADAQEBAQEBAQEBAAAAAAAAAQIDBAUGBwgJCgv/xAC1EQACAQIEBAMEBwUE
BAABAncAAQIDEQQFITEGEkFRB2FxEyIygQgUQpGhscEJIzNS8BVictEKFiQ04SXxFxgZGiYnKCkqNTY3
ODk6Q0RFRkdISUpTVFVWV1hZWmNkZWZnaGlqc3R1dnd4eXqCg4SFhoeIiYqSk5SVlpeYmZqio6Slpqeo
qaqys7S1tre4ubrCw8TFxsfIycrS09TV1tfY2dri4+Tl5ufo6ery8/T19vf4+fr/2gAMAwEAAhEDEQA/
AP1ZH7UPxEAA/wCEw8bnj/ob9f8A/k+v7U/1Nyj/AKF+G/8ABUP/AJE/llcSZlZf7dX/APBk/wDMX/hq
H4if9Df43/8ACv1//wCT6P8AU3Kf+hfhv/BUP/kQ/wBZcy/6Dq//AIMn/mH/AA1D8RP+hv8AG/8A4V+v
/wDyfR/qblP/AEL8N/4Kh/8AIh/rLmX/AEHV/wDwZP8AzD/hqH4if9Df43/8K/X/AP5Po/1Nyn/oX4b/
AMFQ/wDkQ/1lzL/oOr/+DJ/5h/w1D8RP+hv8b/8AhX6//wDJ9H+puU/9C/Df+Cof/Ih/rLmX/QdX/wDB
k/8AMT/hqH4if9Df43/8K/X/AP5Po/1Nyn/oX4b/AMFQ/wDkQ/1kzL/oOr/+DJ/5n2R+xz+234zt/iRp
nw+8a6vqXiDwZ4gs9baObXr+bUr/AMPajpmkX2tQ3FlqV2Zb57K7XT2t3tXkaJWkV4whVxJ+beJfAuU4
Th/FZ/hKEKOMw8qd+SKjGcZzjTs4q0bpyUlJK7s073VvuuBOLMxxGcYfJ8TWlVw1ZTtzu7hKMJTupPWz
UWnFu2qatrf9aP8AhfXgv+zv7U89/sfm+V5207N+M43fSv50P2w/kwr/AEFP42CgAoAKACgAoA9s/Z0/
s7/hcng3+1vP/s7Ov/avs2PP2f8ACL63t2buP9ZjP+zmvz7xU/5IPPf+4H/qRRPsvD//AJK7KP8AuL/6
ZqH7/wD/ABaT/hUfb7Ht/wBj7V9p8v8A9Cr+Oz+lz//Z
</value>
</data>
<data name="PictureBox15.BackgroundImage" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
/9j/4AAQSkZJRgABAgEASABIAAD/7gAOQWRvYmUAZAAAAAAB/+ED5kV4aWYAAE1NACoAAAAIAAcBEgAD
AAAAAQABAAABGgAFAAAAAQAAAGIBGwAFAAAAAQAAAGoBKAADAAAAAQACAAABMQACAAAAHAAAAHIBMgAC
AAAAFAAAAI6HaQAEAAAAAQAAAKIAAADCAEgAAAABAAAASAAAAAEAAEFkb2JlIFBob3Rvc2hvcCBDUzMg
V2luZG93cwAyMDEwOjA0OjE1IDIwOjMyOjA0AAACoAIABAAAAAEAAAA8oAMABAAAAAEAAAAMAAAAAAAA
AAYBAwADAAAAAQAGAAABGgAFAAAAAQAAARABGwAFAAAAAQAAARgBKAADAAAAAQACAAACAQAEAAAAAQAA
ASACAgAEAAAAAQAAAr4AAAAAAAAASAAAAAEAAABIAAAAAf/Y/+AAEEpGSUYAAQIAAEgASAAA/+0ADEFk
b2JlX0NNAAH/7gAOQWRvYmUAZIAAAAAB/9sAhAAMCAgICQgMCQkMEQsKCxEVDwwMDxUYExMVExMYEQwM
DAwMDBEMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMAQ0LCw0ODRAODhAUDg4OFBQODg4OFBEMDAwM
DBERDAwMDAwMEQwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAz/wAARCAAMADwDASIAAhEBAxEB/90A
BAAE/8QBPwAAAQUBAQEBAQEAAAAAAAAAAwABAgQFBgcICQoLAQABBQEBAQEBAQAAAAAAAAABAAIDBAUG
BwgJCgsQAAEEAQMCBAIFBwYIBQMMMwEAAhEDBCESMQVBUWETInGBMgYUkaGxQiMkFVLBYjM0coLRQwcl
klPw4fFjczUWorKDJkSTVGRFwqN0NhfSVeJl8rOEw9N14/NGJ5SkhbSVxNTk9KW1xdXl9VZmdoaWprbG
1ub2N0dXZ3eHl6e3x9fn9xEAAgIBAgQEAwQFBgcHBgU1AQACEQMhMRIEQVFhcSITBTKBkRShsUIjwVLR
8DMkYuFygpJDUxVjczTxJQYWorKDByY1wtJEk1SjF2RFVTZ0ZeLys4TD03Xj80aUpIW0lcTU5PSltcXV
5fVWZnaGlqa2xtbm9ic3R1dnd4eXp7fH/9oADAMBAAIRAxEAPwDd/amR/pH/AOcf70v2pkf6R/8AnH+9
UUlofq/Bpevxb37UyP8ASP8A84/3pftTI/0j/wDOP96opJfq/BXr8W9+1Mj/AEj/APOP96X7UyP9I/8A
zj/eqKSX6vwV6/F3ujdbuGS2i5xfU8HVxktIG76XyW99vo27p0XGdO2/ba930dZj+q5dX+qfZPL8VAeD
341VVr/eZhx+0bu708n/2f/iDFhJQ0NfUFJPRklMRQABAQAADEhMaW5vAhAAAG1udHJSR0IgWFlaIAfO
AAIACQAGADEAAGFjc3BNU0ZUAAAAAElFQyBzUkdCAAAAAAAAAAAAAAAAAAD21gABAAAAANMtSFAgIAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAEWNwcnQAAAFQAAAAM2Rl
c2MAAAGEAAAAbHd0cHQAAAHwAAAAFGJrcHQAAAIEAAAAFHJYWVoAAAIYAAAAFGdYWVoAAAIsAAAAFGJY
WVoAAAJAAAAAFGRtbmQAAAJUAAAAcGRtZGQAAALEAAAAiHZ1ZWQAAANMAAAAhnZpZXcAAAPUAAAAJGx1
bWkAAAP4AAAAFG1lYXMAAAQMAAAAJHRlY2gAAAQwAAAADHJUUkMAAAQ8AAAIDGdUUkMAAAQ8AAAIDGJU
UkMAAAQ8AAAIDHRleHQAAAAAQ29weXJpZ2h0IChjKSAxOTk4IEhld2xldHQtUGFja2FyZCBDb21wYW55
AABkZXNjAAAAAAAAABJzUkdCIElFQzYxOTY2LTIuMQAAAAAAAAAAAAAAEnNSR0IgSUVDNjE5NjYtMi4x
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABYWVogAAAAAAAA
81EAAQAAAAEWzFhZWiAAAAAAAAAAAAAAAAAAAAAAWFlaIAAAAAAAAG+iAAA49QAAA5BYWVogAAAAAAAA
YpkAALeFAAAY2lhZWiAAAAAAAAAkoAAAD4QAALbPZGVzYwAAAAAAAAAWSUVDIGh0dHA6Ly93d3cuaWVj
LmNoAAAAAAAAAAAAAAAWSUVDIGh0dHA6Ly93d3cuaWVjLmNoAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAGRlc2MAAAAAAAAALklFQyA2MTk2Ni0yLjEgRGVmYXVsdCBSR0Ig
Y29sb3VyIHNwYWNlIC0gc1JHQgAAAAAAAAAAAAAALklFQyA2MTk2Ni0yLjEgRGVmYXVsdCBSR0IgY29s
b3VyIHNwYWNlIC0gc1JHQgAAAAAAAAAAAAAAAAAAAAAAAAAAAABkZXNjAAAAAAAAACxSZWZlcmVuY2Ug
Vmlld2luZyBDb25kaXRpb24gaW4gSUVDNjE5NjYtMi4xAAAAAAAAAAAAAAAsUmVmZXJlbmNlIFZpZXdp
bmcgQ29uZGl0aW9uIGluIElFQzYxOTY2LTIuMQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAdmlldwAA
AAAAE6T+ABRfLgAQzxQAA+3MAAQTCwADXJ4AAAABWFlaIAAAAAAATAlWAFAAAABXH+dtZWFzAAAAAAAA
AAEAAAAAAAAAAAAAAAAAAAAAAAACjwAAAAJzaWcgAAAAAENSVCBjdXJ2AAAAAAAABAAAAAAFAAoADwAU
ABkAHgAjACgALQAyADcAOwBAAEUASgBPAFQAWQBeAGMAaABtAHIAdwB8AIEAhgCLAJAAlQCaAJ8ApACp
AK4AsgC3ALwAwQDGAMsA0ADVANsA4ADlAOsA8AD2APsBAQEHAQ0BEwEZAR8BJQErATIBOAE+AUUBTAFS
AVkBYAFnAW4BdQF8AYMBiwGSAZoBoQGpAbEBuQHBAckB0QHZAeEB6QHyAfoCAwIMAhQCHQImAi8COAJB
AksCVAJdAmcCcQJ6AoQCjgKYAqICrAK2AsECywLVAuAC6wL1AwADCwMWAyEDLQM4A0MDTwNaA2YDcgN+
A4oDlgOiA64DugPHA9MD4APsA/kEBgQTBCAELQQ7BEgEVQRjBHEEfgSMBJoEqAS2BMQE0wThBPAE/gUN
BRwFKwU6BUkFWAVnBXcFhgWWBaYFtQXFBdUF5QX2BgYGFgYnBjcGSAZZBmoGewaMBp0GrwbABtEG4wb1
BwcHGQcrBz0HTwdhB3QHhgeZB6wHvwfSB+UH+AgLCB8IMghGCFoIbgiCCJYIqgi+CNII5wj7CRAJJQk6
CU8JZAl5CY8JpAm6Cc8J5Qn7ChEKJwo9ClQKagqBCpgKrgrFCtwK8wsLCyILOQtRC2kLgAuYC7ALyAvh
C/kMEgwqDEMMXAx1DI4MpwzADNkM8w0NDSYNQA1aDXQNjg2pDcMN3g34DhMOLg5JDmQOfw6bDrYO0g7u
DwkPJQ9BD14Peg+WD7MPzw/sEAkQJhBDEGEQfhCbELkQ1xD1ERMRMRFPEW0RjBGqEckR6BIHEiYSRRJk
EoQSoxLDEuMTAxMjE0MTYxODE6QTxRPlFAYUJxRJFGoUixStFM4U8BUSFTQVVhV4FZsVvRXgFgMWJhZJ
FmwWjxayFtYW+hcdF0EXZReJF64X0hf3GBsYQBhlGIoYrxjVGPoZIBlFGWsZkRm3Gd0aBBoqGlEadxqe
GsUa7BsUGzsbYxuKG7Ib2hwCHCocUhx7HKMczBz1HR4dRx1wHZkdwx3sHhYeQB5qHpQevh7pHxMfPh9p
H5Qfvx/qIBUgQSBsIJggxCDwIRwhSCF1IaEhziH7IiciVSKCIq8i3SMKIzgjZiOUI8Ij8CQfJE0kfCSr
JNolCSU4JWgllyXHJfcmJyZXJocmtyboJxgnSSd6J6sn3CgNKD8ocSiiKNQpBik4KWspnSnQKgIqNSpo
KpsqzysCKzYraSudK9EsBSw5LG4soizXLQwtQS12Last4S4WLkwugi63Lu4vJC9aL5Evxy/+MDUwbDCk
MNsxEjFKMYIxujHyMioyYzKbMtQzDTNGM38zuDPxNCs0ZTSeNNg1EzVNNYc1wjX9Njc2cjauNuk3JDdg
N5w31zgUOFA4jDjIOQU5Qjl/Obw5+To2OnQ6sjrvOy07azuqO+g8JzxlPKQ84z0iPWE9oT3gPiA+YD6g
PuA/IT9hP6I/4kAjQGRApkDnQSlBakGsQe5CMEJyQrVC90M6Q31DwEQDREdEikTORRJFVUWaRd5GIkZn
RqtG8Ec1R3tHwEgFSEtIkUjXSR1JY0mpSfBKN0p9SsRLDEtTS5pL4kwqTHJMuk0CTUpNk03cTiVObk63
TwBPSU+TT91QJ1BxULtRBlFQUZtR5lIxUnxSx1MTU19TqlP2VEJUj1TbVShVdVXCVg9WXFapVvdXRFeS
V+BYL1h9WMtZGllpWbhaB1pWWqZa9VtFW5Vb5Vw1XIZc1l0nXXhdyV4aXmxevV8PX2Ffs2AFYFdgqmD8
YU9homH1YklinGLwY0Njl2PrZEBklGTpZT1lkmXnZj1mkmboZz1nk2fpaD9olmjsaUNpmmnxakhqn2r3
a09rp2v/bFdsr20IbWBtuW4SbmtuxG8eb3hv0XArcIZw4HE6cZVx8HJLcqZzAXNdc7h0FHRwdMx1KHWF
deF2Pnabdvh3VnezeBF4bnjMeSp5iXnnekZ6pXsEe2N7wnwhfIF84X1BfaF+AX5ifsJ/I3+Ef+WAR4Co
gQqBa4HNgjCCkoL0g1eDuoQdhICE44VHhauGDoZyhteHO4efiASIaYjOiTOJmYn+imSKyoswi5aL/Ixj
jMqNMY2Yjf+OZo7OjzaPnpAGkG6Q1pE/kaiSEZJ6kuOTTZO2lCCUipT0lV+VyZY0lp+XCpd1l+CYTJi4
mSSZkJn8mmia1ZtCm6+cHJyJnPedZJ3SnkCerp8dn4uf+qBpoNihR6G2oiailqMGo3aj5qRWpMelOKWp
phqmi6b9p26n4KhSqMSpN6mpqhyqj6sCq3Wr6axcrNCtRK24ri2uoa8Wr4uwALB1sOqxYLHWskuywrM4
s660JbSctRO1irYBtnm28Ldot+C4WbjRuUq5wro7urW7LrunvCG8m70VvY++Cr6Evv+/er/1wHDA7MFn
wePCX8Lbw1jD1MRRxM7FS8XIxkbGw8dBx7/IPci8yTrJuco4yrfLNsu2zDXMtc01zbXONs62zzfPuNA5
0LrRPNG+0j/SwdNE08bUSdTL1U7V0dZV1tjXXNfg2GTY6Nls2fHadtr724DcBdyK3RDdlt4c3qLfKd+v
4DbgveFE4cziU+Lb42Pj6+Rz5PzlhOYN5pbnH+ep6DLovOlG6dDqW+rl63Dr++yG7RHtnO4o7rTvQO/M
8Fjw5fFy8f/yjPMZ86f0NPTC9VD13vZt9vv3ivgZ+Kj5OPnH+lf65/t3/Af8mP0p/br+S/7c/23////b
AEMAAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQICAgICAgICAgICAwMD
AwMDAwMDA//bAEMBAQEBAQEBAQEBAQICAQICAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMD
AwMDAwMDAwMDAwMDAwMDA//AABEIAAwAPAMBEQACEQEDEQH/xAAfAAABBQEBAQEBAQAAAAAAAAAAAQID
BAUGBwgJCgv/xAC1EAACAQMDAgQDBQUEBAAAAX0BAgMABBEFEiExQQYTUWEHInEUMoGRoQgjQrHBFVLR
8CQzYnKCCQoWFxgZGiUmJygpKjQ1Njc4OTpDREVGR0hJSlNUVVZXWFlaY2RlZmdoaWpzdHV2d3h5eoOE
hYaHiImKkpOUlZaXmJmaoqOkpaanqKmqsrO0tba3uLm6wsPExcbHyMnK0tPU1dbX2Nna4eLj5OXm5+jp
6vHy8/T19vf4+fr/xAAfAQADAQEBAQEBAQEBAAAAAAAAAQIDBAUGBwgJCgv/xAC1EQACAQIEBAMEBwUE
BAABAncAAQIDEQQFITEGEkFRB2FxEyIygQgUQpGhscEJIzNS8BVictEKFiQ04SXxFxgZGiYnKCkqNTY3
ODk6Q0RFRkdISUpTVFVWV1hZWmNkZWZnaGlqc3R1dnd4eXqCg4SFhoeIiYqSk5SVlpeYmZqio6Slpqeo
qaqys7S1tre4ubrCw8TFxsfIycrS09TV1tfY2dri4+Tl5ufo6ery8/T19vf4+fr/2gAMAwEAAhEDEQA/
AP1ZH7UPxEAA/wCEw8bnj/ob9f8A/k+v7U/1Nyj/AKF+G/8ABUP/AJE/llcSZlZf7dX/APBk/wDMX/hq
H4if9Df43/8ACv1//wCT6P8AU3Kf+hfhv/BUP/kQ/wBZcy/6Dq//AIMn/mH/AA1D8RP+hv8AG/8A4V+v
/wDyfR/qblP/AEL8N/4Kh/8AIh/rLmX/AEHV/wDwZP8AzD/hqH4if9Df43/8K/X/AP5Po/1Nyn/oX4b/
AMFQ/wDkQ/1lzL/oOr/+DJ/5h/w1D8RP+hv8b/8AhX6//wDJ9H+puU/9C/Df+Cof/Ih/rLmX/QdX/wDB
k/8AMT/hqH4if9Df43/8K/X/AP5Po/1Nyn/oX4b/AMFQ/wDkQ/1kzL/oOr/+DJ/5n2R+xz+234zt/iRp
nw+8a6vqXiDwZ4gs9baObXr+bUr/AMPajpmkX2tQ3FlqV2Zb57K7XT2t3tXkaJWkV4whVxJ+beJfAuU4
Th/FZ/hKEKOMw8qd+SKjGcZzjTs4q0bpyUlJK7s073VvuuBOLMxxGcYfJ8TWlVw1ZTtzu7hKMJTupPWz
UWnFu2qatrf9aP8AhfXgv+zv7U89/sfm+V5207N+M43fSv50P2w/kwr/AEFP42CgAoAKACgAoA9s/Z0/
s7/hcng3+1vP/s7Ov/avs2PP2f8ACL63t2buP9ZjP+zmvz7xU/5IPPf+4H/qRRPsvD//AJK7KP8AuL/6
ZqH7/wD/ABaT/hUfb7Ht/wBj7V9p8v8A9Cr+Oz+lz//Z
</value>
</data>
<data name="PictureBox5.BackgroundImage" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
/9j/4AAQSkZJRgABAgEASABIAAD/7gAOQWRvYmUAZAAAAAAB/+ED5kV4aWYAAE1NACoAAAAIAAcBEgAD
AAAAAQABAAABGgAFAAAAAQAAAGIBGwAFAAAAAQAAAGoBKAADAAAAAQACAAABMQACAAAAHAAAAHIBMgAC
AAAAFAAAAI6HaQAEAAAAAQAAAKIAAADCAEgAAAABAAAASAAAAAEAAEFkb2JlIFBob3Rvc2hvcCBDUzMg
V2luZG93cwAyMDEwOjA0OjE1IDIwOjMyOjA0AAACoAIABAAAAAEAAAA8oAMABAAAAAEAAAAMAAAAAAAA
AAYBAwADAAAAAQAGAAABGgAFAAAAAQAAARABGwAFAAAAAQAAARgBKAADAAAAAQACAAACAQAEAAAAAQAA
ASACAgAEAAAAAQAAAr4AAAAAAAAASAAAAAEAAABIAAAAAf/Y/+AAEEpGSUYAAQIAAEgASAAA/+0ADEFk
b2JlX0NNAAH/7gAOQWRvYmUAZIAAAAAB/9sAhAAMCAgICQgMCQkMEQsKCxEVDwwMDxUYExMVExMYEQwM
DAwMDBEMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMAQ0LCw0ODRAODhAUDg4OFBQODg4OFBEMDAwM
DBERDAwMDAwMEQwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAz/wAARCAAMADwDASIAAhEBAxEB/90A
BAAE/8QBPwAAAQUBAQEBAQEAAAAAAAAAAwABAgQFBgcICQoLAQABBQEBAQEBAQAAAAAAAAABAAIDBAUG
BwgJCgsQAAEEAQMCBAIFBwYIBQMMMwEAAhEDBCESMQVBUWETInGBMgYUkaGxQiMkFVLBYjM0coLRQwcl
klPw4fFjczUWorKDJkSTVGRFwqN0NhfSVeJl8rOEw9N14/NGJ5SkhbSVxNTk9KW1xdXl9VZmdoaWprbG
1ub2N0dXZ3eHl6e3x9fn9xEAAgIBAgQEAwQFBgcHBgU1AQACEQMhMRIEQVFhcSITBTKBkRShsUIjwVLR
8DMkYuFygpJDUxVjczTxJQYWorKDByY1wtJEk1SjF2RFVTZ0ZeLys4TD03Xj80aUpIW0lcTU5PSltcXV
5fVWZnaGlqa2xtbm9ic3R1dnd4eXp7fH/9oADAMBAAIRAxEAPwDd/amR/pH/AOcf70v2pkf6R/8AnH+9
UUlofq/Bpevxb37UyP8ASP8A84/3pftTI/0j/wDOP96opJfq/BXr8W9+1Mj/AEj/APOP96X7UyP9I/8A
zj/eqKSX6vwV6/F3ujdbuGS2i5xfU8HVxktIG76XyW99vo27p0XGdO2/ba930dZj+q5dX+qfZPL8VAeD
341VVr/eZhx+0bu708n/2f/iDFhJQ0NfUFJPRklMRQABAQAADEhMaW5vAhAAAG1udHJSR0IgWFlaIAfO
AAIACQAGADEAAGFjc3BNU0ZUAAAAAElFQyBzUkdCAAAAAAAAAAAAAAAAAAD21gABAAAAANMtSFAgIAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAEWNwcnQAAAFQAAAAM2Rl
c2MAAAGEAAAAbHd0cHQAAAHwAAAAFGJrcHQAAAIEAAAAFHJYWVoAAAIYAAAAFGdYWVoAAAIsAAAAFGJY
WVoAAAJAAAAAFGRtbmQAAAJUAAAAcGRtZGQAAALEAAAAiHZ1ZWQAAANMAAAAhnZpZXcAAAPUAAAAJGx1
bWkAAAP4AAAAFG1lYXMAAAQMAAAAJHRlY2gAAAQwAAAADHJUUkMAAAQ8AAAIDGdUUkMAAAQ8AAAIDGJU
UkMAAAQ8AAAIDHRleHQAAAAAQ29weXJpZ2h0IChjKSAxOTk4IEhld2xldHQtUGFja2FyZCBDb21wYW55
AABkZXNjAAAAAAAAABJzUkdCIElFQzYxOTY2LTIuMQAAAAAAAAAAAAAAEnNSR0IgSUVDNjE5NjYtMi4x
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABYWVogAAAAAAAA
81EAAQAAAAEWzFhZWiAAAAAAAAAAAAAAAAAAAAAAWFlaIAAAAAAAAG+iAAA49QAAA5BYWVogAAAAAAAA
YpkAALeFAAAY2lhZWiAAAAAAAAAkoAAAD4QAALbPZGVzYwAAAAAAAAAWSUVDIGh0dHA6Ly93d3cuaWVj
LmNoAAAAAAAAAAAAAAAWSUVDIGh0dHA6Ly93d3cuaWVjLmNoAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAGRlc2MAAAAAAAAALklFQyA2MTk2Ni0yLjEgRGVmYXVsdCBSR0Ig
Y29sb3VyIHNwYWNlIC0gc1JHQgAAAAAAAAAAAAAALklFQyA2MTk2Ni0yLjEgRGVmYXVsdCBSR0IgY29s
b3VyIHNwYWNlIC0gc1JHQgAAAAAAAAAAAAAAAAAAAAAAAAAAAABkZXNjAAAAAAAAACxSZWZlcmVuY2Ug
Vmlld2luZyBDb25kaXRpb24gaW4gSUVDNjE5NjYtMi4xAAAAAAAAAAAAAAAsUmVmZXJlbmNlIFZpZXdp
bmcgQ29uZGl0aW9uIGluIElFQzYxOTY2LTIuMQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAdmlldwAA
AAAAE6T+ABRfLgAQzxQAA+3MAAQTCwADXJ4AAAABWFlaIAAAAAAATAlWAFAAAABXH+dtZWFzAAAAAAAA
AAEAAAAAAAAAAAAAAAAAAAAAAAACjwAAAAJzaWcgAAAAAENSVCBjdXJ2AAAAAAAABAAAAAAFAAoADwAU
ABkAHgAjACgALQAyADcAOwBAAEUASgBPAFQAWQBeAGMAaABtAHIAdwB8AIEAhgCLAJAAlQCaAJ8ApACp
AK4AsgC3ALwAwQDGAMsA0ADVANsA4ADlAOsA8AD2APsBAQEHAQ0BEwEZAR8BJQErATIBOAE+AUUBTAFS
AVkBYAFnAW4BdQF8AYMBiwGSAZoBoQGpAbEBuQHBAckB0QHZAeEB6QHyAfoCAwIMAhQCHQImAi8COAJB
AksCVAJdAmcCcQJ6AoQCjgKYAqICrAK2AsECywLVAuAC6wL1AwADCwMWAyEDLQM4A0MDTwNaA2YDcgN+
A4oDlgOiA64DugPHA9MD4APsA/kEBgQTBCAELQQ7BEgEVQRjBHEEfgSMBJoEqAS2BMQE0wThBPAE/gUN
BRwFKwU6BUkFWAVnBXcFhgWWBaYFtQXFBdUF5QX2BgYGFgYnBjcGSAZZBmoGewaMBp0GrwbABtEG4wb1
BwcHGQcrBz0HTwdhB3QHhgeZB6wHvwfSB+UH+AgLCB8IMghGCFoIbgiCCJYIqgi+CNII5wj7CRAJJQk6
CU8JZAl5CY8JpAm6Cc8J5Qn7ChEKJwo9ClQKagqBCpgKrgrFCtwK8wsLCyILOQtRC2kLgAuYC7ALyAvh
C/kMEgwqDEMMXAx1DI4MpwzADNkM8w0NDSYNQA1aDXQNjg2pDcMN3g34DhMOLg5JDmQOfw6bDrYO0g7u
DwkPJQ9BD14Peg+WD7MPzw/sEAkQJhBDEGEQfhCbELkQ1xD1ERMRMRFPEW0RjBGqEckR6BIHEiYSRRJk
EoQSoxLDEuMTAxMjE0MTYxODE6QTxRPlFAYUJxRJFGoUixStFM4U8BUSFTQVVhV4FZsVvRXgFgMWJhZJ
FmwWjxayFtYW+hcdF0EXZReJF64X0hf3GBsYQBhlGIoYrxjVGPoZIBlFGWsZkRm3Gd0aBBoqGlEadxqe
GsUa7BsUGzsbYxuKG7Ib2hwCHCocUhx7HKMczBz1HR4dRx1wHZkdwx3sHhYeQB5qHpQevh7pHxMfPh9p
H5Qfvx/qIBUgQSBsIJggxCDwIRwhSCF1IaEhziH7IiciVSKCIq8i3SMKIzgjZiOUI8Ij8CQfJE0kfCSr
JNolCSU4JWgllyXHJfcmJyZXJocmtyboJxgnSSd6J6sn3CgNKD8ocSiiKNQpBik4KWspnSnQKgIqNSpo
KpsqzysCKzYraSudK9EsBSw5LG4soizXLQwtQS12Last4S4WLkwugi63Lu4vJC9aL5Evxy/+MDUwbDCk
MNsxEjFKMYIxujHyMioyYzKbMtQzDTNGM38zuDPxNCs0ZTSeNNg1EzVNNYc1wjX9Njc2cjauNuk3JDdg
N5w31zgUOFA4jDjIOQU5Qjl/Obw5+To2OnQ6sjrvOy07azuqO+g8JzxlPKQ84z0iPWE9oT3gPiA+YD6g
PuA/IT9hP6I/4kAjQGRApkDnQSlBakGsQe5CMEJyQrVC90M6Q31DwEQDREdEikTORRJFVUWaRd5GIkZn
RqtG8Ec1R3tHwEgFSEtIkUjXSR1JY0mpSfBKN0p9SsRLDEtTS5pL4kwqTHJMuk0CTUpNk03cTiVObk63
TwBPSU+TT91QJ1BxULtRBlFQUZtR5lIxUnxSx1MTU19TqlP2VEJUj1TbVShVdVXCVg9WXFapVvdXRFeS
V+BYL1h9WMtZGllpWbhaB1pWWqZa9VtFW5Vb5Vw1XIZc1l0nXXhdyV4aXmxevV8PX2Ffs2AFYFdgqmD8
YU9homH1YklinGLwY0Njl2PrZEBklGTpZT1lkmXnZj1mkmboZz1nk2fpaD9olmjsaUNpmmnxakhqn2r3
a09rp2v/bFdsr20IbWBtuW4SbmtuxG8eb3hv0XArcIZw4HE6cZVx8HJLcqZzAXNdc7h0FHRwdMx1KHWF
deF2Pnabdvh3VnezeBF4bnjMeSp5iXnnekZ6pXsEe2N7wnwhfIF84X1BfaF+AX5ifsJ/I3+Ef+WAR4Co
gQqBa4HNgjCCkoL0g1eDuoQdhICE44VHhauGDoZyhteHO4efiASIaYjOiTOJmYn+imSKyoswi5aL/Ixj
jMqNMY2Yjf+OZo7OjzaPnpAGkG6Q1pE/kaiSEZJ6kuOTTZO2lCCUipT0lV+VyZY0lp+XCpd1l+CYTJi4
mSSZkJn8mmia1ZtCm6+cHJyJnPedZJ3SnkCerp8dn4uf+qBpoNihR6G2oiailqMGo3aj5qRWpMelOKWp
phqmi6b9p26n4KhSqMSpN6mpqhyqj6sCq3Wr6axcrNCtRK24ri2uoa8Wr4uwALB1sOqxYLHWskuywrM4
s660JbSctRO1irYBtnm28Ldot+C4WbjRuUq5wro7urW7LrunvCG8m70VvY++Cr6Evv+/er/1wHDA7MFn
wePCX8Lbw1jD1MRRxM7FS8XIxkbGw8dBx7/IPci8yTrJuco4yrfLNsu2zDXMtc01zbXONs62zzfPuNA5
0LrRPNG+0j/SwdNE08bUSdTL1U7V0dZV1tjXXNfg2GTY6Nls2fHadtr724DcBdyK3RDdlt4c3qLfKd+v
4DbgveFE4cziU+Lb42Pj6+Rz5PzlhOYN5pbnH+ep6DLovOlG6dDqW+rl63Dr++yG7RHtnO4o7rTvQO/M
8Fjw5fFy8f/yjPMZ86f0NPTC9VD13vZt9vv3ivgZ+Kj5OPnH+lf65/t3/Af8mP0p/br+S/7c/23////b
AEMAAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQICAgICAgICAgICAwMD
AwMDAwMDA//bAEMBAQEBAQEBAQEBAQICAQICAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMD
AwMDAwMDAwMDAwMDAwMDA//AABEIAAwAPAMBEQACEQEDEQH/xAAfAAABBQEBAQEBAQAAAAAAAAAAAQID
BAUGBwgJCgv/xAC1EAACAQMDAgQDBQUEBAAAAX0BAgMABBEFEiExQQYTUWEHInEUMoGRoQgjQrHBFVLR
8CQzYnKCCQoWFxgZGiUmJygpKjQ1Njc4OTpDREVGR0hJSlNUVVZXWFlaY2RlZmdoaWpzdHV2d3h5eoOE
hYaHiImKkpOUlZaXmJmaoqOkpaanqKmqsrO0tba3uLm6wsPExcbHyMnK0tPU1dbX2Nna4eLj5OXm5+jp
6vHy8/T19vf4+fr/xAAfAQADAQEBAQEBAQEBAAAAAAAAAQIDBAUGBwgJCgv/xAC1EQACAQIEBAMEBwUE
BAABAncAAQIDEQQFITEGEkFRB2FxEyIygQgUQpGhscEJIzNS8BVictEKFiQ04SXxFxgZGiYnKCkqNTY3
ODk6Q0RFRkdISUpTVFVWV1hZWmNkZWZnaGlqc3R1dnd4eXqCg4SFhoeIiYqSk5SVlpeYmZqio6Slpqeo
qaqys7S1tre4ubrCw8TFxsfIycrS09TV1tfY2dri4+Tl5ufo6ery8/T19vf4+fr/2gAMAwEAAhEDEQA/
AP1ZH7UPxEAA/wCEw8bnj/ob9f8A/k+v7U/1Nyj/AKF+G/8ABUP/AJE/llcSZlZf7dX/APBk/wDMX/hq
H4if9Df43/8ACv1//wCT6P8AU3Kf+hfhv/BUP/kQ/wBZcy/6Dq//AIMn/mH/AA1D8RP+hv8AG/8A4V+v
/wDyfR/qblP/AEL8N/4Kh/8AIh/rLmX/AEHV/wDwZP8AzD/hqH4if9Df43/8K/X/AP5Po/1Nyn/oX4b/
AMFQ/wDkQ/1lzL/oOr/+DJ/5h/w1D8RP+hv8b/8AhX6//wDJ9H+puU/9C/Df+Cof/Ih/rLmX/QdX/wDB
k/8AMT/hqH4if9Df43/8K/X/AP5Po/1Nyn/oX4b/AMFQ/wDkQ/1kzL/oOr/+DJ/5n2R+xz+234zt/iRp
nw+8a6vqXiDwZ4gs9baObXr+bUr/AMPajpmkX2tQ3FlqV2Zb57K7XT2t3tXkaJWkV4whVxJ+beJfAuU4
Th/FZ/hKEKOMw8qd+SKjGcZzjTs4q0bpyUlJK7s073VvuuBOLMxxGcYfJ8TWlVw1ZTtzu7hKMJTupPWz
UWnFu2qatrf9aP8AhfXgv+zv7U89/sfm+V5207N+M43fSv50P2w/kwr/AEFP42CgAoAKACgAoA9s/Z0/
s7/hcng3+1vP/s7Ov/avs2PP2f8ACL63t2buP9ZjP+zmvz7xU/5IPPf+4H/qRRPsvD//AJK7KP8AuL/6
ZqH7/wD/ABaT/hUfb7Ht/wBj7V9p8v8A9Cr+Oz+lz//Z
</value>
</data>
<data name="PictureBox4.BackgroundImage" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
/9j/4AAQSkZJRgABAgEASABIAAD/7gAOQWRvYmUAZAAAAAAB/+ED5kV4aWYAAE1NACoAAAAIAAcBEgAD
AAAAAQABAAABGgAFAAAAAQAAAGIBGwAFAAAAAQAAAGoBKAADAAAAAQACAAABMQACAAAAHAAAAHIBMgAC
AAAAFAAAAI6HaQAEAAAAAQAAAKIAAADCAEgAAAABAAAASAAAAAEAAEFkb2JlIFBob3Rvc2hvcCBDUzMg
V2luZG93cwAyMDEwOjA0OjE1IDIwOjMyOjA0AAACoAIABAAAAAEAAAA8oAMABAAAAAEAAAAMAAAAAAAA
AAYBAwADAAAAAQAGAAABGgAFAAAAAQAAARABGwAFAAAAAQAAARgBKAADAAAAAQACAAACAQAEAAAAAQAA
ASACAgAEAAAAAQAAAr4AAAAAAAAASAAAAAEAAABIAAAAAf/Y/+AAEEpGSUYAAQIAAEgASAAA/+0ADEFk
b2JlX0NNAAH/7gAOQWRvYmUAZIAAAAAB/9sAhAAMCAgICQgMCQkMEQsKCxEVDwwMDxUYExMVExMYEQwM
DAwMDBEMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMAQ0LCw0ODRAODhAUDg4OFBQODg4OFBEMDAwM
DBERDAwMDAwMEQwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAz/wAARCAAMADwDASIAAhEBAxEB/90A
BAAE/8QBPwAAAQUBAQEBAQEAAAAAAAAAAwABAgQFBgcICQoLAQABBQEBAQEBAQAAAAAAAAABAAIDBAUG
BwgJCgsQAAEEAQMCBAIFBwYIBQMMMwEAAhEDBCESMQVBUWETInGBMgYUkaGxQiMkFVLBYjM0coLRQwcl
klPw4fFjczUWorKDJkSTVGRFwqN0NhfSVeJl8rOEw9N14/NGJ5SkhbSVxNTk9KW1xdXl9VZmdoaWprbG
1ub2N0dXZ3eHl6e3x9fn9xEAAgIBAgQEAwQFBgcHBgU1AQACEQMhMRIEQVFhcSITBTKBkRShsUIjwVLR
8DMkYuFygpJDUxVjczTxJQYWorKDByY1wtJEk1SjF2RFVTZ0ZeLys4TD03Xj80aUpIW0lcTU5PSltcXV
5fVWZnaGlqa2xtbm9ic3R1dnd4eXp7fH/9oADAMBAAIRAxEAPwDd/amR/pH/AOcf70v2pkf6R/8AnH+9
UUlofq/Bpevxb37UyP8ASP8A84/3pftTI/0j/wDOP96opJfq/BXr8W9+1Mj/AEj/APOP96X7UyP9I/8A
zj/eqKSX6vwV6/F3ujdbuGS2i5xfU8HVxktIG76XyW99vo27p0XGdO2/ba930dZj+q5dX+qfZPL8VAeD
341VVr/eZhx+0bu708n/2f/iDFhJQ0NfUFJPRklMRQABAQAADEhMaW5vAhAAAG1udHJSR0IgWFlaIAfO
AAIACQAGADEAAGFjc3BNU0ZUAAAAAElFQyBzUkdCAAAAAAAAAAAAAAAAAAD21gABAAAAANMtSFAgIAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAEWNwcnQAAAFQAAAAM2Rl
c2MAAAGEAAAAbHd0cHQAAAHwAAAAFGJrcHQAAAIEAAAAFHJYWVoAAAIYAAAAFGdYWVoAAAIsAAAAFGJY
WVoAAAJAAAAAFGRtbmQAAAJUAAAAcGRtZGQAAALEAAAAiHZ1ZWQAAANMAAAAhnZpZXcAAAPUAAAAJGx1
bWkAAAP4AAAAFG1lYXMAAAQMAAAAJHRlY2gAAAQwAAAADHJUUkMAAAQ8AAAIDGdUUkMAAAQ8AAAIDGJU
UkMAAAQ8AAAIDHRleHQAAAAAQ29weXJpZ2h0IChjKSAxOTk4IEhld2xldHQtUGFja2FyZCBDb21wYW55
AABkZXNjAAAAAAAAABJzUkdCIElFQzYxOTY2LTIuMQAAAAAAAAAAAAAAEnNSR0IgSUVDNjE5NjYtMi4x
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABYWVogAAAAAAAA
81EAAQAAAAEWzFhZWiAAAAAAAAAAAAAAAAAAAAAAWFlaIAAAAAAAAG+iAAA49QAAA5BYWVogAAAAAAAA
YpkAALeFAAAY2lhZWiAAAAAAAAAkoAAAD4QAALbPZGVzYwAAAAAAAAAWSUVDIGh0dHA6Ly93d3cuaWVj
LmNoAAAAAAAAAAAAAAAWSUVDIGh0dHA6Ly93d3cuaWVjLmNoAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAGRlc2MAAAAAAAAALklFQyA2MTk2Ni0yLjEgRGVmYXVsdCBSR0Ig
Y29sb3VyIHNwYWNlIC0gc1JHQgAAAAAAAAAAAAAALklFQyA2MTk2Ni0yLjEgRGVmYXVsdCBSR0IgY29s
b3VyIHNwYWNlIC0gc1JHQgAAAAAAAAAAAAAAAAAAAAAAAAAAAABkZXNjAAAAAAAAACxSZWZlcmVuY2Ug
Vmlld2luZyBDb25kaXRpb24gaW4gSUVDNjE5NjYtMi4xAAAAAAAAAAAAAAAsUmVmZXJlbmNlIFZpZXdp
bmcgQ29uZGl0aW9uIGluIElFQzYxOTY2LTIuMQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAdmlldwAA
AAAAE6T+ABRfLgAQzxQAA+3MAAQTCwADXJ4AAAABWFlaIAAAAAAATAlWAFAAAABXH+dtZWFzAAAAAAAA
AAEAAAAAAAAAAAAAAAAAAAAAAAACjwAAAAJzaWcgAAAAAENSVCBjdXJ2AAAAAAAABAAAAAAFAAoADwAU
ABkAHgAjACgALQAyADcAOwBAAEUASgBPAFQAWQBeAGMAaABtAHIAdwB8AIEAhgCLAJAAlQCaAJ8ApACp
AK4AsgC3ALwAwQDGAMsA0ADVANsA4ADlAOsA8AD2APsBAQEHAQ0BEwEZAR8BJQErATIBOAE+AUUBTAFS
AVkBYAFnAW4BdQF8AYMBiwGSAZoBoQGpAbEBuQHBAckB0QHZAeEB6QHyAfoCAwIMAhQCHQImAi8COAJB
AksCVAJdAmcCcQJ6AoQCjgKYAqICrAK2AsECywLVAuAC6wL1AwADCwMWAyEDLQM4A0MDTwNaA2YDcgN+
A4oDlgOiA64DugPHA9MD4APsA/kEBgQTBCAELQQ7BEgEVQRjBHEEfgSMBJoEqAS2BMQE0wThBPAE/gUN
BRwFKwU6BUkFWAVnBXcFhgWWBaYFtQXFBdUF5QX2BgYGFgYnBjcGSAZZBmoGewaMBp0GrwbABtEG4wb1
BwcHGQcrBz0HTwdhB3QHhgeZB6wHvwfSB+UH+AgLCB8IMghGCFoIbgiCCJYIqgi+CNII5wj7CRAJJQk6
CU8JZAl5CY8JpAm6Cc8J5Qn7ChEKJwo9ClQKagqBCpgKrgrFCtwK8wsLCyILOQtRC2kLgAuYC7ALyAvh
C/kMEgwqDEMMXAx1DI4MpwzADNkM8w0NDSYNQA1aDXQNjg2pDcMN3g34DhMOLg5JDmQOfw6bDrYO0g7u
DwkPJQ9BD14Peg+WD7MPzw/sEAkQJhBDEGEQfhCbELkQ1xD1ERMRMRFPEW0RjBGqEckR6BIHEiYSRRJk
EoQSoxLDEuMTAxMjE0MTYxODE6QTxRPlFAYUJxRJFGoUixStFM4U8BUSFTQVVhV4FZsVvRXgFgMWJhZJ
FmwWjxayFtYW+hcdF0EXZReJF64X0hf3GBsYQBhlGIoYrxjVGPoZIBlFGWsZkRm3Gd0aBBoqGlEadxqe
GsUa7BsUGzsbYxuKG7Ib2hwCHCocUhx7HKMczBz1HR4dRx1wHZkdwx3sHhYeQB5qHpQevh7pHxMfPh9p
H5Qfvx/qIBUgQSBsIJggxCDwIRwhSCF1IaEhziH7IiciVSKCIq8i3SMKIzgjZiOUI8Ij8CQfJE0kfCSr
JNolCSU4JWgllyXHJfcmJyZXJocmtyboJxgnSSd6J6sn3CgNKD8ocSiiKNQpBik4KWspnSnQKgIqNSpo
KpsqzysCKzYraSudK9EsBSw5LG4soizXLQwtQS12Last4S4WLkwugi63Lu4vJC9aL5Evxy/+MDUwbDCk
MNsxEjFKMYIxujHyMioyYzKbMtQzDTNGM38zuDPxNCs0ZTSeNNg1EzVNNYc1wjX9Njc2cjauNuk3JDdg
N5w31zgUOFA4jDjIOQU5Qjl/Obw5+To2OnQ6sjrvOy07azuqO+g8JzxlPKQ84z0iPWE9oT3gPiA+YD6g
PuA/IT9hP6I/4kAjQGRApkDnQSlBakGsQe5CMEJyQrVC90M6Q31DwEQDREdEikTORRJFVUWaRd5GIkZn
RqtG8Ec1R3tHwEgFSEtIkUjXSR1JY0mpSfBKN0p9SsRLDEtTS5pL4kwqTHJMuk0CTUpNk03cTiVObk63
TwBPSU+TT91QJ1BxULtRBlFQUZtR5lIxUnxSx1MTU19TqlP2VEJUj1TbVShVdVXCVg9WXFapVvdXRFeS
V+BYL1h9WMtZGllpWbhaB1pWWqZa9VtFW5Vb5Vw1XIZc1l0nXXhdyV4aXmxevV8PX2Ffs2AFYFdgqmD8
YU9homH1YklinGLwY0Njl2PrZEBklGTpZT1lkmXnZj1mkmboZz1nk2fpaD9olmjsaUNpmmnxakhqn2r3
a09rp2v/bFdsr20IbWBtuW4SbmtuxG8eb3hv0XArcIZw4HE6cZVx8HJLcqZzAXNdc7h0FHRwdMx1KHWF
deF2Pnabdvh3VnezeBF4bnjMeSp5iXnnekZ6pXsEe2N7wnwhfIF84X1BfaF+AX5ifsJ/I3+Ef+WAR4Co
gQqBa4HNgjCCkoL0g1eDuoQdhICE44VHhauGDoZyhteHO4efiASIaYjOiTOJmYn+imSKyoswi5aL/Ixj
jMqNMY2Yjf+OZo7OjzaPnpAGkG6Q1pE/kaiSEZJ6kuOTTZO2lCCUipT0lV+VyZY0lp+XCpd1l+CYTJi4
mSSZkJn8mmia1ZtCm6+cHJyJnPedZJ3SnkCerp8dn4uf+qBpoNihR6G2oiailqMGo3aj5qRWpMelOKWp
phqmi6b9p26n4KhSqMSpN6mpqhyqj6sCq3Wr6axcrNCtRK24ri2uoa8Wr4uwALB1sOqxYLHWskuywrM4
s660JbSctRO1irYBtnm28Ldot+C4WbjRuUq5wro7urW7LrunvCG8m70VvY++Cr6Evv+/er/1wHDA7MFn
wePCX8Lbw1jD1MRRxM7FS8XIxkbGw8dBx7/IPci8yTrJuco4yrfLNsu2zDXMtc01zbXONs62zzfPuNA5
0LrRPNG+0j/SwdNE08bUSdTL1U7V0dZV1tjXXNfg2GTY6Nls2fHadtr724DcBdyK3RDdlt4c3qLfKd+v
4DbgveFE4cziU+Lb42Pj6+Rz5PzlhOYN5pbnH+ep6DLovOlG6dDqW+rl63Dr++yG7RHtnO4o7rTvQO/M
8Fjw5fFy8f/yjPMZ86f0NPTC9VD13vZt9vv3ivgZ+Kj5OPnH+lf65/t3/Af8mP0p/br+S/7c/23////b
AEMAAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQICAgICAgICAgICAwMD
AwMDAwMDA//bAEMBAQEBAQEBAQEBAQICAQICAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMD
AwMDAwMDAwMDAwMDAwMDA//AABEIAAwAPAMBEQACEQEDEQH/xAAfAAABBQEBAQEBAQAAAAAAAAAAAQID
BAUGBwgJCgv/xAC1EAACAQMDAgQDBQUEBAAAAX0BAgMABBEFEiExQQYTUWEHInEUMoGRoQgjQrHBFVLR
8CQzYnKCCQoWFxgZGiUmJygpKjQ1Njc4OTpDREVGR0hJSlNUVVZXWFlaY2RlZmdoaWpzdHV2d3h5eoOE
hYaHiImKkpOUlZaXmJmaoqOkpaanqKmqsrO0tba3uLm6wsPExcbHyMnK0tPU1dbX2Nna4eLj5OXm5+jp
6vHy8/T19vf4+fr/xAAfAQADAQEBAQEBAQEBAAAAAAAAAQIDBAUGBwgJCgv/xAC1EQACAQIEBAMEBwUE
BAABAncAAQIDEQQFITEGEkFRB2FxEyIygQgUQpGhscEJIzNS8BVictEKFiQ04SXxFxgZGiYnKCkqNTY3
ODk6Q0RFRkdISUpTVFVWV1hZWmNkZWZnaGlqc3R1dnd4eXqCg4SFhoeIiYqSk5SVlpeYmZqio6Slpqeo
qaqys7S1tre4ubrCw8TFxsfIycrS09TV1tfY2dri4+Tl5ufo6ery8/T19vf4+fr/2gAMAwEAAhEDEQA/
AP1ZH7UPxEAA/wCEw8bnj/ob9f8A/k+v7U/1Nyj/AKF+G/8ABUP/AJE/llcSZlZf7dX/APBk/wDMX/hq
H4if9Df43/8ACv1//wCT6P8AU3Kf+hfhv/BUP/kQ/wBZcy/6Dq//AIMn/mH/AA1D8RP+hv8AG/8A4V+v
/wDyfR/qblP/AEL8N/4Kh/8AIh/rLmX/AEHV/wDwZP8AzD/hqH4if9Df43/8K/X/AP5Po/1Nyn/oX4b/
AMFQ/wDkQ/1lzL/oOr/+DJ/5h/w1D8RP+hv8b/8AhX6//wDJ9H+puU/9C/Df+Cof/Ih/rLmX/QdX/wDB
k/8AMT/hqH4if9Df43/8K/X/AP5Po/1Nyn/oX4b/AMFQ/wDkQ/1kzL/oOr/+DJ/5n2R+xz+234zt/iRp
nw+8a6vqXiDwZ4gs9baObXr+bUr/AMPajpmkX2tQ3FlqV2Zb57K7XT2t3tXkaJWkV4whVxJ+beJfAuU4
Th/FZ/hKEKOMw8qd+SKjGcZzjTs4q0bpyUlJK7s073VvuuBOLMxxGcYfJ8TWlVw1ZTtzu7hKMJTupPWz
UWnFu2qatrf9aP8AhfXgv+zv7U89/sfm+V5207N+M43fSv50P2w/kwr/AEFP42CgAoAKACgAoA9s/Z0/
s7/hcng3+1vP/s7Ov/avs2PP2f8ACL63t2buP9ZjP+zmvz7xU/5IPPf+4H/qRRPsvD//AJK7KP8AuL/6
ZqH7/wD/ABaT/hUfb7Ht/wBj7V9p8v8A9Cr+Oz+lz//Z
</value>
</data>
<data name="PictureBox3.BackgroundImage" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
/9j/4AAQSkZJRgABAgEASABIAAD/7gAOQWRvYmUAZAAAAAAB/+ED5kV4aWYAAE1NACoAAAAIAAcBEgAD
AAAAAQABAAABGgAFAAAAAQAAAGIBGwAFAAAAAQAAAGoBKAADAAAAAQACAAABMQACAAAAHAAAAHIBMgAC
AAAAFAAAAI6HaQAEAAAAAQAAAKIAAADCAEgAAAABAAAASAAAAAEAAEFkb2JlIFBob3Rvc2hvcCBDUzMg
V2luZG93cwAyMDEwOjA0OjE1IDIwOjMyOjA0AAACoAIABAAAAAEAAAA8oAMABAAAAAEAAAAMAAAAAAAA
AAYBAwADAAAAAQAGAAABGgAFAAAAAQAAARABGwAFAAAAAQAAARgBKAADAAAAAQACAAACAQAEAAAAAQAA
ASACAgAEAAAAAQAAAr4AAAAAAAAASAAAAAEAAABIAAAAAf/Y/+AAEEpGSUYAAQIAAEgASAAA/+0ADEFk
b2JlX0NNAAH/7gAOQWRvYmUAZIAAAAAB/9sAhAAMCAgICQgMCQkMEQsKCxEVDwwMDxUYExMVExMYEQwM
DAwMDBEMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMAQ0LCw0ODRAODhAUDg4OFBQODg4OFBEMDAwM
DBERDAwMDAwMEQwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAz/wAARCAAMADwDASIAAhEBAxEB/90A
BAAE/8QBPwAAAQUBAQEBAQEAAAAAAAAAAwABAgQFBgcICQoLAQABBQEBAQEBAQAAAAAAAAABAAIDBAUG
BwgJCgsQAAEEAQMCBAIFBwYIBQMMMwEAAhEDBCESMQVBUWETInGBMgYUkaGxQiMkFVLBYjM0coLRQwcl
klPw4fFjczUWorKDJkSTVGRFwqN0NhfSVeJl8rOEw9N14/NGJ5SkhbSVxNTk9KW1xdXl9VZmdoaWprbG
1ub2N0dXZ3eHl6e3x9fn9xEAAgIBAgQEAwQFBgcHBgU1AQACEQMhMRIEQVFhcSITBTKBkRShsUIjwVLR
8DMkYuFygpJDUxVjczTxJQYWorKDByY1wtJEk1SjF2RFVTZ0ZeLys4TD03Xj80aUpIW0lcTU5PSltcXV
5fVWZnaGlqa2xtbm9ic3R1dnd4eXp7fH/9oADAMBAAIRAxEAPwDd/amR/pH/AOcf70v2pkf6R/8AnH+9
UUlofq/Bpevxb37UyP8ASP8A84/3pftTI/0j/wDOP96opJfq/BXr8W9+1Mj/AEj/APOP96X7UyP9I/8A
zj/eqKSX6vwV6/F3ujdbuGS2i5xfU8HVxktIG76XyW99vo27p0XGdO2/ba930dZj+q5dX+qfZPL8VAeD
341VVr/eZhx+0bu708n/2f/iDFhJQ0NfUFJPRklMRQABAQAADEhMaW5vAhAAAG1udHJSR0IgWFlaIAfO
AAIACQAGADEAAGFjc3BNU0ZUAAAAAElFQyBzUkdCAAAAAAAAAAAAAAAAAAD21gABAAAAANMtSFAgIAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAEWNwcnQAAAFQAAAAM2Rl
c2MAAAGEAAAAbHd0cHQAAAHwAAAAFGJrcHQAAAIEAAAAFHJYWVoAAAIYAAAAFGdYWVoAAAIsAAAAFGJY
WVoAAAJAAAAAFGRtbmQAAAJUAAAAcGRtZGQAAALEAAAAiHZ1ZWQAAANMAAAAhnZpZXcAAAPUAAAAJGx1
bWkAAAP4AAAAFG1lYXMAAAQMAAAAJHRlY2gAAAQwAAAADHJUUkMAAAQ8AAAIDGdUUkMAAAQ8AAAIDGJU
UkMAAAQ8AAAIDHRleHQAAAAAQ29weXJpZ2h0IChjKSAxOTk4IEhld2xldHQtUGFja2FyZCBDb21wYW55
AABkZXNjAAAAAAAAABJzUkdCIElFQzYxOTY2LTIuMQAAAAAAAAAAAAAAEnNSR0IgSUVDNjE5NjYtMi4x
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABYWVogAAAAAAAA
81EAAQAAAAEWzFhZWiAAAAAAAAAAAAAAAAAAAAAAWFlaIAAAAAAAAG+iAAA49QAAA5BYWVogAAAAAAAA
YpkAALeFAAAY2lhZWiAAAAAAAAAkoAAAD4QAALbPZGVzYwAAAAAAAAAWSUVDIGh0dHA6Ly93d3cuaWVj
LmNoAAAAAAAAAAAAAAAWSUVDIGh0dHA6Ly93d3cuaWVjLmNoAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAGRlc2MAAAAAAAAALklFQyA2MTk2Ni0yLjEgRGVmYXVsdCBSR0Ig
Y29sb3VyIHNwYWNlIC0gc1JHQgAAAAAAAAAAAAAALklFQyA2MTk2Ni0yLjEgRGVmYXVsdCBSR0IgY29s
b3VyIHNwYWNlIC0gc1JHQgAAAAAAAAAAAAAAAAAAAAAAAAAAAABkZXNjAAAAAAAAACxSZWZlcmVuY2Ug
Vmlld2luZyBDb25kaXRpb24gaW4gSUVDNjE5NjYtMi4xAAAAAAAAAAAAAAAsUmVmZXJlbmNlIFZpZXdp
bmcgQ29uZGl0aW9uIGluIElFQzYxOTY2LTIuMQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAdmlldwAA
AAAAE6T+ABRfLgAQzxQAA+3MAAQTCwADXJ4AAAABWFlaIAAAAAAATAlWAFAAAABXH+dtZWFzAAAAAAAA
AAEAAAAAAAAAAAAAAAAAAAAAAAACjwAAAAJzaWcgAAAAAENSVCBjdXJ2AAAAAAAABAAAAAAFAAoADwAU
ABkAHgAjACgALQAyADcAOwBAAEUASgBPAFQAWQBeAGMAaABtAHIAdwB8AIEAhgCLAJAAlQCaAJ8ApACp
AK4AsgC3ALwAwQDGAMsA0ADVANsA4ADlAOsA8AD2APsBAQEHAQ0BEwEZAR8BJQErATIBOAE+AUUBTAFS
AVkBYAFnAW4BdQF8AYMBiwGSAZoBoQGpAbEBuQHBAckB0QHZAeEB6QHyAfoCAwIMAhQCHQImAi8COAJB
AksCVAJdAmcCcQJ6AoQCjgKYAqICrAK2AsECywLVAuAC6wL1AwADCwMWAyEDLQM4A0MDTwNaA2YDcgN+
A4oDlgOiA64DugPHA9MD4APsA/kEBgQTBCAELQQ7BEgEVQRjBHEEfgSMBJoEqAS2BMQE0wThBPAE/gUN
BRwFKwU6BUkFWAVnBXcFhgWWBaYFtQXFBdUF5QX2BgYGFgYnBjcGSAZZBmoGewaMBp0GrwbABtEG4wb1
BwcHGQcrBz0HTwdhB3QHhgeZB6wHvwfSB+UH+AgLCB8IMghGCFoIbgiCCJYIqgi+CNII5wj7CRAJJQk6
CU8JZAl5CY8JpAm6Cc8J5Qn7ChEKJwo9ClQKagqBCpgKrgrFCtwK8wsLCyILOQtRC2kLgAuYC7ALyAvh
C/kMEgwqDEMMXAx1DI4MpwzADNkM8w0NDSYNQA1aDXQNjg2pDcMN3g34DhMOLg5JDmQOfw6bDrYO0g7u
DwkPJQ9BD14Peg+WD7MPzw/sEAkQJhBDEGEQfhCbELkQ1xD1ERMRMRFPEW0RjBGqEckR6BIHEiYSRRJk
EoQSoxLDEuMTAxMjE0MTYxODE6QTxRPlFAYUJxRJFGoUixStFM4U8BUSFTQVVhV4FZsVvRXgFgMWJhZJ
FmwWjxayFtYW+hcdF0EXZReJF64X0hf3GBsYQBhlGIoYrxjVGPoZIBlFGWsZkRm3Gd0aBBoqGlEadxqe
GsUa7BsUGzsbYxuKG7Ib2hwCHCocUhx7HKMczBz1HR4dRx1wHZkdwx3sHhYeQB5qHpQevh7pHxMfPh9p
H5Qfvx/qIBUgQSBsIJggxCDwIRwhSCF1IaEhziH7IiciVSKCIq8i3SMKIzgjZiOUI8Ij8CQfJE0kfCSr
JNolCSU4JWgllyXHJfcmJyZXJocmtyboJxgnSSd6J6sn3CgNKD8ocSiiKNQpBik4KWspnSnQKgIqNSpo
KpsqzysCKzYraSudK9EsBSw5LG4soizXLQwtQS12Last4S4WLkwugi63Lu4vJC9aL5Evxy/+MDUwbDCk
MNsxEjFKMYIxujHyMioyYzKbMtQzDTNGM38zuDPxNCs0ZTSeNNg1EzVNNYc1wjX9Njc2cjauNuk3JDdg
N5w31zgUOFA4jDjIOQU5Qjl/Obw5+To2OnQ6sjrvOy07azuqO+g8JzxlPKQ84z0iPWE9oT3gPiA+YD6g
PuA/IT9hP6I/4kAjQGRApkDnQSlBakGsQe5CMEJyQrVC90M6Q31DwEQDREdEikTORRJFVUWaRd5GIkZn
RqtG8Ec1R3tHwEgFSEtIkUjXSR1JY0mpSfBKN0p9SsRLDEtTS5pL4kwqTHJMuk0CTUpNk03cTiVObk63
TwBPSU+TT91QJ1BxULtRBlFQUZtR5lIxUnxSx1MTU19TqlP2VEJUj1TbVShVdVXCVg9WXFapVvdXRFeS
V+BYL1h9WMtZGllpWbhaB1pWWqZa9VtFW5Vb5Vw1XIZc1l0nXXhdyV4aXmxevV8PX2Ffs2AFYFdgqmD8
YU9homH1YklinGLwY0Njl2PrZEBklGTpZT1lkmXnZj1mkmboZz1nk2fpaD9olmjsaUNpmmnxakhqn2r3
a09rp2v/bFdsr20IbWBtuW4SbmtuxG8eb3hv0XArcIZw4HE6cZVx8HJLcqZzAXNdc7h0FHRwdMx1KHWF
deF2Pnabdvh3VnezeBF4bnjMeSp5iXnnekZ6pXsEe2N7wnwhfIF84X1BfaF+AX5ifsJ/I3+Ef+WAR4Co
gQqBa4HNgjCCkoL0g1eDuoQdhICE44VHhauGDoZyhteHO4efiASIaYjOiTOJmYn+imSKyoswi5aL/Ixj
jMqNMY2Yjf+OZo7OjzaPnpAGkG6Q1pE/kaiSEZJ6kuOTTZO2lCCUipT0lV+VyZY0lp+XCpd1l+CYTJi4
mSSZkJn8mmia1ZtCm6+cHJyJnPedZJ3SnkCerp8dn4uf+qBpoNihR6G2oiailqMGo3aj5qRWpMelOKWp
phqmi6b9p26n4KhSqMSpN6mpqhyqj6sCq3Wr6axcrNCtRK24ri2uoa8Wr4uwALB1sOqxYLHWskuywrM4
s660JbSctRO1irYBtnm28Ldot+C4WbjRuUq5wro7urW7LrunvCG8m70VvY++Cr6Evv+/er/1wHDA7MFn
wePCX8Lbw1jD1MRRxM7FS8XIxkbGw8dBx7/IPci8yTrJuco4yrfLNsu2zDXMtc01zbXONs62zzfPuNA5
0LrRPNG+0j/SwdNE08bUSdTL1U7V0dZV1tjXXNfg2GTY6Nls2fHadtr724DcBdyK3RDdlt4c3qLfKd+v
4DbgveFE4cziU+Lb42Pj6+Rz5PzlhOYN5pbnH+ep6DLovOlG6dDqW+rl63Dr++yG7RHtnO4o7rTvQO/M
8Fjw5fFy8f/yjPMZ86f0NPTC9VD13vZt9vv3ivgZ+Kj5OPnH+lf65/t3/Af8mP0p/br+S/7c/23////b
AEMAAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQICAgICAgICAgICAwMD
AwMDAwMDA//bAEMBAQEBAQEBAQEBAQICAQICAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMD
AwMDAwMDAwMDAwMDAwMDA//AABEIAAwAPAMBEQACEQEDEQH/xAAfAAABBQEBAQEBAQAAAAAAAAAAAQID
BAUGBwgJCgv/xAC1EAACAQMDAgQDBQUEBAAAAX0BAgMABBEFEiExQQYTUWEHInEUMoGRoQgjQrHBFVLR
8CQzYnKCCQoWFxgZGiUmJygpKjQ1Njc4OTpDREVGR0hJSlNUVVZXWFlaY2RlZmdoaWpzdHV2d3h5eoOE
hYaHiImKkpOUlZaXmJmaoqOkpaanqKmqsrO0tba3uLm6wsPExcbHyMnK0tPU1dbX2Nna4eLj5OXm5+jp
6vHy8/T19vf4+fr/xAAfAQADAQEBAQEBAQEBAAAAAAAAAQIDBAUGBwgJCgv/xAC1EQACAQIEBAMEBwUE
BAABAncAAQIDEQQFITEGEkFRB2FxEyIygQgUQpGhscEJIzNS8BVictEKFiQ04SXxFxgZGiYnKCkqNTY3
ODk6Q0RFRkdISUpTVFVWV1hZWmNkZWZnaGlqc3R1dnd4eXqCg4SFhoeIiYqSk5SVlpeYmZqio6Slpqeo
qaqys7S1tre4ubrCw8TFxsfIycrS09TV1tfY2dri4+Tl5ufo6ery8/T19vf4+fr/2gAMAwEAAhEDEQA/
AP1ZH7UPxEAA/wCEw8bnj/ob9f8A/k+v7U/1Nyj/AKF+G/8ABUP/AJE/llcSZlZf7dX/APBk/wDMX/hq
H4if9Df43/8ACv1//wCT6P8AU3Kf+hfhv/BUP/kQ/wBZcy/6Dq//AIMn/mH/AA1D8RP+hv8AG/8A4V+v
/wDyfR/qblP/AEL8N/4Kh/8AIh/rLmX/AEHV/wDwZP8AzD/hqH4if9Df43/8K/X/AP5Po/1Nyn/oX4b/
AMFQ/wDkQ/1lzL/oOr/+DJ/5h/w1D8RP+hv8b/8AhX6//wDJ9H+puU/9C/Df+Cof/Ih/rLmX/QdX/wDB
k/8AMT/hqH4if9Df43/8K/X/AP5Po/1Nyn/oX4b/AMFQ/wDkQ/1kzL/oOr/+DJ/5n2R+xz+234zt/iRp
nw+8a6vqXiDwZ4gs9baObXr+bUr/AMPajpmkX2tQ3FlqV2Zb57K7XT2t3tXkaJWkV4whVxJ+beJfAuU4
Th/FZ/hKEKOMw8qd+SKjGcZzjTs4q0bpyUlJK7s073VvuuBOLMxxGcYfJ8TWlVw1ZTtzu7hKMJTupPWz
UWnFu2qatrf9aP8AhfXgv+zv7U89/sfm+V5207N+M43fSv50P2w/kwr/AEFP42CgAoAKACgAoA9s/Z0/
s7/hcng3+1vP/s7Ov/avs2PP2f8ACL63t2buP9ZjP+zmvz7xU/5IPPf+4H/qRRPsvD//AJK7KP8AuL/6
ZqH7/wD/ABaT/hUfb7Ht/wBj7V9p8v8A9Cr+Oz+lz//Z
</value>
</data>
<metadata name="ToolStrip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>147, 17</value>
</metadata>
<data name="PictureBox14.BackgroundImage" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
/9j/4AAQSkZJRgABAgEASABIAAD/7gAOQWRvYmUAZAAAAAAB/+ED5kV4aWYAAE1NACoAAAAIAAcBEgAD
AAAAAQABAAABGgAFAAAAAQAAAGIBGwAFAAAAAQAAAGoBKAADAAAAAQACAAABMQACAAAAHAAAAHIBMgAC
AAAAFAAAAI6HaQAEAAAAAQAAAKIAAADCAEgAAAABAAAASAAAAAEAAEFkb2JlIFBob3Rvc2hvcCBDUzMg
V2luZG93cwAyMDEwOjA0OjE1IDIwOjMyOjA0AAACoAIABAAAAAEAAAA8oAMABAAAAAEAAAAMAAAAAAAA
AAYBAwADAAAAAQAGAAABGgAFAAAAAQAAARABGwAFAAAAAQAAARgBKAADAAAAAQACAAACAQAEAAAAAQAA
ASACAgAEAAAAAQAAAr4AAAAAAAAASAAAAAEAAABIAAAAAf/Y/+AAEEpGSUYAAQIAAEgASAAA/+0ADEFk
b2JlX0NNAAH/7gAOQWRvYmUAZIAAAAAB/9sAhAAMCAgICQgMCQkMEQsKCxEVDwwMDxUYExMVExMYEQwM
DAwMDBEMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMAQ0LCw0ODRAODhAUDg4OFBQODg4OFBEMDAwM
DBERDAwMDAwMEQwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAz/wAARCAAMADwDASIAAhEBAxEB/90A
BAAE/8QBPwAAAQUBAQEBAQEAAAAAAAAAAwABAgQFBgcICQoLAQABBQEBAQEBAQAAAAAAAAABAAIDBAUG
BwgJCgsQAAEEAQMCBAIFBwYIBQMMMwEAAhEDBCESMQVBUWETInGBMgYUkaGxQiMkFVLBYjM0coLRQwcl
klPw4fFjczUWorKDJkSTVGRFwqN0NhfSVeJl8rOEw9N14/NGJ5SkhbSVxNTk9KW1xdXl9VZmdoaWprbG
1ub2N0dXZ3eHl6e3x9fn9xEAAgIBAgQEAwQFBgcHBgU1AQACEQMhMRIEQVFhcSITBTKBkRShsUIjwVLR
8DMkYuFygpJDUxVjczTxJQYWorKDByY1wtJEk1SjF2RFVTZ0ZeLys4TD03Xj80aUpIW0lcTU5PSltcXV
5fVWZnaGlqa2xtbm9ic3R1dnd4eXp7fH/9oADAMBAAIRAxEAPwDd/amR/pH/AOcf70v2pkf6R/8AnH+9
UUlofq/Bpevxb37UyP8ASP8A84/3pftTI/0j/wDOP96opJfq/BXr8W9+1Mj/AEj/APOP96X7UyP9I/8A
zj/eqKSX6vwV6/F3ujdbuGS2i5xfU8HVxktIG76XyW99vo27p0XGdO2/ba930dZj+q5dX+qfZPL8VAeD
341VVr/eZhx+0bu708n/2f/iDFhJQ0NfUFJPRklMRQABAQAADEhMaW5vAhAAAG1udHJSR0IgWFlaIAfO
AAIACQAGADEAAGFjc3BNU0ZUAAAAAElFQyBzUkdCAAAAAAAAAAAAAAAAAAD21gABAAAAANMtSFAgIAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAEWNwcnQAAAFQAAAAM2Rl
c2MAAAGEAAAAbHd0cHQAAAHwAAAAFGJrcHQAAAIEAAAAFHJYWVoAAAIYAAAAFGdYWVoAAAIsAAAAFGJY
WVoAAAJAAAAAFGRtbmQAAAJUAAAAcGRtZGQAAALEAAAAiHZ1ZWQAAANMAAAAhnZpZXcAAAPUAAAAJGx1
bWkAAAP4AAAAFG1lYXMAAAQMAAAAJHRlY2gAAAQwAAAADHJUUkMAAAQ8AAAIDGdUUkMAAAQ8AAAIDGJU
UkMAAAQ8AAAIDHRleHQAAAAAQ29weXJpZ2h0IChjKSAxOTk4IEhld2xldHQtUGFja2FyZCBDb21wYW55
AABkZXNjAAAAAAAAABJzUkdCIElFQzYxOTY2LTIuMQAAAAAAAAAAAAAAEnNSR0IgSUVDNjE5NjYtMi4x
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABYWVogAAAAAAAA
81EAAQAAAAEWzFhZWiAAAAAAAAAAAAAAAAAAAAAAWFlaIAAAAAAAAG+iAAA49QAAA5BYWVogAAAAAAAA
YpkAALeFAAAY2lhZWiAAAAAAAAAkoAAAD4QAALbPZGVzYwAAAAAAAAAWSUVDIGh0dHA6Ly93d3cuaWVj
LmNoAAAAAAAAAAAAAAAWSUVDIGh0dHA6Ly93d3cuaWVjLmNoAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAGRlc2MAAAAAAAAALklFQyA2MTk2Ni0yLjEgRGVmYXVsdCBSR0Ig
Y29sb3VyIHNwYWNlIC0gc1JHQgAAAAAAAAAAAAAALklFQyA2MTk2Ni0yLjEgRGVmYXVsdCBSR0IgY29s
b3VyIHNwYWNlIC0gc1JHQgAAAAAAAAAAAAAAAAAAAAAAAAAAAABkZXNjAAAAAAAAACxSZWZlcmVuY2Ug
Vmlld2luZyBDb25kaXRpb24gaW4gSUVDNjE5NjYtMi4xAAAAAAAAAAAAAAAsUmVmZXJlbmNlIFZpZXdp
bmcgQ29uZGl0aW9uIGluIElFQzYxOTY2LTIuMQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAdmlldwAA
AAAAE6T+ABRfLgAQzxQAA+3MAAQTCwADXJ4AAAABWFlaIAAAAAAATAlWAFAAAABXH+dtZWFzAAAAAAAA
AAEAAAAAAAAAAAAAAAAAAAAAAAACjwAAAAJzaWcgAAAAAENSVCBjdXJ2AAAAAAAABAAAAAAFAAoADwAU
ABkAHgAjACgALQAyADcAOwBAAEUASgBPAFQAWQBeAGMAaABtAHIAdwB8AIEAhgCLAJAAlQCaAJ8ApACp
AK4AsgC3ALwAwQDGAMsA0ADVANsA4ADlAOsA8AD2APsBAQEHAQ0BEwEZAR8BJQErATIBOAE+AUUBTAFS
AVkBYAFnAW4BdQF8AYMBiwGSAZoBoQGpAbEBuQHBAckB0QHZAeEB6QHyAfoCAwIMAhQCHQImAi8COAJB
AksCVAJdAmcCcQJ6AoQCjgKYAqICrAK2AsECywLVAuAC6wL1AwADCwMWAyEDLQM4A0MDTwNaA2YDcgN+
A4oDlgOiA64DugPHA9MD4APsA/kEBgQTBCAELQQ7BEgEVQRjBHEEfgSMBJoEqAS2BMQE0wThBPAE/gUN
BRwFKwU6BUkFWAVnBXcFhgWWBaYFtQXFBdUF5QX2BgYGFgYnBjcGSAZZBmoGewaMBp0GrwbABtEG4wb1
BwcHGQcrBz0HTwdhB3QHhgeZB6wHvwfSB+UH+AgLCB8IMghGCFoIbgiCCJYIqgi+CNII5wj7CRAJJQk6
CU8JZAl5CY8JpAm6Cc8J5Qn7ChEKJwo9ClQKagqBCpgKrgrFCtwK8wsLCyILOQtRC2kLgAuYC7ALyAvh
C/kMEgwqDEMMXAx1DI4MpwzADNkM8w0NDSYNQA1aDXQNjg2pDcMN3g34DhMOLg5JDmQOfw6bDrYO0g7u
DwkPJQ9BD14Peg+WD7MPzw/sEAkQJhBDEGEQfhCbELkQ1xD1ERMRMRFPEW0RjBGqEckR6BIHEiYSRRJk
EoQSoxLDEuMTAxMjE0MTYxODE6QTxRPlFAYUJxRJFGoUixStFM4U8BUSFTQVVhV4FZsVvRXgFgMWJhZJ
FmwWjxayFtYW+hcdF0EXZReJF64X0hf3GBsYQBhlGIoYrxjVGPoZIBlFGWsZkRm3Gd0aBBoqGlEadxqe
GsUa7BsUGzsbYxuKG7Ib2hwCHCocUhx7HKMczBz1HR4dRx1wHZkdwx3sHhYeQB5qHpQevh7pHxMfPh9p
H5Qfvx/qIBUgQSBsIJggxCDwIRwhSCF1IaEhziH7IiciVSKCIq8i3SMKIzgjZiOUI8Ij8CQfJE0kfCSr
JNolCSU4JWgllyXHJfcmJyZXJocmtyboJxgnSSd6J6sn3CgNKD8ocSiiKNQpBik4KWspnSnQKgIqNSpo
KpsqzysCKzYraSudK9EsBSw5LG4soizXLQwtQS12Last4S4WLkwugi63Lu4vJC9aL5Evxy/+MDUwbDCk
MNsxEjFKMYIxujHyMioyYzKbMtQzDTNGM38zuDPxNCs0ZTSeNNg1EzVNNYc1wjX9Njc2cjauNuk3JDdg
N5w31zgUOFA4jDjIOQU5Qjl/Obw5+To2OnQ6sjrvOy07azuqO+g8JzxlPKQ84z0iPWE9oT3gPiA+YD6g
PuA/IT9hP6I/4kAjQGRApkDnQSlBakGsQe5CMEJyQrVC90M6Q31DwEQDREdEikTORRJFVUWaRd5GIkZn
RqtG8Ec1R3tHwEgFSEtIkUjXSR1JY0mpSfBKN0p9SsRLDEtTS5pL4kwqTHJMuk0CTUpNk03cTiVObk63
TwBPSU+TT91QJ1BxULtRBlFQUZtR5lIxUnxSx1MTU19TqlP2VEJUj1TbVShVdVXCVg9WXFapVvdXRFeS
V+BYL1h9WMtZGllpWbhaB1pWWqZa9VtFW5Vb5Vw1XIZc1l0nXXhdyV4aXmxevV8PX2Ffs2AFYFdgqmD8
YU9homH1YklinGLwY0Njl2PrZEBklGTpZT1lkmXnZj1mkmboZz1nk2fpaD9olmjsaUNpmmnxakhqn2r3
a09rp2v/bFdsr20IbWBtuW4SbmtuxG8eb3hv0XArcIZw4HE6cZVx8HJLcqZzAXNdc7h0FHRwdMx1KHWF
deF2Pnabdvh3VnezeBF4bnjMeSp5iXnnekZ6pXsEe2N7wnwhfIF84X1BfaF+AX5ifsJ/I3+Ef+WAR4Co
gQqBa4HNgjCCkoL0g1eDuoQdhICE44VHhauGDoZyhteHO4efiASIaYjOiTOJmYn+imSKyoswi5aL/Ixj
jMqNMY2Yjf+OZo7OjzaPnpAGkG6Q1pE/kaiSEZJ6kuOTTZO2lCCUipT0lV+VyZY0lp+XCpd1l+CYTJi4
mSSZkJn8mmia1ZtCm6+cHJyJnPedZJ3SnkCerp8dn4uf+qBpoNihR6G2oiailqMGo3aj5qRWpMelOKWp
phqmi6b9p26n4KhSqMSpN6mpqhyqj6sCq3Wr6axcrNCtRK24ri2uoa8Wr4uwALB1sOqxYLHWskuywrM4
s660JbSctRO1irYBtnm28Ldot+C4WbjRuUq5wro7urW7LrunvCG8m70VvY++Cr6Evv+/er/1wHDA7MFn
wePCX8Lbw1jD1MRRxM7FS8XIxkbGw8dBx7/IPci8yTrJuco4yrfLNsu2zDXMtc01zbXONs62zzfPuNA5
0LrRPNG+0j/SwdNE08bUSdTL1U7V0dZV1tjXXNfg2GTY6Nls2fHadtr724DcBdyK3RDdlt4c3qLfKd+v
4DbgveFE4cziU+Lb42Pj6+Rz5PzlhOYN5pbnH+ep6DLovOlG6dDqW+rl63Dr++yG7RHtnO4o7rTvQO/M
8Fjw5fFy8f/yjPMZ86f0NPTC9VD13vZt9vv3ivgZ+Kj5OPnH+lf65/t3/Af8mP0p/br+S/7c/23////b
AEMAAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQICAgICAgICAgICAwMD
AwMDAwMDA//bAEMBAQEBAQEBAQEBAQICAQICAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMD
AwMDAwMDAwMDAwMDAwMDA//AABEIAAwAPAMBEQACEQEDEQH/xAAfAAABBQEBAQEBAQAAAAAAAAAAAQID
BAUGBwgJCgv/xAC1EAACAQMDAgQDBQUEBAAAAX0BAgMABBEFEiExQQYTUWEHInEUMoGRoQgjQrHBFVLR
8CQzYnKCCQoWFxgZGiUmJygpKjQ1Njc4OTpDREVGR0hJSlNUVVZXWFlaY2RlZmdoaWpzdHV2d3h5eoOE
hYaHiImKkpOUlZaXmJmaoqOkpaanqKmqsrO0tba3uLm6wsPExcbHyMnK0tPU1dbX2Nna4eLj5OXm5+jp
6vHy8/T19vf4+fr/xAAfAQADAQEBAQEBAQEBAAAAAAAAAQIDBAUGBwgJCgv/xAC1EQACAQIEBAMEBwUE
BAABAncAAQIDEQQFITEGEkFRB2FxEyIygQgUQpGhscEJIzNS8BVictEKFiQ04SXxFxgZGiYnKCkqNTY3
ODk6Q0RFRkdISUpTVFVWV1hZWmNkZWZnaGlqc3R1dnd4eXqCg4SFhoeIiYqSk5SVlpeYmZqio6Slpqeo
qaqys7S1tre4ubrCw8TFxsfIycrS09TV1tfY2dri4+Tl5ufo6ery8/T19vf4+fr/2gAMAwEAAhEDEQA/
AP1ZH7UPxEAA/wCEw8bnj/ob9f8A/k+v7U/1Nyj/AKF+G/8ABUP/AJE/llcSZlZf7dX/APBk/wDMX/hq
H4if9Df43/8ACv1//wCT6P8AU3Kf+hfhv/BUP/kQ/wBZcy/6Dq//AIMn/mH/AA1D8RP+hv8AG/8A4V+v
/wDyfR/qblP/AEL8N/4Kh/8AIh/rLmX/AEHV/wDwZP8AzD/hqH4if9Df43/8K/X/AP5Po/1Nyn/oX4b/
AMFQ/wDkQ/1lzL/oOr/+DJ/5h/w1D8RP+hv8b/8AhX6//wDJ9H+puU/9C/Df+Cof/Ih/rLmX/QdX/wDB
k/8AMT/hqH4if9Df43/8K/X/AP5Po/1Nyn/oX4b/AMFQ/wDkQ/1kzL/oOr/+DJ/5n2R+xz+234zt/iRp
nw+8a6vqXiDwZ4gs9baObXr+bUr/AMPajpmkX2tQ3FlqV2Zb57K7XT2t3tXkaJWkV4whVxJ+beJfAuU4
Th/FZ/hKEKOMw8qd+SKjGcZzjTs4q0bpyUlJK7s073VvuuBOLMxxGcYfJ8TWlVw1ZTtzu7hKMJTupPWz
UWnFu2qatrf9aP8AhfXgv+zv7U89/sfm+V5207N+M43fSv50P2w/kwr/AEFP42CgAoAKACgAoA9s/Z0/
s7/hcng3+1vP/s7Ov/avs2PP2f8ACL63t2buP9ZjP+zmvz7xU/5IPPf+4H/qRRPsvD//AJK7KP8AuL/6
ZqH7/wD/ABaT/hUfb7Ht/wBj7V9p8v8A9Cr+Oz+lz//Z
</value>
</data>
<data name="PictureBox13.BackgroundImage" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
/9j/4AAQSkZJRgABAgEASABIAAD/7gAOQWRvYmUAZAAAAAAB/+ED5kV4aWYAAE1NACoAAAAIAAcBEgAD
AAAAAQABAAABGgAFAAAAAQAAAGIBGwAFAAAAAQAAAGoBKAADAAAAAQACAAABMQACAAAAHAAAAHIBMgAC
AAAAFAAAAI6HaQAEAAAAAQAAAKIAAADCAEgAAAABAAAASAAAAAEAAEFkb2JlIFBob3Rvc2hvcCBDUzMg
V2luZG93cwAyMDEwOjA0OjE1IDIwOjMyOjA0AAACoAIABAAAAAEAAAA8oAMABAAAAAEAAAAMAAAAAAAA
AAYBAwADAAAAAQAGAAABGgAFAAAAAQAAARABGwAFAAAAAQAAARgBKAADAAAAAQACAAACAQAEAAAAAQAA
ASACAgAEAAAAAQAAAr4AAAAAAAAASAAAAAEAAABIAAAAAf/Y/+AAEEpGSUYAAQIAAEgASAAA/+0ADEFk
b2JlX0NNAAH/7gAOQWRvYmUAZIAAAAAB/9sAhAAMCAgICQgMCQkMEQsKCxEVDwwMDxUYExMVExMYEQwM
DAwMDBEMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMAQ0LCw0ODRAODhAUDg4OFBQODg4OFBEMDAwM
DBERDAwMDAwMEQwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAz/wAARCAAMADwDASIAAhEBAxEB/90A
BAAE/8QBPwAAAQUBAQEBAQEAAAAAAAAAAwABAgQFBgcICQoLAQABBQEBAQEBAQAAAAAAAAABAAIDBAUG
BwgJCgsQAAEEAQMCBAIFBwYIBQMMMwEAAhEDBCESMQVBUWETInGBMgYUkaGxQiMkFVLBYjM0coLRQwcl
klPw4fFjczUWorKDJkSTVGRFwqN0NhfSVeJl8rOEw9N14/NGJ5SkhbSVxNTk9KW1xdXl9VZmdoaWprbG
1ub2N0dXZ3eHl6e3x9fn9xEAAgIBAgQEAwQFBgcHBgU1AQACEQMhMRIEQVFhcSITBTKBkRShsUIjwVLR
8DMkYuFygpJDUxVjczTxJQYWorKDByY1wtJEk1SjF2RFVTZ0ZeLys4TD03Xj80aUpIW0lcTU5PSltcXV
5fVWZnaGlqa2xtbm9ic3R1dnd4eXp7fH/9oADAMBAAIRAxEAPwDd/amR/pH/AOcf70v2pkf6R/8AnH+9
UUlofq/Bpevxb37UyP8ASP8A84/3pftTI/0j/wDOP96opJfq/BXr8W9+1Mj/AEj/APOP96X7UyP9I/8A
zj/eqKSX6vwV6/F3ujdbuGS2i5xfU8HVxktIG76XyW99vo27p0XGdO2/ba930dZj+q5dX+qfZPL8VAeD
341VVr/eZhx+0bu708n/2f/iDFhJQ0NfUFJPRklMRQABAQAADEhMaW5vAhAAAG1udHJSR0IgWFlaIAfO
AAIACQAGADEAAGFjc3BNU0ZUAAAAAElFQyBzUkdCAAAAAAAAAAAAAAAAAAD21gABAAAAANMtSFAgIAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAEWNwcnQAAAFQAAAAM2Rl
c2MAAAGEAAAAbHd0cHQAAAHwAAAAFGJrcHQAAAIEAAAAFHJYWVoAAAIYAAAAFGdYWVoAAAIsAAAAFGJY
WVoAAAJAAAAAFGRtbmQAAAJUAAAAcGRtZGQAAALEAAAAiHZ1ZWQAAANMAAAAhnZpZXcAAAPUAAAAJGx1
bWkAAAP4AAAAFG1lYXMAAAQMAAAAJHRlY2gAAAQwAAAADHJUUkMAAAQ8AAAIDGdUUkMAAAQ8AAAIDGJU
UkMAAAQ8AAAIDHRleHQAAAAAQ29weXJpZ2h0IChjKSAxOTk4IEhld2xldHQtUGFja2FyZCBDb21wYW55
AABkZXNjAAAAAAAAABJzUkdCIElFQzYxOTY2LTIuMQAAAAAAAAAAAAAAEnNSR0IgSUVDNjE5NjYtMi4x
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABYWVogAAAAAAAA
81EAAQAAAAEWzFhZWiAAAAAAAAAAAAAAAAAAAAAAWFlaIAAAAAAAAG+iAAA49QAAA5BYWVogAAAAAAAA
YpkAALeFAAAY2lhZWiAAAAAAAAAkoAAAD4QAALbPZGVzYwAAAAAAAAAWSUVDIGh0dHA6Ly93d3cuaWVj
LmNoAAAAAAAAAAAAAAAWSUVDIGh0dHA6Ly93d3cuaWVjLmNoAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAGRlc2MAAAAAAAAALklFQyA2MTk2Ni0yLjEgRGVmYXVsdCBSR0Ig
Y29sb3VyIHNwYWNlIC0gc1JHQgAAAAAAAAAAAAAALklFQyA2MTk2Ni0yLjEgRGVmYXVsdCBSR0IgY29s
b3VyIHNwYWNlIC0gc1JHQgAAAAAAAAAAAAAAAAAAAAAAAAAAAABkZXNjAAAAAAAAACxSZWZlcmVuY2Ug
Vmlld2luZyBDb25kaXRpb24gaW4gSUVDNjE5NjYtMi4xAAAAAAAAAAAAAAAsUmVmZXJlbmNlIFZpZXdp
bmcgQ29uZGl0aW9uIGluIElFQzYxOTY2LTIuMQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAdmlldwAA
AAAAE6T+ABRfLgAQzxQAA+3MAAQTCwADXJ4AAAABWFlaIAAAAAAATAlWAFAAAABXH+dtZWFzAAAAAAAA
AAEAAAAAAAAAAAAAAAAAAAAAAAACjwAAAAJzaWcgAAAAAENSVCBjdXJ2AAAAAAAABAAAAAAFAAoADwAU
ABkAHgAjACgALQAyADcAOwBAAEUASgBPAFQAWQBeAGMAaABtAHIAdwB8AIEAhgCLAJAAlQCaAJ8ApACp
AK4AsgC3ALwAwQDGAMsA0ADVANsA4ADlAOsA8AD2APsBAQEHAQ0BEwEZAR8BJQErATIBOAE+AUUBTAFS
AVkBYAFnAW4BdQF8AYMBiwGSAZoBoQGpAbEBuQHBAckB0QHZAeEB6QHyAfoCAwIMAhQCHQImAi8COAJB
AksCVAJdAmcCcQJ6AoQCjgKYAqICrAK2AsECywLVAuAC6wL1AwADCwMWAyEDLQM4A0MDTwNaA2YDcgN+
A4oDlgOiA64DugPHA9MD4APsA/kEBgQTBCAELQQ7BEgEVQRjBHEEfgSMBJoEqAS2BMQE0wThBPAE/gUN
BRwFKwU6BUkFWAVnBXcFhgWWBaYFtQXFBdUF5QX2BgYGFgYnBjcGSAZZBmoGewaMBp0GrwbABtEG4wb1
BwcHGQcrBz0HTwdhB3QHhgeZB6wHvwfSB+UH+AgLCB8IMghGCFoIbgiCCJYIqgi+CNII5wj7CRAJJQk6
CU8JZAl5CY8JpAm6Cc8J5Qn7ChEKJwo9ClQKagqBCpgKrgrFCtwK8wsLCyILOQtRC2kLgAuYC7ALyAvh
C/kMEgwqDEMMXAx1DI4MpwzADNkM8w0NDSYNQA1aDXQNjg2pDcMN3g34DhMOLg5JDmQOfw6bDrYO0g7u
DwkPJQ9BD14Peg+WD7MPzw/sEAkQJhBDEGEQfhCbELkQ1xD1ERMRMRFPEW0RjBGqEckR6BIHEiYSRRJk
EoQSoxLDEuMTAxMjE0MTYxODE6QTxRPlFAYUJxRJFGoUixStFM4U8BUSFTQVVhV4FZsVvRXgFgMWJhZJ
FmwWjxayFtYW+hcdF0EXZReJF64X0hf3GBsYQBhlGIoYrxjVGPoZIBlFGWsZkRm3Gd0aBBoqGlEadxqe
GsUa7BsUGzsbYxuKG7Ib2hwCHCocUhx7HKMczBz1HR4dRx1wHZkdwx3sHhYeQB5qHpQevh7pHxMfPh9p
H5Qfvx/qIBUgQSBsIJggxCDwIRwhSCF1IaEhziH7IiciVSKCIq8i3SMKIzgjZiOUI8Ij8CQfJE0kfCSr
JNolCSU4JWgllyXHJfcmJyZXJocmtyboJxgnSSd6J6sn3CgNKD8ocSiiKNQpBik4KWspnSnQKgIqNSpo
KpsqzysCKzYraSudK9EsBSw5LG4soizXLQwtQS12Last4S4WLkwugi63Lu4vJC9aL5Evxy/+MDUwbDCk
MNsxEjFKMYIxujHyMioyYzKbMtQzDTNGM38zuDPxNCs0ZTSeNNg1EzVNNYc1wjX9Njc2cjauNuk3JDdg
N5w31zgUOFA4jDjIOQU5Qjl/Obw5+To2OnQ6sjrvOy07azuqO+g8JzxlPKQ84z0iPWE9oT3gPiA+YD6g
PuA/IT9hP6I/4kAjQGRApkDnQSlBakGsQe5CMEJyQrVC90M6Q31DwEQDREdEikTORRJFVUWaRd5GIkZn
RqtG8Ec1R3tHwEgFSEtIkUjXSR1JY0mpSfBKN0p9SsRLDEtTS5pL4kwqTHJMuk0CTUpNk03cTiVObk63
TwBPSU+TT91QJ1BxULtRBlFQUZtR5lIxUnxSx1MTU19TqlP2VEJUj1TbVShVdVXCVg9WXFapVvdXRFeS
V+BYL1h9WMtZGllpWbhaB1pWWqZa9VtFW5Vb5Vw1XIZc1l0nXXhdyV4aXmxevV8PX2Ffs2AFYFdgqmD8
YU9homH1YklinGLwY0Njl2PrZEBklGTpZT1lkmXnZj1mkmboZz1nk2fpaD9olmjsaUNpmmnxakhqn2r3
a09rp2v/bFdsr20IbWBtuW4SbmtuxG8eb3hv0XArcIZw4HE6cZVx8HJLcqZzAXNdc7h0FHRwdMx1KHWF
deF2Pnabdvh3VnezeBF4bnjMeSp5iXnnekZ6pXsEe2N7wnwhfIF84X1BfaF+AX5ifsJ/I3+Ef+WAR4Co
gQqBa4HNgjCCkoL0g1eDuoQdhICE44VHhauGDoZyhteHO4efiASIaYjOiTOJmYn+imSKyoswi5aL/Ixj
jMqNMY2Yjf+OZo7OjzaPnpAGkG6Q1pE/kaiSEZJ6kuOTTZO2lCCUipT0lV+VyZY0lp+XCpd1l+CYTJi4
mSSZkJn8mmia1ZtCm6+cHJyJnPedZJ3SnkCerp8dn4uf+qBpoNihR6G2oiailqMGo3aj5qRWpMelOKWp
phqmi6b9p26n4KhSqMSpN6mpqhyqj6sCq3Wr6axcrNCtRK24ri2uoa8Wr4uwALB1sOqxYLHWskuywrM4
s660JbSctRO1irYBtnm28Ldot+C4WbjRuUq5wro7urW7LrunvCG8m70VvY++Cr6Evv+/er/1wHDA7MFn
wePCX8Lbw1jD1MRRxM7FS8XIxkbGw8dBx7/IPci8yTrJuco4yrfLNsu2zDXMtc01zbXONs62zzfPuNA5
0LrRPNG+0j/SwdNE08bUSdTL1U7V0dZV1tjXXNfg2GTY6Nls2fHadtr724DcBdyK3RDdlt4c3qLfKd+v
4DbgveFE4cziU+Lb42Pj6+Rz5PzlhOYN5pbnH+ep6DLovOlG6dDqW+rl63Dr++yG7RHtnO4o7rTvQO/M
8Fjw5fFy8f/yjPMZ86f0NPTC9VD13vZt9vv3ivgZ+Kj5OPnH+lf65/t3/Af8mP0p/br+S/7c/23////b
AEMAAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQICAgICAgICAgICAwMD
AwMDAwMDA//bAEMBAQEBAQEBAQEBAQICAQICAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMD
AwMDAwMDAwMDAwMDAwMDA//AABEIAAwAPAMBEQACEQEDEQH/xAAfAAABBQEBAQEBAQAAAAAAAAAAAQID
BAUGBwgJCgv/xAC1EAACAQMDAgQDBQUEBAAAAX0BAgMABBEFEiExQQYTUWEHInEUMoGRoQgjQrHBFVLR
8CQzYnKCCQoWFxgZGiUmJygpKjQ1Njc4OTpDREVGR0hJSlNUVVZXWFlaY2RlZmdoaWpzdHV2d3h5eoOE
hYaHiImKkpOUlZaXmJmaoqOkpaanqKmqsrO0tba3uLm6wsPExcbHyMnK0tPU1dbX2Nna4eLj5OXm5+jp
6vHy8/T19vf4+fr/xAAfAQADAQEBAQEBAQEBAAAAAAAAAQIDBAUGBwgJCgv/xAC1EQACAQIEBAMEBwUE
BAABAncAAQIDEQQFITEGEkFRB2FxEyIygQgUQpGhscEJIzNS8BVictEKFiQ04SXxFxgZGiYnKCkqNTY3
ODk6Q0RFRkdISUpTVFVWV1hZWmNkZWZnaGlqc3R1dnd4eXqCg4SFhoeIiYqSk5SVlpeYmZqio6Slpqeo
qaqys7S1tre4ubrCw8TFxsfIycrS09TV1tfY2dri4+Tl5ufo6ery8/T19vf4+fr/2gAMAwEAAhEDEQA/
AP1ZH7UPxEAA/wCEw8bnj/ob9f8A/k+v7U/1Nyj/AKF+G/8ABUP/AJE/llcSZlZf7dX/APBk/wDMX/hq
H4if9Df43/8ACv1//wCT6P8AU3Kf+hfhv/BUP/kQ/wBZcy/6Dq//AIMn/mH/AA1D8RP+hv8AG/8A4V+v
/wDyfR/qblP/AEL8N/4Kh/8AIh/rLmX/AEHV/wDwZP8AzD/hqH4if9Df43/8K/X/AP5Po/1Nyn/oX4b/
AMFQ/wDkQ/1lzL/oOr/+DJ/5h/w1D8RP+hv8b/8AhX6//wDJ9H+puU/9C/Df+Cof/Ih/rLmX/QdX/wDB
k/8AMT/hqH4if9Df43/8K/X/AP5Po/1Nyn/oX4b/AMFQ/wDkQ/1kzL/oOr/+DJ/5n2R+xz+234zt/iRp
nw+8a6vqXiDwZ4gs9baObXr+bUr/AMPajpmkX2tQ3FlqV2Zb57K7XT2t3tXkaJWkV4whVxJ+beJfAuU4
Th/FZ/hKEKOMw8qd+SKjGcZzjTs4q0bpyUlJK7s073VvuuBOLMxxGcYfJ8TWlVw1ZTtzu7hKMJTupPWz
UWnFu2qatrf9aP8AhfXgv+zv7U89/sfm+V5207N+M43fSv50P2w/kwr/AEFP42CgAoAKACgAoA9s/Z0/
s7/hcng3+1vP/s7Ov/avs2PP2f8ACL63t2buP9ZjP+zmvz7xU/5IPPf+4H/qRRPsvD//AJK7KP8AuL/6
ZqH7/wD/ABaT/hUfb7Ht/wBj7V9p8v8A9Cr+Oz+lz//Z
</value>
</data>
<metadata name="$this.TrayHeight" type="System.Int32, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>44</value>
</metadata>
</root>

1058
ArinWarev1/Forms_Input/Frm_Nanbang.vb Normal file
View File

File diff suppressed because it is too large Load Diff

1456
ArinWarev1/Forms_Input/Frm_New.Designer.vb generated Normal file
View File

File diff suppressed because it is too large Load Diff

252
ArinWarev1/Forms_Input/Frm_New.resx Normal file
View File

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

890
ArinWarev1/Forms_Input/Frm_New.vb Normal file
View File

@@ -0,0 +1,890 @@
Public Class Frm_New
Dim Init As Boolean = False
Dim SrcDrv As DataRowView
#Region "data Base 변경여부및 적용방법"
'''변경된내용을적용한다.
Public Overrides Function AcceptChanged() As Boolean
bs.EndEdit()
Dim BaseDS As DataSet = CType(bs.DataSource, DataSet)
Dim BaseDT As DataTable = BaseDS.Tables(bs.DataMember)
BaseDT.AcceptChanges()
Return True
End Function
'''변경된내용이있다면 취소한다.
Public Overrides Function RejectChanged() As Boolean
Dim BaseDS As DataSet = CType(bs.DataSource, DataSet)
Dim BaseDT As DataTable = BaseDS.Tables(bs.DataMember)
BaseDT.RejectChanges()
Return True
End Function
'''데이터에변형이있었는가?
Public Overrides Function HasChanged() As Boolean
bs.EndEdit()
Dim BaseDS As DataSet = CType(bs.DataSource, DataSet)
Dim BaseDT As DataTable = BaseDS.Tables(bs.DataMember)
Dim ChangeDT As DataTable = BaseDT.GetChanges
If Not ChangeDT Is Nothing Then Return True
Return False
End Function
'''기본데이터테이블을 반환합니다.
Public Function DT() As DataTable
Dim BaseDS As DataSet = CType(bs.DataSource, DataSet)
Return BaseDS.Tables(bs.DataMember)
End Function
#End Region
Public Sub New(_opentime)
' 이 호출은 디자이너에 필요합니다.
InitializeComponent()
OpenTime = _opentime
' InitializeComponent() 호출 뒤에 초기화 코드를 추가하십시오.
End Sub
Private Sub AddNewDataRow_Zone_Changed2(ByVal sender As Object, ByVal e As System.Data.DataColumnChangeEventArgs)
Dim oval As String = e.Row(e.Column.ColumnName).ToString
Dim nval As String = e.ProposedValue.ToString
If oval <> nval Then
Dim newdr As DS2.historyRow = DSHistory.history.NewhistoryRow
newdr.time = Now.ToString("yyyy-MM-dd HH:mm:ss")
newdr.tablename = "tbl_new"
newdr.ovalue = oval
newdr.nvalue = nval
newdr.column = e.Column.ColumnName
newdr.code = e.Row("code").ToString
DSHistory.history.AddhistoryRow(newdr)
DSHistory.history.AcceptChanges()
End If
End Sub
Private Sub ShowHistory()
Dim drv As DataRowView = Me.bs.Current
Dim f As New Frm_History("tbl_new", drv("code").ToString)
If f.ShowDialog = DialogResult.OK Then
drv(f.colname) = f.val
Me.Validate()
Me.bs.EndEdit()
My.Application.DoEvents()
MsgBox("값이 변경되었습니다", MsgBoxStyle.Information, "확인")
End If
End Sub
Private Sub MdiMain_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Me.Show()
My.Application.DoEvents()
'Work_msg_timer("잠시만 기다려주세요")
'CEnergy.ARINCLASS.SaveLoad_FrmSetting(Me)
'//프로필 관련
'//공유데이터셋에 연결한다.
Me.bs.DataSource = DSET1
'If Me.bs.Count < 1 Then
' Me.bs.AddNew()
' Dim DRv As DataRowView = bs.Current
' DRv("code") = Me.GetMaxCode(DSET1.tbl_new)
'End If
'//신재생
AddHandler DSET1.tbl_new.TableNewRow, AddressOf AddNewDataRow_new
AddHandler DSET1.tbl_new.ColumnChanging, AddressOf AddNewDataRow_Zone_Changed2
'//콤보컨트롤 바인딩
Binding_Zone()
'//모든컨트롤의 cTrl_enter 를 추가합니다
BindProperty(CType(Me.SplitContainer1.Panel2.Controls, Control.ControlCollection))
Me.bs.Filter = "code <> '0'"
If Me.Parameter <> "" Then Me.bs.Filter &= " and 기기종류 ='" + Me.Parameter + "'"
' Me.lb_grpname.Text = Me.Parameter
Me.Init = True
Try
Me.bs.Position = CEnergy.ARINCLASS.Read_LastPos_Frm(Me)
Catch ex As Exception
Me.bs.MoveFirst()
End Try
bs_CurrentChanged(sender, e)
Me.Validate_Control()
AddDebug("▲ Form Load")
End Sub
#Region "Control_Enter"
Private Sub BindProperty(ByVal Ctl As Control.ControlCollection)
For Each C As Control In Ctl
If C.Controls.Count > 1 Then
BindProperty(C.Controls)
Else
If C.GetType.ToString.ToUpper.IndexOf("MYTB") <> -1 Then
AddHandler CType(C, MyTb).KeyDown, AddressOf TextBOx_KeyDown
ElseIf C.GetType.ToString.ToUpper.IndexOf("MYCMB") <> -1 Then
AddHandler CType(C, MyCmb).KeyDown, AddressOf Cmd_KeyDown
End If
End If
Next
End Sub
Private Sub TextBOx_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs)
If e.KeyCode = Keys.Enter AndAlso e.Control Then
Try
Dim Field As String = (CType(sender, MyTb).DataBindings.Item("text").BindingMemberInfo.BindingField)
For Each Dr As DataRow In Dt.Select(Me.bs.Filter, "")
Dr(Field) = CType(sender, MyTb).Text
Next
Work_msg_timer("모든값이 변경되었습니다", 25)
Catch ex As Exception
End Try
End If
End Sub
Private Sub Cmd_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs)
If e.KeyCode = Keys.Enter AndAlso e.Control Then
Try
Dim Field As String = (CType(sender, MyCmb).DataBindings.Item("selectedvalue").BindingMemberInfo.BindingField)
For Each Dr As DataRow In Dt.Select(Me.bs.Filter, "")
Dr(Field) = CType(sender, MyCmb).SelectedValue
Next
Work_msg_timer("모든값이 변경되었습니다", 25)
Catch ex As Exception
End Try
End If
End Sub
#End Region
#Region "신재생"
Private Function GetMaxCode(ByVal dt As DataTable) As String
Try
Dim Dr As DataRow = dt.Select("", "code desc")(0)
Return Format(CInt(Dr("code")) + 1, "0000")
Catch ex As Exception
Return "0001"
End Try
End Function
Private Sub Cmb_DeleteVal(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs)
If e.KeyCode = Keys.Delete Then
CType(sender, ComboBox).SelectedValue = ""
End If
End Sub
Private Sub Binding_Zone()
'//신재생
Dim bs_기기종류ComboBox As New BindingSource(DSET1, "tbl_common")
bs_기기종류ComboBox.Filter = "gubun='1028'"
bs_기기종류ComboBox.Sort = "code"
Me.기기종류ComboBox.DataSource = bs_기기종류ComboBox
기기종류ComboBox.DisplayMember = "name"
기기종류ComboBox.ValueMember = "name"
Me.기기종류ComboBox.DataBindings.Add("selectedvalue", Me.bs, "기기종류")
AddHandler 기기종류ComboBox.KeyDown, AddressOf Cmb_DeleteVal
Dim bs_가동연료ComboBox As New BindingSource(DSET1, "tbl_common")
bs_가동연료ComboBox.Filter = "gubun='1066'"
bs_가동연료ComboBox.Sort = "code"
Me.cmb_가동연료.DataSource = bs_가동연료ComboBox
cmb_가동연료.DisplayMember = "name"
cmb_가동연료.ValueMember = "name"
Me.cmb_가동연료.DataBindings.Add("selectedvalue", Me.bs, "가동연료")
'AddHandler 지열가동연료ComboBox.KeyDown, AddressOf Cmb_DeleteVal
Dim bs_태양열종류ComboBox As New BindingSource(DSET1, "tbl_common")
bs_태양열종류ComboBox.Filter = "gubun='1057'"
bs_태양열종류ComboBox.Sort = "code"
Me.cmb_태양열시스템종류.DataSource = bs_태양열종류ComboBox
cmb_태양열시스템종류.DisplayMember = "name"
cmb_태양열시스템종류.ValueMember = "name"
Me.cmb_태양열시스템종류.DataBindings.Add("selectedvalue", Me.bs, "태양열종류")
'AddHandler 태양열종류ComboBox.KeyDown, AddressOf Cmb_DeleteVal
Dim bs_집열기유형ComboBox As New BindingSource(DSET1, "tbl_common")
bs_집열기유형ComboBox.Filter = "gubun='1058'"
bs_집열기유형ComboBox.Sort = "code"
Me.cmb_집열기유형.DataSource = bs_집열기유형ComboBox
cmb_집열기유형.DisplayMember = "name"
cmb_집열기유형.ValueMember = "name"
Me.cmb_집열기유형.DataBindings.Add("selectedvalue", Me.bs, "집열기유형")
'AddHandler 집열기유형ComboBox.KeyDown, AddressOf Cmb_DeleteVal
'집열기유형ComboBox
Dim bs_집열판방위ComboBox As New BindingSource(DSET1, "tbl_common")
bs_집열판방위ComboBox.Filter = "gubun='1059'"
bs_집열판방위ComboBox.Sort = "code"
Me.cmb_집열판방위.DataSource = bs_집열판방위ComboBox
cmb_집열판방위.DisplayMember = "name"
cmb_집열판방위.ValueMember = "name"
Me.cmb_집열판방위.DataBindings.Add("selectedvalue", Me.bs, "집열판방위")
'AddHandler 집열판방위ComboBox.KeyDown, AddressOf Cmb_DeleteVal
Dim bs_태양열시스템의성능ComboBox As New BindingSource(DSET1, "tbl_common")
bs_태양열시스템의성능ComboBox.Filter = "gubun='1060'"
bs_태양열시스템의성능ComboBox.Sort = "code"
Me.cmb_태양열시스템의성능.DataSource = bs_태양열시스템의성능ComboBox
cmb_태양열시스템의성능.DisplayMember = "name"
cmb_태양열시스템의성능.ValueMember = "name"
Me.cmb_태양열시스템의성능.DataBindings.Add("selectedvalue", Me.bs, "태양열시스템의성능")
'AddHandler 태양열시스템의성능ComboBox.KeyDown, AddressOf Cmb_DeleteVal
Dim bs_축열탱크설치장소ComboBox As New BindingSource(DSET1, "tbl_common")
bs_축열탱크설치장소ComboBox.Filter = "gubun='1061'"
bs_축열탱크설치장소ComboBox.Sort = "code"
Me.cmb_축열탱크설치장소.DataSource = bs_축열탱크설치장소ComboBox
cmb_축열탱크설치장소.DisplayMember = "name"
cmb_축열탱크설치장소.ValueMember = "name"
Me.cmb_축열탱크설치장소.DataBindings.Add("selectedvalue", Me.bs, "축열탱크설치장소")
'AddHandler 축열탱크설치장소ComboBox.KeyDown, AddressOf Cmb_DeleteVal
Dim bs_태양광모듈기울기ComboBox As New BindingSource(DSET1, "tbl_common")
bs_태양광모듈기울기ComboBox.Filter = "gubun='1062'"
bs_태양광모듈기울기ComboBox.Sort = "code"
Me.cmb_모듈기울기.DataSource = bs_태양광모듈기울기ComboBox
cmb_모듈기울기.DisplayMember = "name"
cmb_모듈기울기.ValueMember = "name"
Me.cmb_모듈기울기.DataBindings.Add("selectedvalue", Me.bs, "태양광모듈기울기")
'AddHandler 태양광모듈기울기ComboBox.KeyDown, AddressOf Cmb_DeleteVal
Dim bs_태양광모듈방위ComboBox As New BindingSource(DSET1, "tbl_common")
bs_태양광모듈방위ComboBox.Filter = "gubun='1063'"
bs_태양광모듈방위ComboBox.Sort = "code"
Me.cmb_모듈방위.DataSource = bs_태양광모듈방위ComboBox
cmb_모듈방위.DisplayMember = "name"
cmb_모듈방위.ValueMember = "name"
Me.cmb_모듈방위.DataBindings.Add("selectedvalue", Me.bs, "태양광모듈방위")
'AddHandler 태양광모듈방위ComboBox.KeyDown, AddressOf Cmb_DeleteVal
Dim bs_태양광모듈종류ComboBox As New BindingSource(DSET1, "tbl_common")
bs_태양광모듈종류ComboBox.Filter = "gubun='1064'"
bs_태양광모듈종류ComboBox.Sort = "code"
Me.cmb_모듈종류.DataSource = bs_태양광모듈종류ComboBox
cmb_모듈종류.DisplayMember = "name"
cmb_모듈종류.ValueMember = "name"
Me.cmb_모듈종류.DataBindings.Add("selectedvalue", Me.bs, "태양광모듈종류")
'AddHandler 태양광모듈종류ComboBox.KeyDown, AddressOf Cmb_DeleteVal
Dim bs_태양광모듈적용타입ComboBox As New BindingSource(DSET1, "tbl_common")
bs_태양광모듈적용타입ComboBox.Filter = "gubun='1065'"
bs_태양광모듈적용타입ComboBox.Sort = "code"
Me.cmb_모듈적용타입.DataSource = bs_태양광모듈적용타입ComboBox
cmb_모듈적용타입.DisplayMember = "name"
cmb_모듈적용타입.ValueMember = "name"
Me.cmb_모듈적용타입.DataBindings.Add("selectedvalue", Me.bs, "태양광모듈적용타입")
'AddHandler 태양광모듈적용타입ComboBox.KeyDown, AddressOf Cmb_DeleteVal
Dim bs_열교환기설치여부ComboBox As New BindingSource(DSET1, "tbl_common")
bs_열교환기설치여부ComboBox.Filter = "gubun='1054'"
bs_열교환기설치여부ComboBox.Sort = "code"
Me.cmb_열교환기설치여부.DataSource = bs_열교환기설치여부ComboBox
cmb_열교환기설치여부.DisplayMember = "name"
cmb_열교환기설치여부.ValueMember = "name"
Me.cmb_열교환기설치여부.DataBindings.Add("selectedvalue", Me.bs, "열교환기설치여부")
'AddHandler 열교환기설치여부ComboBox.KeyDown, AddressOf Cmb_DeleteVal
Dim bs_팽창탱크설치여부ComboBox As New BindingSource(DSET1, "tbl_common")
bs_팽창탱크설치여부ComboBox.Filter = "gubun='1054'"
bs_팽창탱크설치여부ComboBox.Sort = "code"
Me.cmb_지열팽창설치여부.DataSource = bs_팽창탱크설치여부ComboBox
cmb_지열팽창설치여부.DisplayMember = "name"
cmb_지열팽창설치여부.ValueMember = "name"
Me.cmb_지열팽창설치여부.DataBindings.Add("selectedvalue", Me.bs, "팽창탱크설치여부")
'AddHandler 팽창탱크설치여부ComboBox.KeyDown, AddressOf Cmb_DeleteVal
End Sub
Private Sub MdiMain_FormClosed(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosedEventArgs) Handles Me.FormClosed
CEnergy.ARINCLASS.SaveLoad_FrmSetting(Me, Me.bs.Position, True)
End Sub
Private Sub MdiMain_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown
Select Case e.KeyCode
Case Keys.F12
ShowHistory()
End Select
End Sub
#Region "제어버튼"
Private Sub ToolStripButton48_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt_add.Click
If Not EndEdit(Me.bs) Then Return
Me.bs.AddNew()
'Dim DRv As DataRowView = bs.Current
'DRv("code") = Me.GetMaxCode(DSET1.tbl_new)
INitRow(Me.Controls)
MdiMain.RefreshMenuList(TreeTag)
End Sub
Private Sub ToolStripButton49_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt_Del.Click
Dbbase.DelCrow(Me.bs, True)
MdiMain.RefreshMenuList(TreeTag)
End Sub
Private Sub ToolStripButton51_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt_cancel.Click
If Not EndEdit(Me.bs) Then Return
Data_Cancel(DSET1.tbl_profile, Nothing)
MdiMain.RefreshMenuList(TreeTag)
End Sub
#End Region
Private Sub AddNewDataRow_new(ByVal sender As Object, ByVal e As System.Data.DataTableNewRowEventArgs)
' MsgBox("new")
e.Row.Item("code") = GetMaxCode(DSET1.tbl_new)
e.Row.Item("설명") = "신규데이터"
End Sub
#End Region
Private Sub 태양열종류ComboBox_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles cmb_태양열시스템종류.KeyDown
If e.KeyCode = Keys.V And e.Control Then
e.Handled = True
e.SuppressKeyPress = False
'//클립보드붙여넣기
Dim CB() As String = My.Computer.Clipboard.GetText.Split(CChar(vbCrLf))
If CB.GetUpperBound(0) <> 12 Then
MsgBox("붙여넣기가 호환되는 데이터가 아닙니다.", MsgBoxStyle.Information, "확인")
Return
End If
Dim Cnt As Short = 0
For i As Integer = 0 To CB.GetUpperBound(0)
Select Case i
Case 0 '//사용프로필 앞에 두개를 숫자4자로변환
'If CB(i).Trim = "" Then Me.태양열종류ComboBox.SelectedIndex = -1
If CB(i).Trim = "" Then
Me.cmb_태양열시스템종류.SelectedIndex = 0
Else
Me.cmb_태양열시스템종류.Text = CB(i).Trim
End If
' Me.태양열종류ComboBox.Text = CStr(IIf(CB(i).Trim = "", "0", CB(i).Trim))
Case 1 '//공란
If CB(i).Trim = "" Then
Me.cmb_집열기유형.SelectedIndex = 0
Else
Me.cmb_집열기유형.Text = CB(i).Trim
End If
'Me.집열기유형ComboBox.Text = CStr(IIf(CB(i).Trim = "", "0", CB(i).Trim))
Case 2 '//면적
Me.tb_집열판면적.Text = CB(i).Trim
Case 3
If CB(i).Trim = "" Then
Me.cmb_집열판방위.SelectedIndex = 0
Else
Me.cmb_집열판방위.Text = CB(i).Trim
End If
'Me.집열판방위ComboBox.Text = CStr(IIf(CB(i).Trim = "", "0", CB(i).Trim))
Case 4
Me.tB_솔라펌프출력.Text = CB(i).Trim
Case 5
If CB(i).Trim = "" Then
Me.cmb_태양열시스템의성능.SelectedIndex = 0
Else
Me.cmb_태양열시스템의성능.Text = CB(i).Trim
End If
' Me.태양열시스템의성능ComboBox.Text = CStr(IIf(CB(i).Trim = "", "0", CB(i).Trim))
Case 6
Me.tb_무손실효율계수.Text = CB(i).Trim
Case 7
Me.tb_1차손실계수.Text = CB(i).Trim
Case 8
Me.tb_2차손실계수.Text = CB(i).Trim
Case 9
Case 10
Me.tb_축열탱크체적급.Text = CB(i).Trim
Case 11
Me.tb_축열탱크체적난.Text = CB(i).Trim
Case 12
If CB(i).Trim = "" Then
Me.cmb_축열탱크설치장소.SelectedIndex = 0
Else
Me.cmb_축열탱크설치장소.Text = CB(i).Trim
End If
'Me.축열탱크설치장소ComboBox.Text = CStr(IIf(CB(i).Trim = "", "0", CB(i).Trim))
End Select
Next
Me.bs.EndEdit()
End If
End Sub
Private Sub 태양광모듈면적NTb_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles tb_모듈면적.KeyDown
If e.KeyCode = Keys.V And e.Control Then
e.Handled = True
e.SuppressKeyPress = False
'//클립보드붙여넣기
Dim CB() As String = My.Computer.Clipboard.GetText.Split(CChar(vbCrLf))
If CB.GetUpperBound(0) < 3 Then
MsgBox("정상적인 데이터가 아닙니다")
Return
End If
Dim Cnt As Short = 0
For i As Integer = 0 To CB.GetUpperBound(0)
Select Case i
Case 0 '//사용프로필 앞에 두개를 숫자4자로변환
Me.tb_모듈면적.Text = CB(i).Trim
Case 1 '//공란
If CB(i).Trim = "" Then Me.cmb_모듈기울기.SelectedIndex = -1
Me.cmb_모듈기울기.Text = CB(i).Trim
Case 2 '//면적
If CB(i).Trim = "" Then Me.cmb_모듈방위.SelectedIndex = -1
Me.cmb_모듈방위.Text = CB(i).Trim
Case 3
If CB(i).Trim = "" Then Me.cmb_모듈종류.SelectedIndex = -1
Me.cmb_모듈종류.Text = CB(i).Trim
Case 4
If CB(i).Trim = "" Then Me.cmb_모듈적용타입.SelectedIndex = -1
Me.cmb_모듈적용타입.Text = CB(i).Trim
End Select
Next
Me.bs.EndEdit()
End If
End Sub
Private Sub 지열가동연료ComboBox_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles cmb_가동연료.KeyDown, tb_지열펌프용량.KeyDown
End Sub
Private Sub bs_CurrentChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bs.CurrentChanged
'//존이 옴겨질떄 해당 존의 사용량을 표시
If Not Init Then Return
Try
Dim Drv As DataRowView = CType(bs.Current, DataRowView)
Me.tb_태양열_cnt1.Text = CStr(DSET1.tbl_nanbangkiki.Select("신재생연결여부='시스템연결' and 연결된시스템='" & Drv("Code").ToString & "'").GetUpperBound(0) + 1)
Me.tb_태양열_cnt2.Text = CStr(DSET1.tbl_nangbangkiki.Select("신재생연결여부='시스템연결' and 연결된시스템='" & Drv("Code").ToString & "'").GetUpperBound(0) + 1)
Catch ex As Exception
Me.tb_태양열_cnt1.Text = ex.Message.ToString
Me.tb_태양열_cnt2.Text = ex.Message.ToString
End Try
Dim drv2 As DataRowView = Me.bs.Current
If drv2 Is Nothing Then Return
Me.lb_code.Text = "[" + drv2("code").ToString + "]"
Me.bs.EndEdit()
End Sub
Private Sub 기기종류ComboBox_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles 기기종류ComboBox.KeyDown
If e.KeyCode = Keys.V And e.Control Then
e.Handled = True
e.SuppressKeyPress = False
'//클립보드붙여넣기
Dim CB() As String = My.Computer.Clipboard.GetText.Split(CChar(vbCrLf))
If CB.GetUpperBound(0) < 2 Then
MsgBox("정상적인 데이터가 아닙니다")
Return
End If
For ii As Integer = 0 To CType(CB(0).Split(CChar(vbTab)), String()).GetUpperBound(0)
If Me.bs.Count = 0 OrElse ii > 0 Then Me.bt_add.PerformClick() '//한줄추가
Dim Cnt As Short = 0
For i As Integer = 0 To CB.GetUpperBound(0)
Select Case i
Case 0
CType(bs.Current, DataRowView)("설명") = CB(i).Split(CChar(vbTab))(ii).Trim
Case 5
If CB(i).Split(CChar(vbTab))(ii).Trim = "" Then
Me.기기종류ComboBox.SelectedIndex = 0
Else
Me.기기종류ComboBox.Text = CB(i).Split(CChar(vbTab))(ii).Trim
End If
Case 6
' If CB(i).Split(CChar(vbTab))(ii).Trim = "" Then Me.열교가산치ComboBox.SelectedIndex = -1
If CB(i).Split(CChar(vbTab))(ii).Trim = "" Then
Me.cmb_가동연료.SelectedIndex = 0
Else
Me.cmb_가동연료.Text = CB(i).Split(CChar(vbTab))(ii).Trim
End If
'Me.열교가산치ComboBox.Text = CStr(IIf( CB(i).Split(CChar(vbTab))(ii).Trim = "", "0", CB(i).Split(CChar(vbTab))(ii).Trim))
Case 9
'If CB(i).Split(CChar(vbTab))(ii).Trim = "" Then Me.cmb_냉난방방식.SelectedIndex = -1
If CB(i).Split(CChar(vbTab))(ii).Trim = "" Then
Me.cmb_태양열시스템종류.SelectedIndex = 0
Else
Me.cmb_태양열시스템종류.Text = CB(i).Split(CChar(vbTab))(ii).Trim
End If
'Me.cmb_냉난방방식.Text = CStr(IIf( CB(i).Split(CChar(vbTab))(ii).Trim = "", "0", CB(i).Split(CChar(vbTab))(ii).Trim))
Case 10
'If CB(i).Split(CChar(vbTab))(ii).Trim = "" Then Me.냉난방공조ComboBox.SelectedIndex = -1
If CB(i).Split(CChar(vbTab))(ii).Trim = "" Then
Me.cmb_집열기유형.SelectedIndex = 0
Else
Me.cmb_집열기유형.Text = CB(i).Split(CChar(vbTab))(ii).Trim
End If
Case 11 '//열생산지정
' Me.TabControl10.SelectedIndex = 1
Me.tb_집열판면적.Text = CB(i).Split(CChar(vbTab))(ii).Trim
Case 12
'If CB(i).Split(CChar(vbTab))(ii).Trim = "" Then Me.냉난방공조ComboBox.SelectedIndex = -1
If CB(i).Split(CChar(vbTab))(ii).Trim = "" Then
Me.cmb_집열판방위.SelectedIndex = 0
Else
Me.cmb_집열판방위.Text = CB(i).Split(CChar(vbTab))(ii).Trim
End If
Case 13 '//열생산지정
' Me.TabControl10.SelectedIndex = 1
Me.tB_솔라펌프출력.Text = CB(i).Split(CChar(vbTab))(ii).Trim
Case 14
'If CB(i).Split(CChar(vbTab))(ii).Trim = "" Then Me.냉난방공조ComboBox.SelectedIndex = -1
If CB(i).Split(CChar(vbTab))(ii).Trim = "" Then
Me.cmb_태양열시스템의성능.SelectedIndex = 0
Else
Me.cmb_태양열시스템의성능.Text = CB(i).Split(CChar(vbTab))(ii).Trim
End If
Case 15 '//열생산지정
' Me.TabControl10.SelectedIndex = 1
Me.tb_무손실효율계수.Text = CB(i).Split(CChar(vbTab))(ii).Trim
Case 16 '//열생산지정
Me.tb_1차손실계수.Text = CB(i).Split(CChar(vbTab))(ii).Trim
Case 17 '//열생산지정
Me.tb_2차손실계수.Text = CB(i).Split(CChar(vbTab))(ii).Trim
Case 19 '//열생산지정
Me.tb_축열탱크체적급.Text = CB(i).Split(CChar(vbTab))(ii).Trim
Case 20 '//열생산지정
Me.tb_축열탱크체적난.Text = CB(i).Split(CChar(vbTab))(ii).Trim
Case 21
'If CB(i).Split(CChar(vbTab))(ii).Trim = "" Then Me.냉난방공조ComboBox.SelectedIndex = -1
If CB(i).Split(CChar(vbTab))(ii).Trim = "" Then
Me.cmb_축열탱크설치장소.SelectedIndex = 0
Else
Me.cmb_축열탱크설치장소.Text = CB(i).Split(CChar(vbTab))(ii).Trim
End If
Case 24 '//열생산지정
Me.tb_모듈면적.Text = CB(i).Split(CChar(vbTab))(ii).Trim
Case 25
If CB(i).Split(CChar(vbTab))(ii).Trim = "" Then
Me.cmb_모듈기울기.SelectedIndex = 0
Else
Me.cmb_모듈기울기.Text = CB(i).Split(CChar(vbTab))(ii).Trim
End If
Case 26 '//열생산지정
If CB(i).Split(CChar(vbTab))(ii).Trim = "" Then
Me.cmb_모듈방위.SelectedIndex = 0
Else
Me.cmb_모듈방위.Text = CB(i).Split(CChar(vbTab))(ii).Trim
End If
Case 27
If CB(i).Split(CChar(vbTab))(ii).Trim = "" Then
Me.cmb_모듈종류.SelectedIndex = 0
Else
Me.cmb_모듈종류.Text = CB(i).Split(CChar(vbTab))(ii).Trim
End If
Case 28 '//열생산지정
If CB(i).Split(CChar(vbTab))(ii).Trim = "" Then
Me.cmb_모듈적용타입.SelectedIndex = 0
Else
Me.cmb_모듈적용타입.Text = CB(i).Split(CChar(vbTab))(ii).Trim
End If
' Me.cmb_모듈적용타입.Text = CB(i).Split(CChar(vbTab))(ii).Trim
Case 31 '//열생산지정
Me.tb_지열펌프용량.Text = CB(i).Split(CChar(vbTab))(ii).Trim
Case 32 '//열생산지정
Me.tb_열성능비.Text = CB(i).Split(CChar(vbTab))(ii).Trim
Case 33 '//열생산지정
Me.tb_열성능비2.Text = CB(i).Split(CChar(vbTab))(ii).Trim
Case 34 '//열생산지정
Me.tb_1차펌프용량.Text = CB(i).Split(CChar(vbTab))(ii).Trim
Case 35 '//열생산지정
Me.tb_2차펌프용량.Text = CB(i).Split(CChar(vbTab))(ii).Trim
Case 36
'If CB(i).Split(CChar(vbTab))(ii).Trim = "" Then Me.냉난방공조ComboBox.SelectedIndex = -1
If CB(i).Split(CChar(vbTab))(ii).Trim = "" Then
Me.cmb_열교환기설치여부.SelectedIndex = 0
Else
Me.cmb_열교환기설치여부.Text = CB(i).Split(CChar(vbTab))(ii).Trim
End If
Case 37
'If CB(i).Split(CChar(vbTab))(ii).Trim = "" Then Me.냉난방공조ComboBox.SelectedIndex = -1
If CB(i).Split(CChar(vbTab))(ii).Trim = "" Then
Me.cmb_지열팽창설치여부.SelectedIndex = 0
Else
Me.cmb_지열팽창설치여부.Text = CB(i).Split(CChar(vbTab))(ii).Trim
End If
Case 38 '//열생산지정
Me.tb_지열팽창탱크체적.Text = CB(i).Split(CChar(vbTab))(ii).Trim
Case 41 '//열생산지정
Me.tb_열생산능력.Text = CB(i).Split(CChar(vbTab))(ii).Trim
Case 42 '//열생산지정
Me.tb_열생산효율.Text = CB(i).Split(CChar(vbTab))(ii).Trim
Case 43 '//열생산지정
Me.tb_발전효율.Text = CB(i).Split(CChar(vbTab))(ii).Trim
End Select
Next
Next
Me.bs.EndEdit()
End If
End Sub
Private Sub 기기종류ComboBox_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 기기종류ComboBox.SelectedIndexChanged
Validate_Control()
End Sub
Private Sub Validate_Control()
If Not Init Then Return
Try
Select Case Me.기기종류ComboBox.Text
Case "태양열", "태양광"
Me.cmb_가동연료.SelectedIndex = 0
Me.cmb_가동연료.Enabled = False
Case Else
Me.cmb_가동연료.Enabled = True
End Select
Catch ex As Exception
End Try
Try
Select Case Me.cmb_태양열시스템의성능.Text
Case "성능치"
Me.tb_무손실효율계수.Enabled = True
Me.tb_1차손실계수.Enabled = True
Me.tb_2차손실계수.Enabled = True
Case Else
Me.tb_무손실효율계수.Enabled = False
Me.tb_1차손실계수.Enabled = False
Me.tb_2차손실계수.Enabled = False
End Select
Catch ex As Exception
End Try
Try
If 기기종류ComboBox.Text = "태양열" Then
태양열Panel.Enabled = True
축열탱크Panel.Enabled = True
열병합Panel.Enabled = False
태양광Panel.Enabled = False
지열Panel.Enabled = False
ElseIf 기기종류ComboBox.Text = "열병합" Then
태양열Panel.Enabled = False
축열탱크Panel.Enabled = False
열병합Panel.Enabled = True
태양광Panel.Enabled = False
지열Panel.Enabled = False
ElseIf 기기종류ComboBox.Text = "태양광" Then
태양열Panel.Enabled = False
축열탱크Panel.Enabled = False
열병합Panel.Enabled = False
태양광Panel.Enabled = True
지열Panel.Enabled = False
ElseIf 기기종류ComboBox.Text = "지열" Then
태양열Panel.Enabled = False
축열탱크Panel.Enabled = False
열병합Panel.Enabled = False
태양광Panel.Enabled = False
지열Panel.Enabled = True
Else
태양열Panel.Enabled = False
축열탱크Panel.Enabled = False
열병합Panel.Enabled = False
태양광Panel.Enabled = False
지열Panel.Enabled = False
End If
Catch ex As Exception
End Try
'//건기연 추가 (2010.04.07)
'MsgBox(Me.cmb_가동연료.Text)
Try
Select Case Me.cmb_가동연료.Text
Case "전기"
Me.cmb_열교환기설치여부.Enabled = False
Case Else
Me.cmb_열교환기설치여부.Enabled = True
End Select
Catch ex As Exception
End Try
Try
Select Case Me.cmb_모듈기울기.Text
Case "수평", "(없음)"
Me.cmb_모듈방위.Enabled = False
Case Else
Me.cmb_모듈방위.Enabled = True
End Select
Catch ex As Exception
End Try
Try
Select Case Me.cmb_모듈종류.Text
Case "성능치 입력"
Me.tb_모듈효율.Enabled = True
Case Else
Me.tb_모듈효율.Enabled = False
End Select
Catch ex As Exception
End Try
End Sub
Private Sub ToolStripButton49_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs)
If e.Button = Windows.Forms.MouseButtons.Right Then
If MsgBox("전체삭제를 하시겠습니까?", MsgBoxStyle.Information Or MsgBoxStyle.OkCancel, "확인") = MsgBoxResult.Ok Then
Dim dR() As DataRow = DSET1.tbl_new.Select(Me.bs.Filter, "")
For i As Integer = dR.GetUpperBound(0) To 0 Step -1
dR(i).Delete()
Next
DSET1.tbl_new.AcceptChanges()
End If
End If
End Sub
Private Sub bt_Del_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles bt_Del.MouseDown
If e.Button = Windows.Forms.MouseButtons.Right Then
If MsgBox("전체삭제를 하시겠습니까?", MsgBoxStyle.Information Or MsgBoxStyle.OkCancel, "확인") = MsgBoxResult.Ok Then
Dim dR() As DataRow = DSET1.tbl_new.Select(Me.bs.Filter, "")
For i As Integer = dR.GetUpperBound(0) To 0 Step -1
dR(i).Delete()
Next
DSET1.tbl_new.AcceptChanges()
End If
End If
End Sub
Private Sub cmb_가동연료_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmb_가동연료.SelectedIndexChanged
If Me.cmb_가동연료.SelectedIndex <> -1 Then Me.Validate_Control()
End Sub
Private Sub dv_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles dv.MouseUp
If Prj.UserAuthType = "ADMIN" OrElse Prj.UserAuthType = "BOTH" OrElse Prj.UserAuthType = "BOTH2" OrElse Prj.UserAuthType = "BOTH1" Then '//2011.03.08 추가
If e.Button = Windows.Forms.MouseButtons.Right Then
Dim Frm_FilterA As New Frm_Filter
Frm_FilterA.ColumTitle = getColCaption(Me.Dt)
Frm_FilterA.ColumList = getColName(Me.Dt)
Frm_FilterA.Colorlist = ""
'//getfiled 며령으로 모든 필드명을 찾아서
'//그것을 그 화면으로 보내는거에요
'//그런데 여기서 어떤필드는 색을 달리하겟다라고할려면 해당 :::: 정보도 같이 넘겨줘야해요
'//그부분 구현이 좀 매끄럽게 생각정리가안되네요
Frm_FilterA.Numfield = "" '//20100618 Color 리스트처럼 , 구분해서 필드들을 모두 넣으세요.(=, >= 등을 사용하기 위해서는 해당 항목을 추가 요망)
Frm_FilterA.Default_Filter = "code <> '0'"
If Frm_FilterA.ShowDialog <> Windows.Forms.DialogResult.OK Then Return '//창떳을떄 확인아ㅣ고 취소눌르면 다음을 수행하지않는다는거에요.
Dim Filter As String = Frm_FilterA.tb_filter.Text '//값은 아까 그 텍박에 잇구요.
Try
Me.bs.Filter = Filter
'//바꾸기값이 있으면 변경 20100618
If Frm_FilterA.cmb_fieldc.SelectedIndex >= 0 AndAlso Frm_FilterA.cmb_fieldc.Text.ToLower <> "code" AndAlso _
Frm_FilterA.tb_valuec.Text <> "" Then
Dim Drow() As DataRow = Me.Dt.Select(Filter)
For Each Dr As DataRow In Drow
Dr(Frm_FilterA.cmb_fieldc.Text) = Frm_FilterA.tb_valuec.Text
Next
MsgBox("바꾸기 완료", MsgBoxStyle.Information, "확인")
End If
Catch ex As Exception
Me.bs.Filter = ""
End Try
End If
End If
End Sub
Private Sub dv_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles dv.KeyDown
'//여기보시면 alt+d 누르면 한줄을 경고없이(falsE)삭제하도록 햇어요.. 사실원래 밋alt +d 인데.. ㅎㅎ 잘못해서 ctrl 됫다는
If Prj.UserAuthType = "ADMIN" OrElse Prj.UserAuthType = "BOTH" OrElse Prj.UserAuthType = "BOTH2" OrElse Prj.UserAuthType = "BOTH1" Then '//2011.03.08 추가
Select Case e.KeyCode
Case Keys.D
If e.Alt Then
Dbbase.DelCrow(Me.bs, False)
End If
Case Keys.C
If e.Control Then
Me.SrcDrv = Me.bs.Current
If Me.SrcDrv Is Nothing Then
MsgBox("저장할 ROW가 없습니다", MsgBoxStyle.Information, "확인")
Return
End If
' My.Computer.Clipboard.SetData("ZDATA", Drv)
End If
Case Keys.V
If e.Control Then
If SrcDrv Is Nothing Then Return
Me.bt_add.PerformClick() '//신규추가
Dim NewDrv As DataRowView = Me.bs.Current
For Each C As DataColumn In Me.Dt.Columns
If C.ColumnName.ToUpper = "CODE" Then
ElseIf C.ColumnName.ToUpper = "설명" Then
NewDrv(C.ColumnName) = SrcDrv(C.ColumnName) & "#1"
Else
NewDrv(C.ColumnName) = SrcDrv(C.ColumnName)
End If
Next
Me.bs.EndEdit()
bs.MoveLast()
End If
End Select
End If
End Sub
Private Sub cmb_지열팽창설치여부_SelectedValueChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles cmb_지열팽창설치여부.SelectedValueChanged
Try
Select Case Me.cmb_지열팽창설치여부.Text
Case "예"
Me.tb_지열팽창탱크체적.Enabled = True
Case Else
Me.tb_지열팽창탱크체적.Enabled = False
End Select
Catch ex As Exception
End Try
End Sub
Private Sub cmb_모듈기울기_SelectedValueChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles cmb_모듈기울기.SelectedValueChanged
Validate_Control()
End Sub
Private Sub dv_CellContentClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles dv.CellContentClick
End Sub
Private Sub cmb_태양열시스템의성능_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmb_태양열시스템의성능.SelectedIndexChanged
Validate_Control()
End Sub
Private Sub cmb_모듈종류_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmb_모듈종류.SelectedIndexChanged
Validate_Control()
End Sub
End Class

896
ArinWarev1/Forms_Input/Frm_YK.Designer.vb generated Normal file
View File

@@ -0,0 +1,896 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class Frm_YK
Inherits CForm
'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.components = New System.ComponentModel.Container()
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(Frm_YK))
Dim DataGridViewCellStyle3 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle1 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle2 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Me.SplitContainer1 = New System.Windows.Forms.SplitContainer()
Me.dv = New CEnergy.arindv()
Me.Column2 = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.DataGridViewTextBoxColumn1 = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.bs = New System.Windows.Forms.BindingSource(Me.components)
Me.DS = New Eco2Ar.DS()
Me.bn = New System.Windows.Forms.BindingNavigator(Me.components)
Me.lbl_count = New System.Windows.Forms.ToolStripLabel()
Me.bt_add = New System.Windows.Forms.ToolStripButton()
Me.bt_Del = New System.Windows.Forms.ToolStripButton()
Me.bt_cancel = New System.Windows.Forms.ToolStripButton()
Me.ToolStripSeparator1 = New System.Windows.Forms.ToolStripSeparator()
Me.lbl_pos = New System.Windows.Forms.ToolStripLabel()
Me.lb_code = New System.Windows.Forms.ToolStripLabel()
Me.MyCmb1 = New Eco2Ar.MyCmb()
Me.Label15 = New System.Windows.Forms.Label()
Me.PictureBox4 = New System.Windows.Forms.PictureBox()
Me.GroupBox1 = New System.Windows.Forms.GroupBox()
Me.tb_투과율 = New Eco2Ar.MyTb()
Me.Label4 = New System.Windows.Forms.Label()
Me.tb_발코니투과율 = New System.Windows.Forms.TextBox()
Me.Label3 = New System.Windows.Forms.Label()
Me.tb_발코니열관류율 = New System.Windows.Forms.TextBox()
Me.Label2 = New System.Windows.Forms.Label()
Me.chk_발코니여부 = New System.Windows.Forms.CheckBox()
Me.NTb_창호세부설명 = New System.Windows.Forms.TextBox()
Me.NTb_일사에너지투과율 = New System.Windows.Forms.TextBox()
Me.NTb_창호열관류율 = New System.Windows.Forms.TextBox()
Me.lbl_창호세부설명 = New System.Windows.Forms.Label()
Me.Panel2 = New System.Windows.Forms.Panel()
Me.UserControl11 = New Eco2Ar.YkCtl()
Me.lbl_일사에너지투과율 = New System.Windows.Forms.Label()
Me.cmb_열전도율 = New System.Windows.Forms.ComboBox()
Me.bs_detail = New System.Windows.Forms.BindingSource(Me.components)
Me.lbl_창호열관류율 = New System.Windows.Forms.Label()
Me.Label1 = New System.Windows.Forms.Label()
Me.btn_후경색 = New System.Windows.Forms.Button()
Me.btn_전경색 = New System.Windows.Forms.Button()
Me.열관류율NTb = New Eco2Ar.MyTb()
Me.TextBox7 = New System.Windows.Forms.TextBox()
Me.cmb_재료 = New System.Windows.Forms.ComboBox()
Me.Panel1 = New System.Windows.Forms.Panel()
Me.arindv1 = New System.Windows.Forms.DataGridView()
Me.bn_detail = New System.Windows.Forms.BindingNavigator(Me.components)
Me.ToolStripLabel1 = New System.Windows.Forms.ToolStripLabel()
Me.btj_add = New System.Windows.Forms.ToolStripButton()
Me.btj_del = New System.Windows.Forms.ToolStripButton()
Me.ToolStripSeparator2 = New System.Windows.Forms.ToolStripSeparator()
Me.ToolStripLabel2 = New System.Windows.Forms.ToolStripLabel()
Me.btj_showimg = New System.Windows.Forms.ToolStripButton()
Me.cmb_형태 = New Eco2Ar.MyCmb()
Me.bs_gubun = New System.Windows.Forms.BindingSource(Me.components)
Me.bS_재료 = New System.Windows.Forms.BindingSource(Me.components)
Me.커스텀 = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.code = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.재료명 = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.열전도율 = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.두께 = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.구분 = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.전경색 = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.후경색 = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.열저항 = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.전경 = New System.Windows.Forms.DataGridViewButtonColumn()
Me.Column1 = New System.Windows.Forms.DataGridViewButtonColumn()
CType(Me.SplitContainer1, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SplitContainer1.Panel1.SuspendLayout()
Me.SplitContainer1.Panel2.SuspendLayout()
Me.SplitContainer1.SuspendLayout()
CType(Me.dv, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.bs, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.DS, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.bn, System.ComponentModel.ISupportInitialize).BeginInit()
Me.bn.SuspendLayout()
CType(Me.PictureBox4, System.ComponentModel.ISupportInitialize).BeginInit()
Me.GroupBox1.SuspendLayout()
Me.Panel2.SuspendLayout()
CType(Me.bs_detail, System.ComponentModel.ISupportInitialize).BeginInit()
Me.Panel1.SuspendLayout()
CType(Me.arindv1, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.bn_detail, System.ComponentModel.ISupportInitialize).BeginInit()
Me.bn_detail.SuspendLayout()
CType(Me.bs_gubun, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.bS_재료, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SuspendLayout()
'
'SplitContainer1
'
Me.SplitContainer1.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.SplitContainer1.Dock = System.Windows.Forms.DockStyle.Fill
Me.SplitContainer1.FixedPanel = System.Windows.Forms.FixedPanel.Panel1
Me.SplitContainer1.Location = New System.Drawing.Point(0, 0)
Me.SplitContainer1.Name = "SplitContainer1"
'
'SplitContainer1.Panel1
'
Me.SplitContainer1.Panel1.Controls.Add(Me.dv)
Me.SplitContainer1.Panel1.Controls.Add(Me.bn)
Me.SplitContainer1.Panel1.Controls.Add(Me.MyCmb1)
'
'SplitContainer1.Panel2
'
Me.SplitContainer1.Panel2.BackColor = System.Drawing.Color.White
Me.SplitContainer1.Panel2.Controls.Add(Me.Label15)
Me.SplitContainer1.Panel2.Controls.Add(Me.PictureBox4)
Me.SplitContainer1.Panel2.Controls.Add(Me.GroupBox1)
Me.SplitContainer1.Size = New System.Drawing.Size(818, 574)
Me.SplitContainer1.SplitterDistance = 158
Me.SplitContainer1.TabIndex = 125
'
'dv
'
Me.dv.A_DelCurrentCell = True
Me.dv.A_EnterToTab = False
Me.dv.AllowUserToAddRows = False
Me.dv.AllowUserToResizeRows = False
Me.dv.AutoGenerateColumns = False
Me.dv.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.AllCells
Me.dv.BackgroundColor = System.Drawing.Color.FromArgb(CType(CType(245, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(246, Byte), Integer))
Me.dv.BorderStyle = System.Windows.Forms.BorderStyle.None
Me.dv.ColumnHeadersHeight = 30
Me.dv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.DisableResizing
Me.dv.ColumnHeadersVisible = False
Me.dv.Columns.AddRange(New System.Windows.Forms.DataGridViewColumn() {Me.Column2, Me.DataGridViewTextBoxColumn1})
Me.dv.DataSource = Me.bs
Me.dv.Dock = System.Windows.Forms.DockStyle.Fill
Me.dv.Location = New System.Drawing.Point(0, 0)
Me.dv.Margin = New System.Windows.Forms.Padding(3, 5, 3, 5)
Me.dv.MultiSelect = False
Me.dv.Name = "dv"
Me.dv.RowHeadersVisible = False
Me.dv.RowTemplate.Height = 23
Me.dv.ScrollBars = System.Windows.Forms.ScrollBars.Vertical
Me.dv.Size = New System.Drawing.Size(156, 532)
Me.dv.TabIndex = 0
'
'Column2
'
Me.Column2.DataPropertyName = "code"
Me.Column2.HeaderText = "Column2"
Me.Column2.Name = "Column2"
Me.Column2.Visible = False
Me.Column2.Width = 5
'
'DataGridViewTextBoxColumn1
'
Me.DataGridViewTextBoxColumn1.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.Fill
Me.DataGridViewTextBoxColumn1.DataPropertyName = "설명"
Me.DataGridViewTextBoxColumn1.HeaderText = "설명"
Me.DataGridViewTextBoxColumn1.Name = "DataGridViewTextBoxColumn1"
'
'bs
'
Me.bs.DataMember = "tbl_yk"
Me.bs.DataSource = Me.DS
Me.bs.Filter = "code <> '0'"
'
'DS
'
Me.DS.DataSetName = "DS"
Me.DS.SchemaSerializationMode = System.Data.SchemaSerializationMode.IncludeSchema
'
'bn
'
Me.bn.AddNewItem = Nothing
Me.bn.AutoSize = False
Me.bn.BindingSource = Me.bs
Me.bn.CountItem = Me.lbl_count
Me.bn.DeleteItem = Nothing
Me.bn.Dock = System.Windows.Forms.DockStyle.Bottom
Me.bn.Font = New System.Drawing.Font("돋움", 8.999999!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(129, Byte))
Me.bn.ImageScalingSize = New System.Drawing.Size(20, 20)
Me.bn.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.bt_add, Me.bt_Del, Me.bt_cancel, Me.ToolStripSeparator1, Me.lbl_pos, Me.lbl_count, Me.lb_code})
Me.bn.Location = New System.Drawing.Point(0, 532)
Me.bn.MoveFirstItem = Nothing
Me.bn.MoveLastItem = Nothing
Me.bn.MoveNextItem = Nothing
Me.bn.MovePreviousItem = Nothing
Me.bn.Name = "bn"
Me.bn.PositionItem = Me.lbl_pos
Me.bn.Size = New System.Drawing.Size(156, 40)
Me.bn.TabIndex = 1
Me.bn.Text = "BindingNavigator1"
'
'lbl_count
'
Me.lbl_count.Name = "lbl_count"
Me.lbl_count.Size = New System.Drawing.Size(33, 37)
Me.lbl_count.Text = "/{0}"
'
'bt_add
'
Me.bt_add.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
Me.bt_add.Image = Global.Eco2Ar.My.Resources.Resources.new_32
Me.bt_add.Name = "bt_add"
Me.bt_add.RightToLeftAutoMirrorImage = True
Me.bt_add.Size = New System.Drawing.Size(24, 37)
Me.bt_add.Text = "신규추가(&A)"
Me.bt_add.ToolTipText = "새로운 프로필을 추가합니다"
'
'bt_Del
'
Me.bt_Del.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
Me.bt_Del.Image = Global.Eco2Ar.My.Resources.Resources.remov_32
Me.bt_Del.Name = "bt_Del"
Me.bt_Del.RightToLeftAutoMirrorImage = True
Me.bt_Del.Size = New System.Drawing.Size(24, 37)
Me.bt_Del.Text = "선택삭제(&D)"
Me.bt_Del.ToolTipText = "선택된 프로필을 삭제합니다"
'
'bt_cancel
'
Me.bt_cancel.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
Me.bt_cancel.Image = Global.Eco2Ar.My.Resources.Resources.cancl_32
Me.bt_cancel.ImageTransparentColor = System.Drawing.Color.Magenta
Me.bt_cancel.Name = "bt_cancel"
Me.bt_cancel.Size = New System.Drawing.Size(24, 37)
Me.bt_cancel.Text = "변경취소(&C)"
Me.bt_cancel.ToolTipText = "변경된 내용을 되돌립니다"
Me.bt_cancel.Visible = False
'
'ToolStripSeparator1
'
Me.ToolStripSeparator1.Name = "ToolStripSeparator1"
Me.ToolStripSeparator1.Size = New System.Drawing.Size(6, 40)
'
'lbl_pos
'
Me.lbl_pos.Name = "lbl_pos"
Me.lbl_pos.Size = New System.Drawing.Size(12, 37)
Me.lbl_pos.Text = "0"
'
'lb_code
'
Me.lb_code.Name = "lb_code"
Me.lb_code.Size = New System.Drawing.Size(33, 37)
Me.lb_code.Text = "0000"
'
'MyCmb1
'
Me.MyCmb1.DropDownStyle = System.Windows.Forms.ComboBoxStyle.Simple
Me.MyCmb1.FormattingEnabled = True
Me.MyCmb1.Location = New System.Drawing.Point(332, 294)
Me.MyCmb1.Name = "MyCmb1"
Me.MyCmb1.NectControl = Nothing
Me.MyCmb1.Size = New System.Drawing.Size(152, 204)
Me.MyCmb1.TabIndex = 131
'
'Label15
'
Me.Label15.AutoSize = True
Me.Label15.BackColor = System.Drawing.Color.FromArgb(CType(CType(116, Byte), Integer), CType(CType(158, Byte), Integer), CType(CType(209, Byte), Integer))
Me.Label15.ForeColor = System.Drawing.Color.White
Me.Label15.Location = New System.Drawing.Point(61, 36)
Me.Label15.Name = "Label15"
Me.Label15.Size = New System.Drawing.Size(57, 12)
Me.Label15.TabIndex = 152
Me.Label15.Text = "열관류율"
'
'PictureBox4
'
Me.PictureBox4.BackgroundImage = CType(resources.GetObject("PictureBox4.BackgroundImage"), System.Drawing.Image)
Me.PictureBox4.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch
Me.PictureBox4.Location = New System.Drawing.Point(41, 29)
Me.PictureBox4.Name = "PictureBox4"
Me.PictureBox4.Size = New System.Drawing.Size(131, 30)
Me.PictureBox4.TabIndex = 151
Me.PictureBox4.TabStop = False
'
'GroupBox1
'
Me.GroupBox1.Controls.Add(Me.tb_투과율)
Me.GroupBox1.Controls.Add(Me.Label4)
Me.GroupBox1.Controls.Add(Me.tb_발코니투과율)
Me.GroupBox1.Controls.Add(Me.Label3)
Me.GroupBox1.Controls.Add(Me.tb_발코니열관류율)
Me.GroupBox1.Controls.Add(Me.Label2)
Me.GroupBox1.Controls.Add(Me.chk_발코니여부)
Me.GroupBox1.Controls.Add(Me.NTb_창호세부설명)
Me.GroupBox1.Controls.Add(Me.NTb_일사에너지투과율)
Me.GroupBox1.Controls.Add(Me.NTb_창호열관류율)
Me.GroupBox1.Controls.Add(Me.lbl_창호세부설명)
Me.GroupBox1.Controls.Add(Me.Panel2)
Me.GroupBox1.Controls.Add(Me.lbl_일사에너지투과율)
Me.GroupBox1.Controls.Add(Me.cmb_열전도율)
Me.GroupBox1.Controls.Add(Me.lbl_창호열관류율)
Me.GroupBox1.Controls.Add(Me.Label1)
Me.GroupBox1.Controls.Add(Me.btn_후경색)
Me.GroupBox1.Controls.Add(Me.btn_전경색)
Me.GroupBox1.Controls.Add(Me.열관류율NTb)
Me.GroupBox1.Controls.Add(Me.TextBox7)
Me.GroupBox1.Controls.Add(Me.cmb_재료)
Me.GroupBox1.Controls.Add(Me.Panel1)
Me.GroupBox1.Controls.Add(Me.cmb_형태)
Me.GroupBox1.Location = New System.Drawing.Point(3, 11)
Me.GroupBox1.Name = "GroupBox1"
Me.GroupBox1.Size = New System.Drawing.Size(648, 536)
Me.GroupBox1.TabIndex = 148
Me.GroupBox1.TabStop = False
'
'tb_투과율
'
Me.tb_투과율.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer))
Me.tb_투과율.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bs, "투과율", True))
Me.tb_투과율.Location = New System.Drawing.Point(568, 464)
Me.tb_투과율.Name = "tb_투과율"
Me.tb_투과율.NectControl = Nothing
Me.tb_투과율.Size = New System.Drawing.Size(63, 21)
Me.tb_투과율.TabIndex = 169
Me.tb_투과율.TabStop = False
Me.tb_투과율.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
Me.tb_투과율.TextFormat = Eco2Ar.MyTb.ETFormat.Normal
'
'Label4
'
Me.Label4.AutoSize = True
Me.Label4.ForeColor = System.Drawing.Color.Black
Me.Label4.Location = New System.Drawing.Point(492, 467)
Me.Label4.Name = "Label4"
Me.Label4.Size = New System.Drawing.Size(70, 12)
Me.Label4.TabIndex = 168
Me.Label4.Text = "투과율[-]:"
'
'tb_발코니투과율
'
Me.tb_발코니투과율.BackColor = System.Drawing.Color.White
Me.tb_발코니투과율.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bs, "발코니투과율", True))
Me.tb_발코니투과율.Enabled = False
Me.tb_발코니투과율.Location = New System.Drawing.Point(406, 464)
Me.tb_발코니투과율.Name = "tb_발코니투과율"
Me.tb_발코니투과율.Size = New System.Drawing.Size(62, 21)
Me.tb_발코니투과율.TabIndex = 165
'
'Label3
'
Me.Label3.AutoSize = True
Me.Label3.Enabled = False
Me.Label3.ForeColor = System.Drawing.Color.Black
Me.Label3.Location = New System.Drawing.Point(291, 467)
Me.Label3.Name = "Label3"
Me.Label3.Size = New System.Drawing.Size(109, 12)
Me.Label3.TabIndex = 166
Me.Label3.Text = "발코니투과율[-]:"
'
'tb_발코니열관류율
'
Me.tb_발코니열관류율.BackColor = System.Drawing.Color.White
Me.tb_발코니열관류율.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bs, "발코니창호열관류율", True))
Me.tb_발코니열관류율.Enabled = False
Me.tb_발코니열관류율.Location = New System.Drawing.Point(219, 464)
Me.tb_발코니열관류율.Name = "tb_발코니열관류율"
Me.tb_발코니열관류율.Size = New System.Drawing.Size(66, 21)
Me.tb_발코니열관류율.TabIndex = 163
'
'Label2
'
Me.Label2.AutoSize = True
Me.Label2.Enabled = False
Me.Label2.ForeColor = System.Drawing.Color.Black
Me.Label2.Location = New System.Drawing.Point(112, 467)
Me.Label2.Name = "Label2"
Me.Label2.Size = New System.Drawing.Size(101, 12)
Me.Label2.TabIndex = 164
Me.Label2.Text = "발코니열관류율:"
'
'chk_발코니여부
'
Me.chk_발코니여부.AutoSize = True
Me.chk_발코니여부.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Me.bs, "발코니창호여부", True))
Me.chk_발코니여부.Location = New System.Drawing.Point(17, 466)
Me.chk_발코니여부.Name = "chk_발코니여부"
Me.chk_발코니여부.Size = New System.Drawing.Size(89, 16)
Me.chk_발코니여부.TabIndex = 162
Me.chk_발코니여부.Text = "발코니여부"
Me.chk_발코니여부.UseVisualStyleBackColor = True
'
'NTb_창호세부설명
'
Me.NTb_창호세부설명.BackColor = System.Drawing.Color.White
Me.NTb_창호세부설명.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bs, "창호세부설명", True))
Me.NTb_창호세부설명.Location = New System.Drawing.Point(110, 491)
Me.NTb_창호세부설명.Name = "NTb_창호세부설명"
Me.NTb_창호세부설명.Size = New System.Drawing.Size(340, 21)
Me.NTb_창호세부설명.TabIndex = 2
'
'NTb_일사에너지투과율
'
Me.NTb_일사에너지투과율.BackColor = System.Drawing.Color.White
Me.NTb_일사에너지투과율.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bs, "일사에너지투과율", True))
Me.NTb_일사에너지투과율.Location = New System.Drawing.Point(345, 435)
Me.NTb_일사에너지투과율.Name = "NTb_일사에너지투과율"
Me.NTb_일사에너지투과율.Size = New System.Drawing.Size(55, 21)
Me.NTb_일사에너지투과율.TabIndex = 1
'
'NTb_창호열관류율
'
Me.NTb_창호열관류율.BackColor = System.Drawing.Color.White
Me.NTb_창호열관류율.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bs, "창호열관류율", True))
Me.NTb_창호열관류율.Location = New System.Drawing.Point(115, 435)
Me.NTb_창호열관류율.Name = "NTb_창호열관류율"
Me.NTb_창호열관류율.Size = New System.Drawing.Size(74, 21)
Me.NTb_창호열관류율.TabIndex = 0
'
'lbl_창호세부설명
'
Me.lbl_창호세부설명.AutoSize = True
Me.lbl_창호세부설명.ForeColor = System.Drawing.Color.Black
Me.lbl_창호세부설명.Location = New System.Drawing.Point(14, 494)
Me.lbl_창호세부설명.Name = "lbl_창호세부설명"
Me.lbl_창호세부설명.Size = New System.Drawing.Size(93, 12)
Me.lbl_창호세부설명.TabIndex = 153
Me.lbl_창호세부설명.Text = "창호세부설명 :"
'
'Panel2
'
Me.Panel2.Controls.Add(Me.UserControl11)
Me.Panel2.Location = New System.Drawing.Point(22, 63)
Me.Panel2.Name = "Panel2"
Me.Panel2.Size = New System.Drawing.Size(152, 152)
Me.Panel2.TabIndex = 161
'
'UserControl11
'
Me.UserControl11.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.UserControl11.Dock = System.Windows.Forms.DockStyle.Fill
Me.UserControl11.Location = New System.Drawing.Point(0, 0)
Me.UserControl11.MaxSize = 150.0!
Me.UserControl11.Name = "UserControl11"
Me.UserControl11.Size = New System.Drawing.Size(152, 152)
Me.UserControl11.TabIndex = 132
Me.UserControl11.Vertical = False
'
'lbl_일사에너지투과율
'
Me.lbl_일사에너지투과율.AutoSize = True
Me.lbl_일사에너지투과율.ForeColor = System.Drawing.Color.Black
Me.lbl_일사에너지투과율.Location = New System.Drawing.Point(206, 438)
Me.lbl_일사에너지투과율.Name = "lbl_일사에너지투과율"
Me.lbl_일사에너지투과율.Size = New System.Drawing.Size(135, 12)
Me.lbl_일사에너지투과율.TabIndex = 153
Me.lbl_일사에너지투과율.Text = "일사에너지투과율[-]:"
'
'cmb_열전도율
'
Me.cmb_열전도율.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bs_detail, "열전도율", True))
Me.cmb_열전도율.FormattingEnabled = True
Me.cmb_열전도율.Location = New System.Drawing.Point(442, 33)
Me.cmb_열전도율.Name = "cmb_열전도율"
Me.cmb_열전도율.Size = New System.Drawing.Size(75, 20)
Me.cmb_열전도율.TabIndex = 160
Me.cmb_열전도율.TabStop = False
'
'bs_detail
'
Me.bs_detail.DataMember = "tbl_ykdetail"
Me.bs_detail.DataSource = Me.DS
Me.bs_detail.Filter = "code <> '0'"
'
'lbl_창호열관류율
'
Me.lbl_창호열관류율.AutoSize = True
Me.lbl_창호열관류율.ForeColor = System.Drawing.Color.Black
Me.lbl_창호열관류율.Location = New System.Drawing.Point(16, 438)
Me.lbl_창호열관류율.Name = "lbl_창호열관류율"
Me.lbl_창호열관류율.Size = New System.Drawing.Size(88, 12)
Me.lbl_창호열관류율.TabIndex = 153
Me.lbl_창호열관류율.Text = "창호열관류율:"
'
'Label1
'
Me.Label1.AutoSize = True
Me.Label1.Location = New System.Drawing.Point(456, 494)
Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(113, 12)
Me.Label1.TabIndex = 153
Me.Label1.Text = "열관류율(W/㎡K):"
'
'btn_후경색
'
Me.btn_후경색.Location = New System.Drawing.Point(600, 33)
Me.btn_후경색.Name = "btn_후경색"
Me.btn_후경색.Size = New System.Drawing.Size(31, 21)
Me.btn_후경색.TabIndex = 159
Me.btn_후경색.TabStop = False
Me.btn_후경색.UseVisualStyleBackColor = True
Me.btn_후경색.Visible = False
'
'btn_전경색
'
Me.btn_전경색.Location = New System.Drawing.Point(563, 33)
Me.btn_전경색.Name = "btn_전경색"
Me.btn_전경색.Size = New System.Drawing.Size(31, 21)
Me.btn_전경색.TabIndex = 159
Me.btn_전경색.TabStop = False
Me.btn_전경색.UseVisualStyleBackColor = True
Me.btn_전경색.Visible = False
'
'열관류율NTb
'
Me.열관류율NTb.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer))
Me.열관류율NTb.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bs, "열관류율", True))
Me.열관류율NTb.Location = New System.Drawing.Point(569, 491)
Me.열관류율NTb.Name = "열관류율NTb"
Me.열관류율NTb.NectControl = Nothing
Me.열관류율NTb.Size = New System.Drawing.Size(62, 21)
Me.열관류율NTb.TabIndex = 3
Me.열관류율NTb.TabStop = False
Me.열관류율NTb.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
Me.열관류율NTb.TextFormat = Eco2Ar.MyTb.ETFormat.Normal
'
'TextBox7
'
Me.TextBox7.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bs_detail, "code", True))
Me.TextBox7.Enabled = False
Me.TextBox7.Location = New System.Drawing.Point(203, 33)
Me.TextBox7.Name = "TextBox7"
Me.TextBox7.Size = New System.Drawing.Size(36, 21)
Me.TextBox7.TabIndex = 157
Me.TextBox7.TabStop = False
'
'cmb_재료
'
Me.cmb_재료.FormattingEnabled = True
Me.cmb_재료.Location = New System.Drawing.Point(245, 33)
Me.cmb_재료.Name = "cmb_재료"
Me.cmb_재료.Size = New System.Drawing.Size(191, 20)
Me.cmb_재료.TabIndex = 156
Me.cmb_재료.TabStop = False
'
'Panel1
'
Me.Panel1.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.Panel1.Controls.Add(Me.arindv1)
Me.Panel1.Controls.Add(Me.bn_detail)
Me.Panel1.Location = New System.Drawing.Point(203, 61)
Me.Panel1.Name = "Panel1"
Me.Panel1.Size = New System.Drawing.Size(429, 368)
Me.Panel1.TabIndex = 154
'
'arindv1
'
Me.arindv1.AllowUserToAddRows = False
Me.arindv1.AllowUserToResizeRows = False
Me.arindv1.AutoGenerateColumns = False
Me.arindv1.ColumnHeadersHeight = 40
Me.arindv1.Columns.AddRange(New System.Windows.Forms.DataGridViewColumn() {Me.커스텀, Me.code, Me.재료명, Me.열전도율, Me.두께, Me.구분, Me.전경색, Me.후경색, Me.열저항, Me.전경, Me.Column1})
Me.arindv1.DataSource = Me.bs_detail
DataGridViewCellStyle3.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleRight
DataGridViewCellStyle3.BackColor = System.Drawing.SystemColors.Window
DataGridViewCellStyle3.Font = New System.Drawing.Font("돋움", 8.999999!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(129, Byte))
DataGridViewCellStyle3.ForeColor = System.Drawing.SystemColors.ControlText
DataGridViewCellStyle3.SelectionBackColor = System.Drawing.SystemColors.Highlight
DataGridViewCellStyle3.SelectionForeColor = System.Drawing.SystemColors.HighlightText
DataGridViewCellStyle3.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
Me.arindv1.DefaultCellStyle = DataGridViewCellStyle3
Me.arindv1.Dock = System.Windows.Forms.DockStyle.Fill
Me.arindv1.Location = New System.Drawing.Point(0, 0)
Me.arindv1.MultiSelect = False
Me.arindv1.Name = "arindv1"
Me.arindv1.RowHeadersVisible = False
Me.arindv1.RowHeadersWidth = 20
Me.arindv1.RowTemplate.Height = 23
Me.arindv1.Size = New System.Drawing.Size(427, 326)
Me.arindv1.TabIndex = 157
'
'bn_detail
'
Me.bn_detail.AddNewItem = Nothing
Me.bn_detail.AutoSize = False
Me.bn_detail.BindingSource = Me.bs_detail
Me.bn_detail.CountItem = Me.ToolStripLabel1
Me.bn_detail.DeleteItem = Nothing
Me.bn_detail.Dock = System.Windows.Forms.DockStyle.Bottom
Me.bn_detail.Font = New System.Drawing.Font("돋움", 8.999999!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(129, Byte))
Me.bn_detail.GripStyle = System.Windows.Forms.ToolStripGripStyle.Hidden
Me.bn_detail.ImageScalingSize = New System.Drawing.Size(20, 20)
Me.bn_detail.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.btj_add, Me.btj_del, Me.ToolStripSeparator2, Me.ToolStripLabel2, Me.ToolStripLabel1, Me.btj_showimg})
Me.bn_detail.Location = New System.Drawing.Point(0, 326)
Me.bn_detail.MoveFirstItem = Nothing
Me.bn_detail.MoveLastItem = Nothing
Me.bn_detail.MoveNextItem = Nothing
Me.bn_detail.MovePreviousItem = Nothing
Me.bn_detail.Name = "bn_detail"
Me.bn_detail.PositionItem = Me.ToolStripLabel2
Me.bn_detail.Size = New System.Drawing.Size(427, 40)
Me.bn_detail.TabIndex = 2
Me.bn_detail.Text = "BindingNavigator1"
'
'ToolStripLabel1
'
Me.ToolStripLabel1.Name = "ToolStripLabel1"
Me.ToolStripLabel1.Size = New System.Drawing.Size(33, 37)
Me.ToolStripLabel1.Text = "/{0}"
'
'btj_add
'
Me.btj_add.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
Me.btj_add.Image = Global.Eco2Ar.My.Resources.Resources.new_32
Me.btj_add.Name = "btj_add"
Me.btj_add.RightToLeftAutoMirrorImage = True
Me.btj_add.Size = New System.Drawing.Size(24, 37)
Me.btj_add.Text = "신규추가(&A)"
Me.btj_add.ToolTipText = "새로운 프로필을 추가합니다"
'
'btj_del
'
Me.btj_del.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
Me.btj_del.Image = Global.Eco2Ar.My.Resources.Resources.remov_32
Me.btj_del.Name = "btj_del"
Me.btj_del.RightToLeftAutoMirrorImage = True
Me.btj_del.Size = New System.Drawing.Size(24, 37)
Me.btj_del.Text = "선택삭제(&D)"
Me.btj_del.ToolTipText = "선택된 프로필을 삭제합니다"
'
'ToolStripSeparator2
'
Me.ToolStripSeparator2.Name = "ToolStripSeparator2"
Me.ToolStripSeparator2.Size = New System.Drawing.Size(6, 40)
'
'ToolStripLabel2
'
Me.ToolStripLabel2.Name = "ToolStripLabel2"
Me.ToolStripLabel2.Size = New System.Drawing.Size(12, 37)
Me.ToolStripLabel2.Text = "0"
'
'btj_showimg
'
Me.btj_showimg.Alignment = System.Windows.Forms.ToolStripItemAlignment.Right
Me.btj_showimg.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Text
Me.btj_showimg.Image = CType(resources.GetObject("btj_showimg.Image"), System.Drawing.Image)
Me.btj_showimg.ImageTransparentColor = System.Drawing.Color.Magenta
Me.btj_showimg.Name = "btj_showimg"
Me.btj_showimg.Size = New System.Drawing.Size(87, 37)
Me.btj_showimg.Text = "구분그림보기"
Me.btj_showimg.Visible = False
'
'cmb_형태
'
Me.cmb_형태.DropDownStyle = System.Windows.Forms.ComboBoxStyle.Simple
Me.cmb_형태.FormattingEnabled = True
Me.cmb_형태.Location = New System.Drawing.Point(22, 225)
Me.cmb_형태.Name = "cmb_형태"
Me.cmb_형태.NectControl = Nothing
Me.cmb_형태.Size = New System.Drawing.Size(152, 204)
Me.cmb_형태.TabIndex = 131
'
'bs_gubun
'
Me.bs_gubun.DataMember = "tbl_common"
Me.bs_gubun.DataSource = Me.DS
'
'bS_재료
'
Me.bS_재료.DataMember = "tbl_common"
Me.bS_재료.DataSource = Me.DS
'
'커스텀
'
Me.커스텀.DataPropertyName = "커스텀"
Me.커스텀.HeaderText = "커스텀"
Me.커스텀.Name = "커스텀"
Me.커스텀.SortMode = System.Windows.Forms.DataGridViewColumnSortMode.Programmatic
Me.커스텀.Visible = False
'
'code
'
Me.code.DataPropertyName = "code"
Me.code.HeaderText = "번호"
Me.code.Name = "code"
Me.code.ReadOnly = True
Me.code.Resizable = System.Windows.Forms.DataGridViewTriState.[False]
Me.code.SortMode = System.Windows.Forms.DataGridViewColumnSortMode.Programmatic
Me.code.Width = 39
'
'재료명
'
Me.재료명.DataPropertyName = "설명"
DataGridViewCellStyle1.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
Me.재료명.DefaultCellStyle = DataGridViewCellStyle1
Me.재료명.HeaderText = "재료명"
Me.재료명.Name = "재료명"
Me.재료명.ReadOnly = True
Me.재료명.Resizable = System.Windows.Forms.DataGridViewTriState.[False]
Me.재료명.SortMode = System.Windows.Forms.DataGridViewColumnSortMode.Programmatic
Me.재료명.Width = 200
'
'열전도율
'
Me.열전도율.DataPropertyName = "열전도율"
Me.열전도율.HeaderText = "열전도율 (W/mK)"
Me.열전도율.Name = "열전도율"
Me.열전도율.ReadOnly = True
Me.열전도율.Resizable = System.Windows.Forms.DataGridViewTriState.[False]
Me.열전도율.SortMode = System.Windows.Forms.DataGridViewColumnSortMode.Programmatic
Me.열전도율.Width = 70
'
'두께
'
Me.두께.DataPropertyName = "두께"
Me.두께.HeaderText = "두께 (mm)"
Me.두께.Name = "두께"
Me.두께.Resizable = System.Windows.Forms.DataGridViewTriState.[False]
Me.두께.SortMode = System.Windows.Forms.DataGridViewColumnSortMode.Programmatic
Me.두께.Width = 45
'
'구분
'
Me.구분.DataPropertyName = "구분"
Me.구분.HeaderText = "구분"
Me.구분.Name = "구분"
Me.구분.Resizable = System.Windows.Forms.DataGridViewTriState.[False]
Me.구분.SortMode = System.Windows.Forms.DataGridViewColumnSortMode.Programmatic
Me.구분.Visible = False
Me.구분.Width = 35
'
'전경색
'
Me.전경색.DataPropertyName = "전경색"
Me.전경색.HeaderText = "전경색"
Me.전경색.Name = "전경색"
Me.전경색.SortMode = System.Windows.Forms.DataGridViewColumnSortMode.Programmatic
Me.전경색.Visible = False
Me.전경색.Width = 65
'
'후경색
'
Me.후경색.DataPropertyName = "후경색"
Me.후경색.HeaderText = "후경색"
Me.후경색.Name = "후경색"
Me.후경색.SortMode = System.Windows.Forms.DataGridViewColumnSortMode.Programmatic
Me.후경색.Visible = False
Me.후경색.Width = 65
'
'열저항
'
Me.열저항.DataPropertyName = "열저항"
Me.열저항.HeaderText = " 열저항 (㎡K/W)"
Me.열저항.Name = "열저항"
Me.열저항.ReadOnly = True
Me.열저항.Resizable = System.Windows.Forms.DataGridViewTriState.[False]
Me.열저항.SortMode = System.Windows.Forms.DataGridViewColumnSortMode.Programmatic
Me.열저항.Width = 70
'
'전경
'
DataGridViewCellStyle2.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleCenter
DataGridViewCellStyle2.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
DataGridViewCellStyle2.ForeColor = System.Drawing.Color.Purple
Me.전경.DefaultCellStyle = DataGridViewCellStyle2
Me.전경.HeaderText = "전경"
Me.전경.Name = "전경"
Me.전경.Resizable = System.Windows.Forms.DataGridViewTriState.[False]
Me.전경.SortMode = System.Windows.Forms.DataGridViewColumnSortMode.Automatic
Me.전경.Text = "TEst2"
Me.전경.Visible = False
Me.전경.Width = 35
'
'Column1
'
Me.Column1.HeaderText = "배경"
Me.Column1.Name = "Column1"
Me.Column1.Resizable = System.Windows.Forms.DataGridViewTriState.[False]
Me.Column1.Visible = False
Me.Column1.Width = 35
'
'Frm_YK
'
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.None
Me.ClientSize = New System.Drawing.Size(818, 574)
Me.ControlBox = False
Me.Controls.Add(Me.SplitContainer1)
Me.Font = New System.Drawing.Font("돋움", 8.999999!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(129, Byte))
Me.KeyPreview = True
Me.Name = "Frm_YK"
Me.ShowInTaskbar = False
Me.StartPosition = System.Windows.Forms.FormStartPosition.Manual
Me.Text = "열관류율"
Me.SplitContainer1.Panel1.ResumeLayout(False)
Me.SplitContainer1.Panel2.ResumeLayout(False)
Me.SplitContainer1.Panel2.PerformLayout()
CType(Me.SplitContainer1, System.ComponentModel.ISupportInitialize).EndInit()
Me.SplitContainer1.ResumeLayout(False)
CType(Me.dv, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.bs, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.DS, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.bn, System.ComponentModel.ISupportInitialize).EndInit()
Me.bn.ResumeLayout(False)
Me.bn.PerformLayout()
CType(Me.PictureBox4, System.ComponentModel.ISupportInitialize).EndInit()
Me.GroupBox1.ResumeLayout(False)
Me.GroupBox1.PerformLayout()
Me.Panel2.ResumeLayout(False)
CType(Me.bs_detail, System.ComponentModel.ISupportInitialize).EndInit()
Me.Panel1.ResumeLayout(False)
CType(Me.arindv1, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.bn_detail, System.ComponentModel.ISupportInitialize).EndInit()
Me.bn_detail.ResumeLayout(False)
Me.bn_detail.PerformLayout()
CType(Me.bs_gubun, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.bS_재료, System.ComponentModel.ISupportInitialize).EndInit()
Me.ResumeLayout(False)
End Sub
Public WithEvents DS As Eco2Ar.DS
Friend WithEvents bs As System.Windows.Forms.BindingSource
Friend WithEvents SplitContainer1 As System.Windows.Forms.SplitContainer
Friend WithEvents bn As System.Windows.Forms.BindingNavigator
Friend WithEvents bt_add As System.Windows.Forms.ToolStripButton
Friend WithEvents bt_Del As System.Windows.Forms.ToolStripButton
Friend WithEvents bt_cancel As System.Windows.Forms.ToolStripButton
Friend WithEvents ToolStripSeparator1 As System.Windows.Forms.ToolStripSeparator
Friend WithEvents dv As CEnergy.arindv
Friend WithEvents lbl_count As System.Windows.Forms.ToolStripLabel
Friend WithEvents lbl_pos As System.Windows.Forms.ToolStripLabel
Friend WithEvents Label15 As System.Windows.Forms.Label
Friend WithEvents PictureBox4 As System.Windows.Forms.PictureBox
Friend WithEvents bS_재료 As System.Windows.Forms.BindingSource
Friend WithEvents bs_detail As System.Windows.Forms.BindingSource
Friend WithEvents bs_gubun As System.Windows.Forms.BindingSource
Friend WithEvents GroupBox1 As System.Windows.Forms.GroupBox
Friend WithEvents Label1 As System.Windows.Forms.Label
Friend WithEvents btn_후경색 As System.Windows.Forms.Button
Friend WithEvents btn_전경색 As System.Windows.Forms.Button
Friend WithEvents 열관류율NTb As Eco2Ar.MyTb
Friend WithEvents TextBox7 As System.Windows.Forms.TextBox
Friend WithEvents cmb_재료 As System.Windows.Forms.ComboBox
Friend WithEvents Panel1 As System.Windows.Forms.Panel
Friend WithEvents arindv1 As System.Windows.Forms.DataGridView
Friend WithEvents bn_detail As System.Windows.Forms.BindingNavigator
Friend WithEvents ToolStripLabel1 As System.Windows.Forms.ToolStripLabel
Friend WithEvents btj_add As System.Windows.Forms.ToolStripButton
Friend WithEvents btj_del As System.Windows.Forms.ToolStripButton
Friend WithEvents ToolStripSeparator2 As System.Windows.Forms.ToolStripSeparator
Friend WithEvents ToolStripLabel2 As System.Windows.Forms.ToolStripLabel
Friend WithEvents btj_showimg As System.Windows.Forms.ToolStripButton
Friend WithEvents UserControl11 As YkCtl
Friend WithEvents cmb_형태 As Eco2Ar.MyCmb
Friend WithEvents cmb_열전도율 As System.Windows.Forms.ComboBox
Friend WithEvents Panel2 As System.Windows.Forms.Panel
Friend WithEvents NTb_창호열관류율 As System.Windows.Forms.TextBox
Friend WithEvents lbl_창호열관류율 As System.Windows.Forms.Label
Friend WithEvents NTb_창호세부설명 As System.Windows.Forms.TextBox
Friend WithEvents NTb_일사에너지투과율 As System.Windows.Forms.TextBox
Friend WithEvents lbl_창호세부설명 As System.Windows.Forms.Label
Friend WithEvents lbl_일사에너지투과율 As System.Windows.Forms.Label
Friend WithEvents MyCmb1 As Eco2Ar.MyCmb
Friend WithEvents chk_발코니여부 As System.Windows.Forms.CheckBox
Friend WithEvents tb_발코니투과율 As System.Windows.Forms.TextBox
Friend WithEvents Label3 As System.Windows.Forms.Label
Friend WithEvents tb_발코니열관류율 As System.Windows.Forms.TextBox
Friend WithEvents Label2 As System.Windows.Forms.Label
Friend WithEvents Label4 As System.Windows.Forms.Label
Friend WithEvents tb_투과율 As Eco2Ar.MyTb
Friend WithEvents Column2 As System.Windows.Forms.DataGridViewTextBoxColumn
Friend WithEvents DataGridViewTextBoxColumn1 As System.Windows.Forms.DataGridViewTextBoxColumn
Friend WithEvents lb_code As System.Windows.Forms.ToolStripLabel
Friend WithEvents 커스텀 As System.Windows.Forms.DataGridViewTextBoxColumn
Friend WithEvents code As System.Windows.Forms.DataGridViewTextBoxColumn
Friend WithEvents 재료명 As System.Windows.Forms.DataGridViewTextBoxColumn
Friend WithEvents 열전도율 As System.Windows.Forms.DataGridViewTextBoxColumn
Friend WithEvents 두께 As System.Windows.Forms.DataGridViewTextBoxColumn
Friend WithEvents 구분 As System.Windows.Forms.DataGridViewTextBoxColumn
Friend WithEvents 전경색 As System.Windows.Forms.DataGridViewTextBoxColumn
Friend WithEvents 후경색 As System.Windows.Forms.DataGridViewTextBoxColumn
Friend WithEvents 열저항 As System.Windows.Forms.DataGridViewTextBoxColumn
Friend WithEvents 전경 As System.Windows.Forms.DataGridViewButtonColumn
Friend WithEvents Column1 As System.Windows.Forms.DataGridViewButtonColumn
End Class

272
ArinWarev1/Forms_Input/Frm_YK.resx Normal file
View File

@@ -0,0 +1,272 @@
<?xml version="1.0" encoding="utf-8"?>
<root>
<!--
Microsoft ResX Schema
Version 2.0
The primary goals of this format is to allow a simple XML format
that is mostly human readable. The generation and parsing of the
various data types are done through the TypeConverter classes
associated with the data types.
Example:
... ado.net/XML headers & schema ...
<resheader name="resmimetype">text/microsoft-resx</resheader>
<resheader name="version">2.0</resheader>
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
<data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
<value>[base64 mime encoded serialized .NET Framework object]</value>
</data>
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
<comment>This is a comment</comment>
</data>
There are any number of "resheader" rows that contain simple
name/value pairs.
Each data row contains a name, and value. The row also contains a
type or mimetype. Type corresponds to a .NET class that support
text/value conversion through the TypeConverter architecture.
Classes that don't support this are serialized and stored with the
mimetype set.
The mimetype is used for serialized objects, and tells the
ResXResourceReader how to depersist the object. This is currently not
extensible. For a given mimetype the value must be set accordingly:
Note - application/x-microsoft.net.object.binary.base64 is the format
that the ResXResourceWriter will generate, however the reader can
read any of the formats listed below.
mimetype: application/x-microsoft.net.object.binary.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.soap.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.bytearray.base64
value : The object must be serialized into a byte array
: using a System.ComponentModel.TypeConverter
: and then encoded with base64 encoding.
-->
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
<xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
<xsd:element name="root" msdata:IsDataSet="true">
<xsd:complexType>
<xsd:choice maxOccurs="unbounded">
<xsd:element name="metadata">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" />
</xsd:sequence>
<xsd:attribute name="name" use="required" type="xsd:string" />
<xsd:attribute name="type" type="xsd:string" />
<xsd:attribute name="mimetype" type="xsd:string" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="assembly">
<xsd:complexType>
<xsd:attribute name="alias" type="xsd:string" />
<xsd:attribute name="name" type="xsd:string" />
</xsd:complexType>
</xsd:element>
<xsd:element name="data">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="resheader">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" />
</xsd:complexType>
</xsd:element>
</xsd:choice>
</xsd:complexType>
</xsd:element>
</xsd:schema>
<resheader name="resmimetype">
<value>text/microsoft-resx</value>
</resheader>
<resheader name="version">
<value>2.0</value>
</resheader>
<resheader name="reader">
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<resheader name="writer">
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<metadata name="Column2.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>True</value>
</metadata>
<metadata name="bs.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 17</value>
</metadata>
<metadata name="DS.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>81, 17</value>
</metadata>
<metadata name="bn.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>148, 17</value>
</metadata>
<assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
<data name="PictureBox4.BackgroundImage" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
/9j/4AAQSkZJRgABAgEASABIAAD/7gAOQWRvYmUAZAAAAAAB/+ED5kV4aWYAAE1NACoAAAAIAAcBEgAD
AAAAAQABAAABGgAFAAAAAQAAAGIBGwAFAAAAAQAAAGoBKAADAAAAAQACAAABMQACAAAAHAAAAHIBMgAC
AAAAFAAAAI6HaQAEAAAAAQAAAKIAAADCAEgAAAABAAAASAAAAAEAAEFkb2JlIFBob3Rvc2hvcCBDUzMg
V2luZG93cwAyMDEwOjA0OjE1IDIwOjMyOjA0AAACoAIABAAAAAEAAAA8oAMABAAAAAEAAAAMAAAAAAAA
AAYBAwADAAAAAQAGAAABGgAFAAAAAQAAARABGwAFAAAAAQAAARgBKAADAAAAAQACAAACAQAEAAAAAQAA
ASACAgAEAAAAAQAAAr4AAAAAAAAASAAAAAEAAABIAAAAAf/Y/+AAEEpGSUYAAQIAAEgASAAA/+0ADEFk
b2JlX0NNAAH/7gAOQWRvYmUAZIAAAAAB/9sAhAAMCAgICQgMCQkMEQsKCxEVDwwMDxUYExMVExMYEQwM
DAwMDBEMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMAQ0LCw0ODRAODhAUDg4OFBQODg4OFBEMDAwM
DBERDAwMDAwMEQwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAz/wAARCAAMADwDASIAAhEBAxEB/90A
BAAE/8QBPwAAAQUBAQEBAQEAAAAAAAAAAwABAgQFBgcICQoLAQABBQEBAQEBAQAAAAAAAAABAAIDBAUG
BwgJCgsQAAEEAQMCBAIFBwYIBQMMMwEAAhEDBCESMQVBUWETInGBMgYUkaGxQiMkFVLBYjM0coLRQwcl
klPw4fFjczUWorKDJkSTVGRFwqN0NhfSVeJl8rOEw9N14/NGJ5SkhbSVxNTk9KW1xdXl9VZmdoaWprbG
1ub2N0dXZ3eHl6e3x9fn9xEAAgIBAgQEAwQFBgcHBgU1AQACEQMhMRIEQVFhcSITBTKBkRShsUIjwVLR
8DMkYuFygpJDUxVjczTxJQYWorKDByY1wtJEk1SjF2RFVTZ0ZeLys4TD03Xj80aUpIW0lcTU5PSltcXV
5fVWZnaGlqa2xtbm9ic3R1dnd4eXp7fH/9oADAMBAAIRAxEAPwDd/amR/pH/AOcf70v2pkf6R/8AnH+9
UUlofq/Bpevxb37UyP8ASP8A84/3pftTI/0j/wDOP96opJfq/BXr8W9+1Mj/AEj/APOP96X7UyP9I/8A
zj/eqKSX6vwV6/F3ujdbuGS2i5xfU8HVxktIG76XyW99vo27p0XGdO2/ba930dZj+q5dX+qfZPL8VAeD
341VVr/eZhx+0bu708n/2f/iDFhJQ0NfUFJPRklMRQABAQAADEhMaW5vAhAAAG1udHJSR0IgWFlaIAfO
AAIACQAGADEAAGFjc3BNU0ZUAAAAAElFQyBzUkdCAAAAAAAAAAAAAAAAAAD21gABAAAAANMtSFAgIAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAEWNwcnQAAAFQAAAAM2Rl
c2MAAAGEAAAAbHd0cHQAAAHwAAAAFGJrcHQAAAIEAAAAFHJYWVoAAAIYAAAAFGdYWVoAAAIsAAAAFGJY
WVoAAAJAAAAAFGRtbmQAAAJUAAAAcGRtZGQAAALEAAAAiHZ1ZWQAAANMAAAAhnZpZXcAAAPUAAAAJGx1
bWkAAAP4AAAAFG1lYXMAAAQMAAAAJHRlY2gAAAQwAAAADHJUUkMAAAQ8AAAIDGdUUkMAAAQ8AAAIDGJU
UkMAAAQ8AAAIDHRleHQAAAAAQ29weXJpZ2h0IChjKSAxOTk4IEhld2xldHQtUGFja2FyZCBDb21wYW55
AABkZXNjAAAAAAAAABJzUkdCIElFQzYxOTY2LTIuMQAAAAAAAAAAAAAAEnNSR0IgSUVDNjE5NjYtMi4x
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABYWVogAAAAAAAA
81EAAQAAAAEWzFhZWiAAAAAAAAAAAAAAAAAAAAAAWFlaIAAAAAAAAG+iAAA49QAAA5BYWVogAAAAAAAA
YpkAALeFAAAY2lhZWiAAAAAAAAAkoAAAD4QAALbPZGVzYwAAAAAAAAAWSUVDIGh0dHA6Ly93d3cuaWVj
LmNoAAAAAAAAAAAAAAAWSUVDIGh0dHA6Ly93d3cuaWVjLmNoAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAGRlc2MAAAAAAAAALklFQyA2MTk2Ni0yLjEgRGVmYXVsdCBSR0Ig
Y29sb3VyIHNwYWNlIC0gc1JHQgAAAAAAAAAAAAAALklFQyA2MTk2Ni0yLjEgRGVmYXVsdCBSR0IgY29s
b3VyIHNwYWNlIC0gc1JHQgAAAAAAAAAAAAAAAAAAAAAAAAAAAABkZXNjAAAAAAAAACxSZWZlcmVuY2Ug
Vmlld2luZyBDb25kaXRpb24gaW4gSUVDNjE5NjYtMi4xAAAAAAAAAAAAAAAsUmVmZXJlbmNlIFZpZXdp
bmcgQ29uZGl0aW9uIGluIElFQzYxOTY2LTIuMQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAdmlldwAA
AAAAE6T+ABRfLgAQzxQAA+3MAAQTCwADXJ4AAAABWFlaIAAAAAAATAlWAFAAAABXH+dtZWFzAAAAAAAA
AAEAAAAAAAAAAAAAAAAAAAAAAAACjwAAAAJzaWcgAAAAAENSVCBjdXJ2AAAAAAAABAAAAAAFAAoADwAU
ABkAHgAjACgALQAyADcAOwBAAEUASgBPAFQAWQBeAGMAaABtAHIAdwB8AIEAhgCLAJAAlQCaAJ8ApACp
AK4AsgC3ALwAwQDGAMsA0ADVANsA4ADlAOsA8AD2APsBAQEHAQ0BEwEZAR8BJQErATIBOAE+AUUBTAFS
AVkBYAFnAW4BdQF8AYMBiwGSAZoBoQGpAbEBuQHBAckB0QHZAeEB6QHyAfoCAwIMAhQCHQImAi8COAJB
AksCVAJdAmcCcQJ6AoQCjgKYAqICrAK2AsECywLVAuAC6wL1AwADCwMWAyEDLQM4A0MDTwNaA2YDcgN+
A4oDlgOiA64DugPHA9MD4APsA/kEBgQTBCAELQQ7BEgEVQRjBHEEfgSMBJoEqAS2BMQE0wThBPAE/gUN
BRwFKwU6BUkFWAVnBXcFhgWWBaYFtQXFBdUF5QX2BgYGFgYnBjcGSAZZBmoGewaMBp0GrwbABtEG4wb1
BwcHGQcrBz0HTwdhB3QHhgeZB6wHvwfSB+UH+AgLCB8IMghGCFoIbgiCCJYIqgi+CNII5wj7CRAJJQk6
CU8JZAl5CY8JpAm6Cc8J5Qn7ChEKJwo9ClQKagqBCpgKrgrFCtwK8wsLCyILOQtRC2kLgAuYC7ALyAvh
C/kMEgwqDEMMXAx1DI4MpwzADNkM8w0NDSYNQA1aDXQNjg2pDcMN3g34DhMOLg5JDmQOfw6bDrYO0g7u
DwkPJQ9BD14Peg+WD7MPzw/sEAkQJhBDEGEQfhCbELkQ1xD1ERMRMRFPEW0RjBGqEckR6BIHEiYSRRJk
EoQSoxLDEuMTAxMjE0MTYxODE6QTxRPlFAYUJxRJFGoUixStFM4U8BUSFTQVVhV4FZsVvRXgFgMWJhZJ
FmwWjxayFtYW+hcdF0EXZReJF64X0hf3GBsYQBhlGIoYrxjVGPoZIBlFGWsZkRm3Gd0aBBoqGlEadxqe
GsUa7BsUGzsbYxuKG7Ib2hwCHCocUhx7HKMczBz1HR4dRx1wHZkdwx3sHhYeQB5qHpQevh7pHxMfPh9p
H5Qfvx/qIBUgQSBsIJggxCDwIRwhSCF1IaEhziH7IiciVSKCIq8i3SMKIzgjZiOUI8Ij8CQfJE0kfCSr
JNolCSU4JWgllyXHJfcmJyZXJocmtyboJxgnSSd6J6sn3CgNKD8ocSiiKNQpBik4KWspnSnQKgIqNSpo
KpsqzysCKzYraSudK9EsBSw5LG4soizXLQwtQS12Last4S4WLkwugi63Lu4vJC9aL5Evxy/+MDUwbDCk
MNsxEjFKMYIxujHyMioyYzKbMtQzDTNGM38zuDPxNCs0ZTSeNNg1EzVNNYc1wjX9Njc2cjauNuk3JDdg
N5w31zgUOFA4jDjIOQU5Qjl/Obw5+To2OnQ6sjrvOy07azuqO+g8JzxlPKQ84z0iPWE9oT3gPiA+YD6g
PuA/IT9hP6I/4kAjQGRApkDnQSlBakGsQe5CMEJyQrVC90M6Q31DwEQDREdEikTORRJFVUWaRd5GIkZn
RqtG8Ec1R3tHwEgFSEtIkUjXSR1JY0mpSfBKN0p9SsRLDEtTS5pL4kwqTHJMuk0CTUpNk03cTiVObk63
TwBPSU+TT91QJ1BxULtRBlFQUZtR5lIxUnxSx1MTU19TqlP2VEJUj1TbVShVdVXCVg9WXFapVvdXRFeS
V+BYL1h9WMtZGllpWbhaB1pWWqZa9VtFW5Vb5Vw1XIZc1l0nXXhdyV4aXmxevV8PX2Ffs2AFYFdgqmD8
YU9homH1YklinGLwY0Njl2PrZEBklGTpZT1lkmXnZj1mkmboZz1nk2fpaD9olmjsaUNpmmnxakhqn2r3
a09rp2v/bFdsr20IbWBtuW4SbmtuxG8eb3hv0XArcIZw4HE6cZVx8HJLcqZzAXNdc7h0FHRwdMx1KHWF
deF2Pnabdvh3VnezeBF4bnjMeSp5iXnnekZ6pXsEe2N7wnwhfIF84X1BfaF+AX5ifsJ/I3+Ef+WAR4Co
gQqBa4HNgjCCkoL0g1eDuoQdhICE44VHhauGDoZyhteHO4efiASIaYjOiTOJmYn+imSKyoswi5aL/Ixj
jMqNMY2Yjf+OZo7OjzaPnpAGkG6Q1pE/kaiSEZJ6kuOTTZO2lCCUipT0lV+VyZY0lp+XCpd1l+CYTJi4
mSSZkJn8mmia1ZtCm6+cHJyJnPedZJ3SnkCerp8dn4uf+qBpoNihR6G2oiailqMGo3aj5qRWpMelOKWp
phqmi6b9p26n4KhSqMSpN6mpqhyqj6sCq3Wr6axcrNCtRK24ri2uoa8Wr4uwALB1sOqxYLHWskuywrM4
s660JbSctRO1irYBtnm28Ldot+C4WbjRuUq5wro7urW7LrunvCG8m70VvY++Cr6Evv+/er/1wHDA7MFn
wePCX8Lbw1jD1MRRxM7FS8XIxkbGw8dBx7/IPci8yTrJuco4yrfLNsu2zDXMtc01zbXONs62zzfPuNA5
0LrRPNG+0j/SwdNE08bUSdTL1U7V0dZV1tjXXNfg2GTY6Nls2fHadtr724DcBdyK3RDdlt4c3qLfKd+v
4DbgveFE4cziU+Lb42Pj6+Rz5PzlhOYN5pbnH+ep6DLovOlG6dDqW+rl63Dr++yG7RHtnO4o7rTvQO/M
8Fjw5fFy8f/yjPMZ86f0NPTC9VD13vZt9vv3ivgZ+Kj5OPnH+lf65/t3/Af8mP0p/br+S/7c/23////b
AEMAAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQICAgICAgICAgICAwMD
AwMDAwMDA//bAEMBAQEBAQEBAQEBAQICAQICAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMD
AwMDAwMDAwMDAwMDAwMDA//AABEIAAwAPAMBEQACEQEDEQH/xAAfAAABBQEBAQEBAQAAAAAAAAAAAQID
BAUGBwgJCgv/xAC1EAACAQMDAgQDBQUEBAAAAX0BAgMABBEFEiExQQYTUWEHInEUMoGRoQgjQrHBFVLR
8CQzYnKCCQoWFxgZGiUmJygpKjQ1Njc4OTpDREVGR0hJSlNUVVZXWFlaY2RlZmdoaWpzdHV2d3h5eoOE
hYaHiImKkpOUlZaXmJmaoqOkpaanqKmqsrO0tba3uLm6wsPExcbHyMnK0tPU1dbX2Nna4eLj5OXm5+jp
6vHy8/T19vf4+fr/xAAfAQADAQEBAQEBAQEBAAAAAAAAAQIDBAUGBwgJCgv/xAC1EQACAQIEBAMEBwUE
BAABAncAAQIDEQQFITEGEkFRB2FxEyIygQgUQpGhscEJIzNS8BVictEKFiQ04SXxFxgZGiYnKCkqNTY3
ODk6Q0RFRkdISUpTVFVWV1hZWmNkZWZnaGlqc3R1dnd4eXqCg4SFhoeIiYqSk5SVlpeYmZqio6Slpqeo
qaqys7S1tre4ubrCw8TFxsfIycrS09TV1tfY2dri4+Tl5ufo6ery8/T19vf4+fr/2gAMAwEAAhEDEQA/
AP1ZH7UPxEAA/wCEw8bnj/ob9f8A/k+v7U/1Nyj/AKF+G/8ABUP/AJE/llcSZlZf7dX/APBk/wDMX/hq
H4if9Df43/8ACv1//wCT6P8AU3Kf+hfhv/BUP/kQ/wBZcy/6Dq//AIMn/mH/AA1D8RP+hv8AG/8A4V+v
/wDyfR/qblP/AEL8N/4Kh/8AIh/rLmX/AEHV/wDwZP8AzD/hqH4if9Df43/8K/X/AP5Po/1Nyn/oX4b/
AMFQ/wDkQ/1lzL/oOr/+DJ/5h/w1D8RP+hv8b/8AhX6//wDJ9H+puU/9C/Df+Cof/Ih/rLmX/QdX/wDB
k/8AMT/hqH4if9Df43/8K/X/AP5Po/1Nyn/oX4b/AMFQ/wDkQ/1kzL/oOr/+DJ/5n2R+xz+234zt/iRp
nw+8a6vqXiDwZ4gs9baObXr+bUr/AMPajpmkX2tQ3FlqV2Zb57K7XT2t3tXkaJWkV4whVxJ+beJfAuU4
Th/FZ/hKEKOMw8qd+SKjGcZzjTs4q0bpyUlJK7s073VvuuBOLMxxGcYfJ8TWlVw1ZTtzu7hKMJTupPWz
UWnFu2qatrf9aP8AhfXgv+zv7U89/sfm+V5207N+M43fSv50P2w/kwr/AEFP42CgAoAKACgAoA9s/Z0/
s7/hcng3+1vP/s7Ov/avs2PP2f8ACL63t2buP9ZjP+zmvz7xU/5IPPf+4H/qRRPsvD//AJK7KP8AuL/6
ZqH7/wD/ABaT/hUfb7Ht/wBj7V9p8v8A9Cr+Oz+lz//Z
</value>
</data>
<metadata name="bs_detail.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>214, 17</value>
</metadata>
<metadata name="커스텀.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>True</value>
</metadata>
<metadata name="code.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>True</value>
</metadata>
<metadata name="열저항.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>True</value>
</metadata>
<metadata name="전경.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>True</value>
</metadata>
<metadata name="Column1.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>True</value>
</metadata>
<metadata name="bn_detail.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>410, 17</value>
</metadata>
<data name="btj_showimg.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAIDSURBVDhPpZLrS5NhGMb3j4SWh0oRQVExD4gonkDpg4hG
YKxG6WBogkMZKgPNCEVJFBGdGETEvgwyO9DJE5syZw3PIlPEE9pgBCLZ5XvdMB8Ew8gXbl54nuf63dd9
0OGSnwCahxbPRNPAPMw9Xpg6ZmF46kZZ0xSKzJPIrhpDWsVnpBhGkKx3nAX8Pv7z1zg8OoY/cITdn4fw
bf/C0kYAN3Ma/w3gWfZL5kzTKBxjWyK2DftwI9tyMYCZKXbNHaD91bLYJrDXsYbrWfUKwJrPE9M2M1Oc
VzOOpHI7Jr376Hi9ogHqFIANO0/MmmmbmSmm9a8ze+I4MrNWAdjtoJgWcx+PSzg166yZZ8xM8XvXDix9
c4jIqFYAjoriBV9AhEPv1mH/sonogha0afbZMMZz+yreTGyhpusHwtNNCsA5U1zS4BLxzJIfg299qO32
Ir7UJtZfftyATqeT+8o2D8JSjQrAJblrncYL7ZJ2+bfaFnC/1S1NjL3diRat7qrO7wLRP3HjWsojBeCo
mDEo5mNjuweFGvjWg2EBhCbpkW78htSHHwRyNdmgAFzPEee2iFkzayy2OLXzT4gr6UdUnlXrullsxxQ+
kx0g8BTA3aZlButjSTyjODq/WcQcW/B/Je4OQhLvKQDnzN1mp0nnkvAhR8VuMzNrpm1mpjgkoVwB/v8D
TgDQASA1MVpwzwAAAABJRU5ErkJggg==
</value>
</data>
<metadata name="bs_gubun.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>512, 17</value>
</metadata>
<metadata name="bS_재료.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>314, 17</value>
</metadata>
<metadata name="$this.TrayHeight" type="System.Int32, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>46</value>
</metadata>
</root>

1172
ArinWarev1/Forms_Input/Frm_YK.vb Normal file
View File

File diff suppressed because it is too large Load Diff

1874
ArinWarev1/Forms_Input/Frm_Zone.Designer.vb generated Normal file
View File

File diff suppressed because it is too large Load Diff

444
ArinWarev1/Forms_Input/Frm_Zone.resx Normal file
View File

@@ -0,0 +1,444 @@
<?xml version="1.0" encoding="utf-8"?>
<root>
<!--
Microsoft ResX Schema
Version 2.0
The primary goals of this format is to allow a simple XML format
that is mostly human readable. The generation and parsing of the
various data types are done through the TypeConverter classes
associated with the data types.
Example:
... ado.net/XML headers & schema ...
<resheader name="resmimetype">text/microsoft-resx</resheader>
<resheader name="version">2.0</resheader>
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
<data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
<value>[base64 mime encoded serialized .NET Framework object]</value>
</data>
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
<comment>This is a comment</comment>
</data>
There are any number of "resheader" rows that contain simple
name/value pairs.
Each data row contains a name, and value. The row also contains a
type or mimetype. Type corresponds to a .NET class that support
text/value conversion through the TypeConverter architecture.
Classes that don't support this are serialized and stored with the
mimetype set.
The mimetype is used for serialized objects, and tells the
ResXResourceReader how to depersist the object. This is currently not
extensible. For a given mimetype the value must be set accordingly:
Note - application/x-microsoft.net.object.binary.base64 is the format
that the ResXResourceWriter will generate, however the reader can
read any of the formats listed below.
mimetype: application/x-microsoft.net.object.binary.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.soap.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.bytearray.base64
value : The object must be serialized into a byte array
: using a System.ComponentModel.TypeConverter
: and then encoded with base64 encoding.
-->
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
<xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
<xsd:element name="root" msdata:IsDataSet="true">
<xsd:complexType>
<xsd:choice maxOccurs="unbounded">
<xsd:element name="metadata">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" />
</xsd:sequence>
<xsd:attribute name="name" use="required" type="xsd:string" />
<xsd:attribute name="type" type="xsd:string" />
<xsd:attribute name="mimetype" type="xsd:string" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="assembly">
<xsd:complexType>
<xsd:attribute name="alias" type="xsd:string" />
<xsd:attribute name="name" type="xsd:string" />
</xsd:complexType>
</xsd:element>
<xsd:element name="data">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="resheader">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" />
</xsd:complexType>
</xsd:element>
</xsd:choice>
</xsd:complexType>
</xsd:element>
</xsd:schema>
<resheader name="resmimetype">
<value>text/microsoft-resx</value>
</resheader>
<resheader name="version">
<value>2.0</value>
</resheader>
<resheader name="reader">
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<resheader name="writer">
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<metadata name="bs.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>222, 17</value>
</metadata>
<metadata name="DS.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>286, 17</value>
</metadata>
<metadata name="ToolTip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>419, 17</value>
</metadata>
<metadata name="sortkey.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>True</value>
</metadata>
<metadata name="bn.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>353, 17</value>
</metadata>
<metadata name="ToolStrip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>519, 17</value>
</metadata>
<assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
<data name="PictureBox3.BackgroundImage" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
/9j/4AAQSkZJRgABAgEASABIAAD/7gAOQWRvYmUAZAAAAAAB/+ED5kV4aWYAAE1NACoAAAAIAAcBEgAD
AAAAAQABAAABGgAFAAAAAQAAAGIBGwAFAAAAAQAAAGoBKAADAAAAAQACAAABMQACAAAAHAAAAHIBMgAC
AAAAFAAAAI6HaQAEAAAAAQAAAKIAAADCAEgAAAABAAAASAAAAAEAAEFkb2JlIFBob3Rvc2hvcCBDUzMg
V2luZG93cwAyMDEwOjA0OjE1IDIwOjMyOjA0AAACoAIABAAAAAEAAAA8oAMABAAAAAEAAAAMAAAAAAAA
AAYBAwADAAAAAQAGAAABGgAFAAAAAQAAARABGwAFAAAAAQAAARgBKAADAAAAAQACAAACAQAEAAAAAQAA
ASACAgAEAAAAAQAAAr4AAAAAAAAASAAAAAEAAABIAAAAAf/Y/+AAEEpGSUYAAQIAAEgASAAA/+0ADEFk
b2JlX0NNAAH/7gAOQWRvYmUAZIAAAAAB/9sAhAAMCAgICQgMCQkMEQsKCxEVDwwMDxUYExMVExMYEQwM
DAwMDBEMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMAQ0LCw0ODRAODhAUDg4OFBQODg4OFBEMDAwM
DBERDAwMDAwMEQwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAz/wAARCAAMADwDASIAAhEBAxEB/90A
BAAE/8QBPwAAAQUBAQEBAQEAAAAAAAAAAwABAgQFBgcICQoLAQABBQEBAQEBAQAAAAAAAAABAAIDBAUG
BwgJCgsQAAEEAQMCBAIFBwYIBQMMMwEAAhEDBCESMQVBUWETInGBMgYUkaGxQiMkFVLBYjM0coLRQwcl
klPw4fFjczUWorKDJkSTVGRFwqN0NhfSVeJl8rOEw9N14/NGJ5SkhbSVxNTk9KW1xdXl9VZmdoaWprbG
1ub2N0dXZ3eHl6e3x9fn9xEAAgIBAgQEAwQFBgcHBgU1AQACEQMhMRIEQVFhcSITBTKBkRShsUIjwVLR
8DMkYuFygpJDUxVjczTxJQYWorKDByY1wtJEk1SjF2RFVTZ0ZeLys4TD03Xj80aUpIW0lcTU5PSltcXV
5fVWZnaGlqa2xtbm9ic3R1dnd4eXp7fH/9oADAMBAAIRAxEAPwDd/amR/pH/AOcf70v2pkf6R/8AnH+9
UUlofq/Bpevxb37UyP8ASP8A84/3pftTI/0j/wDOP96opJfq/BXr8W9+1Mj/AEj/APOP96X7UyP9I/8A
zj/eqKSX6vwV6/F3ujdbuGS2i5xfU8HVxktIG76XyW99vo27p0XGdO2/ba930dZj+q5dX+qfZPL8VAeD
341VVr/eZhx+0bu708n/2f/iDFhJQ0NfUFJPRklMRQABAQAADEhMaW5vAhAAAG1udHJSR0IgWFlaIAfO
AAIACQAGADEAAGFjc3BNU0ZUAAAAAElFQyBzUkdCAAAAAAAAAAAAAAAAAAD21gABAAAAANMtSFAgIAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAEWNwcnQAAAFQAAAAM2Rl
c2MAAAGEAAAAbHd0cHQAAAHwAAAAFGJrcHQAAAIEAAAAFHJYWVoAAAIYAAAAFGdYWVoAAAIsAAAAFGJY
WVoAAAJAAAAAFGRtbmQAAAJUAAAAcGRtZGQAAALEAAAAiHZ1ZWQAAANMAAAAhnZpZXcAAAPUAAAAJGx1
bWkAAAP4AAAAFG1lYXMAAAQMAAAAJHRlY2gAAAQwAAAADHJUUkMAAAQ8AAAIDGdUUkMAAAQ8AAAIDGJU
UkMAAAQ8AAAIDHRleHQAAAAAQ29weXJpZ2h0IChjKSAxOTk4IEhld2xldHQtUGFja2FyZCBDb21wYW55
AABkZXNjAAAAAAAAABJzUkdCIElFQzYxOTY2LTIuMQAAAAAAAAAAAAAAEnNSR0IgSUVDNjE5NjYtMi4x
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABYWVogAAAAAAAA
81EAAQAAAAEWzFhZWiAAAAAAAAAAAAAAAAAAAAAAWFlaIAAAAAAAAG+iAAA49QAAA5BYWVogAAAAAAAA
YpkAALeFAAAY2lhZWiAAAAAAAAAkoAAAD4QAALbPZGVzYwAAAAAAAAAWSUVDIGh0dHA6Ly93d3cuaWVj
LmNoAAAAAAAAAAAAAAAWSUVDIGh0dHA6Ly93d3cuaWVjLmNoAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAGRlc2MAAAAAAAAALklFQyA2MTk2Ni0yLjEgRGVmYXVsdCBSR0Ig
Y29sb3VyIHNwYWNlIC0gc1JHQgAAAAAAAAAAAAAALklFQyA2MTk2Ni0yLjEgRGVmYXVsdCBSR0IgY29s
b3VyIHNwYWNlIC0gc1JHQgAAAAAAAAAAAAAAAAAAAAAAAAAAAABkZXNjAAAAAAAAACxSZWZlcmVuY2Ug
Vmlld2luZyBDb25kaXRpb24gaW4gSUVDNjE5NjYtMi4xAAAAAAAAAAAAAAAsUmVmZXJlbmNlIFZpZXdp
bmcgQ29uZGl0aW9uIGluIElFQzYxOTY2LTIuMQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAdmlldwAA
AAAAE6T+ABRfLgAQzxQAA+3MAAQTCwADXJ4AAAABWFlaIAAAAAAATAlWAFAAAABXH+dtZWFzAAAAAAAA
AAEAAAAAAAAAAAAAAAAAAAAAAAACjwAAAAJzaWcgAAAAAENSVCBjdXJ2AAAAAAAABAAAAAAFAAoADwAU
ABkAHgAjACgALQAyADcAOwBAAEUASgBPAFQAWQBeAGMAaABtAHIAdwB8AIEAhgCLAJAAlQCaAJ8ApACp
AK4AsgC3ALwAwQDGAMsA0ADVANsA4ADlAOsA8AD2APsBAQEHAQ0BEwEZAR8BJQErATIBOAE+AUUBTAFS
AVkBYAFnAW4BdQF8AYMBiwGSAZoBoQGpAbEBuQHBAckB0QHZAeEB6QHyAfoCAwIMAhQCHQImAi8COAJB
AksCVAJdAmcCcQJ6AoQCjgKYAqICrAK2AsECywLVAuAC6wL1AwADCwMWAyEDLQM4A0MDTwNaA2YDcgN+
A4oDlgOiA64DugPHA9MD4APsA/kEBgQTBCAELQQ7BEgEVQRjBHEEfgSMBJoEqAS2BMQE0wThBPAE/gUN
BRwFKwU6BUkFWAVnBXcFhgWWBaYFtQXFBdUF5QX2BgYGFgYnBjcGSAZZBmoGewaMBp0GrwbABtEG4wb1
BwcHGQcrBz0HTwdhB3QHhgeZB6wHvwfSB+UH+AgLCB8IMghGCFoIbgiCCJYIqgi+CNII5wj7CRAJJQk6
CU8JZAl5CY8JpAm6Cc8J5Qn7ChEKJwo9ClQKagqBCpgKrgrFCtwK8wsLCyILOQtRC2kLgAuYC7ALyAvh
C/kMEgwqDEMMXAx1DI4MpwzADNkM8w0NDSYNQA1aDXQNjg2pDcMN3g34DhMOLg5JDmQOfw6bDrYO0g7u
DwkPJQ9BD14Peg+WD7MPzw/sEAkQJhBDEGEQfhCbELkQ1xD1ERMRMRFPEW0RjBGqEckR6BIHEiYSRRJk
EoQSoxLDEuMTAxMjE0MTYxODE6QTxRPlFAYUJxRJFGoUixStFM4U8BUSFTQVVhV4FZsVvRXgFgMWJhZJ
FmwWjxayFtYW+hcdF0EXZReJF64X0hf3GBsYQBhlGIoYrxjVGPoZIBlFGWsZkRm3Gd0aBBoqGlEadxqe
GsUa7BsUGzsbYxuKG7Ib2hwCHCocUhx7HKMczBz1HR4dRx1wHZkdwx3sHhYeQB5qHpQevh7pHxMfPh9p
H5Qfvx/qIBUgQSBsIJggxCDwIRwhSCF1IaEhziH7IiciVSKCIq8i3SMKIzgjZiOUI8Ij8CQfJE0kfCSr
JNolCSU4JWgllyXHJfcmJyZXJocmtyboJxgnSSd6J6sn3CgNKD8ocSiiKNQpBik4KWspnSnQKgIqNSpo
KpsqzysCKzYraSudK9EsBSw5LG4soizXLQwtQS12Last4S4WLkwugi63Lu4vJC9aL5Evxy/+MDUwbDCk
MNsxEjFKMYIxujHyMioyYzKbMtQzDTNGM38zuDPxNCs0ZTSeNNg1EzVNNYc1wjX9Njc2cjauNuk3JDdg
N5w31zgUOFA4jDjIOQU5Qjl/Obw5+To2OnQ6sjrvOy07azuqO+g8JzxlPKQ84z0iPWE9oT3gPiA+YD6g
PuA/IT9hP6I/4kAjQGRApkDnQSlBakGsQe5CMEJyQrVC90M6Q31DwEQDREdEikTORRJFVUWaRd5GIkZn
RqtG8Ec1R3tHwEgFSEtIkUjXSR1JY0mpSfBKN0p9SsRLDEtTS5pL4kwqTHJMuk0CTUpNk03cTiVObk63
TwBPSU+TT91QJ1BxULtRBlFQUZtR5lIxUnxSx1MTU19TqlP2VEJUj1TbVShVdVXCVg9WXFapVvdXRFeS
V+BYL1h9WMtZGllpWbhaB1pWWqZa9VtFW5Vb5Vw1XIZc1l0nXXhdyV4aXmxevV8PX2Ffs2AFYFdgqmD8
YU9homH1YklinGLwY0Njl2PrZEBklGTpZT1lkmXnZj1mkmboZz1nk2fpaD9olmjsaUNpmmnxakhqn2r3
a09rp2v/bFdsr20IbWBtuW4SbmtuxG8eb3hv0XArcIZw4HE6cZVx8HJLcqZzAXNdc7h0FHRwdMx1KHWF
deF2Pnabdvh3VnezeBF4bnjMeSp5iXnnekZ6pXsEe2N7wnwhfIF84X1BfaF+AX5ifsJ/I3+Ef+WAR4Co
gQqBa4HNgjCCkoL0g1eDuoQdhICE44VHhauGDoZyhteHO4efiASIaYjOiTOJmYn+imSKyoswi5aL/Ixj
jMqNMY2Yjf+OZo7OjzaPnpAGkG6Q1pE/kaiSEZJ6kuOTTZO2lCCUipT0lV+VyZY0lp+XCpd1l+CYTJi4
mSSZkJn8mmia1ZtCm6+cHJyJnPedZJ3SnkCerp8dn4uf+qBpoNihR6G2oiailqMGo3aj5qRWpMelOKWp
phqmi6b9p26n4KhSqMSpN6mpqhyqj6sCq3Wr6axcrNCtRK24ri2uoa8Wr4uwALB1sOqxYLHWskuywrM4
s660JbSctRO1irYBtnm28Ldot+C4WbjRuUq5wro7urW7LrunvCG8m70VvY++Cr6Evv+/er/1wHDA7MFn
wePCX8Lbw1jD1MRRxM7FS8XIxkbGw8dBx7/IPci8yTrJuco4yrfLNsu2zDXMtc01zbXONs62zzfPuNA5
0LrRPNG+0j/SwdNE08bUSdTL1U7V0dZV1tjXXNfg2GTY6Nls2fHadtr724DcBdyK3RDdlt4c3qLfKd+v
4DbgveFE4cziU+Lb42Pj6+Rz5PzlhOYN5pbnH+ep6DLovOlG6dDqW+rl63Dr++yG7RHtnO4o7rTvQO/M
8Fjw5fFy8f/yjPMZ86f0NPTC9VD13vZt9vv3ivgZ+Kj5OPnH+lf65/t3/Af8mP0p/br+S/7c/23////b
AEMAAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQICAgICAgICAgICAwMD
AwMDAwMDA//bAEMBAQEBAQEBAQEBAQICAQICAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMD
AwMDAwMDAwMDAwMDAwMDA//AABEIAAwAPAMBEQACEQEDEQH/xAAfAAABBQEBAQEBAQAAAAAAAAAAAQID
BAUGBwgJCgv/xAC1EAACAQMDAgQDBQUEBAAAAX0BAgMABBEFEiExQQYTUWEHInEUMoGRoQgjQrHBFVLR
8CQzYnKCCQoWFxgZGiUmJygpKjQ1Njc4OTpDREVGR0hJSlNUVVZXWFlaY2RlZmdoaWpzdHV2d3h5eoOE
hYaHiImKkpOUlZaXmJmaoqOkpaanqKmqsrO0tba3uLm6wsPExcbHyMnK0tPU1dbX2Nna4eLj5OXm5+jp
6vHy8/T19vf4+fr/xAAfAQADAQEBAQEBAQEBAAAAAAAAAQIDBAUGBwgJCgv/xAC1EQACAQIEBAMEBwUE
BAABAncAAQIDEQQFITEGEkFRB2FxEyIygQgUQpGhscEJIzNS8BVictEKFiQ04SXxFxgZGiYnKCkqNTY3
ODk6Q0RFRkdISUpTVFVWV1hZWmNkZWZnaGlqc3R1dnd4eXqCg4SFhoeIiYqSk5SVlpeYmZqio6Slpqeo
qaqys7S1tre4ubrCw8TFxsfIycrS09TV1tfY2dri4+Tl5ufo6ery8/T19vf4+fr/2gAMAwEAAhEDEQA/
AP1ZH7UPxEAA/wCEw8bnj/ob9f8A/k+v7U/1Nyj/AKF+G/8ABUP/AJE/llcSZlZf7dX/APBk/wDMX/hq
H4if9Df43/8ACv1//wCT6P8AU3Kf+hfhv/BUP/kQ/wBZcy/6Dq//AIMn/mH/AA1D8RP+hv8AG/8A4V+v
/wDyfR/qblP/AEL8N/4Kh/8AIh/rLmX/AEHV/wDwZP8AzD/hqH4if9Df43/8K/X/AP5Po/1Nyn/oX4b/
AMFQ/wDkQ/1lzL/oOr/+DJ/5h/w1D8RP+hv8b/8AhX6//wDJ9H+puU/9C/Df+Cof/Ih/rLmX/QdX/wDB
k/8AMT/hqH4if9Df43/8K/X/AP5Po/1Nyn/oX4b/AMFQ/wDkQ/1kzL/oOr/+DJ/5n2R+xz+234zt/iRp
nw+8a6vqXiDwZ4gs9baObXr+bUr/AMPajpmkX2tQ3FlqV2Zb57K7XT2t3tXkaJWkV4whVxJ+beJfAuU4
Th/FZ/hKEKOMw8qd+SKjGcZzjTs4q0bpyUlJK7s073VvuuBOLMxxGcYfJ8TWlVw1ZTtzu7hKMJTupPWz
UWnFu2qatrf9aP8AhfXgv+zv7U89/sfm+V5207N+M43fSv50P2w/kwr/AEFP42CgAoAKACgAoA9s/Z0/
s7/hcng3+1vP/s7Ov/avs2PP2f8ACL63t2buP9ZjP+zmvz7xU/5IPPf+4H/qRRPsvD//AJK7KP8AuL/6
ZqH7/wD/ABaT/hUfb7Ht/wBj7V9p8v8A9Cr+Oz+lz//Z
</value>
</data>
<data name="PictureBox1.BackgroundImage" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
/9j/4AAQSkZJRgABAgEASABIAAD/7gAOQWRvYmUAZAAAAAAB/+ED5kV4aWYAAE1NACoAAAAIAAcBEgAD
AAAAAQABAAABGgAFAAAAAQAAAGIBGwAFAAAAAQAAAGoBKAADAAAAAQACAAABMQACAAAAHAAAAHIBMgAC
AAAAFAAAAI6HaQAEAAAAAQAAAKIAAADCAEgAAAABAAAASAAAAAEAAEFkb2JlIFBob3Rvc2hvcCBDUzMg
V2luZG93cwAyMDEwOjA0OjE1IDIwOjMyOjA0AAACoAIABAAAAAEAAAA8oAMABAAAAAEAAAAMAAAAAAAA
AAYBAwADAAAAAQAGAAABGgAFAAAAAQAAARABGwAFAAAAAQAAARgBKAADAAAAAQACAAACAQAEAAAAAQAA
ASACAgAEAAAAAQAAAr4AAAAAAAAASAAAAAEAAABIAAAAAf/Y/+AAEEpGSUYAAQIAAEgASAAA/+0ADEFk
b2JlX0NNAAH/7gAOQWRvYmUAZIAAAAAB/9sAhAAMCAgICQgMCQkMEQsKCxEVDwwMDxUYExMVExMYEQwM
DAwMDBEMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMAQ0LCw0ODRAODhAUDg4OFBQODg4OFBEMDAwM
DBERDAwMDAwMEQwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAz/wAARCAAMADwDASIAAhEBAxEB/90A
BAAE/8QBPwAAAQUBAQEBAQEAAAAAAAAAAwABAgQFBgcICQoLAQABBQEBAQEBAQAAAAAAAAABAAIDBAUG
BwgJCgsQAAEEAQMCBAIFBwYIBQMMMwEAAhEDBCESMQVBUWETInGBMgYUkaGxQiMkFVLBYjM0coLRQwcl
klPw4fFjczUWorKDJkSTVGRFwqN0NhfSVeJl8rOEw9N14/NGJ5SkhbSVxNTk9KW1xdXl9VZmdoaWprbG
1ub2N0dXZ3eHl6e3x9fn9xEAAgIBAgQEAwQFBgcHBgU1AQACEQMhMRIEQVFhcSITBTKBkRShsUIjwVLR
8DMkYuFygpJDUxVjczTxJQYWorKDByY1wtJEk1SjF2RFVTZ0ZeLys4TD03Xj80aUpIW0lcTU5PSltcXV
5fVWZnaGlqa2xtbm9ic3R1dnd4eXp7fH/9oADAMBAAIRAxEAPwDd/amR/pH/AOcf70v2pkf6R/8AnH+9
UUlofq/Bpevxb37UyP8ASP8A84/3pftTI/0j/wDOP96opJfq/BXr8W9+1Mj/AEj/APOP96X7UyP9I/8A
zj/eqKSX6vwV6/F3ujdbuGS2i5xfU8HVxktIG76XyW99vo27p0XGdO2/ba930dZj+q5dX+qfZPL8VAeD
341VVr/eZhx+0bu708n/2f/iDFhJQ0NfUFJPRklMRQABAQAADEhMaW5vAhAAAG1udHJSR0IgWFlaIAfO
AAIACQAGADEAAGFjc3BNU0ZUAAAAAElFQyBzUkdCAAAAAAAAAAAAAAAAAAD21gABAAAAANMtSFAgIAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAEWNwcnQAAAFQAAAAM2Rl
c2MAAAGEAAAAbHd0cHQAAAHwAAAAFGJrcHQAAAIEAAAAFHJYWVoAAAIYAAAAFGdYWVoAAAIsAAAAFGJY
WVoAAAJAAAAAFGRtbmQAAAJUAAAAcGRtZGQAAALEAAAAiHZ1ZWQAAANMAAAAhnZpZXcAAAPUAAAAJGx1
bWkAAAP4AAAAFG1lYXMAAAQMAAAAJHRlY2gAAAQwAAAADHJUUkMAAAQ8AAAIDGdUUkMAAAQ8AAAIDGJU
UkMAAAQ8AAAIDHRleHQAAAAAQ29weXJpZ2h0IChjKSAxOTk4IEhld2xldHQtUGFja2FyZCBDb21wYW55
AABkZXNjAAAAAAAAABJzUkdCIElFQzYxOTY2LTIuMQAAAAAAAAAAAAAAEnNSR0IgSUVDNjE5NjYtMi4x
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABYWVogAAAAAAAA
81EAAQAAAAEWzFhZWiAAAAAAAAAAAAAAAAAAAAAAWFlaIAAAAAAAAG+iAAA49QAAA5BYWVogAAAAAAAA
YpkAALeFAAAY2lhZWiAAAAAAAAAkoAAAD4QAALbPZGVzYwAAAAAAAAAWSUVDIGh0dHA6Ly93d3cuaWVj
LmNoAAAAAAAAAAAAAAAWSUVDIGh0dHA6Ly93d3cuaWVjLmNoAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAGRlc2MAAAAAAAAALklFQyA2MTk2Ni0yLjEgRGVmYXVsdCBSR0Ig
Y29sb3VyIHNwYWNlIC0gc1JHQgAAAAAAAAAAAAAALklFQyA2MTk2Ni0yLjEgRGVmYXVsdCBSR0IgY29s
b3VyIHNwYWNlIC0gc1JHQgAAAAAAAAAAAAAAAAAAAAAAAAAAAABkZXNjAAAAAAAAACxSZWZlcmVuY2Ug
Vmlld2luZyBDb25kaXRpb24gaW4gSUVDNjE5NjYtMi4xAAAAAAAAAAAAAAAsUmVmZXJlbmNlIFZpZXdp
bmcgQ29uZGl0aW9uIGluIElFQzYxOTY2LTIuMQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAdmlldwAA
AAAAE6T+ABRfLgAQzxQAA+3MAAQTCwADXJ4AAAABWFlaIAAAAAAATAlWAFAAAABXH+dtZWFzAAAAAAAA
AAEAAAAAAAAAAAAAAAAAAAAAAAACjwAAAAJzaWcgAAAAAENSVCBjdXJ2AAAAAAAABAAAAAAFAAoADwAU
ABkAHgAjACgALQAyADcAOwBAAEUASgBPAFQAWQBeAGMAaABtAHIAdwB8AIEAhgCLAJAAlQCaAJ8ApACp
AK4AsgC3ALwAwQDGAMsA0ADVANsA4ADlAOsA8AD2APsBAQEHAQ0BEwEZAR8BJQErATIBOAE+AUUBTAFS
AVkBYAFnAW4BdQF8AYMBiwGSAZoBoQGpAbEBuQHBAckB0QHZAeEB6QHyAfoCAwIMAhQCHQImAi8COAJB
AksCVAJdAmcCcQJ6AoQCjgKYAqICrAK2AsECywLVAuAC6wL1AwADCwMWAyEDLQM4A0MDTwNaA2YDcgN+
A4oDlgOiA64DugPHA9MD4APsA/kEBgQTBCAELQQ7BEgEVQRjBHEEfgSMBJoEqAS2BMQE0wThBPAE/gUN
BRwFKwU6BUkFWAVnBXcFhgWWBaYFtQXFBdUF5QX2BgYGFgYnBjcGSAZZBmoGewaMBp0GrwbABtEG4wb1
BwcHGQcrBz0HTwdhB3QHhgeZB6wHvwfSB+UH+AgLCB8IMghGCFoIbgiCCJYIqgi+CNII5wj7CRAJJQk6
CU8JZAl5CY8JpAm6Cc8J5Qn7ChEKJwo9ClQKagqBCpgKrgrFCtwK8wsLCyILOQtRC2kLgAuYC7ALyAvh
C/kMEgwqDEMMXAx1DI4MpwzADNkM8w0NDSYNQA1aDXQNjg2pDcMN3g34DhMOLg5JDmQOfw6bDrYO0g7u
DwkPJQ9BD14Peg+WD7MPzw/sEAkQJhBDEGEQfhCbELkQ1xD1ERMRMRFPEW0RjBGqEckR6BIHEiYSRRJk
EoQSoxLDEuMTAxMjE0MTYxODE6QTxRPlFAYUJxRJFGoUixStFM4U8BUSFTQVVhV4FZsVvRXgFgMWJhZJ
FmwWjxayFtYW+hcdF0EXZReJF64X0hf3GBsYQBhlGIoYrxjVGPoZIBlFGWsZkRm3Gd0aBBoqGlEadxqe
GsUa7BsUGzsbYxuKG7Ib2hwCHCocUhx7HKMczBz1HR4dRx1wHZkdwx3sHhYeQB5qHpQevh7pHxMfPh9p
H5Qfvx/qIBUgQSBsIJggxCDwIRwhSCF1IaEhziH7IiciVSKCIq8i3SMKIzgjZiOUI8Ij8CQfJE0kfCSr
JNolCSU4JWgllyXHJfcmJyZXJocmtyboJxgnSSd6J6sn3CgNKD8ocSiiKNQpBik4KWspnSnQKgIqNSpo
KpsqzysCKzYraSudK9EsBSw5LG4soizXLQwtQS12Last4S4WLkwugi63Lu4vJC9aL5Evxy/+MDUwbDCk
MNsxEjFKMYIxujHyMioyYzKbMtQzDTNGM38zuDPxNCs0ZTSeNNg1EzVNNYc1wjX9Njc2cjauNuk3JDdg
N5w31zgUOFA4jDjIOQU5Qjl/Obw5+To2OnQ6sjrvOy07azuqO+g8JzxlPKQ84z0iPWE9oT3gPiA+YD6g
PuA/IT9hP6I/4kAjQGRApkDnQSlBakGsQe5CMEJyQrVC90M6Q31DwEQDREdEikTORRJFVUWaRd5GIkZn
RqtG8Ec1R3tHwEgFSEtIkUjXSR1JY0mpSfBKN0p9SsRLDEtTS5pL4kwqTHJMuk0CTUpNk03cTiVObk63
TwBPSU+TT91QJ1BxULtRBlFQUZtR5lIxUnxSx1MTU19TqlP2VEJUj1TbVShVdVXCVg9WXFapVvdXRFeS
V+BYL1h9WMtZGllpWbhaB1pWWqZa9VtFW5Vb5Vw1XIZc1l0nXXhdyV4aXmxevV8PX2Ffs2AFYFdgqmD8
YU9homH1YklinGLwY0Njl2PrZEBklGTpZT1lkmXnZj1mkmboZz1nk2fpaD9olmjsaUNpmmnxakhqn2r3
a09rp2v/bFdsr20IbWBtuW4SbmtuxG8eb3hv0XArcIZw4HE6cZVx8HJLcqZzAXNdc7h0FHRwdMx1KHWF
deF2Pnabdvh3VnezeBF4bnjMeSp5iXnnekZ6pXsEe2N7wnwhfIF84X1BfaF+AX5ifsJ/I3+Ef+WAR4Co
gQqBa4HNgjCCkoL0g1eDuoQdhICE44VHhauGDoZyhteHO4efiASIaYjOiTOJmYn+imSKyoswi5aL/Ixj
jMqNMY2Yjf+OZo7OjzaPnpAGkG6Q1pE/kaiSEZJ6kuOTTZO2lCCUipT0lV+VyZY0lp+XCpd1l+CYTJi4
mSSZkJn8mmia1ZtCm6+cHJyJnPedZJ3SnkCerp8dn4uf+qBpoNihR6G2oiailqMGo3aj5qRWpMelOKWp
phqmi6b9p26n4KhSqMSpN6mpqhyqj6sCq3Wr6axcrNCtRK24ri2uoa8Wr4uwALB1sOqxYLHWskuywrM4
s660JbSctRO1irYBtnm28Ldot+C4WbjRuUq5wro7urW7LrunvCG8m70VvY++Cr6Evv+/er/1wHDA7MFn
wePCX8Lbw1jD1MRRxM7FS8XIxkbGw8dBx7/IPci8yTrJuco4yrfLNsu2zDXMtc01zbXONs62zzfPuNA5
0LrRPNG+0j/SwdNE08bUSdTL1U7V0dZV1tjXXNfg2GTY6Nls2fHadtr724DcBdyK3RDdlt4c3qLfKd+v
4DbgveFE4cziU+Lb42Pj6+Rz5PzlhOYN5pbnH+ep6DLovOlG6dDqW+rl63Dr++yG7RHtnO4o7rTvQO/M
8Fjw5fFy8f/yjPMZ86f0NPTC9VD13vZt9vv3ivgZ+Kj5OPnH+lf65/t3/Af8mP0p/br+S/7c/23////b
AEMAAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQICAgICAgICAgICAwMD
AwMDAwMDA//bAEMBAQEBAQEBAQEBAQICAQICAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMD
AwMDAwMDAwMDAwMDAwMDA//AABEIAAwAPAMBEQACEQEDEQH/xAAfAAABBQEBAQEBAQAAAAAAAAAAAQID
BAUGBwgJCgv/xAC1EAACAQMDAgQDBQUEBAAAAX0BAgMABBEFEiExQQYTUWEHInEUMoGRoQgjQrHBFVLR
8CQzYnKCCQoWFxgZGiUmJygpKjQ1Njc4OTpDREVGR0hJSlNUVVZXWFlaY2RlZmdoaWpzdHV2d3h5eoOE
hYaHiImKkpOUlZaXmJmaoqOkpaanqKmqsrO0tba3uLm6wsPExcbHyMnK0tPU1dbX2Nna4eLj5OXm5+jp
6vHy8/T19vf4+fr/xAAfAQADAQEBAQEBAQEBAAAAAAAAAQIDBAUGBwgJCgv/xAC1EQACAQIEBAMEBwUE
BAABAncAAQIDEQQFITEGEkFRB2FxEyIygQgUQpGhscEJIzNS8BVictEKFiQ04SXxFxgZGiYnKCkqNTY3
ODk6Q0RFRkdISUpTVFVWV1hZWmNkZWZnaGlqc3R1dnd4eXqCg4SFhoeIiYqSk5SVlpeYmZqio6Slpqeo
qaqys7S1tre4ubrCw8TFxsfIycrS09TV1tfY2dri4+Tl5ufo6ery8/T19vf4+fr/2gAMAwEAAhEDEQA/
AP1ZH7UPxEAA/wCEw8bnj/ob9f8A/k+v7U/1Nyj/AKF+G/8ABUP/AJE/llcSZlZf7dX/APBk/wDMX/hq
H4if9Df43/8ACv1//wCT6P8AU3Kf+hfhv/BUP/kQ/wBZcy/6Dq//AIMn/mH/AA1D8RP+hv8AG/8A4V+v
/wDyfR/qblP/AEL8N/4Kh/8AIh/rLmX/AEHV/wDwZP8AzD/hqH4if9Df43/8K/X/AP5Po/1Nyn/oX4b/
AMFQ/wDkQ/1lzL/oOr/+DJ/5h/w1D8RP+hv8b/8AhX6//wDJ9H+puU/9C/Df+Cof/Ih/rLmX/QdX/wDB
k/8AMT/hqH4if9Df43/8K/X/AP5Po/1Nyn/oX4b/AMFQ/wDkQ/1kzL/oOr/+DJ/5n2R+xz+234zt/iRp
nw+8a6vqXiDwZ4gs9baObXr+bUr/AMPajpmkX2tQ3FlqV2Zb57K7XT2t3tXkaJWkV4whVxJ+beJfAuU4
Th/FZ/hKEKOMw8qd+SKjGcZzjTs4q0bpyUlJK7s073VvuuBOLMxxGcYfJ8TWlVw1ZTtzu7hKMJTupPWz
UWnFu2qatrf9aP8AhfXgv+zv7U89/sfm+V5207N+M43fSv50P2w/kwr/AEFP42CgAoAKACgAoA9s/Z0/
s7/hcng3+1vP/s7Ov/avs2PP2f8ACL63t2buP9ZjP+zmvz7xU/5IPPf+4H/qRRPsvD//AJK7KP8AuL/6
ZqH7/wD/ABaT/hUfb7Ht/wBj7V9p8v8A9Cr+Oz+lz//Z
</value>
</data>
<metadata name="Label16.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</metadata>
<metadata name="주말운전방식Label.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</metadata>
<metadata name="외기부하처리여부Label.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</metadata>
<metadata name="야간운전방식Label.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</metadata>
<metadata name="냉난방공조Label.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</metadata>
<metadata name="침기율Label.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</metadata>
<metadata name="냉난방방식Label.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</metadata>
<metadata name="열저장능력Label.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</metadata>
<metadata name="열교가산치Label.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</metadata>
<metadata name="Label35.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</metadata>
<metadata name="Label36.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">
<value>False</value>
</metadata>
<metadata name="Label40.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</metadata>
<metadata name="Label38.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">
<value>False</value>
</metadata>
<metadata name="Label37.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</metadata>
<metadata name="Label39.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</metadata>
<metadata name="Label41.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="Label44.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</metadata>
<metadata name="Label45.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="순실체적Label.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</metadata>
<metadata name="천장고Label.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="Label2.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="Label10.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="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="Label3.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="Label5.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</metadata>
<metadata name="ErrProvider.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>628, 17</value>
</metadata>
<metadata name="$this.TrayHeight" type="System.Int32, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>62</value>
</metadata>
</root>

1646
ArinWarev1/Forms_Input/Frm_Zone.vb Normal file
View File

File diff suppressed because it is too large Load Diff

924
ArinWarev1/Forms_Input/Frm_kongjo.Designer.vb generated Normal file
View File

@@ -0,0 +1,924 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class Frm_kongjo
Inherits CForm
'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.components = New System.ComponentModel.Container()
Dim Label169 As System.Windows.Forms.Label
Dim Label170 As System.Windows.Forms.Label
Dim Label171 As System.Windows.Forms.Label
Dim Label172 As System.Windows.Forms.Label
Dim Label173 As System.Windows.Forms.Label
Dim Label174 As System.Windows.Forms.Label
Dim Label175 As System.Windows.Forms.Label
Dim Label179 As System.Windows.Forms.Label
Dim Label178 As System.Windows.Forms.Label
Dim Label177 As System.Windows.Forms.Label
Dim Label176 As System.Windows.Forms.Label
Dim Label167 As System.Windows.Forms.Label
Dim Label168 As System.Windows.Forms.Label
Dim Label1 As System.Windows.Forms.Label
Dim Label3 As System.Windows.Forms.Label
Dim Label4 As System.Windows.Forms.Label
Dim Label5 As System.Windows.Forms.Label
Dim Label6 As System.Windows.Forms.Label
Dim Label7 As System.Windows.Forms.Label
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(Frm_kongjo))
Me.tb_zone_cnt = New System.Windows.Forms.TextBox()
Me.Label48 = New System.Windows.Forms.Label()
Me.SplitContainer1 = New System.Windows.Forms.SplitContainer()
Me.dv = New CEnergy.arindv()
Me.DataGridViewTextBoxColumn1 = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.bs = New System.Windows.Forms.BindingSource(Me.components)
Me.DS = New Eco2Ar.DS()
Me.bn = New System.Windows.Forms.BindingNavigator(Me.components)
Me.lbl_count = New System.Windows.Forms.ToolStripLabel()
Me.bt_add = New System.Windows.Forms.ToolStripButton()
Me.bt_Del = New System.Windows.Forms.ToolStripButton()
Me.bt_cancel = New System.Windows.Forms.ToolStripButton()
Me.ToolStripSeparator1 = New System.Windows.Forms.ToolStripSeparator()
Me.lbl_pos = New System.Windows.Forms.ToolStripLabel()
Me.ToolStripSeparator2 = New System.Windows.Forms.ToolStripSeparator()
Me.lb_code = New System.Windows.Forms.ToolStripLabel()
Me.Label15 = New System.Windows.Forms.Label()
Me.PictureBox4 = New System.Windows.Forms.PictureBox()
Me.GroupBox2 = New System.Windows.Forms.GroupBox()
Me.Tb_배기팬동력 = New Eco2Ar.MyTb()
Me.Tb_급기팬동력 = New Eco2Ar.MyTb()
Me.Tb_배기팬효율 = New Eco2Ar.MyTb()
Me.Tb_배기풍량 = New Eco2Ar.MyTb()
Me.Tb_급기팬효율 = New Eco2Ar.MyTb()
Me.Tb_배기팬압력손실 = New Eco2Ar.MyTb()
Me.Tb_급기풍량 = New Eco2Ar.MyTb()
Me.Tb_급기팬압력손실 = New Eco2Ar.MyTb()
Me.Cmb_팬효율산출방식 = New Eco2Ar.MyCmb()
Me.PictureBox2 = New System.Windows.Forms.PictureBox()
Me.GroupBox1 = New System.Windows.Forms.GroupBox()
Me.공조방식NCMB = New Eco2Ar.MyCmb()
Me.tb_01 = New Eco2Ar.MyTb()
Me.tb_02 = New Eco2Ar.MyTb()
Me.tb_03 = New Eco2Ar.MyTb()
Me.tb_13 = New Eco2Ar.MyTb()
Me.열교환기유형ComboBox = New Eco2Ar.MyCmb()
Me.리턴공기혼합여부ComboBox = New Eco2Ar.MyCmb()
Me.가습기유형ComboBox = New Eco2Ar.MyCmb()
Me.tb_08 = New Eco2Ar.MyTb()
Me.외기냉방제어유무ComboBox = New Eco2Ar.MyCmb()
Me.PictureBox1 = New System.Windows.Forms.PictureBox()
Me.Panel1 = New System.Windows.Forms.Panel()
Me.TextBox1 = New System.Windows.Forms.TextBox()
Me.Label2 = New System.Windows.Forms.Label()
Label169 = New System.Windows.Forms.Label()
Label170 = New System.Windows.Forms.Label()
Label171 = New System.Windows.Forms.Label()
Label172 = New System.Windows.Forms.Label()
Label173 = New System.Windows.Forms.Label()
Label174 = New System.Windows.Forms.Label()
Label175 = New System.Windows.Forms.Label()
Label179 = New System.Windows.Forms.Label()
Label178 = New System.Windows.Forms.Label()
Label177 = New System.Windows.Forms.Label()
Label176 = New System.Windows.Forms.Label()
Label167 = New System.Windows.Forms.Label()
Label168 = New System.Windows.Forms.Label()
Label1 = New System.Windows.Forms.Label()
Label3 = New System.Windows.Forms.Label()
Label4 = New System.Windows.Forms.Label()
Label5 = New System.Windows.Forms.Label()
Label6 = New System.Windows.Forms.Label()
Label7 = New System.Windows.Forms.Label()
CType(Me.SplitContainer1, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SplitContainer1.Panel1.SuspendLayout()
Me.SplitContainer1.Panel2.SuspendLayout()
Me.SplitContainer1.SuspendLayout()
CType(Me.dv, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.bs, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.DS, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.bn, System.ComponentModel.ISupportInitialize).BeginInit()
Me.bn.SuspendLayout()
CType(Me.PictureBox4, System.ComponentModel.ISupportInitialize).BeginInit()
Me.GroupBox2.SuspendLayout()
CType(Me.PictureBox2, System.ComponentModel.ISupportInitialize).BeginInit()
Me.GroupBox1.SuspendLayout()
CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit()
Me.Panel1.SuspendLayout()
Me.SuspendLayout()
'
'Label169
'
Label169.AutoSize = True
Label169.BackColor = System.Drawing.Color.FromArgb(CType(CType(219, Byte), Integer), CType(CType(221, Byte), Integer), CType(CType(223, Byte), Integer))
Label169.ForeColor = System.Drawing.SystemColors.ControlDarkDark
Label169.Location = New System.Drawing.Point(6, 46)
Label169.Name = "Label169"
Label169.Size = New System.Drawing.Size(140, 24)
Label169.TabIndex = 10
Label169.Text = "공조급기온도의 설정치" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & " (난방)[C]:"
Label169.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
'
'Label170
'
Label170.AutoSize = True
Label170.BackColor = System.Drawing.Color.FromArgb(CType(CType(219, Byte), Integer), CType(CType(221, Byte), Integer), CType(CType(223, Byte), Integer))
Label170.ForeColor = System.Drawing.SystemColors.ControlDarkDark
Label170.Location = New System.Drawing.Point(6, 24)
Label170.Name = "Label170"
Label170.Size = New System.Drawing.Size(62, 12)
Label170.TabIndex = 8
Label170.Text = "공조방식:"
Label170.TextAlign = System.Drawing.ContentAlignment.MiddleRight
'
'Label171
'
Label171.AutoSize = True
Label171.BackColor = System.Drawing.Color.FromArgb(CType(CType(219, Byte), Integer), CType(CType(221, Byte), Integer), CType(CType(223, Byte), Integer))
Label171.ForeColor = System.Drawing.SystemColors.ControlDarkDark
Label171.Location = New System.Drawing.Point(6, 75)
Label171.Name = "Label171"
Label171.Size = New System.Drawing.Size(140, 24)
Label171.TabIndex = 8
Label171.Text = "공조급기온도의 설정치" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & " (냉방)[C]:"
Label171.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
'
'Label172
'
Label172.AutoSize = True
Label172.BackColor = System.Drawing.Color.FromArgb(CType(CType(219, Byte), Integer), CType(CType(221, Byte), Integer), CType(CType(223, Byte), Integer))
Label172.ForeColor = System.Drawing.SystemColors.ControlDarkDark
Label172.Location = New System.Drawing.Point(6, 108)
Label172.Name = "Label172"
Label172.Size = New System.Drawing.Size(151, 12)
Label172.TabIndex = 10
Label172.Text = "공조기 최대풍량[CMH]:"
'
'Label173
'
Label173.AutoSize = True
Label173.BackColor = System.Drawing.Color.FromArgb(CType(CType(219, Byte), Integer), CType(CType(221, Byte), Integer), CType(CType(223, Byte), Integer))
Label173.ForeColor = System.Drawing.SystemColors.ControlDarkDark
Label173.Location = New System.Drawing.Point(6, 139)
Label173.Name = "Label173"
Label173.Size = New System.Drawing.Size(124, 12)
Label173.TabIndex = 10
Label173.Text = "리턴공기 혼합 여부:"
'
'Label174
'
Label174.AutoSize = True
Label174.BackColor = System.Drawing.Color.FromArgb(CType(CType(219, Byte), Integer), CType(CType(221, Byte), Integer), CType(CType(223, Byte), Integer))
Label174.ForeColor = System.Drawing.SystemColors.ControlDarkDark
Label174.Location = New System.Drawing.Point(6, 168)
Label174.Name = "Label174"
Label174.Size = New System.Drawing.Size(80, 12)
Label174.TabIndex = 10
Label174.Text = "가습기 유형:"
'
'Label175
'
Label175.AutoSize = True
Label175.BackColor = System.Drawing.Color.FromArgb(CType(CType(219, Byte), Integer), CType(CType(221, Byte), Integer), CType(CType(223, Byte), Integer))
Label175.ForeColor = System.Drawing.SystemColors.ControlDarkDark
Label175.Location = New System.Drawing.Point(6, 198)
Label175.Name = "Label175"
Label175.Size = New System.Drawing.Size(124, 12)
Label175.TabIndex = 10
Label175.Text = "외기냉방 제어 유무:"
'
'Label179
'
Label179.AutoSize = True
Label179.BackColor = System.Drawing.Color.FromArgb(CType(CType(243, Byte), Integer), CType(CType(244, Byte), Integer), CType(CType(246, Byte), Integer))
Label179.ForeColor = System.Drawing.SystemColors.ControlDarkDark
Label179.Location = New System.Drawing.Point(7, 267)
Label179.Name = "Label179"
Label179.Size = New System.Drawing.Size(101, 12)
Label179.TabIndex = 10
Label179.Text = "배기팬 효율[-]:"
Label179.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
'
'Label178
'
Label178.AutoSize = True
Label178.BackColor = System.Drawing.Color.FromArgb(CType(CType(243, Byte), Integer), CType(CType(244, Byte), Integer), CType(CType(246, Byte), Integer))
Label178.ForeColor = System.Drawing.SystemColors.ControlDarkDark
Label178.Location = New System.Drawing.Point(7, 239)
Label178.Name = "Label178"
Label178.Size = New System.Drawing.Size(101, 12)
Label178.TabIndex = 10
Label178.Text = "급기팬 효율[-]:"
Label178.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
'
'Label177
'
Label177.AutoSize = True
Label177.BackColor = System.Drawing.Color.FromArgb(CType(CType(243, Byte), Integer), CType(CType(244, Byte), Integer), CType(CType(246, Byte), Integer))
Label177.ForeColor = System.Drawing.SystemColors.ControlDarkDark
Label177.Location = New System.Drawing.Point(7, 210)
Label177.Name = "Label177"
Label177.Size = New System.Drawing.Size(137, 12)
Label177.TabIndex = 10
Label177.Text = "배기팬 압력손실[Pa]:"
Label177.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
'
'Label176
'
Label176.AutoSize = True
Label176.BackColor = System.Drawing.Color.FromArgb(CType(CType(243, Byte), Integer), CType(CType(244, Byte), Integer), CType(CType(246, Byte), Integer))
Label176.ForeColor = System.Drawing.SystemColors.ControlDarkDark
Label176.Location = New System.Drawing.Point(7, 182)
Label176.Name = "Label176"
Label176.Size = New System.Drawing.Size(137, 12)
Label176.TabIndex = 10
Label176.Text = "급기팬 압력손실[Pa]:"
Label176.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
'
'Label167
'
Label167.AutoSize = True
Label167.BackColor = System.Drawing.Color.FromArgb(CType(CType(219, Byte), Integer), CType(CType(221, Byte), Integer), CType(CType(223, Byte), Integer))
Label167.ForeColor = System.Drawing.SystemColors.ControlDarkDark
Label167.Location = New System.Drawing.Point(6, 253)
Label167.Name = "Label167"
Label167.Size = New System.Drawing.Size(116, 12)
Label167.TabIndex = 10
Label167.Text = "열회수율(난방)[-]"
'
'Label168
'
Label168.AutoSize = True
Label168.BackColor = System.Drawing.Color.FromArgb(CType(CType(219, Byte), Integer), CType(CType(221, Byte), Integer), CType(CType(223, Byte), Integer))
Label168.ForeColor = System.Drawing.SystemColors.ControlDarkDark
Label168.Location = New System.Drawing.Point(6, 226)
Label168.Name = "Label168"
Label168.Size = New System.Drawing.Size(93, 12)
Label168.TabIndex = 10
Label168.Text = "열교환기 유형:"
'
'Label1
'
Label1.AutoSize = True
Label1.BackColor = System.Drawing.Color.FromArgb(CType(CType(219, Byte), Integer), CType(CType(221, Byte), Integer), CType(CType(223, Byte), Integer))
Label1.ForeColor = System.Drawing.SystemColors.ControlDarkDark
Label1.Location = New System.Drawing.Point(6, 279)
Label1.Name = "Label1"
Label1.Size = New System.Drawing.Size(116, 12)
Label1.TabIndex = 14
Label1.Text = "열회수율(냉방)[-]"
'
'Label3
'
Label3.AutoSize = True
Label3.BackColor = System.Drawing.Color.FromArgb(CType(CType(243, Byte), Integer), CType(CType(244, Byte), Integer), CType(CType(246, Byte), Integer))
Label3.ForeColor = System.Drawing.SystemColors.ControlDarkDark
Label3.Location = New System.Drawing.Point(7, 27)
Label3.Name = "Label3"
Label3.Size = New System.Drawing.Size(106, 12)
Label3.TabIndex = 8
Label3.Text = "팬효율 산출방식:"
Label3.TextAlign = System.Drawing.ContentAlignment.MiddleRight
'
'Label4
'
Label4.AutoSize = True
Label4.BackColor = System.Drawing.Color.FromArgb(CType(CType(243, Byte), Integer), CType(CType(244, Byte), Integer), CType(CType(246, Byte), Integer))
Label4.ForeColor = System.Drawing.SystemColors.ControlDarkDark
Label4.Location = New System.Drawing.Point(7, 153)
Label4.Name = "Label4"
Label4.Size = New System.Drawing.Size(112, 12)
Label4.TabIndex = 10
Label4.Text = "배기팬 동력[kW]:"
Label4.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
'
'Label5
'
Label5.AutoSize = True
Label5.BackColor = System.Drawing.Color.FromArgb(CType(CType(243, Byte), Integer), CType(CType(244, Byte), Integer), CType(CType(246, Byte), Integer))
Label5.ForeColor = System.Drawing.SystemColors.ControlDarkDark
Label5.Location = New System.Drawing.Point(7, 125)
Label5.Name = "Label5"
Label5.Size = New System.Drawing.Size(112, 12)
Label5.TabIndex = 10
Label5.Text = "급기팬 동력[kW]:"
Label5.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
'
'Label6
'
Label6.AutoSize = True
Label6.BackColor = System.Drawing.Color.FromArgb(CType(CType(243, Byte), Integer), CType(CType(244, Byte), Integer), CType(CType(246, Byte), Integer))
Label6.ForeColor = System.Drawing.SystemColors.ControlDarkDark
Label6.Location = New System.Drawing.Point(7, 96)
Label6.Name = "Label6"
Label6.Size = New System.Drawing.Size(112, 12)
Label6.TabIndex = 10
Label6.Text = "배기 풍량[CMH]:"
Label6.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
'
'Label7
'
Label7.AutoSize = True
Label7.BackColor = System.Drawing.Color.FromArgb(CType(CType(243, Byte), Integer), CType(CType(244, Byte), Integer), CType(CType(246, Byte), Integer))
Label7.ForeColor = System.Drawing.SystemColors.ControlDarkDark
Label7.Location = New System.Drawing.Point(7, 68)
Label7.Name = "Label7"
Label7.Size = New System.Drawing.Size(112, 12)
Label7.TabIndex = 10
Label7.Text = "급기 풍량[CMH]:"
Label7.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
'
'tb_zone_cnt
'
Me.tb_zone_cnt.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.tb_zone_cnt.BackColor = System.Drawing.SystemColors.GrayText
Me.tb_zone_cnt.ForeColor = System.Drawing.Color.White
Me.tb_zone_cnt.Location = New System.Drawing.Point(290, 5)
Me.tb_zone_cnt.Name = "tb_zone_cnt"
Me.tb_zone_cnt.Size = New System.Drawing.Size(58, 21)
Me.tb_zone_cnt.TabIndex = 1
Me.tb_zone_cnt.Text = "0"
Me.tb_zone_cnt.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
'
'Label48
'
Me.Label48.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.Label48.AutoSize = True
Me.Label48.ForeColor = System.Drawing.Color.DarkCyan
Me.Label48.Location = New System.Drawing.Point(172, 9)
Me.Label48.Name = "Label48"
Me.Label48.Size = New System.Drawing.Size(111, 12)
Me.Label48.TabIndex = 0
Me.Label48.Text = "적용된 입력존 수:"
Me.Label48.TextAlign = System.Drawing.ContentAlignment.MiddleRight
'
'SplitContainer1
'
Me.SplitContainer1.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.SplitContainer1.Dock = System.Windows.Forms.DockStyle.Fill
Me.SplitContainer1.FixedPanel = System.Windows.Forms.FixedPanel.Panel1
Me.SplitContainer1.Location = New System.Drawing.Point(0, 0)
Me.SplitContainer1.Name = "SplitContainer1"
'
'SplitContainer1.Panel1
'
Me.SplitContainer1.Panel1.Controls.Add(Me.dv)
Me.SplitContainer1.Panel1.Controls.Add(Me.bn)
'
'SplitContainer1.Panel2
'
Me.SplitContainer1.Panel2.BackColor = System.Drawing.Color.White
Me.SplitContainer1.Panel2.Controls.Add(Me.Label15)
Me.SplitContainer1.Panel2.Controls.Add(Me.PictureBox4)
Me.SplitContainer1.Panel2.Controls.Add(Me.GroupBox2)
Me.SplitContainer1.Panel2.Controls.Add(Me.GroupBox1)
Me.SplitContainer1.Panel2.Controls.Add(Me.Panel1)
Me.SplitContainer1.Size = New System.Drawing.Size(818, 574)
Me.SplitContainer1.SplitterDistance = 209
Me.SplitContainer1.TabIndex = 127
'
'dv
'
Me.dv.A_DelCurrentCell = True
Me.dv.A_EnterToTab = False
Me.dv.AllowUserToAddRows = False
Me.dv.AllowUserToResizeRows = False
Me.dv.AutoGenerateColumns = False
Me.dv.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.AllCells
Me.dv.BackgroundColor = System.Drawing.Color.FromArgb(CType(CType(245, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(246, Byte), Integer))
Me.dv.BorderStyle = System.Windows.Forms.BorderStyle.None
Me.dv.ColumnHeadersHeight = 30
Me.dv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.DisableResizing
Me.dv.ColumnHeadersVisible = False
Me.dv.Columns.AddRange(New System.Windows.Forms.DataGridViewColumn() {Me.DataGridViewTextBoxColumn1})
Me.dv.DataSource = Me.bs
Me.dv.Dock = System.Windows.Forms.DockStyle.Fill
Me.dv.Location = New System.Drawing.Point(0, 0)
Me.dv.Margin = New System.Windows.Forms.Padding(3, 5, 3, 5)
Me.dv.MultiSelect = False
Me.dv.Name = "dv"
Me.dv.RowHeadersVisible = False
Me.dv.RowTemplate.Height = 23
Me.dv.ScrollBars = System.Windows.Forms.ScrollBars.Vertical
Me.dv.Size = New System.Drawing.Size(207, 532)
Me.dv.TabIndex = 0
'
'DataGridViewTextBoxColumn1
'
Me.DataGridViewTextBoxColumn1.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.Fill
Me.DataGridViewTextBoxColumn1.DataPropertyName = "설명"
Me.DataGridViewTextBoxColumn1.HeaderText = "설명"
Me.DataGridViewTextBoxColumn1.Name = "DataGridViewTextBoxColumn1"
Me.DataGridViewTextBoxColumn1.SortMode = System.Windows.Forms.DataGridViewColumnSortMode.Programmatic
'
'bs
'
Me.bs.DataMember = "tbl_kongjo"
Me.bs.DataSource = Me.DS
Me.bs.Filter = "code <> '0'"
'
'DS
'
Me.DS.DataSetName = "DS"
Me.DS.SchemaSerializationMode = System.Data.SchemaSerializationMode.IncludeSchema
'
'bn
'
Me.bn.AddNewItem = Nothing
Me.bn.AutoSize = False
Me.bn.BindingSource = Me.bs
Me.bn.CountItem = Me.lbl_count
Me.bn.DeleteItem = Nothing
Me.bn.Dock = System.Windows.Forms.DockStyle.Bottom
Me.bn.Font = New System.Drawing.Font("돋움", 8.999999!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(129, Byte))
Me.bn.ImageScalingSize = New System.Drawing.Size(20, 20)
Me.bn.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.bt_add, Me.bt_Del, Me.bt_cancel, Me.ToolStripSeparator1, Me.lbl_pos, Me.lbl_count, Me.ToolStripSeparator2, Me.lb_code})
Me.bn.Location = New System.Drawing.Point(0, 532)
Me.bn.MoveFirstItem = Nothing
Me.bn.MoveLastItem = Nothing
Me.bn.MoveNextItem = Nothing
Me.bn.MovePreviousItem = Nothing
Me.bn.Name = "bn"
Me.bn.PositionItem = Me.lbl_pos
Me.bn.Size = New System.Drawing.Size(207, 40)
Me.bn.TabIndex = 1
Me.bn.Text = "BindingNavigator1"
'
'lbl_count
'
Me.lbl_count.Name = "lbl_count"
Me.lbl_count.Size = New System.Drawing.Size(33, 37)
Me.lbl_count.Text = "/{0}"
'
'bt_add
'
Me.bt_add.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
Me.bt_add.Image = Global.Eco2Ar.My.Resources.Resources.new_32
Me.bt_add.Name = "bt_add"
Me.bt_add.RightToLeftAutoMirrorImage = True
Me.bt_add.Size = New System.Drawing.Size(24, 37)
Me.bt_add.Text = "신규추가(&A)"
Me.bt_add.ToolTipText = "새로운 프로필을 추가합니다"
'
'bt_Del
'
Me.bt_Del.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
Me.bt_Del.Image = Global.Eco2Ar.My.Resources.Resources.remov_32
Me.bt_Del.Name = "bt_Del"
Me.bt_Del.RightToLeftAutoMirrorImage = True
Me.bt_Del.Size = New System.Drawing.Size(24, 37)
Me.bt_Del.Text = "선택삭제(&D)"
Me.bt_Del.ToolTipText = "선택된 프로필을 삭제합니다"
'
'bt_cancel
'
Me.bt_cancel.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
Me.bt_cancel.Image = Global.Eco2Ar.My.Resources.Resources.cancl_32
Me.bt_cancel.ImageTransparentColor = System.Drawing.Color.Magenta
Me.bt_cancel.Name = "bt_cancel"
Me.bt_cancel.Size = New System.Drawing.Size(24, 37)
Me.bt_cancel.Text = "변경취소(&C)"
Me.bt_cancel.ToolTipText = "변경된 내용을 되돌립니다"
Me.bt_cancel.Visible = False
'
'ToolStripSeparator1
'
Me.ToolStripSeparator1.Name = "ToolStripSeparator1"
Me.ToolStripSeparator1.Size = New System.Drawing.Size(6, 40)
'
'lbl_pos
'
Me.lbl_pos.Name = "lbl_pos"
Me.lbl_pos.Size = New System.Drawing.Size(12, 37)
Me.lbl_pos.Text = "0"
'
'ToolStripSeparator2
'
Me.ToolStripSeparator2.Name = "ToolStripSeparator2"
Me.ToolStripSeparator2.Size = New System.Drawing.Size(6, 40)
'
'lb_code
'
Me.lb_code.Name = "lb_code"
Me.lb_code.Size = New System.Drawing.Size(47, 37)
Me.lb_code.Text = "[0000]"
'
'Label15
'
Me.Label15.AutoSize = True
Me.Label15.BackColor = System.Drawing.Color.FromArgb(CType(CType(116, Byte), Integer), CType(CType(158, Byte), Integer), CType(CType(209, Byte), Integer))
Me.Label15.ForeColor = System.Drawing.Color.White
Me.Label15.Location = New System.Drawing.Point(39, 66)
Me.Label15.Name = "Label15"
Me.Label15.Size = New System.Drawing.Size(57, 12)
Me.Label15.TabIndex = 154
Me.Label15.Text = "공조처리"
'
'PictureBox4
'
Me.PictureBox4.BackgroundImage = CType(resources.GetObject("PictureBox4.BackgroundImage"), System.Drawing.Image)
Me.PictureBox4.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch
Me.PictureBox4.Location = New System.Drawing.Point(20, 55)
Me.PictureBox4.Name = "PictureBox4"
Me.PictureBox4.Size = New System.Drawing.Size(131, 30)
Me.PictureBox4.TabIndex = 153
Me.PictureBox4.TabStop = False
'
'GroupBox2
'
Me.GroupBox2.Controls.Add(Me.Tb_배기팬동력)
Me.GroupBox2.Controls.Add(Me.Tb_급기팬동력)
Me.GroupBox2.Controls.Add(Me.Tb_배기팬효율)
Me.GroupBox2.Controls.Add(Me.Tb_배기풍량)
Me.GroupBox2.Controls.Add(Me.Tb_급기팬효율)
Me.GroupBox2.Controls.Add(Label7)
Me.GroupBox2.Controls.Add(Me.Tb_배기팬압력손실)
Me.GroupBox2.Controls.Add(Me.Tb_급기풍량)
Me.GroupBox2.Controls.Add(Label176)
Me.GroupBox2.Controls.Add(Label6)
Me.GroupBox2.Controls.Add(Me.Tb_급기팬압력손실)
Me.GroupBox2.Controls.Add(Label177)
Me.GroupBox2.Controls.Add(Label5)
Me.GroupBox2.Controls.Add(Label3)
Me.GroupBox2.Controls.Add(Label4)
Me.GroupBox2.Controls.Add(Label178)
Me.GroupBox2.Controls.Add(Label179)
Me.GroupBox2.Controls.Add(Me.Cmb_팬효율산출방식)
Me.GroupBox2.Controls.Add(Me.PictureBox2)
Me.GroupBox2.Location = New System.Drawing.Point(299, 83)
Me.GroupBox2.Name = "GroupBox2"
Me.GroupBox2.Size = New System.Drawing.Size(281, 322)
Me.GroupBox2.TabIndex = 5
Me.GroupBox2.TabStop = False
'
'Tb_배기팬동력
'
Me.Tb_배기팬동력.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bs, "배기팬동력", True))
Me.Tb_배기팬동력.Location = New System.Drawing.Point(145, 150)
Me.Tb_배기팬동력.Name = "Tb_배기팬동력"
Me.Tb_배기팬동력.NectControl = Nothing
Me.Tb_배기팬동력.Size = New System.Drawing.Size(119, 21)
Me.Tb_배기팬동력.TabIndex = 14
Me.Tb_배기팬동력.TextFormat = Eco2Ar.MyTb.ETFormat.Normal
'
'Tb_급기팬동력
'
Me.Tb_급기팬동력.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bs, "급기팬동력", True))
Me.Tb_급기팬동력.Location = New System.Drawing.Point(145, 122)
Me.Tb_급기팬동력.Name = "Tb_급기팬동력"
Me.Tb_급기팬동력.NectControl = Nothing
Me.Tb_급기팬동력.Size = New System.Drawing.Size(119, 21)
Me.Tb_급기팬동력.TabIndex = 13
Me.Tb_급기팬동력.TextFormat = Eco2Ar.MyTb.ETFormat.Normal
'
'Tb_배기팬효율
'
Me.Tb_배기팬효율.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bs, "총효율배기팬", True))
Me.Tb_배기팬효율.Location = New System.Drawing.Point(145, 264)
Me.Tb_배기팬효율.Name = "Tb_배기팬효율"
Me.Tb_배기팬효율.NectControl = Nothing
Me.Tb_배기팬효율.Size = New System.Drawing.Size(119, 21)
Me.Tb_배기팬효율.TabIndex = 18
Me.Tb_배기팬효율.TextFormat = Eco2Ar.MyTb.ETFormat.Normal
'
'Tb_배기풍량
'
Me.Tb_배기풍량.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bs, "배기풍량", True))
Me.Tb_배기풍량.Location = New System.Drawing.Point(145, 94)
Me.Tb_배기풍량.Name = "Tb_배기풍량"
Me.Tb_배기풍량.NectControl = Nothing
Me.Tb_배기풍량.Size = New System.Drawing.Size(119, 21)
Me.Tb_배기풍량.TabIndex = 12
Me.Tb_배기풍량.TextFormat = Eco2Ar.MyTb.ETFormat.Normal
'
'Tb_급기팬효율
'
Me.Tb_급기팬효율.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bs, "총효율급기팬", True))
Me.Tb_급기팬효율.Location = New System.Drawing.Point(145, 236)
Me.Tb_급기팬효율.Name = "Tb_급기팬효율"
Me.Tb_급기팬효율.NectControl = Nothing
Me.Tb_급기팬효율.Size = New System.Drawing.Size(119, 21)
Me.Tb_급기팬효율.TabIndex = 17
Me.Tb_급기팬효율.TextFormat = Eco2Ar.MyTb.ETFormat.Normal
'
'Tb_배기팬압력손실
'
Me.Tb_배기팬압력손실.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bs, "총압력손실배기팬", True))
Me.Tb_배기팬압력손실.Location = New System.Drawing.Point(145, 208)
Me.Tb_배기팬압력손실.Name = "Tb_배기팬압력손실"
Me.Tb_배기팬압력손실.NectControl = Nothing
Me.Tb_배기팬압력손실.Size = New System.Drawing.Size(119, 21)
Me.Tb_배기팬압력손실.TabIndex = 16
Me.Tb_배기팬압력손실.TextFormat = Eco2Ar.MyTb.ETFormat.Normal
'
'Tb_급기풍량
'
Me.Tb_급기풍량.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bs, "급기풍량", True))
Me.Tb_급기풍량.Location = New System.Drawing.Point(145, 66)
Me.Tb_급기풍량.Name = "Tb_급기풍량"
Me.Tb_급기풍량.NectControl = Nothing
Me.Tb_급기풍량.Size = New System.Drawing.Size(119, 21)
Me.Tb_급기풍량.TabIndex = 11
Me.Tb_급기풍량.TextFormat = Eco2Ar.MyTb.ETFormat.Normal
'
'Tb_급기팬압력손실
'
Me.Tb_급기팬압력손실.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bs, "총압력손실급기팬", True))
Me.Tb_급기팬압력손실.Location = New System.Drawing.Point(145, 180)
Me.Tb_급기팬압력손실.Name = "Tb_급기팬압력손실"
Me.Tb_급기팬압력손실.NectControl = Nothing
Me.Tb_급기팬압력손실.Size = New System.Drawing.Size(119, 21)
Me.Tb_급기팬압력손실.TabIndex = 15
Me.Tb_급기팬압력손실.TextFormat = Eco2Ar.MyTb.ETFormat.Normal
'
'Cmb_팬효율산출방식
'
Me.Cmb_팬효율산출방식.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
Me.Cmb_팬효율산출방식.FormattingEnabled = True
Me.Cmb_팬효율산출방식.Items.AddRange(New Object() {"입력치", "계산치"})
Me.Cmb_팬효율산출방식.Location = New System.Drawing.Point(145, 24)
Me.Cmb_팬효율산출방식.Name = "Cmb_팬효율산출방식"
Me.Cmb_팬효율산출방식.NectControl = Nothing
Me.Cmb_팬효율산출방식.Size = New System.Drawing.Size(119, 20)
Me.Cmb_팬효율산출방식.TabIndex = 10
'
'PictureBox2
'
Me.PictureBox2.BackColor = System.Drawing.Color.FromArgb(CType(CType(243, Byte), Integer), CType(CType(244, Byte), Integer), CType(CType(246, Byte), Integer))
Me.PictureBox2.Location = New System.Drawing.Point(0, 9)
Me.PictureBox2.Name = "PictureBox2"
Me.PictureBox2.Size = New System.Drawing.Size(278, 309)
Me.PictureBox2.TabIndex = 11
Me.PictureBox2.TabStop = False
'
'GroupBox1
'
Me.GroupBox1.Controls.Add(Me.공조방식NCMB)
Me.GroupBox1.Controls.Add(Me.tb_01)
Me.GroupBox1.Controls.Add(Me.tb_02)
Me.GroupBox1.Controls.Add(Me.tb_03)
Me.GroupBox1.Controls.Add(Label1)
Me.GroupBox1.Controls.Add(Me.tb_13)
Me.GroupBox1.Controls.Add(Label174)
Me.GroupBox1.Controls.Add(Label169)
Me.GroupBox1.Controls.Add(Me.열교환기유형ComboBox)
Me.GroupBox1.Controls.Add(Label175)
Me.GroupBox1.Controls.Add(Label170)
Me.GroupBox1.Controls.Add(Label168)
Me.GroupBox1.Controls.Add(Label173)
Me.GroupBox1.Controls.Add(Label172)
Me.GroupBox1.Controls.Add(Label167)
Me.GroupBox1.Controls.Add(Label171)
Me.GroupBox1.Controls.Add(Me.리턴공기혼합여부ComboBox)
Me.GroupBox1.Controls.Add(Me.가습기유형ComboBox)
Me.GroupBox1.Controls.Add(Me.tb_08)
Me.GroupBox1.Controls.Add(Me.외기냉방제어유무ComboBox)
Me.GroupBox1.Controls.Add(Me.PictureBox1)
Me.GroupBox1.Location = New System.Drawing.Point(20, 83)
Me.GroupBox1.Name = "GroupBox1"
Me.GroupBox1.Size = New System.Drawing.Size(277, 322)
Me.GroupBox1.TabIndex = 5
Me.GroupBox1.TabStop = False
'
'공조방식NCMB
'
Me.공조방식NCMB.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
Me.공조방식NCMB.FormattingEnabled = True
Me.공조방식NCMB.Location = New System.Drawing.Point(150, 24)
Me.공조방식NCMB.Name = "공조방식NCMB"
Me.공조방식NCMB.NectControl = Nothing
Me.공조방식NCMB.Size = New System.Drawing.Size(119, 20)
Me.공조방식NCMB.TabIndex = 0
'
'tb_01
'
Me.tb_01.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bs, "설정치난방", True))
Me.tb_01.Location = New System.Drawing.Point(150, 51)
Me.tb_01.Name = "tb_01"
Me.tb_01.NectControl = Nothing
Me.tb_01.Size = New System.Drawing.Size(119, 21)
Me.tb_01.TabIndex = 1
Me.tb_01.TextFormat = Eco2Ar.MyTb.ETFormat.Normal
'
'tb_02
'
Me.tb_02.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bs, "설정치냉방", True))
Me.tb_02.Location = New System.Drawing.Point(150, 79)
Me.tb_02.Name = "tb_02"
Me.tb_02.NectControl = Nothing
Me.tb_02.Size = New System.Drawing.Size(119, 21)
Me.tb_02.TabIndex = 2
Me.tb_02.TextFormat = Eco2Ar.MyTb.ETFormat.Normal
'
'tb_03
'
Me.tb_03.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bs, "최대풍량", True))
Me.tb_03.Location = New System.Drawing.Point(150, 107)
Me.tb_03.Name = "tb_03"
Me.tb_03.NectControl = Nothing
Me.tb_03.Size = New System.Drawing.Size(119, 21)
Me.tb_03.TabIndex = 3
Me.tb_03.TextFormat = Eco2Ar.MyTb.ETFormat.Normal
'
'tb_13
'
Me.tb_13.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bs, "열회수율냉", True))
Me.tb_13.Location = New System.Drawing.Point(150, 276)
Me.tb_13.Name = "tb_13"
Me.tb_13.NectControl = Nothing
Me.tb_13.Size = New System.Drawing.Size(119, 21)
Me.tb_13.TabIndex = 9
Me.tb_13.TextFormat = Eco2Ar.MyTb.ETFormat.Normal
'
'열교환기유형ComboBox
'
Me.열교환기유형ComboBox.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
Me.열교환기유형ComboBox.FormattingEnabled = True
Me.열교환기유형ComboBox.Location = New System.Drawing.Point(150, 223)
Me.열교환기유형ComboBox.Name = "열교환기유형ComboBox"
Me.열교환기유형ComboBox.NectControl = Nothing
Me.열교환기유형ComboBox.Size = New System.Drawing.Size(119, 20)
Me.열교환기유형ComboBox.TabIndex = 7
'
'리턴공기혼합여부ComboBox
'
Me.리턴공기혼합여부ComboBox.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
Me.리턴공기혼합여부ComboBox.FormattingEnabled = True
Me.리턴공기혼합여부ComboBox.Location = New System.Drawing.Point(150, 135)
Me.리턴공기혼합여부ComboBox.Name = "리턴공기혼합여부ComboBox"
Me.리턴공기혼합여부ComboBox.NectControl = Nothing
Me.리턴공기혼합여부ComboBox.Size = New System.Drawing.Size(119, 20)
Me.리턴공기혼합여부ComboBox.TabIndex = 4
'
'가습기유형ComboBox
'
Me.가습기유형ComboBox.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
Me.가습기유형ComboBox.FormattingEnabled = True
Me.가습기유형ComboBox.Location = New System.Drawing.Point(150, 163)
Me.가습기유형ComboBox.Name = "가습기유형ComboBox"
Me.가습기유형ComboBox.NectControl = Nothing
Me.가습기유형ComboBox.Size = New System.Drawing.Size(119, 20)
Me.가습기유형ComboBox.TabIndex = 5
'
'tb_08
'
Me.tb_08.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bs, "열회수율", True))
Me.tb_08.Location = New System.Drawing.Point(150, 250)
Me.tb_08.Name = "tb_08"
Me.tb_08.NectControl = Nothing
Me.tb_08.Size = New System.Drawing.Size(119, 21)
Me.tb_08.TabIndex = 8
Me.tb_08.TextFormat = Eco2Ar.MyTb.ETFormat.Normal
'
'외기냉방제어유무ComboBox
'
Me.외기냉방제어유무ComboBox.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
Me.외기냉방제어유무ComboBox.FormattingEnabled = True
Me.외기냉방제어유무ComboBox.Location = New System.Drawing.Point(150, 194)
Me.외기냉방제어유무ComboBox.Name = "외기냉방제어유무ComboBox"
Me.외기냉방제어유무ComboBox.NectControl = Nothing
Me.외기냉방제어유무ComboBox.Size = New System.Drawing.Size(119, 20)
Me.외기냉방제어유무ComboBox.TabIndex = 6
'
'PictureBox1
'
Me.PictureBox1.BackColor = System.Drawing.Color.FromArgb(CType(CType(219, Byte), Integer), CType(CType(221, Byte), Integer), CType(CType(223, Byte), Integer))
Me.PictureBox1.Location = New System.Drawing.Point(1, 9)
Me.PictureBox1.Name = "PictureBox1"
Me.PictureBox1.Size = New System.Drawing.Size(273, 309)
Me.PictureBox1.TabIndex = 11
Me.PictureBox1.TabStop = False
'
'Panel1
'
Me.Panel1.BackColor = System.Drawing.Color.FromArgb(CType(CType(243, Byte), Integer), CType(CType(244, Byte), Integer), CType(CType(246, Byte), Integer))
Me.Panel1.Controls.Add(Me.TextBox1)
Me.Panel1.Controls.Add(Me.tb_zone_cnt)
Me.Panel1.Controls.Add(Me.Label2)
Me.Panel1.Controls.Add(Me.Label48)
Me.Panel1.Dock = System.Windows.Forms.DockStyle.Top
Me.Panel1.Location = New System.Drawing.Point(0, 0)
Me.Panel1.Name = "Panel1"
Me.Panel1.Size = New System.Drawing.Size(603, 30)
Me.Panel1.TabIndex = 4
'
'TextBox1
'
Me.TextBox1.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.TextBox1.BackColor = System.Drawing.SystemColors.GrayText
Me.TextBox1.ForeColor = System.Drawing.Color.White
Me.TextBox1.Location = New System.Drawing.Point(481, 5)
Me.TextBox1.Name = "TextBox1"
Me.TextBox1.Size = New System.Drawing.Size(99, 21)
Me.TextBox1.TabIndex = 1
Me.TextBox1.Text = "0"
Me.TextBox1.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
'
'Label2
'
Me.Label2.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.Label2.AutoSize = True
Me.Label2.ForeColor = System.Drawing.Color.DarkCyan
Me.Label2.Location = New System.Drawing.Point(354, 9)
Me.Label2.Name = "Label2"
Me.Label2.Size = New System.Drawing.Size(118, 12)
Me.Label2.TabIndex = 0
Me.Label2.Text = "적용된 면적합(㎡):"
Me.Label2.TextAlign = System.Drawing.ContentAlignment.MiddleRight
'
'Frm_kongjo
'
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.None
Me.ClientSize = New System.Drawing.Size(818, 574)
Me.ControlBox = False
Me.Controls.Add(Me.SplitContainer1)
Me.Font = New System.Drawing.Font("돋움", 8.999999!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(129, Byte))
Me.KeyPreview = True
Me.Name = "Frm_kongjo"
Me.ShowInTaskbar = False
Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
Me.Text = "공조처리시스템"
Me.SplitContainer1.Panel1.ResumeLayout(False)
Me.SplitContainer1.Panel2.ResumeLayout(False)
Me.SplitContainer1.Panel2.PerformLayout()
CType(Me.SplitContainer1, System.ComponentModel.ISupportInitialize).EndInit()
Me.SplitContainer1.ResumeLayout(False)
CType(Me.dv, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.bs, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.DS, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.bn, System.ComponentModel.ISupportInitialize).EndInit()
Me.bn.ResumeLayout(False)
Me.bn.PerformLayout()
CType(Me.PictureBox4, System.ComponentModel.ISupportInitialize).EndInit()
Me.GroupBox2.ResumeLayout(False)
Me.GroupBox2.PerformLayout()
CType(Me.PictureBox2, System.ComponentModel.ISupportInitialize).EndInit()
Me.GroupBox1.ResumeLayout(False)
Me.GroupBox1.PerformLayout()
CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).EndInit()
Me.Panel1.ResumeLayout(False)
Me.Panel1.PerformLayout()
Me.ResumeLayout(False)
End Sub
Friend WithEvents 공조방식NCMB As MyCmb
Friend WithEvents 열교환기유형ComboBox As MyCmb
Friend WithEvents 외기냉방제어유무ComboBox As MyCmb
Friend WithEvents 가습기유형ComboBox As MyCmb
Friend WithEvents 리턴공기혼합여부ComboBox As MyCmb
Friend WithEvents Tb_배기팬효율 As MyTb
Friend WithEvents Tb_급기팬효율 As MyTb
Friend WithEvents Tb_배기팬압력손실 As MyTb
Friend WithEvents Tb_급기팬압력손실 As MyTb
Friend WithEvents tb_08 As MyTb
Friend WithEvents tb_03 As MyTb
Friend WithEvents tb_02 As MyTb
Friend WithEvents tb_01 As MyTb
Public WithEvents DS As Eco2Ar.DS
Friend WithEvents bs As System.Windows.Forms.BindingSource
Friend WithEvents tb_zone_cnt As System.Windows.Forms.TextBox
Friend WithEvents Label48 As System.Windows.Forms.Label
Friend WithEvents SplitContainer1 As System.Windows.Forms.SplitContainer
Friend WithEvents dv As CEnergy.arindv
Friend WithEvents bn As System.Windows.Forms.BindingNavigator
Friend WithEvents bt_add As System.Windows.Forms.ToolStripButton
Friend WithEvents bt_Del As System.Windows.Forms.ToolStripButton
Friend WithEvents bt_cancel As System.Windows.Forms.ToolStripButton
Friend WithEvents ToolStripSeparator1 As System.Windows.Forms.ToolStripSeparator
Friend WithEvents Panel1 As System.Windows.Forms.Panel
Friend WithEvents lbl_count As System.Windows.Forms.ToolStripLabel
Friend WithEvents lbl_pos As System.Windows.Forms.ToolStripLabel
Friend WithEvents GroupBox2 As System.Windows.Forms.GroupBox
Friend WithEvents GroupBox1 As System.Windows.Forms.GroupBox
Friend WithEvents Label15 As System.Windows.Forms.Label
Friend WithEvents PictureBox4 As System.Windows.Forms.PictureBox
Friend WithEvents PictureBox1 As System.Windows.Forms.PictureBox
Friend WithEvents PictureBox2 As System.Windows.Forms.PictureBox
Friend WithEvents tb_13 As Eco2Ar.MyTb
Friend WithEvents TextBox1 As System.Windows.Forms.TextBox
Friend WithEvents Label2 As System.Windows.Forms.Label
Friend WithEvents Tb_배기팬동력 As Eco2Ar.MyTb
Friend WithEvents Tb_급기팬동력 As Eco2Ar.MyTb
Friend WithEvents Tb_배기풍량 As Eco2Ar.MyTb
Friend WithEvents Tb_급기풍량 As Eco2Ar.MyTb
Friend WithEvents Cmb_팬효율산출방식 As Eco2Ar.MyCmb
Friend WithEvents ToolStripSeparator2 As System.Windows.Forms.ToolStripSeparator
Friend WithEvents lb_code As System.Windows.Forms.ToolStripLabel
Friend WithEvents DataGridViewTextBoxColumn1 As System.Windows.Forms.DataGridViewTextBoxColumn
End Class

284
ArinWarev1/Forms_Input/Frm_kongjo.resx Normal file
View File

@@ -0,0 +1,284 @@
<?xml version="1.0" encoding="utf-8"?>
<root>
<!--
Microsoft ResX Schema
Version 2.0
The primary goals of this format is to allow a simple XML format
that is mostly human readable. The generation and parsing of the
various data types are done through the TypeConverter classes
associated with the data types.
Example:
... ado.net/XML headers & schema ...
<resheader name="resmimetype">text/microsoft-resx</resheader>
<resheader name="version">2.0</resheader>
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
<data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
<value>[base64 mime encoded serialized .NET Framework object]</value>
</data>
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
<comment>This is a comment</comment>
</data>
There are any number of "resheader" rows that contain simple
name/value pairs.
Each data row contains a name, and value. The row also contains a
type or mimetype. Type corresponds to a .NET class that support
text/value conversion through the TypeConverter architecture.
Classes that don't support this are serialized and stored with the
mimetype set.
The mimetype is used for serialized objects, and tells the
ResXResourceReader how to depersist the object. This is currently not
extensible. For a given mimetype the value must be set accordingly:
Note - application/x-microsoft.net.object.binary.base64 is the format
that the ResXResourceWriter will generate, however the reader can
read any of the formats listed below.
mimetype: application/x-microsoft.net.object.binary.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.soap.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.bytearray.base64
value : The object must be serialized into a byte array
: using a System.ComponentModel.TypeConverter
: and then encoded with base64 encoding.
-->
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
<xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
<xsd:element name="root" msdata:IsDataSet="true">
<xsd:complexType>
<xsd:choice maxOccurs="unbounded">
<xsd:element name="metadata">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" />
</xsd:sequence>
<xsd:attribute name="name" use="required" type="xsd:string" />
<xsd:attribute name="type" type="xsd:string" />
<xsd:attribute name="mimetype" type="xsd:string" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="assembly">
<xsd:complexType>
<xsd:attribute name="alias" type="xsd:string" />
<xsd:attribute name="name" type="xsd:string" />
</xsd:complexType>
</xsd:element>
<xsd:element name="data">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="resheader">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" />
</xsd:complexType>
</xsd:element>
</xsd:choice>
</xsd:complexType>
</xsd:element>
</xsd:schema>
<resheader name="resmimetype">
<value>text/microsoft-resx</value>
</resheader>
<resheader name="version">
<value>2.0</value>
</resheader>
<resheader name="reader">
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<resheader name="writer">
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<metadata name="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">
<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">
<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="Label1.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="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">
<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="Label7.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>
</metadata>
<metadata name="DS.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>286, 17</value>
</metadata>
<metadata name="bn.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>353, 17</value>
</metadata>
<assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
<data name="PictureBox4.BackgroundImage" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
/9j/4AAQSkZJRgABAgEASABIAAD/7gAOQWRvYmUAZAAAAAAB/+ED5kV4aWYAAE1NACoAAAAIAAcBEgAD
AAAAAQABAAABGgAFAAAAAQAAAGIBGwAFAAAAAQAAAGoBKAADAAAAAQACAAABMQACAAAAHAAAAHIBMgAC
AAAAFAAAAI6HaQAEAAAAAQAAAKIAAADCAEgAAAABAAAASAAAAAEAAEFkb2JlIFBob3Rvc2hvcCBDUzMg
V2luZG93cwAyMDEwOjA0OjE1IDIwOjMyOjA0AAACoAIABAAAAAEAAAA8oAMABAAAAAEAAAAMAAAAAAAA
AAYBAwADAAAAAQAGAAABGgAFAAAAAQAAARABGwAFAAAAAQAAARgBKAADAAAAAQACAAACAQAEAAAAAQAA
ASACAgAEAAAAAQAAAr4AAAAAAAAASAAAAAEAAABIAAAAAf/Y/+AAEEpGSUYAAQIAAEgASAAA/+0ADEFk
b2JlX0NNAAH/7gAOQWRvYmUAZIAAAAAB/9sAhAAMCAgICQgMCQkMEQsKCxEVDwwMDxUYExMVExMYEQwM
DAwMDBEMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMAQ0LCw0ODRAODhAUDg4OFBQODg4OFBEMDAwM
DBERDAwMDAwMEQwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAz/wAARCAAMADwDASIAAhEBAxEB/90A
BAAE/8QBPwAAAQUBAQEBAQEAAAAAAAAAAwABAgQFBgcICQoLAQABBQEBAQEBAQAAAAAAAAABAAIDBAUG
BwgJCgsQAAEEAQMCBAIFBwYIBQMMMwEAAhEDBCESMQVBUWETInGBMgYUkaGxQiMkFVLBYjM0coLRQwcl
klPw4fFjczUWorKDJkSTVGRFwqN0NhfSVeJl8rOEw9N14/NGJ5SkhbSVxNTk9KW1xdXl9VZmdoaWprbG
1ub2N0dXZ3eHl6e3x9fn9xEAAgIBAgQEAwQFBgcHBgU1AQACEQMhMRIEQVFhcSITBTKBkRShsUIjwVLR
8DMkYuFygpJDUxVjczTxJQYWorKDByY1wtJEk1SjF2RFVTZ0ZeLys4TD03Xj80aUpIW0lcTU5PSltcXV
5fVWZnaGlqa2xtbm9ic3R1dnd4eXp7fH/9oADAMBAAIRAxEAPwDd/amR/pH/AOcf70v2pkf6R/8AnH+9
UUlofq/Bpevxb37UyP8ASP8A84/3pftTI/0j/wDOP96opJfq/BXr8W9+1Mj/AEj/APOP96X7UyP9I/8A
zj/eqKSX6vwV6/F3ujdbuGS2i5xfU8HVxktIG76XyW99vo27p0XGdO2/ba930dZj+q5dX+qfZPL8VAeD
341VVr/eZhx+0bu708n/2f/iDFhJQ0NfUFJPRklMRQABAQAADEhMaW5vAhAAAG1udHJSR0IgWFlaIAfO
AAIACQAGADEAAGFjc3BNU0ZUAAAAAElFQyBzUkdCAAAAAAAAAAAAAAAAAAD21gABAAAAANMtSFAgIAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAEWNwcnQAAAFQAAAAM2Rl
c2MAAAGEAAAAbHd0cHQAAAHwAAAAFGJrcHQAAAIEAAAAFHJYWVoAAAIYAAAAFGdYWVoAAAIsAAAAFGJY
WVoAAAJAAAAAFGRtbmQAAAJUAAAAcGRtZGQAAALEAAAAiHZ1ZWQAAANMAAAAhnZpZXcAAAPUAAAAJGx1
bWkAAAP4AAAAFG1lYXMAAAQMAAAAJHRlY2gAAAQwAAAADHJUUkMAAAQ8AAAIDGdUUkMAAAQ8AAAIDGJU
UkMAAAQ8AAAIDHRleHQAAAAAQ29weXJpZ2h0IChjKSAxOTk4IEhld2xldHQtUGFja2FyZCBDb21wYW55
AABkZXNjAAAAAAAAABJzUkdCIElFQzYxOTY2LTIuMQAAAAAAAAAAAAAAEnNSR0IgSUVDNjE5NjYtMi4x
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABYWVogAAAAAAAA
81EAAQAAAAEWzFhZWiAAAAAAAAAAAAAAAAAAAAAAWFlaIAAAAAAAAG+iAAA49QAAA5BYWVogAAAAAAAA
YpkAALeFAAAY2lhZWiAAAAAAAAAkoAAAD4QAALbPZGVzYwAAAAAAAAAWSUVDIGh0dHA6Ly93d3cuaWVj
LmNoAAAAAAAAAAAAAAAWSUVDIGh0dHA6Ly93d3cuaWVjLmNoAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAGRlc2MAAAAAAAAALklFQyA2MTk2Ni0yLjEgRGVmYXVsdCBSR0Ig
Y29sb3VyIHNwYWNlIC0gc1JHQgAAAAAAAAAAAAAALklFQyA2MTk2Ni0yLjEgRGVmYXVsdCBSR0IgY29s
b3VyIHNwYWNlIC0gc1JHQgAAAAAAAAAAAAAAAAAAAAAAAAAAAABkZXNjAAAAAAAAACxSZWZlcmVuY2Ug
Vmlld2luZyBDb25kaXRpb24gaW4gSUVDNjE5NjYtMi4xAAAAAAAAAAAAAAAsUmVmZXJlbmNlIFZpZXdp
bmcgQ29uZGl0aW9uIGluIElFQzYxOTY2LTIuMQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAdmlldwAA
AAAAE6T+ABRfLgAQzxQAA+3MAAQTCwADXJ4AAAABWFlaIAAAAAAATAlWAFAAAABXH+dtZWFzAAAAAAAA
AAEAAAAAAAAAAAAAAAAAAAAAAAACjwAAAAJzaWcgAAAAAENSVCBjdXJ2AAAAAAAABAAAAAAFAAoADwAU
ABkAHgAjACgALQAyADcAOwBAAEUASgBPAFQAWQBeAGMAaABtAHIAdwB8AIEAhgCLAJAAlQCaAJ8ApACp
AK4AsgC3ALwAwQDGAMsA0ADVANsA4ADlAOsA8AD2APsBAQEHAQ0BEwEZAR8BJQErATIBOAE+AUUBTAFS
AVkBYAFnAW4BdQF8AYMBiwGSAZoBoQGpAbEBuQHBAckB0QHZAeEB6QHyAfoCAwIMAhQCHQImAi8COAJB
AksCVAJdAmcCcQJ6AoQCjgKYAqICrAK2AsECywLVAuAC6wL1AwADCwMWAyEDLQM4A0MDTwNaA2YDcgN+
A4oDlgOiA64DugPHA9MD4APsA/kEBgQTBCAELQQ7BEgEVQRjBHEEfgSMBJoEqAS2BMQE0wThBPAE/gUN
BRwFKwU6BUkFWAVnBXcFhgWWBaYFtQXFBdUF5QX2BgYGFgYnBjcGSAZZBmoGewaMBp0GrwbABtEG4wb1
BwcHGQcrBz0HTwdhB3QHhgeZB6wHvwfSB+UH+AgLCB8IMghGCFoIbgiCCJYIqgi+CNII5wj7CRAJJQk6
CU8JZAl5CY8JpAm6Cc8J5Qn7ChEKJwo9ClQKagqBCpgKrgrFCtwK8wsLCyILOQtRC2kLgAuYC7ALyAvh
C/kMEgwqDEMMXAx1DI4MpwzADNkM8w0NDSYNQA1aDXQNjg2pDcMN3g34DhMOLg5JDmQOfw6bDrYO0g7u
DwkPJQ9BD14Peg+WD7MPzw/sEAkQJhBDEGEQfhCbELkQ1xD1ERMRMRFPEW0RjBGqEckR6BIHEiYSRRJk
EoQSoxLDEuMTAxMjE0MTYxODE6QTxRPlFAYUJxRJFGoUixStFM4U8BUSFTQVVhV4FZsVvRXgFgMWJhZJ
FmwWjxayFtYW+hcdF0EXZReJF64X0hf3GBsYQBhlGIoYrxjVGPoZIBlFGWsZkRm3Gd0aBBoqGlEadxqe
GsUa7BsUGzsbYxuKG7Ib2hwCHCocUhx7HKMczBz1HR4dRx1wHZkdwx3sHhYeQB5qHpQevh7pHxMfPh9p
H5Qfvx/qIBUgQSBsIJggxCDwIRwhSCF1IaEhziH7IiciVSKCIq8i3SMKIzgjZiOUI8Ij8CQfJE0kfCSr
JNolCSU4JWgllyXHJfcmJyZXJocmtyboJxgnSSd6J6sn3CgNKD8ocSiiKNQpBik4KWspnSnQKgIqNSpo
KpsqzysCKzYraSudK9EsBSw5LG4soizXLQwtQS12Last4S4WLkwugi63Lu4vJC9aL5Evxy/+MDUwbDCk
MNsxEjFKMYIxujHyMioyYzKbMtQzDTNGM38zuDPxNCs0ZTSeNNg1EzVNNYc1wjX9Njc2cjauNuk3JDdg
N5w31zgUOFA4jDjIOQU5Qjl/Obw5+To2OnQ6sjrvOy07azuqO+g8JzxlPKQ84z0iPWE9oT3gPiA+YD6g
PuA/IT9hP6I/4kAjQGRApkDnQSlBakGsQe5CMEJyQrVC90M6Q31DwEQDREdEikTORRJFVUWaRd5GIkZn
RqtG8Ec1R3tHwEgFSEtIkUjXSR1JY0mpSfBKN0p9SsRLDEtTS5pL4kwqTHJMuk0CTUpNk03cTiVObk63
TwBPSU+TT91QJ1BxULtRBlFQUZtR5lIxUnxSx1MTU19TqlP2VEJUj1TbVShVdVXCVg9WXFapVvdXRFeS
V+BYL1h9WMtZGllpWbhaB1pWWqZa9VtFW5Vb5Vw1XIZc1l0nXXhdyV4aXmxevV8PX2Ffs2AFYFdgqmD8
YU9homH1YklinGLwY0Njl2PrZEBklGTpZT1lkmXnZj1mkmboZz1nk2fpaD9olmjsaUNpmmnxakhqn2r3
a09rp2v/bFdsr20IbWBtuW4SbmtuxG8eb3hv0XArcIZw4HE6cZVx8HJLcqZzAXNdc7h0FHRwdMx1KHWF
deF2Pnabdvh3VnezeBF4bnjMeSp5iXnnekZ6pXsEe2N7wnwhfIF84X1BfaF+AX5ifsJ/I3+Ef+WAR4Co
gQqBa4HNgjCCkoL0g1eDuoQdhICE44VHhauGDoZyhteHO4efiASIaYjOiTOJmYn+imSKyoswi5aL/Ixj
jMqNMY2Yjf+OZo7OjzaPnpAGkG6Q1pE/kaiSEZJ6kuOTTZO2lCCUipT0lV+VyZY0lp+XCpd1l+CYTJi4
mSSZkJn8mmia1ZtCm6+cHJyJnPedZJ3SnkCerp8dn4uf+qBpoNihR6G2oiailqMGo3aj5qRWpMelOKWp
phqmi6b9p26n4KhSqMSpN6mpqhyqj6sCq3Wr6axcrNCtRK24ri2uoa8Wr4uwALB1sOqxYLHWskuywrM4
s660JbSctRO1irYBtnm28Ldot+C4WbjRuUq5wro7urW7LrunvCG8m70VvY++Cr6Evv+/er/1wHDA7MFn
wePCX8Lbw1jD1MRRxM7FS8XIxkbGw8dBx7/IPci8yTrJuco4yrfLNsu2zDXMtc01zbXONs62zzfPuNA5
0LrRPNG+0j/SwdNE08bUSdTL1U7V0dZV1tjXXNfg2GTY6Nls2fHadtr724DcBdyK3RDdlt4c3qLfKd+v
4DbgveFE4cziU+Lb42Pj6+Rz5PzlhOYN5pbnH+ep6DLovOlG6dDqW+rl63Dr++yG7RHtnO4o7rTvQO/M
8Fjw5fFy8f/yjPMZ86f0NPTC9VD13vZt9vv3ivgZ+Kj5OPnH+lf65/t3/Af8mP0p/br+S/7c/23////b
AEMAAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQICAgICAgICAgICAwMD
AwMDAwMDA//bAEMBAQEBAQEBAQEBAQICAQICAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMD
AwMDAwMDAwMDAwMDAwMDA//AABEIAAwAPAMBEQACEQEDEQH/xAAfAAABBQEBAQEBAQAAAAAAAAAAAQID
BAUGBwgJCgv/xAC1EAACAQMDAgQDBQUEBAAAAX0BAgMABBEFEiExQQYTUWEHInEUMoGRoQgjQrHBFVLR
8CQzYnKCCQoWFxgZGiUmJygpKjQ1Njc4OTpDREVGR0hJSlNUVVZXWFlaY2RlZmdoaWpzdHV2d3h5eoOE
hYaHiImKkpOUlZaXmJmaoqOkpaanqKmqsrO0tba3uLm6wsPExcbHyMnK0tPU1dbX2Nna4eLj5OXm5+jp
6vHy8/T19vf4+fr/xAAfAQADAQEBAQEBAQEBAAAAAAAAAQIDBAUGBwgJCgv/xAC1EQACAQIEBAMEBwUE
BAABAncAAQIDEQQFITEGEkFRB2FxEyIygQgUQpGhscEJIzNS8BVictEKFiQ04SXxFxgZGiYnKCkqNTY3
ODk6Q0RFRkdISUpTVFVWV1hZWmNkZWZnaGlqc3R1dnd4eXqCg4SFhoeIiYqSk5SVlpeYmZqio6Slpqeo
qaqys7S1tre4ubrCw8TFxsfIycrS09TV1tfY2dri4+Tl5ufo6ery8/T19vf4+fr/2gAMAwEAAhEDEQA/
AP1ZH7UPxEAA/wCEw8bnj/ob9f8A/k+v7U/1Nyj/AKF+G/8ABUP/AJE/llcSZlZf7dX/APBk/wDMX/hq
H4if9Df43/8ACv1//wCT6P8AU3Kf+hfhv/BUP/kQ/wBZcy/6Dq//AIMn/mH/AA1D8RP+hv8AG/8A4V+v
/wDyfR/qblP/AEL8N/4Kh/8AIh/rLmX/AEHV/wDwZP8AzD/hqH4if9Df43/8K/X/AP5Po/1Nyn/oX4b/
AMFQ/wDkQ/1lzL/oOr/+DJ/5h/w1D8RP+hv8b/8AhX6//wDJ9H+puU/9C/Df+Cof/Ih/rLmX/QdX/wDB
k/8AMT/hqH4if9Df43/8K/X/AP5Po/1Nyn/oX4b/AMFQ/wDkQ/1kzL/oOr/+DJ/5n2R+xz+234zt/iRp
nw+8a6vqXiDwZ4gs9baObXr+bUr/AMPajpmkX2tQ3FlqV2Zb57K7XT2t3tXkaJWkV4whVxJ+beJfAuU4
Th/FZ/hKEKOMw8qd+SKjGcZzjTs4q0bpyUlJK7s073VvuuBOLMxxGcYfJ8TWlVw1ZTtzu7hKMJTupPWz
UWnFu2qatrf9aP8AhfXgv+zv7U89/sfm+V5207N+M43fSv50P2w/kwr/AEFP42CgAoAKACgAoA9s/Z0/
s7/hcng3+1vP/s7Ov/avs2PP2f8ACL63t2buP9ZjP+zmvz7xU/5IPPf+4H/qRRPsvD//AJK7KP8AuL/6
ZqH7/wD/ABaT/hUfb7Ht/wBj7V9p8v8A9Cr+Oz+lz//Z
</value>
</data>
<metadata name="$this.TrayHeight" type="System.Int32, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>45</value>
</metadata>
</root>

581
ArinWarev1/Forms_Input/Frm_kongjo.vb Normal file
View File

@@ -0,0 +1,581 @@
Public Class Frm_kongjo
Dim Init As Boolean = False
Dim SrcDrv As DataRowView
Public Sub New(_opentime)
' 이 호출은 디자이너에 필요합니다.
InitializeComponent()
OpenTime = _opentime
' InitializeComponent() 호출 뒤에 초기화 코드를 추가하십시오.
End Sub
#Region "data Base 변경여부및 적용방법"
'''변경된내용을적용한다.
Public Overrides Function AcceptChanged() As Boolean
bs.EndEdit()
Dim BaseDS As DataSet = CType(bs.DataSource, DataSet)
Dim BaseDT As DataTable = BaseDS.Tables(bs.DataMember)
BaseDT.AcceptChanges()
Return True
End Function
'''변경된내용이있다면 취소한다.
Public Overrides Function RejectChanged() As Boolean
Dim BaseDS As DataSet = CType(bs.DataSource, DataSet)
Dim BaseDT As DataTable = BaseDS.Tables(bs.DataMember)
BaseDT.RejectChanges()
Return True
End Function
'''데이터에변형이있었는가?
Public Overrides Function HasChanged() As Boolean
bs.EndEdit()
Dim BaseDS As DataSet = CType(bs.DataSource, DataSet)
Dim BaseDT As DataTable = BaseDS.Tables(bs.DataMember)
Dim ChangeDT As DataTable = BaseDT.GetChanges
If Not ChangeDT Is Nothing Then Return True
Return False
End Function
'''기본데이터테이블을 반환합니다.
Public Function DT() As DataTable
Dim BaseDS As DataSet = CType(bs.DataSource, DataSet)
Return BaseDS.Tables(bs.DataMember)
End Function
#End Region
Private Sub ShowHistory()
Dim drv As DataRowView = Me.bs.Current
Dim f As New Frm_History("tbl_kongjo", drv("code").ToString)
If f.ShowDialog = DialogResult.OK Then
drv(f.colname) = f.val
Me.Validate()
Me.bs.EndEdit()
My.Application.DoEvents()
MsgBox("값이 변경되었습니다", MsgBoxStyle.Information, "확인")
End If
End Sub
Private Sub AddNewDataRow_Zone_Changed2(ByVal sender As Object, ByVal e As System.Data.DataColumnChangeEventArgs)
Dim oval As String = e.Row(e.Column.ColumnName).ToString
Dim nval As String = e.ProposedValue.ToString
If oval <> nval Then
Dim newdr As DS2.historyRow = DSHistory.history.NewhistoryRow
newdr.time = Now.ToString("yyyy-MM-dd HH:mm:ss")
newdr.tablename = "tbl_kongjo"
newdr.ovalue = oval
newdr.nvalue = nval
newdr.column = e.Column.ColumnName
newdr.code = e.Row("code").ToString
DSHistory.history.AddhistoryRow(newdr)
DSHistory.history.AcceptChanges()
End If
End Sub
Private Sub MdiMain_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Me.Show()
My.Application.DoEvents()
'Work_msg_timer("잠시만 기다려주세요")
Me.bs.DataSource = DSET1
'//공조처리
AddHandler DSET1.tbl_kongjo.TableNewRow, AddressOf AddNewDataRow_kongjo
AddHandler DSET1.tbl_kongjo.ColumnChanged, AddressOf AddNewDataRow_Zone_Changed
AddHandler DSET1.tbl_kongjo.ColumnChanging, AddressOf AddNewDataRow_Zone_Changed2
'//콤보컨트롤 바인딩
Binding_Zone()
'//모든컨트롤의 cTrl_enter 를 추가합니다
BindProperty(CType(Me.SplitContainer1.Panel2.Controls, Control.ControlCollection))
Me.bs.Filter = "code <> '0'"
'If Me.Parameter <> "" Then Me.bs.Filter &= " and 공조방식 ='" + Me.Parameter + "'"
'Me.lb_grpname.Text = Me.Parameter
' Binding_Zone()
Me.Init = True
Try
Me.bs.Position = CEnergy.ARINCLASS.Read_LastPos_Frm(Me)
Catch ex As Exception
Me.bs.MoveFirst()
End Try
bs_CurrentChanged(sender, e)
Validate_Control()
AddDebug("▲ Form Load")
End Sub
#Region "Control_Enter"
Private Sub BindProperty(ByVal Ctl As Control.ControlCollection)
For Each C As Control In Ctl
If C.Controls.Count > 1 Then
BindProperty(C.Controls)
Else
If C.GetType.ToString.ToUpper.IndexOf("MYTB") <> -1 Then
AddHandler CType(C, MyTb).KeyDown, AddressOf TextBOx_KeyDown
ElseIf C.GetType.ToString.ToUpper.IndexOf("MYCMB") <> -1 Then
AddHandler CType(C, MyCmb).KeyDown, AddressOf Cmd_KeyDown
End If
End If
Next
End Sub
Private Sub TextBOx_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs)
If e.KeyCode = Keys.Enter AndAlso e.Control Then
Try
Dim Field As String = (CType(sender, MyTb).DataBindings.Item("text").BindingMemberInfo.BindingField)
For Each Dr As DataRow In DT.Select(Me.bs.Filter, "")
Dr(Field) = CType(sender, MyTb).Text
Next
Work_msg_timer("모든값이 변경되었습니다", 25)
Catch ex As Exception
End Try
End If
End Sub
Private Sub Cmd_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs)
If e.KeyCode = Keys.Enter AndAlso e.Control Then
Try
Dim Field As String = (CType(sender, MyCmb).DataBindings.Item("selectedvalue").BindingMemberInfo.BindingField)
For Each Dr As DataRow In DT.Select(Me.bs.Filter, "")
Dr(Field) = CType(sender, MyCmb).SelectedValue
Next
Work_msg_timer("모든값이 변경되었습니다", 25)
Catch ex As Exception
End Try
End If
End Sub
#End Region
#Region "공조처리시스템"
Private Function GetMaxCode(ByVal dt As DataTable) As String
Try
Dim Dr As DataRow = dt.Select("", "code desc")(0)
Return Format(CInt(Dr("code")) + 1, "0000")
Catch ex As Exception
Return "0001"
End Try
End Function
Private Sub MdiMain_FormClosed(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosedEventArgs) Handles Me.FormClosed
CEnergy.ARINCLASS.SaveLoad_FrmSetting(Me, Me.bs.Position, True)
End Sub
Private Sub MdiMain_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown
Select Case e.KeyCode
Case Keys.F12
ShowHistory()
End Select
End Sub
Private Sub AddNewDataRow_kongjo(ByVal sender As Object, ByVal e As System.Data.DataTableNewRowEventArgs)
e.Row.Item("code") = GetMaxCode(DSET1.tbl_kongjo)
e.Row.Item("팬효율산출방식") = "계산치"
e.Row.Item("설명") = "신규데이터"
e.Row.Item("공조방식") = Me.Parameter '//현재선택된데이터로 공조방식을 처리해준다.
End Sub
Private Sub AddNewDataRow_Zone_Changed(ByVal sender As Object, ByVal e As System.Data.DataColumnChangeEventArgs)
End Sub
Private Sub ToolStripButton48_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt_add.Click
If Not EndEdit(Me.bs) Then Return
Me.bs.AddNew()
INitRow(Me.Controls)
MdiMain.RefreshMenuList(TreeTag)
End Sub
Private Sub ToolStripButton49_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt_Del.Click
Dbbase.DelCrow(Me.bs, True)
MdiMain.RefreshMenuList(TreeTag)
End Sub
Private Sub ToolStripButton51_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt_cancel.Click
If Not EndEdit(Me.bs) Then Return
Data_Cancel(DSET1.tbl_profile, Nothing)
MdiMain.RefreshMenuList(TreeTag)
End Sub
Private Sub Cmb_DeleteVal(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs)
If e.KeyCode = Keys.Delete Then
CType(sender, ComboBox).SelectedValue = ""
End If
End Sub
Private Sub Binding_Zone()
Dim bs_cmb_공조방식 As New BindingSource(DSET1, "tbl_common")
bs_cmb_공조방식.Filter = "gubun='1026'"
bs_cmb_공조방식.Sort = "code"
Me.공조방식NCMB.DataSource = bs_cmb_공조방식
공조방식NCMB.DisplayMember = "name"
공조방식NCMB.ValueMember = "name"
Me.공조방식NCMB.DataBindings.Add("selectedvalue", Me.bs, "공조방식")
AddHandler 공조방식NCMB.KeyDown, AddressOf Cmb_DeleteVal
Dim bs_cmb_리턴공기혼합여부ComboBox As New BindingSource(DSET1, "tbl_common")
bs_cmb_리턴공기혼합여부ComboBox.Filter = "gubun='1054'"
bs_cmb_리턴공기혼합여부ComboBox.Sort = "code"
Me.리턴공기혼합여부ComboBox.DataSource = bs_cmb_리턴공기혼합여부ComboBox
리턴공기혼합여부ComboBox.DisplayMember = "name"
리턴공기혼합여부ComboBox.ValueMember = "name"
Me.리턴공기혼합여부ComboBox.DataBindings.Add("selectedvalue", Me.bs, "리턴공기혼합여부")
AddHandler 리턴공기혼합여부ComboBox.KeyDown, AddressOf Cmb_DeleteVal
Dim bs_가습기유형ComboBox As New BindingSource(DSET1, "tbl_common")
bs_가습기유형ComboBox.Filter = "gubun='1015'"
bs_가습기유형ComboBox.Sort = "code"
Me.가습기유형ComboBox.DataSource = bs_가습기유형ComboBox
가습기유형ComboBox.DisplayMember = "name"
가습기유형ComboBox.ValueMember = "name"
Me.가습기유형ComboBox.DataBindings.Add("selectedvalue", Me.bs, "가습기유형")
AddHandler 가습기유형ComboBox.KeyDown, AddressOf Cmb_DeleteVal
Dim bs_외기냉방제어유무ComboBox As New BindingSource(DSET1, "tbl_common")
bs_외기냉방제어유무ComboBox.Filter = "gubun='1032'"
bs_외기냉방제어유무ComboBox.Sort = "code"
Me.외기냉방제어유무ComboBox.DataSource = bs_외기냉방제어유무ComboBox
외기냉방제어유무ComboBox.DisplayMember = "name"
외기냉방제어유무ComboBox.ValueMember = "name"
Me.외기냉방제어유무ComboBox.DataBindings.Add("selectedvalue", Me.bs, "외기냉방제어유무")
AddHandler 외기냉방제어유무ComboBox.KeyDown, AddressOf Cmb_DeleteVal
Dim bs_열교환기유형ComboBox As New BindingSource(DSET1, "tbl_common")
bs_열교환기유형ComboBox.Filter = "gubun='1016'"
bs_열교환기유형ComboBox.Sort = "code"
Me.열교환기유형ComboBox.DataSource = bs_열교환기유형ComboBox
열교환기유형ComboBox.DisplayMember = "name"
열교환기유형ComboBox.ValueMember = "name"
Me.열교환기유형ComboBox.DataBindings.Add("selectedvalue", Me.bs, "열교환기유형")
AddHandler 열교환기유형ComboBox.KeyDown, AddressOf Cmb_DeleteVal
Dim bs_Cmb_팬효율산출방식 As New BindingSource(DSET1, "tbl_common")
bs_Cmb_팬효율산출방식.Sort = "code"
bs_Cmb_팬효율산출방식.Filter = "gubun='1031'"
Cmb_팬효율산출방식.DataSource = bs_Cmb_팬효율산출방식
Cmb_팬효율산출방식.DisplayMember = "name"
Cmb_팬효율산출방식.ValueMember = "name"
Me.Cmb_팬효율산출방식.DataBindings.Add("selectedvalue", Me.bs, "팬효율산출방식")
End Sub
Private Sub Frm_V20091231_Zone_MouseWheel(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseWheel
If e.Delta < 0 Then
If Me.bs.Position < Me.bs.Count Then Me.bs.Position += 1
Else
If Me.bs.Position > 0 Then Me.bs.Position -= 1
End If
Me.Validate()
My.Application.DoEvents()
End Sub
#End Region
Private Sub 열교환기유형ComboBox_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 열교환기유형ComboBox.SelectedIndexChanged
Validate_Control()
End Sub
Private Sub Validate_Control()
If Not Init Then Return
Try
If Me.열교환기유형ComboBox.SelectedIndex = 0 Or Me.열교환기유형ComboBox.SelectedIndex = 1 Then '//사용안함
Me.tb_08.Enabled = False
Me.tb_13.Enabled = False
Else
Me.tb_08.Enabled = True
Me.tb_13.Enabled = True
End If
bs.EndEdit()
Catch ex As Exception
End Try
Try
If Me.Cmb_팬효율산출방식.SelectedIndex = 0 Then
Me.Tb_급기풍량.Enabled = True
Me.Tb_배기풍량.Enabled = True
Me.Tb_급기팬동력.Enabled = True
Me.Tb_배기팬동력.Enabled = True
Else
Me.Tb_급기풍량.Enabled = False
Me.Tb_배기풍량.Enabled = False
Me.Tb_급기팬동력.Enabled = False
Me.Tb_배기팬동력.Enabled = False
End If
Catch ex As Exception
End Try
End Sub
Private Sub bs_CurrentChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bs.CurrentChanged
'//존에 적용된수를 구한다ㅏ.(존수만 구했으니깐 단순히 해당 데이터의 배열갯수만 보여줬습니다. 면적을 구하려면
If Not Init Then Return
Try
Dim drv As DataRowView = Me.bs.Current
If drv Is Nothing Then Return
Me.lb_code.Text = "[" + drv("code").ToString + "]"
Dim DR() As DS.tbl_zoneRow = DSET1.tbl_zone.Select("냉난방공조처리시스템='" & Drv("code").ToString & "'")
If DR.GetUpperBound(0) = -1 Then '//해당되는 데이터가없을경우
Me.tb_zone_cnt.Text = "0"
Me.TextBox1.Text = "0"
Else
Dim 면적 As Decimal = 0
Dim 존수 As Integer = 0
For Each drow As DS.tbl_zoneRow In DR
If IsNumeric(drow.입력존의수) Then
존수 += CInt(drow.입력존의수)
Else
존수 += 1
End If
'존수 += TOSG(drow.입력존의수)
Try
면적 += TOSG(drow.면적) * TOSG(drow.입력존의수)
Catch ex As Exception
End Try
Next
Me.tb_zone_cnt.Text = Format(존수, "#,###,###").ToString
Me.TextBox1.Text = Format(면적, "##,###,###.#####").ToString
End If
Catch ex As Exception
End Try
Me.bs.EndEdit()
'// 며면적에 들어왓어요 표시하고싶으신곳에하세요
End Sub
Private Sub 공조방식NCMB_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles 공조방식NCMB.KeyDown
If e.KeyCode = Keys.V And e.Control Then
e.Handled = True
e.SuppressKeyPress = False
'//클립보드붙여넣기
Dim CB() As String = My.Computer.Clipboard.GetText.Split(CChar(vbCrLf))
If CB.GetUpperBound(0) <> 17 Then '//각화면에 이부분이 모두 붙여넣기부분인데 자신이쓸길이 가 아니면 못들어오게하는거에요
MsgBox("붙여넣기가 호환되는 데이터가 아닙니다.", MsgBoxStyle.Information, "확인")
Return
End If
For ii As Integer = 0 To CType(CB(0).Split(CChar(vbTab)), String()).GetUpperBound(0)
If Me.bs.Count = 0 OrElse ii > 0 Then Me.bt_add.PerformClick() '//한줄추가
Dim Cnt As Short = 0
For i As Integer = 0 To CB.GetUpperBound(0)
Select Case i
Case 0
CType(Me.bs.Current, DataRowView)("설명") = CB(i).Split(CChar(vbTab))(ii).Trim
Case 0 + 3 '//사용프로필 앞에 두개를 숫자4자리로변환
If CB(i).Split(CChar(vbTab))(ii).Trim = "" Then
Me.공조방식NCMB.SelectedIndex = 0
Else
Me.공조방식NCMB.Text = CB(i).Split(CChar(vbTab))(ii).Trim
End If
'Me.공조방식NCMB.Text = CB(i).Split(CChar(vbTab))(ii).Trim
Case 1 + 3 '//공란
Me.tb_01.Text = CB(i).Split(CChar(vbTab))(ii).Trim
Case 2 + 3 '//면적
Me.tb_02.Text = CB(i).Split(CChar(vbTab))(ii).Trim
Case 3 + 3
Me.tb_03.Text = CB(i).Split(CChar(vbTab))(ii).Trim
Case 4 + 3
If CB(i).Split(CChar(vbTab))(ii).Trim = "" Then
Me.리턴공기혼합여부ComboBox.SelectedIndex = 0
Else
Me.리턴공기혼합여부ComboBox.Text = CB(i).Split(CChar(vbTab))(ii).Trim
End If
' Me.리턴공기혼합여부ComboBox.Text = CStr(IIf(CB(i).Split(CChar(vbTab))(ii).Trim = "", "0", CB(i).Split(CChar(vbTab))(ii).Trim ))
Case 5 + 3
If CB(i).Split(CChar(vbTab))(ii).Trim = "" Then
Me.가습기유형ComboBox.SelectedIndex = 0
Else
Me.가습기유형ComboBox.Text = CB(i).Split(CChar(vbTab))(ii).Trim
End If
'Me.가습기유형ComboBox.Text = CStr(IIf(CB(i).Split(CChar(vbTab))(ii).Trim = "", "0", CB(i).Split(CChar(vbTab))(ii).Trim ))
Case 6 + 3
If CB(i).Split(CChar(vbTab))(ii).Trim = "" Then
Me.외기냉방제어유무ComboBox.SelectedIndex = 0
Else
Me.외기냉방제어유무ComboBox.Text = CB(i).Split(CChar(vbTab))(ii).Trim
End If
' Me.외기냉방제어유무ComboBox.Text = CStr(IIf(CB(i).Split(CChar(vbTab))(ii).Trim = "", "0", CB(i).Split(CChar(vbTab))(ii).Trim ))
Case 7 + 3
If CB(i).Split(CChar(vbTab))(ii).Trim = "" Then
Me.열교환기유형ComboBox.SelectedIndex = 0
Else
Me.열교환기유형ComboBox.Text = CB(i).Split(CChar(vbTab))(ii).Trim
End If
' Me.열교환기유형ComboBox.Text = CStr(IIf(CB(i).Split(CChar(vbTab))(ii).Trim = "", "0", CB(i).Split(CChar(vbTab))(ii).Trim ))
Case 8 + 3
Me.tb_08.Text = CB(i).Split(CChar(vbTab))(ii).Trim
Case 8 + 3 + 1
Me.tb_13.Text = CB(i).Split(CChar(vbTab))(ii).Trim
Case 9 + 3 + 1
Me.Tb_급기팬압력손실.Text = CB(i).Split(CChar(vbTab))(ii).Trim
Case 10 + 3 + 1
Me.Tb_배기팬압력손실.Text = CB(i).Split(CChar(vbTab))(ii).Trim
Case 11 + 3 + 1
Me.Tb_급기팬효율.Text = CB(i).Split(CChar(vbTab))(ii).Trim
Case 12 + 3 + 1
Me.Tb_배기팬효율.Text = CB(i).Split(CChar(vbTab))(ii).Trim
End Select
Next
Next
Me.bs.EndEdit()
End If
End Sub
Private Sub bt_Del_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles bt_Del.MouseDown
If e.Button = Windows.Forms.MouseButtons.Right Then
If MsgBox("전체삭제를 하시겠습니까?", MsgBoxStyle.Information Or MsgBoxStyle.OkCancel, "확인") = MsgBoxResult.Ok Then
Dim dR() As DataRow = DSET1.tbl_kongjo.Select(Me.bs.Filter, "")
For i As Integer = dR.GetUpperBound(0) To 0 Step -1
dR(i).Delete()
Next
DSET1.tbl_kongjo.AcceptChanges()
End If
End If
End Sub
Private Sub dv_CellBeginEdit(sender As Object, e As System.Windows.Forms.DataGridViewCellCancelEventArgs) Handles dv.CellBeginEdit
End Sub
Private Sub dv_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles dv.MouseUp
If Prj.UserAuthType = "ADMIN" OrElse Prj.UserAuthType = "BOTH" OrElse Prj.UserAuthType = "BOTH2" OrElse Prj.UserAuthType = "BOTH1" Then '//2011.03.08 추가
If e.Button = Windows.Forms.MouseButtons.Right Then
Dim Frm_FilterA As New Frm_Filter
Frm_FilterA.ColumTitle = getColCaption(Me.DT)
Frm_FilterA.ColumList = getColName(Me.DT)
Frm_FilterA.Colorlist = ""
Frm_FilterA.Numfield = "" '//20100618 Color 리스트처럼 , 구분해서 필드들을 모두 넣으세요.(=, >= 등을 사용하기 위해서는 해당 항목을 추가 요망)
Frm_FilterA.Default_Filter = "code <> '0'"
If Frm_FilterA.ShowDialog <> Windows.Forms.DialogResult.OK Then Return '//창떳을떄 확인아ㅣ고 취소눌르면 다음을 수행하지않는다는거에요.
Dim Filter As String = Frm_FilterA.tb_filter.Text '//값은 아까 그 텍박에 잇구요.
Try
Me.bs.Filter = Filter
'//바꾸기값이 있으면 변경 20100618
If Frm_FilterA.cmb_fieldc.SelectedIndex >= 0 AndAlso Frm_FilterA.cmb_fieldc.Text.ToLower <> "code" AndAlso _
Frm_FilterA.tb_valuec.Text <> "" Then
Dim Drow() As DataRow = Me.DT.Select(Filter)
For Each Dr As DataRow In Drow
Dr(Frm_FilterA.cmb_fieldc.Text) = Frm_FilterA.tb_valuec.Text
Next
MsgBox("바꾸기 완료", MsgBoxStyle.Information, "확인")
End If
Catch ex As Exception
Me.bs.Filter = ""
End Try
End If
End If
End Sub
Private Sub dv_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles dv.KeyDown
'//여기보시면 alt+d 누르면 한줄을 경고없이(falsE)삭제하도록 햇어요.. 사실원래 밋alt +d 인데.. ㅎㅎ 잘못해서 ctrl 됫다는
If Prj.UserAuthType = "ADMIN" OrElse Prj.UserAuthType = "BOTH" OrElse Prj.UserAuthType = "BOTH2" OrElse Prj.UserAuthType = "BOTH1" Then '//2011.03.08 추가
Select Case e.KeyCode
Case Keys.D
If e.Alt Then
Dbbase.DelCrow(Me.bs, False)
End If
Case Keys.C
If e.Control Then
Me.SrcDrv = Me.bs.Current
If Me.SrcDrv Is Nothing Then
MsgBox("저장할 ROW가 없습니다", MsgBoxStyle.Information, "확인")
Return
End If
' My.Computer.Clipboard.SetData("ZDATA", Drv)
End If
Case Keys.V
If e.Control Then
If Me.SrcDrv Is Nothing Then Return
Me.bt_add.PerformClick() '//신규추가
Dim NewDrv As DataRowView = Me.bs.Current
For Each C As DataColumn In Me.DT.Columns
If C.ColumnName.ToUpper = "CODE" Then
ElseIf C.ColumnName.ToUpper = "설명" Then
NewDrv(C.ColumnName) = SrcDrv(C.ColumnName) & "#1"
Else
NewDrv(C.ColumnName) = SrcDrv(C.ColumnName)
End If
Next
Me.bs.EndEdit()
bs.MoveLast()
End If
End Select
End If
End Sub
Private Sub Cmb_팬효율산출방식_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Cmb_팬효율산출방식.SelectedIndexChanged
Validate_Control()
End Sub
Private Sub Tb_급기풍량_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Tb_급기풍량.TextChanged, Tb_급기팬압력손실.TextChanged, Tb_급기팬동력.TextChanged
If Me.Cmb_팬효율산출방식.Text = "계산치" AndAlso Me.Tb_급기팬동력.Text <> "" AndAlso Me.Tb_급기팬동력.Text <> "0" AndAlso Me.Tb_급기팬동력.Text <> "0." Then
Dim 효율 As Decimal
Try
효율 = Math.Round(TOSG(Tb_급기풍량.Text) * (TOSG(Tb_급기팬압력손실.Text) / 9.8) / (TOSG(Tb_급기팬동력.Text) * 102 * 3600), 3)
Me.Tb_급기팬효율.Text = TOSG(효율).ToString
Catch ex As Exception
End Try
End If
End Sub
Private Sub Tb_배기풍량_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Tb_배기풍량.TextChanged, Tb_배기팬압력손실.TextChanged, Tb_배기팬동력.TextChanged
If Me.Cmb_팬효율산출방식.Text = "계산치" AndAlso Me.Tb_배기팬동력.Text <> "" AndAlso Me.Tb_배기팬동력.Text <> "0" AndAlso Me.Tb_배기팬동력.Text <> "0." Then
Dim 효율 As Decimal
Try
효율 = Math.Round(TOSG(Tb_배기풍량.Text) * (TOSG(Tb_배기팬압력손실.Text) / 9.8) / (TOSG(Tb_배기팬동력.Text) * 102 * 3600), 3)
Me.Tb_배기팬효율.Text = TOSG(효율).ToString
Catch ex As Exception
End Try
End If
End Sub
Private Sub dv_CellContentClick(sender As System.Object, e As System.Windows.Forms.DataGridViewCellEventArgs) Handles dv.CellContentClick
End Sub
Private Sub 공조방식NCMB_SelectedIndexChanged(sender As System.Object, e As System.EventArgs) Handles 공조방식NCMB.SelectedIndexChanged
End Sub
Private Sub 공조방식NCMB_SelectedValueChanged(sender As Object, e As System.EventArgs) Handles 공조방식NCMB.SelectedValueChanged
Me.bs.EndEdit()
End Sub
Private Sub 공조방식NCMB_SelectionChangeCommitted(sender As Object, e As System.EventArgs) Handles 공조방식NCMB.SelectionChangeCommitted
End Sub
End Class

921
ArinWarev1/Forms_Input/Frm_kongkub.Designer.vb generated Normal file
View File

@@ -0,0 +1,921 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class Frm_kongkub
Inherits CForm
'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.components = New System.ComponentModel.Container()
Dim Label1 As System.Windows.Forms.Label
Dim Label2 As System.Windows.Forms.Label
Dim Label3 As System.Windows.Forms.Label
Dim Label4 As System.Windows.Forms.Label
Dim Label5 As System.Windows.Forms.Label
Dim Label6 As System.Windows.Forms.Label
Dim Label7 As System.Windows.Forms.Label
Dim Label8 As System.Windows.Forms.Label
Dim Label13 As System.Windows.Forms.Label
Dim Label14 As System.Windows.Forms.Label
Dim Label15 As System.Windows.Forms.Label
Dim Label17 As System.Windows.Forms.Label
Dim Label18 As System.Windows.Forms.Label
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(Frm_kongkub))
Me.bs = New System.Windows.Forms.BindingSource(Me.components)
Me.DS = New Eco2Ar.DS()
Me.전기난방GroupBox = New System.Windows.Forms.GroupBox()
Me.Label16 = New System.Windows.Forms.Label()
Me.전기난방제어ComboBox = New Eco2Ar.MyCmb()
Me.전기난방PictureBox = New System.Windows.Forms.PictureBox()
Me.바닥난방열GroupBox = New System.Windows.Forms.GroupBox()
Me.Label20 = New System.Windows.Forms.Label()
Me.바닥난방열제어ComboBox = New Eco2Ar.MyCmb()
Me.바닥난방열건축부위ComboBox = New Eco2Ar.MyCmb()
Me.바닥난방열PictureBox = New System.Windows.Forms.PictureBox()
Me.바닥난방전기GroupBox = New System.Windows.Forms.GroupBox()
Me.Label19 = New System.Windows.Forms.Label()
Me.바닥난방전기제어ComboBox = New Eco2Ar.MyCmb()
Me.바닥난방전기건축부위ComboBox = New Eco2Ar.MyCmb()
Me.바닥난방전기PictureBox = New System.Windows.Forms.PictureBox()
Me.GroupBox28 = New System.Windows.Forms.GroupBox()
Me.열공급시스템ComboBox = New Eco2Ar.MyCmb()
Me.열공급생산기기ComboBox = New Eco2Ar.MyCmb()
Me.PictureBox1 = New System.Windows.Forms.PictureBox()
Me.노출형방열기GroupBox = New System.Windows.Forms.GroupBox()
Me.Label10 = New System.Windows.Forms.Label()
Me.노출형제어ComboBox = New Eco2Ar.MyCmb()
Me.노출형방열기PictureBox = New System.Windows.Forms.PictureBox()
Me.GroupBox3 = New System.Windows.Forms.GroupBox()
Me.추가펌프수NTb = New Eco2Ar.MyTb()
Me.팬송풍기수NTb = New Eco2Ar.MyTb()
Me.펌프정격전력NTb = New Eco2Ar.MyTb()
Me.제어기의정격전력NTb = New Eco2Ar.MyTb()
Me.팬송풍기정격전력NTb = New Eco2Ar.MyTb()
Me.PictureBox8 = New System.Windows.Forms.PictureBox()
Me.Label201 = New System.Windows.Forms.Label()
Me.tb_zone_cnt = New System.Windows.Forms.TextBox()
Me.SplitContainer1 = New System.Windows.Forms.SplitContainer()
Me.dv = New CEnergy.arindv()
Me.bn = New System.Windows.Forms.BindingNavigator(Me.components)
Me.lbl_count = New System.Windows.Forms.ToolStripLabel()
Me.bt_add = New System.Windows.Forms.ToolStripButton()
Me.bt_Del = New System.Windows.Forms.ToolStripButton()
Me.bt_cancel = New System.Windows.Forms.ToolStripButton()
Me.ToolStripSeparator1 = New System.Windows.Forms.ToolStripSeparator()
Me.lbl_pos = New System.Windows.Forms.ToolStripLabel()
Me.ToolStripSeparator2 = New System.Windows.Forms.ToolStripSeparator()
Me.lb_code = New System.Windows.Forms.ToolStripLabel()
Me.Label9 = New System.Windows.Forms.Label()
Me.PictureBox2 = New System.Windows.Forms.PictureBox()
Me.Label11 = New System.Windows.Forms.Label()
Me.PictureBox4 = New System.Windows.Forms.PictureBox()
Me.Panel1 = New System.Windows.Forms.Panel()
Me.DataGridViewTextBoxColumn1 = New System.Windows.Forms.DataGridViewTextBoxColumn()
Label1 = New System.Windows.Forms.Label()
Label2 = New System.Windows.Forms.Label()
Label3 = New System.Windows.Forms.Label()
Label4 = New System.Windows.Forms.Label()
Label5 = New System.Windows.Forms.Label()
Label6 = New System.Windows.Forms.Label()
Label7 = New System.Windows.Forms.Label()
Label8 = New System.Windows.Forms.Label()
Label13 = New System.Windows.Forms.Label()
Label14 = New System.Windows.Forms.Label()
Label15 = New System.Windows.Forms.Label()
Label17 = New System.Windows.Forms.Label()
Label18 = New System.Windows.Forms.Label()
CType(Me.bs, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.DS, System.ComponentModel.ISupportInitialize).BeginInit()
Me.전기난방GroupBox.SuspendLayout()
CType(Me.전기난방PictureBox, System.ComponentModel.ISupportInitialize).BeginInit()
Me.바닥난방열GroupBox.SuspendLayout()
CType(Me.바닥난방열PictureBox, System.ComponentModel.ISupportInitialize).BeginInit()
Me.바닥난방전기GroupBox.SuspendLayout()
CType(Me.바닥난방전기PictureBox, System.ComponentModel.ISupportInitialize).BeginInit()
Me.GroupBox28.SuspendLayout()
CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit()
Me.노출형방열기GroupBox.SuspendLayout()
CType(Me.노출형방열기PictureBox, System.ComponentModel.ISupportInitialize).BeginInit()
Me.GroupBox3.SuspendLayout()
CType(Me.PictureBox8, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.SplitContainer1, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SplitContainer1.Panel1.SuspendLayout()
Me.SplitContainer1.Panel2.SuspendLayout()
Me.SplitContainer1.SuspendLayout()
CType(Me.dv, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.bn, System.ComponentModel.ISupportInitialize).BeginInit()
Me.bn.SuspendLayout()
CType(Me.PictureBox2, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.PictureBox4, System.ComponentModel.ISupportInitialize).BeginInit()
Me.Panel1.SuspendLayout()
Me.SuspendLayout()
'
'Label1
'
Label1.AutoSize = True
Label1.BackColor = System.Drawing.Color.FromArgb(CType(CType(243, Byte), Integer), CType(CType(244, Byte), Integer), CType(CType(246, Byte), Integer))
Label1.ForeColor = System.Drawing.SystemColors.ControlDarkDark
Label1.Location = New System.Drawing.Point(19, 37)
Label1.Name = "Label1"
Label1.Size = New System.Drawing.Size(95, 12)
Label1.TabIndex = 0
Label1.Text = "실내온도-제어:"
'
'Label2
'
Label2.AutoSize = True
Label2.BackColor = System.Drawing.Color.FromArgb(CType(CType(219, Byte), Integer), CType(CType(221, Byte), Integer), CType(CType(223, Byte), Integer))
Label2.ForeColor = System.Drawing.SystemColors.ControlDarkDark
Label2.Location = New System.Drawing.Point(6, 37)
Label2.Name = "Label2"
Label2.Size = New System.Drawing.Size(95, 12)
Label2.TabIndex = 0
Label2.Text = "실내온도-제어:"
'
'Label3
'
Label3.AutoSize = True
Label3.BackColor = System.Drawing.Color.FromArgb(CType(CType(219, Byte), Integer), CType(CType(221, Byte), Integer), CType(CType(223, Byte), Integer))
Label3.ForeColor = System.Drawing.SystemColors.ControlDarkDark
Label3.Location = New System.Drawing.Point(6, 64)
Label3.Name = "Label3"
Label3.Size = New System.Drawing.Size(121, 24)
Label3.TabIndex = 2
Label3.Text = "건축부위=바닥난방 " & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "시스템:"
Label3.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
'
'Label4
'
Label4.AutoSize = True
Label4.BackColor = System.Drawing.Color.FromArgb(CType(CType(219, Byte), Integer), CType(CType(221, Byte), Integer), CType(CType(223, Byte), Integer))
Label4.ForeColor = System.Drawing.SystemColors.ControlDarkDark
Label4.Location = New System.Drawing.Point(18, 42)
Label4.Name = "Label4"
Label4.Size = New System.Drawing.Size(95, 12)
Label4.TabIndex = 0
Label4.Text = "실내온도-제어:"
'
'Label5
'
Label5.AutoSize = True
Label5.BackColor = System.Drawing.Color.FromArgb(CType(CType(219, Byte), Integer), CType(CType(221, Byte), Integer), CType(CType(223, Byte), Integer))
Label5.ForeColor = System.Drawing.SystemColors.ControlDarkDark
Label5.Location = New System.Drawing.Point(18, 71)
Label5.Name = "Label5"
Label5.Size = New System.Drawing.Size(62, 12)
Label5.TabIndex = 2
Label5.Text = "건축부위:"
'
'Label6
'
Label6.AutoSize = True
Label6.BackColor = System.Drawing.Color.FromArgb(CType(CType(219, Byte), Integer), CType(CType(221, Byte), Integer), CType(CType(223, Byte), Integer))
Label6.ForeColor = System.Drawing.SystemColors.ControlDarkDark
Label6.Location = New System.Drawing.Point(4, 21)
Label6.Name = "Label6"
Label6.Size = New System.Drawing.Size(107, 12)
Label6.TabIndex = 0
Label6.Text = "1.열공급-시스템:"
'
'Label7
'
Label7.AutoSize = True
Label7.BackColor = System.Drawing.Color.FromArgb(CType(CType(219, Byte), Integer), CType(CType(221, Byte), Integer), CType(CType(223, Byte), Integer))
Label7.ForeColor = System.Drawing.SystemColors.ControlDarkDark
Label7.Location = New System.Drawing.Point(268, 21)
Label7.Name = "Label7"
Label7.Size = New System.Drawing.Size(120, 12)
Label7.TabIndex = 2
Label7.Text = "2.열공급-생산기기:"
'
'Label8
'
Label8.AutoSize = True
Label8.BackColor = System.Drawing.Color.FromArgb(CType(CType(243, Byte), Integer), CType(CType(244, Byte), Integer), CType(CType(246, Byte), Integer))
Label8.ForeColor = System.Drawing.SystemColors.ControlDarkDark
Label8.Location = New System.Drawing.Point(7, 41)
Label8.Name = "Label8"
Label8.Size = New System.Drawing.Size(95, 12)
Label8.TabIndex = 0
Label8.Text = "실내온도-제어:"
'
'Label13
'
Label13.AutoSize = True
Label13.BackColor = System.Drawing.Color.FromArgb(CType(CType(219, Byte), Integer), CType(CType(221, Byte), Integer), CType(CType(223, Byte), Integer))
Label13.ForeColor = System.Drawing.SystemColors.ControlDarkDark
Label13.Location = New System.Drawing.Point(16, 119)
Label13.Name = "Label13"
Label13.Size = New System.Drawing.Size(97, 12)
Label13.TabIndex = 8
Label13.Text = "5.추가 펌프 수:"
'
'Label14
'
Label14.AutoSize = True
Label14.BackColor = System.Drawing.Color.FromArgb(CType(CType(219, Byte), Integer), CType(CType(221, Byte), Integer), CType(CType(223, Byte), Integer))
Label14.ForeColor = System.Drawing.SystemColors.ControlDarkDark
Label14.Location = New System.Drawing.Point(16, 19)
Label14.Name = "Label14"
Label14.Size = New System.Drawing.Size(156, 12)
Label14.TabIndex = 0
Label14.Text = "1.제어기의 정격전력[W]:"
'
'Label15
'
Label15.AutoSize = True
Label15.BackColor = System.Drawing.Color.FromArgb(CType(CType(219, Byte), Integer), CType(CType(221, Byte), Integer), CType(CType(223, Byte), Integer))
Label15.ForeColor = System.Drawing.SystemColors.ControlDarkDark
Label15.Location = New System.Drawing.Point(16, 94)
Label15.Name = "Label15"
Label15.Size = New System.Drawing.Size(99, 12)
Label15.TabIndex = 6
Label15.Text = "4.팬/송풍기 수:"
'
'Label17
'
Label17.AutoSize = True
Label17.BackColor = System.Drawing.Color.FromArgb(CType(CType(219, Byte), Integer), CType(CType(221, Byte), Integer), CType(CType(223, Byte), Integer))
Label17.ForeColor = System.Drawing.SystemColors.ControlDarkDark
Label17.Location = New System.Drawing.Point(16, 69)
Label17.Name = "Label17"
Label17.Size = New System.Drawing.Size(130, 12)
Label17.TabIndex = 4
Label17.Text = "3.펌프 정격전력[W]:"
'
'Label18
'
Label18.AutoSize = True
Label18.BackColor = System.Drawing.Color.FromArgb(CType(CType(219, Byte), Integer), CType(CType(221, Byte), Integer), CType(CType(223, Byte), Integer))
Label18.ForeColor = System.Drawing.SystemColors.ControlDarkDark
Label18.Location = New System.Drawing.Point(16, 44)
Label18.Name = "Label18"
Label18.Size = New System.Drawing.Size(163, 12)
Label18.TabIndex = 2
Label18.Text = "2.팬/송풍기 정격전력[W]:"
'
'bs
'
Me.bs.DataMember = "tbl_kongkub"
Me.bs.DataSource = Me.DS
Me.bs.Filter = "code <> '0'"
'
'DS
'
Me.DS.DataSetName = "DS"
Me.DS.SchemaSerializationMode = System.Data.SchemaSerializationMode.IncludeSchema
'
'전기난방GroupBox
'
Me.전기난방GroupBox.Controls.Add(Me.Label16)
Me.전기난방GroupBox.Controls.Add(Label1)
Me.전기난방GroupBox.Controls.Add(Me.전기난방제어ComboBox)
Me.전기난방GroupBox.Controls.Add(Me.전기난방PictureBox)
Me.전기난방GroupBox.Location = New System.Drawing.Point(301, 124)
Me.전기난방GroupBox.Name = "전기난방GroupBox"
Me.전기난방GroupBox.Size = New System.Drawing.Size(278, 66)
Me.전기난방GroupBox.TabIndex = 3
Me.전기난방GroupBox.TabStop = False
'
'Label16
'
Me.Label16.AutoSize = True
Me.Label16.BackColor = System.Drawing.Color.FromArgb(CType(CType(243, Byte), Integer), CType(CType(244, Byte), Integer), CType(CType(246, Byte), Integer))
Me.Label16.Location = New System.Drawing.Point(6, 16)
Me.Label16.Name = "Label16"
Me.Label16.Size = New System.Drawing.Size(129, 12)
Me.Label16.TabIndex = 10
Me.Label16.Text = "공급시스템=전기난방"
'
'전기난방제어ComboBox
'
Me.전기난방제어ComboBox.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
Me.전기난방제어ComboBox.FormattingEnabled = True
Me.전기난방제어ComboBox.Location = New System.Drawing.Point(142, 33)
Me.전기난방제어ComboBox.Name = "전기난방제어ComboBox"
Me.전기난방제어ComboBox.NectControl = Nothing
Me.전기난방제어ComboBox.Size = New System.Drawing.Size(110, 20)
Me.전기난방제어ComboBox.TabIndex = 1
'
'전기난방PictureBox
'
Me.전기난방PictureBox.BackColor = System.Drawing.Color.FromArgb(CType(CType(243, Byte), Integer), CType(CType(244, Byte), Integer), CType(CType(246, Byte), Integer))
Me.전기난방PictureBox.Location = New System.Drawing.Point(1, 9)
Me.전기난방PictureBox.Name = "전기난방PictureBox"
Me.전기난방PictureBox.Size = New System.Drawing.Size(275, 54)
Me.전기난방PictureBox.TabIndex = 2
Me.전기난방PictureBox.TabStop = False
'
'바닥난방열GroupBox
'
Me.바닥난방열GroupBox.Controls.Add(Me.Label20)
Me.바닥난방열GroupBox.Controls.Add(Label2)
Me.바닥난방열GroupBox.Controls.Add(Label3)
Me.바닥난방열GroupBox.Controls.Add(Me.바닥난방열제어ComboBox)
Me.바닥난방열GroupBox.Controls.Add(Me.바닥난방열건축부위ComboBox)
Me.바닥난방열GroupBox.Controls.Add(Me.바닥난방열PictureBox)
Me.바닥난방열GroupBox.Location = New System.Drawing.Point(28, 191)
Me.바닥난방열GroupBox.Name = "바닥난방열GroupBox"
Me.바닥난방열GroupBox.Size = New System.Drawing.Size(262, 101)
Me.바닥난방열GroupBox.TabIndex = 4
Me.바닥난방열GroupBox.TabStop = False
'
'Label20
'
Me.Label20.AutoSize = True
Me.Label20.BackColor = System.Drawing.Color.FromArgb(CType(CType(219, Byte), Integer), CType(CType(221, Byte), Integer), CType(CType(223, Byte), Integer))
Me.Label20.Location = New System.Drawing.Point(6, 17)
Me.Label20.Name = "Label20"
Me.Label20.Size = New System.Drawing.Size(154, 12)
Me.Label20.TabIndex = 10
Me.Label20.Text = "공급시스템=바닥난방(열)"
'
'바닥난방열제어ComboBox
'
Me.바닥난방열제어ComboBox.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
Me.바닥난방열제어ComboBox.FormattingEnabled = True
Me.바닥난방열제어ComboBox.Location = New System.Drawing.Point(132, 37)
Me.바닥난방열제어ComboBox.Name = "바닥난방열제어ComboBox"
Me.바닥난방열제어ComboBox.NectControl = Nothing
Me.바닥난방열제어ComboBox.Size = New System.Drawing.Size(117, 20)
Me.바닥난방열제어ComboBox.TabIndex = 1
'
'바닥난방열건축부위ComboBox
'
Me.바닥난방열건축부위ComboBox.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
Me.바닥난방열건축부위ComboBox.FormattingEnabled = True
Me.바닥난방열건축부위ComboBox.Location = New System.Drawing.Point(132, 66)
Me.바닥난방열건축부위ComboBox.Name = "바닥난방열건축부위ComboBox"
Me.바닥난방열건축부위ComboBox.NectControl = Nothing
Me.바닥난방열건축부위ComboBox.Size = New System.Drawing.Size(117, 20)
Me.바닥난방열건축부위ComboBox.TabIndex = 3
'
'바닥난방열PictureBox
'
Me.바닥난방열PictureBox.BackColor = System.Drawing.Color.FromArgb(CType(CType(219, Byte), Integer), CType(CType(221, Byte), Integer), CType(CType(223, Byte), Integer))
Me.바닥난방열PictureBox.Location = New System.Drawing.Point(3, 9)
Me.바닥난방열PictureBox.Name = "바닥난방열PictureBox"
Me.바닥난방열PictureBox.Size = New System.Drawing.Size(256, 88)
Me.바닥난방열PictureBox.TabIndex = 11
Me.바닥난방열PictureBox.TabStop = False
'
'바닥난방전기GroupBox
'
Me.바닥난방전기GroupBox.Controls.Add(Me.Label19)
Me.바닥난방전기GroupBox.Controls.Add(Label4)
Me.바닥난방전기GroupBox.Controls.Add(Label5)
Me.바닥난방전기GroupBox.Controls.Add(Me.바닥난방전기제어ComboBox)
Me.바닥난방전기GroupBox.Controls.Add(Me.바닥난방전기건축부위ComboBox)
Me.바닥난방전기GroupBox.Controls.Add(Me.바닥난방전기PictureBox)
Me.바닥난방전기GroupBox.Location = New System.Drawing.Point(302, 191)
Me.바닥난방전기GroupBox.Name = "바닥난방전기GroupBox"
Me.바닥난방전기GroupBox.Size = New System.Drawing.Size(277, 101)
Me.바닥난방전기GroupBox.TabIndex = 5
Me.바닥난방전기GroupBox.TabStop = False
'
'Label19
'
Me.Label19.AutoSize = True
Me.Label19.BackColor = System.Drawing.Color.FromArgb(CType(CType(219, Byte), Integer), CType(CType(221, Byte), Integer), CType(CType(223, Byte), Integer))
Me.Label19.Location = New System.Drawing.Point(6, 17)
Me.Label19.Name = "Label19"
Me.Label19.Size = New System.Drawing.Size(167, 12)
Me.Label19.TabIndex = 10
Me.Label19.Text = "공급시스템=바닥난방(전기)"
'
'바닥난방전기제어ComboBox
'
Me.바닥난방전기제어ComboBox.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
Me.바닥난방전기제어ComboBox.FormattingEnabled = True
Me.바닥난방전기제어ComboBox.Location = New System.Drawing.Point(141, 39)
Me.바닥난방전기제어ComboBox.Name = "바닥난방전기제어ComboBox"
Me.바닥난방전기제어ComboBox.NectControl = Nothing
Me.바닥난방전기제어ComboBox.Size = New System.Drawing.Size(110, 20)
Me.바닥난방전기제어ComboBox.TabIndex = 1
'
'바닥난방전기건축부위ComboBox
'
Me.바닥난방전기건축부위ComboBox.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
Me.바닥난방전기건축부위ComboBox.FormattingEnabled = True
Me.바닥난방전기건축부위ComboBox.Location = New System.Drawing.Point(141, 66)
Me.바닥난방전기건축부위ComboBox.Name = "바닥난방전기건축부위ComboBox"
Me.바닥난방전기건축부위ComboBox.NectControl = Nothing
Me.바닥난방전기건축부위ComboBox.Size = New System.Drawing.Size(110, 20)
Me.바닥난방전기건축부위ComboBox.TabIndex = 3
'
'바닥난방전기PictureBox
'
Me.바닥난방전기PictureBox.BackColor = System.Drawing.Color.FromArgb(CType(CType(219, Byte), Integer), CType(CType(221, Byte), Integer), CType(CType(223, Byte), Integer))
Me.바닥난방전기PictureBox.Location = New System.Drawing.Point(2, 9)
Me.바닥난방전기PictureBox.Name = "바닥난방전기PictureBox"
Me.바닥난방전기PictureBox.Size = New System.Drawing.Size(273, 88)
Me.바닥난방전기PictureBox.TabIndex = 11
Me.바닥난방전기PictureBox.TabStop = False
'
'GroupBox28
'
Me.GroupBox28.Controls.Add(Label6)
Me.GroupBox28.Controls.Add(Me.열공급시스템ComboBox)
Me.GroupBox28.Controls.Add(Label7)
Me.GroupBox28.Controls.Add(Me.열공급생산기기ComboBox)
Me.GroupBox28.Controls.Add(Me.PictureBox1)
Me.GroupBox28.Location = New System.Drawing.Point(27, 75)
Me.GroupBox28.Name = "GroupBox28"
Me.GroupBox28.Size = New System.Drawing.Size(552, 47)
Me.GroupBox28.TabIndex = 1
Me.GroupBox28.TabStop = False
'
'열공급시스템ComboBox
'
Me.열공급시스템ComboBox.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
Me.열공급시스템ComboBox.FormattingEnabled = True
Me.열공급시스템ComboBox.Location = New System.Drawing.Point(113, 17)
Me.열공급시스템ComboBox.Name = "열공급시스템ComboBox"
Me.열공급시스템ComboBox.NectControl = Nothing
Me.열공급시스템ComboBox.Size = New System.Drawing.Size(137, 20)
Me.열공급시스템ComboBox.TabIndex = 1
'
'열공급생산기기ComboBox
'
Me.열공급생산기기ComboBox.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
Me.열공급생산기기ComboBox.Font = New System.Drawing.Font("돋움", 8.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(129, Byte))
Me.열공급생산기기ComboBox.FormattingEnabled = True
Me.열공급생산기기ComboBox.Location = New System.Drawing.Point(389, 17)
Me.열공급생산기기ComboBox.Name = "열공급생산기기ComboBox"
Me.열공급생산기기ComboBox.NectControl = Nothing
Me.열공급생산기기ComboBox.Size = New System.Drawing.Size(157, 19)
Me.열공급생산기기ComboBox.TabIndex = 3
'
'PictureBox1
'
Me.PictureBox1.BackColor = System.Drawing.Color.FromArgb(CType(CType(219, Byte), Integer), CType(CType(221, Byte), Integer), CType(CType(223, Byte), Integer))
Me.PictureBox1.Location = New System.Drawing.Point(1, 9)
Me.PictureBox1.Name = "PictureBox1"
Me.PictureBox1.Size = New System.Drawing.Size(549, 35)
Me.PictureBox1.TabIndex = 4
Me.PictureBox1.TabStop = False
'
'노출형방열기GroupBox
'
Me.노출형방열기GroupBox.Controls.Add(Me.Label10)
Me.노출형방열기GroupBox.Controls.Add(Label8)
Me.노출형방열기GroupBox.Controls.Add(Me.노출형제어ComboBox)
Me.노출형방열기GroupBox.Controls.Add(Me.노출형방열기PictureBox)
Me.노출형방열기GroupBox.Location = New System.Drawing.Point(27, 124)
Me.노출형방열기GroupBox.Name = "노출형방열기GroupBox"
Me.노출형방열기GroupBox.Size = New System.Drawing.Size(263, 66)
Me.노출형방열기GroupBox.TabIndex = 2
Me.노출형방열기GroupBox.TabStop = False
'
'Label10
'
Me.Label10.AutoSize = True
Me.Label10.BackColor = System.Drawing.Color.FromArgb(CType(CType(243, Byte), Integer), CType(CType(244, Byte), Integer), CType(CType(246, Byte), Integer))
Me.Label10.Location = New System.Drawing.Point(7, 18)
Me.Label10.Name = "Label10"
Me.Label10.Size = New System.Drawing.Size(180, 12)
Me.Label10.TabIndex = 10
Me.Label10.Text = "공급시스템=노출형방열기(열)"
'
'노출형제어ComboBox
'
Me.노출형제어ComboBox.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
Me.노출형제어ComboBox.FormattingEnabled = True
Me.노출형제어ComboBox.Location = New System.Drawing.Point(133, 37)
Me.노출형제어ComboBox.Name = "노출형제어ComboBox"
Me.노출형제어ComboBox.NectControl = Nothing
Me.노출형제어ComboBox.Size = New System.Drawing.Size(117, 20)
Me.노출형제어ComboBox.TabIndex = 1
'
'노출형방열기PictureBox
'
Me.노출형방열기PictureBox.BackColor = System.Drawing.Color.FromArgb(CType(CType(243, Byte), Integer), CType(CType(244, Byte), Integer), CType(CType(246, Byte), Integer))
Me.노출형방열기PictureBox.Location = New System.Drawing.Point(1, 9)
Me.노출형방열기PictureBox.Name = "노출형방열기PictureBox"
Me.노출형방열기PictureBox.Size = New System.Drawing.Size(259, 54)
Me.노출형방열기PictureBox.TabIndex = 2
Me.노출형방열기PictureBox.TabStop = False
'
'GroupBox3
'
Me.GroupBox3.Controls.Add(Me.추가펌프수NTb)
Me.GroupBox3.Controls.Add(Label13)
Me.GroupBox3.Controls.Add(Label14)
Me.GroupBox3.Controls.Add(Label15)
Me.GroupBox3.Controls.Add(Label17)
Me.GroupBox3.Controls.Add(Me.팬송풍기수NTb)
Me.GroupBox3.Controls.Add(Label18)
Me.GroupBox3.Controls.Add(Me.펌프정격전력NTb)
Me.GroupBox3.Controls.Add(Me.제어기의정격전력NTb)
Me.GroupBox3.Controls.Add(Me.팬송풍기정격전력NTb)
Me.GroupBox3.Controls.Add(Me.PictureBox8)
Me.GroupBox3.Location = New System.Drawing.Point(26, 361)
Me.GroupBox3.Name = "GroupBox3"
Me.GroupBox3.Size = New System.Drawing.Size(553, 147)
Me.GroupBox3.TabIndex = 1
Me.GroupBox3.TabStop = False
'
'추가펌프수NTb
'
Me.추가펌프수NTb.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bs, "추가펌프수", True))
Me.추가펌프수NTb.Location = New System.Drawing.Point(193, 114)
Me.추가펌프수NTb.Name = "추가펌프수NTb"
Me.추가펌프수NTb.NectControl = Nothing
Me.추가펌프수NTb.Size = New System.Drawing.Size(70, 21)
Me.추가펌프수NTb.TabIndex = 9
Me.추가펌프수NTb.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
Me.추가펌프수NTb.TextFormat = Eco2Ar.MyTb.ETFormat.Normal
'
'팬송풍기수NTb
'
Me.팬송풍기수NTb.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bs, "팬송풍기수", True))
Me.팬송풍기수NTb.Location = New System.Drawing.Point(193, 90)
Me.팬송풍기수NTb.Name = "팬송풍기수NTb"
Me.팬송풍기수NTb.NectControl = Nothing
Me.팬송풍기수NTb.Size = New System.Drawing.Size(70, 21)
Me.팬송풍기수NTb.TabIndex = 7
Me.팬송풍기수NTb.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
Me.팬송풍기수NTb.TextFormat = Eco2Ar.MyTb.ETFormat.Normal
'
'펌프정격전력NTb
'
Me.펌프정격전력NTb.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bs, "펌프정격전력", True))
Me.펌프정격전력NTb.Location = New System.Drawing.Point(193, 66)
Me.펌프정격전력NTb.Name = "펌프정격전력NTb"
Me.펌프정격전력NTb.NectControl = Nothing
Me.펌프정격전력NTb.Size = New System.Drawing.Size(70, 21)
Me.펌프정격전력NTb.TabIndex = 5
Me.펌프정격전력NTb.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
Me.펌프정격전력NTb.TextFormat = Eco2Ar.MyTb.ETFormat.Normal
'
'제어기의정격전력NTb
'
Me.제어기의정격전력NTb.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bs, "제어기의정격전력", True))
Me.제어기의정격전력NTb.Location = New System.Drawing.Point(193, 18)
Me.제어기의정격전력NTb.Name = "제어기의정격전력NTb"
Me.제어기의정격전력NTb.NectControl = Nothing
Me.제어기의정격전력NTb.Size = New System.Drawing.Size(70, 21)
Me.제어기의정격전력NTb.TabIndex = 1
Me.제어기의정격전력NTb.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
Me.제어기의정격전력NTb.TextFormat = Eco2Ar.MyTb.ETFormat.Normal
'
'팬송풍기정격전력NTb
'
Me.팬송풍기정격전력NTb.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bs, "팬송풍기정격전력", True))
Me.팬송풍기정격전력NTb.Location = New System.Drawing.Point(193, 42)
Me.팬송풍기정격전력NTb.Name = "팬송풍기정격전력NTb"
Me.팬송풍기정격전력NTb.NectControl = Nothing
Me.팬송풍기정격전력NTb.Size = New System.Drawing.Size(70, 21)
Me.팬송풍기정격전력NTb.TabIndex = 3
Me.팬송풍기정격전력NTb.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
Me.팬송풍기정격전력NTb.TextFormat = Eco2Ar.MyTb.ETFormat.Normal
'
'PictureBox8
'
Me.PictureBox8.BackColor = System.Drawing.Color.FromArgb(CType(CType(219, Byte), Integer), CType(CType(221, Byte), Integer), CType(CType(223, Byte), Integer))
Me.PictureBox8.Location = New System.Drawing.Point(2, 9)
Me.PictureBox8.Name = "PictureBox8"
Me.PictureBox8.Size = New System.Drawing.Size(549, 135)
Me.PictureBox8.TabIndex = 4
Me.PictureBox8.TabStop = False
'
'Label201
'
Me.Label201.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.Label201.AutoSize = True
Me.Label201.ForeColor = System.Drawing.Color.DarkCyan
Me.Label201.Location = New System.Drawing.Point(383, 10)
Me.Label201.Name = "Label201"
Me.Label201.Size = New System.Drawing.Size(111, 12)
Me.Label201.TabIndex = 1
Me.Label201.Text = "적용된 입력존 수:"
Me.Label201.TextAlign = System.Drawing.ContentAlignment.MiddleRight
'
'tb_zone_cnt
'
Me.tb_zone_cnt.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.tb_zone_cnt.BackColor = System.Drawing.SystemColors.GrayText
Me.tb_zone_cnt.ForeColor = System.Drawing.Color.White
Me.tb_zone_cnt.Location = New System.Drawing.Point(496, 5)
Me.tb_zone_cnt.Name = "tb_zone_cnt"
Me.tb_zone_cnt.ReadOnly = True
Me.tb_zone_cnt.Size = New System.Drawing.Size(87, 21)
Me.tb_zone_cnt.TabIndex = 2
Me.tb_zone_cnt.TabStop = False
Me.tb_zone_cnt.Text = "0"
Me.tb_zone_cnt.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
'
'SplitContainer1
'
Me.SplitContainer1.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.SplitContainer1.Dock = System.Windows.Forms.DockStyle.Fill
Me.SplitContainer1.FixedPanel = System.Windows.Forms.FixedPanel.Panel1
Me.SplitContainer1.Location = New System.Drawing.Point(0, 0)
Me.SplitContainer1.Name = "SplitContainer1"
'
'SplitContainer1.Panel1
'
Me.SplitContainer1.Panel1.Controls.Add(Me.dv)
Me.SplitContainer1.Panel1.Controls.Add(Me.bn)
'
'SplitContainer1.Panel2
'
Me.SplitContainer1.Panel2.BackColor = System.Drawing.Color.White
Me.SplitContainer1.Panel2.Controls.Add(Me.Label9)
Me.SplitContainer1.Panel2.Controls.Add(Me.PictureBox2)
Me.SplitContainer1.Panel2.Controls.Add(Me.Label11)
Me.SplitContainer1.Panel2.Controls.Add(Me.PictureBox4)
Me.SplitContainer1.Panel2.Controls.Add(Me.전기난방GroupBox)
Me.SplitContainer1.Panel2.Controls.Add(Me.GroupBox3)
Me.SplitContainer1.Panel2.Controls.Add(Me.바닥난방열GroupBox)
Me.SplitContainer1.Panel2.Controls.Add(Me.바닥난방전기GroupBox)
Me.SplitContainer1.Panel2.Controls.Add(Me.GroupBox28)
Me.SplitContainer1.Panel2.Controls.Add(Me.Panel1)
Me.SplitContainer1.Panel2.Controls.Add(Me.노출형방열기GroupBox)
Me.SplitContainer1.Size = New System.Drawing.Size(818, 574)
Me.SplitContainer1.SplitterDistance = 224
Me.SplitContainer1.TabIndex = 127
'
'dv
'
Me.dv.A_DelCurrentCell = True
Me.dv.A_EnterToTab = False
Me.dv.AllowUserToAddRows = False
Me.dv.AllowUserToResizeRows = False
Me.dv.AutoGenerateColumns = False
Me.dv.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.AllCells
Me.dv.BackgroundColor = System.Drawing.Color.FromArgb(CType(CType(245, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(246, Byte), Integer))
Me.dv.BorderStyle = System.Windows.Forms.BorderStyle.None
Me.dv.ColumnHeadersHeight = 30
Me.dv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.DisableResizing
Me.dv.ColumnHeadersVisible = False
Me.dv.Columns.AddRange(New System.Windows.Forms.DataGridViewColumn() {Me.DataGridViewTextBoxColumn1})
Me.dv.DataSource = Me.bs
Me.dv.Dock = System.Windows.Forms.DockStyle.Fill
Me.dv.Location = New System.Drawing.Point(0, 0)
Me.dv.Margin = New System.Windows.Forms.Padding(3, 5, 3, 5)
Me.dv.MultiSelect = False
Me.dv.Name = "dv"
Me.dv.RowHeadersVisible = False
Me.dv.RowTemplate.Height = 23
Me.dv.ScrollBars = System.Windows.Forms.ScrollBars.Vertical
Me.dv.Size = New System.Drawing.Size(222, 532)
Me.dv.TabIndex = 0
'
'bn
'
Me.bn.AddNewItem = Nothing
Me.bn.AutoSize = False
Me.bn.BindingSource = Me.bs
Me.bn.CountItem = Me.lbl_count
Me.bn.DeleteItem = Nothing
Me.bn.Dock = System.Windows.Forms.DockStyle.Bottom
Me.bn.Font = New System.Drawing.Font("돋움", 8.999999!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(129, Byte))
Me.bn.ImageScalingSize = New System.Drawing.Size(20, 20)
Me.bn.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.bt_add, Me.bt_Del, Me.bt_cancel, Me.ToolStripSeparator1, Me.lbl_pos, Me.lbl_count, Me.ToolStripSeparator2, Me.lb_code})
Me.bn.Location = New System.Drawing.Point(0, 532)
Me.bn.MoveFirstItem = Nothing
Me.bn.MoveLastItem = Nothing
Me.bn.MoveNextItem = Nothing
Me.bn.MovePreviousItem = Nothing
Me.bn.Name = "bn"
Me.bn.PositionItem = Me.lbl_pos
Me.bn.Size = New System.Drawing.Size(222, 40)
Me.bn.TabIndex = 1
Me.bn.Text = "BindingNavigator1"
'
'lbl_count
'
Me.lbl_count.Name = "lbl_count"
Me.lbl_count.Size = New System.Drawing.Size(33, 37)
Me.lbl_count.Text = "/{0}"
'
'bt_add
'
Me.bt_add.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
Me.bt_add.Image = Global.Eco2Ar.My.Resources.Resources.new_32
Me.bt_add.Name = "bt_add"
Me.bt_add.RightToLeftAutoMirrorImage = True
Me.bt_add.Size = New System.Drawing.Size(24, 37)
Me.bt_add.Text = "신규추가(&A)"
Me.bt_add.ToolTipText = "새로운 프로필을 추가합니다"
'
'bt_Del
'
Me.bt_Del.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
Me.bt_Del.Image = Global.Eco2Ar.My.Resources.Resources.remov_32
Me.bt_Del.Name = "bt_Del"
Me.bt_Del.RightToLeftAutoMirrorImage = True
Me.bt_Del.Size = New System.Drawing.Size(24, 37)
Me.bt_Del.Text = "선택삭제(&D)"
Me.bt_Del.ToolTipText = "선택된 프로필을 삭제합니다"
'
'bt_cancel
'
Me.bt_cancel.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
Me.bt_cancel.Image = Global.Eco2Ar.My.Resources.Resources.cancl_32
Me.bt_cancel.ImageTransparentColor = System.Drawing.Color.Magenta
Me.bt_cancel.Name = "bt_cancel"
Me.bt_cancel.Size = New System.Drawing.Size(24, 37)
Me.bt_cancel.Text = "변경취소(&C)"
Me.bt_cancel.ToolTipText = "변경된 내용을 되돌립니다"
Me.bt_cancel.Visible = False
'
'ToolStripSeparator1
'
Me.ToolStripSeparator1.Name = "ToolStripSeparator1"
Me.ToolStripSeparator1.Size = New System.Drawing.Size(6, 40)
'
'lbl_pos
'
Me.lbl_pos.Name = "lbl_pos"
Me.lbl_pos.Size = New System.Drawing.Size(12, 37)
Me.lbl_pos.Text = "0"
'
'ToolStripSeparator2
'
Me.ToolStripSeparator2.Name = "ToolStripSeparator2"
Me.ToolStripSeparator2.Size = New System.Drawing.Size(6, 40)
'
'lb_code
'
Me.lb_code.Name = "lb_code"
Me.lb_code.Size = New System.Drawing.Size(47, 37)
Me.lb_code.Text = "[0000]"
'
'Label9
'
Me.Label9.AutoSize = True
Me.Label9.BackColor = System.Drawing.Color.FromArgb(CType(CType(116, Byte), Integer), CType(CType(158, Byte), Integer), CType(CType(209, Byte), Integer))
Me.Label9.ForeColor = System.Drawing.Color.White
Me.Label9.Location = New System.Drawing.Point(29, 344)
Me.Label9.Name = "Label9"
Me.Label9.Size = New System.Drawing.Size(134, 12)
Me.Label9.TabIndex = 162
Me.Label9.Text = "열공급-시스템 특성치"
'
'PictureBox2
'
Me.PictureBox2.BackgroundImage = CType(resources.GetObject("PictureBox2.BackgroundImage"), System.Drawing.Image)
Me.PictureBox2.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch
Me.PictureBox2.Location = New System.Drawing.Point(26, 333)
Me.PictureBox2.Name = "PictureBox2"
Me.PictureBox2.Size = New System.Drawing.Size(162, 30)
Me.PictureBox2.TabIndex = 161
Me.PictureBox2.TabStop = False
'
'Label11
'
Me.Label11.AutoSize = True
Me.Label11.BackColor = System.Drawing.Color.FromArgb(CType(CType(116, Byte), Integer), CType(CType(158, Byte), Integer), CType(CType(209, Byte), Integer))
Me.Label11.ForeColor = System.Drawing.Color.White
Me.Label11.Location = New System.Drawing.Point(39, 58)
Me.Label11.Name = "Label11"
Me.Label11.Size = New System.Drawing.Size(101, 12)
Me.Label11.TabIndex = 162
Me.Label11.Text = "공급과 제어난방"
'
'PictureBox4
'
Me.PictureBox4.BackgroundImage = CType(resources.GetObject("PictureBox4.BackgroundImage"), System.Drawing.Image)
Me.PictureBox4.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch
Me.PictureBox4.Location = New System.Drawing.Point(26, 47)
Me.PictureBox4.Name = "PictureBox4"
Me.PictureBox4.Size = New System.Drawing.Size(131, 30)
Me.PictureBox4.TabIndex = 161
Me.PictureBox4.TabStop = False
'
'Panel1
'
Me.Panel1.BackColor = System.Drawing.Color.FromArgb(CType(CType(243, Byte), Integer), CType(CType(244, Byte), Integer), CType(CType(246, Byte), Integer))
Me.Panel1.Controls.Add(Me.tb_zone_cnt)
Me.Panel1.Controls.Add(Me.Label201)
Me.Panel1.Dock = System.Windows.Forms.DockStyle.Top
Me.Panel1.Location = New System.Drawing.Point(0, 0)
Me.Panel1.Name = "Panel1"
Me.Panel1.Size = New System.Drawing.Size(588, 30)
Me.Panel1.TabIndex = 5
'
'DataGridViewTextBoxColumn1
'
Me.DataGridViewTextBoxColumn1.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.Fill
Me.DataGridViewTextBoxColumn1.DataPropertyName = "설명"
Me.DataGridViewTextBoxColumn1.HeaderText = "설명"
Me.DataGridViewTextBoxColumn1.Name = "DataGridViewTextBoxColumn1"
Me.DataGridViewTextBoxColumn1.SortMode = System.Windows.Forms.DataGridViewColumnSortMode.Programmatic
'
'Frm_kongkub
'
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.None
Me.ClientSize = New System.Drawing.Size(818, 574)
Me.ControlBox = False
Me.Controls.Add(Me.SplitContainer1)
Me.Font = New System.Drawing.Font("돋움", 8.999999!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(129, Byte))
Me.KeyPreview = True
Me.Name = "Frm_kongkub"
Me.ShowInTaskbar = False
Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
Me.Text = "난방공급시스템"
CType(Me.bs, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.DS, System.ComponentModel.ISupportInitialize).EndInit()
Me.전기난방GroupBox.ResumeLayout(False)
Me.전기난방GroupBox.PerformLayout()
CType(Me.전기난방PictureBox, System.ComponentModel.ISupportInitialize).EndInit()
Me.바닥난방열GroupBox.ResumeLayout(False)
Me.바닥난방열GroupBox.PerformLayout()
CType(Me.바닥난방열PictureBox, System.ComponentModel.ISupportInitialize).EndInit()
Me.바닥난방전기GroupBox.ResumeLayout(False)
Me.바닥난방전기GroupBox.PerformLayout()
CType(Me.바닥난방전기PictureBox, System.ComponentModel.ISupportInitialize).EndInit()
Me.GroupBox28.ResumeLayout(False)
Me.GroupBox28.PerformLayout()
CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).EndInit()
Me.노출형방열기GroupBox.ResumeLayout(False)
Me.노출형방열기GroupBox.PerformLayout()
CType(Me.노출형방열기PictureBox, System.ComponentModel.ISupportInitialize).EndInit()
Me.GroupBox3.ResumeLayout(False)
Me.GroupBox3.PerformLayout()
CType(Me.PictureBox8, System.ComponentModel.ISupportInitialize).EndInit()
Me.SplitContainer1.Panel1.ResumeLayout(False)
Me.SplitContainer1.Panel2.ResumeLayout(False)
Me.SplitContainer1.Panel2.PerformLayout()
CType(Me.SplitContainer1, System.ComponentModel.ISupportInitialize).EndInit()
Me.SplitContainer1.ResumeLayout(False)
CType(Me.dv, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.bn, System.ComponentModel.ISupportInitialize).EndInit()
Me.bn.ResumeLayout(False)
Me.bn.PerformLayout()
CType(Me.PictureBox2, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.PictureBox4, System.ComponentModel.ISupportInitialize).EndInit()
Me.Panel1.ResumeLayout(False)
Me.Panel1.PerformLayout()
Me.ResumeLayout(False)
End Sub
Friend WithEvents 추가펌프수NTb As MyTb
Friend WithEvents 팬송풍기수NTb As MyTb
Friend WithEvents 펌프정격전력NTb As MyTb
Friend WithEvents 팬송풍기정격전력NTb As MyTb
Friend WithEvents 제어기의정격전력NTb As MyTb
Public WithEvents DS As Eco2Ar.DS
Friend WithEvents bs As System.Windows.Forms.BindingSource
Friend WithEvents 전기난방제어ComboBox As Eco2Ar.MyCmb
Friend WithEvents 바닥난방전기건축부위ComboBox As Eco2Ar.MyCmb
Friend WithEvents 바닥난방전기제어ComboBox As Eco2Ar.MyCmb
Friend WithEvents 바닥난방열건축부위ComboBox As Eco2Ar.MyCmb
Friend WithEvents 바닥난방열제어ComboBox As Eco2Ar.MyCmb
Friend WithEvents 노출형제어ComboBox As Eco2Ar.MyCmb
Friend WithEvents 열공급생산기기ComboBox As Eco2Ar.MyCmb
Friend WithEvents 열공급시스템ComboBox As Eco2Ar.MyCmb
Friend WithEvents 전기난방GroupBox As System.Windows.Forms.GroupBox
Friend WithEvents 바닥난방열GroupBox As System.Windows.Forms.GroupBox
Friend WithEvents 바닥난방전기GroupBox As System.Windows.Forms.GroupBox
Friend WithEvents GroupBox28 As System.Windows.Forms.GroupBox
Friend WithEvents 노출형방열기GroupBox As System.Windows.Forms.GroupBox
Friend WithEvents GroupBox3 As System.Windows.Forms.GroupBox
Friend WithEvents Label201 As System.Windows.Forms.Label
Friend WithEvents tb_zone_cnt As System.Windows.Forms.TextBox
Friend WithEvents SplitContainer1 As System.Windows.Forms.SplitContainer
Friend WithEvents dv As CEnergy.arindv
Friend WithEvents bn As System.Windows.Forms.BindingNavigator
Friend WithEvents bt_add As System.Windows.Forms.ToolStripButton
Friend WithEvents bt_Del As System.Windows.Forms.ToolStripButton
Friend WithEvents bt_cancel As System.Windows.Forms.ToolStripButton
Friend WithEvents ToolStripSeparator1 As System.Windows.Forms.ToolStripSeparator
Friend WithEvents Panel1 As System.Windows.Forms.Panel
Friend WithEvents lbl_count As System.Windows.Forms.ToolStripLabel
Friend WithEvents lbl_pos As System.Windows.Forms.ToolStripLabel
Friend WithEvents PictureBox1 As System.Windows.Forms.PictureBox
Friend WithEvents Label9 As System.Windows.Forms.Label
Friend WithEvents PictureBox2 As System.Windows.Forms.PictureBox
Friend WithEvents Label11 As System.Windows.Forms.Label
Friend WithEvents PictureBox4 As System.Windows.Forms.PictureBox
Friend WithEvents 노출형방열기PictureBox As System.Windows.Forms.PictureBox
Friend WithEvents Label16 As System.Windows.Forms.Label
Friend WithEvents 전기난방PictureBox As System.Windows.Forms.PictureBox
Friend WithEvents Label10 As System.Windows.Forms.Label
Friend WithEvents Label20 As System.Windows.Forms.Label
Friend WithEvents 바닥난방열PictureBox As System.Windows.Forms.PictureBox
Friend WithEvents Label19 As System.Windows.Forms.Label
Friend WithEvents 바닥난방전기PictureBox As System.Windows.Forms.PictureBox
Friend WithEvents PictureBox8 As System.Windows.Forms.PictureBox
Friend WithEvents ToolStripSeparator2 As System.Windows.Forms.ToolStripSeparator
Friend WithEvents lb_code As System.Windows.Forms.ToolStripLabel
Friend WithEvents DataGridViewTextBoxColumn1 As System.Windows.Forms.DataGridViewTextBoxColumn
End Class

360
ArinWarev1/Forms_Input/Frm_kongkub.resx Normal file
View File

@@ -0,0 +1,360 @@
<?xml version="1.0" encoding="utf-8"?>
<root>
<!--
Microsoft ResX Schema
Version 2.0
The primary goals of this format is to allow a simple XML format
that is mostly human readable. The generation and parsing of the
various data types are done through the TypeConverter classes
associated with the data types.
Example:
... ado.net/XML headers & schema ...
<resheader name="resmimetype">text/microsoft-resx</resheader>
<resheader name="version">2.0</resheader>
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
<data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
<value>[base64 mime encoded serialized .NET Framework object]</value>
</data>
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
<comment>This is a comment</comment>
</data>
There are any number of "resheader" rows that contain simple
name/value pairs.
Each data row contains a name, and value. The row also contains a
type or mimetype. Type corresponds to a .NET class that support
text/value conversion through the TypeConverter architecture.
Classes that don't support this are serialized and stored with the
mimetype set.
The mimetype is used for serialized objects, and tells the
ResXResourceReader how to depersist the object. This is currently not
extensible. For a given mimetype the value must be set accordingly:
Note - application/x-microsoft.net.object.binary.base64 is the format
that the ResXResourceWriter will generate, however the reader can
read any of the formats listed below.
mimetype: application/x-microsoft.net.object.binary.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.soap.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.bytearray.base64
value : The object must be serialized into a byte array
: using a System.ComponentModel.TypeConverter
: and then encoded with base64 encoding.
-->
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
<xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
<xsd:element name="root" msdata:IsDataSet="true">
<xsd:complexType>
<xsd:choice maxOccurs="unbounded">
<xsd:element name="metadata">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" />
</xsd:sequence>
<xsd:attribute name="name" use="required" type="xsd:string" />
<xsd:attribute name="type" type="xsd:string" />
<xsd:attribute name="mimetype" type="xsd:string" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="assembly">
<xsd:complexType>
<xsd:attribute name="alias" type="xsd:string" />
<xsd:attribute name="name" type="xsd:string" />
</xsd:complexType>
</xsd:element>
<xsd:element name="data">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="resheader">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" />
</xsd:complexType>
</xsd:element>
</xsd:choice>
</xsd:complexType>
</xsd:element>
</xsd:schema>
<resheader name="resmimetype">
<value>text/microsoft-resx</value>
</resheader>
<resheader name="version">
<value>2.0</value>
</resheader>
<resheader name="reader">
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<resheader name="writer">
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<metadata name="Label1.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="Label3.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="Label5.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="Label7.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="Label13.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="Label15.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">
<value>False</value>
</metadata>
<metadata name="Label18.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</metadata>
<metadata name="bs.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>222, 17</value>
</metadata>
<metadata name="DS.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>286, 17</value>
</metadata>
<metadata name="bn.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>353, 17</value>
</metadata>
<assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
<data name="PictureBox2.BackgroundImage" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
/9j/4AAQSkZJRgABAgEASABIAAD/7gAOQWRvYmUAZAAAAAAB/+ED5kV4aWYAAE1NACoAAAAIAAcBEgAD
AAAAAQABAAABGgAFAAAAAQAAAGIBGwAFAAAAAQAAAGoBKAADAAAAAQACAAABMQACAAAAHAAAAHIBMgAC
AAAAFAAAAI6HaQAEAAAAAQAAAKIAAADCAEgAAAABAAAASAAAAAEAAEFkb2JlIFBob3Rvc2hvcCBDUzMg
V2luZG93cwAyMDEwOjA0OjE1IDIwOjMyOjA0AAACoAIABAAAAAEAAAA8oAMABAAAAAEAAAAMAAAAAAAA
AAYBAwADAAAAAQAGAAABGgAFAAAAAQAAARABGwAFAAAAAQAAARgBKAADAAAAAQACAAACAQAEAAAAAQAA
ASACAgAEAAAAAQAAAr4AAAAAAAAASAAAAAEAAABIAAAAAf/Y/+AAEEpGSUYAAQIAAEgASAAA/+0ADEFk
b2JlX0NNAAH/7gAOQWRvYmUAZIAAAAAB/9sAhAAMCAgICQgMCQkMEQsKCxEVDwwMDxUYExMVExMYEQwM
DAwMDBEMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMAQ0LCw0ODRAODhAUDg4OFBQODg4OFBEMDAwM
DBERDAwMDAwMEQwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAz/wAARCAAMADwDASIAAhEBAxEB/90A
BAAE/8QBPwAAAQUBAQEBAQEAAAAAAAAAAwABAgQFBgcICQoLAQABBQEBAQEBAQAAAAAAAAABAAIDBAUG
BwgJCgsQAAEEAQMCBAIFBwYIBQMMMwEAAhEDBCESMQVBUWETInGBMgYUkaGxQiMkFVLBYjM0coLRQwcl
klPw4fFjczUWorKDJkSTVGRFwqN0NhfSVeJl8rOEw9N14/NGJ5SkhbSVxNTk9KW1xdXl9VZmdoaWprbG
1ub2N0dXZ3eHl6e3x9fn9xEAAgIBAgQEAwQFBgcHBgU1AQACEQMhMRIEQVFhcSITBTKBkRShsUIjwVLR
8DMkYuFygpJDUxVjczTxJQYWorKDByY1wtJEk1SjF2RFVTZ0ZeLys4TD03Xj80aUpIW0lcTU5PSltcXV
5fVWZnaGlqa2xtbm9ic3R1dnd4eXp7fH/9oADAMBAAIRAxEAPwDd/amR/pH/AOcf70v2pkf6R/8AnH+9
UUlofq/Bpevxb37UyP8ASP8A84/3pftTI/0j/wDOP96opJfq/BXr8W9+1Mj/AEj/APOP96X7UyP9I/8A
zj/eqKSX6vwV6/F3ujdbuGS2i5xfU8HVxktIG76XyW99vo27p0XGdO2/ba930dZj+q5dX+qfZPL8VAeD
341VVr/eZhx+0bu708n/2f/iDFhJQ0NfUFJPRklMRQABAQAADEhMaW5vAhAAAG1udHJSR0IgWFlaIAfO
AAIACQAGADEAAGFjc3BNU0ZUAAAAAElFQyBzUkdCAAAAAAAAAAAAAAAAAAD21gABAAAAANMtSFAgIAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAEWNwcnQAAAFQAAAAM2Rl
c2MAAAGEAAAAbHd0cHQAAAHwAAAAFGJrcHQAAAIEAAAAFHJYWVoAAAIYAAAAFGdYWVoAAAIsAAAAFGJY
WVoAAAJAAAAAFGRtbmQAAAJUAAAAcGRtZGQAAALEAAAAiHZ1ZWQAAANMAAAAhnZpZXcAAAPUAAAAJGx1
bWkAAAP4AAAAFG1lYXMAAAQMAAAAJHRlY2gAAAQwAAAADHJUUkMAAAQ8AAAIDGdUUkMAAAQ8AAAIDGJU
UkMAAAQ8AAAIDHRleHQAAAAAQ29weXJpZ2h0IChjKSAxOTk4IEhld2xldHQtUGFja2FyZCBDb21wYW55
AABkZXNjAAAAAAAAABJzUkdCIElFQzYxOTY2LTIuMQAAAAAAAAAAAAAAEnNSR0IgSUVDNjE5NjYtMi4x
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABYWVogAAAAAAAA
81EAAQAAAAEWzFhZWiAAAAAAAAAAAAAAAAAAAAAAWFlaIAAAAAAAAG+iAAA49QAAA5BYWVogAAAAAAAA
YpkAALeFAAAY2lhZWiAAAAAAAAAkoAAAD4QAALbPZGVzYwAAAAAAAAAWSUVDIGh0dHA6Ly93d3cuaWVj
LmNoAAAAAAAAAAAAAAAWSUVDIGh0dHA6Ly93d3cuaWVjLmNoAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAGRlc2MAAAAAAAAALklFQyA2MTk2Ni0yLjEgRGVmYXVsdCBSR0Ig
Y29sb3VyIHNwYWNlIC0gc1JHQgAAAAAAAAAAAAAALklFQyA2MTk2Ni0yLjEgRGVmYXVsdCBSR0IgY29s
b3VyIHNwYWNlIC0gc1JHQgAAAAAAAAAAAAAAAAAAAAAAAAAAAABkZXNjAAAAAAAAACxSZWZlcmVuY2Ug
Vmlld2luZyBDb25kaXRpb24gaW4gSUVDNjE5NjYtMi4xAAAAAAAAAAAAAAAsUmVmZXJlbmNlIFZpZXdp
bmcgQ29uZGl0aW9uIGluIElFQzYxOTY2LTIuMQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAdmlldwAA
AAAAE6T+ABRfLgAQzxQAA+3MAAQTCwADXJ4AAAABWFlaIAAAAAAATAlWAFAAAABXH+dtZWFzAAAAAAAA
AAEAAAAAAAAAAAAAAAAAAAAAAAACjwAAAAJzaWcgAAAAAENSVCBjdXJ2AAAAAAAABAAAAAAFAAoADwAU
ABkAHgAjACgALQAyADcAOwBAAEUASgBPAFQAWQBeAGMAaABtAHIAdwB8AIEAhgCLAJAAlQCaAJ8ApACp
AK4AsgC3ALwAwQDGAMsA0ADVANsA4ADlAOsA8AD2APsBAQEHAQ0BEwEZAR8BJQErATIBOAE+AUUBTAFS
AVkBYAFnAW4BdQF8AYMBiwGSAZoBoQGpAbEBuQHBAckB0QHZAeEB6QHyAfoCAwIMAhQCHQImAi8COAJB
AksCVAJdAmcCcQJ6AoQCjgKYAqICrAK2AsECywLVAuAC6wL1AwADCwMWAyEDLQM4A0MDTwNaA2YDcgN+
A4oDlgOiA64DugPHA9MD4APsA/kEBgQTBCAELQQ7BEgEVQRjBHEEfgSMBJoEqAS2BMQE0wThBPAE/gUN
BRwFKwU6BUkFWAVnBXcFhgWWBaYFtQXFBdUF5QX2BgYGFgYnBjcGSAZZBmoGewaMBp0GrwbABtEG4wb1
BwcHGQcrBz0HTwdhB3QHhgeZB6wHvwfSB+UH+AgLCB8IMghGCFoIbgiCCJYIqgi+CNII5wj7CRAJJQk6
CU8JZAl5CY8JpAm6Cc8J5Qn7ChEKJwo9ClQKagqBCpgKrgrFCtwK8wsLCyILOQtRC2kLgAuYC7ALyAvh
C/kMEgwqDEMMXAx1DI4MpwzADNkM8w0NDSYNQA1aDXQNjg2pDcMN3g34DhMOLg5JDmQOfw6bDrYO0g7u
DwkPJQ9BD14Peg+WD7MPzw/sEAkQJhBDEGEQfhCbELkQ1xD1ERMRMRFPEW0RjBGqEckR6BIHEiYSRRJk
EoQSoxLDEuMTAxMjE0MTYxODE6QTxRPlFAYUJxRJFGoUixStFM4U8BUSFTQVVhV4FZsVvRXgFgMWJhZJ
FmwWjxayFtYW+hcdF0EXZReJF64X0hf3GBsYQBhlGIoYrxjVGPoZIBlFGWsZkRm3Gd0aBBoqGlEadxqe
GsUa7BsUGzsbYxuKG7Ib2hwCHCocUhx7HKMczBz1HR4dRx1wHZkdwx3sHhYeQB5qHpQevh7pHxMfPh9p
H5Qfvx/qIBUgQSBsIJggxCDwIRwhSCF1IaEhziH7IiciVSKCIq8i3SMKIzgjZiOUI8Ij8CQfJE0kfCSr
JNolCSU4JWgllyXHJfcmJyZXJocmtyboJxgnSSd6J6sn3CgNKD8ocSiiKNQpBik4KWspnSnQKgIqNSpo
KpsqzysCKzYraSudK9EsBSw5LG4soizXLQwtQS12Last4S4WLkwugi63Lu4vJC9aL5Evxy/+MDUwbDCk
MNsxEjFKMYIxujHyMioyYzKbMtQzDTNGM38zuDPxNCs0ZTSeNNg1EzVNNYc1wjX9Njc2cjauNuk3JDdg
N5w31zgUOFA4jDjIOQU5Qjl/Obw5+To2OnQ6sjrvOy07azuqO+g8JzxlPKQ84z0iPWE9oT3gPiA+YD6g
PuA/IT9hP6I/4kAjQGRApkDnQSlBakGsQe5CMEJyQrVC90M6Q31DwEQDREdEikTORRJFVUWaRd5GIkZn
RqtG8Ec1R3tHwEgFSEtIkUjXSR1JY0mpSfBKN0p9SsRLDEtTS5pL4kwqTHJMuk0CTUpNk03cTiVObk63
TwBPSU+TT91QJ1BxULtRBlFQUZtR5lIxUnxSx1MTU19TqlP2VEJUj1TbVShVdVXCVg9WXFapVvdXRFeS
V+BYL1h9WMtZGllpWbhaB1pWWqZa9VtFW5Vb5Vw1XIZc1l0nXXhdyV4aXmxevV8PX2Ffs2AFYFdgqmD8
YU9homH1YklinGLwY0Njl2PrZEBklGTpZT1lkmXnZj1mkmboZz1nk2fpaD9olmjsaUNpmmnxakhqn2r3
a09rp2v/bFdsr20IbWBtuW4SbmtuxG8eb3hv0XArcIZw4HE6cZVx8HJLcqZzAXNdc7h0FHRwdMx1KHWF
deF2Pnabdvh3VnezeBF4bnjMeSp5iXnnekZ6pXsEe2N7wnwhfIF84X1BfaF+AX5ifsJ/I3+Ef+WAR4Co
gQqBa4HNgjCCkoL0g1eDuoQdhICE44VHhauGDoZyhteHO4efiASIaYjOiTOJmYn+imSKyoswi5aL/Ixj
jMqNMY2Yjf+OZo7OjzaPnpAGkG6Q1pE/kaiSEZJ6kuOTTZO2lCCUipT0lV+VyZY0lp+XCpd1l+CYTJi4
mSSZkJn8mmia1ZtCm6+cHJyJnPedZJ3SnkCerp8dn4uf+qBpoNihR6G2oiailqMGo3aj5qRWpMelOKWp
phqmi6b9p26n4KhSqMSpN6mpqhyqj6sCq3Wr6axcrNCtRK24ri2uoa8Wr4uwALB1sOqxYLHWskuywrM4
s660JbSctRO1irYBtnm28Ldot+C4WbjRuUq5wro7urW7LrunvCG8m70VvY++Cr6Evv+/er/1wHDA7MFn
wePCX8Lbw1jD1MRRxM7FS8XIxkbGw8dBx7/IPci8yTrJuco4yrfLNsu2zDXMtc01zbXONs62zzfPuNA5
0LrRPNG+0j/SwdNE08bUSdTL1U7V0dZV1tjXXNfg2GTY6Nls2fHadtr724DcBdyK3RDdlt4c3qLfKd+v
4DbgveFE4cziU+Lb42Pj6+Rz5PzlhOYN5pbnH+ep6DLovOlG6dDqW+rl63Dr++yG7RHtnO4o7rTvQO/M
8Fjw5fFy8f/yjPMZ86f0NPTC9VD13vZt9vv3ivgZ+Kj5OPnH+lf65/t3/Af8mP0p/br+S/7c/23////b
AEMAAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQICAgICAgICAgICAwMD
AwMDAwMDA//bAEMBAQEBAQEBAQEBAQICAQICAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMD
AwMDAwMDAwMDAwMDAwMDA//AABEIAAwAPAMBEQACEQEDEQH/xAAfAAABBQEBAQEBAQAAAAAAAAAAAQID
BAUGBwgJCgv/xAC1EAACAQMDAgQDBQUEBAAAAX0BAgMABBEFEiExQQYTUWEHInEUMoGRoQgjQrHBFVLR
8CQzYnKCCQoWFxgZGiUmJygpKjQ1Njc4OTpDREVGR0hJSlNUVVZXWFlaY2RlZmdoaWpzdHV2d3h5eoOE
hYaHiImKkpOUlZaXmJmaoqOkpaanqKmqsrO0tba3uLm6wsPExcbHyMnK0tPU1dbX2Nna4eLj5OXm5+jp
6vHy8/T19vf4+fr/xAAfAQADAQEBAQEBAQEBAAAAAAAAAQIDBAUGBwgJCgv/xAC1EQACAQIEBAMEBwUE
BAABAncAAQIDEQQFITEGEkFRB2FxEyIygQgUQpGhscEJIzNS8BVictEKFiQ04SXxFxgZGiYnKCkqNTY3
ODk6Q0RFRkdISUpTVFVWV1hZWmNkZWZnaGlqc3R1dnd4eXqCg4SFhoeIiYqSk5SVlpeYmZqio6Slpqeo
qaqys7S1tre4ubrCw8TFxsfIycrS09TV1tfY2dri4+Tl5ufo6ery8/T19vf4+fr/2gAMAwEAAhEDEQA/
AP1ZH7UPxEAA/wCEw8bnj/ob9f8A/k+v7U/1Nyj/AKF+G/8ABUP/AJE/llcSZlZf7dX/APBk/wDMX/hq
H4if9Df43/8ACv1//wCT6P8AU3Kf+hfhv/BUP/kQ/wBZcy/6Dq//AIMn/mH/AA1D8RP+hv8AG/8A4V+v
/wDyfR/qblP/AEL8N/4Kh/8AIh/rLmX/AEHV/wDwZP8AzD/hqH4if9Df43/8K/X/AP5Po/1Nyn/oX4b/
AMFQ/wDkQ/1lzL/oOr/+DJ/5h/w1D8RP+hv8b/8AhX6//wDJ9H+puU/9C/Df+Cof/Ih/rLmX/QdX/wDB
k/8AMT/hqH4if9Df43/8K/X/AP5Po/1Nyn/oX4b/AMFQ/wDkQ/1kzL/oOr/+DJ/5n2R+xz+234zt/iRp
nw+8a6vqXiDwZ4gs9baObXr+bUr/AMPajpmkX2tQ3FlqV2Zb57K7XT2t3tXkaJWkV4whVxJ+beJfAuU4
Th/FZ/hKEKOMw8qd+SKjGcZzjTs4q0bpyUlJK7s073VvuuBOLMxxGcYfJ8TWlVw1ZTtzu7hKMJTupPWz
UWnFu2qatrf9aP8AhfXgv+zv7U89/sfm+V5207N+M43fSv50P2w/kwr/AEFP42CgAoAKACgAoA9s/Z0/
s7/hcng3+1vP/s7Ov/avs2PP2f8ACL63t2buP9ZjP+zmvz7xU/5IPPf+4H/qRRPsvD//AJK7KP8AuL/6
ZqH7/wD/ABaT/hUfb7Ht/wBj7V9p8v8A9Cr+Oz+lz//Z
</value>
</data>
<data name="PictureBox4.BackgroundImage" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
/9j/4AAQSkZJRgABAgEASABIAAD/7gAOQWRvYmUAZAAAAAAB/+ED5kV4aWYAAE1NACoAAAAIAAcBEgAD
AAAAAQABAAABGgAFAAAAAQAAAGIBGwAFAAAAAQAAAGoBKAADAAAAAQACAAABMQACAAAAHAAAAHIBMgAC
AAAAFAAAAI6HaQAEAAAAAQAAAKIAAADCAEgAAAABAAAASAAAAAEAAEFkb2JlIFBob3Rvc2hvcCBDUzMg
V2luZG93cwAyMDEwOjA0OjE1IDIwOjMyOjA0AAACoAIABAAAAAEAAAA8oAMABAAAAAEAAAAMAAAAAAAA
AAYBAwADAAAAAQAGAAABGgAFAAAAAQAAARABGwAFAAAAAQAAARgBKAADAAAAAQACAAACAQAEAAAAAQAA
ASACAgAEAAAAAQAAAr4AAAAAAAAASAAAAAEAAABIAAAAAf/Y/+AAEEpGSUYAAQIAAEgASAAA/+0ADEFk
b2JlX0NNAAH/7gAOQWRvYmUAZIAAAAAB/9sAhAAMCAgICQgMCQkMEQsKCxEVDwwMDxUYExMVExMYEQwM
DAwMDBEMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMAQ0LCw0ODRAODhAUDg4OFBQODg4OFBEMDAwM
DBERDAwMDAwMEQwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAz/wAARCAAMADwDASIAAhEBAxEB/90A
BAAE/8QBPwAAAQUBAQEBAQEAAAAAAAAAAwABAgQFBgcICQoLAQABBQEBAQEBAQAAAAAAAAABAAIDBAUG
BwgJCgsQAAEEAQMCBAIFBwYIBQMMMwEAAhEDBCESMQVBUWETInGBMgYUkaGxQiMkFVLBYjM0coLRQwcl
klPw4fFjczUWorKDJkSTVGRFwqN0NhfSVeJl8rOEw9N14/NGJ5SkhbSVxNTk9KW1xdXl9VZmdoaWprbG
1ub2N0dXZ3eHl6e3x9fn9xEAAgIBAgQEAwQFBgcHBgU1AQACEQMhMRIEQVFhcSITBTKBkRShsUIjwVLR
8DMkYuFygpJDUxVjczTxJQYWorKDByY1wtJEk1SjF2RFVTZ0ZeLys4TD03Xj80aUpIW0lcTU5PSltcXV
5fVWZnaGlqa2xtbm9ic3R1dnd4eXp7fH/9oADAMBAAIRAxEAPwDd/amR/pH/AOcf70v2pkf6R/8AnH+9
UUlofq/Bpevxb37UyP8ASP8A84/3pftTI/0j/wDOP96opJfq/BXr8W9+1Mj/AEj/APOP96X7UyP9I/8A
zj/eqKSX6vwV6/F3ujdbuGS2i5xfU8HVxktIG76XyW99vo27p0XGdO2/ba930dZj+q5dX+qfZPL8VAeD
341VVr/eZhx+0bu708n/2f/iDFhJQ0NfUFJPRklMRQABAQAADEhMaW5vAhAAAG1udHJSR0IgWFlaIAfO
AAIACQAGADEAAGFjc3BNU0ZUAAAAAElFQyBzUkdCAAAAAAAAAAAAAAAAAAD21gABAAAAANMtSFAgIAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAEWNwcnQAAAFQAAAAM2Rl
c2MAAAGEAAAAbHd0cHQAAAHwAAAAFGJrcHQAAAIEAAAAFHJYWVoAAAIYAAAAFGdYWVoAAAIsAAAAFGJY
WVoAAAJAAAAAFGRtbmQAAAJUAAAAcGRtZGQAAALEAAAAiHZ1ZWQAAANMAAAAhnZpZXcAAAPUAAAAJGx1
bWkAAAP4AAAAFG1lYXMAAAQMAAAAJHRlY2gAAAQwAAAADHJUUkMAAAQ8AAAIDGdUUkMAAAQ8AAAIDGJU
UkMAAAQ8AAAIDHRleHQAAAAAQ29weXJpZ2h0IChjKSAxOTk4IEhld2xldHQtUGFja2FyZCBDb21wYW55
AABkZXNjAAAAAAAAABJzUkdCIElFQzYxOTY2LTIuMQAAAAAAAAAAAAAAEnNSR0IgSUVDNjE5NjYtMi4x
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABYWVogAAAAAAAA
81EAAQAAAAEWzFhZWiAAAAAAAAAAAAAAAAAAAAAAWFlaIAAAAAAAAG+iAAA49QAAA5BYWVogAAAAAAAA
YpkAALeFAAAY2lhZWiAAAAAAAAAkoAAAD4QAALbPZGVzYwAAAAAAAAAWSUVDIGh0dHA6Ly93d3cuaWVj
LmNoAAAAAAAAAAAAAAAWSUVDIGh0dHA6Ly93d3cuaWVjLmNoAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAGRlc2MAAAAAAAAALklFQyA2MTk2Ni0yLjEgRGVmYXVsdCBSR0Ig
Y29sb3VyIHNwYWNlIC0gc1JHQgAAAAAAAAAAAAAALklFQyA2MTk2Ni0yLjEgRGVmYXVsdCBSR0IgY29s
b3VyIHNwYWNlIC0gc1JHQgAAAAAAAAAAAAAAAAAAAAAAAAAAAABkZXNjAAAAAAAAACxSZWZlcmVuY2Ug
Vmlld2luZyBDb25kaXRpb24gaW4gSUVDNjE5NjYtMi4xAAAAAAAAAAAAAAAsUmVmZXJlbmNlIFZpZXdp
bmcgQ29uZGl0aW9uIGluIElFQzYxOTY2LTIuMQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAdmlldwAA
AAAAE6T+ABRfLgAQzxQAA+3MAAQTCwADXJ4AAAABWFlaIAAAAAAATAlWAFAAAABXH+dtZWFzAAAAAAAA
AAEAAAAAAAAAAAAAAAAAAAAAAAACjwAAAAJzaWcgAAAAAENSVCBjdXJ2AAAAAAAABAAAAAAFAAoADwAU
ABkAHgAjACgALQAyADcAOwBAAEUASgBPAFQAWQBeAGMAaABtAHIAdwB8AIEAhgCLAJAAlQCaAJ8ApACp
AK4AsgC3ALwAwQDGAMsA0ADVANsA4ADlAOsA8AD2APsBAQEHAQ0BEwEZAR8BJQErATIBOAE+AUUBTAFS
AVkBYAFnAW4BdQF8AYMBiwGSAZoBoQGpAbEBuQHBAckB0QHZAeEB6QHyAfoCAwIMAhQCHQImAi8COAJB
AksCVAJdAmcCcQJ6AoQCjgKYAqICrAK2AsECywLVAuAC6wL1AwADCwMWAyEDLQM4A0MDTwNaA2YDcgN+
A4oDlgOiA64DugPHA9MD4APsA/kEBgQTBCAELQQ7BEgEVQRjBHEEfgSMBJoEqAS2BMQE0wThBPAE/gUN
BRwFKwU6BUkFWAVnBXcFhgWWBaYFtQXFBdUF5QX2BgYGFgYnBjcGSAZZBmoGewaMBp0GrwbABtEG4wb1
BwcHGQcrBz0HTwdhB3QHhgeZB6wHvwfSB+UH+AgLCB8IMghGCFoIbgiCCJYIqgi+CNII5wj7CRAJJQk6
CU8JZAl5CY8JpAm6Cc8J5Qn7ChEKJwo9ClQKagqBCpgKrgrFCtwK8wsLCyILOQtRC2kLgAuYC7ALyAvh
C/kMEgwqDEMMXAx1DI4MpwzADNkM8w0NDSYNQA1aDXQNjg2pDcMN3g34DhMOLg5JDmQOfw6bDrYO0g7u
DwkPJQ9BD14Peg+WD7MPzw/sEAkQJhBDEGEQfhCbELkQ1xD1ERMRMRFPEW0RjBGqEckR6BIHEiYSRRJk
EoQSoxLDEuMTAxMjE0MTYxODE6QTxRPlFAYUJxRJFGoUixStFM4U8BUSFTQVVhV4FZsVvRXgFgMWJhZJ
FmwWjxayFtYW+hcdF0EXZReJF64X0hf3GBsYQBhlGIoYrxjVGPoZIBlFGWsZkRm3Gd0aBBoqGlEadxqe
GsUa7BsUGzsbYxuKG7Ib2hwCHCocUhx7HKMczBz1HR4dRx1wHZkdwx3sHhYeQB5qHpQevh7pHxMfPh9p
H5Qfvx/qIBUgQSBsIJggxCDwIRwhSCF1IaEhziH7IiciVSKCIq8i3SMKIzgjZiOUI8Ij8CQfJE0kfCSr
JNolCSU4JWgllyXHJfcmJyZXJocmtyboJxgnSSd6J6sn3CgNKD8ocSiiKNQpBik4KWspnSnQKgIqNSpo
KpsqzysCKzYraSudK9EsBSw5LG4soizXLQwtQS12Last4S4WLkwugi63Lu4vJC9aL5Evxy/+MDUwbDCk
MNsxEjFKMYIxujHyMioyYzKbMtQzDTNGM38zuDPxNCs0ZTSeNNg1EzVNNYc1wjX9Njc2cjauNuk3JDdg
N5w31zgUOFA4jDjIOQU5Qjl/Obw5+To2OnQ6sjrvOy07azuqO+g8JzxlPKQ84z0iPWE9oT3gPiA+YD6g
PuA/IT9hP6I/4kAjQGRApkDnQSlBakGsQe5CMEJyQrVC90M6Q31DwEQDREdEikTORRJFVUWaRd5GIkZn
RqtG8Ec1R3tHwEgFSEtIkUjXSR1JY0mpSfBKN0p9SsRLDEtTS5pL4kwqTHJMuk0CTUpNk03cTiVObk63
TwBPSU+TT91QJ1BxULtRBlFQUZtR5lIxUnxSx1MTU19TqlP2VEJUj1TbVShVdVXCVg9WXFapVvdXRFeS
V+BYL1h9WMtZGllpWbhaB1pWWqZa9VtFW5Vb5Vw1XIZc1l0nXXhdyV4aXmxevV8PX2Ffs2AFYFdgqmD8
YU9homH1YklinGLwY0Njl2PrZEBklGTpZT1lkmXnZj1mkmboZz1nk2fpaD9olmjsaUNpmmnxakhqn2r3
a09rp2v/bFdsr20IbWBtuW4SbmtuxG8eb3hv0XArcIZw4HE6cZVx8HJLcqZzAXNdc7h0FHRwdMx1KHWF
deF2Pnabdvh3VnezeBF4bnjMeSp5iXnnekZ6pXsEe2N7wnwhfIF84X1BfaF+AX5ifsJ/I3+Ef+WAR4Co
gQqBa4HNgjCCkoL0g1eDuoQdhICE44VHhauGDoZyhteHO4efiASIaYjOiTOJmYn+imSKyoswi5aL/Ixj
jMqNMY2Yjf+OZo7OjzaPnpAGkG6Q1pE/kaiSEZJ6kuOTTZO2lCCUipT0lV+VyZY0lp+XCpd1l+CYTJi4
mSSZkJn8mmia1ZtCm6+cHJyJnPedZJ3SnkCerp8dn4uf+qBpoNihR6G2oiailqMGo3aj5qRWpMelOKWp
phqmi6b9p26n4KhSqMSpN6mpqhyqj6sCq3Wr6axcrNCtRK24ri2uoa8Wr4uwALB1sOqxYLHWskuywrM4
s660JbSctRO1irYBtnm28Ldot+C4WbjRuUq5wro7urW7LrunvCG8m70VvY++Cr6Evv+/er/1wHDA7MFn
wePCX8Lbw1jD1MRRxM7FS8XIxkbGw8dBx7/IPci8yTrJuco4yrfLNsu2zDXMtc01zbXONs62zzfPuNA5
0LrRPNG+0j/SwdNE08bUSdTL1U7V0dZV1tjXXNfg2GTY6Nls2fHadtr724DcBdyK3RDdlt4c3qLfKd+v
4DbgveFE4cziU+Lb42Pj6+Rz5PzlhOYN5pbnH+ep6DLovOlG6dDqW+rl63Dr++yG7RHtnO4o7rTvQO/M
8Fjw5fFy8f/yjPMZ86f0NPTC9VD13vZt9vv3ivgZ+Kj5OPnH+lf65/t3/Af8mP0p/br+S/7c/23////b
AEMAAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQICAgICAgICAgICAwMD
AwMDAwMDA//bAEMBAQEBAQEBAQEBAQICAQICAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMD
AwMDAwMDAwMDAwMDAwMDA//AABEIAAwAPAMBEQACEQEDEQH/xAAfAAABBQEBAQEBAQAAAAAAAAAAAQID
BAUGBwgJCgv/xAC1EAACAQMDAgQDBQUEBAAAAX0BAgMABBEFEiExQQYTUWEHInEUMoGRoQgjQrHBFVLR
8CQzYnKCCQoWFxgZGiUmJygpKjQ1Njc4OTpDREVGR0hJSlNUVVZXWFlaY2RlZmdoaWpzdHV2d3h5eoOE
hYaHiImKkpOUlZaXmJmaoqOkpaanqKmqsrO0tba3uLm6wsPExcbHyMnK0tPU1dbX2Nna4eLj5OXm5+jp
6vHy8/T19vf4+fr/xAAfAQADAQEBAQEBAQEBAAAAAAAAAQIDBAUGBwgJCgv/xAC1EQACAQIEBAMEBwUE
BAABAncAAQIDEQQFITEGEkFRB2FxEyIygQgUQpGhscEJIzNS8BVictEKFiQ04SXxFxgZGiYnKCkqNTY3
ODk6Q0RFRkdISUpTVFVWV1hZWmNkZWZnaGlqc3R1dnd4eXqCg4SFhoeIiYqSk5SVlpeYmZqio6Slpqeo
qaqys7S1tre4ubrCw8TFxsfIycrS09TV1tfY2dri4+Tl5ufo6ery8/T19vf4+fr/2gAMAwEAAhEDEQA/
AP1ZH7UPxEAA/wCEw8bnj/ob9f8A/k+v7U/1Nyj/AKF+G/8ABUP/AJE/llcSZlZf7dX/APBk/wDMX/hq
H4if9Df43/8ACv1//wCT6P8AU3Kf+hfhv/BUP/kQ/wBZcy/6Dq//AIMn/mH/AA1D8RP+hv8AG/8A4V+v
/wDyfR/qblP/AEL8N/4Kh/8AIh/rLmX/AEHV/wDwZP8AzD/hqH4if9Df43/8K/X/AP5Po/1Nyn/oX4b/
AMFQ/wDkQ/1lzL/oOr/+DJ/5h/w1D8RP+hv8b/8AhX6//wDJ9H+puU/9C/Df+Cof/Ih/rLmX/QdX/wDB
k/8AMT/hqH4if9Df43/8K/X/AP5Po/1Nyn/oX4b/AMFQ/wDkQ/1kzL/oOr/+DJ/5n2R+xz+234zt/iRp
nw+8a6vqXiDwZ4gs9baObXr+bUr/AMPajpmkX2tQ3FlqV2Zb57K7XT2t3tXkaJWkV4whVxJ+beJfAuU4
Th/FZ/hKEKOMw8qd+SKjGcZzjTs4q0bpyUlJK7s073VvuuBOLMxxGcYfJ8TWlVw1ZTtzu7hKMJTupPWz
UWnFu2qatrf9aP8AhfXgv+zv7U89/sfm+V5207N+M43fSv50P2w/kwr/AEFP42CgAoAKACgAoA9s/Z0/
s7/hcng3+1vP/s7Ov/avs2PP2f8ACL63t2buP9ZjP+zmvz7xU/5IPPf+4H/qRRPsvD//AJK7KP8AuL/6
ZqH7/wD/ABaT/hUfb7Ht/wBj7V9p8v8A9Cr+Oz+lz//Z
</value>
</data>
<metadata name="$this.TrayHeight" type="System.Int32, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>44</value>
</metadata>
</root>

560
ArinWarev1/Forms_Input/Frm_kongkub.vb Normal file
View File

@@ -0,0 +1,560 @@
Public Class Frm_kongkub
Dim Init As Boolean = False
Dim SrcDrv As DataRowView
#Region "data Base 변경여부및 적용방법"
'''변경된내용을적용한다.
Public Overrides Function AcceptChanged() As Boolean
bs.EndEdit()
Dim BaseDS As DataSet = CType(bs.DataSource, DataSet)
Dim BaseDT As DataTable = BaseDS.Tables(bs.DataMember)
BaseDT.AcceptChanges()
Return True
End Function
'''변경된내용이있다면 취소한다.
Public Overrides Function RejectChanged() As Boolean
Dim BaseDS As DataSet = CType(bs.DataSource, DataSet)
Dim BaseDT As DataTable = BaseDS.Tables(bs.DataMember)
BaseDT.RejectChanges()
Return True
End Function
'''데이터에변형이있었는가?
Public Overrides Function HasChanged() As Boolean
bs.EndEdit()
Dim BaseDS As DataSet = CType(bs.DataSource, DataSet)
Dim BaseDT As DataTable = BaseDS.Tables(bs.DataMember)
Dim ChangeDT As DataTable = BaseDT.GetChanges
If Not ChangeDT Is Nothing Then Return True
Return False
End Function
'''기본데이터테이블을 반환합니다.
Public Function DT() As DataTable
Dim BaseDS As DataSet = CType(bs.DataSource, DataSet)
Return BaseDS.Tables(bs.DataMember)
End Function
#End Region
Public Sub New(_opentime)
' 이 호출은 디자이너에 필요합니다.
InitializeComponent()
OpenTime = _opentime
' InitializeComponent() 호출 뒤에 초기화 코드를 추가하십시오.
End Sub
Private Sub ShowHistory()
Dim drv As DataRowView = Me.bs.Current
Dim f As New Frm_History("tbl_kongkub", drv("code").ToString)
If f.ShowDialog = DialogResult.OK Then
drv(f.colname) = f.val
Me.Validate()
Me.bs.EndEdit()
My.Application.DoEvents()
MsgBox("값이 변경되었습니다", MsgBoxStyle.Information, "확인")
End If
End Sub
Private Sub AddNewDataRow_Zone_Changed2(ByVal sender As Object, ByVal e As System.Data.DataColumnChangeEventArgs)
Dim oval As String = e.Row(e.Column.ColumnName).ToString
Dim nval As String = e.ProposedValue.ToString
If oval <> nval Then
Dim newdr As DS2.historyRow = DSHistory.history.NewhistoryRow
newdr.time = Now.ToString("yyyy-MM-dd HH:mm:ss")
newdr.tablename = "tbl_kongkub"
newdr.ovalue = oval
newdr.nvalue = nval
newdr.column = e.Column.ColumnName
newdr.code = e.Row("code").ToString
DSHistory.history.AddhistoryRow(newdr)
DSHistory.history.AcceptChanges()
End If
End Sub
Private Sub MdiMain_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Me.Show()
My.Application.DoEvents()
'Work_msg_timer("잠시만 기다려주세요")
'//공유데이터셋에 연결한다.
Me.bs.DataSource = DSET1
'//난방공급시스템
AddHandler DSET1.tbl_kongkub.TableNewRow, AddressOf AddNewDataRow_kongkub
AddHandler DSET1.tbl_kongkub.ColumnChanging, AddressOf AddNewDataRow_Zone_Changed2
'//모든컨트롤의 cTrl_enter 를 추가합니다
BindProperty(CType(Me.SplitContainer1.Panel2.Controls, Control.ControlCollection))
'//콤보컨트롤 바인딩
Binding_Zone()
Me.bs.Filter = "code <> '0'"
If Me.Parameter <> "" Then Me.bs.Filter &= " and 열공급시스템 ='" + Me.Parameter + "'"
' Me.lb_grpname.Text = Me.Parameter
Me.Init = True
Try
Me.bs.Position = CEnergy.ARINCLASS.Read_LastPos_Frm(Me)
Catch ex As Exception
Me.bs.MoveFirst()
End Try
bs_CurrentChanged(sender, e)
Validate_control()
AddDebug("▲ Form Load")
End Sub
#Region "Control_Enter"
Private Sub BindProperty(ByVal Ctl As Control.ControlCollection)
For Each C As Control In Ctl
If C.Controls.Count > 1 Then
BindProperty(C.Controls)
Else
If C.GetType.ToString.ToUpper.IndexOf("MYTB") <> -1 Then
AddHandler CType(C, MyTb).KeyDown, AddressOf TextBOx_KeyDown
ElseIf C.GetType.ToString.ToUpper.IndexOf("MYCMB") <> -1 Then
AddHandler CType(C, MyCmb).KeyDown, AddressOf Cmd_KeyDown
End If
End If
Next
End Sub
Private Sub TextBOx_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs)
If e.KeyCode = Keys.Enter AndAlso e.Control Then
Try
Dim Field As String = (CType(sender, MyTb).DataBindings.Item("text").BindingMemberInfo.BindingField)
For Each Dr As DataRow In dt.Select(Me.bs.Filter, "")
Dr(Field) = CType(sender, MyTb).Text
Next
Work_msg_timer("모든값이 변경되었습니다", 25)
Catch ex As Exception
End Try
End If
End Sub
Private Sub Cmd_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs)
If e.KeyCode = Keys.Enter AndAlso e.Control Then
Try
Dim Field As String = (CType(sender, MyCmb).DataBindings.Item("selectedvalue").BindingMemberInfo.BindingField)
For Each Dr As DataRow In dt.Select(Me.bs.Filter, "")
Dr(Field) = CType(sender, MyCmb).SelectedValue
Next
Work_msg_timer("모든값이 변경되었습니다", 25)
Catch ex As Exception
End Try
End If
End Sub
#End Region
#Region "난방공급시스템"
Private Function GetMaxCode(ByVal dt As DataTable) As String
Try
Dim Dr As DataRow = dt.Select("", "code desc")(0)
Return Format(CInt(Dr("code")) + 1, "0000")
Catch ex As Exception
Return "0001"
End Try
End Function
#Region "제어버튼"
Private Sub ToolStripButton48_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt_add.Click
If Not EndEdit(Me.bs) Then Return
Me.bs.AddNew()
INitRow(Me.Controls)
MdiMain.RefreshMenuList(TreeTag)
End Sub
Private Sub ToolStripButton49_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt_Del.Click
Dbbase.DelCrow(Me.bs, True)
MdiMain.RefreshMenuList(TreeTag)
End Sub
Private Sub ToolStripButton51_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt_cancel.Click
If Not EndEdit(Me.bs) Then Return
Data_Cancel(DSET1.tbl_profile, Nothing)
MdiMain.RefreshMenuList(TreeTag)
End Sub
#End Region
Private Sub Binding_Zone()
'//난방공급 시스템
Dim bs_열공급시스템ComboBox As New BindingSource(DSET1, "tbl_common")
bs_열공급시스템ComboBox.Filter = "gubun='1045'"
bs_열공급시스템ComboBox.Sort = "code"
Me.열공급시스템ComboBox.DataSource = bs_열공급시스템ComboBox
열공급시스템ComboBox.DisplayMember = "name"
열공급시스템ComboBox.ValueMember = "name"
Me.열공급시스템ComboBox.DataBindings.Add("selectedvalue", Me.bs, "열공급시스템")
' AddHandler 열공급시스템ComboBox.KeyDown, AddressOf Cmb_DeleteVal
Dim bs_열공급생산기기ComboBox As New BindingSource(DSET1, "tbl_nanbangkiki")
Me.열공급생산기기ComboBox.DataSource = bs_열공급생산기기ComboBox
bs_열공급생산기기ComboBox.Sort = "code"
열공급생산기기ComboBox.DisplayMember = "설명"
열공급생산기기ComboBox.ValueMember = "code"
Me.열공급생산기기ComboBox.DataBindings.Add("selectedvalue", Me.bs, "열공급생산기기")
' AddHandler 열공급생산기기ComboBox.KeyDown, AddressOf Cmb_DeleteVal
Dim bs_노출형제어ComboBox As New BindingSource(DSET1, "tbl_common")
bs_노출형제어ComboBox.Filter = "gubun='1033'" '//비제어,onoff제어,pi제어
bs_노출형제어ComboBox.Sort = "code"
Me.노출형제어ComboBox.DataSource = bs_노출형제어ComboBox
노출형제어ComboBox.DisplayMember = "name"
노출형제어ComboBox.ValueMember = "name"
Me.노출형제어ComboBox.DataBindings.Add("selectedvalue", Me.bs, "노출형제어")
'AddHandler 노출형제어ComboBox.KeyDown, AddressOf Cmb_DeleteVal
Dim bs_바닥난방열제어ComboBox As New BindingSource(DSET1, "tbl_common")
bs_바닥난방열제어ComboBox.Filter = "gubun='1033'"
bs_바닥난방열제어ComboBox.Sort = "code"
Me.바닥난방열제어ComboBox.DataSource = bs_바닥난방열제어ComboBox
바닥난방열제어ComboBox.DisplayMember = "name"
바닥난방열제어ComboBox.ValueMember = "name"
Me.바닥난방열제어ComboBox.DataBindings.Add("selectedvalue", Me.bs, "바닥난방열제어")
'AddHandler 바닥난방열제어ComboBox.KeyDown, AddressOf Cmb_DeleteVal
Dim bs_바닥난방열건축부위ComboBox As New BindingSource(DSET1, "tbl_common")
bs_바닥난방열건축부위ComboBox.Filter = "gubun='1034'"
bs_바닥난방열건축부위ComboBox.Sort = "code"
Me.바닥난방열건축부위ComboBox.DataSource = bs_바닥난방열건축부위ComboBox
바닥난방열건축부위ComboBox.DisplayMember = "name"
바닥난방열건축부위ComboBox.ValueMember = "name"
Me.바닥난방열건축부위ComboBox.DataBindings.Add("selectedvalue", Me.bs, "바닥난방열건축부위")
'AddHandler 바닥난방열건축부위ComboBox.KeyDown, AddressOf Cmb_DeleteVal
Dim bs_바닥난방전기제어ComboBox As New BindingSource(DSET1, "tbl_common")
bs_바닥난방전기제어ComboBox.Filter = "gubun='1033'" '//습식,건식,반건식
bs_바닥난방전기제어ComboBox.Sort = "code"
Me.바닥난방전기제어ComboBox.DataSource = bs_바닥난방전기제어ComboBox
바닥난방전기제어ComboBox.DisplayMember = "name"
바닥난방전기제어ComboBox.ValueMember = "name"
Me.바닥난방전기제어ComboBox.DataBindings.Add("selectedvalue", Me.bs, "바닥난방전기제어")
'AddHandler 바닥난방전기제어ComboBox.KeyDown, AddressOf Cmb_DeleteVal
Dim bs_바닥난방전기건축부위ComboBox As New BindingSource(DSET1, "tbl_common")
bs_바닥난방전기건축부위ComboBox.Filter = "gubun='1034'"
bs_바닥난방전기건축부위ComboBox.Sort = "code"
Me.바닥난방전기건축부위ComboBox.DataSource = bs_바닥난방전기건축부위ComboBox
바닥난방전기건축부위ComboBox.DisplayMember = "name"
바닥난방전기건축부위ComboBox.ValueMember = "name"
Me.바닥난방전기건축부위ComboBox.DataBindings.Add("selectedvalue", Me.bs, "바닥난방전기건축부위")
' AddHandler 바닥난방전기건축부위ComboBox.KeyDown, AddressOf Cmb_DeleteVal
Dim bs_전기난방제어ComboBox As New BindingSource(DSET1, "tbl_common")
bs_전기난방제어ComboBox.Filter = "gubun='1033'"
bs_전기난방제어ComboBox.Sort = "code"
Me.전기난방제어ComboBox.DataSource = bs_전기난방제어ComboBox
전기난방제어ComboBox.DisplayMember = "name"
전기난방제어ComboBox.ValueMember = "name"
Me.전기난방제어ComboBox.DataBindings.Add("selectedvalue", Me.bs, "전기난방제어")
'AddHandler 전기난방제어ComboBox.KeyDown, AddressOf Cmb_DeleteVal
End Sub
Private Sub Frm_V20091231_Zone_MouseWheel(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseWheel
If e.Delta < 0 Then
If Me.bs.Position < Me.bs.Count Then Me.bs.Position += 1
Else
If Me.bs.Position > 0 Then Me.bs.Position -= 1
End If
Me.Validate()
My.Application.DoEvents()
End Sub
Private Sub MdiMain_FormClosed(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosedEventArgs) Handles Me.FormClosed
CEnergy.ARINCLASS.SaveLoad_FrmSetting(Me, Me.bs.Position, True)
End Sub
Private Sub MdiMain_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown
Select Case e.KeyCode
Case Keys.F12
ShowHistory()
End Select
End Sub
Private Sub AddNewDataRow_kongkub(ByVal sender As Object, ByVal e As System.Data.DataTableNewRowEventArgs)
e.Row.Item("code") = GetMaxCode(DSET1.tbl_kongkub)
e.Row.Item("설명") = "신규데이터"
End Sub
#End Region
Private Sub bs_CurrentChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bs.CurrentChanged
If Not Init Then Return
Try
Dim drv As DataRowView = Me.bs.Current
If drv Is Nothing Then Return
Me.lb_code.Text = "[" + drv("code").ToString + "]"
Dim DR() As DataRow = DSET1.tbl_zone.Select("냉난방열공급시스템='" & drv("code").ToString & "'")
'====================================================================2014.05.07 추가
If DR.GetUpperBound(0) = -1 Then
Me.tb_zone_cnt.Text = "0"
Else
Dim 존수 As Integer = 0
For Each drow As DS.tbl_zoneRow In DR
If IsNumeric(drow.입력존의수) Then
존수 += CInt(drow.입력존의수)
Else
존수 += 1
End If
'존수 += TOSG(drow.입력존의수)
Next
Me.tb_zone_cnt.Text = 존수.ToString
End If
'Me.tb_zone_cnt.Text = CStr(DR.GetUpperBound(0) + 1)
'====================================================================2014.05.07 추가
Catch ex As Exception
Me.tb_zone_cnt.Text = "0"
End Try
Me.bs.EndEdit()
End Sub
Private Sub 열공급시스템ComboBox_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles 열공급시스템ComboBox.KeyDown
If e.KeyCode = Keys.V And e.Control Then
e.Handled = True
e.SuppressKeyPress = False
'//클립보드붙여넣기
Dim CB() As String = My.Computer.Clipboard.GetText.Split(CChar(vbCrLf))
If CB.GetUpperBound(0) <> 21 Then
MsgBox("붙여넣기가 호환되는 데이터가 아닙니다.", MsgBoxStyle.Information, "확인")
Return
End If
For ii As Integer = 0 To CType(CB(0).Split(CChar(vbTab)), String()).GetUpperBound(0)
If Me.bs.Count = 0 OrElse ii > 0 Then Me.BT_ADD.PerformClick() '//한줄추가
Dim Cnt As Short = 0
For i As Integer = 0 To CB.GetUpperBound(0)
Select Case i
Case 0
CType(bs.Current, DataRowView)("설명") = CB(i).Split(CChar(vbTab))(ii).Trim
Case 0 + 3 '//사용프로필 앞에 두개를 숫자4자로변환
If CB(i).Split(CChar(vbTab))(ii).Trim = "" Then
Me.열공급시스템ComboBox.SelectedIndex = 0
Else
Me.열공급시스템ComboBox.Text = CB(i).Split(CChar(vbTab))(ii).Trim
End If
'Me.열공급시스템ComboBox.Text = CStr(IIf( CB(i).Split(CChar(vbTab))(ii).Trim = "", "0", CB(i).Split(CChar(vbTab))(ii).Trim))
Case 1 + 3 '//공란
If CB(i).Split(CChar(vbTab))(ii).Trim = "" Then
Me.열공급생산기기ComboBox.SelectedIndex = 0
Else
Me.열공급생산기기ComboBox.Text = CB(i).Split(CChar(vbTab))(ii).Trim
End If
'Me.열공급생산기기ComboBox.Text = CStr(IIf( CB(i).Split(CChar(vbTab))(ii).Trim = "", "0", CB(i).Split(CChar(vbTab))(ii).Trim))
Case 3 + 3 '//면적
If CB(i).Split(CChar(vbTab))(ii).Trim = "" Then
Me.노출형제어ComboBox.SelectedIndex = 0
Else
Me.노출형제어ComboBox.Text = CB(i).Split(CChar(vbTab))(ii).Trim
End If
' Me.노출형제어ComboBox.Text = CStr(IIf( CB(i).Split(CChar(vbTab))(ii).Trim = "", "0", CB(i).Split(CChar(vbTab))(ii).Trim))
Case 5 + 3
If CB(i).Split(CChar(vbTab))(ii).Trim = "" Then
Me.바닥난방열제어ComboBox.SelectedIndex = 0
Else
Me.바닥난방열제어ComboBox.Text = CB(i).Split(CChar(vbTab))(ii).Trim
End If
' Me.바닥난방열제어ComboBox.Text = CStr(IIf( CB(i).Split(CChar(vbTab))(ii).Trim = "", "0", CB(i).Split(CChar(vbTab))(ii).Trim))
Case 6 + 3
If CB(i).Split(CChar(vbTab))(ii).Trim = "" Then
Me.바닥난방열건축부위ComboBox.SelectedIndex = 0
Else
Me.바닥난방열건축부위ComboBox.Text = CB(i).Split(CChar(vbTab))(ii).Trim
End If
' Me.바닥난방열건축부위ComboBox.Text = CStr(IIf( CB(i).Split(CChar(vbTab))(ii).Trim = "", "0", CB(i).Split(CChar(vbTab))(ii).Trim))
Case 8 + 3
If CB(i).Split(CChar(vbTab))(ii).Trim = "" Then
Me.바닥난방전기제어ComboBox.SelectedIndex = 0
Else
Me.바닥난방전기제어ComboBox.Text = CB(i).Split(CChar(vbTab))(ii).Trim
End If
'Me.바닥난방전기제어ComboBox.Text = CStr(IIf( CB(i).Split(CChar(vbTab))(ii).Trim = "", "0", CB(i).Split(CChar(vbTab))(ii).Trim))
Case 9 + 3
If CB(i).Split(CChar(vbTab))(ii).Trim = "" Then
Me.바닥난방전기건축부위ComboBox.SelectedIndex = 0
Else
Me.바닥난방전기건축부위ComboBox.Text = CB(i).Split(CChar(vbTab))(ii).Trim
End If
' Me.바닥난방전기건축부위ComboBox.Text = CStr(IIf( CB(i).Split(CChar(vbTab))(ii).Trim = "", "0", CB(i).Split(CChar(vbTab))(ii).Trim))
Case 11 + 3
If CB(i).Split(CChar(vbTab))(ii).Trim = "" Then
Me.전기난방제어ComboBox.SelectedIndex = 0
Else
Me.전기난방제어ComboBox.Text = CB(i).Split(CChar(vbTab))(ii).Trim
End If
'Me.전기난방제어ComboBox.Text = CStr(IIf( CB(i).Split(CChar(vbTab))(ii).Trim = "", "0", CB(i).Split(CChar(vbTab))(ii).Trim))
Case 13 + 3
'Me.TabControl18.SelectedIndex = 1
Me.제어기의정격전력NTb.Text = CB(i).Split(CChar(vbTab))(ii).Trim
Case 14 + 3
Me.팬송풍기정격전력NTb.Text = CB(i).Split(CChar(vbTab))(ii).Trim
Case 15 + 3
Me.펌프정격전력NTb.Text = CB(i).Split(CChar(vbTab))(ii).Trim
Case 16 + 3
Me.팬송풍기수NTb.Text = CB(i).Split(CChar(vbTab))(ii).Trim
Case 17 + 3
Me.추가펌프수NTb.Text = CB(i).Split(CChar(vbTab))(ii).Trim
End Select
Next
Next
Me.bs.EndEdit()
End If
End Sub
Private Sub bt_Del_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles bt_Del.MouseDown
If e.Button = Windows.Forms.MouseButtons.Right Then
If MsgBox("전체삭제를 하시겠습니까?", MsgBoxStyle.Information Or MsgBoxStyle.OkCancel, "확인") = MsgBoxResult.Ok Then
Dim dR() As DataRow = DSET1.tbl_kongkub.Select(Me.bs.Filter, "")
For i As Integer = dR.GetUpperBound(0) To 0 Step -1
dR(i).Delete()
Next
DSET1.tbl_kongkub.AcceptChanges()
End If
End If
End Sub
Private Sub 열공급시스템ComboBox_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 열공급시스템ComboBox.SelectedIndexChanged
VALIDATE_CONTROL()
End Sub
Private Sub Validate_control()
If Not Init Then Return
Try
Select Case 열공급시스템ComboBox.Text
Case "노출형방열기(열)"
열공급생산기기ComboBox.Enabled = True
노출형방열기GroupBox.Enabled = True
바닥난방열GroupBox.Enabled = False
전기난방GroupBox.Enabled = False
바닥난방전기GroupBox.Enabled = False
Case "바닥난방(열)"
열공급생산기기ComboBox.Enabled = True
노출형방열기GroupBox.Enabled = False
바닥난방열GroupBox.Enabled = True
전기난방GroupBox.Enabled = False
바닥난방전기GroupBox.Enabled = False
Case "전기난방"
열공급생산기기ComboBox.Enabled = False
노출형방열기GroupBox.Enabled = False
바닥난방열GroupBox.Enabled = False
전기난방GroupBox.Enabled = True
바닥난방전기GroupBox.Enabled = False
Case "바닥난방(전기)"
열공급생산기기ComboBox.Enabled = False
노출형방열기GroupBox.Enabled = False
바닥난방열GroupBox.Enabled = False
전기난방GroupBox.Enabled = False
바닥난방전기GroupBox.Enabled = True
Case Else
열공급생산기기ComboBox.Enabled = False
노출형방열기GroupBox.Enabled = False
바닥난방열GroupBox.Enabled = False
전기난방GroupBox.Enabled = False
바닥난방전기GroupBox.Enabled = False
End Select
Catch ex As Exception
End Try
End Sub
Private Sub dv_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles dv.MouseUp
If Prj.UserAuthType = "ADMIN" OrElse Prj.UserAuthType = "BOTH" OrElse Prj.UserAuthType = "BOTH2" OrElse Prj.UserAuthType = "BOTH1" Then '//2011.03.08 추가
If e.Button = Windows.Forms.MouseButtons.Right Then
Dim Frm_FilterA As New Frm_Filter
Frm_FilterA.ColumTitle = getColCaption(Me.dt)
Frm_FilterA.ColumList = getColName(Me.dt)
Frm_FilterA.Colorlist = "열공급생산기기"
Frm_FilterA.Numfield = "" '//20100618 Color 리스트처럼 , 구분해서 필드들을 모두 넣으세요.(=, >= 등을 사용하기 위해서는 해당 항목을 추가 요망)
Frm_FilterA.Default_Filter = "code <> '0'"
If Frm_FilterA.ShowDialog <> Windows.Forms.DialogResult.OK Then Return '//창떳을떄 확인아ㅣ고 취소눌르면 다음을 수행하지않는다는거에요.
Dim Filter As String = Frm_FilterA.tb_filter.Text '//값은 아까 그 텍박에 잇구요.
Try
Me.bs.Filter = Filter
'//바꾸기값이 있으면 변경 20100618
If Frm_FilterA.cmb_fieldc.SelectedIndex >= 0 AndAlso Frm_FilterA.cmb_fieldc.Text.ToLower <> "code" AndAlso _
Frm_FilterA.tb_valuec.Text <> "" Then
Dim Drow() As DataRow = Me.dt.Select(Filter)
For Each Dr As DataRow In Drow
Dr(Frm_FilterA.cmb_fieldc.Text) = Frm_FilterA.tb_valuec.Text
Next
MsgBox("바꾸기 완료", MsgBoxStyle.Information, "확인")
End If
Catch ex As Exception
Me.bs.Filter = ""
End Try
End If
End If
End Sub
Private Sub dv_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles dv.KeyDown
'//여기보시면 alt+d 누르면 한줄을 경고없이(falsE)삭제하도록 햇어요.. 사실원래 밋alt +d 인데.. ㅎㅎ 잘못해서 ctrl 됫다는
If Prj.UserAuthType = "ADMIN" OrElse Prj.UserAuthType = "BOTH" OrElse Prj.UserAuthType = "BOTH2" OrElse Prj.UserAuthType = "BOTH1" Then '//2011.03.08 추가
Select Case e.KeyCode
Case Keys.D
If e.Alt Then
Dbbase.DelCrow(Me.bs, False)
End If
Case Keys.C
If e.Control Then
Me.SrcDrv = Me.bs.Current
If Me.SrcDrv Is Nothing Then
MsgBox("저장할 ROW가 없습니다", MsgBoxStyle.Information, "확인")
Return
End If
' My.Computer.Clipboard.SetData("ZDATA", Drv)
End If
Case Keys.V
If e.Control Then
If Me.SrcDrv Is Nothing Then Return
Me.bt_add.PerformClick() '//신규추가
Dim NewDrv As DataRowView = Me.bs.Current
For Each C As DataColumn In Me.dt.Columns
If C.ColumnName.ToUpper = "CODE" Then
ElseIf C.ColumnName.ToUpper = "설명" Then
NewDrv(C.ColumnName) = SrcDrv(C.ColumnName) & "#1"
Else
NewDrv(C.ColumnName) = SrcDrv(C.ColumnName)
End If
Next
Me.bs.EndEdit()
bs.MoveLast()
End If
End Select
End If
End Sub
Private Sub dv_CellContentClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles dv.CellContentClick
End Sub
End Class

712
ArinWarev1/Forms_Input/Frm_nBunbae.Designer.vb generated Normal file
View File

@@ -0,0 +1,712 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class Frm_nBunbae
Inherits CForm
'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.components = New System.ComponentModel.Container()
Dim Label11 As System.Windows.Forms.Label
Dim Label10 As System.Windows.Forms.Label
Dim Label9 As System.Windows.Forms.Label
Dim Label8 As System.Windows.Forms.Label
Dim Label6 As System.Windows.Forms.Label
Dim Label18 As System.Windows.Forms.Label
Dim Label17 As System.Windows.Forms.Label
Dim Label16 As System.Windows.Forms.Label
Dim Label15 As System.Windows.Forms.Label
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(Frm_nBunbae))
Me.bs = New System.Windows.Forms.BindingSource(Me.components)
Me.DS = New Eco2Ar.DS()
Me.Label1 = New System.Windows.Forms.Label()
Me.Label19 = New System.Windows.Forms.Label()
Me.Label225 = New System.Windows.Forms.Label()
Me.SplitContainer1 = New System.Windows.Forms.SplitContainer()
Me.dv = New CEnergy.arindv()
Me.bn = New System.Windows.Forms.BindingNavigator(Me.components)
Me.lbl_count = New System.Windows.Forms.ToolStripLabel()
Me.bt_add = New System.Windows.Forms.ToolStripButton()
Me.bt_Del = New System.Windows.Forms.ToolStripButton()
Me.bt_cancel = New System.Windows.Forms.ToolStripButton()
Me.ToolStripSeparator1 = New System.Windows.Forms.ToolStripSeparator()
Me.lbl_pos = New System.Windows.Forms.ToolStripLabel()
Me.ToolStripSeparator2 = New System.Windows.Forms.ToolStripSeparator()
Me.lb_code = New System.Windows.Forms.ToolStripLabel()
Me.Label23 = New System.Windows.Forms.Label()
Me.PictureBox4 = New System.Windows.Forms.PictureBox()
Me.난방분배표준치GroupBox = New System.Windows.Forms.GroupBox()
Me.건물길이xMyTb = New Eco2Ar.MyTb()
Me.층고MyTb = New Eco2Ar.MyTb()
Me.Label2 = New System.Windows.Forms.Label()
Me.cmb_지관연결관장소 = New Eco2Ar.MyCmb()
Me.층수MyTb = New Eco2Ar.MyTb()
Me.건물길이yMyTb = New Eco2Ar.MyTb()
Me.난방분배표준치PictureBox = New System.Windows.Forms.PictureBox()
Me.열분배GroupBox = New System.Windows.Forms.GroupBox()
Me.열관류율MyTb = New Eco2Ar.MyTb()
Me.배관구간길이MyTb = New Eco2Ar.MyTb()
Me.Label222 = New System.Windows.Forms.Label()
Me.cmb_배관설치장소 = New Eco2Ar.MyCmb()
Me.cmb_배관구간방식 = New Eco2Ar.MyCmb()
Me.열분배PictureBox = New System.Windows.Forms.PictureBox()
Me.GroupBox1 = New System.Windows.Forms.GroupBox()
Me.cmb_배관망유형 = New Eco2Ar.MyCmb()
Me.cmb_표준치적용 = New Eco2Ar.MyCmb()
Me.cmb_생산기기구분 = New Eco2Ar.MyCmb()
Me.PictureBox1 = New System.Windows.Forms.PictureBox()
Me.DataGridViewTextBoxColumn1 = New System.Windows.Forms.DataGridViewTextBoxColumn()
Label11 = New System.Windows.Forms.Label()
Label10 = New System.Windows.Forms.Label()
Label9 = New System.Windows.Forms.Label()
Label8 = New System.Windows.Forms.Label()
Label6 = New System.Windows.Forms.Label()
Label18 = New System.Windows.Forms.Label()
Label17 = New System.Windows.Forms.Label()
Label16 = New System.Windows.Forms.Label()
Label15 = New System.Windows.Forms.Label()
CType(Me.bs, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.DS, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.SplitContainer1, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SplitContainer1.Panel1.SuspendLayout()
Me.SplitContainer1.Panel2.SuspendLayout()
Me.SplitContainer1.SuspendLayout()
CType(Me.dv, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.bn, System.ComponentModel.ISupportInitialize).BeginInit()
Me.bn.SuspendLayout()
CType(Me.PictureBox4, System.ComponentModel.ISupportInitialize).BeginInit()
Me.난방분배표준치GroupBox.SuspendLayout()
CType(Me.난방분배표준치PictureBox, System.ComponentModel.ISupportInitialize).BeginInit()
Me.열분배GroupBox.SuspendLayout()
CType(Me.열분배PictureBox, System.ComponentModel.ISupportInitialize).BeginInit()
Me.GroupBox1.SuspendLayout()
CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SuspendLayout()
'
'Label11
'
Label11.AutoSize = True
Label11.BackColor = System.Drawing.Color.FromArgb(CType(CType(243, Byte), Integer), CType(CType(244, Byte), Integer), CType(CType(246, Byte), Integer))
Label11.ForeColor = System.Drawing.SystemColors.ControlDarkDark
Label11.Location = New System.Drawing.Point(9, 42)
Label11.Name = "Label11"
Label11.Size = New System.Drawing.Size(118, 12)
Label11.TabIndex = 125
Label11.Text = "건물길이(x축)[m]:"
'
'Label10
'
Label10.AutoSize = True
Label10.BackColor = System.Drawing.Color.FromArgb(CType(CType(243, Byte), Integer), CType(CType(244, Byte), Integer), CType(CType(246, Byte), Integer))
Label10.ForeColor = System.Drawing.SystemColors.ControlDarkDark
Label10.Location = New System.Drawing.Point(9, 66)
Label10.Name = "Label10"
Label10.Size = New System.Drawing.Size(118, 12)
Label10.TabIndex = 126
Label10.Text = "건물너비(y축)[m]:"
'
'Label9
'
Label9.AutoSize = True
Label9.BackColor = System.Drawing.Color.FromArgb(CType(CType(243, Byte), Integer), CType(CType(244, Byte), Integer), CType(CType(246, Byte), Integer))
Label9.ForeColor = System.Drawing.SystemColors.ControlDarkDark
Label9.Location = New System.Drawing.Point(9, 90)
Label9.Name = "Label9"
Label9.Size = New System.Drawing.Size(124, 12)
Label9.TabIndex = 127
Label9.Text = "난방을하는 층의 수:"
'
'Label8
'
Label8.AutoSize = True
Label8.BackColor = System.Drawing.Color.FromArgb(CType(CType(243, Byte), Integer), CType(CType(244, Byte), Integer), CType(CType(246, Byte), Integer))
Label8.ForeColor = System.Drawing.SystemColors.ControlDarkDark
Label8.Location = New System.Drawing.Point(9, 112)
Label8.Name = "Label8"
Label8.Size = New System.Drawing.Size(115, 12)
Label8.TabIndex = 128
Label8.Text = "층 고[m]:"
'
'Label6
'
Label6.AutoSize = True
Label6.BackColor = System.Drawing.Color.FromArgb(CType(CType(243, Byte), Integer), CType(CType(244, Byte), Integer), CType(CType(246, Byte), Integer))
Label6.ForeColor = System.Drawing.SystemColors.ControlDarkDark
Label6.Location = New System.Drawing.Point(9, 138)
Label6.Name = "Label6"
Label6.Size = New System.Drawing.Size(108, 12)
Label6.TabIndex = 129
Label6.Text = "지관/연결관장소:"
'
'Label18
'
Label18.AutoSize = True
Label18.BackColor = System.Drawing.Color.FromArgb(CType(CType(243, Byte), Integer), CType(CType(244, Byte), Integer), CType(CType(246, Byte), Integer))
Label18.ForeColor = System.Drawing.SystemColors.ControlDarkDark
Label18.Location = New System.Drawing.Point(9, 129)
Label18.Name = "Label18"
Label18.Size = New System.Drawing.Size(88, 12)
Label18.TabIndex = 24
Label18.Text = "배관설치장소:"
'
'Label17
'
Label17.AutoSize = True
Label17.BackColor = System.Drawing.Color.FromArgb(CType(CType(243, Byte), Integer), CType(CType(244, Byte), Integer), CType(CType(246, Byte), Integer))
Label17.ForeColor = System.Drawing.SystemColors.ControlDarkDark
Label17.Location = New System.Drawing.Point(9, 102)
Label17.Name = "Label17"
Label17.Size = New System.Drawing.Size(213, 12)
Label17.TabIndex = 23
Label17.Text = "단위길이 배관의 열관류율[W/mK]:"
'
'Label16
'
Label16.AutoSize = True
Label16.BackColor = System.Drawing.Color.FromArgb(CType(CType(243, Byte), Integer), CType(CType(244, Byte), Integer), CType(CType(246, Byte), Integer))
Label16.ForeColor = System.Drawing.SystemColors.ControlDarkDark
Label16.Location = New System.Drawing.Point(9, 73)
Label16.Name = "Label16"
Label16.Size = New System.Drawing.Size(112, 12)
Label16.TabIndex = 22
Label16.Text = "배관구간길이[m]:"
'
'Label15
'
Label15.AutoSize = True
Label15.BackColor = System.Drawing.Color.FromArgb(CType(CType(243, Byte), Integer), CType(CType(244, Byte), Integer), CType(CType(246, Byte), Integer))
Label15.ForeColor = System.Drawing.SystemColors.ControlDarkDark
Label15.Location = New System.Drawing.Point(9, 45)
Label15.Name = "Label15"
Label15.Size = New System.Drawing.Size(88, 12)
Label15.TabIndex = 17
Label15.Text = "배관구간방식:"
'
'bs
'
Me.bs.DataMember = "tbl_nbunbae"
Me.bs.DataSource = Me.DS
Me.bs.Filter = "code <> '0'"
'
'DS
'
Me.DS.DataSetName = "DS"
Me.DS.SchemaSerializationMode = System.Data.SchemaSerializationMode.IncludeSchema
'
'Label1
'
Me.Label1.AutoSize = True
Me.Label1.BackColor = System.Drawing.Color.FromArgb(CType(CType(219, Byte), Integer), CType(CType(221, Byte), Integer), CType(CType(223, Byte), Integer))
Me.Label1.ForeColor = System.Drawing.SystemColors.ControlDarkDark
Me.Label1.Location = New System.Drawing.Point(414, 20)
Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(97, 12)
Me.Label1.TabIndex = 121
Me.Label1.Text = "2. 배관망 유형:"
Me.Label1.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
'
'Label19
'
Me.Label19.AutoSize = True
Me.Label19.BackColor = System.Drawing.Color.FromArgb(CType(CType(219, Byte), Integer), CType(CType(221, Byte), Integer), CType(CType(223, Byte), Integer))
Me.Label19.ForeColor = System.Drawing.SystemColors.ControlDarkDark
Me.Label19.Location = New System.Drawing.Point(8, 18)
Me.Label19.Name = "Label19"
Me.Label19.Size = New System.Drawing.Size(110, 12)
Me.Label19.TabIndex = 119
Me.Label19.Text = "0. 생산기기 구분:"
Me.Label19.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
'
'Label225
'
Me.Label225.AutoSize = True
Me.Label225.BackColor = System.Drawing.Color.FromArgb(CType(CType(219, Byte), Integer), CType(CType(221, Byte), Integer), CType(CType(223, Byte), Integer))
Me.Label225.ForeColor = System.Drawing.SystemColors.ControlDarkDark
Me.Label225.Location = New System.Drawing.Point(8, 43)
Me.Label225.Name = "Label225"
Me.Label225.Size = New System.Drawing.Size(231, 12)
Me.Label225.TabIndex = 119
Me.Label225.Text = "1.각 배관손실산출 또는 표준치 적용+:"
Me.Label225.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
'
'SplitContainer1
'
Me.SplitContainer1.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.SplitContainer1.Dock = System.Windows.Forms.DockStyle.Fill
Me.SplitContainer1.FixedPanel = System.Windows.Forms.FixedPanel.Panel1
Me.SplitContainer1.Location = New System.Drawing.Point(0, 0)
Me.SplitContainer1.Name = "SplitContainer1"
'
'SplitContainer1.Panel1
'
Me.SplitContainer1.Panel1.Controls.Add(Me.dv)
Me.SplitContainer1.Panel1.Controls.Add(Me.bn)
'
'SplitContainer1.Panel2
'
Me.SplitContainer1.Panel2.BackColor = System.Drawing.Color.White
Me.SplitContainer1.Panel2.Controls.Add(Me.Label23)
Me.SplitContainer1.Panel2.Controls.Add(Me.PictureBox4)
Me.SplitContainer1.Panel2.Controls.Add(Me.난방분배표준치GroupBox)
Me.SplitContainer1.Panel2.Controls.Add(Me.열분배GroupBox)
Me.SplitContainer1.Panel2.Controls.Add(Me.GroupBox1)
Me.SplitContainer1.Size = New System.Drawing.Size(818, 574)
Me.SplitContainer1.SplitterDistance = 214
Me.SplitContainer1.TabIndex = 126
'
'dv
'
Me.dv.A_DelCurrentCell = True
Me.dv.A_EnterToTab = False
Me.dv.AllowUserToAddRows = False
Me.dv.AllowUserToResizeRows = False
Me.dv.AutoGenerateColumns = False
Me.dv.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.AllCells
Me.dv.BackgroundColor = System.Drawing.Color.FromArgb(CType(CType(245, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(246, Byte), Integer))
Me.dv.BorderStyle = System.Windows.Forms.BorderStyle.None
Me.dv.ColumnHeadersHeight = 30
Me.dv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.DisableResizing
Me.dv.ColumnHeadersVisible = False
Me.dv.Columns.AddRange(New System.Windows.Forms.DataGridViewColumn() {Me.DataGridViewTextBoxColumn1})
Me.dv.DataSource = Me.bs
Me.dv.Dock = System.Windows.Forms.DockStyle.Fill
Me.dv.Location = New System.Drawing.Point(0, 0)
Me.dv.Margin = New System.Windows.Forms.Padding(3, 5, 3, 5)
Me.dv.MultiSelect = False
Me.dv.Name = "dv"
Me.dv.RowHeadersVisible = False
Me.dv.RowTemplate.Height = 23
Me.dv.ScrollBars = System.Windows.Forms.ScrollBars.Vertical
Me.dv.Size = New System.Drawing.Size(212, 532)
Me.dv.TabIndex = 0
'
'bn
'
Me.bn.AddNewItem = Nothing
Me.bn.AutoSize = False
Me.bn.BindingSource = Me.bs
Me.bn.CountItem = Me.lbl_count
Me.bn.DeleteItem = Nothing
Me.bn.Dock = System.Windows.Forms.DockStyle.Bottom
Me.bn.Font = New System.Drawing.Font("돋움", 8.999999!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(129, Byte))
Me.bn.ImageScalingSize = New System.Drawing.Size(20, 20)
Me.bn.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.bt_add, Me.bt_Del, Me.bt_cancel, Me.ToolStripSeparator1, Me.lbl_pos, Me.lbl_count, Me.ToolStripSeparator2, Me.lb_code})
Me.bn.Location = New System.Drawing.Point(0, 532)
Me.bn.MoveFirstItem = Nothing
Me.bn.MoveLastItem = Nothing
Me.bn.MoveNextItem = Nothing
Me.bn.MovePreviousItem = Nothing
Me.bn.Name = "bn"
Me.bn.PositionItem = Me.lbl_pos
Me.bn.Size = New System.Drawing.Size(212, 40)
Me.bn.TabIndex = 1
Me.bn.Text = "BindingNavigator1"
'
'lbl_count
'
Me.lbl_count.Name = "lbl_count"
Me.lbl_count.Size = New System.Drawing.Size(33, 37)
Me.lbl_count.Text = "/{0}"
'
'bt_add
'
Me.bt_add.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
Me.bt_add.Image = Global.Eco2Ar.My.Resources.Resources.new_32
Me.bt_add.Name = "bt_add"
Me.bt_add.RightToLeftAutoMirrorImage = True
Me.bt_add.Size = New System.Drawing.Size(24, 37)
Me.bt_add.Text = "신규추가(&A)"
Me.bt_add.ToolTipText = "새로운 프로필을 추가합니다"
'
'bt_Del
'
Me.bt_Del.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
Me.bt_Del.Image = Global.Eco2Ar.My.Resources.Resources.remov_32
Me.bt_Del.Name = "bt_Del"
Me.bt_Del.RightToLeftAutoMirrorImage = True
Me.bt_Del.Size = New System.Drawing.Size(24, 37)
Me.bt_Del.Text = "선택삭제(&D)"
Me.bt_Del.ToolTipText = "선택된 프로필을 삭제합니다"
'
'bt_cancel
'
Me.bt_cancel.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
Me.bt_cancel.Image = Global.Eco2Ar.My.Resources.Resources.cancl_32
Me.bt_cancel.ImageTransparentColor = System.Drawing.Color.Magenta
Me.bt_cancel.Name = "bt_cancel"
Me.bt_cancel.Size = New System.Drawing.Size(24, 37)
Me.bt_cancel.Text = "변경취소(&C)"
Me.bt_cancel.ToolTipText = "변경된 내용을 되돌립니다"
Me.bt_cancel.Visible = False
'
'ToolStripSeparator1
'
Me.ToolStripSeparator1.Name = "ToolStripSeparator1"
Me.ToolStripSeparator1.Size = New System.Drawing.Size(6, 40)
'
'lbl_pos
'
Me.lbl_pos.Name = "lbl_pos"
Me.lbl_pos.Size = New System.Drawing.Size(12, 37)
Me.lbl_pos.Text = "0"
'
'ToolStripSeparator2
'
Me.ToolStripSeparator2.Name = "ToolStripSeparator2"
Me.ToolStripSeparator2.Size = New System.Drawing.Size(6, 40)
'
'lb_code
'
Me.lb_code.Name = "lb_code"
Me.lb_code.Size = New System.Drawing.Size(47, 37)
Me.lb_code.Text = "[0000]"
'
'Label23
'
Me.Label23.AutoSize = True
Me.Label23.BackColor = System.Drawing.Color.FromArgb(CType(CType(116, Byte), Integer), CType(CType(158, Byte), Integer), CType(CType(209, Byte), Integer))
Me.Label23.ForeColor = System.Drawing.Color.White
Me.Label23.Location = New System.Drawing.Point(28, 35)
Me.Label23.Name = "Label23"
Me.Label23.Size = New System.Drawing.Size(57, 12)
Me.Label23.TabIndex = 172
Me.Label23.Text = "난방분배"
'
'PictureBox4
'
Me.PictureBox4.BackgroundImage = CType(resources.GetObject("PictureBox4.BackgroundImage"), System.Drawing.Image)
Me.PictureBox4.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch
Me.PictureBox4.Location = New System.Drawing.Point(15, 24)
Me.PictureBox4.Name = "PictureBox4"
Me.PictureBox4.Size = New System.Drawing.Size(134, 30)
Me.PictureBox4.TabIndex = 171
Me.PictureBox4.TabStop = False
'
'난방분배표준치GroupBox
'
Me.난방분배표준치GroupBox.Controls.Add(Me.건물길이xMyTb)
Me.난방분배표준치GroupBox.Controls.Add(Me.층고MyTb)
Me.난방분배표준치GroupBox.Controls.Add(Me.Label2)
Me.난방분배표준치GroupBox.Controls.Add(Me.cmb_지관연결관장소)
Me.난방분배표준치GroupBox.Controls.Add(Label6)
Me.난방분배표준치GroupBox.Controls.Add(Me.층수MyTb)
Me.난방분배표준치GroupBox.Controls.Add(Label8)
Me.난방분배표준치GroupBox.Controls.Add(Label9)
Me.난방분배표준치GroupBox.Controls.Add(Me.건물길이yMyTb)
Me.난방분배표준치GroupBox.Controls.Add(Label10)
Me.난방분배표준치GroupBox.Controls.Add(Label11)
Me.난방분배표준치GroupBox.Controls.Add(Me.난방분배표준치PictureBox)
Me.난방분배표준치GroupBox.Location = New System.Drawing.Point(335, 145)
Me.난방분배표준치GroupBox.Name = "난방분배표준치GroupBox"
Me.난방분배표준치GroupBox.Size = New System.Drawing.Size(254, 171)
Me.난방분배표준치GroupBox.TabIndex = 132
Me.난방분배표준치GroupBox.TabStop = False
'
'건물길이xMyTb
'
Me.건물길이xMyTb.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bs, "건물길이x", True))
Me.건물길이xMyTb.Location = New System.Drawing.Point(161, 39)
Me.건물길이xMyTb.Name = "건물길이xMyTb"
Me.건물길이xMyTb.NectControl = Nothing
Me.건물길이xMyTb.Size = New System.Drawing.Size(73, 21)
Me.건물길이xMyTb.TabIndex = 0
Me.건물길이xMyTb.TextFormat = Eco2Ar.MyTb.ETFormat.Normal
'
'층고MyTb
'
Me.층고MyTb.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bs, "층고", True))
Me.층고MyTb.Location = New System.Drawing.Point(161, 110)
Me.층고MyTb.Name = "층고MyTb"
Me.층고MyTb.NectControl = Nothing
Me.층고MyTb.Size = New System.Drawing.Size(73, 21)
Me.층고MyTb.TabIndex = 3
Me.층고MyTb.TextFormat = Eco2Ar.MyTb.ETFormat.Normal
'
'Label2
'
Me.Label2.AutoSize = True
Me.Label2.BackColor = System.Drawing.Color.FromArgb(CType(CType(243, Byte), Integer), CType(CType(244, Byte), Integer), CType(CType(246, Byte), Integer))
Me.Label2.Font = New System.Drawing.Font("돋움체", 9.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label2.ForeColor = System.Drawing.Color.Black
Me.Label2.Location = New System.Drawing.Point(10, 15)
Me.Label2.Name = "Label2"
Me.Label2.Size = New System.Drawing.Size(110, 12)
Me.Label2.TabIndex = 122
Me.Label2.Text = "[표준치경계조건]"
'
'cmb_지관연결관장소
'
Me.cmb_지관연결관장소.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
Me.cmb_지관연결관장소.FormattingEnabled = True
Me.cmb_지관연결관장소.Location = New System.Drawing.Point(161, 134)
Me.cmb_지관연결관장소.Name = "cmb_지관연결관장소"
Me.cmb_지관연결관장소.NectControl = Nothing
Me.cmb_지관연결관장소.Size = New System.Drawing.Size(73, 20)
Me.cmb_지관연결관장소.TabIndex = 4
'
'층수MyTb
'
Me.층수MyTb.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bs, "층수", True))
Me.층수MyTb.Location = New System.Drawing.Point(161, 87)
Me.층수MyTb.Name = "층수MyTb"
Me.층수MyTb.NectControl = Nothing
Me.층수MyTb.Size = New System.Drawing.Size(73, 21)
Me.층수MyTb.TabIndex = 2
Me.층수MyTb.TextFormat = Eco2Ar.MyTb.ETFormat.Normal
'
'건물길이yMyTb
'
Me.건물길이yMyTb.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bs, "건물길이y", True))
Me.건물길이yMyTb.Location = New System.Drawing.Point(161, 63)
Me.건물길이yMyTb.Name = "건물길이yMyTb"
Me.건물길이yMyTb.NectControl = Nothing
Me.건물길이yMyTb.Size = New System.Drawing.Size(73, 21)
Me.건물길이yMyTb.TabIndex = 1
Me.건물길이yMyTb.TextFormat = Eco2Ar.MyTb.ETFormat.Normal
'
'난방분배표준치PictureBox
'
Me.난방분배표준치PictureBox.BackColor = System.Drawing.Color.FromArgb(CType(CType(243, Byte), Integer), CType(CType(244, Byte), Integer), CType(CType(246, Byte), Integer))
Me.난방분배표준치PictureBox.Location = New System.Drawing.Point(2, 9)
Me.난방분배표준치PictureBox.Name = "난방분배표준치PictureBox"
Me.난방분배표준치PictureBox.Size = New System.Drawing.Size(250, 158)
Me.난방분배표준치PictureBox.TabIndex = 25
Me.난방분배표준치PictureBox.TabStop = False
'
'열분배GroupBox
'
Me.열분배GroupBox.Controls.Add(Me.열관류율MyTb)
Me.열분배GroupBox.Controls.Add(Me.배관구간길이MyTb)
Me.열분배GroupBox.Controls.Add(Me.Label222)
Me.열분배GroupBox.Controls.Add(Me.cmb_배관설치장소)
Me.열분배GroupBox.Controls.Add(Label15)
Me.열분배GroupBox.Controls.Add(Label16)
Me.열분배GroupBox.Controls.Add(Label17)
Me.열분배GroupBox.Controls.Add(Label18)
Me.열분배GroupBox.Controls.Add(Me.cmb_배관구간방식)
Me.열분배GroupBox.Controls.Add(Me.열분배PictureBox)
Me.열분배GroupBox.Location = New System.Drawing.Point(15, 146)
Me.열분배GroupBox.Name = "열분배GroupBox"
Me.열분배GroupBox.Size = New System.Drawing.Size(322, 170)
Me.열분배GroupBox.TabIndex = 131
Me.열분배GroupBox.TabStop = False
'
'열관류율MyTb
'
Me.열관류율MyTb.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bs, "열관류율", True))
Me.열관류율MyTb.Location = New System.Drawing.Point(227, 99)
Me.열관류율MyTb.Name = "열관류율MyTb"
Me.열관류율MyTb.NectControl = Nothing
Me.열관류율MyTb.Size = New System.Drawing.Size(87, 21)
Me.열관류율MyTb.TabIndex = 2
Me.열관류율MyTb.TextFormat = Eco2Ar.MyTb.ETFormat.Normal
'
'배관구간길이MyTb
'
Me.배관구간길이MyTb.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bs, "배관구간길이", True))
Me.배관구간길이MyTb.Location = New System.Drawing.Point(227, 71)
Me.배관구간길이MyTb.Name = "배관구간길이MyTb"
Me.배관구간길이MyTb.NectControl = Nothing
Me.배관구간길이MyTb.Size = New System.Drawing.Size(87, 21)
Me.배관구간길이MyTb.TabIndex = 1
Me.배관구간길이MyTb.TextFormat = Eco2Ar.MyTb.ETFormat.Normal
'
'Label222
'
Me.Label222.AutoSize = True
Me.Label222.BackColor = System.Drawing.Color.FromArgb(CType(CType(243, Byte), Integer), CType(CType(244, Byte), Integer), CType(CType(246, Byte), Integer))
Me.Label222.Font = New System.Drawing.Font("돋움체", 9.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label222.ForeColor = System.Drawing.Color.Black
Me.Label222.Location = New System.Drawing.Point(10, 15)
Me.Label222.Name = "Label222"
Me.Label222.Size = New System.Drawing.Size(198, 12)
Me.Label222.TabIndex = 0
Me.Label222.Text = "[입력 - 열분배 (난방과 급탕)]"
'
'cmb_배관설치장소
'
Me.cmb_배관설치장소.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
Me.cmb_배관설치장소.FormattingEnabled = True
Me.cmb_배관설치장소.Location = New System.Drawing.Point(227, 126)
Me.cmb_배관설치장소.Name = "cmb_배관설치장소"
Me.cmb_배관설치장소.NectControl = Nothing
Me.cmb_배관설치장소.Size = New System.Drawing.Size(87, 20)
Me.cmb_배관설치장소.TabIndex = 3
'
'cmb_배관구간방식
'
Me.cmb_배관구간방식.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
Me.cmb_배관구간방식.FormattingEnabled = True
Me.cmb_배관구간방식.Location = New System.Drawing.Point(227, 41)
Me.cmb_배관구간방식.Name = "cmb_배관구간방식"
Me.cmb_배관구간방식.NectControl = Nothing
Me.cmb_배관구간방식.Size = New System.Drawing.Size(87, 20)
Me.cmb_배관구간방식.TabIndex = 0
'
'열분배PictureBox
'
Me.열분배PictureBox.BackColor = System.Drawing.Color.FromArgb(CType(CType(243, Byte), Integer), CType(CType(244, Byte), Integer), CType(CType(246, Byte), Integer))
Me.열분배PictureBox.Location = New System.Drawing.Point(2, 9)
Me.열분배PictureBox.Name = "열분배PictureBox"
Me.열분배PictureBox.Size = New System.Drawing.Size(317, 157)
Me.열분배PictureBox.TabIndex = 25
Me.열분배PictureBox.TabStop = False
'
'GroupBox1
'
Me.GroupBox1.Controls.Add(Me.cmb_배관망유형)
Me.GroupBox1.Controls.Add(Me.Label1)
Me.GroupBox1.Controls.Add(Me.cmb_표준치적용)
Me.GroupBox1.Controls.Add(Me.Label19)
Me.GroupBox1.Controls.Add(Me.Label225)
Me.GroupBox1.Controls.Add(Me.cmb_생산기기구분)
Me.GroupBox1.Controls.Add(Me.PictureBox1)
Me.GroupBox1.Location = New System.Drawing.Point(15, 58)
Me.GroupBox1.Name = "GroupBox1"
Me.GroupBox1.Size = New System.Drawing.Size(574, 70)
Me.GroupBox1.TabIndex = 130
Me.GroupBox1.TabStop = False
'
'cmb_배관망유형
'
Me.cmb_배관망유형.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bs, "배관망유형", True))
Me.cmb_배관망유형.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
Me.cmb_배관망유형.FormattingEnabled = True
Me.cmb_배관망유형.Items.AddRange(New Object() {"난방", "급탕"})
Me.cmb_배관망유형.Location = New System.Drawing.Point(416, 39)
Me.cmb_배관망유형.Name = "cmb_배관망유형"
Me.cmb_배관망유형.NectControl = Nothing
Me.cmb_배관망유형.Size = New System.Drawing.Size(133, 20)
Me.cmb_배관망유형.TabIndex = 120
'
'cmb_표준치적용
'
Me.cmb_표준치적용.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
Me.cmb_표준치적용.FormattingEnabled = True
Me.cmb_표준치적용.Location = New System.Drawing.Point(243, 39)
Me.cmb_표준치적용.Name = "cmb_표준치적용"
Me.cmb_표준치적용.NectControl = Nothing
Me.cmb_표준치적용.Size = New System.Drawing.Size(124, 20)
Me.cmb_표준치적용.TabIndex = 1
'
'cmb_생산기기구분
'
Me.cmb_생산기기구분.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
Me.cmb_생산기기구분.Font = New System.Drawing.Font("돋움", 8.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(129, Byte))
Me.cmb_생산기기구분.FormattingEnabled = True
Me.cmb_생산기기구분.Location = New System.Drawing.Point(183, 14)
Me.cmb_생산기기구분.Name = "cmb_생산기기구분"
Me.cmb_생산기기구분.NectControl = Nothing
Me.cmb_생산기기구분.Size = New System.Drawing.Size(184, 19)
Me.cmb_생산기기구분.TabIndex = 0
'
'PictureBox1
'
Me.PictureBox1.BackColor = System.Drawing.Color.FromArgb(CType(CType(219, Byte), Integer), CType(CType(221, Byte), Integer), CType(CType(223, Byte), Integer))
Me.PictureBox1.Location = New System.Drawing.Point(1, 8)
Me.PictureBox1.Name = "PictureBox1"
Me.PictureBox1.Size = New System.Drawing.Size(571, 59)
Me.PictureBox1.TabIndex = 122
Me.PictureBox1.TabStop = False
'
'DataGridViewTextBoxColumn1
'
Me.DataGridViewTextBoxColumn1.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.Fill
Me.DataGridViewTextBoxColumn1.DataPropertyName = "설명"
Me.DataGridViewTextBoxColumn1.HeaderText = "설명"
Me.DataGridViewTextBoxColumn1.Name = "DataGridViewTextBoxColumn1"
Me.DataGridViewTextBoxColumn1.Resizable = System.Windows.Forms.DataGridViewTriState.[False]
Me.DataGridViewTextBoxColumn1.SortMode = System.Windows.Forms.DataGridViewColumnSortMode.Programmatic
'
'Frm_nBunbae
'
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.None
Me.ClientSize = New System.Drawing.Size(818, 574)
Me.ControlBox = False
Me.Controls.Add(Me.SplitContainer1)
Me.Font = New System.Drawing.Font("돋움", 8.999999!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(129, Byte))
Me.KeyPreview = True
Me.Name = "Frm_nBunbae"
Me.ShowInTaskbar = False
Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
Me.Text = "난방분배시스템"
CType(Me.bs, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.DS, System.ComponentModel.ISupportInitialize).EndInit()
Me.SplitContainer1.Panel1.ResumeLayout(False)
Me.SplitContainer1.Panel2.ResumeLayout(False)
Me.SplitContainer1.Panel2.PerformLayout()
CType(Me.SplitContainer1, System.ComponentModel.ISupportInitialize).EndInit()
Me.SplitContainer1.ResumeLayout(False)
CType(Me.dv, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.bn, System.ComponentModel.ISupportInitialize).EndInit()
Me.bn.ResumeLayout(False)
Me.bn.PerformLayout()
CType(Me.PictureBox4, System.ComponentModel.ISupportInitialize).EndInit()
Me.난방분배표준치GroupBox.ResumeLayout(False)
Me.난방분배표준치GroupBox.PerformLayout()
CType(Me.난방분배표준치PictureBox, System.ComponentModel.ISupportInitialize).EndInit()
Me.열분배GroupBox.ResumeLayout(False)
Me.열분배GroupBox.PerformLayout()
CType(Me.열분배PictureBox, System.ComponentModel.ISupportInitialize).EndInit()
Me.GroupBox1.ResumeLayout(False)
Me.GroupBox1.PerformLayout()
CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).EndInit()
Me.ResumeLayout(False)
End Sub
Public WithEvents DS As Eco2Ar.DS
Friend WithEvents bs As System.Windows.Forms.BindingSource
Friend WithEvents cmb_생산기기구분 As Eco2Ar.MyCmb
Friend WithEvents Label225 As System.Windows.Forms.Label
Friend WithEvents cmb_표준치적용 As Eco2Ar.MyCmb
Friend WithEvents Label19 As System.Windows.Forms.Label
Friend WithEvents 건물길이xMyTb As Eco2Ar.MyTb
Friend WithEvents 층고MyTb As Eco2Ar.MyTb
Friend WithEvents cmb_지관연결관장소 As Eco2Ar.MyCmb
Friend WithEvents 층수MyTb As Eco2Ar.MyTb
Friend WithEvents 건물길이yMyTb As Eco2Ar.MyTb
Friend WithEvents cmb_배관망유형 As Eco2Ar.MyCmb
Friend WithEvents Label1 As System.Windows.Forms.Label
Friend WithEvents SplitContainer1 As System.Windows.Forms.SplitContainer
Friend WithEvents bn As System.Windows.Forms.BindingNavigator
Friend WithEvents bt_add As System.Windows.Forms.ToolStripButton
Friend WithEvents bt_Del As System.Windows.Forms.ToolStripButton
Friend WithEvents bt_cancel As System.Windows.Forms.ToolStripButton
Friend WithEvents ToolStripSeparator1 As System.Windows.Forms.ToolStripSeparator
Friend WithEvents dv As CEnergy.arindv
Friend WithEvents Label2 As System.Windows.Forms.Label
Friend WithEvents lbl_count As System.Windows.Forms.ToolStripLabel
Friend WithEvents lbl_pos As System.Windows.Forms.ToolStripLabel
Friend WithEvents 난방분배표준치GroupBox As System.Windows.Forms.GroupBox
Friend WithEvents GroupBox1 As System.Windows.Forms.GroupBox
Friend WithEvents Label23 As System.Windows.Forms.Label
Friend WithEvents PictureBox4 As System.Windows.Forms.PictureBox
Friend WithEvents 난방분배표준치PictureBox As System.Windows.Forms.PictureBox
Friend WithEvents PictureBox1 As System.Windows.Forms.PictureBox
Friend WithEvents 열분배GroupBox As System.Windows.Forms.GroupBox
Friend WithEvents 열관류율MyTb As Eco2Ar.MyTb
Friend WithEvents 배관구간길이MyTb As Eco2Ar.MyTb
Friend WithEvents Label222 As System.Windows.Forms.Label
Friend WithEvents cmb_배관설치장소 As Eco2Ar.MyCmb
Friend WithEvents cmb_배관구간방식 As Eco2Ar.MyCmb
Friend WithEvents 열분배PictureBox As System.Windows.Forms.PictureBox
Friend WithEvents ToolStripSeparator2 As System.Windows.Forms.ToolStripSeparator
Friend WithEvents lb_code As System.Windows.Forms.ToolStripLabel
Friend WithEvents DataGridViewTextBoxColumn1 As System.Windows.Forms.DataGridViewTextBoxColumn
End Class

254
ArinWarev1/Forms_Input/Frm_nBunbae.resx Normal file
View File

@@ -0,0 +1,254 @@
<?xml version="1.0" encoding="utf-8"?>
<root>
<!--
Microsoft ResX Schema
Version 2.0
The primary goals of this format is to allow a simple XML format
that is mostly human readable. The generation and parsing of the
various data types are done through the TypeConverter classes
associated with the data types.
Example:
... ado.net/XML headers & schema ...
<resheader name="resmimetype">text/microsoft-resx</resheader>
<resheader name="version">2.0</resheader>
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
<data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
<value>[base64 mime encoded serialized .NET Framework object]</value>
</data>
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
<comment>This is a comment</comment>
</data>
There are any number of "resheader" rows that contain simple
name/value pairs.
Each data row contains a name, and value. The row also contains a
type or mimetype. Type corresponds to a .NET class that support
text/value conversion through the TypeConverter architecture.
Classes that don't support this are serialized and stored with the
mimetype set.
The mimetype is used for serialized objects, and tells the
ResXResourceReader how to depersist the object. This is currently not
extensible. For a given mimetype the value must be set accordingly:
Note - application/x-microsoft.net.object.binary.base64 is the format
that the ResXResourceWriter will generate, however the reader can
read any of the formats listed below.
mimetype: application/x-microsoft.net.object.binary.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.soap.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.bytearray.base64
value : The object must be serialized into a byte array
: using a System.ComponentModel.TypeConverter
: and then encoded with base64 encoding.
-->
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
<xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
<xsd:element name="root" msdata:IsDataSet="true">
<xsd:complexType>
<xsd:choice maxOccurs="unbounded">
<xsd:element name="metadata">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" />
</xsd:sequence>
<xsd:attribute name="name" use="required" type="xsd:string" />
<xsd:attribute name="type" type="xsd:string" />
<xsd:attribute name="mimetype" type="xsd:string" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="assembly">
<xsd:complexType>
<xsd:attribute name="alias" type="xsd:string" />
<xsd:attribute name="name" type="xsd:string" />
</xsd:complexType>
</xsd:element>
<xsd:element name="data">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="resheader">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" />
</xsd:complexType>
</xsd:element>
</xsd:choice>
</xsd:complexType>
</xsd:element>
</xsd:schema>
<resheader name="resmimetype">
<value>text/microsoft-resx</value>
</resheader>
<resheader name="version">
<value>2.0</value>
</resheader>
<resheader name="reader">
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<resheader name="writer">
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<metadata name="Label11.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</metadata>
<metadata name="Label10.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</metadata>
<metadata name="Label9.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</metadata>
<metadata name="Label8.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</metadata>
<metadata name="Label6.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</metadata>
<metadata name="Label18.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</metadata>
<metadata name="Label17.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</metadata>
<metadata name="Label16.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</metadata>
<metadata name="Label15.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<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>
</metadata>
<metadata name="DS.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>286, 17</value>
</metadata>
<metadata name="bn.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>353, 17</value>
</metadata>
<assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
<data name="PictureBox4.BackgroundImage" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
/9j/4AAQSkZJRgABAgEASABIAAD/7gAOQWRvYmUAZAAAAAAB/+ED5kV4aWYAAE1NACoAAAAIAAcBEgAD
AAAAAQABAAABGgAFAAAAAQAAAGIBGwAFAAAAAQAAAGoBKAADAAAAAQACAAABMQACAAAAHAAAAHIBMgAC
AAAAFAAAAI6HaQAEAAAAAQAAAKIAAADCAEgAAAABAAAASAAAAAEAAEFkb2JlIFBob3Rvc2hvcCBDUzMg
V2luZG93cwAyMDEwOjA0OjE1IDIwOjMyOjA0AAACoAIABAAAAAEAAAA8oAMABAAAAAEAAAAMAAAAAAAA
AAYBAwADAAAAAQAGAAABGgAFAAAAAQAAARABGwAFAAAAAQAAARgBKAADAAAAAQACAAACAQAEAAAAAQAA
ASACAgAEAAAAAQAAAr4AAAAAAAAASAAAAAEAAABIAAAAAf/Y/+AAEEpGSUYAAQIAAEgASAAA/+0ADEFk
b2JlX0NNAAH/7gAOQWRvYmUAZIAAAAAB/9sAhAAMCAgICQgMCQkMEQsKCxEVDwwMDxUYExMVExMYEQwM
DAwMDBEMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMAQ0LCw0ODRAODhAUDg4OFBQODg4OFBEMDAwM
DBERDAwMDAwMEQwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAz/wAARCAAMADwDASIAAhEBAxEB/90A
BAAE/8QBPwAAAQUBAQEBAQEAAAAAAAAAAwABAgQFBgcICQoLAQABBQEBAQEBAQAAAAAAAAABAAIDBAUG
BwgJCgsQAAEEAQMCBAIFBwYIBQMMMwEAAhEDBCESMQVBUWETInGBMgYUkaGxQiMkFVLBYjM0coLRQwcl
klPw4fFjczUWorKDJkSTVGRFwqN0NhfSVeJl8rOEw9N14/NGJ5SkhbSVxNTk9KW1xdXl9VZmdoaWprbG
1ub2N0dXZ3eHl6e3x9fn9xEAAgIBAgQEAwQFBgcHBgU1AQACEQMhMRIEQVFhcSITBTKBkRShsUIjwVLR
8DMkYuFygpJDUxVjczTxJQYWorKDByY1wtJEk1SjF2RFVTZ0ZeLys4TD03Xj80aUpIW0lcTU5PSltcXV
5fVWZnaGlqa2xtbm9ic3R1dnd4eXp7fH/9oADAMBAAIRAxEAPwDd/amR/pH/AOcf70v2pkf6R/8AnH+9
UUlofq/Bpevxb37UyP8ASP8A84/3pftTI/0j/wDOP96opJfq/BXr8W9+1Mj/AEj/APOP96X7UyP9I/8A
zj/eqKSX6vwV6/F3ujdbuGS2i5xfU8HVxktIG76XyW99vo27p0XGdO2/ba930dZj+q5dX+qfZPL8VAeD
341VVr/eZhx+0bu708n/2f/iDFhJQ0NfUFJPRklMRQABAQAADEhMaW5vAhAAAG1udHJSR0IgWFlaIAfO
AAIACQAGADEAAGFjc3BNU0ZUAAAAAElFQyBzUkdCAAAAAAAAAAAAAAAAAAD21gABAAAAANMtSFAgIAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAEWNwcnQAAAFQAAAAM2Rl
c2MAAAGEAAAAbHd0cHQAAAHwAAAAFGJrcHQAAAIEAAAAFHJYWVoAAAIYAAAAFGdYWVoAAAIsAAAAFGJY
WVoAAAJAAAAAFGRtbmQAAAJUAAAAcGRtZGQAAALEAAAAiHZ1ZWQAAANMAAAAhnZpZXcAAAPUAAAAJGx1
bWkAAAP4AAAAFG1lYXMAAAQMAAAAJHRlY2gAAAQwAAAADHJUUkMAAAQ8AAAIDGdUUkMAAAQ8AAAIDGJU
UkMAAAQ8AAAIDHRleHQAAAAAQ29weXJpZ2h0IChjKSAxOTk4IEhld2xldHQtUGFja2FyZCBDb21wYW55
AABkZXNjAAAAAAAAABJzUkdCIElFQzYxOTY2LTIuMQAAAAAAAAAAAAAAEnNSR0IgSUVDNjE5NjYtMi4x
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABYWVogAAAAAAAA
81EAAQAAAAEWzFhZWiAAAAAAAAAAAAAAAAAAAAAAWFlaIAAAAAAAAG+iAAA49QAAA5BYWVogAAAAAAAA
YpkAALeFAAAY2lhZWiAAAAAAAAAkoAAAD4QAALbPZGVzYwAAAAAAAAAWSUVDIGh0dHA6Ly93d3cuaWVj
LmNoAAAAAAAAAAAAAAAWSUVDIGh0dHA6Ly93d3cuaWVjLmNoAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAGRlc2MAAAAAAAAALklFQyA2MTk2Ni0yLjEgRGVmYXVsdCBSR0Ig
Y29sb3VyIHNwYWNlIC0gc1JHQgAAAAAAAAAAAAAALklFQyA2MTk2Ni0yLjEgRGVmYXVsdCBSR0IgY29s
b3VyIHNwYWNlIC0gc1JHQgAAAAAAAAAAAAAAAAAAAAAAAAAAAABkZXNjAAAAAAAAACxSZWZlcmVuY2Ug
Vmlld2luZyBDb25kaXRpb24gaW4gSUVDNjE5NjYtMi4xAAAAAAAAAAAAAAAsUmVmZXJlbmNlIFZpZXdp
bmcgQ29uZGl0aW9uIGluIElFQzYxOTY2LTIuMQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAdmlldwAA
AAAAE6T+ABRfLgAQzxQAA+3MAAQTCwADXJ4AAAABWFlaIAAAAAAATAlWAFAAAABXH+dtZWFzAAAAAAAA
AAEAAAAAAAAAAAAAAAAAAAAAAAACjwAAAAJzaWcgAAAAAENSVCBjdXJ2AAAAAAAABAAAAAAFAAoADwAU
ABkAHgAjACgALQAyADcAOwBAAEUASgBPAFQAWQBeAGMAaABtAHIAdwB8AIEAhgCLAJAAlQCaAJ8ApACp
AK4AsgC3ALwAwQDGAMsA0ADVANsA4ADlAOsA8AD2APsBAQEHAQ0BEwEZAR8BJQErATIBOAE+AUUBTAFS
AVkBYAFnAW4BdQF8AYMBiwGSAZoBoQGpAbEBuQHBAckB0QHZAeEB6QHyAfoCAwIMAhQCHQImAi8COAJB
AksCVAJdAmcCcQJ6AoQCjgKYAqICrAK2AsECywLVAuAC6wL1AwADCwMWAyEDLQM4A0MDTwNaA2YDcgN+
A4oDlgOiA64DugPHA9MD4APsA/kEBgQTBCAELQQ7BEgEVQRjBHEEfgSMBJoEqAS2BMQE0wThBPAE/gUN
BRwFKwU6BUkFWAVnBXcFhgWWBaYFtQXFBdUF5QX2BgYGFgYnBjcGSAZZBmoGewaMBp0GrwbABtEG4wb1
BwcHGQcrBz0HTwdhB3QHhgeZB6wHvwfSB+UH+AgLCB8IMghGCFoIbgiCCJYIqgi+CNII5wj7CRAJJQk6
CU8JZAl5CY8JpAm6Cc8J5Qn7ChEKJwo9ClQKagqBCpgKrgrFCtwK8wsLCyILOQtRC2kLgAuYC7ALyAvh
C/kMEgwqDEMMXAx1DI4MpwzADNkM8w0NDSYNQA1aDXQNjg2pDcMN3g34DhMOLg5JDmQOfw6bDrYO0g7u
DwkPJQ9BD14Peg+WD7MPzw/sEAkQJhBDEGEQfhCbELkQ1xD1ERMRMRFPEW0RjBGqEckR6BIHEiYSRRJk
EoQSoxLDEuMTAxMjE0MTYxODE6QTxRPlFAYUJxRJFGoUixStFM4U8BUSFTQVVhV4FZsVvRXgFgMWJhZJ
FmwWjxayFtYW+hcdF0EXZReJF64X0hf3GBsYQBhlGIoYrxjVGPoZIBlFGWsZkRm3Gd0aBBoqGlEadxqe
GsUa7BsUGzsbYxuKG7Ib2hwCHCocUhx7HKMczBz1HR4dRx1wHZkdwx3sHhYeQB5qHpQevh7pHxMfPh9p
H5Qfvx/qIBUgQSBsIJggxCDwIRwhSCF1IaEhziH7IiciVSKCIq8i3SMKIzgjZiOUI8Ij8CQfJE0kfCSr
JNolCSU4JWgllyXHJfcmJyZXJocmtyboJxgnSSd6J6sn3CgNKD8ocSiiKNQpBik4KWspnSnQKgIqNSpo
KpsqzysCKzYraSudK9EsBSw5LG4soizXLQwtQS12Last4S4WLkwugi63Lu4vJC9aL5Evxy/+MDUwbDCk
MNsxEjFKMYIxujHyMioyYzKbMtQzDTNGM38zuDPxNCs0ZTSeNNg1EzVNNYc1wjX9Njc2cjauNuk3JDdg
N5w31zgUOFA4jDjIOQU5Qjl/Obw5+To2OnQ6sjrvOy07azuqO+g8JzxlPKQ84z0iPWE9oT3gPiA+YD6g
PuA/IT9hP6I/4kAjQGRApkDnQSlBakGsQe5CMEJyQrVC90M6Q31DwEQDREdEikTORRJFVUWaRd5GIkZn
RqtG8Ec1R3tHwEgFSEtIkUjXSR1JY0mpSfBKN0p9SsRLDEtTS5pL4kwqTHJMuk0CTUpNk03cTiVObk63
TwBPSU+TT91QJ1BxULtRBlFQUZtR5lIxUnxSx1MTU19TqlP2VEJUj1TbVShVdVXCVg9WXFapVvdXRFeS
V+BYL1h9WMtZGllpWbhaB1pWWqZa9VtFW5Vb5Vw1XIZc1l0nXXhdyV4aXmxevV8PX2Ffs2AFYFdgqmD8
YU9homH1YklinGLwY0Njl2PrZEBklGTpZT1lkmXnZj1mkmboZz1nk2fpaD9olmjsaUNpmmnxakhqn2r3
a09rp2v/bFdsr20IbWBtuW4SbmtuxG8eb3hv0XArcIZw4HE6cZVx8HJLcqZzAXNdc7h0FHRwdMx1KHWF
deF2Pnabdvh3VnezeBF4bnjMeSp5iXnnekZ6pXsEe2N7wnwhfIF84X1BfaF+AX5ifsJ/I3+Ef+WAR4Co
gQqBa4HNgjCCkoL0g1eDuoQdhICE44VHhauGDoZyhteHO4efiASIaYjOiTOJmYn+imSKyoswi5aL/Ixj
jMqNMY2Yjf+OZo7OjzaPnpAGkG6Q1pE/kaiSEZJ6kuOTTZO2lCCUipT0lV+VyZY0lp+XCpd1l+CYTJi4
mSSZkJn8mmia1ZtCm6+cHJyJnPedZJ3SnkCerp8dn4uf+qBpoNihR6G2oiailqMGo3aj5qRWpMelOKWp
phqmi6b9p26n4KhSqMSpN6mpqhyqj6sCq3Wr6axcrNCtRK24ri2uoa8Wr4uwALB1sOqxYLHWskuywrM4
s660JbSctRO1irYBtnm28Ldot+C4WbjRuUq5wro7urW7LrunvCG8m70VvY++Cr6Evv+/er/1wHDA7MFn
wePCX8Lbw1jD1MRRxM7FS8XIxkbGw8dBx7/IPci8yTrJuco4yrfLNsu2zDXMtc01zbXONs62zzfPuNA5
0LrRPNG+0j/SwdNE08bUSdTL1U7V0dZV1tjXXNfg2GTY6Nls2fHadtr724DcBdyK3RDdlt4c3qLfKd+v
4DbgveFE4cziU+Lb42Pj6+Rz5PzlhOYN5pbnH+ep6DLovOlG6dDqW+rl63Dr++yG7RHtnO4o7rTvQO/M
8Fjw5fFy8f/yjPMZ86f0NPTC9VD13vZt9vv3ivgZ+Kj5OPnH+lf65/t3/Af8mP0p/br+S/7c/23////b
AEMAAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQICAgICAgICAgICAwMD
AwMDAwMDA//bAEMBAQEBAQEBAQEBAQICAQICAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMD
AwMDAwMDAwMDAwMDAwMDA//AABEIAAwAPAMBEQACEQEDEQH/xAAfAAABBQEBAQEBAQAAAAAAAAAAAQID
BAUGBwgJCgv/xAC1EAACAQMDAgQDBQUEBAAAAX0BAgMABBEFEiExQQYTUWEHInEUMoGRoQgjQrHBFVLR
8CQzYnKCCQoWFxgZGiUmJygpKjQ1Njc4OTpDREVGR0hJSlNUVVZXWFlaY2RlZmdoaWpzdHV2d3h5eoOE
hYaHiImKkpOUlZaXmJmaoqOkpaanqKmqsrO0tba3uLm6wsPExcbHyMnK0tPU1dbX2Nna4eLj5OXm5+jp
6vHy8/T19vf4+fr/xAAfAQADAQEBAQEBAQEBAAAAAAAAAQIDBAUGBwgJCgv/xAC1EQACAQIEBAMEBwUE
BAABAncAAQIDEQQFITEGEkFRB2FxEyIygQgUQpGhscEJIzNS8BVictEKFiQ04SXxFxgZGiYnKCkqNTY3
ODk6Q0RFRkdISUpTVFVWV1hZWmNkZWZnaGlqc3R1dnd4eXqCg4SFhoeIiYqSk5SVlpeYmZqio6Slpqeo
qaqys7S1tre4ubrCw8TFxsfIycrS09TV1tfY2dri4+Tl5ufo6ery8/T19vf4+fr/2gAMAwEAAhEDEQA/
AP1ZH7UPxEAA/wCEw8bnj/ob9f8A/k+v7U/1Nyj/AKF+G/8ABUP/AJE/llcSZlZf7dX/APBk/wDMX/hq
H4if9Df43/8ACv1//wCT6P8AU3Kf+hfhv/BUP/kQ/wBZcy/6Dq//AIMn/mH/AA1D8RP+hv8AG/8A4V+v
/wDyfR/qblP/AEL8N/4Kh/8AIh/rLmX/AEHV/wDwZP8AzD/hqH4if9Df43/8K/X/AP5Po/1Nyn/oX4b/
AMFQ/wDkQ/1lzL/oOr/+DJ/5h/w1D8RP+hv8b/8AhX6//wDJ9H+puU/9C/Df+Cof/Ih/rLmX/QdX/wDB
k/8AMT/hqH4if9Df43/8K/X/AP5Po/1Nyn/oX4b/AMFQ/wDkQ/1kzL/oOr/+DJ/5n2R+xz+234zt/iRp
nw+8a6vqXiDwZ4gs9baObXr+bUr/AMPajpmkX2tQ3FlqV2Zb57K7XT2t3tXkaJWkV4whVxJ+beJfAuU4
Th/FZ/hKEKOMw8qd+SKjGcZzjTs4q0bpyUlJK7s073VvuuBOLMxxGcYfJ8TWlVw1ZTtzu7hKMJTupPWz
UWnFu2qatrf9aP8AhfXgv+zv7U89/sfm+V5207N+M43fSv50P2w/kwr/AEFP42CgAoAKACgAoA9s/Z0/
s7/hcng3+1vP/s7Ov/avs2PP2f8ACL63t2buP9ZjP+zmvz7xU/5IPPf+4H/qRRPsvD//AJK7KP8AuL/6
ZqH7/wD/ABaT/hUfb7Ht/wBj7V9p8v8A9Cr+Oz+lz//Z
</value>
</data>
<metadata name="$this.TrayHeight" type="System.Int32, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>46</value>
</metadata>
</root>

553
ArinWarev1/Forms_Input/Frm_nBunbae.vb Normal file
View File

@@ -0,0 +1,553 @@
Public Class Frm_nBunbae
Dim Init As Boolean = False
Dim SrcDrv As DataRowView
#Region "data Base 변경여부및 적용방법"
'''변경된내용을적용한다.
Public Overrides Function AcceptChanged() As Boolean
bs.EndEdit()
Dim BaseDS As DataSet = CType(bs.DataSource, DataSet)
Dim BaseDT As DataTable = BaseDS.Tables(bs.DataMember)
BaseDT.AcceptChanges()
Return True
End Function
'''변경된내용이있다면 취소한다.
Public Overrides Function RejectChanged() As Boolean
Dim BaseDS As DataSet = CType(bs.DataSource, DataSet)
Dim BaseDT As DataTable = BaseDS.Tables(bs.DataMember)
BaseDT.RejectChanges()
Return True
End Function
'''데이터에변형이있었는가?
Public Overrides Function HasChanged() As Boolean
bs.EndEdit()
Dim BaseDS As DataSet = CType(bs.DataSource, DataSet)
Dim BaseDT As DataTable = BaseDS.Tables(bs.DataMember)
Dim ChangeDT As DataTable = BaseDT.GetChanges
If Not ChangeDT Is Nothing Then Return True
Return False
End Function
'''기본데이터테이블을 반환합니다.
Public Function DT() As DataTable
Dim BaseDS As DataSet = CType(bs.DataSource, DataSet)
Return BaseDS.Tables(bs.DataMember)
End Function
#End Region
Public Sub New(_opentime)
' 이 호출은 디자이너에 필요합니다.
InitializeComponent()
OpenTime = _opentime
' InitializeComponent() 호출 뒤에 초기화 코드를 추가하십시오.
End Sub
Private Sub ShowHistory()
Dim drv As DataRowView = Me.bs.Current
Dim f As New Frm_History("tbl_nbunbae", drv("code").ToString)
If f.ShowDialog = DialogResult.OK Then
drv(f.colname) = f.val
Me.Validate()
Me.bs.EndEdit()
My.Application.DoEvents()
MsgBox("값이 변경되었습니다", MsgBoxStyle.Information, "확인")
End If
End Sub
Private Sub AddNewDataRow_Zone_Changed2(ByVal sender As Object, ByVal e As System.Data.DataColumnChangeEventArgs)
Dim oval As String = e.Row(e.Column.ColumnName).ToString
Dim nval As String = e.ProposedValue.ToString
If oval <> nval Then
Dim newdr As DS2.historyRow = DSHistory.history.NewhistoryRow
newdr.time = Now.ToString("yyyy-MM-dd HH:mm:ss")
newdr.tablename = "tbl_nbunbae"
newdr.ovalue = oval
newdr.nvalue = nval
newdr.column = e.Column.ColumnName
newdr.code = e.Row("code").ToString
DSHistory.history.AddhistoryRow(newdr)
DSHistory.history.AcceptChanges()
End If
End Sub
Private Sub MdiMain_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Me.Show()
My.Application.DoEvents()
'Work_msg_timer("잠시만 기다려주세요")
' CEnergy.ARINCLASS.SaveLoad_FrmSetting(Me)
'//프로필 관련
'//공유데이터셋에 연결한다.
Me.bs.DataSource = DSET1
'//냉방분배
AddHandler DSET1.tbl_nbunbae.TableNewRow, AddressOf AddNewDataRow_bunbae
AddHandler DSET1.tbl_nbunbae.ColumnChanging, AddressOf AddNewDataRow_Zone_Changed2
'//모든컨트롤의 cTrl_enter 를 추가합니다
BindProperty(CType(Me.SplitContainer1.Panel2.Controls, Control.ControlCollection))
Binding_Zone()
Me.bs.Filter = "code <> '0'"
If Me.Parameter <> "" Then Me.bs.Filter &= " and 배관망유형 ='" + Me.Parameter + "'"
' Me.lb_grpname.Text = Me.Parameter
Me.Init = True
Try
Me.bs.Position = CEnergy.ARINCLASS.Read_LastPos_Frm(Me)
Catch ex As Exception
Me.bs.MoveFirst()
End Try
bs_CurrentChanged(sender, e)
Validate_Control()
AddDebug("▲ Form Load")
End Sub
#Region "Control_Enter"
Private Sub BindProperty(ByVal Ctl As Control.ControlCollection)
For Each C As Control In Ctl
If C.Controls.Count > 1 Then
BindProperty(C.Controls)
Else
If C.GetType.ToString.ToUpper.IndexOf("MYTB") <> -1 Then
AddHandler CType(C, MyTb).KeyDown, AddressOf TextBOx_KeyDown
ElseIf C.GetType.ToString.ToUpper.IndexOf("MYCMB") <> -1 Then
AddHandler CType(C, MyCmb).KeyDown, AddressOf Cmd_KeyDown
End If
End If
Next
End Sub
Private Sub TextBOx_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs)
If e.KeyCode = Keys.Enter AndAlso e.Control Then
Try
Dim Field As String = (CType(sender, MyTb).DataBindings.Item("text").BindingMemberInfo.BindingField)
For Each Dr As DataRow In Dt.Select(Me.bs.Filter, "")
Dr(Field) = CType(sender, MyTb).Text
Next
Work_msg_timer("모든값이 변경되었습니다", 25)
Catch ex As Exception
End Try
End If
End Sub
Private Sub Cmd_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs)
If e.KeyCode = Keys.Enter AndAlso e.Control Then
Try
Dim Field As String = (CType(sender, MyCmb).DataBindings.Item("selectedvalue").BindingMemberInfo.BindingField)
For Each Dr As DataRow In Dt.Select(Me.bs.Filter, "")
Dr(Field) = CType(sender, MyCmb).SelectedValue
Next
Work_msg_timer("모든값이 변경되었습니다", 25)
Catch ex As Exception
End Try
End If
End Sub
#End Region
#Region "냉방분배기기"
Private Sub MdiMain_FormClosed(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosedEventArgs) Handles Me.FormClosed
CEnergy.ARINCLASS.SaveLoad_FrmSetting(Me, Me.bs.Position, True)
End Sub
Private Sub MdiMain_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown
Select Case e.KeyCode
Case Keys.F12
ShowHistory()
End Select
End Sub
#Region "제어버튼"
Private Sub ToolStripButton48_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt_add.Click
If Not EndEdit(Me.bs) Then Return
Me.bs.AddNew()
INitRow(Me.Controls)
MdiMain.RefreshMenuList(TreeTag)
End Sub
Private Sub ToolStripButton49_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt_Del.Click
Dbbase.DelCrow(Me.bs, True)
MdiMain.RefreshMenuList(TreeTag)
End Sub
Private Sub ToolStripButton51_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt_cancel.Click
If Not EndEdit(Me.bs) Then Return
Data_Cancel(DSET1.tbl_profile, Nothing)
MdiMain.RefreshMenuList(TreeTag)
End Sub
#End Region
Private Function GetMaxCode(ByVal dt As DataTable) As String
Try
Dim Dr As DataRow = dt.Select("", "code desc")(0)
Return Format(CInt(Dr("code")) + 1, "0000")
Catch ex As Exception
Return "0001"
End Try
End Function
Private Sub Binding_Zone()
'//냉방분배시스템
Dim bs_생산기기구분 As New BindingSource(DSET1, "tbl_nanbangkiki")
bs_생산기기구분.Sort = "code"
Me.cmb_생산기기구분.DataSource = bs_생산기기구분
cmb_생산기기구분.DisplayMember = "설명"
cmb_생산기기구분.ValueMember = "code"
Me.cmb_생산기기구분.DataBindings.Add("selectedvalue", Me.bs, "생산기기구분")
'AddHandler cmb_생산기기구분.KeyDown, AddressOf Cmb_DeleteVal
Dim bs_표준치적용 As New BindingSource(DSET1, "tbl_common")
bs_표준치적용.Filter = "gubun='1080'"
bs_표준치적용.Sort = "code"
Me.cmb_표준치적용.DataSource = bs_표준치적용
cmb_표준치적용.DisplayMember = "name"
cmb_표준치적용.ValueMember = "name"
Me.cmb_표준치적용.DataBindings.Add("selectedvalue", Me.bs, "표준치적용")
'AddHandler cmb_표준치적용.KeyDown, AddressOf Cmb_DeleteVal
Dim bs_배관망유형 As New BindingSource(DSET1, "tbl_common")
bs_배관망유형.Filter = "gubun='1084'"
bs_배관망유형.Sort = "code"
Me.cmb_배관망유형.DataSource = bs_배관망유형
cmb_배관망유형.DisplayMember = "name"
cmb_배관망유형.ValueMember = "name"
Me.cmb_배관망유형.DataBindings.Add("selectedvalue", Me.bs, "배관망유형")
'AddHandler cmb_표준치적용.KeyDown, AddressOf Cmb_DeleteVal
Dim bs_배관구간방식 As New BindingSource(DSET1, "tbl_common")
bs_배관구간방식.Filter = "gubun='1081'"
bs_배관구간방식.Sort = "code"
Me.cmb_배관구간방식.DataSource = bs_배관구간방식
cmb_배관구간방식.DisplayMember = "name"
cmb_배관구간방식.ValueMember = "name"
Me.cmb_배관구간방식.DataBindings.Add("selectedvalue", Me.bs, "배관구간방식")
'AddHandler cmb_배관구간방식.KeyDown, AddressOf Cmb_DeleteVal
Dim bs_배관설치장소 As New BindingSource(DSET1, "tbl_common")
bs_배관설치장소.Filter = "gubun='1082'"
bs_배관설치장소.Sort = "code"
Me.cmb_배관설치장소.DataSource = bs_배관설치장소
cmb_배관설치장소.DisplayMember = "name"
cmb_배관설치장소.ValueMember = "name"
Me.cmb_배관설치장소.DataBindings.Add("selectedvalue", Me.bs, "배관설치장소")
'AddHandler cmb_배관설치장소.KeyDown, AddressOf Cmb_DeleteVal
Dim bs_지관연결관장소 As New BindingSource(DSET1, "tbl_common")
bs_지관연결관장소.Filter = "gubun='1083'"
bs_지관연결관장소.Sort = "code"
Me.cmb_지관연결관장소.DataSource = bs_지관연결관장소
cmb_지관연결관장소.DisplayMember = "name"
cmb_지관연결관장소.ValueMember = "name"
Me.cmb_지관연결관장소.DataBindings.Add("selectedvalue", Me.bs, "지관장소")
'AddHandler cmb_지관연결관장소.KeyDown, AddressOf Cmb_DeleteVal
End Sub
Private Sub Frm_V20091231_Zone_MouseWheel(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseWheel
If e.Delta < 0 Then
If Me.bs.Position < Me.bs.Count Then Me.bs.Position += 1
Else
If Me.bs.Position > 0 Then Me.bs.Position -= 1
End If
Me.Validate()
My.Application.DoEvents()
End Sub
Private Sub AddNewDataRow_bunbae(ByVal sender As Object, ByVal e As System.Data.DataTableNewRowEventArgs)
e.Row.Item("code") = GetMaxCode(DSET1.tbl_nbunbae)
e.Row.Item("설명") = "신규데이터"
End Sub
#End Region
Private Sub 냉동기ComboBox_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles cmb_생산기기구분.KeyDown
If e.KeyCode = Keys.V And e.Control Then
e.Handled = True
e.SuppressKeyPress = False
'//클립보드붙여넣기
Dim CB() As String = My.Computer.Clipboard.GetText.Split(CChar(vbCrLf))
If CB.GetUpperBound(0) <> 17 Then
MsgBox("붙여넣기가 호환되는 데이터가 아닙니다.", MsgBoxStyle.Information, "확인")
Return
End If
For ii As Integer = 0 To CType(CB(0).Split(CChar(vbTab)), String()).GetUpperBound(0)
If Me.bs.Count = 0 OrElse ii > 0 Then Me.bt_Add.PerformClick() '//한줄추가
Dim Cnt As Short = 0
For i As Integer = 0 To CB.GetUpperBound(0)
Select Case i
Case 0
CType(bs.Current, DataRowView)("설명") = CB(i).Split(CChar(vbTab))(ii).Trim
Case 0 + 2 '//사용프로필 앞에 두개를 숫자4자로변환
If CB(i).Split(CChar(vbTab))(ii).Trim = "" Then
Me.cmb_생산기기구분.SelectedIndex = 0
Else
Me.cmb_생산기기구분.Text = CB(i).Split(CChar(vbTab))(ii).Trim
End If
'Me.cmb_생산기기구분.Text = CStr(IIf( CB(i).Split(CChar(vbTab))(ii).Trim = "", "0", CB(i).Split(CChar(vbTab))(ii).Trim))
Case 1 + 2 '//공란
If CB(i).Split(CChar(vbTab))(ii).Trim = "" Then
Me.cmb_표준치적용.SelectedIndex = 0
Else
Me.cmb_표준치적용.Text = CB(i).Split(CChar(vbTab))(ii).Trim
End If
Case 2 + 2
If CB(i).Split(CChar(vbTab))(ii).Trim = "" Then
Me.cmb_배관망유형.SelectedIndex = 0
Else
Me.cmb_배관망유형.Text = CB(i).Split(CChar(vbTab))(ii).Trim
End If
' Me.cmb_표준치적용.Text = CStr(IIf( CB(i).Split(CChar(vbTab))(ii).Trim = "", "0", CB(i).Split(CChar(vbTab))(ii).Trim))
Case 3 + 2 + 2
If CB(i).Split(CChar(vbTab))(ii).Trim = "" Then
Me.cmb_배관구간방식.SelectedIndex = 0
Else
Me.cmb_배관구간방식.Text = CB(i).Split(CChar(vbTab))(ii).Trim
End If
'Me.cmb_배관구간방식.Text = CStr(IIf( CB(i).Split(CChar(vbTab))(ii).Trim = "", "0", CB(i).Split(CChar(vbTab))(ii).Trim))
Case 4 + 2 + 2
Me.배관구간길이MyTb.Text = CB(i).Split(CChar(vbTab))(ii).Trim
Case 5 + 2 + 2
Me.열관류율MyTb.Text = CB(i).Split(CChar(vbTab))(ii).Trim
Case 6 + 2 + 2
If CB(i).Split(CChar(vbTab))(ii).Trim = "" Then
Me.cmb_배관설치장소.SelectedIndex = 0
Else
Me.cmb_배관설치장소.Text = CB(i).Split(CChar(vbTab))(ii).Trim
End If
'Me.cmb_배관설치장소.Text = CStr(IIf( CB(i).Split(CChar(vbTab))(ii).Trim = "", "0", CB(i).Split(CChar(vbTab))(ii).Trim))
Case 8 + 2 + 2
Me.건물길이xMyTb.Text = CB(i).Split(CChar(vbTab))(ii).Trim
Case 9 + 2 + 2
Me.건물길이yMyTb.Text = CB(i).Split(CChar(vbTab))(ii).Trim
Case 10 + 2 + 2
Me.층수MyTb.Text = CB(i).Split(CChar(vbTab))(ii).Trim
Case 11 + 2 + 2
Me.층고MyTb.Text = CB(i).Split(CChar(vbTab))(ii).Trim
Case 12 + 2 + 2
If CB(i).Split(CChar(vbTab))(ii).Trim = "" Then
Me.cmb_지관연결관장소.SelectedIndex = 0
Else
Me.cmb_지관연결관장소.Text = CB(i).Split(CChar(vbTab))(ii).Trim
End If
'Me.cmb_지관연결관장소.Text = CStr(IIf(CB(i).Trim = "", "0", CB(i).Trim))
End Select
Next
Next
Me.bs.EndEdit()
End If
End Sub
Private Sub Validate_Control()
If Not Init Then Return
'Try
' If Me.조명부하산출방법ComboBox.SelectedValue.ToString = "0001" Then '//계산치
' Me.요구조도NTb1.Enabled = True
' Me.천장고NTB1.Enabled = True
' Me.작업면높이NTb1.Enabled = True
' Me.실깊이NTb.Enabled = True
' Me.실너비NTb.Enabled = True
' Me.실지수NTb1.Enabled = True
' Me.조명방식ComboBox.Enabled = True
' Me.인공광원ComboBox.Enabled = True
' Me.보수율NTb.Enabled = True
' 'Me.점등시간NTb.Enabled = False
' Me.조명기기효율NTb.Enabled = True
' Me.조명률NTb.Enabled = True
' Me.조명에너지부하율계산치NTb.Enabled = True
' Me.조명에너지부하율입력치NTb.Enabled = False
' Else
' Me.요구조도NTb1.Enabled = False
' Me.천장고NTB1.Enabled = False
' Me.작업면높이NTb1.Enabled = False
' Me.실깊이NTb.Enabled = False
' Me.실너비NTb.Enabled = False
' Me.실지수NTb1.Enabled = False
' Me.조명방식ComboBox.Enabled = False
' Me.인공광원ComboBox.Enabled = False
' Me.보수율NTb.Enabled = False
' 'Me.점등시간NTb.Enabled = False
' Me.조명기기효율NTb.Enabled = False
' Me.조명률NTb.Enabled = False
' Me.조명에너지부하율계산치NTb.Enabled = False
' Me.조명에너지부하율입력치NTb.Enabled = True
' 'Me.점등시간TextBox.Enabled = True
' End If
' Me.bs.EndEdit()
'Catch ex As Exception
'End Try
Try
If Me.cmb_표준치적용.Text = "상세입력" Then
열분배GroupBox.Enabled = True
난방분배표준치GroupBox.Enabled = False
열분배PictureBox.Enabled = True
난방분배표준치PictureBox.Enabled = False
If Me.cmb_배관망유형.Text = "급탕" Then
cmb_배관구간방식.Enabled = False
배관구간길이MyTb.Enabled = True
열관류율MyTb.Enabled = True
cmb_배관설치장소.Enabled = False
ElseIf Me.cmb_배관망유형.Text = "난방" Then
cmb_배관구간방식.Enabled = True
배관구간길이MyTb.Enabled = True
열관류율MyTb.Enabled = True
cmb_배관설치장소.Enabled = True
Else
cmb_배관구간방식.Enabled = False
배관구간길이MyTb.Enabled = False
열관류율MyTb.Enabled = False
cmb_배관설치장소.Enabled = False
End If
ElseIf Me.cmb_표준치적용.Text = "표준치조건" Then
열분배GroupBox.Enabled = False
열분배PictureBox.Enabled = False
If Me.cmb_배관망유형.Text = "급탕" Then
난방분배표준치GroupBox.Enabled = False
난방분배표준치PictureBox.Enabled = False
Else
난방분배표준치GroupBox.Enabled = True
난방분배표준치PictureBox.Enabled = True
End If
End If
Catch ex As Exception
End Try
End Sub
Private Sub SplitContainer1_Panel1_Paint(ByVal sender As System.Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles SplitContainer1.Panel1.Paint
End Sub
Private Sub bt_Del_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles bt_Del.MouseDown
If e.Button = Windows.Forms.MouseButtons.Right Then
If MsgBox("전체삭제를 하시겠습니까?", MsgBoxStyle.Information Or MsgBoxStyle.OkCancel, "확인") = MsgBoxResult.Ok Then
Dim dR() As DataRow = DSET1.tbl_nbunbae.Select(Me.bs.Filter, "")
For i As Integer = dR.GetUpperBound(0) To 0 Step -1
dR(i).Delete()
Next
DSET1.tbl_nbunbae.AcceptChanges()
End If
End If
End Sub
Private Sub cmb_배관망유형_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmb_배관망유형.SelectedIndexChanged
Validate_Control()
End Sub
Private Sub cmb_표준치적용_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmb_표준치적용.SelectedIndexChanged
Validate_Control()
End Sub
Private Sub dv_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles dv.MouseUp
If Prj.UserAuthType = "ADMIN" OrElse Prj.UserAuthType = "BOTH" OrElse Prj.UserAuthType = "BOTH2" OrElse Prj.UserAuthType = "BOTH1" Then '//2011.03.08 추가
If e.Button = Windows.Forms.MouseButtons.Right Then
Dim Frm_FilterA As New Frm_Filter
Frm_FilterA.ColumTitle = getColCaption(Me.Dt)
Frm_FilterA.ColumList = getColName(Me.Dt)
Frm_FilterA.Colorlist = "생산기기구분"
Frm_FilterA.Numfield = "" '//20100618 Color 리스트처럼 , 구분해서 필드들을 모두 넣으세요.(=, >= 등을 사용하기 위해서는 해당 항목을 추가 요망)
Frm_FilterA.Default_Filter = "code <> '0'"
If Frm_FilterA.ShowDialog <> Windows.Forms.DialogResult.OK Then Return '//창떳을떄 확인아ㅣ고 취소눌르면 다음을 수행하지않는다는거에요.
Dim Filter As String = Frm_FilterA.tb_filter.Text '//값은 아까 그 텍박에 잇구요.
Try
Me.bs.Filter = Filter
'//바꾸기값이 있으면 변경 20100618
If Frm_FilterA.cmb_fieldc.SelectedIndex >= 0 AndAlso Frm_FilterA.cmb_fieldc.Text.ToLower <> "code" AndAlso _
Frm_FilterA.tb_valuec.Text <> "" Then
Dim Drow() As DataRow = Me.Dt.Select(Filter)
For Each Dr As DataRow In Drow
Dr(Frm_FilterA.cmb_fieldc.Text) = Frm_FilterA.tb_valuec.Text
Next
MsgBox("바꾸기 완료", MsgBoxStyle.Information, "확인")
End If
Catch ex As Exception
Me.bs.Filter = ""
End Try
End If
End If
End Sub
Private Sub dv_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles dv.KeyDown
'//여기보시면 alt+d 누르면 한줄을 경고없이(falsE)삭제하도록 햇어요.. 사실원래 밋alt +d 인데.. ㅎㅎ 잘못해서 ctrl 됫다는
If Prj.UserAuthType = "ADMIN" OrElse Prj.UserAuthType = "BOTH" OrElse Prj.UserAuthType = "BOTH2" OrElse Prj.UserAuthType = "BOTH1" Then '//2011.03.08 추가
Select Case e.KeyCode
Case Keys.D
If e.Alt Then
Dbbase.DelCrow(Me.bs, False)
End If
Case Keys.C
If e.Control Then
Me.SrcDrv = Me.bs.Current
If Me.SrcDrv Is Nothing Then
MsgBox("저장할 ROW가 없습니다", MsgBoxStyle.Information, "확인")
Return
End If
' My.Computer.Clipboard.SetData("ZDATA", Drv)
End If
Case Keys.V
If e.Control Then
If Me.SrcDrv Is Nothing Then Return
Me.bt_add.PerformClick() '//신규추가
Dim NewDrv As DataRowView = Me.bs.Current
For Each C As DataColumn In Me.Dt.Columns
If C.ColumnName.ToUpper = "CODE" Then
ElseIf C.ColumnName.ToUpper = "설명" Then
NewDrv(C.ColumnName) = SrcDrv(C.ColumnName) & "#1"
Else
NewDrv(C.ColumnName) = SrcDrv(C.ColumnName)
End If
Next
Me.bs.EndEdit()
bs.MoveLast()
End If
End Select
End If
End Sub
Private Sub bs_CurrentChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles bs.CurrentChanged
If Not Init Then Return
Me.bs.EndEdit()
Dim drv As DataRowView = Me.bs.Current
If drv Is Nothing Then Return
Me.lb_code.Text = "[" + drv("code").ToString + "]"
End Sub
Private Sub dv_CellContentClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles dv.CellContentClick
End Sub
End Class

1662
ArinWarev1/Forms_Input/Frm_v20091231_Myoun.Designer.vb generated Normal file
View File

File diff suppressed because it is too large Load Diff

372
ArinWarev1/Forms_Input/Frm_v20091231_Myoun.resx Normal file
View File

@@ -0,0 +1,372 @@
<?xml version="1.0" encoding="utf-8"?>
<root>
<!--
Microsoft ResX Schema
Version 2.0
The primary goals of this format is to allow a simple XML format
that is mostly human readable. The generation and parsing of the
various data types are done through the TypeConverter classes
associated with the data types.
Example:
... ado.net/XML headers & schema ...
<resheader name="resmimetype">text/microsoft-resx</resheader>
<resheader name="version">2.0</resheader>
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
<data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
<value>[base64 mime encoded serialized .NET Framework object]</value>
</data>
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
<comment>This is a comment</comment>
</data>
There are any number of "resheader" rows that contain simple
name/value pairs.
Each data row contains a name, and value. The row also contains a
type or mimetype. Type corresponds to a .NET class that support
text/value conversion through the TypeConverter architecture.
Classes that don't support this are serialized and stored with the
mimetype set.
The mimetype is used for serialized objects, and tells the
ResXResourceReader how to depersist the object. This is currently not
extensible. For a given mimetype the value must be set accordingly:
Note - application/x-microsoft.net.object.binary.base64 is the format
that the ResXResourceWriter will generate, however the reader can
read any of the formats listed below.
mimetype: application/x-microsoft.net.object.binary.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.soap.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.bytearray.base64
value : The object must be serialized into a byte array
: using a System.ComponentModel.TypeConverter
: and then encoded with base64 encoding.
-->
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
<xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
<xsd:element name="root" msdata:IsDataSet="true">
<xsd:complexType>
<xsd:choice maxOccurs="unbounded">
<xsd:element name="metadata">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" />
</xsd:sequence>
<xsd:attribute name="name" use="required" type="xsd:string" />
<xsd:attribute name="type" type="xsd:string" />
<xsd:attribute name="mimetype" type="xsd:string" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="assembly">
<xsd:complexType>
<xsd:attribute name="alias" type="xsd:string" />
<xsd:attribute name="name" type="xsd:string" />
</xsd:complexType>
</xsd:element>
<xsd:element name="data">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="resheader">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" />
</xsd:complexType>
</xsd:element>
</xsd:choice>
</xsd:complexType>
</xsd:element>
</xsd:schema>
<resheader name="resmimetype">
<value>text/microsoft-resx</value>
</resheader>
<resheader name="version">
<value>2.0</value>
</resheader>
<resheader name="reader">
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<resheader name="writer">
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<metadata name="Label157.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</metadata>
<metadata name="Label160.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</metadata>
<metadata name="Label148.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</metadata>
<metadata name="Label149.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</metadata>
<metadata name="Label151.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</metadata>
<metadata name="Label144.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</metadata>
<metadata name="Label145.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</metadata>
<metadata name="Label146.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</metadata>
<metadata name="Label147.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>17, 17</value>
</metadata>
<metadata name="DS.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>109, 17</value>
</metadata>
<metadata name="bszone.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>451, 17</value>
</metadata>
<metadata name="ToolTip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>242, 17</value>
</metadata>
<metadata name="bn.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>176, 17</value>
</metadata>
<metadata name="sortkey.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>True</value>
</metadata>
<metadata name="Column1.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>True</value>
</metadata>
<metadata name="존분류.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>True</value>
</metadata>
<metadata name="BindingNavigator1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>542, 17</value>
</metadata>
<metadata name="ToolStrip2.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>698, 17</value>
</metadata>
<metadata name="ToolStrip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>342, 17</value>
</metadata>
<assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
<data name="PictureBox1.BackgroundImage" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
/9j/4AAQSkZJRgABAgEASABIAAD/7gAOQWRvYmUAZAAAAAAB/+ED5kV4aWYAAE1NACoAAAAIAAcBEgAD
AAAAAQABAAABGgAFAAAAAQAAAGIBGwAFAAAAAQAAAGoBKAADAAAAAQACAAABMQACAAAAHAAAAHIBMgAC
AAAAFAAAAI6HaQAEAAAAAQAAAKIAAADCAEgAAAABAAAASAAAAAEAAEFkb2JlIFBob3Rvc2hvcCBDUzMg
V2luZG93cwAyMDEwOjA0OjE1IDIwOjMyOjA0AAACoAIABAAAAAEAAAA8oAMABAAAAAEAAAAMAAAAAAAA
AAYBAwADAAAAAQAGAAABGgAFAAAAAQAAARABGwAFAAAAAQAAARgBKAADAAAAAQACAAACAQAEAAAAAQAA
ASACAgAEAAAAAQAAAr4AAAAAAAAASAAAAAEAAABIAAAAAf/Y/+AAEEpGSUYAAQIAAEgASAAA/+0ADEFk
b2JlX0NNAAH/7gAOQWRvYmUAZIAAAAAB/9sAhAAMCAgICQgMCQkMEQsKCxEVDwwMDxUYExMVExMYEQwM
DAwMDBEMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMAQ0LCw0ODRAODhAUDg4OFBQODg4OFBEMDAwM
DBERDAwMDAwMEQwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAz/wAARCAAMADwDASIAAhEBAxEB/90A
BAAE/8QBPwAAAQUBAQEBAQEAAAAAAAAAAwABAgQFBgcICQoLAQABBQEBAQEBAQAAAAAAAAABAAIDBAUG
BwgJCgsQAAEEAQMCBAIFBwYIBQMMMwEAAhEDBCESMQVBUWETInGBMgYUkaGxQiMkFVLBYjM0coLRQwcl
klPw4fFjczUWorKDJkSTVGRFwqN0NhfSVeJl8rOEw9N14/NGJ5SkhbSVxNTk9KW1xdXl9VZmdoaWprbG
1ub2N0dXZ3eHl6e3x9fn9xEAAgIBAgQEAwQFBgcHBgU1AQACEQMhMRIEQVFhcSITBTKBkRShsUIjwVLR
8DMkYuFygpJDUxVjczTxJQYWorKDByY1wtJEk1SjF2RFVTZ0ZeLys4TD03Xj80aUpIW0lcTU5PSltcXV
5fVWZnaGlqa2xtbm9ic3R1dnd4eXp7fH/9oADAMBAAIRAxEAPwDd/amR/pH/AOcf70v2pkf6R/8AnH+9
UUlofq/Bpevxb37UyP8ASP8A84/3pftTI/0j/wDOP96opJfq/BXr8W9+1Mj/AEj/APOP96X7UyP9I/8A
zj/eqKSX6vwV6/F3ujdbuGS2i5xfU8HVxktIG76XyW99vo27p0XGdO2/ba930dZj+q5dX+qfZPL8VAeD
341VVr/eZhx+0bu708n/2f/iDFhJQ0NfUFJPRklMRQABAQAADEhMaW5vAhAAAG1udHJSR0IgWFlaIAfO
AAIACQAGADEAAGFjc3BNU0ZUAAAAAElFQyBzUkdCAAAAAAAAAAAAAAAAAAD21gABAAAAANMtSFAgIAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAEWNwcnQAAAFQAAAAM2Rl
c2MAAAGEAAAAbHd0cHQAAAHwAAAAFGJrcHQAAAIEAAAAFHJYWVoAAAIYAAAAFGdYWVoAAAIsAAAAFGJY
WVoAAAJAAAAAFGRtbmQAAAJUAAAAcGRtZGQAAALEAAAAiHZ1ZWQAAANMAAAAhnZpZXcAAAPUAAAAJGx1
bWkAAAP4AAAAFG1lYXMAAAQMAAAAJHRlY2gAAAQwAAAADHJUUkMAAAQ8AAAIDGdUUkMAAAQ8AAAIDGJU
UkMAAAQ8AAAIDHRleHQAAAAAQ29weXJpZ2h0IChjKSAxOTk4IEhld2xldHQtUGFja2FyZCBDb21wYW55
AABkZXNjAAAAAAAAABJzUkdCIElFQzYxOTY2LTIuMQAAAAAAAAAAAAAAEnNSR0IgSUVDNjE5NjYtMi4x
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABYWVogAAAAAAAA
81EAAQAAAAEWzFhZWiAAAAAAAAAAAAAAAAAAAAAAWFlaIAAAAAAAAG+iAAA49QAAA5BYWVogAAAAAAAA
YpkAALeFAAAY2lhZWiAAAAAAAAAkoAAAD4QAALbPZGVzYwAAAAAAAAAWSUVDIGh0dHA6Ly93d3cuaWVj
LmNoAAAAAAAAAAAAAAAWSUVDIGh0dHA6Ly93d3cuaWVjLmNoAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAGRlc2MAAAAAAAAALklFQyA2MTk2Ni0yLjEgRGVmYXVsdCBSR0Ig
Y29sb3VyIHNwYWNlIC0gc1JHQgAAAAAAAAAAAAAALklFQyA2MTk2Ni0yLjEgRGVmYXVsdCBSR0IgY29s
b3VyIHNwYWNlIC0gc1JHQgAAAAAAAAAAAAAAAAAAAAAAAAAAAABkZXNjAAAAAAAAACxSZWZlcmVuY2Ug
Vmlld2luZyBDb25kaXRpb24gaW4gSUVDNjE5NjYtMi4xAAAAAAAAAAAAAAAsUmVmZXJlbmNlIFZpZXdp
bmcgQ29uZGl0aW9uIGluIElFQzYxOTY2LTIuMQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAdmlldwAA
AAAAE6T+ABRfLgAQzxQAA+3MAAQTCwADXJ4AAAABWFlaIAAAAAAATAlWAFAAAABXH+dtZWFzAAAAAAAA
AAEAAAAAAAAAAAAAAAAAAAAAAAACjwAAAAJzaWcgAAAAAENSVCBjdXJ2AAAAAAAABAAAAAAFAAoADwAU
ABkAHgAjACgALQAyADcAOwBAAEUASgBPAFQAWQBeAGMAaABtAHIAdwB8AIEAhgCLAJAAlQCaAJ8ApACp
AK4AsgC3ALwAwQDGAMsA0ADVANsA4ADlAOsA8AD2APsBAQEHAQ0BEwEZAR8BJQErATIBOAE+AUUBTAFS
AVkBYAFnAW4BdQF8AYMBiwGSAZoBoQGpAbEBuQHBAckB0QHZAeEB6QHyAfoCAwIMAhQCHQImAi8COAJB
AksCVAJdAmcCcQJ6AoQCjgKYAqICrAK2AsECywLVAuAC6wL1AwADCwMWAyEDLQM4A0MDTwNaA2YDcgN+
A4oDlgOiA64DugPHA9MD4APsA/kEBgQTBCAELQQ7BEgEVQRjBHEEfgSMBJoEqAS2BMQE0wThBPAE/gUN
BRwFKwU6BUkFWAVnBXcFhgWWBaYFtQXFBdUF5QX2BgYGFgYnBjcGSAZZBmoGewaMBp0GrwbABtEG4wb1
BwcHGQcrBz0HTwdhB3QHhgeZB6wHvwfSB+UH+AgLCB8IMghGCFoIbgiCCJYIqgi+CNII5wj7CRAJJQk6
CU8JZAl5CY8JpAm6Cc8J5Qn7ChEKJwo9ClQKagqBCpgKrgrFCtwK8wsLCyILOQtRC2kLgAuYC7ALyAvh
C/kMEgwqDEMMXAx1DI4MpwzADNkM8w0NDSYNQA1aDXQNjg2pDcMN3g34DhMOLg5JDmQOfw6bDrYO0g7u
DwkPJQ9BD14Peg+WD7MPzw/sEAkQJhBDEGEQfhCbELkQ1xD1ERMRMRFPEW0RjBGqEckR6BIHEiYSRRJk
EoQSoxLDEuMTAxMjE0MTYxODE6QTxRPlFAYUJxRJFGoUixStFM4U8BUSFTQVVhV4FZsVvRXgFgMWJhZJ
FmwWjxayFtYW+hcdF0EXZReJF64X0hf3GBsYQBhlGIoYrxjVGPoZIBlFGWsZkRm3Gd0aBBoqGlEadxqe
GsUa7BsUGzsbYxuKG7Ib2hwCHCocUhx7HKMczBz1HR4dRx1wHZkdwx3sHhYeQB5qHpQevh7pHxMfPh9p
H5Qfvx/qIBUgQSBsIJggxCDwIRwhSCF1IaEhziH7IiciVSKCIq8i3SMKIzgjZiOUI8Ij8CQfJE0kfCSr
JNolCSU4JWgllyXHJfcmJyZXJocmtyboJxgnSSd6J6sn3CgNKD8ocSiiKNQpBik4KWspnSnQKgIqNSpo
KpsqzysCKzYraSudK9EsBSw5LG4soizXLQwtQS12Last4S4WLkwugi63Lu4vJC9aL5Evxy/+MDUwbDCk
MNsxEjFKMYIxujHyMioyYzKbMtQzDTNGM38zuDPxNCs0ZTSeNNg1EzVNNYc1wjX9Njc2cjauNuk3JDdg
N5w31zgUOFA4jDjIOQU5Qjl/Obw5+To2OnQ6sjrvOy07azuqO+g8JzxlPKQ84z0iPWE9oT3gPiA+YD6g
PuA/IT9hP6I/4kAjQGRApkDnQSlBakGsQe5CMEJyQrVC90M6Q31DwEQDREdEikTORRJFVUWaRd5GIkZn
RqtG8Ec1R3tHwEgFSEtIkUjXSR1JY0mpSfBKN0p9SsRLDEtTS5pL4kwqTHJMuk0CTUpNk03cTiVObk63
TwBPSU+TT91QJ1BxULtRBlFQUZtR5lIxUnxSx1MTU19TqlP2VEJUj1TbVShVdVXCVg9WXFapVvdXRFeS
V+BYL1h9WMtZGllpWbhaB1pWWqZa9VtFW5Vb5Vw1XIZc1l0nXXhdyV4aXmxevV8PX2Ffs2AFYFdgqmD8
YU9homH1YklinGLwY0Njl2PrZEBklGTpZT1lkmXnZj1mkmboZz1nk2fpaD9olmjsaUNpmmnxakhqn2r3
a09rp2v/bFdsr20IbWBtuW4SbmtuxG8eb3hv0XArcIZw4HE6cZVx8HJLcqZzAXNdc7h0FHRwdMx1KHWF
deF2Pnabdvh3VnezeBF4bnjMeSp5iXnnekZ6pXsEe2N7wnwhfIF84X1BfaF+AX5ifsJ/I3+Ef+WAR4Co
gQqBa4HNgjCCkoL0g1eDuoQdhICE44VHhauGDoZyhteHO4efiASIaYjOiTOJmYn+imSKyoswi5aL/Ixj
jMqNMY2Yjf+OZo7OjzaPnpAGkG6Q1pE/kaiSEZJ6kuOTTZO2lCCUipT0lV+VyZY0lp+XCpd1l+CYTJi4
mSSZkJn8mmia1ZtCm6+cHJyJnPedZJ3SnkCerp8dn4uf+qBpoNihR6G2oiailqMGo3aj5qRWpMelOKWp
phqmi6b9p26n4KhSqMSpN6mpqhyqj6sCq3Wr6axcrNCtRK24ri2uoa8Wr4uwALB1sOqxYLHWskuywrM4
s660JbSctRO1irYBtnm28Ldot+C4WbjRuUq5wro7urW7LrunvCG8m70VvY++Cr6Evv+/er/1wHDA7MFn
wePCX8Lbw1jD1MRRxM7FS8XIxkbGw8dBx7/IPci8yTrJuco4yrfLNsu2zDXMtc01zbXONs62zzfPuNA5
0LrRPNG+0j/SwdNE08bUSdTL1U7V0dZV1tjXXNfg2GTY6Nls2fHadtr724DcBdyK3RDdlt4c3qLfKd+v
4DbgveFE4cziU+Lb42Pj6+Rz5PzlhOYN5pbnH+ep6DLovOlG6dDqW+rl63Dr++yG7RHtnO4o7rTvQO/M
8Fjw5fFy8f/yjPMZ86f0NPTC9VD13vZt9vv3ivgZ+Kj5OPnH+lf65/t3/Af8mP0p/br+S/7c/23////b
AEMAAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQICAgICAgICAgICAwMD
AwMDAwMDA//bAEMBAQEBAQEBAQEBAQICAQICAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMD
AwMDAwMDAwMDAwMDAwMDA//AABEIAAwAPAMBEQACEQEDEQH/xAAfAAABBQEBAQEBAQAAAAAAAAAAAQID
BAUGBwgJCgv/xAC1EAACAQMDAgQDBQUEBAAAAX0BAgMABBEFEiExQQYTUWEHInEUMoGRoQgjQrHBFVLR
8CQzYnKCCQoWFxgZGiUmJygpKjQ1Njc4OTpDREVGR0hJSlNUVVZXWFlaY2RlZmdoaWpzdHV2d3h5eoOE
hYaHiImKkpOUlZaXmJmaoqOkpaanqKmqsrO0tba3uLm6wsPExcbHyMnK0tPU1dbX2Nna4eLj5OXm5+jp
6vHy8/T19vf4+fr/xAAfAQADAQEBAQEBAQEBAAAAAAAAAQIDBAUGBwgJCgv/xAC1EQACAQIEBAMEBwUE
BAABAncAAQIDEQQFITEGEkFRB2FxEyIygQgUQpGhscEJIzNS8BVictEKFiQ04SXxFxgZGiYnKCkqNTY3
ODk6Q0RFRkdISUpTVFVWV1hZWmNkZWZnaGlqc3R1dnd4eXqCg4SFhoeIiYqSk5SVlpeYmZqio6Slpqeo
qaqys7S1tre4ubrCw8TFxsfIycrS09TV1tfY2dri4+Tl5ufo6ery8/T19vf4+fr/2gAMAwEAAhEDEQA/
AP1ZH7UPxEAA/wCEw8bnj/ob9f8A/k+v7U/1Nyj/AKF+G/8ABUP/AJE/llcSZlZf7dX/APBk/wDMX/hq
H4if9Df43/8ACv1//wCT6P8AU3Kf+hfhv/BUP/kQ/wBZcy/6Dq//AIMn/mH/AA1D8RP+hv8AG/8A4V+v
/wDyfR/qblP/AEL8N/4Kh/8AIh/rLmX/AEHV/wDwZP8AzD/hqH4if9Df43/8K/X/AP5Po/1Nyn/oX4b/
AMFQ/wDkQ/1lzL/oOr/+DJ/5h/w1D8RP+hv8b/8AhX6//wDJ9H+puU/9C/Df+Cof/Ih/rLmX/QdX/wDB
k/8AMT/hqH4if9Df43/8K/X/AP5Po/1Nyn/oX4b/AMFQ/wDkQ/1kzL/oOr/+DJ/5n2R+xz+234zt/iRp
nw+8a6vqXiDwZ4gs9baObXr+bUr/AMPajpmkX2tQ3FlqV2Zb57K7XT2t3tXkaJWkV4whVxJ+beJfAuU4
Th/FZ/hKEKOMw8qd+SKjGcZzjTs4q0bpyUlJK7s073VvuuBOLMxxGcYfJ8TWlVw1ZTtzu7hKMJTupPWz
UWnFu2qatrf9aP8AhfXgv+zv7U89/sfm+V5207N+M43fSv50P2w/kwr/AEFP42CgAoAKACgAoA9s/Z0/
s7/hcng3+1vP/s7Ov/avs2PP2f8ACL63t2buP9ZjP+zmvz7xU/5IPPf+4H/qRRPsvD//AJK7KP8AuL/6
ZqH7/wD/ABaT/hUfb7Ht/wBj7V9p8v8A9Cr+Oz+lz//Z
</value>
</data>
<data name="PictureBox4.BackgroundImage" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
/9j/4AAQSkZJRgABAgEASABIAAD/7gAOQWRvYmUAZAAAAAAB/+ED5kV4aWYAAE1NACoAAAAIAAcBEgAD
AAAAAQABAAABGgAFAAAAAQAAAGIBGwAFAAAAAQAAAGoBKAADAAAAAQACAAABMQACAAAAHAAAAHIBMgAC
AAAAFAAAAI6HaQAEAAAAAQAAAKIAAADCAEgAAAABAAAASAAAAAEAAEFkb2JlIFBob3Rvc2hvcCBDUzMg
V2luZG93cwAyMDEwOjA0OjE1IDIwOjMyOjA0AAACoAIABAAAAAEAAAA8oAMABAAAAAEAAAAMAAAAAAAA
AAYBAwADAAAAAQAGAAABGgAFAAAAAQAAARABGwAFAAAAAQAAARgBKAADAAAAAQACAAACAQAEAAAAAQAA
ASACAgAEAAAAAQAAAr4AAAAAAAAASAAAAAEAAABIAAAAAf/Y/+AAEEpGSUYAAQIAAEgASAAA/+0ADEFk
b2JlX0NNAAH/7gAOQWRvYmUAZIAAAAAB/9sAhAAMCAgICQgMCQkMEQsKCxEVDwwMDxUYExMVExMYEQwM
DAwMDBEMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMAQ0LCw0ODRAODhAUDg4OFBQODg4OFBEMDAwM
DBERDAwMDAwMEQwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAz/wAARCAAMADwDASIAAhEBAxEB/90A
BAAE/8QBPwAAAQUBAQEBAQEAAAAAAAAAAwABAgQFBgcICQoLAQABBQEBAQEBAQAAAAAAAAABAAIDBAUG
BwgJCgsQAAEEAQMCBAIFBwYIBQMMMwEAAhEDBCESMQVBUWETInGBMgYUkaGxQiMkFVLBYjM0coLRQwcl
klPw4fFjczUWorKDJkSTVGRFwqN0NhfSVeJl8rOEw9N14/NGJ5SkhbSVxNTk9KW1xdXl9VZmdoaWprbG
1ub2N0dXZ3eHl6e3x9fn9xEAAgIBAgQEAwQFBgcHBgU1AQACEQMhMRIEQVFhcSITBTKBkRShsUIjwVLR
8DMkYuFygpJDUxVjczTxJQYWorKDByY1wtJEk1SjF2RFVTZ0ZeLys4TD03Xj80aUpIW0lcTU5PSltcXV
5fVWZnaGlqa2xtbm9ic3R1dnd4eXp7fH/9oADAMBAAIRAxEAPwDd/amR/pH/AOcf70v2pkf6R/8AnH+9
UUlofq/Bpevxb37UyP8ASP8A84/3pftTI/0j/wDOP96opJfq/BXr8W9+1Mj/AEj/APOP96X7UyP9I/8A
zj/eqKSX6vwV6/F3ujdbuGS2i5xfU8HVxktIG76XyW99vo27p0XGdO2/ba930dZj+q5dX+qfZPL8VAeD
341VVr/eZhx+0bu708n/2f/iDFhJQ0NfUFJPRklMRQABAQAADEhMaW5vAhAAAG1udHJSR0IgWFlaIAfO
AAIACQAGADEAAGFjc3BNU0ZUAAAAAElFQyBzUkdCAAAAAAAAAAAAAAAAAAD21gABAAAAANMtSFAgIAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAEWNwcnQAAAFQAAAAM2Rl
c2MAAAGEAAAAbHd0cHQAAAHwAAAAFGJrcHQAAAIEAAAAFHJYWVoAAAIYAAAAFGdYWVoAAAIsAAAAFGJY
WVoAAAJAAAAAFGRtbmQAAAJUAAAAcGRtZGQAAALEAAAAiHZ1ZWQAAANMAAAAhnZpZXcAAAPUAAAAJGx1
bWkAAAP4AAAAFG1lYXMAAAQMAAAAJHRlY2gAAAQwAAAADHJUUkMAAAQ8AAAIDGdUUkMAAAQ8AAAIDGJU
UkMAAAQ8AAAIDHRleHQAAAAAQ29weXJpZ2h0IChjKSAxOTk4IEhld2xldHQtUGFja2FyZCBDb21wYW55
AABkZXNjAAAAAAAAABJzUkdCIElFQzYxOTY2LTIuMQAAAAAAAAAAAAAAEnNSR0IgSUVDNjE5NjYtMi4x
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABYWVogAAAAAAAA
81EAAQAAAAEWzFhZWiAAAAAAAAAAAAAAAAAAAAAAWFlaIAAAAAAAAG+iAAA49QAAA5BYWVogAAAAAAAA
YpkAALeFAAAY2lhZWiAAAAAAAAAkoAAAD4QAALbPZGVzYwAAAAAAAAAWSUVDIGh0dHA6Ly93d3cuaWVj
LmNoAAAAAAAAAAAAAAAWSUVDIGh0dHA6Ly93d3cuaWVjLmNoAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAGRlc2MAAAAAAAAALklFQyA2MTk2Ni0yLjEgRGVmYXVsdCBSR0Ig
Y29sb3VyIHNwYWNlIC0gc1JHQgAAAAAAAAAAAAAALklFQyA2MTk2Ni0yLjEgRGVmYXVsdCBSR0IgY29s
b3VyIHNwYWNlIC0gc1JHQgAAAAAAAAAAAAAAAAAAAAAAAAAAAABkZXNjAAAAAAAAACxSZWZlcmVuY2Ug
Vmlld2luZyBDb25kaXRpb24gaW4gSUVDNjE5NjYtMi4xAAAAAAAAAAAAAAAsUmVmZXJlbmNlIFZpZXdp
bmcgQ29uZGl0aW9uIGluIElFQzYxOTY2LTIuMQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAdmlldwAA
AAAAE6T+ABRfLgAQzxQAA+3MAAQTCwADXJ4AAAABWFlaIAAAAAAATAlWAFAAAABXH+dtZWFzAAAAAAAA
AAEAAAAAAAAAAAAAAAAAAAAAAAACjwAAAAJzaWcgAAAAAENSVCBjdXJ2AAAAAAAABAAAAAAFAAoADwAU
ABkAHgAjACgALQAyADcAOwBAAEUASgBPAFQAWQBeAGMAaABtAHIAdwB8AIEAhgCLAJAAlQCaAJ8ApACp
AK4AsgC3ALwAwQDGAMsA0ADVANsA4ADlAOsA8AD2APsBAQEHAQ0BEwEZAR8BJQErATIBOAE+AUUBTAFS
AVkBYAFnAW4BdQF8AYMBiwGSAZoBoQGpAbEBuQHBAckB0QHZAeEB6QHyAfoCAwIMAhQCHQImAi8COAJB
AksCVAJdAmcCcQJ6AoQCjgKYAqICrAK2AsECywLVAuAC6wL1AwADCwMWAyEDLQM4A0MDTwNaA2YDcgN+
A4oDlgOiA64DugPHA9MD4APsA/kEBgQTBCAELQQ7BEgEVQRjBHEEfgSMBJoEqAS2BMQE0wThBPAE/gUN
BRwFKwU6BUkFWAVnBXcFhgWWBaYFtQXFBdUF5QX2BgYGFgYnBjcGSAZZBmoGewaMBp0GrwbABtEG4wb1
BwcHGQcrBz0HTwdhB3QHhgeZB6wHvwfSB+UH+AgLCB8IMghGCFoIbgiCCJYIqgi+CNII5wj7CRAJJQk6
CU8JZAl5CY8JpAm6Cc8J5Qn7ChEKJwo9ClQKagqBCpgKrgrFCtwK8wsLCyILOQtRC2kLgAuYC7ALyAvh
C/kMEgwqDEMMXAx1DI4MpwzADNkM8w0NDSYNQA1aDXQNjg2pDcMN3g34DhMOLg5JDmQOfw6bDrYO0g7u
DwkPJQ9BD14Peg+WD7MPzw/sEAkQJhBDEGEQfhCbELkQ1xD1ERMRMRFPEW0RjBGqEckR6BIHEiYSRRJk
EoQSoxLDEuMTAxMjE0MTYxODE6QTxRPlFAYUJxRJFGoUixStFM4U8BUSFTQVVhV4FZsVvRXgFgMWJhZJ
FmwWjxayFtYW+hcdF0EXZReJF64X0hf3GBsYQBhlGIoYrxjVGPoZIBlFGWsZkRm3Gd0aBBoqGlEadxqe
GsUa7BsUGzsbYxuKG7Ib2hwCHCocUhx7HKMczBz1HR4dRx1wHZkdwx3sHhYeQB5qHpQevh7pHxMfPh9p
H5Qfvx/qIBUgQSBsIJggxCDwIRwhSCF1IaEhziH7IiciVSKCIq8i3SMKIzgjZiOUI8Ij8CQfJE0kfCSr
JNolCSU4JWgllyXHJfcmJyZXJocmtyboJxgnSSd6J6sn3CgNKD8ocSiiKNQpBik4KWspnSnQKgIqNSpo
KpsqzysCKzYraSudK9EsBSw5LG4soizXLQwtQS12Last4S4WLkwugi63Lu4vJC9aL5Evxy/+MDUwbDCk
MNsxEjFKMYIxujHyMioyYzKbMtQzDTNGM38zuDPxNCs0ZTSeNNg1EzVNNYc1wjX9Njc2cjauNuk3JDdg
N5w31zgUOFA4jDjIOQU5Qjl/Obw5+To2OnQ6sjrvOy07azuqO+g8JzxlPKQ84z0iPWE9oT3gPiA+YD6g
PuA/IT9hP6I/4kAjQGRApkDnQSlBakGsQe5CMEJyQrVC90M6Q31DwEQDREdEikTORRJFVUWaRd5GIkZn
RqtG8Ec1R3tHwEgFSEtIkUjXSR1JY0mpSfBKN0p9SsRLDEtTS5pL4kwqTHJMuk0CTUpNk03cTiVObk63
TwBPSU+TT91QJ1BxULtRBlFQUZtR5lIxUnxSx1MTU19TqlP2VEJUj1TbVShVdVXCVg9WXFapVvdXRFeS
V+BYL1h9WMtZGllpWbhaB1pWWqZa9VtFW5Vb5Vw1XIZc1l0nXXhdyV4aXmxevV8PX2Ffs2AFYFdgqmD8
YU9homH1YklinGLwY0Njl2PrZEBklGTpZT1lkmXnZj1mkmboZz1nk2fpaD9olmjsaUNpmmnxakhqn2r3
a09rp2v/bFdsr20IbWBtuW4SbmtuxG8eb3hv0XArcIZw4HE6cZVx8HJLcqZzAXNdc7h0FHRwdMx1KHWF
deF2Pnabdvh3VnezeBF4bnjMeSp5iXnnekZ6pXsEe2N7wnwhfIF84X1BfaF+AX5ifsJ/I3+Ef+WAR4Co
gQqBa4HNgjCCkoL0g1eDuoQdhICE44VHhauGDoZyhteHO4efiASIaYjOiTOJmYn+imSKyoswi5aL/Ixj
jMqNMY2Yjf+OZo7OjzaPnpAGkG6Q1pE/kaiSEZJ6kuOTTZO2lCCUipT0lV+VyZY0lp+XCpd1l+CYTJi4
mSSZkJn8mmia1ZtCm6+cHJyJnPedZJ3SnkCerp8dn4uf+qBpoNihR6G2oiailqMGo3aj5qRWpMelOKWp
phqmi6b9p26n4KhSqMSpN6mpqhyqj6sCq3Wr6axcrNCtRK24ri2uoa8Wr4uwALB1sOqxYLHWskuywrM4
s660JbSctRO1irYBtnm28Ldot+C4WbjRuUq5wro7urW7LrunvCG8m70VvY++Cr6Evv+/er/1wHDA7MFn
wePCX8Lbw1jD1MRRxM7FS8XIxkbGw8dBx7/IPci8yTrJuco4yrfLNsu2zDXMtc01zbXONs62zzfPuNA5
0LrRPNG+0j/SwdNE08bUSdTL1U7V0dZV1tjXXNfg2GTY6Nls2fHadtr724DcBdyK3RDdlt4c3qLfKd+v
4DbgveFE4cziU+Lb42Pj6+Rz5PzlhOYN5pbnH+ep6DLovOlG6dDqW+rl63Dr++yG7RHtnO4o7rTvQO/M
8Fjw5fFy8f/yjPMZ86f0NPTC9VD13vZt9vv3ivgZ+Kj5OPnH+lf65/t3/Af8mP0p/br+S/7c/23////b
AEMAAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQICAgICAgICAgICAwMD
AwMDAwMDA//bAEMBAQEBAQEBAQEBAQICAQICAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMD
AwMDAwMDAwMDAwMDAwMDA//AABEIAAwAPAMBEQACEQEDEQH/xAAfAAABBQEBAQEBAQAAAAAAAAAAAQID
BAUGBwgJCgv/xAC1EAACAQMDAgQDBQUEBAAAAX0BAgMABBEFEiExQQYTUWEHInEUMoGRoQgjQrHBFVLR
8CQzYnKCCQoWFxgZGiUmJygpKjQ1Njc4OTpDREVGR0hJSlNUVVZXWFlaY2RlZmdoaWpzdHV2d3h5eoOE
hYaHiImKkpOUlZaXmJmaoqOkpaanqKmqsrO0tba3uLm6wsPExcbHyMnK0tPU1dbX2Nna4eLj5OXm5+jp
6vHy8/T19vf4+fr/xAAfAQADAQEBAQEBAQEBAAAAAAAAAQIDBAUGBwgJCgv/xAC1EQACAQIEBAMEBwUE
BAABAncAAQIDEQQFITEGEkFRB2FxEyIygQgUQpGhscEJIzNS8BVictEKFiQ04SXxFxgZGiYnKCkqNTY3
ODk6Q0RFRkdISUpTVFVWV1hZWmNkZWZnaGlqc3R1dnd4eXqCg4SFhoeIiYqSk5SVlpeYmZqio6Slpqeo
qaqys7S1tre4ubrCw8TFxsfIycrS09TV1tfY2dri4+Tl5ufo6ery8/T19vf4+fr/2gAMAwEAAhEDEQA/
AP1ZH7UPxEAA/wCEw8bnj/ob9f8A/k+v7U/1Nyj/AKF+G/8ABUP/AJE/llcSZlZf7dX/APBk/wDMX/hq
H4if9Df43/8ACv1//wCT6P8AU3Kf+hfhv/BUP/kQ/wBZcy/6Dq//AIMn/mH/AA1D8RP+hv8AG/8A4V+v
/wDyfR/qblP/AEL8N/4Kh/8AIh/rLmX/AEHV/wDwZP8AzD/hqH4if9Df43/8K/X/AP5Po/1Nyn/oX4b/
AMFQ/wDkQ/1lzL/oOr/+DJ/5h/w1D8RP+hv8b/8AhX6//wDJ9H+puU/9C/Df+Cof/Ih/rLmX/QdX/wDB
k/8AMT/hqH4if9Df43/8K/X/AP5Po/1Nyn/oX4b/AMFQ/wDkQ/1kzL/oOr/+DJ/5n2R+xz+234zt/iRp
nw+8a6vqXiDwZ4gs9baObXr+bUr/AMPajpmkX2tQ3FlqV2Zb57K7XT2t3tXkaJWkV4whVxJ+beJfAuU4
Th/FZ/hKEKOMw8qd+SKjGcZzjTs4q0bpyUlJK7s073VvuuBOLMxxGcYfJ8TWlVw1ZTtzu7hKMJTupPWz
UWnFu2qatrf9aP8AhfXgv+zv7U89/sfm+V5207N+M43fSv50P2w/kwr/AEFP42CgAoAKACgAoA9s/Z0/
s7/hcng3+1vP/s7Ov/avs2PP2f8ACL63t2buP9ZjP+zmvz7xU/5IPPf+4H/qRRPsvD//AJK7KP8AuL/6
ZqH7/wD/ABaT/hUfb7Ht/wBj7V9p8v8A9Cr+Oz+lz//Z
</value>
</data>
<metadata name="$this.TrayHeight" type="System.Int32, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>54</value>
</metadata>
</root>

1397
ArinWarev1/Forms_Input/Frm_v20091231_Myoun.vb Normal file
View File

File diff suppressed because it is too large Load Diff

215
ArinWarev1/Forms_Input/Frm_v20091231_ResultMax.Designer.vb generated Normal file
View File

@@ -0,0 +1,215 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class Frm_v20091231_ResultMax
Inherits CForm
'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.components = New System.ComponentModel.Container()
Me.DSR = New Eco2Ar.DSR()
Me.bsㅡ = New System.Windows.Forms.BindingSource(Me.components)
Me.최대냉난방부하DataGridView = New System.Windows.Forms.DataGridView()
Me.DataGridViewTextBoxColumn1 = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.DataGridViewTextBoxColumn3 = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.DataGridViewTextBoxColumn4 = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.DataGridViewTextBoxColumn5 = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.DataGridViewTextBoxColumn6 = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.DataGridViewTextBoxColumn7 = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.DataGridViewTextBoxColumn8 = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.DataGridViewTextBoxColumn9 = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.DataGridViewTextBoxColumn10 = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.DataGridViewTextBoxColumn11 = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.DataGridViewTextBoxColumn12 = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.StatusStrip1 = New System.Windows.Forms.StatusStrip()
Me.lb_msg = New System.Windows.Forms.ToolStripStatusLabel()
CType(Me.DSR, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.bsㅡ, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.최대냉난방부하DataGridView, System.ComponentModel.ISupportInitialize).BeginInit()
Me.StatusStrip1.SuspendLayout()
Me.SuspendLayout()
'
'DSR
'
Me.DSR.DataSetName = "DSR"
Me.DSR.SchemaSerializationMode = System.Data.SchemaSerializationMode.IncludeSchema
'
'bsㅡ
'
Me.bsㅡ.DataMember = "최대냉난방부하"
Me.bsㅡ.DataSource = Me.DSR
'
'최대냉난방부하DataGridView
'
Me.최대냉난방부하DataGridView.AllowUserToAddRows = False
Me.최대냉난방부하DataGridView.AllowUserToDeleteRows = False
Me.최대냉난방부하DataGridView.AutoGenerateColumns = False
Me.최대냉난방부하DataGridView.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.AllCells
Me.최대냉난방부하DataGridView.Columns.AddRange(New System.Windows.Forms.DataGridViewColumn() {Me.DataGridViewTextBoxColumn1, Me.DataGridViewTextBoxColumn3, Me.DataGridViewTextBoxColumn4, Me.DataGridViewTextBoxColumn5, Me.DataGridViewTextBoxColumn6, Me.DataGridViewTextBoxColumn7, Me.DataGridViewTextBoxColumn8, Me.DataGridViewTextBoxColumn9, Me.DataGridViewTextBoxColumn10, Me.DataGridViewTextBoxColumn11, Me.DataGridViewTextBoxColumn12})
Me.최대냉난방부하DataGridView.DataSource = Me.bsㅡ
Me.최대냉난방부하DataGridView.Dock = System.Windows.Forms.DockStyle.Fill
Me.최대냉난방부하DataGridView.Location = New System.Drawing.Point(0, 0)
Me.최대냉난방부하DataGridView.MultiSelect = False
Me.최대냉난방부하DataGridView.Name = "최대냉난방부하DataGridView"
Me.최대냉난방부하DataGridView.ReadOnly = True
Me.최대냉난방부하DataGridView.RowHeadersVisible = False
Me.최대냉난방부하DataGridView.RowTemplate.Height = 23
Me.최대냉난방부하DataGridView.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect
Me.최대냉난방부하DataGridView.Size = New System.Drawing.Size(898, 482)
Me.최대냉난방부하DataGridView.TabIndex = 1
'
'DataGridViewTextBoxColumn1
'
Me.DataGridViewTextBoxColumn1.DataPropertyName = "Zone"
Me.DataGridViewTextBoxColumn1.HeaderText = "Zone"
Me.DataGridViewTextBoxColumn1.Name = "DataGridViewTextBoxColumn1"
Me.DataGridViewTextBoxColumn1.ReadOnly = True
Me.DataGridViewTextBoxColumn1.Width = 63
'
'DataGridViewTextBoxColumn3
'
Me.DataGridViewTextBoxColumn3.DataPropertyName = "최대난방기기부하"
Me.DataGridViewTextBoxColumn3.HeaderText = "최대난방기기부하"
Me.DataGridViewTextBoxColumn3.Name = "DataGridViewTextBoxColumn3"
Me.DataGridViewTextBoxColumn3.ReadOnly = True
Me.DataGridViewTextBoxColumn3.Width = 134
'
'DataGridViewTextBoxColumn4
'
Me.DataGridViewTextBoxColumn4.DataPropertyName = "최대난방실내부하"
Me.DataGridViewTextBoxColumn4.HeaderText = "최대난방실내부하"
Me.DataGridViewTextBoxColumn4.Name = "DataGridViewTextBoxColumn4"
Me.DataGridViewTextBoxColumn4.ReadOnly = True
Me.DataGridViewTextBoxColumn4.Width = 134
'
'DataGridViewTextBoxColumn5
'
Me.DataGridViewTextBoxColumn5.DataPropertyName = "난방최대가동시간"
Me.DataGridViewTextBoxColumn5.HeaderText = "난방최대가동시간"
Me.DataGridViewTextBoxColumn5.Name = "DataGridViewTextBoxColumn5"
Me.DataGridViewTextBoxColumn5.ReadOnly = True
Me.DataGridViewTextBoxColumn5.Width = 134
'
'DataGridViewTextBoxColumn6
'
Me.DataGridViewTextBoxColumn6.DataPropertyName = "최대가열성능"
Me.DataGridViewTextBoxColumn6.HeaderText = "최대가열성능"
Me.DataGridViewTextBoxColumn6.Name = "DataGridViewTextBoxColumn6"
Me.DataGridViewTextBoxColumn6.ReadOnly = True
Me.DataGridViewTextBoxColumn6.Width = 108
'
'DataGridViewTextBoxColumn7
'
Me.DataGridViewTextBoxColumn7.DataPropertyName = "최대냉방기기부하"
Me.DataGridViewTextBoxColumn7.HeaderText = "최대냉방기기부하"
Me.DataGridViewTextBoxColumn7.Name = "DataGridViewTextBoxColumn7"
Me.DataGridViewTextBoxColumn7.ReadOnly = True
Me.DataGridViewTextBoxColumn7.Width = 134
'
'DataGridViewTextBoxColumn8
'
Me.DataGridViewTextBoxColumn8.DataPropertyName = "최대냉방실내부하"
Me.DataGridViewTextBoxColumn8.HeaderText = "최대냉방실내부하"
Me.DataGridViewTextBoxColumn8.Name = "DataGridViewTextBoxColumn8"
Me.DataGridViewTextBoxColumn8.ReadOnly = True
Me.DataGridViewTextBoxColumn8.Width = 134
'
'DataGridViewTextBoxColumn9
'
Me.DataGridViewTextBoxColumn9.DataPropertyName = "냉방최대가동시간"
Me.DataGridViewTextBoxColumn9.HeaderText = "냉방최대가동시간"
Me.DataGridViewTextBoxColumn9.Name = "DataGridViewTextBoxColumn9"
Me.DataGridViewTextBoxColumn9.ReadOnly = True
Me.DataGridViewTextBoxColumn9.Width = 134
'
'DataGridViewTextBoxColumn10
'
Me.DataGridViewTextBoxColumn10.DataPropertyName = "최대냉각성능"
Me.DataGridViewTextBoxColumn10.HeaderText = "최대냉각성능"
Me.DataGridViewTextBoxColumn10.Name = "DataGridViewTextBoxColumn10"
Me.DataGridViewTextBoxColumn10.ReadOnly = True
Me.DataGridViewTextBoxColumn10.Width = 108
'
'DataGridViewTextBoxColumn11
'
Me.DataGridViewTextBoxColumn11.DataPropertyName = "최대가습성능"
Me.DataGridViewTextBoxColumn11.HeaderText = "최대가습성능"
Me.DataGridViewTextBoxColumn11.Name = "DataGridViewTextBoxColumn11"
Me.DataGridViewTextBoxColumn11.ReadOnly = True
Me.DataGridViewTextBoxColumn11.Width = 108
'
'DataGridViewTextBoxColumn12
'
Me.DataGridViewTextBoxColumn12.DataPropertyName = "공조풍량"
Me.DataGridViewTextBoxColumn12.HeaderText = "공조풍량"
Me.DataGridViewTextBoxColumn12.Name = "DataGridViewTextBoxColumn12"
Me.DataGridViewTextBoxColumn12.ReadOnly = True
Me.DataGridViewTextBoxColumn12.Width = 82
'
'StatusStrip1
'
Me.StatusStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.lb_msg})
Me.StatusStrip1.Location = New System.Drawing.Point(0, 482)
Me.StatusStrip1.Name = "StatusStrip1"
Me.StatusStrip1.Size = New System.Drawing.Size(898, 22)
Me.StatusStrip1.TabIndex = 15
Me.StatusStrip1.Text = "StatusStrip1"
'
'lb_msg
'
Me.lb_msg.Name = "lb_msg"
Me.lb_msg.Size = New System.Drawing.Size(59, 17)
Me.lb_msg.Text = "<메세지>"
'
'Frm_v20091231_ResultMax
'
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.None
Me.ClientSize = New System.Drawing.Size(898, 504)
Me.ControlBox = False
Me.Controls.Add(Me.최대냉난방부하DataGridView)
Me.Controls.Add(Me.StatusStrip1)
Me.Font = New System.Drawing.Font("돋움", 8.999999!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(129, Byte))
Me.Name = "Frm_v20091231_ResultMax"
Me.Text = "최대냉난방부하"
CType(Me.DSR, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.bsㅡ, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.최대냉난방부하DataGridView, System.ComponentModel.ISupportInitialize).EndInit()
Me.StatusStrip1.ResumeLayout(False)
Me.StatusStrip1.PerformLayout()
Me.ResumeLayout(False)
Me.PerformLayout()
End Sub
Friend WithEvents DSR As Eco2Ar.DSR
Friend WithEvents bsㅡ As System.Windows.Forms.BindingSource
Friend WithEvents 최대냉난방부하DataGridView As System.Windows.Forms.DataGridView
Friend WithEvents DataGridViewTextBoxColumn1 As System.Windows.Forms.DataGridViewTextBoxColumn
Friend WithEvents DataGridViewTextBoxColumn2 As System.Windows.Forms.DataGridViewTextBoxColumn
Friend WithEvents DataGridViewTextBoxColumn3 As System.Windows.Forms.DataGridViewTextBoxColumn
Friend WithEvents DataGridViewTextBoxColumn4 As System.Windows.Forms.DataGridViewTextBoxColumn
Friend WithEvents DataGridViewTextBoxColumn5 As System.Windows.Forms.DataGridViewTextBoxColumn
Friend WithEvents DataGridViewTextBoxColumn6 As System.Windows.Forms.DataGridViewTextBoxColumn
Friend WithEvents DataGridViewTextBoxColumn7 As System.Windows.Forms.DataGridViewTextBoxColumn
Friend WithEvents DataGridViewTextBoxColumn8 As System.Windows.Forms.DataGridViewTextBoxColumn
Friend WithEvents DataGridViewTextBoxColumn9 As System.Windows.Forms.DataGridViewTextBoxColumn
Friend WithEvents DataGridViewTextBoxColumn10 As System.Windows.Forms.DataGridViewTextBoxColumn
Friend WithEvents DataGridViewTextBoxColumn11 As System.Windows.Forms.DataGridViewTextBoxColumn
Friend WithEvents DataGridViewTextBoxColumn12 As System.Windows.Forms.DataGridViewTextBoxColumn
Friend WithEvents StatusStrip1 As System.Windows.Forms.StatusStrip
Friend WithEvents lb_msg As System.Windows.Forms.ToolStripStatusLabel
End Class

129
ArinWarev1/Forms_Input/Frm_v20091231_ResultMax.resx Normal file
View File

@@ -0,0 +1,129 @@
<?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=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<resheader name="writer">
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<metadata name="DSR.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>109, 17</value>
</metadata>
<metadata name="bsㅡ.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>184, 17</value>
</metadata>
<metadata name="StatusStrip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>248, 17</value>
</metadata>
</root>

30
ArinWarev1/Forms_Input/Frm_v20091231_ResultMax.vb Normal file
View File

@@ -0,0 +1,30 @@
Public Class Frm_v20091231_ResultMax
#Region "data Base 변경여부및 적용방법"
'''변경된내용을적용한다.
Public Overrides Function AcceptChanged() As Boolean
Return True
End Function
'''변경된내용이있다면 취소한다.
Public Overrides Function RejectChanged() As Boolean
Return True
End Function
'''데이터에변형이있었는가?
Public Overrides Function HasChanged() As Boolean
Return False
End Function
#End Region
Private Sub Frm_v20091231_Result_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
Me.bsㅡ.DataSource = DSETR1
End Sub
End Class

419
ArinWarev1/Forms_Input/Frm_v20091231_ResultMon.Designer.vb generated Normal file
View File

@@ -0,0 +1,419 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class Frm_v20091231_ResultMon
Inherits CForm
'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.components = New System.ComponentModel.Container()
Me.DSR = New Eco2Ar.DSR()
Me.bs = New System.Windows.Forms.BindingSource(Me.components)
Me.dv01 = New System.Windows.Forms.DataGridView()
Me.DataGridViewTextBoxColumn4 = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.DataGridViewTextBoxColumn5 = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.DataGridViewTextBoxColumn6 = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.DataGridViewTextBoxColumn7 = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.DataGridViewTextBoxColumn8 = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.DataGridViewTextBoxColumn9 = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.DataGridViewTextBoxColumn10 = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.DataGridViewTextBoxColumn11 = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.DataGridViewTextBoxColumn12 = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.DataGridViewTextBoxColumn13 = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.DataGridViewTextBoxColumn14 = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.존 = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.Zone = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.TabControl1 = New System.Windows.Forms.TabControl()
Me.TabPage1 = New System.Windows.Forms.TabPage()
Me.TabPage2 = New System.Windows.Forms.TabPage()
Me.TabPage3 = New System.Windows.Forms.TabPage()
Me.TabPage4 = New System.Windows.Forms.TabPage()
Me.TabPage5 = New System.Windows.Forms.TabPage()
Me.TabPage6 = New System.Windows.Forms.TabPage()
Me.TabPage7 = New System.Windows.Forms.TabPage()
Me.TabPage8 = New System.Windows.Forms.TabPage()
Me.TabPage9 = New System.Windows.Forms.TabPage()
Me.TabPage10 = New System.Windows.Forms.TabPage()
Me.TabPage11 = New System.Windows.Forms.TabPage()
Me.TabPage12 = New System.Windows.Forms.TabPage()
Me.StatusStrip1 = New System.Windows.Forms.StatusStrip()
Me.lb_msg = New System.Windows.Forms.ToolStripStatusLabel()
Me.bsz = New System.Windows.Forms.BindingSource(Me.components)
Me.DS = New Eco2Ar.DS()
CType(Me.DSR, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.bs, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.dv01, System.ComponentModel.ISupportInitialize).BeginInit()
Me.TabControl1.SuspendLayout()
Me.StatusStrip1.SuspendLayout()
CType(Me.bsz, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.DS, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SuspendLayout()
'
'DSR
'
Me.DSR.DataSetName = "DSR"
Me.DSR.SchemaSerializationMode = System.Data.SchemaSerializationMode.IncludeSchema
'
'bs
'
Me.bs.DataMember = "월별에너지분석"
Me.bs.DataSource = Me.DSR
Me.bs.Filter = "월='M01'"
'
'dv01
'
Me.dv01.AllowUserToAddRows = False
Me.dv01.AllowUserToDeleteRows = False
Me.dv01.AllowUserToResizeRows = False
Me.dv01.AutoGenerateColumns = False
Me.dv01.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.AllCells
Me.dv01.Columns.AddRange(New System.Windows.Forms.DataGridViewColumn() {Me.DataGridViewTextBoxColumn4, Me.DataGridViewTextBoxColumn5, Me.DataGridViewTextBoxColumn6, Me.DataGridViewTextBoxColumn7, Me.DataGridViewTextBoxColumn8, Me.DataGridViewTextBoxColumn9, Me.DataGridViewTextBoxColumn10, Me.DataGridViewTextBoxColumn11, Me.DataGridViewTextBoxColumn12, Me.DataGridViewTextBoxColumn13, Me.DataGridViewTextBoxColumn14, Me.존, Me.Zone})
Me.dv01.DataSource = Me.bs
Me.dv01.Dock = System.Windows.Forms.DockStyle.Fill
Me.dv01.Location = New System.Drawing.Point(0, 26)
Me.dv01.MultiSelect = False
Me.dv01.Name = "dv01"
Me.dv01.ReadOnly = True
Me.dv01.RowHeadersVisible = False
Me.dv01.RowTemplate.Height = 23
Me.dv01.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect
Me.dv01.Size = New System.Drawing.Size(898, 456)
Me.dv01.TabIndex = 1
'
'DataGridViewTextBoxColumn4
'
Me.DataGridViewTextBoxColumn4.DataPropertyName = "난방요구량열"
Me.DataGridViewTextBoxColumn4.HeaderText = "난방요구량열"
Me.DataGridViewTextBoxColumn4.Name = "DataGridViewTextBoxColumn4"
Me.DataGridViewTextBoxColumn4.ReadOnly = True
Me.DataGridViewTextBoxColumn4.Width = 108
'
'DataGridViewTextBoxColumn5
'
Me.DataGridViewTextBoxColumn5.DataPropertyName = "난방요구량공조"
Me.DataGridViewTextBoxColumn5.HeaderText = "난방요구량공조"
Me.DataGridViewTextBoxColumn5.Name = "DataGridViewTextBoxColumn5"
Me.DataGridViewTextBoxColumn5.ReadOnly = True
Me.DataGridViewTextBoxColumn5.Width = 121
'
'DataGridViewTextBoxColumn6
'
Me.DataGridViewTextBoxColumn6.DataPropertyName = "냉방요구량열"
Me.DataGridViewTextBoxColumn6.HeaderText = "냉방요구량열"
Me.DataGridViewTextBoxColumn6.Name = "DataGridViewTextBoxColumn6"
Me.DataGridViewTextBoxColumn6.ReadOnly = True
Me.DataGridViewTextBoxColumn6.Width = 108
'
'DataGridViewTextBoxColumn7
'
Me.DataGridViewTextBoxColumn7.DataPropertyName = "냉방요구량공조"
Me.DataGridViewTextBoxColumn7.HeaderText = "냉방요구량공조"
Me.DataGridViewTextBoxColumn7.Name = "DataGridViewTextBoxColumn7"
Me.DataGridViewTextBoxColumn7.ReadOnly = True
Me.DataGridViewTextBoxColumn7.Width = 121
'
'DataGridViewTextBoxColumn8
'
Me.DataGridViewTextBoxColumn8.DataPropertyName = "조명요구량"
Me.DataGridViewTextBoxColumn8.HeaderText = "조명요구량"
Me.DataGridViewTextBoxColumn8.Name = "DataGridViewTextBoxColumn8"
Me.DataGridViewTextBoxColumn8.ReadOnly = True
Me.DataGridViewTextBoxColumn8.Width = 95
'
'DataGridViewTextBoxColumn9
'
Me.DataGridViewTextBoxColumn9.DataPropertyName = "급탕요구량"
Me.DataGridViewTextBoxColumn9.HeaderText = "급탕요구량"
Me.DataGridViewTextBoxColumn9.Name = "DataGridViewTextBoxColumn9"
Me.DataGridViewTextBoxColumn9.ReadOnly = True
Me.DataGridViewTextBoxColumn9.Width = 95
'
'DataGridViewTextBoxColumn10
'
Me.DataGridViewTextBoxColumn10.DataPropertyName = "공조풍량"
Me.DataGridViewTextBoxColumn10.HeaderText = "공조풍량"
Me.DataGridViewTextBoxColumn10.Name = "DataGridViewTextBoxColumn10"
Me.DataGridViewTextBoxColumn10.ReadOnly = True
Me.DataGridViewTextBoxColumn10.Width = 82
'
'DataGridViewTextBoxColumn11
'
Me.DataGridViewTextBoxColumn11.DataPropertyName = "공조요구량난방"
Me.DataGridViewTextBoxColumn11.HeaderText = "공조요구량난방"
Me.DataGridViewTextBoxColumn11.Name = "DataGridViewTextBoxColumn11"
Me.DataGridViewTextBoxColumn11.ReadOnly = True
Me.DataGridViewTextBoxColumn11.Width = 121
'
'DataGridViewTextBoxColumn12
'
Me.DataGridViewTextBoxColumn12.DataPropertyName = "공조요구량냉방"
Me.DataGridViewTextBoxColumn12.HeaderText = "공조요구량냉방"
Me.DataGridViewTextBoxColumn12.Name = "DataGridViewTextBoxColumn12"
Me.DataGridViewTextBoxColumn12.ReadOnly = True
Me.DataGridViewTextBoxColumn12.Width = 121
'
'DataGridViewTextBoxColumn13
'
Me.DataGridViewTextBoxColumn13.DataPropertyName = "공조요구량가습"
Me.DataGridViewTextBoxColumn13.HeaderText = "공조요구량가습"
Me.DataGridViewTextBoxColumn13.Name = "DataGridViewTextBoxColumn13"
Me.DataGridViewTextBoxColumn13.ReadOnly = True
Me.DataGridViewTextBoxColumn13.Width = 121
'
'DataGridViewTextBoxColumn14
'
Me.DataGridViewTextBoxColumn14.DataPropertyName = "환기요구량"
Me.DataGridViewTextBoxColumn14.HeaderText = "환기요구량"
Me.DataGridViewTextBoxColumn14.Name = "DataGridViewTextBoxColumn14"
Me.DataGridViewTextBoxColumn14.ReadOnly = True
Me.DataGridViewTextBoxColumn14.Width = 95
'
'존
'
Me.존.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.None
Me.존.DataPropertyName = "존"
Me.존.FillWeight = 1.0!
Me.존.HeaderText = "존"
Me.존.MinimumWidth = 2
Me.존.Name = "존"
Me.존.ReadOnly = True
Me.존.Width = 2
'
'Zone
'
Me.Zone.HeaderText = "Zone"
Me.Zone.Name = "Zone"
Me.Zone.ReadOnly = True
Me.Zone.Width = 63
'
'TabControl1
'
Me.TabControl1.Controls.Add(Me.TabPage1)
Me.TabControl1.Controls.Add(Me.TabPage2)
Me.TabControl1.Controls.Add(Me.TabPage3)
Me.TabControl1.Controls.Add(Me.TabPage4)
Me.TabControl1.Controls.Add(Me.TabPage5)
Me.TabControl1.Controls.Add(Me.TabPage6)
Me.TabControl1.Controls.Add(Me.TabPage7)
Me.TabControl1.Controls.Add(Me.TabPage8)
Me.TabControl1.Controls.Add(Me.TabPage9)
Me.TabControl1.Controls.Add(Me.TabPage10)
Me.TabControl1.Controls.Add(Me.TabPage11)
Me.TabControl1.Controls.Add(Me.TabPage12)
Me.TabControl1.Dock = System.Windows.Forms.DockStyle.Top
Me.TabControl1.Location = New System.Drawing.Point(0, 0)
Me.TabControl1.Name = "TabControl1"
Me.TabControl1.SelectedIndex = 0
Me.TabControl1.Size = New System.Drawing.Size(898, 26)
Me.TabControl1.TabIndex = 2
'
'TabPage1
'
Me.TabPage1.Location = New System.Drawing.Point(4, 22)
Me.TabPage1.Name = "TabPage1"
Me.TabPage1.Padding = New System.Windows.Forms.Padding(3)
Me.TabPage1.Size = New System.Drawing.Size(890, 0)
Me.TabPage1.TabIndex = 0
Me.TabPage1.Text = "01월"
Me.TabPage1.UseVisualStyleBackColor = True
'
'TabPage2
'
Me.TabPage2.Location = New System.Drawing.Point(4, 22)
Me.TabPage2.Name = "TabPage2"
Me.TabPage2.Padding = New System.Windows.Forms.Padding(3)
Me.TabPage2.Size = New System.Drawing.Size(890, 0)
Me.TabPage2.TabIndex = 1
Me.TabPage2.Text = "02월"
Me.TabPage2.UseVisualStyleBackColor = True
'
'TabPage3
'
Me.TabPage3.Location = New System.Drawing.Point(4, 22)
Me.TabPage3.Name = "TabPage3"
Me.TabPage3.Size = New System.Drawing.Size(890, 0)
Me.TabPage3.TabIndex = 2
Me.TabPage3.Text = "03월"
Me.TabPage3.UseVisualStyleBackColor = True
'
'TabPage4
'
Me.TabPage4.Location = New System.Drawing.Point(4, 22)
Me.TabPage4.Name = "TabPage4"
Me.TabPage4.Size = New System.Drawing.Size(890, 0)
Me.TabPage4.TabIndex = 3
Me.TabPage4.Text = "04월"
Me.TabPage4.UseVisualStyleBackColor = True
'
'TabPage5
'
Me.TabPage5.Location = New System.Drawing.Point(4, 22)
Me.TabPage5.Name = "TabPage5"
Me.TabPage5.Size = New System.Drawing.Size(890, 0)
Me.TabPage5.TabIndex = 4
Me.TabPage5.Text = "05월"
Me.TabPage5.UseVisualStyleBackColor = True
'
'TabPage6
'
Me.TabPage6.Location = New System.Drawing.Point(4, 22)
Me.TabPage6.Name = "TabPage6"
Me.TabPage6.Size = New System.Drawing.Size(890, 0)
Me.TabPage6.TabIndex = 5
Me.TabPage6.Text = "06월"
Me.TabPage6.UseVisualStyleBackColor = True
'
'TabPage7
'
Me.TabPage7.Location = New System.Drawing.Point(4, 22)
Me.TabPage7.Name = "TabPage7"
Me.TabPage7.Size = New System.Drawing.Size(890, 0)
Me.TabPage7.TabIndex = 6
Me.TabPage7.Text = "07월"
Me.TabPage7.UseVisualStyleBackColor = True
'
'TabPage8
'
Me.TabPage8.Location = New System.Drawing.Point(4, 22)
Me.TabPage8.Name = "TabPage8"
Me.TabPage8.Size = New System.Drawing.Size(890, 0)
Me.TabPage8.TabIndex = 7
Me.TabPage8.Text = "08월"
Me.TabPage8.UseVisualStyleBackColor = True
'
'TabPage9
'
Me.TabPage9.Location = New System.Drawing.Point(4, 22)
Me.TabPage9.Name = "TabPage9"
Me.TabPage9.Size = New System.Drawing.Size(890, 0)
Me.TabPage9.TabIndex = 8
Me.TabPage9.Text = "09월"
Me.TabPage9.UseVisualStyleBackColor = True
'
'TabPage10
'
Me.TabPage10.Location = New System.Drawing.Point(4, 22)
Me.TabPage10.Name = "TabPage10"
Me.TabPage10.Size = New System.Drawing.Size(890, 0)
Me.TabPage10.TabIndex = 9
Me.TabPage10.Text = "10월"
Me.TabPage10.UseVisualStyleBackColor = True
'
'TabPage11
'
Me.TabPage11.Location = New System.Drawing.Point(4, 22)
Me.TabPage11.Name = "TabPage11"
Me.TabPage11.Size = New System.Drawing.Size(890, 0)
Me.TabPage11.TabIndex = 10
Me.TabPage11.Text = "11월"
Me.TabPage11.UseVisualStyleBackColor = True
'
'TabPage12
'
Me.TabPage12.Location = New System.Drawing.Point(4, 22)
Me.TabPage12.Name = "TabPage12"
Me.TabPage12.Size = New System.Drawing.Size(890, 0)
Me.TabPage12.TabIndex = 11
Me.TabPage12.Text = "12월"
Me.TabPage12.UseVisualStyleBackColor = True
'
'StatusStrip1
'
Me.StatusStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.lb_msg})
Me.StatusStrip1.Location = New System.Drawing.Point(0, 482)
Me.StatusStrip1.Name = "StatusStrip1"
Me.StatusStrip1.Size = New System.Drawing.Size(898, 22)
Me.StatusStrip1.TabIndex = 15
Me.StatusStrip1.Text = "StatusStrip1"
'
'lb_msg
'
Me.lb_msg.Name = "lb_msg"
Me.lb_msg.Size = New System.Drawing.Size(59, 17)
Me.lb_msg.Text = "<메세지>"
'
'bsz
'
Me.bsz.DataMember = "tbl_zone"
Me.bsz.DataSource = Me.DS
'
'DS
'
Me.DS.DataSetName = "DS"
Me.DS.SchemaSerializationMode = System.Data.SchemaSerializationMode.IncludeSchema
'
'Frm_v20091231_ResultMon
'
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.None
Me.ClientSize = New System.Drawing.Size(898, 504)
Me.ControlBox = False
Me.Controls.Add(Me.dv01)
Me.Controls.Add(Me.TabControl1)
Me.Controls.Add(Me.StatusStrip1)
Me.Font = New System.Drawing.Font("돋움", 8.999999!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(129, Byte))
Me.Name = "Frm_v20091231_ResultMon"
Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
Me.Text = "월별에너지요구량"
CType(Me.DSR, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.bs, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.dv01, System.ComponentModel.ISupportInitialize).EndInit()
Me.TabControl1.ResumeLayout(False)
Me.StatusStrip1.ResumeLayout(False)
Me.StatusStrip1.PerformLayout()
CType(Me.bsz, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.DS, System.ComponentModel.ISupportInitialize).EndInit()
Me.ResumeLayout(False)
Me.PerformLayout()
End Sub
Friend WithEvents DSR As Eco2Ar.DSR
Friend WithEvents bs As System.Windows.Forms.BindingSource
Friend WithEvents dv01 As System.Windows.Forms.DataGridView
Friend WithEvents TabControl1 As System.Windows.Forms.TabControl
Friend WithEvents TabPage1 As System.Windows.Forms.TabPage
Friend WithEvents TabPage2 As System.Windows.Forms.TabPage
Friend WithEvents TabPage3 As System.Windows.Forms.TabPage
Friend WithEvents TabPage4 As System.Windows.Forms.TabPage
Friend WithEvents TabPage5 As System.Windows.Forms.TabPage
Friend WithEvents TabPage6 As System.Windows.Forms.TabPage
Friend WithEvents TabPage7 As System.Windows.Forms.TabPage
Friend WithEvents TabPage8 As System.Windows.Forms.TabPage
Friend WithEvents TabPage9 As System.Windows.Forms.TabPage
Friend WithEvents TabPage10 As System.Windows.Forms.TabPage
Friend WithEvents TabPage11 As System.Windows.Forms.TabPage
Friend WithEvents TabPage12 As System.Windows.Forms.TabPage
Friend WithEvents bsz As System.Windows.Forms.BindingSource
Friend WithEvents DS As Eco2Ar.DS
Friend WithEvents StatusStrip1 As System.Windows.Forms.StatusStrip
Friend WithEvents lb_msg As System.Windows.Forms.ToolStripStatusLabel
Friend WithEvents Zone As System.Windows.Forms.DataGridViewTextBoxColumn
Friend WithEvents DataGridViewTextBoxColumn3 As System.Windows.Forms.DataGridViewTextBoxColumn
Friend WithEvents DataGridViewTextBoxColumn4 As System.Windows.Forms.DataGridViewTextBoxColumn
Friend WithEvents DataGridViewTextBoxColumn5 As System.Windows.Forms.DataGridViewTextBoxColumn
Friend WithEvents DataGridViewTextBoxColumn6 As System.Windows.Forms.DataGridViewTextBoxColumn
Friend WithEvents DataGridViewTextBoxColumn7 As System.Windows.Forms.DataGridViewTextBoxColumn
Friend WithEvents DataGridViewTextBoxColumn8 As System.Windows.Forms.DataGridViewTextBoxColumn
Friend WithEvents DataGridViewTextBoxColumn9 As System.Windows.Forms.DataGridViewTextBoxColumn
Friend WithEvents DataGridViewTextBoxColumn10 As System.Windows.Forms.DataGridViewTextBoxColumn
Friend WithEvents DataGridViewTextBoxColumn11 As System.Windows.Forms.DataGridViewTextBoxColumn
Friend WithEvents DataGridViewTextBoxColumn12 As System.Windows.Forms.DataGridViewTextBoxColumn
Friend WithEvents DataGridViewTextBoxColumn13 As System.Windows.Forms.DataGridViewTextBoxColumn
Friend WithEvents DataGridViewTextBoxColumn14 As System.Windows.Forms.DataGridViewTextBoxColumn
Friend WithEvents 존 As System.Windows.Forms.DataGridViewTextBoxColumn
End Class

141
ArinWarev1/Forms_Input/Frm_v20091231_ResultMon.resx Normal file
View File

@@ -0,0 +1,141 @@
<?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=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<resheader name="writer">
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<metadata name="DSR.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>109, 17</value>
</metadata>
<metadata name="bs.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>184, 17</value>
</metadata>
<metadata name="존.UserAddedColumn" type="System.Boolean, mscorlib, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>True</value>
</metadata>
<metadata name="Zone.UserAddedColumn" type="System.Boolean, mscorlib, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>True</value>
</metadata>
<metadata name="StatusStrip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>385, 17</value>
</metadata>
<metadata name="bsz.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>315, 17</value>
</metadata>
<metadata name="DS.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>248, 17</value>
</metadata>
</root>

66
ArinWarev1/Forms_Input/Frm_v20091231_ResultMon.vb Normal file
View File

@@ -0,0 +1,66 @@
Public Class Frm_v20091231_ResultMon
#Region "data Base 변경여부및 적용방법"
'''변경된내용을적용한다.
Public Overrides Function AcceptChanged() As Boolean
Return True
End Function
'''변경된내용이있다면 취소한다.
Public Overrides Function RejectChanged() As Boolean
Return True
End Function
'''데이터에변형이있었는가?
Public Overrides Function HasChanged() As Boolean
Return False
End Function
#End Region
Private Sub Frm_v20091231_Result_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
Me.bs.DataSource = DSETR1
'BindCmbBox()
End Sub
''' <summary>
''' 각 그리드뷰의 1번째(존콤보박스) 데이터소스결정 (디자인타임에서 할당하면 Bs를 모두 생성해야하므로 코드에서 생성)
''' </summary>
''' <remarks></remarks>
Private Sub BindCmbBox()
Dim bsz01 As New BindingSource(DSET1, "tbl_zone")
Dim Col01 As DataGridViewComboBoxColumn = CType(Me.dv01.Columns(0), DataGridViewComboBoxColumn) : Col01.DataSource = bsz01
End Sub
Private Sub dv01_CellFormatting(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewCellFormattingEventArgs) Handles dv01.CellFormatting
Dim Code As String = Me.dv01.Rows(e.RowIndex).Cells("존").Value.ToString
If Code = "00" Then
Me.dv01.Rows(e.RowIndex).Cells("Zone").Value = "합계"
Me.dv01.Rows(e.RowIndex).DefaultCellStyle.BackColor = Color.Gainsboro
Else '//각존의 이름을 가져온다.
Dim Dr As DS.tbl_zoneRow = CType(DSET1.tbl_zone.Select("code='" & Code & "'")(0), Eco2Ar.DS.tbl_zoneRow)
Me.dv01.Rows(e.RowIndex).Cells("Zone").Value = Dr.설명
Me.dv01.Rows(e.RowIndex).DefaultCellStyle.BackColor = Color.White
End If
End Sub
Private Sub dv01_DataError(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewDataErrorEventArgs) Handles dv01.DataError
End Sub
Private Sub TabControl1_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles TabControl1.SelectedIndexChanged
Me.bs.Filter = "월='M" & Format(Me.TabControl1.SelectedIndex + 1, "00") & "'"
End Sub
Private Sub dv01_CellContentClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles dv01.CellContentClick
End Sub
End Class

3738
ArinWarev1/Forms_Input/Frm_v20091231_Weather.Designer.vb generated Normal file
View File

File diff suppressed because it is too large Load Diff

709
ArinWarev1/Forms_Input/Frm_v20091231_Weather.resx Normal file
View File

@@ -0,0 +1,709 @@
<?xml version="1.0" encoding="utf-8"?>
<root>
<!--
Microsoft ResX Schema
Version 2.0
The primary goals of this format is to allow a simple XML format
that is mostly human readable. The generation and parsing of the
various data types are done through the TypeConverter classes
associated with the data types.
Example:
... ado.net/XML headers & schema ...
<resheader name="resmimetype">text/microsoft-resx</resheader>
<resheader name="version">2.0</resheader>
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
<data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
<value>[base64 mime encoded serialized .NET Framework object]</value>
</data>
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
<comment>This is a comment</comment>
</data>
There are any number of "resheader" rows that contain simple
name/value pairs.
Each data row contains a name, and value. The row also contains a
type or mimetype. Type corresponds to a .NET class that support
text/value conversion through the TypeConverter architecture.
Classes that don't support this are serialized and stored with the
mimetype set.
The mimetype is used for serialized objects, and tells the
ResXResourceReader how to depersist the object. This is currently not
extensible. For a given mimetype the value must be set accordingly:
Note - application/x-microsoft.net.object.binary.base64 is the format
that the ResXResourceWriter will generate, however the reader can
read any of the formats listed below.
mimetype: application/x-microsoft.net.object.binary.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.soap.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.bytearray.base64
value : The object must be serialized into a byte array
: using a System.ComponentModel.TypeConverter
: and then encoded with base64 encoding.
-->
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
<xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
<xsd:element name="root" msdata:IsDataSet="true">
<xsd:complexType>
<xsd:choice maxOccurs="unbounded">
<xsd:element name="metadata">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" />
</xsd:sequence>
<xsd:attribute name="name" use="required" type="xsd:string" />
<xsd:attribute name="type" type="xsd:string" />
<xsd:attribute name="mimetype" type="xsd:string" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="assembly">
<xsd:complexType>
<xsd:attribute name="alias" type="xsd:string" />
<xsd:attribute name="name" type="xsd:string" />
</xsd:complexType>
</xsd:element>
<xsd:element name="data">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="resheader">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" />
</xsd:complexType>
</xsd:element>
</xsd:choice>
</xsd:complexType>
</xsd:element>
</xsd:schema>
<resheader name="resmimetype">
<value>text/microsoft-resx</value>
</resheader>
<resheader name="version">
<value>2.0</value>
</resheader>
<resheader name="reader">
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<resheader name="writer">
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<metadata name="Label39.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</metadata>
<metadata name="Label247.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</metadata>
<metadata name="Label248.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</metadata>
<metadata name="Label249.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</metadata>
<metadata name="Label250.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</metadata>
<metadata name="Label251.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</metadata>
<metadata name="Label252.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</metadata>
<metadata name="Label253.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</metadata>
<metadata name="Label254.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</metadata>
<metadata name="Label255.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</metadata>
<metadata name="Label256.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</metadata>
<metadata name="Label257.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</metadata>
<metadata name="Label258.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</metadata>
<metadata name="Label64.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</metadata>
<metadata name="Label77.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</metadata>
<metadata name="Label78.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</metadata>
<metadata name="Label79.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</metadata>
<metadata name="Label80.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</metadata>
<metadata name="Label81.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</metadata>
<metadata name="Label82.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</metadata>
<metadata name="Label83.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</metadata>
<metadata name="Label84.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</metadata>
<metadata name="Label85.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</metadata>
<metadata name="Label86.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</metadata>
<metadata name="Label87.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</metadata>
<metadata name="Label90.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</metadata>
<metadata name="Label91.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="Label26.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">
<value>False</value>
</metadata>
<metadata name="Label28.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">
<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="Label32.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">
<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="Label35.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</metadata>
<metadata name="Label36.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</metadata>
<metadata name="Label37.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</metadata>
<metadata name="Label38.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</metadata>
<metadata name="Label92.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</metadata>
<metadata name="Label93.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</metadata>
<metadata name="Label94.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</metadata>
<metadata name="Label95.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</metadata>
<metadata name="Label96.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</metadata>
<metadata name="Label97.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</metadata>
<metadata name="Label98.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</metadata>
<metadata name="Label99.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</metadata>
<metadata name="Label100.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</metadata>
<metadata name="Label101.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</metadata>
<metadata name="Label40.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</metadata>
<metadata name="Label41.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="Label44.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</metadata>
<metadata name="Label45.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="Label48.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</metadata>
<metadata name="Label49.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</metadata>
<metadata name="Label50.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</metadata>
<metadata name="Label51.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</metadata>
<metadata name="Label52.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</metadata>
<metadata name="Label53.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</metadata>
<metadata name="Label54.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</metadata>
<metadata name="Label55.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</metadata>
<metadata name="Label56.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</metadata>
<metadata name="Label57.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</metadata>
<metadata name="Label58.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</metadata>
<metadata name="Label59.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</metadata>
<metadata name="Label60.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</metadata>
<metadata name="Label61.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</metadata>
<metadata name="Label62.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</metadata>
<metadata name="Label63.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="Label2.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="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">
<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="Label7.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="Label10.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="bn_all.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>497, 17</value>
</metadata>
<metadata name="bs.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 17</value>
</metadata>
<metadata name="DS.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>329, 56</value>
</metadata>
<metadata name="code.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>True</value>
</metadata>
<metadata name="bsw_ilsa.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>81, 17</value>
</metadata>
<metadata name="BindingNavigator1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>581, 17</value>
</metadata>
<assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
<data name="ToolStripButton9.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAACBjSFJNAAB6
JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAAACXBIWXMAAA6mAAAOpgGH3KlvAAABKklE
QVQ4T2MYPKBw1vP/TQue/8+c+Pg/VAgDhLc/wCnHkDvz2f9VR97/x6UovvvB/+CGa7gNyJjy9P/CfR+w
Korvefh/6f7///2rL+A2IKHnyf9pW95jKIpovw/WnDnr/3+v0hO4DYjsevS/d/UHFEWhrffAmlvXAW3v
/PvfJf8AbgMCmx/+r5v/Dq4ouOXu/0V7///vAGrOmPPzv13dz//2GdtxG+BRdf9//rQ3KIrsim//T5/z
+79/17f/OoXv/lskrMdtgH3p3f/Zk19jKNJPOf/fpOjFf5WsT/+NI5fhNsAi787/1P7XWBUZJJ34L5v2
9b9u8DzcBhhm3f4f1vISpyL91Mv/NXyn4TZAJ+3Gf7/qh3gVqXhMwG2AU+6V/yAFeBUNQsDAAADwdsCr
peWacAAAAABJRU5ErkJggg==
</value>
</data>
<data name="ToolStripButton10.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAACBjSFJNAAB6
JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAAACXBIWXMAAA6mAAAOpgGH3KlvAAAAtklE
QVQ4T2MYOiC8/cF/KJN0EN/94H9wwzXyDIjvefh/6f7///2rL5BuQET7fbDmzFn//3uVniDNgNDWe2DN
reuAtnf+/e+Sf4B4A4Jb7v5ftPf//w6g5ow5P//b1f38b5+xnTQX2BXf/p8+5/d//65v/3UK3/23SFhP
ehjop5z/b1L04r9K1qf/xpHLSDcABAySTvyXTfv6Xzd4HnkGgIB+6uX/Gr7TyDcABFQ8JlBmwGAFDAwA
0BRgmAS6UFUAAAAASUVORK5CYII=
</value>
</data>
<data name="ToolStripButton11.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAACBjSFJNAAB6
JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAAACXBIWXMAAA6mAAAOpgGH3KlvAAAAo0lE
QVQ4T2MYfKBw1vP/UCZ5IHfms/8J3ffINyRjytP/8/b//p/QdYc8QxJ6nvyfve/X/86tf/+7lV4m3ZDI
rkf/p2z79b9k6d//CdP//rfJPUuaIYHND/+3rn0P1mxc8uW/dPS1/8aRy4g3xKPq/v+Sue/gmhVdekhz
gX3p3f+BLc/I0wwCFnl3/tsUXCFPMwgYZt0mXzMI6KTdIF/zUAQMDACgfl+gBzRCOAAAAABJRU5ErkJg
gg==
</value>
</data>
<data name="ToolStripButton12.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAACBjSFJNAAB6
JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAAACXBIWXMAAA6mAAAOpgGH3KlvAAABLElE
QVQ4T2MYXKBw1vP/UCYGAMk1LXj+P3PiY5xqGHJnPvuf0H0PqwKQ3Koj7/+Htz/AbUDGlKf/5+3//T+h
6w6GIpDcwn0f/gc3XMNtQELPk/+z9/3637n173+30ssoCkFy07a8/+9ffQG3AZFdj/5P2fbrf8nSv/8T
pv/9b5N7Fq4YJNe7+sN/r9ITuA0IbH74v3Xte7Bm45Iv/6Wjr/03jlwG1gCSq5v/7r9L/gHcBnhU3f9f
MvcdXLOiSw9cMUguf9qb//YZ23EbYF96939gyzMMzSAAksue/Pq/RcJ63AZY5N35b1NwBUMzCIDkUvtf
w72EFRhm3caqGQRAcmEtL//rBs/DbYBO2g2ckiA5v+qH/zV8p+E2AB9wyr3yX8VjAhhDhQYFYGAAAL7R
v7O5DE6cAAAAAElFTkSuQmCC
</value>
</data>
<data name="ToolStripButton14.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAACBjSFJNAAB6
JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAAACXBIWXMAAA6mAAAOpgGH3KlvAAABSklE
QVQ4T2MYvODuAvb/t+Zx/r86h+v/xRm8/6HCxIPrQI1/HjX+//Ow4f/JyQKkG3B+Oi/cgIM9IqQbcHyS
IFBz3f8/D6r+72gXJ2zApZk8/89O5ft/EqjxSL/Q/33dIkDN5f//3iv6v75B5v+qGrn/SysV/88vVf4/
q0gV08BTQH/+eVgP1FQLxJX//9wrAeK8/3/vZv7/eyf5/9/bcf//3YwA4pD/k3I0MQ041CsMdu7f+6VA
jQVAjdlAjalAjQn//92KBmoM+//vRtD/f9f9/nel6WIasLNd4v+WZqn/68DOlf+/pELx/99bMUCN4f+n
5mn8n5Cl9b87Q/d/e6r+/+ZEQ8JhMhvoT5Bz/90I+N+ToUNYAzoA+fPfDX8g9vvfmqxPugHd6bpg/4Jw
fZwR6Qa0JBn8b4g3/F8Ta/y/MtqEdAPoBBgYACQj2J51/IhpAAAAAElFTkSuQmCC
</value>
</data>
<data name="ToolStripButton15.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAACBjSFJNAAB6
JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAAACXBIWXMAAA6mAAAOpgGH3KlvAAABb0lE
QVQ4T7WQTSjDYRzHd1XeSu3iglo5IJO8hGQypLHIhMjMJAcOi4R2cXAg5UIOuEgOJCXlROI0b/Pamlp/
LVLaBf+4PB9jqLW/seJ7eep5vt/P7/v8VH8iXCfQbQTHDh9XkYmVeURnFcKsh631sBC8HliaCfawtgC9
JkS7HtFRAXMTipC3hsJcBiM9oe+cOgKQumxEYwHYmoJMYsiKMOXCpD1sQxWL04jK1HcQw1Zwn8FYfwDq
Pz9s4YXHBc3FgS8ZsxD1edDX8rvwp9jf9VfOQxjSoUYbYfhGgsZCyElA1sbzoI2F2uxf1r+5BlM+FCXi
sxjg4uh9uXdpfsjy7A8LvL+DVh2PJUm4S9Px7W1/BRi14dTEIJ8cKEN4eYZBC+iSOU5T49tYDTHelmcg
tVUje69DIexuIueqcaZEIXU1gPykOGlHE4fsdCgApkaQUqNx6zNBulKu6Zds74bzQwXApRPGB+Bw79vw
P0ilegWKIwMchCbSyQAAAABJRU5ErkJggg==
</value>
</data>
<metadata name="DataGridViewTextBoxColumn9.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>True</value>
</metadata>
<metadata name="bsw_temp.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>178, 17</value>
</metadata>
<metadata name="BindingNavigator4.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 56</value>
</metadata>
<data name="ToolStripButton25.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAACBjSFJNAAB6
JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAAACXBIWXMAAA6mAAAOpgGH3KlvAAABKklE
QVQ4T2MYPKBw1vP/TQue/8+c+Pg/VAgDhLc/wCnHkDvz2f9VR97/x6UovvvB/+CGa7gNyJjy9P/CfR+w
Korvefh/6f7///2rL+A2IKHnyf9pW95jKIpovw/WnDnr/3+v0hO4DYjsevS/d/UHFEWhrffAmlvXAW3v
/PvfJf8AbgMCmx/+r5v/Dq4ouOXu/0V7///vAGrOmPPzv13dz//2GdtxG+BRdf9//rQ3KIrsim//T5/z
+79/17f/OoXv/lskrMdtgH3p3f/Zk19jKNJPOf/fpOjFf5WsT/+NI5fhNsAi787/1P7XWBUZJJ34L5v2
9b9u8DzcBhhm3f4f1vISpyL91Mv/NXyn4TZAJ+3Gf7/qh3gVqXhMwG2AU+6V/yAFeBUNQsDAAADwdsCr
peWacAAAAABJRU5ErkJggg==
</value>
</data>
<data name="ToolStripButton26.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAACBjSFJNAAB6
JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAAACXBIWXMAAA6mAAAOpgGH3KlvAAAAtklE
QVQ4T2MYOiC8/cF/KJN0EN/94H9wwzXyDIjvefh/6f7///2rL5BuQET7fbDmzFn//3uVniDNgNDWe2DN
reuAtnf+/e+Sf4B4A4Jb7v5ftPf//w6g5ow5P//b1f38b5+xnTQX2BXf/p8+5/d//65v/3UK3/23SFhP
ehjop5z/b1L04r9K1qf/xpHLSDcABAySTvyXTfv6Xzd4HnkGgIB+6uX/Gr7TyDcABFQ8JlBmwGAFDAwA
0BRgmAS6UFUAAAAASUVORK5CYII=
</value>
</data>
<data name="ToolStripButton27.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAACBjSFJNAAB6
JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAAACXBIWXMAAA6mAAAOpgGH3KlvAAAAo0lE
QVQ4T2MYfKBw1vP/UCZ5IHfms/8J3ffINyRjytP/8/b//p/QdYc8QxJ6nvyfve/X/86tf/+7lV4m3ZDI
rkf/p2z79b9k6d//CdP//rfJPUuaIYHND/+3rn0P1mxc8uW/dPS1/8aRy4g3xKPq/v+Sue/gmhVdekhz
gX3p3f+BLc/I0wwCFnl3/tsUXCFPMwgYZt0mXzMI6KTdIF/zUAQMDACgfl+gBzRCOAAAAABJRU5ErkJg
gg==
</value>
</data>
<data name="ToolStripButton28.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAACBjSFJNAAB6
JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAAACXBIWXMAAA6mAAAOpgGH3KlvAAABLElE
QVQ4T2MYXKBw1vP/UCYGAMk1LXj+P3PiY5xqGHJnPvuf0H0PqwKQ3Koj7/+Htz/AbUDGlKf/5+3//T+h
6w6GIpDcwn0f/gc3XMNtQELPk/+z9/3637n173+30ssoCkFy07a8/+9ffQG3AZFdj/5P2fbrf8nSv/8T
pv/9b5N7Fq4YJNe7+sN/r9ITuA0IbH74v3Xte7Bm45Iv/6Wjr/03jlwG1gCSq5v/7r9L/gHcBnhU3f9f
MvcdXLOiSw9cMUguf9qb//YZ23EbYF96939gyzMMzSAAksue/Pq/RcJ63AZY5N35b1NwBUMzCIDkUvtf
w72EFRhm3caqGQRAcmEtL//rBs/DbYBO2g2ckiA5v+qH/zV8p+E2AB9wyr3yX8VjAhhDhQYFYGAAAL7R
v7O5DE6cAAAAAElFTkSuQmCC
</value>
</data>
<data name="ToolStripButton29.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAACBjSFJNAAB6
JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAAACXBIWXMAAA6mAAAOpgGH3KlvAAABSklE
QVQ4T2MYvODuAvb/t+Zx/r86h+v/xRm8/6HCxIPrQI1/HjX+//Ow4f/JyQKkG3B+Oi/cgIM9IqQbcHyS
IFBz3f8/D6r+72gXJ2zApZk8/89O5ft/EqjxSL/Q/33dIkDN5f//3iv6v75B5v+qGrn/SysV/88vVf4/
q0gV08BTQH/+eVgP1FQLxJX//9wrAeK8/3/vZv7/eyf5/9/bcf//3YwA4pD/k3I0MQ041CsMdu7f+6VA
jQVAjdlAjalAjQn//92KBmoM+//vRtD/f9f9/nel6WIasLNd4v+WZqn/68DOlf+/pELx/99bMUCN4f+n
5mn8n5Cl9b87Q/d/e6r+/+ZEQ8JhMhvoT5Bz/90I+N+ToUNYAzoA+fPfDX8g9vvfmqxPugHd6bpg/4Jw
fZwR6Qa0JBn8b4g3/F8Ta/y/MtqEdAPoBBgYACQj2J51/IhpAAAAAElFTkSuQmCC
</value>
</data>
<data name="ToolStripButton30.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAACBjSFJNAAB6
JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAAACXBIWXMAAA6mAAAOpgGH3KlvAAABb0lE
QVQ4T7WQTSjDYRzHd1XeSu3iglo5IJO8hGQypLHIhMjMJAcOi4R2cXAg5UIOuEgOJCXlROI0b/Pamlp/
LVLaBf+4PB9jqLW/seJ7eep5vt/P7/v8VH8iXCfQbQTHDh9XkYmVeURnFcKsh631sBC8HliaCfawtgC9
JkS7HtFRAXMTipC3hsJcBiM9oe+cOgKQumxEYwHYmoJMYsiKMOXCpD1sQxWL04jK1HcQw1Zwn8FYfwDq
Pz9s4YXHBc3FgS8ZsxD1edDX8rvwp9jf9VfOQxjSoUYbYfhGgsZCyElA1sbzoI2F2uxf1r+5BlM+FCXi
sxjg4uh9uXdpfsjy7A8LvL+DVh2PJUm4S9Px7W1/BRi14dTEIJ8cKEN4eYZBC+iSOU5T49tYDTHelmcg
tVUje69DIexuIueqcaZEIXU1gPykOGlHE4fsdCgApkaQUqNx6zNBulKu6Zds74bzQwXApRPGB+Bw79vw
P0ilegWKIwMchCbSyQAAAABJRU5ErkJggg==
</value>
</data>
<metadata name="DataGridViewTextBoxColumn10.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>True</value>
</metadata>
<metadata name="bsw_supdo.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>286, 17</value>
</metadata>
<metadata name="BindingNavigator5.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>173, 56</value>
</metadata>
<data name="ToolStripButton33.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAACBjSFJNAAB6
JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAAACXBIWXMAAA6mAAAOpgGH3KlvAAABKklE
QVQ4T2MYPKBw1vP/TQue/8+c+Pg/VAgDhLc/wCnHkDvz2f9VR97/x6UovvvB/+CGa7gNyJjy9P/CfR+w
Korvefh/6f7///2rL+A2IKHnyf9pW95jKIpovw/WnDnr/3+v0hO4DYjsevS/d/UHFEWhrffAmlvXAW3v
/PvfJf8AbgMCmx/+r5v/Dq4ouOXu/0V7///vAGrOmPPzv13dz//2GdtxG+BRdf9//rQ3KIrsim//T5/z
+79/17f/OoXv/lskrMdtgH3p3f/Zk19jKNJPOf/fpOjFf5WsT/+NI5fhNsAi787/1P7XWBUZJJ34L5v2
9b9u8DzcBhhm3f4f1vISpyL91Mv/NXyn4TZAJ+3Gf7/qh3gVqXhMwG2AU+6V/yAFeBUNQsDAAADwdsCr
peWacAAAAABJRU5ErkJggg==
</value>
</data>
<data name="ToolStripButton34.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAACBjSFJNAAB6
JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAAACXBIWXMAAA6mAAAOpgGH3KlvAAAAtklE
QVQ4T2MYOiC8/cF/KJN0EN/94H9wwzXyDIjvefh/6f7///2rL5BuQET7fbDmzFn//3uVniDNgNDWe2DN
reuAtnf+/e+Sf4B4A4Jb7v5ftPf//w6g5ow5P//b1f38b5+xnTQX2BXf/p8+5/d//65v/3UK3/23SFhP
ehjop5z/b1L04r9K1qf/xpHLSDcABAySTvyXTfv6Xzd4HnkGgIB+6uX/Gr7TyDcABFQ8JlBmwGAFDAwA
0BRgmAS6UFUAAAAASUVORK5CYII=
</value>
</data>
<data name="ToolStripButton35.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAACBjSFJNAAB6
JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAAACXBIWXMAAA6mAAAOpgGH3KlvAAAAo0lE
QVQ4T2MYfKBw1vP/UCZ5IHfms/8J3ffINyRjytP/8/b//p/QdYc8QxJ6nvyfve/X/86tf/+7lV4m3ZDI
rkf/p2z79b9k6d//CdP//rfJPUuaIYHND/+3rn0P1mxc8uW/dPS1/8aRy4g3xKPq/v+Sue/gmhVdekhz
gX3p3f+BLc/I0wwCFnl3/tsUXCFPMwgYZt0mXzMI6KTdIF/zUAQMDACgfl+gBzRCOAAAAABJRU5ErkJg
gg==
</value>
</data>
<data name="ToolStripButton36.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAACBjSFJNAAB6
JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAAACXBIWXMAAA6mAAAOpgGH3KlvAAABLElE
QVQ4T2MYXKBw1vP/UCYGAMk1LXj+P3PiY5xqGHJnPvuf0H0PqwKQ3Koj7/+Htz/AbUDGlKf/5+3//T+h
6w6GIpDcwn0f/gc3XMNtQELPk/+z9/3637n173+30ssoCkFy07a8/+9ffQG3AZFdj/5P2fbrf8nSv/8T
pv/9b5N7Fq4YJNe7+sN/r9ITuA0IbH74v3Xte7Bm45Iv/6Wjr/03jlwG1gCSq5v/7r9L/gHcBnhU3f9f
MvcdXLOiSw9cMUguf9qb//YZ23EbYF96939gyzMMzSAAksue/Pq/RcJ63AZY5N35b1NwBUMzCIDkUvtf
w72EFRhm3caqGQRAcmEtL//rBs/DbYBO2g2ckiA5v+qH/zV8p+E2AB9wyr3yX8VjAhhDhQYFYGAAAL7R
v7O5DE6cAAAAAElFTkSuQmCC
</value>
</data>
<data name="ToolStripButton37.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAACBjSFJNAAB6
JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAAACXBIWXMAAA6mAAAOpgGH3KlvAAABSklE
QVQ4T2MYvODuAvb/t+Zx/r86h+v/xRm8/6HCxIPrQI1/HjX+//Ow4f/JyQKkG3B+Oi/cgIM9IqQbcHyS
IFBz3f8/D6r+72gXJ2zApZk8/89O5ft/EqjxSL/Q/33dIkDN5f//3iv6v75B5v+qGrn/SysV/88vVf4/
q0gV08BTQH/+eVgP1FQLxJX//9wrAeK8/3/vZv7/eyf5/9/bcf//3YwA4pD/k3I0MQ041CsMdu7f+6VA
jQVAjdlAjalAjQn//92KBmoM+//vRtD/f9f9/nel6WIasLNd4v+WZqn/68DOlf+/pELx/99bMUCN4f+n
5mn8n5Cl9b87Q/d/e6r+/+ZEQ8JhMhvoT5Bz/90I+N+ToUNYAzoA+fPfDX8g9vvfmqxPugHd6bpg/4Jw
fZwR6Qa0JBn8b4g3/F8Ta/y/MtqEdAPoBBgYACQj2J51/IhpAAAAAElFTkSuQmCC
</value>
</data>
<data name="ToolStripButton38.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAACBjSFJNAAB6
JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAAACXBIWXMAAA6mAAAOpgGH3KlvAAABb0lE
QVQ4T7WQTSjDYRzHd1XeSu3iglo5IJO8hGQypLHIhMjMJAcOi4R2cXAg5UIOuEgOJCXlROI0b/Pamlp/
LVLaBf+4PB9jqLW/seJ7eep5vt/P7/v8VH8iXCfQbQTHDh9XkYmVeURnFcKsh631sBC8HliaCfawtgC9
JkS7HtFRAXMTipC3hsJcBiM9oe+cOgKQumxEYwHYmoJMYsiKMOXCpD1sQxWL04jK1HcQw1Zwn8FYfwDq
Pz9s4YXHBc3FgS8ZsxD1edDX8rvwp9jf9VfOQxjSoUYbYfhGgsZCyElA1sbzoI2F2uxf1r+5BlM+FCXi
sxjg4uh9uXdpfsjy7A8LvL+DVh2PJUm4S9Px7W1/BRi14dTEIJ8cKEN4eYZBC+iSOU5T49tYDTHelmcg
tVUje69DIexuIueqcaZEIXU1gPykOGlHE4fsdCgApkaQUqNx6zNBulKu6Zds74bzQwXApRPGB+Bw79vw
P0ilegWKIwMchCbSyQAAAABJRU5ErkJggg==
</value>
</data>
<metadata name="DataGridViewTextBoxColumn11.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>True</value>
</metadata>
<metadata name="bsw_cha.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>399, 17</value>
</metadata>
<metadata name="BindingNavigator2.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>514, 56</value>
</metadata>
<data name="ToolStripButton1.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAACBjSFJNAAB6
JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAAACXBIWXMAAA6mAAAOpgGH3KlvAAABKklE
QVQ4T2MYPKBw1vP/TQue/8+c+Pg/VAgDhLc/wCnHkDvz2f9VR97/x6UovvvB/+CGa7gNyJjy9P/CfR+w
Korvefh/6f7///2rL+A2IKHnyf9pW95jKIpovw/WnDnr/3+v0hO4DYjsevS/d/UHFEWhrffAmlvXAW3v
/PvfJf8AbgMCmx/+r5v/Dq4ouOXu/0V7///vAGrOmPPzv13dz//2GdtxG+BRdf9//rQ3KIrsim//T5/z
+79/17f/OoXv/lskrMdtgH3p3f/Zk19jKNJPOf/fpOjFf5WsT/+NI5fhNsAi787/1P7XWBUZJJ34L5v2
9b9u8DzcBhhm3f4f1vISpyL91Mv/NXyn4TZAJ+3Gf7/qh3gVqXhMwG2AU+6V/yAFeBUNQsDAAADwdsCr
peWacAAAAABJRU5ErkJggg==
</value>
</data>
<data name="ToolStripButton2.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAACBjSFJNAAB6
JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAAACXBIWXMAAA6mAAAOpgGH3KlvAAAAtklE
QVQ4T2MYOiC8/cF/KJN0EN/94H9wwzXyDIjvefh/6f7///2rL5BuQET7fbDmzFn//3uVniDNgNDWe2DN
reuAtnf+/e+Sf4B4A4Jb7v5ftPf//w6g5ow5P//b1f38b5+xnTQX2BXf/p8+5/d//65v/3UK3/23SFhP
ehjop5z/b1L04r9K1qf/xpHLSDcABAySTvyXTfv6Xzd4HnkGgIB+6uX/Gr7TyDcABFQ8JlBmwGAFDAwA
0BRgmAS6UFUAAAAASUVORK5CYII=
</value>
</data>
<data name="ToolStripButton3.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAACBjSFJNAAB6
JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAAACXBIWXMAAA6mAAAOpgGH3KlvAAAAo0lE
QVQ4T2MYfKBw1vP/UCZ5IHfms/8J3ffINyRjytP/8/b//p/QdYc8QxJ6nvyfve/X/86tf/+7lV4m3ZDI
rkf/p2z79b9k6d//CdP//rfJPUuaIYHND/+3rn0P1mxc8uW/dPS1/8aRy4g3xKPq/v+Sue/gmhVdekhz
gX3p3f+BLc/I0wwCFnl3/tsUXCFPMwgYZt0mXzMI6KTdIF/zUAQMDACgfl+gBzRCOAAAAABJRU5ErkJg
gg==
</value>
</data>
<data name="ToolStripButton4.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAACBjSFJNAAB6
JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAAACXBIWXMAAA6mAAAOpgGH3KlvAAABLElE
QVQ4T2MYXKBw1vP/UCYGAMk1LXj+P3PiY5xqGHJnPvuf0H0PqwKQ3Koj7/+Htz/AbUDGlKf/5+3//T+h
6w6GIpDcwn0f/gc3XMNtQELPk/+z9/3637n173+30ssoCkFy07a8/+9ffQG3AZFdj/5P2fbrf8nSv/8T
pv/9b5N7Fq4YJNe7+sN/r9ITuA0IbH74v3Xte7Bm45Iv/6Wjr/03jlwG1gCSq5v/7r9L/gHcBnhU3f9f
MvcdXLOiSw9cMUguf9qb//YZ23EbYF96939gyzMMzSAAksue/Pq/RcJ63AZY5N35b1NwBUMzCIDkUvtf
w72EFRhm3caqGQRAcmEtL//rBs/DbYBO2g2ckiA5v+qH/zV8p+E2AB9wyr3yX8VjAhhDhQYFYGAAAL7R
v7O5DE6cAAAAAElFTkSuQmCC
</value>
</data>
<data name="ToolStripButton5.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAACBjSFJNAAB6
JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAAACXBIWXMAAA6mAAAOpgGH3KlvAAABSklE
QVQ4T2MYvODuAvb/t+Zx/r86h+v/xRm8/6HCxIPrQI1/HjX+//Ow4f/JyQKkG3B+Oi/cgIM9IqQbcHyS
IFBz3f8/D6r+72gXJ2zApZk8/89O5ft/EqjxSL/Q/33dIkDN5f//3iv6v75B5v+qGrn/SysV/88vVf4/
q0gV08BTQH/+eVgP1FQLxJX//9wrAeK8/3/vZv7/eyf5/9/bcf//3YwA4pD/k3I0MQ041CsMdu7f+6VA
jQVAjdlAjalAjQn//92KBmoM+//vRtD/f9f9/nel6WIasLNd4v+WZqn/68DOlf+/pELx/99bMUCN4f+n
5mn8n5Cl9b87Q/d/e6r+/+ZEQ8JhMhvoT5Bz/90I+N+ToUNYAzoA+fPfDX8g9vvfmqxPugHd6bpg/4Jw
fZwR6Qa0JBn8b4g3/F8Ta/y/MtqEdAPoBBgYACQj2J51/IhpAAAAAElFTkSuQmCC
</value>
</data>
<data name="ToolStripButton6.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAACBjSFJNAAB6
JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAAACXBIWXMAAA6mAAAOpgGH3KlvAAABb0lE
QVQ4T7WQTSjDYRzHd1XeSu3iglo5IJO8hGQypLHIhMjMJAcOi4R2cXAg5UIOuEgOJCXlROI0b/Pamlp/
LVLaBf+4PB9jqLW/seJ7eep5vt/P7/v8VH8iXCfQbQTHDh9XkYmVeURnFcKsh631sBC8HliaCfawtgC9
JkS7HtFRAXMTipC3hsJcBiM9oe+cOgKQumxEYwHYmoJMYsiKMOXCpD1sQxWL04jK1HcQw1Zwn8FYfwDq
Pz9s4YXHBc3FgS8ZsxD1edDX8rvwp9jf9VfOQxjSoUYbYfhGgsZCyElA1sbzoI2F2uxf1r+5BlM+FCXi
sxjg4uh9uXdpfsjy7A8LvL+DVh2PJUm4S9Px7W1/BRi14dTEIJ8cKEN4eYZBC+iSOU5T49tYDTHelmcg
tVUje69DIexuIueqcaZEIXU1gPykOGlHE4fsdCgApkaQUqNx6zNBulKu6Zds74bzQwXApRPGB+Bw79vw
P0ilegWKIwMchCbSyQAAAABJRU5ErkJggg==
</value>
</data>
<metadata name="StatusStrip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>396, 56</value>
</metadata>
<metadata name="$this.TrayHeight" type="System.Int32, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>83</value>
</metadata>
</root>

691
ArinWarev1/Forms_Input/Frm_v20091231_Weather.vb Normal file
View File

@@ -0,0 +1,691 @@
Public Class Frm_V20091231_Weather
#Region "data Base 변경여부및 적용방법"
'''변경된내용을적용한다.
Public Overrides Function AcceptChanged() As Boolean
bs.EndEdit()
Dim BaseDS As DataSet = CType(bs.DataSource, DataSet)
Dim BaseDT As DataTable = BaseDS.Tables(bs.DataMember)
BaseDT.AcceptChanges()
Return True
End Function
'''변경된내용이있다면 취소한다.
Public Overrides Function RejectChanged() As Boolean
Dim BaseDS As DataSet = CType(bs.DataSource, DataSet)
Dim BaseDT As DataTable = BaseDS.Tables(bs.DataMember)
BaseDT.RejectChanges()
Return True
End Function
'''데이터에변형이있었는가?
Public Overrides Function HasChanged() As Boolean
bs.EndEdit()
Dim BaseDS As DataSet = CType(bs.DataSource, DataSet)
Dim BaseDT As DataTable = BaseDS.Tables(bs.DataMember)
Dim ChangeDT As DataTable = BaseDT.GetChanges
If Not ChangeDT Is Nothing Then Return True
Return False
End Function
'''기본데이터테이블을 반환합니다.
Public Function DT() As DataTable
Dim BaseDS As DataSet = CType(bs.DataSource, DataSet)
Return BaseDS.Tables(bs.DataMember)
End Function
#End Region
Public Sub New(_opentime)
' 이 호출은 디자이너에 필요합니다.
InitializeComponent()
OpenTime = _opentime
' InitializeComponent() 호출 뒤에 초기화 코드를 추가하십시오.
End Sub
Private Sub MdiMain_FormClosed(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosedEventArgs) Handles Me.FormClosed
CEnergy.ARINCLASS.SaveLoad_FrmSetting(Me, Me.bs.Position, True)
End Sub
Private Sub MdiMain_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown
Select Case e.KeyCode
Case Keys.F12
End Select
End Sub
Private Sub MdiMain_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Me.Show()
My.Application.DoEvents()
' Work_msg_timer("잠시만 기다려주세요")
'CEnergy.ARINCLASS.SaveLoad_FrmSetting(Me)
'//Weatehr
AddHandler DSET1.tbl_weather.TableNewRow, AddressOf AddNewDataRow_Weather
AddHandler DSET1.weather_ilsa.TableNewRow, AddressOf AddNewDataRow_Weatherilsa
AddHandler DSET1.weather_supdo.TableNewRow, AddressOf AddNewDataRow_Weathersupdo
AddHandler DSET1.weather_temp.TableNewRow, AddressOf AddNewDataRow_Weathertemp
AddHandler DSET1.weather_cha.TableNewRow, AddressOf AddNewDataRow_WeatherCha
Me.bs.DataSource = DSET1
Me.bsw_ilsa.DataSource = DSET1
Me.bsw_supdo.DataSource = DSET1
Me.bsw_temp.DataSource = DSET1
Me.bsw_cha.DataSource = DSET1
'//콤보컨트롤 바인딩
Me.bn_all.BindingSource = Me.bs
Me.bs = Me.bs
Try
Me.bs.Position = CEnergy.ARINCLASS.Read_LastPos_Frm(Me)
Catch ex As Exception
Me.bs.MoveFirst()
End Try
AddDebug("▲ Form Load")
End Sub
#Region "Weather 관련"
Private Sub AddNewDataRow_Weather(ByVal sender As Object, ByVal e As System.Data.DataTableNewRowEventArgs)
e.Row.Item("code") = GetMaxCode(DSET1.tbl_weather)
End Sub
Private Sub AddNewDataRow_Weatherilsa(ByVal sender As Object, ByVal e As System.Data.DataTableNewRowEventArgs)
e.Row.Item("pcode") = CType(bs.Current, DataRowView)("code")
'//일사데이터는 0001로부터하게한다
Dim Newcode As String
Try
Dim Dr As DataRow = DSET1.weather_ilsa.Select("pcode='" & e.Row.Item("pcode").ToString & "'", "code desc")(0)
Newcode = Format(CInt(Dr("code")) + 1, "0000")
Catch ex As Exception
Newcode = "0001"
End Try
e.Row.Item("code") = Newcode
End Sub
Private Sub AddNewDataRow_Weathertemp(ByVal sender As Object, ByVal e As System.Data.DataTableNewRowEventArgs)
e.Row.Item("pcode") = CType(bs.Current, DataRowView)("code")
e.Row.Item("code") = GetMaxCode(DSET1.weather_temp)
End Sub
Private Sub AddNewDataRow_Weathersupdo(ByVal sender As Object, ByVal e As System.Data.DataTableNewRowEventArgs)
e.Row.Item("pcode") = CType(bs.Current, DataRowView)("code")
e.Row.Item("code") = GetMaxCode(DSET1.weather_supdo)
End Sub
Private Sub AddNewDataRow_WeatherCha(ByVal sender As Object, ByVal e As System.Data.DataTableNewRowEventArgs)
e.Row.Item("pcode") = CType(bs.Current, DataRowView)("code")
e.Row.Item("code") = GetMaxCode(DSET1.weather_cha)
End Sub
Private Function GetMaxCode(ByVal dt As DataTable) As String
Try
Dim Dr As DataRow = dt.Select("", "code desc")(0)
Return Format(CInt(Dr("code")) + 1, "0000")
Catch ex As Exception
Return "0001"
End Try
End Function
Private Sub bt_add_weather_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
If Not EndEdit(Me.bs) Then Return
Me.bs.AddNew()
End Sub
Private Sub bt_Del_weather_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
Dbbase.DelCrow(Me.bs, True)
End Sub
Private Sub bt_save_weather_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
If Not EndEdit(Me.bs) Then Return
If Not EndEdit(Me.bsw_supdo) Then Return
If Not EndEdit(Me.bsw_ilsa) Then Return
If Not EndEdit(Me.bsw_temp) Then Return
If Not EndEdit(Me.bsw_cha) Then Return
Check_Modify(Me.DS.tbl_weather)
Check_Modify(Me.DS.weather_ilsa, False)
Check_Modify(Me.DS.weather_supdo, False)
Check_Modify(Me.DS.weather_temp, False)
Check_Modify(Me.DS.weather_cha, False)
End Sub
Private Sub bs_CurrentChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bs.CurrentChanged
Dim pcode As String = CType(bs.Current, DataRowView)("code").ToString
Me.bsw_ilsa.Filter = "pcode='" & pcode & "'"
Me.bsw_temp.Filter = "pcode='" & pcode & "'"
Me.bsw_supdo.Filter = "pcode='" & pcode & "'"
Me.bsw_cha.Filter = "pcode='" & pcode & "'"
If DSET1.weather_temp.Select("pcode='" & pcode & "'").GetUpperBound(0) = -1 Then
For i As Integer = 1 To 12
'MsgBox(i)
Dim Dr As DS.weather_tempRow = DSET1.weather_temp.Newweather_tempRow
Dr.code = Format(i, "0000")
Dr.설명 = Format(i, "00") & "월"
DSET1.weather_temp.Addweather_tempRow(Dr)
Next
Else
'MsgBox(Me.bsw_temp.Count)
End If
If DSET1.weather_supdo.Select("pcode='" & pcode & "'").GetUpperBound(0) = -1 Then
For i As Integer = 1 To 12
Dim Dr As DS.weather_supdoRow = DSET1.weather_supdo.Newweather_supdoRow
Dr.code = Format(i, "0000")
Dr.설명 = Format(i, "00") & "월"
DSET1.weather_supdo.Addweather_supdoRow(Dr)
Next
Else
'MsgBox(Me.bsw_supdo.Count)
End If
Me.DS.weather_temp.AcceptChanges()
Me.DS.weather_supdo.AcceptChanges()
End Sub
Private Sub ToolStripButton14_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton14.Click
If Not EndEdit(Me.bsw_ilsa) Then Return
Me.bsw_ilsa.AddNew()
End Sub
Private Sub ToolStripButton15_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton15.Click
Dbbase.DelCrow(Me.bsw_ilsa, True)
End Sub
Private Sub ToolStripButton29_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton29.Click
If Not EndEdit(Me.bsw_temp) Then Return
Me.bsw_temp.AddNew()
End Sub
Private Sub ToolStripButton30_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton30.Click
Dbbase.DelCrow(Me.bsw_temp, True)
End Sub
Private Sub ToolStripButton37_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton37.Click
If Not EndEdit(Me.bsw_supdo) Then Return
Me.bsw_supdo.AddNew()
End Sub
Private Sub ToolStripButton38_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton38.Click
Dbbase.DelCrow(Me.bsw_supdo, True)
End Sub
Private Sub ToolStripButton6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton6.Click
Dbbase.DelCrow(Me.bsw_cha, True)
End Sub
Private Sub ToolStripButton5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton5.Click
If Not EndEdit(Me.bsw_cha) Then Return
Me.bsw_cha.AddNew()
End Sub
#End Region
Private Sub ToolStripButton48_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton48.Click
If Prj.Opened = False Then
MsgBox("먼저 파일을 불러오세요", MsgBoxStyle.Information, "확인")
Return
End If
If Not EndEdit(Me.bs) Then Return
Me.bs.AddNew()
End Sub
Private Sub ToolStripButton49_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton49.Click
If Prj.Opened = False Then
MsgBox("먼저 파일을 불러오세요", MsgBoxStyle.Information, "확인")
Return
End If
Dbbase.DelCrow(Me.bs, True)
End Sub
Private Sub ToolStripButton51_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton51.Click
If Prj.Opened = False Then
MsgBox("먼저 파일을 불러오세요", MsgBoxStyle.Information, "확인")
Return
End If
If MsgBox("변경된 내용을 취소하시겠습니까?", MsgBoxStyle.Information Or MsgBoxStyle.OkCancel, "변경취소") <> MsgBoxResult.Ok Then Return
DSET1.tbl_weather.RejectChanges()
DSET1.weather_cha.RejectChanges()
DSET1.weather_ilsa.RejectChanges()
DSET1.weather_supdo.RejectChanges()
DSET1.weather_temp.RejectChanges()
End Sub
Private Sub tb_t1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles tb_t1.KeyDown
'If e.KeyCode = Keys.V And e.Control Then
' e.Handled = True
' e.SuppressKeyPress = False
' '//클립보드붙여넣기
' Dim CB() As String = My.Computer.Clipboard.GetText.Split(CChar(vbCrLf))
' Dim Cnt As Short = 0
' For i As Integer = 0 To CB.GetUpperBound(0)
' If CB(i).Trim <> "" Then
' If Cnt <> 0 Then
' Dim Ctl As TextBox = CType(Me.TableLayoutPanel3.Controls(Me.TableLayoutPanel3.Controls.IndexOfKey("tb_t" & CStr(Cnt + 1))), TextBox)
' Ctl.Text = CB(i).Trim
' End If
' Cnt = CShort(Cnt + 1)
' End If
' Next
'End If
If e.KeyCode = Keys.V And e.Control Then
e.Handled = True
e.SuppressKeyPress = False
'//클립보드붙여넣기
Dim CB() As String = My.Computer.Clipboard.GetText.Split(CChar(vbCrLf))
If CB.GetUpperBound(0) < 23 Then
MsgBox("붙여넣기가 호환되는 데이터가 아닙니다.", MsgBoxStyle.Information, "확인")
Return
End If
For ii As Integer = 0 To CType(CB(0).Split(CChar(vbTab)), String()).GetUpperBound(0)
Dim Cnt As Short = 0
For i As Integer = 0 To CB.GetUpperBound(0)
Select Case i
Case 0
'//Me.tb_t1.Text = CB(i).Split(CChar(vbTab))(ii).Trim
Case 1
Me.tb_t2.Text = CB(i).Split(CChar(vbTab))(ii).Trim
Case 2
Me.tb_t3.Text = CB(i).Split(CChar(vbTab))(ii).Trim
Case 3
Me.tb_t4.Text = CB(i).Split(CChar(vbTab))(ii).Trim
Case 4
Me.tb_t5.Text = CB(i).Split(CChar(vbTab))(ii).Trim
Case 5
Me.tb_t6.Text = CB(i).Split(CChar(vbTab))(ii).Trim
Case 6
Me.tb_t7.Text = CB(i).Split(CChar(vbTab))(ii).Trim
Case 7
Me.tb_t8.Text = CB(i).Split(CChar(vbTab))(ii).Trim
Case 8
Me.tb_t9.Text = CB(i).Split(CChar(vbTab))(ii).Trim
Case 9
Me.tb_t10.Text = CB(i).Split(CChar(vbTab))(ii).Trim
Case 10
Me.tb_t11.Text = CB(i).Split(CChar(vbTab))(ii).Trim
Case 11
Me.tb_t12.Text = CB(i).Split(CChar(vbTab))(ii).Trim
Case 12
Me.tb_t13.Text = CB(i).Split(CChar(vbTab))(ii).Trim
Case 13
Me.tb_t14.Text = CB(i).Split(CChar(vbTab))(ii).Trim
Case 14
Me.tb_t15.Text = CB(i).Split(CChar(vbTab))(ii).Trim
Case 15
Me.tb_t16.Text = CB(i).Split(CChar(vbTab))(ii).Trim
Case 16
Me.tb_t17.Text = CB(i).Split(CChar(vbTab))(ii).Trim
Case 17
Me.tb_t18.Text = CB(i).Split(CChar(vbTab))(ii).Trim
Case 18
Me.tb_t19.Text = CB(i).Split(CChar(vbTab))(ii).Trim
Case 19
Me.tb_t20.Text = CB(i).Split(CChar(vbTab))(ii).Trim
Case 20
Me.tb_t21.Text = CB(i).Split(CChar(vbTab))(ii).Trim
Case 21
Me.tb_t22.Text = CB(i).Split(CChar(vbTab))(ii).Trim
Case 22
Me.tb_t23.Text = CB(i).Split(CChar(vbTab))(ii).Trim
Case 23
Me.tb_t24.Text = CB(i).Split(CChar(vbTab))(ii).Trim
End Select
Next
'//If bsw_temp.Position < bsw_temp.Count Then bsw_temp.Position += 1 '//위치이동
Next
Me.bsw_temp.EndEdit()
End If
End Sub
Private Sub tb_s1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles tb_s1.KeyDown
'If e.KeyCode = Keys.V And e.Control Then
' e.Handled = True
' e.SuppressKeyPress = False
' '//클립보드붙여넣기
' Dim CB() As String = My.Computer.Clipboard.GetText.Split(CChar(vbCrLf))
' Dim Cnt As Short = 0
' For i As Integer = 0 To CB.GetUpperBound(0)
' If CB(i).Trim <> "" Then
' If Cnt <> 0 Then
' Dim Ctl As TextBox = CType(Me.TableLayoutPanel7.Controls(Me.TableLayoutPanel7.Controls.IndexOfKey("tb_s" & CStr(Cnt + 1))), TextBox)
' Ctl.Text = CB(i).Trim
' End If
' Cnt = CShort(Cnt + 1)
' End If
' Next
'End If
If e.KeyCode = Keys.V And e.Control Then
e.Handled = True
e.SuppressKeyPress = False
'//클립보드붙여넣기
Dim CB() As String = My.Computer.Clipboard.GetText.Split(CChar(vbCrLf))
If CB.GetUpperBound(0) < 23 Then
MsgBox("붙여넣기가 호환되는 데이터가 아닙니다.", MsgBoxStyle.Information, "확인")
Return
End If
For ii As Integer = 0 To CType(CB(0).Split(CChar(vbTab)), String()).GetUpperBound(0)
Dim Cnt As Short = 0
For i As Integer = 0 To CB.GetUpperBound(0)
Select Case i
Case 0
'//Me.tb_s1.Text = CB(i).Split(CChar(vbTab))(ii).Trim
Case 1
Me.tb_s2.Text = CB(i).Split(CChar(vbTab))(ii).Trim
Case 2
Me.tb_s3.Text = CB(i).Split(CChar(vbTab))(ii).Trim
Case 3
Me.tb_s4.Text = CB(i).Split(CChar(vbTab))(ii).Trim
Case 4
Me.tb_s5.Text = CB(i).Split(CChar(vbTab))(ii).Trim
Case 5
Me.tb_s6.Text = CB(i).Split(CChar(vbTab))(ii).Trim
Case 6
Me.tb_s7.Text = CB(i).Split(CChar(vbTab))(ii).Trim
Case 7
Me.tb_s8.Text = CB(i).Split(CChar(vbTab))(ii).Trim
Case 8
Me.tb_s9.Text = CB(i).Split(CChar(vbTab))(ii).Trim
Case 9
Me.tb_s10.Text = CB(i).Split(CChar(vbTab))(ii).Trim
Case 10
Me.tb_s11.Text = CB(i).Split(CChar(vbTab))(ii).Trim
Case 11
Me.tb_S12.Text = CB(i).Split(CChar(vbTab))(ii).Trim
Case 12
Me.tb_s13.Text = CB(i).Split(CChar(vbTab))(ii).Trim
Case 13
Me.tb_s14.Text = CB(i).Split(CChar(vbTab))(ii).Trim
Case 14
Me.tb_s15.Text = CB(i).Split(CChar(vbTab))(ii).Trim
Case 15
Me.tb_s16.Text = CB(i).Split(CChar(vbTab))(ii).Trim
Case 16
Me.tb_s17.Text = CB(i).Split(CChar(vbTab))(ii).Trim
Case 17
Me.tb_s18.Text = CB(i).Split(CChar(vbTab))(ii).Trim
Case 18
Me.tb_s19.Text = CB(i).Split(CChar(vbTab))(ii).Trim
Case 19
Me.tb_s20.Text = CB(i).Split(CChar(vbTab))(ii).Trim
Case 20
Me.tb_s21.Text = CB(i).Split(CChar(vbTab))(ii).Trim
Case 21
Me.tb_s22.Text = CB(i).Split(CChar(vbTab))(ii).Trim
Case 22
Me.tb_s23.Text = CB(i).Split(CChar(vbTab))(ii).Trim
Case 23
Me.tb_s24.Text = CB(i).Split(CChar(vbTab))(ii).Trim
End Select
Next
'//If bsw_supdo.Position < bsw_supdo.Count Then bsw_supdo.Position += 1 '//위치이동
Next
Me.bsw_supdo.EndEdit()
End If
End Sub
Private Sub tb_v0_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles tb_v0.KeyDown
'If e.KeyCode = Keys.V And e.Control Then
' '//클립보드붙여넣기
' Dim CB() As String = My.Computer.Clipboard.GetText.Split(CChar(vbCrLf))
' Dim Cnt As Short = 0
' For i As Integer = 0 To CB.GetUpperBound(0)
' If CB(i).Trim <> "" Then
' If Cnt <> 0 Then
' Dim Ctl As TextBox = CType(Me.TableLayoutPanel2.Controls(Me.TableLayoutPanel2.Controls.IndexOfKey("tb_v" & CStr(Cnt))), TextBox)
' Ctl.Text = CB(i).Trim
' End If
' Cnt = CShort(Cnt + 1)
' End If
' Next
' e.Handled = True
' e.SuppressKeyPress = False
'End If
Dim CB() As String = My.Computer.Clipboard.GetText.Split(CChar(vbCrLf))
If CB.GetUpperBound(0) < 12 Then
MsgBox("붙여넣기가 호환되는 데이터가 아닙니다.", MsgBoxStyle.Information, "확인")
Return
End If
If e.KeyCode = Keys.V And e.Control Then
e.Handled = True
e.SuppressKeyPress = False
'//클립보드붙여넣기
For ii As Integer = 0 To CType(CB(0).Split(CChar(vbTab)), String()).GetUpperBound(0)
'If Me.bs.Count = 0 OrElse ii > 0 Then Me.bt_Add.PerformClick() '//한줄추가
'MsgBox(CB.GetUpperBound(0))
Dim Cnt As Short = 0
For i As Integer = 0 To CB.GetUpperBound(0)
Select Case i
Case 0 '///조명은 신규기록하지않으므로.. 쓰지않게한다.
'//Me.tb_v0.Text = CB(i).Split(CChar(vbTab))(ii).Trim
Case 1 '///조명은 신규기록하지않으므로.. 쓰지않게한다.
Me.tb_v1.Text = CB(i).Split(CChar(vbTab))(ii).Trim
Case 2 '///조명은 신규기록하지않으므로.. 쓰지않게한다.
Me.tb_v2.Text = CB(i).Split(CChar(vbTab))(ii).Trim
Case 3 '///조명은 신규기록하지않으므로.. 쓰지않게한다.
Me.tb_v3.Text = CB(i).Split(CChar(vbTab))(ii).Trim
Case 4 '///조명은 신규기록하지않으므로.. 쓰지않게한다.
Me.tb_v4.Text = CB(i).Split(CChar(vbTab))(ii).Trim
Case 5 '///조명은 신규기록하지않으므로.. 쓰지않게한다.
Me.tb_v5.Text = CB(i).Split(CChar(vbTab))(ii).Trim
Case 6 '///조명은 신규기록하지않으므로.. 쓰지않게한다.
Me.tb_v6.Text = CB(i).Split(CChar(vbTab))(ii).Trim
Case 7 '///조명은 신규기록하지않으므로.. 쓰지않게한다.
Me.tb_v7.Text = CB(i).Split(CChar(vbTab))(ii).Trim
Case 8 '///조명은 신규기록하지않으므로.. 쓰지않게한다.
Me.tb_v8.Text = CB(i).Split(CChar(vbTab))(ii).Trim
Case 9 '///조명은 신규기록하지않으므로.. 쓰지않게한다.
Me.tb_v9.Text = CB(i).Split(CChar(vbTab))(ii).Trim
Case 10 '///조명은 신규기록하지않으므로.. 쓰지않게한다.
Me.tb_v10.Text = CB(i).Split(CChar(vbTab))(ii).Trim
Case 11 '///조명은 신규기록하지않으므로.. 쓰지않게한다.
Me.tb_v11.Text = CB(i).Split(CChar(vbTab))(ii).Trim
Case 12 '///조명은 신규기록하지않으므로.. 쓰지않게한다.
Me.tb_v12.Text = CB(i).Split(CChar(vbTab))(ii).Trim
End Select
Next
'// If bsw_cha.Position < bsw_cha.Count Then bsw_cha.Position += 1 '//위치이동
Next
Me.bsw_ilsa.EndEdit()
End If
End Sub
Private Sub Frm_V20091231_Zone_MouseWheel(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseWheel
If e.Delta < 0 Then
If Me.bs.Position < Me.bs.Count Then Me.bs.Position += 1
Else
If Me.bs.Position > 0 Then Me.bs.Position -= 1
End If
Me.Validate()
My.Application.DoEvents()
End Sub
Private Sub NTb4_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles tb_c01.KeyDown
If e.KeyCode = Keys.V And e.Control Then
e.Handled = True
e.SuppressKeyPress = False
'//클립보드붙여넣기
Dim CB() As String = My.Computer.Clipboard.GetText.Split(CChar(vbCrLf))
If CB.GetUpperBound(0) < 11 Then
MsgBox("붙여넣기가 호환되는 데이터가 아닙니다.", MsgBoxStyle.Information, "확인")
Return
End If
For ii As Integer = 0 To CType(CB(0).Split(CChar(vbTab)), String()).GetUpperBound(0)
'If Me.bs.Count = 0 OrElse ii > 0 Then Me.bt_Add.PerformClick() '//한줄추가
'MsgBox(CB.GetUpperBound(0))
Dim Cnt As Short = 0
For i As Integer = 0 To CB.GetUpperBound(0)
Select Case i
Case 0 '///조명은 신규기록하지않으므로.. 쓰지않게한다.
'//Me.tb_c01.Text = CB(i).Split(CChar(vbTab))(ii).Trim
Case 1 '///조명은 신규기록하지않으므로.. 쓰지않게한다.
Me.tb_c02.Text = CB(i).Split(CChar(vbTab))(ii).Trim
Case 2 '///조명은 신규기록하지않으므로.. 쓰지않게한다.
Me.tb_c03.Text = CB(i).Split(CChar(vbTab))(ii).Trim
Case 3 '///조명은 신규기록하지않으므로.. 쓰지않게한다.
Me.tb_c04.Text = CB(i).Split(CChar(vbTab))(ii).Trim
Case 4 '///조명은 신규기록하지않으므로.. 쓰지않게한다.
Me.tb_c05.Text = CB(i).Split(CChar(vbTab))(ii).Trim
Case 5 '///조명은 신규기록하지않으므로.. 쓰지않게한다.
Me.tb_c06.Text = CB(i).Split(CChar(vbTab))(ii).Trim
Case 6 '///조명은 신규기록하지않으므로.. 쓰지않게한다.
Me.tb_c07.Text = CB(i).Split(CChar(vbTab))(ii).Trim
Case 7 '///조명은 신규기록하지않으므로.. 쓰지않게한다.
Me.tb_c08.Text = CB(i).Split(CChar(vbTab))(ii).Trim
Case 8 '///조명은 신규기록하지않으므로.. 쓰지않게한다.
Me.tb_c09.Text = CB(i).Split(CChar(vbTab))(ii).Trim
Case 9 '///조명은 신규기록하지않으므로.. 쓰지않게한다.
Me.tb_c10.Text = CB(i).Split(CChar(vbTab))(ii).Trim
Case 10 '///조명은 신규기록하지않으므로.. 쓰지않게한다.
Me.tb_c11.Text = CB(i).Split(CChar(vbTab))(ii).Trim
Case 11 '///조명은 신규기록하지않으므로.. 쓰지않게한다.
Me.tb_c12.Text = CB(i).Split(CChar(vbTab))(ii).Trim
End Select
Next
'//If bsw_cha.Position < bsw_cha.Count Then bsw_cha.Position += 1 '//위치이동
Next
Me.bsw_cha.EndEdit()
End If
End Sub
Private Sub dv_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles dv.MouseUp
If e.Button = Windows.Forms.MouseButtons.Right Then
Dim Frm_FilterA As New Frm_Filter
Frm_FilterA.ColumTitle = getColCaption(Me.Dt)
Frm_FilterA.ColumList = getColName(Me.Dt)
Frm_FilterA.Colorlist = ""
If Frm_FilterA.ShowDialog <> Windows.Forms.DialogResult.OK Then Return '//창떳을떄 확인아ㅣ고 취소눌르면 다음을 수행하지않는다는거에요.
Dim Filter As String = Frm_FilterA.tb_filter.Text '//값은 아까 그 텍박에 잇구요.
Try
Me.bs.Filter = Filter
Catch ex As Exception
Me.bs.Filter = ""
End Try
End If
End Sub
Private Sub 외기온도_난방기_NTb_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles tb_wnan.KeyDown
If e.KeyCode = Keys.V And e.Control Then
e.Handled = True
e.SuppressKeyPress = False
'//클립보드붙여넣기
Dim CB() As String = My.Computer.Clipboard.GetText.Split(CChar(vbCrLf))
If CB.GetUpperBound(0) < 14 Then
MsgBox("붙여넣기가 호환되는 데이터가 아닙니다.", MsgBoxStyle.Information, "확인")
Return
End If
For ii As Integer = 0 To CType(CB(0).Split(CChar(vbTab)), String()).GetUpperBound(0)
'If Me.bs.Count = 0 OrElse ii > 0 Then Me.bt_Add.PerformClick() '//한줄추가
'MsgBox(CB.GetUpperBound(0))
Dim Cnt As Short = 0
For i As Integer = 0 To CB.GetUpperBound(0)
Select Case i
Case 0 '///조명은 신규기록하지않으므로.. 쓰지않게한다.
'Me.tb_wnan.Text = CB(i).Split(CChar(vbTab))(ii).Trim
Case 1 '///조명은 신규기록하지않으므로.. 쓰지않게한다.
Me.tb_wnaen.Text = CB(i).Split(CChar(vbTab))(ii).Trim
Case 2 '///조명은 신규기록하지않으므로.. 쓰지않게한다.
'Me.tb_c03.Text = CB(i).Split(CChar(vbTab))(ii).Trim
Case 3 '///조명은 신규기록하지않으므로.. 쓰지않게한다.
Me.tb_w01.Text = CB(i).Split(CChar(vbTab))(ii).Trim
Case 4 '///조명은 신규기록하지않으므로.. 쓰지않게한다.
Me.tb_w02.Text = CB(i).Split(CChar(vbTab))(ii).Trim
Case 5 '///조명은 신규기록하지않으므로.. 쓰지않게한다.
Me.tb_w03.Text = CB(i).Split(CChar(vbTab))(ii).Trim
Case 6 '///조명은 신규기록하지않으므로.. 쓰지않게한다.
Me.tb_w04.Text = CB(i).Split(CChar(vbTab))(ii).Trim
Case 7 '///조명은 신규기록하지않으므로.. 쓰지않게한다.
Me.tb_w05.Text = CB(i).Split(CChar(vbTab))(ii).Trim
Case 8 '///조명은 신규기록하지않으므로.. 쓰지않게한다.
Me.tb_w06.Text = CB(i).Split(CChar(vbTab))(ii).Trim
Case 9 '///조명은 신규기록하지않으므로.. 쓰지않게한다.
Me.tb_w07.Text = CB(i).Split(CChar(vbTab))(ii).Trim
Case 10 '///조명은 신규기록하지않으므로.. 쓰지않게한다.
Me.tb_w08.Text = CB(i).Split(CChar(vbTab))(ii).Trim
Case 11 '///조명은 신규기록하지않으므로.. 쓰지않게한다.
Me.tb_w09.Text = CB(i).Split(CChar(vbTab))(ii).Trim
Case 12 '///조명은 신규기록하지않으므로.. 쓰지않게한다.
Me.tb_w10.Text = CB(i).Split(CChar(vbTab))(ii).Trim
Case 13 '///조명은 신규기록하지않으므로.. 쓰지않게한다.
Me.tb_w11.Text = CB(i).Split(CChar(vbTab))(ii).Trim
Case 14 '///조명은 신규기록하지않으므로.. 쓰지않게한다.
Me.tb_w12.Text = CB(i).Split(CChar(vbTab))(ii).Trim
End Select
Next
If bsw_cha.Position < bsw_cha.Count Then bsw_cha.Position += 1 '//위치이동
Next
Me.bsw_cha.EndEdit()
End If
End Sub
Private Sub Arindv2_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Arindv2.KeyDown
If e.KeyCode = Keys.C AndAlso e.Control Then
My.Computer.Clipboard.SetData("ILSAROW", Me.Arindv2.SelectedRows)
ElseIf e.KeyCode = Keys.V AndAlso e.Control Then
Dim A As DataGridViewSelectedRowCollection = My.Computer.Clipboard.GetData("ILSAROW")
For i As Integer = 1 To A.Count
Me.ToolStripButton14.PerformClick() '//한줄추가하고
Dim Drv As DataRowView = Me.bsw_ilsa.Current
Drv("설명") = A(i).Cells(0).Value
Next
End If
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
For Each drp As DS.tbl_weatherRow In DSET1.tbl_weather.Rows
Dim i As Integer = 0
For Each dr As DS.weather_chaRow In DSET1.weather_cha.Select("pcode='" & drp.code & "'")
i += 1
dr.code = Format(i, "0000")
Next
Next
'For j As Integer = 1 To DSET1.weather_cha.Select(Me.bsw_cha.Filter).Length
' DSET1.weather_cha.Select(Me.bsw_cha.Filter)(j - 1)("code") = Format(j, "0000")
'Next
DS.weather_cha.AcceptChanges() '//이건 변경내역을 반영하게삳는겁니다.
End Sub
End Class

355
ArinWarev1/Forms_Input/Frm_v20091231_buha.Designer.vb generated Normal file
View File

@@ -0,0 +1,355 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class Frm_V20091231_buha
Inherits CForm
'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.components = New System.ComponentModel.Container()
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(Frm_V20091231_buha))
Dim DataGridViewCellStyle1 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Me.bn_all = New System.Windows.Forms.BindingNavigator(Me.components)
Me.bs = New System.Windows.Forms.BindingSource(Me.components)
Me.DS = New Eco2Ar.DS()
Me.ToolStripLabel6 = New System.Windows.Forms.ToolStripLabel()
Me.ToolStripButton44 = New System.Windows.Forms.ToolStripButton()
Me.ToolStripButton45 = New System.Windows.Forms.ToolStripButton()
Me.ToolStripSeparator25 = New System.Windows.Forms.ToolStripSeparator()
Me.ToolStripTextBox6 = New System.Windows.Forms.ToolStripTextBox()
Me.ToolStripSeparator26 = New System.Windows.Forms.ToolStripSeparator()
Me.ToolStripButton46 = New System.Windows.Forms.ToolStripButton()
Me.ToolStripButton47 = New System.Windows.Forms.ToolStripButton()
Me.ToolStripSeparator27 = New System.Windows.Forms.ToolStripSeparator()
Me.ToolStripButton48 = New System.Windows.Forms.ToolStripButton()
Me.ToolStripButton49 = New System.Windows.Forms.ToolStripButton()
Me.ToolStripSeparator28 = New System.Windows.Forms.ToolStripSeparator()
Me.ToolStripButton51 = New System.Windows.Forms.ToolStripButton()
Me.Arindv9 = New CEnergy.arindv()
Me.CodeDataGridViewTextBoxColumn = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.설명 = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.n01 = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.n02 = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.n03 = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.n04 = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.n05 = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.n06 = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.n07 = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.n08 = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.n09 = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.n10 = New System.Windows.Forms.DataGridViewTextBoxColumn()
CType(Me.bn_all, System.ComponentModel.ISupportInitialize).BeginInit()
Me.bn_all.SuspendLayout()
CType(Me.bs, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.DS, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.Arindv9, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SuspendLayout()
'
'bn_all
'
Me.bn_all.AddNewItem = Nothing
Me.bn_all.BindingSource = Me.bs
Me.bn_all.CountItem = Me.ToolStripLabel6
Me.bn_all.DeleteItem = Nothing
Me.bn_all.Dock = System.Windows.Forms.DockStyle.Bottom
Me.bn_all.Font = New System.Drawing.Font("돋움", 8.999999!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(129, Byte))
Me.bn_all.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToolStripButton44, Me.ToolStripButton45, Me.ToolStripSeparator25, Me.ToolStripTextBox6, Me.ToolStripLabel6, Me.ToolStripSeparator26, Me.ToolStripButton46, Me.ToolStripButton47, Me.ToolStripSeparator27, Me.ToolStripButton48, Me.ToolStripButton49, Me.ToolStripSeparator28, Me.ToolStripButton51})
Me.bn_all.Location = New System.Drawing.Point(0, 384)
Me.bn_all.MoveFirstItem = Me.ToolStripButton44
Me.bn_all.MoveLastItem = Me.ToolStripButton47
Me.bn_all.MoveNextItem = Me.ToolStripButton46
Me.bn_all.MovePreviousItem = Me.ToolStripButton45
Me.bn_all.Name = "bn_all"
Me.bn_all.PositionItem = Me.ToolStripTextBox6
Me.bn_all.Size = New System.Drawing.Size(654, 25)
Me.bn_all.TabIndex = 7
Me.bn_all.Text = "BindingNavigator1"
'
'bs
'
Me.bs.DataMember = "tbl_buha"
Me.bs.DataSource = Me.DS
Me.bs.Filter = "code <> '0'"
'
'DS
'
Me.DS.DataSetName = "DS"
Me.DS.SchemaSerializationMode = System.Data.SchemaSerializationMode.IncludeSchema
'
'ToolStripLabel6
'
Me.ToolStripLabel6.Name = "ToolStripLabel6"
Me.ToolStripLabel6.Size = New System.Drawing.Size(29, 22)
Me.ToolStripLabel6.Text = "/{0}"
Me.ToolStripLabel6.ToolTipText = "전체 항목 수"
'
'ToolStripButton44
'
Me.ToolStripButton44.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
Me.ToolStripButton44.Image = CType(resources.GetObject("ToolStripButton44.Image"), System.Drawing.Image)
Me.ToolStripButton44.Name = "ToolStripButton44"
Me.ToolStripButton44.RightToLeftAutoMirrorImage = True
Me.ToolStripButton44.Size = New System.Drawing.Size(23, 22)
Me.ToolStripButton44.Text = "처음으로 이동"
'
'ToolStripButton45
'
Me.ToolStripButton45.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
Me.ToolStripButton45.Image = CType(resources.GetObject("ToolStripButton45.Image"), System.Drawing.Image)
Me.ToolStripButton45.Name = "ToolStripButton45"
Me.ToolStripButton45.RightToLeftAutoMirrorImage = True
Me.ToolStripButton45.Size = New System.Drawing.Size(23, 22)
Me.ToolStripButton45.Text = "이전으로 이동"
'
'ToolStripSeparator25
'
Me.ToolStripSeparator25.Name = "ToolStripSeparator25"
Me.ToolStripSeparator25.Size = New System.Drawing.Size(6, 25)
'
'ToolStripTextBox6
'
Me.ToolStripTextBox6.AccessibleName = "위치"
Me.ToolStripTextBox6.AutoSize = False
Me.ToolStripTextBox6.Name = "ToolStripTextBox6"
Me.ToolStripTextBox6.Size = New System.Drawing.Size(50, 21)
Me.ToolStripTextBox6.Text = "0"
Me.ToolStripTextBox6.ToolTipText = "현재 위치"
'
'ToolStripSeparator26
'
Me.ToolStripSeparator26.Name = "ToolStripSeparator26"
Me.ToolStripSeparator26.Size = New System.Drawing.Size(6, 25)
'
'ToolStripButton46
'
Me.ToolStripButton46.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
Me.ToolStripButton46.Image = CType(resources.GetObject("ToolStripButton46.Image"), System.Drawing.Image)
Me.ToolStripButton46.Name = "ToolStripButton46"
Me.ToolStripButton46.RightToLeftAutoMirrorImage = True
Me.ToolStripButton46.Size = New System.Drawing.Size(23, 22)
Me.ToolStripButton46.Text = "다음으로 이동"
'
'ToolStripButton47
'
Me.ToolStripButton47.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
Me.ToolStripButton47.Image = CType(resources.GetObject("ToolStripButton47.Image"), System.Drawing.Image)
Me.ToolStripButton47.Name = "ToolStripButton47"
Me.ToolStripButton47.RightToLeftAutoMirrorImage = True
Me.ToolStripButton47.Size = New System.Drawing.Size(23, 22)
Me.ToolStripButton47.Text = "마지막으로 이동"
'
'ToolStripSeparator27
'
Me.ToolStripSeparator27.Name = "ToolStripSeparator27"
Me.ToolStripSeparator27.Size = New System.Drawing.Size(6, 25)
'
'ToolStripButton48
'
Me.ToolStripButton48.Image = CType(resources.GetObject("ToolStripButton48.Image"), System.Drawing.Image)
Me.ToolStripButton48.Name = "ToolStripButton48"
Me.ToolStripButton48.RightToLeftAutoMirrorImage = True
Me.ToolStripButton48.Size = New System.Drawing.Size(67, 22)
Me.ToolStripButton48.Text = "추가(&A)"
'
'ToolStripButton49
'
Me.ToolStripButton49.Image = CType(resources.GetObject("ToolStripButton49.Image"), System.Drawing.Image)
Me.ToolStripButton49.Name = "ToolStripButton49"
Me.ToolStripButton49.RightToLeftAutoMirrorImage = True
Me.ToolStripButton49.Size = New System.Drawing.Size(67, 22)
Me.ToolStripButton49.Text = "삭제(&D)"
'
'ToolStripSeparator28
'
Me.ToolStripSeparator28.Name = "ToolStripSeparator28"
Me.ToolStripSeparator28.Size = New System.Drawing.Size(6, 25)
'
'ToolStripButton51
'
Me.ToolStripButton51.Image = CType(resources.GetObject("ToolStripButton51.Image"), System.Drawing.Image)
Me.ToolStripButton51.ImageTransparentColor = System.Drawing.Color.Magenta
Me.ToolStripButton51.Name = "ToolStripButton51"
Me.ToolStripButton51.Size = New System.Drawing.Size(68, 22)
Me.ToolStripButton51.Text = "취소(&C)"
'
'Arindv9
'
Me.Arindv9.A_DelCurrentCell = True
Me.Arindv9.A_EnterToTab = True
Me.Arindv9.AllowUserToAddRows = False
Me.Arindv9.AllowUserToResizeRows = False
Me.Arindv9.AutoGenerateColumns = False
Me.Arindv9.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.AllCells
Me.Arindv9.BorderStyle = System.Windows.Forms.BorderStyle.None
Me.Arindv9.ColumnHeadersHeight = 30
Me.Arindv9.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.DisableResizing
Me.Arindv9.Columns.AddRange(New System.Windows.Forms.DataGridViewColumn() {Me.CodeDataGridViewTextBoxColumn, Me.설명, Me.n01, Me.n02, Me.n03, Me.n04, Me.n05, Me.n06, Me.n07, Me.n08, Me.n09, Me.n10})
Me.Arindv9.DataSource = Me.bs
Me.Arindv9.Dock = System.Windows.Forms.DockStyle.Fill
Me.Arindv9.Location = New System.Drawing.Point(0, 0)
Me.Arindv9.Margin = New System.Windows.Forms.Padding(0)
Me.Arindv9.MultiSelect = False
Me.Arindv9.Name = "Arindv9"
Me.Arindv9.RowHeadersVisible = False
Me.Arindv9.RowTemplate.Height = 23
Me.Arindv9.Size = New System.Drawing.Size(654, 384)
Me.Arindv9.TabIndex = 0
'
'CodeDataGridViewTextBoxColumn
'
Me.CodeDataGridViewTextBoxColumn.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.AllCells
Me.CodeDataGridViewTextBoxColumn.DataPropertyName = "code"
DataGridViewCellStyle1.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleCenter
DataGridViewCellStyle1.BackColor = System.Drawing.Color.FromArgb(CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer))
Me.CodeDataGridViewTextBoxColumn.DefaultCellStyle = DataGridViewCellStyle1
Me.CodeDataGridViewTextBoxColumn.HeaderText = "구분"
Me.CodeDataGridViewTextBoxColumn.Name = "CodeDataGridViewTextBoxColumn"
Me.CodeDataGridViewTextBoxColumn.Resizable = System.Windows.Forms.DataGridViewTriState.[False]
Me.CodeDataGridViewTextBoxColumn.SortMode = System.Windows.Forms.DataGridViewColumnSortMode.Programmatic
Me.CodeDataGridViewTextBoxColumn.Width = 52
'
'설명
'
Me.설명.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.Fill
Me.설명.DataPropertyName = "설명"
Me.설명.HeaderText = "설명"
Me.설명.Name = "설명"
Me.설명.SortMode = System.Windows.Forms.DataGridViewColumnSortMode.Programmatic
'
'n01
'
Me.n01.DataPropertyName = "n01"
Me.n01.HeaderText = "0.1"
Me.n01.Name = "n01"
Me.n01.Width = 49
'
'n02
'
Me.n02.DataPropertyName = "n02"
Me.n02.HeaderText = "0.2"
Me.n02.Name = "n02"
Me.n02.Width = 49
'
'n03
'
Me.n03.DataPropertyName = "n03"
Me.n03.HeaderText = "0.3"
Me.n03.Name = "n03"
Me.n03.Width = 49
'
'n04
'
Me.n04.DataPropertyName = "n04"
Me.n04.HeaderText = "0.4"
Me.n04.Name = "n04"
Me.n04.Width = 49
'
'n05
'
Me.n05.DataPropertyName = "n05"
Me.n05.HeaderText = "0.5"
Me.n05.Name = "n05"
Me.n05.Width = 49
'
'n06
'
Me.n06.DataPropertyName = "n06"
Me.n06.HeaderText = "0.6"
Me.n06.Name = "n06"
Me.n06.Width = 49
'
'n07
'
Me.n07.DataPropertyName = "n07"
Me.n07.HeaderText = "0.7"
Me.n07.Name = "n07"
Me.n07.Width = 49
'
'n08
'
Me.n08.DataPropertyName = "n08"
Me.n08.HeaderText = "0.8"
Me.n08.Name = "n08"
Me.n08.Width = 49
'
'n09
'
Me.n09.DataPropertyName = "n09"
Me.n09.HeaderText = "0.9"
Me.n09.Name = "n09"
Me.n09.Width = 49
'
'n10
'
Me.n10.DataPropertyName = "n10"
Me.n10.HeaderText = "1.0"
Me.n10.Name = "n10"
Me.n10.Width = 49
'
'Frm_V20091231_buha
'
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.None
Me.ClientSize = New System.Drawing.Size(654, 409)
Me.ControlBox = False
Me.Controls.Add(Me.Arindv9)
Me.Controls.Add(Me.bn_all)
Me.Font = New System.Drawing.Font("돋움", 8.999999!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(129, Byte))
Me.Name = "Frm_V20091231_buha"
Me.ShowInTaskbar = False
Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
Me.Text = "부분부하율"
CType(Me.bn_all, System.ComponentModel.ISupportInitialize).EndInit()
Me.bn_all.ResumeLayout(False)
Me.bn_all.PerformLayout()
CType(Me.bs, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.DS, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.Arindv9, System.ComponentModel.ISupportInitialize).EndInit()
Me.ResumeLayout(False)
Me.PerformLayout()
End Sub
Friend WithEvents bn_all As System.Windows.Forms.BindingNavigator
Friend WithEvents ToolStripLabel6 As System.Windows.Forms.ToolStripLabel
Friend WithEvents ToolStripButton44 As System.Windows.Forms.ToolStripButton
Friend WithEvents ToolStripButton45 As System.Windows.Forms.ToolStripButton
Friend WithEvents ToolStripSeparator25 As System.Windows.Forms.ToolStripSeparator
Friend WithEvents ToolStripTextBox6 As System.Windows.Forms.ToolStripTextBox
Friend WithEvents ToolStripSeparator26 As System.Windows.Forms.ToolStripSeparator
Friend WithEvents ToolStripButton46 As System.Windows.Forms.ToolStripButton
Friend WithEvents ToolStripButton47 As System.Windows.Forms.ToolStripButton
Friend WithEvents ToolStripSeparator27 As System.Windows.Forms.ToolStripSeparator
Friend WithEvents ToolStripButton48 As System.Windows.Forms.ToolStripButton
Friend WithEvents ToolStripButton49 As System.Windows.Forms.ToolStripButton
Friend WithEvents ToolStripSeparator28 As System.Windows.Forms.ToolStripSeparator
Friend WithEvents ToolStripButton51 As System.Windows.Forms.ToolStripButton
Friend WithEvents Arindv9 As CEnergy.arindv
Public WithEvents DS As Eco2Ar.DS
Friend WithEvents bs As System.Windows.Forms.BindingSource
Friend WithEvents CodeDataGridViewTextBoxColumn As System.Windows.Forms.DataGridViewTextBoxColumn
Friend WithEvents 설명 As System.Windows.Forms.DataGridViewTextBoxColumn
Friend WithEvents n01 As System.Windows.Forms.DataGridViewTextBoxColumn
Friend WithEvents n02 As System.Windows.Forms.DataGridViewTextBoxColumn
Friend WithEvents n03 As System.Windows.Forms.DataGridViewTextBoxColumn
Friend WithEvents n04 As System.Windows.Forms.DataGridViewTextBoxColumn
Friend WithEvents n05 As System.Windows.Forms.DataGridViewTextBoxColumn
Friend WithEvents n06 As System.Windows.Forms.DataGridViewTextBoxColumn
Friend WithEvents n07 As System.Windows.Forms.DataGridViewTextBoxColumn
Friend WithEvents n08 As System.Windows.Forms.DataGridViewTextBoxColumn
Friend WithEvents n09 As System.Windows.Forms.DataGridViewTextBoxColumn
Friend WithEvents n10 As System.Windows.Forms.DataGridViewTextBoxColumn
End Class

252
ArinWarev1/Forms_Input/Frm_v20091231_buha.resx Normal file
View File

@@ -0,0 +1,252 @@
<?xml version="1.0" encoding="utf-8"?>
<root>
<!--
Microsoft ResX Schema
Version 2.0
The primary goals of this format is to allow a simple XML format
that is mostly human readable. The generation and parsing of the
various data types are done through the TypeConverter classes
associated with the data types.
Example:
... ado.net/XML headers & schema ...
<resheader name="resmimetype">text/microsoft-resx</resheader>
<resheader name="version">2.0</resheader>
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
<data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
<value>[base64 mime encoded serialized .NET Framework object]</value>
</data>
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
<comment>This is a comment</comment>
</data>
There are any number of "resheader" rows that contain simple
name/value pairs.
Each data row contains a name, and value. The row also contains a
type or mimetype. Type corresponds to a .NET class that support
text/value conversion through the TypeConverter architecture.
Classes that don't support this are serialized and stored with the
mimetype set.
The mimetype is used for serialized objects, and tells the
ResXResourceReader how to depersist the object. This is currently not
extensible. For a given mimetype the value must be set accordingly:
Note - application/x-microsoft.net.object.binary.base64 is the format
that the ResXResourceWriter will generate, however the reader can
read any of the formats listed below.
mimetype: application/x-microsoft.net.object.binary.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.soap.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.bytearray.base64
value : The object must be serialized into a byte array
: using a System.ComponentModel.TypeConverter
: and then encoded with base64 encoding.
-->
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
<xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
<xsd:element name="root" msdata:IsDataSet="true">
<xsd:complexType>
<xsd:choice maxOccurs="unbounded">
<xsd:element name="metadata">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" />
</xsd:sequence>
<xsd:attribute name="name" use="required" type="xsd:string" />
<xsd:attribute name="type" type="xsd:string" />
<xsd:attribute name="mimetype" type="xsd:string" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="assembly">
<xsd:complexType>
<xsd:attribute name="alias" type="xsd:string" />
<xsd:attribute name="name" type="xsd:string" />
</xsd:complexType>
</xsd:element>
<xsd:element name="data">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="resheader">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" />
</xsd:complexType>
</xsd:element>
</xsd:choice>
</xsd:complexType>
</xsd:element>
</xsd:schema>
<resheader name="resmimetype">
<value>text/microsoft-resx</value>
</resheader>
<resheader name="version">
<value>2.0</value>
</resheader>
<resheader name="reader">
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<resheader name="writer">
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<metadata name="bn_all.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>286, 17</value>
</metadata>
<metadata name="bs.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>222, 17</value>
</metadata>
<metadata name="DS.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>370, 17</value>
</metadata>
<assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
<data name="ToolStripButton44.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAACBjSFJNAAB6
JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAAACXBIWXMAAA64AAAOuAFqQfVbAAABKklE
QVQ4T2MYPKBw1vP/TQue/8+c+Pg/VAgDhLc/wCnHkDvz2f9VR97/x6UovvvB/+CGa7gNyJjy9P/CfR+w
Korvefh/6f7///2rL+A2IKHnyf9pW95jKIpovw/WnDnr/3+v0hO4DYjsevS/d/UHFEWhrffAmlvXAW3v
/PvfJf8AbgMCmx/+r5v/Dq4ouOXu/0V7///vAGrOmPPzv13dz//2GdtxG+BRdf9//rQ3KIrsim//T5/z
+79/17f/OoXv/lskrMdtgH3p3f/Zk19jKNJPOf/fpOjFf5WsT/+NI5fhNsAi787/1P7XWBUZJJ34L5v2
9b9u8DzcBhhm3f4f1vISpyL91Mv/NXyn4TZAJ+3Gf7/qh3gVqXhMwG2AU+6V/yAFeBUNQsDAAADwdsCr
peWacAAAAABJRU5ErkJggg==
</value>
</data>
<data name="ToolStripButton45.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAACBjSFJNAAB6
JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAAACXBIWXMAAA64AAAOuAFqQfVbAAAAtklE
QVQ4T2MYOiC8/cF/KJN0EN/94H9wwzXyDIjvefh/6f7///2rL5BuQET7fbDmzFn//3uVniDNgNDWe2DN
reuAtnf+/e+Sf4B4A4Jb7v5ftPf//w6g5ow5P//b1f38b5+xnTQX2BXf/p8+5/d//65v/3UK3/23SFhP
ehjop5z/b1L04r9K1qf/xpHLSDcABAySTvyXTfv6Xzd4HnkGgIB+6uX/Gr7TyDcABFQ8JlBmwGAFDAwA
0BRgmAS6UFUAAAAASUVORK5CYII=
</value>
</data>
<data name="ToolStripButton46.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAACBjSFJNAAB6
JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAAACXBIWXMAAA64AAAOuAFqQfVbAAAAo0lE
QVQ4T2MYfKBw1vP/UCZ5IHfms/8J3ffINyRjytP/8/b//p/QdYc8QxJ6nvyfve/X/86tf/+7lV4m3ZDI
rkf/p2z79b9k6d//CdP//rfJPUuaIYHND/+3rn0P1mxc8uW/dPS1/8aRy4g3xKPq/v+Sue/gmhVdekhz
gX3p3f+BLc/I0wwCFnl3/tsUXCFPMwgYZt0mXzMI6KTdIF/zUAQMDACgfl+gBzRCOAAAAABJRU5ErkJg
gg==
</value>
</data>
<data name="ToolStripButton47.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAACBjSFJNAAB6
JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAAACXBIWXMAAA64AAAOuAFqQfVbAAABLElE
QVQ4T2MYXKBw1vP/UCYGAMk1LXj+P3PiY5xqGHJnPvuf0H0PqwKQ3Koj7/+Htz/AbUDGlKf/5+3//T+h
6w6GIpDcwn0f/gc3XMNtQELPk/+z9/3637n173+30ssoCkFy07a8/+9ffQG3AZFdj/5P2fbrf8nSv/8T
pv/9b5N7Fq4YJNe7+sN/r9ITuA0IbH74v3Xte7Bm45Iv/6Wjr/03jlwG1gCSq5v/7r9L/gHcBnhU3f9f
MvcdXLOiSw9cMUguf9qb//YZ23EbYF96939gyzMMzSAAksue/Pq/RcJ63AZY5N35b1NwBUMzCIDkUvtf
w72EFRhm3caqGQRAcmEtL//rBs/DbYBO2g2ckiA5v+qH/zV8p+E2AB9wyr3yX8VjAhhDhQYFYGAAAL7R
v7O5DE6cAAAAAElFTkSuQmCC
</value>
</data>
<data name="ToolStripButton48.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAACBjSFJNAAB6
JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAAACXBIWXMAAA64AAAOuAFqQfVbAAABSklE
QVQ4T2MYvODuAvb/t+Zx/r86h+v/xRm8/6HCxIPrQI1/HjX+//Ow4f/JyQKkG3B+Oi/cgIM9IqQbcHyS
IFBz3f8/D6r+72gXJ2zApZk8/89O5ft/EqjxSL/Q/33dIkDN5f//3iv6v75B5v+qGrn/SysV/88vVf4/
q0gV08BTQH/+eVgP1FQLxJX//9wrAeK8/3/vZv7/eyf5/9/bcf//3YwA4pD/k3I0MQ041CsMdu7f+6VA
jQVAjdlAjalAjQn//92KBmoM+//vRtD/f9f9/nel6WIasLNd4v+WZqn/68DOlf+/pELx/99bMUCN4f+n
5mn8n5Cl9b87Q/d/e6r+/+ZEQ8JhMhvoT5Bz/90I+N+ToUNYAzoA+fPfDX8g9vvfmqxPugHd6bpg/4Jw
fZwR6Qa0JBn8b4g3/F8Ta/y/MtqEdAPoBBgYACQj2J51/IhpAAAAAElFTkSuQmCC
</value>
</data>
<data name="ToolStripButton49.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAACBjSFJNAAB6
JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAAACXBIWXMAAA64AAAOuAFqQfVbAAABb0lE
QVQ4T7WQTSjDYRzHd1XeSu3iglo5IJO8hGQypLHIhMjMJAcOi4R2cXAg5UIOuEgOJCXlROI0b/Pamlp/
LVLaBf+4PB9jqLW/seJ7eep5vt/P7/v8VH8iXCfQbQTHDh9XkYmVeURnFcKsh631sBC8HliaCfawtgC9
JkS7HtFRAXMTipC3hsJcBiM9oe+cOgKQumxEYwHYmoJMYsiKMOXCpD1sQxWL04jK1HcQw1Zwn8FYfwDq
Pz9s4YXHBc3FgS8ZsxD1edDX8rvwp9jf9VfOQxjSoUYbYfhGgsZCyElA1sbzoI2F2uxf1r+5BlM+FCXi
sxjg4uh9uXdpfsjy7A8LvL+DVh2PJUm4S9Px7W1/BRi14dTEIJ8cKEN4eYZBC+iSOU5T49tYDTHelmcg
tVUje69DIexuIueqcaZEIXU1gPykOGlHE4fsdCgApkaQUqNx6zNBulKu6Zds74bzQwXApRPGB+Bw79vw
P0ilegWKIwMchCbSyQAAAABJRU5ErkJggg==
</value>
</data>
<data name="ToolStripButton51.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAJ2SURBVDhPjVNdSJNhFH5bXdmFRFFeREQXRfQDJRlWZLra
mrOIDCEqQmrlTKkoIaHZoEKK1sAVS1dYiJCaCZUkKCRL20WmrXJ61U0UXhSMuen+n97n3adkdtGBw3u+
c57nOed83/uJv+2BEIZGIRzy9MkzSNdi5gwabL65hVgt/Y4ETn51XEfkvRfpnz+UM2aONWKI1WgZY0IW
WwKXK5D8/A742A/0tQKvmjLOeOSNqhFD7BwRqgYuWgC/F8nuZnwqP4y2lSvgWajDQPFuTD26AXS6gF4p
5H8LYslRZG3nyaSvB4nO+/CZC9jB6RFi/TUhFsnY/qGsGOl2Z0ak5wkSvtdqHfVOZOAYr6lAqr0B/qMm
RZaeRXF51vlK9iDW/wLpLjeij+uBZw1IyUbjlyzEOjiBb6L2FFLuWrTlLAU7z5AH9+1ArLcDqZcPMWY5
QkJwrPwgkhI7cdUCcgkMTtVbkbh7Hh6dDtrYdQOF2xDtbpWTuRA4YcY9IX7JvfOer8pBUmIjt6qUoBKI
2E4icdMCb/4GJu2DBVsw3dWMZMttjJbpFVlOlktxNolLLDlKgGN8LzcibjuGUPUBDOlzMd3RiITHjtFD
u2bJXIvrtS3LltjjIGdmBcdw4SbELpQgWmVC3G1D3HUFo+a8OWSJy5LuHCnajFhNKcghd/Yzhq1GRCsN
iFabELLuV+NxZzW27EzywNY1iMgm4Uoj65nPSOOlGMpfi+g5TUSCvug3onN5Npp0C/B0yWIM71yHyNm9
qk7s7EWiyQd1lVkIn8mA/uVhi16RiSVHo2eMCapyNHb7VrododNFyhkzxxox88h/mvZO/vN3FuI3yXDJ
RlfZIFMAAAAASUVORK5CYII=
</value>
</data>
<metadata name="설명.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>True</value>
</metadata>
<metadata name="n01.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>True</value>
</metadata>
<metadata name="n02.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>True</value>
</metadata>
<metadata name="n03.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>True</value>
</metadata>
<metadata name="n04.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>True</value>
</metadata>
<metadata name="n05.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>True</value>
</metadata>
<metadata name="n06.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>True</value>
</metadata>
<metadata name="n07.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>True</value>
</metadata>
<metadata name="n08.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>True</value>
</metadata>
<metadata name="n09.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>True</value>
</metadata>
<metadata name="n10.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>True</value>
</metadata>
<metadata name="$this.TrayHeight" type="System.Int32, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>38</value>
</metadata>
</root>

175
ArinWarev1/Forms_Input/Frm_v20091231_buha.vb Normal file
View File

@@ -0,0 +1,175 @@
Public Class Frm_V20091231_buha
#Region "data Base 변경여부및 적용방법"
'''변경된내용을적용한다.
Public Overrides Function AcceptChanged() As Boolean
bs.EndEdit()
Dim BaseDS As DataSet = CType(bs.DataSource, DataSet)
Dim BaseDT As DataTable = BaseDS.Tables(bs.DataMember)
BaseDT.AcceptChanges()
Return True
End Function
'''변경된내용이있다면 취소한다.
Public Overrides Function RejectChanged() As Boolean
Dim BaseDS As DataSet = CType(bs.DataSource, DataSet)
Dim BaseDT As DataTable = BaseDS.Tables(bs.DataMember)
BaseDT.RejectChanges()
Return True
End Function
'''데이터에변형이있었는가?
Public Overrides Function HasChanged() As Boolean
bs.EndEdit()
Dim BaseDS As DataSet = CType(bs.DataSource, DataSet)
Dim BaseDT As DataTable = BaseDS.Tables(bs.DataMember)
Dim ChangeDT As DataTable = BaseDT.GetChanges
If Not ChangeDT Is Nothing Then Return True
Return False
End Function
'''기본데이터테이블을 반환합니다.
Public Function DT() As DataTable
Dim BaseDS As DataSet = CType(bs.DataSource, DataSet)
Return BaseDS.Tables(bs.DataMember)
End Function
#End Region
Public Sub New(_opentime)
' 이 호출은 디자이너에 필요합니다.
InitializeComponent()
OpenTime = _opentime
' InitializeComponent() 호출 뒤에 초기화 코드를 추가하십시오.
End Sub
Private Sub AddNewDataRow_Zone_Changed2(ByVal sender As Object, ByVal e As System.Data.DataColumnChangeEventArgs)
Dim oval As String = e.Row(e.Column.ColumnName).ToString
Dim nval As String = e.ProposedValue.ToString
If oval <> nval Then
Dim newdr As DS2.historyRow = DSHistory.history.NewhistoryRow
newdr.time = Now.ToString("yyyy-MM-dd HH:mm:ss")
newdr.tablename = "tbl_buha"
newdr.ovalue = oval
newdr.nvalue = nval
newdr.column = e.Column.ColumnName
newdr.code = e.Row("code").ToString
DSHistory.history.AddhistoryRow(newdr)
DSHistory.history.AcceptChanges()
End If
End Sub
Private Sub ShowHistory()
Dim drv As DataRowView = Me.bs.Current
Dim f As New Frm_History("tbl_buha", drv("code").ToString)
If f.ShowDialog = DialogResult.OK Then
drv(f.colname) = f.val
Me.Validate()
Me.bs.EndEdit()
My.Application.DoEvents()
MsgBox("값이 변경되었습니다", MsgBoxStyle.Information, "확인")
End If
End Sub
Private Sub MdiMain_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown
Select Case e.KeyCode
Case Keys.F12
ShowHistory()
End Select
End Sub
Private Sub MdiMain_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Me.Show()
My.Application.DoEvents()
'Work_msg_timer("잠시만 기다려주세요")
'CEnergy.ARINCLASS.SaveLoad_FrmSetting(Me)
'//프로필 관련
'//공유데이터셋에 연결한다.
Me.bs.DataSource = DSET1
'//냉방기기
AddHandler DSET1.tbl_buha.TableNewRow, AddressOf AddNewDataRow_nangbangkiki
AddHandler DSET1.tbl_buha.ColumnChanging, AddressOf AddNewDataRow_Zone_Changed2
'//콤보컨트롤 바인딩
Binding_Zone()
Try
Me.bs.Position = CEnergy.ARINCLASS.Read_LastPos_Frm(Me)
Catch ex As Exception
Me.bs.MoveFirst()
End Try
AddDebug("▲ Form Load")
End Sub
#Region "냉방기기"
Private Sub MdiMain_FormClosed(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosedEventArgs) Handles Me.FormClosed
CEnergy.ARINCLASS.SaveLoad_FrmSetting(Me, Me.bs.Position, True)
End Sub
Private Function GetMaxCode(ByVal dt As DataTable) As String
Try
Dim Dr As DataRow = dt.Select("", "code desc")(0)
Return Format(CInt(Dr("code")) + 1, "0000")
Catch ex As Exception
Return "0001"
End Try
End Function
Private Sub Cmb_DeleteVal(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs)
If e.KeyCode = Keys.Delete Then
CType(sender, ComboBox).SelectedValue = ""
End If
End Sub
Private Sub Binding_Zone()
'//냉동기기
'Dim bs_냉동기방식ComboBox As New BindingSource(DSET, "tbl_common")
'bs_냉동기방식ComboBox.Filter = "gubun='1046'"
'Me.냉동기방식ComboBox.DataSource = bs_냉동기방식ComboBox
'냉동기방식ComboBox.DisplayMember = "name"
'냉동기방식ComboBox.ValueMember = "code"
'Me.냉동기방식ComboBox.DataBindings.Add("text", Me.bs, "냉동기방식")
'AddHandler 냉동기방식ComboBox.KeyDown, AddressOf Cmb_DeleteVal
End Sub
Private Sub AddNewDataRow_nangbangkiki(ByVal sender As Object, ByVal e As System.Data.DataTableNewRowEventArgs)
e.Row.Item("code") = GetMaxCode(DSET1.tbl_buha)
End Sub
Private Sub ToolStripButton48_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton48.Click
If Not EndEdit(Me.bs) Then Return
Me.bs.AddNew()
End Sub
Private Sub ToolStripButton49_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton49.Click
DbBase.DelCrow(Me.bs, True)
End Sub
Private Sub ToolStripButton51_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton51.Click
If Not EndEdit(Me.bs) Then Return
Data_Cancel(DSET1.tbl_buha, Nothing)
End Sub
#End Region
Private Sub bs_CurrentChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bs.CurrentChanged
Me.bs.EndEdit()
End Sub
Private Sub Arindv9_CellContentClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles Arindv9.CellContentClick
End Sub
End Class

1314
ArinWarev1/Forms_Input/Frm_v20091231_profile.Designer.vb generated Normal file
View File

File diff suppressed because it is too large Load Diff

210
ArinWarev1/Forms_Input/Frm_v20091231_profile.resx Normal file
View File

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

438
ArinWarev1/Forms_Input/Frm_v20091231_profile.vb Normal file
View File

@@ -0,0 +1,438 @@
Public Class Frm_V20091231_Profile
Dim Init As Boolean = False
Dim SrcDrv As DataRowView
Public Sub New(_opentime)
' 이 호출은 디자이너에 필요합니다.
InitializeComponent()
OpenTime = _opentime
' InitializeComponent() 호출 뒤에 초기화 코드를 추가하십시오.
End Sub
#Region "data Base 변경여부및 적용방법"
'''변경된내용을적용한다.
Public Overrides Function AcceptChanged() As Boolean
bs.EndEdit()
Dim BaseDS As DataSet = CType(bs.DataSource, DataSet)
Dim BaseDT As DataTable = BaseDS.Tables(bs.DataMember)
BaseDT.AcceptChanges()
Return True
End Function
'''변경된내용이있다면 취소한다.
Public Overrides Function RejectChanged() As Boolean
Dim BaseDS As DataSet = CType(bs.DataSource, DataSet)
Dim BaseDT As DataTable = BaseDS.Tables(bs.DataMember)
BaseDT.RejectChanges()
Return True
End Function
'''데이터에변형이있었는가?
Public Overrides Function HasChanged() As Boolean
bs.EndEdit()
Dim BaseDS As DataSet = CType(bs.DataSource, DataSet)
Dim BaseDT As DataTable = BaseDS.Tables(bs.DataMember)
Dim ChangeDT As DataTable = BaseDT.GetChanges
If Not ChangeDT Is Nothing Then Return True
Return False
End Function
'''기본데이터테이블을 반환합니다.
Public Function DT() As DataTable
Dim BaseDS As DataSet = CType(bs.DataSource, DataSet)
Return BaseDS.Tables(bs.DataMember)
End Function
#End Region
Private Sub AddNewDataRow_Zone_Changed2(ByVal sender As Object, ByVal e As System.Data.DataColumnChangeEventArgs)
Dim oval As String = e.Row(e.Column.ColumnName).ToString
Dim nval As String = e.ProposedValue.ToString
If oval <> nval Then
Dim newdr As DS2.historyRow = DSHistory.history.NewhistoryRow
newdr.time = Now.ToString("yyyy-MM-dd HH:mm:ss")
newdr.tablename = "tbl_profile"
newdr.ovalue = oval
newdr.nvalue = nval
newdr.column = e.Column.ColumnName
newdr.code = e.Row("code").ToString
DSHistory.history.AddhistoryRow(newdr)
DSHistory.history.AcceptChanges()
End If
End Sub
Private Sub MdiMain_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Me.Show()
My.Application.DoEvents()
'Work_msg_timer("잠시만 기다려주세요")
'CEnergy.ARINCLASS.SaveLoad_FrmSetting(Me)
'//공유데이터셋에 연결한다.
Me.bs.DataSource = DSET1
AddHandler DSET1.tbl_profile.TableNewRow, AddressOf AddNewDataRow_Profile
AddHandler DSET1.tbl_profile.ColumnChanging, AddressOf AddNewDataRow_Zone_Changed2
'//모든컨트롤의 cTrl_enter 를 추가합니다
BindProperty(CType(Me.SplitContainer1.Panel2.Controls, Control.ControlCollection))
Me.Init = True
Try
Me.bs.Position = CEnergy.ARINCLASS.Read_LastPos_Frm(Me)
Catch ex As Exception
Me.bs.MoveFirst()
End Try
If Prj.UserAuthType = "ADMIN" OrElse Prj.UserAuthType = "BOTH2" Then '//2010.11.22 추가
Me.SplitContainer1.Panel2.Enabled = True
Me.bn_all.Visible = True
Else
Me.SplitContainer1.Panel2.Enabled = False
Me.bn_all.Visible = False
End If
AddDebug("▲ Form Load")
End Sub
#Region "Control_Enter"
Private Sub BindProperty(ByVal Ctl As Control.ControlCollection)
For Each C As Control In Ctl
If C.Controls.Count > 1 Then
BindProperty(C.Controls)
Else
If C.GetType.ToString.ToUpper.IndexOf("MYTB") <> -1 Then
AddHandler CType(C, MyTb).KeyDown, AddressOf TextBOx_KeyDown
ElseIf C.GetType.ToString.ToUpper.IndexOf("MYCMB") <> -1 Then
AddHandler CType(C, MyCmb).KeyDown, AddressOf Cmd_KeyDown
End If
End If
Next
End Sub
Private Sub TextBOx_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs)
If e.KeyCode = Keys.Enter AndAlso e.Control Then
Try
Dim Field As String = (CType(sender, MyTb).DataBindings.Item("text").BindingMemberInfo.BindingField)
For Each Dr As DataRow In DT.Select(Me.bs.Filter, "")
Dr(Field) = CType(sender, MyTb).Text
Next
Work_msg_timer("모든값이 변경되었습니다", 25)
Catch ex As Exception
End Try
End If
End Sub
Private Sub Cmd_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs)
If e.KeyCode = Keys.Enter AndAlso e.Control Then
Try
Dim Field As String = (CType(sender, MyCmb).DataBindings.Item("selectedvalue").BindingMemberInfo.BindingField)
For Each Dr As DataRow In DT.Select(Me.bs.Filter, "")
Dr(Field) = CType(sender, MyCmb).SelectedValue
Next
Work_msg_timer("모든값이 변경되었습니다", 25)
Catch ex As Exception
End Try
End If
End Sub
#End Region
#Region "기본"
Private Sub MdiMain_FormClosed(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosedEventArgs) Handles Me.FormClosed
CEnergy.ARINCLASS.SaveLoad_FrmSetting(Me, Me.bs.Position, True)
End Sub
Private Sub AddNewDataRow_Profile(ByVal sender As Object, ByVal e As System.Data.DataTableNewRowEventArgs)
e.Row.Item("code") = GetMaxCode(DSET1.tbl_profile)
End Sub
Private Function GetMaxCode(ByVal dt As DataTable) As String
Try
Dim Dr As DataRow = dt.Select("", "code desc")(0)
Return Format(CInt(Dr("code")) + 1, "0000")
Catch ex As Exception
Return "0001"
End Try
End Function
#Region "제어버튼"
Private Sub ToolStripButton48_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt_add.Click
If Not EndEdit(Me.bs) Then Return
Me.bs.AddNew()
INitRow(Me.Controls)
MdiMain.RefreshMenuList(TreeTag)
End Sub
Private Sub ToolStripButton49_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt_Del.Click
Dbbase.DelCrow(Me.bs, True)
MdiMain.RefreshMenuList(TreeTag)
End Sub
Private Sub ToolStripButton51_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt_cancel.Click
If Not EndEdit(Me.bs) Then Return
Data_Cancel(DSET1.tbl_profile, Nothing)
MdiMain.RefreshMenuList(TreeTag)
End Sub
#End Region
Private Sub Frm_V20091231_Zone_MouseWheel(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseWheel
If e.Delta < 0 Then
If Me.bs.Position < Me.bs.Count Then Me.bs.Position += 1
Else
If Me.bs.Position > 0 Then Me.bs.Position -= 1
End If
Me.Validate()
My.Application.DoEvents()
End Sub
#End Region
Private Sub 사용시작시간NTb_GotFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles tb_t1.GotFocus
CType(sender, TextBox).SelectAll()
End Sub
Private Sub tb_t1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles tb_t1.KeyDown
If Prj.UserAuthType = "ADMIN" OrElse Prj.UserAuthType = "BOTH" OrElse Prj.UserAuthType = "BOTH2" OrElse Prj.UserAuthType = "BOTH1" Then '//2011.03.08 추가
If e.KeyCode = Keys.V And e.Control Then
e.Handled = True
e.SuppressKeyPress = True
'//클립보드붙여넣기
Dim CB() As String = My.Computer.Clipboard.GetText.Split(CChar(vbCrLf))
If CB.GetUpperBound(0) <> 59 Then
MsgBox("붙여넣기가 호환되는 데이터가 아닙니다.", MsgBoxStyle.Information, "확인")
Return
End If
For ii As Integer = 0 To CType(CB(0).Split(CChar(vbTab)), String()).GetUpperBound(0)
If Me.bs.Count = 0 OrElse ii > 0 Then Me.bt_add.PerformClick() '//한줄추가
Dim Cnt As Short = 0
For i As Integer = 0 To CB.GetUpperBound(0)
Select Case i
Case 0
CType(Me.bs.Current, DataRowView)("설명") = CB(i).Split(CChar(vbTab))(ii).Trim
Case 0 + 1
Me.tb_일급탕요구량.Text = CB(i).Split(CChar(vbTab))(ii).Trim
Case 1 + 1 '//공란
Case 2 + 1 '//면적
Me.tb_t1.Text = CB(i).Split(CChar(vbTab))(ii).Trim
Case 3 + 1
Me.tb_t2.Text = CB(i).Split(CChar(vbTab))(ii).Trim
Case 4 + 1
Me.tb_t3.Text = CB(i).Split(CChar(vbTab))(ii).Trim
Case 5 + 1
Me.tb_t4.Text = CB(i).Split(CChar(vbTab))(ii).Trim
Case 6 + 1
Me.tb_t5.Text = CB(i).Split(CChar(vbTab))(ii).Trim
Case 7 + 1
Me.tb_t6.Text = CB(i).Split(CChar(vbTab))(ii).Trim
Case 8 + 1
' Me.tb_t7.Text = CB(i).Trim
Case 9
' Me.tb_t8.Text = CB(i).Trim
Case 10
' Me.tb_t9.Text = CB(i).Trim
Case 11
' Me.tb_t10.Text = CB(i).Trim
Case 12
' Me.tb_공냉난시간.Text = CB(i).Trim
Case 13 + 1
Case 14 + 1
Case 15 '//요구조도
' Me.tb_t12.Text = CB(i).Trim
Case 16
'Me.tb_t13.Text = CB(i).Trim
Case 17
'Me.tb_t14.Text = CB(i).Trim
Case 18
'Me.tb_t15.Text = CB(i).Trim
Case 19
'Me.tb_t16.Text = CB(i).Trim
Case 20 '//부분운전계수
'Me.tb_t17.Text = CB(i).Trim
Case 21
Case 22
Case 23 + 1 '//최소도입외기량
Me.tb_t18.Text = CB(i).Split(CChar(vbTab))(ii).Trim
Case 24
' Me.tb_t19.Text = CB(i).Trim
Case 25
Case 26
Case 27 + 1
Me.tb_t20.Text = CB(i).Split(CChar(vbTab))(ii).Trim
Case 28 + 1 '//작업보조기기
Me.tb_t21.Text = CB(i).Split(CChar(vbTab))(ii).Trim
Case 29
Case 30
Case 31 + 1 '//실내공기온도
'Me.TabControl11.SelectedIndex = 1
Me.tB_t22.Text = CB(i).Split(CChar(vbTab))(ii).Trim
Case 32 + 1
Me.tb_t23.Text = CB(i).Split(CChar(vbTab))(ii).Trim
Case 33 + 1
Me.tb_t24.Text = CB(i).Split(CChar(vbTab))(ii).Trim
Case 34 + 1
Me.tb_t25.Text = CB(i).Split(CChar(vbTab))(ii).Trim
Case 35 + 1
' Me.tb_t26.Text = CB(i).Trim
Case 36 '//최소설정온도 냉방
'Me.tb_t27.Text = CB(i).Trim
Case 37
Case 38
Case 39
' Me.tb_t28.Text = CB(i).Trim
Case 40
'Me.tb_t29.Text = CB(i).Trim
Case 41
' Me.tb_t30.Text = CB(i).Trim
Case 42
' Me.tb_t31.Text = CB(i).Trim
Case 43
' Me.tb_t32.Text = CB(i).Trim
Case 44
Case 45
Case 46
Case 40 + 7 + 1
Me.tb_tm1.Text = CB(i).Split(CChar(vbTab))(ii).Trim
Case 41 + 7 + 1
Me.tb_tm2.Text = CB(i).Split(CChar(vbTab))(ii).Trim
Case 42 + 7 + 1
Me.tb_tm3.Text = CB(i).Split(CChar(vbTab))(ii).Trim
Case 43 + 7 + 1
Me.tb_tm4.Text = CB(i).Split(CChar(vbTab))(ii).Trim
Case 44 + 7 + 1
Me.tb_tm5.Text = CB(i).Split(CChar(vbTab))(ii).Trim
Case 45 + 7 + 1
Me.tb_tm6.Text = CB(i).Split(CChar(vbTab))(ii).Trim
Case 46 + 7 + 1
Me.tb_tm7.Text = CB(i).Split(CChar(vbTab))(ii).Trim
Case 47 + 7 + 1
Me.tb_tm8.Text = CB(i).Split(CChar(vbTab))(ii).Trim
Case 48 + 7 + 1
Me.tb_tm9.Text = CB(i).Split(CChar(vbTab))(ii).Trim
Case 49 + 7 + 1
Me.tB_tm10.Text = CB(i).Split(CChar(vbTab))(ii).Trim
Case 50 + 7 + 1
Me.tb_tm11.Text = CB(i).Split(CChar(vbTab))(ii).Trim
Case 51 + 7 + 1
Me.tb_tm12.Text = CB(i).Split(CChar(vbTab))(ii).Trim
End Select
Next
If bs.Position < bs.Count Then bs.Position += 1 '//위치이동
Next
Me.bs.EndEdit()
End If
End If
End Sub
Private Sub bt_Del_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles bt_Del.MouseDown
If Prj.UserAuthType = "ADMIN" OrElse Prj.UserAuthType = "BOTH" OrElse Prj.UserAuthType = "BOTH2" OrElse Prj.UserAuthType = "BOTH1" Then '//2011.03.08 추가
If e.Button = Windows.Forms.MouseButtons.Right Then
If MsgBox("전체삭제를 하시겠습니까?", MsgBoxStyle.Information Or MsgBoxStyle.OkCancel, "확인") = MsgBoxResult.Ok Then
Dim dR() As DataRow = DSET1.tbl_profile.Select(Me.bs.Filter, "")
For i As Integer = dR.GetUpperBound(0) To 0 Step -1
dR(i).Delete()
Next
DSET1.tbl_profile.AcceptChanges()
End If
End If
End If
End Sub
Private Sub dv_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles dv.MouseUp
If Prj.UserAuthType = "ADMIN" OrElse Prj.UserAuthType = "BOTH" OrElse Prj.UserAuthType = "BOTH2" OrElse Prj.UserAuthType = "BOTH1" Then '//2011.03.08 추가
If e.Button = Windows.Forms.MouseButtons.Right Then
Dim Frm_FilterA As New Frm_Filter
Frm_FilterA.ColumTitle = getColCaption(Me.DT)
Frm_FilterA.ColumList = getColName(Me.DT)
Frm_FilterA.Colorlist = ""
If Frm_FilterA.ShowDialog <> Windows.Forms.DialogResult.OK Then Return '//창떳을떄 확인아ㅣ고 취소눌르면 다음을 수행하지않는다는거에요.
Dim Filter As String = Frm_FilterA.tb_filter.Text '//값은 아까 그 텍박에 잇구요.
Try
Me.bs.Filter = Filter
Catch ex As Exception
Me.bs.Filter = ""
End Try
End If
End If
End Sub
Private Sub dv_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles dv.KeyDown
'//여기보시면 alt+d 누르면 한줄을 경고없이(falsE)삭제하도록 햇어요.. 사실원래 밋alt +d 인데.. ㅎㅎ 잘못해서 ctrl 됫다는
If Prj.UserAuthType = "ADMIN" OrElse Prj.UserAuthType = "BOTH" OrElse Prj.UserAuthType = "BOTH2" OrElse Prj.UserAuthType = "BOTH1" Then '//2011.03.08 추가
Select Case e.KeyCode
Case Keys.D
If e.Alt Then
Dbbase.DelCrow(Me.bs, False)
End If
Case Keys.C
If e.Control Then
Me.SrcDrv = Me.bs.Current
If Me.SrcDrv Is Nothing Then
MsgBox("저장할 ROW가 없습니다", MsgBoxStyle.Information, "확인")
Return
End If
' My.Computer.Clipboard.SetData("ZDATA", Drv)
End If
Case Keys.V
If e.Control Then
If Me.SrcDrv Is Nothing Then Return
Me.bt_add.PerformClick() '//신규추가
Dim NewDrv As DataRowView = Me.bs.Current
For Each C As DataColumn In Me.DT.Columns
If C.ColumnName.ToUpper = "CODE" Then
ElseIf C.ColumnName.ToUpper = "설명" Then
NewDrv(C.ColumnName) = SrcDrv(C.ColumnName) & "#1"
Else
NewDrv(C.ColumnName) = SrcDrv(C.ColumnName)
End If
Next
Me.bs.EndEdit()
bs.MoveLast()
End If
End Select
End If
End Sub
Private Sub Frm_V20091231_Profile_KeyDown(sender As System.Object, e As System.Windows.Forms.KeyEventArgs) Handles MyBase.KeyDown
Select Case e.KeyCode
Case Keys.F12
ShowHistory()
End Select
End Sub
Private Sub ShowHistory()
Dim drv As DataRowView = Me.bs.Current
Dim f As New Frm_History("tbl_profile", drv("code").ToString)
If f.ShowDialog = DialogResult.OK Then
drv(f.colname) = f.val
Me.Validate()
Me.bs.EndEdit()
My.Application.DoEvents()
MsgBox("값이 변경되었습니다", MsgBoxStyle.Information, "확인")
End If
End Sub
End Class

4
ArinWarev1/Forms_Input/ReadMe.txt Normal file
View File

@@ -0,0 +1,4 @@
<EFBFBD>⺻<EFBFBD><EFBFBD><EFBFBD><EFBFBD>(20091231)<29><> <20><><EFBFBD><EFBFBD><EFBFBD>Դϴ<D4B4>
<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD>ÿ<EFBFBD><C3BF><EFBFBD> <20>ش<EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
<EFBFBD><EFBFBD><EFBFBD>α׷<EFBFBD><EFBFBD><EFBFBD>ũ<EFBFBD><EFBFBD> <20>ش<EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20>°<EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20>ؾ<EFBFBD><D8BE>մϴ<D5B4>
<EFBFBD><EFBFBD><EFBFBD>α׷<EFBFBD><EFBFBD><EFBFBD>ũ<EFBFBD><EFBFBD> Select case <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD>Ǿ<EFBFBD><C7BE><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ƿ<EFBFBD> case <20><><EFBFBD><EFBFBD> <20>ϼ<EFBFBD><CFBC>ϸ<EFBFBD><CFB8>˴ϴ<CBB4>.

657
ArinWarev1/Forms_Input/frm_monuse.Designer.vb generated Normal file
View File

@@ -0,0 +1,657 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class Frm_monuse
Inherits CForm
'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.components = New System.ComponentModel.Container()
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(Frm_monuse))
Dim DataGridViewCellStyle1 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle2 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle3 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle4 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle5 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle6 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle7 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle8 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle9 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle10 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle11 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle12 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Me.bs1 = New System.Windows.Forms.BindingSource(Me.components)
Me.DS = New Eco2Ar.DS()
Me.bs3 = New System.Windows.Forms.BindingSource(Me.components)
Me.bs2 = New System.Windows.Forms.BindingSource(Me.components)
Me.TableLayoutPanel1 = New System.Windows.Forms.TableLayoutPanel()
Me.Panel1 = New System.Windows.Forms.Panel()
Me.Arindv9 = New CEnergy.arindv()
Me.tb_y1 = New System.Windows.Forms.TextBox()
Me.Panel2 = New System.Windows.Forms.Panel()
Me.Arindv1 = New CEnergy.arindv()
Me.tb_y2 = New System.Windows.Forms.TextBox()
Me.Panel3 = New System.Windows.Forms.Panel()
Me.Arindv2 = New CEnergy.arindv()
Me.tb_y3 = New System.Windows.Forms.TextBox()
Me.bn_all = New System.Windows.Forms.BindingNavigator(Me.components)
Me.ToolStripLabel6 = New System.Windows.Forms.ToolStripLabel()
Me.ToolStripButton44 = New System.Windows.Forms.ToolStripButton()
Me.ToolStripButton45 = New System.Windows.Forms.ToolStripButton()
Me.ToolStripSeparator25 = New System.Windows.Forms.ToolStripSeparator()
Me.ToolStripTextBox6 = New System.Windows.Forms.ToolStripTextBox()
Me.ToolStripSeparator26 = New System.Windows.Forms.ToolStripSeparator()
Me.ToolStripButton46 = New System.Windows.Forms.ToolStripButton()
Me.ToolStripButton47 = New System.Windows.Forms.ToolStripButton()
Me.ToolStripSeparator27 = New System.Windows.Forms.ToolStripSeparator()
Me.ToolStripButton48 = New System.Windows.Forms.ToolStripButton()
Me.ToolStripButton49 = New System.Windows.Forms.ToolStripButton()
Me.ToolStripSeparator28 = New System.Windows.Forms.ToolStripSeparator()
Me.ToolStripButton51 = New System.Windows.Forms.ToolStripButton()
Me.CodeDataGridViewTextBoxColumn = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.년DataGridViewTextBoxColumn = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.월DataGridViewTextBoxColumn = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.도시가스DataGridViewTextBoxColumn = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.전력DataGridViewTextBoxColumn = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.지역난방DataGridViewTextBoxColumn = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.DataGridViewTextBoxColumn1 = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.DataGridViewTextBoxColumn2 = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.DataGridViewTextBoxColumn3 = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.DataGridViewTextBoxColumn4 = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.DataGridViewTextBoxColumn5 = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.DataGridViewTextBoxColumn6 = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.DataGridViewTextBoxColumn7 = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.DataGridViewTextBoxColumn8 = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.DataGridViewTextBoxColumn9 = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.DataGridViewTextBoxColumn10 = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.DataGridViewTextBoxColumn11 = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.DataGridViewTextBoxColumn12 = New System.Windows.Forms.DataGridViewTextBoxColumn()
CType(Me.bs1, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.DS, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.bs3, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.bs2, System.ComponentModel.ISupportInitialize).BeginInit()
Me.TableLayoutPanel1.SuspendLayout()
Me.Panel1.SuspendLayout()
CType(Me.Arindv9, System.ComponentModel.ISupportInitialize).BeginInit()
Me.Panel2.SuspendLayout()
CType(Me.Arindv1, System.ComponentModel.ISupportInitialize).BeginInit()
Me.Panel3.SuspendLayout()
CType(Me.Arindv2, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.bn_all, System.ComponentModel.ISupportInitialize).BeginInit()
Me.bn_all.SuspendLayout()
Me.SuspendLayout()
'
'bs1
'
Me.bs1.DataMember = "tbl_monuse"
Me.bs1.DataSource = Me.DS
Me.bs1.Filter = "code = '0001'"
'
'DS
'
Me.DS.DataSetName = "DS"
Me.DS.SchemaSerializationMode = System.Data.SchemaSerializationMode.IncludeSchema
'
'bs3
'
Me.bs3.DataMember = "tbl_monuse"
Me.bs3.DataSource = Me.DS
Me.bs3.Filter = "code = '0003'"
'
'bs2
'
Me.bs2.DataMember = "tbl_monuse"
Me.bs2.DataSource = Me.DS
Me.bs2.Filter = "code = '0002'"
'
'TableLayoutPanel1
'
Me.TableLayoutPanel1.ColumnCount = 3
Me.TableLayoutPanel1.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Percent, 33.33333!))
Me.TableLayoutPanel1.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Percent, 33.33333!))
Me.TableLayoutPanel1.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Percent, 33.33333!))
Me.TableLayoutPanel1.Controls.Add(Me.Panel1, 0, 0)
Me.TableLayoutPanel1.Controls.Add(Me.Panel2, 1, 0)
Me.TableLayoutPanel1.Controls.Add(Me.Panel3, 2, 0)
Me.TableLayoutPanel1.Dock = System.Windows.Forms.DockStyle.Fill
Me.TableLayoutPanel1.Location = New System.Drawing.Point(0, 0)
Me.TableLayoutPanel1.Name = "TableLayoutPanel1"
Me.TableLayoutPanel1.RowCount = 1
Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Percent, 100.0!))
Me.TableLayoutPanel1.Size = New System.Drawing.Size(786, 384)
Me.TableLayoutPanel1.TabIndex = 0
'
'Panel1
'
Me.Panel1.Controls.Add(Me.Arindv9)
Me.Panel1.Controls.Add(Me.tb_y1)
Me.Panel1.Dock = System.Windows.Forms.DockStyle.Fill
Me.Panel1.Location = New System.Drawing.Point(3, 3)
Me.Panel1.Name = "Panel1"
Me.Panel1.Size = New System.Drawing.Size(256, 378)
Me.Panel1.TabIndex = 10
'
'Arindv9
'
Me.Arindv9.A_DelCurrentCell = True
Me.Arindv9.A_EnterToTab = False
Me.Arindv9.AllowUserToAddRows = False
Me.Arindv9.AllowUserToDeleteRows = False
Me.Arindv9.AllowUserToResizeRows = False
Me.Arindv9.AutoGenerateColumns = False
Me.Arindv9.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.AllCells
Me.Arindv9.BorderStyle = System.Windows.Forms.BorderStyle.None
Me.Arindv9.ColumnHeadersHeight = 30
Me.Arindv9.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.DisableResizing
Me.Arindv9.Columns.AddRange(New System.Windows.Forms.DataGridViewColumn() {Me.CodeDataGridViewTextBoxColumn, Me.년DataGridViewTextBoxColumn, Me.월DataGridViewTextBoxColumn, Me.도시가스DataGridViewTextBoxColumn, Me.전력DataGridViewTextBoxColumn, Me.지역난방DataGridViewTextBoxColumn})
Me.Arindv9.DataSource = Me.bs1
Me.Arindv9.Dock = System.Windows.Forms.DockStyle.Fill
Me.Arindv9.Location = New System.Drawing.Point(0, 32)
Me.Arindv9.Margin = New System.Windows.Forms.Padding(0)
Me.Arindv9.MultiSelect = False
Me.Arindv9.Name = "Arindv9"
Me.Arindv9.RowHeadersVisible = False
Me.Arindv9.RowTemplate.Height = 23
Me.Arindv9.Size = New System.Drawing.Size(256, 346)
Me.Arindv9.TabIndex = 1
'
'tb_y1
'
Me.tb_y1.Dock = System.Windows.Forms.DockStyle.Top
Me.tb_y1.Font = New System.Drawing.Font("돋움", 15.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(129, Byte))
Me.tb_y1.Location = New System.Drawing.Point(0, 0)
Me.tb_y1.Name = "tb_y1"
Me.tb_y1.Size = New System.Drawing.Size(256, 32)
Me.tb_y1.TabIndex = 0
Me.tb_y1.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
'
'Panel2
'
Me.Panel2.Controls.Add(Me.Arindv1)
Me.Panel2.Controls.Add(Me.tb_y2)
Me.Panel2.Dock = System.Windows.Forms.DockStyle.Fill
Me.Panel2.Location = New System.Drawing.Point(265, 3)
Me.Panel2.Name = "Panel2"
Me.Panel2.Size = New System.Drawing.Size(256, 378)
Me.Panel2.TabIndex = 11
'
'Arindv1
'
Me.Arindv1.A_DelCurrentCell = True
Me.Arindv1.A_EnterToTab = False
Me.Arindv1.AllowUserToAddRows = False
Me.Arindv1.AllowUserToDeleteRows = False
Me.Arindv1.AllowUserToResizeRows = False
Me.Arindv1.AutoGenerateColumns = False
Me.Arindv1.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.AllCells
Me.Arindv1.BorderStyle = System.Windows.Forms.BorderStyle.None
Me.Arindv1.ColumnHeadersHeight = 30
Me.Arindv1.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.DisableResizing
Me.Arindv1.Columns.AddRange(New System.Windows.Forms.DataGridViewColumn() {Me.DataGridViewTextBoxColumn1, Me.DataGridViewTextBoxColumn2, Me.DataGridViewTextBoxColumn3, Me.DataGridViewTextBoxColumn4, Me.DataGridViewTextBoxColumn5, Me.DataGridViewTextBoxColumn6})
Me.Arindv1.DataSource = Me.bs2
Me.Arindv1.Dock = System.Windows.Forms.DockStyle.Fill
Me.Arindv1.Location = New System.Drawing.Point(0, 32)
Me.Arindv1.Margin = New System.Windows.Forms.Padding(0)
Me.Arindv1.Name = "Arindv1"
Me.Arindv1.RowHeadersVisible = False
Me.Arindv1.RowTemplate.Height = 23
Me.Arindv1.Size = New System.Drawing.Size(256, 346)
Me.Arindv1.TabIndex = 1
'
'tb_y2
'
Me.tb_y2.Dock = System.Windows.Forms.DockStyle.Top
Me.tb_y2.Font = New System.Drawing.Font("돋움", 15.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(129, Byte))
Me.tb_y2.Location = New System.Drawing.Point(0, 0)
Me.tb_y2.Name = "tb_y2"
Me.tb_y2.Size = New System.Drawing.Size(256, 32)
Me.tb_y2.TabIndex = 0
Me.tb_y2.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
'
'Panel3
'
Me.Panel3.Controls.Add(Me.Arindv2)
Me.Panel3.Controls.Add(Me.tb_y3)
Me.Panel3.Dock = System.Windows.Forms.DockStyle.Fill
Me.Panel3.Location = New System.Drawing.Point(527, 3)
Me.Panel3.Name = "Panel3"
Me.Panel3.Size = New System.Drawing.Size(256, 378)
Me.Panel3.TabIndex = 12
'
'Arindv2
'
Me.Arindv2.A_DelCurrentCell = True
Me.Arindv2.A_EnterToTab = False
Me.Arindv2.AllowUserToAddRows = False
Me.Arindv2.AllowUserToDeleteRows = False
Me.Arindv2.AllowUserToResizeRows = False
Me.Arindv2.AutoGenerateColumns = False
Me.Arindv2.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.AllCells
Me.Arindv2.BorderStyle = System.Windows.Forms.BorderStyle.None
Me.Arindv2.ColumnHeadersHeight = 30
Me.Arindv2.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.DisableResizing
Me.Arindv2.Columns.AddRange(New System.Windows.Forms.DataGridViewColumn() {Me.DataGridViewTextBoxColumn7, Me.DataGridViewTextBoxColumn8, Me.DataGridViewTextBoxColumn9, Me.DataGridViewTextBoxColumn10, Me.DataGridViewTextBoxColumn11, Me.DataGridViewTextBoxColumn12})
Me.Arindv2.DataSource = Me.bs3
Me.Arindv2.Dock = System.Windows.Forms.DockStyle.Fill
Me.Arindv2.Location = New System.Drawing.Point(0, 32)
Me.Arindv2.Margin = New System.Windows.Forms.Padding(0)
Me.Arindv2.Name = "Arindv2"
Me.Arindv2.RowHeadersVisible = False
Me.Arindv2.RowTemplate.Height = 23
Me.Arindv2.Size = New System.Drawing.Size(256, 346)
Me.Arindv2.TabIndex = 1
'
'tb_y3
'
Me.tb_y3.Dock = System.Windows.Forms.DockStyle.Top
Me.tb_y3.Font = New System.Drawing.Font("돋움", 15.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(129, Byte))
Me.tb_y3.Location = New System.Drawing.Point(0, 0)
Me.tb_y3.Name = "tb_y3"
Me.tb_y3.Size = New System.Drawing.Size(256, 32)
Me.tb_y3.TabIndex = 0
Me.tb_y3.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
'
'bn_all
'
Me.bn_all.AddNewItem = Nothing
Me.bn_all.BindingSource = Me.bs1
Me.bn_all.CountItem = Me.ToolStripLabel6
Me.bn_all.DeleteItem = Nothing
Me.bn_all.Dock = System.Windows.Forms.DockStyle.Bottom
Me.bn_all.Font = New System.Drawing.Font("돋움", 8.999999!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(129, Byte))
Me.bn_all.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToolStripButton44, Me.ToolStripButton45, Me.ToolStripSeparator25, Me.ToolStripTextBox6, Me.ToolStripLabel6, Me.ToolStripSeparator26, Me.ToolStripButton46, Me.ToolStripButton47, Me.ToolStripSeparator27, Me.ToolStripButton48, Me.ToolStripButton49, Me.ToolStripSeparator28, Me.ToolStripButton51})
Me.bn_all.Location = New System.Drawing.Point(0, 384)
Me.bn_all.MoveFirstItem = Me.ToolStripButton44
Me.bn_all.MoveLastItem = Me.ToolStripButton47
Me.bn_all.MoveNextItem = Me.ToolStripButton46
Me.bn_all.MovePreviousItem = Me.ToolStripButton45
Me.bn_all.Name = "bn_all"
Me.bn_all.PositionItem = Me.ToolStripTextBox6
Me.bn_all.Size = New System.Drawing.Size(786, 25)
Me.bn_all.TabIndex = 7
Me.bn_all.Text = "BindingNavigator1"
'
'ToolStripLabel6
'
Me.ToolStripLabel6.Name = "ToolStripLabel6"
Me.ToolStripLabel6.Size = New System.Drawing.Size(29, 22)
Me.ToolStripLabel6.Text = "/{0}"
Me.ToolStripLabel6.ToolTipText = "전체 항목 수"
'
'ToolStripButton44
'
Me.ToolStripButton44.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
Me.ToolStripButton44.Image = CType(resources.GetObject("ToolStripButton44.Image"), System.Drawing.Image)
Me.ToolStripButton44.Name = "ToolStripButton44"
Me.ToolStripButton44.RightToLeftAutoMirrorImage = True
Me.ToolStripButton44.Size = New System.Drawing.Size(23, 22)
Me.ToolStripButton44.Text = "처음으로 이동"
'
'ToolStripButton45
'
Me.ToolStripButton45.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
Me.ToolStripButton45.Image = CType(resources.GetObject("ToolStripButton45.Image"), System.Drawing.Image)
Me.ToolStripButton45.Name = "ToolStripButton45"
Me.ToolStripButton45.RightToLeftAutoMirrorImage = True
Me.ToolStripButton45.Size = New System.Drawing.Size(23, 22)
Me.ToolStripButton45.Text = "이전으로 이동"
'
'ToolStripSeparator25
'
Me.ToolStripSeparator25.Name = "ToolStripSeparator25"
Me.ToolStripSeparator25.Size = New System.Drawing.Size(6, 25)
'
'ToolStripTextBox6
'
Me.ToolStripTextBox6.AccessibleName = "위치"
Me.ToolStripTextBox6.AutoSize = False
Me.ToolStripTextBox6.Name = "ToolStripTextBox6"
Me.ToolStripTextBox6.Size = New System.Drawing.Size(50, 21)
Me.ToolStripTextBox6.Text = "0"
Me.ToolStripTextBox6.ToolTipText = "현재 위치"
'
'ToolStripSeparator26
'
Me.ToolStripSeparator26.Name = "ToolStripSeparator26"
Me.ToolStripSeparator26.Size = New System.Drawing.Size(6, 25)
'
'ToolStripButton46
'
Me.ToolStripButton46.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
Me.ToolStripButton46.Image = CType(resources.GetObject("ToolStripButton46.Image"), System.Drawing.Image)
Me.ToolStripButton46.Name = "ToolStripButton46"
Me.ToolStripButton46.RightToLeftAutoMirrorImage = True
Me.ToolStripButton46.Size = New System.Drawing.Size(23, 22)
Me.ToolStripButton46.Text = "다음으로 이동"
'
'ToolStripButton47
'
Me.ToolStripButton47.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
Me.ToolStripButton47.Image = CType(resources.GetObject("ToolStripButton47.Image"), System.Drawing.Image)
Me.ToolStripButton47.Name = "ToolStripButton47"
Me.ToolStripButton47.RightToLeftAutoMirrorImage = True
Me.ToolStripButton47.Size = New System.Drawing.Size(23, 22)
Me.ToolStripButton47.Text = "마지막으로 이동"
'
'ToolStripSeparator27
'
Me.ToolStripSeparator27.Name = "ToolStripSeparator27"
Me.ToolStripSeparator27.Size = New System.Drawing.Size(6, 25)
'
'ToolStripButton48
'
Me.ToolStripButton48.Enabled = False
Me.ToolStripButton48.Image = CType(resources.GetObject("ToolStripButton48.Image"), System.Drawing.Image)
Me.ToolStripButton48.Name = "ToolStripButton48"
Me.ToolStripButton48.RightToLeftAutoMirrorImage = True
Me.ToolStripButton48.Size = New System.Drawing.Size(67, 22)
Me.ToolStripButton48.Text = "추가(&A)"
'
'ToolStripButton49
'
Me.ToolStripButton49.Enabled = False
Me.ToolStripButton49.Image = CType(resources.GetObject("ToolStripButton49.Image"), System.Drawing.Image)
Me.ToolStripButton49.Name = "ToolStripButton49"
Me.ToolStripButton49.RightToLeftAutoMirrorImage = True
Me.ToolStripButton49.Size = New System.Drawing.Size(67, 22)
Me.ToolStripButton49.Text = "삭제(&D)"
'
'ToolStripSeparator28
'
Me.ToolStripSeparator28.Name = "ToolStripSeparator28"
Me.ToolStripSeparator28.Size = New System.Drawing.Size(6, 25)
'
'ToolStripButton51
'
Me.ToolStripButton51.Image = CType(resources.GetObject("ToolStripButton51.Image"), System.Drawing.Image)
Me.ToolStripButton51.ImageTransparentColor = System.Drawing.Color.Magenta
Me.ToolStripButton51.Name = "ToolStripButton51"
Me.ToolStripButton51.Size = New System.Drawing.Size(68, 22)
Me.ToolStripButton51.Text = "취소(&C)"
'
'CodeDataGridViewTextBoxColumn
'
Me.CodeDataGridViewTextBoxColumn.DataPropertyName = "code"
Me.CodeDataGridViewTextBoxColumn.HeaderText = "code"
Me.CodeDataGridViewTextBoxColumn.Name = "CodeDataGridViewTextBoxColumn"
Me.CodeDataGridViewTextBoxColumn.SortMode = System.Windows.Forms.DataGridViewColumnSortMode.Programmatic
Me.CodeDataGridViewTextBoxColumn.Visible = False
Me.CodeDataGridViewTextBoxColumn.Width = 62
'
'년DataGridViewTextBoxColumn
'
Me.년DataGridViewTextBoxColumn.DataPropertyName = "년"
Me.년DataGridViewTextBoxColumn.HeaderText = "년"
Me.년DataGridViewTextBoxColumn.Name = "년DataGridViewTextBoxColumn"
Me.년DataGridViewTextBoxColumn.SortMode = System.Windows.Forms.DataGridViewColumnSortMode.Programmatic
Me.년DataGridViewTextBoxColumn.Visible = False
Me.년DataGridViewTextBoxColumn.Width = 43
'
'월DataGridViewTextBoxColumn
'
Me.월DataGridViewTextBoxColumn.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.Fill
Me.월DataGridViewTextBoxColumn.DataPropertyName = "월"
DataGridViewCellStyle1.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleCenter
DataGridViewCellStyle1.BackColor = System.Drawing.Color.FromArgb(CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer))
Me.월DataGridViewTextBoxColumn.DefaultCellStyle = DataGridViewCellStyle1
Me.월DataGridViewTextBoxColumn.HeaderText = "월"
Me.월DataGridViewTextBoxColumn.Name = "월DataGridViewTextBoxColumn"
Me.월DataGridViewTextBoxColumn.ReadOnly = True
Me.월DataGridViewTextBoxColumn.Resizable = System.Windows.Forms.DataGridViewTriState.[True]
Me.월DataGridViewTextBoxColumn.SortMode = System.Windows.Forms.DataGridViewColumnSortMode.Programmatic
'
'도시가스DataGridViewTextBoxColumn
'
Me.도시가스DataGridViewTextBoxColumn.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.None
Me.도시가스DataGridViewTextBoxColumn.DataPropertyName = "도시가스"
DataGridViewCellStyle2.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleRight
Me.도시가스DataGridViewTextBoxColumn.DefaultCellStyle = DataGridViewCellStyle2
Me.도시가스DataGridViewTextBoxColumn.HeaderText = "가스등유"
Me.도시가스DataGridViewTextBoxColumn.Name = "도시가스DataGridViewTextBoxColumn"
Me.도시가스DataGridViewTextBoxColumn.SortMode = System.Windows.Forms.DataGridViewColumnSortMode.Programmatic
Me.도시가스DataGridViewTextBoxColumn.Width = 70
'
'전력DataGridViewTextBoxColumn
'
Me.전력DataGridViewTextBoxColumn.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.None
Me.전력DataGridViewTextBoxColumn.DataPropertyName = "전력"
DataGridViewCellStyle3.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleRight
Me.전력DataGridViewTextBoxColumn.DefaultCellStyle = DataGridViewCellStyle3
Me.전력DataGridViewTextBoxColumn.HeaderText = "전력"
Me.전력DataGridViewTextBoxColumn.Name = "전력DataGridViewTextBoxColumn"
Me.전력DataGridViewTextBoxColumn.SortMode = System.Windows.Forms.DataGridViewColumnSortMode.Programmatic
Me.전력DataGridViewTextBoxColumn.Width = 70
'
'지역난방DataGridViewTextBoxColumn
'
Me.지역난방DataGridViewTextBoxColumn.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.None
Me.지역난방DataGridViewTextBoxColumn.DataPropertyName = "지역난방"
DataGridViewCellStyle4.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleRight
Me.지역난방DataGridViewTextBoxColumn.DefaultCellStyle = DataGridViewCellStyle4
Me.지역난방DataGridViewTextBoxColumn.HeaderText = "지역난방"
Me.지역난방DataGridViewTextBoxColumn.Name = "지역난방DataGridViewTextBoxColumn"
Me.지역난방DataGridViewTextBoxColumn.SortMode = System.Windows.Forms.DataGridViewColumnSortMode.Programmatic
Me.지역난방DataGridViewTextBoxColumn.Width = 70
'
'DataGridViewTextBoxColumn1
'
Me.DataGridViewTextBoxColumn1.DataPropertyName = "code"
Me.DataGridViewTextBoxColumn1.HeaderText = "code"
Me.DataGridViewTextBoxColumn1.Name = "DataGridViewTextBoxColumn1"
Me.DataGridViewTextBoxColumn1.SortMode = System.Windows.Forms.DataGridViewColumnSortMode.NotSortable
Me.DataGridViewTextBoxColumn1.Visible = False
Me.DataGridViewTextBoxColumn1.Width = 43
'
'DataGridViewTextBoxColumn2
'
Me.DataGridViewTextBoxColumn2.DataPropertyName = "년"
Me.DataGridViewTextBoxColumn2.HeaderText = "년"
Me.DataGridViewTextBoxColumn2.Name = "DataGridViewTextBoxColumn2"
Me.DataGridViewTextBoxColumn2.SortMode = System.Windows.Forms.DataGridViewColumnSortMode.Programmatic
Me.DataGridViewTextBoxColumn2.Visible = False
Me.DataGridViewTextBoxColumn2.Width = 43
'
'DataGridViewTextBoxColumn3
'
Me.DataGridViewTextBoxColumn3.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.Fill
Me.DataGridViewTextBoxColumn3.DataPropertyName = "월"
DataGridViewCellStyle5.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleCenter
DataGridViewCellStyle5.BackColor = System.Drawing.Color.FromArgb(CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer))
Me.DataGridViewTextBoxColumn3.DefaultCellStyle = DataGridViewCellStyle5
Me.DataGridViewTextBoxColumn3.HeaderText = "월"
Me.DataGridViewTextBoxColumn3.Name = "DataGridViewTextBoxColumn3"
Me.DataGridViewTextBoxColumn3.ReadOnly = True
Me.DataGridViewTextBoxColumn3.SortMode = System.Windows.Forms.DataGridViewColumnSortMode.Programmatic
'
'DataGridViewTextBoxColumn4
'
Me.DataGridViewTextBoxColumn4.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.None
Me.DataGridViewTextBoxColumn4.DataPropertyName = "도시가스"
DataGridViewCellStyle6.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleRight
Me.DataGridViewTextBoxColumn4.DefaultCellStyle = DataGridViewCellStyle6
Me.DataGridViewTextBoxColumn4.HeaderText = "가스등유"
Me.DataGridViewTextBoxColumn4.Name = "DataGridViewTextBoxColumn4"
Me.DataGridViewTextBoxColumn4.SortMode = System.Windows.Forms.DataGridViewColumnSortMode.Programmatic
Me.DataGridViewTextBoxColumn4.Width = 70
'
'DataGridViewTextBoxColumn5
'
Me.DataGridViewTextBoxColumn5.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.None
Me.DataGridViewTextBoxColumn5.DataPropertyName = "전력"
DataGridViewCellStyle7.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleRight
Me.DataGridViewTextBoxColumn5.DefaultCellStyle = DataGridViewCellStyle7
Me.DataGridViewTextBoxColumn5.HeaderText = "전력"
Me.DataGridViewTextBoxColumn5.Name = "DataGridViewTextBoxColumn5"
Me.DataGridViewTextBoxColumn5.SortMode = System.Windows.Forms.DataGridViewColumnSortMode.Programmatic
Me.DataGridViewTextBoxColumn5.Width = 70
'
'DataGridViewTextBoxColumn6
'
Me.DataGridViewTextBoxColumn6.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.None
Me.DataGridViewTextBoxColumn6.DataPropertyName = "지역난방"
DataGridViewCellStyle8.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleRight
Me.DataGridViewTextBoxColumn6.DefaultCellStyle = DataGridViewCellStyle8
Me.DataGridViewTextBoxColumn6.HeaderText = "지역난방"
Me.DataGridViewTextBoxColumn6.Name = "DataGridViewTextBoxColumn6"
Me.DataGridViewTextBoxColumn6.SortMode = System.Windows.Forms.DataGridViewColumnSortMode.Programmatic
Me.DataGridViewTextBoxColumn6.Width = 70
'
'DataGridViewTextBoxColumn7
'
Me.DataGridViewTextBoxColumn7.DataPropertyName = "code"
Me.DataGridViewTextBoxColumn7.HeaderText = "code"
Me.DataGridViewTextBoxColumn7.Name = "DataGridViewTextBoxColumn7"
Me.DataGridViewTextBoxColumn7.SortMode = System.Windows.Forms.DataGridViewColumnSortMode.NotSortable
Me.DataGridViewTextBoxColumn7.Visible = False
Me.DataGridViewTextBoxColumn7.Width = 43
'
'DataGridViewTextBoxColumn8
'
Me.DataGridViewTextBoxColumn8.DataPropertyName = "년"
Me.DataGridViewTextBoxColumn8.HeaderText = "년"
Me.DataGridViewTextBoxColumn8.Name = "DataGridViewTextBoxColumn8"
Me.DataGridViewTextBoxColumn8.SortMode = System.Windows.Forms.DataGridViewColumnSortMode.Programmatic
Me.DataGridViewTextBoxColumn8.Visible = False
Me.DataGridViewTextBoxColumn8.Width = 43
'
'DataGridViewTextBoxColumn9
'
Me.DataGridViewTextBoxColumn9.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.Fill
Me.DataGridViewTextBoxColumn9.DataPropertyName = "월"
DataGridViewCellStyle9.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleCenter
DataGridViewCellStyle9.BackColor = System.Drawing.Color.FromArgb(CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer))
Me.DataGridViewTextBoxColumn9.DefaultCellStyle = DataGridViewCellStyle9
Me.DataGridViewTextBoxColumn9.HeaderText = "월"
Me.DataGridViewTextBoxColumn9.Name = "DataGridViewTextBoxColumn9"
Me.DataGridViewTextBoxColumn9.ReadOnly = True
Me.DataGridViewTextBoxColumn9.SortMode = System.Windows.Forms.DataGridViewColumnSortMode.Programmatic
'
'DataGridViewTextBoxColumn10
'
Me.DataGridViewTextBoxColumn10.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.None
Me.DataGridViewTextBoxColumn10.DataPropertyName = "도시가스"
DataGridViewCellStyle10.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleRight
Me.DataGridViewTextBoxColumn10.DefaultCellStyle = DataGridViewCellStyle10
Me.DataGridViewTextBoxColumn10.HeaderText = "가스등유"
Me.DataGridViewTextBoxColumn10.Name = "DataGridViewTextBoxColumn10"
Me.DataGridViewTextBoxColumn10.SortMode = System.Windows.Forms.DataGridViewColumnSortMode.Programmatic
Me.DataGridViewTextBoxColumn10.Width = 70
'
'DataGridViewTextBoxColumn11
'
Me.DataGridViewTextBoxColumn11.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.None
Me.DataGridViewTextBoxColumn11.DataPropertyName = "전력"
DataGridViewCellStyle11.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleRight
Me.DataGridViewTextBoxColumn11.DefaultCellStyle = DataGridViewCellStyle11
Me.DataGridViewTextBoxColumn11.HeaderText = "전력"
Me.DataGridViewTextBoxColumn11.Name = "DataGridViewTextBoxColumn11"
Me.DataGridViewTextBoxColumn11.SortMode = System.Windows.Forms.DataGridViewColumnSortMode.Programmatic
Me.DataGridViewTextBoxColumn11.Width = 70
'
'DataGridViewTextBoxColumn12
'
Me.DataGridViewTextBoxColumn12.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.None
Me.DataGridViewTextBoxColumn12.DataPropertyName = "지역난방"
DataGridViewCellStyle12.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleRight
Me.DataGridViewTextBoxColumn12.DefaultCellStyle = DataGridViewCellStyle12
Me.DataGridViewTextBoxColumn12.HeaderText = "지역난방"
Me.DataGridViewTextBoxColumn12.Name = "DataGridViewTextBoxColumn12"
Me.DataGridViewTextBoxColumn12.SortMode = System.Windows.Forms.DataGridViewColumnSortMode.Programmatic
Me.DataGridViewTextBoxColumn12.Width = 70
'
'Frm_monuse
'
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.None
Me.ClientSize = New System.Drawing.Size(786, 409)
Me.ControlBox = False
Me.Controls.Add(Me.TableLayoutPanel1)
Me.Controls.Add(Me.bn_all)
Me.Font = New System.Drawing.Font("돋움", 8.999999!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(129, Byte))
Me.KeyPreview = True
Me.Name = "Frm_monuse"
Me.ShowInTaskbar = False
Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
Me.Text = "월별에너지사용량"
CType(Me.bs1, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.DS, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.bs3, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.bs2, System.ComponentModel.ISupportInitialize).EndInit()
Me.TableLayoutPanel1.ResumeLayout(False)
Me.Panel1.ResumeLayout(False)
Me.Panel1.PerformLayout()
CType(Me.Arindv9, System.ComponentModel.ISupportInitialize).EndInit()
Me.Panel2.ResumeLayout(False)
Me.Panel2.PerformLayout()
CType(Me.Arindv1, System.ComponentModel.ISupportInitialize).EndInit()
Me.Panel3.ResumeLayout(False)
Me.Panel3.PerformLayout()
CType(Me.Arindv2, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.bn_all, System.ComponentModel.ISupportInitialize).EndInit()
Me.bn_all.ResumeLayout(False)
Me.bn_all.PerformLayout()
Me.ResumeLayout(False)
Me.PerformLayout()
End Sub
Friend WithEvents bn_all As System.Windows.Forms.BindingNavigator
Friend WithEvents ToolStripLabel6 As System.Windows.Forms.ToolStripLabel
Friend WithEvents ToolStripButton44 As System.Windows.Forms.ToolStripButton
Friend WithEvents ToolStripButton45 As System.Windows.Forms.ToolStripButton
Friend WithEvents ToolStripSeparator25 As System.Windows.Forms.ToolStripSeparator
Friend WithEvents ToolStripTextBox6 As System.Windows.Forms.ToolStripTextBox
Friend WithEvents ToolStripSeparator26 As System.Windows.Forms.ToolStripSeparator
Friend WithEvents ToolStripButton46 As System.Windows.Forms.ToolStripButton
Friend WithEvents ToolStripButton47 As System.Windows.Forms.ToolStripButton
Friend WithEvents ToolStripSeparator27 As System.Windows.Forms.ToolStripSeparator
Friend WithEvents ToolStripButton48 As System.Windows.Forms.ToolStripButton
Friend WithEvents ToolStripButton49 As System.Windows.Forms.ToolStripButton
Friend WithEvents ToolStripSeparator28 As System.Windows.Forms.ToolStripSeparator
Friend WithEvents ToolStripButton51 As System.Windows.Forms.ToolStripButton
Friend WithEvents Arindv9 As CEnergy.arindv
Public WithEvents DS As Eco2Ar.DS
Friend WithEvents bs1 As System.Windows.Forms.BindingSource
Friend WithEvents bs3 As System.Windows.Forms.BindingSource
Friend WithEvents bs2 As System.Windows.Forms.BindingSource
Friend WithEvents TableLayoutPanel1 As System.Windows.Forms.TableLayoutPanel
Friend WithEvents Panel1 As System.Windows.Forms.Panel
Friend WithEvents tb_y1 As System.Windows.Forms.TextBox
Friend WithEvents Panel2 As System.Windows.Forms.Panel
Friend WithEvents tb_y2 As System.Windows.Forms.TextBox
Friend WithEvents Panel3 As System.Windows.Forms.Panel
Friend WithEvents tb_y3 As System.Windows.Forms.TextBox
Friend WithEvents Arindv1 As CEnergy.arindv
Friend WithEvents Arindv2 As CEnergy.arindv
Friend WithEvents CodeDataGridViewTextBoxColumn As System.Windows.Forms.DataGridViewTextBoxColumn
Friend WithEvents 년DataGridViewTextBoxColumn As System.Windows.Forms.DataGridViewTextBoxColumn
Friend WithEvents 월DataGridViewTextBoxColumn As System.Windows.Forms.DataGridViewTextBoxColumn
Friend WithEvents 도시가스DataGridViewTextBoxColumn As System.Windows.Forms.DataGridViewTextBoxColumn
Friend WithEvents 전력DataGridViewTextBoxColumn As System.Windows.Forms.DataGridViewTextBoxColumn
Friend WithEvents 지역난방DataGridViewTextBoxColumn As System.Windows.Forms.DataGridViewTextBoxColumn
Friend WithEvents DataGridViewTextBoxColumn1 As System.Windows.Forms.DataGridViewTextBoxColumn
Friend WithEvents DataGridViewTextBoxColumn2 As System.Windows.Forms.DataGridViewTextBoxColumn
Friend WithEvents DataGridViewTextBoxColumn3 As System.Windows.Forms.DataGridViewTextBoxColumn
Friend WithEvents DataGridViewTextBoxColumn4 As System.Windows.Forms.DataGridViewTextBoxColumn
Friend WithEvents DataGridViewTextBoxColumn5 As System.Windows.Forms.DataGridViewTextBoxColumn
Friend WithEvents DataGridViewTextBoxColumn6 As System.Windows.Forms.DataGridViewTextBoxColumn
Friend WithEvents DataGridViewTextBoxColumn7 As System.Windows.Forms.DataGridViewTextBoxColumn
Friend WithEvents DataGridViewTextBoxColumn8 As System.Windows.Forms.DataGridViewTextBoxColumn
Friend WithEvents DataGridViewTextBoxColumn9 As System.Windows.Forms.DataGridViewTextBoxColumn
Friend WithEvents DataGridViewTextBoxColumn10 As System.Windows.Forms.DataGridViewTextBoxColumn
Friend WithEvents DataGridViewTextBoxColumn11 As System.Windows.Forms.DataGridViewTextBoxColumn
Friend WithEvents DataGridViewTextBoxColumn12 As System.Windows.Forms.DataGridViewTextBoxColumn
End Class

225
ArinWarev1/Forms_Input/frm_monuse.resx Normal file
View File

@@ -0,0 +1,225 @@
<?xml version="1.0" encoding="utf-8"?>
<root>
<!--
Microsoft ResX Schema
Version 2.0
The primary goals of this format is to allow a simple XML format
that is mostly human readable. The generation and parsing of the
various data types are done through the TypeConverter classes
associated with the data types.
Example:
... ado.net/XML headers & schema ...
<resheader name="resmimetype">text/microsoft-resx</resheader>
<resheader name="version">2.0</resheader>
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
<data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
<value>[base64 mime encoded serialized .NET Framework object]</value>
</data>
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
<comment>This is a comment</comment>
</data>
There are any number of "resheader" rows that contain simple
name/value pairs.
Each data row contains a name, and value. The row also contains a
type or mimetype. Type corresponds to a .NET class that support
text/value conversion through the TypeConverter architecture.
Classes that don't support this are serialized and stored with the
mimetype set.
The mimetype is used for serialized objects, and tells the
ResXResourceReader how to depersist the object. This is currently not
extensible. For a given mimetype the value must be set accordingly:
Note - application/x-microsoft.net.object.binary.base64 is the format
that the ResXResourceWriter will generate, however the reader can
read any of the formats listed below.
mimetype: application/x-microsoft.net.object.binary.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.soap.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.bytearray.base64
value : The object must be serialized into a byte array
: using a System.ComponentModel.TypeConverter
: and then encoded with base64 encoding.
-->
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
<xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
<xsd:element name="root" msdata:IsDataSet="true">
<xsd:complexType>
<xsd:choice maxOccurs="unbounded">
<xsd:element name="metadata">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" />
</xsd:sequence>
<xsd:attribute name="name" use="required" type="xsd:string" />
<xsd:attribute name="type" type="xsd:string" />
<xsd:attribute name="mimetype" type="xsd:string" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="assembly">
<xsd:complexType>
<xsd:attribute name="alias" type="xsd:string" />
<xsd:attribute name="name" type="xsd:string" />
</xsd:complexType>
</xsd:element>
<xsd:element name="data">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="resheader">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" />
</xsd:complexType>
</xsd:element>
</xsd:choice>
</xsd:complexType>
</xsd:element>
</xsd:schema>
<resheader name="resmimetype">
<value>text/microsoft-resx</value>
</resheader>
<resheader name="version">
<value>2.0</value>
</resheader>
<resheader name="reader">
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<resheader name="writer">
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<metadata name="bs1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<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>172, 17</value>
</metadata>
<metadata name="bs3.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>239, 17</value>
</metadata>
<metadata name="bs2.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>310, 17</value>
</metadata>
<metadata name="bn_all.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>88, 17</value>
</metadata>
<assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
<data name="ToolStripButton44.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAACBjSFJNAAB6
JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAAACXBIWXMAAA64AAAOuAFqQfVbAAABKklE
QVQ4T2MYPKBw1vP/TQue/8+c+Pg/VAgDhLc/wCnHkDvz2f9VR97/x6UovvvB/+CGa7gNyJjy9P/CfR+w
Korvefh/6f7///2rL+A2IKHnyf9pW95jKIpovw/WnDnr/3+v0hO4DYjsevS/d/UHFEWhrffAmlvXAW3v
/PvfJf8AbgMCmx/+r5v/Dq4ouOXu/0V7///vAGrOmPPzv13dz//2GdtxG+BRdf9//rQ3KIrsim//T5/z
+79/17f/OoXv/lskrMdtgH3p3f/Zk19jKNJPOf/fpOjFf5WsT/+NI5fhNsAi787/1P7XWBUZJJ34L5v2
9b9u8DzcBhhm3f4f1vISpyL91Mv/NXyn4TZAJ+3Gf7/qh3gVqXhMwG2AU+6V/yAFeBUNQsDAAADwdsCr
peWacAAAAABJRU5ErkJggg==
</value>
</data>
<data name="ToolStripButton45.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAACBjSFJNAAB6
JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAAACXBIWXMAAA64AAAOuAFqQfVbAAAAtklE
QVQ4T2MYOiC8/cF/KJN0EN/94H9wwzXyDIjvefh/6f7///2rL5BuQET7fbDmzFn//3uVniDNgNDWe2DN
reuAtnf+/e+Sf4B4A4Jb7v5ftPf//w6g5ow5P//b1f38b5+xnTQX2BXf/p8+5/d//65v/3UK3/23SFhP
ehjop5z/b1L04r9K1qf/xpHLSDcABAySTvyXTfv6Xzd4HnkGgIB+6uX/Gr7TyDcABFQ8JlBmwGAFDAwA
0BRgmAS6UFUAAAAASUVORK5CYII=
</value>
</data>
<data name="ToolStripButton46.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAACBjSFJNAAB6
JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAAACXBIWXMAAA64AAAOuAFqQfVbAAAAo0lE
QVQ4T2MYfKBw1vP/UCZ5IHfms/8J3ffINyRjytP/8/b//p/QdYc8QxJ6nvyfve/X/86tf/+7lV4m3ZDI
rkf/p2z79b9k6d//CdP//rfJPUuaIYHND/+3rn0P1mxc8uW/dPS1/8aRy4g3xKPq/v+Sue/gmhVdekhz
gX3p3f+BLc/I0wwCFnl3/tsUXCFPMwgYZt0mXzMI6KTdIF/zUAQMDACgfl+gBzRCOAAAAABJRU5ErkJg
gg==
</value>
</data>
<data name="ToolStripButton47.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAACBjSFJNAAB6
JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAAACXBIWXMAAA64AAAOuAFqQfVbAAABLElE
QVQ4T2MYXKBw1vP/UCYGAMk1LXj+P3PiY5xqGHJnPvuf0H0PqwKQ3Koj7/+Htz/AbUDGlKf/5+3//T+h
6w6GIpDcwn0f/gc3XMNtQELPk/+z9/3637n173+30ssoCkFy07a8/+9ffQG3AZFdj/5P2fbrf8nSv/8T
pv/9b5N7Fq4YJNe7+sN/r9ITuA0IbH74v3Xte7Bm45Iv/6Wjr/03jlwG1gCSq5v/7r9L/gHcBnhU3f9f
MvcdXLOiSw9cMUguf9qb//YZ23EbYF96939gyzMMzSAAksue/Pq/RcJ63AZY5N35b1NwBUMzCIDkUvtf
w72EFRhm3caqGQRAcmEtL//rBs/DbYBO2g2ckiA5v+qH/zV8p+E2AB9wyr3yX8VjAhhDhQYFYGAAAL7R
v7O5DE6cAAAAAElFTkSuQmCC
</value>
</data>
<data name="ToolStripButton48.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAACBjSFJNAAB6
JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAAACXBIWXMAAA64AAAOuAFqQfVbAAABSklE
QVQ4T2MYvODuAvb/t+Zx/r86h+v/xRm8/6HCxIPrQI1/HjX+//Ow4f/JyQKkG3B+Oi/cgIM9IqQbcHyS
IFBz3f8/D6r+72gXJ2zApZk8/89O5ft/EqjxSL/Q/33dIkDN5f//3iv6v75B5v+qGrn/SysV/88vVf4/
q0gV08BTQH/+eVgP1FQLxJX//9wrAeK8/3/vZv7/eyf5/9/bcf//3YwA4pD/k3I0MQ041CsMdu7f+6VA
jQVAjdlAjalAjQn//92KBmoM+//vRtD/f9f9/nel6WIasLNd4v+WZqn/68DOlf+/pELx/99bMUCN4f+n
5mn8n5Cl9b87Q/d/e6r+/+ZEQ8JhMhvoT5Bz/90I+N+ToUNYAzoA+fPfDX8g9vvfmqxPugHd6bpg/4Jw
fZwR6Qa0JBn8b4g3/F8Ta/y/MtqEdAPoBBgYACQj2J51/IhpAAAAAElFTkSuQmCC
</value>
</data>
<data name="ToolStripButton49.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAACBjSFJNAAB6
JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAAACXBIWXMAAA64AAAOuAFqQfVbAAABb0lE
QVQ4T7WQTSjDYRzHd1XeSu3iglo5IJO8hGQypLHIhMjMJAcOi4R2cXAg5UIOuEgOJCXlROI0b/Pamlp/
LVLaBf+4PB9jqLW/seJ7eep5vt/P7/v8VH8iXCfQbQTHDh9XkYmVeURnFcKsh631sBC8HliaCfawtgC9
JkS7HtFRAXMTipC3hsJcBiM9oe+cOgKQumxEYwHYmoJMYsiKMOXCpD1sQxWL04jK1HcQw1Zwn8FYfwDq
Pz9s4YXHBc3FgS8ZsxD1edDX8rvwp9jf9VfOQxjSoUYbYfhGgsZCyElA1sbzoI2F2uxf1r+5BlM+FCXi
sxjg4uh9uXdpfsjy7A8LvL+DVh2PJUm4S9Px7W1/BRi14dTEIJ8cKEN4eYZBC+iSOU5T49tYDTHelmcg
tVUje69DIexuIueqcaZEIXU1gPykOGlHE4fsdCgApkaQUqNx6zNBulKu6Zds74bzQwXApRPGB+Bw79vw
P0ilegWKIwMchCbSyQAAAABJRU5ErkJggg==
</value>
</data>
<data name="ToolStripButton51.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAJ2SURBVDhPjVNdSJNhFH5bXdmFRFFeREQXRfQDJRlWZLra
mrOIDCEqQmrlTKkoIaHZoEKK1sAVS1dYiJCaCZUkKCRL20WmrXJ61U0UXhSMuen+n97n3adkdtGBw3u+
c57nOed83/uJv+2BEIZGIRzy9MkzSNdi5gwabL65hVgt/Y4ETn51XEfkvRfpnz+UM2aONWKI1WgZY0IW
WwKXK5D8/A742A/0tQKvmjLOeOSNqhFD7BwRqgYuWgC/F8nuZnwqP4y2lSvgWajDQPFuTD26AXS6gF4p
5H8LYslRZG3nyaSvB4nO+/CZC9jB6RFi/TUhFsnY/qGsGOl2Z0ak5wkSvtdqHfVOZOAYr6lAqr0B/qMm
RZaeRXF51vlK9iDW/wLpLjeij+uBZw1IyUbjlyzEOjiBb6L2FFLuWrTlLAU7z5AH9+1ArLcDqZcPMWY5
QkJwrPwgkhI7cdUCcgkMTtVbkbh7Hh6dDtrYdQOF2xDtbpWTuRA4YcY9IX7JvfOer8pBUmIjt6qUoBKI
2E4icdMCb/4GJu2DBVsw3dWMZMttjJbpFVlOlktxNolLLDlKgGN8LzcibjuGUPUBDOlzMd3RiITHjtFD
u2bJXIvrtS3LltjjIGdmBcdw4SbELpQgWmVC3G1D3HUFo+a8OWSJy5LuHCnajFhNKcghd/Yzhq1GRCsN
iFabELLuV+NxZzW27EzywNY1iMgm4Uoj65nPSOOlGMpfi+g5TUSCvug3onN5Npp0C/B0yWIM71yHyNm9
qk7s7EWiyQd1lVkIn8mA/uVhi16RiSVHo2eMCapyNHb7VrododNFyhkzxxox88h/mvZO/vN3FuI3yXDJ
RlfZIFMAAAAASUVORK5CYII=
</value>
</data>
<metadata name="$this.TrayHeight" type="System.Int32, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>38</value>
</metadata>
</root>

173
ArinWarev1/Forms_Input/frm_monuse.vb Normal file
View File

@@ -0,0 +1,173 @@
Public Class Frm_monuse
#Region "data Base 변경여부및 적용방법"
'''변경된내용을적용한다.
Public Overrides Function AcceptChanged() As Boolean
bs1.EndEdit() : bs2.EndEdit() : bs3.EndEdit()
'//현재입력된 년차수의값을 모두 업데이트한다.
If Me.tb_y1.Text.Trim = "" Then Me.tb_y1.Text = "1차년도"
If Me.tb_y2.Text.Trim = "" Then Me.tb_y2.Text = "2차년도"
If Me.tb_y3.Text.Trim = "" Then Me.tb_y3.Text = "3차년도"
For Each dr As DS.tbl_monuseRow In DSET1.tbl_monuse.Select("code='0001'")
dr.년 = Me.tb_y1.Text.Trim
Next
For Each dr As DS.tbl_monuseRow In DSET1.tbl_monuse.Select("code='0002'")
dr.년 = Me.tb_y2.Text.Trim
Next
For Each dr As DS.tbl_monuseRow In DSET1.tbl_monuse.Select("code='0003'")
dr.년 = Me.tb_y3.Text.Trim
Next
Dim BaseDS As DataSet = CType(bs1.DataSource, DataSet)
Dim BaseDT As DataTable = BaseDS.Tables(bs1.DataMember)
BaseDT.AcceptChanges()
Return True
End Function
'''변경된내용이있다면 취소한다.
Public Overrides Function RejectChanged() As Boolean
Dim BaseDS As DataSet = CType(bs1.DataSource, DataSet)
Dim BaseDT As DataTable = BaseDS.Tables(bs1.DataMember)
BaseDT.RejectChanges()
Return True
End Function
'''데이터에변형이있었는가?
Public Overrides Function HasChanged() As Boolean
bs1.EndEdit() : bs2.EndEdit() : bs3.EndEdit()
Dim BaseDS As DataSet = CType(bs1.DataSource, DataSet)
Dim BaseDT As DataTable = BaseDS.Tables(bs1.DataMember)
Dim ChangeDT As DataTable = BaseDT.GetChanges
If Not ChangeDT Is Nothing Then Return True
Return False
End Function
'''기본데이터테이블을 반환합니다.
Public Function DT() As DataTable
Dim BaseDS As DataSet = CType(bs1.DataSource, DataSet)
Return BaseDS.Tables(bs1.DataMember)
End Function
#End Region
Public Sub New(_opentime)
' 이 호출은 디자이너에 필요합니다.
InitializeComponent()
OpenTime = _opentime
' InitializeComponent() 호출 뒤에 초기화 코드를 추가하십시오.
End Sub
Private Sub MdiMain_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown
Select Case e.KeyCode
Case Keys.F12
Case Keys.Escape
Me.Close()
End Select
End Sub
Private Sub MdiMain_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Me.Show()
My.Application.DoEvents()
'Work_msg_timer("잠시만 기다려주세요")
'//프로필 관련
'//공유데이터셋에 연결한다.
Me.bs1.DataSource = DSET1
Me.bs2.DataSource = DSET1
Me.bs3.DataSource = DSET1
'//냉방기기
'AddHandler DSET1.tbl_buha.TableNewRow, AddressOf AddNewDataRow_nangbangkiki
'//콤보컨트롤 바인딩
Binding_Zone()
Me.tb_y1.Text = DSET1.tbl_monuse.Select("code='0001'")(0)("년").ToString
Me.tb_y2.Text = DSET1.tbl_monuse.Select("code='0002'")(0)("년").ToString
Me.tb_y3.Text = DSET1.tbl_monuse.Select("code='0003'")(0)("년").ToString
Try
Me.bs1.Position = CEnergy.ARINCLASS.Read_LastPos_Frm(Me)
Catch ex As Exception
Me.bs1.MoveFirst()
End Try
AddDebug("▲ Form Load")
End Sub
#Region "냉방기기"
Private Sub MdiMain_FormClosed(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosedEventArgs) Handles Me.FormClosed
AcceptChanged()
CEnergy.ARINCLASS.SaveLoad_FrmSetting(Me, Me.bs1.Position, True)
End Sub
'Private Function GetMaxCode(ByVal dt As DataTable) As String
' Try
' Dim Dr As DataRow = dt.Select("", "code desc")(0)
' Return Format(CInt(Dr("code")) + 1, "0000")
' Catch ex As Exception
' Return "0001"
' End Try
'End Function
Private Sub Cmb_DeleteVal(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs)
If e.KeyCode = Keys.Delete Then
CType(sender, ComboBox).SelectedValue = ""
End If
End Sub
Private Sub Binding_Zone()
End Sub
'Private Sub AddNewDataRow_nangbangkiki(ByVal sender As Object, ByVal e As System.Data.DataTableNewRowEventArgs)
' e.Row.Item("code") = GetMaxCode(DSET1.tbl_buha)
'End Sub
'Private Sub ToolStripButton48_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton48.Click
' If Not EndEdit(Me.bs1) Then Return
' Me.bs1.AddNew()
'End Sub
'Private Sub ToolStripButton49_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton49.Click
' 'DbBase.DelCrow(Me.bs1, True)
'End Sub
Private Sub ToolStripButton51_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton51.Click
If Not EndEdit(Me.bs1) Then Return
If Not EndEdit(Me.bs2) Then Return
If Not EndEdit(Me.bs3) Then Return
Data_Cancel(DSET1.tbl_monuse, Nothing)
MdiMain.RefreshMenuList(TreeTag)
End Sub
#End Region
Private Sub bs_CurrentChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bs1.CurrentChanged, bs2.CurrentChanged, bs3.CurrentChanged
Dim item As BindingSource = CType(sender, BindingSource)
item.EndEdit()
End Sub
Private Sub Arindv9_CellContentClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles Arindv9.CellContentClick
End Sub
Private Sub Panel3_Paint(sender As System.Object, e As System.Windows.Forms.PaintEventArgs) Handles Panel3.Paint
End Sub
Private Sub Arindv9_DataError(sender As Object, e As System.Windows.Forms.DataGridViewDataErrorEventArgs) Handles Arindv9.DataError, Arindv1.DataError, Arindv2.DataError
End Sub
Private Sub ToolStripButton48_Click(sender As System.Object, e As System.EventArgs) Handles ToolStripButton48.Click
End Sub
End Class