initial commit

ArinWarev1/FORM-OD/Frm_1_Basic.vb

@@ -0,0 +1,252 @@
+Public Class Frm_1_Basic
+    Dim DT지역중분류 As DataTable
+    Dim init As Boolean = False
+
+    Public Overrides Function AcceptChanged() As Boolean
+        Me.bs.EndEdit()
+
+        Dim drv As DataRowView = bs.Current
+        If drv Is Nothing Then Return True
+
+        If Me.cmbArea2.SelectedValue Is Nothing OrElse Me.cmbArea1.SelectedValue Is Nothing Then
+            MsgBox("지역이 선택되지 않았습니다" + vbCrLf + "계산작업을 위해서는 지역이 선택되어야 합니다", MsgBoxStyle.Critical, "확인")
+            drv("buildarea") = "0"
+        Else
+            drv("buildarea") = Me.cmbArea2.SelectedValue.ToString
+        End If
+
+         Me.bs.EndEdit()
+        Return True
+    End Function
+
+    Private Sub MdiMain_FormClosed(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosedEventArgs) Handles Me.FormClosed
+        Me.bs.EndEdit()
+        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
+
+        init = False
+
+        '//지역중분류값을 업데이트한다
+        bsArea1.DataSource = DSET1
+        bsArea1.DataMember = "weather_group"
+        bsArea2.DataSource = DSET1
+        bsArea2.DataMember = "weather_group"
+
+        cmbArea1.DataSource = bsArea1
+        cmbArea2.DataSource = bsArea2
+
+        cmbArea1.DisplayMember = "name"
+        cmbArea1.ValueMember = "code"
+        bsArea1.Filter = "code like '%0000'"
+
+        cmbArea2.DisplayMember = "name"
+        cmbArea2.ValueMember = "code"
+        bsArea2.Filter = "code ='test'"
+
+        Me.bs.DataSource = DSET1.tbl_Desc
+        If Me.bs.Count = 0 Then bs.AddNew()
+        bs.EndEdit()
+
+        Binding_Zone()
+        init = True
+        Try
+            Me.bs.Position = CEnergy.ARINCLASS.Read_LastPos_Frm(Me)
+        Catch ex As Exception
+            Me.bs.MoveFirst()
+        End Try
+
+        지역코드설정()
+
+        If Pub.Program = EProgram.친환경평가 Then
+            Label10.Text = "면허번호"
+            TextBox1.Enabled = True
+            Label29.Enabled = True
+        Else
+            Label10.Text = "자격번호"
+            TextBox1.Enabled = False
+            Label29.Enabled = False
+        End If
+
+        Me.Show()
+        Application.DoEvents()
+
+
+
+    End Sub
+
+    'Private Sub Frm_Intro_SizeChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.SizeChanged
+    '    '//판넬1을 항상 중앙에 위치하도록
+    '    If Not (Me.MdiParent Is Nothing) Then
+    '        Me.Left = CInt((Me.MdiParent.ClientRectangle.Width - Me.Width) / 2)
+    '        Me.Top = CInt((Me.MdiParent.ClientRectangle.Height - Me.Height) / 2)
+    '    End If
+
+    'End Sub
+
+    'Private Sub Frm_1_Basic_Shown(sender As Object, e As EventArgs) Handles Me.Shown
+    '    '//판넬1을 항상 중앙에 위치하도록
+    '    If Not (Me.MdiParent Is Nothing) Then
+    '        Me.Left = CInt((Me.MdiParent.ClientRectangle.Width - Me.Width) / 2)
+    '        Me.Top = CInt((Me.MdiParent.ClientRectangle.Height - Me.Height) / 2)
+    '    End If
+
+    'End Sub
+
+    Private Sub Binding_Zone()
+        'Dim bs_cmb_공조방식 As New BindingSource(DSET1, "tbl_weather")
+        'Me.cmb_location.DataSource = bs_cmb_공조방식
+        'cmb_location.DisplayMember = "건물위치"
+        'cmb_location.ValueMember = "code"
+        'Me.cmb_location.DataBindings.Add("selectedvalue", Me.bs, "buildarea")
+        'AddHandler cmb_location.KeyDown, AddressOf Cmb_DeleteVal
+    End Sub
+    Private Sub Cmb_DeleteVal(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs)
+        If e.KeyCode = Keys.Delete Then
+            CType(sender, ComboBox).SelectedValue = ""
+        End If
+    End Sub
+
+    Private Sub LinkLabel1_LinkClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs)
+        Dim L As String = Me.cmbArea2.SelectedValue
+        If MsgBox("공용코드값을 서버로부터 가져오시겠습니까?", MsgBoxStyle.Information Or MsgBoxStyle.OkCancel, "확인") = MsgBoxResult.Ok Then Read_CommonCode_OD()
+        Me.cmbArea2.SelectedValue = L
+        Me.bs.EndEdit()
+    End Sub
+
+    Private Sub LinkLabel2_LinkClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs)
+        Dim L As String = Me.cmbArea2.SelectedValue
+        If MsgBox("기상데이터값을 서버로부터 가져오시겠습니까?", MsgBoxStyle.Information Or MsgBoxStyle.OkCancel, "확인") = MsgBoxResult.Ok Then Read_WeatherData_OD()
+        Me.cmbArea2.SelectedValue = L
+        Me.bs.EndEdit()
+    End Sub
+
+    Dim 변경암함_세부지역 As Boolean = False
+
+    Private Sub CmbArea1_SelectedIndexChanged_1(sender As System.Object, e As System.EventArgs) Handles cmbArea1.SelectedIndexChanged
+        If init = False Then Return '//초기화전이면 수행안함
+        Dim drv As DataRowView = Me.bs.Current
+        If drv Is Nothing Then Return
+
+
+        '//지역그룹선택을 바꾼다면 해당 지역에 맞도록 우측을 갱신해줘야한다
+        If 변경암함_세부지역 Then Return '//순환참조방지
+        If Me.cmbArea1.SelectedIndex < 0 OrElse cmbArea1.Text = "없음" OrElse cmbArea1.SelectedValue.ToString() = "00" Then
+            Me.cmbArea2.SelectedIndex = -1
+        Else
+            Dim codeHeader As String = cmbArea1.SelectedValue.ToString().Substring(0, 2)
+            bsArea2.Filter = String.Format("code like '{0}%' and code not like '%0000' and code like '%00'", codeHeader)
+            If (cmbArea2.Items.Count > 0) Then
+                cmbArea2.SelectedIndex = 0
+            Else
+                cmbArea2.SelectedIndex = -1
+            End If
+
+            If cmbArea1.SelectedIndex >= 0 Then
+                drv("buildarea") = cmbArea1.SelectedValue.ToString()
+                drv.EndEdit()
+            End If
+
+        End If
+    End Sub
+
+    Private Sub CmbArea2_SelectedIndexChanged_1(sender As System.Object, e As System.EventArgs) Handles cmbArea2.SelectedIndexChanged
+        If init = False Then Return '//초기화전이면 수행안함
+        Dim drv As DataRowView = Me.bs.Current
+        If drv Is Nothing Then Return
+
+        '//지역그룹선택을 바꾼다면 해당 지역에 맞도록 우측을 갱신해줘야한다
+        If 변경암함_세부지역 Then Return '//순환참조방지
+        If Me.cmbArea2.SelectedIndex < 0 OrElse cmbArea2.Text = "없음" OrElse cmbArea2.SelectedValue.ToString() = "00" Then
+            'Me.cmbArea3.SelectedIndex = -1
+        Else
+            Dim codeHeader As String = cmbArea2.SelectedValue.ToString().Substring(0, 4)
+            'bsArea3.Filter = String.Format("code like '{0}%' and code not like '%00'", codeHeader)
+            'cmbArea3.SelectedIndex = -1
+
+            If cmbArea2.SelectedIndex >= 0 Then
+                drv("buildarea") = cmbArea2.SelectedValue.ToString()
+                drv.EndEdit()
+            End If
+
+        End If
+    End Sub
+
+
+    Private Sub Bs_CurrentChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bs.CurrentChanged
+        If init = False Then Return '//초기화전이면 수행안함
+
+        Me.bs.EndEdit()
+        Dim drv As DataRowView = Me.bs.Current
+        If drv Is Nothing Then Return
+
+        If drv("민간구분").ToString = "0" Then
+            Me.RadioButton1.Checked = True
+        Else
+            Me.RadioButton2.Checked = True
+        End If
+
+        지역코드설정()
+    End Sub
+
+    Private Sub 지역코드설정()
+        Dim drv As DataRowView = Me.bs.Current
+        If drv Is Nothing Then Return
+
+        '//지역코드에는 Weather_Group의 코드값이 들어있다.
+        Dim 지역코드 As String = drv("buildarea").ToString
+        If 지역코드 <> "" AndAlso 지역코드 <> "0" AndAlso 지역코드 <> "00" AndAlso 지역코드.Length = 6 Then
+
+            변경암함_세부지역 = True
+
+            '//Dep 1
+            Dim codeHeader As String = 지역코드.Substring(0, 2)
+            bsArea2.Filter = String.Format("code like '{0}%' and code not like '%0000' and code like '%00'", codeHeader)
+            Me.cmbArea1.SelectedValue = codeHeader + "0000"   '//선택해줌   
+
+            codeHeader = 지역코드.Substring(0, 4)
+            'bsArea3.Filter = String.Format("code like '{0}%' and code not like '%00'", codeHeader)
+            Me.cmbArea2.SelectedValue = codeHeader + "00"
+
+            'Me.cmbArea3.SelectedValue = 지역코드
+
+            '//찾은 중분류코드에맞는 중분류를 자동 선택해준다.
+            변경암함_세부지역 = False
+        Else
+            bsArea1.Filter = "code like '%0000'"
+            bsArea2.Filter = "code='test'"
+            'bsArea3.Filter = "code='test'"
+        End If
+    End Sub
+
+    Private Sub Bs_CurrentItemChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles bs.CurrentItemChanged
+        Try
+            Me.bs.EndEdit()
+        Catch ex As Exception
+
+        End Try
+    End Sub
+
+    Private Sub RadioButton1_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles RadioButton1.CheckedChanged, RadioButton2.CheckedChanged
+        Dim drv As DataRowView = Me.bs.Current
+        If drv Is Nothing Then Return
+        If RadioButton1.Checked Then
+            drv("민간구분") = "0"
+        Else
+            drv("민간구분") = "1"   '//공공
+        End If
+    End Sub
+
+    Private Sub RibbonButton1_Click(sender As Object, e As EventArgs) Handles RibbonButton1.Click
+        AcceptChanged()
+    End Sub
+
+
+End Class

ArinWarev1/FORM-OD/Frm_2_Build.Designer.vb

@@ -0,0 +1,874 @@
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
+Partial Class Frm_2_Build
+    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_2_Build))
+        Me.ToolTip1 = New System.Windows.Forms.ToolTip(Me.components)
+        Me.cmGrid = New System.Windows.Forms.ContextMenuStrip(Me.components)
+        Me.열너비저장ToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
+        Me.ToolStripMenuItem1 = New System.Windows.Forms.ToolStripSeparator()
+        Me.열너비자동조정ToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
+        Me.열너비초기화ToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
+        Me.SplitContainer1 = New System.Windows.Forms.SplitContainer()
+        Me.fxType = New C1.Win.C1FlexGrid.C1FlexGrid()
+        Me.bsType = New System.Windows.Forms.BindingSource(Me.components)
+        Me.DataSet1 = New Eco2OD.DS()
+        Me.Panel1 = New System.Windows.Forms.Panel()
+        Me.Label17 = New System.Windows.Forms.Label()
+        Me.tb_전체바닥면적 = New System.Windows.Forms.TextBox()
+        Me.tb_바닥면적 = New System.Windows.Forms.TextBox()
+        Me.Label15 = New System.Windows.Forms.Label()
+        Me.C1StatusBar4 = New C1.Win.C1Ribbon.C1StatusBar()
+        Me.RibbonButton2 = New C1.Win.C1Ribbon.RibbonButton()
+        Me.RibbonButton6 = New C1.Win.C1Ribbon.RibbonButton()
+        Me.fxList = New C1.Win.C1FlexGrid.C1FlexGrid()
+        Me.bs = New System.Windows.Forms.BindingSource(Me.components)
+        Me.C1StatusBar5 = New C1.Win.C1Ribbon.C1StatusBar()
+        Me.RibbonButton7 = New C1.Win.C1Ribbon.RibbonButton()
+        Me.RibbonButton8 = New C1.Win.C1Ribbon.RibbonButton()
+        Me.Panel3 = New System.Windows.Forms.Panel()
+        Me.TableLayoutPanel1 = New System.Windows.Forms.TableLayoutPanel()
+        Me.Label35 = New System.Windows.Forms.Label()
+        Me.tb_지하 = New System.Windows.Forms.TextBox()
+        Me.bs_desc = New System.Windows.Forms.BindingSource(Me.components)
+        Me.Label14 = New System.Windows.Forms.Label()
+        Me.Label12 = New System.Windows.Forms.Label()
+        Me.Label11 = New System.Windows.Forms.Label()
+        Me.Label32 = New System.Windows.Forms.Label()
+        Me.tb_천장고 = New System.Windows.Forms.TextBox()
+        Me.tb_지하층 = New System.Windows.Forms.TextBox()
+        Me.tb_층고 = New System.Windows.Forms.TextBox()
+        Me.Label4 = New System.Windows.Forms.Label()
+        Me.tB_지상 = New System.Windows.Forms.TextBox()
+        Me.Label10 = New System.Windows.Forms.Label()
+        Me.Label9 = New System.Windows.Forms.Label()
+        Me.tb_지상층 = New System.Windows.Forms.TextBox()
+        Me.Label6 = New System.Windows.Forms.Label()
+        Me.Label1 = New System.Windows.Forms.Label()
+        Me.Label5 = New System.Windows.Forms.Label()
+        Me.Label2 = New System.Windows.Forms.Label()
+        Me.Label27 = New System.Windows.Forms.Label()
+        Me.Label7 = New System.Windows.Forms.Label()
+        Me.Label8 = New System.Windows.Forms.Label()
+        Me.Label28 = New System.Windows.Forms.Label()
+        Me.Label16 = New System.Windows.Forms.Label()
+        Me.Label13 = New System.Windows.Forms.Label()
+        Me.tb_평균열관류율 = New System.Windows.Forms.TextBox()
+        Me.tb_창면적비 = New System.Windows.Forms.TextBox()
+        Me.LinkLabel1 = New System.Windows.Forms.LinkLabel()
+        Me.Panel2 = New System.Windows.Forms.Panel()
+        Me.GroupBox2 = New System.Windows.Forms.GroupBox()
+        Me.tb_건축면적 = New System.Windows.Forms.TextBox()
+        Me.Label3 = New System.Windows.Forms.Label()
+        Me.Label34 = New System.Windows.Forms.Label()
+        Me.C1StatusBar2 = New C1.Win.C1Ribbon.C1StatusBar()
+        Me.RibbonButton1 = New C1.Win.C1Ribbon.RibbonButton()
+        Me.bs_열관류 = New System.Windows.Forms.BindingSource(Me.components)
+        Me.bs방위 = New System.Windows.Forms.BindingSource(Me.components)
+        Me.cmGrid.SuspendLayout()
+        CType(Me.SplitContainer1, System.ComponentModel.ISupportInitialize).BeginInit()
+        Me.SplitContainer1.Panel1.SuspendLayout()
+        Me.SplitContainer1.Panel2.SuspendLayout()
+        Me.SplitContainer1.SuspendLayout()
+        CType(Me.fxType, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.bsType, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.DataSet1, System.ComponentModel.ISupportInitialize).BeginInit()
+        Me.Panel1.SuspendLayout()
+        CType(Me.C1StatusBar4, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.fxList, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.bs, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.C1StatusBar5, System.ComponentModel.ISupportInitialize).BeginInit()
+        Me.Panel3.SuspendLayout()
+        Me.TableLayoutPanel1.SuspendLayout()
+        CType(Me.bs_desc, System.ComponentModel.ISupportInitialize).BeginInit()
+        Me.Panel2.SuspendLayout()
+        Me.GroupBox2.SuspendLayout()
+        CType(Me.C1StatusBar2, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.bs_열관류, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.bs방위, System.ComponentModel.ISupportInitialize).BeginInit()
+        Me.SuspendLayout()
+        '
+        'cmGrid
+        '
+        Me.cmGrid.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.열너비저장ToolStripMenuItem, Me.ToolStripMenuItem1, Me.열너비자동조정ToolStripMenuItem, Me.열너비초기화ToolStripMenuItem})
+        Me.cmGrid.Name = "ContextMenuStrip1"
+        Me.cmGrid.Size = New System.Drawing.Size(167, 76)
+        '
+        '열너비저장ToolStripMenuItem
+        '
+        Me.열너비저장ToolStripMenuItem.Name = "열너비저장ToolStripMenuItem"
+        Me.열너비저장ToolStripMenuItem.Size = New System.Drawing.Size(166, 22)
+        Me.열너비저장ToolStripMenuItem.Text = "열 너비 저장"
+        '
+        'ToolStripMenuItem1
+        '
+        Me.ToolStripMenuItem1.Name = "ToolStripMenuItem1"
+        Me.ToolStripMenuItem1.Size = New System.Drawing.Size(163, 6)
+        '
+        '열너비자동조정ToolStripMenuItem
+        '
+        Me.열너비자동조정ToolStripMenuItem.Name = "열너비자동조정ToolStripMenuItem"
+        Me.열너비자동조정ToolStripMenuItem.Size = New System.Drawing.Size(166, 22)
+        Me.열너비자동조정ToolStripMenuItem.Text = "열 너비 자동조정"
+        '
+        '열너비초기화ToolStripMenuItem
+        '
+        Me.열너비초기화ToolStripMenuItem.Name = "열너비초기화ToolStripMenuItem"
+        Me.열너비초기화ToolStripMenuItem.Size = New System.Drawing.Size(166, 22)
+        Me.열너비초기화ToolStripMenuItem.Text = "열 너비 초기화"
+        '
+        'SplitContainer1
+        '
+        Me.SplitContainer1.Dock = System.Windows.Forms.DockStyle.Fill
+        Me.SplitContainer1.Location = New System.Drawing.Point(0, 63)
+        Me.SplitContainer1.Name = "SplitContainer1"
+        '
+        'SplitContainer1.Panel1
+        '
+        Me.SplitContainer1.Panel1.Controls.Add(Me.fxType)
+        Me.SplitContainer1.Panel1.Controls.Add(Me.Panel1)
+        Me.SplitContainer1.Panel1.Controls.Add(Me.C1StatusBar4)
+        '
+        'SplitContainer1.Panel2
+        '
+        Me.SplitContainer1.Panel2.Controls.Add(Me.fxList)
+        Me.SplitContainer1.Panel2.Controls.Add(Me.C1StatusBar5)
+        Me.SplitContainer1.Panel2.Controls.Add(Me.Panel3)
+        Me.SplitContainer1.Size = New System.Drawing.Size(1247, 535)
+        Me.SplitContainer1.SplitterDistance = 306
+        Me.SplitContainer1.SplitterWidth = 10
+        Me.SplitContainer1.TabIndex = 209
+        '
+        'fxType
+        '
+        Me.fxType.AutoGenerateColumns = False
+        Me.fxType.ColumnInfo = resources.GetString("fxType.ColumnInfo")
+        Me.fxType.ContextMenuStrip = Me.cmGrid
+        Me.fxType.DataSource = Me.bsType
+        Me.fxType.Dock = System.Windows.Forms.DockStyle.Fill
+        Me.fxType.KeyActionTab = C1.Win.C1FlexGrid.KeyActionEnum.MoveAcross
+        Me.fxType.Location = New System.Drawing.Point(0, 39)
+        Me.fxType.Margin = New System.Windows.Forms.Padding(0)
+        Me.fxType.Name = "fxType"
+        Me.fxType.Rows.Count = 1
+        Me.fxType.Rows.DefaultSize = 24
+        Me.fxType.ShowErrors = True
+        Me.fxType.Size = New System.Drawing.Size(306, 473)
+        Me.fxType.StyleInfo = resources.GetString("fxType.StyleInfo")
+        Me.fxType.TabIndex = 207
+        Me.fxType.Tag = "nanbang"
+        Me.fxType.VisualStyle = C1.Win.C1FlexGrid.VisualStyle.Office2007Silver
+        '
+        'bsType
+        '
+        Me.bsType.DataMember = "tbl_type"
+        Me.bsType.DataSource = Me.DataSet1
+        Me.bsType.Filter = ""
+        '
+        'DataSet1
+        '
+        Me.DataSet1.DataSetName = "DS"
+        Me.DataSet1.SchemaSerializationMode = System.Data.SchemaSerializationMode.IncludeSchema
+        '
+        'Panel1
+        '
+        Me.Panel1.Controls.Add(Me.Label17)
+        Me.Panel1.Controls.Add(Me.tb_전체바닥면적)
+        Me.Panel1.Controls.Add(Me.tb_바닥면적)
+        Me.Panel1.Controls.Add(Me.Label15)
+        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(306, 39)
+        Me.Panel1.TabIndex = 210
+        '
+        'Label17
+        '
+        Me.Label17.Font = New System.Drawing.Font("맑은 고딕", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(129, Byte))
+        Me.Label17.Location = New System.Drawing.Point(5, 7)
+        Me.Label17.Name = "Label17"
+        Me.Label17.Size = New System.Drawing.Size(94, 26)
+        Me.Label17.TabIndex = 209
+        Me.Label17.Text = "면적및세대합"
+        Me.Label17.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
+        '
+        'tb_전체바닥면적
+        '
+        Me.tb_전체바닥면적.Font = New System.Drawing.Font("맑은 고딕", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(129, Byte))
+        Me.tb_전체바닥면적.ForeColor = System.Drawing.SystemColors.ActiveCaption
+        Me.tb_전체바닥면적.Location = New System.Drawing.Point(209, 9)
+        Me.tb_전체바닥면적.Name = "tb_전체바닥면적"
+        Me.tb_전체바닥면적.ReadOnly = True
+        Me.tb_전체바닥면적.Size = New System.Drawing.Size(83, 22)
+        Me.tb_전체바닥면적.TabIndex = 208
+        Me.tb_전체바닥면적.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
+        '
+        'tb_바닥면적
+        '
+        Me.tb_바닥면적.BackColor = System.Drawing.SystemColors.Control
+        Me.tb_바닥면적.Font = New System.Drawing.Font("맑은 고딕", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(129, Byte))
+        Me.tb_바닥면적.ForeColor = System.Drawing.Color.Black
+        Me.tb_바닥면적.Location = New System.Drawing.Point(104, 9)
+        Me.tb_바닥면적.Name = "tb_바닥면적"
+        Me.tb_바닥면적.ReadOnly = True
+        Me.tb_바닥면적.Size = New System.Drawing.Size(83, 22)
+        Me.tb_바닥면적.TabIndex = 206
+        Me.tb_바닥면적.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
+        '
+        'Label15
+        '
+        Me.Label15.AutoSize = True
+        Me.Label15.ForeColor = System.Drawing.Color.Black
+        Me.Label15.Location = New System.Drawing.Point(192, 12)
+        Me.Label15.Name = "Label15"
+        Me.Label15.Size = New System.Drawing.Size(13, 17)
+        Me.Label15.TabIndex = 207
+        Me.Label15.Text = "/"
+        '
+        'C1StatusBar4
+        '
+        Me.C1StatusBar4.AutoSizeElement = C1.Framework.AutoSizeElement.Width
+        Me.C1StatusBar4.LeftPaneItems.Add(Me.RibbonButton2)
+        Me.C1StatusBar4.LeftPaneItems.Add(Me.RibbonButton6)
+        Me.C1StatusBar4.Location = New System.Drawing.Point(0, 512)
+        Me.C1StatusBar4.Name = "C1StatusBar4"
+        Me.C1StatusBar4.RightPaneWidth = 0
+        Me.C1StatusBar4.Size = New System.Drawing.Size(306, 23)
+        Me.C1StatusBar4.SizingGrip = False
+        Me.C1StatusBar4.VisualStyle = C1.Win.C1Ribbon.VisualStyle.Office2010Silver
+        '
+        'RibbonButton2
+        '
+        Me.RibbonButton2.Name = "RibbonButton2"
+        Me.RibbonButton2.SmallImage = CType(resources.GetObject("RibbonButton2.SmallImage"), System.Drawing.Image)
+        Me.RibbonButton2.Text = "추가"
+        '
+        'RibbonButton6
+        '
+        Me.RibbonButton6.Name = "RibbonButton6"
+        Me.RibbonButton6.SmallImage = CType(resources.GetObject("RibbonButton6.SmallImage"), System.Drawing.Image)
+        Me.RibbonButton6.Text = "삭제"
+        '
+        'fxList
+        '
+        Me.fxList.AutoGenerateColumns = False
+        Me.fxList.ColumnInfo = resources.GetString("fxList.ColumnInfo")
+        Me.fxList.ContextMenuStrip = Me.cmGrid
+        Me.fxList.DataSource = Me.bs
+        Me.fxList.Dock = System.Windows.Forms.DockStyle.Fill
+        Me.fxList.KeyActionTab = C1.Win.C1FlexGrid.KeyActionEnum.MoveAcross
+        Me.fxList.Location = New System.Drawing.Point(0, 108)
+        Me.fxList.Margin = New System.Windows.Forms.Padding(0)
+        Me.fxList.Name = "fxList"
+        Me.fxList.Rows.Count = 1
+        Me.fxList.Rows.DefaultSize = 24
+        Me.fxList.ShowErrors = True
+        Me.fxList.Size = New System.Drawing.Size(931, 404)
+        Me.fxList.StyleInfo = resources.GetString("fxList.StyleInfo")
+        Me.fxList.TabIndex = 212
+        Me.fxList.Tag = "nanbang"
+        Me.fxList.VisualStyle = C1.Win.C1FlexGrid.VisualStyle.Office2007Silver
+        '
+        'bs
+        '
+        Me.bs.DataMember = "tbl_myoun"
+        Me.bs.DataSource = Me.DataSet1
+        Me.bs.Filter = "code <> '0' and code <> ''"
+        '
+        'C1StatusBar5
+        '
+        Me.C1StatusBar5.AutoSizeElement = C1.Framework.AutoSizeElement.Width
+        Me.C1StatusBar5.LeftPaneItems.Add(Me.RibbonButton7)
+        Me.C1StatusBar5.LeftPaneItems.Add(Me.RibbonButton8)
+        Me.C1StatusBar5.Location = New System.Drawing.Point(0, 512)
+        Me.C1StatusBar5.Name = "C1StatusBar5"
+        Me.C1StatusBar5.RightPaneWidth = 0
+        Me.C1StatusBar5.Size = New System.Drawing.Size(931, 23)
+        Me.C1StatusBar5.SizingGrip = False
+        Me.C1StatusBar5.VisualStyle = C1.Win.C1Ribbon.VisualStyle.Office2010Silver
+        '
+        'RibbonButton7
+        '
+        Me.RibbonButton7.Name = "RibbonButton7"
+        Me.RibbonButton7.SmallImage = CType(resources.GetObject("RibbonButton7.SmallImage"), System.Drawing.Image)
+        Me.RibbonButton7.Text = "추가"
+        '
+        'RibbonButton8
+        '
+        Me.RibbonButton8.Name = "RibbonButton8"
+        Me.RibbonButton8.SmallImage = CType(resources.GetObject("RibbonButton8.SmallImage"), System.Drawing.Image)
+        Me.RibbonButton8.Text = "삭제"
+        '
+        'Panel3
+        '
+        Me.Panel3.Controls.Add(Me.TableLayoutPanel1)
+        Me.Panel3.Controls.Add(Me.LinkLabel1)
+        Me.Panel3.Dock = System.Windows.Forms.DockStyle.Top
+        Me.Panel3.Location = New System.Drawing.Point(0, 0)
+        Me.Panel3.Name = "Panel3"
+        Me.Panel3.Size = New System.Drawing.Size(931, 108)
+        Me.Panel3.TabIndex = 209
+        '
+        'TableLayoutPanel1
+        '
+        Me.TableLayoutPanel1.ColumnCount = 14
+        Me.TableLayoutPanel1.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Absolute, 130.0!))
+        Me.TableLayoutPanel1.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Percent, 23.0!))
+        Me.TableLayoutPanel1.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Absolute, 55.0!))
+        Me.TableLayoutPanel1.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Absolute, 55.0!))
+        Me.TableLayoutPanel1.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Absolute, 60.0!))
+        Me.TableLayoutPanel1.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Percent, 35.0!))
+        Me.TableLayoutPanel1.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Absolute, 35.0!))
+        Me.TableLayoutPanel1.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Absolute, 50.0!))
+        Me.TableLayoutPanel1.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Absolute, 50.0!))
+        Me.TableLayoutPanel1.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Percent, 20.0!))
+        Me.TableLayoutPanel1.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Absolute, 30.0!))
+        Me.TableLayoutPanel1.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Absolute, 65.0!))
+        Me.TableLayoutPanel1.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Percent, 22.0!))
+        Me.TableLayoutPanel1.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Absolute, 30.0!))
+        Me.TableLayoutPanel1.Controls.Add(Me.Label35, 3, 0)
+        Me.TableLayoutPanel1.Controls.Add(Me.tb_지하, 9, 1)
+        Me.TableLayoutPanel1.Controls.Add(Me.Label14, 2, 1)
+        Me.TableLayoutPanel1.Controls.Add(Me.Label12, 2, 0)
+        Me.TableLayoutPanel1.Controls.Add(Me.Label11, 0, 0)
+        Me.TableLayoutPanel1.Controls.Add(Me.Label32, 4, 0)
+        Me.TableLayoutPanel1.Controls.Add(Me.tb_천장고, 12, 1)
+        Me.TableLayoutPanel1.Controls.Add(Me.tb_지하층, 5, 1)
+        Me.TableLayoutPanel1.Controls.Add(Me.tb_층고, 12, 0)
+        Me.TableLayoutPanel1.Controls.Add(Me.Label4, 10, 0)
+        Me.TableLayoutPanel1.Controls.Add(Me.tB_지상, 9, 0)
+        Me.TableLayoutPanel1.Controls.Add(Me.Label10, 13, 1)
+        Me.TableLayoutPanel1.Controls.Add(Me.Label9, 13, 0)
+        Me.TableLayoutPanel1.Controls.Add(Me.tb_지상층, 5, 0)
+        Me.TableLayoutPanel1.Controls.Add(Me.Label6, 4, 1)
+        Me.TableLayoutPanel1.Controls.Add(Me.Label1, 11, 1)
+        Me.TableLayoutPanel1.Controls.Add(Me.Label5, 7, 0)
+        Me.TableLayoutPanel1.Controls.Add(Me.Label2, 6, 0)
+        Me.TableLayoutPanel1.Controls.Add(Me.Label27, 8, 1)
+        Me.TableLayoutPanel1.Controls.Add(Me.Label7, 11, 0)
+        Me.TableLayoutPanel1.Controls.Add(Me.Label8, 6, 1)
+        Me.TableLayoutPanel1.Controls.Add(Me.Label28, 8, 0)
+        Me.TableLayoutPanel1.Controls.Add(Me.Label16, 10, 1)
+        Me.TableLayoutPanel1.Controls.Add(Me.Label13, 0, 1)
+        Me.TableLayoutPanel1.Controls.Add(Me.tb_평균열관류율, 1, 0)
+        Me.TableLayoutPanel1.Controls.Add(Me.tb_창면적비, 1, 1)
+        Me.TableLayoutPanel1.Dock = System.Windows.Forms.DockStyle.Bottom
+        Me.TableLayoutPanel1.Location = New System.Drawing.Point(0, 49)
+        Me.TableLayoutPanel1.Name = "TableLayoutPanel1"
+        Me.TableLayoutPanel1.RowCount = 2
+        Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Percent, 50.0!))
+        Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Percent, 50.0!))
+        Me.TableLayoutPanel1.Size = New System.Drawing.Size(931, 59)
+        Me.TableLayoutPanel1.TabIndex = 205
+        '
+        'Label35
+        '
+        Me.Label35.Dock = System.Windows.Forms.DockStyle.Fill
+        Me.Label35.ForeColor = System.Drawing.Color.Black
+        Me.Label35.Location = New System.Drawing.Point(273, 0)
+        Me.Label35.Name = "Label35"
+        Me.TableLayoutPanel1.SetRowSpan(Me.Label35, 2)
+        Me.Label35.Size = New System.Drawing.Size(49, 59)
+        Me.Label35.TabIndex = 4
+        Me.Label35.Text = "연면적"
+        Me.Label35.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
+        '
+        'tb_지하
+        '
+        Me.tb_지하.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bs_desc, "builds1", True))
+        Me.tb_지하.Dock = System.Windows.Forms.DockStyle.Fill
+        Me.tb_지하.Location = New System.Drawing.Point(652, 32)
+        Me.tb_지하.Name = "tb_지하"
+        Me.tb_지하.Size = New System.Drawing.Size(68, 25)
+        Me.tb_지하.TabIndex = 83
+        Me.tb_지하.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
+        '
+        'bs_desc
+        '
+        Me.bs_desc.DataMember = "tbl_Desc"
+        Me.bs_desc.DataSource = Me.DataSet1
+        '
+        'Label14
+        '
+        Me.Label14.Dock = System.Windows.Forms.DockStyle.Fill
+        Me.Label14.ForeColor = System.Drawing.Color.Gray
+        Me.Label14.Location = New System.Drawing.Point(218, 29)
+        Me.Label14.Name = "Label14"
+        Me.Label14.Size = New System.Drawing.Size(49, 30)
+        Me.Label14.TabIndex = 200
+        Me.Label14.Text = "%"
+        Me.Label14.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
+        '
+        'Label12
+        '
+        Me.Label12.Dock = System.Windows.Forms.DockStyle.Fill
+        Me.Label12.ForeColor = System.Drawing.Color.Gray
+        Me.Label12.Location = New System.Drawing.Point(218, 0)
+        Me.Label12.Name = "Label12"
+        Me.Label12.Size = New System.Drawing.Size(49, 29)
+        Me.Label12.TabIndex = 202
+        Me.Label12.Text = "W/㎡K"
+        Me.Label12.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
+        '
+        'Label11
+        '
+        Me.Label11.Dock = System.Windows.Forms.DockStyle.Fill
+        Me.Label11.Font = New System.Drawing.Font("맑은 고딕", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(129, Byte))
+        Me.Label11.ForeColor = System.Drawing.Color.Black
+        Me.Label11.Location = New System.Drawing.Point(3, 0)
+        Me.Label11.Name = "Label11"
+        Me.Label11.Size = New System.Drawing.Size(124, 29)
+        Me.Label11.TabIndex = 199
+        Me.Label11.Text = "외벽평균열관류율:" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "(창 및 문 포함)"
+        Me.Label11.TextAlign = System.Drawing.ContentAlignment.MiddleRight
+        '
+        'Label32
+        '
+        Me.Label32.Dock = System.Windows.Forms.DockStyle.Fill
+        Me.Label32.ForeColor = System.Drawing.Color.Black
+        Me.Label32.Location = New System.Drawing.Point(328, 0)
+        Me.Label32.Name = "Label32"
+        Me.Label32.Size = New System.Drawing.Size(54, 29)
+        Me.Label32.TabIndex = 0
+        Me.Label32.Text = "지상층:"
+        Me.Label32.TextAlign = System.Drawing.ContentAlignment.MiddleRight
+        '
+        'tb_천장고
+        '
+        Me.tb_천장고.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bs_desc, "천장고", True))
+        Me.tb_천장고.Dock = System.Windows.Forms.DockStyle.Fill
+        Me.tb_천장고.ForeColor = System.Drawing.Color.Black
+        Me.tb_천장고.Location = New System.Drawing.Point(821, 32)
+        Me.tb_천장고.Name = "tb_천장고"
+        Me.tb_천장고.Size = New System.Drawing.Size(75, 25)
+        Me.tb_천장고.TabIndex = 85
+        Me.tb_천장고.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
+        '
+        'tb_지하층
+        '
+        Me.tb_지하층.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bs_desc, "buildm21", True))
+        Me.tb_지하층.Dock = System.Windows.Forms.DockStyle.Fill
+        Me.tb_지하층.Location = New System.Drawing.Point(388, 32)
+        Me.tb_지하층.Name = "tb_지하층"
+        Me.tb_지하층.Size = New System.Drawing.Size(123, 25)
+        Me.tb_지하층.TabIndex = 87
+        Me.tb_지하층.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
+        '
+        'tb_층고
+        '
+        Me.tb_층고.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bs_desc, "층고", True))
+        Me.tb_층고.Dock = System.Windows.Forms.DockStyle.Fill
+        Me.tb_층고.ForeColor = System.Drawing.Color.Black
+        Me.tb_층고.Location = New System.Drawing.Point(821, 3)
+        Me.tb_층고.Name = "tb_층고"
+        Me.tb_층고.Size = New System.Drawing.Size(75, 25)
+        Me.tb_층고.TabIndex = 84
+        Me.tb_층고.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
+        '
+        'Label4
+        '
+        Me.Label4.Dock = System.Windows.Forms.DockStyle.Fill
+        Me.Label4.ForeColor = System.Drawing.Color.Gray
+        Me.Label4.Location = New System.Drawing.Point(726, 0)
+        Me.Label4.Name = "Label4"
+        Me.Label4.Size = New System.Drawing.Size(24, 29)
+        Me.Label4.TabIndex = 79
+        Me.Label4.Text = "층"
+        Me.Label4.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
+        '
+        'tB_지상
+        '
+        Me.tB_지상.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bs_desc, "builds2", True))
+        Me.tB_지상.Dock = System.Windows.Forms.DockStyle.Fill
+        Me.tB_지상.Location = New System.Drawing.Point(652, 3)
+        Me.tB_지상.Name = "tB_지상"
+        Me.tB_지상.Size = New System.Drawing.Size(68, 25)
+        Me.tB_지상.TabIndex = 82
+        Me.tB_지상.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
+        '
+        'Label10
+        '
+        Me.Label10.Dock = System.Windows.Forms.DockStyle.Fill
+        Me.Label10.ForeColor = System.Drawing.Color.Gray
+        Me.Label10.Location = New System.Drawing.Point(902, 29)
+        Me.Label10.Name = "Label10"
+        Me.Label10.Size = New System.Drawing.Size(26, 30)
+        Me.Label10.TabIndex = 2
+        Me.Label10.Text = "m"
+        Me.Label10.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
+        '
+        'Label9
+        '
+        Me.Label9.Dock = System.Windows.Forms.DockStyle.Fill
+        Me.Label9.ForeColor = System.Drawing.Color.Gray
+        Me.Label9.Location = New System.Drawing.Point(902, 0)
+        Me.Label9.Name = "Label9"
+        Me.Label9.Size = New System.Drawing.Size(26, 29)
+        Me.Label9.TabIndex = 2
+        Me.Label9.Text = "m"
+        Me.Label9.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
+        '
+        'tb_지상층
+        '
+        Me.tb_지상층.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bs_desc, "buildm23", True))
+        Me.tb_지상층.Dock = System.Windows.Forms.DockStyle.Fill
+        Me.tb_지상층.Location = New System.Drawing.Point(388, 3)
+        Me.tb_지상층.Name = "tb_지상층"
+        Me.tb_지상층.Size = New System.Drawing.Size(123, 25)
+        Me.tb_지상층.TabIndex = 86
+        Me.tb_지상층.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
+        '
+        'Label6
+        '
+        Me.Label6.Dock = System.Windows.Forms.DockStyle.Fill
+        Me.Label6.ForeColor = System.Drawing.Color.Black
+        Me.Label6.Location = New System.Drawing.Point(328, 29)
+        Me.Label6.Name = "Label6"
+        Me.Label6.Size = New System.Drawing.Size(54, 30)
+        Me.Label6.TabIndex = 0
+        Me.Label6.Text = "지하층:"
+        Me.Label6.TextAlign = System.Drawing.ContentAlignment.MiddleRight
+        '
+        'Label1
+        '
+        Me.Label1.Dock = System.Windows.Forms.DockStyle.Fill
+        Me.Label1.ForeColor = System.Drawing.Color.Black
+        Me.Label1.Location = New System.Drawing.Point(756, 29)
+        Me.Label1.Name = "Label1"
+        Me.Label1.Size = New System.Drawing.Size(59, 30)
+        Me.Label1.TabIndex = 2
+        Me.Label1.Text = "천장고:"
+        Me.Label1.TextAlign = System.Drawing.ContentAlignment.MiddleRight
+        '
+        'Label5
+        '
+        Me.Label5.Dock = System.Windows.Forms.DockStyle.Fill
+        Me.Label5.ForeColor = System.Drawing.Color.Black
+        Me.Label5.Location = New System.Drawing.Point(552, 0)
+        Me.Label5.Name = "Label5"
+        Me.TableLayoutPanel1.SetRowSpan(Me.Label5, 2)
+        Me.Label5.Size = New System.Drawing.Size(44, 59)
+        Me.Label5.TabIndex = 80
+        Me.Label5.Text = "층수"
+        Me.Label5.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
+        '
+        'Label2
+        '
+        Me.Label2.Dock = System.Windows.Forms.DockStyle.Fill
+        Me.Label2.ForeColor = System.Drawing.Color.Gray
+        Me.Label2.Location = New System.Drawing.Point(517, 0)
+        Me.Label2.Name = "Label2"
+        Me.Label2.Size = New System.Drawing.Size(29, 29)
+        Me.Label2.TabIndex = 4
+        Me.Label2.Text = "㎡"
+        Me.Label2.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
+        '
+        'Label27
+        '
+        Me.Label27.Dock = System.Windows.Forms.DockStyle.Fill
+        Me.Label27.ForeColor = System.Drawing.Color.Black
+        Me.Label27.Location = New System.Drawing.Point(602, 29)
+        Me.Label27.Name = "Label27"
+        Me.Label27.Size = New System.Drawing.Size(44, 30)
+        Me.Label27.TabIndex = 0
+        Me.Label27.Text = "지하:"
+        Me.Label27.TextAlign = System.Drawing.ContentAlignment.MiddleRight
+        '
+        'Label7
+        '
+        Me.Label7.Dock = System.Windows.Forms.DockStyle.Fill
+        Me.Label7.ForeColor = System.Drawing.Color.Black
+        Me.Label7.Location = New System.Drawing.Point(756, 0)
+        Me.Label7.Name = "Label7"
+        Me.Label7.Size = New System.Drawing.Size(59, 29)
+        Me.Label7.TabIndex = 2
+        Me.Label7.Text = "층고:"
+        Me.Label7.TextAlign = System.Drawing.ContentAlignment.MiddleRight
+        '
+        'Label8
+        '
+        Me.Label8.Dock = System.Windows.Forms.DockStyle.Fill
+        Me.Label8.ForeColor = System.Drawing.Color.Gray
+        Me.Label8.Location = New System.Drawing.Point(517, 29)
+        Me.Label8.Name = "Label8"
+        Me.Label8.Size = New System.Drawing.Size(29, 30)
+        Me.Label8.TabIndex = 4
+        Me.Label8.Text = "㎡"
+        Me.Label8.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
+        '
+        'Label28
+        '
+        Me.Label28.Dock = System.Windows.Forms.DockStyle.Fill
+        Me.Label28.ForeColor = System.Drawing.Color.Black
+        Me.Label28.Location = New System.Drawing.Point(602, 0)
+        Me.Label28.Name = "Label28"
+        Me.Label28.Size = New System.Drawing.Size(44, 29)
+        Me.Label28.TabIndex = 2
+        Me.Label28.Text = "지상:"
+        Me.Label28.TextAlign = System.Drawing.ContentAlignment.MiddleRight
+        '
+        'Label16
+        '
+        Me.Label16.Dock = System.Windows.Forms.DockStyle.Fill
+        Me.Label16.ForeColor = System.Drawing.Color.Gray
+        Me.Label16.Location = New System.Drawing.Point(726, 29)
+        Me.Label16.Name = "Label16"
+        Me.Label16.Size = New System.Drawing.Size(24, 30)
+        Me.Label16.TabIndex = 79
+        Me.Label16.Text = "층"
+        Me.Label16.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
+        '
+        'Label13
+        '
+        Me.Label13.Dock = System.Windows.Forms.DockStyle.Fill
+        Me.Label13.ForeColor = System.Drawing.Color.Black
+        Me.Label13.Location = New System.Drawing.Point(3, 29)
+        Me.Label13.Name = "Label13"
+        Me.Label13.Size = New System.Drawing.Size(124, 30)
+        Me.Label13.TabIndex = 201
+        Me.Label13.Text = "창면적비:"
+        Me.Label13.TextAlign = System.Drawing.ContentAlignment.MiddleRight
+        '
+        'tb_평균열관류율
+        '
+        Me.tb_평균열관류율.Dock = System.Windows.Forms.DockStyle.Fill
+        Me.tb_평균열관류율.ForeColor = System.Drawing.SystemColors.ActiveCaption
+        Me.tb_평균열관류율.Location = New System.Drawing.Point(133, 3)
+        Me.tb_평균열관류율.Name = "tb_평균열관류율"
+        Me.tb_평균열관류율.ReadOnly = True
+        Me.tb_평균열관류율.Size = New System.Drawing.Size(79, 25)
+        Me.tb_평균열관류율.TabIndex = 204
+        Me.tb_평균열관류율.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
+        '
+        'tb_창면적비
+        '
+        Me.tb_창면적비.Dock = System.Windows.Forms.DockStyle.Fill
+        Me.tb_창면적비.ForeColor = System.Drawing.SystemColors.ActiveCaption
+        Me.tb_창면적비.Location = New System.Drawing.Point(133, 32)
+        Me.tb_창면적비.Name = "tb_창면적비"
+        Me.tb_창면적비.ReadOnly = True
+        Me.tb_창면적비.Size = New System.Drawing.Size(79, 25)
+        Me.tb_창면적비.TabIndex = 203
+        Me.tb_창면적비.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
+        '
+        'LinkLabel1
+        '
+        Me.LinkLabel1.AutoSize = True
+        Me.LinkLabel1.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.LinkLabel1.Location = New System.Drawing.Point(7, 14)
+        Me.LinkLabel1.Name = "LinkLabel1"
+        Me.LinkLabel1.Size = New System.Drawing.Size(103, 15)
+        Me.LinkLabel1.TabIndex = 198
+        Me.LinkLabel1.TabStop = True
+        Me.LinkLabel1.Text = "형별성능관계내역"
+        '
+        'Panel2
+        '
+        Me.Panel2.Controls.Add(Me.GroupBox2)
+        Me.Panel2.Dock = System.Windows.Forms.DockStyle.Top
+        Me.Panel2.Location = New System.Drawing.Point(0, 0)
+        Me.Panel2.Name = "Panel2"
+        Me.Panel2.Padding = New System.Windows.Forms.Padding(0, 0, 0, 10)
+        Me.Panel2.Size = New System.Drawing.Size(1247, 63)
+        Me.Panel2.TabIndex = 206
+        Me.Panel2.Visible = False
+        '
+        'GroupBox2
+        '
+        Me.GroupBox2.BackColor = System.Drawing.Color.Red
+        Me.GroupBox2.Controls.Add(Me.tb_건축면적)
+        Me.GroupBox2.Controls.Add(Me.Label3)
+        Me.GroupBox2.Controls.Add(Me.Label34)
+        Me.GroupBox2.Dock = System.Windows.Forms.DockStyle.Fill
+        Me.GroupBox2.ImeMode = System.Windows.Forms.ImeMode.NoControl
+        Me.GroupBox2.Location = New System.Drawing.Point(0, 0)
+        Me.GroupBox2.Name = "GroupBox2"
+        Me.GroupBox2.Size = New System.Drawing.Size(1247, 53)
+        Me.GroupBox2.TabIndex = 193
+        Me.GroupBox2.TabStop = False
+        Me.GroupBox2.Visible = False
+        '
+        'tb_건축면적
+        '
+        Me.tb_건축면적.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bs_desc, "buildm22", True))
+        Me.tb_건축면적.Location = New System.Drawing.Point(93, 17)
+        Me.tb_건축면적.Name = "tb_건축면적"
+        Me.tb_건축면적.Size = New System.Drawing.Size(70, 25)
+        Me.tb_건축면적.TabIndex = 81
+        Me.tb_건축면적.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
+        '
+        'Label3
+        '
+        Me.Label3.AutoSize = True
+        Me.Label3.ForeColor = System.Drawing.SystemColors.ControlDarkDark
+        Me.Label3.Location = New System.Drawing.Point(167, 21)
+        Me.Label3.Name = "Label3"
+        Me.Label3.Size = New System.Drawing.Size(21, 17)
+        Me.Label3.TabIndex = 78
+        Me.Label3.Text = "㎡"
+        Me.Label3.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
+        '
+        'Label34
+        '
+        Me.Label34.AutoSize = True
+        Me.Label34.ForeColor = System.Drawing.SystemColors.ControlDarkDark
+        Me.Label34.Location = New System.Drawing.Point(9, 21)
+        Me.Label34.Name = "Label34"
+        Me.Label34.Size = New System.Drawing.Size(81, 17)
+        Me.Label34.TabIndex = 2
+        Me.Label34.Text = "건축면적(㎡)" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10)
+        Me.Label34.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
+        '
+        'C1StatusBar2
+        '
+        Me.C1StatusBar2.AutoSizeElement = C1.Framework.AutoSizeElement.Width
+        Me.C1StatusBar2.Location = New System.Drawing.Point(0, 598)
+        Me.C1StatusBar2.Name = "C1StatusBar2"
+        Me.C1StatusBar2.RightPaneItems.Add(Me.RibbonButton1)
+        Me.C1StatusBar2.Size = New System.Drawing.Size(1247, 23)
+        '
+        'RibbonButton1
+        '
+        Me.RibbonButton1.LargeImage = CType(resources.GetObject("RibbonButton1.LargeImage"), System.Drawing.Image)
+        Me.RibbonButton1.Name = "RibbonButton1"
+        Me.RibbonButton1.SmallImage = CType(resources.GetObject("RibbonButton1.SmallImage"), System.Drawing.Image)
+        Me.RibbonButton1.Text = "적용(&S)"
+        '
+        'bs_열관류
+        '
+        Me.bs_열관류.DataMember = "tbl_yk"
+        Me.bs_열관류.DataSource = Me.DataSet1
+        '
+        'bs방위
+        '
+        Me.bs방위.DataMember = "tbl_common_od"
+        Me.bs방위.DataSource = Me.DataSet1
+        Me.bs방위.Filter = "gubun ='1007'"
+        '
+        'Frm_2_Build
+        '
+        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.None
+        Me.ClientSize = New System.Drawing.Size(1247, 621)
+        Me.Controls.Add(Me.SplitContainer1)
+        Me.Controls.Add(Me.Panel2)
+        Me.Controls.Add(Me.C1StatusBar2)
+        Me.Font = New System.Drawing.Font("맑은 고딕", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(129, Byte))
+        Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
+        Me.Name = "Frm_2_Build"
+        Me.Tag = "2"
+        Me.Text = "건축부문"
+        Me.cmGrid.ResumeLayout(False)
+        Me.SplitContainer1.Panel1.ResumeLayout(False)
+        Me.SplitContainer1.Panel1.PerformLayout()
+        Me.SplitContainer1.Panel2.ResumeLayout(False)
+        Me.SplitContainer1.Panel2.PerformLayout()
+        CType(Me.SplitContainer1, System.ComponentModel.ISupportInitialize).EndInit()
+        Me.SplitContainer1.ResumeLayout(False)
+        CType(Me.fxType, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.bsType, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.DataSet1, System.ComponentModel.ISupportInitialize).EndInit()
+        Me.Panel1.ResumeLayout(False)
+        Me.Panel1.PerformLayout()
+        CType(Me.C1StatusBar4, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.fxList, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.bs, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.C1StatusBar5, System.ComponentModel.ISupportInitialize).EndInit()
+        Me.Panel3.ResumeLayout(False)
+        Me.Panel3.PerformLayout()
+        Me.TableLayoutPanel1.ResumeLayout(False)
+        Me.TableLayoutPanel1.PerformLayout()
+        CType(Me.bs_desc, System.ComponentModel.ISupportInitialize).EndInit()
+        Me.Panel2.ResumeLayout(False)
+        Me.GroupBox2.ResumeLayout(False)
+        Me.GroupBox2.PerformLayout()
+        CType(Me.C1StatusBar2, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.bs_열관류, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.bs방위, System.ComponentModel.ISupportInitialize).EndInit()
+        Me.ResumeLayout(False)
+        Me.PerformLayout()
+
+    End Sub
+    Friend WithEvents bs As System.Windows.Forms.BindingSource
+    Friend WithEvents DataSet1 As Eco2OD.DS
+    Friend WithEvents bs_desc As System.Windows.Forms.BindingSource
+    Friend WithEvents bs_열관류 As System.Windows.Forms.BindingSource
+    Friend WithEvents GroupBox2 As System.Windows.Forms.GroupBox
+    Friend WithEvents tb_지하층 As System.Windows.Forms.TextBox
+    Friend WithEvents tb_지상층 As System.Windows.Forms.TextBox
+    Friend WithEvents tb_천장고 As System.Windows.Forms.TextBox
+    Friend WithEvents tb_층고 As System.Windows.Forms.TextBox
+    Friend WithEvents tb_지하 As System.Windows.Forms.TextBox
+    Friend WithEvents tB_지상 As System.Windows.Forms.TextBox
+    Friend WithEvents tb_건축면적 As System.Windows.Forms.TextBox
+    Friend WithEvents Label4 As System.Windows.Forms.Label
+    Friend WithEvents Label5 As System.Windows.Forms.Label
+    Friend WithEvents Label3 As System.Windows.Forms.Label
+    Friend WithEvents Label6 As System.Windows.Forms.Label
+    Friend WithEvents Label32 As System.Windows.Forms.Label
+    Friend WithEvents Label27 As System.Windows.Forms.Label
+    Friend WithEvents Label10 As System.Windows.Forms.Label
+    Friend WithEvents Label9 As System.Windows.Forms.Label
+    Friend WithEvents Label7 As System.Windows.Forms.Label
+    Friend WithEvents Label1 As System.Windows.Forms.Label
+    Friend WithEvents Label28 As System.Windows.Forms.Label
+    Friend WithEvents Label8 As System.Windows.Forms.Label
+    Friend WithEvents Label2 As System.Windows.Forms.Label
+    Friend WithEvents Label35 As System.Windows.Forms.Label
+    Friend WithEvents Label34 As System.Windows.Forms.Label
+    Friend WithEvents tb_전체바닥면적 As System.Windows.Forms.TextBox
+    Friend WithEvents Label15 As System.Windows.Forms.Label
+    Friend WithEvents tb_바닥면적 As System.Windows.Forms.TextBox
+    Friend WithEvents tb_창면적비 As System.Windows.Forms.TextBox
+    Friend WithEvents tb_평균열관류율 As System.Windows.Forms.TextBox
+    Friend WithEvents Label14 As System.Windows.Forms.Label
+    Friend WithEvents Label13 As System.Windows.Forms.Label
+    Friend WithEvents Label12 As System.Windows.Forms.Label
+    Friend WithEvents Label11 As System.Windows.Forms.Label
+    Friend WithEvents LinkLabel1 As System.Windows.Forms.LinkLabel
+    Friend WithEvents ToolTip1 As System.Windows.Forms.ToolTip
+    Friend WithEvents Panel2 As Panel
+    Friend WithEvents Panel3 As Panel
+    Friend WithEvents bsType As BindingSource
+    Friend WithEvents fxType As C1.Win.C1FlexGrid.C1FlexGrid
+    Friend WithEvents C1StatusBar2 As C1.Win.C1Ribbon.C1StatusBar
+    Friend WithEvents RibbonButton1 As C1.Win.C1Ribbon.RibbonButton
+    Friend WithEvents fxList As C1.Win.C1FlexGrid.C1FlexGrid
+    Friend WithEvents bs방위 As BindingSource
+    Friend WithEvents cmGrid As ContextMenuStrip
+    Friend WithEvents 열너비자동조정ToolStripMenuItem As ToolStripMenuItem
+    Friend WithEvents 열너비저장ToolStripMenuItem As ToolStripMenuItem
+    Friend WithEvents 열너비초기화ToolStripMenuItem As ToolStripMenuItem
+    Friend WithEvents ToolStripMenuItem1 As ToolStripSeparator
+    Friend WithEvents Label17 As System.Windows.Forms.Label
+    Friend WithEvents SplitContainer1 As System.Windows.Forms.SplitContainer
+    Friend WithEvents C1StatusBar4 As C1.Win.C1Ribbon.C1StatusBar
+    Friend WithEvents RibbonButton2 As C1.Win.C1Ribbon.RibbonButton
+    Friend WithEvents RibbonButton6 As C1.Win.C1Ribbon.RibbonButton
+    Friend WithEvents C1StatusBar5 As C1.Win.C1Ribbon.C1StatusBar
+    Friend WithEvents RibbonButton7 As C1.Win.C1Ribbon.RibbonButton
+    Friend WithEvents RibbonButton8 As C1.Win.C1Ribbon.RibbonButton
+    Friend WithEvents Panel1 As System.Windows.Forms.Panel
+    Friend WithEvents TableLayoutPanel1 As System.Windows.Forms.TableLayoutPanel
+    Friend WithEvents Label16 As System.Windows.Forms.Label
+End Class

ArinWarev1/FORM-OD/Frm_3_Mach.Designer.vb

@@ -0,0 +1,401 @@
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
+Partial Class Frm_3_Mach
+    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_3_Mach))
+        Me.cmGrid = New System.Windows.Forms.ContextMenuStrip(Me.components)
+        Me.열너비저장ToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
+        Me.열너비자동조정ToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
+        Me.ToolStripMenuItem1 = New System.Windows.Forms.ToolStripSeparator()
+        Me.열너비초기화ToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
+        Me.C1DockingTab1 = New C1.Win.C1Command.C1DockingTab()
+        Me.C1DockingTabPage1 = New C1.Win.C1Command.C1DockingTabPage()
+        Me.fxNanBang = New C1.Win.C1FlexGrid.C1FlexGrid()
+        Me.bs_난방기기 = New System.Windows.Forms.BindingSource(Me.components)
+        Me.DataSet1 = New Eco2OD.DS()
+        Me.C1DockingTabPage2 = New C1.Win.C1Command.C1DockingTabPage()
+        Me.fxNaengBang = New C1.Win.C1FlexGrid.C1FlexGrid()
+        Me.bs_냉방기기 = New System.Windows.Forms.BindingSource(Me.components)
+        Me.C1DockingTabPage3 = New C1.Win.C1Command.C1DockingTabPage()
+        Me.fxKogjo = New C1.Win.C1FlexGrid.C1FlexGrid()
+        Me.bs_공조기기 = New System.Windows.Forms.BindingSource(Me.components)
+        Me.C1DockingTabPage4 = New C1.Win.C1Command.C1DockingTabPage()
+        Me.fxLight = New C1.Win.C1FlexGrid.C1FlexGrid()
+        Me.bs_조명기기 = New System.Windows.Forms.BindingSource(Me.components)
+        Me.C1DockingTabPage5 = New C1.Win.C1Command.C1DockingTabPage()
+        Me.fxDanMal = New C1.Win.C1FlexGrid.C1FlexGrid()
+        Me.bS_실내단말기 = New System.Windows.Forms.BindingSource(Me.components)
+        Me.C1StatusBar1 = New C1.Win.C1Ribbon.C1StatusBar()
+        Me.btAdd = New C1.Win.C1Ribbon.RibbonButton()
+        Me.btDel = New C1.Win.C1Ribbon.RibbonButton()
+        Me.RibbonButton1 = New C1.Win.C1Ribbon.RibbonButton()
+        Me.cmGrid.SuspendLayout()
+        CType(Me.C1DockingTab1, System.ComponentModel.ISupportInitialize).BeginInit()
+        Me.C1DockingTab1.SuspendLayout()
+        Me.C1DockingTabPage1.SuspendLayout()
+        CType(Me.fxNanBang, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.bs_난방기기, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.DataSet1, System.ComponentModel.ISupportInitialize).BeginInit()
+        Me.C1DockingTabPage2.SuspendLayout()
+        CType(Me.fxNaengBang, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.bs_냉방기기, System.ComponentModel.ISupportInitialize).BeginInit()
+        Me.C1DockingTabPage3.SuspendLayout()
+        CType(Me.fxKogjo, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.bs_공조기기, System.ComponentModel.ISupportInitialize).BeginInit()
+        Me.C1DockingTabPage4.SuspendLayout()
+        CType(Me.fxLight, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.bs_조명기기, System.ComponentModel.ISupportInitialize).BeginInit()
+        Me.C1DockingTabPage5.SuspendLayout()
+        CType(Me.fxDanMal, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.bS_실내단말기, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.C1StatusBar1, System.ComponentModel.ISupportInitialize).BeginInit()
+        Me.SuspendLayout()
+        '
+        'cmGrid
+        '
+        Me.cmGrid.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.열너비저장ToolStripMenuItem, Me.열너비자동조정ToolStripMenuItem, Me.ToolStripMenuItem1, Me.열너비초기화ToolStripMenuItem})
+        Me.cmGrid.Name = "ContextMenuStrip1"
+        Me.cmGrid.Size = New System.Drawing.Size(167, 76)
+        '
+        '열너비저장ToolStripMenuItem
+        '
+        Me.열너비저장ToolStripMenuItem.Name = "열너비저장ToolStripMenuItem"
+        Me.열너비저장ToolStripMenuItem.Size = New System.Drawing.Size(166, 22)
+        Me.열너비저장ToolStripMenuItem.Text = "열 너비 저장"
+        '
+        '열너비자동조정ToolStripMenuItem
+        '
+        Me.열너비자동조정ToolStripMenuItem.Name = "열너비자동조정ToolStripMenuItem"
+        Me.열너비자동조정ToolStripMenuItem.Size = New System.Drawing.Size(166, 22)
+        Me.열너비자동조정ToolStripMenuItem.Text = "열 너비 자동조정"
+        '
+        'ToolStripMenuItem1
+        '
+        Me.ToolStripMenuItem1.Name = "ToolStripMenuItem1"
+        Me.ToolStripMenuItem1.Size = New System.Drawing.Size(163, 6)
+        '
+        '열너비초기화ToolStripMenuItem
+        '
+        Me.열너비초기화ToolStripMenuItem.Name = "열너비초기화ToolStripMenuItem"
+        Me.열너비초기화ToolStripMenuItem.Size = New System.Drawing.Size(166, 22)
+        Me.열너비초기화ToolStripMenuItem.Text = "열 너비 초기화"
+        '
+        'C1DockingTab1
+        '
+        Me.C1DockingTab1.Controls.Add(Me.C1DockingTabPage1)
+        Me.C1DockingTab1.Controls.Add(Me.C1DockingTabPage2)
+        Me.C1DockingTab1.Controls.Add(Me.C1DockingTabPage3)
+        Me.C1DockingTab1.Controls.Add(Me.C1DockingTabPage4)
+        Me.C1DockingTab1.Controls.Add(Me.C1DockingTabPage5)
+        Me.C1DockingTab1.Dock = System.Windows.Forms.DockStyle.Fill
+        Me.C1DockingTab1.Location = New System.Drawing.Point(0, 0)
+        Me.C1DockingTab1.Name = "C1DockingTab1"
+        Me.C1DockingTab1.Size = New System.Drawing.Size(906, 616)
+        Me.C1DockingTab1.TabIndex = 206
+        Me.C1DockingTab1.TabsSpacing = 5
+        Me.C1DockingTab1.TabStyle = C1.Win.C1Command.TabStyleEnum.Office2010
+        Me.C1DockingTab1.VisualStyle = C1.Win.C1Command.VisualStyle.Office2010Silver
+        Me.C1DockingTab1.VisualStyleBase = C1.Win.C1Command.VisualStyle.Office2010Silver
+        '
+        'C1DockingTabPage1
+        '
+        Me.C1DockingTabPage1.Controls.Add(Me.fxNanBang)
+        Me.C1DockingTabPage1.Location = New System.Drawing.Point(1, 29)
+        Me.C1DockingTabPage1.Name = "C1DockingTabPage1"
+        Me.C1DockingTabPage1.Size = New System.Drawing.Size(904, 586)
+        Me.C1DockingTabPage1.TabBackColorSelected = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
+        Me.C1DockingTabPage1.TabIndex = 0
+        Me.C1DockingTabPage1.Text = "난방기기"
+        '
+        'fxNanBang
+        '
+        Me.fxNanBang.AutoGenerateColumns = False
+        Me.fxNanBang.ColumnInfo = resources.GetString("fxNanBang.ColumnInfo")
+        Me.fxNanBang.ContextMenuStrip = Me.cmGrid
+        Me.fxNanBang.DataSource = Me.bs_난방기기
+        Me.fxNanBang.Dock = System.Windows.Forms.DockStyle.Fill
+        Me.fxNanBang.KeyActionTab = C1.Win.C1FlexGrid.KeyActionEnum.MoveAcross
+        Me.fxNanBang.Location = New System.Drawing.Point(0, 0)
+        Me.fxNanBang.Margin = New System.Windows.Forms.Padding(0)
+        Me.fxNanBang.Name = "fxNanBang"
+        Me.fxNanBang.Rows.Count = 1
+        Me.fxNanBang.Rows.DefaultSize = 24
+        Me.fxNanBang.ShowErrors = True
+        Me.fxNanBang.Size = New System.Drawing.Size(904, 586)
+        Me.fxNanBang.StyleInfo = resources.GetString("fxNanBang.StyleInfo")
+        Me.fxNanBang.TabIndex = 206
+        Me.fxNanBang.Tag = "nanbang"
+        Me.fxNanBang.VisualStyle = C1.Win.C1FlexGrid.VisualStyle.Office2007Silver
+        '
+        'bs_난방기기
+        '
+        Me.bs_난방기기.DataMember = "tbl_nanbangkiki"
+        Me.bs_난방기기.DataSource = Me.DataSet1
+        Me.bs_난방기기.Filter = "code <> '0'"
+        '
+        'DataSet1
+        '
+        Me.DataSet1.DataSetName = "DS"
+        Me.DataSet1.SchemaSerializationMode = System.Data.SchemaSerializationMode.IncludeSchema
+        '
+        'C1DockingTabPage2
+        '
+        Me.C1DockingTabPage2.Controls.Add(Me.fxNaengBang)
+        Me.C1DockingTabPage2.Location = New System.Drawing.Point(1, 29)
+        Me.C1DockingTabPage2.Name = "C1DockingTabPage2"
+        Me.C1DockingTabPage2.Size = New System.Drawing.Size(904, 586)
+        Me.C1DockingTabPage2.TabBackColorSelected = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
+        Me.C1DockingTabPage2.TabIndex = 1
+        Me.C1DockingTabPage2.Text = "냉방기기"
+        '
+        'fxNaengBang
+        '
+        Me.fxNaengBang.AutoGenerateColumns = False
+        Me.fxNaengBang.ColumnInfo = resources.GetString("fxNaengBang.ColumnInfo")
+        Me.fxNaengBang.ContextMenuStrip = Me.cmGrid
+        Me.fxNaengBang.DataSource = Me.bs_냉방기기
+        Me.fxNaengBang.Dock = System.Windows.Forms.DockStyle.Fill
+        Me.fxNaengBang.KeyActionTab = C1.Win.C1FlexGrid.KeyActionEnum.MoveAcross
+        Me.fxNaengBang.Location = New System.Drawing.Point(0, 0)
+        Me.fxNaengBang.Margin = New System.Windows.Forms.Padding(0)
+        Me.fxNaengBang.Name = "fxNaengBang"
+        Me.fxNaengBang.Rows.Count = 1
+        Me.fxNaengBang.Rows.DefaultSize = 24
+        Me.fxNaengBang.ShowErrors = True
+        Me.fxNaengBang.Size = New System.Drawing.Size(904, 586)
+        Me.fxNaengBang.StyleInfo = resources.GetString("fxNaengBang.StyleInfo")
+        Me.fxNaengBang.TabIndex = 206
+        Me.fxNaengBang.Tag = "naengbang"
+        Me.fxNaengBang.VisualStyle = C1.Win.C1FlexGrid.VisualStyle.Office2007Silver
+        '
+        'bs_냉방기기
+        '
+        Me.bs_냉방기기.DataMember = "tbl_nangbangkiki"
+        Me.bs_냉방기기.DataSource = Me.DataSet1
+        Me.bs_냉방기기.Filter = "code <> '0'"
+        '
+        'C1DockingTabPage3
+        '
+        Me.C1DockingTabPage3.Controls.Add(Me.fxKogjo)
+        Me.C1DockingTabPage3.Location = New System.Drawing.Point(1, 29)
+        Me.C1DockingTabPage3.Name = "C1DockingTabPage3"
+        Me.C1DockingTabPage3.Size = New System.Drawing.Size(904, 586)
+        Me.C1DockingTabPage3.TabBackColorSelected = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
+        Me.C1DockingTabPage3.TabIndex = 2
+        Me.C1DockingTabPage3.Text = "공조기기"
+        '
+        'fxKogjo
+        '
+        Me.fxKogjo.AutoGenerateColumns = False
+        Me.fxKogjo.ColumnInfo = resources.GetString("fxKogjo.ColumnInfo")
+        Me.fxKogjo.ContextMenuStrip = Me.cmGrid
+        Me.fxKogjo.DataSource = Me.bs_공조기기
+        Me.fxKogjo.Dock = System.Windows.Forms.DockStyle.Fill
+        Me.fxKogjo.KeyActionTab = C1.Win.C1FlexGrid.KeyActionEnum.MoveAcross
+        Me.fxKogjo.Location = New System.Drawing.Point(0, 0)
+        Me.fxKogjo.Margin = New System.Windows.Forms.Padding(0)
+        Me.fxKogjo.Name = "fxKogjo"
+        Me.fxKogjo.Rows.Count = 1
+        Me.fxKogjo.Rows.DefaultSize = 24
+        Me.fxKogjo.ShowErrors = True
+        Me.fxKogjo.Size = New System.Drawing.Size(904, 586)
+        Me.fxKogjo.StyleInfo = resources.GetString("fxKogjo.StyleInfo")
+        Me.fxKogjo.TabIndex = 206
+        Me.fxKogjo.Tag = "kongjo"
+        Me.fxKogjo.VisualStyle = C1.Win.C1FlexGrid.VisualStyle.Office2007Silver
+        '
+        'bs_공조기기
+        '
+        Me.bs_공조기기.DataMember = "tbl_kongjo"
+        Me.bs_공조기기.DataSource = Me.DataSet1
+        Me.bs_공조기기.Filter = "code <> '0'"
+        '
+        'C1DockingTabPage4
+        '
+        Me.C1DockingTabPage4.Controls.Add(Me.fxLight)
+        Me.C1DockingTabPage4.Location = New System.Drawing.Point(1, 29)
+        Me.C1DockingTabPage4.Name = "C1DockingTabPage4"
+        Me.C1DockingTabPage4.Size = New System.Drawing.Size(904, 586)
+        Me.C1DockingTabPage4.TabBackColorSelected = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
+        Me.C1DockingTabPage4.TabIndex = 3
+        Me.C1DockingTabPage4.Text = "조명기기"
+        '
+        'fxLight
+        '
+        Me.fxLight.AutoGenerateColumns = False
+        Me.fxLight.ColumnInfo = resources.GetString("fxLight.ColumnInfo")
+        Me.fxLight.ContextMenuStrip = Me.cmGrid
+        Me.fxLight.DataSource = Me.bs_조명기기
+        Me.fxLight.Dock = System.Windows.Forms.DockStyle.Fill
+        Me.fxLight.KeyActionTab = C1.Win.C1FlexGrid.KeyActionEnum.MoveAcross
+        Me.fxLight.Location = New System.Drawing.Point(0, 0)
+        Me.fxLight.Margin = New System.Windows.Forms.Padding(0)
+        Me.fxLight.Name = "fxLight"
+        Me.fxLight.Rows.Count = 1
+        Me.fxLight.Rows.DefaultSize = 24
+        Me.fxLight.ShowErrors = True
+        Me.fxLight.Size = New System.Drawing.Size(904, 586)
+        Me.fxLight.StyleInfo = resources.GetString("fxLight.StyleInfo")
+        Me.fxLight.TabIndex = 206
+        Me.fxLight.Tag = "light"
+        Me.fxLight.VisualStyle = C1.Win.C1FlexGrid.VisualStyle.Office2007Silver
+        '
+        'bs_조명기기
+        '
+        Me.bs_조명기기.AllowNew = True
+        Me.bs_조명기기.DataMember = "tbl_light"
+        Me.bs_조명기기.DataSource = Me.DataSet1
+        Me.bs_조명기기.Filter = "code <> '0'"
+        '
+        'C1DockingTabPage5
+        '
+        Me.C1DockingTabPage5.Controls.Add(Me.fxDanMal)
+        Me.C1DockingTabPage5.Location = New System.Drawing.Point(1, 29)
+        Me.C1DockingTabPage5.Name = "C1DockingTabPage5"
+        Me.C1DockingTabPage5.Size = New System.Drawing.Size(904, 586)
+        Me.C1DockingTabPage5.TabBackColorSelected = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
+        Me.C1DockingTabPage5.TabIndex = 4
+        Me.C1DockingTabPage5.Text = "실내단말기"
+        '
+        'fxDanMal
+        '
+        Me.fxDanMal.AutoGenerateColumns = False
+        Me.fxDanMal.ColumnInfo = resources.GetString("fxDanMal.ColumnInfo")
+        Me.fxDanMal.ContextMenuStrip = Me.cmGrid
+        Me.fxDanMal.DataSource = Me.bS_실내단말기
+        Me.fxDanMal.Dock = System.Windows.Forms.DockStyle.Fill
+        Me.fxDanMal.KeyActionTab = C1.Win.C1FlexGrid.KeyActionEnum.MoveAcross
+        Me.fxDanMal.Location = New System.Drawing.Point(0, 0)
+        Me.fxDanMal.Margin = New System.Windows.Forms.Padding(0)
+        Me.fxDanMal.Name = "fxDanMal"
+        Me.fxDanMal.Rows.Count = 1
+        Me.fxDanMal.Rows.DefaultSize = 24
+        Me.fxDanMal.ShowErrors = True
+        Me.fxDanMal.Size = New System.Drawing.Size(904, 586)
+        Me.fxDanMal.StyleInfo = resources.GetString("fxDanMal.StyleInfo")
+        Me.fxDanMal.TabIndex = 206
+        Me.fxDanMal.Tag = "danmal"
+        Me.fxDanMal.VisualStyle = C1.Win.C1FlexGrid.VisualStyle.Office2007Silver
+        '
+        'bS_실내단말기
+        '
+        Me.bS_실내단말기.AllowNew = True
+        Me.bS_실내단말기.DataMember = "tbl_danmal"
+        Me.bS_실내단말기.DataSource = Me.DataSet1
+        Me.bS_실내단말기.Filter = "code <> '0'"
+        '
+        'C1StatusBar1
+        '
+        Me.C1StatusBar1.AutoSizeElement = C1.Framework.AutoSizeElement.Width
+        Me.C1StatusBar1.LeftPaneItems.Add(Me.btAdd)
+        Me.C1StatusBar1.LeftPaneItems.Add(Me.btDel)
+        Me.C1StatusBar1.Location = New System.Drawing.Point(0, 616)
+        Me.C1StatusBar1.Name = "C1StatusBar1"
+        Me.C1StatusBar1.RightPaneItems.Add(Me.RibbonButton1)
+        Me.C1StatusBar1.Size = New System.Drawing.Size(906, 23)
+        '
+        'btAdd
+        '
+        Me.btAdd.Name = "btAdd"
+        Me.btAdd.SmallImage = CType(resources.GetObject("btAdd.SmallImage"), System.Drawing.Image)
+        Me.btAdd.Text = "추가(&A)"
+        '
+        'btDel
+        '
+        Me.btDel.Name = "btDel"
+        Me.btDel.SmallImage = CType(resources.GetObject("btDel.SmallImage"), System.Drawing.Image)
+        Me.btDel.Text = "삭제(&D)"
+        '
+        'RibbonButton1
+        '
+        Me.RibbonButton1.LargeImage = CType(resources.GetObject("RibbonButton1.LargeImage"), System.Drawing.Image)
+        Me.RibbonButton1.Name = "RibbonButton1"
+        Me.RibbonButton1.SmallImage = CType(resources.GetObject("RibbonButton1.SmallImage"), System.Drawing.Image)
+        Me.RibbonButton1.Text = "적용(&S)"
+        '
+        'Frm_3_Mach
+        '
+        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.None
+        Me.BackgroundColor = System.Drawing.SystemColors.Control
+        Me.ClientSize = New System.Drawing.Size(906, 639)
+        Me.Controls.Add(Me.C1DockingTab1)
+        Me.Controls.Add(Me.C1StatusBar1)
+        Me.Font = New System.Drawing.Font("맑은 고딕", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(129, Byte))
+        Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
+        Me.KeyPreview = True
+        Me.Name = "Frm_3_Mach"
+        Me.ShowInTaskbar = False
+        Me.Tag = "3"
+        Me.Text = "기계설비부문"
+        Me.cmGrid.ResumeLayout(False)
+        CType(Me.C1DockingTab1, System.ComponentModel.ISupportInitialize).EndInit()
+        Me.C1DockingTab1.ResumeLayout(False)
+        Me.C1DockingTabPage1.ResumeLayout(False)
+        CType(Me.fxNanBang, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.bs_난방기기, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.DataSet1, System.ComponentModel.ISupportInitialize).EndInit()
+        Me.C1DockingTabPage2.ResumeLayout(False)
+        CType(Me.fxNaengBang, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.bs_냉방기기, System.ComponentModel.ISupportInitialize).EndInit()
+        Me.C1DockingTabPage3.ResumeLayout(False)
+        CType(Me.fxKogjo, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.bs_공조기기, System.ComponentModel.ISupportInitialize).EndInit()
+        Me.C1DockingTabPage4.ResumeLayout(False)
+        CType(Me.fxLight, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.bs_조명기기, System.ComponentModel.ISupportInitialize).EndInit()
+        Me.C1DockingTabPage5.ResumeLayout(False)
+        CType(Me.fxDanMal, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.bS_실내단말기, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.C1StatusBar1, System.ComponentModel.ISupportInitialize).EndInit()
+        Me.ResumeLayout(False)
+        Me.PerformLayout()
+
+    End Sub
+    Friend WithEvents bs_난방기기 As System.Windows.Forms.BindingSource
+    Friend WithEvents bs_공조기기 As System.Windows.Forms.BindingSource
+    Friend WithEvents bs_냉방기기 As System.Windows.Forms.BindingSource
+    Friend WithEvents DataSet1 As Eco2OD.DS
+    Friend WithEvents fxNaengBang As C1.Win.C1FlexGrid.C1FlexGrid
+    Friend WithEvents fxKogjo As C1.Win.C1FlexGrid.C1FlexGrid
+    Friend WithEvents fxLight As C1.Win.C1FlexGrid.C1FlexGrid
+    Friend WithEvents fxDanMal As C1.Win.C1FlexGrid.C1FlexGrid
+    Friend WithEvents bs_조명기기 As BindingSource
+    Friend WithEvents bS_실내단말기 As BindingSource
+    Friend WithEvents fxNanBang As C1.Win.C1FlexGrid.C1FlexGrid
+    Friend WithEvents C1StatusBar1 As C1.Win.C1Ribbon.C1StatusBar
+    Friend WithEvents RibbonButton1 As C1.Win.C1Ribbon.RibbonButton
+    Friend WithEvents C1DockingTab1 As C1.Win.C1Command.C1DockingTab
+    Friend WithEvents C1DockingTabPage1 As C1.Win.C1Command.C1DockingTabPage
+    Friend WithEvents C1DockingTabPage2 As C1.Win.C1Command.C1DockingTabPage
+    Friend WithEvents C1DockingTabPage3 As C1.Win.C1Command.C1DockingTabPage
+    Friend WithEvents C1DockingTabPage4 As C1.Win.C1Command.C1DockingTabPage
+    Friend WithEvents C1DockingTabPage5 As C1.Win.C1Command.C1DockingTabPage
+    Friend WithEvents btAdd As C1.Win.C1Ribbon.RibbonButton
+    Friend WithEvents btDel As C1.Win.C1Ribbon.RibbonButton
+    Friend WithEvents cmGrid As ContextMenuStrip
+    Friend WithEvents 열너비저장ToolStripMenuItem As ToolStripMenuItem
+    Friend WithEvents ToolStripMenuItem1 As ToolStripSeparator
+    Friend WithEvents 열너비자동조정ToolStripMenuItem As ToolStripMenuItem
+    Friend WithEvents 열너비초기화ToolStripMenuItem As ToolStripMenuItem
+End Class

ArinWarev1/FORM-OD/Frm_5_New.Designer.vb

@@ -0,0 +1,404 @@
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
+Partial Class Frm_5_New
+    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_5_New))
+        Me.TableLayoutPanel1 = New System.Windows.Forms.TableLayoutPanel()
+        Me.NTb1 = New Eco2OD.MyTb()
+        Me.NTb2 = New Eco2OD.MyTb()
+        Me.DataSet1 = New Eco2OD.DS()
+        Me.bs_energy = New System.Windows.Forms.BindingSource(Me.components)
+        Me.bs_ground = New System.Windows.Forms.BindingSource(Me.components)
+        Me.bs_light = New System.Windows.Forms.BindingSource(Me.components)
+        Me.cmGrid = New System.Windows.Forms.ContextMenuStrip(Me.components)
+        Me.열너비저장ToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
+        Me.ToolStripMenuItem1 = New System.Windows.Forms.ToolStripSeparator()
+        Me.열너비자동조정ToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
+        Me.열너비초기화ToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
+        Me.bs_열병합 = New System.Windows.Forms.BindingSource(Me.components)
+        Me.C1DockingTab1 = New C1.Win.C1Command.C1DockingTab()
+        Me.C1DockingTabPage1 = New C1.Win.C1Command.C1DockingTabPage()
+        Me.fxLight = New C1.Win.C1FlexGrid.C1FlexGrid()
+        Me.C1DockingTabPage2 = New C1.Win.C1Command.C1DockingTabPage()
+        Me.fxEnergy = New C1.Win.C1FlexGrid.C1FlexGrid()
+        Me.C1DockingTabPage3 = New C1.Win.C1Command.C1DockingTabPage()
+        Me.fxGround = New C1.Win.C1FlexGrid.C1FlexGrid()
+        Me.C1DockingTabPage4 = New C1.Win.C1Command.C1DockingTabPage()
+        Me.fxybh = New C1.Win.C1FlexGrid.C1FlexGrid()
+        Me.C1StatusBar1 = New C1.Win.C1Ribbon.C1StatusBar()
+        Me.btAdd = New C1.Win.C1Ribbon.RibbonButton()
+        Me.btDel = New C1.Win.C1Ribbon.RibbonButton()
+        Me.RibbonButton1 = New C1.Win.C1Ribbon.RibbonButton()
+        Me.NTb3 = New Eco2OD.MyTb()
+        Me.TableLayoutPanel1.SuspendLayout()
+        CType(Me.DataSet1, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.bs_energy, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.bs_ground, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.bs_light, System.ComponentModel.ISupportInitialize).BeginInit()
+        Me.cmGrid.SuspendLayout()
+        CType(Me.bs_열병합, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.C1DockingTab1, System.ComponentModel.ISupportInitialize).BeginInit()
+        Me.C1DockingTab1.SuspendLayout()
+        Me.C1DockingTabPage1.SuspendLayout()
+        CType(Me.fxLight, System.ComponentModel.ISupportInitialize).BeginInit()
+        Me.C1DockingTabPage2.SuspendLayout()
+        CType(Me.fxEnergy, System.ComponentModel.ISupportInitialize).BeginInit()
+        Me.C1DockingTabPage3.SuspendLayout()
+        CType(Me.fxGround, System.ComponentModel.ISupportInitialize).BeginInit()
+        Me.C1DockingTabPage4.SuspendLayout()
+        CType(Me.fxybh, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.C1StatusBar1, System.ComponentModel.ISupportInitialize).BeginInit()
+        Me.SuspendLayout()
+        '
+        'TableLayoutPanel1
+        '
+        Me.TableLayoutPanel1.AutoScroll = True
+        Me.TableLayoutPanel1.ColumnCount = 2
+        Me.TableLayoutPanel1.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Absolute, 126.0!))
+        Me.TableLayoutPanel1.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Percent, 50.0!))
+        Me.TableLayoutPanel1.Controls.Add(Me.NTb1, 1, 12)
+        Me.TableLayoutPanel1.Controls.Add(Me.NTb2, 1, 11)
+        Me.TableLayoutPanel1.Location = New System.Drawing.Point(0, 0)
+        Me.TableLayoutPanel1.Name = "TableLayoutPanel1"
+        Me.TableLayoutPanel1.RowCount = 13
+        Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Absolute, 20.0!))
+        Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Absolute, 20.0!))
+        Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Absolute, 20.0!))
+        Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Absolute, 20.0!))
+        Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Absolute, 20.0!))
+        Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Absolute, 20.0!))
+        Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Absolute, 20.0!))
+        Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Absolute, 20.0!))
+        Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Absolute, 20.0!))
+        Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Absolute, 20.0!))
+        Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Absolute, 20.0!))
+        Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Absolute, 20.0!))
+        Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Absolute, 20.0!))
+        Me.TableLayoutPanel1.Size = New System.Drawing.Size(200, 100)
+        Me.TableLayoutPanel1.TabIndex = 0
+        '
+        'NTb1
+        '
+        Me.NTb1.Location = New System.Drawing.Point(129, 243)
+        Me.NTb1.Name = "NTb1"
+        Me.NTb1.NectControl = Nothing
+        Me.NTb1.Size = New System.Drawing.Size(68, 21)
+        Me.NTb1.TabIndex = 63
+        Me.NTb1.TextFormat = Eco2OD.MyTb.ETFormat.Normal
+        '
+        'NTb2
+        '
+        Me.NTb2.Location = New System.Drawing.Point(129, 223)
+        Me.NTb2.Name = "NTb2"
+        Me.NTb2.NectControl = Nothing
+        Me.NTb2.Size = New System.Drawing.Size(68, 21)
+        Me.NTb2.TabIndex = 61
+        Me.NTb2.TextFormat = Eco2OD.MyTb.ETFormat.Normal
+        '
+        'DataSet1
+        '
+        Me.DataSet1.DataSetName = "DS"
+        Me.DataSet1.SchemaSerializationMode = System.Data.SchemaSerializationMode.IncludeSchema
+        '
+        'bs_energy
+        '
+        Me.bs_energy.DataMember = "tbl_new_energy"
+        Me.bs_energy.DataSource = Me.DataSet1
+        Me.bs_energy.Filter = "code <> '0'"
+        '
+        'bs_ground
+        '
+        Me.bs_ground.DataMember = "tbl_new_ground"
+        Me.bs_ground.DataSource = Me.DataSet1
+        Me.bs_ground.Filter = "code <> '0'"
+        '
+        'bs_light
+        '
+        Me.bs_light.DataMember = "tbl_new_light"
+        Me.bs_light.DataSource = Me.DataSet1
+        Me.bs_light.Filter = "code <> '0'"
+        '
+        'cmGrid
+        '
+        Me.cmGrid.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.열너비저장ToolStripMenuItem, Me.ToolStripMenuItem1, Me.열너비자동조정ToolStripMenuItem, Me.열너비초기화ToolStripMenuItem})
+        Me.cmGrid.Name = "ContextMenuStrip1"
+        Me.cmGrid.Size = New System.Drawing.Size(167, 76)
+        '
+        '열너비저장ToolStripMenuItem
+        '
+        Me.열너비저장ToolStripMenuItem.Name = "열너비저장ToolStripMenuItem"
+        Me.열너비저장ToolStripMenuItem.Size = New System.Drawing.Size(166, 22)
+        Me.열너비저장ToolStripMenuItem.Text = "열 너비 저장"
+        '
+        'ToolStripMenuItem1
+        '
+        Me.ToolStripMenuItem1.Name = "ToolStripMenuItem1"
+        Me.ToolStripMenuItem1.Size = New System.Drawing.Size(163, 6)
+        '
+        '열너비자동조정ToolStripMenuItem
+        '
+        Me.열너비자동조정ToolStripMenuItem.Name = "열너비자동조정ToolStripMenuItem"
+        Me.열너비자동조정ToolStripMenuItem.Size = New System.Drawing.Size(166, 22)
+        Me.열너비자동조정ToolStripMenuItem.Text = "열 너비 자동조정"
+        '
+        '열너비초기화ToolStripMenuItem
+        '
+        Me.열너비초기화ToolStripMenuItem.Name = "열너비초기화ToolStripMenuItem"
+        Me.열너비초기화ToolStripMenuItem.Size = New System.Drawing.Size(166, 22)
+        Me.열너비초기화ToolStripMenuItem.Text = "열 너비 초기화"
+        '
+        'bs_열병합
+        '
+        Me.bs_열병합.DataMember = "tbl_new_열병합"
+        Me.bs_열병합.DataSource = Me.DataSet1
+        Me.bs_열병합.Filter = "code <> '0'"
+        '
+        'C1DockingTab1
+        '
+        Me.C1DockingTab1.Controls.Add(Me.C1DockingTabPage1)
+        Me.C1DockingTab1.Controls.Add(Me.C1DockingTabPage2)
+        Me.C1DockingTab1.Controls.Add(Me.C1DockingTabPage3)
+        Me.C1DockingTab1.Controls.Add(Me.C1DockingTabPage4)
+        Me.C1DockingTab1.Dock = System.Windows.Forms.DockStyle.Fill
+        Me.C1DockingTab1.Location = New System.Drawing.Point(0, 0)
+        Me.C1DockingTab1.Name = "C1DockingTab1"
+        Me.C1DockingTab1.Size = New System.Drawing.Size(817, 598)
+        Me.C1DockingTab1.TabIndex = 231
+        Me.C1DockingTab1.TabsSpacing = 5
+        Me.C1DockingTab1.TabStyle = C1.Win.C1Command.TabStyleEnum.Office2010
+        Me.C1DockingTab1.VisualStyleBase = C1.Win.C1Command.VisualStyle.Office2010Silver
+        '
+        'C1DockingTabPage1
+        '
+        Me.C1DockingTabPage1.Controls.Add(Me.fxLight)
+        Me.C1DockingTabPage1.Location = New System.Drawing.Point(1, 29)
+        Me.C1DockingTabPage1.Name = "C1DockingTabPage1"
+        Me.C1DockingTabPage1.Size = New System.Drawing.Size(815, 568)
+        Me.C1DockingTabPage1.TabBackColorSelected = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
+        Me.C1DockingTabPage1.TabIndex = 0
+        Me.C1DockingTabPage1.Text = "태양광"
+        '
+        'fxLight
+        '
+        Me.fxLight.AutoGenerateColumns = False
+        Me.fxLight.ColumnInfo = resources.GetString("fxLight.ColumnInfo")
+        Me.fxLight.ContextMenuStrip = Me.cmGrid
+        Me.fxLight.DataSource = Me.bs_light
+        Me.fxLight.Dock = System.Windows.Forms.DockStyle.Fill
+        Me.fxLight.KeyActionTab = C1.Win.C1FlexGrid.KeyActionEnum.MoveAcross
+        Me.fxLight.Location = New System.Drawing.Point(0, 0)
+        Me.fxLight.Margin = New System.Windows.Forms.Padding(0)
+        Me.fxLight.Name = "fxLight"
+        Me.fxLight.Rows.Count = 1
+        Me.fxLight.Rows.DefaultSize = 24
+        Me.fxLight.ShowErrors = True
+        Me.fxLight.Size = New System.Drawing.Size(815, 568)
+        Me.fxLight.StyleInfo = resources.GetString("fxLight.StyleInfo")
+        Me.fxLight.TabIndex = 151
+        Me.fxLight.VisualStyle = C1.Win.C1FlexGrid.VisualStyle.Office2007Silver
+        '
+        'C1DockingTabPage2
+        '
+        Me.C1DockingTabPage2.Controls.Add(Me.fxEnergy)
+        Me.C1DockingTabPage2.Location = New System.Drawing.Point(1, 29)
+        Me.C1DockingTabPage2.Name = "C1DockingTabPage2"
+        Me.C1DockingTabPage2.Size = New System.Drawing.Size(815, 568)
+        Me.C1DockingTabPage2.TabBackColorSelected = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
+        Me.C1DockingTabPage2.TabIndex = 1
+        Me.C1DockingTabPage2.Text = "태양열"
+        '
+        'fxEnergy
+        '
+        Me.fxEnergy.AutoGenerateColumns = False
+        Me.fxEnergy.ColumnInfo = resources.GetString("fxEnergy.ColumnInfo")
+        Me.fxEnergy.ContextMenuStrip = Me.cmGrid
+        Me.fxEnergy.DataSource = Me.bs_energy
+        Me.fxEnergy.Dock = System.Windows.Forms.DockStyle.Fill
+        Me.fxEnergy.KeyActionTab = C1.Win.C1FlexGrid.KeyActionEnum.MoveAcross
+        Me.fxEnergy.Location = New System.Drawing.Point(0, 0)
+        Me.fxEnergy.Margin = New System.Windows.Forms.Padding(0)
+        Me.fxEnergy.Name = "fxEnergy"
+        Me.fxEnergy.Rows.Count = 1
+        Me.fxEnergy.Rows.DefaultSize = 24
+        Me.fxEnergy.ShowErrors = True
+        Me.fxEnergy.Size = New System.Drawing.Size(815, 568)
+        Me.fxEnergy.StyleInfo = resources.GetString("fxEnergy.StyleInfo")
+        Me.fxEnergy.TabIndex = 152
+        Me.fxEnergy.VisualStyle = C1.Win.C1FlexGrid.VisualStyle.Office2007Silver
+        '
+        'C1DockingTabPage3
+        '
+        Me.C1DockingTabPage3.Controls.Add(Me.fxGround)
+        Me.C1DockingTabPage3.Location = New System.Drawing.Point(1, 29)
+        Me.C1DockingTabPage3.Name = "C1DockingTabPage3"
+        Me.C1DockingTabPage3.Size = New System.Drawing.Size(815, 568)
+        Me.C1DockingTabPage3.TabBackColorSelected = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
+        Me.C1DockingTabPage3.TabIndex = 2
+        Me.C1DockingTabPage3.Text = "지열"
+        '
+        'fxGround
+        '
+        Me.fxGround.AutoGenerateColumns = False
+        Me.fxGround.ColumnInfo = resources.GetString("fxGround.ColumnInfo")
+        Me.fxGround.ContextMenuStrip = Me.cmGrid
+        Me.fxGround.DataSource = Me.bs_ground
+        Me.fxGround.Dock = System.Windows.Forms.DockStyle.Fill
+        Me.fxGround.KeyActionTab = C1.Win.C1FlexGrid.KeyActionEnum.MoveAcross
+        Me.fxGround.Location = New System.Drawing.Point(0, 0)
+        Me.fxGround.Margin = New System.Windows.Forms.Padding(0)
+        Me.fxGround.Name = "fxGround"
+        Me.fxGround.Rows.Count = 1
+        Me.fxGround.Rows.DefaultSize = 24
+        Me.fxGround.ShowErrors = True
+        Me.fxGround.Size = New System.Drawing.Size(815, 568)
+        Me.fxGround.StyleInfo = resources.GetString("fxGround.StyleInfo")
+        Me.fxGround.TabIndex = 153
+        Me.fxGround.VisualStyle = C1.Win.C1FlexGrid.VisualStyle.Office2007Silver
+        '
+        'C1DockingTabPage4
+        '
+        Me.C1DockingTabPage4.Controls.Add(Me.fxybh)
+        Me.C1DockingTabPage4.Location = New System.Drawing.Point(1, 29)
+        Me.C1DockingTabPage4.Name = "C1DockingTabPage4"
+        Me.C1DockingTabPage4.Size = New System.Drawing.Size(815, 568)
+        Me.C1DockingTabPage4.TabBackColorSelected = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
+        Me.C1DockingTabPage4.TabIndex = 3
+        Me.C1DockingTabPage4.Text = "열병합발전"
+        '
+        'fxybh
+        '
+        Me.fxybh.AutoGenerateColumns = False
+        Me.fxybh.ColumnInfo = resources.GetString("fxybh.ColumnInfo")
+        Me.fxybh.DataSource = Me.bs_열병합
+        Me.fxybh.Dock = System.Windows.Forms.DockStyle.Fill
+        Me.fxybh.Location = New System.Drawing.Point(0, 0)
+        Me.fxybh.Name = "fxybh"
+        Me.fxybh.Rows.Count = 1
+        Me.fxybh.Rows.DefaultSize = 24
+        Me.fxybh.Size = New System.Drawing.Size(815, 568)
+        Me.fxybh.TabIndex = 0
+        '
+        'C1StatusBar1
+        '
+        Me.C1StatusBar1.AutoSizeElement = C1.Framework.AutoSizeElement.Width
+        Me.C1StatusBar1.LeftPaneItems.Add(Me.btAdd)
+        Me.C1StatusBar1.LeftPaneItems.Add(Me.btDel)
+        Me.C1StatusBar1.Location = New System.Drawing.Point(0, 598)
+        Me.C1StatusBar1.Name = "C1StatusBar1"
+        Me.C1StatusBar1.RightPaneItems.Add(Me.RibbonButton1)
+        Me.C1StatusBar1.Size = New System.Drawing.Size(817, 23)
+        '
+        'btAdd
+        '
+        Me.btAdd.Name = "btAdd"
+        Me.btAdd.SmallImage = CType(resources.GetObject("btAdd.SmallImage"), System.Drawing.Image)
+        Me.btAdd.Text = "추가(&A)"
+        '
+        'btDel
+        '
+        Me.btDel.Name = "btDel"
+        Me.btDel.SmallImage = CType(resources.GetObject("btDel.SmallImage"), System.Drawing.Image)
+        Me.btDel.Text = "삭제(&D)"
+        '
+        'RibbonButton1
+        '
+        Me.RibbonButton1.LargeImage = CType(resources.GetObject("RibbonButton1.LargeImage"), System.Drawing.Image)
+        Me.RibbonButton1.Name = "RibbonButton1"
+        Me.RibbonButton1.SmallImage = CType(resources.GetObject("RibbonButton1.SmallImage"), System.Drawing.Image)
+        Me.RibbonButton1.Text = "적용(&S)"
+        '
+        'NTb3
+        '
+        Me.NTb3.Location = New System.Drawing.Point(129, 263)
+        Me.NTb3.Name = "NTb3"
+        Me.NTb3.NectControl = Nothing
+        Me.NTb3.Size = New System.Drawing.Size(97, 21)
+        Me.NTb3.TabIndex = 59
+        Me.NTb3.TextFormat = Eco2OD.MyTb.ETFormat.Normal
+        '
+        'Frm_5_New
+        '
+        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.None
+        Me.BackgroundColor = System.Drawing.SystemColors.Control
+        Me.ClientSize = New System.Drawing.Size(817, 621)
+        Me.Controls.Add(Me.C1DockingTab1)
+        Me.Controls.Add(Me.C1StatusBar1)
+        Me.Font = New System.Drawing.Font("맑은 고딕", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(129, Byte))
+        Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
+        Me.Margin = New System.Windows.Forms.Padding(3, 2, 3, 2)
+        Me.Name = "Frm_5_New"
+        Me.ShowInTaskbar = False
+        Me.Tag = "4"
+        Me.Text = "신재생에너지설비부문"
+        Me.TableLayoutPanel1.ResumeLayout(False)
+        Me.TableLayoutPanel1.PerformLayout()
+        CType(Me.DataSet1, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.bs_energy, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.bs_ground, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.bs_light, System.ComponentModel.ISupportInitialize).EndInit()
+        Me.cmGrid.ResumeLayout(False)
+        CType(Me.bs_열병합, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.C1DockingTab1, System.ComponentModel.ISupportInitialize).EndInit()
+        Me.C1DockingTab1.ResumeLayout(False)
+        Me.C1DockingTabPage1.ResumeLayout(False)
+        CType(Me.fxLight, System.ComponentModel.ISupportInitialize).EndInit()
+        Me.C1DockingTabPage2.ResumeLayout(False)
+        CType(Me.fxEnergy, System.ComponentModel.ISupportInitialize).EndInit()
+        Me.C1DockingTabPage3.ResumeLayout(False)
+        CType(Me.fxGround, System.ComponentModel.ISupportInitialize).EndInit()
+        Me.C1DockingTabPage4.ResumeLayout(False)
+        CType(Me.fxybh, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.C1StatusBar1, System.ComponentModel.ISupportInitialize).EndInit()
+        Me.ResumeLayout(False)
+        Me.PerformLayout()
+
+    End Sub
+    Public WithEvents DataSet1 As Eco2OD.DS
+    Friend WithEvents TableLayoutPanel1 As System.Windows.Forms.TableLayoutPanel
+    Friend WithEvents NTb1 As MyTb
+    Friend WithEvents NTb2 As MyTb
+    Friend WithEvents NTb3 As MyTb
+    Friend WithEvents bs_ground As System.Windows.Forms.BindingSource
+    Friend WithEvents bs_energy As System.Windows.Forms.BindingSource
+    Friend WithEvents bs_light As System.Windows.Forms.BindingSource
+    Friend WithEvents 태양열종류DataGridViewTextBoxColumn As System.Windows.Forms.DataGridViewTextBoxColumn
+    Friend WithEvents fxLight As C1.Win.C1FlexGrid.C1FlexGrid
+    Friend WithEvents fxEnergy As C1.Win.C1FlexGrid.C1FlexGrid
+    Friend WithEvents fxGround As C1.Win.C1FlexGrid.C1FlexGrid
+    Friend WithEvents C1StatusBar1 As C1.Win.C1Ribbon.C1StatusBar
+    Friend WithEvents RibbonButton1 As C1.Win.C1Ribbon.RibbonButton
+    Friend WithEvents C1DockingTab1 As C1.Win.C1Command.C1DockingTab
+    Friend WithEvents C1DockingTabPage1 As C1.Win.C1Command.C1DockingTabPage
+    Friend WithEvents C1DockingTabPage2 As C1.Win.C1Command.C1DockingTabPage
+    Friend WithEvents C1DockingTabPage3 As C1.Win.C1Command.C1DockingTabPage
+    Friend WithEvents btAdd As C1.Win.C1Ribbon.RibbonButton
+    Friend WithEvents btDel As C1.Win.C1Ribbon.RibbonButton
+    Friend WithEvents cmGrid As ContextMenuStrip
+    Friend WithEvents 열너비저장ToolStripMenuItem As ToolStripMenuItem
+    Friend WithEvents ToolStripMenuItem1 As ToolStripSeparator
+    Friend WithEvents 열너비자동조정ToolStripMenuItem As ToolStripMenuItem
+    Friend WithEvents 열너비초기화ToolStripMenuItem As ToolStripMenuItem
+    Friend WithEvents C1DockingTabPage4 As C1.Win.C1Command.C1DockingTabPage
+    Friend WithEvents fxybh As C1.Win.C1FlexGrid.C1FlexGrid
+    Friend WithEvents bs_열병합 As System.Windows.Forms.BindingSource
+End Class

ArinWarev1/FORM-OD/Frm_5_New.vb

@@ -0,0 +1,854 @@
+Public Class Frm_5_New
+    Dim Dt As DataTable
+    Dim Init As Boolean = False
+    Dim SrcDrv As DataRowView
+
+    Public Sub New()
+
+        ' 디자이너에서 이 호출이 필요합니다.
+        InitializeComponent()
+
+        With fxLight
+            .KeyActionEnter = C1.Win.C1FlexGrid.KeyActionEnum.None
+            .KeyActionTab = C1.Win.C1FlexGrid.KeyActionEnum.None
+            .SelectionMode = C1.Win.C1FlexGrid.SelectionModeEnum.Cell
+            .ShowButtons = C1.Win.C1FlexGrid.ShowButtonsEnum.Always
+            .DrawMode = C1.Win.C1FlexGrid.DrawModeEnum.OwnerDraw
+            .AllowSorting = C1.Win.C1FlexGrid.AllowSortingEnum.None
+            .ShowSortPosition = C1.Win.C1FlexGrid.ShowSortPositionEnum.None
+        End With
+
+        With fxEnergy
+            .KeyActionEnter = C1.Win.C1FlexGrid.KeyActionEnum.None
+            .KeyActionTab = C1.Win.C1FlexGrid.KeyActionEnum.None
+            .SelectionMode = C1.Win.C1FlexGrid.SelectionModeEnum.Cell
+            .ShowButtons = C1.Win.C1FlexGrid.ShowButtonsEnum.Always
+            .DrawMode = C1.Win.C1FlexGrid.DrawModeEnum.OwnerDraw
+            .AllowSorting = C1.Win.C1FlexGrid.AllowSortingEnum.None
+            .ShowSortPosition = C1.Win.C1FlexGrid.ShowSortPositionEnum.None
+        End With
+
+        With fxGround
+            .KeyActionEnter = C1.Win.C1FlexGrid.KeyActionEnum.None
+            .KeyActionTab = C1.Win.C1FlexGrid.KeyActionEnum.None
+            .SelectionMode = C1.Win.C1FlexGrid.SelectionModeEnum.Cell
+            .ShowButtons = C1.Win.C1FlexGrid.ShowButtonsEnum.Always
+            .DrawMode = C1.Win.C1FlexGrid.DrawModeEnum.OwnerDraw
+            .AllowSorting = C1.Win.C1FlexGrid.AllowSortingEnum.None
+            .ShowSortPosition = C1.Win.C1FlexGrid.ShowSortPositionEnum.None
+        End With
+
+        With fxybh
+            .KeyActionEnter = C1.Win.C1FlexGrid.KeyActionEnum.None
+            .KeyActionTab = C1.Win.C1FlexGrid.KeyActionEnum.None
+            .SelectionMode = C1.Win.C1FlexGrid.SelectionModeEnum.Cell
+            .ShowButtons = C1.Win.C1FlexGrid.ShowButtonsEnum.Always
+            .DrawMode = C1.Win.C1FlexGrid.DrawModeEnum.OwnerDraw
+            .AllowSorting = C1.Win.C1FlexGrid.AllowSortingEnum.None
+            .ShowSortPosition = C1.Win.C1FlexGrid.ShowSortPositionEnum.None
+        End With
+
+
+        AddHandler fxLight.KeyPress, AddressOf fgrid_KeyPress
+        AddHandler fxLight.AfterEdit, AddressOf fgrid_AfterEdit
+        AddHandler fxLight.BeforeEdit, AddressOf fgrid_BeginEditS
+        AddHandler fxLight.OwnerDrawCell, AddressOf flexOwnerDrawCell
+
+        AddHandler fxEnergy.KeyPress, AddressOf fgrid_KeyPress
+        AddHandler fxEnergy.AfterEdit, AddressOf fgrid_AfterEdit
+        AddHandler fxEnergy.BeforeEdit, AddressOf fgrid_BeginEditS
+        AddHandler fxEnergy.OwnerDrawCell, AddressOf flexOwnerDrawCell
+
+        AddHandler fxGround.KeyPress, AddressOf fgrid_KeyPress
+        AddHandler fxGround.AfterEdit, AddressOf fgrid_AfterEdit
+        AddHandler fxGround.BeforeEdit, AddressOf fgrid_BeginEditS
+        AddHandler fxGround.OwnerDrawCell, AddressOf flexOwnerDrawCell
+
+        AddHandler fxybh.KeyPress, AddressOf fgrid_KeyPress
+        AddHandler fxybh.AfterEdit, AddressOf fgrid_AfterEdit
+        AddHandler fxybh.BeforeEdit, AddressOf fgrid_BeginEditS
+        AddHandler fxybh.OwnerDrawCell, AddressOf flexOwnerDrawCell
+
+    End Sub
+
+#Region "FlexGRid Events"
+
+    Private Sub fgrid_BeginEditS(sender As Object, e As C1.Win.C1FlexGrid.RowColEventArgs)
+        Dim grid As C1.Win.C1FlexGrid.C1FlexGrid = DirectCast(sender, C1.Win.C1FlexGrid.C1FlexGrid)
+
+        '//데이터입력전에 IME를 맞춘다.
+        Select Case grid.Cols(e.Col).Name.ToLower()
+            Case "name", "position", "dept", "bigo", "memo", "jname", "설명", "비고", "메모"
+                grid.ImeMode = Windows.Forms.ImeMode.Hangul
+            Case Else
+                grid.ImeMode = Windows.Forms.ImeMode.Alpha
+        End Select
+    End Sub
+
+    Private Sub fgrid_AfterEdit(sender As Object, e As C1.Win.C1FlexGrid.RowColEventArgs)
+        Dim grid As C1.Win.C1FlexGrid.C1FlexGrid = DirectCast(sender, C1.Win.C1FlexGrid.C1FlexGrid)
+        'Dim IDX As Integer = CInt(grid.GetData(e.Row, grid.Cols("IDX").Index))
+        Dim data As Object = grid.GetData(e.Row, e.Col)
+
+        Select Case grid.Cols(e.Col).Name.ToLower()
+            Case Else
+                If Not MoveCellDown(grid, e.Col) Then MoveCellRight(grid)
+                Exit Select
+        End Select
+        'grid.AutoSizeCols()
+    End Sub
+
+    Private Function FindRowIndex(grid As C1.Win.C1FlexGrid.C1FlexGrid, IDX As Integer, Optional IDXField As String = "IDX") As Integer
+        For i As Integer = 1 To grid.Rows.Count
+            Dim oIDX As Integer = CInt(grid.GetData(i, grid.Cols(IDXField).Index))
+            If IDX = oIDX Then
+                Return i
+            End If
+        Next
+        Return -1
+    End Function
+
+    Private Sub fgrid_KeyPress(sender As Object, e As KeyPressEventArgs)
+
+        '일반선택상태일때 엔터키를 누른다면
+        If e.KeyChar = Chr(&HD) Then
+            '엔터는 아래 혹은 우측으로
+            Dim grid As C1.Win.C1FlexGrid.C1FlexGrid = DirectCast(sender, C1.Win.C1FlexGrid.C1FlexGrid)
+            e.Handled = True
+            If Not MoveCellRight(grid) Then
+                MoveCellDown(grid, grid.Cols("설명").Index)
+            End If
+        ElseIf e.KeyChar = Chr(&H8) Then
+            '탭은 우측으로
+            Dim grid As C1.Win.C1FlexGrid.C1FlexGrid = DirectCast(sender, C1.Win.C1FlexGrid.C1FlexGrid)
+            e.Handled = True
+            MoveCellRight(grid)
+        End If
+    End Sub
+
+    Private Function MoveCellDown(grid As C1.Win.C1FlexGrid.C1FlexGrid, Optional firstcol As Integer = -1) As [Boolean]
+        Dim colidx As Integer = grid.CursorCell.c1
+        '현재
+        If firstcol > -1 Then
+            colidx = firstcol
+        End If
+        Dim rowidx As Integer = grid.CursorCell.TopRow
+        Dim newidx As Integer = rowidx + 1
+
+        '다음셀을 찾는다.
+        If newidx < grid.Rows.Count Then
+            grid.[Select](newidx, colidx)
+            Return True
+        Else
+            '마지막줄이므로 처리하지않ㄴ든다.
+            Return False
+        End If
+
+    End Function
+
+    Private Function MoveCellRight(grid As C1.Win.C1FlexGrid.C1FlexGrid) As [Boolean]
+
+        Dim colidx As Integer = grid.CursorCell.c1
+        '현재
+        Dim newidx As Integer = colidx + 1
+        Dim find As [Boolean] = False
+
+        '다음셀을 찾는다.
+        While True
+            If newidx + 1 <= grid.Cols.Count Then
+                If Not grid.Cols(newidx).IsVisible OrElse Not grid.Cols(newidx).AllowEditing Then
+                    newidx += 1
+                    Continue While
+                Else
+                    grid.[Select](grid.CursorCell.TopRow, newidx)
+                    find = True
+                    Exit While
+                End If
+            Else
+                Exit While
+            End If
+        End While
+        Return find
+
+    End Function
+
+    Sub flexOwnerDrawCell(sender As Object, e As C1.Win.C1FlexGrid.OwnerDrawCellEventArgs)
+        Dim grid As C1.Win.C1FlexGrid.C1FlexGrid = sender
+        If e.Row >= grid.Rows.Fixed AndAlso e.Col = grid.Cols.Fixed - 1 Then
+            e.Text = (e.Row - grid.Rows.Fixed) + 1
+        End If
+
+        If e.Row > 0 Then
+            Select Case grid.Cols(e.Col).Name
+                Case "태양광모듈효율"
+
+                    Dim valo As Object = grid.GetData(e.Row, grid.Cols("태양광모듈종류").Index)
+                    If Not valo Is Nothing Then
+                        Dim vals As String = valo.ToString()
+                        If vals <> "성능치입력" Then
+                            e.Graphics.FillRectangle(Brushes.LightGray, e.Bounds)
+                            e.Handled = True
+                        End If
+
+                    End If
+
+                Case "집열효율"
+
+                    Dim valo As Object = grid.GetData(e.Row, grid.Cols("집열기유형").Index)
+                    If Not valo Is Nothing Then
+                        Dim vals As String = valo.ToString()
+                        If vals <> "성능치입력" Then
+                            e.Graphics.FillRectangle(Brushes.LightGray, e.Bounds)
+                            e.Handled = True
+                        End If
+
+                    End If
+
+            End Select
+        End If
+
+
+    End Sub
+
+    Private Sub RefreshCellFormat()
+        ''//관리자는 색상을 파란색으로한다.
+        'If fxList.Styles("chi0") Is Nothing Then
+        '    Dim newstyle As C1.Win.C1FlexGrid.CellStyle = fxList.Styles.Add("chi0")
+        '    newstyle.ForeColor = Color.Blue
+        'End If
+        'If fxList.Styles("chi1") Is Nothing Then
+        '    Dim newstyle As C1.Win.C1FlexGrid.CellStyle = fxList.Styles.Add("chi1")
+        '    newstyle.ForeColor = Color.Black
+        'End If
+
+        'For i As Integer = 1 To Me.fxList.Rows.Count - 1
+        '    Dim obj_admin As Object = Me.fxList.GetData(i, Me.fxList.Cols("admin").Index)
+        '    Dim admin As Boolean = False
+        '    If Not obj_admin Is Nothing Then admin = CBool(obj_admin)
+
+        '    If admin Then
+        '        fxList.Rows(i).Style = fxList.Styles("chi0")
+        '    Else
+        '        fxList.Rows(i).Style = fxList.Styles("chi1")
+        '    End If
+        'Next
+    End Sub
+
+#End Region
+
+
+
+    Public Overrides Function AcceptChanged() As Boolean
+        Me.fxLight.FinishEditing()
+        Me.fxEnergy.FinishEditing()
+        Me.fxGround.FinishEditing()
+        Me.fxybh.FinishEditing()
+
+        Me.bs_energy.EndEdit()
+        Me.bs_ground.EndEdit()
+        Me.bs_light.EndEdit()
+        Me.bs_열병합.EndEdit()
+
+        DSET1.tbl_new_energy.AcceptChanges()
+        DSET1.tbl_new_ground.AcceptChanges()
+        DSET1.tbl_new_light.AcceptChanges()
+        DSET1.tbl_new_열병합.AcceptChanges()
+        DSET1.tbl_new.Clear()
+
+        '//기본 없음을 하나 추가해준다.
+        DSET1.tbl_new.Rows.Add(New String() {"0", "(없음)"})
+        DSET1.tbl_new.AcceptChanges()
+
+        '//데이터를 모은다
+        For Each dr As DS.tbl_new_energyRow In DSET1.tbl_new_energy.Rows
+            Dim newdr As DS.tbl_newRow = DSET1.tbl_new.NewRow
+            For Each c As DataColumn In DSET1.tbl_new_energy.Columns
+                newdr(c.ColumnName) = dr(c.ColumnName)
+            Next
+            newdr.기기종류 = "태양열"
+            newdr.신재생냉난방구분 = newdr.태양열종류
+            DSET1.tbl_new.Rows.Add(newdr)
+        Next
+
+        For Each dr As DS.tbl_new_groundRow In DSET1.tbl_new_ground.Rows
+            Dim newdr As DS.tbl_newRow = DSET1.tbl_new.NewRow
+            For Each c As DataColumn In DSET1.tbl_new_ground.Columns
+                newdr(c.ColumnName) = dr(c.ColumnName)
+            Next
+            newdr.기기종류 = "지열"
+            newdr.신재생냉난방구분 = newdr.지열냉난방구분
+            DSET1.tbl_new.Rows.Add(newdr)
+        Next
+
+        For Each dr As DS.tbl_new_lightRow In DSET1.tbl_new_light.Rows
+            Dim newdr As DS.tbl_newRow = DSET1.tbl_new.NewRow
+            For Each c As DataColumn In DSET1.tbl_new_light.Columns
+                newdr(c.ColumnName) = dr(c.ColumnName)
+            Next
+            newdr.기기종류 = "태양광"
+            newdr.신재생냉난방구분 = ""
+            DSET1.tbl_new.Rows.Add(newdr)
+        Next
+
+
+        For Each dr As DS.tbl_new_열병합Row In DSET1.tbl_new_열병합.Rows
+            Dim newdr As DS.tbl_newRow = DSET1.tbl_new.NewRow
+            For Each c As DataColumn In DSET1.tbl_new_열병합.Columns
+                newdr(c.ColumnName) = dr(c.ColumnName)
+            Next
+            newdr.기기종류 = "열병합"
+            newdr.신재생냉난방구분 = newdr.열병합냉난방구분
+            DSET1.tbl_new.Rows.Add(newdr)
+        Next
+
+
+        DSET1.tbl_new.AcceptChanges()
+
+
+        Return MyBase.AcceptChanged()
+    End Function
+
+    Private Sub MdiMain_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
+
+
+        '//공유데이터셋에 연결한다.    
+        Me.bs_ground.DataSource = DSET1.tbl_new_ground
+        Me.bs_light.DataSource = DSET1.tbl_new_light
+        Me.bs_energy.DataSource = DSET1.tbl_new_energy
+        Me.bs_열병합.DataSource = DSET1.tbl_new_열병합
+
+        Dt = DSET1.tbl_new_energy
+
+        '//신재생
+        AddHandler DSET1.tbl_new_energy.TableNewRow, AddressOf AddNewDataRow_new_energy
+        AddHandler DSET1.tbl_new_light.TableNewRow, AddressOf AddNewDataRow_new_light
+        AddHandler DSET1.tbl_new_ground.TableNewRow, AddressOf AddNewDataRow_new_ground
+        AddHandler DSET1.tbl_new_열병합.TableNewRow, AddressOf AddNewDataRow_new_ybh
+
+        AddHandler DSET1.tbl_new_energy.ColumnChanged, AddressOf DataColumnChanged_energy
+        AddHandler DSET1.tbl_new_light.ColumnChanged, AddressOf DataColumnChanged_light
+        AddHandler DSET1.tbl_new_ground.ColumnChanged, AddressOf DataColumnChanged_ground
+        AddHandler DSET1.tbl_new_열병합.ColumnChanged, AddressOf DataColumnChanged_ybh
+
+        '//콤보컨트롤 바인딩
+        Binding_Zone()
+
+        '//모든컨트롤의 cTrl_enter 를 추가합니다
+        'BindProperty(CType(Me.SplitContainer1.Panel2.Controls, Control.ControlCollection))
+        Me.Init = True
+
+        Try
+            Me.bs_energy.Position = CEnergy.ARINCLASS.Read_LastPos_Frm(Me)
+        Catch ex As Exception
+            Me.bs_energy.MoveFirst()
+        End Try
+
+        '//제목줄 크기변경
+        fxEnergy.Rows()(0).HeightDisplay *= 2
+        fxEnergy.Rows()(0).StyleDisplay.WordWrap = True
+
+        fxGround.Rows()(0).HeightDisplay *= 2
+        fxGround.Rows()(0).StyleDisplay.WordWrap = True
+
+        fxLight.Rows()(0).HeightDisplay *= 2
+        fxLight.Rows()(0).StyleDisplay.WordWrap = True
+
+        fxybh.Rows()(0).HeightDisplay *= 2
+        fxybh.Rows()(0).StyleDisplay.WordWrap = True
+
+        '//열너비
+        ReadfGridColWidth(Me.Name, fxLight)
+        ReadfGridColWidth(Me.Name, fxEnergy)
+        ReadfGridColWidth(Me.Name, fxGround)
+        ReadfGridColWidth(Me.Name, fxybh)
+
+        Me.Show()
+        Application.DoEvents()
+    End Sub
+
+
+
+#Region "Data Column Changed"
+    Private Sub DataColumnChanged_energy(sender As Object, e As System.Data.DataColumnChangeEventArgs)
+
+    End Sub
+
+    Private Sub DataColumnChanged_light(sender As Object, e As System.Data.DataColumnChangeEventArgs)
+        Select Case e.Column.ColumnName.ToLower
+            Case "태양광모듈기울기"
+                Select Case e.ProposedValue
+                    Case "수평", "(없음)"
+                        e.Row("태양광모듈방위") = "(없음)"
+                        fxLight.Cols("태양광모듈방위").AllowEditing = False
+                    Case Else
+                        fxLight.Cols("태양광모듈방위").AllowEditing = True
+                End Select
+        End Select
+    End Sub
+
+    Private Sub DataColumnChanged_ground(sender As Object, e As System.Data.DataColumnChangeEventArgs)
+
+    End Sub
+    Private Sub DataColumnChanged_ybh(sender As Object, e As System.Data.DataColumnChangeEventArgs)
+
+    End Sub
+#End Region
+
+#Region "신재생"
+
+    Private Function GetMaxCode(ByVal dt As DataTable, minimum As Integer) As String
+        Dim newcnt As Integer = 0
+        Try
+            Dim Dr As DataRow = dt.Select("", "code desc")(0)
+            newcnt = CInt(Dr("code")) + 1
+        Catch ex As Exception
+            newcnt = 0
+        End Try
+
+        If newcnt = 0 Then newcnt = 1
+        If newcnt < minimum Then newcnt = minimum
+
+        Return newcnt.ToString("0000")
+    End Function
+
+    Sub SelectIndexChange_태양광기울기(sender As Object, e As EventArgs)
+        Console.Write("SelectIndexChange_태양광기울기")
+        fxLight.FinishEditing()
+    End Sub
+    Private Sub Binding_Zone()
+
+        '//지열 : 가동연료
+        Dim Bs가동연료 As New BindingSource(DSET1, "tbl_common_od") With {.Filter = "gubun='1066'", .Sort = "code"}
+        Dim cmd가동연룍 As New ComboBox With {.DataSource = Bs가동연료, .DisplayMember = "name", .ValueMember = "name"}
+        fxGround.Cols("가동연료").Editor = cmd가동연룍
+
+        '//지열 : 냉난방구분
+        Dim cmd냉난방구분 As New ComboBox()
+        With cmd냉난방구분.Items
+            .Add("(없음)")
+            .Add("난방용")
+            .Add("급탕용")
+            .Add("난방급탕용")
+            .Add("냉방용")
+            .Add("냉난방용")
+        End With
+        fxGround.Cols("지열냉난방구분").Editor = cmd냉난방구분
+
+        '//열병합: 냉난방구분
+        Dim cmdYBH냉난방구분 As New ComboBox()
+        With cmdYBH냉난방구분.Items
+            .Add("(없음)")
+            .Add("난방용")
+            .Add("급탕용")
+            .Add("난방급탕용")
+        End With
+        fxybh.Cols("열병합냉난방구분").Editor = cmdYBH냉난방구분
+
+        '//태양열시스템(FlexGrid)
+        Dim Bs태양열종류 As New BindingSource(DSET1, "tbl_common_od") With {.Filter = "gubun='1057'", .Sort = "code"}
+        Dim cmd태양열종류 As New ComboBox With {.DataSource = Bs태양열종류, .DisplayMember = "name", .ValueMember = "name"}
+        cmd태양열종류.DropDownStyle = ComboBoxStyle.DropDownList
+        fxEnergy.Cols("태양열종류").Editor = cmd태양열종류
+
+        Dim Bs집열기유형 As New BindingSource(DSET1, "tbl_common_od") With {.Filter = "gubun='1058'", .Sort = "code"}
+        Dim cmd집열기유형 As New ComboBox With {.DataSource = Bs집열기유형, .DisplayMember = "name", .ValueMember = "name"}
+        cmd집열기유형.DropDownStyle = ComboBoxStyle.DropDownList
+        fxEnergy.Cols("집열기유형").Editor = cmd집열기유형
+
+        Dim Bs집열판방위 As New BindingSource(DSET1, "tbl_common_od") With {.Filter = "gubun='1059'", .Sort = "code"}
+        Dim cmd집열판방위 As New ComboBox With {.DataSource = Bs집열판방위, .DisplayMember = "name", .ValueMember = "name"}
+        cmd집열판방위.DropDownStyle = ComboBoxStyle.DropDownList
+        fxEnergy.Cols("집열판방위").Editor = cmd집열판방위
+
+        Dim Bs축열탱크설치장소 As New BindingSource(DSET1, "tbl_common_od") With {.Filter = "gubun='1061'", .Sort = "code"}
+        Dim cmd축열탱크설치장소 As New ComboBox With {.DataSource = Bs축열탱크설치장소, .DisplayMember = "name", .ValueMember = "name"}
+        cmd축열탱크설치장소.DropDownStyle = ComboBoxStyle.DropDownList
+        fxEnergy.Cols("축열탱크설치장소").Editor = cmd축열탱크설치장소
+
+        '//태양광시스템
+
+        Dim Bs태양광기울기 As New BindingSource(DSET1, "tbl_common_od") With {.Filter = "gubun='1062'", .Sort = "code"}
+        Dim cmd태양광기울기 As New ComboBox With {.DataSource = Bs태양광기울기, .DisplayMember = "name", .ValueMember = "name"}
+        cmd태양광기울기.DropDownStyle = ComboBoxStyle.DropDownList
+        AddHandler cmd태양광기울기.SelectedIndexChanged, AddressOf SelectIndexChange_태양광기울기
+        fxLight.Cols("태양광모듈기울기").Editor = cmd태양광기울기
+
+        Dim Bs태양광종류 As New BindingSource(DSET1, "tbl_common_od") With {.Filter = "gubun='1064'", .Sort = "code"}
+        Dim cmd태양광종류 As New ComboBox With {.DataSource = Bs태양광종류, .DisplayMember = "name", .ValueMember = "name"}
+        cmd태양광종류.DropDownStyle = ComboBoxStyle.DropDownList
+        fxLight.Cols("태양광모듈종류").Editor = cmd태양광종류
+
+        Dim Bs태양광적용타입 As New BindingSource(DSET1, "tbl_common_od") With {.Filter = "gubun='1065'", .Sort = "code"}
+        Dim cmd태양광적용타입 As New ComboBox With {.DataSource = Bs태양광적용타입, .DisplayMember = "name", .ValueMember = "name"}
+        cmd태양광적용타입.DropDownStyle = ComboBoxStyle.DropDownList
+        fxLight.Cols("태양광모듈적용타입").Editor = cmd태양광적용타입
+
+        Dim Bs태양광모듈방위 As New BindingSource(DSET1, "tbl_common_od") With {.Filter = "gubun='1063'", .Sort = "code"}
+        Dim cmd태양광모듈방위 As New ComboBox With {.DataSource = Bs태양광모듈방위, .DisplayMember = "name", .ValueMember = "name"}
+        cmd태양광모듈방위.DropDownStyle = ComboBoxStyle.DropDownList
+        fxLight.Cols("태양광모듈방위").Editor = cmd태양광모듈방위
+
+    End Sub
+
+    Private Sub MdiMain_FormClosed(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosedEventArgs) Handles Me.FormClosed
+        Me.bs_light.EndEdit()
+        Me.bs_energy.EndEdit()
+        Me.bs_ground.EndEdit()
+        Me.bs_열병합.EndEdit()
+
+        CEnergy.ARINCLASS.SaveLoad_FrmSetting(Me, Me.bs_energy.Position, True)
+    End Sub
+
+    Private Sub MdiMain_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown
+        Select Case e.KeyCode
+            Case Keys.F12
+        End Select
+    End Sub
+
+    Private Sub AddNewDataRow_new_energy(ByVal sender As Object, ByVal e As System.Data.DataTableNewRowEventArgs)
+        '//태양열
+        e.Row.Item("code") = GetMaxCode(DSET1.tbl_new_energy, 1000)
+    End Sub
+    Private Sub AddNewDataRow_new_light(ByVal sender As Object, ByVal e As System.Data.DataTableNewRowEventArgs)
+        '//태양광
+        e.Row.Item("code") = GetMaxCode(DSET1.tbl_new_light, 3000)
+    End Sub
+    Private Sub AddNewDataRow_new_ground(ByVal sender As Object, ByVal e As System.Data.DataTableNewRowEventArgs)
+        '//지열
+        e.Row.Item("code") = GetMaxCode(DSET1.tbl_new_ground, 2000)
+    End Sub
+    Private Sub AddNewDataRow_new_ybh(ByVal sender As Object, ByVal e As System.Data.DataTableNewRowEventArgs)
+        '//열병합
+        e.Row.Item("code") = GetMaxCode(DSET1.tbl_new_열병합, 4000)
+    End Sub
+#End Region
+
+    Private Sub bs_CurrentItemChanged_energy(ByVal sender As Object, ByVal e As System.EventArgs) Handles bs_energy.CurrentItemChanged
+        Try
+            Me.bs_energy.EndEdit()
+        Catch ex As Exception
+
+        End Try
+
+    End Sub
+
+    Private Sub bs_CurrentItemChanged_light(ByVal sender As Object, ByVal e As System.EventArgs) Handles bs_light.CurrentItemChanged
+        Try
+            Me.bs_light.EndEdit()
+        Catch ex As Exception
+
+        End Try
+
+    End Sub
+
+    Private Sub bs_CurrentItemChanged_ground(ByVal sender As Object, ByVal e As System.EventArgs) Handles bs_ground.CurrentItemChanged
+        Try
+            Me.bs_ground.EndEdit()
+        Catch ex As Exception
+
+        End Try
+
+    End Sub
+
+
+    Private Sub fxLight_MouseUp(sender As Object, e As MouseEventArgs) Handles fxLight.MouseUp
+        If e.Button = Windows.Forms.MouseButtons.Middle Then
+            Frm_Filter.ColumTitle = getColCaption(Me.Dt)
+            Frm_Filter.ColumList = getColName(Me.Dt)
+            Frm_Filter.Colorlist = ""
+            '//getfiled 며령으로 모든 필드명을 찾아서
+            '//그것을 그 화면으로  보내는거에요
+            '//그런데 여기서 어떤필드는 색을 달리하겟다라고할려면 해당   ::::   정보도 같이 넘겨줘야해요
+            '//그부분 구현이 좀 매끄럽게 생각정리가안되네요
+
+            Frm_Filter.Numfield = ""    '//20100618  Color 리스트처럼 , 구분해서 필드들을 모두 넣으세요.(=, >= 등을 사용하기 위해서는 해당 항목을 추가 요망)
+            If Frm_Filter.ShowDialog <> Windows.Forms.DialogResult.OK Then Return '//창떳을떄 확인아ㅣ고 취소눌르면 다음을 수행하지않는다는거에요.
+            Dim Filter As String = Frm_Filter.tb_filter.Text   '//값은 아까 그 텍박에 잇구요.
+            Try
+                Me.bs_light.Filter = Filter
+
+                '//바꾸기값이 있으면 변경 20100618
+                If Frm_Filter.cmb_fieldc.SelectedIndex >= 0 AndAlso Frm_Filter.cmb_fieldc.Text.ToLower <> "code" AndAlso
+                Frm_Filter.tb_valuec.Text <> "" Then
+                    Dim Drow() As DataRow = DSET1.tbl_new_light.Select(Filter)
+                    For Each Dr As DataRow In Drow
+                        Dr(Frm_Filter.cmb_fieldc.Text) = Frm_Filter.tb_valuec.Text
+                    Next
+                    MsgBox("바꾸기 완료", MsgBoxStyle.Information, "확인")
+                End If
+
+            Catch ex As Exception
+                Me.bs_light.Filter = ""
+            End Try
+        End If
+    End Sub
+
+    Private Sub fxEnergy_MouseUp(sender As Object, e As MouseEventArgs) Handles fxEnergy.MouseUp
+        If e.Button = Windows.Forms.MouseButtons.Middle Then
+            Frm_Filter.ColumTitle = getColCaption(Me.Dt)
+            Frm_Filter.ColumList = getColName(Me.Dt)
+            Frm_Filter.Colorlist = ""
+            '//getfiled 며령으로 모든 필드명을 찾아서
+            '//그것을 그 화면으로  보내는거에요
+            '//그런데 여기서 어떤필드는 색을 달리하겟다라고할려면 해당   ::::   정보도 같이 넘겨줘야해요
+            '//그부분 구현이 좀 매끄럽게 생각정리가안되네요
+
+            Frm_Filter.Numfield = ""    '//20100618  Color 리스트처럼 , 구분해서 필드들을 모두 넣으세요.(=, >= 등을 사용하기 위해서는 해당 항목을 추가 요망)
+            If Frm_Filter.ShowDialog <> Windows.Forms.DialogResult.OK Then Return '//창떳을떄 확인아ㅣ고 취소눌르면 다음을 수행하지않는다는거에요.
+            Dim Filter As String = Frm_Filter.tb_filter.Text   '//값은 아까 그 텍박에 잇구요.
+            Try
+                Me.bs_energy.Filter = Filter
+
+                '//바꾸기값이 있으면 변경 20100618
+                If Frm_Filter.cmb_fieldc.SelectedIndex >= 0 AndAlso Frm_Filter.cmb_fieldc.Text.ToLower <> "code" AndAlso
+                Frm_Filter.tb_valuec.Text <> "" Then
+                    Dim Drow() As DataRow = DSET1.tbl_new_energy.Select(Filter)
+                    For Each Dr As DataRow In Drow
+                        Dr(Frm_Filter.cmb_fieldc.Text) = Frm_Filter.tb_valuec.Text
+                    Next
+                    MsgBox("바꾸기 완료", MsgBoxStyle.Information, "확인")
+                End If
+
+            Catch ex As Exception
+                Me.bs_energy.Filter = ""
+            End Try
+        End If
+    End Sub
+
+    Private Sub fxGround_MouseUp(sender As Object, e As MouseEventArgs) Handles fxGround.MouseUp
+        If e.Button = Windows.Forms.MouseButtons.Middle Then
+            Frm_Filter.ColumTitle = getColCaption(Me.Dt)
+            Frm_Filter.ColumList = getColName(Me.Dt)
+            Frm_Filter.Colorlist = ""
+            '//getfiled 며령으로 모든 필드명을 찾아서
+            '//그것을 그 화면으로  보내는거에요
+            '//그런데 여기서 어떤필드는 색을 달리하겟다라고할려면 해당   ::::   정보도 같이 넘겨줘야해요
+            '//그부분 구현이 좀 매끄럽게 생각정리가안되네요
+
+            Frm_Filter.Numfield = ""    '//20100618  Color 리스트처럼 , 구분해서 필드들을 모두 넣으세요.(=, >= 등을 사용하기 위해서는 해당 항목을 추가 요망)
+            If Frm_Filter.ShowDialog <> Windows.Forms.DialogResult.OK Then Return '//창떳을떄 확인아ㅣ고 취소눌르면 다음을 수행하지않는다는거에요.
+            Dim Filter As String = Frm_Filter.tb_filter.Text   '//값은 아까 그 텍박에 잇구요.
+            Try
+                Me.bs_ground.Filter = Filter
+
+                '//바꾸기값이 있으면 변경 20100618
+                If Frm_Filter.cmb_fieldc.SelectedIndex >= 0 AndAlso Frm_Filter.cmb_fieldc.Text.ToLower <> "code" AndAlso
+                Frm_Filter.tb_valuec.Text <> "" Then
+                    Dim Drow() As DataRow = DSET1.tbl_new_ground.Select(Filter)
+                    For Each Dr As DataRow In Drow
+                        Dr(Frm_Filter.cmb_fieldc.Text) = Frm_Filter.tb_valuec.Text
+                    Next
+                    MsgBox("바꾸기 완료", MsgBoxStyle.Information, "확인")
+                End If
+
+            Catch ex As Exception
+                Me.bs_ground.Filter = ""
+            End Try
+        End If
+    End Sub
+
+    Private Sub fxLight_KeyDown(sender As Object, e As KeyEventArgs) Handles fxLight.KeyDown
+        '//여기보시면   alt+d 누르면  한줄을 경고없이(falsE)삭제하도록 햇어요.. 사실원래 밋alt +d 인데.. ㅎㅎ 잘못해서 ctrl 됫다는
+        Select Case e.KeyCode
+            Case Keys.D
+                If e.Alt Then
+                    Dbbase.DelCrow(Me.bs_light, False)
+                End If
+            Case Keys.C
+                If e.Control Then
+                    Me.SrcDrv = Me.bs_light.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
+                    EndEdit()
+                    bs_light.AddNew()
+                    Dim NewDrv As DataRowView = Me.bs_light.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_light.EndEdit()
+                    bs_light.MoveLast()
+                End If
+        End Select
+    End Sub
+
+    Private Sub fxEnergy_KeyDown(sender As Object, e As KeyEventArgs) Handles fxEnergy.KeyDown
+        '//여기보시면   alt+d 누르면  한줄을 경고없이(falsE)삭제하도록 햇어요.. 사실원래 밋alt +d 인데.. ㅎㅎ 잘못해서 ctrl 됫다는
+        Select Case e.KeyCode
+            Case Keys.D
+                If e.Alt Then
+                    Dbbase.DelCrow(Me.bs_energy, False)
+                End If
+            Case Keys.C
+                If e.Control Then
+                    Me.SrcDrv = Me.bs_energy.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
+                    EndEdit()
+                    bs_energy.AddNew()
+                    Dim NewDrv As DataRowView = Me.bs_energy.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_energy.EndEdit()
+                    bs_energy.MoveLast()
+                End If
+        End Select
+    End Sub
+
+    Private Sub fxGround_KeyDown(sender As Object, e As KeyEventArgs) Handles fxGround.KeyDown
+        '//여기보시면   alt+d 누르면  한줄을 경고없이(falsE)삭제하도록 햇어요.. 사실원래 밋alt +d 인데.. ㅎㅎ 잘못해서 ctrl 됫다는
+        Select Case e.KeyCode
+            Case Keys.D
+                If e.Alt Then
+                    Dbbase.DelCrow(Me.bs_ground, False)
+                End If
+            Case Keys.C
+                If e.Control Then
+                    Me.SrcDrv = Me.bs_ground.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
+                    EndEdit()
+                    bs_ground.AddNew()
+                    Dim NewDrv As DataRowView = Me.bs_ground.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_ground.EndEdit()
+                    bs_ground.MoveLast()
+                End If
+        End Select
+    End Sub
+
+    
+    Private Sub RibbonButton1_Click(sender As Object, e As EventArgs) Handles RibbonButton1.Click
+        AcceptChanged()
+    End Sub
+
+    Sub EndEdit()
+        Validate()
+        fxEnergy.FinishEditing()
+        fxGround.FinishEditing()
+        fxLight.FinishEditing()
+        fxybh.FinishEditing()
+
+        bs_energy.EndEdit()
+        bs_ground.EndEdit()
+        bs_light.EndEdit()
+        bs_열병합.EndEdit()
+    End Sub
+    Private Sub btAdd_Click(sender As Object, e As EventArgs) Handles btAdd.Click
+        EndEdit()
+        If C1DockingTab1.SelectedIndex = 0 Then
+            Me.bs_light.AddNew()
+        ElseIf C1DockingTab1.SelectedIndex = 1 Then
+            Me.bs_energy.AddNew()
+        ElseIf C1DockingTab1.SelectedIndex = 2 Then
+            Me.bs_ground.AddNew()
+        Else
+            Me.bs_열병합.AddNew()
+        End If
+    End Sub
+
+    Private Sub btDel_Click(sender As Object, e As EventArgs) Handles btDel.Click
+        EndEdit()
+        If C1DockingTab1.SelectedIndex = 0 Then
+            Dbbase.DelCrow(Me.bs_light, True)
+        ElseIf C1DockingTab1.SelectedIndex = 1 Then
+            Dbbase.DelCrow(Me.bs_energy, True)
+        ElseIf C1DockingTab1.SelectedIndex = 2 Then
+            Dbbase.DelCrow(Me.bs_ground, True)
+        Else
+            Dbbase.DelCrow(Me.bs_열병합, True)
+        End If
+    End Sub
+
+    Private Sub 열너비자동조정ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 열너비자동조정ToolStripMenuItem.Click
+
+        Dim MenuItem As ToolStripMenuItem = sender
+        If Not MenuItem Is Nothing Then
+            Dim cMenu As ContextMenuStrip = MenuItem.Owner
+            If Not cMenu Is Nothing Then
+                Dim grid As C1.Win.C1FlexGrid.C1FlexGrid = cMenu.SourceControl
+                grid.AutoSizeCols()
+            End If
+        End If
+
+
+    End Sub
+
+    Private Sub 열너비저장ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 열너비저장ToolStripMenuItem.Click
+
+        Dim MenuItem As ToolStripMenuItem = sender
+        If Not MenuItem Is Nothing Then
+            Dim cMenu As ContextMenuStrip = MenuItem.Owner
+            If Not cMenu Is Nothing Then
+                Dim grid As C1.Win.C1FlexGrid.C1FlexGrid = cMenu.SourceControl
+                SavefGridColWidth(Me.Name, grid)
+            End If
+        End If
+
+
+    End Sub
+
+    Private Sub 열너비초기화ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 열너비초기화ToolStripMenuItem.Click
+
+        Dim MenuItem As ToolStripMenuItem = sender
+        If Not MenuItem Is Nothing Then
+            Dim cMenu As ContextMenuStrip = MenuItem.Owner
+            If Not cMenu Is Nothing Then
+                Dim grid As C1.Win.C1FlexGrid.C1FlexGrid = cMenu.SourceControl
+                '//모든데이터의 열너비를 초기화한다.
+                ClearfGridColWidth(grid)
+            End If
+        End If
+
+    End Sub
+
+    Private Sub bs_열병합_CurrentChanged(sender As System.Object, e As System.EventArgs) Handles bs_열병합.CurrentChanged
+        Try
+            Me.bs_열병합.EndEdit()
+        Catch ex As Exception
+
+        End Try
+
+    End Sub
+End Class

ArinWarev1/FORM-OD/Frm_6_Req.vb

@@ -0,0 +1,92 @@
+Public Class Frm_6_Req
+    Dim DT지역중분류 As DataTable
+    Dim init As Boolean = False
+
+    Public Overrides Function AcceptChanged() As Boolean
+        Me.bs.EndEdit()
+
+        Dim drv As DataRowView = bs.Current
+        If drv Is Nothing Then Return True
+
+      
+        Return True
+    End Function
+
+    Private Sub MdiMain_FormClosed(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosedEventArgs) Handles Me.FormClosed
+        Me.bs.EndEdit()
+        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
+
+        init = False
+
+       
+        Me.bs.DataSource = DSET1.tbl_ReqInfo
+        If Me.bs.Count = 0 Then bs.AddNew()
+        bs.EndEdit()
+
+        Binding_Zone()
+        init = True
+        Try
+            Me.bs.Position = CEnergy.ARINCLASS.Read_LastPos_Frm(Me)
+        Catch ex As Exception
+            Me.bs.MoveFirst()
+        End Try
+
+
+        Me.Show()
+        Application.DoEvents()
+
+
+
+    End Sub
+
+  
+    Private Sub Binding_Zone()
+        'Dim bs_cmb_공조방식 As New BindingSource(DSET1, "tbl_weather")
+        'Me.cmb_location.DataSource = bs_cmb_공조방식
+        'cmb_location.DisplayMember = "건물위치"
+        'cmb_location.ValueMember = "code"
+        'Me.cmb_location.DataBindings.Add("selectedvalue", Me.bs, "buildarea")
+        'AddHandler cmb_location.KeyDown, AddressOf Cmb_DeleteVal
+    End Sub
+    Private Sub Cmb_DeleteVal(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs)
+        If e.KeyCode = Keys.Delete Then
+            CType(sender, ComboBox).SelectedValue = ""
+        End If
+    End Sub
+
+   
+    Private Sub Bs_CurrentChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bs.CurrentChanged
+        If init = False Then Return '//초기화전이면 수행안함
+
+        Me.bs.EndEdit()
+        Dim drv As DataRowView = Me.bs.Current
+        If drv Is Nothing Then Return
+
+    End Sub
+
+   
+    Private Sub Bs_CurrentItemChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles bs.CurrentItemChanged
+        Try
+            Me.bs.EndEdit()
+        Catch ex As Exception
+
+        End Try
+    End Sub
+
+  
+
+    Private Sub RibbonButton1_Click(sender As Object, e As EventArgs) Handles RibbonButton1.Click
+        AcceptChanged()
+    End Sub
+
+
+End Class