1.기존 모델(스펙트럼-> 스코프), 보급형 모델(스코프 -> 스펙트럼) 생산검사1 에서 pcb write -> 검사2 에서 확인

2. 마름모 검사 시 화면 변경 안되는 경우 수정
3. 2.2.2 버전

ProductFunctionTester/Main_Form.Designer.vb

@@ -8588,7 +8588,7 @@ Partial Class Main_Form
         Me.gbLEDYellow1.Size = New System.Drawing.Size(314, 362)
         Me.gbLEDYellow1.TabIndex = 109
         Me.gbLEDYellow1.TabStop = False
-        Me.gbLEDYellow1.Text = "LDM attW TEST"
+        Me.gbLEDYellow1.Text = "LDM Watt TEST"
         '
         'gbYBgt1
         '

ProductFunctionTester/MySqlMoudule.vb

@@ -1,4 +1,4 @@
-Imports MySql.Data.MySqlClient
+Imports MySql.Data.MySqlClient
 Module MySqlMoudule
 
     Private Const LocalHostIP As String = "192.168.0.250"
@@ -68,25 +68,24 @@ Module MySqlMoudule
             DBClose()
             Return False
         End Try
-        End
     End Function
 
     Public Function DBQueryScalar(cmdStr As String) As String
-        Dim result As String
-
         Try
             Database_Use()
             sqlCmd.CommandText = cmdStr
             sqlCmd.Connection = sqlCon
-            result = sqlCmd.ExecuteScalar()    'SQL 명령을 실행하고, Query 가 리턴하는 첫번째 행의 첫번째 열을 리턴한다. 결과가 딱 1개인 집계함수(count, sum, avg 등)에 사용한다. 반환값은 object 형
+            Dim objResult As Object = sqlCmd.ExecuteScalar()    'SQL 명령을 실행하고, Query 가 리턴하는 첫번째 행의 첫번째 열을 리턴한다. 결과가 딱 1개인 집계함수(count, sum, avg 등)에 사용한다. 반환값은 object 형
 
-            Return result
+            If objResult Is Nothing OrElse IsDBNull(objResult) Then
+                Return "False"
+            End If
+            Return objResult.ToString()
 
         Catch ex As Exception
             MsgBox("MySQL Command Error:" + vbCrLf + Err.Description)
             Return "False"
         End Try
-        End
     End Function
 
     Public Function DBQueryReader(cmdStr As String) As Integer

ProductFunctionTester/PostgreSQLMoudule.vb

@@ -1,4 +1,4 @@
-Imports Npgsql
+Imports Npgsql
 
 Module PostgreSQLModule
     Private pgSqlCon As NpgsqlConnection = New NpgsqlConnection("Host=mes-db.postgres.database.azure.com;Username=jionmt@mes-db;Password=jmtdb6919!!pg;Database=mes-jion-data")
@@ -51,25 +51,25 @@ Module PostgreSQLModule
     End Function
 
     Public Function pgDBQueryScalar(cmdStr As String) As String
-        Dim result As String
-
         Try
             If pgDBOpen() Then
                 MsgBox("DB 연결을 진행할 수 없습니다.", vbCritical)
-                Return 0
+                Return "False"
             End If
 
             sqlCmd.CommandText = cmdStr
             sqlCmd.Connection = pgSqlCon
-            result = sqlCmd.ExecuteScalar()    'SQL 명령을 실행하고, Query 가 리턴하는 첫번째 행의 첫번째 열을 리턴한다. 결과가 딱 1개인 집계함수(count, sum, avg 등)에 사용한다. 반환값은 object 형
+            Dim objResult As Object = sqlCmd.ExecuteScalar()    'SQL 명령을 실행하고, Query 가 리턴하는 첫번째 행의 첫번째 열을 리턴한다. 결과가 딱 1개인 집계함수(count, sum, avg 등)에 사용한다. 반환값은 object 형
 
-            Return result
+            If objResult Is Nothing OrElse IsDBNull(objResult) Then
+                Return "False"
+            End If
+            Return objResult.ToString()
 
         Catch ex As Exception
             MsgBox("MySQL Command Error:" + vbCrLf + Err.Description)
             Return "False"
         End Try
-        End
     End Function
 
     Public Function pgDBQueryReader(cmdStr As String) As Integer