COMO LIMPAR O FORMULARIO APOS CADASTRO DO CLIENTE?
Boa tarde amigos!
Estou criando uma aplicação de 2 camadas e, quando faço o cadastro do cliente, ele informa que foi cadastrado com sucesso, porém, após gravar os dados digitados permanecem. Por favor, alguém poderia me ajudar com o código para limpar o formulário após cadastro.
Obrigado a todos!!
Segue o código do botão INSERIR e do MéTODO DE EXTENSÃO LIMPAR TELA.
Private Sub NovoButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NovoButton.Click
Dim conexao As New SqlConnection(Dados.StringProntuario())
Dim comando As New SqlCommand([Ô]pFisioterapeuta_INS[Ô], conexao)
comando.CommandType = CommandType.StoredProcedure
Try
comando.Parameters.AddWithValue(
[Ô]@Crefito[Ô], crefitoTextBox.ValidarVazio())
comando.Parameters.AddWithValue(
[Ô]@Nome[Ô], nomeTextBox.ValidarVazio())
comando.Parameters.AddWithValue(
[Ô]@Endereco[Ô], enderecoTextBox.ValidarVazio())
comando.Parameters.AddWithValue(
[Ô]@Bairro[Ô], bairroTextBox.ValidarVazio())
comando.Parameters.AddWithValue(
[Ô]@Cidade[Ô], cidadeTextBox.ValidarVazio())
comando.Parameters.AddWithValue(
[Ô]@Estado[Ô], estadoTextBox.ValidarVazio())
comando.Parameters.AddWithValue(
[Ô]@Cep[Ô], cepTextBox.ValidarVazio())
comando.Parameters.AddWithValue(
[Ô]@Telefone_residencial[Ô], telresTextBox.ValidarVazio())
comando.Parameters.AddWithValue(
[Ô]@Telefone_comercial[Ô], telcomTextBox.ValidarVazio())
comando.Parameters.AddWithValue(
[Ô]@Celular[Ô], celularTextBox.ValidarVazio())
Dim novoCodigo As SqlParameter =
comando.Parameters.Add([Ô]@id_fisio[Ô], SqlDbType.Int)
novoCodigo.Direction = ParameterDirection.Output
conexao.Open()
comando.ExecuteNonQuery()
codigoLabel.Text = novoCodigo.Value.ToString()
MessageBox.Show([Ô]Paciente cadastrado com sucesso[Ô],
[Ô]Aviso[Ô], MessageBoxButtons.OK, MessageBoxIcon.Information)
Catch ex As SqlException
MessageBox.Show([Ô]Erro ao tentar inserir na tabela[Ô],
[Ô]Alerta do Servidor SQL[Ô], MessageBoxButtons.OK,
MessageBoxIcon.Error)
Catch ex As Exception
MessageBox.Show(ex.Message, [Ô]Alerta de Erro[Ô],
MessageBoxButtons.OK, MessageBoxIcon.Error)
Finally
If conexao.State = ConnectionState.Open Then conexao.Close()
End Try
End Sub
End Class
CÓDIGO DO MéTODO DE EXTENSÃO
<Extension()>
Public Sub LimparTela(ByVal formulario As Form)
For Each ctl As Control In formulario.Controls
If TypeOf ctl Is TextBox Then
ctl.Text = [Ô][Ô]
DirectCast(ctl, TextBox).Clear()
ElseIf TypeOf ctl Is Label AndAlso
Convert.ToString(ctl.Tag) = [Ô]1[Ô] Then
ctl.ResetText()
End If
Next
End Sub
End Module
Estou criando uma aplicação de 2 camadas e, quando faço o cadastro do cliente, ele informa que foi cadastrado com sucesso, porém, após gravar os dados digitados permanecem. Por favor, alguém poderia me ajudar com o código para limpar o formulário após cadastro.
Obrigado a todos!!
Segue o código do botão INSERIR e do MéTODO DE EXTENSÃO LIMPAR TELA.
Private Sub NovoButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NovoButton.Click
Dim conexao As New SqlConnection(Dados.StringProntuario())
Dim comando As New SqlCommand([Ô]pFisioterapeuta_INS[Ô], conexao)
comando.CommandType = CommandType.StoredProcedure
Try
comando.Parameters.AddWithValue(
[Ô]@Crefito[Ô], crefitoTextBox.ValidarVazio())
comando.Parameters.AddWithValue(
[Ô]@Nome[Ô], nomeTextBox.ValidarVazio())
comando.Parameters.AddWithValue(
[Ô]@Endereco[Ô], enderecoTextBox.ValidarVazio())
comando.Parameters.AddWithValue(
[Ô]@Bairro[Ô], bairroTextBox.ValidarVazio())
comando.Parameters.AddWithValue(
[Ô]@Cidade[Ô], cidadeTextBox.ValidarVazio())
comando.Parameters.AddWithValue(
[Ô]@Estado[Ô], estadoTextBox.ValidarVazio())
comando.Parameters.AddWithValue(
[Ô]@Cep[Ô], cepTextBox.ValidarVazio())
comando.Parameters.AddWithValue(
[Ô]@Telefone_residencial[Ô], telresTextBox.ValidarVazio())
comando.Parameters.AddWithValue(
[Ô]@Telefone_comercial[Ô], telcomTextBox.ValidarVazio())
comando.Parameters.AddWithValue(
[Ô]@Celular[Ô], celularTextBox.ValidarVazio())
Dim novoCodigo As SqlParameter =
comando.Parameters.Add([Ô]@id_fisio[Ô], SqlDbType.Int)
novoCodigo.Direction = ParameterDirection.Output
conexao.Open()
comando.ExecuteNonQuery()
codigoLabel.Text = novoCodigo.Value.ToString()
MessageBox.Show([Ô]Paciente cadastrado com sucesso[Ô],
[Ô]Aviso[Ô], MessageBoxButtons.OK, MessageBoxIcon.Information)
Catch ex As SqlException
MessageBox.Show([Ô]Erro ao tentar inserir na tabela[Ô],
[Ô]Alerta do Servidor SQL[Ô], MessageBoxButtons.OK,
MessageBoxIcon.Error)
Catch ex As Exception
MessageBox.Show(ex.Message, [Ô]Alerta de Erro[Ô],
MessageBoxButtons.OK, MessageBoxIcon.Error)
Finally
If conexao.State = ConnectionState.Open Then conexao.Close()
End Try
End Sub
End Class
CÓDIGO DO MéTODO DE EXTENSÃO
<Extension()>
Public Sub LimparTela(ByVal formulario As Form)
For Each ctl As Control In formulario.Controls
If TypeOf ctl Is TextBox Then
ctl.Text = [Ô][Ô]
DirectCast(ctl, TextBox).Clear()
ElseIf TypeOf ctl Is Label AndAlso
Convert.ToString(ctl.Tag) = [Ô]1[Ô] Then
ctl.ResetText()
End If
Next
End Sub
End Module
A função LimparTela, não esta funcionado, é isso ?
Boa tarde NILSONTRES, tudo bem?
Na realidade eu não sei onde colocar a instrução para LimparTela() após o cadastro do cliente.
Obrigado pela atenção!
Na realidade eu não sei onde colocar a instrução para LimparTela() após o cadastro do cliente.
Obrigado pela atenção!
Tudo bem, e vc ?
MessageBox.Show([Ô]Paciente cadastrado com sucesso[Ô],
[Ô]Aviso[Ô], MessageBoxButtons.OK, MessageBoxIcon.Information)
LimparTela(me.name)
MessageBox.Show([Ô]Paciente cadastrado com sucesso[Ô],
[Ô]Aviso[Ô], MessageBoxButtons.OK, MessageBoxIcon.Information)
LimparTela(me.name)
Fiz esse procedimento mas mesmo assim não limpou o formulario!!!
NILSONTRES!!!!
Os campos de textbox estão dentro de um groupbox, será que isso influencia?
Os campos de textbox estão dentro de um groupbox, será que isso influencia?
Tópico encerrado , respostas não são mais permitidas