20240609備份

GCM-AM-SYS/GCM-AM-SYS/App.config

@@ -1,6 +1,7 @@
-<?xml version="1.0" encoding="utf-8" ?>
+<?xml version="1.0" encoding="utf-8"?>
 <configuration>
-    <startup>
-        <supportedRuntime version="v4.0" sku=".NETFramework,Version=v4.5" />
-    </startup>
-</configuration>
+  <startup>
+    <supportedRuntime version="v4.0" sku=".NETFramework,Version=v4.8" />
+  </startup>
+<appSettings>
+	<add key="TelerikWinFormsThemeName" value="Fluent" /></appSettings></configuration>

GCM-AM-SYS/GCM-AM-SYS/GCM-AM-SYS.vbproj

@@ -11,8 +11,9 @@
     <AssemblyName>GCM-AM-SYS</AssemblyName>
     <FileAlignment>512</FileAlignment>
     <MyType>WindowsForms</MyType>
-    <TargetFrameworkVersion>v4.5</TargetFrameworkVersion>
+    <TargetFrameworkVersion>v4.8</TargetFrameworkVersion>
     <Deterministic>true</Deterministic>
+    <TargetFrameworkProfile />
   </PropertyGroup>
   <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
     <PlatformTarget>AnyCPU</PlatformTarget>

GCM-AM-SYS/GCM-AM-SYS/My Project/Resources.Designer.vb

@@ -22,7 +22,7 @@ Namespace My.Resources
     '''<summary>
     '''  用於查詢當地語系化字串等的強類型資源類別。
     '''</summary>
-    <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Resources.Tools.StronglyTypedResourceBuilder", "16.0.0.0"),  _
+    <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Resources.Tools.StronglyTypedResourceBuilder", "17.0.0.0"),  _
      Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
      Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute(),  _
      Global.Microsoft.VisualBasic.HideModuleNameAttribute()>  _

GCM-AM-SYS/GCM-AM-SYS/My Project/Settings.Designer.vb

@@ -1,10 +1,10 @@
 '------------------------------------------------------------------------------
 ' <auto-generated>
-'     This code was generated by a tool.
-'     Runtime Version:4.0.30319.42000
+'     這段程式碼是由工具產生的。
+'     執行階段版本:4.0.30319.42000
 '
-'     Changes to this file may cause incorrect behavior and will be lost if
-'     the code is regenerated.
+'     對這個檔案所做的變更可能會造成錯誤的行為，而且如果重新產生程式碼，
+'     變更將會遺失。
 ' </auto-generated>
 '------------------------------------------------------------------------------
 
@@ -13,42 +13,42 @@ Option Explicit On
 
 
 Namespace My
-
-    <Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute(), _
-     Global.System.CodeDom.Compiler.GeneratedCodeAttribute("Microsoft.VisualStudio.Editors.SettingsDesigner.SettingsSingleFileGenerator", "11.0.0.0"), _
-     Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
+    
+    <Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute(),  _
+     Global.System.CodeDom.Compiler.GeneratedCodeAttribute("Microsoft.VisualStudio.Editors.SettingsDesigner.SettingsSingleFileGenerator", "17.2.0.0"),  _
+     Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)>  _
     Partial Friend NotInheritable Class MySettings
         Inherits Global.System.Configuration.ApplicationSettingsBase
-
-        Private Shared defaultInstance As MySettings = CType(Global.System.Configuration.ApplicationSettingsBase.Synchronized(New MySettings), MySettings)
-
-#Region "My.Settings Auto-Save Functionality"
+        
+        Private Shared defaultInstance As MySettings = CType(Global.System.Configuration.ApplicationSettingsBase.Synchronized(New MySettings()),MySettings)
+        
+#Region "My.Settings 自動儲存功能"
 #If _MyType = "WindowsForms" Then
-        Private Shared addedHandler As Boolean
+    Private Shared addedHandler As Boolean
 
-        Private Shared addedHandlerLockObject As New Object
+    Private Shared addedHandlerLockObject As New Object
 
-        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
-        Private Shared Sub AutoSaveSettings(ByVal sender As Global.System.Object, ByVal e As Global.System.EventArgs)
-            If My.Application.SaveMySettingsOnExit Then
-                My.Settings.Save()
-            End If
-        End Sub
+    <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
+    Private Shared Sub AutoSaveSettings(sender As Global.System.Object, e As Global.System.EventArgs)
+        If My.Application.SaveMySettingsOnExit Then
+            My.Settings.Save()
+        End If
+    End Sub
 #End If
 #End Region
-
+        
         Public Shared ReadOnly Property [Default]() As MySettings
             Get
-
+                
 #If _MyType = "WindowsForms" Then
-                   If Not addedHandler Then
-                        SyncLock addedHandlerLockObject
-                            If Not addedHandler Then
-                                AddHandler My.Application.Shutdown, AddressOf AutoSaveSettings
-                                addedHandler = True
-                            End If
-                        End SyncLock
-                    End If
+               If Not addedHandler Then
+                    SyncLock addedHandlerLockObject
+                        If Not addedHandler Then
+                            AddHandler My.Application.Shutdown, AddressOf AutoSaveSettings
+                            addedHandler = True
+                        End If
+                    End SyncLock
+                End If
 #End If
                 Return defaultInstance
             End Get
@@ -57,13 +57,13 @@ Namespace My
 End Namespace
 
 Namespace My
-
-    <Global.Microsoft.VisualBasic.HideModuleNameAttribute(), _
-     Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
-     Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute()> _
+    
+    <Global.Microsoft.VisualBasic.HideModuleNameAttribute(),  _
+     Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
+     Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute()>  _
     Friend Module MySettingsProperty
-
-        <Global.System.ComponentModel.Design.HelpKeywordAttribute("My.Settings")> _
+        
+        <Global.System.ComponentModel.Design.HelpKeywordAttribute("My.Settings")>  _
         Friend ReadOnly Property Settings() As Global.GCM_AM_SYS.My.MySettings
             Get
                 Return Global.GCM_AM_SYS.My.MySettings.Default

GCM-AM-SYS/GCM-AM-SYS/bin/Debug/GCM-AM-SYS.exe.config

@@ -1,6 +1,7 @@
-<?xml version="1.0" encoding="utf-8" ?>
+<?xml version="1.0" encoding="utf-8"?>
 <configuration>
-    <startup>
-        <supportedRuntime version="v4.0" sku=".NETFramework,Version=v4.5" />
-    </startup>
-</configuration>
+  <startup>
+    <supportedRuntime version="v4.0" sku=".NETFramework,Version=v4.8" />
+  </startup>
+<appSettings>
+	<add key="TelerikWinFormsThemeName" value="Fluent" /></appSettings></configuration>

GCM-AM-SYS/GCM-AM-SYS/obj/Debug/.NETFramework,Version=v4.8.AssemblyAttributes.vb

@@ -0,0 +1,7 @@
+' <autogenerated/>
+            Option Strict Off
+            Option Explicit On
+
+            Imports System
+            Imports System.Reflection
+            <Assembly: Global.System.Runtime.Versioning.TargetFrameworkAttribute(".NETFramework,Version=v4.8", FrameworkDisplayName:=".NET Framework 4.8")>

GCM-AM-SYS/GCM-AM-SYS/obj/Debug/GCM-AM-SYS.vbproj.CoreCompileInputs.cache

@@ -1 +1 @@
-4c71428ec87459a427b1f9e52a002a341188c530
+7efe3bf43ae87e7eed4b790544f6c629e775a935

GCM-AM-SYS/GCM-AM-SYS/obj/Debug/GCM-AM-SYS.vbproj.FileListAbsolute.txt

@@ -11,3 +11,17 @@ D:\工巧明\GCM-AM-SYS\GCM-AM-SYS\obj\Debug\GCM-AM-SYS.exe
 D:\工巧明\GCM-AM-SYS\GCM-AM-SYS\obj\Debug\GCM-AM-SYS.xml
 D:\工巧明\GCM-AM-SYS\GCM-AM-SYS\obj\Debug\GCM-AM-SYS.pdb
 D:\工巧明\GCM-AM-SYS\GCM-AM-SYS\obj\Debug\GCM_AM_SYS.新打卡系統.resources
+D:\工巧明\GCM\GCM-AM\GCM-AM-SYS\GCM-AM-SYS\bin\Debug\GCM-AM-SYS.exe.config
+D:\工巧明\GCM\GCM-AM\GCM-AM-SYS\GCM-AM-SYS\bin\Debug\GCM-AM-SYS.exe
+D:\工巧明\GCM\GCM-AM\GCM-AM-SYS\GCM-AM-SYS\bin\Debug\GCM-AM-SYS.pdb
+D:\工巧明\GCM\GCM-AM\GCM-AM-SYS\GCM-AM-SYS\bin\Debug\GCM-AM-SYS.xml
+D:\工巧明\GCM\GCM-AM\GCM-AM-SYS\GCM-AM-SYS\obj\Debug\GCM_AM_SYS.人事考勤打卡.resources
+D:\工巧明\GCM\GCM-AM\GCM-AM-SYS\GCM-AM-SYS\obj\Debug\GCM_AM_SYS.Resources.resources
+D:\工巧明\GCM\GCM-AM\GCM-AM-SYS\GCM-AM-SYS\obj\Debug\GCM_AM_SYS.新打卡系統.resources
+D:\工巧明\GCM\GCM-AM\GCM-AM-SYS\GCM-AM-SYS\obj\Debug\GCM-AM-SYS.vbproj.GenerateResource.cache
+D:\工巧明\GCM\GCM-AM\GCM-AM-SYS\GCM-AM-SYS\obj\Debug\GCM-AM-SYS.vbproj.CoreCompileInputs.cache
+D:\工巧明\GCM\GCM-AM\GCM-AM-SYS\GCM-AM-SYS\obj\Debug\GCM-AM-SYS.exe
+D:\工巧明\GCM\GCM-AM\GCM-AM-SYS\GCM-AM-SYS\obj\Debug\GCM-AM-SYS.xml
+D:\工巧明\GCM\GCM-AM\GCM-AM-SYS\GCM-AM-SYS\obj\Debug\GCM-AM-SYS.pdb
+D:\工巧明\GCM\GCM-AM\GCM-AM-SYS\GCM-AM-SYS\obj\Debug\GCM-AM-SYS.vbproj.AssemblyReference.cache
+D:\工巧明\GCM\GCM-AM\GCM-AM-SYS\GCM-AM-SYS\obj\Debug\GCM-AM-SYS.vbproj.SuggestedBindingRedirects.cache

GCM-AM-SYS/GCM-AM-SYS/人事考勤打卡.vb

@@ -10,7 +10,7 @@ Public Class 人事考勤打卡
     Dim DTP As String : Dim DTP1 As String
     Dim 有無資料判別 As String = ""
     Private Sub 人事考勤打卡_Load(sender As Object, e As EventArgs) Handles MyBase.Load
-        ConString = "Data Source=180.177.181.162,5264;Initial Catalog=我的資料庫;Persist Security Info=True;User ID=b70340;Password=0911274990;Max pool size = 200;Connection Timeout=0"
+        ConString = "Data Source=mssql-147629-0.cloudclusters.net,12711;Initial Catalog=GCM-MIS-SYS;Persist Security Info=True;User ID=b70340;Password=Lee0911274990;Max pool size = 200;Connection Timeout=0"
         FormBorderStyle = FormBorderStyle.SizableToolWindow : ControlBox = False
         Label1.Text = Year(Today) : Label3.Text = Month(Today) : Label5.Text = Strings.Right(Format(Today(), "yyyy/MM/dd"), 2) : Label7.Text = Format(TimeOfDay(), "HH:mm:ss")
         If Val(Strings.Left(Label7.Text, 2)) < 12 Then : Label14.Text = "上午上班" : Else : Label14.Text = "下午下班" : End If

GCM-AM-SYS/GCM-AM-SYS/新打卡系統.vb

@@ -10,7 +10,7 @@ Public Class 新打卡系統
     Dim DTP As String : Dim DTP1 As String
     Dim 有無資料判別 As String = ""
     Private Sub 新打卡系統_Load(sender As Object, e As EventArgs) Handles MyBase.Load
-        ConString = "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"
+        ConString = "Data Source=mssql-147629-0.cloudclusters.net,12711;Initial Catalog=GCM-AM-SYS;Persist Security Info=True;User ID=b70340;Password=Lee0911274990;Max pool size = 200;Connection Timeout=0"
         FormBorderStyle = FormBorderStyle.SizableToolWindow : ControlBox = False
         Label1.Text = Year(Today) : Label3.Text = Month(Today) : Label5.Text = Strings.Right(Format(Today(), "yyyy/MM/dd"), 2) : Label7.Text = Format(TimeOfDay(), "HH:mm:ss")
         Label16.Text = "" : Label19.Text = "" : Button1.Text = "打卡系統運行中" : Label20.Text = "" : Label21.Text = ""
@@ -38,7 +38,7 @@ Public Class 新打卡系統
             If TextBox2.Text.Length = 10 Then
                 If conn.State = ConnectionState.Closed Then : conn.ConnectionString = ConString : conn.Open() : End If
                 MYSQL = "SELECT  使用者權限管理表.DIN, ras_Users.UserName FROM 使用者權限管理表 INNER JOIN ras_Users ON 使用者權限管理表.DIN = ras_Users.DIN 
-                         WHERE (使用者權限管理表.ID卡號 LIKE '" & TextBox2.Text & "')"
+                         WHERE (使用者權限管理表.ID卡號 LIKE N'" & TextBox2.Text & "')"
                 cmd.Connection = conn : cmd.CommandText = MYSQL : dr = cmd.ExecuteReader
                 If dr.Read() Then
                     Label16.Text = dr("UserName").ToString
@@ -75,7 +75,7 @@ Public Class 新打卡系統
         conn.Close() : If conn.State = ConnectionState.Closed Then : conn.ConnectionString = ConString : conn.Open() : End If
         conn.Close() : If conn.State = ConnectionState.Closed Then : conn.ConnectionString = ConString : conn.Open() : End If
         MYSQL = "INSERT INTO ras_AttRecord (DN, DIN, Clock, VerifyMode, Action, AttTypeId, CollectDate, JobCode, Antipassback, LastUpdatedUID,  LastUpdatedDate, Remark) 
-                 VALUES (N'1', N'" & Label19.Text & "', '" & Label9.Text & "', N'0', N'1', N'H01', 
+                 VALUES (N'1', N'" & Label19.Text & "', N'" & Label9.Text & "', N'0', N'1', N'H01', 
                          " & Today() & ", 0, 0, 0, " & Today() & ", N'')"
         cmd.Connection = conn : cmd.CommandText = MYSQL : dr = cmd.ExecuteReader : conn.Close()
 

GCM-AM-SYS_OF WINXP/GCM-AM-SYS_OF WINXP/obj/Debug/GCM-AM-SYS_OF WINXP.vbproj.CoreCompileInputs.cache

@@ -1 +1 @@
-58ec310ea459bec6229e04d0b71f227686958a60
+38d59e4aeb7629ec54fb1f0c74c905019448ff77

GCM-AM-SYS_OF WINXP/GCM-AM-SYS_OF WINXP/obj/Debug/GCM-AM-SYS_OF WINXP.vbproj.FileListAbsolute.txt

@@ -21,3 +21,15 @@ D:\工巧明\GCM-AM-SYS_OF WINXP\GCM-AM-SYS_OF WINXP\obj\Debug\GCM-AM-SYS_OF WIN
 D:\工巧明\GCM-AM-SYS_OF WINXP\GCM-AM-SYS_OF WINXP\obj\Debug\GCM-AM-SYS_OF WINXP.xml
 D:\工巧明\GCM-AM-SYS_OF WINXP\GCM-AM-SYS_OF WINXP\obj\Debug\GCM-AM-SYS_OF WINXP.pdb
 D:\工巧明\GCM-AM-SYS_OF WINXP\GCM-AM-SYS_OF WINXP\obj\Debug\GCM_AM_SYS_OF_WINXP.新打卡系統.resources
+D:\工巧明\GCM\GCM-AM\GCM-AM-SYS_OF WINXP\GCM-AM-SYS_OF WINXP\bin\Debug\GCM-AM-SYS_OF WINXP.exe
+D:\工巧明\GCM\GCM-AM\GCM-AM-SYS_OF WINXP\GCM-AM-SYS_OF WINXP\bin\Debug\GCM-AM-SYS_OF WINXP.pdb
+D:\工巧明\GCM\GCM-AM\GCM-AM-SYS_OF WINXP\GCM-AM-SYS_OF WINXP\bin\Debug\GCM-AM-SYS_OF WINXP.xml
+D:\工巧明\GCM\GCM-AM\GCM-AM-SYS_OF WINXP\GCM-AM-SYS_OF WINXP\obj\Debug\GCM_AM_SYS_OF_WINXP.人事考勤打卡.resources
+D:\工巧明\GCM\GCM-AM\GCM-AM-SYS_OF WINXP\GCM-AM-SYS_OF WINXP\obj\Debug\GCM_AM_SYS_OF_WINXP.Resources.resources
+D:\工巧明\GCM\GCM-AM\GCM-AM-SYS_OF WINXP\GCM-AM-SYS_OF WINXP\obj\Debug\GCM_AM_SYS_OF_WINXP.新打卡系統.resources
+D:\工巧明\GCM\GCM-AM\GCM-AM-SYS_OF WINXP\GCM-AM-SYS_OF WINXP\obj\Debug\GCM-AM-SYS_OF WINXP.vbproj.GenerateResource.cache
+D:\工巧明\GCM\GCM-AM\GCM-AM-SYS_OF WINXP\GCM-AM-SYS_OF WINXP\obj\Debug\GCM-AM-SYS_OF WINXP.vbproj.CoreCompileInputs.cache
+D:\工巧明\GCM\GCM-AM\GCM-AM-SYS_OF WINXP\GCM-AM-SYS_OF WINXP\obj\Debug\GCM-AM-SYS_OF WINXP.exe
+D:\工巧明\GCM\GCM-AM\GCM-AM-SYS_OF WINXP\GCM-AM-SYS_OF WINXP\obj\Debug\GCM-AM-SYS_OF WINXP.xml
+D:\工巧明\GCM\GCM-AM\GCM-AM-SYS_OF WINXP\GCM-AM-SYS_OF WINXP\obj\Debug\GCM-AM-SYS_OF WINXP.pdb
+D:\工巧明\GCM\GCM-AM\GCM-AM-SYS_OF WINXP\GCM-AM-SYS_OF WINXP\obj\Debug\GCM-AM-SYS_OF WINXP.vbproj.AssemblyReference.cache

GCM-AM-SYS_OF WINXP/GCM-AM-SYS_OF WINXP/人事考勤打卡.vb

@@ -10,7 +10,7 @@ Public Class 人事考勤打卡
     Dim DTP As String : Dim DTP1 As String
     Dim 有無資料判別 As String = ""
     Private Sub 人事考勤打卡_Load(sender As Object, e As EventArgs) Handles MyBase.Load
-        ConString = "Data Source=180.177.181.162,5264;Initial Catalog=我的資料庫;Persist Security Info=True;User ID=b70340;Password=0911274990;Max pool size = 200;Connection Timeout=0"
+        ConString = "Data Source=mssql-147629-0.cloudclusters.net,12711;Initial Catalog=GCM-AM-SYS;Persist Security Info=True;User ID=b70340;Password=Lee0911274990;Max pool size = 200;Connection Timeout=0"
         FormBorderStyle = FormBorderStyle.SizableToolWindow : ControlBox = False
         Label1.Text = Year(Today) : Label3.Text = Month(Today) : Label5.Text = Strings.Right(Format(Today(), "yyyy/MM/dd"), 2) : Label7.Text = Format(TimeOfDay(), "HH:mm:ss")
         If Val(Strings.Left(Label7.Text, 2)) < 12 Then : Label14.Text = "上午上班" : Else : Label14.Text = "下午下班" : End If

GCM-AM-SYS_OF WINXP/GCM-AM-SYS_OF WINXP/新打卡系統.vb

@@ -10,7 +10,7 @@ Public Class 新打卡系統
     Dim DTP As String : Dim DTP1 As String
     Dim 有無資料判別 As String = ""
     Private Sub 新打卡系統_Load(sender As Object, e As EventArgs) Handles MyBase.Load
-        ConString = "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"
+        ConString = "Data Source=mssql-147629-0.cloudclusters.net,12711;Initial Catalog=GCM-AM-SYS;Persist Security Info=True;User ID=b70340;Password=Lee0911274990;Max pool size = 200;Connection Timeout=0"
         FormBorderStyle = FormBorderStyle.SizableToolWindow : ControlBox = False
         Label1.Text = Year(Today) : Label3.Text = Month(Today) : Label5.Text = Strings.Right(Format(Today(), "yyyy/MM/dd"), 2) : Label7.Text = Format(TimeOfDay(), "HH:mm:ss")
         Label16.Text = "" : Label19.Text = "" : Button1.Text = "打卡系統運行中" : Label20.Text = "" : Label21.Text = ""
@@ -38,7 +38,7 @@ Public Class 新打卡系統
             If TextBox2.Text.Length = 10 Then
                 If conn.State = ConnectionState.Closed Then : conn.ConnectionString = ConString : conn.Open() : End If
                 MYSQL = "SELECT  使用者權限管理表.DIN, ras_Users.UserName FROM 使用者權限管理表 INNER JOIN ras_Users ON 使用者權限管理表.DIN = ras_Users.DIN 
-                         WHERE (使用者權限管理表.ID卡號 LIKE '" & TextBox2.Text & "')"
+                         WHERE (使用者權限管理表.ID卡號 LIKE N'" & TextBox2.Text & "')"
                 cmd.Connection = conn : cmd.CommandText = MYSQL : dr = cmd.ExecuteReader
                 If dr.Read() Then
                     Label16.Text = dr("UserName").ToString
@@ -73,7 +73,7 @@ Public Class 新打卡系統
 
         conn.Close() : If conn.State = ConnectionState.Closed Then : conn.ConnectionString = ConString : conn.Open() : End If
         MYSQL = "INSERT INTO ras_AttRecord (DN, DIN, Clock, VerifyMode, Action, AttTypeId, CollectDate, JobCode, Antipassback, LastUpdatedUID,  LastUpdatedDate, Remark) 
-                 VALUES (N'1', N'" & Label19.Text & "', '" & Label9.Text & "', N'0', N'1', N'H01', 
+                 VALUES (N'1', N'" & Label19.Text & "', N'" & Label9.Text & "', N'0', N'1', N'H01', 
                          " & Today() & ", 0, 0, 0, " & Today() & ", N'')"
         cmd.Connection = conn : cmd.CommandText = MYSQL : dr = cmd.ExecuteReader : conn.Close()