WINPROFIT-ERP-SYS
/
WINPROFIT-ERP-SYS-LEEHSIEHJUI
Watch 4
Star 0
Fork 0
Code Issues 0 Pull Requests 0 Releases 0 Wiki Activity
No Description
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 Branch
Tree: df95874fc2
Branches Tags
${ item.name }
Create branch ${ searchTerm }
from 'df95874fc2'
${ noResults }
WINPROFIT-ERP-SYS-LEEHSIEHJUI/SHENKANG-MES-SYS/00、MyModule/SQL_製鞋系統管理.vb

SQL_製鞋系統管理.vb 43KB
History Raw

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414415416417418419420421422423424425426427428429430431432433434435436437438439440441442443444445446447448449450451452453454455456457458459460461462463464465466467468469470471472473474475476477478479480481482483484485486487488489490491492493494495496497498499500501502503504505506507508509510511512513514515516517518519520521522523524525526527528529530531532533534535536537538539540541542543544545546547548549550551552553554555556557558559560561562563564565566567568569570571572573574575576577578579580581582583584585586587588589590591592593594595596597598599600601602603604605606607608609610611612613614615616617618619620621622623624625626627628629630631632633634635636637638639640641642643644645646647648649650651652653654655656657658659660661662663664665666667668669670671672673674675676677678679680681682683684685686687688689690691 
  1. Module SQL_製鞋系統管理

  2.     '---------------------------製鞋技術資料庫狀態---------------------------------------------------------------------

  3.     Friend Sub SQL_楦頭規格控制表查詢()

  4.         ConnOpen()

  5.         SQL1 = "SELECT 資料流水號, 楦頭編號, 楦頭圖號碼, 鞋圖號碼, 楦頭名, 楦頭名 AS 模具資料, 楦頭名 AS 素描圖片, 楦頭名 AS [MINI WALL], 楦頭名 AS 樣品單 FROM 楦頭規格控制表 ORDER BY 楦頭編號"

  6.         CmdSet_For_DGV()

  7.     End Sub

  8.     Friend Sub SQL_模具清單()

  9.         ConnOpen()

  10.         SQL1 = "SELECT 楦頭編號, 模具開發單號, 結構, 材質, 模具編號, 品牌 FROM 模具開發控制表 WHERE (楦頭編號 LIKE '" & 製鞋技術資料庫狀態.楦頭編號_tb.Text & "')"

  11.         CmdSet_For_DGV()

  12.     End Sub

  13.     Friend Sub SQL_鞋樣素描清單()

  14.         ConnOpen()

  15.         SQL1 = "SELECT 楦頭編號, 鞋樣素描圖編號,模具編號,型體編號,型體名稱,品牌 FROM 鞋樣素描圖控制表 WHERE (楦頭編號 LIKE '" & 製鞋技術資料庫狀態.楦頭編號_tb.Text & "')"

  16.         CmdSet_For_DGV()

  17.     End Sub

  18.     Friend Sub SQL_MINIWAL_()

  19.         ConnOpen()

  20.         SQL1 = "SELECT      MINI_WALL_明細表.楦頭編號, MINI_WALL_明細表.MW編號, MINI_WALL_明細表.製造, MINI_WALL_控制表.季節, MINI_WALL_控制表.品牌, MINI_WALL_明細表.楦頭編號

  21.                 FROM        MINI_WALL_明細表 LEFT OUTER JOIN MINI_WALL_控制表 ON MINI_WALL_明細表.MW編號 = MINI_WALL_控制表.MW編號

  22.                 WHERE      (MINI_WALL_明細表.楦頭編號 LIKE '" & 製鞋技術資料庫狀態.楦頭編號_tb.Text & "')

  23.                 GROUP BY    MINI_WALL_明細表.MW編號, MINI_WALL_明細表.製造, MINI_WALL_控制表.季節, MINI_WALL_控制表.品牌, MINI_WALL_明細表.楦頭編號

  24.                 ORDER BY    MINI_WALL_明細表.MW編號"

  25.         CmdSet_For_DGV()

  26.     End Sub

  27.     Friend Sub SQL_樣品訂單()

  28.         ConnOpen()

  29.         SQL1 = "SELECT 楦頭編號, SO, 季節, 客戶, 型體號碼, 型體名稱 FROM 樣品訂單控制表 WHERE (楦頭編號 LIKE '" & 製鞋技術資料庫狀態.楦頭編號_tb.Text & "') ORDER BY SO"

  30.         CmdSet_For_DGV()

  31.     End Sub

  32.     Friend Sub SQL_模具規格()

  33.         ConnOpen()

  34.         SQL1 = "SELECT 模具開發單號, 結構, 材質, 楦頭編號, 模具編號, 品牌, 大底廠, 尺寸, 季節, 制表, 制表日期, 模具廠, 模具廠 AS 鞋樣素描 FROM 模具開發控制表 ORDER BY 模具編號"

  35.         CmdSet_For_DGV()

  36.     End Sub

  37.     Friend Sub SQL_鞋樣素描1清單()

  38.         ConnOpen()

  39.         SQL1 = "SELECT 鞋樣素描圖編號, 型體編號, 型體名稱, 品牌 FROM 鞋樣素描圖控制表 WHERE (模具編號 LIKE '" & 製鞋技術資料庫狀態.模具規格_tb.Text & "')"

  40.         CmdSet_For_DGV()

  41.     End Sub

  42.     Friend Sub SQL_型體資訊()

  43.         ConnOpen()

  44.         SQL1 = "SELECT 客戶簡稱, 型體號碼, 型體名稱, 型體名稱 AS 鞋樣素描, 型體名稱 AS 鞋型圖片, 型體名稱 AS 樣品訂單, 型體名稱 AS 量產控制, 型體名稱 AS 量產明細, 型體名稱 AS 出貨明細

  45.                 FROM 型體控制表 ORDER BY 客戶簡稱, 型體號碼, 型體名稱"

  46.         CmdSet_For_DGV()

  47.     End Sub

  48.     Friend Sub SQL_鞋樣素描2()

  49.         ConnOpen()

  50.         SQL1 = "SELECT 型體名稱, 型體編號, 鞋樣素描圖編號, 楦頭編號, 模具編號, 品牌 FROM 鞋樣素描圖控制表 WHERE 型體編號 LIKE '" & 製鞋技術資料庫狀態.編號_tb.Text & "' AND 型體名稱 LIKE '" & 製鞋技術資料庫狀態.名稱_tb.Text & "'"

  51.         CmdSet_For_DGV()

  52.     End Sub

  53.     Friend Sub SQL_鞋型圖片()

  54.         ConnOpen()

  55.         SQL1 = "SELECT 客戶, 形體號, 形體名, 顏色, 類別, 入圖者, 圖片編號 FROM 鞋型圖片資料庫 

  56.                 WHERE 客戶 LIKE '" & 製鞋技術資料庫狀態.客戶_tb.Text & "' AND 形體號 LIKE '" & 製鞋技術資料庫狀態.編號_tb.Text & "' AND 形體名 LIKE '" & 製鞋技術資料庫狀態.名稱_tb.Text & "'"

  57.         CmdSet_For_DGV()

  58.     End Sub

  59.     Friend Sub SQL_樣品訂單1()

  60.         ConnOpen()

  61.         SQL1 = "SELECT 型體號碼, 型體名稱, SO, 季節, 型體號碼, 型體名稱, 制單人, 版次 FROM  樣品訂單控制表 

  62.                 WHERE  型體號碼 LIKE '" & 製鞋技術資料庫狀態.編號_tb.Text & "' AND 型體名稱 LIKE '" & 製鞋技術資料庫狀態.名稱_tb.Text & "'"

  63.         CmdSet_For_DGV()

  64.     End Sub

  65.     Friend Sub SQL_量產控制()

  66.         ConnOpen()

  67.         SQL1 = "SELECT 型體號碼, GOODBOX, 訂單流水號, 年份季度, 客戶訂單號, 型體號碼, GOODBOX AS 形體名稱, APMA確認 AS 顏色 FROM 訂單控制表

  68.                 WHERE (型體號碼 LIKE '" & 製鞋技術資料庫狀態.編號_tb.Text & "') AND (GOODBOX LIKE '" & 製鞋技術資料庫狀態.名稱_tb.Text & "')"

  69.         CmdSet_For_DGV()

  70.     End Sub

  71.     Friend Sub SQL_量產明細()

  72.         ConnOpen()

  73.         SQL1 = "SELECT ItemNumber, ProductName, 訂單流水號, 客戶訂單號, Color AS 顏色, 資料流水號 FROM 訂單明細表 

  74.                 WHERE  ItemNumber LIKE '" & 製鞋技術資料庫狀態.編號_tb.Text & "' AND ProductName LIKE '" & 製鞋技術資料庫狀態.名稱_tb.Text & "'"

  75.         CmdSet_For_DGV()

  76.     End Sub

  77.     Friend Sub SQL_出貨明細()

  78.         ConnOpen()

  79.         SQL1 = "SELECT 形體號, 貨款流水號, 資料流水號, 訂單流水號, 年份季度, 客戶訂單號 FROM 貨款匯入出款明細表 WHERE 形體號 LIKE '" & 製鞋技術資料庫狀態.名稱_tb.Text & "'"

  80.         CmdSet_For_DGV()

  81.     End Sub

  82.     Friend Sub SQL_楦模轉換()

  83.         ConnOpen()

  84.         SQL1 = "SELECT   模具開發控制表.模具開發單號, 模具開發控制表.模具編號, 模具開發控制表.楦頭編號 AS 模具對應楦頭, 模具開發控制表.CN AS NCN, 楦頭規格控制表.楦頭編號, 

  85.                          楦頭規格控制表.楦頭名 AS OCN, 楦頭規格控制表.資料流水號, METOO選擇按鈕.選擇

  86.                 FROM     模具開發控制表 LEFT OUTER JOIN METOO選擇按鈕 ON 模具開發控制表.楦頭編號 = METOO選擇按鈕.對應 FULL OUTER JOIN 楦頭規格控制表 ON 模具開發控制表.楦頭編號 = 

  87.                          楦頭規格控制表.楦頭編號

  88.                 ORDER BY 模具開發控制表.模具編號 DESC"

  89.         CmdSet_For_DGV()

  90.     End Sub

  91.     '-----------------製鞋系統管理-------------------------------------------------------------------------------------------

  92.     Friend Sub SQL_楦頭()

  93.         ConnOpen()

  94.         If PA = "" Then

  95.             SQL1 = "SELECT  資料流水號, 楦頭編號, 日期, 組別與尺碼, 後卡編號, 前卡編號, 楦底板編號, 涼鞋腳床, 活動中底編號, 鞋墊厚度, 中皮軟墊厚度, 後楦體寬度, 楦後跟高度, 鞋頭翹度, 鞋頭厚度, 第四趾圍,

  96.                     第五指圍, 著地奌圍度, 腰圍, 腳背圍, 長跟周長, 楦底長度, 前掌寬度1, 前掌寬度2, 著地點寬度, 跟座寬度, 備註, 意見, 男鞋女鞋, 楦頭圖號碼, 鞋圖號碼, 楦頭名, 級放基準碼數, 楦頭直量長度 

  97.                     FROM 楦頭規格控制表 ORDER BY 楦頭編號"

  98.         Else

  99.             SQL1 = "SELECT  資料流水號, 楦頭編號, 日期, 組別與尺碼, 後卡編號, 前卡編號, 楦底板編號, 涼鞋腳床, 活動中底編號, 鞋墊厚度, 中皮軟墊厚度, 後楦體寬度, 楦後跟高度, 鞋頭翹度, 鞋頭厚度, 第四趾圍,

  100.                     第五指圍, 著地奌圍度, 腰圍, 腳背圍, 長跟周長, 楦底長度, 前掌寬度1, 前掌寬度2, 著地點寬度, 跟座寬度, 備註, 意見, 男鞋女鞋, 楦頭圖號碼, 鞋圖號碼, 楦頭名, 級放基準碼數, 楦頭直量長度 

  101.                     FROM 楦頭規格控制表 WHERE 楦頭編號 LIKE N'%" & PA & "%' ORDER BY 楦頭編號"

  102.         End If

  103.         CmdSet_For_DGV()

  104.     End Sub

  105.     Friend Sub SQL_楦頭規格表清單()

  106.         ConnOpen()

  107.         SQL1 = "SELECT 資料流水號, Size, 楦頭直量長度, 楦底板長度, 楦底掌寬度, 掌圍, 腰圍, 背圍 FROM 楦頭規格表清單 WHERE (資料流水號 LIKE N'" & 楦頭規格表.楦頭編號_tb.Text & "') ORDER BY   Size"

  108.         CmdSet_For_DGV()

  109.     End Sub

  110.     Friend Sub SQL_讀取楦頭圖片()

  111.         ConnOpen()

  112.         SQL1 = "SELECT 楦頭圖片 FROM 楦頭圖片庫 WHERE 楦頭圖片編號 LIKE N'" & WWD1 & "'"

  113.         CmdSet_For_dr()

  114.     End Sub

  115.     Friend Sub SQL_讀取楦頭圖片1()

  116.         ConnOpen()

  117.         SQL1 = "SELECT 楦頭圖片 FROM 楦頭圖片庫 WHERE 楦頭圖片編號 LIKE N'" & WWD2 & "'"

  118.         CmdSet_For_dr()

  119.     End Sub

  120.     Friend Sub SQL_讀取楦頭圖片2()

  121.         ConnOpen()

  122.         SQL1 = "SELECT 楦頭圖片 FROM 楦頭圖片庫 WHERE 楦頭圖片編號 LIKE N'" & WWD3 & "'"

  123.         CmdSet_For_dr()

  124.     End Sub

  125.     Friend Sub SQL_讀取下拉1()

  126.         ConnOpen()

  127.         If PA = "" Then

  128.             SQL1 = "SELECT 楦頭編號 FROM 楦頭圖片庫 WHERE (楦頭編號 NOT LIKE N'ML001') AND (楦頭編號 NOT LIKE N'ML002') AND (楦頭編號 NOT LIKE N'ML003') AND (楦頭編號 NOT LIKE N'WL001') " &

  129.                    "AND (楦頭編號 NOT LIKE N'WL002') AND (楦頭編號 NOT LIKE N'WL003') ORDER BY 楦頭圖片編號"

  130.         Else

  131.             SQL1 = "SELECT 楦頭編號 FROM 楦頭圖片庫 WHERE (楦頭編號 LIKE N'" & PA & "%') AND (楦頭編號 NOT LIKE N'ML001') AND (楦頭編號 NOT LIKE N'ML002') AND (楦頭編號 NOT LIKE N'ML003') " &

  132.                    "AND (楦頭編號 NOT LIKE N'WL001') AND (楦頭編號 NOT LIKE N'WL002') AND (楦頭編號 NOT LIKE N'WL003') ORDER BY 楦頭圖片編號"

  133.         End If

  134.         CmdSet_For_dr()

  135.     End Sub

  136.     Friend Sub SQL_讀取下拉2()

  137.         ConnOpen()

  138.         If PA = "" Then

  139.             SQL1 = "SELECT 形體號, 形體名, 顏色, 圖片編號 FROM 鞋型圖片資料庫 WHERE (類別 LIKE N'%彩圖%') ORDER BY 形體號"

  140.         Else

  141.             SQL1 = "SELECT 形體號, 形體名, 顏色, 圖片編號 FROM 鞋型圖片資料庫 

  142.                     WHERE ((客戶 LIKE N'%" & PA & "%') OR (形體號 LIKE N'%" & PA & "%') OR (形體名 LIKE N'%" & PA & "%') OR (顏色 LIKE N'%" & PA & "%')) ORDER BY 形體號"

  143.         End If

  144.         CmdSet_For_dr()

  145.     End Sub

  146.     Friend Sub SQL_讀取下拉5()

  147.         ConnOpen()

  148.         SQL1 = "SELECT 縮寫 FROM 楦頭縮寫管理"

  149.         CmdSet_For_dr()

  150.     End Sub

  151.     Friend Sub SQL_刪除楦頭規格控制表()

  152.         ConnOpen()

  153.         SQL1 = "DELETE FROM 楦頭規格控制表 WHERE (資料流水號 = '" & 楦頭規格表.楦頭編號_tb.Text & "')"

  154.         CmdSet_For_dr()

  155.     End Sub

  156.     Friend Sub SQL_刪除楦頭規格表清單()

  157.         ConnOpen()

  158.         SQL1 = "DELETE FROM 楦頭規格表清單 WHERE (資料流水號 = '" & 楦頭規格表.楦頭編號_tb.Text & "')"

  159.         CmdSet_For_dr()

  160.     End Sub

  161.     Friend Sub SQL_刪除楦頭圖片庫()

  162.         ConnOpen()

  163.         SQL1 = "DELETE FROM 楦頭圖片庫 WHERE (楦頭編號 = '" & 楦頭規格表.楦頭_tb.Text & "')"

  164.         CmdSet_For_dr()

  165.     End Sub

  166.     Friend Sub SQL_讀取圖片3()

  167.         ConnOpen()

  168.         SQL1 = "SELECT 楦頭圖片 FROM 楦頭圖片庫 WHERE 楦頭圖片編號 LIKE N'" & 楦頭規格表.TextBox28.Text & "'"

  169.         CmdSet_For_dr()

  170.     End Sub

  171.     Friend Sub SQL_讀取圖片4()

  172.         ConnOpen()

  173.         SQL1 = "SELECT 圖片, 圖片編號 FROM 鞋型圖片資料庫 WHERE 圖片編號 LIKE N'" & 楦頭規格表.TextBox29.Text & "'"

  174.         CmdSet_For_dr()

  175.     End Sub

  176.     Friend Sub SQL_連動下拉1()

  177.         ConnOpen()

  178.         SQL1 = "SELECT 楦頭圖片, 楦頭圖片編號 FROM 楦頭圖片庫 WHERE 楦頭編號 LIKE N'" & 楦頭規格表.ComboBox1.Text & "'"

  179.         CmdSet_For_dr()

  180.     End Sub

  181.     Friend Sub SQL_連動下拉2()

  182.         ConnOpen()

  183.         SQL1 = "SELECT 圖片, 圖片編號 FROM 鞋型圖片資料庫 WHERE 圖片編號 LIKE N'" & 楦頭規格表.ComboBox3.Text & "'"

  184.         CmdSet_For_dr()

  185.     End Sub

  186.     Friend Sub SQL_更改楦頭規格控制表()

  187.         ConnOpen()

  188.         SQL1 = "UPDATE 楦頭規格控制表 SET 日期 = '" & DTP & "', 組別與尺碼 = '" & 楦頭規格表.組別_tb.Text & "', 後卡編號 = '" & 楦頭規格表.後卡編號_tb.Text & "', 前卡編號 = '" & 楦頭規格表.前卡編號_tb.Text & "', " &

  189.                "楦底板編號 = '" & 楦頭規格表.楦底板編號_tb.Text & "', 涼鞋腳床 = '" & 楦頭規格表.涼鞋腳床_tb.Text & "', 活動中底編號 = '" & 楦頭規格表.活動中底編號_cb.Text & "', 鞋墊厚度 = '" & 楦頭規格表.鞋底厚度_tb.Text & "', " &

  190.                "中皮軟墊厚度 = '" & 楦頭規格表.中皮軟墊厚度_tb.Text & "', 後楦體寬度 = '" & 楦頭規格表.後楦體寬度_tb.Text & "', 楦後跟高度 = '" & 楦頭規格表.楦後跟高度_tb.Text & "', 鞋頭翹度 = '" & 楦頭規格表.鞋頭翹度_tb.Text & "', " &

  191.                "鞋頭厚度 = '" & 楦頭規格表.鞋頭厚度_tb.Text & "', 第四趾圍 = '" & 楦頭規格表.第四趾圖_tb.Text & "', 第五指圍 = '" & 楦頭規格表.第五指圖_tb.Text & "', 著地奌圍度 = '" & 楦頭規格表.地點圍度_tb.Text & "', 腰圍 = '" & 楦頭規格表.腰圍1_tb.Text & "', " &

  192.                "腳背圍 = '" & 楦頭規格表.腳背圖1_tb.Text & "', 長跟周長 = '" & 楦頭規格表.長跟周長1_tb.Text & "', 楦底長度 = '" & 楦頭規格表.楦底長度_tb.Text & "', 前掌寬度1 = '" & 楦頭規格表.前掌寬度_tb.Text & "', 前掌寬度2 = '" & 楦頭規格表.前掌寬度1_tb.Text & "', " &

  193.                "著地點寬度 = '" & 楦頭規格表.著地點寬度_tb.Text & "', 跟座寬度 = '" & 楦頭規格表.跟座寬度_tb.Text & "', 備註 = '" & 楦頭規格表.備註_tb.Text & "', 意見 = '" & 楦頭規格表.意見_tb.Text & "', 男鞋女鞋 = '" & 楦頭規格表.男鞋_rb.Checked & "', " &

  194.                "楦頭圖號碼 = '" & 楦頭規格表.TextBox28.Text & "', 鞋圖號碼 = '" & 楦頭規格表.TextBox29.Text & "', 楦頭名 = '" & 楦頭規格表.結構名_tb.Text & "', 級放基準碼數 = '" & 楦頭規格表.碼數_cb.Text & "', 楦頭直量長度 = '" & 楦頭規格表.楦頭直量長度_tb.Text & "' 

  195.                WHERE (資料流水號 = '" & 楦頭規格表.楦頭編號_tb.Text & "')"

  196.         CmdSet_For_dr()

  197.     End Sub

  198.     Friend Sub SQL_更改楦頭規格表清單()

  199.         ConnOpen()

  200.         SQL1 = "UPDATE 楦頭規格表清單 SET  楦頭直量長度 = '" & PA7 & "', 楦底板長度 = '" & PA8 & "', 楦底掌寬度 = '" & PA9 & "', 

  201.                                            掌圍 = '" & PA10 & "',  腰圍 = '" & PA11 & "', 背圍 = '" & PA12 & "' 

  202.                    WHERE (資料流水號 LIKE N'" & 楦頭規格表.楦頭編號_tb.Text & "' AND Size LIKE N'" & EDFR & "')"

  203.         CmdSet_For_dr()

  204.     End Sub

  205.     Friend Sub SQL_查詢最後一筆資料流水號()

  206.         ConnOpen()

  207.         SQL1 = "SELECT TOP (1) 資料流水號 FROM 楦頭規格控制表 ORDER BY 資料流水號 DESC"

  208.         CmdSet_For_dr()

  209.     End Sub

  210.     Friend Sub SQL_查詢楦頭編號()

  211.         ConnOpen()

  212.         SQL1 = "SELECT 楦頭編號 FROM 楦頭規格控制表 WHERE 楦頭編號 LIKE N'" & 楦頭規格表.楦頭_tb.Text & "'"

  213.         CmdSet_For_dr()

  214.     End Sub

  215.     Friend Sub SQL_新增楦頭規格控制表()

  216.         ConnOpen()

  217.         SQL1 = "INSERT INTO 楦頭規格控制表 (資料流水號, 楦頭編號, 日期, 組別與尺碼, 後卡編號, 前卡編號, 楦底板編號, 涼鞋腳床, 活動中底編號, 

  218.                             鞋墊厚度, 中皮軟墊厚度, 後楦體寬度, 楦後跟高度, 鞋頭翹度, 鞋頭厚度, 第四趾圍, 第五指圍, 著地奌圍度, 腰圍, 

  219.                             腳背圍, 長跟周長, 楦底長度, 前掌寬度1, 前掌寬度2, 著地點寬度, 跟座寬度, 備註, 意見, 男鞋女鞋, 楦頭圖號碼, 

  220.                             鞋圖號碼, 楦頭名, 級放基準碼數) " &

  221.                    "VALUES ('" & 楦頭規格表.楦頭編號_tb.Text & "','" & 楦頭規格表.楦頭_tb.Text & "','','','','','','','','','','','','','','','','','','','','','','','','','','','" & 楦頭規格表.男鞋_rb.Checked & "','','','','')"

  222.         CmdSet_For_dr()

  223.     End Sub

  224.     Friend Sub SQL_新增楦頭規格表清單()

  225.         ConnOpen()

  226.         SQL1 = "INSERT INTO 楦頭規格表清單 (資料流水號, Size, 楦頭直量長度, 楦底板長度, 楦底掌寬度, 掌圍, 腰圍, 背圍) " &

  227.                        "VALUES ('" & 楦頭規格表.楦頭編號_tb.Text & "','" & EDFR & "','0.000','0.000','0.000','0.000','0.000','0.000')"

  228.         CmdSet_For_dr()

  229.     End Sub

  230.     '--------------------------模具開發控制表------------------------------------

  231.     Friend Sub SQL_模具開發控制表清單()

  232.         ConnOpen()

  233.         If PA = "" Then

  234.             SQL1 = "SELECT   模具開發單號, 結構, 材質, 楦頭編號, 模具編號, 參考原樣鞋編號, 品牌, 大底廠, 尺寸, 季節, 備註1 AS 備註, 制表, 制表日期, 模具廠, CN

  235.                     FROM     模具開發控制表 

  236.                     ORDER BY 楦頭編號"

  237.         Else

  238.             SQL1 = "SELECT   模具開發單號, 結構, 材質, 楦頭編號, 模具編號, 參考原樣鞋編號, 品牌, 大底廠, 尺寸, 季節, 備註1 AS 備註, 制表, 制表日期, 模具廠, CN

  239.                     FROM     模具開發控制表 

  240.                     WHERE    模具開發單號 LIKE N'%" & PA & "%' OR 結構 LIKE N'%" & PA & "%' OR 材質 LIKE N'%" & PA & "%' OR 楦頭編號 LIKE N'%" & PA & "%' OR 

  241.                              模具編號 LIKE N'%" & PA & "%' OR 參考原樣鞋編號 LIKE N'%" & PA & "%' OR 品牌 LIKE N'%" & PA & "%' OR 大底廠 LIKE N'%" & PA & "%' OR 

  242.                              尺寸 LIKE N'%" & PA & "%' OR 季節 LIKE N'%" & PA & "%'

  243.                     ORDER BY 楦頭編號"

  244.         End If

  245.         CmdSet_For_DGV()

  246.     End Sub

  247.     Friend Sub SQL_下拉清單1()

  248.         ConnOpen()

  249.         SQL1 = "SELECT 廠商 FROM 供應商清單 WHERE (公司傳真3 LIKE '模具廠')"

  250.         CmdSet_For_dr()

  251.     End Sub

  252.     Friend Sub SQL_下拉清單2()

  253.         ConnOpen()

  254.         SQL1 = "SELECT 結構 FROM 模具開發用結構清單"

  255.         CmdSet_For_dr()

  256.     End Sub

  257.     Friend Sub SQL_下拉清單3()

  258.         ConnOpen()

  259.         SQL1 = "SELECT 材質 FROM 模具開發用材質清單"

  260.         CmdSet_For_dr()

  261.     End Sub

  262.     Friend Sub SQL_下拉清單4()

  263.         ConnOpen()

  264.         SQL1 = "SELECT 楦頭編號 FROM 楦頭規格控制表 ORDER BY 楦頭編號 DESC"

  265.         CmdSet_For_dr()

  266.     End Sub

  267.     Friend Sub SQL_下拉清單5()

  268.         ConnOpen()

  269.         SQL1 = "SELECT  CUST FROM MTTOOCUST清單 ORDER BY CUST"

  270.         CmdSet_For_dr()

  271.     End Sub

  272.     Friend Sub SQL_下拉清單6()

  273.         ConnOpen()

  274.         SQL1 = "SELECT 廠商 FROM 供應商清單 WHERE (公司傳真3 LIKE '大底廠')"

  275.         CmdSet_For_dr()

  276.     End Sub

  277.     Friend Sub SQL_下拉清單7()

  278.         ConnOpen()

  279.         SQL1 = "SELECT SEASON FROM 季節清單 ORDER BY SEASON"

  280.         CmdSet_For_dr()

  281.     End Sub

  282.     Friend Sub SQL_圖片導入()

  283.         ConnOpen()

  284.         SQL1 = "SELECT 圖片 FROM 模具開發控制表 WHERE 模具開發單號 LIKE N'" & 模具開發控制表.模具開發單編碼_tb.Text & "'"

  285.         CmdSet_For_dr()

  286.     End Sub

  287.     Friend Sub SQL_最後一筆模具開發單號()

  288.         ConnOpen()

  289.         SQL1 = "SELECT TOP (1) 模具開發單號 FROM 模具開發控制表 ORDER BY 模具開發單號 DESC"

  290.         CmdSet_For_dr()

  291.     End Sub

  292.     Friend Sub SQL_模具開發控制表()

  293.         ConnOpen()

  294.         SQL1 = "SELECT 模具開發單號 FROM 模具開發控制表 WHERE 楦頭編號 LIKE N'" & 模具開發控制表.楦頭編號_cb.Text & "' AND 模具編號 LIKE N'" & 模具開發控制表.模具編號_tb.Text & "'"

  295.         CmdSet_For_dr()

  296.     End Sub

  297.     Friend Sub SQL_查詢最後一筆模具開發單號()

  298.         ConnOpen()

  299.         SQL1 = "SELECT TOP (1) 模具開發單號 FROM 模具開發控制表 WHERE 模具開發單號 LIKE N'" & 模具開發控制表.模具開發單編碼_tb.Text & "'"

  300.         CmdSet_For_dr()

  301.     End Sub

  302.     Friend Sub SQL_新增模具開發控制表()

  303.         ConnOpen()

  304.         SQL1 = "INSERT INTO 模具開發控制表 (模具開發單號, 模具廠, 結構, 材質, 楦頭編號, 模具編號, 參考原樣鞋編號, 品牌, 大底廠, 尺寸, 季節, 備註1, 制表, 制表日期, CN, 圖片) 

  305.                             SELECT N'" & 模具開發控制表.模具開發單編碼_tb.Text & "',N'" & 模具開發控制表.模具廠_cb.Text & "',N'" & 模具開發控制表.結構_cb.Text & "',

  306.                                    N'" & 模具開發控制表.材質_cb.Text & "',N'" & 模具開發控制表.楦頭編號_cb.Text & "',N'" & 模具開發控制表.模具編號_tb.Text & "',

  307.                                    N'" & 模具開發控制表.參考漾鞋編號_tb.Text & "',N'" & 模具開發控制表.品牌_cb.Text & "',N'" & 模具開發控制表.大底廠_cb.Text & "',

  308.                                    N'" & 模具開發控制表.尺寸_tb.Text & "',N'" & 模具開發控制表.季節_cb.Text & "',N'" & 模具開發控制表.備註_tb.Text & "',

  309.                                    N'" & gUserName & "',N'" & DTP & "', N'" & 模具開發控制表.CN_tb.Text & "', @binary_file"

  310.         CmdSet_For_dr_pic()

  311.     End Sub

  312.     Friend Sub SQL_修改模具開發控制表()

  313.         ConnOpen()

  314.         SQL1 = "UPDATE 模具開發控制表 SET 模具廠 = N'" & 模具開發控制表.模具廠_cb.Text & "', 結構 = N'" & 模具開發控制表.結構_cb.Text & "', 材質 = N'" & 模具開發控制表.材質_cb.Text & "', 

  315.                 楦頭編號 = N'" & 模具開發控制表.楦頭編號_cb.Text & "', 模具編號 = N'" & 模具開發控制表.模具編號_tb.Text & "', 參考原樣鞋編號 = N'" & 模具開發控制表.參考漾鞋編號_tb.Text & "', 

  316.                 品牌 = N'" & 模具開發控制表.品牌_cb.Text & "', 大底廠 = N'" & 模具開發控制表.大底廠_cb.Text & "', 尺寸 = N'" & 模具開發控制表.尺寸_tb.Text & "', 

  317.                 季節 = N'" & 模具開發控制表.季節_cb.Text & "', 備註1 = N'" & 模具開發控制表.備註_tb.Text & "', 制表 = N'" & gUserName & "', 制表日期 = N'" & DTP & "',  

  318.                 CN = N'" & 模具開發控制表.CN_tb.Text & "'  WHERE 模具開發單號 LIKE N'" & 模具開發控制表.模具開發單編碼_tb.Text & "'"

  319.         CmdSet_For_dr()

  320.     End Sub

  321.     Friend Sub SQL_修改模具開發控制表1()

  322.         ConnOpen()

  323.         SQL1 = "UPDATE 模具開發控制表 SET 制表 = N'" & gUserName & "', 制表日期 = N'" & DTP & "', 

  324.                        圖片 = @binary_file  WHERE (模具開發單號 = '" & 模具開發控制表.模具開發單編碼_tb.Text & "')"

  325.         CmdSet_For_dr_pic()

  326.     End Sub

  327.     '------------------------鞋樣素描控制表---------------------------------------------------

  328.     Friend Sub SQL_楦頭規格控制表()

  329.         ConnOpen()

  330.         If PA = "" Then

  331.             SQL1 = "SELECT 楦頭編號, 楦頭名 FROM 楦頭規格控制表 ORDER BY 楦頭編號"

  332.         Else

  333.             SQL1 = "SELECT 楦頭編號, 楦頭名 FROM 楦頭規格控制表 WHERE 楦頭編號 LIKE N'%" & PA & "%' ORDER BY 楦頭編號"

  334.         End If

  335.         CmdSet_For_DGV()

  336.     End Sub

  337.     Friend Sub SQL_模具開發表清單()

  338.         ConnOpen()

  339.         SQL1 = "SELECT 模具編號, 結構, 材質 FROM 模具開發控制表 WHERE (楦頭編號 LIKE N'" & 鞋樣素描控制表.楦頭編號_tb.Text & "')"

  340.         CmdSet_For_DGV()

  341.     End Sub

  342.     Friend Sub SQL_型體表清單()

  343.         ConnOpen()

  344.         SQL1 = "SELECT 型體號碼, 型體名稱 FROM 型體控制表 

  345.                 WHERE (客戶簡稱 LIKE N'" & 鞋樣素描控制表.品牌_cb.Text & "') AND (型體號碼 LIKE N'%" & 鞋樣素描控制表.楦頭編號_tb.Text & "%') ORDER BY 型體號碼"

  346.         CmdSet_For_DGV()

  347.     End Sub

  348.     Friend Sub SQL_鞋樣素描圖控制表()

  349.         ConnOpen()

  350.         If PA = "" Then

  351.             SQL1 = "SELECT 品牌, 鞋樣素描圖編號, 楦頭編號, 模具編號, 型體編號, 型體名稱 FROM 鞋樣素描圖控制表"

  352.         Else

  353.             SQL1 = "SELECT 品牌, 鞋樣素描圖編號, 楦頭編號, 模具編號, 型體編號, 型體名稱 FROM 鞋樣素描圖控制表 

  354.                     WHERE 品牌 LIKE N'" & PA & "' OR 鞋樣素描圖編號 LIKE N'" & PA & "' OR 楦頭編號 LIKE N'" & PA &

  355.                     "' OR 模具編號 LIKE N'" & PA & "' OR 型體編號 LIKE N'" & PA & "' OR 型體名稱 LIKE N'" & PA & "'"

  356.         End If

  357.         CmdSet_For_DGV()

  358.     End Sub

  359.     Friend Sub SQL_下拉表單1()

  360.         ConnOpen()

  361.         SQL1 = "SELECT 客戶簡稱 FROM 型體控制表 GROUP BY   客戶簡稱 ORDER BY   客戶簡稱"

  362.         CmdSet_For_dr()

  363.     End Sub

  364.     Friend Sub SQL_鞋樣素描圖控制表1()

  365.         ConnOpen()

  366.         SQL1 = "SELECT 圖片 FROM 鞋樣素描圖控制表 WHERE 鞋樣素描圖編號 LIKE N'" & 鞋樣素描控制表.鞋樣素描圖編號_tb.Text & "'"

  367.         CmdSet_For_dr()

  368.     End Sub

  369.     Friend Sub SQL_查詢鞋樣素描圖編號()

  370.         ConnOpen()

  371.         SQL1 = "SELECT 鞋樣素描圖編號 FROM 鞋樣素描圖控制表 

  372.                 WHERE 楦頭編號 LIKE N'" & 鞋樣素描控制表.楦頭編號_tb.Text & "' AND 模具編號 LIKE N'" & 鞋樣素描控制表.模具編號_tb.Text & "' AND 型體編號 LIKE N'" & 鞋樣素描控制表.型體編號_tb.Text & "' AND 型體名稱 LIKE N'" & 鞋樣素描控制表.型體名稱_tb.Text & "'"

  373.         CmdSet_For_dr()

  374.     End Sub

  375.     Friend Sub SQL_查詢鞋樣素描圖編號1()

  376.         ConnOpen()

  377.         SQL1 = "SELECT 鞋樣素描圖編號 FROM 鞋樣素描圖控制表 WHERE 鞋樣素描圖編號 LIKE N'" & 鞋樣素描控制表.鞋樣素描圖編號_tb.Text & "'"

  378.         CmdSet_For_dr()

  379.     End Sub

  380.     Friend Sub SQL_查詢最後一筆鞋樣素描圖編號()

  381.         ConnOpen()

  382.         SQL1 = "SELECT TOP (1) 鞋樣素描圖編號 FROM 鞋樣素描圖控制表 ORDER BY 鞋樣素描圖編號 DESC"

  383.         CmdSet_For_dr()

  384.     End Sub

  385.     Friend Sub SQL_新增鞋樣素描圖控制表()

  386.         ConnOpen()

  387.         SQL1 = "INSERT INTO 鞋樣素描圖控制表 (鞋樣素描圖編號, 品牌, 楦頭編號, 模具編號, 型體編號, 型體名稱, 圖片) SELECT N'" & 鞋樣素描控制表.鞋樣素描圖編號_tb.Text & "',

  388.                 N'" & 鞋樣素描控制表.品牌_cb.Text & "',N'" & 鞋樣素描控制表.楦頭編號_tb.Text & "',N'" & 鞋樣素描控制表.模具編號_tb.Text & "',N'" & 鞋樣素描控制表.型體編號_tb.Text & "',

  389.                 N'" & 鞋樣素描控制表.型體名稱_tb.Text & "', @binary_file"

  390.         CmdSet_For_dr_pic()

  391.     End Sub

  392.     Friend Sub SQL_修改鞋樣素描圖控制表()

  393.         ConnOpen()

  394.         SQL1 = "UPDATE 鞋樣素描圖控制表 SET 品牌 = N'" & 鞋樣素描控制表.品牌_cb.Text & "', 楦頭編號 = N'" & 鞋樣素描控制表.楦頭編號_tb.Text & "', 模具編號 = N'" & 鞋樣素描控制表.模具編號_tb.Text & "', 型體編號 = N'" & 鞋樣素描控制表.型體編號_tb.Text &

  395.                "', 型體名稱 = N'" & 鞋樣素描控制表.型體名稱_tb.Text & "' WHERE 鞋樣素描圖編號 LIKE N'" & 鞋樣素描控制表.鞋樣素描圖編號_tb.Text & "'"

  396.         CmdSet_For_dr()

  397.     End Sub

  398.     Friend Sub SQL_修改圖片存檔()

  399.         ConnOpen()

  400.         SQL1 = "UPDATE 鞋樣素描圖控制表 SET 圖片 = @binary_file WHERE (鞋樣素描圖編號 = '" & 鞋樣素描控制表.鞋樣素描圖編號_tb.Text & "')"

  401.         CmdSet_For_dr_pic()

  402.     End Sub

  403.     '------------------形體總表MINI_WALL--------------------

  404.     Friend Sub SQL_草圖表清單()

  405.         ConnOpen()

  406.         SQL1 = "SELECT 鞋樣素描圖控制表.模具編號, 鞋樣素描圖控制表.型體編號, 鞋樣素描圖控制表.型體名稱, METOO選擇按鈕.選擇 , 鞋樣素描圖控制表.鞋樣素描圖編號

  407.                 FROM 鞋樣素描圖控制表 LEFT OUTER JOIN METOO選擇按鈕 ON 鞋樣素描圖控制表.楦頭編號 = METOO選擇按鈕.對應

  408.                 WHERE (鞋樣素描圖控制表.品牌 LIKE '" & 形體總表MINI_WALL.品牌_cb.Text & "') AND (鞋樣素描圖控制表.楦頭編號 LIKE '" & AASS & "')"

  409.         CmdSet_For_DGV()

  410.     End Sub

  411.     Friend Sub SQL_清單2()

  412.         ConnOpen()

  413.         SQL1 = "SELECT 楦頭規格控制表.楦頭名, 楦頭圖片庫.楦頭圖片, 楦頭規格控制表.楦頭編號, MINI_WALL_明細表.製造, MINI_WALL_明細表.選擇

  414.                 FROM MINI_WALL_明細表 LEFT OUTER JOIN 楦頭規格控制表 ON MINI_WALL_明細表.楦頭編號 = 楦頭規格控制表.楦頭編號 LEFT OUTER JOIN 楦頭圖片庫 ON MINI_WALL_明細表.楦頭編號 = 楦頭圖片庫.楦頭編號

  415.                 WHERE (MINI_WALL_明細表.MW編號 LIKE N'" & 形體總表MINI_WALL.MiniWall編號_tb.Text & "')"

  416.         CmdSet_For_DGV()

  417.     End Sub

  418.     Friend Sub SQL_楦頭清單()

  419.         ConnOpen()

  420.         SQL1 = "SELECT 楦頭規格控制表.楦頭編號, METOO選擇按鈕.選擇

  421.                 FROM 鞋樣素描圖控制表 LEFT OUTER JOIN METOO選擇按鈕 ON 鞋樣素描圖控制表.楦頭編號 = METOO選擇按鈕.對應 LEFT OUTER JOIN 楦頭規格控制表 ON 鞋樣素描圖控制表.楦頭編號 = 楦頭規格控制表.楦頭編號

  422.                 WHERE (鞋樣素描圖控制表.品牌 LIKE '" & 形體總表MINI_WALL.品牌_cb.Text & "') GROUP BY 楦頭規格控制表.楦頭編號, METOO選擇按鈕.選擇"

  423.         CmdSet_For_DGV()

  424.     End Sub

  425.     Friend Sub SQL_清單3()

  426.         ConnOpen()

  427.         SQL1 = "SELECT 鞋樣素描圖控制表.楦頭編號, 鞋樣素描圖控制表.模具編號, 鞋樣素描圖控制表.型體編號, 鞋樣素描圖控制表.型體名稱, 

  428.                        鞋樣素描圖控制表.圖片, MINI_WALL_草圖明細.選擇, MINI_WALL_草圖明細.鞋樣素描圖編號

  429.                 FROM MINI_WALL_草圖明細 LEFT OUTER JOIN 鞋樣素描圖控制表 ON MINI_WALL_草圖明細.鞋樣素描圖編號 = 鞋樣素描圖控制表.鞋樣素描圖編號

  430.                 WHERE (MINI_WALL_草圖明細.MW編號 LIKE N'" & 形體總表MINI_WALL.MiniWall編號_tb.Text & "') AND (MINI_WALL_草圖明細.楦頭編號 LIKE N'" & AASS & "')"

  431.         CmdSet_For_DGV()

  432.     End Sub

  433.     Friend Sub SQL_清單1()

  434.         ConnOpen()

  435.         SQL1 = "SELECT MW編號, 季節, 品牌 FROM MINI_WALL_控制表 ORDER BY MW編號"

  436.         CmdSet_For_DGV()

  437.     End Sub

  438.     Friend Sub SQL_型體控制表()

  439.         ConnOpen()

  440.         SQL1 = "SELECT 客戶簡稱 FROM 型體控制表 GROUP BY   客戶簡稱 ORDER BY   客戶簡稱"

  441.         CmdSet_For_dr()

  442.     End Sub

  443.     Friend Sub SQL_季節清單()

  444.         ConnOpen()

  445.         SQL1 = "SELECT SEASON FROM 季節清單 ORDER BY SEASON"

  446.         CmdSet_For_dr()

  447.     End Sub

  448.     Friend Sub SQL_楦頭圖片庫()

  449.         ConnOpen()

  450.         SQL1 = "SELECT 楦頭圖片 FROM 楦頭圖片庫 WHERE 楦頭編號 LIKE N'" & AASS & "'"

  451.         CmdSet_For_dr()

  452.     End Sub

  453.     Friend Sub SQL_楦頭圖片庫1()

  454.         ConnOpen()

  455.         SQL1 = "SELECT 圖片 FROM 鞋樣素描圖控制表 WHERE 鞋樣素描圖編號 LIKE N'" & SSDD & "'"

  456.         CmdSet_For_dr()

  457.     End Sub

  458.     Friend Sub SQL_查詢MW編號()

  459.         ConnOpen()

  460.         SQL1 = "SELECT TOP (1) MW編號 FROM MINI_WALL_控制表 GROUP BY MW編號 ORDER BY MW編號 DESC"

  461.         CmdSet_For_dr()

  462.     End Sub

  463.     Friend Sub SQL_新增MINI_WALL_控制表()

  464.         ConnOpen()

  465.         SQL1 = "INSERT INTO  MINI_WALL_控制表 (MW編號, 季節, 品牌) VALUES (N'" & 形體總表MINI_WALL.MiniWall編號_tb.Text & "', N'" & 形體總表MINI_WALL.季節_cb.Text & "', N'" & 形體總表MINI_WALL.品牌_cb.Text & "')"

  466.         CmdSet_For_dr()

  467.     End Sub

  468.     Friend Sub SQL_查閱MW編號()

  469.         ConnOpen()

  470.         SQL1 = "SELECT MW編號 FROM MINI_WALL_明細表 WHERE MW編號 LIKE N'" & 形體總表MINI_WALL.MiniWall編號_tb.Text & "' AND 楦頭編號 LIKE N'" & AASS & "'"

  471.         CmdSet_For_dr()

  472.     End Sub

  473.     Friend Sub SQL_新增MINI_WALL_明細表()

  474.         ConnOpen()

  475.         SQL1 = "INSERT INTO  MINI_WALL_明細表 (MW編號, 楦頭編號) VALUES (N'" & 形體總表MINI_WALL.MiniWall編號_tb.Text & "', N'" & AASS & "')"

  476.         CmdSet_For_dr()

  477.     End Sub

  478.     Friend Sub SQL_讀取MW編號()

  479.         ConnOpen()

  480.         SQL1 = "SELECT MW編號 FROM MINI_WALL_草圖明細 

  481.                                 WHERE MW編號 LIKE N'" & 形體總表MINI_WALL.MiniWall編號_tb.Text & "' AND 楦頭編號 LIKE N'" & AASS & "' AND 鞋樣素描圖編號 LIKE N'" & PA7 & "'"

  482.         CmdSet_For_dr()

  483.     End Sub

  484.     Friend Sub SQL_新增MINI_WALL_草圖明細()

  485.         ConnOpen()

  486.         SQL1 = "INSERT INTO  MINI_WALL_草圖明細 (MW編號, 楦頭編號, 鞋樣素描圖編號) 

  487.                                     VALUES (N'" & 形體總表MINI_WALL.MiniWall編號_tb.Text & "', N'" & AASS & "', N'" & PA7 & "')"

  488.         CmdSet_For_dr()

  489.     End Sub

  490.     Friend Sub SQL_修改MINI_WALL_明細表()

  491.         ConnOpen()

  492.         SQL1 = "UPDATE MINI_WALL_明細表 SET  選擇 = N'" & PA8 & "', 製造 = N'" & PA9 & "' 

  493.                     WHERE (MW編號 LIKE N'" & 形體總表MINI_WALL.MiniWall編號_tb.Text & "' AND 楦頭編號 LIKE N'" & PA10 & "')"

  494.         CmdSet_For_dr()

  495.     End Sub

  496.     Friend Sub SQL_更改MINI_WALL_草圖明細()

  497.         ConnOpen()

  498.         SQL1 = "UPDATE  MINI_WALL_草圖明細 SET  選擇 = N'" & PA8 & "' 

  499.                     WHERE (MW編號 LIKE N'" & 形體總表MINI_WALL.MiniWall編號_tb.Text & "' AND 鞋樣素描圖編號 LIKE N'" & PA9 & "')"

  500.         CmdSet_For_dr()

  501.     End Sub

  502.     Friend Sub SQL_刪除MINI_WALL_控制表()

  503.         ConnOpen()

  504.         SQL1 = "DELETE FROM MINI_WALL_控制表 WHERE (MW編號 LIKE N'" & 形體總表MINI_WALL.MiniWall編號_tb.Text & "')"

  505.         CmdSet_For_dr()

  506.     End Sub

  507.     Friend Sub SQL_MINI_WALL_明細表()

  508.         ConnOpen()

  509.         SQL1 = "DELETE FROM MINI_WALL_明細表  WHERE (MW編號 LIKE N'" & 形體總表MINI_WALL.MiniWall編號_tb.Text & "')"

  510.         CmdSet_For_dr()

  511.     End Sub

  512.     Friend Sub SQL_MINI_WALL_草圖明細()

  513.         ConnOpen()

  514.         SQL1 = "DELETE FROM MINI_WALL_草圖明細 WHERE (MW編號 LIKE N'" & 形體總表MINI_WALL.MiniWall編號_tb.Text & "')"

  515.         CmdSet_For_dr()

  516.     End Sub

  517.     Friend Sub SQL_刪除MINI_WALL明細表()

  518.         ConnOpen()

  519.         SQL1 = "DELETE FROM MINI_WALL_明細表  WHERE (MW編號 LIKE N'" & 形體總表MINI_WALL.MiniWall編號_tb.Text & "' AND 楦頭編號 LIKE N'" & 形體總表MINI_WALL.選中要刪除的楦頭_tb.Text & "')"

  520.         CmdSet_For_dr()

  521.     End Sub

  522.     Friend Sub SQL_刪除MINI_WALL_楦頭()

  523.         ConnOpen()

  524.         SQL1 = "DELETE FROM MINI_WALL_草圖明細 WHERE (MW編號 LIKE N'" & 形體總表MINI_WALL.MiniWall編號_tb.Text & "' AND 楦頭編號 LIKE N'" & 形體總表MINI_WALL.選中要刪除的楦頭_tb.Text & "')"

  525.         CmdSet_For_dr()

  526.     End Sub

  527.     Friend Sub SQL_刪除素描資料()

  528.         ConnOpen()

  529.         SQL1 = "DELETE FROM MINI_WALL_草圖明細 WHERE (MW編號 LIKE N'" & 形體總表MINI_WALL.MiniWall編號_tb.Text & "' AND 鞋樣素描圖編號 LIKE N'" & 形體總表MINI_WALL.選中要刪除的鞋樣素描_tb.Text & "')"

  530.         CmdSet_For_dr()

  531.     End Sub

  532.     Friend Sub SQL_列印清單()

  533.         ConnOpen()

  534.         SQL1 = "SELECT 鞋樣素描圖控制表.楦頭編號, 鞋樣素描圖控制表.模具編號, 鞋樣素描圖控制表.型體編號, 鞋樣素描圖控制表.型體名稱, 

  535.                                鞋樣素描圖控制表.圖片, MINI_WALL_草圖明細.選擇, MINI_WALL_草圖明細.鞋樣素描圖編號

  536.                         FROM MINI_WALL_草圖明細 LEFT OUTER JOIN 鞋樣素描圖控制表 ON MINI_WALL_草圖明細.鞋樣素描圖編號 = 鞋樣素描圖控制表.鞋樣素描圖編號

  537.                         WHERE (MINI_WALL_草圖明細.MW編號 LIKE N'" & 形體總表MINI_WALL.MiniWall編號_tb.Text & "') AND (MINI_WALL_草圖明細.楦頭編號 LIKE N'" & PA12 & "')"

  538.         CmdSet_For_DGV()

  539.     End Sub

  540.     Friend Sub SQL_列印清單1()

  541.         ConnOpen()

  542.         SQL1 = "SELECT 鞋樣素描圖控制表.楦頭編號, 鞋樣素描圖控制表.模具編號, 鞋樣素描圖控制表.型體編號, 鞋樣素描圖控制表.型體名稱, 

  543.                                鞋樣素描圖控制表.圖片, MINI_WALL_草圖明細.選擇, MINI_WALL_草圖明細.鞋樣素描圖編號

  544.                         FROM MINI_WALL_草圖明細 LEFT OUTER JOIN 鞋樣素描圖控制表 ON MINI_WALL_草圖明細.鞋樣素描圖編號 = 鞋樣素描圖控制表.鞋樣素描圖編號

  545.                         WHERE (MINI_WALL_草圖明細.MW編號 LIKE N'" & 形體總表MINI_WALL.MiniWall編號_tb.Text & "') AND (MINI_WALL_草圖明細.楦頭編號 LIKE N'" & PA13 & "')"

  546.         CmdSet_For_DGV()

  547.     End Sub

  548.     '-----------------------------型體控制表--------------------------------------

  549.     Friend Sub SOL_清單()

  550.         ConnOpen()

  551.         If PA = "" Then

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

  553.         Else

  554.             SQL1 = "SELECT 客戶簡稱 FROM 客戶控制表 WHERE (客戶簡稱 LIKE N'%" & PA & "%') ORDER BY 客戶簡稱"

  555.         End If

  556.         CmdSet_For_DGV()

  557.     End Sub

  558.     Friend Sub SOL_清單1()

  559.         ConnOpen()

  560.         If PA = "" Then

  561.             SQL1 = "SELECT 客戶簡稱 AS 項次, 型體號碼, 型體名稱 FROM 型體控制表 WHERE (客戶簡稱 LIKE N'" & 型體控制表.客戶簡稱_tb.Text & "') ORDER BY 客戶簡稱"

  562.         Else

  563.             SQL1 = "SELECT 客戶簡稱 AS 項次, 型體號碼, 型體名稱 FROM 型體控制表 WHERE (客戶簡稱 LIKE N'" & 型體控制表.客戶簡稱_tb.Text & "') AND (型體號碼 LIKE N'%" & PA & "%' OR 型體名稱 LIKE N'%" & PA & "%') ORDER BY 型體號碼 DESC"

  564.         End If

  565.         CmdSet_For_DGV()

  566.     End Sub

  567.     Friend Sub SQL_查詢資料重複()

  568.         ConnOpen()

  569.         SQL1 = "SELECT 客戶簡稱, 型體號碼, 型體名稱 FROM 型體控制表 WHERE 客戶簡稱 LIKE N'" & 型體控制表.客戶簡稱_tb.Text & "' AND 型體號碼 LIKE N'" & 型體控制表.型體號碼_tb.Text & "' AND 型體名稱 LIKE N'" & 型體控制表.型體名稱_tb.Text & "'"

  570.         CmdSet_For_dr()

  571.     End Sub

  572.     Friend Sub SQL_新增型體控制表()

  573.         ConnOpen()

  574.         SQL1 = "INSERT INTO 型體控制表 (客戶簡稱, 型體號碼, 型體名稱) VALUES (N'" & 型體控制表.客戶簡稱_tb.Text & "', N'" & 型體控制表.型體號碼_tb.Text & "', N'" & 型體控制表.型體名稱_tb.Text & "')"

  575.         CmdSet_For_dr()

  576.     End Sub

  577.     Friend Sub SQL_更改型體控制表()

  578.         ConnOpen()

  579.         SQL1 = "UPDATE 型體控制表 SET 型體號碼 = N'" & 型體控制表.型體號碼_tb.Text & "', 型體名稱 = N'" & 型體控制表.型體名稱_tb.Text & "' " &

  580.                    "WHERE 客戶簡稱 LIKE N'" & 型體控制表.客戶簡稱_tb.Text & "' AND 型體號碼 LIKE N'" & 型體控制表.TextBox4.Text & "' AND 型體名稱 LIKE N'" & 型體控制表.TextBox5.Text & "'"

  581.         CmdSet_For_dr()

  582.     End Sub

  583.     Friend Sub SQL_刪除型體控制表()

  584.         ConnOpen()

  585.         SQL1 = "DELETE FROM 型體控制表 WHERE 客戶簡稱 LIKE N'" & 型體控制表.客戶簡稱_tb.Text & "' AND 型體號碼 LIKE N'" & 型體控制表.型體號碼_tb.Text & "' AND 型體名稱 LIKE N'" & 型體控制表.型體名稱_tb.Text & "'"

  586.         CmdSet_For_dr()

  587.     End Sub

  588.     '----------------------------部件清單控制表---------------------------------------------

  589.     Friend Sub SQL_部件清單()

  590.         ConnOpen()

  591.         SQL1 = "SELECT 部件, 貼標對應名稱,樣品單用選擇 FROM 部件清單 ORDER BY 部件"

  592.         CmdSet_For_DGV()

  593.     End Sub

  594.     Friend Sub SQL_下拉部件類別1()

  595.         ConnOpen()

  596.         SQL1 = "SELECT 部件類別 FROM 部件大項分類 ORDER BY 部件類別"

  597.         CmdSet_For_dr()

  598.     End Sub

  599.     Friend Sub SQL_下拉部件類別2()

  600.         ConnOpen()

  601.         SQL1 = "SELECT 貼標對應名稱 FROM 貼標對應名稱清單"

  602.         CmdSet_For_dr()

  603.     End Sub

  604.     Friend Sub SQL_讀取部件大項分類()

  605.         ConnOpen()

  606.         SQL1 = "SELECT 部件類別 FROM 部件大項分類 WHERE 部件類別 LIKE N'" & 部件清單控制表.部件_cb.Text & "%' ORDER BY 部件類別"

  607.         CmdSet_For_dr()

  608.     End Sub

  609.     Friend Sub SQL_查閱部件清單()

  610.         ConnOpen()

  611.         SQL1 = "SELECT 部件 FROM 部件清單 WHERE 部件 LIKE N'" & 部件清單控制表.部件_cb.Text & 部件清單控制表.部件1_cb.Text & "'"

  612.         CmdSet_For_dr()

  613.     End Sub

  614.     Friend Sub SQL_新增部件清單()

  615.         ConnOpen()

  616.         SQL1 = "INSERT INTO 部件清單 (部件, 貼標對應名稱) VALUES (N'" & 部件清單控制表.部件_cb.Text & 部件清單控制表.部件1_cb.Text & "', N'" & 部件清單控制表.貼標對應名稱_cb.Text & "')"

  617.         CmdSet_For_dr()

  618.     End Sub

  619.     Friend Sub SQL_刪除部件清單()

  620.         ConnOpen()

  621.         SQL1 = "DELETE FROM 部件清單 WHERE (部件 LIKE N'" & 部件清單控制表.部件_cb.Text & 部件清單控制表.部件1_cb.Text & "')"

  622.         CmdSet_For_dr()

  623.     End Sub

  624.     Friend Sub SQL_更改部件清單()

  625.         ConnOpen()

  626.         SQL1 = "UPDATE 部件清單 SET  樣品單用選擇 = N'" & PA5 & "' WHERE (部件 LIKE N'" & PA6 & "')"

  627.         CmdSet_For_dr()

  628.     End Sub

  629.     '--------------------------中皮結構_中底作法--------------------------------------

  630.     Friend Sub SQL_中皮清單()

  631.         ConnOpen()

  632.         SQL1 = "SELECT 底台 AS 中皮, 中皮 AS 結構, 結構 AS 作法 FROM 中皮結構 ORDER BY 底台"

  633.         CmdSet_For_DGV()

  634.     End Sub

  635.     Friend Sub SQL_中底清單()

  636.         ConnOpen()

  637.         SQL1 = "SELECT  中底, 做法 FROM 中底做法 ORDER BY 中底"

  638.         CmdSet_For_DGV()

  639.     End Sub

  640.     Friend Sub SQL_查詢中皮結構()

  641.         ConnOpen()

  642.         SQL1 = "SELECT 底台 FROM 中皮結構 WHERE 底台 LIKE N'" & 中皮結構_中底作法.中皮_tb.Text & "'"

  643.         CmdSet_For_dr()

  644.     End Sub

  645.     Friend Sub SQL_新增中皮結構()

  646.         ConnOpen()

  647.         SQL1 = "INSERT INTO 中皮結構 (底台, 中皮, 結構) VALUES (N'" & 中皮結構_中底作法.中皮_tb.Text & "', N'" & 中皮結構_中底作法.結構_tb.Text & "', N'" & 中皮結構_中底作法.作法1_tb.Text & "')"

  648.         CmdSet_For_dr()

  649.     End Sub

  650.     Friend Sub SQL_修改中皮結構()

  651.         ConnOpen()

  652.         SQL1 = "UPDATE 中皮結構 SET 中皮 = N'" & 中皮結構_中底作法.結構_tb.Text & "', 結構 = N'" & 中皮結構_中底作法.作法1_tb.Text & "' " &

  653.                    "WHERE 底台 LIKE N'" & 中皮結構_中底作法.中皮_tb.Text & "'"

  654.         CmdSet_For_dr()

  655.     End Sub

  656.     Friend Sub SQL_刪除中皮結構()

  657.         ConnOpen()

  658.         SQL1 = "DELETE FROM 中皮結構 WHERE 底台 LIKE N'" & 中皮結構_中底作法.中皮_tb.Text & "'"

  659.         CmdSet_For_dr()

  660.     End Sub

  661.     Friend Sub SQL_查詢中底()

  662.         ConnOpen()

  663.         SQL1 = "SELECT 中底 FROM 中底做法 WHERE 中底 LIKE N'" & 中皮結構_中底作法.中皮_tb.Text & "'"

  664.         CmdSet_For_dr()

  665.     End Sub

  666.     Friend Sub SQL_新增中底做法()

  667.         ConnOpen()

  668.         SQL1 = "INSERT INTO 中底做法 (中底, 做法) VALUES (N'" & 中皮結構_中底作法.中底_tb.Text & "', N'" & 中皮結構_中底作法.作法_tb.Text & "')"

  669.         CmdSet_For_dr()

  670.     End Sub

  671.     Friend Sub SQL_更改中底()

  672.         ConnOpen()

  673.         SQL1 = "UPDATE 中底做法 SET 做法 = N'" & 中皮結構_中底作法.作法_tb.Text & "' WHERE 中底 LIKE N'" & 中皮結構_中底作法.中底_tb.Text & "'"

  674.         CmdSet_For_dr()

  675.     End Sub

  676.     Friend Sub SQL_刪除中底做法()

  677.         ConnOpen()

  678.         SQL1 = "DELETE FROM 中底做法 WHERE 中底 LIKE N'" & 中皮結構_中底作法.中底_tb.Text & "'"

  679.         CmdSet_For_dr()

  680.     End Sub

  681.     Friend Sub SQL_更改模具開發控制表()

  682.         ConnOpen()

  683.         SQL1 = "UPDATE 模具開發控制表 SET CN = N'" & PA & "' WHERE 模具開發單號 LIKE N'" & PA1 & "'"

  684.         CmdSet_For_dr()

  685.     End Sub

  686.     Friend Sub SQL_最後一筆鞋樣素描圖編號()

  687.         ConnOpen()

  688.         SQL1 = "SELECT TOP (1) 鞋樣素描圖編號 FROM 鞋樣素描圖控制表 ORDER BY 鞋樣素描圖編號 DESC"

  689.         CmdSet_For_dr()

  690.     End Sub

  691. End Module