Drikomonteiro

alguém poderia me ajudar a criar uma regra para gerar parcelas no delphi seatle , com bando de dados em mysql?

Amigos, estou desenvolvendo um programa em delphi seatle, e me deparei com um erro onde crie um proecesso para gera parcelas automaticamente, mais quando execulto o comando clicando no botão gerar parcelas, os registros não são gerados. segue o procedimento que estou usando. procedure Tform_teste.DBEdit3Exit(Sender: TObject); begin Dm.Tb_Parcelatotal_parc.Value := Dm.Tb_parcelavalor_parc.Value / Dm.Tb_parcelaquant_parc.Value; end; procedure Tform_teste.btn_gerarClick(Sender: TObject); var parc:integer; begin DBEdit3Exit (sender); if dm.Tb_Parcela.State in [dsinsert] then begin dm.Tb_Parcela.Insert; parc := 1; while parc <= dm.Tb_ParcelaID.Value do begin dm.Tb_Parcela.Insert; dm.Sql_parcelaID.Value:= parc; dm.Tb_parcelavalor_parc.Value := Dm.Tb_Parcelaquant_parc.Value; dm.Tb_Parcelavenc_parc.Value := date; dm.Sql_parcela.Post; inc (parc); dm.Tb_parcela.ApplyUpdates(1); end; end; tenho um dbgrid que mostra as parcelas geradas, o que ta acontecendo é que nao registra as parcelas no banco de dados, so registra 1uma, uso o banco de dados Mysql. Me ajudem ai por favor!!

Amigos, estou desenvolvendo um programa em delphi seatle, e me deparei com um erro onde crie um proecesso para gera parcelas automaticamente, mais quando execulto o comando clicando no botão gerar parcelas, os registros não são gerados segue o procedimento que estou usando. procedure Tform_teste.DBEdit3Exit(Sender: TObject); begin Dm.Tb_Parcelatotal_parc.Value := Dm.Tb_parcelavalor_parc.Value / Dm.Tb_parcelaquant_parc.Value; end; procedure Tform_teste.btn_gerarClick(Sender: TObject); var parc:integer; begin DBEdit3Exit (sender); if dm.Tb_Parcela.State in [dsinsert] then begin dm.Tb_Parcela.Insert; parc := 1; while parc <= dm.Tb_ParcelaID.Value do begin dm.Tb_Parcela.Insert; dm.Sql_parcelaID.Value:= parc; dm.Tb_parcelavalor_parc.Value := Dm.Tb_Parcelaquant_parc.Value; dm.Tb_Parcelavenc_parc.Value := date; dm.Sql_parcela.Post; inc (parc); dm.Tb_parcela.ApplyUpdates(1); end; end; tenho um dbgrid que mostra as parcelas geradas, o que ta acontecendo é que nao mostra todas as parcelas, tipo se eu eu coloco 2 parcelas de 200, só aparece a primeira .