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 & "', N'" & 系統使用者管理.ID_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 & "', ID卡號 = N'" & 系統使用者管理.ID_tb.Text & "',NAS密碼 = N'" & 系統使用者管理.NAS密碼_tb.Text & "', CC01 = N'" & 系統使用者管理.CheckBox1.Checked & "', CC02 = N'" & 系統使用者管理.CheckBox2.Checked & "', CC03 = N'" & 系統使用者管理.CheckBox3.Checked & "', CC04 = N'" & 系統使用者管理.CheckBox4.Checked & "', CC05 = N'" & 系統使用者管理.CheckBox5.Checked & "', CC06 = N'" & 系統使用者管理.CheckBox6.Checked & "', CC07 = N'" & 系統使用者管理.CheckBox7.Checked & "', CC08 = N'" & 系統使用者管理.CheckBox8.Checked & "', CC09 = N'" & 系統使用者管理.CheckBox9.Checked & "', CC10 = N'" & 系統使用者管理.CheckBox10.Checked & "', CC11 = N'" & 系統使用者管理.CheckBox11.Checked & "', CC12 = N'" & 系統使用者管理.CheckBox12.Checked & "', CC13 = N'" & 系統使用者管理.CheckBox13.Checked & "', CC14 = N'" & 系統使用者管理.CheckBox14.Checked & "', CC15 = N'" & 系統使用者管理.CheckBox15.Checked & "', CC16 = N'" & 系統使用者管理.CheckBox16.Checked & "', CC17 = N'" & 系統使用者管理.CheckBox17.Checked & "', CC18 = N'" & 系統使用者管理.CheckBox18.Checked & "', CC19 = N'" & 系統使用者管理.CheckBox19.Checked & "', CC20 = N'" & 系統使用者管理.CheckBox20.Checked & "', CC21 = N'" & 系統使用者管理.CheckBox21.Checked & "', CC22 = N'" & 系統使用者管理.CheckBox22.Checked & "', CC23 = N'" & 系統使用者管理.CheckBox23.Checked & "', CC24 = N'" & 系統使用者管理.CheckBox24.Checked & "', CC25 = N'" & 系統使用者管理.CheckBox25.Checked & "', CC26 = N'" & 系統使用者管理.CheckBox26.Checked & "', CC27 = N'" & 系統使用者管理.CheckBox27.Checked & "', CC28 = N'" & 系統使用者管理.CheckBox28.Checked & "', CC29 = N'" & 系統使用者管理.CheckBox29.Checked & "', CC30 = N'" & 系統使用者管理.CheckBox30.Checked & "', CC31 = N'" & 系統使用者管理.CheckBox31.Checked & "', CC32 = N'" & 系統使用者管理.CheckBox32.Checked & "', CC33 = N'" & 系統使用者管理.CheckBox33.Checked & "', CC34 = N'" & 系統使用者管理.CheckBox34.Checked & "', CC35 = N'" & 系統使用者管理.CheckBox35.Checked & "', CC36 = N'" & 系統使用者管理.CheckBox36.Checked & "', CC37 = N'" & 系統使用者管理.CheckBox37.Checked & "', CC38 = N'" & 系統使用者管理.CheckBox38.Checked & "', CC39 = N'" & 系統使用者管理.CheckBox39.Checked & "', CC40 = N'" & 系統使用者管理.CheckBox40.Checked & "', CC41 = N'" & 系統使用者管理.CheckBox41.Checked & "', CC42 = N'" & 系統使用者管理.CheckBox42.Checked & "', CC43 = N'" & 系統使用者管理.CheckBox43.Checked & "', CC44 = N'" & 系統使用者管理.CheckBox44.Checked & "', CC45 = N'" & 系統使用者管理.CheckBox45.Checked & "', CC46 = N'" & 系統使用者管理.CheckBox46.Checked & "', CC47 = N'" & 系統使用者管理.CheckBox47.Checked & "', CC48 = N'" & 系統使用者管理.CheckBox48.Checked & "', CC49 = N'" & 系統使用者管理.CheckBox49.Checked & "', CC50 = N'" & 系統使用者管理.CheckBox50.Checked & "', CC51 = N'" & 系統使用者管理.CheckBox51.Checked & "', CC52 = N'" & 系統使用者管理.CheckBox52.Checked & "', CC53 = N'" & 系統使用者管理.CheckBox53.Checked & "', CC54 = N'" & 系統使用者管理.CheckBox54.Checked & "', CC55 = N'" & 系統使用者管理.CheckBox55.Checked & "', CC56 = N'" & 系統使用者管理.CheckBox56.Checked & "', CC57 = N'" & 系統使用者管理.CheckBox57.Checked & "', CC58 = N'" & 系統使用者管理.CheckBox58.Checked & "', CC59 = N'" & 系統使用者管理.CheckBox59.Checked & "', CC60 = N'" & 系統使用者管理.CheckBox60.Checked & "', CC61 = N'" & 系統使用者管理.CheckBox61.Checked & "', CC62 = N'" & 系統使用者管理.CheckBox62.Checked & "', CC63 = N'" & 系統使用者管理.CheckBox63.Checked & "', CC64 = N'" & 系統使用者管理.CheckBox64.Checked & "', CC65 = N'" & 系統使用者管理.CheckBox65.Checked & "', CC66 = N'" & 系統使用者管理.CheckBox66.Checked & "', CC67 = N'" & 系統使用者管理.CheckBox67.Checked & "', CC68 = N'" & 系統使用者管理.CheckBox68.Checked & "', CC69 = N'" & 系統使用者管理.CheckBox69.Checked & "', CC70 = N'" & 系統使用者管理.CheckBox70.Checked & "', CC71 = N'" & 系統使用者管理.CheckBox71.Checked & "', CC72 = N'" & 系統使用者管理.CheckBox72.Checked & "', CC73 = N'" & 系統使用者管理.CheckBox73.Checked & "', CC74 = N'" & 系統使用者管理.CheckBox74.Checked & "', CC75 = N'" & 系統使用者管理.CheckBox75.Checked & "', CC76 = N'" & 系統使用者管理.CheckBox76.Checked & "', CC77 = N'" & 系統使用者管理.CheckBox77.Checked & "', CC78 = N'" & 系統使用者管理.CheckBox78.Checked & "', CC79 = N'" & 系統使用者管理.CheckBox79.Checked & "', CC80 = N'" & 系統使用者管理.CheckBox80.Checked & "', CC81 = N'" & 系統使用者管理.CheckBox81.Checked & "', CC82 = N'" & 系統使用者管理.CheckBox82.Checked & "', CC83 = N'" & 系統使用者管理.CheckBox83.Checked & "', CC84 = N'" & 系統使用者管理.CheckBox84.Checked & "', CC85 = N'" & 系統使用者管理.CheckBox85.Checked & "', CC86 = N'" & 系統使用者管理.CheckBox86.Checked & "', CC87 = N'" & 系統使用者管理.CheckBox87.Checked & "', CC88 = N'" & 系統使用者管理.CheckBox88.Checked & "', CC89 = N'" & 系統使用者管理.CheckBox89.Checked & "', CC90 = N'" & 系統使用者管理.CheckBox90.Checked & "', CC91 = N'" & 系統使用者管理.CheckBox91.Checked & "', CC92 = N'" & 系統使用者管理.CheckBox92.Checked & "', CC93 = N'" & 系統使用者管理.CheckBox93.Checked & "', CC94 = N'" & 系統使用者管理.CheckBox94.Checked & "', CC95 = N'" & 系統使用者管理.CheckBox95.Checked & "', CC96 = N'" & 系統使用者管理.CheckBox96.Checked & "', CC97 = N'" & 系統使用者管理.CheckBox97.Checked & "', CC98 = N'" & 系統使用者管理.CheckBox98.Checked & "', CC99 = N'" & 系統使用者管理.CheckBox99.Checked & "', CC100 = N'" & 系統使用者管理.CheckBox100.Checked & "', CC101 = N'" & 系統使用者管理.CheckBox101.Checked & "', CC102 = N'" & 系統使用者管理.CheckBox102.Checked & "', CC103 = N'" & 系統使用者管理.CheckBox103.Checked & "', CC104 = N'" & 系統使用者管理.CheckBox104.Checked & "', CC105 = N'" & 系統使用者管理.CheckBox105.Checked & "', CC106 = N'" & 系統使用者管理.CheckBox106.Checked & "', CC107 = N'" & 系統使用者管理.CheckBox107.Checked & "', CC108 = N'" & 系統使用者管理.CheckBox108.Checked & "', CC109 = N'" & 系統使用者管理.CheckBox109.Checked & "', CC110 = N'" & 系統使用者管理.CheckBox110.Checked & "', CC111 = N'" & 系統使用者管理.CheckBox111.Checked & "', CC112 = N'" & 系統使用者管理.CheckBox112.Checked & "', CC113 = N'" & 系統使用者管理.CheckBox113.Checked & "', CC114 = N'" & 系統使用者管理.CheckBox114.Checked & "', CC115 = N'" & 系統使用者管理.CheckBox115.Checked & "', CC116 = N'" & 系統使用者管理.CheckBox116.Checked & "', CC117 = N'" & 系統使用者管理.CheckBox117.Checked & "', CC118 = N'" & 系統使用者管理.CheckBox118.Checked & "', CC119 = N'" & 系統使用者管理.CheckBox119.Checked & "', CC120 = N'" & 系統使用者管理.CheckBox120.Checked & "', CC121 = N'" & 系統使用者管理.CheckBox121.Checked & "', CC122 = N'" & 系統使用者管理.CheckBox122.Checked & "', CC123 = N'" & 系統使用者管理.CheckBox123.Checked & "', CC124 = N'" & 系統使用者管理.CheckBox124.Checked & "', CC125 = N'" & 系統使用者管理.CheckBox125.Checked & "', CC126 = N'" & 系統使用者管理.CheckBox126.Checked & "', CC127 = N'" & 系統使用者管理.CheckBox127.Checked & "', CC128 = N'" & 系統使用者管理.CheckBox128.Checked & "' WHERE (帳號 = N'" & 系統使用者管理.帳號_tb.Text & "')" CmdSet_For_dr() End Sub Friend Sub SQL_系統權限預設表修改() ConnOpen() SQL1 = "UPDATE " & PA & " SET CC01 = N'" & 系統權限預設表.CheckBox1.Checked & "', CC02 = N'" & 系統權限預設表.CheckBox2.Checked & "', CC03 = N'" & 系統權限預設表.CheckBox3.Checked & "', CC04 = N'" & 系統權限預設表.CheckBox4.Checked & "', CC05 = N'" & 系統權限預設表.CheckBox5.Checked & "', CC06 = N'" & 系統權限預設表.CheckBox6.Checked & "', CC07 = N'" & 系統權限預設表.CheckBox7.Checked & "', CC08 = N'" & 系統權限預設表.CheckBox8.Checked & "', CC09 = N'" & 系統權限預設表.CheckBox9.Checked & "', CC10 = N'" & 系統權限預設表.CheckBox10.Checked & "', CC11 = N'" & 系統權限預設表.CheckBox11.Checked & "', CC12 = N'" & 系統權限預設表.CheckBox12.Checked & "', CC13 = N'" & 系統權限預設表.CheckBox13.Checked & "', CC14 = N'" & 系統權限預設表.CheckBox14.Checked & "', CC15 = N'" & 系統權限預設表.CheckBox15.Checked & "', CC16 = N'" & 系統權限預設表.CheckBox16.Checked & "', CC17 = N'" & 系統權限預設表.CheckBox17.Checked & "', CC18 = N'" & 系統權限預設表.CheckBox18.Checked & "', CC19 = N'" & 系統權限預設表.CheckBox19.Checked & "', CC20 = N'" & 系統權限預設表.CheckBox20.Checked & "', CC21 = N'" & 系統權限預設表.CheckBox21.Checked & "', CC22 = N'" & 系統權限預設表.CheckBox22.Checked & "', CC23 = N'" & 系統權限預設表.CheckBox23.Checked & "', CC24 = N'" & 系統權限預設表.CheckBox24.Checked & "', CC25 = N'" & 系統權限預設表.CheckBox25.Checked & "', CC26 = N'" & 系統權限預設表.CheckBox26.Checked & "', CC27 = N'" & 系統權限預設表.CheckBox27.Checked & "', CC28 = N'" & 系統權限預設表.CheckBox28.Checked & "', CC29 = N'" & 系統權限預設表.CheckBox29.Checked & "', CC30 = N'" & 系統權限預設表.CheckBox30.Checked & "', CC31 = N'" & 系統權限預設表.CheckBox31.Checked & "', CC32 = N'" & 系統權限預設表.CheckBox32.Checked & "', CC33 = N'" & 系統權限預設表.CheckBox33.Checked & "', CC34 = N'" & 系統權限預設表.CheckBox34.Checked & "', CC35 = N'" & 系統權限預設表.CheckBox35.Checked & "', CC36 = N'" & 系統權限預設表.CheckBox36.Checked & "', CC37 = N'" & 系統權限預設表.CheckBox37.Checked & "', CC38 = N'" & 系統權限預設表.CheckBox38.Checked & "', CC39 = N'" & 系統權限預設表.CheckBox39.Checked & "', CC40 = N'" & 系統權限預設表.CheckBox40.Checked & "', CC41 = N'" & 系統權限預設表.CheckBox41.Checked & "', CC42 = N'" & 系統權限預設表.CheckBox42.Checked & "', CC43 = N'" & 系統權限預設表.CheckBox43.Checked & "', CC44 = N'" & 系統權限預設表.CheckBox44.Checked & "', CC45 = N'" & 系統權限預設表.CheckBox45.Checked & "', CC46 = N'" & 系統權限預設表.CheckBox46.Checked & "', CC47 = N'" & 系統權限預設表.CheckBox47.Checked & "', CC48 = N'" & 系統權限預設表.CheckBox48.Checked & "', CC49 = N'" & 系統權限預設表.CheckBox49.Checked & "', CC50 = N'" & 系統權限預設表.CheckBox50.Checked & "', CC51 = N'" & 系統權限預設表.CheckBox51.Checked & "', CC52 = N'" & 系統權限預設表.CheckBox52.Checked & "', CC53 = N'" & 系統權限預設表.CheckBox53.Checked & "', CC54 = N'" & 系統權限預設表.CheckBox54.Checked & "', CC55 = N'" & 系統權限預設表.CheckBox55.Checked & "', CC56 = N'" & 系統權限預設表.CheckBox56.Checked & "', CC57 = N'" & 系統權限預設表.CheckBox57.Checked & "', CC58 = N'" & 系統權限預設表.CheckBox58.Checked & "', CC59 = N'" & 系統權限預設表.CheckBox59.Checked & "', CC60 = N'" & 系統權限預設表.CheckBox60.Checked & "', CC61 = N'" & 系統權限預設表.CheckBox61.Checked & "', CC62 = N'" & 系統權限預設表.CheckBox62.Checked & "', CC63 = N'" & 系統權限預設表.CheckBox63.Checked & "', CC64 = N'" & 系統權限預設表.CheckBox64.Checked & "', CC65 = N'" & 系統權限預設表.CheckBox65.Checked & "', CC66 = N'" & 系統權限預設表.CheckBox66.Checked & "', CC67 = N'" & 系統權限預設表.CheckBox67.Checked & "', CC68 = N'" & 系統權限預設表.CheckBox68.Checked & "', CC69 = N'" & 系統權限預設表.CheckBox69.Checked & "', CC70 = N'" & 系統權限預設表.CheckBox70.Checked & "', CC71 = N'" & 系統權限預設表.CheckBox71.Checked & "', CC72 = N'" & 系統權限預設表.CheckBox72.Checked & "', CC73 = N'" & 系統權限預設表.CheckBox73.Checked & "', CC74 = N'" & 系統權限預設表.CheckBox74.Checked & "', CC75 = N'" & 系統權限預設表.CheckBox75.Checked & "', CC76 = N'" & 系統權限預設表.CheckBox76.Checked & "', CC77 = N'" & 系統權限預設表.CheckBox77.Checked & "', CC78 = N'" & 系統權限預設表.CheckBox78.Checked & "', CC79 = N'" & 系統權限預設表.CheckBox79.Checked & "', CC80 = N'" & 系統權限預設表.CheckBox80.Checked & "', CC81 = N'" & 系統權限預設表.CheckBox81.Checked & "', CC82 = N'" & 系統權限預設表.CheckBox82.Checked & "', CC83 = N'" & 系統權限預設表.CheckBox83.Checked & "', CC84 = N'" & 系統權限預設表.CheckBox84.Checked & "', CC85 = N'" & 系統權限預設表.CheckBox85.Checked & "', CC86 = N'" & 系統權限預設表.CheckBox86.Checked & "', CC87 = N'" & 系統權限預設表.CheckBox87.Checked & "', CC88 = N'" & 系統權限預設表.CheckBox88.Checked & "', CC89 = N'" & 系統權限預設表.CheckBox89.Checked & "', CC90 = N'" & 系統權限預設表.CheckBox90.Checked & "', CC91 = N'" & 系統權限預設表.CheckBox91.Checked & "', CC92 = N'" & 系統權限預設表.CheckBox92.Checked & "', CC93 = N'" & 系統權限預設表.CheckBox93.Checked & "', CC94 = N'" & 系統權限預設表.CheckBox94.Checked & "', CC95 = N'" & 系統權限預設表.CheckBox95.Checked & "', CC96 = N'" & 系統權限預設表.CheckBox96.Checked & "', CC97 = N'" & 系統權限預設表.CheckBox97.Checked & "', CC98 = N'" & 系統權限預設表.CheckBox98.Checked & "', CC99 = N'" & 系統權限預設表.CheckBox99.Checked & "', CC100 = N'" & 系統權限預設表.CheckBox100.Checked & "', CC101 = N'" & 系統權限預設表.CheckBox101.Checked & "', CC102 = N'" & 系統權限預設表.CheckBox102.Checked & "', CC103 = N'" & 系統權限預設表.CheckBox103.Checked & "', CC104 = N'" & 系統權限預設表.CheckBox104.Checked & "', CC105 = N'" & 系統權限預設表.CheckBox105.Checked & "', CC106 = N'" & 系統權限預設表.CheckBox106.Checked & "', CC107 = N'" & 系統權限預設表.CheckBox107.Checked & "', CC108 = N'" & 系統權限預設表.CheckBox108.Checked & "', CC109 = N'" & 系統權限預設表.CheckBox109.Checked & "', CC110 = N'" & 系統權限預設表.CheckBox110.Checked & "', CC111 = N'" & 系統權限預設表.CheckBox111.Checked & "', CC112 = N'" & 系統權限預設表.CheckBox112.Checked & "', CC113 = N'" & 系統權限預設表.CheckBox113.Checked & "', CC114 = N'" & 系統權限預設表.CheckBox114.Checked & "', CC115 = N'" & 系統權限預設表.CheckBox115.Checked & "', CC116 = N'" & 系統權限預設表.CheckBox116.Checked & "', CC117 = N'" & 系統權限預設表.CheckBox117.Checked & "', CC118 = N'" & 系統權限預設表.CheckBox118.Checked & "', CC119 = N'" & 系統權限預設表.CheckBox119.Checked & "', CC120 = N'" & 系統權限預設表.CheckBox120.Checked & "', CC121 = N'" & 系統權限預設表.CheckBox121.Checked & "', CC122 = N'" & 系統權限預設表.CheckBox122.Checked & "', CC123 = N'" & 系統權限預設表.CheckBox123.Checked & "', CC124 = N'" & 系統權限預設表.CheckBox124.Checked & "', CC125 = N'" & 系統權限預設表.CheckBox125.Checked & "', CC126 = N'" & 系統權限預設表.CheckBox126.Checked & "', CC127 = N'" & 系統權限預設表.CheckBox127.Checked & "', CC128 = N'" & 系統權限預設表.CheckBox128.Checked & "' WHERE (職稱 = N'" & PA10 & "')" CmdSet_For_dr() End Sub '------系統使用者管理------ Friend Sub SQL_系統使用者管理_下拉清單_部門() ConnOpen() : SQL1 = "SELECT 部門 FROM GCM部門清單 ORDER BY 部門" : CmdSet_For_dr() End Sub Friend Sub SQL_系統使用者管理_下拉清單_職稱() ConnOpen() : SQL1 = "SELECT 職稱, 級別 FROM GCM職稱清單 ORDER BY 職稱" : CmdSet_For_dr() End Sub Friend Sub SQL_系統使用者管理_下拉清單_處別() ConnOpen() : SQL1 = "SELECT 處 FROM GCM處級清單 WHERE 處 LIKE N'" & PA20 & "%' OR 處 LIKE N'0%' ORDER BY 處" : CmdSet_For_dr() End Sub Friend Sub SQL_系統使用者管理_下拉清單_課別() ConnOpen() : SQL1 = "SELECT 課別 FROM GCM課別清單 WHERE 課別 LIKE N'" & PA20 & "%' OR 課別 LIKE N'0%' ORDER BY 課別" : CmdSet_For_dr() End Sub Friend Sub SQL_系統使用者管理_下拉清單_組別() ConnOpen() : SQL1 = "SELECT 組別 FROM GCM組別清單 WHERE 組別 LIKE N'" & PA20 & "%' OR 組別 LIKE N'0%' ORDER BY 組別" : CmdSet_For_dr() End Sub Friend Sub SQL_系統使用者管理_使用者清單() ConnOpen() If PA = "" Then SQL1 = "SELECT " & 登入權限1 & " FROM 使用者權限管理表 ORDER BY 部門, 職稱, 課別, 組別" Else SQL1 = "SELECT " & 登入權限1 & " FROM 使用者權限管理表 WHERE (姓名 LIKE N'%" & PA & "%') OR (帳號 LIKE N'%" & PA & "%') OR (密碼 LIKE N'%" & PA & "%') OR (部門 LIKE N'%" & PA & "%') OR (職稱 LIKE N'%" & PA & "%') ORDER BY 部門, 職稱, 課別, 組別" End If CmdSet_For_DGV() End Sub Friend Sub SQL_系統使用者管理_組織帶入() ConnOpen() : SQL1 = "SELECT 部, 處, 課, 組 FROM GCM職稱清單 WHERE 職稱 LIKE N'" & PA & "'" : CmdSet_For_dr() End Sub Friend Sub SQL_系統使用者密碼顯示() ConnOpen() : SQL1 = "SELECT 密碼 FROM 使用者權限管理表 WHERE 姓名 LIKE N'" & 系統使用者管理.姓名_tb.Text & "' AND 帳號 LIKE 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 = "SELECT 職稱, " & 系統權限 & " FROM 系統權限預設表 WHERE 職稱 LIKE N'" & 系統使用者管理.職稱_cb.Text & "' ORDER BY 職稱" : CmdSet_For_DGV() End Sub Friend Sub SQL_系統權限預設表() ConnOpen() SQL1 = "SELECT 系統權限預設表.職稱, GCM職稱清單.級別, " & 系統權限 & " FROM 系統權限預設表 INNER JOIN GCM職稱清單 ON 系統權限預設表.職稱 = GCM職稱清單.職稱 ORDER BY 系統權限預設表.職稱" CmdSet_For_DGV() End Sub '---------------------系統組織架構設定----------------------------------------------------------------------------------------------------------------- Friend Sub SQL_職稱清單() ConnOpen() : SQL1 = "SELECT 部, 處, 課, 組, 職稱, 級別 FROM GCM職稱清單 ORDER BY 部,職稱" : CmdSet_For_DGV() End Sub Friend Sub SQL_部門清單() ConnOpen() : SQL1 = "SELECT 部門 FROM GCM部門清單 ORDER BY 部門" : CmdSet_For_DGV() End Sub Friend Sub SQL_處別清單() ConnOpen() : SQL1 = "SELECT 處 AS 處別 FROM GCM處級清單 WHERE 處 LIKE N'" & PA20 & "%' OR 處 LIKE N'0%' ORDER BY 處" : CmdSet_For_DGV() End Sub Friend Sub SQL_課別清單() ConnOpen() : SQL1 = "SELECT 課別 FROM GCM課別清單 WHERE 課別 LIKE N'" & PA20 & "%' OR 課別 LIKE N'0%' ORDER BY 課別" : CmdSet_For_DGV() End Sub Friend Sub SQL_組別清單() ConnOpen() : SQL1 = "SELECT 組別 FROM GCM組別清單 WHERE 組別 LIKE N'" & PA20 & "%' OR 組別 LIKE N'0%' ORDER BY 組別" : CmdSet_For_DGV() End Sub Friend Sub SQL_職稱重複查詢() SQL1 = "SELECT 職稱 FROM GCM職稱清單 WHERE 職稱 LIKE N'" & 系統組織架構設定.職稱_tb.Text & "'" End Sub Friend Sub SQL_部門重複查詢() SQL1 = "SELECT 部門 FROM GCM部門清單 WHERE 部門 LIKE N'" & PA1 & "'" End Sub Friend Sub SQL_課別重複查詢() SQL1 = "SELECT 課別 FROM GCM課別清單 WHERE 課別 LIKE N'" & PA1 & "'" End Sub Friend Sub SQL_組別重複查詢() SQL1 = "SELECT 組別 FROM GCM組別清單 WHERE 組別 LIKE N'" & PA1 & "'" End Sub Friend Sub SQL_處級重複查詢() SQL1 = "SELECT 處 FROM GCM處級清單 WHERE 處 LIKE N'" & PA1 & "'" End Sub Friend Sub SQL_公司職稱清單_新增() SQL1 = "INSERT INTO GCM職稱清單 (職稱, 級別) VALUES (N'" & 系統組織架構設定.職稱_tb.Text & "', N'" & 系統組織架構設定.級別_cb.Text & "')" End Sub Friend Sub SQL_公司部門清單_新增() SQL1 = "INSERT INTO GCM部門清單 (部門) VALUES (N'" & PA1 & "')" End Sub Friend Sub SQL_公司課別清單_新增() SQL1 = "INSERT INTO GCM課別清單 (課別) VALUES (N'" & PA1 & "')" End Sub Friend Sub SQL_公司組別清單_新增() SQL1 = "INSERT INTO GCM組別清單 (組別) VALUES (N'" & PA1 & "')" End Sub Friend Sub SQL_公司處級清單_新增() SQL1 = "INSERT INTO GCM處級清單 (處) VALUES (N'" & PA1 & "')" End Sub Friend Sub SQL_公司職稱清單_修改() SQL1 = "UPDATE GCM職稱清單 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 GCM職稱清單 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 GCM職稱清單 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 GCM部門清單 WHERE (部門 = N'" & PA1 & "')" End Sub Friend Sub SQL_公司課別清單_刪除() SQL1 = "DELETE FROM GCM課別清單 WHERE (課別 = N'" & PA1 & "')" End Sub Friend Sub SQL_公司組別清單_刪除() SQL1 = "DELETE FROM GCM組別清單 WHERE (組別 = N'" & PA1 & "')" End Sub Friend Sub SQL_公司處級清單_刪除() SQL1 = "DELETE FROM GCM處級清單 WHERE (處 = N'" & PA1 & "')" End Sub Friend Sub SQL_公司職稱清單_存檔() ConnOpen() SQL1 = "UPDATE GCM職稱清單 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 GCM部門清單 SET 部門 = N'" & PA & "' WHERE 部門 LIKE N'" & PA1 & "'" End Sub Friend Sub SQL_公司職稱清單_修改部門() SQL1 = "UPDATE GCM職稱清單 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 GCM課別清單 SET 課別 = N'" & PA & "' WHERE 課別 LIKE N'" & PA1 & "'" End Sub Friend Sub SQL_公司職稱清單_修改課別() SQL1 = "UPDATE GCM職稱清單 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 GCM組別清單 SET 組別 = N'" & PA & "' WHERE 組別 LIKE N'" & PA1 & "'" End Sub Friend Sub SQL_公司職稱清單_修改組別() SQL1 = "UPDATE GCM職稱清單 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 GCM處級清單 SET 處 = N'" & PA & "' WHERE 處 LIKE N'" & PA1 & "'" End Sub Friend Sub SQL_公司職稱清單_修改處級() SQL1 = "UPDATE GCM職稱清單 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 [" & 表頭(4) & "], 職稱 AS [" & 表頭(9) & "], 級別 AS [" & 表頭(138) & "], 部門, 處別, 課別, 組別, 帳號 FROM 使用者權限管理表 WHERE CC88 = 1 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 (GCM職稱清單.級別 NOT LIKE N'00') " ElseIf PA3 = "02" Then SQL2 = "WHERE (GCM職稱清單.級別 NOT LIKE N'01') AND (GCM職稱清單.級別 NOT LIKE N'00') " ElseIf PA3 = "03" Then SQL2 = "WHERE (GCM職稱清單.級別 NOT LIKE N'02') AND (GCM職稱清單.級別 NOT LIKE N'01') AND (GCM職稱清單.級別 NOT LIKE N'00') " ElseIf PA3 = "04" Then SQL2 = "WHERE (GCM職稱清單.級別 NOT LIKE N'03') AND (GCM職稱清單.級別 NOT LIKE N'02') AND (GCM職稱清單.級別 NOT LIKE N'01') AND (GCM職稱清單.級別 NOT LIKE N'00') " ElseIf PA3 = "05" Then SQL2 = "WHERE (GCM職稱清單.級別 NOT LIKE N'04') AND (GCM職稱清單.級別 NOT LIKE N'03') AND (GCM職稱清單.級別 NOT LIKE N'02') AND (GCM職稱清單.級別 NOT LIKE N'01') AND (GCM職稱清單.級別 NOT LIKE N'00') " ElseIf PA3 = "06" Then SQL2 = "WHERE (GCM職稱清單.級別 NOT LIKE N'05') AND (GCM職稱清單.級別 NOT LIKE N'04') AND (GCM職稱清單.級別 NOT LIKE N'03') AND (GCM職稱清單.級別 NOT LIKE N'02') AND (GCM職稱清單.級別 NOT LIKE N'01') AND (GCM職稱清單.級別 NOT LIKE N'00') " ElseIf PA3 = "07" Then SQL2 = "WHERE (GCM職稱清單.級別 NOT LIKE N'06') AND (GCM職稱清單.級別 NOT LIKE N'05') AND (GCM職稱清單.級別 NOT LIKE N'04') AND (GCM職稱清單.級別 NOT LIKE N'03') AND (GCM職稱清單.級別 NOT LIKE N'02') AND (GCM職稱清單.級別 NOT LIKE N'01') AND (GCM職稱清單.級別 NOT LIKE N'00') " ElseIf PA3 = "08" Then SQL2 = "WHERE (GCM職稱清單.級別 NOT LIKE N'07') AND (GCM職稱清單.級別 NOT LIKE N'06') AND (GCM職稱清單.級別 NOT LIKE N'05') AND (GCM職稱清單.級別 NOT LIKE N'04') AND (GCM職稱清單.級別 NOT LIKE N'03') AND (GCM職稱清單.級別 NOT LIKE N'02') AND (GCM職稱清單.級別 NOT LIKE N'01') AND (GCM職稱清單.級別 NOT LIKE N'00') " ElseIf PA3 = "09" Then SQL2 = "WHERE (GCM職稱清單.級別 NOT LIKE N'08') AND (GCM職稱清單.級別 NOT LIKE N'07') AND (GCM職稱清單.級別 NOT LIKE N'06') AND (GCM職稱清單.級別 NOT LIKE N'05') AND (GCM職稱清單.級別 NOT LIKE N'04') AND (GCM職稱清單.級別 NOT LIKE N'03') AND (GCM職稱清單.級別 NOT LIKE N'02') AND (GCM職稱清單.級別 NOT LIKE N'01') AND (GCM職稱清單.級別 NOT LIKE N'00') " End If ConnOpen() SQL1 = "SELECT GCM職稱清單.部 AS [" & 表頭(139) & "], GCM職稱清單.處 AS [" & 表頭(140) & "], GCM職稱清單.課 AS [" & 表頭(141) & "], GCM職稱清單.組 AS [" & 表頭(142) & "], GCM職稱清單.職稱 AS [" & 表頭(9) & "], 系統跨部門權限表_暫存檔.時效 AS [" & 表頭(143) & "], 系統跨部門權限表_暫存檔.授權 AS [" & 表頭(144) & "], GCM職稱清單.級別 AS [" & 表頭(138) & "] FROM GCM職稱清單 LEFT OUTER JOIN 系統跨部門權限表_暫存檔 ON GCM職稱清單.職稱 = 系統跨部門權限表_暫存檔.職稱 " & SQL2 & " ORDER BY GCM職稱清單.部, GCM職稱清單.職稱" 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 (GCM職稱清單.級別 NOT LIKE N'00') AND (系統跨部門權限表.姓名 LIKE N'" & PA1 & "') AND (系統跨部門權限表.帳號 LIKE N'" & PA2 & "') " ElseIf PA3 = "02" Then SQL2 = "WHERE (GCM職稱清單.級別 NOT LIKE N'01') AND (GCM職稱清單.級別 NOT LIKE N'00') AND (系統跨部門權限表.姓名 LIKE N'" & PA1 & "') AND (系統跨部門權限表.帳號 LIKE N'" & PA2 & "') " ElseIf PA3 = "03" Then SQL2 = "WHERE (GCM職稱清單.級別 NOT LIKE N'02') AND (GCM職稱清單.級別 NOT LIKE N'01') AND (GCM職稱清單.級別 NOT LIKE N'00') AND (系統跨部門權限表.姓名 LIKE N'" & PA1 & "') AND (系統跨部門權限表.帳號 LIKE N'" & PA2 & "') " ElseIf PA3 = "04" Then SQL2 = "WHERE (GCM職稱清單.級別 NOT LIKE N'03') AND (GCM職稱清單.級別 NOT LIKE N'02') AND (GCM職稱清單.級別 NOT LIKE N'01') AND (GCM職稱清單.級別 NOT LIKE N'00') AND (系統跨部門權限表.姓名 LIKE N'" & PA1 & "') AND (系統跨部門權限表.帳號 LIKE N'" & PA2 & "') " ElseIf PA3 = "05" Then SQL2 = "WHERE (GCM職稱清單.級別 NOT LIKE N'04') AND (GCM職稱清單.級別 NOT LIKE N'03') AND (GCM職稱清單.級別 NOT LIKE N'02') AND (GCM職稱清單.級別 NOT LIKE N'01') AND (GCM職稱清單.級別 NOT LIKE N'00') AND (系統跨部門權限表.姓名 LIKE N'" & PA1 & "') AND (系統跨部門權限表.帳號 LIKE N'" & PA2 & "') " ElseIf PA3 = "06" Then SQL2 = "WHERE (GCM職稱清單.級別 NOT LIKE N'05') AND (GCM職稱清單.級別 NOT LIKE N'04') AND (GCM職稱清單.級別 NOT LIKE N'03') AND (GCM職稱清單.級別 NOT LIKE N'02') AND (GCM職稱清單.級別 NOT LIKE N'01') AND (GCM職稱清單.級別 NOT LIKE N'00') AND (系統跨部門權限表.姓名 LIKE N'" & PA1 & "') AND (系統跨部門權限表.帳號 LIKE N'" & PA2 & "') " ElseIf PA3 = "07" Then SQL2 = "WHERE (GCM職稱清單.級別 NOT LIKE N'06') AND (GCM職稱清單.級別 NOT LIKE N'05') AND (GCM職稱清單.級別 NOT LIKE N'04') AND (GCM職稱清單.級別 NOT LIKE N'03') AND (GCM職稱清單.級別 NOT LIKE N'02') AND (GCM職稱清單.級別 NOT LIKE N'01') AND (GCM職稱清單.級別 NOT LIKE N'00') AND (系統跨部門權限表.姓名 LIKE N'" & PA1 & "') AND (系統跨部門權限表.帳號 LIKE N'" & PA2 & "') " ElseIf PA3 = "08" Then SQL2 = "WHERE (GCM職稱清單.級別 NOT LIKE N'07') AND (GCM職稱清單.級別 NOT LIKE N'06') AND (GCM職稱清單.級別 NOT LIKE N'05') AND (GCM職稱清單.級別 NOT LIKE N'04') AND (GCM職稱清單.級別 NOT LIKE N'03') AND (GCM職稱清單.級別 NOT LIKE N'02') AND (GCM職稱清單.級別 NOT LIKE N'01') AND (GCM職稱清單.級別 NOT LIKE N'00') AND (系統跨部門權限表.姓名 LIKE N'" & PA1 & "') AND (系統跨部門權限表.帳號 LIKE N'" & PA2 & "') " ElseIf PA3 = "08" Then SQL2 = "WHERE (GCM職稱清單.級別 NOT LIKE N'08') AND (GCM職稱清單.級別 NOT LIKE N'07') AND (GCM職稱清單.級別 NOT LIKE N'06') AND (GCM職稱清單.級別 NOT LIKE N'05') AND (GCM職稱清單.級別 NOT LIKE N'04') AND (GCM職稱清單.級別 NOT LIKE N'03') AND (GCM職稱清單.級別 NOT LIKE N'02') AND (GCM職稱清單.級別 NOT LIKE N'01') AND (GCM職稱清單.級別 NOT LIKE N'00') AND (系統跨部門權限表.姓名 LIKE N'" & PA1 & "') AND (系統跨部門權限表.帳號 LIKE N'" & PA2 & "') " End If ConnOpen() SQL1 = "SELECT GCM職稱清單.部 AS [" & 表頭(139) & "], GCM職稱清單.處 AS [" & 表頭(140) & "], GCM職稱清單.課 AS [" & 表頭(141) & "], GCM職稱清單.組 AS [" & 表頭(142) & "], GCM職稱清單.職稱 AS [" & 表頭(9) & "], 系統跨部門權限表.時效 AS [" & 表頭(143) & "], 系統跨部門權限表.授權 AS [" & 表頭(144) & "], GCM職稱清單.級別 AS [" & 表頭(138) & "] FROM GCM職稱清單 LEFT OUTER JOIN 系統跨部門權限表 ON GCM職稱清單.職稱 = 系統跨部門權限表.職稱 " & SQL2 & " ORDER BY GCM職稱清單.部, GCM職稱清單.職稱" 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 DB_NAME(database_id) AS [資料庫], physical_name AS [實體檔案], type_desc AS [檔案類], state_desc AS [檔案狀], size * 8.0 / 1024 AS [檔案大小] FROM sys.master_files WHERE (DB_NAME(database_id) LIKE N'GF" & 資料庫編號 & "-ERP%') " CmdSet_For_DGV() End Sub Friend Sub SQL_伺服器1清單() ConnOpen() SQL1 = "SELECT DB_NAME(database_id) AS 資料庫 FROM sys.master_files WHERE (DB_NAME(database_id) LIKE N'GF" & 資料庫編號 & "-ERP%') GROUP BY DB_NAME(database_id) ORDER BY DB_NAME(database_id)" CmdSet_For_DGV() End Sub Friend Sub SQL_伺服器2清單() SQL_連線字串_管理SQL() : ConnOpen_資料庫SQL() SQL1 = "SELECT 資料庫, 資料庫 AS 系統認證版本號, 資料庫 AS 手機認證版本號, 資料庫 AS IOS認證版本號, 資料庫 AS IOS送審版本號 FROM GF資料庫清單 ORDER BY 資料庫" CmdSet_For_DGV() End Sub Friend Sub SQL_系統認證版本號查詢1() ConnOpen_更新SQL() : SQL1 = "SELECT 系統認證版本號, 手機認證版本號, IOS認證版本號, IOS送審版本號 FROM 版本號管理 " : CmdSet_For_dr() End Sub Friend Sub SQL_主資料庫LOG檔案截斷() ConnOpen() : SQL1 = "USE [" & PA & "] ALTER DATABASE [" & PA & "] SET RECOVERY SIMPLE; DBCC SHRINKFILE([" & PA & "_Log], 1); ALTER DATABASE [" & PA & "] SET RECOVERY FULL;" CmdSet_For_dr() End Sub Friend Sub SQL_系統預測值修改() ConnOpen() SQL1 = "UPDATE 系統預設值 SET 行政採購二級 = N'" & 系統通用變數管理.行政簽核_tb.Text & "' , 建築採購二級 = N'" & 系統通用變數管理.建築簽核_tb.Text & "',比例1 = N'" & 系統通用變數管理.NUP_3.Text & "',比例2 = N'" & 系統通用變數管理.NUP_4.Text & "', 比例3 = N'" & 系統通用變數管理.NUP_5.Text & "', 圖片伺服器上限 = N'" & 系統通用變數管理.MAX_nud.Value & "'" CmdSet_For_dr() End Sub Friend Sub SQL_系統預設值() ConnOpen() : SQL1 = "SELECT 密碼重設天數,行政採購二級, 建築採購二級, 比例1, 比例2, 比例3, 圖片伺服器上限 FROM 系統預設值" : 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_公司編號() ConnOpen() : SQL1 = "SELECT 公司編號 AS [公司名稱] FROM 公司清單 ORDER BY 公司編號 DESC" : CmdSet_For_DGV() End Sub Friend Sub SQL_公司稱謂() ConnOpen() : SQL1 = "SELECT 編號一, 編號二, 編號三, 編號四, 編號五, 編號六,編號七 FROM 公司稱謂清單 WHERE 使用位置 = N'收支一覽表'" : CmdSet_For_dr() End Sub Friend Sub SQL_公司稱謂1() ConnOpen() : SQL1 = "SELECT 編號一, 編號二, 編號三, 編號四, 編號五, 編號六,編號七 FROM 公司稱謂清單 WHERE 使用位置 = N'簽呈'" : CmdSet_For_dr() End Sub Friend Sub SQL_修改公司稱謂() ConnOpen() SQL1 = "UPDATE 公司稱謂清單 SET 編號一 = N'" & 系統編碼規則.編號1_tb.Text & "', 編號二 = N'" & 系統編碼規則.編號2_tb.Text & "', 編號三 = N'" & 系統編碼規則.編號3_tb.Text & "', 編號四 = N'" & 系統編碼規則.編號4_tb.Text & "', 編號五 = N'" & 系統編碼規則.編號5_tb.Text & "' , 編號六 = N'" & 系統編碼規則.編號6_tb.Text & "' , 編號七 = N'" & 系統編碼規則.編號7_tb.Text & "' WHERE 使用位置 = N'收支一覽表'" CmdSet_For_dr() End Sub Friend Sub SQL_新增公司稱謂() ConnOpen() SQL1 = "INSERT INTO 公司稱謂清單 (編號一, 編號二, 編號三, 編號四, 編號五, 編號六,編號七,使用位置) VALUES (N'" & 系統編碼規則.編號1_tb.Text & "',N'" & 系統編碼規則.編號2_tb.Text & "', N'" & 系統編碼規則.編號3_tb.Text & "',N'" & 系統編碼規則.編號4_tb.Text & "', N'" & 系統編碼規則.編號5_tb.Text & "',N'" & 系統編碼規則.編號6_tb.Text & "', N'" & 系統編碼規則.編號7_tb.Text & "',N'收支一覽表')" CmdSet_For_dr() End Sub Friend Sub SQL_修改公司稱謂1() ConnOpen() SQL1 = "UPDATE 公司稱謂清單 SET 編號一 = N'" & 系統編碼規則.編號11_tb.Text & "', 編號二 = N'" & 系統編碼規則.編號12_tb.Text & "', 編號三 = N'" & 系統編碼規則.編號13_tb.Text & "', 編號四 = N'" & 系統編碼規則.編號14_tb.Text & "', 編號五 = N'" & 系統編碼規則.編號15_tb.Text & "' , 編號六 = N'" & 系統編碼規則.編號16_tb.Text & "' , 編號七 = N'" & 系統編碼規則.編號17_tb.Text & "' WHERE 使用位置 = N'簽呈'" CmdSet_For_dr() End Sub Friend Sub SQL_新增公司稱謂1() ConnOpen() SQL1 = "INSERT INTO 公司稱謂清單 (編號一, 編號二, 編號三, 編號四, 編號五, 編號六,編號七,使用位置) VALUES (N'" & 系統編碼規則.編號11_tb.Text & "',N'" & 系統編碼規則.編號12_tb.Text & "', N'" & 系統編碼規則.編號13_tb.Text & "',N'" & 系統編碼規則.編號14_tb.Text & "', N'" & 系統編碼規則.編號15_tb.Text & "',N'" & 系統編碼規則.編號16_tb.Text & "', N'" & 系統編碼規則.編號17_tb.Text & "',N'簽呈')" CmdSet_For_dr() 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_年份新增查詢() 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_公司新增查詢() 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() SQL1 = "SELECT 公司名稱 FROM 系統預設值" CmdSet_For_dr() End Sub Friend Sub SQL_讀取公司資料() ConnOpen() SQL1 = "SELECT 公司名稱 , 地址,電話,傳真,簡稱 FROM 系統預設值" CmdSet_For_dr() End Sub Friend Sub SQL_修改公司名稱() ConnOpen() SQL1 = "UPDATE 系統預設值 SET 公司名稱 = N'" & 系統編碼規則.公司名稱_tb.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 TOP (1) 圖片流水號 FROM GCM主管簽名檔管理 ORDER BY 圖片流水號 DESC" CmdSet_For_dr() End Sub Friend Sub SQL_簽名檔管理_取得簽名檔圖檔() ConnOpen() SQL1 = "SELECT 簽名檔圖片 FROM GCM主管簽名檔管理 WHERE 圖片流水號 LIKE N'" & 簽名檔管理.圖檔編號_tb.Text & "'" CmdSet_For_dr() End Sub Friend Sub SQL_簽名檔管理_簽名檔入系統() ConnOpen() SQL1 = "INSERT INTO GCM主管簽名檔管理(圖片流水號, 簽名檔人名, 簽名檔圖片) SELECT '" & 簽名檔管理.圖檔編號_tb.Text & "' , N'" & 簽名檔管理.簽名檔持有人_cb.Text & "' ,@binary_file" CmdSet_For_dr_pic() End Sub Friend Sub SQL_簽名檔管理_簽名檔清單() ConnOpen() SQL1 = "SELECT 圖片流水號 AS [" & 表頭(87) & "], 簽名檔人名 AS [" & 表頭(162) & "] FROM GCM主管簽名檔管理 ORDER BY 圖片流水號" CmdSet_For_DGV() End Sub Friend Sub SQL_簽名檔管理_刪除簽名檔() ConnOpen() SQL1 = "DELETE FROM GCM主管簽名檔管理 WHERE (圖片流水號 = N'" & 簽名檔管理.圖檔編號_tb.Text & "')" CmdSet_For_dr() End Sub Friend Sub SQL_簽名檔管理_取得職稱() ConnOpen() SQL1 = "SELECT 姓名 FROM 使用者權限管理表 ORDER BY 職稱" CmdSet_For_dr() End Sub Friend Sub SQL_簽名檔管理_系統圖檔入系統() ConnOpen() SQL1 = "UPDATE 系統預設值 SET 系統圖片 = @binary_file" CmdSet_For_dr_pic() End Sub Friend Sub SQL_簽名檔管理_取得系統圖檔() ConnOpen() SQL1 = "SELECT 系統圖片 FROM 系統預設值 " CmdSet_For_dr() End Sub Friend Sub SQL_取得登入圖檔() ConnOpen() SQL1 = "SELECT 簽名檔圖片 FROM GCM主管簽名檔管理 WHERE 簽名檔人名 LIKE N'登入'" CmdSet_For_dr() End Sub Friend Sub SQL_取得主頁圖檔() ConnOpen() SQL1 = "SELECT 簽名檔圖片 FROM GCM主管簽名檔管理 WHERE 簽名檔人名 LIKE N'主頁'" CmdSet_For_dr() End Sub End Module