changepasswordform.vb

一个管理系统

        '
        Me.btnCancel.AccessibleDescription = resources.GetString("btnCancel.AccessibleDescription")
        Me.btnCancel.AccessibleName = resources.GetString("btnCancel.AccessibleName")
        Me.btnCancel.Anchor = CType(resources.GetObject("btnCancel.Anchor"), System.Windows.Forms.AnchorStyles)
        Me.btnCancel.BackgroundImage = CType(resources.GetObject("btnCancel.BackgroundImage"), System.Drawing.Image)
        Me.btnCancel.DialogResult = System.Windows.Forms.DialogResult.Cancel
        Me.btnCancel.Dock = CType(resources.GetObject("btnCancel.Dock"), System.Windows.Forms.DockStyle)
        Me.btnCancel.Enabled = CType(resources.GetObject("btnCancel.Enabled"), Boolean)
        Me.btnCancel.FlatStyle = CType(resources.GetObject("btnCancel.FlatStyle"), System.Windows.Forms.FlatStyle)
        Me.btnCancel.Font = CType(resources.GetObject("btnCancel.Font"), System.Drawing.Font)
        Me.btnCancel.Image = CType(resources.GetObject("btnCancel.Image"), System.Drawing.Image)
        Me.btnCancel.ImageAlign = CType(resources.GetObject("btnCancel.ImageAlign"), System.Drawing.ContentAlignment)
        Me.btnCancel.ImageIndex = CType(resources.GetObject("btnCancel.ImageIndex"), Integer)
        Me.btnCancel.ImeMode = CType(resources.GetObject("btnCancel.ImeMode"), System.Windows.Forms.ImeMode)
        Me.btnCancel.Location = CType(resources.GetObject("btnCancel.Location"), System.Drawing.Point)
        Me.btnCancel.Name = "btnCancel"
        Me.btnCancel.RightToLeft = CType(resources.GetObject("btnCancel.RightToLeft"), System.Windows.Forms.RightToLeft)
        Me.btnCancel.Size = CType(resources.GetObject("btnCancel.Size"), System.Drawing.Size)
        Me.btnCancel.TabIndex = CType(resources.GetObject("btnCancel.TabIndex"), Integer)
        Me.btnCancel.Text = resources.GetString("btnCancel.Text")
        Me.btnCancel.TextAlign = CType(resources.GetObject("btnCancel.TextAlign"), System.Drawing.ContentAlignment)
        Me.btnCancel.Visible = CType(resources.GetObject("btnCancel.Visible"), Boolean)
        '
        'btnAccept
        '
        Me.btnAccept.AccessibleDescription = resources.GetString("btnAccept.AccessibleDescription")
        Me.btnAccept.AccessibleName = resources.GetString("btnAccept.AccessibleName")
        Me.btnAccept.Anchor = CType(resources.GetObject("btnAccept.Anchor"), System.Windows.Forms.AnchorStyles)
        Me.btnAccept.BackgroundImage = CType(resources.GetObject("btnAccept.BackgroundImage"), System.Drawing.Image)
        Me.btnAccept.DialogResult = System.Windows.Forms.DialogResult.OK
        Me.btnAccept.Dock = CType(resources.GetObject("btnAccept.Dock"), System.Windows.Forms.DockStyle)
        Me.btnAccept.Enabled = CType(resources.GetObject("btnAccept.Enabled"), Boolean)
        Me.btnAccept.FlatStyle = CType(resources.GetObject("btnAccept.FlatStyle"), System.Windows.Forms.FlatStyle)
        Me.btnAccept.Font = CType(resources.GetObject("btnAccept.Font"), System.Drawing.Font)
        Me.btnAccept.Image = CType(resources.GetObject("btnAccept.Image"), System.Drawing.Image)
        Me.btnAccept.ImageAlign = CType(resources.GetObject("btnAccept.ImageAlign"), System.Drawing.ContentAlignment)
        Me.btnAccept.ImageIndex = CType(resources.GetObject("btnAccept.ImageIndex"), Integer)
        Me.btnAccept.ImeMode = CType(resources.GetObject("btnAccept.ImeMode"), System.Windows.Forms.ImeMode)
        Me.btnAccept.Location = CType(resources.GetObject("btnAccept.Location"), System.Drawing.Point)
        Me.btnAccept.Name = "btnAccept"
        Me.btnAccept.RightToLeft = CType(resources.GetObject("btnAccept.RightToLeft"), System.Windows.Forms.RightToLeft)
        Me.btnAccept.Size = CType(resources.GetObject("btnAccept.Size"), System.Drawing.Size)
        Me.btnAccept.TabIndex = CType(resources.GetObject("btnAccept.TabIndex"), Integer)
        Me.btnAccept.Text = resources.GetString("btnAccept.Text")
        Me.btnAccept.TextAlign = CType(resources.GetObject("btnAccept.TextAlign"), System.Drawing.ContentAlignment)
        Me.btnAccept.Visible = CType(resources.GetObject("btnAccept.Visible"), Boolean)
        '
        'ChangePasswordForm
        '
        Me.AcceptButton = Me.btnAccept
        Me.AccessibleDescription = resources.GetString("$this.AccessibleDescription")
        Me.AccessibleName = resources.GetString("$this.AccessibleName")
        Me.Anchor = CType(resources.GetObject("$this.Anchor"), System.Windows.Forms.AnchorStyles)
        Me.AutoScaleBaseSize = CType(resources.GetObject("$this.AutoScaleBaseSize"), System.Drawing.Size)
        Me.AutoScroll = CType(resources.GetObject("$this.AutoScroll"), Boolean)
        Me.AutoScrollMargin = CType(resources.GetObject("$this.AutoScrollMargin"), System.Drawing.Size)
        Me.AutoScrollMinSize = CType(resources.GetObject("$this.AutoScrollMinSize"), System.Drawing.Size)
        Me.BackgroundImage = CType(resources.GetObject("$this.BackgroundImage"), System.Drawing.Image)
        Me.CancelButton = Me.btnCancel
        Me.ClientSize = CType(resources.GetObject("$this.ClientSize"), System.Drawing.Size)
        Me.Controls.AddRange(New System.Windows.Forms.Control() {Me.btnAccept, Me.btnCancel, Me.Label3, Me.Label2, Me.txtConfirmPassword, Me.txtPassword})
        Me.Dock = CType(resources.GetObject("$this.Dock"), System.Windows.Forms.DockStyle)
        Me.Enabled = CType(resources.GetObject("$this.Enabled"), Boolean)
        Me.Font = CType(resources.GetObject("$this.Font"), System.Drawing.Font)
        Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedDialog
        Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
        Me.ImeMode = CType(resources.GetObject("$this.ImeMode"), System.Windows.Forms.ImeMode)
        Me.Location = CType(resources.GetObject("$this.Location"), System.Drawing.Point)
        Me.MaximizeBox = False
        Me.MaximumSize = CType(resources.GetObject("$this.MaximumSize"), System.Drawing.Size)
        Me.MinimumSize = CType(resources.GetObject("$this.MinimumSize"), System.Drawing.Size)
        Me.Name = "ChangePasswordForm"
        Me.RightToLeft = CType(resources.GetObject("$this.RightToLeft"), System.Windows.Forms.RightToLeft)
        Me.ShowInTaskbar = False
        Me.StartPosition = CType(resources.GetObject("$this.StartPosition"), System.Windows.Forms.FormStartPosition)
        Me.Text = resources.GetString("$this.Text")
        Me.Visible = CType(resources.GetObject("$this.Visible"), Boolean)
        Me.ResumeLayout(False)

    End Sub

#End Region

    Private m_DataLayer As DataLayer
    Private m_ResourceManager As New Resources.ResourceManager("TaskVision.Localize", System.Reflection.Assembly.GetExecutingAssembly())


    Private Sub btnAccept_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnAccept.Click
        'TODO: Remove the code below to enable changes to the 'jdoe' account.
        If m_DataLayer.CurrentUserInformation.UserName = "jdoe" Then
            MessageBox.Show("Changes to the 'jdoe' user account are not allowed.")
            Me.DialogResult = DialogResult.None
            Return
        End If
        'TODO: Remove the code above to enable changes to the 'jdoe' account.

        If IsFormValid() Then
            'create a new userinformation object
            Dim editUserInfo As New UserInformation()
            editUserInfo.UserPassword = txtPassword.Text

            Dim dlResult As DataLayerResult = m_DataLayer.ChangePassword(editUserInfo)

            'if the database update was successful, update our local data
            If dlResult = DataLayerResult.Success Then
                m_DataLayer.CurrentUserInformation.UserPassword = txtPassword.Text
                Me.Close()
            Else
                MessageBox.Show(m_ResourceManager.GetString("Unable_to_change_password_at_this_time"))
                Me.DialogResult = DialogResult.None
            End If
        Else
            Me.DialogResult = DialogResult.None
        End If
    End Sub

    Private Sub btnCancel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCancel.Click
        Me.Close()
    End Sub

    Private Function IsFormValid() As Boolean
        'check the fields for valid data and
        'display message boxes if neccessary

        If txtPassword.Text.IndexOf(" ") > -1 Then
            MessageBox.Show(m_ResourceManager.GetString("Password_may_not_contain_spaces"))
            Return False
        End If

        If txtPassword.Text.Length < 3 Then
            MessageBox.Show(m_ResourceManager.GetString("Password_must_be_between"))
            Return False
        End If

        If txtPassword.Text <> txtConfirmPassword.Text Then
            MessageBox.Show(m_ResourceManager.GetString("Password_fields_do_not_match"))
            Return False
        End If

        Return True
    End Function
End Class