Erro no delphi 7

15/07/2008

0

Bom dia a todos...

A minha duvida é o seguinte...
Dou um clique no botão de Incluir para incluir mais um registro, mas no meio do caminho resolvo cancelar o cadastro.
Qdo dou um clique sobre o botão de Desfazer Incluir, ele da o seguinte erro:

Project SAGS.EXE raised exception class EIBInterBaseError with message ´conversion error from string ´´´. Process stopped. Use Step or Run to continue.

[img]../erro.jpg[/img]

[color=red:9e41503650]Obs.: Código fonte do botão Desfazer Incluir[/color:9e41503650]
[color=red:9e41503650]procedure TcadClientes.btn_ReverterClick(Sender: TObject);
var
mensagem: string;
begin

Edit1.Enabled:= True;
SpeedButton1.Enabled:= True;

btn_AutoFiltro.Enabled:= True;
btn_Inicio.Enabled:= True;
btn_Anterior.Enabled:= True;
btn_Proximo.Enabled:= True;
btn_Final.Enabled:= True;
btn_Incluir.Enabled:= True;
btn_Alterar.Enabled:= True;
btn_Excluir.Enabled:= True;
btn_Gravar.Enabled:= False;
btn_Reverter.Enabled:= False;
btn_Sair.Enabled:= True;
BitBtn1.Enabled:= True;

cadClientes.IBDataSetCliente.Cancel;
DM.Trans.RollbackRetaining;
cadClientes.IBDataSetCliente.Refresh;

cadClientes.DBEdit1.ReadOnly:= True;
cadClientes.DBEdit2.ReadOnly:= True;
cadClientes.DBEdit3.ReadOnly:= True;
cadClientes.DBEdit4.ReadOnly:= True;
cadClientes.DBEdit5.ReadOnly:= True;
cadClientes.DBEdit6.ReadOnly:= True;
cadClientes.Dbedit7.ReadOnly:= True;
cadClientes.DBEdit8.ReadOnly:= True;
cadClientes.DBEdit9.ReadOnly:= True;

//Habilita a possibilidade de trabalhar em contatos.
cadClientes.BitBtnCad.Enabled:= True;
cadClientes.BitBtnAlt.Enabled:= True;
cadClientes.BitBtnExc.Enabled:= True;
cadClientes.BitBtnSal.Enabled:= True;
cadClientes.BitBtnRev.Enabled:= True;

mensagem:= ´A inclusão ou alteração deste registro foi abortada. ´;
Application.MessageBox(PChar(mensagem), ´Atenção´, MB_Ok+mb_IconError);

end;[/color:9e41503650]

Alguém poderia me ajudar...

Obrigado.

A alguém poderia me ensinar como faço para colocar uma imagem aqui, que esta no c: da minha maquina.


Uelinton_reis

Uelinton_reis

Responder

Assista grátis a nossa aula inaugural

Assitir aula

Saiba por que programar é uma questão de
sobrevivência e como aprender sem riscos

Assistir agora

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar