Sati
10 de Mayo del 2004

es todo el rato el mismo codigo pero no se si puedo acceder de algun modo a todos los componentes para hacero dorectamente, el codigo seria el siguiente, lo puedo resumir de algun modo??


datamod.ibdataset1.close;
datamod.ibdataset1.Params.ByName('field').AsString:=form5.dbedit7.text;
datamod.ibdataset1.Params.ByName('INISEM').AsDate:=dat;
datamod.ibdataset1.Params.ByName('FINSEM').AsDate:=dat+7;
datamod.ibdataset1.Prepare;
datamod.ibdataset1.open;
datamod.ibdataset2.close;
datamod.ibdataset2.Params.ByName('field').AsString:=form5.dbedit7.text;
datamod.ibdataset2.Params.ByName('INISEM').AsDate:=dat;
datamod.ibdataset2.Params.ByName('FINSEM').AsDate:=dat+7;
datamod.ibdataset2.Prepare;
datamod.ibdataset2.open;
datamod.ibdataset3.close;
datamod.ibdataset3.Params.ByName('field').AsString:=form5.dbedit7.text;
datamod.ibdataset3.Params.ByName('INISEM').AsDate:=dat;
datamod.ibdataset3.Params.ByName('FINSEM').AsDate:=dat+7;
datamod.ibdataset3.Prepare;
datamod.ibdataset3.open;