Module SQL_基本資料管理
    Friend Sub SQL_FACTORY_資料管理清單()
        ConnOpen()
        SQL1 = "SELECT 工廠 AS Factory_Code, 供應商資料 AS Vendor_Name, 供應商地址 AS Ship_From_Name_Ship_From_Address FROM 工廠控制表"
        CmdSet_For_DGV()
    End Sub
    Friend Sub SQL_工廠控制表3()
        ConnOpen()
        SQL1 = "SELECT 工廠 FROM 工廠控制表 WHERE 工廠 LIKE '" & FACTORY_資料管理.FactoryCode_tb.Text & "'"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_新增工廠控制表()
        ConnOpen()
        SQL1 = "INSERT INTO 工廠控制表 (工廠, 供應商資料, 供應商地址) VALUES ('" & FACTORY_資料管理.FactoryCode_tb.Text & "', '" & FACTORY_資料管理.VendorName_tb.Text & "', '" & FACTORY_資料管理.備註_tb.Text & "')"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_修改供應商資料()
        ConnOpen()
        SQL1 = "UPDATE 工廠控制表 SET 供應商資料 = '" & FACTORY_資料管理.VendorName_tb.Text & "', 供應商地址 = '" & FACTORY_資料管理.備註_tb.Text & "' WHERE (工廠 = '" & FACTORY_資料管理.FactoryCode_tb.Text & "')"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_刪除工廠控制表()
        ConnOpen()
        SQL1 = "DELETE FROM 工廠控制表 WHERE (工廠 = '" & FACTORY_資料管理.FactoryCode_tb.Text & "')"
        CmdSet_For_dr()
    End Sub
    '-----------------------------DELIVERY_ADDRESS__資料管理---------------------------------------------------
    Friend Sub SQL_DELIVERYADDRESS清單()
        ConnOpen()
        SQL1 = "SELECT REMARK, DELIVERYADDRESS FROM DELIVERYADDRESS"
        CmdSet_For_DGV()
    End Sub
    Friend Sub SQL_查詢REMARK()
        ConnOpen()
        SQL1 = "SELECT REMARK FROM DELIVERYADDRESS WHERE REMARK LIKE '" & DELIVERY_ADDRESS__資料管理.Remark_tb.Text & "'"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_查詢REMARK1()
        ConnOpen()
        SQL1 = "SELECT REMARK FROM DELIVERYADDRESS WHERE DELIVERYADDRESS LIKE '" & DELIVERY_ADDRESS__資料管理.地址_tb.Text & "'"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_新增DELIVERYADDRESS()
        ConnOpen()
        SQL1 = "INSERT INTO DELIVERYADDRESS (REMARK, DELIVERYADDRESS) VALUES ('" & DELIVERY_ADDRESS__資料管理.Remark_tb.Text & "', '" & DELIVERY_ADDRESS__資料管理.地址_tb.Text & "')"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_REMARK地址()
        ConnOpen()
        SQL1 = "SELECT REMARK FROM DELIVERYADDRESS WHERE DELIVERYADDRESS LIKE '" & DELIVERY_ADDRESS__資料管理.地址_tb.Text & "'"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_修改REMARK地址()
        ConnOpen()
        SQL1 = "UPDATE DELIVERYADDRESS SET DELIVERYADDRESS = '" & DELIVERY_ADDRESS__資料管理.地址_tb.Text & "' WHERE (REMARK = '" & DELIVERY_ADDRESS__資料管理.Remark_tb.Text & "')"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_刪除DELIVERYADDRESS()
        ConnOpen()
        SQL1 = "DELETE FROM DELIVERYADDRESS WHERE (REMARK = '" & DELIVERY_ADDRESS__資料管理.Remark_tb.Text & "')"
        CmdSet_For_dr()
    End Sub
    '-----------------------------------------系統編碼規則_1---------------------------------------------
    Friend Sub SQL_客戶清單()
        ConnOpen()
        SQL1 = "SELECT 客戶簡稱 FROM 客戶控制表 ORDER BY 客戶簡稱"
        CmdSet_For_DGV()
    End Sub
    Friend Sub SQL_品牌清單()
        ConnOpen()
        SQL1 = "SELECT CUST FROM MTTOOCUST清單 ORDER BY CUST "
        CmdSet_For_DGV()
    End Sub
    Friend Sub SQL_縮寫清單()
        ConnOpen()
        SQL1 = "SELECT 縮寫 FROM 楦頭縮寫管理"
        CmdSet_For_DGV()
    End Sub
    Friend Sub SQL_帳本清單()
        ConnOpen()
        SQL1 = "SELECT 編號, 帳本名稱 FROM 財務帳本編號 ORDER BY 編號"
        CmdSet_For_DGV()
    End Sub
    Friend Sub SQL_部門清單()
        ConnOpen()
        SQL1 = "SELECT 部門 FROM METOO部門清單"
        CmdSet_For_DGV()
    End Sub
    Friend Sub SQL_貼標對應名稱清單()
        ConnOpen()
        SQL1 = "SELECT 貼標對應名稱 FROM 貼標對應名稱清單"
        CmdSet_For_DGV()
    End Sub
    Friend Sub SQL_部件大項分類清單()
        ConnOpen()
        SQL1 = "SELECT 部件類別 FROM 部件大項分類 ORDER BY   部件類別"
        CmdSet_For_DGV()
    End Sub
    Friend Sub SQL_METOO職稱()
        ConnOpen()
        SQL1 = "SELECT 職稱 FROM METOO職稱清單 ORDER BY 職稱"
        CmdSet_For_DGV()
    End Sub
    Friend Sub SQL_請假類別清單()
        ConnOpen()
        SQL1 = "SELECT 請假類別 FROM METOO請假類別 ORDER BY 請假類別"
        CmdSet_For_DGV()
    End Sub
    Friend Sub SQL__廠商類別清單()
        ConnOpen()
        SQL1 = "SELECT 廠商類別 FROM 廠商類別 ORDER BY 廠商類別"
        CmdSet_For_DGV()
    End Sub
    Friend Sub SQL_年度清單()
        ConnOpen()
        SQL1 = "SELECT  年份 FROM 年份清單 ORDER BY 年份 DESC"
        CmdSet_For_DGV()
    End Sub
    Friend Sub SQL_模具開發用材質清單()
        ConnOpen()
        SQL1 = "SELECT  材質 FROM 模具開發用材質清單 ORDER BY 材質"
        CmdSet_For_DGV()
    End Sub
    Friend Sub SQL_模具開發用結構清單()
        ConnOpen()
        SQL1 = "SELECT  結構 FROM 模具開發用結構清單 ORDER BY 結構"
        CmdSet_For_DGV()
    End Sub
    Friend Sub SQL_有無重複部件大項分類()
        ConnOpen()
        SQL1 = "SELECT 部件類別 FROM 部件大項分類 WHERE 部件類別 LIKE N'" & 系統編碼規則_1.部件大項分類大項_tb.Text & "'"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_新增部件大項分類()
        ConnOpen()
        SQL1 = "INSERT INTO 部件大項分類 (部件類別) VALUES (N'" & 系統編碼規則_1.部件大項分類大項_tb.Text & "')"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_修改部件大項分類()
        ConnOpen()
        SQL1 = "UPDATE 部件大項分類 SET 部件類別 = N'" & PA & "' WHERE 部件類別 LIKE N'" & 系統編碼規則_1.部件大項分類大項_tb.Text & "'"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_刪除部件大項分類()
        ConnOpen()
        SQL1 = "DELETE FROM 部件大項分類 WHERE (部件類別 = N'" & 系統編碼規則_1.部件大項分類大項_tb.Text & "')"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_有無重複貼標對應名稱清單()
        ConnOpen()
        SQL1 = "SELECT 貼標對應名稱 FROM 貼標對應名稱清單 WHERE 貼標對應名稱 LIKE N'" & 系統編碼規則_1.貼標對應名稱清單_tb.Text & "'"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_新增貼標對應名稱清單()
        ConnOpen()
        SQL1 = "INSERT INTO 貼標對應名稱清單 (貼標對應名稱) VALUES (N'" & 系統編碼規則_1.貼標對應名稱清單_tb.Text & "')"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_修改貼標對應名稱清單()
        ConnOpen()
        SQL1 = "UPDATE 貼標對應名稱清單 SET 貼標對應名稱 = N'" & PA & "' WHERE 貼標對應名稱 LIKE N'" & 系統編碼規則_1.貼標對應名稱清單_tb.Text & "'"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_刪除貼標對應名稱清單()
        ConnOpen()
        SQL1 = "DELETE FROM 貼標對應名稱清單 WHERE (貼標對應名稱 = N'" & 系統編碼規則_1.貼標對應名稱清單_tb.Text & "')"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_有無資料重複年份清單()
        ConnOpen()
        SQL1 = "SELECT 年份 FROM 年份清單 WHERE 年份 LIKE '" & 系統編碼規則_1.報表及對帳單年份_tb.Text & "'"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_新增年份清單()
        ConnOpen()
        SQL1 = "INSERT INTO 年份清單 (年份) VALUES (N'" & 系統編碼規則_1.報表及對帳單年份_tb.Text & "')"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_修改年份清單()
        ConnOpen()
        SQL1 = "UPDATE 年份清單 SET 年份 = N'" & PA & "' WHERE 年份 LIKE N'" & 系統編碼規則_1.報表及對帳單年份_tb.Text & "'"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_有無資料重複部門()
        ConnOpen()
        SQL1 = "SELECT 部門 FROM METOO部門清單 WHERE 部門 LIKE '" & 系統編碼規則_1.部門清單管理_tb.Text & "'"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_新增METOO部門清單()
        ConnOpen()
        SQL1 = "INSERT INTO METOO部門清單 (部門) VALUES (N'" & 系統編碼規則_1.部門清單管理_tb.Text & "')"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_修改METOO部門清單()
        ConnOpen()
        SQL1 = "UPDATE METOO部門清單 SET 部門 = N'" & PA & "' WHERE 部門 LIKE N'" & 系統編碼規則_1.部門清單管理_tb.Text & "'"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_刪除METOO部門清單()
        ConnOpen()
        SQL1 = "DELETE FROM METOO部門清單 WHERE (部門 = N'" & 系統編碼規則_1.部門清單管理_tb.Text & "')"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_有無重複職稱()
        ConnOpen()
        SQL1 = "SELECT 職稱 FROM METOO職稱清單 WHERE 職稱 LIKE '" & 系統編碼規則_1.職稱清單管理_tb.Text & "'"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_新增METOO職稱清單()
        ConnOpen()
        SQL1 = "INSERT INTO METOO職稱清單 (職稱) VALUES (N'" & 系統編碼規則_1.職稱清單管理_tb.Text & "')"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_修改METOO職稱清單()
        ConnOpen()
        SQL1 = "UPDATE METOO職稱清單 SET 職稱 = N'" & PA & "' WHERE 職稱 LIKE N'" & 系統編碼規則_1.職稱清單管理_tb.Text & "'"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_有無資料重複請假類別()
        ConnOpen()
        SQL1 = "SELECT 請假類別 FROM METOO請假類別 WHERE 請假類別 LIKE '" & 系統編碼規則_1.請假類別管理_tb.Text & "'"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_新增METOO請假類別()
        ConnOpen()
        SQL1 = "INSERT INTO METOO請假類別 (請假類別) VALUES (N'" & 系統編碼規則_1.請假類別管理_tb.Text & "')"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_修改METOO請假類別()
        ConnOpen()
        SQL1 = "UPDATE METOO請假類別 SET 請假類別 = N'" & PA & "' WHERE 請假類別 LIKE N'" & 系統編碼規則_1.請假類別管理_tb.Text & "'"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_刪除METOO請假類別()
        ConnOpen()
        SQL1 = "DELETE FROM METOO請假類別 WHERE (請假類別 = N'" & 系統編碼規則_1.請假類別管理_tb.Text & "')"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_有無重複廠商類別()
        ConnOpen()
        SQL1 = "SELECT 廠商類別 FROM 廠商類別 WHERE 廠商類別 LIKE '" & 系統編碼規則_1.廠商類別管理類別_tb.Text & "'"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_新增廠商類別()
        ConnOpen()
        SQL1 = "INSERT INTO 廠商類別 (廠商類別) VALUES (N'" & 系統編碼規則_1.廠商類別管理類別_tb.Text & "')"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_修改廠商類別()
        ConnOpen()
        SQL1 = "UPDATE 廠商類別 SET 廠商類別 = N'" & PA & "' WHERE 廠商類別 LIKE N'" & 系統編碼規則_1.廠商類別管理類別_tb.Text & "'"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_刪除廠商類別()
        ConnOpen()
        SQL1 = "DELETE FROM 廠商類別 WHERE (廠商類別 = N'" & 系統編碼規則_1.廠商類別管理類別_tb.Text & "')"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_有無資料重複結構()
        ConnOpen()
        SQL1 = "SELECT 結構 FROM 模具開發用結構清單 WHERE 結構 LIKE '" & 系統編碼規則_1.模具開發用結構_tb.Text & "'"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_新增模具開發用結構清單()
        ConnOpen()
        SQL1 = "INSERT INTO 模具開發用結構清單 (結構) VALUES (N'" & 系統編碼規則_1.模具開發用結構_tb.Text & "')"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_修改模具開發用結構清單()
        ConnOpen()
        SQL1 = "UPDATE 模具開發用結構清單 SET 結構 = N'" & PA & "' WHERE 結構 LIKE N'" & 系統編碼規則_1.模具開發用結構_tb.Text & "'"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_刪除模具開發用結構清單()
        ConnOpen()
        SQL1 = "DELETE FROM 模具開發用結構清單 WHERE (結構 = N'" & 系統編碼規則_1.模具開發用結構_tb.Text & "')"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_有無資料重複材質()
        ConnOpen()
        SQL1 = "SELECT 材質 FROM 模具開發用材質清單 WHERE 材質 LIKE '" & 系統編碼規則_1.模具開發用材質_tb.Text & "'"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_新增模具開發用材質清單()
        ConnOpen()
        SQL1 = "INSERT INTO 模具開發用材質清單 (材質) VALUES (N'" & 系統編碼規則_1.模具開發用材質_tb.Text & "')"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_修改模具開發用材質清單()
        ConnOpen()
        SQL1 = "UPDATE 模具開發用材質清單 SET 材質 = N'" & PA & "' WHERE 材質 LIKE N'" & 系統編碼規則_1.模具開發用材質_tb.Text & "'"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_刪除模具開發用材質清單()
        ConnOpen()
        SQL1 = "DELETE FROM 模具開發用材質清單 WHERE (材質 = N'" & 系統編碼規則_1.模具開發用材質_tb.Text & "')"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_有無資料重複縮寫()
        ConnOpen()
        SQL1 = "SELECT 縮寫 FROM 楦頭縮寫管理 WHERE 縮寫 LIKE '" & 系統編碼規則_1.楦頭縮寫管理_tb.Text & "'"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_新增楦頭縮寫管理()
        ConnOpen()
        SQL1 = "INSERT INTO 楦頭縮寫管理 (縮寫) VALUES (N'" & 系統編碼規則_1.楦頭縮寫管理_tb.Text & "')"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_修改楦頭縮寫管理()
        ConnOpen()
        SQL1 = "UPDATE 楦頭縮寫管理 SET 縮寫 = N'" & PA & "' WHERE 縮寫 LIKE N'" & 系統編碼規則_1.楦頭縮寫管理_tb.Text & "'"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_刪除楦頭縮寫管理()
        ConnOpen()
        SQL1 = "DELETE FROM 楦頭縮寫管理 WHERE (縮寫 = N'" & 系統編碼規則_1.楦頭縮寫管理_tb.Text & "')"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_有無資料重複客戶簡稱()
        ConnOpen()
        SQL1 = "SELECT 客戶簡稱 FROM 客戶控制表 WHERE 客戶簡稱 LIKE '" & 系統編碼規則_1.客戶_tb.Text & "'"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_新增客戶控制表()
        ConnOpen()
        SQL1 = "INSERT INTO 客戶控制表 (客戶簡稱) VALUES (N'" & 系統編碼規則_1.客戶_tb.Text & "')"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_修改客戶控制表()
        ConnOpen()
        SQL1 = "UPDATE 客戶控制表 SET 客戶簡稱 = N'" & PA & "' WHERE 客戶簡稱 LIKE N'" & 系統編碼規則_1.客戶_tb.Text & "'"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_刪除客戶控制表()
        ConnOpen()
        SQL1 = "DELETE FROM 客戶控制表 WHERE (客戶簡稱 = N'" & 系統編碼規則_1.客戶_tb.Text & "')"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_有無資料重複CUST()
        ConnOpen()
        SQL1 = "SELECT CUST FROM MTTOOCUST清單 WHERE CUST LIKE '" & 系統編碼規則_1.品牌清單_tb.Text & "'"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_新增MTTOOCUST清單()
        ConnOpen()
        SQL1 = "INSERT INTO MTTOOCUST清單 (CUST) VALUES (N'" & 系統編碼規則_1.品牌清單_tb.Text & "')"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_修改MTTOOCUST清單()
        ConnOpen()
        SQL1 = "UPDATE MTTOOCUST清單 SET CUST = N'" & PA & "' WHERE CUST LIKE N'" & 系統編碼規則_1.品牌清單_tb.Text & "'"
        CmdSet_For_dr()
    End Sub
    '--------------------------------------系統執行檔版本管理----------------------------------------------
    Friend Sub SQL_查詢系統認證版本號()
        ConnOpen()
        SQL1 = "SELECT 系統認證版本號 FROM 版本號管理 "
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_修改版本號管理1()
        ConnOpen()
        SQL1 = "UPDATE 版本號管理 SET 系統認證版本號 = N'" & 系統執行檔版本管理NEW.版本號_tb.Text & "' WHERE (系統認證版本號 = N'" & Strings.Right(系統執行檔版本管理NEW.資料庫版本號_lb.Text, 10) & "')"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_修改系統認證版本號()
        ConnOpen()
        SQL1 = "SELECT 系統認證版本號 FROM 版本號管理 "
        CmdSet_For_dr()
    End Sub
    '--------------------------------簽名檔管理-----------------------------------------------
    Friend Sub SQL_簽名檔管理清單()
        ConnOpen()
        SQL1 = "SELECT 圖片流水號 AS 圖檔編碼, 簽名檔人名 FROM 簽名檔管理 ORDER BY 圖片流水號"
        CmdSet_For_DGV()
    End Sub
    Friend Sub SQL_下拉使用者權限管理表()
        ConnOpen()
        SQL1 = "SELECT 姓名 FROM 使用者權限管理表 ORDER BY 職稱"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_讀取簽名檔圖片()
        ConnOpen()
        SQL1 = "SELECT 簽名檔圖片 FROM 簽名檔管理 WHERE 圖片流水號 LIKE N'" & 簽名檔管理.圖檔編號_tb.Text & "'"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_新增簽名檔管理()
        ConnOpen()
        SQL1 = "INSERT INTO 簽名檔管理 (圖片流水號, 簽名檔人名, 簽名檔圖片) SELECT '" & 簽名檔管理.圖檔編號_tb.Text & "', '" & 簽名檔管理.簽名檔持有人_cb.Text & "', @binary_file"
        CmdSet_For_dr_pic()
    End Sub
    Friend Sub SQL_最後一筆圖片流水號()
        ConnOpen()
        SQL1 = "SELECT TOP (1) 圖片流水號 FROM 簽名檔管理 ORDER BY 圖片流水號 DESC"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_刪除簽名檔管理()
        ConnOpen()
        SQL1 = "DELETE FROM 簽名檔管理 WHERE (圖片流水號 = N'" & 簽名檔管理.圖檔編號_tb.Text & "')"
        CmdSet_For_dr()
    End Sub
    '-----------------------------個人帳號管理-------------------------------------
    Friend Sub SQL_使用者資料()
        ConnOpen()
        SQL1 = "SELECT 姓名, 帳號, 密碼 FROM 使用者權限管理表 WHERE (姓名 = '" & gUserName & "')"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_修改使用者權限管理表1()
        ConnOpen()
        SQL1 = "UPDATE 使用者權限管理表 SET 帳號 = '" & 個人帳號管理.帳號_tb.Text & "', 密碼 = '" & 個人帳號管理.密碼_tb.Text & "' WHERE (姓名 = '" & 個人帳號管理.姓名_tb.Text & "')"
        CmdSet_For_dr()
    End Sub
End Module