loginform.vb

一个管理系统

        '
        'cbRemember
        '
        Me.cbRemember.AccessibleDescription = resources.GetString("cbRemember.AccessibleDescription")
        Me.cbRemember.AccessibleName = resources.GetString("cbRemember.AccessibleName")
        Me.cbRemember.Anchor = CType(resources.GetObject("cbRemember.Anchor"), System.Windows.Forms.AnchorStyles)
        Me.cbRemember.Appearance = CType(resources.GetObject("cbRemember.Appearance"), System.Windows.Forms.Appearance)
        Me.cbRemember.BackgroundImage = CType(resources.GetObject("cbRemember.BackgroundImage"), System.Drawing.Image)
        Me.cbRemember.CheckAlign = CType(resources.GetObject("cbRemember.CheckAlign"), System.Drawing.ContentAlignment)
        Me.cbRemember.Dock = CType(resources.GetObject("cbRemember.Dock"), System.Windows.Forms.DockStyle)
        Me.cbRemember.Enabled = CType(resources.GetObject("cbRemember.Enabled"), Boolean)
        Me.cbRemember.FlatStyle = CType(resources.GetObject("cbRemember.FlatStyle"), System.Windows.Forms.FlatStyle)
        Me.cbRemember.Font = CType(resources.GetObject("cbRemember.Font"), System.Drawing.Font)
        Me.cbRemember.Image = CType(resources.GetObject("cbRemember.Image"), System.Drawing.Image)
        Me.cbRemember.ImageAlign = CType(resources.GetObject("cbRemember.ImageAlign"), System.Drawing.ContentAlignment)
        Me.cbRemember.ImageIndex = CType(resources.GetObject("cbRemember.ImageIndex"), Integer)
        Me.cbRemember.ImeMode = CType(resources.GetObject("cbRemember.ImeMode"), System.Windows.Forms.ImeMode)
        Me.cbRemember.Location = CType(resources.GetObject("cbRemember.Location"), System.Drawing.Point)
        Me.cbRemember.Name = "cbRemember"
        Me.cbRemember.RightToLeft = CType(resources.GetObject("cbRemember.RightToLeft"), System.Windows.Forms.RightToLeft)
        Me.cbRemember.Size = CType(resources.GetObject("cbRemember.Size"), System.Drawing.Size)
        Me.cbRemember.TabIndex = CType(resources.GetObject("cbRemember.TabIndex"), Integer)
        Me.cbRemember.Text = resources.GetString("cbRemember.Text")
        Me.cbRemember.TextAlign = CType(resources.GetObject("cbRemember.TextAlign"), System.Drawing.ContentAlignment)
        Me.cbRemember.Visible = CType(resources.GetObject("cbRemember.Visible"), Boolean)
        '
        'LoginForm
        '
        Me.AcceptButton = Me.btnOK
        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.cbRemember, Me.btnCancel, Me.btnOK, Me.Panel1, Me.lblUserName, Me.lblPassword, Me.txtPassword, Me.txtUserName})
        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.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.MinimizeBox = False
        Me.MinimumSize = CType(resources.GetObject("$this.MinimumSize"), System.Drawing.Size)
        Me.Name = "LoginForm"
        Me.RightToLeft = CType(resources.GetObject("$this.RightToLeft"), System.Windows.Forms.RightToLeft)
        Me.ShowInTaskbar = False
        Me.SizeGripStyle = System.Windows.Forms.SizeGripStyle.Hide
        Me.StartPosition = CType(resources.GetObject("$this.StartPosition"), System.Windows.Forms.FormStartPosition)
        Me.Text = resources.GetString("$this.Text")
        Me.TopMost = True
        Me.Visible = CType(resources.GetObject("$this.Visible"), Boolean)
        Me.Panel1.ResumeLayout(False)
        Me.ResumeLayout(False)

    End Sub

#End Region

    Private m_DataLayer As DataLayer
    Private Const c_RegistryKey As String = "Software\Microsoft\TaskVision"
    Private m_ResourceManager As New Resources.ResourceManager("TaskVision.Localize", System.Reflection.Assembly.GetExecutingAssembly())

    Private Sub LoginForm_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Load
        lblVersion.Text = "Version " & Application.ProductVersion

        Dim userName As String = String.Empty
        Dim password As String = String.Empty

        Try
            Dim regKey As RegistryKey = Registry.CurrentUser.OpenSubKey(c_RegistryKey)

            If Not regKey Is Nothing Then
                userName = CType(regKey.GetValue("UserName"), String)
                password = DataProtection.UnprotectData(CType(regKey.GetValue("Password"), String))
                regKey.Close()
            End If
        Catch ex As Exception
            'if something fails log the error and allow the app to continue
            LogError.Write(ex.Message & vbCrLf & ex.StackTrace)
        End Try

        If userName <> String.Empty AndAlso password <> String.Empty Then
            txtUserName.Text = userName
            txtPassword.Text = password
            cbRemember.Checked = True
        End If

        txtUserName.Focus()
    End Sub

    Private Sub btnOK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnOK.Click
        Me.DialogResult = DialogResult.None
        If txtUserName.Text.Trim() <> String.Empty AndAlso txtPassword.Text.Trim() <> String.Empty Then
            MyBase.Cursor = Cursors.WaitCursor
            Dim dlResult As DataLayerResult = m_DataLayer.Login(txtUserName.Text, txtPassword.Text)
            MyBase.Cursor = Cursors.Arrow

            If dlResult = DataLayerResult.Success Then
                'successful login, save the login info to the registry if desired
                Try
                    Dim regKey As RegistryKey = Registry.CurrentUser.CreateSubKey(c_RegistryKey)
                    If cbRemember.Checked Then
                        regKey.SetValue("UserName", txtUserName.Text)
                        regKey.SetValue("Password", DataProtection.ProtectData(txtPassword.Text, "TaskVisionPassword"))
                    Else
                        regKey.DeleteValue("UserName", False)
                        regKey.DeleteValue("Password", False)
                    End If
                    regKey.Close()
                Catch ex As Exception
                    'if something fails log the error and allow the app to continue
                    LogError.Write(ex.Message & vbCrLf & ex.StackTrace)
                End Try

                Me.DialogResult = DialogResult.OK
                Me.Close()
            Else
                txtUserName.Focus()

                If dlResult = DataLayerResult.ServiceFailure Then
                    MessageBox.Show(m_ResourceManager.GetString("MessageBox.Show(An_error_has_occurred)") & vbCrLf & vbCrLf & m_ResourceManager.GetString("Please_contact_your_network_administrator"))
                ElseIf dlResult = DataLayerResult.ConnectionFailure Then
                    MessageBox.Show(m_ResourceManager.GetString("MessageBox.Show(The_remote_server_is_unreachable)") & vbCrLf & vbCrLf & m_ResourceManager.GetString("Please_check_your_connection_and_try_again"))
                ElseIf dlResult = DataLayerResult.AuthenticationFailure Then
                    MessageBox.Show(m_ResourceManager.GetString("The_username_or_password_is_incorrect") & vbCrLf & vbCrLf & m_ResourceManager.GetString("Please_re-type_your_information"))
                Else
                    MessageBox.Show(m_ResourceManager.GetString("An_unknown_error_has_occurred") & vbCrLf & vbCrLf & m_ResourceManager.GetString("Please_review_the_event_log_for_more_information"))
                End If
            End If
        Else
            MessageBox.Show(m_ResourceManager.GetString("Please_re-type_your_information") & vbCrLf & vbCrLf & m_ResourceManager.GetString("Please_re-type_your_information"))
        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
End Class