طباعة التقارير بواسطة Quickreport

استعمل الفلترة او من الاحسن استعمال كويري و تقوم بالتصفية من خلال تعليماتSQL

ثم تطبع

شكرا اخي

اظنك لم تفهم سؤالي جيدا

اريد عند تصفية جدول dbgrid تطبع سوى البيانات المصفاة التي هي في الجدول dbgrid فقط ومع ترتيب الارقام في الطباعة من 1.....الى اخر تسجيلة

وشكرا جزيلا لكم

khalilsoft كتب:

شكرا اخي

اظنك لم تفهم سؤالي جيدا

اريد عند تصفية جدول dbgrid تطبع سوى البيانات المصفاة التي هي في الجدول dbgrid فقط ومع ترتيب الارقام في الطباعة من 1.....الى اخر تسجيلة

وشكرا جزيلا لكم

تفضل يا اخي

اولا عليك بإضافة حقل من نوع بوليان

وليكن مثلا اسمه Bloquer

ضع هذ الكود في مكون RadioGroup

هذ المكون يتكون من 3 اختيارات

الخيار الأول وهو كما يلي

0: طباعة المدمجين أو يطبع

1: طباعة الموقفين أو لايطبع

2: طباعة الكل

procedure TForm8.RadioGroup1Click(Sender: TObject);
var Filtrage: string;
begin
  case RadioGroup1.ItemIndex of
  0: Filtrage:='not Bloquer';
  1: Filtrage:='Bloquer';
  2: Filtrage:='';
  end;
  Table1.Filter  :=Filtrage;
  Table1.Filtered :=true;
  Table1.Filter  :=Filtrage;
  Table1.Filtered :=true;
end;

ثم ضع في خاصية OnDBlClick لمكون DBGrid

هذا الكود وإن شاء الله ستمشي معك

procedure TForm8.DBGrid1DblClick(Sender: TObject);
begin
    Table1.edit;
    Table1['Bloquer']:=not Table1Bloquer.value;
    Table1.Post;
end;

وبالتوفيق

وليلة قدر مباركةعلى الجميع