MAOJI-ERP-SYS
/
MAOJI-ERP-SYS-LEEHSIEHJUI
Следить 4
В избранное 0
Форкнуть 0
Код Задачи 0 Pull Request'ы 0 Релизы 0 Вики Активность
Нет описания
Вы не можете выбрать более 25 тем Темы должны начинаться с буквы или цифры, могут содержать дефисы(-) и должны содержать не более 35 символов.
20 коммитов
1 ветка
Дерево: 67a22aac53
веток Теги
${ item.name }
Создать ветку ${ searchTerm }
из '67a22aac53'
${ noResults }
MAOJI-ERP-SYS-LEEHSIEHJUI/MaoOrange-Hongji/Module/SQL_資料庫系統管理.vb

SQL_資料庫系統管理.vb 26KB
История Исходник

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304 
  1. Module SQL_資料庫系統管理

  2.     '---------------------簽名檔管理-----------------------------------------------------------------------------------------------------------------

  3.     Friend Sub SQL_簽名檔管理清單()

  4.         ConnOpen() : SQL1 = "SELECT 圖片流水號 AS 圖檔編碼, 簽名檔人名 FROM MJ主管簽名檔管理 ORDER BY 圖片流水號" : CmdSet_For_DGV()

  5.     End Sub

  6.     Friend Sub SQL_使用者權限姓名清單()

  7.         ConnOpen() : SQL1 = "SELECT 姓名 FROM 使用者權限管理表 ORDER BY 姓名" : CmdSet_For_dr()

  8.     End Sub

  9.     Friend Sub SQL_主管簽名檔新增()

  10.         ConnOpen()

  11.         SQL1 = "INSERT INTO MJ主管簽名檔管理 (圖片流水號, 簽名檔人名, 簽名檔圖片) SELECT '" & 簽名檔管理.圖檔編號_tb.Text & "', '" & 簽名檔管理.簽名檔持有人_cb.Text & "', " &

  12.                        "BULKCOLUMN FROM OPENROWSET ( BULK '" & FTP物理位置 & AA(1) & "\" & 簽名檔管理.檔案名稱_tb.Text & "', SINGLE_BLOB) AS EMPLOYEEPICTURE"

  13.         CmdSet_For_dr()

  14.     End Sub

  15.     Friend Sub SQL_主管簽名檔刪除()

  16.         ConnOpen() : SQL1 = "DELETE FROM MJ主管簽名檔管理 WHERE (圖片流水號 = N'" & 簽名檔管理.圖檔編號_tb.Text & "')" : CmdSet_For_dr()

  17.     End Sub

  18.     Friend Sub SQL_主管簽名檔流水號最後一筆()

  19.         ConnOpen() : SQL1 = "SELECT TOP (1) 圖片流水號 FROM MJ主管簽名檔管理 ORDER BY 圖片流水號 DESC" : CmdSet_For_dr()

  20.     End Sub

  21.     '---------------------系統編碼規則_1-----------------------------------------------------------------------------------------------------------------

  22.     Friend Sub SQL_佣金比例()

  23.         ConnOpen() : SQL1 = "SELECT 比例 FROM 佣金比例 ORDER BY 比例" : CmdSet_For_DGV()

  24.     End Sub

  25.     Friend Sub SQL_FTP伺服器清單()

  26.         ConnOpen() : SQL1 = "SELECT FTP地址, FTP帳號, FTP密碼, 地區 FROM FTP資料庫管理" : CmdSet_For_DGV()

  27.     End Sub

  28.     Friend Sub SQL_付款方式清單()

  29.         ConnOpen() : SQL1 = "SELECT 編號, 付款方式 FROM MJ付款方式 ORDER BY 編號" : CmdSet_For_DGV()

  30.     End Sub

  31.     Friend Sub SQL_會計科目清單()

  32.         ConnOpen()

  33.         SQL1 = "SELECT 第一階, 第二階, 會計科目, 編號, 層級, 英文名稱, 統制科目, 抵銷科目, 停用, 附註, 顯示 FROM  會計科目 

  34.                 WHERE 編號 LIKE N'" & 系統編碼規則_1.會科第一層編號_cb.Text & "%' ORDER BY  編號"

  35.         CmdSet_For_DGV()

  36.     End Sub

  37.     Friend Sub SQL_年份清單()

  38.         ConnOpen() : SQL1 = "SELECT  年份 FROM 年份清單 ORDER BY 年份 DESC" : CmdSet_For_DGV()

  39.     End Sub

  40.     Friend Sub SQL_會計科目下拉清單一()

  41.         ConnOpen() : SQL1 = "SELECT 第一階, LEFT(編號, 4) AS 編號 FROM 會計科目 GROUP BY 第一階, LEFT(編號, 4) ORDER BY 編號" : CmdSet_For_dr()

  42.     End Sub

  43.     Friend Sub SQL_會計科目下拉清單二()

  44.         ConnOpen()

  45.         SQL1 = "SELECT LEFT(編號, 7) AS 編號, 第二階, 層級 FROM  會計科目 

  46.                 WHERE (LEFT(編號, 4) LIKE N'" & 系統編碼規則_1.會科第一層編號_cb.Text & "') AND (層級 LIKE '" & 系統編碼規則_1.會科第二層層級_cb.Text & "')

  47.                 GROUP BY   LEFT(編號, 7), 第二階, 層級 ORDER BY   編號"

  48.         CmdSet_For_dr()

  49.     End Sub

  50.     Friend Sub SQL_會計科目流水號查詢第一段()

  51.         ConnOpen()

  52.         SQL1 = "SELECT TOP (1) LEFT(編號, 7) AS 編號 FROM  會計科目 WHERE (LEFT(編號, 4) LIKE '" & 系統編碼規則_1.會科第一層編號_cb.Text & "') AND (層級 LIKE '2') 

  53.                 GROUP BY   LEFT(編號, 7) ORDER BY   編號 DESC"

  54.         CmdSet_For_dr()

  55.     End Sub

  56.     Friend Sub SQL_會計科目流水號查詢第二段()

  57.         ConnOpen()

  58.         SQL1 = "SELECT TOP (1) LEFT(編號, 10) AS 編號 FROM  會計科目 WHERE (LEFT(編號, 7) LIKE '" & 系統編碼規則_1.會科第二層編號_cb.Text & "') AND (層級 LIKE '3') 

  59.                 GROUP BY   LEFT(編號, 10) ORDER BY   編號 DESC"

  60.         CmdSet_For_dr()

  61.     End Sub

  62.     Friend Sub SQL_FTP資料庫管理查詢()

  63.         ConnOpen() : SQL1 = "SELECT 地區 FROM FTP資料庫管理 WHERE 地區 LIKE '" & 系統編碼規則_1.地區_tb.Text & "'" : CmdSet_For_dr()

  64.     End Sub

  65.     Friend Sub SQL_FTP資料庫管理新增()

  66.         SQL1 = "INSERT INTO FTP資料庫管理 (FTP地址, FTP帳號, FTP密碼, 地區) 

  67.                 VALUES (N'" & 系統編碼規則_1.FTP地址_tb.Text & "', N'" & 系統編碼規則_1.帳號_tb.Text & "', N'" & 系統編碼規則_1.密碼_tb.Text & "', N'" & 系統編碼規則_1.地區_tb.Text & "')"

  68.     End Sub

  69.     Friend Sub SQL_FTP資料庫管理修改()

  70.         SQL1 = "UPDATE FTP資料庫管理 SET FTP地址 = N'" & PA & "', FTP帳號 = N'" & PA1 & "', FTP密碼 = N'" & PA2 & "' WHERE 地區 LIKE N'" & 系統編碼規則_1.地區_tb.Text & "'"

  71.     End Sub

  72.     Friend Sub SQL_FTP資料庫管理刪除()

  73.         SQL1 = "DELETE FROM FTP資料庫管理 WHERE (地區 = N'" & 系統編碼規則_1.地區_tb.Text & "')"

  74.     End Sub

  75.     Friend Sub SQL_付款方式流水號查詢()

  76.         ConnOpen() : SQL1 = "Select TOP (1) 編號 FROM MJ付款方式 ORDER BY 編號 DESC" : CmdSet_For_dr()

  77.     End Sub

  78.     Friend Sub SQL_付款方式新增()

  79.         SQL1 = "INSERT INTO MJ付款方式 (編號, 付款方式) VALUES (N'" & PA1 & "', N'" & PA & "')"

  80.     End Sub

  81.     Friend Sub SQL_付款方式修改()

  82.         SQL1 = "UPDATE MJ付款方式 SET 付款方式 = N'" & PA & "' WHERE 編號 LIKE N'" & 系統編碼規則_1.付款編號_tb.Text & "'"

  83.     End Sub

  84.     Friend Sub SQL_付款方式刪除()

  85.         SQL1 = "DELETE FROM MJ付款方式 WHERE (編號 = N'" & 系統編碼規則_1.付款編號_tb.Text & "')"

  86.     End Sub

  87.     Friend Sub SQL_職別流水號最後一筆()

  88.         ConnOpen() : SQL1 = "Select TOP (1) 編號 FROM MJ職別 ORDER BY 編號 DESC" : CmdSet_For_dr()

  89.     End Sub

  90.     Friend Sub SQL_職別新增()

  91.         SQL1 = "INSERT INTO MJ職別 (編號, 職別) VALUES (N'" & PA1 & "', N'" & PA & "')"

  92.     End Sub

  93.     Friend Sub SQL_職別修改()

  94.         SQL1 = "UPDATE MJ職別 SET 職別 = N'" & PA & "' WHERE 編號 LIKE N'" & 系統編碼規則_1.職別編號_tb.Text & "'"

  95.     End Sub

  96.     Friend Sub SQL_職別刪除()

  97.         SQL1 = "DELETE FROM MJ職別 WHERE (編號 = N'" & 系統編碼規則_1.職別編號_tb.Text & "')"

  98.     End Sub

  99.     Friend Sub SQL_負責區域流水號最後一筆()

  100.         ConnOpen() : SQL1 = "Select TOP (1) 編號 FROM  MJ負責區域 ORDER BY 編號 DESC" : CmdSet_For_dr()

  101.     End Sub

  102.     Friend Sub SQL_負責區域新增()

  103.         SQL1 = "INSERT INTO MJ負責區域 (編號, 負責區域) VALUES (N'" & PA1 & "', N'" & PA & "')"

  104.     End Sub

  105.     Friend Sub SQL_負責區域修改()

  106.         SQL1 = "UPDATE MJ負責區域 SET 負責區域 = N'" & PA & "' WHERE 編號 LIKE N'" & 系統編碼規則_1.負區編號_tb.Text & "'"

  107.     End Sub

  108.     Friend Sub SQL_負責區域刪除()

  109.         SQL1 = "DELETE FROM MJ負責區域 WHERE (編號 = N'" & 系統編碼規則_1.負區編號_tb.Text & "')"

  110.     End Sub

  111.     Friend Sub SQL_會計科目查詢()

  112.         ConnOpen() : SQL1 = "SELECT 編號 FROM 會計科目 WHERE 編號 LIKE '" & 系統編碼規則_1.會科第三層編號_tb.Text & "'" : CmdSet_For_dr()

  113.     End Sub

  114.     Friend Sub SQL_會計科目新增一()

  115.         SQL1 = "INSERT INTO 會計科目 (會計科目, 編號, 層級, 英文名稱, 統制科目, 抵銷科目, 停用, 附註, 第一階, 第二階, 顯示) 

  116.                 VALUES (N'" & 系統編碼規則_1.會計科目_tb.Text & "', N'" & 系統編碼規則_1.會科第三層編號_tb.Text & "', N'" & 系統編碼規則_1.會科第三層層級_cb.Text &

  117.                     "', N'" & 系統編碼規則_1.英文名稱_tb.Text & "', N'" & 系統編碼規則_1.統治科目_cb.Checked & "', N'" & 系統編碼規則_1.抵銷科目_cb.Checked &

  118.                     "', N'" & 系統編碼規則_1.停用_cb.Checked & "', N'" & 系統編碼規則_1.備註_tb.Text & "', N'" & 系統編碼規則_1.會計科目_tb.Text &

  119.                     "', N'" & 系統編碼規則_1.會計科目_tb.Text & "', N'" & 系統編碼規則_1.顯示_cb.Checked & "')"

  120.     End Sub

  121.     Friend Sub SQL_會計科目新增二()

  122.         SQL1 = "INSERT INTO 會計科目 (會計科目, 編號, 層級, 英文名稱, 統制科目, 抵銷科目, 停用, 附註, 第一階, 第二階, 顯示) 

  123.                 VALUES (N'" & 系統編碼規則_1.會計科目_tb.Text & "', N'" & 系統編碼規則_1.會科第三層編號_tb.Text & "', N'" & 系統編碼規則_1.會科第三層層級_cb.Text &

  124.                     "', N'" & 系統編碼規則_1.英文名稱_tb.Text & "', N'" & 系統編碼規則_1.統治科目_cb.Checked & "', N'" & 系統編碼規則_1.抵銷科目_cb.Checked &

  125.                     "', N'" & 系統編碼規則_1.停用_cb.Checked & "', N'" & 系統編碼規則_1.備註_tb.Text & "', N'" & 系統編碼規則_1.會科第一層_cb.Text &

  126.                     "', N'" & 系統編碼規則_1.會計科目_tb.Text & "', N'" & 系統編碼規則_1.顯示_cb.Checked & "')"

  127.     End Sub

  128.     Friend Sub SQL_會計科目新增三()

  129.         SQL1 = "INSERT INTO 會計科目 (會計科目, 編號, 層級, 英文名稱, 統制科目, 抵銷科目, 停用, 附註, 第一階, 第二階, 顯示) 

  130.                 VALUES (N'" & 系統編碼規則_1.會計科目_tb.Text & "', N'" & 系統編碼規則_1.會科第三層編號_tb.Text & "', N'" & 系統編碼規則_1.會科第三層層級_cb.Text &

  131.                     "', N'" & 系統編碼規則_1.英文名稱_tb.Text & "', N'" & 系統編碼規則_1.統治科目_cb.Checked & "', N'" & 系統編碼規則_1.抵銷科目_cb.Checked &

  132.                     "', N'" & 系統編碼規則_1.停用_cb.Checked & "', N'" & 系統編碼規則_1.備註_tb.Text & "', N'" & 系統編碼規則_1.會科第一層_cb.Text &

  133.                     "', N'" & 系統編碼規則_1.會科第二層_cb.Text & "', N'" & 系統編碼規則_1.顯示_cb.Checked & "')"

  134.     End Sub

  135.     Friend Sub SQL_會計科目修改()

  136.         ConnOpen()

  137.         SQL1 = "UPDATE 會計科目 SET 會計科目 = N'" & PA1 & "', 層級 = N'" & PA2 & "', 英文名稱 = N'" & PA3 & "', 統制科目 = N'" & 布林1 & "', 抵銷科目 = N'" & 布林2 & "', 停用 = N'" & 布林3 &

  138.                                     "', 附註 = N'" & PA4 & "', 第一階 = N'" & PA5 & "', 第二階 = N'" & PA6 & "' , 顯示 = N'" & 布林4 & "'

  139.                     WHERE 編號 LIKE N'" & PA7 & "'"

  140.         CmdSet_For_dr()

  141.     End Sub

  142.     Friend Sub SQL_會計科目刪除()

  143.         SQL1 = "DELETE FROM 會計科目 WHERE (編號 = N'" & 系統編碼規則_1.會科第三層編號_tb.Text & "')"

  144.     End Sub

  145.     Friend Sub SQL_年份清單新增()

  146.         SQL1 = "INSERT INTO 年份清單 (年份) VALUES (N'" & 系統編碼規則_1.年份_tb.Text & "')"

  147.     End Sub

  148.     Friend Sub SQL_年份清單修改()

  149.         SQL1 = "UPDATE 年份清單 SET 年份 = N'" & PA & "' WHERE 年份 LIKE N'" & 系統編碼規則_1.年份_tb.Text & "'"

  150.     End Sub

  151.     Friend Sub SQL_年份清單刪除()

  152.         SQL1 = "DELETE FROM 年份清單 WHERE (年份 = N'" & 系統編碼規則_1.年份_tb.Text & "')"

  153.     End Sub

  154.     Friend Sub SQL_公司資料清單()

  155.         ConnOpen() : SQL1 = "SELECT 公司編號, 公司名, 統編, 電話, 地址 FROM MJ公司基本資料 ORDER BY 公司名" : CmdSet_For_DGV()

  156.     End Sub

  157.     Friend Sub SQL_公司基本資料流水號最後一筆()

  158.         ConnOpen() : SQL1 = "SELECT TOP (1) 公司編號 FROM  MJ公司基本資料 ORDER BY 公司編號 DESC" : CmdSet_For_dr()

  159.     End Sub

  160.     Friend Sub SQL_公司基本資料新增()

  161.         SQL1 = "INSERT INTO MJ公司基本資料 (公司編號, 公司名, 統編, 電話, 地址) 

  162.                 VALUES (N'" & 系統編碼規則_1.公司編號_tb.Text & "', N'" & 系統編碼規則_1.公司名稱_tb.Text & "', N'" & 系統編碼規則_1.統編_tb.Text &

  163.                     "', N'" & 系統編碼規則_1.電話_tb.Text & "', N'" & 系統編碼規則_1.公司地址_tb.Text & "')"

  164.     End Sub

  165.     Friend Sub SQL_公司基本資料修改()

  166.         SQL1 = "UPDATE MJ公司基本資料 SET 公司名 = N'" & 系統編碼規則_1.公司名稱_tb.Text & "', 統編 = N'" & 系統編碼規則_1.統編_tb.Text &

  167.                                         "', 電話 = N'" & 系統編碼規則_1.電話_tb.Text & "', 地址 = N'" & 系統編碼規則_1.公司地址_tb.Text & "' 

  168.                 WHERE 公司編號 LIKE N'" & 系統編碼規則_1.公司編號_tb.Text & "'"

  169.     End Sub

  170.     Friend Sub SQL_公司基本資料刪除()

  171.         SQL1 = "DELETE FROM MJ公司基本資料 WHERE (公司編號 = N'" & 系統編碼規則_1.公司編號_tb.Text & "')"

  172.     End Sub

  173.     Friend Sub SQL_職別清單()

  174.         ConnOpen() : SQL1 = "SELECT 編號, 職別 FROM MJ職別 ORDER BY 編號" : CmdSet_For_DGV()

  175.     End Sub

  176.     Friend Sub SQL_負責區域清單()

  177.         ConnOpen() : SQL1 = "SELECT 編號, 負責區域 FROM MJ負責區域 ORDER BY 編號" : CmdSet_For_DGV()

  178.     End Sub

  179.     Friend Sub SQL_佣金比例查詢()

  180.         ConnOpen() : SQL1 = "SELECT 比例 FROM 佣金比例 WHERE 比例 LIKE '" & 系統編碼規則_1.比例_nud.Value & "'" : CmdSet_For_dr()

  181.     End Sub

  182.     Friend Sub SQL_佣金比例新增()

  183.         SQL1 = "INSERT INTO 佣金比例 (比例) VALUES (N'" & 系統編碼規則_1.比例_nud.Value & "')"

  184.     End Sub

  185.     Friend Sub SQL_佣金比例刪除()

  186.         SQL1 = "DELETE FROM 佣金比例 WHERE (比例 = N'" & 系統編碼規則_1.比例_nud.Value & "')"

  187.     End Sub

  188.     '---------------------系統執行檔版本管理-----------------------------------------------------------------------------------------------------------------

  189.     Friend Sub SQL_版本號管理修改()

  190.         ConnOpen()

  191.         SQL1 = "UPDATE 版本號管理 SET 系統認證版本號 = N'" & 系統執行檔版本管理.版本號_tb.Text & "' WHERE (系統認證版本號 = N'" & Strings.Right(系統執行檔版本管理.資料庫版本號_lb.Text, 10) & "')"

  192.         CmdSet_For_dr()

  193.     End Sub

  194.     '---------------------系統使用者管理-----------------------------------------------------------------------------------------------------------------

  195.     Friend Sub SQL_系統使用者管理清單()

  196.         ConnOpen() : SQL1 = "SELECT " & 登入權限 & " FROM 使用者權限管理表" : CmdSet_For_DGV()

  197.     End Sub

  198.     Friend Sub SQL_系統使用者新增()

  199.         ConnOpen()

  200.         SQL1 = "INSERT INTO 使用者權限管理表 (" & 登入權限 & ") " &

  201.                "VALUES (N'" & 系統使用者管理.姓名_tb.Text & "',N'" & 系統使用者管理.帳號_tb.Text & "',N'" & 系統使用者管理.密碼_tb.Text & "', '" & 系統使用者管理.CheckBox1.Checked &

  202.                "', '" & 系統使用者管理.CheckBox2.Checked & "', '" & 系統使用者管理.CheckBox3.Checked & "', '" & 系統使用者管理.CheckBox4.Checked & "', '" & 系統使用者管理.CheckBox5.Checked &

  203.                "', '" & 系統使用者管理.CheckBox6.Checked & "', '" & 系統使用者管理.CheckBox7.Checked & "', '" & 系統使用者管理.CheckBox8.Checked & "', '" & 系統使用者管理.CheckBox9.Checked &

  204.                "', '" & 系統使用者管理.CheckBox10.Checked & "', '" & 系統使用者管理.CheckBox11.Checked & "', '" & 系統使用者管理.CheckBox12.Checked & "', '" & 系統使用者管理.CheckBox13.Checked &

  205.                "', '" & 系統使用者管理.CheckBox14.Checked & "', '" & 系統使用者管理.CheckBox15.Checked & "', '" & 系統使用者管理.CheckBox16.Checked & "', '" & 系統使用者管理.CheckBox17.Checked &

  206.                "', '" & 系統使用者管理.CheckBox18.Checked & "', '" & 系統使用者管理.CheckBox19.Checked & "', '" & 系統使用者管理.CheckBox20.Checked & "', '" & 系統使用者管理.CheckBox21.Checked &

  207.                "', '" & 系統使用者管理.CheckBox22.Checked & "', '" & 系統使用者管理.CheckBox23.Checked & "', '" & 系統使用者管理.CheckBox24.Checked & "', '" & 系統使用者管理.CheckBox25.Checked &

  208.                "', '" & 系統使用者管理.CheckBox26.Checked & "', '" & 系統使用者管理.CheckBox27.Checked & "', '" & 系統使用者管理.CheckBox28.Checked & "', '" & 系統使用者管理.CheckBox29.Checked &

  209.                "', '" & 系統使用者管理.CheckBox30.Checked & "', '" & 系統使用者管理.CheckBox31.Checked & "', '" & 系統使用者管理.CheckBox32.Checked & "', '" & 系統使用者管理.CheckBox33.Checked &

  210.                "', '" & 系統使用者管理.CheckBox34.Checked & "', '" & 系統使用者管理.CheckBox35.Checked & "', '" & 系統使用者管理.CheckBox36.Checked & "', '" & 系統使用者管理.CheckBox37.Checked &

  211.                "', '" & 系統使用者管理.CheckBox38.Checked & "', '" & 系統使用者管理.CheckBox39.Checked & "', '" & 系統使用者管理.CheckBox40.Checked & "', '" & 系統使用者管理.CheckBox41.Checked &

  212.                "', '" & 系統使用者管理.CheckBox42.Checked & "', '" & 系統使用者管理.CheckBox43.Checked & "', '" & 系統使用者管理.CheckBox44.Checked & "', '" & 系統使用者管理.CheckBox45.Checked &

  213.                "', '" & 系統使用者管理.CheckBox46.Checked & "', '" & 系統使用者管理.CheckBox47.Checked & "', '" & 系統使用者管理.CheckBox48.Checked & "', '" & 系統使用者管理.CheckBox49.Checked &

  214.                "', '" & 系統使用者管理.CheckBox50.Checked & "', '" & 系統使用者管理.CheckBox51.Checked & "', '" & 系統使用者管理.CheckBox52.Checked & "', '" & 系統使用者管理.CheckBox53.Checked &

  215.                "', '" & 系統使用者管理.CheckBox54.Checked & "', '" & 系統使用者管理.CheckBox55.Checked & "', '" & 系統使用者管理.CheckBox56.Checked & "', '" & 系統使用者管理.CheckBox57.Checked &

  216.                "', '" & 系統使用者管理.CheckBox58.Checked & "', '" & 系統使用者管理.CheckBox59.Checked & "', '" & 系統使用者管理.CheckBox60.Checked & "')"

  217.         CmdSet_For_dr()

  218.     End Sub

  219.     Friend Sub SQL_系統使用者密碼顯示()

  220.         ConnOpen() : SQL1 = "SELECT 密碼 FROM 使用者權限管理表 WHERE 姓名 LIKE N'" & 系統使用者管理.姓名_tb.Text & "' AND 帳號 LIKE N'" & 系統使用者管理.帳號_tb.Text & "'" : CmdSet_For_dr()

  221.     End Sub

  222.     Friend Sub SQL_系統使用者修改()

  223.         ConnOpen()

  224.         SQL1 = "UPDATE 使用者權限管理表 SET 姓名 = '" & 系統使用者管理.姓名_tb.Text & "', 密碼 = '" & 系統使用者管理.密碼_tb.Text & "', " &

  225.                    "CC00 = '" & 系統使用者管理.CheckBox1.Checked & "', CC01 = '" & 系統使用者管理.CheckBox2.Checked & "', CC02 = '" & 系統使用者管理.CheckBox3.Checked &

  226.                 "', CC03 = '" & 系統使用者管理.CheckBox4.Checked & "', CC04 = '" & 系統使用者管理.CheckBox5.Checked & "', CC05 = '" & 系統使用者管理.CheckBox6.Checked &

  227.                 "', CC06 = '" & 系統使用者管理.CheckBox7.Checked & "', CC07 = '" & 系統使用者管理.CheckBox8.Checked & "', CC08 = '" & 系統使用者管理.CheckBox9.Checked &

  228.                 "', CC09 = '" & 系統使用者管理.CheckBox10.Checked & "', CC10 = '" & 系統使用者管理.CheckBox11.Checked & "', CC11 = '" & 系統使用者管理.CheckBox12.Checked &

  229.                 "', CC12 = '" & 系統使用者管理.CheckBox13.Checked & "', CC13 = '" & 系統使用者管理.CheckBox14.Checked & "', CC14 = '" & 系統使用者管理.CheckBox15.Checked &

  230.                 "', CC15 = '" & 系統使用者管理.CheckBox16.Checked & "', CC16 = '" & 系統使用者管理.CheckBox17.Checked & "', CC17 = '" & 系統使用者管理.CheckBox18.Checked &

  231.                 "', CC18 = '" & 系統使用者管理.CheckBox19.Checked & "', CC19 = '" & 系統使用者管理.CheckBox20.Checked & "', CC20 = '" & 系統使用者管理.CheckBox21.Checked &

  232.                 "', CC21 = '" & 系統使用者管理.CheckBox22.Checked & "', CC22 = '" & 系統使用者管理.CheckBox23.Checked & "', CC23 = '" & 系統使用者管理.CheckBox24.Checked &

  233.                 "', CC24 = '" & 系統使用者管理.CheckBox25.Checked & "', CC25 = '" & 系統使用者管理.CheckBox26.Checked & "', CC26 = '" & 系統使用者管理.CheckBox27.Checked &

  234.                 "', CC27 = '" & 系統使用者管理.CheckBox28.Checked & "', CC28 = '" & 系統使用者管理.CheckBox29.Checked & "', CC29 = '" & 系統使用者管理.CheckBox30.Checked &

  235.                 "', CC30 = '" & 系統使用者管理.CheckBox31.Checked & "', CC31 = '" & 系統使用者管理.CheckBox32.Checked & "', CC32 = '" & 系統使用者管理.CheckBox33.Checked &

  236.                 "', CC33 = '" & 系統使用者管理.CheckBox34.Checked & "', CC34 = '" & 系統使用者管理.CheckBox35.Checked & "', CC35 = '" & 系統使用者管理.CheckBox36.Checked &

  237.                 "', CC36 = '" & 系統使用者管理.CheckBox37.Checked & "', CC37 = '" & 系統使用者管理.CheckBox38.Checked & "', CC38 = '" & 系統使用者管理.CheckBox39.Checked &

  238.                 "', CC39 = '" & 系統使用者管理.CheckBox40.Checked & "', CC40 = '" & 系統使用者管理.CheckBox41.Checked & "', CC41 = '" & 系統使用者管理.CheckBox42.Checked &

  239.                 "', CC42 = '" & 系統使用者管理.CheckBox43.Checked & "', CC43 = '" & 系統使用者管理.CheckBox44.Checked & "', CC44 = '" & 系統使用者管理.CheckBox45.Checked &

  240.                 "', CC45 = '" & 系統使用者管理.CheckBox46.Checked & "', CC46 = '" & 系統使用者管理.CheckBox47.Checked & "', CC47 = '" & 系統使用者管理.CheckBox48.Checked &

  241.                 "', CC48 = '" & 系統使用者管理.CheckBox49.Checked & "', CC49 = '" & 系統使用者管理.CheckBox50.Checked & "', CC50 = '" & 系統使用者管理.CheckBox51.Checked &

  242.                 "', CC51 = '" & 系統使用者管理.CheckBox52.Checked & "', CC52 = '" & 系統使用者管理.CheckBox53.Checked & "', CC53 = '" & 系統使用者管理.CheckBox54.Checked &

  243.                 "', CC54 = '" & 系統使用者管理.CheckBox55.Checked & "', CC55 = '" & 系統使用者管理.CheckBox56.Checked & "', CC56 = '" & 系統使用者管理.CheckBox57.Checked &

  244.                 "', CC57 = '" & 系統使用者管理.CheckBox58.Checked & "', CC58 = '" & 系統使用者管理.CheckBox59.Checked & "', CC59 = '" & 系統使用者管理.CheckBox60.Checked & "'

  245.                 WHERE (帳號 = '" & 系統使用者管理.帳號_tb.Text & "')"

  246.         CmdSet_For_dr()

  247.     End Sub

  248.     Friend Sub SQL_系統使用者刪除()

  249.         ConnOpen() : SQL1 = "DELETE FROM 使用者權限管理表 WHERE (帳號 = '" & 系統使用者管理.帳號_tb.Text & "')" : CmdSet_For_dr()

  250.     End Sub

  251.     '---------------------FTP資料夾管理-----------------------------------------------------------------------------------------------------------------

  252.     Friend Sub SQL_FTP資料夾管理新增()

  253.         ConnOpen()

  254.         SQL1 = "INSERT INTO FTP資料夾管理 (資料夾名稱, 指定頁面, 備註, 指定) 

  255.                 VALUES (N'" & FTP資料夾管理.資料夾名稱_tb.Text & "',N'" & FTP資料夾管理.指定頁面_tb.Text & "',N'" & FTP資料夾管理.備註_tb.Text & "',N'" & FTP資料夾管理.指定_tb.Text & "')"

  256.         CmdSet_For_dr()

  257.     End Sub

  258.     Friend Sub SQL_FTP資料夾管理修改()

  259.         ConnOpen()

  260.         SQL1 = "UPDATE FTP資料夾管理 SET 指定頁面 = N'" & FTP資料夾管理.指定頁面_tb.Text & "', 備註 = N'" & FTP資料夾管理.備註_tb.Text & "', 指定 = N'" & FTP資料夾管理.指定_tb.Text & "' 

  261.                 WHERE (資料夾名稱 = N'" & FTP資料夾管理.資料夾名稱_tb.Text & "')"

  262.         CmdSet_For_dr()

  263.     End Sub

  264.     Friend Sub SQL_FTP資料夾管理刪除()

  265.         ConnOpen() : SQL1 = "DELETE FROM FTP資料夾管理 WHERE (資料夾名稱 = N'" & FTP資料夾管理.資料夾名稱_tb.Text & "')" : CmdSet_For_dr()

  266.     End Sub

  267.     '---------------------列印_產品標籤介面-----------------------------------------------------------------------------------------------------------------

  268.     Friend Sub SQL_列印_產品標籤清單()

  269.         If PA = "維修申請單" Then

  270.             KKKJJ = " WHERE 倉儲明細表.單據編號 LIKE N'" & 列印用SQL & "' "

  271.         ElseIf PA = "銷售退貨單" Then

  272.             KKKJJ = " WHERE 倉儲明細表.單據編號 LIKE N'" & 列印用SQL & "' AND 倉儲明細表.出庫 < 0 "

  273.         ElseIf PA = "銷售出貨單" Then

  274.             KKKJJ = " WHERE 倉儲明細表.單據編號 LIKE N'" & 列印用SQL & "' AND 倉儲明細表.出庫 >= 0 "

  275.         ElseIf PA = "採購訂貨單" Then

  276.             KKKJJ = " WHERE 倉儲明細表.單據編號 LIKE N'" & 列印用SQL & "' AND 倉儲明細表.入庫 >= 0 "

  277.         ElseIf PA = "採購退貨單" Then

  278.             KKKJJ = " WHERE 倉儲明細表.單據編號 LIKE N'" & 列印用SQL & "' AND 倉儲明細表.入庫 < 0 "

  279.         End If

  280.         ConnOpen()

  281.         SQL1 = "SELECT 倉儲明細表.單據編號, 倉儲明細表.料號, 物料資料庫.頁碼, 物料資料庫.品名, 倉儲明細表.入庫, 倉儲明細表.出庫

  282.                      FROM   倉儲明細表 INNER JOIN 物料資料庫 ON 倉儲明細表.料號 = 物料資料庫.料號

  283.                      " & KKKJJ & "

  284.                      GROUP BY   倉儲明細表.單據編號, 倉儲明細表.料號, 物料資料庫.頁碼, 物料資料庫.品名, 倉儲明細表.入庫, 倉儲明細表.出庫 

  285.                      ORDER BY 倉儲明細表.料號"

  286.         CmdSet_For_DGV()

  287.     End Sub

  288.     '---------------------系統通用變數管理-----------------------------------------------------------------------------------------------------------------

  289.     Friend Sub SQL_通用預設值管理清單一()

  290.         ConnOpen() : SQL1 = "SELECT 流水號, 使用介面, 說明, 預設值 FROM 通用預設值管理表一 ORDER BY 使用介面" : CmdSet_For_DGV()

  291.     End Sub

  292.     Friend Sub SQL_系統通用變數管理流水號查詢()

  293.         ConnOpen() : SQL1 = "SELECT TOP (1) 流水號 FROM 通用預設值管理表一 ORDER BY 流水號 DESC" : CmdSet_For_dr()

  294.     End Sub

  295.     Friend Sub SQL_系統通用變數管理新增()

  296.         SQL1 = "INSERT INTO 通用預設值管理表一 (流水號, 使用介面, 說明, 預設值) VALUES (N'" & PA1 & "', N'" & PA2 & "', N'" & PA3 & "', N'" & PA4 & "')"

  297.     End Sub

  298.     Friend Sub SQL_系統通用變數管理修改()

  299.         SQL1 = "UPDATE 通用預設值管理表一 SET 使用介面 = N'" & PA2 & "', 說明 = N'" & PA3 & "', 預設值 = N'" & PA4 & "' WHERE 流水號 LIKE N'" & PA1 & "'"

  300.     End Sub

  301.     Friend Sub SQL_系統通用變數管理刪除()

  302.         SQL1 = "DELETE FROM 通用預設值管理表一 WHERE (流水號 = N'" & PA1 & "')"

  303.     End Sub

  304. End Module