MAOJI-ERP-SYS-LEEHSIEHJUI/MaoOrange-Hongji/Module/SQL_Module.vb

Imports System.Data.SqlClient
Module SQL_Module
    Public ConString As String : Public SQL1 As String : Public conn As New SqlConnection : Public cmd As New SqlCommand : Public dr As SqlDataReader : Public da As New SqlDataAdapter
    Public DTP As String : Public DTP1 As String : Public DTP2 As String : Public DTP3 As String
    Public 登入權限 As String = "姓名, 帳號, 密碼, CC00, CC01, CC02, CC03, CC04, CC05, CC06, CC07, CC08, CC09, CC10, CC11, CC12, CC13, CC14, CC15, CC16, CC17, CC18, CC19, CC20, CC21, CC22, CC23, 
                                 CC24, CC25, CC26, CC27, CC28, CC29, CC30, CC31, CC32, CC33, CC34, CC35, CC36, CC37, CC38, CC39, CC40, CC41, CC42, CC43, CC44, CC45, CC46, CC47, CC48, CC49, CC50, 
                                 CC51, CC52, CC53, CC54, CC55, CC56, CC57, CC58, CC59 "
    Public 權限數量 As Integer = 59
    Friend Sub SQL_連線字串_測試()
        ConString = "Data Source=" & 登入人IP & ";Initial Catalog=MAO-ORANGE-ERP-SYS;Persist Security Info=True;User ID=B70340;Password=Lee0911274990;Max pool size = 200;Connection Timeout=0"
    End Sub
    Friend Sub SQL_連線字串_正式()
        ConString = "Data Source=" & 登入人IP & ";Initial Catalog=MAO-ORANGE-ERP-SYS;Persist Security Info=True;User ID=B70340;Password=lee0911274990;Max pool size = 200;Connection Timeout=0"
    End Sub
    Friend Sub ConnOpen()
        conn.Close() : If conn.State = ConnectionState.Closed Then : conn.ConnectionString = ConString : conn.Open() : End If
    End Sub
    Friend Sub CmdSet_For_DGV()
        cmd.Connection = conn : cmd.CommandText = SQL1 : da.SelectCommand = cmd
    End Sub
    Friend Sub CmdSet_For_dr()
        cmd.CommandText = SQL1 : cmd.Connection = conn : dr = cmd.ExecuteReader
    End Sub
End Module