delphi4arab منتديات دلفي للعرب

السلام
عندما اعمل بها يظهر لي فقط الصفحة الاخيرة
لديا قاعدة بيانات اكسس متكونة اكتر من صفحة عندما اضعها في QuickRep1 واكتب الامر QuickRep1.previews تظهر الصفحة الاخيرة فقط ولما اكتب QuickRep1.print تطبع كل الصفحات
كيف أظهر كل الصفحات من دون طباعة ؟
كيف انتقل الى صفحة جديدة
toptrav عدد الاسطر

if(toptrav > 600)then
begin

toptrav:=50;

end; }

الصورة

كود :
http://www11.0zz0.com/2013/08/03/14/582683335.png

وعليكم السلام ورحمة الله تعالى وبركاته

ضف الكود التالي:

كود :
QuickRep1.DataSet:= ADOTable1;

اذا الجدول كان فى فورم مستقل مثلا Form3

نضع

كود :
QuickRep1.DataSet:= Form3.ADOTable1;

كود :
procedure Timpre.SpeedButton1Click(Sender: TObject);
var idt,nat:string;
 id,nexp,pge:integer;
begin
if (Trim(ComboBox1.Text)='') or (Trim(Edit1.Text)='') then
 ShowMessage('Entrer le mois et le N° !')
else
begin
pge:=1;
imprelv.mois.Caption:='Mois : '+ComboBox1.Text;
imprelv.nexp.Caption:=Edit1.Text;
nexp:=StrToInt(Edit1.Text);
DataM.Travtbl.Filter:='Mois like '+QuotedStr(ComboBox1.Text+'*')+' and NExploitation='+IntToStr(nexp);
DataM.Travtbl.Filtered:=true;
DataM.Travtbl.Sort:='Jour';
toptrav:=imprelv.lbljr.Top+50;

DataM.Travtbl.first;
while not (DataM.Travtbl.eof) do
begin
 CreateTrav();
 id:=DataM.Travtbl.FieldValues['IdT'];
 DataM.Tractbl.Filter:='IdT = '+IntToStr(id);
 DataM.Tractbl.Filtered:=true;
 DataM.Maintbl.Filter:='IdT = '+IntToStr(id);
 DataM.Maintbl.Filtered:=true;
 DataM.Approvtbl.Filter:='IdT = '+IntToStr(id);
 DataM.Approvtbl.Filtered:=true;
 CreateFils(toptrav);
 getMax();
 CreateShp();
 if(toptrav > 600)then
 begin

  toptrav:=50;
 end;
 DataM.Travtbl.Next;
end;
DataM.Travtbl.first;

imprelv.pge.Caption:=IntToStr(pge);
imprelv.QuickRep1.Preview;
imprelv.Free;
imprelv:=Timprelv.Create(Application);
DataM.Travtbl.Filtered:=false;
DataM.Travtbl.Sort:='IdT';
end;
end;

hmidadz

بن دهيبة

hmidadz