Inserção no banco diferente do informado

Delphi

16/08/2009

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

Georgedeom

Curtidas 0

Respostas

Dbergkamps10

Dbergkamps10

16/08/2009

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


GOSTEI 0
Georgedeom

Georgedeom

16/08/2009

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.


GOSTEI 0
POSTAR