BRT na TV

Código do Sistema Desenvolvido em Microsoft Visual Basic

Formulário frmApresentacao

Option Explicit

Private Sub btnEntrar_Click() ' ao clicar no botão Entrar é exibida a tela de login frmLogin.Show
End Sub

Private Sub Form_Load() ' lendo o caminho do help App.HelpFile = App.Path & "\help\Help.chm" 'inicialmente ninguém está logado Controle.AdministradorLogado = False Controle.PilotoLogado = False
End Sub

Formulário frmLogin

Dim Tabela As String

Private Sub btnEntrar_Click() 'procura por login na tabela de administradores If BancoDados.LocalizarLogin(txtLogin.Text, "Administradores") = True Then ' se encontrar login na tabela de administradores então ' procura a senha correspondente ao login. Se encontrar ' o controle identifica que no momento é um administrador ' que está logado If BancoDados.LocalizarSenha(txtLogin.Text, txtSenha.Text, "Administradores") = True Then Controle.AdministradorLogado = True frmOpcoes.Show ' mostra a tela com opções Unload Me ' fecha a tela de login ' se não encontrar diz que a senha está incorreta, pois ' o login foi encotrado, mas a senha não corresponde a ' senha para aquele login na base de dados Else MsgBox "Senha Incorreta!", vbExclamation, "Erro" txtSenha.SetFocus SendKeys "{Home}+{End}" End If Else ' se logo de cara o login não estiver na tabela de administradores ' então a busca será feita na tabela de Pilotos If BancoDados.LocalizarLogin(txtLogin.Text, "Pilotos") = True Then ' se encontrar login na tabela de pilotos então ' procura a senha correspondente ao login. Se encontrar ' o controle identifica que no momento é um Piloto ' que está logado