OnBeforePost e Excepton Não consigo usar...
Olá pessoal, estou precisando de um exemplo de como se usar uma exceção no ´Evento BeforePost´ para verificar se o resistro existe, pois se ele existir a gravação e cancelada manda uma mensagem e o campo a ser alterado ganha foco, eu consegui localizar e cancelar sem usar a exceção. Eu gostaria de fazer com a exceção pois assim o campo a ser alterado ganharia foco...
Agradeço qualque informação.
Ass: Max..
Agradeço qualque informação.
Ass: Max..
Maxsoftware
Curtidas 0
Respostas
Aroldo Zanela
25/01/2004
Colega,
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.
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
Maxsoftware
25/01/2004
Eu gostaria de obter um exemplo através do evento OnBeforePost.
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.
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
Maxsoftware
25/01/2004
Eu gostaria de obter um exemplo através do evento OnBeforePost.
////////////////////////////////////////////
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;
////////////////////////////////////////////
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
Maxsoftware
25/01/2004
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.
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;
////////////////////////////////////////////
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
Ana_abrantes
25/01/2004
Você não diz o que aconteceu...
Então vou chutar...
Coloque Halt depois da mensagem e setfocus.
Então vou chutar...
Coloque Halt depois da mensagem e setfocus.
GOSTEI 0