20201001備份

Signed-off-by: B70340 <b70340@gmail.com>

YD-REG-SYS/SQL_Module.vb

         ConString = "Data Source=106.1.50.79;Initial Catalog=YD-SERVER;Persist Security Info=True;User ID=B70340;Password=Lee0911274990;Max pool size = 200;Connection Timeout=0"
     End Sub
     Friend Sub SQL_連線字串_正式()
-        'ConString = "Data Source=" & 登入人IP & ";Initial Catalog=MAO-ORANGE-ERP-SYS;Persist Security Info=True;User ID=B70340;Password=0911274990;Max pool size = 200;Connection Timeout=0"
+        ConString = "Data Source=180.218.213.39;Initial Catalog=YD-SERVER;Persist Security Info=True;User ID=B70340;Password=Lee0911274990;Max pool size = 200;Connection Timeout=0"
     End Sub
 End Module

YD-REG-SYS/YD-REG-SYS.vb

     Private Sub YD_REG_SYS_Load(sender As Object, e As EventArgs) Handles MyBase.Load
         網段.ShowDialog()
         If 登入判斷 = True Then
-            MsgBox("該伺服器尚未建置，請選擇測試線路。") : Me.Close()
-            'SQL_連線字串_正式()
+            SQL_連線字串_正式()
         ElseIf 登入判斷 = False Then
             SQL_連線字串_測試()
         End If
         conn.Close()
         If conn.State = ConnectionState.Closed Then : conn.ConnectionString = ConString : conn.Open() : End If
         SQL1 = "SELECT MAC碼 FROM 系統綁定電腦資訊 
-                WHERE MAC碼 LIKE N'" & MAC碼_tb.Text & "' AND 硬碟ID LIKE N'" & 硬碟ID_tb.Text & "' AND 硬碟序列 LIKE N'" & 硬碟序列_tb.Text & "' AND 磁盘型態 LIKE N'" & 磁盘型態_tb.Text & "'"
+                WHERE  硬碟ID LIKE N'" & 硬碟ID_tb.Text & "' AND 硬碟序列 LIKE N'" & 硬碟序列_tb.Text & "' AND 磁盘型態 LIKE N'" & 磁盘型態_tb.Text & "'"
         cmd.CommandText = SQL1 : cmd.Connection = conn : dr = cmd.ExecuteReader
         If dr.Read() Then
             conn.Close()