NSD_SocketUserInfo メンバ
ユーザーの管理をします。
●コンストラクタ
名前 説明 NSD_SocketUserInfo NSD_SocketUserInfoを初期化します。
●プロパティの一覧
名前 説明 GetLoginOkStringMsg ログインで使用可能文字を示すメッセージ文字列を返します。 StdFolder 基準フォルダを設定します。
●メソッドの一覧
名前 引数 戻り値 説明 ReadUserList ( String , String , ArrayList ) Boolean型 ユーザー定義ファイルを読み込みます。 WriteUserList ( String , String , ArrayList ) Boolean型 ユーザー定義ファイルに書き込みます。 IsAddUser ( ArrayList , NSDUserInfo ) ERR_KIND ユーザーが追加可能かを確認します。 AddUser ( ArrayList , NSDUserInfo ) ERR_KIND ユーザーを追加します。 ChangeUser ( ArrayList , NSDUserInfo ) ERR_KIND ユーザーを変更します。 DeleteUser ( ArrayList , NSDUserInfo ) ERR_KIND ユーザーを削除します。 GetUser ( ArrayList , Integer , NSDUserInfo ) ERR_KIND ユーザーリストから指定ユーザーの情報を取得します。 IsOkLoginNameString ( String ) ERR_KIND ログイン名の確認を行います。 IsOkPasswordString ( String ) ERR_KIND パスワード文字の確認を行います。 IsFoundLoginName ( ArrayList , String ) Integer型 ログイン名を探します。 IsFoundPassword ( ArrayList , Integer , String , NSDUserInfo ) Boolean型 パスワードを確認します。 GetErrMsg ( Err ) String型 エラーメッセージを返します。
●データ用クラスの一覧
構文:
Public Class NSDUserFileInfo
Public IDNo As Int32 = 0
Public StdFolder As String = Nothing
Public UserInfo() As NSDUserInfo = Nothing
End Class内容:コンテントタイプ情報。
名前 型 説明 IDNo Int32 ID番号の割り振り用。(既定値:0) StdFolder String 基準フォルダー名。(既定値:Nothing) UserInfo() NSDSocket.NSD_SocketUserInfo.NSDUserInfo ユーザー情報。(既定値:Nothing)
●定数の一覧
名前:ERR_KIND (エラー番号) 名前 内容 OK 成功しました。 LoginNameNothing ログイン名がありません。 LoginNameCountLittle ログイン名の文字数が4文字以下です。 LoginNameCountLot ログイン名が256文字を超えています。 LoginNameNotUseString ログイン名に使用できない文字が含まれています。 LoginNameEqual 同じログイン名が既に存在します。 UserNameEqual 同じユーザー名が既に存在します。 DataNotFound 変更データがありません。 AddCountMax これ以上追加はできません。
●NSD_SocketUserInfoコンストラクタの説明
使用法:Public ClsPub_UserInfo As New NSDSocket.NSD_SocketUserInfo
引数:なし。
使用例:
Public Class Form1 Private Sub Button1_Click( ByVal sender As System.Object, _ ByVal e As System.EventArgs) Handles Button1.Click : Dim Cls_UserInfo As New NSDSocket.NSD_SocketUserInfo : End Sub End Class
●NSD_SocketUserInfoプロパティの説明
構文:Public ReadOnly Property GetLoginOkStringMsg() As String
機能:ログインで使用可能文字を示すメッセージ文字列を返します。
引数:なし。
値:String
値の説明:
ログインで使用可能文字を示すメッセージ文字列を返します。
使用例:
Public Class Form1 Private Sub Button1_Click( ByVal sender As System.Object, _ ByVal e As System.EventArgs) Handles Button1.Click Dim Cls_UserInfo As New NSDSocket.NSD_SocketUserInfo MsgBox("ログイン可能文字列:" & Cls_UserInfo.GetLoginOkStringMsg) : End Sub End Class
名前:StdFolder
構文:Public Property StdFolder() As String
機能:基準フォルダーを設定します。
引数:なし。
値:String
値の説明:
基準フォルダーを設定します。
使用例:
Public Class Form1 Private Sub Button1_Click( ByVal sender As System.Object, _ ByVal e As System.EventArgs) Handles Button1.Click Dim Cls_UserInfo As New NSDSocket.NSD_SocketUserInfo Cls_UserInfo.StdFolder = Application.StartupPath & "\SampleDataFolder" System.IO.Directory.CreateDirectory(Cls_UserInfo.StdFolder) End Sub End Class
●NSD_SocketUserInfoメソッドの説明
名前:ReadUserList
構文:Public Function ReadUserList( UserListFile , StdFolder , UserList ) As Boolean
機能:ユーザー定義ファイルを読み込みます。
引数:
名前 型 引数渡しの方法 説明 UserListFile String 値渡し(ByVal) ユーザーリストファイルのフルパス名を渡します。 StdFolder String 参照渡し(ByRef) 基準フォルダー名を返します。 UserList ArrayList 参照渡し(ByRef) ユーザーリストを返します。 戻り値:Boolean
戻り値の説明:
True:成功 False:失敗
戻り値:なし。
使用例:
Public Class Form1 Private Sub Button1_Click( ByVal sender As System.Object, _ ByVal e As System.EventArgs) Handles Button1.Click Dim Cls_UserInfo As New NSDSocket.NSD_SocketUserInfo Dim Str_StdFolder As String = Nothing Dim Cls_User As System.Collections.ArrayList = Nothing Cls_UserInfo.ReadUserList("ファイル名", Str_StdFolder, Cls_User) End Sub End Class
構文:Public Function WriteUserList( UserListFile , StdFolder , UserList ) As Boolean
機能:ユーザー定義ファイルに書き込みます。
引数:
名前 型 引数渡しの方法 説明 UserListFile String 値渡し(ByVal) ユーザーリストファイルのフルパス名を渡します。 StdFolder String 値渡し(ByVal) 基準フォルダー名を渡します。 UserList ArrayList 参照渡し(ByRef) ユーザーリストを渡します。 戻り値:なし。
使用例:
Public Class Form1 Private Sub Button1_Click( ByVal sender As System.Object, _ ByVal e As System.EventArgs) Handles Button1.Click Dim Cls_UserInfo As New NSDSocket.NSD_SocketUserInfo Dim Cls_User As System.Collections.ArrayList = Nothing : Cls_UserInfo.WriteUserList("ファイル名", "基準フォルダー", Cls_User) End Sub End Class
名前:IsAddUser
構文:Public Function IsAddUser( UserList , UserInfo ) As ERR_KIND
機能:ユーザーが追加可能かを確認します。
引数:
名前 型 引数渡しの方法 説明 UserList ArrayList 参照渡し(ByRef) ユーザーリストを渡します。 UserInfo NSDSocket.NSD_SocketUserInfo.NSDUserInfo 値渡し(ByVal) ユーザー情報を渡します。 戻り値:ERR_KIND
戻り値の説明:
エラー定数(ERR_KIND)で返します。
使用例:
Public Class Form1 Private Sub Button1_Click( ByVal sender As System.Object, _ ByVal e As System.EventArgs) Handles Button1.Click Dim Cls_UserInfo As New NSDSocket.NSD_SocketUserInfo Dim Cls_User As System.Collections.ArrayList = Nothing Dim Cls_OneUser As New NSDSocket.NSD_SocketUserInfo.NSDUserInfo Cls_OneUser.Name = "ユーザー名" Cls_OneUser.LoginName = "ログイン名" : Cls_UserInfo.IsAddUser( Cls_User , Cls_OneUser ) End Sub End Class
名前:AddUser
構文:Public Function AddUser( UserList , UserInfo ) As ERR_KIND
機能:ユーザーを追加します。
引数:
名前 型 引数渡しの方法 説明 UserList ArrayList 参照渡し(ByRef) ユーザーリストを渡します。 UserInfo NSDSocket.NSD_SocketUserInfo.NSDUserInfo 参照渡し(ByRef) ユーザー情報を渡します。 戻り値:ERR_KIND
戻り値の説明:
エラー定数(ERR_KIND)で返します。
使用例:
Public Class Form1 Private Sub Button1_Click( ByVal sender As System.Object, _ ByVal e As System.EventArgs) Handles Button1.Click Dim Cls_UserInfo As New NSDSocket.NSD_SocketUserInfo Dim Cls_User As System.Collections.ArrayList = Nothing Dim Cls_OneUser As New NSDSocket.NSD_SocketUserInfo.NSDUserInfo Cls_OneUser.Name = "ユーザー名" Cls_OneUser.LoginName = "ログイン名" : Cls_UserInfo.AddUser( Cls_User , Cls_OneUser ) End Sub End Class
名前:ChangeUser
構文:Public Function ChangeUser( UserList , UserInfo ) As ERR_KIND
機能:ユーザーを追加します。
引数:
名前 型 引数渡しの方法 説明 UserList ArrayList 参照渡し(ByRef) ユーザーリストを渡します。 UserInfo NSDSocket.NSD_SocketUserInfo.NSDUserInfo 値渡し(ByVal) ユーザー情報を渡します。 戻り値:ERR_KIND
戻り値の説明:
エラー定数(ERR_KIND)で返します。
使用例:
Public Class Form1 Private Sub Button1_Click( ByVal sender As System.Object, _ ByVal e As System.EventArgs) Handles Button1.Click Dim Cls_UserInfo As New NSDSocket.NSD_SocketUserInfo Dim Cls_User As System.Collections.ArrayList = Nothing : Cls_UserInfo.ReadUserList("ファイル名", "基準フォルダー", Cls_User) : Dim Cls_OneUser As NSDSocket.NSD_SocketUserInfo.NSDUserInfo = Cls_User.Item(0) Cls_OneUser.Name = "変更ユーザー名" : Cls_UserInfo.ChangeUser( Cls_User , Cls_OneUser ) End Sub End Class
名前:DeleteUser
構文:Public Function DeleteUser( UserList , UserInfo ) As ERR_KIND
機能:ユーザーを削除します。
引数:
名前 型 引数渡しの方法 説明 UserList ArrayList 参照渡し(ByRef) ユーザーリストを渡します。 UserInfo NSDSocket.NSD_SocketUserInfo.NSDUserInfo 値渡し(ByVal) ユーザー情報を渡します。 戻り値:ERR_KIND
戻り値の説明:
エラー定数(ERR_KIND)で返します。
使用例:
Public Class Form1 Private Sub Button1_Click( ByVal sender As System.Object, _ ByVal e As System.EventArgs) Handles Button1.Click Dim Cls_UserInfo As New NSDSocket.NSD_SocketUserInfo Dim Cls_User As System.Collections.ArrayList = Nothing : Cls_UserInfo.ReadUserList("ファイル名", "基準フォルダー", Cls_User) : Dim Cls_OneUser As NSDSocket.NSD_SocketUserInfo.NSDUserInfo = Cls_User.Item(0) : Cls_UserInfo.DeleteUser( Cls_User , Cls_OneUser ) End Sub End Class
名前:GetUser
構文:Public Function GetUser( UserList , ID , UserInfo ) As ERR_KIND
機能:ユーザーを削除します。
引数:
名前 型 引数渡しの方法 説明 UserList ArrayList 値渡し(ByVal) ユーザーリストを渡します。 ID Integer 参照渡し(ByRef) ユーザーIDを渡します。 UserInfo NSDSocket.NSD_SocketUserInfo.NSDUserInfo 参照渡し(ByRef) ユーザー情報を渡します。 戻り値:ERR_KIND
戻り値の説明:
エラー定数(ERR_KIND)で返します。
使用例:
Public Class Form1 Private Sub Button1_Click( ByVal sender As System.Object, _ ByVal e As System.EventArgs) Handles Button1.Click Dim Cls_UserInfo As New NSDSocket.NSD_SocketUserInfo Dim Cls_User As System.Collections.ArrayList = Nothing : Cls_UserInfo.ReadUserList("ファイル名", "基準フォルダー", Cls_User) : Dim Cls_OneUser As NSDSocket.NSD_SocketUserInfo.NSDUserInfo = Nothing Cls_UserInfo.GetUser( Cls_User , 1 , Cls_OneUser ) End Sub End Class
構文:Public Function IsOkLoginNameString( Name ) As ERR_KIND
機能:ログイン名の確認を行います。
引数:
名前 型 引数渡しの方法 説明 Name String 値渡し(ByVal) ログイン名を渡します。 戻り値:ERR_KIND
戻り値の説明:
エラー定数(ERR_KIND)で返します。
使用例:
Public Class Form1 Private Sub Button1_Click( ByVal sender As System.Object, _ ByVal e As System.EventArgs) Handles Button1.Click Dim Cls_UserInfo As New NSDSocket.NSD_SocketUserInfo Dim Cls_User As System.Collections.ArrayList = Nothing : Cls_UserInfo.ReadUserList("ファイル名", "基準フォルダー", Cls_User) : Cls_UserInfo.IsOkLoginNameString( Cls_User , "ログイン名" ) End Sub End Class
構文:Public Function IsOkPasswordString( Password ) As Boolean
機能:パスワード文字の確認を行います。
引数:
名前 型 引数渡しの方法 説明 Password String 値渡し(ByVal) パスワードを渡します。 戻り値:ERR_KIND
戻り値の説明:
エラー定数(ERR_KIND)で返します。
使用例:
Public Class Form1 Private Sub Button1_Click( ByVal sender As System.Object, _ ByVal e As System.EventArgs) Handles Button1.Click Dim Cls_UserInfo As New NSDSocket.NSD_SocketUserInfo Dim Cls_User As System.Collections.ArrayList = Nothing : Cls_UserInfo.ReadUserList("ファイル名", "基準フォルダー", Cls_User) : Cls_UserInfo.IsOkPasswordString( Cls_User , "パスワード" ) End Sub End Class
構文:Public Function IsFoundLoginName( UserList , LoginName ) As Integer
機能:ログイン名を探します。
引数:
名前 型 引数渡しの方法 説明 UserList ArrayList 参照渡し(ByRef) ユーザーリストを渡します。 LoginName String 値渡し(ByVal) ログイン名を渡します。 戻り値:Integer
戻り値の説明:
0 = ログイン名がありません。
0 <> IDを戻します。使用例:
Public Class Form1 Private Sub Button1_Click( ByVal sender As System.Object, _ ByVal e As System.EventArgs) Handles Button1.Click Dim Cls_UserInfo As New NSDSocket.NSD_SocketUserInfo Dim Cls_User As System.Collections.ArrayList = Nothing : Cls_UserInfo.ReadUserList("ファイル名", "基準フォルダー", Cls_User) : Dim Int_ID As Integer = Cls_UserInfo.IsFoundLoginName( Cls_User , "ログイン名" ) End Sub End Class
構文:Public Function IsFoundPassword( UserList , ID , Password , UserInfo ) As Boolean
機能:ログイン名を探します。
引数:
名前 型 引数渡しの方法 説明 UserList ArrayList 参照渡し(ByRef) ユーザーリストを渡します。 ID Integer 値渡し(ByVal) IDを渡します。 Password String 値渡し(ByVal) パスワードを渡します。 UserInfo NSDSocket.NSD_SocketUserInfo.NSDUserInfo 参照渡し(ByRef) ユーザー情報を返します。 戻り値:Integer
戻り値の説明:
True : パスワードが一致しました。
False : パスワードが一致しません。使用例:
Public Class Form1 Private Sub Button1_Click( ByVal sender As System.Object, _ ByVal e As System.EventArgs) Handles Button1.Click Dim Cls_UserInfo As New NSDSocket.NSD_SocketUserInfo Dim Cls_User As System.Collections.ArrayList = Nothing : Cls_UserInfo.ReadUserList("ファイル名", "基準フォルダー", Cls_User) : Dim Cls_OneUser As NSDSocket.NSD_SocketUserInfo.NSDUserInfo = Nothing Cls_UserInfo.IsFoundPassword( Cls_User , 1 , "パスワード" , Cls_OneUser ) End Sub End Class
名前:GetErrMsg
構文:Public Function GetErrMsg( Err ) As String
機能:エラーメッセージを返します。
引数:
名前 型 引数渡しの方法 説明 Err ERR_KIND 値渡し(ByVal) エラー番号を渡します。 戻り値:String
戻り値の説明:
エラーメッセージを返します。
※エラーが無い場合はNothingを返します。使用例:
Public Class Form1 Private Sub Button1_Click( ByVal sender As System.Object, _ ByVal e As System.EventArgs) Handles Button1.Click Dim Cls_UserInfo As New NSDSocket.NSD_SocketUserInfo Dim Cls_User As System.Collections.ArrayList = Nothing Dim Cls_OneUser As New NSDSocket.NSD_SocketUserInfo.NSDUserInfo Cls_OneUser.Name = "ユーザー名" Cls_OneUser.LoginName = "ログイン名" : Dim Int_Err As NSDSocket.NSD_SocketUserInfo.ERR_KIND = _ Cls_UserInfo.IsAddUser( Cls_User , Cls_OneUser ) If Int_Err <> NSDSocket.NSD_SocketUserInfo.ERR_KIND.OK Then MsgBox(Cls_UserInfo.GetErrMsg(Int_Err)) End If End Sub End Class
Copyright (C) 2016 Nihon System Developer Corp. All Rights Reserved.