20211101備份

工巧明智能管理系統/我的系統/Login.Designer.vb

@@ -30,6 +30,7 @@ Partial Class Login
     '請不要使用程式碼編輯器進行修改。
     <System.Diagnostics.DebuggerStepThrough()> _
     Private Sub InitializeComponent()
+        Me.components = New System.ComponentModel.Container()
         Dim DataGridViewCellStyle1 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
         Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(Login))
         Me.UsernameLabel = New System.Windows.Forms.Label()
@@ -54,6 +55,7 @@ Partial Class Login
         Me.Label3 = New System.Windows.Forms.Label()
         Me.Button1 = New System.Windows.Forms.Button()
         Me.ID卡號_tb = New System.Windows.Forms.TextBox()
+        Me.Timer1 = New System.Windows.Forms.Timer(Me.components)
         CType(Me.FDT_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.LogoPictureBox, System.ComponentModel.ISupportInitialize).BeginInit()
         Me.SuspendLayout()
@@ -259,7 +261,7 @@ Partial Class Login
         Me.Label3.Name = "Label3"
         Me.Label3.Size = New System.Drawing.Size(217, 80)
         Me.Label3.TabIndex = 681
-        Me.Label3.Text = "如果您的網頁沒有自動開啟，" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "請按下方按鈕，來開啟下載最" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "新版本的網頁。下載時請注意" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "防火牆或防毒軟體的阻擋!!"
+        Me.Label3.Text = "如果您的系統沒有自動開啟下" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "載，請按下方按鈕，來執行新" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "版本的更新。更新下載時請注" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "意防火牆或防毒軟體的阻擋!!"
         '
         'Button1
         '
@@ -267,7 +269,7 @@ Partial Class Login
         Me.Button1.Name = "Button1"
         Me.Button1.Size = New System.Drawing.Size(219, 94)
         Me.Button1.TabIndex = 680
-        Me.Button1.Text = "開啟下載網頁，下載最新根新版本"
+        Me.Button1.Text = "下載最新根新版本"
         Me.Button1.UseVisualStyleBackColor = True
         '
         'ID卡號_tb
@@ -280,6 +282,10 @@ Partial Class Login
         Me.ID卡號_tb.TabIndex = 682
         Me.ID卡號_tb.Visible = False
         '
+        'Timer1
+        '
+        Me.Timer1.Interval = 3000
+        '
         'Login
         '
         Me.AcceptButton = Me.OK
@@ -340,4 +346,5 @@ Partial Class Login
     Friend WithEvents Label3 As Label
     Friend WithEvents Button1 As Button
     Friend WithEvents ID卡號_tb As TextBox
+    Friend WithEvents Timer1 As Timer
 End Class

工巧明智能管理系統/我的系統/Login.resx

@@ -120,6 +120,9 @@
   <metadata name="SaveFileDialog1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
     <value>17, 17</value>
   </metadata>
+  <metadata name="Timer1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>161, 17</value>
+  </metadata>
   <assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
   <data name="$this.Icon" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
     <value>

工巧明智能管理系統/我的系統/Login.vb

@@ -32,11 +32,14 @@ Public Class Login
         SQL1 = "SELECT 資料夾名稱, 指定 FROM FTP資料夾管理"
         CmdSet_For_DGV() : da.Fill(ds2) : FDT_dgv.DataSource = ds2.Tables(0) : conn.Close()
     End Sub
-    <Obsolete>
-    Private Sub Login_Load(sender As Object, e As EventArgs) Handles MyBase.Load
+    Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
         '-----------------------刪除自動更新項目-----------------------------------------------------------------------------------------------------------------------------------------------
         Dim Str As String = Application.StartupPath
         If File.Exists(Str + "\SYS-UPDATE.exe") Then : File.Delete(Str + "\SYS-UPDATE.exe") : End If
+        Timer1.Enabled = False
+    End Sub
+    <Obsolete>
+    Private Sub Login_Load(sender As Object, e As EventArgs) Handles MyBase.Load
         '-----------------------控件基本設定-----------------------------------------------------------------------------------------------------------------------------------------------
         CheckBox1.Enabled = False : CheckBox3.Checked = True : CheckBox3.Enabled = False : CheckBox1.Enabled = False
         TextBox4.Text = "1"
@@ -64,6 +67,7 @@ Public Class Login
             ComboBox1.Text = "工巧明外網"
             OK.Enabled = True : Cancel.Enabled = True : CheckBox1.Checked = True
         End If
+        Timer1.Enabled = True
     End Sub
     <Obsolete>
     Private Sub ComboBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox1.SelectedIndexChanged

工巧明智能管理系統/我的系統/MyModule/SQL_連線字串.vb

@@ -3,6 +3,6 @@
         ConString = "Data Source=" & 登入人IP & ";Initial Catalog=我的資料庫;Persist Security Info=True;User ID=b70340;Password=0911274990;Max pool size = 200;Connection Timeout=0"
     End Sub
     Friend Sub SQL_連線字串_考勤()
-        ConString1 = "Data Source=106.1.50.79;Initial Catalog=GCM_AM_SYS;Persist Security Info=True;User ID=B70340;Password=Lee0911274990;Max pool size = 200;Connection Timeout=0"
+        ConString1 = "Data Source=106.1.48.106,4567;Initial Catalog=GCM_AM_SYS;Persist Security Info=True;User ID=B70340;Password=Lee0911274990;Max pool size = 200;Connection Timeout=0"
     End Sub
 End Module

工巧明智能管理系統/我的系統/MyModule/全域變數.vb

@@ -8,7 +8,7 @@
     Public 登入權限AQL As String = "姓名, 帳號, 密碼, 密碼日期, CC00, CC01, CC02, CC03, CC04, CC05, CC06, CC07, CC08, CC09, CC10, CC11, CC12, CC13, CC14, CC15, CC16, CC17, CC18, CC19, CC20, CC21, CC22, 
                                     CC23, CC24, CC25, CC26, CC27, CC28, CC29, CC30, CC31, CC32"
     '----系統版本-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
-    Public 版本 As String = "2021092901"
+    Public 版本 As String = "2021101301"
     '----系統閒置-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
     Public 判斷重登 As Boolean : Public 內外網 As Boolean : Public 重登確認 As Boolean : Public 主頁開啟 As Boolean
     Public timeExit As Integer = 0 : Public timeExit2 As Integer = 0 : Public timeNow As Integer = 0 : Public timeNow2 As Integer = 0 : Public 密碼時限 As Integer = 30