소스 검색

主程式提交

Signed-off-by: B70340 <b70340@gmail.com>
B70340 5 년 전
커밋
edc7e4d4fc
49개의 변경된 파일3987개의 추가작업 그리고 0개의 파일을 삭제
  1. BIN
      .vs/SUREYES-AM01-SYS/v15/.suo
  2. 0
    0
      .vs/SUREYES-AM01-SYS/v15/Server/sqlite3/db.lock
  3. BIN
      .vs/SUREYES-AM01-SYS/v15/Server/sqlite3/storage.ide
  4. BIN
      .vs/SUREYES-AM01-SYS/v16/.suo
  5. 0
    0
      .vs/SUREYES-AM01-SYS/v16/Server/sqlite3/db.lock
  6. BIN
      .vs/SUREYES-AM01-SYS/v16/Server/sqlite3/storage.ide
  7. 25
    0
      SUREYES-AM01-SYS.sln
  8. 5
    0
      SUREYES-AM01-SYS/Module1.vb
  9. 13
    0
      SUREYES-AM01-SYS/My Project/Application.Designer.vb
  10. 10
    0
      SUREYES-AM01-SYS/My Project/Application.myapp
  11. 34
    0
      SUREYES-AM01-SYS/My Project/AssemblyInfo.vb
  12. 113
    0
      SUREYES-AM01-SYS/My Project/Resources.Designer.vb
  13. 136
    0
      SUREYES-AM01-SYS/My Project/Resources.resx
  14. 73
    0
      SUREYES-AM01-SYS/My Project/Settings.Designer.vb
  15. 7
    0
      SUREYES-AM01-SYS/My Project/Settings.settings
  16. BIN
      SUREYES-AM01-SYS/Resources/1280X956.jpg
  17. BIN
      SUREYES-AM01-SYS/Resources/1366X719.jpg
  18. BIN
      SUREYES-AM01-SYS/Resources/1440X828.jpg
  19. BIN
      SUREYES-AM01-SYS/Resources/1980X1010.jpg
  20. BIN
      SUREYES-AM01-SYS/Resources/系統底圖01.jpg
  21. 118
    0
      SUREYES-AM01-SYS/SUREYES-AM01-SYS.Designer.vb
  22. 1259
    0
      SUREYES-AM01-SYS/SUREYES-AM01-SYS.resx
  23. 57
    0
      SUREYES-AM01-SYS/SUREYES-AM01-SYS.vb
  24. 157
    0
      SUREYES-AM01-SYS/SUREYES-AM01-SYS.vbproj
  25. BIN
      SUREYES-AM01-SYS/bin/Debug/SUREYES-AM01-SYS.exe
  26. BIN
      SUREYES-AM01-SYS/bin/Debug/SUREYES-AM01-SYS.pdb
  27. 51
    0
      SUREYES-AM01-SYS/bin/Debug/SUREYES-AM01-SYS.xml
  28. BIN
      SUREYES-AM01-SYS/favicon-20181108114334167.ico
  29. BIN
      SUREYES-AM01-SYS/obj/Debug/DesignTimeResolveAssemblyReferences.cache
  30. BIN
      SUREYES-AM01-SYS/obj/Debug/DesignTimeResolveAssemblyReferencesInput.cache
  31. BIN
      SUREYES-AM01-SYS/obj/Debug/SUREYES-AM01-SYS.exe
  32. BIN
      SUREYES-AM01-SYS/obj/Debug/SUREYES-AM01-SYS.pdb
  33. 1
    0
      SUREYES-AM01-SYS/obj/Debug/SUREYES-AM01-SYS.vbproj.CoreCompileInputs.cache
  34. 26
    0
      SUREYES-AM01-SYS/obj/Debug/SUREYES-AM01-SYS.vbproj.FileListAbsolute.txt
  35. BIN
      SUREYES-AM01-SYS/obj/Debug/SUREYES-AM01-SYS.vbproj.GenerateResource.cache
  36. BIN
      SUREYES-AM01-SYS/obj/Debug/SUREYES-AM01-SYS.vbprojAssemblyReference.cache
  37. BIN
      SUREYES-AM01-SYS/obj/Debug/SUREYES-AM01-SYS.vbprojResolveAssemblyReference.cache
  38. 51
    0
      SUREYES-AM01-SYS/obj/Debug/SUREYES-AM01-SYS.xml
  39. BIN
      SUREYES-AM01-SYS/obj/Debug/SUREYES_AM01_SYS.MDIParent1.resources
  40. BIN
      SUREYES-AM01-SYS/obj/Debug/SUREYES_AM01_SYS.Resources.resources
  41. BIN
      SUREYES-AM01-SYS/obj/Debug/SUREYES_AM01_SYS.系統更新.resources
  42. BIN
      SUREYES-AM01-SYS/obj/Debug/SUREYES_AM01_SYS.薪資確認系統.resources
  43. BIN
      SUREYES-AM01-SYS/obj/Debug/TempPE/My Project.Resources.Designer.vb.dll
  44. 176
    0
      SUREYES-AM01-SYS/系統更新.Designer.vb
  45. 126
    0
      SUREYES-AM01-SYS/系統更新.resx
  46. 46
    0
      SUREYES-AM01-SYS/系統更新.vb
  47. 1205
    0
      SUREYES-AM01-SYS/薪資確認系統.Designer.vb
  48. 129
    0
      SUREYES-AM01-SYS/薪資確認系統.resx
  49. 169
    0
      SUREYES-AM01-SYS/薪資確認系統.vb

BIN
.vs/SUREYES-AM01-SYS/v15/.suo 파일 보기


+ 0
- 0
.vs/SUREYES-AM01-SYS/v15/Server/sqlite3/db.lock 파일 보기


BIN
.vs/SUREYES-AM01-SYS/v15/Server/sqlite3/storage.ide 파일 보기


BIN
.vs/SUREYES-AM01-SYS/v16/.suo 파일 보기


+ 0
- 0
.vs/SUREYES-AM01-SYS/v16/Server/sqlite3/db.lock 파일 보기


BIN
.vs/SUREYES-AM01-SYS/v16/Server/sqlite3/storage.ide 파일 보기


+ 25
- 0
SUREYES-AM01-SYS.sln 파일 보기

@@ -0,0 +1,25 @@
1
+
2
+Microsoft Visual Studio Solution File, Format Version 12.00
3
+# Visual Studio Version 16
4
+VisualStudioVersion = 16.0.29230.47
5
+MinimumVisualStudioVersion = 10.0.40219.1
6
+Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "SUREYES-AM01-SYS", "SUREYES-AM01-SYS\SUREYES-AM01-SYS.vbproj", "{BE16E3BB-78F5-44D5-8F85-A1A210AD8586}"
7
+EndProject
8
+Global
9
+	GlobalSection(SolutionConfigurationPlatforms) = preSolution
10
+		Debug|Any CPU = Debug|Any CPU
11
+		Release|Any CPU = Release|Any CPU
12
+	EndGlobalSection
13
+	GlobalSection(ProjectConfigurationPlatforms) = postSolution
14
+		{BE16E3BB-78F5-44D5-8F85-A1A210AD8586}.Debug|Any CPU.ActiveCfg = Debug|Any CPU
15
+		{BE16E3BB-78F5-44D5-8F85-A1A210AD8586}.Debug|Any CPU.Build.0 = Debug|Any CPU
16
+		{BE16E3BB-78F5-44D5-8F85-A1A210AD8586}.Release|Any CPU.ActiveCfg = Release|Any CPU
17
+		{BE16E3BB-78F5-44D5-8F85-A1A210AD8586}.Release|Any CPU.Build.0 = Release|Any CPU
18
+	EndGlobalSection
19
+	GlobalSection(SolutionProperties) = preSolution
20
+		HideSolutionNode = FALSE
21
+	EndGlobalSection
22
+	GlobalSection(ExtensibilityGlobals) = postSolution
23
+		SolutionGuid = {B114253E-EF3D-4503-8FA9-B0D09F2D2B7A}
24
+	EndGlobalSection
25
+EndGlobal

+ 5
- 0
SUREYES-AM01-SYS/Module1.vb 파일 보기

@@ -0,0 +1,5 @@
1
+Module Module1
2
+    Public g_conn_type As String = "" : Public ConString As String : Public gUserName As String : Public 登入人部門 As String : Public 登入人課別 As String : Public 登入人組別 As String
3
+    Public 登入人職稱 As String : Public 版本 As String = "2019120601"
4
+    Public SQL1 As String : Public PA As String = ""
5
+End Module

+ 13
- 0
SUREYES-AM01-SYS/My Project/Application.Designer.vb 파일 보기

@@ -0,0 +1,13 @@
1
+'------------------------------------------------------------------------------
2
+' <auto-generated>
3
+'     這段程式碼是由工具產生的。
4
+'     執行階段版本:4.0.30319.42000
5
+'
6
+'     對這個檔案所做的變更可能會造成錯誤的行為,而且如果重新產生程式碼,
7
+'     變更將會遺失。
8
+' </auto-generated>
9
+'------------------------------------------------------------------------------
10
+
11
+Option Strict On
12
+Option Explicit On
13
+

+ 10
- 0
SUREYES-AM01-SYS/My Project/Application.myapp 파일 보기

@@ -0,0 +1,10 @@
1
+<?xml version="1.0" encoding="utf-8"?>
2
+<MyApplicationData xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema">
3
+  <MySubMain>false</MySubMain>
4
+  <SingleInstance>false</SingleInstance>
5
+  <ShutdownMode>0</ShutdownMode>
6
+  <EnableVisualStyles>true</EnableVisualStyles>
7
+  <AuthenticationMode>0</AuthenticationMode>
8
+  <ApplicationType>1</ApplicationType>
9
+  <SaveMySettingsOnExit>true</SaveMySettingsOnExit>
10
+</MyApplicationData>

+ 34
- 0
SUREYES-AM01-SYS/My Project/AssemblyInfo.vb 파일 보기

@@ -0,0 +1,34 @@
1
+Imports System
2
+Imports System.Reflection
3
+Imports System.Runtime.InteropServices
4
+
5
+' 組件的一般資訊是由下列的屬性集控制。
6
+' 變更這些屬性的值即可修改組件的相關
7
+' 資訊。
8
+
9
+' 檢閱組件屬性的值
10
+
11
+<Assembly: AssemblyTitle("SUREYES-AM01-SYS")>
12
+<Assembly: AssemblyDescription("")>
13
+<Assembly: AssemblyCompany("")>
14
+<Assembly: AssemblyProduct("SUREYES-AM01-SYS")>
15
+<Assembly: AssemblyCopyright("Copyright ©  2019")>
16
+<Assembly: AssemblyTrademark("")>
17
+
18
+<Assembly: ComVisible(False)>
19
+
20
+'下列 GUID 為專案公開 (Expose) 至 COM 時所要使用的 typelib ID
21
+<Assembly: Guid("22f7a34a-afc8-44a2-91a4-82ab711b6489")>
22
+
23
+' 組件的版本資訊由下列四個值所組成:
24
+'
25
+'      主要版本
26
+'      次要版本
27
+'      組建編號
28
+'      修訂
29
+'
30
+' 您可以指定所有的值,也可以使用 '*' 將組建和修訂編號
31
+' 設為預設,如下所示:
32
+
33
+<Assembly: AssemblyVersion("1.0.0.0")>
34
+<Assembly: AssemblyFileVersion("1.0.0.0")>

+ 113
- 0
SUREYES-AM01-SYS/My Project/Resources.Designer.vb 파일 보기

@@ -0,0 +1,113 @@
1
+'------------------------------------------------------------------------------
2
+' <auto-generated>
3
+'     這段程式碼是由工具產生的。
4
+'     執行階段版本:4.0.30319.42000
5
+'
6
+'     對這個檔案所做的變更可能會造成錯誤的行為,而且如果重新產生程式碼,
7
+'     變更將會遺失。
8
+' </auto-generated>
9
+'------------------------------------------------------------------------------
10
+
11
+Option Strict On
12
+Option Explicit On
13
+
14
+Imports System
15
+
16
+Namespace My.Resources
17
+    
18
+    '這個類別是自動產生的,是利用 StronglyTypedResourceBuilder
19
+    '類別透過 ResGen 或 Visual Studio 這類工具。
20
+    '若要加入或移除成員,請編輯您的 .ResX 檔,然後重新執行 ResGen
21
+    '(利用 /str 選項),或重建您的 VS 專案。
22
+    '''<summary>
23
+    '''  用於查詢當地語系化字串等的強類型資源類別。
24
+    '''</summary>
25
+    <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Resources.Tools.StronglyTypedResourceBuilder", "16.0.0.0"),  _
26
+     Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
27
+     Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute(),  _
28
+     Global.Microsoft.VisualBasic.HideModuleNameAttribute()>  _
29
+    Friend Module Resources
30
+        
31
+        Private resourceMan As Global.System.Resources.ResourceManager
32
+        
33
+        Private resourceCulture As Global.System.Globalization.CultureInfo
34
+        
35
+        '''<summary>
36
+        '''  傳回這個類別使用的快取的 ResourceManager 執行個體。
37
+        '''</summary>
38
+        <Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)>  _
39
+        Friend ReadOnly Property ResourceManager() As Global.System.Resources.ResourceManager
40
+            Get
41
+                If Object.ReferenceEquals(resourceMan, Nothing) Then
42
+                    Dim temp As Global.System.Resources.ResourceManager = New Global.System.Resources.ResourceManager("SUREYES_AM01_SYS.Resources", GetType(Resources).Assembly)
43
+                    resourceMan = temp
44
+                End If
45
+                Return resourceMan
46
+            End Get
47
+        End Property
48
+        
49
+        '''<summary>
50
+        '''  覆寫目前執行緒的 CurrentUICulture 屬性,對象是所有
51
+        '''  使用這個強類型資源類別的資源查閱。
52
+        '''</summary>
53
+        <Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)>  _
54
+        Friend Property Culture() As Global.System.Globalization.CultureInfo
55
+            Get
56
+                Return resourceCulture
57
+            End Get
58
+            Set
59
+                resourceCulture = value
60
+            End Set
61
+        End Property
62
+        
63
+        '''<summary>
64
+        '''  查詢類型 System.Drawing.Bitmap 的當地語系化資源。
65
+        '''</summary>
66
+        Friend ReadOnly Property _1280X956() As System.Drawing.Bitmap
67
+            Get
68
+                Dim obj As Object = ResourceManager.GetObject("1280X956", resourceCulture)
69
+                Return CType(obj,System.Drawing.Bitmap)
70
+            End Get
71
+        End Property
72
+        
73
+        '''<summary>
74
+        '''  查詢類型 System.Drawing.Bitmap 的當地語系化資源。
75
+        '''</summary>
76
+        Friend ReadOnly Property _1366X719() As System.Drawing.Bitmap
77
+            Get
78
+                Dim obj As Object = ResourceManager.GetObject("1366X719", resourceCulture)
79
+                Return CType(obj,System.Drawing.Bitmap)
80
+            End Get
81
+        End Property
82
+        
83
+        '''<summary>
84
+        '''  查詢類型 System.Drawing.Bitmap 的當地語系化資源。
85
+        '''</summary>
86
+        Friend ReadOnly Property _1440X828() As System.Drawing.Bitmap
87
+            Get
88
+                Dim obj As Object = ResourceManager.GetObject("1440X828", resourceCulture)
89
+                Return CType(obj,System.Drawing.Bitmap)
90
+            End Get
91
+        End Property
92
+        
93
+        '''<summary>
94
+        '''  查詢類型 System.Drawing.Bitmap 的當地語系化資源。
95
+        '''</summary>
96
+        Friend ReadOnly Property _1980X1010() As System.Drawing.Bitmap
97
+            Get
98
+                Dim obj As Object = ResourceManager.GetObject("1980X1010", resourceCulture)
99
+                Return CType(obj,System.Drawing.Bitmap)
100
+            End Get
101
+        End Property
102
+        
103
+        '''<summary>
104
+        '''  查詢類型 System.Drawing.Bitmap 的當地語系化資源。
105
+        '''</summary>
106
+        Friend ReadOnly Property 系統底圖01() As System.Drawing.Bitmap
107
+            Get
108
+                Dim obj As Object = ResourceManager.GetObject("系統底圖01", resourceCulture)
109
+                Return CType(obj,System.Drawing.Bitmap)
110
+            End Get
111
+        End Property
112
+    End Module
113
+End Namespace

+ 136
- 0
SUREYES-AM01-SYS/My Project/Resources.resx 파일 보기

@@ -0,0 +1,136 @@
1
+<?xml version="1.0" encoding="utf-8"?>
2
+<root>
3
+  <!-- 
4
+    Microsoft ResX Schema 
5
+    
6
+    Version 2.0
7
+    
8
+    The primary goals of this format is to allow a simple XML format 
9
+    that is mostly human readable. The generation and parsing of the 
10
+    various data types are done through the TypeConverter classes 
11
+    associated with the data types.
12
+    
13
+    Example:
14
+    
15
+    ... ado.net/XML headers & schema ...
16
+    <resheader name="resmimetype">text/microsoft-resx</resheader>
17
+    <resheader name="version">2.0</resheader>
18
+    <resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
19
+    <resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
20
+    <data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
21
+    <data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
22
+    <data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
23
+        <value>[base64 mime encoded serialized .NET Framework object]</value>
24
+    </data>
25
+    <data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
26
+        <value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
27
+        <comment>This is a comment</comment>
28
+    </data>
29
+                
30
+    There are any number of "resheader" rows that contain simple 
31
+    name/value pairs.
32
+    
33
+    Each data row contains a name, and value. The row also contains a 
34
+    type or mimetype. Type corresponds to a .NET class that support 
35
+    text/value conversion through the TypeConverter architecture. 
36
+    Classes that don't support this are serialized and stored with the 
37
+    mimetype set.
38
+    
39
+    The mimetype is used for serialized objects, and tells the 
40
+    ResXResourceReader how to depersist the object. This is currently not 
41
+    extensible. For a given mimetype the value must be set accordingly:
42
+    
43
+    Note - application/x-microsoft.net.object.binary.base64 is the format 
44
+    that the ResXResourceWriter will generate, however the reader can 
45
+    read any of the formats listed below.
46
+    
47
+    mimetype: application/x-microsoft.net.object.binary.base64
48
+    value   : The object must be serialized with 
49
+            : System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
50
+            : and then encoded with base64 encoding.
51
+    
52
+    mimetype: application/x-microsoft.net.object.soap.base64
53
+    value   : The object must be serialized with 
54
+            : System.Runtime.Serialization.Formatters.Soap.SoapFormatter
55
+            : and then encoded with base64 encoding.
56
+
57
+    mimetype: application/x-microsoft.net.object.bytearray.base64
58
+    value   : The object must be serialized into a byte array 
59
+            : using a System.ComponentModel.TypeConverter
60
+            : and then encoded with base64 encoding.
61
+    -->
62
+  <xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
63
+    <xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
64
+    <xsd:element name="root" msdata:IsDataSet="true">
65
+      <xsd:complexType>
66
+        <xsd:choice maxOccurs="unbounded">
67
+          <xsd:element name="metadata">
68
+            <xsd:complexType>
69
+              <xsd:sequence>
70
+                <xsd:element name="value" type="xsd:string" minOccurs="0" />
71
+              </xsd:sequence>
72
+              <xsd:attribute name="name" use="required" type="xsd:string" />
73
+              <xsd:attribute name="type" type="xsd:string" />
74
+              <xsd:attribute name="mimetype" type="xsd:string" />
75
+              <xsd:attribute ref="xml:space" />
76
+            </xsd:complexType>
77
+          </xsd:element>
78
+          <xsd:element name="assembly">
79
+            <xsd:complexType>
80
+              <xsd:attribute name="alias" type="xsd:string" />
81
+              <xsd:attribute name="name" type="xsd:string" />
82
+            </xsd:complexType>
83
+          </xsd:element>
84
+          <xsd:element name="data">
85
+            <xsd:complexType>
86
+              <xsd:sequence>
87
+                <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
88
+                <xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
89
+              </xsd:sequence>
90
+              <xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
91
+              <xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
92
+              <xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
93
+              <xsd:attribute ref="xml:space" />
94
+            </xsd:complexType>
95
+          </xsd:element>
96
+          <xsd:element name="resheader">
97
+            <xsd:complexType>
98
+              <xsd:sequence>
99
+                <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
100
+              </xsd:sequence>
101
+              <xsd:attribute name="name" type="xsd:string" use="required" />
102
+            </xsd:complexType>
103
+          </xsd:element>
104
+        </xsd:choice>
105
+      </xsd:complexType>
106
+    </xsd:element>
107
+  </xsd:schema>
108
+  <resheader name="resmimetype">
109
+    <value>text/microsoft-resx</value>
110
+  </resheader>
111
+  <resheader name="version">
112
+    <value>2.0</value>
113
+  </resheader>
114
+  <resheader name="reader">
115
+    <value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
116
+  </resheader>
117
+  <resheader name="writer">
118
+    <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
119
+  </resheader>
120
+  <assembly alias="System.Windows.Forms" name="System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" />
121
+  <data name="1980X1010" type="System.Resources.ResXFileRef, System.Windows.Forms">
122
+    <value>..\Resources\1980X1010.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
123
+  </data>
124
+  <data name="1440X828" type="System.Resources.ResXFileRef, System.Windows.Forms">
125
+    <value>..\Resources\1440X828.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
126
+  </data>
127
+  <data name="1280X956" type="System.Resources.ResXFileRef, System.Windows.Forms">
128
+    <value>..\Resources\1280X956.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
129
+  </data>
130
+  <data name="1366X719" type="System.Resources.ResXFileRef, System.Windows.Forms">
131
+    <value>..\Resources\1366X719.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
132
+  </data>
133
+  <data name="系統底圖01" type="System.Resources.ResXFileRef, System.Windows.Forms">
134
+    <value>..\Resources\系統底圖01.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
135
+  </data>
136
+</root>

+ 73
- 0
SUREYES-AM01-SYS/My Project/Settings.Designer.vb 파일 보기

@@ -0,0 +1,73 @@
1
+'------------------------------------------------------------------------------
2
+' <auto-generated>
3
+'     這段程式碼是由工具產生的。
4
+'     執行階段版本:4.0.30319.42000
5
+'
6
+'     對這個檔案所做的變更可能會造成錯誤的行為,而且如果重新產生程式碼,
7
+'     變更將會遺失。
8
+' </auto-generated>
9
+'------------------------------------------------------------------------------
10
+
11
+Option Strict On
12
+Option Explicit On
13
+
14
+
15
+Namespace My
16
+    
17
+    <Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute(),  _
18
+     Global.System.CodeDom.Compiler.GeneratedCodeAttribute("Microsoft.VisualStudio.Editors.SettingsDesigner.SettingsSingleFileGenerator", "16.2.0.0"),  _
19
+     Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)>  _
20
+    Partial Friend NotInheritable Class MySettings
21
+        Inherits Global.System.Configuration.ApplicationSettingsBase
22
+        
23
+        Private Shared defaultInstance As MySettings = CType(Global.System.Configuration.ApplicationSettingsBase.Synchronized(New MySettings()),MySettings)
24
+        
25
+#Region "My.Settings 自動儲存功能"
26
+#If _MyType = "WindowsForms" Then
27
+    Private Shared addedHandler As Boolean
28
+
29
+    Private Shared addedHandlerLockObject As New Object
30
+
31
+    <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
32
+    Private Shared Sub AutoSaveSettings(sender As Global.System.Object, e As Global.System.EventArgs)
33
+        If My.Application.SaveMySettingsOnExit Then
34
+            My.Settings.Save()
35
+        End If
36
+    End Sub
37
+#End If
38
+#End Region
39
+        
40
+        Public Shared ReadOnly Property [Default]() As MySettings
41
+            Get
42
+                
43
+#If _MyType = "WindowsForms" Then
44
+               If Not addedHandler Then
45
+                    SyncLock addedHandlerLockObject
46
+                        If Not addedHandler Then
47
+                            AddHandler My.Application.Shutdown, AddressOf AutoSaveSettings
48
+                            addedHandler = True
49
+                        End If
50
+                    End SyncLock
51
+                End If
52
+#End If
53
+                Return defaultInstance
54
+            End Get
55
+        End Property
56
+    End Class
57
+End Namespace
58
+
59
+Namespace My
60
+    
61
+    <Global.Microsoft.VisualBasic.HideModuleNameAttribute(),  _
62
+     Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
63
+     Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute()>  _
64
+    Friend Module MySettingsProperty
65
+        
66
+        <Global.System.ComponentModel.Design.HelpKeywordAttribute("My.Settings")>  _
67
+        Friend ReadOnly Property Settings() As Global.SUREYES_AM01_SYS.My.MySettings
68
+            Get
69
+                Return Global.SUREYES_AM01_SYS.My.MySettings.Default
70
+            End Get
71
+        End Property
72
+    End Module
73
+End Namespace

+ 7
- 0
SUREYES-AM01-SYS/My Project/Settings.settings 파일 보기

@@ -0,0 +1,7 @@
1
+<?xml version='1.0' encoding='utf-8'?>
2
+<SettingsFile xmlns="http://schemas.microsoft.com/VisualStudio/2004/01/settings" CurrentProfile="(Default)" UseMySettingsClassName="true">
3
+  <Profiles>
4
+    <Profile Name="(Default)" />
5
+  </Profiles>
6
+  <Settings />
7
+</SettingsFile>

BIN
SUREYES-AM01-SYS/Resources/1280X956.jpg 파일 보기


BIN
SUREYES-AM01-SYS/Resources/1366X719.jpg 파일 보기


BIN
SUREYES-AM01-SYS/Resources/1440X828.jpg 파일 보기


BIN
SUREYES-AM01-SYS/Resources/1980X1010.jpg 파일 보기


BIN
SUREYES-AM01-SYS/Resources/系統底圖01.jpg 파일 보기


+ 118
- 0
SUREYES-AM01-SYS/SUREYES-AM01-SYS.Designer.vb 파일 보기

@@ -0,0 +1,118 @@
1
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
2
+Partial Class MDIParent1
3
+    Inherits System.Windows.Forms.Form
4
+
5
+    'Form 覆寫 Dispose 以清除元件清單。
6
+    <System.Diagnostics.DebuggerNonUserCode()>
7
+    Protected Overrides Sub Dispose(ByVal disposing As Boolean)
8
+        Try
9
+            If disposing AndAlso components IsNot Nothing Then
10
+                components.Dispose()
11
+            End If
12
+        Finally
13
+            MyBase.Dispose(disposing)
14
+        End Try
15
+    End Sub
16
+
17
+
18
+    '為 Windows Form 設計工具的必要項
19
+    Private components As System.ComponentModel.IContainer
20
+
21
+    '注意: 以下為 Windows Form 設計工具所需的程序
22
+    '可以使用 Windows Form 設計工具進行修改。
23
+    '請勿使用程式碼編輯器進行修改。
24
+    <System.Diagnostics.DebuggerStepThrough()>
25
+    Private Sub InitializeComponent()
26
+        Me.components = New System.ComponentModel.Container()
27
+        Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(MDIParent1))
28
+        Me.ToolTip = New System.Windows.Forms.ToolTip(Me.components)
29
+        Me.Button3 = New System.Windows.Forms.Button()
30
+        Me.Button4 = New System.Windows.Forms.Button()
31
+        Me.Button1 = New System.Windows.Forms.Button()
32
+        Me.Label2 = New System.Windows.Forms.Label()
33
+        Me.Label1 = New System.Windows.Forms.Label()
34
+        Me.SuspendLayout()
35
+        '
36
+        'Button3
37
+        '
38
+        Me.Button3.Font = New System.Drawing.Font("微軟正黑體", 21.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
39
+        Me.Button3.Location = New System.Drawing.Point(486, 317)
40
+        Me.Button3.Name = "Button3"
41
+        Me.Button3.Size = New System.Drawing.Size(385, 175)
42
+        Me.Button3.TabIndex = 12
43
+        Me.Button3.Text = "薪資確認系統"
44
+        Me.Button3.UseVisualStyleBackColor = True
45
+        '
46
+        'Button4
47
+        '
48
+        Me.Button4.Font = New System.Drawing.Font("微軟正黑體", 21.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
49
+        Me.Button4.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
50
+        Me.Button4.Location = New System.Drawing.Point(940, 317)
51
+        Me.Button4.Name = "Button4"
52
+        Me.Button4.Size = New System.Drawing.Size(385, 175)
53
+        Me.Button4.TabIndex = 11
54
+        Me.Button4.Text = "系統更新"
55
+        Me.Button4.UseVisualStyleBackColor = True
56
+        '
57
+        'Button1
58
+        '
59
+        Me.Button1.Font = New System.Drawing.Font("微軟正黑體", 21.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
60
+        Me.Button1.ForeColor = System.Drawing.Color.Red
61
+        Me.Button1.Location = New System.Drawing.Point(17, 317)
62
+        Me.Button1.Name = "Button1"
63
+        Me.Button1.Size = New System.Drawing.Size(385, 175)
64
+        Me.Button1.TabIndex = 9
65
+        Me.Button1.Text = "考勤打卡系統"
66
+        Me.Button1.UseVisualStyleBackColor = True
67
+        '
68
+        'Label2
69
+        '
70
+        Me.Label2.AutoSize = True
71
+        Me.Label2.BackColor = System.Drawing.Color.White
72
+        Me.Label2.Font = New System.Drawing.Font("微軟正黑體", 18.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
73
+        Me.Label2.Location = New System.Drawing.Point(1023, 20)
74
+        Me.Label2.Name = "Label2"
75
+        Me.Label2.Size = New System.Drawing.Size(315, 30)
76
+        Me.Label2.TabIndex = 27
77
+        Me.Label2.Text = "資料庫版本號 : 2018110801"
78
+        '
79
+        'Label1
80
+        '
81
+        Me.Label1.AutoSize = True
82
+        Me.Label1.BackColor = System.Drawing.Color.White
83
+        Me.Label1.Font = New System.Drawing.Font("微軟正黑體", 18.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
84
+        Me.Label1.Location = New System.Drawing.Point(702, 20)
85
+        Me.Label1.Name = "Label1"
86
+        Me.Label1.Size = New System.Drawing.Size(315, 30)
87
+        Me.Label1.TabIndex = 26
88
+        Me.Label1.Text = "執行檔版本號 : 2018110801"
89
+        '
90
+        'MDIParent1
91
+        '
92
+        Me.AutoScaleDimensions = New System.Drawing.SizeF(7.0!, 16.0!)
93
+        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
94
+        Me.BackgroundImage = Global.SUREYES_AM01_SYS.My.Resources.Resources._1980X1010
95
+        Me.ClientSize = New System.Drawing.Size(1350, 729)
96
+        Me.Controls.Add(Me.Label2)
97
+        Me.Controls.Add(Me.Label1)
98
+        Me.Controls.Add(Me.Button3)
99
+        Me.Controls.Add(Me.Button4)
100
+        Me.Controls.Add(Me.Button1)
101
+        Me.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
102
+        Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
103
+        Me.IsMdiContainer = True
104
+        Me.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
105
+        Me.Name = "MDIParent1"
106
+        Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
107
+        Me.Text = "SUREYES-AM01-SYS"
108
+        Me.ResumeLayout(False)
109
+        Me.PerformLayout()
110
+
111
+    End Sub
112
+    Friend WithEvents ToolTip As System.Windows.Forms.ToolTip
113
+    Friend WithEvents Button3 As Button
114
+    Friend WithEvents Button4 As Button
115
+    Friend WithEvents Button1 As Button
116
+    Friend WithEvents Label2 As Label
117
+    Friend WithEvents Label1 As Label
118
+End Class

+ 1259
- 0
SUREYES-AM01-SYS/SUREYES-AM01-SYS.resx
파일 크기가 너무 크기때문에 변경 상태를 표시하지 않습니다.
파일 보기


+ 57
- 0
SUREYES-AM01-SYS/SUREYES-AM01-SYS.vb 파일 보기

@@ -0,0 +1,57 @@
1
+Imports System.Windows.Forms
2
+Imports System.Data.SqlClient
3
+Public Class MDIParent1
4
+    Private m_ChildFormNumber As Integer
5
+    Dim screenWidth = Screen.PrimaryScreen.Bounds.Width
6
+    Dim screenHeight = Screen.PrimaryScreen.Bounds.Height
7
+    Dim conn As New SqlConnection
8
+    Dim cmd As New SqlCommand
9
+    Dim dr As SqlDataReader
10
+    Dim da As New SqlDataAdapter
11
+    Dim ds As New DataSet : Dim ds1 As New DataSet : Dim ds2 As New DataSet : Dim ds3 As New DataSet
12
+    Private Sub MDIParent1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
13
+        ConString = "Data Source=192.168.0.43;Initial Catalog=雪怡MES資料庫;Persist Security Info=True;User ID=b70340;Password=0911274990;Max pool size = 200;Connection Timeout=0"
14
+
15
+        Label1.Text = "執行檔版本號 : " & 版本
16
+        If conn.State = ConnectionState.Closed Then : conn.ConnectionString = ConString : conn.Open() : End If
17
+        SQL1 = "SELECT 系統認證版本號 FROM 版本號管理01 "
18
+        cmd.CommandText = SQL1 : cmd.Connection = conn : dr = cmd.ExecuteReader
19
+        If dr.Read() Then
20
+            Label2.Text = "資料庫版本號 : " & dr("系統認證版本號")
21
+        End If : conn.Close()
22
+    End Sub
23
+    Private Sub MDIParent1_SizeChanged(sender As Object, e As EventArgs) Handles Me.SizeChanged
24
+        Me.BackgroundImage = My.Resources._1980X1010 : Me.BackgroundImageLayout = 3
25
+    End Sub
26
+    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
27
+        If Strings.Right(Label1.Text, 10) <> Strings.Right(Label2.Text, 10) Then
28
+            MsgBox("系統版本號 與 資料庫版本號 對應不上,請W通知主管下載最新的執行檔。")
29
+        Else
30
+            MsgBox("待開發。")
31
+        End If
32
+    End Sub
33
+    Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
34
+        If Strings.Right(Label1.Text, 10) <> Strings.Right(Label2.Text, 10) Then
35
+            MsgBox("系統版本號 與 資料庫版本號 對應不上,請W通知主管下載最新的執行檔。")
36
+        Else
37
+            薪資確認系統.Show()
38
+        End If
39
+    End Sub
40
+    Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
41
+        PA = InputBox("請刷卡登入") : 登入人職稱 = ""
42
+
43
+        If conn.State = ConnectionState.Closed Then : conn.ConnectionString = ConString : conn.Open() : End If
44
+        SQL1 = "SELECT 職稱 FROM 使用者權限管理表 WHERE ID卡號 LIKE '" & PA & "'"
45
+        cmd.Connection = conn : cmd.CommandText = SQL1 : dr = cmd.ExecuteReader
46
+        If dr.Read() Then : 登入人職稱 = dr("職稱").ToString : Else : 登入人職稱 = "" : End If
47
+        conn.Close()
48
+        If 登入人職稱 = "" Then
49
+        Else
50
+            If Val(Strings.Left(登入人職稱, 2)) <= 8 Then
51
+                系統更新.Show()
52
+            Else
53
+                MsgBox("該卡片持有人無權限操作,如有需求請通知主管。")
54
+            End If
55
+        End If
56
+    End Sub
57
+End Class

+ 157
- 0
SUREYES-AM01-SYS/SUREYES-AM01-SYS.vbproj 파일 보기

@@ -0,0 +1,157 @@
1
+<?xml version="1.0" encoding="utf-8"?>
2
+<Project ToolsVersion="15.0" xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
3
+  <Import Project="$(MSBuildExtensionsPath)\$(MSBuildToolsVersion)\Microsoft.Common.props" Condition="Exists('$(MSBuildExtensionsPath)\$(MSBuildToolsVersion)\Microsoft.Common.props')" />
4
+  <PropertyGroup>
5
+    <Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
6
+    <Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
7
+    <ProjectGuid>{BE16E3BB-78F5-44D5-8F85-A1A210AD8586}</ProjectGuid>
8
+    <OutputType>WinExe</OutputType>
9
+    <RootNamespace>SUREYES_AM01_SYS</RootNamespace>
10
+    <AssemblyName>SUREYES-AM01-SYS</AssemblyName>
11
+    <FileAlignment>512</FileAlignment>
12
+    <MyType>WindowsFormsWithCustomSubMain</MyType>
13
+    <TargetFrameworkVersion>v4.6</TargetFrameworkVersion>
14
+    <Deterministic>true</Deterministic>
15
+  </PropertyGroup>
16
+  <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
17
+    <DebugSymbols>true</DebugSymbols>
18
+    <DebugType>full</DebugType>
19
+    <DefineDebug>true</DefineDebug>
20
+    <DefineTrace>true</DefineTrace>
21
+    <OutputPath>bin\Debug\</OutputPath>
22
+    <DocumentationFile>SUREYES-AM01-SYS.xml</DocumentationFile>
23
+    <DefineConstants>_MYFORMS=True</DefineConstants>
24
+    <NoWarn>42016,41999,42017,42018,42019,42032,42036,42020,42021,42022</NoWarn>
25
+  </PropertyGroup>
26
+  <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
27
+    <DebugType>pdbonly</DebugType>
28
+    <DefineDebug>false</DefineDebug>
29
+    <DefineTrace>true</DefineTrace>
30
+    <Optimize>true</Optimize>
31
+    <OutputPath>bin\Release\</OutputPath>
32
+    <DocumentationFile>SUREYES-AM01-SYS.xml</DocumentationFile>
33
+    <DefineConstants>_MYFORMS=True</DefineConstants>
34
+    <NoWarn>42016,41999,42017,42018,42019,42032,42036,42020,42021,42022</NoWarn>
35
+  </PropertyGroup>
36
+  <PropertyGroup>
37
+    <OptionExplicit>On</OptionExplicit>
38
+  </PropertyGroup>
39
+  <PropertyGroup>
40
+    <OptionCompare>Binary</OptionCompare>
41
+  </PropertyGroup>
42
+  <PropertyGroup>
43
+    <OptionStrict>Off</OptionStrict>
44
+  </PropertyGroup>
45
+  <PropertyGroup>
46
+    <OptionInfer>On</OptionInfer>
47
+  </PropertyGroup>
48
+  <PropertyGroup>
49
+    <StartupObject>SUREYES_AM01_SYS.MDIParent1</StartupObject>
50
+  </PropertyGroup>
51
+  <PropertyGroup>
52
+    <ApplicationIcon>favicon-20181108114334167.ico</ApplicationIcon>
53
+  </PropertyGroup>
54
+  <ItemGroup>
55
+    <Reference Include="System" />
56
+    <Reference Include="System.Data" />
57
+    <Reference Include="System.Deployment" />
58
+    <Reference Include="System.Drawing" />
59
+    <Reference Include="System.Windows.Forms" />
60
+    <Reference Include="System.Xml" />
61
+    <Reference Include="System.Core" />
62
+    <Reference Include="System.Xml.Linq" />
63
+    <Reference Include="System.Data.DataSetExtensions" />
64
+    <Reference Include="System.Net.Http" />
65
+  </ItemGroup>
66
+  <ItemGroup>
67
+    <Import Include="Microsoft.VisualBasic" />
68
+    <Import Include="System" />
69
+    <Import Include="System.Collections" />
70
+    <Import Include="System.Collections.Generic" />
71
+    <Import Include="System.Data" />
72
+    <Import Include="System.Drawing" />
73
+    <Import Include="System.Diagnostics" />
74
+    <Import Include="System.Windows.Forms" />
75
+    <Import Include="System.Linq" />
76
+    <Import Include="System.Xml.Linq" />
77
+    <Import Include="System.Threading.Tasks" />
78
+  </ItemGroup>
79
+  <ItemGroup>
80
+    <Compile Include="Module1.vb" />
81
+    <Compile Include="SUREYES-AM01-SYS.Designer.vb">
82
+      <DependentUpon>SUREYES-AM01-SYS.vb</DependentUpon>
83
+    </Compile>
84
+    <Compile Include="SUREYES-AM01-SYS.vb">
85
+      <SubType>Form</SubType>
86
+    </Compile>
87
+    <Compile Include="My Project\Application.Designer.vb">
88
+      <AutoGen>True</AutoGen>
89
+      <DependentUpon>Application.myapp</DependentUpon>
90
+    </Compile>
91
+    <Compile Include="My Project\AssemblyInfo.vb" />
92
+    <Compile Include="My Project\Resources.Designer.vb">
93
+      <AutoGen>True</AutoGen>
94
+      <DesignTime>True</DesignTime>
95
+      <DependentUpon>Resources.resx</DependentUpon>
96
+    </Compile>
97
+    <Compile Include="My Project\Settings.Designer.vb">
98
+      <AutoGen>True</AutoGen>
99
+      <DependentUpon>Settings.settings</DependentUpon>
100
+      <DesignTimeSharedInput>True</DesignTimeSharedInput>
101
+    </Compile>
102
+    <Compile Include="系統更新.Designer.vb">
103
+      <DependentUpon>系統更新.vb</DependentUpon>
104
+    </Compile>
105
+    <Compile Include="系統更新.vb">
106
+      <SubType>Form</SubType>
107
+    </Compile>
108
+    <Compile Include="薪資確認系統.Designer.vb">
109
+      <DependentUpon>薪資確認系統.vb</DependentUpon>
110
+    </Compile>
111
+    <Compile Include="薪資確認系統.vb">
112
+      <SubType>Form</SubType>
113
+    </Compile>
114
+  </ItemGroup>
115
+  <ItemGroup>
116
+    <EmbeddedResource Include="SUREYES-AM01-SYS.resx">
117
+      <DependentUpon>SUREYES-AM01-SYS.vb</DependentUpon>
118
+    </EmbeddedResource>
119
+    <EmbeddedResource Include="My Project\Resources.resx">
120
+      <Generator>VbMyResourcesResXFileCodeGenerator</Generator>
121
+      <LastGenOutput>Resources.Designer.vb</LastGenOutput>
122
+      <CustomToolNamespace>My.Resources</CustomToolNamespace>
123
+      <SubType>Designer</SubType>
124
+    </EmbeddedResource>
125
+    <EmbeddedResource Include="系統更新.resx">
126
+      <DependentUpon>系統更新.vb</DependentUpon>
127
+    </EmbeddedResource>
128
+    <EmbeddedResource Include="薪資確認系統.resx">
129
+      <DependentUpon>薪資確認系統.vb</DependentUpon>
130
+    </EmbeddedResource>
131
+  </ItemGroup>
132
+  <ItemGroup>
133
+    <None Include="My Project\Application.myapp">
134
+      <Generator>MyApplicationCodeGenerator</Generator>
135
+      <LastGenOutput>Application.Designer.vb</LastGenOutput>
136
+    </None>
137
+    <None Include="My Project\Settings.settings">
138
+      <Generator>SettingsSingleFileGenerator</Generator>
139
+      <CustomToolNamespace>My</CustomToolNamespace>
140
+      <LastGenOutput>Settings.Designer.vb</LastGenOutput>
141
+    </None>
142
+  </ItemGroup>
143
+  <ItemGroup>
144
+    <Service Include="{94E38DFF-614B-4cbd-B67C-F211BB35CE8B}" />
145
+  </ItemGroup>
146
+  <ItemGroup>
147
+    <None Include="Resources\1366X719.jpg" />
148
+  </ItemGroup>
149
+  <ItemGroup>
150
+    <Content Include="favicon-20181108114334167.ico" />
151
+    <None Include="Resources\系統底圖01.jpg" />
152
+    <None Include="Resources\1280X956.jpg" />
153
+    <None Include="Resources\1440X828.jpg" />
154
+    <None Include="Resources\1980X1010.jpg" />
155
+  </ItemGroup>
156
+  <Import Project="$(MSBuildToolsPath)\Microsoft.VisualBasic.targets" />
157
+</Project>

BIN
SUREYES-AM01-SYS/bin/Debug/SUREYES-AM01-SYS.exe 파일 보기


BIN
SUREYES-AM01-SYS/bin/Debug/SUREYES-AM01-SYS.pdb 파일 보기


+ 51
- 0
SUREYES-AM01-SYS/bin/Debug/SUREYES-AM01-SYS.xml 파일 보기

@@ -0,0 +1,51 @@
1
+<?xml version="1.0"?>
2
+<doc>
3
+<assembly>
4
+<name>
5
+SUREYES-AM01-SYS
6
+</name>
7
+</assembly>
8
+<members>
9
+<member name="T:SUREYES_AM01_SYS.My.Resources.Resources">
10
+<summary>
11
+  用於查詢當地語系化字串等的強類型資源類別。
12
+</summary>
13
+</member>
14
+<member name="P:SUREYES_AM01_SYS.My.Resources.Resources.ResourceManager">
15
+<summary>
16
+  傳回這個類別使用的快取的 ResourceManager 執行個體。
17
+</summary>
18
+</member>
19
+<member name="P:SUREYES_AM01_SYS.My.Resources.Resources.Culture">
20
+<summary>
21
+  覆寫目前執行緒的 CurrentUICulture 屬性,對象是所有
22
+  使用這個強類型資源類別的資源查閱。
23
+</summary>
24
+</member>
25
+<member name="P:SUREYES_AM01_SYS.My.Resources.Resources._1280X956">
26
+<summary>
27
+  查詢類型 System.Drawing.Bitmap 的當地語系化資源。
28
+</summary>
29
+</member>
30
+<member name="P:SUREYES_AM01_SYS.My.Resources.Resources._1366X719">
31
+<summary>
32
+  查詢類型 System.Drawing.Bitmap 的當地語系化資源。
33
+</summary>
34
+</member>
35
+<member name="P:SUREYES_AM01_SYS.My.Resources.Resources._1440X828">
36
+<summary>
37
+  查詢類型 System.Drawing.Bitmap 的當地語系化資源。
38
+</summary>
39
+</member>
40
+<member name="P:SUREYES_AM01_SYS.My.Resources.Resources._1980X1010">
41
+<summary>
42
+  查詢類型 System.Drawing.Bitmap 的當地語系化資源。
43
+</summary>
44
+</member>
45
+<member name="P:SUREYES_AM01_SYS.My.Resources.Resources.系統底圖01">
46
+<summary>
47
+  查詢類型 System.Drawing.Bitmap 的當地語系化資源。
48
+</summary>
49
+</member>
50
+</members>
51
+</doc>

BIN
SUREYES-AM01-SYS/favicon-20181108114334167.ico 파일 보기


BIN
SUREYES-AM01-SYS/obj/Debug/DesignTimeResolveAssemblyReferences.cache 파일 보기


BIN
SUREYES-AM01-SYS/obj/Debug/DesignTimeResolveAssemblyReferencesInput.cache 파일 보기


BIN
SUREYES-AM01-SYS/obj/Debug/SUREYES-AM01-SYS.exe 파일 보기


BIN
SUREYES-AM01-SYS/obj/Debug/SUREYES-AM01-SYS.pdb 파일 보기


+ 1
- 0
SUREYES-AM01-SYS/obj/Debug/SUREYES-AM01-SYS.vbproj.CoreCompileInputs.cache 파일 보기

@@ -0,0 +1 @@
1
+69c4ee70ddd16028a100f37be9caeeb697a96fa0

+ 26
- 0
SUREYES-AM01-SYS/obj/Debug/SUREYES-AM01-SYS.vbproj.FileListAbsolute.txt 파일 보기

@@ -0,0 +1,26 @@
1
+F:\SUREYES-AM01-SYS\SUREYES-AM01-SYS\bin\Debug\SUREYES-AM01-SYS.pdb
2
+F:\SUREYES-AM01-SYS\SUREYES-AM01-SYS\bin\Debug\SUREYES-AM01-SYS.xml
3
+F:\SUREYES-AM01-SYS\SUREYES-AM01-SYS\obj\Debug\SUREYES-AM01-SYS.vbprojAssemblyReference.cache
4
+F:\SUREYES-AM01-SYS\SUREYES-AM01-SYS\obj\Debug\SUREYES_AM01_SYS.Resources.resources
5
+F:\SUREYES-AM01-SYS\SUREYES-AM01-SYS\obj\Debug\SUREYES-AM01-SYS.vbproj.GenerateResource.cache
6
+F:\SUREYES-AM01-SYS\SUREYES-AM01-SYS\obj\Debug\SUREYES-AM01-SYS.vbproj.CoreCompileInputs.cache
7
+F:\SUREYES-AM01-SYS\SUREYES-AM01-SYS\obj\Debug\SUREYES-AM01-SYS.xml
8
+F:\SUREYES-AM01-SYS\SUREYES-AM01-SYS\obj\Debug\SUREYES-AM01-SYS.pdb
9
+F:\SUREYES-AM01-SYS\SUREYES-AM01-SYS\bin\Debug\SUREYES-AM01-SYS.exe
10
+F:\SUREYES-AM01-SYS\SUREYES-AM01-SYS\obj\Debug\SUREYES-AM01-SYS.exe
11
+F:\SUREYES-AM01-SYS\SUREYES-AM01-SYS\obj\Debug\SUREYES_AM01_SYS.MDIParent1.resources
12
+F:\SUREYES-AM01-SYS\SUREYES-AM01-SYS\obj\Debug\SUREYES_AM01_SYS.系統更新.resources
13
+F:\SUREYES-AM01-SYS\SUREYES-AM01-SYS\obj\Debug\SUREYES_AM01_SYS.薪資確認系統.resources
14
+G:\SUREYES-AM01-SYS\SUREYES-AM01-SYS\bin\Debug\SUREYES-AM01-SYS.exe
15
+G:\SUREYES-AM01-SYS\SUREYES-AM01-SYS\bin\Debug\SUREYES-AM01-SYS.pdb
16
+G:\SUREYES-AM01-SYS\SUREYES-AM01-SYS\bin\Debug\SUREYES-AM01-SYS.xml
17
+G:\SUREYES-AM01-SYS\SUREYES-AM01-SYS\obj\Debug\SUREYES-AM01-SYS.vbprojResolveAssemblyReference.cache
18
+G:\SUREYES-AM01-SYS\SUREYES-AM01-SYS\obj\Debug\SUREYES_AM01_SYS.MDIParent1.resources
19
+G:\SUREYES-AM01-SYS\SUREYES-AM01-SYS\obj\Debug\SUREYES_AM01_SYS.Resources.resources
20
+G:\SUREYES-AM01-SYS\SUREYES-AM01-SYS\obj\Debug\SUREYES_AM01_SYS.系統更新.resources
21
+G:\SUREYES-AM01-SYS\SUREYES-AM01-SYS\obj\Debug\SUREYES_AM01_SYS.薪資確認系統.resources
22
+G:\SUREYES-AM01-SYS\SUREYES-AM01-SYS\obj\Debug\SUREYES-AM01-SYS.vbproj.GenerateResource.cache
23
+G:\SUREYES-AM01-SYS\SUREYES-AM01-SYS\obj\Debug\SUREYES-AM01-SYS.vbproj.CoreCompileInputs.cache
24
+G:\SUREYES-AM01-SYS\SUREYES-AM01-SYS\obj\Debug\SUREYES-AM01-SYS.exe
25
+G:\SUREYES-AM01-SYS\SUREYES-AM01-SYS\obj\Debug\SUREYES-AM01-SYS.xml
26
+G:\SUREYES-AM01-SYS\SUREYES-AM01-SYS\obj\Debug\SUREYES-AM01-SYS.pdb

BIN
SUREYES-AM01-SYS/obj/Debug/SUREYES-AM01-SYS.vbproj.GenerateResource.cache 파일 보기


BIN
SUREYES-AM01-SYS/obj/Debug/SUREYES-AM01-SYS.vbprojAssemblyReference.cache 파일 보기


BIN
SUREYES-AM01-SYS/obj/Debug/SUREYES-AM01-SYS.vbprojResolveAssemblyReference.cache 파일 보기


+ 51
- 0
SUREYES-AM01-SYS/obj/Debug/SUREYES-AM01-SYS.xml 파일 보기

@@ -0,0 +1,51 @@
1
+<?xml version="1.0"?>
2
+<doc>
3
+<assembly>
4
+<name>
5
+SUREYES-AM01-SYS
6
+</name>
7
+</assembly>
8
+<members>
9
+<member name="T:SUREYES_AM01_SYS.My.Resources.Resources">
10
+<summary>
11
+  用於查詢當地語系化字串等的強類型資源類別。
12
+</summary>
13
+</member>
14
+<member name="P:SUREYES_AM01_SYS.My.Resources.Resources.ResourceManager">
15
+<summary>
16
+  傳回這個類別使用的快取的 ResourceManager 執行個體。
17
+</summary>
18
+</member>
19
+<member name="P:SUREYES_AM01_SYS.My.Resources.Resources.Culture">
20
+<summary>
21
+  覆寫目前執行緒的 CurrentUICulture 屬性,對象是所有
22
+  使用這個強類型資源類別的資源查閱。
23
+</summary>
24
+</member>
25
+<member name="P:SUREYES_AM01_SYS.My.Resources.Resources._1280X956">
26
+<summary>
27
+  查詢類型 System.Drawing.Bitmap 的當地語系化資源。
28
+</summary>
29
+</member>
30
+<member name="P:SUREYES_AM01_SYS.My.Resources.Resources._1366X719">
31
+<summary>
32
+  查詢類型 System.Drawing.Bitmap 的當地語系化資源。
33
+</summary>
34
+</member>
35
+<member name="P:SUREYES_AM01_SYS.My.Resources.Resources._1440X828">
36
+<summary>
37
+  查詢類型 System.Drawing.Bitmap 的當地語系化資源。
38
+</summary>
39
+</member>
40
+<member name="P:SUREYES_AM01_SYS.My.Resources.Resources._1980X1010">
41
+<summary>
42
+  查詢類型 System.Drawing.Bitmap 的當地語系化資源。
43
+</summary>
44
+</member>
45
+<member name="P:SUREYES_AM01_SYS.My.Resources.Resources.系統底圖01">
46
+<summary>
47
+  查詢類型 System.Drawing.Bitmap 的當地語系化資源。
48
+</summary>
49
+</member>
50
+</members>
51
+</doc>

BIN
SUREYES-AM01-SYS/obj/Debug/SUREYES_AM01_SYS.MDIParent1.resources 파일 보기


BIN
SUREYES-AM01-SYS/obj/Debug/SUREYES_AM01_SYS.Resources.resources 파일 보기


BIN
SUREYES-AM01-SYS/obj/Debug/SUREYES_AM01_SYS.系統更新.resources 파일 보기


BIN
SUREYES-AM01-SYS/obj/Debug/SUREYES_AM01_SYS.薪資確認系統.resources 파일 보기


BIN
SUREYES-AM01-SYS/obj/Debug/TempPE/My Project.Resources.Designer.vb.dll 파일 보기


+ 176
- 0
SUREYES-AM01-SYS/系統更新.Designer.vb 파일 보기

@@ -0,0 +1,176 @@
1
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
2
+Partial Class 系統更新
3
+    Inherits System.Windows.Forms.Form
4
+
5
+    'Form 覆寫 Dispose 以清除元件清單。
6
+    <System.Diagnostics.DebuggerNonUserCode()> _
7
+    Protected Overrides Sub Dispose(ByVal disposing As Boolean)
8
+        Try
9
+            If disposing AndAlso components IsNot Nothing Then
10
+                components.Dispose()
11
+            End If
12
+        Finally
13
+            MyBase.Dispose(disposing)
14
+        End Try
15
+    End Sub
16
+
17
+    '為 Windows Form 設計工具的必要項
18
+    Private components As System.ComponentModel.IContainer
19
+
20
+    '注意: 以下為 Windows Form 設計工具所需的程序
21
+    '可以使用 Windows Form 設計工具進行修改。
22
+    '請勿使用程式碼編輯器進行修改。
23
+    <System.Diagnostics.DebuggerStepThrough()> _
24
+    Private Sub InitializeComponent()
25
+        Me.Button1 = New System.Windows.Forms.Button()
26
+        Me.Button14 = New System.Windows.Forms.Button()
27
+        Me.WebBrowser2 = New System.Windows.Forms.WebBrowser()
28
+        Me.WebBrowser1 = New System.Windows.Forms.WebBrowser()
29
+        Me.Label1 = New System.Windows.Forms.Label()
30
+        Me.Label2 = New System.Windows.Forms.Label()
31
+        Me.SaveFileDialog1 = New System.Windows.Forms.SaveFileDialog()
32
+        Me.FolderBrowserDialog1 = New System.Windows.Forms.FolderBrowserDialog()
33
+        Me.Label3 = New System.Windows.Forms.Label()
34
+        Me.Button2 = New System.Windows.Forms.Button()
35
+        Me.Label4 = New System.Windows.Forms.Label()
36
+        Me.TextBox2 = New System.Windows.Forms.TextBox()
37
+        Me.SuspendLayout()
38
+        '
39
+        'Button1
40
+        '
41
+        Me.Button1.Location = New System.Drawing.Point(1184, 3)
42
+        Me.Button1.Name = "Button1"
43
+        Me.Button1.Size = New System.Drawing.Size(75, 23)
44
+        Me.Button1.TabIndex = 0
45
+        Me.Button1.Text = "關閉"
46
+        Me.Button1.UseVisualStyleBackColor = True
47
+        '
48
+        'Button14
49
+        '
50
+        Me.Button14.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
51
+        Me.Button14.ForeColor = System.Drawing.Color.Blue
52
+        Me.Button14.Location = New System.Drawing.Point(536, 3)
53
+        Me.Button14.Name = "Button14"
54
+        Me.Button14.Size = New System.Drawing.Size(97, 23)
55
+        Me.Button14.TabIndex = 746
56
+        Me.Button14.Text = "讀取料夾路徑"
57
+        Me.Button14.UseVisualStyleBackColor = True
58
+        '
59
+        'WebBrowser2
60
+        '
61
+        Me.WebBrowser2.Location = New System.Drawing.Point(12, 32)
62
+        Me.WebBrowser2.MinimumSize = New System.Drawing.Size(20, 20)
63
+        Me.WebBrowser2.Name = "WebBrowser2"
64
+        Me.WebBrowser2.Size = New System.Drawing.Size(621, 573)
65
+        Me.WebBrowser2.TabIndex = 745
66
+        Me.WebBrowser2.Url = New System.Uri("", System.UriKind.Relative)
67
+        '
68
+        'WebBrowser1
69
+        '
70
+        Me.WebBrowser1.Location = New System.Drawing.Point(638, 32)
71
+        Me.WebBrowser1.MinimumSize = New System.Drawing.Size(20, 20)
72
+        Me.WebBrowser1.Name = "WebBrowser1"
73
+        Me.WebBrowser1.Size = New System.Drawing.Size(621, 573)
74
+        Me.WebBrowser1.TabIndex = 747
75
+        Me.WebBrowser1.Url = New System.Uri("", System.UriKind.Relative)
76
+        '
77
+        'Label1
78
+        '
79
+        Me.Label1.AutoSize = True
80
+        Me.Label1.Location = New System.Drawing.Point(12, 8)
81
+        Me.Label1.Name = "Label1"
82
+        Me.Label1.Size = New System.Drawing.Size(56, 16)
83
+        Me.Label1.TabIndex = 748
84
+        Me.Label1.Text = "我的電腦"
85
+        '
86
+        'Label2
87
+        '
88
+        Me.Label2.AutoSize = True
89
+        Me.Label2.Location = New System.Drawing.Point(639, 8)
90
+        Me.Label2.Name = "Label2"
91
+        Me.Label2.Size = New System.Drawing.Size(100, 16)
92
+        Me.Label2.TabIndex = 749
93
+        Me.Label2.Text = "伺服器FTP資料夾"
94
+        '
95
+        'SaveFileDialog1
96
+        '
97
+        Me.SaveFileDialog1.DefaultExt = "jpg"
98
+        Me.SaveFileDialog1.SupportMultiDottedExtensions = True
99
+        Me.SaveFileDialog1.Title = "指定檔案名稱與選擇檔案路徑"
100
+        '
101
+        'Label3
102
+        '
103
+        Me.Label3.AutoSize = True
104
+        Me.Label3.BackColor = System.Drawing.SystemColors.Control
105
+        Me.Label3.Location = New System.Drawing.Point(359, 7)
106
+        Me.Label3.Name = "Label3"
107
+        Me.Label3.Size = New System.Drawing.Size(159, 16)
108
+        Me.Label3.TabIndex = 753
109
+        Me.Label3.Text = "資料庫版本號 : 2018110801"
110
+        '
111
+        'Button2
112
+        '
113
+        Me.Button2.Location = New System.Drawing.Point(248, 4)
114
+        Me.Button2.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
115
+        Me.Button2.Name = "Button2"
116
+        Me.Button2.Size = New System.Drawing.Size(105, 24)
117
+        Me.Button2.TabIndex = 752
118
+        Me.Button2.Text = "修改"
119
+        '
120
+        'Label4
121
+        '
122
+        Me.Label4.AutoSize = True
123
+        Me.Label4.BackColor = System.Drawing.SystemColors.Control
124
+        Me.Label4.Location = New System.Drawing.Point(93, 7)
125
+        Me.Label4.Name = "Label4"
126
+        Me.Label4.Size = New System.Drawing.Size(44, 16)
127
+        Me.Label4.TabIndex = 751
128
+        Me.Label4.Text = "版本號"
129
+        '
130
+        'TextBox2
131
+        '
132
+        Me.TextBox2.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
133
+        Me.TextBox2.Location = New System.Drawing.Point(139, 4)
134
+        Me.TextBox2.Margin = New System.Windows.Forms.Padding(5)
135
+        Me.TextBox2.Name = "TextBox2"
136
+        Me.TextBox2.Size = New System.Drawing.Size(101, 23)
137
+        Me.TextBox2.TabIndex = 750
138
+        '
139
+        '系統更新
140
+        '
141
+        Me.AutoScaleDimensions = New System.Drawing.SizeF(7.0!, 16.0!)
142
+        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
143
+        Me.ClientSize = New System.Drawing.Size(1265, 617)
144
+        Me.Controls.Add(Me.Label3)
145
+        Me.Controls.Add(Me.Button2)
146
+        Me.Controls.Add(Me.Label4)
147
+        Me.Controls.Add(Me.TextBox2)
148
+        Me.Controls.Add(Me.Label2)
149
+        Me.Controls.Add(Me.Label1)
150
+        Me.Controls.Add(Me.WebBrowser1)
151
+        Me.Controls.Add(Me.Button14)
152
+        Me.Controls.Add(Me.WebBrowser2)
153
+        Me.Controls.Add(Me.Button1)
154
+        Me.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
155
+        Me.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
156
+        Me.Name = "系統更新"
157
+        Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
158
+        Me.Text = "系統更新"
159
+        Me.ResumeLayout(False)
160
+        Me.PerformLayout()
161
+
162
+    End Sub
163
+
164
+    Friend WithEvents Button1 As Button
165
+    Friend WithEvents Button14 As Button
166
+    Friend WithEvents WebBrowser2 As WebBrowser
167
+    Friend WithEvents WebBrowser1 As WebBrowser
168
+    Friend WithEvents Label1 As Label
169
+    Friend WithEvents Label2 As Label
170
+    Friend WithEvents SaveFileDialog1 As SaveFileDialog
171
+    Friend WithEvents FolderBrowserDialog1 As FolderBrowserDialog
172
+    Friend WithEvents Label3 As Label
173
+    Friend WithEvents Button2 As Button
174
+    Friend WithEvents Label4 As Label
175
+    Friend WithEvents TextBox2 As TextBox
176
+End Class

+ 126
- 0
SUREYES-AM01-SYS/系統更新.resx 파일 보기

@@ -0,0 +1,126 @@
1
+<?xml version="1.0" encoding="utf-8"?>
2
+<root>
3
+  <!-- 
4
+    Microsoft ResX Schema 
5
+    
6
+    Version 2.0
7
+    
8
+    The primary goals of this format is to allow a simple XML format 
9
+    that is mostly human readable. The generation and parsing of the 
10
+    various data types are done through the TypeConverter classes 
11
+    associated with the data types.
12
+    
13
+    Example:
14
+    
15
+    ... ado.net/XML headers & schema ...
16
+    <resheader name="resmimetype">text/microsoft-resx</resheader>
17
+    <resheader name="version">2.0</resheader>
18
+    <resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
19
+    <resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
20
+    <data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
21
+    <data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
22
+    <data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
23
+        <value>[base64 mime encoded serialized .NET Framework object]</value>
24
+    </data>
25
+    <data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
26
+        <value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
27
+        <comment>This is a comment</comment>
28
+    </data>
29
+                
30
+    There are any number of "resheader" rows that contain simple 
31
+    name/value pairs.
32
+    
33
+    Each data row contains a name, and value. The row also contains a 
34
+    type or mimetype. Type corresponds to a .NET class that support 
35
+    text/value conversion through the TypeConverter architecture. 
36
+    Classes that don't support this are serialized and stored with the 
37
+    mimetype set.
38
+    
39
+    The mimetype is used for serialized objects, and tells the 
40
+    ResXResourceReader how to depersist the object. This is currently not 
41
+    extensible. For a given mimetype the value must be set accordingly:
42
+    
43
+    Note - application/x-microsoft.net.object.binary.base64 is the format 
44
+    that the ResXResourceWriter will generate, however the reader can 
45
+    read any of the formats listed below.
46
+    
47
+    mimetype: application/x-microsoft.net.object.binary.base64
48
+    value   : The object must be serialized with 
49
+            : System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
50
+            : and then encoded with base64 encoding.
51
+    
52
+    mimetype: application/x-microsoft.net.object.soap.base64
53
+    value   : The object must be serialized with 
54
+            : System.Runtime.Serialization.Formatters.Soap.SoapFormatter
55
+            : and then encoded with base64 encoding.
56
+
57
+    mimetype: application/x-microsoft.net.object.bytearray.base64
58
+    value   : The object must be serialized into a byte array 
59
+            : using a System.ComponentModel.TypeConverter
60
+            : and then encoded with base64 encoding.
61
+    -->
62
+  <xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
63
+    <xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
64
+    <xsd:element name="root" msdata:IsDataSet="true">
65
+      <xsd:complexType>
66
+        <xsd:choice maxOccurs="unbounded">
67
+          <xsd:element name="metadata">
68
+            <xsd:complexType>
69
+              <xsd:sequence>
70
+                <xsd:element name="value" type="xsd:string" minOccurs="0" />
71
+              </xsd:sequence>
72
+              <xsd:attribute name="name" use="required" type="xsd:string" />
73
+              <xsd:attribute name="type" type="xsd:string" />
74
+              <xsd:attribute name="mimetype" type="xsd:string" />
75
+              <xsd:attribute ref="xml:space" />
76
+            </xsd:complexType>
77
+          </xsd:element>
78
+          <xsd:element name="assembly">
79
+            <xsd:complexType>
80
+              <xsd:attribute name="alias" type="xsd:string" />
81
+              <xsd:attribute name="name" type="xsd:string" />
82
+            </xsd:complexType>
83
+          </xsd:element>
84
+          <xsd:element name="data">
85
+            <xsd:complexType>
86
+              <xsd:sequence>
87
+                <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
88
+                <xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
89
+              </xsd:sequence>
90
+              <xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
91
+              <xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
92
+              <xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
93
+              <xsd:attribute ref="xml:space" />
94
+            </xsd:complexType>
95
+          </xsd:element>
96
+          <xsd:element name="resheader">
97
+            <xsd:complexType>
98
+              <xsd:sequence>
99
+                <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
100
+              </xsd:sequence>
101
+              <xsd:attribute name="name" type="xsd:string" use="required" />
102
+            </xsd:complexType>
103
+          </xsd:element>
104
+        </xsd:choice>
105
+      </xsd:complexType>
106
+    </xsd:element>
107
+  </xsd:schema>
108
+  <resheader name="resmimetype">
109
+    <value>text/microsoft-resx</value>
110
+  </resheader>
111
+  <resheader name="version">
112
+    <value>2.0</value>
113
+  </resheader>
114
+  <resheader name="reader">
115
+    <value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
116
+  </resheader>
117
+  <resheader name="writer">
118
+    <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
119
+  </resheader>
120
+  <metadata name="SaveFileDialog1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
121
+    <value>665, 17</value>
122
+  </metadata>
123
+  <metadata name="FolderBrowserDialog1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
124
+    <value>809, 17</value>
125
+  </metadata>
126
+</root>

+ 46
- 0
SUREYES-AM01-SYS/系統更新.vb 파일 보기

@@ -0,0 +1,46 @@
1
+Option Strict Off
2
+Imports System.Data.SqlClient
3
+Public Class 系統更新
4
+    Public Property Target1 As String
5
+    Dim conn As New SqlConnection
6
+    Dim cmd As New SqlCommand
7
+    Dim dr As SqlDataReader
8
+    Private Sub 系統更新_Load(sender As Object, e As EventArgs) Handles MyBase.Load
9
+        FormBorderStyle = FormBorderStyle.SizableToolWindow : ControlBox = False
10
+        Target1 = "ftp://192.168.0.43:2121/0001/"
11
+        WebBrowser1.Url = New Uri(Target1)
12
+        If FolderBrowserDialog1.ShowDialog = DialogResult.OK Then
13
+            WebBrowser2.Navigate(FolderBrowserDialog1.SelectedPath)
14
+        End If
15
+        If conn.State = ConnectionState.Closed Then : conn.ConnectionString = ConString : conn.Open() : End If
16
+        SQL1 = "SELECT 系統認證版本號 FROM 版本號管理01 "
17
+        cmd.CommandText = SQL1 : cmd.Connection = conn : dr = cmd.ExecuteReader
18
+        If dr.Read() Then
19
+            Label3.Text = "資料庫版本號 : " & dr("系統認證版本號")
20
+            TextBox2.Text = dr("系統認證版本號")
21
+        End If : conn.Close()
22
+    End Sub
23
+    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
24
+        Me.Close()
25
+    End Sub
26
+    Private Sub Button14_Click(sender As Object, e As EventArgs) Handles Button14.Click
27
+        If FolderBrowserDialog1.ShowDialog = DialogResult.OK Then
28
+            WebBrowser2.Navigate(FolderBrowserDialog1.SelectedPath)
29
+        End If
30
+    End Sub
31
+    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
32
+        If conn.State = ConnectionState.Closed Then : conn.ConnectionString = ConString : conn.Open() : End If
33
+        SQL1 = "UPDATE 版本號管理01 SET 系統認證版本號 = N'" & TextBox2.Text & "' WHERE (系統認證版本號 = N'" & Strings.Right(Label3.Text, 10) & "')"
34
+        cmd.Connection = conn : cmd.CommandText = SQL1 : cmd.ExecuteNonQuery()
35
+        conn.Close()
36
+
37
+        If conn.State = ConnectionState.Closed Then : conn.ConnectionString = ConString : conn.Open() : End If
38
+        SQL1 = "SELECT 系統認證版本號 FROM 版本號管理01 "
39
+        cmd.CommandText = SQL1 : cmd.Connection = conn : dr = cmd.ExecuteReader
40
+        If dr.Read() Then
41
+            Label3.Text = "資料庫版本號 : " & dr("系統認證版本號")
42
+            TextBox2.Text = dr("系統認證版本號")
43
+        End If : conn.Close()
44
+        MsgBox("修改完成")
45
+    End Sub
46
+End Class

+ 1205
- 0
SUREYES-AM01-SYS/薪資確認系統.Designer.vb
파일 크기가 너무 크기때문에 변경 상태를 표시하지 않습니다.
파일 보기


+ 129
- 0
SUREYES-AM01-SYS/薪資確認系統.resx 파일 보기

@@ -0,0 +1,129 @@
1
+<?xml version="1.0" encoding="utf-8"?>
2
+<root>
3
+  <!-- 
4
+    Microsoft ResX Schema 
5
+    
6
+    Version 2.0
7
+    
8
+    The primary goals of this format is to allow a simple XML format 
9
+    that is mostly human readable. The generation and parsing of the 
10
+    various data types are done through the TypeConverter classes 
11
+    associated with the data types.
12
+    
13
+    Example:
14
+    
15
+    ... ado.net/XML headers & schema ...
16
+    <resheader name="resmimetype">text/microsoft-resx</resheader>
17
+    <resheader name="version">2.0</resheader>
18
+    <resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
19
+    <resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
20
+    <data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
21
+    <data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
22
+    <data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
23
+        <value>[base64 mime encoded serialized .NET Framework object]</value>
24
+    </data>
25
+    <data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
26
+        <value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
27
+        <comment>This is a comment</comment>
28
+    </data>
29
+                
30
+    There are any number of "resheader" rows that contain simple 
31
+    name/value pairs.
32
+    
33
+    Each data row contains a name, and value. The row also contains a 
34
+    type or mimetype. Type corresponds to a .NET class that support 
35
+    text/value conversion through the TypeConverter architecture. 
36
+    Classes that don't support this are serialized and stored with the 
37
+    mimetype set.
38
+    
39
+    The mimetype is used for serialized objects, and tells the 
40
+    ResXResourceReader how to depersist the object. This is currently not 
41
+    extensible. For a given mimetype the value must be set accordingly:
42
+    
43
+    Note - application/x-microsoft.net.object.binary.base64 is the format 
44
+    that the ResXResourceWriter will generate, however the reader can 
45
+    read any of the formats listed below.
46
+    
47
+    mimetype: application/x-microsoft.net.object.binary.base64
48
+    value   : The object must be serialized with 
49
+            : System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
50
+            : and then encoded with base64 encoding.
51
+    
52
+    mimetype: application/x-microsoft.net.object.soap.base64
53
+    value   : The object must be serialized with 
54
+            : System.Runtime.Serialization.Formatters.Soap.SoapFormatter
55
+            : and then encoded with base64 encoding.
56
+
57
+    mimetype: application/x-microsoft.net.object.bytearray.base64
58
+    value   : The object must be serialized into a byte array 
59
+            : using a System.ComponentModel.TypeConverter
60
+            : and then encoded with base64 encoding.
61
+    -->
62
+  <xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
63
+    <xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
64
+    <xsd:element name="root" msdata:IsDataSet="true">
65
+      <xsd:complexType>
66
+        <xsd:choice maxOccurs="unbounded">
67
+          <xsd:element name="metadata">
68
+            <xsd:complexType>
69
+              <xsd:sequence>
70
+                <xsd:element name="value" type="xsd:string" minOccurs="0" />
71
+              </xsd:sequence>
72
+              <xsd:attribute name="name" use="required" type="xsd:string" />
73
+              <xsd:attribute name="type" type="xsd:string" />
74
+              <xsd:attribute name="mimetype" type="xsd:string" />
75
+              <xsd:attribute ref="xml:space" />
76
+            </xsd:complexType>
77
+          </xsd:element>
78
+          <xsd:element name="assembly">
79
+            <xsd:complexType>
80
+              <xsd:attribute name="alias" type="xsd:string" />
81
+              <xsd:attribute name="name" type="xsd:string" />
82
+            </xsd:complexType>
83
+          </xsd:element>
84
+          <xsd:element name="data">
85
+            <xsd:complexType>
86
+              <xsd:sequence>
87
+                <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
88
+                <xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
89
+              </xsd:sequence>
90
+              <xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
91
+              <xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
92
+              <xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
93
+              <xsd:attribute ref="xml:space" />
94
+            </xsd:complexType>
95
+          </xsd:element>
96
+          <xsd:element name="resheader">
97
+            <xsd:complexType>
98
+              <xsd:sequence>
99
+                <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
100
+              </xsd:sequence>
101
+              <xsd:attribute name="name" type="xsd:string" use="required" />
102
+            </xsd:complexType>
103
+          </xsd:element>
104
+        </xsd:choice>
105
+      </xsd:complexType>
106
+    </xsd:element>
107
+  </xsd:schema>
108
+  <resheader name="resmimetype">
109
+    <value>text/microsoft-resx</value>
110
+  </resheader>
111
+  <resheader name="version">
112
+    <value>2.0</value>
113
+  </resheader>
114
+  <resheader name="reader">
115
+    <value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
116
+  </resheader>
117
+  <resheader name="writer">
118
+    <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
119
+  </resheader>
120
+  <data name="Label35.Text" xml:space="preserve">
121
+    <value>_________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________</value>
122
+  </data>
123
+  <metadata name="Timer1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
124
+    <value>17, 17</value>
125
+  </metadata>
126
+  <metadata name="$this.TrayHeight" type="System.Int32, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
127
+    <value>59</value>
128
+  </metadata>
129
+</root>

+ 169
- 0
SUREYES-AM01-SYS/薪資確認系統.vb 파일 보기

@@ -0,0 +1,169 @@
1
+Option Strict Off
2
+Imports System.Data.SqlClient
3
+Imports System.IO
4
+Imports System.Net
5
+Public Class 薪資確認系統
6
+    Dim conn As New SqlConnection
7
+    Dim cmd As New SqlCommand
8
+    Dim dr As SqlDataReader
9
+    Dim 月 As String
10
+    Private Sub ComboBox1下拉表單資料載入()
11
+        conn.Close()
12
+        If conn.State = ConnectionState.Closed Then : conn.ConnectionString = ConString : conn.Open() : End If
13
+        SQL1 = "SELECT  年份 FROM 年份清單 ORDER BY 年份 DESC"
14
+        cmd.CommandText = SQL1 : cmd.Connection = conn : dr = cmd.ExecuteReader
15
+        ComboBox1.Items.Clear()
16
+        While (dr.Read()) : ComboBox1.Items.Add(dr("年份")) : End While
17
+        conn.Close()
18
+    End Sub
19
+    Private Sub 薪資確認系統_Load(sender As Object, e As EventArgs) Handles MyBase.Load
20
+        FormBorderStyle = FormBorderStyle.SizableToolWindow : ControlBox = False
21
+        ComboBox1下拉表單資料載入() : ComboBox1.Text = Year(Today)
22
+        TextBox2.Enabled = False : TextBox3.Enabled = False : TextBox4.Enabled = False : TextBox5.Enabled = False : TextBox6.Enabled = False : TextBox7.Enabled = False
23
+    End Sub
24
+    Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
25
+        PictureBox1.Image = Nothing
26
+        TextBox2.Text = "" : TextBox3.Text = "" : TextBox4.Text = "" : TextBox5.Text = "" : TextBox6.Text = "" : TextBox7.Text = ""
27
+        Label36.Text = "0.00" : Label37.Text = "0.00" : Label38.Text = "0.00" : Label39.Text = "0.00" : Label40.Text = "0.00" : Label41.Text = "0.00" : Label42.Text = "0.00"
28
+        Label43.Text = "0.00" : Label44.Text = "0.00" : Label45.Text = "0.00" : Label46.Text = "0.00" : Label47.Text = "0.00" : Label48.Text = "0.00" : Label49.Text = "0.00"
29
+        Label50.Text = "0.00" : Label51.Text = "0.00" : Label52.Text = "0.00" : Label53.Text = "0.00" : Label54.Text = "0.00" : Label55.Text = "0.00" : Label56.Text = "0.00"
30
+        Label57.Text = "0.00" : Label58.Text = "0.00" : Label59.Text = "0.00" : Label60.Text = "0.00" : Label61.Text = "0.00"
31
+        Label62.Text = "未簽"
32
+        Timer1.Enabled = False
33
+    End Sub
34
+    Private Sub UsernameTextBox_TextChanged(sender As Object, e As EventArgs) Handles TextBox1.TextChanged
35
+        If IsNumeric(TextBox1.Text) = True Then
36
+            If TextBox1.Text.Length = 10 Then
37
+                If conn.State = ConnectionState.Closed Then : conn.ConnectionString = ConString : conn.Open() : End If
38
+                SQL1 = "SELECT 姓名, 部門, 課別, 組別, 職稱, 員工編號 FROM 使用者權限管理表 WHERE (ID卡號 = '" & TextBox1.Text & "')"
39
+                cmd.Connection = conn : cmd.CommandText = SQL1 : dr = cmd.ExecuteReader
40
+                If dr.Read() Then
41
+                    TextBox2.Text = dr("姓名").ToString : TextBox3.Text = dr("部門").ToString : TextBox4.Text = dr("課別").ToString : TextBox5.Text = dr("組別").ToString : TextBox6.Text = dr("職稱").ToString
42
+                    TextBox7.Text = dr("員工編號").ToString
43
+                    conn.Close() : TextBox1.Text = ""
44
+                End If
45
+
46
+                If conn.State = ConnectionState.Closed Then : conn.ConnectionString = ConString : conn.Open() : End If
47
+                SQL1 = "SELECT 簽名檔 FROM 人事職員簽名檔 WHERE 員工編號 LIKE '" & TextBox7.Text & "'"
48
+                cmd.Connection = conn : cmd.CommandText = SQL1 : dr = cmd.ExecuteReader
49
+                While dr.Read() = True
50
+                    Dim bytes As Byte() = New Byte(-1) {}
51
+                    bytes = DirectCast(dr.Item("簽名檔"), Byte())
52
+                    Dim oStream As New MemoryStream(bytes)
53
+                    PictureBox1.Image = Bitmap.FromStream(oStream)
54
+                End While
55
+                conn.Close()
56
+                PictureBox1.SizeMode = 4
57
+                TextBox1.Focus()
58
+                Timer1.Enabled = True
59
+            End If
60
+        End If
61
+    End Sub
62
+    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
63
+        Me.Close()
64
+    End Sub
65
+    Private Sub 讀取薪資條()
66
+        If conn.State = ConnectionState.Closed Then : conn.ConnectionString = ConString : conn.Open() : End If
67
+        SQL1 = "SELECT 底薪, 職務等類, 職務等類工資, 上班天數, 正班工資, 全勤獎, 平時加班工時, 平時加班工資, 週末加班工時, 
68
+                       週末加班工資, 假日加班工時, 假日加班工資, 職務級數, 單位級數工資, 職務工資, 往年年資, 去年年資, 年資工資, 
69
+                       [夜班/其他], 應發工資, 社保費, 代扣稅, 借款, 其他, 扣款合計, 實發合計
70
+                FROM 人員薪資表
71
+                WHERE (姓名 LIKE N'" & TextBox2.Text & "') AND (年份 LIKE '" & ComboBox1.Text & "') AND (月份 LIKE '" & 月 & "')"
72
+        cmd.Connection = conn : cmd.CommandText = SQL1 : dr = cmd.ExecuteReader
73
+        If dr.Read() Then
74
+            Label36.Text = Format(Val(dr("底薪").ToString), "#,##0.00") : Label37.Text = Format(Val(dr("職務等類").ToString), "#,##0.00")
75
+            Label38.Text = Format(Val(dr("職務等類工資").ToString), "#,##0.00") : Label39.Text = Format(Val(dr("上班天數").ToString), "#,##0.00")
76
+            Label40.Text = Format(Val(dr("正班工資").ToString), "#,##0.00") : Label41.Text = Format(Val(dr("全勤獎").ToString), "#,##0.00")
77
+            Label42.Text = Format(Val(dr("平時加班工時").ToString), "#,##0.00") : Label43.Text = Format(Val(dr("平時加班工資").ToString), "#,##0.00")
78
+            Label44.Text = Format(Val(dr("週末加班工時").ToString), "#,##0.00") : Label45.Text = Format(Val(dr("週末加班工資").ToString), "#,##0.00")
79
+            Label46.Text = Format(Val(dr("假日加班工時").ToString), "#,##0.00") : Label47.Text = Format(Val(dr("假日加班工資").ToString), "#,##0.00")
80
+            Label48.Text = Format(Val(dr("職務級數").ToString), "#,##0.00") : Label49.Text = Format(Val(dr("單位級數工資").ToString), "#,##0.00")
81
+            Label50.Text = Format(Val(dr("職務工資").ToString), "#,##0.00") : Label51.Text = Format(Val(dr("往年年資").ToString), "#,##0.00")
82
+            Label52.Text = Format(Val(dr("去年年資").ToString), "#,##0.00") : Label53.Text = Format(Val(dr("年資工資").ToString), "#,##0.00")
83
+            Label54.Text = Format(Val(dr("夜班/其他").ToString), "#,##0.00") : Label55.Text = Format(Val(dr("應發工資").ToString), "#,##0.00")
84
+            Label56.Text = Format(Val(dr("社保費").ToString), "#,##0.00") : Label57.Text = Format(Val(dr("代扣稅").ToString), "#,##0.00")
85
+            Label58.Text = Format(Val(dr("借款").ToString), "#,##0.00") : Label59.Text = Format(Val(dr("其他").ToString), "#,##0.00")
86
+            Label60.Text = Format(Val(dr("扣款合計").ToString), "#,##0.00") : Label61.Text = Format(Val(dr("實發合計").ToString), "#,##0.00")
87
+        Else
88
+            Label36.Text = "0.00" : Label37.Text = "0.00" : Label38.Text = "0.00" : Label39.Text = "0.00" : Label40.Text = "0.00" : Label41.Text = "0.00" : Label42.Text = "0.00"
89
+            Label43.Text = "0.00" : Label44.Text = "0.00" : Label45.Text = "0.00" : Label46.Text = "0.00" : Label47.Text = "0.00" : Label48.Text = "0.00" : Label49.Text = "0.00"
90
+            Label50.Text = "0.00" : Label51.Text = "0.00" : Label52.Text = "0.00" : Label53.Text = "0.00" : Label54.Text = "0.00" : Label55.Text = "0.00" : Label56.Text = "0.00"
91
+            Label57.Text = "0.00" : Label58.Text = "0.00" : Label59.Text = "0.00" : Label60.Text = "0.00" : Label61.Text = "0.00"
92
+        End If
93
+        conn.Close()
94
+        If conn.State = ConnectionState.Closed Then : conn.ConnectionString = ConString : conn.Open() : End If
95
+        SQL1 = "SELECT 核實 FROM 人員薪資表簽名核實 WHERE (姓名 LIKE N'" & TextBox2.Text & "') AND (工號 LIKE N'" & TextBox7.Text & "') AND (年份 LIKE '" & ComboBox1.Text & "') AND (月份 LIKE '" & 月 & "')"
96
+        cmd.Connection = conn : cmd.CommandText = SQL1 : dr = cmd.ExecuteReader
97
+        If dr.Read() Then
98
+            Label62.Text = "已簽"
99
+        Else
100
+            Label62.Text = "未簽"
101
+        End If
102
+        conn.Close()
103
+    End Sub
104
+    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
105
+        月 = "01" : 讀取薪資條() : TextBox1.Focus() : Timer1.Interval = 60000
106
+    End Sub
107
+    Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
108
+        月 = "02" : 讀取薪資條() : TextBox1.Focus() : Timer1.Interval = 60000
109
+    End Sub
110
+    Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
111
+        月 = "03" : 讀取薪資條() : TextBox1.Focus() : Timer1.Interval = 60000
112
+    End Sub
113
+    Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click
114
+        月 = "04" : 讀取薪資條() : TextBox1.Focus() : Timer1.Interval = 60000
115
+    End Sub
116
+    Private Sub Button6_Click(sender As Object, e As EventArgs) Handles Button6.Click
117
+        月 = "05" : 讀取薪資條() : TextBox1.Focus() : Timer1.Interval = 60000
118
+    End Sub
119
+    Private Sub Button7_Click(sender As Object, e As EventArgs) Handles Button7.Click
120
+        月 = "06" : 讀取薪資條() : TextBox1.Focus() : Timer1.Interval = 60000
121
+    End Sub
122
+    Private Sub Button8_Click(sender As Object, e As EventArgs) Handles Button8.Click
123
+        月 = "07" : 讀取薪資條() : TextBox1.Focus() : Timer1.Interval = 60000
124
+    End Sub
125
+    Private Sub Button9_Click(sender As Object, e As EventArgs) Handles Button9.Click
126
+        月 = "08" : 讀取薪資條() : TextBox1.Focus() : Timer1.Interval = 60000
127
+    End Sub
128
+    Private Sub Button10_Click(sender As Object, e As EventArgs) Handles Button10.Click
129
+        月 = "09" : 讀取薪資條() : TextBox1.Focus() : Timer1.Interval = 60000
130
+    End Sub
131
+    Private Sub Button11_Click(sender As Object, e As EventArgs) Handles Button11.Click
132
+        月 = "10" : 讀取薪資條() : TextBox1.Focus() : Timer1.Interval = 60000
133
+    End Sub
134
+    Private Sub Button12_Click(sender As Object, e As EventArgs) Handles Button12.Click
135
+        月 = "11" : 讀取薪資條() : TextBox1.Focus() : Timer1.Interval = 60000
136
+    End Sub
137
+    Private Sub Button13_Click(sender As Object, e As EventArgs) Handles Button13.Click
138
+        月 = "12" : 讀取薪資條() : TextBox1.Focus() : Timer1.Interval = 60000
139
+    End Sub
140
+    Private Sub Button14_Click(sender As Object, e As EventArgs) Handles Button14.Click
141
+        If 月 = "" Then
142
+            MsgBox("簽核前請先確定資料正確")
143
+        Else
144
+            If conn.State = ConnectionState.Closed Then : conn.ConnectionString = ConString : conn.Open() : End If
145
+            SQL1 = "SELECT 實發合計   FROM 人員薪資表  WHERE (姓名 LIKE N'" & TextBox2.Text & "') AND (年份 LIKE '" & ComboBox1.Text & "') AND (月份 LIKE '" & 月 & "')"
146
+            cmd.Connection = conn : cmd.CommandText = SQL1 : dr = cmd.ExecuteReader
147
+            If dr.Read() Then
148
+                conn.Close()
149
+                If conn.State = ConnectionState.Closed Then : conn.ConnectionString = ConString : conn.Open() : End If
150
+                SQL1 = "SELECT 核實 FROM 人員薪資表簽名核實  
151
+                        WHERE (姓名 LIKE N'" & TextBox2.Text & "') AND (工號 LIKE N'" & TextBox7.Text & "') AND (年份 LIKE '" & ComboBox1.Text & "') AND (月份 LIKE '" & 月 & "')"
152
+                cmd.Connection = conn : cmd.CommandText = SQL1 : dr = cmd.ExecuteReader
153
+                If dr.Read() Then
154
+                    MsgBox("已簽核過") : conn.Close()
155
+                Else
156
+                    conn.Close()
157
+                    If conn.State = ConnectionState.Closed Then : conn.ConnectionString = ConString : conn.Open() : End If
158
+                    SQL1 = "INSERT INTO 人員薪資表簽名核實 ( 姓名, 工號, 年份, 月份, 核實) 
159
+                    VALUES (N'" & TextBox2.Text & "',N'" & TextBox7.Text & "',N'" & ComboBox1.Text & "',N'" & 月 & "',N'1')"
160
+                    cmd.Connection = conn : cmd.CommandText = SQL1 : cmd.ExecuteNonQuery() : conn.Close()
161
+                    Label62.Text = "已簽"
162
+                End If
163
+            Else
164
+                MsgBox("簽核前請先確定資料正確") : conn.Close()
165
+            End If
166
+        End If
167
+        月 = "" : TextBox1.Focus()
168
+    End Sub
169
+End Class

Loading…
취소
저장