HSKIN-MIS-SYS-LEEHSIEHJUI/GRAMS-SYS/00、Module/SQL_Module.vb

Imports System.Data.SqlClient
Imports System.IO
Module SQL_Module
    Public ConString, ConString1, ConString2 As String
    Public SQL1 As String : Public SQL2 As String : Public SQL3 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, 
                        使用者權限管理表.CC28, 使用者權限管理表.CC29"
    Public 權限數量 As Integer = 29
    Friend Sub ConnOpen()
        conn.Close() : If conn.State = ConnectionState.Closed Then : conn.ConnectionString = ConString : conn.Open() : End If
    End Sub
    Friend Sub ConnOpen_ERP()
        conn.Close() : If conn.State = ConnectionState.Closed Then : conn.ConnectionString = ConString1 : conn.Open() : End If
    End Sub
    Friend Sub ConnOpen_圖庫SQL()
        conn.Close() : If conn.State = ConnectionState.Closed Then : conn.ConnectionString = ConString2 : 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
    Public Sub 查詢DGV中的關鍵字_自動(ByVal dgv As DataGridView, ByVal txtKeyword As TextBox)
        Dim keyword As String = txtKeyword.Text
        Dim found As Boolean = False
        dgv.ClearSelection()        ' 清除先前的选择
        Dim numColumns As Integer = dgv.Columns.Count        ' 获取 DataGridView 的列数
        Dim startRowIndex As Integer = If(lastFoundRowIndex = -1, 0, lastFoundRowIndex + 1)
        For colIndex As Integer = If(lastFoundRowIndex = -1, 0, lastFoundColIndex) To numColumns - 1
            For rowIndex As Integer = startRowIndex To dgv.Rows.Count - 1
                Dim cellValue As String = dgv.Rows(rowIndex).Cells(colIndex).Value.ToString()

                If cellValue.Contains(keyword) Then
                    dgv.Rows(rowIndex).Selected = True : dgv.FirstDisplayedScrollingRowIndex = rowIndex : found = True
                    lastFoundRowIndex = rowIndex : lastFoundColIndex = colIndex : Exit For
                End If
            Next : If found Then : Exit For : End If
        Next
        If Not found Then
            lastFoundRowIndex = -1 : lastFoundColIndex = -1 : dgv.FirstDisplayedScrollingRowIndex = 0 : 重新計算 = True : dgv.ClearSelection()
        Else : 重新計算 = False
        End If
    End Sub
End Module