| 123456789101112131415161718192021222324252627282930313233 |
-
- Imports System.Data.SqlClient
- Imports System.IO
- Module SQL_Module
- Public LINE_權限數量 As Integer = 61
- Public LINE_系統權限 As String = "CC200,CC201,CC202,CC203,CC204,CC205,CC206,CC207,CC208,CC209,CC210,CC211,CC212,CC213,CC214,CC215,CC216,CC217,
- CC218,CC219,CC220,CC221,CC222,CC223,CC224,CC225,CC226,CC227,CC228,CC229,CC230,CC231,CC232,CC233,CC234,CC235,CC236,CC237,
- CC238,CC239,CC240,CC241,CC242,CC243,CC244,CC245,CC246,CC247,CC248,CC249,CC250,CC251,CC252,CC253,CC254,CC255,CC256,CC257,
- CC258,CC259,CC260"
- Public LINE_登入權限 As String = "姓名, 帳號 AS 公司名稱,UserID,通知語言,電話號碼1,電話號碼2,電話號碼3,Line,WhatsApp,Message," & LINE_系統權限
- Public LINE_登入權限_IN As String = "姓名, 帳號 ,UserID,通知語言,電話號碼1,電話號碼2,電話號碼3,Line,WhatsApp,Message," & LINE_系統權限
- Public LINE_登入權限2 As String = "使用者權限管理表_1.姓名, 使用者權限管理表_1.帳號, 使用者權限管理表.UserID, 使用者權限管理表.通知語言, 使用者權限管理表.電話號碼1,
- 使用者權限管理表.電話號碼2, 使用者權限管理表.電話號碼3, 使用者權限管理表.Line, 使用者權限管理表.WhatsApp, 使用者權限管理表.Message," & LINE_系統權限
- Public ConString4, ConString3 As String
- Public SQL1, SQL2, SQL3, SQL4, SQL5, SQL6, SQL7, SQL8, SQL9, SQL10 As String
- Public conn As New SqlConnection : Public cmd As New SqlCommand
- Public dr As SqlDataReader : Public da As New SqlDataAdapter
-
- Friend Sub ConnOpen_LINE_SQL()
- SQL_連線字串_測試_LINE_SQL()
- conn.Close() : If conn.State = ConnectionState.Closed Then : conn.ConnectionString = ConString4 : conn.Open() : End If
- End Sub
- Friend Sub ConnOpen_LINE_LOG_SQL()
- SQL_連線字串_LINE_LOG_SQL()
- conn.Close() : If conn.State = ConnectionState.Closed Then : conn.ConnectionString = ConString3 : 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
|
