1. TD를 읽어올때(settdsn) 첫글자가 아스키코드 숫자 OR 대소문 알파벳범위가 아닐 경우 존재하지 않는 경우로 지정

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

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

ProductFunctionTester/SpectrumModule.vb

@@ -10,7 +10,7 @@
             mySpec = New Ivi.Visa.Interop.FormattedIO488
 
             mySpec.IO = myMgr.Open(SpecID)
-            'mySpec.IO.Clear()
+            mySpec.IO.Clear()
             mySpec.IO.Timeout = ToCount
 
             strQueryRes = SpecQueryStr("*IDN?")