adduserform.vb

一个管理系统

        Me.txtUserFullName.Location = CType(resources.GetObject("txtUserFullName.Location"), System.Drawing.Point)
        Me.txtUserFullName.MaxLength = CType(resources.GetObject("txtUserFullName.MaxLength"), Integer)
        Me.txtUserFullName.Multiline = CType(resources.GetObject("txtUserFullName.Multiline"), Boolean)
        Me.txtUserFullName.Name = "txtUserFullName"
        Me.txtUserFullName.PasswordChar = CType(resources.GetObject("txtUserFullName.PasswordChar"), Char)
        Me.txtUserFullName.RightToLeft = CType(resources.GetObject("txtUserFullName.RightToLeft"), System.Windows.Forms.RightToLeft)
        Me.txtUserFullName.ScrollBars = CType(resources.GetObject("txtUserFullName.ScrollBars"), System.Windows.Forms.ScrollBars)
        Me.txtUserFullName.Size = CType(resources.GetObject("txtUserFullName.Size"), System.Drawing.Size)
        Me.txtUserFullName.TabIndex = CType(resources.GetObject("txtUserFullName.TabIndex"), Integer)
        Me.txtUserFullName.Text = resources.GetString("txtUserFullName.Text")
        Me.txtUserFullName.TextAlign = CType(resources.GetObject("txtUserFullName.TextAlign"), System.Windows.Forms.HorizontalAlignment)
        Me.txtUserFullName.Visible = CType(resources.GetObject("txtUserFullName.Visible"), Boolean)
        Me.txtUserFullName.WordWrap = CType(resources.GetObject("txtUserFullName.WordWrap"), Boolean)
        '
        'cbLocked
        '
        Me.cbLocked.AccessibleDescription = resources.GetString("cbLocked.AccessibleDescription")
        Me.cbLocked.AccessibleName = resources.GetString("cbLocked.AccessibleName")
        Me.cbLocked.Anchor = CType(resources.GetObject("cbLocked.Anchor"), System.Windows.Forms.AnchorStyles)
        Me.cbLocked.Appearance = CType(resources.GetObject("cbLocked.Appearance"), System.Windows.Forms.Appearance)
        Me.cbLocked.BackgroundImage = CType(resources.GetObject("cbLocked.BackgroundImage"), System.Drawing.Image)
        Me.cbLocked.CheckAlign = CType(resources.GetObject("cbLocked.CheckAlign"), System.Drawing.ContentAlignment)
        Me.cbLocked.Dock = CType(resources.GetObject("cbLocked.Dock"), System.Windows.Forms.DockStyle)
        Me.cbLocked.Enabled = CType(resources.GetObject("cbLocked.Enabled"), Boolean)
        Me.cbLocked.FlatStyle = CType(resources.GetObject("cbLocked.FlatStyle"), System.Windows.Forms.FlatStyle)
        Me.cbLocked.Font = CType(resources.GetObject("cbLocked.Font"), System.Drawing.Font)
        Me.cbLocked.Image = CType(resources.GetObject("cbLocked.Image"), System.Drawing.Image)
        Me.cbLocked.ImageAlign = CType(resources.GetObject("cbLocked.ImageAlign"), System.Drawing.ContentAlignment)
        Me.cbLocked.ImageIndex = CType(resources.GetObject("cbLocked.ImageIndex"), Integer)
        Me.cbLocked.ImeMode = CType(resources.GetObject("cbLocked.ImeMode"), System.Windows.Forms.ImeMode)
        Me.cbLocked.Location = CType(resources.GetObject("cbLocked.Location"), System.Drawing.Point)
        Me.cbLocked.Name = "cbLocked"
        Me.cbLocked.RightToLeft = CType(resources.GetObject("cbLocked.RightToLeft"), System.Windows.Forms.RightToLeft)
        Me.cbLocked.Size = CType(resources.GetObject("cbLocked.Size"), System.Drawing.Size)
        Me.cbLocked.TabIndex = CType(resources.GetObject("cbLocked.TabIndex"), Integer)
        Me.cbLocked.Text = resources.GetString("cbLocked.Text")
        Me.cbLocked.TextAlign = CType(resources.GetObject("cbLocked.TextAlign"), System.Drawing.ContentAlignment)
        Me.cbLocked.Visible = CType(resources.GetObject("cbLocked.Visible"), Boolean)
        '
        'GroupBox1
        '
        Me.GroupBox1.AccessibleDescription = resources.GetString("GroupBox1.AccessibleDescription")
        Me.GroupBox1.AccessibleName = resources.GetString("GroupBox1.AccessibleName")
        Me.GroupBox1.AccessibleRole = System.Windows.Forms.AccessibleRole.Separator
        Me.GroupBox1.Anchor = CType(resources.GetObject("GroupBox1.Anchor"), System.Windows.Forms.AnchorStyles)
        Me.GroupBox1.BackgroundImage = CType(resources.GetObject("GroupBox1.BackgroundImage"), System.Drawing.Image)
        Me.GroupBox1.Controls.AddRange(New System.Windows.Forms.Control() {Me.Label5, Me.Label4, Me.Label3, Me.txtUserName, Me.txtConfirmPassword, Me.txtPassword})
        Me.GroupBox1.Dock = CType(resources.GetObject("GroupBox1.Dock"), System.Windows.Forms.DockStyle)
        Me.GroupBox1.Enabled = CType(resources.GetObject("GroupBox1.Enabled"), Boolean)
        Me.GroupBox1.Font = CType(resources.GetObject("GroupBox1.Font"), System.Drawing.Font)
        Me.GroupBox1.ImeMode = CType(resources.GetObject("GroupBox1.ImeMode"), System.Windows.Forms.ImeMode)
        Me.GroupBox1.Location = CType(resources.GetObject("GroupBox1.Location"), System.Drawing.Point)
        Me.GroupBox1.Name = "GroupBox1"
        Me.GroupBox1.RightToLeft = CType(resources.GetObject("GroupBox1.RightToLeft"), System.Windows.Forms.RightToLeft)
        Me.GroupBox1.Size = CType(resources.GetObject("GroupBox1.Size"), System.Drawing.Size)
        Me.GroupBox1.TabIndex = CType(resources.GetObject("GroupBox1.TabIndex"), Integer)
        Me.GroupBox1.TabStop = False
        Me.GroupBox1.Text = resources.GetString("GroupBox1.Text")
        Me.GroupBox1.Visible = CType(resources.GetObject("GroupBox1.Visible"), Boolean)
        '
        'AddUserForm
        '
        Me.AcceptButton = Me.btnAdd
        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.GroupBox1, Me.cbLocked, Me.Label2, Me.Label1, Me.btnCancel, Me.btnAdd, Me.cbAdministrator, Me.txtUserEmail, Me.txtUserFullName})
        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 = "AddUserForm"
        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.GroupBox1.ResumeLayout(False)
        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 btnAdd_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnAdd.Click
        If IsFormValid() Then
            Dim newUserInfo As New UserInformation()
            With newUserInfo
                .UserName = txtUserName.Text.Trim()
                .UserPassword = txtPassword.Text
                .UserFullName = txtUserFullName.Text.Trim()
                .UserEmail = txtUserEmail.Text.Trim()
                .IsAdministrator = cbAdministrator.Checked
                .IsAccountLocked = cbLocked.Checked

                Dim userID As Integer = -1
                Dim dlResult As DataLayerResult = m_DataLayer.InsertUser(userID, newUserInfo)

                'if we were able to add the user to the database, update our local data
                If dlResult = DataLayerResult.Success Then
                    If userID > 0 Then
                        Dim dr As DataRow = m_DataLayer.DsLookupTables.Users.NewRow
                        dr.Item("UserID") = userID
                        dr.Item("UserName") = .UserName
                        dr.Item("UserFullName") = .UserFullName
                        dr.Item("UserEmail") = .UserEmail
                        dr.Item("IsAdministrator") = .IsAdministrator
                        dr.Item("IsAccountLocked") = .IsAccountLocked
                        m_DataLayer.DsLookupTables.Users.Rows.Add(dr)

                        Me.DialogResult = DialogResult.OK
                        Me.Close()
                    Else
                        MessageBox.Show(m_ResourceManager.GetString("That_user_name_is_already_taken"))
                        txtUserName.Focus()
                    End If
                Else
                    MessageBox.Show(m_ResourceManager.GetString("Unable_to_add_user_at_this_time"))
                    Me.DialogResult = DialogResult.None
                End If
            End With
        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 txtUserName.Text.IndexOf(" ") > -1 Then
            MessageBox.Show(m_ResourceManager.GetString("User_name_may_not_contain_spaces"))
            Return False
        ElseIf txtUserName.Text.Length < 3 Then
            MessageBox.Show(m_ResourceManager.GetString("User_name_must_be_between"))
            Return False
        ElseIf txtPassword.Text.IndexOf(" ") > -1 Then
            MessageBox.Show(m_ResourceManager.GetString("Password_may_not_contain_spaces"))
            Return False
        ElseIf txtPassword.Text.Length < 3 Then
            MessageBox.Show(m_ResourceManager.GetString("Password_must_be_between"))
            Return False
        ElseIf txtPassword.Text <> txtConfirmPassword.Text Then
            MessageBox.Show(m_ResourceManager.GetString("Password_fields_do_not_match"))
            Return False
        ElseIf txtUserFullName.Text.Trim().Length < 3 Then
            MessageBox.Show(m_ResourceManager.GetString("Full_name_must_be_between"))
            Return False
        End If

        Dim r As New Regex("\w+([-+.]\w+)*@\w+([-.]\w+)*\.\w+([-.]\w+)*", RegexOptions.IgnoreCase)
        If Not r.IsMatch(txtUserEmail.Text) Then
            MessageBox.Show(m_ResourceManager.GetString("Email_address_is_not_valid"))
            Return False
        End If

        Return True
    End Function
End Class