파일을 열고 무조건 열관류율탭 자동 업데이트 적용

ArinWarev1/Forms_Input/Frm_YK.Designer.vb

@@ -70,16 +70,6 @@ Partial Class Frm_YK
         Me.cmb_재료 = New System.Windows.Forms.ComboBox()
         Me.Panel1 = New System.Windows.Forms.Panel()
         Me.arindv1 = New System.Windows.Forms.DataGridView()
-        Me.bn_detail = New System.Windows.Forms.BindingNavigator(Me.components)
-        Me.ToolStripLabel1 = New System.Windows.Forms.ToolStripLabel()
-        Me.btj_add = New System.Windows.Forms.ToolStripButton()
-        Me.btj_del = New System.Windows.Forms.ToolStripButton()
-        Me.ToolStripSeparator2 = New System.Windows.Forms.ToolStripSeparator()
-        Me.ToolStripLabel2 = New System.Windows.Forms.ToolStripLabel()
-        Me.btj_showimg = New System.Windows.Forms.ToolStripButton()
-        Me.cmb_형태 = New Eco2Ar.MyCmb()
-        Me.bs_gubun = New System.Windows.Forms.BindingSource(Me.components)
-        Me.bS_재료 = New System.Windows.Forms.BindingSource(Me.components)
         Me.커스텀 = New System.Windows.Forms.DataGridViewTextBoxColumn()
         Me.code = New System.Windows.Forms.DataGridViewTextBoxColumn()
         Me.재료명 = New System.Windows.Forms.DataGridViewTextBoxColumn()
@@ -91,6 +81,16 @@ Partial Class Frm_YK
         Me.열저항 = New System.Windows.Forms.DataGridViewTextBoxColumn()
         Me.전경 = New System.Windows.Forms.DataGridViewButtonColumn()
         Me.Column1 = New System.Windows.Forms.DataGridViewButtonColumn()
+        Me.bn_detail = New System.Windows.Forms.BindingNavigator(Me.components)
+        Me.ToolStripLabel1 = New System.Windows.Forms.ToolStripLabel()
+        Me.btj_add = New System.Windows.Forms.ToolStripButton()
+        Me.btj_del = New System.Windows.Forms.ToolStripButton()
+        Me.ToolStripSeparator2 = New System.Windows.Forms.ToolStripSeparator()
+        Me.ToolStripLabel2 = New System.Windows.Forms.ToolStripLabel()
+        Me.btj_showimg = New System.Windows.Forms.ToolStripButton()
+        Me.cmb_형태 = New Eco2Ar.MyCmb()
+        Me.bs_gubun = New System.Windows.Forms.BindingSource(Me.components)
+        Me.bS_재료 = New System.Windows.Forms.BindingSource(Me.components)
         CType(Me.SplitContainer1, System.ComponentModel.ISupportInitialize).BeginInit()
         Me.SplitContainer1.Panel1.SuspendLayout()
         Me.SplitContainer1.Panel2.SuspendLayout()
@@ -591,97 +591,6 @@ Partial Class Frm_YK
         Me.arindv1.Size = New System.Drawing.Size(427, 326)
         Me.arindv1.TabIndex = 157
         '
-        'bn_detail
-        '
-        Me.bn_detail.AddNewItem = Nothing
-        Me.bn_detail.AutoSize = False
-        Me.bn_detail.BindingSource = Me.bs_detail
-        Me.bn_detail.CountItem = Me.ToolStripLabel1
-        Me.bn_detail.DeleteItem = Nothing
-        Me.bn_detail.Dock = System.Windows.Forms.DockStyle.Bottom
-        Me.bn_detail.Font = New System.Drawing.Font("돋움", 8.999999!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(129, Byte))
-        Me.bn_detail.GripStyle = System.Windows.Forms.ToolStripGripStyle.Hidden
-        Me.bn_detail.ImageScalingSize = New System.Drawing.Size(20, 20)
-        Me.bn_detail.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.btj_add, Me.btj_del, Me.ToolStripSeparator2, Me.ToolStripLabel2, Me.ToolStripLabel1, Me.btj_showimg})
-        Me.bn_detail.Location = New System.Drawing.Point(0, 326)
-        Me.bn_detail.MoveFirstItem = Nothing
-        Me.bn_detail.MoveLastItem = Nothing
-        Me.bn_detail.MoveNextItem = Nothing
-        Me.bn_detail.MovePreviousItem = Nothing
-        Me.bn_detail.Name = "bn_detail"
-        Me.bn_detail.PositionItem = Me.ToolStripLabel2
-        Me.bn_detail.Size = New System.Drawing.Size(427, 40)
-        Me.bn_detail.TabIndex = 2
-        Me.bn_detail.Text = "BindingNavigator1"
-        '
-        'ToolStripLabel1
-        '
-        Me.ToolStripLabel1.Name = "ToolStripLabel1"
-        Me.ToolStripLabel1.Size = New System.Drawing.Size(33, 37)
-        Me.ToolStripLabel1.Text = "/{0}"
-        '
-        'btj_add
-        '
-        Me.btj_add.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
-        Me.btj_add.Image = Global.Eco2Ar.My.Resources.Resources.new_32
-        Me.btj_add.Name = "btj_add"
-        Me.btj_add.RightToLeftAutoMirrorImage = True
-        Me.btj_add.Size = New System.Drawing.Size(24, 37)
-        Me.btj_add.Text = "신규추가(&A)"
-        Me.btj_add.ToolTipText = "새로운 프로필을 추가합니다"
-        '
-        'btj_del
-        '
-        Me.btj_del.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
-        Me.btj_del.Image = Global.Eco2Ar.My.Resources.Resources.remov_32
-        Me.btj_del.Name = "btj_del"
-        Me.btj_del.RightToLeftAutoMirrorImage = True
-        Me.btj_del.Size = New System.Drawing.Size(24, 37)
-        Me.btj_del.Text = "선택삭제(&D)"
-        Me.btj_del.ToolTipText = "선택된 프로필을 삭제합니다"
-        '
-        'ToolStripSeparator2
-        '
-        Me.ToolStripSeparator2.Name = "ToolStripSeparator2"
-        Me.ToolStripSeparator2.Size = New System.Drawing.Size(6, 40)
-        '
-        'ToolStripLabel2
-        '
-        Me.ToolStripLabel2.Name = "ToolStripLabel2"
-        Me.ToolStripLabel2.Size = New System.Drawing.Size(12, 37)
-        Me.ToolStripLabel2.Text = "0"
-        '
-        'btj_showimg
-        '
-        Me.btj_showimg.Alignment = System.Windows.Forms.ToolStripItemAlignment.Right
-        Me.btj_showimg.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Text
-        Me.btj_showimg.Image = CType(resources.GetObject("btj_showimg.Image"), System.Drawing.Image)
-        Me.btj_showimg.ImageTransparentColor = System.Drawing.Color.Magenta
-        Me.btj_showimg.Name = "btj_showimg"
-        Me.btj_showimg.Size = New System.Drawing.Size(87, 37)
-        Me.btj_showimg.Text = "구분그림보기"
-        Me.btj_showimg.Visible = False
-        '
-        'cmb_형태
-        '
-        Me.cmb_형태.DropDownStyle = System.Windows.Forms.ComboBoxStyle.Simple
-        Me.cmb_형태.FormattingEnabled = True
-        Me.cmb_형태.Location = New System.Drawing.Point(22, 225)
-        Me.cmb_형태.Name = "cmb_형태"
-        Me.cmb_형태.NectControl = Nothing
-        Me.cmb_형태.Size = New System.Drawing.Size(152, 204)
-        Me.cmb_형태.TabIndex = 131
-        '
-        'bs_gubun
-        '
-        Me.bs_gubun.DataMember = "tbl_common"
-        Me.bs_gubun.DataSource = Me.DS
-        '
-        'bS_재료
-        '
-        Me.bS_재료.DataMember = "tbl_common"
-        Me.bS_재료.DataSource = Me.DS
-        '
         '커스텀
         '
         Me.커스텀.DataPropertyName = "커스텀"
@@ -791,6 +700,97 @@ Partial Class Frm_YK
         Me.Column1.Visible = False
         Me.Column1.Width = 35
         '
+        'bn_detail
+        '
+        Me.bn_detail.AddNewItem = Nothing
+        Me.bn_detail.AutoSize = False
+        Me.bn_detail.BindingSource = Me.bs_detail
+        Me.bn_detail.CountItem = Me.ToolStripLabel1
+        Me.bn_detail.DeleteItem = Nothing
+        Me.bn_detail.Dock = System.Windows.Forms.DockStyle.Bottom
+        Me.bn_detail.Font = New System.Drawing.Font("돋움", 8.999999!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(129, Byte))
+        Me.bn_detail.GripStyle = System.Windows.Forms.ToolStripGripStyle.Hidden
+        Me.bn_detail.ImageScalingSize = New System.Drawing.Size(20, 20)
+        Me.bn_detail.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.btj_add, Me.btj_del, Me.ToolStripSeparator2, Me.ToolStripLabel2, Me.ToolStripLabel1, Me.btj_showimg})
+        Me.bn_detail.Location = New System.Drawing.Point(0, 326)
+        Me.bn_detail.MoveFirstItem = Nothing
+        Me.bn_detail.MoveLastItem = Nothing
+        Me.bn_detail.MoveNextItem = Nothing
+        Me.bn_detail.MovePreviousItem = Nothing
+        Me.bn_detail.Name = "bn_detail"
+        Me.bn_detail.PositionItem = Me.ToolStripLabel2
+        Me.bn_detail.Size = New System.Drawing.Size(427, 40)
+        Me.bn_detail.TabIndex = 2
+        Me.bn_detail.Text = "BindingNavigator1"
+        '
+        'ToolStripLabel1
+        '
+        Me.ToolStripLabel1.Name = "ToolStripLabel1"
+        Me.ToolStripLabel1.Size = New System.Drawing.Size(33, 37)
+        Me.ToolStripLabel1.Text = "/{0}"
+        '
+        'btj_add
+        '
+        Me.btj_add.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
+        Me.btj_add.Image = Global.Eco2Ar.My.Resources.Resources.new_32
+        Me.btj_add.Name = "btj_add"
+        Me.btj_add.RightToLeftAutoMirrorImage = True
+        Me.btj_add.Size = New System.Drawing.Size(24, 37)
+        Me.btj_add.Text = "신규추가(&A)"
+        Me.btj_add.ToolTipText = "새로운 프로필을 추가합니다"
+        '
+        'btj_del
+        '
+        Me.btj_del.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
+        Me.btj_del.Image = Global.Eco2Ar.My.Resources.Resources.remov_32
+        Me.btj_del.Name = "btj_del"
+        Me.btj_del.RightToLeftAutoMirrorImage = True
+        Me.btj_del.Size = New System.Drawing.Size(24, 37)
+        Me.btj_del.Text = "선택삭제(&D)"
+        Me.btj_del.ToolTipText = "선택된 프로필을 삭제합니다"
+        '
+        'ToolStripSeparator2
+        '
+        Me.ToolStripSeparator2.Name = "ToolStripSeparator2"
+        Me.ToolStripSeparator2.Size = New System.Drawing.Size(6, 40)
+        '
+        'ToolStripLabel2
+        '
+        Me.ToolStripLabel2.Name = "ToolStripLabel2"
+        Me.ToolStripLabel2.Size = New System.Drawing.Size(12, 37)
+        Me.ToolStripLabel2.Text = "0"
+        '
+        'btj_showimg
+        '
+        Me.btj_showimg.Alignment = System.Windows.Forms.ToolStripItemAlignment.Right
+        Me.btj_showimg.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Text
+        Me.btj_showimg.Image = CType(resources.GetObject("btj_showimg.Image"), System.Drawing.Image)
+        Me.btj_showimg.ImageTransparentColor = System.Drawing.Color.Magenta
+        Me.btj_showimg.Name = "btj_showimg"
+        Me.btj_showimg.Size = New System.Drawing.Size(87, 37)
+        Me.btj_showimg.Text = "구분그림보기"
+        Me.btj_showimg.Visible = False
+        '
+        'cmb_형태
+        '
+        Me.cmb_형태.DropDownStyle = System.Windows.Forms.ComboBoxStyle.Simple
+        Me.cmb_형태.FormattingEnabled = True
+        Me.cmb_형태.Location = New System.Drawing.Point(22, 225)
+        Me.cmb_형태.Name = "cmb_형태"
+        Me.cmb_형태.NectControl = Nothing
+        Me.cmb_형태.Size = New System.Drawing.Size(152, 204)
+        Me.cmb_형태.TabIndex = 131
+        '
+        'bs_gubun
+        '
+        Me.bs_gubun.DataMember = "tbl_common"
+        Me.bs_gubun.DataSource = Me.DS
+        '
+        'bS_재료
+        '
+        Me.bS_재료.DataMember = "tbl_common"
+        Me.bS_재료.DataSource = Me.DS
+        '
         'Frm_YK
         '
         Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.None

ArinWarev1/Forms_Input/Frm_YK.vb

@@ -89,58 +89,9 @@
         Me.arindv1.EndEdit()
         Me.bs.EndEdit()
 
-        '//열관류율이 링크된 모든면의 건축부위 데이터를 열관류율 화면의 건축부위 데이터로 갱신
-        For Each Drow As DS.tbl_myounRow In DSET1.tbl_myoun
+        Pub.Update_열관류율_140409()
 
-            If Drow.RowState = DataRowState.Deleted OrElse Drow.RowState = DataRowState.Detached Then Continue For
-
-#If DEBUG Then
-            If Drow.code = "0009" Then
-                MsgBox("test")
-            End If
-#End If
-
-            If Drow.열관류율2 <> "0" Then
-                Try   '==========================================2014.04.17 열관류율 삭제시 코드번호가 남아 오류 발생하는 현상을 try 안으로 넣음
-                    Dim Dr As DS.tbl_ykRow = DSET1.tbl_yk.Select("code='" & Drow.열관류율2.ToString & "'")(0)
-                    Drow.건축부위방식 = Dr.면형태    '// 링크된 열관류율에서 면형태를 가져옴..
-                    Select Case Dr.면형태
-                        Case "외벽(벽체)", "0"
-                            Drow.건축부위방식 = "외벽"
-                        Case "외벽(지붕)", "0001"
-                            Drow.건축부위방식 = "외벽"
-                            'Drow.방위 = "수평"
-                        Case "외벽(바닥)", "0002"
-                            Drow.건축부위방식 = "외벽"
-                            'Drow.방위 = "일사없음"
-                        Case "내벽(벽체)", "0003", "지중벽", "0009"
-                            Drow.건축부위방식 = "내벽"
-                            Drow.방위 = "일사없음"
-                        Case "내벽(지붕)", "0004"
-                            Drow.건축부위방식 = "내벽"
-                            Drow.방위 = "일사없음"
-                        Case "내벽(바닥)", "0005"
-                            Drow.건축부위방식 = "내벽"
-                            Drow.방위 = "일사없음"
-                        Case "간벽", "0006"
-                            Drow.건축부위방식 = "간벽"
-                            Drow.방위 = "일사없음"
-                        Case "외부창", "0007"
-                            Drow.건축부위방식 = "외부창"
-                            'Drow.투과율 = Dr.일사에너지투과율
-                        Case "내부창", "0008"
-                            Drow.건축부위방식 = "내부창"
-                            'Drow.투과율 = Dr.일사에너지투과율
-                        Case Else
-                            MsgBox("모르는값 " & Dr("면형태").ToString & "/" & Dr.면형태)
-                    End Select
-
-                Catch ex As Exception
-
-                End Try
-            End If
-
-        Next
+        
 
     End Sub
 

ArinWarev1/Forms_Input/Frm_v20091231_Myoun.vb

@@ -1115,6 +1115,10 @@
             Me.cmb_건축부위방식.Enabled = False
             ' MsgBox(Me.cmb_열관류율.SelectedValue)
 
+
+            '//아래와동일한 코드 pub Update_열관류율_140409() 에 있음
+            '//변경시 같이 변경해야함 250710-2320
+
             Try
                 Dim Dr As DS.tbl_ykRow = DSET1.tbl_yk.Select("code='" & Me.cmb_열관류율.SelectedValue & "'")(0)
                 Dim dr2() As DS.tbl_commonRow = DSET1.tbl_common.Select("gubun='1088' and code='" & Dr("면형태").ToString & "'")