È o seguinte, tenho um formulario de cadastro de clientes, e estou com um probleminha com um edit onde o usuario vai digitar o tel do cliente, esse é o campo mais importante já q as consultas vao ser feitas em cima dele, então esse campo não pode ter erros tipo qtd de caracteres não pode exceder tenho uma funçao pra formata esse tem da seguinte forma 9999-9999 ignorando codigo de area, keria saber como faço pro usuario não conseguir gravar no BD se esse campo tiver mais ou menos caracteres segue o codigo
function Tfrmcadastro.valida_mascara_tel(var key: char;
sender: TObject): string;
begin
if not (key in ['0'..'9',#8,#13]) then key:=#0;
if key <> #8 then
begin
if key <> #13 then
if Length(TEdit(sender).Text)=8 then
edtend.SetFocus;
case Length (TEdit(sender).Text)of
4:begin
if not (key in ['0'..'9']) then key:=#0;
TEdit(sender).text := TEdit(sender).Text + '-';
TEdit(sender).selStart := Length (TEdit(sender).Text);
end;
end;
end;
end;
essa funçao colokey no onkeypress do edit em questao
procedure Tfrmcadastro.edtTelExit(Sender: TObject);
begin
if length (edttel.Text) <> 8 then
Application.MessageBox('Telefone Invalido','Aviso',mb_iconinformation+mb_okcancel);
edttel.SetFocus;
if length (edttel.Text)=8 then
edtEnd.SetFocus;
end;
essa ta no onexit, keria saber onde to errando. Se alguém puder me ajudar eu agradeço
Pergunta
claudyo
È o seguinte, tenho um formulario de cadastro de clientes, e estou com um probleminha com um edit onde o usuario vai digitar o tel do cliente, esse é o campo mais importante já q as consultas vao ser feitas em cima dele, então esse campo não pode ter erros tipo qtd de caracteres não pode exceder tenho uma funçao pra formata esse tem da seguinte forma 9999-9999 ignorando codigo de area, keria saber como faço pro usuario não conseguir gravar no BD se esse campo tiver mais ou menos caracteres segue o codigo
essa funçao colokey no onkeypress do edit em questaoessa ta no onexit, keria saber onde to errando. Se alguém puder me ajudar eu agradeço
Link para o comentário
Compartilhar em outros sites
2 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.