EasyDelphi Q&A
0 تصويتات
59 مشاهدات
سُئل في تصنيف SQL بواسطة (120 نقاط) | 59 مشاهدات

1 إجابة واحدة

0 تصويتات

لطباعة جداول غير معروفة من قبل الديزاين تايم فعليك تتبع الخطوات التالية :
 

مثال عن فاست ربورت أما عن المكونات الأخرى مثل كويك ربورت أو فورت ربورت لا أدري حاليا ...
المهم الخطوات مع فاست ربورت (ملاحظة : أنا لديا نسخة كاملة و لست أدري إن كانت ستعمل مع التي تأتي مع الدلفي عند التسطيب)

قم بإظافة الوحدة frxCross الى الأنترفيس يوزس كلوس. ثم إظف مكون frxReport1 الى الفورم ثم انقر عليه مرتين اعطيه مسارا في مجلد بإسم report مثلا يكون بجانب البرنامج ثم سجله تحت إسم مثلا : Excel.fr3 لا تغلق الصفحة

الى هنا كل شيئ جيد ...

اضف الى الصفحة frxReport1 ثلاث باندات اساسية ( ReportTitle , MasterData, pagefooter) و إذهب الى ماستر داتا و اظف المكون crossview مثل الصورة التالية:

excel report unknown tables

و قم بإعداده بعد النقر عليه بيمين الفارة و اختار Edit مثل الصورة التالية :

crossviewو بعدها قم بإظافة الكود التالي في حدث OnBeforePrint للمكون frxReport1 كالتالي:

procedure TFrmMain.frxReport1BeforePrint(Sender: TfrxReportComponent);
var
  Cross: TfrxCrossView;
  i, j: Integer;
begin
  if Sender is TfrxCrossView then
  begin
    Cross := TfrxCrossView(Sender);

    AdoQuery_Excel.First;
    i := 0;
    while not AdoQuery_Excel.Eof do
    begin
      for j := 0 to AdoQuery_Excel.Fields.Count - 1 do
        Cross.AddValue([i], [AdoQuery_Excel.Fields[j].DisplayLabel], [AdoQuery_Excel.Fields[j].AsString]);

      AdoQuery_Excel.Next;
      Inc(i);
    end;
  end;
end;

 قم بإظافة باتن للطباعة و ضع في حدث onclick الأتي:

frxReport1.ShowReport;

و جرب سوف تجد المكون ياخذ دوما شكلا جديدا على حسب كل جدول ...
المهم لتحميل المثال السابق محدث للطباعة هنا.

فيديو عن النتيجة :

تم الرد عليه بواسطة (21,500 نقاط)
عُدل بواسطة

اسئلة متعلقة

+1 تصويت
2 إجابة
سُئل مايو 27، 2019 في تصنيف SQL بواسطة KHALED (7,720 نقاط) | 78 مشاهدات
0 تصويتات
1 إجابة
سُئل مايو 27، 2019 في تصنيف Delphi بواسطة Hafi Ski (320 نقاط) | 35 مشاهدات
+3 تصويتات
2 إجابة
سُئل نوفمبر 6، 2018 في تصنيف vcl بواسطة MohammedAmine (360 نقاط) | 154 مشاهدات
0 تصويتات
1 إجابة
سُئل ديسمبر 26، 2018 في تصنيف SQL بواسطة KHALED (7,720 نقاط) | 370 مشاهدات
0 تصويتات
1 إجابة
سُئل نوفمبر 23، 2018 في تصنيف SQL بواسطة KHALED (7,720 نقاط) | 371 مشاهدات
ادعُ اصدقائك في الفايسبوك لمشاركتك
Comodo SSL

مرحبًا بك إلى EasyDelphi Q&A، حيث يمكنك طرح الأسئلة والحصول على الإجابة عليها من المستخدمين الآخرين.

لا يسمح بطلب او السؤال عن كراك او تفعيل او كسر او فك او اي شيء يخالف اتفاقيات الترخيص  مهما كان السبب ومهما كان البرنامج ونوعه. ولا حتى نشر روابط تحتوي على مثل هذه الاشياء لا في الاسئلة ولا في الاجابات ولا التعليقات . نهائيا

483 سؤال
743 إجابة
1,395 تعليق
252 مستخدم