user id DB로그인 안되게 수정

디버깅이안되는 현상 있음

ArinWarev1/Calculator/Calculator.vb

@@ -205,7 +205,7 @@
                 Exit While
             End If
 
-          
+
 
             '//변경될 온도정보를 가지고 다시 계산합니다.
             If Me.Start("설계개선작업(" + (오차계산횟수 + 1).ToString() + "/" + 오차재계산횟수.ToString + ")" + vbCrLf + vbCrLf + _
@@ -346,6 +346,8 @@
             'log.AppendLine(">>주계산시작")
         End If
 
+
+
         '//사용자가입력한 1차에너지사용량(=월별에너지사용량)을 변환계수를 이용해 값을 생성한다.
         DSETR1.월별1차에너지사용량.Rows.Clear() : DSETR2.월별1차에너지사용량.Rows.Clear()
         DSETR1.월별1차에너지사용량.AcceptChanges() : DSETR2.월별1차에너지사용량.AcceptChanges()
@@ -356,6 +358,8 @@
         DSETR2.월별1차에너지사용량.Merge(DSETR1.월별1차에너지사용량)
         DSETR2.월별1차에너지사용량.AcceptChanges()
 
+
+
         Dim Retval As Boolean
         Select Case CalcType
             Case ECalc.All
@@ -527,6 +531,15 @@
         'DSET.tbl_kongjo.AcceptChanges()
         DSET.AcceptChanges()
 
+        '
+        Dim waterok As Boolean = True
+        For Each dr As DS.tbl_newRow In DSET1.tbl_new.Rows
+            If dr.기기종류 = "수열" AndAlso dr.가동연료.Contains("없음") Then '//
+                MsgBox("수열시스템의 가동연료가 정의되어 있지 않습니다.")
+                Return False
+            End If
+        Next
+
 
         '//그값이 존에잇어요?cnrkehlsrp?추가된게?공조기기요
         For Each Dr As DS.tbl_zoneRow In DSET.tbl_zone.Select("code <> '0'") '//모든존을 검사 없음(0)은 빼고