درس رائع وأداه رائعة وسهلة فى عمل التقارير مصنوعة بيد عربية,هدية للأحبـاب,,

أسعد الله أيامكم وجعلها كلها فرح وسرور
يسرنى ان أقدم لكـ أداه عربية رائعة
فى عمل التقارير
هذه الاداه لاتحتاج الى معرفة قوية بصناعة التقارير
كل ماعليكـ هو سوى ان تقوم بوضع الاداه على الفورم وتضع كوماند أى زر
وتقوم بوضع الكود (مرفق) ثم تعدل اسم قاعدة البيانات بأسم القاعدة
عندكـ واسم الجدول وشرط ان تكون قاعدة البيانات xp
أيضا يمكنك من الطباعة والعديد من المميزات أكتشفها
انت,,,
تابع معى يرحمكـ الله,,,

هذا هو الناتج النهائى للتقرير

Dim AppPath As String
  '
  If Right$(App.Path, 1) <> "\" Then
      AppPath = App.Path & "\"
  Else
      AppPath = App.Path
  End If
 
  'تنسيقات التقرير 
  With SmartyReport1
      .BackGroundColor = vbWhite
      .Font = "Aril"
      .FontBold = True
      .FontColor = vbBlack
      .FontItalic = False
      .FontSize = 10
      .FontUnderline = False
      .TabelCellColor = vbBlack
      .TableColor = vbWhite
      .TableDefinitionBackgroundColor = vbWhite
      .TextAlignment = ToCenter
  End With
 
  '
  With SmartyReport1
      .PictureIncluded = True
'صورة في التقرير 
     ' .PicturePath = AppPath & "\xXx.gif"
  End With
 
  '
  With SmartyReport1
      .PageHeader = "تقرير"
    End With
 
  '
  SmartyReport1.Summarized = True
 
 
  '
  SmartyReport1.DatabaseName = AppPath & "\db.mdb"
  '
  SmartyReport1.SQLStatement = "select * from table1;"
 
  'damasgate 
  SmartyReport1.ViewReport

هل تود تحميل الاداه؟؟؟؟؟؟

المرفقات أفضل