GCM-ERP-SYS-LEEHSIEHJUI/工巧明智能管理系統/hx-pgs-erp-sys-team/0、MyModule/主資料庫/SQL_電腦預設值.vb

Module SQL_電腦預設值
    Friend Sub SQL_電腦預設值查詢()
        AccesConnOpen() : SQL1 = "SELECT 低網速模式, 系統語言 FROM 電腦預設值 WHERE 電腦識別碼 LIKE '" & 電腦識別碼 & "'" : AccesCmdSet_For_dr()
    End Sub
    Friend Sub SQL_電腦預設值建檔()
        AccesConnOpen() : SQL1 = "INSERT INTO 電腦預設值 (電腦識別碼, 低網速模式, 系統語言) VALUES ('" & 電腦識別碼 & "', '0', '繁體中文')" : AccesCmdSet_For_dr()
    End Sub
    Friend Sub SQL_電腦預設值修改_低網速模式()
        Dim BOL As Integer
        If 低網速模式 = True Then : BOL = 1 : Else : BOL = 0 : End If
        AccesConnOpen() : SQL1 = "UPDATE 電腦預設值 SET 低網速模式 = '" & BOL & "' WHERE (電腦識別碼 LIKE '" & 電腦識別碼 & "')" : AccesCmdSet_For_dr()
    End Sub
    Friend Sub SQL_電腦預設值修改_系統語言()
        AccesConnOpen() : SQL1 = "UPDATE 電腦預設值 SET 系統語言 = '" & 系統語言 & "' WHERE (電腦識別碼 LIKE '" & 電腦識別碼 & "')" : AccesCmdSet_For_dr()
    End Sub
    Friend Sub SQL_清單欄位查詢()
        AccesConnOpen() : SQL1 = "SELECT L_1_1, L_2_1, L_3_1, L_1_2, L_2_2, L_3_2 FROM 介面欄高 WHERE 介面編號 LIKE '" & 介面 & "'" : AccesCmdSet_For_dr()
    End Sub
    Friend Sub SQL_清單欄位建檔()
        AccesConnOpen()
        SQL1 = "INSERT INTO 介面欄高 (介面編號, L_1_1, L_2_1, L_3_1, L_1_2, L_2_2, L_3_2) 
                VALUES ('" & 介面 & "', '" & BBL1 & "', '" & BBL2 & "', '" & BBL3 & "', '" & BBL4 & "', '" & BBL5 & "', '" & BBL6 & "')"
        AccesCmdSet_For_dr()
    End Sub
    Friend Sub SQL_清單欄位修改1_2_3()
        AccesConnOpen() : SQL1 = "UPDATE 介面欄高 SET L_1_1 = '" & BBL1 & "', L_2_1 = '" & BBL2 & "', L_3_1 = '" & BBL3 & "' WHERE (介面編號 LIKE '" & 介面 & "')" : AccesCmdSet_For_dr()
    End Sub
    Friend Sub SQL_清單欄位修改4_5_6()
        AccesConnOpen() : SQL1 = "UPDATE 介面欄高 SET L_1_2 = '" & BBL4 & "', L_2_2 = '" & BBL5 & "', L_3_2 = '" & BBL6 & "' WHERE (介面編號 LIKE '" & 介面 & "')" : AccesCmdSet_For_dr()
    End Sub
End Module