Ir para conteúdo
Fórum Script Brasil

igor.amarques13

Membros
  • Total de itens

    3
  • Registro em

  • Última visita

Sobre igor.amarques13

igor.amarques13's Achievements

0

Reputação

  1. Estou com um sistema de contole de estoque quase finalizado. Porém, me falta adicionar uma função onde ao entrar no sistema, o operador seja notificado caso algum produto esteja com seu estoque em 0. Exemplo: Legenda: qntde é a coluna onde está armazenada a quantidade de produtos em estoque. E o dgvprodutos nada mais é do que o meu DataGridView onde é importado meu banco de dados. if dgvprodutos.rows.cells("qntde").value = 0 then messagebox.show("Há produtos sem estoque! Verifique-os o quanto antes e solicite o devido reabastecimento.", titulo, ok, exclamation) end if O código acima está totalmente otimizado. Ele foi feito apenas para ter uma referência do que eu preciso. Alguém para me auxiliar?
  2. Coloque assim: Vou te recomendar uma função bem legal. Quando a pessoa clicar no RadioButton 1, o txtCPF irá aparecer, se clicar no RadioButton 2, o txtCPF some e aparece o txtCNPJ, que tal? Antes de tudo! Propriedades do txt_CPF e txt_CNPJ + lbl_CPF e lbl_CNPJ > Visible = False Clique duplo no rb_cpf: Private Sub rb_cpf_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles rb_cpf.CheckedChanged If rb_cpf.Checked = True Then lbl_CPF.Visible = True txt_CPF.Visible = True Else lbl_CPF.Visible = False txt_CPF.Visible = False End If End Sub Clique duplo no rb_cnpj: Private Sub rb_cnpj_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles rb_cnpj.CheckedChanged If rb_cnpj.Checked = True Then lbl_CNPJ.Visible = True txt_CNPJ.Visible = True Else lbl_CNPJ.Visible = False txt_CNPJ.Visible = False End If End Sub No botão pra verificação: Private Sub btn_AddCli_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_AddCli.Click If rb_cnpj.Checked = False Or rb_cpf.Checked = False Then MessageBox.Show("Antes de prosseguir, selecione uma das opções.", "Atenção", MessageBoxButtons.OK, MessageBoxIcon.Error) rb_cpf.Focus() ElseIf txtNome.text = "" Then MessageBox.Show("Preencha um nome antes de prosseguir.", "Erro", MessageBoxButtons.OK, MessageBoxIcon.Exclamation) txtNome.Focus() ElseIf txtEnd.text = "" Then MessageBox.Show("Preencha um endereço antes de prosseguir.", "Erro", MessageBoxButtons.OK, MessageBoxIcon.Exclamation) txtEnd.Focus() ElseIf txtBairro.text = "" Then MessageBox.Show("Preencha um bairro antes de prosseguir.", "Erro", MessageBoxButtons.OK, MessageBoxIcon.Exclamation) txtBairro.Focus() ElseIf txtCep.text = "" Then MessageBox.Show("Preencha um CEP antes de prosseguir.", "Erro", MessageBoxButtons.OK, MessageBoxIcon.Exclamation) txtCep.focus() ElseIf txtNome.text = "" And txtEnd.text = "" And txtBairro.text = "" And txtCep.text = "" Then MessageBox.Show("Você não pode prosseguir sem preencher todos os campos.", "Erro", MessageBoxButtons.OK, MessageBoxIcon.Exclamation) Else {FUNÇÃO DE ADD CLIENTE AQUI} MessageBox.Show("Cliente" + " " + txtNome.text + " " + "adicionado com sucesso no sistema.", "Sucesso", MessageBoxButtons.OK, MessageBoxIcon.Information) End If End Sub Na questão do usuário colocar um CPF/CNPJ errado, pode-se usar o MaskedTextBox e setar uma máscara, se não for seguida, dá erro.
  3. Boa noite. Fiz uma form parecida há algum tempo. O que eu fiz foi basicamente criar três RadioButton's com os seguintes nomes: "Nome" "ID", ou seja, o usuário filtraria pelo Nome ou pelo o ID. Nas Textbox's eu coloquei duas com a função Enabled, se o cara clica em Nome, o Enabled do txtNome vai ficar true, senão, false. Nas propriedades do txt você vai em DataBindings e lá você coloca a Tag como o ID e o Text como o Nome. No txt do ID você faz o mesmo para o Tag e Text
×
×
  • Criar Novo...