Fórum Inserção no banco diferente do informado #373630
16/08/2009
0
Toda vez que clico em uma das telas de cadastro do meu sistema ele altomaticamente insere um registro no banco, já olhei todo o código e esta bem parecido com as telas dos outros cadastros, olhei também a procedure e vi que esta igual as outras. Não estou conseguindo encontrar onde esta acontecendo esse erro.
Georgedeom
Curtir tópico
+ 0
Responder
Posts
16/08/2009
Dbergkamps10
Olá,
kra, com essas informações fica dificil da gente te ajudar.
posta a unit da tela pra q a gente possa dar uma olhada.
Att
dalton
kra, com essas informações fica dificil da gente te ajudar.
posta a unit da tela pra q a gente possa dar uma olhada.
Att
dalton
Responder
Gostei + 0
17/08/2009
Georgedeom
Ao clicar em Novo executa o seguinte procedimento.
procedure TfrmCadastroEx.NovoExecute(Sender: TObject);
begin
DataSource1.DataSet.Open;
DataSource1.DataSet.Insert;
EnableDisableControls(True);
PermissoesForm;
Restricoes;
end;
Quando chega na primeira linha ele pula direto para esse outro procedimento:
procedure TDM.cdsCulturaBeforeOpen(DataSet: TDataSet);
begin
Start;
try
with spIUCultura do
begin
Params[0].AsInteger := cdsCulturaID_CULTURA.AsInteger;
Params[1].AsString := cdsCulturaDESCRICAO.AsString;
Params[2].AsString := cdsCulturaNOMECIENTIFICO.AsString;
Params[3].AsString := cdsCulturaCLASSIFICACAO.AsString;
ExecProc;
Comit;
end;
except
Rollback;
end;
end;
Após isso é inserido os dados no banco com apenas o código.
procedure TfrmCadastroEx.NovoExecute(Sender: TObject);
begin
DataSource1.DataSet.Open;
DataSource1.DataSet.Insert;
EnableDisableControls(True);
PermissoesForm;
Restricoes;
end;
Quando chega na primeira linha ele pula direto para esse outro procedimento:
procedure TDM.cdsCulturaBeforeOpen(DataSet: TDataSet);
begin
Start;
try
with spIUCultura do
begin
Params[0].AsInteger := cdsCulturaID_CULTURA.AsInteger;
Params[1].AsString := cdsCulturaDESCRICAO.AsString;
Params[2].AsString := cdsCulturaNOMECIENTIFICO.AsString;
Params[3].AsString := cdsCulturaCLASSIFICACAO.AsString;
ExecProc;
Comit;
end;
except
Rollback;
end;
end;
Após isso é inserido os dados no banco com apenas o código.
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)