Imports DD_FirebirdDLL

Public Class ClassCurrentUser
    Public Username As String
    Public Language As String

    Private DB As ClassFirebird

    Public Sub New(DB As ClassFirebird)
        Username = Environment.UserName
        DB = DB

        Dim sql As String = $"SELECT FNGET_USER_ACCESS('edm','{Username}') FROM rdb$database"
        Dim result = DB.ReturnScalar(sql)
    End Sub
End Class