UpdateClass(TDUpd〇〇)

Imports System.Data.SqlClient
Imports System.Text
Public Class TDUpdUserInfo
Inherits BaseDAO
Private Const TABLE_NAME As String = "UserInfo"
Private ReadOnly _tCls As TUserInfo
Sub New(ByVal tCls As TUserInfo)
MyBase.New
_tCls = tCls
End Sub

Protected Overrides Sub ExecuteImp()
Dim cmd As SqlCommand = Me.CreateCommand
Me.SetSQLParameters(cmd)
MyBase.Update(cmd)
End Sub

Protected Overrides Sub SetSQLParameters(ByVal cmd As SqlCommand)
'---ユーザID
cmd.Parameters.Add(New SqlParameter("@UserId", _tCls.UserId))
'---ユーザ名
cmd.Parameters.Add(New SqlParameter("@UserName", _tCls.UserName))
'---権限
cmd.Parameters.Add(New SqlParameter("@UserGrant", _tCls.UserGrant))
'---ステータス
cmd.Parameters.Add(New SqlParameter("@UserStatus", _tCls.UserStatus))
'---UpdateDatetime
cmd.Parameters.Add(New SqlParameter("@UpDatetime", DateTime.Now.ToString(STR_yyyyHMMHddSHHCmmCcc)))
End Sub

Private Function CreateCommand() As SqlCommand
Dim wrk As New StringBuilder
Dim cmd As New SqlCommand
_tCls.UserPassword = Utils.GetRndString(12)
wrk.Append($" UPDATE {TABLE_NAME} ")
wrk.Append(" SET ")
wrk.Append(" UserName = @UserName,")
wrk.Append(" UserGrant = @UserGrant,")
wrk.Append(" UserStatus = @UserStatus,")
wrk.Append(" UpdateTimeStamp = @UpDatetime")
wrk.Append(" WHERE ")
wrk.Append(" UserId = @UserId")
cmd.CommandText = wrk.ToString
Return cmd
End Function
End Class