Imports System.Data.OleDb
Imports System.Data.SqlClient
Imports System.IO

Module SQL_Module
    Public ConString As String : Public ConString1, ConString2, ConString3, ConString4 As String : Public AccessConString As String
    Public SQL As String : Public SQL1 As String : Public SQL2 As String : Public SQL3 As String : Public SQL4 As String
    Public 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
    Public DTP As String : Public DTP1 As String : Public DTP2 As String : Public DTP3 As String
    Public 登入權限 As String = ", 使用者權限管理表.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"
    Public 權限數量 As Integer = 27
    Public Acdr As OleDbDataReader
    Public Access1 As New OleDbConnection : Public AccesCmd As OleDbCommand
    Friend Sub ConnOpen()
        conn.Close() : If conn.State = ConnectionState.Closed Then : conn.ConnectionString = ConString : conn.Open() : End If
    End Sub
    Friend Sub ConnOpen_AM()
        conn.Close() : If conn.State = ConnectionState.Closed Then : conn.ConnectionString = ConString1 : 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
    Friend Sub CmdSet_For_dr_pic()
        Dim fs As FileStream : fs = File.OpenRead(PA49) : Dim picb(fs.Length) As Byte : fs.Read(picb, 0, fs.Length) : fs.Close() : cmd.Parameters.Clear()
        cmd.CommandText = SQL1 : cmd.Parameters.Add("@binary_file", SqlDbType.VarBinary).Value = picb : cmd.Connection = conn : dr = cmd.ExecuteReader
    End Sub
    Friend Sub AccesConnOpen()
        Access1.Close() : If Access1.State = ConnectionState.Closed Then : Access1.ConnectionString = AccessConString : Access1.Open() : End If
    End Sub
    Friend Sub AccesCmdSet_For_dr()
        AccesCmd = New OleDbCommand(SQL1, Access1) : Acdr = AccesCmd.ExecuteReader
    End Sub
    '---------------系統應用模組--------------------------------------------------------------------------------------------------------------------------------------------------------
    Public Class MyModule1
        Friend Shared Sub 進度條()
            平均數 = 10000 / 資料數
            最終數 += 平均數
            If 最終數 > 10000 Then : 最終數 = 10000 : End If
            GCM_ERP_SYS.ToolStripProgressBar1.Value = 最終數
        End Sub
        Friend Shared Sub 進度條1()
            If 資料數 = 0 Then : 平均數 = 0 : Else : 平均數 = 10000 / 資料數 : End If
            最終數 += 平均數
            If 最終數 > 10000 Then : 最終數 = 10000 : End If
            進度條視窗.ProgressBar1.Value = 最終數
        End Sub
        Friend Shared Sub 清單字體大小調整()
            If GCM_ERP_SYS.Size.Width >= 1440 And GCM_ERP_SYS.Size.Height >= 900 Then
                GCM_ERP_SYS.字體_NUD.Value = 9
            ElseIf GCM_ERP_SYS.Size.Width <= 1440 And GCM_ERP_SYS.Size.Height <= 900 Then
                GCM_ERP_SYS.字體_NUD.Value = 7.6
            End If
        End Sub
        Friend Shared Sub 計算顯示2()
            計算累加 += 1
            進度條視窗.Text = "請勿操作電腦 / Jangan Mengoperasikan Komputer -- [" & Strings.Format((計算累加 + 1), "#,##0") & "] Data Are Being Calculated !! -- "
        End Sub
        Friend Shared Sub 計算顯示3()
            進度條視窗.Text = "Progress Bar Window" : 進度條視窗.Close() : 進度條視窗.ProgressBar1.Value = 0 : 最終數 = 0 : 計算累加 = 0
        End Sub
        Friend Shared Sub 間距設定存檔_1()
            BBL1 = 1 : BBL2 = 0 : BBL3 = 0 : SQL_清單欄位查詢()
            If Acdr.Read() Then : Access1.Close() : SQL_清單欄位修改1_2_3() : Else : BBL4 = 0 : BBL5 = 0 : BBL6 = 0 : Access1.Close() : SQL_清單欄位建檔() : End If : Access1.Close()
        End Sub
        Friend Shared Sub 間距設定存檔_2()
            BBL1 = 0 : BBL2 = 1 : BBL3 = 0 : SQL_清單欄位查詢()
            If Acdr.Read() Then : Access1.Close() : SQL_清單欄位修改1_2_3() : Else : BBL4 = 0 : BBL5 = 0 : BBL6 = 0 : Access1.Close() : SQL_清單欄位建檔() : End If : Access1.Close()
        End Sub
        Friend Shared Sub 間距設定存檔_3()
            BBL1 = 0 : BBL2 = 0 : BBL3 = 1 : SQL_清單欄位查詢()
            If Acdr.Read() Then : Access1.Close() : SQL_清單欄位修改1_2_3() : Else : BBL4 = 0 : BBL5 = 0 : BBL6 = 0 : Access1.Close() : SQL_清單欄位建檔() : End If : Access1.Close()
        End Sub
        Friend Shared Sub 間距設定存檔_4()
            BBL4 = 1 : BBL5 = 0 : BBL6 = 0 : SQL_清單欄位查詢()
            If Acdr.Read() Then : Access1.Close() : SQL_清單欄位修改4_5_6() : Else : BBL1 = 0 : BBL2 = 0 : BBL3 = 0 : Access1.Close() : SQL_清單欄位建檔() : End If : Access1.Close()
        End Sub
        Friend Shared Sub 間距設定存檔_5()
            BBL4 = 0 : BBL5 = 1 : BBL6 = 0 : SQL_清單欄位查詢()
            If Acdr.Read() Then : Access1.Close() : SQL_清單欄位修改4_5_6() : Else : BBL1 = 0 : BBL2 = 0 : BBL3 = 0 : Access1.Close() : SQL_清單欄位建檔() : End If : Access1.Close()
        End Sub
        Friend Shared Sub 間距設定存檔_6()
            BBL4 = 0 : BBL5 = 6 : BBL6 = 0 : SQL_清單欄位查詢()
            If Acdr.Read() Then : Access1.Close() : SQL_清單欄位修改4_5_6() : Else : BBL1 = 0 : BBL2 = 0 : BBL3 = 0 : Access1.Close() : SQL_清單欄位建檔() : End If : Access1.Close()
        End Sub
    End Class
End Module