GCM-ERP-SYS-LEEHSIEHJUI/工巧明智能管理系統/hx-pgs-erp-sys-team/0、MyModule/主資料庫/SQL_登入與主程式.vb

Module SQL_登入與主程式
    '---------------------LoginForm1-----------------------------------------------------------------------------------------------------------------
    Friend Sub SQL_FTP伺服器登入位置()
        ConnOpen() : SQL1 = "SELECT  FTP地址, FTP帳號, FTP密碼, FTP物理位置 FROM FTP資料庫管理 WHERE 地區 LIKE N'" & LoginForm1.伺服器區域_cb.Text & "'" : CmdSet_For_dr()
    End Sub
    Friend Sub SQL_使用者權限宣告()
        ConnOpen() : SQL1 = "SELECT " & 登入權限 & " FROM 使用者權限管理表 WHERE (帳號 = '" & LoginForm1.帳號_tb.Text & "')" : CmdSet_For_dr()
    End Sub
    Friend Sub SQL_使用者級別宣告()
        ConnOpen() : SQL1 = "SELECT 級別 FROM 使用者權限管理表 WHERE (帳號 = '" & LoginForm1.帳號_tb.Text & "')" : CmdSet_For_dr()
    End Sub
    Friend Sub SQL_刷卡登入()
        ConnOpen() : SQL1 = "SELECT 帳號, 密碼 FROM 使用者權限管理表 WHERE (ID卡號 = '" & LoginForm1.帳號_tb.Text & "')" : CmdSet_For_dr()
    End Sub
    Friend Sub SQL_電腦綁定()
        ConnOpen()
        SQL1 = "SELECT MAC碼 FROM 系統綁定電腦資訊 WHERE 硬碟ID LIKE N'" & PA2 & "' AND 硬碟序列 LIKE N'" & PA3 & "' AND 磁盘型態 LIKE N'" & PA4 & "'"
        CmdSet_For_dr()
    End Sub
    '---------------------HX_PGS_ERP_SYS-----------------------------------------------------------------------------------------------------------------
    Friend Sub SQL_帳號讀取()
        ConnOpen() : SQL1 = "SELECT 帳號, 姓名 FROM 使用者權限管理表 ORDER BY 姓名" : CmdSet_For_dr()
    End Sub
    Friend Sub SQL_使用者級別宣告_主畫面()
        ConnOpen() : SQL1 = "SELECT 級別 FROM 使用者權限管理表 WHERE (姓名 = '" & HX_PGS_ERP_SYS.使用者1_cb.Text & "')" : CmdSet_For_dr()
    End Sub
    Friend Sub SQL_使用者權限宣告_主畫面()
        ConnOpen() : SQL1 = "SELECT " & 登入權限 & " FROM 使用者權限管理表 WHERE (姓名 = '" & HX_PGS_ERP_SYS.使用者1_cb.Text & "')" : CmdSet_For_dr()
    End Sub
    '---------------------HX_PGS_ERP_SYS_登入通知---------------------------------------------------------------------------------------------------------
    Friend Sub SQL_請購單申請未核准單數()
        ConnOpen()
        SQL1 = "SELECT      請購單控制表.請購單號 AS [NO.], 請購單控制表.需求日期 AS [需求 / Need], 請購單控制表.合約號, 
                            合約控制表.工程名稱_中, 合約控制表.工程名稱_英
                FROM        請購單控制表 INNER JOIN 使用者權限管理表 ON 請購單控制表.申請人 = 使用者權限管理表.姓名 INNER JOIN
                           (SELECT  姓名, 帳號, 職稱, 時效, 授權  FROM  系統跨部門權限表  WHERE  (姓名 LIKE N'李協叡') AND (授權 = 1)) AS QQQ ON 
                            使用者權限管理表.職稱 = QQQ.職稱 INNER JOIN 合約控制表 ON 請購單控制表.合約號 = 合約控制表.合約編號
                WHERE      (請購單控制表.核准人 LIKE N'')
                ORDER BY    [NO.] DESC"
        CmdSet_For_DGV()
    End Sub
    Friend Sub SQL_採購單單數()
        ConnOpen()
        SQL1 = "SELECT      請購單明細表.請購單號 AS [NO.], 請購單控制表.核准日期 AS [核准 / Approved], 請購單控制表.合約號, 
                            合約控制表.工程名稱_中, 合約控制表.工程名稱_英
                FROM        合約控制表 INNER JOIN 請購單控制表 ON 合約控制表.合約編號 = 請購單控制表.合約號 RIGHT OUTER JOIN
                            請購單明細表 LEFT OUTER JOIN 採購單明細表 ON 請購單明細表.項次 = 採購單明細表.項次 AND 
                            請購單明細表.請購單號 = 採購單明細表.請購單號 LEFT OUTER JOIN 物料圖庫 ON 請購單明細表.群組原則 = 物料圖庫.料號原則 ON 
                            請購單控制表.請購單號 = 請購單明細表.請購單號 LEFT OUTER JOIN
                            物料編碼庫 ON 請購單明細表.群組原則 = 物料編碼庫.料號原則 LEFT OUTER JOIN
                            倉儲分區控制表 ON 請購單明細表.用途 = 倉儲分區控制表.倉名編號 LEFT OUTER JOIN
                            物料規格表 ON 請購單明細表.料號 = 物料規格表.料號 LEFT OUTER JOIN
                            物料資訊控制表 ON 請購單明細表.群組原則 = 物料資訊控制表.料號原則
                WHERE      (請購單控制表.核准人 NOT LIKE N'') AND (請購單控制表.核准人 NOT LIKE N'作廢%') AND (請購單明細表.已採購 IS NULL OR
                            請購單明細表.已採購 = 0) AND (物料資訊控制表.規格庫編號 IS NOT NULL)
                GROUP BY    請購單明細表.請購單號, 請購單控制表.核准日期, 請購單控制表.合約號, 合約控制表.工程名稱_中, 合約控制表.工程名稱_英
                ORDER BY    [NO.]"
        CmdSet_For_DGV()
    End Sub
    Friend Sub SQL_採購核准11()
        ConnOpen()
        SQL1 = "SELECT      採購單控制表.採購單號 AS [NO.], 採購單控制表.需求日期 AS [需求 / Need], 供應商資料表.公司名
                FROM        採購單控制表 INNER JOIN
                            供應商資料表 ON 採購單控制表.供應商編號 = 供應商資料表.供應商編碼
                WHERE      (採購單控制表.核准 LIKE N'') AND (採購單控制表.供應商編號 NOT LIKE N'') AND (採購單控制表.一級核准 LIKE N'' OR
                            採購單控制表.一級核准 IS NULL)
                ORDER BY    [NO.] DESC"
        CmdSet_For_DGV()
    End Sub
    Friend Sub SQL_採購核准12()
        ConnOpen()
        SQL1 = "SELECT      採購單控制表.採購單號 AS [NO.], 採購單控制表.需求日期 AS [需求 / Need], 供應商資料表.公司名
                FROM        採購單控制表 INNER JOIN
                            供應商資料表 ON 採購單控制表.供應商編號 = 供應商資料表.供應商編碼
                WHERE      (採購單控制表.核准 LIKE N'') AND (採購單控制表.一級核准 NOT LIKE N'')
                ORDER BY    [NO.] DESC"
        CmdSet_For_DGV()
    End Sub
    Friend Sub SQL_未審_聯絡函()
        If CInt(登入人級別) <= 3 Then
            SQL2 = " WHERE (主題 NOT LIKE N'') AND (聯絡事項 NOT LIKE N'') AND (審核人 LIKE N'') AND (審核人 NOT LIKE N'作廢%') "
        Else
            SQL2 = " WHERE (主題 NOT LIKE N'') AND (聯絡事項 NOT LIKE N'') AND (審核人 LIKE N'') AND (審核人 NOT LIKE N'作廢%') AND (申請部門 LIKE N'" & 登入人部門 & "') "
        End If
        ConnOpen_管理SQL() : SQL1 = "SELECT 聯絡函單號 AS [NO.], 申請人 AS [申請/Application], 聯絡事項  FROM 部門聯絡函 " & SQL2 & " ORDER BY 聯絡函單號 DESC" : CmdSet_For_DGV()
    End Sub
    Friend Sub SQL_未收_聯絡函()
        If CInt(登入人級別) <= 3 Then
            SQL2 = " WHERE (主題 NOT LIKE N'') AND (聯絡事項 NOT LIKE N'') AND (審核人 NOT LIKE N'') AND (審核人 NOT LIKE N'作廢%') AND 
                           (接收核准 LIKE N'') AND (接收核准 NOT LIKE N'作廢%') "
        Else
            SQL2 = " WHERE (主題 NOT LIKE N'') AND (聯絡事項 NOT LIKE N'') AND (審核人 NOT LIKE N'') AND (審核人 NOT LIKE N'作廢%') AND 
                           (聯絡部門 LIKE N'" & 登入人部門 & "') AND (接收核准 LIKE N'') AND (接收核准 NOT LIKE N'作廢%') "
        End If
        ConnOpen_管理SQL() : SQL1 = "SELECT 聯絡函單號 AS [NO.], 聯絡人 AS [聯繫/Connection], 聯絡事項  FROM 部門聯絡函 " & SQL2 & " ORDER BY 聯絡函單號 DESC" : CmdSet_For_DGV()
    End Sub
    Friend Sub SQL_未執行_聯絡函()
        If CInt(登入人級別) <= 3 Then
            SQL2 = " WHERE (主題 NOT LIKE N'') AND (聯絡事項 NOT LIKE N'') AND (審核人 NOT LIKE N'') AND (審核人 NOT LIKE N'作廢%') AND 
                           (接收核准 NOT LIKE N'') AND (接收核准 NOT LIKE N'作廢%') AND (已作業 = 0) "
        Else
            SQL2 = " WHERE (主題 NOT LIKE N'') AND (聯絡事項 NOT LIKE N'') AND (審核人 NOT LIKE N'') AND (審核人 NOT LIKE N'作廢%') AND 
                           (聯絡部門 LIKE N'" & 登入人部門 & "') AND (接收核准 NOT LIKE N'') AND (接收核准 NOT LIKE N'作廢%') AND (已作業 = 0) "
        End If
        ConnOpen_管理SQL() : SQL1 = "SELECT 聯絡函單號 AS [NO.], 執行人 AS [執行/Implement], 聯絡事項 FROM 部門聯絡函 " & SQL2 & " ORDER BY 聯絡函單號 DESC" : CmdSet_For_DGV()
    End Sub
    Friend Sub SQL_未驗收_聯絡函()
        If CInt(登入人級別) <= 3 Then
            SQL2 = " WHERE (主題 NOT LIKE N'') AND (聯絡事項 NOT LIKE N'') AND (審核人 NOT LIKE N'') AND (審核人 NOT LIKE N'作廢%') AND 
                           (接收核准 NOT LIKE N'') AND (接收核准 NOT LIKE N'作廢%') AND (已作業 = 1) AND (已驗收 = 0) "
        Else
            SQL2 = " WHERE (主題 NOT LIKE N'') AND (聯絡事項 NOT LIKE N'') AND (審核人 NOT LIKE N'') AND (審核人 NOT LIKE N'作廢%') AND 
                           (聯絡部門 LIKE N'" & 登入人部門 & "') AND (接收核准 NOT LIKE N'') AND (接收核准 NOT LIKE N'作廢%') AND 
                           (已作業 = 1) AND (已驗收 = 0) "
        End If
        ConnOpen_管理SQL() : SQL1 = "SELECT 聯絡函單號 AS [NO.], 審核人 AS [驗收/Acceptance], 聯絡事項 FROM 部門聯絡函 " & SQL2 & " ORDER BY 聯絡函單號 DESC" : CmdSet_For_DGV()
    End Sub
    Friend Sub SQL_合約未請款1()
        ConnOpen() : SQL1 = "SELECT  合約編號, 工程主管, 工程名稱_中, 工程名稱_英  FROM  合約控制表  WHERE  (合約停止 = 0) AND (預付款 <> 0 OR 預付款 IS NULL)" : CmdSet_For_DGV()
    End Sub
    Friend Sub SQL_合約未請款2()
        ConnOpen() : SQL1 = "SELECT  合約編號, 工程主管, 工程名稱_中, 工程名稱_英  FROM  合約控制表  WHERE  (合約停止 = 0) AND (到貨款 <> 0 OR 到貨款 IS NULL)" : CmdSet_For_DGV()
    End Sub
    Friend Sub SQL_合約未請款3()
        ConnOpen() : SQL1 = "SELECT  合約編號, 工程主管, 工程名稱_中, 工程名稱_英  FROM  合約控制表  WHERE  (合約停止 = 0) AND (施工款 <> 0 OR 施工款 IS NULL)" : CmdSet_For_DGV()
    End Sub
    Friend Sub SQL_合約未請款4()
        ConnOpen() : SQL1 = "SELECT  合約編號, 工程主管, 工程名稱_中, 工程名稱_英  FROM  合約控制表  WHERE  (合約停止 = 0) AND (驗收款 <> 0 OR 驗收款 IS NULL)" : CmdSet_For_DGV()
    End Sub
    Friend Sub SQL_合約未請款5()
        ConnOpen() : SQL1 = "SELECT  合約編號, 工程主管, 工程名稱_中, 工程名稱_英  FROM  合約控制表  WHERE  (合約停止 = 0) AND (保留款 <> 0 OR 保留款 IS NULL)" : CmdSet_For_DGV()
    End Sub
    Friend Sub SQL_合約未驗收()
        ConnOpen() : SQL1 = "SELECT  合約編號, 工程主管, 工程名稱_中, 工程名稱_英  FROM  合約控制表  WHERE  (合約停止 = 0) AND (驗收結果 = 0 OR 驗收結果 IS NULL)" : CmdSet_For_DGV()
    End Sub
    Friend Sub SQL_合約未指定主管()
        ConnOpen() : SQL1 = "SELECT 合約編號, 工程主管, 工程名稱_中, 工程名稱_英 FROM 合約控制表 WHERE (合約停止 = 0) AND (工程主管 IS NULL)" : CmdSet_For_DGV()
    End Sub
    Friend Sub SQL_合約保固未簽()
        ConnOpen()
        SQL1 = "SELECT 合約編號, 工程主管, 工程名稱_中, 工程名稱_英 FROM 合約控制表 WHERE (合約停止 = 0 OR 合約停止 IS NULL) AND (報價放行 = 1) AND (保固簽回 = 0 OR 保固簽回 IS NULL)"
        CmdSet_For_DGV()
    End Sub
    Friend Sub SQL_合約驗收單未簽回()
        ConnOpen()
        SQL1 = "SELECT 合約編號, 工程主管, 工程名稱_中, 工程名稱_英 FROM 合約控制表 WHERE (合約停止 = 0 OR 合約停止 IS NULL) AND (報價放行 = 1) AND (驗收簽回 = 0 OR 驗收簽回 IS NULL)"
        CmdSet_For_DGV()
    End Sub
    Friend Sub SQL_合約未簽回()
        ConnOpen()
        SQL1 = "SELECT 合約編號, 工程主管, 工程名稱_中, 工程名稱_英 FROM 合約控制表 WHERE (合約停止 = 0 OR 合約停止 IS NULL) AND (報價放行 = 1) AND (合約簽回 = 0 OR 合約簽回 IS NULL)"
        CmdSet_For_DGV()
    End Sub
    Friend Sub SQL_報價未簽回()
        ConnOpen()
        SQL1 = "SELECT 合約編號, 工程主管, 工程名稱_中, 工程名稱_英 FROM 合約控制表 WHERE (合約停止 = 0 OR 合約停止 IS NULL) AND (報價放行 = 1) AND (報價簽回 = 0 OR 報價簽回 IS NULL)"
        CmdSet_For_DGV()
    End Sub
    Friend Sub SQL_報價未完成()
        ConnOpen() : SQL1 = "SELECT 合約編號, 工程主管, 工程名稱_中, 工程名稱_英 FROM 合約控制表 WHERE (合約停止 = 1)" : CmdSet_For_DGV()
    End Sub
    Friend Sub SQL_合約未設利潤()
        ConnOpen() : SQL1 = "SELECT  合約編號, 工程主管, 工程名稱_中, 工程名稱_英  FROM  合約控制表  WHERE  (利潤比1 = 0 OR 利潤比1 IS NULL) AND (合約停止 = 0 OR 合約停止 IS NULL)" : CmdSet_For_DGV()
    End Sub
    Friend Sub SQL_合約未放行()
        ConnOpen() : SQL1 = "SELECT  合約編號, 工程主管, 工程名稱_中, 工程名稱_英  FROM  合約控制表  WHERE  (報價放行 = 0 OR 報價放行 IS NULL) AND (合約停止 = 0 OR 合約停止 IS NULL)" : CmdSet_For_DGV()
    End Sub
    Friend Sub SQL_工程進度表未開()
        ConnOpen()
        SQL1 = "SELECT  合約控制表.合約編號, 合約控制表.工程主管, 合約控制表.工程名稱_中, 合約控制表.工程名稱_英
                FROM    合約控制表 FULL OUTER JOIN
                       (SELECT   [PROJECT-SYS].dbo.工程進度表.合約編號, [PROJECT-SYS].dbo.工程責任表.項目負責
                        FROM     [PROJECT-SYS].dbo.工程進度表 INNER JOIN [PROJECT-SYS].dbo.工程責任表 ON 
                                 [PROJECT-SYS].dbo.工程進度表.合約編號 = [PROJECT-SYS].dbo.工程責任表.合約編號
                        GROUP BY [PROJECT-SYS].dbo.工程進度表.合約編號, [PROJECT-SYS].dbo.工程責任表.項目負責) AS QQ ON 
                        合約控制表.合約編號 = QQ.合約編號
                WHERE  (合約控制表.合約停止 = 0) AND (合約控制表.驗收結果 = 0 OR 合約控制表.驗收結果 IS NULL) AND (QQ.項目負責 IS NULL)"
        CmdSet_For_DGV()
    End Sub
End Module