Imports CPassword
Public Class frmTestPassword
  Inherits System.Windows.Forms.Form
  Dim MyCheck As New CPassword()

           Private Sub btnAdd_Click(ByVal sender As System.Object, ByVal e As _
                 System.EventArgs) Handles btnAdd.Click
    Dim length, Level, Passed As Integer

    If txtSecurity.Text = "" Then
      MessageBox.Show("Proszę wprowadzić poziom bezpieczeństwa.")
      Exit Sub
    End If
    Level = CInt(txtSecurity.Text)
    Passed = MyCheck.AddNewUser(txtName.Text, txtPassword.Text, Level)
    If Passed = False Then  ' Sprawdza, czy użytkownik może być dodany.
      Beep()         ' Pewnie nie...
      length = Len(txtPassword.Text)
      If length < 4 Or length > 30 Then   ' Czy długość hasła jest OK?
        MessageBox.Show("Błąd. Długość hasła musi się zawierać" & _ 
                    "między 4 a 30 znakami.")
        txtPassword.Text = ""
        txtConfirm.Text = ""
        txtPassword.Focus()
      ElseIf Level < 1 Or Level > 10 Then  ' Co z poziomem 
                                           ' bepieczeństwa?
        MessageBox.Show("Błąd. Poziom bezpieczeństwa musi być" & _
                    "pomiędzy 1 a 10")
        txtSecurity.Text = ""
        txtSecurity.Focus()
      Else                 ' Już jest na liście.
        MessageBox.Show("Błąd. Nazwa użytkownika już jest na liście")
      End If
      Exit Sub
    End If
    ' Jeśli doszliśmy tutaj, wszystko jest OK.
    MessageBox.Show("Dodanie użytkownika do listy powiodło się")
  End Sub

  Private Sub btnCheck_Click(ByVal sender As System.Object, ByVal e As _
                  System.EventArgs) Handles btncheck.Click
    Dim Password As String, SecurityLevel As Integer

    Password = MyCheck.GetPassword(txtName.Text, txtPassword.Text)
    SecurityLevel = MyCheck.GetSecurityLevel(txtName.Text)

  End Sub

  Private Sub btnExit_Click(ByVal sender As System.Object, ByVal e As _
                 System.EventArgs) Handles btnExit.Click

    MyCheck = Nothing      ' To zwalnia obiekt 
    Me.Dispose()
  End Sub


  Private Sub txtConfirm_Leave(ByVal sender As Object, ByVal e As _
                   System.EventArgs) Handles txtConfirm.Leave
    If txtConfirm.Text <> txtPassword.Text Then
      MessageBox.Show("Dwa hasła nie zgadzają się.")
      txtPassword.Text = ""
      txtConfirm.Text = ""
      txtPassword.Focus()
    End If
  End Sub
End Class
