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

Imports System.IO
Imports System.Text
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
        Dim strDirNam As String = Path.Combine(Application.StartupPath, "GF00-ERP-UPDATE.EXE")
        If File.Exists(strDirNam) Then : File.Delete(strDirNam) : End If
        執行檔版本號_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
            Dim filePath As String = Path.Combine(Application.StartupPath, "HXSTYLE.txt")
            If File.Exists(filePath) Then
                Dim filereader = My.Computer.FileSystem.OpenTextFileReader(filePath, 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
        Dim filePath1 As String = Path.Combine(Application.StartupPath, "TEST.txt")
        If File.Exists(filePath1) 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 filePath2 As String = Path.Combine(Application.StartupPath, "TEST.txt")
                If File.Exists(filePath2) Then : File.Delete(filePath2) : End If
                strDirName = filePath2
                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")
            diskSerialNumber = cmicWmiObj("serialnumber")
            diskModel = cmicWmiObj("Model")
            Exit For
        Next
        '-----電腦預設值------------------------------------------------------------------------------------------------------------------------------------------------------------------
        SQL_連線字串_本機()
        電腦識別碼 = diskId & "_" & diskSerialNumber & "_" & diskModel : 電腦識別碼 = Replace(電腦識別碼, "'", "_")
        SQL_電腦預設值查詢() : 帳號_rtb.ImeMode = 2
        '-----不啟用WEB------------------------------------------------------------------------------------------------------------------------------------------------------------------
        Dim filePath3 As String = Path.Combine(Application.StartupPath, "NOPWEB.txt")
        If File.Exists(filePath3) 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

        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
                Dim filePath As String = Path.Combine(Application.StartupPath, "NOTAUTO.txt")
                If File.Exists(filePath) 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
                Dim filePath As String = Path.Combine(Application.StartupPath, "NOTAUTO.txt")
                If File.Exists(filePath) 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_連線字串_正式() : Else : 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 : 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")
            diskSerialNumber = cmicWmiObj("serialnumber")
            diskModel = cmicWmiObj("Model")
            Exit For
        Next
    End Sub
    Private Sub ConnectToDatabase()
        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 filePath As String = Path.Combine(Application.StartupPath, "NOTAUTO.txt")
        If File.Exists(filePath) 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 : filePath = Path.Combine(Application.StartupPath, "GF00UPDATE.txt")
            If File.Exists(filePath) Then : File.Delete(filePath) : End If
            strDirName = filePath
            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
                    登入程序() : 判斷重登 = 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
                        密碼驗證_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 filePath As String = Path.Combine(Application.StartupPath, "TEST.txt")
            If File.Exists(filePath) Then : File.Delete(filePath) : End If : strDirName = filePath
            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 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