passchange.vb

日報管理システム&#65407 &#65392 &#65405 です よろしくお願いします

Imports DR.frmMain
Imports System.Xml
Public Class passchange
    ''' <summary>
    ''' [OK]ボタンクリック時の処理(パスワード変更画面)
    ''' </summary>
    ''' <param name="sender"></param>
    ''' <param name="e"></param>
    ''' <remarks></remarks>
    Private Sub btnOK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnOK.Click
        Dim txtOld As String = Me.MaskedTextBox1.Text
        Dim txtNew As String = Me.MaskedTextBox2.Text
        Dim txtNew2 As String = Me.MaskedTextBox3.Text

        Dim dsData As New DataSet

        Try
            '社員XMLテーブルの読み込み
            dsData.ReadXml("\\Main_server\共通\日報システム\マスタ\SHAIN.xml")

            '入力パスワードの整合性チェック
            If (txtOld.Length.Equals(0)) Then
                MessageBox.Show("現在のパスワードが入力されていません。", "確認")
                Me.MaskedTextBox1.Focus()
                Exit Sub
            ElseIf (txtNew.Length.Equals(0)) Then
                MessageBox.Show("新しいパスワードが入力されていません。", "確認")
                Me.MaskedTextBox2.Focus()
                Exit Sub
            ElseIf (txtNew2.Length.Equals(0)) Then
                MessageBox.Show("新しいパスワードの確認入力が空白です。", "確認")
                Me.MaskedTextBox3.Focus()
                Exit Sub
            End If

            If (Not (txtNew = txtNew2)) Then
                MessageBox.Show("新しいパスワードと確認入力が一致しません。", "確認")
                Me.MaskedTextBox2.Focus()
                Me.MaskedTextBox2.SelectAll()
                Exit Sub
            End If

            'ログインしているユーザーのチェック＆変数格納
            Dim strWho As String = frmMain.clsPass.ShainChange

            For i As Integer = 0 To dsData.Tables(1).Rows.Count - 1

                If (strWho = dsData.Tables(1).Rows(i).Item(1)) Then
                    Dim strPass As String = dsData.Tables(1).Rows(i).Item(5)

                    If (Not (txtOld = strPass)) Then
                        MessageBox.Show("もとのパスワードが一致しません。", "警告")
                        Exit Sub
                    Else
                        dsData.Tables(1).Rows(i).Item(5) = txtNew
                        Exit For
                    End If
                End If
            Next

            dsData.WriteXml("\\Main_server\共通\日報システム\マスタ\SHAIN.xml")
            MessageBox.Show("パスワードの変更が完了しました。", "確認")
            Me.Close()
        Catch ex As Exception
            MessageBox.Show(ex.ToString)
        End Try
    End Sub

    ''' <summary>
    ''' キャンセルボタンクリック時の処理(パス変更画面)
    ''' </summary>
    ''' <param name="sender"></param>
    ''' <param name="e"></param>
    ''' <remarks></remarks>
    Private Sub btnCancel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCancel.Click
        Me.Close()
    End Sub
End Class