HX-PGS-ERP-SYS-SIU/0、MyModule/主資料庫/SQL_資料庫系統管理.vb

Module SQL_資料庫系統管理
    '---------------------新增權限時需修改區-----------------------------------------------------------------------------------------------------------------
    Friend Sub SQL_系統權限預設表_新增()
        SQL1 = "INSERT INTO 系統權限預設表 (職稱, " & 系統權限 & ") VALUES (N'" & 系統組織架構設定.職稱_tb.Text & "', 
                                    N'0', N'0', N'0', N'0', N'0', N'0', N'0', N'0', N'0', N'0', N'0', N'0', N'0', N'0', N'0', N'0', N'0', N'0', N'0', N'0', N'0', N'0', N'0', N'0', N'0', N'0', 
                                    N'0', N'0', N'0', N'0', N'0', N'0', N'0', N'0', N'0', N'0', N'0', N'0', N'0', N'0', N'0', N'0', N'0', N'0', N'0', N'0', N'0', N'0', N'0', N'0', N'0', N'0', 
                                    N'0', N'0', N'0', N'0', N'0', N'0', N'0', N'0', N'0', N'0', N'0', N'0', N'0', N'0', N'0', N'0', N'0', N'0', N'0', N'0', N'0', N'0', N'0', N'0', N'0', N'0', 
                                    N'0', N'0', N'0', N'0', N'0', N'0', N'0', N'0', N'0', N'0', N'0', N'0', N'0', N'0', N'0', N'0', N'0', N'0', N'0', N'0', N'0', N'0', N'0', N'0', N'0', N'0', 
                                    N'0', N'0', N'0', N'0', N'0', N'0', N'0', N'0', N'0', N'0', N'0', N'0', N'0', N'0', N'0', N'0', N'0', N'0', N'0', N'0', N'0', N'0', N'0', N'0')"
        '                     1     2     3     4     5     6     7     8     9    10    11    12    13    14    15    16    17    18    19    20    21    22    23    24    25    26
        '                  26*4+24 = 1228
    End Sub
    Friend Sub SQL_系統使用者新增()
        ConnOpen()
        SQL1 = "INSERT INTO 使用者權限管理表 (" & 登入權限1 & ") 
                VALUES (N'" & 系統使用者管理.姓名_tb.Text & "', N'" & 系統使用者管理.帳號_tb.Text & "', N'" & 系統使用者管理.密碼_tb.Text & "', N'" & 系統使用者管理.部門_cb.Text & "',
                        N'" & 系統使用者管理.處別_cb.Text & "', N'" & 系統使用者管理.課別_cb.Text & "', N'" & 系統使用者管理.組別_cb.Text & "', N'" & 系統使用者管理.職稱_cb.Text & "', 
                        N'" & DTP & "', '', N'" & 系統使用者管理.NAS帳號_tb.Text & "', N'" & 系統使用者管理.NAS密碼_tb.Text & "', 
               '" & 系統使用者管理.CheckBox1.Checked & "', '" & 系統使用者管理.CheckBox2.Checked & "', '" & 系統使用者管理.CheckBox3.Checked & "', '" & 系統使用者管理.CheckBox4.Checked &
           "', '" & 系統使用者管理.CheckBox5.Checked & "', '" & 系統使用者管理.CheckBox6.Checked & "', '" & 系統使用者管理.CheckBox7.Checked & "', '" & 系統使用者管理.CheckBox8.Checked &
           "', '" & 系統使用者管理.CheckBox9.Checked & "', '" & 系統使用者管理.CheckBox10.Checked & "', '" & 系統使用者管理.CheckBox11.Checked & "', '" & 系統使用者管理.CheckBox12.Checked &
          "', '" & 系統使用者管理.CheckBox13.Checked & "', '" & 系統使用者管理.CheckBox14.Checked & "', '" & 系統使用者管理.CheckBox15.Checked & "', '" & 系統使用者管理.CheckBox16.Checked &
          "', '" & 系統使用者管理.CheckBox17.Checked & "', '" & 系統使用者管理.CheckBox18.Checked & "', '" & 系統使用者管理.CheckBox19.Checked & "', '" & 系統使用者管理.CheckBox20.Checked &
          "', '" & 系統使用者管理.CheckBox21.Checked & "', '" & 系統使用者管理.CheckBox22.Checked & "', '" & 系統使用者管理.CheckBox23.Checked & "', '" & 系統使用者管理.CheckBox24.Checked &
          "', '" & 系統使用者管理.CheckBox25.Checked & "', '" & 系統使用者管理.CheckBox26.Checked & "', '" & 系統使用者管理.CheckBox27.Checked & "', '" & 系統使用者管理.CheckBox28.Checked &
          "', '" & 系統使用者管理.CheckBox29.Checked & "', '" & 系統使用者管理.CheckBox30.Checked & "', '" & 系統使用者管理.CheckBox31.Checked & "', '" & 系統使用者管理.CheckBox32.Checked &
          "', '" & 系統使用者管理.CheckBox33.Checked & "', '" & 系統使用者管理.CheckBox34.Checked & "', '" & 系統使用者管理.CheckBox35.Checked & "', '" & 系統使用者管理.CheckBox36.Checked &
          "', '" & 系統使用者管理.CheckBox37.Checked & "', '" & 系統使用者管理.CheckBox38.Checked & "', '" & 系統使用者管理.CheckBox39.Checked & "', '" & 系統使用者管理.CheckBox40.Checked &
          "', '" & 系統使用者管理.CheckBox41.Checked & "', '" & 系統使用者管理.CheckBox42.Checked & "', '" & 系統使用者管理.CheckBox43.Checked & "', '" & 系統使用者管理.CheckBox44.Checked &
          "', '" & 系統使用者管理.CheckBox45.Checked & "', '" & 系統使用者管理.CheckBox46.Checked & "', '" & 系統使用者管理.CheckBox47.Checked & "', '" & 系統使用者管理.CheckBox48.Checked &
          "', '" & 系統使用者管理.CheckBox49.Checked & "', '" & 系統使用者管理.CheckBox50.Checked & "', '" & 系統使用者管理.CheckBox51.Checked & "', '" & 系統使用者管理.CheckBox52.Checked &
          "', '" & 系統使用者管理.CheckBox53.Checked & "', '" & 系統使用者管理.CheckBox54.Checked & "', '" & 系統使用者管理.CheckBox55.Checked & "', '" & 系統使用者管理.CheckBox56.Checked &
          "', '" & 系統使用者管理.CheckBox57.Checked & "', '" & 系統使用者管理.CheckBox58.Checked & "', '" & 系統使用者管理.CheckBox59.Checked & "', '" & 系統使用者管理.CheckBox60.Checked &
          "', '" & 系統使用者管理.CheckBox61.Checked & "', '" & 系統使用者管理.CheckBox62.Checked & "', '" & 系統使用者管理.CheckBox63.Checked & "', '" & 系統使用者管理.CheckBox64.Checked &
          "', '" & 系統使用者管理.CheckBox65.Checked & "', '" & 系統使用者管理.CheckBox66.Checked & "', '" & 系統使用者管理.CheckBox67.Checked & "', '" & 系統使用者管理.CheckBox68.Checked &
          "', '" & 系統使用者管理.CheckBox69.Checked & "', '" & 系統使用者管理.CheckBox70.Checked & "', '" & 系統使用者管理.CheckBox71.Checked & "', '" & 系統使用者管理.CheckBox72.Checked &
          "', '" & 系統使用者管理.CheckBox73.Checked & "', '" & 系統使用者管理.CheckBox74.Checked & "', '" & 系統使用者管理.CheckBox75.Checked & "', '" & 系統使用者管理.CheckBox76.Checked &
          "', '" & 系統使用者管理.CheckBox77.Checked & "', '" & 系統使用者管理.CheckBox78.Checked & "', '" & 系統使用者管理.CheckBox79.Checked & "', '" & 系統使用者管理.CheckBox80.Checked &
          "', '" & 系統使用者管理.CheckBox81.Checked & "', '" & 系統使用者管理.CheckBox82.Checked & "', '" & 系統使用者管理.CheckBox83.Checked & "', '" & 系統使用者管理.CheckBox84.Checked &
          "', '" & 系統使用者管理.CheckBox85.Checked & "', '" & 系統使用者管理.CheckBox86.Checked & "', '" & 系統使用者管理.CheckBox87.Checked & "', '" & 系統使用者管理.CheckBox88.Checked &
          "', '" & 系統使用者管理.CheckBox89.Checked & "', '" & 系統使用者管理.CheckBox90.Checked & "', '" & 系統使用者管理.CheckBox91.Checked & "', '" & 系統使用者管理.CheckBox92.Checked &
          "', '" & 系統使用者管理.CheckBox93.Checked & "', '" & 系統使用者管理.CheckBox94.Checked & "', '" & 系統使用者管理.CheckBox95.Checked & "', '" & 系統使用者管理.CheckBox96.Checked &
          "', '" & 系統使用者管理.CheckBox97.Checked & "', '" & 系統使用者管理.CheckBox98.Checked & "', '" & 系統使用者管理.CheckBox99.Checked & "', '" & 系統使用者管理.CheckBox100.Checked &
          "', '" & 系統使用者管理.CheckBox101.Checked & "', '" & 系統使用者管理.CheckBox102.Checked & "', '" & 系統使用者管理.CheckBox103.Checked & "', '" & 系統使用者管理.CheckBox104.Checked &
          "', '" & 系統使用者管理.CheckBox105.Checked & "', '" & 系統使用者管理.CheckBox106.Checked & "', '" & 系統使用者管理.CheckBox107.Checked & "', '" & 系統使用者管理.CheckBox108.Checked &
          "', '" & 系統使用者管理.CheckBox109.Checked & "', '" & 系統使用者管理.CheckBox110.Checked & "', '" & 系統使用者管理.CheckBox111.Checked & "', '" & 系統使用者管理.CheckBox112.Checked &
          "', '" & 系統使用者管理.CheckBox113.Checked & "', '" & 系統使用者管理.CheckBox114.Checked & "', '" & 系統使用者管理.CheckBox115.Checked & "', '" & 系統使用者管理.CheckBox116.Checked &
          "', '" & 系統使用者管理.CheckBox117.Checked & "', '" & 系統使用者管理.CheckBox118.Checked & "', '" & 系統使用者管理.CheckBox119.Checked & "', '" & 系統使用者管理.CheckBox120.Checked &
          "', '" & 系統使用者管理.CheckBox121.Checked & "', '" & 系統使用者管理.CheckBox122.Checked & "', '" & 系統使用者管理.CheckBox123.Checked & "', '" & 系統使用者管理.CheckBox124.Checked &
          "', '" & 系統使用者管理.CheckBox125.Checked & "', '" & 系統使用者管理.CheckBox126.Checked & "', '" & 系統使用者管理.CheckBox127.Checked & "', '" & 系統使用者管理.CheckBox128.Checked & "')"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_系統使用者新增1()
        ConnOpen()
        SQL1 = "INSERT INTO 使用者權限管理表 (" & 登入權限1 & ") 
                VALUES (N'" & 人員基本資料.姓名_tb.Text & "', N'" & 人員基本資料.帳號_tb.Text & "', N'" & 人員基本資料.密碼_tb.Text & "', N'" & 人員基本資料.部門_cb.Text & "',
                        N'" & 人員基本資料.處別_cb.Text & "', N'" & 人員基本資料.課別_cb.Text & "', N'" & 人員基本資料.組別_cb.Text & "', N'" & 人員基本資料.職稱_cb.Text & "', 
                        N'" & DTP & "', '', N'" & 人員基本資料.NAS帳號_tb.Text & "', N'" & 人員基本資料.NAS密碼_tb.Text & "', 
               '" & 人員基本資料.CheckBox1.Checked & "', '" & 人員基本資料.CheckBox2.Checked & "', '" & 人員基本資料.CheckBox3.Checked & "', '" & 人員基本資料.CheckBox4.Checked &
           "', '" & 人員基本資料.CheckBox5.Checked & "', '" & 人員基本資料.CheckBox6.Checked & "', '" & 人員基本資料.CheckBox7.Checked & "', '" & 人員基本資料.CheckBox8.Checked &
           "', '" & 人員基本資料.CheckBox9.Checked & "', '" & 人員基本資料.CheckBox10.Checked & "', '" & 人員基本資料.CheckBox11.Checked & "', '" & 人員基本資料.CheckBox12.Checked &
          "', '" & 人員基本資料.CheckBox13.Checked & "', '" & 人員基本資料.CheckBox14.Checked & "', '" & 人員基本資料.CheckBox15.Checked & "', '" & 人員基本資料.CheckBox16.Checked &
          "', '" & 人員基本資料.CheckBox17.Checked & "', '" & 人員基本資料.CheckBox18.Checked & "', '" & 人員基本資料.CheckBox19.Checked & "', '" & 人員基本資料.CheckBox20.Checked &
          "', '" & 人員基本資料.CheckBox21.Checked & "', '" & 人員基本資料.CheckBox22.Checked & "', '" & 人員基本資料.CheckBox23.Checked & "', '" & 人員基本資料.CheckBox24.Checked &
          "', '" & 人員基本資料.CheckBox25.Checked & "', '" & 人員基本資料.CheckBox26.Checked & "', '" & 人員基本資料.CheckBox27.Checked & "', '" & 人員基本資料.CheckBox28.Checked &
          "', '" & 人員基本資料.CheckBox29.Checked & "', '" & 人員基本資料.CheckBox30.Checked & "', '" & 人員基本資料.CheckBox31.Checked & "', '" & 人員基本資料.CheckBox32.Checked &
          "', '" & 人員基本資料.CheckBox33.Checked & "', '" & 人員基本資料.CheckBox34.Checked & "', '" & 人員基本資料.CheckBox35.Checked & "', '" & 人員基本資料.CheckBox36.Checked &
          "', '" & 人員基本資料.CheckBox37.Checked & "', '" & 人員基本資料.CheckBox38.Checked & "', '" & 人員基本資料.CheckBox39.Checked & "', '" & 人員基本資料.CheckBox40.Checked &
          "', '" & 人員基本資料.CheckBox41.Checked & "', '" & 人員基本資料.CheckBox42.Checked & "', '" & 人員基本資料.CheckBox43.Checked & "', '" & 人員基本資料.CheckBox44.Checked &
          "', '" & 人員基本資料.CheckBox45.Checked & "', '" & 人員基本資料.CheckBox46.Checked & "', '" & 人員基本資料.CheckBox47.Checked & "', '" & 人員基本資料.CheckBox48.Checked &
          "', '" & 人員基本資料.CheckBox49.Checked & "', '" & 人員基本資料.CheckBox50.Checked & "', '" & 人員基本資料.CheckBox51.Checked & "', '" & 人員基本資料.CheckBox52.Checked &
          "', '" & 人員基本資料.CheckBox53.Checked & "', '" & 人員基本資料.CheckBox54.Checked & "', '" & 人員基本資料.CheckBox55.Checked & "', '" & 人員基本資料.CheckBox56.Checked &
          "', '" & 人員基本資料.CheckBox57.Checked & "', '" & 人員基本資料.CheckBox58.Checked & "', '" & 人員基本資料.CheckBox59.Checked & "', '" & 人員基本資料.CheckBox60.Checked &
          "', '" & 人員基本資料.CheckBox61.Checked & "', '" & 人員基本資料.CheckBox62.Checked & "', '" & 人員基本資料.CheckBox63.Checked & "', '" & 人員基本資料.CheckBox64.Checked &
          "', '" & 人員基本資料.CheckBox65.Checked & "', '" & 人員基本資料.CheckBox66.Checked & "', '" & 人員基本資料.CheckBox67.Checked & "', '" & 人員基本資料.CheckBox68.Checked &
          "', '" & 人員基本資料.CheckBox69.Checked & "', '" & 人員基本資料.CheckBox70.Checked & "', '" & 人員基本資料.CheckBox71.Checked & "', '" & 人員基本資料.CheckBox72.Checked &
          "', '" & 人員基本資料.CheckBox73.Checked & "', '" & 人員基本資料.CheckBox74.Checked & "', '" & 人員基本資料.CheckBox75.Checked & "', '" & 人員基本資料.CheckBox76.Checked &
          "', '" & 人員基本資料.CheckBox77.Checked & "', '" & 人員基本資料.CheckBox78.Checked & "', '" & 人員基本資料.CheckBox79.Checked & "', '" & 人員基本資料.CheckBox80.Checked &
          "', '" & 人員基本資料.CheckBox81.Checked & "', '" & 人員基本資料.CheckBox82.Checked & "', '" & 人員基本資料.CheckBox83.Checked & "', '" & 人員基本資料.CheckBox84.Checked &
          "', '" & 人員基本資料.CheckBox85.Checked & "', '" & 人員基本資料.CheckBox86.Checked & "', '" & 人員基本資料.CheckBox87.Checked & "', '" & 人員基本資料.CheckBox88.Checked &
          "', '" & 人員基本資料.CheckBox89.Checked & "', '" & 人員基本資料.CheckBox90.Checked & "', '" & 人員基本資料.CheckBox91.Checked & "', '" & 人員基本資料.CheckBox92.Checked &
          "', '" & 人員基本資料.CheckBox93.Checked & "', '" & 人員基本資料.CheckBox94.Checked & "', '" & 人員基本資料.CheckBox95.Checked & "', '" & 人員基本資料.CheckBox96.Checked &
          "', '" & 人員基本資料.CheckBox97.Checked & "', '" & 人員基本資料.CheckBox98.Checked & "', '" & 人員基本資料.CheckBox99.Checked & "', '" & 人員基本資料.CheckBox100.Checked &
          "', '" & 人員基本資料.CheckBox101.Checked & "', '" & 人員基本資料.CheckBox102.Checked & "', '" & 人員基本資料.CheckBox103.Checked & "', '" & 人員基本資料.CheckBox104.Checked &
          "', '" & 人員基本資料.CheckBox105.Checked & "', '" & 人員基本資料.CheckBox106.Checked & "', '" & 人員基本資料.CheckBox107.Checked & "', '" & 人員基本資料.CheckBox108.Checked &
          "', '" & 人員基本資料.CheckBox109.Checked & "', '" & 人員基本資料.CheckBox110.Checked & "', '" & 人員基本資料.CheckBox111.Checked & "', '" & 人員基本資料.CheckBox112.Checked &
          "', '" & 人員基本資料.CheckBox113.Checked & "', '" & 人員基本資料.CheckBox114.Checked & "', '" & 人員基本資料.CheckBox115.Checked & "', '" & 人員基本資料.CheckBox116.Checked &
          "', '" & 人員基本資料.CheckBox117.Checked & "', '" & 人員基本資料.CheckBox118.Checked & "', '" & 人員基本資料.CheckBox119.Checked & "', '" & 人員基本資料.CheckBox120.Checked &
          "', '" & 人員基本資料.CheckBox121.Checked & "', '" & 人員基本資料.CheckBox122.Checked & "', '" & 人員基本資料.CheckBox123.Checked & "', '" & 人員基本資料.CheckBox124.Checked &
          "', '" & 人員基本資料.CheckBox125.Checked & "', '" & 人員基本資料.CheckBox126.Checked & "', '" & 人員基本資料.CheckBox127.Checked & "', '" & 人員基本資料.CheckBox128.Checked & "')"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_系統使用者修改()
        ConnOpen()
        SQL1 = "UPDATE 使用者權限管理表 SET 姓名 = N'" & 系統使用者管理.姓名_tb.Text & "'" & PA9 & ", 部門 = N'" & 系統使用者管理.部門_cb.Text & "', 
                                            處別 = N'" & 系統使用者管理.處別_cb.Text & "', 課別 = N'" & 系統使用者管理.課別_cb.Text & "', 
                                            組別 = N'" & 系統使用者管理.組別_cb.Text & "', 職稱 = N'" & 系統使用者管理.職稱_cb.Text & "', 
                                            級別 = N'" & 系統使用者管理.級別_cb.Text & "', NAS帳號 = N'" & 系統使用者管理.NAS帳號_tb.Text & "', 
                                            NAS密碼 = N'" & 系統使用者管理.NAS密碼_tb.Text &
               "', CC01 = '" & 系統使用者管理.CheckBox1.Checked & "', CC02 = '" & 系統使用者管理.CheckBox2.Checked & "', CC03 = '" & 系統使用者管理.CheckBox3.Checked &
               "', CC04 = '" & 系統使用者管理.CheckBox4.Checked & "', CC05 = '" & 系統使用者管理.CheckBox5.Checked & "', CC06 = '" & 系統使用者管理.CheckBox6.Checked &
               "', CC07 = '" & 系統使用者管理.CheckBox7.Checked & "', CC08 = '" & 系統使用者管理.CheckBox8.Checked & "', CC09 = '" & 系統使用者管理.CheckBox9.Checked &
               "', CC10 = '" & 系統使用者管理.CheckBox10.Checked & "', CC11 = '" & 系統使用者管理.CheckBox11.Checked & "', CC12 = '" & 系統使用者管理.CheckBox12.Checked &
               "', CC13 = '" & 系統使用者管理.CheckBox13.Checked & "', CC14 = '" & 系統使用者管理.CheckBox14.Checked & "', CC15 = '" & 系統使用者管理.CheckBox15.Checked &
               "', CC16 = '" & 系統使用者管理.CheckBox16.Checked & "', CC17 = '" & 系統使用者管理.CheckBox17.Checked & "', CC18 = '" & 系統使用者管理.CheckBox18.Checked &
               "', CC19 = '" & 系統使用者管理.CheckBox19.Checked & "', CC20 = '" & 系統使用者管理.CheckBox20.Checked & "', CC21 = '" & 系統使用者管理.CheckBox21.Checked &
               "', CC22 = '" & 系統使用者管理.CheckBox22.Checked & "', CC23 = '" & 系統使用者管理.CheckBox23.Checked & "', CC24 = '" & 系統使用者管理.CheckBox24.Checked &
               "', CC25 = '" & 系統使用者管理.CheckBox25.Checked & "', CC26 = '" & 系統使用者管理.CheckBox26.Checked & "', CC27 = '" & 系統使用者管理.CheckBox27.Checked &
               "', CC28 = '" & 系統使用者管理.CheckBox28.Checked & "', CC29 = '" & 系統使用者管理.CheckBox29.Checked & "', CC30 = '" & 系統使用者管理.CheckBox30.Checked &
               "', CC31 = '" & 系統使用者管理.CheckBox31.Checked & "', CC32 = '" & 系統使用者管理.CheckBox32.Checked & "', CC33 = '" & 系統使用者管理.CheckBox33.Checked &
               "', CC34 = '" & 系統使用者管理.CheckBox34.Checked & "', CC35 = '" & 系統使用者管理.CheckBox35.Checked & "', CC36 = '" & 系統使用者管理.CheckBox36.Checked &
               "', CC37 = '" & 系統使用者管理.CheckBox37.Checked & "', CC38 = '" & 系統使用者管理.CheckBox38.Checked & "', CC39 = '" & 系統使用者管理.CheckBox39.Checked &
               "', CC40 = '" & 系統使用者管理.CheckBox40.Checked & "', CC41 = '" & 系統使用者管理.CheckBox41.Checked & "', CC42 = '" & 系統使用者管理.CheckBox42.Checked &
               "', CC43 = '" & 系統使用者管理.CheckBox43.Checked & "', CC44 = '" & 系統使用者管理.CheckBox44.Checked & "', CC45 = '" & 系統使用者管理.CheckBox45.Checked &
               "', CC46 = '" & 系統使用者管理.CheckBox46.Checked & "', CC47 = '" & 系統使用者管理.CheckBox47.Checked & "', CC48 = '" & 系統使用者管理.CheckBox48.Checked &
               "', CC49 = '" & 系統使用者管理.CheckBox49.Checked & "', CC50 = '" & 系統使用者管理.CheckBox50.Checked & "', CC51 = '" & 系統使用者管理.CheckBox51.Checked &
               "', CC52 = '" & 系統使用者管理.CheckBox52.Checked & "', CC53 = '" & 系統使用者管理.CheckBox53.Checked & "', CC54 = '" & 系統使用者管理.CheckBox54.Checked &
               "', CC55 = '" & 系統使用者管理.CheckBox55.Checked & "', CC56 = '" & 系統使用者管理.CheckBox56.Checked & "', CC57 = '" & 系統使用者管理.CheckBox57.Checked &
               "', CC58 = '" & 系統使用者管理.CheckBox58.Checked & "', CC59 = '" & 系統使用者管理.CheckBox59.Checked & "', CC60 = '" & 系統使用者管理.CheckBox60.Checked &
               "', CC61 = '" & 系統使用者管理.CheckBox61.Checked & "', CC62 = '" & 系統使用者管理.CheckBox62.Checked & "', CC63 = '" & 系統使用者管理.CheckBox63.Checked &
               "', CC64 = '" & 系統使用者管理.CheckBox64.Checked & "', CC65 = '" & 系統使用者管理.CheckBox65.Checked & "', CC66 = '" & 系統使用者管理.CheckBox66.Checked &
               "', CC67 = '" & 系統使用者管理.CheckBox67.Checked & "', CC68 = '" & 系統使用者管理.CheckBox68.Checked & "', CC69 = '" & 系統使用者管理.CheckBox69.Checked &
               "', CC70 = '" & 系統使用者管理.CheckBox70.Checked & "', CC71 = '" & 系統使用者管理.CheckBox71.Checked & "', CC72 = '" & 系統使用者管理.CheckBox72.Checked &
               "', CC73 = '" & 系統使用者管理.CheckBox73.Checked & "', CC74 = '" & 系統使用者管理.CheckBox74.Checked & "', CC75 = '" & 系統使用者管理.CheckBox75.Checked &
               "', CC76 = '" & 系統使用者管理.CheckBox76.Checked & "', CC77 = '" & 系統使用者管理.CheckBox77.Checked & "', CC78 = '" & 系統使用者管理.CheckBox78.Checked &
               "', CC79 = '" & 系統使用者管理.CheckBox79.Checked & "', CC80 = '" & 系統使用者管理.CheckBox80.Checked & "', CC81 = '" & 系統使用者管理.CheckBox81.Checked &
               "', CC82 = '" & 系統使用者管理.CheckBox82.Checked & "', CC83 = '" & 系統使用者管理.CheckBox83.Checked & "', CC84 = '" & 系統使用者管理.CheckBox84.Checked &
               "', CC85 = '" & 系統使用者管理.CheckBox85.Checked & "', CC86 = '" & 系統使用者管理.CheckBox86.Checked & "', CC87 = '" & 系統使用者管理.CheckBox87.Checked &
               "', CC88 = '" & 系統使用者管理.CheckBox88.Checked & "', CC89 = '" & 系統使用者管理.CheckBox89.Checked & "', CC90 = '" & 系統使用者管理.CheckBox90.Checked &
               "', CC91 = '" & 系統使用者管理.CheckBox91.Checked & "', CC92 = '" & 系統使用者管理.CheckBox92.Checked & "', CC93 = '" & 系統使用者管理.CheckBox93.Checked &
               "', CC94 = '" & 系統使用者管理.CheckBox94.Checked & "', CC95 = '" & 系統使用者管理.CheckBox95.Checked & "', CC96 = '" & 系統使用者管理.CheckBox96.Checked &
               "', CC97 = '" & 系統使用者管理.CheckBox97.Checked & "', CC98 = '" & 系統使用者管理.CheckBox98.Checked & "', CC99 = '" & 系統使用者管理.CheckBox99.Checked &
               "', CC100 = '" & 系統使用者管理.CheckBox100.Checked & "', CC101 = '" & 系統使用者管理.CheckBox101.Checked & "', CC102 = '" & 系統使用者管理.CheckBox102.Checked &
               "', CC103 = '" & 系統使用者管理.CheckBox103.Checked & "', CC104 = '" & 系統使用者管理.CheckBox104.Checked & "', CC105 = '" & 系統使用者管理.CheckBox105.Checked &
               "', CC106 = '" & 系統使用者管理.CheckBox106.Checked & "', CC107 = '" & 系統使用者管理.CheckBox107.Checked & "', CC108 = '" & 系統使用者管理.CheckBox108.Checked &
               "', CC109 = '" & 系統使用者管理.CheckBox109.Checked & "', CC110 = '" & 系統使用者管理.CheckBox110.Checked & "', CC111 = '" & 系統使用者管理.CheckBox111.Checked &
               "', CC112 = '" & 系統使用者管理.CheckBox112.Checked & "', CC113 = '" & 系統使用者管理.CheckBox113.Checked & "', CC114 = '" & 系統使用者管理.CheckBox114.Checked &
               "', CC115 = '" & 系統使用者管理.CheckBox115.Checked & "', CC116 = '" & 系統使用者管理.CheckBox116.Checked & "', CC117 = '" & 系統使用者管理.CheckBox117.Checked &
               "', CC118 = '" & 系統使用者管理.CheckBox118.Checked & "', CC119 = '" & 系統使用者管理.CheckBox119.Checked & "', CC120 = '" & 系統使用者管理.CheckBox120.Checked &
               "', CC121 = '" & 系統使用者管理.CheckBox121.Checked & "', CC122 = '" & 系統使用者管理.CheckBox122.Checked & "', CC123 = '" & 系統使用者管理.CheckBox123.Checked &
               "', CC124 = '" & 系統使用者管理.CheckBox124.Checked & "', CC125 = '" & 系統使用者管理.CheckBox125.Checked & "', CC126 = '" & 系統使用者管理.CheckBox126.Checked &
               "', CC127 = '" & 系統使用者管理.CheckBox127.Checked & "', CC128 = '" & 系統使用者管理.CheckBox128.Checked & "'
               WHERE (帳號 = '" & 系統使用者管理.帳號_tb.Text & "')"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_系統使用者修改2()
        ConnOpen() : SQL1 = "UPDATE 使用者權限管理表 SET 帳號 = N'" & PA32 & "', 密碼 = N'" & PA33 & "' WHERE (帳號 = '" & 人員基本資料.帳號_tb.Text & "')" : CmdSet_For_dr()
    End Sub
    Friend Sub SQL_系統跨部門權限表修改1()
        ConnOpen() : SQL1 = "UPDATE 系統跨部門權限表 SET 帳號 = N'" & PA32 & "' WHERE 帳號 LIKE N'" & 人員基本資料.帳號_tb.Text & "'" : CmdSet_For_dr()
    End Sub
    Friend Sub SQL_系統使用者修改1()
        ConnOpen()
        SQL1 = "UPDATE 使用者權限管理表 SET 姓名 = N'" & 人員基本資料.姓名_tb.Text & "'" & PA9 & ", 部門 = N'" & 人員基本資料.部門_cb.Text & "', 
                                            處別 = N'" & 人員基本資料.處別_cb.Text & "', 課別 = N'" & 人員基本資料.課別_cb.Text & "', 
                                            組別 = N'" & 人員基本資料.組別_cb.Text & "', 職稱 = N'" & 人員基本資料.職稱_cb.Text & "', 
                                            級別 = N'" & 人員基本資料.級別_cb.Text & "', NAS帳號 = N'" & 人員基本資料.NAS帳號_tb.Text & "', 
                                            NAS密碼 = N'" & 人員基本資料.NAS密碼_tb.Text &
               "', CC01 = '" & 人員基本資料.CheckBox1.Checked & "', CC02 = '" & 人員基本資料.CheckBox2.Checked & "', CC03 = '" & 人員基本資料.CheckBox3.Checked &
               "', CC04 = '" & 人員基本資料.CheckBox4.Checked & "', CC05 = '" & 人員基本資料.CheckBox5.Checked & "', CC06 = '" & 人員基本資料.CheckBox6.Checked &
               "', CC07 = '" & 人員基本資料.CheckBox7.Checked & "', CC08 = '" & 人員基本資料.CheckBox8.Checked & "', CC09 = '" & 人員基本資料.CheckBox9.Checked &
               "', CC10 = '" & 人員基本資料.CheckBox10.Checked & "', CC11 = '" & 人員基本資料.CheckBox11.Checked & "', CC12 = '" & 人員基本資料.CheckBox12.Checked &
               "', CC13 = '" & 人員基本資料.CheckBox13.Checked & "', CC14 = '" & 人員基本資料.CheckBox14.Checked & "', CC15 = '" & 人員基本資料.CheckBox15.Checked &
               "', CC16 = '" & 人員基本資料.CheckBox16.Checked & "', CC17 = '" & 人員基本資料.CheckBox17.Checked & "', CC18 = '" & 人員基本資料.CheckBox18.Checked &
               "', CC19 = '" & 人員基本資料.CheckBox19.Checked & "', CC20 = '" & 人員基本資料.CheckBox20.Checked & "', CC21 = '" & 人員基本資料.CheckBox21.Checked &
               "', CC22 = '" & 人員基本資料.CheckBox22.Checked & "', CC23 = '" & 人員基本資料.CheckBox23.Checked & "', CC24 = '" & 人員基本資料.CheckBox24.Checked &
               "', CC25 = '" & 人員基本資料.CheckBox25.Checked & "', CC26 = '" & 人員基本資料.CheckBox26.Checked & "', CC27 = '" & 人員基本資料.CheckBox27.Checked &
               "', CC28 = '" & 人員基本資料.CheckBox28.Checked & "', CC29 = '" & 人員基本資料.CheckBox29.Checked & "', CC30 = '" & 人員基本資料.CheckBox30.Checked &
               "', CC31 = '" & 人員基本資料.CheckBox31.Checked & "', CC32 = '" & 人員基本資料.CheckBox32.Checked & "', CC33 = '" & 人員基本資料.CheckBox33.Checked &
               "', CC34 = '" & 人員基本資料.CheckBox34.Checked & "', CC35 = '" & 人員基本資料.CheckBox35.Checked & "', CC36 = '" & 人員基本資料.CheckBox36.Checked &
               "', CC37 = '" & 人員基本資料.CheckBox37.Checked & "', CC38 = '" & 人員基本資料.CheckBox38.Checked & "', CC39 = '" & 人員基本資料.CheckBox39.Checked &
               "', CC40 = '" & 人員基本資料.CheckBox40.Checked & "', CC41 = '" & 人員基本資料.CheckBox41.Checked & "', CC42 = '" & 人員基本資料.CheckBox42.Checked &
               "', CC43 = '" & 人員基本資料.CheckBox43.Checked & "', CC44 = '" & 人員基本資料.CheckBox44.Checked & "', CC45 = '" & 人員基本資料.CheckBox45.Checked &
               "', CC46 = '" & 人員基本資料.CheckBox46.Checked & "', CC47 = '" & 人員基本資料.CheckBox47.Checked & "', CC48 = '" & 人員基本資料.CheckBox48.Checked &
               "', CC49 = '" & 人員基本資料.CheckBox49.Checked & "', CC50 = '" & 人員基本資料.CheckBox50.Checked & "', CC51 = '" & 人員基本資料.CheckBox51.Checked &
               "', CC52 = '" & 人員基本資料.CheckBox52.Checked & "', CC53 = '" & 人員基本資料.CheckBox53.Checked & "', CC54 = '" & 人員基本資料.CheckBox54.Checked &
               "', CC55 = '" & 人員基本資料.CheckBox55.Checked & "', CC56 = '" & 人員基本資料.CheckBox56.Checked & "', CC57 = '" & 人員基本資料.CheckBox57.Checked &
               "', CC58 = '" & 人員基本資料.CheckBox58.Checked & "', CC59 = '" & 人員基本資料.CheckBox59.Checked & "', CC60 = '" & 人員基本資料.CheckBox60.Checked &
               "', CC61 = '" & 人員基本資料.CheckBox61.Checked & "', CC62 = '" & 人員基本資料.CheckBox62.Checked & "', CC63 = '" & 人員基本資料.CheckBox63.Checked &
               "', CC64 = '" & 人員基本資料.CheckBox64.Checked & "', CC65 = '" & 人員基本資料.CheckBox65.Checked & "', CC66 = '" & 人員基本資料.CheckBox66.Checked &
               "', CC67 = '" & 人員基本資料.CheckBox67.Checked & "', CC68 = '" & 人員基本資料.CheckBox68.Checked & "', CC69 = '" & 人員基本資料.CheckBox69.Checked &
               "', CC70 = '" & 人員基本資料.CheckBox70.Checked & "', CC71 = '" & 人員基本資料.CheckBox71.Checked & "', CC72 = '" & 人員基本資料.CheckBox72.Checked &
               "', CC73 = '" & 人員基本資料.CheckBox73.Checked & "', CC74 = '" & 人員基本資料.CheckBox74.Checked & "', CC75 = '" & 人員基本資料.CheckBox75.Checked &
               "', CC76 = '" & 人員基本資料.CheckBox76.Checked & "', CC77 = '" & 人員基本資料.CheckBox77.Checked & "', CC78 = '" & 人員基本資料.CheckBox78.Checked &
               "', CC79 = '" & 人員基本資料.CheckBox79.Checked & "', CC80 = '" & 人員基本資料.CheckBox80.Checked & "', CC81 = '" & 人員基本資料.CheckBox81.Checked &
               "', CC82 = '" & 人員基本資料.CheckBox82.Checked & "', CC83 = '" & 人員基本資料.CheckBox83.Checked & "', CC84 = '" & 人員基本資料.CheckBox84.Checked &
               "', CC85 = '" & 人員基本資料.CheckBox85.Checked & "', CC86 = '" & 人員基本資料.CheckBox86.Checked & "', CC87 = '" & 人員基本資料.CheckBox87.Checked &
               "', CC88 = '" & 人員基本資料.CheckBox88.Checked & "', CC89 = '" & 人員基本資料.CheckBox89.Checked & "', CC90 = '" & 人員基本資料.CheckBox90.Checked &
               "', CC91 = '" & 人員基本資料.CheckBox91.Checked & "', CC92 = '" & 人員基本資料.CheckBox92.Checked & "', CC93 = '" & 人員基本資料.CheckBox93.Checked &
               "', CC94 = '" & 人員基本資料.CheckBox94.Checked & "', CC95 = '" & 人員基本資料.CheckBox95.Checked & "', CC96 = '" & 人員基本資料.CheckBox96.Checked &
               "', CC97 = '" & 人員基本資料.CheckBox97.Checked & "', CC98 = '" & 人員基本資料.CheckBox98.Checked & "', CC99 = '" & 人員基本資料.CheckBox99.Checked &
               "', CC100 = '" & 人員基本資料.CheckBox100.Checked & "', CC101 = '" & 人員基本資料.CheckBox101.Checked & "', CC102 = '" & 人員基本資料.CheckBox102.Checked &
               "', CC103 = '" & 人員基本資料.CheckBox103.Checked & "', CC104 = '" & 人員基本資料.CheckBox104.Checked & "', CC105 = '" & 人員基本資料.CheckBox105.Checked &
               "', CC106 = '" & 人員基本資料.CheckBox106.Checked & "', CC107 = '" & 人員基本資料.CheckBox107.Checked & "', CC108 = '" & 人員基本資料.CheckBox108.Checked &
               "', CC109 = '" & 人員基本資料.CheckBox109.Checked & "', CC110 = '" & 人員基本資料.CheckBox110.Checked & "', CC111 = '" & 人員基本資料.CheckBox111.Checked &
               "', CC112 = '" & 人員基本資料.CheckBox112.Checked & "', CC113 = '" & 人員基本資料.CheckBox113.Checked & "', CC114 = '" & 人員基本資料.CheckBox114.Checked &
               "', CC115 = '" & 人員基本資料.CheckBox115.Checked & "', CC116 = '" & 人員基本資料.CheckBox116.Checked & "', CC117 = '" & 人員基本資料.CheckBox117.Checked &
               "', CC118 = '" & 人員基本資料.CheckBox118.Checked & "', CC119 = '" & 人員基本資料.CheckBox119.Checked & "', CC120 = '" & 人員基本資料.CheckBox120.Checked &
               "', CC121 = '" & 人員基本資料.CheckBox121.Checked & "', CC122 = '" & 人員基本資料.CheckBox122.Checked & "', CC123 = '" & 人員基本資料.CheckBox123.Checked &
               "', CC124 = '" & 人員基本資料.CheckBox124.Checked & "', CC125 = '" & 人員基本資料.CheckBox125.Checked & "', CC126 = '" & 人員基本資料.CheckBox126.Checked &
               "', CC127 = '" & 人員基本資料.CheckBox127.Checked & "', CC128 = '" & 人員基本資料.CheckBox128.Checked & "'
               WHERE (帳號 = '" & 人員基本資料.帳號_tb.Text & "')"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_系統權限預設表修改()
        ConnOpen()
        SQL1 = "UPDATE " & PA & " SET  CC01 = '" & 系統權限預設表.CheckBox1.Checked & "', CC02 = '" & 系統權限預設表.CheckBox2.Checked & "', CC03 = '" & 系統權限預設表.CheckBox3.Checked &
               "', CC04 = '" & 系統權限預設表.CheckBox4.Checked & "', CC05 = '" & 系統權限預設表.CheckBox5.Checked & "', CC06 = '" & 系統權限預設表.CheckBox6.Checked &
               "', CC07 = '" & 系統權限預設表.CheckBox7.Checked & "', CC08 = '" & 系統權限預設表.CheckBox8.Checked & "', CC09 = '" & 系統權限預設表.CheckBox9.Checked &
               "', CC10 = '" & 系統權限預設表.CheckBox10.Checked & "', CC11 = '" & 系統權限預設表.CheckBox11.Checked & "', CC12 = '" & 系統權限預設表.CheckBox12.Checked &
               "', CC13 = '" & 系統權限預設表.CheckBox13.Checked & "', CC14 = '" & 系統權限預設表.CheckBox14.Checked & "', CC15 = '" & 系統權限預設表.CheckBox15.Checked &
               "', CC16 = '" & 系統權限預設表.CheckBox16.Checked & "', CC17 = '" & 系統權限預設表.CheckBox17.Checked & "', CC18 = '" & 系統權限預設表.CheckBox18.Checked &
               "', CC19 = '" & 系統權限預設表.CheckBox19.Checked & "', CC20 = '" & 系統權限預設表.CheckBox20.Checked & "', CC21 = '" & 系統權限預設表.CheckBox21.Checked &
               "', CC22 = '" & 系統權限預設表.CheckBox22.Checked & "', CC23 = '" & 系統權限預設表.CheckBox23.Checked & "', CC24 = '" & 系統權限預設表.CheckBox24.Checked &
               "', CC25 = '" & 系統權限預設表.CheckBox25.Checked & "', CC26 = '" & 系統權限預設表.CheckBox26.Checked & "', CC27 = '" & 系統權限預設表.CheckBox27.Checked &
               "', CC28 = '" & 系統權限預設表.CheckBox28.Checked & "', CC29 = '" & 系統權限預設表.CheckBox29.Checked & "', CC30 = '" & 系統權限預設表.CheckBox30.Checked &
               "', CC31 = '" & 系統權限預設表.CheckBox31.Checked & "', CC32 = '" & 系統權限預設表.CheckBox32.Checked & "', CC33 = '" & 系統權限預設表.CheckBox33.Checked &
               "', CC34 = '" & 系統權限預設表.CheckBox34.Checked & "', CC35 = '" & 系統權限預設表.CheckBox35.Checked & "', CC36 = '" & 系統權限預設表.CheckBox36.Checked &
               "', CC37 = '" & 系統權限預設表.CheckBox37.Checked & "', CC38 = '" & 系統權限預設表.CheckBox38.Checked & "', CC39 = '" & 系統權限預設表.CheckBox39.Checked &
               "', CC40 = '" & 系統權限預設表.CheckBox40.Checked & "', CC41 = '" & 系統權限預設表.CheckBox41.Checked & "', CC42 = '" & 系統權限預設表.CheckBox42.Checked &
               "', CC43 = '" & 系統權限預設表.CheckBox43.Checked & "', CC44 = '" & 系統權限預設表.CheckBox44.Checked & "', CC45 = '" & 系統權限預設表.CheckBox45.Checked &
               "', CC46 = '" & 系統權限預設表.CheckBox46.Checked & "', CC47 = '" & 系統權限預設表.CheckBox47.Checked & "', CC48 = '" & 系統權限預設表.CheckBox48.Checked &
               "', CC49 = '" & 系統權限預設表.CheckBox49.Checked & "', CC50 = '" & 系統權限預設表.CheckBox50.Checked & "', CC51 = '" & 系統權限預設表.CheckBox51.Checked &
               "', CC52 = '" & 系統權限預設表.CheckBox52.Checked & "', CC53 = '" & 系統權限預設表.CheckBox53.Checked & "', CC54 = '" & 系統權限預設表.CheckBox54.Checked &
               "', CC55 = '" & 系統權限預設表.CheckBox55.Checked & "', CC56 = '" & 系統權限預設表.CheckBox56.Checked & "', CC57 = '" & 系統權限預設表.CheckBox57.Checked &
               "', CC58 = '" & 系統權限預設表.CheckBox58.Checked & "', CC59 = '" & 系統權限預設表.CheckBox59.Checked & "', CC60 = '" & 系統權限預設表.CheckBox60.Checked &
               "', CC61 = '" & 系統權限預設表.CheckBox61.Checked & "', CC62 = '" & 系統權限預設表.CheckBox62.Checked & "', 
                   CC64 = '" & 系統權限預設表.CheckBox64.Checked & "', CC65 = '" & 系統權限預設表.CheckBox65.Checked & "', CC66 = '" & 系統權限預設表.CheckBox66.Checked &
               "', CC67 = '" & 系統權限預設表.CheckBox67.Checked & "', CC68 = '" & 系統權限預設表.CheckBox68.Checked & "', CC69 = '" & 系統權限預設表.CheckBox69.Checked &
               "', CC70 = '" & 系統權限預設表.CheckBox70.Checked & "', CC71 = '" & 系統權限預設表.CheckBox71.Checked & "', CC72 = '" & 系統權限預設表.CheckBox72.Checked &
               "', CC73 = '" & 系統權限預設表.CheckBox73.Checked & "', CC74 = '" & 系統權限預設表.CheckBox74.Checked & "', CC75 = '" & 系統權限預設表.CheckBox75.Checked &
               "', CC76 = '" & 系統權限預設表.CheckBox76.Checked & "', CC77 = '" & 系統權限預設表.CheckBox77.Checked & "', CC78 = '" & 系統權限預設表.CheckBox78.Checked &
               "', CC79 = '" & 系統權限預設表.CheckBox79.Checked & "', CC80 = '" & 系統權限預設表.CheckBox80.Checked & "', CC81 = '" & 系統權限預設表.CheckBox81.Checked &
               "', CC82 = '" & 系統權限預設表.CheckBox82.Checked & "', CC83 = '" & 系統權限預設表.CheckBox83.Checked & "', CC84 = '" & 系統權限預設表.CheckBox84.Checked &
               "', CC85 = '" & 系統權限預設表.CheckBox85.Checked & "', CC86 = '" & 系統權限預設表.CheckBox86.Checked & "', CC87 = '" & 系統權限預設表.CheckBox87.Checked &
               "', CC88 = '" & 系統權限預設表.CheckBox88.Checked & "', CC89 = '" & 系統權限預設表.CheckBox89.Checked & "', CC90 = '" & 系統權限預設表.CheckBox90.Checked &
               "', CC91 = '" & 系統權限預設表.CheckBox91.Checked & "', CC92 = '" & 系統權限預設表.CheckBox92.Checked & "', CC93 = '" & 系統權限預設表.CheckBox93.Checked &
               "', CC94 = '" & 系統權限預設表.CheckBox94.Checked & "', CC95 = '" & 系統權限預設表.CheckBox95.Checked & "', CC96 = '" & 系統權限預設表.CheckBox96.Checked &
               "', CC97 = '" & 系統權限預設表.CheckBox97.Checked & "', CC98 = '" & 系統權限預設表.CheckBox98.Checked & "', CC99 = '" & 系統權限預設表.CheckBox99.Checked &
               "', CC100 = '" & 系統權限預設表.CheckBox100.Checked & "', CC101 = '" & 系統權限預設表.CheckBox101.Checked & "', CC102 = '" & 系統權限預設表.CheckBox102.Checked &
               "', CC103 = '" & 系統權限預設表.CheckBox103.Checked & "', CC104 = '" & 系統權限預設表.CheckBox104.Checked & "', CC105 = '" & 系統權限預設表.CheckBox105.Checked &
               "', CC106 = '" & 系統權限預設表.CheckBox106.Checked & "', CC107 = '" & 系統權限預設表.CheckBox107.Checked & "', CC108 = '" & 系統權限預設表.CheckBox108.Checked &
               "', CC109 = '" & 系統權限預設表.CheckBox109.Checked & "', CC110 = '" & 系統權限預設表.CheckBox110.Checked & "', CC111 = '" & 系統權限預設表.CheckBox111.Checked &
               "', CC112 = '" & 系統權限預設表.CheckBox112.Checked & "', CC113 = '" & 系統權限預設表.CheckBox113.Checked & "', CC114 = '" & 系統權限預設表.CheckBox114.Checked &
               "', CC115 = '" & 系統權限預設表.CheckBox115.Checked & "', CC116 = '" & 系統權限預設表.CheckBox116.Checked & "', CC117 = '" & 系統權限預設表.CheckBox117.Checked &
               "', CC118 = '" & 系統權限預設表.CheckBox118.Checked & "', CC119 = '" & 系統權限預設表.CheckBox119.Checked & "', CC120 = '" & 系統權限預設表.CheckBox120.Checked &
               "', CC121 = '" & 系統權限預設表.CheckBox121.Checked & "', CC122 = '" & 系統權限預設表.CheckBox122.Checked & "', CC123 = '" & 系統權限預設表.CheckBox123.Checked &
               "', CC124 = '" & 系統權限預設表.CheckBox124.Checked & "', CC125 = '" & 系統權限預設表.CheckBox125.Checked & "', CC126 = '" & 系統權限預設表.CheckBox126.Checked &
               "', CC127 = '" & 系統權限預設表.CheckBox127.Checked & "', CC128 = '" & 系統權限預設表.CheckBox128.Checked & "'
               WHERE (職稱 = '" & PA10 & "')"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_臨時工卡片管理清單()
        ConnOpen()
        SQL1 = "SELECT     使用者權限管理表.姓名 AS [" & 表頭(0) & "], 使用者權限管理表.ID卡號 AS [" & 表頭(1) & "], [HX-PGS-MSN].dbo.人員資料表.群組 AS [" & 表頭(2) & "], 
                           使用者權限管理表.帳號
                FROM       使用者權限管理表 INNER JOIN
                          [HX-PGS-MSN].dbo.人員資料表 ON 使用者權限管理表.帳號 = [HX-PGS-MSN].dbo.人員資料表.帳號
                WHERE     (使用者權限管理表.CC63 = 0) AND (使用者權限管理表.部門 LIKE N'9%') AND (使用者權限管理表.級別 LIKE '09') AND 
                          (使用者權限管理表.CC63 = 0) " & SQL5 & "  
                ORDER BY   [HX-PGS-MSN].dbo.人員資料表.群組, 使用者權限管理表.姓名"
        CmdSet_For_DGV()
    End Sub
    Friend Sub SQL_臨時工卡片管理清單1()
        ConnOpen()
        SQL1 = "SELECT  姓名 AS [" & 表頭(0) & "] FROM 使用者權限管理表 
                WHERE (CC63 = 0) AND (部門 LIKE N'9%') AND (級別 LIKE '09') AND (CC63 = 0) AND (姓名 NOT LIKE '未啟用/Not Enabled')  
                ORDER BY  部門, 職稱, 課別, 組別"
        CmdSet_For_DGV()
    End Sub
    Friend Sub SQL_臨時工卡片查詢()
        ConnOpen()
        SQL1 = "SELECT  姓名 AS [" & 表頭(0) & "], ID卡號 AS [" & 表頭(1) & "] FROM 使用者權限管理表 
                WHERE   " & SQL2 & " AND (CC63 = 0) AND (部門 LIKE N'9%') ORDER BY  部門, 職稱, 課別, 組別"
        CmdSet_For_DGV()
    End Sub
    Friend Sub SQL_臨時工人開卡()
        ConnOpen() : SQL1 = "UPDATE 使用者權限管理表 SET 姓名 = N'" & PA32 & "' WHERE ID卡號 LIKE N'" & PA33 & "'" : CmdSet_For_dr()
        ConnOpen_管理SQL()
        SQL1 = "UPDATE 人員資料表 SET 部門名稱 = N'" & PA30 & "', 群組 = N'" & PA30 & "' WHERE 帳號 LIKE N'" & PA31 & "'"
        CmdSet_For_dr()
    End Sub
    '---------------------系統使用者管理-----------------------------------------------------------------------------------------------------------------
    Friend Sub SQL_系統使用者管理_使用者清單()
        If BL = False Then
            ConnOpen()
            If PA = "" Then
                If 在職 = True Then
                    If 工人 = False Then : SQL2 = " WHERE (CC63 = 0) AND (部門 NOT LIKE N'9%') " : Else : SQL2 = " WHERE (CC63 = 0) AND (部門 LIKE N'9%') " : End If
                Else
                    If 工人 = False Then : SQL2 = " WHERE (CC63 = 1) AND (部門 NOT LIKE N'9%') " : Else : SQL2 = " WHERE (CC63 = 1) AND (部門 LIKE N'9%') " : End If
                End If
                SQL1 = "SELECT  " & 登入權限1 & " FROM 使用者權限管理表 " & SQL2 & " 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    " & 登入權限1 & " FROM 使用者權限管理表 
                        WHERE   ((姓名 LIKE N'%" & PA & "%') OR (帳號 LIKE N'%" & PA & "%') OR (密碼 LIKE N'%" & PA & "%') OR 
                                 (職稱 LIKE N'%" & PA & "%')) " & SQL2 & "
                        ORDER BY  部門, 職稱, 課別, 組別, 姓名"
            End If
            CmdSet_For_DGV()
        Else
            ConnOpen()
            If PA = "" Then
                If 在職 = True Then
                    If 工人 = False Then : SQL2 = " AND (CC63 = 0) AND (部門 NOT LIKE N'9%') " : Else : SQL2 = " AND (CC63 = 0) AND (部門 LIKE N'9%') " : End If
                Else
                    If 工人 = False Then : SQL2 = " AND (CC63 = 1) AND (部門 NOT LIKE N'9%') " : Else : SQL2 = " AND (CC63 = 1) AND (部門 LIKE N'9%') " : End If
                End If
                SQL1 = "SELECT  " & 登入權限1 & " FROM 使用者權限管理表 
                        WHERE  (級別 LIKE '05' OR 級別 LIKE '06' OR 級別 LIKE '07' OR 級別 LIKE '08' OR 級別 LIKE '09') " & SQL2 & " ORDER BY 部門, 職稱, 課別, 組別"
            Else
                SQL1 = "SELECT    " & 登入權限1 & " FROM 使用者權限管理表 
                        WHERE   ((姓名 LIKE N'%" & PA & "%') OR (帳號 LIKE N'%" & PA & "%') OR (密碼 LIKE N'%" & PA & "%') OR (職稱 LIKE N'%" & PA & "%') AND
                                 (級別 LIKE '05' OR 級別 LIKE '06' OR 級別 LIKE '07' OR 級別 LIKE '08' OR 級別 LIKE '09')) " & SQL2 & "
                        ORDER BY  部門, 職稱, 課別, 組別, 姓名"
            End If
            CmdSet_For_DGV()
        End If
    End Sub
    Friend Sub SQL_系統使用者管理_下拉清單_部門()
        ConnOpen() : SQL1 = "SELECT 部門 FROM HX部門清單 ORDER BY 部門" : CmdSet_For_dr()
    End Sub
    Friend Sub SQL_系統使用者管理_下拉清單_職稱()
        ConnOpen() : SQL1 = "SELECT 職稱, 級別 FROM HX職稱清單 WHERE (部 LIKE N'%" & PA47 & "%') AND (處 LIKE N'%" & PA48 & "%') ORDER BY 職稱" : CmdSet_For_dr()
    End Sub
    Friend Sub SQL_系統使用者管理_下拉清單_處別()
        ConnOpen() : SQL1 = "SELECT 處 FROM HX處級清單 WHERE 處 LIKE N'" & PA20 & "%' OR 處 LIKE N'0%' ORDER BY 處" : CmdSet_For_dr()
    End Sub
    Friend Sub SQL_系統使用者管理_下拉清單_課別()
        ConnOpen() : SQL1 = "SELECT 課別 FROM HX課別清單 WHERE 課別 LIKE N'" & PA20 & "%' OR 課別 LIKE N'0%' ORDER BY 課別" : CmdSet_For_dr()
    End Sub
    Friend Sub SQL_系統使用者管理_下拉清單_組別()
        ConnOpen() : SQL1 = "SELECT 組別 FROM HX組別清單 WHERE 組別 LIKE N'" & PA20 & "%' OR 組別 LIKE N'0%' ORDER BY 組別" : CmdSet_For_dr()
    End Sub
    Friend Sub SQL_系統使用者管理_組織帶入()
        ConnOpen() : SQL1 = "SELECT 部, 處, 課, 組 FROM HX職稱清單 WHERE 職稱 LIKE N'" & PA & "'" : CmdSet_For_dr()
    End Sub
    Friend Sub SQL_系統使用者刪除()
        ConnOpen() : SQL1 = "DELETE FROM 使用者權限管理表 WHERE (帳號 = '" & PA37 & "')" : CmdSet_For_dr()
    End Sub
    Friend Sub SQL_系統使用者密碼顯示()
        ConnOpen() : SQL1 = "SELECT 密碼 FROM 使用者權限管理表 WHERE 姓名 LIKE N'" & PA39 & "' AND 帳號 LIKE N'" & PA38 & "'" : CmdSet_For_dr()
    End Sub
    Friend Sub SQL_系統使用者ID卡號()
        ConnOpen() : SQL1 = "SELECT  ID卡號  FROM  使用者權限管理表  WHERE  (帳號 LIKE '" & PA41 & "')" : CmdSet_For_dr()
    End Sub
    Friend Sub SQL_系統權限預設表_單一讀取()
        ConnOpen() : SQL1 = "SELECT 職稱, " & 系統權限 & " FROM 系統權限預設表 WHERE 職稱 LIKE N'" & PA40 & "' ORDER BY 職稱" : CmdSet_For_DGV()
    End Sub
    Friend Sub SQL_人員資料讀取1()
        ConnOpen_工程圖庫SQL() : SQL1 = "SELECT 圖片, 身分證 FROM  人事圖片  WHERE  (帳號 LIKE '" & 人員基本資料.帳號_tb.Text & "')" : CmdSet_For_dr()
    End Sub
    Friend Sub SQL_人員資料讀取2()
        ConnOpen_管理SQL()
        SQL1 = "SELECT  男性, 女性, 入職日, 照片位置, 備註, 員工代碼, 員工崗位, 部門名稱  FROM  人員資料表  WHERE  (帳號 LIKE '" & 人員基本資料.帳號_tb.Text & "')"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_人事資料讀取1()
        ConnOpen_工程圖庫SQL() : SQL1 = "SELECT  帳號  FROM  人事圖片  WHERE  (帳號 LIKE '" & 人員基本資料.帳號_tb.Text & "')" : CmdSet_For_dr()
    End Sub
    Friend Sub SQL_人事圖片新增()
        ConnOpen_工程圖庫SQL() : SQL1 = "INSERT INTO 人事圖片 (帳號, 圖片) SELECT N'" & 人員基本資料.帳號_tb.Text & "', @binary_file" : CmdSet_For_dr_pic()
    End Sub
    Friend Sub SQL_人事圖片修改()
        ConnOpen_工程圖庫SQL() : SQL1 = "UPDATE 人事圖片 SET  圖片 = @binary_file WHERE 帳號 LIKE N'" & 人員基本資料.帳號_tb.Text & "'" : CmdSet_For_dr_pic()
    End Sub
    Friend Sub SQL_人事圖片修改1()
        ConnOpen_工程圖庫SQL() : SQL1 = "UPDATE 人事圖片 SET  帳號 = N'" & PA32 & "' WHERE 帳號 LIKE N'" & 人員基本資料.帳號_tb.Text & "'" : CmdSet_For_dr()
    End Sub
    Friend Sub SQL_人事身分證新增()
        ConnOpen_工程圖庫SQL() : SQL1 = "INSERT INTO 人事圖片 (帳號, 身分證) SELECT N'" & 人員基本資料.帳號_tb.Text & "', @binary_file" : CmdSet_For_dr_pic()
    End Sub
    Friend Sub SQL_人事身分證修改()
        ConnOpen_工程圖庫SQL() : SQL1 = "UPDATE 人事圖片 SET  身分證 = @binary_file WHERE 帳號 LIKE N'" & 人員基本資料.帳號_tb.Text & "'" : CmdSet_For_dr_pic()
    End Sub
    Friend Sub SQL_人員資料新增2()
        ConnOpen_管理SQL()
        SQL1 = "INSERT INTO 人員資料表 (帳號, 男性, 女性, 入職日, 備註, 照片位置, 員工代碼, 員工崗位, 部門名稱) 
                SELECT N'" & 人員基本資料.帳號_tb.Text & "', N'" & 人員基本資料.男_ch.Checked & "', N'" & 人員基本資料.女_ch.Checked & "', 
                       N'" & Strings.Format(人員基本資料.入職日_dtp.Value, "yyyy/MM/dd") & "', N'" & 人員基本資料.備註資訊_tb.Text & "', N'" & 圖片庫 & "', 
                       N'" & 人員基本資料.員工代碼_tb.Text & "', N'" & 人員基本資料.員工崗位_dtp.Text & "', N'" & 人員基本資料.部門名稱_tb.Text & "'"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_人員資料修改2()
        ConnOpen_管理SQL()
        SQL1 = "UPDATE 人員資料表 SET 男性 = N'" & 人員基本資料.男_ch.Checked & "', 女性 = N'" & 人員基本資料.女_ch.Checked & "', 
                                      入職日 = N'" & Strings.Format(人員基本資料.入職日_dtp.Value, "yyyy/MM/dd") & "', 備註 = N'" & 人員基本資料.備註資訊_tb.Text & "',
                                      員工代碼 = N'" & 人員基本資料.員工代碼_tb.Text & "', 員工崗位 = N'" & 人員基本資料.員工崗位_dtp.Text & "', 
                                      部門名稱 = N'" & 人員基本資料.部門名稱_tb.Text & "'
                WHERE 帳號 LIKE N'" & 人員基本資料.帳號_tb.Text & "'"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_人員資料修改3()
        ConnOpen_管理SQL() : SQL1 = "UPDATE 人員資料表 SET 帳號 = N'" & PA32 & "' WHERE 帳號 LIKE N'" & 人員基本資料.帳號_tb.Text & "'" : CmdSet_For_dr()
    End Sub
    '---------------------系統通用變數管理-----------------------------------------------------------------------------------------------------------------
    Friend Sub SQL_主資料庫LOG檔案截斷()
        Dim DSF(1) As String : Dim NB1 As Integer = 0
        ConnOpen_工程圖庫SQL() : SQL1 = "USE [" & PA & "]" : CmdSet_For_dr()
        ConnOpen_工程圖庫SQL() : SQL1 = "select name from sys.database_files;" : CmdSet_For_dr()
        While (dr.Read()) : DSF(NB1) = dr("name").ToString : NB1 += 1 : End While

        If PA = DSF(0) Then : Else
            ConnOpen_工程圖庫SQL() : SQL1 = "alter database [" & PA & "] modify file(name=[" & DSF(0) & "], newname =[" & PA & "])" : CmdSet_For_dr()
        End If

        If PA & "_log" = DSF(1) Then : Else
            ConnOpen_工程圖庫SQL() : SQL1 = "alter database [" & PA & "] modify file(name=[" & DSF(1) & "], newname=[" & PA & "_log])" : CmdSet_For_dr()
        End If

        ConnOpen_工程圖庫SQL() : SQL1 = "ALTER DATABASE [" & PA & "]
                                   SET RECOVERY SIMPLE;" : CmdSet_For_dr()
        ConnOpen_工程圖庫SQL() : SQL1 = "DBCC SHRINKFILE ([" & PA & "_Log], 1);" : CmdSet_For_dr()
        ConnOpen_工程圖庫SQL() : SQL1 = "ALTER DATABASE [" & PA & "]
                                   SET RECOVERY FULL;" : CmdSet_For_dr()
    End Sub
    Friend Sub SQL_伺服器1清單()
        ConnOpen()
        SQL1 = "SELECT   DB_NAME(database_id) AS 資料庫 FROM sys.master_files 
                WHERE   (DB_NAME(database_id) LIKE 'HX%') OR (DB_NAME(database_id) LIKE 'IM%') OR (DB_NAME(database_id) LIKE 'PR%') 
                GROUP BY DB_NAME(database_id) ORDER BY DB_NAME(database_id)"
        CmdSet_For_DGV()
    End Sub
    Friend Sub SQL_資料庫狀態()
        ConnOpen()
        SQL1 = "SELECT  DB_NAME(database_id) AS [" & 表頭(160) & "], physical_name AS [" & 表頭(161) & "], type_desc AS [" & 表頭(162) & "], 
                        state_desc  AS [" & 表頭(163) & "], size * 8.0 / 1024  AS [" & 表頭(164) & "]
                FROM    sys.master_files
                WHERE  (DB_NAME(database_id) LIKE N'HX%') OR (DB_NAME(database_id) LIKE N'PROJE%') OR (DB_NAME(database_id) LIKE N'IMAGE%')"
        CmdSet_For_DGV()
    End Sub
    Friend Sub SQL_系統閒置時間設定修改()
        ConnOpen()
        SQL1 = "UPDATE 系統閒置時間設定 SET timeExit = N'" & 系統通用變數管理.時間1_tb.Text & "', timeExit2 = N'" & 系統通用變數管理.時間2_tb.Text & "' 
                WHERE (timeExit = N'" & PA1 & "' AND timeExit2 = N'" & PA2 & "')"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_系統通用變數管理_圖片載入()
        ConnOpen() : SQL1 = "SELECT 圖片 FROM 系統介面圖片 WHERE 介面 LIKE N'" & PA45 & "'" : CmdSet_For_dr()
    End Sub
    Friend Sub SQL_系統通用變數管理_圖片新增()
        ConnOpen() : SQL1 = "INSERT INTO 系統介面圖片 (介面, 圖片) SELECT '" & PA45 & "', @binary_file" : CmdSet_For_dr_pic()
    End Sub
    Friend Sub SQL_系統通用變數管理_圖片修改()
        ConnOpen() : SQL1 = "UPDATE 系統介面圖片 SET 圖片 = @binary_file WHERE (介面 = '" & PA45 & "')" : CmdSet_For_dr_pic()
    End Sub
    Friend Sub SQL_系統預測值修改()
        ConnOpen()
        SQL1 = "UPDATE 系統預設值 SET 密碼重設天數 = N'" & 系統通用變數管理.密碼重設天數_tb.Text & "', 行政採購二級 = N'" & 系統通用變數管理.行政簽核_tb.Text & "' , 
                       建築採購二級 = N'" & 系統通用變數管理.建築簽核_tb.Text & "',比例1 = N'" & 系統通用變數管理.NUP_3.Text & "',比例2 = N'" & 系統通用變數管理.NUP_4.Text & "',
                       比例3 = N'" & 系統通用變數管理.NUP_5.Text & "', 圖片伺服器上限 = '" & 系統通用變數管理.MAX_nud.Value & "'"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_系統使用情況1()
        ConnOpen_管理SQL()
        If BL = False Then
            SQL2 = "  AND (系統說明管理.使用者 NOT LIKE '李協叡') AND (系統說明管理.使用者 NOT LIKE 'LEE HSIEH JUI') AND (系統說明管理.使用者 NOT LIKE 'Sumayliyah') AND
                     (系統說明管理.使用者 NOT LIKE 'WANG HSIH WEN ') AND (系統說明管理.使用者 NOT LIKE 'Aggi') "
        Else : SQL2 = "" : End If
        SQL1 = "SELECT    系統說明管理.介面 AS 系統, 系統介面.名稱 AS 功能介面, SUM(系統說明管理.開啟次數) AS 使用次數, 系統說明管理.介面
                FROM      系統說明管理 FULL OUTER JOIN
                          系統介面 ON 系統說明管理.介面 = 系統介面.介面
                WHERE    (系統說明管理.年 LIKE '" & 系統通用變數管理.年份2_cb.Text & "') AND (系統說明管理.月 LIKE '" & 系統通用變數管理.月份2_cb.Text & "') " & SQL2 & "
                GROUP BY  系統說明管理.介面, 系統介面.名稱
                ORDER BY  使用次數 DESC, 系統"
        CmdSet_For_DGV()
    End Sub
    Friend Sub SQL_系統使用情況2()
        ConnOpen_管理SQL()
        If BL = False Then
            SQL2 = "  AND (系統說明管理.使用者 NOT LIKE '李協叡') AND (系統說明管理.使用者 NOT LIKE 'LEE HSIEH JUI') AND (系統說明管理.使用者 NOT LIKE 'Sumayliyah') AND
                     (系統說明管理.使用者 NOT LIKE 'WANG HSIH WEN ') AND (系統說明管理.使用者 NOT LIKE 'Aggi') "
        Else : SQL2 = "" : End If
        SQL1 = "SELECT    使用者, SUM(開啟次數) AS 使用次數
                FROM      系統說明管理
                WHERE    (年 LIKE '" & 系統通用變數管理.年份2_cb.Text & "') AND (月 LIKE '" & 系統通用變數管理.月份2_cb.Text & "') AND (介面 LIKE '" & PA20 & "') " & SQL2 & "
                GROUP BY  介面, 使用者
                ORDER BY  使用次數 DESC"
        CmdSet_For_DGV()
    End Sub
    '---------------------系統權限預設表-----------------------------------------------------------------------------------------------------------------
    Friend Sub SQL_系統權限預設表()
        ConnOpen()
        SQL1 = "SELECT 系統權限預設表.職稱, HX職稱清單.級別, " & 系統權限 & " FROM 系統權限預設表 INNER JOIN HX職稱清單 ON 系統權限預設表.職稱 = HX職稱清單.職稱
                ORDER BY 系統權限預設表.職稱"
        CmdSet_For_DGV()
    End Sub
    '---------------------跨部門主管權限設定-----------------------------------------------------------------------------------------------------------------
    Friend Sub SQL_跨部門主管權限設定_清單()
        ConnOpen()
        SQL1 = "SELECT 姓名 AS [" & 表頭(4) & "], 職稱 AS [" & 表頭(9) & "], 級別 AS [" & 表頭(138) & "], 部門, 處別, 課別, 組別, 帳號 FROM 使用者權限管理表 
                WHERE CC88 = 1 AND CC63 = 0
                ORDER BY 部門, 職稱, 課別, 組別"
        CmdSet_For_DGV()
    End Sub
    Friend Sub SQL_跨部門主管權限設定_確認有無資料()
        ConnOpen()
        SQL1 = "SELECT 姓名 FROM 系統跨部門權限表 WHERE (姓名 = N'" & PA1 & "' AND 帳號 = N'" & PA2 & "')"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_跨部門主管權限設定_未設定過()
        If PA3 = "00" Then
            SQL2 = " "
        ElseIf PA3 = "01" Then
            SQL2 = "WHERE     (HX職稱清單.級別 NOT LIKE N'00') "
        ElseIf PA3 = "02" Then
            SQL2 = "WHERE     (HX職稱清單.級別 NOT LIKE N'01') AND (HX職稱清單.級別 NOT LIKE N'00') "
        ElseIf PA3 = "03" Then
            SQL2 = "WHERE     (HX職稱清單.級別 NOT LIKE N'02') AND (HX職稱清單.級別 NOT LIKE N'01') AND (HX職稱清單.級別 NOT LIKE N'00') "
        ElseIf PA3 = "04" Then
            SQL2 = "WHERE     (HX職稱清單.級別 NOT LIKE N'03') AND (HX職稱清單.級別 NOT LIKE N'02') AND (HX職稱清單.級別 NOT LIKE N'01') AND (HX職稱清單.級別 NOT LIKE N'00') "
        ElseIf PA3 = "05" Then
            SQL2 = "WHERE     (HX職稱清單.級別 NOT LIKE N'04') AND (HX職稱清單.級別 NOT LIKE N'03') AND (HX職稱清單.級別 NOT LIKE N'02') AND (HX職稱清單.級別 NOT LIKE N'01') AND 
                              (HX職稱清單.級別 NOT LIKE N'00') "
        ElseIf PA3 = "06" Then
            SQL2 = "WHERE     (HX職稱清單.級別 NOT LIKE N'05') AND (HX職稱清單.級別 NOT LIKE N'04') AND (HX職稱清單.級別 NOT LIKE N'03') AND (HX職稱清單.級別 NOT LIKE N'02') AND 
                              (HX職稱清單.級別 NOT LIKE N'01') AND (HX職稱清單.級別 NOT LIKE N'00') "
        ElseIf PA3 = "07" Then
            SQL2 = "WHERE     (HX職稱清單.級別 NOT LIKE N'06') AND (HX職稱清單.級別 NOT LIKE N'05') AND (HX職稱清單.級別 NOT LIKE N'04') AND (HX職稱清單.級別 NOT LIKE N'03') AND 
                              (HX職稱清單.級別 NOT LIKE N'02') AND (HX職稱清單.級別 NOT LIKE N'01') AND (HX職稱清單.級別 NOT LIKE N'00') "
        ElseIf PA3 = "08" Then
            SQL2 = "WHERE     (HX職稱清單.級別 NOT LIKE N'07') AND (HX職稱清單.級別 NOT LIKE N'06') AND (HX職稱清單.級別 NOT LIKE N'05') AND (HX職稱清單.級別 NOT LIKE N'04') AND 
                              (HX職稱清單.級別 NOT LIKE N'03') AND (HX職稱清單.級別 NOT LIKE N'02') AND (HX職稱清單.級別 NOT LIKE N'01') AND (HX職稱清單.級別 NOT LIKE N'00') "
        ElseIf PA3 = "09" Then
            SQL2 = "WHERE     (HX職稱清單.級別 NOT LIKE N'08') AND (HX職稱清單.級別 NOT LIKE N'07') AND (HX職稱清單.級別 NOT LIKE N'06') AND (HX職稱清單.級別 NOT LIKE N'05') AND 
                              (HX職稱清單.級別 NOT LIKE N'04') AND (HX職稱清單.級別 NOT LIKE N'03') AND (HX職稱清單.級別 NOT LIKE N'02') AND (HX職稱清單.級別 NOT LIKE N'01') AND 
                              (HX職稱清單.級別 NOT LIKE N'00') "
        End If
        ConnOpen()
        SQL1 = "SELECT     HX職稱清單.部 AS [" & 表頭(139) & "], HX職稱清單.處 AS [" & 表頭(140) & "], HX職稱清單.課 AS [" & 表頭(141) & "], HX職稱清單.組 AS [" & 表頭(142) & "], HX職稱清單.職稱 AS [" & 表頭(9) & "], 
                           系統跨部門權限表_暫存檔.時效  AS [" & 表頭(143) & "], 系統跨部門權限表_暫存檔.授權 AS [" & 表頭(144) & "], HX職稱清單.級別 AS [" & 表頭(138) & "]
                FROM       HX職稱清單 LEFT OUTER JOIN 系統跨部門權限表_暫存檔 ON HX職稱清單.職稱 = 系統跨部門權限表_暫存檔.職稱 " & SQL2 & "
                ORDER BY   HX職稱清單.部, HX職稱清單.職稱"
        CmdSet_For_DGV()
    End Sub
    Friend Sub SQL_跨部門主管權限設定_已設定過()
        If PA3 = "00" Then
            SQL2 = "WHERE     (系統跨部門權限表.姓名 LIKE N'" & PA1 & "') AND (系統跨部門權限表.帳號 LIKE N'" & PA2 & "') "
        ElseIf PA3 = "01" Then
            SQL2 = "WHERE     (HX職稱清單.級別 NOT LIKE N'00') AND (系統跨部門權限表.姓名 LIKE N'" & PA1 & "') AND (系統跨部門權限表.帳號 LIKE N'" & PA2 & "') "
        ElseIf PA3 = "02" Then
            SQL2 = "WHERE     (HX職稱清單.級別 NOT LIKE N'01') AND (HX職稱清單.級別 NOT LIKE N'00') AND (系統跨部門權限表.姓名 LIKE N'" & PA1 & "') AND (系統跨部門權限表.帳號 LIKE N'" & PA2 & "') "
        ElseIf PA3 = "03" Then
            SQL2 = "WHERE     (HX職稱清單.級別 NOT LIKE N'02') AND (HX職稱清單.級別 NOT LIKE N'01') AND (HX職稱清單.級別 NOT LIKE N'00') AND (系統跨部門權限表.姓名 LIKE N'" & PA1 & "') AND 
                              (系統跨部門權限表.帳號 LIKE N'" & PA2 & "') "
        ElseIf PA3 = "04" Then
            SQL2 = "WHERE     (HX職稱清單.級別 NOT LIKE N'03') AND (HX職稱清單.級別 NOT LIKE N'02') AND (HX職稱清單.級別 NOT LIKE N'01') AND (HX職稱清單.級別 NOT LIKE N'00') AND 
                              (系統跨部門權限表.姓名 LIKE N'" & PA1 & "') AND (系統跨部門權限表.帳號 LIKE N'" & PA2 & "') "
        ElseIf PA3 = "05" Then
            SQL2 = "WHERE     (HX職稱清單.級別 NOT LIKE N'04') AND (HX職稱清單.級別 NOT LIKE N'03') AND (HX職稱清單.級別 NOT LIKE N'02') AND (HX職稱清單.級別 NOT LIKE N'01') AND 
                              (HX職稱清單.級別 NOT LIKE N'00') AND (系統跨部門權限表.姓名 LIKE N'" & PA1 & "') AND (系統跨部門權限表.帳號 LIKE N'" & PA2 & "') "
        ElseIf PA3 = "06" Then
            SQL2 = "WHERE     (HX職稱清單.級別 NOT LIKE N'05') AND (HX職稱清單.級別 NOT LIKE N'04') AND (HX職稱清單.級別 NOT LIKE N'03') AND (HX職稱清單.級別 NOT LIKE N'02') AND 
                              (HX職稱清單.級別 NOT LIKE N'01') AND (HX職稱清單.級別 NOT LIKE N'00') AND (系統跨部門權限表.姓名 LIKE N'" & PA1 & "') AND 
                              (系統跨部門權限表.帳號 LIKE N'" & PA2 & "') "
        ElseIf PA3 = "07" Then
            SQL2 = "WHERE     (HX職稱清單.級別 NOT LIKE N'06') AND (HX職稱清單.級別 NOT LIKE N'05') AND (HX職稱清單.級別 NOT LIKE N'04') AND (HX職稱清單.級別 NOT LIKE N'03') AND 
                              (HX職稱清單.級別 NOT LIKE N'02') AND (HX職稱清單.級別 NOT LIKE N'01') AND (HX職稱清單.級別 NOT LIKE N'00') AND (系統跨部門權限表.姓名 LIKE N'" & PA1 & "') AND 
                              (系統跨部門權限表.帳號 LIKE N'" & PA2 & "') "
        ElseIf PA3 = "08" Then
            SQL2 = "WHERE     (HX職稱清單.級別 NOT LIKE N'07') AND (HX職稱清單.級別 NOT LIKE N'06') AND (HX職稱清單.級別 NOT LIKE N'05') AND (HX職稱清單.級別 NOT LIKE N'04') AND 
                              (HX職稱清單.級別 NOT LIKE N'03') AND (HX職稱清單.級別 NOT LIKE N'02') AND (HX職稱清單.級別 NOT LIKE N'01') AND (HX職稱清單.級別 NOT LIKE N'00') AND 
                              (系統跨部門權限表.姓名 LIKE N'" & PA1 & "') AND (系統跨部門權限表.帳號 LIKE N'" & PA2 & "') "
        ElseIf PA3 = "08" Then
            SQL2 = "WHERE     (HX職稱清單.級別 NOT LIKE N'08') AND (HX職稱清單.級別 NOT LIKE N'07') AND (HX職稱清單.級別 NOT LIKE N'06') AND (HX職稱清單.級別 NOT LIKE N'05') AND 
                              (HX職稱清單.級別 NOT LIKE N'04') AND (HX職稱清單.級別 NOT LIKE N'03') AND (HX職稱清單.級別 NOT LIKE N'02') AND (HX職稱清單.級別 NOT LIKE N'01') AND 
                              (HX職稱清單.級別 NOT LIKE N'00') AND (系統跨部門權限表.姓名 LIKE N'" & PA1 & "') AND (系統跨部門權限表.帳號 LIKE N'" & PA2 & "') "
        End If
        ConnOpen()
        SQL1 = "SELECT     HX職稱清單.部 AS [" & 表頭(139) & "], HX職稱清單.處 AS [" & 表頭(140) & "], HX職稱清單.課 AS [" & 表頭(141) & "], HX職稱清單.組 AS [" & 表頭(142) & "], 
                           HX職稱清單.職稱 AS [" & 表頭(9) & "], 
                           系統跨部門權限表.時效 AS [" & 表頭(143) & "], 系統跨部門權限表.授權 AS [" & 表頭(144) & "], HX職稱清單.級別  AS [" & 表頭(138) & "]
                FROM       HX職稱清單 LEFT OUTER JOIN 系統跨部門權限表 ON HX職稱清單.職稱 = 系統跨部門權限表.職稱 " & SQL2 & "
                ORDER BY   HX職稱清單.部, HX職稱清單.職稱"
        CmdSet_For_DGV()
    End Sub
    Friend Sub SQL_跨部門主管權限設定_存檔前確認()
        ConnOpen()
        SQL1 = "SELECT 職稱 FROM 系統跨部門權限表 WHERE (職稱 = N'" & PA4 & "' AND 姓名 = N'" & PA1 & "' AND 帳號 = N'" & PA2 & "')"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_跨部門主管權限設定_修改()
        ConnOpen()
        SQL1 = "UPDATE 系統跨部門權限表 SET 時效 = N'" & PA5 & "', 授權 = N'" & BL1 & "' WHERE (職稱 = N'" & PA4 & "' AND 姓名 = N'" & PA1 & "' AND 帳號 = N'" & PA2 & "')"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_跨部門主管權限設定_新增()
        ConnOpen()
        SQL1 = "INSERT INTO 系統跨部門權限表 (姓名, 帳號, 職稱, 時效, 授權) VALUES (N'" & PA1 & "',N'" & PA2 & "',N'" & PA4 & "',N'" & PA5 & "',N'" & BL1 & "')"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_跨部門主管權限設定_刪除()
        ConnOpen() : SQL1 = "DELETE 系統跨部門權限表 WHERE (姓名 = N'" & PA & "')" : CmdSet_For_dr()
    End Sub
    '---------------------系統編碼規則-----------------------------------------------------------------------------------------------------------------
    Friend Sub SQL_年份()
        ConnOpen() : SQL1 = "SELECT  年份 AS [" & 表頭(163) & "] FROM 年份清單 ORDER BY 年份 DESC" : CmdSet_For_DGV()
    End Sub
    Friend Sub SQL_FTP位置()
        ConnOpen()
        SQL1 = "SELECT FTP地址 AS [" & 表頭(164) & "], FTP帳號 AS [" & 表頭(165) & "], FTP密碼 AS [" & 表頭(166) & "], 地區 AS [" & 表頭(167) & "], FTP物理位置 AS [" & 表頭(168) & "] 
                FROM FTP資料庫管理"
        CmdSet_For_DGV()
    End Sub
    Friend Sub SQL_請購單除錯()
        ConnOpen()
        SQL1 = " SELECT 請購單控制表.請購單號  AS [" & 表頭(172) & "]
          From 請購單控制表 LEFT OUTER Join
               請購單明細表 ON 請購單控制表.請購單號 = 請購單明細表.請購單號
           Where (請購單明細表.請購單號 Is NULL)
          Order By 請購單控制表.請購單號 DESC "
        CmdSet_For_DGV()
    End Sub
    Friend Sub SQL_請購控制表除錯_刪除()
        ConnOpen() : SQL1 = "DELETE 請購單控制表 WHERE (請購單號 = N'" & PA & "')" : CmdSet_For_dr()
    End Sub
    Friend Sub SQL_倉儲明細表除錯()
        ConnOpen()
        SQL1 = "SELECT   HX選擇按鈕.選擇 AS [" & 表頭(44) & "] , QQQ.料號 AS [" & 表頭(77) & "], QQQ.料號_NOT
                FROM     HX選擇按鈕 RIGHT OUTER JOIN
                        (SELECT          倉儲明細表.料號, 物料規格表.料號 AS 料號_NOT
                         FROM               倉儲明細表 LEFT OUTER JOIN 物料規格表 ON 倉儲明細表.料號 = 物料規格表.料號
                         GROUP BY    倉儲明細表.料號, 物料規格表.料號) AS QQQ ON HX選擇按鈕.對應 = QQQ.料號
                WHERE   (QQQ.料號_NOT IS NULL)"
        CmdSet_For_DGV()
    End Sub
    Friend Sub SQL_倉儲明細表除錯_修改()
        ConnOpen() : SQL1 = "UPDATE 倉儲明細表 SET 料號 = N'" & PA1 & "' WHERE (料號 = N'" & PA & "')" : CmdSet_For_dr()
    End Sub
    Friend Sub SQL_倉儲明細表除錯_刪除()
        ConnOpen() : SQL1 = "DELETE 倉儲明細表 WHERE (料號 = N'" & PA & "')" : CmdSet_For_dr()
    End Sub
    Friend Sub SQL_FTP新增查詢()
        SQL1 = "SELECT 地區 FROM FTP資料庫管理 WHERE 地區 LIKE N'" & 系統編碼規則.地區_tb.Text & "'"
    End Sub
    Friend Sub SQL_FTP新增()
        SQL1 = "INSERT INTO FTP資料庫管理 (FTP地址, FTP帳號, FTP密碼, 地區, FTP物理位置) 
                VALUES (N'" & 系統編碼規則.FTP地址_tb.Text & "', N'" & 系統編碼規則.帳號_tb.Text & "', N'" & 系統編碼規則.密碼_tb.Text & "', 
                        N'" & 系統編碼規則.地區_tb.Text & "', N'" & 系統編碼規則.FTP實體_tb.Text & "')"
    End Sub
    Friend Sub SQL_FTP修改()
        SQL1 = "UPDATE FTP資料庫管理 SET FTP地址 = N'" & PA & "', FTP帳號 = N'" & PA1 & "', FTP密碼 = N'" & PA2 & "' , FTP物理位置 = N'" & PA3 & "'
                                    WHERE 地區 LIKE N'" & 系統編碼規則.地區_tb.Text & "'"
    End Sub
    Friend Sub SQL_FTP刪除()
        SQL1 = "DELETE FROM FTP資料庫管理 WHERE (地區 = N'" & 系統編碼規則.地區_tb.Text & "')"
    End Sub
    Friend Sub SQL_年份新增查詢()
        SQL1 = "SELECT 年份 FROM 年份清單 WHERE 年份 LIKE N'" & 系統編碼規則.年份_tb.Text & "'"
    End Sub
    Friend Sub SQL_年份新增()
        SQL1 = "INSERT INTO 年份清單 (年份) VALUES (N'" & 系統編碼規則.年份_tb.Text & "')"
    End Sub
    Friend Sub SQL_年份修改()
        SQL1 = "UPDATE 年份清單 SET 年份 = N'" & PA & "' WHERE 年份 LIKE N'" & 系統編碼規則.年份_tb.Text & "'"
    End Sub
    Friend Sub SQL_年份刪除()
        SQL1 = "DELETE FROM 年份清單 WHERE (年份 = N'" & 系統編碼規則.年份_tb.Text & "')"
    End Sub
    Friend Sub SQL_明細表除錯_修改()
        ConnOpen()
        SQL1 = "UPDATE 倉儲明細表 SET 倉名編號 = N'" & PA1 & "' WHERE 資料流水號 LIKE N'" & PA & "'"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_倉儲控制表除錯()
        ConnOpen()
        SQL1 = "SELECT          倉級 AS [" & 表頭(68) & "],倉名編號 AS [" & 表頭(69) & "], 倉名 AS [" & 表頭(174) & "]
                FROM            倉儲分區控制表
                WHERE          (倉級 LIKE N'3')"
        CmdSet_For_DGV()
    End Sub
    Friend Sub SQL_明細表除錯()
        ConnOpen()
        SQL1 = "SELECT          倉儲明細表.倉名編號 AS [" & 表頭(69) & "],倉儲分區控制表.倉名 ,倉儲明細表.資料流水號 AS [" & 表頭(137) & "],倉儲明細表.執行單號 AS [" & 表頭(173) & "]
                FROM             倉儲明細表 LEFT OUTER JOIN
                                  倉儲分區控制表 ON 倉儲明細表.倉名編號 = 倉儲分區控制表.倉名編號
                WHERE          (倉儲分區控制表.倉名 IS NULL)"
        CmdSet_For_DGV()
    End Sub
    Friend Sub SQL_天氣控制()
        ConnOpen_工程SQL()
        SQL1 = "SELECT         天氣 AS [" & 表頭(169) & "], 語言 AS [" & 表頭(2) & "],編碼 AS [" & 表頭(49) & "]
                   FROM        工程進度_天氣"
        CmdSet_For_DGV()
    End Sub
    Friend Sub SQL_天氣_資料讀取()
        ConnOpen_工程SQL() : SQL1 = "SELECT 天氣, 語言, 編碼 FROM 工程進度_天氣 WHERE (天氣 LIKE N'" & PA6 & "') " : CmdSet_For_dr()
    End Sub
    Friend Sub SQL_天氣控制_新增查詢()
        ConnOpen_工程SQL()
        SQL1 = "SELECT 天氣 FROM  工程進度_天氣 WHERE 天氣 LIKE N'" & 系統編碼規則.天氣_tb.Text & "'"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_天氣控制_新增()
        ConnOpen_工程SQL()
        SQL1 = "INSERT INTO  工程進度_天氣 (天氣,語言,編碼) VALUES (N'" & PA & "',N'" & PA1 & "', N'" & PA2 & "')"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_天氣控制_修改()
        ConnOpen_工程SQL()
        SQL1 = "UPDATE  工程進度_天氣 SET 天氣 = N'" & PA & "'  WHERE 編碼 LIKE N'" & PA1 & "' AND  語言 LIKE N'" & 系統編碼規則.系統語言_cb.Text & "' "
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_天氣控制_刪除()
        ConnOpen_工程SQL()
        SQL1 = "DELETE FROM  工程進度_天氣  WHERE (編碼 = N'" & 系統編碼規則.編碼_tb.Text & "' AND 語言 = N'" & 系統編碼規則.系統語言_cb.Text & "')"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_時間控制()
        ConnOpen_工程SQL()
        SQL1 = "SELECT 上下午 AS [" & 表頭(170) & "],時段 AS [" & 表頭(171) & "] FROM 工程進度_時間 ORDER BY 上下午"
        CmdSet_For_DGV()
    End Sub
    Friend Sub SQL_時間控制_新增查詢()
        ConnOpen_工程SQL()
        SQL1 = "SELECT 上下午 FROM  工程進度_時間 WHERE 上下午 LIKE N'" & 系統編碼規則.上下午_tb.Text & "'"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_時間控制_新增()
        ConnOpen_工程SQL()
        SQL1 = "INSERT INTO  工程進度_時間 (上下午,時段) VALUES (N'" & PA & "',N'" & PA1 & "')"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_時間控制_修改()
        ConnOpen_工程SQL()
        SQL1 = "UPDATE  工程進度_時間 SET 上下午 = N'" & PA & "'  WHERE 時段 LIKE N'" & 系統編碼規則.時段_cb.Text & "' AND 上下午  LIKE N'" & 系統編碼規則.上下午_tb.Text & "' "
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_時間控制_刪除()
        ConnOpen_工程SQL()
        SQL1 = "DELETE FROM  工程進度_時間  WHERE (上下午 = N'" & 系統編碼規則.上下午_tb.Text & "' AND 時段 = N'" & 系統編碼規則.時段_cb.Text & "')"
        CmdSet_For_dr()
    End Sub
    '---------------------系統綁定電腦資訊-----------------------------------------------------------------------------------------------------------------
    Friend Sub SQL_系統綁定電腦資訊表()
        ConnOpen() : SQL1 = "SELECT MAC碼, 硬碟ID, 硬碟序列, 磁盘型態 FROM 系統綁定電腦資訊" : CmdSet_For_DGV()
    End Sub
    Friend Sub SQL_系統綁定電腦註冊()
        ConnOpen()
        SQL1 = "SELECT MAC碼 FROM 系統綁定電腦資訊 
                WHERE 硬碟ID LIKE N'" & 系統對應電腦註冊.硬碟ID_tb.Text & "' AND 硬碟序列 LIKE N'" & 系統對應電腦註冊.硬碟序列_tb.Text & "' AND 
                      磁盘型態 LIKE N'" & 系統對應電腦註冊.磁盘型態_tb.Text & "'"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_系統綁定電腦註冊_新增()
        ConnOpen()
        SQL1 = "INSERT INTO 系統綁定電腦資訊 (MAC碼, 硬碟ID, 硬碟序列, 磁盘型態) 
                VALUES (N'" & 系統對應電腦註冊.MAC碼_tb.Text & "',N'" & 系統對應電腦註冊.硬碟ID_tb.Text & "',
                        N'" & 系統對應電腦註冊.硬碟序列_tb.Text & "',N'" & 系統對應電腦註冊.磁盘型態_tb.Text & "')"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_系統綁定電腦註冊_刪除()
        ConnOpen()
        SQL1 = "DELETE FROM 系統綁定電腦資訊 
                WHERE 硬碟ID LIKE N'" & 系統對應電腦註冊.硬碟ID_tb.Text & "' AND 硬碟序列 LIKE N'" & 系統對應電腦註冊.硬碟序列_tb.Text & "' AND 
                      磁盘型態 LIKE N'" & 系統對應電腦註冊.磁盘型態_tb.Text & "'"
        CmdSet_For_dr()
    End Sub
    '---------------------系統組織架構設定-----------------------------------------------------------------------------------------------------------------
    Friend Sub SQL_職稱清單()
        ConnOpen() : SQL1 = "SELECT 部, 處, 課, 組, 職稱, 級別 FROM HX職稱清單 ORDER BY 部,職稱" : CmdSet_For_DGV()
    End Sub
    Friend Sub SQL_部門清單()
        ConnOpen() : SQL1 = "SELECT 部門 FROM HX部門清單 ORDER BY 部門" : CmdSet_For_DGV()
    End Sub
    Friend Sub SQL_處別清單()
        ConnOpen() : SQL1 = "SELECT 處 AS 處別 FROM HX處級清單 WHERE 處 LIKE N'" & PA20 & "%' OR 處 LIKE N'0%' ORDER BY 處" : CmdSet_For_DGV()
    End Sub
    Friend Sub SQL_課別清單()
        ConnOpen() : SQL1 = "SELECT 課別 FROM HX課別清單 WHERE 課別 LIKE N'" & PA20 & "%' OR 課別 LIKE N'0%' ORDER BY 課別" : CmdSet_For_DGV()
    End Sub
    Friend Sub SQL_組別清單()
        ConnOpen() : SQL1 = "SELECT 組別 FROM HX組別清單 WHERE 組別 LIKE N'" & PA20 & "%' OR 組別 LIKE N'0%' ORDER BY 組別" : CmdSet_For_DGV()
    End Sub
    Friend Sub SQL_職稱重複查詢()
        SQL1 = "SELECT 職稱 FROM HX職稱清單 WHERE 職稱 LIKE N'" & 系統組織架構設定.職稱_tb.Text & "'"
    End Sub
    Friend Sub SQL_部門重複查詢()
        SQL1 = "SELECT 部門 FROM HX部門清單 WHERE 部門 LIKE N'" & PA1 & "'"
    End Sub
    Friend Sub SQL_課別重複查詢()
        SQL1 = "SELECT 課別 FROM HX課別清單 WHERE 課別 LIKE N'" & PA1 & "'"
    End Sub
    Friend Sub SQL_組別重複查詢()
        SQL1 = "SELECT 組別 FROM HX組別清單 WHERE 組別 LIKE N'" & PA1 & "'"
    End Sub
    Friend Sub SQL_處級重複查詢()
        SQL1 = "SELECT 處 FROM HX處級清單 WHERE 處 LIKE N'" & PA1 & "'"
    End Sub
    Friend Sub SQL_公司職稱清單_新增()
        SQL1 = "INSERT INTO HX職稱清單 (職稱, 級別) VALUES (N'" & 系統組織架構設定.職稱_tb.Text & "', N'" & 系統組織架構設定.級別_cb.Text & "')"
    End Sub
    Friend Sub SQL_公司部門清單_新增()
        SQL1 = "INSERT INTO HX部門清單 (部門) VALUES (N'" & PA1 & "')"
    End Sub
    Friend Sub SQL_公司課別清單_新增()
        SQL1 = "INSERT INTO HX課別清單 (課別) VALUES (N'" & PA1 & "')"
    End Sub
    Friend Sub SQL_公司組別清單_新增()
        SQL1 = "INSERT INTO HX組別清單 (組別) VALUES (N'" & PA1 & "')"
    End Sub
    Friend Sub SQL_公司處級清單_新增()
        SQL1 = "INSERT INTO HX處級清單 (處) VALUES (N'" & PA1 & "')"
    End Sub
    Friend Sub SQL_公司職稱清單_修改()
        SQL1 = "UPDATE HX職稱清單 SET 職稱 = N'" & PA & "', 級別 = N'" & 系統組織架構設定.級別_cb.Text & "' WHERE 職稱 LIKE N'" & 系統組織架構設定.職稱_tb.Text & "'"
    End Sub
    Friend Sub SQL_系統權限預設表_修改()
        SQL1 = "UPDATE 系統權限預設表 SET 職稱 = N'" & PA & "' WHERE 職稱 LIKE N'" & 系統組織架構設定.職稱_tb.Text & "'"
    End Sub
    Friend Sub SQL_系統跨部門權限表_修改()
        SQL1 = "UPDATE 系統跨部門權限表 SET 職稱 = N'" & PA & "' WHERE 職稱 LIKE N'" & 系統組織架構設定.職稱_tb.Text & "'"
    End Sub
    Friend Sub SQL_使用者權限管理表_修改()
        SQL1 = "UPDATE 使用者權限管理表 SET 職稱 = N'" & PA & "', 級別 = N'" & 系統組織架構設定.級別_cb.Text & "' WHERE 職稱 LIKE N'" & 系統組織架構設定.職稱_tb.Text & "'"
    End Sub
    Friend Sub SQL_公司職稱清單_修改級別()
        SQL1 = "UPDATE HX職稱清單 SET 級別 = N'" & 系統組織架構設定.級別_cb.Text & "' WHERE 職稱 LIKE N'" & 系統組織架構設定.職稱_tb.Text & "'"
    End Sub
    Friend Sub SQL_使用者權限管理表_修改級別()
        SQL1 = "UPDATE 使用者權限管理表 SET 級別 = N'" & 系統組織架構設定.級別_cb.Text & "' WHERE 職稱 LIKE N'" & 系統組織架構設定.職稱_tb.Text & "'"
    End Sub
    Friend Sub SQL_公司職稱清單_刪除()
        ConnOpen() : SQL1 = "DELETE FROM HX職稱清單 WHERE (職稱 = N'" & 系統組織架構設定.職稱_tb.Text & "')" : CmdSet_For_dr()
    End Sub
    Friend Sub SQL_系統權限預設表_刪除()
        ConnOpen() : SQL1 = "DELETE FROM 系統權限預設表 WHERE (職稱 = N'" & 系統組織架構設定.職稱_tb.Text & "')" : CmdSet_For_dr()
    End Sub
    Friend Sub SQL_使用者權限管理表_刪除()
        ConnOpen() : SQL1 = "DELETE FROM 系統跨部門權限表 WHERE (職稱 = N'" & 系統組織架構設定.職稱_tb.Text & "')" : CmdSet_For_dr()
    End Sub
    Friend Sub SQL_公司部門清單_刪除()
        SQL1 = "DELETE FROM HX部門清單 WHERE (部門 = N'" & PA1 & "')"
    End Sub
    Friend Sub SQL_公司課別清單_刪除()
        SQL1 = "DELETE FROM HX課別清單 WHERE (課別 = N'" & PA1 & "')"
    End Sub
    Friend Sub SQL_公司組別清單_刪除()
        SQL1 = "DELETE FROM HX組別清單 WHERE (組別 = N'" & PA1 & "')"
    End Sub
    Friend Sub SQL_公司處級清單_刪除()
        SQL1 = "DELETE FROM HX處級清單 WHERE (處 = N'" & PA1 & "')"
    End Sub
    Friend Sub SQL_公司職稱清單_存檔()
        ConnOpen()
        SQL1 = "UPDATE HX職稱清單 SET 部 = N'" & PA1 & "', 處 = N'" & PA2 & "', 課 = N'" & PA3 & "', 組 = N'" & PA4 & "', 級別 = N'" & PA6 & "'
                   WHERE (職稱 LIKE N'" & PA5 & "')"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_公司部門清單_修改部門()
        SQL1 = "UPDATE HX部門清單 SET 部門 = N'" & PA & "' WHERE 部門 LIKE N'" & PA1 & "'"
    End Sub
    Friend Sub SQL_公司職稱清單_修改部門()
        SQL1 = "UPDATE HX職稱清單 SET 部 = N'" & PA & "' WHERE 部 LIKE N'" & PA1 & "'"
    End Sub
    Friend Sub SQL_使用者權限管理表_修改部門()
        SQL1 = "UPDATE 使用者權限管理表 SET 部門 = N'" & PA & "' WHERE 部門 LIKE N'" & PA1 & "'"
    End Sub
    Friend Sub SQL_公司課別清單_修改課別()
        SQL1 = "UPDATE HX課別清單 SET 課別 = N'" & PA & "' WHERE 課別 LIKE N'" & PA1 & "'"
    End Sub
    Friend Sub SQL_公司職稱清單_修改課別()
        SQL1 = "UPDATE HX職稱清單 SET 課 = N'" & PA & "' WHERE 課 LIKE N'" & PA1 & "'"
    End Sub
    Friend Sub SQL_使用者權限管理表_修改課別()
        SQL1 = "UPDATE 使用者權限管理表 SET 課別 = N'" & PA & "' WHERE 課別 LIKE N'" & PA1 & "'"
    End Sub
    Friend Sub SQL_公司組別清單_修改組別()
        SQL1 = "UPDATE HX組別清單 SET 組別 = N'" & PA & "' WHERE 組別 LIKE N'" & PA1 & "'"
    End Sub
    Friend Sub SQL_公司職稱清單_修改組別()
        SQL1 = "UPDATE HX職稱清單 SET 組 = N'" & PA & "' WHERE 組 LIKE N'" & PA1 & "'"
    End Sub
    Friend Sub SQL_使用者權限管理表_修改組別()
        SQL1 = "UPDATE 使用者權限管理表 SET 組別 = N'" & PA & "' WHERE 組別 LIKE N'" & PA1 & "'"
    End Sub
    Friend Sub SQL_公司處級清單_修改處級()
        SQL1 = "UPDATE HX處級清單 SET 處 = N'" & PA & "' WHERE 處 LIKE N'" & PA1 & "'"
    End Sub
    Friend Sub SQL_公司職稱清單_修改處級()
        SQL1 = "UPDATE HX職稱清單 SET 處 = N'" & PA & "' WHERE 處 LIKE N'" & PA1 & "'"
    End Sub
    Friend Sub SQL_使用者權限管理表_修改處級()
        SQL1 = "UPDATE 使用者權限管理表 SET 處別 = N'" & PA & "' WHERE 處別 LIKE N'" & PA1 & "'"
    End Sub
    '---------------------簽名檔管理-----------------------------------------------------------------------------------------------------------------
    Friend Sub SQL_簽名檔清單()
        ConnOpen() : SQL1 = "SELECT 圖片流水號 AS [" & 表頭(87) & "], 簽名檔人名 AS [" & 表頭(162) & "] FROM HX主管簽名檔管理 ORDER BY 圖片流水號" : CmdSet_For_DGV()
    End Sub
    Friend Sub SQL_姓名清單()
        ConnOpen()
        SQL1 = "SELECT 姓名 FROM 使用者權限管理表 
                WHERE  (級別 LIKE '01' OR 級別 LIKE '02' OR 級別 LIKE '03' OR 級別 LIKE '04' OR 級別 LIKE '05' OR 級別 LIKE '06' OR 級別 LIKE '07' OR 級別 LIKE '08') AND 
                       (姓名 NOT LIKE '未啟用/Not Enabled') AND (CC63 = 0)  ORDER BY 職稱"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_簽名檔圖片讀取()
        ConnOpen() : SQL1 = "SELECT 簽名檔圖片 FROM HX主管簽名檔管理 WHERE 圖片流水號 LIKE N'" & PA20 & "'" : CmdSet_For_dr()
    End Sub
    Friend Sub SQL_簽名檔新增()
        ConnOpen() : SQL1 = "INSERT INTO HX主管簽名檔管理 (圖片流水號, 簽名檔人名, 簽名檔圖片) SELECT '" & PA20 & "', '" & PA21 & "', @binary_file" : CmdSet_For_dr_pic()
    End Sub
    Friend Sub SQL_簽名檔最末編號讀取()
        ConnOpen() : SQL1 = "SELECT TOP (1) 圖片流水號 FROM HX主管簽名檔管理 ORDER BY 圖片流水號 DESC" : CmdSet_For_dr()
    End Sub
    Friend Sub SQL_簽名檔刪除()
        ConnOpen() : SQL1 = "DELETE FROM HX主管簽名檔管理 WHERE (圖片流水號 = N'" & PA20 & "')" : CmdSet_For_dr()
    End Sub

    '-------詩文新增------
    Friend Sub SQL_人員基本資料批改_清單(員工條件 As String)
        ConnOpen_管理SQL()
        SQL1 = "SELECT          [HX-GPS-ERP-SYS].dbo.使用者權限管理表.姓名 AS [" & 表頭(1) & "], 人員資料表.帳號, 人員資料表.員工代碼 AS [" & 表頭(2) & "], 
                            [HX-GPS-ERP-SYS].dbo.使用者權限管理表.部門, [HX-GPS-ERP-SYS].dbo.使用者權限管理表.課別, 
                            [HX-GPS-ERP-SYS].dbo.使用者權限管理表.職稱, [HX-GPS-ERP-SYS].dbo.使用者權限管理表.組別, 
                            [HX-GPS-ERP-SYS].dbo.使用者權限管理表.級別, 人事圖片_2.帳號 AS 圖片1, 人事圖片_1.帳號 AS 圖片2, 
                            IMAGE3_SYS.dbo.人事圖片.帳號 AS 圖片3, 人員資料表.照片位置
                        FROM              人員資料表 LEFT OUTER JOIN
                                                    IMAGE3_SYS.dbo.人事圖片 ON 人員資料表.帳號 = IMAGE3_SYS.dbo.人事圖片.帳號 LEFT OUTER JOIN
                                                    IMAGE2_SYS.dbo.人事圖片 AS 人事圖片_1 ON 人員資料表.帳號 = 人事圖片_1.帳號 LEFT OUTER JOIN
                                                    IMAGE1_SYS.dbo.人事圖片 AS 人事圖片_2 ON 人員資料表.帳號 = 人事圖片_2.帳號 LEFT OUTER JOIN
                                                    [HX-GPS-ERP-SYS].dbo.使用者權限管理表 ON 
                                                    人員資料表.帳號 = [HX-GPS-ERP-SYS].dbo.使用者權限管理表.帳號
                        WHERE          ([HX-GPS-ERP-SYS].dbo.使用者權限管理表.姓名 NOT LIKE N'未啟用%') " & 員工條件 & " AND ((人員資料表.員工代碼 LIKE N'') OR
                                                    (人事圖片_2.帳號 IS NULL) AND (人事圖片_1.帳號 IS NULL) AND (IMAGE3_SYS.dbo.人事圖片.帳號 IS NULL))
                        ORDER BY   [HX-GPS-ERP-SYS].dbo.使用者權限管理表.部門, [HX-GPS-ERP-SYS].dbo.使用者權限管理表.職稱, 
                                                    [HX-GPS-ERP-SYS].dbo.使用者權限管理表.課別, [HX-GPS-ERP-SYS].dbo.使用者權限管理表.組別, 
                                                    [HX-GPS-ERP-SYS].dbo.使用者權限管理表.姓名"
        CmdSet_For_DGV()
    End Sub
    Friend Sub SQL_人員基本資料批改_修改(帳號 As String, 員工代碼 As String)
        ConnOpen_管理SQL()
        SQL1 = "UPDATE  人員資料表  SET 員工代碼=N'" & 員工代碼 & "' WHERE  帳號 LIKE N'" & 帳號 & "'"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_人員基本資料批改_圖片清單(員工條件 As String)
        ConnOpen_管理SQL()
        SQL1 = "SELECT          [HX-GPS-ERP-SYS].dbo.使用者權限管理表.姓名, 人員資料表.帳號, [HX-GPS-ERP-SYS].dbo.使用者權限管理表.部門, 
                            [HX-GPS-ERP-SYS].dbo.使用者權限管理表.課別, [HX-GPS-ERP-SYS].dbo.使用者權限管理表.職稱, 
                            [HX-GPS-ERP-SYS].dbo.使用者權限管理表.組別, 人員資料表.照片位置
                        FROM              人員資料表 LEFT OUTER JOIN
                                                    [HX-GPS-ERP-SYS].dbo.使用者權限管理表 ON 
                                                    人員資料表.帳號 = [HX-GPS-ERP-SYS].dbo.使用者權限管理表.帳號
                        WHERE        ([HX-GPS-ERP-SYS].dbo.使用者權限管理表.姓名 NOT LIKE N'未啟用%')  " & 員工條件 & "
                        ORDER BY   [HX-GPS-ERP-SYS].dbo.使用者權限管理表.部門, [HX-GPS-ERP-SYS].dbo.使用者權限管理表.職稱, 
                                                    [HX-GPS-ERP-SYS].dbo.使用者權限管理表.課別, [HX-GPS-ERP-SYS].dbo.使用者權限管理表.組別, 
                                                    [HX-GPS-ERP-SYS].dbo.使用者權限管理表.姓名"
        CmdSet_For_DGV()
    End Sub
    Friend Sub SQL_人員基本資料批改_圖片新增(帳號 As String)
        ConnOpen_工程圖庫SQL() : SQL1 = "INSERT INTO 人事圖片 (帳號, 身分證) SELECT N'" & 帳號 & "', @binary_file" : CmdSet_For_dr_pic()
    End Sub
    Friend Sub SQL_人員基本資料批改_圖片修改(帳號 As String)
        ConnOpen_工程圖庫SQL() : SQL1 = "UPDATE 人事圖片 SET  身分證 = @binary_file WHERE 帳號 LIKE N'" & 帳號 & "'" : CmdSet_For_dr_pic()
    End Sub
    Friend Sub SQL_人員基本資料批改_人員讀取(帳號 As String)
        ConnOpen_工程圖庫SQL() : SQL1 = "SELECT  身分證 FROM  人事圖片  WHERE  (帳號 LIKE '" & 帳號 & "')" : CmdSet_For_dr()
    End Sub
End Module