BIFENG-REG-SYS-LEEHSIEHJUI/BIFENG-REG-SYS/網段.vb

Public Class 網段
    Private Sub 外網_bt_Click(sender As Object, e As EventArgs) Handles 外網_bt.Click
        If SQL_連線狀態模組1.ConnectTest1("180.177.181.162,5264") = True Then
            '---主伺服器導通-------------------------------------------
            ConString = "Data Source=180.177.181.162,5264;Initial Catalog=BIFENG-ERP-SYS;Persist Security Info=True;User ID=b70340;Password=0911274990;Max pool size = 200;Connection Timeout=0"
            Me.Close()
        Else
            MsgBox("系統伺服器無法導通，請聯繫 [工巧明智能企業有限公司] 技術人員協助處理!!") : 不通 = True : Me.Close()
        End If
    End Sub
    Private Sub 內網_bt_Click(sender As Object, e As EventArgs) Handles 內網_bt.Click
        If SQL_連線狀態模組1.ConnectTest1("192.168.12.127") = True Then
            '---主伺服器導通-------------------------------------------
            ConString = "Data Source=192.168.12.127;Initial Catalog=BIFENG-ERP-SYS;Persist Security Info=True;User ID=b70340;Password=0911274990;Max pool size = 200;Connection Timeout=0"
            Me.Close()
        Else
            MsgBox("電腦不再內網網段，請重新開啟系統選擇!!") : 不通 = True : Me.Close()
        End If
    End Sub
    Private Sub 網段_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        不通 = False
    End Sub
End Class