Projecto de Programação de Aluno(Samuel)

Tabela Alunos

Tabela Níveis

Tabela Professor

Tabela Turmas

Relacionamento das Tabelas

Formulários

Chamar Formulários Turmas

Public Class Form1

Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click

Dim Form As New FormProfessores Form.ShowDialog()

End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim Form As New FormTurmas Form.ShowDialog() End Sub


Dim Form As New FormAlunos Form.ShowDialog()

End Sub

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click Dim nome As String nome = InputBox("Introduza o nome :", "Pesquisa") Dim dc As New DataClasses1DataContext 'Obtenção de Registos Dim lista_alunos = (From Alunos In dc.ALUNOS Where Alunos.Nome.Contains(nome)) Dim lista_professores = (From Professores In dc.PROFESSORES Where Professores.Nome.Contains(nome)) 'Apresentação de resultados Dim resultado As String = "Alunos:" & Chr(13) For Each aluno In lista_alunos resultado = resultado & aluno.Aluno & Space(1) & aluno.Nome & Chr(13) Next resultado = resultado & Chr(13) & "Professores:" & Chr(13) For Each professor In lista_professores resultado = resultado & professor.Professor & Space(1) & professor.Nome & professor.Nome & Chr(13) Next MsgBox(resultado, MsgBoxStyle.Information, "Resultado") End SubEnd Class

Chamar Formulário Alunos

Public Class Form1



End Sub Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim Form As New FormTurmas Form.ShowDialog() End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click Dim Form As New FormAlunos Form.ShowDialog()

End Sub Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click Dim nome As String nome = InputBox("Introduza o nome :", "Pesquisa") Dim dc As New DataClasses1DataContext 'Obtenção de Registos Dim lista_alunos = (From Alunos In dc.ALUNOS Where Alunos.Nome.Contains(nome)) Dim lista_professores = (From Professores In dc.PROFESSORES Where Professores.Nome.Contains(nome)) 'Apresentação de resultados Dim resultado As String = "Alunos:" & Chr(13) For Each aluno In lista_alunos

resultado = resultado & aluno.Aluno & Space(1) & aluno.Nome & Chr(13) Next resultado = resultado & Chr(13) & "Professores:" & Chr(13) For Each professor In lista_professores resultado = resultado & professor.Professor & Space(1) & professor.Nome & professor.Nome & Chr(13) Next MsgBox(resultado, MsgBoxStyle.Information, "Resultado")

End SubEnd Class

Chamar formulário Professores

Public Class Form1



End SubPrivate Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim Form As New FormTurmas Form.ShowDialog() End Sub


End Sub Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click Dim nome As String nome = InputBox("Introduza o nome :", "Pesquisa") Dim dc As New DataClasses1DataContext 'Obtenção de Registos Dim lista_alunos = (From Alunos In dc.ALUNOS Where Alunos.Nome.Contains(nome)) Dim lista_professores = (From Professores In dc.PROFESSORES Where Professores.Nome.Contains(nome)) 'Apresentação de resultados

Dim resultado As String = "Alunos:" & Chr(13) For Each aluno In lista_alunos

resultado = resultado & aluno.Aluno & Space(1) & aluno.Nome & Chr(13) Next resultado = resultado & Chr(13) & "Professores:" & Chr(13) For Each professor In lista_professores resultado = resultado & professor.Professor & Space(1) & professor.Nome & professor.Nome & Chr(13) Next MsgBox(resultado, MsgBoxStyle.Information, "Resultado")

End SubEnd Class

Formulário Consultas

Public Class Form1



End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim Form As New FormTurmas Form.ShowDialog() End Sub


End Sub Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click Dim nome As String nome = InputBox("Introduza o nome :", "Pesquisa") Dim dc As New DataClasses1DataContext 'Obtenção de Registos Dim lista_alunos = (From Alunos In dc.ALUNOS Where Alunos.Nome.Contains(nome)) Dim lista_professores = (From Professores In dc.PROFESSORES Where Professores.Nome.Contains(nome)) 'Apresentação de resultados Dim resultado As String = "Alunos:" & Chr(13) For Each aluno In lista_alunosresultado = resultado & aluno.Aluno & Space(1) & aluno.Nome & Chr(13) Next resultado = resultado & Chr(13) & "Professores:" & Chr(13) For Each professor In lista_professores resultado = resultado & professor.Professor & Space(1) & professor.Nome & professor.Nome & Chr(13) Next MsgBox(resultado, MsgBoxStyle.Information, "Resultado")

End SubEnd Class

Codificação Formulário Turmas

Public Class FormTurmas

Private Sub FormTurmas_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

' Textos para os botões Button1.Text = "Adicionar" Button2.Text = "Alterar" Button3.Text = "Remover"

' Configuração dos controlos ComboBox cbT.DropDownStyle = ComboBoxStyle.DropDownList cbP.DropDownStyle = ComboBoxStyle.DropDownList cbN.DropDownStyle = ComboBoxStyle.DropDownList

' Apenas uma data pode ser selecionada no controlo MonthCalendar MonthCalendar1.MaxSelectionCount = 1

' Limite superior para o controlo NumericUpDown e bloqueio para edição NumericUpDown1.Maximum = 1000 NumericUpDown1.Enabled = False

' Acesso aos dados Ler_Turmas() Ler_Níveis() Ler_Professores()

End Sub

Sub Ler_Turmas()

' Reset a caixa de combinação cbT.Items.Clear()

'Carregamento da caixa de combinação Dim dc As New DataClasses1DataContext Dim lista = (From Turma In dc.TURMAS) For Each Turma In lista cbT.Items.Add(Turma.Turma) Next

End Sub

Sub Ler_Níveis()

' Reset a caixa de combinação

cbN.Items.Clear()

'Carregamento da caixa de combinação Dim dc As New DataClasses1DataContext Dim lista = (From Nível In dc.NÍVEIS) For Each Nível In lista cbN.Items.Add(Nível.Nível) Next

End Sub

Sub Ler_Professores()

' Reset a caixa de combinação cbP.Items.Clear()

'Carregamento da caixa de combinação Dim dc As New DataClasses1DataContext Dim lista = (From Professor In dc.PROFESSORES) For Each Professor In lista cbP.Items.Add(Professor.Nome)

Next End Sub

Private Sub cbT_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cbT.SelectedIndexChanged

Actualizar_Data() Actualizar_Nível() Actualizar_Duração() Actualizar_Professor()

End Sub

' Actualização do controlo MonthCalendar1 Sub Actualizar_Data()

Dim data As Date Dim idxTurma As Integer

idxTurma = Val(cbT.Text)

Dim dc As New DataClasses1DataContext Dim Turma As New TURMAS

Turma = (From Turmas In dc.TURMAS Where Turmas.Turma = idxTurma Select Turmas).Single

data = Turma.Data

MonthCalendar1.SetDate(data)

End Sub

' Actualização do controlo cbN Sub Actualizar_Nível()

Dim nível As Integer Dim idxTurma As Integer


Dim dc As New DataClasses1DataContext Dim Turma As New TURMAS


nível = Turma.Nível

cbN.Text = nível

End Sub

' Actualização do controlo NumericUpDown1 Sub Actualizar_Duração()

Dim idxNível As Integer

idxNível = Val(cbN.Text)

Dim duração As Integer Dim dc As New DataClasses1DataContext Dim nível As New NÍVEIS

nível = (From Níveis In dc.NÍVEIS Where Níveis.Nível = idxNível Select Níveis).Single

duração = nível.Duração

NumericUpDown1.Value = duração

End Sub

' Actualização do controlo cbP Sub Actualizar_Professor()

Dim idxTurma As Integer


Dim idxProfessor As Integer Dim nomeProfessor As String Dim dc As New DataClasses1DataContext Dim Turma As New TURMAS


idxProfessor = Turma.Professor

Dim Professor As New PROFESSORES Professor = (From Professores In dc.PROFESSORES Where Professores.Professor = idxProfessor Select Professores).Single

nomeProfessor = Professor.Nome

cbP.Text = nomeProfessor

End Sub

Private Sub cbN_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cbN.SelectedIndexChanged Actualizar_Duração() End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click 'Pedido de Inserção de registo If Button1.Text = "Adicionar" Then Button1.Text = "Confirmar" 'Desactivação dos botões 'Alterar'Remover' Button2.Enabled = False Button3.Enabled = False 'Rseset ao Formulário Ler_Turmas() Ler_Níveis() Ler_Professores() NumericUpDown1.Value = 0 MonthCalendar1 .SetDate (New) 'Dectavição da caixa 'Cbt' cbT.Enabled = False Else Adicionar_Turma() End If End Sub Sub Adicionar_turma() 'Validação dos dados If cbT.Text = Nothing Then

MsgBox("Preencha o campo 'Nível'", MsgBoxStyle.Critical) cbN.Focus() Exit Sub If cbT.Text = Nothing Then MsgBox("Preencha o capmo 'Professor'", MsgBoxStyle.Critical) cbP.Focus() Exit Sub

End If 'Saber Id do Professor Dim idxprofessor As Integer Dim nomeprofessor As String nomeprofessor = cbP.Text Dim dc As New DataClasses1DataContext Dim Professor As New PROFESSORES Professor = (From professores In dc.PROFESSORES Where professores.Nome = nomeprofessor Select professores).Single idxprofessor = Professor.Professor 'inserção do registo Dim turma As New TURMAS turma.Data = MonthCalendar1.SelectionRange.Start turma.Nível = Val(cbN.Text) turma.Professor = idxprofessor dc.TURMAS.InsertOnSubmit(turma) dc.SubmitChanges() MsgBox("turma adicionada com sucesso!", MsgBoxStyle.Information) cbT.Enabled = True Button1.Text = "Adicionar" 'Reactivação dos botões 'Alterar'e'Remover' Button2.Enabled = True Button3.Enabled = True Ler_Turmas() 'Selecção da turma adicionada cbT.SelectedIndex = cbT.Items.Count - 1

End If End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click If Len(cbT.Text) = 0 Then MsgBox("selectcione uma turma.", MsgBoxStyle.Exclamation) Exit Sub End If If MsgBox("Confirma a alteraração do registo?", MsgBoxStyle.Question + MsgBoxStyle.YesNo) = MsgBoxResult.Yes Then Dim idxturma As Integer idxturma = Val(cbT.Text) Dim dc As New DataClasses1DataContext Dim turma As New TURMAS

turma = (From turmas In dc.TURMAS Where turmas.Turma = idxturma Select turmas).Single turma.Data = MonthCalendar1.SelectionRange.Start turma.Nível = Val(cbN.Text) 'saber ID do professor Dim idxprofessor As Integer Dim nomeprofessor As String nomeprofessor = cbP.Text Dim professor As New PROFESSORES professor = (From professores In dc.PROFESSORES Where professores.Nome = nomeprofessor Select professores).Single() idxprofessor = professor.Professor turma.Professor = idxprofessor dc.SubmitChanges() MsgBox("Turma actualizada com sucesso!", MsgBoxStyle.Information)

End If End Sub

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click If Len(cbT.Text) = 0 Then MsgBox("seleccione uma turma.", MsgBoxStyle.Exclamation) Exit Sub End If If MsgBox("Confirmar a eliminação do registo?", MsgBoxStyle.Question + MsgBoxStyle.YesNo) = MsgBoxResult.Yes Then Dim idxturma As Integer idxturma = Val(cbT.Text) Dim dc As New DataClasses1DataContext Dim turma As New TURMAS turma = (From turmas In dc.TURMAS Where turmas.Turma = idxturma Select turmas).Single Try dc.TURMAS.DeleteOnSubmit(turma) dc.SubmitChanges() MsgBox("Turma eliminada com sucesso!", MsgBoxStyle.Information) Ler_Turmas() Ler_Níveis() Ler_Professores() NumericUpDown1.Value = Nothing

Catch ex As Exception MsgBox("O registo não pode ser eliminado:" & Chr(13) & ex.Message, MsgBoxStyle.Critical, "Error")

End Try End If End SubEnd Class

Codificação Formulário Alunos

Public Class FormAlunos

Private Sub FormAlunos_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load 'textos para os botões Button1.Text = "ADICIONAR" Button2.Text = "ALTERAR" Button3.Text = "REMOVER" 'CONFIGURAÇÃO DA CAIXA DE COMBINAÇÃO cbT.DropDownStyle = ComboBoxStyle.DropDownList 'Acesso aos dados Ler_Alunos() Ler_Turmas()

End Sub Sub Ler_Alunos() 'Reset à caixa de listagem ListBox1.Items.Clear() 'Carregamento da caixa de listagem Dim dc As New DataClasses1DataContext Dim lista = (From Aluno In dc.ALUNOS) For Each Aluno In lista ListBox1.Items.Add(Aluno.Nome)

Next End Sub Sub ler_Turmas() 'Reset a caixa de combinação cbT.Items.Clear() 'Carregamento dos dados Dim dc As New DataClasses1DataContext Dim lista = (From turma In dc.TURMAS) For Each Turma In lista cbT.Items.Add(Turma.Turma) Next

End Sub

Private Sub ListBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListBox1.SelectedIndexChanged 'Actualização campo'Turma' Dim idxturma As Integer Dim nomealuno As String nomealuno = ListBox1.Text Dim dc As DataClasses1DataContext Dim Aluno As New ALUNOS

Aluno = (From Alunos In dc.ALUNOS Where Alunos.Nome = nomealuno Select Alunos).Single idxturma = Aluno.Turma cbT.Text = idxturma End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click If Button1.Text = "Adicionar" Then Button1.Text = "Confirmar" Button2.Enabled = False Button3.Enabled = False Ler_Alunos() Else Adicionar_Aluno()

End If End Sub Sub Adicionar_Aluno() 'Verificar se o campo 'Turma' foi preenchido If cbT.Text = Nothing Then MsgBox("preencha o campo ' Turma'", MsgBoxStyle.Critical) cbT.Focus() Exit Sub End If Dim idxturma As Integer idxturma = Val(cbT.Text) 'obtenção do nome do aluno Dim nome As String nome = InputBox("qual é o nome do aluno?", "Adicionar Aluno") 'Validação do dado inserido pelo utilizador If Len(Trim(nome)) < 3 Then 'Dado incorrecto MsgBox("introduza correctamente o nome.", MsgBoxStyle.Critical, "Erro") Exit Sub Else 'Dado correcto Dim dc As New DataClasses1DataContext Dim Aluno As New ALUNOS Aluno.Nome = nome Aluno.Turma = Val(cbT.Text) dc.ALUNOS.InsertOnSubmit(Aluno) dc.SubmitChanges() MsgBox("Aluno adicionado com sucesso!", MsgBoxStyle.Information) Button1.Text = "Adicionar" 'Reactivação dos botões 'Alterar' e 'Remover' Button2.Enabled = True Button3.Enabled = True 'Actualização do controlo ListBox Ler_Alunos()

End If ListBox1.SelectedIndex = ListBox1.Items.Count - 1

End Sub Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click If ListBox1.SelectedItems.Count <> 1 Then MsgBox("Seleccione um dos alunos!", MsgBoxStyle.Exclamation) Else 'Obteção do nome aluno Dim nome_antigo As String Dim nome As String nome_antigo = ListBox1.Text nome = InputBox("Qual o nome do aluno?", "Alterar Aluno", nome_antigo) 'Validação do dado inserido pelo utilizador If Len(Trim(nome)) < 3 Then 'Dado incorrecto MsgBox("introduza correctamente o nome.", MsgBoxStyle.Critical, "Erro") Exit Sub Else 'Dado Correcto Dim dc As New DataClasses1DataContext Dim Aluno As New ALUNOS Aluno = (From Alunos In dc.ALUNOS Where Alunos.Nome = nome_antigo Select Alunos).Single Aluno.Nome = nome Aluno.Turma = Val(cbT.Text) dc.SubmitChanges() MsgBox("Aluno alterado com sucesso!", MsgBoxStyle.Exclamation) 'Actualização do controlo ListBox Ler_Alunos()

End If End If End Sub

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click If MsgBox("Confirma a eliminação do registo?", MsgBoxStyle.Question + MsgBoxStyle.YesNo) = MsgBoxResult.Yes Then Dim nome As String nome = ListBox1.Text Dim dc As New DataClasses1DataContext Dim aluno As New ALUNOS aluno = (From Alunos In dc.ALUNOS Where Alunos.Nome = nome Select Alunos).Single Try dc.ALUNOS.DeleteOnSubmit(aluno)

dc.SubmitChanges()

MsgBox("Aluno eliminando com sucesso!", MsgBoxStyle.Information) Ler_Alunos() Catch ex As Exception MsgBox("O registo não pode ser eliminado:" & Chr(13) & ex.Message, MsgBoxStyle.Critical, "Error") End Try End If End SubEnd Class

Codificação DO Fomulário professores

Public Class FormProfessores

Private Sub FormProfessores_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load 'textos para os botões Button1.Text = "Adicionar" Button2.Text = "Alterar" Button3.Text = "Remover"

'Acesso aos dados Ler_Professores() End Sub

Sub Ler_Professores() 'Reset a caixa de listagem ListBox1.Items.Clear() 'Carregamento da caixa de listagem Dim dc As New DataClasses1DataContext Dim lista = (From Professor In dc.PROFESSORES) For Each Professor In lista ListBox1.Items.Add(Professor.NOME)

Next End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click 'Obtenção do nome do professor Dim nome As String nome = InputBox("Qual o nome do Professor?", "Adicionar Professor") 'Validação do dado inserido pelo utilizador If Len(Trim(nome)) < 3 Then 'Dado incorrecto MsgBox("Introduza correctamente o nome.", MsgBoxStyle.Critical, "ERRO") Exit Sub Else 'Dado correcto Dim dc As New DataClasses1DataContext Dim professor As New PROFESSORES professor.NOME = nome dc.PROFESSORES.InsertOnSubmit(professor) dc.SubmitChanges() MsgBox("Professor adicionado com sucesso!", MsgBoxStyle.Information) 'Actualização do controlo ListBox Ler_Professores()

End If End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click If ListBox1.SelectedItems.Count <> 1 Then MsgBox("Selecione um dos Professores!", MsgBoxStyle.Exclamation) Else

'Obtenção do nome do Professor Dim nome_antigo As String Dim nome As String nome_antigo = ListBox1.Text nome = InputBox("Qual o nome do Professor?", "Alterar Professor", nome_antigo) 'Validação do dado inserido pelo utilizador If Len(Trim(nome)) < 3 Then 'Dado incorrecto MsgBox("Introduza correctamente o nome.", MsgBoxStyle.Critical, "ERRO") Exit Sub Else 'Dado correcto Dim dc As New DataClasses1DataContext Dim professor As New PROFESSORES professor = (From professores In dc.PROFESSORES Where professores.NOME = nome_antigo Select professores).Single professor.NOME = nome dc.SubmitChanges() MsgBox("Professor alterado com sucesso!", MsgBoxStyle.Information) 'Actualização do controlo listbox Ler_Professores() End If End If End Sub

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click If ListBox1.SelectedItems.Count <> 1 Then MsgBox("selecione um professor da caixa de listagem!", MsgBoxStyle.Exclamation) 'obtençao do nome do professor Else Dim nome As String nome = ListBox1.Text If MsgBox("apagar o registo selecionado?", MsgBoxStyle.YesNo + MsgBoxStyle.Question, "apagar registo?") = MsgBoxResult.Yes Then Dim dc As New DataClasses1DataContext Dim professor As New PROFESSORES professor = (From professores In dc.PROFESSORES Where professores.NOME = nome Select professores).Single Try dc.PROFESSORES.DeleteOnSubmit(professor) dc.SubmitChanges() MsgBox("o professor foi apagado.", MsgBoxStyle.Information) 'actualização do controlo listbox ler_professores() Catch ex As Exception MsgBox("o registo não pode ser iliminado:" & Chr(13) & ex.Message, MsgBoxStyle.Critical, "erro") End Try

End If End If End SubEnd Class

Projecto de Programação de Aluno(Samuel)

Documents

Transcript of Projecto de Programação de Aluno(Samuel)