Re: [delphi-br] Campo Required (Viajei hehe)
Esqueçam minha dúvida.
Percebi agora o seguinte:
O Delphi posiciona automaticamente no campo requerido que não foi
preenchido.
E quanto à msg de erro, o simples Try... Except... resolve.
Desculpem a minha viajem (nesta o Delphi me surpreendeu)
Abraço,
Rogério Ricardo Fernandes
- Original Message -
From: "Roger" <[EMAIL PROTECTED]>
To:
Sent: Tuesday, May 09, 2006 9:02 AM
Subject: Re: [delphi-br] Campo Required
Na verdade é isto que não queria fazer, pensei em algo +/- assim:
Try
Query1.ApplyUpdates;
Except
on EDatabaseError do .
end;
Ou seja, pensei em capturar pelo exception, o erro que ocorreu, em qual
campo, exibir a msg de erro e posicionar no campo.
Sei que o exemplo que vc (Luis) apresentou funciona, mas não queria fazer o
bloco de repetição, queria OO.
Grato, se alguém tiver um exemplo ou dica agradeço,
Rogério Ricardo Fernandes
Desenvolvimento
- Original Message -
From: "Luis Lopes" <[EMAIL PROTECTED]>
To:
Sent: Monday, May 08, 2006 5:51 PM
Subject: Re: [delphi-br] Campo Required
Kra,
Eu fiz uma função e faço a chamada dela no beforepost do clientdataset...
não se ajuda...
// Valida os campos que são obrigatórios.
procedure ValidateData(DataSet: TDataSet);
var
Contador: Integer;
begin
with DataSet do
begin
for Contador := 0 to FieldCount -1 do
begin
// Se o campo não estiver preenchido e for required
if (trim(DataSet.Fields[Contador].Text) = '') and
(Fields[Contador].Required) then
begin
// Seta o focus no campo
Fields[Contador].FocusControl;
raise Exception.Create('Campo ' + Fields[Contador].DisplayLabel + '
tem que ser preenchido');
end;
end;
end;
end;
Luis Alberto
Belo Horizonte - MG
-
Abra sua conta no Yahoo! Mail - 1GB de espaço, alertas de e-mail no celular
e anti-spam realmente eficaz.
[As partes desta mensagem que não continham texto foram removidas]
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
Links do Yahoo! Grupos
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
Links do Yahoo! Grupos
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
<*> Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
<*> Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED]
Yahoo! Grupos, um serviço oferecido por:
PUBLICIDADE
Links do Yahoo! Grupos
Para visitar o site do seu grupo na web, acesse:http://br.groups.yahoo.com/group/delphi-br/
Para sair deste grupo, envie um e-mail para:[EMAIL PROTECTED]
O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do Yahoo!.
Re: [delphi-br] Campo Required
Na verdade é isto que não queria fazer, pensei em algo +/- assim:
Try
Query1.ApplyUpdates;
Except
on EDatabaseError do .
end;
Ou seja, pensei em capturar pelo exception, o erro que ocorreu, em qual
campo, exibir a msg de erro e posicionar no campo.
Sei que o exemplo que vc (Luis) apresentou funciona, mas não queria fazer o
bloco de repetição, queria OO.
Grato, se alguém tiver um exemplo ou dica agradeço,
Rogério Ricardo Fernandes
Desenvolvimento
- Original Message -
From: "Luis Lopes" <[EMAIL PROTECTED]>
To:
Sent: Monday, May 08, 2006 5:51 PM
Subject: Re: [delphi-br] Campo Required
Kra,
Eu fiz uma função e faço a chamada dela no beforepost do clientdataset...
não se ajuda...
// Valida os campos que são obrigatórios.
procedure ValidateData(DataSet: TDataSet);
var
Contador: Integer;
begin
with DataSet do
begin
for Contador := 0 to FieldCount -1 do
begin
// Se o campo não estiver preenchido e for required
if (trim(DataSet.Fields[Contador].Text) = '') and
(Fields[Contador].Required) then
begin
// Seta o focus no campo
Fields[Contador].FocusControl;
raise Exception.Create('Campo ' + Fields[Contador].DisplayLabel + '
tem que ser preenchido');
end;
end;
end;
end;
Luis Alberto
Belo Horizonte - MG
-
Abra sua conta no Yahoo! Mail - 1GB de espaço, alertas de e-mail no celular
e anti-spam realmente eficaz.
[As partes desta mensagem que não continham texto foram removidas]
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
Links do Yahoo! Grupos
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
<*> Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
<*> Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED]
Yahoo! Grupos, um serviço oferecido por:
PUBLICIDADE
Links do Yahoo! Grupos
Para visitar o site do seu grupo na web, acesse:http://br.groups.yahoo.com/group/delphi-br/
Para sair deste grupo, envie um e-mail para:[EMAIL PROTECTED]
O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do Yahoo!.
Re: [delphi-br] Campo Required
Kra,
Eu fiz uma função e faço a chamada dela no beforepost do clientdataset... não se ajuda...
// Valida os campos que são obrigatórios.
procedure ValidateData(DataSet: TDataSet);
var
Contador: Integer;
begin
with DataSet do
begin
for Contador := 0 to FieldCount -1 do
begin
// Se o campo não estiver preenchido e for required
if (trim(DataSet.Fields[Contador].Text) = '') and (Fields[Contador].Required) then
begin
// Seta o focus no campo
Fields[Contador].FocusControl;
raise Exception.Create('Campo ' + Fields[Contador].DisplayLabel + ' tem que ser preenchido');
end;
end;
end;
end;
Luis Alberto
Belo Horizonte - MG
-
Abra sua conta no Yahoo! Mail - 1GB de espaço, alertas de e-mail no celular e anti-spam realmente eficaz.
[As partes desta mensagem que não continham texto foram removidas]
--
< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >
<*> Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
<*> Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED]
Yahoo! Grupos, um serviço oferecido por:
PUBLICIDADE
Links do Yahoo! Grupos
Para visitar o site do seu grupo na web, acesse:http://br.groups.yahoo.com/group/delphi-br/
Para sair deste grupo, envie um e-mail para:[EMAIL PROTECTED]
O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do Yahoo!.
