Fórum OnBeforePost e Excepton Não consigo usar... #209229
25/01/2004
0
Agradeço qualque informação.
Ass: Max..
Maxsoftware
Curtir tópico
+ 0Posts
25/01/2004
Aroldo Zanela
Para reerguer a exceção basta utilizar Raise. No entanto, não entendi realmente o que você está querendo. Coloque mais detalhes e se possível um fragmento do código.
Gostei + 0
25/01/2004
Maxsoftware
Verificar se esse registro já existe e se aresposta for ´Sim.´
1 - Cancelaria a gravação.
2 - Enviar uma mensagem que o registro já existe.
3 - A caixa do registro ganha-se foco para o usuário escrever outro dado.
Gostei + 0
25/01/2004
Maxsoftware
Gostei + 0
25/01/2004
Maxsoftware
1 - Cancelaria a gravação.
2 - Enviar uma mensagem que o registro já existe.
3 - A caixa do registro ganha-se foco para o usuário escrever outro dado.
Utilizei esse código, mas não obtive exito...
////////////////////////////////////////////
procedure TProjetoModule.IBTSociosBeforePost(DataSet: TDataSet);
var
Nome:string;
begin
Nome:= FormSocioIncluir.eDBNome.text;
if FormSocioIncluir.ibtable1.locate(´SOCIO_NOME´,NOME,[])= true then
begin
Halt;
ShowMessage(´Este cliente já existe!.´);
FormSocioIncluir.edbNome.setfocus;
end;
end;
////////////////////////////////////////////
Gostei + 0
26/01/2004
Ana_abrantes
Então vou chutar...
Coloque Halt depois da mensagem e setfocus.
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)