20230930備份

Calculator-Backend-SYS.sln

@@ -0,0 +1,25 @@
+
+Microsoft Visual Studio Solution File, Format Version 12.00
+# Visual Studio Version 17
+VisualStudioVersion = 17.5.33530.505
+MinimumVisualStudioVersion = 10.0.40219.1
+Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "Calculator-Backend-SYS", "Calculator-Backend-SYS\Calculator-Backend-SYS.vbproj", "{C96D264B-4289-4349-9B79-9BFC4E6ED689}"
+EndProject
+Global
+	GlobalSection(SolutionConfigurationPlatforms) = preSolution
+		Debug|Any CPU = Debug|Any CPU
+		Release|Any CPU = Release|Any CPU
+	EndGlobalSection
+	GlobalSection(ProjectConfigurationPlatforms) = postSolution
+		{C96D264B-4289-4349-9B79-9BFC4E6ED689}.Debug|Any CPU.ActiveCfg = Debug|Any CPU
+		{C96D264B-4289-4349-9B79-9BFC4E6ED689}.Debug|Any CPU.Build.0 = Debug|Any CPU
+		{C96D264B-4289-4349-9B79-9BFC4E6ED689}.Release|Any CPU.ActiveCfg = Release|Any CPU
+		{C96D264B-4289-4349-9B79-9BFC4E6ED689}.Release|Any CPU.Build.0 = Release|Any CPU
+	EndGlobalSection
+	GlobalSection(SolutionProperties) = preSolution
+		HideSolutionNode = FALSE
+	EndGlobalSection
+	GlobalSection(ExtensibilityGlobals) = postSolution
+		SolutionGuid = {AC6A0245-C6CD-4EFC-B390-E0423B05557F}
+	EndGlobalSection
+EndGlobal

Calculator-Backend-SYS/App.config

@@ -0,0 +1,6 @@
+<?xml version="1.0" encoding="utf-8" ?>
+<configuration>
+    <startup>
+        <supportedRuntime version="v4.0" sku=".NETFramework,Version=v4.8" />
+    </startup>
+</configuration>

Calculator-Backend-SYS/Calculator-Backend-SYS.resx

@@ -0,0 +1,296 @@
+<?xml version="1.0" encoding="utf-8"?>
+<root>
+  <!-- 
+    Microsoft ResX Schema 
+    
+    Version 2.0
+    
+    The primary goals of this format is to allow a simple XML format 
+    that is mostly human readable. The generation and parsing of the 
+    various data types are done through the TypeConverter classes 
+    associated with the data types.
+    
+    Example:
+    
+    ... ado.net/XML headers & schema ...
+    <resheader name="resmimetype">text/microsoft-resx</resheader>
+    <resheader name="version">2.0</resheader>
+    <resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
+    <resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
+    <data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
+    <data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
+    <data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
+        <value>[base64 mime encoded serialized .NET Framework object]</value>
+    </data>
+    <data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+        <value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
+        <comment>This is a comment</comment>
+    </data>
+                
+    There are any number of "resheader" rows that contain simple 
+    name/value pairs.
+    
+    Each data row contains a name, and value. The row also contains a 
+    type or mimetype. Type corresponds to a .NET class that support 
+    text/value conversion through the TypeConverter architecture. 
+    Classes that don't support this are serialized and stored with the 
+    mimetype set.
+    
+    The mimetype is used for serialized objects, and tells the 
+    ResXResourceReader how to depersist the object. This is currently not 
+    extensible. For a given mimetype the value must be set accordingly:
+    
+    Note - application/x-microsoft.net.object.binary.base64 is the format 
+    that the ResXResourceWriter will generate, however the reader can 
+    read any of the formats listed below.
+    
+    mimetype: application/x-microsoft.net.object.binary.base64
+    value   : The object must be serialized with 
+            : System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
+            : and then encoded with base64 encoding.
+    
+    mimetype: application/x-microsoft.net.object.soap.base64
+    value   : The object must be serialized with 
+            : System.Runtime.Serialization.Formatters.Soap.SoapFormatter
+            : and then encoded with base64 encoding.
+
+    mimetype: application/x-microsoft.net.object.bytearray.base64
+    value   : The object must be serialized into a byte array 
+            : using a System.ComponentModel.TypeConverter
+            : and then encoded with base64 encoding.
+    -->
+  <xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
+    <xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
+    <xsd:element name="root" msdata:IsDataSet="true">
+      <xsd:complexType>
+        <xsd:choice maxOccurs="unbounded">
+          <xsd:element name="metadata">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" />
+              </xsd:sequence>
+              <xsd:attribute name="name" use="required" type="xsd:string" />
+              <xsd:attribute name="type" type="xsd:string" />
+              <xsd:attribute name="mimetype" type="xsd:string" />
+              <xsd:attribute ref="xml:space" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="assembly">
+            <xsd:complexType>
+              <xsd:attribute name="alias" type="xsd:string" />
+              <xsd:attribute name="name" type="xsd:string" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="data">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+                <xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
+              </xsd:sequence>
+              <xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
+              <xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
+              <xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
+              <xsd:attribute ref="xml:space" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="resheader">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+              </xsd:sequence>
+              <xsd:attribute name="name" type="xsd:string" use="required" />
+            </xsd:complexType>
+          </xsd:element>
+        </xsd:choice>
+      </xsd:complexType>
+    </xsd:element>
+  </xsd:schema>
+  <resheader name="resmimetype">
+    <value>text/microsoft-resx</value>
+  </resheader>
+  <resheader name="version">
+    <value>2.0</value>
+  </resheader>
+  <resheader name="reader">
+    <value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+  </resheader>
+  <resheader name="writer">
+    <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+  </resheader>
+  <data name="Label2.Text" xml:space="preserve">
+    <value>Mohon perhatikan, program ini adalah program latar belakang perhitungan otomatis berbagai laporan dalam sistem ERP dan tidak boleh dimatikan. Jika Anda menemukan program ini telah dimatikan, harap membukanya dan jalankannya.</value>
+  </data>
+  <metadata name="Timer1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>17, 17</value>
+  </metadata>
+  <metadata name="Timer2.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>109, 17</value>
+  </metadata>
+  <assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
+  <data name="$this.Icon" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+    <value>
+        AAABAAEAMDAAAAEAIACoJQAAFgAAACgAAAAwAAAAYAAAAAEAIAAAAAAAACQAABILAAASCwAAAAAAAAAA
+        AAAAAAAAAQEBAAEBAQAAAAAA////AAAAAAQEBAQOERERGRcXFyEXFxciFxcXIhcXFyIXFxciFxcXIhcX
+        FyIXFxciFxcXIhcXFyIXFxciFxcXIhcXFyIXFxciFxcXIhcXFyIXFxciFxcXIhcXFyIXFxciFxcXIhcX
+        FyIXFxciFxcXIhcXFyIXFxciFxcXIhcXFyIXFxciFxcXIhcXFyIXFxchEhISGgQEBA4AAAAFAAAAAAgI
+        CAAHBwcACgoKAAAAAAAAAAAAAAAAAAAAAAAAAAADAAAAFQMDAzcODg5gFhYWfhgYGIsZGRmPGRkZjxkZ
+        GY8ZGRmPGRkZjxgYGI8YGBiPGBgYjxgYGI8YGBiPGBgYjxgYGI8ZGRmPGRkZjxgYGI8YGBiPGBgYjxgY
+        GI8YGBiPGBgYjxgYGI8YGBiPGRkZjxkZGY8ZGRmPGBgYjxkZGY8ZGRmPGBgYjxgYGI8YGBiLFhYWfg4O
+        DmADAwM4AAAAFQsLCwQAAAAACgoKAAMDAwAAAAAAAAAAAAAAAAcBAQEqDw8PbCAgIK4sLCzYMDAw6TIy
+        Mu8yMjLwMzMz8TMzM/EyMjLxMjIy8TIyMvEyMjLxMjIy8TIyMvEyMjLxMjIy8TMzMvEzMzPxMzMz8TIz
+        M/EyMzPxMjIz8TIyMvEyMjLxMjIy8TIyMvEyMjLxMjIy8TIyMvEyMjLxMjIy8TIyMvEyMjLxMjIy8TEx
+        MfAxMTHvMDAw6SsrK9ghISGwEBAQbQMDAyoAAAAHAAAAAAAAAAAAAAAAAAAABgQEBDAYGBiILCws2DQ0
+        NPg2Njb/ODg4/zk5Of85OTn/Ojo6/zo6Ov85OTn/OTk5/zk5Of85OTn/Ojo6/zo6Ov86Ojr/Ojo6/zo6
+        Ov86Ojr/Ojk5/zo5Of86OTj/Ojk4/zo4OP86ODj/Ojg4/zo5OP86OTn/OTo6/zk5Of86Ojr/Ojo6/zk5
+        Of85OTn/OTk5/zg4OP84ODj/ODg4/zc3N/80NDT4LS0t2RkZGYoFBQUxAAAABgAAAAAAAAACAgICJBsb
+        G4UxMTHjNjY2/jc3N/85OTn/Ojo6/zs7O/88PDz/PDw8/zw8PP88PDz/PDw8/zw8PP88PDz/PDw8/z08
+        PP89PT3/PT08/z08Ov89Ozr/PTw9/z1AQ/89Rkz/PEtU/zxOWv89T1z/PE5Z/zxKU/88QUT/PDw8/zw8
+        PP88PDz/PDw8/zs7O/87Ozv/Ozs7/zs7O/86Ojr/Ojo6/zg4OP83Nzf/NjY2/zAwMOMcHByHAwMDJAAA
+        AAIAAAAPFhYWXy8vL9Y3Nzf+Nzc3/zo6Ov88PDz/PT09/z4+Pv8+Pj7/Pj4+/z4+Pv8/Pz//Pz8//z8/
+        P/8/Pz//QEBA/0BAQP9APz3/QUBA/0BKUf9AW23/P2+N/z+AqP8/jb3/P5XL/z+a0/8/m9X/P5nT/z6R
+        w/8/YHP/QD8+/0A/QP8/Pz//Pz8//z4+Pv8+Pj7/Pj4+/z4+Pv8+Pj7/PT09/zw8PP86Ojr/Nzc3/zY2
+        Nv4vLy/XFxcXYQAAABAHBwctJycnoTc3N/k4ODj/Ojo6/z09Pf8+Pj7/Pz8//0BAQP9AQED/QEBA/0FB
+        Qf9BQUH/QUFB/0FBQv9CQkL/Q0FA/0NDRP9CVF7/QnKO/0KPvv9Co9//Qa/y/0G0+/9Ctv3/Qrb+/0K1
+        /f9Btf3/QrX9/0Cx8/9BcIv/QkFB/0JCQv9CQkL/QUFB/0FBQf9BQUH/QEBA/0BAQP9AQED/Pz8//z4+
+        Pv88PDz/Ojo6/zc3N/82Njb5KCgoowgICC4XFxdULy8vzTg4OP86Ojr/PT09/z8/P/9AQED/QEBA/0FB
+        Qf9BQUH/QkJC/0JCQv9CQkL/Q0ND/0NDQv9EQkL/Q1BY/0Nzkf9Dmc3/Q67v/0O2/P9Dtvz/RLDy/0Sn
+        4/9EnND/RJLB/0SLt/9EibT/RIu4/0OPu/9DZXj/RERD/0RERP9DRET/Q0ND/0NDQ/9CQkL/QkJC/0JC
+        Qv9BQUH/QEBA/z8/P/8+Pj7/PDw8/zk5Of83Nzf/MDAwzhgYGFYfHx90NDQ05Tg4OP87Ozv/Pj4+/0BA
+        QP9AQED/QUFB/0FBQf9CQkL/QkJC/0NDQ/9DQ0P/RENC/0RGR/9DYXT/Q5C//0Ou7v9Dt/z/RLT3/0Sm
+        3/9Fjrr/RnSR/0Zhcv9HVl7/R09U/0dMUP9HTE//R0xP/0ZOU/9GSk3/RUVF/0VFRf9FRUX/RERE/0RE
+        RP9DQ0P/Q0ND/0JCQv9BQUH/QUFB/0BAQP8/Pz//PT09/zo6Ov84ODj/NDQ05h8fH3YgICCCNTU17jg4
+        OP88PDz/Pj4+/z8/P/9AQED/QUFB/0JCQv9CQkL/Q0ND/0NDQ/9DQ0L/RElM/0Nxi/9Dotr/Q7X6/0S1
+        +f9Ept//RYWp/0djdP9IT1P/SEdH/0hFRP9JRUT/SURF/0hFRv9IRUb/SEVF/0dDRP9HRUX/RkdG/0ZG
+        Rv9GRkb/RUVF/0RERP9ERET/Q0ND/0JCQv9CQkL/QUFB/0BAQP8/Pz//Pj4+/zs7O/84ODj/NjY27yIi
+        IoQfHx+ENTU17zg4OP88PDz/Pz8//0BAQP9BQUH/QkJC/0NDQ/9DQ0P/Q0NE/0RDQv9ESk7/Q3iW/0Oq
+        5f9Et/v/RLHx/0WSvv9HZnn/SExP/0lGRf9KRkf/SUlK/0lTT/9IYVj/SG5g/0h3Zf9Iemf/R3Zl/0Zr
+        Xv9HVE//SEdH/0dHR/9HR0f/RkZG/0VFRf9ERET/RERE/0NDQ/9DQ0P/QkJC/0FBQf9AQED/Pj4+/zw8
+        PP84ODj/ODg48SgoKIogICCFNTU17zk5Of88PDz/Pz8//0BAQP9BQUH/QkJC/0NDQ/9ERET/REND/0RJ
+        S/9EeJX/Q6zn/0S3+/9Fren/RoKj/0hVXf9JR0j/SkdH/0pOTP9JY1r/SIVw/0ejg/9Gt4//RsCV/0bF
+        mP9Gxpj/RcSX/0W8kf9Hd2X/SUhI/0hISf9HR0f/RkZG/0ZGRv9FRUX/RERE/0RERP9ERET/Q0ND/0JC
+        Qv9BQUH/Pz8//zw8PP84ODj/ODg48SkpKYsgICCFNTU17zk5Of88PDz/Pj4+/0FBQf9CQkL/Q0JC/0ND
+        Q/9EREP/REZG/0Ruh/9EqeP/Rbf7/0Ws5/9Hepb/SU9S/0pIR/9KSkr/SV9X/0iNdf9ItpD/SMqd/0fQ
+        of9I0KH/SM+h/0jPof9Hz6D/Rs+g/0bKnP9IgGz/SklK/0pKSv9ISEj/R0dH/0dHR/9GRkb/RUVF/0RE
+        RP9ERET/Q0ND/0JCQv9BQUH/Pz8//z09Pf85OTn/OTk58SkpKYsfHx+FNTU17zk5Of88PDz/Pz8//0FB
+        Qf9CQkL/Q0ND/0RERP9EQ0L/RF9t/0Sf1f9Et/z/Ra7r/0d8mf9JTlD/SkhI/0pOTf9Kc2T/SKyK/0jM
+        n/9I0aP/SdCi/0nQo/9J0aT/SdGk/0jQov9Iz6H/R9Ch/0fMnv9Jgm7/S0pK/0pKSv9JSUn/SEhI/0hI
+        SP9HR0f/RkZG/0VFRf9FRUX/Q0ND/0JCQv9BQUH/QEBA/z09Pf85OTn/OTk58SkpKYsgICCFNTU17zk5
+        Of88PDz/Pz8//0FBQf9DQ0P/REVE/0VDQ/9FTVP/RIuz/0W19/9FtPT/R4et/0lQVP9LSEj/S05N/0p9
+        a/9IvJT/SNGj/0nQo/9J0KT/StKl/0rKoP9LuJT/S6WG/0uYff9Lk3r/Sph8/0mhgv9LdGX/TEtL/0tL
+        S/9JSUn/SUlJ/0hISP9HR0f/RkZG/0ZGRv9FRUX/RERE/0NDQ/9CQkL/QEBA/z09Pf85OTn/OTk58Skp
+        KYsgICCFNjY27zk5Of89PT3/Pz8//0FBQf9DQ0P/RURE/0VERP9Fa4L/RKzo/0W4+/9GnMz/SVtl/0tI
+        SP9MTEz/Snpp/0i+l/9J0aT/StCk/0rSpv9KzKL/TK2N/06Dcf9PZl7/UFhV/1BTUv9QUlH/UFNR/09X
+        VP9OVFH/TU1N/0xMTP9LS0v/SkpK/0lJSf9ISEj/R0dH/0dHR/9GRkb/RUVF/0RERP9DQ0P/QEBA/z09
+        Pf85OTn/ODg48SkpKYsgICCFNjY27zk5Of89PT3/Pz8//0JCQv9ERET/REND/0VOVP9EkL3/Rbf6/0Wv
+        7P9Ic4v/SkpJ/0xJSv9La2D/SbeS/0nSpf9K0aX/StOn/0vEnf9OkHn/UGBb/1FQUf9ST1D/UlBR/1BP
+        T/9PTk7/TkxM/01LTP9NTEz/Tk5O/05OTf9MTEz/S0tL/0pKSv9JSUn/SEhI/0dHR/9GRkb/RUVF/0RE
+        RP9DQ0P/QEBA/z09Pf85OTn/Nzc38SkpKYsgICCFNjY27zk5Of89PT3/QEBA/0NDQ/9ERET/REND/0Vl
+        ef9EquX/Rbn8/0aWwv9JVVz/S0hI/0tXU/9KoIP/SdCk/0rRpv9L06j/TMKd/0+Dcv9SVlP/U1FR/1NT
+        U/9RUVH/UFBQ/1dYV/9hYmH/Z2dn/2NkZP9ZWVn/Tk5O/0xMTP9NTU3/TExM/0tLS/9KSkr/SUlJ/0hI
+        SP9GRkb/RUVF/0RERP9DQ0P/QEBA/z09Pf85OTn/ODg48SkpKYsgICCFNjY27zk5Of89PT3/QUFB/0ND
+        Q/9FRET/RUdI/0SBpf9Ftff/RrLx/0h4kv9KSkr/TEpK/0p5af9JxZz/StKm/0vTqP9MyqP/UIt3/1JV
+        U/9TUlL/VFRU/1JSUv9fX1//iIiI/7Kysv/Kysr/0NDQ/83Nzf+9vb3/lZWV/2VlZf9PT0//TExM/0xM
+        TP9KSkr/SUlJ/0lJSf9HR0f/RkZG/0VFRf9DQ0P/QUFB/z09Pf85OTn/ODg48SkpKYsgICCFNjY27zo6
+        Ov89PT3/QUFB/0RERP9FQ0L/RVFY/0WYyf9Fuf3/R6XY/0lgbP9LSEf/TFVS/0qggv9J0qb/S9Gn/0zT
+        qf9Opor/Ul1Z/1NSUv9UVFT/VFRU/29vb/+3t7f/6enp//v7+//////////////////+/v7/8fHx/7W1
+        tf9gYGD/S0tL/01NTf9LS0v/SkpK/0lJSf9ISEj/RkZG/0VFRf9DQ0P/QUFB/z4+Pv85OTn/ODg48Skp
+        KYsgICCFNzc37zs7O/8/Pz//QkJC/0RFRf9GQ0L/Rl9t/0am3/9Huv3/SZS+/0tTWP9NSUj/TWhe/0u8
+        lv9L06j/TdOq/07Hov9Re27/VFJT/1ZWVv9UVFT/a2tr/8HBwf/5+fn//v7+///////8/Pz/9vb2//r6
+        +v/+/v7/7u7u/6CgoP9YWFj/Tk5O/05OTv9MTEz/S0tL/0pKSv9JSUn/SEhI/0dHR/9FRUX/QkJC/z8/
+        P/86Ojr/OTk58SoqKoshISGFODg47zw8PP9AQED/Q0ND/0ZGRv9IRUT/SG2D/0ev6/9JuPj/S4am/05P
+        UP9PTU3/Tn9u/03Lov9O06n/T9Wr/1Gyk/9VY17/WFZW/1hYWP9cXFz/o6Oj//X19f/+/v7//f39/+vr
+        6/+9vb3/pKSk/7S0tP/V1dX/o6Oj/1xcXP9RUVH/UVFR/1BQUP9PT0//TU1N/0xMTP9KSkr/SUlJ/0lJ
+        Sf9GRkb/RERE/0FBQf88PDz/Ojo68SsrK4whISGFOTk57z09Pf9BQUH/RERE/0hISP9KSEf/SXiT/0m0
+        8v9LtvP/TXyW/1BOTf9RUlH/UJB7/0/Rp/9R1Kr/UtSs/1Sdhv9YWlr/Wlpa/1lZWf9tbW3/0tLS//39
+        /f/+/v7/8fHx/6Kiov9kZGT/Wlpa/2BgYP91dXX/YWFh/1RUVP9UVFT/U1NT/1JSUv9RUVH/T09P/05O
+        Tv9MTEz/S0tL/0pKSv9ISEj/RUVF/0JCQv89PT3/PDw88iwsLIwiIiKFOjo67z8/P/9DQ0P/RkdG/0lJ
+        Sf9LS0r/S3+d/0u39v9MtO//T3eO/1JPTv9UVlX/UpqC/1LTqf9T1Kv/VNOr/1eRf/9bWlr/XV1d/1tb
+        W/+BgYH/6Ojo///////+/v7/1tbW/3Fxcf9aWlr/XV1d/1tbW/9YWFj/WFhY/1hYWP9WVlb/VlZW/1RU
+        VP9TU1P/UVFR/1BQUP9OTk7/TU1N/0xMTP9KSkr/R0dH/0RERP8+Pj7/PT098i0tLYwjIyOFOzs770BA
+        QP9FRUX/SEhI/0tLS/9NTEz/TIKh/0259/9Pte7/UXeO/1RQT/9WWVf/VJ6F/1TUq/9W1a3/VtOs/1mQ
+        f/9eXFz/YF9f/11dXf+JiYn/7u7u///////9/f3/y8vL/2xsbP9eXl7/X19f/19fX/9dXV3/XFxc/1pa
+        Wv9ZWVn/WFhY/1ZWVv9UVFT/U1NT/1JSUv9QUFD/Tk5O/01NTf9LS0v/SUlJ/0VFRf9AQED/Pz8/8i4u
+        Lo0kJCSFPT0970FBQf9GRkb/SkpK/01NTf9PTk3/ToGd/0659v9Qt/D/U3yS/1ZTUv9XWlj/VpyE/1XV
+        q/9X1a3/WNWu/1uXhP9gX1//YWFh/19fX/+BgYH/5ubm///////+/v7/3Nzc/3p6ev9eXl7/YWFh/19f
+        X/9dXV3/XV1d/1xcXP9bW1v/WVlZ/1dXV/9WVlb/VVVV/1NTU/9SUlL/UVFR/09PT/9NTU3/S0tL/0dH
+        R/9CQkL/QUFB8i8vL40lJSWFPz8/70NDQ/9ISEj/TExM/09PT/9RT07/UXyV/1G38v9SuvX/VYWe/1hX
+        Vv9ZWVn/WJN//1fTq/9Z1q7/Wtiw/12okP9iZmT/ZGNj/2NjY/9ycnL/zs7O//39/f/+/v7/9vb2/7a2
+        tv92dnb/Z2dn/3Fxcf+Kior/cXFx/11dXf9dXV3/XFxc/1paWv9ZWVn/V1dX/1ZWVv9VVVX/U1NT/1JS
+        Uv9QUFD/TU1N/0lJSf9DQ0P/QkJC8jAwMI0nJyeFQUFB70VFRf9KSkr/Tk9O/1JSUv9UUU//U3OG/1O0
+        6v9Uvvv/V5Kz/1pcXv9bWVn/W4N1/1rMp/9c16//Xdiy/1++oP9jdW//ZmRk/2dnZ/9oaGj/oaGh//Ly
+        8v///////f39//T09P/U1NT/v7+//8zMzP/l5eX/urq6/3Fxcf9fX1//Xl5e/11dXf9bW1v/Wlpa/1lZ
+        Wf9XV1f/VlZW/1VVVf9SUlL/T09P/0tLS/9FRUX/RERE8jIyMo0nJyeFQkJC70dHR/9MTEz/UFBQ/1RU
+        VP9VUlH/VWl0/1Ws3f9Wwf3/WKPL/1tmbP9dWVr/XnJr/1y+nf9d2bD/X9ix/2DRrf9kk4T/Z2Zm/2ho
+        aP9nZ2j/dXV1/7u7u//19fX//v7+///////+/v7/+/v7//39/f//////9vb2/7W1tf9sbGz/X19f/19f
+        X/9dXV3/XFxc/1paWv9ZWVn/V1dX/1ZWVv9UVFT/UFBQ/0xMTP9HR0f/RUVF8jIyMo0oKCiFRERE70lJ
+        Sf9OTk7/UlJS/1VWVv9XVlX/WF9k/1iex/9Ywfz/WrPk/113hf9gXFz/YWVj/1+ijP9f16//Ydiy/2LZ
+        s/9kvKD/aHp0/2poaf9ra2v/ampq/3p6ev+xsbH/4eHh//j4+P/+/v7//f39//39/f/7+/v/6urq/7Oz
+        s/9wcHD/YWFh/2FhYf9eXl7/XV1d/1xcXP9aWlr/WVlZ/1dXV/9WVlb/U1NT/05OTv9JSUn/R0dH8jQ0
+        NI0pKSmFRkZG70tLS/9QUFD/VFRU/1dYWP9aWVn/Wltb/1qKpP9bvvX/XL/3/1+Rq/9hY2T/Y2Bg/2OB
+        d/9hx6X/Ytmy/2TZs/9l1rL/Z6uW/2t1cv9ta2z/bW5t/2xsbP9ycnL/i4uL/6urq/+/v7//xsbG/8LC
+        wv+ysrL/kpKS/3BwcP9lZWX/ZGRk/2NjY/9hYWH/YGBg/15eXv9dXV3/W1tb/1paWv9YWFj/VlZW/1FR
+        Uf9LS0v/SUlJ8jU1NY0rKyuFSEhI701NTf9SUlL/VlZW/1lZWf9cXFv/XVta/110gP9dsuL/XsT9/2Ct
+        1/9jc3z/ZWJi/2Zraf9loo7/ZNWw/2bZs/9n2rX/aNSx/2qplf9tenb/b21u/3Bvb/9ub2//bW1t/29v
+        b/9zdHP/dXZ2/3Nzc/9tbW3/aGho/2dnZ/9oaGj/ZmZm/2VlZf9jY2P/YWFh/2BgYP9fX1//Xl5e/11d
+        Xf9bW1v/WFhY/1NTU/9NTU3/TExM8jc3N40sLCyFSkpK709PT/9UVFT/WFhY/1xcXP9eXl7/X15e/19k
+        aP9fmrr/YMP5/2LA9f9kk63/Zmhp/2hmZv9oeXP/Z7ic/2fZs/9p2rT/adu2/2rWs/9st5//b4yC/3B1
+        c/9xcHD/cW9v/3Fub/9vbW7/bmxs/21ra/9sa2z/bGxs/2tra/9qamr/aGho/2ZmZv9lZWX/Y2Nj/2Ji
+        Yv9hYWH/YGBg/19fX/9dXV3/WVlZ/1VVVf9PT0//TU1N8jg4OI0uLi6FTU1N71FRUf9WVlb/Wlpa/15e
+        Xv9gYGD/YWFh/2JhYP9ifIr/Yrbj/2PH/f9lt+L/aIGO/2ppaP9ra2v/a4V9/2nAo/9q2rX/a9u2/2zb
+        t/9s27f/bc2u/26wmv9wlor/cYZ//3F+ev9xe3j/cH15/2+Eff9uenb/bm1t/21tbf9tbGz/ampq/2ho
+        aP9mZmb/ZWVl/2RkZP9jY2P/YmJi/2FhYf9fX1//W1tb/1dXV/9RUVH/UFBQ8jk5OY0vLy+FT09P71RU
+        VP9YWFj/XV1d/2BgYP9jY2P/Y2Nk/2VkY/9laWv/ZZex/2bD9f9nx/n/aavP/2x5gf9ubGz/b29v/26J
+        gP9tvaL/bdm0/27ct/9u27f/b9y5/2/buP9v1LP/cMqs/3DBpv9vvqT/bsCl/23GqP9ul4n/cG9v/29v
+        cP9ubm7/bW1t/2tra/9paWn/aGho/2dnZ/9lZWX/ZGRk/2JiYv9gYGD/XV1d/1lZWf9TU1P/UlJS8js7
+        O40wMDCFUVFR71dXV/9cXFz/YGBg/2NjY/9lZWX/ZmZm/2dnZ/9nZmb/aHZ9/2mrz/9qyPv/a8b3/2ym
+        xP9veX//cXBv/3Jycv9yhH7/cK+Z/2/RsP9w27f/cdy4/3HbuP9x3Lj/cd24/3HcuP9w3Lj/b9y3/27Z
+        tP9wno//cnFx/3Fxcf9wcHD/b29v/21tbf9ra2v/ampq/2lpaf9oaGj/ZmZm/2VlZf9jY2P/YGBg/1xc
+        XP9WVlb/VFRU8jw8PI0yMjKFVFRU71paWv9fX1//Y2Nj/2ZmZv9nZ2f/aGho/2lpaf9qamr/a2tq/2yD
+        kP9stt3/bcr7/27G9f9wp8T/cn+F/3Rycv91c3T/dXt5/3SWiv9zuaH/c8+w/3PZtv9z3Lj/c924/3Pc
+        uP9y3Lj/cdy3/3DZtP9yno//dHNz/3Nzc/9ycnL/cXFx/29vb/9tbW3/bGxs/2tra/9qamr/aWlp/2ho
+        aP9mZmb/YmJi/15eXv9YWFj/V1dX8j4+Po00NDSFV1dX71xcXP9hYWH/ZWVl/2hoaP9qamr/ampq/2tr
+        a/9tbG3/bm1t/25vb/9ujJv/brvh/2/L+/9xyPf/crDQ/3SKlf92d3j/d3V0/3d2d/93f33/d5OJ/3ap
+        l/91uqL/dcSo/3TJq/90y6z/c8mr/3LApf90k4j/dXR0/3R0dP9zc3P/cnJy/3Fxcf9vb2//bm5u/21t
+        bf9sbGz/a2tr/2pqav9oaGj/ZWVl/2FhYf9bW1v/Wlpa8kBAQI01NTWEWFhY711dXf9jY2P/Z2dn/2pq
+        av9ra2v/bGxs/21tbf9vbm7/cG9v/3BwcP9xcnP/cY2c/3G53v9yy/r/c8v6/3S94v91nrL/d4OJ/3h4
+        eP95d3b/eXd3/3l6ef95gH3/eIWB/3iKhP93jIX/d4mD/3aDf/92enj/dXV1/3V1df90dHT/c3Nz/3Jy
+        cv9xcXH/b29v/25ubv9tbW3/bW1t/2xsbP9qamr/Z2dn/2NjY/9dXV3/W1tb8kJCQo03NzeAWlpa719f
+        X/9lZWX/aWlp/2xsbP9ubm7/b29v/3BwcP9wcHD/cXFx/3Jycv9zcnL/c3R0/3OKlf9zstL/dMn2/3XO
+        /P92yfT/d7fY/3iesf95iZH/en+B/3p6ev96eHj/e3d3/3p3d/96dnf/enZ2/3h1df93dnb/d3d3/3Z2
+        dv91dXX/dXV1/3R0dP9zc3P/cXFx/3BwcP9wcHD/b29v/25ubv9tbW3/aWlp/2VlZf9eXl7/XFxc8D8/
+        P4Y/Pz91YGBg62FhYf9mZmb/a2tr/25ubv9xcXH/cXFx/3Fxcf9ycnL/c3Nz/3R0dP90dXX/dXV1/3Z1
+        df92gYj/dqO6/3bB5/93zvv/d9D9/3jL9f95v+P/ea/K/3qfsv96lKH/e4yW/3uJj/97h43/eoiP/3mK
+        lP95gYX/eHh4/3h3d/93d3f/dnZ2/3V1df90dHT/c3Nz/3Jycv9ycnL/cXFx/3BwcP9vb2//a2tr/2Zm
+        Zv9gYGD/YGBg7EBAQHZGRkZVYmJi12NjY/9mZmb/bGxs/3BwcP9ycnL/dHR0/3Nzc/90dHT/dHR0/3V1
+        df92dnb/d3d3/3h3eP94d3f/eHt9/3mPm/95rMb/ecLo/3rN+f960f7/etH9/3nN+P96yPH/esPo/3q/
+        4v96vuD/eb/i/3jA4/95mKf/eXl4/3l5ef95eXn/eHh4/3d3d/92dnb/dXV1/3R0dP9zc3P/c3Nz/3Jy
+        cv9wcHD/bGxs/2ZmZv9jY2P/Y2Nj2UdHR1c3NzcnYWFhqWhoaP1lZWX/bGxs/3BwcP9zc3P/dHR0/3V1
+        df91dXX/dnZ2/3Z2dv93d3f/eHh4/3h4eP95enr/enl5/3p5eP97f4H/e4+a/3uluv97uNf/e8Xr/3rM
+        9v960Pv/etL9/3rS/v960v7/edP+/3nO9f95na7/enl5/3p6ev95eXr/eXl5/3h4eP93d3f/d3d3/3Z2
+        dv91dXX/dHR0/3Jycv9wcHD/bGxs/2RkZP5nZ2f9YmJirDs7OykAAAAIYmJiYXBwcONmZmb/aWlp/m5u
+        bv9xcXH/c3Nz/3V1df91dXX/dnZ2/3Z2dv92dnb/d3d3/3d3d/94eHj/eXl5/3l5ev96eXn/e3l4/3t8
+        ff97g4j/eo6Z/3qbq/96pbr/eqzF/3mwzP95ss//eLDM/3iqwf95jJX/eXh4/3l4eP94eHj/eHh4/3h4
+        eP93d3f/d3d3/3d3d/91dXX/dHR0/3Jycv9ubm7/aGho/mZmZv9vb2/lYmJiZAAAAAkAAAAAQUFBG3Bw
+        cI9zc3PyaGho/2lpaf5vb2//cnJy/3Nzc/90dHT/dHR0/3R0dP90dHT/dXV1/3V1df91dXX/dnZ2/3Z2
+        d/93d3f/eHh4/3h4d/94d3b/eHd2/3h3d/94eXn/eHt8/3h8fv93fH//d3t+/3d5e/93d3f/dnZ2/3Z2
+        dv91dXX/dXV1/3V1df91dXX/dXV1/3V1df90dHT/cnJy/29vb/9qamr+Z2dn/3JycvNvb2+SPz8/HAAA
+        AAD///8AAAAAAUxMTCZ2dnaVeXl5625ubv5qamr/a2tr/21tbf5ubm7+b29v/m9vb/5wcHD+cHBw/nBw
+        cP5vb2/+cHBw/nBwcP5wcHD+cXFx/nFxcv5ycnL+cnJy/nJycf5xcnH+cnFx/nFxcP5xcXD+cXBw/nFx
+        cP5xcXH+cHBw/nBvb/5vb2/+b29v/nBwcP5wcHD+cHBw/m9vb/5ubm7+a2tr/2pqav9ubm7+eXl57HZ2
+        dpdMTEwoAAAAAgAAAACFhYUAmJiYAAAAAAFRUVEeenp6b3p6er56enrqeHh49nV1dfdycnL3cnJy93Nz
+        c/dzc3P3c3Nz93Nzc/dzc3P3cnJy93Nzc/dzc3P3c3Nz93Nzc/dzc3P3c3Nz93R0dPd0dHT3dHR093Nz
+        c/dzc3P3c3Nz93R0dPdzdHT3c3Nz93JycvdycnL3c3Nz93Nzc/dzc3P3cnJy93Jycvd1dXX3eXl59np6
+        eut5eXnAeXl5cFBQUB8AAAABAAAAAAAAAAD19fUAnZ2dAP///wAAAAAALS0tC2trazRycnJxcHBwpG1t
+        bbNqamq2ampqtmtra7dra2u3a2trt2tra7dra2u3ampqt2pqardqamq3ampqt2pqardra2u3a2trt2tr
+        a7dra2u3a2trt2pqardqamq3a2trt2tra7dra2u3a2trt2pqardqamq3a2trt2tra7dra2u3ampqtmpq
+        arZtbW2zcXFxpHNzc3FsbGw1Li4uCwAAAAD///8AExMTAFlZWQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAA=
+</value>
+  </data>
+</root>

Calculator-Backend-SYS/Calculator-Backend-SYS.vb

@@ -0,0 +1,353 @@
+Imports System.Globalization
+Imports System.IO
+Public Class Calculator_Backend_SYS
+    Dim 本周周一 As Date
+    Dim 對話框(22) As String
+    Private Sub Set_報價未完成()
+        Dim ds16 As New DataSet : 報價未完成_dgv.DataSource = Nothing : ds16.Clear() : 報價未完成_dgv.AllowUserToAddRows = False
+        SQL_報價未完成() : da.Fill(ds16) : 報價未完成_dgv.DataSource = ds16.Tables(0) : conn.Close()
+        報價未完成_dgv.Columns(0).FillWeight = 70 : 報價未完成_dgv.Columns(1).FillWeight = 45 : 報價未完成_dgv.Columns(2).FillWeight = 120
+        報價未完成_dgv.Columns(3).FillWeight = 120
+        If 系統語言 = "繁體中文" Then : 報價未完成_dgv.Columns(2).Visible = True : 報價未完成_dgv.Columns(3).Visible = False
+        Else : 報價未完成_dgv.Columns(2).Visible = False : 報價未完成_dgv.Columns(3).Visible = True : End If
+    End Sub
+    Private Sub Set_報價未簽回()
+        Dim ds16 As New DataSet : 報價未簽回_dgv.DataSource = Nothing : ds16.Clear() : 報價未簽回_dgv.AllowUserToAddRows = False
+        SQL_報價未簽回() : da.Fill(ds16) : 報價未簽回_dgv.DataSource = ds16.Tables(0) : conn.Close()
+        報價未簽回_dgv.Columns(0).FillWeight = 70 : 報價未簽回_dgv.Columns(1).FillWeight = 45 : 報價未簽回_dgv.Columns(2).FillWeight = 120
+        報價未簽回_dgv.Columns(3).FillWeight = 120
+        If 系統語言 = "繁體中文" Then : 報價未簽回_dgv.Columns(2).Visible = True : 報價未簽回_dgv.Columns(3).Visible = False
+        Else : 報價未簽回_dgv.Columns(2).Visible = False : 報價未簽回_dgv.Columns(3).Visible = True : End If
+    End Sub
+    Private Sub Set_合約未簽回()
+        Dim ds16 As New DataSet : 合約未簽回_dgv.DataSource = Nothing : ds16.Clear() : 合約未簽回_dgv.AllowUserToAddRows = False
+        SQL_合約未簽回() : da.Fill(ds16) : 合約未簽回_dgv.DataSource = ds16.Tables(0) : conn.Close()
+        合約未簽回_dgv.Columns(0).FillWeight = 70 : 合約未簽回_dgv.Columns(1).FillWeight = 45 : 合約未簽回_dgv.Columns(2).FillWeight = 120
+        合約未簽回_dgv.Columns(3).FillWeight = 120
+        If 系統語言 = "繁體中文" Then : 合約未簽回_dgv.Columns(2).Visible = True : 合約未簽回_dgv.Columns(3).Visible = False
+        Else : 合約未簽回_dgv.Columns(2).Visible = False : 合約未簽回_dgv.Columns(3).Visible = True : End If
+    End Sub
+    Private Sub Set_合約驗收單未簽回()
+        Dim ds16 As New DataSet : 驗收未簽回_dgv.DataSource = Nothing : ds16.Clear() : 驗收未簽回_dgv.AllowUserToAddRows = False
+        SQL_合約驗收單未簽回() : da.Fill(ds16) : 驗收未簽回_dgv.DataSource = ds16.Tables(0) : conn.Close()
+        驗收未簽回_dgv.Columns(0).FillWeight = 70 : 驗收未簽回_dgv.Columns(1).FillWeight = 45 : 驗收未簽回_dgv.Columns(2).FillWeight = 120
+        驗收未簽回_dgv.Columns(3).FillWeight = 120
+        If 系統語言 = "繁體中文" Then : 驗收未簽回_dgv.Columns(2).Visible = True : 驗收未簽回_dgv.Columns(3).Visible = False
+        Else : 驗收未簽回_dgv.Columns(2).Visible = False : 驗收未簽回_dgv.Columns(3).Visible = True : End If
+    End Sub
+    Private Sub Set_合約保固單未簽()
+        Dim ds16 As New DataSet : 保固未簽回_dgv.DataSource = Nothing : ds16.Clear() : 保固未簽回_dgv.AllowUserToAddRows = False
+        SQL_合約保固未簽() : da.Fill(ds16) : 保固未簽回_dgv.DataSource = ds16.Tables(0) : conn.Close()
+        保固未簽回_dgv.Columns(0).FillWeight = 70 : 保固未簽回_dgv.Columns(1).FillWeight = 45 : 保固未簽回_dgv.Columns(2).FillWeight = 120
+        保固未簽回_dgv.Columns(3).FillWeight = 120
+        If 系統語言 = "繁體中文" Then : 保固未簽回_dgv.Columns(2).Visible = True : 保固未簽回_dgv.Columns(3).Visible = False
+        Else : 保固未簽回_dgv.Columns(2).Visible = False : 保固未簽回_dgv.Columns(3).Visible = True : End If
+    End Sub
+    Private Sub Set_工程進度表未開()
+        Dim ds16 As New DataSet
+        未開工程進度表_dgv.DataSource = Nothing : ds16.Clear() : 未開工程進度表_dgv.AllowUserToAddRows = False
+        SQL_工程進度表未開() : da.Fill(ds16) : 未開工程進度表_dgv.DataSource = ds16.Tables(0) : conn.Close()
+        未開工程進度表_dgv.Columns(0).FillWeight = 70 : 未開工程進度表_dgv.Columns(1).FillWeight = 45 : 未開工程進度表_dgv.Columns(2).FillWeight = 120
+        未開工程進度表_dgv.Columns(3).FillWeight = 120
+        If 系統語言 = "繁體中文" Then : 未開工程進度表_dgv.Columns(2).Visible = True : 未開工程進度表_dgv.Columns(3).Visible = False
+        Else : 未開工程進度表_dgv.Columns(2).Visible = False : 未開工程進度表_dgv.Columns(3).Visible = True : End If
+    End Sub
+    Private Sub Set_合約未指定主管()
+        Dim ds16 As New DataSet : 合約未指定主管_dgv.DataSource = Nothing : ds16.Clear() : 合約未指定主管_dgv.AllowUserToAddRows = False
+        SQL_合約未指定主管() : da.Fill(ds16) : 合約未指定主管_dgv.DataSource = ds16.Tables(0) : conn.Close()
+        合約未指定主管_dgv.Columns(0).FillWeight = 70 : 合約未指定主管_dgv.Columns(1).FillWeight = 45 : 合約未指定主管_dgv.Columns(2).FillWeight = 120
+        合約未指定主管_dgv.Columns(3).FillWeight = 120
+        If 系統語言 = "繁體中文" Then : 合約未指定主管_dgv.Columns(2).Visible = True : 合約未指定主管_dgv.Columns(3).Visible = False
+        Else : 合約未指定主管_dgv.Columns(2).Visible = False : 合約未指定主管_dgv.Columns(3).Visible = True : End If
+    End Sub
+    Private Sub Set_合約未設利潤()
+        Dim ds16 As New DataSet : 合約預估利潤_dgv.DataSource = Nothing : ds16.Clear() : 合約預估利潤_dgv.AllowUserToAddRows = False
+        SQL_合約未設利潤() : da.Fill(ds16) : 合約預估利潤_dgv.DataSource = ds16.Tables(0) : conn.Close()
+        合約預估利潤_dgv.Columns(0).FillWeight = 70 : 合約預估利潤_dgv.Columns(1).FillWeight = 45 : 合約預估利潤_dgv.Columns(2).FillWeight = 120
+        合約預估利潤_dgv.Columns(3).FillWeight = 120
+        If 系統語言 = "繁體中文" Then : 合約預估利潤_dgv.Columns(2).Visible = True : 合約預估利潤_dgv.Columns(3).Visible = False
+        Else : 合約預估利潤_dgv.Columns(2).Visible = False : 合約預估利潤_dgv.Columns(3).Visible = True : End If
+    End Sub
+    Private Sub Set_合約未放行()
+        Dim ds16 As New DataSet : 合約未放行_dgv.DataSource = Nothing : ds16.Clear() : 合約未放行_dgv.AllowUserToAddRows = False
+        SQL_合約未放行() : da.Fill(ds16) : 合約未放行_dgv.DataSource = ds16.Tables(0) : conn.Close()
+        合約未放行_dgv.Columns(0).FillWeight = 70 : 合約未放行_dgv.Columns(1).FillWeight = 45 : 合約未放行_dgv.Columns(2).FillWeight = 120
+        合約未放行_dgv.Columns(3).FillWeight = 120
+        If 系統語言 = "繁體中文" Then : 合約未放行_dgv.Columns(2).Visible = True : 合約未放行_dgv.Columns(3).Visible = False
+        Else : 合約未放行_dgv.Columns(2).Visible = False : 合約未放行_dgv.Columns(3).Visible = True : End If
+    End Sub
+    Private Sub Set_合約未驗收()
+        Dim ds16 As New DataSet : 合約未驗收_dgv.DataSource = Nothing : ds16.Clear() : 合約未驗收_dgv.AllowUserToAddRows = False
+        SQL_合約未驗收() : da.Fill(ds16) : 合約未驗收_dgv.DataSource = ds16.Tables(0) : conn.Close()
+        合約未驗收_dgv.Columns(0).FillWeight = 70 : 合約未驗收_dgv.Columns(1).FillWeight = 45 : 合約未驗收_dgv.Columns(2).FillWeight = 120
+        合約未驗收_dgv.Columns(3).FillWeight = 120
+        If 系統語言 = "繁體中文" Then : 合約未驗收_dgv.Columns(2).Visible = True : 合約未驗收_dgv.Columns(3).Visible = False
+        Else : 合約未驗收_dgv.Columns(2).Visible = False : 合約未驗收_dgv.Columns(3).Visible = True : End If
+    End Sub
+    Private Sub Set_合約未請款5()
+        Dim ds16 As New DataSet : 合約請款5_dgv.DataSource = Nothing : ds16.Clear() : 合約請款5_dgv.AllowUserToAddRows = False
+        SQL_合約未請款5() : da.Fill(ds16) : 合約請款5_dgv.DataSource = ds16.Tables(0) : conn.Close()
+        合約請款5_dgv.Columns(0).FillWeight = 70 : 合約請款5_dgv.Columns(1).FillWeight = 45 : 合約請款5_dgv.Columns(2).FillWeight = 120
+        合約請款5_dgv.Columns(3).FillWeight = 120
+        If 系統語言 = "繁體中文" Then : 合約請款5_dgv.Columns(2).Visible = True : 合約請款5_dgv.Columns(3).Visible = False
+        Else : 合約請款5_dgv.Columns(2).Visible = False : 合約請款5_dgv.Columns(3).Visible = True : End If
+    End Sub
+    Private Sub Set_合約未請款4()
+        Dim ds16 As New DataSet : 合約請款4_dgv.DataSource = Nothing : ds16.Clear() : 合約請款4_dgv.AllowUserToAddRows = False
+        SQL_合約未請款4() : da.Fill(ds16) : 合約請款4_dgv.DataSource = ds16.Tables(0) : conn.Close()
+        合約請款4_dgv.Columns(0).FillWeight = 70 : 合約請款4_dgv.Columns(1).FillWeight = 45 : 合約請款4_dgv.Columns(2).FillWeight = 120
+        合約請款4_dgv.Columns(3).FillWeight = 120
+        If 系統語言 = "繁體中文" Then : 合約請款4_dgv.Columns(2).Visible = True : 合約請款4_dgv.Columns(3).Visible = False
+        Else : 合約請款4_dgv.Columns(2).Visible = False : 合約請款4_dgv.Columns(3).Visible = True : End If
+    End Sub
+    Private Sub Set_合約未請款3()
+        Dim ds16 As New DataSet : 合約請款3_dgv.DataSource = Nothing : ds16.Clear() : 合約請款3_dgv.AllowUserToAddRows = False
+        SQL_合約未請款3() : da.Fill(ds16) : 合約請款3_dgv.DataSource = ds16.Tables(0) : conn.Close()
+        合約請款3_dgv.Columns(0).FillWeight = 70 : 合約請款3_dgv.Columns(1).FillWeight = 45 : 合約請款3_dgv.Columns(2).FillWeight = 120
+        合約請款3_dgv.Columns(3).FillWeight = 120
+        If 系統語言 = "繁體中文" Then : 合約請款3_dgv.Columns(2).Visible = True : 合約請款3_dgv.Columns(3).Visible = False
+        Else : 合約請款3_dgv.Columns(2).Visible = False : 合約請款3_dgv.Columns(3).Visible = True : End If
+    End Sub
+    Private Sub Set_合約未請款2()
+        Dim ds16 As New DataSet : 合約請款2_dgv.DataSource = Nothing : ds16.Clear() : 合約請款2_dgv.AllowUserToAddRows = False
+        SQL_合約未請款2() : da.Fill(ds16) : 合約請款2_dgv.DataSource = ds16.Tables(0) : conn.Close()
+        合約請款2_dgv.Columns(0).FillWeight = 70 : 合約請款2_dgv.Columns(1).FillWeight = 45 : 合約請款2_dgv.Columns(2).FillWeight = 120
+        合約請款2_dgv.Columns(3).FillWeight = 120
+        If 系統語言 = "繁體中文" Then : 合約請款2_dgv.Columns(2).Visible = True : 合約請款2_dgv.Columns(3).Visible = False
+        Else : 合約請款2_dgv.Columns(2).Visible = False : 合約請款2_dgv.Columns(3).Visible = True : End If
+    End Sub
+    Private Sub Set_合約未請款1()
+        Dim ds16 As New DataSet : 合約請款1_dgv.DataSource = Nothing : ds16.Clear() : 合約請款1_dgv.AllowUserToAddRows = False
+        SQL_合約未請款1() : da.Fill(ds16) : 合約請款1_dgv.DataSource = ds16.Tables(0) : conn.Close()
+        合約請款1_dgv.Columns(0).FillWeight = 70 : 合約請款1_dgv.Columns(1).FillWeight = 45 : 合約請款1_dgv.Columns(2).FillWeight = 120
+        合約請款1_dgv.Columns(3).FillWeight = 120
+        If 系統語言 = "繁體中文" Then : 合約請款1_dgv.Columns(2).Visible = True : 合約請款1_dgv.Columns(3).Visible = False
+        Else : 合約請款1_dgv.Columns(2).Visible = False : 合約請款1_dgv.Columns(3).Visible = True : End If
+    End Sub
+    Private Sub Set_採購核准11()
+        Dim ds16 As New DataSet : 採購核准11_dgv.DataSource = Nothing : ds16.Clear() : 採購核准11_dgv.AllowUserToAddRows = False
+        SQL_採購核准11() : da.Fill(ds16) : 採購核准11_dgv.DataSource = ds16.Tables(0) : conn.Close()
+        採購核准11_dgv.Columns(0).FillWeight = 80 : 採購核准11_dgv.Columns(1).FillWeight = 45 : 採購核准11_dgv.Columns(2).FillWeight = 100
+    End Sub
+    Private Sub Set_採購核准12()
+        Dim ds16 As New DataSet : 採購核准12_dgv.DataSource = Nothing : ds16.Clear() : 採購核准12_dgv.AllowUserToAddRows = False
+        SQL_採購核准12() : da.Fill(ds16) : 採購核准12_dgv.DataSource = ds16.Tables(0) : conn.Close()
+        採購核准12_dgv.Columns(0).FillWeight = 80 : 採購核准12_dgv.Columns(1).FillWeight = 45 : 採購核准12_dgv.Columns(2).FillWeight = 100
+    End Sub
+    Private Sub Set_詢價單1()
+        Dim ds16 As New DataSet : 詢價單_dgv.DataSource = Nothing : ds16.Clear() : 詢價單_dgv.AllowUserToAddRows = False
+        SQL_採購單單數() : da.Fill(ds16) : 詢價單_dgv.DataSource = ds16.Tables(0) : conn.Close()
+        詢價單_dgv.Columns(0).FillWeight = 70 : 詢價單_dgv.Columns(1).FillWeight = 45 : 詢價單_dgv.Columns(2).FillWeight = 60
+        詢價單_dgv.Columns(3).FillWeight = 120 : 詢價單_dgv.Columns(4).FillWeight = 120
+        If 系統語言 = "繁體中文" Then : 詢價單_dgv.Columns(3).Visible = True : 詢價單_dgv.Columns(4).Visible = False
+        Else : 詢價單_dgv.Columns(3).Visible = False : 詢價單_dgv.Columns(4).Visible = True : End If
+    End Sub
+    Private Sub Set_請購單()
+        Dim ds16 As New DataSet : 請購單_dgv.DataSource = Nothing : ds16.Clear() : 請購單_dgv.AllowUserToAddRows = False
+        SQL_請購單申請未核准單數() : da.Fill(ds16) : 請購單_dgv.DataSource = ds16.Tables(0) : conn.Close()
+        請購單_dgv.Columns(0).FillWeight = 70 : 請購單_dgv.Columns(1).FillWeight = 45 : 請購單_dgv.Columns(2).FillWeight = 60
+        請購單_dgv.Columns(3).FillWeight = 120 : 請購單_dgv.Columns(4).FillWeight = 120
+        If 系統語言 = "繁體中文" Then : 請購單_dgv.Columns(3).Visible = True : 請購單_dgv.Columns(4).Visible = False
+        Else : 請購單_dgv.Columns(3).Visible = False : 請購單_dgv.Columns(4).Visible = True : End If
+    End Sub
+    Private Sub 初始化系統語言()
+        If File.Exists(Application.StartupPath + "\LANGUAGE_FILE.csv") Then
+            Dim filereader = My.Computer.FileSystem.OpenTextFileReader(Application.StartupPath + "\LANGUAGE_FILE.csv", System.Text.Encoding.Default)
+            Dim line As String = filereader.ReadLine()
+            While Not (line Is Nothing)
+                line = filereader.ReadLine()
+                If line <> Nothing Then
+                    line = line.Replace("""", "") : Dim separator As String = "-" : Dim result() As String = line.Split(separator)
+                    If result.Count > 4 Then
+                        Dim key As String = result(0).ToString() & "-" & result(1).ToString() & "-" & result(2).ToString()
+                        Dim value As String = result(3).ToString()
+                        For i As Integer = 4 To result.Count - 1 : value += "-" & result(i) : Next
+                        If value.EndsWith(",") Then : value = value.Substring(0, value.Length - 1) : End If : 系統語言字典.Add(key, value)
+                    Else
+                        Dim key As String = result(0).ToString() & "-" & result(1).ToString() & "-" & result(2).ToString()
+                        Dim value As String = result(3).ToString()
+                        If value.EndsWith(",") Then : value = value.Substring(0, value.Length - 1) : End If : 系統語言字典.Add(key, value)
+                    End If
+                End If
+            End While
+        End If
+    End Sub
+    Private Sub Calculator_Backend_SYS_Load(sender As Object, e As EventArgs) Handles MyBase.Load
+        初始化系統語言()
+        If SQL_連線狀態模組3.ConnectTest3("192.168.0.201,2433") = True Then
+            登入人IP1 = "192.168.0.201,2433" : Line通訊IP = "192.168.0.201,2433" : Line伺服器名稱 = "HX-LINE-AUTO"
+        Else
+            登入人IP1 = "103.144.143.182,2433" : Line通訊IP = "103.144.143.182,2433" : Line伺服器名稱 = "HX-LINE-AUTO"
+        End If
+        SQL_連線字串_正式() : SQL_連線字串_正式_工程SQL() : SQL_連線字串_正式_管理SQL()
+        SQL_連線字串_測試() : SQL_連線字串_測試_工程SQL() : SQL_連線字串_測試_管理SQL()
+        Timer2.Enabled = True
+        在職 = True : 工人 = True : BL = True : 實際工資計算完成 = False : 沖帳工資計算完成 = False : 登入人級別 = "00"
+    End Sub
+    Private Sub Calculator_Backend_SYS_Shown(sender As Object, e As EventArgs) Handles MyBase.Shown
+        天_ch.Checked = True : 周_ch.Checked = False : 月_ch.Checked = False
+
+        Dim todayDate As DateTime = DateTime.Now
+        Dim formattedDate As String = todayDate.ToString("yyyy/MM/dd")
+        Dim dayOfWeek As String = todayDate.ToString("dddd", New CultureInfo("zh-TW"))
+        系統日期_tb.Text = formattedDate
+        星期_tb.Text = dayOfWeek
+
+        DA1_bt.Text = "上一日" : DA2_bt.Text = "本日" : DA3_bt.Text = "下一日"
+
+        結束日期_dtp.Value = Today() : 開始日期_dtp.Value = 結束日期_dtp.Value
+        Dim oldDate As Date : Dim oldWeekDay As Integer : oldDate = 結束日期_dtp.Value : oldWeekDay = Weekday(oldDate)
+        If oldWeekDay = 7 Then : 結束日期_dtp.Value = 結束日期_dtp.Value.AddDays(1)
+        ElseIf oldWeekDay = 6 Then : 結束日期_dtp.Value = 結束日期_dtp.Value.AddDays(2)
+        ElseIf oldWeekDay = 5 Then : 結束日期_dtp.Value = 結束日期_dtp.Value.AddDays(3)
+        ElseIf oldWeekDay = 4 Then : 結束日期_dtp.Value = 結束日期_dtp.Value.AddDays(4)
+        ElseIf oldWeekDay = 3 Then : 結束日期_dtp.Value = 結束日期_dtp.Value.AddDays(5)
+        ElseIf oldWeekDay = 2 Then : 結束日期_dtp.Value = 結束日期_dtp.Value.AddDays(6)
+        End If : 開始日期_dtp.Value = 結束日期_dtp.Value.AddDays(-6) : 結束日期_dtp.Value = Today()
+        本周周一 = 開始日期_dtp.Value : 結束日期_dtp.Value = Today() : 開始日期_dtp.Value = 結束日期_dtp.Value
+
+        狀態1_ch.Text = "A組工人薪資表會總自動計算-週期 : 每日 - 狀態 : 未完成" : 狀態1_ch.ForeColor = Color.Red : 狀態1_ch.Checked = False
+        狀態2_ch.Text = "B組工人薪資表會總自動計算-週期 : 每日 - 狀態 : 未完成" : 狀態2_ch.ForeColor = Color.Red : 狀態2_ch.Checked = False
+        狀態3_ch.Text = "系統工作狀態會總自動計算-週期 : 每小時 - 狀態 : 未完成" : 狀態3_ch.ForeColor = Color.Red : 狀態3_ch.Checked = False
+    End Sub
+    Private Sub DA1_bt_Click(sender As Object, e As EventArgs) Handles DA1_bt.Click
+        If 天_ch.Checked = True And 周_ch.Checked = False And 月_ch.Checked = False Then
+            開始日期_dtp.Value = 開始日期_dtp.Value.AddDays(-1) : 結束日期_dtp.Value = 開始日期_dtp.Value
+            結束日期2_dtp.Value = 結束日期_dtp.Value : 開始日期2_dtp.Value = 開始日期_dtp.Value : 日期計算()
+        ElseIf 天_ch.Checked = False And 周_ch.Checked = True And 月_ch.Checked = False Then
+            If 開始日期_dtp.Value >= 本周周一 Then
+                開始日期_dtp.Value = 本周周一.AddDays(-7) : 結束日期_dtp.Value = 本周周一.AddDays(-1)
+            ElseIf 開始日期_dtp.Value < 本周周一 Then
+                結束日期_dtp.Value = 開始日期_dtp.Value.AddDays(-1) : 開始日期_dtp.Value = 開始日期_dtp.Value.AddDays(-7)
+            End If
+            結束日期2_dtp.Value = 結束日期_dtp.Value : 開始日期2_dtp.Value = 開始日期_dtp.Value : 日期計算()
+        ElseIf 天_ch.Checked = False And 周_ch.Checked = False And 月_ch.Checked = True Then
+            開始日期_dtp.Value = 開始日期_dtp.Value.AddMonths(-1) : 結束日期_dtp.Value = 結束日期_dtp.Value.AddMonths(-1)
+            DTP = Strings.Left(Strings.Format(開始日期_dtp.Value, "yyyy/MM/dd"), 8) & "01" : 開始日期_dtp.Value = DTP
+            '-------------日期二----------------------------------------------------------------------------------------
+            DTP = Strings.Left(Strings.Format(結束日期_dtp.Value, "yyyy/MM/dd"), 8) & "01" : 結束日期_dtp.Value = DTP
+            結束日期_dtp.Value = 結束日期_dtp.Value.AddMonths(1) : 結束日期_dtp.Value = 結束日期_dtp.Value.AddDays(-1)
+            結束日期2_dtp.Value = 結束日期_dtp.Value : 開始日期2_dtp.Value = 開始日期_dtp.Value : 日期計算()
+        End If
+    End Sub
+    Private Sub DA2_bt_Click(sender As Object, e As EventArgs) Handles DA2_bt.Click
+        If 天_ch.Checked = True And 周_ch.Checked = False And 月_ch.Checked = False Then
+            結束日期_dtp.Value = Today() : 開始日期_dtp.Value = 結束日期_dtp.Value
+            結束日期2_dtp.Value = 結束日期_dtp.Value : 開始日期2_dtp.Value = 開始日期_dtp.Value : 日期計算()
+        ElseIf 天_ch.Checked = False And 周_ch.Checked = True And 月_ch.Checked = False Then
+            結束日期_dtp.Value = Today() : 開始日期_dtp.Value = 結束日期_dtp.Value
+            Dim oldDate As Date : Dim oldWeekDay As Integer : oldDate = 結束日期_dtp.Value : oldWeekDay = Weekday(oldDate)
+            If oldWeekDay = 7 Then : 結束日期_dtp.Value = 結束日期_dtp.Value.AddDays(1)
+            ElseIf oldWeekDay = 6 Then : 結束日期_dtp.Value = 結束日期_dtp.Value.AddDays(2)
+            ElseIf oldWeekDay = 5 Then : 結束日期_dtp.Value = 結束日期_dtp.Value.AddDays(3)
+            ElseIf oldWeekDay = 4 Then : 結束日期_dtp.Value = 結束日期_dtp.Value.AddDays(4)
+            ElseIf oldWeekDay = 3 Then : 結束日期_dtp.Value = 結束日期_dtp.Value.AddDays(5)
+            ElseIf oldWeekDay = 2 Then : 結束日期_dtp.Value = 結束日期_dtp.Value.AddDays(6)
+            End If : 開始日期_dtp.Value = 結束日期_dtp.Value.AddDays(-6) : 結束日期_dtp.Value = Today()
+            結束日期2_dtp.Value = 結束日期_dtp.Value : 開始日期2_dtp.Value = 開始日期_dtp.Value : 日期計算()
+        ElseIf 天_ch.Checked = False And 周_ch.Checked = False And 月_ch.Checked = True Then
+            開始日期_dtp.Value = Today() : 結束日期_dtp.Value = Today()
+            DTP = Strings.Left(Strings.Format(開始日期_dtp.Value, "yyyy/MM/dd"), 8) & "01" : 開始日期_dtp.Value = DTP
+            '-------------日期二----------------------------------------------------------------------------------------
+            DTP = Strings.Left(Strings.Format(結束日期_dtp.Value, "yyyy/MM/dd"), 8) & "01" : 結束日期_dtp.Value = DTP
+            結束日期_dtp.Value = 結束日期_dtp.Value.AddMonths(1) : 結束日期_dtp.Value = 結束日期_dtp.Value.AddDays(-1)
+            結束日期2_dtp.Value = 結束日期_dtp.Value : 開始日期2_dtp.Value = 開始日期_dtp.Value : 日期計算()
+        End If
+    End Sub
+    Private Sub DA3_bt_Click(sender As Object, e As EventArgs) Handles DA3_bt.Click
+        If 天_ch.Checked = True And 周_ch.Checked = False And 月_ch.Checked = False Then
+            開始日期_dtp.Value = 開始日期_dtp.Value.AddDays(+1) : 結束日期_dtp.Value = 開始日期_dtp.Value
+            結束日期2_dtp.Value = 結束日期_dtp.Value : 開始日期2_dtp.Value = 開始日期_dtp.Value : 日期計算()
+        ElseIf 天_ch.Checked = False And 周_ch.Checked = True And 月_ch.Checked = False Then
+            If 開始日期_dtp.Value <= 本周周一 Then
+                開始日期_dtp.Value = 本周周一.AddDays(+7) : 結束日期_dtp.Value = 本周周一.AddDays(+13)
+            ElseIf 開始日期_dtp.Value > 本周周一 Then
+                結束日期_dtp.Value = 開始日期_dtp.Value.AddDays(+13) : 開始日期_dtp.Value = 開始日期_dtp.Value.AddDays(+7)
+            End If
+            結束日期2_dtp.Value = 結束日期_dtp.Value : 開始日期2_dtp.Value = 開始日期_dtp.Value : 日期計算()
+        ElseIf 天_ch.Checked = False And 周_ch.Checked = False And 月_ch.Checked = True Then
+            開始日期_dtp.Value = 開始日期_dtp.Value.AddMonths(1) : 結束日期_dtp.Value = 結束日期_dtp.Value.AddMonths(1)
+            DTP = Strings.Left(Strings.Format(開始日期_dtp.Value, "yyyy/MM/dd"), 8) & "01" : 開始日期_dtp.Value = DTP
+            '-------------日期二----------------------------------------------------------------------------------------
+            DTP = Strings.Left(Strings.Format(結束日期_dtp.Value, "yyyy/MM/dd"), 8) & "01" : 結束日期_dtp.Value = DTP
+            結束日期_dtp.Value = 結束日期_dtp.Value.AddMonths(1) : 結束日期_dtp.Value = 結束日期_dtp.Value.AddDays(-1)
+            結束日期2_dtp.Value = 結束日期_dtp.Value : 開始日期2_dtp.Value = 開始日期_dtp.Value : 日期計算()
+        End If
+    End Sub
+    Private Sub 日期計算()
+        Dim todayDate As DateTime = 開始日期_dtp.Value
+        Dim formattedDate As String = todayDate.ToString("yyyy/MM/dd")
+        Dim dayOfWeek As String = todayDate.ToString("dddd", New CultureInfo("zh-TW"))
+        系統日期_tb.Text = formattedDate
+        星期_tb.Text = dayOfWeek
+    End Sub
+    Private Sub 天_ch_CheckedChanged(sender As Object, e As EventArgs) Handles 天_ch.Click
+        天_ch.Checked = True : 周_ch.Checked = False : 月_ch.Checked = False
+        DA1_bt.Text = "上一日" : DA2_bt.Text = "本日" : DA3_bt.Text = "下一日"
+        DA2_bt.PerformClick()
+    End Sub
+    Private Sub 周_ch_CheckedChanged(sender As Object, e As EventArgs) Handles 周_ch.Click
+        天_ch.Checked = False : 周_ch.Checked = True : 月_ch.Checked = False
+        DA1_bt.Text = "上一週" : DA2_bt.Text = "本週" : DA3_bt.Text = "下一週"
+        DA2_bt.PerformClick()
+    End Sub
+    Private Sub 月_ch_CheckedChanged(sender As Object, e As EventArgs) Handles 月_ch.Click
+        開始日期_dtp.Value = Today() : 結束日期_dtp.Value = Today()
+        DTP = Strings.Left(Strings.Format(開始日期_dtp.Value, "yyyy/MM/dd"), 8) & "01" : 開始日期_dtp.Value = DTP
+        '-------------日期二----------------------------------------------------------------------------------------
+        DTP = Strings.Left(Strings.Format(結束日期_dtp.Value, "yyyy/MM/dd"), 8) & "01" : 結束日期_dtp.Value = DTP
+        結束日期_dtp.Value = 結束日期_dtp.Value.AddMonths(1) : 結束日期_dtp.Value = 結束日期_dtp.Value.AddDays(-1)
+
+        天_ch.Checked = False : 周_ch.Checked = False : 月_ch.Checked = True
+        DA1_bt.Text = "上一月" : DA2_bt.Text = "本月" : DA3_bt.Text = "下一月"
+        DA2_bt.PerformClick()
+    End Sub
+    Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
+        If 實際工資計算完成 = False Then
+            狀態1_ch.Text = "A組工人薪資表會總自動計算-週期 : 每日 - 狀態 : 未完成" : 狀態1_ch.ForeColor = Color.Red : 狀態1_ch.Checked = False
+            首次開啟 = True : 人員薪資_實際.Show()
+        ElseIf 實際工資計算完成 = True Then
+            狀態1_ch.Text = "A組工人薪資表會總自動計算-週期 : 每日 - 狀態 : 已完成" : 狀態1_ch.ForeColor = Color.Green : 狀態1_ch.Checked = True
+        End If
+        If 人員薪資_實際.Visible = True Then : Else
+            If 沖帳工資計算完成 = False Then
+                狀態2_ch.Text = "B組工人薪資表會總自動計算-週期 : 每日 - 狀態 : 未完成" : 狀態2_ch.ForeColor = Color.Red : 狀態2_ch.Checked = False
+                首次開啟 = True : BL = False : 人員薪資_沖帳.Show() : BL = True
+            ElseIf 沖帳工資計算完成 = True Then
+                狀態2_ch.Text = "B組工人薪資表會總自動計算-週期 : 每日 - 狀態 : 已完成" : 狀態2_ch.ForeColor = Color.Green : 狀態2_ch.Checked = True
+            End If
+        End If
+        If 工作狀態計算完成 = False Then
+            狀態3_ch.Text = "系統工作狀態會總自動計算-週期 : 每小時 - 狀態 : 未完成" : 狀態3_ch.ForeColor = Color.Red : 狀態3_ch.Checked = False
+            '----------------------------讀取資料---------------------------------------------------------------------------------------------------------
+            Set_合約未請款1() : Set_合約未請款2() : Set_合約未請款3() : Set_合約未請款4() : Set_合約未請款5() : Set_合約未設利潤() : Set_合約未放行()
+            Set_合約未簽回() : Set_報價未簽回() : Set_報價未完成() : Set_請購單() : Set_詢價單1() : Set_採購核准11() : Set_採購核准12()
+            Set_工程進度表未開() : Set_合約未指定主管() : Set_合約未驗收() : Set_合約驗收單未簽回() : Set_合約保固單未簽()
+            '----------------------------寫入資料---------------------------------------------------------------------------------------------------------
+            SQL_工作狀態匯總表_刪除()
+            SQL2 = "(N'合約預估利潤', N'" & 合約預估利潤_dgv.Rows.Count & "'), (N'報價未完成', N'" & 報價未完成_dgv.Rows.Count & "'), 
+                    (N'合約未放行', N'" & 合約未放行_dgv.Rows.Count & "'), (N'報價未簽回', N'" & 報價未簽回_dgv.Rows.Count & "'), 
+                    (N'合約未簽回', N'" & 合約未簽回_dgv.Rows.Count & "'), (N'合約請款1', N'" & 合約請款1_dgv.Rows.Count & "'), 
+                    (N'合約請款2', N'" & 合約請款2_dgv.Rows.Count & "'), (N'合約請款3', N'" & 合約請款3_dgv.Rows.Count & "'), 
+                    (N'合約請款4', N'" & 合約請款4_dgv.Rows.Count & "'), (N'合約請款5', N'" & 合約請款5_dgv.Rows.Count & "'), 
+                    (N'合約未指定主管', N'" & 合約未指定主管_dgv.Rows.Count & "'), (N'未開工程進度表', N'" & 未開工程進度表_dgv.Rows.Count & "'), 
+                    (N'合約未驗收', N'" & 合約未驗收_dgv.Rows.Count & "'), (N'驗收未簽回', N'" & 驗收未簽回_dgv.Rows.Count & "'), 
+                    (N'保固未簽回', N'" & 保固未簽回_dgv.Rows.Count & "'), (N'請購單', N'" & 請購單_dgv.Rows.Count & "'), 
+                    (N'詢價單', N'" & 詢價單_dgv.Rows.Count & "'), (N'採購核准11', N'" & 採購核准11_dgv.Rows.Count & "'), 
+                    (N'採購核准12', N'" & 採購核准12_dgv.Rows.Count & "')"
+            SQL_工作狀態匯總表_寫入() : 時機_tb.Text = 系統時間_tb.Text : 工作狀態計算完成 = True
+        ElseIf 工作狀態計算完成 = True Then
+            狀態3_ch.Text = "系統工作狀態-匯總自動計算-週期 : 每小時 - 狀態 : 已完成" : 狀態3_ch.ForeColor = Color.Green : 狀態3_ch.Checked = True
+        End If
+        PA = Strings.Format(Today(), "yyyy/MM/dd") : If PA <> 系統日期_tb.Text Then : 實際工資計算完成 = False : 沖帳工資計算完成 = False : End If
+        PA = DateTime.Now.ToString("hh:mm:ss") : If Strings.Left(PA, 2) <> Strings.Left(時機_tb.Text, 2) Then : 工作狀態計算完成 = False : 工作狀態計算完成 = False : End If
+        系統日期_tb.Text = Strings.Format(Today(), "yyyy/MM/dd")
+    End Sub
+    Private Sub 執行_bt_Click(sender As Object, e As EventArgs) Handles 執行_bt.Click
+        GroupBox1.Text = "自動模式 - 已啟動" : GroupBox1.ForeColor = Color.Blue
+        Timer1.Enabled = True
+    End Sub
+    Private Sub Timer2_Tick(sender As Object, e As EventArgs) Handles Timer2.Tick
+        系統時間_tb.Text = DateTime.Now.ToString("hh:mm:ss")
+    End Sub
+End Class

Calculator-Backend-SYS/Calculator-Backend-SYS.vbproj

@@ -0,0 +1,183 @@
+<?xml version="1.0" encoding="utf-8"?>
+<Project ToolsVersion="15.0" xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
+  <Import Project="$(MSBuildExtensionsPath)\$(MSBuildToolsVersion)\Microsoft.Common.props" Condition="Exists('$(MSBuildExtensionsPath)\$(MSBuildToolsVersion)\Microsoft.Common.props')" />
+  <PropertyGroup>
+    <Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
+    <Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
+    <ProjectGuid>{C96D264B-4289-4349-9B79-9BFC4E6ED689}</ProjectGuid>
+    <OutputType>WinExe</OutputType>
+    <StartupObject>Calculator_Backend_SYS.My.MyApplication</StartupObject>
+    <RootNamespace>Calculator_Backend_SYS</RootNamespace>
+    <AssemblyName>Calculator-Backend-SYS</AssemblyName>
+    <FileAlignment>512</FileAlignment>
+    <MyType>WindowsForms</MyType>
+    <TargetFrameworkVersion>v4.8</TargetFrameworkVersion>
+    <AutoGenerateBindingRedirects>true</AutoGenerateBindingRedirects>
+    <Deterministic>true</Deterministic>
+  </PropertyGroup>
+  <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
+    <PlatformTarget>AnyCPU</PlatformTarget>
+    <DebugSymbols>true</DebugSymbols>
+    <DebugType>full</DebugType>
+    <DefineDebug>true</DefineDebug>
+    <DefineTrace>true</DefineTrace>
+    <OutputPath>bin\Debug\</OutputPath>
+    <DocumentationFile>Calculator-Backend-SYS.xml</DocumentationFile>
+    <NoWarn>42016,41999,42017,42018,42019,42032,42036,42020,42021,42022</NoWarn>
+  </PropertyGroup>
+  <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
+    <PlatformTarget>AnyCPU</PlatformTarget>
+    <DebugType>pdbonly</DebugType>
+    <DefineDebug>false</DefineDebug>
+    <DefineTrace>true</DefineTrace>
+    <Optimize>true</Optimize>
+    <OutputPath>bin\Release\</OutputPath>
+    <DocumentationFile>Calculator-Backend-SYS.xml</DocumentationFile>
+    <NoWarn>42016,41999,42017,42018,42019,42032,42036,42020,42021,42022</NoWarn>
+  </PropertyGroup>
+  <PropertyGroup>
+    <OptionExplicit>On</OptionExplicit>
+  </PropertyGroup>
+  <PropertyGroup>
+    <OptionCompare>Binary</OptionCompare>
+  </PropertyGroup>
+  <PropertyGroup>
+    <OptionStrict>Off</OptionStrict>
+  </PropertyGroup>
+  <PropertyGroup>
+    <OptionInfer>On</OptionInfer>
+  </PropertyGroup>
+  <PropertyGroup>
+    <ApplicationIcon>ayo9y-pohlq-001.ico</ApplicationIcon>
+  </PropertyGroup>
+  <PropertyGroup>
+    <ApplicationManifest>app.manifest</ApplicationManifest>
+  </PropertyGroup>
+  <ItemGroup>
+    <Reference Include="System" />
+    <Reference Include="System.Data" />
+    <Reference Include="System.Deployment" />
+    <Reference Include="System.Drawing" />
+    <Reference Include="System.Windows.Forms" />
+    <Reference Include="System.Xml" />
+    <Reference Include="System.Core" />
+    <Reference Include="System.Xml.Linq" />
+    <Reference Include="System.Data.DataSetExtensions" />
+    <Reference Include="System.Net.Http" />
+  </ItemGroup>
+  <ItemGroup>
+    <Import Include="Microsoft.VisualBasic" />
+    <Import Include="System" />
+    <Import Include="System.Collections" />
+    <Import Include="System.Collections.Generic" />
+    <Import Include="System.Data" />
+    <Import Include="System.Drawing" />
+    <Import Include="System.Diagnostics" />
+    <Import Include="System.Windows.Forms" />
+    <Import Include="System.Linq" />
+    <Import Include="System.Xml.Linq" />
+    <Import Include="System.Threading.Tasks" />
+  </ItemGroup>
+  <ItemGroup>
+    <Compile Include="Calculator-Backend-SYS.vb">
+      <SubType>Form</SubType>
+    </Compile>
+    <Compile Include="Calculator-Backend-SYS.Designer.vb">
+      <DependentUpon>Calculator-Backend-SYS.vb</DependentUpon>
+      <SubType>Form</SubType>
+    </Compile>
+    <Compile Include="My Project\AssemblyInfo.vb" />
+    <Compile Include="My Project\Application.Designer.vb">
+      <AutoGen>True</AutoGen>
+      <DependentUpon>Application.myapp</DependentUpon>
+      <DesignTime>True</DesignTime>
+    </Compile>
+    <Compile Include="My Project\Resources.Designer.vb">
+      <AutoGen>True</AutoGen>
+      <DesignTime>True</DesignTime>
+      <DependentUpon>Resources.resx</DependentUpon>
+    </Compile>
+    <Compile Include="My Project\Settings.Designer.vb">
+      <AutoGen>True</AutoGen>
+      <DependentUpon>Settings.settings</DependentUpon>
+      <DesignTimeSharedInput>True</DesignTimeSharedInput>
+    </Compile>
+    <Compile Include="SQL_語法_1.vb" />
+    <Compile Include="SQL_連線字串.vb" />
+    <Compile Include="SQL_連線狀態模組3.vb" />
+    <Compile Include="下拉清單_1.Designer.vb">
+      <DependentUpon>下拉清單_1.vb</DependentUpon>
+    </Compile>
+    <Compile Include="下拉清單_1.vb">
+      <SubType>Form</SubType>
+    </Compile>
+    <Compile Include="下拉清單_2.Designer.vb">
+      <DependentUpon>下拉清單_2.vb</DependentUpon>
+    </Compile>
+    <Compile Include="下拉清單_2.vb">
+      <SubType>Form</SubType>
+    </Compile>
+    <Compile Include="人員薪資\人員薪資_沖帳.Designer.vb">
+      <DependentUpon>人員薪資_沖帳.vb</DependentUpon>
+    </Compile>
+    <Compile Include="人員薪資\人員薪資_沖帳.vb">
+      <SubType>Form</SubType>
+    </Compile>
+    <Compile Include="人員薪資\人員薪資_實際.Designer.vb">
+      <DependentUpon>人員薪資_實際.vb</DependentUpon>
+    </Compile>
+    <Compile Include="人員薪資\人員薪資_實際.vb">
+      <SubType>Form</SubType>
+    </Compile>
+    <Compile Include="全域變數.vb" />
+  </ItemGroup>
+  <ItemGroup>
+    <EmbeddedResource Include="Calculator-Backend-SYS.resx">
+      <DependentUpon>Calculator-Backend-SYS.vb</DependentUpon>
+    </EmbeddedResource>
+    <EmbeddedResource Include="My Project\Resources.resx">
+      <Generator>VbMyResourcesResXFileCodeGenerator</Generator>
+      <LastGenOutput>Resources.Designer.vb</LastGenOutput>
+      <CustomToolNamespace>My.Resources</CustomToolNamespace>
+      <SubType>Designer</SubType>
+    </EmbeddedResource>
+    <EmbeddedResource Include="下拉清單_1.resx">
+      <DependentUpon>下拉清單_1.vb</DependentUpon>
+    </EmbeddedResource>
+    <EmbeddedResource Include="下拉清單_2.resx">
+      <DependentUpon>下拉清單_2.vb</DependentUpon>
+    </EmbeddedResource>
+    <EmbeddedResource Include="人員薪資\人員薪資_沖帳.resx">
+      <DependentUpon>人員薪資_沖帳.vb</DependentUpon>
+    </EmbeddedResource>
+    <EmbeddedResource Include="人員薪資\人員薪資_實際.resx">
+      <DependentUpon>人員薪資_實際.vb</DependentUpon>
+    </EmbeddedResource>
+  </ItemGroup>
+  <ItemGroup>
+    <None Include="app.manifest" />
+    <None Include="My Project\Application.myapp">
+      <Generator>MyApplicationCodeGenerator</Generator>
+      <LastGenOutput>Application.Designer.vb</LastGenOutput>
+    </None>
+    <None Include="My Project\Settings.settings">
+      <Generator>SettingsSingleFileGenerator</Generator>
+      <CustomToolNamespace>My</CustomToolNamespace>
+      <LastGenOutput>Settings.Designer.vb</LastGenOutput>
+    </None>
+    <None Include="App.config" />
+  </ItemGroup>
+  <ItemGroup>
+    <Content Include="ayo9y-pohlq-001.ico" />
+    <None Include="Resources\NULL1.png" />
+    <None Include="Resources\ZOOM01.png" />
+    <None Include="Resources\question-mark.png" />
+    <None Include="Resources\Close.png" />
+    <None Include="Resources\calc1.png" />
+    <None Include="Resources\system.png" />
+    <None Include="Resources\print.png" />
+    <None Include="Resources\SAVER.png" />
+    <None Include="Resources\下載.png" />
+  </ItemGroup>
+  <Import Project="$(MSBuildToolsPath)\Microsoft.VisualBasic.targets" />
+</Project>

Calculator-Backend-SYS/My Project/Application.Designer.vb

@@ -0,0 +1,38 @@
+'------------------------------------------------------------------------------
+' <auto-generated>
+'     這段程式碼是由工具產生的。
+'     執行階段版本:4.0.30319.42000
+'
+'     對這個檔案所做的變更可能會造成錯誤的行為，而且如果重新產生程式碼，
+'     變更將會遺失。
+' </auto-generated>
+'------------------------------------------------------------------------------
+
+Option Strict On
+Option Explicit On
+
+
+Namespace My
+    
+    '注意:這是自動產生的檔案，請勿直接修改它。若要進行變更，
+    ' 或者您在這個檔案發生建置錯誤，請到專案設計工具
+    ' (移至專案屬性或者在 [方案總管] 中按兩下 [My Project] 節點)，
+    ' 然後在 [應用程式] 索引標籤上進行變更。
+    '
+    Partial Friend Class MyApplication
+        
+        <Global.System.Diagnostics.DebuggerStepThroughAttribute()>  _
+        Public Sub New()
+            MyBase.New(Global.Microsoft.VisualBasic.ApplicationServices.AuthenticationMode.Windows)
+            Me.IsSingleInstance = false
+            Me.EnableVisualStyles = true
+            Me.SaveMySettingsOnExit = true
+            Me.ShutDownStyle = Global.Microsoft.VisualBasic.ApplicationServices.ShutdownMode.AfterMainFormCloses
+        End Sub
+        
+        <Global.System.Diagnostics.DebuggerStepThroughAttribute()>  _
+        Protected Overrides Sub OnCreateMainForm()
+            Me.MainForm = Global.Calculator_Backend_SYS.Calculator_Backend_SYS
+        End Sub
+    End Class
+End Namespace

Calculator-Backend-SYS/My Project/Application.myapp

@@ -0,0 +1,11 @@
+<?xml version="1.0" encoding="utf-8"?>
+<MyApplicationData xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance">
+  <MySubMain>true</MySubMain>
+  <MainForm>Calculator_Backend_SYS</MainForm>
+  <SingleInstance>false</SingleInstance>
+  <ShutdownMode>0</ShutdownMode>
+  <EnableVisualStyles>true</EnableVisualStyles>
+  <AuthenticationMode>0</AuthenticationMode>
+  <SaveMySettingsOnExit>true</SaveMySettingsOnExit>
+  <HighDpiMpde>false</HighDpiMpde>
+</MyApplicationData>

Calculator-Backend-SYS/My Project/AssemblyInfo.vb

@@ -0,0 +1,35 @@
+Imports System
+Imports System.Reflection
+Imports System.Runtime.InteropServices
+
+' 組件的一般資訊是由下列的屬性集控制。
+' 變更這些屬性的值即可修改組件的相關
+' 資訊。
+
+' 檢閱組件屬性的值
+
+<Assembly: AssemblyTitle("Calculator-Backend-SYS")>
+<Assembly: AssemblyDescription("")>
+<Assembly: AssemblyCompany("")>
+<Assembly: AssemblyProduct("Calculator-Backend-SYS")>
+<Assembly: AssemblyCopyright("Copyright ©  2023")>
+<Assembly: AssemblyTrademark("")>
+
+<Assembly: ComVisible(False)>
+
+'下列 GUID 為專案公開 (Expose) 至 COM 時所要使用的 typelib ID
+<Assembly: Guid("d7c3adf1-9df7-459e-aca8-c044fee8ed81")>
+
+' 組件的版本資訊由下列四個值所組成: 
+'
+'      主要版本
+'      次要版本
+'      組建編號
+'      修訂編號
+'
+' 您可以指定所有的值，也可以使用 '*' 將組建和修訂編號
+' 設為預設，如下所示:
+' <Assembly: AssemblyVersion("1.0.*")>
+
+<Assembly: AssemblyVersion("1.0.0.0")>
+<Assembly: AssemblyFileVersion("1.0.0.0")>

Calculator-Backend-SYS/My Project/Resources.Designer.vb

@@ -0,0 +1,153 @@
+'------------------------------------------------------------------------------
+' <auto-generated>
+'     這段程式碼是由工具產生的。
+'     執行階段版本:4.0.30319.42000
+'
+'     對這個檔案所做的變更可能會造成錯誤的行為，而且如果重新產生程式碼，
+'     變更將會遺失。
+' </auto-generated>
+'------------------------------------------------------------------------------
+
+Option Strict On
+Option Explicit On
+
+Imports System
+
+Namespace My.Resources
+    
+    '這個類別是自動產生的，是利用 StronglyTypedResourceBuilder
+    '類別透過 ResGen 或 Visual Studio 這類工具。
+    '若要加入或移除成員，請編輯您的 .ResX 檔，然後重新執行 ResGen
+    '(利用 /str 選項)，或重建您的 VS 專案。
+    '''<summary>
+    '''  用於查詢當地語系化字串等的強類型資源類別。
+    '''</summary>
+    <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()>  _
+    Friend Module Resources
+        
+        Private resourceMan As Global.System.Resources.ResourceManager
+        
+        Private resourceCulture As Global.System.Globalization.CultureInfo
+        
+        '''<summary>
+        '''  傳回這個類別使用的快取的 ResourceManager 執行個體。
+        '''</summary>
+        <Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)>  _
+        Friend ReadOnly Property ResourceManager() As Global.System.Resources.ResourceManager
+            Get
+                If Object.ReferenceEquals(resourceMan, Nothing) Then
+                    Dim temp As Global.System.Resources.ResourceManager = New Global.System.Resources.ResourceManager("Calculator_Backend_SYS.Resources", GetType(Resources).Assembly)
+                    resourceMan = temp
+                End If
+                Return resourceMan
+            End Get
+        End Property
+        
+        '''<summary>
+        '''  覆寫目前執行緒的 CurrentUICulture 屬性，對象是所有
+        '''  使用這個強類型資源類別的資源查閱。
+        '''</summary>
+        <Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)>  _
+        Friend Property Culture() As Global.System.Globalization.CultureInfo
+            Get
+                Return resourceCulture
+            End Get
+            Set
+                resourceCulture = value
+            End Set
+        End Property
+        
+        '''<summary>
+        '''  查詢類型 System.Drawing.Bitmap 的當地語系化資源。
+        '''</summary>
+        Friend ReadOnly Property calc1() As System.Drawing.Bitmap
+            Get
+                Dim obj As Object = ResourceManager.GetObject("calc1", resourceCulture)
+                Return CType(obj,System.Drawing.Bitmap)
+            End Get
+        End Property
+        
+        '''<summary>
+        '''  查詢類型 System.Drawing.Bitmap 的當地語系化資源。
+        '''</summary>
+        Friend ReadOnly Property Close() As System.Drawing.Bitmap
+            Get
+                Dim obj As Object = ResourceManager.GetObject("Close", resourceCulture)
+                Return CType(obj,System.Drawing.Bitmap)
+            End Get
+        End Property
+        
+        '''<summary>
+        '''  查詢類型 System.Drawing.Bitmap 的當地語系化資源。
+        '''</summary>
+        Friend ReadOnly Property NULL1() As System.Drawing.Bitmap
+            Get
+                Dim obj As Object = ResourceManager.GetObject("NULL1", resourceCulture)
+                Return CType(obj,System.Drawing.Bitmap)
+            End Get
+        End Property
+        
+        '''<summary>
+        '''  查詢類型 System.Drawing.Bitmap 的當地語系化資源。
+        '''</summary>
+        Friend ReadOnly Property print() As System.Drawing.Bitmap
+            Get
+                Dim obj As Object = ResourceManager.GetObject("print", resourceCulture)
+                Return CType(obj,System.Drawing.Bitmap)
+            End Get
+        End Property
+        
+        '''<summary>
+        '''  查詢類型 System.Drawing.Bitmap 的當地語系化資源。
+        '''</summary>
+        Friend ReadOnly Property question_mark() As System.Drawing.Bitmap
+            Get
+                Dim obj As Object = ResourceManager.GetObject("question-mark", resourceCulture)
+                Return CType(obj,System.Drawing.Bitmap)
+            End Get
+        End Property
+        
+        '''<summary>
+        '''  查詢類型 System.Drawing.Bitmap 的當地語系化資源。
+        '''</summary>
+        Friend ReadOnly Property SAVER() As System.Drawing.Bitmap
+            Get
+                Dim obj As Object = ResourceManager.GetObject("SAVER", resourceCulture)
+                Return CType(obj,System.Drawing.Bitmap)
+            End Get
+        End Property
+        
+        '''<summary>
+        '''  查詢類型 System.Drawing.Bitmap 的當地語系化資源。
+        '''</summary>
+        Friend ReadOnly Property system() As System.Drawing.Bitmap
+            Get
+                Dim obj As Object = ResourceManager.GetObject("system", resourceCulture)
+                Return CType(obj,System.Drawing.Bitmap)
+            End Get
+        End Property
+        
+        '''<summary>
+        '''  查詢類型 System.Drawing.Bitmap 的當地語系化資源。
+        '''</summary>
+        Friend ReadOnly Property ZOOM01() As System.Drawing.Bitmap
+            Get
+                Dim obj As Object = ResourceManager.GetObject("ZOOM01", resourceCulture)
+                Return CType(obj,System.Drawing.Bitmap)
+            End Get
+        End Property
+        
+        '''<summary>
+        '''  查詢類型 System.Drawing.Bitmap 的當地語系化資源。
+        '''</summary>
+        Friend ReadOnly Property 下載() As System.Drawing.Bitmap
+            Get
+                Dim obj As Object = ResourceManager.GetObject("下載", resourceCulture)
+                Return CType(obj,System.Drawing.Bitmap)
+            End Get
+        End Property
+    End Module
+End Namespace

Calculator-Backend-SYS/My Project/Resources.resx

@@ -0,0 +1,148 @@
+<?xml version="1.0" encoding="utf-8"?>
+<root>
+  <!-- 
+    Microsoft ResX Schema 
+    
+    Version 2.0
+    
+    The primary goals of this format is to allow a simple XML format 
+    that is mostly human readable. The generation and parsing of the 
+    various data types are done through the TypeConverter classes 
+    associated with the data types.
+    
+    Example:
+    
+    ... ado.net/XML headers & schema ...
+    <resheader name="resmimetype">text/microsoft-resx</resheader>
+    <resheader name="version">2.0</resheader>
+    <resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
+    <resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
+    <data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
+    <data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
+    <data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
+        <value>[base64 mime encoded serialized .NET Framework object]</value>
+    </data>
+    <data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+        <value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
+        <comment>This is a comment</comment>
+    </data>
+                
+    There are any number of "resheader" rows that contain simple 
+    name/value pairs.
+    
+    Each data row contains a name, and value. The row also contains a 
+    type or mimetype. Type corresponds to a .NET class that support 
+    text/value conversion through the TypeConverter architecture. 
+    Classes that don't support this are serialized and stored with the 
+    mimetype set.
+    
+    The mimetype is used for serialized objects, and tells the 
+    ResXResourceReader how to depersist the object. This is currently not 
+    extensible. For a given mimetype the value must be set accordingly:
+    
+    Note - application/x-microsoft.net.object.binary.base64 is the format 
+    that the ResXResourceWriter will generate, however the reader can 
+    read any of the formats listed below.
+    
+    mimetype: application/x-microsoft.net.object.binary.base64
+    value   : The object must be serialized with 
+            : System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
+            : and then encoded with base64 encoding.
+    
+    mimetype: application/x-microsoft.net.object.soap.base64
+    value   : The object must be serialized with 
+            : System.Runtime.Serialization.Formatters.Soap.SoapFormatter
+            : and then encoded with base64 encoding.
+
+    mimetype: application/x-microsoft.net.object.bytearray.base64
+    value   : The object must be serialized into a byte array 
+            : using a System.ComponentModel.TypeConverter
+            : and then encoded with base64 encoding.
+    -->
+  <xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
+    <xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
+    <xsd:element name="root" msdata:IsDataSet="true">
+      <xsd:complexType>
+        <xsd:choice maxOccurs="unbounded">
+          <xsd:element name="metadata">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" />
+              </xsd:sequence>
+              <xsd:attribute name="name" use="required" type="xsd:string" />
+              <xsd:attribute name="type" type="xsd:string" />
+              <xsd:attribute name="mimetype" type="xsd:string" />
+              <xsd:attribute ref="xml:space" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="assembly">
+            <xsd:complexType>
+              <xsd:attribute name="alias" type="xsd:string" />
+              <xsd:attribute name="name" type="xsd:string" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="data">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+                <xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
+              </xsd:sequence>
+              <xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
+              <xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
+              <xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
+              <xsd:attribute ref="xml:space" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="resheader">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+              </xsd:sequence>
+              <xsd:attribute name="name" type="xsd:string" use="required" />
+            </xsd:complexType>
+          </xsd:element>
+        </xsd:choice>
+      </xsd:complexType>
+    </xsd:element>
+  </xsd:schema>
+  <resheader name="resmimetype">
+    <value>text/microsoft-resx</value>
+  </resheader>
+  <resheader name="version">
+    <value>2.0</value>
+  </resheader>
+  <resheader name="reader">
+    <value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+  </resheader>
+  <resheader name="writer">
+    <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+  </resheader>
+  <assembly alias="System.Windows.Forms" name="System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" />
+  <data name="下載" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\下載.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
+  <data name="Close" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\Close.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
+  <data name="question-mark" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\question-mark.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
+  <data name="calc1" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\calc1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
+  <data name="system" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\system.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
+  <data name="ZOOM01" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\ZOOM01.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
+  <data name="print" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\print.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
+  <data name="SAVER" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\SAVER.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
+  <data name="NULL1" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\NULL1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
+</root>

Calculator-Backend-SYS/My Project/Settings.Designer.vb

@@ -0,0 +1,73 @@
+'------------------------------------------------------------------------------
+' <auto-generated>
+'     This code was generated by a tool.
+'     Runtime Version:4.0.30319.42000
+'
+'     Changes to this file may cause incorrect behavior and will be lost if
+'     the code is regenerated.
+' </auto-generated>
+'------------------------------------------------------------------------------
+
+Option Strict On
+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)> _
+    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"
+#If _MyType = "WindowsForms" Then
+        Private Shared addedHandler As Boolean
+
+        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
+#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
+#End If
+                Return defaultInstance
+            End Get
+        End Property
+    End Class
+End Namespace
+
+Namespace My
+
+    <Global.Microsoft.VisualBasic.HideModuleNameAttribute(), _
+     Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
+     Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute()> _
+    Friend Module MySettingsProperty
+
+        <Global.System.ComponentModel.Design.HelpKeywordAttribute("My.Settings")> _
+        Friend ReadOnly Property Settings() As Global.Calculator_Backend_SYS.My.MySettings
+            Get
+                Return Global.Calculator_Backend_SYS.My.MySettings.Default
+            End Get
+        End Property
+    End Module
+End Namespace

Calculator-Backend-SYS/My Project/Settings.settings

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

Calculator-Backend-SYS/SQL_語法_1.vb

@@ -0,0 +1,572 @@
+Module SQL_語法_1
+    Friend Sub SQL_人員薪資表1()
+        If PA25 = "-1" Or PA25 = "0" Or 工人 = True Then : SQL3 = "" & SQL5
+        ElseIf PA25 = "1" Then : SQL3 = " AND 使用者權限管理表.部門 NOT LIKE '3%' " & SQL5
+        ElseIf PA25 = "2" Then : SQL3 = " AND 使用者權限管理表.部門 LIKE '3%' " & SQL5 : End If
+        If BL = False Then
+            ConnOpen()
+            If 在職 = True Then
+                If 工人 = False Then : SQL2 = " WHERE (使用者權限管理表.CC63 = 0) AND 使用者權限管理表.部門 NOT LIKE N'9%' AND 使用者權限管理表.級別 LIKE N'%" & PA14 & "%' 
+                                                       AND [HX-PGS-MSN].dbo.人員資料表.部門名稱 LIKE '%" & PA19 & "%'" & SQL3
+                Else
+                    SQL2 = " WHERE (使用者權限管理表.CC63 = 0) AND 使用者權限管理表.部門 LIKE N'9%' AND 使用者權限管理表.姓名 NOT LIKE '未啟用%' AND 
+                                    使用者權限管理表.級別 LIKE N'%" & PA14 & "%' AND [HX-PGS-MSN].dbo.人員資料表.部門名稱 LIKE '%" & PA19 & "%'" & SQL3
+                End If
+            Else
+                If 工人 = False Then : SQL2 = " WHERE (使用者權限管理表.CC63 = 1) AND 使用者權限管理表.部門 NOT LIKE N'9%' AND 使用者權限管理表.級別 LIKE N'%" & PA14 & "%'" & SQL3
+                Else
+                    SQL2 = " WHERE (使用者權限管理表.CC63 = 1) AND 使用者權限管理表.部門 LIKE N'9%' AND 使用者權限管理表.姓名 NOT LIKE '未啟用%' AND 
+                                    姓名 NOT LIKE 'TEST%' AND 使用者權限管理表.級別 LIKE N'%" & PA14 & "%' AND [HX-PGS-MSN].dbo.人員資料表.部門名稱 LIKE '%" & PA19 & "%'" & SQL3
+                End If
+            End If
+            SQL1 = "SELECT       [HX-PGS-MSN].dbo.人員資料表.部門名稱 AS [" & 表頭(25) & "],使用者權限管理表.姓名 AS [" & 表頭(0) & "], 使用者權限管理表.部門 AS [" & 表頭(19) & "], 
+                                  使用者權限管理表.ID卡號, [HX-PGS-MSN].dbo.人員資料表.員工代碼 AS [STT], [HX-PGS-MSN].dbo.人員資料表.員工崗位 AS [" & 表頭(24) & "],  
+                                 [HX-PGS-MSN].dbo.人員資料表.入職日 AS [" & 表頭(22) & "], 
+                                  使用者權限管理表.級別 AS [" & 表頭(1) & "], 使用者權限管理表.級別 AS [" & 表頭(20) & "], 使用者權限管理表.級別 AS [" & 表頭(21) & "], 
+                                 [HX-PGS-MSN].dbo.人員資料表.群組 AS [" & 表頭(30) & "], [HX-PGS-MSN].dbo.人員資料表.薪資狀態 AS [" & 表頭(26) & "], 
+                                 [HX-PGS-MSN].dbo.人員資料表.薪資 AS [" & 表頭(27) & "], [HX-PGS-MSN].dbo.人員資料表.薪資 AS [" & 表頭(28) & "], 
+                                 [HX-PGS-MSN].dbo.人員資料表.薪資 AS [總數], 使用者權限管理表.級別 AS [" & 表頭(64) & "], 使用者權限管理表.級別 AS [" & 表頭(31) & "], 
+                                  使用者權限管理表.級別 AS [" & 表頭(32) & "], 使用者權限管理表.級別 AS [" & 表頭(33) & "], 使用者權限管理表.級別 AS [" & 表頭(34) & "], 
+                                  使用者權限管理表.級別 AS [" & 表頭(35) & "], 使用者權限管理表.級別 AS [" & 表頭(36) & "], 使用者權限管理表.級別 AS [" & 表頭(37) & "], 
+                                  使用者權限管理表.級別 AS [" & 表頭(38) & "], 使用者權限管理表.級別 AS [" & 表頭(39) & "], 使用者權限管理表.級別 AS [" & 表頭(40) & "], 
+                                  使用者權限管理表.級別 AS [" & 表頭(41) & "], 使用者權限管理表.級別 AS [" & 表頭(42) & "], 使用者權限管理表.級別 AS [" & 表頭(43) & "], 
+                                  使用者權限管理表.級別 AS [" & 表頭(58) & "], 使用者權限管理表.級別 AS [" & 表頭(59) & "], 使用者權限管理表.級別 AS [" & 表頭(60) & "], 
+                                  使用者權限管理表.級別 AS [" & 表頭(61) & "], 使用者權限管理表.級別 AS [" & 表頭(62) & "], 使用者權限管理表.級別 AS [" & 表頭(63) & "], 
+                                  使用者權限管理表.級別 AS [" & 表頭(44) & "], 使用者權限管理表.級別 AS [" & 表頭(45) & "], 使用者權限管理表.級別 AS [" & 表頭(46) & "], 
+                                  使用者權限管理表.級別 AS [" & 表頭(47) & "], 使用者權限管理表.級別 AS [" & 表頭(48) & "], 使用者權限管理表.級別 AS [" & 表頭(49) & "], 
+                                  使用者權限管理表.級別 AS [" & 表頭(50) & "], 使用者權限管理表.級別 AS [" & 表頭(51) & "], 使用者權限管理表.級別 AS [" & 表頭(52) & "], 
+                                  使用者權限管理表.級別 AS [" & 表頭(53) & "], 使用者權限管理表.級別 AS [" & 表頭(54) & "], 使用者權限管理表.級別 AS [" & 表頭(55) & "], 
+                                  使用者權限管理表.級別 AS [" & 表頭(56) & "], 使用者權限管理表.級別 AS [" & 表頭(57) & "], HX空白圖片.圖片 AS [Save.], 使用者權限管理表.帳號
+                    FROM          使用者權限管理表 LEFT OUTER JOIN
+                                  HX空白圖片 ON 使用者權限管理表.姓名 = HX空白圖片.選擇 LEFT OUTER JOIN
+                                 [HX-PGS-MSN].dbo.人員資料表 ON 使用者權限管理表.帳號 = [HX-PGS-MSN].dbo.人員資料表.帳號 " & SQL2 & "
+                    ORDER BY     " & SQL4
+            CmdSet_For_DGV()
+        Else
+            ConnOpen()
+            If 在職 = True Then
+                If 工人 = False Then : SQL2 = " AND (使用者權限管理表.CC63 = 0) AND (使用者權限管理表.部門 NOT LIKE '9%') AND 使用者權限管理表.級別 LIKE N'%" & PA14 & "%'
+                                                AND [HX-PGS-MSN].dbo.人員資料表.部門名稱 LIKE '%" & PA19 & "%'" & SQL3
+                Else : SQL2 = " AND (使用者權限管理表.CC63 = 0) AND (使用者權限管理表.部門 LIKE '9%') AND 使用者權限管理表.級別 LIKE N'%" & PA14 & "%'
+                                AND [HX-PGS-MSN].dbo.人員資料表.部門名稱 LIKE '%" & PA19 & "%'" & SQL3 : End If
+            Else
+                If 工人 = False Then : SQL2 = " AND (使用者權限管理表.CC63 = 1) AND 使用者權限管理表.部門 NOT LIKE N'9%' AND 使用者權限管理表.級別 LIKE N'%" & PA14 & "%'
+                                                AND [HX-PGS-MSN].dbo.人員資料表.部門名稱 LIKE '%" & PA19 & "%'" & SQL3
+                Else
+                    SQL2 = " AND (使用者權限管理表.CC63 = 1) AND 使用者權限管理表.部門 LIKE N'9%' AND 使用者權限管理表.姓名 NOT LIKE '未啟用%' AND 
+                                  使用者權限管理表.級別 LIKE N'%" & PA14 & "%' AND [HX-PGS-MSN].dbo.人員資料表.部門名稱 LIKE '%" & PA19 & "%'" & SQL3
+                End If
+            End If
+            SQL1 = "SELECT     [HX-PGS-MSN].dbo.人員資料表.部門名稱 AS [" & 表頭(25) & "], 使用者權限管理表.姓名 AS [" & 表頭(0) & "], 使用者權限管理表.部門 AS [" & 表頭(19) & "], 
+                                使用者權限管理表.ID卡號, [HX-PGS-MSN].dbo.人員資料表.員工代碼 AS [STT], [HX-PGS-MSN].dbo.人員資料表.員工崗位 AS [" & 表頭(24) & "], 
+                               [HX-PGS-MSN].dbo.人員資料表.入職日 AS [" & 表頭(22) & "], 
+                                使用者權限管理表.級別 AS [" & 表頭(1) & "], 使用者權限管理表.級別 AS [" & 表頭(20) & "], 使用者權限管理表.級別 AS [" & 表頭(21) & "], 
+                               [HX-PGS-MSN].dbo.人員資料表.群組 AS [" & 表頭(30) & "], [HX-PGS-MSN].dbo.人員資料表.薪資狀態 AS [" & 表頭(26) & "], 
+                               [HX-PGS-MSN].dbo.人員資料表.薪資 AS [" & 表頭(27) & "], [HX-PGS-MSN].dbo.人員資料表.薪資 AS [" & 表頭(28) & "], 
+                               [HX-PGS-MSN].dbo.人員資料表.薪資 AS [總數], 使用者權限管理表.級別 AS [" & 表頭(64) & "], 使用者權限管理表.級別 AS [" & 表頭(31) & "], 
+                                使用者權限管理表.級別 AS [" & 表頭(32) & "], 使用者權限管理表.級別 AS [" & 表頭(33) & "], 使用者權限管理表.級別 AS [" & 表頭(34) & "], 
+                                使用者權限管理表.級別 AS [" & 表頭(35) & "], 使用者權限管理表.級別 AS [" & 表頭(36) & "], 使用者權限管理表.級別 AS [" & 表頭(37) & "], 
+                                使用者權限管理表.級別 AS [" & 表頭(38) & "], 使用者權限管理表.級別 AS [" & 表頭(39) & "], 使用者權限管理表.級別 AS [" & 表頭(40) & "], 
+                                使用者權限管理表.級別 AS [" & 表頭(41) & "], 使用者權限管理表.級別 AS [" & 表頭(42) & "], 使用者權限管理表.級別 AS [" & 表頭(43) & "], 
+                                使用者權限管理表.級別 AS [" & 表頭(58) & "], 使用者權限管理表.級別 AS [" & 表頭(59) & "], 使用者權限管理表.級別 AS [" & 表頭(60) & "], 
+                                使用者權限管理表.級別 AS [" & 表頭(61) & "], 使用者權限管理表.級別 AS [" & 表頭(62) & "], 使用者權限管理表.級別 AS [" & 表頭(63) & "], 
+                                使用者權限管理表.級別 AS [" & 表頭(44) & "], 使用者權限管理表.級別 AS [" & 表頭(45) & "], 使用者權限管理表.級別 AS [" & 表頭(46) & "], 
+                                使用者權限管理表.級別 AS [" & 表頭(47) & "], 使用者權限管理表.級別 AS [" & 表頭(48) & "], 使用者權限管理表.級別 AS [" & 表頭(49) & "], 
+                                使用者權限管理表.級別 AS [" & 表頭(50) & "], 使用者權限管理表.級別 AS [" & 表頭(51) & "], 使用者權限管理表.級別 AS [" & 表頭(52) & "], 
+                                使用者權限管理表.級別 AS [" & 表頭(53) & "], 使用者權限管理表.級別 AS [" & 表頭(54) & "], 使用者權限管理表.級別 AS [" & 表頭(55) & "], 
+                                使用者權限管理表.級別 AS [" & 表頭(56) & "], 使用者權限管理表.級別 AS [" & 表頭(57) & "], HX空白圖片.圖片 AS [Save.], 使用者權限管理表.帳號
+                    FROM        使用者權限管理表 LEFT OUTER JOIN
+                                HX空白圖片 ON 使用者權限管理表.姓名 = HX空白圖片.選擇 LEFT OUTER JOIN
+                                [HX-PGS-MSN].dbo.人員資料表 ON 使用者權限管理表.帳號 = [HX-PGS-MSN].dbo.人員資料表.帳號
+                    WHERE      (使用者權限管理表.級別 LIKE '05' OR 使用者權限管理表.級別 LIKE '06' OR 使用者權限管理表.級別 LIKE '07' OR 使用者權限管理表.級別 LIKE '08' OR 
+                                使用者權限管理表.級別 LIKE '09') " & SQL2 & " 
+                    ORDER BY     " & SQL4
+            CmdSet_For_DGV()
+        End If
+    End Sub
+    Friend Sub SQL_人員薪資表2()
+        If PA25 = "-1" Or PA25 = "0" Or 工人 = True Then : SQL3 = "" & SQL5
+        ElseIf PA25 = "1" Then : SQL3 = " AND 使用者權限管理表.部門 NOT LIKE '3%' " & SQL5
+        ElseIf PA25 = "2" Then : SQL3 = " AND 使用者權限管理表.部門 LIKE '3%' " & SQL5 : End If
+        If BL = False Then
+            ConnOpen()
+            If 在職 = True Then
+                If 工人 = False Then : SQL2 = " WHERE (使用者權限管理表.CC63 = 0) AND 使用者權限管理表.部門 NOT LIKE N'9%' AND 使用者權限管理表.級別 LIKE N'%" & PA14 & "%' 
+                                                       AND [HX-PGS-MSN].dbo.人員資料表.部門名稱 LIKE '%" & PA19 & "%'" & SQL3
+                Else
+                    SQL2 = " WHERE (使用者權限管理表.CC63 = 0) AND 使用者權限管理表.部門 LIKE N'9%' AND 使用者權限管理表.姓名 NOT LIKE '未啟用%' AND 
+                                    使用者權限管理表.級別 LIKE N'%" & PA14 & "%' AND [HX-PGS-MSN].dbo.人員資料表.部門名稱 LIKE '%" & PA19 & "%'" & SQL3
+                End If
+            Else
+                If 工人 = False Then : SQL2 = " WHERE (使用者權限管理表.CC63 = 1) AND 使用者權限管理表.部門 NOT LIKE N'9%' AND 使用者權限管理表.級別 LIKE N'%" & PA14 & "%'" & SQL3
+                Else
+                    SQL2 = " WHERE (使用者權限管理表.CC63 = 1) AND 使用者權限管理表.部門 LIKE N'9%' AND 使用者權限管理表.姓名 NOT LIKE '未啟用%' AND 
+                                    姓名 NOT LIKE 'TEST%' AND 使用者權限管理表.級別 LIKE N'%" & PA14 & "%' AND [HX-PGS-MSN].dbo.人員資料表.部門名稱 LIKE '%" & PA19 & "%'" & SQL3
+                End If
+            End If
+            SQL1 = "SELECT  TOP(1) [HX-PGS-MSN].dbo.人員資料表.部門名稱 AS [" & 表頭(25) & "],使用者權限管理表.姓名 AS [" & 表頭(0) & "], 使用者權限管理表.部門 AS [" & 表頭(19) & "], 
+                                    使用者權限管理表.ID卡號, [HX-PGS-MSN].dbo.人員資料表.員工代碼 AS [STT], [HX-PGS-MSN].dbo.人員資料表.員工崗位 AS [" & 表頭(24) & "],  
+                                   [HX-PGS-MSN].dbo.人員資料表.入職日 AS [" & 表頭(22) & "], 
+                                    使用者權限管理表.級別 AS [" & 表頭(1) & "], 使用者權限管理表.級別 AS [" & 表頭(20) & "], 使用者權限管理表.級別 AS [" & 表頭(21) & "], 
+                                   [HX-PGS-MSN].dbo.人員資料表.群組 AS [" & 表頭(30) & "], [HX-PGS-MSN].dbo.人員資料表.薪資狀態 AS [" & 表頭(26) & "], 
+                                   [HX-PGS-MSN].dbo.人員資料表.薪資 AS [" & 表頭(27) & "], [HX-PGS-MSN].dbo.人員資料表.薪資 AS [" & 表頭(28) & "], 
+                                   [HX-PGS-MSN].dbo.人員資料表.薪資 AS [總數], 使用者權限管理表.級別 AS [" & 表頭(64) & "], 使用者權限管理表.級別 AS [" & 表頭(31) & "], 
+                                    使用者權限管理表.級別 AS [" & 表頭(32) & "], 使用者權限管理表.級別 AS [" & 表頭(33) & "], 使用者權限管理表.級別 AS [" & 表頭(34) & "], 
+                                    使用者權限管理表.級別 AS [" & 表頭(35) & "], 使用者權限管理表.級別 AS [" & 表頭(36) & "], 使用者權限管理表.級別 AS [" & 表頭(37) & "], 
+                                    使用者權限管理表.級別 AS [" & 表頭(38) & "], 使用者權限管理表.級別 AS [" & 表頭(39) & "], 使用者權限管理表.級別 AS [" & 表頭(40) & "], 
+                                    使用者權限管理表.級別 AS [" & 表頭(41) & "], 使用者權限管理表.級別 AS [" & 表頭(42) & "], 使用者權限管理表.級別 AS [" & 表頭(43) & "], 
+                                    使用者權限管理表.級別 AS [" & 表頭(58) & "], 使用者權限管理表.級別 AS [" & 表頭(59) & "], 使用者權限管理表.級別 AS [" & 表頭(60) & "], 
+                                    使用者權限管理表.級別 AS [" & 表頭(61) & "], 使用者權限管理表.級別 AS [" & 表頭(62) & "], 使用者權限管理表.級別 AS [" & 表頭(63) & "], 
+                                    使用者權限管理表.級別 AS [" & 表頭(44) & "], 使用者權限管理表.級別 AS [" & 表頭(45) & "], 使用者權限管理表.級別 AS [" & 表頭(46) & "], 
+                                    使用者權限管理表.級別 AS [" & 表頭(47) & "], 使用者權限管理表.級別 AS [" & 表頭(48) & "], 使用者權限管理表.級別 AS [" & 表頭(49) & "], 
+                                    使用者權限管理表.級別 AS [" & 表頭(50) & "], 使用者權限管理表.級別 AS [" & 表頭(51) & "], 使用者權限管理表.級別 AS [" & 表頭(52) & "], 
+                                    使用者權限管理表.級別 AS [" & 表頭(53) & "], 使用者權限管理表.級別 AS [" & 表頭(54) & "], 使用者權限管理表.級別 AS [" & 表頭(55) & "], 
+                                    使用者權限管理表.級別 AS [" & 表頭(56) & "], 使用者權限管理表.級別 AS [" & 表頭(57) & "], HX空白圖片.圖片 AS [Save.], 使用者權限管理表.帳號
+                    FROM            使用者權限管理表 LEFT OUTER JOIN
+                                    HX空白圖片 ON 使用者權限管理表.姓名 = HX空白圖片.選擇 LEFT OUTER JOIN
+                                   [HX-PGS-MSN].dbo.人員資料表 ON 使用者權限管理表.帳號 = [HX-PGS-MSN].dbo.人員資料表.帳號 " & SQL2 & "
+                    ORDER BY       " & SQL4
+            CmdSet_For_DGV()
+        Else
+            ConnOpen()
+            If 在職 = True Then
+                If 工人 = False Then : SQL2 = " AND (使用者權限管理表.CC63 = 0) AND (使用者權限管理表.部門 NOT LIKE '9%') AND 使用者權限管理表.級別 LIKE N'%" & PA14 & "%'
+                                                AND [HX-PGS-MSN].dbo.人員資料表.部門名稱 LIKE '%" & PA19 & "%'" & SQL3
+                Else : SQL2 = " AND (使用者權限管理表.CC63 = 0) AND (使用者權限管理表.部門 LIKE '9%') AND 使用者權限管理表.級別 LIKE N'%" & PA14 & "%'
+                                AND [HX-PGS-MSN].dbo.人員資料表.部門名稱 LIKE '%" & PA19 & "%'" & SQL3 : End If
+            Else
+                If 工人 = False Then : SQL2 = " AND (使用者權限管理表.CC63 = 1) AND 使用者權限管理表.部門 NOT LIKE N'9%' AND 使用者權限管理表.級別 LIKE N'%" & PA14 & "%'
+                                                AND [HX-PGS-MSN].dbo.人員資料表.部門名稱 LIKE '%" & PA19 & "%'" & SQL3
+                Else
+                    SQL2 = " AND (使用者權限管理表.CC63 = 1) AND 使用者權限管理表.部門 LIKE N'9%' AND 使用者權限管理表.姓名 NOT LIKE '未啟用%' AND 
+                                  使用者權限管理表.級別 LIKE N'%" & PA14 & "%' AND [HX-PGS-MSN].dbo.人員資料表.部門名稱 LIKE '%" & PA19 & "%'" & SQL3
+                End If
+            End If
+            SQL1 = "SELECT  TOP(1) [HX-PGS-MSN].dbo.人員資料表.部門名稱 AS [" & 表頭(25) & "], 使用者權限管理表.姓名 AS [" & 表頭(0) & "], 使用者權限管理表.部門 AS [" & 表頭(19) & "], 
+                                    使用者權限管理表.ID卡號, [HX-PGS-MSN].dbo.人員資料表.員工代碼 AS [STT], [HX-PGS-MSN].dbo.人員資料表.員工崗位 AS [" & 表頭(24) & "], 
+                                   [HX-PGS-MSN].dbo.人員資料表.入職日 AS [" & 表頭(22) & "], 
+                                    使用者權限管理表.級別 AS [" & 表頭(1) & "], 使用者權限管理表.級別 AS [" & 表頭(20) & "], 使用者權限管理表.級別 AS [" & 表頭(21) & "], 
+                                   [HX-PGS-MSN].dbo.人員資料表.群組 AS [" & 表頭(30) & "], [HX-PGS-MSN].dbo.人員資料表.薪資狀態 AS [" & 表頭(26) & "], 
+                                   [HX-PGS-MSN].dbo.人員資料表.薪資 AS [" & 表頭(27) & "], [HX-PGS-MSN].dbo.人員資料表.薪資 AS [" & 表頭(28) & "], 
+                                   [HX-PGS-MSN].dbo.人員資料表.薪資 AS [總數], 使用者權限管理表.級別 AS [" & 表頭(64) & "], 使用者權限管理表.級別 AS [" & 表頭(31) & "], 
+                                    使用者權限管理表.級別 AS [" & 表頭(32) & "], 使用者權限管理表.級別 AS [" & 表頭(33) & "], 使用者權限管理表.級別 AS [" & 表頭(34) & "], 
+                                    使用者權限管理表.級別 AS [" & 表頭(35) & "], 使用者權限管理表.級別 AS [" & 表頭(36) & "], 使用者權限管理表.級別 AS [" & 表頭(37) & "], 
+                                    使用者權限管理表.級別 AS [" & 表頭(38) & "], 使用者權限管理表.級別 AS [" & 表頭(39) & "], 使用者權限管理表.級別 AS [" & 表頭(40) & "], 
+                                    使用者權限管理表.級別 AS [" & 表頭(41) & "], 使用者權限管理表.級別 AS [" & 表頭(42) & "], 使用者權限管理表.級別 AS [" & 表頭(43) & "], 
+                                    使用者權限管理表.級別 AS [" & 表頭(58) & "], 使用者權限管理表.級別 AS [" & 表頭(59) & "], 使用者權限管理表.級別 AS [" & 表頭(60) & "], 
+                                    使用者權限管理表.級別 AS [" & 表頭(61) & "], 使用者權限管理表.級別 AS [" & 表頭(62) & "], 使用者權限管理表.級別 AS [" & 表頭(63) & "], 
+                                    使用者權限管理表.級別 AS [" & 表頭(44) & "], 使用者權限管理表.級別 AS [" & 表頭(45) & "], 使用者權限管理表.級別 AS [" & 表頭(46) & "], 
+                                    使用者權限管理表.級別 AS [" & 表頭(47) & "], 使用者權限管理表.級別 AS [" & 表頭(48) & "], 使用者權限管理表.級別 AS [" & 表頭(49) & "], 
+                                    使用者權限管理表.級別 AS [" & 表頭(50) & "], 使用者權限管理表.級別 AS [" & 表頭(51) & "], 使用者權限管理表.級別 AS [" & 表頭(52) & "], 
+                                    使用者權限管理表.級別 AS [" & 表頭(53) & "], 使用者權限管理表.級別 AS [" & 表頭(54) & "], 使用者權限管理表.級別 AS [" & 表頭(55) & "], 
+                                    使用者權限管理表.級別 AS [" & 表頭(56) & "], 使用者權限管理表.級別 AS [" & 表頭(57) & "], HX空白圖片.圖片 AS [Save.], 使用者權限管理表.帳號
+                    FROM            使用者權限管理表 LEFT OUTER JOIN
+                                    HX空白圖片 ON 使用者權限管理表.姓名 = HX空白圖片.選擇 LEFT OUTER JOIN
+                                    [HX-PGS-MSN].dbo.人員資料表 ON 使用者權限管理表.帳號 = [HX-PGS-MSN].dbo.人員資料表.帳號
+                    WHERE          (使用者權限管理表.級別 LIKE '05' OR 使用者權限管理表.級別 LIKE '06' OR 使用者權限管理表.級別 LIKE '07' OR 使用者權限管理表.級別 LIKE '08' OR 
+                                    使用者權限管理表.級別 LIKE '09') " & SQL2 & " 
+                    ORDER BY        " & SQL4
+            CmdSet_For_DGV()
+        End If
+    End Sub
+    Friend Sub SQL_工人薪資彙總報表_查詢()
+        ConnOpen_管理SQL()
+        SQL1 = "SELECT 金額 FROM 工人薪資彙總報表 WHERE 年 LIKE N'" & PA25 & "' AND 月 LIKE N'" & PA26 & "' AND 周 LIKE N'" & PA27 & "' AND 特殊 = N'" & PA30 & "'"
+        CmdSet_For_dr()
+    End Sub
+    Friend Sub SQL_工人薪資彙總報表_新增()
+        ConnOpen_管理SQL()
+        SQL1 = "INSERT INTO 工人薪資彙總報表 (年, 月, 周, 人數, 金額, 特殊) 
+                VALUES (N'" & PA25 & "',N'" & PA26 & "',N'" & PA27 & "',N'" & PA28 & "',N'" & PA29 & "',N'" & PA30 & "')"
+        CmdSet_For_dr()
+    End Sub
+    Friend Sub SQL_工人薪資彙總報表_修改()
+        ConnOpen_管理SQL()
+        SQL1 = "UPDATE 工人薪資彙總報表 SET 人數 = N'" & PA28 & "', 金額 = N'" & PA29 & "'
+                WHERE 年 LIKE N'" & PA25 & "' AND 月 LIKE N'" & PA26 & "' AND 周 LIKE N'" & PA27 & "' AND 特殊 = N'" & PA30 & "'"
+        CmdSet_For_dr()
+    End Sub
+    Friend Sub SQL_工人薪資彙總報表_查詢_T()
+        ConnOpen_管理SQL_T()
+        SQL1 = "SELECT 金額 FROM 工人薪資彙總報表 WHERE 年 LIKE N'" & PA25 & "' AND 月 LIKE N'" & PA26 & "' AND 周 LIKE N'" & PA27 & "' AND 特殊 = N'" & PA30 & "'"
+        CmdSet_For_dr()
+    End Sub
+    Friend Sub SQL_工人薪資彙總報表_新增_T()
+        ConnOpen_管理SQL_T()
+        SQL1 = "INSERT INTO 工人薪資彙總報表 (年, 月, 周, 人數, 金額, 特殊) 
+                VALUES (N'" & PA25 & "',N'" & PA26 & "',N'" & PA27 & "',N'" & PA28 & "',N'" & PA29 & "',N'" & PA30 & "')"
+        CmdSet_For_dr()
+    End Sub
+    Friend Sub SQL_工人薪資彙總報表_修改_T()
+        ConnOpen_管理SQL_T()
+        SQL1 = "UPDATE 工人薪資彙總報表 SET 人數 = N'" & PA28 & "', 金額 = N'" & PA29 & "'
+                WHERE 年 LIKE N'" & PA25 & "' AND 月 LIKE N'" & PA26 & "' AND 周 LIKE N'" & PA27 & "' AND 特殊 = N'" & PA30 & "'"
+        CmdSet_For_dr()
+    End Sub
+    Friend Sub SQL_考勤虛擬表()
+        ConnOpen_管理SQL()
+        SQL1 = "SELECT  帳號, 一上, 一下, 二上, 二下, 三上, 三下, 四上, 四下, 五上, 五下, 六上, 六下, 日上, 日下, 日期
+                FROM    虛擬考勤明細表  WHERE  (日期 LIKE '" & PA25 & "')"
+        CmdSet_For_DGV()
+    End Sub
+    Friend Sub SQL_考勤總明細()
+        ConnOpen_管理SQL()
+        SQL1 = "SELECT    QQ.ID卡號, 萬年曆.星期 AS MGB, 萬年曆.星期 AS [" & 表頭(2) & "], 萬年曆.日期 AS [" & 表頭(3) & "], QQ.第一, QQ.第二, QQ.第三, QQ.第四, QQ.第五, QQ.第六, 
+                          QQ.第一 AS [" & 表頭(4) & "], QQ.第一 AS [" & 表頭(5) & "], QQ.第一 AS [" & 表頭(6) & "], QQ.第一 AS [" & 表頭(7) & "], QQ.第一 AS [" & 表頭(8) & "],
+                          QQ.第一 AS [" & 表頭(9) & "], QQ.第一 AS [" & 表頭(10) & "], QQ.第一 AS [" & 表頭(11) & "], QQ.第一 AS [" & 表頭(12) & "], QQ.第一 AS [" & 表頭(13) & "],
+                          QQ.第一 AS [" & 表頭(14) & "], QQ.第一 AS [" & 表頭(15) & "], QQ.第一 AS [" & 表頭(16) & "], QQ.加班 AS [" & 表頭(17) & "], 萬年曆.假日 AS [" & 表頭(18) & "]
+                FROM      萬年曆 LEFT OUTER JOIN  (SELECT  ID卡號, 日期, 第一, 第二, 第三, 第四, 第五, 第六, 加班
+                          FROM    人事考勤明細表) AS QQ ON 萬年曆.日期 = QQ.日期
+                WHERE    (LEFT(萬年曆.日期, 7) LIKE '" & PA2 & "/" & PA3 & "')
+                ORDER BY  LEFT(萬年曆.日期, 7), 萬年曆.日期"
+        CmdSet_For_DGV()
+    End Sub
+    Friend Sub SQL_考勤級別讀取()
+        ConnOpen() : SQL1 = "SELECT 級別 FROM 使用者權限管理表 WHERE (姓名 LIKE N'" & PA47 & "')" : CmdSet_For_dr()
+        If BL = False Then
+            ConnOpen()
+            If PA = "" Then
+                If 在職 = True Then : SQL2 = " WHERE (CC63 = 0)" : Else : SQL2 = " WHERE (CC63 = 1)" : End If
+                SQL1 = "SELECT  級別 FROM 使用者權限管理表 " & SQL2 & " GROUP BY 級別 ORDER BY 級別"
+            Else
+                If 登入人級別 = "00" Then : SQL2 = "" : Else : If 在職 = True Then : SQL2 = " AND (CC63 = 0)" : Else : SQL2 = " AND (CC63 = 1)" : End If : End If
+                SQL1 = "SELECT    級別 FROM 使用者權限管理表 
+                        WHERE   ((姓名 LIKE N'%" & PA & "%') OR (帳號 LIKE N'%" & PA & "%') OR (密碼 LIKE N'%" & PA & "%') OR 
+                                 (部門 LIKE N'%" & PA & "%') OR (職稱 LIKE N'%" & PA & "%')) " & SQL2 & "
+                        GROUP BY 級別  ORDER BY  級別"
+            End If
+            CmdSet_For_dr()
+        Else
+            ConnOpen()
+            If PA = "" Then
+                If 在職 = True Then : SQL2 = " WHERE (CC63 = 0)" : Else : SQL2 = " WHERE (CC63 = 1)" : End If
+                SQL1 = "SELECT  級別 FROM 使用者權限管理表 " & SQL2 & " GROUP BY 級別 ORDER BY 級別"
+            Else
+                If 登入人級別 = "00" Then : SQL2 = "" : Else : If 在職 = True Then : SQL2 = " AND (CC63 = 0)" : Else : SQL2 = " AND (CC63 = 1)" : End If : End If
+                SQL1 = "SELECT    級別 FROM 使用者權限管理表 
+                        WHERE   ((姓名 LIKE N'%" & PA & "%') OR (帳號 LIKE N'%" & PA & "%') OR (密碼 LIKE N'%" & PA & "%') OR 
+                                 (部門 LIKE N'%" & PA & "%') OR (職稱 LIKE N'%" & PA & "%')) " & SQL2 & "
+                        GROUP BY 級別  ORDER BY  級別"
+            End If
+            CmdSet_For_dr()
+        End If
+    End Sub
+    Friend Sub SQL_年分清單()
+        ConnOpen_管理SQL() : SQL1 = "SELECT  LEFT(日期, 4) AS 日期  FROM  人事考勤明細表  GROUP BY   LEFT(日期, 4)  ORDER BY  日期 DESC" : CmdSet_For_dr()
+    End Sub
+    Friend Sub SQL_人員薪資表_群組()
+        ConnOpen_管理SQL() : SQL1 = "SELECT 部門名稱 FROM 人員資料表 WHERE 部門名稱 IS NOT NULL AND 部門名稱 NOT LIKE '' GROUP BY 部門名稱 ORDER BY 部門名稱" : CmdSet_For_dr()
+    End Sub
+    Friend Sub SQL_人員薪資表_修改()
+        ConnOpen_管理SQL()
+        SQL1 = "UPDATE 人員資料表 SET 部門名稱 = N'" & PA30 & "', 群組 = N'" & PA31 & "', 薪資 = N'" & PA32 & "' WHERE 帳號 LIKE N'" & PA33 & "'"
+        CmdSet_For_dr()
+    End Sub
+    Friend Sub SQL_虛擬考勤明細表新增()
+        ConnOpen_管理SQL()
+        SQL1 = "INSERT INTO 虛擬考勤明細表 (帳號, 一上, 一下, 二上, 二下, 三上, 三下, 四上, 四下, 五上, 五下, 六上, 六下, 日上, 日下, 日期) VALUES " & SQL2
+        CmdSet_For_dr()
+    End Sub
+    Friend Sub SQL_虛擬考勤明細表刪除()
+        ConnOpen_管理SQL()
+        SQL1 = "DELETE 虛擬考勤明細表 WHERE 日期 LIKE '" & PA45 & "'"
+        CmdSet_For_dr()
+    End Sub
+    Friend Sub SQL_人員薪資表1_1()
+        If PA25 = "-1" Or PA25 = "0" Or PA25 = "" Or 工人 = True Then : SQL3 = "" & SQL5
+        ElseIf PA25 = "1" Then : SQL3 = " AND 使用者權限管理表.部門 NOT LIKE '3%' " & SQL5
+        ElseIf PA25 = "2" Then : SQL3 = " AND 使用者權限管理表.部門 LIKE '3%' " & SQL5 : End If
+        If BL = False Then
+            ConnOpen()
+            If 在職 = True Then
+                If 工人 = False Then : SQL2 = " WHERE (使用者權限管理表.CC63 = 0) AND 使用者權限管理表.部門 NOT LIKE N'9%' AND 使用者權限管理表.級別 LIKE N'%" & PA14 & "%' 
+                                                       AND [HX-PGS-MSN].dbo.人員資料表.部門名稱 LIKE '%" & PA19 & "%'" & SQL3
+                Else
+                    SQL2 = " WHERE (使用者權限管理表.CC63 = 0) AND 使用者權限管理表.部門 LIKE N'9%' AND 使用者權限管理表.姓名 NOT LIKE '未啟用%' AND 
+                                    使用者權限管理表.級別 LIKE N'%" & PA14 & "%' AND [HX-PGS-MSN].dbo.人員資料表.部門名稱 LIKE '%" & PA19 & "%'" & SQL3
+                End If
+            Else
+                If 工人 = False Then : SQL2 = " WHERE (使用者權限管理表.CC63 = 1) AND 使用者權限管理表.部門 NOT LIKE N'9%' AND 使用者權限管理表.級別 LIKE N'%" & PA14 & "%'" & SQL3
+                Else
+                    SQL2 = " WHERE (使用者權限管理表.CC63 = 1) AND 使用者權限管理表.部門 LIKE N'9%' AND 使用者權限管理表.姓名 NOT LIKE '未啟用%' AND 
+                                    姓名 NOT LIKE 'TEST%' AND 使用者權限管理表.級別 LIKE N'%" & PA14 & "%' AND [HX-PGS-MSN].dbo.人員資料表.部門名稱 LIKE '%" & PA19 & "%'" & SQL3
+                End If
+            End If
+            SQL1 = "SELECT       [HX-PGS-MSN].dbo.人員資料表.部門名稱 AS [" & 表頭(25) & "],使用者權限管理表.姓名 AS [" & 表頭(0) & "], 使用者權限管理表.部門 AS [" & 表頭(19) & "], 
+                                  使用者權限管理表.ID卡號, [HX-PGS-MSN].dbo.人員資料表.員工代碼 AS [STT], [HX-PGS-MSN].dbo.人員資料表.員工崗位 AS [" & 表頭(24) & "],  
+                                 [HX-PGS-MSN].dbo.人員資料表.入職日 AS [" & 表頭(22) & "], 
+                                  使用者權限管理表.級別 AS [" & 表頭(1) & "], 使用者權限管理表.級別 AS [" & 表頭(20) & "], 使用者權限管理表.級別 AS [" & 表頭(21) & "], 
+                                 [HX-PGS-MSN].dbo.人員資料表.群組 AS [" & 表頭(30) & "], [HX-PGS-MSN].dbo.人員資料表.薪資狀態 AS [" & 表頭(26) & "], 
+                                 [HX-PGS-MSN].dbo.人員資料表.薪資 AS [" & 表頭(27) & "], [HX-PGS-MSN].dbo.人員資料表.薪資 AS [" & 表頭(28) & "], 
+                                 [HX-PGS-MSN].dbo.人員資料表.薪資 AS [總數], 使用者權限管理表.級別 AS [" & 表頭(64) & "], 使用者權限管理表.級別 AS [" & 表頭(31) & "], 
+                                  使用者權限管理表.級別 AS [" & 表頭(32) & "], 使用者權限管理表.級別 AS [" & 表頭(33) & "], 使用者權限管理表.級別 AS [" & 表頭(34) & "], 
+                                  使用者權限管理表.級別 AS [" & 表頭(35) & "], 使用者權限管理表.級別 AS [" & 表頭(36) & "], 使用者權限管理表.級別 AS [" & 表頭(37) & "], 
+                                  使用者權限管理表.級別 AS [" & 表頭(38) & "], 使用者權限管理表.級別 AS [" & 表頭(39) & "], 使用者權限管理表.級別 AS [" & 表頭(40) & "], 
+                                  使用者權限管理表.級別 AS [" & 表頭(41) & "], 使用者權限管理表.級別 AS [" & 表頭(42) & "], 使用者權限管理表.級別 AS [" & 表頭(43) & "], 
+                                  使用者權限管理表.級別 AS [" & 表頭(58) & "], 使用者權限管理表.級別 AS [" & 表頭(59) & "], 使用者權限管理表.級別 AS [" & 表頭(60) & "], 
+                                  使用者權限管理表.級別 AS [" & 表頭(61) & "], 使用者權限管理表.級別 AS [" & 表頭(62) & "], 使用者權限管理表.級別 AS [" & 表頭(63) & "], 
+                                  使用者權限管理表.級別 AS [" & 表頭(44) & "], 使用者權限管理表.級別 AS [" & 表頭(45) & "], 使用者權限管理表.級別 AS [" & 表頭(46) & "], 
+                                  使用者權限管理表.級別 AS [" & 表頭(47) & "], 使用者權限管理表.級別 AS [" & 表頭(48) & "], 使用者權限管理表.級別 AS [" & 表頭(49) & "], 
+                                  使用者權限管理表.級別 AS [" & 表頭(50) & "], 使用者權限管理表.級別 AS [" & 表頭(51) & "], 使用者權限管理表.級別 AS [" & 表頭(52) & "], 
+                                  使用者權限管理表.級別 AS [" & 表頭(53) & "], 使用者權限管理表.級別 AS [" & 表頭(54) & "], 使用者權限管理表.級別 AS [" & 表頭(55) & "], 
+                                  使用者權限管理表.級別 AS [" & 表頭(56) & "], 使用者權限管理表.級別 AS [" & 表頭(57) & "], HX空白圖片.圖片 AS [Save.], 使用者權限管理表.帳號
+                    FROM          使用者權限管理表 LEFT OUTER JOIN
+                                  HX空白圖片 ON 使用者權限管理表.姓名 = HX空白圖片.選擇 LEFT OUTER JOIN
+                                 [HX-PGS-MSN].dbo.人員資料表 ON 使用者權限管理表.帳號 = [HX-PGS-MSN].dbo.人員資料表.帳號 " & SQL2 & "
+                    ORDER BY     " & SQL4
+            CmdSet_For_DGV()
+        Else
+            ConnOpen()
+            If 在職 = True Then
+                If 工人 = False Then : SQL2 = " AND (使用者權限管理表.CC63 = 0) AND (使用者權限管理表.部門 NOT LIKE '9%') AND 使用者權限管理表.級別 LIKE N'%" & PA14 & "%'
+                                                AND [HX-PGS-MSN].dbo.人員資料表.部門名稱 LIKE '%" & PA19 & "%'" & SQL3
+                Else : SQL2 = " AND (使用者權限管理表.CC63 = 0) AND (使用者權限管理表.部門 LIKE '9%') AND 使用者權限管理表.級別 LIKE N'%" & PA14 & "%'
+                                AND [HX-PGS-MSN].dbo.人員資料表.部門名稱 LIKE '%" & PA19 & "%'" & SQL3 : End If
+            Else
+                If 工人 = False Then : SQL2 = " AND (使用者權限管理表.CC63 = 1) AND 使用者權限管理表.部門 NOT LIKE N'9%' AND 使用者權限管理表.級別 LIKE N'%" & PA14 & "%'
+                                                AND [HX-PGS-MSN].dbo.人員資料表.部門名稱 LIKE '%" & PA19 & "%'" & SQL3
+                Else
+                    SQL2 = " AND (使用者權限管理表.CC63 = 1) AND 使用者權限管理表.部門 LIKE N'9%' AND 使用者權限管理表.姓名 NOT LIKE '未啟用%' AND 
+                                  使用者權限管理表.級別 LIKE N'%" & PA14 & "%' AND [HX-PGS-MSN].dbo.人員資料表.部門名稱 LIKE '%" & PA19 & "%'" & SQL3
+                End If
+            End If
+            SQL1 = "SELECT     [HX-PGS-MSN].dbo.人員資料表.部門名稱 AS [" & 表頭(25) & "], 使用者權限管理表.姓名 AS [" & 表頭(0) & "], 使用者權限管理表.部門 AS [" & 表頭(19) & "], 
+                                使用者權限管理表.ID卡號, [HX-PGS-MSN].dbo.人員資料表.員工代碼 AS [STT], [HX-PGS-MSN].dbo.人員資料表.員工崗位 AS [" & 表頭(24) & "], 
+                               [HX-PGS-MSN].dbo.人員資料表.入職日 AS [" & 表頭(22) & "], 
+                                使用者權限管理表.級別 AS [" & 表頭(1) & "], 使用者權限管理表.級別 AS [" & 表頭(20) & "], 使用者權限管理表.級別 AS [" & 表頭(21) & "], 
+                               [HX-PGS-MSN].dbo.人員資料表.群組 AS [" & 表頭(30) & "], [HX-PGS-MSN].dbo.人員資料表.薪資狀態 AS [" & 表頭(26) & "], 
+                               [HX-PGS-MSN].dbo.人員資料表.薪資 AS [" & 表頭(27) & "], [HX-PGS-MSN].dbo.人員資料表.薪資 AS [" & 表頭(28) & "], 
+                               [HX-PGS-MSN].dbo.人員資料表.薪資 AS [總數], 使用者權限管理表.級別 AS [" & 表頭(64) & "], 使用者權限管理表.級別 AS [" & 表頭(31) & "], 
+                                使用者權限管理表.級別 AS [" & 表頭(32) & "], 使用者權限管理表.級別 AS [" & 表頭(33) & "], 使用者權限管理表.級別 AS [" & 表頭(34) & "], 
+                                使用者權限管理表.級別 AS [" & 表頭(35) & "], 使用者權限管理表.級別 AS [" & 表頭(36) & "], 使用者權限管理表.級別 AS [" & 表頭(37) & "], 
+                                使用者權限管理表.級別 AS [" & 表頭(38) & "], 使用者權限管理表.級別 AS [" & 表頭(39) & "], 使用者權限管理表.級別 AS [" & 表頭(40) & "], 
+                                使用者權限管理表.級別 AS [" & 表頭(41) & "], 使用者權限管理表.級別 AS [" & 表頭(42) & "], 使用者權限管理表.級別 AS [" & 表頭(43) & "], 
+                                使用者權限管理表.級別 AS [" & 表頭(58) & "], 使用者權限管理表.級別 AS [" & 表頭(59) & "], 使用者權限管理表.級別 AS [" & 表頭(60) & "], 
+                                使用者權限管理表.級別 AS [" & 表頭(61) & "], 使用者權限管理表.級別 AS [" & 表頭(62) & "], 使用者權限管理表.級別 AS [" & 表頭(63) & "], 
+                                使用者權限管理表.級別 AS [" & 表頭(44) & "], 使用者權限管理表.級別 AS [" & 表頭(45) & "], 使用者權限管理表.級別 AS [" & 表頭(46) & "], 
+                                使用者權限管理表.級別 AS [" & 表頭(47) & "], 使用者權限管理表.級別 AS [" & 表頭(48) & "], 使用者權限管理表.級別 AS [" & 表頭(49) & "], 
+                                使用者權限管理表.級別 AS [" & 表頭(50) & "], 使用者權限管理表.級別 AS [" & 表頭(51) & "], 使用者權限管理表.級別 AS [" & 表頭(52) & "], 
+                                使用者權限管理表.級別 AS [" & 表頭(53) & "], 使用者權限管理表.級別 AS [" & 表頭(54) & "], 使用者權限管理表.級別 AS [" & 表頭(55) & "], 
+                                使用者權限管理表.級別 AS [" & 表頭(56) & "], 使用者權限管理表.級別 AS [" & 表頭(57) & "], HX空白圖片.圖片 AS [Save.], 使用者權限管理表.帳號
+                    FROM        使用者權限管理表 LEFT OUTER JOIN
+                                HX空白圖片 ON 使用者權限管理表.姓名 = HX空白圖片.選擇 LEFT OUTER JOIN
+                                [HX-PGS-MSN].dbo.人員資料表 ON 使用者權限管理表.帳號 = [HX-PGS-MSN].dbo.人員資料表.帳號
+                    WHERE      (使用者權限管理表.級別 LIKE '05' OR 使用者權限管理表.級別 LIKE '06' OR 使用者權限管理表.級別 LIKE '07' OR 使用者權限管理表.級別 LIKE '08' OR 
+                                使用者權限管理表.級別 LIKE '09') " & SQL2 & " 
+                    ORDER BY     " & SQL4
+            CmdSet_For_DGV()
+        End If
+    End Sub
+    Friend Sub SQL_人員薪資表2_1()
+        If PA25 = "-1" Or PA25 = "0" Or 工人 = True Then : SQL3 = "" & SQL5
+        ElseIf PA25 = "1" Then : SQL3 = " AND 使用者權限管理表.部門 NOT LIKE '3%' " & SQL5
+        ElseIf PA25 = "2" Then : SQL3 = " AND 使用者權限管理表.部門 LIKE '3%' " & SQL5 : End If
+        If BL = False Then
+            ConnOpen()
+            If 在職 = True Then
+                If 工人 = False Then : SQL2 = " WHERE (使用者權限管理表.CC63 = 0) AND 使用者權限管理表.部門 NOT LIKE N'9%' AND 使用者權限管理表.級別 LIKE N'%" & PA14 & "%' 
+                                                       AND [HX-PGS-MSN].dbo.人員資料表.部門名稱 LIKE '%" & PA19 & "%'" & SQL3
+                Else
+                    SQL2 = " WHERE (使用者權限管理表.CC63 = 0) AND 使用者權限管理表.部門 LIKE N'9%' AND 使用者權限管理表.姓名 NOT LIKE '未啟用%' AND 
+                                    使用者權限管理表.級別 LIKE N'%" & PA14 & "%' AND [HX-PGS-MSN].dbo.人員資料表.部門名稱 LIKE '%" & PA19 & "%'" & SQL3
+                End If
+            Else
+                If 工人 = False Then : SQL2 = " WHERE (使用者權限管理表.CC63 = 1) AND 使用者權限管理表.部門 NOT LIKE N'9%' AND 使用者權限管理表.級別 LIKE N'%" & PA14 & "%'" & SQL3
+                Else
+                    SQL2 = " WHERE (使用者權限管理表.CC63 = 1) AND 使用者權限管理表.部門 LIKE N'9%' AND 使用者權限管理表.姓名 NOT LIKE '未啟用%' AND 
+                                    姓名 NOT LIKE 'TEST%' AND 使用者權限管理表.級別 LIKE N'%" & PA14 & "%' AND [HX-PGS-MSN].dbo.人員資料表.部門名稱 LIKE '%" & PA19 & "%'" & SQL3
+                End If
+            End If
+            SQL1 = "SELECT  TOP(1) [HX-PGS-MSN].dbo.人員資料表.部門名稱 AS [" & 表頭(25) & "],使用者權限管理表.姓名 AS [" & 表頭(0) & "], 使用者權限管理表.部門 AS [" & 表頭(19) & "], 
+                                    使用者權限管理表.ID卡號, [HX-PGS-MSN].dbo.人員資料表.員工代碼 AS [STT], [HX-PGS-MSN].dbo.人員資料表.員工崗位 AS [" & 表頭(24) & "],  
+                                   [HX-PGS-MSN].dbo.人員資料表.入職日 AS [" & 表頭(22) & "], 
+                                    使用者權限管理表.級別 AS [" & 表頭(1) & "], 使用者權限管理表.級別 AS [" & 表頭(20) & "], 使用者權限管理表.級別 AS [" & 表頭(21) & "], 
+                                   [HX-PGS-MSN].dbo.人員資料表.群組 AS [" & 表頭(30) & "], [HX-PGS-MSN].dbo.人員資料表.薪資狀態 AS [" & 表頭(26) & "], 
+                                   [HX-PGS-MSN].dbo.人員資料表.薪資 AS [" & 表頭(27) & "], [HX-PGS-MSN].dbo.人員資料表.薪資 AS [" & 表頭(28) & "], 
+                                   [HX-PGS-MSN].dbo.人員資料表.薪資 AS [總數], 使用者權限管理表.級別 AS [" & 表頭(64) & "], 使用者權限管理表.級別 AS [" & 表頭(31) & "], 
+                                    使用者權限管理表.級別 AS [" & 表頭(32) & "], 使用者權限管理表.級別 AS [" & 表頭(33) & "], 使用者權限管理表.級別 AS [" & 表頭(34) & "], 
+                                    使用者權限管理表.級別 AS [" & 表頭(35) & "], 使用者權限管理表.級別 AS [" & 表頭(36) & "], 使用者權限管理表.級別 AS [" & 表頭(37) & "], 
+                                    使用者權限管理表.級別 AS [" & 表頭(38) & "], 使用者權限管理表.級別 AS [" & 表頭(39) & "], 使用者權限管理表.級別 AS [" & 表頭(40) & "], 
+                                    使用者權限管理表.級別 AS [" & 表頭(41) & "], 使用者權限管理表.級別 AS [" & 表頭(42) & "], 使用者權限管理表.級別 AS [" & 表頭(43) & "], 
+                                    使用者權限管理表.級別 AS [" & 表頭(58) & "], 使用者權限管理表.級別 AS [" & 表頭(59) & "], 使用者權限管理表.級別 AS [" & 表頭(60) & "], 
+                                    使用者權限管理表.級別 AS [" & 表頭(61) & "], 使用者權限管理表.級別 AS [" & 表頭(62) & "], 使用者權限管理表.級別 AS [" & 表頭(63) & "], 
+                                    使用者權限管理表.級別 AS [" & 表頭(44) & "], 使用者權限管理表.級別 AS [" & 表頭(45) & "], 使用者權限管理表.級別 AS [" & 表頭(46) & "], 
+                                    使用者權限管理表.級別 AS [" & 表頭(47) & "], 使用者權限管理表.級別 AS [" & 表頭(48) & "], 使用者權限管理表.級別 AS [" & 表頭(49) & "], 
+                                    使用者權限管理表.級別 AS [" & 表頭(50) & "], 使用者權限管理表.級別 AS [" & 表頭(51) & "], 使用者權限管理表.級別 AS [" & 表頭(52) & "], 
+                                    使用者權限管理表.級別 AS [" & 表頭(53) & "], 使用者權限管理表.級別 AS [" & 表頭(54) & "], 使用者權限管理表.級別 AS [" & 表頭(55) & "], 
+                                    使用者權限管理表.級別 AS [" & 表頭(56) & "], 使用者權限管理表.級別 AS [" & 表頭(57) & "], HX空白圖片.圖片 AS [Save.], 使用者權限管理表.帳號
+                    FROM            使用者權限管理表 LEFT OUTER JOIN
+                                    HX空白圖片 ON 使用者權限管理表.姓名 = HX空白圖片.選擇 LEFT OUTER JOIN
+                                   [HX-PGS-MSN].dbo.人員資料表 ON 使用者權限管理表.帳號 = [HX-PGS-MSN].dbo.人員資料表.帳號 " & SQL2 & "
+                    ORDER BY       " & SQL4
+            CmdSet_For_DGV()
+        Else
+            ConnOpen()
+            If 在職 = True Then
+                If 工人 = False Then : SQL2 = " AND (使用者權限管理表.CC63 = 0) AND (使用者權限管理表.部門 NOT LIKE '9%') AND 使用者權限管理表.級別 LIKE N'%" & PA14 & "%'
+                                                AND [HX-PGS-MSN].dbo.人員資料表.部門名稱 LIKE '%" & PA19 & "%'" & SQL3
+                Else : SQL2 = " AND (使用者權限管理表.CC63 = 0) AND (使用者權限管理表.部門 LIKE '9%') AND 使用者權限管理表.級別 LIKE N'%" & PA14 & "%'
+                                AND [HX-PGS-MSN].dbo.人員資料表.部門名稱 LIKE '%" & PA19 & "%'" & SQL3 : End If
+            Else
+                If 工人 = False Then : SQL2 = " AND (使用者權限管理表.CC63 = 1) AND 使用者權限管理表.部門 NOT LIKE N'9%' AND 使用者權限管理表.級別 LIKE N'%" & PA14 & "%'
+                                                AND [HX-PGS-MSN].dbo.人員資料表.部門名稱 LIKE '%" & PA19 & "%'" & SQL3
+                Else
+                    SQL2 = " AND (使用者權限管理表.CC63 = 1) AND 使用者權限管理表.部門 LIKE N'9%' AND 使用者權限管理表.姓名 NOT LIKE '未啟用%' AND 
+                                  使用者權限管理表.級別 LIKE N'%" & PA14 & "%' AND [HX-PGS-MSN].dbo.人員資料表.部門名稱 LIKE '%" & PA19 & "%'" & SQL3
+                End If
+            End If
+            SQL1 = "SELECT  TOP(1) [HX-PGS-MSN].dbo.人員資料表.部門名稱 AS [" & 表頭(25) & "], 使用者權限管理表.姓名 AS [" & 表頭(0) & "], 使用者權限管理表.部門 AS [" & 表頭(19) & "], 
+                                    使用者權限管理表.ID卡號, [HX-PGS-MSN].dbo.人員資料表.員工代碼 AS [STT], [HX-PGS-MSN].dbo.人員資料表.員工崗位 AS [" & 表頭(24) & "], 
+                                   [HX-PGS-MSN].dbo.人員資料表.入職日 AS [" & 表頭(22) & "], 
+                                    使用者權限管理表.級別 AS [" & 表頭(1) & "], 使用者權限管理表.級別 AS [" & 表頭(20) & "], 使用者權限管理表.級別 AS [" & 表頭(21) & "], 
+                                   [HX-PGS-MSN].dbo.人員資料表.群組 AS [" & 表頭(30) & "], [HX-PGS-MSN].dbo.人員資料表.薪資狀態 AS [" & 表頭(26) & "], 
+                                   [HX-PGS-MSN].dbo.人員資料表.薪資 AS [" & 表頭(27) & "], [HX-PGS-MSN].dbo.人員資料表.薪資 AS [" & 表頭(28) & "], 
+                                   [HX-PGS-MSN].dbo.人員資料表.薪資 AS [總數], 使用者權限管理表.級別 AS [" & 表頭(64) & "], 使用者權限管理表.級別 AS [" & 表頭(31) & "], 
+                                    使用者權限管理表.級別 AS [" & 表頭(32) & "], 使用者權限管理表.級別 AS [" & 表頭(33) & "], 使用者權限管理表.級別 AS [" & 表頭(34) & "], 
+                                    使用者權限管理表.級別 AS [" & 表頭(35) & "], 使用者權限管理表.級別 AS [" & 表頭(36) & "], 使用者權限管理表.級別 AS [" & 表頭(37) & "], 
+                                    使用者權限管理表.級別 AS [" & 表頭(38) & "], 使用者權限管理表.級別 AS [" & 表頭(39) & "], 使用者權限管理表.級別 AS [" & 表頭(40) & "], 
+                                    使用者權限管理表.級別 AS [" & 表頭(41) & "], 使用者權限管理表.級別 AS [" & 表頭(42) & "], 使用者權限管理表.級別 AS [" & 表頭(43) & "], 
+                                    使用者權限管理表.級別 AS [" & 表頭(58) & "], 使用者權限管理表.級別 AS [" & 表頭(59) & "], 使用者權限管理表.級別 AS [" & 表頭(60) & "], 
+                                    使用者權限管理表.級別 AS [" & 表頭(61) & "], 使用者權限管理表.級別 AS [" & 表頭(62) & "], 使用者權限管理表.級別 AS [" & 表頭(63) & "], 
+                                    使用者權限管理表.級別 AS [" & 表頭(44) & "], 使用者權限管理表.級別 AS [" & 表頭(45) & "], 使用者權限管理表.級別 AS [" & 表頭(46) & "], 
+                                    使用者權限管理表.級別 AS [" & 表頭(47) & "], 使用者權限管理表.級別 AS [" & 表頭(48) & "], 使用者權限管理表.級別 AS [" & 表頭(49) & "], 
+                                    使用者權限管理表.級別 AS [" & 表頭(50) & "], 使用者權限管理表.級別 AS [" & 表頭(51) & "], 使用者權限管理表.級別 AS [" & 表頭(52) & "], 
+                                    使用者權限管理表.級別 AS [" & 表頭(53) & "], 使用者權限管理表.級別 AS [" & 表頭(54) & "], 使用者權限管理表.級別 AS [" & 表頭(55) & "], 
+                                    使用者權限管理表.級別 AS [" & 表頭(56) & "], 使用者權限管理表.級別 AS [" & 表頭(57) & "], HX空白圖片.圖片 AS [Save.], 使用者權限管理表.帳號
+                    FROM            使用者權限管理表 LEFT OUTER JOIN
+                                    HX空白圖片 ON 使用者權限管理表.姓名 = HX空白圖片.選擇 LEFT OUTER JOIN
+                                    [HX-PGS-MSN].dbo.人員資料表 ON 使用者權限管理表.帳號 = [HX-PGS-MSN].dbo.人員資料表.帳號
+                    WHERE          (使用者權限管理表.級別 LIKE '05' OR 使用者權限管理表.級別 LIKE '06' OR 使用者權限管理表.級別 LIKE '07' OR 使用者權限管理表.級別 LIKE '08' OR 
+                                    使用者權限管理表.級別 LIKE '09') " & SQL2 & " 
+                    ORDER BY        " & SQL4
+            CmdSet_For_DGV()
+        End If
+    End Sub
+    '---------------------HX_PGS_ERP_SYS_登入通知---------------------------------------------------------------------------------------------------------
+    Friend Sub SQL_請購單申請未核准單數()
+        ConnOpen()
+        SQL1 = "SELECT      請購單控制表.請購單號 AS [NO.], 請購單控制表.需求日期 AS [需求 / Need], 請購單控制表.合約號, 
+                            合約控制表.工程名稱_中, 合約控制表.工程名稱_英
+                FROM        請購單控制表 INNER JOIN 使用者權限管理表 ON 請購單控制表.申請人 = 使用者權限管理表.姓名 INNER JOIN
+                           (SELECT  姓名, 帳號, 職稱, 時效, 授權  FROM  系統跨部門權限表  WHERE  (姓名 LIKE N'李協叡') AND (授權 = 1)) AS QQQ ON 
+                            使用者權限管理表.職稱 = QQQ.職稱 INNER JOIN 合約控制表 ON 請購單控制表.合約號 = 合約控制表.合約編號
+                WHERE      (請購單控制表.核准人 LIKE N'') AND 使用者權限管理表.CC63 = 0
+                ORDER BY    [NO.] DESC"
+        CmdSet_For_DGV()
+    End Sub
+    Friend Sub SQL_採購單單數()
+        ConnOpen()
+        SQL1 = "SELECT      請購單明細表.請購單號 AS [NO.], 請購單控制表.核准日期 AS [核准 / Approved], 請購單控制表.合約號, 
+                            合約控制表.工程名稱_中, 合約控制表.工程名稱_英
+                FROM        合約控制表 INNER JOIN 請購單控制表 ON 合約控制表.合約編號 = 請購單控制表.合約號 RIGHT OUTER JOIN
+                            請購單明細表 LEFT OUTER JOIN 採購單明細表 ON 請購單明細表.項次 = 採購單明細表.項次 AND 
+                            請購單明細表.請購單號 = 採購單明細表.請購單號 LEFT OUTER JOIN 物料圖庫 ON 請購單明細表.群組原則 = 物料圖庫.料號原則 ON 
+                            請購單控制表.請購單號 = 請購單明細表.請購單號 LEFT OUTER JOIN
+                            物料編碼庫 ON 請購單明細表.群組原則 = 物料編碼庫.料號原則 LEFT OUTER JOIN
+                            倉儲分區控制表 ON 請購單明細表.用途 = 倉儲分區控制表.倉名編號 LEFT OUTER JOIN
+                            物料規格表 ON 請購單明細表.料號 = 物料規格表.料號 LEFT OUTER JOIN
+                            物料資訊控制表 ON 請購單明細表.群組原則 = 物料資訊控制表.料號原則
+                WHERE      (請購單控制表.核准人 NOT LIKE N'') AND (請購單控制表.核准人 NOT LIKE N'作廢%') AND (請購單明細表.已採購 IS NULL OR
+                            請購單明細表.已採購 = 0) AND (物料資訊控制表.規格庫編號 IS NOT NULL)
+                GROUP BY    請購單明細表.請購單號, 請購單控制表.核准日期, 請購單控制表.合約號, 合約控制表.工程名稱_中, 合約控制表.工程名稱_英
+                ORDER BY    [NO.]"
+        CmdSet_For_DGV()
+    End Sub
+    Friend Sub SQL_採購核准11()
+        ConnOpen()
+        SQL1 = "SELECT      採購單控制表.採購單號 AS [NO.], 採購單控制表.需求日期 AS [需求 / Need], 供應商資料表.公司名
+                FROM        採購單控制表 INNER JOIN
+                            供應商資料表 ON 採購單控制表.供應商編號 = 供應商資料表.供應商編碼
+                WHERE      (採購單控制表.核准 LIKE N'') AND (採購單控制表.供應商編號 NOT LIKE N'') AND (採購單控制表.一級核准 LIKE N'' OR
+                            採購單控制表.一級核准 IS NULL)
+                ORDER BY    [NO.] DESC"
+        CmdSet_For_DGV()
+    End Sub
+    Friend Sub SQL_採購核准12()
+        ConnOpen()
+        SQL1 = "SELECT      採購單控制表.採購單號 AS [NO.], 採購單控制表.需求日期 AS [需求 / Need], 供應商資料表.公司名
+                FROM        採購單控制表 INNER JOIN
+                            供應商資料表 ON 採購單控制表.供應商編號 = 供應商資料表.供應商編碼
+                WHERE      (採購單控制表.核准 LIKE N'') AND (採購單控制表.一級核准 NOT LIKE N'')
+                ORDER BY    [NO.] DESC"
+        CmdSet_For_DGV()
+    End Sub
+    Friend Sub SQL_合約未請款1()
+        ConnOpen() : SQL1 = "SELECT  合約編號, 工程主管, 工程名稱_中, 工程名稱_英  FROM  合約控制表  WHERE  (作廢 = 0) AND (合約停止 = 0) AND (預付款 <> 0 OR 預付款 IS NULL)" : CmdSet_For_DGV()
+    End Sub
+    Friend Sub SQL_合約未請款2()
+        ConnOpen() : SQL1 = "SELECT  合約編號, 工程主管, 工程名稱_中, 工程名稱_英  FROM  合約控制表  WHERE  (作廢 = 0) AND (合約停止 = 0) AND (到貨款 <> 0 OR 到貨款 IS NULL)" : CmdSet_For_DGV()
+    End Sub
+    Friend Sub SQL_合約未請款3()
+        ConnOpen() : SQL1 = "SELECT  合約編號, 工程主管, 工程名稱_中, 工程名稱_英  FROM  合約控制表  WHERE  (作廢 = 0) AND (合約停止 = 0) AND (施工款 <> 0 OR 施工款 IS NULL)" : CmdSet_For_DGV()
+    End Sub
+    Friend Sub SQL_合約未請款4()
+        ConnOpen() : SQL1 = "SELECT  合約編號, 工程主管, 工程名稱_中, 工程名稱_英  FROM  合約控制表  WHERE  (作廢 = 0) AND (合約停止 = 0) AND (驗收款 <> 0 OR 驗收款 IS NULL)" : CmdSet_For_DGV()
+    End Sub
+    Friend Sub SQL_合約未請款5()
+        ConnOpen() : SQL1 = "SELECT  合約編號, 工程主管, 工程名稱_中, 工程名稱_英  FROM  合約控制表  WHERE  (作廢 = 0) AND (合約停止 = 0) AND (保留款 <> 0 OR 保留款 IS NULL)" : CmdSet_For_DGV()
+    End Sub
+    Friend Sub SQL_合約未驗收()
+        ConnOpen() : SQL1 = "SELECT  合約編號, 工程主管, 工程名稱_中, 工程名稱_英  FROM  合約控制表  WHERE  (作廢 = 0) AND (合約停止 = 0) AND (驗收結果 = 0 OR 驗收結果 IS NULL)" : CmdSet_For_DGV()
+    End Sub
+    Friend Sub SQL_合約未指定主管()
+        ConnOpen() : SQL1 = "SELECT 合約編號, 工程主管, 工程名稱_中, 工程名稱_英 FROM 合約控制表 WHERE (作廢 = 0) AND (合約停止 = 0) AND (工程主管 IS NULL)" : CmdSet_For_DGV()
+    End Sub
+    Friend Sub SQL_合約保固未簽()
+        ConnOpen()
+        SQL1 = "SELECT 合約編號, 工程主管, 工程名稱_中, 工程名稱_英 FROM 合約控制表  
+                WHERE (作廢 = 0) AND (合約停止 = 0 OR 合約停止 IS NULL) AND (報價放行 = 1) AND (保固簽回 = 0 OR 保固簽回 IS NULL)"
+        CmdSet_For_DGV()
+    End Sub
+    Friend Sub SQL_合約驗收單未簽回()
+        ConnOpen()
+        SQL1 = "SELECT 合約編號, 工程主管, 工程名稱_中, 工程名稱_英 FROM 合約控制表  
+                WHERE (作廢 = 0) AND (合約停止 = 0 OR 合約停止 IS NULL) AND (報價放行 = 1) AND (驗收簽回 = 0 OR 驗收簽回 IS NULL)"
+        CmdSet_For_DGV()
+    End Sub
+    Friend Sub SQL_合約未簽回()
+        ConnOpen()
+        SQL1 = "SELECT 合約編號, 工程主管, 工程名稱_中, 工程名稱_英 FROM 合約控制表  
+                WHERE (作廢 = 0) AND (合約停止 = 0 OR 合約停止 IS NULL) AND (報價放行 = 1) AND (合約簽回 = 0 OR 合約簽回 IS NULL)"
+        CmdSet_For_DGV()
+    End Sub
+    Friend Sub SQL_報價未簽回()
+        ConnOpen()
+        SQL1 = "SELECT 合約編號, 工程主管, 工程名稱_中, 工程名稱_英 FROM 合約控制表 
+                WHERE (作廢 = 0) AND (合約停止 = 0 OR 合約停止 IS NULL) AND (報價放行 = 1) AND (報價簽回 = 0 OR 報價簽回 IS NULL)"
+        CmdSet_For_DGV()
+    End Sub
+    Friend Sub SQL_報價未完成()
+        ConnOpen() : SQL1 = "SELECT 合約編號, 工程主管, 工程名稱_中, 工程名稱_英 FROM 合約控制表 WHERE (作廢 = 0) AND (合約停止 = 1)" : CmdSet_For_DGV()
+    End Sub
+    Friend Sub SQL_合約未設利潤()
+        ConnOpen()
+        SQL1 = "SELECT  合約編號, 工程主管, 工程名稱_中, 工程名稱_英  FROM  合約控制表  WHERE  (作廢 = 0) AND (利潤比1 = 0 OR 利潤比1 IS NULL) AND (合約停止 = 0 OR 合約停止 IS NULL)"
+        CmdSet_For_DGV()
+    End Sub
+    Friend Sub SQL_合約未放行()
+        ConnOpen()
+        SQL1 = "SELECT  合約編號, 工程主管, 工程名稱_中, 工程名稱_英  FROM  合約控制表  WHERE  (作廢 = 0) AND (報價放行 = 0 OR 報價放行 IS NULL) AND (合約停止 = 0 OR 合約停止 IS NULL)"
+        CmdSet_For_DGV()
+    End Sub
+    Friend Sub SQL_工程進度表未開()
+        ConnOpen()
+        SQL1 = "SELECT  合約控制表.合約編號, 合約控制表.工程主管, 合約控制表.工程名稱_中, 合約控制表.工程名稱_英
+                FROM    合約控制表 FULL OUTER JOIN
+                       (SELECT   [PROJECT-SYS].dbo.工程進度表.合約編號, [PROJECT-SYS].dbo.工程責任表.項目負責
+                        FROM     [PROJECT-SYS].dbo.工程進度表 INNER JOIN [PROJECT-SYS].dbo.工程責任表 ON 
+                                 [PROJECT-SYS].dbo.工程進度表.合約編號 = [PROJECT-SYS].dbo.工程責任表.合約編號
+                        GROUP BY [PROJECT-SYS].dbo.工程進度表.合約編號, [PROJECT-SYS].dbo.工程責任表.項目負責) AS QQ ON 
+                        合約控制表.合約編號 = QQ.合約編號
+                WHERE  (合約控制表.作廢 = 0) AND (合約控制表.合約停止 = 0) AND (合約控制表.驗收結果 = 0 OR 合約控制表.驗收結果 IS NULL) AND (QQ.項目負責 IS NULL)"
+        CmdSet_For_DGV()
+    End Sub
+    Friend Sub SQL_工作狀態匯總表_刪除()
+        ConnOpen_管理SQL() : SQL1 = "DELETE  工作狀態匯總表 " : CmdSet_For_dr()
+        ConnOpen_管理SQL_T() : SQL1 = "DELETE  工作狀態匯總表 " : CmdSet_For_dr()
+    End Sub
+    Friend Sub SQL_工作狀態匯總表_寫入()
+        ConnOpen_管理SQL() : SQL1 = "INSERT INTO 工作狀態匯總表 (表, 數量) VALUES " & SQL2 : CmdSet_For_dr()
+        ConnOpen_管理SQL_T() : SQL1 = "INSERT INTO 工作狀態匯總表 (表, 數量) VALUES " & SQL2 : CmdSet_For_dr()
+    End Sub
+End Module

Calculator-Backend-SYS/SQL_連線字串.vb

@@ -0,0 +1,71 @@
+Imports System.Data.OleDb
+Imports System.Data.SqlClient
+
+Module SQL_連線字串
+    Friend Sub SQL_連線字串_測試()
+        ConString_T = "Data Source=" & 登入人IP2 & ";Initial Catalog=HX-GPS-ERP-SYS;Persist Security Info=True;User ID=b70340;Password=Lee0911274990;Max pool size = 200;Connection Timeout=0"
+    End Sub
+    Friend Sub SQL_連線字串_測試_工程SQL()
+        ConString1_T = "Data Source=" & 登入人IP2 & ";Initial Catalog=PROJECT-SYS;Persist Security Info=True;User ID=b70340;Password=Lee0911274990;Max pool size = 200; Connection Timeout=0"
+    End Sub
+    Friend Sub SQL_連線字串_測試_管理SQL()
+        ConString3_T = "Data Source=" & 登入人IP2 & ";Initial Catalog=HX-PGS-MSN;Persist Security Info=True;User ID=b70340;Password=Lee0911274990;Max pool size = 200; Connection Timeout=0"
+    End Sub
+
+    Friend Sub SQL_連線字串_正式()
+        ConString = "Data Source=" & 登入人IP1 & ";Initial Catalog=HX-GPS-ERP-SYS;Persist Security Info=True;User ID=b70340;Password=Lee0911274990;Max pool size = 200;Connection Timeout=0"
+    End Sub
+    Friend Sub SQL_連線字串_正式_工程SQL()
+        ConString1 = "Data Source=" & 登入人IP1 & ";Initial Catalog=PROJECT-SYS;Persist Security Info=True;User ID=b70340;Password=Lee0911274990;Max pool size = 200; Connection Timeout=0"
+    End Sub
+    Friend Sub SQL_連線字串_正式_管理SQL()
+        ConString3 = "Data Source=" & 登入人IP1 & ";Initial Catalog=HX-PGS-MSN;Persist Security Info=True;User ID=b70340;Password=Lee0911274990;Max pool size = 200; Connection Timeout=0"
+    End Sub
+
+    Friend Sub SQL_連線字串_測試_LINE_SQL()
+        ConString4 = "Data Source=" & Line通訊IP & ";Initial Catalog=" & Line伺服器名稱 & ";Persist Security Info=True;User ID=b70340;Password=Lee0911274990;Max pool size = 200; Connection Timeout=0"
+    End Sub
+
+    '---------------資料庫連線字串宣告--------------------------------------------------------------------------------------------------------------------------------------------------------
+    Public Access1 As New OleDbConnection : Public AccesCmd As OleDbCommand
+    Public Acdr As OleDbDataReader
+    Public ConString, ConString1, ConString2, ConString3, ConString4 As String : Public AccessConString As String : Public SQL1, SQL2, SQL3, SQL4, SQL5, SQL6, SQL7, SQL8, SQL9, SQL10 As String
+    Public conn As New SqlConnection : Public cmd As New SqlCommand
+    Public dr As SqlDataReader : Public da As New SqlDataAdapter
+
+    Friend Sub ConnOpen_T()
+        conn.Close() : If conn.State = ConnectionState.Closed Then : conn.ConnectionString = ConString_T : conn.Open() : End If
+    End Sub
+    Friend Sub ConnOpen_工程SQL_T()
+        conn.Close() : If conn.State = ConnectionState.Closed Then : conn.ConnectionString = ConString1_T : conn.Open() : End If
+    End Sub
+    Friend Sub ConnOpen_管理SQL_T()
+        conn.Close() : If conn.State = ConnectionState.Closed Then : conn.ConnectionString = ConString3_T : conn.Open() : End If
+    End Sub
+    Friend Sub ConnOpen_工程圖庫SQL_T()
+        conn.Close() : If conn.State = ConnectionState.Closed Then : conn.ConnectionString = ConString2_T : conn.Open() : End If
+    End Sub
+
+    Friend Sub ConnOpen()
+        conn.Close() : If conn.State = ConnectionState.Closed Then : conn.ConnectionString = ConString : conn.Open() : End If
+    End Sub
+    Friend Sub ConnOpen_工程SQL()
+        conn.Close() : If conn.State = ConnectionState.Closed Then : conn.ConnectionString = ConString1 : conn.Open() : End If
+    End Sub
+    Friend Sub ConnOpen_管理SQL()
+        conn.Close() : If conn.State = ConnectionState.Closed Then : conn.ConnectionString = ConString3 : conn.Open() : End If
+    End Sub
+    Friend Sub ConnOpen_工程圖庫SQL()
+        conn.Close() : If conn.State = ConnectionState.Closed Then : conn.ConnectionString = ConString2 : conn.Open() : End If
+    End Sub
+    Friend Sub ConnOpen_LINE_SQL()
+        SQL_連線字串_測試_LINE_SQL()
+        conn.Close() : If conn.State = ConnectionState.Closed Then : conn.ConnectionString = ConString4 : conn.Open() : End If
+    End Sub
+    Friend Sub CmdSet_For_DGV()
+        cmd.Connection = conn : cmd.CommandText = SQL1 : da.SelectCommand = cmd
+    End Sub
+    Friend Sub CmdSet_For_dr()
+        cmd.CommandText = SQL1 : cmd.Connection = conn : dr = cmd.ExecuteReader
+    End Sub
+End Module

Calculator-Backend-SYS/SQL_連線狀態模組3.vb

@@ -0,0 +1,65 @@
+Module SQL_連線狀態模組3
+#Region "——连接测试：避免等待时间过长——"
+    Dim bConnect As Boolean
+    Dim BgWorker3 As New ComponentModel.BackgroundWorker
+    Dim ServerIP As String
+    ''' <summary>
+    ''' 测试连接：True-连接成功，False-连接失败
+    ''' 参数[必选]：服务器IP
+    ''' 参数[可选]：等待超时时间（秒）,默认为1.2秒
+    ''' </summary>
+    ''' <returns></returns>
+    ''' <remarks></remarks>
+    Function ConnectTest3(ByVal varServerIP As String, Optional ByVal varTimeout As Decimal = 1) As Boolean
+        AddHandler BgWorker3.DoWork, AddressOf BgWorker3_DoWork
+        Dim g As Integer
+        Dim k As Integer
+        If BgWorker3.CancellationPending Then
+            BgWorker3.CancelAsync()
+            '取消BackgroundWorker執行中的工作
+        End If
+        Try
+            If varServerIP = "" Then
+                Exit Function
+            End If
+            ServerIP = varServerIP
+            If varTimeout <= 0 Then
+                varTimeout = 1.5
+            End If
+            k = Int(varTimeout * 10)
+            bConnect = False
+            BgWorker3.WorkerSupportsCancellation = True
+            BgWorker3.RunWorkerAsync()
+            For g = 1 To k '1.2s
+                Threading.Thread.Sleep(100)
+                If bConnect = True Then
+                    ConnectTest3 = True
+                    Exit Function
+                End If
+            Next
+            ConnectTest3 = False
+            BgWorker3.CancelAsync()
+        Catch ex As Exception
+            MsgBox(ex.Message)
+        End Try
+    End Function
+    '--异步动作
+    Private Sub BgWorker3_DoWork(ByVal sender As System.Object, ByVal e As System.ComponentModel.DoWorkEventArgs)
+        Call ConnectMSSQLServer()
+    End Sub
+    '--连接数据库
+    Private Function ConnectMSSQLServer() As Boolean
+        Dim sqlConTest As SqlClient.SqlConnection ' 连接   
+        sqlConTest = New SqlClient.SqlConnection With {
+            .ConnectionString = "Data Source=" + ServerIP + ";Initial Catalog=HX-GPS-ERP-SYS;Persist Security Info=True;User ID=b70340;Password=Lee0911274990;Max pool size = 200;Connection Timeout=0"
+        }
+        Try
+            sqlConTest.Open()
+            sqlConTest.Close()
+        Catch ex As Exception
+        Finally
+            bConnect = True
+        End Try
+    End Function
+#End Region
+End Module

Calculator-Backend-SYS/app.manifest

@@ -0,0 +1,79 @@
+<?xml version="1.0" encoding="utf-8"?>
+<assembly manifestVersion="1.0" xmlns="urn:schemas-microsoft-com:asm.v1">
+  <assemblyIdentity version="1.0.0.0" name="MyApplication.app"/>
+  <trustInfo xmlns="urn:schemas-microsoft-com:asm.v2">
+    <security>
+      <requestedPrivileges xmlns="urn:schemas-microsoft-com:asm.v3">
+        <!-- UAC 資訊清單選項
+             如果要變更 Windows 使用者帳戶控制層級，請將 
+             requestedExecutionLevel 節點以下列其中之一取代。
+
+        <requestedExecutionLevel  level="asInvoker" uiAccess="false" />
+        <requestedExecutionLevel  level="requireAdministrator" uiAccess="false" />
+        <requestedExecutionLevel  level="highestAvailable" uiAccess="false" />
+
+            指定 requestedExecutionLevel 項目會停用檔案及登錄虛擬化。
+            如果您的應用程式需要針對回溯相容性進行這項虛擬化，請移除這個
+            項目。
+        -->
+        <requestedExecutionLevel level="highestAvailable" uiAccess="false" />
+      </requestedPrivileges>
+    </security>
+  </trustInfo>
+
+  <compatibility xmlns="urn:schemas-microsoft-com:compatibility.v1">
+    <application>
+      <!-- 此應用程式已通過測試，並設計要搭配使用的
+           應用程式版本清單。請取消註解適當元素，
+           Windows 就會自動選取最相容的環境。 -->
+
+      <!-- Windows Vista -->
+      <!--<supportedOS Id="{e2011457-1546-43c5-a5fe-008deee3d3f0}" />-->
+
+      <!-- Windows 7 -->
+      <!--<supportedOS Id="{35138b9a-5d96-4fbd-8e2d-a2440225f93a}" />-->
+
+      <!-- Windows 8 -->
+      <!--<supportedOS Id="{4a2f28e3-53b9-4441-ba9c-d69d4a4a6e38}" />-->
+
+      <!-- Windows 8.1 -->
+      <!--<supportedOS Id="{1f676c76-80e1-4239-95bb-83d0f6d0da78}" />-->
+
+      <!-- Windows 10 -->
+      <!--<supportedOS Id="{8e0f7a12-bfb3-4fe8-b9a5-48fd50a15a9a}" />-->
+
+    </application>
+  </compatibility>
+
+  <!-- 表示應用程式為 DPI 感知，Windows 不會在 DPI 變高時自動
+       縮放。Windows Presentation Foundation (WPF) 應用程式會自動感知 DPI，因此不需要
+       加入。以 .NET Framework 4.6 為目標的 Windows Form 應用程式若加入這項設定，也
+       應該在其 app.config 中將 'EnableWindowsFormsHighDpiAutoResizing' 設定為 'true'。
+       
+       將應用程式設定為感知長路徑。請參閱 https://docs.microsoft.com/windows/win32/fileio/maximum-file-path-limitation-->
+  <!--
+  <application xmlns="urn:schemas-microsoft-com:asm.v3">
+    <windowsSettings>
+      <dpiAware xmlns="http://schemas.microsoft.com/SMI/2005/WindowsSettings">true</dpiAware>
+      <longPathAware xmlns="http://schemas.microsoft.com/SMI/2016/WindowsSettings">true</longPathAware>
+    </windowsSettings>
+  </application>
+  -->
+
+  <!-- 啟用 Windows 通用控制項和對話方塊的佈景主題 (Windows XP 以後版本) -->
+  <!--
+  <dependency>
+    <dependentAssembly>
+      <assemblyIdentity
+          type="win32"
+          name="Microsoft.Windows.Common-Controls"
+          version="6.0.0.0"
+          processorArchitecture="*"
+          publicKeyToken="6595b64144ccf1df"
+          language="*"
+        />
+    </dependentAssembly>
+  </dependency>
+  -->
+
+</assembly>

Calculator-Backend-SYS/bin/Debug/Calculator-Backend-SYS.exe.config

@@ -0,0 +1,6 @@
+<?xml version="1.0" encoding="utf-8" ?>
+<configuration>
+    <startup>
+        <supportedRuntime version="v4.0" sku=".NETFramework,Version=v4.8" />
+    </startup>
+</configuration>

Calculator-Backend-SYS/bin/Debug/Calculator-Backend-SYS.xml

@@ -0,0 +1,80 @@
+<?xml version="1.0"?>
+<doc>
+<assembly>
+<name>
+Calculator-Backend-SYS
+</name>
+</assembly>
+<members>
+<member name="T:Calculator_Backend_SYS.My.Resources.Resources">
+<summary>
+  用於查詢當地語系化字串等的強類型資源類別。
+</summary>
+</member>
+<member name="P:Calculator_Backend_SYS.My.Resources.Resources.ResourceManager">
+<summary>
+  傳回這個類別使用的快取的 ResourceManager 執行個體。
+</summary>
+</member>
+<member name="P:Calculator_Backend_SYS.My.Resources.Resources.Culture">
+<summary>
+  覆寫目前執行緒的 CurrentUICulture 屬性，對象是所有
+  使用這個強類型資源類別的資源查閱。
+</summary>
+</member>
+<member name="P:Calculator_Backend_SYS.My.Resources.Resources.calc1">
+<summary>
+  查詢類型 System.Drawing.Bitmap 的當地語系化資源。
+</summary>
+</member>
+<member name="P:Calculator_Backend_SYS.My.Resources.Resources.Close">
+<summary>
+  查詢類型 System.Drawing.Bitmap 的當地語系化資源。
+</summary>
+</member>
+<member name="P:Calculator_Backend_SYS.My.Resources.Resources.NULL1">
+<summary>
+  查詢類型 System.Drawing.Bitmap 的當地語系化資源。
+</summary>
+</member>
+<member name="P:Calculator_Backend_SYS.My.Resources.Resources.print">
+<summary>
+  查詢類型 System.Drawing.Bitmap 的當地語系化資源。
+</summary>
+</member>
+<member name="P:Calculator_Backend_SYS.My.Resources.Resources.question_mark">
+<summary>
+  查詢類型 System.Drawing.Bitmap 的當地語系化資源。
+</summary>
+</member>
+<member name="P:Calculator_Backend_SYS.My.Resources.Resources.SAVER">
+<summary>
+  查詢類型 System.Drawing.Bitmap 的當地語系化資源。
+</summary>
+</member>
+<member name="P:Calculator_Backend_SYS.My.Resources.Resources.system">
+<summary>
+  查詢類型 System.Drawing.Bitmap 的當地語系化資源。
+</summary>
+</member>
+<member name="P:Calculator_Backend_SYS.My.Resources.Resources.ZOOM01">
+<summary>
+  查詢類型 System.Drawing.Bitmap 的當地語系化資源。
+</summary>
+</member>
+<member name="P:Calculator_Backend_SYS.My.Resources.Resources.下載">
+<summary>
+  查詢類型 System.Drawing.Bitmap 的當地語系化資源。
+</summary>
+</member>
+<member name="M:Calculator_Backend_SYS.SQL_連線狀態模組3.ConnectTest3(System.String,System.Decimal)">
+ <summary>
+ 测试连接：True-连接成功，False-连接失败
+ 参数[必选]：服务器IP
+ 参数[可选]：等待超时时间（秒）,默认为1.2秒
+ </summary>
+ <returns></returns>
+ <remarks></remarks>
+</member>
+</members>
+</doc>

Calculator-Backend-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")>

Calculator-Backend-SYS/obj/Debug/Calculator-Backend-SYS.vbproj.CoreCompileInputs.cache

@@ -0,0 +1 @@
+d144a86b3ad243fb58574b38bbf8a20105a0dbe3

Calculator-Backend-SYS/obj/Debug/Calculator-Backend-SYS.vbproj.FileListAbsolute.txt

@@ -0,0 +1,17 @@
+D:\工巧明\HX-PGS\Calculator-Backend-SYS\Calculator-Backend-SYS\bin\Debug\Calculator-Backend-SYS.exe.config
+D:\工巧明\HX-PGS\Calculator-Backend-SYS\Calculator-Backend-SYS\bin\Debug\Calculator-Backend-SYS.exe
+D:\工巧明\HX-PGS\Calculator-Backend-SYS\Calculator-Backend-SYS\bin\Debug\Calculator-Backend-SYS.pdb
+D:\工巧明\HX-PGS\Calculator-Backend-SYS\Calculator-Backend-SYS\bin\Debug\Calculator-Backend-SYS.xml
+D:\工巧明\HX-PGS\Calculator-Backend-SYS\Calculator-Backend-SYS\obj\Debug\Calculator-Backend-SYS.vbproj.AssemblyReference.cache
+D:\工巧明\HX-PGS\Calculator-Backend-SYS\Calculator-Backend-SYS\obj\Debug\Calculator-Backend-SYS.vbproj.SuggestedBindingRedirects.cache
+D:\工巧明\HX-PGS\Calculator-Backend-SYS\Calculator-Backend-SYS\obj\Debug\Calculator_Backend_SYS.Calculator_Backend_SYS.resources
+D:\工巧明\HX-PGS\Calculator-Backend-SYS\Calculator-Backend-SYS\obj\Debug\Calculator_Backend_SYS.Resources.resources
+D:\工巧明\HX-PGS\Calculator-Backend-SYS\Calculator-Backend-SYS\obj\Debug\Calculator-Backend-SYS.vbproj.GenerateResource.cache
+D:\工巧明\HX-PGS\Calculator-Backend-SYS\Calculator-Backend-SYS\obj\Debug\Calculator-Backend-SYS.vbproj.CoreCompileInputs.cache
+D:\工巧明\HX-PGS\Calculator-Backend-SYS\Calculator-Backend-SYS\obj\Debug\Calculator-Backend-SYS.exe
+D:\工巧明\HX-PGS\Calculator-Backend-SYS\Calculator-Backend-SYS\obj\Debug\Calculator-Backend-SYS.xml
+D:\工巧明\HX-PGS\Calculator-Backend-SYS\Calculator-Backend-SYS\obj\Debug\Calculator-Backend-SYS.pdb
+D:\工巧明\HX-PGS\Calculator-Backend-SYS\Calculator-Backend-SYS\obj\Debug\Calculator_Backend_SYS.下拉清單_1.resources
+D:\工巧明\HX-PGS\Calculator-Backend-SYS\Calculator-Backend-SYS\obj\Debug\Calculator_Backend_SYS.下拉清單_2.resources
+D:\工巧明\HX-PGS\Calculator-Backend-SYS\Calculator-Backend-SYS\obj\Debug\Calculator_Backend_SYS.人員薪資_實際.resources
+D:\工巧明\HX-PGS\Calculator-Backend-SYS\Calculator-Backend-SYS\obj\Debug\Calculator_Backend_SYS.人員薪資_沖帳.resources

Calculator-Backend-SYS/obj/Debug/Calculator-Backend-SYS.xml

@@ -0,0 +1,80 @@
+<?xml version="1.0"?>
+<doc>
+<assembly>
+<name>
+Calculator-Backend-SYS
+</name>
+</assembly>
+<members>
+<member name="T:Calculator_Backend_SYS.My.Resources.Resources">
+<summary>
+  用於查詢當地語系化字串等的強類型資源類別。
+</summary>
+</member>
+<member name="P:Calculator_Backend_SYS.My.Resources.Resources.ResourceManager">
+<summary>
+  傳回這個類別使用的快取的 ResourceManager 執行個體。
+</summary>
+</member>
+<member name="P:Calculator_Backend_SYS.My.Resources.Resources.Culture">
+<summary>
+  覆寫目前執行緒的 CurrentUICulture 屬性，對象是所有
+  使用這個強類型資源類別的資源查閱。
+</summary>
+</member>
+<member name="P:Calculator_Backend_SYS.My.Resources.Resources.calc1">
+<summary>
+  查詢類型 System.Drawing.Bitmap 的當地語系化資源。
+</summary>
+</member>
+<member name="P:Calculator_Backend_SYS.My.Resources.Resources.Close">
+<summary>
+  查詢類型 System.Drawing.Bitmap 的當地語系化資源。
+</summary>
+</member>
+<member name="P:Calculator_Backend_SYS.My.Resources.Resources.NULL1">
+<summary>
+  查詢類型 System.Drawing.Bitmap 的當地語系化資源。
+</summary>
+</member>
+<member name="P:Calculator_Backend_SYS.My.Resources.Resources.print">
+<summary>
+  查詢類型 System.Drawing.Bitmap 的當地語系化資源。
+</summary>
+</member>
+<member name="P:Calculator_Backend_SYS.My.Resources.Resources.question_mark">
+<summary>
+  查詢類型 System.Drawing.Bitmap 的當地語系化資源。
+</summary>
+</member>
+<member name="P:Calculator_Backend_SYS.My.Resources.Resources.SAVER">
+<summary>
+  查詢類型 System.Drawing.Bitmap 的當地語系化資源。
+</summary>
+</member>
+<member name="P:Calculator_Backend_SYS.My.Resources.Resources.system">
+<summary>
+  查詢類型 System.Drawing.Bitmap 的當地語系化資源。
+</summary>
+</member>
+<member name="P:Calculator_Backend_SYS.My.Resources.Resources.ZOOM01">
+<summary>
+  查詢類型 System.Drawing.Bitmap 的當地語系化資源。
+</summary>
+</member>
+<member name="P:Calculator_Backend_SYS.My.Resources.Resources.下載">
+<summary>
+  查詢類型 System.Drawing.Bitmap 的當地語系化資源。
+</summary>
+</member>
+<member name="M:Calculator_Backend_SYS.SQL_連線狀態模組3.ConnectTest3(System.String,System.Decimal)">
+ <summary>
+ 测试连接：True-连接成功，False-连接失败
+ 参数[必选]：服务器IP
+ 参数[可选]：等待超时时间（秒）,默认为1.2秒
+ </summary>
+ <returns></returns>
+ <remarks></remarks>
+</member>
+</members>
+</doc>

Calculator-Backend-SYS/下拉清單_1.Designer.vb

@@ -0,0 +1,176 @@
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
+Partial Class 下拉清單_1
+    Inherits System.Windows.Forms.Form
+
+    'Form 覆寫 Dispose 以清除元件清單。
+    <System.Diagnostics.DebuggerNonUserCode()> _
+    Protected Overrides Sub Dispose(ByVal disposing As Boolean)
+        Try
+            If disposing AndAlso components IsNot Nothing Then
+                components.Dispose()
+            End If
+        Finally
+            MyBase.Dispose(disposing)
+        End Try
+    End Sub
+
+    '為 Windows Form 設計工具的必要項
+    Private components As System.ComponentModel.IContainer
+
+    '注意: 以下為 Windows Form 設計工具所需的程序
+    '可以使用 Windows Form 設計工具進行修改。
+    '請勿使用程式碼編輯器進行修改。
+    <System.Diagnostics.DebuggerStepThrough()> _
+    Private Sub InitializeComponent()
+        Me.下一頁_bt = New System.Windows.Forms.Button()
+        Me.ListBox4 = New System.Windows.Forms.ListBox()
+        Me.ListBox3 = New System.Windows.Forms.ListBox()
+        Me.ListBox2 = New System.Windows.Forms.ListBox()
+        Me.ListBox1 = New System.Windows.Forms.ListBox()
+        Me.上一頁_bt = New System.Windows.Forms.Button()
+        Me.Panel1 = New System.Windows.Forms.Panel()
+        Me.Cancel_bt = New System.Windows.Forms.Button()
+        Me.主題_lb = New System.Windows.Forms.Label()
+        Me.PnlTitleBar = New System.Windows.Forms.Panel()
+        Me.Panel1.SuspendLayout()
+        Me.SuspendLayout()
+        '
+        '下一頁_bt
+        '
+        Me.下一頁_bt.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
+        Me.下一頁_bt.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
+        Me.下一頁_bt.Location = New System.Drawing.Point(630, 408)
+        Me.下一頁_bt.Name = "下一頁_bt"
+        Me.下一頁_bt.Size = New System.Drawing.Size(115, 25)
+        Me.下一頁_bt.TabIndex = 1530
+        Me.下一頁_bt.Text = "Next"
+        Me.下一頁_bt.UseVisualStyleBackColor = True
+        '
+        'ListBox4
+        '
+        Me.ListBox4.FormattingEnabled = True
+        Me.ListBox4.ItemHeight = 16
+        Me.ListBox4.Location = New System.Drawing.Point(559, 3)
+        Me.ListBox4.Name = "ListBox4"
+        Me.ListBox4.Size = New System.Drawing.Size(186, 404)
+        Me.ListBox4.TabIndex = 1528
+        '
+        'ListBox3
+        '
+        Me.ListBox3.FormattingEnabled = True
+        Me.ListBox3.ItemHeight = 16
+        Me.ListBox3.Location = New System.Drawing.Point(374, 3)
+        Me.ListBox3.Name = "ListBox3"
+        Me.ListBox3.Size = New System.Drawing.Size(186, 404)
+        Me.ListBox3.TabIndex = 1527
+        '
+        'ListBox2
+        '
+        Me.ListBox2.FormattingEnabled = True
+        Me.ListBox2.ItemHeight = 16
+        Me.ListBox2.Location = New System.Drawing.Point(189, 3)
+        Me.ListBox2.Name = "ListBox2"
+        Me.ListBox2.Size = New System.Drawing.Size(186, 404)
+        Me.ListBox2.TabIndex = 1526
+        '
+        'ListBox1
+        '
+        Me.ListBox1.FormattingEnabled = True
+        Me.ListBox1.ItemHeight = 16
+        Me.ListBox1.Location = New System.Drawing.Point(4, 3)
+        Me.ListBox1.Name = "ListBox1"
+        Me.ListBox1.Size = New System.Drawing.Size(186, 404)
+        Me.ListBox1.TabIndex = 1525
+        '
+        '上一頁_bt
+        '
+        Me.上一頁_bt.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch
+        Me.上一頁_bt.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
+        Me.上一頁_bt.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
+        Me.上一頁_bt.Location = New System.Drawing.Point(4, 408)
+        Me.上一頁_bt.Name = "上一頁_bt"
+        Me.上一頁_bt.Size = New System.Drawing.Size(115, 25)
+        Me.上一頁_bt.TabIndex = 1529
+        Me.上一頁_bt.Text = "Previous"
+        Me.上一頁_bt.UseVisualStyleBackColor = True
+        '
+        'Panel1
+        '
+        Me.Panel1.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch
+        Me.Panel1.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
+        Me.Panel1.Controls.Add(Me.下一頁_bt)
+        Me.Panel1.Controls.Add(Me.ListBox1)
+        Me.Panel1.Controls.Add(Me.上一頁_bt)
+        Me.Panel1.Controls.Add(Me.ListBox2)
+        Me.Panel1.Controls.Add(Me.ListBox4)
+        Me.Panel1.Controls.Add(Me.ListBox3)
+        Me.Panel1.Location = New System.Drawing.Point(5, 34)
+        Me.Panel1.Name = "Panel1"
+        Me.Panel1.Size = New System.Drawing.Size(751, 439)
+        Me.Panel1.TabIndex = 1531
+        '
+        'Cancel_bt
+        '
+        Me.Cancel_bt.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.Cancel_bt.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(128, Byte), Integer), CType(CType(128, Byte), Integer))
+        Me.Cancel_bt.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        Me.Cancel_bt.ForeColor = System.Drawing.Color.Black
+        Me.Cancel_bt.Location = New System.Drawing.Point(730, 4)
+        Me.Cancel_bt.Name = "Cancel_bt"
+        Me.Cancel_bt.Size = New System.Drawing.Size(26, 26)
+        Me.Cancel_bt.TabIndex = 1822
+        Me.Cancel_bt.Text = "X"
+        Me.Cancel_bt.UseVisualStyleBackColor = False
+        '
+        '主題_lb
+        '
+        Me.主題_lb.AutoSize = True
+        Me.主題_lb.BackColor = System.Drawing.Color.Transparent
+        Me.主題_lb.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        Me.主題_lb.Location = New System.Drawing.Point(12, 9)
+        Me.主題_lb.Name = "主題_lb"
+        Me.主題_lb.Size = New System.Drawing.Size(45, 16)
+        Me.主題_lb.TabIndex = 1821
+        Me.主題_lb.Text = "Label1"
+        '
+        'PnlTitleBar
+        '
+        Me.PnlTitleBar.BackColor = System.Drawing.Color.Transparent
+        Me.PnlTitleBar.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
+        Me.PnlTitleBar.Location = New System.Drawing.Point(0, 0)
+        Me.PnlTitleBar.Name = "PnlTitleBar"
+        Me.PnlTitleBar.Size = New System.Drawing.Size(759, 477)
+        Me.PnlTitleBar.TabIndex = 1823
+        '
+        '下拉清單_1
+        '
+        Me.AutoScaleDimensions = New System.Drawing.SizeF(7.0!, 16.0!)
+        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
+        Me.ClientSize = New System.Drawing.Size(759, 477)
+        Me.Controls.Add(Me.Cancel_bt)
+        Me.Controls.Add(Me.主題_lb)
+        Me.Controls.Add(Me.Panel1)
+        Me.Controls.Add(Me.PnlTitleBar)
+        Me.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.None
+        Me.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
+        Me.Name = "下拉清單_1"
+        Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
+        Me.Text = "SELECT"
+        Me.Panel1.ResumeLayout(False)
+        Me.ResumeLayout(False)
+        Me.PerformLayout()
+
+    End Sub
+
+    Friend WithEvents 下一頁_bt As Button
+    Friend WithEvents 上一頁_bt As Button
+    Friend WithEvents ListBox4 As ListBox
+    Friend WithEvents ListBox3 As ListBox
+    Friend WithEvents ListBox2 As ListBox
+    Friend WithEvents ListBox1 As ListBox
+    Friend WithEvents Panel1 As Panel
+    Friend WithEvents Cancel_bt As Button
+    Friend WithEvents 主題_lb As Label
+    Friend WithEvents PnlTitleBar As Panel
+End Class

Calculator-Backend-SYS/下拉清單_1.resx

@@ -0,0 +1,120 @@
+<?xml version="1.0" encoding="utf-8"?>
+<root>
+  <!-- 
+    Microsoft ResX Schema 
+    
+    Version 2.0
+    
+    The primary goals of this format is to allow a simple XML format 
+    that is mostly human readable. The generation and parsing of the 
+    various data types are done through the TypeConverter classes 
+    associated with the data types.
+    
+    Example:
+    
+    ... ado.net/XML headers & schema ...
+    <resheader name="resmimetype">text/microsoft-resx</resheader>
+    <resheader name="version">2.0</resheader>
+    <resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
+    <resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
+    <data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
+    <data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
+    <data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
+        <value>[base64 mime encoded serialized .NET Framework object]</value>
+    </data>
+    <data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+        <value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
+        <comment>This is a comment</comment>
+    </data>
+                
+    There are any number of "resheader" rows that contain simple 
+    name/value pairs.
+    
+    Each data row contains a name, and value. The row also contains a 
+    type or mimetype. Type corresponds to a .NET class that support 
+    text/value conversion through the TypeConverter architecture. 
+    Classes that don't support this are serialized and stored with the 
+    mimetype set.
+    
+    The mimetype is used for serialized objects, and tells the 
+    ResXResourceReader how to depersist the object. This is currently not 
+    extensible. For a given mimetype the value must be set accordingly:
+    
+    Note - application/x-microsoft.net.object.binary.base64 is the format 
+    that the ResXResourceWriter will generate, however the reader can 
+    read any of the formats listed below.
+    
+    mimetype: application/x-microsoft.net.object.binary.base64
+    value   : The object must be serialized with 
+            : System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
+            : and then encoded with base64 encoding.
+    
+    mimetype: application/x-microsoft.net.object.soap.base64
+    value   : The object must be serialized with 
+            : System.Runtime.Serialization.Formatters.Soap.SoapFormatter
+            : and then encoded with base64 encoding.
+
+    mimetype: application/x-microsoft.net.object.bytearray.base64
+    value   : The object must be serialized into a byte array 
+            : using a System.ComponentModel.TypeConverter
+            : and then encoded with base64 encoding.
+    -->
+  <xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
+    <xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
+    <xsd:element name="root" msdata:IsDataSet="true">
+      <xsd:complexType>
+        <xsd:choice maxOccurs="unbounded">
+          <xsd:element name="metadata">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" />
+              </xsd:sequence>
+              <xsd:attribute name="name" use="required" type="xsd:string" />
+              <xsd:attribute name="type" type="xsd:string" />
+              <xsd:attribute name="mimetype" type="xsd:string" />
+              <xsd:attribute ref="xml:space" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="assembly">
+            <xsd:complexType>
+              <xsd:attribute name="alias" type="xsd:string" />
+              <xsd:attribute name="name" type="xsd:string" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="data">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+                <xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
+              </xsd:sequence>
+              <xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
+              <xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
+              <xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
+              <xsd:attribute ref="xml:space" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="resheader">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+              </xsd:sequence>
+              <xsd:attribute name="name" type="xsd:string" use="required" />
+            </xsd:complexType>
+          </xsd:element>
+        </xsd:choice>
+      </xsd:complexType>
+    </xsd:element>
+  </xsd:schema>
+  <resheader name="resmimetype">
+    <value>text/microsoft-resx</value>
+  </resheader>
+  <resheader name="version">
+    <value>2.0</value>
+  </resheader>
+  <resheader name="reader">
+    <value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+  </resheader>
+  <resheader name="writer">
+    <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+  </resheader>
+</root>

Calculator-Backend-SYS/下拉清單_1.vb

@@ -0,0 +1,108 @@
+Public Class 下拉清單_1
+    Dim 頁數, 總頁數, F1, F2, F3, F4, F5, F6, F7, F8 As Integer
+    Dim 有選擇 As Boolean
+    Dim EER As String
+    Private Sub PnlTitleBar_Paint(sender As Object, e As PaintEventArgs) Handles PnlTitleBar.Paint
+    End Sub
+    Private Sub 下拉清單_1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
+        '--目前設定PPBB最長3000格------
+    End Sub
+    Private Sub 下拉清單_1_Closed(sender As Object, e As EventArgs) Handles MyBase.Closed
+        If 有選擇 = False Then : PPAA = "" : End If
+    End Sub
+    Private Sub 下拉清單_1_Shown(sender As Object, e As EventArgs) Handles MyBase.Shown
+        If 系統語言 = "繁體中文" Then : 主題_lb.Text = "選擇清單" : EER = "選取的位置沒有資料!!"
+        ElseIf 系統語言 = "English" Then : 主題_lb.Text = "Pick List" : EER = "No data available at selected location!!"
+        ElseIf 系統語言 = "Indonesian" Then : 主題_lb.Text = "Daftar Pilih" : EER = "Tidak ada data yang tersedia di lokasi yang dipilih!!" : End If
+
+        有選擇 = False
+        總頁數 = NN1 / 99 + 1 : 頁數 = 1 : F1 = 0 : F2 = 24 : F3 = 25 : F4 = 49 : F5 = 50 : F6 = 74 : F7 = 75 : F8 = 99
+        If NN1 < 99 Then : 上一頁_bt.Enabled = False : 下一頁_bt.Enabled = False : Else : 上一頁_bt.Enabled = False : 下一頁_bt.Enabled = True : End If
+
+        ListBox1.Items.Clear() : ListBox2.Items.Clear() : ListBox3.Items.Clear() : ListBox4.Items.Clear()
+        If NN1 <= 24 Then
+            For I As Integer = F1 To NN1 : ListBox1.Items.Add(PPBB(I)) : Next
+        ElseIf NN1 > 24 And NN1 <= 49 Then
+            For I As Integer = F1 To F2 : ListBox1.Items.Add(PPBB(I)) : Next : For I As Integer = F3 To NN1 : ListBox2.Items.Add(PPBB(I)) : Next
+        ElseIf NN1 > 49 And NN1 <= 74 Then
+            For I As Integer = F1 To F2 : ListBox1.Items.Add(PPBB(I)) : Next : For I As Integer = F3 To F4 : ListBox2.Items.Add(PPBB(I)) : Next
+            For I As Integer = F5 To NN1 : ListBox3.Items.Add(PPBB(I)) : Next
+        ElseIf NN1 > 74 Then
+            For I As Integer = F1 To F2 : ListBox1.Items.Add(PPBB(I)) : Next : For I As Integer = F3 To F4 : ListBox2.Items.Add(PPBB(I)) : Next
+            For I As Integer = F5 To F6 : ListBox3.Items.Add(PPBB(I)) : Next : For I As Integer = F7 To F8 : ListBox4.Items.Add(PPBB(I)) : Next
+        End If
+    End Sub
+    Private Sub 上一頁_bt_Click(sender As Object, e As EventArgs) Handles 上一頁_bt.Click
+        頁數 -= 1 : ListBox1.Items.Clear() : ListBox2.Items.Clear() : ListBox3.Items.Clear() : ListBox4.Items.Clear()
+        F1 -= 100 : F2 -= 100 : F3 -= 100 : F4 -= 100 : F5 -= 100 : F6 -= 100 : F7 -= 100 : F8 -= 100
+        If 頁數 = 1 Then
+            上一頁_bt.Enabled = False : 下一頁_bt.Enabled = True
+        ElseIf 頁數 > 1 Then
+            上一頁_bt.Enabled = True : 下一頁_bt.Enabled = True
+        End If
+        For I As Integer = F1 To F2 : ListBox1.Items.Add(PPBB(I)) : Next : For I As Integer = F3 To F4 : ListBox2.Items.Add(PPBB(I)) : Next
+        For I As Integer = F5 To F6 : ListBox3.Items.Add(PPBB(I)) : Next : For I As Integer = F7 To F8 : ListBox4.Items.Add(PPBB(I)) : Next
+    End Sub
+    Private Sub 下一頁_bt_Click(sender As Object, e As EventArgs) Handles 下一頁_bt.Click
+        頁數 += 1 : ListBox1.Items.Clear() : ListBox2.Items.Clear() : ListBox3.Items.Clear() : ListBox4.Items.Clear()
+        F1 += 100 : F2 += 100 : F3 += 100 : F4 += 100 : F5 += 100 : F6 += 100 : F7 += 100 : F8 += 100
+        If 頁數 < 總頁數 Then
+            上一頁_bt.Enabled = True : 下一頁_bt.Enabled = True
+            For I As Integer = F1 To F2 : ListBox1.Items.Add(PPBB(I)) : Next : For I As Integer = F3 To F4 : ListBox2.Items.Add(PPBB(I)) : Next
+            For I As Integer = F5 To F6 : ListBox3.Items.Add(PPBB(I)) : Next : For I As Integer = F7 To F8 : ListBox4.Items.Add(PPBB(I)) : Next
+        ElseIf 頁數 = 總頁數 Then
+            上一頁_bt.Enabled = True : 下一頁_bt.Enabled = False
+            If NN1 <= F2 Then
+                For I As Integer = F1 To NN1 : ListBox1.Items.Add(PPBB(I)) : Next
+            ElseIf NN1 <= F4 Then
+                For I As Integer = F1 To F2 : ListBox1.Items.Add(PPBB(I)) : Next : For I As Integer = F3 To NN1 : ListBox2.Items.Add(PPBB(I)) : Next
+            ElseIf NN1 <= F6 Then
+                For I As Integer = F1 To F2 : ListBox1.Items.Add(PPBB(I)) : Next : For I As Integer = F3 To F4 : ListBox2.Items.Add(PPBB(I)) : Next
+                For I As Integer = F5 To NN1 : ListBox3.Items.Add(PPBB(I)) : Next
+            ElseIf NN1 <= F8 Then
+                For I As Integer = F1 To F2 : ListBox1.Items.Add(PPBB(I)) : Next : For I As Integer = F3 To F4 : ListBox2.Items.Add(PPBB(I)) : Next
+                For I As Integer = F5 To F6 : ListBox3.Items.Add(PPBB(I)) : Next : For I As Integer = F7 To NN1 : ListBox4.Items.Add(PPBB(I)) : Next
+            End If
+        End If
+    End Sub
+    Private Sub ListBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ListBox1.SelectedIndexChanged
+        If IsNothing(ListBox1.SelectedItem) = True Then : MsgBox(EER) : 有選擇 = False
+        Else : PPAA = ListBox1.SelectedItem.ToString() : 有選擇 = True : Me.Close() : End If
+    End Sub
+    Private Sub ListBox2_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ListBox2.SelectedIndexChanged
+        If IsNothing(ListBox2.SelectedItem) = True Then : MsgBox(EER) : 有選擇 = False
+        Else : PPAA = ListBox2.SelectedItem.ToString() : 有選擇 = True : Me.Close() : End If
+    End Sub
+    Private Sub ListBox3_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ListBox3.SelectedIndexChanged
+        If IsNothing(ListBox3.SelectedItem) = True Then : MsgBox(EER) : 有選擇 = False
+        Else : PPAA = ListBox3.SelectedItem.ToString() : 有選擇 = True : Me.Close() : End If
+    End Sub
+    Private Sub ListBox4_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ListBox4.SelectedIndexChanged
+        If IsNothing(ListBox4.SelectedItem) = True Then : MsgBox(EER) : 有選擇 = False
+        Else : PPAA = ListBox4.SelectedItem.ToString() : 有選擇 = True : Me.Close() : End If
+    End Sub
+    Private Sub Cancel_bt_Click(sender As Object, e As EventArgs) Handles Cancel_bt.Click
+        Me.Close()
+    End Sub
+    Dim nOldWndLeft, nOldWndTop, nClickX, nClickY As Integer
+    Private Sub PnlTitleBar_MouseDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PnlTitleBar.MouseDown
+        '紀錄滑鼠點選時的視窗位置與滑鼠點選位置
+        nOldWndLeft = Me.Left : nOldWndTop = Me.Top : nClickX = e.X : nClickY = e.Y
+    End Sub
+    Private Sub PnlTitleBar_MouseMove(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PnlTitleBar.MouseMove
+        If PnlTitleBar.Capture = True Then        '如果滑鼠按著拖曳
+            Me.Top = e.Y + nOldWndTop - nClickY : Me.Left = e.X + nOldWndLeft - nClickX   '設定新的視窗位置
+            nOldWndLeft = Me.Left : nOldWndTop = Me.Top   '更新紀錄的視窗位置
+        End If
+    End Sub
+    Private Sub 主題_lb_MouseDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles 主題_lb.MouseDown
+        '紀錄滑鼠點選時的視窗位置與滑鼠點選位置
+        nOldWndLeft = Me.Left : nOldWndTop = Me.Top : nClickX = e.X : nClickY = e.Y
+    End Sub
+    Private Sub 主題_lb_MouseMove(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles 主題_lb.MouseMove
+        If 主題_lb.Capture = True Then        '如果滑鼠按著拖曳
+            Me.Top = e.Y + nOldWndTop - nClickY : Me.Left = e.X + nOldWndLeft - nClickX   '設定新的視窗位置
+            nOldWndLeft = Me.Left : nOldWndTop = Me.Top   '更新紀錄的視窗位置
+        End If
+    End Sub
+End Class

Calculator-Backend-SYS/下拉清單_2.Designer.vb

@@ -0,0 +1,77 @@
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
+Partial Class 下拉清單_2
+    Inherits System.Windows.Forms.Form
+
+    'Form 覆寫 Dispose 以清除元件清單。
+    <System.Diagnostics.DebuggerNonUserCode()>
+    Protected Overrides Sub Dispose(ByVal disposing As Boolean)
+        Try
+            If disposing AndAlso components IsNot Nothing Then
+                components.Dispose()
+            End If
+        Finally
+            MyBase.Dispose(disposing)
+        End Try
+    End Sub
+
+    '為 Windows Form 設計工具的必要項
+    Private components As System.ComponentModel.IContainer
+
+    '注意: 以下為 Windows Form 設計工具所需的程序
+    '可以使用 Windows Form 設計工具進行修改。
+    '請勿使用程式碼編輯器進行修改。
+    <System.Diagnostics.DebuggerStepThrough()>
+    Private Sub InitializeComponent()
+        Me.Panel1 = New System.Windows.Forms.Panel()
+        Me.ListBox1 = New System.Windows.Forms.ListBox()
+        Me.Panel1.SuspendLayout()
+        Me.SuspendLayout()
+        '
+        'Panel1
+        '
+        Me.Panel1.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
+            Or System.Windows.Forms.AnchorStyles.Left) _
+            Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.Panel1.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch
+        Me.Panel1.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
+        Me.Panel1.Controls.Add(Me.ListBox1)
+        Me.Panel1.Location = New System.Drawing.Point(-6, 0)
+        Me.Panel1.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5)
+        Me.Panel1.Name = "Panel1"
+        Me.Panel1.Size = New System.Drawing.Size(328, 469)
+        Me.Panel1.TabIndex = 1532
+        '
+        'ListBox1
+        '
+        Me.ListBox1.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
+            Or System.Windows.Forms.AnchorStyles.Left) _
+            Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.ListBox1.FormattingEnabled = True
+        Me.ListBox1.ItemHeight = 19
+        Me.ListBox1.Location = New System.Drawing.Point(9, 3)
+        Me.ListBox1.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5)
+        Me.ListBox1.Name = "ListBox1"
+        Me.ListBox1.Size = New System.Drawing.Size(313, 460)
+        Me.ListBox1.TabIndex = 1525
+        '
+        '下拉清單_2
+        '
+        Me.AutoScaleDimensions = New System.Drawing.SizeF(9.0!, 19.0!)
+        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
+        Me.ClientSize = New System.Drawing.Size(322, 470)
+        Me.Controls.Add(Me.Panel1)
+        Me.Font = New System.Drawing.Font("微軟正黑體", 11.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        Me.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5)
+        Me.MaximizeBox = False
+        Me.MinimizeBox = False
+        Me.Name = "下拉清單_2"
+        Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
+        Me.Text = "下拉清單_2"
+        Me.Panel1.ResumeLayout(False)
+        Me.ResumeLayout(False)
+
+    End Sub
+
+    Friend WithEvents Panel1 As Panel
+    Friend WithEvents ListBox1 As ListBox
+End Class

Calculator-Backend-SYS/下拉清單_2.resx

@@ -0,0 +1,120 @@
+<?xml version="1.0" encoding="utf-8"?>
+<root>
+  <!-- 
+    Microsoft ResX Schema 
+    
+    Version 2.0
+    
+    The primary goals of this format is to allow a simple XML format 
+    that is mostly human readable. The generation and parsing of the 
+    various data types are done through the TypeConverter classes 
+    associated with the data types.
+    
+    Example:
+    
+    ... ado.net/XML headers & schema ...
+    <resheader name="resmimetype">text/microsoft-resx</resheader>
+    <resheader name="version">2.0</resheader>
+    <resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
+    <resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
+    <data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
+    <data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
+    <data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
+        <value>[base64 mime encoded serialized .NET Framework object]</value>
+    </data>
+    <data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+        <value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
+        <comment>This is a comment</comment>
+    </data>
+                
+    There are any number of "resheader" rows that contain simple 
+    name/value pairs.
+    
+    Each data row contains a name, and value. The row also contains a 
+    type or mimetype. Type corresponds to a .NET class that support 
+    text/value conversion through the TypeConverter architecture. 
+    Classes that don't support this are serialized and stored with the 
+    mimetype set.
+    
+    The mimetype is used for serialized objects, and tells the 
+    ResXResourceReader how to depersist the object. This is currently not 
+    extensible. For a given mimetype the value must be set accordingly:
+    
+    Note - application/x-microsoft.net.object.binary.base64 is the format 
+    that the ResXResourceWriter will generate, however the reader can 
+    read any of the formats listed below.
+    
+    mimetype: application/x-microsoft.net.object.binary.base64
+    value   : The object must be serialized with 
+            : System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
+            : and then encoded with base64 encoding.
+    
+    mimetype: application/x-microsoft.net.object.soap.base64
+    value   : The object must be serialized with 
+            : System.Runtime.Serialization.Formatters.Soap.SoapFormatter
+            : and then encoded with base64 encoding.
+
+    mimetype: application/x-microsoft.net.object.bytearray.base64
+    value   : The object must be serialized into a byte array 
+            : using a System.ComponentModel.TypeConverter
+            : and then encoded with base64 encoding.
+    -->
+  <xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
+    <xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
+    <xsd:element name="root" msdata:IsDataSet="true">
+      <xsd:complexType>
+        <xsd:choice maxOccurs="unbounded">
+          <xsd:element name="metadata">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" />
+              </xsd:sequence>
+              <xsd:attribute name="name" use="required" type="xsd:string" />
+              <xsd:attribute name="type" type="xsd:string" />
+              <xsd:attribute name="mimetype" type="xsd:string" />
+              <xsd:attribute ref="xml:space" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="assembly">
+            <xsd:complexType>
+              <xsd:attribute name="alias" type="xsd:string" />
+              <xsd:attribute name="name" type="xsd:string" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="data">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+                <xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
+              </xsd:sequence>
+              <xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
+              <xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
+              <xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
+              <xsd:attribute ref="xml:space" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="resheader">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+              </xsd:sequence>
+              <xsd:attribute name="name" type="xsd:string" use="required" />
+            </xsd:complexType>
+          </xsd:element>
+        </xsd:choice>
+      </xsd:complexType>
+    </xsd:element>
+  </xsd:schema>
+  <resheader name="resmimetype">
+    <value>text/microsoft-resx</value>
+  </resheader>
+  <resheader name="version">
+    <value>2.0</value>
+  </resheader>
+  <resheader name="reader">
+    <value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+  </resheader>
+  <resheader name="writer">
+    <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+  </resheader>
+</root>

Calculator-Backend-SYS/下拉清單_2.vb

@@ -0,0 +1,24 @@
+Public Class 下拉清單_2
+    Dim 頁數, 總頁數, F1, F2, F3, F4, F5, F6, F7, F8 As Integer
+    Dim 有選擇 As Boolean
+    Dim EER As String
+    Private Sub 下拉清單_2_Load(sender As Object, e As EventArgs) Handles MyBase.Load
+        '--目前設定PPBB最長3000格------
+    End Sub
+    Private Sub 下拉清單_1_Shown(sender As Object, e As EventArgs) Handles MyBase.Shown
+        If 系統語言 = "繁體中文" Then : Me.Text = "選擇清單" : EER = "選取的位置沒有資料!!"
+        ElseIf 系統語言 = "English" Then : Me.Text = "Pick List" : EER = "No data available at selected location!!"
+        ElseIf 系統語言 = "Indonesian" Then : Me.Text = "Daftar Pilih" : EER = "Tidak ada data yang tersedia di lokasi yang dipilih!!" : End If
+
+        有選擇 = False
+        ListBox1.Items.Clear()
+        If NN1 <= 24 Then : For I As Integer = F1 To NN1 : ListBox1.Items.Add(PPBB(I)) : Next : ElseIf NN1 > 24 Then : MsgBox("資料大於24筆，請告知系統管理員!!") : End If
+    End Sub
+    Private Sub 下拉清單_1_Closed(sender As Object, e As EventArgs) Handles MyBase.Closed
+        If 有選擇 = False Then : PPAA = "" : End If
+    End Sub
+    Private Sub ListBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ListBox1.SelectedIndexChanged
+        If IsNothing(ListBox1.SelectedItem) = True Then : MsgBox(EER) : 有選擇 = False
+        Else : PPAA = ListBox1.SelectedItem.ToString() : 有選擇 = True : Me.Close() : End If
+    End Sub
+End Class

Calculator-Backend-SYS/人員薪資/人員薪資_實際.Designer.vb

@@ -0,0 +1,933 @@
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
+Partial Class 人員薪資_實際
+    Inherits System.Windows.Forms.Form
+
+    'Form 覆寫 Dispose 以清除元件清單。
+    <System.Diagnostics.DebuggerNonUserCode()>
+    Protected Overrides Sub Dispose(ByVal disposing As Boolean)
+        Try
+            If disposing AndAlso components IsNot Nothing Then
+                components.Dispose()
+            End If
+        Finally
+            MyBase.Dispose(disposing)
+        End Try
+    End Sub
+
+    '為 Windows Form 設計工具的必要項
+    Private components As System.ComponentModel.IContainer
+
+    '注意: 以下為 Windows Form 設計工具所需的程序
+    '可以使用 Windows Form 設計工具進行修改。
+    '請勿使用程式碼編輯器進行修改。
+    <System.Diagnostics.DebuggerStepThrough()>
+    Private Sub InitializeComponent()
+        Dim DataGridViewCellStyle1 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle2 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle3 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle4 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle5 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Me.Label4 = New System.Windows.Forms.Label()
+        Me.月份2_cb = New System.Windows.Forms.ComboBox()
+        Me.Label5 = New System.Windows.Forms.Label()
+        Me.年份2_cb = New System.Windows.Forms.ComboBox()
+        Me.地區_cb = New System.Windows.Forms.ComboBox()
+        Me.級別_cb = New System.Windows.Forms.ComboBox()
+        Me.工人_ch = New System.Windows.Forms.CheckBox()
+        Me.清單1_dgv = New System.Windows.Forms.DataGridView()
+        Me.總清單_dgv = New System.Windows.Forms.DataGridView()
+        Me.部門_cb = New System.Windows.Forms.ComboBox()
+        Me.語轉扭_bt = New System.Windows.Forms.Button()
+        Me.群組輸入_ch = New System.Windows.Forms.CheckBox()
+        Me.群組選擇_ch = New System.Windows.Forms.CheckBox()
+        Me.Label2 = New System.Windows.Forms.Label()
+        Me.結束日期_dtp = New System.Windows.Forms.DateTimePicker()
+        Me.開始日期_dtp = New System.Windows.Forms.DateTimePicker()
+        Me.DA3_bt = New System.Windows.Forms.Button()
+        Me.DA2_bt = New System.Windows.Forms.Button()
+        Me.DA1_bt = New System.Windows.Forms.Button()
+        Me.Panel2 = New System.Windows.Forms.Panel()
+        Me.虛擬表_dgv = New System.Windows.Forms.DataGridView()
+        Me.休假天數_nud = New System.Windows.Forms.NumericUpDown()
+        Me.群組_cb = New System.Windows.Forms.ComboBox()
+        Me.Label10 = New System.Windows.Forms.Label()
+        Me.平均每天_nud = New System.Windows.Forms.NumericUpDown()
+        Me.休假比例_nud = New System.Windows.Forms.NumericUpDown()
+        Me.Label6 = New System.Windows.Forms.Label()
+        Me.Label9 = New System.Windows.Forms.Label()
+        Me.可沖天數_nud = New System.Windows.Forms.NumericUpDown()
+        Me.Label3 = New System.Windows.Forms.Label()
+        Me.星7_bt = New System.Windows.Forms.TextBox()
+        Me.星6_bt = New System.Windows.Forms.TextBox()
+        Me.星5_bt = New System.Windows.Forms.TextBox()
+        Me.星4_bt = New System.Windows.Forms.TextBox()
+        Me.星3_bt = New System.Windows.Forms.TextBox()
+        Me.星2_bt = New System.Windows.Forms.TextBox()
+        Me.星1_bt = New System.Windows.Forms.TextBox()
+        Me.薪資表_bt = New System.Windows.Forms.Button()
+        Me.考勤表_bt = New System.Windows.Forms.Button()
+        Me.群組1_cb = New System.Windows.Forms.ComboBox()
+        Me.視窗3_pl = New System.Windows.Forms.Panel()
+        Me.Panel4 = New System.Windows.Forms.Panel()
+        Me.沖帳金額_nud = New System.Windows.Forms.NumericUpDown()
+        Me.Label8 = New System.Windows.Forms.Label()
+        Me.加班_nud = New System.Windows.Forms.NumericUpDown()
+        Me.Label7 = New System.Windows.Forms.Label()
+        Me.總數_nud = New System.Windows.Forms.NumericUpDown()
+        Me.Label1 = New System.Windows.Forms.Label()
+        Me.Label11 = New System.Windows.Forms.Label()
+        Me.CanceL3_bt = New System.Windows.Forms.Button()
+        Me.合計_dgv = New System.Windows.Forms.DataGridView()
+        Me.重新讀取_bt = New System.Windows.Forms.Button()
+        Me.虛擬存檔_bt = New System.Windows.Forms.Button()
+        Me.清除_bt = New System.Windows.Forms.Button()
+        Me.考勤調整_bt = New System.Windows.Forms.Button()
+        Me.縮放2_bt = New System.Windows.Forms.Button()
+        Me.設定_bt = New System.Windows.Forms.Button()
+        Me.列印_bt = New System.Windows.Forms.Button()
+        Me.存檔_bt = New System.Windows.Forms.Button()
+        Me.系統說明_bt = New System.Windows.Forms.Button()
+        CType(Me.清單1_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.總清單_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
+        Me.Panel2.SuspendLayout()
+        CType(Me.虛擬表_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.休假天數_nud, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.平均每天_nud, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.休假比例_nud, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.可沖天數_nud, System.ComponentModel.ISupportInitialize).BeginInit()
+        Me.視窗3_pl.SuspendLayout()
+        Me.Panel4.SuspendLayout()
+        CType(Me.沖帳金額_nud, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.加班_nud, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.總數_nud, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.合計_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
+        Me.SuspendLayout()
+        '
+        'Label4
+        '
+        Me.Label4.AutoSize = True
+        Me.Label4.BackColor = System.Drawing.Color.Transparent
+        Me.Label4.Location = New System.Drawing.Point(107, 7)
+        Me.Label4.Name = "Label4"
+        Me.Label4.Size = New System.Drawing.Size(34, 16)
+        Me.Label4.TabIndex = 1931
+        Me.Label4.Text = "Mon"
+        '
+        '月份2_cb
+        '
+        Me.月份2_cb.DropDownStyle = System.Windows.Forms.ComboBoxStyle.Simple
+        Me.月份2_cb.FormattingEnabled = True
+        Me.月份2_cb.Items.AddRange(New Object() {"01", "02", "03", "04", "05", "06", "07", "08", "09", "10", "11", "12"})
+        Me.月份2_cb.Location = New System.Drawing.Point(141, 3)
+        Me.月份2_cb.Name = "月份2_cb"
+        Me.月份2_cb.Size = New System.Drawing.Size(46, 24)
+        Me.月份2_cb.TabIndex = 1933
+        '
+        'Label5
+        '
+        Me.Label5.AutoSize = True
+        Me.Label5.BackColor = System.Drawing.Color.Transparent
+        Me.Label5.Location = New System.Drawing.Point(12, 7)
+        Me.Label5.Name = "Label5"
+        Me.Label5.Size = New System.Drawing.Size(32, 16)
+        Me.Label5.TabIndex = 1930
+        Me.Label5.Text = "Year"
+        '
+        '年份2_cb
+        '
+        Me.年份2_cb.DropDownStyle = System.Windows.Forms.ComboBoxStyle.Simple
+        Me.年份2_cb.FormattingEnabled = True
+        Me.年份2_cb.Items.AddRange(New Object() {"2019", "2020", "2021", "2022", "2023", "2024", "2025", "2026", "2027", "2028", "2029", "2030"})
+        Me.年份2_cb.Location = New System.Drawing.Point(44, 3)
+        Me.年份2_cb.Name = "年份2_cb"
+        Me.年份2_cb.Size = New System.Drawing.Size(61, 24)
+        Me.年份2_cb.TabIndex = 1932
+        '
+        '地區_cb
+        '
+        Me.地區_cb.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
+        Me.地區_cb.FormattingEnabled = True
+        Me.地區_cb.Items.AddRange(New Object() {"", "kantor", "Lokasi konstruksi"})
+        Me.地區_cb.Location = New System.Drawing.Point(58, 29)
+        Me.地區_cb.Name = "地區_cb"
+        Me.地區_cb.Size = New System.Drawing.Size(129, 24)
+        Me.地區_cb.TabIndex = 1926
+        '
+        '級別_cb
+        '
+        Me.級別_cb.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
+        Me.級別_cb.FormattingEnabled = True
+        Me.級別_cb.Items.AddRange(New Object() {"01", "02", "03", "04", "05", "06", "07", "08", "09", "10", "11", "12"})
+        Me.級別_cb.Location = New System.Drawing.Point(7, 29)
+        Me.級別_cb.Name = "級別_cb"
+        Me.級別_cb.Size = New System.Drawing.Size(46, 24)
+        Me.級別_cb.TabIndex = 1925
+        '
+        '工人_ch
+        '
+        Me.工人_ch.AutoSize = True
+        Me.工人_ch.BackColor = System.Drawing.Color.Transparent
+        Me.工人_ch.Checked = True
+        Me.工人_ch.CheckState = System.Windows.Forms.CheckState.Checked
+        Me.工人_ch.Location = New System.Drawing.Point(53, 176)
+        Me.工人_ch.Name = "工人_ch"
+        Me.工人_ch.Size = New System.Drawing.Size(131, 20)
+        Me.工人_ch.TabIndex = 1924
+        Me.工人_ch.Text = "Pekerja Sementara"
+        Me.工人_ch.UseVisualStyleBackColor = False
+        '
+        '清單1_dgv
+        '
+        Me.清單1_dgv.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
+            Or System.Windows.Forms.AnchorStyles.Left) _
+            Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.清單1_dgv.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
+        Me.清單1_dgv.BackgroundColor = System.Drawing.Color.White
+        Me.清單1_dgv.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D
+        Me.清單1_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
+        Me.清單1_dgv.Location = New System.Drawing.Point(3, 35)
+        Me.清單1_dgv.Name = "清單1_dgv"
+        Me.清單1_dgv.RowHeadersWidth = 5
+        DataGridViewCellStyle1.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
+        Me.清單1_dgv.RowsDefaultCellStyle = DataGridViewCellStyle1
+        Me.清單1_dgv.RowTemplate.Height = 24
+        Me.清單1_dgv.Size = New System.Drawing.Size(1445, 637)
+        Me.清單1_dgv.TabIndex = 1386
+        '
+        '總清單_dgv
+        '
+        Me.總清單_dgv.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
+            Or System.Windows.Forms.AnchorStyles.Left) _
+            Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.總清單_dgv.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
+        Me.總清單_dgv.BackgroundColor = System.Drawing.Color.White
+        Me.總清單_dgv.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D
+        DataGridViewCellStyle2.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
+        DataGridViewCellStyle2.BackColor = System.Drawing.SystemColors.Control
+        DataGridViewCellStyle2.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        DataGridViewCellStyle2.ForeColor = System.Drawing.SystemColors.WindowText
+        DataGridViewCellStyle2.SelectionBackColor = System.Drawing.SystemColors.Highlight
+        DataGridViewCellStyle2.SelectionForeColor = System.Drawing.SystemColors.HighlightText
+        Me.總清單_dgv.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle2
+        Me.總清單_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
+        Me.總清單_dgv.Location = New System.Drawing.Point(3, 35)
+        Me.總清單_dgv.Name = "總清單_dgv"
+        Me.總清單_dgv.RowHeadersWidth = 5
+        DataGridViewCellStyle3.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
+        Me.總清單_dgv.RowsDefaultCellStyle = DataGridViewCellStyle3
+        Me.總清單_dgv.RowTemplate.Height = 24
+        Me.總清單_dgv.Size = New System.Drawing.Size(1445, 637)
+        Me.總清單_dgv.TabIndex = 1922
+        '
+        '部門_cb
+        '
+        Me.部門_cb.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
+        Me.部門_cb.FormattingEnabled = True
+        Me.部門_cb.Location = New System.Drawing.Point(30, 59)
+        Me.部門_cb.Name = "部門_cb"
+        Me.部門_cb.Size = New System.Drawing.Size(157, 24)
+        Me.部門_cb.TabIndex = 1921
+        '
+        '語轉扭_bt
+        '
+        Me.語轉扭_bt.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
+        Me.語轉扭_bt.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        Me.語轉扭_bt.ForeColor = System.Drawing.Color.Black
+        Me.語轉扭_bt.Location = New System.Drawing.Point(4, 59)
+        Me.語轉扭_bt.Name = "語轉扭_bt"
+        Me.語轉扭_bt.Size = New System.Drawing.Size(22, 22)
+        Me.語轉扭_bt.TabIndex = 1898
+        Me.語轉扭_bt.Text = "L"
+        Me.語轉扭_bt.UseVisualStyleBackColor = True
+        '
+        '群組輸入_ch
+        '
+        Me.群組輸入_ch.AutoSize = True
+        Me.群組輸入_ch.BackColor = System.Drawing.Color.Transparent
+        Me.群組輸入_ch.Location = New System.Drawing.Point(651, 8)
+        Me.群組輸入_ch.Name = "群組輸入_ch"
+        Me.群組輸入_ch.Size = New System.Drawing.Size(178, 20)
+        Me.群組輸入_ch.TabIndex = 1937
+        Me.群組輸入_ch.Text = "Group Data - Manual Input"
+        Me.群組輸入_ch.UseVisualStyleBackColor = False
+        '
+        '群組選擇_ch
+        '
+        Me.群組選擇_ch.AutoSize = True
+        Me.群組選擇_ch.BackColor = System.Drawing.Color.Transparent
+        Me.群組選擇_ch.Checked = True
+        Me.群組選擇_ch.CheckState = System.Windows.Forms.CheckState.Checked
+        Me.群組選擇_ch.Location = New System.Drawing.Point(828, 8)
+        Me.群組選擇_ch.Name = "群組選擇_ch"
+        Me.群組選擇_ch.Size = New System.Drawing.Size(158, 20)
+        Me.群組選擇_ch.TabIndex = 1938
+        Me.群組選擇_ch.Text = "Group Data - Select List"
+        Me.群組選擇_ch.UseVisualStyleBackColor = False
+        '
+        'Label2
+        '
+        Me.Label2.AutoSize = True
+        Me.Label2.Location = New System.Drawing.Point(92, 8)
+        Me.Label2.Name = "Label2"
+        Me.Label2.Size = New System.Drawing.Size(16, 16)
+        Me.Label2.TabIndex = 1942
+        Me.Label2.Text = "~"
+        '
+        '結束日期_dtp
+        '
+        Me.結束日期_dtp.Enabled = False
+        Me.結束日期_dtp.Format = System.Windows.Forms.DateTimePickerFormat.[Short]
+        Me.結束日期_dtp.Location = New System.Drawing.Point(106, 5)
+        Me.結束日期_dtp.Name = "結束日期_dtp"
+        Me.結束日期_dtp.Size = New System.Drawing.Size(89, 23)
+        Me.結束日期_dtp.TabIndex = 1940
+        '
+        '開始日期_dtp
+        '
+        Me.開始日期_dtp.Enabled = False
+        Me.開始日期_dtp.Format = System.Windows.Forms.DateTimePickerFormat.[Short]
+        Me.開始日期_dtp.Location = New System.Drawing.Point(6, 5)
+        Me.開始日期_dtp.Name = "開始日期_dtp"
+        Me.開始日期_dtp.Size = New System.Drawing.Size(86, 23)
+        Me.開始日期_dtp.TabIndex = 1939
+        '
+        'DA3_bt
+        '
+        Me.DA3_bt.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
+        Me.DA3_bt.Location = New System.Drawing.Point(398, 0)
+        Me.DA3_bt.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
+        Me.DA3_bt.Name = "DA3_bt"
+        Me.DA3_bt.Size = New System.Drawing.Size(105, 35)
+        Me.DA3_bt.TabIndex = 1945
+        Me.DA3_bt.Text = "Minggu depan"
+        Me.DA3_bt.UseVisualStyleBackColor = True
+        '
+        'DA2_bt
+        '
+        Me.DA2_bt.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
+        Me.DA2_bt.Location = New System.Drawing.Point(298, 0)
+        Me.DA2_bt.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
+        Me.DA2_bt.Name = "DA2_bt"
+        Me.DA2_bt.Size = New System.Drawing.Size(100, 35)
+        Me.DA2_bt.TabIndex = 1944
+        Me.DA2_bt.Text = "Minggu ini"
+        Me.DA2_bt.UseVisualStyleBackColor = True
+        '
+        'DA1_bt
+        '
+        Me.DA1_bt.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
+        Me.DA1_bt.Location = New System.Drawing.Point(198, 0)
+        Me.DA1_bt.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
+        Me.DA1_bt.Name = "DA1_bt"
+        Me.DA1_bt.Size = New System.Drawing.Size(100, 35)
+        Me.DA1_bt.TabIndex = 1943
+        Me.DA1_bt.Text = "Minggu lalu"
+        Me.DA1_bt.UseVisualStyleBackColor = True
+        '
+        'Panel2
+        '
+        Me.Panel2.Controls.Add(Me.虛擬表_dgv)
+        Me.Panel2.Controls.Add(Me.休假天數_nud)
+        Me.Panel2.Controls.Add(Me.群組_cb)
+        Me.Panel2.Controls.Add(Me.Label10)
+        Me.Panel2.Controls.Add(Me.平均每天_nud)
+        Me.Panel2.Controls.Add(Me.休假比例_nud)
+        Me.Panel2.Controls.Add(Me.Label6)
+        Me.Panel2.Controls.Add(Me.Label9)
+        Me.Panel2.Controls.Add(Me.可沖天數_nud)
+        Me.Panel2.Controls.Add(Me.Label3)
+        Me.Panel2.Controls.Add(Me.年份2_cb)
+        Me.Panel2.Controls.Add(Me.Label5)
+        Me.Panel2.Controls.Add(Me.月份2_cb)
+        Me.Panel2.Controls.Add(Me.部門_cb)
+        Me.Panel2.Controls.Add(Me.Label4)
+        Me.Panel2.Controls.Add(Me.語轉扭_bt)
+        Me.Panel2.Controls.Add(Me.地區_cb)
+        Me.Panel2.Controls.Add(Me.級別_cb)
+        Me.Panel2.Controls.Add(Me.工人_ch)
+        Me.Panel2.Location = New System.Drawing.Point(146, 128)
+        Me.Panel2.Name = "Panel2"
+        Me.Panel2.Size = New System.Drawing.Size(455, 227)
+        Me.Panel2.TabIndex = 1946
+        '
+        '虛擬表_dgv
+        '
+        Me.虛擬表_dgv.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
+            Or System.Windows.Forms.AnchorStyles.Left) _
+            Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.虛擬表_dgv.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
+        Me.虛擬表_dgv.BackgroundColor = System.Drawing.Color.White
+        Me.虛擬表_dgv.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D
+        Me.虛擬表_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
+        Me.虛擬表_dgv.Location = New System.Drawing.Point(270, 116)
+        Me.虛擬表_dgv.Name = "虛擬表_dgv"
+        Me.虛擬表_dgv.RowHeadersWidth = 5
+        DataGridViewCellStyle4.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
+        Me.虛擬表_dgv.RowsDefaultCellStyle = DataGridViewCellStyle4
+        Me.虛擬表_dgv.RowTemplate.Height = 24
+        Me.虛擬表_dgv.Size = New System.Drawing.Size(176, 103)
+        Me.虛擬表_dgv.TabIndex = 1954
+        '
+        '休假天數_nud
+        '
+        Me.休假天數_nud.Location = New System.Drawing.Point(325, 30)
+        Me.休假天數_nud.Maximum = New Decimal(New Integer() {10000000, 0, 0, 0})
+        Me.休假天數_nud.Name = "休假天數_nud"
+        Me.休假天數_nud.Size = New System.Drawing.Size(127, 23)
+        Me.休假天數_nud.TabIndex = 1943
+        Me.休假天數_nud.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
+        Me.休假天數_nud.ThousandsSeparator = True
+        '
+        '群組_cb
+        '
+        Me.群組_cb.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.群組_cb.DropDownStyle = System.Windows.Forms.ComboBoxStyle.Simple
+        Me.群組_cb.FormattingEnabled = True
+        Me.群組_cb.Items.AddRange(New Object() {"01", "02", "03", "04", "05", "06", "07", "08", "09", "10", "11", "12"})
+        Me.群組_cb.Location = New System.Drawing.Point(7, 195)
+        Me.群組_cb.Name = "群組_cb"
+        Me.群組_cb.Size = New System.Drawing.Size(180, 24)
+        Me.群組_cb.TabIndex = 1951
+        '
+        'Label10
+        '
+        Me.Label10.AutoSize = True
+        Me.Label10.BackColor = System.Drawing.Color.Transparent
+        Me.Label10.Location = New System.Drawing.Point(264, 33)
+        Me.Label10.Name = "Label10"
+        Me.Label10.Size = New System.Drawing.Size(55, 16)
+        Me.Label10.TabIndex = 1944
+        Me.Label10.Text = "休假天數"
+        '
+        '平均每天_nud
+        '
+        Me.平均每天_nud.Location = New System.Drawing.Point(325, 85)
+        Me.平均每天_nud.Maximum = New Decimal(New Integer() {1410065408, 2, 0, 0})
+        Me.平均每天_nud.Name = "平均每天_nud"
+        Me.平均每天_nud.Size = New System.Drawing.Size(127, 23)
+        Me.平均每天_nud.TabIndex = 1935
+        Me.平均每天_nud.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
+        Me.平均每天_nud.ThousandsSeparator = True
+        '
+        '休假比例_nud
+        '
+        Me.休假比例_nud.Location = New System.Drawing.Point(325, 4)
+        Me.休假比例_nud.Name = "休假比例_nud"
+        Me.休假比例_nud.Size = New System.Drawing.Size(127, 23)
+        Me.休假比例_nud.TabIndex = 1941
+        Me.休假比例_nud.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
+        Me.休假比例_nud.ThousandsSeparator = True
+        '
+        'Label6
+        '
+        Me.Label6.AutoSize = True
+        Me.Label6.BackColor = System.Drawing.Color.Transparent
+        Me.Label6.Location = New System.Drawing.Point(264, 88)
+        Me.Label6.Name = "Label6"
+        Me.Label6.Size = New System.Drawing.Size(55, 16)
+        Me.Label6.TabIndex = 1936
+        Me.Label6.Text = "平均每天"
+        '
+        'Label9
+        '
+        Me.Label9.AutoSize = True
+        Me.Label9.BackColor = System.Drawing.Color.Transparent
+        Me.Label9.Location = New System.Drawing.Point(264, 7)
+        Me.Label9.Name = "Label9"
+        Me.Label9.Size = New System.Drawing.Size(55, 16)
+        Me.Label9.TabIndex = 1942
+        Me.Label9.Text = "休假比例"
+        '
+        '可沖天數_nud
+        '
+        Me.可沖天數_nud.Location = New System.Drawing.Point(325, 58)
+        Me.可沖天數_nud.Maximum = New Decimal(New Integer() {1410065408, 2, 0, 0})
+        Me.可沖天數_nud.Name = "可沖天數_nud"
+        Me.可沖天數_nud.Size = New System.Drawing.Size(127, 23)
+        Me.可沖天數_nud.TabIndex = 1933
+        Me.可沖天數_nud.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
+        Me.可沖天數_nud.ThousandsSeparator = True
+        '
+        'Label3
+        '
+        Me.Label3.AutoSize = True
+        Me.Label3.BackColor = System.Drawing.Color.Transparent
+        Me.Label3.Location = New System.Drawing.Point(264, 61)
+        Me.Label3.Name = "Label3"
+        Me.Label3.Size = New System.Drawing.Size(55, 16)
+        Me.Label3.TabIndex = 1934
+        Me.Label3.Text = "可沖天數"
+        '
+        '星7_bt
+        '
+        Me.星7_bt.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
+        Me.星7_bt.Location = New System.Drawing.Point(1075, 37)
+        Me.星7_bt.Multiline = True
+        Me.星7_bt.Name = "星7_bt"
+        Me.星7_bt.Size = New System.Drawing.Size(120, 22)
+        Me.星7_bt.TabIndex = 1940
+        Me.星7_bt.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
+        '
+        '星6_bt
+        '
+        Me.星6_bt.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
+        Me.星6_bt.Location = New System.Drawing.Point(949, 37)
+        Me.星6_bt.Multiline = True
+        Me.星6_bt.Name = "星6_bt"
+        Me.星6_bt.Size = New System.Drawing.Size(120, 22)
+        Me.星6_bt.TabIndex = 1939
+        Me.星6_bt.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
+        '
+        '星5_bt
+        '
+        Me.星5_bt.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
+        Me.星5_bt.Location = New System.Drawing.Point(823, 37)
+        Me.星5_bt.Multiline = True
+        Me.星5_bt.Name = "星5_bt"
+        Me.星5_bt.Size = New System.Drawing.Size(120, 22)
+        Me.星5_bt.TabIndex = 1938
+        Me.星5_bt.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
+        '
+        '星4_bt
+        '
+        Me.星4_bt.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
+        Me.星4_bt.Location = New System.Drawing.Point(697, 37)
+        Me.星4_bt.Multiline = True
+        Me.星4_bt.Name = "星4_bt"
+        Me.星4_bt.Size = New System.Drawing.Size(120, 22)
+        Me.星4_bt.TabIndex = 1937
+        Me.星4_bt.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
+        '
+        '星3_bt
+        '
+        Me.星3_bt.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
+        Me.星3_bt.Location = New System.Drawing.Point(565, 37)
+        Me.星3_bt.Multiline = True
+        Me.星3_bt.Name = "星3_bt"
+        Me.星3_bt.Size = New System.Drawing.Size(120, 22)
+        Me.星3_bt.TabIndex = 1936
+        Me.星3_bt.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
+        '
+        '星2_bt
+        '
+        Me.星2_bt.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
+        Me.星2_bt.Location = New System.Drawing.Point(439, 37)
+        Me.星2_bt.Multiline = True
+        Me.星2_bt.Name = "星2_bt"
+        Me.星2_bt.Size = New System.Drawing.Size(120, 22)
+        Me.星2_bt.TabIndex = 1935
+        Me.星2_bt.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
+        '
+        '星1_bt
+        '
+        Me.星1_bt.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
+        Me.星1_bt.Location = New System.Drawing.Point(313, 37)
+        Me.星1_bt.Multiline = True
+        Me.星1_bt.Name = "星1_bt"
+        Me.星1_bt.Size = New System.Drawing.Size(120, 22)
+        Me.星1_bt.TabIndex = 1934
+        Me.星1_bt.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
+        '
+        '薪資表_bt
+        '
+        Me.薪資表_bt.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.薪資表_bt.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
+        Me.薪資表_bt.Location = New System.Drawing.Point(1297, 0)
+        Me.薪資表_bt.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
+        Me.薪資表_bt.Name = "薪資表_bt"
+        Me.薪資表_bt.Size = New System.Drawing.Size(80, 35)
+        Me.薪資表_bt.TabIndex = 1950
+        Me.薪資表_bt.Text = "Salary"
+        Me.薪資表_bt.UseVisualStyleBackColor = True
+        '
+        '考勤表_bt
+        '
+        Me.考勤表_bt.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.考勤表_bt.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
+        Me.考勤表_bt.Location = New System.Drawing.Point(1217, 0)
+        Me.考勤表_bt.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
+        Me.考勤表_bt.Name = "考勤表_bt"
+        Me.考勤表_bt.Size = New System.Drawing.Size(80, 35)
+        Me.考勤表_bt.TabIndex = 1949
+        Me.考勤表_bt.Text = "Attendance"
+        Me.考勤表_bt.UseVisualStyleBackColor = True
+        '
+        '群組1_cb
+        '
+        Me.群組1_cb.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.群組1_cb.DropDownStyle = System.Windows.Forms.ComboBoxStyle.Simple
+        Me.群組1_cb.FormattingEnabled = True
+        Me.群組1_cb.Items.AddRange(New Object() {"01", "02", "03", "04", "05", "06", "07", "08", "09", "10", "11", "12"})
+        Me.群組1_cb.Location = New System.Drawing.Point(1004, 6)
+        Me.群組1_cb.Name = "群組1_cb"
+        Me.群組1_cb.Size = New System.Drawing.Size(212, 24)
+        Me.群組1_cb.TabIndex = 1952
+        '
+        '視窗3_pl
+        '
+        Me.視窗3_pl.BackColor = System.Drawing.Color.White
+        Me.視窗3_pl.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
+        Me.視窗3_pl.Controls.Add(Me.Panel4)
+        Me.視窗3_pl.Controls.Add(Me.Label11)
+        Me.視窗3_pl.Controls.Add(Me.CanceL3_bt)
+        Me.視窗3_pl.Location = New System.Drawing.Point(620, 201)
+        Me.視窗3_pl.Name = "視窗3_pl"
+        Me.視窗3_pl.Size = New System.Drawing.Size(211, 163)
+        Me.視窗3_pl.TabIndex = 1953
+        '
+        'Panel4
+        '
+        Me.Panel4.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
+            Or System.Windows.Forms.AnchorStyles.Left) _
+            Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.Panel4.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D
+        Me.Panel4.Controls.Add(Me.虛擬存檔_bt)
+        Me.Panel4.Controls.Add(Me.清除_bt)
+        Me.Panel4.Controls.Add(Me.沖帳金額_nud)
+        Me.Panel4.Controls.Add(Me.Label8)
+        Me.Panel4.Controls.Add(Me.加班_nud)
+        Me.Panel4.Controls.Add(Me.Label7)
+        Me.Panel4.Controls.Add(Me.總數_nud)
+        Me.Panel4.Controls.Add(Me.考勤調整_bt)
+        Me.Panel4.Controls.Add(Me.Label1)
+        Me.Panel4.Location = New System.Drawing.Point(3, 28)
+        Me.Panel4.Name = "Panel4"
+        Me.Panel4.Size = New System.Drawing.Size(204, 131)
+        Me.Panel4.TabIndex = 1367
+        '
+        '沖帳金額_nud
+        '
+        Me.沖帳金額_nud.Location = New System.Drawing.Point(87, 56)
+        Me.沖帳金額_nud.Maximum = New Decimal(New Integer() {1410065408, 2, 0, 0})
+        Me.沖帳金額_nud.Name = "沖帳金額_nud"
+        Me.沖帳金額_nud.Size = New System.Drawing.Size(110, 23)
+        Me.沖帳金額_nud.TabIndex = 1939
+        Me.沖帳金額_nud.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
+        Me.沖帳金額_nud.ThousandsSeparator = True
+        '
+        'Label8
+        '
+        Me.Label8.BackColor = System.Drawing.Color.Transparent
+        Me.Label8.Location = New System.Drawing.Point(0, 59)
+        Me.Label8.Name = "Label8"
+        Me.Label8.Size = New System.Drawing.Size(87, 16)
+        Me.Label8.TabIndex = 1940
+        Me.Label8.Text = "Reconciliation"
+        Me.Label8.TextAlign = System.Drawing.ContentAlignment.MiddleRight
+        '
+        '加班_nud
+        '
+        Me.加班_nud.Location = New System.Drawing.Point(87, 29)
+        Me.加班_nud.Maximum = New Decimal(New Integer() {3, 0, 0, 0})
+        Me.加班_nud.Minimum = New Decimal(New Integer() {1, 0, 0, 0})
+        Me.加班_nud.Name = "加班_nud"
+        Me.加班_nud.Size = New System.Drawing.Size(110, 23)
+        Me.加班_nud.TabIndex = 1937
+        Me.加班_nud.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
+        Me.加班_nud.ThousandsSeparator = True
+        Me.加班_nud.Value = New Decimal(New Integer() {1, 0, 0, 0})
+        '
+        'Label7
+        '
+        Me.Label7.BackColor = System.Drawing.Color.Transparent
+        Me.Label7.Location = New System.Drawing.Point(0, 32)
+        Me.Label7.Name = "Label7"
+        Me.Label7.Size = New System.Drawing.Size(87, 16)
+        Me.Label7.TabIndex = 1938
+        Me.Label7.Text = "加班"
+        Me.Label7.TextAlign = System.Drawing.ContentAlignment.MiddleRight
+        '
+        '總數_nud
+        '
+        Me.總數_nud.Location = New System.Drawing.Point(87, 3)
+        Me.總數_nud.Maximum = New Decimal(New Integer() {1410065408, 2, 0, 0})
+        Me.總數_nud.Name = "總數_nud"
+        Me.總數_nud.Size = New System.Drawing.Size(110, 23)
+        Me.總數_nud.TabIndex = 1920
+        Me.總數_nud.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
+        Me.總數_nud.ThousandsSeparator = True
+        '
+        'Label1
+        '
+        Me.Label1.BackColor = System.Drawing.Color.Transparent
+        Me.Label1.Location = New System.Drawing.Point(0, 5)
+        Me.Label1.Name = "Label1"
+        Me.Label1.Size = New System.Drawing.Size(87, 16)
+        Me.Label1.TabIndex = 1932
+        Me.Label1.Text = "Maksimum"
+        Me.Label1.TextAlign = System.Drawing.ContentAlignment.MiddleRight
+        '
+        'Label11
+        '
+        Me.Label11.AutoSize = True
+        Me.Label11.Location = New System.Drawing.Point(5, 7)
+        Me.Label11.Name = "Label11"
+        Me.Label11.Size = New System.Drawing.Size(140, 16)
+        Me.Label11.TabIndex = 1375
+        Me.Label11.Text = "Pengaturan Rekonsiliasi"
+        '
+        'CanceL3_bt
+        '
+        Me.CanceL3_bt.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.CanceL3_bt.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(128, Byte), Integer), CType(CType(128, Byte), Integer))
+        Me.CanceL3_bt.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        Me.CanceL3_bt.ForeColor = System.Drawing.Color.Black
+        Me.CanceL3_bt.Location = New System.Drawing.Point(179, 2)
+        Me.CanceL3_bt.Name = "CanceL3_bt"
+        Me.CanceL3_bt.Size = New System.Drawing.Size(26, 26)
+        Me.CanceL3_bt.TabIndex = 1374
+        Me.CanceL3_bt.Text = "X"
+        Me.CanceL3_bt.UseVisualStyleBackColor = False
+        '
+        '合計_dgv
+        '
+        Me.合計_dgv.Anchor = CType(((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left) _
+            Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.合計_dgv.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
+        Me.合計_dgv.BackgroundColor = System.Drawing.Color.White
+        Me.合計_dgv.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D
+        Me.合計_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
+        Me.合計_dgv.Location = New System.Drawing.Point(3, 671)
+        Me.合計_dgv.Name = "合計_dgv"
+        Me.合計_dgv.RowHeadersWidth = 5
+        DataGridViewCellStyle5.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
+        Me.合計_dgv.RowsDefaultCellStyle = DataGridViewCellStyle5
+        Me.合計_dgv.RowTemplate.Height = 24
+        Me.合計_dgv.Size = New System.Drawing.Size(1445, 34)
+        Me.合計_dgv.TabIndex = 1955
+        '
+        '重新讀取_bt
+        '
+        Me.重新讀取_bt.BackgroundImage = Global.Calculator_Backend_SYS.My.Resources.Resources.下載
+        Me.重新讀取_bt.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
+        Me.重新讀取_bt.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        Me.重新讀取_bt.ForeColor = System.Drawing.Color.Blue
+        Me.重新讀取_bt.Location = New System.Drawing.Point(508, 0)
+        Me.重新讀取_bt.Name = "重新讀取_bt"
+        Me.重新讀取_bt.Size = New System.Drawing.Size(35, 35)
+        Me.重新讀取_bt.TabIndex = 1954
+        Me.重新讀取_bt.UseVisualStyleBackColor = True
+        '
+        '虛擬存檔_bt
+        '
+        Me.虛擬存檔_bt.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.虛擬存檔_bt.BackgroundImage = Global.Calculator_Backend_SYS.My.Resources.Resources.SAVER
+        Me.虛擬存檔_bt.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
+        Me.虛擬存檔_bt.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        Me.虛擬存檔_bt.ForeColor = System.Drawing.Color.DarkGreen
+        Me.虛擬存檔_bt.Location = New System.Drawing.Point(155, 83)
+        Me.虛擬存檔_bt.Name = "虛擬存檔_bt"
+        Me.虛擬存檔_bt.Size = New System.Drawing.Size(40, 40)
+        Me.虛擬存檔_bt.TabIndex = 1942
+        Me.虛擬存檔_bt.UseVisualStyleBackColor = True
+        '
+        '清除_bt
+        '
+        Me.清除_bt.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.清除_bt.BackgroundImage = Global.Calculator_Backend_SYS.My.Resources.Resources.Close
+        Me.清除_bt.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
+        Me.清除_bt.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        Me.清除_bt.ForeColor = System.Drawing.Color.DarkGreen
+        Me.清除_bt.Location = New System.Drawing.Point(50, 83)
+        Me.清除_bt.Name = "清除_bt"
+        Me.清除_bt.Size = New System.Drawing.Size(40, 40)
+        Me.清除_bt.TabIndex = 1941
+        Me.清除_bt.UseVisualStyleBackColor = True
+        '
+        '考勤調整_bt
+        '
+        Me.考勤調整_bt.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.考勤調整_bt.BackgroundImage = Global.Calculator_Backend_SYS.My.Resources.Resources.SAVER
+        Me.考勤調整_bt.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
+        Me.考勤調整_bt.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        Me.考勤調整_bt.ForeColor = System.Drawing.Color.DarkGreen
+        Me.考勤調整_bt.Location = New System.Drawing.Point(4, 83)
+        Me.考勤調整_bt.Name = "考勤調整_bt"
+        Me.考勤調整_bt.Size = New System.Drawing.Size(40, 40)
+        Me.考勤調整_bt.TabIndex = 1919
+        Me.考勤調整_bt.UseVisualStyleBackColor = True
+        '
+        '縮放2_bt
+        '
+        Me.縮放2_bt.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.縮放2_bt.BackgroundImage = Global.Calculator_Backend_SYS.My.Resources.Resources.ZOOM01
+        Me.縮放2_bt.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
+        Me.縮放2_bt.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        Me.縮放2_bt.ForeColor = System.Drawing.Color.Blue
+        Me.縮放2_bt.Location = New System.Drawing.Point(1377, 0)
+        Me.縮放2_bt.Name = "縮放2_bt"
+        Me.縮放2_bt.Size = New System.Drawing.Size(35, 35)
+        Me.縮放2_bt.TabIndex = 1948
+        Me.縮放2_bt.UseVisualStyleBackColor = True
+        '
+        '設定_bt
+        '
+        Me.設定_bt.BackgroundImage = Global.Calculator_Backend_SYS.My.Resources.Resources.system
+        Me.設定_bt.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
+        Me.設定_bt.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        Me.設定_bt.ForeColor = System.Drawing.Color.Blue
+        Me.設定_bt.Location = New System.Drawing.Point(613, 0)
+        Me.設定_bt.Name = "設定_bt"
+        Me.設定_bt.Size = New System.Drawing.Size(35, 35)
+        Me.設定_bt.TabIndex = 1947
+        Me.設定_bt.UseVisualStyleBackColor = True
+        '
+        '列印_bt
+        '
+        Me.列印_bt.BackgroundImage = Global.Calculator_Backend_SYS.My.Resources.Resources.print
+        Me.列印_bt.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
+        Me.列印_bt.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        Me.列印_bt.ForeColor = System.Drawing.Color.Blue
+        Me.列印_bt.Location = New System.Drawing.Point(578, 0)
+        Me.列印_bt.Name = "列印_bt"
+        Me.列印_bt.Size = New System.Drawing.Size(35, 35)
+        Me.列印_bt.TabIndex = 1936
+        Me.列印_bt.UseVisualStyleBackColor = True
+        '
+        '存檔_bt
+        '
+        Me.存檔_bt.BackgroundImage = Global.Calculator_Backend_SYS.My.Resources.Resources.SAVER
+        Me.存檔_bt.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
+        Me.存檔_bt.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        Me.存檔_bt.ForeColor = System.Drawing.Color.Blue
+        Me.存檔_bt.Location = New System.Drawing.Point(543, 0)
+        Me.存檔_bt.Name = "存檔_bt"
+        Me.存檔_bt.Size = New System.Drawing.Size(35, 35)
+        Me.存檔_bt.TabIndex = 1935
+        Me.存檔_bt.UseVisualStyleBackColor = True
+        '
+        '系統說明_bt
+        '
+        Me.系統說明_bt.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.系統說明_bt.BackgroundImage = Global.Calculator_Backend_SYS.My.Resources.Resources.question_mark
+        Me.系統說明_bt.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
+        Me.系統說明_bt.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        Me.系統說明_bt.ForeColor = System.Drawing.Color.Blue
+        Me.系統說明_bt.Location = New System.Drawing.Point(1413, 0)
+        Me.系統說明_bt.Name = "系統說明_bt"
+        Me.系統說明_bt.Size = New System.Drawing.Size(35, 35)
+        Me.系統說明_bt.TabIndex = 1934
+        Me.系統說明_bt.UseVisualStyleBackColor = True
+        '
+        '人員薪資
+        '
+        Me.AutoScaleDimensions = New System.Drawing.SizeF(7.0!, 16.0!)
+        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
+        Me.ClientSize = New System.Drawing.Size(1451, 707)
+        Me.Controls.Add(Me.合計_dgv)
+        Me.Controls.Add(Me.重新讀取_bt)
+        Me.Controls.Add(Me.視窗3_pl)
+        Me.Controls.Add(Me.群組1_cb)
+        Me.Controls.Add(Me.薪資表_bt)
+        Me.Controls.Add(Me.星7_bt)
+        Me.Controls.Add(Me.考勤表_bt)
+        Me.Controls.Add(Me.縮放2_bt)
+        Me.Controls.Add(Me.設定_bt)
+        Me.Controls.Add(Me.Panel2)
+        Me.Controls.Add(Me.DA3_bt)
+        Me.Controls.Add(Me.DA2_bt)
+        Me.Controls.Add(Me.DA1_bt)
+        Me.Controls.Add(Me.星6_bt)
+        Me.Controls.Add(Me.結束日期_dtp)
+        Me.Controls.Add(Me.星5_bt)
+        Me.Controls.Add(Me.開始日期_dtp)
+        Me.Controls.Add(Me.星4_bt)
+        Me.Controls.Add(Me.群組選擇_ch)
+        Me.Controls.Add(Me.群組輸入_ch)
+        Me.Controls.Add(Me.星3_bt)
+        Me.Controls.Add(Me.列印_bt)
+        Me.Controls.Add(Me.星2_bt)
+        Me.Controls.Add(Me.存檔_bt)
+        Me.Controls.Add(Me.系統說明_bt)
+        Me.Controls.Add(Me.星1_bt)
+        Me.Controls.Add(Me.Label2)
+        Me.Controls.Add(Me.清單1_dgv)
+        Me.Controls.Add(Me.總清單_dgv)
+        Me.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        Me.Margin = New System.Windows.Forms.Padding(4)
+        Me.MaximizeBox = False
+        Me.MinimizeBox = False
+        Me.Name = "人員薪資"
+        Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
+        Me.Text = "人員薪資"
+        CType(Me.清單1_dgv, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.總清單_dgv, System.ComponentModel.ISupportInitialize).EndInit()
+        Me.Panel2.ResumeLayout(False)
+        Me.Panel2.PerformLayout()
+        CType(Me.虛擬表_dgv, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.休假天數_nud, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.平均每天_nud, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.休假比例_nud, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.可沖天數_nud, System.ComponentModel.ISupportInitialize).EndInit()
+        Me.視窗3_pl.ResumeLayout(False)
+        Me.視窗3_pl.PerformLayout()
+        Me.Panel4.ResumeLayout(False)
+        CType(Me.沖帳金額_nud, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.加班_nud, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.總數_nud, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.合計_dgv, System.ComponentModel.ISupportInitialize).EndInit()
+        Me.ResumeLayout(False)
+        Me.PerformLayout()
+
+    End Sub
+    Friend WithEvents 清單1_dgv As DataGridView
+    Friend WithEvents 工人_ch As CheckBox
+    Friend WithEvents 地區_cb As ComboBox
+    Friend WithEvents 級別_cb As ComboBox
+    Friend WithEvents 語轉扭_bt As Button
+    Friend WithEvents 部門_cb As ComboBox
+    Friend WithEvents 總清單_dgv As DataGridView
+    Friend WithEvents Label4 As Label
+    Friend WithEvents 月份2_cb As ComboBox
+    Friend WithEvents Label5 As Label
+    Friend WithEvents 年份2_cb As ComboBox
+    Friend WithEvents 系統說明_bt As Button
+    Friend WithEvents 存檔_bt As Button
+    Friend WithEvents 列印_bt As Button
+    Friend WithEvents 群組輸入_ch As CheckBox
+    Friend WithEvents 群組選擇_ch As CheckBox
+    Friend WithEvents Label2 As Label
+    Friend WithEvents 結束日期_dtp As DateTimePicker
+    Friend WithEvents 開始日期_dtp As DateTimePicker
+    Friend WithEvents DA3_bt As Button
+    Friend WithEvents DA2_bt As Button
+    Friend WithEvents DA1_bt As Button
+    Friend WithEvents Panel2 As Panel
+    Friend WithEvents 設定_bt As Button
+    Friend WithEvents 縮放2_bt As Button
+    Friend WithEvents 星7_bt As TextBox
+    Friend WithEvents 星6_bt As TextBox
+    Friend WithEvents 星5_bt As TextBox
+    Friend WithEvents 星4_bt As TextBox
+    Friend WithEvents 星3_bt As TextBox
+    Friend WithEvents 星2_bt As TextBox
+    Friend WithEvents 星1_bt As TextBox
+    Friend WithEvents 薪資表_bt As Button
+    Friend WithEvents 考勤表_bt As Button
+    Friend WithEvents 群組_cb As ComboBox
+    Friend WithEvents 群組1_cb As ComboBox
+    Friend WithEvents 視窗3_pl As Panel
+    Friend WithEvents Panel4 As Panel
+    Friend WithEvents 考勤調整_bt As Button
+    Friend WithEvents Label11 As Label
+    Friend WithEvents CanceL3_bt As Button
+    Friend WithEvents 總數_nud As NumericUpDown
+    Friend WithEvents Label1 As Label
+    Friend WithEvents 平均每天_nud As NumericUpDown
+    Friend WithEvents Label6 As Label
+    Friend WithEvents 可沖天數_nud As NumericUpDown
+    Friend WithEvents Label3 As Label
+    Friend WithEvents 加班_nud As NumericUpDown
+    Friend WithEvents Label7 As Label
+    Friend WithEvents 沖帳金額_nud As NumericUpDown
+    Friend WithEvents Label8 As Label
+    Friend WithEvents 休假比例_nud As NumericUpDown
+    Friend WithEvents Label9 As Label
+    Friend WithEvents 休假天數_nud As NumericUpDown
+    Friend WithEvents Label10 As Label
+    Friend WithEvents 清除_bt As Button
+    Friend WithEvents 虛擬存檔_bt As Button
+    Friend WithEvents 虛擬表_dgv As DataGridView
+    Friend WithEvents 重新讀取_bt As Button
+    Friend WithEvents 合計_dgv As DataGridView
+End Class

Calculator-Backend-SYS/人員薪資/人員薪資_實際.resx

@@ -0,0 +1,123 @@
+<?xml version="1.0" encoding="utf-8"?>
+<root>
+  <!-- 
+    Microsoft ResX Schema 
+    
+    Version 2.0
+    
+    The primary goals of this format is to allow a simple XML format 
+    that is mostly human readable. The generation and parsing of the 
+    various data types are done through the TypeConverter classes 
+    associated with the data types.
+    
+    Example:
+    
+    ... ado.net/XML headers & schema ...
+    <resheader name="resmimetype">text/microsoft-resx</resheader>
+    <resheader name="version">2.0</resheader>
+    <resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
+    <resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
+    <data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
+    <data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
+    <data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
+        <value>[base64 mime encoded serialized .NET Framework object]</value>
+    </data>
+    <data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+        <value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
+        <comment>This is a comment</comment>
+    </data>
+                
+    There are any number of "resheader" rows that contain simple 
+    name/value pairs.
+    
+    Each data row contains a name, and value. The row also contains a 
+    type or mimetype. Type corresponds to a .NET class that support 
+    text/value conversion through the TypeConverter architecture. 
+    Classes that don't support this are serialized and stored with the 
+    mimetype set.
+    
+    The mimetype is used for serialized objects, and tells the 
+    ResXResourceReader how to depersist the object. This is currently not 
+    extensible. For a given mimetype the value must be set accordingly:
+    
+    Note - application/x-microsoft.net.object.binary.base64 is the format 
+    that the ResXResourceWriter will generate, however the reader can 
+    read any of the formats listed below.
+    
+    mimetype: application/x-microsoft.net.object.binary.base64
+    value   : The object must be serialized with 
+            : System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
+            : and then encoded with base64 encoding.
+    
+    mimetype: application/x-microsoft.net.object.soap.base64
+    value   : The object must be serialized with 
+            : System.Runtime.Serialization.Formatters.Soap.SoapFormatter
+            : and then encoded with base64 encoding.
+
+    mimetype: application/x-microsoft.net.object.bytearray.base64
+    value   : The object must be serialized into a byte array 
+            : using a System.ComponentModel.TypeConverter
+            : and then encoded with base64 encoding.
+    -->
+  <xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
+    <xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
+    <xsd:element name="root" msdata:IsDataSet="true">
+      <xsd:complexType>
+        <xsd:choice maxOccurs="unbounded">
+          <xsd:element name="metadata">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" />
+              </xsd:sequence>
+              <xsd:attribute name="name" use="required" type="xsd:string" />
+              <xsd:attribute name="type" type="xsd:string" />
+              <xsd:attribute name="mimetype" type="xsd:string" />
+              <xsd:attribute ref="xml:space" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="assembly">
+            <xsd:complexType>
+              <xsd:attribute name="alias" type="xsd:string" />
+              <xsd:attribute name="name" type="xsd:string" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="data">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+                <xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
+              </xsd:sequence>
+              <xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
+              <xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
+              <xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
+              <xsd:attribute ref="xml:space" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="resheader">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+              </xsd:sequence>
+              <xsd:attribute name="name" type="xsd:string" use="required" />
+            </xsd:complexType>
+          </xsd:element>
+        </xsd:choice>
+      </xsd:complexType>
+    </xsd:element>
+  </xsd:schema>
+  <resheader name="resmimetype">
+    <value>text/microsoft-resx</value>
+  </resheader>
+  <resheader name="version">
+    <value>2.0</value>
+  </resheader>
+  <resheader name="reader">
+    <value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+  </resheader>
+  <resheader name="writer">
+    <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+  </resheader>
+  <metadata name="$this.TrayHeight" type="System.Int32, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
+    <value>27</value>
+  </metadata>
+</root>

Calculator-Backend-SYS/人員薪資/人員薪資_沖帳.Designer.vb

@@ -0,0 +1,933 @@
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
+Partial Class 人員薪資_沖帳
+    Inherits System.Windows.Forms.Form
+
+    'Form 覆寫 Dispose 以清除元件清單。
+    <System.Diagnostics.DebuggerNonUserCode()>
+    Protected Overrides Sub Dispose(ByVal disposing As Boolean)
+        Try
+            If disposing AndAlso components IsNot Nothing Then
+                components.Dispose()
+            End If
+        Finally
+            MyBase.Dispose(disposing)
+        End Try
+    End Sub
+
+    '為 Windows Form 設計工具的必要項
+    Private components As System.ComponentModel.IContainer
+
+    '注意: 以下為 Windows Form 設計工具所需的程序
+    '可以使用 Windows Form 設計工具進行修改。
+    '請勿使用程式碼編輯器進行修改。
+    <System.Diagnostics.DebuggerStepThrough()>
+    Private Sub InitializeComponent()
+        Dim DataGridViewCellStyle1 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle2 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle3 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle4 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle5 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Me.清單1_dgv = New System.Windows.Forms.DataGridView()
+        Me.總清單_dgv = New System.Windows.Forms.DataGridView()
+        Me.群組輸入_ch = New System.Windows.Forms.CheckBox()
+        Me.群組選擇_ch = New System.Windows.Forms.CheckBox()
+        Me.Label2 = New System.Windows.Forms.Label()
+        Me.結束日期_dtp = New System.Windows.Forms.DateTimePicker()
+        Me.開始日期_dtp = New System.Windows.Forms.DateTimePicker()
+        Me.DA3_bt = New System.Windows.Forms.Button()
+        Me.DA2_bt = New System.Windows.Forms.Button()
+        Me.DA1_bt = New System.Windows.Forms.Button()
+        Me.星7_bt = New System.Windows.Forms.TextBox()
+        Me.星6_bt = New System.Windows.Forms.TextBox()
+        Me.星5_bt = New System.Windows.Forms.TextBox()
+        Me.星4_bt = New System.Windows.Forms.TextBox()
+        Me.星3_bt = New System.Windows.Forms.TextBox()
+        Me.星2_bt = New System.Windows.Forms.TextBox()
+        Me.星1_bt = New System.Windows.Forms.TextBox()
+        Me.薪資表_bt = New System.Windows.Forms.Button()
+        Me.考勤表_bt = New System.Windows.Forms.Button()
+        Me.群組1_cb = New System.Windows.Forms.ComboBox()
+        Me.視窗3_pl = New System.Windows.Forms.Panel()
+        Me.Panel4 = New System.Windows.Forms.Panel()
+        Me.虛擬存檔_bt = New System.Windows.Forms.Button()
+        Me.清除_bt = New System.Windows.Forms.Button()
+        Me.沖帳金額_nud = New System.Windows.Forms.NumericUpDown()
+        Me.Label8 = New System.Windows.Forms.Label()
+        Me.加班_nud = New System.Windows.Forms.NumericUpDown()
+        Me.Label7 = New System.Windows.Forms.Label()
+        Me.總數_nud = New System.Windows.Forms.NumericUpDown()
+        Me.考勤調整_bt = New System.Windows.Forms.Button()
+        Me.Label1 = New System.Windows.Forms.Label()
+        Me.Label11 = New System.Windows.Forms.Label()
+        Me.CanceL3_bt = New System.Windows.Forms.Button()
+        Me.合計_dgv = New System.Windows.Forms.DataGridView()
+        Me.重新讀取_bt = New System.Windows.Forms.Button()
+        Me.縮放2_bt = New System.Windows.Forms.Button()
+        Me.Panel2 = New System.Windows.Forms.Panel()
+        Me.虛擬表_dgv = New System.Windows.Forms.DataGridView()
+        Me.休假天數_nud = New System.Windows.Forms.NumericUpDown()
+        Me.群組_cb = New System.Windows.Forms.ComboBox()
+        Me.Label10 = New System.Windows.Forms.Label()
+        Me.平均每天_nud = New System.Windows.Forms.NumericUpDown()
+        Me.休假比例_nud = New System.Windows.Forms.NumericUpDown()
+        Me.Label6 = New System.Windows.Forms.Label()
+        Me.Label9 = New System.Windows.Forms.Label()
+        Me.設定_bt = New System.Windows.Forms.Button()
+        Me.可沖天數_nud = New System.Windows.Forms.NumericUpDown()
+        Me.Label3 = New System.Windows.Forms.Label()
+        Me.年份2_cb = New System.Windows.Forms.ComboBox()
+        Me.Label5 = New System.Windows.Forms.Label()
+        Me.月份2_cb = New System.Windows.Forms.ComboBox()
+        Me.部門_cb = New System.Windows.Forms.ComboBox()
+        Me.Label4 = New System.Windows.Forms.Label()
+        Me.語轉扭_bt = New System.Windows.Forms.Button()
+        Me.地區_cb = New System.Windows.Forms.ComboBox()
+        Me.級別_cb = New System.Windows.Forms.ComboBox()
+        Me.工人_ch = New System.Windows.Forms.CheckBox()
+        Me.列印_bt = New System.Windows.Forms.Button()
+        Me.存檔_bt = New System.Windows.Forms.Button()
+        Me.系統說明_bt = New System.Windows.Forms.Button()
+        CType(Me.清單1_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.總清單_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
+        Me.視窗3_pl.SuspendLayout()
+        Me.Panel4.SuspendLayout()
+        CType(Me.沖帳金額_nud, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.加班_nud, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.總數_nud, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.合計_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
+        Me.Panel2.SuspendLayout()
+        CType(Me.虛擬表_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.休假天數_nud, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.平均每天_nud, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.休假比例_nud, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.可沖天數_nud, System.ComponentModel.ISupportInitialize).BeginInit()
+        Me.SuspendLayout()
+        '
+        '清單1_dgv
+        '
+        Me.清單1_dgv.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
+            Or System.Windows.Forms.AnchorStyles.Left) _
+            Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.清單1_dgv.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
+        Me.清單1_dgv.BackgroundColor = System.Drawing.Color.White
+        Me.清單1_dgv.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D
+        Me.清單1_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
+        Me.清單1_dgv.Location = New System.Drawing.Point(3, 35)
+        Me.清單1_dgv.Name = "清單1_dgv"
+        Me.清單1_dgv.RowHeadersWidth = 5
+        DataGridViewCellStyle1.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
+        Me.清單1_dgv.RowsDefaultCellStyle = DataGridViewCellStyle1
+        Me.清單1_dgv.RowTemplate.Height = 24
+        Me.清單1_dgv.Size = New System.Drawing.Size(1445, 637)
+        Me.清單1_dgv.TabIndex = 1386
+        '
+        '總清單_dgv
+        '
+        Me.總清單_dgv.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
+            Or System.Windows.Forms.AnchorStyles.Left) _
+            Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.總清單_dgv.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
+        Me.總清單_dgv.BackgroundColor = System.Drawing.Color.White
+        Me.總清單_dgv.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D
+        DataGridViewCellStyle2.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
+        DataGridViewCellStyle2.BackColor = System.Drawing.SystemColors.Control
+        DataGridViewCellStyle2.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        DataGridViewCellStyle2.ForeColor = System.Drawing.SystemColors.WindowText
+        DataGridViewCellStyle2.SelectionBackColor = System.Drawing.SystemColors.Highlight
+        DataGridViewCellStyle2.SelectionForeColor = System.Drawing.SystemColors.HighlightText
+        Me.總清單_dgv.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle2
+        Me.總清單_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
+        Me.總清單_dgv.Location = New System.Drawing.Point(3, 35)
+        Me.總清單_dgv.Name = "總清單_dgv"
+        Me.總清單_dgv.RowHeadersWidth = 5
+        DataGridViewCellStyle3.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
+        Me.總清單_dgv.RowsDefaultCellStyle = DataGridViewCellStyle3
+        Me.總清單_dgv.RowTemplate.Height = 24
+        Me.總清單_dgv.Size = New System.Drawing.Size(1445, 637)
+        Me.總清單_dgv.TabIndex = 1922
+        '
+        '群組輸入_ch
+        '
+        Me.群組輸入_ch.AutoSize = True
+        Me.群組輸入_ch.BackColor = System.Drawing.Color.Transparent
+        Me.群組輸入_ch.Location = New System.Drawing.Point(651, 8)
+        Me.群組輸入_ch.Name = "群組輸入_ch"
+        Me.群組輸入_ch.Size = New System.Drawing.Size(178, 20)
+        Me.群組輸入_ch.TabIndex = 1937
+        Me.群組輸入_ch.Text = "Group Data - Manual Input"
+        Me.群組輸入_ch.UseVisualStyleBackColor = False
+        '
+        '群組選擇_ch
+        '
+        Me.群組選擇_ch.AutoSize = True
+        Me.群組選擇_ch.BackColor = System.Drawing.Color.Transparent
+        Me.群組選擇_ch.Checked = True
+        Me.群組選擇_ch.CheckState = System.Windows.Forms.CheckState.Checked
+        Me.群組選擇_ch.Location = New System.Drawing.Point(828, 8)
+        Me.群組選擇_ch.Name = "群組選擇_ch"
+        Me.群組選擇_ch.Size = New System.Drawing.Size(158, 20)
+        Me.群組選擇_ch.TabIndex = 1938
+        Me.群組選擇_ch.Text = "Group Data - Select List"
+        Me.群組選擇_ch.UseVisualStyleBackColor = False
+        '
+        'Label2
+        '
+        Me.Label2.AutoSize = True
+        Me.Label2.Location = New System.Drawing.Point(92, 8)
+        Me.Label2.Name = "Label2"
+        Me.Label2.Size = New System.Drawing.Size(16, 16)
+        Me.Label2.TabIndex = 1942
+        Me.Label2.Text = "~"
+        '
+        '結束日期_dtp
+        '
+        Me.結束日期_dtp.Enabled = False
+        Me.結束日期_dtp.Format = System.Windows.Forms.DateTimePickerFormat.[Short]
+        Me.結束日期_dtp.Location = New System.Drawing.Point(106, 5)
+        Me.結束日期_dtp.Name = "結束日期_dtp"
+        Me.結束日期_dtp.Size = New System.Drawing.Size(89, 23)
+        Me.結束日期_dtp.TabIndex = 1940
+        '
+        '開始日期_dtp
+        '
+        Me.開始日期_dtp.Enabled = False
+        Me.開始日期_dtp.Format = System.Windows.Forms.DateTimePickerFormat.[Short]
+        Me.開始日期_dtp.Location = New System.Drawing.Point(6, 5)
+        Me.開始日期_dtp.Name = "開始日期_dtp"
+        Me.開始日期_dtp.Size = New System.Drawing.Size(86, 23)
+        Me.開始日期_dtp.TabIndex = 1939
+        '
+        'DA3_bt
+        '
+        Me.DA3_bt.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
+        Me.DA3_bt.Location = New System.Drawing.Point(398, 0)
+        Me.DA3_bt.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
+        Me.DA3_bt.Name = "DA3_bt"
+        Me.DA3_bt.Size = New System.Drawing.Size(105, 35)
+        Me.DA3_bt.TabIndex = 1945
+        Me.DA3_bt.Text = "Minggu depan"
+        Me.DA3_bt.UseVisualStyleBackColor = True
+        '
+        'DA2_bt
+        '
+        Me.DA2_bt.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
+        Me.DA2_bt.Location = New System.Drawing.Point(298, 0)
+        Me.DA2_bt.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
+        Me.DA2_bt.Name = "DA2_bt"
+        Me.DA2_bt.Size = New System.Drawing.Size(100, 35)
+        Me.DA2_bt.TabIndex = 1944
+        Me.DA2_bt.Text = "Minggu ini"
+        Me.DA2_bt.UseVisualStyleBackColor = True
+        '
+        'DA1_bt
+        '
+        Me.DA1_bt.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
+        Me.DA1_bt.Location = New System.Drawing.Point(198, 0)
+        Me.DA1_bt.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
+        Me.DA1_bt.Name = "DA1_bt"
+        Me.DA1_bt.Size = New System.Drawing.Size(100, 35)
+        Me.DA1_bt.TabIndex = 1943
+        Me.DA1_bt.Text = "Minggu lalu"
+        Me.DA1_bt.UseVisualStyleBackColor = True
+        '
+        '星7_bt
+        '
+        Me.星7_bt.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
+        Me.星7_bt.Location = New System.Drawing.Point(1075, 37)
+        Me.星7_bt.Multiline = True
+        Me.星7_bt.Name = "星7_bt"
+        Me.星7_bt.Size = New System.Drawing.Size(120, 22)
+        Me.星7_bt.TabIndex = 1940
+        Me.星7_bt.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
+        '
+        '星6_bt
+        '
+        Me.星6_bt.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
+        Me.星6_bt.Location = New System.Drawing.Point(949, 37)
+        Me.星6_bt.Multiline = True
+        Me.星6_bt.Name = "星6_bt"
+        Me.星6_bt.Size = New System.Drawing.Size(120, 22)
+        Me.星6_bt.TabIndex = 1939
+        Me.星6_bt.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
+        '
+        '星5_bt
+        '
+        Me.星5_bt.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
+        Me.星5_bt.Location = New System.Drawing.Point(823, 37)
+        Me.星5_bt.Multiline = True
+        Me.星5_bt.Name = "星5_bt"
+        Me.星5_bt.Size = New System.Drawing.Size(120, 22)
+        Me.星5_bt.TabIndex = 1938
+        Me.星5_bt.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
+        '
+        '星4_bt
+        '
+        Me.星4_bt.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
+        Me.星4_bt.Location = New System.Drawing.Point(697, 37)
+        Me.星4_bt.Multiline = True
+        Me.星4_bt.Name = "星4_bt"
+        Me.星4_bt.Size = New System.Drawing.Size(120, 22)
+        Me.星4_bt.TabIndex = 1937
+        Me.星4_bt.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
+        '
+        '星3_bt
+        '
+        Me.星3_bt.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
+        Me.星3_bt.Location = New System.Drawing.Point(565, 37)
+        Me.星3_bt.Multiline = True
+        Me.星3_bt.Name = "星3_bt"
+        Me.星3_bt.Size = New System.Drawing.Size(120, 22)
+        Me.星3_bt.TabIndex = 1936
+        Me.星3_bt.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
+        '
+        '星2_bt
+        '
+        Me.星2_bt.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
+        Me.星2_bt.Location = New System.Drawing.Point(439, 37)
+        Me.星2_bt.Multiline = True
+        Me.星2_bt.Name = "星2_bt"
+        Me.星2_bt.Size = New System.Drawing.Size(120, 22)
+        Me.星2_bt.TabIndex = 1935
+        Me.星2_bt.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
+        '
+        '星1_bt
+        '
+        Me.星1_bt.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
+        Me.星1_bt.Location = New System.Drawing.Point(313, 37)
+        Me.星1_bt.Multiline = True
+        Me.星1_bt.Name = "星1_bt"
+        Me.星1_bt.Size = New System.Drawing.Size(120, 22)
+        Me.星1_bt.TabIndex = 1934
+        Me.星1_bt.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
+        '
+        '薪資表_bt
+        '
+        Me.薪資表_bt.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.薪資表_bt.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
+        Me.薪資表_bt.Location = New System.Drawing.Point(1297, 0)
+        Me.薪資表_bt.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
+        Me.薪資表_bt.Name = "薪資表_bt"
+        Me.薪資表_bt.Size = New System.Drawing.Size(80, 35)
+        Me.薪資表_bt.TabIndex = 1950
+        Me.薪資表_bt.Text = "Salary"
+        Me.薪資表_bt.UseVisualStyleBackColor = True
+        '
+        '考勤表_bt
+        '
+        Me.考勤表_bt.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.考勤表_bt.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
+        Me.考勤表_bt.Location = New System.Drawing.Point(1217, 0)
+        Me.考勤表_bt.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
+        Me.考勤表_bt.Name = "考勤表_bt"
+        Me.考勤表_bt.Size = New System.Drawing.Size(80, 35)
+        Me.考勤表_bt.TabIndex = 1949
+        Me.考勤表_bt.Text = "Attendance"
+        Me.考勤表_bt.UseVisualStyleBackColor = True
+        '
+        '群組1_cb
+        '
+        Me.群組1_cb.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.群組1_cb.DropDownStyle = System.Windows.Forms.ComboBoxStyle.Simple
+        Me.群組1_cb.FormattingEnabled = True
+        Me.群組1_cb.Items.AddRange(New Object() {"01", "02", "03", "04", "05", "06", "07", "08", "09", "10", "11", "12"})
+        Me.群組1_cb.Location = New System.Drawing.Point(1004, 6)
+        Me.群組1_cb.Name = "群組1_cb"
+        Me.群組1_cb.Size = New System.Drawing.Size(212, 24)
+        Me.群組1_cb.TabIndex = 1952
+        '
+        '視窗3_pl
+        '
+        Me.視窗3_pl.BackColor = System.Drawing.Color.White
+        Me.視窗3_pl.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
+        Me.視窗3_pl.Controls.Add(Me.Panel4)
+        Me.視窗3_pl.Controls.Add(Me.Label11)
+        Me.視窗3_pl.Controls.Add(Me.CanceL3_bt)
+        Me.視窗3_pl.Location = New System.Drawing.Point(620, 201)
+        Me.視窗3_pl.Name = "視窗3_pl"
+        Me.視窗3_pl.Size = New System.Drawing.Size(211, 163)
+        Me.視窗3_pl.TabIndex = 1953
+        '
+        'Panel4
+        '
+        Me.Panel4.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
+            Or System.Windows.Forms.AnchorStyles.Left) _
+            Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.Panel4.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D
+        Me.Panel4.Controls.Add(Me.虛擬存檔_bt)
+        Me.Panel4.Controls.Add(Me.清除_bt)
+        Me.Panel4.Controls.Add(Me.沖帳金額_nud)
+        Me.Panel4.Controls.Add(Me.Label8)
+        Me.Panel4.Controls.Add(Me.加班_nud)
+        Me.Panel4.Controls.Add(Me.Label7)
+        Me.Panel4.Controls.Add(Me.總數_nud)
+        Me.Panel4.Controls.Add(Me.考勤調整_bt)
+        Me.Panel4.Controls.Add(Me.Label1)
+        Me.Panel4.Location = New System.Drawing.Point(3, 28)
+        Me.Panel4.Name = "Panel4"
+        Me.Panel4.Size = New System.Drawing.Size(204, 131)
+        Me.Panel4.TabIndex = 1367
+        '
+        '虛擬存檔_bt
+        '
+        Me.虛擬存檔_bt.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.虛擬存檔_bt.BackgroundImage = Global.Calculator_Backend_SYS.My.Resources.Resources.SAVER
+        Me.虛擬存檔_bt.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
+        Me.虛擬存檔_bt.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        Me.虛擬存檔_bt.ForeColor = System.Drawing.Color.DarkGreen
+        Me.虛擬存檔_bt.Location = New System.Drawing.Point(155, 83)
+        Me.虛擬存檔_bt.Name = "虛擬存檔_bt"
+        Me.虛擬存檔_bt.Size = New System.Drawing.Size(40, 40)
+        Me.虛擬存檔_bt.TabIndex = 1942
+        Me.虛擬存檔_bt.UseVisualStyleBackColor = True
+        '
+        '清除_bt
+        '
+        Me.清除_bt.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.清除_bt.BackgroundImage = Global.Calculator_Backend_SYS.My.Resources.Resources.Close
+        Me.清除_bt.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
+        Me.清除_bt.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        Me.清除_bt.ForeColor = System.Drawing.Color.DarkGreen
+        Me.清除_bt.Location = New System.Drawing.Point(50, 83)
+        Me.清除_bt.Name = "清除_bt"
+        Me.清除_bt.Size = New System.Drawing.Size(40, 40)
+        Me.清除_bt.TabIndex = 1941
+        Me.清除_bt.UseVisualStyleBackColor = True
+        '
+        '沖帳金額_nud
+        '
+        Me.沖帳金額_nud.Location = New System.Drawing.Point(87, 56)
+        Me.沖帳金額_nud.Maximum = New Decimal(New Integer() {1410065408, 2, 0, 0})
+        Me.沖帳金額_nud.Name = "沖帳金額_nud"
+        Me.沖帳金額_nud.Size = New System.Drawing.Size(110, 23)
+        Me.沖帳金額_nud.TabIndex = 1939
+        Me.沖帳金額_nud.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
+        Me.沖帳金額_nud.ThousandsSeparator = True
+        '
+        'Label8
+        '
+        Me.Label8.BackColor = System.Drawing.Color.Transparent
+        Me.Label8.Location = New System.Drawing.Point(0, 59)
+        Me.Label8.Name = "Label8"
+        Me.Label8.Size = New System.Drawing.Size(87, 16)
+        Me.Label8.TabIndex = 1940
+        Me.Label8.Text = "Reconciliation"
+        Me.Label8.TextAlign = System.Drawing.ContentAlignment.MiddleRight
+        '
+        '加班_nud
+        '
+        Me.加班_nud.Location = New System.Drawing.Point(87, 29)
+        Me.加班_nud.Maximum = New Decimal(New Integer() {3, 0, 0, 0})
+        Me.加班_nud.Minimum = New Decimal(New Integer() {1, 0, 0, 0})
+        Me.加班_nud.Name = "加班_nud"
+        Me.加班_nud.Size = New System.Drawing.Size(110, 23)
+        Me.加班_nud.TabIndex = 1937
+        Me.加班_nud.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
+        Me.加班_nud.ThousandsSeparator = True
+        Me.加班_nud.Value = New Decimal(New Integer() {1, 0, 0, 0})
+        '
+        'Label7
+        '
+        Me.Label7.BackColor = System.Drawing.Color.Transparent
+        Me.Label7.Location = New System.Drawing.Point(0, 32)
+        Me.Label7.Name = "Label7"
+        Me.Label7.Size = New System.Drawing.Size(87, 16)
+        Me.Label7.TabIndex = 1938
+        Me.Label7.Text = "加班"
+        Me.Label7.TextAlign = System.Drawing.ContentAlignment.MiddleRight
+        '
+        '總數_nud
+        '
+        Me.總數_nud.Location = New System.Drawing.Point(87, 3)
+        Me.總數_nud.Maximum = New Decimal(New Integer() {1410065408, 2, 0, 0})
+        Me.總數_nud.Name = "總數_nud"
+        Me.總數_nud.Size = New System.Drawing.Size(110, 23)
+        Me.總數_nud.TabIndex = 1920
+        Me.總數_nud.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
+        Me.總數_nud.ThousandsSeparator = True
+        '
+        '考勤調整_bt
+        '
+        Me.考勤調整_bt.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.考勤調整_bt.BackgroundImage = Global.Calculator_Backend_SYS.My.Resources.Resources.calc1
+        Me.考勤調整_bt.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
+        Me.考勤調整_bt.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        Me.考勤調整_bt.ForeColor = System.Drawing.Color.DarkGreen
+        Me.考勤調整_bt.Location = New System.Drawing.Point(4, 83)
+        Me.考勤調整_bt.Name = "考勤調整_bt"
+        Me.考勤調整_bt.Size = New System.Drawing.Size(40, 40)
+        Me.考勤調整_bt.TabIndex = 1919
+        Me.考勤調整_bt.UseVisualStyleBackColor = True
+        '
+        'Label1
+        '
+        Me.Label1.BackColor = System.Drawing.Color.Transparent
+        Me.Label1.Location = New System.Drawing.Point(0, 5)
+        Me.Label1.Name = "Label1"
+        Me.Label1.Size = New System.Drawing.Size(87, 16)
+        Me.Label1.TabIndex = 1932
+        Me.Label1.Text = "Maksimum"
+        Me.Label1.TextAlign = System.Drawing.ContentAlignment.MiddleRight
+        '
+        'Label11
+        '
+        Me.Label11.AutoSize = True
+        Me.Label11.Location = New System.Drawing.Point(5, 7)
+        Me.Label11.Name = "Label11"
+        Me.Label11.Size = New System.Drawing.Size(140, 16)
+        Me.Label11.TabIndex = 1375
+        Me.Label11.Text = "Pengaturan Rekonsiliasi"
+        '
+        'CanceL3_bt
+        '
+        Me.CanceL3_bt.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.CanceL3_bt.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(128, Byte), Integer), CType(CType(128, Byte), Integer))
+        Me.CanceL3_bt.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        Me.CanceL3_bt.ForeColor = System.Drawing.Color.Black
+        Me.CanceL3_bt.Location = New System.Drawing.Point(179, 2)
+        Me.CanceL3_bt.Name = "CanceL3_bt"
+        Me.CanceL3_bt.Size = New System.Drawing.Size(26, 26)
+        Me.CanceL3_bt.TabIndex = 1374
+        Me.CanceL3_bt.Text = "X"
+        Me.CanceL3_bt.UseVisualStyleBackColor = False
+        '
+        '合計_dgv
+        '
+        Me.合計_dgv.Anchor = CType(((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left) _
+            Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.合計_dgv.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
+        Me.合計_dgv.BackgroundColor = System.Drawing.Color.White
+        Me.合計_dgv.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D
+        Me.合計_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
+        Me.合計_dgv.Location = New System.Drawing.Point(3, 671)
+        Me.合計_dgv.Name = "合計_dgv"
+        Me.合計_dgv.RowHeadersWidth = 5
+        DataGridViewCellStyle4.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
+        Me.合計_dgv.RowsDefaultCellStyle = DataGridViewCellStyle4
+        Me.合計_dgv.RowTemplate.Height = 24
+        Me.合計_dgv.Size = New System.Drawing.Size(1445, 34)
+        Me.合計_dgv.TabIndex = 1955
+        '
+        '重新讀取_bt
+        '
+        Me.重新讀取_bt.BackgroundImage = Global.Calculator_Backend_SYS.My.Resources.Resources.下載
+        Me.重新讀取_bt.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
+        Me.重新讀取_bt.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        Me.重新讀取_bt.ForeColor = System.Drawing.Color.Blue
+        Me.重新讀取_bt.Location = New System.Drawing.Point(508, 0)
+        Me.重新讀取_bt.Name = "重新讀取_bt"
+        Me.重新讀取_bt.Size = New System.Drawing.Size(35, 35)
+        Me.重新讀取_bt.TabIndex = 1954
+        Me.重新讀取_bt.UseVisualStyleBackColor = True
+        '
+        '縮放2_bt
+        '
+        Me.縮放2_bt.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.縮放2_bt.BackgroundImage = Global.Calculator_Backend_SYS.My.Resources.Resources.ZOOM01
+        Me.縮放2_bt.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
+        Me.縮放2_bt.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        Me.縮放2_bt.ForeColor = System.Drawing.Color.Blue
+        Me.縮放2_bt.Location = New System.Drawing.Point(1377, 0)
+        Me.縮放2_bt.Name = "縮放2_bt"
+        Me.縮放2_bt.Size = New System.Drawing.Size(35, 35)
+        Me.縮放2_bt.TabIndex = 1948
+        Me.縮放2_bt.UseVisualStyleBackColor = True
+        '
+        'Panel2
+        '
+        Me.Panel2.Controls.Add(Me.虛擬表_dgv)
+        Me.Panel2.Controls.Add(Me.休假天數_nud)
+        Me.Panel2.Controls.Add(Me.群組_cb)
+        Me.Panel2.Controls.Add(Me.Label10)
+        Me.Panel2.Controls.Add(Me.平均每天_nud)
+        Me.Panel2.Controls.Add(Me.休假比例_nud)
+        Me.Panel2.Controls.Add(Me.Label6)
+        Me.Panel2.Controls.Add(Me.Label9)
+        Me.Panel2.Controls.Add(Me.設定_bt)
+        Me.Panel2.Controls.Add(Me.可沖天數_nud)
+        Me.Panel2.Controls.Add(Me.Label3)
+        Me.Panel2.Controls.Add(Me.年份2_cb)
+        Me.Panel2.Controls.Add(Me.Label5)
+        Me.Panel2.Controls.Add(Me.月份2_cb)
+        Me.Panel2.Controls.Add(Me.部門_cb)
+        Me.Panel2.Controls.Add(Me.Label4)
+        Me.Panel2.Controls.Add(Me.語轉扭_bt)
+        Me.Panel2.Controls.Add(Me.地區_cb)
+        Me.Panel2.Controls.Add(Me.級別_cb)
+        Me.Panel2.Controls.Add(Me.工人_ch)
+        Me.Panel2.Location = New System.Drawing.Point(146, 128)
+        Me.Panel2.Name = "Panel2"
+        Me.Panel2.Size = New System.Drawing.Size(455, 236)
+        Me.Panel2.TabIndex = 1946
+        '
+        '虛擬表_dgv
+        '
+        Me.虛擬表_dgv.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
+            Or System.Windows.Forms.AnchorStyles.Left) _
+            Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.虛擬表_dgv.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
+        Me.虛擬表_dgv.BackgroundColor = System.Drawing.Color.White
+        Me.虛擬表_dgv.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D
+        Me.虛擬表_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
+        Me.虛擬表_dgv.Location = New System.Drawing.Point(270, 116)
+        Me.虛擬表_dgv.Name = "虛擬表_dgv"
+        Me.虛擬表_dgv.RowHeadersWidth = 5
+        DataGridViewCellStyle5.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
+        Me.虛擬表_dgv.RowsDefaultCellStyle = DataGridViewCellStyle5
+        Me.虛擬表_dgv.RowTemplate.Height = 24
+        Me.虛擬表_dgv.Size = New System.Drawing.Size(176, 103)
+        Me.虛擬表_dgv.TabIndex = 1954
+        '
+        '休假天數_nud
+        '
+        Me.休假天數_nud.Location = New System.Drawing.Point(325, 30)
+        Me.休假天數_nud.Maximum = New Decimal(New Integer() {10000000, 0, 0, 0})
+        Me.休假天數_nud.Name = "休假天數_nud"
+        Me.休假天數_nud.Size = New System.Drawing.Size(127, 23)
+        Me.休假天數_nud.TabIndex = 1943
+        Me.休假天數_nud.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
+        Me.休假天數_nud.ThousandsSeparator = True
+        '
+        '群組_cb
+        '
+        Me.群組_cb.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.群組_cb.DropDownStyle = System.Windows.Forms.ComboBoxStyle.Simple
+        Me.群組_cb.FormattingEnabled = True
+        Me.群組_cb.Items.AddRange(New Object() {"01", "02", "03", "04", "05", "06", "07", "08", "09", "10", "11", "12"})
+        Me.群組_cb.Location = New System.Drawing.Point(42, 203)
+        Me.群組_cb.Name = "群組_cb"
+        Me.群組_cb.Size = New System.Drawing.Size(212, 24)
+        Me.群組_cb.TabIndex = 1951
+        '
+        'Label10
+        '
+        Me.Label10.AutoSize = True
+        Me.Label10.BackColor = System.Drawing.Color.Transparent
+        Me.Label10.Location = New System.Drawing.Point(264, 33)
+        Me.Label10.Name = "Label10"
+        Me.Label10.Size = New System.Drawing.Size(55, 16)
+        Me.Label10.TabIndex = 1944
+        Me.Label10.Text = "休假天數"
+        '
+        '平均每天_nud
+        '
+        Me.平均每天_nud.Location = New System.Drawing.Point(325, 85)
+        Me.平均每天_nud.Maximum = New Decimal(New Integer() {1410065408, 2, 0, 0})
+        Me.平均每天_nud.Name = "平均每天_nud"
+        Me.平均每天_nud.Size = New System.Drawing.Size(127, 23)
+        Me.平均每天_nud.TabIndex = 1935
+        Me.平均每天_nud.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
+        Me.平均每天_nud.ThousandsSeparator = True
+        '
+        '休假比例_nud
+        '
+        Me.休假比例_nud.Location = New System.Drawing.Point(325, 4)
+        Me.休假比例_nud.Name = "休假比例_nud"
+        Me.休假比例_nud.Size = New System.Drawing.Size(127, 23)
+        Me.休假比例_nud.TabIndex = 1941
+        Me.休假比例_nud.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
+        Me.休假比例_nud.ThousandsSeparator = True
+        '
+        'Label6
+        '
+        Me.Label6.AutoSize = True
+        Me.Label6.BackColor = System.Drawing.Color.Transparent
+        Me.Label6.Location = New System.Drawing.Point(264, 88)
+        Me.Label6.Name = "Label6"
+        Me.Label6.Size = New System.Drawing.Size(55, 16)
+        Me.Label6.TabIndex = 1936
+        Me.Label6.Text = "平均每天"
+        '
+        'Label9
+        '
+        Me.Label9.AutoSize = True
+        Me.Label9.BackColor = System.Drawing.Color.Transparent
+        Me.Label9.Location = New System.Drawing.Point(264, 7)
+        Me.Label9.Name = "Label9"
+        Me.Label9.Size = New System.Drawing.Size(55, 16)
+        Me.Label9.TabIndex = 1942
+        Me.Label9.Text = "休假比例"
+        '
+        '設定_bt
+        '
+        Me.設定_bt.BackgroundImage = Global.Calculator_Backend_SYS.My.Resources.Resources.system
+        Me.設定_bt.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
+        Me.設定_bt.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        Me.設定_bt.ForeColor = System.Drawing.Color.Blue
+        Me.設定_bt.Location = New System.Drawing.Point(229, 117)
+        Me.設定_bt.Name = "設定_bt"
+        Me.設定_bt.Size = New System.Drawing.Size(35, 35)
+        Me.設定_bt.TabIndex = 1947
+        Me.設定_bt.UseVisualStyleBackColor = True
+        '
+        '可沖天數_nud
+        '
+        Me.可沖天數_nud.Location = New System.Drawing.Point(325, 58)
+        Me.可沖天數_nud.Maximum = New Decimal(New Integer() {1410065408, 2, 0, 0})
+        Me.可沖天數_nud.Name = "可沖天數_nud"
+        Me.可沖天數_nud.Size = New System.Drawing.Size(127, 23)
+        Me.可沖天數_nud.TabIndex = 1933
+        Me.可沖天數_nud.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
+        Me.可沖天數_nud.ThousandsSeparator = True
+        '
+        'Label3
+        '
+        Me.Label3.AutoSize = True
+        Me.Label3.BackColor = System.Drawing.Color.Transparent
+        Me.Label3.Location = New System.Drawing.Point(264, 61)
+        Me.Label3.Name = "Label3"
+        Me.Label3.Size = New System.Drawing.Size(55, 16)
+        Me.Label3.TabIndex = 1934
+        Me.Label3.Text = "可沖天數"
+        '
+        '年份2_cb
+        '
+        Me.年份2_cb.DropDownStyle = System.Windows.Forms.ComboBoxStyle.Simple
+        Me.年份2_cb.FormattingEnabled = True
+        Me.年份2_cb.Items.AddRange(New Object() {"2019", "2020", "2021", "2022", "2023", "2024", "2025", "2026", "2027", "2028", "2029", "2030"})
+        Me.年份2_cb.Location = New System.Drawing.Point(44, 3)
+        Me.年份2_cb.Name = "年份2_cb"
+        Me.年份2_cb.Size = New System.Drawing.Size(61, 24)
+        Me.年份2_cb.TabIndex = 1932
+        '
+        'Label5
+        '
+        Me.Label5.AutoSize = True
+        Me.Label5.BackColor = System.Drawing.Color.Transparent
+        Me.Label5.Location = New System.Drawing.Point(12, 7)
+        Me.Label5.Name = "Label5"
+        Me.Label5.Size = New System.Drawing.Size(32, 16)
+        Me.Label5.TabIndex = 1930
+        Me.Label5.Text = "Year"
+        '
+        '月份2_cb
+        '
+        Me.月份2_cb.DropDownStyle = System.Windows.Forms.ComboBoxStyle.Simple
+        Me.月份2_cb.FormattingEnabled = True
+        Me.月份2_cb.Items.AddRange(New Object() {"01", "02", "03", "04", "05", "06", "07", "08", "09", "10", "11", "12"})
+        Me.月份2_cb.Location = New System.Drawing.Point(141, 3)
+        Me.月份2_cb.Name = "月份2_cb"
+        Me.月份2_cb.Size = New System.Drawing.Size(46, 24)
+        Me.月份2_cb.TabIndex = 1933
+        '
+        '部門_cb
+        '
+        Me.部門_cb.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
+        Me.部門_cb.FormattingEnabled = True
+        Me.部門_cb.Location = New System.Drawing.Point(30, 59)
+        Me.部門_cb.Name = "部門_cb"
+        Me.部門_cb.Size = New System.Drawing.Size(166, 24)
+        Me.部門_cb.TabIndex = 1921
+        '
+        'Label4
+        '
+        Me.Label4.AutoSize = True
+        Me.Label4.BackColor = System.Drawing.Color.Transparent
+        Me.Label4.Location = New System.Drawing.Point(107, 7)
+        Me.Label4.Name = "Label4"
+        Me.Label4.Size = New System.Drawing.Size(34, 16)
+        Me.Label4.TabIndex = 1931
+        Me.Label4.Text = "Mon"
+        '
+        '語轉扭_bt
+        '
+        Me.語轉扭_bt.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
+        Me.語轉扭_bt.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        Me.語轉扭_bt.ForeColor = System.Drawing.Color.Black
+        Me.語轉扭_bt.Location = New System.Drawing.Point(2, 59)
+        Me.語轉扭_bt.Name = "語轉扭_bt"
+        Me.語轉扭_bt.Size = New System.Drawing.Size(22, 22)
+        Me.語轉扭_bt.TabIndex = 1898
+        Me.語轉扭_bt.Text = "L"
+        Me.語轉扭_bt.UseVisualStyleBackColor = True
+        '
+        '地區_cb
+        '
+        Me.地區_cb.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
+        Me.地區_cb.FormattingEnabled = True
+        Me.地區_cb.Items.AddRange(New Object() {"", "kantor", "Lokasi konstruksi"})
+        Me.地區_cb.Location = New System.Drawing.Point(58, 29)
+        Me.地區_cb.Name = "地區_cb"
+        Me.地區_cb.Size = New System.Drawing.Size(129, 24)
+        Me.地區_cb.TabIndex = 1926
+        '
+        '級別_cb
+        '
+        Me.級別_cb.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
+        Me.級別_cb.FormattingEnabled = True
+        Me.級別_cb.Items.AddRange(New Object() {"01", "02", "03", "04", "05", "06", "07", "08", "09", "10", "11", "12"})
+        Me.級別_cb.Location = New System.Drawing.Point(7, 29)
+        Me.級別_cb.Name = "級別_cb"
+        Me.級別_cb.Size = New System.Drawing.Size(46, 24)
+        Me.級別_cb.TabIndex = 1925
+        '
+        '工人_ch
+        '
+        Me.工人_ch.AutoSize = True
+        Me.工人_ch.BackColor = System.Drawing.Color.Transparent
+        Me.工人_ch.Checked = True
+        Me.工人_ch.CheckState = System.Windows.Forms.CheckState.Checked
+        Me.工人_ch.Location = New System.Drawing.Point(133, 176)
+        Me.工人_ch.Name = "工人_ch"
+        Me.工人_ch.Size = New System.Drawing.Size(131, 20)
+        Me.工人_ch.TabIndex = 1924
+        Me.工人_ch.Text = "Pekerja Sementara"
+        Me.工人_ch.UseVisualStyleBackColor = False
+        '
+        '列印_bt
+        '
+        Me.列印_bt.BackgroundImage = Global.Calculator_Backend_SYS.My.Resources.Resources.print
+        Me.列印_bt.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
+        Me.列印_bt.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        Me.列印_bt.ForeColor = System.Drawing.Color.Blue
+        Me.列印_bt.Location = New System.Drawing.Point(578, 0)
+        Me.列印_bt.Name = "列印_bt"
+        Me.列印_bt.Size = New System.Drawing.Size(35, 35)
+        Me.列印_bt.TabIndex = 1936
+        Me.列印_bt.UseVisualStyleBackColor = True
+        '
+        '存檔_bt
+        '
+        Me.存檔_bt.BackgroundImage = Global.Calculator_Backend_SYS.My.Resources.Resources.SAVER
+        Me.存檔_bt.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
+        Me.存檔_bt.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        Me.存檔_bt.ForeColor = System.Drawing.Color.Blue
+        Me.存檔_bt.Location = New System.Drawing.Point(543, 0)
+        Me.存檔_bt.Name = "存檔_bt"
+        Me.存檔_bt.Size = New System.Drawing.Size(35, 35)
+        Me.存檔_bt.TabIndex = 1935
+        Me.存檔_bt.UseVisualStyleBackColor = True
+        '
+        '系統說明_bt
+        '
+        Me.系統說明_bt.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.系統說明_bt.BackgroundImage = Global.Calculator_Backend_SYS.My.Resources.Resources.question_mark
+        Me.系統說明_bt.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
+        Me.系統說明_bt.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        Me.系統說明_bt.ForeColor = System.Drawing.Color.Blue
+        Me.系統說明_bt.Location = New System.Drawing.Point(1413, 0)
+        Me.系統說明_bt.Name = "系統說明_bt"
+        Me.系統說明_bt.Size = New System.Drawing.Size(35, 35)
+        Me.系統說明_bt.TabIndex = 1934
+        Me.系統說明_bt.UseVisualStyleBackColor = True
+        '
+        '人員薪資
+        '
+        Me.AutoScaleDimensions = New System.Drawing.SizeF(7.0!, 16.0!)
+        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
+        Me.ClientSize = New System.Drawing.Size(1451, 707)
+        Me.Controls.Add(Me.合計_dgv)
+        Me.Controls.Add(Me.重新讀取_bt)
+        Me.Controls.Add(Me.視窗3_pl)
+        Me.Controls.Add(Me.群組1_cb)
+        Me.Controls.Add(Me.薪資表_bt)
+        Me.Controls.Add(Me.星7_bt)
+        Me.Controls.Add(Me.考勤表_bt)
+        Me.Controls.Add(Me.縮放2_bt)
+        Me.Controls.Add(Me.Panel2)
+        Me.Controls.Add(Me.DA3_bt)
+        Me.Controls.Add(Me.DA2_bt)
+        Me.Controls.Add(Me.DA1_bt)
+        Me.Controls.Add(Me.星6_bt)
+        Me.Controls.Add(Me.結束日期_dtp)
+        Me.Controls.Add(Me.星5_bt)
+        Me.Controls.Add(Me.開始日期_dtp)
+        Me.Controls.Add(Me.星4_bt)
+        Me.Controls.Add(Me.群組選擇_ch)
+        Me.Controls.Add(Me.群組輸入_ch)
+        Me.Controls.Add(Me.星3_bt)
+        Me.Controls.Add(Me.列印_bt)
+        Me.Controls.Add(Me.星2_bt)
+        Me.Controls.Add(Me.存檔_bt)
+        Me.Controls.Add(Me.系統說明_bt)
+        Me.Controls.Add(Me.星1_bt)
+        Me.Controls.Add(Me.Label2)
+        Me.Controls.Add(Me.清單1_dgv)
+        Me.Controls.Add(Me.總清單_dgv)
+        Me.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        Me.Margin = New System.Windows.Forms.Padding(4)
+        Me.MaximizeBox = False
+        Me.MinimizeBox = False
+        Me.Name = "人員薪資"
+        Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
+        Me.Text = "人員薪資"
+        CType(Me.清單1_dgv, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.總清單_dgv, System.ComponentModel.ISupportInitialize).EndInit()
+        Me.視窗3_pl.ResumeLayout(False)
+        Me.視窗3_pl.PerformLayout()
+        Me.Panel4.ResumeLayout(False)
+        CType(Me.沖帳金額_nud, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.加班_nud, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.總數_nud, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.合計_dgv, System.ComponentModel.ISupportInitialize).EndInit()
+        Me.Panel2.ResumeLayout(False)
+        Me.Panel2.PerformLayout()
+        CType(Me.虛擬表_dgv, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.休假天數_nud, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.平均每天_nud, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.休假比例_nud, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.可沖天數_nud, System.ComponentModel.ISupportInitialize).EndInit()
+        Me.ResumeLayout(False)
+        Me.PerformLayout()
+
+    End Sub
+    Friend WithEvents 清單1_dgv As DataGridView
+    Friend WithEvents 工人_ch As CheckBox
+    Friend WithEvents 地區_cb As ComboBox
+    Friend WithEvents 級別_cb As ComboBox
+    Friend WithEvents 語轉扭_bt As Button
+    Friend WithEvents 部門_cb As ComboBox
+    Friend WithEvents 總清單_dgv As DataGridView
+    Friend WithEvents Label4 As Label
+    Friend WithEvents 月份2_cb As ComboBox
+    Friend WithEvents Label5 As Label
+    Friend WithEvents 年份2_cb As ComboBox
+    Friend WithEvents 系統說明_bt As Button
+    Friend WithEvents 存檔_bt As Button
+    Friend WithEvents 列印_bt As Button
+    Friend WithEvents 群組輸入_ch As CheckBox
+    Friend WithEvents 群組選擇_ch As CheckBox
+    Friend WithEvents Label2 As Label
+    Friend WithEvents 結束日期_dtp As DateTimePicker
+    Friend WithEvents 開始日期_dtp As DateTimePicker
+    Friend WithEvents DA3_bt As Button
+    Friend WithEvents DA2_bt As Button
+    Friend WithEvents DA1_bt As Button
+    Friend WithEvents Panel2 As Panel
+    Friend WithEvents 設定_bt As Button
+    Friend WithEvents 縮放2_bt As Button
+    Friend WithEvents 星7_bt As TextBox
+    Friend WithEvents 星6_bt As TextBox
+    Friend WithEvents 星5_bt As TextBox
+    Friend WithEvents 星4_bt As TextBox
+    Friend WithEvents 星3_bt As TextBox
+    Friend WithEvents 星2_bt As TextBox
+    Friend WithEvents 星1_bt As TextBox
+    Friend WithEvents 薪資表_bt As Button
+    Friend WithEvents 考勤表_bt As Button
+    Friend WithEvents 群組_cb As ComboBox
+    Friend WithEvents 群組1_cb As ComboBox
+    Friend WithEvents 視窗3_pl As Panel
+    Friend WithEvents Panel4 As Panel
+    Friend WithEvents 考勤調整_bt As Button
+    Friend WithEvents Label11 As Label
+    Friend WithEvents CanceL3_bt As Button
+    Friend WithEvents 總數_nud As NumericUpDown
+    Friend WithEvents Label1 As Label
+    Friend WithEvents 平均每天_nud As NumericUpDown
+    Friend WithEvents Label6 As Label
+    Friend WithEvents 可沖天數_nud As NumericUpDown
+    Friend WithEvents Label3 As Label
+    Friend WithEvents 加班_nud As NumericUpDown
+    Friend WithEvents Label7 As Label
+    Friend WithEvents 沖帳金額_nud As NumericUpDown
+    Friend WithEvents Label8 As Label
+    Friend WithEvents 休假比例_nud As NumericUpDown
+    Friend WithEvents Label9 As Label
+    Friend WithEvents 休假天數_nud As NumericUpDown
+    Friend WithEvents Label10 As Label
+    Friend WithEvents 清除_bt As Button
+    Friend WithEvents 虛擬存檔_bt As Button
+    Friend WithEvents 虛擬表_dgv As DataGridView
+    Friend WithEvents 重新讀取_bt As Button
+    Friend WithEvents 合計_dgv As DataGridView
+End Class

Calculator-Backend-SYS/人員薪資/人員薪資_沖帳.resx

@@ -0,0 +1,123 @@
+<?xml version="1.0" encoding="utf-8"?>
+<root>
+  <!-- 
+    Microsoft ResX Schema 
+    
+    Version 2.0
+    
+    The primary goals of this format is to allow a simple XML format 
+    that is mostly human readable. The generation and parsing of the 
+    various data types are done through the TypeConverter classes 
+    associated with the data types.
+    
+    Example:
+    
+    ... ado.net/XML headers & schema ...
+    <resheader name="resmimetype">text/microsoft-resx</resheader>
+    <resheader name="version">2.0</resheader>
+    <resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
+    <resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
+    <data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
+    <data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
+    <data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
+        <value>[base64 mime encoded serialized .NET Framework object]</value>
+    </data>
+    <data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+        <value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
+        <comment>This is a comment</comment>
+    </data>
+                
+    There are any number of "resheader" rows that contain simple 
+    name/value pairs.
+    
+    Each data row contains a name, and value. The row also contains a 
+    type or mimetype. Type corresponds to a .NET class that support 
+    text/value conversion through the TypeConverter architecture. 
+    Classes that don't support this are serialized and stored with the 
+    mimetype set.
+    
+    The mimetype is used for serialized objects, and tells the 
+    ResXResourceReader how to depersist the object. This is currently not 
+    extensible. For a given mimetype the value must be set accordingly:
+    
+    Note - application/x-microsoft.net.object.binary.base64 is the format 
+    that the ResXResourceWriter will generate, however the reader can 
+    read any of the formats listed below.
+    
+    mimetype: application/x-microsoft.net.object.binary.base64
+    value   : The object must be serialized with 
+            : System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
+            : and then encoded with base64 encoding.
+    
+    mimetype: application/x-microsoft.net.object.soap.base64
+    value   : The object must be serialized with 
+            : System.Runtime.Serialization.Formatters.Soap.SoapFormatter
+            : and then encoded with base64 encoding.
+
+    mimetype: application/x-microsoft.net.object.bytearray.base64
+    value   : The object must be serialized into a byte array 
+            : using a System.ComponentModel.TypeConverter
+            : and then encoded with base64 encoding.
+    -->
+  <xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
+    <xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
+    <xsd:element name="root" msdata:IsDataSet="true">
+      <xsd:complexType>
+        <xsd:choice maxOccurs="unbounded">
+          <xsd:element name="metadata">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" />
+              </xsd:sequence>
+              <xsd:attribute name="name" use="required" type="xsd:string" />
+              <xsd:attribute name="type" type="xsd:string" />
+              <xsd:attribute name="mimetype" type="xsd:string" />
+              <xsd:attribute ref="xml:space" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="assembly">
+            <xsd:complexType>
+              <xsd:attribute name="alias" type="xsd:string" />
+              <xsd:attribute name="name" type="xsd:string" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="data">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+                <xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
+              </xsd:sequence>
+              <xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
+              <xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
+              <xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
+              <xsd:attribute ref="xml:space" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="resheader">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+              </xsd:sequence>
+              <xsd:attribute name="name" type="xsd:string" use="required" />
+            </xsd:complexType>
+          </xsd:element>
+        </xsd:choice>
+      </xsd:complexType>
+    </xsd:element>
+  </xsd:schema>
+  <resheader name="resmimetype">
+    <value>text/microsoft-resx</value>
+  </resheader>
+  <resheader name="version">
+    <value>2.0</value>
+  </resheader>
+  <resheader name="reader">
+    <value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+  </resheader>
+  <resheader name="writer">
+    <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+  </resheader>
+  <metadata name="$this.TrayHeight" type="System.Int32, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
+    <value>27</value>
+  </metadata>
+</root>

Calculator-Backend-SYS/全域變數.vb

@@ -0,0 +1,26 @@
+Module 全域變數
+    Public 登入人IP1, Line通訊IP, Line伺服器名稱, DTP, 介面, 登入人級別 As String
+    Public 登入人IP2 As String = "106.1.48.106,4567" : Public 語言 As String = "CH" : Public 系統語言 As String = "系統語言"
+    Public ConString_T, ConString1_T, ConString2_T, ConString3_T, ConString, ConString1, ConString2, ConString3, ConString4 As String
+    Public 系統語言字典 As New Dictionary(Of String, String)()
+    Public 表頭(200), 合約試算表頭(40) As String
+    Public PA, PA1, PA2, PA3, PA4, PA5, PA6, PA7, PA8, PA9, PA10, PA11, PA12, PA13, PA14, PA15, PA16, PA17, PA18, PA19, PA20, PA21, PA22, PA23, PA24, PA25, PA26, PA27, PA28, PA29, PA30,
+       PA31, PA32, PA33, PA34, PA35, PA36, PA37, PA38, PA39, PA40, PA41, PA42, PA43, PA44, PA45, PA46, PA47, PA48, PA49, PA50, PPAA As String
+    Public 判斷重登, 重登確認, 主頁開啟, 首次開啟, 物料查詢, 深色風格, 不刪除檔案, 跨部門開啟, 在職, 工人, BL As Boolean
+    Public PPBB(3000), 指定會科 As String
+    Public 分段1, 分段2, 分段3, 分段4, NU1, NU2, NU3, NU4, NU5, NN1, 實際工資計算完成, 沖帳工資計算完成, 工作狀態計算完成 As Double
+    Public Sub CB選擇清單(ByVal 輸入cb As ComboBox, Optional ByVal 原來值 As String = "")
+        Dim 原來的 As String = 原來值
+        For I As Integer = 0 To 3000 : PPBB(I) = "" : Next
+        For I As Integer = 0 To 輸入cb.Items.Count - 1 : PPBB(I) = 輸入cb.Items(I).ToString : NN1 = I : Next
+        If 輸入cb.Items.Count < 23 Then : 下拉清單_2.ShowDialog() : Else : 下拉清單_1.ShowDialog() : End If
+        If PPAA = "" Then : 輸入cb.Text = 原來的
+        Else : 輸入cb.Text = PPAA : End If
+    End Sub
+    Public Sub CB選擇清單_可選空白(ByVal 輸入cb As ComboBox)
+        For I As Integer = 0 To 3000 : PPBB(I) = "" : Next
+        For I As Integer = 0 To 輸入cb.Items.Count - 1 : PPBB(I) = 輸入cb.Items(I).ToString : NN1 = I : Next
+        If 輸入cb.Items.Count < 23 Then : 下拉清單_2.ShowDialog() : Else : 下拉清單_1.ShowDialog() : End If
+        輸入cb.Text = PPAA
+    End Sub
+End Module