Está aí um programa que eu fiz quando comecei a mecher com DB em VB.
Código comentado e programa
frmPrincipal
'Programa de Cadastro v1.1.0
'Desenvolvido por Raphael Taveira
Dim db As Database
'Declarando o objeto db que manuseará o banco de dados
Dim também As Recordset
'Declarando o objeto também que manuseará a tabela
Dim sexo As String
'Declarando a var sexo para armazenar o sexo do professor
Dim botao As Integer
'Declarando a variável botao que armazenará o código do
'botão selecionado pelo usuário 1 = Cadastrar / 2 = Alterar / 3 = Excluir
Private Sub cmdAlterar_Click()
If (txtcic.Text = "") Then
'Se a caixa de texto CIC estiver vazia
MsgBox "Digite um CIC", , "Aviso"
'Exibe a msg Digite um cic para o usuário
txtcic.SetFocus
'Insere o foco na caixa do cic
Exit Sub
'Sai da sub, não permitindo que o resto da programação
'desta sub seja executada
End If
'fim do if
'Se a caixa de CIC estiver preenchida a programação abaixo será executada
também.Seek "=", txtcic.Text
'Procura na tabela por um cic que seja igual ao digitado
If também.NoMatch Then
'Se o cic não for encontrado
MsgBox "CIC não econtrado"
'Exibe a mensagem CIC não encontrado p/ o usuário
txtcic.SetFocus
'Insere o foco na caixa do cic
Else
'Se o cic for encontrado na tabela
pnlcampos.Enabled = True
'Habilita o painel dos campos
txtcic.Text = também!cic
'Mostra no campo cic o conteúdo do cic da tabela
txtnome.Text = também!nome
'Mostra no campo nome o conteudo nome da tabela pertinente ao cic atual
If também!sexo = "Masculino" Then
'Se o campo sexo estiver com o valor Masculino
optmf(0).Value = True
'Marca a opção Masculino
sexo = "Masculino"
'Var sexo recebe Masculino
Else
optmf(1).Value = True
'Marca a opção Feminino
sexo = "Feminino"
'Var sexo recebo Feminino
End If
'fim do if
cbosalario.Text = também!salario
'Mostre no combo salário o valor do salário da tabela
cmdCadastrar.Enabled = False
'Desabilita o botão Cadastrar
cmdAlterar.Enabled = False
'Desabilita o botão Alterar
cmdExcluir.Enabled = False
'Desabilita o botão Excluir
cmdConsultar.Enabled = False
'Desabilita o botão Consultar
cmdConfirmar.Visible = True
'Deixa o botão Confirmar visivel
cmdCancelar.Visible = True
'Deixa o botão Cancelar visivel
txtnome.SetFocus
'Insere o foco na caixa de texto do nome
botao = 2
'A variável botão recebe 1 para o VB saber que o usuário
'clicou no botão Cadastrar
End If
'fim do if
End Sub
Private Sub cmdCadastrar_Click()
If (txtcic.Text = "") Then
'Se a caixa de texto CIC estiver vazia
MsgBox "Digite um CIC", , "Aviso"
'Exibe a msg Digite um cic para o usuário
txtcic.SetFocus
'Insere o foco na caixa do cic
Exit Sub
'Sai da sub, não permitindo que o resto da programação
'desta sub seja executada
End If
'fim do if
'Se a caixa do CIC estiver preenchida a programação a baixo será execurada
também.Seek "=", txtcic.Text
'Procura na tabela por um cic que seja igual ao digitado na caixa de cic
If também.NoMatch Then
'Se o cic digitado não for encontrado
pnlcampos.Enabled = True
'Habilita o painel de campos
pnlchave.Enabled = False
'Desabilita o painel do cic
cmdCadastrar.Enabled = False
'Desabilita o botão Cadastrar
cmdAlterar.Enabled = False
'Desabilita o botão Alterar
cmdExcluir.Enabled = False
'Desabilita o botão Excluir
cmdConsultar.Enabled = False
'Desabilita o botão Consultar
cmdConfirmar.Visible = True
'Deixa o botão Confirmar visivel
cmdCancelar.Visible = True
'Deixa o botão Cancelar visivel
txtnome.SetFocus
'Insere o foco na caixa de texto
botao = 1
'A variável botão recebe 1 para o VB saber que o usuário
'clicou no botão Cadastrar
Else
'Se o CIC digitado for encontrado na tabela
MsgBox "Professor já cadastrado!", , "Aviso"
'Exibe a mensagem Professor já cadastrado ao usuário
txtcic.Text = ""
'Limpa a caixa de cic
txtcic.SetFocus
'Insere o foco na caixa do cic
pnlchave.Enabled = True
'Habilita o painel do cic
End If
'fim do if
End Sub
Private Sub cmdCancelar_Click()
pnlchave.Enabled = True
'Habilita o painel do cic
pnlcampos.Enabled = False
'Desabilita o painel dos campos
cmdCadastrar.Enabled = True
'Habilita o botão Cadastrar
cmdAlterar.Enabled = True
'Habilita o botão Alterar
cmdExcluir.Enabled = True
'Habilita o botão excluir
cmdConsultar.Enabled = True
'Habilita o botão Consultar
txtcic.Text = ""
'Limpa a caixa de cic
txtnome.Text = ""
'Limpa a caixa de nome
optmf(0).Value = True
sexo = "Masculino"
'Var sexo recebe Masculino
cbosalario.Text = ""
'Limpa o combo de salario
cmdConfirmar.Visible = False
'Deixa o botao COnfirmar invisivel
cmdCancelar.Visible = False
'Deixa o botao Cancelar invisivel
End Sub
Private Sub cmdConfirmar_Click()
Select Case botao
Case 1
também.AddNew
também!cic = txtcic.Text
também!nome = txtnome.Text
também!sexo = sexo
também!salario = cbosalario.Text
também.Update
Case 2
também.Edit
também!cic = txtcic.Text
também!nome = txtnome.Text
também!sexo = sexo
também!salario = cbosalario.Text
também.Update
Case 3
também.Delete
End Select
'fim do select
cmdCancelar_Click
'Executa a programacao do botao Cancelar
End Sub
Private Sub cmdConsultar_Click()
If (txtcic.Text = "") Then
'Se a caixa de texto CIC estiver vazia
MsgBox "Digite um CIC", , "Aviso"
'Exibe a msg Digite um cic para o usuário
txtcic.SetFocus
'Insere o foco na caixa do cic
Exit Sub
'Sai da sub, não permitindo que o resto da programação
'desta sub seja executada
End If
'fim do if
'Se a caixa de CIC estiver preenchida a programação abaixo será executada
também.Seek "=", txtcic.Text
'Procura na tabela por um cic que seja igual ao digitado
If também.NoMatch Then
'Se o cic não for encontrado
MsgBox "CIC não econtrado"
'Exibe a mensagem CIC não encontrado p/ o usuário
txtcic.SetFocus
'Insere o foco na caixa do cic
Else
'Se o cic for encontrado na tabela
pnlcampos.Enabled = True
'Habilita o painel dos campos
txtcic.Text = também!cic
'Mostra no campo cic o conteúdo do cic da tabela
txtnome.Text = também!nome
'Mostra no campo nome o conteudo nome da tabela pertinente ao cic atual
If também!sexo = "Masculino" Then
'Se o campo sexo estiver com o valor Masculino
optmf(0).Value = True
'Marca a opção Masculino
sexo = "Masculino"
'Var sexo recebe Masculino
Else
optmf(1).Value = True
'Marca a opção Feminino
sexo = "Feminino"
'Var sexo recebo Feminino
End If
'fim do if
cbosalario.Text = também!salario
'Mostre no combo salário o valor do salário da tabela
cmdCadastrar.Enabled = False
'Desabilita o botão Cadastrar
cmdAlterar.Enabled = False
'Desabilita o botão Alterar
cmdExcluir.Enabled = False
'Desabilita o botão Excluir
cmdConsultar.Enabled = False
'Desabilita o botão Consultar
cmdOk.Visible = True
'Deixa o botão Ok visivel
End If
End Sub
Private Sub cmdExcluir_Click()
If (txtcic.Text = "") Then
'Se a caixa de texto CIC estiver vazia
MsgBox "Digite um CIC", , "Aviso"
'Exibe a msg Digite um cic para o usuário
txtcic.SetFocus
'Insere o foco na caixa do cic
Exit Sub
'Sai da sub, não permitindo que o resto da programação
'desta sub seja executada
End If
'fim do if
'Se a caixa de CIC estiver preenchida a programação abaixo será executada
também.Seek "=", txtcic.Text
'Procura na tabela por um cic que seja igual ao digitado
If também.NoMatch Then
'Se o cic não for encontrado
MsgBox "CIC não econtrado"
'Exibe a mensagem CIC não encontrado p/ o usuário
txtcic.SetFocus
'Insere o foco na caixa do cic
Else
'Se o cic for encontrado na tabela
pnlcampos.Enabled = True
'Habilita o painel dos campos
txtcic.Text = também!cic
'Mostra no campo cic o conteúdo do cic da tabela
txtnome.Text = também!nome
'Mostra no campo nome o conteúdo nome da tabela pertinente ao cic atual
If também!sexo = "Masculino" Then
'Se o campo sexo estiver com o valor Masculino
optmf(0).Value = True
'Marca a opção Masculino
sexo = "Masculino"
'Var sexo recebe Masculino
Else
optmf(1).Value = True
'Marca a opção Feminino
sexo = "Feminino"
'Var sexo recebo Feminino
End If
'fim do if
cbosalario.Text = também!salario
'Mostre no combo salário o valor do salário da tabela
cmdCadastrar.Enabled = False
'Desabilita o botão Cadastrar
cmdAlterar.Enabled = False
'Desabilita o botão Alterar
cmdExcluir.Enabled = False
'Desabilita o botão Excluir
cmdConsultar.Enabled = False
'Desabilita o botão Consultar
cmdConfirmar.Visible = True
'Deixa o botao Confirmar visivel
cmdCancelar.Visible = True
'Deixa o botao Cancelar visivel
botao = 3
End If
End Sub
Private Sub cmdOK_Click()
cmdCancelar_Click
'Executa a programação do botão cancelar
cmdOk.Visible = False
'Deixa o botao Ok invisivel
End Sub
Private Sub creditos_Click()
frmAbout.Show
End Sub
Private Sub Form_Load()
Set db = OpenDatabase("C:univap.mdb")
'Abre o banco de dados, diga o destino do mesmo
Set também = db.OpenRecordset("professores", dbOpenTable)
'Abre a tabela
também.Index = "PrimaryKey"
'Seta a primary key como chave primária
sexo = "Masculino"
'Sexo recebe Masculino
End Sub
Private Sub optmf_Click(Index As Integer, Value As Integer)
Select Case Index
'Selecione conforme o índice do botão de opção selecionado
Case 0
'Caso o botão seja o Masculino
sexo = "Masculino"
'Armazene na variável sexo a palavra "Masculino"
Case 1
'Caso o botão seja o Feminino
sexo = "Feminino"
'Armazene na variável sexo a palavra "Feminino"
End Select
'Fim do select
End Sub
Private Sub sair_Click()
'Pergunta ao usuário se ele realmente quer fechar o programa
If MsgBox("Deseja realmente sair ?", vbYesNo, "Cadastro") = vbYes Then
'Se sim
End
'Finaliza o programa
Else
'Senão
Exit Sub
'Sai da sub e não executa o resto da programação
End If
End Sub
frmCreditos
Private Sub cmdOK_Click()
Unload Me
End Sub
Private Sub Form_Load()
Me.Caption = "About " & App.Title
lblVersion.Caption = "Version " & App.Major & "." & App.Minor & "." & App.Revision
lblTitle.Caption = App.Title
End Sub
Obs: Coloque o banco de dados na unidade C: ou então mude o destino do mesmo no form_load do frmPrincipal.
Pergunta
Strous
Está aí um programa que eu fiz quando comecei a mecher com DB em VB.
Código comentado e programa
frmPrincipal
'Programa de Cadastro v1.1.0 'Desenvolvido por Raphael Taveira Dim db As Database 'Declarando o objeto db que manuseará o banco de dados Dim também As Recordset 'Declarando o objeto também que manuseará a tabela Dim sexo As String 'Declarando a var sexo para armazenar o sexo do professor Dim botao As Integer 'Declarando a variável botao que armazenará o código do 'botão selecionado pelo usuário 1 = Cadastrar / 2 = Alterar / 3 = Excluir Private Sub cmdAlterar_Click() If (txtcic.Text = "") Then 'Se a caixa de texto CIC estiver vazia MsgBox "Digite um CIC", , "Aviso" 'Exibe a msg Digite um cic para o usuário txtcic.SetFocus 'Insere o foco na caixa do cic Exit Sub 'Sai da sub, não permitindo que o resto da programação 'desta sub seja executada End If 'fim do if 'Se a caixa de CIC estiver preenchida a programação abaixo será executada também.Seek "=", txtcic.Text 'Procura na tabela por um cic que seja igual ao digitado If também.NoMatch Then 'Se o cic não for encontrado MsgBox "CIC não econtrado" 'Exibe a mensagem CIC não encontrado p/ o usuário txtcic.SetFocus 'Insere o foco na caixa do cic Else 'Se o cic for encontrado na tabela pnlcampos.Enabled = True 'Habilita o painel dos campos txtcic.Text = também!cic 'Mostra no campo cic o conteúdo do cic da tabela txtnome.Text = também!nome 'Mostra no campo nome o conteudo nome da tabela pertinente ao cic atual If também!sexo = "Masculino" Then 'Se o campo sexo estiver com o valor Masculino optmf(0).Value = True 'Marca a opção Masculino sexo = "Masculino" 'Var sexo recebe Masculino Else optmf(1).Value = True 'Marca a opção Feminino sexo = "Feminino" 'Var sexo recebo Feminino End If 'fim do if cbosalario.Text = também!salario 'Mostre no combo salário o valor do salário da tabela cmdCadastrar.Enabled = False 'Desabilita o botão Cadastrar cmdAlterar.Enabled = False 'Desabilita o botão Alterar cmdExcluir.Enabled = False 'Desabilita o botão Excluir cmdConsultar.Enabled = False 'Desabilita o botão Consultar cmdConfirmar.Visible = True 'Deixa o botão Confirmar visivel cmdCancelar.Visible = True 'Deixa o botão Cancelar visivel txtnome.SetFocus 'Insere o foco na caixa de texto do nome botao = 2 'A variável botão recebe 1 para o VB saber que o usuário 'clicou no botão Cadastrar End If 'fim do if End Sub Private Sub cmdCadastrar_Click() If (txtcic.Text = "") Then 'Se a caixa de texto CIC estiver vazia MsgBox "Digite um CIC", , "Aviso" 'Exibe a msg Digite um cic para o usuário txtcic.SetFocus 'Insere o foco na caixa do cic Exit Sub 'Sai da sub, não permitindo que o resto da programação 'desta sub seja executada End If 'fim do if 'Se a caixa do CIC estiver preenchida a programação a baixo será execurada também.Seek "=", txtcic.Text 'Procura na tabela por um cic que seja igual ao digitado na caixa de cic If também.NoMatch Then 'Se o cic digitado não for encontrado pnlcampos.Enabled = True 'Habilita o painel de campos pnlchave.Enabled = False 'Desabilita o painel do cic cmdCadastrar.Enabled = False 'Desabilita o botão Cadastrar cmdAlterar.Enabled = False 'Desabilita o botão Alterar cmdExcluir.Enabled = False 'Desabilita o botão Excluir cmdConsultar.Enabled = False 'Desabilita o botão Consultar cmdConfirmar.Visible = True 'Deixa o botão Confirmar visivel cmdCancelar.Visible = True 'Deixa o botão Cancelar visivel txtnome.SetFocus 'Insere o foco na caixa de texto botao = 1 'A variável botão recebe 1 para o VB saber que o usuário 'clicou no botão Cadastrar Else 'Se o CIC digitado for encontrado na tabela MsgBox "Professor já cadastrado!", , "Aviso" 'Exibe a mensagem Professor já cadastrado ao usuário txtcic.Text = "" 'Limpa a caixa de cic txtcic.SetFocus 'Insere o foco na caixa do cic pnlchave.Enabled = True 'Habilita o painel do cic End If 'fim do if End Sub Private Sub cmdCancelar_Click() pnlchave.Enabled = True 'Habilita o painel do cic pnlcampos.Enabled = False 'Desabilita o painel dos campos cmdCadastrar.Enabled = True 'Habilita o botão Cadastrar cmdAlterar.Enabled = True 'Habilita o botão Alterar cmdExcluir.Enabled = True 'Habilita o botão excluir cmdConsultar.Enabled = True 'Habilita o botão Consultar txtcic.Text = "" 'Limpa a caixa de cic txtnome.Text = "" 'Limpa a caixa de nome optmf(0).Value = True sexo = "Masculino" 'Var sexo recebe Masculino cbosalario.Text = "" 'Limpa o combo de salario cmdConfirmar.Visible = False 'Deixa o botao COnfirmar invisivel cmdCancelar.Visible = False 'Deixa o botao Cancelar invisivel End Sub Private Sub cmdConfirmar_Click() Select Case botao Case 1 também.AddNew também!cic = txtcic.Text também!nome = txtnome.Text também!sexo = sexo também!salario = cbosalario.Text também.Update Case 2 também.Edit também!cic = txtcic.Text também!nome = txtnome.Text também!sexo = sexo também!salario = cbosalario.Text também.Update Case 3 também.Delete End Select 'fim do select cmdCancelar_Click 'Executa a programacao do botao Cancelar End Sub Private Sub cmdConsultar_Click() If (txtcic.Text = "") Then 'Se a caixa de texto CIC estiver vazia MsgBox "Digite um CIC", , "Aviso" 'Exibe a msg Digite um cic para o usuário txtcic.SetFocus 'Insere o foco na caixa do cic Exit Sub 'Sai da sub, não permitindo que o resto da programação 'desta sub seja executada End If 'fim do if 'Se a caixa de CIC estiver preenchida a programação abaixo será executada também.Seek "=", txtcic.Text 'Procura na tabela por um cic que seja igual ao digitado If também.NoMatch Then 'Se o cic não for encontrado MsgBox "CIC não econtrado" 'Exibe a mensagem CIC não encontrado p/ o usuário txtcic.SetFocus 'Insere o foco na caixa do cic Else 'Se o cic for encontrado na tabela pnlcampos.Enabled = True 'Habilita o painel dos campos txtcic.Text = também!cic 'Mostra no campo cic o conteúdo do cic da tabela txtnome.Text = também!nome 'Mostra no campo nome o conteudo nome da tabela pertinente ao cic atual If também!sexo = "Masculino" Then 'Se o campo sexo estiver com o valor Masculino optmf(0).Value = True 'Marca a opção Masculino sexo = "Masculino" 'Var sexo recebe Masculino Else optmf(1).Value = True 'Marca a opção Feminino sexo = "Feminino" 'Var sexo recebo Feminino End If 'fim do if cbosalario.Text = também!salario 'Mostre no combo salário o valor do salário da tabela cmdCadastrar.Enabled = False 'Desabilita o botão Cadastrar cmdAlterar.Enabled = False 'Desabilita o botão Alterar cmdExcluir.Enabled = False 'Desabilita o botão Excluir cmdConsultar.Enabled = False 'Desabilita o botão Consultar cmdOk.Visible = True 'Deixa o botão Ok visivel End If End Sub Private Sub cmdExcluir_Click() If (txtcic.Text = "") Then 'Se a caixa de texto CIC estiver vazia MsgBox "Digite um CIC", , "Aviso" 'Exibe a msg Digite um cic para o usuário txtcic.SetFocus 'Insere o foco na caixa do cic Exit Sub 'Sai da sub, não permitindo que o resto da programação 'desta sub seja executada End If 'fim do if 'Se a caixa de CIC estiver preenchida a programação abaixo será executada também.Seek "=", txtcic.Text 'Procura na tabela por um cic que seja igual ao digitado If também.NoMatch Then 'Se o cic não for encontrado MsgBox "CIC não econtrado" 'Exibe a mensagem CIC não encontrado p/ o usuário txtcic.SetFocus 'Insere o foco na caixa do cic Else 'Se o cic for encontrado na tabela pnlcampos.Enabled = True 'Habilita o painel dos campos txtcic.Text = também!cic 'Mostra no campo cic o conteúdo do cic da tabela txtnome.Text = também!nome 'Mostra no campo nome o conteúdo nome da tabela pertinente ao cic atual If também!sexo = "Masculino" Then 'Se o campo sexo estiver com o valor Masculino optmf(0).Value = True 'Marca a opção Masculino sexo = "Masculino" 'Var sexo recebe Masculino Else optmf(1).Value = True 'Marca a opção Feminino sexo = "Feminino" 'Var sexo recebo Feminino End If 'fim do if cbosalario.Text = também!salario 'Mostre no combo salário o valor do salário da tabela cmdCadastrar.Enabled = False 'Desabilita o botão Cadastrar cmdAlterar.Enabled = False 'Desabilita o botão Alterar cmdExcluir.Enabled = False 'Desabilita o botão Excluir cmdConsultar.Enabled = False 'Desabilita o botão Consultar cmdConfirmar.Visible = True 'Deixa o botao Confirmar visivel cmdCancelar.Visible = True 'Deixa o botao Cancelar visivel botao = 3 End If End Sub Private Sub cmdOK_Click() cmdCancelar_Click 'Executa a programação do botão cancelar cmdOk.Visible = False 'Deixa o botao Ok invisivel End Sub Private Sub creditos_Click() frmAbout.Show End Sub Private Sub Form_Load() Set db = OpenDatabase("C:univap.mdb") 'Abre o banco de dados, diga o destino do mesmo Set também = db.OpenRecordset("professores", dbOpenTable) 'Abre a tabela também.Index = "PrimaryKey" 'Seta a primary key como chave primária sexo = "Masculino" 'Sexo recebe Masculino End Sub Private Sub optmf_Click(Index As Integer, Value As Integer) Select Case Index 'Selecione conforme o índice do botão de opção selecionado Case 0 'Caso o botão seja o Masculino sexo = "Masculino" 'Armazene na variável sexo a palavra "Masculino" Case 1 'Caso o botão seja o Feminino sexo = "Feminino" 'Armazene na variável sexo a palavra "Feminino" End Select 'Fim do select End Sub Private Sub sair_Click() 'Pergunta ao usuário se ele realmente quer fechar o programa If MsgBox("Deseja realmente sair ?", vbYesNo, "Cadastro") = vbYes Then 'Se sim End 'Finaliza o programa Else 'Senão Exit Sub 'Sai da sub e não executa o resto da programação End If End SubfrmCreditosLink para o comentário
Compartilhar em outros sites
0 respostass a esta questão
Posts Recomendados
Participe da discussão
Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.