Imports System.Drawing Imports System.Net Imports System.Windows.Forms 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 Dim MACKK As String 'MAC碼 Dim diskId As String '數字ID Dim diskSerialNumber As String '硬碟序列 Dim diskModel As String '磁盘型態 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 And 內外網 = False Then 伺服器區域_ch.Text = "懋桔內網" : 確認_bt.Enabled = True : 取消_bt.Enabled = True : 刷卡登入_ch.Checked = True ElseIf 登入判斷 = True And 內外網 = True Then 伺服器區域_ch.Text = "懋桔外網" : 確認_bt.Enabled = True : 取消_bt.Enabled = True : 刷卡登入_ch.Checked = True ElseIf 登入判斷 = False And 內外網 = 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 '-----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 '-----電腦綁定判斷------------------------------------------------------------------------------------------------------------------------------------------------------------- PA1 = MACKK : PA2 = diskId : PA3 = diskSerialNumber : PA4 = diskModel SQL_電腦綁定() If dr.Read() Then conn.Close() Else conn.Close() : MsgBox("該電腦沒有註冊，無法使用系統。") : Me.Close() End If End Sub Private Sub 伺服器區域_ch_SelectedIndexChanged(sender As Object, e As EventArgs) Handles 伺服器區域_ch.SelectedIndexChanged '-----------------------確認登入伺服器位置----------------------------------------------------------------------------------------------------------------------------------------- If 登入判斷 = True And 內外網 = False Then 登入人IP = "192.168.0.199,2433" : 登入() : 確認_bt.Enabled = True : 取消_bt.Enabled = True : 刷卡登入_ch.Checked = True ElseIf 登入判斷 = True And 內外網 = True Then 登入人IP = "59.127.190.74,2433" : 登入() : 確認_bt.Enabled = True : 取消_bt.Enabled = True : 刷卡登入_ch.Checked = True ElseIf 登入判斷 = False And 內外網 = False 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