projetoBiblioteca05/projetoBiblioteca05/FLogin.vb

Public Class FLogin
    Private Sub TbFuncionarioBindingNavigatorSaveItem_Click(sender As Object, e As EventArgs)
        Me.Validate()
        Me.TbFuncionarioBindingSource.EndEdit()
        Me.TableAdapterManager.UpdateAll(Me.DbBibliotecaDataSet)

    End Sub

    Private Sub FLogin_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        'TODO: esta linha de código carrega dados na tabela 'DbBibliotecaDataSet.tbFuncionario'. Você pode movê-la ou removê-la conforme necessário.
        Me.TbFuncionarioTableAdapter.Fill(Me.DbBibliotecaDataSet.tbFuncionario)

    End Sub

    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        End
    End Sub

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim USER, PSS
        USER = UsuarioFuncTextBox.Text()
        PSS = SenhaFuncTextBox.Text()

        If TbFuncionarioTableAdapter.ScalarQueryLogin(USER, PSS) Then
            MsgBox("Bem vindo!", vbInformation, "Sistema Biblioteca")
            UsuarioFuncTextBox.Clear()
            SenhaFuncTextBox.Clear()
            UsuarioFuncTextBox.Focus()
            Me.Hide()
            FPrincipal.Show()
        Else
            MsgBox("Usuário/Senha incorretos", vbCritical, "Sistema Biblioteca")
            UsuarioFuncTextBox.Clear()
            SenhaFuncTextBox.Clear()
            UsuarioFuncTextBox.Focus()
        End If
    End Sub
End Class