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

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;

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

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

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

اسئلة متعلقة

+1 تصويت
2 إجابة
سُئل مايو 27 في تصنيف SQL بواسطة KHALED (7,610 نقاط) | 62 مشاهدات
0 تصويتات
1 إجابة
سُئل مايو 27 في تصنيف Delphi بواسطة Hafi Ski (320 نقاط) | 30 مشاهدات
+3 تصويتات
2 إجابة
سُئل نوفمبر 6، 2018 في تصنيف vcl بواسطة MohammedAmine (360 نقاط) | 118 مشاهدات
0 تصويتات
1 إجابة
سُئل ديسمبر 26، 2018 في تصنيف SQL بواسطة KHALED (7,610 نقاط) | 288 مشاهدات
0 تصويتات
1 إجابة
سُئل نوفمبر 23، 2018 في تصنيف SQL بواسطة KHALED (7,610 نقاط) | 289 مشاهدات
ادعُ اصدقائك في الفايسبوك لمشاركتك
Comodo SSL

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

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

441 سؤال
675 إجابة
1,216 تعليق
258 مستخدم