流行模式

var
i:integer;
begin
if not DetailTableTADODataSet0.fieldbyname('id').isnull then
begin
ShowMessage('分期已生成');
exit;
end;
for i:=0 to Tabledoc.fieldbyname('期数').value-1 do
begin
DetailTableTADODataSet0.append;
OpenQuery('ADOQuery','select dateadd(d,'+ inttostr(Tabledoc.fieldbyname('分期时间').asinteger*i)+','''+Tabledoc.fieldbyname('出运日期').asString+''') as ou');
DetailTableTADODataSet0.fieldbyname('节点付款日期').value:=ADOQuery.fieldbyname('ou').value;
DetailTableTADODataSet0.fieldbyname('节点付款金额').value:=(Tabledoc.fieldbyname('赊销金额').value*1.0)/ Tabledoc.fieldbyname('期数').value;
DetailTableTADODataSet0.post;

end;


end.