GF00-ERP-SYS-LEEHSIEHJUI/GF00-ERP-SYS/0.MyModule/主資料庫/SQL_電腦預設值.vb

Module SQL_電腦預設值
    Friend Sub SQL_電腦預設值查詢()
        'AccesConnOpen() : SQL1 = "SELECT 低網速模式, 系統語言 FROM 電腦預設值 WHERE 電腦識別碼 LIKE N'" & 電腦識別碼 & "'" : AccesCmdSet_For_dr()
    End Sub
    Friend Sub SQL_電腦預設值建檔()
        'AccesConnOpen() : SQL1 = "INSERT INTO 電腦預設值 (電腦識別碼, 低網速模式, 系統語言) VALUES ('" & 電腦識別碼 & "', '0', '繁體中文')" : 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 N'" & 介面 & "'" : 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 = N'" & BBL1 & "', L_2_1 = N'" & BBL2 & "', L_3_1 = N'" & BBL3 & "' WHERE (介面編號 LIKE N'" & 介面 & "')" : AccesCmdSet_For_dr()
    End Sub
    Friend Sub SQL_清單欄位修改4_5_6()
        'AccesConnOpen() : SQL1 = "UPDATE 介面欄高 SET L_1_2 = N'" & BBL4 & "', L_2_2 = N'" & BBL5 & "', L_3_2 = N'" & BBL6 & "' WHERE (介面編號 LIKE N'" & 介面 & "')" : AccesCmdSet_For_dr()
    End Sub
End Module