Projecto de Programação de Aluno(Samuel)
Transferir como DOCX, PDF1 gostou336 visualizações
O documento descreve um sistema de gestão escolar com formulários para gerir dados de alunos, turmas, professores e níveis. Inclui código para criar e populat formulários, realizar consultas e modificar registos na base de dados.
Projecto de Programação de Aluno(Samuel)
- 6. Formulários
- 7. ChamarFormuláriosTurmas PublicClassForm1 PrivateSub Button4_Click(ByVal sender AsSystem.Object, ByVal e AsSystem.EventArgs) Handles Button4.Click Dim Form AsNewFormProfessores Form.ShowDialog() EndSub PrivateSub Button1_Click(ByVal sender AsSystem.Object, ByVal e AsSystem.EventArgs) Handles Button1.Click Dim Form AsNewFormTurmas Form.ShowDialog() EndSub
- 8. PrivateSub Button2_Click(ByVal sender AsSystem.Object, ByVal e AsSystem.EventArgs) Handles Button2.Click Dim Form AsNewFormAlunos Form.ShowDialog() EndSub PrivateSub Button3_Click(ByVal sender AsSystem.Object, ByVal e AsSystem.EventArgs) Handles Button3.Click Dim nome AsString nome = InputBox("Introduza o nome :", "Pesquisa") Dim dc AsNewDataClasses1DataContext 'Obtenção de Registos Dimlista_alunos = (From Alunos Indc.ALUNOSWhereAlunos.Nome.Contains(nome)) Dimlista_professores = (From Professores Indc.PROFESSORESWhereProfessores.Nome.Contains(nome)) 'Apresentação de resultados Dim resultado AsString = "Alunos:"&Chr(13) ForEach aluno Inlista_alunos resultado = resultado &aluno.Aluno&Space(1) &aluno.Nome&Chr(13) Next resultado = resultado &Chr(13) &"Professores:"&Chr(13) ForEach professor Inlista_professores resultado = resultado &professor.Professor&Space(1) &professor.Nome&professor.Nome&Chr(13) Next MsgBox(resultado, MsgBoxStyle.Information, "Resultado") EndSub EndClass ChamarFormulárioAlunos
- 9. PublicClassForm1 PrivateSub Button4_Click(ByVal sender AsSystem.Object, ByVal e AsSystem.EventArgs) Handles Button4.Click Dim Form AsNewFormProfessores Form.ShowDialog() EndSub PrivateSub Button1_Click(ByVal sender AsSystem.Object, ByVal e AsSystem.EventArgs) Handles Button1.Click Dim Form AsNewFormTurmas Form.ShowDialog() EndSub PrivateSub Button2_Click(ByVal sender AsSystem.Object, ByVal e AsSystem.EventArgs) Handles Button2.Click Dim Form AsNewFormAlunos Form.ShowDialog() EndSub PrivateSub Button3_Click(ByVal sender AsSystem.Object, ByVal e AsSystem.EventArgs) Handles Button3.Click Dim nome AsString nome = InputBox("Introduza o nome :", "Pesquisa") Dim dc AsNewDataClasses1DataContext 'Obtenção de Registos Dimlista_alunos = (From Alunos Indc.ALUNOSWhereAlunos.Nome.Contains(nome)) Dimlista_professores = (From Professores Indc.PROFESSORESWhereProfessores.Nome.Contains(nome)) 'Apresentação de resultados
- 10. Dim resultado AsString = "Alunos:"&Chr(13) ForEach aluno Inlista_alunos resultado = resultado &aluno.Aluno&Space(1) &aluno.Nome&Chr(13) Next resultado = resultado &Chr(13) &"Professores:"&Chr(13) ForEach professor Inlista_professores resultado = resultado &professor.Professor&Space(1) &professor.Nome&professor.Nome&Chr(13) Next MsgBox(resultado, MsgBoxStyle.Information, "Resultado") EndSub EndClass ChamarformulárioProfessores PublicClassForm1 PrivateSub Button4_Click(ByVal sender AsSystem.Object, ByVal e AsSystem.EventArgs) Handles Button4.Click Dim Form AsNewFormProfessores Form.ShowDialog() EndSub PrivateSub Button1_Click(ByVal sender AsSystem.Object, ByVal e AsSystem.EventArgs) Handles Button1.Click Dim Form AsNewFormTurmas Form.ShowDialog() EndSub
- 11. PrivateSub Button2_Click(ByVal sender AsSystem.Object, ByVal e AsSystem.EventArgs) Handles Button2.Click Dim Form AsNewFormAlunos Form.ShowDialog() EndSub PrivateSub Button3_Click(ByVal sender AsSystem.Object, ByVal e AsSystem.EventArgs) Handles Button3.Click Dim nome AsString nome = InputBox("Introduza o nome :", "Pesquisa") Dim dc AsNewDataClasses1DataContext 'Obtenção de Registos Dimlista_alunos = (From Alunos Indc.ALUNOSWhereAlunos.Nome.Contains(nome)) Dimlista_professores = (From Professores Indc.PROFESSORESWhereProfessores.Nome.Contains(nome)) 'Apresentação de resultados Dim resultado AsString = "Alunos:"&Chr(13) ForEach aluno Inlista_alunos resultado = resultado &aluno.Aluno&Space(1) &aluno.Nome&Chr(13) Next resultado = resultado &Chr(13) &"Professores:"&Chr(13) ForEach professor Inlista_professores resultado = resultado &professor.Professor&Space(1) &professor.Nome&professor.Nome&Chr(13) Next MsgBox(resultado, MsgBoxStyle.Information, "Resultado") EndSub EndClass FormulárioConsultas
- 12. PublicClassForm1 PrivateSub Button4_Click(ByVal sender AsSystem.Object, ByVal e AsSystem.EventArgs) Handles Button4.Click Dim Form AsNewFormProfessores Form.ShowDialog() EndSub PrivateSub Button1_Click(ByVal sender AsSystem.Object, ByVal e AsSystem.EventArgs) Handles Button1.Click Dim Form AsNewFormTurmas Form.ShowDialog() EndSub PrivateSub Button2_Click(ByVal sender AsSystem.Object, ByVal e AsSystem.EventArgs) Handles Button2.Click Dim Form AsNewFormAlunos Form.ShowDialog() EndSub PrivateSub Button3_Click(ByVal sender AsSystem.Object, ByVal e AsSystem.EventArgs) Handles Button3.Click Dim nome AsString nome = InputBox("Introduza o nome :", "Pesquisa") Dim dc AsNewDataClasses1DataContext 'Obtenção de Registos Dimlista_alunos = (From Alunos Indc.ALUNOSWhereAlunos.Nome.Contains(nome))
- 13. Dimlista_professores = (From Professores Indc.PROFESSORESWhereProfessores.Nome.Contains(nome)) 'Apresentação de resultados Dim resultado AsString = "Alunos:"&Chr(13) ForEach aluno Inlista_alunos resultado = resultado &aluno.Aluno&Space(1) &aluno.Nome&Chr(13) Next resultado = resultado &Chr(13) &"Professores:"&Chr(13) ForEach professor Inlista_professores resultado = resultado &professor.Professor&Space(1) &professor.Nome&professor.Nome&Chr(13) Next MsgBox(resultado, MsgBoxStyle.Information, "Resultado") EndSub EndClass CodificaçãoFormulárioTurmas PublicClassFormTurmas PrivateSubFormTurmas_Load(ByVal sender AsSystem.Object, ByVal e AsSystem.EventArgs) HandlesMyBase.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
- 14. 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() EndSub SubLer_Turmas() ' Reset a caixa de combinação cbT.Items.Clear() 'Carregamento da caixa de combinação Dim dc AsNewDataClasses1DataContext Dim lista = (From Turma Indc.TURMAS) ForEachTurmaInlista cbT.Items.Add(Turma.Turma) Next EndSub SubLer_Níveis() ' Reset a caixa de combinação cbN.Items.Clear() 'Carregamento da caixa de combinação Dim dc AsNewDataClasses1DataContext Dim lista = (From Nível Indc.NÍVEIS) ForEachNívelInlista cbN.Items.Add(Nível.Nível) Next EndSub SubLer_Professores() ' Reset a caixa de combinação cbP.Items.Clear() 'Carregamento da caixa de combinação Dim dc AsNewDataClasses1DataContext Dim lista = (From Professor Indc.PROFESSORES) ForEach Professor Inlista
- 15. cbP.Items.Add(Professor.Nome) Next EndSub PrivateSubcbT_SelectedIndexChanged(ByVal sender AsSystem.Object, ByVal e AsSystem.EventArgs) HandlescbT.SelectedIndexChanged Actualizar_Data() Actualizar_Nível() Actualizar_Duração() Actualizar_Professor() EndSub ' Actualização do controlo MonthCalendar1 SubActualizar_Data() Dim data AsDate DimidxTurmaAsInteger idxTurma = Val(cbT.Text) Dim dc AsNewDataClasses1DataContext Dim Turma AsNewTURMAS Turma = (From Turmas Indc.TURMASWhereTurmas.Turma = idxTurmaSelect Turmas).Single data = Turma.Data MonthCalendar1.SetDate(data) EndSub ' Actualização do controlo cbN SubActualizar_Nível() Dim nível AsInteger DimidxTurmaAsInteger idxTurma = Val(cbT.Text) Dim dc AsNewDataClasses1DataContext Dim Turma AsNewTURMAS Turma = (From Turmas Indc.TURMASWhereTurmas.Turma = idxTurmaSelect Turmas).Single nível = Turma.Nível
- 16. cbN.Text = nível EndSub ' Actualização do controlo NumericUpDown1 SubActualizar_Duração() DimidxNívelAsInteger idxNível = Val(cbN.Text) Dim duração AsInteger Dim dc AsNewDataClasses1DataContext Dim nível AsNewNÍVEIS nível = (From Níveis Indc.NÍVEISWhereNíveis.Nível = idxNívelSelect Níveis).Single duração = nível.Duração NumericUpDown1.Value = duração EndSub ' Actualização do controlo cbP SubActualizar_Professor() DimidxTurmaAsInteger idxTurma = Val(cbT.Text) DimidxProfessorAsInteger DimnomeProfessorAsString Dim dc AsNewDataClasses1DataContext Dim Turma AsNewTURMAS Turma = (From Turmas Indc.TURMASWhereTurmas.Turma = idxTurmaSelect Turmas).Single idxProfessor = Turma.Professor Dim Professor AsNewPROFESSORES Professor = (From Professores Indc.PROFESSORESWhereProfessores.Professor = idxProfessorSelect Professores).Single nomeProfessor = Professor.Nome cbP.Text = nomeProfessor
- 17. EndSub PrivateSubcbN_SelectedIndexChanged(ByVal sender AsSystem.Object, ByVal e AsSystem.EventArgs) HandlescbN.SelectedIndexChanged Actualizar_Duração() EndSub PrivateSub Button1_Click(ByVal sender AsSystem.Object, ByVal e AsSystem.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() EndIf EndSub SubAdicionar_turma() 'Validação dos dados IfcbT.Text = NothingThen MsgBox("Preencha o campo 'Nível'", MsgBoxStyle.Critical) cbN.Focus() Exit Sub IfcbT.Text = NothingThen MsgBox("Preencha o capmo 'Professor'", MsgBoxStyle.Critical) cbP.Focus() Exit Sub EndIf 'Saber Id do Professor DimidxprofessorAsInteger DimnomeprofessorAsString nomeprofessor = cbP.Text Dim dc AsNewDataClasses1DataContext Dim Professor AsNewPROFESSORES Professor = (From professores Indc.PROFESSORESWhereprofessores.Nome = nomeprofessorSelect professores).Single idxprofessor = Professor.Professor 'inserção do registo Dim turma AsNewTURMAS
- 18. 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 EndIf EndSub PrivateSub Button2_Click(ByVal sender AsSystem.Object, ByVal e AsSystem.EventArgs) Handles Button2.Click If Len(cbT.Text) = 0 Then MsgBox("selectcioneumaturma.", MsgBoxStyle.Exclamation) Exit Sub EndIf IfMsgBox("Confirma a alteraração do registo?", MsgBoxStyle.Question + MsgBoxStyle.YesNo) = MsgBoxResult.YesThen DimidxturmaAsInteger idxturma = Val(cbT.Text) Dim dc AsNewDataClasses1DataContext Dim turma AsNewTURMAS turma = (From turmas Indc.TURMASWhereturmas.Turma = idxturmaSelect turmas).Single turma.Data = MonthCalendar1.SelectionRange.Start turma.Nível = Val(cbN.Text) 'saber ID do professor DimidxprofessorAsInteger DimnomeprofessorAsString nomeprofessor = cbP.Text Dim professor AsNewPROFESSORES professor = (From professores Indc.PROFESSORESWhereprofessores.Nome = nomeprofessorSelect professores).Single() idxprofessor = professor.Professor turma.Professor = idxprofessor dc.SubmitChanges() MsgBox("Turma actualizada com sucesso!", MsgBoxStyle.Information) EndIf EndSub
- 19. PrivateSub Button3_Click(ByVal sender AsSystem.Object, ByVal e AsSystem.EventArgs) Handles Button3.Click If Len(cbT.Text) = 0 Then MsgBox("seleccioneumaturma.", MsgBoxStyle.Exclamation) Exit Sub EndIf IfMsgBox("Confirmar a eliminação do registo?", MsgBoxStyle.Question + MsgBoxStyle.YesNo) = MsgBoxResult.YesThen DimidxturmaAsInteger idxturma = Val(cbT.Text) Dim dc AsNewDataClasses1DataContext Dim turma AsNewTURMAS turma = (FromturmasIndc.TURMASWhereturmas.Turma = idxturmaSelectturmas).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 AsException MsgBox("O registo não pode ser eliminado:"&Chr(13) &ex.Message, MsgBoxStyle.Critical, "Error") EndTry EndIf EndSub EndClass Codificação Formulário Alunos PublicClassFormAlunos PrivateSubFormAlunos_Load(ByVal sender AsSystem.Object, ByVal e AsSystem.EventArgs) HandlesMyBase.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() EndSub
- 20. SubLer_Alunos() 'Reset à caixa de listagem ListBox1.Items.Clear() 'Carregamento da caixa de listagem Dim dc AsNewDataClasses1DataContext Dim lista = (From Aluno Indc.ALUNOS) ForEachAlunoInlista ListBox1.Items.Add(Aluno.Nome) Next EndSub Subler_Turmas() 'Reset a caixa de combinação cbT.Items.Clear() 'Carregamento dos dados Dim dc AsNewDataClasses1DataContext Dim lista = (From turma Indc.TURMAS) ForEachTurmaInlista cbT.Items.Add(Turma.Turma) Next EndSub PrivateSub ListBox1_SelectedIndexChanged(ByVal sender AsSystem.Object, ByVal e AsSystem.EventArgs) Handles ListBox1.SelectedIndexChanged 'Actualização campo'Turma' DimidxturmaAsInteger DimnomealunoAsString nomealuno = ListBox1.Text Dim dc AsDataClasses1DataContext Dim Aluno AsNewALUNOS Aluno = (From Alunos Indc.ALUNOSWhereAlunos.Nome = nomealunoSelect Alunos).Single idxturma = Aluno.Turma cbT.Text = idxturma EndSub PrivateSub Button1_Click(ByVal sender AsSystem.Object, ByVal e AsSystem.EventArgs) Handles Button1.Click If Button1.Text = "Adicionar"Then Button1.Text = "Confirmar" Button2.Enabled = False Button3.Enabled = False Ler_Alunos() Else Adicionar_Aluno() EndIf EndSub SubAdicionar_Aluno()
- 21. 'Verificar se o campo 'Turma' foi preenchido IfcbT.Text = NothingThen MsgBox("preencha o campo ' Turma'", MsgBoxStyle.Critical) cbT.Focus() Exit Sub EndIf DimidxturmaAsInteger idxturma = Val(cbT.Text) 'obtenção do nome do aluno Dim nome AsString nome = InputBox("qual é o nome do aluno?", "Adicionar Aluno") 'Validação do dado inserido pelo utilizador IfLen(Trim(nome)) < 3 Then 'Dado incorrecto MsgBox("introduza correctamente o nome.", MsgBoxStyle.Critical, "Erro") Exit Sub Else 'Dado correcto Dim dc AsNewDataClasses1DataContext Dim Aluno AsNewALUNOS 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() EndIf ListBox1.SelectedIndex = ListBox1.Items.Count - 1 EndSub PrivateSub Button2_Click(ByVal sender AsSystem.Object, ByVal e AsSystem.EventArgs) Handles Button2.Click If ListBox1.SelectedItems.Count <> 1 Then MsgBox("Seleccione um dos alunos!", MsgBoxStyle.Exclamation) Else 'Obteção do nome aluno Dimnome_antigoAsString Dim nome AsString nome_antigo = ListBox1.Text nome = InputBox("Qual o nome do aluno?", "Alterar Aluno", nome_antigo) 'Validação do dado inserido pelo utilizador IfLen(Trim(nome)) < 3 Then 'Dado incorrecto
- 22. MsgBox("introduza correctamente o nome.", MsgBoxStyle.Critical, "Erro") Exit Sub Else 'Dado Correcto Dim dc AsNewDataClasses1DataContext Dim Aluno AsNewALUNOS Aluno = (From Alunos Indc.ALUNOSWhereAlunos.Nome = nome_antigoSelect 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() EndIf EndIf EndSub PrivateSub Button3_Click(ByVal sender AsSystem.Object, ByVal e AsSystem.EventArgs) Handles Button3.Click IfMsgBox("Confirma a eliminação do registo?", MsgBoxStyle.Question + MsgBoxStyle.YesNo) = MsgBoxResult.YesThen DimnomeAsString nome = ListBox1.Text Dim dc AsNewDataClasses1DataContext Dim aluno AsNewALUNOS aluno = (From Alunos Indc.ALUNOSWhereAlunos.Nome = nome Select Alunos).Single Try dc.ALUNOS.DeleteOnSubmit(aluno) dc.SubmitChanges() MsgBox("Aluno eliminando com sucesso!", MsgBoxStyle.Information) Ler_Alunos() CatchexAsException MsgBox("O registo não pode ser eliminado:"&Chr(13) &ex.Message, MsgBoxStyle.Critical, "Error") EndTry EndIf EndSub EndClass
- 23. Codificação DO Fomulário professores PublicClassFormProfessores PrivateSubFormProfessores_Load(ByVal sender AsSystem.Object, ByVal e AsSystem.EventArgs) HandlesMyBase.Load 'textos para os botões Button1.Text = "Adicionar" Button2.Text = "Alterar" Button3.Text = "Remover" 'Acesso aos dados Ler_Professores() EndSub SubLer_Professores() 'Reset a caixa de listagem ListBox1.Items.Clear() 'Carregamento da caixa de listagem Dim dc AsNewDataClasses1DataContext Dim lista = (From Professor Indc.PROFESSORES) ForEach Professor Inlista
- 24. ListBox1.Items.Add(Professor.NOME) Next EndSub PrivateSub Button1_Click(ByVal sender AsSystem.Object, ByVal e AsSystem.EventArgs) Handles Button1.Click 'Obtenção do nome do professor Dim nome AsString nome = InputBox("Qual o nome do Professor?", "Adicionar Professor") 'Validação do dado inserido pelo utilizador IfLen(Trim(nome)) < 3 Then 'Dado incorrecto MsgBox("Introduza correctamente o nome.", MsgBoxStyle.Critical, "ERRO") Exit Sub Else 'Dado correcto Dim dc AsNewDataClasses1DataContext Dim professor AsNewPROFESSORES professor.NOME = nome dc.PROFESSORES.InsertOnSubmit(professor) dc.SubmitChanges() MsgBox("Professor adicionado com sucesso!", MsgBoxStyle.Information) 'Actualização do controlo ListBox Ler_Professores() EndIf EndSub PrivateSub Button2_Click(ByVal sender AsSystem.Object, ByVal e AsSystem.EventArgs) Handles Button2.Click If ListBox1.SelectedItems.Count <> 1 Then MsgBox("Selecione um dos Professores!", MsgBoxStyle.Exclamation) Else 'Obtenção do nome do Professor Dimnome_antigoAsString Dim nome AsString nome_antigo = ListBox1.Text nome = InputBox("Qual o nome do Professor?", "Alterar Professor", nome_antigo) 'Validação do dado inserido pelo utilizador IfLen(Trim(nome)) < 3 Then 'Dado incorrecto MsgBox("Introduza correctamente o nome.", MsgBoxStyle.Critical, "ERRO") Exit Sub Else 'Dado correcto Dim dc AsNewDataClasses1DataContext Dim professor AsNewPROFESSORES professor = (From professores Indc.PROFESSORESWhereprofessores.NOME = nome_antigoSelect professores).Single professor.NOME = nome dc.SubmitChanges() MsgBox("Professor alterado com sucesso!", MsgBoxStyle.Information) 'Actualização do controlo listbox Ler_Professores() EndIf EndIf EndSub PrivateSub Button3_Click(ByVal sender AsSystem.Object, ByVal e AsSystem.EventArgs) Handles Button3.Click If ListBox1.SelectedItems.Count <> 1 Then
- 25. MsgBox("selecione um professor da caixa de listagem!", MsgBoxStyle.Exclamation) 'obtençao do nome do professor Else Dim nome AsString nome = ListBox1.Text IfMsgBox("apagar o registo selecionado?", MsgBoxStyle.YesNo + MsgBoxStyle.Question, "apagar registo?") = MsgBoxResult.YesThen Dim dc AsNewDataClasses1DataContext Dim professor AsNewPROFESSORES professor = (From professores Indc.PROFESSORES Whereprofessores.NOME = nome Selectprofessores).Single Try dc.PROFESSORES.DeleteOnSubmit(professor) dc.SubmitChanges() MsgBox("o professor foi apagado.", MsgBoxStyle.Information) 'actualização do controlo listboxler_professores() CatchexAsException MsgBox("o registo não pode ser iliminado:"&Chr(13) &ex.Message, MsgBoxStyle.Critical, "erro") EndTry EndIf EndIf EndSub EndClass