problema quando coloco em edicao
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
project cadastro.exe raised exception class eoleexception with message ´erro interno de altomacao ole´
alguem pode me ajudar neste probleminha
Valeu
Neomid
Neomid
Curtidas 0
Respostas
Fred
02/07/2003
mostre um pedaço do seu codigo pra gente entender melhor o que voce esta fazendo.
GOSTEI 0
Neomid
02/07/2003
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;
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;
GOSTEI 0
Neomid
02/07/2003
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;
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;
GOSTEI 0
Neomid
02/07/2003
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;
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;
GOSTEI 0
Neomid
02/07/2003
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;
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;
GOSTEI 0
Neomid
02/07/2003
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;
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;
GOSTEI 0