GF00-ERP-SYS-LEEHSIEHJUI/GF00-ERP-SYS/登入畫面.vb

Imports System.IO
Imports System.Net
Imports System.Text
Imports System.Net.NetworkInformation
Imports System.Threading
Imports CefSharp.WinForms
Imports System.Data.SqlClient

Public Class 登入畫面
    Dim MACKK, diskId, diskSerialNumber, diskModel As String 'MAC碼
    Dim Str As String = Application.StartupPath
    Dim IP公, IP測1, IP測2, 印尼測試內網網段 As Boolean
    Dim FFGG, GGHH As Integer
    ReadOnly 對話框(15) As String
    ReadOnly ds2, ds3 As New DataSet
    Private Sub 登入畫面_Load(sender As Object, e As EventArgs) Handles MyBase.Load

        執行檔版本號_lb.Text = "執行檔版本號 : " & 版本
        Timer1.Enabled = True : IP公 = False : IP測1 = False : IP測2 = False ': Panel1.SendToBack()
        系統登入_dgv.RowsDefaultCellStyle.Font = New System.Drawing.Font("微軟正黑體", 7.6)
        '-----------------------控件基本設定-----------------------------------------------------------------------------------------------------------------------------------------------
        深色風格_ch.Visible = 風格啟用 : 系統語言_cb.Visible = 多國語言啟用 : 系統語言_lb.Visible = 多國語言啟用
        If 多國語言啟用 = False Then : 系統語言 = "繁體中文" : End If : 廟 = False
        公司線路_rb.Visible = 測試線路啟用 : 測試線路_rb.Visible = 測試線路啟用
        刷卡登入_ch.Checked = True : 登入綁定_ch.Checked = False : 公司線路_rb.Checked = True
        刷卡登入_ch.Visible = False : 登入綁定_ch.Visible = False : Panel1.SendToBack()

        If 風格啟用 = True Then
            If File.Exists(Str + "\HXSTYLE.txt") Then
                Dim filereader = My.Computer.FileSystem.OpenTextFileReader(Str + "\HXSTYLE.txt", System.Text.Encoding.Default)
                Dim Text As String = "" : Dim line As String = filereader.ReadLine()
                While Not (line Is Nothing) : Text = Text & line & vbCrLf : line = filereader.ReadLine() : End While : filereader.Close()
                If Strings.Left(Text, 1) = "B" Then : 深色風格_ch.Checked = False : 深色風格 = False
                ElseIf Strings.Left(Text, 1) = "W" Then : 深色風格_ch.Checked = True : 深色風格 = True : End If
            Else : 深色風格_ch.Checked = False : 深色風格 = False : End If
            風格()
        End If
        If File.Exists(Str + "\TEST.txt") Then
            Dim fileContent As String = File.ReadAllText(Str + "\TEST.txt")
            txt = fileContent
            ' 檢查內容是否符合特定格式
            If fileContent.Length >= 10 AndAlso fileContent(2) = "G" AndAlso fileContent(9) = "F" Then
                ' 從內容中提取資料庫編號
                Dim databaseID As String = fileContent(4) & fileContent(7)
                資料庫編號 = databaseID

            Else
                ' 內容不符合格式，顯示錯誤訊息並關閉程式
                MGB("錯誤，請通知系管理員", 1) : Me.Close()
            End If
        Else
            輸入密碼.ShowDialog()
            If PA = "0003065795" Then
                PA = InputBox("請輸入啟動碼!!", "啟用系統")
                Dim strDirName As String : Dim Strs As String = Application.StartupPath
                If File.Exists(Strs & "\TEST.txt") Then : File.Delete(Strs & "\TEST.txt") : End If
                strDirName = Strs & "\TEST.txt"
                Try
                    Using fs As IO.FileStream = New IO.FileStream(strDirName, FileMode.Append)
                        Using sw As StreamWriter = New StreamWriter(fs, Encoding.Default)
                            Dim str As String = PA
                            sw.WriteLine(str)   '插入一整行
                            sw.Flush()

                        End Using
                    End Using
                Catch ex As Exception
                End Try
                Application.Restart()
            Else
                MGB("驗證碼錯誤", 1) : Me.Close()
            End If

        End If
        '-----------------------調整視窗大小-----------------------------------------------------------------------------------------------------------------------------------------------
        Me.Size = New Size(460, 280)
        Dim screenBounds As Rectangle = Screen.PrimaryScreen.Bounds
        Me.Left = (screenBounds.Width - Me.Width) / 2
        Me.Top = (screenBounds.Height - Me.Height) / 2
        '-----MAC碼與硬碟資料-------------------------------------------------------------------------------------------------------------------------------------------------------------
        Dim Wmi As New Management.ManagementObjectSearcher("SELECT * FROM Win32_NetworkAdapterConfiguration")
        For Each WmiObj As Management.ManagementObject In Wmi.Get
            If CBool(WmiObj("IPEnabled")) Then
                MACKK = WmiObj("MACAddress")
            End If
        Next
        Dim cmicWmi As New Management.ManagementObjectSearcher("SELECT * FROM Win32_DiskDrive")
        For Each cmicWmiObj As Management.ManagementObject In cmicWmi.Get
            diskId = cmicWmiObj("size")             'diskId = cmicWmiObj("signature")
            diskSerialNumber = cmicWmiObj("serialnumber")
            diskModel = cmicWmiObj("Model")
            Exit For
        Next
        '-----電腦預設值------------------------------------------------------------------------------------------------------------------------------------------------------------------
        SQL_連線字串_本機()
        電腦識別碼 = diskId & "_" & diskSerialNumber & "_" & diskModel : 電腦識別碼 = Replace(電腦識別碼, "'", "_")
        SQL_電腦預設值查詢()  'If Acdr.Read() Then : 系統語言 = Acdr("系統語言") : Else : 系統語言 = "繁體中文" : End If : Access1.Close()
        帳號_rtb.ImeMode = 2
        '-----不啟用WEB------------------------------------------------------------------------------------------------------------------------------------------------------------------
        If File.Exists(Str + "\NOPWEB.txt") Then
            Dim filereader = My.Computer.FileSystem.OpenTextFileReader(Str + "\NOPWEB.txt", System.Text.Encoding.Default)
            Dim Text As String = "" : Dim line As String = filereader.ReadLine()
            While Not (line Is Nothing) : Text = Text & line & vbCrLf : line = filereader.ReadLine() : End While : filereader.Close()
            If Strings.Left(Text, 2) = "NO" Then : 不啟用WEB_cb.Checked = False
            ElseIf Strings.Left(Text, 3) = "YES" Then : 不啟用WEB_cb.Checked = True : End If
        Else : 不啟用WEB_cb.Checked = False : End If
        If 不啟用WEB_cb.Checked = False Then : 不用WEB = False : Else : 不用WEB = True : End If
        計算分流1.Enabled = True
    End Sub
    Private Sub 計算分流1_Tick(sender As Object, e As EventArgs) Handles 計算分流1.Tick
        '-----------------------系統版本號驗證-----------------------------------------------------------------------------------------------------------------------------------------------
        計算分流1.Enabled = False : 介面 = "H000"

        PA49 = "mssql-147629-0.cloudclusters.net,12711"
        IP公 = True : IP測1 = True : IP測2 = True : 伺服器區域_cb.Text = "正式" : 公司線路_rb.Checked = True : 測試線路_rb.Checked = False : 內網線路 = True
        確定_rbt.Enabled = True : 取消_rbt.Enabled = True : 刷卡登入_ch.Checked = True
        'IP比對()
        SQL_系統版本號驗證()
        If dr.Read() Then : 資料庫版本 = dr("系統認證版本號") : 版本號 = dr("系統認證版本號") : End If : conn.Close()
        If Strings.Right(執行檔版本號_lb.Text, 10) <> Strings.Right(資料庫版本號_lb.Text, 10) Then
            登入() : 自動更新2()
        Else : End If
    End Sub

    Private Function ScaleImage(ByVal img As Image, ByVal size As Size) As Image
        Dim newImage As New Bitmap(size.Width, size.Height)
        Using graphics As Graphics = Graphics.FromImage(newImage)
            graphics.InterpolationMode = Drawing2D.InterpolationMode.HighQualityBicubic
            graphics.DrawImage(img, New Rectangle(0, 0, size.Width, size.Height))
        End Using
        Return newImage
    End Function
    Private Sub IP比對()
        If SQL_連線狀態模組1.ConnectTest1("mssql-147629-0.cloudclusters.net,12711") = True Then
            '---主伺服器導通-------------------------------------------
            PA49 = "mssql-147629-0.cloudclusters.net,12711"
            IP公 = True : IP測1 = True : IP測2 = True : 伺服器區域_cb.Text = "正式" : 公司線路_rb.Checked = True : 測試線路_rb.Checked = False : 內網線路 = True
            確定_rbt.Enabled = True : 取消_rbt.Enabled = True : 刷卡登入_ch.Checked = True

        Else
            If SQL_連線狀態模組2.ConnectTest2("106.1.48.106,4567") = True Then
                '---主伺服器導通-------------------------------------------
                對話框(1) = "正式資料庫無法連線，請通知系統管理員!!"
                MGB(對話框(1), 1)
                PA49 = "106.1.48.106,4567"
                IP公 = True : IP測1 = True : IP測2 = True : 伺服器區域_cb.Text = "測試" : 公司線路_rb.Checked = True : 測試線路_rb.Checked = False : 內網線路 = True
                確定_rbt.Enabled = True : 取消_rbt.Enabled = True : 刷卡登入_ch.Checked = True

            Else
                對話框(1) = "正式及測試資料庫皆無法連線，請通知系統管理員!!"
                MGB(對話框(1), 1) : Me.Close()
            End If

        End If
    End Sub
    Private Sub ComboBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles 伺服器區域_cb.SelectedIndexChanged
        '-----------------------確認登入伺服器位置-----------------------------------------------------------------------------------------------------------------------------------------
        If 伺服器區域_cb.Text = "正式" Then
            If IP公 = True Then : 登入人IP = "mssql-147629-0.cloudclusters.net,12711"
                登入() : 確定_rbt.Enabled = True : 取消_rbt.Enabled = True : 刷卡登入_ch.Checked = True
                If File.Exists(Str + "\NOTAUTO.txt") Then : Me.Text = "GF" & 資料庫編號 & "-ERP-SYS  Line : M " : Else : Me.Text = "GF" & 資料庫編號 & "-ERP-SYS  Line : M" : End If
            Else : MGB(對話框(11), 1) : Me.Close() : End If

        ElseIf 伺服器區域_cb.Text = "測試" Then
            If IP公 = True Then : 登入人IP = "mssql-147629-0.cloudclusters.net,12711" : 資料庫編號 = "99"
                登入() : 確定_rbt.Enabled = True : 取消_rbt.Enabled = True : 刷卡登入_ch.Checked = True
                If File.Exists(Str + "\NOTAUTO.txt") Then : Me.Text = "GF" & 資料庫編號 & "-ERP-SYS  Line : T " : Else : Me.Text = "GF" & 資料庫編號 & "-ERP-SYS  Line : T" : End If
            Else : MGB(對話框(11), 1) : Me.Close() : End If
        End If : 帳號_rtb.Focus()
    End Sub
    Private Sub 登入()

        '-----------------------寫入連線字串-----------------------------------------------------------------------------------------------------------------------------------------------
        If Strings.Left(伺服器區域_cb.Text, 2) = "正式" Or Strings.Left(伺服器區域_cb.Text, 2) = "正式" Then
            SQL_連線字串_正式() ': SQL_連線字串_正式_工程SQL() : SQL_連線字串_正式_管理SQL()'
        Else
            'SQL_連線字串_測試() : SQL_連線字串_測試_工程SQL() : SQL_連線字串_測試_管理SQL()
            SQL_連線字串_正式() ': SQL_連線字串_正式_工程SQL() : SQL_連線字串_正式_管理SQL()'
        End If
        驗證_tb.Text = "1" : g_conn_type = 伺服器區域_cb.Text & "伺服器"
        '-----------------------系統是否鎖定-----------------------------------------------------------------------------------------------------------------------------------------------
        SQL_讀取鎖定()
        If dr.Read() Then
            Dim ch As Boolean = dr("系統鎖定")
            If ch = True Then
                退出.ShowDialog() : 退出.BringToFront()
                Return
            End If
        End If : conn.Close()
        '-----------------------讀取圖片------------
        SQL_取得登入圖檔()
        While dr.Read() = True
            Dim unused As Byte() = New Byte(-1) {}
            Dim bytes As Byte() = DirectCast(dr.Item("簽名檔圖片"), Byte())
            Dim oStream As New MemoryStream(bytes)
            PictureBox1.Image = Bitmap.FromStream(oStream)
        End While
        '-----------------------系統版本號寫入-----------------------------------------------------------------------------------------------------------------------------------------------
        SQL_系統版本號驗證()
        If dr.Read() Then : 資料庫版本 = dr("系統認證版本號") : 版本號 = dr("系統認證版本號") : End If : conn.Close()
        '-----------------------FTP資料夾登入位置宣告--------------------------------------------------------------------------------------------------------------------------------------
        SQL_FTP伺服器登入位置()
        If dr.Read() Then
            Target = dr("FTP地址") : FTP帳號 = dr("FTP帳號") : FTP密碼 = dr("FTP密碼") : FTP物理位置 = dr("FTP物理位置")
        End If : conn.Close()
        Set_清單1()
        Dim HH As String
        For i As Integer = 0 To ftp清單_dgv.Rows.Count - 1
            If i < 10 Then : HH = "0" & i : ElseIf i >= 10 Then : HH = i : End If
            If ftp清單_dgv("指定", i).Value.ToString = "AA" & HH Then : AA(i) = ftp清單_dgv("資料夾名稱", i).Value.ToString : End If
        Next
        If 多國語言啟用 = True Then
            'Set_語言導入() : conn.Close() : 語言轉換讀取()
            'SQL_系統語言() : 系統語言_cb.Items.Clear() : While (dr.Read()) : 系統語言_cb.Items.Add(dr("語言")) : End While : conn.Close()
        Else
            語言轉換讀取()
            資料庫版本號_lb.Text = "資料庫版本號 : " & 資料庫版本
        End If
        '-----MAC碼與硬碟資料-------------------------------------------------------------------------------------------------------------------------------------------------------------
        Dim Wmi As New Management.ManagementObjectSearcher("SELECT * FROM Win32_NetworkAdapterConfiguration")
        For Each WmiObj As Management.ManagementObject In Wmi.Get
            If CBool(WmiObj("IPEnabled")) Then
                MACKK = WmiObj("MACAddress")
            End If
        Next
        Dim cmicWmi As New Management.ManagementObjectSearcher("SELECT * FROM Win32_DiskDrive")
        For Each cmicWmiObj As Management.ManagementObject In cmicWmi.Get
            diskId = cmicWmiObj("size")             'diskId = cmicWmiObj("signature")
            diskSerialNumber = cmicWmiObj("serialnumber")
            diskModel = cmicWmiObj("Model")
            Exit For
        Next
        '-----電腦預設值------------------------------------------------------------------------------------------------------------------------------------------------------------------
        'SQL_連線字串_本機()
        '電腦識別碼 = diskId & "_" & diskSerialNumber & "_" & diskModel
        '電腦識別碼 = Replace(電腦識別碼, "'", "_")
        'SQL_電腦預設值查詢()
        'If Acdr.Read() Then
        '    低網速模式_ch.Checked = Acdr("低網速模式") : 低網速模式 = Acdr("低網速模式")
        '    系統語言_cb.Text = Acdr("系統語言")
        'Else
        '    SQL_電腦預設值建檔() : Access1.Close() : 系統語言_cb.Text = "繁體中文" : Access1.Close() : Exit Sub
        'End If : Access1.Close()
    End Sub
    Private Sub ConnectToDatabase()
        ' 连接数据库的代码
        ' ...

        ' 进行 SQL 语句执行或其他操作
        SQL_系統版本號驗證()

        ' 如果读取成功，则获取版本号
        If dr.Read() Then
            資料庫版本 = dr("系統認證版本號")
            版本號 = dr("系統認證版本號")
        End If

        ' 关闭数据库连接
        conn.Close()
    End Sub
    Private Sub Set_清單1()
        ftp清單_dgv.DataSource = Nothing : ds2.Clear()
        ftp清單_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
        ftp清單_dgv.ColumnHeadersHeight = 25
        ftp清單_dgv.AllowUserToAddRows = False
        SQL_FTP資料夾路徑分配()
        da.Fill(ds2) : ftp清單_dgv.DataSource = ds2.Tables(0) : conn.Close()
    End Sub
    Private Sub 自動更新2()
        Dim Str As String = Application.StartupPath
        If File.Exists(Str + "\NOTAUTO.txt") Then
            If 帳號_rtb.Text = "b70340" Or 帳號_rtb.Text = "B70340" Then : Else : End If
        Else
            SQL_系統認證版本號查詢()
            If dr.Read() Then
                If Strings.Right(執行檔版本號_lb.Text, 10) = dr("小更新1").ToString Or Strings.Right(執行檔版本號_lb.Text, 10) = dr("小更新2").ToString Or
               Strings.Right(執行檔版本號_lb.Text, 10) = dr("小更新3").ToString Or Strings.Right(執行檔版本號_lb.Text, 10) = dr("小更新4").ToString Or
               Strings.Right(執行檔版本號_lb.Text, 10) = dr("小更新5").ToString Then : PA = "1"
                ElseIf Strings.Right(執行檔版本號_lb.Text, 10) = dr("中更新1").ToString Or Strings.Right(執行檔版本號_lb.Text, 10) = dr("中更新2").ToString Or
                   Strings.Right(執行檔版本號_lb.Text, 10) = dr("中更新3").ToString Or Strings.Right(執行檔版本號_lb.Text, 10) = dr("中更新4").ToString Or
                   Strings.Right(執行檔版本號_lb.Text, 10) = dr("中更新5").ToString Then : PA = "2"
                Else : PA = "3" : End If
            End If : conn.Close() : PA = "1"
            Dim strDirName As String : Dim Strs As String = Application.StartupPath
            If File.Exists(Strs & "\GF00UPDATE.txt") Then : File.Delete(Strs & "\GF00UPDATE.txt") : End If
            strDirName = Strs & "\GF00UPDATE.txt"
            Try
                Using fs As IO.FileStream = New IO.FileStream(strDirName, FileMode.Append)
                    Using sw As StreamWriter = New StreamWriter(fs, Encoding.Default)
                        Dim strd As String = PA
                        sw.WriteLine(strd)   '插入一整行
                        sw.Flush()
                    End Using
                End Using
            Catch ex As Exception
            End Try
            My.Computer.Network.DownloadFile(Target & AA(0) & "/" & "GF00-ERP-UPDATE.exe", Str & "\GF00-ERP-UPDATE.exe")
            Shell(Str & "\GF00-ERP-UPDATE.exe", vbNormalFocus) : Me.Close()
        End If
    End Sub
    Private Sub OK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 確定_rbt.Click
        系統語言_cb.Text = "繁體中文"
        If 系統語言_cb.Text = " " Or 系統語言_cb.Text = "" Then : MGB(對話框(9), 1)
        Else
            '-----電腦綁定判斷-------------------------------------------------------------------------------------------------------------------------------------------------------------
            If 登入綁定_ch.Checked = True Then
                PA1 = MACKK : PA2 = diskId : PA3 = diskSerialNumber : PA4 = diskModel
                SQL_電腦綁定()
                If dr.Read() Then
                    conn.Close() : 登入第一層()
                Else
                    If 帳號_rtb.Text = "b70340" Or 帳號_rtb.Text = "B70340" Then
                        conn.Close() : 登入第一層()
                    Else
                        conn.Close() : MGB(對話框(6), 1) : Me.Close()
                    End If
                End If
            Else
                conn.Close() : 登入第一層()
            End If
        End If
    End Sub
    Private Sub 登入第一層()
        If 帳號_rtb.Text = "b70340" Or 帳號_rtb.Text = "B70340" Then
            If Strings.Right(執行檔版本號_lb.Text, 10) <> Strings.Right(資料庫版本號_lb.Text, 10) Then
                If 伺服器區域_cb.Text = "測試雲端" Then
                    自動更新2()
                    登入程序() : 判斷重登 = False
                Else
                    MGB(對話框(1), 1)
                    登入程序() : 判斷重登 = False
                End If
            Else
                登入程序() : 判斷重登 = False
            End If
        Else
            If Strings.Right(執行檔版本號_lb.Text, 10) <> Strings.Right(資料庫版本號_lb.Text, 10) Then
                If 伺服器區域_cb.Text = "測試雲端" Then
                    自動更新2()
                Else
                    MGB(對話框(1), 1)
                End If
            Else
                登入程序() : 判斷重登 = False
            End If
        End If
    End Sub

    Private Sub 登入程序()
        If 帳號_rtb.Text = "" Then : MGB(對話框(2), 1) : ElseIf 帳號_rtb.Text <> "" Then
            If 帳號_rtb.Text = "" Then : MGB(對話框(3), 1) : ElseIf 帳號_rtb.Text <> "" Then
                If 驗證_tb.Text = "1" Then
                    SQL_使用者級別宣告() : If dr.Read() Then : 登入人級別 = dr("級別").ToString : End If
                    'SQL_系統預設值()
                    'If dr.Read() Then
                    '密碼時限 = dr("密碼重設天數") : 行政採購簽核級別基數 = dr("行政採購二級") : 建築採購簽核級別基數 = dr("建築採購二級")
                    '比例1 = dr("比例1") : 比例2 = dr("比例2") : 比例3 = dr("比例3") : 分母 = dr("圖片伺服器上限") : 工程圖庫限制 = dr("圖片伺服器上限")
                    'End If
                    SQL_使用者權限宣告()
                    If dr.Read() Then
                        密碼驗證_tb.Text = dr("密碼").ToString : 密碼日期_tb.Text = dr("密碼日期").ToString
                        gUserName = dr("姓名").ToString : 登入人部門 = dr("部門").ToString : 登入人課別 = dr("課別").ToString
                        登入人組別 = dr("組別").ToString
                        For I As Integer = 1 To 權限數量 : CC(I) = dr.Item(I + 8 - 1) : Next
                        FFGG = DateDiff("d", 密碼日期_tb.Text, Format(Today(), "yyyy/MM/dd"))
                        If CC(45) = True Then : GGHH = 密碼時限 - FFGG
                            If GGHH <= 0 Then
                                MGB(對話框(4), 1) : 個人帳號管理.ShowDialog()
                            Else : 登入第二層() : End If
                        Else : 登入第二層() : End If
                    Else : MGB(對話框(15), 1) : End If : dr.Close()
                End If
            End If
        End If
        conn.Close()
    End Sub

    Private Sub 進行下載_lb_Click(sender As Object, e As EventArgs) Handles 進行下載_lb.Click
        自動更新2()
    End Sub

    Private Sub 隱藏開關_lb_Click(sender As Object, e As EventArgs) Handles 隱藏開關_lb.Click
        輸入密碼.ShowDialog()
        If PA = "0003065795" Then
            PA = InputBox("請輸入啟動碼!!", "啟用系統", txt)
            Dim strDirName As String : Dim Strs As String = Application.StartupPath
            If File.Exists(Strs & "\TEST.txt") Then : File.Delete(Strs & "\TEST.txt") : End If
            strDirName = Strs & "\TEST.txt"
            Try
                Using fs As IO.FileStream = New IO.FileStream(strDirName, FileMode.Append)
                    Using sw As StreamWriter = New StreamWriter(fs, Encoding.Default)
                        Dim str As String = PA
                        sw.WriteLine(str)   '插入一整行
                        sw.Flush()

                    End Using
                End Using
            Catch ex As Exception
            End Try
            Application.Restart()
        Else

        End If
    End Sub

    Private Sub 登入第二層()
        If 密碼_rtb.Text = 密碼驗證_tb.Text Then
            If 密碼驗證_tb.Text = "" Then : MGB(對話框(5), 1)
            Else
                Me.Hide() : Timer1.Enabled = False
                ICS_ASMS_ERP_SYS.Show() : 密碼_rtb.Text = "" : 帳號_rtb.Text = ""
            End If
        ElseIf 密碼_rtb.Text <> 密碼驗證_tb.Text Then : MGB(對話框(5), 1)
        End If
    End Sub
    Private Sub UsernameTextBox_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles 帳號_rtb.KeyPress
        If e.KeyChar = ChrW(13) Then
            Me.確定_rbt.PerformClick()
        End If
    End Sub
    Private Sub PasswordTextBox_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles 密碼_rtb.KeyPress
        If e.KeyChar = ChrW(13) Then
            Me.確定_rbt.PerformClick()
        End If
    End Sub
    Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
        '-----------------------刪除自動更新項目-------------------------------------------------------------------------------------------------------------------------------------------
        Dim 已開啟 As Boolean = False
        Dim Strs As String = Application.StartupPath
        If File.Exists(My.Computer.FileSystem.SpecialDirectories.Desktop & "\GF00-ERP-UPDATE.exe") Then
            Dim pro() As Process = System.Diagnostics.Process.GetProcesses()
            ' 判斷是否有符合的Process
            For Each process As Process In pro
                If ("GF00-ERP-UPDATE").Equals(process.ProcessName) Then
                    已開啟 = True
                End If
            Next
            If 已開啟 = False Then
                Timer1.Enabled = False
                If File.Exists(Str + "\GF00-ERP-UPDATE.exe") Then : File.Delete(Str + "\GF00-ERP-UPDATE.exe") : End If
            End If
        ElseIf File.Exists(Strs & "\GF00-ERP-UPDATE.exe") Then
            Dim pro() As Process = System.Diagnostics.Process.GetProcesses()
            ' 判斷是否有符合的Process
            For Each process As Process In pro
                If ("GF00-ERP-UPDATE").Equals(process.ProcessName) Then
                    已開啟 = True
                End If
            Next
            If 已開啟 = False Then
                Timer1.Enabled = False
                If File.Exists(Str + "\GF00-ERP-UPDATE.exe") Then : File.Delete(Str + "\GF00-ERP-UPDATE.exe") : End If
            End If
        End If
    End Sub
    Private Sub Cancel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 取消_rbt.Click
        Me.Close()
    End Sub
    Private Sub 風格()

    End Sub
    Private Sub UsernameTextBox_TextChanged(sender As Object, e As EventArgs) Handles 帳號_rtb.TextChanged

        If IsNumeric(帳號_rtb.Text) = True Then
            If 帳號_rtb.Text.Length = 10 Then
                SQL_刷卡登入()
                If dr.Read() Then
                    帳號_rtb.Text = dr("帳號").ToString : 密碼_rtb.Text = dr("密碼").ToString : conn.Close()
                Else
                    帳號_rtb.Text = "" : 密碼_rtb.Text = "" : conn.Close()
                End If
                Me.確定_rbt.PerformClick() : Exit Sub
            End If
        End If

    End Sub
    Private Sub 語言轉換讀取()
        對話框(0) = "所選擇服務器不是台灣服務器，請連線該服務器所在網域的VPN，確保連線正常後重新選擇伺服器!"
        對話框(1) = "系統版本號 與 資料庫版本號 對應不上，請下載最新的執行檔。"
        對話框(2) = "請輸入帳號! 如使用刷登入，請確定該卡片有合法註冊!"
        對話框(3) = "請輸入帳號!"
        對話框(4) = "密碼過期!"
        對話框(5) = "帳號或密碼錯誤，請重新輸入!"
        對話框(6) = "該電腦沒有註冊，無法使用系統。"
        對話框(7) = "下載完成，請手動刪除就的執行檔，並且用新的執行檔開啟。"
        對話框(8) = "操作不正確，請用手動方式下載更新。"
        對話框(9) = "未選擇語言"
        對話框(10) = "請輸入 小更新 [1]、中更新 [2]、大更新 [3] !!"
        對話框(11) = "網路錯誤，無法連線!!"
        對話框(12) = "正式資料庫無法連線，請通知系統管理員!!"
        對話框(13) = "線路轉換完成!!"
        對話框(14) = "正式,測試資料庫無法使用!!"
        對話框(15) = "帳號錯誤，請重新輸入!!"
    End Sub
End Class