16 lines
410 B
VB.net
16 lines
410 B
VB.net
Imports Modules.Database
|
|
|
|
Public Class ClassCurrentUser
|
|
Public Username As String
|
|
Public Language As String
|
|
|
|
Private DBFirebird As Firebird
|
|
|
|
Public Sub New(DBFirebird As Firebird)
|
|
Username = Environment.UserName
|
|
|
|
Dim sql As String = $"SELECT FNGET_USER_ACCESS('edm','{Username}') FROM rdb$database"
|
|
Dim result = DBFirebird.GetExecuteScalar(sql)
|
|
End Sub
|
|
End Class
|