MAOJI-ERP-SYS-LEEHSIEHJUI/MaoOrange-Hongji/LoginForm1.vb

Imports System.Net
Public Class LoginForm1
    ' TODO: 插入程式碼，利用提供的使用者名稱和密碼執行自訂驗證
    ' (請參閱 https://go.microsoft.com/fwlink/?LinkId=35339)。
    ' 如此便可將自訂主體附加到目前執行緒的主體，如下所示: 
    '     My.User.CurrentPrincipal = CustomPrincipal
    ' 其中 CustomPrincipal 是用來執行驗證的 IPrincipal 實作。
    ' 接著，My.User 便會傳回封裝在 CustomPrincipal 物件中的識別資訊，
    ' 例如使用者名稱、顯示名稱等。
    ReadOnly ds2 As New DataSet
    Public Property Credentials As ICredentials
    ReadOnly screenWidth = Screen.PrimaryScreen.Bounds.Width
    ReadOnly screenHeight = Screen.PrimaryScreen.Bounds.Height
    Dim 鎖定 As Boolean
    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 LoginForm1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        '-----------------------控件基本設定-----------------------------------------------------------------------------------------------------------------------------------------------
        刷卡登入_ch.Checked = True : 刷卡登入_ch.Enabled = False : 登入綁定_ch.Checked = False : 登入綁定_ch.Enabled = False : 帳號_tb.Visible = False
        執行檔版本號_lb.Text = "執行檔版本號 : " & 版本
        網段.ShowDialog()
        If 登入判斷 = True Then
            伺服器區域_ch.Text = "懋桔" : 確認_bt.Enabled = True : 取消_bt.Enabled = True : 刷卡登入_ch.Checked = True
        ElseIf 登入判斷 = False Then
            伺服器區域_ch.Text = "設計" : 確認_bt.Enabled = True : 取消_bt.Enabled = True : 刷卡登入_ch.Checked = True
        End If
        '-----------------------調整視窗大小-----------------------------------------------------------------------------------------------------------------------------------------------
        Me.Size = New Size(466, 279)
        If screenWidth = 1920 And screenHeight = 1080 Then : Me.Location = New Point(727, 401)
        ElseIf screenWidth = 1366 And screenHeight = 768 Then : Me.Location = New Point(450, 245)
        ElseIf screenWidth = 1440 And screenHeight = 900 Then : Me.Location = New Point(487, 311)
        ElseIf screenWidth = 1280 And screenHeight = 1024 Then : Me.Location = New Point(407, 373)
        ElseIf screenWidth = 1600 And screenHeight = 900 Then : Me.Location = New Point(567, 311)
        End If

        Me.ActiveControl = 使用者帳號_cb
        '-----------------------系統鎖定判斷-----------------------------------------------------------------------------------------------------------------------------------------------
        SQL_系統版本號驗證()
        If dr.Read() Then : 鎖定 = dr("系統鎖定") : End If : conn.Close()
        If 鎖定 = True Then
            MsgBox("非系統功能因素造成目前系統已鎖定，無法開啟，請聯繫系統開發商。")
            Me.Close()
        End If
    End Sub
    Private Sub 伺服器區域_ch_SelectedIndexChanged(sender As Object, e As EventArgs) Handles 伺服器區域_ch.SelectedIndexChanged
        '-----------------------確認登入伺服器位置-----------------------------------------------------------------------------------------------------------------------------------------
        If 伺服器區域_ch.Text = "懋桔" Then
            登入人IP = "192.168.0.199" : 登入() : 確認_bt.Enabled = True : 取消_bt.Enabled = True : 刷卡登入_ch.Checked = True
        ElseIf 伺服器區域_ch.Text = "設計" Then
            登入人IP = "106.1.50.79" : 登入() : 確認_bt.Enabled = True : 取消_bt.Enabled = True : 刷卡登入_ch.Checked = True
        End If
    End Sub
    Private Sub 登入()
        '-----------------------寫入連線字串-----------------------------------------------------------------------------------------------------------------------------------------------
        If 伺服器區域_ch.Text = "設計" Then
            SQL_連線字串_測試()
        Else
            SQL_連線字串_正式()
        End If
        驗證_tb.Text = "1" : g_conn_type = 伺服器區域_ch.Text & "伺服器"
        '-----------------------系統版本號驗證-----------------------------------------------------------------------------------------------------------------------------------------------
        SQL_系統版本號驗證()
        If dr.Read() Then : 資料庫版本號_lb.Text = "資料庫版本號 : " & 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 = 0
        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
        Target1 = Target & AA(0) & "/"
        FTP執行檔_wb.Url = New Uri(Target1)

        SQL_帳號讀取()
        使用者帳號_cb.Items.Clear() : While (dr.Read()) : 使用者帳號_cb.Items.Add(dr("帳號")) : End While : conn.Close()

        If Strings.Right(執行檔版本號_lb.Text, 10) <> Strings.Right(資料庫版本號_lb.Text, 10) Then
            自動更新2()
        Else : End If

    End Sub
    Private Sub 自動更新1()
        Dim aa1 As MsgBoxResult
        aa1 = MsgBox("系統版本號 與 資料庫版本號 對應不上，請開發人員注意是否有其他人員修改。並決定是否下載最新的執行檔?", MsgBoxStyle.OkCancel)
        If aa1 = MsgBoxResult.Ok Then
            With SaveFileDialog1 : .Filter = "所有文件(*.exe)|*.exe" : End With
            SaveFileDialog1.FileName = "MAOJI-ERP-SYS - " & 版本號 & ".exe"
            SaveFileDialog1.ShowDialog()
            If Strings.Right(SaveFileDialog1.FileName, 30) = "MAOJI-ERP-SYS - " & 版本號 & ".exe" Then
                My.Computer.Network.DownloadFile(Target & AA(0) & "/" & "MAOJI-ERP-SYS - " & 版本號 & ".exe", SaveFileDialog1.FileName, "", "", True, 10000, True)
                MsgBox("下載完成，請手動刪除就的執行檔，並且用新的執行檔開啟。")
                Me.Close()
            Else
                MsgBox("操作不正確，請用手動方式下載更新。")
            End If
        Else
            登入程序()
        End If
    End Sub
    Private Sub 自動更新2()
        Dim aa1 As MsgBoxResult
        aa1 = MsgBox("系統版本號 與 資料庫版本號 對應不上，請下載最新的執行檔。", MsgBoxStyle.OkCancel)
        If aa1 = MsgBoxResult.Ok Then
            With SaveFileDialog1 : .Filter = "所有文件(*.exe)|*.exe" : End With
            SaveFileDialog1.FileName = "MAOJI-ERP-SYS - " & 版本號 & ".exe"
            SaveFileDialog1.ShowDialog()
            If Strings.Right(SaveFileDialog1.FileName, 30) = "MAOJI-ERP-SYS - " & 版本號 & ".exe" Then
                My.Computer.Network.DownloadFile(Target & AA(0) & "/" & "MAOJI-ERP-SYS - " & 版本號 & ".exe", SaveFileDialog1.FileName, "", "", True, 10000, True)
                MsgBox("下載完成，請手動刪除就的執行檔，並且用新的執行檔開啟。")
                Me.Close()
            Else
                MsgBox("操作不正確，請用手動方式下載更新。")
            End If
        End If
    End Sub
    Private Sub 登入第一層()
        If 帳號_tb.Text = "b70340" Or 帳號_tb.Text = "B70340" Then
            If Strings.Right(執行檔版本號_lb.Text, 10) <> Strings.Right(資料庫版本號_lb.Text, 10) Then : 自動更新1() : Else : 登入程序() : End If
        Else
            If Strings.Right(執行檔版本號_lb.Text, 10) <> Strings.Right(資料庫版本號_lb.Text, 10) Then : 自動更新2() : Else : 登入程序() : End If
        End If
    End Sub
    Private Sub 登入程序()
        If 帳號_tb.Text = "" Then
            MsgBox("請輸入帳號!   如使用刷登入，請確定該卡片有合法註冊!")
        ElseIf 帳號_tb.Text <> "" Then
            If 帳號_tb.Text = "" Then
                MsgBox("請輸入帳號!")
            ElseIf 帳號_tb.Text <> "" Then
                If 驗證_tb.Text = "1" Then
                    SQL_使用者權限宣告()
                    If dr.Read() Then
                        密碼驗證_tb.Text = dr("密碼").ToString : gUserName = dr("姓名").ToString
                        For I As Integer = 0 To 權限數量 : CC(I) = dr.Item(I + 3) : Next : 登入第二層()
                    End If : dr.Close()
                End If
            End If
        End If : conn.Close()
    End Sub
    Private Sub 登入第二層()
        If 密碼_tb.Text = 密碼驗證_tb.Text Then
            If 密碼驗證_tb.Text = "" Then
                MsgBox("帳號或密碼錯誤，請重新輸入!")
            Else
                Me.Hide() : MAOJI_ERP_SYS.Show() : 密碼_tb.Text = "" : 帳號_tb.Text = ""
            End If
        ElseIf 密碼_tb.Text <> 密碼驗證_tb.Text Then
            MsgBox("帳號或密碼錯誤，請重新輸入!")
        End If
    End Sub
    Private Sub OK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 確認_bt.Click
        登入第一層()
    End Sub
    Private Sub Cancel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 取消_bt.Click
        Me.Close()
    End Sub
    Private Sub CheckBox2_CheckedChanged(sender As Object, e As EventArgs) Handles 更新下載_ch.CheckedChanged
        If 更新下載_ch.Checked = False Then
            Me.Size = New Size(466, 279)
            If screenWidth = 1920 And screenHeight = 1080 Then : Me.Location = New Point(727, 401)
            ElseIf screenWidth = 1366 And screenHeight = 768 Then : Me.Location = New Point(450, 245)
            ElseIf screenWidth = 1440 And screenHeight = 900 Then : Me.Location = New Point(487, 311)
            ElseIf screenWidth = 1280 And screenHeight = 1024 Then : Me.Location = New Point(407, 373)
            ElseIf screenWidth = 1600 And screenHeight = 900 Then : Me.Location = New Point(567, 311)
            End If
        Else
            Me.Size = New Size(705, 279)
            If screenWidth = 1920 And screenHeight = 1080 Then : Me.Location = New Point(608, 401)
            ElseIf screenWidth = 1366 And screenHeight = 768 Then : Me.Location = New Point(331, 245)
            ElseIf screenWidth = 1440 And screenHeight = 900 Then : Me.Location = New Point(368, 311)
            ElseIf screenWidth = 1280 And screenHeight = 1024 Then : Me.Location = New Point(288, 373)
            ElseIf screenWidth = 1600 And screenHeight = 900 Then : Me.Location = New Point(448, 311)
            End If
        End If
    End Sub
    Private Sub UsernameTextBox_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles 帳號_tb.KeyPress
        If e.KeyChar = ChrW(13) Then : Me.確認_bt.PerformClick() : End If
    End Sub
    Private Sub PasswordTextBox_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles 密碼_tb.KeyPress
        If e.KeyChar = ChrW(13) Then : Me.確認_bt.PerformClick() : End If
    End Sub
    Private Sub UsernameTextBox_TextChanged(sender As Object, e As EventArgs) Handles 帳號_tb.TextChanged
        If 刷卡登入_ch.Checked = False Then
        Else
            If IsNumeric(帳號_tb.Text) = True Then
                If 帳號_tb.Text.Length = 10 Then
                    SQL_刷卡登入()
                    If dr.Read() Then
                        帳號_tb.Text = dr("帳號").ToString : 密碼_tb.Text = dr("密碼").ToString
                    Else
                        帳號_tb.Text = "" : 密碼_tb.Text = ""
                    End If : conn.Close()
                    Exit Sub : Me.確認_bt.PerformClick()
                End If
            End If
        End If
    End Sub
    Private Sub CheckBox1_CheckedChanged(sender As Object, e As EventArgs) Handles 刷卡登入_ch.Click
        Me.ActiveControl = 使用者帳號_cb
    End Sub
    Private Sub ComboBox2_SelectedIndexChanged(sender As Object, e As EventArgs) Handles 使用者帳號_cb.TextChanged
        帳號_tb.Text = 使用者帳號_cb.Text
    End Sub
End Class