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.
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
Curtir tópico
+ 0
Responder
Clique aqui para fazer login e interagir na Comunidade :)