MAOJI-ERP-SYS-LEEHSIEHJUI/MaoOrange-Hongji/Module/SQL_總務系統管理.vb

Module SQL_總務系統管理
    '---------------------車輛保養紀錄表-----------------------------------------------------------------------------------------------------------------
    Friend Sub SQL_車輛保養紀錄表()
        ConnOpen()
        SQL1 = "SELECT 流水號, 車牌號碼, 保養日期, 預保日期, 里程數 FROM 車輛保養紀錄表 WHERE 車牌號碼 LIKE '" & 車輛保養紀錄表.車牌號碼_cb.Text & "' ORDER BY 保養日期 DESC"
        CmdSet_For_DGV()
    End Sub
    Friend Sub SQL_車牌號碼清單()
        ConnOpen() : SQL1 = "SELECT 車牌號碼 FROM 車輛保養紀錄表 GROUP BY 車牌號碼 ORDER BY 車牌號碼" : CmdSet_For_dr()
    End Sub
    Friend Sub SQL_車輛保養紀錄表流水號最後一筆()
        ConnOpen() : SQL1 = "SELECT TOP (1) 流水號 FROM 車輛保養紀錄表 ORDER BY 流水號 DESC" : CmdSet_For_dr()
    End Sub
    Friend Sub SQL_車輛保養紀錄表圖片讀取()
        ConnOpen() : SQL1 = "SELECT 圖片 FROM 車輛保養紀錄表 WHERE 流水號 LIKE ('" & 車輛保養紀錄表.流水號_tb.Text & "') AND (圖片 IS NOT NULL)" : CmdSet_For_dr()
    End Sub
    Friend Sub SQL_車輛保養紀錄表新增_無圖片()
        ConnOpen()
        SQL1 = "INSERT INTO 車輛保養紀錄表 (流水號, 車牌號碼, 保養日期, 預保日期, 里程數) SELECT '" & 車輛保養紀錄表.流水號_tb.Text & "', '" & 車輛保養紀錄表.車牌號碼_cb.Text &
                                            "', '" & DTP1 & "', '" & DTP2 & "', '" & 車輛保養紀錄表.里程數_nud.Value & "'"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_車輛保養紀錄表新增_有圖片()
        ConnOpen()
        SQL1 = "INSERT INTO 車輛保養紀錄表 (流水號, 車牌號碼, 保養日期, 預保日期, 里程數, 圖片) 
                SELECT '" & 車輛保養紀錄表.流水號_tb.Text & "', '" & 車輛保養紀錄表.車牌號碼_cb.Text & "', '" & DTP1 & "', '" & DTP2 &
                   "', '" & 車輛保養紀錄表.里程數_nud.Value & "', BULKCOLUMN FROM OPENROWSET (BULK '" & FTP物理位置 & AA(1) & "\" & 車輛保養紀錄表.檔案名稱_tb.Text &
                   "', SINGLE_BLOB) AS EMPLOYEEPICTURE"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_車輛保養紀錄表修改_無圖片()
        ConnOpen()
        SQL1 = "UPDATE 車輛保養紀錄表 SET 保養日期 = '" & DTP1 & "', 預保日期 = '" & DTP2 & "', 里程數 = '" & 車輛保養紀錄表.里程數_nud.Value & "' 
                WHERE (流水號 = '" & 車輛保養紀錄表.流水號_tb.Text & "')"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_車輛保養紀錄表修改_有圖片()
        ConnOpen()
        SQL1 = "UPDATE 車輛保養紀錄表 SET 保養日期 = '" & DTP1 & "', 預保日期 = '" & DTP2 & "', 里程數 = '" & 車輛保養紀錄表.里程數_nud.Value &
                                          "', 圖片 = BULKCOLUMN FROM OPENROWSET (BULK '" & FTP物理位置 & AA(1) & "\" & 車輛保養紀錄表.檔案名稱_tb.Text & "', SINGLE_BLOB) AS EMPLOYEEPICTURE 
                WHERE (流水號 = '" & 車輛保養紀錄表.流水號_tb.Text & "')"
        CmdSet_For_dr()
    End Sub
End Module