Ir ao conteúdo
  • Cadastre-se
Entre para seguir isso  
tiagohb

[Resolvido] Duvida

Recommended Posts

boa noite,

sou iniciante no delphi e estou com um problema meio besta...

estou fazendo um sistema e natela de cadastro ta dando um erro estranho

"IBDataSet not in edit mode"

só q ele da esse erro quando eu dou o comando "IBDataSet.Edit"

aqui vai parte do codigo fonte

procedure TfCadMototaxista.BitBtn2Click(Sender: TObject);

begin

Close;

end;

procedure TfCadMototaxista.FormShow(Sender: TObject);

begin

IBDCadMototaxi.Open;

IBDcadMototaxi.Edit <<<aqui q da o erro

end;

Agradeço desde ja,

Abraços

Compartilhar este post


Link para o post
Compartilhar em outros sites
Falta o ";"

Hehehehe

Se for vai ser um erro hilário!

Espero que funcione, e não tô tirando onda, isso acontece cara

abraços...

realmente,

eu vejo a falta do ;,

se funcionar, avisa!

Compartilhar este post


Link para o post
Compartilhar em outros sites

desculpem pela demora da resposta...estava internado no hospital...=/

felizmente(para mim) o erro não era a falta de ";" foi erro de ctrl + v ¬¬

Eu não sei o que q aconteceu mas hje de manha quando eu voltei eu liguei o sistema e ele ta funcionandu normal...Oo...não deu erro.......

mas valeu pela ajuda....XD

abraços a todos

Compartilhar este post


Link para o post
Compartilhar em outros sites

boa tarde,

deu o mesmo error..."not in edit mode"....o que q pode estar acontecendo??

abaixo o fonte

var

fCadMototaxista: TfCadMototaxista;

contador: integer;

data: integer;

implementation

uses UDM;

{$R *.dfm}

procedure TfCadMototaxista.BitBtn2Click(Sender: TObject);

begin

IBCadMototaxi.close;

Close;

end;

procedure TfCadMototaxista.FormActivate(Sender: TObject);

begin

IBCadMototaxi.Open;

IBCadMototaxi.Edit; <<<ele da o error quando executa esta linha

meDt_Cadastro.text := datetostr(date);

end;

procedure TfCadMototaxista.IBCadMototaxiAfterInsert(DataSet: TDataSet);

begin

IBCadMototaxi.Last;

contador:= IBCadMototaxiCodigo.value + 1;

end;

procedure TfCadMototaxista.IBCadMototaxiBeforeInsert(DataSet: TDataSet);

begin

IBCadMototaxiCodigo.Value := contador;

end;

procedure TfCadMototaxista.BitBtn9Click(Sender: TObject);

begin

IBCadMototaxiDt_Cadastro.asstring := meDt_Cadastro.Text;

IBCadMototaxiDt_Nascimento.AsString := meDt_Nascimento.text;

IBCadMototaxiTelefone.AsString := meTelefone.text;

IBCadMototaxiCelular.AsString := meCelular.text;

IBCadMototaxiAno.AsString := meAno.Text;

IBCadMototaxiStatus.AsString := CBStatus.text;

if DBENome.text <> '' then begin

if DBEEndereco.Text <> '' then begin

if DBENumero.Text <> '' then begin

if DBECidade.Text <> '' then begin

if DBEUF.text <> '' then begin

if IBCadMototaxiDt_Nascimento.asstring <> '' then begin

if DBERG.Text <> '' then begin

if DBECPF.Text <> '' then begin

if DBECNH.Text <> '' then begin

if DBEMPlaca.text <> '' then begin

if DBEMRenavam.text <> '' then begin

if IBCadMototaxiStatus.asstring <> '' then begin

if DBETaxa.Text <> '' then begin

IBCadMototaxi.insert;

IBCadMototaxi.post;

Dm.IBTransaction1.CommitRetaining;

IBCadMOtotaxi.Open;

IBCadMototaxi.Insert;

end;

end;

end;

end;

end;

end;

end;

end;

end;

end;

end;

end;

end;

end.

agradeço desde ja

Editado por tiagohb

Compartilhar este post


Link para o post
Compartilhar em outros sites

boa tarde,

ja descobri onde q estava o error....=P

fiquei mexendu nele ate q descobri...

valeu...e pode fecha o topico!!

Compartilhar este post


Link para o post
Compartilhar em outros sites

Caso o autor do tópico necessite, o mesmo será reaberto, para isso deverá entrar em contato com a moderação solicitando o desbloqueio.

Compartilhar este post


Link para o post
Compartilhar em outros sites
Visitante
Este tópico está impedido de receber novos posts.
Entre para seguir isso  





Sobre o Clube do Hardware

No ar desde 1996, o Clube do Hardware é uma das maiores, mais antigas e mais respeitadas publicações sobre tecnologia do Brasil. Leia mais

Direitos autorais

Não permitimos a cópia ou reprodução do conteúdo do nosso site, fórum, newsletters e redes sociais, mesmo citando-se a fonte. Leia mais

×