WINPROFIT-ERP-SYS
/
WINPROFIT-ERP-SYS-LEEHSIEHJUI
Наблюдаван 4
Харесван 0
Разклонения 0
Код Задачи 0 Заявки за сливане 0 Версии 0 Уики Activity
Няма описание
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.
27 Ревизии
1 Клон
ИН на ревизия: 5d7d4e5992
Клонове Маркери
${ item.name }
Create branch ${ searchTerm }
от '5d7d4e5992'
${ noResults }
WINPROFIT-ERP-SYS-LEEHSIEHJUI/SHENKANG-MES-SYS/MyModule/SQL_基本資料管理.vb

SQL_基本資料管理.vb 20KB
История Директен файл

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414415416417418419420421422423424425426427428429430431432433434435 
  1. Module SQL_基本資料管理

  2.     Friend Sub SQL_FACTORY_資料管理清單()

  3.         ConnOpen()

  4.         SQL1 = "SELECT 工廠 AS Factory_Code, 供應商資料 AS Vendor_Name, 供應商地址 AS Ship_From_Name_Ship_From_Address FROM 工廠控制表"

  5.         CmdSet_For_DGV()

  6.     End Sub

  7.     Friend Sub SQL_工廠控制表3()

  8.         ConnOpen()

  9.         SQL1 = "SELECT 工廠 FROM 工廠控制表 WHERE 工廠 LIKE '" & FACTORY_資料管理.FactoryCode_tb.Text & "'"

  10.         CmdSet_For_dr()

  11.     End Sub

  12.     Friend Sub SQL_新增工廠控制表()

  13.         ConnOpen()

  14.         SQL1 = "INSERT INTO 工廠控制表 (工廠, 供應商資料, 供應商地址) VALUES ('" & FACTORY_資料管理.FactoryCode_tb.Text & "', '" & FACTORY_資料管理.VendorName_tb.Text & "', '" & FACTORY_資料管理.備註_tb.Text & "')"

  15.         CmdSet_For_dr()

  16.     End Sub

  17.     Friend Sub SQL_修改供應商資料()

  18.         ConnOpen()

  19.         SQL1 = "UPDATE 工廠控制表 SET 供應商資料 = '" & FACTORY_資料管理.VendorName_tb.Text & "', 供應商地址 = '" & FACTORY_資料管理.備註_tb.Text & "' WHERE (工廠 = '" & FACTORY_資料管理.FactoryCode_tb.Text & "')"

  20.         CmdSet_For_dr()

  21.     End Sub

  22.     Friend Sub SQL_刪除工廠控制表()

  23.         ConnOpen()

  24.         SQL1 = "DELETE FROM 工廠控制表 WHERE (工廠 = '" & FACTORY_資料管理.FactoryCode_tb.Text & "')"

  25.         CmdSet_For_dr()

  26.     End Sub

  27.     '-----------------------------DELIVERY_ADDRESS__資料管理---------------------------------------------------

  28.     Friend Sub SQL_DELIVERYADDRESS清單()

  29.         ConnOpen()

  30.         SQL1 = "SELECT REMARK, DELIVERYADDRESS FROM DELIVERYADDRESS"

  31.         CmdSet_For_DGV()

  32.     End Sub

  33.     Friend Sub SQL_查詢REMARK()

  34.         ConnOpen()

  35.         SQL1 = "SELECT REMARK FROM DELIVERYADDRESS WHERE REMARK LIKE '" & DELIVERY_ADDRESS__資料管理.Remark_tb.Text & "'"

  36.         CmdSet_For_dr()

  37.     End Sub

  38.     Friend Sub SQL_查詢REMARK1()

  39.         ConnOpen()

  40.         SQL1 = "SELECT REMARK FROM DELIVERYADDRESS WHERE DELIVERYADDRESS LIKE '" & DELIVERY_ADDRESS__資料管理.地址_tb.Text & "'"

  41.         CmdSet_For_dr()

  42.     End Sub

  43.     Friend Sub SQL_新增DELIVERYADDRESS()

  44.         ConnOpen()

  45.         SQL1 = "INSERT INTO DELIVERYADDRESS (REMARK, DELIVERYADDRESS) VALUES ('" & DELIVERY_ADDRESS__資料管理.Remark_tb.Text & "', '" & DELIVERY_ADDRESS__資料管理.地址_tb.Text & "')"

  46.         CmdSet_For_dr()

  47.     End Sub

  48.     Friend Sub SQL_REMARK地址()

  49.         ConnOpen()

  50.         SQL1 = "SELECT REMARK FROM DELIVERYADDRESS WHERE DELIVERYADDRESS LIKE '" & DELIVERY_ADDRESS__資料管理.地址_tb.Text & "'"

  51.         CmdSet_For_dr()

  52.     End Sub

  53.     Friend Sub SQL_修改REMARK地址()

  54.         ConnOpen()

  55.         SQL1 = "UPDATE DELIVERYADDRESS SET DELIVERYADDRESS = '" & DELIVERY_ADDRESS__資料管理.地址_tb.Text & "' WHERE (REMARK = '" & DELIVERY_ADDRESS__資料管理.Remark_tb.Text & "')"

  56.         CmdSet_For_dr()

  57.     End Sub

  58.     Friend Sub SQL_刪除DELIVERYADDRESS()

  59.         ConnOpen()

  60.         SQL1 = "DELETE FROM DELIVERYADDRESS WHERE (REMARK = '" & DELIVERY_ADDRESS__資料管理.Remark_tb.Text & "')"

  61.         CmdSet_For_dr()

  62.     End Sub

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

  64.     Friend Sub SQL_客戶清單()

  65.         ConnOpen()

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

  67.         CmdSet_For_DGV()

  68.     End Sub

  69.     Friend Sub SQL_品牌清單()

  70.         ConnOpen()

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

  72.         CmdSet_For_DGV()

  73.     End Sub

  74.     Friend Sub SQL_縮寫清單()

  75.         ConnOpen()

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

  77.         CmdSet_For_DGV()

  78.     End Sub

  79.     Friend Sub SQL_帳本清單()

  80.         ConnOpen()

  81.         SQL1 = "SELECT 編號, 帳本名稱 FROM 財務帳本編號 ORDER BY 編號"

  82.         CmdSet_For_DGV()

  83.     End Sub

  84.     Friend Sub SQL_部門清單()

  85.         ConnOpen()

  86.         SQL1 = "SELECT 部門 FROM METOO部門清單"

  87.         CmdSet_For_DGV()

  88.     End Sub

  89.     Friend Sub SQL_貼標對應名稱清單()

  90.         ConnOpen()

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

  92.         CmdSet_For_DGV()

  93.     End Sub

  94.     Friend Sub SQL_部件大項分類清單()

  95.         ConnOpen()

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

  97.         CmdSet_For_DGV()

  98.     End Sub

  99.     Friend Sub SQL_METOO職稱()

  100.         ConnOpen()

  101.         SQL1 = "SELECT 職稱 FROM METOO職稱清單 ORDER BY 職稱"

  102.         CmdSet_For_DGV()

  103.     End Sub

  104.     Friend Sub SQL_請假類別清單()

  105.         ConnOpen()

  106.         SQL1 = "SELECT 請假類別 FROM METOO請假類別 ORDER BY 請假類別"

  107.         CmdSet_For_DGV()

  108.     End Sub

  109.     Friend Sub SQL__廠商類別清單()

  110.         ConnOpen()

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

  112.         CmdSet_For_DGV()

  113.     End Sub

  114.     Friend Sub SQL_年度清單()

  115.         ConnOpen()

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

  117.         CmdSet_For_DGV()

  118.     End Sub

  119.     Friend Sub SQL_模具開發用材質清單()

  120.         ConnOpen()

  121.         SQL1 = "SELECT  材質 FROM 模具開發用材質清單 ORDER BY 材質"

  122.         CmdSet_For_DGV()

  123.     End Sub

  124.     Friend Sub SQL_模具開發用結構清單()

  125.         ConnOpen()

  126.         SQL1 = "SELECT  結構 FROM 模具開發用結構清單 ORDER BY 結構"

  127.         CmdSet_For_DGV()

  128.     End Sub

  129.     Friend Sub SQL_有無重複部件大項分類()

  130.         ConnOpen()

  131.         SQL1 = "SELECT 部件類別 FROM 部件大項分類 WHERE 部件類別 LIKE N'" & 系統編碼規則_1.部件大項分類大項_tb.Text & "'"

  132.         CmdSet_For_dr()

  133.     End Sub

  134.     Friend Sub SQL_新增部件大項分類()

  135.         ConnOpen()

  136.         SQL1 = "INSERT INTO 部件大項分類 (部件類別) VALUES (N'" & 系統編碼規則_1.部件大項分類大項_tb.Text & "')"

  137.         CmdSet_For_dr()

  138.     End Sub

  139.     Friend Sub SQL_修改部件大項分類()

  140.         ConnOpen()

  141.         SQL1 = "UPDATE 部件大項分類 SET 部件類別 = N'" & PA & "' WHERE 部件類別 LIKE N'" & 系統編碼規則_1.部件大項分類大項_tb.Text & "'"

  142.         CmdSet_For_dr()

  143.     End Sub

  144.     Friend Sub SQL_刪除部件大項分類()

  145.         ConnOpen()

  146.         SQL1 = "DELETE FROM 部件大項分類 WHERE (部件類別 = N'" & 系統編碼規則_1.部件大項分類大項_tb.Text & "')"

  147.         CmdSet_For_dr()

  148.     End Sub

  149.     Friend Sub SQL_有無重複貼標對應名稱清單()

  150.         ConnOpen()

  151.         SQL1 = "SELECT 貼標對應名稱 FROM 貼標對應名稱清單 WHERE 貼標對應名稱 LIKE N'" & 系統編碼規則_1.貼標對應名稱清單_tb.Text & "'"

  152.         CmdSet_For_dr()

  153.     End Sub

  154.     Friend Sub SQL_新增貼標對應名稱清單()

  155.         ConnOpen()

  156.         SQL1 = "INSERT INTO 貼標對應名稱清單 (貼標對應名稱) VALUES (N'" & 系統編碼規則_1.貼標對應名稱清單_tb.Text & "')"

  157.         CmdSet_For_dr()

  158.     End Sub

  159.     Friend Sub SQL_修改貼標對應名稱清單()

  160.         ConnOpen()

  161.         SQL1 = "UPDATE 貼標對應名稱清單 SET 貼標對應名稱 = N'" & PA & "' WHERE 貼標對應名稱 LIKE N'" & 系統編碼規則_1.貼標對應名稱清單_tb.Text & "'"

  162.         CmdSet_For_dr()

  163.     End Sub

  164.     Friend Sub SQL_刪除貼標對應名稱清單()

  165.         ConnOpen()

  166.         SQL1 = "DELETE FROM 貼標對應名稱清單 WHERE (貼標對應名稱 = N'" & 系統編碼規則_1.貼標對應名稱清單_tb.Text & "')"

  167.         CmdSet_For_dr()

  168.     End Sub

  169.     Friend Sub SQL_有無資料重複年份清單()

  170.         ConnOpen()

  171.         SQL1 = "SELECT 年份 FROM 年份清單 WHERE 年份 LIKE '" & 系統編碼規則_1.報表及對帳單年份_tb.Text & "'"

  172.         CmdSet_For_dr()

  173.     End Sub

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

  175.         ConnOpen()

  176.         SQL1 = "INSERT INTO 年份清單 (年份) VALUES (N'" & 系統編碼規則_1.報表及對帳單年份_tb.Text & "')"

  177.         CmdSet_For_dr()

  178.     End Sub

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

  180.         ConnOpen()

  181.         SQL1 = "UPDATE 年份清單 SET 年份 = N'" & PA & "' WHERE 年份 LIKE N'" & 系統編碼規則_1.報表及對帳單年份_tb.Text & "'"

  182.         CmdSet_For_dr()

  183.     End Sub

  184.     Friend Sub SQL_有無資料重複部門()

  185.         ConnOpen()

  186.         SQL1 = "SELECT 部門 FROM METOO部門清單 WHERE 部門 LIKE '" & 系統編碼規則_1.部門清單管理_tb.Text & "'"

  187.         CmdSet_For_dr()

  188.     End Sub

  189.     Friend Sub SQL_新增METOO部門清單()

  190.         ConnOpen()

  191.         SQL1 = "INSERT INTO METOO部門清單 (部門) VALUES (N'" & 系統編碼規則_1.部門清單管理_tb.Text & "')"

  192.         CmdSet_For_dr()

  193.     End Sub

  194.     Friend Sub SQL_修改METOO部門清單()

  195.         ConnOpen()

  196.         SQL1 = "UPDATE METOO部門清單 SET 部門 = N'" & PA & "' WHERE 部門 LIKE N'" & 系統編碼規則_1.部門清單管理_tb.Text & "'"

  197.         CmdSet_For_dr()

  198.     End Sub

  199.     Friend Sub SQL_刪除METOO部門清單()

  200.         ConnOpen()

  201.         SQL1 = "DELETE FROM METOO部門清單 WHERE (部門 = N'" & 系統編碼規則_1.部門清單管理_tb.Text & "')"

  202.         CmdSet_For_dr()

  203.     End Sub

  204.     Friend Sub SQL_有無重複職稱()

  205.         ConnOpen()

  206.         SQL1 = "SELECT 職稱 FROM METOO職稱清單 WHERE 職稱 LIKE '" & 系統編碼規則_1.職稱清單管理_tb.Text & "'"

  207.         CmdSet_For_dr()

  208.     End Sub

  209.     Friend Sub SQL_新增METOO職稱清單()

  210.         ConnOpen()

  211.         SQL1 = "INSERT INTO METOO職稱清單 (職稱) VALUES (N'" & 系統編碼規則_1.職稱清單管理_tb.Text & "')"

  212.         CmdSet_For_dr()

  213.     End Sub

  214.     Friend Sub SQL_修改METOO職稱清單()

  215.         ConnOpen()

  216.         SQL1 = "UPDATE METOO職稱清單 SET 職稱 = N'" & PA & "' WHERE 職稱 LIKE N'" & 系統編碼規則_1.職稱清單管理_tb.Text & "'"

  217.         CmdSet_For_dr()

  218.     End Sub

  219.     Friend Sub SQL_有無資料重複請假類別()

  220.         ConnOpen()

  221.         SQL1 = "SELECT 請假類別 FROM METOO請假類別 WHERE 請假類別 LIKE '" & 系統編碼規則_1.請假類別管理_tb.Text & "'"

  222.         CmdSet_For_dr()

  223.     End Sub

  224.     Friend Sub SQL_新增METOO請假類別()

  225.         ConnOpen()

  226.         SQL1 = "INSERT INTO METOO請假類別 (請假類別) VALUES (N'" & 系統編碼規則_1.請假類別管理_tb.Text & "')"

  227.         CmdSet_For_dr()

  228.     End Sub

  229.     Friend Sub SQL_修改METOO請假類別()

  230.         ConnOpen()

  231.         SQL1 = "UPDATE METOO請假類別 SET 請假類別 = N'" & PA & "' WHERE 請假類別 LIKE N'" & 系統編碼規則_1.請假類別管理_tb.Text & "'"

  232.         CmdSet_For_dr()

  233.     End Sub

  234.     Friend Sub SQL_刪除METOO請假類別()

  235.         ConnOpen()

  236.         SQL1 = "DELETE FROM METOO請假類別 WHERE (請假類別 = N'" & 系統編碼規則_1.請假類別管理_tb.Text & "')"

  237.         CmdSet_For_dr()

  238.     End Sub

  239.     Friend Sub SQL_有無重複廠商類別()

  240.         ConnOpen()

  241.         SQL1 = "SELECT 廠商類別 FROM 廠商類別 WHERE 廠商類別 LIKE '" & 系統編碼規則_1.廠商類別管理類別_tb.Text & "'"

  242.         CmdSet_For_dr()

  243.     End Sub

  244.     Friend Sub SQL_新增廠商類別()

  245.         ConnOpen()

  246.         SQL1 = "INSERT INTO 廠商類別 (廠商類別) VALUES (N'" & 系統編碼規則_1.廠商類別管理類別_tb.Text & "')"

  247.         CmdSet_For_dr()

  248.     End Sub

  249.     Friend Sub SQL_修改廠商類別()

  250.         ConnOpen()

  251.         SQL1 = "UPDATE 廠商類別 SET 廠商類別 = N'" & PA & "' WHERE 廠商類別 LIKE N'" & 系統編碼規則_1.廠商類別管理類別_tb.Text & "'"

  252.         CmdSet_For_dr()

  253.     End Sub

  254.     Friend Sub SQL_刪除廠商類別()

  255.         ConnOpen()

  256.         SQL1 = "DELETE FROM 廠商類別 WHERE (廠商類別 = N'" & 系統編碼規則_1.廠商類別管理類別_tb.Text & "')"

  257.         CmdSet_For_dr()

  258.     End Sub

  259.     Friend Sub SQL_有無資料重複結構()

  260.         ConnOpen()

  261.         SQL1 = "SELECT 結構 FROM 模具開發用結構清單 WHERE 結構 LIKE '" & 系統編碼規則_1.模具開發用結構_tb.Text & "'"

  262.         CmdSet_For_dr()

  263.     End Sub

  264.     Friend Sub SQL_新增模具開發用結構清單()

  265.         ConnOpen()

  266.         SQL1 = "INSERT INTO 模具開發用結構清單 (結構) VALUES (N'" & 系統編碼規則_1.模具開發用結構_tb.Text & "')"

  267.         CmdSet_For_dr()

  268.     End Sub

  269.     Friend Sub SQL_修改模具開發用結構清單()

  270.         ConnOpen()

  271.         SQL1 = "UPDATE 模具開發用結構清單 SET 結構 = N'" & PA & "' WHERE 結構 LIKE N'" & 系統編碼規則_1.模具開發用結構_tb.Text & "'"

  272.         CmdSet_For_dr()

  273.     End Sub

  274.     Friend Sub SQL_刪除模具開發用結構清單()

  275.         ConnOpen()

  276.         SQL1 = "DELETE FROM 模具開發用結構清單 WHERE (結構 = N'" & 系統編碼規則_1.模具開發用結構_tb.Text & "')"

  277.         CmdSet_For_dr()

  278.     End Sub

  279.     Friend Sub SQL_有無資料重複材質()

  280.         ConnOpen()

  281.         SQL1 = "SELECT 材質 FROM 模具開發用材質清單 WHERE 材質 LIKE '" & 系統編碼規則_1.模具開發用材質_tb.Text & "'"

  282.         CmdSet_For_dr()

  283.     End Sub

  284.     Friend Sub SQL_新增模具開發用材質清單()

  285.         ConnOpen()

  286.         SQL1 = "INSERT INTO 模具開發用材質清單 (材質) VALUES (N'" & 系統編碼規則_1.模具開發用材質_tb.Text & "')"

  287.         CmdSet_For_dr()

  288.     End Sub

  289.     Friend Sub SQL_修改模具開發用材質清單()

  290.         ConnOpen()

  291.         SQL1 = "UPDATE 模具開發用材質清單 SET 材質 = N'" & PA & "' WHERE 材質 LIKE N'" & 系統編碼規則_1.模具開發用材質_tb.Text & "'"

  292.         CmdSet_For_dr()

  293.     End Sub

  294.     Friend Sub SQL_刪除模具開發用材質清單()

  295.         ConnOpen()

  296.         SQL1 = "DELETE FROM 模具開發用材質清單 WHERE (材質 = N'" & 系統編碼規則_1.模具開發用材質_tb.Text & "')"

  297.         CmdSet_For_dr()

  298.     End Sub

  299.     Friend Sub SQL_有無資料重複縮寫()

  300.         ConnOpen()

  301.         SQL1 = "SELECT 縮寫 FROM 楦頭縮寫管理 WHERE 縮寫 LIKE '" & 系統編碼規則_1.楦頭縮寫管理_tb.Text & "'"

  302.         CmdSet_For_dr()

  303.     End Sub

  304.     Friend Sub SQL_新增楦頭縮寫管理()

  305.         ConnOpen()

  306.         SQL1 = "INSERT INTO 楦頭縮寫管理 (縮寫) VALUES (N'" & 系統編碼規則_1.楦頭縮寫管理_tb.Text & "')"

  307.         CmdSet_For_dr()

  308.     End Sub

  309.     Friend Sub SQL_修改楦頭縮寫管理()

  310.         ConnOpen()

  311.         SQL1 = "UPDATE 楦頭縮寫管理 SET 縮寫 = N'" & PA & "' WHERE 縮寫 LIKE N'" & 系統編碼規則_1.楦頭縮寫管理_tb.Text & "'"

  312.         CmdSet_For_dr()

  313.     End Sub

  314.     Friend Sub SQL_刪除楦頭縮寫管理()

  315.         ConnOpen()

  316.         SQL1 = "DELETE FROM 楦頭縮寫管理 WHERE (縮寫 = N'" & 系統編碼規則_1.楦頭縮寫管理_tb.Text & "')"

  317.         CmdSet_For_dr()

  318.     End Sub

  319.     Friend Sub SQL_有無資料重複客戶簡稱()

  320.         ConnOpen()

  321.         SQL1 = "SELECT 客戶簡稱 FROM 客戶控制表 WHERE 客戶簡稱 LIKE '" & 系統編碼規則_1.客戶_tb.Text & "'"

  322.         CmdSet_For_dr()

  323.     End Sub

  324.     Friend Sub SQL_新增客戶控制表()

  325.         ConnOpen()

  326.         SQL1 = "INSERT INTO 客戶控制表 (客戶簡稱) VALUES (N'" & 系統編碼規則_1.客戶_tb.Text & "')"

  327.         CmdSet_For_dr()

  328.     End Sub

  329.     Friend Sub SQL_修改客戶控制表()

  330.         ConnOpen()

  331.         SQL1 = "UPDATE 客戶控制表 SET 客戶簡稱 = N'" & PA & "' WHERE 客戶簡稱 LIKE N'" & 系統編碼規則_1.客戶_tb.Text & "'"

  332.         CmdSet_For_dr()

  333.     End Sub

  334.     Friend Sub SQL_刪除客戶控制表()

  335.         ConnOpen()

  336.         SQL1 = "DELETE FROM 客戶控制表 WHERE (客戶簡稱 = N'" & 系統編碼規則_1.客戶_tb.Text & "')"

  337.         CmdSet_For_dr()

  338.     End Sub

  339.     Friend Sub SQL_有無資料重複CUST()

  340.         ConnOpen()

  341.         SQL1 = "SELECT CUST FROM MTTOOCUST清單 WHERE CUST LIKE '" & 系統編碼規則_1.品牌清單_tb.Text & "'"

  342.         CmdSet_For_dr()

  343.     End Sub

  344.     Friend Sub SQL_新增MTTOOCUST清單()

  345.         ConnOpen()

  346.         SQL1 = "INSERT INTO MTTOOCUST清單 (CUST) VALUES (N'" & 系統編碼規則_1.品牌清單_tb.Text & "')"

  347.         CmdSet_For_dr()

  348.     End Sub

  349.     Friend Sub SQL_修改MTTOOCUST清單()

  350.         ConnOpen()

  351.         SQL1 = "UPDATE MTTOOCUST清單 SET CUST = N'" & PA & "' WHERE CUST LIKE N'" & 系統編碼規則_1.品牌清單_tb.Text & "'"

  352.         CmdSet_For_dr()

  353.     End Sub

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

  355.     Friend Sub SQL_使用者清單()

  356.         ConnOpen()

  357.         SQL1 = "SELECT 資料夾名稱, 指定頁面, 備註, 指定 FROM FTP資料夾管理"

  358.         CmdSet_For_DGV()

  359.     End Sub

  360.     Friend Sub SQL_新增FTP資料夾管理()

  361.         ConnOpen()

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

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

  364.         CmdSet_For_dr()

  365.     End Sub

  366.     Friend Sub SQL_修改FTP資料夾管理()

  367.         ConnOpen()

  368.         SQL1 = "UPDATE FTP資料夾管理 SET 指定頁面 = N'" & FTP資料夾管理.指定頁面_tb.Text & "', 備註 = N'" & FTP資料夾管理.備註_tb.Text & "', 指定 = N'" & FTP資料夾管理.指定_tb.Text & "' WHERE (資料夾名稱 = N'" & FTP資料夾管理.資料夾名稱_tb.Text & "')"

  369.         CmdSet_For_dr()

  370.     End Sub

  371.     Friend Sub SQL_刪除FTP資料夾管理()

  372.         ConnOpen()

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

  374.         CmdSet_For_dr()

  375.     End Sub

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

  377.     Friend Sub SQL_查詢系統認證版本號()

  378.         ConnOpen()

  379.         SQL1 = "SELECT 系統認證版本號 FROM 版本號管理 "

  380.         CmdSet_For_dr()

  381.     End Sub

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

  383.         ConnOpen()

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

  385.         CmdSet_For_dr()

  386.     End Sub

  387.     Friend Sub SQL_修改系統認證版本號()

  388.         ConnOpen()

  389.         SQL1 = "SELECT 系統認證版本號 FROM 版本號管理 "

  390.         CmdSet_For_dr()

  391.     End Sub

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

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

  394.         ConnOpen()

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

  396.         CmdSet_For_DGV()

  397.     End Sub

  398.     Friend Sub SQL_下拉使用者權限管理表()

  399.         ConnOpen()

  400.         SQL1 = "SELECT 姓名 FROM 使用者權限管理表 ORDER BY 職稱"

  401.         CmdSet_For_dr()

  402.     End Sub

  403.     Friend Sub SQL_讀取簽名檔圖片()

  404.         ConnOpen()

  405.         SQL1 = "SELECT 簽名檔圖片 FROM 簽名檔管理 WHERE 圖片流水號 LIKE N'" & 簽名檔管理.圖檔編號_tb.Text & "'"

  406.         CmdSet_For_dr()

  407.     End Sub

  408.     Friend Sub SQL_新增簽名檔管理()

  409.         ConnOpen()

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

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

  412.         CmdSet_For_dr()

  413.     End Sub

  414.     Friend Sub SQL_最後一筆圖片流水號()

  415.         ConnOpen()

  416.         SQL1 = "SELECT TOP (1) 圖片流水號 FROM 簽名檔管理 ORDER BY 圖片流水號 DESC"

  417.         CmdSet_For_dr()

  418.     End Sub

  419.     Friend Sub SQL_刪除簽名檔管理()

  420.         ConnOpen()

  421.         SQL1 = "DELETE FROM 簽名檔管理 WHERE (圖片流水號 = N'" & 簽名檔管理.圖檔編號_tb.Text & "')"

  422.         CmdSet_For_dr()

  423.     End Sub

  424.     '-----------------------------個人帳號管理-------------------------------------

  425.     Friend Sub SQL_使用者資料()

  426.         ConnOpen()

  427.         SQL1 = "SELECT 姓名, 帳號, 密碼 FROM 使用者權限管理表 WHERE (姓名 = '" & gUserName & "')"

  428.         CmdSet_For_dr()

  429.     End Sub

  430.     Friend Sub SQL_修改使用者權限管理表1()

  431.         ConnOpen()

  432.         SQL1 = "UPDATE 使用者權限管理表 SET 帳號 = '" & 個人帳號管理.帳號_tb.Text & "', 密碼 = '" & 個人帳號管理.密碼_tb.Text & "' WHERE (姓名 = '" & 個人帳號管理.姓名_tb.Text & "')"

  433.         CmdSet_For_dr()

  434.     End Sub

  435. End Module