user id DB로그인 안되게 수정

디버깅이안되는 현상 있음

ArinWarev1/Forms_Input/Frm_kongjo.vb

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