YD-ERP-SYS-LEEHSIEHJUI/YD-ERP-SYS/Module/SQL_採購系統管理.vb

Module SQL_採購系統管理
    '---------------------供應商資料表-----------------------------------------------------------------------------------------------------------------
    Friend Sub SQL_供應商資料表_清單()
        If 供應商資料表.精準查詢_ch.Checked = True Then : SQL2 = "AND"
        ElseIf 供應商資料表.精準查詢_ch.Checked = False Then : SQL2 = "OR" : End If
        ConnOpen()
        If 供應商資料表.查詢_tb.Text = "" Then
            If 供應商資料表.地區編碼_cb.Text = "" Then
                SQL1 = "SELECT 編號, 簡稱, 供應商, 公司地址, 電話1, 電話2, 電話3, 電話4, 店面地址, 店面電話, 工廠地址, 聯繫人1, 聯繫人2, 電話 AS 手機, 傳真, POS, 備註1, 備註2, 登入日期, 結算日, 
                               KR1, KR2, KR3, PEC, 停用
                        FROM   供應商資料表
                        ORDER BY   編號"
            ElseIf 供應商資料表.地區編碼_cb.Text <> "9" And 供應商資料表.地區編碼_cb.Text <> "" Then
                SQL1 = "SELECT 編號, 簡稱, 供應商, 公司地址, 電話1, 電話2, 電話3, 電話4, 店面地址, 店面電話, 工廠地址, 聯繫人1, 聯繫人2, 電話 AS 手機, 傳真, POS, 備註1, 備註2, 登入日期, 結算日, 
                               KR1, KR2, KR3, PEC, 停用
                        FROM   供應商資料表
                        WHERE  (編號 LIKE N'" & 供應商資料表.地區編碼_cb.Text & "%') " & SQL2 & " 
                               (公司地址 LIKE '%" & 供應商資料表.地區_cb.Text & "%' OR 店面地址 LIKE '%" & 供應商資料表.地區_cb.Text & "%' OR 工廠地址 LIKE '%" & 供應商資料表.地區_cb.Text & "%') 
                        ORDER BY   編號"
            ElseIf (物料檔案.地區編碼_cb.Text <> "9" Or 物料檔案.地區編碼_cb.Text = "Y") Or 供應商資料表.地區編碼_cb.Text = "Y" Then
                SQL1 = "SELECT 編號, 簡稱, 供應商, 公司地址, 電話1, 電話2, 電話3, 電話4, 店面地址, 店面電話, 工廠地址, 聯繫人1, 聯繫人2, 電話 AS 手機, 傳真, POS, 備註1, 備註2, 登入日期, 結算日, 
                               KR1, KR2, KR3, PEC, 停用
                        FROM   供應商資料表
                        WHERE  (編號 LIKE N'" & 供應商資料表.地區編碼_cb.Text & "%') ORDER BY   編號"
            End If
        Else
            If 供應商資料表.地區編碼_cb.Text = "" Then
                SQL1 = "SELECT 編號, 簡稱, 供應商, 公司地址, 電話1, 電話2, 電話3, 電話4, 店面地址, 店面電話, 工廠地址, 聯繫人1, 聯繫人2, 電話 AS 手機, 傳真, POS, 備註1, 備註2, 登入日期, 結算日, 
                               KR1, KR2, KR3, PEC, 停用
                        FROM   供應商資料表
                        WHERE (供應商 LIKE N'%" & PA & "%' OR 公司地址 LIKE N'%" & PA & "%' OR 電話1 LIKE N'%" & PA & "%' OR 電話2 LIKE N'%" & PA & "%' OR 電話3 LIKE N'%" & PA & "%' OR 
                               電話4 LIKE N'%" & PA & "%' OR 店面地址 LIKE N'%" & PA & "%' OR 店面電話 LIKE N'%" & PA & "%' OR 簡稱 LIKE N'%" & PA & "%' OR 工廠地址 LIKE N'%" & PA & "%' OR 
                               聯繫人1 LIKE N'%" & PA & "%' OR 聯繫人2 LIKE N'%" & PA & "%' OR 電話 LIKE N'%" & PA & "%' OR 傳真 LIKE N'%" & PA & "%' OR 備註1 LIKE N'%" & PA & "%' OR 
                               備註2 LIKE N'%" & PA & "%')
                        ORDER BY   編號"
            ElseIf (物料檔案.地區編碼_cb.Text <> "9" Or 物料檔案.地區編碼_cb.Text = "Y") And 供應商資料表.地區編碼_cb.Text <> "" Then
                SQL1 = "SELECT 編號, 簡稱, 供應商, 公司地址, 電話1, 電話2, 電話3, 電話4, 店面地址, 店面電話, 工廠地址, 聯繫人1, 聯繫人2, 電話 AS 手機, 傳真, POS, 備註1, 備註2, 登入日期, 結算日, 
                               KR1, KR2, KR3, PEC, 停用
                        FROM   供應商資料表
                        WHERE (編號 LIKE N'" & 供應商資料表.地區編碼_cb.Text & "%') " & SQL2 & " 
                              (公司地址 LIKE '%" & 供應商資料表.地區_cb.Text & "%' OR 店面地址 LIKE '%" & 供應商資料表.地區_cb.Text & "%' OR 工廠地址 LIKE '%" & 供應商資料表.地區_cb.Text & "%') AND 
                              (供應商 LIKE N'%" & PA & "%' OR 公司地址 LIKE N'%" & PA & "%' OR 電話1 LIKE N'%" & PA & "%' OR 
                               電話2 LIKE N'%" & PA & "%' OR 電話3 LIKE N'%" & PA & "%' OR 電話4 LIKE N'%" & PA & "%' OR 店面地址 LIKE N'%" & PA & "%' OR 店面電話 LIKE N'%" & PA & "%' OR 
                               簡稱 LIKE N'%" & PA & "%' OR 工廠地址 LIKE N'%" & PA & "%' OR 聯繫人1 LIKE N'%" & PA & "%' OR 聯繫人2 LIKE N'%" & PA & "%' OR 電話 LIKE N'%" & PA & "%' OR 
                               傳真 LIKE N'%" & PA & "%' OR 備註1 LIKE N'%" & PA & "%' OR 備註2 LIKE N'%" & PA & "%')
                        ORDER BY   編號"
            ElseIf 供應商資料表.地區編碼_cb.Text = "9" Or 供應商資料表.地區編碼_cb.Text = "Y" Then
                SQL1 = "SELECT 編號, 簡稱, 供應商, 公司地址, 電話1, 電話2, 電話3, 電話4, 店面地址, 店面電話, 工廠地址, 聯繫人1, 聯繫人2, 電話 AS 手機, 傳真, POS, 備註1, 備註2, 登入日期, 結算日, 
                               KR1, KR2, KR3, PEC, 停用
                        FROM   供應商資料表
                        WHERE (編號 LIKE N'" & 供應商資料表.地區編碼_cb.Text & "%') AND 
                              (供應商 LIKE N'%" & PA & "%' OR 公司地址 LIKE N'%" & PA & "%' OR 電話1 LIKE N'%" & PA & "%' OR 
                               電話2 LIKE N'%" & PA & "%' OR 電話3 LIKE N'%" & PA & "%' OR 電話4 LIKE N'%" & PA & "%' OR 店面地址 LIKE N'%" & PA & "%' OR 店面電話 LIKE N'%" & PA & "%' OR 
                               簡稱 LIKE N'%" & PA & "%' OR 工廠地址 LIKE N'%" & PA & "%' OR 聯繫人1 LIKE N'%" & PA & "%' OR 聯繫人2 LIKE N'%" & PA & "%' OR 電話 LIKE N'%" & PA & "%' OR 
                               傳真 LIKE N'%" & PA & "%' OR 備註1 LIKE N'%" & PA & "%' OR 備註2 LIKE N'%" & PA & "%')
                        ORDER BY   編號"
            End If
        End If
        CmdSet_For_DGV()
    End Sub
    Friend Sub SQL_供應商資料表_編號_最後一筆資料()
        ConnOpen() : SQL1 = "SELECT TOP (1) 編號 FROM 供應商資料表 WHERE (編號 LIKE N'" & 供應商資料表.地區編碼_cb.Text & "%') ORDER BY 編號 DESC" : CmdSet_For_dr()
    End Sub
    Friend Sub SQL_供應商資料表_新增()
        ConnOpen()
        SQL1 = "INSERT INTO 供應商資料表 (編號, 簡稱, 供應商, 公司地址, 電話1, 電話2, 電話3, 電話4, 店面地址, 店面電話, 工廠地址, 聯繫人1, 聯繫人2, 電話, 傳真, POS, 備註1, 
                                          備註2, 登入日期, 結算日, KR1, KR2, KR3, PEC, 停用) 
                VALUES (N'" & 供應商資料表.編號_tb.Text & "', N'', N'', N'', N'', N'', N'', N'', N'', N'', N'', N'', N'', N'', N'', N'', N'', N'', N'" & DTP & "', N'0', N'0', N'0', N'0', N'0', N'0')"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_供應商資料表_修改()
        ConnOpen()
        SQL1 = "UPDATE 供應商資料表 SET 簡稱 = N'" & 供應商資料表.簡稱_tb.Text & "', 供應商 = N'" & 供應商資料表.供應商_tb.Text & "', 公司地址 = N'" & 供應商資料表.公司地址_tb.Text & "', 
                                        電話1 = N'" & 供應商資料表.電話1_tb.Text & "', 電話2 = N'" & 供應商資料表.電話2_tb.Text & "', 電話3 = N'" & 供應商資料表.電話3_tb.Text & "', 
                                        電話4 = N'" & 供應商資料表.電話4_tb.Text & "', 店面地址 = N'" & 供應商資料表.店面地址_tb.Text & "', 店面電話 = N'" & 供應商資料表.店面電話_tb.Text & "', 
                                        工廠地址 = N'" & 供應商資料表.工廠地址_tb.Text & "', 聯繫人1 = N'" & 供應商資料表.聯繫人1_tb.Text & "', 聯繫人2 = N'" & 供應商資料表.聯繫人2_tb.Text & "', 
                                        電話 = N'" & 供應商資料表.手機_tb.Text & "', 傳真 = N'" & 供應商資料表.傳真_tb.Text & "', POS = N'" & 供應商資料表.POS_tb.Text & "', 
                                        備註1 = N'" & 供應商資料表.備註1_tb.Text & "', 備註2 = N'" & 供應商資料表.備註2_tb.Text & "', 登入日期 = N'" & 供應商資料表.登入日期_dtp.Value & "', 
                                        結算日 = N'" & 供應商資料表.結算日_nud.Value & "', KR1 = N'" & 供應商資料表.KR1_nud.Value & "', KR2 = N'" & 供應商資料表.KR2_nud.Value & "', 
                                        KR3 = N'" & 供應商資料表.KR3_nud.Value & "', PEC = N'" & 供應商資料表.PEC_cb.Text & "', 停用 = N'" & 供應商資料表.停用_ch.Checked & "' 
                WHERE (編號 = N'" & 供應商資料表.編號_tb.Text & "')"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_供應商資料表_刪除()
        ConnOpen() : SQL1 = "DELETE 供應商資料表 WHERE (編號 = N'" & 供應商資料表.編號_tb.Text & "')" : CmdSet_For_dr()
    End Sub
    '---------------------一般性申請採購單-----------------------------------------------------------------------------------------------------------------
    Friend Sub SQL_採購申請單_單據()
        ConnOpen() : SQL1 = "SELECT 執行單號, 申請人, 申請日期 FROM 倉儲明細表 WHERE (狀態 LIKE N'採購入庫') AND (審核人 LIKE '') GROUP BY 執行單號, 申請人, 申請日期" : CmdSet_For_DGV()
    End Sub
End Module