40 lines
1.1 KiB
VB.net
40 lines
1.1 KiB
VB.net
Imports System.Data.SqlClient
|
|
Imports DigitalData.Modules.Base
|
|
Imports DigitalData.Modules.Logging
|
|
Imports EnvelopeGenerator.Common.My.Resources
|
|
|
|
Public Class UserModel
|
|
Inherits BaseModel
|
|
|
|
Public Sub New(pState As State)
|
|
MyBase.New(pState)
|
|
End Sub
|
|
|
|
Private Function ToUser(pRow As DataRow) As User
|
|
Dim oUser = New User() With {
|
|
.Id = pRow.ItemEx("GUID", 0),
|
|
.Prename = pRow.ItemEx("PRENAME", ""),
|
|
.Name = pRow.ItemEx("NAME", ""),
|
|
.Username = pRow.ItemEx("USERNAME", ""),
|
|
.Email = pRow.ItemEx("EMAIL", ""),
|
|
.Language = pRow.ItemEx("LANGUAGE", "")
|
|
}
|
|
|
|
Return oUser
|
|
End Function
|
|
|
|
Public Function SelectUser() As User
|
|
Try
|
|
Dim oSql = $"SELECT * FROM [dbo].[TBDD_USER] WHERE GUID = {State.UserId}"
|
|
Dim oTable = Database.GetDatatable(oSql)
|
|
|
|
Return oTable?.Rows.Cast(Of DataRow).
|
|
Select(AddressOf ToUser).First
|
|
Catch ex As Exception
|
|
Logger.Error(ex)
|
|
Return Nothing
|
|
End Try
|
|
End Function
|
|
|
|
End Class
|