17 lines
406 B
VB.net
17 lines
406 B
VB.net
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
|