WINPROFIT-ERP-SYS
/
WINPROFIT-ERP-SYS-LEEHSIEHJUI
Seguir 4
Destacar 0
Cuchillo 0
Código Incidencias 0 Peticiones pull 0 Lanzamientos 0 Wiki Actividad
Sin descripción
You can not select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
35 Commits
1 Rama
Árbol: df95874fc2
Ramas Etiquetas
${ item.name }
Crear rama ${ searchTerm }
desde 'df95874fc2'
${ noResults }
WINPROFIT-ERP-SYS-LEEHSIEHJUI/SHENKANG-MES-SYS/00、MyModule/SQL_採購系統管理.vb

SQL_採購系統管理.vb 39KB
Histórico Original

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414415416417418419420421422423424425426427428429430431432433434435436437438439440441442443444445446447448449450451452453454455456457458459460461462463464465466467468469470471472473474475476477478479480481482483484485486487488489490491492493494495496497498499500501502503504505506507508509 
  1. Module SQL_採購系統管理

  2.     Friend Sub SQL_一般物料請購單明細表()

  3.         ConnOpen()

  4.         SQL1 = "SELECT 請購單號, 項次, 品名, 規格, 備註, 數量, 單價, 數量 * 單價 AS 金額, 用途 FROM 一般物料請購單明細表 

  5.                 WHERE 請購單號 LIKE N'" & 一般物料請購單申請.一般物料請購單號_tb.Text & "' ORDER BY 項次"

  6.         CmdSet_For_DGV()

  7.     End Sub

  8.     Friend Sub SQL_一般物料請購單明細表1()

  9.         ConnOpen()

  10.         SQL1 = "SELECT 請購單號, 項次, 品名, 規格, 備註, 數量, 單價, 數量 * 單價 AS 金額, 用途 FROM 一般物料請購單明細表 

  11.                 WHERE 請購單號 LIKE N'" & 一般物料請購單核准.一般物料請購單號_tb.Text & "' ORDER BY 項次"

  12.         CmdSet_For_DGV()

  13.     End Sub

  14.     Friend Sub SQL_查詢明細()

  15.         ConnOpen()

  16.         SQL1 = "SELECT 請購單號, 項次, 品名, 規格, 備註, 數量, 單價, 數量 * 單價 AS 金額, 用途 FROM 一般物料請購單明細表 

  17.                 WHERE 請購單號 LIKE N'" & 一般物料請購單一覽表.一般物料請購單號_tb.Text & "' ORDER BY 項次"

  18.         CmdSet_For_DGV()

  19.     End Sub

  20.     Friend Sub SQL_未審核清單()

  21.         ConnOpen()

  22.         If 登入人部門 = "NA" Then

  23.             SQL1 = "SELECT 請購單號, 申請人, LEFT(申請日期, 10) AS 申請日期, 核准人, LEFT(核准日期, 10) AS 核准日期 FROM 一般物料請購單控制表 " &

  24.                    "WHERE (核准人 LIKE N'') ORDER BY 請購單號 DESC"

  25.         Else

  26.             SQL1 = "SELECT 請購單號, 申請人, LEFT(申請日期, 10) AS 申請日期, 核准人, LEFT(核准日期, 10) AS 核准日期 FROM 一般物料請購單控制表 " &

  27.                    "WHERE (申請人 LIKE N'" & gUserName & "') AND (核准人 LIKE N'') ORDER BY 請購單號 DESC"

  28.         End If

  29.         CmdSet_For_DGV()

  30.     End Sub

  31.     Friend Sub SQL_未核准清單()

  32.         ConnOpen()

  33.         If 登入人部門 = "NA" Then

  34.             SQL1 = "SELECT 請購單號, 申請人, LEFT(申請日期, 10) AS 申請日期, 核准人, LEFT(核准日期, 10) AS 核准日期 FROM 一般物料請購單控制表 " &

  35.                    "WHERE (核准人 LIKE N'作廢%') ORDER BY 請購單號 DESC"

  36.         Else

  37.             SQL1 = "SELECT 請購單號, 申請人, LEFT(申請日期, 10) AS 申請日期, 核准人, LEFT(核准日期, 10) AS 核准日期 FROM 一般物料請購單控制表 " &

  38.                    "WHERE (申請人 LIKE N'" & gUserName & "') AND (核准人 LIKE N'作廢%') ORDER BY 請購單號 DESC"

  39.         End If

  40.         CmdSet_For_DGV()

  41.     End Sub

  42.     Friend Sub SQL_審核清單()

  43.         ConnOpen()

  44.         If 登入人部門 = "NA" Then

  45.             SQL1 = "SELECT 請購單號, 申請人, LEFT(申請日期, 10) AS 申請日期, 核准人, LEFT(核准日期, 10) AS 核准日期, 已採購, 轉請款, 零用金單號 FROM 一般物料請購單控制表 " &

  46.                    "WHERE (核准人 NOT LIKE N'') AND (核准人 NOT LIKE N'作廢%') ORDER BY 請購單號 DESC"

  47.         Else

  48.             SQL1 = "SELECT 請購單號, 申請人, LEFT(申請日期, 10) AS 申請日期, 核准人, LEFT(核准日期, 10) AS 核准日期, 已採購, 轉請款, 零用金單號 FROM 一般物料請購單控制表 " &

  49.                    "WHERE (申請人 LIKE N'" & gUserName & "') AND (核准人 NOT LIKE N'') AND (核准人 NOT LIKE N'作廢%') ORDER BY 請購單號 DESC"

  50.         End If

  51.         CmdSet_For_DGV()

  52.     End Sub

  53.     Friend Sub SQL_刪除尚未存檔請購單控制表()

  54.         ConnOpen()

  55.         SQL1 = "DELETE FROM 一般物料請購單控制表 WHERE (請購單號 LIKE N'" & 一般物料請購單申請.一般物料請購單號_tb.Text & "')"

  56.         CmdSet_For_dr()

  57.     End Sub

  58.     Friend Sub SQL_刪除尚未存檔請購單明細表()

  59.         ConnOpen()

  60.         SQL1 = "DELETE FROM 一般物料請購單明細表 WHERE (請購單號 LIKE N'" & 一般物料請購單申請.一般物料請購單號_tb.Text & "')"

  61.         CmdSet_For_dr()

  62.     End Sub

  63.     Friend Sub SQL_查詢請購單號()

  64.         ConnOpen()

  65.         SQL1 = "SELECT TOP (1)  請購單號 FROM 一般物料請購單控制表 WHERE ( 請購單號 LIKE N'" & 一般物料請購單申請.一般物料請購單號_tb.Text & "')"

  66.         CmdSet_For_dr()

  67.     End Sub

  68.     Friend Sub SQL_新增一般物料請購單控制表()

  69.         ConnOpen()

  70.         SQL1 = "INSERT INTO 一般物料請購單控制表 (請購單號, 申請人, 申請日期, 核准人, 核准日期, 已採購, 轉請款, 零用金單號) " &

  71.                "VALUES (N'" & 一般物料請購單申請.一般物料請購單號_tb.Text & "',N'" & gUserName & "',N'" & DTP & "',N'',N'',N'0',N'0',N'')"

  72.         CmdSet_For_dr()

  73.     End Sub

  74.     Friend Sub SQL_修改一般物料請購單明細表()

  75.         ConnOpen()

  76.         SQL1 = "UPDATE 一般物料請購單明細表 SET  品名 = N'" & PA & "', 規格 = N'" & PA1 & "', 

  77.                                                  備註 = N'" & PA2 & "', 數量 = N'" & PA3 & "', 

  78.                                                  單價 = N'" & PA4 & "', 用途 = N'" & PA5 & "' 

  79.                    WHERE (請購單號 LIKE N'" & 一般物料請購單申請.一般物料請購單號_tb.Text & "' AND 項次 LIKE N'" & PA6 & "')"

  80.         CmdSet_For_dr()

  81.     End Sub

  82.     Friend Sub SQL_查詢最後一筆項次()

  83.         ConnOpen()

  84.         SQL1 = "SELECT TOP(1) 項次 FROM 一般物料請購單明細表 WHERE 請購單號 LIKE N'" & 一般物料請購單申請.一般物料請購單號_tb.Text & "' ORDER BY 項次 DESC"

  85.         CmdSet_For_dr()

  86.     End Sub

  87.     Friend Sub SQL_新增一般物料請購單明細表()

  88.         ConnOpen()

  89.         SQL1 = "INSERT INTO 一般物料請購單明細表 (請購單號, 品名, 規格, 備註, 數量, 單價, 用途, 項次) " &

  90.                "VALUES (N'" & 一般物料請購單申請.一般物料請購單號_tb.Text & "',N'',N'',N'',N'0',N'0',N'',N'" & 新項次 & "')"

  91.         CmdSet_For_dr()

  92.     End Sub

  93.     Friend Sub SQL_刪除一般物料請購單明細表()

  94.         ConnOpen()

  95.         SQL1 = "DELETE FROM 一般物料請購單明細表 WHERE (請購單號 LIKE N'" & 一般物料請購單申請.一般物料請購單號_tb.Text & "' AND 項次 LIKE N'" & 一般物料請購單申請.項次_tb.Text & "')"

  96.         CmdSet_For_dr()

  97.     End Sub

  98.     Friend Sub SQL_修改項次()

  99.         ConnOpen()

  100.         SQL1 = "UPDATE 一般物料請購單明細表 SET 項次 = N'" & 新項次 & "' WHERE (請購單號 LIKE N'" & 一般物料請購單申請.一般物料請購單號_tb.Text & "' AND 項次 LIKE N'" & PA9 & "')"

  101.         CmdSet_For_dr()

  102.     End Sub

  103.     Friend Sub SQL_刪除一般物料請購單控制表()

  104.         ConnOpen()

  105.         SQL1 = "DELETE FROM 一般物料請購單控制表 WHERE (請購單號 LIKE N'" & 一般物料請購單申請.一般物料請購單號_tb.Text & "')"

  106.         CmdSet_For_dr()

  107.     End Sub

  108.     Friend Sub SQL_刪除一般物料請購單明細表1()

  109.         ConnOpen()

  110.         SQL1 = "DELETE FROM 一般物料請購單明細表 WHERE (請購單號 LIKE N'" & 一般物料請購單申請.一般物料請購單號_tb.Text & "')"

  111.         CmdSet_For_dr()

  112.     End Sub

  113.     Friend Sub SQL_一般物料核准()

  114.         ConnOpen()

  115.         SQL1 = "UPDATE 一般物料請購單控制表 SET 核准人 = N'" & gUserName & "', 核准日期 = N'" & DTP & "' WHERE (請購單號 = N'" & 一般物料請購單核准.一般物料請購單號_tb.Text & "')"

  116.         CmdSet_For_dr()

  117.     End Sub

  118.     Friend Sub SQL_一般物料作廢()

  119.         ConnOpen()

  120.         SQL1 = "UPDATE 一般物料請購單控制表 SET 核准人 = N'作廢-" & gUserName & "', 核准日期 = N'" & DTP & "' WHERE (請購單號 = N'" & 一般物料請購單核准.一般物料請購單號_tb.Text & "')"

  121.         CmdSet_For_dr()

  122.     End Sub

  123.     Friend Sub SQL_查詢已採購()

  124.         ConnOpen()

  125.         SQL1 = "SELECT 已採購 FROM 一般物料請購單控制表 WHERE ( 請購單號 LIKE N'" & 一般物料請購單一覽表.一般物料請購單號_tb.Text & "')"

  126.         CmdSet_For_dr()

  127.     End Sub

  128.     Friend Sub SQL_一般物料已採購()

  129.         ConnOpen()

  130.         SQL1 = "UPDATE 一般物料請購單控制表 SET 已採購 = N'1' WHERE (請購單號 = N'" & 一般物料請購單一覽表.一般物料請購單號_tb.Text & "')"

  131.         CmdSet_For_dr()

  132.     End Sub

  133.     Friend Sub SQL_查詢轉請款()

  134.         ConnOpen()

  135.         SQL1 = "SELECT 轉請款 FROM 一般物料請購單控制表 WHERE ( 請購單號 LIKE N'" & 一般物料請購單一覽表.一般物料請購單號_tb.Text & "')"

  136.         CmdSet_For_dr()

  137.     End Sub

  138.     Friend Sub SQL_流水號新增()

  139.         ConnOpen()

  140.         SQL1 = "SELECT TOP (1)  流水號 FROM 零用金支付表 WHERE ( 流水號 LIKE N'" & WWW & "')"

  141.         CmdSet_For_dr()

  142.     End Sub

  143.     Friend Sub SQL_新增零用金支付表()

  144.         ConnOpen()

  145.         SQL1 = "INSERT INTO 零用金支付表 (流水號, 部門, 申請人, 申請日期, 審核人, 審核日期, 核准人, 核准日期, 會計, 作帳日期, 出納, 出納日期, 核准圖檔, 簽名編碼, 備註,帳本編號) " &

  146.                            "VALUES (N'" & WWW & "',N'" & 登入人部門 & "',N'" & gUserName & "',N'" & DTP & "',N'',N'',N'',N'',N'',N'',N'',N'',N'',N'',N'',N'" & 一般物料請購單一覽表.帳本編號_cb.Text & "')"

  147.         CmdSet_For_dr()

  148.     End Sub

  149.     Friend Sub SQL_新增零用金支付明細()

  150.         ConnOpen()

  151.         SQL1 = "INSERT INTO 零用金支付明細 (流水號, 用途, 金額, 備註, 項次) " &

  152.                "VALUES (N'" & WWW & "',N'" & PA & "',N'" & PA1 & "',N'" & PA2 & "',N'" & PA3 & "')"

  153.         CmdSet_For_dr()

  154.     End Sub

  155.     Friend Sub SQL_修改請購單控制表()

  156.         ConnOpen()

  157.         SQL1 = "UPDATE 一般物料請購單控制表 SET 轉請款 = N'1', 零用金單號 = '" & WWW & "' WHERE (請購單號 = N'" & 一般物料請購單一覽表.一般物料請購單號_tb.Text & "')"

  158.         CmdSet_For_dr()

  159.     End Sub

  160. 

  161.     Friend Sub SQL_廠商類別()

  162.         ConnOpen()

  163.         SQL1 = "SELECT 廠商, 供應商編碼 FROM 供應商清單 WHERE 公司傳真3 LIKE '" & 樣品物料調料單申請.廠商類別_cb.Text & "' AND 停用 = 0 ORDER BY 廠商"

  164.         CmdSet_For_dr()

  165.     End Sub

  166.     Friend Sub SQL_廠商停用()

  167.         ConnOpen()

  168.         SQL1 = "SELECT 廠商, 供應商編碼 FROM 供應商清單 WHERE 停用 = 0 ORDER BY 廠商"

  169.         CmdSet_For_dr()

  170.     End Sub

  171.     Friend Sub SQL_權限表()

  172.         ConnOpen()

  173.         SQL1 = "SELECT 姓名 FROM 使用者權限管理表 WHERE (CC49 = 0) ORDER BY 姓名"

  174.         CmdSet_For_dr()

  175.     End Sub

  176.     Friend Sub SQL_客戶表()

  177.         ConnOpen()

  178.         SQL1 = "SELECT 客戶簡稱 FROM 客戶控制表 ORDER BY 客戶簡稱"

  179.         CmdSet_For_dr()

  180.     End Sub

  181.     Friend Sub SQL_公司傳真()

  182.         ConnOpen()

  183.         SQL1 = "SELECT 公司傳真3 AS 類別 FROM 供應商清單 GROUP BY 公司傳真3 ORDER BY 公司傳真3"

  184.         CmdSet_For_dr()

  185.     End Sub

  186. 

  187.     Friend Sub SQL_查詢公司電話()

  188.         ConnOpen()

  189.         SQL1 = "SELECT 公司名, 公司電話1, 聯繫人1 FROM 供應商清單 WHERE (供應商編碼 LIKE '" & 樣品物料調料單申請.供應商編碼_cb.Text & "') ORDER BY 廠商"

  190.         CmdSet_For_dr()

  191.     End Sub

  192.     Friend Sub SQL_調料單清單()

  193.         ConnOpen()

  194.         If PA = "" Then

  195.             SQL1 = "SELECT 樣品物料調料單抬頭.調料單號, 供應商清單.廠商, 樣品物料調料單抬頭.客戶, 樣品物料調料單抬頭.SHOW年, 

  196.                            樣品物料調料單抬頭.SHOW月, 樣品物料調料單抬頭.日期, 樣品物料調料單抬頭.發件人, 樣品物料調料單抬頭.收件人, 

  197.                            樣品物料調料單抬頭.制表人, 樣品物料調料單抬頭.核准簽名, 樣品物料調料單抬頭.供應商編號

  198.                     FROM 樣品物料調料單抬頭 INNER JOIN

  199.                          供應商清單 ON 樣品物料調料單抬頭.供應商編號 = 供應商清單.供應商編碼

  200.                     WHERE (樣品物料調料單抬頭.核准簽名 LIKE '')

  201.                     ORDER BY 樣品物料調料單抬頭.SHOW年, 樣品物料調料單抬頭.SHOW月"

  202.         Else

  203.             SQL1 = "SELECT 樣品物料調料單抬頭.調料單號, 供應商清單.廠商, 樣品物料調料單抬頭.客戶, 樣品物料調料單抬頭.SHOW年, 

  204.                            樣品物料調料單抬頭.SHOW月, 樣品物料調料單抬頭.日期, 樣品物料調料單抬頭.發件人, 樣品物料調料單抬頭.收件人, 

  205.                            樣品物料調料單抬頭.制表人, 樣品物料調料單抬頭.核准簽名, 樣品物料調料單抬頭.供應商編號

  206.                     FROM 樣品物料調料單抬頭 INNER JOIN

  207.                          供應商清單 ON 樣品物料調料單抬頭.供應商編號 = 供應商清單.供應商編碼

  208.                     WHERE (樣品物料調料單抬頭.核准簽名 LIKE '') AND ((樣品物料調料單抬頭.調料單號 LIKE N'%" & PA & "%') OR (供應商清單.廠商 LIKE N'%" & PA & "%') OR 

  209.                           (樣品物料調料單抬頭.客戶 LIKE N'%" & PA & "%') OR 

  210.                           (樣品物料調料單抬頭.SHOW年 LIKE N'%" & PA & "%') OR (樣品物料調料單抬頭.SHOW月 LIKE N'%" & PA & "%') OR (樣品物料調料單抬頭.日期 LIKE N'%" & PA & "%') OR 

  211.                           (樣品物料調料單抬頭.發件人 LIKE N'%" & PA & "%') OR (樣品物料調料單抬頭.收件人 LIKE N'%" & PA & "%') OR (樣品物料調料單抬頭.制表人 LIKE N'%" & PA & "%')) 

  212.                     ORDER BY 樣品物料調料單抬頭.SHOW年, 樣品物料調料單抬頭.SHOW月"

  213.         End If

  214.         CmdSet_For_DGV()

  215.     End Sub

  216.     Friend Sub SQL_明細清單()

  217.         ConnOpen()

  218.         SQL1 = "SELECT 調料單號, 項次, 名稱, 規格, 顏色, 單位, 數量, 單價, 數量 * 單價 AS 金額, 備註 FROM  樣品物料調料單明細 WHERE 調料單號 LIKE N'" & 樣品物料調料單申請.樣品物料調料單單號_tb.Text & "' ORDER BY 項次"

  219.         CmdSet_For_DGV()

  220.     End Sub

  221.     Friend Sub SQL_刪除樣品物料調料單抬頭()

  222.         ConnOpen()

  223.         SQL1 = "DELETE FROM 樣品物料調料單抬頭 WHERE (調料單號 LIKE N'" & 樣品物料調料單申請.樣品物料調料單單號_tb.Text & "')"

  224.         CmdSet_For_dr()

  225.     End Sub

  226.     Friend Sub SQL_刪除樣品物料調料單明細()

  227.         ConnOpen()

  228.         SQL1 = "DELETE FROM 樣品物料調料單明細 WHERE (調料單號 LIKE N'" & 樣品物料調料單申請.樣品物料調料單單號_tb.Text & "')"

  229.         CmdSet_For_dr()

  230.     End Sub

  231.     Friend Sub SQL_年份清單()

  232.         ConnOpen()

  233.         SQL1 = "SELECT 年份 FROM 年份清單 ORDER BY 年份"

  234.         CmdSet_For_dr()

  235.     End Sub

  236.     Friend Sub SQL_供應商清單()

  237.         ConnOpen()

  238.         SQL1 = "SELECT 公司名, 公司電話1, 聯繫人1 FROM 供應商清單 WHERE (供應商編碼 LIKE '" & 樣品物料調料單申請.供應商編碼_cb.Text & "') ORDER BY 廠商"

  239.         CmdSet_For_dr()

  240.     End Sub

  241.     Friend Sub SQL_新增調料單號()

  242.         ConnOpen()

  243.         SQL1 = "SELECT TOP (1)  調料單號 FROM 樣品物料調料單抬頭 WHERE ( 調料單號 LIKE N'" & 樣品物料調料單申請.樣品物料調料單單號_tb.Text & "')"

  244.         CmdSet_For_dr()

  245.     End Sub

  246.     Friend Sub SQL_新增樣品物料調料單抬頭()

  247.         ConnOpen()

  248.         SQL1 = "INSERT INTO 樣品物料調料單抬頭 (調料單號, 日期, 發件人, 收件人, 客戶, 制表人, 核准簽名, 供應商編號, SHOW年, SHOW月) " &

  249.                "VALUES (N'" & 樣品物料調料單申請.樣品物料調料單單號_tb.Text & "',N'" & DTP & "',N'',N'',N'',N'',N'',N'',N'',N'')"

  250.         CmdSet_For_dr()

  251.     End Sub

  252.     Friend Sub SQL_修改樣品物料調料單抬頭()

  253.         ConnOpen()

  254.         SQL1 = "UPDATE 樣品物料調料單抬頭 SET  日期 = N'" & DTP & "', 發件人 = N'" & 樣品物料調料單申請.發件人_cb.Text & "', 收件人 = N'" & 樣品物料調料單申請.提取人_cb.Text & "', 客戶 = N'" & 樣品物料調料單申請.for_cb.Text &

  255.                "', 制表人 = N'" & gUserName & "', 供應商編號 = N'" & 樣品物料調料單申請.供應商編碼_cb.Text & "', SHOW年 = N'" & 樣品物料調料單申請.年份_cb.Text & "', SHOW月 = N'" & 樣品物料調料單申請.月份_cb.Text &

  256.                "' WHERE (調料單號 LIKE N'" & 樣品物料調料單申請.樣品物料調料單單號_tb.Text & "')"

  257.         CmdSet_For_dr()

  258.     End Sub

  259.     Friend Sub SQL_修改樣品物料調料單明細()

  260.         ConnOpen()

  261.         SQL1 = "UPDATE 樣品物料調料單明細 SET  名稱 = N'" & PA5 & "', 規格 = N'" & PA6 &

  262.                    "', 顏色 = N'" & PA7 & "', 單位 = N'" & PA8 & "', 數量 = N'" & PA9 &

  263.                    "', 單價 = N'" & PA10 & "', 備註 = N'" & PA11 &

  264.                    "' WHERE (調料單號 LIKE N'" & 樣品物料調料單申請.樣品物料調料單單號_tb.Text & "' AND 項次 LIKE N'" & PA12 & "')"

  265.         CmdSet_For_dr()

  266.     End Sub

  267.     Friend Sub SQL_查詢最後一筆項次1()

  268.         ConnOpen()

  269.         SQL1 = "SELECT TOP(1) 項次 FROM 樣品物料調料單明細 WHERE 調料單號 LIKE N'" & 樣品物料調料單申請.樣品物料調料單單號_tb.Text & "' ORDER BY 項次 DESC"

  270.         CmdSet_For_dr()

  271.     End Sub

  272.     Friend Sub SQL_新增樣品物料調料單明細()

  273.         ConnOpen()

  274.         SQL1 = "INSERT INTO 樣品物料調料單明細 (調料單號, 項次, 名稱, 規格, 顏色, 單位, 數量, 單價, 備註) " &

  275.                "VALUES (N'" & 樣品物料調料單申請.樣品物料調料單單號_tb.Text & "',N'" & 新項次 & "',N'',N'',N'',N'',N'0',N'0',N'')"

  276.         CmdSet_For_dr()

  277.     End Sub

  278.     Friend Sub SQL_刪除樣品物料調料單明細2()

  279.         ConnOpen()

  280.         SQL1 = "DELETE FROM 樣品物料調料單明細 WHERE (調料單號 LIKE N'" & 樣品物料調料單申請.樣品物料調料單單號_tb.Text & "' AND 項次 LIKE N'" & 樣品物料調料單申請.項次_tb.Text & "')"

  281.         CmdSet_For_dr()

  282.     End Sub

  283.     Friend Sub SQL_修改項次1()

  284.         ConnOpen()

  285.         SQL1 = "UPDATE 樣品物料調料單明細 SET 項次 = N'" & 新項次 & "' WHERE (調料單號 LIKE N'" & 樣品物料調料單申請.樣品物料調料單單號_tb.Text & "' AND 項次 LIKE N'" & PA16 & "')"

  286.         CmdSet_For_dr()

  287.     End Sub

  288.     '-----------------------------樣品物料調料單核准介面------------------------------------------------------------------------------------------

  289.     Friend Sub SQL_清單查詢()

  290.         ConnOpen()

  291.         If PA = "" Then

  292.             SQL1 = "SELECT 樣品物料調料單抬頭.調料單號, 供應商清單.廠商, 樣品物料調料單抬頭.客戶, 樣品物料調料單抬頭.SHOW年, 

  293.                            樣品物料調料單抬頭.SHOW月, 樣品物料調料單抬頭.日期, 樣品物料調料單抬頭.發件人, 樣品物料調料單抬頭.收件人, 

  294.                            樣品物料調料單抬頭.制表人, 樣品物料調料單抬頭.核准簽名, 樣品物料調料單抬頭.供應商編號

  295.                     FROM 樣品物料調料單抬頭 INNER JOIN

  296.                          供應商清單 ON 樣品物料調料單抬頭.供應商編號 = 供應商清單.供應商編碼

  297.                     WHERE (樣品物料調料單抬頭.核准簽名 LIKE '')

  298.                     ORDER BY 樣品物料調料單抬頭.SHOW年, 樣品物料調料單抬頭.SHOW月"

  299.         Else

  300.             SQL1 = "SELECT 樣品物料調料單抬頭.調料單號, 供應商清單.廠商, 樣品物料調料單抬頭.客戶, 樣品物料調料單抬頭.SHOW年, 

  301.                            樣品物料調料單抬頭.SHOW月, 樣品物料調料單抬頭.日期, 樣品物料調料單抬頭.發件人, 樣品物料調料單抬頭.收件人, 

  302.                            樣品物料調料單抬頭.制表人, 樣品物料調料單抬頭.核准簽名, 樣品物料調料單抬頭.供應商編號

  303.                     FROM 樣品物料調料單抬頭 INNER JOIN

  304.                          供應商清單 ON 樣品物料調料單抬頭.供應商編號 = 供應商清單.供應商編碼

  305.                     WHERE (樣品物料調料單抬頭.核准簽名 LIKE '') AND ((樣品物料調料單抬頭.調料單號 LIKE N'%" & PA & "%') OR (供應商清單.廠商 LIKE N'%" & PA & "%') OR (樣品物料調料單抬頭.客戶 LIKE N'%" & PA & "%') OR 

  306.                           (樣品物料調料單抬頭.SHOW年 LIKE N'%" & PA & "%') OR (樣品物料調料單抬頭.SHOW月 LIKE N'%" & PA & "%') OR (樣品物料調料單抬頭.日期 LIKE N'%" & PA & "%') OR 

  307.                           (樣品物料調料單抬頭.發件人 LIKE N'%" & PA & "%') OR (樣品物料調料單抬頭.收件人 LIKE N'%" & PA & "%') OR (樣品物料調料單抬頭.制表人 LIKE N'%" & PA & "%')) 

  308.                     ORDER BY 樣品物料調料單抬頭.SHOW年, 樣品物料調料單抬頭.SHOW月"

  309.         End If

  310.         CmdSet_For_DGV()

  311.     End Sub

  312.     Friend Sub SQL_明細查詢()

  313.         ConnOpen()

  314.         SQL1 = "SELECT 調料單號, 項次, 名稱, 規格, 顏色, 單位, 數量, 單價, 數量 * 單價 AS 金額, 備註 FROM  樣品物料調料單明細 WHERE 調料單號 LIKE N'" & 樣品物料調料單核準.樣品物料調料單單號_tb.Text & "' ORDER BY 項次"

  315.         CmdSet_For_DGV()

  316.     End Sub

  317.     Friend Sub SQL_廠商表單()

  318.         ConnOpen()

  319.         SQL1 = "SELECT 廠商, 供應商編碼 FROM 供應商清單 ORDER BY 廠商"

  320.         CmdSet_For_dr()

  321.     End Sub

  322.     Friend Sub SQL_使用者表()

  323.         ConnOpen()

  324.         SQL1 = "SELECT 姓名 FROM 使用者權限管理表 WHERE (CC49 = 0) ORDER BY 姓名"

  325.         CmdSet_For_dr()

  326.     End Sub

  327.     Friend Sub SQL_圖片流水號()

  328.         ConnOpen()

  329.         If gUserName = "李協叡" Then

  330.             SQL1 = "SELECT 圖片流水號 AS 圖檔編碼, 簽名檔人名 FROM 簽名檔管理 ORDER BY 圖片流水號"

  331.         Else

  332.             SQL1 = "SELECT 圖片流水號 AS 圖檔編碼, 簽名檔人名 FROM 簽名檔管理 WHERE 簽名檔人名 LIKE N'" & gUserName & "' ORDER BY 圖片流水號"

  333.         End If

  334.         CmdSet_For_DGV()

  335.     End Sub

  336.     Friend Sub SQL_簽名檔圖片()

  337.         ConnOpen()

  338.         SQL1 = "SELECT 簽名檔圖片 FROM 簽名檔管理 WHERE 圖片流水號 LIKE N'" & 樣品物料調料單核準.圖片編碼_tb.Text & "'"

  339.         CmdSet_For_dr()

  340.     End Sub

  341.     Friend Sub SQL_填入驗證碼()

  342.         ConnOpen()

  343.         SQL1 = "SELECT 驗證碼 FROM 樣品物料調料單抬頭 WHERE 驗證碼 LIKE N'" & 樣品物料調料單核準.驗證碼_tb.Text & "'"

  344.         CmdSet_For_dr()

  345.     End Sub

  346.     Friend Sub SQL_聯繫人()

  347.         ConnOpen()

  348.         SQL1 = "SELECT 公司名, 公司電話1, 聯繫人1 FROM 供應商清單 WHERE (供應商編碼 LIKE '" & 樣品物料調料單核準.供應商編碼_cb.Text & "') ORDER BY 廠商"

  349.         CmdSet_For_dr()

  350.     End Sub

  351.     Friend Sub SQL_更改核准簽名()

  352.         ConnOpen()

  353.         SQL1 = "UPDATE 樣品物料調料單抬頭 SET  核准簽名 = N'" & 樣品物料調料單核準.圖片編碼_tb.Text & "', 驗證碼 = N'" & 樣品物料調料單核準.驗證碼_tb.Text & "' WHERE (調料單號 LIKE N'" & 樣品物料調料單核準.樣品物料調料單單號_tb.Text & "')"

  354.         CmdSet_For_dr()

  355.     End Sub

  356.     Friend Sub SQL_刪除樣品物料調料單抬頭1()

  357.         ConnOpen()

  358.         SQL1 = "DELETE FROM 樣品物料調料單抬頭 WHERE (調料單號 LIKE N'" & 樣品物料調料單核準.樣品物料調料單單號_tb.Text & "')"

  359.         CmdSet_For_dr()

  360.     End Sub

  361.     Friend Sub SQL_刪除樣品物料調料單明細1()

  362.         ConnOpen()

  363.         SQL1 = "DELETE FROM 樣品物料調料單明細 WHERE (調料單號 LIKE N'" & 樣品物料調料單核準.樣品物料調料單單號_tb.Text & "')"

  364.         CmdSet_For_dr()

  365.     End Sub

  366.     '-----------樣品物料調料單一覽表------------------------------------

  367.     Friend Sub SQL_已審核清單()

  368.         ConnOpen()

  369.         If PA = "" Then

  370.             SQL1 = "SELECT 樣品物料調料單抬頭.調料單號, 供應商清單.廠商, 樣品物料調料單抬頭.客戶, 樣品物料調料單抬頭.SHOW年, 

  371.                            樣品物料調料單抬頭.SHOW月, 樣品物料調料單抬頭.日期, 樣品物料調料單抬頭.發件人, 樣品物料調料單抬頭.收件人, 

  372.                            樣品物料調料單抬頭.制表人, 樣品物料調料單抬頭.核准簽名, 樣品物料調料單抬頭.供應商編號, 樣品物料調料單抬頭.驗證碼

  373.                     FROM 樣品物料調料單抬頭 INNER JOIN

  374.                          供應商清單 ON 樣品物料調料單抬頭.供應商編號 = 供應商清單.供應商編碼

  375.                     WHERE (樣品物料調料單抬頭.核准簽名 NOT LIKE '')

  376.                     ORDER BY 樣品物料調料單抬頭.SHOW年 DESC, 樣品物料調料單抬頭.SHOW月 DESC"

  377.         Else

  378.             SQL1 = "SELECT 樣品物料調料單抬頭.調料單號, 供應商清單.廠商, 樣品物料調料單抬頭.客戶, 樣品物料調料單抬頭.SHOW年, 

  379.                            樣品物料調料單抬頭.SHOW月, 樣品物料調料單抬頭.日期, 樣品物料調料單抬頭.發件人, 樣品物料調料單抬頭.收件人, 

  380.                            樣品物料調料單抬頭.制表人, 樣品物料調料單抬頭.核准簽名, 樣品物料調料單抬頭.供應商編號, 樣品物料調料單抬頭.驗證碼

  381.                     FROM 樣品物料調料單抬頭 INNER JOIN

  382.                          供應商清單 ON 樣品物料調料單抬頭.供應商編號 = 供應商清單.供應商編碼

  383.                     WHERE (樣品物料調料單抬頭.核准簽名 NOT LIKE '') AND ((樣品物料調料單抬頭.調料單號 LIKE N'%" & PA & "%') OR (供應商清單.廠商 LIKE N'%" & PA & "%') OR (樣品物料調料單抬頭.客戶 LIKE N'%" & PA & "%') OR 

  384.                           (樣品物料調料單抬頭.SHOW年 LIKE N'%" & PA & "%') OR (樣品物料調料單抬頭.SHOW月 LIKE N'%" & PA & "%') OR (樣品物料調料單抬頭.日期 LIKE N'%" & PA & "%') OR 

  385.                           (樣品物料調料單抬頭.發件人 LIKE N'%" & PA & "%') OR (樣品物料調料單抬頭.收件人 LIKE N'%" & PA & "%') OR (樣品物料調料單抬頭.制表人 LIKE N'%" & PA & "%')) 

  386.                     ORDER BY 樣品物料調料單抬頭.SHOW年, 樣品物料調料單抬頭.SHOW月"

  387.         End If

  388.         CmdSet_For_DGV()

  389.     End Sub

  390.     Friend Sub SQL_明細清單1()

  391.         ConnOpen()

  392.         SQL1 = "SELECT 調料單號, 項次, 名稱, 規格, 顏色, 單位, 數量, 單價, 數量 * 單價 AS 金額, 備註 

  393.                 FROM  樣品物料調料單明細 WHERE 調料單號 LIKE N'" & 樣品物料調料單一覽表.樣品物料調料單單號_tb.Text & "' ORDER BY 項次"

  394.         CmdSet_For_DGV()

  395.     End Sub

  396.     Friend Sub SQL_簽名檔管理()

  397.         ConnOpen()

  398.         SQL1 = "SELECT 簽名檔圖片 FROM 簽名檔管理 WHERE 圖片流水號 LIKE N'" & 樣品物料調料單一覽表.圖片編碼_tb.Text & "'"

  399.         CmdSet_For_dr()

  400.     End Sub

  401.     Friend Sub SQL_公司電話1()

  402.         ConnOpen()

  403.         SQL1 = "SELECT 公司名, 公司電話1, 聯繫人1 FROM 供應商清單 WHERE (供應商編碼 LIKE '" & 樣品物料調料單一覽表.供應商編碼_cb.Text & "') ORDER BY 廠商"

  404.         CmdSet_For_dr()

  405.     End Sub

  406.     Friend Sub SQL_查詢最後一碼()

  407.         ConnOpen()

  408.         SQL1 = "SELECT TOP (1) 供應商編碼 FROM 供應商清單_一般物料 ORDER BY 供應商編碼 DESC"

  409.         CmdSet_For_dr()

  410.     End Sub

  411.     Friend Sub SQL_新增供應商清單_一般物料()

  412.         ConnOpen()

  413.         SQL1 = "INSERT INTO 供應商清單_一般物料 (供應商編碼, 廠商, 公司名, 公司地址, 公司電話1, 公司電話2, 公司電話3, 公司傳真1, 公司傳真2, 公司傳真3, 聯繫人1, 聯繫人2, 聯繫人3, " &

  414.                   "聯繫人1職稱, 聯繫人2職稱, 聯繫人3職稱, 聯繫人1電話, 聯繫人2電話, 聯繫人3電話, 聯繫人1郵箱, 聯繫人2郵箱, 聯繫人3郵箱) VALUES (N'" & 供應商_一般物料.供應商編號_tb.Text & "',N'" & 供應商_一般物料.供應商簡稱_tb.Text &

  415.                       "',N'" & 供應商_一般物料.公司名_tb.Text & "',N'" & 供應商_一般物料.公司地址_tb.Text & "',N'" & 供應商_一般物料.公司電話1_tb.Text & "',N'" & 供應商_一般物料.公司電話2_tb.Text & "',N'" & 供應商_一般物料.公司電話3_tb.Text & "',N'" & 供應商_一般物料.公司傳真1_tb.Text &

  416.                       "',N'" & 供應商_一般物料.公司傳真2_tb.Text & "',N'" & 供應商_一般物料.公司傳真3_tb.Text & "',N'" & 供應商_一般物料.聯繫人1_tb.Text & "',N'" & 供應商_一般物料.聯繫人2_tb.Text & "',N'" & 供應商_一般物料.聯繫人3_tb.Text & "',N'" & 供應商_一般物料.聯繫人1職稱_tb.Text &

  417.                       "',N'" & 供應商_一般物料.聯繫人2職稱_tb.Text & "',N'" & 供應商_一般物料.聯繫人3職稱_tb.Text & "',N'" & 供應商_一般物料.聯繫人1電話_tb.Text & "',N'" & 供應商_一般物料.聯繫人2電話_tb.Text & "',N'" & 供應商_一般物料.聯繫人3電話_tb.Text & "',N'" & 供應商_一般物料.聯繫人1信箱_tb.Text &

  418.                       "',N'" & 供應商_一般物料.聯繫人2信箱_tb.Text & "',N'" & 供應商_一般物料.聯繫人3信箱_tb.Text & "')"

  419.         CmdSet_For_dr()

  420.     End Sub

  421.     Friend Sub SQL_讀取供應商料表清單()

  422.         ConnOpen()

  423.         If PA = "" Then

  424.             SQL1 = "SELECT 供應商編碼, 廠商, 公司名, 公司地址, 公司電話1, 公司電話2, 公司電話3, 公司傳真1, 公司傳真2, 公司傳真3, 聯繫人1, 聯繫人2, 聯繫人3, 聯繫人1職稱, " &

  425.                    "聯繫人2職稱, 聯繫人3職稱, 聯繫人1電話, 聯繫人2電話, 聯繫人3電話, 聯繫人1郵箱, 聯繫人2郵箱, 聯繫人3郵箱 FROM 供應商清單_一般物料 ORDER BY 供應商編碼"

  426.         Else

  427.             SQL1 = "SELECT 供應商編碼, 廠商, 公司名, 公司地址, 公司電話1, 公司電話2, 公司電話3, 公司傳真1, 公司傳真2, 公司傳真3, 聯繫人1, 聯繫人2, 聯繫人3, 聯繫人1職稱, " &

  428.                    "聯繫人2職稱, 聯繫人3職稱, 聯繫人1電話, 聯繫人2電話, 聯繫人3電話, 聯繫人1郵箱, 聯繫人2郵箱, 聯繫人3郵箱 FROM 供應商清單_一般物料 " &

  429.                    "WHERE 供應商編碼 LIKE N'%" & PA & "%' OR 廠商 LIKE N'%" & PA & "%' OR 公司名 LIKE N'%" & PA & "%' OR 公司地址 LIKE N'%" & PA & "%' OR " &

  430.                    "聯繫人1 LIKE N'%" & PA & "%' OR 聯繫人2 LIKE N'%" & PA & "%' OR 聯繫人3 LIKE N'%" & PA & "%' ORDER BY 供應商編碼"

  431.         End If

  432.         CmdSet_For_DGV()

  433.     End Sub

  434.     Friend Sub SQL_更改供應商清單_一般物料()

  435.         ConnOpen()

  436.         SQL1 = "UPDATE   供應商清單_一般物料 SET 廠商 = N'" & 供應商_一般物料.供應商簡稱_tb.Text & "', 公司名 = N'" & 供應商_一般物料.公司名_tb.Text & "', 公司地址 = N'" & 供應商_一般物料.公司地址_tb.Text &

  437.                "', 公司電話1 = N'" & 供應商_一般物料.公司電話1_tb.Text & "', 公司電話2 = N'" & 供應商_一般物料.公司電話2_tb.Text & "', 公司電話3 = N'" & 供應商_一般物料.公司電話3_tb.Text & "', 公司傳真1 = N'" & 供應商_一般物料.公司傳真1_tb.Text &

  438.                "', 公司傳真2 = N'" & 供應商_一般物料.公司傳真2_tb.Text & "', 公司傳真3 = N'" & 供應商_一般物料.公司傳真3_tb.Text & "', 聯繫人1 = N'" & 供應商_一般物料.聯繫人1_tb.Text & "', 聯繫人2 = N'" & 供應商_一般物料.聯繫人2_tb.Text &

  439.                "', 聯繫人3 = N'" & 供應商_一般物料.聯繫人3_tb.Text & "', 聯繫人1職稱 = N'" & 供應商_一般物料.聯繫人1職稱_tb.Text & "', 聯繫人2職稱 = N'" & 供應商_一般物料.聯繫人2職稱_tb.Text & "', 聯繫人3職稱 = N'" & 供應商_一般物料.聯繫人3職稱_tb.Text &

  440.                "', 聯繫人1電話 = N'" & 供應商_一般物料.聯繫人1電話_tb.Text & "', 聯繫人2電話 = N'" & 供應商_一般物料.聯繫人2電話_tb.Text & "', 聯繫人3電話 = N'" & 供應商_一般物料.聯繫人3電話_tb.Text & "', 聯繫人1郵箱 = N'" & 供應商_一般物料.聯繫人1信箱_tb.Text &

  441.                "', 聯繫人2郵箱 = N'" & 供應商_一般物料.聯繫人2信箱_tb.Text & "', 聯繫人3郵箱 = N'" & 供應商_一般物料.聯繫人3信箱_tb.Text & "' WHERE (供應商編碼 = '" & 供應商_一般物料.供應商編號_tb.Text & "')"

  442.         CmdSet_For_dr()

  443.     End Sub

  444.     Friend Sub SQL_刪除供應商清單()

  445.         ConnOpen()

  446.         SQL1 = "DELETE FROM 供應商清單_一般物料 WHERE (供應商編碼 = '" & 供應商_一般物料.供應商編號_tb.Text & "')"

  447.         CmdSet_For_dr()

  448.     End Sub

  449.     '-------------------------------------------供應商管理_製鞋樣品----------------------------

  450.     Friend Sub SQL_查閱讀取商表()

  451.         ConnOpen()

  452.         If PA = "" Then

  453.             SQL1 = "SELECT 供應商編碼, 廠商, 公司名, 公司地址, 公司電話1, 公司電話2, 公司電話3, 公司傳真1, 公司傳真2, 公司傳真3 AS 廠商類別, 聯繫人1, 聯繫人2, 聯繫人3, 聯繫人1職稱, " &

  454.                    "聯繫人2職稱, 聯繫人3職稱, 聯繫人1電話, 聯繫人2電話, 聯繫人3電話, 聯繫人1郵箱, 聯繫人2郵箱, 聯繫人3郵箱, 停用 FROM 供應商清單 ORDER BY 供應商編碼"

  455.         Else

  456.             SQL1 = "SELECT 供應商編碼, 廠商, 公司名, 公司地址, 公司電話1, 公司電話2, 公司電話3, 公司傳真1, 公司傳真2, 公司傳真3, 聯繫人1, 聯繫人2, 聯繫人3, 聯繫人1職稱, " &

  457.                    "聯繫人2職稱, 聯繫人3職稱, 聯繫人1電話, 聯繫人2電話, 聯繫人3電話, 聯繫人1郵箱, 聯繫人2郵箱, 聯繫人3郵箱, 停用 FROM 供應商清單 " &

  458.                    "WHERE 供應商編碼 LIKE N'%" & PA & "%' OR 廠商 LIKE N'%" & PA & "%' OR 公司名 LIKE N'%" & PA & "%' OR 公司地址 LIKE N'%" & PA & "%' OR " &

  459.                    "聯繫人1 LIKE N'%" & PA & "%' OR 聯繫人2 LIKE N'%" & PA & "%' OR 聯繫人3 LIKE N'%" & PA & "%' ORDER BY 供應商編碼"

  460.         End If

  461.         CmdSet_For_DGV()

  462.     End Sub

  463.     Friend Sub SQL_廠商下拉清單()

  464.         ConnOpen()

  465.         SQL1 = "SELECT 廠商類別 FROM 廠商類別 ORDER BY 廠商類別"

  466.         CmdSet_For_dr()

  467.     End Sub

  468.     Friend Sub SQL_查詢供應商編碼()

  469.         ConnOpen()

  470.         SQL1 = "SELECT TOP (1) 供應商編碼 FROM 供應商清單 ORDER BY 供應商編碼 DESC"

  471.         CmdSet_For_dr()

  472.     End Sub

  473.     Friend Sub SQL_新增供應商清單()

  474.         ConnOpen()

  475.         SQL1 = "INSERT INTO 供應商清單 (供應商編碼, 廠商, 公司名, 公司地址, 公司電話1, 公司電話2, 公司電話3, 公司傳真1, 公司傳真2, 公司傳真3, 聯繫人1, 聯繫人2, 聯繫人3, " &

  476.                   "聯繫人1職稱, 聯繫人2職稱, 聯繫人3職稱, 聯繫人1電話, 聯繫人2電話, 聯繫人3電話, 聯繫人1郵箱, 聯繫人2郵箱, 聯繫人3郵箱, 停用) VALUES (N'" & 供應商管理_製鞋樣品.供應商編號_tb.Text &

  477.                       "',N'" & 供應商管理_製鞋樣品.供應商簡稱_tb.Text & "',N'" & 供應商管理_製鞋樣品.公司名_tb.Text & "',N'" & 供應商管理_製鞋樣品.公司地址_tb.Text & "',N'" & 供應商管理_製鞋樣品.公司電話1_tb.Text & "',N'" & 供應商管理_製鞋樣品.公司電話2_tb.Text & "',N'" & 供應商管理_製鞋樣品.公司電話3_tb.Text &

  478.                       "',N'" & 供應商管理_製鞋樣品.公司傳真1_tb.Text & "',N'" & 供應商管理_製鞋樣品.公司傳真2_tb.Text & "',N'" & 供應商管理_製鞋樣品.廠商類別_cb.Text & "',N'" & 供應商管理_製鞋樣品.聯繫人1_tb.Text & "',N'" & 供應商管理_製鞋樣品.聯繫人2_tb.Text & "',N'" & 供應商管理_製鞋樣品.聯繫人3_tb.Text &

  479.                       "',N'" & 供應商管理_製鞋樣品.聯繫人1職稱_tb.Text & "',N'" & 供應商管理_製鞋樣品.聯繫人2職稱_tb.Text & "',N'" & 供應商管理_製鞋樣品.聯繫人3職稱_tb.Text & "',N'" & 供應商管理_製鞋樣品.聯繫人1電話_tb.Text & "',N'" & 供應商管理_製鞋樣品.聯繫人2電話_tb.Text & "',N'" & 供應商管理_製鞋樣品.聯繫人3電話_tb.Text &

  480.                       "',N'" & 供應商管理_製鞋樣品.聯繫人1信箱_tb.Text & "',N'" & 供應商管理_製鞋樣品.聯繫人2信箱_tb.Text & "',N'" & 供應商管理_製鞋樣品.聯繫人3信箱_tb.Text & "', N'0')"

  481.         CmdSet_For_dr()

  482.     End Sub

  483.     Friend Sub SQL_修改供應商清單()

  484.         ConnOpen()

  485.         SQL1 = "UPDATE    供應商清單 SET 公司名 = N'" & 供應商管理_製鞋樣品.公司名_tb.Text & "', 公司地址 = N'" & 供應商管理_製鞋樣品.公司地址_tb.Text &

  486.                "', 公司電話1 = N'" & 供應商管理_製鞋樣品.公司電話1_tb.Text & "', 公司電話2 = N'" & 供應商管理_製鞋樣品.公司電話2_tb.Text & "', 公司電話3 = N'" & 供應商管理_製鞋樣品.公司電話3_tb.Text & "', 公司傳真1 = N'" & 供應商管理_製鞋樣品.公司傳真1_tb.Text &

  487.                "', 公司傳真2 = N'" & 供應商管理_製鞋樣品.公司傳真2_tb.Text & "', 公司傳真3 = N'" & 供應商管理_製鞋樣品.廠商類別_cb.Text & "', 聯繫人1 = N'" & 供應商管理_製鞋樣品.聯繫人1_tb.Text & "', 聯繫人2 = N'" & 供應商管理_製鞋樣品.聯繫人2_tb.Text &

  488.                "', 聯繫人3 = N'" & 供應商管理_製鞋樣品.聯繫人3_tb.Text & "', 聯繫人1職稱 = N'" & 供應商管理_製鞋樣品.聯繫人1職稱_tb.Text & "', 聯繫人2職稱 = N'" & 供應商管理_製鞋樣品.聯繫人2職稱_tb.Text & "', 聯繫人3職稱 = N'" & 供應商管理_製鞋樣品.聯繫人3職稱_tb.Text &

  489.                "', 聯繫人1電話 = N'" & 供應商管理_製鞋樣品.聯繫人1電話_tb.Text & "', 聯繫人2電話 = N'" & 供應商管理_製鞋樣品.聯繫人2電話_tb.Text & "', 聯繫人3電話 = N'" & 供應商管理_製鞋樣品.聯繫人3電話_tb.Text & "', 聯繫人1郵箱 = N'" & 供應商管理_製鞋樣品.聯繫人1信箱_tb.Text &

  490.                "', 聯繫人2郵箱 = N'" & 供應商管理_製鞋樣品.聯繫人2信箱_tb.Text & "', 聯繫人3郵箱 = N'" & 供應商管理_製鞋樣品.聯繫人3信箱_tb.Text & "', 停用 = '" & 供應商管理_製鞋樣品.停用_ch.Checked & "' WHERE (供應商編碼 = '" & 供應商管理_製鞋樣品.供應商編號_tb.Text & "')"

  491.         CmdSet_For_dr()

  492.     End Sub

  493.     Friend Sub SQL_查詢廠商()

  494.         ConnOpen()

  495.         SQL1 = "SELECT 廠商 FROM 樣品訂單部件表 WHERE (廠商 = N'" & 供應商管理_製鞋樣品.供應商簡稱_tb.Text & "')"

  496.         CmdSet_For_dr()

  497.     End Sub

  498.     Friend Sub SQL_刪除供應商清單1()

  499.         ConnOpen()

  500.         SQL1 = "DELETE FROM 供應商清單 WHERE (供應商編碼 = '" & 供應商管理_製鞋樣品.供應商編號_tb.Text & "')"

  501.         CmdSet_For_dr()

  502.     End Sub

  503. 

  504. End Module

  505. 

  506. 

  507. 

  508.