WINPROFIT-ERP-SYS
/
WINPROFIT-ERP-SYS-LEEHSIEHJUI
Vērot 4
Pievienot zvaigznīti 0
Atdalīts 0
Kods Problēmas 0 Izmaiņu pieprasījumi 0 Laidieni 0 Vikivietne Aktivitāte
Nav apraksta
Nevar pievienot vairāk kā 25 tēmas Tēmai ir jāsākas ar burtu vai ciparu, tā var saturēt domu zīmes ('-') un var būt līdz 35 simboliem gara.
35 Revīzijas
1 Atzars
Koks: df95874fc2
Atzari Tagi
${ item.name }
Izveidot atzaru ${ searchTerm }
no 'df95874fc2'
${ noResults }
WINPROFIT-ERP-SYS-LEEHSIEHJUI/SHENKANG-MES-SYS/00、MyModule/採購系統管理.vb

採購系統管理.vb 38KB
Vēsture Neapstrādāts

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414415416417418419420421422423424425426427428429430431432433434435436437438439440441442443444445446447448449450451452453454455456457458459460461462463464465466467468469470471472473474475476477478479480481482483484485486487488489490491492493494495496497498499500501502503504505506 
  1. Module 採購系統管理

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

  3.         ConnOpen()

  4.         SQL1 = "SELECT 請購單號, 項次, 品名, 規格, 備註, 數量, 單價, 數量 * 單價 AS 金額, 用途 FROM 一般物料請購單明細表 WHERE 請購單號 LIKE N'" & 一般物料請購單申請.一般物料請購單號_tb.Text & "' ORDER BY 項次"

  5.         CmdSet_For_DGV()

  6.     End Sub

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

  8.         ConnOpen()

  9.         SQL1 = "SELECT 請購單號, 項次, 品名, 規格, 備註, 數量, 單價, 數量 * 單價 AS 金額, 用途 FROM 一般物料請購單明細表 WHERE 請購單號 LIKE N'" & 一般物料請購單核准.一般物料請購單號_tb.Text & "' ORDER BY 項次"

  10.         CmdSet_For_DGV()

  11.     End Sub

  12.     Friend Sub SQL_查詢明細()

  13.         ConnOpen()

  14.         SQL1 = "SELECT 請購單號, 項次, 品名, 規格, 備註, 數量, 單價, 數量 * 單價 AS 金額, 用途 FROM 一般物料請購單明細表 WHERE 請購單號 LIKE N'" & 一般物料請購單一覽表.一般物料請購單號_tb.Text & "' ORDER BY 項次"

  15.         CmdSet_For_DGV()

  16.     End Sub

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

  18.         ConnOpen()

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

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

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

  22.         Else

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

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

  25.         End If

  26.         CmdSet_For_DGV()

  27.     End Sub

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

  29.         ConnOpen()

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

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

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

  33.         Else

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

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

  36.         End If

  37.         CmdSet_For_DGV()

  38.     End Sub

  39.     Friend Sub SQL_審核清單()

  40.         ConnOpen()

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

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

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

  44.         Else

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

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

  47.         End If

  48.         CmdSet_For_DGV()

  49.     End Sub

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

  51.         ConnOpen()

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

  53.         CmdSet_For_dr()

  54.     End Sub

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

  56.         ConnOpen()

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

  58.         CmdSet_For_dr()

  59.     End Sub

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

  61.         ConnOpen()

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

  63.         CmdSet_For_dr()

  64.     End Sub

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

  66.         ConnOpen()

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

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

  69.         CmdSet_For_dr()

  70.     End Sub

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

  72.         ConnOpen()

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

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

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

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

  77.         CmdSet_For_dr()

  78.     End Sub

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

  80.         ConnOpen()

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

  82.         CmdSet_For_dr()

  83.     End Sub

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

  85.         ConnOpen()

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

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

  88.         CmdSet_For_dr()

  89.     End Sub

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

  91.         ConnOpen()

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

  93.         CmdSet_For_dr()

  94.     End Sub

  95.     Friend Sub SQL_修改項次()

  96.         ConnOpen()

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

  98.         CmdSet_For_dr()

  99.     End Sub

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

  101.         ConnOpen()

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

  103.         CmdSet_For_dr()

  104.     End Sub

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

  106.         ConnOpen()

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

  108.         CmdSet_For_dr()

  109.     End Sub

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

  111.         ConnOpen()

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

  113.         CmdSet_For_dr()

  114.     End Sub

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

  116.         ConnOpen()

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

  118.         CmdSet_For_dr()

  119.     End Sub

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

  121.         ConnOpen()

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

  123.         CmdSet_For_dr()

  124.     End Sub

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

  126.         ConnOpen()

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

  128.         CmdSet_For_dr()

  129.     End Sub

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

  131.         ConnOpen()

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

  133.         CmdSet_For_dr()

  134.     End Sub

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

  136.         ConnOpen()

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

  138.         CmdSet_For_dr()

  139.     End Sub

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

  141.         ConnOpen()

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

  143.                            "VALUES (N'" & WWW & "',N'" & 登入人部門 & "',N'" & gUserName & "',N'" & DTP & "',N'',N'',N'',N'',N'',N'',N'',N'',N'',N'',N'')"

  144.         CmdSet_For_dr()

  145.     End Sub

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

  147.         ConnOpen()

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

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

  150.         CmdSet_For_dr()

  151.     End Sub

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

  153.         ConnOpen()

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

  155.         CmdSet_For_dr()

  156.     End Sub

  157. 

  158.     Friend Sub SQL_廠商類別()

  159.         ConnOpen()

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

  161.         CmdSet_For_dr()

  162.     End Sub

  163.     Friend Sub SQL_廠商停用()

  164.         ConnOpen()

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

  166.         CmdSet_For_dr()

  167.     End Sub

  168.     Friend Sub SQL_權限表()

  169.         ConnOpen()

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

  171.         CmdSet_For_dr()

  172.     End Sub

  173.     Friend Sub SQL_客戶表()

  174.         ConnOpen()

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

  176.         CmdSet_For_dr()

  177.     End Sub

  178.     Friend Sub SQL_公司傳真()

  179.         ConnOpen()

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

  181.         CmdSet_For_dr()

  182.     End Sub

  183. 

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

  185.         ConnOpen()

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

  187.         CmdSet_For_dr()

  188.     End Sub

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

  190.         ConnOpen()

  191.         If PA = "" Then

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

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

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

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

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

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

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

  199.         Else

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

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

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

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

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

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

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

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

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

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

  210.         End If

  211.         CmdSet_For_DGV()

  212.     End Sub

  213.     Friend Sub SQL_明細清單()

  214.         ConnOpen()

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

  216.         CmdSet_For_DGV()

  217.     End Sub

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

  219.         ConnOpen()

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

  221.         CmdSet_For_dr()

  222.     End Sub

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

  224.         ConnOpen()

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

  226.         CmdSet_For_dr()

  227.     End Sub

  228.     Friend Sub SQL_年份清單()

  229.         ConnOpen()

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

  231.         CmdSet_For_dr()

  232.     End Sub

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

  234.         ConnOpen()

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

  236.         CmdSet_For_dr()

  237.     End Sub

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

  239.         ConnOpen()

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

  241.         CmdSet_For_dr()

  242.     End Sub

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

  244.         ConnOpen()

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

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

  247.         CmdSet_For_dr()

  248.     End Sub

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

  250.         ConnOpen()

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

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

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

  254.         CmdSet_For_dr()

  255.     End Sub

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

  257.         ConnOpen()

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

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

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

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

  262.         CmdSet_For_dr()

  263.     End Sub

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

  265.         ConnOpen()

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

  267.         CmdSet_For_dr()

  268.     End Sub

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

  270.         ConnOpen()

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

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

  273.         CmdSet_For_dr()

  274.     End Sub

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

  276.         ConnOpen()

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

  278.         CmdSet_For_dr()

  279.     End Sub

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

  281.         ConnOpen()

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

  283.         CmdSet_For_dr()

  284.     End Sub

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

  286.     Friend Sub SQL_清單查詢()

  287.         ConnOpen()

  288.         If PA = "" Then

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

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

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

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

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

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

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

  296.         Else

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

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

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

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

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

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

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

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

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

  306.         End If

  307.         CmdSet_For_DGV()

  308.     End Sub

  309.     Friend Sub SQL_明細查詢()

  310.         ConnOpen()

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

  312.         CmdSet_For_DGV()

  313.     End Sub

  314.     Friend Sub SQL_廠商表單()

  315.         ConnOpen()

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

  317.         CmdSet_For_dr()

  318.     End Sub

  319.     Friend Sub SQL_使用者表()

  320.         ConnOpen()

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

  322.         CmdSet_For_dr()

  323.     End Sub

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

  325.         ConnOpen()

  326.         If gUserName = "李協叡" Then

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

  328.         Else

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

  330.         End If

  331.         CmdSet_For_DGV()

  332.     End Sub

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

  334.         ConnOpen()

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

  336.         CmdSet_For_dr()

  337.     End Sub

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

  339.         ConnOpen()

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

  341.         CmdSet_For_dr()

  342.     End Sub

  343.     Friend Sub SQL_聯繫人()

  344.         ConnOpen()

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

  346.         CmdSet_For_dr()

  347.     End Sub

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

  349.         ConnOpen()

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

  351.         CmdSet_For_dr()

  352.     End Sub

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

  354.         ConnOpen()

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

  356.         CmdSet_For_dr()

  357.     End Sub

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

  359.         ConnOpen()

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

  361.         CmdSet_For_dr()

  362.     End Sub

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

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

  365.         ConnOpen()

  366.         If PA = "" Then

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

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

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

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

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

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

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

  374.         Else

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

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

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

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

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

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

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

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

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

  384.         End If

  385.         CmdSet_For_DGV()

  386.     End Sub

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

  388.         ConnOpen()

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

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

  391.         CmdSet_For_DGV()

  392.     End Sub

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

  394.         ConnOpen()

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

  396.         CmdSet_For_dr()

  397.     End Sub

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

  399.         ConnOpen()

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

  401.         CmdSet_For_dr()

  402.     End Sub

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

  404.         ConnOpen()

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

  406.         CmdSet_For_dr()

  407.     End Sub

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

  409.         ConnOpen()

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

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

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

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

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

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

  416.         CmdSet_For_dr()

  417.     End Sub

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

  419.         ConnOpen()

  420.         If PA = "" Then

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

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

  423.         Else

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

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

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

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

  428.         End If

  429.         CmdSet_For_DGV()

  430.     End Sub

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

  432.         ConnOpen()

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

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

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

  436.                "', 聯繫人3 = N'" & 供應商_一般物料.聯繫人3_tb.Text & "', 聯繫人1職稱 = N'" & 供應商_一般物料.聯繫人1職稱_tb.Text & "', 聯繫人2職稱 = N'" & 供應商_一般物料.聯繫人2職稱_tb.Text & "', 聯繫人3職稱 = N'" & 供應商_一般物料.聯繫人3職稱_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 & "' WHERE (供應商編碼 = '" & 供應商_一般物料.供應商編號_tb.Text & "')"

  439.         CmdSet_For_dr()

  440.     End Sub

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

  442.         ConnOpen()

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

  444.         CmdSet_For_dr()

  445.     End Sub

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

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

  448.         ConnOpen()

  449.         If PA = "" Then

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

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

  452.         Else

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

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

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

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

  457.         End If

  458.         CmdSet_For_DGV()

  459.     End Sub

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

  461.         ConnOpen()

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

  463.         CmdSet_For_dr()

  464.     End Sub

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

  466.         ConnOpen()

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

  468.         CmdSet_For_dr()

  469.     End Sub

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

  471.         ConnOpen()

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

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

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

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

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

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

  478.         CmdSet_For_dr()

  479.     End Sub

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

  481.         ConnOpen()

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

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

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

  485.                "', 聯繫人3 = N'" & 供應商管理_製鞋樣品.聯繫人3_tb.Text & "', 聯繫人1職稱 = N'" & 供應商管理_製鞋樣品.聯繫人1職稱_tb.Text & "', 聯繫人2職稱 = N'" & 供應商管理_製鞋樣品.聯繫人2職稱_tb.Text & "', 聯繫人3職稱 = N'" & 供應商管理_製鞋樣品.聯繫人3職稱_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'" & 供應商管理_製鞋樣品.聯繫人3信箱_tb.Text & "', 停用 = '" & 供應商管理_製鞋樣品.停用_ch.Checked & "' WHERE (供應商編碼 = '" & 供應商管理_製鞋樣品.供應商編號_tb.Text & "')"

  488.         CmdSet_For_dr()

  489.     End Sub

  490.     Friend Sub SQL_查詢廠商()

  491.         ConnOpen()

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

  493.         CmdSet_For_dr()

  494.     End Sub

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

  496.         ConnOpen()

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

  498.         CmdSet_For_dr()

  499.     End Sub

  500. 

  501. End Module

  502. 

  503. 

  504. 

  505.