Ir para conteúdo
Entre para seguir isso  
Seguidores 0
Tikz

[Ajuda] Visual Basic e Access

Por , em Bits & Bytes

Publicações recomendadas

Tikz   

Tikz
Publicado (editado)

Estou a fazer um trabalho em VB para Aplicações Informáticas, no 12º Ano. É para entregar sexta e só comecei a fazer ontem. Já vi que vou passar o feriado à volta disto. :(

 

Quando meto as tabelas do access no form no VB aquilo não fica actualizado, a prof. disse para descobrirmos como se "actualizava" automaticamente, que ganhávamos uns pontos na autonomia. Ninguém me sabe dizer como é? Já procurei, vi que era uma coisa qq chamada OleDbDataAdapter mas isso não me aparece nas Tools. :(

 

Até agora está assim, o tema é "Loja de Desporto", ou seja, tenho de ter as cenas para encomendas, vendas, clientes, fornecedores e artigos. Até meti uma dos empregados. :mrgreen:

 

Public Class FormArtigos

   Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
       Me.Hide()
       FormP.Show()
   End Sub

   Private Sub FormArtigos_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
       'TODO: This line of code loads data into the 'BDLojaDataSet.TblArtigos' table. You can move, or remove it, as needed.
       Me.TblArtigosTableAdapter.Fill(Me.BDLojaDataSet.TblArtigos)
       RadioButton7.Hide()
       RadioButton8.Hide()
       RadioButton9.Hide()
       RadioButton10.Hide()
       RadioButton11.Hide()
       RadioButton12.Hide()
       RadioButton13.Hide()
       RadioButton14.Hide()
       RadioButton15.Hide()
       RadioButton16.Hide()
       RadioButton17.Hide()

   End Sub
   Private Sub Radio_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Radio.CheckedChanged
       RadioButton3.Hide()
       RadioButton4.Hide()
       RadioButton5.Hide()
       RadioButton6.Hide()
       RadioButton7.Hide()
       RadioButton8.Hide()
       RadioButton9.Hide()
       RadioButton10.Hide()
       RadioButton11.Hide()
       RadioButton12.Hide()
       RadioButton13.Hide()
       RadioButton14.Hide()
       RadioButton15.Hide()
       RadioButton16.Hide()
       RadioButton17.Hide()
       RadioButton18.Hide()
       RadioButton19.Hide()
       RadioButton20.Hide()
       RadioButton21.Hide()
       RadioButton22.Hide()
       RadioButton23.Hide()
       RadioButton24.Hide()
       RadioButton25.Hide()
       RadioButton26.Hide()
       RadioButton27.Hide()
       RadioButton28.Hide()
       RadioButton29.Hide()
       RadioButton30.Hide()
       RadioButton31.Hide()
       If Radio.Checked Then
           RadioButton16.Show()
           RadioButton17.Show()
       ElseIf RadioButton16.Checked Then
           RadioButton3.Hide()
           RadioButton4.Hide()
           RadioButton5.Hide()
           RadioButton6.Hide()
           RadioButton7.Show()
           RadioButton8.Show()
           RadioButton9.Show()
           RadioButton10.Show()
           RadioButton11.Hide()
           RadioButton12.Hide()
           RadioButton13.Hide()
           RadioButton14.Hide()
           RadioButton15.Hide()
           RadioButton16.Hide()
           RadioButton17.Hide()
           RadioButton18.Hide()
           RadioButton19.Hide()
           RadioButton20.Hide()
           RadioButton21.Hide()
           RadioButton22.Hide()
           RadioButton23.Hide()
           RadioButton24.Hide()
           RadioButton25.Hide()
           RadioButton26.Hide()
           RadioButton27.Hide()
           RadioButton28.Hide()
           RadioButton29.Hide()
           RadioButton30.Hide()
           RadioButton31.Hide()
       ElseIf RadioButton17.Checked Then
           RadioButton11.Show()
           RadioButton12.Show()
           RadioButton13.Show()
           RadioButton14.Show()
           RadioButton15.Show()
           RadioButton7.Hide()
           RadioButton8.Hide()
           RadioButton9.Hide()
           RadioButton10.Hide()
           RadioButton16.Hide()
           RadioButton17.Hide()
           RadioButton18.Hide()
           RadioButton19.Hide()
           RadioButton20.Hide()
           RadioButton21.Hide()
           RadioButton22.Hide()
           RadioButton23.Hide()
           RadioButton24.Hide()
           RadioButton25.Hide()
           RadioButton26.Hide()
           RadioButton27.Hide()
           RadioButton28.Hide()
           RadioButton29.Hide()
           RadioButton30.Hide()
           RadioButton31.Hide()
           RadioButton3.Hide()
           RadioButton4.Hide()
           RadioButton5.Hide()
           RadioButton6.Hide()
       End If
   End Sub

   Private Sub RadioButton1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton1.CheckedChanged
       If RadioButton1.Checked Then
           RadioButton18.Show()
           RadioButton19.Show()
           RadioButton20.Show()
       ElseIf RadioButton18.Checked Then
           RadioButton3.Hide()
           RadioButton4.Hide()
           RadioButton5.Hide()
           RadioButton6.Hide()
           RadioButton7.Hide()
           RadioButton8.Hide()
           RadioButton9.Hide()
           RadioButton10.Hide()
           RadioButton11.Hide()
           RadioButton12.Hide()
           RadioButton13.Hide()
           RadioButton14.Hide()
           RadioButton15.Hide()
           RadioButton16.Hide()
           RadioButton17.Hide()
           RadioButton18.Hide()
           RadioButton19.Hide()
           RadioButton20.Hide()
           RadioButton21.Show()
           RadioButton22.Show()
           RadioButton23.Hide()
           RadioButton24.Hide()
           RadioButton25.Hide()
           RadioButton26.Hide()
           RadioButton27.Hide()
           RadioButton28.Hide()
           RadioButton29.Hide()
           RadioButton30.Hide()
           RadioButton31.Hide()
       ElseIf RadioButton19.Checked Then
           RadioButton3.Hide()
           RadioButton4.Hide()
           RadioButton5.Hide()
           RadioButton6.Hide()
           RadioButton7.Hide()
           RadioButton8.Hide()
           RadioButton9.Hide()
           RadioButton10.Hide()
           RadioButton11.Hide()
           RadioButton12.Hide()
           RadioButton13.Hide()
           RadioButton14.Hide()
           RadioButton15.Hide()
           RadioButton16.Hide()
           RadioButton17.Hide()
           RadioButton18.Hide()
           RadioButton19.Hide()
           RadioButton20.Hide()
           RadioButton21.Hide()
           RadioButton22.Hide()
           RadioButton23.Show()
           RadioButton24.Show()
           RadioButton25.Hide()
           RadioButton26.Hide()
           RadioButton27.Hide()
           RadioButton28.Hide()
           RadioButton29.Hide()
           RadioButton30.Hide()
           RadioButton31.Hide()
       ElseIf RadioButton20.Checked Then
           RadioButton3.Hide()
           RadioButton4.Hide()
           RadioButton5.Hide()
           RadioButton6.Hide()
           RadioButton7.Hide()
           RadioButton8.Hide()
           RadioButton9.Hide()
           RadioButton10.Hide()
           RadioButton11.Hide()
           RadioButton12.Hide()
           RadioButton13.Hide()
           RadioButton14.Hide()
           RadioButton15.Hide()
           RadioButton16.Hide()
           RadioButton17.Hide()
           RadioButton18.Hide()
           RadioButton19.Hide()
           RadioButton20.Hide()
           RadioButton21.Hide()
           RadioButton22.Hide()
           RadioButton23.Hide()
           RadioButton24.Hide()
           RadioButton25.Show()
           RadioButton26.Show()
           RadioButton27.Hide()
           RadioButton28.Hide()
           RadioButton29.Hide()
           RadioButton30.Hide()
           RadioButton31.Hide()
       End If
   End Sub

   Private Sub RadioButton2_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton2.CheckedChanged
       RadioButton3.Hide()
       RadioButton4.Hide()
       RadioButton5.Hide()
       RadioButton6.Hide()
       RadioButton7.Hide()
       RadioButton8.Hide()
       RadioButton9.Hide()
       RadioButton10.Hide()
       RadioButton11.Hide()
       RadioButton12.Hide()
       RadioButton13.Hide()
       RadioButton14.Hide()
       RadioButton15.Hide()
       RadioButton16.Hide()
       RadioButton17.Hide()
       RadioButton18.Hide()
       RadioButton19.Hide()
       RadioButton20.Hide()
       RadioButton21.Hide()
       RadioButton22.Hide()
       RadioButton23.Hide()
       RadioButton24.Hide()
       RadioButton25.Hide()
       RadioButton26.Hide()
       RadioButton27.Hide()
       RadioButton28.Hide()
       RadioButton29.Hide()
       RadioButton30.Hide()
       RadioButton31.Hide()
       If RadioButton2.Checked Then
           RadioButton3.Show()
       ElseIf RadioButton3.Checked Then
           RadioButton4.Show()
           RadioButton5.Show()
           RadioButton6.Show()
           RadioButton7.Hide()
           RadioButton8.Hide()
           RadioButton9.Hide()
           RadioButton10.Hide()
           RadioButton11.Hide()
           RadioButton12.Hide()
           RadioButton13.Hide()
           RadioButton14.Hide()
           RadioButton15.Hide()
           RadioButton16.Hide()
           RadioButton17.Hide()
           RadioButton18.Hide()
           RadioButton19.Hide()
           RadioButton20.Hide()
           RadioButton21.Hide()
           RadioButton22.Hide()
           RadioButton23.Hide()
           RadioButton24.Hide()
           RadioButton25.Hide()
           RadioButton26.Hide()
           RadioButton27.Show()
           RadioButton28.Show()
           RadioButton29.Show()
           RadioButton30.Show()
           RadioButton31.Show()
       End If
   End Sub
End Class

 

Public Class FormP

   Private Sub bartigos_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bartigos.Click
       Me.Hide()
       FormArtigos.Show()
   End Sub

   Private Sub bclientes_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bclientes.Click
       Me.Hide()
       FormClientes.Show()
   End Sub

   Private Sub bfornecedores_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bfornecedores.Click
       Me.Hide()
       FormFornecedores.Show()
   End Sub

   Private Sub bsair_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bsair.Click
       End
   End Sub

   Private Sub bempregados_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bempregados.Click
       Me.Hide()
       FormEmp.Show()
   End Sub

   Private Sub bvendas_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bvendas.Click
       Me.Hide()
       FormVendas.Show()
   End Sub

   Private Sub benc_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles benc.Click
       Me.Hide()
       FormEncomendas.Show()
   End Sub

   Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Relogio.Tick
       Lrelogio2.Text = TimeOfDay
   End Sub

   Private Sub Ldata_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Ldata.Click
       Ldata.Text = Today
   End Sub
End Class

 

Secalhar até havia uma maneira mais simples de fazer o primeiro form, com os artigos, mas não me ocorreu nada no momento. Outra coisa, como faço para aparecerem imagens consoante o radiobutton em que clico?

 

Já tentei isto:

If RadioButton.checked Then
PictureBox2.Show
End If

 

Mas não deu nada. :( No form das encomendas, vendas, fornecedores e clientes ainda não fiz nada. Só no principal, nesse dos artigos e o Loginform.

 

O do LoginForm está assim:

 

Public Class LoginForm1
   Private Sub OK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OK.Click
       If UsernameTextBox.Text = "XXXXXX" And PasswordTextBox.Text = "XXXX" Or UsernameTextBox.Text = "XXXXXX" And PasswordTextBox.Text = "XXX" Then
           Me.Hide()
           FormP.Show()
       Else : MsgBox("A Password ou Username estão incorrectos", 64, "Erro!")
       End If
   End Sub

   Private Sub Cancel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Cancel.Click
       Me.Close()
   End Sub
End Class

Editado por Tikz™

Compartilhar este post

Link para o post

Tikz   

Tikz
Publicado

Já não é preciso, já consegui actualizar os dados das tabelas directamente no VB. A cena das imagens logo resolvo amanhã. Acho que podem fechar isto. ;)

Compartilhar este post

Link para o post

Crie uma conta ou entre para comentar

Você precisa de ser membro desta comunidade para poder comentar

Criar uma conta

Registe-se na nossa comunidade. É fácil!

Criar nova conta

Entrar

Já tem uma conta? Faça o login.

Autentique-se agora
Entre para seguir isso  
Seguidores 0
Ir para a lista de tópicos
  • Todo o Mundial 2026 no CMPT

  • Outros membros neste tópico

    Nenhum utilizador registado está a visualizar esta página.

×
×
  • Criar Novo...