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

Georgedeom

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


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.


Responder

Gostei + 0

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

Aceitar