Fórum problema quando coloco em edicao #167394

02/07/2003

0

Delphi

em minha tela de cadastro eu insiro o registro e salvo, mas ta dando um poblema quando eu coloco em modo de ediçao pois quando eu digito algo em algum campo em mando salvar novamente ela me da a seguinte mensagem:

project cadastro.exe raised exception class eoleexception with message ´erro interno de altomacao ole´

alguem pode me ajudar neste probleminha

Valeu

Neomid


Neomid

Neomid

Responder

Posts

02/07/2003

Fred

mostre um pedaço do seu codigo pra gente entender melhor o que voce esta fazendo.


Responder

Gostei + 0

02/07/2003

Neomid

procedure Tfrmcadastroveiculo.btnincluirClick(Sender: TObject);
begin
if dm.ADOtbveiculo.State in [dsedit,dsinsert] then
begin
showmessage(´O sistema já se encontra em modo´+#13+´de inserção ou edição´);
end
else
begin
dm.ADOtbveiculo.Insert;
dbedit9.SetFocus;
end;
end;

procedure Tfrmcadastroveiculo.btnalterarClick(Sender: TObject);
begin
if dm.ADOtbveiculo.State in [dsedit,dsinsert] then
begin
showmessage(´O sistema já se encontra em modo´+13+´de inserção ou edição´);
end
else
begin
dm.ADOtbveiculo.Edit;
dbedit9.SetFocus;
end;

end;

procedure Tfrmcadastroveiculo.btnsalvarClick(Sender: TObject);
begin
if dm.ADOtbveiculo.State in [dsedit,dsinsert] then
begin
if (dbedit3.Text <> ´´) and (dbedit9.Text <> ´´) then
begin
dm.ADOtbveiculo.Post;
end
else
begin
showmessage(´Os campos de marca e a data são obrigatórios´);
end;
end
else
begin
showmessage(´O dados já salvos´);
end;

end;


Responder

Gostei + 0

02/07/2003

Neomid

procedure Tfrmcadastroveiculo.btnincluirClick(Sender: TObject);
begin
if dm.ADOtbveiculo.State in [dsedit,dsinsert] then
begin
showmessage(´O sistema já se encontra em modo´+#13+´de inserção ou edição´);
end
else
begin
dm.ADOtbveiculo.Insert;
dbedit9.SetFocus;
end;
end;

procedure Tfrmcadastroveiculo.btnalterarClick(Sender: TObject);
begin
if dm.ADOtbveiculo.State in [dsedit,dsinsert] then
begin
showmessage(´O sistema já se encontra em modo´+13+´de inserção ou edição´);
end
else
begin
dm.ADOtbveiculo.Edit;
dbedit9.SetFocus;
end;

end;

procedure Tfrmcadastroveiculo.btnsalvarClick(Sender: TObject);
begin
if dm.ADOtbveiculo.State in [dsedit,dsinsert] then
begin
if (dbedit3.Text <> ´´) and (dbedit9.Text <> ´´) then
begin
dm.ADOtbveiculo.Post;
end
else
begin
showmessage(´Os campos de marca e a data são obrigatórios´);
end;
end
else
begin
showmessage(´O dados já salvos´);
end;

end;


Responder

Gostei + 0

02/07/2003

Neomid

procedure Tfrmcadastroveiculo.btnincluirClick(Sender: TObject);
begin
if dm.ADOtbveiculo.State in [dsedit,dsinsert] then
begin
showmessage(´O sistema já se encontra em modo´+#13+´de inserção ou edição´);
end
else
begin
dm.ADOtbveiculo.Insert;
dbedit9.SetFocus;
end;
end;

procedure Tfrmcadastroveiculo.btnalterarClick(Sender: TObject);
begin
if dm.ADOtbveiculo.State in [dsedit,dsinsert] then
begin
showmessage(´O sistema já se encontra em modo´+13+´de inserção ou edição´);
end
else
begin
dm.ADOtbveiculo.Edit;
dbedit9.SetFocus;
end;

end;

procedure Tfrmcadastroveiculo.btnsalvarClick(Sender: TObject);
begin
if dm.ADOtbveiculo.State in [dsedit,dsinsert] then
begin
if (dbedit3.Text <> ´´) and (dbedit9.Text <> ´´) then
begin
dm.ADOtbveiculo.Post;
end
else
begin
showmessage(´Os campos de marca e a data são obrigatórios´);
end;
end
else
begin
showmessage(´O dados já salvos´);
end;

end;


Responder

Gostei + 0

02/07/2003

Neomid

procedure Tfrmcadastroveiculo.btnincluirClick(Sender: TObject);
begin
if dm.ADOtbveiculo.State in [dsedit,dsinsert] then
begin
showmessage(´O sistema já se encontra em modo´+#13+´de inserção ou edição´);
end
else
begin
dm.ADOtbveiculo.Insert;
dbedit9.SetFocus;
end;
end;

procedure Tfrmcadastroveiculo.btnalterarClick(Sender: TObject);
begin
if dm.ADOtbveiculo.State in [dsedit,dsinsert] then
begin
showmessage(´O sistema já se encontra em modo´+13+´de inserção ou edição´);
end
else
begin
dm.ADOtbveiculo.Edit;
dbedit9.SetFocus;
end;

end;

procedure Tfrmcadastroveiculo.btnsalvarClick(Sender: TObject);
begin
if dm.ADOtbveiculo.State in [dsedit,dsinsert] then
begin
if (dbedit3.Text <> ´´) and (dbedit9.Text <> ´´) then
begin
dm.ADOtbveiculo.Post;
end
else
begin
showmessage(´Os campos de marca e a data são obrigatórios´);
end;
end
else
begin
showmessage(´O dados já salvos´);
end;

end;


Responder

Gostei + 0

02/07/2003

Neomid

procedure Tfrmcadastroveiculo.btnincluirClick(Sender: TObject);
begin
if dm.ADOtbveiculo.State in [dsedit,dsinsert] then
begin
showmessage(´O sistema já se encontra em modo´+#13+´de inserção ou edição´);
end
else
begin
dm.ADOtbveiculo.Insert;
dbedit9.SetFocus;
end;
end;

procedure Tfrmcadastroveiculo.btnalterarClick(Sender: TObject);
begin
if dm.ADOtbveiculo.State in [dsedit,dsinsert] then
begin
showmessage(´O sistema já se encontra em modo´+13+´de inserção ou edição´);
end
else
begin
dm.ADOtbveiculo.Edit;
dbedit9.SetFocus;
end;

end;

procedure Tfrmcadastroveiculo.btnsalvarClick(Sender: TObject);
begin
if dm.ADOtbveiculo.State in [dsedit,dsinsert] then
begin
if (dbedit3.Text <> ´´) and (dbedit9.Text <> ´´) then
begin
dm.ADOtbveiculo.Post;
end
else
begin
showmessage(´Os campos de marca e a data são obrigatórios´);
end;
end
else
begin
showmessage(´O dados já salvos´);
end;

end;


Responder

Gostei + 0

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

Aceitar