HX-PGS-ERP-SYS-SIU/0、MyModule/子資料庫1/SQL_工程公式計算.vb

Module SQL_工程公式計算
    Friend Sub SQL_電線清單()
        ConnOpen_工程SQL()
        SQL1 = "SELECT    線別, 公稱截面積, [根數/直徑], 安培容量
                FROM              [公式-安培容量表]
                WHERE    (配線 LIKE N'" & PA1 & "') AND (絕緣物溫度 LIKE N'" & PA2 & "') AND (CONVERT(int, 安培容量) >= " & PA3 & ") AND  (導線管內導線數 LIKE N'" & PA4 & "')
                ORDER BY  排序"
        CmdSet_For_DGV()
    End Sub
    Friend Sub SQL_電線總類清單1()
        ConnOpen_工程SQL() : SQL1 = "SELECT  絕緣電線種類 FROM [公式-低壓絕緣電線最高容許溫度表] WHERE (CONVERT(int, 絕緣物容許溫度) >= " & PA1 & ")" : CmdSet_For_dr()
    End Sub
    Friend Sub SQL_安培容量表基數1()
        ConnOpen_工程SQL()
        SQL1 = "SELECT  公稱截面積  FROM  [公式-安培容量表]  WHERE  (線別 LIKE '" & PA9 & "')  GROUP BY  公稱截面積, 排序  ORDER BY   排序"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_安培容量表基數2()
        ConnOpen_工程SQL()
        SQL1 = "SELECT  [根數/直徑]  FROM  [公式-安培容量表]  WHERE  (線別 LIKE '" & PA9 & "')  GROUP BY  [根數/直徑], 排序  ORDER BY   排序"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_安培容量表基數3()
        ConnOpen_工程SQL()
        SQL1 = "SELECT     導線管內導線數  FROM  [公式-安培容量表]  WHERE  (配線 LIKE '" & PA9 & "')  GROUP BY   導線管內導線數
                ORDER BY  (CASE 導線管內導線數 WHEN 'NA' THEN '00' WHEN '3以下' THEN '01' WHEN '4' THEN '02' WHEN '5-6' THEN '03' WHEN
                           '7-10' THEN '04' WHEN '7-15' THEN '05' WHEN '7-15' THEN '06' WHEN '41-60' THEN '07' WHEN '61以上' THEN '08' ELSE '99' END)"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_安培容量表基數4()
        ConnOpen_工程SQL()
        SQL1 = "SELECT  [60℃], [75℃], [80℃], [90℃]  FROM  [公式-絕緣物周溫超標修正係數]  WHERE  (周圍溫度 LIKE N'" & PA9 & "')"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_安培容量表基數5()
        ConnOpen_工程SQL()
        SQL1 = "SELECT  公稱截面積  FROM  [公式-安培容量表]  WHERE  ([根數/直徑] LIKE N'" & PA9 & "')  GROUP BY  公稱截面積"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_安培容量表基數6()
        ConnOpen_工程SQL()
        SQL1 = "SELECT  安培容量 FROM [公式-安培容量表]
                WHERE  (配線 LIKE N'" & PA1 & "') AND (線別 LIKE N'" & PA2 & "') AND ([根數/直徑] LIKE N'" & PA3 & "') AND 
                       (絕緣物溫度 LIKE N'" & PA4 & "') AND (導線管內導線數 LIKE N'" & PA5 & "')"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_電纜安培容量表基數1()
        ConnOpen_工程SQL() : SQL1 = "SELECT  材質  FROM  [公式-電纜安培容量表]  WHERE  (施工 LIKE N'" & PA9 & "')  GROUP BY  材質" : CmdSet_For_dr()
    End Sub
    Friend Sub SQL_電纜安培容量表基數2()
        ConnOpen_工程SQL() : SQL1 = "SELECT  [管路數/心數]  FROM  [公式-電纜安培容量表]  WHERE  (材質 LIKE N'" & PA8 & "') AND (施工 LIKE N'" & PA9 & "')  GROUP BY  [管路數/心數]" : CmdSet_For_dr()
    End Sub
    Friend Sub SQL_電纜安培容量表基數3()
        ConnOpen_工程SQL()
        SQL1 = "SELECT    公稱截面積  FROM  [公式-電纜安培容量表]  WHERE  (材質 LIKE N'" & PA8 & "') AND (施工 LIKE N'" & PA9 & "') AND (額定電壓 LIKE N'" & PA7 & "')
                GROUP BY  公稱截面積  ORDER BY  CONVERT(int, 公稱截面積)"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_電纜安培容量表基數4()
        ConnOpen_工程SQL()
        SQL1 = "SELECT  安培容量  FROM   [公式-電纜安培容量表]
                WHERE  (材質 LIKE N'" & PA8 & "') AND (施工 LIKE N'" & PA9 & "') AND (額定電壓 LIKE N'" & PA7 & "') AND (公稱截面積 LIKE N'" & PA6 & "') AND ([管路數/心數] LIKE N'" & PA5 & "')"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_電纜安培容量表基數5()
        ConnOpen_工程SQL() : SQL1 = "SELECT  周圍溫度, 地下敷設, 暗渠空架  FROM  [公式-高壓電纜安培容量修正係數]  WHERE  (周圍溫度 LIKE N'" & PA9 & "')" : CmdSet_For_dr()
    End Sub
    Friend Sub SQL_電纜清單()
        ConnOpen_工程SQL()
        SQL1 = "SELECT     公稱截面積, 安培容量
                FROM      [公式-電纜安培容量表]
                WHERE     (施工 LIKE N'" & PA1 & "') AND (材質 LIKE N'" & PA2 & "') AND (CONVERT(int, 
                           安培容量) >= " & PA3 & ") AND (額定電壓 LIKE N'" & PA4 & "') AND ([管路數/心數] LIKE N'" & PA5 & "')
                ORDER BY  [管路數/心數], CONVERT(int, 公稱截面積)"
        CmdSet_For_DGV()
    End Sub
    Friend Sub 查詢電線(安培容量 As String, 截面積 As String)
        ConnOpen_工程SQL()
        SQL1 = "SELECT   DISTINCT    TOP (3)  線別,    CASE   WHEN 公稱截面積 != 'NA' THEN CAST(公稱截面積 AS FLOAT)   ELSE NULL  END AS mm2,   [根數/直徑],   CAST(安培容量 AS INT) AS 安培容許量
                         FROM [公式-安培容量表]
                         WHERE (CAST(安培容量 AS INT) >= " & 安培容量 & ")  AND (CASE  WHEN 公稱截面積 != 'NA' THEN CAST(公稱截面積 AS FLOAT)   ELSE 0  END >= " & 截面積 & ")
                         ORDER BY  安培容許量"
        CmdSet_For_DGV()
    End Sub
    Friend Sub 查詢電纜(安培容量 As String, 截面積 As String)
        ConnOpen_工程SQL()
        SQL1 = "SELECT  DISTINCT    TOP (3) 材質,[管路數/心數] AS [管路數/芯數] , CAST(公稱截面積 AS FLOAT)  AS mm2, CAST(安培容量 AS INT)  AS 安培容許量
                FROM      [公式-電纜安培容量表]
                WHERE     (CAST(安培容量 AS INT) >= " & 安培容量 & ") AND (CAST(公稱截面積 AS FLOAT) >= " & 截面積 & ")  
                ORDER BY  安培容許量"
        CmdSet_For_DGV()
    End Sub
End Module