HX-PGS-ERP-SYS
/
HX-PGS-ERP-SYS-SIU
Observar 4
Favorito 0
Fork 0
Código Issues 0 Pull requests 0 Versões 0 Wiki Atividade
Nenhuma descrição
Você não pode selecionar mais de 25 tópicos Os tópicos devem começar com uma letra ou um número, podem incluir traços ('-') e podem ter até 35 caracteres.
1 Commit
1 Branch
Tag: def2fb1fb8
Branches Tags
${ item.name }
Criar branch ${ searchTerm }
de def2fb1fb8
${ noResults }
HX-PGS-ERP-SYS-SIU/0、MyModule/主資料庫/SQL_登入與主程式.vb

SQL_登入與主程式.vb 26KB
Histórico Original

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321 
  1. Module SQL_登入與主程式

  2.     '---------------------LoginForm1-----------------------------------------------------------------------------------------------------------------

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

  4.         ConnOpen() : SQL1 = "SELECT 系統認證版本號, 小更新1, 小更新2, 小更新3, 小更新4, 小更新5, 中更新1, 中更新2, 中更新3, 中更新4, 中更新5 FROM 版本號管理 " : CmdSet_For_dr()

  5.     End Sub

  6.     Friend Sub SQL_FTP伺服器登入位置()

  7.         ConnOpen() : SQL1 = "SELECT  FTP地址, FTP帳號, FTP密碼, FTP物理位置 FROM FTP資料庫管理 WHERE 地區 LIKE N'" & LoginForm1.伺服器區域_cb.Text & "'" : CmdSet_For_dr()

  8.     End Sub

  9.     Friend Sub SQL_使用者權限宣告()

  10.         ConnOpen() : SQL1 = "SELECT " & 登入權限 & " FROM 使用者權限管理表 WHERE (帳號 = '" & LoginForm1.帳號_rtb.Text & "')" : CmdSet_For_dr()

  11.     End Sub

  12.     Friend Sub SQL_使用者級別宣告()

  13.         ConnOpen() : SQL1 = "SELECT 級別 FROM 使用者權限管理表 WHERE (帳號 = '" & LoginForm1.帳號_rtb.Text & "')" : CmdSet_For_dr()

  14.     End Sub

  15.     Friend Sub SQL_刷卡登入()

  16.         ConnOpen() : SQL1 = "SELECT 帳號, 密碼 FROM 使用者權限管理表 WHERE (ID卡號 = '" & LoginForm1.帳號_rtb.Text & "')" : CmdSet_For_dr()

  17.     End Sub

  18.     Friend Sub SQL_電腦綁定()

  19.         ConnOpen()

  20.         SQL1 = "SELECT MAC碼 FROM 系統綁定電腦資訊 WHERE 硬碟ID LIKE N'" & PA2 & "' AND 硬碟序列 LIKE N'" & PA3 & "' AND 磁盘型態 LIKE N'" & PA4 & "'"

  21.         CmdSet_For_dr()

  22.     End Sub

  23.     '---------------------HX_PGS_ERP_SYS-----------------------------------------------------------------------------------------------------------------

  24.     Friend Sub SQL_帳號讀取()

  25.         ConnOpen() : SQL1 = "SELECT 帳號, 姓名 FROM 使用者權限管理表 WHERE 部門 NOT LIKE '9%' ORDER BY 姓名" : CmdSet_For_dr()

  26.     End Sub

  27.     Friend Sub SQL_捷徑紀錄_讀取()

  28.         ConnOpen_管理SQL() : SQL1 = "SELECT 介面 FROM  捷徑紀錄 WHERE 姓名 LIKE N'" & gUserName & "'" : CmdSet_For_DGV()

  29.     End Sub

  30.     Friend Sub SQL_捷徑紀錄_新增()

  31.         ConnOpen_管理SQL() : SQL1 = "INSERT INTO 捷徑紀錄 (姓名, 介面)  VALUES " & SQL2 : CmdSet_For_dr()

  32.     End Sub

  33.     Friend Sub SQL_捷徑紀錄_刪除()

  34.         ConnOpen_管理SQL() : SQL1 = "DELETE  捷徑紀錄 WHERE 姓名 LIKE N'" & gUserName & "'" : CmdSet_For_dr()

  35.     End Sub

  36.     '---------------------HX_PGS_ERP_SYS_登入通知---------------------------------------------------------------------------------------------------------

  37.     Friend Sub SQL_工作狀態匯總表_讀取()

  38.         ConnOpen_管理SQL() : SQL1 = "SELECT  表, 數量  FROM  工作狀態匯總表" : CmdSet_For_DGV()

  39.     End Sub

  40.     Friend Sub SQL_請購單申請未核准單數()

  41.         ConnOpen()

  42.         SQL1 = "SELECT      請購單控制表.請購單號 AS [NO.], 請購單控制表.需求日期 AS [需求 / Need], 請購單控制表.合約號, 

  43.                             合約控制表.工程名稱_中, 合約控制表.工程名稱_英

  44.                 FROM        請購單控制表 INNER JOIN 使用者權限管理表 ON 請購單控制表.申請人 = 使用者權限管理表.姓名 INNER JOIN

  45.                            (SELECT  姓名, 帳號, 職稱, 時效, 授權  FROM  系統跨部門權限表  WHERE  (姓名 LIKE N'李協叡') AND (授權 = 1)) AS QQQ ON 

  46.                             使用者權限管理表.職稱 = QQQ.職稱 INNER JOIN 合約控制表 ON 請購單控制表.合約號 = 合約控制表.合約編號

  47.                 WHERE      (請購單控制表.核准人 LIKE N'') AND 使用者權限管理表.CC63 = 0

  48.                 ORDER BY    [NO.] DESC"

  49.         CmdSet_For_DGV()

  50.     End Sub

  51.     Friend Sub SQL_採購單單數()

  52.         ConnOpen()

  53.         SQL1 = "SELECT      請購單明細表.請購單號 AS [NO.], 請購單控制表.核准日期 AS [核准 / Approved], 請購單控制表.合約號, 

  54.                             合約控制表.工程名稱_中, 合約控制表.工程名稱_英

  55.                 FROM        合約控制表 INNER JOIN 請購單控制表 ON 合約控制表.合約編號 = 請購單控制表.合約號 RIGHT OUTER JOIN

  56.                             請購單明細表 LEFT OUTER JOIN 採購單明細表 ON 請購單明細表.項次 = 採購單明細表.項次 AND 

  57.                             請購單明細表.請購單號 = 採購單明細表.請購單號 LEFT OUTER JOIN 物料圖庫 ON 請購單明細表.群組原則 = 物料圖庫.料號原則 ON 

  58.                             請購單控制表.請購單號 = 請購單明細表.請購單號 LEFT OUTER JOIN

  59.                             物料編碼庫 ON 請購單明細表.群組原則 = 物料編碼庫.料號原則 LEFT OUTER JOIN

  60.                             倉儲分區控制表 ON 請購單明細表.用途 = 倉儲分區控制表.倉名編號 LEFT OUTER JOIN

  61.                             物料規格表 ON 請購單明細表.料號 = 物料規格表.料號 LEFT OUTER JOIN

  62.                             物料資訊控制表 ON 請購單明細表.群組原則 = 物料資訊控制表.料號原則

  63.                 WHERE      (請購單控制表.核准人 NOT LIKE N'') AND (請購單控制表.核准人 NOT LIKE N'作廢%') AND (請購單明細表.已採購 IS NULL OR

  64.                             請購單明細表.已採購 = 0) AND (物料資訊控制表.規格庫編號 IS NOT NULL)

  65.                 GROUP BY    請購單明細表.請購單號, 請購單控制表.核准日期, 請購單控制表.合約號, 合約控制表.工程名稱_中, 合約控制表.工程名稱_英

  66.                 ORDER BY    [NO.]"

  67.         CmdSet_For_DGV()

  68.     End Sub

  69.     Friend Sub SQL_採購核准11()

  70.         ConnOpen()

  71.         SQL1 = "SELECT      採購單控制表.採購單號 AS [NO.], 採購單控制表.需求日期 AS [需求 / Need], 供應商資料表.公司名

  72.                 FROM        採購單控制表 INNER JOIN

  73.                             供應商資料表 ON 採購單控制表.供應商編號 = 供應商資料表.供應商編碼

  74.                 WHERE      (採購單控制表.核准 LIKE N'') AND (採購單控制表.供應商編號 NOT LIKE N'') AND (採購單控制表.一級核准 LIKE N'' OR

  75.                             採購單控制表.一級核准 IS NULL)

  76.                 ORDER BY    [NO.] DESC"

  77.         CmdSet_For_DGV()

  78.     End Sub

  79.     Friend Sub SQL_採購核准12()

  80.         ConnOpen()

  81.         SQL1 = "SELECT      採購單控制表.採購單號 AS [NO.], 採購單控制表.需求日期 AS [需求 / Need], 供應商資料表.公司名

  82.                 FROM        採購單控制表 INNER JOIN

  83.                             供應商資料表 ON 採購單控制表.供應商編號 = 供應商資料表.供應商編碼

  84.                 WHERE      (採購單控制表.核准 LIKE N'') AND (採購單控制表.一級核准 NOT LIKE N'')

  85.                 ORDER BY    [NO.] DESC"

  86.         CmdSet_For_DGV()

  87.     End Sub

  88.     Friend Sub SQL_派車_聯絡函()

  89.         SQL2 = " WHERE (主題  LIKE N'車輛使用申請%') AND (聯絡事項 NOT LIKE N'') AND (審核人 NOT LIKE N'') AND (審核人 NOT LIKE N'作廢%') AND 

  90.                        (申請核准 NOT LIKE '作廢%') AND (接收核准 LIKE N'')"

  91.         ConnOpen_管理SQL() : SQL1 = "SELECT 聯絡函單號 AS [NO.], 申請人 AS [申請/Application], 聯絡事項  FROM 部門聯絡函 " & SQL2 & " ORDER BY 聯絡函單號 DESC" : CmdSet_For_DGV()

  92.     End Sub

  93.     Friend Sub SQL_請假_聯絡函()

  94.         SQL2 = " WHERE (主題  LIKE N'請假申請%') AND (聯絡事項 NOT LIKE N'') AND (審核人 NOT LIKE N'') AND (審核人 NOT LIKE N'作廢%') AND 

  95.                        (申請核准 NOT LIKE '作廢%') AND (接收核准 LIKE N'') "

  96.         ConnOpen_管理SQL() : SQL1 = "SELECT 聯絡函單號 AS [NO.], 申請人 AS [申請/Application], 聯絡事項  FROM 部門聯絡函 " & SQL2 & " ORDER BY 聯絡函單號 DESC" : CmdSet_For_DGV()

  97.     End Sub

  98.     Friend Sub SQL_未審_聯絡函()

  99.         If CInt(登入人級別) <= 3 Then

  100.             SQL2 = " WHERE (主題 NOT LIKE N'') AND (聯絡事項 NOT LIKE N'') AND (審核人 LIKE N'') AND (審核人 NOT LIKE N'作廢%') "

  101.         Else

  102.             SQL2 = " WHERE (主題 NOT LIKE N'') AND (聯絡事項 NOT LIKE N'') AND (審核人 LIKE N'') AND (審核人 NOT LIKE N'作廢%') AND (申請部門 LIKE N'" & 登入人部門 & "') "

  103.         End If

  104.         ConnOpen_管理SQL() : SQL1 = "SELECT 聯絡函單號 AS [NO.], 申請人 AS [申請/Application], 聯絡事項  FROM 部門聯絡函 " & SQL2 & " ORDER BY 聯絡函單號 DESC" : CmdSet_For_DGV()

  105.     End Sub

  106.     Friend Sub SQL_未收_聯絡函()

  107.         If CInt(登入人級別) <= 3 Then

  108.             SQL2 = " WHERE (主題 NOT LIKE N'') AND (聯絡事項 NOT LIKE N'') AND (審核人 NOT LIKE N'') AND (審核人 NOT LIKE N'作廢%') AND 

  109.                            (接收核准 LIKE N'') AND (接收核准 NOT LIKE N'作廢%') "

  110.         Else

  111.             SQL2 = " WHERE (主題 NOT LIKE N'') AND (聯絡事項 NOT LIKE N'') AND (審核人 NOT LIKE N'') AND (審核人 NOT LIKE N'作廢%') AND 

  112.                            (聯絡部門 LIKE N'" & 登入人部門 & "') AND (接收核准 LIKE N'') AND (接收核准 NOT LIKE N'作廢%') "

  113.         End If

  114.         ConnOpen_管理SQL() : SQL1 = "SELECT 聯絡函單號 AS [NO.], 聯絡人 AS [聯繫/Connection], 聯絡事項  FROM 部門聯絡函 " & SQL2 & " ORDER BY 聯絡函單號 DESC" : CmdSet_For_DGV()

  115.     End Sub

  116.     Friend Sub SQL_未執行_聯絡函()

  117.         If CInt(登入人級別) <= 3 Then

  118.             SQL2 = " WHERE (主題 NOT LIKE N'') AND (主題 NOT LIKE N'%請假申請%') AND (主題 NOT LIKE N'%車輛使用申請%') AND (聯絡事項 NOT LIKE N'') AND 

  119.                            (審核人 NOT LIKE N'') AND (審核人 NOT LIKE N'作廢%') AND (接收核准 NOT LIKE N'') AND (接收核准 NOT LIKE N'作廢%') AND (已作業 = 0) "

  120.         Else

  121.             SQL2 = " WHERE (主題 NOT LIKE N'') AND (主題 NOT LIKE N'%請假申請%') AND (主題 NOT LIKE N'%車輛使用申請%') AND (聯絡事項 NOT LIKE N'') AND 

  122.                            (審核人 NOT LIKE N'') AND (審核人 NOT LIKE N'作廢%') AND (接收核准 NOT LIKE N'') AND (接收核准 NOT LIKE N'作廢%') AND (已作業 = 0) AND 

  123.                            (聯絡部門 LIKE N'" & 登入人部門 & "') "

  124.         End If

  125.         ConnOpen_管理SQL() : SQL1 = "SELECT 聯絡函單號 AS [NO.], 執行人 AS [執行/Implement], 聯絡事項 FROM 部門聯絡函 " & SQL2 & " ORDER BY 聯絡函單號 DESC" : CmdSet_For_DGV()

  126.     End Sub

  127.     Friend Sub SQL_未驗收_聯絡函()

  128.         If CInt(登入人級別) <= 3 Then

  129.             SQL2 = " WHERE (主題 NOT LIKE N'') AND (主題 NOT LIKE N'%請假申請%') AND (主題 NOT LIKE N'%車輛使用申請%') AND (聯絡事項 NOT LIKE N'') AND 

  130.                            (審核人 NOT LIKE N'') AND (審核人 NOT LIKE N'作廢%') AND (接收核准 NOT LIKE N'') AND (接收核准 NOT LIKE N'作廢%') AND (已作業 = 1) AND (已驗收 = 0) "

  131.         Else

  132.             SQL2 = " WHERE (主題 NOT LIKE N'') AND (主題 NOT LIKE N'%請假申請%') AND (主題 NOT LIKE N'%車輛使用申請%') AND (聯絡事項 NOT LIKE N'') AND 

  133.                            (審核人 NOT LIKE N'') AND (審核人 NOT LIKE N'作廢%') AND (聯絡部門 LIKE N'" & 登入人部門 & "') AND (接收核准 NOT LIKE N'') AND (接收核准 NOT LIKE N'作廢%') AND 

  134.                            (已作業 = 1) AND (已驗收 = 0) "

  135.         End If

  136.         ConnOpen_管理SQL() : SQL1 = "SELECT 聯絡函單號 AS [NO.], 審核人 AS [驗收/Acceptance], 聯絡事項 FROM 部門聯絡函 " & SQL2 & " ORDER BY 聯絡函單號 DESC" : CmdSet_For_DGV()

  137.     End Sub

  138.     Friend Sub SQL_合約未請款1()

  139.         ConnOpen()

  140.         SQL1 = "SELECT  合約編號, 工程主管, 工程名稱_中, 工程名稱_英  FROM  合約控制表  

  141.                 WHERE  (合約停止 = 0 OR 合約停止 IS NULL) AND (報價放行 = 1) AND (作廢 = 0) AND (第一期比例 <> 0) AND (預付款 <> 0 OR 預付款 IS NULL)"

  142.         CmdSet_For_DGV()

  143.     End Sub

  144.     Friend Sub SQL_合約未請款2()

  145.         ConnOpen()

  146.         SQL1 = "SELECT  合約編號, 工程主管, 工程名稱_中, 工程名稱_英  FROM  合約控制表  

  147.                 WHERE  (合約停止 = 0 OR 合約停止 IS NULL) AND (報價放行 = 1) AND (作廢 = 0) AND (第二期比例 <> 0) AND (到貨款 <> 0 OR 到貨款 IS NULL)"

  148.         CmdSet_For_DGV()

  149.     End Sub

  150.     Friend Sub SQL_合約未請款3()

  151.         ConnOpen()

  152.         SQL1 = "SELECT  合約編號, 工程主管, 工程名稱_中, 工程名稱_英  FROM  合約控制表  

  153.                 WHERE  (合約停止 = 0 OR 合約停止 IS NULL) AND (報價放行 = 1) AND (作廢 = 0) AND (第三期比例 <> 0) AND (施工款 <> 0 OR 施工款 IS NULL)"

  154.         CmdSet_For_DGV()

  155.     End Sub

  156.     Friend Sub SQL_合約未請款4()

  157.         ConnOpen()

  158.         SQL1 = "SELECT  合約編號, 工程主管, 工程名稱_中, 工程名稱_英  FROM  合約控制表  

  159.                 WHERE  (合約停止 = 0 OR 合約停止 IS NULL) AND (報價放行 = 1) AND (作廢 = 0) AND (第四期比例 <> 0) AND (驗收款 <> 0 OR 驗收款 IS NULL)"

  160.         CmdSet_For_DGV()

  161.     End Sub

  162.     Friend Sub SQL_合約未請款5()

  163.         ConnOpen()

  164.         SQL1 = "SELECT  合約編號, 工程主管, 工程名稱_中, 工程名稱_英  FROM  合約控制表  

  165.                 WHERE  (合約停止 = 0 OR 合約停止 IS NULL) AND (報價放行 = 1) AND (作廢 = 0) AND (第五期比例 <> 0) AND (保留款 <> 0 OR 保留款 IS NULL)"

  166.         CmdSet_For_DGV()

  167.     End Sub

  168.     Friend Sub SQL_合約未驗收()

  169.         ConnOpen()

  170.         SQL1 = "SELECT  合約編號, 工程主管, 工程名稱_中, 工程名稱_英  FROM  合約控制表 

  171.                 WHERE  (作廢 = 0) AND (報價放行 = 1) AND (合約停止 = 0 OR 合約停止 IS NULL) AND (驗收結果 = 0 OR 驗收結果 IS NULL)"

  172.         CmdSet_For_DGV()

  173.     End Sub

  174.     Friend Sub SQL_合約未指定主管()

  175.         ConnOpen()

  176.         SQL1 = "SELECT 合約編號, 工程主管, 工程名稱_中, 工程名稱_英 FROM 合約控制表 

  177.                 WHERE (作廢 = 0) AND (報價放行 = 1) AND (合約停止 = 0 OR 合約停止 IS NULL) AND (工程主管 LIKE '' OR 工程主管 IS NULL)"

  178.         CmdSet_For_DGV()

  179.     End Sub

  180.     Friend Sub SQL_合約保固未簽()

  181.         ConnOpen()

  182.         SQL1 = "SELECT 合約編號, 工程主管, 工程名稱_中, 工程名稱_英 FROM 合約控制表  

  183.                 WHERE (作廢 = 0) AND (合約停止 = 0 OR 合約停止 IS NULL) AND (報價放行 = 1) AND (驗收結果 = 1) AND (保固簽回 = 0 OR 保固簽回 IS NULL)"

  184.         CmdSet_For_DGV()

  185.     End Sub

  186.     Friend Sub SQL_合約驗收單未簽回()

  187.         ConnOpen()

  188.         SQL1 = "SELECT 合約編號, 工程主管, 工程名稱_中, 工程名稱_英 FROM 合約控制表  

  189.                 WHERE (作廢 = 0) AND (合約停止 = 0 OR 合約停止 IS NULL) AND (報價放行 = 1) AND (驗收簽回 = 0 OR 驗收簽回 IS NULL)"

  190.         CmdSet_For_DGV()

  191.     End Sub

  192.     Friend Sub SQL_合約未簽回()

  193.         ConnOpen()

  194.         SQL1 = "SELECT 合約編號, 工程主管, 工程名稱_中, 工程名稱_英 FROM 合約控制表  

  195.                 WHERE (作廢 = 0) AND (合約停止 = 0 OR 合約停止 IS NULL) AND (報價放行 = 1) AND (合約簽回 = 0 OR 合約簽回 IS NULL)"

  196.         CmdSet_For_DGV()

  197.     End Sub

  198.     Friend Sub SQL_報價未簽回()

  199.         ConnOpen()

  200.         SQL1 = "SELECT 合約編號, 工程主管, 工程名稱_中, 工程名稱_英 FROM 合約控制表 

  201.                 WHERE (作廢 = 0) AND (合約停止 = 0 OR 合約停止 IS NULL) AND (報價放行 = 1) AND (報價簽回 = 0 OR 報價簽回 IS NULL)"

  202.         CmdSet_For_DGV()

  203.     End Sub

  204.     Friend Sub SQL_報價未完成()

  205.         ConnOpen() : SQL1 = "SELECT 合約編號, 工程主管, 工程名稱_中, 工程名稱_英 FROM 合約控制表 WHERE (作廢 = 0) AND (合約停止 = 1)" : CmdSet_For_DGV()

  206.     End Sub

  207.     Friend Sub SQL_合約未設利潤()

  208.         ConnOpen()

  209.         SQL1 = "SELECT  合約編號, 工程主管, 工程名稱_中, 工程名稱_英  FROM  合約控制表  WHERE  (作廢 = 0) AND (利潤比1 = 0 OR 利潤比1 IS NULL) AND (合約停止 = 0 OR 合約停止 IS NULL)"

  210.         CmdSet_For_DGV()

  211.     End Sub

  212.     Friend Sub SQL_合約未放行()

  213.         ConnOpen()

  214.         SQL1 = "SELECT  合約編號, 工程主管, 工程名稱_中, 工程名稱_英  FROM  合約控制表  WHERE  (作廢 = 0) AND (報價放行 = 0 OR 報價放行 IS NULL) AND (合約停止 = 0 OR 合約停止 IS NULL)"

  215.         CmdSet_For_DGV()

  216.     End Sub

  217.     Friend Sub SQL_員工合約()

  218.         Dim WQ As String = Strings.Format(Today().AddDays(59), "yyyy/MM/dd")

  219.         ConnOpen()

  220.         SQL1 = "SELECT    使用者權限管理表.姓名, 使用者權限管理表.部門, AA.員工崗位 AS 合約到期日

  221.                 FROM      使用者權限管理表 INNER JOIN

  222.                          (SELECT  員工崗位, 帳號

  223.                           FROM    [HX-PGS-MSN].dbo.人員資料表

  224.                           WHERE  (員工崗位 BETWEEN '2020/01/01' AND '" & WQ & "') OR

  225.                          (員工崗位 LIKE '')) AS AA ON 使用者權限管理表.帳號 = AA.帳號

  226.                 WHERE    (使用者權限管理表.部門 NOT LIKE '0%') AND (使用者權限管理表.部門 NOT LIKE '9%') AND (使用者權限管理表.CC63 = 0)

  227.                 ORDER BY  使用者權限管理表.職稱, 使用者權限管理表.級別"

  228.         CmdSet_For_DGV()

  229.     End Sub

  230.     Friend Sub SQL_公告清單01()

  231.         ConnOpen_管理SQL()

  232.         SQL1 = "SELECT  開始日期, 結束日期, 序列, 中文, 印尼文  FROM  公告資料表  WHERE  ('" & Strings.Format(Today(), "yyyy/MM/dd") & "' BETWEEN 開始日期 AND 結束日期)  ORDER BY  序列"

  233.         CmdSet_For_DGV()

  234.     End Sub

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

  236.         ConnOpen() : SQL1 = "SELECT 姓名, 帳號, 密碼, 密碼日期 FROM 使用者權限管理表 WHERE (姓名 = '" & gUserName & "')" : CmdSet_For_dr()

  237.     End Sub

  238.     Friend Sub SQL_使用者資料修改()

  239.         ConnOpen()

  240.         SQL1 = "UPDATE 使用者權限管理表 SET 帳號 = '" & 個人帳號管理.帳號_rtb.Text & "', 密碼 = '" & 個人帳號管理.密碼_rtb.Text & "', 密碼日期 = '" & DTP & "' 

  241.                 WHERE (姓名 = '" & 個人帳號管理.姓名_rtb.Text & "')"

  242.         CmdSet_For_dr()

  243.     End Sub

  244.     Friend Sub SQL_財務支付單未核准()

  245.         ConnOpen()

  246.         SQL1 = "SELECT    財務收支明細表.流水號, 財務收支明細表.支付日期, 財務收支控制表.申請人, 

  247.                           財務收支控制表.支付單號, 財務收支明細表.銀行, 財務收支明細表.類別, 財務收支明細表.支出, 財務收支明細表.明細, 財務收支明細表.大寫, 

  248.                           財務收支明細表.支付對象, 財務收支控制表.審核人, 財務收支明細表.公帳 , 財務收支明細表.備用金 , 

  249.                           財務收支明細表.公司, 財務收支明細表.付款銀行, 財務收支明細表.銀行支行, 財務收支控制表.核准圖檔, 財務收支控制表.檢查人, 財務收支控制表.主管人

  250.                 FROM      財務收支明細表 INNER JOIN

  251.                           財務收支控制表 ON 財務收支明細表.支付單號 = 財務收支控制表.支付單號

  252.                 WHERE    (財務收支明細表.流水號 NOT LIKE 'B%')  AND (財務收支控制表.主管人 LIKE N'' OR  財務收支控制表.主管人 IS NULL) AND 

  253.                          (財務收支控制表.審核人 NOT LIKE '作廢%' ) AND (財務收支控制表.審核人 IS NOT NULL ) AND (財務收支控制表.審核人 NOT LIKE N'') AND

  254.                          (財務收支明細表.支付日期 IS NOT NULL)

  255.                 ORDER BY  財務收支控制表.申請日期 DESC"

  256.         CmdSet_For_DGV()

  257.     End Sub

  258.     Friend Sub SQL_供應商資料未審核()

  259.         ConnOpen()

  260.         SQL1 = "SELECT  供應商編碼, 公司名, 支付對象, 銀行名稱, 銀行帳號, 銀行支行, 新支付對象, 新銀行名稱, 新銀行帳號, 新銀行支行, 銀行修改

  261.                 FROM    供應商資料表

  262.                 WHERE  (銀行修改 LIKE N'1')"

  263.         CmdSet_For_DGV()

  264.     End Sub

  265.     Friend Sub SQL_庫存查詢()

  266.         ConnOpen()

  267.         SQL1 = "SELECT    QQ.倉名, QQ.第一層, QQ.第二層, QQ.第三層, QQ.第四層, QQ.第五層, QQ.品名, QQ.規格, QQ.A1, QQ.A2, QQ.A3, 

  268.                           QQ.A4, QQ.A5, QQ.A6, QQ.A7, QQ.A8, QQ.庫存, QQ.料號原則, QQ.倉名編號, HX選擇按鈕.選擇, QQ.單位, QQ.料號, QQ.倉級

  269.                 FROM      HX選擇按鈕 RIGHT OUTER JOIN

  270.                          (SELECT    倉儲分區控制表.倉名, 物料新群組.第一層, 物料新群組.第二層, 物料新群組.第三層, 

  271.                                     物料新群組.第四層, 物料新群組.第五層, 物料編碼庫轉語言.品名, 

  272.                                     物料編碼庫轉語言.品名 AS 規格, 物料規格表.A1, 物料規格表.A2, 物料規格表.A3, 

  273.                                     物料規格表.A4, 物料規格表.A5, 物料規格表.A6, 物料規格表.A7, 物料規格表.A8, 

  274.                                     SUM(倉儲明細表.入庫) - SUM(倉儲明細表.出庫) AS 庫存, 物料規格表.料號原則, 

  275.                                     倉儲明細表.倉名編號, 物料編碼庫.單位, 倉儲明細表.料號, 倉儲明細表.倉級

  276.                           FROM      倉儲明細表 INNER JOIN

  277.                                     倉儲分區控制表 ON 倉儲明細表.倉名編號 = 倉儲分區控制表.倉名編號 INNER JOIN

  278.                                     物料規格表 ON 倉儲明細表.料號 = 物料規格表.料號 INNER JOIN

  279.                                     物料編碼庫 ON 物料規格表.料號原則 = 物料編碼庫.料號原則 INNER JOIN

  280.                                     物料新群組 ON 物料編碼庫.新群組碼 = 物料新群組.編號 INNER JOIN

  281.                                     物料編碼庫轉語言 ON 物料規格表.料號原則 = 物料編碼庫轉語言.料號原則

  282.                           WHERE    (倉儲明細表.料號 NOT LIKE '') AND (物料新群組.語言 LIKE N'" & 系統語言 & "') AND 

  283.                                    (物料編碼庫轉語言.語言 LIKE N'" & 系統語言 & "')

  284.                           GROUP BY  倉儲明細表.倉名編號, 倉儲分區控制表.倉名, 物料新群組.第一層, 物料新群組.第二層, 

  285.                                     物料新群組.第三層, 物料新群組.第四層, 物料新群組.第五層, 物料編碼庫轉語言.品名, 

  286.                                     物料規格表.A1, 物料規格表.A2, 物料規格表.A3, 物料規格表.A4, 物料規格表.A5, 

  287.                                     物料規格表.A6, 物料規格表.A7, 物料規格表.A8, 物料規格表.料號原則, 物料編碼庫.單位, 

  288.                                     倉儲明細表.料號, 倉儲明細表.倉級, 倉儲明細表.倉名編號

  289.                           HAVING   (SUM(倉儲明細表.入庫) - SUM(倉儲明細表.出庫) <> 0)) AS QQ ON 

  290.                           HX選擇按鈕.對應 = QQ.倉名

  291.                 ORDER BY  QQ.倉名編號, QQ.第一層, QQ.第二層, QQ.第三層, QQ.第四層, QQ.第五層"

  292.         CmdSet_For_DGV()

  293.     End Sub

  294.     Friend Sub SQL_庫存查詢1()

  295.         ConnOpen()

  296.         SQL1 = "SELECT    QQ.倉名, QQ.主項, QQ.群組, QQ.品名, QQ.規格, QQ.A1, QQ.A2, QQ.A3, QQ.A4, QQ.A5, QQ.A6, QQ.A7, QQ.A8, QQ.庫存, 

  297.                           QQ.料號原則, QQ.倉名編號, HX選擇按鈕.選擇, QQ.單位, QQ.料號, QQ.倉級

  298.                 FROM      HX選擇按鈕 RIGHT OUTER JOIN

  299.                          (SELECT    倉儲分區控制表.倉名, 物料群組轉語言.主項, 物料群組轉語言.群組, 物料編碼庫轉語言.品名, 

  300.                                     物料編碼庫轉語言.品名 AS 規格, 物料規格表.A1, 物料規格表.A2, 物料規格表.A3, 物料規格表.A4, 

  301.                                     物料規格表.A5, 物料規格表.A6, 物料規格表.A7, 物料規格表.A8, SUM(倉儲明細表.入庫) 

  302.                                      - SUM(倉儲明細表.出庫) AS 庫存, 物料規格表.料號原則, 倉儲明細表.倉名編號, 倉儲明細表.料號, 

  303.                                     倉儲明細表.倉級, 物料編碼庫.單位

  304.                           FROM      倉儲明細表 INNER JOIN

  305.                                     倉儲分區控制表 ON 倉儲明細表.倉名編號 = 倉儲分區控制表.倉名編號 INNER JOIN

  306.                                     物料規格表 ON 倉儲明細表.料號 = 物料規格表.料號 INNER JOIN

  307.                                     物料編碼庫轉語言 ON 物料規格表.料號原則 = 物料編碼庫轉語言.料號原則 INNER JOIN

  308.                                     物料群組轉語言 ON 物料規格表.群組碼 = 物料群組轉語言.群組碼 INNER JOIN

  309.                                     物料編碼庫 ON 物料規格表.料號原則 = 物料編碼庫.料號原則

  310.                           WHERE    (倉儲明細表.料號 NOT LIKE '') AND (物料編碼庫轉語言.語言 LIKE N'" & 系統語言 & "') AND 

  311.                                    (物料群組轉語言.語言 LIKE N'" & 系統語言 & "')

  312.                           GROUP BY  倉儲明細表.倉名編號, 倉儲分區控制表.倉名, 物料編碼庫轉語言.品名, 物料規格表.A1, 物料規格表.A2, 

  313.                                     物料規格表.A3, 物料規格表.A4, 物料規格表.A5, 物料規格表.A6, 物料規格表.A7, 物料規格表.A8, 

  314.                                     物料群組轉語言.主項, 物料群組轉語言.群組, 物料規格表.料號原則, 倉儲明細表.料號, 

  315.                                     倉儲明細表.倉級, 倉儲明細表.倉名編號, 物料編碼庫.單位

  316.                           HAVING   (SUM(倉儲明細表.入庫) - SUM(倉儲明細表.出庫) <> 0)) AS QQ ON 

  317.                           HX選擇按鈕.對應 = QQ.倉名編號

  318.                 ORDER BY  QQ.倉名編號, QQ.主項, QQ.群組"

  319.         CmdSet_For_DGV()

  320.     End Sub

  321. End Module